diff --git a/internal/source/main.txt b/internal/source/main.txt index 6baa6c48d..0f89e3f90 100644 --- a/internal/source/main.txt +++ b/internal/source/main.txt @@ -1,111 +1,111 @@ -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("3.6.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))))||new_error){ -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 (new_error) goto skip1; -sub_file_line_input_string(tmp_fileno,__STRING_VERSIONLABEL); -if (new_error) 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)))))||new_error){ -if(qbevent){evnt(24,16,"version.bas");if(r)goto S_9;} -do{ -*__BYTE_ISCIVERSION= -1 ; -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,func_chr( 13 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26,6,"constants.bas");}while(r); -do{ -qbs_set(__STRING1_SP2,func_chr( 10 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26,6,"constants.bas");}while(r); -do{ -qbs_set(__STRING1_SP3,func_chr( 26 )); -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=qbs_asc(__STRING1_SP); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26,8,"constants.bas");}while(r); -do{ -*__LONG_SP2_ASC=qbs_asc(__STRING1_SP2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26,8,"constants.bas");}while(r); -do{ -*__LONG_SP3_ASC=qbs_asc(__STRING1_SP3); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26,8,"constants.bas");}while(r); -S_22:; -if (( 0 )||new_error){ -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,60,"constants.bas");}while(r); -do{ -qbs_set(__STRING_CHR_QUOTE,func_chr( 34 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26,60,"constants.bas");}while(r); -do{ -if(!qbevent)break;evnt(26,61,"constants.bas");}while(r); -do{ -qbs_set(__STRING_CHR_TAB,func_chr( 9 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26,61,"constants.bas");}while(r); -do{ -if(!qbevent)break;evnt(26,62,"constants.bas");}while(r); -do{ -qbs_set(__STRING_CRLF,qbs_add(func_chr( 13 ),func_chr( 10 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26,62,"constants.bas");}while(r); -do{ +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("3.6.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))))||new_error){ +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 (new_error) goto skip1; +sub_file_line_input_string(tmp_fileno,__STRING_VERSIONLABEL); +if (new_error) 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)))))||new_error){ +if(qbevent){evnt(24,16,"version.bas");if(r)goto S_9;} +do{ +*__BYTE_ISCIVERSION= -1 ; +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,func_chr( 13 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26,6,"constants.bas");}while(r); +do{ +qbs_set(__STRING1_SP2,func_chr( 10 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26,6,"constants.bas");}while(r); +do{ +qbs_set(__STRING1_SP3,func_chr( 26 )); +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=qbs_asc(__STRING1_SP); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26,8,"constants.bas");}while(r); +do{ +*__LONG_SP2_ASC=qbs_asc(__STRING1_SP2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26,8,"constants.bas");}while(r); +do{ +*__LONG_SP3_ASC=qbs_asc(__STRING1_SP3); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26,8,"constants.bas");}while(r); +S_22:; +if (( 0 )||new_error){ +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,60,"constants.bas");}while(r); +do{ +qbs_set(__STRING_CHR_QUOTE,func_chr( 34 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26,60,"constants.bas");}while(r); +do{ +if(!qbevent)break;evnt(26,61,"constants.bas");}while(r); +do{ +qbs_set(__STRING_CHR_TAB,func_chr( 9 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26,61,"constants.bas");}while(r); +do{ +if(!qbevent)break;evnt(26,62,"constants.bas");}while(r); +do{ +qbs_set(__STRING_CRLF,qbs_add(func_chr( 13 ),func_chr( 10 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26,62,"constants.bas");}while(r); +do{ if (__ARRAY_UDT_GL_COMMANDS[2]&2){ error(10); @@ -129,13 +129,13 @@ __ARRAY_UDT_GL_COMMANDS[0]=(ptrszint)calloc(__ARRAY_UDT_GL_COMMANDS[5]*1728/8+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(!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); @@ -158,9 +158,9 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_GL_DEFINES[0]))[tmp_long]=(uint64)qb }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(!qbevent)break;evnt(27,12,"opengl_global.bas");}while(r); +do{ if (__ARRAY_INTEGER64_GL_DEFINES_VALUE[2]&2){ error(10); @@ -184,44 +184,44 @@ __ARRAY_INTEGER64_GL_DEFINES_VALUE[0]=(ptrszint)calloc(__ARRAY_INTEGER64_GL_DEFI 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(!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); @@ -244,9 +244,9 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[tmp_long]=(u }else{ while(tmp_long--) ((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[tmp_long]=(uint64)qbs_new(0,0); } -} -if(!qbevent)break;evnt(29,14,"simplebuffer.bi");}while(r); -do{ +} +if(!qbevent)break;evnt(29,14,"simplebuffer.bi");}while(r); +do{ if (__ARRAY_STRING_SBUFN[2]&2){ error(10); @@ -269,120 +269,120 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_SBUFN[0]))[tmp_long]=(uint64)qbs_new }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{ -sub__controlchr( 2 ); -if(!qbevent)break;evnt(34,4,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,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(34,2,"wiki_global.bas");}while(r); -S_60:; -if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)== 0 )))||new_error){ -if(qbevent){evnt(34,3,"wiki_global.bas");if(r)goto S_60;} -do{ -qbs_set(__STRING_CACHE_FOLDER,qbs_new_txt_len("internal/help",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,3,"wiki_global.bas");}while(r); -} -S_63:; -if ((qbs_cleanup(qbs_tmp_base,-(func__direxists(qbs_new_txt_len("internal",8))== 0 )))||new_error){ -if(qbevent){evnt(34,4,"wiki_global.bas");if(r)goto S_63;} -do{ -goto LABEL_NOINTERNALFOLDER; -if(!qbevent)break;evnt(34,4,"wiki_global.bas");}while(r); -} -S_66:; -if ((qbs_cleanup(qbs_tmp_base,-(func__direxists(__STRING_CACHE_FOLDER)== 0 )))||new_error){ -if(qbevent){evnt(34,5,"wiki_global.bas");if(r)goto S_66;} -do{ -sub_mkdir(__STRING_CACHE_FOLDER); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,5,"wiki_global.bas");}while(r); -} -do{ -if(!qbevent)break;evnt(34,6,"wiki_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,7,"wiki_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,8,"wiki_global.bas");}while(r); -do{ -*__LONG_HELP_SX= 1 ; -if(!qbevent)break;evnt(34,9,"wiki_global.bas");}while(r); -do{ -*__LONG_HELP_SY= 1 ; -if(!qbevent)break;evnt(34,9,"wiki_global.bas");}while(r); -do{ -*__LONG_HELP_CX= 1 ; -if(!qbevent)break;evnt(34,9,"wiki_global.bas");}while(r); -do{ -*__LONG_HELP_CY= 1 ; -if(!qbevent)break;evnt(34,9,"wiki_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,10,"wiki_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,11,"wiki_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,12,"wiki_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,13,"wiki_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,14,"wiki_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,15,"wiki_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,16,"wiki_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,17,"wiki_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,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(34,18,"wiki_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,19,"wiki_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,24,"wiki_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,25,"wiki_global.bas");}while(r); -do{ -*__LONG_HELP_COL_NORMAL= 7 ; -if(!qbevent)break;evnt(34,25,"wiki_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,26,"wiki_global.bas");}while(r); -do{ -*__LONG_HELP_COL_LINK= 9 ; -if(!qbevent)break;evnt(34,26,"wiki_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,27,"wiki_global.bas");}while(r); -do{ -*__LONG_HELP_COL_BOLD= 15 ; -if(!qbevent)break;evnt(34,27,"wiki_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,28,"wiki_global.bas");}while(r); -do{ -*__LONG_HELP_COL_ITALIC= 3 ; -if(!qbevent)break;evnt(34,28,"wiki_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,29,"wiki_global.bas");}while(r); -do{ -*__LONG_HELP_COL_SECTION= 8 ; -if(!qbevent)break;evnt(34,29,"wiki_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,30,"wiki_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,31,"wiki_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,32,"wiki_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,33,"wiki_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,34,"wiki_global.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(29,6,"sb_qb64pe_extension.bi");}while(r); +do{ +sub__controlchr( 2 ); +if(!qbevent)break;evnt(34,4,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,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(34,2,"wiki_global.bas");}while(r); +S_60:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)== 0 )))||new_error){ +if(qbevent){evnt(34,3,"wiki_global.bas");if(r)goto S_60;} +do{ +qbs_set(__STRING_CACHE_FOLDER,qbs_new_txt_len("internal/help",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,3,"wiki_global.bas");}while(r); +} +S_63:; +if ((qbs_cleanup(qbs_tmp_base,-(func__direxists(qbs_new_txt_len("internal",8))== 0 )))||new_error){ +if(qbevent){evnt(34,4,"wiki_global.bas");if(r)goto S_63;} +do{ +goto LABEL_NOINTERNALFOLDER; +if(!qbevent)break;evnt(34,4,"wiki_global.bas");}while(r); +} +S_66:; +if ((qbs_cleanup(qbs_tmp_base,-(func__direxists(__STRING_CACHE_FOLDER)== 0 )))||new_error){ +if(qbevent){evnt(34,5,"wiki_global.bas");if(r)goto S_66;} +do{ +sub_mkdir(__STRING_CACHE_FOLDER); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,5,"wiki_global.bas");}while(r); +} +do{ +if(!qbevent)break;evnt(34,6,"wiki_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,7,"wiki_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,8,"wiki_global.bas");}while(r); +do{ +*__LONG_HELP_SX= 1 ; +if(!qbevent)break;evnt(34,9,"wiki_global.bas");}while(r); +do{ +*__LONG_HELP_SY= 1 ; +if(!qbevent)break;evnt(34,9,"wiki_global.bas");}while(r); +do{ +*__LONG_HELP_CX= 1 ; +if(!qbevent)break;evnt(34,9,"wiki_global.bas");}while(r); +do{ +*__LONG_HELP_CY= 1 ; +if(!qbevent)break;evnt(34,9,"wiki_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,10,"wiki_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,11,"wiki_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,12,"wiki_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,13,"wiki_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,14,"wiki_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,15,"wiki_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,16,"wiki_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,17,"wiki_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,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(34,18,"wiki_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,19,"wiki_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,24,"wiki_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,25,"wiki_global.bas");}while(r); +do{ +*__LONG_HELP_COL_NORMAL= 7 ; +if(!qbevent)break;evnt(34,25,"wiki_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,26,"wiki_global.bas");}while(r); +do{ +*__LONG_HELP_COL_LINK= 9 ; +if(!qbevent)break;evnt(34,26,"wiki_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,27,"wiki_global.bas");}while(r); +do{ +*__LONG_HELP_COL_BOLD= 15 ; +if(!qbevent)break;evnt(34,27,"wiki_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,28,"wiki_global.bas");}while(r); +do{ +*__LONG_HELP_COL_ITALIC= 3 ; +if(!qbevent)break;evnt(34,28,"wiki_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,29,"wiki_global.bas");}while(r); +do{ +*__LONG_HELP_COL_SECTION= 8 ; +if(!qbevent)break;evnt(34,29,"wiki_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,30,"wiki_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,31,"wiki_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,32,"wiki_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,33,"wiki_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,34,"wiki_global.bas");}while(r); +do{ if (__ARRAY_LONG_HELP_LINELEN[2]&2){ error(10); @@ -406,9 +406,9 @@ __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(34,35,"wiki_global.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(34,35,"wiki_global.bas");}while(r); +do{ if (__ARRAY_STRING_BACK[2]&2){ error(10); @@ -431,9 +431,9 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_BACK[0]))[tmp_long]=(uint64)qbs_new_ }else{ while(tmp_long--) ((uint64*)(__ARRAY_STRING_BACK[0]))[tmp_long]=(uint64)qbs_new(0,0); } -} -if(!qbevent)break;evnt(34,36,"wiki_global.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(34,36,"wiki_global.bas");}while(r); +do{ if (__ARRAY_STRING_BACK_NAME[2]&2){ error(10); @@ -456,9 +456,9 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_BACK_NAME[0]))[tmp_long]=(uint64)qbs }else{ while(tmp_long--) ((uint64*)(__ARRAY_STRING_BACK_NAME[0]))[tmp_long]=(uint64)qbs_new(0,0); } -} -if(!qbevent)break;evnt(34,37,"wiki_global.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(34,37,"wiki_global.bas");}while(r); +do{ if (__ARRAY_UDT_HELP_BACK[2]&2){ error(10); @@ -482,44 +482,44 @@ __ARRAY_UDT_HELP_BACK[0]=(ptrszint)calloc(__ARRAY_UDT_HELP_BACK[5]*128/8+1,1); if (!__ARRAY_UDT_HELP_BACK[0]) error(257); } __ARRAY_UDT_HELP_BACK[2]|=1; -} -if(!qbevent)break;evnt(34,44,"wiki_global.bas");}while(r); -do{ -tmp_long=array_check(( 1 )-__ARRAY_STRING_BACK[4],__ARRAY_STRING_BACK[5]); -if (!new_error) 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(34,45,"wiki_global.bas");}while(r); -do{ -tmp_long=array_check(( 1 )-__ARRAY_STRING_BACK_NAME[4],__ARRAY_STRING_BACK_NAME[5]); -if (!new_error) 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(34,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(34,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(34,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(34,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(34,47,"wiki_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,48,"wiki_global.bas");}while(r); -do{ -*__LONG_HELP_BACK_POS= 1 ; -if(!qbevent)break;evnt(34,49,"wiki_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,50,"wiki_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,51,"wiki_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,52,"wiki_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,53,"wiki_global.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(34,44,"wiki_global.bas");}while(r); +do{ +tmp_long=array_check(( 1 )-__ARRAY_STRING_BACK[4],__ARRAY_STRING_BACK[5]); +if (!new_error) 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(34,45,"wiki_global.bas");}while(r); +do{ +tmp_long=array_check(( 1 )-__ARRAY_STRING_BACK_NAME[4],__ARRAY_STRING_BACK_NAME[5]); +if (!new_error) 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(34,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(34,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(34,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(34,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(34,47,"wiki_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,48,"wiki_global.bas");}while(r); +do{ +*__LONG_HELP_BACK_POS= 1 ; +if(!qbevent)break;evnt(34,49,"wiki_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,50,"wiki_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,51,"wiki_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,52,"wiki_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,53,"wiki_global.bas");}while(r); +do{ if (__ARRAY_UDT_WPENTREPL[2]&2){ error(10); @@ -539,102 +539,102 @@ if (!__ARRAY_UDT_WPENTREPL[0]) error(257); } __ARRAY_UDT_WPENTREPL[2]|=1; } -} -if(!qbevent)break;evnt(34,61,"wiki_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,62,"wiki_global.bas");}while(r); -do{ -*__LONG_WPENTREPLCNT= -1 ; -if(!qbevent)break;evnt(34,62,"wiki_global.bas");}while(r); -do{ -*__LONG_WPENTREPLCNT=*__LONG_WPENTREPLCNT+ 1 ; -if(!qbevent)break;evnt(34,64,"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("'",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,64,"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(34,64,"wiki_global.bas");}while(r); -do{ -*__LONG_WPENTREPLCNT=*__LONG_WPENTREPLCNT+ 1 ; -if(!qbevent)break;evnt(34,65,"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("[",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,65,"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(34,65,"wiki_global.bas");}while(r); -do{ -*__LONG_WPENTREPLCNT=*__LONG_WPENTREPLCNT+ 1 ; -if(!qbevent)break;evnt(34,66,"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("]",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,66,"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(34,66,"wiki_global.bas");}while(r); -do{ -*__LONG_WPENTREPLCNT=*__LONG_WPENTREPLCNT+ 1 ; -if(!qbevent)break;evnt(34,67,"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("{",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,67,"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(34,67,"wiki_global.bas");}while(r); -do{ -*__LONG_WPENTREPLCNT=*__LONG_WPENTREPLCNT+ 1 ; -if(!qbevent)break;evnt(34,68,"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("}",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,68,"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(34,68,"wiki_global.bas");}while(r); -do{ -*__LONG_WPENTREPLCNT=*__LONG_WPENTREPLCNT+ 1 ; -if(!qbevent)break;evnt(34,69,"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("π",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,69,"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(34,69,"wiki_global.bas");}while(r); -do{ -*__LONG_WPENTREPLCNT=*__LONG_WPENTREPLCNT+ 1 ; -if(!qbevent)break;evnt(34,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("θ",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,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),func_chr( 233 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,70,"wiki_global.bas");}while(r); -do{ -*__LONG_WPENTREPLCNT=*__LONG_WPENTREPLCNT+ 1 ; -if(!qbevent)break;evnt(34,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(" ",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,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),func_chr( 255 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,71,"wiki_global.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(34,61,"wiki_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,62,"wiki_global.bas");}while(r); +do{ +*__LONG_WPENTREPLCNT= -1 ; +if(!qbevent)break;evnt(34,62,"wiki_global.bas");}while(r); +do{ +*__LONG_WPENTREPLCNT=*__LONG_WPENTREPLCNT+ 1 ; +if(!qbevent)break;evnt(34,64,"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("'",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,64,"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(34,64,"wiki_global.bas");}while(r); +do{ +*__LONG_WPENTREPLCNT=*__LONG_WPENTREPLCNT+ 1 ; +if(!qbevent)break;evnt(34,65,"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("[",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,65,"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(34,65,"wiki_global.bas");}while(r); +do{ +*__LONG_WPENTREPLCNT=*__LONG_WPENTREPLCNT+ 1 ; +if(!qbevent)break;evnt(34,66,"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("]",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,66,"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(34,66,"wiki_global.bas");}while(r); +do{ +*__LONG_WPENTREPLCNT=*__LONG_WPENTREPLCNT+ 1 ; +if(!qbevent)break;evnt(34,67,"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("{",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,67,"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(34,67,"wiki_global.bas");}while(r); +do{ +*__LONG_WPENTREPLCNT=*__LONG_WPENTREPLCNT+ 1 ; +if(!qbevent)break;evnt(34,68,"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("}",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,68,"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(34,68,"wiki_global.bas");}while(r); +do{ +*__LONG_WPENTREPLCNT=*__LONG_WPENTREPLCNT+ 1 ; +if(!qbevent)break;evnt(34,69,"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("π",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,69,"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(34,69,"wiki_global.bas");}while(r); +do{ +*__LONG_WPENTREPLCNT=*__LONG_WPENTREPLCNT+ 1 ; +if(!qbevent)break;evnt(34,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("θ",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,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),func_chr( 233 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,70,"wiki_global.bas");}while(r); +do{ +*__LONG_WPENTREPLCNT=*__LONG_WPENTREPLCNT+ 1 ; +if(!qbevent)break;evnt(34,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(" ",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,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),func_chr( 255 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,71,"wiki_global.bas");}while(r); +do{ if (__ARRAY_UDT_WPUTFREPL[2]&2){ error(10); @@ -654,706 +654,706 @@ if (!__ARRAY_UDT_WPUTFREPL[0]) error(257); } __ARRAY_UDT_WPUTFREPL[2]|=1; } -} -if(!qbevent)break;evnt(34,78,"wiki_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,79,"wiki_global.bas");}while(r); -do{ -*__LONG_WPUTFREPLCNT= -1 ; -if(!qbevent)break;evnt(34,79,"wiki_global.bas");}while(r); -do{ -*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; -if(!qbevent)break;evnt(34,84,"wiki_global.bas");}while(r); -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(34,84,"wiki_global.bas");}while(r); -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(34,84,"wiki_global.bas");}while(r); -do{ -*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; -if(!qbevent)break;evnt(34,85,"wiki_global.bas");}while(r); -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(34,85,"wiki_global.bas");}while(r); -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(34,85,"wiki_global.bas");}while(r); -do{ -*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; -if(!qbevent)break;evnt(34,86,"wiki_global.bas");}while(r); -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(34,86,"wiki_global.bas");}while(r); -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(34,86,"wiki_global.bas");}while(r); -do{ -*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; -if(!qbevent)break;evnt(34,87,"wiki_global.bas");}while(r); -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(34,87,"wiki_global.bas");}while(r); -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(34,87,"wiki_global.bas");}while(r); -do{ -*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; -if(!qbevent)break;evnt(34,88,"wiki_global.bas");}while(r); -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(34,88,"wiki_global.bas");}while(r); -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(34,88,"wiki_global.bas");}while(r); -do{ -*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; -if(!qbevent)break;evnt(34,89,"wiki_global.bas");}while(r); -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(34,89,"wiki_global.bas");}while(r); -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(34,89,"wiki_global.bas");}while(r); -do{ -*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; -if(!qbevent)break;evnt(34,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( -23101 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,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( 134 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,90,"wiki_global.bas");}while(r); -do{ -*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; -if(!qbevent)break;evnt(34,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( -22589 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,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( 135 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,91,"wiki_global.bas");}while(r); -do{ -*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; -if(!qbevent)break;evnt(34,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( -21821 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,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),func_chr( 136 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,92,"wiki_global.bas");}while(r); -do{ -*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; -if(!qbevent)break;evnt(34,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( -21565 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,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( 137 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,93,"wiki_global.bas");}while(r); -do{ -*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; -if(!qbevent)break;evnt(34,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( -22333 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,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( 138 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,94,"wiki_global.bas");}while(r); -do{ -*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; -if(!qbevent)break;evnt(34,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( -20541 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,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( 139 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,95,"wiki_global.bas");}while(r); -do{ -*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; -if(!qbevent)break;evnt(34,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( -20797 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,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( 140 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,96,"wiki_global.bas");}while(r); -do{ -*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; -if(!qbevent)break;evnt(34,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( -23870 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,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( 155 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,97,"wiki_global.bas");}while(r); -do{ -*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; -if(!qbevent)break;evnt(34,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( -16958 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,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( 171 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,98,"wiki_global.bas");}while(r); -do{ -*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; -if(!qbevent)break;evnt(34,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( -17214 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,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( 172 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,99,"wiki_global.bas");}while(r); -do{ -*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; -if(!qbevent)break;evnt(34,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( -32561 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,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( 227 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,100,"wiki_global.bas");}while(r); -do{ -*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; -if(!qbevent)break;evnt(34,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( -24382 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,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( 255 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,101,"wiki_global.bas");}while(r); -do{ -*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; -if(!qbevent)break;evnt(34,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),l2string( 10911970 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,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),qbs_new_txt_len("...",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,103,"wiki_global.bas");}while(r); -do{ -*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; -if(!qbevent)break;evnt(34,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),l2string( 11439074 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,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( 240 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,104,"wiki_global.bas");}while(r); -do{ -*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; -if(!qbevent)break;evnt(34,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),l2string( 9213154 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,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( 218 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,105,"wiki_global.bas");}while(r); -do{ -*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; -if(!qbevent)break;evnt(34,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),l2string( 9475298 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,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( 191 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,106,"wiki_global.bas");}while(r); -do{ -*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; -if(!qbevent)break;evnt(34,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),l2string( 9737442 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,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( 192 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,107,"wiki_global.bas");}while(r); -do{ -*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; -if(!qbevent)break;evnt(34,108,"wiki_global.bas");}while(r); -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(34,108,"wiki_global.bas");}while(r); -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(34,108,"wiki_global.bas");}while(r); -do{ -*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; -if(!qbevent)break;evnt(34,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( 8426722 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,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),func_chr( 196 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,109,"wiki_global.bas");}while(r); -do{ -*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; -if(!qbevent)break;evnt(34,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( 8557794 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,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( 179 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,110,"wiki_global.bas");}while(r); -do{ -*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; -if(!qbevent)break;evnt(34,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( 11834594 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,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( 193 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,111,"wiki_global.bas");}while(r); -do{ -*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; -if(!qbevent)break;evnt(34,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( 11310306 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,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( 194 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,112,"wiki_global.bas");}while(r); -do{ -*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; -if(!qbevent)break;evnt(34,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( 10786018 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,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( 180 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,113,"wiki_global.bas");}while(r); -do{ -*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; -if(!qbevent)break;evnt(34,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( 10261730 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,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( 195 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,114,"wiki_global.bas");}while(r); -do{ -*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; -if(!qbevent)break;evnt(34,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( 12358882 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,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( 197 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,115,"wiki_global.bas");}while(r); -do{ -*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; -if(!qbevent)break;evnt(34,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( 11704034 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,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( 30 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,116,"wiki_global.bas");}while(r); -do{ -*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; -if(!qbevent)break;evnt(34,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( 12359394 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,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( 31 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,117,"wiki_global.bas");}while(r); -do{ -*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; -if(!qbevent)break;evnt(34,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( 8689634 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,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( 17 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,118,"wiki_global.bas");}while(r); -do{ -*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; -if(!qbevent)break;evnt(34,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( 12228322 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,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( 16 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,119,"wiki_global.bas");}while(r); -do{ -*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; -if(!qbevent)break;evnt(34,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( 9537250 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,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( 24 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,120,"wiki_global.bas");}while(r); -do{ -*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; -if(!qbevent)break;evnt(34,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( 9668322 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,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( 25 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,121,"wiki_global.bas");}while(r); -do{ -*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; -if(!qbevent)break;evnt(34,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( 9799394 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,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( 18 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,122,"wiki_global.bas");}while(r); -do{ -*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; -if(!qbevent)break;evnt(34,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( 11044578 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,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( 23 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,123,"wiki_global.bas");}while(r); -do{ -*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; -if(!qbevent)break;evnt(34,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( 9471714 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,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( 27 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,124,"wiki_global.bas");}while(r); -do{ -*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; -if(!qbevent)break;evnt(34,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( 9602786 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,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( 26 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,125,"wiki_global.bas");}while(r); -do{ -*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; -if(!qbevent)break;evnt(34,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( 9733858 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,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( 29 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,126,"wiki_global.bas");}while(r); -do{ -*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; -if(!qbevent)break;evnt(34,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( 12228834 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,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( 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,127,"wiki_global.bas");}while(r); -do{ -*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; -if(!qbevent)break;evnt(34,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( 12294370 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,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( 2 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,128,"wiki_global.bas");}while(r); -do{ -*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; -if(!qbevent)break;evnt(34,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( 10852834 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,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( 3 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,129,"wiki_global.bas");}while(r); -do{ -*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; -if(!qbevent)break;evnt(34,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( 10918370 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,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( 4 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,130,"wiki_global.bas");}while(r); -do{ -*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; -if(!qbevent)break;evnt(34,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( 10721762 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,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( 5 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,131,"wiki_global.bas");}while(r); -do{ -*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; -if(!qbevent)break;evnt(34,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( 10525154 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,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( 6 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,132,"wiki_global.bas");}while(r); -do{ -*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; -if(!qbevent)break;evnt(34,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( 8559074 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,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( 11 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,133,"wiki_global.bas");}while(r); -do{ -*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; -if(!qbevent)break;evnt(34,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( 8428002 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,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( 12 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,134,"wiki_global.bas");}while(r); -do{ -*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; -if(!qbevent)break;evnt(34,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( 11180514 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,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( 13 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,135,"wiki_global.bas");}while(r); -do{ -*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; -if(!qbevent)break;evnt(34,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( 11246050 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,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( 14 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,136,"wiki_global.bas");}while(r); -do{ -*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; -if(!qbevent)break;evnt(34,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( 10649826 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,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( 7 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,137,"wiki_global.bas");}while(r); -do{ -*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; -if(!qbevent)break;evnt(34,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( 10000354 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,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( 8 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,138,"wiki_global.bas");}while(r); -do{ -*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; -if(!qbevent)break;evnt(34,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( 9148386 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,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( 9 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,139,"wiki_global.bas");}while(r); -do{ -*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; -if(!qbevent)break;evnt(34,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( 10065890 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,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( 10 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,140,"wiki_global.bas");}while(r); -do{ -*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; -if(!qbevent)break;evnt(34,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( 12359906 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,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( 15 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,141,"wiki_global.bas");}while(r); -do{ -*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; -if(!qbevent)break;evnt(34,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( 12353762 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,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( 19 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,142,"wiki_global.bas");}while(r); -do{ -*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; -if(!qbevent)break;evnt(34,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( 11310818 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,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( 22 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,143,"wiki_global.bas");}while(r); -do{ -*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; -if(!qbevent)break;evnt(34,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( 10455266 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,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( 28 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,144,"wiki_global.bas");}while(r); -do{ -*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; -if(!qbevent)break;evnt(34,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( -2137481232 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,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),qbs_new_txt_len(":)",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,146,"wiki_global.bas");}while(r); -do{ -*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; -if(!qbevent)break;evnt(34,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( -2003263504 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,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),qbs_new_txt_len(";)",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,147,"wiki_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,8,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,10,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,11,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,12,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,14,"ide_global.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(34,78,"wiki_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,79,"wiki_global.bas");}while(r); +do{ +*__LONG_WPUTFREPLCNT= -1 ; +if(!qbevent)break;evnt(34,79,"wiki_global.bas");}while(r); +do{ +*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; +if(!qbevent)break;evnt(34,84,"wiki_global.bas");}while(r); +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(34,84,"wiki_global.bas");}while(r); +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(34,84,"wiki_global.bas");}while(r); +do{ +*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; +if(!qbevent)break;evnt(34,85,"wiki_global.bas");}while(r); +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(34,85,"wiki_global.bas");}while(r); +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(34,85,"wiki_global.bas");}while(r); +do{ +*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; +if(!qbevent)break;evnt(34,86,"wiki_global.bas");}while(r); +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(34,86,"wiki_global.bas");}while(r); +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(34,86,"wiki_global.bas");}while(r); +do{ +*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; +if(!qbevent)break;evnt(34,87,"wiki_global.bas");}while(r); +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(34,87,"wiki_global.bas");}while(r); +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(34,87,"wiki_global.bas");}while(r); +do{ +*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; +if(!qbevent)break;evnt(34,88,"wiki_global.bas");}while(r); +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(34,88,"wiki_global.bas");}while(r); +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(34,88,"wiki_global.bas");}while(r); +do{ +*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; +if(!qbevent)break;evnt(34,89,"wiki_global.bas");}while(r); +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(34,89,"wiki_global.bas");}while(r); +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(34,89,"wiki_global.bas");}while(r); +do{ +*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; +if(!qbevent)break;evnt(34,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( -23101 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,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( 134 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,90,"wiki_global.bas");}while(r); +do{ +*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; +if(!qbevent)break;evnt(34,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( -22589 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,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( 135 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,91,"wiki_global.bas");}while(r); +do{ +*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; +if(!qbevent)break;evnt(34,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( -21821 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,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),func_chr( 136 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,92,"wiki_global.bas");}while(r); +do{ +*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; +if(!qbevent)break;evnt(34,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( -21565 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,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( 137 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,93,"wiki_global.bas");}while(r); +do{ +*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; +if(!qbevent)break;evnt(34,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( -22333 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,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( 138 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,94,"wiki_global.bas");}while(r); +do{ +*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; +if(!qbevent)break;evnt(34,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( -20541 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,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( 139 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,95,"wiki_global.bas");}while(r); +do{ +*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; +if(!qbevent)break;evnt(34,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( -20797 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,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( 140 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,96,"wiki_global.bas");}while(r); +do{ +*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; +if(!qbevent)break;evnt(34,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( -23870 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,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( 155 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,97,"wiki_global.bas");}while(r); +do{ +*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; +if(!qbevent)break;evnt(34,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( -16958 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,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( 171 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,98,"wiki_global.bas");}while(r); +do{ +*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; +if(!qbevent)break;evnt(34,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( -17214 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,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( 172 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,99,"wiki_global.bas");}while(r); +do{ +*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; +if(!qbevent)break;evnt(34,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( -32561 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,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( 227 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,100,"wiki_global.bas");}while(r); +do{ +*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; +if(!qbevent)break;evnt(34,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( -24382 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,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( 255 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,101,"wiki_global.bas");}while(r); +do{ +*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; +if(!qbevent)break;evnt(34,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),l2string( 10911970 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,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),qbs_new_txt_len("...",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,103,"wiki_global.bas");}while(r); +do{ +*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; +if(!qbevent)break;evnt(34,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),l2string( 11439074 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,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( 240 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,104,"wiki_global.bas");}while(r); +do{ +*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; +if(!qbevent)break;evnt(34,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),l2string( 9213154 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,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( 218 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,105,"wiki_global.bas");}while(r); +do{ +*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; +if(!qbevent)break;evnt(34,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),l2string( 9475298 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,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( 191 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,106,"wiki_global.bas");}while(r); +do{ +*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; +if(!qbevent)break;evnt(34,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),l2string( 9737442 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,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( 192 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,107,"wiki_global.bas");}while(r); +do{ +*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; +if(!qbevent)break;evnt(34,108,"wiki_global.bas");}while(r); +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(34,108,"wiki_global.bas");}while(r); +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(34,108,"wiki_global.bas");}while(r); +do{ +*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; +if(!qbevent)break;evnt(34,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( 8426722 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,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),func_chr( 196 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,109,"wiki_global.bas");}while(r); +do{ +*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; +if(!qbevent)break;evnt(34,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( 8557794 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,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( 179 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,110,"wiki_global.bas");}while(r); +do{ +*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; +if(!qbevent)break;evnt(34,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( 11834594 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,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( 193 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,111,"wiki_global.bas");}while(r); +do{ +*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; +if(!qbevent)break;evnt(34,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( 11310306 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,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( 194 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,112,"wiki_global.bas");}while(r); +do{ +*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; +if(!qbevent)break;evnt(34,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( 10786018 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,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( 180 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,113,"wiki_global.bas");}while(r); +do{ +*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; +if(!qbevent)break;evnt(34,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( 10261730 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,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( 195 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,114,"wiki_global.bas");}while(r); +do{ +*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; +if(!qbevent)break;evnt(34,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( 12358882 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,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( 197 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,115,"wiki_global.bas");}while(r); +do{ +*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; +if(!qbevent)break;evnt(34,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( 11704034 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,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( 30 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,116,"wiki_global.bas");}while(r); +do{ +*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; +if(!qbevent)break;evnt(34,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( 12359394 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,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( 31 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,117,"wiki_global.bas");}while(r); +do{ +*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; +if(!qbevent)break;evnt(34,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( 8689634 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,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( 17 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,118,"wiki_global.bas");}while(r); +do{ +*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; +if(!qbevent)break;evnt(34,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( 12228322 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,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( 16 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,119,"wiki_global.bas");}while(r); +do{ +*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; +if(!qbevent)break;evnt(34,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( 9537250 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,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( 24 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,120,"wiki_global.bas");}while(r); +do{ +*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; +if(!qbevent)break;evnt(34,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( 9668322 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,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( 25 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,121,"wiki_global.bas");}while(r); +do{ +*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; +if(!qbevent)break;evnt(34,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( 9799394 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,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( 18 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,122,"wiki_global.bas");}while(r); +do{ +*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; +if(!qbevent)break;evnt(34,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( 11044578 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,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( 23 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,123,"wiki_global.bas");}while(r); +do{ +*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; +if(!qbevent)break;evnt(34,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( 9471714 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,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( 27 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,124,"wiki_global.bas");}while(r); +do{ +*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; +if(!qbevent)break;evnt(34,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( 9602786 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,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( 26 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,125,"wiki_global.bas");}while(r); +do{ +*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; +if(!qbevent)break;evnt(34,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( 9733858 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,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( 29 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,126,"wiki_global.bas");}while(r); +do{ +*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; +if(!qbevent)break;evnt(34,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( 12228834 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,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( 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,127,"wiki_global.bas");}while(r); +do{ +*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; +if(!qbevent)break;evnt(34,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( 12294370 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,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( 2 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,128,"wiki_global.bas");}while(r); +do{ +*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; +if(!qbevent)break;evnt(34,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( 10852834 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,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( 3 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,129,"wiki_global.bas");}while(r); +do{ +*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; +if(!qbevent)break;evnt(34,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( 10918370 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,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( 4 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,130,"wiki_global.bas");}while(r); +do{ +*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; +if(!qbevent)break;evnt(34,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( 10721762 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,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( 5 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,131,"wiki_global.bas");}while(r); +do{ +*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; +if(!qbevent)break;evnt(34,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( 10525154 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,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( 6 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,132,"wiki_global.bas");}while(r); +do{ +*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; +if(!qbevent)break;evnt(34,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( 8559074 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,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( 11 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,133,"wiki_global.bas");}while(r); +do{ +*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; +if(!qbevent)break;evnt(34,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( 8428002 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,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( 12 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,134,"wiki_global.bas");}while(r); +do{ +*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; +if(!qbevent)break;evnt(34,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( 11180514 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,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( 13 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,135,"wiki_global.bas");}while(r); +do{ +*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; +if(!qbevent)break;evnt(34,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( 11246050 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,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( 14 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,136,"wiki_global.bas");}while(r); +do{ +*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; +if(!qbevent)break;evnt(34,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( 10649826 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,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( 7 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,137,"wiki_global.bas");}while(r); +do{ +*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; +if(!qbevent)break;evnt(34,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( 10000354 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,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( 8 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,138,"wiki_global.bas");}while(r); +do{ +*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; +if(!qbevent)break;evnt(34,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( 9148386 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,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( 9 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,139,"wiki_global.bas");}while(r); +do{ +*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; +if(!qbevent)break;evnt(34,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( 10065890 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,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( 10 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,140,"wiki_global.bas");}while(r); +do{ +*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; +if(!qbevent)break;evnt(34,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( 12359906 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,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( 15 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,141,"wiki_global.bas");}while(r); +do{ +*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; +if(!qbevent)break;evnt(34,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( 12353762 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,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( 19 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,142,"wiki_global.bas");}while(r); +do{ +*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; +if(!qbevent)break;evnt(34,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( 11310818 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,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( 22 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,143,"wiki_global.bas");}while(r); +do{ +*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; +if(!qbevent)break;evnt(34,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( 10455266 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,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( 28 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,144,"wiki_global.bas");}while(r); +do{ +*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; +if(!qbevent)break;evnt(34,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( -2137481232 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,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),qbs_new_txt_len(":)",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,146,"wiki_global.bas");}while(r); +do{ +*__LONG_WPUTFREPLCNT=*__LONG_WPUTFREPLCNT+ 1 ; +if(!qbevent)break;evnt(34,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( -2003263504 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,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),qbs_new_txt_len(";)",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,147,"wiki_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,8,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,10,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,11,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,12,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,14,"ide_global.bas");}while(r); +do{ if (__ARRAY_STRING_VWATCHRECEIVEDDATA[2]&2){ error(10); @@ -1374,20 +1374,20 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_VWATCHRECEIVEDDATA[0]))[tmp_long]=(u while(tmp_long--) ((uint64*)(__ARRAY_STRING_VWATCHRECEIVEDDATA[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -} -if(!qbevent)break;evnt(34,15,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,16,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,18,"ide_global.bas");}while(r); -do{ -*__LONG_IDESYSTEM= 1 ; -if(!qbevent)break;evnt(34,22,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,24,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,25,"ide_global.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(34,15,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,16,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,18,"ide_global.bas");}while(r); +do{ +*__LONG_IDESYSTEM= 1 ; +if(!qbevent)break;evnt(34,22,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,24,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,25,"ide_global.bas");}while(r); +do{ if (__ARRAY_STRING_IDERECENTLINK[2]&2){ error(10); @@ -1411,13 +1411,13 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_IDERECENTLINK[0]))[tmp_long]=(uint64 while(tmp_long--) ((uint64*)(__ARRAY_STRING_IDERECENTLINK[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -} -if(!qbevent)break;evnt(34,27,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,28,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,29,"ide_global.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(34,27,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,28,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,29,"ide_global.bas");}while(r); +do{ if (__ARRAY_UDT_IDEBMK[2]&2){ error(10); @@ -1441,13 +1441,13 @@ __ARRAY_UDT_IDEBMK[0]=(ptrszint)calloc(__ARRAY_UDT_IDEBMK[5]*128/8+1,1); if (!__ARRAY_UDT_IDEBMK[0]) error(257); } __ARRAY_UDT_IDEBMK[2]|=1; -} -if(!qbevent)break;evnt(34,37,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,38,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,44,"ide_global.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(34,37,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,38,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,44,"ide_global.bas");}while(r); +do{ if (__ARRAY_UDT_QUICKNAVHISTORY[2]&2){ error(10); @@ -1467,9 +1467,9 @@ if (!__ARRAY_UDT_QUICKNAVHISTORY[0]) error(257); } __ARRAY_UDT_QUICKNAVHISTORY[2]|=1; } -} -if(!qbevent)break;evnt(34,45,"ide_global.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(34,45,"ide_global.bas");}while(r); +do{ if (__ARRAY_BYTE_IDEBREAKPOINTS[2]&2){ error(10); @@ -1493,9 +1493,9 @@ __ARRAY_BYTE_IDEBREAKPOINTS[0]=(ptrszint)calloc(__ARRAY_BYTE_IDEBREAKPOINTS[5]*1 if (!__ARRAY_BYTE_IDEBREAKPOINTS[0]) error(257); } __ARRAY_BYTE_IDEBREAKPOINTS[2]|=1; -} -if(!qbevent)break;evnt(34,47,"ide_global.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(34,47,"ide_global.bas");}while(r); +do{ if (__ARRAY_BYTE_IDESKIPLINES[2]&2){ error(10); @@ -1519,39 +1519,39 @@ __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(34,48,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,51,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,52,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,53,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,54,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,55,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,56,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,57,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,58,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,59,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,60,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,61,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,62,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,63,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,64,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,65,"ide_global.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(34,48,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,51,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,52,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,53,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,54,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,55,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,56,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,57,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,58,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,59,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,60,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,61,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,62,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,63,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,64,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,65,"ide_global.bas");}while(r); +do{ if (__ARRAY_INTEGER_BLOCK_CHR[2]&2){ error(10); @@ -1571,19 +1571,19 @@ if (!__ARRAY_INTEGER_BLOCK_CHR[0]) error(257); } __ARRAY_INTEGER_BLOCK_CHR[2]|=1; } -} -if(!qbevent)break;evnt(34,67,"ide_global.bas");}while(r); -do{ -tmp_long=array_check(( 10 )-__ARRAY_INTEGER_BLOCK_CHR[4],__ARRAY_INTEGER_BLOCK_CHR[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_BLOCK_CHR[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(34,68,"ide_global.bas");}while(r); -do{ -tmp_long=array_check(( 13 )-__ARRAY_INTEGER_BLOCK_CHR[4],__ARRAY_INTEGER_BLOCK_CHR[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_BLOCK_CHR[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(34,69,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,72,"ide_global.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(34,67,"ide_global.bas");}while(r); +do{ +tmp_long=array_check(( 10 )-__ARRAY_INTEGER_BLOCK_CHR[4],__ARRAY_INTEGER_BLOCK_CHR[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_BLOCK_CHR[0]))[tmp_long]= 1 ; +if(!qbevent)break;evnt(34,68,"ide_global.bas");}while(r); +do{ +tmp_long=array_check(( 13 )-__ARRAY_INTEGER_BLOCK_CHR[4],__ARRAY_INTEGER_BLOCK_CHR[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_BLOCK_CHR[0]))[tmp_long]= 1 ; +if(!qbevent)break;evnt(34,69,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,72,"ide_global.bas");}while(r); +do{ if (__ARRAY_STRING_IDECPNAME[2]&2){ error(10); @@ -1604,9 +1604,9 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long]=(uint64)qbs while(tmp_long--) ((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -} -if(!qbevent)break;evnt(34,74,"ide_global.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(34,74,"ide_global.bas");}while(r); +do{ if (__ARRAY_STRING_IDECP[2]&2){ error(10); @@ -1627,343 +1627,343 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long]=(uint64)qbs_new while(tmp_long--) ((uint64*)(__ARRAY_STRING_IDECP[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -} -if(!qbevent)break;evnt(34,75,"ide_global.bas");}while(r); -do{ -tmp_long=array_check(( 1 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]); -if (!new_error) 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(34,77,"ide_global.bas");}while(r); -do{ -tmp_long=array_check(( 1 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]); -if (!new_error) 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(34,78,"ide_global.bas");}while(r); -do{ -tmp_long=array_check(( 2 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]); -if (!new_error) 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(34,79,"ide_global.bas");}while(r); -do{ -tmp_long=array_check(( 2 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]); -if (!new_error) 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(34,80,"ide_global.bas");}while(r); -do{ -tmp_long=array_check(( 3 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]); -if (!new_error) 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(34,81,"ide_global.bas");}while(r); -do{ -tmp_long=array_check(( 3 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]); -if (!new_error) 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(34,82,"ide_global.bas");}while(r); -do{ -tmp_long=array_check(( 4 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]); -if (!new_error) 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(34,83,"ide_global.bas");}while(r); -do{ -tmp_long=array_check(( 4 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]); -if (!new_error) 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(34,84,"ide_global.bas");}while(r); -do{ -tmp_long=array_check(( 5 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]); -if (!new_error) 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(34,85,"ide_global.bas");}while(r); -do{ -tmp_long=array_check(( 5 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]); -if (!new_error) 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(34,86,"ide_global.bas");}while(r); -do{ -tmp_long=array_check(( 6 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]); -if (!new_error) 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(34,87,"ide_global.bas");}while(r); -do{ -tmp_long=array_check(( 6 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]); -if (!new_error) 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(34,88,"ide_global.bas");}while(r); -do{ -tmp_long=array_check(( 7 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]); -if (!new_error) 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(34,89,"ide_global.bas");}while(r); -do{ -tmp_long=array_check(( 7 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]); -if (!new_error) 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(34,90,"ide_global.bas");}while(r); -do{ -tmp_long=array_check(( 8 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]); -if (!new_error) 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(34,91,"ide_global.bas");}while(r); -do{ -tmp_long=array_check(( 8 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]); -if (!new_error) 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(34,92,"ide_global.bas");}while(r); -do{ -tmp_long=array_check(( 9 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]); -if (!new_error) 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(34,93,"ide_global.bas");}while(r); -do{ -tmp_long=array_check(( 9 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]); -if (!new_error) 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(34,94,"ide_global.bas");}while(r); -do{ -tmp_long=array_check(( 10 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]); -if (!new_error) 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(34,95,"ide_global.bas");}while(r); -do{ -tmp_long=array_check(( 10 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]); -if (!new_error) 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(34,96,"ide_global.bas");}while(r); -do{ -tmp_long=array_check(( 11 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]); -if (!new_error) 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(34,97,"ide_global.bas");}while(r); -do{ -tmp_long=array_check(( 11 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]); -if (!new_error) 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(34,98,"ide_global.bas");}while(r); -do{ -tmp_long=array_check(( 12 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]); -if (!new_error) 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(34,99,"ide_global.bas");}while(r); -do{ -tmp_long=array_check(( 12 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]); -if (!new_error) 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(34,100,"ide_global.bas");}while(r); -do{ -tmp_long=array_check(( 13 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]); -if (!new_error) 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(34,101,"ide_global.bas");}while(r); -do{ -tmp_long=array_check(( 13 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]); -if (!new_error) 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(34,102,"ide_global.bas");}while(r); -do{ -tmp_long=array_check(( 14 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]); -if (!new_error) 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(34,103,"ide_global.bas");}while(r); -do{ -tmp_long=array_check(( 14 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]); -if (!new_error) 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(34,104,"ide_global.bas");}while(r); -do{ -tmp_long=array_check(( 15 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]); -if (!new_error) 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(34,105,"ide_global.bas");}while(r); -do{ -tmp_long=array_check(( 15 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]); -if (!new_error) 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(34,106,"ide_global.bas");}while(r); -do{ -tmp_long=array_check(( 16 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]); -if (!new_error) 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(34,107,"ide_global.bas");}while(r); -do{ -tmp_long=array_check(( 16 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]); -if (!new_error) 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(34,108,"ide_global.bas");}while(r); -do{ -tmp_long=array_check(( 17 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]); -if (!new_error) 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(34,109,"ide_global.bas");}while(r); -do{ -tmp_long=array_check(( 17 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]); -if (!new_error) 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(34,110,"ide_global.bas");}while(r); -do{ -tmp_long=array_check(( 18 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]); -if (!new_error) 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(34,111,"ide_global.bas");}while(r); -do{ -tmp_long=array_check(( 18 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]); -if (!new_error) 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(34,112,"ide_global.bas");}while(r); -do{ -tmp_long=array_check(( 19 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]); -if (!new_error) 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(34,113,"ide_global.bas");}while(r); -do{ -tmp_long=array_check(( 19 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]); -if (!new_error) 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(34,114,"ide_global.bas");}while(r); -do{ -tmp_long=array_check(( 20 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]); -if (!new_error) 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(34,115,"ide_global.bas");}while(r); -do{ -tmp_long=array_check(( 20 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]); -if (!new_error) 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(34,116,"ide_global.bas");}while(r); -do{ -tmp_long=array_check(( 21 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]); -if (!new_error) 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(34,117,"ide_global.bas");}while(r); -do{ -tmp_long=array_check(( 21 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]); -if (!new_error) 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(34,118,"ide_global.bas");}while(r); -do{ -tmp_long=array_check(( 22 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]); -if (!new_error) 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(34,119,"ide_global.bas");}while(r); -do{ -tmp_long=array_check(( 22 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]); -if (!new_error) 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(34,120,"ide_global.bas");}while(r); -do{ -tmp_long=array_check(( 23 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]); -if (!new_error) 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(34,121,"ide_global.bas");}while(r); -do{ -tmp_long=array_check(( 23 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]); -if (!new_error) 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(34,122,"ide_global.bas");}while(r); -do{ -tmp_long=array_check(( 24 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]); -if (!new_error) 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(34,123,"ide_global.bas");}while(r); -do{ -tmp_long=array_check(( 24 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]); -if (!new_error) 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(34,124,"ide_global.bas");}while(r); -do{ -tmp_long=array_check(( 25 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]); -if (!new_error) 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(34,125,"ide_global.bas");}while(r); -do{ -tmp_long=array_check(( 25 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]); -if (!new_error) 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(34,126,"ide_global.bas");}while(r); -do{ -tmp_long=array_check(( 26 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]); -if (!new_error) 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(34,127,"ide_global.bas");}while(r); -do{ -tmp_long=array_check(( 26 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]); -if (!new_error) 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(34,128,"ide_global.bas");}while(r); -do{ -tmp_long=array_check(( 27 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]); -if (!new_error) 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(34,129,"ide_global.bas");}while(r); -do{ -tmp_long=array_check(( 27 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]); -if (!new_error) 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(34,130,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,132,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,133,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,134,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,1,"syntax_highlighter_list.bas");}while(r); -do{ -qbs_set(__STRING_LISTOFKEYWORDS,qbs_new_txt_len("@?@$CHECKING@$ERROR@$CONSOLE@ONLY@$DYNAMIC@$ELSE@$ELSEIF@$END@$ENDIF@$EXEICON@$IF@$INCLUDE@$LET@$RESIZE@$SCREENHIDE@$SCREENSHOW@$STATIC@$VERSIONINFO@$VIRTUALKEYBOARD@ABS@ABSOLUTE@ACCESS@ALIAS@AND@APPEND@AS@ASC@ATN@BASE@BEEP@BINARY@BLOAD@BSAVE@BYVAL@CALL@CALLS@CASE@IS@CDBL@CDECL@CHAIN@CHDIR@CHR$@CINT@CIRCLE@CLEAR@CLNG@CLOSE@CLS@COLOR@COM@COMMAND$@COMMON@CONST@COS@CSNG@CSRLIN@CUSTOMTYPE@CVD@CVDMBF@CVI@CVL@CVS@CVSMBF@DATA@DATE$@DECLARE@DEF@DEFDBL@DEFINT@DEFLNG@DEFSNG@DEFSTR@DIM@DO@DOUBLE@DRAW@DYNAMIC@ELSE@ELSEIF@END@ENDIF@ENVIRON@ENVIRON$@EOF@EQV@ERASE@ERDEV@ERDEV$@ERL@ERR@ERROR@EVERYCASE@EXIT@EXP@FIELD@FILEATTR@FILES@FIX@FN@FOR@FRE@FREE@FREEFILE@FUNCTION@GET@GOSUB@GOTO@HEX$@IF@IMP@INKEY$@INP@INPUT@INPUT$@INSTR@INT@INTEGER@INTERRUPT@INTERRUPTX@IOCTL@IOCTL$@KEY@KILL@LBOUND@LCASE$@LEFT$@LEN@LET@LIBRARY@LINE@LIST@LOC@LOCATE@LOCK@LOF@LOG@LONG@LOOP@LPOS@LPRINT@LSET@LTRIM$@MID$@MKD$@MKDIR@MKDMBF$@MKI$@MKL$@MKS$@MKSMBF$@MOD@NAME@NEXT@NOT@OCT$@OFF@ON@OPEN@OPTION@OR@OUT@OUTPUT@PAINT@PALETTE@PCOPY@PEEK@PEN@PLAY@PMAP@POINT@POKE@POS@PRESET@PRINT@PSET@PUT@RANDOM@RANDOMIZE@READ@REDIM@REM@RESET@RESTORE@RESUME@RETURN@RIGHT$@RMDIR@RND@RSET@RTRIM$@RUN@SADD@SCREEN@SEEK@SEG@SELECT@SETMEM@SGN@SHARED@SHELL@SIGNAL@SIN@SINGLE@SLEEP@SOUND@SPACE$@SPC@SQR@STATIC@STEP@STICK@STOP@STR$@STRIG@STRING@STRING$@SUB@SWAP@SYSTEM@TAB@TAN@THEN@TIME$@TIMER@TO@TROFF@TRON@TYPE@UBOUND@UCASE$@UEVENT@UNLOCK@UNTIL@USING@VAL@VARPTR@VARPTR$@VARSEG@VIEW@WAIT@WEND@WHILE@WIDTH@WINDOW@WRITE@XOR@_ACOS@_ACOSH@_ALPHA@_ALPHA32@_ARCCOT@_ARCCSC@_ARCSEC@_ASIN@_ASINH@_ATAN2@_ATANH@_AUTODISPLAY@_AXIS@_BACKGROUNDCOLOR@_BIN$@_BIT@_BLEND@_BLINK@_BLUE@_BLUE32@_BUTTON@_BUTTONCHANGE@_BYTE@_CEIL@_CLEARCOLOR@_CLIP@_CLIPBOARD$@_CLIPBOARDIMAGE@_COMMANDCOUNT@_CONNECTED@_CONNECTIONADDRESS$@_CONNECTIONADDRESS@_CONSOLE@_CONSOLETITLE@_CONTINUE@_CONTROLCHR@_COPYIMAGE@_COPYPALETTE@_COSH@_COT@_COTH@_CSC@_CSCH@_CV@_CWD$@_D2G@_D2R@_DEFAULTCOLOR@_DEFINE@_DELAY@_DEPTHBUFFER@_DESKTOPHEIGHT@_DESKTOPWIDTH@_DEST@_DEVICE$@_DEVICEINPUT@_DEVICES@_DIR$@_DIREXISTS@_DISPLAY@_DISPLAYORDER@_DONTBLEND@_DONTWAIT@",2050)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,2,"syntax_highlighter_list.bas");}while(r); -do{ -qbs_set(__STRING_LISTOFKEYWORDS,qbs_add(__STRING_LISTOFKEYWORDS,qbs_new_txt_len("_ERRORLINE@_ERRORMESSAGE$@_EXIT@_EXPLICIT@_EXPLICITARRAY@_FILEEXISTS@_FLOAT@_FONT@_FONTHEIGHT@_FONTWIDTH@_FREEFONT@_FREEIMAGE@_FREETIMER@_FULLSCREEN@_G2D@_G2R@_GLRENDER@_GREEN@_GREEN32@_HEIGHT@_HIDE@_HYPOT@_ICON@_INCLERRORFILE$@_INCLERRORLINE@_INTEGER64@_KEYCLEAR@_KEYDOWN@_KEYHIT@_LASTAXIS@_LASTBUTTON@_LASTWHEEL@_LIMIT@_LOADFONT@_LOADIMAGE@_MAPTRIANGLE@_MAPUNICODE@_MEM@_MEMCOPY@_MEMELEMENT@_MEMEXISTS@_MEMFILL@_MEMFREE@_MEMGET@_MEMIMAGE@_MEMSOUND@_MEMNEW@_MEMPUT@_MIDDLE@_MK$@_MOUSEBUTTON@_MOUSEHIDE@_MOUSEINPUT@_MOUSEMOVE@_MOUSEMOVEMENTX@_MOUSEMOVEMENTY@_MOUSEPIPEOPEN@_MOUSESHOW@_MOUSEWHEEL@_MOUSEX@_MOUSEY@_NEWIMAGE@_OFFSET@_OPENCLIENT@_OPENCONNECTION@_OPENHOST@_OS$@_PALETTECOLOR@_PI@_PIXELSIZE@_PRESERVE@_PRINTIMAGE@_PRINTMODE@_PRINTSTRING@_PRINTWIDTH@_PUTIMAGE@_R2D@_R2G@_RED@_RED32@_RESIZE@_RESIZEHEIGHT@_RESIZEWIDTH@_RGB@_RGB32@_RGBA@_RGBA32@_ROUND@_SCREENCLICK@_SCREENEXISTS@_SCREENHIDE@_SCREENICON@_SCREENIMAGE@_SCREENMOVE@_SCREENPRINT@_SCREENSHOW@_SCREENX@_SCREENY@_SEC@_SECH@_SETALPHA@_SHELLHIDE@_SINH@_SNDBAL@_SNDCLOSE@_SNDCOPY@_SNDGETPOS@_SNDLEN@_SNDLIMIT@_SNDLOOP@_SNDOPEN@_SNDOPENRAW@_SNDPAUSE@_SNDPAUSED@_SNDPLAY@_SNDPLAYCOPY@_SNDPLAYFILE@_SNDPLAYING@_SNDRATE@_SNDRAW@_SNDRAWDONE@_SNDRAWLEN@_SNDSETPOS@_SNDSTOP@_SNDVOL@_SOURCE@_STARTDIR$@_STRCMP@_STRICMP@_TANH@_TITLE@_TITLE$@_UNSIGNED@_WHEEL@_WIDTH@_WINDOWHANDLE@_WINDOWHASFOCUS@_GLACCUM@_GLALPHAFUNC@_GLARETEXTURESRESIDENT@_GLARRAYELEMENT@_GLBEGIN@_GLBINDTEXTURE@_GLBITMAP@_GLBLENDFUNC@_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@",2074))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,3,"syntax_highlighter_list.bas");}while(r); -do{ -qbs_set(__STRING_LISTOFKEYWORDS,qbs_add(__STRING_LISTOFKEYWORDS,qbs_new_txt_len("_GLCOPYTEXSUBIMAGE2D@_GLCULLFACE@_GLDELETELISTS@_GLDELETETEXTURES@_GLDEPTHFUNC@_GLDEPTHMASK@_GLDEPTHRANGE@_GLDISABLE@_GLDISABLECLIENTSTATE@_GLDRAWARRAYS@_GLDRAWBUFFER@_GLDRAWELEMENTS@_GLDRAWPIXELS@_GLEDGEFLAG@_GLEDGEFLAGPOINTER@_GLEDGEFLAGV@_GLENABLE@_GLENABLECLIENTSTATE@_GLEND@_GLENDLIST@_GLEVALCOORD1D@_GLEVALCOORD1DV@_GLEVALCOORD1F@_GLEVALCOORD1FV@_GLEVALCOORD2D@_GLEVALCOORD2DV@_GLEVALCOORD2F@_GLEVALCOORD2FV@_GLEVALMESH1@_GLEVALMESH2@_GLEVALPOINT1@_GLEVALPOINT2@_GLFEEDBACKBUFFER@_GLFINISH@_GLFLUSH@_GLFOGF@_GLFOGFV@_GLFOGI@_GLFOGIV@_GLFRONTFACE@_GLFRUSTUM@_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@_GLHINT@_GLINDEXMASK@_GLINDEXPOINTER@_GLINDEXD@_GLINDEXDV@_GLINDEXF@_GLINDEXFV@_GLINDEXI@_GLINDEXIV@_GLINDEXS@_GLINDEXSV@_GLINDEXUB@_GLINDEXUBV@_GLINITNAMES@_GLINTERLEAVEDARRAYS@_GLISENABLED@_GLISLIST@_GLISTEXTURE@_GLLIGHTMODELF@_GLLIGHTMODELFV@_GLLIGHTMODELI@_GLLIGHTMODELIV@_GLLIGHTF@_GLLIGHTFV@_GLLIGHTI@_GLLIGHTIV@_GLLINESTIPPLE@_GLLINEWIDTH@_GLLISTBASE@_GLLOADIDENTITY@_GLLOADMATRIXD@_GLLOADMATRIXF@_GLLOADNAME@_GLLOGICOP@_GLMAP1D@_GLMAP1F@_GLMAP2D@_GLMAP2F@_GLMAPGRID1D@_GLMAPGRID1F@_GLMAPGRID2D@_GLMAPGRID2F@_GLMATERIALF@_GLMATERIALFV@_GLMATERIALI@_GLMATERIALIV@_GLMATRIXMODE@_GLMULTMATRIXD@_GLMULTMATRIXF@_GLNEWLIST@_GLNORMAL3B@_GLNORMAL3BV@_GLNORMAL3D@_GLNORMAL3DV@_GLNORMAL3F@_GLNORMAL3FV@_GLNORMAL3I@_GLNORMAL3IV@_GLNORMAL3S@_GLNORMAL3SV@_GLNORMALPOINTER@_GLORTHO@_GLPASSTHROUGH@_GLPIXELMAPFV@_GLPIXELMAPUIV@_GLPIXELMAPUSV@_GLPIXELSTOREF@_GLPIXELSTOREI@_GLPIXELTRANSFERF@_GLPIXELTRANSFERI@_GLPIXELZOOM@_GLPOINTSIZE@_GLPOLYGONMODE@_GLPOLYGONOFFSET@_GLPOLYGONSTIPPLE@",2035))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,4,"syntax_highlighter_list.bas");}while(r); -do{ -qbs_set(__STRING_LISTOFKEYWORDS,qbs_add(__STRING_LISTOFKEYWORDS,qbs_new_txt_len("_GLPOPATTRIB@_GLPOPCLIENTATTRIB@_GLPOPMATRIX@_GLPOPNAME@_GLPRIORITIZETEXTURES@_GLPUSHATTRIB@_GLPUSHCLIENTATTRIB@_GLPUSHMATRIX@_GLPUSHNAME@_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@_GLSCALED@_GLSCALEF@_GLSCISSOR@_GLSELECTBUFFER@_GLSHADEMODEL@_GLSTENCILFUNC@_GLSTENCILMASK@_GLSTENCILOP@_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@_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@SMOOTH@STRETCH@_ANTICLOCKWISE@_BEHIND@_CLEAR@_FILLBACKGROUND@_GLUPERSPECTIVE@_HARDWARE@_HARDWARE1@_KEEPBACKGROUND@_NONE@_OFF@_ONLY@_ONLYBACKGROUND@_ONTOP@_SEAMLESS@_SMOOTH@_SMOOTHSHRUNK@_SMOOTHSTRETCHED@",2044))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,5,"syntax_highlighter_list.bas");}while(r); -do{ -qbs_set(__STRING_LISTOFKEYWORDS,qbs_add(__STRING_LISTOFKEYWORDS,qbs_new_txt_len("_SOFTWARE@_SQUAREPIXELS@_STRETCH@_ALLOWFULLSCREEN@_ALL@_ECHO@_INSTRREV@_TRIM$@_ACCEPTFILEDROP@_FINISHDROP@_TOTALDROPPEDFILES@_DROPPEDFILE@_DROPPEDFILE$@_SHR@_SHL@_ROR@_ROL@",172))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,6,"syntax_highlighter_list.bas");}while(r); -do{ -qbs_set(__STRING_LISTOFKEYWORDS,qbs_add(__STRING_LISTOFKEYWORDS,qbs_new_txt_len("_DEFLATE$@_INFLATE$@_READBIT@_RESETBIT@_SETBIT@_TOGGLEBIT@$ASSERTS@_ASSERT@_CAPSLOCK@_NUMLOCK@_SCROLLLOCK@_TOGGLE@_CONSOLEFONT@_CONSOLECURSOR@_CONSOLEINPUT@_CINP@$NOPREFIX@$COLOR@$DEBUG@_ENVIRONCOUNT@$UNSTABLE@$MIDISOUNDFONT@",225))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,7,"syntax_highlighter_list.bas");}while(r); -do{ -qbs_set(__STRING_LISTOFKEYWORDS,qbs_add(__STRING_LISTOFKEYWORDS,qbs_new_txt_len("_NOTIFYPOPUP@_MESSAGEBOX@_INPUTBOX$@_SELECTFOLDERDIALOG$@_COLORCHOOSERDIALOG@_OPENFILEDIALOG$@_SAVEFILEDIALOG$@",111))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,8,"syntax_highlighter_list.bas");}while(r); -do{ -qbs_set(__STRING_LISTOFKEYWORDS,qbs_add(__STRING_LISTOFKEYWORDS,qbs_new_txt_len("_STATUSCODE@_SNDNEW@_SCALEDWIDTH@_SCALEDHEIGHT@",47))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(34,9,"syntax_highlighter_list.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,142,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,143,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,144,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,145,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,146,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,147,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,148,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,149,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,150,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,151,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,152,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,153,"ide_global.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(34,75,"ide_global.bas");}while(r); +do{ +tmp_long=array_check(( 1 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]); +if (!new_error) 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(34,77,"ide_global.bas");}while(r); +do{ +tmp_long=array_check(( 1 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]); +if (!new_error) 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(34,78,"ide_global.bas");}while(r); +do{ +tmp_long=array_check(( 2 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]); +if (!new_error) 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(34,79,"ide_global.bas");}while(r); +do{ +tmp_long=array_check(( 2 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]); +if (!new_error) 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(34,80,"ide_global.bas");}while(r); +do{ +tmp_long=array_check(( 3 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]); +if (!new_error) 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(34,81,"ide_global.bas");}while(r); +do{ +tmp_long=array_check(( 3 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]); +if (!new_error) 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(34,82,"ide_global.bas");}while(r); +do{ +tmp_long=array_check(( 4 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]); +if (!new_error) 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(34,83,"ide_global.bas");}while(r); +do{ +tmp_long=array_check(( 4 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]); +if (!new_error) 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(34,84,"ide_global.bas");}while(r); +do{ +tmp_long=array_check(( 5 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]); +if (!new_error) 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(34,85,"ide_global.bas");}while(r); +do{ +tmp_long=array_check(( 5 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]); +if (!new_error) 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(34,86,"ide_global.bas");}while(r); +do{ +tmp_long=array_check(( 6 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]); +if (!new_error) 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(34,87,"ide_global.bas");}while(r); +do{ +tmp_long=array_check(( 6 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]); +if (!new_error) 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(34,88,"ide_global.bas");}while(r); +do{ +tmp_long=array_check(( 7 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]); +if (!new_error) 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(34,89,"ide_global.bas");}while(r); +do{ +tmp_long=array_check(( 7 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]); +if (!new_error) 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(34,90,"ide_global.bas");}while(r); +do{ +tmp_long=array_check(( 8 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]); +if (!new_error) 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(34,91,"ide_global.bas");}while(r); +do{ +tmp_long=array_check(( 8 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]); +if (!new_error) 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(34,92,"ide_global.bas");}while(r); +do{ +tmp_long=array_check(( 9 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]); +if (!new_error) 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(34,93,"ide_global.bas");}while(r); +do{ +tmp_long=array_check(( 9 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]); +if (!new_error) 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(34,94,"ide_global.bas");}while(r); +do{ +tmp_long=array_check(( 10 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]); +if (!new_error) 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(34,95,"ide_global.bas");}while(r); +do{ +tmp_long=array_check(( 10 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]); +if (!new_error) 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(34,96,"ide_global.bas");}while(r); +do{ +tmp_long=array_check(( 11 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]); +if (!new_error) 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(34,97,"ide_global.bas");}while(r); +do{ +tmp_long=array_check(( 11 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]); +if (!new_error) 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(34,98,"ide_global.bas");}while(r); +do{ +tmp_long=array_check(( 12 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]); +if (!new_error) 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(34,99,"ide_global.bas");}while(r); +do{ +tmp_long=array_check(( 12 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]); +if (!new_error) 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(34,100,"ide_global.bas");}while(r); +do{ +tmp_long=array_check(( 13 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]); +if (!new_error) 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(34,101,"ide_global.bas");}while(r); +do{ +tmp_long=array_check(( 13 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]); +if (!new_error) 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(34,102,"ide_global.bas");}while(r); +do{ +tmp_long=array_check(( 14 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]); +if (!new_error) 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(34,103,"ide_global.bas");}while(r); +do{ +tmp_long=array_check(( 14 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]); +if (!new_error) 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(34,104,"ide_global.bas");}while(r); +do{ +tmp_long=array_check(( 15 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]); +if (!new_error) 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(34,105,"ide_global.bas");}while(r); +do{ +tmp_long=array_check(( 15 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]); +if (!new_error) 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(34,106,"ide_global.bas");}while(r); +do{ +tmp_long=array_check(( 16 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]); +if (!new_error) 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(34,107,"ide_global.bas");}while(r); +do{ +tmp_long=array_check(( 16 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]); +if (!new_error) 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(34,108,"ide_global.bas");}while(r); +do{ +tmp_long=array_check(( 17 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]); +if (!new_error) 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(34,109,"ide_global.bas");}while(r); +do{ +tmp_long=array_check(( 17 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]); +if (!new_error) 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(34,110,"ide_global.bas");}while(r); +do{ +tmp_long=array_check(( 18 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]); +if (!new_error) 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(34,111,"ide_global.bas");}while(r); +do{ +tmp_long=array_check(( 18 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]); +if (!new_error) 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(34,112,"ide_global.bas");}while(r); +do{ +tmp_long=array_check(( 19 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]); +if (!new_error) 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(34,113,"ide_global.bas");}while(r); +do{ +tmp_long=array_check(( 19 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]); +if (!new_error) 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(34,114,"ide_global.bas");}while(r); +do{ +tmp_long=array_check(( 20 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]); +if (!new_error) 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(34,115,"ide_global.bas");}while(r); +do{ +tmp_long=array_check(( 20 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]); +if (!new_error) 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(34,116,"ide_global.bas");}while(r); +do{ +tmp_long=array_check(( 21 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]); +if (!new_error) 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(34,117,"ide_global.bas");}while(r); +do{ +tmp_long=array_check(( 21 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]); +if (!new_error) 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(34,118,"ide_global.bas");}while(r); +do{ +tmp_long=array_check(( 22 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]); +if (!new_error) 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(34,119,"ide_global.bas");}while(r); +do{ +tmp_long=array_check(( 22 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]); +if (!new_error) 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(34,120,"ide_global.bas");}while(r); +do{ +tmp_long=array_check(( 23 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]); +if (!new_error) 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(34,121,"ide_global.bas");}while(r); +do{ +tmp_long=array_check(( 23 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]); +if (!new_error) 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(34,122,"ide_global.bas");}while(r); +do{ +tmp_long=array_check(( 24 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]); +if (!new_error) 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(34,123,"ide_global.bas");}while(r); +do{ +tmp_long=array_check(( 24 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]); +if (!new_error) 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(34,124,"ide_global.bas");}while(r); +do{ +tmp_long=array_check(( 25 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]); +if (!new_error) 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(34,125,"ide_global.bas");}while(r); +do{ +tmp_long=array_check(( 25 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]); +if (!new_error) 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(34,126,"ide_global.bas");}while(r); +do{ +tmp_long=array_check(( 26 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]); +if (!new_error) 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(34,127,"ide_global.bas");}while(r); +do{ +tmp_long=array_check(( 26 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]); +if (!new_error) 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(34,128,"ide_global.bas");}while(r); +do{ +tmp_long=array_check(( 27 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5]); +if (!new_error) 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(34,129,"ide_global.bas");}while(r); +do{ +tmp_long=array_check(( 27 )-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5]); +if (!new_error) 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(34,130,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,132,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,133,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,134,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,1,"syntax_highlighter_list.bas");}while(r); +do{ +qbs_set(__STRING_LISTOFKEYWORDS,qbs_new_txt_len("@?@$CHECKING@$ERROR@$CONSOLE@ONLY@$DYNAMIC@$ELSE@$ELSEIF@$END@$ENDIF@$EXEICON@$IF@$INCLUDE@$LET@$RESIZE@$SCREENHIDE@$SCREENSHOW@$STATIC@$VERSIONINFO@$VIRTUALKEYBOARD@ABS@ABSOLUTE@ACCESS@ALIAS@AND@APPEND@AS@ASC@ATN@BASE@BEEP@BINARY@BLOAD@BSAVE@BYVAL@CALL@CALLS@CASE@IS@CDBL@CDECL@CHAIN@CHDIR@CHR$@CINT@CIRCLE@CLEAR@CLNG@CLOSE@CLS@COLOR@COM@COMMAND$@COMMON@CONST@COS@CSNG@CSRLIN@CUSTOMTYPE@CVD@CVDMBF@CVI@CVL@CVS@CVSMBF@DATA@DATE$@DECLARE@DEF@DEFDBL@DEFINT@DEFLNG@DEFSNG@DEFSTR@DIM@DO@DOUBLE@DRAW@DYNAMIC@ELSE@ELSEIF@END@ENDIF@ENVIRON@ENVIRON$@EOF@EQV@ERASE@ERDEV@ERDEV$@ERL@ERR@ERROR@EVERYCASE@EXIT@EXP@FIELD@FILEATTR@FILES@FIX@FN@FOR@FRE@FREE@FREEFILE@FUNCTION@GET@GOSUB@GOTO@HEX$@IF@IMP@INKEY$@INP@INPUT@INPUT$@INSTR@INT@INTEGER@INTERRUPT@INTERRUPTX@IOCTL@IOCTL$@KEY@KILL@LBOUND@LCASE$@LEFT$@LEN@LET@LIBRARY@LINE@LIST@LOC@LOCATE@LOCK@LOF@LOG@LONG@LOOP@LPOS@LPRINT@LSET@LTRIM$@MID$@MKD$@MKDIR@MKDMBF$@MKI$@MKL$@MKS$@MKSMBF$@MOD@NAME@NEXT@NOT@OCT$@OFF@ON@OPEN@OPTION@OR@OUT@OUTPUT@PAINT@PALETTE@PCOPY@PEEK@PEN@PLAY@PMAP@POINT@POKE@POS@PRESET@PRINT@PSET@PUT@RANDOM@RANDOMIZE@READ@REDIM@REM@RESET@RESTORE@RESUME@RETURN@RIGHT$@RMDIR@RND@RSET@RTRIM$@RUN@SADD@SCREEN@SEEK@SEG@SELECT@SETMEM@SGN@SHARED@SHELL@SIGNAL@SIN@SINGLE@SLEEP@SOUND@SPACE$@SPC@SQR@STATIC@STEP@STICK@STOP@STR$@STRIG@STRING@STRING$@SUB@SWAP@SYSTEM@TAB@TAN@THEN@TIME$@TIMER@TO@TROFF@TRON@TYPE@UBOUND@UCASE$@UEVENT@UNLOCK@UNTIL@USING@VAL@VARPTR@VARPTR$@VARSEG@VIEW@WAIT@WEND@WHILE@WIDTH@WINDOW@WRITE@XOR@_ACOS@_ACOSH@_ALPHA@_ALPHA32@_ARCCOT@_ARCCSC@_ARCSEC@_ASIN@_ASINH@_ATAN2@_ATANH@_AUTODISPLAY@_AXIS@_BACKGROUNDCOLOR@_BIN$@_BIT@_BLEND@_BLINK@_BLUE@_BLUE32@_BUTTON@_BUTTONCHANGE@_BYTE@_CEIL@_CLEARCOLOR@_CLIP@_CLIPBOARD$@_CLIPBOARDIMAGE@_COMMANDCOUNT@_CONNECTED@_CONNECTIONADDRESS$@_CONNECTIONADDRESS@_CONSOLE@_CONSOLETITLE@_CONTINUE@_CONTROLCHR@_COPYIMAGE@_COPYPALETTE@_COSH@_COT@_COTH@_CSC@_CSCH@_CV@_CWD$@_D2G@_D2R@_DEFAULTCOLOR@_DEFINE@_DELAY@_DEPTHBUFFER@_DESKTOPHEIGHT@_DESKTOPWIDTH@_DEST@_DEVICE$@_DEVICEINPUT@_DEVICES@_DIR$@_DIREXISTS@_DISPLAY@_DISPLAYORDER@_DONTBLEND@_DONTWAIT@",2050)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,2,"syntax_highlighter_list.bas");}while(r); +do{ +qbs_set(__STRING_LISTOFKEYWORDS,qbs_add(__STRING_LISTOFKEYWORDS,qbs_new_txt_len("_ERRORLINE@_ERRORMESSAGE$@_EXIT@_EXPLICIT@_EXPLICITARRAY@_FILEEXISTS@_FLOAT@_FONT@_FONTHEIGHT@_FONTWIDTH@_FREEFONT@_FREEIMAGE@_FREETIMER@_FULLSCREEN@_G2D@_G2R@_GLRENDER@_GREEN@_GREEN32@_HEIGHT@_HIDE@_HYPOT@_ICON@_INCLERRORFILE$@_INCLERRORLINE@_INTEGER64@_KEYCLEAR@_KEYDOWN@_KEYHIT@_LASTAXIS@_LASTBUTTON@_LASTWHEEL@_LIMIT@_LOADFONT@_LOADIMAGE@_MAPTRIANGLE@_MAPUNICODE@_MEM@_MEMCOPY@_MEMELEMENT@_MEMEXISTS@_MEMFILL@_MEMFREE@_MEMGET@_MEMIMAGE@_MEMSOUND@_MEMNEW@_MEMPUT@_MIDDLE@_MK$@_MOUSEBUTTON@_MOUSEHIDE@_MOUSEINPUT@_MOUSEMOVE@_MOUSEMOVEMENTX@_MOUSEMOVEMENTY@_MOUSEPIPEOPEN@_MOUSESHOW@_MOUSEWHEEL@_MOUSEX@_MOUSEY@_NEWIMAGE@_OFFSET@_OPENCLIENT@_OPENCONNECTION@_OPENHOST@_OS$@_PALETTECOLOR@_PI@_PIXELSIZE@_PRESERVE@_PRINTIMAGE@_PRINTMODE@_PRINTSTRING@_PRINTWIDTH@_PUTIMAGE@_R2D@_R2G@_RED@_RED32@_RESIZE@_RESIZEHEIGHT@_RESIZEWIDTH@_RGB@_RGB32@_RGBA@_RGBA32@_ROUND@_SCREENCLICK@_SCREENEXISTS@_SCREENHIDE@_SCREENICON@_SCREENIMAGE@_SCREENMOVE@_SCREENPRINT@_SCREENSHOW@_SCREENX@_SCREENY@_SEC@_SECH@_SETALPHA@_SHELLHIDE@_SINH@_SNDBAL@_SNDCLOSE@_SNDCOPY@_SNDGETPOS@_SNDLEN@_SNDLIMIT@_SNDLOOP@_SNDOPEN@_SNDOPENRAW@_SNDPAUSE@_SNDPAUSED@_SNDPLAY@_SNDPLAYCOPY@_SNDPLAYFILE@_SNDPLAYING@_SNDRATE@_SNDRAW@_SNDRAWDONE@_SNDRAWLEN@_SNDSETPOS@_SNDSTOP@_SNDVOL@_SOURCE@_STARTDIR$@_STRCMP@_STRICMP@_TANH@_TITLE@_TITLE$@_UNSIGNED@_WHEEL@_WIDTH@_WINDOWHANDLE@_WINDOWHASFOCUS@_GLACCUM@_GLALPHAFUNC@_GLARETEXTURESRESIDENT@_GLARRAYELEMENT@_GLBEGIN@_GLBINDTEXTURE@_GLBITMAP@_GLBLENDFUNC@_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@",2074))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,3,"syntax_highlighter_list.bas");}while(r); +do{ +qbs_set(__STRING_LISTOFKEYWORDS,qbs_add(__STRING_LISTOFKEYWORDS,qbs_new_txt_len("_GLCOPYTEXSUBIMAGE2D@_GLCULLFACE@_GLDELETELISTS@_GLDELETETEXTURES@_GLDEPTHFUNC@_GLDEPTHMASK@_GLDEPTHRANGE@_GLDISABLE@_GLDISABLECLIENTSTATE@_GLDRAWARRAYS@_GLDRAWBUFFER@_GLDRAWELEMENTS@_GLDRAWPIXELS@_GLEDGEFLAG@_GLEDGEFLAGPOINTER@_GLEDGEFLAGV@_GLENABLE@_GLENABLECLIENTSTATE@_GLEND@_GLENDLIST@_GLEVALCOORD1D@_GLEVALCOORD1DV@_GLEVALCOORD1F@_GLEVALCOORD1FV@_GLEVALCOORD2D@_GLEVALCOORD2DV@_GLEVALCOORD2F@_GLEVALCOORD2FV@_GLEVALMESH1@_GLEVALMESH2@_GLEVALPOINT1@_GLEVALPOINT2@_GLFEEDBACKBUFFER@_GLFINISH@_GLFLUSH@_GLFOGF@_GLFOGFV@_GLFOGI@_GLFOGIV@_GLFRONTFACE@_GLFRUSTUM@_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@_GLHINT@_GLINDEXMASK@_GLINDEXPOINTER@_GLINDEXD@_GLINDEXDV@_GLINDEXF@_GLINDEXFV@_GLINDEXI@_GLINDEXIV@_GLINDEXS@_GLINDEXSV@_GLINDEXUB@_GLINDEXUBV@_GLINITNAMES@_GLINTERLEAVEDARRAYS@_GLISENABLED@_GLISLIST@_GLISTEXTURE@_GLLIGHTMODELF@_GLLIGHTMODELFV@_GLLIGHTMODELI@_GLLIGHTMODELIV@_GLLIGHTF@_GLLIGHTFV@_GLLIGHTI@_GLLIGHTIV@_GLLINESTIPPLE@_GLLINEWIDTH@_GLLISTBASE@_GLLOADIDENTITY@_GLLOADMATRIXD@_GLLOADMATRIXF@_GLLOADNAME@_GLLOGICOP@_GLMAP1D@_GLMAP1F@_GLMAP2D@_GLMAP2F@_GLMAPGRID1D@_GLMAPGRID1F@_GLMAPGRID2D@_GLMAPGRID2F@_GLMATERIALF@_GLMATERIALFV@_GLMATERIALI@_GLMATERIALIV@_GLMATRIXMODE@_GLMULTMATRIXD@_GLMULTMATRIXF@_GLNEWLIST@_GLNORMAL3B@_GLNORMAL3BV@_GLNORMAL3D@_GLNORMAL3DV@_GLNORMAL3F@_GLNORMAL3FV@_GLNORMAL3I@_GLNORMAL3IV@_GLNORMAL3S@_GLNORMAL3SV@_GLNORMALPOINTER@_GLORTHO@_GLPASSTHROUGH@_GLPIXELMAPFV@_GLPIXELMAPUIV@_GLPIXELMAPUSV@_GLPIXELSTOREF@_GLPIXELSTOREI@_GLPIXELTRANSFERF@_GLPIXELTRANSFERI@_GLPIXELZOOM@_GLPOINTSIZE@_GLPOLYGONMODE@_GLPOLYGONOFFSET@_GLPOLYGONSTIPPLE@",2035))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,4,"syntax_highlighter_list.bas");}while(r); +do{ +qbs_set(__STRING_LISTOFKEYWORDS,qbs_add(__STRING_LISTOFKEYWORDS,qbs_new_txt_len("_GLPOPATTRIB@_GLPOPCLIENTATTRIB@_GLPOPMATRIX@_GLPOPNAME@_GLPRIORITIZETEXTURES@_GLPUSHATTRIB@_GLPUSHCLIENTATTRIB@_GLPUSHMATRIX@_GLPUSHNAME@_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@_GLSCALED@_GLSCALEF@_GLSCISSOR@_GLSELECTBUFFER@_GLSHADEMODEL@_GLSTENCILFUNC@_GLSTENCILMASK@_GLSTENCILOP@_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@_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@SMOOTH@STRETCH@_ANTICLOCKWISE@_BEHIND@_CLEAR@_FILLBACKGROUND@_GLUPERSPECTIVE@_HARDWARE@_HARDWARE1@_KEEPBACKGROUND@_NONE@_OFF@_ONLY@_ONLYBACKGROUND@_ONTOP@_SEAMLESS@_SMOOTH@_SMOOTHSHRUNK@_SMOOTHSTRETCHED@",2044))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,5,"syntax_highlighter_list.bas");}while(r); +do{ +qbs_set(__STRING_LISTOFKEYWORDS,qbs_add(__STRING_LISTOFKEYWORDS,qbs_new_txt_len("_SOFTWARE@_SQUAREPIXELS@_STRETCH@_ALLOWFULLSCREEN@_ALL@_ECHO@_INSTRREV@_TRIM$@_ACCEPTFILEDROP@_FINISHDROP@_TOTALDROPPEDFILES@_DROPPEDFILE@_DROPPEDFILE$@_SHR@_SHL@_ROR@_ROL@",172))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,6,"syntax_highlighter_list.bas");}while(r); +do{ +qbs_set(__STRING_LISTOFKEYWORDS,qbs_add(__STRING_LISTOFKEYWORDS,qbs_new_txt_len("_DEFLATE$@_INFLATE$@_READBIT@_RESETBIT@_SETBIT@_TOGGLEBIT@$ASSERTS@_ASSERT@_CAPSLOCK@_NUMLOCK@_SCROLLLOCK@_TOGGLE@_CONSOLEFONT@_CONSOLECURSOR@_CONSOLEINPUT@_CINP@$NOPREFIX@$COLOR@$DEBUG@_ENVIRONCOUNT@$UNSTABLE@$MIDISOUNDFONT@",225))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,7,"syntax_highlighter_list.bas");}while(r); +do{ +qbs_set(__STRING_LISTOFKEYWORDS,qbs_add(__STRING_LISTOFKEYWORDS,qbs_new_txt_len("_NOTIFYPOPUP@_MESSAGEBOX@_INPUTBOX$@_SELECTFOLDERDIALOG$@_COLORCHOOSERDIALOG@_OPENFILEDIALOG$@_SAVEFILEDIALOG$@",111))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,8,"syntax_highlighter_list.bas");}while(r); +do{ +qbs_set(__STRING_LISTOFKEYWORDS,qbs_add(__STRING_LISTOFKEYWORDS,qbs_new_txt_len("_STATUSCODE@_SNDNEW@_SCALEDWIDTH@_SCALEDHEIGHT@",47))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(34,9,"syntax_highlighter_list.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,142,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,143,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,144,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,145,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,146,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,147,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,148,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,149,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,150,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,151,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,152,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,153,"ide_global.bas");}while(r); +do{ if (__ARRAY_STRING_IDETXT[2]&2){ error(10); @@ -1984,39 +1984,39 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long]=(uint64)qbs_ne while(tmp_long--) ((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -} -if(!qbevent)break;evnt(34,154,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,155,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,156,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,157,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,158,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,159,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,160,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,161,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,162,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,163,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,164,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,165,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,166,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,167,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,168,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,169,"ide_global.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(34,154,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,155,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,156,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,157,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,158,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,159,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,160,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,161,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,162,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,163,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,164,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,165,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,166,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,167,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,168,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,169,"ide_global.bas");}while(r); +do{ if (__ARRAY_STRING_SUBFUNCLIST[2]&2){ error(10); @@ -2037,29 +2037,29 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_SUBFUNCLIST[0]))[tmp_long]=(uint64)q while(tmp_long--) ((uint64*)(__ARRAY_STRING_SUBFUNCLIST[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -} -if(!qbevent)break;evnt(34,170,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,171,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,172,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,173,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,174,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,175,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,176,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,177,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,178,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,211,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,212,"ide_global.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(34,170,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,171,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,172,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,173,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,174,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,175,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,176,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,177,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,178,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,211,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,212,"ide_global.bas");}while(r); +do{ if (__ARRAY_STRING_MENU[2]&2){ error(10); @@ -2083,9 +2083,9 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long]=(uint64)qbs_new_ while(tmp_long--) ((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -} -if(!qbevent)break;evnt(34,213,"ide_global.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(34,213,"ide_global.bas");}while(r); +do{ if (__ARRAY_STRING_MENUDESC[2]&2){ error(10); @@ -2109,9 +2109,9 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long]=(uint64)qbs_ while(tmp_long--) ((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -} -if(!qbevent)break;evnt(34,214,"ide_global.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(34,214,"ide_global.bas");}while(r); +do{ if (__ARRAY_LONG_MENUSIZE[2]&2){ error(10); @@ -2131,39 +2131,39 @@ if (!__ARRAY_LONG_MENUSIZE[0]) error(257); } __ARRAY_LONG_MENUSIZE[2]|=1; } -} -if(!qbevent)break;evnt(34,215,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,216,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,217,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,218,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,219,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,220,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,221,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,222,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,223,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,224,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,225,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,226,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,227,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,228,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,229,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,230,"ide_global.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(34,215,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,216,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,217,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,218,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,219,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,220,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,221,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,222,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,223,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,224,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,225,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,226,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,227,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,228,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,229,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,230,"ide_global.bas");}while(r); +do{ if (__ARRAY_STRING_COLORSCHEMES[2]&2){ error(10); @@ -2184,23 +2184,23 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[tmp_long]=(uint64) while(tmp_long--) ((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -} -if(!qbevent)break;evnt(34,231,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,232,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,233,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,234,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,235,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,236,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,237,"ide_global.bas");}while(r); -do{ -if(!qbevent)break;evnt(34,238,"ide_global.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(34,231,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,232,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,233,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,234,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,235,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,236,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,237,"ide_global.bas");}while(r); +do{ +if(!qbevent)break;evnt(34,238,"ide_global.bas");}while(r); +do{ if (__ARRAY_STRING_ONAME[2]&2){ error(10); @@ -2223,9 +2223,9 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long]=(uint64)qbs_new }else{ while(tmp_long--) ((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long]=(uint64)qbs_new(0,0); } -} -if(!qbevent)break;evnt(36);}while(r); -do{ +} +if(!qbevent)break;evnt(36);}while(r); +do{ if (__ARRAY_INTEGER_PL[2]&2){ error(10); @@ -2249,9 +2249,9 @@ __ARRAY_INTEGER_PL[0]=(ptrszint)calloc(__ARRAY_INTEGER_PL[5]*2,1); if (!__ARRAY_INTEGER_PL[0]) error(257); } __ARRAY_INTEGER_PL[2]|=1; -} -if(!qbevent)break;evnt(37);}while(r); -do{ +} +if(!qbevent)break;evnt(37);}while(r); +do{ if (__ARRAY_STRING_PP_TYPEMOD[2]&2){ error(10); @@ -2274,7 +2274,7 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long]=(uint64)qb }else{ while(tmp_long--) ((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long]=(uint64)qbs_new(0,0); } -} +} if (__ARRAY_STRING_PP_CONVERTEDMOD[2]&2){ error(10); @@ -2297,38 +2297,38 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long]=(uint }else{ while(tmp_long--) ((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long]=(uint64)qbs_new(0,0); } -} -if(!qbevent)break;evnt(38);}while(r); -do{ -SUB_SET_ORDEROFOPERATIONS(); -if(!qbevent)break;evnt(39);}while(r); -do{ -if(!qbevent)break;evnt(41);}while(r); -do{ -if(!qbevent)break;evnt(43);}while(r); -do{ -if(!qbevent)break;evnt(44);}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(45);}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(48);}while(r); -do{ -if(!qbevent)break;evnt(50);}while(r); -do{ -qbs_set(__STRING_NATIVEDATATYPES,qbs_new_txt_len("@_OFFSET@OFFSET@_UNSIGNED _OFFSET@UNSIGNED OFFSET@_BIT@BIT@_UNSIGNED _BIT@UNSIGNED BIT@_BYTE@_UNSIGNED _BYTE@BYTE@UNSIGNED BYTE@INTEGER@_UNSIGNED INTEGER@UNSIGNED INTEGER@LONG@_UNSIGNED LONG@UNSIGNED LONG@_INTEGER64@INTEGER64@_UNSIGNED _INTEGER64@UNSIGNED INTEGER64@SINGLE@DOUBLE@_FLOAT@FLOAT@STRING@",300)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(51);}while(r); -do{ -if(!qbevent)break;evnt(53);}while(r); -do{ -if(!qbevent)break;evnt(54);}while(r); -do{ -if(!qbevent)break;evnt(55);}while(r); -do{ +} +if(!qbevent)break;evnt(38);}while(r); +do{ +SUB_SET_ORDEROFOPERATIONS(); +if(!qbevent)break;evnt(39);}while(r); +do{ +if(!qbevent)break;evnt(41);}while(r); +do{ +if(!qbevent)break;evnt(43);}while(r); +do{ +if(!qbevent)break;evnt(44);}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(45);}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(48);}while(r); +do{ +if(!qbevent)break;evnt(50);}while(r); +do{ +qbs_set(__STRING_NATIVEDATATYPES,qbs_new_txt_len("@_OFFSET@OFFSET@_UNSIGNED _OFFSET@UNSIGNED OFFSET@_BIT@BIT@_UNSIGNED _BIT@UNSIGNED BIT@_BYTE@_UNSIGNED _BYTE@BYTE@UNSIGNED BYTE@INTEGER@_UNSIGNED INTEGER@UNSIGNED INTEGER@LONG@_UNSIGNED LONG@UNSIGNED LONG@_INTEGER64@INTEGER64@_UNSIGNED _INTEGER64@UNSIGNED INTEGER64@SINGLE@DOUBLE@_FLOAT@FLOAT@STRING@",300)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(51);}while(r); +do{ +if(!qbevent)break;evnt(53);}while(r); +do{ +if(!qbevent)break;evnt(54);}while(r); +do{ +if(!qbevent)break;evnt(55);}while(r); +do{ if (__ARRAY_LONG_EVERYCASESET[2]&2){ error(10); @@ -2352,9 +2352,9 @@ __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(57);}while(r); -do{ +} +if(!qbevent)break;evnt(57);}while(r); +do{ if (__ARRAY_LONG_SELECTCASEHASCASEBLOCK[2]&2){ error(10); @@ -2378,9 +2378,9 @@ __ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]=(ptrszint)calloc(__ARRAY_LONG_SELECTCASEH if (!__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]) error(257); } __ARRAY_LONG_SELECTCASEHASCASEBLOCK[2]|=1; -} -if(!qbevent)break;evnt(58);}while(r); -do{ +} +if(!qbevent)break;evnt(58);}while(r); +do{ if (__ARRAY_LONG_EXECLEVEL[2]&2){ error(10); @@ -2400,9 +2400,9 @@ if (!__ARRAY_LONG_EXECLEVEL[0]) error(257); } __ARRAY_LONG_EXECLEVEL[2]|=1; } -} -if(!qbevent)break;evnt(59);}while(r); -do{ +} +if(!qbevent)break;evnt(59);}while(r); +do{ if (__ARRAY_STRING_USERDEFINE[2]&2){ error(10); @@ -2428,9 +2428,9 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long]=(uint64)qb }else{ while(tmp_long--) ((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long]=(uint64)qbs_new(0,0); } -} -if(!qbevent)break;evnt(60);}while(r); -do{ +} +if(!qbevent)break;evnt(60);}while(r); +do{ if (__ARRAY_BYTE_INVALIDLINE[2]&2){ error(10); @@ -2454,9 +2454,9 @@ __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(61);}while(r); -do{ +} +if(!qbevent)break;evnt(61);}while(r); +do{ if (__ARRAY_BYTE_DEFINEELSE[2]&2){ error(10); @@ -2476,276 +2476,276 @@ if (!__ARRAY_BYTE_DEFINEELSE[0]) error(257); } __ARRAY_BYTE_DEFINEELSE[2]|=1; } -} -if(!qbevent)break;evnt(62);}while(r); -do{ -if(!qbevent)break;evnt(63);}while(r); -do{ -qbs_set(__STRING_USERDEFINELIST,qbs_new_txt_len("@DEFINED@UNDEFINED@WINDOWS@WIN@LINUX@MAC@MACOSX@32BIT@64BIT@VERSION@",68)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(64);}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 (!new_error) 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(65);}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 (!new_error) 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(65);}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 (!new_error) 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(66);}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 (!new_error) 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(67);}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 (!new_error) 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(67);}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 (!new_error) 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(68);}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 (!new_error) 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(68);}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 (!new_error) 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(69);}while(r); -S_537:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)))||new_error){ -if(qbevent){evnt(70);if(r)goto S_537;} -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 (!new_error) 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); -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 (!new_error) 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(( 0 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]; -if (!new_error) 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{ -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 (!new_error) 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); -} -S_544:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("LINUX",5),0)))||new_error){ -if(qbevent){evnt(71);if(r)goto S_544;} -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 (!new_error) 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(71);}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 (!new_error) 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(71);}while(r); -} -S_549:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0)))||new_error){ -if(qbevent){evnt(72);if(r)goto S_549;} -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 (!new_error) 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(72);}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 (!new_error) 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(72);}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 (!new_error) 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(72);}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 (!new_error) 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(72);}while(r); -} -S_556:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("32BIT",5),0)))||new_error){ -if(qbevent){evnt(73);if(r)goto S_556;} -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 (!new_error) 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(73);}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 (!new_error) 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(73);}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 (!new_error) 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(73);}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 (!new_error) 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(73);}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 (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),__STRING_VERSION); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(74);}while(r); -do{ -if(!qbevent)break;evnt(76);}while(r); -do{ -*__SINGLE_QB64_UPTIME=func_timer(NULL,0); -if(!qbevent)break;evnt(78);}while(r); -LABEL_NOINTERNALFOLDER:; -if(qbevent){evnt(80);r=0;} -S_566:; -if ((qbs_cleanup(qbs_tmp_base,-(func__direxists(qbs_new_txt_len("internal",8))== 0 )))||new_error){ -if(qbevent){evnt(81);if(r)goto S_566;} -do{ -sub__screenshow(); -if(!qbevent)break;evnt(82);}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("QB64-PE cannot locate the 'internal' folder",43)); -if (new_error) 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(83);}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(84);}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 (new_error) 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(85);}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 (new_error) 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(86);}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("For Linux, in the console enter './qb64pe'.",43)); -if (new_error) 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(87);}while(r); -S_573:; -do{ -if(qbevent){evnt(88);if(r)goto S_573;} -do{ -sub__limit( 1 ); -if(!qbevent)break;evnt(89);}while(r); -S_575:; -dl_continue_7:; -}while((!(qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_inkey(),qbs_new_txt_len("",0)))))&&(!new_error)); -dl_exit_7:; -if(qbevent){evnt(90);if(r)goto S_575;} -do{ -if(qbevent){evnt(91);} -exit_code= 1 ; -if (sub_gl_called) error(271); -close_program=1; -end(); -if(!qbevent)break;evnt(91);}while(r); -} -do{ -if(!qbevent)break;evnt(94);}while(r); -do{ -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{ -*__LONG_DEPENDENCY_LAST=*__LONG_DEPENDENCY_LAST+ 1 ; -if(!qbevent)break;evnt(106);}while(r); -do{ -*__LONG_DEPENDENCY_LAST=*__LONG_DEPENDENCY_LAST+ 1 ; -if(!qbevent)break;evnt(107);}while(r); -do{ -*__LONG_DEPENDENCY_LAST=*__LONG_DEPENDENCY_LAST+ 1 ; -if(!qbevent)break;evnt(108);}while(r); -do{ -*__LONG_DEPENDENCY_LAST=*__LONG_DEPENDENCY_LAST+ 1 ; -if(!qbevent)break;evnt(109);}while(r); -do{ +} +if(!qbevent)break;evnt(62);}while(r); +do{ +if(!qbevent)break;evnt(63);}while(r); +do{ +qbs_set(__STRING_USERDEFINELIST,qbs_new_txt_len("@DEFINED@UNDEFINED@WINDOWS@WIN@LINUX@MAC@MACOSX@32BIT@64BIT@VERSION@",68)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(64);}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 (!new_error) 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(65);}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 (!new_error) 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(65);}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 (!new_error) 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(66);}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 (!new_error) 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(67);}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 (!new_error) 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(67);}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 (!new_error) 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(68);}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 (!new_error) 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(68);}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 (!new_error) 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(69);}while(r); +S_537:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)))||new_error){ +if(qbevent){evnt(70);if(r)goto S_537;} +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 (!new_error) 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); +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 (!new_error) 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(( 0 )-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]; +if (!new_error) 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{ +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 (!new_error) 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); +} +S_544:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("LINUX",5),0)))||new_error){ +if(qbevent){evnt(71);if(r)goto S_544;} +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 (!new_error) 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(71);}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 (!new_error) 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(71);}while(r); +} +S_549:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0)))||new_error){ +if(qbevent){evnt(72);if(r)goto S_549;} +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 (!new_error) 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(72);}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 (!new_error) 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(72);}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 (!new_error) 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(72);}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 (!new_error) 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(72);}while(r); +} +S_556:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("32BIT",5),0)))||new_error){ +if(qbevent){evnt(73);if(r)goto S_556;} +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 (!new_error) 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(73);}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 (!new_error) 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(73);}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 (!new_error) 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(73);}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 (!new_error) 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(73);}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 (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),__STRING_VERSION); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(74);}while(r); +do{ +if(!qbevent)break;evnt(76);}while(r); +do{ +*__SINGLE_QB64_UPTIME=func_timer(NULL,0); +if(!qbevent)break;evnt(78);}while(r); +LABEL_NOINTERNALFOLDER:; +if(qbevent){evnt(80);r=0;} +S_566:; +if ((qbs_cleanup(qbs_tmp_base,-(func__direxists(qbs_new_txt_len("internal",8))== 0 )))||new_error){ +if(qbevent){evnt(81);if(r)goto S_566;} +do{ +sub__screenshow(); +if(!qbevent)break;evnt(82);}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("QB64-PE cannot locate the 'internal' folder",43)); +if (new_error) 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(83);}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(84);}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 (new_error) 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(85);}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 (new_error) 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(86);}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("For Linux, in the console enter './qb64pe'.",43)); +if (new_error) 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(87);}while(r); +S_573:; +do{ +if(qbevent){evnt(88);if(r)goto S_573;} +do{ +sub__limit( 1 ); +if(!qbevent)break;evnt(89);}while(r); +S_575:; +dl_continue_7:; +}while((!(qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_inkey(),qbs_new_txt_len("",0)))))&&(!new_error)); +dl_exit_7:; +if(qbevent){evnt(90);if(r)goto S_575;} +do{ +if(qbevent){evnt(91);} +exit_code= 1 ; +if (sub_gl_called) error(271); +close_program=1; +end(); +if(!qbevent)break;evnt(91);}while(r); +} +do{ +if(!qbevent)break;evnt(94);}while(r); +do{ +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{ +*__LONG_DEPENDENCY_LAST=*__LONG_DEPENDENCY_LAST+ 1 ; +if(!qbevent)break;evnt(106);}while(r); +do{ +*__LONG_DEPENDENCY_LAST=*__LONG_DEPENDENCY_LAST+ 1 ; +if(!qbevent)break;evnt(107);}while(r); +do{ +*__LONG_DEPENDENCY_LAST=*__LONG_DEPENDENCY_LAST+ 1 ; +if(!qbevent)break;evnt(108);}while(r); +do{ +*__LONG_DEPENDENCY_LAST=*__LONG_DEPENDENCY_LAST+ 1 ; +if(!qbevent)break;evnt(109);}while(r); +do{ if (__ARRAY_LONG_DEPENDENCY[2]&2){ error(10); @@ -2765,46 +2765,46 @@ if (!__ARRAY_LONG_DEPENDENCY[0]) error(257); } __ARRAY_LONG_DEPENDENCY[2]|=1; } -} -if(!qbevent)break;evnt(113);}while(r); -do{ -if(!qbevent)break;evnt(115);}while(r); -do{ -if(!qbevent)break;evnt(118);}while(r); -do{ -*__LONG_OS_BITS= 64 ; -if(!qbevent)break;evnt(119);}while(r); -S_597:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("[32BIT]",7),0)))||new_error){ -if(qbevent){evnt(119);if(r)goto S_597;} -do{ -*__LONG_OS_BITS= 32 ; -if(!qbevent)break;evnt(119);}while(r); -} -S_600:; -if ((-(*__LONG_OS_BITS== 32 ))||new_error){ -if(qbevent){evnt(121);if(r)goto S_600;} -do{ -qbs_set(__STRING_WINDOWTITLE,qbs_new_txt_len("QB64 Phoenix Edition (x32)",26)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(121);}while(r); -}else{ -do{ -qbs_set(__STRING_WINDOWTITLE,qbs_new_txt_len("QB64 Phoenix Edition (x64)",26)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(121);}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(124);}while(r); -do{ -if(!qbevent)break;evnt(125);}while(r); -do{ -if(!qbevent)break;evnt(126);}while(r); -do{ +} +if(!qbevent)break;evnt(113);}while(r); +do{ +if(!qbevent)break;evnt(115);}while(r); +do{ +if(!qbevent)break;evnt(118);}while(r); +do{ +*__LONG_OS_BITS= 64 ; +if(!qbevent)break;evnt(119);}while(r); +S_597:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("[32BIT]",7),0)))||new_error){ +if(qbevent){evnt(119);if(r)goto S_597;} +do{ +*__LONG_OS_BITS= 32 ; +if(!qbevent)break;evnt(119);}while(r); +} +S_600:; +if ((-(*__LONG_OS_BITS== 32 ))||new_error){ +if(qbevent){evnt(121);if(r)goto S_600;} +do{ +qbs_set(__STRING_WINDOWTITLE,qbs_new_txt_len("QB64 Phoenix Edition (x32)",26)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(121);}while(r); +}else{ +do{ +qbs_set(__STRING_WINDOWTITLE,qbs_new_txt_len("QB64 Phoenix Edition (x64)",26)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(121);}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(124);}while(r); +do{ +if(!qbevent)break;evnt(125);}while(r); +do{ +if(!qbevent)break;evnt(126);}while(r); +do{ if (__ARRAY_UDT_BACKUPUSEDVARIABLELIST[2]&2){ error(10); @@ -2849,46 +2849,46 @@ while(tmp_long--){ *(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 96)=qbs_new(0,0); *(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 104)=qbs_new(0,0); *(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 112)=qbs_new(0,0);} -} -if(!qbevent)break;evnt(137);}while(r); -do{ -if(!qbevent)break;evnt(138);}while(r); -do{ -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(148);}while(r); -do{ -if(!qbevent)break;evnt(149);}while(r); -do{ -if(!qbevent)break;evnt(150);}while(r); -do{ -if(!qbevent)break;evnt(151);}while(r); -do{ -if(!qbevent)break;evnt(153);}while(r); -do{ -if(!qbevent)break;evnt(155);}while(r); -do{ -if(!qbevent)break;evnt(156);}while(r); -do{ -if(!qbevent)break;evnt(157);}while(r); -do{ -if(!qbevent)break;evnt(158);}while(r); -do{ -*__LONG_OPTMAX= 256 ; -if(!qbevent)break;evnt(159);}while(r); -do{ +} +if(!qbevent)break;evnt(137);}while(r); +do{ +if(!qbevent)break;evnt(138);}while(r); +do{ +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(148);}while(r); +do{ +if(!qbevent)break;evnt(149);}while(r); +do{ +if(!qbevent)break;evnt(150);}while(r); +do{ +if(!qbevent)break;evnt(151);}while(r); +do{ +if(!qbevent)break;evnt(153);}while(r); +do{ +if(!qbevent)break;evnt(155);}while(r); +do{ +if(!qbevent)break;evnt(156);}while(r); +do{ +if(!qbevent)break;evnt(157);}while(r); +do{ +if(!qbevent)break;evnt(158);}while(r); +do{ +*__LONG_OPTMAX= 256 ; +if(!qbevent)break;evnt(159);}while(r); +do{ if (__ARRAY_STRING256_OPT[2]&2){ error(10); @@ -2915,9 +2915,9 @@ __ARRAY_STRING256_OPT[0]=(ptrszint)calloc(__ARRAY_STRING256_OPT[5]*__ARRAY_STRIN if (!__ARRAY_STRING256_OPT[0]) error(257); } __ARRAY_STRING256_OPT[2]|=1; -} -if(!qbevent)break;evnt(160);}while(r); -do{ +} +if(!qbevent)break;evnt(160);}while(r); +do{ if (__ARRAY_INTEGER_OPTWORDS[2]&2){ error(10); @@ -2944,9 +2944,9 @@ __ARRAY_INTEGER_OPTWORDS[0]=(ptrszint)calloc(__ARRAY_INTEGER_OPTWORDS[5]*__ARRAY if (!__ARRAY_INTEGER_OPTWORDS[0]) error(257); } __ARRAY_INTEGER_OPTWORDS[2]|=1; -} -if(!qbevent)break;evnt(164);}while(r); -do{ +} +if(!qbevent)break;evnt(164);}while(r); +do{ if (__ARRAY_INTEGER_T[2]&2){ error(10); @@ -2970,9 +2970,9 @@ __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(168);}while(r); -do{ +} +if(!qbevent)break;evnt(168);}while(r); +do{ if (__ARRAY_INTEGER_LEV[2]&2){ error(10); @@ -2996,9 +2996,9 @@ __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(173);}while(r); -do{ +} +if(!qbevent)break;evnt(173);}while(r); +do{ if (__ARRAY_INTEGER_ENTRYLEV[2]&2){ error(10); @@ -3022,9 +3022,9 @@ __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(174);}while(r); -do{ +} +if(!qbevent)break;evnt(174);}while(r); +do{ if (__ARRAY_INTEGER_DITCHLEV[2]&2){ error(10); @@ -3048,9 +3048,9 @@ __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(175);}while(r); -do{ +} +if(!qbevent)break;evnt(175);}while(r); +do{ if (__ARRAY_INTEGER_DONTPASS[2]&2){ error(10); @@ -3074,9 +3074,9 @@ __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(176);}while(r); -do{ +} +if(!qbevent)break;evnt(176);}while(r); +do{ if (__ARRAY_INTEGER_TEMPLIST[2]&2){ error(10); @@ -3100,9 +3100,9 @@ __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(178);}while(r); -do{ +} +if(!qbevent)break;evnt(178);}while(r); +do{ if (__ARRAY_LONG_PASSRULE[2]&2){ error(10); @@ -3126,9 +3126,9 @@ __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(179);}while(r); -do{ +} +if(!qbevent)break;evnt(179);}while(r); +do{ if (__ARRAY_LONG_LEVELENTERED[2]&2){ error(10); @@ -3152,9 +3152,9 @@ __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(183);}while(r); -do{ +} +if(!qbevent)break;evnt(183);}while(r); +do{ if (__ARRAY_STRING_SEPARGS[2]&2){ error(10); @@ -3177,9 +3177,9 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_SEPARGS[0]))[tmp_long]=(uint64)qbs_n }else{ while(tmp_long--) ((uint64*)(__ARRAY_STRING_SEPARGS[0]))[tmp_long]=(uint64)qbs_new(0,0); } -} -if(!qbevent)break;evnt(184);}while(r); -do{ +} +if(!qbevent)break;evnt(184);}while(r); +do{ if (__ARRAY_STRING_SEPARGSLAYOUT[2]&2){ error(10); @@ -3202,9 +3202,9 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT[0]))[tmp_long]=(uint64 }else{ while(tmp_long--) ((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT[0]))[tmp_long]=(uint64)qbs_new(0,0); } -} -if(!qbevent)break;evnt(185);}while(r); -do{ +} +if(!qbevent)break;evnt(185);}while(r); +do{ if (__ARRAY_STRING_SEPARGS2[2]&2){ error(10); @@ -3227,9 +3227,9 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_SEPARGS2[0]))[tmp_long]=(uint64)qbs_ }else{ while(tmp_long--) ((uint64*)(__ARRAY_STRING_SEPARGS2[0]))[tmp_long]=(uint64)qbs_new(0,0); } -} -if(!qbevent)break;evnt(186);}while(r); -do{ +} +if(!qbevent)break;evnt(186);}while(r); +do{ if (__ARRAY_STRING_SEPARGSLAYOUT2[2]&2){ error(10); @@ -3252,13 +3252,13 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT2[0]))[tmp_long]=(uint6 }else{ while(tmp_long--) ((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT2[0]))[tmp_long]=(uint64)qbs_new(0,0); } -} -if(!qbevent)break;evnt(187);}while(r); -do{ -if(!qbevent)break;evnt(193);}while(r); -do{ -if(!qbevent)break;evnt(204);}while(r); -do{ +} +if(!qbevent)break;evnt(187);}while(r); +do{ +if(!qbevent)break;evnt(193);}while(r); +do{ +if(!qbevent)break;evnt(204);}while(r); +do{ if (__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[2]&2){ error(10); @@ -3281,9 +3281,9 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[tmp_ }else{ while(tmp_long--) ((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[tmp_long]=(uint64)qbs_new(0,0); } -} -if(!qbevent)break;evnt(205);}while(r); -do{ +} +if(!qbevent)break;evnt(205);}while(r); +do{ if (__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[2]&2){ error(10); @@ -3306,9 +3306,9 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[tmp_ }else{ while(tmp_long--) ((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[tmp_long]=(uint64)qbs_new(0,0); } -} -if(!qbevent)break;evnt(206);}while(r); -do{ +} +if(!qbevent)break;evnt(206);}while(r); +do{ if (__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[2]&2){ error(10); @@ -3332,67 +3332,67 @@ __ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]=(ptrszint)calloc(__ARRAY_LONG_RESOL if (!__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]) error(257); } __ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[2]|=1; -} -if(!qbevent)break;evnt(207);}while(r); -do{ -if(!qbevent)break;evnt(213);}while(r); -do{ -if(!qbevent)break;evnt(214);}while(r); -do{ -if(!qbevent)break;evnt(216);}while(r); -do{ -qbs_set(__STRING_OS,qbs_new_txt_len("WIN",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(217);}while(r); -S_651:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("[LINUX]",7),0)))||new_error){ -if(qbevent){evnt(218);if(r)goto S_651;} -do{ -qbs_set(__STRING_OS,qbs_new_txt_len("LNX",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(218);}while(r); -} -do{ -if(!qbevent)break;evnt(220);}while(r); -S_655:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("[MACOSX]",8),0)))||new_error){ -if(qbevent){evnt(221);if(r)goto S_655;} -do{ -*__LONG_MACOSX= 1 ; -if(!qbevent)break;evnt(221);}while(r); -} -do{ -if(!qbevent)break;evnt(223);}while(r); -S_659:; -if ((*__LONG_MACOSX)||new_error){ -if(qbevent){evnt(224);if(r)goto S_659;} -do{ -*__LONG_INLINE_DATA= 1 ; -if(!qbevent)break;evnt(224);}while(r); -} -do{ -if(!qbevent)break;evnt(226);}while(r); -do{ -qbs_set(__STRING_BATCHFILE_EXTENSION,qbs_new_txt_len(".bat",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(227);}while(r); -S_664:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ -if(qbevent){evnt(228);if(r)goto S_664;} -do{ -qbs_set(__STRING_BATCHFILE_EXTENSION,qbs_new_txt_len(".sh",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(228);}while(r); -} -S_667:; -if ((*__LONG_MACOSX)||new_error){ -if(qbevent){evnt(229);if(r)goto S_667;} -do{ -qbs_set(__STRING_BATCHFILE_EXTENSION,qbs_new_txt_len(".command",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(229);}while(r); -} -do{ +} +if(!qbevent)break;evnt(207);}while(r); +do{ +if(!qbevent)break;evnt(213);}while(r); +do{ +if(!qbevent)break;evnt(214);}while(r); +do{ +if(!qbevent)break;evnt(216);}while(r); +do{ +qbs_set(__STRING_OS,qbs_new_txt_len("WIN",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(217);}while(r); +S_651:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("[LINUX]",7),0)))||new_error){ +if(qbevent){evnt(218);if(r)goto S_651;} +do{ +qbs_set(__STRING_OS,qbs_new_txt_len("LNX",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(218);}while(r); +} +do{ +if(!qbevent)break;evnt(220);}while(r); +S_655:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("[MACOSX]",8),0)))||new_error){ +if(qbevent){evnt(221);if(r)goto S_655;} +do{ +*__LONG_MACOSX= 1 ; +if(!qbevent)break;evnt(221);}while(r); +} +do{ +if(!qbevent)break;evnt(223);}while(r); +S_659:; +if ((*__LONG_MACOSX)||new_error){ +if(qbevent){evnt(224);if(r)goto S_659;} +do{ +*__LONG_INLINE_DATA= 1 ; +if(!qbevent)break;evnt(224);}while(r); +} +do{ +if(!qbevent)break;evnt(226);}while(r); +do{ +qbs_set(__STRING_BATCHFILE_EXTENSION,qbs_new_txt_len(".bat",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(227);}while(r); +S_664:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ +if(qbevent){evnt(228);if(r)goto S_664;} +do{ +qbs_set(__STRING_BATCHFILE_EXTENSION,qbs_new_txt_len(".sh",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(228);}while(r); +} +S_667:; +if ((*__LONG_MACOSX)||new_error){ +if(qbevent){evnt(229);if(r)goto S_667;} +do{ +qbs_set(__STRING_BATCHFILE_EXTENSION,qbs_new_txt_len(".command",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(229);}while(r); +} +do{ if (__ARRAY_STRING_INLINEDATASTR[2]&2){ error(10); @@ -3413,1883 +3413,1883 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_INLINEDATASTR[0]))[tmp_long]=(uint64 while(tmp_long--) ((uint64*)(__ARRAY_STRING_INLINEDATASTR[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -} -if(!qbevent)break;evnt(232);}while(r); -S_671:; -fornext_value9= 0 ; -fornext_finalvalue9= 255 ; -fornext_step9= 1 ; -if (fornext_step9<0) fornext_step_negative9=1; else fornext_step_negative9=0; -if (new_error) 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_value9fornext_finalvalue9) break; -} -fornext_error9:; -if(qbevent){evnt(233);if(r)goto S_671;} -do{ -tmp_long=array_check((*__LONG_I)-__ARRAY_STRING_INLINEDATASTR[4],__ARRAY_STRING_INLINEDATASTR[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_INLINEDATASTR[0]))[tmp_long])),qbs_add(FUNC_STR2(__LONG_I),qbs_new_txt_len(",",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(234);}while(r); -fornext_continue_8:; -} -fornext_exit_8:; -do{ -if(!qbevent)break;evnt(238);}while(r); -do{ -if(!qbevent)break;evnt(239);}while(r); -do{ -qbs_set(__STRING_EXTENSION,qbs_new_txt_len(".exe",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(240);}while(r); -S_677:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ -if(qbevent){evnt(241);if(r)goto S_677;} -do{ -qbs_set(__STRING_EXTENSION,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(241);}while(r); -} -do{ -if(!qbevent)break;evnt(243);}while(r); -do{ -qbs_set(__STRING1_PATHSEP,qbs_new_txt_len("\\",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(244);}while(r); -S_682:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ -if(qbevent){evnt(245);if(r)goto S_682;} -do{ -qbs_set(__STRING1_PATHSEP,qbs_new_txt_len("/",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(245);}while(r); -} -do{ -error_goto_line=1; -if(!qbevent)break;evnt(248);}while(r); -do{ -if(!qbevent)break;evnt(250);}while(r); -S_687:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ -if(qbevent){evnt(251);if(r)goto S_687;} -do{ -qbs_set(__STRING_TMPDIR,qbs_new_txt_len(".\\internal\\temp\\",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(251);}while(r); -do{ -qbs_set(__STRING_TMPDIR2,qbs_new_txt_len("..\\\\temp\\\\",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(251);}while(r); -} -S_691:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ -if(qbevent){evnt(252);if(r)goto S_691;} -do{ -qbs_set(__STRING_TMPDIR,qbs_new_txt_len("./internal/temp/",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(252);}while(r); -do{ -qbs_set(__STRING_TMPDIR2,qbs_new_txt_len("../temp/",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(252);}while(r); -} -S_695:; -if ((qbs_cleanup(qbs_tmp_base,~(func__direxists(__STRING_TMPDIR))))||new_error){ -if(qbevent){evnt(254);if(r)goto S_695;} -do{ -sub_mkdir(__STRING_TMPDIR); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(254);}while(r); -} -do{ -*__LONG_THISINSTANCEPID=( int32 )getpid(); -if(!qbevent)break;evnt(260);}while(r); -do{ -if(!qbevent)break;evnt(261);}while(r); -S_700:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("LINUX",5),0)))||new_error){ -if(qbevent){evnt(263);if(r)goto S_700;} -do{ -*__LONG_FH=func_freefile(); -if(!qbevent)break;evnt(264);}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(265);}while(r); -do{ -*__LONG_TEMPFOLDERRECORDS=qbr(func_lof(*__LONG_FH)/ ((long double)(4))); -if(!qbevent)break;evnt(266);}while(r); -do{ -*__LONG_I= 1 ; -if(!qbevent)break;evnt(267);}while(r); -S_705:; -if ((-(*__LONG_TEMPFOLDERRECORDS== 0 ))||new_error){ -if(qbevent){evnt(268);if(r)goto S_705;} -do{ -sub_put(*__LONG_FH, 1 ,byte_element((uint64)__LONG_THISINSTANCEPID,4,byte_element_12),1); -if(!qbevent)break;evnt(270);}while(r); -}else{ -S_708:; -fornext_value14= 1 ; -fornext_finalvalue14=*__LONG_TEMPFOLDERRECORDS; -fornext_step14= 1 ; -if (fornext_step14<0) fornext_step_negative14=1; else fornext_step_negative14=0; -if (new_error) 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_value14fornext_finalvalue14) break; -} -fornext_error14:; -if(qbevent){evnt(272);if(r)goto S_708;} -do{ -sub_get(*__LONG_FH,*__LONG_I,byte_element((uint64)__LONG_TEMPFOLDERSEARCH,4,byte_element_15),1); -if(!qbevent)break;evnt(274);}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(276);}while(r); -do{ -*__LONG_FH2=func_freefile(); -if(!qbevent)break;evnt(277);}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(278);}while(r); -do{ -tmp_fileno=*__LONG_FH2; -if (new_error) goto skip16; -sub_file_line_input_string(tmp_fileno,__STRING_CHECKPID); -if (new_error) goto skip16; -skip16: -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(279);}while(r); -do{ -sub_close(*__LONG_FH2,1); -if(!qbevent)break;evnt(280);}while(r); -S_715:; -if ((qbs_cleanup(qbs_tmp_base,-(func_val(__STRING_CHECKPID)== 1 )))||new_error){ -if(qbevent){evnt(281);if(r)goto S_715;} -do{ -sub_put(*__LONG_FH,*__LONG_I,byte_element((uint64)__LONG_THISINSTANCEPID,4,byte_element_17),1); -if(!qbevent)break;evnt(284);}while(r); -do{ -goto fornext_exit_13; -if(!qbevent)break;evnt(285);}while(r); -} -fornext_continue_13:; -} -fornext_exit_13:; -S_720:; -if ((-(*__LONG_I>*__LONG_TEMPFOLDERRECORDS))||new_error){ -if(qbevent){evnt(288);if(r)goto S_720;} -do{ -sub_put(*__LONG_FH,*__LONG_I,byte_element((uint64)__LONG_THISINSTANCEPID,4,byte_element_18),1); -if(!qbevent)break;evnt(290);}while(r); -} -} -do{ -sub_close(*__LONG_FH,1); -if(!qbevent)break;evnt(293);}while(r); -S_725:; -if ((-(*__LONG_I> 1 ))||new_error){ -if(qbevent){evnt(294);if(r)goto S_725;} -do{ -qbs_set(__STRING_TMPDIR,qbs_add(qbs_add(qbs_new_txt_len("./internal/temp",15),FUNC_STR2(__LONG_I)),qbs_new_txt_len("/",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(295);}while(r); -do{ -qbs_set(__STRING_TMPDIR2,qbs_add(qbs_add(qbs_new_txt_len("../temp",7),FUNC_STR2(__LONG_I)),qbs_new_txt_len("/",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(295);}while(r); -S_728:; -if ((qbs_cleanup(qbs_tmp_base,-(func__direxists(__STRING_TMPDIR)== 0 )))||new_error){ -if(qbevent){evnt(296);if(r)goto S_728;} -do{ -sub_mkdir(__STRING_TMPDIR); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(297);}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(300);}while(r); -}else{ -do{ -error_goto_line=2; -if(!qbevent)break;evnt(302);}while(r); -do{ -*__LONG_E= 0 ; -if(!qbevent)break;evnt(303);}while(r); -do{ -*__LONG_I= 1 ; -if(!qbevent)break;evnt(304);}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(305);}while(r); -S_738:; -while((*__LONG_E)||new_error){ -if(qbevent){evnt(306);if(r)goto S_738;} -do{ -*__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(307);}while(r); -S_740:; -if ((-(*__LONG_I== 1000 ))||new_error){ -if(qbevent){evnt(308);if(r)goto S_740;} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("Unable to locate the 'internal' folder",38)); -if (new_error) 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(308);}while(r); -do{ -if(qbevent){evnt(308);} -exit_code= 1 ; -sub_end(); -if(!qbevent)break;evnt(308);}while(r); -} -do{ -sub_mkdir(qbs_add(qbs_new_txt_len(".\\internal\\temp",15),FUNC_STR2(__LONG_I))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(309);}while(r); -S_745:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ -if(qbevent){evnt(310);if(r)goto S_745;} -do{ -qbs_set(__STRING_TMPDIR,qbs_add(qbs_add(qbs_new_txt_len(".\\internal\\temp",15),FUNC_STR2(__LONG_I)),qbs_new_txt_len("\\",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(310);}while(r); -do{ -qbs_set(__STRING_TMPDIR2,qbs_add(qbs_add(qbs_new_txt_len("..\\\\temp",8),FUNC_STR2(__LONG_I)),qbs_new_txt_len("\\\\",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(310);}while(r); -} -S_749:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ -if(qbevent){evnt(311);if(r)goto S_749;} -do{ -qbs_set(__STRING_TMPDIR,qbs_add(qbs_add(qbs_new_txt_len("./internal/temp",15),FUNC_STR2(__LONG_I)),qbs_new_txt_len("/",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(311);}while(r); -do{ -qbs_set(__STRING_TMPDIR2,qbs_add(qbs_add(qbs_new_txt_len("../temp",7),FUNC_STR2(__LONG_I)),qbs_new_txt_len("/",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(311);}while(r); -} -do{ -*__LONG_E= 0 ; -if(!qbevent)break;evnt(312);}while(r); -do{ -sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("temp.bin",8)), 4 ,NULL, 4 , 26 ,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(313);}while(r); -dl_continue_19:; -} -dl_exit_19:; -} -do{ -*__LONG_TEMPFOLDERINDEX=*__LONG_I; -if(!qbevent)break;evnt(319);}while(r); -S_758:; -if ((-(*__LONG_I> 1 ))||new_error){ -if(qbevent){evnt(320);if(r)goto S_758;} -do{ -sub_open(qbs_add(qbs_add(qbs_new_txt_len(".\\internal\\c\\qbx",16),FUNC_STR2(__LONG_I)),qbs_new_txt_len(".cpp",4)), 4 ,NULL,NULL, 2 ,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(322);}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(323);}while(r); -S_761:; -while((!(func_eof( 1 )))||new_error){ -if(qbevent){evnt(324);if(r)goto S_761;} -do{ -tmp_fileno= 1 ; -if (new_error) goto skip22; -sub_file_line_input_string(tmp_fileno,__STRING_A); -if (new_error) goto skip22; -skip22: -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(325);}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(326);}while(r); -S_764:; -if ((*__LONG_X)||new_error){ -if(qbevent){evnt(326);if(r)goto S_764;} -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)),FUNC_STR2(__LONG_I)),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(326);}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(327);}while(r); -S_768:; -if ((*__LONG_X)||new_error){ -if(qbevent){evnt(327);if(r)goto S_768;} -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)),FUNC_STR2(__LONG_I)),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(327);}while(r); -} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 2 ; -if (new_error) goto skip25; -sub_file_print(tmp_fileno,__STRING_A, 0, 0, 1); -if (new_error) goto skip25; -skip25: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(328);}while(r); -dl_continue_21:; -} -dl_exit_21:; -do{ -sub_close( 1 ,1); -sub_close( 2 ,1); -if(!qbevent)break;evnt(330);}while(r); -} -S_775:; -if (( 0 )||new_error){ -if(qbevent){evnt(333);if(r)goto S_775;} -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(333);}while(r); -} -do{ -error_goto_line=3; -if(!qbevent)break;evnt(335);}while(r); -do{ -if(!qbevent)break;evnt(339);}while(r); -do{ -if(!qbevent)break;evnt(340);}while(r); -S_781:; -if ((-(*__LONG_TEMPFOLDERINDEX!= 1 ))||new_error){ -if(qbevent){evnt(341);if(r)goto S_781;} -do{ -qbs_set(__STRING_TEMPFOLDERINDEXSTR,qbs_add(qbs_add(qbs_new_txt_len("(",1),FUNC_STR2(__LONG_TEMPFOLDERINDEX)),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(341);}while(r); -do{ -qbs_set(__STRING_TEMPFOLDERINDEXSTR2,FUNC_STR2(__LONG_TEMPFOLDERINDEX)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(341);}while(r); -} -do{ -if(!qbevent)break;evnt(344);}while(r); -do{ -if(!qbevent)break;evnt(345);}while(r); -do{ -if(!qbevent)break;evnt(346);}while(r); -do{ -if(!qbevent)break;evnt(348);}while(r); -do{ -if(!qbevent)break;evnt(350);}while(r); -do{ -if(!qbevent)break;evnt(351);}while(r); -do{ -if(!qbevent)break;evnt(354);}while(r); -do{ -*__LONG_SYMBOLTYPE_SIZE= 0 ; -if(!qbevent)break;evnt(355);}while(r); -do{ -if(!qbevent)break;evnt(357);}while(r); -do{ -*__LONG_USE_GLOBAL_BYTE_ELEMENTS= 0 ; -if(!qbevent)break;evnt(358);}while(r); -do{ -if(!qbevent)break;evnt(362);}while(r); -do{ -if(!qbevent)break;evnt(363);}while(r); -do{ -if(!qbevent)break;evnt(364);}while(r); -do{ -if(!qbevent)break;evnt(365);}while(r); -do{ -if(!qbevent)break;evnt(366);}while(r); -do{ -if(!qbevent)break;evnt(367);}while(r); -do{ -if(!qbevent)break;evnt(369);}while(r); -do{ -if(!qbevent)break;evnt(372);}while(r); -do{ -if(!qbevent)break;evnt(373);}while(r); -do{ -if(!qbevent)break;evnt(374);}while(r); -do{ -if(!qbevent)break;evnt(375);}while(r); -do{ -if(!qbevent)break;evnt(376);}while(r); -do{ -if(!qbevent)break;evnt(377);}while(r); -do{ -if(!qbevent)break;evnt(378);}while(r); -do{ -if(!qbevent)break;evnt(380,1,"IDEsettings.bas");}while(r); -do{ -if(!qbevent)break;evnt(380,2,"IDEsettings.bas");}while(r); -do{ -if(!qbevent)break;evnt(380,3,"IDEsettings.bas");}while(r); -do{ -if(!qbevent)break;evnt(380,4,"IDEsettings.bas");}while(r); -do{ -if(!qbevent)break;evnt(380,5,"IDEsettings.bas");}while(r); -do{ -if(!qbevent)break;evnt(380,6,"IDEsettings.bas");}while(r); -do{ -if(!qbevent)break;evnt(380,7,"IDEsettings.bas");}while(r); -do{ -if(!qbevent)break;evnt(380,8,"IDEsettings.bas");}while(r); -do{ -if(!qbevent)break;evnt(380,9,"IDEsettings.bas");}while(r); -do{ -if(!qbevent)break;evnt(380,10,"IDEsettings.bas");}while(r); -do{ -if(!qbevent)break;evnt(380,11,"IDEsettings.bas");}while(r); -do{ -if(!qbevent)break;evnt(380,12,"IDEsettings.bas");}while(r); -do{ -if(!qbevent)break;evnt(380,13,"IDEsettings.bas");}while(r); -do{ -if(!qbevent)break;evnt(380,14,"IDEsettings.bas");}while(r); -do{ -if(!qbevent)break;evnt(380,15,"IDEsettings.bas");}while(r); -do{ -if(!qbevent)break;evnt(380,16,"IDEsettings.bas");}while(r); -do{ -if(!qbevent)break;evnt(380,17,"IDEsettings.bas");}while(r); -do{ -if(!qbevent)break;evnt(380,18,"IDEsettings.bas");}while(r); -do{ -if(!qbevent)break;evnt(380,19,"IDEsettings.bas");}while(r); -do{ -if(!qbevent)break;evnt(380,20,"IDEsettings.bas");}while(r); -do{ -if(!qbevent)break;evnt(380,21,"IDEsettings.bas");}while(r); -do{ -if(!qbevent)break;evnt(380,22,"IDEsettings.bas");}while(r); -do{ -if(!qbevent)break;evnt(380,23,"IDEsettings.bas");}while(r); -do{ -if(!qbevent)break;evnt(380,24,"IDEsettings.bas");}while(r); -do{ -if(!qbevent)break;evnt(380,25,"IDEsettings.bas");}while(r); -do{ -if(!qbevent)break;evnt(380,26,"IDEsettings.bas");}while(r); -do{ -if(!qbevent)break;evnt(380,27,"IDEsettings.bas");}while(r); -do{ -if(!qbevent)break;evnt(380,28,"IDEsettings.bas");}while(r); -do{ -if(!qbevent)break;evnt(380,29,"IDEsettings.bas");}while(r); -do{ -if(!qbevent)break;evnt(380,30,"IDEsettings.bas");}while(r); -do{ -if(!qbevent)break;evnt(380,31,"IDEsettings.bas");}while(r); -do{ -qbs_set(__STRING_CONFIGFILE,qbs_new_txt_len("internal/config.ini",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,33,"IDEsettings.bas");}while(r); -do{ -qbs_set(__STRING_INIFOLDERINDEX,qbs_str((int32)(*__LONG_TEMPFOLDERINDEX))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,34,"IDEsettings.bas");}while(r); -do{ -qbs_set(__STRING_WINDOWSETTINGSSECTION,qbs_add(qbs_new_txt_len("IDE WINDOW",10),__STRING_INIFOLDERINDEX)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,36,"IDEsettings.bas");}while(r); -do{ -qbs_set(__STRING_COLORSETTINGSSECTION,qbs_add(qbs_new_txt_len("IDE COLOR SETTINGS",18),__STRING_INIFOLDERINDEX)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,37,"IDEsettings.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(380,38,"IDEsettings.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(380,39,"IDEsettings.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(380,40,"IDEsettings.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(380,41,"IDEsettings.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(380,42,"IDEsettings.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(380,43,"IDEsettings.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(380,44,"IDEsettings.bas");}while(r); -do{ -SUB_INISETADDQUOTES(&(pass26= 0 )); -if(!qbevent)break;evnt(380,46,"IDEsettings.bas");}while(r); -do{ -SUB_INISETFORCERELOAD(&(pass27= -1 )); -if(!qbevent)break;evnt(380,47,"IDEsettings.bas");}while(r); -do{ -SUB_INISETALLOWBASICCOMMENTS(&(pass28= -1 )); -if(!qbevent)break;evnt(380,48,"IDEsettings.bas");}while(r); -do{ -SUB_INISETAUTOCOMMIT(&(pass29= -1 )); -if(!qbevent)break;evnt(380,49,"IDEsettings.bas");}while(r); -do{ -*__LONG_RESULT=FUNC_READCONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("DisableSyntaxHighlighter",24),__STRING_VALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,52,"IDEsettings.bas");}while(r); -S_856:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("TRUE",4)))|(-(func_val(__STRING_VALUE)== -1 ))))||new_error){ -if(qbevent){evnt(380,53,"IDEsettings.bas");if(r)goto S_856;} -do{ -*__BYTE_DISABLESYNTAXHIGHLIGHTER= -1 ; -if(!qbevent)break;evnt(380,54,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("DisableSyntaxHighlighter",24),qbs_new_txt_len("True",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,55,"IDEsettings.bas");}while(r); -}else{ -do{ -*__BYTE_DISABLESYNTAXHIGHLIGHTER= 0 ; -if(!qbevent)break;evnt(380,57,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("DisableSyntaxHighlighter",24),qbs_new_txt_len("False",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,58,"IDEsettings.bas");}while(r); -} -S_863:; -if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("PasteCursorAtEnd",16),__STRING_VALUE)))||new_error){ -if(qbevent){evnt(380,61,"IDEsettings.bas");if(r)goto S_863;} -S_864:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("TRUE",4)))|(-(func_val(__STRING_VALUE)== -1 ))))||new_error){ -if(qbevent){evnt(380,62,"IDEsettings.bas");if(r)goto S_864;} -do{ -*__BYTE_PASTECURSORATEND= -1 ; -if(!qbevent)break;evnt(380,63,"IDEsettings.bas");}while(r); -}else{ -do{ -*__BYTE_PASTECURSORATEND= 0 ; -if(!qbevent)break;evnt(380,65,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("PasteCursorAtEnd",16),qbs_new_txt_len("False",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,66,"IDEsettings.bas");}while(r); -} -}else{ -do{ -*__BYTE_PASTECURSORATEND= -1 ; -if(!qbevent)break;evnt(380,69,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("PasteCursorAtEnd",16),qbs_new_txt_len("True",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,70,"IDEsettings.bas");}while(r); -} -S_874:; -if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("ExeToSourceFolderFirstTimeMsg",29),__STRING_VALUE)))||new_error){ -if(qbevent){evnt(380,73,"IDEsettings.bas");if(r)goto S_874;} -S_875:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("TRUE",4)))|(-(func_val(__STRING_VALUE)== -1 ))))||new_error){ -if(qbevent){evnt(380,74,"IDEsettings.bas");if(r)goto S_875;} -do{ -*__BYTE_EXETOSOURCEFOLDERFIRSTTIMEMSG= -1 ; -if(!qbevent)break;evnt(380,75,"IDEsettings.bas");}while(r); -}else{ -do{ -*__BYTE_EXETOSOURCEFOLDERFIRSTTIMEMSG= 0 ; -if(!qbevent)break;evnt(380,77,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("ExeToSourceFolderFirstTimeMsg",29),qbs_new_txt_len("False",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,78,"IDEsettings.bas");}while(r); -} -}else{ -do{ -*__BYTE_EXETOSOURCEFOLDERFIRSTTIMEMSG= 0 ; -if(!qbevent)break;evnt(380,81,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("ExeToSourceFolderFirstTimeMsg",29),qbs_new_txt_len("False",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,82,"IDEsettings.bas");}while(r); -} -S_885:; -if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("WhiteListQB64FirstTimeMsg",25),__STRING_VALUE)))||new_error){ -if(qbevent){evnt(380,85,"IDEsettings.bas");if(r)goto S_885;} -S_886:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("TRUE",4)))|(-(func_val(__STRING_VALUE)== -1 ))))||new_error){ -if(qbevent){evnt(380,86,"IDEsettings.bas");if(r)goto S_886;} -do{ -*__BYTE_WHITELISTQB64FIRSTTIMEMSG= -1 ; -if(!qbevent)break;evnt(380,87,"IDEsettings.bas");}while(r); -}else{ -do{ -*__BYTE_WHITELISTQB64FIRSTTIMEMSG= 0 ; -if(!qbevent)break;evnt(380,89,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("WhiteListQB64FirstTimeMsg",25),qbs_new_txt_len("False",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,90,"IDEsettings.bas");}while(r); -} -}else{ -do{ -*__BYTE_WHITELISTQB64FIRSTTIMEMSG= 0 ; -if(!qbevent)break;evnt(380,93,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("WhiteListQB64FirstTimeMsg",25),qbs_new_txt_len("False",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,94,"IDEsettings.bas");}while(r); -} -S_896:; -if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("SaveExeWithSource",17),__STRING_VALUE)))||new_error){ -if(qbevent){evnt(380,97,"IDEsettings.bas");if(r)goto S_896;} -S_897:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("TRUE",4)))|(-(func_val(__STRING_VALUE)== -1 ))))||new_error){ -if(qbevent){evnt(380,98,"IDEsettings.bas");if(r)goto S_897;} -do{ -*__BYTE_SAVEEXEWITHSOURCE= -1 ; -if(!qbevent)break;evnt(380,99,"IDEsettings.bas");}while(r); -}else{ -do{ -*__BYTE_SAVEEXEWITHSOURCE= 0 ; -if(!qbevent)break;evnt(380,101,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("SaveExeWithSource",17),qbs_new_txt_len("False",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,102,"IDEsettings.bas");}while(r); -} -}else{ -do{ -*__BYTE_SAVEEXEWITHSOURCE= 0 ; -if(!qbevent)break;evnt(380,105,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("SaveExeWithSource",17),qbs_new_txt_len("False",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,106,"IDEsettings.bas");}while(r); -} -S_907:; -if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("EnableQuickNav",14),__STRING_VALUE)))||new_error){ -if(qbevent){evnt(380,109,"IDEsettings.bas");if(r)goto S_907;} -S_908:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("TRUE",4)))|(-(func_val(__STRING_VALUE)== -1 ))))||new_error){ -if(qbevent){evnt(380,110,"IDEsettings.bas");if(r)goto S_908;} -do{ -*__BYTE_ENABLEQUICKNAV= -1 ; -if(!qbevent)break;evnt(380,111,"IDEsettings.bas");}while(r); -}else{ -do{ -*__BYTE_ENABLEQUICKNAV= 0 ; -if(!qbevent)break;evnt(380,113,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("EnableQuickNav",14),qbs_new_txt_len("False",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,114,"IDEsettings.bas");}while(r); -} -}else{ -do{ -*__BYTE_ENABLEQUICKNAV= -1 ; -if(!qbevent)break;evnt(380,117,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("EnableQuickNav",14),qbs_new_txt_len("True",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,118,"IDEsettings.bas");}while(r); -} -S_918:; -if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("ShowErrorsImmediately",21),__STRING_VALUE)))||new_error){ -if(qbevent){evnt(380,121,"IDEsettings.bas");if(r)goto S_918;} -S_919:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("TRUE",4)))|(-(func_val(__STRING_VALUE)== -1 ))))||new_error){ -if(qbevent){evnt(380,122,"IDEsettings.bas");if(r)goto S_919;} -do{ -*__BYTE_IDESHOWERRORSIMMEDIATELY= -1 ; -if(!qbevent)break;evnt(380,123,"IDEsettings.bas");}while(r); -}else{ -do{ -*__BYTE_IDESHOWERRORSIMMEDIATELY= 0 ; -if(!qbevent)break;evnt(380,125,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("ShowErrorsImmediately",21),qbs_new_txt_len("False",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,126,"IDEsettings.bas");}while(r); -} -}else{ -do{ -*__BYTE_IDESHOWERRORSIMMEDIATELY= -1 ; -if(!qbevent)break;evnt(380,129,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("ShowErrorsImmediately",21),qbs_new_txt_len("True",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,130,"IDEsettings.bas");}while(r); -} -S_929:; -if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("ShowLineNumbers",15),__STRING_VALUE)))||new_error){ -if(qbevent){evnt(380,133,"IDEsettings.bas");if(r)goto S_929;} -S_930:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("TRUE",4)))|(-(func_val(__STRING_VALUE)== -1 ))))||new_error){ -if(qbevent){evnt(380,134,"IDEsettings.bas");if(r)goto S_930;} -do{ -*__BYTE_SHOWLINENUMBERS= -1 ; -if(!qbevent)break;evnt(380,135,"IDEsettings.bas");}while(r); -}else{ -do{ -*__BYTE_SHOWLINENUMBERS= 0 ; -if(!qbevent)break;evnt(380,137,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("ShowLineNumbers",15),qbs_new_txt_len("False",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,138,"IDEsettings.bas");}while(r); -} -}else{ -do{ -*__BYTE_SHOWLINENUMBERS= -1 ; -if(!qbevent)break;evnt(380,141,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("ShowLineNumbers",15),qbs_new_txt_len("True",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,142,"IDEsettings.bas");}while(r); -} -S_940:; -if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("ShowLineNumbersSeparator",24),__STRING_VALUE)))||new_error){ -if(qbevent){evnt(380,145,"IDEsettings.bas");if(r)goto S_940;} -S_941:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("TRUE",4)))|(-(func_val(__STRING_VALUE)== -1 ))))||new_error){ -if(qbevent){evnt(380,146,"IDEsettings.bas");if(r)goto S_941;} -do{ -*__BYTE_SHOWLINENUMBERSSEPARATOR= -1 ; -if(!qbevent)break;evnt(380,147,"IDEsettings.bas");}while(r); -}else{ -do{ -*__BYTE_SHOWLINENUMBERSSEPARATOR= 0 ; -if(!qbevent)break;evnt(380,149,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("ShowLineNumbersSeparator",24),qbs_new_txt_len("False",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,150,"IDEsettings.bas");}while(r); -} -}else{ -do{ -*__BYTE_SHOWLINENUMBERSSEPARATOR= -1 ; -if(!qbevent)break;evnt(380,153,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("ShowLineNumbersSeparator",24),qbs_new_txt_len("True",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,154,"IDEsettings.bas");}while(r); -} -S_951:; -if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("ShowLineNumbersUseBG",20),__STRING_VALUE)))||new_error){ -if(qbevent){evnt(380,157,"IDEsettings.bas");if(r)goto S_951;} -S_952:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("TRUE",4)))|(-(func_val(__STRING_VALUE)== -1 ))))||new_error){ -if(qbevent){evnt(380,158,"IDEsettings.bas");if(r)goto S_952;} -do{ -*__BYTE_SHOWLINENUMBERSUSEBG= -1 ; -if(!qbevent)break;evnt(380,159,"IDEsettings.bas");}while(r); -}else{ -do{ -*__BYTE_SHOWLINENUMBERSUSEBG= 0 ; -if(!qbevent)break;evnt(380,161,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("ShowLineNumbersUseBG",20),qbs_new_txt_len("False",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,162,"IDEsettings.bas");}while(r); -} -}else{ -do{ -*__BYTE_SHOWLINENUMBERSUSEBG= -1 ; -if(!qbevent)break;evnt(380,165,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("ShowLineNumbersUseBG",20),qbs_new_txt_len("True",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,166,"IDEsettings.bas");}while(r); -} -S_962:; -if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("BracketHighlight",16),__STRING_VALUE)))||new_error){ -if(qbevent){evnt(380,169,"IDEsettings.bas");if(r)goto S_962;} -S_963:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("TRUE",4)))|(-(func_val(__STRING_VALUE)== -1 ))))||new_error){ -if(qbevent){evnt(380,170,"IDEsettings.bas");if(r)goto S_963;} -do{ -*__INTEGER_BRACKETHIGHLIGHT= -1 ; -if(!qbevent)break;evnt(380,171,"IDEsettings.bas");}while(r); -}else{ -do{ -*__INTEGER_BRACKETHIGHLIGHT= 0 ; -if(!qbevent)break;evnt(380,173,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("BracketHighlight",16),qbs_new_txt_len("False",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,174,"IDEsettings.bas");}while(r); -} -}else{ -do{ -*__INTEGER_BRACKETHIGHLIGHT= -1 ; -if(!qbevent)break;evnt(380,177,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("BracketHighlight",16),qbs_new_txt_len("True",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,178,"IDEsettings.bas");}while(r); -} -S_973:; -if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("KeywordHighlight",16),__STRING_VALUE)))||new_error){ -if(qbevent){evnt(380,181,"IDEsettings.bas");if(r)goto S_973;} -S_974:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("TRUE",4)))|(-(func_val(__STRING_VALUE)== -1 ))))||new_error){ -if(qbevent){evnt(380,182,"IDEsettings.bas");if(r)goto S_974;} -do{ -*__INTEGER_KEYWORDHIGHLIGHT= -1 ; -if(!qbevent)break;evnt(380,183,"IDEsettings.bas");}while(r); -}else{ -do{ -*__INTEGER_KEYWORDHIGHLIGHT= 0 ; -if(!qbevent)break;evnt(380,185,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("KeywordHighlight",16),qbs_new_txt_len("False",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,186,"IDEsettings.bas");}while(r); -} -}else{ -do{ -*__INTEGER_KEYWORDHIGHLIGHT= -1 ; -if(!qbevent)break;evnt(380,189,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("KeywordHighlight",16),qbs_new_txt_len("True",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,190,"IDEsettings.bas");}while(r); -} -S_984:; -if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("MultiHighlight",14),__STRING_VALUE)))||new_error){ -if(qbevent){evnt(380,193,"IDEsettings.bas");if(r)goto S_984;} -S_985:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("TRUE",4)))|(-(func_val(__STRING_VALUE)== -1 ))))||new_error){ -if(qbevent){evnt(380,194,"IDEsettings.bas");if(r)goto S_985;} -do{ -*__INTEGER_MULTIHIGHLIGHT= -1 ; -if(!qbevent)break;evnt(380,195,"IDEsettings.bas");}while(r); -}else{ -do{ -*__INTEGER_MULTIHIGHLIGHT= 0 ; -if(!qbevent)break;evnt(380,197,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("MultiHighlight",14),qbs_new_txt_len("False",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,198,"IDEsettings.bas");}while(r); -} -}else{ -do{ -*__INTEGER_MULTIHIGHLIGHT= -1 ; -if(!qbevent)break;evnt(380,201,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("MultiHighlight",14),qbs_new_txt_len("True",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,202,"IDEsettings.bas");}while(r); -} -S_995:; -if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("IgnoreWarnings",14),__STRING_VALUE)))||new_error){ -if(qbevent){evnt(380,205,"IDEsettings.bas");if(r)goto S_995;} -S_996:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("TRUE",4)))|(-(func_abs((long double)(func_val(__STRING_VALUE)))== 1 ))))||new_error){ -if(qbevent){evnt(380,206,"IDEsettings.bas");if(r)goto S_996;} -do{ -*__BYTE_IGNOREWARNINGS= -1 ; -if(!qbevent)break;evnt(380,207,"IDEsettings.bas");}while(r); -}else{ -do{ -*__BYTE_IGNOREWARNINGS= 0 ; -if(!qbevent)break;evnt(380,209,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("IgnoreWarnings",14),qbs_new_txt_len("False",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,210,"IDEsettings.bas");}while(r); -} -}else{ -do{ -*__BYTE_IGNOREWARNINGS= 0 ; -if(!qbevent)break;evnt(380,213,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("IgnoreWarnings",14),qbs_new_txt_len("False",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,214,"IDEsettings.bas");}while(r); -} -do{ -*__LONG_RESULT=FUNC_READCONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("BackupSize",10),__STRING_VALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,217,"IDEsettings.bas");}while(r); -do{ -*__LONG_IDEBACKUPSIZE=qbr(func_val(__STRING_VALUE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,218,"IDEsettings.bas");}while(r); -S_1008:; -if (((-(*__LONG_IDEBACKUPSIZE< 10 ))|(-(*__LONG_IDEBACKUPSIZE> 2000 )))||new_error){ -if(qbevent){evnt(380,219,"IDEsettings.bas");if(r)goto S_1008;} -do{ -*__LONG_IDEBACKUPSIZE= 100 ; -if(!qbevent)break;evnt(380,219,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("BackupSize",10),qbs_new_txt_len("100 'in MB",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,219,"IDEsettings.bas");}while(r); -} -do{ -*__LONG_RESULT=FUNC_READCONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("DebugInfo",9),__STRING_VALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,221,"IDEsettings.bas");}while(r); -do{ -*__LONG_IDEDEBUGINFO=qbr(func_val(__STRING_VALUE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,222,"IDEsettings.bas");}while(r); -S_1014:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(__STRING_VALUE, 4 )),qbs_new_txt_len("TRUE",4))))||new_error){ -if(qbevent){evnt(380,223,"IDEsettings.bas");if(r)goto S_1014;} -do{ -*__LONG_IDEDEBUGINFO= -1 ; -if(!qbevent)break;evnt(380,223,"IDEsettings.bas");}while(r); -} -S_1017:; -if (((-(*__LONG_RESULT== 0 ))|(-(*__LONG_IDEDEBUGINFO!= -1 )))||new_error){ -if(qbevent){evnt(380,224,"IDEsettings.bas");if(r)goto S_1017;} -do{ -SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("DebugInfo",9),qbs_new_txt_len("False",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,225,"IDEsettings.bas");}while(r); -do{ -*__LONG_IDEDEBUGINFO= 0 ; -if(!qbevent)break;evnt(380,226,"IDEsettings.bas");}while(r); -} -do{ -*__LONG_INCLUDE_GDB_DEBUGGING_INFO=*__LONG_IDEDEBUGINFO; -if(!qbevent)break;evnt(380,228,"IDEsettings.bas");}while(r); -do{ -qbs_set(__STRING_WIKIBASEADDRESS,qbs_new_txt_len("https://qb64phoenix.com/qb64wiki",32)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,230,"IDEsettings.bas");}while(r); -S_1023:; -if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("WikiBaseAddress",15),__STRING_VALUE)))||new_error){ -if(qbevent){evnt(380,231,"IDEsettings.bas");if(r)goto S_1023;} -do{ -qbs_set(__STRING_WIKIBASEADDRESS,__STRING_VALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,232,"IDEsettings.bas");}while(r); -}else{ -do{ -SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("WikiBaseAddress",15),__STRING_WIKIBASEADDRESS); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,234,"IDEsettings.bas");}while(r); -} -do{ -*__ULONG_USEGUIDIALOGS=FUNC_READWRITEBOOLEANSETTINGVALUE(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("UseGuiDialogs",13),&(pass30= -1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,237,"IDEsettings.bas");}while(r); -do{ -*__LONG_RESULT=FUNC_READCONFIGSETTING(__STRING_MOUSESETTINGSSECTION,qbs_new_txt_len("SwapMouseButton",15),__STRING_VALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,240,"IDEsettings.bas");}while(r); -S_1030:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("TRUE",4)))|(-(func_val(__STRING_VALUE)== -1 ))))||new_error){ -if(qbevent){evnt(380,241,"IDEsettings.bas");if(r)goto S_1030;} -do{ -*__BYTE_MOUSEBUTTONSWAPPED= -1 ; -if(!qbevent)break;evnt(380,242,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_MOUSESETTINGSSECTION,qbs_new_txt_len("SwapMouseButton",15),qbs_new_txt_len("True",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,243,"IDEsettings.bas");}while(r); -}else{ -do{ -*__BYTE_MOUSEBUTTONSWAPPED= 0 ; -if(!qbevent)break;evnt(380,245,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_MOUSESETTINGSSECTION,qbs_new_txt_len("SwapMouseButton",15),qbs_new_txt_len("False",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,246,"IDEsettings.bas");}while(r); -} -do{ -*__LONG_RESULT=FUNC_READCONFIGSETTING(__STRING_DEBUGSETTINGSSECTION,qbs_new_txt_len("BaseTCPPort",11),__STRING_VALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,250,"IDEsettings.bas");}while(r); -do{ -*__LONG_IDEBASETCPPORT=qbr(func_val(__STRING_VALUE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,251,"IDEsettings.bas");}while(r); -S_1039:; -if ((-(*__LONG_IDEBASETCPPORT== 0 ))||new_error){ -if(qbevent){evnt(380,252,"IDEsettings.bas");if(r)goto S_1039;} -do{ -*__LONG_IDEBASETCPPORT= 9000 ; -if(!qbevent)break;evnt(380,252,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_DEBUGSETTINGSSECTION,qbs_new_txt_len("BaseTCPPort",11),qbs_new_txt_len("9000",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,252,"IDEsettings.bas");}while(r); -} -do{ -*__LONG_RESULT=FUNC_READCONFIGSETTING(__STRING_DEBUGSETTINGSSECTION,qbs_new_txt_len("WatchListToConsole",18),__STRING_VALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,254,"IDEsettings.bas");}while(r); -S_1044:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("TRUE",4)))|(-(func_val(__STRING_VALUE)== -1 ))))||new_error){ -if(qbevent){evnt(380,255,"IDEsettings.bas");if(r)goto S_1044;} -do{ -*__BYTE_WATCHLISTTOCONSOLE= -1 ; -if(!qbevent)break;evnt(380,256,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_DEBUGSETTINGSSECTION,qbs_new_txt_len("WatchListToConsole",18),qbs_new_txt_len("True",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,257,"IDEsettings.bas");}while(r); -}else{ -do{ -*__BYTE_WATCHLISTTOCONSOLE= 0 ; -if(!qbevent)break;evnt(380,259,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_DEBUGSETTINGSSECTION,qbs_new_txt_len("WatchListToConsole",18),qbs_new_txt_len("False",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,260,"IDEsettings.bas");}while(r); -} -S_1051:; -if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_DEBUGSETTINGSSECTION,qbs_new_txt_len("AutoAddDebugCommand",19),__STRING_VALUE)))||new_error){ -if(qbevent){evnt(380,263,"IDEsettings.bas");if(r)goto S_1051;} -S_1052:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("TRUE",4)))|(-(func_val(__STRING_VALUE)== -1 ))))||new_error){ -if(qbevent){evnt(380,264,"IDEsettings.bas");if(r)goto S_1052;} -do{ -*__BYTE_AUTOADDDEBUGCOMMAND= -1 ; -if(!qbevent)break;evnt(380,265,"IDEsettings.bas");}while(r); -}else{ -do{ -*__BYTE_AUTOADDDEBUGCOMMAND= 0 ; -if(!qbevent)break;evnt(380,267,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_DEBUGSETTINGSSECTION,qbs_new_txt_len("AutoAddDebugCommand",19),qbs_new_txt_len("False",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,268,"IDEsettings.bas");}while(r); -} -}else{ -do{ -*__BYTE_AUTOADDDEBUGCOMMAND= -1 ; -if(!qbevent)break;evnt(380,271,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_DEBUGSETTINGSSECTION,qbs_new_txt_len("AutoAddDebugCommand",19),qbs_new_txt_len("True",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,272,"IDEsettings.bas");}while(r); -} -S_1062:; -if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_SortSUBs",12),__STRING_VALUE)))||new_error){ -if(qbevent){evnt(380,276,"IDEsettings.bas");if(r)goto S_1062;} -S_1063:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("TRUE",4)))|(-(func_val(__STRING_VALUE)== -1 ))))||new_error){ -if(qbevent){evnt(380,277,"IDEsettings.bas");if(r)goto S_1063;} -do{ -*__BYTE_IDESORTSUBS= -1 ; -if(!qbevent)break;evnt(380,278,"IDEsettings.bas");}while(r); -}else{ -do{ -*__BYTE_IDESORTSUBS= 0 ; -if(!qbevent)break;evnt(380,280,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_SortSUBs",12),qbs_new_txt_len("False",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,281,"IDEsettings.bas");}while(r); -} -}else{ -do{ -*__BYTE_IDESORTSUBS= 0 ; -if(!qbevent)break;evnt(380,284,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_SortSUBs",12),qbs_new_txt_len("False",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,285,"IDEsettings.bas");}while(r); -} -S_1073:; -if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_KeywordCapital",18),__STRING_VALUE)))||new_error){ -if(qbevent){evnt(380,288,"IDEsettings.bas");if(r)goto S_1073;} -S_1074:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("TRUE",4)))|(-(func_val(__STRING_VALUE)== -1 ))))||new_error){ -if(qbevent){evnt(380,289,"IDEsettings.bas");if(r)goto S_1074;} -do{ -*__BYTE_IDEAUTOLAYOUTKWCAPITALS= -1 ; -if(!qbevent)break;evnt(380,290,"IDEsettings.bas");}while(r); -}else{ -do{ -*__BYTE_IDEAUTOLAYOUTKWCAPITALS= 0 ; -if(!qbevent)break;evnt(380,292,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_KeywordCapital",18),qbs_new_txt_len("False",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,293,"IDEsettings.bas");}while(r); -} -}else{ -do{ -*__BYTE_IDEAUTOLAYOUTKWCAPITALS= 0 ; -if(!qbevent)break;evnt(380,296,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_KeywordCapital",18),qbs_new_txt_len("False",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,297,"IDEsettings.bas");}while(r); -} -S_1084:; -if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_SUBsLength",14),__STRING_VALUE)))||new_error){ -if(qbevent){evnt(380,300,"IDEsettings.bas");if(r)goto S_1084;} -S_1085:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("TRUE",4)))|(-(func_val(__STRING_VALUE)== -1 ))))||new_error){ -if(qbevent){evnt(380,301,"IDEsettings.bas");if(r)goto S_1085;} -do{ -*__BYTE_IDESUBSLENGTH= -1 ; -if(!qbevent)break;evnt(380,302,"IDEsettings.bas");}while(r); -}else{ -do{ -*__BYTE_IDESUBSLENGTH= 0 ; -if(!qbevent)break;evnt(380,304,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_SUBsLength",14),qbs_new_txt_len("False",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,305,"IDEsettings.bas");}while(r); -} -}else{ -do{ -*__BYTE_IDESUBSLENGTH= -1 ; -if(!qbevent)break;evnt(380,308,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_SUBsLength",14),qbs_new_txt_len("True",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,309,"IDEsettings.bas");}while(r); -} -S_1095:; -if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_AutoPosition",16),__STRING_VALUE)))||new_error){ -if(qbevent){evnt(380,312,"IDEsettings.bas");if(r)goto S_1095;} -S_1096:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("TRUE",4)))|(-(func_abs((long double)(func_val(__STRING_VALUE)))== 1 ))))||new_error){ -if(qbevent){evnt(380,313,"IDEsettings.bas");if(r)goto S_1096;} -do{ -*__BYTE_IDE_AUTOPOSITION= -1 ; -if(!qbevent)break;evnt(380,314,"IDEsettings.bas");}while(r); -}else{ -do{ -*__BYTE_IDE_AUTOPOSITION= 0 ; -if(!qbevent)break;evnt(380,316,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_AutoPosition",16),qbs_new_txt_len("False",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,317,"IDEsettings.bas");}while(r); -} -}else{ -do{ -*__BYTE_IDE_AUTOPOSITION= -1 ; -if(!qbevent)break;evnt(380,320,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_AutoPosition",16),qbs_new_txt_len("True",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,321,"IDEsettings.bas");}while(r); -} -do{ -*__LONG_RESULT=FUNC_READCONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_NormalCursorStart",21),__STRING_VALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,324,"IDEsettings.bas");}while(r); -do{ -*__LONG_IDENORMALCURSORSTART=qbr(func_val(__STRING_VALUE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,325,"IDEsettings.bas");}while(r); -S_1108:; -if (((-(*__LONG_IDENORMALCURSORSTART< 0 ))|(-(*__LONG_IDENORMALCURSORSTART> 31 ))|(-(*__LONG_RESULT== 0 )))||new_error){ -if(qbevent){evnt(380,326,"IDEsettings.bas");if(r)goto S_1108;} -do{ -*__LONG_IDENORMALCURSORSTART= 6 ; -if(!qbevent)break;evnt(380,327,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_NormalCursorStart",21),qbs_new_txt_len("6",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,328,"IDEsettings.bas");}while(r); -} -do{ -*__LONG_RESULT=FUNC_READCONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_NormalCursorEnd",19),__STRING_VALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,331,"IDEsettings.bas");}while(r); -do{ -*__LONG_IDENORMALCURSOREND=qbr(func_val(__STRING_VALUE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,332,"IDEsettings.bas");}while(r); -S_1114:; -if (((-(*__LONG_IDENORMALCURSOREND< 0 ))|(-(*__LONG_IDENORMALCURSOREND> 31 ))|(-(*__LONG_RESULT== 0 )))||new_error){ -if(qbevent){evnt(380,333,"IDEsettings.bas");if(r)goto S_1114;} -do{ -*__LONG_IDENORMALCURSOREND= 8 ; -if(!qbevent)break;evnt(380,334,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_NormalCursorEnd",19),qbs_new_txt_len("8",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,335,"IDEsettings.bas");}while(r); -} -do{ -*__LONG_RESULT=FUNC_READCONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_AutoFormat",14),__STRING_VALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,338,"IDEsettings.bas");}while(r); -do{ -*__LONG_IDEAUTOLAYOUT=qbr(func_val(__STRING_VALUE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,339,"IDEsettings.bas");}while(r); -S_1120:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("TRUE",4)))|(-(*__LONG_IDEAUTOLAYOUT!= 0 ))))||new_error){ -if(qbevent){evnt(380,340,"IDEsettings.bas");if(r)goto S_1120;} -do{ -*__LONG_IDEAUTOLAYOUT= 1 ; -if(!qbevent)break;evnt(380,341,"IDEsettings.bas");}while(r); -}else{ -S_1123:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("FALSE",5)))&(qbs_notequal(__STRING_VALUE,qbs_new_txt_len("0",1)))))||new_error){ -if(qbevent){evnt(380,343,"IDEsettings.bas");if(r)goto S_1123;} -do{ -SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_AutoFormat",14),qbs_new_txt_len("True",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,344,"IDEsettings.bas");}while(r); -do{ -*__LONG_IDEAUTOLAYOUT= 1 ; -if(!qbevent)break;evnt(380,345,"IDEsettings.bas");}while(r); -}else{ -do{ -*__LONG_IDEAUTOLAYOUT= 0 ; -if(!qbevent)break;evnt(380,347,"IDEsettings.bas");}while(r); -} -} -do{ -*__LONG_RESULT=FUNC_READCONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_AutoIndent",14),__STRING_VALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,351,"IDEsettings.bas");}while(r); -do{ -*__LONG_IDEAUTOINDENT=qbr(func_val(__STRING_VALUE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,352,"IDEsettings.bas");}while(r); -S_1132:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("TRUE",4)))|(-(*__LONG_IDEAUTOINDENT!= 0 ))))||new_error){ -if(qbevent){evnt(380,353,"IDEsettings.bas");if(r)goto S_1132;} -do{ -*__LONG_IDEAUTOINDENT= 1 ; -if(!qbevent)break;evnt(380,354,"IDEsettings.bas");}while(r); -}else{ -S_1135:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("FALSE",5)))&(qbs_notequal(__STRING_VALUE,qbs_new_txt_len("0",1)))))||new_error){ -if(qbevent){evnt(380,356,"IDEsettings.bas");if(r)goto S_1135;} -do{ -SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_AutoIndent",14),qbs_new_txt_len("True",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,357,"IDEsettings.bas");}while(r); -do{ -*__LONG_IDEAUTOINDENT= 1 ; -if(!qbevent)break;evnt(380,358,"IDEsettings.bas");}while(r); -}else{ -do{ -*__LONG_IDEAUTOINDENT= 0 ; -if(!qbevent)break;evnt(380,360,"IDEsettings.bas");}while(r); -} -} -do{ -*__LONG_RESULT=FUNC_READCONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_IndentSUBs",14),__STRING_VALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,364,"IDEsettings.bas");}while(r); -do{ -*__LONG_IDEINDENTSUBS=qbr(func_val(__STRING_VALUE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,365,"IDEsettings.bas");}while(r); -S_1144:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("TRUE",4)))|(-(*__LONG_IDEINDENTSUBS!= 0 ))))||new_error){ -if(qbevent){evnt(380,366,"IDEsettings.bas");if(r)goto S_1144;} -do{ -*__LONG_IDEINDENTSUBS= 1 ; -if(!qbevent)break;evnt(380,367,"IDEsettings.bas");}while(r); -}else{ -S_1147:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("FALSE",5)))&(qbs_notequal(__STRING_VALUE,qbs_new_txt_len("0",1)))))||new_error){ -if(qbevent){evnt(380,369,"IDEsettings.bas");if(r)goto S_1147;} -do{ -SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_IndentSUBs",14),qbs_new_txt_len("True",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,370,"IDEsettings.bas");}while(r); -do{ -*__LONG_IDEINDENTSUBS= 1 ; -if(!qbevent)break;evnt(380,371,"IDEsettings.bas");}while(r); -}else{ -do{ -*__LONG_IDEINDENTSUBS= 0 ; -if(!qbevent)break;evnt(380,373,"IDEsettings.bas");}while(r); -} -} -do{ -*__LONG_RESULT=FUNC_READCONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_IndentSize",14),__STRING_VALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,377,"IDEsettings.bas");}while(r); -do{ -*__LONG_IDEAUTOINDENTSIZE=qbr(func_val(__STRING_VALUE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,378,"IDEsettings.bas");}while(r); -S_1156:; -if (((-(*__LONG_IDEAUTOINDENTSIZE< 1 ))|(-(*__LONG_IDEAUTOINDENTSIZE> 64 )))||new_error){ -if(qbevent){evnt(380,379,"IDEsettings.bas");if(r)goto S_1156;} -do{ -*__LONG_IDEAUTOINDENTSIZE= 4 ; -if(!qbevent)break;evnt(380,380,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_IndentSize",14),qbs_new_txt_len("4",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,381,"IDEsettings.bas");}while(r); -} -do{ -*__LONG_RESULT=FUNC_READCONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_CustomFont",14),__STRING_VALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,384,"IDEsettings.bas");}while(r); -do{ -*__LONG_IDECUSTOMFONT=qbr(func_val(__STRING_VALUE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,385,"IDEsettings.bas");}while(r); -S_1162:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("TRUE",4)))|(-(*__LONG_IDECUSTOMFONT!= 0 ))))||new_error){ -if(qbevent){evnt(380,386,"IDEsettings.bas");if(r)goto S_1162;} -do{ -*__LONG_IDECUSTOMFONT= 1 ; -if(!qbevent)break;evnt(380,387,"IDEsettings.bas");}while(r); -}else{ -do{ -SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_CustomFont",14),qbs_new_txt_len("False",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,389,"IDEsettings.bas");}while(r); -do{ -*__LONG_IDECUSTOMFONT= 0 ; -if(!qbevent)break;evnt(380,390,"IDEsettings.bas");}while(r); -} -do{ -*__LONG_RESULT=FUNC_READCONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_UseFont8",12),__STRING_VALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,393,"IDEsettings.bas");}while(r); -S_1169:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("TRUE",4))))||new_error){ -if(qbevent){evnt(380,394,"IDEsettings.bas");if(r)goto S_1169;} -do{ -*__BYTE_IDE_USEFONT8= 1 ; -if(!qbevent)break;evnt(380,395,"IDEsettings.bas");}while(r); -}else{ -do{ -SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_UseFont8",12),qbs_new_txt_len("False",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,397,"IDEsettings.bas");}while(r); -do{ -*__BYTE_IDE_USEFONT8= 0 ; -if(!qbevent)break;evnt(380,398,"IDEsettings.bas");}while(r); -} -do{ -*__LONG_RESULT=FUNC_READCONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_CustomFont$",15),__STRING_VALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,401,"IDEsettings.bas");}while(r); -do{ -qbs_set(__STRING_IDECUSTOMFONTFILE,__STRING_VALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,402,"IDEsettings.bas");}while(r); -S_1177:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_RESULT== 0 ))|(qbs_equal(__STRING_IDECUSTOMFONTFILE,qbs_new_txt_len("",0)))))||new_error){ -if(qbevent){evnt(380,403,"IDEsettings.bas");if(r)goto S_1177;} -do{ -qbs_set(__STRING_IDECUSTOMFONTFILE,qbs_new_txt_len("C:\\Windows\\Fonts\\lucon.ttf",26)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,404,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_CustomFont$",15),__STRING_IDECUSTOMFONTFILE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,405,"IDEsettings.bas");}while(r); -} -do{ -*__LONG_RESULT=FUNC_READCONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_CustomFontSize",18),__STRING_VALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,408,"IDEsettings.bas");}while(r); -do{ -*__LONG_IDECUSTOMFONTHEIGHT=qbr(func_val(__STRING_VALUE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,409,"IDEsettings.bas");}while(r); -S_1183:; -if (((-(*__LONG_IDECUSTOMFONTHEIGHT< 8 ))|(-(*__LONG_IDECUSTOMFONTHEIGHT> 100 )))||new_error){ -if(qbevent){evnt(380,410,"IDEsettings.bas");if(r)goto S_1183;} -do{ -*__LONG_IDECUSTOMFONTHEIGHT= 21 ; -if(!qbevent)break;evnt(380,410,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_CustomFontSize",18),qbs_new_txt_len("21",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,410,"IDEsettings.bas");}while(r); -} -do{ -*__LONG_RESULT=FUNC_READCONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_CodePage",12),__STRING_VALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,412,"IDEsettings.bas");}while(r); -do{ -*__LONG_IDECPINDEX=qbr(func_val(__STRING_VALUE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,413,"IDEsettings.bas");}while(r); -S_1189:; -if (((-(*__LONG_IDECPINDEX< 0 ))|(-(*__LONG_IDECPINDEX> 27 )))||new_error){ -if(qbevent){evnt(380,414,"IDEsettings.bas");if(r)goto S_1189;} -do{ -*__LONG_IDECPINDEX= 0 ; -if(!qbevent)break;evnt(380,414,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_CodePage",12),qbs_new_txt_len("0",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,414,"IDEsettings.bas");}while(r); -} -S_1193:; -if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_CUSTOMDICTIONARYSECTION,qbs_new_txt_len("CustomKeywords$",15),__STRING_VALUE)))||new_error){ -if(qbevent){evnt(380,417,"IDEsettings.bas");if(r)goto S_1193;} -do{ -qbs_set(__STRING_TEMPLIST,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,418,"IDEsettings.bas");}while(r); -do{ -qbs_set(__STRING_LISTOFCUSTOMKEYWORDS,qbs_add(qbs_add(qbs_new_txt_len("@",1),qbs_ucase(__STRING_VALUE)),qbs_new_txt_len("@",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,419,"IDEsettings.bas");}while(r); -S_1196:; -fornext_value32= 1 ; -fornext_finalvalue32=__STRING_LISTOFCUSTOMKEYWORDS->len; -fornext_step32= 1 ; -if (fornext_step32<0) fornext_step_negative32=1; else fornext_step_negative32=0; -if (new_error) goto fornext_error32; -goto fornext_entrylabel32; -while(1){ -fornext_value32=fornext_step32+(*__LONG_I); -fornext_entrylabel32: -*__LONG_I=fornext_value32; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative32){ -if (fornext_value32fornext_finalvalue32) break; -} -fornext_error32:; -if(qbevent){evnt(380,420,"IDEsettings.bas");if(r)goto S_1196;} -do{ -*__LONG_CHECKCHAR=qbs_asc(__STRING_LISTOFCUSTOMKEYWORDS,*__LONG_I); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,421,"IDEsettings.bas");}while(r); -S_1198:; -if ((-(*__LONG_CHECKCHAR== 64 ))||new_error){ -if(qbevent){evnt(380,422,"IDEsettings.bas");if(r)goto S_1198;} -S_1199:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_right(__STRING_TEMPLIST, 1 ),qbs_new_txt_len("@",1))))||new_error){ -if(qbevent){evnt(380,423,"IDEsettings.bas");if(r)goto S_1199;} -do{ -qbs_set(__STRING_TEMPLIST,qbs_add(__STRING_TEMPLIST,qbs_new_txt_len("@",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,423,"IDEsettings.bas");}while(r); -} -}else{ -do{ -qbs_set(__STRING_TEMPLIST,qbs_add(__STRING_TEMPLIST,func_chr(*__LONG_CHECKCHAR))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,425,"IDEsettings.bas");}while(r); -} -fornext_continue_31:; -} -fornext_exit_31:; -do{ -qbs_set(__STRING_LISTOFCUSTOMKEYWORDS,__STRING_TEMPLIST); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,428,"IDEsettings.bas");}while(r); -do{ -*__LONG_CUSTOMKEYWORDSLENGTH=__STRING_LISTOFCUSTOMKEYWORDS->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,429,"IDEsettings.bas");}while(r); -}else{ -do{ -SUB_INISETADDQUOTES(&(pass35= -1 )); -if(!qbevent)break;evnt(380,431,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_CUSTOMDICTIONARYSECTION,qbs_new_txt_len("Instructions1",13),qbs_new_txt_len("Add custom keywords separated by the 'at' sign.",47)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,432,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_CUSTOMDICTIONARYSECTION,qbs_new_txt_len("Instructions2",13),qbs_new_txt_len("Useful to colorize constants (eg @true@false@).",47)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,433,"IDEsettings.bas");}while(r); -do{ -SUB_INISETADDQUOTES(&(pass36= 0 )); -if(!qbevent)break;evnt(380,434,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_CUSTOMDICTIONARYSECTION,qbs_new_txt_len("CustomKeywords$",15),qbs_new_txt_len("@",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,435,"IDEsettings.bas");}while(r); -} -do{ -SUB_INISETADDQUOTES(&(pass37= -1 )); -if(!qbevent)break;evnt(380,439,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_COLORSCHEMESSECTION,qbs_new_txt_len("Instructions1",13),qbs_new_txt_len("Create custom color schemes in the IDE (Options->IDE Colors).",61)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,440,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_COLORSCHEMESSECTION,qbs_new_txt_len("Instructions2",13),qbs_new_txt_len("Custom color schemes will be stored in this section.",52)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,441,"IDEsettings.bas");}while(r); -do{ -SUB_INISETADDQUOTES(&(pass38= 0 )); -if(!qbevent)break;evnt(380,442,"IDEsettings.bas");}while(r); -S_1219:; -if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_WINDOWSETTINGSSECTION,qbs_new_txt_len("IDE_TopPosition",15),__STRING_VALUE)))||new_error){ -if(qbevent){evnt(380,445,"IDEsettings.bas");if(r)goto S_1219;} -do{ -*__INTEGER_IDE_TOPPOSITION=qbr_float_to_long(func_val(__STRING_VALUE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,446,"IDEsettings.bas");}while(r); -}else{ -do{ -*__BYTE_IDE_BYPASSAUTOPOSITION= -1 ; -if(!qbevent)break;evnt(380,448,"IDEsettings.bas");}while(r); -do{ -*__INTEGER_IDE_TOPPOSITION= 0 ; -if(!qbevent)break;evnt(380,449,"IDEsettings.bas");}while(r); -} -S_1225:; -if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_WINDOWSETTINGSSECTION,qbs_new_txt_len("IDE_LeftPosition",16),__STRING_VALUE)))||new_error){ -if(qbevent){evnt(380,452,"IDEsettings.bas");if(r)goto S_1225;} -do{ -*__INTEGER_IDE_LEFTPOSITION=qbr_float_to_long(func_val(__STRING_VALUE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,453,"IDEsettings.bas");}while(r); -}else{ -do{ -*__BYTE_IDE_BYPASSAUTOPOSITION= -1 ; -if(!qbevent)break;evnt(380,455,"IDEsettings.bas");}while(r); -do{ -*__INTEGER_IDE_LEFTPOSITION= 0 ; -if(!qbevent)break;evnt(380,456,"IDEsettings.bas");}while(r); -} -do{ -*__LONG_RESULT=FUNC_READCONFIGSETTING(__STRING_WINDOWSETTINGSSECTION,qbs_new_txt_len("IDE_Width",9),__STRING_VALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,459,"IDEsettings.bas");}while(r); -do{ -*__LONG_IDEWX=qbr(func_val(__STRING_VALUE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,460,"IDEsettings.bas");}while(r); -S_1233:; -if (((-(*__LONG_IDEWX< 80 ))|(-(*__LONG_IDEWX> 1000 )))||new_error){ -if(qbevent){evnt(380,461,"IDEsettings.bas");if(r)goto S_1233;} -do{ -*__LONG_IDEWX= 120 ; -if(!qbevent)break;evnt(380,461,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_WINDOWSETTINGSSECTION,qbs_new_txt_len("IDE_Width",9),qbs_new_txt_len("120",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,461,"IDEsettings.bas");}while(r); -} -do{ -*__LONG_RESULT=FUNC_READCONFIGSETTING(__STRING_WINDOWSETTINGSSECTION,qbs_new_txt_len("IDE_Height",10),__STRING_VALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,463,"IDEsettings.bas");}while(r); -do{ -*__LONG_IDEWY=qbr(func_val(__STRING_VALUE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,464,"IDEsettings.bas");}while(r); -S_1239:; -if (((-(*__LONG_IDEWY< 25 ))|(-(*__LONG_IDEWY> 1000 )))||new_error){ -if(qbevent){evnt(380,465,"IDEsettings.bas");if(r)goto S_1239;} -do{ -*__LONG_IDEWY= 40 ; -if(!qbevent)break;evnt(380,465,"IDEsettings.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_WINDOWSETTINGSSECTION,qbs_new_txt_len("IDE_Height",10),qbs_new_txt_len("40",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,465,"IDEsettings.bas");}while(r); -} -do{ -*__ULONG_IDETEXTCOLOR=func__rgb32( 216 , 216 , 216 ); -if(!qbevent)break;evnt(380,469,"IDEsettings.bas");}while(r); -do{ -*__ULONG_IDEKEYWORDCOLOR=func__rgb32( 69 , 118 , 147 ); -if(!qbevent)break;evnt(380,470,"IDEsettings.bas");}while(r); -do{ -*__ULONG_IDENUMBERSCOLOR=func__rgb32( 216 , 98 , 78 ); -if(!qbevent)break;evnt(380,471,"IDEsettings.bas");}while(r); -do{ -*__ULONG_IDEERRORCOLOR=func__rgb32( 170 , 0 , 0 ); -if(!qbevent)break;evnt(380,472,"IDEsettings.bas");}while(r); -do{ -*__ULONG_IDEQUOTECOLOR=func__rgb32( 255 , 167 , 0 ); -if(!qbevent)break;evnt(380,473,"IDEsettings.bas");}while(r); -do{ -*__ULONG_IDEMETACOMMANDCOLOR=func__rgb32( 85 , 206 , 85 ); -if(!qbevent)break;evnt(380,474,"IDEsettings.bas");}while(r); -do{ -*__ULONG_IDECOMMENTCOLOR=func__rgb32( 98 , 98 , 98 ); -if(!qbevent)break;evnt(380,475,"IDEsettings.bas");}while(r); -do{ -*__ULONG_IDECHROMACOLOR=func__rgb32( 170 , 170 , 170 ); -if(!qbevent)break;evnt(380,476,"IDEsettings.bas");}while(r); -do{ -*__ULONG_IDEBACKGROUNDCOLOR=func__rgb32( 0 , 0 , 39 ); -if(!qbevent)break;evnt(380,477,"IDEsettings.bas");}while(r); -do{ -*__ULONG_IDEBACKGROUNDCOLOR2=func__rgb32( 0 , 49 , 78 ); -if(!qbevent)break;evnt(380,478,"IDEsettings.bas");}while(r); -do{ -*__ULONG_IDEBRACKETHIGHLIGHTCOLOR=func__rgb32( 0 , 88 , 108 ); -if(!qbevent)break;evnt(380,479,"IDEsettings.bas");}while(r); -S_1254:; -if ((qbs_cleanup(qbs_tmp_base,-(FUNC_READCONFIGSETTING(__STRING_COLORSETTINGSSECTION,qbs_new_txt_len("SchemeID",8),__STRING_VALUE)== 0 )))||new_error){ -if(qbevent){evnt(380,482,"IDEsettings.bas");if(r)goto S_1254;} -do{ -SUB_WRITECONFIGSETTING(__STRING_COLORSETTINGSSECTION,qbs_new_txt_len("SchemeID",8),qbs_new_txt_len("1",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,483,"IDEsettings.bas");}while(r); -} -S_1257:; -if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_COLORSETTINGSSECTION,qbs_new_txt_len("TextColor",9),__STRING_VALUE)))||new_error){ -if(qbevent){evnt(380,486,"IDEsettings.bas");if(r)goto S_1257;} -do{ -*__ULONG_IDETEXTCOLOR=FUNC_VRGBS(__STRING_VALUE,__ULONG_IDETEXTCOLOR); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,487,"IDEsettings.bas");}while(r); -}else{ -do{ -SUB_WRITECONFIGSETTING(__STRING_COLORSETTINGSSECTION,qbs_new_txt_len("TextColor",9),FUNC_RGBS(__ULONG_IDETEXTCOLOR)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,488,"IDEsettings.bas");}while(r); -} -S_1262:; -if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_COLORSETTINGSSECTION,qbs_new_txt_len("KeywordColor",12),__STRING_VALUE)))||new_error){ -if(qbevent){evnt(380,491,"IDEsettings.bas");if(r)goto S_1262;} -do{ -*__ULONG_IDEKEYWORDCOLOR=FUNC_VRGBS(__STRING_VALUE,__ULONG_IDEKEYWORDCOLOR); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,492,"IDEsettings.bas");}while(r); -}else{ -do{ -SUB_WRITECONFIGSETTING(__STRING_COLORSETTINGSSECTION,qbs_new_txt_len("KeywordColor",12),FUNC_RGBS(__ULONG_IDEKEYWORDCOLOR)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,493,"IDEsettings.bas");}while(r); -} -S_1267:; -if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_COLORSETTINGSSECTION,qbs_new_txt_len("ErrorColor",10),__STRING_VALUE)))||new_error){ -if(qbevent){evnt(380,496,"IDEsettings.bas");if(r)goto S_1267;} -do{ -*__ULONG_IDEERRORCOLOR=FUNC_VRGBS(__STRING_VALUE,__ULONG_IDENUMBERSCOLOR); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,497,"IDEsettings.bas");}while(r); -}else{ -do{ -SUB_WRITECONFIGSETTING(__STRING_COLORSETTINGSSECTION,qbs_new_txt_len("ErrorColor",10),FUNC_RGBS(__ULONG_IDEERRORCOLOR)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,498,"IDEsettings.bas");}while(r); -} -S_1272:; -if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_COLORSETTINGSSECTION,qbs_new_txt_len("NumbersColor",12),__STRING_VALUE)))||new_error){ -if(qbevent){evnt(380,501,"IDEsettings.bas");if(r)goto S_1272;} -do{ -*__ULONG_IDENUMBERSCOLOR=FUNC_VRGBS(__STRING_VALUE,__ULONG_IDENUMBERSCOLOR); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,502,"IDEsettings.bas");}while(r); -}else{ -do{ -SUB_WRITECONFIGSETTING(__STRING_COLORSETTINGSSECTION,qbs_new_txt_len("NumbersColor",12),FUNC_RGBS(__ULONG_IDENUMBERSCOLOR)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,503,"IDEsettings.bas");}while(r); -} -S_1277:; -if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_COLORSETTINGSSECTION,qbs_new_txt_len("QuoteColor",10),__STRING_VALUE)))||new_error){ -if(qbevent){evnt(380,507,"IDEsettings.bas");if(r)goto S_1277;} -do{ -*__ULONG_IDEQUOTECOLOR=FUNC_VRGBS(__STRING_VALUE,__ULONG_IDEQUOTECOLOR); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,508,"IDEsettings.bas");}while(r); -}else{ -do{ -SUB_WRITECONFIGSETTING(__STRING_COLORSETTINGSSECTION,qbs_new_txt_len("QuoteColor",10),FUNC_RGBS(__ULONG_IDEQUOTECOLOR)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,509,"IDEsettings.bas");}while(r); -} -S_1282:; -if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_COLORSETTINGSSECTION,qbs_new_txt_len("CommentColor",12),__STRING_VALUE)))||new_error){ -if(qbevent){evnt(380,512,"IDEsettings.bas");if(r)goto S_1282;} -do{ -*__ULONG_IDECOMMENTCOLOR=FUNC_VRGBS(__STRING_VALUE,__ULONG_IDECOMMENTCOLOR); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,513,"IDEsettings.bas");}while(r); -}else{ -do{ -SUB_WRITECONFIGSETTING(__STRING_COLORSETTINGSSECTION,qbs_new_txt_len("CommentColor",12),FUNC_RGBS(__ULONG_IDECOMMENTCOLOR)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,514,"IDEsettings.bas");}while(r); -} -S_1287:; -if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_COLORSETTINGSSECTION,qbs_new_txt_len("ChromaColor",11),__STRING_VALUE)))||new_error){ -if(qbevent){evnt(380,517,"IDEsettings.bas");if(r)goto S_1287;} -do{ -*__ULONG_IDECHROMACOLOR=FUNC_VRGBS(__STRING_VALUE,__ULONG_IDECHROMACOLOR); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,518,"IDEsettings.bas");}while(r); -}else{ -do{ -SUB_WRITECONFIGSETTING(__STRING_COLORSETTINGSSECTION,qbs_new_txt_len("ChromaColor",11),FUNC_RGBS(__ULONG_IDECHROMACOLOR)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,519,"IDEsettings.bas");}while(r); -} -S_1292:; -if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_COLORSETTINGSSECTION,qbs_new_txt_len("MetaCommandColor",16),__STRING_VALUE)))||new_error){ -if(qbevent){evnt(380,522,"IDEsettings.bas");if(r)goto S_1292;} -do{ -*__ULONG_IDEMETACOMMANDCOLOR=FUNC_VRGBS(__STRING_VALUE,__ULONG_IDEMETACOMMANDCOLOR); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,523,"IDEsettings.bas");}while(r); -}else{ -do{ -SUB_WRITECONFIGSETTING(__STRING_COLORSETTINGSSECTION,qbs_new_txt_len("MetaCommandColor",16),FUNC_RGBS(__ULONG_IDEMETACOMMANDCOLOR)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,524,"IDEsettings.bas");}while(r); -} -S_1297:; -if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_COLORSETTINGSSECTION,qbs_new_txt_len("HighlightColor",14),__STRING_VALUE)))||new_error){ -if(qbevent){evnt(380,527,"IDEsettings.bas");if(r)goto S_1297;} -do{ -*__ULONG_IDEBRACKETHIGHLIGHTCOLOR=FUNC_VRGBS(__STRING_VALUE,__ULONG_IDEBRACKETHIGHLIGHTCOLOR); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,528,"IDEsettings.bas");}while(r); -}else{ -do{ -SUB_WRITECONFIGSETTING(__STRING_COLORSETTINGSSECTION,qbs_new_txt_len("HighlightColor",14),FUNC_RGBS(__ULONG_IDEBRACKETHIGHLIGHTCOLOR)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,529,"IDEsettings.bas");}while(r); -} -S_1302:; -if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_COLORSETTINGSSECTION,qbs_new_txt_len("BackgroundColor",15),__STRING_VALUE)))||new_error){ -if(qbevent){evnt(380,532,"IDEsettings.bas");if(r)goto S_1302;} -do{ -*__ULONG_IDEBACKGROUNDCOLOR=FUNC_VRGBS(__STRING_VALUE,__ULONG_IDEBACKGROUNDCOLOR); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,533,"IDEsettings.bas");}while(r); -}else{ -do{ -SUB_WRITECONFIGSETTING(__STRING_COLORSETTINGSSECTION,qbs_new_txt_len("BackgroundColor",15),FUNC_RGBS(__ULONG_IDEBACKGROUNDCOLOR)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,534,"IDEsettings.bas");}while(r); -} -S_1307:; -if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_COLORSETTINGSSECTION,qbs_new_txt_len("BackgroundColor2",16),__STRING_VALUE)))||new_error){ -if(qbevent){evnt(380,537,"IDEsettings.bas");if(r)goto S_1307;} -do{ -*__ULONG_IDEBACKGROUNDCOLOR2=FUNC_VRGBS(__STRING_VALUE,__ULONG_IDEBACKGROUNDCOLOR2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,538,"IDEsettings.bas");}while(r); -}else{ -do{ -SUB_WRITECONFIGSETTING(__STRING_COLORSETTINGSSECTION,qbs_new_txt_len("BackgroundColor2",16),FUNC_RGBS(__ULONG_IDEBACKGROUNDCOLOR2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,539,"IDEsettings.bas");}while(r); -} -do{ -*__ULONG_OPTIMIZECPPPROGRAM=FUNC_READWRITEBOOLEANSETTINGVALUE(__STRING_COMPILERSETTINGSSECTION,qbs_new_txt_len("OptimizeCppProgram",18),&(pass39= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,543,"IDEsettings.bas");}while(r); -do{ -*__ULONG_STRIPDEBUGSYMBOLS=FUNC_READWRITEBOOLEANSETTINGVALUE(__STRING_COMPILERSETTINGSSECTION,qbs_new_txt_len("StripDebugSymbols",17),&(pass40= -1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,544,"IDEsettings.bas");}while(r); -do{ -*__ULONG_MAXPARALLELPROCESSES=FUNC_READWRITELONGSETTINGVALUE(__STRING_COMPILERSETTINGSSECTION,qbs_new_txt_len("MaxParallelProcesses",20),&(pass41= 3 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,546,"IDEsettings.bas");}while(r); -do{ -qbs_set(__STRING_EXTRACPPFLAGS,FUNC_READWRITESTRINGSETTINGVALUE(__STRING_COMPILERSETTINGSSECTION,qbs_new_txt_len("ExtraCppFlags",13),qbs_new_txt_len("",0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,548,"IDEsettings.bas");}while(r); -do{ -qbs_set(__STRING_EXTRALINKERFLAGS,FUNC_READWRITESTRINGSETTINGVALUE(__STRING_COMPILERSETTINGSSECTION,qbs_new_txt_len("ExtraLinkerFlags",16),qbs_new_txt_len("",0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,549,"IDEsettings.bas");}while(r); -do{ -*__ULONG_USEMINIAUDIOBACKEND=FUNC_READWRITEBOOLEANSETTINGVALUE(__STRING_COMPILERSETTINGSSECTION,qbs_new_txt_len("UseMiniaudioBackend",19),&(pass42= -1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,551,"IDEsettings.bas");}while(r); -do{ -*__ULONG_GENERATELICENSEFILE=FUNC_READWRITEBOOLEANSETTINGVALUE(__STRING_COMPILERSETTINGSSECTION,qbs_new_txt_len("GenerateLicenseFile",19),&(pass43= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(380,552,"IDEsettings.bas");}while(r); -do{ -if(!qbevent)break;evnt(382);}while(r); -do{ -qbs_set(__STRING_CMDLINEFILE,FUNC_PARSECMDLINEARGS()); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(384);}while(r); -S_1321:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(__STRING_CMDLINEFILE,qbs_new_txt_len("",0)))&(func__fileexists(qbs_add(qbs_add(func__startdir(),qbs_new_txt_len("/",1)),__STRING_CMDLINEFILE)))))||new_error){ -if(qbevent){evnt(385);if(r)goto S_1321;} -do{ -qbs_set(__STRING_CMDLINEFILE,qbs_add(qbs_add(func__startdir(),qbs_new_txt_len("/",1)),__STRING_CMDLINEFILE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(386);}while(r); -do{ -*__LONG_OUTPUTISRELATIVETOSTARTDIR= -1 ; -if(!qbevent)break;evnt(387);}while(r); -} -S_1325:; -if ((*__LONG_CONSOLEMODE)||new_error){ -if(qbevent){evnt(390);if(r)goto S_1325;} -do{ -sub__dest(func__console()); -if(!qbevent)break;evnt(391);}while(r); -}else{ -do{ -sub__console( 2 ); -if(!qbevent)break;evnt(393);}while(r); -do{ -sub__screenshow(); -if(!qbevent)break;evnt(394);}while(r); -do{ -sub__icon(NULL,NULL,0); -if(!qbevent)break;evnt(395);}while(r); -} -do{ -if(!qbevent)break;evnt(452);}while(r); -do{ -if(!qbevent)break;evnt(453);}while(r); -do{ -if(!qbevent)break;evnt(454);}while(r); -do{ -if(!qbevent)break;evnt(455);}while(r); -do{ -if(!qbevent)break;evnt(456);}while(r); -do{ -if(!qbevent)break;evnt(457);}while(r); -do{ -if(!qbevent)break;evnt(458);}while(r); -do{ -if(!qbevent)break;evnt(459);}while(r); -do{ -if(!qbevent)break;evnt(460);}while(r); -do{ +} +if(!qbevent)break;evnt(232);}while(r); +S_671:; +fornext_value9= 0 ; +fornext_finalvalue9= 255 ; +fornext_step9= 1 ; +if (fornext_step9<0) fornext_step_negative9=1; else fornext_step_negative9=0; +if (new_error) 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_value9fornext_finalvalue9) break; +} +fornext_error9:; +if(qbevent){evnt(233);if(r)goto S_671;} +do{ +tmp_long=array_check((*__LONG_I)-__ARRAY_STRING_INLINEDATASTR[4],__ARRAY_STRING_INLINEDATASTR[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_INLINEDATASTR[0]))[tmp_long])),qbs_add(FUNC_STR2(__LONG_I),qbs_new_txt_len(",",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(234);}while(r); +fornext_continue_8:; +} +fornext_exit_8:; +do{ +if(!qbevent)break;evnt(238);}while(r); +do{ +if(!qbevent)break;evnt(239);}while(r); +do{ +qbs_set(__STRING_EXTENSION,qbs_new_txt_len(".exe",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(240);}while(r); +S_677:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ +if(qbevent){evnt(241);if(r)goto S_677;} +do{ +qbs_set(__STRING_EXTENSION,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(241);}while(r); +} +do{ +if(!qbevent)break;evnt(243);}while(r); +do{ +qbs_set(__STRING1_PATHSEP,qbs_new_txt_len("\\",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(244);}while(r); +S_682:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ +if(qbevent){evnt(245);if(r)goto S_682;} +do{ +qbs_set(__STRING1_PATHSEP,qbs_new_txt_len("/",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(245);}while(r); +} +do{ +error_goto_line=1; +if(!qbevent)break;evnt(248);}while(r); +do{ +if(!qbevent)break;evnt(250);}while(r); +S_687:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ +if(qbevent){evnt(251);if(r)goto S_687;} +do{ +qbs_set(__STRING_TMPDIR,qbs_new_txt_len(".\\internal\\temp\\",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(251);}while(r); +do{ +qbs_set(__STRING_TMPDIR2,qbs_new_txt_len("..\\\\temp\\\\",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(251);}while(r); +} +S_691:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ +if(qbevent){evnt(252);if(r)goto S_691;} +do{ +qbs_set(__STRING_TMPDIR,qbs_new_txt_len("./internal/temp/",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(252);}while(r); +do{ +qbs_set(__STRING_TMPDIR2,qbs_new_txt_len("../temp/",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(252);}while(r); +} +S_695:; +if ((qbs_cleanup(qbs_tmp_base,~(func__direxists(__STRING_TMPDIR))))||new_error){ +if(qbevent){evnt(254);if(r)goto S_695;} +do{ +sub_mkdir(__STRING_TMPDIR); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(254);}while(r); +} +do{ +*__LONG_THISINSTANCEPID=( int32 )getpid(); +if(!qbevent)break;evnt(260);}while(r); +do{ +if(!qbevent)break;evnt(261);}while(r); +S_700:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("LINUX",5),0)))||new_error){ +if(qbevent){evnt(263);if(r)goto S_700;} +do{ +*__LONG_FH=func_freefile(); +if(!qbevent)break;evnt(264);}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(265);}while(r); +do{ +*__LONG_TEMPFOLDERRECORDS=qbr(func_lof(*__LONG_FH)/ ((long double)(4))); +if(!qbevent)break;evnt(266);}while(r); +do{ +*__LONG_I= 1 ; +if(!qbevent)break;evnt(267);}while(r); +S_705:; +if ((-(*__LONG_TEMPFOLDERRECORDS== 0 ))||new_error){ +if(qbevent){evnt(268);if(r)goto S_705;} +do{ +sub_put(*__LONG_FH, 1 ,byte_element((uint64)__LONG_THISINSTANCEPID,4,byte_element_12),1); +if(!qbevent)break;evnt(270);}while(r); +}else{ +S_708:; +fornext_value14= 1 ; +fornext_finalvalue14=*__LONG_TEMPFOLDERRECORDS; +fornext_step14= 1 ; +if (fornext_step14<0) fornext_step_negative14=1; else fornext_step_negative14=0; +if (new_error) 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_value14fornext_finalvalue14) break; +} +fornext_error14:; +if(qbevent){evnt(272);if(r)goto S_708;} +do{ +sub_get(*__LONG_FH,*__LONG_I,byte_element((uint64)__LONG_TEMPFOLDERSEARCH,4,byte_element_15),1); +if(!qbevent)break;evnt(274);}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(276);}while(r); +do{ +*__LONG_FH2=func_freefile(); +if(!qbevent)break;evnt(277);}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(278);}while(r); +do{ +tmp_fileno=*__LONG_FH2; +if (new_error) goto skip16; +sub_file_line_input_string(tmp_fileno,__STRING_CHECKPID); +if (new_error) goto skip16; +skip16: +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(279);}while(r); +do{ +sub_close(*__LONG_FH2,1); +if(!qbevent)break;evnt(280);}while(r); +S_715:; +if ((qbs_cleanup(qbs_tmp_base,-(func_val(__STRING_CHECKPID)== 1 )))||new_error){ +if(qbevent){evnt(281);if(r)goto S_715;} +do{ +sub_put(*__LONG_FH,*__LONG_I,byte_element((uint64)__LONG_THISINSTANCEPID,4,byte_element_17),1); +if(!qbevent)break;evnt(284);}while(r); +do{ +goto fornext_exit_13; +if(!qbevent)break;evnt(285);}while(r); +} +fornext_continue_13:; +} +fornext_exit_13:; +S_720:; +if ((-(*__LONG_I>*__LONG_TEMPFOLDERRECORDS))||new_error){ +if(qbevent){evnt(288);if(r)goto S_720;} +do{ +sub_put(*__LONG_FH,*__LONG_I,byte_element((uint64)__LONG_THISINSTANCEPID,4,byte_element_18),1); +if(!qbevent)break;evnt(290);}while(r); +} +} +do{ +sub_close(*__LONG_FH,1); +if(!qbevent)break;evnt(293);}while(r); +S_725:; +if ((-(*__LONG_I> 1 ))||new_error){ +if(qbevent){evnt(294);if(r)goto S_725;} +do{ +qbs_set(__STRING_TMPDIR,qbs_add(qbs_add(qbs_new_txt_len("./internal/temp",15),FUNC_STR2(__LONG_I)),qbs_new_txt_len("/",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(295);}while(r); +do{ +qbs_set(__STRING_TMPDIR2,qbs_add(qbs_add(qbs_new_txt_len("../temp",7),FUNC_STR2(__LONG_I)),qbs_new_txt_len("/",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(295);}while(r); +S_728:; +if ((qbs_cleanup(qbs_tmp_base,-(func__direxists(__STRING_TMPDIR)== 0 )))||new_error){ +if(qbevent){evnt(296);if(r)goto S_728;} +do{ +sub_mkdir(__STRING_TMPDIR); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(297);}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(300);}while(r); +}else{ +do{ +error_goto_line=2; +if(!qbevent)break;evnt(302);}while(r); +do{ +*__LONG_E= 0 ; +if(!qbevent)break;evnt(303);}while(r); +do{ +*__LONG_I= 1 ; +if(!qbevent)break;evnt(304);}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(305);}while(r); +S_738:; +while((*__LONG_E)||new_error){ +if(qbevent){evnt(306);if(r)goto S_738;} +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(307);}while(r); +S_740:; +if ((-(*__LONG_I== 1000 ))||new_error){ +if(qbevent){evnt(308);if(r)goto S_740;} +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("Unable to locate the 'internal' folder",38)); +if (new_error) 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(308);}while(r); +do{ +if(qbevent){evnt(308);} +exit_code= 1 ; +sub_end(); +if(!qbevent)break;evnt(308);}while(r); +} +do{ +sub_mkdir(qbs_add(qbs_new_txt_len(".\\internal\\temp",15),FUNC_STR2(__LONG_I))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(309);}while(r); +S_745:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ +if(qbevent){evnt(310);if(r)goto S_745;} +do{ +qbs_set(__STRING_TMPDIR,qbs_add(qbs_add(qbs_new_txt_len(".\\internal\\temp",15),FUNC_STR2(__LONG_I)),qbs_new_txt_len("\\",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(310);}while(r); +do{ +qbs_set(__STRING_TMPDIR2,qbs_add(qbs_add(qbs_new_txt_len("..\\\\temp",8),FUNC_STR2(__LONG_I)),qbs_new_txt_len("\\\\",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(310);}while(r); +} +S_749:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ +if(qbevent){evnt(311);if(r)goto S_749;} +do{ +qbs_set(__STRING_TMPDIR,qbs_add(qbs_add(qbs_new_txt_len("./internal/temp",15),FUNC_STR2(__LONG_I)),qbs_new_txt_len("/",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(311);}while(r); +do{ +qbs_set(__STRING_TMPDIR2,qbs_add(qbs_add(qbs_new_txt_len("../temp",7),FUNC_STR2(__LONG_I)),qbs_new_txt_len("/",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(311);}while(r); +} +do{ +*__LONG_E= 0 ; +if(!qbevent)break;evnt(312);}while(r); +do{ +sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("temp.bin",8)), 4 ,NULL, 4 , 26 ,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(313);}while(r); +dl_continue_19:; +} +dl_exit_19:; +} +do{ +*__LONG_TEMPFOLDERINDEX=*__LONG_I; +if(!qbevent)break;evnt(319);}while(r); +S_758:; +if ((-(*__LONG_I> 1 ))||new_error){ +if(qbevent){evnt(320);if(r)goto S_758;} +do{ +sub_open(qbs_add(qbs_add(qbs_new_txt_len(".\\internal\\c\\qbx",16),FUNC_STR2(__LONG_I)),qbs_new_txt_len(".cpp",4)), 4 ,NULL,NULL, 2 ,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(322);}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(323);}while(r); +S_761:; +while((!(func_eof( 1 )))||new_error){ +if(qbevent){evnt(324);if(r)goto S_761;} +do{ +tmp_fileno= 1 ; +if (new_error) goto skip22; +sub_file_line_input_string(tmp_fileno,__STRING_A); +if (new_error) goto skip22; +skip22: +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(325);}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(326);}while(r); +S_764:; +if ((*__LONG_X)||new_error){ +if(qbevent){evnt(326);if(r)goto S_764;} +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)),FUNC_STR2(__LONG_I)),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(326);}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(327);}while(r); +S_768:; +if ((*__LONG_X)||new_error){ +if(qbevent){evnt(327);if(r)goto S_768;} +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)),FUNC_STR2(__LONG_I)),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(327);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 2 ; +if (new_error) goto skip25; +sub_file_print(tmp_fileno,__STRING_A, 0, 0, 1); +if (new_error) goto skip25; +skip25: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(328);}while(r); +dl_continue_21:; +} +dl_exit_21:; +do{ +sub_close( 1 ,1); +sub_close( 2 ,1); +if(!qbevent)break;evnt(330);}while(r); +} +S_775:; +if (( 0 )||new_error){ +if(qbevent){evnt(333);if(r)goto S_775;} +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(333);}while(r); +} +do{ +error_goto_line=3; +if(!qbevent)break;evnt(335);}while(r); +do{ +if(!qbevent)break;evnt(339);}while(r); +do{ +if(!qbevent)break;evnt(340);}while(r); +S_781:; +if ((-(*__LONG_TEMPFOLDERINDEX!= 1 ))||new_error){ +if(qbevent){evnt(341);if(r)goto S_781;} +do{ +qbs_set(__STRING_TEMPFOLDERINDEXSTR,qbs_add(qbs_add(qbs_new_txt_len("(",1),FUNC_STR2(__LONG_TEMPFOLDERINDEX)),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(341);}while(r); +do{ +qbs_set(__STRING_TEMPFOLDERINDEXSTR2,FUNC_STR2(__LONG_TEMPFOLDERINDEX)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(341);}while(r); +} +do{ +if(!qbevent)break;evnt(344);}while(r); +do{ +if(!qbevent)break;evnt(345);}while(r); +do{ +if(!qbevent)break;evnt(346);}while(r); +do{ +if(!qbevent)break;evnt(348);}while(r); +do{ +if(!qbevent)break;evnt(350);}while(r); +do{ +if(!qbevent)break;evnt(351);}while(r); +do{ +if(!qbevent)break;evnt(354);}while(r); +do{ +*__LONG_SYMBOLTYPE_SIZE= 0 ; +if(!qbevent)break;evnt(355);}while(r); +do{ +if(!qbevent)break;evnt(357);}while(r); +do{ +*__LONG_USE_GLOBAL_BYTE_ELEMENTS= 0 ; +if(!qbevent)break;evnt(358);}while(r); +do{ +if(!qbevent)break;evnt(362);}while(r); +do{ +if(!qbevent)break;evnt(363);}while(r); +do{ +if(!qbevent)break;evnt(364);}while(r); +do{ +if(!qbevent)break;evnt(365);}while(r); +do{ +if(!qbevent)break;evnt(366);}while(r); +do{ +if(!qbevent)break;evnt(367);}while(r); +do{ +if(!qbevent)break;evnt(369);}while(r); +do{ +if(!qbevent)break;evnt(372);}while(r); +do{ +if(!qbevent)break;evnt(373);}while(r); +do{ +if(!qbevent)break;evnt(374);}while(r); +do{ +if(!qbevent)break;evnt(375);}while(r); +do{ +if(!qbevent)break;evnt(376);}while(r); +do{ +if(!qbevent)break;evnt(377);}while(r); +do{ +if(!qbevent)break;evnt(378);}while(r); +do{ +if(!qbevent)break;evnt(380,1,"IDEsettings.bas");}while(r); +do{ +if(!qbevent)break;evnt(380,2,"IDEsettings.bas");}while(r); +do{ +if(!qbevent)break;evnt(380,3,"IDEsettings.bas");}while(r); +do{ +if(!qbevent)break;evnt(380,4,"IDEsettings.bas");}while(r); +do{ +if(!qbevent)break;evnt(380,5,"IDEsettings.bas");}while(r); +do{ +if(!qbevent)break;evnt(380,6,"IDEsettings.bas");}while(r); +do{ +if(!qbevent)break;evnt(380,7,"IDEsettings.bas");}while(r); +do{ +if(!qbevent)break;evnt(380,8,"IDEsettings.bas");}while(r); +do{ +if(!qbevent)break;evnt(380,9,"IDEsettings.bas");}while(r); +do{ +if(!qbevent)break;evnt(380,10,"IDEsettings.bas");}while(r); +do{ +if(!qbevent)break;evnt(380,11,"IDEsettings.bas");}while(r); +do{ +if(!qbevent)break;evnt(380,12,"IDEsettings.bas");}while(r); +do{ +if(!qbevent)break;evnt(380,13,"IDEsettings.bas");}while(r); +do{ +if(!qbevent)break;evnt(380,14,"IDEsettings.bas");}while(r); +do{ +if(!qbevent)break;evnt(380,15,"IDEsettings.bas");}while(r); +do{ +if(!qbevent)break;evnt(380,16,"IDEsettings.bas");}while(r); +do{ +if(!qbevent)break;evnt(380,17,"IDEsettings.bas");}while(r); +do{ +if(!qbevent)break;evnt(380,18,"IDEsettings.bas");}while(r); +do{ +if(!qbevent)break;evnt(380,19,"IDEsettings.bas");}while(r); +do{ +if(!qbevent)break;evnt(380,20,"IDEsettings.bas");}while(r); +do{ +if(!qbevent)break;evnt(380,21,"IDEsettings.bas");}while(r); +do{ +if(!qbevent)break;evnt(380,22,"IDEsettings.bas");}while(r); +do{ +if(!qbevent)break;evnt(380,23,"IDEsettings.bas");}while(r); +do{ +if(!qbevent)break;evnt(380,24,"IDEsettings.bas");}while(r); +do{ +if(!qbevent)break;evnt(380,25,"IDEsettings.bas");}while(r); +do{ +if(!qbevent)break;evnt(380,26,"IDEsettings.bas");}while(r); +do{ +if(!qbevent)break;evnt(380,27,"IDEsettings.bas");}while(r); +do{ +if(!qbevent)break;evnt(380,28,"IDEsettings.bas");}while(r); +do{ +if(!qbevent)break;evnt(380,29,"IDEsettings.bas");}while(r); +do{ +if(!qbevent)break;evnt(380,30,"IDEsettings.bas");}while(r); +do{ +if(!qbevent)break;evnt(380,31,"IDEsettings.bas");}while(r); +do{ +qbs_set(__STRING_CONFIGFILE,qbs_new_txt_len("internal/config.ini",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,33,"IDEsettings.bas");}while(r); +do{ +qbs_set(__STRING_INIFOLDERINDEX,qbs_str((int32)(*__LONG_TEMPFOLDERINDEX))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,34,"IDEsettings.bas");}while(r); +do{ +qbs_set(__STRING_WINDOWSETTINGSSECTION,qbs_add(qbs_new_txt_len("IDE WINDOW",10),__STRING_INIFOLDERINDEX)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,36,"IDEsettings.bas");}while(r); +do{ +qbs_set(__STRING_COLORSETTINGSSECTION,qbs_add(qbs_new_txt_len("IDE COLOR SETTINGS",18),__STRING_INIFOLDERINDEX)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,37,"IDEsettings.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(380,38,"IDEsettings.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(380,39,"IDEsettings.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(380,40,"IDEsettings.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(380,41,"IDEsettings.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(380,42,"IDEsettings.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(380,43,"IDEsettings.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(380,44,"IDEsettings.bas");}while(r); +do{ +SUB_INISETADDQUOTES(&(pass26= 0 )); +if(!qbevent)break;evnt(380,46,"IDEsettings.bas");}while(r); +do{ +SUB_INISETFORCERELOAD(&(pass27= -1 )); +if(!qbevent)break;evnt(380,47,"IDEsettings.bas");}while(r); +do{ +SUB_INISETALLOWBASICCOMMENTS(&(pass28= -1 )); +if(!qbevent)break;evnt(380,48,"IDEsettings.bas");}while(r); +do{ +SUB_INISETAUTOCOMMIT(&(pass29= -1 )); +if(!qbevent)break;evnt(380,49,"IDEsettings.bas");}while(r); +do{ +*__LONG_RESULT=FUNC_READCONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("DisableSyntaxHighlighter",24),__STRING_VALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,52,"IDEsettings.bas");}while(r); +S_856:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("TRUE",4)))|(-(func_val(__STRING_VALUE)== -1 ))))||new_error){ +if(qbevent){evnt(380,53,"IDEsettings.bas");if(r)goto S_856;} +do{ +*__BYTE_DISABLESYNTAXHIGHLIGHTER= -1 ; +if(!qbevent)break;evnt(380,54,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("DisableSyntaxHighlighter",24),qbs_new_txt_len("True",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,55,"IDEsettings.bas");}while(r); +}else{ +do{ +*__BYTE_DISABLESYNTAXHIGHLIGHTER= 0 ; +if(!qbevent)break;evnt(380,57,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("DisableSyntaxHighlighter",24),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,58,"IDEsettings.bas");}while(r); +} +S_863:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("PasteCursorAtEnd",16),__STRING_VALUE)))||new_error){ +if(qbevent){evnt(380,61,"IDEsettings.bas");if(r)goto S_863;} +S_864:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("TRUE",4)))|(-(func_val(__STRING_VALUE)== -1 ))))||new_error){ +if(qbevent){evnt(380,62,"IDEsettings.bas");if(r)goto S_864;} +do{ +*__BYTE_PASTECURSORATEND= -1 ; +if(!qbevent)break;evnt(380,63,"IDEsettings.bas");}while(r); +}else{ +do{ +*__BYTE_PASTECURSORATEND= 0 ; +if(!qbevent)break;evnt(380,65,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("PasteCursorAtEnd",16),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,66,"IDEsettings.bas");}while(r); +} +}else{ +do{ +*__BYTE_PASTECURSORATEND= -1 ; +if(!qbevent)break;evnt(380,69,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("PasteCursorAtEnd",16),qbs_new_txt_len("True",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,70,"IDEsettings.bas");}while(r); +} +S_874:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("ExeToSourceFolderFirstTimeMsg",29),__STRING_VALUE)))||new_error){ +if(qbevent){evnt(380,73,"IDEsettings.bas");if(r)goto S_874;} +S_875:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("TRUE",4)))|(-(func_val(__STRING_VALUE)== -1 ))))||new_error){ +if(qbevent){evnt(380,74,"IDEsettings.bas");if(r)goto S_875;} +do{ +*__BYTE_EXETOSOURCEFOLDERFIRSTTIMEMSG= -1 ; +if(!qbevent)break;evnt(380,75,"IDEsettings.bas");}while(r); +}else{ +do{ +*__BYTE_EXETOSOURCEFOLDERFIRSTTIMEMSG= 0 ; +if(!qbevent)break;evnt(380,77,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("ExeToSourceFolderFirstTimeMsg",29),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,78,"IDEsettings.bas");}while(r); +} +}else{ +do{ +*__BYTE_EXETOSOURCEFOLDERFIRSTTIMEMSG= 0 ; +if(!qbevent)break;evnt(380,81,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("ExeToSourceFolderFirstTimeMsg",29),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,82,"IDEsettings.bas");}while(r); +} +S_885:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("WhiteListQB64FirstTimeMsg",25),__STRING_VALUE)))||new_error){ +if(qbevent){evnt(380,85,"IDEsettings.bas");if(r)goto S_885;} +S_886:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("TRUE",4)))|(-(func_val(__STRING_VALUE)== -1 ))))||new_error){ +if(qbevent){evnt(380,86,"IDEsettings.bas");if(r)goto S_886;} +do{ +*__BYTE_WHITELISTQB64FIRSTTIMEMSG= -1 ; +if(!qbevent)break;evnt(380,87,"IDEsettings.bas");}while(r); +}else{ +do{ +*__BYTE_WHITELISTQB64FIRSTTIMEMSG= 0 ; +if(!qbevent)break;evnt(380,89,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("WhiteListQB64FirstTimeMsg",25),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,90,"IDEsettings.bas");}while(r); +} +}else{ +do{ +*__BYTE_WHITELISTQB64FIRSTTIMEMSG= 0 ; +if(!qbevent)break;evnt(380,93,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("WhiteListQB64FirstTimeMsg",25),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,94,"IDEsettings.bas");}while(r); +} +S_896:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("SaveExeWithSource",17),__STRING_VALUE)))||new_error){ +if(qbevent){evnt(380,97,"IDEsettings.bas");if(r)goto S_896;} +S_897:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("TRUE",4)))|(-(func_val(__STRING_VALUE)== -1 ))))||new_error){ +if(qbevent){evnt(380,98,"IDEsettings.bas");if(r)goto S_897;} +do{ +*__BYTE_SAVEEXEWITHSOURCE= -1 ; +if(!qbevent)break;evnt(380,99,"IDEsettings.bas");}while(r); +}else{ +do{ +*__BYTE_SAVEEXEWITHSOURCE= 0 ; +if(!qbevent)break;evnt(380,101,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("SaveExeWithSource",17),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,102,"IDEsettings.bas");}while(r); +} +}else{ +do{ +*__BYTE_SAVEEXEWITHSOURCE= 0 ; +if(!qbevent)break;evnt(380,105,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("SaveExeWithSource",17),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,106,"IDEsettings.bas");}while(r); +} +S_907:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("EnableQuickNav",14),__STRING_VALUE)))||new_error){ +if(qbevent){evnt(380,109,"IDEsettings.bas");if(r)goto S_907;} +S_908:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("TRUE",4)))|(-(func_val(__STRING_VALUE)== -1 ))))||new_error){ +if(qbevent){evnt(380,110,"IDEsettings.bas");if(r)goto S_908;} +do{ +*__BYTE_ENABLEQUICKNAV= -1 ; +if(!qbevent)break;evnt(380,111,"IDEsettings.bas");}while(r); +}else{ +do{ +*__BYTE_ENABLEQUICKNAV= 0 ; +if(!qbevent)break;evnt(380,113,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("EnableQuickNav",14),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,114,"IDEsettings.bas");}while(r); +} +}else{ +do{ +*__BYTE_ENABLEQUICKNAV= -1 ; +if(!qbevent)break;evnt(380,117,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("EnableQuickNav",14),qbs_new_txt_len("True",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,118,"IDEsettings.bas");}while(r); +} +S_918:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("ShowErrorsImmediately",21),__STRING_VALUE)))||new_error){ +if(qbevent){evnt(380,121,"IDEsettings.bas");if(r)goto S_918;} +S_919:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("TRUE",4)))|(-(func_val(__STRING_VALUE)== -1 ))))||new_error){ +if(qbevent){evnt(380,122,"IDEsettings.bas");if(r)goto S_919;} +do{ +*__BYTE_IDESHOWERRORSIMMEDIATELY= -1 ; +if(!qbevent)break;evnt(380,123,"IDEsettings.bas");}while(r); +}else{ +do{ +*__BYTE_IDESHOWERRORSIMMEDIATELY= 0 ; +if(!qbevent)break;evnt(380,125,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("ShowErrorsImmediately",21),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,126,"IDEsettings.bas");}while(r); +} +}else{ +do{ +*__BYTE_IDESHOWERRORSIMMEDIATELY= -1 ; +if(!qbevent)break;evnt(380,129,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("ShowErrorsImmediately",21),qbs_new_txt_len("True",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,130,"IDEsettings.bas");}while(r); +} +S_929:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("ShowLineNumbers",15),__STRING_VALUE)))||new_error){ +if(qbevent){evnt(380,133,"IDEsettings.bas");if(r)goto S_929;} +S_930:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("TRUE",4)))|(-(func_val(__STRING_VALUE)== -1 ))))||new_error){ +if(qbevent){evnt(380,134,"IDEsettings.bas");if(r)goto S_930;} +do{ +*__BYTE_SHOWLINENUMBERS= -1 ; +if(!qbevent)break;evnt(380,135,"IDEsettings.bas");}while(r); +}else{ +do{ +*__BYTE_SHOWLINENUMBERS= 0 ; +if(!qbevent)break;evnt(380,137,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("ShowLineNumbers",15),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,138,"IDEsettings.bas");}while(r); +} +}else{ +do{ +*__BYTE_SHOWLINENUMBERS= -1 ; +if(!qbevent)break;evnt(380,141,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("ShowLineNumbers",15),qbs_new_txt_len("True",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,142,"IDEsettings.bas");}while(r); +} +S_940:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("ShowLineNumbersSeparator",24),__STRING_VALUE)))||new_error){ +if(qbevent){evnt(380,145,"IDEsettings.bas");if(r)goto S_940;} +S_941:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("TRUE",4)))|(-(func_val(__STRING_VALUE)== -1 ))))||new_error){ +if(qbevent){evnt(380,146,"IDEsettings.bas");if(r)goto S_941;} +do{ +*__BYTE_SHOWLINENUMBERSSEPARATOR= -1 ; +if(!qbevent)break;evnt(380,147,"IDEsettings.bas");}while(r); +}else{ +do{ +*__BYTE_SHOWLINENUMBERSSEPARATOR= 0 ; +if(!qbevent)break;evnt(380,149,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("ShowLineNumbersSeparator",24),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,150,"IDEsettings.bas");}while(r); +} +}else{ +do{ +*__BYTE_SHOWLINENUMBERSSEPARATOR= -1 ; +if(!qbevent)break;evnt(380,153,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("ShowLineNumbersSeparator",24),qbs_new_txt_len("True",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,154,"IDEsettings.bas");}while(r); +} +S_951:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("ShowLineNumbersUseBG",20),__STRING_VALUE)))||new_error){ +if(qbevent){evnt(380,157,"IDEsettings.bas");if(r)goto S_951;} +S_952:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("TRUE",4)))|(-(func_val(__STRING_VALUE)== -1 ))))||new_error){ +if(qbevent){evnt(380,158,"IDEsettings.bas");if(r)goto S_952;} +do{ +*__BYTE_SHOWLINENUMBERSUSEBG= -1 ; +if(!qbevent)break;evnt(380,159,"IDEsettings.bas");}while(r); +}else{ +do{ +*__BYTE_SHOWLINENUMBERSUSEBG= 0 ; +if(!qbevent)break;evnt(380,161,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("ShowLineNumbersUseBG",20),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,162,"IDEsettings.bas");}while(r); +} +}else{ +do{ +*__BYTE_SHOWLINENUMBERSUSEBG= -1 ; +if(!qbevent)break;evnt(380,165,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("ShowLineNumbersUseBG",20),qbs_new_txt_len("True",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,166,"IDEsettings.bas");}while(r); +} +S_962:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("BracketHighlight",16),__STRING_VALUE)))||new_error){ +if(qbevent){evnt(380,169,"IDEsettings.bas");if(r)goto S_962;} +S_963:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("TRUE",4)))|(-(func_val(__STRING_VALUE)== -1 ))))||new_error){ +if(qbevent){evnt(380,170,"IDEsettings.bas");if(r)goto S_963;} +do{ +*__INTEGER_BRACKETHIGHLIGHT= -1 ; +if(!qbevent)break;evnt(380,171,"IDEsettings.bas");}while(r); +}else{ +do{ +*__INTEGER_BRACKETHIGHLIGHT= 0 ; +if(!qbevent)break;evnt(380,173,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("BracketHighlight",16),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,174,"IDEsettings.bas");}while(r); +} +}else{ +do{ +*__INTEGER_BRACKETHIGHLIGHT= -1 ; +if(!qbevent)break;evnt(380,177,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("BracketHighlight",16),qbs_new_txt_len("True",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,178,"IDEsettings.bas");}while(r); +} +S_973:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("KeywordHighlight",16),__STRING_VALUE)))||new_error){ +if(qbevent){evnt(380,181,"IDEsettings.bas");if(r)goto S_973;} +S_974:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("TRUE",4)))|(-(func_val(__STRING_VALUE)== -1 ))))||new_error){ +if(qbevent){evnt(380,182,"IDEsettings.bas");if(r)goto S_974;} +do{ +*__INTEGER_KEYWORDHIGHLIGHT= -1 ; +if(!qbevent)break;evnt(380,183,"IDEsettings.bas");}while(r); +}else{ +do{ +*__INTEGER_KEYWORDHIGHLIGHT= 0 ; +if(!qbevent)break;evnt(380,185,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("KeywordHighlight",16),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,186,"IDEsettings.bas");}while(r); +} +}else{ +do{ +*__INTEGER_KEYWORDHIGHLIGHT= -1 ; +if(!qbevent)break;evnt(380,189,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("KeywordHighlight",16),qbs_new_txt_len("True",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,190,"IDEsettings.bas");}while(r); +} +S_984:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("MultiHighlight",14),__STRING_VALUE)))||new_error){ +if(qbevent){evnt(380,193,"IDEsettings.bas");if(r)goto S_984;} +S_985:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("TRUE",4)))|(-(func_val(__STRING_VALUE)== -1 ))))||new_error){ +if(qbevent){evnt(380,194,"IDEsettings.bas");if(r)goto S_985;} +do{ +*__INTEGER_MULTIHIGHLIGHT= -1 ; +if(!qbevent)break;evnt(380,195,"IDEsettings.bas");}while(r); +}else{ +do{ +*__INTEGER_MULTIHIGHLIGHT= 0 ; +if(!qbevent)break;evnt(380,197,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("MultiHighlight",14),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,198,"IDEsettings.bas");}while(r); +} +}else{ +do{ +*__INTEGER_MULTIHIGHLIGHT= -1 ; +if(!qbevent)break;evnt(380,201,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("MultiHighlight",14),qbs_new_txt_len("True",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,202,"IDEsettings.bas");}while(r); +} +S_995:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("IgnoreWarnings",14),__STRING_VALUE)))||new_error){ +if(qbevent){evnt(380,205,"IDEsettings.bas");if(r)goto S_995;} +S_996:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("TRUE",4)))|(-(func_abs((long double)(func_val(__STRING_VALUE)))== 1 ))))||new_error){ +if(qbevent){evnt(380,206,"IDEsettings.bas");if(r)goto S_996;} +do{ +*__BYTE_IGNOREWARNINGS= -1 ; +if(!qbevent)break;evnt(380,207,"IDEsettings.bas");}while(r); +}else{ +do{ +*__BYTE_IGNOREWARNINGS= 0 ; +if(!qbevent)break;evnt(380,209,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("IgnoreWarnings",14),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,210,"IDEsettings.bas");}while(r); +} +}else{ +do{ +*__BYTE_IGNOREWARNINGS= 0 ; +if(!qbevent)break;evnt(380,213,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("IgnoreWarnings",14),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,214,"IDEsettings.bas");}while(r); +} +do{ +*__LONG_RESULT=FUNC_READCONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("BackupSize",10),__STRING_VALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,217,"IDEsettings.bas");}while(r); +do{ +*__LONG_IDEBACKUPSIZE=qbr(func_val(__STRING_VALUE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,218,"IDEsettings.bas");}while(r); +S_1008:; +if (((-(*__LONG_IDEBACKUPSIZE< 10 ))|(-(*__LONG_IDEBACKUPSIZE> 2000 )))||new_error){ +if(qbevent){evnt(380,219,"IDEsettings.bas");if(r)goto S_1008;} +do{ +*__LONG_IDEBACKUPSIZE= 100 ; +if(!qbevent)break;evnt(380,219,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("BackupSize",10),qbs_new_txt_len("100 'in MB",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,219,"IDEsettings.bas");}while(r); +} +do{ +*__LONG_RESULT=FUNC_READCONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("DebugInfo",9),__STRING_VALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,221,"IDEsettings.bas");}while(r); +do{ +*__LONG_IDEDEBUGINFO=qbr(func_val(__STRING_VALUE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,222,"IDEsettings.bas");}while(r); +S_1014:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(__STRING_VALUE, 4 )),qbs_new_txt_len("TRUE",4))))||new_error){ +if(qbevent){evnt(380,223,"IDEsettings.bas");if(r)goto S_1014;} +do{ +*__LONG_IDEDEBUGINFO= -1 ; +if(!qbevent)break;evnt(380,223,"IDEsettings.bas");}while(r); +} +S_1017:; +if (((-(*__LONG_RESULT== 0 ))|(-(*__LONG_IDEDEBUGINFO!= -1 )))||new_error){ +if(qbevent){evnt(380,224,"IDEsettings.bas");if(r)goto S_1017;} +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("DebugInfo",9),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,225,"IDEsettings.bas");}while(r); +do{ +*__LONG_IDEDEBUGINFO= 0 ; +if(!qbevent)break;evnt(380,226,"IDEsettings.bas");}while(r); +} +do{ +*__LONG_INCLUDE_GDB_DEBUGGING_INFO=*__LONG_IDEDEBUGINFO; +if(!qbevent)break;evnt(380,228,"IDEsettings.bas");}while(r); +do{ +qbs_set(__STRING_WIKIBASEADDRESS,qbs_new_txt_len("https://qb64phoenix.com/qb64wiki",32)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,230,"IDEsettings.bas");}while(r); +S_1023:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("WikiBaseAddress",15),__STRING_VALUE)))||new_error){ +if(qbevent){evnt(380,231,"IDEsettings.bas");if(r)goto S_1023;} +do{ +qbs_set(__STRING_WIKIBASEADDRESS,__STRING_VALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,232,"IDEsettings.bas");}while(r); +}else{ +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("WikiBaseAddress",15),__STRING_WIKIBASEADDRESS); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,234,"IDEsettings.bas");}while(r); +} +do{ +*__ULONG_USEGUIDIALOGS=FUNC_READWRITEBOOLEANSETTINGVALUE(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("UseGuiDialogs",13),&(pass30= -1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,237,"IDEsettings.bas");}while(r); +do{ +*__LONG_RESULT=FUNC_READCONFIGSETTING(__STRING_MOUSESETTINGSSECTION,qbs_new_txt_len("SwapMouseButton",15),__STRING_VALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,240,"IDEsettings.bas");}while(r); +S_1030:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("TRUE",4)))|(-(func_val(__STRING_VALUE)== -1 ))))||new_error){ +if(qbevent){evnt(380,241,"IDEsettings.bas");if(r)goto S_1030;} +do{ +*__BYTE_MOUSEBUTTONSWAPPED= -1 ; +if(!qbevent)break;evnt(380,242,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_MOUSESETTINGSSECTION,qbs_new_txt_len("SwapMouseButton",15),qbs_new_txt_len("True",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,243,"IDEsettings.bas");}while(r); +}else{ +do{ +*__BYTE_MOUSEBUTTONSWAPPED= 0 ; +if(!qbevent)break;evnt(380,245,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_MOUSESETTINGSSECTION,qbs_new_txt_len("SwapMouseButton",15),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,246,"IDEsettings.bas");}while(r); +} +do{ +*__LONG_RESULT=FUNC_READCONFIGSETTING(__STRING_DEBUGSETTINGSSECTION,qbs_new_txt_len("BaseTCPPort",11),__STRING_VALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,250,"IDEsettings.bas");}while(r); +do{ +*__LONG_IDEBASETCPPORT=qbr(func_val(__STRING_VALUE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,251,"IDEsettings.bas");}while(r); +S_1039:; +if ((-(*__LONG_IDEBASETCPPORT== 0 ))||new_error){ +if(qbevent){evnt(380,252,"IDEsettings.bas");if(r)goto S_1039;} +do{ +*__LONG_IDEBASETCPPORT= 9000 ; +if(!qbevent)break;evnt(380,252,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_DEBUGSETTINGSSECTION,qbs_new_txt_len("BaseTCPPort",11),qbs_new_txt_len("9000",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,252,"IDEsettings.bas");}while(r); +} +do{ +*__LONG_RESULT=FUNC_READCONFIGSETTING(__STRING_DEBUGSETTINGSSECTION,qbs_new_txt_len("WatchListToConsole",18),__STRING_VALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,254,"IDEsettings.bas");}while(r); +S_1044:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("TRUE",4)))|(-(func_val(__STRING_VALUE)== -1 ))))||new_error){ +if(qbevent){evnt(380,255,"IDEsettings.bas");if(r)goto S_1044;} +do{ +*__BYTE_WATCHLISTTOCONSOLE= -1 ; +if(!qbevent)break;evnt(380,256,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_DEBUGSETTINGSSECTION,qbs_new_txt_len("WatchListToConsole",18),qbs_new_txt_len("True",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,257,"IDEsettings.bas");}while(r); +}else{ +do{ +*__BYTE_WATCHLISTTOCONSOLE= 0 ; +if(!qbevent)break;evnt(380,259,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_DEBUGSETTINGSSECTION,qbs_new_txt_len("WatchListToConsole",18),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,260,"IDEsettings.bas");}while(r); +} +S_1051:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_DEBUGSETTINGSSECTION,qbs_new_txt_len("AutoAddDebugCommand",19),__STRING_VALUE)))||new_error){ +if(qbevent){evnt(380,263,"IDEsettings.bas");if(r)goto S_1051;} +S_1052:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("TRUE",4)))|(-(func_val(__STRING_VALUE)== -1 ))))||new_error){ +if(qbevent){evnt(380,264,"IDEsettings.bas");if(r)goto S_1052;} +do{ +*__BYTE_AUTOADDDEBUGCOMMAND= -1 ; +if(!qbevent)break;evnt(380,265,"IDEsettings.bas");}while(r); +}else{ +do{ +*__BYTE_AUTOADDDEBUGCOMMAND= 0 ; +if(!qbevent)break;evnt(380,267,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_DEBUGSETTINGSSECTION,qbs_new_txt_len("AutoAddDebugCommand",19),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,268,"IDEsettings.bas");}while(r); +} +}else{ +do{ +*__BYTE_AUTOADDDEBUGCOMMAND= -1 ; +if(!qbevent)break;evnt(380,271,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_DEBUGSETTINGSSECTION,qbs_new_txt_len("AutoAddDebugCommand",19),qbs_new_txt_len("True",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,272,"IDEsettings.bas");}while(r); +} +S_1062:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_SortSUBs",12),__STRING_VALUE)))||new_error){ +if(qbevent){evnt(380,276,"IDEsettings.bas");if(r)goto S_1062;} +S_1063:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("TRUE",4)))|(-(func_val(__STRING_VALUE)== -1 ))))||new_error){ +if(qbevent){evnt(380,277,"IDEsettings.bas");if(r)goto S_1063;} +do{ +*__BYTE_IDESORTSUBS= -1 ; +if(!qbevent)break;evnt(380,278,"IDEsettings.bas");}while(r); +}else{ +do{ +*__BYTE_IDESORTSUBS= 0 ; +if(!qbevent)break;evnt(380,280,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_SortSUBs",12),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,281,"IDEsettings.bas");}while(r); +} +}else{ +do{ +*__BYTE_IDESORTSUBS= 0 ; +if(!qbevent)break;evnt(380,284,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_SortSUBs",12),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,285,"IDEsettings.bas");}while(r); +} +S_1073:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_KeywordCapital",18),__STRING_VALUE)))||new_error){ +if(qbevent){evnt(380,288,"IDEsettings.bas");if(r)goto S_1073;} +S_1074:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("TRUE",4)))|(-(func_val(__STRING_VALUE)== -1 ))))||new_error){ +if(qbevent){evnt(380,289,"IDEsettings.bas");if(r)goto S_1074;} +do{ +*__BYTE_IDEAUTOLAYOUTKWCAPITALS= -1 ; +if(!qbevent)break;evnt(380,290,"IDEsettings.bas");}while(r); +}else{ +do{ +*__BYTE_IDEAUTOLAYOUTKWCAPITALS= 0 ; +if(!qbevent)break;evnt(380,292,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_KeywordCapital",18),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,293,"IDEsettings.bas");}while(r); +} +}else{ +do{ +*__BYTE_IDEAUTOLAYOUTKWCAPITALS= 0 ; +if(!qbevent)break;evnt(380,296,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_KeywordCapital",18),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,297,"IDEsettings.bas");}while(r); +} +S_1084:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_SUBsLength",14),__STRING_VALUE)))||new_error){ +if(qbevent){evnt(380,300,"IDEsettings.bas");if(r)goto S_1084;} +S_1085:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("TRUE",4)))|(-(func_val(__STRING_VALUE)== -1 ))))||new_error){ +if(qbevent){evnt(380,301,"IDEsettings.bas");if(r)goto S_1085;} +do{ +*__BYTE_IDESUBSLENGTH= -1 ; +if(!qbevent)break;evnt(380,302,"IDEsettings.bas");}while(r); +}else{ +do{ +*__BYTE_IDESUBSLENGTH= 0 ; +if(!qbevent)break;evnt(380,304,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_SUBsLength",14),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,305,"IDEsettings.bas");}while(r); +} +}else{ +do{ +*__BYTE_IDESUBSLENGTH= -1 ; +if(!qbevent)break;evnt(380,308,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_SUBsLength",14),qbs_new_txt_len("True",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,309,"IDEsettings.bas");}while(r); +} +S_1095:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_AutoPosition",16),__STRING_VALUE)))||new_error){ +if(qbevent){evnt(380,312,"IDEsettings.bas");if(r)goto S_1095;} +S_1096:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("TRUE",4)))|(-(func_abs((long double)(func_val(__STRING_VALUE)))== 1 ))))||new_error){ +if(qbevent){evnt(380,313,"IDEsettings.bas");if(r)goto S_1096;} +do{ +*__BYTE_IDE_AUTOPOSITION= -1 ; +if(!qbevent)break;evnt(380,314,"IDEsettings.bas");}while(r); +}else{ +do{ +*__BYTE_IDE_AUTOPOSITION= 0 ; +if(!qbevent)break;evnt(380,316,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_AutoPosition",16),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,317,"IDEsettings.bas");}while(r); +} +}else{ +do{ +*__BYTE_IDE_AUTOPOSITION= -1 ; +if(!qbevent)break;evnt(380,320,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_AutoPosition",16),qbs_new_txt_len("True",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,321,"IDEsettings.bas");}while(r); +} +do{ +*__LONG_RESULT=FUNC_READCONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_NormalCursorStart",21),__STRING_VALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,324,"IDEsettings.bas");}while(r); +do{ +*__LONG_IDENORMALCURSORSTART=qbr(func_val(__STRING_VALUE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,325,"IDEsettings.bas");}while(r); +S_1108:; +if (((-(*__LONG_IDENORMALCURSORSTART< 0 ))|(-(*__LONG_IDENORMALCURSORSTART> 31 ))|(-(*__LONG_RESULT== 0 )))||new_error){ +if(qbevent){evnt(380,326,"IDEsettings.bas");if(r)goto S_1108;} +do{ +*__LONG_IDENORMALCURSORSTART= 6 ; +if(!qbevent)break;evnt(380,327,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_NormalCursorStart",21),qbs_new_txt_len("6",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,328,"IDEsettings.bas");}while(r); +} +do{ +*__LONG_RESULT=FUNC_READCONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_NormalCursorEnd",19),__STRING_VALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,331,"IDEsettings.bas");}while(r); +do{ +*__LONG_IDENORMALCURSOREND=qbr(func_val(__STRING_VALUE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,332,"IDEsettings.bas");}while(r); +S_1114:; +if (((-(*__LONG_IDENORMALCURSOREND< 0 ))|(-(*__LONG_IDENORMALCURSOREND> 31 ))|(-(*__LONG_RESULT== 0 )))||new_error){ +if(qbevent){evnt(380,333,"IDEsettings.bas");if(r)goto S_1114;} +do{ +*__LONG_IDENORMALCURSOREND= 8 ; +if(!qbevent)break;evnt(380,334,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_NormalCursorEnd",19),qbs_new_txt_len("8",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,335,"IDEsettings.bas");}while(r); +} +do{ +*__LONG_RESULT=FUNC_READCONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_AutoFormat",14),__STRING_VALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,338,"IDEsettings.bas");}while(r); +do{ +*__LONG_IDEAUTOLAYOUT=qbr(func_val(__STRING_VALUE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,339,"IDEsettings.bas");}while(r); +S_1120:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("TRUE",4)))|(-(*__LONG_IDEAUTOLAYOUT!= 0 ))))||new_error){ +if(qbevent){evnt(380,340,"IDEsettings.bas");if(r)goto S_1120;} +do{ +*__LONG_IDEAUTOLAYOUT= 1 ; +if(!qbevent)break;evnt(380,341,"IDEsettings.bas");}while(r); +}else{ +S_1123:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("FALSE",5)))&(qbs_notequal(__STRING_VALUE,qbs_new_txt_len("0",1)))))||new_error){ +if(qbevent){evnt(380,343,"IDEsettings.bas");if(r)goto S_1123;} +do{ +SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_AutoFormat",14),qbs_new_txt_len("True",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,344,"IDEsettings.bas");}while(r); +do{ +*__LONG_IDEAUTOLAYOUT= 1 ; +if(!qbevent)break;evnt(380,345,"IDEsettings.bas");}while(r); +}else{ +do{ +*__LONG_IDEAUTOLAYOUT= 0 ; +if(!qbevent)break;evnt(380,347,"IDEsettings.bas");}while(r); +} +} +do{ +*__LONG_RESULT=FUNC_READCONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_AutoIndent",14),__STRING_VALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,351,"IDEsettings.bas");}while(r); +do{ +*__LONG_IDEAUTOINDENT=qbr(func_val(__STRING_VALUE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,352,"IDEsettings.bas");}while(r); +S_1132:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("TRUE",4)))|(-(*__LONG_IDEAUTOINDENT!= 0 ))))||new_error){ +if(qbevent){evnt(380,353,"IDEsettings.bas");if(r)goto S_1132;} +do{ +*__LONG_IDEAUTOINDENT= 1 ; +if(!qbevent)break;evnt(380,354,"IDEsettings.bas");}while(r); +}else{ +S_1135:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("FALSE",5)))&(qbs_notequal(__STRING_VALUE,qbs_new_txt_len("0",1)))))||new_error){ +if(qbevent){evnt(380,356,"IDEsettings.bas");if(r)goto S_1135;} +do{ +SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_AutoIndent",14),qbs_new_txt_len("True",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,357,"IDEsettings.bas");}while(r); +do{ +*__LONG_IDEAUTOINDENT= 1 ; +if(!qbevent)break;evnt(380,358,"IDEsettings.bas");}while(r); +}else{ +do{ +*__LONG_IDEAUTOINDENT= 0 ; +if(!qbevent)break;evnt(380,360,"IDEsettings.bas");}while(r); +} +} +do{ +*__LONG_RESULT=FUNC_READCONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_IndentSUBs",14),__STRING_VALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,364,"IDEsettings.bas");}while(r); +do{ +*__LONG_IDEINDENTSUBS=qbr(func_val(__STRING_VALUE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,365,"IDEsettings.bas");}while(r); +S_1144:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("TRUE",4)))|(-(*__LONG_IDEINDENTSUBS!= 0 ))))||new_error){ +if(qbevent){evnt(380,366,"IDEsettings.bas");if(r)goto S_1144;} +do{ +*__LONG_IDEINDENTSUBS= 1 ; +if(!qbevent)break;evnt(380,367,"IDEsettings.bas");}while(r); +}else{ +S_1147:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("FALSE",5)))&(qbs_notequal(__STRING_VALUE,qbs_new_txt_len("0",1)))))||new_error){ +if(qbevent){evnt(380,369,"IDEsettings.bas");if(r)goto S_1147;} +do{ +SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_IndentSUBs",14),qbs_new_txt_len("True",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,370,"IDEsettings.bas");}while(r); +do{ +*__LONG_IDEINDENTSUBS= 1 ; +if(!qbevent)break;evnt(380,371,"IDEsettings.bas");}while(r); +}else{ +do{ +*__LONG_IDEINDENTSUBS= 0 ; +if(!qbevent)break;evnt(380,373,"IDEsettings.bas");}while(r); +} +} +do{ +*__LONG_RESULT=FUNC_READCONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_IndentSize",14),__STRING_VALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,377,"IDEsettings.bas");}while(r); +do{ +*__LONG_IDEAUTOINDENTSIZE=qbr(func_val(__STRING_VALUE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,378,"IDEsettings.bas");}while(r); +S_1156:; +if (((-(*__LONG_IDEAUTOINDENTSIZE< 1 ))|(-(*__LONG_IDEAUTOINDENTSIZE> 64 )))||new_error){ +if(qbevent){evnt(380,379,"IDEsettings.bas");if(r)goto S_1156;} +do{ +*__LONG_IDEAUTOINDENTSIZE= 4 ; +if(!qbevent)break;evnt(380,380,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_IndentSize",14),qbs_new_txt_len("4",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,381,"IDEsettings.bas");}while(r); +} +do{ +*__LONG_RESULT=FUNC_READCONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_CustomFont",14),__STRING_VALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,384,"IDEsettings.bas");}while(r); +do{ +*__LONG_IDECUSTOMFONT=qbr(func_val(__STRING_VALUE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,385,"IDEsettings.bas");}while(r); +S_1162:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("TRUE",4)))|(-(*__LONG_IDECUSTOMFONT!= 0 ))))||new_error){ +if(qbevent){evnt(380,386,"IDEsettings.bas");if(r)goto S_1162;} +do{ +*__LONG_IDECUSTOMFONT= 1 ; +if(!qbevent)break;evnt(380,387,"IDEsettings.bas");}while(r); +}else{ +do{ +SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_CustomFont",14),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,389,"IDEsettings.bas");}while(r); +do{ +*__LONG_IDECUSTOMFONT= 0 ; +if(!qbevent)break;evnt(380,390,"IDEsettings.bas");}while(r); +} +do{ +*__LONG_RESULT=FUNC_READCONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_UseFont8",12),__STRING_VALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,393,"IDEsettings.bas");}while(r); +S_1169:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_VALUE),qbs_new_txt_len("TRUE",4))))||new_error){ +if(qbevent){evnt(380,394,"IDEsettings.bas");if(r)goto S_1169;} +do{ +*__BYTE_IDE_USEFONT8= 1 ; +if(!qbevent)break;evnt(380,395,"IDEsettings.bas");}while(r); +}else{ +do{ +SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_UseFont8",12),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,397,"IDEsettings.bas");}while(r); +do{ +*__BYTE_IDE_USEFONT8= 0 ; +if(!qbevent)break;evnt(380,398,"IDEsettings.bas");}while(r); +} +do{ +*__LONG_RESULT=FUNC_READCONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_CustomFont$",15),__STRING_VALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,401,"IDEsettings.bas");}while(r); +do{ +qbs_set(__STRING_IDECUSTOMFONTFILE,__STRING_VALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,402,"IDEsettings.bas");}while(r); +S_1177:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_RESULT== 0 ))|(qbs_equal(__STRING_IDECUSTOMFONTFILE,qbs_new_txt_len("",0)))))||new_error){ +if(qbevent){evnt(380,403,"IDEsettings.bas");if(r)goto S_1177;} +do{ +qbs_set(__STRING_IDECUSTOMFONTFILE,qbs_new_txt_len("C:\\Windows\\Fonts\\lucon.ttf",26)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,404,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_CustomFont$",15),__STRING_IDECUSTOMFONTFILE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,405,"IDEsettings.bas");}while(r); +} +do{ +*__LONG_RESULT=FUNC_READCONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_CustomFontSize",18),__STRING_VALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,408,"IDEsettings.bas");}while(r); +do{ +*__LONG_IDECUSTOMFONTHEIGHT=qbr(func_val(__STRING_VALUE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,409,"IDEsettings.bas");}while(r); +S_1183:; +if (((-(*__LONG_IDECUSTOMFONTHEIGHT< 8 ))|(-(*__LONG_IDECUSTOMFONTHEIGHT> 100 )))||new_error){ +if(qbevent){evnt(380,410,"IDEsettings.bas");if(r)goto S_1183;} +do{ +*__LONG_IDECUSTOMFONTHEIGHT= 21 ; +if(!qbevent)break;evnt(380,410,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_CustomFontSize",18),qbs_new_txt_len("21",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,410,"IDEsettings.bas");}while(r); +} +do{ +*__LONG_RESULT=FUNC_READCONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_CodePage",12),__STRING_VALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,412,"IDEsettings.bas");}while(r); +do{ +*__LONG_IDECPINDEX=qbr(func_val(__STRING_VALUE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,413,"IDEsettings.bas");}while(r); +S_1189:; +if (((-(*__LONG_IDECPINDEX< 0 ))|(-(*__LONG_IDECPINDEX> 27 )))||new_error){ +if(qbevent){evnt(380,414,"IDEsettings.bas");if(r)goto S_1189;} +do{ +*__LONG_IDECPINDEX= 0 ; +if(!qbevent)break;evnt(380,414,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_CodePage",12),qbs_new_txt_len("0",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,414,"IDEsettings.bas");}while(r); +} +S_1193:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_CUSTOMDICTIONARYSECTION,qbs_new_txt_len("CustomKeywords$",15),__STRING_VALUE)))||new_error){ +if(qbevent){evnt(380,417,"IDEsettings.bas");if(r)goto S_1193;} +do{ +qbs_set(__STRING_TEMPLIST,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,418,"IDEsettings.bas");}while(r); +do{ +qbs_set(__STRING_LISTOFCUSTOMKEYWORDS,qbs_add(qbs_add(qbs_new_txt_len("@",1),qbs_ucase(__STRING_VALUE)),qbs_new_txt_len("@",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,419,"IDEsettings.bas");}while(r); +S_1196:; +fornext_value32= 1 ; +fornext_finalvalue32=__STRING_LISTOFCUSTOMKEYWORDS->len; +fornext_step32= 1 ; +if (fornext_step32<0) fornext_step_negative32=1; else fornext_step_negative32=0; +if (new_error) goto fornext_error32; +goto fornext_entrylabel32; +while(1){ +fornext_value32=fornext_step32+(*__LONG_I); +fornext_entrylabel32: +*__LONG_I=fornext_value32; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative32){ +if (fornext_value32fornext_finalvalue32) break; +} +fornext_error32:; +if(qbevent){evnt(380,420,"IDEsettings.bas");if(r)goto S_1196;} +do{ +*__LONG_CHECKCHAR=qbs_asc(__STRING_LISTOFCUSTOMKEYWORDS,*__LONG_I); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,421,"IDEsettings.bas");}while(r); +S_1198:; +if ((-(*__LONG_CHECKCHAR== 64 ))||new_error){ +if(qbevent){evnt(380,422,"IDEsettings.bas");if(r)goto S_1198;} +S_1199:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_right(__STRING_TEMPLIST, 1 ),qbs_new_txt_len("@",1))))||new_error){ +if(qbevent){evnt(380,423,"IDEsettings.bas");if(r)goto S_1199;} +do{ +qbs_set(__STRING_TEMPLIST,qbs_add(__STRING_TEMPLIST,qbs_new_txt_len("@",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,423,"IDEsettings.bas");}while(r); +} +}else{ +do{ +qbs_set(__STRING_TEMPLIST,qbs_add(__STRING_TEMPLIST,func_chr(*__LONG_CHECKCHAR))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,425,"IDEsettings.bas");}while(r); +} +fornext_continue_31:; +} +fornext_exit_31:; +do{ +qbs_set(__STRING_LISTOFCUSTOMKEYWORDS,__STRING_TEMPLIST); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,428,"IDEsettings.bas");}while(r); +do{ +*__LONG_CUSTOMKEYWORDSLENGTH=__STRING_LISTOFCUSTOMKEYWORDS->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,429,"IDEsettings.bas");}while(r); +}else{ +do{ +SUB_INISETADDQUOTES(&(pass35= -1 )); +if(!qbevent)break;evnt(380,431,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_CUSTOMDICTIONARYSECTION,qbs_new_txt_len("Instructions1",13),qbs_new_txt_len("Add custom keywords separated by the 'at' sign.",47)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,432,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_CUSTOMDICTIONARYSECTION,qbs_new_txt_len("Instructions2",13),qbs_new_txt_len("Useful to colorize constants (eg @true@false@).",47)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,433,"IDEsettings.bas");}while(r); +do{ +SUB_INISETADDQUOTES(&(pass36= 0 )); +if(!qbevent)break;evnt(380,434,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_CUSTOMDICTIONARYSECTION,qbs_new_txt_len("CustomKeywords$",15),qbs_new_txt_len("@",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,435,"IDEsettings.bas");}while(r); +} +do{ +SUB_INISETADDQUOTES(&(pass37= -1 )); +if(!qbevent)break;evnt(380,439,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_COLORSCHEMESSECTION,qbs_new_txt_len("Instructions1",13),qbs_new_txt_len("Create custom color schemes in the IDE (Options->IDE Colors).",61)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,440,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_COLORSCHEMESSECTION,qbs_new_txt_len("Instructions2",13),qbs_new_txt_len("Custom color schemes will be stored in this section.",52)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,441,"IDEsettings.bas");}while(r); +do{ +SUB_INISETADDQUOTES(&(pass38= 0 )); +if(!qbevent)break;evnt(380,442,"IDEsettings.bas");}while(r); +S_1219:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_WINDOWSETTINGSSECTION,qbs_new_txt_len("IDE_TopPosition",15),__STRING_VALUE)))||new_error){ +if(qbevent){evnt(380,445,"IDEsettings.bas");if(r)goto S_1219;} +do{ +*__INTEGER_IDE_TOPPOSITION=qbr_float_to_long(func_val(__STRING_VALUE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,446,"IDEsettings.bas");}while(r); +}else{ +do{ +*__BYTE_IDE_BYPASSAUTOPOSITION= -1 ; +if(!qbevent)break;evnt(380,448,"IDEsettings.bas");}while(r); +do{ +*__INTEGER_IDE_TOPPOSITION= 0 ; +if(!qbevent)break;evnt(380,449,"IDEsettings.bas");}while(r); +} +S_1225:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_WINDOWSETTINGSSECTION,qbs_new_txt_len("IDE_LeftPosition",16),__STRING_VALUE)))||new_error){ +if(qbevent){evnt(380,452,"IDEsettings.bas");if(r)goto S_1225;} +do{ +*__INTEGER_IDE_LEFTPOSITION=qbr_float_to_long(func_val(__STRING_VALUE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,453,"IDEsettings.bas");}while(r); +}else{ +do{ +*__BYTE_IDE_BYPASSAUTOPOSITION= -1 ; +if(!qbevent)break;evnt(380,455,"IDEsettings.bas");}while(r); +do{ +*__INTEGER_IDE_LEFTPOSITION= 0 ; +if(!qbevent)break;evnt(380,456,"IDEsettings.bas");}while(r); +} +do{ +*__LONG_RESULT=FUNC_READCONFIGSETTING(__STRING_WINDOWSETTINGSSECTION,qbs_new_txt_len("IDE_Width",9),__STRING_VALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,459,"IDEsettings.bas");}while(r); +do{ +*__LONG_IDEWX=qbr(func_val(__STRING_VALUE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,460,"IDEsettings.bas");}while(r); +S_1233:; +if (((-(*__LONG_IDEWX< 80 ))|(-(*__LONG_IDEWX> 1000 )))||new_error){ +if(qbevent){evnt(380,461,"IDEsettings.bas");if(r)goto S_1233;} +do{ +*__LONG_IDEWX= 120 ; +if(!qbevent)break;evnt(380,461,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_WINDOWSETTINGSSECTION,qbs_new_txt_len("IDE_Width",9),qbs_new_txt_len("120",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,461,"IDEsettings.bas");}while(r); +} +do{ +*__LONG_RESULT=FUNC_READCONFIGSETTING(__STRING_WINDOWSETTINGSSECTION,qbs_new_txt_len("IDE_Height",10),__STRING_VALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,463,"IDEsettings.bas");}while(r); +do{ +*__LONG_IDEWY=qbr(func_val(__STRING_VALUE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,464,"IDEsettings.bas");}while(r); +S_1239:; +if (((-(*__LONG_IDEWY< 25 ))|(-(*__LONG_IDEWY> 1000 )))||new_error){ +if(qbevent){evnt(380,465,"IDEsettings.bas");if(r)goto S_1239;} +do{ +*__LONG_IDEWY= 40 ; +if(!qbevent)break;evnt(380,465,"IDEsettings.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_WINDOWSETTINGSSECTION,qbs_new_txt_len("IDE_Height",10),qbs_new_txt_len("40",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,465,"IDEsettings.bas");}while(r); +} +do{ +*__ULONG_IDETEXTCOLOR=func__rgb32( 216 , 216 , 216 ); +if(!qbevent)break;evnt(380,469,"IDEsettings.bas");}while(r); +do{ +*__ULONG_IDEKEYWORDCOLOR=func__rgb32( 69 , 118 , 147 ); +if(!qbevent)break;evnt(380,470,"IDEsettings.bas");}while(r); +do{ +*__ULONG_IDENUMBERSCOLOR=func__rgb32( 216 , 98 , 78 ); +if(!qbevent)break;evnt(380,471,"IDEsettings.bas");}while(r); +do{ +*__ULONG_IDEERRORCOLOR=func__rgb32( 170 , 0 , 0 ); +if(!qbevent)break;evnt(380,472,"IDEsettings.bas");}while(r); +do{ +*__ULONG_IDEQUOTECOLOR=func__rgb32( 255 , 167 , 0 ); +if(!qbevent)break;evnt(380,473,"IDEsettings.bas");}while(r); +do{ +*__ULONG_IDEMETACOMMANDCOLOR=func__rgb32( 85 , 206 , 85 ); +if(!qbevent)break;evnt(380,474,"IDEsettings.bas");}while(r); +do{ +*__ULONG_IDECOMMENTCOLOR=func__rgb32( 98 , 98 , 98 ); +if(!qbevent)break;evnt(380,475,"IDEsettings.bas");}while(r); +do{ +*__ULONG_IDECHROMACOLOR=func__rgb32( 170 , 170 , 170 ); +if(!qbevent)break;evnt(380,476,"IDEsettings.bas");}while(r); +do{ +*__ULONG_IDEBACKGROUNDCOLOR=func__rgb32( 0 , 0 , 39 ); +if(!qbevent)break;evnt(380,477,"IDEsettings.bas");}while(r); +do{ +*__ULONG_IDEBACKGROUNDCOLOR2=func__rgb32( 0 , 49 , 78 ); +if(!qbevent)break;evnt(380,478,"IDEsettings.bas");}while(r); +do{ +*__ULONG_IDEBRACKETHIGHLIGHTCOLOR=func__rgb32( 0 , 88 , 108 ); +if(!qbevent)break;evnt(380,479,"IDEsettings.bas");}while(r); +S_1254:; +if ((qbs_cleanup(qbs_tmp_base,-(FUNC_READCONFIGSETTING(__STRING_COLORSETTINGSSECTION,qbs_new_txt_len("SchemeID",8),__STRING_VALUE)== 0 )))||new_error){ +if(qbevent){evnt(380,482,"IDEsettings.bas");if(r)goto S_1254;} +do{ +SUB_WRITECONFIGSETTING(__STRING_COLORSETTINGSSECTION,qbs_new_txt_len("SchemeID",8),qbs_new_txt_len("1",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,483,"IDEsettings.bas");}while(r); +} +S_1257:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_COLORSETTINGSSECTION,qbs_new_txt_len("TextColor",9),__STRING_VALUE)))||new_error){ +if(qbevent){evnt(380,486,"IDEsettings.bas");if(r)goto S_1257;} +do{ +*__ULONG_IDETEXTCOLOR=FUNC_VRGBS(__STRING_VALUE,__ULONG_IDETEXTCOLOR); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,487,"IDEsettings.bas");}while(r); +}else{ +do{ +SUB_WRITECONFIGSETTING(__STRING_COLORSETTINGSSECTION,qbs_new_txt_len("TextColor",9),FUNC_RGBS(__ULONG_IDETEXTCOLOR)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,488,"IDEsettings.bas");}while(r); +} +S_1262:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_COLORSETTINGSSECTION,qbs_new_txt_len("KeywordColor",12),__STRING_VALUE)))||new_error){ +if(qbevent){evnt(380,491,"IDEsettings.bas");if(r)goto S_1262;} +do{ +*__ULONG_IDEKEYWORDCOLOR=FUNC_VRGBS(__STRING_VALUE,__ULONG_IDEKEYWORDCOLOR); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,492,"IDEsettings.bas");}while(r); +}else{ +do{ +SUB_WRITECONFIGSETTING(__STRING_COLORSETTINGSSECTION,qbs_new_txt_len("KeywordColor",12),FUNC_RGBS(__ULONG_IDEKEYWORDCOLOR)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,493,"IDEsettings.bas");}while(r); +} +S_1267:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_COLORSETTINGSSECTION,qbs_new_txt_len("ErrorColor",10),__STRING_VALUE)))||new_error){ +if(qbevent){evnt(380,496,"IDEsettings.bas");if(r)goto S_1267;} +do{ +*__ULONG_IDEERRORCOLOR=FUNC_VRGBS(__STRING_VALUE,__ULONG_IDENUMBERSCOLOR); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,497,"IDEsettings.bas");}while(r); +}else{ +do{ +SUB_WRITECONFIGSETTING(__STRING_COLORSETTINGSSECTION,qbs_new_txt_len("ErrorColor",10),FUNC_RGBS(__ULONG_IDEERRORCOLOR)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,498,"IDEsettings.bas");}while(r); +} +S_1272:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_COLORSETTINGSSECTION,qbs_new_txt_len("NumbersColor",12),__STRING_VALUE)))||new_error){ +if(qbevent){evnt(380,501,"IDEsettings.bas");if(r)goto S_1272;} +do{ +*__ULONG_IDENUMBERSCOLOR=FUNC_VRGBS(__STRING_VALUE,__ULONG_IDENUMBERSCOLOR); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,502,"IDEsettings.bas");}while(r); +}else{ +do{ +SUB_WRITECONFIGSETTING(__STRING_COLORSETTINGSSECTION,qbs_new_txt_len("NumbersColor",12),FUNC_RGBS(__ULONG_IDENUMBERSCOLOR)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,503,"IDEsettings.bas");}while(r); +} +S_1277:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_COLORSETTINGSSECTION,qbs_new_txt_len("QuoteColor",10),__STRING_VALUE)))||new_error){ +if(qbevent){evnt(380,507,"IDEsettings.bas");if(r)goto S_1277;} +do{ +*__ULONG_IDEQUOTECOLOR=FUNC_VRGBS(__STRING_VALUE,__ULONG_IDEQUOTECOLOR); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,508,"IDEsettings.bas");}while(r); +}else{ +do{ +SUB_WRITECONFIGSETTING(__STRING_COLORSETTINGSSECTION,qbs_new_txt_len("QuoteColor",10),FUNC_RGBS(__ULONG_IDEQUOTECOLOR)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,509,"IDEsettings.bas");}while(r); +} +S_1282:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_COLORSETTINGSSECTION,qbs_new_txt_len("CommentColor",12),__STRING_VALUE)))||new_error){ +if(qbevent){evnt(380,512,"IDEsettings.bas");if(r)goto S_1282;} +do{ +*__ULONG_IDECOMMENTCOLOR=FUNC_VRGBS(__STRING_VALUE,__ULONG_IDECOMMENTCOLOR); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,513,"IDEsettings.bas");}while(r); +}else{ +do{ +SUB_WRITECONFIGSETTING(__STRING_COLORSETTINGSSECTION,qbs_new_txt_len("CommentColor",12),FUNC_RGBS(__ULONG_IDECOMMENTCOLOR)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,514,"IDEsettings.bas");}while(r); +} +S_1287:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_COLORSETTINGSSECTION,qbs_new_txt_len("ChromaColor",11),__STRING_VALUE)))||new_error){ +if(qbevent){evnt(380,517,"IDEsettings.bas");if(r)goto S_1287;} +do{ +*__ULONG_IDECHROMACOLOR=FUNC_VRGBS(__STRING_VALUE,__ULONG_IDECHROMACOLOR); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,518,"IDEsettings.bas");}while(r); +}else{ +do{ +SUB_WRITECONFIGSETTING(__STRING_COLORSETTINGSSECTION,qbs_new_txt_len("ChromaColor",11),FUNC_RGBS(__ULONG_IDECHROMACOLOR)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,519,"IDEsettings.bas");}while(r); +} +S_1292:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_COLORSETTINGSSECTION,qbs_new_txt_len("MetaCommandColor",16),__STRING_VALUE)))||new_error){ +if(qbevent){evnt(380,522,"IDEsettings.bas");if(r)goto S_1292;} +do{ +*__ULONG_IDEMETACOMMANDCOLOR=FUNC_VRGBS(__STRING_VALUE,__ULONG_IDEMETACOMMANDCOLOR); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,523,"IDEsettings.bas");}while(r); +}else{ +do{ +SUB_WRITECONFIGSETTING(__STRING_COLORSETTINGSSECTION,qbs_new_txt_len("MetaCommandColor",16),FUNC_RGBS(__ULONG_IDEMETACOMMANDCOLOR)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,524,"IDEsettings.bas");}while(r); +} +S_1297:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_COLORSETTINGSSECTION,qbs_new_txt_len("HighlightColor",14),__STRING_VALUE)))||new_error){ +if(qbevent){evnt(380,527,"IDEsettings.bas");if(r)goto S_1297;} +do{ +*__ULONG_IDEBRACKETHIGHLIGHTCOLOR=FUNC_VRGBS(__STRING_VALUE,__ULONG_IDEBRACKETHIGHLIGHTCOLOR); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,528,"IDEsettings.bas");}while(r); +}else{ +do{ +SUB_WRITECONFIGSETTING(__STRING_COLORSETTINGSSECTION,qbs_new_txt_len("HighlightColor",14),FUNC_RGBS(__ULONG_IDEBRACKETHIGHLIGHTCOLOR)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,529,"IDEsettings.bas");}while(r); +} +S_1302:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_COLORSETTINGSSECTION,qbs_new_txt_len("BackgroundColor",15),__STRING_VALUE)))||new_error){ +if(qbevent){evnt(380,532,"IDEsettings.bas");if(r)goto S_1302;} +do{ +*__ULONG_IDEBACKGROUNDCOLOR=FUNC_VRGBS(__STRING_VALUE,__ULONG_IDEBACKGROUNDCOLOR); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,533,"IDEsettings.bas");}while(r); +}else{ +do{ +SUB_WRITECONFIGSETTING(__STRING_COLORSETTINGSSECTION,qbs_new_txt_len("BackgroundColor",15),FUNC_RGBS(__ULONG_IDEBACKGROUNDCOLOR)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,534,"IDEsettings.bas");}while(r); +} +S_1307:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_READCONFIGSETTING(__STRING_COLORSETTINGSSECTION,qbs_new_txt_len("BackgroundColor2",16),__STRING_VALUE)))||new_error){ +if(qbevent){evnt(380,537,"IDEsettings.bas");if(r)goto S_1307;} +do{ +*__ULONG_IDEBACKGROUNDCOLOR2=FUNC_VRGBS(__STRING_VALUE,__ULONG_IDEBACKGROUNDCOLOR2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,538,"IDEsettings.bas");}while(r); +}else{ +do{ +SUB_WRITECONFIGSETTING(__STRING_COLORSETTINGSSECTION,qbs_new_txt_len("BackgroundColor2",16),FUNC_RGBS(__ULONG_IDEBACKGROUNDCOLOR2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,539,"IDEsettings.bas");}while(r); +} +do{ +*__ULONG_OPTIMIZECPPPROGRAM=FUNC_READWRITEBOOLEANSETTINGVALUE(__STRING_COMPILERSETTINGSSECTION,qbs_new_txt_len("OptimizeCppProgram",18),&(pass39= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,543,"IDEsettings.bas");}while(r); +do{ +*__ULONG_STRIPDEBUGSYMBOLS=FUNC_READWRITEBOOLEANSETTINGVALUE(__STRING_COMPILERSETTINGSSECTION,qbs_new_txt_len("StripDebugSymbols",17),&(pass40= -1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,544,"IDEsettings.bas");}while(r); +do{ +*__ULONG_MAXPARALLELPROCESSES=FUNC_READWRITELONGSETTINGVALUE(__STRING_COMPILERSETTINGSSECTION,qbs_new_txt_len("MaxParallelProcesses",20),&(pass41= 3 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,546,"IDEsettings.bas");}while(r); +do{ +qbs_set(__STRING_EXTRACPPFLAGS,FUNC_READWRITESTRINGSETTINGVALUE(__STRING_COMPILERSETTINGSSECTION,qbs_new_txt_len("ExtraCppFlags",13),qbs_new_txt_len("",0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,548,"IDEsettings.bas");}while(r); +do{ +qbs_set(__STRING_EXTRALINKERFLAGS,FUNC_READWRITESTRINGSETTINGVALUE(__STRING_COMPILERSETTINGSSECTION,qbs_new_txt_len("ExtraLinkerFlags",16),qbs_new_txt_len("",0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,549,"IDEsettings.bas");}while(r); +do{ +*__ULONG_USEMINIAUDIOBACKEND=FUNC_READWRITEBOOLEANSETTINGVALUE(__STRING_COMPILERSETTINGSSECTION,qbs_new_txt_len("UseMiniaudioBackend",19),&(pass42= -1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,551,"IDEsettings.bas");}while(r); +do{ +*__ULONG_GENERATELICENSEFILE=FUNC_READWRITEBOOLEANSETTINGVALUE(__STRING_COMPILERSETTINGSSECTION,qbs_new_txt_len("GenerateLicenseFile",19),&(pass43= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(380,552,"IDEsettings.bas");}while(r); +do{ +if(!qbevent)break;evnt(382);}while(r); +do{ +qbs_set(__STRING_CMDLINEFILE,FUNC_PARSECMDLINEARGS()); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(384);}while(r); +S_1321:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(__STRING_CMDLINEFILE,qbs_new_txt_len("",0)))&(func__fileexists(qbs_add(qbs_add(func__startdir(),qbs_new_txt_len("/",1)),__STRING_CMDLINEFILE)))))||new_error){ +if(qbevent){evnt(385);if(r)goto S_1321;} +do{ +qbs_set(__STRING_CMDLINEFILE,qbs_add(qbs_add(func__startdir(),qbs_new_txt_len("/",1)),__STRING_CMDLINEFILE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(386);}while(r); +do{ +*__LONG_OUTPUTISRELATIVETOSTARTDIR= -1 ; +if(!qbevent)break;evnt(387);}while(r); +} +S_1325:; +if ((*__LONG_CONSOLEMODE)||new_error){ +if(qbevent){evnt(390);if(r)goto S_1325;} +do{ +sub__dest(func__console()); +if(!qbevent)break;evnt(391);}while(r); +}else{ +do{ +sub__console( 2 ); +if(!qbevent)break;evnt(393);}while(r); +do{ +sub__screenshow(); +if(!qbevent)break;evnt(394);}while(r); +do{ +sub__icon(NULL,NULL,0); +if(!qbevent)break;evnt(395);}while(r); +} +do{ +if(!qbevent)break;evnt(452);}while(r); +do{ +if(!qbevent)break;evnt(453);}while(r); +do{ +if(!qbevent)break;evnt(454);}while(r); +do{ +if(!qbevent)break;evnt(455);}while(r); +do{ +if(!qbevent)break;evnt(456);}while(r); +do{ +if(!qbevent)break;evnt(457);}while(r); +do{ +if(!qbevent)break;evnt(458);}while(r); +do{ +if(!qbevent)break;evnt(459);}while(r); +do{ +if(!qbevent)break;evnt(460);}while(r); +do{ if (__ARRAY_INTEGER_HASH1CHAR[2]&2){ error(10); @@ -5309,9 +5309,9 @@ if (!__ARRAY_INTEGER_HASH1CHAR[0]) error(257); } __ARRAY_INTEGER_HASH1CHAR[2]|=1; } -} -if(!qbevent)break;evnt(462);}while(r); -do{ +} +if(!qbevent)break;evnt(462);}while(r); +do{ if (__ARRAY_INTEGER_HASH2CHAR[2]&2){ error(10); @@ -5331,140 +5331,140 @@ if (!__ARRAY_INTEGER_HASH2CHAR[0]) error(257); } __ARRAY_INTEGER_HASH2CHAR[2]|=1; } -} -if(!qbevent)break;evnt(463);}while(r); -S_1343:; -fornext_value45= 1 ; -fornext_finalvalue45= 26 ; -fornext_step45= 1 ; -if (fornext_step45<0) fornext_step_negative45=1; else fornext_step_negative45=0; -if (new_error) goto fornext_error45; -goto fornext_entrylabel45; -while(1){ -fornext_value45=fornext_step45+(*__LONG_X); -fornext_entrylabel45: -*__LONG_X=fornext_value45; -if (fornext_step_negative45){ -if (fornext_value45fornext_finalvalue45) break; -} -fornext_error45:; -if(qbevent){evnt(464);if(r)goto S_1343;} -do{ -tmp_long=array_check(( 64 +*__LONG_X)-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]=*__LONG_X; -if(!qbevent)break;evnt(465);}while(r); -do{ -tmp_long=array_check(( 96 +*__LONG_X)-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]=*__LONG_X; -if(!qbevent)break;evnt(466);}while(r); -fornext_continue_44:; -} -fornext_exit_44:; -do{ -tmp_long=array_check(( 95 )-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]= 27 ; -if(!qbevent)break;evnt(468);}while(r); -do{ -tmp_long=array_check(( 48 )-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]= 28 ; -if(!qbevent)break;evnt(469);}while(r); -do{ -tmp_long=array_check(( 49 )-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]= 29 ; -if(!qbevent)break;evnt(470);}while(r); -do{ -tmp_long=array_check(( 50 )-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]= 30 ; -if(!qbevent)break;evnt(471);}while(r); -do{ -tmp_long=array_check(( 51 )-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]= 31 ; -if(!qbevent)break;evnt(472);}while(r); -do{ -tmp_long=array_check(( 52 )-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]= 23 ; -if(!qbevent)break;evnt(473);}while(r); -do{ -tmp_long=array_check(( 53 )-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]= 22 ; -if(!qbevent)break;evnt(474);}while(r); -do{ -tmp_long=array_check(( 54 )-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]= 20 ; -if(!qbevent)break;evnt(475);}while(r); -do{ -tmp_long=array_check(( 55 )-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]= 19 ; -if(!qbevent)break;evnt(476);}while(r); -do{ -tmp_long=array_check(( 56 )-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]= 18 ; -if(!qbevent)break;evnt(477);}while(r); -do{ -tmp_long=array_check(( 57 )-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]= 17 ; -if(!qbevent)break;evnt(478);}while(r); -S_1358:; -fornext_value47= 0 ; -fornext_finalvalue47= 255 ; -fornext_step47= 1 ; -if (fornext_step47<0) fornext_step_negative47=1; else fornext_step_negative47=0; -if (new_error) goto fornext_error47; -goto fornext_entrylabel47; -while(1){ -fornext_value47=fornext_step47+(*__LONG_C1); -fornext_entrylabel47: -*__LONG_C1=fornext_value47; -if (fornext_step_negative47){ -if (fornext_value47fornext_finalvalue47) break; -} -fornext_error47:; -if(qbevent){evnt(479);if(r)goto S_1358;} -S_1359:; -fornext_value49= 0 ; -fornext_finalvalue49= 255 ; -fornext_step49= 1 ; -if (fornext_step49<0) fornext_step_negative49=1; else fornext_step_negative49=0; -if (new_error) goto fornext_error49; -goto fornext_entrylabel49; -while(1){ -fornext_value49=fornext_step49+(*__LONG_C2); -fornext_entrylabel49: -*__LONG_C2=fornext_value49; -if (fornext_step_negative49){ -if (fornext_value49fornext_finalvalue49) break; -} -fornext_error49:; -if(qbevent){evnt(480);if(r)goto S_1359;} -do{ -tmp_long=array_check((*__LONG_C1+(*__LONG_C2* 256 ))-__ARRAY_INTEGER_HASH2CHAR[4],__ARRAY_INTEGER_HASH2CHAR[5]); -if (!new_error) ((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(481);}while(r); -fornext_continue_48:; -} -fornext_exit_48:; -fornext_continue_46:; -} -fornext_exit_46:; -do{ -*__LONG_HASHLISTSIZE= 65536 ; -if(!qbevent)break;evnt(485);}while(r); -do{ -*__LONG_HASHLISTNEXT= 1 ; -if(!qbevent)break;evnt(486);}while(r); -do{ -*__LONG_HASHLISTFREESIZE= 1024 ; -if(!qbevent)break;evnt(487);}while(r); -do{ -*__LONG_HASHLISTFREELAST= 0 ; -if(!qbevent)break;evnt(488);}while(r); -do{ +} +if(!qbevent)break;evnt(463);}while(r); +S_1343:; +fornext_value45= 1 ; +fornext_finalvalue45= 26 ; +fornext_step45= 1 ; +if (fornext_step45<0) fornext_step_negative45=1; else fornext_step_negative45=0; +if (new_error) goto fornext_error45; +goto fornext_entrylabel45; +while(1){ +fornext_value45=fornext_step45+(*__LONG_X); +fornext_entrylabel45: +*__LONG_X=fornext_value45; +if (fornext_step_negative45){ +if (fornext_value45fornext_finalvalue45) break; +} +fornext_error45:; +if(qbevent){evnt(464);if(r)goto S_1343;} +do{ +tmp_long=array_check(( 64 +*__LONG_X)-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]=*__LONG_X; +if(!qbevent)break;evnt(465);}while(r); +do{ +tmp_long=array_check(( 96 +*__LONG_X)-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]=*__LONG_X; +if(!qbevent)break;evnt(466);}while(r); +fornext_continue_44:; +} +fornext_exit_44:; +do{ +tmp_long=array_check(( 95 )-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]= 27 ; +if(!qbevent)break;evnt(468);}while(r); +do{ +tmp_long=array_check(( 48 )-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]= 28 ; +if(!qbevent)break;evnt(469);}while(r); +do{ +tmp_long=array_check(( 49 )-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]= 29 ; +if(!qbevent)break;evnt(470);}while(r); +do{ +tmp_long=array_check(( 50 )-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]= 30 ; +if(!qbevent)break;evnt(471);}while(r); +do{ +tmp_long=array_check(( 51 )-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]= 31 ; +if(!qbevent)break;evnt(472);}while(r); +do{ +tmp_long=array_check(( 52 )-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]= 23 ; +if(!qbevent)break;evnt(473);}while(r); +do{ +tmp_long=array_check(( 53 )-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]= 22 ; +if(!qbevent)break;evnt(474);}while(r); +do{ +tmp_long=array_check(( 54 )-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]= 20 ; +if(!qbevent)break;evnt(475);}while(r); +do{ +tmp_long=array_check(( 55 )-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]= 19 ; +if(!qbevent)break;evnt(476);}while(r); +do{ +tmp_long=array_check(( 56 )-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]= 18 ; +if(!qbevent)break;evnt(477);}while(r); +do{ +tmp_long=array_check(( 57 )-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[tmp_long]= 17 ; +if(!qbevent)break;evnt(478);}while(r); +S_1358:; +fornext_value47= 0 ; +fornext_finalvalue47= 255 ; +fornext_step47= 1 ; +if (fornext_step47<0) fornext_step_negative47=1; else fornext_step_negative47=0; +if (new_error) goto fornext_error47; +goto fornext_entrylabel47; +while(1){ +fornext_value47=fornext_step47+(*__LONG_C1); +fornext_entrylabel47: +*__LONG_C1=fornext_value47; +if (fornext_step_negative47){ +if (fornext_value47fornext_finalvalue47) break; +} +fornext_error47:; +if(qbevent){evnt(479);if(r)goto S_1358;} +S_1359:; +fornext_value49= 0 ; +fornext_finalvalue49= 255 ; +fornext_step49= 1 ; +if (fornext_step49<0) fornext_step_negative49=1; else fornext_step_negative49=0; +if (new_error) goto fornext_error49; +goto fornext_entrylabel49; +while(1){ +fornext_value49=fornext_step49+(*__LONG_C2); +fornext_entrylabel49: +*__LONG_C2=fornext_value49; +if (fornext_step_negative49){ +if (fornext_value49fornext_finalvalue49) break; +} +fornext_error49:; +if(qbevent){evnt(480);if(r)goto S_1359;} +do{ +tmp_long=array_check((*__LONG_C1+(*__LONG_C2* 256 ))-__ARRAY_INTEGER_HASH2CHAR[4],__ARRAY_INTEGER_HASH2CHAR[5]); +if (!new_error) ((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(481);}while(r); +fornext_continue_48:; +} +fornext_exit_48:; +fornext_continue_46:; +} +fornext_exit_46:; +do{ +*__LONG_HASHLISTSIZE= 65536 ; +if(!qbevent)break;evnt(485);}while(r); +do{ +*__LONG_HASHLISTNEXT= 1 ; +if(!qbevent)break;evnt(486);}while(r); +do{ +*__LONG_HASHLISTFREESIZE= 1024 ; +if(!qbevent)break;evnt(487);}while(r); +do{ +*__LONG_HASHLISTFREELAST= 0 ; +if(!qbevent)break;evnt(488);}while(r); +do{ if (__ARRAY_UDT_HASHLIST[2]&2){ error(10); @@ -5488,9 +5488,9 @@ __ARRAY_UDT_HASHLIST[0]=(ptrszint)calloc(__ARRAY_UDT_HASHLIST[5]*160/8+1,1); if (!__ARRAY_UDT_HASHLIST[0]) error(257); } __ARRAY_UDT_HASHLIST[2]|=1; -} -if(!qbevent)break;evnt(489);}while(r); -do{ +} +if(!qbevent)break;evnt(489);}while(r); +do{ if (__ARRAY_STRING256_HASHLISTNAME[2]&2){ error(10); @@ -5514,9 +5514,9 @@ __ARRAY_STRING256_HASHLISTNAME[0]=(ptrszint)calloc(__ARRAY_STRING256_HASHLISTNAM if (!__ARRAY_STRING256_HASHLISTNAME[0]) error(257); } __ARRAY_STRING256_HASHLISTNAME[2]|=1; -} -if(!qbevent)break;evnt(490);}while(r); -do{ +} +if(!qbevent)break;evnt(490);}while(r); +do{ if (__ARRAY_LONG_HASHLISTFREE[2]&2){ error(10); @@ -5540,9 +5540,9 @@ __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(491);}while(r); -do{ +} +if(!qbevent)break;evnt(491);}while(r); +do{ if (__ARRAY_LONG_HASHTABLE[2]&2){ error(10); @@ -5566,14 +5566,14 @@ __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(492);}while(r); -do{ -if(!qbevent)break;evnt(519);}while(r); -do{ -*__LONG_LABELS_UBOUND= 100 ; -if(!qbevent)break;evnt(520);}while(r); -do{ +} +if(!qbevent)break;evnt(492);}while(r); +do{ +if(!qbevent)break;evnt(519);}while(r); +do{ +*__LONG_LABELS_UBOUND= 100 ; +if(!qbevent)break;evnt(520);}while(r); +do{ if (__ARRAY_UDT_LABELS[2]&2){ error(10); @@ -5597,27 +5597,27 @@ __ARRAY_UDT_LABELS[0]=(ptrszint)calloc(__ARRAY_UDT_LABELS[5]*2256/8+1,1); if (!__ARRAY_UDT_LABELS[0]) error(257); } __ARRAY_UDT_LABELS[2]|=1; -} -if(!qbevent)break;evnt(521);}while(r); -do{ -if(!qbevent)break;evnt(522);}while(r); -do{ -if(!qbevent)break;evnt(524);}while(r); -do{ -if(!qbevent)break;evnt(525);}while(r); -do{ -if(!qbevent)break;evnt(526);}while(r); -do{ -if(!qbevent)break;evnt(528);}while(r); -do{ -if(!qbevent)break;evnt(530);}while(r); -do{ -if(!qbevent)break;evnt(532);}while(r); -do{ -if(!qbevent)break;evnt(535);}while(r); -do{ -if(!qbevent)break;evnt(537);}while(r); -do{ +} +if(!qbevent)break;evnt(521);}while(r); +do{ +if(!qbevent)break;evnt(522);}while(r); +do{ +if(!qbevent)break;evnt(524);}while(r); +do{ +if(!qbevent)break;evnt(525);}while(r); +do{ +if(!qbevent)break;evnt(526);}while(r); +do{ +if(!qbevent)break;evnt(528);}while(r); +do{ +if(!qbevent)break;evnt(530);}while(r); +do{ +if(!qbevent)break;evnt(532);}while(r); +do{ +if(!qbevent)break;evnt(535);}while(r); +do{ +if(!qbevent)break;evnt(537);}while(r); +do{ if (__ARRAY_LONG_REVERTMAYMUSTHAVE[2]&2){ error(10); @@ -5637,17 +5637,17 @@ if (!__ARRAY_LONG_REVERTMAYMUSTHAVE[0]) error(257); } __ARRAY_LONG_REVERTMAYMUSTHAVE[2]|=1; } -} -if(!qbevent)break;evnt(539);}while(r); -do{ -if(!qbevent)break;evnt(540);}while(r); -do{ -if(!qbevent)break;evnt(542);}while(r); -do{ -if(!qbevent)break;evnt(544);}while(r); -do{ -if(!qbevent)break;evnt(547);}while(r); -do{ +} +if(!qbevent)break;evnt(539);}while(r); +do{ +if(!qbevent)break;evnt(540);}while(r); +do{ +if(!qbevent)break;evnt(542);}while(r); +do{ +if(!qbevent)break;evnt(544);}while(r); +do{ +if(!qbevent)break;evnt(547);}while(r); +do{ if (__ARRAY_STRING_INCNAME[2]&2){ error(10); @@ -5668,9 +5668,9 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_INCNAME[0]))[tmp_long]=(uint64)qbs_n while(tmp_long--) ((uint64*)(__ARRAY_STRING_INCNAME[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -} -if(!qbevent)break;evnt(548);}while(r); -do{ +} +if(!qbevent)break;evnt(548);}while(r); +do{ if (__ARRAY_LONG_INCLINENUMBER[2]&2){ error(10); @@ -5690,29 +5690,29 @@ if (!__ARRAY_LONG_INCLINENUMBER[0]) error(257); } __ARRAY_LONG_INCLINENUMBER[2]|=1; } -} -if(!qbevent)break;evnt(549);}while(r); -do{ -if(!qbevent)break;evnt(550);}while(r); -do{ -if(!qbevent)break;evnt(553);}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(554);}while(r); -do{ -if(!qbevent)break;evnt(556);}while(r); -do{ -if(!qbevent)break;evnt(557);}while(r); -do{ -if(!qbevent)break;evnt(559);}while(r); -do{ -if(!qbevent)break;evnt(561);}while(r); -do{ -if(!qbevent)break;evnt(562);}while(r); -do{ -if(!qbevent)break;evnt(565);}while(r); -do{ +} +if(!qbevent)break;evnt(549);}while(r); +do{ +if(!qbevent)break;evnt(550);}while(r); +do{ +if(!qbevent)break;evnt(553);}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(554);}while(r); +do{ +if(!qbevent)break;evnt(556);}while(r); +do{ +if(!qbevent)break;evnt(557);}while(r); +do{ +if(!qbevent)break;evnt(559);}while(r); +do{ +if(!qbevent)break;evnt(561);}while(r); +do{ +if(!qbevent)break;evnt(562);}while(r); +do{ +if(!qbevent)break;evnt(565);}while(r); +do{ if (__ARRAY_LONG_ALPHANUMERIC[2]&2){ error(10); @@ -5732,88 +5732,88 @@ if (!__ARRAY_LONG_ALPHANUMERIC[0]) error(257); } __ARRAY_LONG_ALPHANUMERIC[2]|=1; } -} -if(!qbevent)break;evnt(567);}while(r); -S_1400:; -fornext_value51= 48 ; -fornext_finalvalue51= 57 ; -fornext_step51= 1 ; -if (fornext_step51<0) fornext_step_negative51=1; else fornext_step_negative51=0; -if (new_error) goto fornext_error51; -goto fornext_entrylabel51; -while(1){ -fornext_value51=fornext_step51+(*__LONG_I); -fornext_entrylabel51: -*__LONG_I=fornext_value51; -if (fornext_step_negative51){ -if (fornext_value51fornext_finalvalue51) break; -} -fornext_error51:; -if(qbevent){evnt(568);if(r)goto S_1400;} -do{ -tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[tmp_long]= -1 ; -if(!qbevent)break;evnt(569);}while(r); -fornext_continue_50:; -} -fornext_exit_50:; -S_1403:; -fornext_value53= 65 ; -fornext_finalvalue53= 90 ; -fornext_step53= 1 ; -if (fornext_step53<0) fornext_step_negative53=1; else fornext_step_negative53=0; -if (new_error) goto fornext_error53; -goto fornext_entrylabel53; -while(1){ -fornext_value53=fornext_step53+(*__LONG_I); -fornext_entrylabel53: -*__LONG_I=fornext_value53; -if (fornext_step_negative53){ -if (fornext_value53fornext_finalvalue53) break; -} -fornext_error53:; -if(qbevent){evnt(571);if(r)goto S_1403;} -do{ -tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[tmp_long]= -1 ; -if(!qbevent)break;evnt(572);}while(r); -fornext_continue_52:; -} -fornext_exit_52:; -S_1406:; -fornext_value55= 97 ; -fornext_finalvalue55= 122 ; -fornext_step55= 1 ; -if (fornext_step55<0) fornext_step_negative55=1; else fornext_step_negative55=0; -if (new_error) goto fornext_error55; -goto fornext_entrylabel55; -while(1){ -fornext_value55=fornext_step55+(*__LONG_I); -fornext_entrylabel55: -*__LONG_I=fornext_value55; -if (fornext_step_negative55){ -if (fornext_value55fornext_finalvalue55) break; -} -fornext_error55:; -if(qbevent){evnt(574);if(r)goto S_1406;} -do{ -tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[tmp_long]= -1 ; -if(!qbevent)break;evnt(575);}while(r); -fornext_continue_54:; -} -fornext_exit_54:; -do{ -tmp_long=array_check(( 95 )-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[tmp_long]= -1 ; -if(!qbevent)break;evnt(578);}while(r); -do{ +} +if(!qbevent)break;evnt(567);}while(r); +S_1400:; +fornext_value51= 48 ; +fornext_finalvalue51= 57 ; +fornext_step51= 1 ; +if (fornext_step51<0) fornext_step_negative51=1; else fornext_step_negative51=0; +if (new_error) goto fornext_error51; +goto fornext_entrylabel51; +while(1){ +fornext_value51=fornext_step51+(*__LONG_I); +fornext_entrylabel51: +*__LONG_I=fornext_value51; +if (fornext_step_negative51){ +if (fornext_value51fornext_finalvalue51) break; +} +fornext_error51:; +if(qbevent){evnt(568);if(r)goto S_1400;} +do{ +tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[tmp_long]= -1 ; +if(!qbevent)break;evnt(569);}while(r); +fornext_continue_50:; +} +fornext_exit_50:; +S_1403:; +fornext_value53= 65 ; +fornext_finalvalue53= 90 ; +fornext_step53= 1 ; +if (fornext_step53<0) fornext_step_negative53=1; else fornext_step_negative53=0; +if (new_error) goto fornext_error53; +goto fornext_entrylabel53; +while(1){ +fornext_value53=fornext_step53+(*__LONG_I); +fornext_entrylabel53: +*__LONG_I=fornext_value53; +if (fornext_step_negative53){ +if (fornext_value53fornext_finalvalue53) break; +} +fornext_error53:; +if(qbevent){evnt(571);if(r)goto S_1403;} +do{ +tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[tmp_long]= -1 ; +if(!qbevent)break;evnt(572);}while(r); +fornext_continue_52:; +} +fornext_exit_52:; +S_1406:; +fornext_value55= 97 ; +fornext_finalvalue55= 122 ; +fornext_step55= 1 ; +if (fornext_step55<0) fornext_step_negative55=1; else fornext_step_negative55=0; +if (new_error) goto fornext_error55; +goto fornext_entrylabel55; +while(1){ +fornext_value55=fornext_step55+(*__LONG_I); +fornext_entrylabel55: +*__LONG_I=fornext_value55; +if (fornext_step_negative55){ +if (fornext_value55fornext_finalvalue55) break; +} +fornext_error55:; +if(qbevent){evnt(574);if(r)goto S_1406;} +do{ +tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[tmp_long]= -1 ; +if(!qbevent)break;evnt(575);}while(r); +fornext_continue_54:; +} +fornext_exit_54:; +do{ +tmp_long=array_check(( 95 )-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[tmp_long]= -1 ; +if(!qbevent)break;evnt(578);}while(r); +do{ if (__ARRAY_LONG_ISALPHA[2]&2){ error(10); @@ -5833,63 +5833,63 @@ if (!__ARRAY_LONG_ISALPHA[0]) error(257); } __ARRAY_LONG_ISALPHA[2]|=1; } -} -if(!qbevent)break;evnt(580);}while(r); -S_1411:; -fornext_value57= 65 ; -fornext_finalvalue57= 90 ; -fornext_step57= 1 ; -if (fornext_step57<0) fornext_step_negative57=1; else fornext_step_negative57=0; -if (new_error) goto fornext_error57; -goto fornext_entrylabel57; -while(1){ -fornext_value57=fornext_step57+(*__LONG_I); -fornext_entrylabel57: -*__LONG_I=fornext_value57; -if (fornext_step_negative57){ -if (fornext_value57fornext_finalvalue57) break; -} -fornext_error57:; -if(qbevent){evnt(581);if(r)goto S_1411;} -do{ -tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_ISALPHA[4],__ARRAY_LONG_ISALPHA[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_ISALPHA[0]))[tmp_long]= -1 ; -if(!qbevent)break;evnt(582);}while(r); -fornext_continue_56:; -} -fornext_exit_56:; -S_1414:; -fornext_value59= 97 ; -fornext_finalvalue59= 122 ; -fornext_step59= 1 ; -if (fornext_step59<0) fornext_step_negative59=1; else fornext_step_negative59=0; -if (new_error) goto fornext_error59; -goto fornext_entrylabel59; -while(1){ -fornext_value59=fornext_step59+(*__LONG_I); -fornext_entrylabel59: -*__LONG_I=fornext_value59; -if (fornext_step_negative59){ -if (fornext_value59fornext_finalvalue59) break; -} -fornext_error59:; -if(qbevent){evnt(584);if(r)goto S_1414;} -do{ -tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_ISALPHA[4],__ARRAY_LONG_ISALPHA[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_ISALPHA[0]))[tmp_long]= -1 ; -if(!qbevent)break;evnt(585);}while(r); -fornext_continue_58:; -} -fornext_exit_58:; -do{ -tmp_long=array_check(( 95 )-__ARRAY_LONG_ISALPHA[4],__ARRAY_LONG_ISALPHA[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_ISALPHA[0]))[tmp_long]= -1 ; -if(!qbevent)break;evnt(588);}while(r); -do{ +} +if(!qbevent)break;evnt(580);}while(r); +S_1411:; +fornext_value57= 65 ; +fornext_finalvalue57= 90 ; +fornext_step57= 1 ; +if (fornext_step57<0) fornext_step_negative57=1; else fornext_step_negative57=0; +if (new_error) goto fornext_error57; +goto fornext_entrylabel57; +while(1){ +fornext_value57=fornext_step57+(*__LONG_I); +fornext_entrylabel57: +*__LONG_I=fornext_value57; +if (fornext_step_negative57){ +if (fornext_value57fornext_finalvalue57) break; +} +fornext_error57:; +if(qbevent){evnt(581);if(r)goto S_1411;} +do{ +tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_ISALPHA[4],__ARRAY_LONG_ISALPHA[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_ISALPHA[0]))[tmp_long]= -1 ; +if(!qbevent)break;evnt(582);}while(r); +fornext_continue_56:; +} +fornext_exit_56:; +S_1414:; +fornext_value59= 97 ; +fornext_finalvalue59= 122 ; +fornext_step59= 1 ; +if (fornext_step59<0) fornext_step_negative59=1; else fornext_step_negative59=0; +if (new_error) goto fornext_error59; +goto fornext_entrylabel59; +while(1){ +fornext_value59=fornext_step59+(*__LONG_I); +fornext_entrylabel59: +*__LONG_I=fornext_value59; +if (fornext_step_negative59){ +if (fornext_value59fornext_finalvalue59) break; +} +fornext_error59:; +if(qbevent){evnt(584);if(r)goto S_1414;} +do{ +tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_ISALPHA[4],__ARRAY_LONG_ISALPHA[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_ISALPHA[0]))[tmp_long]= -1 ; +if(!qbevent)break;evnt(585);}while(r); +fornext_continue_58:; +} +fornext_exit_58:; +do{ +tmp_long=array_check(( 95 )-__ARRAY_LONG_ISALPHA[4],__ARRAY_LONG_ISALPHA[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_ISALPHA[0]))[tmp_long]= -1 ; +if(!qbevent)break;evnt(588);}while(r); +do{ if (__ARRAY_LONG_ISNUMERIC[2]&2){ error(10); @@ -5909,34 +5909,34 @@ if (!__ARRAY_LONG_ISNUMERIC[0]) error(257); } __ARRAY_LONG_ISNUMERIC[2]|=1; } -} -if(!qbevent)break;evnt(590);}while(r); -S_1419:; -fornext_value61= 48 ; -fornext_finalvalue61= 57 ; -fornext_step61= 1 ; -if (fornext_step61<0) fornext_step_negative61=1; else fornext_step_negative61=0; -if (new_error) goto fornext_error61; -goto fornext_entrylabel61; -while(1){ -fornext_value61=fornext_step61+(*__LONG_I); -fornext_entrylabel61: -*__LONG_I=fornext_value61; -if (fornext_step_negative61){ -if (fornext_value61fornext_finalvalue61) break; -} -fornext_error61:; -if(qbevent){evnt(591);if(r)goto S_1419;} -do{ -tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_ISNUMERIC[4],__ARRAY_LONG_ISNUMERIC[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_ISNUMERIC[0]))[tmp_long]= -1 ; -if(!qbevent)break;evnt(592);}while(r); -fornext_continue_60:; -} -fornext_exit_60:; -do{ +} +if(!qbevent)break;evnt(590);}while(r); +S_1419:; +fornext_value61= 48 ; +fornext_finalvalue61= 57 ; +fornext_step61= 1 ; +if (fornext_step61<0) fornext_step_negative61=1; else fornext_step_negative61=0; +if (new_error) goto fornext_error61; +goto fornext_entrylabel61; +while(1){ +fornext_value61=fornext_step61+(*__LONG_I); +fornext_entrylabel61: +*__LONG_I=fornext_value61; +if (fornext_step_negative61){ +if (fornext_value61fornext_finalvalue61) break; +} +fornext_error61:; +if(qbevent){evnt(591);if(r)goto S_1419;} +do{ +tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_ISNUMERIC[4],__ARRAY_LONG_ISNUMERIC[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_ISNUMERIC[0]))[tmp_long]= -1 ; +if(!qbevent)break;evnt(592);}while(r); +fornext_continue_60:; +} +fornext_exit_60:; +do{ if (__ARRAY_LONG_LFSINGLECHAR[2]&2){ error(10); @@ -5956,111 +5956,111 @@ if (!__ARRAY_LONG_LFSINGLECHAR[0]) error(257); } __ARRAY_LONG_LFSINGLECHAR[2]|=1; } -} -if(!qbevent)break;evnt(596);}while(r); -do{ -tmp_long=array_check(( 40 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(597);}while(r); -do{ -tmp_long=array_check(( 41 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(598);}while(r); -do{ -tmp_long=array_check(( 42 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(599);}while(r); -do{ -tmp_long=array_check(( 43 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(600);}while(r); -do{ -tmp_long=array_check(( 45 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(601);}while(r); -do{ -tmp_long=array_check(( 47 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(602);}while(r); -do{ -tmp_long=array_check(( 60 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(603);}while(r); -do{ -tmp_long=array_check(( 61 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(604);}while(r); -do{ -tmp_long=array_check(( 62 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(605);}while(r); -do{ -tmp_long=array_check(( 92 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(606);}while(r); -do{ -tmp_long=array_check(( 94 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(607);}while(r); -do{ -tmp_long=array_check(( 44 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(609);}while(r); -do{ -tmp_long=array_check(( 46 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(610);}while(r); -do{ -tmp_long=array_check(( 58 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(611);}while(r); -do{ -tmp_long=array_check(( 59 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(612);}while(r); -do{ -tmp_long=array_check(( 35 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(614);}while(r); -do{ -tmp_long=array_check(( 36 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(615);}while(r); -do{ -tmp_long=array_check(( 63 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(616);}while(r); -do{ -tmp_long=array_check(( 95 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(617);}while(r); -do{ -if(!qbevent)break;evnt(628);}while(r); -do{ -if(!qbevent)break;evnt(630);}while(r); -do{ -if(!qbevent)break;evnt(631);}while(r); -do{ -if(!qbevent)break;evnt(633);}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(641);}while(r); -do{ -*__LONG_CONSTMAX= 100 ; -if(!qbevent)break;evnt(642);}while(r); -do{ -if(!qbevent)break;evnt(643);}while(r); -do{ -*__LONG_CONSTLAST= -1 ; -if(!qbevent)break;evnt(644);}while(r); -do{ +} +if(!qbevent)break;evnt(596);}while(r); +do{ +tmp_long=array_check(( 40 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ; +if(!qbevent)break;evnt(597);}while(r); +do{ +tmp_long=array_check(( 41 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ; +if(!qbevent)break;evnt(598);}while(r); +do{ +tmp_long=array_check(( 42 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ; +if(!qbevent)break;evnt(599);}while(r); +do{ +tmp_long=array_check(( 43 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ; +if(!qbevent)break;evnt(600);}while(r); +do{ +tmp_long=array_check(( 45 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ; +if(!qbevent)break;evnt(601);}while(r); +do{ +tmp_long=array_check(( 47 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ; +if(!qbevent)break;evnt(602);}while(r); +do{ +tmp_long=array_check(( 60 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ; +if(!qbevent)break;evnt(603);}while(r); +do{ +tmp_long=array_check(( 61 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ; +if(!qbevent)break;evnt(604);}while(r); +do{ +tmp_long=array_check(( 62 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ; +if(!qbevent)break;evnt(605);}while(r); +do{ +tmp_long=array_check(( 92 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ; +if(!qbevent)break;evnt(606);}while(r); +do{ +tmp_long=array_check(( 94 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ; +if(!qbevent)break;evnt(607);}while(r); +do{ +tmp_long=array_check(( 44 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ; +if(!qbevent)break;evnt(609);}while(r); +do{ +tmp_long=array_check(( 46 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ; +if(!qbevent)break;evnt(610);}while(r); +do{ +tmp_long=array_check(( 58 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ; +if(!qbevent)break;evnt(611);}while(r); +do{ +tmp_long=array_check(( 59 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ; +if(!qbevent)break;evnt(612);}while(r); +do{ +tmp_long=array_check(( 35 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ; +if(!qbevent)break;evnt(614);}while(r); +do{ +tmp_long=array_check(( 36 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ; +if(!qbevent)break;evnt(615);}while(r); +do{ +tmp_long=array_check(( 63 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ; +if(!qbevent)break;evnt(616);}while(r); +do{ +tmp_long=array_check(( 95 )-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[tmp_long]= 1 ; +if(!qbevent)break;evnt(617);}while(r); +do{ +if(!qbevent)break;evnt(628);}while(r); +do{ +if(!qbevent)break;evnt(630);}while(r); +do{ +if(!qbevent)break;evnt(631);}while(r); +do{ +if(!qbevent)break;evnt(633);}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(641);}while(r); +do{ +*__LONG_CONSTMAX= 100 ; +if(!qbevent)break;evnt(642);}while(r); +do{ +if(!qbevent)break;evnt(643);}while(r); +do{ +*__LONG_CONSTLAST= -1 ; +if(!qbevent)break;evnt(644);}while(r); +do{ if (__ARRAY_STRING_CONSTNAME[2]&2){ error(10); @@ -6083,9 +6083,9 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTNAME[0]))[tmp_long]=(uint64)qbs }else{ while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTNAME[0]))[tmp_long]=(uint64)qbs_new(0,0); } -} -if(!qbevent)break;evnt(645);}while(r); -do{ +} +if(!qbevent)break;evnt(645);}while(r); +do{ if (__ARRAY_STRING_CONSTCNAME[2]&2){ error(10); @@ -6108,9 +6108,9 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTCNAME[0]))[tmp_long]=(uint64)qb }else{ while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTCNAME[0]))[tmp_long]=(uint64)qbs_new(0,0); } -} -if(!qbevent)break;evnt(646);}while(r); -do{ +} +if(!qbevent)break;evnt(646);}while(r); +do{ if (__ARRAY_STRING_CONSTNAMESYMBOL[2]&2){ error(10); @@ -6133,9 +6133,9 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTNAMESYMBOL[0]))[tmp_long]=(uint }else{ while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTNAMESYMBOL[0]))[tmp_long]=(uint64)qbs_new(0,0); } -} -if(!qbevent)break;evnt(647);}while(r); -do{ +} +if(!qbevent)break;evnt(647);}while(r); +do{ if (__ARRAY_LONG_CONSTTYPE[2]&2){ error(10); @@ -6159,9 +6159,9 @@ __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(651);}while(r); -do{ +} +if(!qbevent)break;evnt(651);}while(r); +do{ if (__ARRAY_INTEGER64_CONSTINTEGER[2]&2){ error(10); @@ -6185,9 +6185,9 @@ __ARRAY_INTEGER64_CONSTINTEGER[0]=(ptrszint)calloc(__ARRAY_INTEGER64_CONSTINTEGE if (!__ARRAY_INTEGER64_CONSTINTEGER[0]) error(257); } __ARRAY_INTEGER64_CONSTINTEGER[2]|=1; -} -if(!qbevent)break;evnt(653);}while(r); -do{ +} +if(!qbevent)break;evnt(653);}while(r); +do{ if (__ARRAY_UINTEGER64_CONSTUINTEGER[2]&2){ error(10); @@ -6211,9 +6211,9 @@ __ARRAY_UINTEGER64_CONSTUINTEGER[0]=(ptrszint)calloc(__ARRAY_UINTEGER64_CONSTUIN if (!__ARRAY_UINTEGER64_CONSTUINTEGER[0]) error(257); } __ARRAY_UINTEGER64_CONSTUINTEGER[2]|=1; -} -if(!qbevent)break;evnt(654);}while(r); -do{ +} +if(!qbevent)break;evnt(654);}while(r); +do{ if (__ARRAY_FLOAT_CONSTFLOAT[2]&2){ error(10); @@ -6237,9 +6237,9 @@ __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(655);}while(r); -do{ +} +if(!qbevent)break;evnt(655);}while(r); +do{ if (__ARRAY_STRING_CONSTSTRING[2]&2){ error(10); @@ -6262,9 +6262,9 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTSTRING[0]))[tmp_long]=(uint64)q }else{ while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTSTRING[0]))[tmp_long]=(uint64)qbs_new(0,0); } -} -if(!qbevent)break;evnt(656);}while(r); -do{ +} +if(!qbevent)break;evnt(656);}while(r); +do{ if (__ARRAY_LONG_CONSTSUBFUNC[2]&2){ error(10); @@ -6288,9 +6288,9 @@ __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(657);}while(r); -do{ +} +if(!qbevent)break;evnt(657);}while(r); +do{ if (__ARRAY_LONG_CONSTDEFINED[2]&2){ error(10); @@ -6314,22 +6314,22 @@ __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(658);}while(r); -do{ -if(!qbevent)break;evnt(662);}while(r); -do{ -if(!qbevent)break;evnt(663);}while(r); -do{ -if(!qbevent)break;evnt(713);}while(r); -do{ -if(!qbevent)break;evnt(715);}while(r); -do{ -if(!qbevent)break;evnt(716);}while(r); -do{ -*__LONG_IDS_MAX= 1024 ; -if(!qbevent)break;evnt(717);}while(r); -do{ +} +if(!qbevent)break;evnt(658);}while(r); +do{ +if(!qbevent)break;evnt(662);}while(r); +do{ +if(!qbevent)break;evnt(663);}while(r); +do{ +if(!qbevent)break;evnt(713);}while(r); +do{ +if(!qbevent)break;evnt(715);}while(r); +do{ +if(!qbevent)break;evnt(716);}while(r); +do{ +*__LONG_IDS_MAX= 1024 ; +if(!qbevent)break;evnt(717);}while(r); +do{ if (__ARRAY_UDT_IDS[2]&2){ error(10); @@ -6354,9 +6354,9 @@ __ARRAY_UDT_IDS[2]|=1; tmp_long=__ARRAY_UDT_IDS[5]; while(tmp_long--){ *(qbs**)(__ARRAY_UDT_IDS[0]+(22952/8+1-1)*tmp_long+ 2861)=qbs_new(0,0);} -} -if(!qbevent)break;evnt(718);}while(r); -do{ +} +if(!qbevent)break;evnt(718);}while(r); +do{ if (__ARRAY_INTEGER_CMEMLIST[2]&2){ error(10); @@ -6380,9 +6380,9 @@ __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(719);}while(r); -do{ +} +if(!qbevent)break;evnt(719);}while(r); +do{ if (__ARRAY_STRING100_SFCMEMARGS[2]&2){ error(10); @@ -6406,9 +6406,9 @@ __ARRAY_STRING100_SFCMEMARGS[0]=(ptrszint)calloc(__ARRAY_STRING100_SFCMEMARGS[5] if (!__ARRAY_STRING100_SFCMEMARGS[0]) error(257); } __ARRAY_STRING100_SFCMEMARGS[2]|=1; -} -if(!qbevent)break;evnt(720);}while(r); -do{ +} +if(!qbevent)break;evnt(720);}while(r); +do{ if (__ARRAY_INTEGER_ARRAYELEMENTSLIST[2]&2){ error(10); @@ -6432,205 +6432,205 @@ __ARRAY_INTEGER_ARRAYELEMENTSLIST[0]=(ptrszint)calloc(__ARRAY_INTEGER_ARRAYELEME if (!__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]) error(257); } __ARRAY_INTEGER_ARRAYELEMENTSLIST[2]|=1; -} -if(!qbevent)break;evnt(721);}while(r); -do{ -if(!qbevent)break;evnt(725);}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(726);}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(727);}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(728);}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(729);}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(730);}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(731);}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(732);}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(733);}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(734);}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(735);}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(736);}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(737);}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(738);}while(r); -do{ -if(!qbevent)break;evnt(740);}while(r); -do{ -if(!qbevent)break;evnt(741);}while(r); -do{ -if(!qbevent)break;evnt(742);}while(r); -do{ -if(!qbevent)break;evnt(743);}while(r); -do{ -if(!qbevent)break;evnt(744);}while(r); -do{ -if(!qbevent)break;evnt(745);}while(r); -do{ -if(!qbevent)break;evnt(746);}while(r); -do{ -if(!qbevent)break;evnt(747);}while(r); -do{ -if(!qbevent)break;evnt(748);}while(r); -do{ -if(!qbevent)break;evnt(749);}while(r); -do{ -if(!qbevent)break;evnt(750);}while(r); -do{ -if(!qbevent)break;evnt(752);}while(r); -do{ -if(!qbevent)break;evnt(753);}while(r); -do{ -if(!qbevent)break;evnt(754);}while(r); -do{ -if(!qbevent)break;evnt(755);}while(r); -do{ -if(!qbevent)break;evnt(756);}while(r); -do{ -if(!qbevent)break;evnt(757);}while(r); -do{ -if(!qbevent)break;evnt(758);}while(r); -do{ -if(!qbevent)break;evnt(759);}while(r); -do{ -if(!qbevent)break;evnt(760);}while(r); -do{ -if(!qbevent)break;evnt(761);}while(r); -do{ -if(!qbevent)break;evnt(762);}while(r); -do{ -if(!qbevent)break;evnt(763);}while(r); -do{ -if(!qbevent)break;evnt(764);}while(r); -do{ -if(!qbevent)break;evnt(765);}while(r); -do{ -if(!qbevent)break;evnt(766);}while(r); -do{ -if(!qbevent)break;evnt(767);}while(r); -do{ -if(!qbevent)break;evnt(768);}while(r); -do{ -if(!qbevent)break;evnt(770);}while(r); -do{ -if(!qbevent)break;evnt(771);}while(r); -do{ -if(!qbevent)break;evnt(772);}while(r); -do{ -if(!qbevent)break;evnt(773);}while(r); -do{ -if(!qbevent)break;evnt(774);}while(r); -do{ -if(!qbevent)break;evnt(775);}while(r); -do{ -if(!qbevent)break;evnt(776);}while(r); -do{ -if(!qbevent)break;evnt(780);}while(r); -do{ -if(!qbevent)break;evnt(781);}while(r); -do{ -if(!qbevent)break;evnt(785);}while(r); -do{ -if(!qbevent)break;evnt(786);}while(r); -do{ -if(!qbevent)break;evnt(787);}while(r); -do{ -if(!qbevent)break;evnt(788);}while(r); -do{ -if(!qbevent)break;evnt(789);}while(r); -do{ -if(!qbevent)break;evnt(790);}while(r); -do{ -if(!qbevent)break;evnt(791);}while(r); -do{ -if(!qbevent)break;evnt(792);}while(r); -do{ -if(!qbevent)break;evnt(793);}while(r); -do{ -if(!qbevent)break;evnt(794);}while(r); -do{ -if(!qbevent)break;evnt(795);}while(r); -do{ -if(!qbevent)break;evnt(799);}while(r); -do{ -if(!qbevent)break;evnt(800);}while(r); -do{ -if(!qbevent)break;evnt(801);}while(r); -do{ -if(!qbevent)break;evnt(802);}while(r); -do{ -if(!qbevent)break;evnt(803);}while(r); -do{ -if(!qbevent)break;evnt(805);}while(r); -do{ -if(!qbevent)break;evnt(807);}while(r); -do{ -if(!qbevent)break;evnt(808);}while(r); -do{ -if(!qbevent)break;evnt(809);}while(r); -do{ -if(!qbevent)break;evnt(811);}while(r); -do{ -if(!qbevent)break;evnt(812);}while(r); -do{ -if(!qbevent)break;evnt(814);}while(r); -do{ -if(!qbevent)break;evnt(815);}while(r); -do{ -if(!qbevent)break;evnt(816);}while(r); -do{ -if(!qbevent)break;evnt(817);}while(r); -do{ -if(!qbevent)break;evnt(819);}while(r); -do{ -if(!qbevent)break;evnt(820);}while(r); -do{ -if(!qbevent)break;evnt(821);}while(r); -do{ -if(!qbevent)break;evnt(824);}while(r); -do{ -if(!qbevent)break;evnt(828);}while(r); -do{ -if(!qbevent)break;evnt(829);}while(r); -do{ -if(!qbevent)break;evnt(830);}while(r); -do{ -if(!qbevent)break;evnt(831);}while(r); -do{ +} +if(!qbevent)break;evnt(721);}while(r); +do{ +if(!qbevent)break;evnt(725);}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(726);}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(727);}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(728);}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(729);}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(730);}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(731);}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(732);}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(733);}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(734);}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(735);}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(736);}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(737);}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(738);}while(r); +do{ +if(!qbevent)break;evnt(740);}while(r); +do{ +if(!qbevent)break;evnt(741);}while(r); +do{ +if(!qbevent)break;evnt(742);}while(r); +do{ +if(!qbevent)break;evnt(743);}while(r); +do{ +if(!qbevent)break;evnt(744);}while(r); +do{ +if(!qbevent)break;evnt(745);}while(r); +do{ +if(!qbevent)break;evnt(746);}while(r); +do{ +if(!qbevent)break;evnt(747);}while(r); +do{ +if(!qbevent)break;evnt(748);}while(r); +do{ +if(!qbevent)break;evnt(749);}while(r); +do{ +if(!qbevent)break;evnt(750);}while(r); +do{ +if(!qbevent)break;evnt(752);}while(r); +do{ +if(!qbevent)break;evnt(753);}while(r); +do{ +if(!qbevent)break;evnt(754);}while(r); +do{ +if(!qbevent)break;evnt(755);}while(r); +do{ +if(!qbevent)break;evnt(756);}while(r); +do{ +if(!qbevent)break;evnt(757);}while(r); +do{ +if(!qbevent)break;evnt(758);}while(r); +do{ +if(!qbevent)break;evnt(759);}while(r); +do{ +if(!qbevent)break;evnt(760);}while(r); +do{ +if(!qbevent)break;evnt(761);}while(r); +do{ +if(!qbevent)break;evnt(762);}while(r); +do{ +if(!qbevent)break;evnt(763);}while(r); +do{ +if(!qbevent)break;evnt(764);}while(r); +do{ +if(!qbevent)break;evnt(765);}while(r); +do{ +if(!qbevent)break;evnt(766);}while(r); +do{ +if(!qbevent)break;evnt(767);}while(r); +do{ +if(!qbevent)break;evnt(768);}while(r); +do{ +if(!qbevent)break;evnt(770);}while(r); +do{ +if(!qbevent)break;evnt(771);}while(r); +do{ +if(!qbevent)break;evnt(772);}while(r); +do{ +if(!qbevent)break;evnt(773);}while(r); +do{ +if(!qbevent)break;evnt(774);}while(r); +do{ +if(!qbevent)break;evnt(775);}while(r); +do{ +if(!qbevent)break;evnt(776);}while(r); +do{ +if(!qbevent)break;evnt(780);}while(r); +do{ +if(!qbevent)break;evnt(781);}while(r); +do{ +if(!qbevent)break;evnt(785);}while(r); +do{ +if(!qbevent)break;evnt(786);}while(r); +do{ +if(!qbevent)break;evnt(787);}while(r); +do{ +if(!qbevent)break;evnt(788);}while(r); +do{ +if(!qbevent)break;evnt(789);}while(r); +do{ +if(!qbevent)break;evnt(790);}while(r); +do{ +if(!qbevent)break;evnt(791);}while(r); +do{ +if(!qbevent)break;evnt(792);}while(r); +do{ +if(!qbevent)break;evnt(793);}while(r); +do{ +if(!qbevent)break;evnt(794);}while(r); +do{ +if(!qbevent)break;evnt(795);}while(r); +do{ +if(!qbevent)break;evnt(799);}while(r); +do{ +if(!qbevent)break;evnt(800);}while(r); +do{ +if(!qbevent)break;evnt(801);}while(r); +do{ +if(!qbevent)break;evnt(802);}while(r); +do{ +if(!qbevent)break;evnt(803);}while(r); +do{ +if(!qbevent)break;evnt(805);}while(r); +do{ +if(!qbevent)break;evnt(807);}while(r); +do{ +if(!qbevent)break;evnt(808);}while(r); +do{ +if(!qbevent)break;evnt(809);}while(r); +do{ +if(!qbevent)break;evnt(811);}while(r); +do{ +if(!qbevent)break;evnt(812);}while(r); +do{ +if(!qbevent)break;evnt(814);}while(r); +do{ +if(!qbevent)break;evnt(815);}while(r); +do{ +if(!qbevent)break;evnt(816);}while(r); +do{ +if(!qbevent)break;evnt(817);}while(r); +do{ +if(!qbevent)break;evnt(819);}while(r); +do{ +if(!qbevent)break;evnt(820);}while(r); +do{ +if(!qbevent)break;evnt(821);}while(r); +do{ +if(!qbevent)break;evnt(824);}while(r); +do{ +if(!qbevent)break;evnt(828);}while(r); +do{ +if(!qbevent)break;evnt(829);}while(r); +do{ +if(!qbevent)break;evnt(830);}while(r); +do{ +if(!qbevent)break;evnt(831);}while(r); +do{ if (__ARRAY_INTEGER64_BITMASK[2]&2){ error(10); @@ -6650,9 +6650,9 @@ if (!__ARRAY_INTEGER64_BITMASK[0]) error(257); } __ARRAY_INTEGER64_BITMASK[2]|=1; } -} -if(!qbevent)break;evnt(836);}while(r); -do{ +} +if(!qbevent)break;evnt(836);}while(r); +do{ if (__ARRAY_INTEGER64_BITMASKINV[2]&2){ error(10); @@ -6672,9 +6672,9 @@ if (!__ARRAY_INTEGER64_BITMASKINV[0]) error(257); } __ARRAY_INTEGER64_BITMASKINV[2]|=1; } -} -if(!qbevent)break;evnt(837);}while(r); -do{ +} +if(!qbevent)break;evnt(837);}while(r); +do{ if (__ARRAY_STRING_DEFINEEXTAZ[2]&2){ error(10); @@ -6695,9 +6695,9 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_DEFINEEXTAZ[0]))[tmp_long]=(uint64)q while(tmp_long--) ((uint64*)(__ARRAY_STRING_DEFINEEXTAZ[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -} -if(!qbevent)break;evnt(839);}while(r); -do{ +} +if(!qbevent)break;evnt(839);}while(r); +do{ if (__ARRAY_STRING_DEFINEAZ[2]&2){ error(10); @@ -6718,113 +6718,113 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_DEFINEAZ[0]))[tmp_long]=(uint64)qbs_ while(tmp_long--) ((uint64*)(__ARRAY_STRING_DEFINEAZ[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -} -if(!qbevent)break;evnt(840);}while(r); -do{ -*__LONG_ISSTRING= 1073741824 ; -if(!qbevent)break;evnt(842);}while(r); -do{ -*__LONG_ISFLOAT= 536870912 ; -if(!qbevent)break;evnt(843);}while(r); -do{ -*__LONG_ISUNSIGNED= 268435456 ; -if(!qbevent)break;evnt(844);}while(r); -do{ -*__LONG_ISPOINTER= 134217728 ; -if(!qbevent)break;evnt(845);}while(r); -do{ -*__LONG_ISFIXEDLENGTH= 67108864 ; -if(!qbevent)break;evnt(846);}while(r); -do{ -*__LONG_ISINCONVENTIONALMEMORY= 33554432 ; -if(!qbevent)break;evnt(847);}while(r); -do{ -*__LONG_ISOFFSETINBITS= 16777216 ; -if(!qbevent)break;evnt(848);}while(r); -do{ -*__LONG_ISARRAY= 8388608 ; -if(!qbevent)break;evnt(849);}while(r); -do{ -*__LONG_ISREFERENCE= 4194304 ; -if(!qbevent)break;evnt(850);}while(r); -do{ -*__LONG_ISUDT= 2097152 ; -if(!qbevent)break;evnt(851);}while(r); -do{ -*__LONG_ISOFFSET= 1048576 ; -if(!qbevent)break;evnt(852);}while(r); -do{ -*__LONG_STRINGTYPE=*__LONG_ISSTRING+*__LONG_ISPOINTER; -if(!qbevent)break;evnt(854);}while(r); -do{ -*__LONG_BITTYPE= 1 +*__LONG_ISPOINTER+*__LONG_ISOFFSETINBITS; -if(!qbevent)break;evnt(855);}while(r); -do{ -*__LONG_UBITTYPE= 1 +*__LONG_ISPOINTER+*__LONG_ISUNSIGNED+*__LONG_ISOFFSETINBITS; -if(!qbevent)break;evnt(856);}while(r); -do{ -*__LONG_BYTETYPE= 8 +*__LONG_ISPOINTER; -if(!qbevent)break;evnt(857);}while(r); -do{ -*__LONG_UBYTETYPE= 8 +*__LONG_ISPOINTER+*__LONG_ISUNSIGNED; -if(!qbevent)break;evnt(858);}while(r); -do{ -*__LONG_INTEGERTYPE= 16 +*__LONG_ISPOINTER; -if(!qbevent)break;evnt(859);}while(r); -do{ -*__LONG_UINTEGERTYPE= 16 +*__LONG_ISPOINTER+*__LONG_ISUNSIGNED; -if(!qbevent)break;evnt(860);}while(r); -do{ -*__LONG_LONGTYPE= 32 +*__LONG_ISPOINTER; -if(!qbevent)break;evnt(861);}while(r); -do{ -*__LONG_ULONGTYPE= 32 +*__LONG_ISPOINTER+*__LONG_ISUNSIGNED; -if(!qbevent)break;evnt(862);}while(r); -do{ -*__LONG_INTEGER64TYPE= 64 +*__LONG_ISPOINTER; -if(!qbevent)break;evnt(863);}while(r); -do{ -*__LONG_UINTEGER64TYPE= 64 +*__LONG_ISPOINTER+*__LONG_ISUNSIGNED; -if(!qbevent)break;evnt(864);}while(r); -do{ -*__LONG_SINGLETYPE= 32 +*__LONG_ISFLOAT+*__LONG_ISPOINTER; -if(!qbevent)break;evnt(865);}while(r); -do{ -*__LONG_DOUBLETYPE= 64 +*__LONG_ISFLOAT+*__LONG_ISPOINTER; -if(!qbevent)break;evnt(866);}while(r); -do{ -*__LONG_FLOATTYPE= 256 +*__LONG_ISFLOAT+*__LONG_ISPOINTER; -if(!qbevent)break;evnt(867);}while(r); -do{ -*__LONG_OFFSETTYPE= 64 +*__LONG_ISOFFSET+*__LONG_ISPOINTER; -if(!qbevent)break;evnt(868);}while(r); -S_1589:; -if ((-(*__LONG_OS_BITS== 32 ))||new_error){ -if(qbevent){evnt(868);if(r)goto S_1589;} -do{ -*__LONG_OFFSETTYPE= 32 +*__LONG_ISOFFSET+*__LONG_ISPOINTER; -if(!qbevent)break;evnt(868);}while(r); -} -do{ -*__LONG_UOFFSETTYPE= 64 +*__LONG_ISOFFSET+*__LONG_ISUNSIGNED+*__LONG_ISPOINTER; -if(!qbevent)break;evnt(869);}while(r); -S_1593:; -if ((-(*__LONG_OS_BITS== 32 ))||new_error){ -if(qbevent){evnt(869);if(r)goto S_1593;} -do{ -*__LONG_UOFFSETTYPE= 32 +*__LONG_ISOFFSET+*__LONG_ISUNSIGNED+*__LONG_ISPOINTER; -if(!qbevent)break;evnt(869);}while(r); -} -do{ -*__LONG_UDTTYPE=*__LONG_ISUDT+*__LONG_ISPOINTER; -if(!qbevent)break;evnt(870);}while(r); -do{ -if(!qbevent)break;evnt(877);}while(r); -do{ -if(!qbevent)break;evnt(878);}while(r); -do{ -if(!qbevent)break;evnt(883);}while(r); -do{ +} +if(!qbevent)break;evnt(840);}while(r); +do{ +*__LONG_ISSTRING= 1073741824 ; +if(!qbevent)break;evnt(842);}while(r); +do{ +*__LONG_ISFLOAT= 536870912 ; +if(!qbevent)break;evnt(843);}while(r); +do{ +*__LONG_ISUNSIGNED= 268435456 ; +if(!qbevent)break;evnt(844);}while(r); +do{ +*__LONG_ISPOINTER= 134217728 ; +if(!qbevent)break;evnt(845);}while(r); +do{ +*__LONG_ISFIXEDLENGTH= 67108864 ; +if(!qbevent)break;evnt(846);}while(r); +do{ +*__LONG_ISINCONVENTIONALMEMORY= 33554432 ; +if(!qbevent)break;evnt(847);}while(r); +do{ +*__LONG_ISOFFSETINBITS= 16777216 ; +if(!qbevent)break;evnt(848);}while(r); +do{ +*__LONG_ISARRAY= 8388608 ; +if(!qbevent)break;evnt(849);}while(r); +do{ +*__LONG_ISREFERENCE= 4194304 ; +if(!qbevent)break;evnt(850);}while(r); +do{ +*__LONG_ISUDT= 2097152 ; +if(!qbevent)break;evnt(851);}while(r); +do{ +*__LONG_ISOFFSET= 1048576 ; +if(!qbevent)break;evnt(852);}while(r); +do{ +*__LONG_STRINGTYPE=*__LONG_ISSTRING+*__LONG_ISPOINTER; +if(!qbevent)break;evnt(854);}while(r); +do{ +*__LONG_BITTYPE= 1 +*__LONG_ISPOINTER+*__LONG_ISOFFSETINBITS; +if(!qbevent)break;evnt(855);}while(r); +do{ +*__LONG_UBITTYPE= 1 +*__LONG_ISPOINTER+*__LONG_ISUNSIGNED+*__LONG_ISOFFSETINBITS; +if(!qbevent)break;evnt(856);}while(r); +do{ +*__LONG_BYTETYPE= 8 +*__LONG_ISPOINTER; +if(!qbevent)break;evnt(857);}while(r); +do{ +*__LONG_UBYTETYPE= 8 +*__LONG_ISPOINTER+*__LONG_ISUNSIGNED; +if(!qbevent)break;evnt(858);}while(r); +do{ +*__LONG_INTEGERTYPE= 16 +*__LONG_ISPOINTER; +if(!qbevent)break;evnt(859);}while(r); +do{ +*__LONG_UINTEGERTYPE= 16 +*__LONG_ISPOINTER+*__LONG_ISUNSIGNED; +if(!qbevent)break;evnt(860);}while(r); +do{ +*__LONG_LONGTYPE= 32 +*__LONG_ISPOINTER; +if(!qbevent)break;evnt(861);}while(r); +do{ +*__LONG_ULONGTYPE= 32 +*__LONG_ISPOINTER+*__LONG_ISUNSIGNED; +if(!qbevent)break;evnt(862);}while(r); +do{ +*__LONG_INTEGER64TYPE= 64 +*__LONG_ISPOINTER; +if(!qbevent)break;evnt(863);}while(r); +do{ +*__LONG_UINTEGER64TYPE= 64 +*__LONG_ISPOINTER+*__LONG_ISUNSIGNED; +if(!qbevent)break;evnt(864);}while(r); +do{ +*__LONG_SINGLETYPE= 32 +*__LONG_ISFLOAT+*__LONG_ISPOINTER; +if(!qbevent)break;evnt(865);}while(r); +do{ +*__LONG_DOUBLETYPE= 64 +*__LONG_ISFLOAT+*__LONG_ISPOINTER; +if(!qbevent)break;evnt(866);}while(r); +do{ +*__LONG_FLOATTYPE= 256 +*__LONG_ISFLOAT+*__LONG_ISPOINTER; +if(!qbevent)break;evnt(867);}while(r); +do{ +*__LONG_OFFSETTYPE= 64 +*__LONG_ISOFFSET+*__LONG_ISPOINTER; +if(!qbevent)break;evnt(868);}while(r); +S_1589:; +if ((-(*__LONG_OS_BITS== 32 ))||new_error){ +if(qbevent){evnt(868);if(r)goto S_1589;} +do{ +*__LONG_OFFSETTYPE= 32 +*__LONG_ISOFFSET+*__LONG_ISPOINTER; +if(!qbevent)break;evnt(868);}while(r); +} +do{ +*__LONG_UOFFSETTYPE= 64 +*__LONG_ISOFFSET+*__LONG_ISUNSIGNED+*__LONG_ISPOINTER; +if(!qbevent)break;evnt(869);}while(r); +S_1593:; +if ((-(*__LONG_OS_BITS== 32 ))||new_error){ +if(qbevent){evnt(869);if(r)goto S_1593;} +do{ +*__LONG_UOFFSETTYPE= 32 +*__LONG_ISOFFSET+*__LONG_ISUNSIGNED+*__LONG_ISPOINTER; +if(!qbevent)break;evnt(869);}while(r); +} +do{ +*__LONG_UDTTYPE=*__LONG_ISUDT+*__LONG_ISPOINTER; +if(!qbevent)break;evnt(870);}while(r); +do{ +if(!qbevent)break;evnt(877);}while(r); +do{ +if(!qbevent)break;evnt(878);}while(r); +do{ +if(!qbevent)break;evnt(883);}while(r); +do{ if (__ARRAY_INTEGER_CONTROLTYPE[2]&2){ error(10); @@ -6844,9 +6844,9 @@ if (!__ARRAY_INTEGER_CONTROLTYPE[0]) error(257); } __ARRAY_INTEGER_CONTROLTYPE[2]|=1; } -} -if(!qbevent)break;evnt(884);}while(r); -do{ +} +if(!qbevent)break;evnt(884);}while(r); +do{ if (__ARRAY_LONG_CONTROLID[2]&2){ error(10); @@ -6866,9 +6866,9 @@ if (!__ARRAY_LONG_CONTROLID[0]) error(257); } __ARRAY_LONG_CONTROLID[2]|=1; } -} -if(!qbevent)break;evnt(902);}while(r); -do{ +} +if(!qbevent)break;evnt(902);}while(r); +do{ if (__ARRAY_LONG_CONTROLVALUE[2]&2){ error(10); @@ -6888,9 +6888,9 @@ if (!__ARRAY_LONG_CONTROLVALUE[0]) error(257); } __ARRAY_LONG_CONTROLVALUE[2]|=1; } -} -if(!qbevent)break;evnt(903);}while(r); -do{ +} +if(!qbevent)break;evnt(903);}while(r); +do{ if (__ARRAY_INTEGER_CONTROLSTATE[2]&2){ error(10); @@ -6910,9 +6910,9 @@ if (!__ARRAY_INTEGER_CONTROLSTATE[0]) error(257); } __ARRAY_INTEGER_CONTROLSTATE[2]|=1; } -} -if(!qbevent)break;evnt(904);}while(r); -do{ +} +if(!qbevent)break;evnt(904);}while(r); +do{ if (__ARRAY_LONG_CONTROLREF[2]&2){ error(10); @@ -6932,9 +6932,9 @@ if (!__ARRAY_LONG_CONTROLREF[0]) error(257); } __ARRAY_LONG_CONTROLREF[2]|=1; } -} -if(!qbevent)break;evnt(905);}while(r); -do{ +} +if(!qbevent)break;evnt(905);}while(r); +do{ if (__ARRAY_BYTE_UNSTABLEFLAGS[2]&2){ error(10); @@ -6958,63 +6958,63 @@ __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(910);}while(r); -do{ -if(!qbevent)break;evnt(911);}while(r); -do{ -if(!qbevent)break;evnt(912);}while(r); -do{ -*__LONG_UNSTABLE_MIDI= 1 ; -if(!qbevent)break;evnt(914);}while(r); -do{ -*__LONG_UNSTABLE_HTTP= 2 ; -if(!qbevent)break;evnt(915);}while(r); -do{ -error_goto_line=4; -if(!qbevent)break;evnt(920);}while(r); -do{ -*__INTEGER64_I2= 1 ; -if(!qbevent)break;evnt(922);}while(r); -S_1612:; -fornext_value63= 1 ; -fornext_finalvalue63= 64 ; -fornext_step63= 1 ; -if (fornext_step63<0) fornext_step_negative63=1; else fornext_step_negative63=0; -if (new_error) goto fornext_error63; -goto fornext_entrylabel63; -while(1){ -fornext_value63=fornext_step63+(*__INTEGER64_I); -fornext_entrylabel63: -*__INTEGER64_I=fornext_value63; -if (fornext_step_negative63){ -if (fornext_value63fornext_finalvalue63) break; -} -fornext_error63:; -if(qbevent){evnt(923);if(r)goto S_1612;} -do{ -tmp_long=array_check((*__INTEGER64_I)-__ARRAY_INTEGER64_BITMASK[4],__ARRAY_INTEGER64_BITMASK[5]); -if (!new_error) ((int64*)(__ARRAY_INTEGER64_BITMASK[0]))[tmp_long]=*__INTEGER64_I2; -if(!qbevent)break;evnt(924);}while(r); -do{ -tmp_long=array_check((*__INTEGER64_I)-__ARRAY_INTEGER64_BITMASKINV[4],__ARRAY_INTEGER64_BITMASKINV[5]); -if (!new_error) ((int64*)(__ARRAY_INTEGER64_BITMASKINV[0]))[tmp_long]=~(*__INTEGER64_I2); -if(!qbevent)break;evnt(925);}while(r); -do{ -*__INTEGER64_I2=qbr(*__INTEGER64_I2+(pow2( 2 ,*__INTEGER64_I))); -if(!qbevent)break;evnt(926);}while(r); -fornext_continue_62:; -} -fornext_exit_62:; -do{ -if(!qbevent)break;evnt(929);}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(931);}while(r); -do{ +} +if(!qbevent)break;evnt(910);}while(r); +do{ +if(!qbevent)break;evnt(911);}while(r); +do{ +if(!qbevent)break;evnt(912);}while(r); +do{ +*__LONG_UNSTABLE_MIDI= 1 ; +if(!qbevent)break;evnt(914);}while(r); +do{ +*__LONG_UNSTABLE_HTTP= 2 ; +if(!qbevent)break;evnt(915);}while(r); +do{ +error_goto_line=4; +if(!qbevent)break;evnt(920);}while(r); +do{ +*__INTEGER64_I2= 1 ; +if(!qbevent)break;evnt(922);}while(r); +S_1612:; +fornext_value63= 1 ; +fornext_finalvalue63= 64 ; +fornext_step63= 1 ; +if (fornext_step63<0) fornext_step_negative63=1; else fornext_step_negative63=0; +if (new_error) goto fornext_error63; +goto fornext_entrylabel63; +while(1){ +fornext_value63=fornext_step63+(*__INTEGER64_I); +fornext_entrylabel63: +*__INTEGER64_I=fornext_value63; +if (fornext_step_negative63){ +if (fornext_value63fornext_finalvalue63) break; +} +fornext_error63:; +if(qbevent){evnt(923);if(r)goto S_1612;} +do{ +tmp_long=array_check((*__INTEGER64_I)-__ARRAY_INTEGER64_BITMASK[4],__ARRAY_INTEGER64_BITMASK[5]); +if (!new_error) ((int64*)(__ARRAY_INTEGER64_BITMASK[0]))[tmp_long]=*__INTEGER64_I2; +if(!qbevent)break;evnt(924);}while(r); +do{ +tmp_long=array_check((*__INTEGER64_I)-__ARRAY_INTEGER64_BITMASKINV[4],__ARRAY_INTEGER64_BITMASKINV[5]); +if (!new_error) ((int64*)(__ARRAY_INTEGER64_BITMASKINV[0]))[tmp_long]=~(*__INTEGER64_I2); +if(!qbevent)break;evnt(925);}while(r); +do{ +*__INTEGER64_I2=qbr(*__INTEGER64_I2+(pow2( 2 ,*__INTEGER64_I))); +if(!qbevent)break;evnt(926);}while(r); +fornext_continue_62:; +} +fornext_exit_62:; +do{ +if(!qbevent)break;evnt(929);}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(931);}while(r); +do{ if (__ARRAY_LONG_SFIDLIST[2]&2){ error(10); @@ -7034,9 +7034,9 @@ if (!__ARRAY_LONG_SFIDLIST[0]) error(257); } __ARRAY_LONG_SFIDLIST[2]|=1; } -} -if(!qbevent)break;evnt(933);}while(r); -do{ +} +if(!qbevent)break;evnt(933);}while(r); +do{ if (__ARRAY_INTEGER_SFARGLIST[2]&2){ error(10); @@ -7056,9 +7056,9 @@ if (!__ARRAY_INTEGER_SFARGLIST[0]) error(257); } __ARRAY_INTEGER_SFARGLIST[2]|=1; } -} -if(!qbevent)break;evnt(934);}while(r); -do{ +} +if(!qbevent)break;evnt(934);}while(r); +do{ if (__ARRAY_INTEGER_SFELELIST[2]&2){ error(10); @@ -7078,1534 +7078,1534 @@ if (!__ARRAY_INTEGER_SFELELIST[0]) error(257); } __ARRAY_INTEGER_SFELELIST[2]|=1; } -} -if(!qbevent)break;evnt(935);}while(r); -do{ -SUB_GL_SCAN_HEADER(); -if(!qbevent)break;evnt(952);}while(r); -S_1623:; -if ((*__LONG_NOIDEMODE)||new_error){ -if(qbevent){evnt(963);if(r)goto S_1623;} -do{ -*__BYTE_IDE_AUTOPOSITION= 0 ; -if(!qbevent)break;evnt(963);}while(r); -do{ -goto LABEL_NOIDE; -if(!qbevent)break;evnt(963);}while(r); -} -do{ -if(!qbevent)break;evnt(964);}while(r); -S_1628:; -if ((-(*__BYTE_FILEDROPENABLED== 0 ))||new_error){ -if(qbevent){evnt(965);if(r)goto S_1628;} -do{ -*__BYTE_FILEDROPENABLED= -1 ; -if(!qbevent)break;evnt(965);}while(r); -do{ -sub__filedrop(NULL); -if(!qbevent)break;evnt(965);}while(r); -} -S_1632:; -if ((*__BYTE_IDE_AUTOPOSITION&(~(*__BYTE_IDE_BYPASSAUTOPOSITION)))||new_error){ -if(qbevent){evnt(967);if(r)goto S_1632;} -do{ -sub__screenmove(*__INTEGER_IDE_LEFTPOSITION,*__INTEGER_IDE_TOPPOSITION,2); -if(!qbevent)break;evnt(967);}while(r); -} -do{ -*__LONG_IDEMODE= 1 ; -if(!qbevent)break;evnt(968);}while(r); -do{ -qbs_set(__STRING_SENDC,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(969);}while(r); -S_1637:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_CMDLINEFILE,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(970);if(r)goto S_1637;} -do{ -qbs_set(__STRING_SENDC,qbs_add(func_chr( 1 ),__STRING_CMDLINEFILE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(970);}while(r); -} -LABEL_SENDCOMMAND:; -if(qbevent){evnt(971);r=0;} -do{ -qbs_set(__STRING_IDECOMMAND,__STRING_SENDC); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(972);}while(r); -do{ -*__LONG_C=FUNC_IDE(&(pass64= 0 )); -if(!qbevent)break;evnt(973);}while(r); -do{ -*__LONG_IDEERROR= 0 ; -if(!qbevent)break;evnt(974);}while(r); -S_1643:; -if ((-(*__LONG_C== 0 ))||new_error){ -if(qbevent){evnt(975);if(r)goto S_1643;} -do{ -*__LONG_IDEMODE= 0 ; -if(!qbevent)break;evnt(975);}while(r); -do{ -goto LABEL_NOIDE; -if(!qbevent)break;evnt(975);}while(r); -} -do{ -qbs_set(__STRING_C,__STRING_IDERETURN); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(976);}while(r); -S_1648:; -if ((-(*__LONG_C== 2 ))||new_error){ -if(qbevent){evnt(978);if(r)goto S_1648;} -do{ -*__LONG_IDEERRORLINE= 0 ; -if(!qbevent)break;evnt(979);}while(r); -do{ -*__LONG_IDEPASS= 1 ; -if(!qbevent)break;evnt(980);}while(r); -do{ -goto LABEL_FULLRECOMPILE; -if(!qbevent)break;evnt(981);}while(r); -LABEL_IDERET1:; -if(qbevent){evnt(982);r=0;} -do{ -qbs_set(__STRING_WHOLELINE,__STRING_C); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(983);}while(r); -do{ -goto LABEL_IDEPREPASS; -if(!qbevent)break;evnt(984);}while(r); -LABEL_IDERET2:; -if(qbevent){evnt(985);r=0;} -S_1654:; -if ((*__LONG_LASTLINERETURN)||new_error){ -if(qbevent){evnt(986);if(r)goto S_1654;} -do{ -goto LABEL_LASTLINERETURN; -if(!qbevent)break;evnt(986);}while(r); -} -do{ -qbs_set(__STRING_SENDC,func_chr( 3 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(987);}while(r); -do{ -goto LABEL_SENDCOMMAND; -if(!qbevent)break;evnt(988);}while(r); -} -S_1660:; -if ((-(*__LONG_C== 4 ))||new_error){ -if(qbevent){evnt(991);if(r)goto S_1660;} -S_1661:; -if ((-(*__LONG_IDEPASS== 1 ))||new_error){ -if(qbevent){evnt(992);if(r)goto S_1661;} -do{ -qbs_set(__STRING_WHOLELINE,__STRING_C); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(993);}while(r); -do{ -goto LABEL_IDEPREPASS; -if(!qbevent)break;evnt(994);}while(r); -} -do{ -qbs_set(__STRING_A3,__STRING_C); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(998);}while(r); -do{ -*__LONG_CONTINUELINEFROM= 0 ; -if(!qbevent)break;evnt(999);}while(r); -do{ -goto LABEL_IDE4; -if(!qbevent)break;evnt(1000);}while(r); -LABEL_IDERET4:; -if(qbevent){evnt(1001);r=0;} -S_1668:; -if ((*__LONG_LASTLINERETURN)||new_error){ -if(qbevent){evnt(1002);if(r)goto S_1668;} -do{ -goto LABEL_LASTLINERETURN; -if(!qbevent)break;evnt(1002);}while(r); -} -do{ -qbs_set(__STRING_SENDC,func_chr( 3 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1003);}while(r); -do{ -goto LABEL_SENDCOMMAND; -if(!qbevent)break;evnt(1004);}while(r); -} -S_1674:; -if ((-(*__LONG_C== 5 ))||new_error){ -if(qbevent){evnt(1007);if(r)goto S_1674;} -do{ -*__LONG_LASTLINE= 1 ; -if(!qbevent)break;evnt(1009);}while(r); -do{ -*__LONG_LASTLINERETURN= 1 ; -if(!qbevent)break;evnt(1010);}while(r); -S_1677:; -if ((-(*__LONG_IDEPASS== 1 ))||new_error){ -if(qbevent){evnt(1011);if(r)goto S_1677;} -do{ -qbs_set(__STRING_WHOLELINE,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1012);}while(r); -do{ -goto LABEL_IDEPREPASS; -if(!qbevent)break;evnt(1013);}while(r); -} -do{ -qbs_set(__STRING_A3,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1017);}while(r); -do{ -*__LONG_CONTINUELINEFROM= 0 ; -if(!qbevent)break;evnt(1018);}while(r); -do{ -goto LABEL_IDE4; -if(!qbevent)break;evnt(1019);}while(r); -LABEL_LASTLINERETURN:; -if(qbevent){evnt(1020);r=0;} -do{ -*__LONG_LASTLINERETURN= 0 ; -if(!qbevent)break;evnt(1021);}while(r); -do{ -*__LONG_LASTLINE= 0 ; -if(!qbevent)break;evnt(1022);}while(r); -S_1686:; -if ((-(*__LONG_IDEPASS== 1 ))||new_error){ -if(qbevent){evnt(1024);if(r)goto S_1686;} -do{ -*__LONG_IDEPASS= 2 ; -if(!qbevent)break;evnt(1026);}while(r); -do{ -goto LABEL_IDE3; -if(!qbevent)break;evnt(1027);}while(r); -LABEL_IDERET3:; -if(qbevent){evnt(1028);r=0;} -do{ -qbs_set(__STRING_SENDC,func_chr( 7 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1029);}while(r); -do{ -*__LONG_FIRSTLINE= 1 ; -if(!qbevent)break;evnt(1030);}while(r); -do{ -goto LABEL_SENDCOMMAND; -if(!qbevent)break;evnt(1031);}while(r); -} -do{ -goto LABEL_IDE5; -if(!qbevent)break;evnt(1035);}while(r); -LABEL_IDERET5:; -if(qbevent){evnt(1036);r=0;} -do{ -qbs_set(__STRING_SENDC,func_chr( 6 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1037);}while(r); -do{ -*__LONG_IDECOMPILED= 0 ; -if(!qbevent)break;evnt(1038);}while(r); -do{ -goto LABEL_SENDCOMMAND; -if(!qbevent)break;evnt(1039);}while(r); -} -S_1698:; -if ((-(*__LONG_C== 9 ))||new_error){ -if(qbevent){evnt(1042);if(r)goto S_1698;} -S_1699:; -if ((-(*__LONG_IDECOMPILED== 0 ))||new_error){ -if(qbevent){evnt(1044);if(r)goto S_1699;} -do{ -qbs_set(__STRING_FILE,__STRING_C); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1045);}while(r); -do{ -qbs_set(__STRING_F,__STRING_FILE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1048);}while(r); -do{ -qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1050);}while(r); -S_1703:; -if ((*__BYTE_SAVEEXEWITHSOURCE)||new_error){ -if(qbevent){evnt(1051);if(r)goto S_1703;} -S_1704:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_IDEPROGNAME->len))||new_error){ -if(qbevent){evnt(1052);if(r)goto S_1704;} -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(1052);}while(r); -} -} -do{ -*__LONG_I= 1 ; -if(!qbevent)break;evnt(1055);}while(r); -LABEL_NEXTEXEINDEX:; -if(qbevent){evnt(1056);r=0;} -S_1709:; -if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_FILE),__STRING_EXTENSION))))||new_error){ -if(qbevent){evnt(1057);if(r)goto S_1709;} -do{ -*__LONG_E= 0 ; -if(!qbevent)break;evnt(1058);}while(r); -do{ -error_goto_line=5; -if(!qbevent)break;evnt(1059);}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(1060);}while(r); -do{ -error_goto_line=6; -if(!qbevent)break;evnt(1061);}while(r); -S_1714:; -if ((-(*__LONG_E== 1 ))||new_error){ -if(qbevent){evnt(1062);if(r)goto S_1714;} -do{ -*__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(1063);}while(r); -do{ -qbs_set(__STRING_FILE,qbs_add(qbs_add(qbs_add(__STRING_F,qbs_new_txt_len("(",1)),FUNC_STR2(__LONG_I)),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1064);}while(r); -do{ -goto LABEL_NEXTEXEINDEX; -if(!qbevent)break;evnt(1065);}while(r); -} -} -S_1720:; -if ((-(*__LONG_I!= 1 ))||new_error){ -if(qbevent){evnt(1070);if(r)goto S_1720;} -do{ -qbs_set(__STRING_SENDC,qbs_add(func_chr( 12 ),__STRING_FILE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1071);}while(r); -do{ -goto LABEL_SENDCOMMAND; -if(!qbevent)break;evnt(1072);}while(r); -} -do{ -*__LONG_IDEERRORLINE= 0 ; -if(!qbevent)break;evnt(1075);}while(r); -do{ -goto LABEL_IDE6; -if(!qbevent)break;evnt(1076);}while(r); -LABEL_IDERET6:; -if(qbevent){evnt(1077);r=0;} -do{ -*__LONG_IDECOMPILED= 1 ; -if(!qbevent)break;evnt(1078);}while(r); -} -S_1728:; -if ((-(*__LONG_IDERUNMODE== 2 ))||new_error){ -if(qbevent){evnt(1081);if(r)goto S_1728;} -do{ -qbs_set(__STRING_SENDC,func_chr( 11 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1082);}while(r); -do{ -goto LABEL_SENDCOMMAND; -if(!qbevent)break;evnt(1083);}while(r); -} -S_1732:; -if ((-(*__LONG_IDERUNMODE== 1 ))||new_error){ -if(qbevent){evnt(1091);if(r)goto S_1732;} -S_1733:; -if ((*__INTEGER_NOEXESAVED)||new_error){ -if(qbevent){evnt(1092);if(r)goto S_1733;} -S_1734:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ -if(qbevent){evnt(1097);if(r)goto S_1734;} -do{ -sub_shell(qbs_add(FUNC_QUOTEDFILENAME(qbs_add(qbs_add(func_chr( 34 ),__STRING_LASTBINARYGENERATED),func_chr( 34 ))),__STRING_MODIFYCOMMAND),1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1098);}while(r); -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(1099);}while(r); -} -S_1738:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(1101);if(r)goto S_1738;} -do{ -qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("./",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1101);}while(r); -} -S_1741:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ -if(qbevent){evnt(1102);if(r)goto S_1741;} -S_1742:; -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)))||new_error){ -if(qbevent){evnt(1103);if(r)goto S_1742;} -do{ -sub_shell(qbs_add(FUNC_QUOTEDFILENAME(__STRING_LASTBINARYGENERATED),__STRING_MODIFYCOMMAND),1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1104);}while(r); -do{ -sub_kill(__STRING_LASTBINARYGENERATED); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1105);}while(r); -}else{ -do{ -sub_shell(qbs_add(FUNC_QUOTEDFILENAME(qbs_add(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_LASTBINARYGENERATED)),__STRING_MODIFYCOMMAND),1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1107);}while(r); -do{ -sub_kill(qbs_add(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_LASTBINARYGENERATED)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1108);}while(r); -} -} -S_1750:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("./",2))))||new_error){ -if(qbevent){evnt(1111);if(r)goto S_1750;} -do{ -qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1111);}while(r); -} -do{ -*__INTEGER_NOEXESAVED= 0 ; -if(!qbevent)break;evnt(1112);}while(r); -do{ -qbs_set(__STRING_SENDC,func_chr( 6 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1113);}while(r); -do{ -goto LABEL_SENDCOMMAND; -if(!qbevent)break;evnt(1114);}while(r); -} -S_1757:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ -if(qbevent){evnt(1119);if(r)goto S_1757;} -do{ -sub_shell3(qbs_add(FUNC_QUOTEDFILENAME(qbs_add(qbs_add(func_chr( 34 ),__STRING_LASTBINARYGENERATED),func_chr( 34 ))),__STRING_MODIFYCOMMAND),2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1119);}while(r); -} -S_1760:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(1120);if(r)goto S_1760;} -do{ -qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("./",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1120);}while(r); -} -S_1763:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ -if(qbevent){evnt(1121);if(r)goto S_1763;} -S_1764:; -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)))||new_error){ -if(qbevent){evnt(1122);if(r)goto S_1764;} -do{ -sub_shell3(qbs_add(FUNC_QUOTEDFILENAME(__STRING_LASTBINARYGENERATED),__STRING_MODIFYCOMMAND),2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1123);}while(r); -}else{ -do{ -sub_shell3(qbs_add(FUNC_QUOTEDFILENAME(qbs_add(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_LASTBINARYGENERATED)),__STRING_MODIFYCOMMAND),2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1125);}while(r); -} -} -S_1770:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("./",2))))||new_error){ -if(qbevent){evnt(1128);if(r)goto S_1770;} -do{ -qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1128);}while(r); -} -}else{ -S_1774:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ -if(qbevent){evnt(1130);if(r)goto S_1774;} -do{ -sub_shell(qbs_add(FUNC_QUOTEDFILENAME(qbs_add(qbs_add(func_chr( 34 ),__STRING_LASTBINARYGENERATED),func_chr( 34 ))),__STRING_MODIFYCOMMAND),1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1130);}while(r); -} -S_1777:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(1131);if(r)goto S_1777;} -do{ -qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("./",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1131);}while(r); -} -S_1780:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ -if(qbevent){evnt(1132);if(r)goto S_1780;} -S_1781:; -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)))||new_error){ -if(qbevent){evnt(1133);if(r)goto S_1781;} -do{ -sub_shell(qbs_add(FUNC_QUOTEDFILENAME(__STRING_LASTBINARYGENERATED),__STRING_MODIFYCOMMAND),1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1134);}while(r); -}else{ -do{ -sub_shell(qbs_add(FUNC_QUOTEDFILENAME(qbs_add(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_LASTBINARYGENERATED)),__STRING_MODIFYCOMMAND),1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1136);}while(r); -} -} -S_1787:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("./",2))))||new_error){ -if(qbevent){evnt(1139);if(r)goto S_1787;} -do{ -qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1139);}while(r); -} -S_1790:; -do{ -if(qbevent){evnt(1140);if(r)goto S_1790;} -S_1791:; -dl_continue_69:; -}while((!(qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_inkey(),qbs_new_txt_len("",0)))))&&(!new_error)); -dl_exit_69:; -if(qbevent){evnt(1140);if(r)goto S_1791;} -S_1792:; -do{ -if(qbevent){evnt(1141);if(r)goto S_1792;} -S_1793:; -dl_continue_70:; -}while((!(-(func__keyhit()== 0 )))&&(!new_error)); -dl_exit_70:; -if(qbevent){evnt(1141);if(r)goto S_1793;} -} -S_1795:; -if ((*__LONG_IDEMODE)||new_error){ -if(qbevent){evnt(1144);if(r)goto S_1795;} -do{ -*__LONG_DUMMY=FUNC_DARKENFGBG(&(pass71= 0 )); -if(!qbevent)break;evnt(1146);}while(r); -} -S_1798:; -if ((*__LONG_VWATCHON)||new_error){ -if(qbevent){evnt(1149);if(r)goto S_1798;} -do{ -qbs_set(__STRING_SENDC,func_chr( 254 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1150);}while(r); -}else{ -do{ -qbs_set(__STRING_SENDC,func_chr( 6 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1152);}while(r); -} -do{ -goto LABEL_SENDCOMMAND; -if(!qbevent)break;evnt(1154);}while(r); -} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("Invalid IDE message",19)); -if (new_error) goto skip72; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip72: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1157);}while(r); -do{ -sub_end(); -if(!qbevent)break;evnt(1157);}while(r); -LABEL_IDEERROR:; -if(qbevent){evnt(1159);r=0;} -S_1807:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_IDEMESSAGE,__STRING1_SP,0)))||new_error){ -if(qbevent){evnt(1160);if(r)goto S_1807;} -do{ -qbs_set(__STRING_TERRMSG,func__errormessage(NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1163);}while(r); -S_1809:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TERRMSG,qbs_new_txt_len("No error",8))))||new_error){ -if(qbevent){evnt(1164);if(r)goto S_1809;} -do{ -qbs_set(__STRING_TERRMSG,qbs_new_txt_len("Internal error",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1164);}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(1165);}while(r); -S_1813:; -if ((get_error_err())||new_error){ -if(qbevent){evnt(1166);if(r)goto S_1813;} -do{ -qbs_set(__STRING_IDEMESSAGE,qbs_add(qbs_add(__STRING_IDEMESSAGE,FUNC_STR2(&(pass73=get_error_err()))),qbs_new_txt_len("-",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1166);}while(r); -} -S_1816:; -if ((func__errorline())||new_error){ -if(qbevent){evnt(1167);if(r)goto S_1816;} -do{ -qbs_set(__STRING_IDEMESSAGE,qbs_add(__STRING_IDEMESSAGE,FUNC_STR2(&(pass74=func__errorline())))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1167);}while(r); -} -S_1819:; -if ((func__inclerrorline())||new_error){ -if(qbevent){evnt(1168);if(r)goto S_1819;} -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)),FUNC_STR2(&(pass75=func__inclerrorline())))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1168);}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(1169);}while(r); -S_1823:; -if ((-(*__LONG_INCLEVEL> 0 ))||new_error){ -if(qbevent){evnt(1170);if(r)goto S_1823;} -do{ -qbs_set(__STRING_IDEMESSAGE,qbs_add(__STRING_IDEMESSAGE,__STRING_INCERROR)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1170);}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(1173);}while(r); -do{ -goto LABEL_SENDCOMMAND; -if(!qbevent)break;evnt(1174);}while(r); -LABEL_NOIDE:; -if(qbevent){evnt(1177);r=0;} -S_1829:; -if (((((-(*__BYTE_QB64VERSIONPRINTED== 0 ))|(-(*__LONG_CONSOLEMODE== 0 ))))&(~(*__BYTE_QUIETMODE)))||new_error){ -if(qbevent){evnt(1178);if(r)goto S_1829;} -do{ -*__BYTE_QB64VERSIONPRINTED= -1 ; -if(!qbevent)break;evnt(1179);}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 (new_error) goto skip76; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip76: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1180);}while(r); -} -S_1833:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_CMDLINEFILE,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(1183);if(r)goto S_1833;} -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(1184);}while(r); -}else{ -do{ -qbs_set(__STRING_F,__STRING_CMDLINEFILE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1186);}while(r); -} -do{ -qbs_set(__STRING_F,qbs_ltrim(qbs_rtrim(__STRING_F))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1189);}while(r); -S_1839:; -if ((qbs_cleanup(qbs_tmp_base,-(FUNC_FILEHASEXTENSION(__STRING_F)== 0 )))||new_error){ -if(qbevent){evnt(1191);if(r)goto S_1839;} -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(1191);}while(r); -} -do{ -qbs_set(__STRING_SOURCEFILE,__STRING_F); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1193);}while(r); -do{ -qbs_set(__STRING_CMDLINEFILE,__STRING_SOURCEFILE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1194);}while(r); -do{ -qbs_set(__STRING_F,FUNC_REMOVEFILEEXTENSION(__STRING_F)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1196);}while(r); -do{ -qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1198);}while(r); -do{ -qbs_set(__STRING_CURRENTDIR,func__cwd()); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1199);}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(1200);}while(r); -S_1848:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_PATH__ASCII_CHR_046__SOURCE->len))||new_error){ -if(qbevent){evnt(1201);if(r)goto S_1848;} -S_1849:; -if ((qbs_cleanup(qbs_tmp_base,-(func__direxists(__STRING_PATH__ASCII_CHR_046__SOURCE)== 0 )))||new_error){ -if(qbevent){evnt(1202);if(r)goto S_1849;} -do{ -tqbs=qbs_new(0,0); -qbs_print(nothingstring,1); -skip78: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1203);}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 (new_error) goto skip79; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip79: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1204);}while(r); -S_1852:; -if ((*__LONG_CONSOLEMODE)||new_error){ -if(qbevent){evnt(1205);if(r)goto S_1852;} -do{ -if(qbevent){evnt(1205);} -exit_code= 1 ; -if (sub_gl_called) error(271); -close_program=1; -end(); -if(!qbevent)break;evnt(1205);}while(r); -} -do{ -if(qbevent){evnt(1206);} -exit_code= 1 ; -sub_end(); -if(!qbevent)break;evnt(1206);}while(r); -} -do{ -sub_chdir(__STRING_PATH__ASCII_CHR_046__SOURCE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1208);}while(r); -do{ -qbs_set(__STRING_PATH__ASCII_CHR_046__SOURCE,func__cwd()); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1209);}while(r); -S_1859:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_right(__STRING_PATH__ASCII_CHR_046__SOURCE, 1 ),__STRING1_PATHSEP)))||new_error){ -if(qbevent){evnt(1210);if(r)goto S_1859;} -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(1210);}while(r); -} -do{ -sub_chdir(__STRING_CURRENTDIR); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1211);}while(r); -} -S_1864:; -if ((*__BYTE_SAVEEXEWITHSOURCE)||new_error){ -if(qbevent){evnt(1213);if(r)goto S_1864;} -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(1213);}while(r); -} -S_1867:; -fornext_value81=__STRING_F->len; -fornext_finalvalue81= 1 ; -fornext_step81= -1 ; -if (fornext_step81<0) fornext_step_negative81=1; else fornext_step_negative81=0; -if (new_error) goto fornext_error81; -goto fornext_entrylabel81; -while(1){ -fornext_value81=fornext_step81+(*__LONG_X); -fornext_entrylabel81: -*__LONG_X=fornext_value81; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative81){ -if (fornext_value81fornext_finalvalue81) break; -} -fornext_error81:; -if(qbevent){evnt(1215);if(r)goto S_1867;} -do{ -qbs_set(__STRING_A,func_mid(__STRING_F,*__LONG_X, 1 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1216);}while(r); -S_1869:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_A,qbs_new_txt_len("/",1)))|(qbs_equal(__STRING_A,qbs_new_txt_len("\\",1)))))||new_error){ -if(qbevent){evnt(1217);if(r)goto S_1869;} -do{ -qbs_set(__STRING_F,qbs_right(__STRING_F,__STRING_F->len-*__LONG_X)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1218);}while(r); -do{ -goto fornext_exit_80; -if(!qbevent)break;evnt(1219);}while(r); -} -fornext_continue_80:; -} -fornext_exit_80:; -do{ -qbs_set(__STRING_FILE,__STRING_F); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1222);}while(r); -LABEL_FULLRECOMPILE:; -if(qbevent){evnt(1227);r=0;} -S_1875:; -if (((-(*__LONG_IDEMODE== 0 ))&(~(*__BYTE_QUIETMODE)))||new_error){ -if(qbevent){evnt(1229);if(r)goto S_1875;} -do{ -tqbs=qbs_new(0,0); -qbs_print(nothingstring,1); -skip84: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1230);}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("Beginning C++ output from QB64 code... ",39)); -if (new_error) goto skip85; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip85: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1231);}while(r); -} -do{ -*__LONG_BU_DEPENDENCY_CONSOLE_ONLY=((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 7 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])]; -if(!qbevent)break;evnt(1234);}while(r); -S_1880:; -fornext_value87= 1 ; -fornext_finalvalue87=func_ubound(__ARRAY_LONG_DEPENDENCY,1,1); -fornext_step87= 1 ; -if (fornext_step87<0) fornext_step_negative87=1; else fornext_step_negative87=0; -if (new_error) goto fornext_error87; -goto fornext_entrylabel87; -while(1){ -fornext_value87=fornext_step87+(*__LONG_I); -fornext_entrylabel87: -*__LONG_I=fornext_value87; -if (fornext_step_negative87){ -if (fornext_value87fornext_finalvalue87) break; -} -fornext_error87:; -if(qbevent){evnt(1235);if(r)goto S_1880;} -do{ -tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(1235);}while(r); -fornext_continue_86:; -} -fornext_exit_86:; -do{ -tmp_long=array_check(( 7 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[tmp_long]=*__LONG_BU_DEPENDENCY_CONSOLE_ONLY& 2 ; -if(!qbevent)break;evnt(1236);}while(r); -do{ -*__LONG_ERROR_HAPPENED= 0 ; -if(!qbevent)break;evnt(1238);}while(r); -S_1885:; -fornext_value89= 1 ; -fornext_finalvalue89= 255 ; -fornext_step89= 1 ; -if (fornext_step89<0) fornext_step_negative89=1; else fornext_step_negative89=0; -if (new_error) goto fornext_error89; -goto fornext_entrylabel89; -while(1){ -fornext_value89=fornext_step89+(*__LONG_CLOSEALL); -fornext_entrylabel89: -*__LONG_CLOSEALL=fornext_value89; -if (fornext_step_negative89){ -if (fornext_value89fornext_finalvalue89) break; -} -fornext_error89:; -if(qbevent){evnt(1240);if(r)goto S_1885;} -do{ -sub_close(*__LONG_CLOSEALL,1); -if(!qbevent)break;evnt(1240);}while(r); -fornext_continue_88:; -} -fornext_exit_88:; -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(1242);}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(1244);}while(r); -S_1890:; -if (( 0 )||new_error){ -if(qbevent){evnt(1246);if(r)goto S_1890;} -do{ -sub_close( 9 ,1); -if(!qbevent)break;evnt(1246);}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(1246);}while(r); -} -S_1894:; -fornext_value91= 1 ; -fornext_finalvalue91=*__LONG_IDS_MAX+ 1 ; -fornext_step91= 1 ; -if (fornext_step91<0) fornext_step_negative91=1; else fornext_step_negative91=0; -if (new_error) goto fornext_error91; -goto fornext_entrylabel91; -while(1){ -fornext_value91=fornext_step91+(*__LONG_I); -fornext_entrylabel91: -*__LONG_I=fornext_value91; -if (fornext_step_negative91){ -if (fornext_value91fornext_finalvalue91) break; -} -fornext_error91:; -if(qbevent){evnt(1248);if(r)goto S_1894;} -do{ -tmp_long=array_check((*__LONG_I)-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(1249);}while(r); -do{ -tmp_long=array_check((*__LONG_I)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(1250);}while(r); -do{ -tmp_long=array_check((*__LONG_I)-__ARRAY_STRING100_SFCMEMARGS[4],__ARRAY_STRING100_SFCMEMARGS[5]); -if (!new_error) 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(1251);}while(r); -fornext_continue_90:; -} -fornext_exit_90:; -do{ -*__LONG_LASTUNRESOLVED= -1 ; -if(!qbevent)break;evnt(1257);}while(r); -do{ -*__INTEGER_SFLISTN= -1 ; -if(!qbevent)break;evnt(1258);}while(r); -do{ -qbs_set(__STRING_SUBNAMELABELS,__STRING1_SP); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1260);}while(r); -do{ -*__LONG_VWATCHDESIREDSTATE= 0 ; -if(!qbevent)break;evnt(1262);}while(r); -do{ -*__LONG_VWATCHRECOMPILEATTEMPTS= 0 ; -if(!qbevent)break;evnt(1263);}while(r); -do{ -*__LONG_QB64PREFIX_SET_DESIREDSTATE= 0 ; -if(!qbevent)break;evnt(1265);}while(r); -do{ -*__LONG_QB64PREFIX_SET_RECOMPILEATTEMPTS= 0 ; -if(!qbevent)break;evnt(1266);}while(r); -do{ -*__LONG_OPEX_DESIREDSTATE= 0 ; -if(!qbevent)break;evnt(1268);}while(r); -do{ -*__LONG_OPEX_RECOMPILEATTEMPTS= 0 ; -if(!qbevent)break;evnt(1269);}while(r); -do{ -*__LONG_OPEXARRAY_DESIREDSTATE= 0 ; -if(!qbevent)break;evnt(1271);}while(r); -do{ -*__LONG_OPEXARRAY_RECOMPILEATTEMPTS= 0 ; -if(!qbevent)break;evnt(1272);}while(r); -LABEL_RECOMPILE:; -if(qbevent){evnt(1274);r=0;} -do{ -*__LONG_VWATCHON=*__LONG_VWATCHDESIREDSTATE; -if(!qbevent)break;evnt(1275);}while(r); -do{ -SUB_VWATCHVARIABLE(qbs_new_txt_len("",0),&(pass92= -1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1276);}while(r); -do{ -*__LONG_QB64PREFIX_SET=*__LONG_QB64PREFIX_SET_DESIREDSTATE; -if(!qbevent)break;evnt(1278);}while(r); -do{ -qbs_set(__STRING_QB64PREFIX,qbs_new_txt_len("_",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1279);}while(r); -do{ -*__BYTE_OPTIONEXPLICIT=*__LONG_OPEX_DESIREDSTATE; -if(!qbevent)break;evnt(1281);}while(r); -S_1915:; -if (((-(*__BYTE_OPTIONEXPLICIT_CMD== -1 ))&(-(*__LONG_NOIDEMODE== 1 )))||new_error){ -if(qbevent){evnt(1282);if(r)goto S_1915;} -do{ -*__BYTE_OPTIONEXPLICIT= -1 ; -if(!qbevent)break;evnt(1282);}while(r); -} -do{ -*__BYTE_OPTIONEXPLICITARRAY=*__LONG_OPEXARRAY_DESIREDSTATE; -if(!qbevent)break;evnt(1283);}while(r); -do{ -*__LONG_LASTLINERETURN= 0 ; -if(!qbevent)break;evnt(1285);}while(r); -do{ -*__LONG_LASTLINE= 0 ; -if(!qbevent)break;evnt(1286);}while(r); -do{ -*__LONG_FIRSTLINE= 1 ; -if(!qbevent)break;evnt(1287);}while(r); -do{ -*__LONG_RESIZE= 0 ; -if(!qbevent)break;evnt(1289);}while(r); -do{ -*__LONG_RESIZE_SCALE= 0 ; -if(!qbevent)break;evnt(1290);}while(r); -do{ -*__LONG_USEGL= 0 ; -if(!qbevent)break;evnt(1292);}while(r); -do{ -*__LONG_ERROR_HAPPENED= 0 ; -if(!qbevent)break;evnt(1294);}while(r); -do{ -SUB_HASHCLEAR(); -if(!qbevent)break;evnt(1296);}while(r); -do{ -*__LONG_F= 4 + 8 ; -if(!qbevent)break;evnt(1300);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("_UNSIGNED",9),__LONG_F,&(pass93= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1301);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("_BIT",4),__LONG_F,&(pass94= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1302);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("_BYTE",5),__LONG_F,&(pass95= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1303);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("INTEGER",7),__LONG_F,&(pass96= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1304);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("LONG",4),__LONG_F,&(pass97= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1305);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("_INTEGER64",10),__LONG_F,&(pass98= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1306);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("_OFFSET",7),__LONG_F,&(pass99= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1307);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("SINGLE",6),__LONG_F,&(pass100= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1308);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("DOUBLE",6),__LONG_F,&(pass101= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1309);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("_FLOAT",6),__LONG_F,&(pass102= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1310);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("STRING",6),__LONG_F,&(pass103= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1311);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("ANY",3),__LONG_F,&(pass104= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1312);}while(r); -do{ -*__LONG_F= 16 + 8 ; -if(!qbevent)break;evnt(1314);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("NOT",3),__LONG_F,&(pass105= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1315);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("IMP",3),__LONG_F,&(pass106= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1316);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("EQV",3),__LONG_F,&(pass107= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1317);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("AND",3),__LONG_F,&(pass108= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1318);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("OR",2),__LONG_F,&(pass109= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1319);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("XOR",3),__LONG_F,&(pass110= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1320);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("MOD",3),__LONG_F,&(pass111= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1321);}while(r); -do{ -*__LONG_F= 8 + 32 ; -if(!qbevent)break;evnt(1323);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("LIST",4),__LONG_F,&(pass112= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1324);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("BASE",4),__LONG_F,&(pass113= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1325);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("_EXPLICIT",9),__LONG_F,&(pass114= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1326);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("AS",2),__LONG_F,&(pass115= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1327);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("IS",2),__LONG_F,&(pass116= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1328);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("OFF",3),__LONG_F,&(pass117= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1329);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("ON",2),__LONG_F,&(pass118= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1330);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("STOP",4),__LONG_F,&(pass119= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1331);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("TO",2),__LONG_F,&(pass120= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1332);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("USING",5),__LONG_F,&(pass121= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1333);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("PRESET",6),__LONG_F,&(pass122= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1335);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("PSET",4),__LONG_F,&(pass123= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1336);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("FOR",3),__LONG_F,&(pass124= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1338);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("OUTPUT",6),__LONG_F,&(pass125= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1339);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("RANDOM",6),__LONG_F,&(pass126= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1340);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("BINARY",6),__LONG_F,&(pass127= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1341);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("APPEND",6),__LONG_F,&(pass128= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1342);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("SHARED",6),__LONG_F,&(pass129= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1343);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("ACCESS",6),__LONG_F,&(pass130= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1344);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("LOCK",4),__LONG_F,&(pass131= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1345);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("READ",4),__LONG_F,&(pass132= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1346);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("WRITE",5),__LONG_F,&(pass133= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1347);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("STEP",4),__LONG_F,&(pass134= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1349);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("LPRINT",6),__LONG_F,&(pass135= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1351);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("PRINT",5),__LONG_F,&(pass136= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1353);}while(r); -do{ -*__LONG_F= 8 + 8192 + 16384 ; -if(!qbevent)break;evnt(1355);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("COMMON",6),__LONG_F,&(pass137= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1359);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("CALL",4),__LONG_F,&(pass138= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1360);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("CASE",4),&(pass139=*__LONG_F- 8192 ),&(pass140= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1361);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("COM",3),__LONG_F,&(pass141= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1362);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("CONST",5),__LONG_F,&(pass142= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1363);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("DATA",4),__LONG_F,&(pass143= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1365);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("DECLARE",7),__LONG_F,&(pass144= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1366);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("DEF",3),__LONG_F,&(pass145= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1367);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("DEFDBL",6),__LONG_F,&(pass146= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1368);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("DEFINT",6),__LONG_F,&(pass147= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1369);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("DEFLNG",6),__LONG_F,&(pass148= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1370);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("DEFSNG",6),__LONG_F,&(pass149= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1371);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("DEFSTR",6),__LONG_F,&(pass150= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1372);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("DIM",3),__LONG_F,&(pass151= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1373);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("DO",2),&(pass152=*__LONG_F- 8192 ),&(pass153= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1374);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("ERROR",5),&(pass154=*__LONG_F- 8192 ),&(pass155= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1376);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("ELSE",4),__LONG_F,&(pass156= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1377);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("ELSEIF",6),__LONG_F,&(pass157= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1378);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("ENDIF",5),__LONG_F,&(pass158= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1379);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("EXIT",4),&(pass159=*__LONG_F- 8192 ),&(pass160= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1380);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("FIELD",5),&(pass161=*__LONG_F- 8192 ),&(pass162= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1382);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("FUNCTION",8),__LONG_F,&(pass163= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1383);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("GOSUB",5),__LONG_F,&(pass164= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1385);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("GOTO",4),__LONG_F,&(pass165= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1386);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("INPUT",5),&(pass166=*__LONG_F- 8192 - 16384 ),&(pass167= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1389);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("IF",2),__LONG_F,&(pass168= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1390);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("KEY",3),&(pass169=*__LONG_F- 8192 - 16384 ),&(pass170= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1392);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("LET",3),&(pass171=*__LONG_F- 8192 ),&(pass172= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1394);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("LOOP",4),&(pass173=*__LONG_F- 8192 ),&(pass174= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1395);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("LEN",3),&(pass175=*__LONG_F- 8192 ),&(pass176= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1396);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("NEXT",4),&(pass177=*__LONG_F- 8192 ),&(pass178= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1399);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("PLAY",4),&(pass179=*__LONG_F- 8192 - 16384 ),&(pass180= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1402);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("PEN",3),&(pass181=*__LONG_F- 8192 - 16384 ),&(pass182= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1403);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("REDIM",5),__LONG_F,&(pass183= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1406);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("REM",3),__LONG_F,&(pass184= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1407);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("RESTORE",7),&(pass185=*__LONG_F- 8192 ),&(pass186= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1408);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("RESUME",6),&(pass187=*__LONG_F- 8192 ),&(pass188= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1409);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("RETURN",6),&(pass189=*__LONG_F- 8192 ),&(pass190= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1410);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("RUN",3),&(pass191=*__LONG_F- 8192 ),&(pass192= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1411);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("STATIC",6),__LONG_F,&(pass193= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1413);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("STRIG",5),__LONG_F,&(pass194= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1414);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("SEG",3),__LONG_F,&(pass195= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1415);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("SELECT",6),&(pass196=*__LONG_F- 8192 - 16384 ),&(pass197= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1416);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("SUB",3),__LONG_F,&(pass198= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1417);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("SCREEN",6),&(pass199=*__LONG_F- 8192 - 16384 ),&(pass200= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1418);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("THEN",4),__LONG_F,&(pass201= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1420);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("TIMER",5),&(pass202=*__LONG_F- 8192 - 16384 ),&(pass203= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1421);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("TYPE",4),&(pass204=*__LONG_F- 8192 ),&(pass205= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1422);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("UNTIL",5),__LONG_F,&(pass206= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1424);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("UEVENT",6),__LONG_F,&(pass207= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1425);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("WEND",4),__LONG_F,&(pass208= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1428);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("WHILE",5),__LONG_F,&(pass209= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1429);}while(r); -do{ -*__LONG_CONSOLE= 0 ; -if(!qbevent)break;evnt(1441);}while(r); -do{ -*__LONG_SCREENHIDE= 0 ; -if(!qbevent)break;evnt(1442);}while(r); -do{ -*__LONG_ASSERTS= 0 ; -if(!qbevent)break;evnt(1443);}while(r); -do{ -*__LONG_RESOLVESTATICFUNCTIONS= 0 ; -if(!qbevent)break;evnt(1444);}while(r); -do{ -*__LONG_DYNAMICLIBRARY= 0 ; -if(!qbevent)break;evnt(1445);}while(r); -do{ -*__INTEGER_DIMSFARRAY= 0 ; -if(!qbevent)break;evnt(1446);}while(r); -do{ -*__LONG_DIMSTATIC= 0 ; -if(!qbevent)break;evnt(1447);}while(r); -do{ -*__LONG_ALLOWLOCALNAME= 0 ; -if(!qbevent)break;evnt(1448);}while(r); -do{ -qbs_set(__STRING_POSSIBLESUBNAMELABELS,__STRING1_SP); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1449);}while(r); -do{ -*__LONG_USE_GLOBAL_BYTE_ELEMENTS= 0 ; -if(!qbevent)break;evnt(1450);}while(r); -do{ -*__INTEGER_DIMSHARED= 0 ; -if(!qbevent)break;evnt(1451);}while(r); -do{ -*__LONG_DIMMETHOD= 0 ; -if(!qbevent)break;evnt(1451);}while(r); -do{ -*__INTEGER_DIMOPTION= 0 ; -if(!qbevent)break;evnt(1451);}while(r); -do{ -*__INTEGER_REDIMOPTION= 0 ; -if(!qbevent)break;evnt(1451);}while(r); -do{ -*__LONG_COMMONOPTION= 0 ; -if(!qbevent)break;evnt(1451);}while(r); -do{ -qbs_set(__STRING_MYLIB,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1452);}while(r); -do{ -qbs_set(__STRING_MYLIBOPT,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1452);}while(r); -do{ -*__LONG_DECLARINGLIBRARY= 0 ; -if(!qbevent)break;evnt(1453);}while(r); -do{ -*__LONG_NLABELS= 0 ; -if(!qbevent)break;evnt(1454);}while(r); -do{ -*__LONG_DYNSCOPE= 0 ; -if(!qbevent)break;evnt(1455);}while(r); -do{ -*__LONG_ELSEFOLLOWUP= 0 ; -if(!qbevent)break;evnt(1456);}while(r); -do{ -*__LONG_ONTIMERID= 0 ; -if(!qbevent)break;evnt(1457);}while(r); -do{ -*__LONG_ONKEYID= 0 ; -if(!qbevent)break;evnt(1457);}while(r); -do{ -*__LONG_ONSTRIGID= 0 ; -if(!qbevent)break;evnt(1457);}while(r); -do{ -qbs_set(__STRING_COMMONARRAYLIST,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1458);}while(r); -do{ -*__LONG_COMMONARRAYLISTN= 0 ; -if(!qbevent)break;evnt(1458);}while(r); -do{ -qbs_set(__STRING_STATICARRAYLIST,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1459);}while(r); -do{ -*__LONG_STATICARRAYLISTN= 0 ; -if(!qbevent)break;evnt(1459);}while(r); -do{ -*__LONG_FOOINDWEL= 0 ; -if(!qbevent)break;evnt(1460);}while(r); -do{ -qbs_set(__STRING_LAYOUT,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1461);}while(r); -do{ -*__LONG_LAYOUTOK= 0 ; -if(!qbevent)break;evnt(1462);}while(r); -do{ -*__LONG_NOCHECKS= 0 ; -if(!qbevent)break;evnt(1463);}while(r); -do{ -*__LONG_INCLEVEL= 0 ; -if(!qbevent)break;evnt(1464);}while(r); -do{ -*__LONG_ERRORLINEININCLUDE= 0 ; -if(!qbevent)break;evnt(1465);}while(r); -do{ -qbs_set(__STRING_ADDMETAINCLUDE,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1466);}while(r); -do{ -*__LONG_NEXTRUNLINEINDEX= 1 ; -if(!qbevent)break;evnt(1467);}while(r); -do{ -*__LONG_LASTTYPE= 0 ; -if(!qbevent)break;evnt(1468);}while(r); -do{ -*__LONG_LASTTYPEELEMENT= 0 ; -if(!qbevent)break;evnt(1469);}while(r); -do{ +} +if(!qbevent)break;evnt(935);}while(r); +do{ +SUB_GL_SCAN_HEADER(); +if(!qbevent)break;evnt(952);}while(r); +S_1623:; +if ((*__LONG_NOIDEMODE)||new_error){ +if(qbevent){evnt(963);if(r)goto S_1623;} +do{ +*__BYTE_IDE_AUTOPOSITION= 0 ; +if(!qbevent)break;evnt(963);}while(r); +do{ +goto LABEL_NOIDE; +if(!qbevent)break;evnt(963);}while(r); +} +do{ +if(!qbevent)break;evnt(964);}while(r); +S_1628:; +if ((-(*__BYTE_FILEDROPENABLED== 0 ))||new_error){ +if(qbevent){evnt(965);if(r)goto S_1628;} +do{ +*__BYTE_FILEDROPENABLED= -1 ; +if(!qbevent)break;evnt(965);}while(r); +do{ +sub__filedrop(NULL); +if(!qbevent)break;evnt(965);}while(r); +} +S_1632:; +if ((*__BYTE_IDE_AUTOPOSITION&(~(*__BYTE_IDE_BYPASSAUTOPOSITION)))||new_error){ +if(qbevent){evnt(967);if(r)goto S_1632;} +do{ +sub__screenmove(*__INTEGER_IDE_LEFTPOSITION,*__INTEGER_IDE_TOPPOSITION,2); +if(!qbevent)break;evnt(967);}while(r); +} +do{ +*__LONG_IDEMODE= 1 ; +if(!qbevent)break;evnt(968);}while(r); +do{ +qbs_set(__STRING_SENDC,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(969);}while(r); +S_1637:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_CMDLINEFILE,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(970);if(r)goto S_1637;} +do{ +qbs_set(__STRING_SENDC,qbs_add(func_chr( 1 ),__STRING_CMDLINEFILE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(970);}while(r); +} +LABEL_SENDCOMMAND:; +if(qbevent){evnt(971);r=0;} +do{ +qbs_set(__STRING_IDECOMMAND,__STRING_SENDC); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(972);}while(r); +do{ +*__LONG_C=FUNC_IDE(&(pass64= 0 )); +if(!qbevent)break;evnt(973);}while(r); +do{ +*__LONG_IDEERROR= 0 ; +if(!qbevent)break;evnt(974);}while(r); +S_1643:; +if ((-(*__LONG_C== 0 ))||new_error){ +if(qbevent){evnt(975);if(r)goto S_1643;} +do{ +*__LONG_IDEMODE= 0 ; +if(!qbevent)break;evnt(975);}while(r); +do{ +goto LABEL_NOIDE; +if(!qbevent)break;evnt(975);}while(r); +} +do{ +qbs_set(__STRING_C,__STRING_IDERETURN); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(976);}while(r); +S_1648:; +if ((-(*__LONG_C== 2 ))||new_error){ +if(qbevent){evnt(978);if(r)goto S_1648;} +do{ +*__LONG_IDEERRORLINE= 0 ; +if(!qbevent)break;evnt(979);}while(r); +do{ +*__LONG_IDEPASS= 1 ; +if(!qbevent)break;evnt(980);}while(r); +do{ +goto LABEL_FULLRECOMPILE; +if(!qbevent)break;evnt(981);}while(r); +LABEL_IDERET1:; +if(qbevent){evnt(982);r=0;} +do{ +qbs_set(__STRING_WHOLELINE,__STRING_C); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(983);}while(r); +do{ +goto LABEL_IDEPREPASS; +if(!qbevent)break;evnt(984);}while(r); +LABEL_IDERET2:; +if(qbevent){evnt(985);r=0;} +S_1654:; +if ((*__LONG_LASTLINERETURN)||new_error){ +if(qbevent){evnt(986);if(r)goto S_1654;} +do{ +goto LABEL_LASTLINERETURN; +if(!qbevent)break;evnt(986);}while(r); +} +do{ +qbs_set(__STRING_SENDC,func_chr( 3 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(987);}while(r); +do{ +goto LABEL_SENDCOMMAND; +if(!qbevent)break;evnt(988);}while(r); +} +S_1660:; +if ((-(*__LONG_C== 4 ))||new_error){ +if(qbevent){evnt(991);if(r)goto S_1660;} +S_1661:; +if ((-(*__LONG_IDEPASS== 1 ))||new_error){ +if(qbevent){evnt(992);if(r)goto S_1661;} +do{ +qbs_set(__STRING_WHOLELINE,__STRING_C); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(993);}while(r); +do{ +goto LABEL_IDEPREPASS; +if(!qbevent)break;evnt(994);}while(r); +} +do{ +qbs_set(__STRING_A3,__STRING_C); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(998);}while(r); +do{ +*__LONG_CONTINUELINEFROM= 0 ; +if(!qbevent)break;evnt(999);}while(r); +do{ +goto LABEL_IDE4; +if(!qbevent)break;evnt(1000);}while(r); +LABEL_IDERET4:; +if(qbevent){evnt(1001);r=0;} +S_1668:; +if ((*__LONG_LASTLINERETURN)||new_error){ +if(qbevent){evnt(1002);if(r)goto S_1668;} +do{ +goto LABEL_LASTLINERETURN; +if(!qbevent)break;evnt(1002);}while(r); +} +do{ +qbs_set(__STRING_SENDC,func_chr( 3 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1003);}while(r); +do{ +goto LABEL_SENDCOMMAND; +if(!qbevent)break;evnt(1004);}while(r); +} +S_1674:; +if ((-(*__LONG_C== 5 ))||new_error){ +if(qbevent){evnt(1007);if(r)goto S_1674;} +do{ +*__LONG_LASTLINE= 1 ; +if(!qbevent)break;evnt(1009);}while(r); +do{ +*__LONG_LASTLINERETURN= 1 ; +if(!qbevent)break;evnt(1010);}while(r); +S_1677:; +if ((-(*__LONG_IDEPASS== 1 ))||new_error){ +if(qbevent){evnt(1011);if(r)goto S_1677;} +do{ +qbs_set(__STRING_WHOLELINE,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1012);}while(r); +do{ +goto LABEL_IDEPREPASS; +if(!qbevent)break;evnt(1013);}while(r); +} +do{ +qbs_set(__STRING_A3,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1017);}while(r); +do{ +*__LONG_CONTINUELINEFROM= 0 ; +if(!qbevent)break;evnt(1018);}while(r); +do{ +goto LABEL_IDE4; +if(!qbevent)break;evnt(1019);}while(r); +LABEL_LASTLINERETURN:; +if(qbevent){evnt(1020);r=0;} +do{ +*__LONG_LASTLINERETURN= 0 ; +if(!qbevent)break;evnt(1021);}while(r); +do{ +*__LONG_LASTLINE= 0 ; +if(!qbevent)break;evnt(1022);}while(r); +S_1686:; +if ((-(*__LONG_IDEPASS== 1 ))||new_error){ +if(qbevent){evnt(1024);if(r)goto S_1686;} +do{ +*__LONG_IDEPASS= 2 ; +if(!qbevent)break;evnt(1026);}while(r); +do{ +goto LABEL_IDE3; +if(!qbevent)break;evnt(1027);}while(r); +LABEL_IDERET3:; +if(qbevent){evnt(1028);r=0;} +do{ +qbs_set(__STRING_SENDC,func_chr( 7 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1029);}while(r); +do{ +*__LONG_FIRSTLINE= 1 ; +if(!qbevent)break;evnt(1030);}while(r); +do{ +goto LABEL_SENDCOMMAND; +if(!qbevent)break;evnt(1031);}while(r); +} +do{ +goto LABEL_IDE5; +if(!qbevent)break;evnt(1035);}while(r); +LABEL_IDERET5:; +if(qbevent){evnt(1036);r=0;} +do{ +qbs_set(__STRING_SENDC,func_chr( 6 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1037);}while(r); +do{ +*__LONG_IDECOMPILED= 0 ; +if(!qbevent)break;evnt(1038);}while(r); +do{ +goto LABEL_SENDCOMMAND; +if(!qbevent)break;evnt(1039);}while(r); +} +S_1698:; +if ((-(*__LONG_C== 9 ))||new_error){ +if(qbevent){evnt(1042);if(r)goto S_1698;} +S_1699:; +if ((-(*__LONG_IDECOMPILED== 0 ))||new_error){ +if(qbevent){evnt(1044);if(r)goto S_1699;} +do{ +qbs_set(__STRING_FILE,__STRING_C); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1045);}while(r); +do{ +qbs_set(__STRING_F,__STRING_FILE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1048);}while(r); +do{ +qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1050);}while(r); +S_1703:; +if ((*__BYTE_SAVEEXEWITHSOURCE)||new_error){ +if(qbevent){evnt(1051);if(r)goto S_1703;} +S_1704:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_IDEPROGNAME->len))||new_error){ +if(qbevent){evnt(1052);if(r)goto S_1704;} +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(1052);}while(r); +} +} +do{ +*__LONG_I= 1 ; +if(!qbevent)break;evnt(1055);}while(r); +LABEL_NEXTEXEINDEX:; +if(qbevent){evnt(1056);r=0;} +S_1709:; +if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_FILE),__STRING_EXTENSION))))||new_error){ +if(qbevent){evnt(1057);if(r)goto S_1709;} +do{ +*__LONG_E= 0 ; +if(!qbevent)break;evnt(1058);}while(r); +do{ +error_goto_line=5; +if(!qbevent)break;evnt(1059);}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(1060);}while(r); +do{ +error_goto_line=6; +if(!qbevent)break;evnt(1061);}while(r); +S_1714:; +if ((-(*__LONG_E== 1 ))||new_error){ +if(qbevent){evnt(1062);if(r)goto S_1714;} +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(1063);}while(r); +do{ +qbs_set(__STRING_FILE,qbs_add(qbs_add(qbs_add(__STRING_F,qbs_new_txt_len("(",1)),FUNC_STR2(__LONG_I)),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1064);}while(r); +do{ +goto LABEL_NEXTEXEINDEX; +if(!qbevent)break;evnt(1065);}while(r); +} +} +S_1720:; +if ((-(*__LONG_I!= 1 ))||new_error){ +if(qbevent){evnt(1070);if(r)goto S_1720;} +do{ +qbs_set(__STRING_SENDC,qbs_add(func_chr( 12 ),__STRING_FILE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1071);}while(r); +do{ +goto LABEL_SENDCOMMAND; +if(!qbevent)break;evnt(1072);}while(r); +} +do{ +*__LONG_IDEERRORLINE= 0 ; +if(!qbevent)break;evnt(1075);}while(r); +do{ +goto LABEL_IDE6; +if(!qbevent)break;evnt(1076);}while(r); +LABEL_IDERET6:; +if(qbevent){evnt(1077);r=0;} +do{ +*__LONG_IDECOMPILED= 1 ; +if(!qbevent)break;evnt(1078);}while(r); +} +S_1728:; +if ((-(*__LONG_IDERUNMODE== 2 ))||new_error){ +if(qbevent){evnt(1081);if(r)goto S_1728;} +do{ +qbs_set(__STRING_SENDC,func_chr( 11 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1082);}while(r); +do{ +goto LABEL_SENDCOMMAND; +if(!qbevent)break;evnt(1083);}while(r); +} +S_1732:; +if ((-(*__LONG_IDERUNMODE== 1 ))||new_error){ +if(qbevent){evnt(1091);if(r)goto S_1732;} +S_1733:; +if ((*__INTEGER_NOEXESAVED)||new_error){ +if(qbevent){evnt(1092);if(r)goto S_1733;} +S_1734:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ +if(qbevent){evnt(1097);if(r)goto S_1734;} +do{ +sub_shell(qbs_add(FUNC_QUOTEDFILENAME(qbs_add(qbs_add(func_chr( 34 ),__STRING_LASTBINARYGENERATED),func_chr( 34 ))),__STRING_MODIFYCOMMAND),1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1098);}while(r); +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(1099);}while(r); +} +S_1738:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(1101);if(r)goto S_1738;} +do{ +qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("./",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1101);}while(r); +} +S_1741:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ +if(qbevent){evnt(1102);if(r)goto S_1741;} +S_1742:; +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)))||new_error){ +if(qbevent){evnt(1103);if(r)goto S_1742;} +do{ +sub_shell(qbs_add(FUNC_QUOTEDFILENAME(__STRING_LASTBINARYGENERATED),__STRING_MODIFYCOMMAND),1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1104);}while(r); +do{ +sub_kill(__STRING_LASTBINARYGENERATED); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1105);}while(r); +}else{ +do{ +sub_shell(qbs_add(FUNC_QUOTEDFILENAME(qbs_add(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_LASTBINARYGENERATED)),__STRING_MODIFYCOMMAND),1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1107);}while(r); +do{ +sub_kill(qbs_add(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_LASTBINARYGENERATED)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1108);}while(r); +} +} +S_1750:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("./",2))))||new_error){ +if(qbevent){evnt(1111);if(r)goto S_1750;} +do{ +qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1111);}while(r); +} +do{ +*__INTEGER_NOEXESAVED= 0 ; +if(!qbevent)break;evnt(1112);}while(r); +do{ +qbs_set(__STRING_SENDC,func_chr( 6 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1113);}while(r); +do{ +goto LABEL_SENDCOMMAND; +if(!qbevent)break;evnt(1114);}while(r); +} +S_1757:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ +if(qbevent){evnt(1119);if(r)goto S_1757;} +do{ +sub_shell3(qbs_add(FUNC_QUOTEDFILENAME(qbs_add(qbs_add(func_chr( 34 ),__STRING_LASTBINARYGENERATED),func_chr( 34 ))),__STRING_MODIFYCOMMAND),2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1119);}while(r); +} +S_1760:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(1120);if(r)goto S_1760;} +do{ +qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("./",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1120);}while(r); +} +S_1763:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ +if(qbevent){evnt(1121);if(r)goto S_1763;} +S_1764:; +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)))||new_error){ +if(qbevent){evnt(1122);if(r)goto S_1764;} +do{ +sub_shell3(qbs_add(FUNC_QUOTEDFILENAME(__STRING_LASTBINARYGENERATED),__STRING_MODIFYCOMMAND),2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1123);}while(r); +}else{ +do{ +sub_shell3(qbs_add(FUNC_QUOTEDFILENAME(qbs_add(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_LASTBINARYGENERATED)),__STRING_MODIFYCOMMAND),2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1125);}while(r); +} +} +S_1770:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("./",2))))||new_error){ +if(qbevent){evnt(1128);if(r)goto S_1770;} +do{ +qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1128);}while(r); +} +}else{ +S_1774:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ +if(qbevent){evnt(1130);if(r)goto S_1774;} +do{ +sub_shell(qbs_add(FUNC_QUOTEDFILENAME(qbs_add(qbs_add(func_chr( 34 ),__STRING_LASTBINARYGENERATED),func_chr( 34 ))),__STRING_MODIFYCOMMAND),1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1130);}while(r); +} +S_1777:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(1131);if(r)goto S_1777;} +do{ +qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("./",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1131);}while(r); +} +S_1780:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ +if(qbevent){evnt(1132);if(r)goto S_1780;} +S_1781:; +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)))||new_error){ +if(qbevent){evnt(1133);if(r)goto S_1781;} +do{ +sub_shell(qbs_add(FUNC_QUOTEDFILENAME(__STRING_LASTBINARYGENERATED),__STRING_MODIFYCOMMAND),1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1134);}while(r); +}else{ +do{ +sub_shell(qbs_add(FUNC_QUOTEDFILENAME(qbs_add(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_LASTBINARYGENERATED)),__STRING_MODIFYCOMMAND),1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1136);}while(r); +} +} +S_1787:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("./",2))))||new_error){ +if(qbevent){evnt(1139);if(r)goto S_1787;} +do{ +qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1139);}while(r); +} +S_1790:; +do{ +if(qbevent){evnt(1140);if(r)goto S_1790;} +S_1791:; +dl_continue_69:; +}while((!(qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_inkey(),qbs_new_txt_len("",0)))))&&(!new_error)); +dl_exit_69:; +if(qbevent){evnt(1140);if(r)goto S_1791;} +S_1792:; +do{ +if(qbevent){evnt(1141);if(r)goto S_1792;} +S_1793:; +dl_continue_70:; +}while((!(-(func__keyhit()== 0 )))&&(!new_error)); +dl_exit_70:; +if(qbevent){evnt(1141);if(r)goto S_1793;} +} +S_1795:; +if ((*__LONG_IDEMODE)||new_error){ +if(qbevent){evnt(1144);if(r)goto S_1795;} +do{ +*__LONG_DUMMY=FUNC_DARKENFGBG(&(pass71= 0 )); +if(!qbevent)break;evnt(1146);}while(r); +} +S_1798:; +if ((*__LONG_VWATCHON)||new_error){ +if(qbevent){evnt(1149);if(r)goto S_1798;} +do{ +qbs_set(__STRING_SENDC,func_chr( 254 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1150);}while(r); +}else{ +do{ +qbs_set(__STRING_SENDC,func_chr( 6 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1152);}while(r); +} +do{ +goto LABEL_SENDCOMMAND; +if(!qbevent)break;evnt(1154);}while(r); +} +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("Invalid IDE message",19)); +if (new_error) goto skip72; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip72: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1157);}while(r); +do{ +sub_end(); +if(!qbevent)break;evnt(1157);}while(r); +LABEL_IDEERROR:; +if(qbevent){evnt(1159);r=0;} +S_1807:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_IDEMESSAGE,__STRING1_SP,0)))||new_error){ +if(qbevent){evnt(1160);if(r)goto S_1807;} +do{ +qbs_set(__STRING_TERRMSG,func__errormessage(NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1163);}while(r); +S_1809:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TERRMSG,qbs_new_txt_len("No error",8))))||new_error){ +if(qbevent){evnt(1164);if(r)goto S_1809;} +do{ +qbs_set(__STRING_TERRMSG,qbs_new_txt_len("Internal error",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1164);}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(1165);}while(r); +S_1813:; +if ((get_error_err())||new_error){ +if(qbevent){evnt(1166);if(r)goto S_1813;} +do{ +qbs_set(__STRING_IDEMESSAGE,qbs_add(qbs_add(__STRING_IDEMESSAGE,FUNC_STR2(&(pass73=get_error_err()))),qbs_new_txt_len("-",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1166);}while(r); +} +S_1816:; +if ((func__errorline())||new_error){ +if(qbevent){evnt(1167);if(r)goto S_1816;} +do{ +qbs_set(__STRING_IDEMESSAGE,qbs_add(__STRING_IDEMESSAGE,FUNC_STR2(&(pass74=func__errorline())))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1167);}while(r); +} +S_1819:; +if ((func__inclerrorline())||new_error){ +if(qbevent){evnt(1168);if(r)goto S_1819;} +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)),FUNC_STR2(&(pass75=func__inclerrorline())))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1168);}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(1169);}while(r); +S_1823:; +if ((-(*__LONG_INCLEVEL> 0 ))||new_error){ +if(qbevent){evnt(1170);if(r)goto S_1823;} +do{ +qbs_set(__STRING_IDEMESSAGE,qbs_add(__STRING_IDEMESSAGE,__STRING_INCERROR)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1170);}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(1173);}while(r); +do{ +goto LABEL_SENDCOMMAND; +if(!qbevent)break;evnt(1174);}while(r); +LABEL_NOIDE:; +if(qbevent){evnt(1177);r=0;} +S_1829:; +if (((((-(*__BYTE_QB64VERSIONPRINTED== 0 ))|(-(*__LONG_CONSOLEMODE== 0 ))))&(~(*__BYTE_QUIETMODE)))||new_error){ +if(qbevent){evnt(1178);if(r)goto S_1829;} +do{ +*__BYTE_QB64VERSIONPRINTED= -1 ; +if(!qbevent)break;evnt(1179);}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 (new_error) goto skip76; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip76: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1180);}while(r); +} +S_1833:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_CMDLINEFILE,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(1183);if(r)goto S_1833;} +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(1184);}while(r); +}else{ +do{ +qbs_set(__STRING_F,__STRING_CMDLINEFILE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1186);}while(r); +} +do{ +qbs_set(__STRING_F,qbs_ltrim(qbs_rtrim(__STRING_F))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1189);}while(r); +S_1839:; +if ((qbs_cleanup(qbs_tmp_base,-(FUNC_FILEHASEXTENSION(__STRING_F)== 0 )))||new_error){ +if(qbevent){evnt(1191);if(r)goto S_1839;} +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(1191);}while(r); +} +do{ +qbs_set(__STRING_SOURCEFILE,__STRING_F); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1193);}while(r); +do{ +qbs_set(__STRING_CMDLINEFILE,__STRING_SOURCEFILE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1194);}while(r); +do{ +qbs_set(__STRING_F,FUNC_REMOVEFILEEXTENSION(__STRING_F)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1196);}while(r); +do{ +qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1198);}while(r); +do{ +qbs_set(__STRING_CURRENTDIR,func__cwd()); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1199);}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(1200);}while(r); +S_1848:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_PATH__ASCII_CHR_046__SOURCE->len))||new_error){ +if(qbevent){evnt(1201);if(r)goto S_1848;} +S_1849:; +if ((qbs_cleanup(qbs_tmp_base,-(func__direxists(__STRING_PATH__ASCII_CHR_046__SOURCE)== 0 )))||new_error){ +if(qbevent){evnt(1202);if(r)goto S_1849;} +do{ +tqbs=qbs_new(0,0); +qbs_print(nothingstring,1); +skip78: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1203);}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 (new_error) goto skip79; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip79: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1204);}while(r); +S_1852:; +if ((*__LONG_CONSOLEMODE)||new_error){ +if(qbevent){evnt(1205);if(r)goto S_1852;} +do{ +if(qbevent){evnt(1205);} +exit_code= 1 ; +if (sub_gl_called) error(271); +close_program=1; +end(); +if(!qbevent)break;evnt(1205);}while(r); +} +do{ +if(qbevent){evnt(1206);} +exit_code= 1 ; +sub_end(); +if(!qbevent)break;evnt(1206);}while(r); +} +do{ +sub_chdir(__STRING_PATH__ASCII_CHR_046__SOURCE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1208);}while(r); +do{ +qbs_set(__STRING_PATH__ASCII_CHR_046__SOURCE,func__cwd()); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1209);}while(r); +S_1859:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_right(__STRING_PATH__ASCII_CHR_046__SOURCE, 1 ),__STRING1_PATHSEP)))||new_error){ +if(qbevent){evnt(1210);if(r)goto S_1859;} +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(1210);}while(r); +} +do{ +sub_chdir(__STRING_CURRENTDIR); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1211);}while(r); +} +S_1864:; +if ((*__BYTE_SAVEEXEWITHSOURCE)||new_error){ +if(qbevent){evnt(1213);if(r)goto S_1864;} +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(1213);}while(r); +} +S_1867:; +fornext_value81=__STRING_F->len; +fornext_finalvalue81= 1 ; +fornext_step81= -1 ; +if (fornext_step81<0) fornext_step_negative81=1; else fornext_step_negative81=0; +if (new_error) goto fornext_error81; +goto fornext_entrylabel81; +while(1){ +fornext_value81=fornext_step81+(*__LONG_X); +fornext_entrylabel81: +*__LONG_X=fornext_value81; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative81){ +if (fornext_value81fornext_finalvalue81) break; +} +fornext_error81:; +if(qbevent){evnt(1215);if(r)goto S_1867;} +do{ +qbs_set(__STRING_A,func_mid(__STRING_F,*__LONG_X, 1 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1216);}while(r); +S_1869:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_A,qbs_new_txt_len("/",1)))|(qbs_equal(__STRING_A,qbs_new_txt_len("\\",1)))))||new_error){ +if(qbevent){evnt(1217);if(r)goto S_1869;} +do{ +qbs_set(__STRING_F,qbs_right(__STRING_F,__STRING_F->len-*__LONG_X)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1218);}while(r); +do{ +goto fornext_exit_80; +if(!qbevent)break;evnt(1219);}while(r); +} +fornext_continue_80:; +} +fornext_exit_80:; +do{ +qbs_set(__STRING_FILE,__STRING_F); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1222);}while(r); +LABEL_FULLRECOMPILE:; +if(qbevent){evnt(1227);r=0;} +S_1875:; +if (((-(*__LONG_IDEMODE== 0 ))&(~(*__BYTE_QUIETMODE)))||new_error){ +if(qbevent){evnt(1229);if(r)goto S_1875;} +do{ +tqbs=qbs_new(0,0); +qbs_print(nothingstring,1); +skip84: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1230);}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("Beginning C++ output from QB64 code... ",39)); +if (new_error) goto skip85; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip85: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1231);}while(r); +} +do{ +*__LONG_BU_DEPENDENCY_CONSOLE_ONLY=((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 7 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])]; +if(!qbevent)break;evnt(1234);}while(r); +S_1880:; +fornext_value87= 1 ; +fornext_finalvalue87=func_ubound(__ARRAY_LONG_DEPENDENCY,1,1); +fornext_step87= 1 ; +if (fornext_step87<0) fornext_step_negative87=1; else fornext_step_negative87=0; +if (new_error) goto fornext_error87; +goto fornext_entrylabel87; +while(1){ +fornext_value87=fornext_step87+(*__LONG_I); +fornext_entrylabel87: +*__LONG_I=fornext_value87; +if (fornext_step_negative87){ +if (fornext_value87fornext_finalvalue87) break; +} +fornext_error87:; +if(qbevent){evnt(1235);if(r)goto S_1880;} +do{ +tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[tmp_long]= 0 ; +if(!qbevent)break;evnt(1235);}while(r); +fornext_continue_86:; +} +fornext_exit_86:; +do{ +tmp_long=array_check(( 7 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[tmp_long]=*__LONG_BU_DEPENDENCY_CONSOLE_ONLY& 2 ; +if(!qbevent)break;evnt(1236);}while(r); +do{ +*__LONG_ERROR_HAPPENED= 0 ; +if(!qbevent)break;evnt(1238);}while(r); +S_1885:; +fornext_value89= 1 ; +fornext_finalvalue89= 255 ; +fornext_step89= 1 ; +if (fornext_step89<0) fornext_step_negative89=1; else fornext_step_negative89=0; +if (new_error) goto fornext_error89; +goto fornext_entrylabel89; +while(1){ +fornext_value89=fornext_step89+(*__LONG_CLOSEALL); +fornext_entrylabel89: +*__LONG_CLOSEALL=fornext_value89; +if (fornext_step_negative89){ +if (fornext_value89fornext_finalvalue89) break; +} +fornext_error89:; +if(qbevent){evnt(1240);if(r)goto S_1885;} +do{ +sub_close(*__LONG_CLOSEALL,1); +if(!qbevent)break;evnt(1240);}while(r); +fornext_continue_88:; +} +fornext_exit_88:; +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(1242);}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(1244);}while(r); +S_1890:; +if (( 0 )||new_error){ +if(qbevent){evnt(1246);if(r)goto S_1890;} +do{ +sub_close( 9 ,1); +if(!qbevent)break;evnt(1246);}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(1246);}while(r); +} +S_1894:; +fornext_value91= 1 ; +fornext_finalvalue91=*__LONG_IDS_MAX+ 1 ; +fornext_step91= 1 ; +if (fornext_step91<0) fornext_step_negative91=1; else fornext_step_negative91=0; +if (new_error) goto fornext_error91; +goto fornext_entrylabel91; +while(1){ +fornext_value91=fornext_step91+(*__LONG_I); +fornext_entrylabel91: +*__LONG_I=fornext_value91; +if (fornext_step_negative91){ +if (fornext_value91fornext_finalvalue91) break; +} +fornext_error91:; +if(qbevent){evnt(1248);if(r)goto S_1894;} +do{ +tmp_long=array_check((*__LONG_I)-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[tmp_long]= 0 ; +if(!qbevent)break;evnt(1249);}while(r); +do{ +tmp_long=array_check((*__LONG_I)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[tmp_long]= 0 ; +if(!qbevent)break;evnt(1250);}while(r); +do{ +tmp_long=array_check((*__LONG_I)-__ARRAY_STRING100_SFCMEMARGS[4],__ARRAY_STRING100_SFCMEMARGS[5]); +if (!new_error) 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(1251);}while(r); +fornext_continue_90:; +} +fornext_exit_90:; +do{ +*__LONG_LASTUNRESOLVED= -1 ; +if(!qbevent)break;evnt(1257);}while(r); +do{ +*__INTEGER_SFLISTN= -1 ; +if(!qbevent)break;evnt(1258);}while(r); +do{ +qbs_set(__STRING_SUBNAMELABELS,__STRING1_SP); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1260);}while(r); +do{ +*__LONG_VWATCHDESIREDSTATE= 0 ; +if(!qbevent)break;evnt(1262);}while(r); +do{ +*__LONG_VWATCHRECOMPILEATTEMPTS= 0 ; +if(!qbevent)break;evnt(1263);}while(r); +do{ +*__LONG_QB64PREFIX_SET_DESIREDSTATE= 0 ; +if(!qbevent)break;evnt(1265);}while(r); +do{ +*__LONG_QB64PREFIX_SET_RECOMPILEATTEMPTS= 0 ; +if(!qbevent)break;evnt(1266);}while(r); +do{ +*__LONG_OPEX_DESIREDSTATE= 0 ; +if(!qbevent)break;evnt(1268);}while(r); +do{ +*__LONG_OPEX_RECOMPILEATTEMPTS= 0 ; +if(!qbevent)break;evnt(1269);}while(r); +do{ +*__LONG_OPEXARRAY_DESIREDSTATE= 0 ; +if(!qbevent)break;evnt(1271);}while(r); +do{ +*__LONG_OPEXARRAY_RECOMPILEATTEMPTS= 0 ; +if(!qbevent)break;evnt(1272);}while(r); +LABEL_RECOMPILE:; +if(qbevent){evnt(1274);r=0;} +do{ +*__LONG_VWATCHON=*__LONG_VWATCHDESIREDSTATE; +if(!qbevent)break;evnt(1275);}while(r); +do{ +SUB_VWATCHVARIABLE(qbs_new_txt_len("",0),&(pass92= -1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1276);}while(r); +do{ +*__LONG_QB64PREFIX_SET=*__LONG_QB64PREFIX_SET_DESIREDSTATE; +if(!qbevent)break;evnt(1278);}while(r); +do{ +qbs_set(__STRING_QB64PREFIX,qbs_new_txt_len("_",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1279);}while(r); +do{ +*__BYTE_OPTIONEXPLICIT=*__LONG_OPEX_DESIREDSTATE; +if(!qbevent)break;evnt(1281);}while(r); +S_1915:; +if (((-(*__BYTE_OPTIONEXPLICIT_CMD== -1 ))&(-(*__LONG_NOIDEMODE== 1 )))||new_error){ +if(qbevent){evnt(1282);if(r)goto S_1915;} +do{ +*__BYTE_OPTIONEXPLICIT= -1 ; +if(!qbevent)break;evnt(1282);}while(r); +} +do{ +*__BYTE_OPTIONEXPLICITARRAY=*__LONG_OPEXARRAY_DESIREDSTATE; +if(!qbevent)break;evnt(1283);}while(r); +do{ +*__LONG_LASTLINERETURN= 0 ; +if(!qbevent)break;evnt(1285);}while(r); +do{ +*__LONG_LASTLINE= 0 ; +if(!qbevent)break;evnt(1286);}while(r); +do{ +*__LONG_FIRSTLINE= 1 ; +if(!qbevent)break;evnt(1287);}while(r); +do{ +*__LONG_RESIZE= 0 ; +if(!qbevent)break;evnt(1289);}while(r); +do{ +*__LONG_RESIZE_SCALE= 0 ; +if(!qbevent)break;evnt(1290);}while(r); +do{ +*__LONG_USEGL= 0 ; +if(!qbevent)break;evnt(1292);}while(r); +do{ +*__LONG_ERROR_HAPPENED= 0 ; +if(!qbevent)break;evnt(1294);}while(r); +do{ +SUB_HASHCLEAR(); +if(!qbevent)break;evnt(1296);}while(r); +do{ +*__LONG_F= 4 + 8 ; +if(!qbevent)break;evnt(1300);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("_UNSIGNED",9),__LONG_F,&(pass93= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1301);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("_BIT",4),__LONG_F,&(pass94= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1302);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("_BYTE",5),__LONG_F,&(pass95= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1303);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("INTEGER",7),__LONG_F,&(pass96= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1304);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("LONG",4),__LONG_F,&(pass97= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1305);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("_INTEGER64",10),__LONG_F,&(pass98= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1306);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("_OFFSET",7),__LONG_F,&(pass99= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1307);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("SINGLE",6),__LONG_F,&(pass100= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1308);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("DOUBLE",6),__LONG_F,&(pass101= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1309);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("_FLOAT",6),__LONG_F,&(pass102= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1310);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("STRING",6),__LONG_F,&(pass103= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1311);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("ANY",3),__LONG_F,&(pass104= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1312);}while(r); +do{ +*__LONG_F= 16 + 8 ; +if(!qbevent)break;evnt(1314);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("NOT",3),__LONG_F,&(pass105= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1315);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("IMP",3),__LONG_F,&(pass106= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1316);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("EQV",3),__LONG_F,&(pass107= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1317);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("AND",3),__LONG_F,&(pass108= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1318);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("OR",2),__LONG_F,&(pass109= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1319);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("XOR",3),__LONG_F,&(pass110= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1320);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("MOD",3),__LONG_F,&(pass111= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1321);}while(r); +do{ +*__LONG_F= 8 + 32 ; +if(!qbevent)break;evnt(1323);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("LIST",4),__LONG_F,&(pass112= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1324);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("BASE",4),__LONG_F,&(pass113= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1325);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("_EXPLICIT",9),__LONG_F,&(pass114= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1326);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("AS",2),__LONG_F,&(pass115= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1327);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("IS",2),__LONG_F,&(pass116= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1328);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("OFF",3),__LONG_F,&(pass117= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1329);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("ON",2),__LONG_F,&(pass118= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1330);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("STOP",4),__LONG_F,&(pass119= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1331);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("TO",2),__LONG_F,&(pass120= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1332);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("USING",5),__LONG_F,&(pass121= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1333);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("PRESET",6),__LONG_F,&(pass122= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1335);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("PSET",4),__LONG_F,&(pass123= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1336);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("FOR",3),__LONG_F,&(pass124= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1338);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("OUTPUT",6),__LONG_F,&(pass125= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1339);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("RANDOM",6),__LONG_F,&(pass126= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1340);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("BINARY",6),__LONG_F,&(pass127= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1341);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("APPEND",6),__LONG_F,&(pass128= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1342);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("SHARED",6),__LONG_F,&(pass129= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1343);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("ACCESS",6),__LONG_F,&(pass130= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1344);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("LOCK",4),__LONG_F,&(pass131= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1345);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("READ",4),__LONG_F,&(pass132= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1346);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("WRITE",5),__LONG_F,&(pass133= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1347);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("STEP",4),__LONG_F,&(pass134= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1349);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("LPRINT",6),__LONG_F,&(pass135= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1351);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("PRINT",5),__LONG_F,&(pass136= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1353);}while(r); +do{ +*__LONG_F= 8 + 8192 + 16384 ; +if(!qbevent)break;evnt(1355);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("COMMON",6),__LONG_F,&(pass137= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1359);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("CALL",4),__LONG_F,&(pass138= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1360);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("CASE",4),&(pass139=*__LONG_F- 8192 ),&(pass140= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1361);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("COM",3),__LONG_F,&(pass141= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1362);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("CONST",5),__LONG_F,&(pass142= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1363);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("DATA",4),__LONG_F,&(pass143= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1365);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("DECLARE",7),__LONG_F,&(pass144= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1366);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("DEF",3),__LONG_F,&(pass145= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1367);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("DEFDBL",6),__LONG_F,&(pass146= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1368);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("DEFINT",6),__LONG_F,&(pass147= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1369);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("DEFLNG",6),__LONG_F,&(pass148= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1370);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("DEFSNG",6),__LONG_F,&(pass149= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1371);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("DEFSTR",6),__LONG_F,&(pass150= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1372);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("DIM",3),__LONG_F,&(pass151= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1373);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("DO",2),&(pass152=*__LONG_F- 8192 ),&(pass153= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1374);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("ERROR",5),&(pass154=*__LONG_F- 8192 ),&(pass155= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1376);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("ELSE",4),__LONG_F,&(pass156= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1377);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("ELSEIF",6),__LONG_F,&(pass157= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1378);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("ENDIF",5),__LONG_F,&(pass158= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1379);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("EXIT",4),&(pass159=*__LONG_F- 8192 ),&(pass160= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1380);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("FIELD",5),&(pass161=*__LONG_F- 8192 ),&(pass162= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1382);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("FUNCTION",8),__LONG_F,&(pass163= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1383);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("GOSUB",5),__LONG_F,&(pass164= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1385);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("GOTO",4),__LONG_F,&(pass165= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1386);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("INPUT",5),&(pass166=*__LONG_F- 8192 - 16384 ),&(pass167= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1389);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("IF",2),__LONG_F,&(pass168= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1390);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("KEY",3),&(pass169=*__LONG_F- 8192 - 16384 ),&(pass170= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1392);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("LET",3),&(pass171=*__LONG_F- 8192 ),&(pass172= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1394);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("LOOP",4),&(pass173=*__LONG_F- 8192 ),&(pass174= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1395);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("LEN",3),&(pass175=*__LONG_F- 8192 ),&(pass176= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1396);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("NEXT",4),&(pass177=*__LONG_F- 8192 ),&(pass178= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1399);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("PLAY",4),&(pass179=*__LONG_F- 8192 - 16384 ),&(pass180= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1402);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("PEN",3),&(pass181=*__LONG_F- 8192 - 16384 ),&(pass182= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1403);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("REDIM",5),__LONG_F,&(pass183= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1406);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("REM",3),__LONG_F,&(pass184= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1407);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("RESTORE",7),&(pass185=*__LONG_F- 8192 ),&(pass186= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1408);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("RESUME",6),&(pass187=*__LONG_F- 8192 ),&(pass188= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1409);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("RETURN",6),&(pass189=*__LONG_F- 8192 ),&(pass190= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1410);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("RUN",3),&(pass191=*__LONG_F- 8192 ),&(pass192= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1411);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("STATIC",6),__LONG_F,&(pass193= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1413);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("STRIG",5),__LONG_F,&(pass194= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1414);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("SEG",3),__LONG_F,&(pass195= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1415);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("SELECT",6),&(pass196=*__LONG_F- 8192 - 16384 ),&(pass197= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1416);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("SUB",3),__LONG_F,&(pass198= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1417);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("SCREEN",6),&(pass199=*__LONG_F- 8192 - 16384 ),&(pass200= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1418);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("THEN",4),__LONG_F,&(pass201= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1420);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("TIMER",5),&(pass202=*__LONG_F- 8192 - 16384 ),&(pass203= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1421);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("TYPE",4),&(pass204=*__LONG_F- 8192 ),&(pass205= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1422);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("UNTIL",5),__LONG_F,&(pass206= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1424);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("UEVENT",6),__LONG_F,&(pass207= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1425);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("WEND",4),__LONG_F,&(pass208= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1428);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("WHILE",5),__LONG_F,&(pass209= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1429);}while(r); +do{ +*__LONG_CONSOLE= 0 ; +if(!qbevent)break;evnt(1441);}while(r); +do{ +*__LONG_SCREENHIDE= 0 ; +if(!qbevent)break;evnt(1442);}while(r); +do{ +*__LONG_ASSERTS= 0 ; +if(!qbevent)break;evnt(1443);}while(r); +do{ +*__LONG_RESOLVESTATICFUNCTIONS= 0 ; +if(!qbevent)break;evnt(1444);}while(r); +do{ +*__LONG_DYNAMICLIBRARY= 0 ; +if(!qbevent)break;evnt(1445);}while(r); +do{ +*__INTEGER_DIMSFARRAY= 0 ; +if(!qbevent)break;evnt(1446);}while(r); +do{ +*__LONG_DIMSTATIC= 0 ; +if(!qbevent)break;evnt(1447);}while(r); +do{ +*__LONG_ALLOWLOCALNAME= 0 ; +if(!qbevent)break;evnt(1448);}while(r); +do{ +qbs_set(__STRING_POSSIBLESUBNAMELABELS,__STRING1_SP); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1449);}while(r); +do{ +*__LONG_USE_GLOBAL_BYTE_ELEMENTS= 0 ; +if(!qbevent)break;evnt(1450);}while(r); +do{ +*__INTEGER_DIMSHARED= 0 ; +if(!qbevent)break;evnt(1451);}while(r); +do{ +*__LONG_DIMMETHOD= 0 ; +if(!qbevent)break;evnt(1451);}while(r); +do{ +*__INTEGER_DIMOPTION= 0 ; +if(!qbevent)break;evnt(1451);}while(r); +do{ +*__INTEGER_REDIMOPTION= 0 ; +if(!qbevent)break;evnt(1451);}while(r); +do{ +*__LONG_COMMONOPTION= 0 ; +if(!qbevent)break;evnt(1451);}while(r); +do{ +qbs_set(__STRING_MYLIB,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1452);}while(r); +do{ +qbs_set(__STRING_MYLIBOPT,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1452);}while(r); +do{ +*__LONG_DECLARINGLIBRARY= 0 ; +if(!qbevent)break;evnt(1453);}while(r); +do{ +*__LONG_NLABELS= 0 ; +if(!qbevent)break;evnt(1454);}while(r); +do{ +*__LONG_DYNSCOPE= 0 ; +if(!qbevent)break;evnt(1455);}while(r); +do{ +*__LONG_ELSEFOLLOWUP= 0 ; +if(!qbevent)break;evnt(1456);}while(r); +do{ +*__LONG_ONTIMERID= 0 ; +if(!qbevent)break;evnt(1457);}while(r); +do{ +*__LONG_ONKEYID= 0 ; +if(!qbevent)break;evnt(1457);}while(r); +do{ +*__LONG_ONSTRIGID= 0 ; +if(!qbevent)break;evnt(1457);}while(r); +do{ +qbs_set(__STRING_COMMONARRAYLIST,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1458);}while(r); +do{ +*__LONG_COMMONARRAYLISTN= 0 ; +if(!qbevent)break;evnt(1458);}while(r); +do{ +qbs_set(__STRING_STATICARRAYLIST,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1459);}while(r); +do{ +*__LONG_STATICARRAYLISTN= 0 ; +if(!qbevent)break;evnt(1459);}while(r); +do{ +*__LONG_FOOINDWEL= 0 ; +if(!qbevent)break;evnt(1460);}while(r); +do{ +qbs_set(__STRING_LAYOUT,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1461);}while(r); +do{ +*__LONG_LAYOUTOK= 0 ; +if(!qbevent)break;evnt(1462);}while(r); +do{ +*__LONG_NOCHECKS= 0 ; +if(!qbevent)break;evnt(1463);}while(r); +do{ +*__LONG_INCLEVEL= 0 ; +if(!qbevent)break;evnt(1464);}while(r); +do{ +*__LONG_ERRORLINEININCLUDE= 0 ; +if(!qbevent)break;evnt(1465);}while(r); +do{ +qbs_set(__STRING_ADDMETAINCLUDE,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1466);}while(r); +do{ +*__LONG_NEXTRUNLINEINDEX= 1 ; +if(!qbevent)break;evnt(1467);}while(r); +do{ +*__LONG_LASTTYPE= 0 ; +if(!qbevent)break;evnt(1468);}while(r); +do{ +*__LONG_LASTTYPEELEMENT= 0 ; +if(!qbevent)break;evnt(1469);}while(r); +do{ if (__ARRAY_STRING256_UDTXNAME[2]&2){ error(10); @@ -8629,9 +8629,9 @@ __ARRAY_STRING256_UDTXNAME[0]=(ptrszint)calloc(__ARRAY_STRING256_UDTXNAME[5]*256 if (!__ARRAY_STRING256_UDTXNAME[0]) error(257); } __ARRAY_STRING256_UDTXNAME[2]|=1; -} -if(!qbevent)break;evnt(1470);}while(r); -do{ +} +if(!qbevent)break;evnt(1470);}while(r); +do{ if (__ARRAY_STRING256_UDTXCNAME[2]&2){ error(10); @@ -8655,9 +8655,9 @@ __ARRAY_STRING256_UDTXCNAME[0]=(ptrszint)calloc(__ARRAY_STRING256_UDTXCNAME[5]*2 if (!__ARRAY_STRING256_UDTXCNAME[0]) error(257); } __ARRAY_STRING256_UDTXCNAME[2]|=1; -} -if(!qbevent)break;evnt(1471);}while(r); -do{ +} +if(!qbevent)break;evnt(1471);}while(r); +do{ if (__ARRAY_LONG_UDTXSIZE[2]&2){ error(10); @@ -8681,9 +8681,9 @@ __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(1472);}while(r); -do{ +} +if(!qbevent)break;evnt(1472);}while(r); +do{ if (__ARRAY_INTEGER_UDTXBYTEALIGN[2]&2){ error(10); @@ -8707,9 +8707,9 @@ __ARRAY_INTEGER_UDTXBYTEALIGN[0]=(ptrszint)calloc(__ARRAY_INTEGER_UDTXBYTEALIGN[ if (!__ARRAY_INTEGER_UDTXBYTEALIGN[0]) error(257); } __ARRAY_INTEGER_UDTXBYTEALIGN[2]|=1; -} -if(!qbevent)break;evnt(1473);}while(r); -do{ +} +if(!qbevent)break;evnt(1473);}while(r); +do{ if (__ARRAY_LONG_UDTXNEXT[2]&2){ error(10); @@ -8733,9 +8733,9 @@ __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(1474);}while(r); -do{ +} +if(!qbevent)break;evnt(1474);}while(r); +do{ if (__ARRAY_INTEGER_UDTXVARIABLE[2]&2){ error(10); @@ -8759,9 +8759,9 @@ __ARRAY_INTEGER_UDTXVARIABLE[0]=(ptrszint)calloc(__ARRAY_INTEGER_UDTXVARIABLE[5] if (!__ARRAY_INTEGER_UDTXVARIABLE[0]) error(257); } __ARRAY_INTEGER_UDTXVARIABLE[2]|=1; -} -if(!qbevent)break;evnt(1475);}while(r); -do{ +} +if(!qbevent)break;evnt(1475);}while(r); +do{ if (__ARRAY_STRING256_UDTENAME[2]&2){ error(10); @@ -8785,9 +8785,9 @@ __ARRAY_STRING256_UDTENAME[0]=(ptrszint)calloc(__ARRAY_STRING256_UDTENAME[5]*256 if (!__ARRAY_STRING256_UDTENAME[0]) error(257); } __ARRAY_STRING256_UDTENAME[2]|=1; -} -if(!qbevent)break;evnt(1477);}while(r); -do{ +} +if(!qbevent)break;evnt(1477);}while(r); +do{ if (__ARRAY_STRING256_UDTECNAME[2]&2){ error(10); @@ -8811,9 +8811,9 @@ __ARRAY_STRING256_UDTECNAME[0]=(ptrszint)calloc(__ARRAY_STRING256_UDTECNAME[5]*2 if (!__ARRAY_STRING256_UDTECNAME[0]) error(257); } __ARRAY_STRING256_UDTECNAME[2]|=1; -} -if(!qbevent)break;evnt(1478);}while(r); -do{ +} +if(!qbevent)break;evnt(1478);}while(r); +do{ if (__ARRAY_INTEGER_UDTEBYTEALIGN[2]&2){ error(10); @@ -8837,9 +8837,9 @@ __ARRAY_INTEGER_UDTEBYTEALIGN[0]=(ptrszint)calloc(__ARRAY_INTEGER_UDTEBYTEALIGN[ if (!__ARRAY_INTEGER_UDTEBYTEALIGN[0]) error(257); } __ARRAY_INTEGER_UDTEBYTEALIGN[2]|=1; -} -if(!qbevent)break;evnt(1479);}while(r); -do{ +} +if(!qbevent)break;evnt(1479);}while(r); +do{ if (__ARRAY_LONG_UDTESIZE[2]&2){ error(10); @@ -8863,9 +8863,9 @@ __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(1480);}while(r); -do{ +} +if(!qbevent)break;evnt(1480);}while(r); +do{ if (__ARRAY_LONG_UDTETYPE[2]&2){ error(10); @@ -8889,9 +8889,9 @@ __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(1481);}while(r); -do{ +} +if(!qbevent)break;evnt(1481);}while(r); +do{ if (__ARRAY_LONG_UDTETYPESIZE[2]&2){ error(10); @@ -8915,9 +8915,9 @@ __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(1482);}while(r); -do{ +} +if(!qbevent)break;evnt(1482);}while(r); +do{ if (__ARRAY_LONG_UDTEARRAYELEMENTS[2]&2){ error(10); @@ -8941,9 +8941,9 @@ __ARRAY_LONG_UDTEARRAYELEMENTS[0]=(ptrszint)calloc(__ARRAY_LONG_UDTEARRAYELEMENT if (!__ARRAY_LONG_UDTEARRAYELEMENTS[0]) error(257); } __ARRAY_LONG_UDTEARRAYELEMENTS[2]|=1; -} -if(!qbevent)break;evnt(1483);}while(r); -do{ +} +if(!qbevent)break;evnt(1483);}while(r); +do{ if (__ARRAY_LONG_UDTENEXT[2]&2){ error(10); @@ -8967,208 +8967,208 @@ __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(1484);}while(r); -do{ -*__LONG_DEFININGTYPE= 0 ; -if(!qbevent)break;evnt(1485);}while(r); -do{ -*__LONG_DEFININGTYPEERROR= 0 ; -if(!qbevent)break;evnt(1486);}while(r); -do{ -*__LONG_CONSTLAST= -1 ; -if(!qbevent)break;evnt(1487);}while(r); -do{ -*__INTEGER_CLOSEDMAIN= 0 ; -if(!qbevent)break;evnt(1489);}while(r); -do{ -*__INTEGER_ADDMETASTATIC= 0 ; -if(!qbevent)break;evnt(1490);}while(r); -do{ -*__INTEGER_ADDMETADYNAMIC= 0 ; -if(!qbevent)break;evnt(1491);}while(r); -do{ -*__INTEGER_DYNAMICMODE= 0 ; -if(!qbevent)break;evnt(1492);}while(r); -do{ -*__INTEGER_OPTIONBASE= 0 ; -if(!qbevent)break;evnt(1493);}while(r); -do{ -*__LONG_EXEICONSET= 0 ; -if(!qbevent)break;evnt(1494);}while(r); -do{ -*__BYTE_VERSIONINFOSET= 0 ; -if(!qbevent)break;evnt(1495);}while(r); -do{ -qbs_set(__STRING_VIFILEVERSIONNUM,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1496);}while(r); -do{ -qbs_set(__STRING_VIPRODUCTVERSIONNUM,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1496);}while(r); -do{ -qbs_set(__STRING_VICOMPANYNAME,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1496);}while(r); -do{ -qbs_set(__STRING_VIFILEDESCRIPTION,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1497);}while(r); -do{ -qbs_set(__STRING_VIFILEVERSION,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1497);}while(r); -do{ -qbs_set(__STRING_VIINTERNALNAME,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1497);}while(r); -do{ -qbs_set(__STRING_VILEGALCOPYRIGHT,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1498);}while(r); -do{ -qbs_set(__STRING_VILEGALTRADEMARKS,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1498);}while(r); -do{ -qbs_set(__STRING_VIORIGINALFILENAME,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1498);}while(r); -do{ -qbs_set(__STRING_VIPRODUCTNAME,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1499);}while(r); -do{ -qbs_set(__STRING_VIPRODUCTVERSION,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1499);}while(r); -do{ -qbs_set(__STRING_VICOMMENTS,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1499);}while(r); -do{ -qbs_set(__STRING_VIWEB,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1499);}while(r); -do{ -*__LONG_DATAOFFSET= 0 ; -if(!qbevent)break;evnt(1500);}while(r); -do{ -*__LONG_STATEMENTN= 0 ; -if(!qbevent)break;evnt(1501);}while(r); -do{ -*__LONG_EVERYCASENEWCASE= 0 ; -if(!qbevent)break;evnt(1502);}while(r); -do{ -*__INTEGER_QBERRORHAPPENED= 0 ; -if(!qbevent)break;evnt(1503);}while(r); -do{ -*__INTEGER_QBERRORCODE= 0 ; -if(!qbevent)break;evnt(1503);}while(r); -do{ -*__INTEGER_QBERRORLINE= 0 ; -if(!qbevent)break;evnt(1503);}while(r); -S_2108:; -fornext_value211= 1 ; -fornext_finalvalue211= 27 ; -fornext_step211= 1 ; -if (fornext_step211<0) fornext_step_negative211=1; else fornext_step_negative211=0; -if (new_error) goto fornext_error211; -goto fornext_entrylabel211; -while(1){ -fornext_value211=fornext_step211+(*__LONG_I); -fornext_entrylabel211: -*__LONG_I=fornext_value211; -if (fornext_step_negative211){ -if (fornext_value211fornext_finalvalue211) break; -} -fornext_error211:; -if(qbevent){evnt(1504);if(r)goto S_2108;} -do{ -tmp_long=array_check((*__LONG_I)-__ARRAY_STRING_DEFINEAZ[4],__ARRAY_STRING_DEFINEAZ[5]); -if (!new_error) 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(1504);}while(r); -do{ -tmp_long=array_check((*__LONG_I)-__ARRAY_STRING_DEFINEEXTAZ[4],__ARRAY_STRING_DEFINEEXTAZ[5]); -if (!new_error) 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(1504);}while(r); -fornext_continue_210:; -} -fornext_exit_210:; -do{ -*__INTEGER_CONTROLLEVEL= 0 ; -if(!qbevent)break;evnt(1505);}while(r); -do{ -qbs_set(__STRING_FINDIDSECONDARG,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1506);}while(r); -do{ -*__INTEGER_FINDANOTHERID= 0 ; -if(!qbevent)break;evnt(1506);}while(r); -do{ -*__LONG_FINDIDINTERNAL= 0 ; -if(!qbevent)break;evnt(1506);}while(r); -do{ -*__LONG_CURRENTID= 0 ; -if(!qbevent)break;evnt(1506);}while(r); -do{ -*__LONG_LINENUMBER= 0 ; -if(!qbevent)break;evnt(1507);}while(r); -do{ -qbs_set(__STRING_WHOLELINE,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1508);}while(r); -do{ -qbs_set(__STRING_LINEFRAGMENT,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1509);}while(r); -do{ -*__LONG_IDN= 0 ; -if(!qbevent)break;evnt(1510);}while(r); -do{ -*__INTEGER_ARRAYPROCESSINGHAPPENED= 0 ; -if(!qbevent)break;evnt(1511);}while(r); -do{ -*__INTEGER_STRINGPROCESSINGHAPPENED= 0 ; -if(!qbevent)break;evnt(1512);}while(r); -do{ -*__BYTE_INPUTFUNCTIONCALLED= 0 ; -if(!qbevent)break;evnt(1513);}while(r); -do{ -*__LONG_SUBFUNCN= 0 ; -if(!qbevent)break;evnt(1514);}while(r); -do{ -*__BYTE_CLOSEDSUBFUNC= 0 ; -if(!qbevent)break;evnt(1515);}while(r); -do{ -qbs_set(__STRING_SUBFUNC,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1516);}while(r); -do{ -*__ULONG_SELECTCASECOUNTER= 0 ; -if(!qbevent)break;evnt(1517);}while(r); -do{ -*__INTEGER_EXECCOUNTER= 0 ; -if(!qbevent)break;evnt(1518);}while(r); -do{ -*__INTEGER_USERDEFINECOUNT= 7 ; -if(!qbevent)break;evnt(1519);}while(r); -do{ -*__LONG_TOTALVARIABLESCREATED= 0 ; -if(!qbevent)break;evnt(1520);}while(r); -do{ -qbs_set(__STRING_TYPEDEFINITIONS,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1521);}while(r); -do{ -*__LONG_TOTALMAINVARIABLESCREATED= 0 ; -if(!qbevent)break;evnt(1522);}while(r); -do{ +} +if(!qbevent)break;evnt(1484);}while(r); +do{ +*__LONG_DEFININGTYPE= 0 ; +if(!qbevent)break;evnt(1485);}while(r); +do{ +*__LONG_DEFININGTYPEERROR= 0 ; +if(!qbevent)break;evnt(1486);}while(r); +do{ +*__LONG_CONSTLAST= -1 ; +if(!qbevent)break;evnt(1487);}while(r); +do{ +*__INTEGER_CLOSEDMAIN= 0 ; +if(!qbevent)break;evnt(1489);}while(r); +do{ +*__INTEGER_ADDMETASTATIC= 0 ; +if(!qbevent)break;evnt(1490);}while(r); +do{ +*__INTEGER_ADDMETADYNAMIC= 0 ; +if(!qbevent)break;evnt(1491);}while(r); +do{ +*__INTEGER_DYNAMICMODE= 0 ; +if(!qbevent)break;evnt(1492);}while(r); +do{ +*__INTEGER_OPTIONBASE= 0 ; +if(!qbevent)break;evnt(1493);}while(r); +do{ +*__LONG_EXEICONSET= 0 ; +if(!qbevent)break;evnt(1494);}while(r); +do{ +*__BYTE_VERSIONINFOSET= 0 ; +if(!qbevent)break;evnt(1495);}while(r); +do{ +qbs_set(__STRING_VIFILEVERSIONNUM,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1496);}while(r); +do{ +qbs_set(__STRING_VIPRODUCTVERSIONNUM,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1496);}while(r); +do{ +qbs_set(__STRING_VICOMPANYNAME,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1496);}while(r); +do{ +qbs_set(__STRING_VIFILEDESCRIPTION,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1497);}while(r); +do{ +qbs_set(__STRING_VIFILEVERSION,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1497);}while(r); +do{ +qbs_set(__STRING_VIINTERNALNAME,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1497);}while(r); +do{ +qbs_set(__STRING_VILEGALCOPYRIGHT,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1498);}while(r); +do{ +qbs_set(__STRING_VILEGALTRADEMARKS,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1498);}while(r); +do{ +qbs_set(__STRING_VIORIGINALFILENAME,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1498);}while(r); +do{ +qbs_set(__STRING_VIPRODUCTNAME,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1499);}while(r); +do{ +qbs_set(__STRING_VIPRODUCTVERSION,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1499);}while(r); +do{ +qbs_set(__STRING_VICOMMENTS,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1499);}while(r); +do{ +qbs_set(__STRING_VIWEB,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1499);}while(r); +do{ +*__LONG_DATAOFFSET= 0 ; +if(!qbevent)break;evnt(1500);}while(r); +do{ +*__LONG_STATEMENTN= 0 ; +if(!qbevent)break;evnt(1501);}while(r); +do{ +*__LONG_EVERYCASENEWCASE= 0 ; +if(!qbevent)break;evnt(1502);}while(r); +do{ +*__INTEGER_QBERRORHAPPENED= 0 ; +if(!qbevent)break;evnt(1503);}while(r); +do{ +*__INTEGER_QBERRORCODE= 0 ; +if(!qbevent)break;evnt(1503);}while(r); +do{ +*__INTEGER_QBERRORLINE= 0 ; +if(!qbevent)break;evnt(1503);}while(r); +S_2108:; +fornext_value211= 1 ; +fornext_finalvalue211= 27 ; +fornext_step211= 1 ; +if (fornext_step211<0) fornext_step_negative211=1; else fornext_step_negative211=0; +if (new_error) goto fornext_error211; +goto fornext_entrylabel211; +while(1){ +fornext_value211=fornext_step211+(*__LONG_I); +fornext_entrylabel211: +*__LONG_I=fornext_value211; +if (fornext_step_negative211){ +if (fornext_value211fornext_finalvalue211) break; +} +fornext_error211:; +if(qbevent){evnt(1504);if(r)goto S_2108;} +do{ +tmp_long=array_check((*__LONG_I)-__ARRAY_STRING_DEFINEAZ[4],__ARRAY_STRING_DEFINEAZ[5]); +if (!new_error) 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(1504);}while(r); +do{ +tmp_long=array_check((*__LONG_I)-__ARRAY_STRING_DEFINEEXTAZ[4],__ARRAY_STRING_DEFINEEXTAZ[5]); +if (!new_error) 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(1504);}while(r); +fornext_continue_210:; +} +fornext_exit_210:; +do{ +*__INTEGER_CONTROLLEVEL= 0 ; +if(!qbevent)break;evnt(1505);}while(r); +do{ +qbs_set(__STRING_FINDIDSECONDARG,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1506);}while(r); +do{ +*__INTEGER_FINDANOTHERID= 0 ; +if(!qbevent)break;evnt(1506);}while(r); +do{ +*__LONG_FINDIDINTERNAL= 0 ; +if(!qbevent)break;evnt(1506);}while(r); +do{ +*__LONG_CURRENTID= 0 ; +if(!qbevent)break;evnt(1506);}while(r); +do{ +*__LONG_LINENUMBER= 0 ; +if(!qbevent)break;evnt(1507);}while(r); +do{ +qbs_set(__STRING_WHOLELINE,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1508);}while(r); +do{ +qbs_set(__STRING_LINEFRAGMENT,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1509);}while(r); +do{ +*__LONG_IDN= 0 ; +if(!qbevent)break;evnt(1510);}while(r); +do{ +*__INTEGER_ARRAYPROCESSINGHAPPENED= 0 ; +if(!qbevent)break;evnt(1511);}while(r); +do{ +*__INTEGER_STRINGPROCESSINGHAPPENED= 0 ; +if(!qbevent)break;evnt(1512);}while(r); +do{ +*__BYTE_INPUTFUNCTIONCALLED= 0 ; +if(!qbevent)break;evnt(1513);}while(r); +do{ +*__LONG_SUBFUNCN= 0 ; +if(!qbevent)break;evnt(1514);}while(r); +do{ +*__BYTE_CLOSEDSUBFUNC= 0 ; +if(!qbevent)break;evnt(1515);}while(r); +do{ +qbs_set(__STRING_SUBFUNC,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1516);}while(r); +do{ +*__ULONG_SELECTCASECOUNTER= 0 ; +if(!qbevent)break;evnt(1517);}while(r); +do{ +*__INTEGER_EXECCOUNTER= 0 ; +if(!qbevent)break;evnt(1518);}while(r); +do{ +*__INTEGER_USERDEFINECOUNT= 7 ; +if(!qbevent)break;evnt(1519);}while(r); +do{ +*__LONG_TOTALVARIABLESCREATED= 0 ; +if(!qbevent)break;evnt(1520);}while(r); +do{ +qbs_set(__STRING_TYPEDEFINITIONS,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1521);}while(r); +do{ +*__LONG_TOTALMAINVARIABLESCREATED= 0 ; +if(!qbevent)break;evnt(1522);}while(r); +do{ if (__ARRAY_UDT_USEDVARIABLELIST[2]&2){ error(10); @@ -9213,36 +9213,36 @@ while(tmp_long--){ *(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 96)=qbs_new(0,0); *(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 104)=qbs_new(0,0); *(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 112)=qbs_new(0,0);} -} -if(!qbevent)break;evnt(1523);}while(r); -do{ -*__LONG_TOTALWARNINGS= 0 ; -if(!qbevent)break;evnt(1524);}while(r); -do{ -*__BYTE_DUPLICATECONSTWARNING= 0 ; -if(!qbevent)break;evnt(1525);}while(r); -do{ -*__BYTE_EMPTYSCWARNING= 0 ; -if(!qbevent)break;evnt(1526);}while(r); -do{ -*__LONG_WARNINGLISTITEMS= 0 ; -if(!qbevent)break;evnt(1527);}while(r); -do{ -qbs_set(__STRING_LASTWARNINGHEADER,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1528);}while(r); -do{ -qbs_set(__STRING_VWATCHUSEDLABELS,func_space( 1000 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1529);}while(r); -do{ -qbs_set(__STRING_VWATCHUSEDSKIPLABELS,func_space( 1000 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1530);}while(r); -do{ -*__LONG_FIRSTLINENUMBERLABELVWATCH= 0 ; -if(!qbevent)break;evnt(1531);}while(r); -do{ +} +if(!qbevent)break;evnt(1523);}while(r); +do{ +*__LONG_TOTALWARNINGS= 0 ; +if(!qbevent)break;evnt(1524);}while(r); +do{ +*__BYTE_DUPLICATECONSTWARNING= 0 ; +if(!qbevent)break;evnt(1525);}while(r); +do{ +*__BYTE_EMPTYSCWARNING= 0 ; +if(!qbevent)break;evnt(1526);}while(r); +do{ +*__LONG_WARNINGLISTITEMS= 0 ; +if(!qbevent)break;evnt(1527);}while(r); +do{ +qbs_set(__STRING_LASTWARNINGHEADER,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1528);}while(r); +do{ +qbs_set(__STRING_VWATCHUSEDLABELS,func_space( 1000 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1529);}while(r); +do{ +qbs_set(__STRING_VWATCHUSEDSKIPLABELS,func_space( 1000 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1530);}while(r); +do{ +*__LONG_FIRSTLINENUMBERLABELVWATCH= 0 ; +if(!qbevent)break;evnt(1531);}while(r); +do{ if (__ARRAY_STRING_WARNING[2]&2){ error(10); @@ -9265,9 +9265,9 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_WARNING[0]))[tmp_long]=(uint64)qbs_n }else{ while(tmp_long--) ((uint64*)(__ARRAY_STRING_WARNING[0]))[tmp_long]=(uint64)qbs_new(0,0); } -} -if(!qbevent)break;evnt(1532);}while(r); -do{ +} +if(!qbevent)break;evnt(1532);}while(r); +do{ if (__ARRAY_LONG_WARNINGLINES[2]&2){ error(10); @@ -9291,9 +9291,9 @@ __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(1533);}while(r); -do{ +} +if(!qbevent)break;evnt(1533);}while(r); +do{ if (__ARRAY_LONG_WARNINGINCLINES[2]&2){ error(10); @@ -9317,9 +9317,9 @@ __ARRAY_LONG_WARNINGINCLINES[0]=(ptrszint)calloc(__ARRAY_LONG_WARNINGINCLINES[5] if (!__ARRAY_LONG_WARNINGINCLINES[0]) error(257); } __ARRAY_LONG_WARNINGINCLINES[2]|=1; -} -if(!qbevent)break;evnt(1534);}while(r); -do{ +} +if(!qbevent)break;evnt(1534);}while(r); +do{ if (__ARRAY_STRING_WARNINGINCFILES[2]&2){ error(10); @@ -9342,692 +9342,692 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_WARNINGINCFILES[0]))[tmp_long]=(uint }else{ while(tmp_long--) ((uint64*)(__ARRAY_STRING_WARNINGINCFILES[0]))[tmp_long]=(uint64)qbs_new(0,0); } -} -if(!qbevent)break;evnt(1535);}while(r); -do{ -*__LONG_MAXLINENUMBER= 0 ; -if(!qbevent)break;evnt(1536);}while(r); -do{ -*__LONG_UNIQUENUMBERN= 0 ; -if(!qbevent)break;evnt(1537);}while(r); -do{ -*__LONG_PTRSZ=*__LONG_OS_BITS/ 8 ; -if(!qbevent)break;evnt(1561);}while(r); -do{ -*__LONG_LASTTYPE=*__LONG_LASTTYPE+ 1 ; -if(!qbevent)break;evnt(1563);}while(r); -do{ -*__LONG_I=*__LONG_LASTTYPE; -if(!qbevent)break;evnt(1563);}while(r); -do{ -tmp_long=array_check((*__LONG_I)-__ARRAY_STRING256_UDTXNAME[4],__ARRAY_STRING256_UDTXNAME[5]); -if (!new_error) 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(1564);}while(r); -do{ -tmp_long=array_check((*__LONG_I)-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]); -if (!new_error) 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(1565);}while(r); -do{ -tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[tmp_long]=((*__LONG_PTRSZ* 5 )+(( 4 )* 2 )+(( 8 )* 1 ))* 8 ; -if(!qbevent)break;evnt(1566);}while(r); -do{ -tmp_long=array_check((*__LONG_I)-__ARRAY_INTEGER_UDTXBYTEALIGN[4],__ARRAY_INTEGER_UDTXBYTEALIGN[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_UDTXBYTEALIGN[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(1567);}while(r); -do{ -*__LONG_LASTTYPEELEMENT=*__LONG_LASTTYPEELEMENT+ 1 ; -if(!qbevent)break;evnt(1568);}while(r); -do{ -*__LONG_I2=*__LONG_LASTTYPEELEMENT; -if(!qbevent)break;evnt(1568);}while(r); -do{ -tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTENAME[4],__ARRAY_STRING256_UDTENAME[5]); -if (!new_error) 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(1569);}while(r); -do{ -tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTECNAME[4],__ARRAY_STRING256_UDTECNAME[5]); -if (!new_error) 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(1570);}while(r); -do{ -tmp_long=array_check((*__LONG_I2)-__ARRAY_INTEGER_UDTEBYTEALIGN[4],__ARRAY_INTEGER_UDTEBYTEALIGN[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_UDTEBYTEALIGN[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(1571);}while(r); -do{ -tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_UDTETYPE[0]))[tmp_long]=*__LONG_OFFSETTYPE; -if(!qbevent)break;evnt(1572);}while(r); -do{ -tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_UDTESIZE[0]))[tmp_long]=*__LONG_PTRSZ* 8 ; -if(!qbevent)break;evnt(1572);}while(r); -do{ -tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPESIZE[4],__ARRAY_LONG_UDTETYPESIZE[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_UDTETYPESIZE[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(1573);}while(r); -do{ -tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_UDTXNEXT[4],__ARRAY_LONG_UDTXNEXT[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_UDTXNEXT[0]))[tmp_long]=*__LONG_I2; -if(!qbevent)break;evnt(1574);}while(r); -do{ -*__LONG_I3=*__LONG_I2; -if(!qbevent)break;evnt(1575);}while(r); -do{ -*__LONG_LASTTYPEELEMENT=*__LONG_LASTTYPEELEMENT+ 1 ; -if(!qbevent)break;evnt(1576);}while(r); -do{ -*__LONG_I2=*__LONG_LASTTYPEELEMENT; -if(!qbevent)break;evnt(1576);}while(r); -do{ -tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTENAME[4],__ARRAY_STRING256_UDTENAME[5]); -if (!new_error) 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(1577);}while(r); -do{ -tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTECNAME[4],__ARRAY_STRING256_UDTECNAME[5]); -if (!new_error) 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(1578);}while(r); -do{ -tmp_long=array_check((*__LONG_I2)-__ARRAY_INTEGER_UDTEBYTEALIGN[4],__ARRAY_INTEGER_UDTEBYTEALIGN[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_UDTEBYTEALIGN[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(1579);}while(r); -do{ -tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_UDTETYPE[0]))[tmp_long]=*__LONG_OFFSETTYPE; -if(!qbevent)break;evnt(1580);}while(r); -do{ -tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_UDTESIZE[0]))[tmp_long]=*__LONG_PTRSZ* 8 ; -if(!qbevent)break;evnt(1580);}while(r); -do{ -tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPESIZE[4],__ARRAY_LONG_UDTETYPESIZE[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_UDTETYPESIZE[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(1581);}while(r); -do{ -tmp_long=array_check((*__LONG_I3)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_UDTENEXT[0]))[tmp_long]=*__LONG_I2; -if(!qbevent)break;evnt(1582);}while(r); -do{ -*__LONG_I3=*__LONG_I2; -if(!qbevent)break;evnt(1583);}while(r); -do{ -*__LONG_LASTTYPEELEMENT=*__LONG_LASTTYPEELEMENT+ 1 ; -if(!qbevent)break;evnt(1584);}while(r); -do{ -*__LONG_I2=*__LONG_LASTTYPEELEMENT; -if(!qbevent)break;evnt(1584);}while(r); -do{ -tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTENAME[4],__ARRAY_STRING256_UDTENAME[5]); -if (!new_error) 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(1585);}while(r); -do{ -tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTECNAME[4],__ARRAY_STRING256_UDTECNAME[5]); -if (!new_error) 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(1586);}while(r); -do{ -tmp_long=array_check((*__LONG_I2)-__ARRAY_INTEGER_UDTEBYTEALIGN[4],__ARRAY_INTEGER_UDTEBYTEALIGN[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_UDTEBYTEALIGN[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(1587);}while(r); -do{ -tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_UDTETYPE[0]))[tmp_long]=*__LONG_INTEGER64TYPE; -if(!qbevent)break;evnt(1588);}while(r); -do{ -tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_UDTESIZE[0]))[tmp_long]= 64 ; -if(!qbevent)break;evnt(1588);}while(r); -do{ -tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPESIZE[4],__ARRAY_LONG_UDTETYPESIZE[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_UDTETYPESIZE[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(1589);}while(r); -do{ -tmp_long=array_check((*__LONG_I3)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_UDTENEXT[0]))[tmp_long]=*__LONG_I2; -if(!qbevent)break;evnt(1590);}while(r); -do{ -*__LONG_I3=*__LONG_I2; -if(!qbevent)break;evnt(1591);}while(r); -do{ -*__LONG_LASTTYPEELEMENT=*__LONG_LASTTYPEELEMENT+ 1 ; -if(!qbevent)break;evnt(1592);}while(r); -do{ -*__LONG_I2=*__LONG_LASTTYPEELEMENT; -if(!qbevent)break;evnt(1592);}while(r); -do{ -tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTENAME[4],__ARRAY_STRING256_UDTENAME[5]); -if (!new_error) 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(1593);}while(r); -do{ -tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTECNAME[4],__ARRAY_STRING256_UDTECNAME[5]); -if (!new_error) 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(1594);}while(r); -do{ -tmp_long=array_check((*__LONG_I2)-__ARRAY_INTEGER_UDTEBYTEALIGN[4],__ARRAY_INTEGER_UDTEBYTEALIGN[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_UDTEBYTEALIGN[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(1595);}while(r); -do{ -tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_UDTETYPE[0]))[tmp_long]=*__LONG_OFFSETTYPE; -if(!qbevent)break;evnt(1596);}while(r); -do{ -tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_UDTESIZE[0]))[tmp_long]=*__LONG_PTRSZ* 8 ; -if(!qbevent)break;evnt(1596);}while(r); -do{ -tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPESIZE[4],__ARRAY_LONG_UDTETYPESIZE[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_UDTETYPESIZE[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(1597);}while(r); -do{ -tmp_long=array_check((*__LONG_I3)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_UDTENEXT[0]))[tmp_long]=*__LONG_I2; -if(!qbevent)break;evnt(1598);}while(r); -do{ -*__LONG_I3=*__LONG_I2; -if(!qbevent)break;evnt(1599);}while(r); -do{ -*__LONG_LASTTYPEELEMENT=*__LONG_LASTTYPEELEMENT+ 1 ; -if(!qbevent)break;evnt(1600);}while(r); -do{ -*__LONG_I2=*__LONG_LASTTYPEELEMENT; -if(!qbevent)break;evnt(1600);}while(r); -do{ -tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTENAME[4],__ARRAY_STRING256_UDTENAME[5]); -if (!new_error) 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(1601);}while(r); -do{ -tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTECNAME[4],__ARRAY_STRING256_UDTECNAME[5]); -if (!new_error) 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(1602);}while(r); -do{ -tmp_long=array_check((*__LONG_I2)-__ARRAY_INTEGER_UDTEBYTEALIGN[4],__ARRAY_INTEGER_UDTEBYTEALIGN[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_UDTEBYTEALIGN[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(1603);}while(r); -do{ -tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_UDTETYPE[0]))[tmp_long]=*__LONG_OFFSETTYPE; -if(!qbevent)break;evnt(1604);}while(r); -do{ -tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_UDTESIZE[0]))[tmp_long]=*__LONG_PTRSZ* 8 ; -if(!qbevent)break;evnt(1604);}while(r); -do{ -tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPESIZE[4],__ARRAY_LONG_UDTETYPESIZE[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_UDTETYPESIZE[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(1605);}while(r); -do{ -tmp_long=array_check((*__LONG_I3)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_UDTENEXT[0]))[tmp_long]=*__LONG_I2; -if(!qbevent)break;evnt(1606);}while(r); -do{ -*__LONG_I3=*__LONG_I2; -if(!qbevent)break;evnt(1607);}while(r); -do{ -*__LONG_LASTTYPEELEMENT=*__LONG_LASTTYPEELEMENT+ 1 ; -if(!qbevent)break;evnt(1608);}while(r); -do{ -*__LONG_I2=*__LONG_LASTTYPEELEMENT; -if(!qbevent)break;evnt(1608);}while(r); -do{ -tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTENAME[4],__ARRAY_STRING256_UDTENAME[5]); -if (!new_error) 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(1609);}while(r); -do{ -tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTECNAME[4],__ARRAY_STRING256_UDTECNAME[5]); -if (!new_error) 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(1610);}while(r); -do{ -tmp_long=array_check((*__LONG_I2)-__ARRAY_INTEGER_UDTEBYTEALIGN[4],__ARRAY_INTEGER_UDTEBYTEALIGN[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_UDTEBYTEALIGN[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(1611);}while(r); -do{ -tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_UDTETYPE[0]))[tmp_long]=*__LONG_OFFSETTYPE; -if(!qbevent)break;evnt(1612);}while(r); -do{ -tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_UDTESIZE[0]))[tmp_long]=*__LONG_PTRSZ* 8 ; -if(!qbevent)break;evnt(1612);}while(r); -do{ -tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPESIZE[4],__ARRAY_LONG_UDTETYPESIZE[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_UDTETYPESIZE[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(1613);}while(r); -do{ -tmp_long=array_check((*__LONG_I3)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_UDTENEXT[0]))[tmp_long]=*__LONG_I2; -if(!qbevent)break;evnt(1614);}while(r); -do{ -tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_UDTENEXT[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(1615);}while(r); -do{ -*__LONG_I3=*__LONG_I2; -if(!qbevent)break;evnt(1616);}while(r); -do{ -*__LONG_LASTTYPEELEMENT=*__LONG_LASTTYPEELEMENT+ 1 ; -if(!qbevent)break;evnt(1617);}while(r); -do{ -*__LONG_I2=*__LONG_LASTTYPEELEMENT; -if(!qbevent)break;evnt(1617);}while(r); -do{ -tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTENAME[4],__ARRAY_STRING256_UDTENAME[5]); -if (!new_error) 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(1618);}while(r); -do{ -tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTECNAME[4],__ARRAY_STRING256_UDTECNAME[5]); -if (!new_error) 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(1619);}while(r); -do{ -tmp_long=array_check((*__LONG_I2)-__ARRAY_INTEGER_UDTEBYTEALIGN[4],__ARRAY_INTEGER_UDTEBYTEALIGN[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_UDTEBYTEALIGN[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(1620);}while(r); -do{ -tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_UDTETYPE[0]))[tmp_long]=*__LONG_LONGTYPE; -if(!qbevent)break;evnt(1621);}while(r); -do{ -tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_UDTESIZE[0]))[tmp_long]= 32 ; -if(!qbevent)break;evnt(1621);}while(r); -do{ -tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPESIZE[4],__ARRAY_LONG_UDTETYPESIZE[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_UDTETYPESIZE[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(1622);}while(r); -do{ -tmp_long=array_check((*__LONG_I3)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_UDTENEXT[0]))[tmp_long]=*__LONG_I2; -if(!qbevent)break;evnt(1623);}while(r); -do{ -tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_UDTENEXT[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(1624);}while(r); -do{ -*__LONG_I3=*__LONG_I2; -if(!qbevent)break;evnt(1625);}while(r); -do{ -*__LONG_LASTTYPEELEMENT=*__LONG_LASTTYPEELEMENT+ 1 ; -if(!qbevent)break;evnt(1626);}while(r); -do{ -*__LONG_I2=*__LONG_LASTTYPEELEMENT; -if(!qbevent)break;evnt(1626);}while(r); -do{ -tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTENAME[4],__ARRAY_STRING256_UDTENAME[5]); -if (!new_error) 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(1627);}while(r); -do{ -tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTECNAME[4],__ARRAY_STRING256_UDTECNAME[5]); -if (!new_error) 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(1628);}while(r); -do{ -tmp_long=array_check((*__LONG_I2)-__ARRAY_INTEGER_UDTEBYTEALIGN[4],__ARRAY_INTEGER_UDTEBYTEALIGN[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_UDTEBYTEALIGN[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(1629);}while(r); -do{ -tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_UDTETYPE[0]))[tmp_long]=*__LONG_LONGTYPE; -if(!qbevent)break;evnt(1630);}while(r); -do{ -tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_UDTESIZE[0]))[tmp_long]= 32 ; -if(!qbevent)break;evnt(1630);}while(r); -do{ -tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPESIZE[4],__ARRAY_LONG_UDTETYPESIZE[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_UDTETYPESIZE[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(1631);}while(r); -do{ -tmp_long=array_check((*__LONG_I3)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_UDTENEXT[0]))[tmp_long]=*__LONG_I2; -if(!qbevent)break;evnt(1632);}while(r); -do{ -tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_UDTENEXT[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(1633);}while(r); -S_2237:; -fornext_value213= 1 ; -fornext_finalvalue213=func_ubound(__ARRAY_BYTE_UNSTABLEFLAGS,1,1); -fornext_step213= 1 ; -if (fornext_step213<0) fornext_step_negative213=1; else fornext_step_negative213=0; -if (new_error) goto fornext_error213; -goto fornext_entrylabel213; -while(1){ -fornext_value213=fornext_step213+(*__LONG_I); -fornext_entrylabel213: -*__LONG_I=fornext_value213; -if (fornext_step_negative213){ -if (fornext_value213fornext_finalvalue213) break; -} -fornext_error213:; -if(qbevent){evnt(1636);if(r)goto S_2237;} -do{ -tmp_long=array_check((*__LONG_I)-__ARRAY_BYTE_UNSTABLEFLAGS[4],__ARRAY_BYTE_UNSTABLEFLAGS[5]); -if (!new_error) ((int8*)(__ARRAY_BYTE_UNSTABLEFLAGS[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(1636);}while(r); -fornext_continue_212:; -} -fornext_exit_212:; -do{ -*__LONG_MIDISOUNDFONTSET= 0 ; -if(!qbevent)break;evnt(1642);}while(r); -do{ -qbs_set(__STRING_MIDISOUNDFONTLINE,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1643);}while(r); -do{ -qbs_set(__STRING_MIDISOUNDFONT,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1646);}while(r); -S_2243:; -fornext_value215= 1 ; -fornext_finalvalue215= 255 ; -fornext_step215= 1 ; -if (fornext_step215<0) fornext_step_negative215=1; else fornext_step_negative215=0; -if (new_error) goto fornext_error215; -goto fornext_entrylabel215; -while(1){ -fornext_value215=fornext_step215+(*__LONG_CLOSEALL); -fornext_entrylabel215: -*__LONG_CLOSEALL=fornext_value215; -if (fornext_step_negative215){ -if (fornext_value215fornext_finalvalue215) break; -} -fornext_error215:; -if(qbevent){evnt(1656);if(r)goto S_2243;} -do{ -sub_close(*__LONG_CLOSEALL,1); -if(!qbevent)break;evnt(1656);}while(r); -fornext_continue_214:; -} -fornext_exit_214:; -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(1657);}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(1659);}while(r); -S_2248:; -if (( 0 )||new_error){ -if(qbevent){evnt(1661);if(r)goto S_2248;} -do{ -sub_close( 9 ,1); -if(!qbevent)break;evnt(1661);}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(1661);}while(r); -} -S_2252:; -if ((-(*__LONG_IDEMODE== 0 ))||new_error){ -if(qbevent){evnt(1663);if(r)goto S_2252;} -do{ -*__INTEGER_QBERRORHAPPENED= -1 ; -if(!qbevent)break;evnt(1664);}while(r); -do{ -sub_open(__STRING_SOURCEFILE, 3 ,NULL,NULL, 1 ,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1665);}while(r); -LABEL_QBERRORHAPPENED1:; -if(qbevent){evnt(1666);r=0;} -S_2255:; -if ((-(*__INTEGER_QBERRORHAPPENED== 1 ))||new_error){ -if(qbevent){evnt(1667);if(r)goto S_2255;} -do{ -tqbs=qbs_new(0,0); -qbs_print(nothingstring,1); -skip216: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1668);}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 (new_error) goto skip217; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip217: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1669);}while(r); -S_2258:; -if ((*__LONG_CONSOLEMODE)||new_error){ -if(qbevent){evnt(1670);if(r)goto S_2258;} -do{ -if(qbevent){evnt(1670);} -exit_code= 1 ; -if (sub_gl_called) error(271); -close_program=1; -end(); -if(!qbevent)break;evnt(1670);}while(r); -} -do{ -if(qbevent){evnt(1671);} -exit_code= 1 ; -sub_end(); -if(!qbevent)break;evnt(1671);}while(r); -}else{ -do{ -sub_close( 1 ,1); -if(!qbevent)break;evnt(1673);}while(r); -} -do{ -*__INTEGER_QBERRORHAPPENED= 0 ; -if(!qbevent)break;evnt(1675);}while(r); -} -do{ -SUB_REGINTERNAL(); -if(!qbevent)break;evnt(1678);}while(r); -S_2268:; -if ((*__LONG_QB64PREFIX_SET)||new_error){ -if(qbevent){evnt(1680);if(r)goto S_2268;} -do{ -qbs_set(__STRING_QB64PREFIX,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1681);}while(r); -do{ -SUB_REGINTERNAL(); -if(!qbevent)break;evnt(1684);}while(r); -do{ -*__LONG_F= 4 + 8 ; -if(!qbevent)break;evnt(1686);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("UNSIGNED",8),__LONG_F,&(pass218= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1687);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("BIT",3),__LONG_F,&(pass219= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1688);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("BYTE",4),__LONG_F,&(pass220= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1689);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("INTEGER64",9),__LONG_F,&(pass221= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1690);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("OFFSET",6),__LONG_F,&(pass222= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1691);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("FLOAT",5),__LONG_F,&(pass223= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1692);}while(r); -do{ -*__LONG_F= 8 + 32 ; -if(!qbevent)break;evnt(1694);}while(r); -do{ -SUB_HASHADD(qbs_new_txt_len("EXPLICIT",8),__LONG_F,&(pass224= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1695);}while(r); -} -do{ -if(!qbevent)break;evnt(1698);}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(1698);}while(r); -do{ -*__INTEGER_DEFDATAHANDLE=*__LONG_GLOBTXTBUF; -if(!qbevent)break;evnt(1699);}while(r); -S_2284:; -if ((*__LONG_IDERECOMPILE)||new_error){ -if(qbevent){evnt(1701);if(r)goto S_2284;} -do{ -*__LONG_IDERECOMPILE= 0 ; -if(!qbevent)break;evnt(1702);}while(r); -do{ -*__LONG_IDEPASS= 1 ; -if(!qbevent)break;evnt(1703);}while(r); -do{ -qbs_set(__STRING_SENDC,func_chr( 7 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1704);}while(r); -do{ -goto LABEL_SENDCOMMAND; -if(!qbevent)break;evnt(1705);}while(r); -} -S_2290:; -if ((*__LONG_IDEMODE)||new_error){ -if(qbevent){evnt(1708);if(r)goto S_2290;} -do{ -goto LABEL_IDERET1; -if(!qbevent)break;evnt(1708);}while(r); -} -do{ -SUB_LINEINPUT3LOAD(__STRING_SOURCEFILE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1710);}while(r); -S_2294:; -do{ -if(qbevent){evnt(1712);if(r)goto S_2294;} -do{ -qbs_set(__STRING_WHOLELINE,FUNC_LINEINPUT3()); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1716);}while(r); -S_2296:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_WHOLELINE,func_chr( 13 ))))||new_error){ -if(qbevent){evnt(1717);if(r)goto S_2296;} -do{ -goto dl_exit_225; -if(!qbevent)break;evnt(1717);}while(r); -} -LABEL_IDEPREPASS:; -if(qbevent){evnt(1719);r=0;} -LABEL_PREPASSLASTLINE:; -if(qbevent){evnt(1720);r=0;} -S_2299:; -if (((-(*__LONG_LASTLINE!= 0 ))|(-(*__LONG_FIRSTLINE!= 0 )))||new_error){ -if(qbevent){evnt(1722);if(r)goto S_2299;} -do{ -qbs_set(__STRING_LINEBACKUP,__STRING_WHOLELINE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1723);}while(r); -do{ -qbs_set(__STRING_FORCEINCLUDEFROMROOT,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1724);}while(r); -S_2302:; -if ((*__LONG_VWATCHON)||new_error){ -if(qbevent){evnt(1725);if(r)goto S_2302;} -do{ -*__LONG_ADDINGVWATCH= 1 ; -if(!qbevent)break;evnt(1726);}while(r); -S_2304:; -if ((-(*__LONG_FIRSTLINE!= 0 ))||new_error){ -if(qbevent){evnt(1727);if(r)goto S_2304;} -do{ -qbs_set(__STRING_FORCEINCLUDEFROMROOT,qbs_new_txt_len("internal\\support\\vwatch\\vwatch.bi",33)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1727);}while(r); -} -S_2307:; -if ((-(*__LONG_LASTLINE!= 0 ))||new_error){ -if(qbevent){evnt(1728);if(r)goto S_2307;} -do{ -qbs_set(__STRING_FORCEINCLUDEFROMROOT,qbs_new_txt_len("internal\\support\\vwatch\\vwatch.bm",33)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1728);}while(r); -} -}else{ -S_2311:; -if ((-(*__LONG_LASTLINE!= 0 ))||new_error){ -if(qbevent){evnt(1731);if(r)goto S_2311;} -do{ -qbs_set(__STRING_FORCEINCLUDEFROMROOT,qbs_new_txt_len("internal\\support\\vwatch\\vwatch_stub.bm",38)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1731);}while(r); -} -} -do{ -*__LONG_FIRSTLINE= 0 ; -if(!qbevent)break;evnt(1733);}while(r); -do{ -*__LONG_LASTLINE= 0 ; -if(!qbevent)break;evnt(1733);}while(r); -S_2317:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_FORCEINCLUDEFROMROOT->len))||new_error){ -if(qbevent){evnt(1734);if(r)goto S_2317;} -do{ -goto LABEL_FORCEINCLUDE_PREPASS; -if(!qbevent)break;evnt(1734);}while(r); -} -LABEL_FORCEINCLUDECOMPLETED_PREPASS:; -if(qbevent){evnt(1735);r=0;} -do{ -*__LONG_ADDINGVWATCH= 0 ; -if(!qbevent)break;evnt(1736);}while(r); -do{ -qbs_set(__STRING_WHOLELINE,__STRING_LINEBACKUP); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1737);}while(r); -} -do{ -qbs_set(__STRING_WHOLESTV,__STRING_WHOLELINE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1740);}while(r); -do{ -*__LONG_PREPASS= 1 ; -if(!qbevent)break;evnt(1742);}while(r); -do{ -qbs_set(__STRING_LAYOUT,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1743);}while(r); -do{ -*__LONG_LAYOUTOK= 0 ; -if(!qbevent)break;evnt(1744);}while(r); -do{ -*__LONG_LINENUMBER=*__LONG_LINENUMBER+ 1 ; -if(!qbevent)break;evnt(1746);}while(r); -do{ -*__LONG_REALLINENUMBER=*__LONG_REALLINENUMBER+ 1 ; -if(!qbevent)break;evnt(1747);}while(r); -S_2329:; -while((!(-(*__LONG_LINENUMBERfornext_finalvalue213) break; +} +fornext_error213:; +if(qbevent){evnt(1636);if(r)goto S_2237;} +do{ +tmp_long=array_check((*__LONG_I)-__ARRAY_BYTE_UNSTABLEFLAGS[4],__ARRAY_BYTE_UNSTABLEFLAGS[5]); +if (!new_error) ((int8*)(__ARRAY_BYTE_UNSTABLEFLAGS[0]))[tmp_long]= 0 ; +if(!qbevent)break;evnt(1636);}while(r); +fornext_continue_212:; +} +fornext_exit_212:; +do{ +*__LONG_MIDISOUNDFONTSET= 0 ; +if(!qbevent)break;evnt(1642);}while(r); +do{ +qbs_set(__STRING_MIDISOUNDFONTLINE,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1643);}while(r); +do{ +qbs_set(__STRING_MIDISOUNDFONT,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1646);}while(r); +S_2243:; +fornext_value215= 1 ; +fornext_finalvalue215= 255 ; +fornext_step215= 1 ; +if (fornext_step215<0) fornext_step_negative215=1; else fornext_step_negative215=0; +if (new_error) goto fornext_error215; +goto fornext_entrylabel215; +while(1){ +fornext_value215=fornext_step215+(*__LONG_CLOSEALL); +fornext_entrylabel215: +*__LONG_CLOSEALL=fornext_value215; +if (fornext_step_negative215){ +if (fornext_value215fornext_finalvalue215) break; +} +fornext_error215:; +if(qbevent){evnt(1656);if(r)goto S_2243;} +do{ +sub_close(*__LONG_CLOSEALL,1); +if(!qbevent)break;evnt(1656);}while(r); +fornext_continue_214:; +} +fornext_exit_214:; +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(1657);}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(1659);}while(r); +S_2248:; +if (( 0 )||new_error){ +if(qbevent){evnt(1661);if(r)goto S_2248;} +do{ +sub_close( 9 ,1); +if(!qbevent)break;evnt(1661);}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(1661);}while(r); +} +S_2252:; +if ((-(*__LONG_IDEMODE== 0 ))||new_error){ +if(qbevent){evnt(1663);if(r)goto S_2252;} +do{ +*__INTEGER_QBERRORHAPPENED= -1 ; +if(!qbevent)break;evnt(1664);}while(r); +do{ +sub_open(__STRING_SOURCEFILE, 3 ,NULL,NULL, 1 ,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1665);}while(r); +LABEL_QBERRORHAPPENED1:; +if(qbevent){evnt(1666);r=0;} +S_2255:; +if ((-(*__INTEGER_QBERRORHAPPENED== 1 ))||new_error){ +if(qbevent){evnt(1667);if(r)goto S_2255;} +do{ +tqbs=qbs_new(0,0); +qbs_print(nothingstring,1); +skip216: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1668);}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 (new_error) goto skip217; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip217: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1669);}while(r); +S_2258:; +if ((*__LONG_CONSOLEMODE)||new_error){ +if(qbevent){evnt(1670);if(r)goto S_2258;} +do{ +if(qbevent){evnt(1670);} +exit_code= 1 ; +if (sub_gl_called) error(271); +close_program=1; +end(); +if(!qbevent)break;evnt(1670);}while(r); +} +do{ +if(qbevent){evnt(1671);} +exit_code= 1 ; +sub_end(); +if(!qbevent)break;evnt(1671);}while(r); +}else{ +do{ +sub_close( 1 ,1); +if(!qbevent)break;evnt(1673);}while(r); +} +do{ +*__INTEGER_QBERRORHAPPENED= 0 ; +if(!qbevent)break;evnt(1675);}while(r); +} +do{ +SUB_REGINTERNAL(); +if(!qbevent)break;evnt(1678);}while(r); +S_2268:; +if ((*__LONG_QB64PREFIX_SET)||new_error){ +if(qbevent){evnt(1680);if(r)goto S_2268;} +do{ +qbs_set(__STRING_QB64PREFIX,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1681);}while(r); +do{ +SUB_REGINTERNAL(); +if(!qbevent)break;evnt(1684);}while(r); +do{ +*__LONG_F= 4 + 8 ; +if(!qbevent)break;evnt(1686);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("UNSIGNED",8),__LONG_F,&(pass218= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1687);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("BIT",3),__LONG_F,&(pass219= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1688);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("BYTE",4),__LONG_F,&(pass220= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1689);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("INTEGER64",9),__LONG_F,&(pass221= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1690);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("OFFSET",6),__LONG_F,&(pass222= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1691);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("FLOAT",5),__LONG_F,&(pass223= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1692);}while(r); +do{ +*__LONG_F= 8 + 32 ; +if(!qbevent)break;evnt(1694);}while(r); +do{ +SUB_HASHADD(qbs_new_txt_len("EXPLICIT",8),__LONG_F,&(pass224= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1695);}while(r); +} +do{ +if(!qbevent)break;evnt(1698);}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(1698);}while(r); +do{ +*__INTEGER_DEFDATAHANDLE=*__LONG_GLOBTXTBUF; +if(!qbevent)break;evnt(1699);}while(r); +S_2284:; +if ((*__LONG_IDERECOMPILE)||new_error){ +if(qbevent){evnt(1701);if(r)goto S_2284;} +do{ +*__LONG_IDERECOMPILE= 0 ; +if(!qbevent)break;evnt(1702);}while(r); +do{ +*__LONG_IDEPASS= 1 ; +if(!qbevent)break;evnt(1703);}while(r); +do{ +qbs_set(__STRING_SENDC,func_chr( 7 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1704);}while(r); +do{ +goto LABEL_SENDCOMMAND; +if(!qbevent)break;evnt(1705);}while(r); +} +S_2290:; +if ((*__LONG_IDEMODE)||new_error){ +if(qbevent){evnt(1708);if(r)goto S_2290;} +do{ +goto LABEL_IDERET1; +if(!qbevent)break;evnt(1708);}while(r); +} +do{ +SUB_LINEINPUT3LOAD(__STRING_SOURCEFILE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1710);}while(r); +S_2294:; +do{ +if(qbevent){evnt(1712);if(r)goto S_2294;} +do{ +qbs_set(__STRING_WHOLELINE,FUNC_LINEINPUT3()); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1716);}while(r); +S_2296:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_WHOLELINE,func_chr( 13 ))))||new_error){ +if(qbevent){evnt(1717);if(r)goto S_2296;} +do{ +goto dl_exit_225; +if(!qbevent)break;evnt(1717);}while(r); +} +LABEL_IDEPREPASS:; +if(qbevent){evnt(1719);r=0;} +LABEL_PREPASSLASTLINE:; +if(qbevent){evnt(1720);r=0;} +S_2299:; +if (((-(*__LONG_LASTLINE!= 0 ))|(-(*__LONG_FIRSTLINE!= 0 )))||new_error){ +if(qbevent){evnt(1722);if(r)goto S_2299;} +do{ +qbs_set(__STRING_LINEBACKUP,__STRING_WHOLELINE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1723);}while(r); +do{ +qbs_set(__STRING_FORCEINCLUDEFROMROOT,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1724);}while(r); +S_2302:; +if ((*__LONG_VWATCHON)||new_error){ +if(qbevent){evnt(1725);if(r)goto S_2302;} +do{ +*__LONG_ADDINGVWATCH= 1 ; +if(!qbevent)break;evnt(1726);}while(r); +S_2304:; +if ((-(*__LONG_FIRSTLINE!= 0 ))||new_error){ +if(qbevent){evnt(1727);if(r)goto S_2304;} +do{ +qbs_set(__STRING_FORCEINCLUDEFROMROOT,qbs_new_txt_len("internal\\support\\vwatch\\vwatch.bi",33)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1727);}while(r); +} +S_2307:; +if ((-(*__LONG_LASTLINE!= 0 ))||new_error){ +if(qbevent){evnt(1728);if(r)goto S_2307;} +do{ +qbs_set(__STRING_FORCEINCLUDEFROMROOT,qbs_new_txt_len("internal\\support\\vwatch\\vwatch.bm",33)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1728);}while(r); +} +}else{ +S_2311:; +if ((-(*__LONG_LASTLINE!= 0 ))||new_error){ +if(qbevent){evnt(1731);if(r)goto S_2311;} +do{ +qbs_set(__STRING_FORCEINCLUDEFROMROOT,qbs_new_txt_len("internal\\support\\vwatch\\vwatch_stub.bm",38)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1731);}while(r); +} +} +do{ +*__LONG_FIRSTLINE= 0 ; +if(!qbevent)break;evnt(1733);}while(r); +do{ +*__LONG_LASTLINE= 0 ; +if(!qbevent)break;evnt(1733);}while(r); +S_2317:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_FORCEINCLUDEFROMROOT->len))||new_error){ +if(qbevent){evnt(1734);if(r)goto S_2317;} +do{ +goto LABEL_FORCEINCLUDE_PREPASS; +if(!qbevent)break;evnt(1734);}while(r); +} +LABEL_FORCEINCLUDECOMPLETED_PREPASS:; +if(qbevent){evnt(1735);r=0;} +do{ +*__LONG_ADDINGVWATCH= 0 ; +if(!qbevent)break;evnt(1736);}while(r); +do{ +qbs_set(__STRING_WHOLELINE,__STRING_LINEBACKUP); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1737);}while(r); +} +do{ +qbs_set(__STRING_WHOLESTV,__STRING_WHOLELINE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1740);}while(r); +do{ +*__LONG_PREPASS= 1 ; +if(!qbevent)break;evnt(1742);}while(r); +do{ +qbs_set(__STRING_LAYOUT,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1743);}while(r); +do{ +*__LONG_LAYOUTOK= 0 ; +if(!qbevent)break;evnt(1744);}while(r); +do{ +*__LONG_LINENUMBER=*__LONG_LINENUMBER+ 1 ; +if(!qbevent)break;evnt(1746);}while(r); +do{ +*__LONG_REALLINENUMBER=*__LONG_REALLINENUMBER+ 1 ; +if(!qbevent)break;evnt(1747);}while(r); +S_2329:; +while((!(-(*__LONG_LINENUMBERlen))||new_error){ -if(qbevent){evnt(1754);if(r)goto S_2333;} -S_2334:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs__trim(__STRING_WHOLELINE)),qbs_new_txt_len("$NOPREFIX",9))))||new_error){ -if(qbevent){evnt(1756);if(r)goto S_2334;} -do{ -*__LONG_QB64PREFIX_SET_DESIREDSTATE= 1 ; -if(!qbevent)break;evnt(1757);}while(r); -S_2336:; -if ((-(*__LONG_QB64PREFIX_SET== 0 ))||new_error){ -if(qbevent){evnt(1758);if(r)goto S_2336;} -S_2337:; -if ((-(*__LONG_QB64PREFIX_SET_RECOMPILEATTEMPTS== 0 ))||new_error){ -if(qbevent){evnt(1759);if(r)goto S_2337;} -do{ -*__LONG_QB64PREFIX_SET_RECOMPILEATTEMPTS=*__LONG_QB64PREFIX_SET_RECOMPILEATTEMPTS+ 1 ; -if(!qbevent)break;evnt(1760);}while(r); -do{ -goto LABEL_DO_RECOMPILE; -if(!qbevent)break;evnt(1761);}while(r); -} -} -} -do{ -qbs_set(__STRING_WHOLELINE,FUNC_LINEFORMAT(__STRING_WHOLELINE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1766);}while(r); -S_2344:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(1767);if(r)goto S_2344;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(1767);}while(r); -} -do{ -qbs_set(__STRING_TEMP,qbs_ltrim(qbs_rtrim(qbs_ucase(__STRING_WHOLESTV)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1770);}while(r); -S_2348:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TEMP,qbs_new_txt_len("$COLOR:0",8))))||new_error){ -if(qbevent){evnt(1772);if(r)goto S_2348;} -S_2349:; -if ((*__LONG_QB64PREFIX_SET)||new_error){ -if(qbevent){evnt(1773);if(r)goto S_2349;} -do{ -qbs_set(__STRING_ADDMETAINCLUDE,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(FUNC_GETFILEPATH(func_command( 0 ,0|1)),qbs_new_txt_len("internal",8)),__STRING1_PATHSEP),qbs_new_txt_len("support",7)),__STRING1_PATHSEP),qbs_new_txt_len("color",5)),__STRING1_PATHSEP),qbs_new_txt_len("color0_noprefix.bi",18))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1774);}while(r); -}else{ -do{ -qbs_set(__STRING_ADDMETAINCLUDE,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(FUNC_GETFILEPATH(func_command( 0 ,0|1)),qbs_new_txt_len("internal",8)),__STRING1_PATHSEP),qbs_new_txt_len("support",7)),__STRING1_PATHSEP),qbs_new_txt_len("color",5)),__STRING1_PATHSEP),qbs_new_txt_len("color0.bi",9))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1776);}while(r); -} -do{ -goto LABEL_FINISHEDLINEPP; -if(!qbevent)break;evnt(1778);}while(r); -} -S_2356:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TEMP,qbs_new_txt_len("$COLOR:32",9))))||new_error){ -if(qbevent){evnt(1781);if(r)goto S_2356;} -S_2357:; -if ((*__LONG_QB64PREFIX_SET)||new_error){ -if(qbevent){evnt(1782);if(r)goto S_2357;} -do{ -qbs_set(__STRING_ADDMETAINCLUDE,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(FUNC_GETFILEPATH(func_command( 0 ,0|1)),qbs_new_txt_len("internal",8)),__STRING1_PATHSEP),qbs_new_txt_len("support",7)),__STRING1_PATHSEP),qbs_new_txt_len("color",5)),__STRING1_PATHSEP),qbs_new_txt_len("color32_noprefix.bi",19))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1783);}while(r); -}else{ -do{ -qbs_set(__STRING_ADDMETAINCLUDE,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(FUNC_GETFILEPATH(func_command( 0 ,0|1)),qbs_new_txt_len("internal",8)),__STRING1_PATHSEP),qbs_new_txt_len("support",7)),__STRING1_PATHSEP),qbs_new_txt_len("color",5)),__STRING1_PATHSEP),qbs_new_txt_len("color32.bi",10))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1785);}while(r); -} -do{ -goto LABEL_FINISHEDLINEPP; -if(!qbevent)break;evnt(1787);}while(r); -} -S_2364:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TEMP,qbs_new_txt_len("$DEBUG",6))))||new_error){ -if(qbevent){evnt(1790);if(r)goto S_2364;} -do{ -*__LONG_VWATCHDESIREDSTATE= 1 ; -if(!qbevent)break;evnt(1791);}while(r); -S_2366:; -if ((-(*__LONG_VWATCHON== 0 ))||new_error){ -if(qbevent){evnt(1792);if(r)goto S_2366;} -S_2367:; -if ((-(*__LONG_VWATCHRECOMPILEATTEMPTS== 0 ))||new_error){ -if(qbevent){evnt(1793);if(r)goto S_2367;} -do{ -*__LONG_VWATCHRECOMPILEATTEMPTS=*__LONG_VWATCHRECOMPILEATTEMPTS+ 1 ; -if(!qbevent)break;evnt(1795);}while(r); -do{ -goto LABEL_DO_RECOMPILE; -if(!qbevent)break;evnt(1796);}while(r); -}else{ -} -} -} -S_2374:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_TEMP, 4 ),qbs_new_txt_len("$IF ",4))))||new_error){ -if(qbevent){evnt(1803);if(r)goto S_2374;} -S_2375:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_right(__STRING_TEMP, 5 ),qbs_new_txt_len(" THEN",5))))||new_error){ -if(qbevent){evnt(1804);if(r)goto S_2375;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("$IF without THEN",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1804);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(1804);}while(r); -} -do{ -qbs_set(__STRING_TEMP,qbs_ltrim(func_mid(__STRING_TEMP, 4 ,NULL,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1805);}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(1806);}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(1807);}while(r); -do{ -*__INTEGER_EXECCOUNTER=*__INTEGER_EXECCOUNTER+ 1 ; -if(!qbevent)break;evnt(1808);}while(r); -do{ -tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[tmp_long]= -1 ; -if(!qbevent)break;evnt(1809);}while(r); -do{ -tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5]); -if (!new_error) ((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(1810);}while(r); -do{ -*__LONG_RESULT=FUNC_EVALPREIF(__STRING_TEMP,__STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1811);}while(r); -S_2386:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_A,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(1812);if(r)goto S_2386;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(1812);}while(r); -} -S_2389:; -if ((-(*__LONG_RESULT!= 0 ))||new_error){ -if(qbevent){evnt(1813);if(r)goto S_2389;} -do{ -tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5]); -if (!new_error) ((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(1814);}while(r); -S_2391:; -if ((-(((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5])]== 0 ))||new_error){ -if(qbevent){evnt(1815);if(r)goto S_2391;} -do{ -tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5]); -if (!new_error) ((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(1815);}while(r); -} -} -do{ -goto LABEL_FINISHEDLINEPP; -if(!qbevent)break;evnt(1817);}while(r); -} -S_2397:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TEMP,qbs_new_txt_len("$ELSE",5))))||new_error){ -if(qbevent){evnt(1820);if(r)goto S_2397;} -S_2398:; -if ((-(((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]== 0 ))||new_error){ -if(qbevent){evnt(1821);if(r)goto S_2398;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("$ELSE without $IF",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1821);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(1821);}while(r); -} -S_2402:; -if ((((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]& 2 )||new_error){ -if(qbevent){evnt(1822);if(r)goto S_2402;} -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(1822);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(1822);}while(r); -} -do{ -tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5]); -if (!new_error) ((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(1823);}while(r); -S_2407:; -if ((((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]& 4 )||new_error){ -if(qbevent){evnt(1824);if(r)goto S_2407;} -do{ -tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[tmp_long]= -1 ; -if(!qbevent)break;evnt(1825);}while(r); -}else{ -do{ -tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5]); -if (!new_error) ((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(1827);}while(r); -} -do{ -goto LABEL_FINISHEDLINEPP; -if(!qbevent)break;evnt(1829);}while(r); -} -S_2414:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_TEMP, 5 ),qbs_new_txt_len("$ELSE",5))))||new_error){ -if(qbevent){evnt(1832);if(r)goto S_2414;} -do{ -qbs_set(__STRING_TEMP,qbs_ltrim(func_mid(__STRING_TEMP, 6 ,NULL,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1833);}while(r); -S_2416:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_TEMP, 3 ),qbs_new_txt_len("IF ",3))))||new_error){ -if(qbevent){evnt(1834);if(r)goto S_2416;} -S_2417:; -if ((-(((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]== 0 ))||new_error){ -if(qbevent){evnt(1835);if(r)goto S_2417;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("$ELSE IF without $IF",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1835);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(1835);}while(r); -} -S_2421:; -if ((((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]& 2 )||new_error){ -if(qbevent){evnt(1836);if(r)goto S_2421;} -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(1836);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(1836);}while(r); -} -S_2425:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_right(__STRING_TEMP, 5 ),qbs_new_txt_len(" THEN",5))))||new_error){ -if(qbevent){evnt(1837);if(r)goto S_2425;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("$ELSE IF without THEN",21)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1837);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(1837);}while(r); -} -S_2429:; -if ((((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]& 4 )||new_error){ -if(qbevent){evnt(1838);if(r)goto S_2429;} -do{ -tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[tmp_long]= -1 ; -if(!qbevent)break;evnt(1839);}while(r); -do{ -goto LABEL_FINISHEDLINEPP; -if(!qbevent)break;evnt(1840);}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(1842);}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(1843);}while(r); -do{ -*__LONG_RESULT=FUNC_EVALPREIF(__STRING_TEMP,__STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1844);}while(r); -S_2436:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_A,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(1845);if(r)goto S_2436;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(1845);}while(r); -} -S_2439:; -if ((-(*__LONG_RESULT!= 0 ))||new_error){ -if(qbevent){evnt(1846);if(r)goto S_2439;} -do{ -tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5]); -if (!new_error) ((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(1847);}while(r); -S_2441:; -if ((-(((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5])]== 0 ))||new_error){ -if(qbevent){evnt(1848);if(r)goto S_2441;} -do{ -tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5]); -if (!new_error) ((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(1848);}while(r); -} -} -do{ -goto LABEL_FINISHEDLINEPP; -if(!qbevent)break;evnt(1850);}while(r); -} -} -S_2448:; -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)))))||new_error){ -if(qbevent){evnt(1854);if(r)goto S_2448;} -S_2449:; -if ((-(((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]== 0 ))||new_error){ -if(qbevent){evnt(1855);if(r)goto S_2449;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("$END IF without $IF",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1855);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(1855);}while(r); -} -do{ -tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5]); -if (!new_error) ((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(1856);}while(r); -do{ -*__INTEGER_EXECCOUNTER=*__INTEGER_EXECCOUNTER- 1 ; -if(!qbevent)break;evnt(1857);}while(r); -do{ -goto LABEL_FINISHEDLINEPP; -if(!qbevent)break;evnt(1858);}while(r); -} -S_2457:; -if ((((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5])])||new_error){ -if(qbevent){evnt(1861);if(r)goto S_2457;} -S_2458:; -while((!(-(*__LONG_LINENUMBERlen))||new_error){ +if(qbevent){evnt(1754);if(r)goto S_2333;} +S_2334:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs__trim(__STRING_WHOLELINE)),qbs_new_txt_len("$NOPREFIX",9))))||new_error){ +if(qbevent){evnt(1756);if(r)goto S_2334;} +do{ +*__LONG_QB64PREFIX_SET_DESIREDSTATE= 1 ; +if(!qbevent)break;evnt(1757);}while(r); +S_2336:; +if ((-(*__LONG_QB64PREFIX_SET== 0 ))||new_error){ +if(qbevent){evnt(1758);if(r)goto S_2336;} +S_2337:; +if ((-(*__LONG_QB64PREFIX_SET_RECOMPILEATTEMPTS== 0 ))||new_error){ +if(qbevent){evnt(1759);if(r)goto S_2337;} +do{ +*__LONG_QB64PREFIX_SET_RECOMPILEATTEMPTS=*__LONG_QB64PREFIX_SET_RECOMPILEATTEMPTS+ 1 ; +if(!qbevent)break;evnt(1760);}while(r); +do{ +goto LABEL_DO_RECOMPILE; +if(!qbevent)break;evnt(1761);}while(r); +} +} +} +do{ +qbs_set(__STRING_WHOLELINE,FUNC_LINEFORMAT(__STRING_WHOLELINE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1766);}while(r); +S_2344:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(1767);if(r)goto S_2344;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(1767);}while(r); +} +do{ +qbs_set(__STRING_TEMP,qbs_ltrim(qbs_rtrim(qbs_ucase(__STRING_WHOLESTV)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1770);}while(r); +S_2348:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TEMP,qbs_new_txt_len("$COLOR:0",8))))||new_error){ +if(qbevent){evnt(1772);if(r)goto S_2348;} +S_2349:; +if ((*__LONG_QB64PREFIX_SET)||new_error){ +if(qbevent){evnt(1773);if(r)goto S_2349;} +do{ +qbs_set(__STRING_ADDMETAINCLUDE,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(FUNC_GETFILEPATH(func_command( 0 ,0|1)),qbs_new_txt_len("internal",8)),__STRING1_PATHSEP),qbs_new_txt_len("support",7)),__STRING1_PATHSEP),qbs_new_txt_len("color",5)),__STRING1_PATHSEP),qbs_new_txt_len("color0_noprefix.bi",18))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1774);}while(r); +}else{ +do{ +qbs_set(__STRING_ADDMETAINCLUDE,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(FUNC_GETFILEPATH(func_command( 0 ,0|1)),qbs_new_txt_len("internal",8)),__STRING1_PATHSEP),qbs_new_txt_len("support",7)),__STRING1_PATHSEP),qbs_new_txt_len("color",5)),__STRING1_PATHSEP),qbs_new_txt_len("color0.bi",9))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1776);}while(r); +} +do{ +goto LABEL_FINISHEDLINEPP; +if(!qbevent)break;evnt(1778);}while(r); +} +S_2356:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TEMP,qbs_new_txt_len("$COLOR:32",9))))||new_error){ +if(qbevent){evnt(1781);if(r)goto S_2356;} +S_2357:; +if ((*__LONG_QB64PREFIX_SET)||new_error){ +if(qbevent){evnt(1782);if(r)goto S_2357;} +do{ +qbs_set(__STRING_ADDMETAINCLUDE,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(FUNC_GETFILEPATH(func_command( 0 ,0|1)),qbs_new_txt_len("internal",8)),__STRING1_PATHSEP),qbs_new_txt_len("support",7)),__STRING1_PATHSEP),qbs_new_txt_len("color",5)),__STRING1_PATHSEP),qbs_new_txt_len("color32_noprefix.bi",19))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1783);}while(r); +}else{ +do{ +qbs_set(__STRING_ADDMETAINCLUDE,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(FUNC_GETFILEPATH(func_command( 0 ,0|1)),qbs_new_txt_len("internal",8)),__STRING1_PATHSEP),qbs_new_txt_len("support",7)),__STRING1_PATHSEP),qbs_new_txt_len("color",5)),__STRING1_PATHSEP),qbs_new_txt_len("color32.bi",10))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1785);}while(r); +} +do{ +goto LABEL_FINISHEDLINEPP; +if(!qbevent)break;evnt(1787);}while(r); +} +S_2364:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TEMP,qbs_new_txt_len("$DEBUG",6))))||new_error){ +if(qbevent){evnt(1790);if(r)goto S_2364;} +do{ +*__LONG_VWATCHDESIREDSTATE= 1 ; +if(!qbevent)break;evnt(1791);}while(r); +S_2366:; +if ((-(*__LONG_VWATCHON== 0 ))||new_error){ +if(qbevent){evnt(1792);if(r)goto S_2366;} +S_2367:; +if ((-(*__LONG_VWATCHRECOMPILEATTEMPTS== 0 ))||new_error){ +if(qbevent){evnt(1793);if(r)goto S_2367;} +do{ +*__LONG_VWATCHRECOMPILEATTEMPTS=*__LONG_VWATCHRECOMPILEATTEMPTS+ 1 ; +if(!qbevent)break;evnt(1795);}while(r); +do{ +goto LABEL_DO_RECOMPILE; +if(!qbevent)break;evnt(1796);}while(r); +}else{ +} +} +} +S_2374:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_TEMP, 4 ),qbs_new_txt_len("$IF ",4))))||new_error){ +if(qbevent){evnt(1803);if(r)goto S_2374;} +S_2375:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_right(__STRING_TEMP, 5 ),qbs_new_txt_len(" THEN",5))))||new_error){ +if(qbevent){evnt(1804);if(r)goto S_2375;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("$IF without THEN",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1804);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(1804);}while(r); +} +do{ +qbs_set(__STRING_TEMP,qbs_ltrim(func_mid(__STRING_TEMP, 4 ,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1805);}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(1806);}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(1807);}while(r); +do{ +*__INTEGER_EXECCOUNTER=*__INTEGER_EXECCOUNTER+ 1 ; +if(!qbevent)break;evnt(1808);}while(r); +do{ +tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[tmp_long]= -1 ; +if(!qbevent)break;evnt(1809);}while(r); +do{ +tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5]); +if (!new_error) ((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[tmp_long]= 1 ; +if(!qbevent)break;evnt(1810);}while(r); +do{ +*__LONG_RESULT=FUNC_EVALPREIF(__STRING_TEMP,__STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1811);}while(r); +S_2386:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_A,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(1812);if(r)goto S_2386;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(1812);}while(r); +} +S_2389:; +if ((-(*__LONG_RESULT!= 0 ))||new_error){ +if(qbevent){evnt(1813);if(r)goto S_2389;} +do{ +tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5]); +if (!new_error) ((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(1814);}while(r); +S_2391:; +if ((-(((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5])]== 0 ))||new_error){ +if(qbevent){evnt(1815);if(r)goto S_2391;} +do{ +tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5]); +if (!new_error) ((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(1815);}while(r); +} +} +do{ +goto LABEL_FINISHEDLINEPP; +if(!qbevent)break;evnt(1817);}while(r); +} +S_2397:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TEMP,qbs_new_txt_len("$ELSE",5))))||new_error){ +if(qbevent){evnt(1820);if(r)goto S_2397;} +S_2398:; +if ((-(((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]== 0 ))||new_error){ +if(qbevent){evnt(1821);if(r)goto S_2398;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("$ELSE without $IF",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1821);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(1821);}while(r); +} +S_2402:; +if ((((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]& 2 )||new_error){ +if(qbevent){evnt(1822);if(r)goto S_2402;} +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(1822);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(1822);}while(r); +} +do{ +tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5]); +if (!new_error) ((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(1823);}while(r); +S_2407:; +if ((((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]& 4 )||new_error){ +if(qbevent){evnt(1824);if(r)goto S_2407;} +do{ +tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[tmp_long]= -1 ; +if(!qbevent)break;evnt(1825);}while(r); +}else{ +do{ +tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5]); +if (!new_error) ((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(1827);}while(r); +} +do{ +goto LABEL_FINISHEDLINEPP; +if(!qbevent)break;evnt(1829);}while(r); +} +S_2414:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_TEMP, 5 ),qbs_new_txt_len("$ELSE",5))))||new_error){ +if(qbevent){evnt(1832);if(r)goto S_2414;} +do{ +qbs_set(__STRING_TEMP,qbs_ltrim(func_mid(__STRING_TEMP, 6 ,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1833);}while(r); +S_2416:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_TEMP, 3 ),qbs_new_txt_len("IF ",3))))||new_error){ +if(qbevent){evnt(1834);if(r)goto S_2416;} +S_2417:; +if ((-(((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]== 0 ))||new_error){ +if(qbevent){evnt(1835);if(r)goto S_2417;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("$ELSE IF without $IF",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1835);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(1835);}while(r); +} +S_2421:; +if ((((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]& 2 )||new_error){ +if(qbevent){evnt(1836);if(r)goto S_2421;} +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(1836);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(1836);}while(r); +} +S_2425:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_right(__STRING_TEMP, 5 ),qbs_new_txt_len(" THEN",5))))||new_error){ +if(qbevent){evnt(1837);if(r)goto S_2425;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("$ELSE IF without THEN",21)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1837);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(1837);}while(r); +} +S_2429:; +if ((((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]& 4 )||new_error){ +if(qbevent){evnt(1838);if(r)goto S_2429;} +do{ +tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[tmp_long]= -1 ; +if(!qbevent)break;evnt(1839);}while(r); +do{ +goto LABEL_FINISHEDLINEPP; +if(!qbevent)break;evnt(1840);}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(1842);}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(1843);}while(r); +do{ +*__LONG_RESULT=FUNC_EVALPREIF(__STRING_TEMP,__STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1844);}while(r); +S_2436:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_A,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(1845);if(r)goto S_2436;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(1845);}while(r); +} +S_2439:; +if ((-(*__LONG_RESULT!= 0 ))||new_error){ +if(qbevent){evnt(1846);if(r)goto S_2439;} +do{ +tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5]); +if (!new_error) ((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(1847);}while(r); +S_2441:; +if ((-(((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5])]== 0 ))||new_error){ +if(qbevent){evnt(1848);if(r)goto S_2441;} +do{ +tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5]); +if (!new_error) ((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(1848);}while(r); +} +} +do{ +goto LABEL_FINISHEDLINEPP; +if(!qbevent)break;evnt(1850);}while(r); +} +} +S_2448:; +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)))))||new_error){ +if(qbevent){evnt(1854);if(r)goto S_2448;} +S_2449:; +if ((-(((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]== 0 ))||new_error){ +if(qbevent){evnt(1855);if(r)goto S_2449;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("$END IF without $IF",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1855);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(1855);}while(r); +} +do{ +tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5]); +if (!new_error) ((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[tmp_long]= 0 ; +if(!qbevent)break;evnt(1856);}while(r); +do{ +*__INTEGER_EXECCOUNTER=*__INTEGER_EXECCOUNTER- 1 ; +if(!qbevent)break;evnt(1857);}while(r); +do{ +goto LABEL_FINISHEDLINEPP; +if(!qbevent)break;evnt(1858);}while(r); +} +S_2457:; +if ((((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5])])||new_error){ +if(qbevent){evnt(1861);if(r)goto S_2457;} +S_2458:; +while((!(-(*__LONG_LINENUMBER = ",38)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1880);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(1880);}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(1881);}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(1881);}while(r); -S_2478:; -if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(__STRING_L)== 0 )))||new_error){ -if(qbevent){evnt(1883);if(r)goto S_2478;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Invalid flag name",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1883);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(1883);}while(r); -} -S_2482:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_R, 1 ),func_chr( 34 ))))||new_error){ -if(qbevent){evnt(1884);if(r)goto S_2482;} -do{ -qbs_set(__STRING_R,qbs_ltrim(func_mid(__STRING_R, 2 ,NULL,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1884);}while(r); -} -S_2485:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(__STRING_R, 1 ),func_chr( 34 ))))||new_error){ -if(qbevent){evnt(1885);if(r)goto S_2485;} -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(1885);}while(r); -} -S_2488:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_R, 1 ),qbs_new_txt_len("-",1))))||new_error){ -if(qbevent){evnt(1886);if(r)goto S_2488;} -do{ -qbs_set(__STRING_R1,qbs_new_txt_len("-",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1887);}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(1888);}while(r); -}else{ -do{ -qbs_set(__STRING_R1,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1890);}while(r); -} -S_2494:; -fornext_value234= 1 ; -fornext_finalvalue234=__STRING_R->len; -fornext_step234= 1 ; -if (fornext_step234<0) fornext_step_negative234=1; else fornext_step_negative234=0; -if (new_error) goto fornext_error234; -goto fornext_entrylabel234; -while(1){ -fornext_value234=fornext_step234+(*__LONG_I); -fornext_entrylabel234: -*__LONG_I=fornext_value234; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative234){ -if (fornext_value234fornext_finalvalue234) break; -} -fornext_error234:; -if(qbevent){evnt(1893);if(r)goto S_2494;} -do{ -*__LONG_A=qbs_asc(__STRING_R,*__LONG_I); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1894);}while(r); -S_2496:; -if(qbevent){evnt(1895);if(r)goto S_2496;} -S_2497:; -if (((*__LONG_A==( 32 )))||new_error){ -if(qbevent){evnt(1896);if(r)goto S_2497;} -sc_ec_1_end:; -goto sc_236_end; -} -S_2498:; -if (((*__LONG_A==( 46 )))||new_error){ -if(qbevent){evnt(1897);if(r)goto S_2498;} -do{ -qbs_set(__STRING_R1,qbs_add(__STRING_R1,qbs_new_txt_len(".",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1898);}while(r); -sc_ec_2_end:; -goto sc_236_end; -} -S_2500:; -if (((*__LONG_A<( 48 ))||(*__LONG_A>( 90 )))||new_error){ -if(qbevent){evnt(1899);if(r)goto S_2500;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Invalid value",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1900);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(1900);}while(r); -sc_ec_3_end:; -goto sc_236_end; -} -do{ -qbs_set(__STRING_R1,qbs_add(__STRING_R1,func_chr(*__LONG_A))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1902);}while(r); -sc_236_end:; -fornext_continue_233:; -} -fornext_exit_233:; -do{ -qbs_set(__STRING_R,__STRING_R1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1905);}while(r); -S_2508:; -fornext_value238= 8 ; -fornext_finalvalue238=*__INTEGER_USERDEFINECOUNT; -fornext_step238= 1 ; -if (fornext_step238<0) fornext_step_negative238=1; else fornext_step_negative238=0; -if (new_error) goto fornext_error238; -goto fornext_entrylabel238; -while(1){ -fornext_value238=fornext_step238+(*__LONG_I); -fornext_entrylabel238: -*__LONG_I=fornext_value238; -if (fornext_step_negative238){ -if (fornext_value238fornext_finalvalue238) break; -} -fornext_error238:; -if(qbevent){evnt(1907);if(r)goto S_2508;} -S_2509:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[array_check(( 0 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*__LONG_I)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]])),__STRING_L)))||new_error){ -if(qbevent){evnt(1908);if(r)goto S_2509;} -do{ -tmp_long=array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*__LONG_I)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),__STRING_R); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1908);}while(r); -do{ -goto LABEL_FINISHEDLINEPP; -if(!qbevent)break;evnt(1908);}while(r); -} -fornext_continue_237:; -} -fornext_exit_237:; -do{ -*__INTEGER_USERDEFINECOUNT=*__INTEGER_USERDEFINECOUNT+ 1 ; -if(!qbevent)break;evnt(1911);}while(r); -S_2515:; -if ((qbs_cleanup(qbs_tmp_base,-(*__INTEGER_USERDEFINECOUNT>func_ubound(__ARRAY_STRING_USERDEFINE, 2 ,2))))||new_error){ -if(qbevent){evnt(1912);if(r)goto S_2515;} -do{ +} +if(!qbevent)break;evnt(1863);}while(r); +dl_continue_231:; +} +dl_exit_231:; +do{ +tmp_long=array_check((*__LONG_LINENUMBER)-__ARRAY_BYTE_INVALIDLINE[4],__ARRAY_BYTE_INVALIDLINE[5]); +if (!new_error) ((int8*)(__ARRAY_BYTE_INVALIDLINE[0]))[tmp_long]= -1 ; +if(!qbevent)break;evnt(1866);}while(r); +do{ +goto LABEL_FINISHEDLINEPP; +if(!qbevent)break;evnt(1867);}while(r); +} +S_2464:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_TEMP, 7 ),qbs_new_txt_len("$ERROR ",7))))||new_error){ +if(qbevent){evnt(1870);if(r)goto S_2464;} +do{ +qbs_set(__STRING_TEMP,qbs_ltrim(func_mid(__STRING_TEMP, 7 ,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1871);}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(1872);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(1873);}while(r); +} +S_2469:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_TEMP, 5 ),qbs_new_txt_len("$LET ",5))))||new_error){ +if(qbevent){evnt(1876);if(r)goto S_2469;} +do{ +qbs_set(__STRING_TEMP,qbs_ltrim(func_mid(__STRING_TEMP, 5 ,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1877);}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(1879);}while(r); +S_2472:; +if ((-(*__LONG_TEMP== 0 ))||new_error){ +if(qbevent){evnt(1880);if(r)goto S_2472;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Invalid Syntax. $LET = ",38)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1880);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(1880);}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(1881);}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(1881);}while(r); +S_2478:; +if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(__STRING_L)== 0 )))||new_error){ +if(qbevent){evnt(1883);if(r)goto S_2478;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Invalid flag name",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1883);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(1883);}while(r); +} +S_2482:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_R, 1 ),func_chr( 34 ))))||new_error){ +if(qbevent){evnt(1884);if(r)goto S_2482;} +do{ +qbs_set(__STRING_R,qbs_ltrim(func_mid(__STRING_R, 2 ,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1884);}while(r); +} +S_2485:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(__STRING_R, 1 ),func_chr( 34 ))))||new_error){ +if(qbevent){evnt(1885);if(r)goto S_2485;} +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(1885);}while(r); +} +S_2488:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_R, 1 ),qbs_new_txt_len("-",1))))||new_error){ +if(qbevent){evnt(1886);if(r)goto S_2488;} +do{ +qbs_set(__STRING_R1,qbs_new_txt_len("-",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1887);}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(1888);}while(r); +}else{ +do{ +qbs_set(__STRING_R1,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1890);}while(r); +} +S_2494:; +fornext_value234= 1 ; +fornext_finalvalue234=__STRING_R->len; +fornext_step234= 1 ; +if (fornext_step234<0) fornext_step_negative234=1; else fornext_step_negative234=0; +if (new_error) goto fornext_error234; +goto fornext_entrylabel234; +while(1){ +fornext_value234=fornext_step234+(*__LONG_I); +fornext_entrylabel234: +*__LONG_I=fornext_value234; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative234){ +if (fornext_value234fornext_finalvalue234) break; +} +fornext_error234:; +if(qbevent){evnt(1893);if(r)goto S_2494;} +do{ +*__LONG_A=qbs_asc(__STRING_R,*__LONG_I); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1894);}while(r); +S_2496:; +if(qbevent){evnt(1895);if(r)goto S_2496;} +S_2497:; +if (((*__LONG_A==( 32 )))||new_error){ +if(qbevent){evnt(1896);if(r)goto S_2497;} +sc_ec_1_end:; +goto sc_236_end; +} +S_2498:; +if (((*__LONG_A==( 46 )))||new_error){ +if(qbevent){evnt(1897);if(r)goto S_2498;} +do{ +qbs_set(__STRING_R1,qbs_add(__STRING_R1,qbs_new_txt_len(".",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1898);}while(r); +sc_ec_2_end:; +goto sc_236_end; +} +S_2500:; +if (((*__LONG_A<( 48 ))||(*__LONG_A>( 90 )))||new_error){ +if(qbevent){evnt(1899);if(r)goto S_2500;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Invalid value",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1900);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(1900);}while(r); +sc_ec_3_end:; +goto sc_236_end; +} +do{ +qbs_set(__STRING_R1,qbs_add(__STRING_R1,func_chr(*__LONG_A))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1902);}while(r); +sc_236_end:; +fornext_continue_233:; +} +fornext_exit_233:; +do{ +qbs_set(__STRING_R,__STRING_R1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1905);}while(r); +S_2508:; +fornext_value238= 8 ; +fornext_finalvalue238=*__INTEGER_USERDEFINECOUNT; +fornext_step238= 1 ; +if (fornext_step238<0) fornext_step_negative238=1; else fornext_step_negative238=0; +if (new_error) goto fornext_error238; +goto fornext_entrylabel238; +while(1){ +fornext_value238=fornext_step238+(*__LONG_I); +fornext_entrylabel238: +*__LONG_I=fornext_value238; +if (fornext_step_negative238){ +if (fornext_value238fornext_finalvalue238) break; +} +fornext_error238:; +if(qbevent){evnt(1907);if(r)goto S_2508;} +S_2509:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[array_check(( 0 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*__LONG_I)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]])),__STRING_L)))||new_error){ +if(qbevent){evnt(1908);if(r)goto S_2509;} +do{ +tmp_long=array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*__LONG_I)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),__STRING_R); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1908);}while(r); +do{ +goto LABEL_FINISHEDLINEPP; +if(!qbevent)break;evnt(1908);}while(r); +} +fornext_continue_237:; +} +fornext_exit_237:; +do{ +*__INTEGER_USERDEFINECOUNT=*__INTEGER_USERDEFINECOUNT+ 1 ; +if(!qbevent)break;evnt(1911);}while(r); +S_2515:; +if ((qbs_cleanup(qbs_tmp_base,-(*__INTEGER_USERDEFINECOUNT>func_ubound(__ARRAY_STRING_USERDEFINE, 2 ,2))))||new_error){ +if(qbevent){evnt(1912);if(r)goto S_2515;} +do{ if (__ARRAY_STRING_USERDEFINE[2]&2){ error(10); @@ -10705,1472 +10705,1472 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long]=(uint64)qb while(tmp_long--) ((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -} -if(!qbevent)break;evnt(1913);}while(r); -} -do{ -tmp_long=array_check(( 0 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*__INTEGER_USERDEFINECOUNT)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1915);}while(r); -do{ -tmp_long=array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*__INTEGER_USERDEFINECOUNT)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),__STRING_R); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1916);}while(r); -do{ -goto LABEL_FINISHEDLINEPP; -if(!qbevent)break;evnt(1917);}while(r); -} -S_2522:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_TEMP, 10 ),qbs_new_txt_len("$UNSTABLE:",10))))||new_error){ -if(qbevent){evnt(1922);if(r)goto S_2522;} -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(1923);}while(r); -S_2524:; -if(qbevent){evnt(1925);if(r)goto S_2524;} -S_2525:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TOKEN,qbs_new_txt_len("MIDI",4))))||new_error){ -if(qbevent){evnt(1926);if(r)goto S_2525;} -S_2526:; -if ((~(*__ULONG_USEMINIAUDIOBACKEND))||new_error){ -if(qbevent){evnt(1927);if(r)goto S_2526;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Midi is not supported with the old OpenAL audio backend.",56)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1928);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(1929);}while(r); -} -do{ -tmp_long=array_check((*__LONG_UNSTABLE_MIDI)-__ARRAY_BYTE_UNSTABLEFLAGS[4],__ARRAY_BYTE_UNSTABLEFLAGS[5]); -if (!new_error) ((int8*)(__ARRAY_BYTE_UNSTABLEFLAGS[0]))[tmp_long]= -1 ; -if(!qbevent)break;evnt(1932);}while(r); -sc_ec_4_end:; -goto sc_239_end; -} -S_2531:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TOKEN,qbs_new_txt_len("HTTP",4))))||new_error){ -if(qbevent){evnt(1934);if(r)goto S_2531;} -do{ -tmp_long=array_check((*__LONG_UNSTABLE_HTTP)-__ARRAY_BYTE_UNSTABLEFLAGS[4],__ARRAY_BYTE_UNSTABLEFLAGS[5]); -if (!new_error) ((int8*)(__ARRAY_BYTE_UNSTABLEFLAGS[0]))[tmp_long]= -1 ; -if(!qbevent)break;evnt(1935);}while(r); -do{ -SUB_REGUNSTABLEHTTP(); -if(!qbevent)break;evnt(1936);}while(r); -sc_ec_5_end:; -goto sc_239_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(1939);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(1940);}while(r); -sc_239_end:; -} -do{ -qbs_set(__STRING_CWHOLELINE,__STRING_WHOLELINE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1944);}while(r); -do{ -qbs_set(__STRING_WHOLELINE,FUNC_ELEUCASE(__STRING_WHOLELINE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1945);}while(r); -do{ -*__INTEGER_ADDMETADYNAMIC= 0 ; -if(!qbevent)break;evnt(1948);}while(r); -do{ -*__INTEGER_ADDMETASTATIC= 0 ; -if(!qbevent)break;evnt(1948);}while(r); -do{ -*__LONG_WHOLELINEN=FUNC_NUMELEMENTS(__STRING_WHOLELINE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1949);}while(r); -S_2544:; -if ((*__LONG_WHOLELINEN)||new_error){ -if(qbevent){evnt(1951);if(r)goto S_2544;} -do{ -*__LONG_WHOLELINEI= 1 ; -if(!qbevent)break;evnt(1953);}while(r); -do{ -qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_WHOLELINE,&(pass240= 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1956);}while(r); -S_2547:; -if ((qbs_cleanup(qbs_tmp_base,(((-(qbs_asc(__STRING_E)>= 48 ))&(-(qbs_asc(__STRING_E)<= 59 ))))|(-(qbs_asc(__STRING_E)== 46 ))))||new_error){ -if(qbevent){evnt(1957);if(r)goto S_2547;} -do{ -*__LONG_WHOLELINEI= 2 ; -if(!qbevent)break;evnt(1957);}while(r); -do{ -goto LABEL_PPSKPL; -if(!qbevent)break;evnt(1957);}while(r); -} -S_2551:; -if ((-(*__LONG_WHOLELINEN>= 2 ))||new_error){ -if(qbevent){evnt(1960);if(r)goto S_2551;} -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(1961);}while(r); -do{ -*__LONG_X3=*__LONG_X2+ 2 ; -if(!qbevent)break;evnt(1961);}while(r); -S_2554:; -if ((-(*__LONG_X2== 0 ))||new_error){ -if(qbevent){evnt(1962);if(r)goto S_2554;} -S_2555:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal((qbs_right(__STRING_WHOLELINE, 2 )),(qbs_add(__STRING1_SP,qbs_new_txt_len(":",1))))))||new_error){ -if(qbevent){evnt(1963);if(r)goto S_2555;} -do{ -*__LONG_X2=__STRING_WHOLELINE->len- 1 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1963);}while(r); -do{ -*__LONG_X3=*__LONG_X2+ 1 ; -if(!qbevent)break;evnt(1963);}while(r); -} -} -S_2560:; -if ((*__LONG_X2)||new_error){ -if(qbevent){evnt(1966);if(r)goto S_2560;} -do{ -qbs_set(__STRING_E,qbs_left(__STRING_WHOLELINE,*__LONG_X2- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1967);}while(r); -S_2562:; -if ((qbs_cleanup(qbs_tmp_base,FUNC_VALIDLABEL(__STRING_E)))||new_error){ -if(qbevent){evnt(1968);if(r)goto S_2562;} -do{ -qbs_set(__STRING_WHOLELINE,qbs_right(__STRING_WHOLELINE,__STRING_WHOLELINE->len-*__LONG_X3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1969);}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(1970);}while(r); -do{ -*__LONG_WHOLELINEN=FUNC_NUMELEMENTS(__STRING_WHOLELINE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1971);}while(r); -do{ -goto LABEL_PPSKPL; -if(!qbevent)break;evnt(1972);}while(r); -} -} -} -LABEL_PPSKPL:; -if(qbevent){evnt(1977);r=0;} -S_2570:; -if ((-(*__LONG_WHOLELINEI<=*__LONG_WHOLELINEN))||new_error){ -if(qbevent){evnt(1978);if(r)goto S_2570;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1980);}while(r); -do{ -qbs_set(__STRING_CA,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1981);}while(r); -LABEL_PPBLDA:; -if(qbevent){evnt(1982);r=0;} -do{ -qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_WHOLELINE,__LONG_WHOLELINEI)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1983);}while(r); -do{ -qbs_set(__STRING_CE,FUNC_GETELEMENT(__STRING_CWHOLELINE,__LONG_WHOLELINEI)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1984);}while(r); -S_2575:; -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)))))||new_error){ -if(qbevent){evnt(1985);if(r)goto S_2575;} -S_2576:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_A->len))||new_error){ -if(qbevent){evnt(1986);if(r)goto S_2576;} -S_2577:; -if (( 0 )||new_error){ -if(qbevent){evnt(1987);if(r)goto S_2577;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip245; -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 (new_error) goto skip245; -skip245: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(1987);}while(r); -} -do{ -*__LONG_N=FUNC_NUMELEMENTS(__STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1988);}while(r); -do{ -qbs_set(__STRING_FIRSTELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass246= 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1989);}while(r); -do{ -qbs_set(__STRING_SECONDELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass247= 2 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1990);}while(r); -do{ -qbs_set(__STRING_THIRDELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass248= 3 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(1991);}while(r); -S_2584:; -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)))))))||new_error){ -if(qbevent){evnt(1994);if(r)goto S_2584;} -do{ -*__BYTE_CLOSEDSUBFUNC= -1 ; -if(!qbevent)break;evnt(1995);}while(r); -} -S_2587:; -if ((*__LONG_DECLARINGLIBRARY)||new_error){ -if(qbevent){evnt(1999);if(r)goto S_2587;} -S_2588:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("END",3))))||new_error){ -if(qbevent){evnt(2001);if(r)goto S_2588;} -S_2589:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_N!= 2 ))|(qbs_notequal(__STRING_SECONDELEMENT,qbs_new_txt_len("DECLARE",7)))))||new_error){ -if(qbevent){evnt(2002);if(r)goto S_2589;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected END DECLARE",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2002);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2002);}while(r); -} -do{ -*__LONG_DECLARINGLIBRARY= 0 ; -if(!qbevent)break;evnt(2003);}while(r); -do{ -goto LABEL_FINISHEDLINEPP; -if(!qbevent)break;evnt(2004);}while(r); -} -do{ -*__LONG_DECLARINGLIBRARY= 2 ; -if(!qbevent)break;evnt(2007);}while(r); -S_2597:; -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)))))||new_error){ -if(qbevent){evnt(2009);if(r)goto S_2597;} -do{ -*__LONG_SUBFUNCN=*__LONG_SUBFUNCN- 1 ; -if(!qbevent)break;evnt(2009);}while(r); -do{ -goto LABEL_DECLARESUBFUNC; -if(!qbevent)break;evnt(2009);}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(2011);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2011);}while(r); -} -S_2604:; -if ((*__LONG_DEFININGTYPE)||new_error){ -if(qbevent){evnt(2015);if(r)goto S_2604;} -do{ -*__LONG_I=*__LONG_DEFININGTYPE; -if(!qbevent)break;evnt(2016);}while(r); -S_2606:; -if ((-(*__LONG_N>= 1 ))||new_error){ -if(qbevent){evnt(2018);if(r)goto S_2606;} -S_2607:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("END",3))))||new_error){ -if(qbevent){evnt(2019);if(r)goto S_2607;} -S_2608:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_N!= 2 ))|(qbs_notequal(__STRING_SECONDELEMENT,qbs_new_txt_len("TYPE",4)))))||new_error){ -if(qbevent){evnt(2020);if(r)goto S_2608;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected END TYPE",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2020);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2020);}while(r); -} -S_2612:; -if ((-(((int32*)(__ARRAY_LONG_UDTXNEXT[0]))[array_check((*__LONG_I)-__ARRAY_LONG_UDTXNEXT[4],__ARRAY_LONG_UDTXNEXT[5])]== 0 ))||new_error){ -if(qbevent){evnt(2021);if(r)goto S_2612;} -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(2021);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2021);}while(r); -} -do{ -*__LONG_DEFININGTYPE= 0 ; -if(!qbevent)break;evnt(2022);}while(r); -do{ -qbs_set(__STRING_SIZ,FUNC_STR2(&(pass249=((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*__LONG_I)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])]/ 8 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2025);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass250=*__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(2026);}while(r); -do{ -goto LABEL_FINISHEDLINEPP; -if(!qbevent)break;evnt(2029);}while(r); -} -} -S_2622:; -if ((-(*__LONG_N< 3 ))||new_error){ -if(qbevent){evnt(2033);if(r)goto S_2622;} -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(2033);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2033);}while(r); -} -do{ -qbs_set(__STRING_N,__STRING_FIRSTELEMENT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2034);}while(r); -S_2627:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_N,qbs_new_txt_len("AS",2))))||new_error){ -if(qbevent){evnt(2036);if(r)goto S_2627;} -do{ -*__LONG_LASTTYPEELEMENT=*__LONG_LASTTYPEELEMENT+ 1 ; -if(!qbevent)break;evnt(2038);}while(r); -do{ -*__LONG_I2=*__LONG_LASTTYPEELEMENT; -if(!qbevent)break;evnt(2039);}while(r); -S_2630:; -while((-(*__LONG_I2>func_ubound(__ARRAY_LONG_UDTENEXT,1,1)))||new_error){ -if(qbevent){evnt(2040);if(r)goto S_2630;} -do{ -SUB_INCREASEUDTARRAYS(); -if(!qbevent)break;evnt(2040);}while(r); -ww_continue_251:; -} -ww_exit_251:; -do{ -tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_UDTENEXT[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(2041);}while(r); -do{ -*__LONG_II= 2 ; -if(!qbevent)break;evnt(2043);}while(r); -do{ -tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTEARRAYELEMENTS[4],__ARRAY_LONG_UDTEARRAYELEMENTS[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_UDTEARRAYELEMENTS[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(2045);}while(r); -S_2636:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_II>=*__LONG_N))|(qbs_notequal(FUNC_GETELEMENT(__STRING_A,__LONG_II),qbs_new_txt_len("AS",2)))))||new_error){ -if(qbevent){evnt(2047);if(r)goto S_2636;} -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(2047);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2047);}while(r); -} -do{ -qbs_set(__STRING_T,FUNC_GETELEMENTS(__STRING_A,&(pass252=*__LONG_II+ 1 ),__LONG_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2048);}while(r); -S_2641:; -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)))))||new_error){ -if(qbevent){evnt(2050);if(r)goto S_2641;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Invalid self-reference",22)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2050);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2050);}while(r); -} -do{ -*__LONG_TYP=FUNC_TYPNAME2TYP(__STRING_T); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2051);}while(r); -S_2646:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(2052);if(r)goto S_2646;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2052);}while(r); -} -S_2649:; -if ((-(*__LONG_TYP== 0 ))||new_error){ -if(qbevent){evnt(2053);if(r)goto S_2649;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Undefined type",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2053);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2053);}while(r); -} -do{ -*__LONG_TYPSIZE=*__LONG_TYPNAME2TYPSIZE; -if(!qbevent)break;evnt(2054);}while(r); -S_2654:; -if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(__STRING_N)== 0 )))||new_error){ -if(qbevent){evnt(2056);if(r)goto S_2654;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Invalid name",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2056);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2056);}while(r); -} -do{ -tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTENAME[4],__ARRAY_STRING256_UDTENAME[5]); -if (!new_error) 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(2057);}while(r); -do{ -tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTECNAME[4],__ARRAY_STRING256_UDTECNAME[5]); -if (!new_error) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTECNAME[0]))[tmp_long*256],256,1),FUNC_GETELEMENT(__STRING_CA,&(pass253= 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2058);}while(r); -LABEL_NORMALTYPEBLOCK:; -if(qbevent){evnt(2059);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(2060);}while(r); -do{ -tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_UDTETYPE[0]))[tmp_long]=*__LONG_TYP; -if(!qbevent)break;evnt(2061);}while(r); -do{ -tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPESIZE[4],__ARRAY_LONG_UDTETYPESIZE[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_UDTETYPESIZE[0]))[tmp_long]=*__LONG_TYPSIZE; -if(!qbevent)break;evnt(2062);}while(r); -do{ -qbs_set(__STRING_HASHNAME,__STRING_N); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2064);}while(r); -do{ -*__LONG_HASHCHKFLAGS= 8 + 512 ; -if(!qbevent)break;evnt(2067);}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(2068);}while(r); -S_2666:; -while((*__LONG_HASHRES)||new_error){ -if(qbevent){evnt(2069);if(r)goto S_2666;} -S_2667:; -if ((*__LONG_HASHRESFLAGS& 512 )||new_error){ -if(qbevent){evnt(2070);if(r)goto S_2667;} -S_2668:; -if ((-(*__LONG_HASHRESREF==*__LONG_I))||new_error){ -if(qbevent){evnt(2071);if(r)goto S_2668;} -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(2071);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2071);}while(r); -} -} -S_2673:; -if ((*__LONG_HASHRESFLAGS& 8 )||new_error){ -if(qbevent){evnt(2073);if(r)goto S_2673;} -S_2674:; -if ((*__LONG_HASHRESFLAGS&( 4 + 32 + 16 + 8192 ))||new_error){ -if(qbevent){evnt(2074);if(r)goto S_2674;} -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(2074);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2074);}while(r); -} -} -S_2679:; -if ((-(*__LONG_HASHRES!= 1 ))||new_error){ -if(qbevent){evnt(2076);if(r)goto S_2679;} -do{ -*__LONG_HASHRES=FUNC_HASHFINDCONT(__LONG_HASHRESFLAGS,__LONG_HASHRESREF); -if(!qbevent)break;evnt(2076);}while(r); -}else{ -do{ -*__LONG_HASHRES= 0 ; -if(!qbevent)break;evnt(2076);}while(r); -} -dl_continue_255:; -} -dl_exit_255:; -do{ -SUB_HASHADD(__STRING_HASHNAME,&(pass256= 512 ),__LONG_I); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2079);}while(r); -S_2686:; -if ((*__LONG_TYP&*__LONG_ISUDT)||new_error){ -if(qbevent){evnt(2082);if(r)goto S_2686;} -do{ -*__LONG_U=*__LONG_TYP& 511 ; -if(!qbevent)break;evnt(2083);}while(r); -do{ -tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5]); -if (!new_error) ((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(2084);}while(r); -S_2689:; -if ((((int16*)(__ARRAY_INTEGER_UDTXBYTEALIGN[0]))[array_check((*__LONG_U)-__ARRAY_INTEGER_UDTXBYTEALIGN[4],__ARRAY_INTEGER_UDTXBYTEALIGN[5])])||new_error){ -if(qbevent){evnt(2085);if(r)goto S_2689;} -do{ -tmp_long=array_check((*__LONG_I)-__ARRAY_INTEGER_UDTXBYTEALIGN[4],__ARRAY_INTEGER_UDTXBYTEALIGN[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_UDTXBYTEALIGN[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(2085);}while(r); -do{ -tmp_long=array_check((*__LONG_I2)-__ARRAY_INTEGER_UDTEBYTEALIGN[4],__ARRAY_INTEGER_UDTEBYTEALIGN[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_UDTEBYTEALIGN[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(2085);}while(r); -} -S_2693:; -if ((((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*__LONG_U)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])])||new_error){ -if(qbevent){evnt(2086);if(r)goto S_2693;} -do{ -tmp_long=array_check((*__LONG_I)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[tmp_long]= -1 ; -if(!qbevent)break;evnt(2086);}while(r); -} -}else{ -S_2697:; -if (((*__LONG_TYP&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(2088);if(r)goto S_2697;} -S_2698:; -if ((-((*__LONG_TYP&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ -if(qbevent){evnt(2089);if(r)goto S_2698;} -do{ -tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_UDTESIZE[0]))[tmp_long]=*__LONG_OFFSETTYPE& 511 ; -if(!qbevent)break;evnt(2090);}while(r); -do{ -tmp_long=array_check((*__LONG_I)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[tmp_long]= -1 ; -if(!qbevent)break;evnt(2091);}while(r); -}else{ -do{ -tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_UDTESIZE[0]))[tmp_long]=*__LONG_TYPSIZE* 8 ; -if(!qbevent)break;evnt(2093);}while(r); -} -do{ -tmp_long=array_check((*__LONG_I)-__ARRAY_INTEGER_UDTXBYTEALIGN[4],__ARRAY_INTEGER_UDTXBYTEALIGN[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_UDTXBYTEALIGN[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(2095);}while(r); -do{ -tmp_long=array_check((*__LONG_I2)-__ARRAY_INTEGER_UDTEBYTEALIGN[4],__ARRAY_INTEGER_UDTEBYTEALIGN[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_UDTEBYTEALIGN[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(2095);}while(r); -}else{ -do{ -tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_UDTESIZE[0]))[tmp_long]=*__LONG_TYP& 511 ; -if(!qbevent)break;evnt(2097);}while(r); -S_2708:; -if ((-((*__LONG_TYP&*__LONG_ISOFFSETINBITS)== 0 ))||new_error){ -if(qbevent){evnt(2098);if(r)goto S_2708;} -do{ -tmp_long=array_check((*__LONG_I)-__ARRAY_INTEGER_UDTXBYTEALIGN[4],__ARRAY_INTEGER_UDTXBYTEALIGN[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_UDTXBYTEALIGN[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(2098);}while(r); -do{ -tmp_long=array_check((*__LONG_I2)-__ARRAY_INTEGER_UDTEBYTEALIGN[4],__ARRAY_INTEGER_UDTEBYTEALIGN[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_UDTEBYTEALIGN[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(2098);}while(r); -} -} -} -S_2714:; -if ((((int16*)(__ARRAY_INTEGER_UDTEBYTEALIGN[0]))[array_check((*__LONG_I2)-__ARRAY_INTEGER_UDTEBYTEALIGN[4],__ARRAY_INTEGER_UDTEBYTEALIGN[5])])||new_error){ -if(qbevent){evnt(2103);if(r)goto S_2714;} -S_2715:; -if ((((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*__LONG_I)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])]% 8 )||new_error){ -if(qbevent){evnt(2104);if(r)goto S_2715;} -do{ -tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[tmp_long]=((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*__LONG_I)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])]+( 8 -(((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*__LONG_I)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])]% 8 )); -if(!qbevent)break;evnt(2105);}while(r); -} -} -do{ -tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5]); -if (!new_error) ((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(2108);}while(r); -S_2720:; -if ((-(((int32*)(__ARRAY_LONG_UDTXNEXT[0]))[array_check((*__LONG_I)-__ARRAY_LONG_UDTXNEXT[4],__ARRAY_LONG_UDTXNEXT[5])]== 0 ))||new_error){ -if(qbevent){evnt(2111);if(r)goto S_2720;} -do{ -tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_UDTXNEXT[4],__ARRAY_LONG_UDTXNEXT[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_UDTXNEXT[0]))[tmp_long]=*__LONG_I2; -if(!qbevent)break;evnt(2112);}while(r); -}else{ -do{ -tmp_long=array_check((*__LONG_I2- 1 )-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_UDTENEXT[0]))[tmp_long]=*__LONG_I2; -if(!qbevent)break;evnt(2114);}while(r); -} -S_2725:; -if ((*__LONG_NEWASTYPEBLOCKSYNTAX)||new_error){ -if(qbevent){evnt(2118);if(r)goto S_2725;} -do{ -#include "ret0.txt" -if(!qbevent)break;evnt(2118);}while(r); -} -do{ -goto LABEL_FINISHEDLINEPP; -if(!qbevent)break;evnt(2119);}while(r); -}else{ -do{ -*__LONG_II= 2 ; -if(!qbevent)break;evnt(2122);}while(r); -S_2731:; -if ((-(*__LONG_II>=*__LONG_N))||new_error){ -if(qbevent){evnt(2124);if(r)goto S_2731;} -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(2124);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2124);}while(r); -} -do{ -qbs_set(__STRING_PREVIOUSELEMENT,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2125);}while(r); -do{ -qbs_set(__STRING_T,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2126);}while(r); -do{ -qbs_set(__STRING_LASTELEMENT,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2127);}while(r); -LABEL_BUILDTYPENAME:; -if(qbevent){evnt(2128);r=0;} -do{ -qbs_set(__STRING_LASTELEMENT,FUNC_GETELEMENT(__STRING_A,__LONG_II)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2129);}while(r); -S_2739:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(__STRING_LASTELEMENT,qbs_new_txt_len(",",1)))&(qbs_notequal(__STRING_LASTELEMENT,qbs_new_txt_len("",0)))))||new_error){ -if(qbevent){evnt(2130);if(r)goto S_2739;} -do{ -qbs_set(__STRING_N,__STRING_LASTELEMENT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2131);}while(r); -do{ -qbs_set(__STRING_CN,FUNC_GETELEMENT(__STRING_CA,__LONG_II)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2132);}while(r); -S_2742:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_PREVIOUSELEMENT->len))||new_error){ -if(qbevent){evnt(2133);if(r)goto S_2742;} -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(2133);}while(r); -} -do{ -qbs_set(__STRING_PREVIOUSELEMENT,__STRING_N); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2134);}while(r); -do{ -qbs_set(__STRING_LASTELEMENT,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2135);}while(r); -do{ -*__LONG_II=*__LONG_II+ 1 ; -if(!qbevent)break;evnt(2136);}while(r); -do{ -goto LABEL_BUILDTYPENAME; -if(!qbevent)break;evnt(2137);}while(r); -} -do{ -qbs_set(__STRING_T,qbs_rtrim(__STRING_T)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2140);}while(r); -S_2751:; -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)))))||new_error){ -if(qbevent){evnt(2141);if(r)goto S_2751;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Invalid self-reference",22)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2141);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2141);}while(r); -} -do{ -*__LONG_TYP=FUNC_TYPNAME2TYP(__STRING_T); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2142);}while(r); -S_2756:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(2143);if(r)goto S_2756;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2143);}while(r); -} -S_2759:; -if ((-(*__LONG_TYP== 0 ))||new_error){ -if(qbevent){evnt(2144);if(r)goto S_2759;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Undefined type",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2144);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2144);}while(r); -} -do{ -*__LONG_TYPSIZE=*__LONG_TYPNAME2TYPSIZE; -if(!qbevent)break;evnt(2145);}while(r); -do{ -qbs_set(__STRING_PREVIOUSELEMENT,__STRING_LASTELEMENT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2147);}while(r); -LABEL_NEXTTYPEELEMENT:; -if(qbevent){evnt(2148);r=0;} -do{ -*__LONG_LASTTYPEELEMENT=*__LONG_LASTTYPEELEMENT+ 1 ; -if(!qbevent)break;evnt(2149);}while(r); -do{ -*__LONG_I2=*__LONG_LASTTYPEELEMENT; -if(!qbevent)break;evnt(2150);}while(r); -S_2767:; -while((-(*__LONG_I2>func_ubound(__ARRAY_LONG_UDTENEXT,1,1)))||new_error){ -if(qbevent){evnt(2151);if(r)goto S_2767;} -do{ -SUB_INCREASEUDTARRAYS(); -if(!qbevent)break;evnt(2151);}while(r); -ww_continue_258:; -} -ww_exit_258:; -do{ -tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_UDTENEXT[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(2152);}while(r); -do{ -tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTEARRAYELEMENTS[4],__ARRAY_LONG_UDTEARRAYELEMENTS[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_UDTEARRAYELEMENTS[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(2153);}while(r); -do{ -tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTENAME[4],__ARRAY_STRING256_UDTENAME[5]); -if (!new_error) 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(2155);}while(r); -do{ -tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTECNAME[4],__ARRAY_STRING256_UDTECNAME[5]); -if (!new_error) 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(2156);}while(r); -S_2774:; -if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(__STRING_N)== 0 )))||new_error){ -if(qbevent){evnt(2158);if(r)goto S_2774;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Invalid name",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2158);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2158);}while(r); -} -do{ -*__LONG_NEWASTYPEBLOCKSYNTAX= -1 ; -if(!qbevent)break;evnt(2160);}while(r); -do{ -return_point[next_return_point++]=1; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_NORMALTYPEBLOCK; -RETURN_1:; -if(!qbevent)break;evnt(2161);}while(r); -do{ -*__LONG_NEWASTYPEBLOCKSYNTAX= 0 ; -if(!qbevent)break;evnt(2162);}while(r); -LABEL_GETNEXTELEMENT:; -if(qbevent){evnt(2164);r=0;} -do{ -*__LONG_II=*__LONG_II+ 1 ; -if(!qbevent)break;evnt(2165);}while(r); -do{ -qbs_set(__STRING_LASTELEMENT,FUNC_GETELEMENT(__STRING_A,__LONG_II)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2166);}while(r); -S_2783:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_LASTELEMENT,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(2167);if(r)goto S_2783;} -do{ -goto LABEL_FINISHEDLINEPP; -if(!qbevent)break;evnt(2167);}while(r); -} -S_2786:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_II==*__LONG_N))&(qbs_equal(__STRING_LASTELEMENT,qbs_new_txt_len(",",1)))))||new_error){ -if(qbevent){evnt(2168);if(r)goto S_2786;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected element-name",21)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2168);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2168);}while(r); -} -S_2790:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_LASTELEMENT,qbs_new_txt_len(",",1))))||new_error){ -if(qbevent){evnt(2169);if(r)goto S_2790;} -S_2791:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_PREVIOUSELEMENT,qbs_new_txt_len(",",1))))||new_error){ -if(qbevent){evnt(2170);if(r)goto S_2791;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected element-name",21)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2170);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2170);}while(r); -} -do{ -qbs_set(__STRING_PREVIOUSELEMENT,__STRING_LASTELEMENT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2171);}while(r); -do{ -goto LABEL_GETNEXTELEMENT; -if(!qbevent)break;evnt(2172);}while(r); -} -do{ -qbs_set(__STRING_N,__STRING_LASTELEMENT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2174);}while(r); -S_2799:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_PREVIOUSELEMENT,qbs_new_txt_len(",",1))))||new_error){ -if(qbevent){evnt(2175);if(r)goto S_2799;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected ,",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2175);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2175);}while(r); -} -do{ -qbs_set(__STRING_PREVIOUSELEMENT,__STRING_LASTELEMENT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2176);}while(r); -do{ -qbs_set(__STRING_CN,FUNC_GETELEMENT(__STRING_CA,__LONG_II)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2177);}while(r); -do{ -goto LABEL_NEXTTYPEELEMENT; -if(!qbevent)break;evnt(2178);}while(r); -} -} -S_2808:; -if ((*__LONG_DEFININGTYPE&(-(*__LONG_N>= 1 )))||new_error){ -if(qbevent){evnt(2182);if(r)goto S_2808;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected END TYPE",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2182);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2182);}while(r); -} -S_2812:; -if ((-(*__LONG_N>= 1 ))||new_error){ -if(qbevent){evnt(2184);if(r)goto S_2812;} -S_2813:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("TYPE",4))))||new_error){ -if(qbevent){evnt(2185);if(r)goto S_2813;} -S_2814:; -if ((-(*__LONG_N!= 2 ))||new_error){ -if(qbevent){evnt(2186);if(r)goto S_2814;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected TYPE typename",22)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2186);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2186);}while(r); -} -do{ -*__LONG_LASTTYPE=*__LONG_LASTTYPE+ 1 ; -if(!qbevent)break;evnt(2187);}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(2188);}while(r); -do{ -*__LONG_DEFININGTYPE=*__LONG_LASTTYPE; -if(!qbevent)break;evnt(2189);}while(r); -do{ -*__LONG_I=*__LONG_DEFININGTYPE; -if(!qbevent)break;evnt(2190);}while(r); -S_2822:; -while((-(*__LONG_I>func_ubound(__ARRAY_LONG_UDTENEXT,1,1)))||new_error){ -if(qbevent){evnt(2191);if(r)goto S_2822;} -do{ -SUB_INCREASEUDTARRAYS(); -if(!qbevent)break;evnt(2191);}while(r); -ww_continue_259:; -} -ww_exit_259:; -S_2825:; -if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(__STRING_SECONDELEMENT)== 0 )))||new_error){ -if(qbevent){evnt(2192);if(r)goto S_2825;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Invalid name",12)); -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{ -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(2193);}while(r); -do{ -tmp_long=array_check((*__LONG_I)-__ARRAY_STRING256_UDTXNAME[4],__ARRAY_STRING256_UDTXNAME[5]); -if (!new_error) 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(2194);}while(r); -do{ -tmp_long=array_check((*__LONG_I)-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]); -if (!new_error) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[tmp_long*256],256,1),FUNC_GETELEMENT(__STRING_CA,&(pass261= 2 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2195);}while(r); -do{ -tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_UDTXNEXT[4],__ARRAY_LONG_UDTXNEXT[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_UDTXNEXT[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(2196);}while(r); -do{ -tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(2197);}while(r); -do{ -tmp_long=array_check((*__LONG_I)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(2198);}while(r); -do{ -qbs_set(__STRING_HASHNAME,__STRING_SECONDELEMENT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2200);}while(r); -do{ -*__LONG_HASHFLAGS= 256 ; -if(!qbevent)break;evnt(2201);}while(r); -do{ -*__LONG_HASHCHKFLAGS= 8 + 64 + 128 + 256 ; -if(!qbevent)break;evnt(2203);}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(2204);}while(r); -S_2839:; -while((*__LONG_HASHRES)||new_error){ -if(qbevent){evnt(2205);if(r)goto S_2839;} -do{ -*__LONG_ALLOW= 0 ; -if(!qbevent)break;evnt(2206);}while(r); -S_2841:; -if ((*__LONG_HASHRESFLAGS&( 64 + 128 ))||new_error){ -if(qbevent){evnt(2207);if(r)goto S_2841;} -do{ -*__LONG_ALLOW= 1 ; -if(!qbevent)break;evnt(2208);}while(r); -} -S_2844:; -if ((*__LONG_HASHRESFLAGS& 8 )||new_error){ -if(qbevent){evnt(2210);if(r)goto S_2844;} -S_2845:; -if ((-((*__LONG_HASHRESFLAGS&( 4 + 16 + 32 + 16384 ))== 0 ))||new_error){ -if(qbevent){evnt(2211);if(r)goto S_2845;} -do{ -*__LONG_ALLOW= 1 ; -if(!qbevent)break;evnt(2211);}while(r); -} -} -S_2849:; -if ((-(*__LONG_ALLOW== 0 ))||new_error){ -if(qbevent){evnt(2213);if(r)goto S_2849;} -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(2213);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2213);}while(r); -} -S_2853:; -if ((-(*__LONG_HASHRES!= 1 ))||new_error){ -if(qbevent){evnt(2214);if(r)goto S_2853;} -do{ -*__LONG_HASHRES=FUNC_HASHFINDCONT(__LONG_HASHRESFLAGS,__LONG_HASHRESREF); -if(!qbevent)break;evnt(2214);}while(r); -}else{ -do{ -*__LONG_HASHRES= 0 ; -if(!qbevent)break;evnt(2214);}while(r); -} -dl_continue_262:; -} -dl_exit_262:; -do{ -SUB_HASHADD(__STRING_HASHNAME,__LONG_HASHFLAGS,__LONG_I); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2218);}while(r); -do{ -goto LABEL_FINISHEDLINEPP; -if(!qbevent)break;evnt(2220);}while(r); -} -} -S_2863:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_N>= 1 ))&(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("CONST",5)))))||new_error){ -if(qbevent){evnt(2228);if(r)goto S_2863;} -S_2864:; -if (((-(*__LONG_SUBFUNCN> 0 ))&(-(*__BYTE_CLOSEDSUBFUNC!= 0 )))||new_error){ -if(qbevent){evnt(2233);if(r)goto S_2864;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Statement cannot be placed between SUB/FUNCTIONs",48)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2233);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2233);}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(2236);}while(r); -S_2869:; -if ((*__LONG_I2)||new_error){ -if(qbevent){evnt(2237);if(r)goto S_2869;} -S_2870:; -do{ -if(qbevent){evnt(2238);if(r)goto S_2870;} -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(2239);}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(2240);}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(2241);}while(r); -S_2874:; -dl_continue_263:; -}while((!(-(*__LONG_I2== 0 )))&&(!new_error)); -dl_exit_263:; -if(qbevent){evnt(2242);if(r)goto S_2874;} -do{ -*__LONG_N=FUNC_NUMELEMENTS(__STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2243);}while(r); -do{ -qbs_set(__STRING_FIRSTELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass266= 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2244);}while(r); -do{ -qbs_set(__STRING_SECONDELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass267= 2 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2244);}while(r); -do{ -qbs_set(__STRING_THIRDELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass268= 3 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2244);}while(r); -} -S_2880:; -if ((-(*__LONG_N< 3 ))||new_error){ -if(qbevent){evnt(2247);if(r)goto S_2880;} -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(2247);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2247);}while(r); -} -do{ -*__LONG_I= 2 ; -if(!qbevent)break;evnt(2248);}while(r); -LABEL_CONSTDEFPENDINGPP:; -if(qbevent){evnt(2249);r=0;} -do{ -*__LONG_PENDING= 0 ; -if(!qbevent)break;evnt(2250);}while(r); -do{ -qbs_set(__STRING_N,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2252);}while(r); -do{ -*__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(2252);}while(r); -do{ -*__LONG_TYPEOVERRIDE= 0 ; -if(!qbevent)break;evnt(2253);}while(r); -do{ -qbs_set(__STRING_S,FUNC_REMOVESYMBOL(__STRING_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2254);}while(r); -S_2890:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(2255);if(r)goto S_2890;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2255);}while(r); -} -S_2893:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_S,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(2256);if(r)goto S_2893;} -do{ -*__LONG_TYPEOVERRIDE=FUNC_TYPNAME2TYP(__STRING_S); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2257);}while(r); -S_2895:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(2258);if(r)goto S_2895;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2258);}while(r); -} -S_2898:; -if ((*__LONG_TYPEOVERRIDE&*__LONG_ISFIXEDLENGTH)||new_error){ -if(qbevent){evnt(2259);if(r)goto S_2898;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Invalid constant type",21)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2259);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2259);}while(r); -} -S_2902:; -if ((-(*__LONG_TYPEOVERRIDE== 0 ))||new_error){ -if(qbevent){evnt(2260);if(r)goto S_2902;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Invalid constant type",21)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2260);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2260);}while(r); -} -} -S_2907:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,__LONG_I),qbs_new_txt_len("=",1))))||new_error){ -if(qbevent){evnt(2263);if(r)goto S_2907;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected =",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2263);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2263);}while(r); -} -do{ -*__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(2264);}while(r); -do{ -qbs_set(__STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2267);}while(r); -do{ -qbs_set(__STRING_READABLE_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2268);}while(r); -do{ -*__LONG_B= 0 ; -if(!qbevent)break;evnt(2269);}while(r); -S_2915:; -fornext_value270=*__LONG_I; -fornext_finalvalue270=*__LONG_N; -fornext_step270= 1 ; -if (fornext_step270<0) fornext_step_negative270=1; else fornext_step_negative270=0; -if (new_error) goto fornext_error270; -goto fornext_entrylabel270; -while(1){ -fornext_value270=fornext_step270+(*__LONG_I2); -fornext_entrylabel270: -*__LONG_I2=fornext_value270; -if (fornext_step_negative270){ -if (fornext_value270fornext_finalvalue270) break; -} -fornext_error270:; -if(qbevent){evnt(2270);if(r)goto S_2915;} -do{ -qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2271);}while(r); -S_2917:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(2272);if(r)goto S_2917;} -do{ -*__LONG_B=*__LONG_B+ 1 ; -if(!qbevent)break;evnt(2272);}while(r); -} -S_2920:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(2273);if(r)goto S_2920;} -do{ -*__LONG_B=*__LONG_B- 1 ; -if(!qbevent)break;evnt(2273);}while(r); -} -S_2923:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||new_error){ -if(qbevent){evnt(2274);if(r)goto S_2923;} -do{ -*__LONG_PENDING= 1 ; -if(!qbevent)break;evnt(2275);}while(r); -do{ -*__LONG_I=*__LONG_I2+ 1 ; -if(!qbevent)break;evnt(2276);}while(r); -S_2926:; -if ((-(*__LONG_I>(*__LONG_N- 2 )))||new_error){ -if(qbevent){evnt(2277);if(r)goto S_2926;} -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(2277);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2277);}while(r); -} -do{ -goto fornext_exit_269; -if(!qbevent)break;evnt(2278);}while(r); -} -S_2932:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E->len== 0 )))||new_error){ -if(qbevent){evnt(2280);if(r)goto S_2932;} -do{ -qbs_set(__STRING_E,__STRING_E2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2280);}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(2280);}while(r); -} -do{ -qbs_set(__STRING_E3,__STRING_E2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2282);}while(r); -S_2938:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E2->len> 1 )))||new_error){ -if(qbevent){evnt(2283);if(r)goto S_2938;} -S_2939:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_E2, 1 )== 34 )))||new_error){ -if(qbevent){evnt(2284);if(r)goto S_2939;} -do{ -*__LONG_REMOVECOMMA=func__instrrev(NULL,__STRING_E2,qbs_new_txt_len(",",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2285);}while(r); -do{ -qbs_set(__STRING_E3,qbs_left(__STRING_E2,*__LONG_REMOVECOMMA- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2286);}while(r); -}else{ -do{ -*__LONG_REMOVECOMMA=func_instr(NULL,__STRING_E2,qbs_new_txt_len(",",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2288);}while(r); -do{ -qbs_set(__STRING_E3,func_mid(__STRING_E2,*__LONG_REMOVECOMMA+ 1 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2289);}while(r); -} -} -S_2947:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_READABLE_E->len== 0 )))||new_error){ -if(qbevent){evnt(2293);if(r)goto S_2947;} -do{ -qbs_set(__STRING_READABLE_E,__STRING_E3); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2294);}while(r); -}else{ -do{ -qbs_set(__STRING_READABLE_E,qbs_add(qbs_add(__STRING_READABLE_E,qbs_new_txt_len(" ",1)),__STRING_E3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2296);}while(r); -} -fornext_continue_269:; -} -fornext_exit_269:; -S_2953:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(__STRING_READABLE_E, 1 ),func_chr( 34 ))))||new_error){ -if(qbevent){evnt(2302);if(r)goto S_2953;} -do{ -qbs_set(__STRING_TEMP1,qbs__trim(FUNC_EVALUATE_EXPRESSION(__STRING_READABLE_E))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2303);}while(r); -S_2955:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(qbs_left(__STRING_TEMP1, 5 ),qbs_new_txt_len("ERROR",5)))&(qbs_notequal(__STRING_E,__STRING_TEMP1))))||new_error){ -if(qbevent){evnt(2304);if(r)goto S_2955;} -do{ -qbs_set(__STRING_E,FUNC_LINEFORMAT(__STRING_TEMP1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2305);}while(r); -}else{ -S_2958:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TEMP1,qbs_new_txt_len("ERROR - Division By Zero",24))))||new_error){ -if(qbevent){evnt(2307);if(r)goto S_2958;} -do{ -qbs_set(__STRING_A,__STRING_TEMP1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2307);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2307);}while(r); -} -S_2962:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_TEMP1,qbs_new_txt_len("Improper operations",19),0)))||new_error){ -if(qbevent){evnt(2308);if(r)goto S_2962;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Invalid CONST expression.14",27)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2309);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2309);}while(r); -} -} -} -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2315);}while(r); -S_2969:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(2316);if(r)goto S_2969;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2316);}while(r); -} -do{ -qbs_set(__STRING_E,FUNC_EVALUATECONST(__STRING_E,__LONG_T)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2318);}while(r); -S_2973:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(2319);if(r)goto S_2973;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2319);}while(r); -} -S_2976:; -if ((*__LONG_T&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(2321);if(r)goto S_2976;} -S_2977:; -if ((*__LONG_TYPEOVERRIDE)||new_error){ -if(qbevent){evnt(2323);if(r)goto S_2977;} -S_2978:; -if ((-((*__LONG_TYPEOVERRIDE&*__LONG_ISSTRING)== 0 ))||new_error){ -if(qbevent){evnt(2324);if(r)goto S_2978;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Type mismatch",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2324);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2324);}while(r); -} -} -}else{ -S_2984:; -if ((*__LONG_TYPEOVERRIDE)||new_error){ -if(qbevent){evnt(2329);if(r)goto S_2984;} -S_2985:; -if ((*__LONG_TYPEOVERRIDE&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(2330);if(r)goto S_2985;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Type mismatch",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2330);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2330);}while(r); -} -} -S_2990:; -if ((*__LONG_T&*__LONG_ISFLOAT)||new_error){ -if(qbevent){evnt(2333);if(r)goto S_2990;} -do{ -*__FLOAT_CONSTVAL=string2f(__STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2334);}while(r); -do{ -*__INTEGER64_CONSTVAL=qbr(*__FLOAT_CONSTVAL); -if(!qbevent)break;evnt(2335);}while(r); -do{ -*__UINTEGER64_CONSTVAL=*__INTEGER64_CONSTVAL; -if(!qbevent)break;evnt(2336);}while(r); -}else{ -S_2995:; -if ((((*__LONG_T&*__LONG_ISUNSIGNED))&(-((*__LONG_T& 511 )== 64 )))||new_error){ -if(qbevent){evnt(2338);if(r)goto S_2995;} -do{ -*__UINTEGER64_CONSTVAL=string2ui64(__STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2339);}while(r); -do{ -*__INTEGER64_CONSTVAL=*__UINTEGER64_CONSTVAL; -if(!qbevent)break;evnt(2340);}while(r); -do{ -*__FLOAT_CONSTVAL=*__INTEGER64_CONSTVAL; -if(!qbevent)break;evnt(2341);}while(r); -}else{ -do{ -*__INTEGER64_CONSTVAL=string2i64(__STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2343);}while(r); -do{ -*__FLOAT_CONSTVAL=*__INTEGER64_CONSTVAL; -if(!qbevent)break;evnt(2344);}while(r); -do{ -*__UINTEGER64_CONSTVAL=*__INTEGER64_CONSTVAL; -if(!qbevent)break;evnt(2345);}while(r); -} -} -S_3005:; -if ((*__LONG_TYPEOVERRIDE)||new_error){ -if(qbevent){evnt(2350);if(r)goto S_3005;} -do{ -*__LONG_T=*__LONG_TYPEOVERRIDE; -if(!qbevent)break;evnt(2352);}while(r); -} -} -do{ -*__LONG_CONSTLAST=*__LONG_CONSTLAST+ 1 ; -if(!qbevent)break;evnt(2357);}while(r); -S_3010:; -if ((-(*__LONG_CONSTLAST>*__LONG_CONSTMAX))||new_error){ -if(qbevent){evnt(2358);if(r)goto S_3010;} -do{ -*__LONG_CONSTMAX=*__LONG_CONSTMAX* 2 ; -if(!qbevent)break;evnt(2359);}while(r); -do{ +} +if(!qbevent)break;evnt(1913);}while(r); +} +do{ +tmp_long=array_check(( 0 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*__INTEGER_USERDEFINECOUNT)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1915);}while(r); +do{ +tmp_long=array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*__INTEGER_USERDEFINECOUNT)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),__STRING_R); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1916);}while(r); +do{ +goto LABEL_FINISHEDLINEPP; +if(!qbevent)break;evnt(1917);}while(r); +} +S_2522:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_TEMP, 10 ),qbs_new_txt_len("$UNSTABLE:",10))))||new_error){ +if(qbevent){evnt(1922);if(r)goto S_2522;} +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(1923);}while(r); +S_2524:; +if(qbevent){evnt(1925);if(r)goto S_2524;} +S_2525:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TOKEN,qbs_new_txt_len("MIDI",4))))||new_error){ +if(qbevent){evnt(1926);if(r)goto S_2525;} +S_2526:; +if ((~(*__ULONG_USEMINIAUDIOBACKEND))||new_error){ +if(qbevent){evnt(1927);if(r)goto S_2526;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Midi is not supported with the old OpenAL audio backend.",56)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1928);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(1929);}while(r); +} +do{ +tmp_long=array_check((*__LONG_UNSTABLE_MIDI)-__ARRAY_BYTE_UNSTABLEFLAGS[4],__ARRAY_BYTE_UNSTABLEFLAGS[5]); +if (!new_error) ((int8*)(__ARRAY_BYTE_UNSTABLEFLAGS[0]))[tmp_long]= -1 ; +if(!qbevent)break;evnt(1932);}while(r); +sc_ec_4_end:; +goto sc_239_end; +} +S_2531:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TOKEN,qbs_new_txt_len("HTTP",4))))||new_error){ +if(qbevent){evnt(1934);if(r)goto S_2531;} +do{ +tmp_long=array_check((*__LONG_UNSTABLE_HTTP)-__ARRAY_BYTE_UNSTABLEFLAGS[4],__ARRAY_BYTE_UNSTABLEFLAGS[5]); +if (!new_error) ((int8*)(__ARRAY_BYTE_UNSTABLEFLAGS[0]))[tmp_long]= -1 ; +if(!qbevent)break;evnt(1935);}while(r); +do{ +SUB_REGUNSTABLEHTTP(); +if(!qbevent)break;evnt(1936);}while(r); +sc_ec_5_end:; +goto sc_239_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(1939);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(1940);}while(r); +sc_239_end:; +} +do{ +qbs_set(__STRING_CWHOLELINE,__STRING_WHOLELINE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1944);}while(r); +do{ +qbs_set(__STRING_WHOLELINE,FUNC_ELEUCASE(__STRING_WHOLELINE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1945);}while(r); +do{ +*__INTEGER_ADDMETADYNAMIC= 0 ; +if(!qbevent)break;evnt(1948);}while(r); +do{ +*__INTEGER_ADDMETASTATIC= 0 ; +if(!qbevent)break;evnt(1948);}while(r); +do{ +*__LONG_WHOLELINEN=FUNC_NUMELEMENTS(__STRING_WHOLELINE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1949);}while(r); +S_2544:; +if ((*__LONG_WHOLELINEN)||new_error){ +if(qbevent){evnt(1951);if(r)goto S_2544;} +do{ +*__LONG_WHOLELINEI= 1 ; +if(!qbevent)break;evnt(1953);}while(r); +do{ +qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_WHOLELINE,&(pass240= 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1956);}while(r); +S_2547:; +if ((qbs_cleanup(qbs_tmp_base,(((-(qbs_asc(__STRING_E)>= 48 ))&(-(qbs_asc(__STRING_E)<= 59 ))))|(-(qbs_asc(__STRING_E)== 46 ))))||new_error){ +if(qbevent){evnt(1957);if(r)goto S_2547;} +do{ +*__LONG_WHOLELINEI= 2 ; +if(!qbevent)break;evnt(1957);}while(r); +do{ +goto LABEL_PPSKPL; +if(!qbevent)break;evnt(1957);}while(r); +} +S_2551:; +if ((-(*__LONG_WHOLELINEN>= 2 ))||new_error){ +if(qbevent){evnt(1960);if(r)goto S_2551;} +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(1961);}while(r); +do{ +*__LONG_X3=*__LONG_X2+ 2 ; +if(!qbevent)break;evnt(1961);}while(r); +S_2554:; +if ((-(*__LONG_X2== 0 ))||new_error){ +if(qbevent){evnt(1962);if(r)goto S_2554;} +S_2555:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal((qbs_right(__STRING_WHOLELINE, 2 )),(qbs_add(__STRING1_SP,qbs_new_txt_len(":",1))))))||new_error){ +if(qbevent){evnt(1963);if(r)goto S_2555;} +do{ +*__LONG_X2=__STRING_WHOLELINE->len- 1 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1963);}while(r); +do{ +*__LONG_X3=*__LONG_X2+ 1 ; +if(!qbevent)break;evnt(1963);}while(r); +} +} +S_2560:; +if ((*__LONG_X2)||new_error){ +if(qbevent){evnt(1966);if(r)goto S_2560;} +do{ +qbs_set(__STRING_E,qbs_left(__STRING_WHOLELINE,*__LONG_X2- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1967);}while(r); +S_2562:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_VALIDLABEL(__STRING_E)))||new_error){ +if(qbevent){evnt(1968);if(r)goto S_2562;} +do{ +qbs_set(__STRING_WHOLELINE,qbs_right(__STRING_WHOLELINE,__STRING_WHOLELINE->len-*__LONG_X3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1969);}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(1970);}while(r); +do{ +*__LONG_WHOLELINEN=FUNC_NUMELEMENTS(__STRING_WHOLELINE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1971);}while(r); +do{ +goto LABEL_PPSKPL; +if(!qbevent)break;evnt(1972);}while(r); +} +} +} +LABEL_PPSKPL:; +if(qbevent){evnt(1977);r=0;} +S_2570:; +if ((-(*__LONG_WHOLELINEI<=*__LONG_WHOLELINEN))||new_error){ +if(qbevent){evnt(1978);if(r)goto S_2570;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1980);}while(r); +do{ +qbs_set(__STRING_CA,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1981);}while(r); +LABEL_PPBLDA:; +if(qbevent){evnt(1982);r=0;} +do{ +qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_WHOLELINE,__LONG_WHOLELINEI)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1983);}while(r); +do{ +qbs_set(__STRING_CE,FUNC_GETELEMENT(__STRING_CWHOLELINE,__LONG_WHOLELINEI)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1984);}while(r); +S_2575:; +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)))))||new_error){ +if(qbevent){evnt(1985);if(r)goto S_2575;} +S_2576:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_A->len))||new_error){ +if(qbevent){evnt(1986);if(r)goto S_2576;} +S_2577:; +if (( 0 )||new_error){ +if(qbevent){evnt(1987);if(r)goto S_2577;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip245; +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 (new_error) goto skip245; +skip245: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(1987);}while(r); +} +do{ +*__LONG_N=FUNC_NUMELEMENTS(__STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1988);}while(r); +do{ +qbs_set(__STRING_FIRSTELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass246= 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1989);}while(r); +do{ +qbs_set(__STRING_SECONDELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass247= 2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1990);}while(r); +do{ +qbs_set(__STRING_THIRDELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass248= 3 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(1991);}while(r); +S_2584:; +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)))))))||new_error){ +if(qbevent){evnt(1994);if(r)goto S_2584;} +do{ +*__BYTE_CLOSEDSUBFUNC= -1 ; +if(!qbevent)break;evnt(1995);}while(r); +} +S_2587:; +if ((*__LONG_DECLARINGLIBRARY)||new_error){ +if(qbevent){evnt(1999);if(r)goto S_2587;} +S_2588:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("END",3))))||new_error){ +if(qbevent){evnt(2001);if(r)goto S_2588;} +S_2589:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_N!= 2 ))|(qbs_notequal(__STRING_SECONDELEMENT,qbs_new_txt_len("DECLARE",7)))))||new_error){ +if(qbevent){evnt(2002);if(r)goto S_2589;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected END DECLARE",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2002);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2002);}while(r); +} +do{ +*__LONG_DECLARINGLIBRARY= 0 ; +if(!qbevent)break;evnt(2003);}while(r); +do{ +goto LABEL_FINISHEDLINEPP; +if(!qbevent)break;evnt(2004);}while(r); +} +do{ +*__LONG_DECLARINGLIBRARY= 2 ; +if(!qbevent)break;evnt(2007);}while(r); +S_2597:; +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)))))||new_error){ +if(qbevent){evnt(2009);if(r)goto S_2597;} +do{ +*__LONG_SUBFUNCN=*__LONG_SUBFUNCN- 1 ; +if(!qbevent)break;evnt(2009);}while(r); +do{ +goto LABEL_DECLARESUBFUNC; +if(!qbevent)break;evnt(2009);}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(2011);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2011);}while(r); +} +S_2604:; +if ((*__LONG_DEFININGTYPE)||new_error){ +if(qbevent){evnt(2015);if(r)goto S_2604;} +do{ +*__LONG_I=*__LONG_DEFININGTYPE; +if(!qbevent)break;evnt(2016);}while(r); +S_2606:; +if ((-(*__LONG_N>= 1 ))||new_error){ +if(qbevent){evnt(2018);if(r)goto S_2606;} +S_2607:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("END",3))))||new_error){ +if(qbevent){evnt(2019);if(r)goto S_2607;} +S_2608:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_N!= 2 ))|(qbs_notequal(__STRING_SECONDELEMENT,qbs_new_txt_len("TYPE",4)))))||new_error){ +if(qbevent){evnt(2020);if(r)goto S_2608;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected END TYPE",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2020);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2020);}while(r); +} +S_2612:; +if ((-(((int32*)(__ARRAY_LONG_UDTXNEXT[0]))[array_check((*__LONG_I)-__ARRAY_LONG_UDTXNEXT[4],__ARRAY_LONG_UDTXNEXT[5])]== 0 ))||new_error){ +if(qbevent){evnt(2021);if(r)goto S_2612;} +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(2021);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2021);}while(r); +} +do{ +*__LONG_DEFININGTYPE= 0 ; +if(!qbevent)break;evnt(2022);}while(r); +do{ +qbs_set(__STRING_SIZ,FUNC_STR2(&(pass249=((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*__LONG_I)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])]/ 8 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2025);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass250=*__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(2026);}while(r); +do{ +goto LABEL_FINISHEDLINEPP; +if(!qbevent)break;evnt(2029);}while(r); +} +} +S_2622:; +if ((-(*__LONG_N< 3 ))||new_error){ +if(qbevent){evnt(2033);if(r)goto S_2622;} +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(2033);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2033);}while(r); +} +do{ +qbs_set(__STRING_N,__STRING_FIRSTELEMENT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2034);}while(r); +S_2627:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_N,qbs_new_txt_len("AS",2))))||new_error){ +if(qbevent){evnt(2036);if(r)goto S_2627;} +do{ +*__LONG_LASTTYPEELEMENT=*__LONG_LASTTYPEELEMENT+ 1 ; +if(!qbevent)break;evnt(2038);}while(r); +do{ +*__LONG_I2=*__LONG_LASTTYPEELEMENT; +if(!qbevent)break;evnt(2039);}while(r); +S_2630:; +while((-(*__LONG_I2>func_ubound(__ARRAY_LONG_UDTENEXT,1,1)))||new_error){ +if(qbevent){evnt(2040);if(r)goto S_2630;} +do{ +SUB_INCREASEUDTARRAYS(); +if(!qbevent)break;evnt(2040);}while(r); +ww_continue_251:; +} +ww_exit_251:; +do{ +tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_UDTENEXT[0]))[tmp_long]= 0 ; +if(!qbevent)break;evnt(2041);}while(r); +do{ +*__LONG_II= 2 ; +if(!qbevent)break;evnt(2043);}while(r); +do{ +tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTEARRAYELEMENTS[4],__ARRAY_LONG_UDTEARRAYELEMENTS[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_UDTEARRAYELEMENTS[0]))[tmp_long]= 0 ; +if(!qbevent)break;evnt(2045);}while(r); +S_2636:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_II>=*__LONG_N))|(qbs_notequal(FUNC_GETELEMENT(__STRING_A,__LONG_II),qbs_new_txt_len("AS",2)))))||new_error){ +if(qbevent){evnt(2047);if(r)goto S_2636;} +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(2047);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2047);}while(r); +} +do{ +qbs_set(__STRING_T,FUNC_GETELEMENTS(__STRING_A,&(pass252=*__LONG_II+ 1 ),__LONG_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2048);}while(r); +S_2641:; +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)))))||new_error){ +if(qbevent){evnt(2050);if(r)goto S_2641;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Invalid self-reference",22)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2050);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2050);}while(r); +} +do{ +*__LONG_TYP=FUNC_TYPNAME2TYP(__STRING_T); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2051);}while(r); +S_2646:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(2052);if(r)goto S_2646;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2052);}while(r); +} +S_2649:; +if ((-(*__LONG_TYP== 0 ))||new_error){ +if(qbevent){evnt(2053);if(r)goto S_2649;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Undefined type",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2053);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2053);}while(r); +} +do{ +*__LONG_TYPSIZE=*__LONG_TYPNAME2TYPSIZE; +if(!qbevent)break;evnt(2054);}while(r); +S_2654:; +if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(__STRING_N)== 0 )))||new_error){ +if(qbevent){evnt(2056);if(r)goto S_2654;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Invalid name",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2056);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2056);}while(r); +} +do{ +tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTENAME[4],__ARRAY_STRING256_UDTENAME[5]); +if (!new_error) 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(2057);}while(r); +do{ +tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTECNAME[4],__ARRAY_STRING256_UDTECNAME[5]); +if (!new_error) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTECNAME[0]))[tmp_long*256],256,1),FUNC_GETELEMENT(__STRING_CA,&(pass253= 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2058);}while(r); +LABEL_NORMALTYPEBLOCK:; +if(qbevent){evnt(2059);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(2060);}while(r); +do{ +tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_UDTETYPE[0]))[tmp_long]=*__LONG_TYP; +if(!qbevent)break;evnt(2061);}while(r); +do{ +tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTETYPESIZE[4],__ARRAY_LONG_UDTETYPESIZE[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_UDTETYPESIZE[0]))[tmp_long]=*__LONG_TYPSIZE; +if(!qbevent)break;evnt(2062);}while(r); +do{ +qbs_set(__STRING_HASHNAME,__STRING_N); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2064);}while(r); +do{ +*__LONG_HASHCHKFLAGS= 8 + 512 ; +if(!qbevent)break;evnt(2067);}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(2068);}while(r); +S_2666:; +while((*__LONG_HASHRES)||new_error){ +if(qbevent){evnt(2069);if(r)goto S_2666;} +S_2667:; +if ((*__LONG_HASHRESFLAGS& 512 )||new_error){ +if(qbevent){evnt(2070);if(r)goto S_2667;} +S_2668:; +if ((-(*__LONG_HASHRESREF==*__LONG_I))||new_error){ +if(qbevent){evnt(2071);if(r)goto S_2668;} +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(2071);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2071);}while(r); +} +} +S_2673:; +if ((*__LONG_HASHRESFLAGS& 8 )||new_error){ +if(qbevent){evnt(2073);if(r)goto S_2673;} +S_2674:; +if ((*__LONG_HASHRESFLAGS&( 4 + 32 + 16 + 8192 ))||new_error){ +if(qbevent){evnt(2074);if(r)goto S_2674;} +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(2074);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2074);}while(r); +} +} +S_2679:; +if ((-(*__LONG_HASHRES!= 1 ))||new_error){ +if(qbevent){evnt(2076);if(r)goto S_2679;} +do{ +*__LONG_HASHRES=FUNC_HASHFINDCONT(__LONG_HASHRESFLAGS,__LONG_HASHRESREF); +if(!qbevent)break;evnt(2076);}while(r); +}else{ +do{ +*__LONG_HASHRES= 0 ; +if(!qbevent)break;evnt(2076);}while(r); +} +dl_continue_255:; +} +dl_exit_255:; +do{ +SUB_HASHADD(__STRING_HASHNAME,&(pass256= 512 ),__LONG_I); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2079);}while(r); +S_2686:; +if ((*__LONG_TYP&*__LONG_ISUDT)||new_error){ +if(qbevent){evnt(2082);if(r)goto S_2686;} +do{ +*__LONG_U=*__LONG_TYP& 511 ; +if(!qbevent)break;evnt(2083);}while(r); +do{ +tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5]); +if (!new_error) ((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(2084);}while(r); +S_2689:; +if ((((int16*)(__ARRAY_INTEGER_UDTXBYTEALIGN[0]))[array_check((*__LONG_U)-__ARRAY_INTEGER_UDTXBYTEALIGN[4],__ARRAY_INTEGER_UDTXBYTEALIGN[5])])||new_error){ +if(qbevent){evnt(2085);if(r)goto S_2689;} +do{ +tmp_long=array_check((*__LONG_I)-__ARRAY_INTEGER_UDTXBYTEALIGN[4],__ARRAY_INTEGER_UDTXBYTEALIGN[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_UDTXBYTEALIGN[0]))[tmp_long]= 1 ; +if(!qbevent)break;evnt(2085);}while(r); +do{ +tmp_long=array_check((*__LONG_I2)-__ARRAY_INTEGER_UDTEBYTEALIGN[4],__ARRAY_INTEGER_UDTEBYTEALIGN[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_UDTEBYTEALIGN[0]))[tmp_long]= 1 ; +if(!qbevent)break;evnt(2085);}while(r); +} +S_2693:; +if ((((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*__LONG_U)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])])||new_error){ +if(qbevent){evnt(2086);if(r)goto S_2693;} +do{ +tmp_long=array_check((*__LONG_I)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[tmp_long]= -1 ; +if(!qbevent)break;evnt(2086);}while(r); +} +}else{ +S_2697:; +if (((*__LONG_TYP&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(2088);if(r)goto S_2697;} +S_2698:; +if ((-((*__LONG_TYP&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ +if(qbevent){evnt(2089);if(r)goto S_2698;} +do{ +tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_UDTESIZE[0]))[tmp_long]=*__LONG_OFFSETTYPE& 511 ; +if(!qbevent)break;evnt(2090);}while(r); +do{ +tmp_long=array_check((*__LONG_I)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[tmp_long]= -1 ; +if(!qbevent)break;evnt(2091);}while(r); +}else{ +do{ +tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_UDTESIZE[0]))[tmp_long]=*__LONG_TYPSIZE* 8 ; +if(!qbevent)break;evnt(2093);}while(r); +} +do{ +tmp_long=array_check((*__LONG_I)-__ARRAY_INTEGER_UDTXBYTEALIGN[4],__ARRAY_INTEGER_UDTXBYTEALIGN[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_UDTXBYTEALIGN[0]))[tmp_long]= 1 ; +if(!qbevent)break;evnt(2095);}while(r); +do{ +tmp_long=array_check((*__LONG_I2)-__ARRAY_INTEGER_UDTEBYTEALIGN[4],__ARRAY_INTEGER_UDTEBYTEALIGN[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_UDTEBYTEALIGN[0]))[tmp_long]= 1 ; +if(!qbevent)break;evnt(2095);}while(r); +}else{ +do{ +tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_UDTESIZE[0]))[tmp_long]=*__LONG_TYP& 511 ; +if(!qbevent)break;evnt(2097);}while(r); +S_2708:; +if ((-((*__LONG_TYP&*__LONG_ISOFFSETINBITS)== 0 ))||new_error){ +if(qbevent){evnt(2098);if(r)goto S_2708;} +do{ +tmp_long=array_check((*__LONG_I)-__ARRAY_INTEGER_UDTXBYTEALIGN[4],__ARRAY_INTEGER_UDTXBYTEALIGN[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_UDTXBYTEALIGN[0]))[tmp_long]= 1 ; +if(!qbevent)break;evnt(2098);}while(r); +do{ +tmp_long=array_check((*__LONG_I2)-__ARRAY_INTEGER_UDTEBYTEALIGN[4],__ARRAY_INTEGER_UDTEBYTEALIGN[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_UDTEBYTEALIGN[0]))[tmp_long]= 1 ; +if(!qbevent)break;evnt(2098);}while(r); +} +} +} +S_2714:; +if ((((int16*)(__ARRAY_INTEGER_UDTEBYTEALIGN[0]))[array_check((*__LONG_I2)-__ARRAY_INTEGER_UDTEBYTEALIGN[4],__ARRAY_INTEGER_UDTEBYTEALIGN[5])])||new_error){ +if(qbevent){evnt(2103);if(r)goto S_2714;} +S_2715:; +if ((((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*__LONG_I)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])]% 8 )||new_error){ +if(qbevent){evnt(2104);if(r)goto S_2715;} +do{ +tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[tmp_long]=((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*__LONG_I)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])]+( 8 -(((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*__LONG_I)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])]% 8 )); +if(!qbevent)break;evnt(2105);}while(r); +} +} +do{ +tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5]); +if (!new_error) ((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(2108);}while(r); +S_2720:; +if ((-(((int32*)(__ARRAY_LONG_UDTXNEXT[0]))[array_check((*__LONG_I)-__ARRAY_LONG_UDTXNEXT[4],__ARRAY_LONG_UDTXNEXT[5])]== 0 ))||new_error){ +if(qbevent){evnt(2111);if(r)goto S_2720;} +do{ +tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_UDTXNEXT[4],__ARRAY_LONG_UDTXNEXT[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_UDTXNEXT[0]))[tmp_long]=*__LONG_I2; +if(!qbevent)break;evnt(2112);}while(r); +}else{ +do{ +tmp_long=array_check((*__LONG_I2- 1 )-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_UDTENEXT[0]))[tmp_long]=*__LONG_I2; +if(!qbevent)break;evnt(2114);}while(r); +} +S_2725:; +if ((*__LONG_NEWASTYPEBLOCKSYNTAX)||new_error){ +if(qbevent){evnt(2118);if(r)goto S_2725;} +do{ +#include "ret0.txt" +if(!qbevent)break;evnt(2118);}while(r); +} +do{ +goto LABEL_FINISHEDLINEPP; +if(!qbevent)break;evnt(2119);}while(r); +}else{ +do{ +*__LONG_II= 2 ; +if(!qbevent)break;evnt(2122);}while(r); +S_2731:; +if ((-(*__LONG_II>=*__LONG_N))||new_error){ +if(qbevent){evnt(2124);if(r)goto S_2731;} +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(2124);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2124);}while(r); +} +do{ +qbs_set(__STRING_PREVIOUSELEMENT,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2125);}while(r); +do{ +qbs_set(__STRING_T,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2126);}while(r); +do{ +qbs_set(__STRING_LASTELEMENT,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2127);}while(r); +LABEL_BUILDTYPENAME:; +if(qbevent){evnt(2128);r=0;} +do{ +qbs_set(__STRING_LASTELEMENT,FUNC_GETELEMENT(__STRING_A,__LONG_II)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2129);}while(r); +S_2739:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(__STRING_LASTELEMENT,qbs_new_txt_len(",",1)))&(qbs_notequal(__STRING_LASTELEMENT,qbs_new_txt_len("",0)))))||new_error){ +if(qbevent){evnt(2130);if(r)goto S_2739;} +do{ +qbs_set(__STRING_N,__STRING_LASTELEMENT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2131);}while(r); +do{ +qbs_set(__STRING_CN,FUNC_GETELEMENT(__STRING_CA,__LONG_II)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2132);}while(r); +S_2742:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_PREVIOUSELEMENT->len))||new_error){ +if(qbevent){evnt(2133);if(r)goto S_2742;} +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(2133);}while(r); +} +do{ +qbs_set(__STRING_PREVIOUSELEMENT,__STRING_N); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2134);}while(r); +do{ +qbs_set(__STRING_LASTELEMENT,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2135);}while(r); +do{ +*__LONG_II=*__LONG_II+ 1 ; +if(!qbevent)break;evnt(2136);}while(r); +do{ +goto LABEL_BUILDTYPENAME; +if(!qbevent)break;evnt(2137);}while(r); +} +do{ +qbs_set(__STRING_T,qbs_rtrim(__STRING_T)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2140);}while(r); +S_2751:; +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)))))||new_error){ +if(qbevent){evnt(2141);if(r)goto S_2751;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Invalid self-reference",22)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2141);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2141);}while(r); +} +do{ +*__LONG_TYP=FUNC_TYPNAME2TYP(__STRING_T); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2142);}while(r); +S_2756:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(2143);if(r)goto S_2756;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2143);}while(r); +} +S_2759:; +if ((-(*__LONG_TYP== 0 ))||new_error){ +if(qbevent){evnt(2144);if(r)goto S_2759;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Undefined type",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2144);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2144);}while(r); +} +do{ +*__LONG_TYPSIZE=*__LONG_TYPNAME2TYPSIZE; +if(!qbevent)break;evnt(2145);}while(r); +do{ +qbs_set(__STRING_PREVIOUSELEMENT,__STRING_LASTELEMENT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2147);}while(r); +LABEL_NEXTTYPEELEMENT:; +if(qbevent){evnt(2148);r=0;} +do{ +*__LONG_LASTTYPEELEMENT=*__LONG_LASTTYPEELEMENT+ 1 ; +if(!qbevent)break;evnt(2149);}while(r); +do{ +*__LONG_I2=*__LONG_LASTTYPEELEMENT; +if(!qbevent)break;evnt(2150);}while(r); +S_2767:; +while((-(*__LONG_I2>func_ubound(__ARRAY_LONG_UDTENEXT,1,1)))||new_error){ +if(qbevent){evnt(2151);if(r)goto S_2767;} +do{ +SUB_INCREASEUDTARRAYS(); +if(!qbevent)break;evnt(2151);}while(r); +ww_continue_258:; +} +ww_exit_258:; +do{ +tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_UDTENEXT[0]))[tmp_long]= 0 ; +if(!qbevent)break;evnt(2152);}while(r); +do{ +tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_UDTEARRAYELEMENTS[4],__ARRAY_LONG_UDTEARRAYELEMENTS[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_UDTEARRAYELEMENTS[0]))[tmp_long]= 0 ; +if(!qbevent)break;evnt(2153);}while(r); +do{ +tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTENAME[4],__ARRAY_STRING256_UDTENAME[5]); +if (!new_error) 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(2155);}while(r); +do{ +tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING256_UDTECNAME[4],__ARRAY_STRING256_UDTECNAME[5]); +if (!new_error) 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(2156);}while(r); +S_2774:; +if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(__STRING_N)== 0 )))||new_error){ +if(qbevent){evnt(2158);if(r)goto S_2774;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Invalid name",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2158);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2158);}while(r); +} +do{ +*__LONG_NEWASTYPEBLOCKSYNTAX= -1 ; +if(!qbevent)break;evnt(2160);}while(r); +do{ +return_point[next_return_point++]=1; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_NORMALTYPEBLOCK; +RETURN_1:; +if(!qbevent)break;evnt(2161);}while(r); +do{ +*__LONG_NEWASTYPEBLOCKSYNTAX= 0 ; +if(!qbevent)break;evnt(2162);}while(r); +LABEL_GETNEXTELEMENT:; +if(qbevent){evnt(2164);r=0;} +do{ +*__LONG_II=*__LONG_II+ 1 ; +if(!qbevent)break;evnt(2165);}while(r); +do{ +qbs_set(__STRING_LASTELEMENT,FUNC_GETELEMENT(__STRING_A,__LONG_II)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2166);}while(r); +S_2783:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_LASTELEMENT,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(2167);if(r)goto S_2783;} +do{ +goto LABEL_FINISHEDLINEPP; +if(!qbevent)break;evnt(2167);}while(r); +} +S_2786:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_II==*__LONG_N))&(qbs_equal(__STRING_LASTELEMENT,qbs_new_txt_len(",",1)))))||new_error){ +if(qbevent){evnt(2168);if(r)goto S_2786;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected element-name",21)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2168);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2168);}while(r); +} +S_2790:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_LASTELEMENT,qbs_new_txt_len(",",1))))||new_error){ +if(qbevent){evnt(2169);if(r)goto S_2790;} +S_2791:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_PREVIOUSELEMENT,qbs_new_txt_len(",",1))))||new_error){ +if(qbevent){evnt(2170);if(r)goto S_2791;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected element-name",21)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2170);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2170);}while(r); +} +do{ +qbs_set(__STRING_PREVIOUSELEMENT,__STRING_LASTELEMENT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2171);}while(r); +do{ +goto LABEL_GETNEXTELEMENT; +if(!qbevent)break;evnt(2172);}while(r); +} +do{ +qbs_set(__STRING_N,__STRING_LASTELEMENT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2174);}while(r); +S_2799:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_PREVIOUSELEMENT,qbs_new_txt_len(",",1))))||new_error){ +if(qbevent){evnt(2175);if(r)goto S_2799;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected ,",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2175);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2175);}while(r); +} +do{ +qbs_set(__STRING_PREVIOUSELEMENT,__STRING_LASTELEMENT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2176);}while(r); +do{ +qbs_set(__STRING_CN,FUNC_GETELEMENT(__STRING_CA,__LONG_II)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2177);}while(r); +do{ +goto LABEL_NEXTTYPEELEMENT; +if(!qbevent)break;evnt(2178);}while(r); +} +} +S_2808:; +if ((*__LONG_DEFININGTYPE&(-(*__LONG_N>= 1 )))||new_error){ +if(qbevent){evnt(2182);if(r)goto S_2808;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected END TYPE",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2182);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2182);}while(r); +} +S_2812:; +if ((-(*__LONG_N>= 1 ))||new_error){ +if(qbevent){evnt(2184);if(r)goto S_2812;} +S_2813:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("TYPE",4))))||new_error){ +if(qbevent){evnt(2185);if(r)goto S_2813;} +S_2814:; +if ((-(*__LONG_N!= 2 ))||new_error){ +if(qbevent){evnt(2186);if(r)goto S_2814;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected TYPE typename",22)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2186);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2186);}while(r); +} +do{ +*__LONG_LASTTYPE=*__LONG_LASTTYPE+ 1 ; +if(!qbevent)break;evnt(2187);}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(2188);}while(r); +do{ +*__LONG_DEFININGTYPE=*__LONG_LASTTYPE; +if(!qbevent)break;evnt(2189);}while(r); +do{ +*__LONG_I=*__LONG_DEFININGTYPE; +if(!qbevent)break;evnt(2190);}while(r); +S_2822:; +while((-(*__LONG_I>func_ubound(__ARRAY_LONG_UDTENEXT,1,1)))||new_error){ +if(qbevent){evnt(2191);if(r)goto S_2822;} +do{ +SUB_INCREASEUDTARRAYS(); +if(!qbevent)break;evnt(2191);}while(r); +ww_continue_259:; +} +ww_exit_259:; +S_2825:; +if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(__STRING_SECONDELEMENT)== 0 )))||new_error){ +if(qbevent){evnt(2192);if(r)goto S_2825;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Invalid name",12)); +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{ +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(2193);}while(r); +do{ +tmp_long=array_check((*__LONG_I)-__ARRAY_STRING256_UDTXNAME[4],__ARRAY_STRING256_UDTXNAME[5]); +if (!new_error) 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(2194);}while(r); +do{ +tmp_long=array_check((*__LONG_I)-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]); +if (!new_error) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[tmp_long*256],256,1),FUNC_GETELEMENT(__STRING_CA,&(pass261= 2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2195);}while(r); +do{ +tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_UDTXNEXT[4],__ARRAY_LONG_UDTXNEXT[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_UDTXNEXT[0]))[tmp_long]= 0 ; +if(!qbevent)break;evnt(2196);}while(r); +do{ +tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[tmp_long]= 0 ; +if(!qbevent)break;evnt(2197);}while(r); +do{ +tmp_long=array_check((*__LONG_I)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[tmp_long]= 0 ; +if(!qbevent)break;evnt(2198);}while(r); +do{ +qbs_set(__STRING_HASHNAME,__STRING_SECONDELEMENT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2200);}while(r); +do{ +*__LONG_HASHFLAGS= 256 ; +if(!qbevent)break;evnt(2201);}while(r); +do{ +*__LONG_HASHCHKFLAGS= 8 + 64 + 128 + 256 ; +if(!qbevent)break;evnt(2203);}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(2204);}while(r); +S_2839:; +while((*__LONG_HASHRES)||new_error){ +if(qbevent){evnt(2205);if(r)goto S_2839;} +do{ +*__LONG_ALLOW= 0 ; +if(!qbevent)break;evnt(2206);}while(r); +S_2841:; +if ((*__LONG_HASHRESFLAGS&( 64 + 128 ))||new_error){ +if(qbevent){evnt(2207);if(r)goto S_2841;} +do{ +*__LONG_ALLOW= 1 ; +if(!qbevent)break;evnt(2208);}while(r); +} +S_2844:; +if ((*__LONG_HASHRESFLAGS& 8 )||new_error){ +if(qbevent){evnt(2210);if(r)goto S_2844;} +S_2845:; +if ((-((*__LONG_HASHRESFLAGS&( 4 + 16 + 32 + 16384 ))== 0 ))||new_error){ +if(qbevent){evnt(2211);if(r)goto S_2845;} +do{ +*__LONG_ALLOW= 1 ; +if(!qbevent)break;evnt(2211);}while(r); +} +} +S_2849:; +if ((-(*__LONG_ALLOW== 0 ))||new_error){ +if(qbevent){evnt(2213);if(r)goto S_2849;} +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(2213);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2213);}while(r); +} +S_2853:; +if ((-(*__LONG_HASHRES!= 1 ))||new_error){ +if(qbevent){evnt(2214);if(r)goto S_2853;} +do{ +*__LONG_HASHRES=FUNC_HASHFINDCONT(__LONG_HASHRESFLAGS,__LONG_HASHRESREF); +if(!qbevent)break;evnt(2214);}while(r); +}else{ +do{ +*__LONG_HASHRES= 0 ; +if(!qbevent)break;evnt(2214);}while(r); +} +dl_continue_262:; +} +dl_exit_262:; +do{ +SUB_HASHADD(__STRING_HASHNAME,__LONG_HASHFLAGS,__LONG_I); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2218);}while(r); +do{ +goto LABEL_FINISHEDLINEPP; +if(!qbevent)break;evnt(2220);}while(r); +} +} +S_2863:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_N>= 1 ))&(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("CONST",5)))))||new_error){ +if(qbevent){evnt(2228);if(r)goto S_2863;} +S_2864:; +if (((-(*__LONG_SUBFUNCN> 0 ))&(-(*__BYTE_CLOSEDSUBFUNC!= 0 )))||new_error){ +if(qbevent){evnt(2233);if(r)goto S_2864;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Statement cannot be placed between SUB/FUNCTIONs",48)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2233);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2233);}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(2236);}while(r); +S_2869:; +if ((*__LONG_I2)||new_error){ +if(qbevent){evnt(2237);if(r)goto S_2869;} +S_2870:; +do{ +if(qbevent){evnt(2238);if(r)goto S_2870;} +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(2239);}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(2240);}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(2241);}while(r); +S_2874:; +dl_continue_263:; +}while((!(-(*__LONG_I2== 0 )))&&(!new_error)); +dl_exit_263:; +if(qbevent){evnt(2242);if(r)goto S_2874;} +do{ +*__LONG_N=FUNC_NUMELEMENTS(__STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2243);}while(r); +do{ +qbs_set(__STRING_FIRSTELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass266= 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2244);}while(r); +do{ +qbs_set(__STRING_SECONDELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass267= 2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2244);}while(r); +do{ +qbs_set(__STRING_THIRDELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass268= 3 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2244);}while(r); +} +S_2880:; +if ((-(*__LONG_N< 3 ))||new_error){ +if(qbevent){evnt(2247);if(r)goto S_2880;} +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(2247);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2247);}while(r); +} +do{ +*__LONG_I= 2 ; +if(!qbevent)break;evnt(2248);}while(r); +LABEL_CONSTDEFPENDINGPP:; +if(qbevent){evnt(2249);r=0;} +do{ +*__LONG_PENDING= 0 ; +if(!qbevent)break;evnt(2250);}while(r); +do{ +qbs_set(__STRING_N,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2252);}while(r); +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(2252);}while(r); +do{ +*__LONG_TYPEOVERRIDE= 0 ; +if(!qbevent)break;evnt(2253);}while(r); +do{ +qbs_set(__STRING_S,FUNC_REMOVESYMBOL(__STRING_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2254);}while(r); +S_2890:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(2255);if(r)goto S_2890;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2255);}while(r); +} +S_2893:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_S,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(2256);if(r)goto S_2893;} +do{ +*__LONG_TYPEOVERRIDE=FUNC_TYPNAME2TYP(__STRING_S); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2257);}while(r); +S_2895:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(2258);if(r)goto S_2895;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2258);}while(r); +} +S_2898:; +if ((*__LONG_TYPEOVERRIDE&*__LONG_ISFIXEDLENGTH)||new_error){ +if(qbevent){evnt(2259);if(r)goto S_2898;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Invalid constant type",21)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2259);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2259);}while(r); +} +S_2902:; +if ((-(*__LONG_TYPEOVERRIDE== 0 ))||new_error){ +if(qbevent){evnt(2260);if(r)goto S_2902;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Invalid constant type",21)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2260);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2260);}while(r); +} +} +S_2907:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,__LONG_I),qbs_new_txt_len("=",1))))||new_error){ +if(qbevent){evnt(2263);if(r)goto S_2907;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected =",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2263);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2263);}while(r); +} +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(2264);}while(r); +do{ +qbs_set(__STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2267);}while(r); +do{ +qbs_set(__STRING_READABLE_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2268);}while(r); +do{ +*__LONG_B= 0 ; +if(!qbevent)break;evnt(2269);}while(r); +S_2915:; +fornext_value270=*__LONG_I; +fornext_finalvalue270=*__LONG_N; +fornext_step270= 1 ; +if (fornext_step270<0) fornext_step_negative270=1; else fornext_step_negative270=0; +if (new_error) goto fornext_error270; +goto fornext_entrylabel270; +while(1){ +fornext_value270=fornext_step270+(*__LONG_I2); +fornext_entrylabel270: +*__LONG_I2=fornext_value270; +if (fornext_step_negative270){ +if (fornext_value270fornext_finalvalue270) break; +} +fornext_error270:; +if(qbevent){evnt(2270);if(r)goto S_2915;} +do{ +qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2271);}while(r); +S_2917:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(2272);if(r)goto S_2917;} +do{ +*__LONG_B=*__LONG_B+ 1 ; +if(!qbevent)break;evnt(2272);}while(r); +} +S_2920:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(2273);if(r)goto S_2920;} +do{ +*__LONG_B=*__LONG_B- 1 ; +if(!qbevent)break;evnt(2273);}while(r); +} +S_2923:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||new_error){ +if(qbevent){evnt(2274);if(r)goto S_2923;} +do{ +*__LONG_PENDING= 1 ; +if(!qbevent)break;evnt(2275);}while(r); +do{ +*__LONG_I=*__LONG_I2+ 1 ; +if(!qbevent)break;evnt(2276);}while(r); +S_2926:; +if ((-(*__LONG_I>(*__LONG_N- 2 )))||new_error){ +if(qbevent){evnt(2277);if(r)goto S_2926;} +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(2277);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2277);}while(r); +} +do{ +goto fornext_exit_269; +if(!qbevent)break;evnt(2278);}while(r); +} +S_2932:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E->len== 0 )))||new_error){ +if(qbevent){evnt(2280);if(r)goto S_2932;} +do{ +qbs_set(__STRING_E,__STRING_E2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2280);}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(2280);}while(r); +} +do{ +qbs_set(__STRING_E3,__STRING_E2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2282);}while(r); +S_2938:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E2->len> 1 )))||new_error){ +if(qbevent){evnt(2283);if(r)goto S_2938;} +S_2939:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_E2, 1 )== 34 )))||new_error){ +if(qbevent){evnt(2284);if(r)goto S_2939;} +do{ +*__LONG_REMOVECOMMA=func__instrrev(NULL,__STRING_E2,qbs_new_txt_len(",",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2285);}while(r); +do{ +qbs_set(__STRING_E3,qbs_left(__STRING_E2,*__LONG_REMOVECOMMA- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2286);}while(r); +}else{ +do{ +*__LONG_REMOVECOMMA=func_instr(NULL,__STRING_E2,qbs_new_txt_len(",",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2288);}while(r); +do{ +qbs_set(__STRING_E3,func_mid(__STRING_E2,*__LONG_REMOVECOMMA+ 1 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2289);}while(r); +} +} +S_2947:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_READABLE_E->len== 0 )))||new_error){ +if(qbevent){evnt(2293);if(r)goto S_2947;} +do{ +qbs_set(__STRING_READABLE_E,__STRING_E3); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2294);}while(r); +}else{ +do{ +qbs_set(__STRING_READABLE_E,qbs_add(qbs_add(__STRING_READABLE_E,qbs_new_txt_len(" ",1)),__STRING_E3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2296);}while(r); +} +fornext_continue_269:; +} +fornext_exit_269:; +S_2953:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(__STRING_READABLE_E, 1 ),func_chr( 34 ))))||new_error){ +if(qbevent){evnt(2302);if(r)goto S_2953;} +do{ +qbs_set(__STRING_TEMP1,qbs__trim(FUNC_EVALUATE_EXPRESSION(__STRING_READABLE_E))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2303);}while(r); +S_2955:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(qbs_left(__STRING_TEMP1, 5 ),qbs_new_txt_len("ERROR",5)))&(qbs_notequal(__STRING_E,__STRING_TEMP1))))||new_error){ +if(qbevent){evnt(2304);if(r)goto S_2955;} +do{ +qbs_set(__STRING_E,FUNC_LINEFORMAT(__STRING_TEMP1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2305);}while(r); +}else{ +S_2958:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TEMP1,qbs_new_txt_len("ERROR - Division By Zero",24))))||new_error){ +if(qbevent){evnt(2307);if(r)goto S_2958;} +do{ +qbs_set(__STRING_A,__STRING_TEMP1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2307);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2307);}while(r); +} +S_2962:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_TEMP1,qbs_new_txt_len("Improper operations",19),0)))||new_error){ +if(qbevent){evnt(2308);if(r)goto S_2962;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Invalid CONST expression.14",27)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2309);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2309);}while(r); +} +} +} +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2315);}while(r); +S_2969:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(2316);if(r)goto S_2969;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2316);}while(r); +} +do{ +qbs_set(__STRING_E,FUNC_EVALUATECONST(__STRING_E,__LONG_T)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2318);}while(r); +S_2973:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(2319);if(r)goto S_2973;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2319);}while(r); +} +S_2976:; +if ((*__LONG_T&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(2321);if(r)goto S_2976;} +S_2977:; +if ((*__LONG_TYPEOVERRIDE)||new_error){ +if(qbevent){evnt(2323);if(r)goto S_2977;} +S_2978:; +if ((-((*__LONG_TYPEOVERRIDE&*__LONG_ISSTRING)== 0 ))||new_error){ +if(qbevent){evnt(2324);if(r)goto S_2978;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Type mismatch",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2324);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2324);}while(r); +} +} +}else{ +S_2984:; +if ((*__LONG_TYPEOVERRIDE)||new_error){ +if(qbevent){evnt(2329);if(r)goto S_2984;} +S_2985:; +if ((*__LONG_TYPEOVERRIDE&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(2330);if(r)goto S_2985;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Type mismatch",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2330);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2330);}while(r); +} +} +S_2990:; +if ((*__LONG_T&*__LONG_ISFLOAT)||new_error){ +if(qbevent){evnt(2333);if(r)goto S_2990;} +do{ +*__FLOAT_CONSTVAL=string2f(__STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2334);}while(r); +do{ +*__INTEGER64_CONSTVAL=qbr(*__FLOAT_CONSTVAL); +if(!qbevent)break;evnt(2335);}while(r); +do{ +*__UINTEGER64_CONSTVAL=*__INTEGER64_CONSTVAL; +if(!qbevent)break;evnt(2336);}while(r); +}else{ +S_2995:; +if ((((*__LONG_T&*__LONG_ISUNSIGNED))&(-((*__LONG_T& 511 )== 64 )))||new_error){ +if(qbevent){evnt(2338);if(r)goto S_2995;} +do{ +*__UINTEGER64_CONSTVAL=string2ui64(__STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2339);}while(r); +do{ +*__INTEGER64_CONSTVAL=*__UINTEGER64_CONSTVAL; +if(!qbevent)break;evnt(2340);}while(r); +do{ +*__FLOAT_CONSTVAL=*__INTEGER64_CONSTVAL; +if(!qbevent)break;evnt(2341);}while(r); +}else{ +do{ +*__INTEGER64_CONSTVAL=string2i64(__STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2343);}while(r); +do{ +*__FLOAT_CONSTVAL=*__INTEGER64_CONSTVAL; +if(!qbevent)break;evnt(2344);}while(r); +do{ +*__UINTEGER64_CONSTVAL=*__INTEGER64_CONSTVAL; +if(!qbevent)break;evnt(2345);}while(r); +} +} +S_3005:; +if ((*__LONG_TYPEOVERRIDE)||new_error){ +if(qbevent){evnt(2350);if(r)goto S_3005;} +do{ +*__LONG_T=*__LONG_TYPEOVERRIDE; +if(!qbevent)break;evnt(2352);}while(r); +} +} +do{ +*__LONG_CONSTLAST=*__LONG_CONSTLAST+ 1 ; +if(!qbevent)break;evnt(2357);}while(r); +S_3010:; +if ((-(*__LONG_CONSTLAST>*__LONG_CONSTMAX))||new_error){ +if(qbevent){evnt(2358);if(r)goto S_3010;} +do{ +*__LONG_CONSTMAX=*__LONG_CONSTMAX* 2 ; +if(!qbevent)break;evnt(2359);}while(r); +do{ if (__ARRAY_STRING_CONSTNAME[2]&2){ error(10); @@ -12213,9 +12213,9 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTNAME[0]))[tmp_long]=(uint64)qbs while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTNAME[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -} -if(!qbevent)break;evnt(2360);}while(r); -do{ +} +if(!qbevent)break;evnt(2360);}while(r); +do{ if (__ARRAY_STRING_CONSTCNAME[2]&2){ error(10); @@ -12258,9 +12258,9 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTCNAME[0]))[tmp_long]=(uint64)qb while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTCNAME[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -} -if(!qbevent)break;evnt(2361);}while(r); -do{ +} +if(!qbevent)break;evnt(2361);}while(r); +do{ if (__ARRAY_STRING_CONSTNAMESYMBOL[2]&2){ error(10); @@ -12303,9 +12303,9 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTNAMESYMBOL[0]))[tmp_long]=(uint while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTNAMESYMBOL[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -} -if(!qbevent)break;evnt(2362);}while(r); -do{ +} +if(!qbevent)break;evnt(2362);}while(r); +do{ if (__ARRAY_LONG_CONSTTYPE[2]&2){ error(10); @@ -12343,9 +12343,9 @@ if (!__ARRAY_LONG_CONSTTYPE[0]) error(257); } } __ARRAY_LONG_CONSTTYPE[2]|=1; -} -if(!qbevent)break;evnt(2363);}while(r); -do{ +} +if(!qbevent)break;evnt(2363);}while(r); +do{ if (__ARRAY_INTEGER64_CONSTINTEGER[2]&2){ error(10); @@ -12383,9 +12383,9 @@ if (!__ARRAY_INTEGER64_CONSTINTEGER[0]) error(257); } } __ARRAY_INTEGER64_CONSTINTEGER[2]|=1; -} -if(!qbevent)break;evnt(2364);}while(r); -do{ +} +if(!qbevent)break;evnt(2364);}while(r); +do{ if (__ARRAY_UINTEGER64_CONSTUINTEGER[2]&2){ error(10); @@ -12423,9 +12423,9 @@ if (!__ARRAY_UINTEGER64_CONSTUINTEGER[0]) error(257); } } __ARRAY_UINTEGER64_CONSTUINTEGER[2]|=1; -} -if(!qbevent)break;evnt(2365);}while(r); -do{ +} +if(!qbevent)break;evnt(2365);}while(r); +do{ if (__ARRAY_FLOAT_CONSTFLOAT[2]&2){ error(10); @@ -12463,9 +12463,9 @@ if (!__ARRAY_FLOAT_CONSTFLOAT[0]) error(257); } } __ARRAY_FLOAT_CONSTFLOAT[2]|=1; -} -if(!qbevent)break;evnt(2366);}while(r); -do{ +} +if(!qbevent)break;evnt(2366);}while(r); +do{ if (__ARRAY_STRING_CONSTSTRING[2]&2){ error(10); @@ -12508,9 +12508,9 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTSTRING[0]))[tmp_long]=(uint64)q while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTSTRING[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -} -if(!qbevent)break;evnt(2367);}while(r); -do{ +} +if(!qbevent)break;evnt(2367);}while(r); +do{ if (__ARRAY_LONG_CONSTSUBFUNC[2]&2){ error(10); @@ -12548,9 +12548,9 @@ if (!__ARRAY_LONG_CONSTSUBFUNC[0]) error(257); } } __ARRAY_LONG_CONSTSUBFUNC[2]|=1; -} -if(!qbevent)break;evnt(2368);}while(r); -do{ +} +if(!qbevent)break;evnt(2368);}while(r); +do{ if (__ARRAY_LONG_CONSTDEFINED[2]&2){ error(10); @@ -12588,2991 +12588,2991 @@ if (!__ARRAY_LONG_CONSTDEFINED[0]) error(257); } } __ARRAY_LONG_CONSTDEFINED[2]|=1; -} -if(!qbevent)break;evnt(2369);}while(r); -} -do{ -*__LONG_I2=*__LONG_CONSTLAST; -if(!qbevent)break;evnt(2372);}while(r); -do{ -tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_CONSTSUBFUNC[4],__ARRAY_LONG_CONSTSUBFUNC[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_CONSTSUBFUNC[0]))[tmp_long]=*__LONG_SUBFUNCN; -if(!qbevent)break;evnt(2374);}while(r); -S_3025:; -if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(__STRING_N)== 0 )))||new_error){ -if(qbevent){evnt(2377);if(r)goto S_3025;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Invalid name",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2377);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2377);}while(r); -} -do{ -tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING_CONSTNAME[4],__ARRAY_STRING_CONSTNAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_CONSTNAME[0]))[tmp_long])),qbs_ucase(__STRING_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2378);}while(r); -do{ -qbs_set(__STRING_HASHNAME,__STRING_N); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2380);}while(r); -do{ -*__LONG_ALLOW= 0 ; -if(!qbevent)break;evnt(2383);}while(r); -LABEL_CONST_RECHECK:; -if(qbevent){evnt(2384);r=0;} -do{ -*__LONG_HASHCHKFLAGS= 8 + 64 + 128 + 1024 ; -if(!qbevent)break;evnt(2385);}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(2386);}while(r); -S_3034:; -while((*__LONG_HASHRES)||new_error){ -if(qbevent){evnt(2387);if(r)goto S_3034;} -S_3035:; -if ((*__LONG_HASHRESFLAGS& 1024 )||new_error){ -if(qbevent){evnt(2388);if(r)goto S_3035;} -S_3036:; -if ((-(((int32*)(__ARRAY_LONG_CONSTSUBFUNC[0]))[array_check((*__LONG_HASHRESREF)-__ARRAY_LONG_CONSTSUBFUNC[4],__ARRAY_LONG_CONSTSUBFUNC[5])]==*__LONG_SUBFUNCN))||new_error){ -if(qbevent){evnt(2389);if(r)goto S_3036;} -do{ -*__LONG_ISSUEWARNING= 0 ; -if(!qbevent)break;evnt(2392);}while(r); -S_3038:; -if ((*__LONG_T&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(2393);if(r)goto S_3038;} -S_3039:; -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)))||new_error){ -if(qbevent){evnt(2394);if(r)goto S_3039;} -do{ -*__LONG_ISSUEWARNING= -1 ; -if(!qbevent)break;evnt(2394);}while(r); -do{ -qbs_set(__STRING_THISCONSTVAL,__STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2394);}while(r); -} -}else{ -S_3044:; -if ((*__LONG_T&*__LONG_ISFLOAT)||new_error){ -if(qbevent){evnt(2396);if(r)goto S_3044;} -S_3045:; -if ((-(((long double*)(__ARRAY_FLOAT_CONSTFLOAT[0]))[array_check((*__LONG_HASHRESREF)-__ARRAY_FLOAT_CONSTFLOAT[4],__ARRAY_FLOAT_CONSTFLOAT[5])]==*__FLOAT_CONSTVAL))||new_error){ -if(qbevent){evnt(2397);if(r)goto S_3045;} -do{ -*__LONG_ISSUEWARNING= -1 ; -if(!qbevent)break;evnt(2397);}while(r); -do{ -qbs_set(__STRING_THISCONSTVAL,qbs_str((long double)(*__FLOAT_CONSTVAL))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2397);}while(r); -} -}else{ -S_3050:; -if ((*__LONG_T&*__LONG_ISUNSIGNED)||new_error){ -if(qbevent){evnt(2399);if(r)goto S_3050;} -S_3051:; -if ((-(((uint64*)(__ARRAY_UINTEGER64_CONSTUINTEGER[0]))[array_check((*__LONG_HASHRESREF)-__ARRAY_UINTEGER64_CONSTUINTEGER[4],__ARRAY_UINTEGER64_CONSTUINTEGER[5])]==*__UINTEGER64_CONSTVAL))||new_error){ -if(qbevent){evnt(2400);if(r)goto S_3051;} -do{ -*__LONG_ISSUEWARNING= -1 ; -if(!qbevent)break;evnt(2400);}while(r); -do{ -qbs_set(__STRING_THISCONSTVAL,qbs_str((uint64)(*__UINTEGER64_CONSTVAL))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2400);}while(r); -} -}else{ -S_3056:; -if ((-(((int64*)(__ARRAY_INTEGER64_CONSTINTEGER[0]))[array_check((*__LONG_HASHRESREF)-__ARRAY_INTEGER64_CONSTINTEGER[4],__ARRAY_INTEGER64_CONSTINTEGER[5])]==*__INTEGER64_CONSTVAL))||new_error){ -if(qbevent){evnt(2402);if(r)goto S_3056;} -do{ -*__LONG_ISSUEWARNING= -1 ; -if(!qbevent)break;evnt(2402);}while(r); -do{ -qbs_set(__STRING_THISCONSTVAL,qbs_str((int64)(*__INTEGER64_CONSTVAL))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2402);}while(r); -} -} -} -} -S_3063:; -if ((*__LONG_ISSUEWARNING)||new_error){ -if(qbevent){evnt(2406);if(r)goto S_3063;} -S_3064:; -if ((~(*__BYTE_IGNOREWARNINGS))||new_error){ -if(qbevent){evnt(2407);if(r)goto S_3064;} -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(" =",2)),__STRING_THISCONSTVAL)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2408);}while(r); -} -do{ -goto LABEL_CONSTADDDONE; -if(!qbevent)break;evnt(2410);}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(2412);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2412);}while(r); -} -} -} -S_3074:; -if ((*__LONG_HASHRESFLAGS& 8 )||new_error){ -if(qbevent){evnt(2416);if(r)goto S_3074;} -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(2417);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2417);}while(r); -} -S_3078:; -if ((*__LONG_HASHRESFLAGS&( 64 + 128 ))||new_error){ -if(qbevent){evnt(2419);if(r)goto S_3078;} -S_3079:; -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)))))||new_error){ -if(qbevent){evnt(2420);if(r)goto S_3079;} -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(2420);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2420);}while(r); -} -S_3083:; -if ((*__LONG_T&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(2421);if(r)goto S_3083;} -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(2421);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2421);}while(r); -} -} -S_3088:; -if ((-(*__LONG_HASHRES!= 1 ))||new_error){ -if(qbevent){evnt(2423);if(r)goto S_3088;} -do{ -*__LONG_HASHRES=FUNC_HASHFINDCONT(__LONG_HASHRESFLAGS,__LONG_HASHRESREF); -if(!qbevent)break;evnt(2423);}while(r); -}else{ -do{ -*__LONG_HASHRES= 0 ; -if(!qbevent)break;evnt(2423);}while(r); -} -dl_continue_274:; -} -dl_exit_274:; -do{ -SUB_HASHADD(__STRING_HASHNAME,&(pass275= 1024 ),__LONG_I2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2427);}while(r); -do{ -tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_CONSTDEFINED[4],__ARRAY_LONG_CONSTDEFINED[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_CONSTDEFINED[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(2433);}while(r); -do{ -tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING_CONSTCNAME[4],__ARRAY_STRING_CONSTCNAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_CONSTCNAME[0]))[tmp_long])),__STRING_N); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2434);}while(r); -do{ -tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING_CONSTNAMESYMBOL[4],__ARRAY_STRING_CONSTNAMESYMBOL[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_CONSTNAMESYMBOL[0]))[tmp_long])),FUNC_TYPEVALUE2SYMBOL(__LONG_T)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2435);}while(r); -S_3098:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(2436);if(r)goto S_3098;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2436);}while(r); -} -do{ -tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_CONSTTYPE[4],__ARRAY_LONG_CONSTTYPE[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_CONSTTYPE[0]))[tmp_long]=*__LONG_T; -if(!qbevent)break;evnt(2437);}while(r); -S_3102:; -if ((*__LONG_T&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(2438);if(r)goto S_3102;} -do{ -tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING_CONSTSTRING[4],__ARRAY_STRING_CONSTSTRING[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_CONSTSTRING[0]))[tmp_long])),__STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2439);}while(r); -}else{ -S_3105:; -if ((*__LONG_T&*__LONG_ISFLOAT)||new_error){ -if(qbevent){evnt(2441);if(r)goto S_3105;} -do{ -tmp_long=array_check((*__LONG_I2)-__ARRAY_FLOAT_CONSTFLOAT[4],__ARRAY_FLOAT_CONSTFLOAT[5]); -if (!new_error) ((long double*)(__ARRAY_FLOAT_CONSTFLOAT[0]))[tmp_long]=*__FLOAT_CONSTVAL; -if(!qbevent)break;evnt(2442);}while(r); -}else{ -S_3108:; -if ((*__LONG_T&*__LONG_ISUNSIGNED)||new_error){ -if(qbevent){evnt(2444);if(r)goto S_3108;} -do{ -tmp_long=array_check((*__LONG_I2)-__ARRAY_UINTEGER64_CONSTUINTEGER[4],__ARRAY_UINTEGER64_CONSTUINTEGER[5]); -if (!new_error) ((uint64*)(__ARRAY_UINTEGER64_CONSTUINTEGER[0]))[tmp_long]=*__UINTEGER64_CONSTVAL; -if(!qbevent)break;evnt(2445);}while(r); -}else{ -do{ -tmp_long=array_check((*__LONG_I2)-__ARRAY_INTEGER64_CONSTINTEGER[4],__ARRAY_INTEGER64_CONSTINTEGER[5]); -if (!new_error) ((int64*)(__ARRAY_INTEGER64_CONSTINTEGER[0]))[tmp_long]=*__INTEGER64_CONSTVAL; -if(!qbevent)break;evnt(2447);}while(r); -} -} -} -LABEL_CONSTADDDONE:; -if(qbevent){evnt(2452);r=0;} -S_3115:; -if ((*__LONG_PENDING)||new_error){ -if(qbevent){evnt(2454);if(r)goto S_3115;} -do{ -goto LABEL_CONSTDEFPENDINGPP; -if(!qbevent)break;evnt(2456);}while(r); -} -do{ -goto LABEL_FINISHEDLINEPP; -if(!qbevent)break;evnt(2460);}while(r); -} -do{ -*__LONG_D= 0 ; -if(!qbevent)break;evnt(2466);}while(r); -S_3121:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DEFINT",6))))||new_error){ -if(qbevent){evnt(2467);if(r)goto S_3121;} -do{ -*__LONG_D= 1 ; -if(!qbevent)break;evnt(2467);}while(r); -} -S_3124:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DEFLNG",6))))||new_error){ -if(qbevent){evnt(2468);if(r)goto S_3124;} -do{ -*__LONG_D= 1 ; -if(!qbevent)break;evnt(2468);}while(r); -} -S_3127:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DEFSNG",6))))||new_error){ -if(qbevent){evnt(2469);if(r)goto S_3127;} -do{ -*__LONG_D= 1 ; -if(!qbevent)break;evnt(2469);}while(r); -} -S_3130:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DEFDBL",6))))||new_error){ -if(qbevent){evnt(2470);if(r)goto S_3130;} -do{ -*__LONG_D= 1 ; -if(!qbevent)break;evnt(2470);}while(r); -} -S_3133:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DEFSTR",6))))||new_error){ -if(qbevent){evnt(2471);if(r)goto S_3133;} -do{ -*__LONG_D= 1 ; -if(!qbevent)break;evnt(2471);}while(r); -} -S_3136:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_DEFINE",7)))|(((qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DEFINE",6)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ -if(qbevent){evnt(2472);if(r)goto S_3136;} -do{ -*__LONG_D= 1 ; -if(!qbevent)break;evnt(2472);}while(r); -} -S_3139:; -if ((*__LONG_D)||new_error){ -if(qbevent){evnt(2473);if(r)goto S_3139;} -do{ -*__LONG_PREDEFINING= 1 ; -if(!qbevent)break;evnt(2474);}while(r); -do{ -goto LABEL_PREDEFINE; -if(!qbevent)break;evnt(2474);}while(r); -LABEL_PREDEFINED:; -if(qbevent){evnt(2475);r=0;} -do{ -*__LONG_PREDEFINING= 0 ; -if(!qbevent)break;evnt(2475);}while(r); -do{ -goto LABEL_FINISHEDLINEPP; -if(!qbevent)break;evnt(2476);}while(r); -} -S_3145:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DECLARE",7))))||new_error){ -if(qbevent){evnt(2480);if(r)goto S_3145;} -S_3146:; -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)))))||new_error){ -if(qbevent){evnt(2481);if(r)goto S_3146;} -do{ -*__LONG_DECLARINGLIBRARY= 1 ; -if(!qbevent)break;evnt(2482);}while(r); -do{ -*__LONG_INDIRECTLIBRARY= 0 ; -if(!qbevent)break;evnt(2483);}while(r); -S_3149:; -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)))))||new_error){ -if(qbevent){evnt(2484);if(r)goto S_3149;} -do{ -*__LONG_INDIRECTLIBRARY= 1 ; -if(!qbevent)break;evnt(2484);}while(r); -} -do{ -goto LABEL_FINISHEDLINEPP; -if(!qbevent)break;evnt(2485);}while(r); -} -} -do{ -*__LONG_DYNAMICLIBRARY= 0 ; -if(!qbevent)break;evnt(2490);}while(r); -LABEL_DECLARESUBFUNC:; -if(qbevent){evnt(2491);r=0;} -do{ -qbs_set(__STRING_FIRSTELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass276= 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2492);}while(r); -do{ -*__LONG_SF= 0 ; -if(!qbevent)break;evnt(2493);}while(r); -S_3158:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("FUNCTION",8))))||new_error){ -if(qbevent){evnt(2494);if(r)goto S_3158;} -do{ -*__LONG_SF= 1 ; -if(!qbevent)break;evnt(2494);}while(r); -} -S_3161:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("SUB",3))))||new_error){ -if(qbevent){evnt(2495);if(r)goto S_3161;} -do{ -*__LONG_SF= 2 ; -if(!qbevent)break;evnt(2495);}while(r); -} -S_3164:; -if ((*__LONG_SF)||new_error){ -if(qbevent){evnt(2496);if(r)goto S_3164;} -do{ -*__LONG_SUBFUNCN=*__LONG_SUBFUNCN+ 1 ; -if(!qbevent)break;evnt(2498);}while(r); -do{ -*__BYTE_CLOSEDSUBFUNC= 0 ; -if(!qbevent)break;evnt(2499);}while(r); -S_3167:; -if ((-(*__LONG_N== 1 ))||new_error){ -if(qbevent){evnt(2501);if(r)goto S_3167;} -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(2501);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2501);}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(2504);}while(r); -S_3172:; -if ((*__LONG_I2)||new_error){ -if(qbevent){evnt(2505);if(r)goto S_3172;} -S_3173:; -do{ -if(qbevent){evnt(2506);if(r)goto S_3173;} -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(2507);}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(2508);}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(2509);}while(r); -S_3177:; -dl_continue_277:; -}while((!(-(*__LONG_I2== 0 )))&&(!new_error)); -dl_exit_277:; -if(qbevent){evnt(2510);if(r)goto S_3177;} -do{ -*__LONG_N=FUNC_NUMELEMENTS(__STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2511);}while(r); -do{ -qbs_set(__STRING_FIRSTELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass280= 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2512);}while(r); -do{ -qbs_set(__STRING_SECONDELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass281= 2 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2512);}while(r); -do{ -qbs_set(__STRING_THIRDELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass282= 3 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2512);}while(r); -} -do{ -qbs_set(__STRING_N,FUNC_GETELEMENT(__STRING_CA,&(pass283= 2 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2515);}while(r); -do{ -qbs_set(__STRING_SYMBOL,FUNC_REMOVESYMBOL(__STRING_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2516);}while(r); -S_3185:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(2517);if(r)goto S_3185;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2517);}while(r); -} -S_3188:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_SF== 2 ))&(qbs_notequal(__STRING_SYMBOL,qbs_new_txt_len("",0)))))||new_error){ -if(qbevent){evnt(2518);if(r)goto S_3188;} -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(2518);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2518);}while(r); -} -do{ -qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2521);}while(r); -S_3193:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("STATIC",6))))||new_error){ -if(qbevent){evnt(2521);if(r)goto S_3193;} -do{ -qbs_set(__STRING_A,qbs_left(__STRING_A,__STRING_A->len- 7 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2521);}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(2521);}while(r); -do{ -*__LONG_N=*__LONG_N- 1 ; -if(!qbevent)break;evnt(2521);}while(r); -} -do{ -qbs_set(__STRING_ALIASNAME,__STRING_N); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2524);}while(r); -S_3199:; -if ((-(*__LONG_N> 2 ))||new_error){ -if(qbevent){evnt(2525);if(r)goto S_3199;} -do{ -qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,&(pass286= 3 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2526);}while(r); -S_3201:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("ALIAS",5))))||new_error){ -if(qbevent){evnt(2527);if(r)goto S_3201;} -S_3202:; -if ((-(*__LONG_DECLARINGLIBRARY== 0 ))||new_error){ -if(qbevent){evnt(2528);if(r)goto S_3202;} -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(2528);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2528);}while(r); -} -S_3206:; -if ((-(*__LONG_N== 3 ))||new_error){ -if(qbevent){evnt(2529);if(r)goto S_3206;} -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(2529);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2529);}while(r); -} -do{ -qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_CA,&(pass287= 4 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2530);}while(r); -S_3211:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_E, 1 ),func_chr( 34 ))))||new_error){ -if(qbevent){evnt(2532);if(r)goto S_3211;} -do{ -qbs_set(__STRING_E,qbs_right(__STRING_E,__STRING_E->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2533);}while(r); -do{ -*__LONG_X=func_instr(NULL,__STRING_E,func_chr( 34 ),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2534);}while(r); -S_3214:; -if ((-(*__LONG_X== 0 ))||new_error){ -if(qbevent){evnt(2534);if(r)goto S_3214;} -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(2534);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2534);}while(r); -} -do{ -qbs_set(__STRING_E,qbs_left(__STRING_E,*__LONG_X- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2535);}while(r); -} -S_3220:; -while((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_E,__STRING_FIX046,0)))||new_error){ -if(qbevent){evnt(2538);if(r)goto S_3220;} -do{ -*__LONG_X=func_instr(NULL,__STRING_E,__STRING_FIX046,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2539);}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(2539);}while(r); -dl_continue_289:; -} -dl_exit_289:; -S_3224:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E->len== 0 )))||new_error){ -if(qbevent){evnt(2542);if(r)goto S_3224;} -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(2542);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2542);}while(r); -} -S_3228:; -fornext_value294= 1 ; -fornext_finalvalue294=__STRING_E->len; -fornext_step294= 1 ; -if (fornext_step294<0) fornext_step_negative294=1; else fornext_step_negative294=0; -if (new_error) goto fornext_error294; -goto fornext_entrylabel294; -while(1){ -fornext_value294=fornext_step294+(*__LONG_X); -fornext_entrylabel294: -*__LONG_X=fornext_value294; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative294){ -if (fornext_value294fornext_finalvalue294) break; -} -fornext_error294:; -if(qbevent){evnt(2543);if(r)goto S_3228;} -do{ -*__LONG_A=qbs_asc(__STRING_E,*__LONG_X); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2544);}while(r); -S_3230:; -if (((-(((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((*__LONG_A)-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]== 0 ))&(-(*__LONG_A!= 46 ))&(-(*__LONG_A!= 58 )))||new_error){ -if(qbevent){evnt(2545);if(r)goto S_3230;} -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(2545);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2545);}while(r); -} -fornext_continue_293:; -} -fornext_exit_293:; -do{ -qbs_set(__STRING_ALIASNAME,__STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2547);}while(r); -S_3236:; -if ((-(*__LONG_N<= 4 ))||new_error){ -if(qbevent){evnt(2549);if(r)goto S_3236;} -do{ -qbs_set(__STRING_A,FUNC_GETELEMENTS(__STRING_A,&(pass296= 1 ),&(pass297= 2 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2549);}while(r); -} -S_3239:; -if ((-(*__LONG_N>= 5 ))||new_error){ -if(qbevent){evnt(2550);if(r)goto S_3239;} -do{ -qbs_set(__STRING_A,qbs_add(qbs_add(FUNC_GETELEMENTS(__STRING_A,&(pass298= 1 ),&(pass299= 2 )),__STRING1_SP),FUNC_GETELEMENTS(__STRING_A,&(pass300= 5 ),__LONG_N))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2550);}while(r); -} -S_3242:; -if ((-(*__LONG_N<= 4 ))||new_error){ -if(qbevent){evnt(2551);if(r)goto S_3242;} -do{ -qbs_set(__STRING_CA,FUNC_GETELEMENTS(__STRING_CA,&(pass301= 1 ),&(pass302= 2 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2551);}while(r); -} -S_3245:; -if ((-(*__LONG_N>= 5 ))||new_error){ -if(qbevent){evnt(2552);if(r)goto S_3245;} -do{ -qbs_set(__STRING_CA,qbs_add(qbs_add(FUNC_GETELEMENTS(__STRING_CA,&(pass303= 1 ),&(pass304= 2 )),__STRING1_SP),FUNC_GETELEMENTS(__STRING_CA,&(pass305= 5 ),__LONG_N))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2552);}while(r); -} -do{ -*__LONG_N=*__LONG_N- 2 ; -if(!qbevent)break;evnt(2553);}while(r); -} -} -S_3251:; -if ((*__LONG_DECLARINGLIBRARY)||new_error){ -if(qbevent){evnt(2557);if(r)goto S_3251;} -S_3252:; -if ((*__LONG_INDIRECTLIBRARY)||new_error){ -if(qbevent){evnt(2558);if(r)goto S_3252;} -do{ -qbs_set(__STRING_ALIASNAME,__STRING_N); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2559);}while(r); -} -} -do{ -*__LONG_PARAMS= 0 ; -if(!qbevent)break;evnt(2563);}while(r); -do{ -qbs_set(__STRING_PARAMS,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2564);}while(r); -do{ -qbs_set(__STRING_PARAMSIZE,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2565);}while(r); -do{ -qbs_set(__STRING_NELE,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2566);}while(r); -do{ -qbs_set(__STRING_NELEREQ,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2567);}while(r); -S_3261:; -if ((-(*__LONG_N> 2 ))||new_error){ -if(qbevent){evnt(2568);if(r)goto S_3261;} -do{ -qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,&(pass306= 3 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2569);}while(r); -S_3263:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(2570);if(r)goto S_3263;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected (",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2570);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2570);}while(r); -} -do{ -qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2571);}while(r); -S_3268:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(2572);if(r)goto S_3268;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2572);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2572);}while(r); -} -S_3272:; -if ((-(*__LONG_N< 4 ))||new_error){ -if(qbevent){evnt(2573);if(r)goto S_3272;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected ( ... )",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2573);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2573);}while(r); -} -S_3276:; -if ((-(*__LONG_N== 4 ))||new_error){ -if(qbevent){evnt(2574);if(r)goto S_3276;} -do{ -goto LABEL_NOSFPARAMS; -if(!qbevent)break;evnt(2574);}while(r); -} -do{ -*__LONG_B= 0 ; -if(!qbevent)break;evnt(2575);}while(r); -do{ -qbs_set(__STRING_A2,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2576);}while(r); -S_3281:; -fornext_value308= 4 ; -fornext_finalvalue308=*__LONG_N- 1 ; -fornext_step308= 1 ; -if (fornext_step308<0) fornext_step_negative308=1; else fornext_step_negative308=0; -if (new_error) goto fornext_error308; -goto fornext_entrylabel308; -while(1){ -fornext_value308=fornext_step308+(*__LONG_I); -fornext_entrylabel308: -*__LONG_I=fornext_value308; -if (fornext_step_negative308){ -if (fornext_value308fornext_finalvalue308) break; -} -fornext_error308:; -if(qbevent){evnt(2577);if(r)goto S_3281;} -do{ -qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2578);}while(r); -S_3283:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(2579);if(r)goto S_3283;} -do{ -*__LONG_B=*__LONG_B+ 1 ; -if(!qbevent)break;evnt(2579);}while(r); -} -S_3286:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(2580);if(r)goto S_3286;} -do{ -*__LONG_B=*__LONG_B- 1 ; -if(!qbevent)break;evnt(2580);}while(r); -} -S_3289:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||new_error){ -if(qbevent){evnt(2581);if(r)goto S_3289;} -S_3290:; -if ((-(*__LONG_I==(*__LONG_N- 1 )))||new_error){ -if(qbevent){evnt(2582);if(r)goto S_3290;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected , ... )",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2582);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2582);}while(r); -} -LABEL_GETLASTPARAM:; -if(qbevent){evnt(2583);r=0;} -S_3294:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(2584);if(r)goto S_3294;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected ... ,",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2584);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2584);}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(2585);}while(r); -do{ -*__LONG_N2=FUNC_NUMELEMENTS(__STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2587);}while(r); -do{ -*__LONG_ARRAY= 0 ; -if(!qbevent)break;evnt(2588);}while(r); -do{ -qbs_set(__STRING_T2,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2589);}while(r); -do{ -*__LONG_I2= 1 ; -if(!qbevent)break;evnt(2591);}while(r); -do{ -qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A2,__LONG_I2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2592);}while(r); -do{ -*__LONG_I2=*__LONG_I2+ 1 ; -if(!qbevent)break;evnt(2592);}while(r); -do{ -*__LONG_BYVALUE= 0 ; -if(!qbevent)break;evnt(2594);}while(r); -S_3306:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("BYVAL",5))))||new_error){ -if(qbevent){evnt(2595);if(r)goto S_3306;} -S_3307:; -if ((-(*__LONG_DECLARINGLIBRARY== 0 ))||new_error){ -if(qbevent){evnt(2596);if(r)goto S_3307;} -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(2596);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2596);}while(r); -} -do{ -qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A2,__LONG_I2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2597);}while(r); -do{ -*__LONG_I2=*__LONG_I2+ 1 ; -if(!qbevent)break;evnt(2597);}while(r); -do{ -*__LONG_BYVALUE= 1 ; -if(!qbevent)break;evnt(2597);}while(r); -} -do{ -qbs_set(__STRING_N2,__STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2600);}while(r); -do{ -qbs_set(__STRING_SYMBOL2,FUNC_REMOVESYMBOL(__STRING_N2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2601);}while(r); -S_3317:; -if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(__STRING_N2)== 0 )))||new_error){ -if(qbevent){evnt(2602);if(r)goto S_3317;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Invalid name",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2602);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2602);}while(r); -} -S_3321:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(2604);if(r)goto S_3321;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2604);}while(r); -} -do{ -*__LONG_M= 0 ; -if(!qbevent)break;evnt(2605);}while(r); -S_3325:; -fornext_value311=*__LONG_I2; -fornext_finalvalue311=*__LONG_N2; -fornext_step311= 1 ; -if (fornext_step311<0) fornext_step_negative311=1; else fornext_step_negative311=0; -if (new_error) goto fornext_error311; -goto fornext_entrylabel311; -while(1){ -fornext_value311=fornext_step311+(*__LONG_I2); -fornext_entrylabel311: -*__LONG_I2=fornext_value311; -if (fornext_step_negative311){ -if (fornext_value311fornext_finalvalue311) break; -} -fornext_error311:; -if(qbevent){evnt(2606);if(r)goto S_3325;} -do{ -qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A2,__LONG_I2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2607);}while(r); -S_3327:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(2608);if(r)goto S_3327;} -S_3328:; -if ((-(*__LONG_M!= 0 ))||new_error){ -if(qbevent){evnt(2609);if(r)goto S_3328;} -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(2609);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2609);}while(r); -} -do{ -*__LONG_M= 1 ; -if(!qbevent)break;evnt(2610);}while(r); -do{ -*__LONG_ARRAY= 1 ; -if(!qbevent)break;evnt(2611);}while(r); -do{ -goto LABEL_GOTAA; -if(!qbevent)break;evnt(2612);}while(r); -} -S_3336:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(2614);if(r)goto S_3336;} -S_3337:; -if ((-(*__LONG_M!= 1 ))||new_error){ -if(qbevent){evnt(2615);if(r)goto S_3337;} -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(2615);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2615);}while(r); -} -do{ -*__LONG_M= 2 ; -if(!qbevent)break;evnt(2616);}while(r); -do{ -goto LABEL_GOTAA; -if(!qbevent)break;evnt(2617);}while(r); -} -S_3344:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("AS",2))))||new_error){ -if(qbevent){evnt(2619);if(r)goto S_3344;} -S_3345:; -if (((-(*__LONG_M!= 0 ))&(-(*__LONG_M!= 2 )))||new_error){ -if(qbevent){evnt(2620);if(r)goto S_3345;} -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(2620);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2620);}while(r); -} -do{ -*__LONG_M= 3 ; -if(!qbevent)break;evnt(2621);}while(r); -do{ -goto LABEL_GOTAA; -if(!qbevent)break;evnt(2622);}while(r); -} -S_3352:; -if ((-(*__LONG_M== 1 ))||new_error){ -if(qbevent){evnt(2624);if(r)goto S_3352;} -do{ -goto LABEL_GOTAA; -if(!qbevent)break;evnt(2624);}while(r); -} -S_3355:; -if ((-(*__LONG_M!= 3 ))||new_error){ -if(qbevent){evnt(2625);if(r)goto S_3355;} -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(2625);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2625);}while(r); -} -S_3359:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T2,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(2626);if(r)goto S_3359;} -do{ -qbs_set(__STRING_T2,__STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2626);}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(2626);}while(r); -} -LABEL_GOTAA:; -if(qbevent){evnt(2627);r=0;} -fornext_continue_310:; -} -fornext_exit_310:; -do{ -*__LONG_PARAMS=*__LONG_PARAMS+ 1 ; -if(!qbevent)break;evnt(2630);}while(r); -S_3366:; -if ((-(*__LONG_PARAMS> 100 ))||new_error){ -if(qbevent){evnt(2630);if(r)goto S_3366;} -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(2630);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2630);}while(r); -} -do{ -*__LONG_ARGNELEREQ= 0 ; -if(!qbevent)break;evnt(2632);}while(r); -S_3371:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(__STRING_SYMBOL2,qbs_new_txt_len("",0)))&(qbs_notequal(__STRING_T2,qbs_new_txt_len("",0)))))||new_error){ -if(qbevent){evnt(2634);if(r)goto S_3371;} -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(2634);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2634);}while(r); -} -S_3375:; -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)))))||new_error){ -if(qbevent){evnt(2635);if(r)goto S_3375;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected AS type",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2635);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2635);}while(r); -} -S_3379:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T2,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(2636);if(r)goto S_3379;} -do{ -qbs_set(__STRING_T2,__STRING_SYMBOL2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2636);}while(r); -} -S_3382:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T2,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(2637);if(r)goto S_3382;} -S_3383:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_N2, 1 ),qbs_new_txt_len("_",1))))||new_error){ -if(qbevent){evnt(2638);if(r)goto S_3383;} -do{ -*__LONG_V= 27 ; -if(!qbevent)break;evnt(2638);}while(r); -}else{ -do{ -*__LONG_V=qbs_asc(qbs_ucase(__STRING_N2))- 64 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2638);}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(2639);}while(r); -} -do{ -*__LONG_PARAMSIZE= 0 ; -if(!qbevent)break;evnt(2642);}while(r); -S_3391:; -if ((-(*__LONG_ARRAY== 1 ))||new_error){ -if(qbevent){evnt(2643);if(r)goto S_3391;} -do{ -*__LONG_T=FUNC_TYPNAME2TYP(__STRING_T2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2644);}while(r); -S_3393:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(2645);if(r)goto S_3393;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2645);}while(r); -} -S_3396:; -if ((-(*__LONG_T== 0 ))||new_error){ -if(qbevent){evnt(2646);if(r)goto S_3396;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Illegal SUB/FUNCTION parameter",30)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2646);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2646);}while(r); -} -S_3400:; -if (((*__LONG_T&*__LONG_ISFIXEDLENGTH))||new_error){ -if(qbevent){evnt(2647);if(r)goto S_3400;} -do{ -*__LONG_PARAMSIZE=*__LONG_TYPNAME2TYPSIZE; -if(!qbevent)break;evnt(2647);}while(r); -} -do{ -*__LONG_T=*__LONG_T+*__LONG_ISARRAY; -if(!qbevent)break;evnt(2648);}while(r); -S_3404:; -fornext_value313= 0 ; -fornext_finalvalue313=*__INTEGER_SFLISTN; -fornext_step313= 1 ; -if (fornext_step313<0) fornext_step_negative313=1; else fornext_step_negative313=0; -if (new_error) goto fornext_error313; -goto fornext_entrylabel313; -while(1){ -fornext_value313=fornext_step313+(*__LONG_I10); -fornext_entrylabel313: -*__LONG_I10=fornext_value313; -if (fornext_step_negative313){ -if (fornext_value313fornext_finalvalue313) break; -} -fornext_error313:; -if(qbevent){evnt(2650);if(r)goto S_3404;} -S_3405:; -if ((-(((int32*)(__ARRAY_LONG_SFIDLIST[0]))[array_check((*__LONG_I10)-__ARRAY_LONG_SFIDLIST[4],__ARRAY_LONG_SFIDLIST[5])]==(*__LONG_IDN+ 1 )))||new_error){ -if(qbevent){evnt(2651);if(r)goto S_3405;} -S_3406:; -if ((-(((int16*)(__ARRAY_INTEGER_SFARGLIST[0]))[array_check((*__LONG_I10)-__ARRAY_INTEGER_SFARGLIST[4],__ARRAY_INTEGER_SFARGLIST[5])]==*__LONG_PARAMS))||new_error){ -if(qbevent){evnt(2652);if(r)goto S_3406;} -do{ -*__LONG_ARGNELEREQ=((int16*)(__ARRAY_INTEGER_SFELELIST[0]))[array_check((*__LONG_I10)-__ARRAY_INTEGER_SFELELIST[4],__ARRAY_INTEGER_SFELELIST[5])]; -if(!qbevent)break;evnt(2653);}while(r); -} -} -fornext_continue_312:; -} -fornext_exit_312:; -}else{ -do{ -*__LONG_T=FUNC_TYPNAME2TYP(__STRING_T2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2658);}while(r); -S_3413:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(2659);if(r)goto S_3413;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2659);}while(r); -} -S_3416:; -if ((-(*__LONG_T== 0 ))||new_error){ -if(qbevent){evnt(2660);if(r)goto S_3416;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Illegal SUB/FUNCTION parameter",30)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2660);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2660);}while(r); -} -S_3420:; -if (((*__LONG_T&*__LONG_ISFIXEDLENGTH))||new_error){ -if(qbevent){evnt(2661);if(r)goto S_3420;} -do{ -*__LONG_PARAMSIZE=*__LONG_TYPNAME2TYPSIZE; -if(!qbevent)break;evnt(2661);}while(r); -} -S_3423:; -if ((*__LONG_BYVALUE)||new_error){ -if(qbevent){evnt(2663);if(r)goto S_3423;} -S_3424:; -if ((*__LONG_T&*__LONG_ISPOINTER)||new_error){ -if(qbevent){evnt(2664);if(r)goto S_3424;} -do{ -*__LONG_T=*__LONG_T-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(2664);}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(2668);}while(r); -do{ -qbs_set(__STRING_NELE,qbs_add(__STRING_NELE,func_chr( 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2671);}while(r); -do{ -qbs_set(__STRING_PARAMSIZE,qbs_add(__STRING_PARAMSIZE,l2string(*__LONG_PARAMSIZE))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2673);}while(r); -do{ -qbs_set(__STRING_PARAMS,qbs_add(__STRING_PARAMS,l2string(*__LONG_T))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2674);}while(r); -do{ -qbs_set(__STRING_A2,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2675);}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(2677);}while(r); -S_3436:; -if ((-(*__LONG_I==(*__LONG_N- 1 )))||new_error){ -if(qbevent){evnt(2678);if(r)goto S_3436;} -do{ -goto LABEL_GETLASTPARAM; -if(!qbevent)break;evnt(2678);}while(r); -} -} -fornext_continue_307:; -} -fornext_exit_307:; -} -LABEL_NOSFPARAMS:; -if(qbevent){evnt(2682);r=0;} -S_3442:; -if ((-(*__LONG_SF== 1 ))||new_error){ -if(qbevent){evnt(2684);if(r)goto S_3442;} -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(2686);}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(2687);}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(2688);}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(2690);}while(r); -S_3447:; -if ((*__LONG_DECLARINGLIBRARY)||new_error){ -if(qbevent){evnt(2691);if(r)goto S_3447;} -do{ -*(int16*)(((char*)__UDT_ID)+(806))= 1 ; -if(!qbevent)break;evnt(2692);}while(r); -S_3449:; -if ((-(*__LONG_INDIRECTLIBRARY== 0 ))||new_error){ -if(qbevent){evnt(2693);if(r)goto S_3449;} -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),__STRING_ALIASNAME); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2693);}while(r); -} -} -do{ -*(int16*)(((char*)__UDT_ID)+(809))=*__LONG_PARAMS; -if(!qbevent)break;evnt(2695);}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(2696);}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(2697);}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(2698);}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(2699);}while(r); -S_3458:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_SYMBOL,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(2700);if(r)goto S_3458;} -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=FUNC_TYPNAME2TYP(__STRING_SYMBOL); -if(!qbevent)break;evnt(2701);}while(r); -S_3460:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(2702);if(r)goto S_3460;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2702);}while(r); -} -}else{ -S_3464:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_N, 1 ),qbs_new_txt_len("_",1))))||new_error){ -if(qbevent){evnt(2704);if(r)goto S_3464;} -do{ -*__LONG_V= 27 ; -if(!qbevent)break;evnt(2704);}while(r); -}else{ -do{ -*__LONG_V=qbs_asc(qbs_ucase(__STRING_N))- 64 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2704);}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(2705);}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=FUNC_TYPNAME2TYP(__STRING_SYMBOL); -if(!qbevent)break;evnt(2706);}while(r); -S_3471:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(2707);if(r)goto S_3471;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2707);}while(r); -} -} -S_3475:; -if ((-(*(int32*)(((char*)__UDT_ID)+(2381))== 0 ))||new_error){ -if(qbevent){evnt(2709);if(r)goto S_3475;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Invalid FUNCTION return type",28)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2709);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2709);}while(r); -} -S_3479:; -if ((*__LONG_DECLARINGLIBRARY)||new_error){ -if(qbevent){evnt(2711);if(r)goto S_3479;} -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(2713);}while(r); -S_3481:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(2714);if(r)goto S_3481;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2714);}while(r); -} -S_3484:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_CTYPE,qbs_new_txt_len("qbs",3))))||new_error){ -if(qbevent){evnt(2715);if(r)goto S_3484;} -do{ -qbs_set(__STRING_CTYPE,qbs_new_txt_len("char*",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2715);}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(2716);}while(r); -} -do{ -qbs_set(__STRING_S,qbs_left(__STRING_SYMBOL, 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2720);}while(r); -S_3490:; -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)))))||new_error){ -if(qbevent){evnt(2721);if(r)goto S_3490;} -do{ -qbs_set(__STRING_SYMBOL,FUNC_TYPE2SYMBOL(__STRING_SYMBOL)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2722);}while(r); -S_3492:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(2723);if(r)goto S_3492;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2723);}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(2725);}while(r); -S_3497:; -if ((*(int32*)(((char*)__UDT_ID)+(2381))&*__LONG_ISPOINTER)||new_error){ -if(qbevent){evnt(2726);if(r)goto S_3497;} -S_3498:; -if ((-((*(int32*)(((char*)__UDT_ID)+(2381))&*__LONG_ISSTRING)== 0 ))||new_error){ -if(qbevent){evnt(2727);if(r)goto S_3498;} -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*(int32*)(((char*)__UDT_ID)+(2381))-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(2727);}while(r); -} -} -do{ -SUB_REGID(); -if(!qbevent)break;evnt(2729);}while(r); -S_3503:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(2730);if(r)goto S_3503;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2730);}while(r); -} -}else{ -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(2733);}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(2734);}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(2735);}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(2736);}while(r); -S_3511:; -if ((*__LONG_DECLARINGLIBRARY)||new_error){ -if(qbevent){evnt(2737);if(r)goto S_3511;} -do{ -*(int16*)(((char*)__UDT_ID)+(806))= 1 ; -if(!qbevent)break;evnt(2738);}while(r); -S_3513:; -if ((-(*__LONG_INDIRECTLIBRARY== 0 ))||new_error){ -if(qbevent){evnt(2739);if(r)goto S_3513;} -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),__STRING_ALIASNAME); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2739);}while(r); -} -} -do{ -*(int16*)(((char*)__UDT_ID)+(809))=*__LONG_PARAMS; -if(!qbevent)break;evnt(2741);}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(2742);}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(2743);}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(2744);}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(2745);}while(r); -S_3522:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_N),qbs_new_txt_len("_GL",3)))&(-(*__LONG_PARAMS== 0 ))&(-(*__LONG_USEGL== 0 ))))||new_error){ -if(qbevent){evnt(2747);if(r)goto S_3522;} -do{ -*__LONG_REGINTERNALSUBFUNC= 1 ; -if(!qbevent)break;evnt(2747);}while(r); -do{ -*__LONG_USEGL= 1 ; -if(!qbevent)break;evnt(2747);}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(2747);}while(r); -do{ -tmp_long=array_check(( 5 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(2747);}while(r); -} -do{ -SUB_REGID(); -if(!qbevent)break;evnt(2748);}while(r); -do{ -*__LONG_REGINTERNALSUBFUNC= 0 ; -if(!qbevent)break;evnt(2749);}while(r); -S_3530:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(2751);if(r)goto S_3530;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2751);}while(r); -} -} -} -LABEL_FINISHEDLINEPP:; -if(qbevent){evnt(2758);r=0;} -do{ -*__LONG_FIRSTLINE= 0 ; -if(!qbevent)break;evnt(2759);}while(r); -} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2761);}while(r); -do{ -qbs_set(__STRING_CA,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2762);}while(r); -}else{ -S_3540:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(2764);if(r)goto S_3540;} -do{ -qbs_set(__STRING_A,__STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2764);}while(r); -do{ -qbs_set(__STRING_CA,__STRING_CE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2764);}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(2764);}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(2764);}while(r); -} -} -S_3548:; -if ((-(*__LONG_WHOLELINEI<=*__LONG_WHOLELINEN))||new_error){ -if(qbevent){evnt(2766);if(r)goto S_3548;} -do{ -*__LONG_WHOLELINEI=*__LONG_WHOLELINEI+ 1 ; -if(!qbevent)break;evnt(2766);}while(r); -do{ -goto LABEL_PPBLDA; -if(!qbevent)break;evnt(2766);}while(r); -} -} -} -} -S_3555:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_ADDMETAINCLUDE->len))||new_error){ -if(qbevent){evnt(2776);if(r)goto S_3555;} -S_3556:; -if (( 0 )||new_error){ -if(qbevent){evnt(2777);if(r)goto S_3556;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip315; -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 (new_error) goto skip315; -sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_LINENUMBER)), 1, 0, 1); -if (new_error) goto skip315; -skip315: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(2777);}while(r); -} -do{ -qbs_set(__STRING_A,__STRING_ADDMETAINCLUDE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2778);}while(r); -do{ -qbs_set(__STRING_ADDMETAINCLUDE,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2778);}while(r); -S_3561:; -if ((-(*__LONG_INCLEVEL== 0 ))||new_error){ -if(qbevent){evnt(2780);if(r)goto S_3561;} -do{ -*__LONG_INCLUDINGFROMROOT= 0 ; -if(!qbevent)break;evnt(2781);}while(r); -do{ -*__LONG_FORCEINCLUDINGFILE= 0 ; -if(!qbevent)break;evnt(2782);}while(r); -LABEL_FORCEINCLUDE_PREPASS:; -if(qbevent){evnt(2783);r=0;} -S_3564:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_FORCEINCLUDEFROMROOT,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(2784);if(r)goto S_3564;} -do{ -qbs_set(__STRING_A,__STRING_FORCEINCLUDEFROMROOT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2785);}while(r); -do{ -qbs_set(__STRING_FORCEINCLUDEFROMROOT,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2786);}while(r); -do{ -*__LONG_FORCEINCLUDINGFILE= 1 ; -if(!qbevent)break;evnt(2787);}while(r); -do{ -*__LONG_INCLUDINGFROMROOT= 1 ; -if(!qbevent)break;evnt(2788);}while(r); -} -} -S_3571:; -if ((-(*__LONG_INCLEVEL== 100 ))||new_error){ -if(qbevent){evnt(2792);if(r)goto S_3571;} -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(2792);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2792);}while(r); -} -do{ -*__LONG_FH= 99 +*__LONG_INCLEVEL+ 1 ; -if(!qbevent)break;evnt(2794);}while(r); -do{ -*__LONG_FIRSTTRYMETHOD= 1 ; -if(!qbevent)break;evnt(2796);}while(r); -S_3577:; -if (((-(*__LONG_INCLUDINGFROMROOT!= 0 ))&(-(*__LONG_INCLEVEL== 0 )))||new_error){ -if(qbevent){evnt(2797);if(r)goto S_3577;} -do{ -*__LONG_FIRSTTRYMETHOD= 2 ; -if(!qbevent)break;evnt(2797);}while(r); -} -S_3580:; -fornext_value317=*__LONG_FIRSTTRYMETHOD; -fornext_finalvalue317= 2 ; -fornext_step317= 1 ; -if (fornext_step317<0) fornext_step_negative317=1; else fornext_step_negative317=0; -if (new_error) goto fornext_error317; -goto fornext_entrylabel317; -while(1){ -fornext_value317=fornext_step317+(*__LONG_TRY); -fornext_entrylabel317: -*__LONG_TRY=fornext_value317; -if (fornext_step_negative317){ -if (fornext_value317fornext_finalvalue317) break; -} -fornext_error317:; -if(qbevent){evnt(2798);if(r)goto S_3580;} -S_3581:; -if ((-(*__LONG_TRY== 1 ))||new_error){ -if(qbevent){evnt(2799);if(r)goto S_3581;} -S_3582:; -if ((-(*__LONG_INCLEVEL== 0 ))||new_error){ -if(qbevent){evnt(2800);if(r)goto S_3582;} -S_3583:; -if ((*__LONG_IDEMODE)||new_error){ -if(qbevent){evnt(2801);if(r)goto S_3583;} -do{ -qbs_set(__STRING_P,qbs_add(__STRING_IDEPATH,__STRING1_PATHSEP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2801);}while(r); -}else{ -do{ -qbs_set(__STRING_P,FUNC_GETFILEPATH(__STRING_SOURCEFILE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2801);}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(2803);}while(r); -} -do{ -qbs_set(__STRING_F,qbs_add(__STRING_P,__STRING_A)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2805);}while(r); -} -S_3593:; -if ((-(*__LONG_TRY== 2 ))||new_error){ -if(qbevent){evnt(2807);if(r)goto S_3593;} -do{ -qbs_set(__STRING_F,__STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2807);}while(r); -} -S_3596:; -if ((qbs_cleanup(qbs_tmp_base,func__fileexists(__STRING_F)))||new_error){ -if(qbevent){evnt(2808);if(r)goto S_3596;} -do{ -*__INTEGER_QBERRORHAPPENED= -3 ; -if(!qbevent)break;evnt(2809);}while(r); -do{ -sub_open(__STRING_F, 2 ,NULL,NULL,*__LONG_FH,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2811);}while(r); -LABEL_QBERRORHAPPENED3:; -if(qbevent){evnt(2813);r=0;} -S_3599:; -if ((-(*__INTEGER_QBERRORHAPPENED== -3 ))||new_error){ -if(qbevent){evnt(2814);if(r)goto S_3599;} -do{ -goto fornext_exit_316; -if(!qbevent)break;evnt(2814);}while(r); -} -} -do{ -*__INTEGER_QBERRORHAPPENED= 0 ; -if(!qbevent)break;evnt(2816);}while(r); -fornext_continue_316:; -} -fornext_exit_316:; -S_3605:; -if ((-(*__INTEGER_QBERRORHAPPENED!= -3 ))||new_error){ -if(qbevent){evnt(2818);if(r)goto S_3605;} -do{ -*__INTEGER_QBERRORHAPPENED= 0 ; -if(!qbevent)break;evnt(2818);}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(2818);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(2818);}while(r); -} -do{ -*__LONG_INCLEVEL=*__LONG_INCLEVEL+ 1 ; -if(!qbevent)break;evnt(2819);}while(r); -do{ -tmp_long=array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[tmp_long])),__STRING_F); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2819);}while(r); -do{ -tmp_long=array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(2819);}while(r); -} -S_3614:; -while((*__LONG_INCLEVEL)||new_error){ -if(qbevent){evnt(2822);if(r)goto S_3614;} -do{ -*__LONG_FH= 99 +*__LONG_INCLEVEL; -if(!qbevent)break;evnt(2824);}while(r); -S_3616:; -if ((-(func_eof(*__LONG_FH)== 0 ))||new_error){ -if(qbevent){evnt(2826);if(r)goto S_3616;} -do{ -tmp_fileno=*__LONG_FH; -if (new_error) goto skip319; -sub_file_line_input_string(tmp_fileno,__STRING_X); -if (new_error) goto skip319; -skip319: -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2827);}while(r); -do{ -qbs_set(__STRING_WHOLELINE,__STRING_X); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2829);}while(r); -do{ -tmp_long=array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5]); -if (!new_error) ((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(2830);}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(2832);}while(r); -do{ -qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len(" in line ",9),FUNC_STR2((&(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])))),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_new_txt_len(" included",9))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2833);}while(r); -S_3622:; -if ((-(*__LONG_INCLEVEL> 1 ))||new_error){ -if(qbevent){evnt(2834);if(r)goto S_3622;} -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(2835);}while(r); -S_3624:; -fornext_value321= 1 ; -fornext_finalvalue321=*__LONG_INCLEVEL- 1 ; -fornext_step321= 1 ; -if (fornext_step321<0) fornext_step_negative321=1; else fornext_step_negative321=0; -if (new_error) goto fornext_error321; -goto fornext_entrylabel321; -while(1){ -fornext_value321=fornext_step321+(*__LONG_X); -fornext_entrylabel321: -*__LONG_X=fornext_value321; -if (fornext_step_negative321){ -if (fornext_value321fornext_finalvalue321) break; -} -fornext_error321:; -if(qbevent){evnt(2836);if(r)goto S_3624;} -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(2837);}while(r); -S_3626:; -if ((-(*__LONG_X<(*__LONG_INCLEVEL- 1 )))||new_error){ -if(qbevent){evnt(2838);if(r)goto S_3626;} -S_3627:; -if ((-(*__LONG_X==(*__LONG_INCLEVEL- 2 )))||new_error){ -if(qbevent){evnt(2839);if(r)goto S_3627;} -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(2840);}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(2842);}while(r); -} -} -fornext_continue_320:; -} -fornext_exit_320:; -do{ -qbs_set(__STRING_E,qbs_add(__STRING_E,qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2846);}while(r); -} -do{ -qbs_set(__STRING_INCERROR,__STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2848);}while(r); -do{ -*__LONG_LINENUMBER=*__LONG_LINENUMBER- 1 ; -if(!qbevent)break;evnt(2849);}while(r); -S_3638:; -if (( 0 )||new_error){ -if(qbevent){evnt(2851);if(r)goto S_3638;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip322; -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 (new_error) goto skip322; -skip322: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(2851);}while(r); -} -S_3641:; -if ((*__LONG_IDEMODE)||new_error){ -if(qbevent){evnt(2853);if(r)goto S_3641;} -do{ -qbs_set(__STRING_SENDC,qbs_add(func_chr( 10 ),__STRING_WHOLELINE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2853);}while(r); -do{ -goto LABEL_SENDCOMMAND; -if(!qbevent)break;evnt(2853);}while(r); -} -do{ -goto LABEL_IDEPREPASS; -if(!qbevent)break;evnt(2854);}while(r); -} -do{ -sub_close(*__LONG_FH,1); -if(!qbevent)break;evnt(2857);}while(r); -do{ -*__LONG_INCLEVEL=*__LONG_INCLEVEL- 1 ; -if(!qbevent)break;evnt(2858);}while(r); -S_3649:; -if (((-(*__LONG_FORCEINCLUDINGFILE== 1 ))&(-(*__LONG_INCLEVEL== 0 )))||new_error){ -if(qbevent){evnt(2859);if(r)goto S_3649;} -do{ -*__LONG_FORCEINCLUDINGFILE= 0 ; -if(!qbevent)break;evnt(2860);}while(r); -do{ -goto LABEL_FORCEINCLUDECOMPLETED_PREPASS; -if(!qbevent)break;evnt(2861);}while(r); -} -dl_continue_318:; -} -dl_exit_318:; -S_3654:; -if ((*__LONG_IDEMODE)||new_error){ -if(qbevent){evnt(2866);if(r)goto S_3654;} -do{ -goto LABEL_IDERET2; -if(!qbevent)break;evnt(2866);}while(r); -} -dl_continue_225:; -}while(1); -dl_exit_225:; -S_3658:; -if ((-(*__LONG_LASTLINERETURN== 0 ))||new_error){ -if(qbevent){evnt(2870);if(r)goto S_3658;} -do{ -*__LONG_LASTLINERETURN= 1 ; -if(!qbevent)break;evnt(2871);}while(r); -do{ -*__LONG_LASTLINE= 1 ; -if(!qbevent)break;evnt(2872);}while(r); -do{ -qbs_set(__STRING_WHOLELINE,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2873);}while(r); -do{ -goto LABEL_PREPASSLASTLINE; -if(!qbevent)break;evnt(2874);}while(r); -} -S_3664:; -if ((*__LONG_DEFININGTYPE)||new_error){ -if(qbevent){evnt(2877);if(r)goto S_3664;} -do{ -*__LONG_DEFININGTYPE= 0 ; -if(!qbevent)break;evnt(2877);}while(r); -} -S_3667:; -if ((*__LONG_DECLARINGLIBRARY)||new_error){ -if(qbevent){evnt(2878);if(r)goto S_3667;} -do{ -*__LONG_DECLARINGLIBRARY= 0 ; -if(!qbevent)break;evnt(2878);}while(r); -} -do{ -*__LONG_TOTALLINENUMBER=*__LONG_REALLINENUMBER; -if(!qbevent)break;evnt(2880);}while(r); -do{ -*__LONG_LINEINPUT3INDEX= 1 ; -if(!qbevent)break;evnt(2886);}while(r); -LABEL_IDE3:; -if(qbevent){evnt(2889);r=0;} -do{ -qbs_set(__STRING_ADDMETAINCLUDE,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2891);}while(r); -do{ -*__LONG_DATAOFFSET= 0 ; -if(!qbevent)break;evnt(2894);}while(r); -do{ -*__LONG_INCLEVEL= 0 ; -if(!qbevent)break;evnt(2895);}while(r); -do{ -*__LONG_SUBFUNCN= 0 ; -if(!qbevent)break;evnt(2896);}while(r); -do{ -*__LONG_LASTLINERETURN= 0 ; -if(!qbevent)break;evnt(2897);}while(r); -do{ -*__LONG_LASTLINE= 0 ; -if(!qbevent)break;evnt(2898);}while(r); -do{ -*__LONG_FIRSTLINE= 1 ; -if(!qbevent)break;evnt(2899);}while(r); -do{ -*__INTEGER_USERDEFINECOUNT= 7 ; -if(!qbevent)break;evnt(2900);}while(r); -S_3680:; -fornext_value324= 0 ; -fornext_finalvalue324=*__LONG_CONSTLAST; -fornext_step324= 1 ; -if (fornext_step324<0) fornext_step_negative324=1; else fornext_step_negative324=0; -if (new_error) 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_value324fornext_finalvalue324) break; -} -fornext_error324:; -if(qbevent){evnt(2902);if(r)goto S_3680;} -do{ -tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_CONSTDEFINED[4],__ARRAY_LONG_CONSTDEFINED[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_CONSTDEFINED[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(2902);}while(r); -fornext_continue_323:; -} -fornext_exit_323:; -S_3683:; -fornext_value326= 1 ; -fornext_finalvalue326= 27 ; -fornext_step326= 1 ; -if (fornext_step326<0) fornext_step_negative326=1; else fornext_step_negative326=0; -if (new_error) goto fornext_error326; -goto fornext_entrylabel326; -while(1){ -fornext_value326=fornext_step326+(*__LONG_I); -fornext_entrylabel326: -*__LONG_I=fornext_value326; -if (fornext_step_negative326){ -if (fornext_value326fornext_finalvalue326) break; -} -fornext_error326:; -if(qbevent){evnt(2904);if(r)goto S_3683;} -do{ -tmp_long=array_check((*__LONG_I)-__ARRAY_STRING_DEFINEAZ[4],__ARRAY_STRING_DEFINEAZ[5]); -if (!new_error) 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(2904);}while(r); -do{ -tmp_long=array_check((*__LONG_I)-__ARRAY_STRING_DEFINEEXTAZ[4],__ARRAY_STRING_DEFINEEXTAZ[5]); -if (!new_error) 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(2904);}while(r); -fornext_continue_325:; -} -fornext_exit_325:; -do{ -if(!qbevent)break;evnt(2906);}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(2906);}while(r); -do{ -if(!qbevent)break;evnt(2908);}while(r); -do{ -*__LONG_MAINTXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("main.txt",8))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2908);}while(r); -do{ -if(!qbevent)break;evnt(2909);}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(2909);}while(r); -do{ -if(!qbevent)break;evnt(2911);}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(2911);}while(r); -do{ -if(!qbevent)break;evnt(2913);}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(2913);}while(r); -do{ -if(!qbevent)break;evnt(2914);}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(2914);}while(r); -do{ -if(!qbevent)break;evnt(2916);}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(2916);}while(r); -do{ -*__LONG_ERRORLABELS= 0 ; -if(!qbevent)break;evnt(2919);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass327=*__LONG_ERRTXTBUF),qbs_new_txt_len("if (error_occurred){ error_occurred=0;",38)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2920);}while(r); -do{ -if(!qbevent)break;evnt(2922);}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(2922);}while(r); -do{ -if(!qbevent)break;evnt(2923);}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(2923);}while(r); -do{ -if(!qbevent)break;evnt(2925);}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(2925);}while(r); -do{ -if(!qbevent)break;evnt(2926);}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(2926);}while(r); -do{ -if(!qbevent)break;evnt(2930);}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(2930);}while(r); -do{ -if(!qbevent)break;evnt(2931);}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(2931);}while(r); -do{ -if(!qbevent)break;evnt(2933);}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(2933);}while(r); -do{ -if(!qbevent)break;evnt(2934);}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(2934);}while(r); -do{ -*__LONG_GOSUBID= 1 ; -if(!qbevent)break;evnt(2936);}while(r); -do{ -if(!qbevent)break;evnt(2944);}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(2944);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass328=*__LONG_RETTXTBUF),qbs_new_txt_len("if (next_return_point){",23)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2945);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass329=*__LONG_RETTXTBUF),qbs_new_txt_len("next_return_point--;",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2946);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass330=*__LONG_RETTXTBUF),qbs_new_txt_len("switch(return_point[next_return_point]){",40)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2947);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass331=*__LONG_RETTXTBUF),qbs_new_txt_len("case 0:",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2948);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass332=*__LONG_RETTXTBUF),qbs_new_txt_len("return;",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2950);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass333=*__LONG_RETTXTBUF),qbs_new_txt_len("break;",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2952);}while(r); -do{ -*__LONG_CONTINUELINE= 0 ; -if(!qbevent)break;evnt(2954);}while(r); -do{ -*__LONG_ENDIFS= 0 ; -if(!qbevent)break;evnt(2955);}while(r); -do{ -*__LONG_LINEELSEUSED= 0 ; -if(!qbevent)break;evnt(2956);}while(r); -do{ -*__LONG_CONTINUELINEFROM= 0 ; -if(!qbevent)break;evnt(2957);}while(r); -do{ -*__LONG_LINENUMBER= 0 ; -if(!qbevent)break;evnt(2958);}while(r); -do{ -*__LONG_REALLINENUMBER= 0 ; -if(!qbevent)break;evnt(2959);}while(r); -do{ -*__LONG_DECLARINGLIBRARY= 0 ; -if(!qbevent)break;evnt(2960);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass334=*__LONG_MAINTXTBUF),qbs_new_txt_len("S_0:;",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2962);}while(r); -S_3736:; -if ((*__LONG_USEGL)||new_error){ -if(qbevent){evnt(2964);if(r)goto S_3736;} -do{ -SUB_GL_INCLUDE_CONTENT(); -if(!qbevent)break;evnt(2964);}while(r); -} -S_3739:; -if ((*__LONG_IDEMODE)||new_error){ -if(qbevent){evnt(2968);if(r)goto S_3739;} -do{ -goto LABEL_IDERET3; -if(!qbevent)break;evnt(2968);}while(r); -} -S_3742:; -do{ -if(qbevent){evnt(2970);if(r)goto S_3742;} -LABEL_IDE4:; -if(qbevent){evnt(2971);r=0;} -LABEL_INCLUDELINE:; -if(qbevent){evnt(2972);r=0;} -LABEL_MAINPASSLASTLINE:; -if(qbevent){evnt(2973);r=0;} -S_3743:; -if (((-(*__LONG_LASTLINE!= 0 ))|(-(*__LONG_FIRSTLINE!= 0 )))||new_error){ -if(qbevent){evnt(2975);if(r)goto S_3743;} -do{ -qbs_set(__STRING_LINEBACKUP,__STRING_A3); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2976);}while(r); -do{ -qbs_set(__STRING_FORCEINCLUDEFROMROOT,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2977);}while(r); -S_3746:; -if ((*__LONG_VWATCHON)||new_error){ -if(qbevent){evnt(2978);if(r)goto S_3746;} -do{ -*__LONG_ADDINGVWATCH= 1 ; -if(!qbevent)break;evnt(2979);}while(r); -S_3748:; -if ((-(*__LONG_FIRSTLINE!= 0 ))||new_error){ -if(qbevent){evnt(2980);if(r)goto S_3748;} -do{ -qbs_set(__STRING_FORCEINCLUDEFROMROOT,qbs_new_txt_len("internal\\support\\vwatch\\vwatch.bi",33)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2980);}while(r); -} -S_3751:; -if ((-(*__LONG_LASTLINE!= 0 ))||new_error){ -if(qbevent){evnt(2981);if(r)goto S_3751;} -do{ -qbs_set(__STRING_FORCEINCLUDEFROMROOT,qbs_new_txt_len("internal\\support\\vwatch\\vwatch.bm",33)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2981);}while(r); -} -}else{ -S_3755:; -if ((-(*__LONG_LASTLINE!= 0 ))||new_error){ -if(qbevent){evnt(2984);if(r)goto S_3755;} -do{ -qbs_set(__STRING_FORCEINCLUDEFROMROOT,qbs_new_txt_len("internal\\support\\vwatch\\vwatch_stub.bm",38)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2984);}while(r); -} -} -do{ -*__LONG_FIRSTLINE= 0 ; -if(!qbevent)break;evnt(2986);}while(r); -do{ -*__LONG_LASTLINE= 0 ; -if(!qbevent)break;evnt(2986);}while(r); -S_3761:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_FORCEINCLUDEFROMROOT->len))||new_error){ -if(qbevent){evnt(2987);if(r)goto S_3761;} -do{ -goto LABEL_FORCEINCLUDE; -if(!qbevent)break;evnt(2987);}while(r); -} -LABEL_FORCEINCLUDECOMPLETED:; -if(qbevent){evnt(2988);r=0;} -do{ -*__LONG_ADDINGVWATCH= 0 ; -if(!qbevent)break;evnt(2989);}while(r); -do{ -qbs_set(__STRING_A3,__STRING_LINEBACKUP); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(2990);}while(r); -} -do{ -*__LONG_PREPASS= 0 ; -if(!qbevent)break;evnt(2993);}while(r); -do{ -*__INTEGER_STRINGPROCESSINGHAPPENED= 0 ; -if(!qbevent)break;evnt(2995);}while(r); -S_3769:; -if ((*__LONG_CONTINUELINEFROM)||new_error){ -if(qbevent){evnt(2997);if(r)goto S_3769;} -do{ -*__LONG_START=*__LONG_CONTINUELINEFROM; -if(!qbevent)break;evnt(2998);}while(r); -do{ -*__LONG_CONTINUELINEFROM= 0 ; -if(!qbevent)break;evnt(2999);}while(r); -do{ -goto LABEL_CONTLINE; -if(!qbevent)break;evnt(3000);}while(r); -} -do{ -*__LONG_IMPLIEDENDIF= 0 ; -if(!qbevent)break;evnt(3005);}while(r); -do{ -*__LONG_THENGOTO= 0 ; -if(!qbevent)break;evnt(3006);}while(r); -do{ -*__LONG_CONTINUELINE= 0 ; -if(!qbevent)break;evnt(3007);}while(r); -do{ -*__LONG_ENDIFS= 0 ; -if(!qbevent)break;evnt(3008);}while(r); -do{ -*__LONG_LINEELSEUSED= 0 ; -if(!qbevent)break;evnt(3009);}while(r); -do{ -*__LONG_NEWIF= 0 ; -if(!qbevent)break;evnt(3010);}while(r); -S_3780:; -if ((-(*__INTEGER_ADDMETADYNAMIC== 1 ))||new_error){ -if(qbevent){evnt(3013);if(r)goto S_3780;} -do{ -*__INTEGER_ADDMETADYNAMIC= 0 ; -if(!qbevent)break;evnt(3013);}while(r); -do{ -*__INTEGER_DYNAMICMODE= 1 ; -if(!qbevent)break;evnt(3013);}while(r); -} -S_3784:; -if ((-(*__INTEGER_ADDMETASTATIC== 1 ))||new_error){ -if(qbevent){evnt(3014);if(r)goto S_3784;} -do{ -*__INTEGER_ADDMETASTATIC= 0 ; -if(!qbevent)break;evnt(3014);}while(r); -do{ -*__INTEGER_DYNAMICMODE= 0 ; -if(!qbevent)break;evnt(3014);}while(r); -} -S_3788:; -if (((-(*__LONG_IDEMODE== 0 ))&(-(*__LONG_INCLEVEL== 0 )))||new_error){ -if(qbevent){evnt(3017);if(r)goto S_3788;} -do{ -qbs_set(__STRING_A3,FUNC_LINEINPUT3()); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3017);}while(r); -} -S_3791:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3,func_chr( 13 ))))||new_error){ -if(qbevent){evnt(3018);if(r)goto S_3791;} -do{ -goto dl_exit_335; -if(!qbevent)break;evnt(3018);}while(r); -} -do{ -*__LONG_LINENUMBER=*__LONG_LINENUMBER+ 1 ; -if(!qbevent)break;evnt(3019);}while(r); -do{ -*__LONG_REALLINENUMBER=*__LONG_REALLINENUMBER+ 1 ; -if(!qbevent)break;evnt(3020);}while(r); -S_3796:; -if ((((int8*)(__ARRAY_BYTE_INVALIDLINE[0]))[array_check((*__LONG_LINENUMBER)-__ARRAY_BYTE_INVALIDLINE[4],__ARRAY_BYTE_INVALIDLINE[5])])||new_error){ -if(qbevent){evnt(3022);if(r)goto S_3796;} -do{ -*__LONG_LAYOUTOK= 1 ; -if(!qbevent)break;evnt(3023);}while(r); -do{ -qbs_set(__STRING_LAYOUT,qbs_add(func_space(*__INTEGER_CONTROLLEVEL+ 1 ),qbs_ltrim(qbs_rtrim(__STRING_A3)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3024);}while(r); -S_3799:; -if ((*__LONG_IDEMODE)||new_error){ -if(qbevent){evnt(3025);if(r)goto S_3799;} -do{ -goto LABEL_IDERET4; -if(!qbevent)break;evnt(3025);}while(r); -}else{ -do{ -goto LABEL_SKIPIDE4; -if(!qbevent)break;evnt(3025);}while(r); -} -} -do{ -qbs_set(__STRING_LAYOUT,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3028);}while(r); -do{ -*__LONG_LAYOUTOK= 1 ; -if(!qbevent)break;evnt(3029);}while(r); -S_3807:; -if (((-(*__LONG_IDEMODE== 0 ))&(~(*__BYTE_QUIETMODE)))||new_error){ -if(qbevent){evnt(3031);if(r)goto S_3807;} -do{ -*__LONG_MAXPROGRESSWIDTH= 50 ; -if(!qbevent)break;evnt(3035);}while(r); -do{ -*__LONG_PERCENTAGE=qbr(floor(*__LONG_REALLINENUMBER/ ((long double)(*__LONG_TOTALLINENUMBER))* 100 )); -if(!qbevent)break;evnt(3036);}while(r); -do{ -*__LONG_PERCENTAGECHARS=qbr(floor(*__LONG_MAXPROGRESSWIDTH**__LONG_REALLINENUMBER/ ((long double)(*__LONG_TOTALLINENUMBER)))); -if(!qbevent)break;evnt(3037);}while(r); -S_3811:; -if (((-(*__LONG_PERCENTAGE!=*__LONG_PREVPERCENTAGE))&(-(*__LONG_PERCENTAGECHARS!=*__LONG_PREVPERCENTAGECHARS)))||new_error){ -if(qbevent){evnt(3038);if(r)goto S_3811;} -do{ -*__LONG_PREVPERCENTAGE=*__LONG_PERCENTAGE; -if(!qbevent)break;evnt(3039);}while(r); -do{ -*__LONG_PREVPERCENTAGECHARS=*__LONG_PERCENTAGECHARS; -if(!qbevent)break;evnt(3040);}while(r); -S_3814:; -if ((*__LONG_CONSOLEMODE)||new_error){ -if(qbevent){evnt(3041);if(r)goto S_3814;} -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 (new_error) goto skip337; -makefit(tqbs); -qbs_print(tqbs,0); -skip337: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3042);}while(r); -S_3816:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ -if(qbevent){evnt(3043);if(r)goto S_3816;} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_add(func_chr( 27 ),qbs_new_txt_len("[A",2))); -if (new_error) goto skip338; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip338: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3044);}while(r); -}else{ -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_chr( 13 )); -if (new_error) goto skip339; -makefit(tqbs); -qbs_print(tqbs,0); -skip339: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3046);}while(r); -} -}else{ -do{ -qbg_sub_locate(NULL, 1 ,NULL,NULL,NULL,2); -if(!qbevent)break;evnt(3049);}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 (new_error) goto skip340; -makefit(tqbs); -qbs_print(tqbs,0); -skip340: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3050);}while(r); -} -} -} -do{ -qbs_set(__STRING_A3,qbs_ltrim(qbs_rtrim(__STRING_A3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3055);}while(r); -do{ -qbs_set(__STRING_WHOLELINE,__STRING_A3); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3056);}while(r); -do{ -qbs_set(__STRING_LAYOUTORIGINAL,__STRING_A3); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3058);}while(r); -do{ -qbs_set(__STRING_LAYOUTCOMMENT,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3059);}while(r); -do{ -*__LONG_LHSCONTROLLEVEL=*__INTEGER_CONTROLLEVEL; -if(!qbevent)break;evnt(3060);}while(r); -do{ -qbs_set(__STRING_LINEFRAGMENT,qbs_new_txt_len("[INFORMATION UNAVAILABLE]",25)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3062);}while(r); -S_3833:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_A3->len== 0 )))||new_error){ -if(qbevent){evnt(3063);if(r)goto S_3833;} -do{ -goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(3063);}while(r); -} -S_3836:; -if (( 0 )||new_error){ -if(qbevent){evnt(3064);if(r)goto S_3836;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip342; -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 (new_error) goto skip342; -skip342: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(3064);}while(r); -} -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(3066);}while(r); -do{ -qbs_set(__STRING_A3U,qbs_ucase(__STRING_A3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3072);}while(r); -S_3841:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_A3)== 36 )))||new_error){ -if(qbevent){evnt(3075);if(r)goto S_3841;} -S_3842:; -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)))))||new_error){ -if(qbevent){evnt(3078);if(r)goto S_3842;} -S_3843:; -if ((-(((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]== 0 ))||new_error){ -if(qbevent){evnt(3079);if(r)goto S_3843;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("$END IF without $IF",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3079);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(3079);}while(r); -} -do{ -tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5]); -if (!new_error) ((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(3080);}while(r); -do{ -*__INTEGER_EXECCOUNTER=*__INTEGER_EXECCOUNTER- 1 ; -if(!qbevent)break;evnt(3081);}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(3082);}while(r); -do{ -tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(3083);}while(r); -do{ -*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ; -if(!qbevent)break;evnt(3084);}while(r); -do{ -goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(3085);}while(r); -} -S_3854:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_A3U, 4 ),qbs_new_txt_len("$IF ",4))))||new_error){ -if(qbevent){evnt(3088);if(r)goto S_3854;} -S_3855:; -if (((-(*__ULONG_SELECTCASECOUNTER> 0 ))&(-(((int32*)(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]))[array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_SELECTCASEHASCASEBLOCK[4],__ARRAY_LONG_SELECTCASEHASCASEBLOCK[5])]== 0 )))||new_error){ -if(qbevent){evnt(3090);if(r)goto S_3855;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected CASE expression",24)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3091);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(3091);}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(3094);}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(3095);}while(r); -do{ -*__LONG_TEMP= 0 ; -if(!qbevent)break;evnt(3096);}while(r); -S_3862:; -if ((-(*__LONG_TEMP== 0 ))||new_error){ -if(qbevent){evnt(3097);if(r)goto S_3862;} -do{ -qbs_set(__STRING_TEMPOP,qbs_new_txt_len("<=",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3097);}while(r); -do{ -*__LONG_TEMP=func_instr(NULL,__STRING_TEMP,__STRING_TEMPOP,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3097);}while(r); -} -S_3866:; -if ((-(*__LONG_TEMP== 0 ))||new_error){ -if(qbevent){evnt(3098);if(r)goto S_3866;} -do{ -qbs_set(__STRING_TEMPOP,qbs_new_txt_len("=<",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3098);}while(r); -do{ -*__LONG_TEMP=func_instr(NULL,__STRING_TEMP,__STRING_TEMPOP,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3098);}while(r); -do{ -qbs_set(__STRING_TEMPOP,qbs_new_txt_len("<=",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3098);}while(r); -} -S_3871:; -if ((-(*__LONG_TEMP== 0 ))||new_error){ -if(qbevent){evnt(3099);if(r)goto S_3871;} -do{ -qbs_set(__STRING_TEMPOP,qbs_new_txt_len(">=",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3099);}while(r); -do{ -*__LONG_TEMP=func_instr(NULL,__STRING_TEMP,__STRING_TEMPOP,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3099);}while(r); -} -S_3875:; -if ((-(*__LONG_TEMP== 0 ))||new_error){ -if(qbevent){evnt(3100);if(r)goto S_3875;} -do{ -qbs_set(__STRING_TEMPOP,qbs_new_txt_len("=>",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3100);}while(r); -do{ -*__LONG_TEMP=func_instr(NULL,__STRING_TEMP,__STRING_TEMPOP,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3100);}while(r); -do{ -qbs_set(__STRING_TEMPOP,qbs_new_txt_len(">=",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3100);}while(r); -} -S_3880:; -if ((-(*__LONG_TEMP== 0 ))||new_error){ -if(qbevent){evnt(3101);if(r)goto S_3880;} -do{ -qbs_set(__STRING_TEMPOP,qbs_new_txt_len("<>",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3101);}while(r); -do{ -*__LONG_TEMP=func_instr(NULL,__STRING_TEMP,__STRING_TEMPOP,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3101);}while(r); -} -S_3884:; -if ((-(*__LONG_TEMP== 0 ))||new_error){ -if(qbevent){evnt(3102);if(r)goto S_3884;} -do{ -qbs_set(__STRING_TEMPOP,qbs_new_txt_len("><",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3102);}while(r); -do{ -*__LONG_TEMP=func_instr(NULL,__STRING_TEMP,__STRING_TEMPOP,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3102);}while(r); -do{ -qbs_set(__STRING_TEMPOP,qbs_new_txt_len("<>",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3102);}while(r); -} -S_3889:; -if ((-(*__LONG_TEMP== 0 ))||new_error){ -if(qbevent){evnt(3103);if(r)goto S_3889;} -do{ -qbs_set(__STRING_TEMPOP,qbs_new_txt_len("=",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3103);}while(r); -do{ -*__LONG_TEMP=func_instr(NULL,__STRING_TEMP,__STRING_TEMPOP,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3103);}while(r); -} -S_3893:; -if ((-(*__LONG_TEMP== 0 ))||new_error){ -if(qbevent){evnt(3104);if(r)goto S_3893;} -do{ -qbs_set(__STRING_TEMPOP,qbs_new_txt_len(">",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3104);}while(r); -do{ -*__LONG_TEMP=func_instr(NULL,__STRING_TEMP,__STRING_TEMPOP,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3104);}while(r); -} -S_3897:; -if ((-(*__LONG_TEMP== 0 ))||new_error){ -if(qbevent){evnt(3105);if(r)goto S_3897;} -do{ -qbs_set(__STRING_TEMPOP,qbs_new_txt_len("<",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3105);}while(r); -do{ -*__LONG_TEMP=func_instr(NULL,__STRING_TEMP,__STRING_TEMPOP,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3105);}while(r); -} -do{ -*__INTEGER_EXECCOUNTER=*__INTEGER_EXECCOUNTER+ 1 ; -if(!qbevent)break;evnt(3107);}while(r); -do{ -tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[tmp_long]= -1 ; -if(!qbevent)break;evnt(3108);}while(r); -do{ -tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5]); -if (!new_error) ((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(3109);}while(r); -do{ -*__LONG_RESULT=FUNC_EVALPREIF(__STRING_TEMP,__STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3110);}while(r); -S_3905:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_A,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(3111);if(r)goto S_3905;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(3111);}while(r); -} -S_3908:; -if ((-(*__LONG_RESULT!= 0 ))||new_error){ -if(qbevent){evnt(3112);if(r)goto S_3908;} -do{ -tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5]); -if (!new_error) ((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(3113);}while(r); -S_3910:; -if ((-(((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5])]== 0 ))||new_error){ -if(qbevent){evnt(3114);if(r)goto S_3910;} -do{ -tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5]); -if (!new_error) ((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(3114);}while(r); -} -} -do{ -*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL+ 1 ; -if(!qbevent)break;evnt(3117);}while(r); -do{ -tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[tmp_long]= 6 ; -if(!qbevent)break;evnt(3118);}while(r); -S_3916:; -if ((-(*__LONG_TEMP== 0 ))||new_error){ -if(qbevent){evnt(3119);if(r)goto S_3916;} -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(3119);}while(r); -do{ -goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(3119);}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(3120);}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(3120);}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(3121);}while(r); -do{ -goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(3122);}while(r); -} -S_3925:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$ELSE",5))))||new_error){ -if(qbevent){evnt(3125);if(r)goto S_3925;} -S_3926:; -if ((-(((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]== 0 ))||new_error){ -if(qbevent){evnt(3126);if(r)goto S_3926;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("$ELSE without $IF",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3126);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(3126);}while(r); -} -S_3930:; -if ((((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]& 2 )||new_error){ -if(qbevent){evnt(3127);if(r)goto S_3930;} -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(3127);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(3127);}while(r); -} -do{ -tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5]); -if (!new_error) ((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(3128);}while(r); -S_3935:; -if ((((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]& 4 )||new_error){ -if(qbevent){evnt(3129);if(r)goto S_3935;} -do{ -tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[tmp_long]= -1 ; -if(!qbevent)break;evnt(3130);}while(r); -}else{ -do{ -tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5]); -if (!new_error) ((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(3132);}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(3134);}while(r); -do{ -*__LONG_LHSCONTROLLEVEL=*__LONG_LHSCONTROLLEVEL- 1 ; -if(!qbevent)break;evnt(3135);}while(r); -do{ -goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(3136);}while(r); -} -S_3944:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_A3U, 5 ),qbs_new_txt_len("$ELSE",5))))||new_error){ -if(qbevent){evnt(3139);if(r)goto S_3944;} -do{ -qbs_set(__STRING_TEMP,qbs_ltrim(func_mid(__STRING_A3U, 6 ,NULL,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3140);}while(r); -S_3946:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_TEMP, 3 ),qbs_new_txt_len("IF ",3))))||new_error){ -if(qbevent){evnt(3141);if(r)goto S_3946;} -S_3947:; -if ((-(((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]== 0 ))||new_error){ -if(qbevent){evnt(3142);if(r)goto S_3947;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("$ELSE IF without $IF",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3142);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(3142);}while(r); -} -S_3951:; -if ((((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]& 2 )||new_error){ -if(qbevent){evnt(3143);if(r)goto S_3951;} -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(3143);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(3143);}while(r); -} -S_3955:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_right(__STRING_TEMP, 5 ),qbs_new_txt_len(" THEN",5))))||new_error){ -if(qbevent){evnt(3144);if(r)goto S_3955;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("$ELSE IF without THEN",21)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3144);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(3144);}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(3145);}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(3146);}while(r); -S_3961:; -if ((((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]& 4 )||new_error){ -if(qbevent){evnt(3147);if(r)goto S_3961;} -do{ -tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[tmp_long]= -1 ; -if(!qbevent)break;evnt(3148);}while(r); -}else{ -do{ -*__LONG_RESULT=FUNC_EVALPREIF(__STRING_TEMP,__STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3150);}while(r); -S_3965:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_A,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(3151);if(r)goto S_3965;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(3151);}while(r); -} -S_3968:; -if ((-(*__LONG_RESULT!= 0 ))||new_error){ -if(qbevent){evnt(3152);if(r)goto S_3968;} -do{ -tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5]); -if (!new_error) ((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(3153);}while(r); -S_3970:; -if ((-(((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5])]== 0 ))||new_error){ -if(qbevent){evnt(3154);if(r)goto S_3970;} -do{ -tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5]); -if (!new_error) ((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(3154);}while(r); -} -} -} -do{ -*__LONG_LHSCONTROLLEVEL=*__LONG_LHSCONTROLLEVEL- 1 ; -if(!qbevent)break;evnt(3159);}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(3160);}while(r); -S_3977:; -if ((-(*__LONG_TEMP== 0 ))||new_error){ -if(qbevent){evnt(3161);if(r)goto S_3977;} -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(3161);}while(r); -do{ -goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(3161);}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(3162);}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(3162);}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(3163);}while(r); -do{ -goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(3164);}while(r); -} -} -S_3987:; -if ((((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5])])||new_error){ -if(qbevent){evnt(3168);if(r)goto S_3987;} -do{ -*__LONG_LAYOUTDONE= 0 ; -if(!qbevent)break;evnt(3169);}while(r); -do{ -goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(3170);}while(r); -} -S_3991:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_A3U, 5 ),qbs_new_txt_len("$LET ",5))))||new_error){ -if(qbevent){evnt(3173);if(r)goto S_3991;} -do{ -qbs_set(__STRING_TEMP,__STRING_A3U); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3174);}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(3175);}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(3177);}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(3178);}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(3178);}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(3179);}while(r); -S_3998:; -fornext_value347= 7 ; -fornext_finalvalue347=*__INTEGER_USERDEFINECOUNT; -fornext_step347= 1 ; -if (fornext_step347<0) fornext_step_negative347=1; else fornext_step_negative347=0; -if (new_error) goto fornext_error347; -goto fornext_entrylabel347; -while(1){ -fornext_value347=fornext_step347+(*__LONG_I); -fornext_entrylabel347: -*__LONG_I=fornext_value347; -if (fornext_step_negative347){ -if (fornext_value347fornext_finalvalue347) break; -} -fornext_error347:; -if(qbevent){evnt(3181);if(r)goto S_3998;} -S_3999:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[array_check(( 0 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*__LONG_I)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]])),__STRING_L)))||new_error){ -if(qbevent){evnt(3182);if(r)goto S_3999;} -do{ -tmp_long=array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*__LONG_I)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),__STRING_R); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3182);}while(r); -do{ -goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(3182);}while(r); -} -fornext_continue_346:; -} -fornext_exit_346:; -do{ -*__INTEGER_USERDEFINECOUNT=*__INTEGER_USERDEFINECOUNT+ 1 ; -if(!qbevent)break;evnt(3185);}while(r); -S_4005:; -if ((qbs_cleanup(qbs_tmp_base,-(*__INTEGER_USERDEFINECOUNT>func_ubound(__ARRAY_STRING_USERDEFINE, 2 ,2))))||new_error){ -if(qbevent){evnt(3186);if(r)goto S_4005;} -do{ +} +if(!qbevent)break;evnt(2369);}while(r); +} +do{ +*__LONG_I2=*__LONG_CONSTLAST; +if(!qbevent)break;evnt(2372);}while(r); +do{ +tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_CONSTSUBFUNC[4],__ARRAY_LONG_CONSTSUBFUNC[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_CONSTSUBFUNC[0]))[tmp_long]=*__LONG_SUBFUNCN; +if(!qbevent)break;evnt(2374);}while(r); +S_3025:; +if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(__STRING_N)== 0 )))||new_error){ +if(qbevent){evnt(2377);if(r)goto S_3025;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Invalid name",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2377);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2377);}while(r); +} +do{ +tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING_CONSTNAME[4],__ARRAY_STRING_CONSTNAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_CONSTNAME[0]))[tmp_long])),qbs_ucase(__STRING_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2378);}while(r); +do{ +qbs_set(__STRING_HASHNAME,__STRING_N); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2380);}while(r); +do{ +*__LONG_ALLOW= 0 ; +if(!qbevent)break;evnt(2383);}while(r); +LABEL_CONST_RECHECK:; +if(qbevent){evnt(2384);r=0;} +do{ +*__LONG_HASHCHKFLAGS= 8 + 64 + 128 + 1024 ; +if(!qbevent)break;evnt(2385);}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(2386);}while(r); +S_3034:; +while((*__LONG_HASHRES)||new_error){ +if(qbevent){evnt(2387);if(r)goto S_3034;} +S_3035:; +if ((*__LONG_HASHRESFLAGS& 1024 )||new_error){ +if(qbevent){evnt(2388);if(r)goto S_3035;} +S_3036:; +if ((-(((int32*)(__ARRAY_LONG_CONSTSUBFUNC[0]))[array_check((*__LONG_HASHRESREF)-__ARRAY_LONG_CONSTSUBFUNC[4],__ARRAY_LONG_CONSTSUBFUNC[5])]==*__LONG_SUBFUNCN))||new_error){ +if(qbevent){evnt(2389);if(r)goto S_3036;} +do{ +*__LONG_ISSUEWARNING= 0 ; +if(!qbevent)break;evnt(2392);}while(r); +S_3038:; +if ((*__LONG_T&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(2393);if(r)goto S_3038;} +S_3039:; +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)))||new_error){ +if(qbevent){evnt(2394);if(r)goto S_3039;} +do{ +*__LONG_ISSUEWARNING= -1 ; +if(!qbevent)break;evnt(2394);}while(r); +do{ +qbs_set(__STRING_THISCONSTVAL,__STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2394);}while(r); +} +}else{ +S_3044:; +if ((*__LONG_T&*__LONG_ISFLOAT)||new_error){ +if(qbevent){evnt(2396);if(r)goto S_3044;} +S_3045:; +if ((-(((long double*)(__ARRAY_FLOAT_CONSTFLOAT[0]))[array_check((*__LONG_HASHRESREF)-__ARRAY_FLOAT_CONSTFLOAT[4],__ARRAY_FLOAT_CONSTFLOAT[5])]==*__FLOAT_CONSTVAL))||new_error){ +if(qbevent){evnt(2397);if(r)goto S_3045;} +do{ +*__LONG_ISSUEWARNING= -1 ; +if(!qbevent)break;evnt(2397);}while(r); +do{ +qbs_set(__STRING_THISCONSTVAL,qbs_str((long double)(*__FLOAT_CONSTVAL))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2397);}while(r); +} +}else{ +S_3050:; +if ((*__LONG_T&*__LONG_ISUNSIGNED)||new_error){ +if(qbevent){evnt(2399);if(r)goto S_3050;} +S_3051:; +if ((-(((uint64*)(__ARRAY_UINTEGER64_CONSTUINTEGER[0]))[array_check((*__LONG_HASHRESREF)-__ARRAY_UINTEGER64_CONSTUINTEGER[4],__ARRAY_UINTEGER64_CONSTUINTEGER[5])]==*__UINTEGER64_CONSTVAL))||new_error){ +if(qbevent){evnt(2400);if(r)goto S_3051;} +do{ +*__LONG_ISSUEWARNING= -1 ; +if(!qbevent)break;evnt(2400);}while(r); +do{ +qbs_set(__STRING_THISCONSTVAL,qbs_str((uint64)(*__UINTEGER64_CONSTVAL))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2400);}while(r); +} +}else{ +S_3056:; +if ((-(((int64*)(__ARRAY_INTEGER64_CONSTINTEGER[0]))[array_check((*__LONG_HASHRESREF)-__ARRAY_INTEGER64_CONSTINTEGER[4],__ARRAY_INTEGER64_CONSTINTEGER[5])]==*__INTEGER64_CONSTVAL))||new_error){ +if(qbevent){evnt(2402);if(r)goto S_3056;} +do{ +*__LONG_ISSUEWARNING= -1 ; +if(!qbevent)break;evnt(2402);}while(r); +do{ +qbs_set(__STRING_THISCONSTVAL,qbs_str((int64)(*__INTEGER64_CONSTVAL))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2402);}while(r); +} +} +} +} +S_3063:; +if ((*__LONG_ISSUEWARNING)||new_error){ +if(qbevent){evnt(2406);if(r)goto S_3063;} +S_3064:; +if ((~(*__BYTE_IGNOREWARNINGS))||new_error){ +if(qbevent){evnt(2407);if(r)goto S_3064;} +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(" =",2)),__STRING_THISCONSTVAL)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2408);}while(r); +} +do{ +goto LABEL_CONSTADDDONE; +if(!qbevent)break;evnt(2410);}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(2412);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2412);}while(r); +} +} +} +S_3074:; +if ((*__LONG_HASHRESFLAGS& 8 )||new_error){ +if(qbevent){evnt(2416);if(r)goto S_3074;} +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(2417);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2417);}while(r); +} +S_3078:; +if ((*__LONG_HASHRESFLAGS&( 64 + 128 ))||new_error){ +if(qbevent){evnt(2419);if(r)goto S_3078;} +S_3079:; +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)))))||new_error){ +if(qbevent){evnt(2420);if(r)goto S_3079;} +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(2420);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2420);}while(r); +} +S_3083:; +if ((*__LONG_T&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(2421);if(r)goto S_3083;} +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(2421);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2421);}while(r); +} +} +S_3088:; +if ((-(*__LONG_HASHRES!= 1 ))||new_error){ +if(qbevent){evnt(2423);if(r)goto S_3088;} +do{ +*__LONG_HASHRES=FUNC_HASHFINDCONT(__LONG_HASHRESFLAGS,__LONG_HASHRESREF); +if(!qbevent)break;evnt(2423);}while(r); +}else{ +do{ +*__LONG_HASHRES= 0 ; +if(!qbevent)break;evnt(2423);}while(r); +} +dl_continue_274:; +} +dl_exit_274:; +do{ +SUB_HASHADD(__STRING_HASHNAME,&(pass275= 1024 ),__LONG_I2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2427);}while(r); +do{ +tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_CONSTDEFINED[4],__ARRAY_LONG_CONSTDEFINED[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_CONSTDEFINED[0]))[tmp_long]= 1 ; +if(!qbevent)break;evnt(2433);}while(r); +do{ +tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING_CONSTCNAME[4],__ARRAY_STRING_CONSTCNAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_CONSTCNAME[0]))[tmp_long])),__STRING_N); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2434);}while(r); +do{ +tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING_CONSTNAMESYMBOL[4],__ARRAY_STRING_CONSTNAMESYMBOL[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_CONSTNAMESYMBOL[0]))[tmp_long])),FUNC_TYPEVALUE2SYMBOL(__LONG_T)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2435);}while(r); +S_3098:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(2436);if(r)goto S_3098;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2436);}while(r); +} +do{ +tmp_long=array_check((*__LONG_I2)-__ARRAY_LONG_CONSTTYPE[4],__ARRAY_LONG_CONSTTYPE[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_CONSTTYPE[0]))[tmp_long]=*__LONG_T; +if(!qbevent)break;evnt(2437);}while(r); +S_3102:; +if ((*__LONG_T&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(2438);if(r)goto S_3102;} +do{ +tmp_long=array_check((*__LONG_I2)-__ARRAY_STRING_CONSTSTRING[4],__ARRAY_STRING_CONSTSTRING[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_CONSTSTRING[0]))[tmp_long])),__STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2439);}while(r); +}else{ +S_3105:; +if ((*__LONG_T&*__LONG_ISFLOAT)||new_error){ +if(qbevent){evnt(2441);if(r)goto S_3105;} +do{ +tmp_long=array_check((*__LONG_I2)-__ARRAY_FLOAT_CONSTFLOAT[4],__ARRAY_FLOAT_CONSTFLOAT[5]); +if (!new_error) ((long double*)(__ARRAY_FLOAT_CONSTFLOAT[0]))[tmp_long]=*__FLOAT_CONSTVAL; +if(!qbevent)break;evnt(2442);}while(r); +}else{ +S_3108:; +if ((*__LONG_T&*__LONG_ISUNSIGNED)||new_error){ +if(qbevent){evnt(2444);if(r)goto S_3108;} +do{ +tmp_long=array_check((*__LONG_I2)-__ARRAY_UINTEGER64_CONSTUINTEGER[4],__ARRAY_UINTEGER64_CONSTUINTEGER[5]); +if (!new_error) ((uint64*)(__ARRAY_UINTEGER64_CONSTUINTEGER[0]))[tmp_long]=*__UINTEGER64_CONSTVAL; +if(!qbevent)break;evnt(2445);}while(r); +}else{ +do{ +tmp_long=array_check((*__LONG_I2)-__ARRAY_INTEGER64_CONSTINTEGER[4],__ARRAY_INTEGER64_CONSTINTEGER[5]); +if (!new_error) ((int64*)(__ARRAY_INTEGER64_CONSTINTEGER[0]))[tmp_long]=*__INTEGER64_CONSTVAL; +if(!qbevent)break;evnt(2447);}while(r); +} +} +} +LABEL_CONSTADDDONE:; +if(qbevent){evnt(2452);r=0;} +S_3115:; +if ((*__LONG_PENDING)||new_error){ +if(qbevent){evnt(2454);if(r)goto S_3115;} +do{ +goto LABEL_CONSTDEFPENDINGPP; +if(!qbevent)break;evnt(2456);}while(r); +} +do{ +goto LABEL_FINISHEDLINEPP; +if(!qbevent)break;evnt(2460);}while(r); +} +do{ +*__LONG_D= 0 ; +if(!qbevent)break;evnt(2466);}while(r); +S_3121:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DEFINT",6))))||new_error){ +if(qbevent){evnt(2467);if(r)goto S_3121;} +do{ +*__LONG_D= 1 ; +if(!qbevent)break;evnt(2467);}while(r); +} +S_3124:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DEFLNG",6))))||new_error){ +if(qbevent){evnt(2468);if(r)goto S_3124;} +do{ +*__LONG_D= 1 ; +if(!qbevent)break;evnt(2468);}while(r); +} +S_3127:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DEFSNG",6))))||new_error){ +if(qbevent){evnt(2469);if(r)goto S_3127;} +do{ +*__LONG_D= 1 ; +if(!qbevent)break;evnt(2469);}while(r); +} +S_3130:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DEFDBL",6))))||new_error){ +if(qbevent){evnt(2470);if(r)goto S_3130;} +do{ +*__LONG_D= 1 ; +if(!qbevent)break;evnt(2470);}while(r); +} +S_3133:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DEFSTR",6))))||new_error){ +if(qbevent){evnt(2471);if(r)goto S_3133;} +do{ +*__LONG_D= 1 ; +if(!qbevent)break;evnt(2471);}while(r); +} +S_3136:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_DEFINE",7)))|(((qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DEFINE",6)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ +if(qbevent){evnt(2472);if(r)goto S_3136;} +do{ +*__LONG_D= 1 ; +if(!qbevent)break;evnt(2472);}while(r); +} +S_3139:; +if ((*__LONG_D)||new_error){ +if(qbevent){evnt(2473);if(r)goto S_3139;} +do{ +*__LONG_PREDEFINING= 1 ; +if(!qbevent)break;evnt(2474);}while(r); +do{ +goto LABEL_PREDEFINE; +if(!qbevent)break;evnt(2474);}while(r); +LABEL_PREDEFINED:; +if(qbevent){evnt(2475);r=0;} +do{ +*__LONG_PREDEFINING= 0 ; +if(!qbevent)break;evnt(2475);}while(r); +do{ +goto LABEL_FINISHEDLINEPP; +if(!qbevent)break;evnt(2476);}while(r); +} +S_3145:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DECLARE",7))))||new_error){ +if(qbevent){evnt(2480);if(r)goto S_3145;} +S_3146:; +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)))))||new_error){ +if(qbevent){evnt(2481);if(r)goto S_3146;} +do{ +*__LONG_DECLARINGLIBRARY= 1 ; +if(!qbevent)break;evnt(2482);}while(r); +do{ +*__LONG_INDIRECTLIBRARY= 0 ; +if(!qbevent)break;evnt(2483);}while(r); +S_3149:; +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)))))||new_error){ +if(qbevent){evnt(2484);if(r)goto S_3149;} +do{ +*__LONG_INDIRECTLIBRARY= 1 ; +if(!qbevent)break;evnt(2484);}while(r); +} +do{ +goto LABEL_FINISHEDLINEPP; +if(!qbevent)break;evnt(2485);}while(r); +} +} +do{ +*__LONG_DYNAMICLIBRARY= 0 ; +if(!qbevent)break;evnt(2490);}while(r); +LABEL_DECLARESUBFUNC:; +if(qbevent){evnt(2491);r=0;} +do{ +qbs_set(__STRING_FIRSTELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass276= 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2492);}while(r); +do{ +*__LONG_SF= 0 ; +if(!qbevent)break;evnt(2493);}while(r); +S_3158:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("FUNCTION",8))))||new_error){ +if(qbevent){evnt(2494);if(r)goto S_3158;} +do{ +*__LONG_SF= 1 ; +if(!qbevent)break;evnt(2494);}while(r); +} +S_3161:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("SUB",3))))||new_error){ +if(qbevent){evnt(2495);if(r)goto S_3161;} +do{ +*__LONG_SF= 2 ; +if(!qbevent)break;evnt(2495);}while(r); +} +S_3164:; +if ((*__LONG_SF)||new_error){ +if(qbevent){evnt(2496);if(r)goto S_3164;} +do{ +*__LONG_SUBFUNCN=*__LONG_SUBFUNCN+ 1 ; +if(!qbevent)break;evnt(2498);}while(r); +do{ +*__BYTE_CLOSEDSUBFUNC= 0 ; +if(!qbevent)break;evnt(2499);}while(r); +S_3167:; +if ((-(*__LONG_N== 1 ))||new_error){ +if(qbevent){evnt(2501);if(r)goto S_3167;} +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(2501);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2501);}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(2504);}while(r); +S_3172:; +if ((*__LONG_I2)||new_error){ +if(qbevent){evnt(2505);if(r)goto S_3172;} +S_3173:; +do{ +if(qbevent){evnt(2506);if(r)goto S_3173;} +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(2507);}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(2508);}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(2509);}while(r); +S_3177:; +dl_continue_277:; +}while((!(-(*__LONG_I2== 0 )))&&(!new_error)); +dl_exit_277:; +if(qbevent){evnt(2510);if(r)goto S_3177;} +do{ +*__LONG_N=FUNC_NUMELEMENTS(__STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2511);}while(r); +do{ +qbs_set(__STRING_FIRSTELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass280= 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2512);}while(r); +do{ +qbs_set(__STRING_SECONDELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass281= 2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2512);}while(r); +do{ +qbs_set(__STRING_THIRDELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass282= 3 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2512);}while(r); +} +do{ +qbs_set(__STRING_N,FUNC_GETELEMENT(__STRING_CA,&(pass283= 2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2515);}while(r); +do{ +qbs_set(__STRING_SYMBOL,FUNC_REMOVESYMBOL(__STRING_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2516);}while(r); +S_3185:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(2517);if(r)goto S_3185;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2517);}while(r); +} +S_3188:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_SF== 2 ))&(qbs_notequal(__STRING_SYMBOL,qbs_new_txt_len("",0)))))||new_error){ +if(qbevent){evnt(2518);if(r)goto S_3188;} +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(2518);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2518);}while(r); +} +do{ +qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2521);}while(r); +S_3193:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("STATIC",6))))||new_error){ +if(qbevent){evnt(2521);if(r)goto S_3193;} +do{ +qbs_set(__STRING_A,qbs_left(__STRING_A,__STRING_A->len- 7 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2521);}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(2521);}while(r); +do{ +*__LONG_N=*__LONG_N- 1 ; +if(!qbevent)break;evnt(2521);}while(r); +} +do{ +qbs_set(__STRING_ALIASNAME,__STRING_N); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2524);}while(r); +S_3199:; +if ((-(*__LONG_N> 2 ))||new_error){ +if(qbevent){evnt(2525);if(r)goto S_3199;} +do{ +qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,&(pass286= 3 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2526);}while(r); +S_3201:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("ALIAS",5))))||new_error){ +if(qbevent){evnt(2527);if(r)goto S_3201;} +S_3202:; +if ((-(*__LONG_DECLARINGLIBRARY== 0 ))||new_error){ +if(qbevent){evnt(2528);if(r)goto S_3202;} +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(2528);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2528);}while(r); +} +S_3206:; +if ((-(*__LONG_N== 3 ))||new_error){ +if(qbevent){evnt(2529);if(r)goto S_3206;} +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(2529);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2529);}while(r); +} +do{ +qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_CA,&(pass287= 4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2530);}while(r); +S_3211:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_E, 1 ),func_chr( 34 ))))||new_error){ +if(qbevent){evnt(2532);if(r)goto S_3211;} +do{ +qbs_set(__STRING_E,qbs_right(__STRING_E,__STRING_E->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2533);}while(r); +do{ +*__LONG_X=func_instr(NULL,__STRING_E,func_chr( 34 ),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2534);}while(r); +S_3214:; +if ((-(*__LONG_X== 0 ))||new_error){ +if(qbevent){evnt(2534);if(r)goto S_3214;} +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(2534);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2534);}while(r); +} +do{ +qbs_set(__STRING_E,qbs_left(__STRING_E,*__LONG_X- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2535);}while(r); +} +S_3220:; +while((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_E,__STRING_FIX046,0)))||new_error){ +if(qbevent){evnt(2538);if(r)goto S_3220;} +do{ +*__LONG_X=func_instr(NULL,__STRING_E,__STRING_FIX046,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2539);}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(2539);}while(r); +dl_continue_289:; +} +dl_exit_289:; +S_3224:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E->len== 0 )))||new_error){ +if(qbevent){evnt(2542);if(r)goto S_3224;} +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(2542);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2542);}while(r); +} +S_3228:; +fornext_value294= 1 ; +fornext_finalvalue294=__STRING_E->len; +fornext_step294= 1 ; +if (fornext_step294<0) fornext_step_negative294=1; else fornext_step_negative294=0; +if (new_error) goto fornext_error294; +goto fornext_entrylabel294; +while(1){ +fornext_value294=fornext_step294+(*__LONG_X); +fornext_entrylabel294: +*__LONG_X=fornext_value294; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative294){ +if (fornext_value294fornext_finalvalue294) break; +} +fornext_error294:; +if(qbevent){evnt(2543);if(r)goto S_3228;} +do{ +*__LONG_A=qbs_asc(__STRING_E,*__LONG_X); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2544);}while(r); +S_3230:; +if (((-(((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((*__LONG_A)-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]== 0 ))&(-(*__LONG_A!= 46 ))&(-(*__LONG_A!= 58 )))||new_error){ +if(qbevent){evnt(2545);if(r)goto S_3230;} +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(2545);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2545);}while(r); +} +fornext_continue_293:; +} +fornext_exit_293:; +do{ +qbs_set(__STRING_ALIASNAME,__STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2547);}while(r); +S_3236:; +if ((-(*__LONG_N<= 4 ))||new_error){ +if(qbevent){evnt(2549);if(r)goto S_3236;} +do{ +qbs_set(__STRING_A,FUNC_GETELEMENTS(__STRING_A,&(pass296= 1 ),&(pass297= 2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2549);}while(r); +} +S_3239:; +if ((-(*__LONG_N>= 5 ))||new_error){ +if(qbevent){evnt(2550);if(r)goto S_3239;} +do{ +qbs_set(__STRING_A,qbs_add(qbs_add(FUNC_GETELEMENTS(__STRING_A,&(pass298= 1 ),&(pass299= 2 )),__STRING1_SP),FUNC_GETELEMENTS(__STRING_A,&(pass300= 5 ),__LONG_N))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2550);}while(r); +} +S_3242:; +if ((-(*__LONG_N<= 4 ))||new_error){ +if(qbevent){evnt(2551);if(r)goto S_3242;} +do{ +qbs_set(__STRING_CA,FUNC_GETELEMENTS(__STRING_CA,&(pass301= 1 ),&(pass302= 2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2551);}while(r); +} +S_3245:; +if ((-(*__LONG_N>= 5 ))||new_error){ +if(qbevent){evnt(2552);if(r)goto S_3245;} +do{ +qbs_set(__STRING_CA,qbs_add(qbs_add(FUNC_GETELEMENTS(__STRING_CA,&(pass303= 1 ),&(pass304= 2 )),__STRING1_SP),FUNC_GETELEMENTS(__STRING_CA,&(pass305= 5 ),__LONG_N))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2552);}while(r); +} +do{ +*__LONG_N=*__LONG_N- 2 ; +if(!qbevent)break;evnt(2553);}while(r); +} +} +S_3251:; +if ((*__LONG_DECLARINGLIBRARY)||new_error){ +if(qbevent){evnt(2557);if(r)goto S_3251;} +S_3252:; +if ((*__LONG_INDIRECTLIBRARY)||new_error){ +if(qbevent){evnt(2558);if(r)goto S_3252;} +do{ +qbs_set(__STRING_ALIASNAME,__STRING_N); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2559);}while(r); +} +} +do{ +*__LONG_PARAMS= 0 ; +if(!qbevent)break;evnt(2563);}while(r); +do{ +qbs_set(__STRING_PARAMS,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2564);}while(r); +do{ +qbs_set(__STRING_PARAMSIZE,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2565);}while(r); +do{ +qbs_set(__STRING_NELE,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2566);}while(r); +do{ +qbs_set(__STRING_NELEREQ,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2567);}while(r); +S_3261:; +if ((-(*__LONG_N> 2 ))||new_error){ +if(qbevent){evnt(2568);if(r)goto S_3261;} +do{ +qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,&(pass306= 3 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2569);}while(r); +S_3263:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(2570);if(r)goto S_3263;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected (",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2570);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2570);}while(r); +} +do{ +qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2571);}while(r); +S_3268:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(2572);if(r)goto S_3268;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2572);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2572);}while(r); +} +S_3272:; +if ((-(*__LONG_N< 4 ))||new_error){ +if(qbevent){evnt(2573);if(r)goto S_3272;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected ( ... )",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2573);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2573);}while(r); +} +S_3276:; +if ((-(*__LONG_N== 4 ))||new_error){ +if(qbevent){evnt(2574);if(r)goto S_3276;} +do{ +goto LABEL_NOSFPARAMS; +if(!qbevent)break;evnt(2574);}while(r); +} +do{ +*__LONG_B= 0 ; +if(!qbevent)break;evnt(2575);}while(r); +do{ +qbs_set(__STRING_A2,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2576);}while(r); +S_3281:; +fornext_value308= 4 ; +fornext_finalvalue308=*__LONG_N- 1 ; +fornext_step308= 1 ; +if (fornext_step308<0) fornext_step_negative308=1; else fornext_step_negative308=0; +if (new_error) goto fornext_error308; +goto fornext_entrylabel308; +while(1){ +fornext_value308=fornext_step308+(*__LONG_I); +fornext_entrylabel308: +*__LONG_I=fornext_value308; +if (fornext_step_negative308){ +if (fornext_value308fornext_finalvalue308) break; +} +fornext_error308:; +if(qbevent){evnt(2577);if(r)goto S_3281;} +do{ +qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2578);}while(r); +S_3283:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(2579);if(r)goto S_3283;} +do{ +*__LONG_B=*__LONG_B+ 1 ; +if(!qbevent)break;evnt(2579);}while(r); +} +S_3286:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(2580);if(r)goto S_3286;} +do{ +*__LONG_B=*__LONG_B- 1 ; +if(!qbevent)break;evnt(2580);}while(r); +} +S_3289:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||new_error){ +if(qbevent){evnt(2581);if(r)goto S_3289;} +S_3290:; +if ((-(*__LONG_I==(*__LONG_N- 1 )))||new_error){ +if(qbevent){evnt(2582);if(r)goto S_3290;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected , ... )",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2582);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2582);}while(r); +} +LABEL_GETLASTPARAM:; +if(qbevent){evnt(2583);r=0;} +S_3294:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(2584);if(r)goto S_3294;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected ... ,",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2584);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2584);}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(2585);}while(r); +do{ +*__LONG_N2=FUNC_NUMELEMENTS(__STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2587);}while(r); +do{ +*__LONG_ARRAY= 0 ; +if(!qbevent)break;evnt(2588);}while(r); +do{ +qbs_set(__STRING_T2,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2589);}while(r); +do{ +*__LONG_I2= 1 ; +if(!qbevent)break;evnt(2591);}while(r); +do{ +qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A2,__LONG_I2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2592);}while(r); +do{ +*__LONG_I2=*__LONG_I2+ 1 ; +if(!qbevent)break;evnt(2592);}while(r); +do{ +*__LONG_BYVALUE= 0 ; +if(!qbevent)break;evnt(2594);}while(r); +S_3306:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("BYVAL",5))))||new_error){ +if(qbevent){evnt(2595);if(r)goto S_3306;} +S_3307:; +if ((-(*__LONG_DECLARINGLIBRARY== 0 ))||new_error){ +if(qbevent){evnt(2596);if(r)goto S_3307;} +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(2596);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2596);}while(r); +} +do{ +qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A2,__LONG_I2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2597);}while(r); +do{ +*__LONG_I2=*__LONG_I2+ 1 ; +if(!qbevent)break;evnt(2597);}while(r); +do{ +*__LONG_BYVALUE= 1 ; +if(!qbevent)break;evnt(2597);}while(r); +} +do{ +qbs_set(__STRING_N2,__STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2600);}while(r); +do{ +qbs_set(__STRING_SYMBOL2,FUNC_REMOVESYMBOL(__STRING_N2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2601);}while(r); +S_3317:; +if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(__STRING_N2)== 0 )))||new_error){ +if(qbevent){evnt(2602);if(r)goto S_3317;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Invalid name",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2602);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2602);}while(r); +} +S_3321:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(2604);if(r)goto S_3321;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2604);}while(r); +} +do{ +*__LONG_M= 0 ; +if(!qbevent)break;evnt(2605);}while(r); +S_3325:; +fornext_value311=*__LONG_I2; +fornext_finalvalue311=*__LONG_N2; +fornext_step311= 1 ; +if (fornext_step311<0) fornext_step_negative311=1; else fornext_step_negative311=0; +if (new_error) goto fornext_error311; +goto fornext_entrylabel311; +while(1){ +fornext_value311=fornext_step311+(*__LONG_I2); +fornext_entrylabel311: +*__LONG_I2=fornext_value311; +if (fornext_step_negative311){ +if (fornext_value311fornext_finalvalue311) break; +} +fornext_error311:; +if(qbevent){evnt(2606);if(r)goto S_3325;} +do{ +qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A2,__LONG_I2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2607);}while(r); +S_3327:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(2608);if(r)goto S_3327;} +S_3328:; +if ((-(*__LONG_M!= 0 ))||new_error){ +if(qbevent){evnt(2609);if(r)goto S_3328;} +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(2609);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2609);}while(r); +} +do{ +*__LONG_M= 1 ; +if(!qbevent)break;evnt(2610);}while(r); +do{ +*__LONG_ARRAY= 1 ; +if(!qbevent)break;evnt(2611);}while(r); +do{ +goto LABEL_GOTAA; +if(!qbevent)break;evnt(2612);}while(r); +} +S_3336:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(2614);if(r)goto S_3336;} +S_3337:; +if ((-(*__LONG_M!= 1 ))||new_error){ +if(qbevent){evnt(2615);if(r)goto S_3337;} +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(2615);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2615);}while(r); +} +do{ +*__LONG_M= 2 ; +if(!qbevent)break;evnt(2616);}while(r); +do{ +goto LABEL_GOTAA; +if(!qbevent)break;evnt(2617);}while(r); +} +S_3344:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("AS",2))))||new_error){ +if(qbevent){evnt(2619);if(r)goto S_3344;} +S_3345:; +if (((-(*__LONG_M!= 0 ))&(-(*__LONG_M!= 2 )))||new_error){ +if(qbevent){evnt(2620);if(r)goto S_3345;} +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(2620);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2620);}while(r); +} +do{ +*__LONG_M= 3 ; +if(!qbevent)break;evnt(2621);}while(r); +do{ +goto LABEL_GOTAA; +if(!qbevent)break;evnt(2622);}while(r); +} +S_3352:; +if ((-(*__LONG_M== 1 ))||new_error){ +if(qbevent){evnt(2624);if(r)goto S_3352;} +do{ +goto LABEL_GOTAA; +if(!qbevent)break;evnt(2624);}while(r); +} +S_3355:; +if ((-(*__LONG_M!= 3 ))||new_error){ +if(qbevent){evnt(2625);if(r)goto S_3355;} +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(2625);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2625);}while(r); +} +S_3359:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T2,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(2626);if(r)goto S_3359;} +do{ +qbs_set(__STRING_T2,__STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2626);}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(2626);}while(r); +} +LABEL_GOTAA:; +if(qbevent){evnt(2627);r=0;} +fornext_continue_310:; +} +fornext_exit_310:; +do{ +*__LONG_PARAMS=*__LONG_PARAMS+ 1 ; +if(!qbevent)break;evnt(2630);}while(r); +S_3366:; +if ((-(*__LONG_PARAMS> 100 ))||new_error){ +if(qbevent){evnt(2630);if(r)goto S_3366;} +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(2630);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2630);}while(r); +} +do{ +*__LONG_ARGNELEREQ= 0 ; +if(!qbevent)break;evnt(2632);}while(r); +S_3371:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(__STRING_SYMBOL2,qbs_new_txt_len("",0)))&(qbs_notequal(__STRING_T2,qbs_new_txt_len("",0)))))||new_error){ +if(qbevent){evnt(2634);if(r)goto S_3371;} +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(2634);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2634);}while(r); +} +S_3375:; +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)))))||new_error){ +if(qbevent){evnt(2635);if(r)goto S_3375;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected AS type",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2635);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2635);}while(r); +} +S_3379:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T2,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(2636);if(r)goto S_3379;} +do{ +qbs_set(__STRING_T2,__STRING_SYMBOL2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2636);}while(r); +} +S_3382:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T2,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(2637);if(r)goto S_3382;} +S_3383:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_N2, 1 ),qbs_new_txt_len("_",1))))||new_error){ +if(qbevent){evnt(2638);if(r)goto S_3383;} +do{ +*__LONG_V= 27 ; +if(!qbevent)break;evnt(2638);}while(r); +}else{ +do{ +*__LONG_V=qbs_asc(qbs_ucase(__STRING_N2))- 64 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2638);}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(2639);}while(r); +} +do{ +*__LONG_PARAMSIZE= 0 ; +if(!qbevent)break;evnt(2642);}while(r); +S_3391:; +if ((-(*__LONG_ARRAY== 1 ))||new_error){ +if(qbevent){evnt(2643);if(r)goto S_3391;} +do{ +*__LONG_T=FUNC_TYPNAME2TYP(__STRING_T2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2644);}while(r); +S_3393:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(2645);if(r)goto S_3393;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2645);}while(r); +} +S_3396:; +if ((-(*__LONG_T== 0 ))||new_error){ +if(qbevent){evnt(2646);if(r)goto S_3396;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Illegal SUB/FUNCTION parameter",30)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2646);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2646);}while(r); +} +S_3400:; +if (((*__LONG_T&*__LONG_ISFIXEDLENGTH))||new_error){ +if(qbevent){evnt(2647);if(r)goto S_3400;} +do{ +*__LONG_PARAMSIZE=*__LONG_TYPNAME2TYPSIZE; +if(!qbevent)break;evnt(2647);}while(r); +} +do{ +*__LONG_T=*__LONG_T+*__LONG_ISARRAY; +if(!qbevent)break;evnt(2648);}while(r); +S_3404:; +fornext_value313= 0 ; +fornext_finalvalue313=*__INTEGER_SFLISTN; +fornext_step313= 1 ; +if (fornext_step313<0) fornext_step_negative313=1; else fornext_step_negative313=0; +if (new_error) goto fornext_error313; +goto fornext_entrylabel313; +while(1){ +fornext_value313=fornext_step313+(*__LONG_I10); +fornext_entrylabel313: +*__LONG_I10=fornext_value313; +if (fornext_step_negative313){ +if (fornext_value313fornext_finalvalue313) break; +} +fornext_error313:; +if(qbevent){evnt(2650);if(r)goto S_3404;} +S_3405:; +if ((-(((int32*)(__ARRAY_LONG_SFIDLIST[0]))[array_check((*__LONG_I10)-__ARRAY_LONG_SFIDLIST[4],__ARRAY_LONG_SFIDLIST[5])]==(*__LONG_IDN+ 1 )))||new_error){ +if(qbevent){evnt(2651);if(r)goto S_3405;} +S_3406:; +if ((-(((int16*)(__ARRAY_INTEGER_SFARGLIST[0]))[array_check((*__LONG_I10)-__ARRAY_INTEGER_SFARGLIST[4],__ARRAY_INTEGER_SFARGLIST[5])]==*__LONG_PARAMS))||new_error){ +if(qbevent){evnt(2652);if(r)goto S_3406;} +do{ +*__LONG_ARGNELEREQ=((int16*)(__ARRAY_INTEGER_SFELELIST[0]))[array_check((*__LONG_I10)-__ARRAY_INTEGER_SFELELIST[4],__ARRAY_INTEGER_SFELELIST[5])]; +if(!qbevent)break;evnt(2653);}while(r); +} +} +fornext_continue_312:; +} +fornext_exit_312:; +}else{ +do{ +*__LONG_T=FUNC_TYPNAME2TYP(__STRING_T2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2658);}while(r); +S_3413:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(2659);if(r)goto S_3413;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2659);}while(r); +} +S_3416:; +if ((-(*__LONG_T== 0 ))||new_error){ +if(qbevent){evnt(2660);if(r)goto S_3416;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Illegal SUB/FUNCTION parameter",30)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2660);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2660);}while(r); +} +S_3420:; +if (((*__LONG_T&*__LONG_ISFIXEDLENGTH))||new_error){ +if(qbevent){evnt(2661);if(r)goto S_3420;} +do{ +*__LONG_PARAMSIZE=*__LONG_TYPNAME2TYPSIZE; +if(!qbevent)break;evnt(2661);}while(r); +} +S_3423:; +if ((*__LONG_BYVALUE)||new_error){ +if(qbevent){evnt(2663);if(r)goto S_3423;} +S_3424:; +if ((*__LONG_T&*__LONG_ISPOINTER)||new_error){ +if(qbevent){evnt(2664);if(r)goto S_3424;} +do{ +*__LONG_T=*__LONG_T-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(2664);}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(2668);}while(r); +do{ +qbs_set(__STRING_NELE,qbs_add(__STRING_NELE,func_chr( 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2671);}while(r); +do{ +qbs_set(__STRING_PARAMSIZE,qbs_add(__STRING_PARAMSIZE,l2string(*__LONG_PARAMSIZE))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2673);}while(r); +do{ +qbs_set(__STRING_PARAMS,qbs_add(__STRING_PARAMS,l2string(*__LONG_T))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2674);}while(r); +do{ +qbs_set(__STRING_A2,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2675);}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(2677);}while(r); +S_3436:; +if ((-(*__LONG_I==(*__LONG_N- 1 )))||new_error){ +if(qbevent){evnt(2678);if(r)goto S_3436;} +do{ +goto LABEL_GETLASTPARAM; +if(!qbevent)break;evnt(2678);}while(r); +} +} +fornext_continue_307:; +} +fornext_exit_307:; +} +LABEL_NOSFPARAMS:; +if(qbevent){evnt(2682);r=0;} +S_3442:; +if ((-(*__LONG_SF== 1 ))||new_error){ +if(qbevent){evnt(2684);if(r)goto S_3442;} +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(2686);}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(2687);}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(2688);}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(2690);}while(r); +S_3447:; +if ((*__LONG_DECLARINGLIBRARY)||new_error){ +if(qbevent){evnt(2691);if(r)goto S_3447;} +do{ +*(int16*)(((char*)__UDT_ID)+(806))= 1 ; +if(!qbevent)break;evnt(2692);}while(r); +S_3449:; +if ((-(*__LONG_INDIRECTLIBRARY== 0 ))||new_error){ +if(qbevent){evnt(2693);if(r)goto S_3449;} +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),__STRING_ALIASNAME); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2693);}while(r); +} +} +do{ +*(int16*)(((char*)__UDT_ID)+(809))=*__LONG_PARAMS; +if(!qbevent)break;evnt(2695);}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(2696);}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(2697);}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(2698);}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(2699);}while(r); +S_3458:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_SYMBOL,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(2700);if(r)goto S_3458;} +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=FUNC_TYPNAME2TYP(__STRING_SYMBOL); +if(!qbevent)break;evnt(2701);}while(r); +S_3460:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(2702);if(r)goto S_3460;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2702);}while(r); +} +}else{ +S_3464:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_N, 1 ),qbs_new_txt_len("_",1))))||new_error){ +if(qbevent){evnt(2704);if(r)goto S_3464;} +do{ +*__LONG_V= 27 ; +if(!qbevent)break;evnt(2704);}while(r); +}else{ +do{ +*__LONG_V=qbs_asc(qbs_ucase(__STRING_N))- 64 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2704);}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(2705);}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=FUNC_TYPNAME2TYP(__STRING_SYMBOL); +if(!qbevent)break;evnt(2706);}while(r); +S_3471:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(2707);if(r)goto S_3471;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2707);}while(r); +} +} +S_3475:; +if ((-(*(int32*)(((char*)__UDT_ID)+(2381))== 0 ))||new_error){ +if(qbevent){evnt(2709);if(r)goto S_3475;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Invalid FUNCTION return type",28)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2709);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2709);}while(r); +} +S_3479:; +if ((*__LONG_DECLARINGLIBRARY)||new_error){ +if(qbevent){evnt(2711);if(r)goto S_3479;} +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(2713);}while(r); +S_3481:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(2714);if(r)goto S_3481;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2714);}while(r); +} +S_3484:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_CTYPE,qbs_new_txt_len("qbs",3))))||new_error){ +if(qbevent){evnt(2715);if(r)goto S_3484;} +do{ +qbs_set(__STRING_CTYPE,qbs_new_txt_len("char*",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2715);}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(2716);}while(r); +} +do{ +qbs_set(__STRING_S,qbs_left(__STRING_SYMBOL, 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2720);}while(r); +S_3490:; +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)))))||new_error){ +if(qbevent){evnt(2721);if(r)goto S_3490;} +do{ +qbs_set(__STRING_SYMBOL,FUNC_TYPE2SYMBOL(__STRING_SYMBOL)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2722);}while(r); +S_3492:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(2723);if(r)goto S_3492;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2723);}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(2725);}while(r); +S_3497:; +if ((*(int32*)(((char*)__UDT_ID)+(2381))&*__LONG_ISPOINTER)||new_error){ +if(qbevent){evnt(2726);if(r)goto S_3497;} +S_3498:; +if ((-((*(int32*)(((char*)__UDT_ID)+(2381))&*__LONG_ISSTRING)== 0 ))||new_error){ +if(qbevent){evnt(2727);if(r)goto S_3498;} +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*(int32*)(((char*)__UDT_ID)+(2381))-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(2727);}while(r); +} +} +do{ +SUB_REGID(); +if(!qbevent)break;evnt(2729);}while(r); +S_3503:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(2730);if(r)goto S_3503;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2730);}while(r); +} +}else{ +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(2733);}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(2734);}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(2735);}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(2736);}while(r); +S_3511:; +if ((*__LONG_DECLARINGLIBRARY)||new_error){ +if(qbevent){evnt(2737);if(r)goto S_3511;} +do{ +*(int16*)(((char*)__UDT_ID)+(806))= 1 ; +if(!qbevent)break;evnt(2738);}while(r); +S_3513:; +if ((-(*__LONG_INDIRECTLIBRARY== 0 ))||new_error){ +if(qbevent){evnt(2739);if(r)goto S_3513;} +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),__STRING_ALIASNAME); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2739);}while(r); +} +} +do{ +*(int16*)(((char*)__UDT_ID)+(809))=*__LONG_PARAMS; +if(!qbevent)break;evnt(2741);}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(2742);}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(2743);}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(2744);}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(2745);}while(r); +S_3522:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_N),qbs_new_txt_len("_GL",3)))&(-(*__LONG_PARAMS== 0 ))&(-(*__LONG_USEGL== 0 ))))||new_error){ +if(qbevent){evnt(2747);if(r)goto S_3522;} +do{ +*__LONG_REGINTERNALSUBFUNC= 1 ; +if(!qbevent)break;evnt(2747);}while(r); +do{ +*__LONG_USEGL= 1 ; +if(!qbevent)break;evnt(2747);}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(2747);}while(r); +do{ +tmp_long=array_check(( 5 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[tmp_long]= 1 ; +if(!qbevent)break;evnt(2747);}while(r); +} +do{ +SUB_REGID(); +if(!qbevent)break;evnt(2748);}while(r); +do{ +*__LONG_REGINTERNALSUBFUNC= 0 ; +if(!qbevent)break;evnt(2749);}while(r); +S_3530:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(2751);if(r)goto S_3530;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2751);}while(r); +} +} +} +LABEL_FINISHEDLINEPP:; +if(qbevent){evnt(2758);r=0;} +do{ +*__LONG_FIRSTLINE= 0 ; +if(!qbevent)break;evnt(2759);}while(r); +} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2761);}while(r); +do{ +qbs_set(__STRING_CA,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2762);}while(r); +}else{ +S_3540:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(2764);if(r)goto S_3540;} +do{ +qbs_set(__STRING_A,__STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2764);}while(r); +do{ +qbs_set(__STRING_CA,__STRING_CE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2764);}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(2764);}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(2764);}while(r); +} +} +S_3548:; +if ((-(*__LONG_WHOLELINEI<=*__LONG_WHOLELINEN))||new_error){ +if(qbevent){evnt(2766);if(r)goto S_3548;} +do{ +*__LONG_WHOLELINEI=*__LONG_WHOLELINEI+ 1 ; +if(!qbevent)break;evnt(2766);}while(r); +do{ +goto LABEL_PPBLDA; +if(!qbevent)break;evnt(2766);}while(r); +} +} +} +} +S_3555:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_ADDMETAINCLUDE->len))||new_error){ +if(qbevent){evnt(2776);if(r)goto S_3555;} +S_3556:; +if (( 0 )||new_error){ +if(qbevent){evnt(2777);if(r)goto S_3556;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip315; +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 (new_error) goto skip315; +sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_LINENUMBER)), 1, 0, 1); +if (new_error) goto skip315; +skip315: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(2777);}while(r); +} +do{ +qbs_set(__STRING_A,__STRING_ADDMETAINCLUDE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2778);}while(r); +do{ +qbs_set(__STRING_ADDMETAINCLUDE,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2778);}while(r); +S_3561:; +if ((-(*__LONG_INCLEVEL== 0 ))||new_error){ +if(qbevent){evnt(2780);if(r)goto S_3561;} +do{ +*__LONG_INCLUDINGFROMROOT= 0 ; +if(!qbevent)break;evnt(2781);}while(r); +do{ +*__LONG_FORCEINCLUDINGFILE= 0 ; +if(!qbevent)break;evnt(2782);}while(r); +LABEL_FORCEINCLUDE_PREPASS:; +if(qbevent){evnt(2783);r=0;} +S_3564:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_FORCEINCLUDEFROMROOT,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(2784);if(r)goto S_3564;} +do{ +qbs_set(__STRING_A,__STRING_FORCEINCLUDEFROMROOT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2785);}while(r); +do{ +qbs_set(__STRING_FORCEINCLUDEFROMROOT,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2786);}while(r); +do{ +*__LONG_FORCEINCLUDINGFILE= 1 ; +if(!qbevent)break;evnt(2787);}while(r); +do{ +*__LONG_INCLUDINGFROMROOT= 1 ; +if(!qbevent)break;evnt(2788);}while(r); +} +} +S_3571:; +if ((-(*__LONG_INCLEVEL== 100 ))||new_error){ +if(qbevent){evnt(2792);if(r)goto S_3571;} +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(2792);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2792);}while(r); +} +do{ +*__LONG_FH= 99 +*__LONG_INCLEVEL+ 1 ; +if(!qbevent)break;evnt(2794);}while(r); +do{ +*__LONG_FIRSTTRYMETHOD= 1 ; +if(!qbevent)break;evnt(2796);}while(r); +S_3577:; +if (((-(*__LONG_INCLUDINGFROMROOT!= 0 ))&(-(*__LONG_INCLEVEL== 0 )))||new_error){ +if(qbevent){evnt(2797);if(r)goto S_3577;} +do{ +*__LONG_FIRSTTRYMETHOD= 2 ; +if(!qbevent)break;evnt(2797);}while(r); +} +S_3580:; +fornext_value317=*__LONG_FIRSTTRYMETHOD; +fornext_finalvalue317= 2 ; +fornext_step317= 1 ; +if (fornext_step317<0) fornext_step_negative317=1; else fornext_step_negative317=0; +if (new_error) goto fornext_error317; +goto fornext_entrylabel317; +while(1){ +fornext_value317=fornext_step317+(*__LONG_TRY); +fornext_entrylabel317: +*__LONG_TRY=fornext_value317; +if (fornext_step_negative317){ +if (fornext_value317fornext_finalvalue317) break; +} +fornext_error317:; +if(qbevent){evnt(2798);if(r)goto S_3580;} +S_3581:; +if ((-(*__LONG_TRY== 1 ))||new_error){ +if(qbevent){evnt(2799);if(r)goto S_3581;} +S_3582:; +if ((-(*__LONG_INCLEVEL== 0 ))||new_error){ +if(qbevent){evnt(2800);if(r)goto S_3582;} +S_3583:; +if ((*__LONG_IDEMODE)||new_error){ +if(qbevent){evnt(2801);if(r)goto S_3583;} +do{ +qbs_set(__STRING_P,qbs_add(__STRING_IDEPATH,__STRING1_PATHSEP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2801);}while(r); +}else{ +do{ +qbs_set(__STRING_P,FUNC_GETFILEPATH(__STRING_SOURCEFILE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2801);}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(2803);}while(r); +} +do{ +qbs_set(__STRING_F,qbs_add(__STRING_P,__STRING_A)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2805);}while(r); +} +S_3593:; +if ((-(*__LONG_TRY== 2 ))||new_error){ +if(qbevent){evnt(2807);if(r)goto S_3593;} +do{ +qbs_set(__STRING_F,__STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2807);}while(r); +} +S_3596:; +if ((qbs_cleanup(qbs_tmp_base,func__fileexists(__STRING_F)))||new_error){ +if(qbevent){evnt(2808);if(r)goto S_3596;} +do{ +*__INTEGER_QBERRORHAPPENED= -3 ; +if(!qbevent)break;evnt(2809);}while(r); +do{ +sub_open(__STRING_F, 2 ,NULL,NULL,*__LONG_FH,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2811);}while(r); +LABEL_QBERRORHAPPENED3:; +if(qbevent){evnt(2813);r=0;} +S_3599:; +if ((-(*__INTEGER_QBERRORHAPPENED== -3 ))||new_error){ +if(qbevent){evnt(2814);if(r)goto S_3599;} +do{ +goto fornext_exit_316; +if(!qbevent)break;evnt(2814);}while(r); +} +} +do{ +*__INTEGER_QBERRORHAPPENED= 0 ; +if(!qbevent)break;evnt(2816);}while(r); +fornext_continue_316:; +} +fornext_exit_316:; +S_3605:; +if ((-(*__INTEGER_QBERRORHAPPENED!= -3 ))||new_error){ +if(qbevent){evnt(2818);if(r)goto S_3605;} +do{ +*__INTEGER_QBERRORHAPPENED= 0 ; +if(!qbevent)break;evnt(2818);}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(2818);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(2818);}while(r); +} +do{ +*__LONG_INCLEVEL=*__LONG_INCLEVEL+ 1 ; +if(!qbevent)break;evnt(2819);}while(r); +do{ +tmp_long=array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[tmp_long])),__STRING_F); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2819);}while(r); +do{ +tmp_long=array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[tmp_long]= 0 ; +if(!qbevent)break;evnt(2819);}while(r); +} +S_3614:; +while((*__LONG_INCLEVEL)||new_error){ +if(qbevent){evnt(2822);if(r)goto S_3614;} +do{ +*__LONG_FH= 99 +*__LONG_INCLEVEL; +if(!qbevent)break;evnt(2824);}while(r); +S_3616:; +if ((-(func_eof(*__LONG_FH)== 0 ))||new_error){ +if(qbevent){evnt(2826);if(r)goto S_3616;} +do{ +tmp_fileno=*__LONG_FH; +if (new_error) goto skip319; +sub_file_line_input_string(tmp_fileno,__STRING_X); +if (new_error) goto skip319; +skip319: +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2827);}while(r); +do{ +qbs_set(__STRING_WHOLELINE,__STRING_X); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2829);}while(r); +do{ +tmp_long=array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5]); +if (!new_error) ((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(2830);}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(2832);}while(r); +do{ +qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len(" in line ",9),FUNC_STR2((&(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])))),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_new_txt_len(" included",9))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2833);}while(r); +S_3622:; +if ((-(*__LONG_INCLEVEL> 1 ))||new_error){ +if(qbevent){evnt(2834);if(r)goto S_3622;} +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(2835);}while(r); +S_3624:; +fornext_value321= 1 ; +fornext_finalvalue321=*__LONG_INCLEVEL- 1 ; +fornext_step321= 1 ; +if (fornext_step321<0) fornext_step_negative321=1; else fornext_step_negative321=0; +if (new_error) goto fornext_error321; +goto fornext_entrylabel321; +while(1){ +fornext_value321=fornext_step321+(*__LONG_X); +fornext_entrylabel321: +*__LONG_X=fornext_value321; +if (fornext_step_negative321){ +if (fornext_value321fornext_finalvalue321) break; +} +fornext_error321:; +if(qbevent){evnt(2836);if(r)goto S_3624;} +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(2837);}while(r); +S_3626:; +if ((-(*__LONG_X<(*__LONG_INCLEVEL- 1 )))||new_error){ +if(qbevent){evnt(2838);if(r)goto S_3626;} +S_3627:; +if ((-(*__LONG_X==(*__LONG_INCLEVEL- 2 )))||new_error){ +if(qbevent){evnt(2839);if(r)goto S_3627;} +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(2840);}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(2842);}while(r); +} +} +fornext_continue_320:; +} +fornext_exit_320:; +do{ +qbs_set(__STRING_E,qbs_add(__STRING_E,qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2846);}while(r); +} +do{ +qbs_set(__STRING_INCERROR,__STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2848);}while(r); +do{ +*__LONG_LINENUMBER=*__LONG_LINENUMBER- 1 ; +if(!qbevent)break;evnt(2849);}while(r); +S_3638:; +if (( 0 )||new_error){ +if(qbevent){evnt(2851);if(r)goto S_3638;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip322; +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 (new_error) goto skip322; +skip322: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(2851);}while(r); +} +S_3641:; +if ((*__LONG_IDEMODE)||new_error){ +if(qbevent){evnt(2853);if(r)goto S_3641;} +do{ +qbs_set(__STRING_SENDC,qbs_add(func_chr( 10 ),__STRING_WHOLELINE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2853);}while(r); +do{ +goto LABEL_SENDCOMMAND; +if(!qbevent)break;evnt(2853);}while(r); +} +do{ +goto LABEL_IDEPREPASS; +if(!qbevent)break;evnt(2854);}while(r); +} +do{ +sub_close(*__LONG_FH,1); +if(!qbevent)break;evnt(2857);}while(r); +do{ +*__LONG_INCLEVEL=*__LONG_INCLEVEL- 1 ; +if(!qbevent)break;evnt(2858);}while(r); +S_3649:; +if (((-(*__LONG_FORCEINCLUDINGFILE== 1 ))&(-(*__LONG_INCLEVEL== 0 )))||new_error){ +if(qbevent){evnt(2859);if(r)goto S_3649;} +do{ +*__LONG_FORCEINCLUDINGFILE= 0 ; +if(!qbevent)break;evnt(2860);}while(r); +do{ +goto LABEL_FORCEINCLUDECOMPLETED_PREPASS; +if(!qbevent)break;evnt(2861);}while(r); +} +dl_continue_318:; +} +dl_exit_318:; +S_3654:; +if ((*__LONG_IDEMODE)||new_error){ +if(qbevent){evnt(2866);if(r)goto S_3654;} +do{ +goto LABEL_IDERET2; +if(!qbevent)break;evnt(2866);}while(r); +} +dl_continue_225:; +}while(1); +dl_exit_225:; +S_3658:; +if ((-(*__LONG_LASTLINERETURN== 0 ))||new_error){ +if(qbevent){evnt(2870);if(r)goto S_3658;} +do{ +*__LONG_LASTLINERETURN= 1 ; +if(!qbevent)break;evnt(2871);}while(r); +do{ +*__LONG_LASTLINE= 1 ; +if(!qbevent)break;evnt(2872);}while(r); +do{ +qbs_set(__STRING_WHOLELINE,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2873);}while(r); +do{ +goto LABEL_PREPASSLASTLINE; +if(!qbevent)break;evnt(2874);}while(r); +} +S_3664:; +if ((*__LONG_DEFININGTYPE)||new_error){ +if(qbevent){evnt(2877);if(r)goto S_3664;} +do{ +*__LONG_DEFININGTYPE= 0 ; +if(!qbevent)break;evnt(2877);}while(r); +} +S_3667:; +if ((*__LONG_DECLARINGLIBRARY)||new_error){ +if(qbevent){evnt(2878);if(r)goto S_3667;} +do{ +*__LONG_DECLARINGLIBRARY= 0 ; +if(!qbevent)break;evnt(2878);}while(r); +} +do{ +*__LONG_TOTALLINENUMBER=*__LONG_REALLINENUMBER; +if(!qbevent)break;evnt(2880);}while(r); +do{ +*__LONG_LINEINPUT3INDEX= 1 ; +if(!qbevent)break;evnt(2886);}while(r); +LABEL_IDE3:; +if(qbevent){evnt(2889);r=0;} +do{ +qbs_set(__STRING_ADDMETAINCLUDE,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2891);}while(r); +do{ +*__LONG_DATAOFFSET= 0 ; +if(!qbevent)break;evnt(2894);}while(r); +do{ +*__LONG_INCLEVEL= 0 ; +if(!qbevent)break;evnt(2895);}while(r); +do{ +*__LONG_SUBFUNCN= 0 ; +if(!qbevent)break;evnt(2896);}while(r); +do{ +*__LONG_LASTLINERETURN= 0 ; +if(!qbevent)break;evnt(2897);}while(r); +do{ +*__LONG_LASTLINE= 0 ; +if(!qbevent)break;evnt(2898);}while(r); +do{ +*__LONG_FIRSTLINE= 1 ; +if(!qbevent)break;evnt(2899);}while(r); +do{ +*__INTEGER_USERDEFINECOUNT= 7 ; +if(!qbevent)break;evnt(2900);}while(r); +S_3680:; +fornext_value324= 0 ; +fornext_finalvalue324=*__LONG_CONSTLAST; +fornext_step324= 1 ; +if (fornext_step324<0) fornext_step_negative324=1; else fornext_step_negative324=0; +if (new_error) 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_value324fornext_finalvalue324) break; +} +fornext_error324:; +if(qbevent){evnt(2902);if(r)goto S_3680;} +do{ +tmp_long=array_check((*__LONG_I)-__ARRAY_LONG_CONSTDEFINED[4],__ARRAY_LONG_CONSTDEFINED[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_CONSTDEFINED[0]))[tmp_long]= 0 ; +if(!qbevent)break;evnt(2902);}while(r); +fornext_continue_323:; +} +fornext_exit_323:; +S_3683:; +fornext_value326= 1 ; +fornext_finalvalue326= 27 ; +fornext_step326= 1 ; +if (fornext_step326<0) fornext_step_negative326=1; else fornext_step_negative326=0; +if (new_error) goto fornext_error326; +goto fornext_entrylabel326; +while(1){ +fornext_value326=fornext_step326+(*__LONG_I); +fornext_entrylabel326: +*__LONG_I=fornext_value326; +if (fornext_step_negative326){ +if (fornext_value326fornext_finalvalue326) break; +} +fornext_error326:; +if(qbevent){evnt(2904);if(r)goto S_3683;} +do{ +tmp_long=array_check((*__LONG_I)-__ARRAY_STRING_DEFINEAZ[4],__ARRAY_STRING_DEFINEAZ[5]); +if (!new_error) 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(2904);}while(r); +do{ +tmp_long=array_check((*__LONG_I)-__ARRAY_STRING_DEFINEEXTAZ[4],__ARRAY_STRING_DEFINEEXTAZ[5]); +if (!new_error) 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(2904);}while(r); +fornext_continue_325:; +} +fornext_exit_325:; +do{ +if(!qbevent)break;evnt(2906);}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(2906);}while(r); +do{ +if(!qbevent)break;evnt(2908);}while(r); +do{ +*__LONG_MAINTXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("O",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("main.txt",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2908);}while(r); +do{ +if(!qbevent)break;evnt(2909);}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(2909);}while(r); +do{ +if(!qbevent)break;evnt(2911);}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(2911);}while(r); +do{ +if(!qbevent)break;evnt(2913);}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(2913);}while(r); +do{ +if(!qbevent)break;evnt(2914);}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(2914);}while(r); +do{ +if(!qbevent)break;evnt(2916);}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(2916);}while(r); +do{ +*__LONG_ERRORLABELS= 0 ; +if(!qbevent)break;evnt(2919);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass327=*__LONG_ERRTXTBUF),qbs_new_txt_len("if (error_occurred){ error_occurred=0;",38)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2920);}while(r); +do{ +if(!qbevent)break;evnt(2922);}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(2922);}while(r); +do{ +if(!qbevent)break;evnt(2923);}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(2923);}while(r); +do{ +if(!qbevent)break;evnt(2925);}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(2925);}while(r); +do{ +if(!qbevent)break;evnt(2926);}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(2926);}while(r); +do{ +if(!qbevent)break;evnt(2930);}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(2930);}while(r); +do{ +if(!qbevent)break;evnt(2931);}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(2931);}while(r); +do{ +if(!qbevent)break;evnt(2933);}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(2933);}while(r); +do{ +if(!qbevent)break;evnt(2934);}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(2934);}while(r); +do{ +*__LONG_GOSUBID= 1 ; +if(!qbevent)break;evnt(2936);}while(r); +do{ +if(!qbevent)break;evnt(2944);}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(2944);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass328=*__LONG_RETTXTBUF),qbs_new_txt_len("if (next_return_point){",23)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2945);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass329=*__LONG_RETTXTBUF),qbs_new_txt_len("next_return_point--;",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2946);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass330=*__LONG_RETTXTBUF),qbs_new_txt_len("switch(return_point[next_return_point]){",40)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2947);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass331=*__LONG_RETTXTBUF),qbs_new_txt_len("case 0:",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2948);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass332=*__LONG_RETTXTBUF),qbs_new_txt_len("return;",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2950);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass333=*__LONG_RETTXTBUF),qbs_new_txt_len("break;",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2952);}while(r); +do{ +*__LONG_CONTINUELINE= 0 ; +if(!qbevent)break;evnt(2954);}while(r); +do{ +*__LONG_ENDIFS= 0 ; +if(!qbevent)break;evnt(2955);}while(r); +do{ +*__LONG_LINEELSEUSED= 0 ; +if(!qbevent)break;evnt(2956);}while(r); +do{ +*__LONG_CONTINUELINEFROM= 0 ; +if(!qbevent)break;evnt(2957);}while(r); +do{ +*__LONG_LINENUMBER= 0 ; +if(!qbevent)break;evnt(2958);}while(r); +do{ +*__LONG_REALLINENUMBER= 0 ; +if(!qbevent)break;evnt(2959);}while(r); +do{ +*__LONG_DECLARINGLIBRARY= 0 ; +if(!qbevent)break;evnt(2960);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass334=*__LONG_MAINTXTBUF),qbs_new_txt_len("S_0:;",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2962);}while(r); +S_3736:; +if ((*__LONG_USEGL)||new_error){ +if(qbevent){evnt(2964);if(r)goto S_3736;} +do{ +SUB_GL_INCLUDE_CONTENT(); +if(!qbevent)break;evnt(2964);}while(r); +} +S_3739:; +if ((*__LONG_IDEMODE)||new_error){ +if(qbevent){evnt(2968);if(r)goto S_3739;} +do{ +goto LABEL_IDERET3; +if(!qbevent)break;evnt(2968);}while(r); +} +S_3742:; +do{ +if(qbevent){evnt(2970);if(r)goto S_3742;} +LABEL_IDE4:; +if(qbevent){evnt(2971);r=0;} +LABEL_INCLUDELINE:; +if(qbevent){evnt(2972);r=0;} +LABEL_MAINPASSLASTLINE:; +if(qbevent){evnt(2973);r=0;} +S_3743:; +if (((-(*__LONG_LASTLINE!= 0 ))|(-(*__LONG_FIRSTLINE!= 0 )))||new_error){ +if(qbevent){evnt(2975);if(r)goto S_3743;} +do{ +qbs_set(__STRING_LINEBACKUP,__STRING_A3); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2976);}while(r); +do{ +qbs_set(__STRING_FORCEINCLUDEFROMROOT,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2977);}while(r); +S_3746:; +if ((*__LONG_VWATCHON)||new_error){ +if(qbevent){evnt(2978);if(r)goto S_3746;} +do{ +*__LONG_ADDINGVWATCH= 1 ; +if(!qbevent)break;evnt(2979);}while(r); +S_3748:; +if ((-(*__LONG_FIRSTLINE!= 0 ))||new_error){ +if(qbevent){evnt(2980);if(r)goto S_3748;} +do{ +qbs_set(__STRING_FORCEINCLUDEFROMROOT,qbs_new_txt_len("internal\\support\\vwatch\\vwatch.bi",33)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2980);}while(r); +} +S_3751:; +if ((-(*__LONG_LASTLINE!= 0 ))||new_error){ +if(qbevent){evnt(2981);if(r)goto S_3751;} +do{ +qbs_set(__STRING_FORCEINCLUDEFROMROOT,qbs_new_txt_len("internal\\support\\vwatch\\vwatch.bm",33)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2981);}while(r); +} +}else{ +S_3755:; +if ((-(*__LONG_LASTLINE!= 0 ))||new_error){ +if(qbevent){evnt(2984);if(r)goto S_3755;} +do{ +qbs_set(__STRING_FORCEINCLUDEFROMROOT,qbs_new_txt_len("internal\\support\\vwatch\\vwatch_stub.bm",38)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2984);}while(r); +} +} +do{ +*__LONG_FIRSTLINE= 0 ; +if(!qbevent)break;evnt(2986);}while(r); +do{ +*__LONG_LASTLINE= 0 ; +if(!qbevent)break;evnt(2986);}while(r); +S_3761:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_FORCEINCLUDEFROMROOT->len))||new_error){ +if(qbevent){evnt(2987);if(r)goto S_3761;} +do{ +goto LABEL_FORCEINCLUDE; +if(!qbevent)break;evnt(2987);}while(r); +} +LABEL_FORCEINCLUDECOMPLETED:; +if(qbevent){evnt(2988);r=0;} +do{ +*__LONG_ADDINGVWATCH= 0 ; +if(!qbevent)break;evnt(2989);}while(r); +do{ +qbs_set(__STRING_A3,__STRING_LINEBACKUP); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(2990);}while(r); +} +do{ +*__LONG_PREPASS= 0 ; +if(!qbevent)break;evnt(2993);}while(r); +do{ +*__INTEGER_STRINGPROCESSINGHAPPENED= 0 ; +if(!qbevent)break;evnt(2995);}while(r); +S_3769:; +if ((*__LONG_CONTINUELINEFROM)||new_error){ +if(qbevent){evnt(2997);if(r)goto S_3769;} +do{ +*__LONG_START=*__LONG_CONTINUELINEFROM; +if(!qbevent)break;evnt(2998);}while(r); +do{ +*__LONG_CONTINUELINEFROM= 0 ; +if(!qbevent)break;evnt(2999);}while(r); +do{ +goto LABEL_CONTLINE; +if(!qbevent)break;evnt(3000);}while(r); +} +do{ +*__LONG_IMPLIEDENDIF= 0 ; +if(!qbevent)break;evnt(3005);}while(r); +do{ +*__LONG_THENGOTO= 0 ; +if(!qbevent)break;evnt(3006);}while(r); +do{ +*__LONG_CONTINUELINE= 0 ; +if(!qbevent)break;evnt(3007);}while(r); +do{ +*__LONG_ENDIFS= 0 ; +if(!qbevent)break;evnt(3008);}while(r); +do{ +*__LONG_LINEELSEUSED= 0 ; +if(!qbevent)break;evnt(3009);}while(r); +do{ +*__LONG_NEWIF= 0 ; +if(!qbevent)break;evnt(3010);}while(r); +S_3780:; +if ((-(*__INTEGER_ADDMETADYNAMIC== 1 ))||new_error){ +if(qbevent){evnt(3013);if(r)goto S_3780;} +do{ +*__INTEGER_ADDMETADYNAMIC= 0 ; +if(!qbevent)break;evnt(3013);}while(r); +do{ +*__INTEGER_DYNAMICMODE= 1 ; +if(!qbevent)break;evnt(3013);}while(r); +} +S_3784:; +if ((-(*__INTEGER_ADDMETASTATIC== 1 ))||new_error){ +if(qbevent){evnt(3014);if(r)goto S_3784;} +do{ +*__INTEGER_ADDMETASTATIC= 0 ; +if(!qbevent)break;evnt(3014);}while(r); +do{ +*__INTEGER_DYNAMICMODE= 0 ; +if(!qbevent)break;evnt(3014);}while(r); +} +S_3788:; +if (((-(*__LONG_IDEMODE== 0 ))&(-(*__LONG_INCLEVEL== 0 )))||new_error){ +if(qbevent){evnt(3017);if(r)goto S_3788;} +do{ +qbs_set(__STRING_A3,FUNC_LINEINPUT3()); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3017);}while(r); +} +S_3791:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3,func_chr( 13 ))))||new_error){ +if(qbevent){evnt(3018);if(r)goto S_3791;} +do{ +goto dl_exit_335; +if(!qbevent)break;evnt(3018);}while(r); +} +do{ +*__LONG_LINENUMBER=*__LONG_LINENUMBER+ 1 ; +if(!qbevent)break;evnt(3019);}while(r); +do{ +*__LONG_REALLINENUMBER=*__LONG_REALLINENUMBER+ 1 ; +if(!qbevent)break;evnt(3020);}while(r); +S_3796:; +if ((((int8*)(__ARRAY_BYTE_INVALIDLINE[0]))[array_check((*__LONG_LINENUMBER)-__ARRAY_BYTE_INVALIDLINE[4],__ARRAY_BYTE_INVALIDLINE[5])])||new_error){ +if(qbevent){evnt(3022);if(r)goto S_3796;} +do{ +*__LONG_LAYOUTOK= 1 ; +if(!qbevent)break;evnt(3023);}while(r); +do{ +qbs_set(__STRING_LAYOUT,qbs_add(func_space(*__INTEGER_CONTROLLEVEL+ 1 ),qbs_ltrim(qbs_rtrim(__STRING_A3)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3024);}while(r); +S_3799:; +if ((*__LONG_IDEMODE)||new_error){ +if(qbevent){evnt(3025);if(r)goto S_3799;} +do{ +goto LABEL_IDERET4; +if(!qbevent)break;evnt(3025);}while(r); +}else{ +do{ +goto LABEL_SKIPIDE4; +if(!qbevent)break;evnt(3025);}while(r); +} +} +do{ +qbs_set(__STRING_LAYOUT,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3028);}while(r); +do{ +*__LONG_LAYOUTOK= 1 ; +if(!qbevent)break;evnt(3029);}while(r); +S_3807:; +if (((-(*__LONG_IDEMODE== 0 ))&(~(*__BYTE_QUIETMODE)))||new_error){ +if(qbevent){evnt(3031);if(r)goto S_3807;} +do{ +*__LONG_MAXPROGRESSWIDTH= 50 ; +if(!qbevent)break;evnt(3035);}while(r); +do{ +*__LONG_PERCENTAGE=qbr(floor(*__LONG_REALLINENUMBER/ ((long double)(*__LONG_TOTALLINENUMBER))* 100 )); +if(!qbevent)break;evnt(3036);}while(r); +do{ +*__LONG_PERCENTAGECHARS=qbr(floor(*__LONG_MAXPROGRESSWIDTH**__LONG_REALLINENUMBER/ ((long double)(*__LONG_TOTALLINENUMBER)))); +if(!qbevent)break;evnt(3037);}while(r); +S_3811:; +if (((-(*__LONG_PERCENTAGE!=*__LONG_PREVPERCENTAGE))&(-(*__LONG_PERCENTAGECHARS!=*__LONG_PREVPERCENTAGECHARS)))||new_error){ +if(qbevent){evnt(3038);if(r)goto S_3811;} +do{ +*__LONG_PREVPERCENTAGE=*__LONG_PERCENTAGE; +if(!qbevent)break;evnt(3039);}while(r); +do{ +*__LONG_PREVPERCENTAGECHARS=*__LONG_PERCENTAGECHARS; +if(!qbevent)break;evnt(3040);}while(r); +S_3814:; +if ((*__LONG_CONSOLEMODE)||new_error){ +if(qbevent){evnt(3041);if(r)goto S_3814;} +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 (new_error) goto skip337; +makefit(tqbs); +qbs_print(tqbs,0); +skip337: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3042);}while(r); +S_3816:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ +if(qbevent){evnt(3043);if(r)goto S_3816;} +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_add(func_chr( 27 ),qbs_new_txt_len("[A",2))); +if (new_error) goto skip338; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip338: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3044);}while(r); +}else{ +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,func_chr( 13 )); +if (new_error) goto skip339; +makefit(tqbs); +qbs_print(tqbs,0); +skip339: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3046);}while(r); +} +}else{ +do{ +qbg_sub_locate(NULL, 1 ,NULL,NULL,NULL,2); +if(!qbevent)break;evnt(3049);}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 (new_error) goto skip340; +makefit(tqbs); +qbs_print(tqbs,0); +skip340: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3050);}while(r); +} +} +} +do{ +qbs_set(__STRING_A3,qbs_ltrim(qbs_rtrim(__STRING_A3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3055);}while(r); +do{ +qbs_set(__STRING_WHOLELINE,__STRING_A3); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3056);}while(r); +do{ +qbs_set(__STRING_LAYOUTORIGINAL,__STRING_A3); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3058);}while(r); +do{ +qbs_set(__STRING_LAYOUTCOMMENT,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3059);}while(r); +do{ +*__LONG_LHSCONTROLLEVEL=*__INTEGER_CONTROLLEVEL; +if(!qbevent)break;evnt(3060);}while(r); +do{ +qbs_set(__STRING_LINEFRAGMENT,qbs_new_txt_len("[INFORMATION UNAVAILABLE]",25)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3062);}while(r); +S_3833:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_A3->len== 0 )))||new_error){ +if(qbevent){evnt(3063);if(r)goto S_3833;} +do{ +goto LABEL_FINISHEDNONEXEC; +if(!qbevent)break;evnt(3063);}while(r); +} +S_3836:; +if (( 0 )||new_error){ +if(qbevent){evnt(3064);if(r)goto S_3836;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip342; +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 (new_error) goto skip342; +skip342: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(3064);}while(r); +} +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(3066);}while(r); +do{ +qbs_set(__STRING_A3U,qbs_ucase(__STRING_A3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3072);}while(r); +S_3841:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_A3)== 36 )))||new_error){ +if(qbevent){evnt(3075);if(r)goto S_3841;} +S_3842:; +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)))))||new_error){ +if(qbevent){evnt(3078);if(r)goto S_3842;} +S_3843:; +if ((-(((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]== 0 ))||new_error){ +if(qbevent){evnt(3079);if(r)goto S_3843;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("$END IF without $IF",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3079);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(3079);}while(r); +} +do{ +tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5]); +if (!new_error) ((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[tmp_long]= 0 ; +if(!qbevent)break;evnt(3080);}while(r); +do{ +*__INTEGER_EXECCOUNTER=*__INTEGER_EXECCOUNTER- 1 ; +if(!qbevent)break;evnt(3081);}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(3082);}while(r); +do{ +tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[tmp_long]= 0 ; +if(!qbevent)break;evnt(3083);}while(r); +do{ +*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ; +if(!qbevent)break;evnt(3084);}while(r); +do{ +goto LABEL_FINISHEDNONEXEC; +if(!qbevent)break;evnt(3085);}while(r); +} +S_3854:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_A3U, 4 ),qbs_new_txt_len("$IF ",4))))||new_error){ +if(qbevent){evnt(3088);if(r)goto S_3854;} +S_3855:; +if (((-(*__ULONG_SELECTCASECOUNTER> 0 ))&(-(((int32*)(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]))[array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_SELECTCASEHASCASEBLOCK[4],__ARRAY_LONG_SELECTCASEHASCASEBLOCK[5])]== 0 )))||new_error){ +if(qbevent){evnt(3090);if(r)goto S_3855;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected CASE expression",24)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3091);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(3091);}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(3094);}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(3095);}while(r); +do{ +*__LONG_TEMP= 0 ; +if(!qbevent)break;evnt(3096);}while(r); +S_3862:; +if ((-(*__LONG_TEMP== 0 ))||new_error){ +if(qbevent){evnt(3097);if(r)goto S_3862;} +do{ +qbs_set(__STRING_TEMPOP,qbs_new_txt_len("<=",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3097);}while(r); +do{ +*__LONG_TEMP=func_instr(NULL,__STRING_TEMP,__STRING_TEMPOP,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3097);}while(r); +} +S_3866:; +if ((-(*__LONG_TEMP== 0 ))||new_error){ +if(qbevent){evnt(3098);if(r)goto S_3866;} +do{ +qbs_set(__STRING_TEMPOP,qbs_new_txt_len("=<",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3098);}while(r); +do{ +*__LONG_TEMP=func_instr(NULL,__STRING_TEMP,__STRING_TEMPOP,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3098);}while(r); +do{ +qbs_set(__STRING_TEMPOP,qbs_new_txt_len("<=",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3098);}while(r); +} +S_3871:; +if ((-(*__LONG_TEMP== 0 ))||new_error){ +if(qbevent){evnt(3099);if(r)goto S_3871;} +do{ +qbs_set(__STRING_TEMPOP,qbs_new_txt_len(">=",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3099);}while(r); +do{ +*__LONG_TEMP=func_instr(NULL,__STRING_TEMP,__STRING_TEMPOP,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3099);}while(r); +} +S_3875:; +if ((-(*__LONG_TEMP== 0 ))||new_error){ +if(qbevent){evnt(3100);if(r)goto S_3875;} +do{ +qbs_set(__STRING_TEMPOP,qbs_new_txt_len("=>",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3100);}while(r); +do{ +*__LONG_TEMP=func_instr(NULL,__STRING_TEMP,__STRING_TEMPOP,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3100);}while(r); +do{ +qbs_set(__STRING_TEMPOP,qbs_new_txt_len(">=",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3100);}while(r); +} +S_3880:; +if ((-(*__LONG_TEMP== 0 ))||new_error){ +if(qbevent){evnt(3101);if(r)goto S_3880;} +do{ +qbs_set(__STRING_TEMPOP,qbs_new_txt_len("<>",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3101);}while(r); +do{ +*__LONG_TEMP=func_instr(NULL,__STRING_TEMP,__STRING_TEMPOP,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3101);}while(r); +} +S_3884:; +if ((-(*__LONG_TEMP== 0 ))||new_error){ +if(qbevent){evnt(3102);if(r)goto S_3884;} +do{ +qbs_set(__STRING_TEMPOP,qbs_new_txt_len("><",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3102);}while(r); +do{ +*__LONG_TEMP=func_instr(NULL,__STRING_TEMP,__STRING_TEMPOP,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3102);}while(r); +do{ +qbs_set(__STRING_TEMPOP,qbs_new_txt_len("<>",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3102);}while(r); +} +S_3889:; +if ((-(*__LONG_TEMP== 0 ))||new_error){ +if(qbevent){evnt(3103);if(r)goto S_3889;} +do{ +qbs_set(__STRING_TEMPOP,qbs_new_txt_len("=",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3103);}while(r); +do{ +*__LONG_TEMP=func_instr(NULL,__STRING_TEMP,__STRING_TEMPOP,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3103);}while(r); +} +S_3893:; +if ((-(*__LONG_TEMP== 0 ))||new_error){ +if(qbevent){evnt(3104);if(r)goto S_3893;} +do{ +qbs_set(__STRING_TEMPOP,qbs_new_txt_len(">",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3104);}while(r); +do{ +*__LONG_TEMP=func_instr(NULL,__STRING_TEMP,__STRING_TEMPOP,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3104);}while(r); +} +S_3897:; +if ((-(*__LONG_TEMP== 0 ))||new_error){ +if(qbevent){evnt(3105);if(r)goto S_3897;} +do{ +qbs_set(__STRING_TEMPOP,qbs_new_txt_len("<",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3105);}while(r); +do{ +*__LONG_TEMP=func_instr(NULL,__STRING_TEMP,__STRING_TEMPOP,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3105);}while(r); +} +do{ +*__INTEGER_EXECCOUNTER=*__INTEGER_EXECCOUNTER+ 1 ; +if(!qbevent)break;evnt(3107);}while(r); +do{ +tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[tmp_long]= -1 ; +if(!qbevent)break;evnt(3108);}while(r); +do{ +tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5]); +if (!new_error) ((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[tmp_long]= 1 ; +if(!qbevent)break;evnt(3109);}while(r); +do{ +*__LONG_RESULT=FUNC_EVALPREIF(__STRING_TEMP,__STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3110);}while(r); +S_3905:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_A,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(3111);if(r)goto S_3905;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(3111);}while(r); +} +S_3908:; +if ((-(*__LONG_RESULT!= 0 ))||new_error){ +if(qbevent){evnt(3112);if(r)goto S_3908;} +do{ +tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5]); +if (!new_error) ((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(3113);}while(r); +S_3910:; +if ((-(((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5])]== 0 ))||new_error){ +if(qbevent){evnt(3114);if(r)goto S_3910;} +do{ +tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5]); +if (!new_error) ((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(3114);}while(r); +} +} +do{ +*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL+ 1 ; +if(!qbevent)break;evnt(3117);}while(r); +do{ +tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[tmp_long]= 6 ; +if(!qbevent)break;evnt(3118);}while(r); +S_3916:; +if ((-(*__LONG_TEMP== 0 ))||new_error){ +if(qbevent){evnt(3119);if(r)goto S_3916;} +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(3119);}while(r); +do{ +goto LABEL_FINISHEDNONEXEC; +if(!qbevent)break;evnt(3119);}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(3120);}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(3120);}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(3121);}while(r); +do{ +goto LABEL_FINISHEDNONEXEC; +if(!qbevent)break;evnt(3122);}while(r); +} +S_3925:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$ELSE",5))))||new_error){ +if(qbevent){evnt(3125);if(r)goto S_3925;} +S_3926:; +if ((-(((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]== 0 ))||new_error){ +if(qbevent){evnt(3126);if(r)goto S_3926;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("$ELSE without $IF",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3126);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(3126);}while(r); +} +S_3930:; +if ((((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]& 2 )||new_error){ +if(qbevent){evnt(3127);if(r)goto S_3930;} +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(3127);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(3127);}while(r); +} +do{ +tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5]); +if (!new_error) ((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(3128);}while(r); +S_3935:; +if ((((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]& 4 )||new_error){ +if(qbevent){evnt(3129);if(r)goto S_3935;} +do{ +tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[tmp_long]= -1 ; +if(!qbevent)break;evnt(3130);}while(r); +}else{ +do{ +tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5]); +if (!new_error) ((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(3132);}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(3134);}while(r); +do{ +*__LONG_LHSCONTROLLEVEL=*__LONG_LHSCONTROLLEVEL- 1 ; +if(!qbevent)break;evnt(3135);}while(r); +do{ +goto LABEL_FINISHEDNONEXEC; +if(!qbevent)break;evnt(3136);}while(r); +} +S_3944:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_A3U, 5 ),qbs_new_txt_len("$ELSE",5))))||new_error){ +if(qbevent){evnt(3139);if(r)goto S_3944;} +do{ +qbs_set(__STRING_TEMP,qbs_ltrim(func_mid(__STRING_A3U, 6 ,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3140);}while(r); +S_3946:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_TEMP, 3 ),qbs_new_txt_len("IF ",3))))||new_error){ +if(qbevent){evnt(3141);if(r)goto S_3946;} +S_3947:; +if ((-(((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]== 0 ))||new_error){ +if(qbevent){evnt(3142);if(r)goto S_3947;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("$ELSE IF without $IF",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3142);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(3142);}while(r); +} +S_3951:; +if ((((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]& 2 )||new_error){ +if(qbevent){evnt(3143);if(r)goto S_3951;} +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(3143);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(3143);}while(r); +} +S_3955:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_right(__STRING_TEMP, 5 ),qbs_new_txt_len(" THEN",5))))||new_error){ +if(qbevent){evnt(3144);if(r)goto S_3955;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("$ELSE IF without THEN",21)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3144);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(3144);}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(3145);}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(3146);}while(r); +S_3961:; +if ((((int8*)(__ARRAY_BYTE_DEFINEELSE[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5])]& 4 )||new_error){ +if(qbevent){evnt(3147);if(r)goto S_3961;} +do{ +tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[tmp_long]= -1 ; +if(!qbevent)break;evnt(3148);}while(r); +}else{ +do{ +*__LONG_RESULT=FUNC_EVALPREIF(__STRING_TEMP,__STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3150);}while(r); +S_3965:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_A,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(3151);if(r)goto S_3965;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(3151);}while(r); +} +S_3968:; +if ((-(*__LONG_RESULT!= 0 ))||new_error){ +if(qbevent){evnt(3152);if(r)goto S_3968;} +do{ +tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5]); +if (!new_error) ((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(3153);}while(r); +S_3970:; +if ((-(((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5])]== 0 ))||new_error){ +if(qbevent){evnt(3154);if(r)goto S_3970;} +do{ +tmp_long=array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_BYTE_DEFINEELSE[4],__ARRAY_BYTE_DEFINEELSE[5]); +if (!new_error) ((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(3154);}while(r); +} +} +} +do{ +*__LONG_LHSCONTROLLEVEL=*__LONG_LHSCONTROLLEVEL- 1 ; +if(!qbevent)break;evnt(3159);}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(3160);}while(r); +S_3977:; +if ((-(*__LONG_TEMP== 0 ))||new_error){ +if(qbevent){evnt(3161);if(r)goto S_3977;} +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(3161);}while(r); +do{ +goto LABEL_FINISHEDNONEXEC; +if(!qbevent)break;evnt(3161);}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(3162);}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(3162);}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(3163);}while(r); +do{ +goto LABEL_FINISHEDNONEXEC; +if(!qbevent)break;evnt(3164);}while(r); +} +} +S_3987:; +if ((((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5])])||new_error){ +if(qbevent){evnt(3168);if(r)goto S_3987;} +do{ +*__LONG_LAYOUTDONE= 0 ; +if(!qbevent)break;evnt(3169);}while(r); +do{ +goto LABEL_FINISHEDNONEXEC; +if(!qbevent)break;evnt(3170);}while(r); +} +S_3991:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_A3U, 5 ),qbs_new_txt_len("$LET ",5))))||new_error){ +if(qbevent){evnt(3173);if(r)goto S_3991;} +do{ +qbs_set(__STRING_TEMP,__STRING_A3U); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3174);}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(3175);}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(3177);}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(3178);}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(3178);}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(3179);}while(r); +S_3998:; +fornext_value347= 7 ; +fornext_finalvalue347=*__INTEGER_USERDEFINECOUNT; +fornext_step347= 1 ; +if (fornext_step347<0) fornext_step_negative347=1; else fornext_step_negative347=0; +if (new_error) goto fornext_error347; +goto fornext_entrylabel347; +while(1){ +fornext_value347=fornext_step347+(*__LONG_I); +fornext_entrylabel347: +*__LONG_I=fornext_value347; +if (fornext_step_negative347){ +if (fornext_value347fornext_finalvalue347) break; +} +fornext_error347:; +if(qbevent){evnt(3181);if(r)goto S_3998;} +S_3999:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[array_check(( 0 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*__LONG_I)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]])),__STRING_L)))||new_error){ +if(qbevent){evnt(3182);if(r)goto S_3999;} +do{ +tmp_long=array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*__LONG_I)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),__STRING_R); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3182);}while(r); +do{ +goto LABEL_FINISHEDNONEXEC; +if(!qbevent)break;evnt(3182);}while(r); +} +fornext_continue_346:; +} +fornext_exit_346:; +do{ +*__INTEGER_USERDEFINECOUNT=*__INTEGER_USERDEFINECOUNT+ 1 ; +if(!qbevent)break;evnt(3185);}while(r); +S_4005:; +if ((qbs_cleanup(qbs_tmp_base,-(*__INTEGER_USERDEFINECOUNT>func_ubound(__ARRAY_STRING_USERDEFINE, 2 ,2))))||new_error){ +if(qbevent){evnt(3186);if(r)goto S_4005;} +do{ if (__ARRAY_STRING_USERDEFINE[2]&2){ error(10); @@ -15618,1237 +15618,1237 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long]=(uint64)qb while(tmp_long--) ((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -} -if(!qbevent)break;evnt(3187);}while(r); -} -do{ -tmp_long=array_check(( 0 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*__INTEGER_USERDEFINECOUNT)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3189);}while(r); -do{ -tmp_long=array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*__INTEGER_USERDEFINECOUNT)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),__STRING_R); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3190);}while(r); -do{ -goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(3191);}while(r); -} -S_4012:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$COLOR:0",8))))||new_error){ -if(qbevent){evnt(3194);if(r)goto S_4012;} -do{ -qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Color:0",8))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3195);}while(r); -S_4014:; -if ((*__LONG_QB64PREFIX_SET)||new_error){ -if(qbevent){evnt(3196);if(r)goto S_4014;} -do{ -qbs_set(__STRING_ADDMETAINCLUDE,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(FUNC_GETFILEPATH(func_command( 0 ,0|1)),qbs_new_txt_len("internal",8)),__STRING1_PATHSEP),qbs_new_txt_len("support",7)),__STRING1_PATHSEP),qbs_new_txt_len("color",5)),__STRING1_PATHSEP),qbs_new_txt_len("color0_noprefix.bi",18))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3197);}while(r); -}else{ -do{ -qbs_set(__STRING_ADDMETAINCLUDE,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(FUNC_GETFILEPATH(func_command( 0 ,0|1)),qbs_new_txt_len("internal",8)),__STRING1_PATHSEP),qbs_new_txt_len("support",7)),__STRING1_PATHSEP),qbs_new_txt_len("color",5)),__STRING1_PATHSEP),qbs_new_txt_len("color0.bi",9))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3199);}while(r); -} -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(3201);}while(r); -do{ -goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(3202);}while(r); -} -S_4022:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$COLOR:32",9))))||new_error){ -if(qbevent){evnt(3205);if(r)goto S_4022;} -do{ -qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Color:32",9))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3206);}while(r); -S_4024:; -if ((*__LONG_QB64PREFIX_SET)||new_error){ -if(qbevent){evnt(3207);if(r)goto S_4024;} -do{ -qbs_set(__STRING_ADDMETAINCLUDE,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(FUNC_GETFILEPATH(func_command( 0 ,0|1)),qbs_new_txt_len("internal",8)),__STRING1_PATHSEP),qbs_new_txt_len("support",7)),__STRING1_PATHSEP),qbs_new_txt_len("color",5)),__STRING1_PATHSEP),qbs_new_txt_len("color32_noprefix.bi",19))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3208);}while(r); -}else{ -do{ -qbs_set(__STRING_ADDMETAINCLUDE,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(FUNC_GETFILEPATH(func_command( 0 ,0|1)),qbs_new_txt_len("internal",8)),__STRING1_PATHSEP),qbs_new_txt_len("support",7)),__STRING1_PATHSEP),qbs_new_txt_len("color",5)),__STRING1_PATHSEP),qbs_new_txt_len("color32.bi",10))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3210);}while(r); -} -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(3212);}while(r); -do{ -goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(3213);}while(r); -} -S_4032:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$NOPREFIX",9))))||new_error){ -if(qbevent){evnt(3216);if(r)goto S_4032;} -do{ -qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$NoPrefix",9))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3218);}while(r); -do{ -goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(3219);}while(r); -} -S_4036:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$VIRTUALKEYBOARD:ON",19))))||new_error){ -if(qbevent){evnt(3222);if(r)goto S_4036;} -do{ -qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$VirtualKeyboard:On",19))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3224);}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("Deprecated feature",18),qbs_new_txt_len("$VirtualKeyboard",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3225);}while(r); -do{ -goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(3226);}while(r); -} -S_4041:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$VIRTUALKEYBOARD:OFF",20))))||new_error){ -if(qbevent){evnt(3229);if(r)goto S_4041;} -do{ -qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$VirtualKeyboard:Off",20))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3231);}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("Deprecated feature",18),qbs_new_txt_len("$VirtualKeyboard",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3232);}while(r); -do{ -goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(3233);}while(r); -} -S_4046:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$DEBUG",6))))||new_error){ -if(qbevent){evnt(3236);if(r)goto S_4046;} -do{ -qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Debug",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3237);}while(r); -S_4048:; -if ((*__LONG_NOIDEMODE)||new_error){ -if(qbevent){evnt(3238);if(r)goto S_4048;} -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",6),qbs_new_txt_len("$Debug features only work from the IDE",38)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3239);}while(r); -} -do{ -goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(3241);}while(r); -} -S_4053:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$CHECKING:OFF",13))))||new_error){ -if(qbevent){evnt(3244);if(r)goto S_4053;} -do{ -qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Checking:Off",13))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3245);}while(r); -do{ -*__LONG_NOCHECKS= 1 ; -if(!qbevent)break;evnt(3246);}while(r); -S_4056:; -if (((-(*__LONG_VWATCHON!= 0 ))&(-(*__LONG_NOIDEMODE== 0 ))&(-(*__LONG_INCLEVEL== 0 )))||new_error){ -if(qbevent){evnt(3247);if(r)goto S_4056;} -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",6),qbs_new_txt_len("$Debug features won't work in $Checking:Off blocks",50)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3248);}while(r); -} -do{ -goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(3250);}while(r); -} -S_4061:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$CHECKING:ON",12))))||new_error){ -if(qbevent){evnt(3253);if(r)goto S_4061;} -do{ -qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Checking:On",12))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3254);}while(r); -do{ -*__LONG_NOCHECKS= 0 ; -if(!qbevent)break;evnt(3255);}while(r); -do{ -goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(3256);}while(r); -} -S_4066:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$CONSOLE",8))))||new_error){ -if(qbevent){evnt(3259);if(r)goto S_4066;} -do{ -qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Console",8))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3260);}while(r); -do{ -*__LONG_CONSOLE= 1 ; -if(!qbevent)break;evnt(3261);}while(r); -do{ -goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(3262);}while(r); -} -S_4071:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$CONSOLE:ONLY",13))))||new_error){ -if(qbevent){evnt(3265);if(r)goto S_4071;} -do{ -qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Console:Only",13))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3266);}while(r); -do{ -tmp_long=array_check(( 7 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[tmp_long]=((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 7 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])]| 1 ; -if(!qbevent)break;evnt(3267);}while(r); -do{ -*__LONG_CONSOLE= 1 ; -if(!qbevent)break;evnt(3268);}while(r); -S_4075:; -if ((-(*__LONG_PREPASS== 0 ))||new_error){ -if(qbevent){evnt(3269);if(r)goto S_4075;} -S_4076:; -if ((-(*__LONG_NOCHECKS== 0 ))||new_error){ -if(qbevent){evnt(3270);if(r)goto S_4076;} -do{ -SUB_WRITEBUFLINE(&(pass348=*__LONG_MAINTXTBUF),qbs_new_txt_len("do{",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3270);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass349=*__LONG_MAINTXTBUF),qbs_new_txt_len("sub__dest(func__console());",27)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3271);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass350=*__LONG_MAINTXTBUF),qbs_new_txt_len("sub__source(func__console());",29)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3272);}while(r); -do{ -goto LABEL_FINISHEDLINE2; -if(!qbevent)break;evnt(3273);}while(r); -}else{ -do{ -goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(3275);}while(r); -} -} -S_4086:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$ASSERTS",8))))||new_error){ -if(qbevent){evnt(3279);if(r)goto S_4086;} -do{ -qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Asserts",8))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3280);}while(r); -do{ -*__LONG_ASSERTS= 1 ; -if(!qbevent)break;evnt(3281);}while(r); -do{ -goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(3282);}while(r); -} -S_4091:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$ASSERTS:CONSOLE",16))))||new_error){ -if(qbevent){evnt(3285);if(r)goto S_4091;} -do{ -qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Asserts:Console",16))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3286);}while(r); -do{ -*__LONG_ASSERTS= 1 ; -if(!qbevent)break;evnt(3287);}while(r); -do{ -*__LONG_CONSOLE= 1 ; -if(!qbevent)break;evnt(3288);}while(r); -do{ -goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(3289);}while(r); -} -S_4097:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$SCREENHIDE",11))))||new_error){ -if(qbevent){evnt(3292);if(r)goto S_4097;} -do{ -qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$ScreenHide",11))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3293);}while(r); -do{ -*__LONG_SCREENHIDE= 1 ; -if(!qbevent)break;evnt(3294);}while(r); -do{ -goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(3295);}while(r); -} -S_4102:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$SCREENSHOW",11))))||new_error){ -if(qbevent){evnt(3297);if(r)goto S_4102;} -do{ -qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$ScreenShow",11))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3298);}while(r); -do{ -*__LONG_SCREENHIDE= 0 ; -if(!qbevent)break;evnt(3299);}while(r); -do{ -goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(3300);}while(r); -} -S_4107:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$RESIZE:OFF",11))))||new_error){ -if(qbevent){evnt(3303);if(r)goto S_4107;} -do{ -qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Resize:Off",11))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3304);}while(r); -do{ -*__LONG_RESIZE= 0 ; -if(!qbevent)break;evnt(3305);}while(r); -do{ -*__LONG_RESIZE_SCALE= 0 ; -if(!qbevent)break;evnt(3305);}while(r); -do{ -goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(3306);}while(r); -} -S_4113:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$RESIZE:ON",10))))||new_error){ -if(qbevent){evnt(3308);if(r)goto S_4113;} -do{ -qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Resize:On",10))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3309);}while(r); -do{ -*__LONG_RESIZE= 1 ; -if(!qbevent)break;evnt(3310);}while(r); -do{ -*__LONG_RESIZE_SCALE= 0 ; -if(!qbevent)break;evnt(3310);}while(r); -do{ -goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(3311);}while(r); -} -S_4119:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$RESIZE:STRETCH",15))))||new_error){ -if(qbevent){evnt(3314);if(r)goto S_4119;} -do{ -qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Resize:Stretch",15))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3315);}while(r); -do{ -*__LONG_RESIZE= 1 ; -if(!qbevent)break;evnt(3316);}while(r); -do{ -*__LONG_RESIZE_SCALE= 1 ; -if(!qbevent)break;evnt(3316);}while(r); -do{ -goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(3317);}while(r); -} -S_4125:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$RESIZE:SMOOTH",14))))||new_error){ -if(qbevent){evnt(3319);if(r)goto S_4125;} -do{ -qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Resize:Smooth",14))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3320);}while(r); -do{ -*__LONG_RESIZE= 1 ; -if(!qbevent)break;evnt(3321);}while(r); -do{ -*__LONG_RESIZE_SCALE= 2 ; -if(!qbevent)break;evnt(3321);}while(r); -do{ -goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(3322);}while(r); -} -S_4131:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_A3U, 12 ),qbs_new_txt_len("$VERSIONINFO",12))))||new_error){ -if(qbevent){evnt(3325);if(r)goto S_4131;} -do{ -*__LONG_FIRSTDELIMITER=func_instr(NULL,__STRING_A3U,qbs_new_txt_len(":",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3327);}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(3328);}while(r); -S_4134:; -if (((-(*__LONG_FIRSTDELIMITER== 0 ))|(-(*__LONG_SECONDDELIMITER== 0 ))|(-(*__LONG_SECONDDELIMITER==(*__LONG_FIRSTDELIMITER+ 1 ))))||new_error){ -if(qbevent){evnt(3329);if(r)goto S_4134;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected $VERSIONINFO:key=value",31)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3330);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(3330);}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(3333);}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(3334);}while(r); -S_4140:; -if(qbevent){evnt(3336);if(r)goto S_4140;} -S_4141:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("FILEVERSION#",12))))||new_error){ -if(qbevent){evnt(3337);if(r)goto S_4141;} -do{ -return_point[next_return_point++]=2; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_VALIDATEVERSION; -RETURN_2:; -if(!qbevent)break;evnt(3338);}while(r); -do{ -qbs_set(__STRING_VIFILEVERSIONNUM,__STRING_VERSIONINFOVALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3339);}while(r); -S_4144:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VIFILEVERSION,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(3340);if(r)goto S_4144;} -do{ -qbs_set(__STRING_VIFILEVERSION,__STRING_VIFILEVERSIONNUM); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3340);}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(3341);}while(r); -sc_ec_6_end:; -goto sc_351_end; -} -S_4148:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("PRODUCTVERSION#",15))))||new_error){ -if(qbevent){evnt(3342);if(r)goto S_4148;} -do{ -return_point[next_return_point++]=3; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_VALIDATEVERSION; -RETURN_3:; -if(!qbevent)break;evnt(3343);}while(r); -do{ -qbs_set(__STRING_VIPRODUCTVERSIONNUM,__STRING_VERSIONINFOVALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3344);}while(r); -S_4151:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VIPRODUCTVERSION,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(3345);if(r)goto S_4151;} -do{ -qbs_set(__STRING_VIPRODUCTVERSION,__STRING_VIPRODUCTVERSIONNUM); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3345);}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(3346);}while(r); -sc_ec_7_end:; -goto sc_351_end; -} -S_4155:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("COMPANYNAME",11))))||new_error){ -if(qbevent){evnt(3347);if(r)goto S_4155;} -do{ -qbs_set(__STRING_VICOMPANYNAME,__STRING_VERSIONINFOVALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3348);}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(3349);}while(r); -sc_ec_8_end:; -goto sc_351_end; -} -S_4158:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("FILEDESCRIPTION",15))))||new_error){ -if(qbevent){evnt(3350);if(r)goto S_4158;} -do{ -qbs_set(__STRING_VIFILEDESCRIPTION,__STRING_VERSIONINFOVALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3351);}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(3352);}while(r); -sc_ec_9_end:; -goto sc_351_end; -} -S_4161:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("FILEVERSION",11))))||new_error){ -if(qbevent){evnt(3353);if(r)goto S_4161;} -do{ -qbs_set(__STRING_VIFILEVERSION,__STRING_VERSIONINFOVALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3354);}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(3355);}while(r); -sc_ec_10_end:; -goto sc_351_end; -} -S_4164:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("INTERNALNAME",12))))||new_error){ -if(qbevent){evnt(3356);if(r)goto S_4164;} -do{ -qbs_set(__STRING_VIINTERNALNAME,__STRING_VERSIONINFOVALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3357);}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(3358);}while(r); -sc_ec_11_end:; -goto sc_351_end; -} -S_4167:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("LEGALCOPYRIGHT",14))))||new_error){ -if(qbevent){evnt(3359);if(r)goto S_4167;} -do{ -qbs_set(__STRING_VILEGALCOPYRIGHT,__STRING_VERSIONINFOVALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3360);}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(3361);}while(r); -sc_ec_12_end:; -goto sc_351_end; -} -S_4170:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("LEGALTRADEMARKS",15))))||new_error){ -if(qbevent){evnt(3362);if(r)goto S_4170;} -do{ -qbs_set(__STRING_VILEGALTRADEMARKS,__STRING_VERSIONINFOVALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3363);}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(3364);}while(r); -sc_ec_13_end:; -goto sc_351_end; -} -S_4173:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("ORIGINALFILENAME",16))))||new_error){ -if(qbevent){evnt(3365);if(r)goto S_4173;} -do{ -qbs_set(__STRING_VIORIGINALFILENAME,__STRING_VERSIONINFOVALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3366);}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(3367);}while(r); -sc_ec_14_end:; -goto sc_351_end; -} -S_4176:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("PRODUCTNAME",11))))||new_error){ -if(qbevent){evnt(3368);if(r)goto S_4176;} -do{ -qbs_set(__STRING_VIPRODUCTNAME,__STRING_VERSIONINFOVALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3369);}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(3370);}while(r); -sc_ec_15_end:; -goto sc_351_end; -} -S_4179:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("PRODUCTVERSION",14))))||new_error){ -if(qbevent){evnt(3371);if(r)goto S_4179;} -do{ -qbs_set(__STRING_VIPRODUCTVERSION,__STRING_VERSIONINFOVALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3372);}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(3373);}while(r); -sc_ec_16_end:; -goto sc_351_end; -} -S_4182:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("COMMENTS",8))))||new_error){ -if(qbevent){evnt(3374);if(r)goto S_4182;} -do{ -qbs_set(__STRING_VICOMMENTS,__STRING_VERSIONINFOVALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3375);}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(3376);}while(r); -sc_ec_17_end:; -goto sc_351_end; -} -S_4185:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("WEB",3))))||new_error){ -if(qbevent){evnt(3377);if(r)goto S_4185;} -do{ -qbs_set(__STRING_VIWEB,__STRING_VERSIONINFOVALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3378);}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(3379);}while(r); -sc_ec_18_end:; -goto sc_351_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(3381);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(3382);}while(r); -sc_351_end:; -do{ -*__BYTE_VERSIONINFOSET= -1 ; -if(!qbevent)break;evnt(3385);}while(r); -do{ -goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(3387);}while(r); -LABEL_VALIDATEVERSION:; -if(qbevent){evnt(3389);r=0;} -S_4194:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_VERSIONINFOVALUE->len== 0 )))||new_error){ -if(qbevent){evnt(3391);if(r)goto S_4194;} -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(3391);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(3391);}while(r); -} -do{ -*__LONG_VICOMMAS= 0 ; -if(!qbevent)break;evnt(3392);}while(r); -S_4199:; -fornext_value354= 1 ; -fornext_finalvalue354=__STRING_VERSIONINFOVALUE->len; -fornext_step354= 1 ; -if (fornext_step354<0) fornext_step_negative354=1; else fornext_step_negative354=0; -if (new_error) goto fornext_error354; -goto fornext_entrylabel354; -while(1){ -fornext_value354=fornext_step354+(*__LONG_I); -fornext_entrylabel354: -*__LONG_I=fornext_value354; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative354){ -if (fornext_value354fornext_finalvalue354) break; -} -fornext_error354:; -if(qbevent){evnt(3393);if(r)goto S_4199;} -S_4200:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_VERSIONINFOVALUE,*__LONG_I)== 44 )))||new_error){ -if(qbevent){evnt(3394);if(r)goto S_4200;} -do{ -*__LONG_VICOMMAS=*__LONG_VICOMMAS+ 1 ; -if(!qbevent)break;evnt(3394);}while(r); -} -S_4203:; -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)))))||new_error){ -if(qbevent){evnt(3395);if(r)goto S_4203;} -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(3396);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(3396);}while(r); -} -fornext_continue_353:; -} -fornext_exit_353:; -do{ -#include "ret0.txt" -if(!qbevent)break;evnt(3399);}while(r); -} -S_4210:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_A3U, 8 ),qbs_new_txt_len("$EXEICON",8))))||new_error){ -if(qbevent){evnt(3402);if(r)goto S_4210;} -S_4211:; -if ((*__LONG_EXEICONSET)||new_error){ -if(qbevent){evnt(3404);if(r)goto S_4211;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("$EXEICON already defined",24)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3404);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(3404);}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(3405);}while(r); -S_4216:; -if ((-(*__LONG_FIRSTDELIMITER== 0 ))||new_error){ -if(qbevent){evnt(3406);if(r)goto S_4216;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected $EXEICON:'filename'",28)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3407);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(3407);}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(3409);}while(r); -S_4221:; -if ((-(*__LONG_SECONDDELIMITER== 0 ))||new_error){ -if(qbevent){evnt(3410);if(r)goto S_4221;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected $EXEICON:'filename'",28)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3410);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(3410);}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(3412);}while(r); -S_4227:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_EXEICONFILE->len== 0 )))||new_error){ -if(qbevent){evnt(3413);if(r)goto S_4227;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected $EXEICON:'filename'",28)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3413);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(3413);}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(3414);}while(r); -do{ -qbs_set(__STRING_ICONPATH,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3416);}while(r); -S_4233:; -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)))))||new_error){ -if(qbevent){evnt(3417);if(r)goto S_4233;} -S_4234:; -if ((*__LONG_NOIDEMODE)||new_error){ -if(qbevent){evnt(3419);if(r)goto S_4234;} -do{ -qbs_set(__STRING_ICONPATH,__STRING_PATH__ASCII_CHR_046__SOURCE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3420);}while(r); -S_4236:; -if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_ICONPATH->len> 0 ))&(qbs_notequal(qbs_right(__STRING_ICONPATH, 1 ),__STRING1_PATHSEP))))||new_error){ -if(qbevent){evnt(3421);if(r)goto S_4236;} -do{ -qbs_set(__STRING_ICONPATH,qbs_add(__STRING_ICONPATH,__STRING1_PATHSEP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3421);}while(r); -} -}else{ -S_4240:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_IDEPROGNAME->len))||new_error){ -if(qbevent){evnt(3423);if(r)goto S_4240;} -do{ -qbs_set(__STRING_ICONPATH,qbs_add(__STRING_IDEPATH,__STRING1_PATHSEP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3423);}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(3426);}while(r); -S_4245:; -}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(3427);if(r)goto S_4245;} -S_4246:; -fornext_value361=__STRING_EXEICONFILE->len; -fornext_finalvalue361= 1 ; -fornext_step361= -1 ; -if (fornext_step361<0) fornext_step_negative361=1; else fornext_step_negative361=0; -if (new_error) goto fornext_error361; -goto fornext_entrylabel361; -while(1){ -fornext_value361=fornext_step361+(*__LONG_I); -fornext_entrylabel361: -*__LONG_I=fornext_value361; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative361){ -if (fornext_value361fornext_finalvalue361) break; -} -fornext_error361:; -if(qbevent){evnt(3428);if(r)goto S_4246;} -S_4247:; -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)))))||new_error){ -if(qbevent){evnt(3429);if(r)goto S_4247;} -do{ -qbs_set(__STRING_ICONPATH,qbs_left(__STRING_EXEICONFILE,*__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3430);}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(3431);}while(r); -S_4250:; -if ((qbs_cleanup(qbs_tmp_base,-(func__direxists(__STRING_ICONPATH)== 0 )))||new_error){ -if(qbevent){evnt(3433);if(r)goto S_4250;} -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(3433);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(3433);}while(r); -} -do{ -qbs_set(__STRING_CURRENTDIR,func__cwd()); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3435);}while(r); -do{ -sub_chdir(__STRING_ICONPATH); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3436);}while(r); -do{ -qbs_set(__STRING_ICONPATH,func__cwd()); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3437);}while(r); -do{ -sub_chdir(__STRING_CURRENTDIR); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3438);}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(3440);}while(r); -do{ -goto fornext_exit_360; -if(!qbevent)break;evnt(3441);}while(r); -} -fornext_continue_360:; -} -fornext_exit_360:; -} -} -S_4263:; -if ((qbs_cleanup(qbs_tmp_base,-(func__fileexists(__STRING_EXEICONFILE)== 0 )))||new_error){ -if(qbevent){evnt(3446);if(r)goto S_4263;} -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(3446);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(3446);}while(r); -} -do{ -*__LONG_EXEICONSET=*__LONG_LINENUMBER; -if(!qbevent)break;evnt(3448);}while(r); -do{ -SUB_SETDEPENDENCY(&(pass363= 10 )); -if(!qbevent)break;evnt(3449);}while(r); -S_4269:; -if ((-(*__LONG_NOCHECKS== 0 ))||new_error){ -if(qbevent){evnt(3450);if(r)goto S_4269;} -do{ -SUB_WRITEBUFLINE(&(pass364=*__LONG_MAINTXTBUF),qbs_new_txt_len("do{",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3450);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass365=*__LONG_MAINTXTBUF),qbs_new_txt_len("sub__icon(NULL,NULL,0);",23)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3451);}while(r); -do{ -goto LABEL_FINISHEDLINE2; -if(!qbevent)break;evnt(3452);}while(r); -} -S_4275:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_A3U, 10 ),qbs_new_txt_len("$UNSTABLE:",10))))||new_error){ -if(qbevent){evnt(3455);if(r)goto S_4275;} -do{ -qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Unstable:",10))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3456);}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(3458);}while(r); -S_4278:; -if(qbevent){evnt(3460);if(r)goto S_4278;} -S_4279:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TOKEN,qbs_new_txt_len("MIDI",4))))||new_error){ -if(qbevent){evnt(3461);if(r)goto S_4279;} -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(3462);}while(r); -sc_ec_19_end:; -goto sc_366_end; -} -S_4281:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TOKEN,qbs_new_txt_len("HTTP",4))))||new_error){ -if(qbevent){evnt(3463);if(r)goto S_4281;} -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(3464);}while(r); -sc_ec_20_end:; -goto sc_366_end; -} -sc_366_end:; -do{ -goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(3467);}while(r); -} -S_4286:; -if ((((int8*)(__ARRAY_BYTE_UNSTABLEFLAGS[0]))[array_check((*__LONG_UNSTABLE_MIDI)-__ARRAY_BYTE_UNSTABLEFLAGS[4],__ARRAY_BYTE_UNSTABLEFLAGS[5])])||new_error){ -if(qbevent){evnt(3470);if(r)goto S_4286;} -S_4287:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_A3U, 15 ),qbs_new_txt_len("$MIDISOUNDFONT:",15))))||new_error){ -if(qbevent){evnt(3471);if(r)goto S_4287;} -S_4288:; -if ((*__LONG_MIDISOUNDFONTSET)||new_error){ -if(qbevent){evnt(3472);if(r)goto S_4288;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("$MIDISOUNDFONT already defined",30)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3473);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(3474);}while(r); -} -do{ -qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$MidiSoundFont:",15))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3477);}while(r); -do{ -qbs_set(__STRING_MIDISOUNDFONT,qbs_ltrim(qbs_rtrim(func_mid(__STRING_A3, 16 ,NULL,0)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3479);}while(r); -S_4294:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(__STRING_MIDISOUNDFONT, 1 , 1 ,0|1),func_chr( 34 ))))||new_error){ -if(qbevent){evnt(3481);if(r)goto S_4294;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(__STRING_LAYOUT,__STRING_MIDISOUNDFONT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3485);}while(r); -do{ -qbs_set(__STRING_MIDISOUNDFONT,func_mid(__STRING_MIDISOUNDFONT, 2 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3488);}while(r); -S_4297:; -if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,__STRING_MIDISOUNDFONT,func_chr( 34 ),0)== 0 )))||new_error){ -if(qbevent){evnt(3491);if(r)goto S_4297;} -do{ -qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Expected ",9),func_chr( 34 )),qbs_new_txt_len(" character at the end of the file name",38))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3491);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(3491);}while(r); -} -S_4301:; -if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,__STRING_MIDISOUNDFONT,func_chr( 34 ),0)!=__STRING_MIDISOUNDFONT->len)))||new_error){ -if(qbevent){evnt(3494);if(r)goto S_4301;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Unexpected characters after the quoted file name",48)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3494);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(3494);}while(r); -} -do{ -qbs_set(__STRING_MIDISOUNDFONT,func_mid(__STRING_MIDISOUNDFONT, 1 ,__STRING_MIDISOUNDFONT->len- 1 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3497);}while(r); -S_4306:; -if ((qbs_cleanup(qbs_tmp_base,~(func__fileexists(__STRING_MIDISOUNDFONT))))||new_error){ -if(qbevent){evnt(3499);if(r)goto S_4306;} -S_4307:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_INCLEVEL> 0 ))&(func__fileexists(qbs_add(FUNC_GETFILEPATH(((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])]))),__STRING_MIDISOUNDFONT)))))||new_error){ -if(qbevent){evnt(3501);if(r)goto S_4307;} -do{ -qbs_set(__STRING_MIDISOUNDFONT,qbs_add(FUNC_GETFILEPATH(((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])]))),__STRING_MIDISOUNDFONT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3502);}while(r); -S_4309:; -}else{ -if (qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(FUNC_FIXDIRECTORYNAME(__STRING_IDEPATH),__STRING_MIDISOUNDFONT)))){ -if(qbevent){evnt(3503);if(r)goto S_4309;} -do{ -qbs_set(__STRING_MIDISOUNDFONT,qbs_add(FUNC_FIXDIRECTORYNAME(__STRING_IDEPATH),__STRING_MIDISOUNDFONT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3504);}while(r); -} -} -S_4312:; -if ((qbs_cleanup(qbs_tmp_base,~(func__fileexists(__STRING_MIDISOUNDFONT))))||new_error){ -if(qbevent){evnt(3507);if(r)goto S_4312;} -do{ -qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Soundfont file ",15),FUNC_ADDQUOTES(__STRING_MIDISOUNDFONT)),qbs_new_txt_len(" could not be found!",20))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3508);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(3509);}while(r); -} -} -}else{ -S_4318:; -qbs_set(sc_369,qbs_ucase(__STRING_MIDISOUNDFONT)); -qbs_cleanup(qbs_tmp_base,0); -if(qbevent){evnt(3514);if(r)goto S_4318;} -S_4319:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_369,qbs_new_txt_len("DEFAULT",7))))||new_error){ -if(qbevent){evnt(3515);if(r)goto S_4319;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("Default",7)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3516);}while(r); -do{ -qbs_set(__STRING_MIDISOUNDFONT,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3519);}while(r); -sc_ec_21_end:; -goto sc_369_end; -} -do{ -qbs_set(__STRING_A,qbs_add(qbs_new_txt_len("Unrecognized Soundfont option ",30),FUNC_ADDQUOTES(__STRING_MIDISOUNDFONT))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3522);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(3523);}while(r); -sc_369_end:; -} -do{ -*__LONG_MIDISOUNDFONTSET=*__LONG_LINENUMBER; -if(!qbevent)break;evnt(3527);}while(r); -do{ -qbs_set(__STRING_MIDISOUNDFONTLINE,__STRING_LAYOUT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3528);}while(r); -do{ -goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(3529);}while(r); -} -} -} -S_4333:; -if ((((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5])])||new_error){ -if(qbevent){evnt(3535);if(r)goto S_4333;} -do{ -*__LONG_LAYOUTDONE= 0 ; -if(!qbevent)break;evnt(3536);}while(r); -do{ -goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(3537);}while(r); -} -do{ -*__LONG_LINEDATAOFFSET=*__LONG_DATAOFFSET; -if(!qbevent)break;evnt(3541);}while(r); -do{ -qbs_set(__STRING_ENTIRELINE,FUNC_LINEFORMAT(__STRING_A3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3543);}while(r); -S_4339:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_ENTIRELINE->len== 0 )))||new_error){ -if(qbevent){evnt(3543);if(r)goto S_4339;} -do{ -goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(3543);}while(r); -} -S_4342:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(3544);if(r)goto S_4342;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(3544);}while(r); -} -do{ -qbs_set(__STRING_U,qbs_ucase(__STRING_ENTIRELINE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3545);}while(r); -do{ -*__LONG_NEWIF= 0 ; -if(!qbevent)break;evnt(3547);}while(r); -do{ -*__LONG_S= 1 ; -if(!qbevent)break;evnt(3551);}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(3552);}while(r); -S_4349:; -while((*__LONG_I)||new_error){ -if(qbevent){evnt(3553);if(r)goto S_4349;} -do{ -*__LONG_SKIP= 0 ; -if(!qbevent)break;evnt(3554);}while(r); -S_4351:; -if ((-(*__LONG_I!= 1 ))||new_error){ -if(qbevent){evnt(3555);if(r)goto S_4351;} -S_4352:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(func_mid(__STRING_U,*__LONG_I- 1 , 1 ,0|1),__STRING1_SP)))||new_error){ -if(qbevent){evnt(3556);if(r)goto S_4352;} -do{ -*__LONG_SKIP= 1 ; -if(!qbevent)break;evnt(3556);}while(r); -} -} -S_4356:; -if ((qbs_cleanup(qbs_tmp_base,-(*__LONG_I!=(__STRING_U->len- 8 ))))||new_error){ -if(qbevent){evnt(3558);if(r)goto S_4356;} -S_4357:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(func_mid(__STRING_U,*__LONG_I+ 9 , 1 ,0|1),__STRING1_SP)))||new_error){ -if(qbevent){evnt(3559);if(r)goto S_4357;} -do{ -*__LONG_SKIP= 1 ; -if(!qbevent)break;evnt(3559);}while(r); -} -} -S_4361:; -if ((-(*__LONG_SKIP== 0 ))||new_error){ -if(qbevent){evnt(3561);if(r)goto S_4361;} -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(3562);}while(r); -do{ -qbs_set(__STRING_U,qbs_ucase(__STRING_ENTIRELINE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3563);}while(r); -} -do{ -*__LONG_S=*__LONG_I+ 9 ; -if(!qbevent)break;evnt(3565);}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(3566);}while(r); -dl_continue_371:; -} -dl_exit_371:; -do{ -*__LONG_N=FUNC_NUMELEMENTS(__STRING_ENTIRELINE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3569);}while(r); -do{ -*__LONG_A=qbs_asc(__STRING_ENTIRELINE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3572);}while(r); -S_4370:; -if (((((-(*__LONG_A>= 48 ))&(-(*__LONG_A<= 57 ))))|(-(*__LONG_A== 46 )))||new_error){ -if(qbevent){evnt(3573);if(r)goto S_4370;} -do{ -qbs_set(__STRING_LABEL,FUNC_GETELEMENT(__STRING_ENTIRELINE,&(pass373= 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3574);}while(r); -S_4372:; -if ((qbs_cleanup(qbs_tmp_base,FUNC_VALIDLABEL(__STRING_LABEL)))||new_error){ -if(qbevent){evnt(3575);if(r)goto S_4372;} -S_4373:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__INTEGER_CLOSEDMAIN!= 0 ))&(qbs_equal(__STRING_SUBFUNC,qbs_new_txt_len("",0)))))||new_error){ -if(qbevent){evnt(3577);if(r)goto S_4373;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Labels cannot be placed between SUB/FUNCTIONs",45)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3577);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(3577);}while(r); -} -do{ -*__LONG_V=FUNC_HASHFIND(__STRING_LABEL,&(pass374= 2 ),__LONG_IGNORE,__LONG_R); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3579);}while(r); -LABEL_ADDLABCHK100:; -if(qbevent){evnt(3580);r=0;} -S_4378:; -if ((*__LONG_V)||new_error){ -if(qbevent){evnt(3581);if(r)goto S_4378;} -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(3582);}while(r); -S_4380:; -if (((-(*__LONG_S==*__LONG_SUBFUNCN))|(-(*__LONG_S== -1 )))||new_error){ -if(qbevent){evnt(3583);if(r)goto S_4380;} -S_4381:; -if ((-(*__LONG_S== -1 ))||new_error){ -if(qbevent){evnt(3584);if(r)goto S_4381;} -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(3584);}while(r); -} -S_4384:; -if ((-(*(uint8*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282))== 1 ))||new_error){ -if(qbevent){evnt(3585);if(r)goto S_4384;} -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(3585);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(3585);}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(3587);}while(r); -do{ -goto LABEL_ADDLABAQ100; -if(!qbevent)break;evnt(3588);}while(r); -} -S_4391:; -if ((-(*__LONG_V== 2 ))||new_error){ -if(qbevent){evnt(3590);if(r)goto S_4391;} -do{ -*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R); -if(!qbevent)break;evnt(3590);}while(r); -do{ -goto LABEL_ADDLABCHK100; -if(!qbevent)break;evnt(3590);}while(r); -} -} -do{ -*__LONG_NLABELS=*__LONG_NLABELS+ 1 ; -if(!qbevent)break;evnt(3594);}while(r); -S_4397:; -if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||new_error){ -if(qbevent){evnt(3594);if(r)goto S_4397;} -do{ -*__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ; -if(!qbevent)break;evnt(3594);}while(r); -do{ +} +if(!qbevent)break;evnt(3187);}while(r); +} +do{ +tmp_long=array_check(( 0 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*__INTEGER_USERDEFINECOUNT)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3189);}while(r); +do{ +tmp_long=array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*__INTEGER_USERDEFINECOUNT)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[tmp_long])),__STRING_R); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3190);}while(r); +do{ +goto LABEL_FINISHEDNONEXEC; +if(!qbevent)break;evnt(3191);}while(r); +} +S_4012:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$COLOR:0",8))))||new_error){ +if(qbevent){evnt(3194);if(r)goto S_4012;} +do{ +qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Color:0",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3195);}while(r); +S_4014:; +if ((*__LONG_QB64PREFIX_SET)||new_error){ +if(qbevent){evnt(3196);if(r)goto S_4014;} +do{ +qbs_set(__STRING_ADDMETAINCLUDE,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(FUNC_GETFILEPATH(func_command( 0 ,0|1)),qbs_new_txt_len("internal",8)),__STRING1_PATHSEP),qbs_new_txt_len("support",7)),__STRING1_PATHSEP),qbs_new_txt_len("color",5)),__STRING1_PATHSEP),qbs_new_txt_len("color0_noprefix.bi",18))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3197);}while(r); +}else{ +do{ +qbs_set(__STRING_ADDMETAINCLUDE,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(FUNC_GETFILEPATH(func_command( 0 ,0|1)),qbs_new_txt_len("internal",8)),__STRING1_PATHSEP),qbs_new_txt_len("support",7)),__STRING1_PATHSEP),qbs_new_txt_len("color",5)),__STRING1_PATHSEP),qbs_new_txt_len("color0.bi",9))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3199);}while(r); +} +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(3201);}while(r); +do{ +goto LABEL_FINISHEDNONEXEC; +if(!qbevent)break;evnt(3202);}while(r); +} +S_4022:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$COLOR:32",9))))||new_error){ +if(qbevent){evnt(3205);if(r)goto S_4022;} +do{ +qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Color:32",9))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3206);}while(r); +S_4024:; +if ((*__LONG_QB64PREFIX_SET)||new_error){ +if(qbevent){evnt(3207);if(r)goto S_4024;} +do{ +qbs_set(__STRING_ADDMETAINCLUDE,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(FUNC_GETFILEPATH(func_command( 0 ,0|1)),qbs_new_txt_len("internal",8)),__STRING1_PATHSEP),qbs_new_txt_len("support",7)),__STRING1_PATHSEP),qbs_new_txt_len("color",5)),__STRING1_PATHSEP),qbs_new_txt_len("color32_noprefix.bi",19))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3208);}while(r); +}else{ +do{ +qbs_set(__STRING_ADDMETAINCLUDE,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(FUNC_GETFILEPATH(func_command( 0 ,0|1)),qbs_new_txt_len("internal",8)),__STRING1_PATHSEP),qbs_new_txt_len("support",7)),__STRING1_PATHSEP),qbs_new_txt_len("color",5)),__STRING1_PATHSEP),qbs_new_txt_len("color32.bi",10))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3210);}while(r); +} +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(3212);}while(r); +do{ +goto LABEL_FINISHEDNONEXEC; +if(!qbevent)break;evnt(3213);}while(r); +} +S_4032:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$NOPREFIX",9))))||new_error){ +if(qbevent){evnt(3216);if(r)goto S_4032;} +do{ +qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$NoPrefix",9))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3218);}while(r); +do{ +goto LABEL_FINISHEDNONEXEC; +if(!qbevent)break;evnt(3219);}while(r); +} +S_4036:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$VIRTUALKEYBOARD:ON",19))))||new_error){ +if(qbevent){evnt(3222);if(r)goto S_4036;} +do{ +qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$VirtualKeyboard:On",19))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3224);}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("Deprecated feature",18),qbs_new_txt_len("$VirtualKeyboard",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3225);}while(r); +do{ +goto LABEL_FINISHEDNONEXEC; +if(!qbevent)break;evnt(3226);}while(r); +} +S_4041:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$VIRTUALKEYBOARD:OFF",20))))||new_error){ +if(qbevent){evnt(3229);if(r)goto S_4041;} +do{ +qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$VirtualKeyboard:Off",20))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3231);}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("Deprecated feature",18),qbs_new_txt_len("$VirtualKeyboard",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3232);}while(r); +do{ +goto LABEL_FINISHEDNONEXEC; +if(!qbevent)break;evnt(3233);}while(r); +} +S_4046:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$DEBUG",6))))||new_error){ +if(qbevent){evnt(3236);if(r)goto S_4046;} +do{ +qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Debug",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3237);}while(r); +S_4048:; +if ((*__LONG_NOIDEMODE)||new_error){ +if(qbevent){evnt(3238);if(r)goto S_4048;} +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",6),qbs_new_txt_len("$Debug features only work from the IDE",38)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3239);}while(r); +} +do{ +goto LABEL_FINISHEDNONEXEC; +if(!qbevent)break;evnt(3241);}while(r); +} +S_4053:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$CHECKING:OFF",13))))||new_error){ +if(qbevent){evnt(3244);if(r)goto S_4053;} +do{ +qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Checking:Off",13))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3245);}while(r); +do{ +*__LONG_NOCHECKS= 1 ; +if(!qbevent)break;evnt(3246);}while(r); +S_4056:; +if (((-(*__LONG_VWATCHON!= 0 ))&(-(*__LONG_NOIDEMODE== 0 ))&(-(*__LONG_INCLEVEL== 0 )))||new_error){ +if(qbevent){evnt(3247);if(r)goto S_4056;} +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",6),qbs_new_txt_len("$Debug features won't work in $Checking:Off blocks",50)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3248);}while(r); +} +do{ +goto LABEL_FINISHEDNONEXEC; +if(!qbevent)break;evnt(3250);}while(r); +} +S_4061:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$CHECKING:ON",12))))||new_error){ +if(qbevent){evnt(3253);if(r)goto S_4061;} +do{ +qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Checking:On",12))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3254);}while(r); +do{ +*__LONG_NOCHECKS= 0 ; +if(!qbevent)break;evnt(3255);}while(r); +do{ +goto LABEL_FINISHEDNONEXEC; +if(!qbevent)break;evnt(3256);}while(r); +} +S_4066:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$CONSOLE",8))))||new_error){ +if(qbevent){evnt(3259);if(r)goto S_4066;} +do{ +qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Console",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3260);}while(r); +do{ +*__LONG_CONSOLE= 1 ; +if(!qbevent)break;evnt(3261);}while(r); +do{ +goto LABEL_FINISHEDNONEXEC; +if(!qbevent)break;evnt(3262);}while(r); +} +S_4071:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$CONSOLE:ONLY",13))))||new_error){ +if(qbevent){evnt(3265);if(r)goto S_4071;} +do{ +qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Console:Only",13))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3266);}while(r); +do{ +tmp_long=array_check(( 7 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[tmp_long]=((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 7 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])]| 1 ; +if(!qbevent)break;evnt(3267);}while(r); +do{ +*__LONG_CONSOLE= 1 ; +if(!qbevent)break;evnt(3268);}while(r); +S_4075:; +if ((-(*__LONG_PREPASS== 0 ))||new_error){ +if(qbevent){evnt(3269);if(r)goto S_4075;} +S_4076:; +if ((-(*__LONG_NOCHECKS== 0 ))||new_error){ +if(qbevent){evnt(3270);if(r)goto S_4076;} +do{ +SUB_WRITEBUFLINE(&(pass348=*__LONG_MAINTXTBUF),qbs_new_txt_len("do{",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3270);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass349=*__LONG_MAINTXTBUF),qbs_new_txt_len("sub__dest(func__console());",27)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3271);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass350=*__LONG_MAINTXTBUF),qbs_new_txt_len("sub__source(func__console());",29)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3272);}while(r); +do{ +goto LABEL_FINISHEDLINE2; +if(!qbevent)break;evnt(3273);}while(r); +}else{ +do{ +goto LABEL_FINISHEDNONEXEC; +if(!qbevent)break;evnt(3275);}while(r); +} +} +S_4086:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$ASSERTS",8))))||new_error){ +if(qbevent){evnt(3279);if(r)goto S_4086;} +do{ +qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Asserts",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3280);}while(r); +do{ +*__LONG_ASSERTS= 1 ; +if(!qbevent)break;evnt(3281);}while(r); +do{ +goto LABEL_FINISHEDNONEXEC; +if(!qbevent)break;evnt(3282);}while(r); +} +S_4091:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$ASSERTS:CONSOLE",16))))||new_error){ +if(qbevent){evnt(3285);if(r)goto S_4091;} +do{ +qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Asserts:Console",16))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3286);}while(r); +do{ +*__LONG_ASSERTS= 1 ; +if(!qbevent)break;evnt(3287);}while(r); +do{ +*__LONG_CONSOLE= 1 ; +if(!qbevent)break;evnt(3288);}while(r); +do{ +goto LABEL_FINISHEDNONEXEC; +if(!qbevent)break;evnt(3289);}while(r); +} +S_4097:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$SCREENHIDE",11))))||new_error){ +if(qbevent){evnt(3292);if(r)goto S_4097;} +do{ +qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$ScreenHide",11))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3293);}while(r); +do{ +*__LONG_SCREENHIDE= 1 ; +if(!qbevent)break;evnt(3294);}while(r); +do{ +goto LABEL_FINISHEDNONEXEC; +if(!qbevent)break;evnt(3295);}while(r); +} +S_4102:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$SCREENSHOW",11))))||new_error){ +if(qbevent){evnt(3297);if(r)goto S_4102;} +do{ +qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$ScreenShow",11))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3298);}while(r); +do{ +*__LONG_SCREENHIDE= 0 ; +if(!qbevent)break;evnt(3299);}while(r); +do{ +goto LABEL_FINISHEDNONEXEC; +if(!qbevent)break;evnt(3300);}while(r); +} +S_4107:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$RESIZE:OFF",11))))||new_error){ +if(qbevent){evnt(3303);if(r)goto S_4107;} +do{ +qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Resize:Off",11))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3304);}while(r); +do{ +*__LONG_RESIZE= 0 ; +if(!qbevent)break;evnt(3305);}while(r); +do{ +*__LONG_RESIZE_SCALE= 0 ; +if(!qbevent)break;evnt(3305);}while(r); +do{ +goto LABEL_FINISHEDNONEXEC; +if(!qbevent)break;evnt(3306);}while(r); +} +S_4113:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$RESIZE:ON",10))))||new_error){ +if(qbevent){evnt(3308);if(r)goto S_4113;} +do{ +qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Resize:On",10))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3309);}while(r); +do{ +*__LONG_RESIZE= 1 ; +if(!qbevent)break;evnt(3310);}while(r); +do{ +*__LONG_RESIZE_SCALE= 0 ; +if(!qbevent)break;evnt(3310);}while(r); +do{ +goto LABEL_FINISHEDNONEXEC; +if(!qbevent)break;evnt(3311);}while(r); +} +S_4119:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$RESIZE:STRETCH",15))))||new_error){ +if(qbevent){evnt(3314);if(r)goto S_4119;} +do{ +qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Resize:Stretch",15))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3315);}while(r); +do{ +*__LONG_RESIZE= 1 ; +if(!qbevent)break;evnt(3316);}while(r); +do{ +*__LONG_RESIZE_SCALE= 1 ; +if(!qbevent)break;evnt(3316);}while(r); +do{ +goto LABEL_FINISHEDNONEXEC; +if(!qbevent)break;evnt(3317);}while(r); +} +S_4125:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3U,qbs_new_txt_len("$RESIZE:SMOOTH",14))))||new_error){ +if(qbevent){evnt(3319);if(r)goto S_4125;} +do{ +qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Resize:Smooth",14))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3320);}while(r); +do{ +*__LONG_RESIZE= 1 ; +if(!qbevent)break;evnt(3321);}while(r); +do{ +*__LONG_RESIZE_SCALE= 2 ; +if(!qbevent)break;evnt(3321);}while(r); +do{ +goto LABEL_FINISHEDNONEXEC; +if(!qbevent)break;evnt(3322);}while(r); +} +S_4131:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_A3U, 12 ),qbs_new_txt_len("$VERSIONINFO",12))))||new_error){ +if(qbevent){evnt(3325);if(r)goto S_4131;} +do{ +*__LONG_FIRSTDELIMITER=func_instr(NULL,__STRING_A3U,qbs_new_txt_len(":",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3327);}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(3328);}while(r); +S_4134:; +if (((-(*__LONG_FIRSTDELIMITER== 0 ))|(-(*__LONG_SECONDDELIMITER== 0 ))|(-(*__LONG_SECONDDELIMITER==(*__LONG_FIRSTDELIMITER+ 1 ))))||new_error){ +if(qbevent){evnt(3329);if(r)goto S_4134;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected $VERSIONINFO:key=value",31)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3330);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(3330);}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(3333);}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(3334);}while(r); +S_4140:; +if(qbevent){evnt(3336);if(r)goto S_4140;} +S_4141:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("FILEVERSION#",12))))||new_error){ +if(qbevent){evnt(3337);if(r)goto S_4141;} +do{ +return_point[next_return_point++]=2; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_VALIDATEVERSION; +RETURN_2:; +if(!qbevent)break;evnt(3338);}while(r); +do{ +qbs_set(__STRING_VIFILEVERSIONNUM,__STRING_VERSIONINFOVALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3339);}while(r); +S_4144:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VIFILEVERSION,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(3340);if(r)goto S_4144;} +do{ +qbs_set(__STRING_VIFILEVERSION,__STRING_VIFILEVERSIONNUM); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3340);}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(3341);}while(r); +sc_ec_6_end:; +goto sc_351_end; +} +S_4148:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("PRODUCTVERSION#",15))))||new_error){ +if(qbevent){evnt(3342);if(r)goto S_4148;} +do{ +return_point[next_return_point++]=3; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_VALIDATEVERSION; +RETURN_3:; +if(!qbevent)break;evnt(3343);}while(r); +do{ +qbs_set(__STRING_VIPRODUCTVERSIONNUM,__STRING_VERSIONINFOVALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3344);}while(r); +S_4151:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VIPRODUCTVERSION,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(3345);if(r)goto S_4151;} +do{ +qbs_set(__STRING_VIPRODUCTVERSION,__STRING_VIPRODUCTVERSIONNUM); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3345);}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(3346);}while(r); +sc_ec_7_end:; +goto sc_351_end; +} +S_4155:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("COMPANYNAME",11))))||new_error){ +if(qbevent){evnt(3347);if(r)goto S_4155;} +do{ +qbs_set(__STRING_VICOMPANYNAME,__STRING_VERSIONINFOVALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3348);}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(3349);}while(r); +sc_ec_8_end:; +goto sc_351_end; +} +S_4158:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("FILEDESCRIPTION",15))))||new_error){ +if(qbevent){evnt(3350);if(r)goto S_4158;} +do{ +qbs_set(__STRING_VIFILEDESCRIPTION,__STRING_VERSIONINFOVALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3351);}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(3352);}while(r); +sc_ec_9_end:; +goto sc_351_end; +} +S_4161:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("FILEVERSION",11))))||new_error){ +if(qbevent){evnt(3353);if(r)goto S_4161;} +do{ +qbs_set(__STRING_VIFILEVERSION,__STRING_VERSIONINFOVALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3354);}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(3355);}while(r); +sc_ec_10_end:; +goto sc_351_end; +} +S_4164:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("INTERNALNAME",12))))||new_error){ +if(qbevent){evnt(3356);if(r)goto S_4164;} +do{ +qbs_set(__STRING_VIINTERNALNAME,__STRING_VERSIONINFOVALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3357);}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(3358);}while(r); +sc_ec_11_end:; +goto sc_351_end; +} +S_4167:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("LEGALCOPYRIGHT",14))))||new_error){ +if(qbevent){evnt(3359);if(r)goto S_4167;} +do{ +qbs_set(__STRING_VILEGALCOPYRIGHT,__STRING_VERSIONINFOVALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3360);}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(3361);}while(r); +sc_ec_12_end:; +goto sc_351_end; +} +S_4170:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("LEGALTRADEMARKS",15))))||new_error){ +if(qbevent){evnt(3362);if(r)goto S_4170;} +do{ +qbs_set(__STRING_VILEGALTRADEMARKS,__STRING_VERSIONINFOVALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3363);}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(3364);}while(r); +sc_ec_13_end:; +goto sc_351_end; +} +S_4173:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("ORIGINALFILENAME",16))))||new_error){ +if(qbevent){evnt(3365);if(r)goto S_4173;} +do{ +qbs_set(__STRING_VIORIGINALFILENAME,__STRING_VERSIONINFOVALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3366);}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(3367);}while(r); +sc_ec_14_end:; +goto sc_351_end; +} +S_4176:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("PRODUCTNAME",11))))||new_error){ +if(qbevent){evnt(3368);if(r)goto S_4176;} +do{ +qbs_set(__STRING_VIPRODUCTNAME,__STRING_VERSIONINFOVALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3369);}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(3370);}while(r); +sc_ec_15_end:; +goto sc_351_end; +} +S_4179:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("PRODUCTVERSION",14))))||new_error){ +if(qbevent){evnt(3371);if(r)goto S_4179;} +do{ +qbs_set(__STRING_VIPRODUCTVERSION,__STRING_VERSIONINFOVALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3372);}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(3373);}while(r); +sc_ec_16_end:; +goto sc_351_end; +} +S_4182:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("COMMENTS",8))))||new_error){ +if(qbevent){evnt(3374);if(r)goto S_4182;} +do{ +qbs_set(__STRING_VICOMMENTS,__STRING_VERSIONINFOVALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3375);}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(3376);}while(r); +sc_ec_17_end:; +goto sc_351_end; +} +S_4185:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VERSIONINFOKEY,qbs_new_txt_len("WEB",3))))||new_error){ +if(qbevent){evnt(3377);if(r)goto S_4185;} +do{ +qbs_set(__STRING_VIWEB,__STRING_VERSIONINFOVALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3378);}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(3379);}while(r); +sc_ec_18_end:; +goto sc_351_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(3381);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(3382);}while(r); +sc_351_end:; +do{ +*__BYTE_VERSIONINFOSET= -1 ; +if(!qbevent)break;evnt(3385);}while(r); +do{ +goto LABEL_FINISHEDNONEXEC; +if(!qbevent)break;evnt(3387);}while(r); +LABEL_VALIDATEVERSION:; +if(qbevent){evnt(3389);r=0;} +S_4194:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_VERSIONINFOVALUE->len== 0 )))||new_error){ +if(qbevent){evnt(3391);if(r)goto S_4194;} +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(3391);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(3391);}while(r); +} +do{ +*__LONG_VICOMMAS= 0 ; +if(!qbevent)break;evnt(3392);}while(r); +S_4199:; +fornext_value354= 1 ; +fornext_finalvalue354=__STRING_VERSIONINFOVALUE->len; +fornext_step354= 1 ; +if (fornext_step354<0) fornext_step_negative354=1; else fornext_step_negative354=0; +if (new_error) goto fornext_error354; +goto fornext_entrylabel354; +while(1){ +fornext_value354=fornext_step354+(*__LONG_I); +fornext_entrylabel354: +*__LONG_I=fornext_value354; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative354){ +if (fornext_value354fornext_finalvalue354) break; +} +fornext_error354:; +if(qbevent){evnt(3393);if(r)goto S_4199;} +S_4200:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_VERSIONINFOVALUE,*__LONG_I)== 44 )))||new_error){ +if(qbevent){evnt(3394);if(r)goto S_4200;} +do{ +*__LONG_VICOMMAS=*__LONG_VICOMMAS+ 1 ; +if(!qbevent)break;evnt(3394);}while(r); +} +S_4203:; +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)))))||new_error){ +if(qbevent){evnt(3395);if(r)goto S_4203;} +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(3396);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(3396);}while(r); +} +fornext_continue_353:; +} +fornext_exit_353:; +do{ +#include "ret0.txt" +if(!qbevent)break;evnt(3399);}while(r); +} +S_4210:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_A3U, 8 ),qbs_new_txt_len("$EXEICON",8))))||new_error){ +if(qbevent){evnt(3402);if(r)goto S_4210;} +S_4211:; +if ((*__LONG_EXEICONSET)||new_error){ +if(qbevent){evnt(3404);if(r)goto S_4211;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("$EXEICON already defined",24)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3404);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(3404);}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(3405);}while(r); +S_4216:; +if ((-(*__LONG_FIRSTDELIMITER== 0 ))||new_error){ +if(qbevent){evnt(3406);if(r)goto S_4216;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected $EXEICON:'filename'",28)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3407);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(3407);}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(3409);}while(r); +S_4221:; +if ((-(*__LONG_SECONDDELIMITER== 0 ))||new_error){ +if(qbevent){evnt(3410);if(r)goto S_4221;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected $EXEICON:'filename'",28)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3410);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(3410);}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(3412);}while(r); +S_4227:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_EXEICONFILE->len== 0 )))||new_error){ +if(qbevent){evnt(3413);if(r)goto S_4227;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected $EXEICON:'filename'",28)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3413);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(3413);}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(3414);}while(r); +do{ +qbs_set(__STRING_ICONPATH,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3416);}while(r); +S_4233:; +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)))))||new_error){ +if(qbevent){evnt(3417);if(r)goto S_4233;} +S_4234:; +if ((*__LONG_NOIDEMODE)||new_error){ +if(qbevent){evnt(3419);if(r)goto S_4234;} +do{ +qbs_set(__STRING_ICONPATH,__STRING_PATH__ASCII_CHR_046__SOURCE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3420);}while(r); +S_4236:; +if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_ICONPATH->len> 0 ))&(qbs_notequal(qbs_right(__STRING_ICONPATH, 1 ),__STRING1_PATHSEP))))||new_error){ +if(qbevent){evnt(3421);if(r)goto S_4236;} +do{ +qbs_set(__STRING_ICONPATH,qbs_add(__STRING_ICONPATH,__STRING1_PATHSEP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3421);}while(r); +} +}else{ +S_4240:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_IDEPROGNAME->len))||new_error){ +if(qbevent){evnt(3423);if(r)goto S_4240;} +do{ +qbs_set(__STRING_ICONPATH,qbs_add(__STRING_IDEPATH,__STRING1_PATHSEP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3423);}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(3426);}while(r); +S_4245:; +}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(3427);if(r)goto S_4245;} +S_4246:; +fornext_value361=__STRING_EXEICONFILE->len; +fornext_finalvalue361= 1 ; +fornext_step361= -1 ; +if (fornext_step361<0) fornext_step_negative361=1; else fornext_step_negative361=0; +if (new_error) goto fornext_error361; +goto fornext_entrylabel361; +while(1){ +fornext_value361=fornext_step361+(*__LONG_I); +fornext_entrylabel361: +*__LONG_I=fornext_value361; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative361){ +if (fornext_value361fornext_finalvalue361) break; +} +fornext_error361:; +if(qbevent){evnt(3428);if(r)goto S_4246;} +S_4247:; +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)))))||new_error){ +if(qbevent){evnt(3429);if(r)goto S_4247;} +do{ +qbs_set(__STRING_ICONPATH,qbs_left(__STRING_EXEICONFILE,*__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3430);}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(3431);}while(r); +S_4250:; +if ((qbs_cleanup(qbs_tmp_base,-(func__direxists(__STRING_ICONPATH)== 0 )))||new_error){ +if(qbevent){evnt(3433);if(r)goto S_4250;} +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(3433);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(3433);}while(r); +} +do{ +qbs_set(__STRING_CURRENTDIR,func__cwd()); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3435);}while(r); +do{ +sub_chdir(__STRING_ICONPATH); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3436);}while(r); +do{ +qbs_set(__STRING_ICONPATH,func__cwd()); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3437);}while(r); +do{ +sub_chdir(__STRING_CURRENTDIR); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3438);}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(3440);}while(r); +do{ +goto fornext_exit_360; +if(!qbevent)break;evnt(3441);}while(r); +} +fornext_continue_360:; +} +fornext_exit_360:; +} +} +S_4263:; +if ((qbs_cleanup(qbs_tmp_base,-(func__fileexists(__STRING_EXEICONFILE)== 0 )))||new_error){ +if(qbevent){evnt(3446);if(r)goto S_4263;} +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(3446);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(3446);}while(r); +} +do{ +*__LONG_EXEICONSET=*__LONG_LINENUMBER; +if(!qbevent)break;evnt(3448);}while(r); +do{ +SUB_SETDEPENDENCY(&(pass363= 10 )); +if(!qbevent)break;evnt(3449);}while(r); +S_4269:; +if ((-(*__LONG_NOCHECKS== 0 ))||new_error){ +if(qbevent){evnt(3450);if(r)goto S_4269;} +do{ +SUB_WRITEBUFLINE(&(pass364=*__LONG_MAINTXTBUF),qbs_new_txt_len("do{",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3450);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass365=*__LONG_MAINTXTBUF),qbs_new_txt_len("sub__icon(NULL,NULL,0);",23)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3451);}while(r); +do{ +goto LABEL_FINISHEDLINE2; +if(!qbevent)break;evnt(3452);}while(r); +} +S_4275:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_A3U, 10 ),qbs_new_txt_len("$UNSTABLE:",10))))||new_error){ +if(qbevent){evnt(3455);if(r)goto S_4275;} +do{ +qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$Unstable:",10))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3456);}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(3458);}while(r); +S_4278:; +if(qbevent){evnt(3460);if(r)goto S_4278;} +S_4279:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TOKEN,qbs_new_txt_len("MIDI",4))))||new_error){ +if(qbevent){evnt(3461);if(r)goto S_4279;} +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(3462);}while(r); +sc_ec_19_end:; +goto sc_366_end; +} +S_4281:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_TOKEN,qbs_new_txt_len("HTTP",4))))||new_error){ +if(qbevent){evnt(3463);if(r)goto S_4281;} +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(3464);}while(r); +sc_ec_20_end:; +goto sc_366_end; +} +sc_366_end:; +do{ +goto LABEL_FINISHEDNONEXEC; +if(!qbevent)break;evnt(3467);}while(r); +} +S_4286:; +if ((((int8*)(__ARRAY_BYTE_UNSTABLEFLAGS[0]))[array_check((*__LONG_UNSTABLE_MIDI)-__ARRAY_BYTE_UNSTABLEFLAGS[4],__ARRAY_BYTE_UNSTABLEFLAGS[5])])||new_error){ +if(qbevent){evnt(3470);if(r)goto S_4286;} +S_4287:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_A3U, 15 ),qbs_new_txt_len("$MIDISOUNDFONT:",15))))||new_error){ +if(qbevent){evnt(3471);if(r)goto S_4287;} +S_4288:; +if ((*__LONG_MIDISOUNDFONTSET)||new_error){ +if(qbevent){evnt(3472);if(r)goto S_4288;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("$MIDISOUNDFONT already defined",30)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3473);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(3474);}while(r); +} +do{ +qbs_set(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("$MidiSoundFont:",15))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3477);}while(r); +do{ +qbs_set(__STRING_MIDISOUNDFONT,qbs_ltrim(qbs_rtrim(func_mid(__STRING_A3, 16 ,NULL,0)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3479);}while(r); +S_4294:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(__STRING_MIDISOUNDFONT, 1 , 1 ,0|1),func_chr( 34 ))))||new_error){ +if(qbevent){evnt(3481);if(r)goto S_4294;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(__STRING_LAYOUT,__STRING_MIDISOUNDFONT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3485);}while(r); +do{ +qbs_set(__STRING_MIDISOUNDFONT,func_mid(__STRING_MIDISOUNDFONT, 2 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3488);}while(r); +S_4297:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,__STRING_MIDISOUNDFONT,func_chr( 34 ),0)== 0 )))||new_error){ +if(qbevent){evnt(3491);if(r)goto S_4297;} +do{ +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Expected ",9),func_chr( 34 )),qbs_new_txt_len(" character at the end of the file name",38))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3491);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(3491);}while(r); +} +S_4301:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,__STRING_MIDISOUNDFONT,func_chr( 34 ),0)!=__STRING_MIDISOUNDFONT->len)))||new_error){ +if(qbevent){evnt(3494);if(r)goto S_4301;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Unexpected characters after the quoted file name",48)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3494);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(3494);}while(r); +} +do{ +qbs_set(__STRING_MIDISOUNDFONT,func_mid(__STRING_MIDISOUNDFONT, 1 ,__STRING_MIDISOUNDFONT->len- 1 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3497);}while(r); +S_4306:; +if ((qbs_cleanup(qbs_tmp_base,~(func__fileexists(__STRING_MIDISOUNDFONT))))||new_error){ +if(qbevent){evnt(3499);if(r)goto S_4306;} +S_4307:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_INCLEVEL> 0 ))&(func__fileexists(qbs_add(FUNC_GETFILEPATH(((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])]))),__STRING_MIDISOUNDFONT)))))||new_error){ +if(qbevent){evnt(3501);if(r)goto S_4307;} +do{ +qbs_set(__STRING_MIDISOUNDFONT,qbs_add(FUNC_GETFILEPATH(((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])]))),__STRING_MIDISOUNDFONT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3502);}while(r); +S_4309:; +}else{ +if (qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(FUNC_FIXDIRECTORYNAME(__STRING_IDEPATH),__STRING_MIDISOUNDFONT)))){ +if(qbevent){evnt(3503);if(r)goto S_4309;} +do{ +qbs_set(__STRING_MIDISOUNDFONT,qbs_add(FUNC_FIXDIRECTORYNAME(__STRING_IDEPATH),__STRING_MIDISOUNDFONT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3504);}while(r); +} +} +S_4312:; +if ((qbs_cleanup(qbs_tmp_base,~(func__fileexists(__STRING_MIDISOUNDFONT))))||new_error){ +if(qbevent){evnt(3507);if(r)goto S_4312;} +do{ +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Soundfont file ",15),FUNC_ADDQUOTES(__STRING_MIDISOUNDFONT)),qbs_new_txt_len(" could not be found!",20))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3508);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(3509);}while(r); +} +} +}else{ +S_4318:; +qbs_set(sc_369,qbs_ucase(__STRING_MIDISOUNDFONT)); +qbs_cleanup(qbs_tmp_base,0); +if(qbevent){evnt(3514);if(r)goto S_4318;} +S_4319:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_369,qbs_new_txt_len("DEFAULT",7))))||new_error){ +if(qbevent){evnt(3515);if(r)goto S_4319;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(__STRING_LAYOUT,FUNC_SCASE(qbs_new_txt_len("Default",7)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3516);}while(r); +do{ +qbs_set(__STRING_MIDISOUNDFONT,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3519);}while(r); +sc_ec_21_end:; +goto sc_369_end; +} +do{ +qbs_set(__STRING_A,qbs_add(qbs_new_txt_len("Unrecognized Soundfont option ",30),FUNC_ADDQUOTES(__STRING_MIDISOUNDFONT))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3522);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(3523);}while(r); +sc_369_end:; +} +do{ +*__LONG_MIDISOUNDFONTSET=*__LONG_LINENUMBER; +if(!qbevent)break;evnt(3527);}while(r); +do{ +qbs_set(__STRING_MIDISOUNDFONTLINE,__STRING_LAYOUT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3528);}while(r); +do{ +goto LABEL_FINISHEDNONEXEC; +if(!qbevent)break;evnt(3529);}while(r); +} +} +} +S_4333:; +if ((((int32*)(__ARRAY_LONG_EXECLEVEL[0]))[array_check((*__INTEGER_EXECCOUNTER)-__ARRAY_LONG_EXECLEVEL[4],__ARRAY_LONG_EXECLEVEL[5])])||new_error){ +if(qbevent){evnt(3535);if(r)goto S_4333;} +do{ +*__LONG_LAYOUTDONE= 0 ; +if(!qbevent)break;evnt(3536);}while(r); +do{ +goto LABEL_FINISHEDNONEXEC; +if(!qbevent)break;evnt(3537);}while(r); +} +do{ +*__LONG_LINEDATAOFFSET=*__LONG_DATAOFFSET; +if(!qbevent)break;evnt(3541);}while(r); +do{ +qbs_set(__STRING_ENTIRELINE,FUNC_LINEFORMAT(__STRING_A3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3543);}while(r); +S_4339:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_ENTIRELINE->len== 0 )))||new_error){ +if(qbevent){evnt(3543);if(r)goto S_4339;} +do{ +goto LABEL_FINISHEDNONEXEC; +if(!qbevent)break;evnt(3543);}while(r); +} +S_4342:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(3544);if(r)goto S_4342;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(3544);}while(r); +} +do{ +qbs_set(__STRING_U,qbs_ucase(__STRING_ENTIRELINE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3545);}while(r); +do{ +*__LONG_NEWIF= 0 ; +if(!qbevent)break;evnt(3547);}while(r); +do{ +*__LONG_S= 1 ; +if(!qbevent)break;evnt(3551);}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(3552);}while(r); +S_4349:; +while((*__LONG_I)||new_error){ +if(qbevent){evnt(3553);if(r)goto S_4349;} +do{ +*__LONG_SKIP= 0 ; +if(!qbevent)break;evnt(3554);}while(r); +S_4351:; +if ((-(*__LONG_I!= 1 ))||new_error){ +if(qbevent){evnt(3555);if(r)goto S_4351;} +S_4352:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(func_mid(__STRING_U,*__LONG_I- 1 , 1 ,0|1),__STRING1_SP)))||new_error){ +if(qbevent){evnt(3556);if(r)goto S_4352;} +do{ +*__LONG_SKIP= 1 ; +if(!qbevent)break;evnt(3556);}while(r); +} +} +S_4356:; +if ((qbs_cleanup(qbs_tmp_base,-(*__LONG_I!=(__STRING_U->len- 8 ))))||new_error){ +if(qbevent){evnt(3558);if(r)goto S_4356;} +S_4357:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(func_mid(__STRING_U,*__LONG_I+ 9 , 1 ,0|1),__STRING1_SP)))||new_error){ +if(qbevent){evnt(3559);if(r)goto S_4357;} +do{ +*__LONG_SKIP= 1 ; +if(!qbevent)break;evnt(3559);}while(r); +} +} +S_4361:; +if ((-(*__LONG_SKIP== 0 ))||new_error){ +if(qbevent){evnt(3561);if(r)goto S_4361;} +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(3562);}while(r); +do{ +qbs_set(__STRING_U,qbs_ucase(__STRING_ENTIRELINE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3563);}while(r); +} +do{ +*__LONG_S=*__LONG_I+ 9 ; +if(!qbevent)break;evnt(3565);}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(3566);}while(r); +dl_continue_371:; +} +dl_exit_371:; +do{ +*__LONG_N=FUNC_NUMELEMENTS(__STRING_ENTIRELINE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3569);}while(r); +do{ +*__LONG_A=qbs_asc(__STRING_ENTIRELINE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3572);}while(r); +S_4370:; +if (((((-(*__LONG_A>= 48 ))&(-(*__LONG_A<= 57 ))))|(-(*__LONG_A== 46 )))||new_error){ +if(qbevent){evnt(3573);if(r)goto S_4370;} +do{ +qbs_set(__STRING_LABEL,FUNC_GETELEMENT(__STRING_ENTIRELINE,&(pass373= 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3574);}while(r); +S_4372:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_VALIDLABEL(__STRING_LABEL)))||new_error){ +if(qbevent){evnt(3575);if(r)goto S_4372;} +S_4373:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__INTEGER_CLOSEDMAIN!= 0 ))&(qbs_equal(__STRING_SUBFUNC,qbs_new_txt_len("",0)))))||new_error){ +if(qbevent){evnt(3577);if(r)goto S_4373;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Labels cannot be placed between SUB/FUNCTIONs",45)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3577);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(3577);}while(r); +} +do{ +*__LONG_V=FUNC_HASHFIND(__STRING_LABEL,&(pass374= 2 ),__LONG_IGNORE,__LONG_R); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3579);}while(r); +LABEL_ADDLABCHK100:; +if(qbevent){evnt(3580);r=0;} +S_4378:; +if ((*__LONG_V)||new_error){ +if(qbevent){evnt(3581);if(r)goto S_4378;} +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(3582);}while(r); +S_4380:; +if (((-(*__LONG_S==*__LONG_SUBFUNCN))|(-(*__LONG_S== -1 )))||new_error){ +if(qbevent){evnt(3583);if(r)goto S_4380;} +S_4381:; +if ((-(*__LONG_S== -1 ))||new_error){ +if(qbevent){evnt(3584);if(r)goto S_4381;} +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(3584);}while(r); +} +S_4384:; +if ((-(*(uint8*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282))== 1 ))||new_error){ +if(qbevent){evnt(3585);if(r)goto S_4384;} +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(3585);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(3585);}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(3587);}while(r); +do{ +goto LABEL_ADDLABAQ100; +if(!qbevent)break;evnt(3588);}while(r); +} +S_4391:; +if ((-(*__LONG_V== 2 ))||new_error){ +if(qbevent){evnt(3590);if(r)goto S_4391;} +do{ +*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R); +if(!qbevent)break;evnt(3590);}while(r); +do{ +goto LABEL_ADDLABCHK100; +if(!qbevent)break;evnt(3590);}while(r); +} +} +do{ +*__LONG_NLABELS=*__LONG_NLABELS+ 1 ; +if(!qbevent)break;evnt(3594);}while(r); +S_4397:; +if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||new_error){ +if(qbevent){evnt(3594);if(r)goto S_4397;} +do{ +*__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ; +if(!qbevent)break;evnt(3594);}while(r); +do{ if (__ARRAY_UDT_LABELS[2]&2){ error(10); @@ -16886,241 +16886,241 @@ if (!__ARRAY_UDT_LABELS[0]) error(257); } } __ARRAY_UDT_LABELS[2]|=1; -} -if(!qbevent)break;evnt(3594);}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(3595);}while(r); -do{ -SUB_HASHADD(__STRING_LABEL,&(pass375= 2 ),__LONG_NLABELS); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3596);}while(r); -do{ -*__LONG_R=*__LONG_NLABELS; -if(!qbevent)break;evnt(3597);}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(3598);}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(3599);}while(r); -LABEL_ADDLABAQ100:; -if(qbevent){evnt(3600);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(3601);}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(3602);}while(r); -do{ -qbs_set(__STRING_LAYOUT,__STRING_TLAYOUT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3604);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass376=*__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(3605);}while(r); -S_4410:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_LABEL,qbs_new_txt_len("p",1),0)))||new_error){ -if(qbevent){evnt(3608);if(r)goto S_4410;} -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(3608);}while(r); -} -S_4413:; -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)))))||new_error){ -if(qbevent){evnt(3609);if(r)goto S_4413;} -do{ -qbs_set(__STRING_LABEL,qbs_left(__STRING_LABEL,__STRING_LABEL->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3609);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass378=*__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(3610);}while(r); -do{ -qbs_set(__STRING_INCLINENUMP,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3611);}while(r); -S_4418:; -if ((((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])||new_error){ -if(qbevent){evnt(3612);if(r)goto S_4418;} -do{ -qbs_set(__STRING_INCLINENUMP,qbs_add(qbs_new_txt_len(",",1),FUNC_STR2((&(((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(3613);}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(3614);}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(3615);}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(3616);}while(r); -} -S_4424:; -if ((-(*__LONG_NOCHECKS== 0 ))||new_error){ -if(qbevent){evnt(3618);if(r)goto S_4424;} -S_4425:; -if ((*__LONG_VWATCHON&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||new_error){ -if(qbevent){evnt(3619);if(r)goto S_4425;} -do{ -qbs_set(__STRING_TEMP,__STRING_VWATCHERRORCALL); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3619);}while(r); -}else{ -do{ -qbs_set(__STRING_TEMP,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3619);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass380=*__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)),FUNC_STR2(__LONG_LINENUMBER)),__STRING_INCLINENUMP),qbs_new_txt_len(");r=0;}",7))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3620);}while(r); -} -S_4432:; -if ((-(*__LONG_N== 1 ))||new_error){ -if(qbevent){evnt(3622);if(r)goto S_4432;} -do{ -goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(3622);}while(r); -} -do{ -qbs_set(__STRING_ENTIRELINE,FUNC_GETELEMENTS(__STRING_ENTIRELINE,&(pass381= 2 ),__LONG_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3623);}while(r); -do{ -qbs_set(__STRING_U,qbs_ucase(__STRING_ENTIRELINE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3623);}while(r); -do{ -*__LONG_N=*__LONG_N- 1 ; -if(!qbevent)break;evnt(3623);}while(r); -} -} -S_4440:; -if ((-(*__LONG_N>= 2 ))||new_error){ -if(qbevent){evnt(3631);if(r)goto S_4440;} -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(3632);}while(r); -S_4442:; -if ((*__LONG_X2)||new_error){ -if(qbevent){evnt(3633);if(r)goto S_4442;} -S_4443:; -if ((qbs_cleanup(qbs_tmp_base,-(*__LONG_X2==(__STRING_ENTIRELINE->len- 1 ))))||new_error){ -if(qbevent){evnt(3634);if(r)goto S_4443;} -do{ -*__LONG_X3=*__LONG_X2+ 1 ; -if(!qbevent)break;evnt(3634);}while(r); -}else{ -do{ -*__LONG_X3=*__LONG_X2+ 2 ; -if(!qbevent)break;evnt(3634);}while(r); -} -do{ -qbs_set(__STRING_A,qbs_left(__STRING_ENTIRELINE,*__LONG_X2- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3635);}while(r); -do{ -*__LONG_CREATINGLABEL= 1 ; -if(!qbevent)break;evnt(3637);}while(r); -S_4450:; -if ((qbs_cleanup(qbs_tmp_base,FUNC_VALIDLABEL(__STRING_A)))||new_error){ -if(qbevent){evnt(3638);if(r)goto S_4450;} -S_4451:; -if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(__STRING_A)== 0 )))||new_error){ -if(qbevent){evnt(3640);if(r)goto S_4451;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Invalid name",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3640);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(3640);}while(r); -} -S_4455:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__INTEGER_CLOSEDMAIN!= 0 ))&(qbs_equal(__STRING_SUBFUNC,qbs_new_txt_len("",0)))))||new_error){ -if(qbevent){evnt(3642);if(r)goto S_4455;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Labels cannot be placed between SUB/FUNCTIONs",45)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3642);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(3642);}while(r); -} -do{ -*__LONG_V=FUNC_HASHFIND(__STRING_A,&(pass383= 2 ),__LONG_IGNORE,__LONG_R); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3644);}while(r); -LABEL_ADDLABCHK:; -if(qbevent){evnt(3645);r=0;} -S_4460:; -if ((*__LONG_V)||new_error){ -if(qbevent){evnt(3646);if(r)goto S_4460;} -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(3647);}while(r); -S_4462:; -if (((-(*__LONG_S==*__LONG_SUBFUNCN))|(-(*__LONG_S== -1 )))||new_error){ -if(qbevent){evnt(3648);if(r)goto S_4462;} -S_4463:; -if ((-(*__LONG_S== -1 ))||new_error){ -if(qbevent){evnt(3649);if(r)goto S_4463;} -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(3649);}while(r); -} -S_4466:; -if ((-(*(uint8*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282))== 1 ))||new_error){ -if(qbevent){evnt(3650);if(r)goto S_4466;} -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(3650);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(3650);}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(3652);}while(r); -do{ -goto LABEL_ADDLABAQ; -if(!qbevent)break;evnt(3653);}while(r); -} -S_4473:; -if ((-(*__LONG_V== 2 ))||new_error){ -if(qbevent){evnt(3655);if(r)goto S_4473;} -do{ -*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R); -if(!qbevent)break;evnt(3655);}while(r); -do{ -goto LABEL_ADDLABCHK; -if(!qbevent)break;evnt(3655);}while(r); -} -} -do{ -*__LONG_NLABELS=*__LONG_NLABELS+ 1 ; -if(!qbevent)break;evnt(3658);}while(r); -S_4479:; -if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||new_error){ -if(qbevent){evnt(3658);if(r)goto S_4479;} -do{ -*__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ; -if(!qbevent)break;evnt(3658);}while(r); -do{ +} +if(!qbevent)break;evnt(3594);}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(3595);}while(r); +do{ +SUB_HASHADD(__STRING_LABEL,&(pass375= 2 ),__LONG_NLABELS); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3596);}while(r); +do{ +*__LONG_R=*__LONG_NLABELS; +if(!qbevent)break;evnt(3597);}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(3598);}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(3599);}while(r); +LABEL_ADDLABAQ100:; +if(qbevent){evnt(3600);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(3601);}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(3602);}while(r); +do{ +qbs_set(__STRING_LAYOUT,__STRING_TLAYOUT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3604);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass376=*__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(3605);}while(r); +S_4410:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_LABEL,qbs_new_txt_len("p",1),0)))||new_error){ +if(qbevent){evnt(3608);if(r)goto S_4410;} +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(3608);}while(r); +} +S_4413:; +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)))))||new_error){ +if(qbevent){evnt(3609);if(r)goto S_4413;} +do{ +qbs_set(__STRING_LABEL,qbs_left(__STRING_LABEL,__STRING_LABEL->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3609);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass378=*__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(3610);}while(r); +do{ +qbs_set(__STRING_INCLINENUMP,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3611);}while(r); +S_4418:; +if ((((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])||new_error){ +if(qbevent){evnt(3612);if(r)goto S_4418;} +do{ +qbs_set(__STRING_INCLINENUMP,qbs_add(qbs_new_txt_len(",",1),FUNC_STR2((&(((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(3613);}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(3614);}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(3615);}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(3616);}while(r); +} +S_4424:; +if ((-(*__LONG_NOCHECKS== 0 ))||new_error){ +if(qbevent){evnt(3618);if(r)goto S_4424;} +S_4425:; +if ((*__LONG_VWATCHON&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||new_error){ +if(qbevent){evnt(3619);if(r)goto S_4425;} +do{ +qbs_set(__STRING_TEMP,__STRING_VWATCHERRORCALL); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3619);}while(r); +}else{ +do{ +qbs_set(__STRING_TEMP,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3619);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass380=*__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)),FUNC_STR2(__LONG_LINENUMBER)),__STRING_INCLINENUMP),qbs_new_txt_len(");r=0;}",7))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3620);}while(r); +} +S_4432:; +if ((-(*__LONG_N== 1 ))||new_error){ +if(qbevent){evnt(3622);if(r)goto S_4432;} +do{ +goto LABEL_FINISHEDNONEXEC; +if(!qbevent)break;evnt(3622);}while(r); +} +do{ +qbs_set(__STRING_ENTIRELINE,FUNC_GETELEMENTS(__STRING_ENTIRELINE,&(pass381= 2 ),__LONG_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3623);}while(r); +do{ +qbs_set(__STRING_U,qbs_ucase(__STRING_ENTIRELINE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3623);}while(r); +do{ +*__LONG_N=*__LONG_N- 1 ; +if(!qbevent)break;evnt(3623);}while(r); +} +} +S_4440:; +if ((-(*__LONG_N>= 2 ))||new_error){ +if(qbevent){evnt(3631);if(r)goto S_4440;} +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(3632);}while(r); +S_4442:; +if ((*__LONG_X2)||new_error){ +if(qbevent){evnt(3633);if(r)goto S_4442;} +S_4443:; +if ((qbs_cleanup(qbs_tmp_base,-(*__LONG_X2==(__STRING_ENTIRELINE->len- 1 ))))||new_error){ +if(qbevent){evnt(3634);if(r)goto S_4443;} +do{ +*__LONG_X3=*__LONG_X2+ 1 ; +if(!qbevent)break;evnt(3634);}while(r); +}else{ +do{ +*__LONG_X3=*__LONG_X2+ 2 ; +if(!qbevent)break;evnt(3634);}while(r); +} +do{ +qbs_set(__STRING_A,qbs_left(__STRING_ENTIRELINE,*__LONG_X2- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3635);}while(r); +do{ +*__LONG_CREATINGLABEL= 1 ; +if(!qbevent)break;evnt(3637);}while(r); +S_4450:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_VALIDLABEL(__STRING_A)))||new_error){ +if(qbevent){evnt(3638);if(r)goto S_4450;} +S_4451:; +if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(__STRING_A)== 0 )))||new_error){ +if(qbevent){evnt(3640);if(r)goto S_4451;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Invalid name",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3640);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(3640);}while(r); +} +S_4455:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__INTEGER_CLOSEDMAIN!= 0 ))&(qbs_equal(__STRING_SUBFUNC,qbs_new_txt_len("",0)))))||new_error){ +if(qbevent){evnt(3642);if(r)goto S_4455;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Labels cannot be placed between SUB/FUNCTIONs",45)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3642);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(3642);}while(r); +} +do{ +*__LONG_V=FUNC_HASHFIND(__STRING_A,&(pass383= 2 ),__LONG_IGNORE,__LONG_R); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3644);}while(r); +LABEL_ADDLABCHK:; +if(qbevent){evnt(3645);r=0;} +S_4460:; +if ((*__LONG_V)||new_error){ +if(qbevent){evnt(3646);if(r)goto S_4460;} +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(3647);}while(r); +S_4462:; +if (((-(*__LONG_S==*__LONG_SUBFUNCN))|(-(*__LONG_S== -1 )))||new_error){ +if(qbevent){evnt(3648);if(r)goto S_4462;} +S_4463:; +if ((-(*__LONG_S== -1 ))||new_error){ +if(qbevent){evnt(3649);if(r)goto S_4463;} +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(3649);}while(r); +} +S_4466:; +if ((-(*(uint8*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282))== 1 ))||new_error){ +if(qbevent){evnt(3650);if(r)goto S_4466;} +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(3650);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(3650);}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(3652);}while(r); +do{ +goto LABEL_ADDLABAQ; +if(!qbevent)break;evnt(3653);}while(r); +} +S_4473:; +if ((-(*__LONG_V== 2 ))||new_error){ +if(qbevent){evnt(3655);if(r)goto S_4473;} +do{ +*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R); +if(!qbevent)break;evnt(3655);}while(r); +do{ +goto LABEL_ADDLABCHK; +if(!qbevent)break;evnt(3655);}while(r); +} +} +do{ +*__LONG_NLABELS=*__LONG_NLABELS+ 1 ; +if(!qbevent)break;evnt(3658);}while(r); +S_4479:; +if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||new_error){ +if(qbevent){evnt(3658);if(r)goto S_4479;} +do{ +*__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ; +if(!qbevent)break;evnt(3658);}while(r); +do{ if (__ARRAY_UDT_LABELS[2]&2){ error(10); @@ -17158,5580 +17158,5580 @@ if (!__ARRAY_UDT_LABELS[0]) error(257); } } __ARRAY_UDT_LABELS[2]|=1; -} -if(!qbevent)break;evnt(3658);}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(3659);}while(r); -do{ -SUB_HASHADD(__STRING_A,&(pass384= 2 ),__LONG_NLABELS); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3660);}while(r); -do{ -*__LONG_R=*__LONG_NLABELS; -if(!qbevent)break;evnt(3661);}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(3662);}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(3663);}while(r); -LABEL_ADDLABAQ:; -if(qbevent){evnt(3664);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(3665);}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(3666);}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(3667);}while(r); -S_4491:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(3669);if(r)goto S_4491;} -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(3669);}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(3669);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass386=*__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(3671);}while(r); -do{ -qbs_set(__STRING_INCLINENUMP,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3672);}while(r); -S_4498:; -if ((((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])||new_error){ -if(qbevent){evnt(3673);if(r)goto S_4498;} -do{ -qbs_set(__STRING_INCLINENUMP,qbs_add(qbs_new_txt_len(",",1),FUNC_STR2((&(((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(3674);}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(3675);}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(3676);}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(3677);}while(r); -} -S_4504:; -if ((-(*__LONG_NOCHECKS== 0 ))||new_error){ -if(qbevent){evnt(3679);if(r)goto S_4504;} -S_4505:; -if ((*__LONG_VWATCHON&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||new_error){ -if(qbevent){evnt(3680);if(r)goto S_4505;} -do{ -qbs_set(__STRING_TEMP,__STRING_VWATCHERRORCALL); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3680);}while(r); -}else{ -do{ -qbs_set(__STRING_TEMP,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3680);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass388=*__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)),FUNC_STR2(__LONG_LINENUMBER)),__STRING_INCLINENUMP),qbs_new_txt_len(");r=0;}",7))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3681);}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(3683);}while(r); -do{ -qbs_set(__STRING_U,qbs_ucase(__STRING_ENTIRELINE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3683);}while(r); -do{ -*__LONG_N=FUNC_NUMELEMENTS(__STRING_ENTIRELINE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3684);}while(r); -S_4515:; -if ((-(*__LONG_N== 0 ))||new_error){ -if(qbevent){evnt(3684);if(r)goto S_4515;} -do{ -goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(3684);}while(r); -} -} -} -} -S_4521:; -while((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_U)== 58 )))||new_error){ -if(qbevent){evnt(3690);if(r)goto S_4521;} -S_4522:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(3691);if(r)goto S_4522;} -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(3691);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,qbs_new_txt_len(":",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3691);}while(r); -} -S_4527:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_U->len== 1 )))||new_error){ -if(qbevent){evnt(3692);if(r)goto S_4527;} -do{ -goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(3692);}while(r); -} -do{ -qbs_set(__STRING_ENTIRELINE,FUNC_GETELEMENTS(__STRING_ENTIRELINE,&(pass393= 2 ),__LONG_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3693);}while(r); -do{ -qbs_set(__STRING_U,qbs_ucase(__STRING_ENTIRELINE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3693);}while(r); -do{ -*__LONG_N=*__LONG_N- 1 ; -if(!qbevent)break;evnt(3693);}while(r); -dl_continue_390:; -} -dl_exit_390:; -S_4534:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_U)== 69 )))||new_error){ -if(qbevent){evnt(3697);if(r)goto S_4534;} -do{ -qbs_set(__STRING_E1,FUNC_GETELEMENT(__STRING_U,&(pass394= 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3699);}while(r); -S_4536:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E1,qbs_new_txt_len("ELSE",4))))||new_error){ -if(qbevent){evnt(3701);if(r)goto S_4536;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("ELSE",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3702);}while(r); -S_4538:; -if ((-(*__LONG_N> 1 ))||new_error){ -if(qbevent){evnt(3703);if(r)goto S_4538;} -do{ -*__LONG_CONTINUELINEFROM= 2 ; -if(!qbevent)break;evnt(3703);}while(r); -} -do{ -goto LABEL_GOTCOMMAND; -if(!qbevent)break;evnt(3704);}while(r); -} -S_4543:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E1,qbs_new_txt_len("ELSEIF",6))))||new_error){ -if(qbevent){evnt(3707);if(r)goto S_4543;} -S_4544:; -if ((-(*__LONG_N< 3 ))||new_error){ -if(qbevent){evnt(3708);if(r)goto S_4544;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected ... THEN",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3708);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(3708);}while(r); -} -S_4548:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_U,__LONG_N),qbs_new_txt_len("THEN",4))))||new_error){ -if(qbevent){evnt(3709);if(r)goto S_4548;} -do{ -qbs_set(__STRING_A,__STRING_ENTIRELINE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3709);}while(r); -do{ -goto LABEL_GOTCOMMAND; -if(!qbevent)break;evnt(3709);}while(r); -} -S_4552:; -fornext_value396= 3 ; -fornext_finalvalue396=*__LONG_N- 1 ; -fornext_step396= 1 ; -if (fornext_step396<0) fornext_step_negative396=1; else fornext_step_negative396=0; -if (new_error) goto fornext_error396; -goto fornext_entrylabel396; -while(1){ -fornext_value396=fornext_step396+(*__LONG_I); -fornext_entrylabel396: -*__LONG_I=fornext_value396; -if (fornext_step_negative396){ -if (fornext_value396fornext_finalvalue396) break; -} -fornext_error396:; -if(qbevent){evnt(3710);if(r)goto S_4552;} -S_4553:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_U,__LONG_I),qbs_new_txt_len("THEN",4))))||new_error){ -if(qbevent){evnt(3711);if(r)goto S_4553;} -do{ -qbs_set(__STRING_A,FUNC_GETELEMENTS(__STRING_ENTIRELINE,&(pass397= 1 ),__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3712);}while(r); -do{ -*__LONG_CONTINUELINEFROM=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(3713);}while(r); -do{ -goto LABEL_GOTCOMMAND; -if(!qbevent)break;evnt(3714);}while(r); -} -fornext_continue_395:; -} -fornext_exit_395:; -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected THEN",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3717);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(3717);}while(r); -} -} -do{ -*__LONG_START= 1 ; -if(!qbevent)break;evnt(3722);}while(r); -do{ -goto LABEL_SKIPCONTINIT; -if(!qbevent)break;evnt(3724);}while(r); -LABEL_CONTLINE:; -if(qbevent){evnt(3726);r=0;} -do{ -*__LONG_N=FUNC_NUMELEMENTS(__STRING_ENTIRELINE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3728);}while(r); -do{ -qbs_set(__STRING_U,qbs_ucase(__STRING_ENTIRELINE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3729);}while(r); -LABEL_SKIPCONTINIT:; -if(qbevent){evnt(3731);r=0;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3739);}while(r); -S_4568:; -fornext_value399=*__LONG_START; -fornext_finalvalue399=*__LONG_N; -fornext_step399= 1 ; -if (fornext_step399<0) fornext_step_negative399=1; else fornext_step_negative399=0; -if (new_error) goto fornext_error399; -goto fornext_entrylabel399; -while(1){ -fornext_value399=fornext_step399+(*__LONG_I); -fornext_entrylabel399: -*__LONG_I=fornext_value399; -if (fornext_step_negative399){ -if (fornext_value399fornext_finalvalue399) break; -} -fornext_error399:; -if(qbevent){evnt(3741);if(r)goto S_4568;} -do{ -qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_U,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3742);}while(r); -S_4570:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len(":",1))))||new_error){ -if(qbevent){evnt(3745);if(r)goto S_4570;} -S_4571:; -if ((-(*__LONG_I==*__LONG_START))||new_error){ -if(qbevent){evnt(3746);if(r)goto S_4571;} -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(3747);}while(r); -S_4573:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(3747);if(r)goto S_4573;} -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(3747);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,qbs_new_txt_len(":",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3747);}while(r); -} -S_4578:; -if ((-(*__LONG_I!=*__LONG_N))||new_error){ -if(qbevent){evnt(3748);if(r)goto S_4578;} -do{ -*__LONG_CONTINUELINEFROM=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(3748);}while(r); -} -do{ -goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(3749);}while(r); -} -S_4583:; -if ((-(*__LONG_I!=*__LONG_N))||new_error){ -if(qbevent){evnt(3751);if(r)goto S_4583;} -do{ -*__LONG_CONTINUELINEFROM=*__LONG_I; -if(!qbevent)break;evnt(3751);}while(r); -} -do{ -goto LABEL_GOTCOMMAND; -if(!qbevent)break;evnt(3752);}while(r); -} -S_4588:; -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)))))||new_error){ -if(qbevent){evnt(3757);if(r)goto S_4588;} -do{ -*__LONG_NEWIF= 1 ; -if(!qbevent)break;evnt(3757);}while(r); -} -S_4591:; -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 ))))))||new_error){ -if(qbevent){evnt(3760);if(r)goto S_4591;} -S_4592:; -if ((-(*__LONG_NEWIF== 0 ))||new_error){ -if(qbevent){evnt(3761);if(r)goto S_4592;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("THEN without IF",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3761);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(3761);}while(r); -} -do{ -*__LONG_NEWIF= 0 ; -if(!qbevent)break;evnt(3762);}while(r); -S_4597:; -if ((-(*__LONG_LINEELSEUSED> 0 ))||new_error){ -if(qbevent){evnt(3763);if(r)goto S_4597;} -do{ -*__LONG_LINEELSEUSED=*__LONG_LINEELSEUSED- 1 ; -if(!qbevent)break;evnt(3763);}while(r); -} -S_4600:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("GOTO",4))))||new_error){ -if(qbevent){evnt(3764);if(r)goto S_4600;} -S_4601:; -if ((-(*__LONG_I==*__LONG_N))||new_error){ -if(qbevent){evnt(3765);if(r)goto S_4601;} -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(3765);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(3765);}while(r); -} -do{ -*__LONG_I=*__LONG_I- 1 ; -if(!qbevent)break;evnt(3766);}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(3768);}while(r); -S_4608:; -if ((-(*__LONG_I!=*__LONG_N))||new_error){ -if(qbevent){evnt(3769);if(r)goto S_4608;} -do{ -*__LONG_CONTINUELINEFROM=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(3769);}while(r); -do{ -*__LONG_ENDIFS=*__LONG_ENDIFS+ 1 ; -if(!qbevent)break;evnt(3769);}while(r); -} -do{ -goto LABEL_GOTCOMMAND; -if(!qbevent)break;evnt(3770);}while(r); -} -S_4614:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("ELSE",4))))||new_error){ -if(qbevent){evnt(3774);if(r)goto S_4614;} -S_4615:; -if ((-(*__LONG_START==*__LONG_I))||new_error){ -if(qbevent){evnt(3776);if(r)goto S_4615;} -S_4616:; -if ((-(*__LONG_LINEELSEUSED>= 1 ))||new_error){ -if(qbevent){evnt(3777);if(r)goto S_4616;} -do{ -*__LONG_IMPLIEDENDIF= 1 ; -if(!qbevent)break;evnt(3782);}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(3782);}while(r); -do{ -*__LONG_ENDIFS=*__LONG_ENDIFS- 1 ; -if(!qbevent)break;evnt(3783);}while(r); -do{ -*__LONG_CONTINUELINEFROM=*__LONG_I; -if(!qbevent)break;evnt(3784);}while(r); -do{ -*__LONG_LINEELSEUSED=*__LONG_LINEELSEUSED- 1 ; -if(!qbevent)break;evnt(3785);}while(r); -do{ -goto LABEL_GOTCOMMAND; -if(!qbevent)break;evnt(3786);}while(r); -} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("ELSE",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3789);}while(r); -do{ -*__LONG_CONTINUELINEFROM=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(3789);}while(r); -do{ -*__LONG_LINEELSEUSED=*__LONG_LINEELSEUSED+ 1 ; -if(!qbevent)break;evnt(3790);}while(r); -do{ -goto LABEL_GOTCOMMAND; -if(!qbevent)break;evnt(3791);}while(r); -} -do{ -*__LONG_CONTINUELINEFROM=*__LONG_I; -if(!qbevent)break;evnt(3795);}while(r); -do{ -goto LABEL_GOTCOMMAND; -if(!qbevent)break;evnt(3796);}while(r); -} -do{ -qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_ENTIRELINE,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3800);}while(r); -S_4633:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(3800);if(r)goto S_4633;} -do{ -qbs_set(__STRING_A,__STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3800);}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(3800);}while(r); -} -fornext_continue_398:; -} -fornext_exit_398:; -S_4639:; -if ((-(*__LONG_ENDIFS> 0 ))||new_error){ -if(qbevent){evnt(3805);if(r)goto S_4639;} -do{ -*__LONG_ENDIFS=*__LONG_ENDIFS- 1 ; -if(!qbevent)break;evnt(3806);}while(r); -do{ -*__LONG_IMPLIEDENDIF= 1 ; -if(!qbevent)break;evnt(3807);}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(3807);}while(r); -do{ -*__LONG_N=*__LONG_N+ 3 ; -if(!qbevent)break;evnt(3807);}while(r); -do{ -*__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(3808);}while(r); -do{ -*__LONG_CONTINUELINEFROM=*__LONG_I; -if(!qbevent)break;evnt(3809);}while(r); -do{ -goto LABEL_GOTCOMMAND; -if(!qbevent)break;evnt(3810);}while(r); -} -LABEL_GOTCOMMAND:; -if(qbevent){evnt(3814);r=0;} -do{ -*__LONG_DYNSCOPE= 0 ; -if(!qbevent)break;evnt(3816);}while(r); -do{ -qbs_set(__STRING_CA,__STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3818);}while(r); -do{ -qbs_set(__STRING_A,FUNC_ELEUCASE(__STRING_CA)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3819);}while(r); -do{ -*__LONG_LAYOUTDONE= 0 ; -if(!qbevent)break;evnt(3822);}while(r); -do{ -qbs_set(__STRING_LINEFRAGMENT,__STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3824);}while(r); -S_4653:; -if (( 0 )||new_error){ -if(qbevent){evnt(3825);if(r)goto S_4653;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip401; -sub_file_print(tmp_fileno,__STRING_A, 0, 0, 1); -if (new_error) goto skip401; -skip401: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(3825);}while(r); -} -do{ -*__LONG_N=FUNC_NUMELEMENTS(__STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3826);}while(r); -S_4657:; -if ((-(*__LONG_N== 0 ))||new_error){ -if(qbevent){evnt(3827);if(r)goto S_4657;} -do{ -goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(3827);}while(r); -} -S_4660:; -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)))||new_error){ -if(qbevent){evnt(3830);if(r)goto S_4660;} -do{ -qbs_set(__STRING_A3,FUNC_GETELEMENT(__STRING_CA,&(pass402= 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3831);}while(r); -do{ -*__LONG_EXCEPT= 0 ; -if(!qbevent)break;evnt(3832);}while(r); -do{ -qbs_set(__STRING_AA,qbs_add(__STRING_A3,__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3833);}while(r); -do{ -*__LONG_LASTFUSE= -1 ; -if(!qbevent)break;evnt(3834);}while(r); -S_4665:; -fornext_value404= 2 ; -fornext_finalvalue404=*__LONG_N; -fornext_step404= 1 ; -if (fornext_step404<0) fornext_step_negative404=1; else fornext_step_negative404=0; -if (new_error) goto fornext_error404; -goto fornext_entrylabel404; -while(1){ -fornext_value404=fornext_step404+(*__LONG_X); -fornext_entrylabel404: -*__LONG_X=fornext_value404; -if (fornext_step_negative404){ -if (fornext_value404fornext_finalvalue404) break; -} -fornext_error404:; -if(qbevent){evnt(3835);if(r)goto S_4665;} -do{ -qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_X)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3836);}while(r); -S_4667:; -if ((-(*__LONG_EXCEPT== 1 ))||new_error){ -if(qbevent){evnt(3837);if(r)goto S_4667;} -do{ -*__LONG_EXCEPT= 2 ; -if(!qbevent)break;evnt(3837);}while(r); -do{ -goto LABEL_UDTPERIOD; -if(!qbevent)break;evnt(3837);}while(r); -} -S_4671:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_A2,qbs_new_txt_len(".",1)))&(-(*__LONG_X!=*__LONG_N))))||new_error){ -if(qbevent){evnt(3838);if(r)goto S_4671;} -S_4672:; -if ((-(*__LONG_EXCEPT== 2 ))||new_error){ -if(qbevent){evnt(3839);if(r)goto S_4672;} -do{ -*__LONG_EXCEPT= 1 ; -if(!qbevent)break;evnt(3839);}while(r); -do{ -goto LABEL_UDTPERIOD; -if(!qbevent)break;evnt(3839);}while(r); -} -S_4676:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(3841);if(r)goto S_4676;} -do{ -*__LONG_EXCEPT= 1 ; -if(!qbevent)break;evnt(3843);}while(r); -do{ -goto LABEL_UDTPERIOD; -if(!qbevent)break;evnt(3844);}while(r); -} -do{ -*__LONG_TRY=FUNC_FINDID(qbs_ucase(__STRING_A3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3848);}while(r); -S_4681:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(3849);if(r)goto S_4681;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(3849);}while(r); -} -S_4684:; -while((*__LONG_TRY)||new_error){ -if(qbevent){evnt(3850);if(r)goto S_4684;} -S_4685:; -if (((-((*(int32*)(((char*)__UDT_ID)+(536))&*__LONG_ISUDT)!= 0 ))|(-((*(int32*)(((char*)__UDT_ID)+(512))&*__LONG_ISUDT)!= 0 )))||new_error){ -if(qbevent){evnt(3851);if(r)goto S_4685;} -do{ -*__LONG_EXCEPT= 1 ; -if(!qbevent)break;evnt(3852);}while(r); -do{ -goto LABEL_UDTPERIOD; -if(!qbevent)break;evnt(3853);}while(r); -} -S_4689:; -if ((-(*__LONG_TRY== 2 ))||new_error){ -if(qbevent){evnt(3855);if(r)goto S_4689;} -do{ -*__INTEGER_FINDANOTHERID= 1 ; -if(!qbevent)break;evnt(3855);}while(r); -do{ -*__LONG_TRY=FUNC_FINDID(qbs_ucase(__STRING_A3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3855);}while(r); -}else{ -do{ -*__LONG_TRY= 0 ; -if(!qbevent)break;evnt(3855);}while(r); -} -S_4695:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(3856);if(r)goto S_4695;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(3856);}while(r); -} -dl_continue_405:; -} -dl_exit_405:; -S_4699:; -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 )))))||new_error){ -if(qbevent){evnt(3859);if(r)goto S_4699;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Invalid '.'",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3859);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(3859);}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(3860);}while(r); -do{ -*__LONG_LASTFUSE=*__LONG_X; -if(!qbevent)break;evnt(3861);}while(r); -do{ -goto LABEL_PERIODFUSED; -if(!qbevent)break;evnt(3862);}while(r); -} -do{ -*__LONG_EXCEPT= 0 ; -if(!qbevent)break;evnt(3864);}while(r); -LABEL_UDTPERIOD:; -if(qbevent){evnt(3865);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(3866);}while(r); -LABEL_PERIODFUSED:; -if(qbevent){evnt(3867);r=0;} -do{ -qbs_set(__STRING_A3,__STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3868);}while(r); -fornext_continue_403:; -} -fornext_exit_403:; -do{ -qbs_set(__STRING_A,qbs_left(__STRING_AA,__STRING_AA->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3870);}while(r); -do{ -qbs_set(__STRING_CA,__STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3871);}while(r); -do{ -qbs_set(__STRING_A,FUNC_ELEUCASE(__STRING_CA)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3872);}while(r); -do{ -*__LONG_N=FUNC_NUMELEMENTS(__STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3873);}while(r); -} -do{ -*__INTEGER_ARRAYPROCESSINGHAPPENED= 0 ; -if(!qbevent)break;evnt(3876);}while(r); -do{ -qbs_set(__STRING_FIRSTELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass408= 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3878);}while(r); -do{ -qbs_set(__STRING_SECONDELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass409= 2 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3879);}while(r); -do{ -qbs_set(__STRING_THIRDELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass410= 3 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3880);}while(r); -S_4720:; -if ((-(*__LONG_N== 1 ))||new_error){ -if(qbevent){evnt(3884);if(r)goto S_4720;} -S_4721:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("'",1))))||new_error){ -if(qbevent){evnt(3885);if(r)goto S_4721;} -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(3885);}while(r); -do{ -goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(3885);}while(r); -} -} -S_4726:; -if ((-(*__LONG_N<= 2 ))||new_error){ -if(qbevent){evnt(3888);if(r)goto S_4726;} -S_4727:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DATA",4))))||new_error){ -if(qbevent){evnt(3889);if(r)goto S_4727;} -do{ -qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Data",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3890);}while(r); -S_4729:; -if ((-(*__LONG_N== 2 ))||new_error){ -if(qbevent){evnt(3891);if(r)goto S_4729;} -do{ -qbs_set(__STRING_E,func_space((__STRING_SECONDELEMENT->len- 1 )/ 2 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3893);}while(r); -S_4731:; -fornext_value413= 1 ; -fornext_finalvalue413=__STRING_E->len; -fornext_step413= 1 ; -if (fornext_step413<0) fornext_step_negative413=1; else fornext_step_negative413=0; -if (new_error) goto fornext_error413; -goto fornext_entrylabel413; -while(1){ -fornext_value413=fornext_step413+(*__LONG_X); -fornext_entrylabel413: -*__LONG_X=fornext_value413; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative413){ -if (fornext_value413fornext_finalvalue413) break; -} -fornext_error413:; -if(qbevent){evnt(3894);if(r)goto S_4731;} -do{ -*__LONG_V1=qbs_asc(__STRING_SECONDELEMENT,*__LONG_X* 2 ); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3895);}while(r); -do{ -*__LONG_V2=qbs_asc(__STRING_SECONDELEMENT,(*__LONG_X* 2 )+( 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3896);}while(r); -S_4734:; -if ((-(*__LONG_V1< 65 ))||new_error){ -if(qbevent){evnt(3897);if(r)goto S_4734;} -do{ -*__LONG_V1=*__LONG_V1- 48 ; -if(!qbevent)break;evnt(3897);}while(r); -}else{ -do{ -*__LONG_V1=*__LONG_V1- 55 ; -if(!qbevent)break;evnt(3897);}while(r); -} -S_4739:; -if ((-(*__LONG_V2< 65 ))||new_error){ -if(qbevent){evnt(3898);if(r)goto S_4739;} -do{ -*__LONG_V2=*__LONG_V2- 48 ; -if(!qbevent)break;evnt(3898);}while(r); -}else{ -do{ -*__LONG_V2=*__LONG_V2- 55 ; -if(!qbevent)break;evnt(3898);}while(r); -} -do{ -tqbs=__STRING_E; if (!new_error){ -tmp_fileno=*__LONG_X; if (!new_error){ -tmp_long=*__LONG_V1+(*__LONG_V2* 16 ); if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(3899);}while(r); -fornext_continue_412:; -} -fornext_exit_412:; -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(3901);}while(r); -} -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(3904);}while(r); -S_4749:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(3904);if(r)goto S_4749;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3904);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3904);}while(r); -} -do{ -goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(3906);}while(r); -} -} -S_4757:; -if ((*__LONG_DECLARINGLIBRARY)||new_error){ -if(qbevent){evnt(3913);if(r)goto S_4757;} -S_4758:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("END",3))))||new_error){ -if(qbevent){evnt(3915);if(r)goto S_4758;} -S_4759:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_N!= 2 ))|(qbs_notequal(__STRING_SECONDELEMENT,qbs_new_txt_len("DECLARE",7)))))||new_error){ -if(qbevent){evnt(3916);if(r)goto S_4759;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected END DECLARE",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3916);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(3916);}while(r); -} -do{ -*__LONG_DECLARINGLIBRARY= 0 ; -if(!qbevent)break;evnt(3917);}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(3918);}while(r); -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(3919);}while(r); -S_4766:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(3919);if(r)goto S_4766;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3919);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3919);}while(r); -} -do{ -goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(3920);}while(r); -} -do{ -*__LONG_DECLARINGLIBRARY= 2 ; -if(!qbevent)break;evnt(3923);}while(r); -S_4774:; -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)))))||new_error){ -if(qbevent){evnt(3925);if(r)goto S_4774;} -do{ -goto LABEL_DECLARESUBFUNC2; -if(!qbevent)break;evnt(3926);}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(3929);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(3929);}while(r); -} -S_4780:; -if ((*__LONG_DEFININGTYPE)||new_error){ -if(qbevent){evnt(3933);if(r)goto S_4780;} -S_4781:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("END",3))))||new_error){ -if(qbevent){evnt(3935);if(r)goto S_4781;} -S_4782:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_N!= 2 ))|(qbs_notequal(__STRING_SECONDELEMENT,qbs_new_txt_len("TYPE",4)))))||new_error){ -if(qbevent){evnt(3936);if(r)goto S_4782;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected END TYPE",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3936);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(3936);}while(r); -} -do{ -*__LONG_DEFININGTYPE= 0 ; -if(!qbevent)break;evnt(3937);}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(3938);}while(r); -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(3939);}while(r); -S_4789:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(3939);if(r)goto S_4789;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3939);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3939);}while(r); -} -do{ -goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(3940);}while(r); -} -S_4796:; -if ((-(*__LONG_N< 3 ))||new_error){ -if(qbevent){evnt(3944);if(r)goto S_4796;} -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(3944);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(3944);}while(r); -} -do{ -*__LONG_DEFININGTYPE= 2 ; -if(!qbevent)break;evnt(3945);}while(r); -S_4801:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("AS",2))))||new_error){ -if(qbevent){evnt(3946);if(r)goto S_4801;} -do{ -qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("As",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3947);}while(r); -do{ -qbs_set(__STRING_T,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3948);}while(r); -do{ -*__LONG_WORDSINTYPENAME= 0 ; -if(!qbevent)break;evnt(3949);}while(r); -S_4805:; -do{ -if(qbevent){evnt(3950);if(r)goto S_4805;} -do{ -qbs_set(__STRING_NEXTELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass419= 2 +*__LONG_WORDSINTYPENAME))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3951);}while(r); -S_4807:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_NEXTELEMENT,qbs_new_txt_len(",",1))))||new_error){ -if(qbevent){evnt(3952);if(r)goto S_4807;} -do{ -*__LONG_WORDSINTYPENAME=*__LONG_WORDSINTYPENAME- 2 ; -if(!qbevent)break;evnt(3954);}while(r); -do{ -goto dl_exit_418; -if(!qbevent)break;evnt(3955);}while(r); -} -do{ -*__LONG_WORDSINTYPENAME=*__LONG_WORDSINTYPENAME+ 1 ; -if(!qbevent)break;evnt(3958);}while(r); -S_4812:; -if ((-(*__LONG_WORDSINTYPENAME==(*__LONG_N- 2 )))||new_error){ -if(qbevent){evnt(3959);if(r)goto S_4812;} -do{ -*__LONG_WORDSINTYPENAME=*__LONG_WORDSINTYPENAME- 1 ; -if(!qbevent)break;evnt(3961);}while(r); -do{ -goto dl_exit_418; -if(!qbevent)break;evnt(3962);}while(r); -} -dl_continue_418:; -}while(1); -dl_exit_418:; -do{ -qbs_set(__STRING_T,FUNC_GETELEMENTS(__STRING_A,&(pass420= 2 ),&(pass421= 2 +*__LONG_WORDSINTYPENAME))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3966);}while(r); -do{ -*__LONG_TYP=FUNC_TYPNAME2TYP(__STRING_T); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3967);}while(r); -S_4819:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(3968);if(r)goto S_4819;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(3968);}while(r); -} -S_4822:; -if ((-(*__LONG_TYP== 0 ))||new_error){ -if(qbevent){evnt(3969);if(r)goto S_4822;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Undefined type",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3969);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(3969);}while(r); -} -S_4826:; -if ((*__LONG_TYP&*__LONG_ISUDT)||new_error){ -if(qbevent){evnt(3970);if(r)goto S_4826;} -S_4827:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(qbs_rtrim(__STRING_T)),qbs_new_txt_len("MEM",3)))&(qbs_equal(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_new_txt_len("_MEM",4)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))||new_error){ -if(qbevent){evnt(3971);if(r)goto S_4827;} -do{ -qbs_set(__STRING_T,func_mid(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)), 2 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3972);}while(r); -}else{ -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(3974);}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(3976);}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(3978);}while(r); -} -S_4836:; -fornext_value423= 3 +*__LONG_WORDSINTYPENAME; -fornext_finalvalue423=*__LONG_N; -fornext_step423= 1 ; -if (fornext_step423<0) fornext_step_negative423=1; else fornext_step_negative423=0; -if (new_error) goto fornext_error423; -goto fornext_entrylabel423; -while(1){ -fornext_value423=fornext_step423+(*__LONG_I); -fornext_entrylabel423: -*__LONG_I=fornext_value423; -if (fornext_step_negative423){ -if (fornext_value423fornext_finalvalue423) break; -} -fornext_error423:; -if(qbevent){evnt(3982);if(r)goto S_4836;} -do{ -qbs_set(__STRING_THISELEMENT,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3983);}while(r); -S_4838:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_THISELEMENT,qbs_new_txt_len(",",1))))||new_error){ -if(qbevent){evnt(3984);if(r)goto S_4838;} -do{ -qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_THISELEMENT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3985);}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(3987);}while(r); -} -fornext_continue_422:; -} -fornext_exit_422:; -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(3990);}while(r); -S_4845:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(3990);if(r)goto S_4845;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3990);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3990);}while(r); -} -}else{ -do{ -qbs_set(__STRING_L,qbs_add(qbs_add(FUNC_GETELEMENT(__STRING_CA,&(pass425= 1 )),__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("As",2)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3992);}while(r); -do{ -qbs_set(__STRING_T,FUNC_GETELEMENTS(__STRING_A,&(pass426= 3 ),__LONG_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3993);}while(r); -do{ -*__LONG_TYP=FUNC_TYPNAME2TYP(__STRING_T); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3994);}while(r); -S_4854:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(3995);if(r)goto S_4854;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(3995);}while(r); -} -S_4857:; -if ((-(*__LONG_TYP== 0 ))||new_error){ -if(qbevent){evnt(3996);if(r)goto S_4857;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Undefined type",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3996);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(3996);}while(r); -} -S_4861:; -if ((*__LONG_TYP&*__LONG_ISUDT)||new_error){ -if(qbevent){evnt(3997);if(r)goto S_4861;} -S_4862:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(qbs_rtrim(__STRING_T)),qbs_new_txt_len("MEM",3)))&(qbs_equal(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_new_txt_len("_MEM",4)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))||new_error){ -if(qbevent){evnt(3998);if(r)goto S_4862;} -do{ -qbs_set(__STRING_T,func_mid(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)), 2 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(3999);}while(r); -}else{ -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(4001);}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(4003);}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(4005);}while(r); -} -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(4007);}while(r); -S_4872:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(4007);if(r)goto S_4872;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4007);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4007);}while(r); -} -} -do{ -goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(4009);}while(r); -} -S_4880:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("TYPE",4))))||new_error){ -if(qbevent){evnt(4013);if(r)goto S_4880;} -S_4881:; -if ((-(*__LONG_N!= 2 ))||new_error){ -if(qbevent){evnt(4014);if(r)goto S_4881;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected TYPE type-name",23)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4014);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(4014);}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,&(pass428= 2 )))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4015);}while(r); -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(4016);}while(r); -S_4887:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(4016);if(r)goto S_4887;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4016);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4016);}while(r); -} -do{ -*__LONG_DEFININGTYPE= 1 ; -if(!qbevent)break;evnt(4017);}while(r); -do{ -*__LONG_DEFININGTYPEERROR=*__LONG_LINENUMBER; -if(!qbevent)break;evnt(4018);}while(r); -do{ -goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(4019);}while(r); -} -S_4896:; -if ((-(*__LONG_N>= 1 ))||new_error){ -if(qbevent){evnt(4023);if(r)goto S_4896;} -S_4897:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DECLARE",7))))||new_error){ -if(qbevent){evnt(4024);if(r)goto S_4897;} -S_4898:; -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)))))||new_error){ -if(qbevent){evnt(4026);if(r)goto S_4898;} -do{ -*__LONG_DECLARINGLIBRARY= 1 ; -if(!qbevent)break;evnt(4028);}while(r); -do{ -*__LONG_DYNAMICLIBRARY= 0 ; -if(!qbevent)break;evnt(4029);}while(r); -do{ -*__LONG_CUSTOMTYPELIBRARY= 0 ; -if(!qbevent)break;evnt(4030);}while(r); -do{ -*__LONG_INDIRECTLIBRARY= 0 ; -if(!qbevent)break;evnt(4031);}while(r); -do{ -*__LONG_STATICLINKEDLIBRARY= 0 ; -if(!qbevent)break;evnt(4032);}while(r); -do{ -*__LONG_X= 3 ; -if(!qbevent)break;evnt(4034);}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(4035);}while(r); -S_4906:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("DYNAMIC",7))))||new_error){ -if(qbevent){evnt(4037);if(r)goto S_4906;} -do{ -qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,&(pass430= 3 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4038);}while(r); -S_4908:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len("LIBRARY",7))))||new_error){ -if(qbevent){evnt(4038);if(r)goto S_4908;} -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(4038);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(4038);}while(r); -} -do{ -*__LONG_DYNAMICLIBRARY= 1 ; -if(!qbevent)break;evnt(4039);}while(r); -do{ -*__LONG_X= 4 ; -if(!qbevent)break;evnt(4040);}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(4041);}while(r); -S_4915:; -if ((-(*__LONG_N== 3 ))||new_error){ -if(qbevent){evnt(4042);if(r)goto S_4915;} -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(4042);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(4042);}while(r); -} -do{ -*__LONG_INDIRECTLIBRARY= 1 ; -if(!qbevent)break;evnt(4043);}while(r); -} -S_4921:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("CUSTOMTYPE",10))))||new_error){ -if(qbevent){evnt(4046);if(r)goto S_4921;} -do{ -qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,&(pass431= 3 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4047);}while(r); -S_4923:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len("LIBRARY",7))))||new_error){ -if(qbevent){evnt(4047);if(r)goto S_4923;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected CUSTOMTYPE LIBRARY",27)); -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{ -*__LONG_CUSTOMTYPELIBRARY= 1 ; -if(!qbevent)break;evnt(4048);}while(r); -do{ -*__LONG_X= 4 ; -if(!qbevent)break;evnt(4049);}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(4050);}while(r); -do{ -*__LONG_INDIRECTLIBRARY= 1 ; -if(!qbevent)break;evnt(4051);}while(r); -} -S_4932:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("STATIC",6))))||new_error){ -if(qbevent){evnt(4054);if(r)goto S_4932;} -do{ -qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,&(pass432= 3 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4055);}while(r); -S_4934:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len("LIBRARY",7))))||new_error){ -if(qbevent){evnt(4055);if(r)goto S_4934;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected STATIC LIBRARY",23)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4055);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(4055);}while(r); -} -do{ -*__LONG_X= 4 ; -if(!qbevent)break;evnt(4056);}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(4057);}while(r); -do{ -*__LONG_STATICLINKEDLIBRARY= 1 ; -if(!qbevent)break;evnt(4058);}while(r); -} -do{ -*__LONG_SFDECLARE= 0 ; -if(!qbevent)break;evnt(4061);}while(r); -do{ -*__LONG_SFHEADER= 0 ; -if(!qbevent)break;evnt(4061);}while(r); -S_4944:; -if ((-(*__LONG_N>=*__LONG_X))||new_error){ -if(qbevent){evnt(4063);if(r)goto S_4944;} -do{ -*__LONG_SFDECLARE= 1 ; -if(!qbevent)break;evnt(4065);}while(r); -LABEL_ADDLIBRARY:; -if(qbevent){evnt(4067);r=0;} -do{ -qbs_set(__STRING_LIBNAME,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4069);}while(r); -do{ -qbs_set(__STRING_HEADERNAME,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4070);}while(r); -do{ -qbs_set(__STRING_X,FUNC_GETELEMENT(__STRING_CA,__LONG_X)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4075);}while(r); -S_4949:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_X)!= 34 )))||new_error){ -if(qbevent){evnt(4076);if(r)goto S_4949;} -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(4076);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(4076);}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(4077);}while(r); -do{ -*__LONG_Z=func_instr(NULL,__STRING_X,func_chr( 34 ),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4078);}while(r); -S_4955:; -if ((-(*__LONG_Z== 0 ))||new_error){ -if(qbevent){evnt(4079);if(r)goto S_4955;} -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(4079);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(4079);}while(r); -} -do{ -qbs_set(__STRING_X,qbs_left(__STRING_X,*__LONG_Z- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4080);}while(r); -S_4960:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_DYNAMICLIBRARY!= 0 ))&(-(__STRING_X->len== 0 ))))||new_error){ -if(qbevent){evnt(4082);if(r)goto S_4960;} -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(4082);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(4082);}while(r); -} -S_4964:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_CUSTOMTYPELIBRARY!= 0 ))&(-(__STRING_X->len== 0 ))))||new_error){ -if(qbevent){evnt(4083);if(r)goto S_4964;} -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(4083);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(4083);}while(r); -} -S_4968:; -while((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_X,qbs_new_txt_len("\\\\",2),0)))||new_error){ -if(qbevent){evnt(4098);if(r)goto S_4968;} -do{ -*__LONG_Z=func_instr(NULL,__STRING_X,qbs_new_txt_len("\\\\",2),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4099);}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(4100);}while(r); -ww_continue_436:; -} -ww_exit_436:; -do{ -qbs_set(__STRING_AUTOFORMAT_X,__STRING_X); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4103);}while(r); -do{ -qbs_set(__STRING_V,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4107);}while(r); -LABEL_STRIPLIBVER:; -if(qbevent){evnt(4108);r=0;} -S_4974:; -fornext_value439=__STRING_X->len; -fornext_finalvalue439= 1 ; -fornext_step439= -1 ; -if (fornext_step439<0) fornext_step_negative439=1; else fornext_step_negative439=0; -if (new_error) goto fornext_error439; -goto fornext_entrylabel439; -while(1){ -fornext_value439=fornext_step439+(*__LONG_Z); -fornext_entrylabel439: -*__LONG_Z=fornext_value439; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative439){ -if (fornext_value439fornext_finalvalue439) break; -} -fornext_error439:; -if(qbevent){evnt(4109);if(r)goto S_4974;} -do{ -*__LONG_A=qbs_asc(__STRING_X,*__LONG_Z); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4110);}while(r); -S_4976:; -if (((-(*__LONG_A== 92 ))|(-(*__LONG_A== 47 )))||new_error){ -if(qbevent){evnt(4111);if(r)goto S_4976;} -do{ -goto fornext_exit_438; -if(!qbevent)break;evnt(4111);}while(r); -} -S_4979:; -if (((-(*__LONG_A== 46 ))|(-(*__LONG_A== 58 )))||new_error){ -if(qbevent){evnt(4112);if(r)goto S_4979;} -S_4980:; -if ((qbs_cleanup(qbs_tmp_base,FUNC_ISUINTEGER(qbs_right(__STRING_X,__STRING_X->len-*__LONG_Z))))||new_error){ -if(qbevent){evnt(4113);if(r)goto S_4980;} -S_4981:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_V->len))||new_error){ -if(qbevent){evnt(4114);if(r)goto S_4981;} -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(4114);}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(4114);}while(r); -} -do{ -qbs_set(__STRING_X,qbs_left(__STRING_X,*__LONG_Z- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4115);}while(r); -S_4987:; -if ((-(*__LONG_A== 58 ))||new_error){ -if(qbevent){evnt(4116);if(r)goto S_4987;} -do{ -goto fornext_exit_438; -if(!qbevent)break;evnt(4116);}while(r); -} -do{ -goto LABEL_STRIPLIBVER; -if(!qbevent)break;evnt(4117);}while(r); -}else{ -do{ -goto fornext_exit_438; -if(!qbevent)break;evnt(4119);}while(r); -} -} -fornext_continue_438:; -} -fornext_exit_438:; -do{ -qbs_set(__STRING_LIBVER,__STRING_V); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4123);}while(r); -S_4997:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ -if(qbevent){evnt(4126);if(r)goto S_4997;} -S_4998:; -while((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_X,qbs_new_txt_len("/",1),0)))||new_error){ -if(qbevent){evnt(4128);if(r)goto S_4998;} -do{ -*__LONG_Z=func_instr(NULL,__STRING_X,qbs_new_txt_len("/",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4129);}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(4130);}while(r); -dl_continue_445:; -} -dl_exit_445:; -} -S_5003:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ -if(qbevent){evnt(4134);if(r)goto S_5003;} -S_5004:; -while((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_X,qbs_new_txt_len("\\",1),0)))||new_error){ -if(qbevent){evnt(4136);if(r)goto S_5004;} -do{ -*__LONG_Z=func_instr(NULL,__STRING_X,qbs_new_txt_len("\\",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4137);}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(4138);}while(r); -dl_continue_447:; -} -dl_exit_447:; -} -do{ -qbs_set(__STRING_LIBPATH,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4143);}while(r); -S_5010:; -fornext_value450=__STRING_X->len; -fornext_finalvalue450= 1 ; -fornext_step450= -1 ; -if (fornext_step450<0) fornext_step_negative450=1; else fornext_step_negative450=0; -if (new_error) goto fornext_error450; -goto fornext_entrylabel450; -while(1){ -fornext_value450=fornext_step450+(*__LONG_Z); -fornext_entrylabel450: -*__LONG_Z=fornext_value450; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative450){ -if (fornext_value450fornext_finalvalue450) break; -} -fornext_error450:; -if(qbevent){evnt(4144);if(r)goto S_5010;} -do{ -*__LONG_A=qbs_asc(__STRING_X,*__LONG_Z); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4145);}while(r); -S_5012:; -if (((-(*__LONG_A== 47 ))|(-(*__LONG_A== 92 )))||new_error){ -if(qbevent){evnt(4146);if(r)goto S_5012;} -do{ -qbs_set(__STRING_LIBPATH,qbs_left(__STRING_X,*__LONG_Z)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4147);}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(4148);}while(r); -do{ -goto fornext_exit_449; -if(!qbevent)break;evnt(4149);}while(r); -} -fornext_continue_449:; -} -fornext_exit_449:; -do{ -qbs_set(__STRING_OG_LIBPATH,__STRING_LIBPATH); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4153);}while(r); -S_5019:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_LIBPATH,qbs_new_txt_len("./",2)))|(qbs_equal(__STRING_LIBPATH,qbs_new_txt_len(".\\",2)))))||new_error){ -if(qbevent){evnt(4157);if(r)goto S_5019;} -do{ -qbs_set(__STRING_LIBPATH,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4158);}while(r); -S_5021:; -if ((*__LONG_NOIDEMODE)||new_error){ -if(qbevent){evnt(4159);if(r)goto S_5021;} -do{ -qbs_set(__STRING_LIBPATH,FUNC_FIXDIRECTORYNAME(__STRING_PATH__ASCII_CHR_046__SOURCE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4160);}while(r); -}else{ -S_5024:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_IDEPROGNAME->len))||new_error){ -if(qbevent){evnt(4162);if(r)goto S_5024;} -do{ -qbs_set(__STRING_LIBPATH,qbs_add(__STRING_IDEPATH,__STRING1_PATHSEP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4162);}while(r); -} -} -} -do{ -qbs_set(__STRING_LIBPATH_INLINE,FUNC_GETESCAPEDPATH(__STRING_LIBPATH)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4167);}while(r); -S_5030:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_X->len))||new_error){ -if(qbevent){evnt(4169);if(r)goto S_5030;} -S_5031:; -if ((-(*__LONG_DYNAMICLIBRARY== 0 ))||new_error){ -if(qbevent){evnt(4170);if(r)goto S_5031;} -S_5032:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ -if(qbevent){evnt(4173);if(r)goto S_5032;} -S_5033:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4175);if(r)goto S_5033;} -S_5034:; -if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(__STRING_LIBPATH,__STRING_X),qbs_new_txt_len(".lib",4)))))||new_error){ -if(qbevent){evnt(4176);if(r)goto S_5034;} -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(4177);}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(4178);}while(r); -} -} -S_5039:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4182);if(r)goto S_5039;} -S_5040:; -if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(__STRING_LIBPATH,__STRING_X),qbs_new_txt_len(".a",2)))))||new_error){ -if(qbevent){evnt(4183);if(r)goto S_5040;} -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(4184);}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(4185);}while(r); -} -} -S_5045:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4189);if(r)goto S_5045;} -S_5046:; -if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(__STRING_LIBPATH,__STRING_X),qbs_new_txt_len(".o",2)))))||new_error){ -if(qbevent){evnt(4190);if(r)goto S_5046;} -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(4191);}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(4192);}while(r); -} -} -S_5051:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4196);if(r)goto S_5051;} -S_5052:; -if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(__STRING_X,qbs_new_txt_len(".lib",4)))))||new_error){ -if(qbevent){evnt(4197);if(r)goto S_5052;} -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(4198);}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(4199);}while(r); -} -} -S_5057:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4203);if(r)goto S_5057;} -S_5058:; -if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(__STRING_X,qbs_new_txt_len(".a",2)))))||new_error){ -if(qbevent){evnt(4204);if(r)goto S_5058;} -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(4205);}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(4206);}while(r); -} -} -S_5063:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4210);if(r)goto S_5063;} -S_5064:; -if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(__STRING_X,qbs_new_txt_len(".o",2)))))||new_error){ -if(qbevent){evnt(4211);if(r)goto S_5064;} -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(4212);}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(4213);}while(r); -} -} -} -S_5070:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ -if(qbevent){evnt(4218);if(r)goto S_5070;} -S_5071:; -if ((-(*__LONG_STATICLINKEDLIBRARY== 0 ))||new_error){ -if(qbevent){evnt(4219);if(r)goto S_5071;} -S_5072:; -if ((*__LONG_MACOSX)||new_error){ -if(qbevent){evnt(4221);if(r)goto S_5072;} -S_5073:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4223);if(r)goto S_5073;} -S_5074:; -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)))))||new_error){ -if(qbevent){evnt(4224);if(r)goto S_5074;} -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(4225);}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(4226);}while(r); -S_5077:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||new_error){ -if(qbevent){evnt(4227);if(r)goto S_5077;} -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(4227);}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(4227);}while(r); -} -} -} -S_5084:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4230);if(r)goto S_5084;} -S_5085:; -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)))))||new_error){ -if(qbevent){evnt(4231);if(r)goto S_5085;} -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(4232);}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(4233);}while(r); -S_5088:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||new_error){ -if(qbevent){evnt(4234);if(r)goto S_5088;} -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(4234);}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(4234);}while(r); -} -} -} -} -S_5096:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4240);if(r)goto S_5096;} -S_5097:; -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))))||new_error){ -if(qbevent){evnt(4241);if(r)goto S_5097;} -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(4242);}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(4243);}while(r); -S_5100:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||new_error){ -if(qbevent){evnt(4244);if(r)goto S_5100;} -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(4244);}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(4244);}while(r); -} -} -} -S_5107:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4247);if(r)goto S_5107;} -S_5108:; -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)))))||new_error){ -if(qbevent){evnt(4248);if(r)goto S_5108;} -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(4249);}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(4250);}while(r); -S_5111:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||new_error){ -if(qbevent){evnt(4251);if(r)goto S_5111;} -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(4251);}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(4251);}while(r); -} -} -} -} -S_5119:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4256);if(r)goto S_5119;} -S_5120:; -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)))))||new_error){ -if(qbevent){evnt(4257);if(r)goto S_5120;} -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(4258);}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(4259);}while(r); -} -} -S_5125:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4263);if(r)goto S_5125;} -S_5126:; -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)))))||new_error){ -if(qbevent){evnt(4264);if(r)goto S_5126;} -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(4265);}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(4266);}while(r); -} -} -S_5131:; -if ((-(*__LONG_STATICLINKEDLIBRARY== 0 ))||new_error){ -if(qbevent){evnt(4269);if(r)goto S_5131;} -S_5132:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4271);if(r)goto S_5132;} -S_5133:; -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))))||new_error){ -if(qbevent){evnt(4272);if(r)goto S_5133;} -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(4273);}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(4274);}while(r); -S_5136:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||new_error){ -if(qbevent){evnt(4275);if(r)goto S_5136;} -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(4275);}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(4275);}while(r); -} -} -} -S_5143:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4278);if(r)goto S_5143;} -S_5144:; -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)))))||new_error){ -if(qbevent){evnt(4279);if(r)goto S_5144;} -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(4280);}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(4281);}while(r); -S_5147:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||new_error){ -if(qbevent){evnt(4282);if(r)goto S_5147;} -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(4282);}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(4282);}while(r); -} -} -} -} -S_5155:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4287);if(r)goto S_5155;} -S_5156:; -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)))))||new_error){ -if(qbevent){evnt(4288);if(r)goto S_5156;} -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(4289);}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(4290);}while(r); -} -} -S_5161:; -if ((-(*__LONG_STATICLINKEDLIBRARY== 0 ))||new_error){ -if(qbevent){evnt(4293);if(r)goto S_5161;} -S_5162:; -if ((*__LONG_MACOSX)||new_error){ -if(qbevent){evnt(4295);if(r)goto S_5162;} -S_5163:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4297);if(r)goto S_5163;} -S_5164:; -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)))))||new_error){ -if(qbevent){evnt(4298);if(r)goto S_5164;} -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(4299);}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(4300);}while(r); -S_5167:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||new_error){ -if(qbevent){evnt(4301);if(r)goto S_5167;} -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(4301);}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(4301);}while(r); -} -} -} -S_5174:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4304);if(r)goto S_5174;} -S_5175:; -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)))))||new_error){ -if(qbevent){evnt(4305);if(r)goto S_5175;} -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(4306);}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(4307);}while(r); -S_5178:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||new_error){ -if(qbevent){evnt(4308);if(r)goto S_5178;} -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(4308);}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(4308);}while(r); -} -} -} -} -S_5186:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4314);if(r)goto S_5186;} -S_5187:; -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))))||new_error){ -if(qbevent){evnt(4315);if(r)goto S_5187;} -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(4316);}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(4317);}while(r); -S_5190:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||new_error){ -if(qbevent){evnt(4318);if(r)goto S_5190;} -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(4318);}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(4318);}while(r); -} -} -} -S_5197:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4321);if(r)goto S_5197;} -S_5198:; -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)))))||new_error){ -if(qbevent){evnt(4322);if(r)goto S_5198;} -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(4323);}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(4324);}while(r); -S_5201:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||new_error){ -if(qbevent){evnt(4325);if(r)goto S_5201;} -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(4325);}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(4325);}while(r); -} -} -} -} -S_5209:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4330);if(r)goto S_5209;} -S_5210:; -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)))))||new_error){ -if(qbevent){evnt(4331);if(r)goto S_5210;} -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(4332);}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(4333);}while(r); -} -} -S_5215:; -if ((-(*__LONG_STATICLINKEDLIBRARY== 0 ))||new_error){ -if(qbevent){evnt(4337);if(r)goto S_5215;} -S_5216:; -if ((*__LONG_MACOSX)||new_error){ -if(qbevent){evnt(4339);if(r)goto S_5216;} -S_5217:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4341);if(r)goto S_5217;} -S_5218:; -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)))))||new_error){ -if(qbevent){evnt(4342);if(r)goto S_5218;} -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(4343);}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(4344);}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(4345);}while(r); -} -} -S_5224:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4348);if(r)goto S_5224;} -S_5225:; -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)))))||new_error){ -if(qbevent){evnt(4349);if(r)goto S_5225;} -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(4350);}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(4351);}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(4352);}while(r); -} -} -} -S_5232:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4358);if(r)goto S_5232;} -S_5233:; -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))))||new_error){ -if(qbevent){evnt(4359);if(r)goto S_5233;} -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(4360);}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(4361);}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(4362);}while(r); -} -} -S_5239:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4365);if(r)goto S_5239;} -S_5240:; -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)))))||new_error){ -if(qbevent){evnt(4366);if(r)goto S_5240;} -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(4367);}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(4368);}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(4369);}while(r); -} -} -} -S_5247:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4374);if(r)goto S_5247;} -S_5248:; -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)))))||new_error){ -if(qbevent){evnt(4375);if(r)goto S_5248;} -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(4376);}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(4377);}while(r); -} -} -S_5253:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4381);if(r)goto S_5253;} -S_5254:; -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)))))||new_error){ -if(qbevent){evnt(4382);if(r)goto S_5254;} -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(4383);}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(4384);}while(r); -} -} -S_5259:; -if ((-(*__LONG_STATICLINKEDLIBRARY== 0 ))||new_error){ -if(qbevent){evnt(4387);if(r)goto S_5259;} -S_5260:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4389);if(r)goto S_5260;} -S_5261:; -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))))||new_error){ -if(qbevent){evnt(4390);if(r)goto S_5261;} -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(4391);}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(4392);}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(4393);}while(r); -} -} -S_5267:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4396);if(r)goto S_5267;} -S_5268:; -if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3)))))||new_error){ -if(qbevent){evnt(4397);if(r)goto S_5268;} -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(4398);}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(4399);}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(4400);}while(r); -} -} -} -S_5275:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4405);if(r)goto S_5275;} -S_5276:; -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)))))||new_error){ -if(qbevent){evnt(4406);if(r)goto S_5276;} -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(4407);}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(4408);}while(r); -} -} -S_5281:; -if ((-(*__LONG_STATICLINKEDLIBRARY== 0 ))||new_error){ -if(qbevent){evnt(4411);if(r)goto S_5281;} -S_5282:; -if ((*__LONG_MACOSX)||new_error){ -if(qbevent){evnt(4413);if(r)goto S_5282;} -S_5283:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4415);if(r)goto S_5283;} -S_5284:; -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)))))||new_error){ -if(qbevent){evnt(4416);if(r)goto S_5284;} -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(4417);}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(4418);}while(r); -} -} -S_5289:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4421);if(r)goto S_5289;} -S_5290:; -if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".dylib",6)))))||new_error){ -if(qbevent){evnt(4422);if(r)goto S_5290;} -do{ -qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".dylib",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4423);}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(4424);}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(4425);}while(r); -} -} -} -S_5297:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4431);if(r)goto S_5297;} -S_5298:; -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))))||new_error){ -if(qbevent){evnt(4432);if(r)goto S_5298;} -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(4433);}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(4434);}while(r); -} -} -S_5303:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4437);if(r)goto S_5303;} -S_5304:; -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)))))||new_error){ -if(qbevent){evnt(4438);if(r)goto S_5304;} -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(4439);}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(4440);}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(4441);}while(r); -} -} -} -S_5311:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4446);if(r)goto S_5311;} -S_5312:; -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)))))||new_error){ -if(qbevent){evnt(4447);if(r)goto S_5312;} -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(4448);}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(4449);}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(4450);}while(r); -} -} -} -S_5319:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_HEADERNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4457);if(r)goto S_5319;} -S_5320:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ -if(qbevent){evnt(4458);if(r)goto S_5320;} -S_5321:; -if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(__STRING_LIBPATH,__STRING_X),qbs_new_txt_len(".h",2)))))||new_error){ -if(qbevent){evnt(4459);if(r)goto S_5321;} -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(4460);}while(r); -S_5323:; -if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||new_error){ -if(qbevent){evnt(4461);if(r)goto S_5323;} -do{ -*__LONG_SFDECLARE= 0 ; -if(!qbevent)break;evnt(4461);}while(r); -} -do{ -*__LONG_SFHEADER= 1 ; -if(!qbevent)break;evnt(4462);}while(r); -do{ -goto LABEL_GOTHEADER; -if(!qbevent)break;evnt(4463);}while(r); -} -S_5329:; -if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(__STRING_LIBPATH,__STRING_X),qbs_new_txt_len(".hpp",4)))))||new_error){ -if(qbevent){evnt(4465);if(r)goto S_5329;} -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(4466);}while(r); -S_5331:; -if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||new_error){ -if(qbevent){evnt(4467);if(r)goto S_5331;} -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_5337:; -if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(__STRING_X,qbs_new_txt_len(".h",2)))))||new_error){ -if(qbevent){evnt(4472);if(r)goto S_5337;} -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(4473);}while(r); -S_5339:; -if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||new_error){ -if(qbevent){evnt(4474);if(r)goto S_5339;} -do{ -*__LONG_SFDECLARE= 0 ; -if(!qbevent)break;evnt(4474);}while(r); -} -do{ -*__LONG_SFHEADER= 1 ; -if(!qbevent)break;evnt(4475);}while(r); -do{ -goto LABEL_GOTHEADER; -if(!qbevent)break;evnt(4476);}while(r); -} -S_5345:; -if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(__STRING_X,qbs_new_txt_len(".hpp",4)))))||new_error){ -if(qbevent){evnt(4478);if(r)goto S_5345;} -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(4479);}while(r); -S_5347:; -if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||new_error){ -if(qbevent){evnt(4480);if(r)goto S_5347;} -do{ -*__LONG_SFDECLARE= 0 ; -if(!qbevent)break;evnt(4480);}while(r); -} -do{ -*__LONG_SFHEADER= 1 ; -if(!qbevent)break;evnt(4481);}while(r); -do{ -goto LABEL_GOTHEADER; -if(!qbevent)break;evnt(4482);}while(r); -} -S_5353:; -if ((-(*__LONG_INCLEVEL> 0 ))||new_error){ -if(qbevent){evnt(4485);if(r)goto S_5353;} -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(4486);}while(r); -}else{ -do{ -qbs_set(__STRING_LIBPATH,qbs_add(FUNC_FIXDIRECTORYNAME(__STRING_IDEPATH),__STRING_OG_LIBPATH)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4488);}while(r); -} -do{ -qbs_set(__STRING_LIBPATH_INLINE,FUNC_GETESCAPEDPATH(__STRING_LIBPATH)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4490);}while(r); -S_5359:; -if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(__STRING_LIBPATH,__STRING_X),qbs_new_txt_len(".h",2)))))||new_error){ -if(qbevent){evnt(4491);if(r)goto S_5359;} -do{ -qbs_set(__STRING_HEADERNAME,qbs_add(qbs_add(__STRING_LIBPATH_INLINE,__STRING_X),qbs_new_txt_len(".h",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4492);}while(r); -S_5361:; -if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||new_error){ -if(qbevent){evnt(4493);if(r)goto S_5361;} -do{ -*__LONG_SFDECLARE= 0 ; -if(!qbevent)break;evnt(4493);}while(r); -} -do{ -*__LONG_SFHEADER= 1 ; -if(!qbevent)break;evnt(4494);}while(r); -do{ -goto LABEL_GOTHEADER; -if(!qbevent)break;evnt(4495);}while(r); -} -S_5367:; -if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(__STRING_LIBPATH,__STRING_X),qbs_new_txt_len(".hpp",4)))))||new_error){ -if(qbevent){evnt(4497);if(r)goto S_5367;} -do{ -qbs_set(__STRING_HEADERNAME,qbs_add(qbs_add(__STRING_LIBPATH_INLINE,__STRING_X),qbs_new_txt_len(".hpp",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4498);}while(r); -S_5369:; -if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||new_error){ -if(qbevent){evnt(4499);if(r)goto S_5369;} -do{ -*__LONG_SFDECLARE= 0 ; -if(!qbevent)break;evnt(4499);}while(r); -} -do{ -*__LONG_SFHEADER= 1 ; -if(!qbevent)break;evnt(4500);}while(r); -do{ -goto LABEL_GOTHEADER; -if(!qbevent)break;evnt(4501);}while(r); -} -} -S_5376:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ -if(qbevent){evnt(4505);if(r)goto S_5376;} -S_5377:; -if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(__STRING_LIBPATH,__STRING_X),qbs_new_txt_len(".h",2)))))||new_error){ -if(qbevent){evnt(4506);if(r)goto S_5377;} -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(4507);}while(r); -S_5379:; -if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||new_error){ -if(qbevent){evnt(4508);if(r)goto S_5379;} -do{ -*__LONG_SFDECLARE= 0 ; -if(!qbevent)break;evnt(4508);}while(r); -} -do{ -*__LONG_SFHEADER= 1 ; -if(!qbevent)break;evnt(4509);}while(r); -do{ -goto LABEL_GOTHEADER; -if(!qbevent)break;evnt(4510);}while(r); -} -S_5385:; -if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(__STRING_LIBPATH,__STRING_X),qbs_new_txt_len(".hpp",4)))))||new_error){ -if(qbevent){evnt(4512);if(r)goto S_5385;} -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(4513);}while(r); -S_5387:; -if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||new_error){ -if(qbevent){evnt(4514);if(r)goto S_5387;} -do{ -*__LONG_SFDECLARE= 0 ; -if(!qbevent)break;evnt(4514);}while(r); -} -do{ -*__LONG_SFHEADER= 1 ; -if(!qbevent)break;evnt(4515);}while(r); -do{ -goto LABEL_GOTHEADER; -if(!qbevent)break;evnt(4516);}while(r); -} -S_5393:; -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)))))||new_error){ -if(qbevent){evnt(4518);if(r)goto S_5393;} -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(4519);}while(r); -S_5395:; -if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||new_error){ -if(qbevent){evnt(4520);if(r)goto S_5395;} -do{ -*__LONG_SFDECLARE= 0 ; -if(!qbevent)break;evnt(4520);}while(r); -} -do{ -*__LONG_SFHEADER= 1 ; -if(!qbevent)break;evnt(4521);}while(r); -do{ -goto LABEL_GOTHEADER; -if(!qbevent)break;evnt(4522);}while(r); -} -S_5401:; -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)))))||new_error){ -if(qbevent){evnt(4524);if(r)goto S_5401;} -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(4525);}while(r); -S_5403:; -if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||new_error){ -if(qbevent){evnt(4526);if(r)goto S_5403;} -do{ -*__LONG_SFDECLARE= 0 ; -if(!qbevent)break;evnt(4526);}while(r); -} -do{ -*__LONG_SFHEADER= 1 ; -if(!qbevent)break;evnt(4527);}while(r); -do{ -goto LABEL_GOTHEADER; -if(!qbevent)break;evnt(4528);}while(r); -} -S_5409:; -if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(__STRING_X,qbs_new_txt_len(".h",2)))))||new_error){ -if(qbevent){evnt(4531);if(r)goto S_5409;} -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(4532);}while(r); -S_5411:; -if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||new_error){ -if(qbevent){evnt(4533);if(r)goto S_5411;} -do{ -*__LONG_SFDECLARE= 0 ; -if(!qbevent)break;evnt(4533);}while(r); -} -do{ -*__LONG_SFHEADER= 1 ; -if(!qbevent)break;evnt(4534);}while(r); -do{ -goto LABEL_GOTHEADER; -if(!qbevent)break;evnt(4535);}while(r); -} -S_5417:; -if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(__STRING_X,qbs_new_txt_len(".hpp",4)))))||new_error){ -if(qbevent){evnt(4537);if(r)goto S_5417;} -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(4538);}while(r); -S_5419:; -if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||new_error){ -if(qbevent){evnt(4539);if(r)goto S_5419;} -do{ -*__LONG_SFDECLARE= 0 ; -if(!qbevent)break;evnt(4539);}while(r); -} -do{ -*__LONG_SFHEADER= 1 ; -if(!qbevent)break;evnt(4540);}while(r); -do{ -goto LABEL_GOTHEADER; -if(!qbevent)break;evnt(4541);}while(r); -} -S_5425:; -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)))))||new_error){ -if(qbevent){evnt(4543);if(r)goto S_5425;} -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(4544);}while(r); -S_5427:; -if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||new_error){ -if(qbevent){evnt(4545);if(r)goto S_5427;} -do{ -*__LONG_SFDECLARE= 0 ; -if(!qbevent)break;evnt(4545);}while(r); -} -do{ -*__LONG_SFHEADER= 1 ; -if(!qbevent)break;evnt(4546);}while(r); -do{ -goto LABEL_GOTHEADER; -if(!qbevent)break;evnt(4547);}while(r); -} -S_5433:; -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)))))||new_error){ -if(qbevent){evnt(4549);if(r)goto S_5433;} -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(4550);}while(r); -S_5435:; -if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||new_error){ -if(qbevent){evnt(4551);if(r)goto S_5435;} -do{ -*__LONG_SFDECLARE= 0 ; -if(!qbevent)break;evnt(4551);}while(r); -} -do{ -*__LONG_SFHEADER= 1 ; -if(!qbevent)break;evnt(4552);}while(r); -do{ -goto LABEL_GOTHEADER; -if(!qbevent)break;evnt(4553);}while(r); -} -S_5441:; -if ((-(*__LONG_INCLEVEL> 0 ))||new_error){ -if(qbevent){evnt(4556);if(r)goto S_5441;} -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(4557);}while(r); -}else{ -do{ -qbs_set(__STRING_LIBPATH,qbs_add(FUNC_FIXDIRECTORYNAME(__STRING_IDEPATH),__STRING_OG_LIBPATH)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4559);}while(r); -} -do{ -qbs_set(__STRING_LIBPATH_INLINE,FUNC_GETESCAPEDPATH(__STRING_LIBPATH)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4561);}while(r); -S_5447:; -if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(__STRING_LIBPATH,__STRING_X),qbs_new_txt_len(".h",2)))))||new_error){ -if(qbevent){evnt(4562);if(r)goto S_5447;} -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(4563);}while(r); -S_5449:; -if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||new_error){ -if(qbevent){evnt(4564);if(r)goto S_5449;} -do{ -*__LONG_SFDECLARE= 0 ; -if(!qbevent)break;evnt(4564);}while(r); -} -do{ -*__LONG_SFHEADER= 1 ; -if(!qbevent)break;evnt(4565);}while(r); -do{ -goto LABEL_GOTHEADER; -if(!qbevent)break;evnt(4566);}while(r); -} -S_5455:; -if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(__STRING_LIBPATH,__STRING_X),qbs_new_txt_len(".hpp",4)))))||new_error){ -if(qbevent){evnt(4568);if(r)goto S_5455;} -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(4569);}while(r); -S_5457:; -if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||new_error){ -if(qbevent){evnt(4570);if(r)goto S_5457;} -do{ -*__LONG_SFDECLARE= 0 ; -if(!qbevent)break;evnt(4570);}while(r); -} -do{ -*__LONG_SFHEADER= 1 ; -if(!qbevent)break;evnt(4571);}while(r); -do{ -goto LABEL_GOTHEADER; -if(!qbevent)break;evnt(4572);}while(r); -} -} -LABEL_GOTHEADER:; -if(qbevent){evnt(4576);r=0;} -} -}else{ -S_5466:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ -if(qbevent){evnt(4582);if(r)goto S_5466;} -S_5467:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4584);if(r)goto S_5467;} -S_5468:; -if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(__STRING_LIBPATH,__STRING_X),qbs_new_txt_len(".dll",4)))))||new_error){ -if(qbevent){evnt(4585);if(r)goto S_5468;} -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(4586);}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(4587);}while(r); -} -} -S_5473:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4591);if(r)goto S_5473;} -S_5474:; -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)))))||new_error){ -if(qbevent){evnt(4592);if(r)goto S_5474;} -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(4593);}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(4594);}while(r); -} -} -S_5479:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4599);if(r)goto S_5479;} -S_5480:; -if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(__STRING_X,qbs_new_txt_len(".dll",4)))))||new_error){ -if(qbevent){evnt(4600);if(r)goto S_5480;} -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(4601);}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(4602);}while(r); -} -} -S_5485:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4606);if(r)goto S_5485;} -S_5486:; -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)))))||new_error){ -if(qbevent){evnt(4607);if(r)goto S_5486;} -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(4608);}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(4609);}while(r); -} -} -} -S_5492:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ -if(qbevent){evnt(4614);if(r)goto S_5492;} -S_5493:; -if ((*__LONG_MACOSX)||new_error){ -if(qbevent){evnt(4618);if(r)goto S_5493;} -S_5494:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4620);if(r)goto S_5494;} -S_5495:; -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)))))||new_error){ -if(qbevent){evnt(4621);if(r)goto S_5495;} -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(4622);}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(4623);}while(r); -S_5498:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(__STRING_LIBPATH, 1 ),qbs_new_txt_len("/",1))))||new_error){ -if(qbevent){evnt(4624);if(r)goto S_5498;} -do{ -qbs_set(__STRING_LIBNAME,qbs_add(qbs_new_txt_len("./",2),__STRING_LIBNAME)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4624);}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(4624);}while(r); -} -} -} -S_5504:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4627);if(r)goto S_5504;} -S_5505:; -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)))))||new_error){ -if(qbevent){evnt(4628);if(r)goto S_5505;} -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(4629);}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(4630);}while(r); -S_5508:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(__STRING_LIBPATH, 1 ),qbs_new_txt_len("/",1))))||new_error){ -if(qbevent){evnt(4631);if(r)goto S_5508;} -do{ -qbs_set(__STRING_LIBNAME,qbs_add(qbs_new_txt_len("./",2),__STRING_LIBNAME)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4631);}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(4631);}while(r); -} -} -} -} -S_5515:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4637);if(r)goto S_5515;} -S_5516:; -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))))||new_error){ -if(qbevent){evnt(4638);if(r)goto S_5516;} -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(4639);}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(4640);}while(r); -S_5519:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(__STRING_LIBPATH, 1 ),qbs_new_txt_len("/",1))))||new_error){ -if(qbevent){evnt(4641);if(r)goto S_5519;} -do{ -qbs_set(__STRING_LIBNAME,qbs_add(qbs_new_txt_len("./",2),__STRING_LIBNAME)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4641);}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(4641);}while(r); -} -} -} -S_5525:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4644);if(r)goto S_5525;} -S_5526:; -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)))))||new_error){ -if(qbevent){evnt(4645);if(r)goto S_5526;} -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(4646);}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(4647);}while(r); -S_5529:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(__STRING_LIBPATH, 1 ),qbs_new_txt_len("/",1))))||new_error){ -if(qbevent){evnt(4648);if(r)goto S_5529;} -do{ -qbs_set(__STRING_LIBNAME,qbs_add(qbs_new_txt_len("./",2),__STRING_LIBNAME)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4648);}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(4648);}while(r); -} -} -} -S_5535:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4652);if(r)goto S_5535;} -S_5536:; -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))))||new_error){ -if(qbevent){evnt(4653);if(r)goto S_5536;} -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(4654);}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(4655);}while(r); -} -} -S_5541:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4658);if(r)goto S_5541;} -S_5542:; -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)))))||new_error){ -if(qbevent){evnt(4659);if(r)goto S_5542;} -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(4660);}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(4661);}while(r); -} -} -S_5547:; -if ((*__LONG_MACOSX)||new_error){ -if(qbevent){evnt(4665);if(r)goto S_5547;} -S_5548:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4667);if(r)goto S_5548;} -S_5549:; -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)))))||new_error){ -if(qbevent){evnt(4668);if(r)goto S_5549;} -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(4669);}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(4670);}while(r); -} -} -S_5554:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4673);if(r)goto S_5554;} -S_5555:; -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)))))||new_error){ -if(qbevent){evnt(4674);if(r)goto S_5555;} -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(4675);}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(4676);}while(r); -} -} -} -S_5561:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4682);if(r)goto S_5561;} -S_5562:; -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))))||new_error){ -if(qbevent){evnt(4683);if(r)goto S_5562;} -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(4684);}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(4685);}while(r); -} -} -S_5567:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4688);if(r)goto S_5567;} -S_5568:; -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)))))||new_error){ -if(qbevent){evnt(4689);if(r)goto S_5568;} -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(4690);}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(4691);}while(r); -} -} -S_5573:; -if ((*__LONG_MACOSX)||new_error){ -if(qbevent){evnt(4695);if(r)goto S_5573;} -S_5574:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4697);if(r)goto S_5574;} -S_5575:; -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)))))||new_error){ -if(qbevent){evnt(4698);if(r)goto S_5575;} -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(4699);}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(4700);}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(4701);}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(4701);}while(r); -} -} -S_5582:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4704);if(r)goto S_5582;} -S_5583:; -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)))))||new_error){ -if(qbevent){evnt(4705);if(r)goto S_5583;} -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(4706);}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(4707);}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(4708);}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(4708);}while(r); -} -} -} -S_5591:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4714);if(r)goto S_5591;} -S_5592:; -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))))||new_error){ -if(qbevent){evnt(4715);if(r)goto S_5592;} -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(4716);}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(4717);}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(4718);}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(4718);}while(r); -} -} -S_5599:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4721);if(r)goto S_5599;} -S_5600:; -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)))))||new_error){ -if(qbevent){evnt(4722);if(r)goto S_5600;} -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(4723);}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(4724);}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(4725);}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(4725);}while(r); -} -} -S_5607:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4729);if(r)goto S_5607;} -S_5608:; -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))))||new_error){ -if(qbevent){evnt(4730);if(r)goto S_5608;} -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(4731);}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(4732);}while(r); -} -} -S_5613:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4735);if(r)goto S_5613;} -S_5614:; -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)))))||new_error){ -if(qbevent){evnt(4736);if(r)goto S_5614;} -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(4737);}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(4738);}while(r); -} -} -S_5619:; -if ((*__LONG_MACOSX)||new_error){ -if(qbevent){evnt(4742);if(r)goto S_5619;} -S_5620:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4744);if(r)goto S_5620;} -S_5621:; -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)))))||new_error){ -if(qbevent){evnt(4745);if(r)goto S_5621;} -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(4746);}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(4747);}while(r); -} -} -S_5626:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4750);if(r)goto S_5626;} -S_5627:; -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)))))||new_error){ -if(qbevent){evnt(4751);if(r)goto S_5627;} -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(4752);}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(4753);}while(r); -} -} -} -S_5633:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4759);if(r)goto S_5633;} -S_5634:; -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))))||new_error){ -if(qbevent){evnt(4760);if(r)goto S_5634;} -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(4761);}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(4762);}while(r); -} -} -S_5639:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4765);if(r)goto S_5639;} -S_5640:; -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)))))||new_error){ -if(qbevent){evnt(4766);if(r)goto S_5640;} -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(4767);}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(4768);}while(r); -} -} -} -} -S_5647:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_DYNAMICLIBRARY!= 0 ))&(-(__STRING_LIBNAME->len== 0 ))))||new_error){ -if(qbevent){evnt(4776);if(r)goto S_5647;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("DYNAMIC LIBRARY not found",25)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4776);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(4776);}while(r); -} -S_5651:; -if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_LIBNAME->len== 0 ))&(-(__STRING_HEADERNAME->len== 0 ))))||new_error){ -if(qbevent){evnt(4777);if(r)goto S_5651;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("LIBRARY not found",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4777);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(4777);}while(r); -} -S_5655:; -if ((-(*__LONG_DYNAMICLIBRARY== 0 ))||new_error){ -if(qbevent){evnt(4781);if(r)goto S_5655;} -S_5656:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBNAME->len))||new_error){ -if(qbevent){evnt(4784);if(r)goto S_5656;} -S_5657:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ -if(qbevent){evnt(4785);if(r)goto S_5657;} -S_5658:; -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)))))||new_error){ -if(qbevent){evnt(4786);if(r)goto S_5658;} -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(4787);}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(4789);}while(r); -} -} -S_5664:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ -if(qbevent){evnt(4792);if(r)goto S_5664;} -S_5665:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_LIBNAME, 1 ),qbs_new_txt_len("/",1))))||new_error){ -if(qbevent){evnt(4793);if(r)goto S_5665;} -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(4794);}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(4796);}while(r); -} -} -} -}else{ -S_5673:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_HEADERNAME->len== 0 )))||new_error){ -if(qbevent){evnt(4805);if(r)goto S_5673;} -S_5674:; -if ((*__LONG_SUBFUNCN)||new_error){ -if(qbevent){evnt(4807);if(r)goto S_5674;} -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(4808);}while(r); -}else{ -do{ -*__LONG_F=*__LONG_DATATXTBUF; -if(!qbevent)break;evnt(4810);}while(r); -} -do{ -qbs_set(__STRING_X2,__STRING_X); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4816);}while(r); -S_5680:; -fornext_value530= 1 ; -fornext_finalvalue530=__STRING_X2->len; -fornext_step530= 1 ; -if (fornext_step530<0) fornext_step_negative530=1; else fornext_step_negative530=0; -if (new_error) goto fornext_error530; -goto fornext_entrylabel530; -while(1){ -fornext_value530=fornext_step530+(*__LONG_X2); -fornext_entrylabel530: -*__LONG_X2=fornext_value530; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative530){ -if (fornext_value530fornext_finalvalue530) break; -} -fornext_error530:; -if(qbevent){evnt(4817);if(r)goto S_5680;} -S_5681:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_X2,*__LONG_X2)< 48 )))||new_error){ -if(qbevent){evnt(4818);if(r)goto S_5681;} -do{ -tqbs=__STRING_X2; if (!new_error){ -tmp_fileno=*__LONG_X2; if (!new_error){ -tmp_long= 95 ; if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(4818);}while(r); -} -S_5684:; -if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(__STRING_X2,*__LONG_X2)> 57 ))&(-(qbs_asc(__STRING_X2,*__LONG_X2)< 65 ))))||new_error){ -if(qbevent){evnt(4819);if(r)goto S_5684;} -do{ -tqbs=__STRING_X2; if (!new_error){ -tmp_fileno=*__LONG_X2; if (!new_error){ -tmp_long= 95 ; if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(4819);}while(r); -} -S_5687:; -if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(__STRING_X2,*__LONG_X2)> 90 ))&(-(qbs_asc(__STRING_X2,*__LONG_X2)< 97 ))))||new_error){ -if(qbevent){evnt(4820);if(r)goto S_5687;} -do{ -tqbs=__STRING_X2; if (!new_error){ -tmp_fileno=*__LONG_X2; if (!new_error){ -tmp_long= 95 ; if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(4820);}while(r); -} -S_5690:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_X2,*__LONG_X2)> 122 )))||new_error){ -if(qbevent){evnt(4821);if(r)goto S_5690;} -do{ -tqbs=__STRING_X2; if (!new_error){ -tmp_fileno=*__LONG_X2; if (!new_error){ -tmp_long= 95 ; if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(4821);}while(r); -} -fornext_continue_529:; -} -fornext_exit_529:; -do{ -qbs_set(__STRING_DLLNAME,__STRING_X2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4823);}while(r); -S_5695:; -if ((*__LONG_SFDECLARE)||new_error){ -if(qbevent){evnt(4825);if(r)goto S_5695;} -S_5696:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ -if(qbevent){evnt(4827);if(r)goto S_5696;} -do{ -SUB_WRITEBUFLINE(&(pass532=*__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(4828);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass533=*__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(4829);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass534=*__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(4830);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass535=*__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(4831);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass536=*__LONG_F),qbs_new_txt_len("}",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4832);}while(r); -} -S_5703:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ -if(qbevent){evnt(4835);if(r)goto S_5703;} -do{ -SUB_WRITEBUFLINE(&(pass537=*__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(4836);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass538=*__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(4837);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass539=*__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(4838);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass540=*__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(4839);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass541=*__LONG_F),qbs_new_txt_len("}",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4840);}while(r); -} -} -} -} -S_5713:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_HEADERNAME->len))||new_error){ -if(qbevent){evnt(4850);if(r)goto S_5713;} -S_5714:; -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)))))))||new_error){ -if(qbevent){evnt(4852);if(r)goto S_5714;} -do{ -SUB_WRITEBUFLINE(&(pass543=*__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(4853);}while(r); -}else{ -do{ -SUB_WRITEBUFLINE(&(pass544=*__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(4855);}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(4861);}while(r); -S_5722:; -if ((-(*__LONG_N>*__LONG_X))||new_error){ -if(qbevent){evnt(4863);if(r)goto S_5722;} -S_5723:; -if ((*__LONG_DYNAMICLIBRARY)||new_error){ -if(qbevent){evnt(4864);if(r)goto S_5723;} -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(4864);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(4864);}while(r); -} -do{ -*__LONG_X=*__LONG_X+ 1 ; -if(!qbevent)break;evnt(4865);}while(r); -do{ -qbs_set(__STRING_X2,FUNC_GETELEMENT(__STRING_A,__LONG_X)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4865);}while(r); -S_5729:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_X2,qbs_new_txt_len(",",1))))||new_error){ -if(qbevent){evnt(4865);if(r)goto S_5729;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected ,",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4865);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(4865);}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(4866);}while(r); -do{ -*__LONG_X=*__LONG_X+ 1 ; -if(!qbevent)break;evnt(4867);}while(r); -S_5735:; -if ((-(*__LONG_X>*__LONG_N))||new_error){ -if(qbevent){evnt(4867);if(r)goto S_5735;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected , ...",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4867);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(4867);}while(r); -} -do{ -goto LABEL_ADDLIBRARY; -if(!qbevent)break;evnt(4868);}while(r); -} -} -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(4873);}while(r); -S_5743:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(4873);if(r)goto S_5743;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4873);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4873);}while(r); -} -do{ -goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(4874);}while(r); -} -do{ -goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(4877);}while(r); -} -} -S_5753:; -if ((-(*__LONG_N>= 1 ))||new_error){ -if(qbevent){evnt(4882);if(r)goto S_5753;} -do{ -*__LONG_DYNAMICLIBRARY= 0 ; -if(!qbevent)break;evnt(4883);}while(r); -LABEL_DECLARESUBFUNC2:; -if(qbevent){evnt(4884);r=0;} -do{ -*__LONG_SF= 0 ; -if(!qbevent)break;evnt(4885);}while(r); -S_5756:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("FUNCTION",8))))||new_error){ -if(qbevent){evnt(4886);if(r)goto S_5756;} -do{ -*__LONG_SF= 1 ; -if(!qbevent)break;evnt(4886);}while(r); -} -S_5759:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("SUB",3))))||new_error){ -if(qbevent){evnt(4887);if(r)goto S_5759;} -do{ -*__LONG_SF= 2 ; -if(!qbevent)break;evnt(4887);}while(r); -} -S_5762:; -if ((*__LONG_SF)||new_error){ -if(qbevent){evnt(4888);if(r)goto S_5762;} -S_5763:; -if ((-(*__LONG_DECLARINGLIBRARY== 0 ))||new_error){ -if(qbevent){evnt(4890);if(r)goto S_5763;} -S_5764:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_SUBFUNC->len))||new_error){ -if(qbevent){evnt(4891);if(r)goto S_5764;} -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(4891);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(4891);}while(r); -} -} -S_5769:; -if ((-(*__LONG_N== 1 ))||new_error){ -if(qbevent){evnt(4894);if(r)goto S_5769;} -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(4894);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(4894);}while(r); -} -do{ -qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_CA,&(pass547= 2 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4895);}while(r); -do{ -qbs_set(__STRING_SYMBOL,FUNC_REMOVESYMBOL(__STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4896);}while(r); -S_5775:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(4897);if(r)goto S_5775;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(4897);}while(r); -} -S_5778:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_SF== 2 ))&(qbs_notequal(__STRING_SYMBOL,qbs_new_txt_len("",0)))))||new_error){ -if(qbevent){evnt(4898);if(r)goto S_5778;} -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(4898);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(4898);}while(r); -} -do{ -*__LONG_TRY=FUNC_FINDID(__STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4899);}while(r); -S_5783:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(4900);if(r)goto S_5783;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(4900);}while(r); -} -S_5786:; -while((*__LONG_TRY)||new_error){ -if(qbevent){evnt(4901);if(r)goto S_5786;} -S_5787:; -if ((-(*(int16*)(((char*)__UDT_ID)+(544))==*__LONG_SF))||new_error){ -if(qbevent){evnt(4902);if(r)goto S_5787;} -do{ -goto LABEL_CREATESF; -if(!qbevent)break;evnt(4902);}while(r); -} -S_5790:; -if ((-(*__LONG_TRY== 2 ))||new_error){ -if(qbevent){evnt(4903);if(r)goto S_5790;} -do{ -*__INTEGER_FINDANOTHERID= 1 ; -if(!qbevent)break;evnt(4903);}while(r); -do{ -*__LONG_TRY=FUNC_FINDID(__STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4903);}while(r); -}else{ -do{ -*__LONG_TRY= 0 ; -if(!qbevent)break;evnt(4903);}while(r); -} -S_5796:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(4904);if(r)goto S_5796;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(4904);}while(r); -} -dl_continue_548:; -} -dl_exit_548:; -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Unregistered SUB/FUNCTION encountered",37)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4906);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(4906);}while(r); -LABEL_CREATESF:; -if(qbevent){evnt(4907);r=0;} -S_5802:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_E),qbs_new_txt_len("_GL",3))))||new_error){ -if(qbevent){evnt(4908);if(r)goto S_5802;} -do{ -qbs_set(__STRING_E,qbs_new_txt_len("_GL",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4908);}while(r); -} -S_5805:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("SUB",3))))||new_error){ -if(qbevent){evnt(4909);if(r)goto S_5805;} -do{ -qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("Sub",3)),__STRING1_SP),__STRING_E),__STRING_SYMBOL)); -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(FUNC_SCASE(qbs_new_txt_len("Function",8)),__STRING1_SP),__STRING_E),__STRING_SYMBOL)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4912);}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(4914);}while(r); -do{ -*__LONG_TARGETID=*__LONG_CURRENTID; -if(!qbevent)break;evnt(4915);}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(4918);}while(r); -S_5813:; -if ((-(*__LONG_N> 2 ))||new_error){ -if(qbevent){evnt(4919);if(r)goto S_5813;} -do{ -qbs_set(__STRING_EE,FUNC_GETELEMENT(__STRING_A,&(pass549= 3 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4920);}while(r); -S_5815:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_EE,qbs_new_txt_len("ALIAS",5))))||new_error){ -if(qbevent){evnt(4921);if(r)goto S_5815;} -S_5816:; -if ((-(*__LONG_DECLARINGLIBRARY== 0 ))||new_error){ -if(qbevent){evnt(4922);if(r)goto S_5816;} -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(4922);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(4922);}while(r); -} -S_5820:; -if ((-(*__LONG_N== 3 ))||new_error){ -if(qbevent){evnt(4923);if(r)goto S_5820;} -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(4923);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(4923);}while(r); -} -do{ -qbs_set(__STRING_EE,FUNC_GETELEMENT(__STRING_CA,&(pass550= 4 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4924);}while(r); -S_5825:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_EE, 1 ),func_chr( 34 ))))||new_error){ -if(qbevent){evnt(4927);if(r)goto S_5825;} -do{ -qbs_set(__STRING_EE,qbs_right(__STRING_EE,__STRING_EE->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4928);}while(r); -do{ -*__LONG_X=func_instr(NULL,__STRING_EE,func_chr( 34 ),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4929);}while(r); -S_5828:; -if ((-(*__LONG_X== 0 ))||new_error){ -if(qbevent){evnt(4929);if(r)goto S_5828;} -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(4929);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(4929);}while(r); -} -do{ -qbs_set(__STRING_EE,qbs_left(__STRING_EE,*__LONG_X- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4930);}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),__STRING_CHR_QUOTE),__STRING_EE),__STRING_CHR_QUOTE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4931);}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(4933);}while(r); -} -S_5837:; -while((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_EE,__STRING_FIX046,0)))||new_error){ -if(qbevent){evnt(4937);if(r)goto S_5837;} -do{ -*__LONG_X=func_instr(NULL,__STRING_EE,__STRING_FIX046,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4938);}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(4938);}while(r); -dl_continue_552:; -} -dl_exit_552:; -do{ -qbs_set(__STRING_ALIASNAME,__STRING_EE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4940);}while(r); -S_5842:; -if ((-(*__LONG_N<= 4 ))||new_error){ -if(qbevent){evnt(4942);if(r)goto S_5842;} -do{ -qbs_set(__STRING_A,FUNC_GETELEMENTS(__STRING_A,&(pass555= 1 ),&(pass556= 2 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4942);}while(r); -} -S_5845:; -if ((-(*__LONG_N>= 5 ))||new_error){ -if(qbevent){evnt(4943);if(r)goto S_5845;} -do{ -qbs_set(__STRING_A,qbs_add(qbs_add(FUNC_GETELEMENTS(__STRING_A,&(pass557= 1 ),&(pass558= 2 )),__STRING1_SP),FUNC_GETELEMENTS(__STRING_A,&(pass559= 5 ),__LONG_N))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4943);}while(r); -} -S_5848:; -if ((-(*__LONG_N<= 4 ))||new_error){ -if(qbevent){evnt(4944);if(r)goto S_5848;} -do{ -qbs_set(__STRING_CA,FUNC_GETELEMENTS(__STRING_CA,&(pass560= 1 ),&(pass561= 2 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4944);}while(r); -} -S_5851:; -if ((-(*__LONG_N>= 5 ))||new_error){ -if(qbevent){evnt(4945);if(r)goto S_5851;} -do{ -qbs_set(__STRING_CA,qbs_add(qbs_add(FUNC_GETELEMENTS(__STRING_CA,&(pass562= 1 ),&(pass563= 2 )),__STRING1_SP),FUNC_GETELEMENTS(__STRING_CA,&(pass564= 5 ),__LONG_N))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4945);}while(r); -} -do{ -*__LONG_N=*__LONG_N- 2 ; -if(!qbevent)break;evnt(4946);}while(r); -} -} -S_5857:; -if ((*__LONG_DECLARINGLIBRARY)||new_error){ -if(qbevent){evnt(4950);if(r)goto S_5857;} -do{ -goto LABEL_DECLIBJMP1; -if(!qbevent)break;evnt(4950);}while(r); -} -S_5860:; -if ((-(*__INTEGER_CLOSEDMAIN== 0 ))||new_error){ -if(qbevent){evnt(4953);if(r)goto S_5860;} -do{ -SUB_CLOSEMAIN(); -if(!qbevent)break;evnt(4953);}while(r); -} -S_5863:; -if (((-(*__INTEGER_CONTROLLEVEL!= 0 ))&(-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]!= 6 )))||new_error){ -if(qbevent){evnt(4956);if(r)goto S_5863;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Unidentified open control block",31)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4957);}while(r); -S_5865:; -sc_565=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]; -if(qbevent){evnt(4958);if(r)goto S_5865;} -S_5866:; -if (((sc_565==( 1 )))||new_error){ -if(qbevent){evnt(4959);if(r)goto S_5866;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("IF without END IF",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4959);}while(r); -sc_ec_22_end:; -goto sc_565_end; -} -S_5868:; -if (((sc_565==( 2 )))||new_error){ -if(qbevent){evnt(4960);if(r)goto S_5868;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("FOR without NEXT",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4960);}while(r); -sc_ec_23_end:; -goto sc_565_end; -} -S_5870:; -if (((sc_565==( 3 ))||(sc_565==( 4 )))||new_error){ -if(qbevent){evnt(4961);if(r)goto S_5870;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("DO without LOOP",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4961);}while(r); -sc_ec_24_end:; -goto sc_565_end; -} -S_5872:; -if (((sc_565==( 5 )))||new_error){ -if(qbevent){evnt(4962);if(r)goto S_5872;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("WHILE without WEND",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4962);}while(r); -sc_ec_25_end:; -goto sc_565_end; -} -S_5874:; -if ((((sc_565>=( 10 ))&&(sc_565<=( 19 ))))||new_error){ -if(qbevent){evnt(4963);if(r)goto S_5874;} -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(4963);}while(r); -sc_ec_26_end:; -goto sc_565_end; -} -sc_565_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(4965);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(4966);}while(r); -} -S_5880:; -if ((*__LONG_IDEINDENTSUBS)||new_error){ -if(qbevent){evnt(4969);if(r)goto S_5880;} -do{ -*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL+ 1 ; -if(!qbevent)break;evnt(4970);}while(r); -do{ -tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[tmp_long]= 32 ; -if(!qbevent)break;evnt(4971);}while(r); -do{ -tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLREF[4],__ARRAY_LONG_CONTROLREF[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_CONTROLREF[0]))[tmp_long]=*__LONG_LINENUMBER; -if(!qbevent)break;evnt(4972);}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(4975);}while(r); -S_5886:; -if ((-(*(int16*)(((char*)__UDT_ID)+(544))== 1 ))||new_error){ -if(qbevent){evnt(4976);if(r)goto S_5886;} -do{ -qbs_set(__STRING_SUBFUNCORIGINALNAME,qbs_new_txt_len("FUNCTION ",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4976);}while(r); -}else{ -do{ -qbs_set(__STRING_SUBFUNCORIGINALNAME,qbs_new_txt_len("SUB ",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4976);}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(4977);}while(r); -do{ -*__LONG_SUBFUNCN=*__LONG_SUBFUNCN+ 1 ; -if(!qbevent)break;evnt(4978);}while(r); -do{ -*__BYTE_CLOSEDSUBFUNC= 0 ; -if(!qbevent)break;evnt(4979);}while(r); -do{ -*__LONG_SUBFUNCID=*__LONG_TARGETID; -if(!qbevent)break;evnt(4980);}while(r); -do{ -qbs_set(__STRING_SUBFUNCRET,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4982);}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)),FUNC_STR2(__LONG_SUBFUNCN)),qbs_new_txt_len(".txt",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4984);}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)),FUNC_STR2(__LONG_SUBFUNCN)),qbs_new_txt_len(".txt",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4985);}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)),FUNC_STR2(__LONG_SUBFUNCN)),qbs_new_txt_len(".txt",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4986);}while(r); -do{ -*__INTEGER_DEFDATAHANDLE=*__LONG_DATATXTBUF; -if(!qbevent)break;evnt(4987);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass566=*__LONG_RETTXTBUF),qbs_new_txt_len("if (next_return_point){",23)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4988);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass567=*__LONG_RETTXTBUF),qbs_new_txt_len("next_return_point--;",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4989);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass568=*__LONG_RETTXTBUF),qbs_new_txt_len("switch(return_point[next_return_point]){",40)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4990);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass569=*__LONG_RETTXTBUF),qbs_new_txt_len("case 0:",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4991);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass570=*__LONG_RETTXTBUF),qbs_new_txt_len("error(3);",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4992);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass571=*__LONG_RETTXTBUF),qbs_new_txt_len("break;",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(4993);}while(r); -LABEL_DECLIBJMP1:; -if(qbevent){evnt(4995);r=0;} -S_5906:; -if ((*__LONG_DECLARINGLIBRARY)||new_error){ -if(qbevent){evnt(4997);if(r)goto S_5906;} -S_5907:; -if (((-(*__LONG_SFDECLARE== 0 ))&(-(*__LONG_INDIRECTLIBRARY== 0 )))||new_error){ -if(qbevent){evnt(4998);if(r)goto S_5907;} -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(4999);}while(r); -} -S_5910:; -if (((-(*__LONG_SFDECLARE== 1 ))&(-(*__LONG_CUSTOMTYPELIBRARY== 0 ))&(-(*__LONG_DYNAMICLIBRARY== 0 ))&(-(*__LONG_INDIRECTLIBRARY== 0 )))||new_error){ -if(qbevent){evnt(5001);if(r)goto S_5910;} -do{ -SUB_WRITEBUFLINE(&(pass572=*__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)),FUNC_STR2(&(pass573=*__LONG_RESOLVESTATICFUNCTIONS+ 1 ))),qbs_new_txt_len(".txt",4)),func_chr( 34 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5002);}while(r); -do{ -*__LONG_FH=func_freefile(); -if(!qbevent)break;evnt(5003);}while(r); -do{ -sub_open(qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("externtype",10)),FUNC_STR2(&(pass574=*__LONG_RESOLVESTATICFUNCTIONS+ 1 ))),qbs_new_txt_len(".txt",4)), 4 ,NULL,NULL,*__LONG_FH,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5003);}while(r); -do{ -sub_close(*__LONG_FH,1); -if(!qbevent)break;evnt(5003);}while(r); -} -} -S_5917:; -if ((-(*__LONG_SF== 1 ))||new_error){ -if(qbevent){evnt(5010);if(r)goto S_5917;} -do{ -*__LONG_RETTYP=*(int32*)(((char*)__UDT_ID)+(2381)); -if(!qbevent)break;evnt(5011);}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(5012);}while(r); -S_5920:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(5013);if(r)goto S_5920;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5013);}while(r); -} -S_5923:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T,qbs_new_txt_len("qbs",3))))||new_error){ -if(qbevent){evnt(5014);if(r)goto S_5923;} -do{ -qbs_set(__STRING_T,qbs_new_txt_len("qbs*",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5014);}while(r); -} -S_5926:; -if ((*__LONG_DECLARINGLIBRARY)||new_error){ -if(qbevent){evnt(5016);if(r)goto S_5926;} -S_5927:; -if ((*__LONG_RETTYP&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(5017);if(r)goto S_5927;} -do{ -qbs_set(__STRING_T,qbs_new_txt_len("char*",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5018);}while(r); -} -} -S_5931:; -if (((-(*__LONG_DECLARINGLIBRARY!= 0 ))&(-(*__LONG_DYNAMICLIBRARY!= 0 )))||new_error){ -if(qbevent){evnt(5022);if(r)goto S_5931;} -S_5932:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ -if(qbevent){evnt(5023);if(r)goto S_5932;} -do{ -SUB_WRITEBUFRAWDATA(&(pass575=*__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(5024);}while(r); -} -S_5935:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ -if(qbevent){evnt(5026);if(r)goto S_5935;} -do{ -SUB_WRITEBUFRAWDATA(&(pass576=*__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(5027);}while(r); -} -S_5938:; -}else{ -if ((-(*__LONG_DECLARINGLIBRARY!= 0 ))&(-(*__LONG_CUSTOMTYPELIBRARY!= 0 ))){ -if(qbevent){evnt(5029);if(r)goto S_5938;} -do{ -SUB_WRITEBUFRAWDATA(&(pass577=*__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(5030);}while(r); -}else{ -do{ -SUB_WRITEBUFRAWDATA(&(pass578=*__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(5032);}while(r); -} -} -S_5943:; -if ((*__LONG_DECLARINGLIBRARY)||new_error){ -if(qbevent){evnt(5034);if(r)goto S_5943;} -do{ -goto LABEL_DECLIBJMP2; -if(!qbevent)break;evnt(5034);}while(r); -} -do{ -SUB_WRITEBUFRAWDATA(&(pass579=*__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(5035);}while(r); -S_5947:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SYMBOL,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(5039);if(r)goto S_5947;} -do{ -*__LONG_A=qbs_asc(qbs_ucase(__STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5040);}while(r); -S_5949:; -if ((-(*__LONG_A== 95 ))||new_error){ -if(qbevent){evnt(5040);if(r)goto S_5949;} -do{ -*__LONG_A= 91 ; -if(!qbevent)break;evnt(5040);}while(r); -} -do{ -*__LONG_A=*__LONG_A- 64 ; -if(!qbevent)break;evnt(5041);}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(5042);}while(r); -} -do{ -*__LONG_REGINTERNALVARIABLE= 1 ; -if(!qbevent)break;evnt(5044);}while(r); -do{ -*__LONG_IGNORE=FUNC_DIM2(__STRING_E,__STRING_SYMBOL,&(pass580= 0 ),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5045);}while(r); -S_5957:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(5046);if(r)goto S_5957;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5046);}while(r); -} -do{ -*__LONG_REGINTERNALVARIABLE= 0 ; -if(!qbevent)break;evnt(5047);}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)),FUNC_STR2(__LONG_SUBFUNCN)),qbs_new_txt_len(".txt",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5049);}while(r); -S_5962:; -if (((*__LONG_RETTYP&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(5051);if(r)goto S_5962;} -do{ -qbs_set(__STRING_R,FUNC_REFER(FUNC_STR2(__LONG_CURRENTID),(int32*)(void*)( ((char*)(__UDT_ID)) + (536) ),&(pass581= 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5052);}while(r); -S_5964:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(5053);if(r)goto S_5964;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5053);}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(5054);}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(5055);}while(r); -}else{ -do{ -qbs_set(__STRING_R,FUNC_REFER(FUNC_STR2(__LONG_CURRENTID),(int32*)(void*)( ((char*)(__UDT_ID)) + (536) ),&(pass582= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5057);}while(r); -S_5971:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(5058);if(r)goto S_5971;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5058);}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(5059);}while(r); -} -}else{ -S_5977:; -if (((-(*__LONG_DECLARINGLIBRARY!= 0 ))&(-(*__LONG_DYNAMICLIBRARY!= 0 )))||new_error){ -if(qbevent){evnt(5063);if(r)goto S_5977;} -S_5978:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ -if(qbevent){evnt(5064);if(r)goto S_5978;} -do{ -SUB_WRITEBUFRAWDATA(&(pass583=*__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(5065);}while(r); -} -S_5981:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ -if(qbevent){evnt(5067);if(r)goto S_5981;} -do{ -SUB_WRITEBUFRAWDATA(&(pass584=*__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(5068);}while(r); -} -S_5984:; -}else{ -if ((-(*__LONG_DECLARINGLIBRARY!= 0 ))&(-(*__LONG_CUSTOMTYPELIBRARY!= 0 ))){ -if(qbevent){evnt(5070);if(r)goto S_5984;} -do{ -SUB_WRITEBUFRAWDATA(&(pass585=*__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(5071);}while(r); -}else{ -do{ -SUB_WRITEBUFRAWDATA(&(pass586=*__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(5073);}while(r); -} -} -S_5989:; -if ((*__LONG_DECLARINGLIBRARY)||new_error){ -if(qbevent){evnt(5075);if(r)goto S_5989;} -do{ -goto LABEL_DECLIBJMP2; -if(!qbevent)break;evnt(5075);}while(r); -} -do{ -SUB_WRITEBUFRAWDATA(&(pass587=*__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(5076);}while(r); -} -LABEL_DECLIBJMP2:; -if(qbevent){evnt(5078);r=0;} -do{ -*__LONG_ADDSTATIC2LAYOUT= 0 ; -if(!qbevent)break;evnt(5080);}while(r); -do{ -*__LONG_STATICSF= 0 ; -if(!qbevent)break;evnt(5081);}while(r); -do{ -qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5082);}while(r); -S_5997:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("STATIC",6))))||new_error){ -if(qbevent){evnt(5083);if(r)goto S_5997;} -S_5998:; -if ((*__LONG_DECLARINGLIBRARY)||new_error){ -if(qbevent){evnt(5084);if(r)goto S_5998;} -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(5084);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5084);}while(r); -} -do{ -*__LONG_ADDSTATIC2LAYOUT= 1 ; -if(!qbevent)break;evnt(5085);}while(r); -do{ -*__LONG_STATICSF= 2 ; -if(!qbevent)break;evnt(5086);}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(5087);}while(r); -do{ -*__LONG_N=*__LONG_N- 1 ; -if(!qbevent)break;evnt(5087);}while(r); -} -do{ -*__LONG_PARAMS= 0 ; -if(!qbevent)break;evnt(5091);}while(r); -do{ -*__LONG_ALLOWLOCALNAME= 1 ; -if(!qbevent)break;evnt(5092);}while(r); -S_6009:; -if ((-(*__LONG_N> 2 ))||new_error){ -if(qbevent){evnt(5093);if(r)goto S_6009;} -do{ -qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,&(pass589= 3 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5094);}while(r); -S_6011:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(5095);if(r)goto S_6011;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected (",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5095);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5095);}while(r); -} -do{ -qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5096);}while(r); -S_6016:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(5097);if(r)goto S_6016;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5097);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5097);}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(5098);}while(r); -S_6021:; -if ((-(*__LONG_N== 4 ))||new_error){ -if(qbevent){evnt(5099);if(r)goto S_6021;} -do{ -goto LABEL_NOSFPARAMS2; -if(!qbevent)break;evnt(5099);}while(r); -} -S_6024:; -if ((-(*__LONG_N< 4 ))||new_error){ -if(qbevent){evnt(5100);if(r)goto S_6024;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected ( ... )",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5100);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5100);}while(r); -} -do{ -*__LONG_B= 0 ; -if(!qbevent)break;evnt(5101);}while(r); -do{ -qbs_set(__STRING_A2,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5102);}while(r); -S_6030:; -fornext_value591= 4 ; -fornext_finalvalue591=*__LONG_N- 1 ; -fornext_step591= 1 ; -if (fornext_step591<0) fornext_step_negative591=1; else fornext_step_negative591=0; -if (new_error) goto fornext_error591; -goto fornext_entrylabel591; -while(1){ -fornext_value591=fornext_step591+(*__LONG_I); -fornext_entrylabel591: -*__LONG_I=fornext_value591; -if (fornext_step_negative591){ -if (fornext_value591fornext_finalvalue591) break; -} -fornext_error591:; -if(qbevent){evnt(5103);if(r)goto S_6030;} -do{ -qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5104);}while(r); -S_6032:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(5105);if(r)goto S_6032;} -do{ -*__LONG_B=*__LONG_B+ 1 ; -if(!qbevent)break;evnt(5105);}while(r); -} -S_6035:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(5106);if(r)goto S_6035;} -do{ -*__LONG_B=*__LONG_B- 1 ; -if(!qbevent)break;evnt(5106);}while(r); -} -S_6038:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||new_error){ -if(qbevent){evnt(5107);if(r)goto S_6038;} -S_6039:; -if ((-(*__LONG_I==(*__LONG_N- 1 )))||new_error){ -if(qbevent){evnt(5108);if(r)goto S_6039;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected , ... )",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5108);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5108);}while(r); -} -LABEL_GETLASTPARAM2:; -if(qbevent){evnt(5109);r=0;} -S_6043:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(5110);if(r)goto S_6043;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected ... ,",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5110);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5110);}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(5111);}while(r); -do{ -*__LONG_PARAMS=*__LONG_PARAMS+ 1 ; -if(!qbevent)break;evnt(5113);}while(r); -do{ -*__LONG_GLINKID=*__LONG_TARGETID; -if(!qbevent)break;evnt(5114);}while(r); -do{ -*__INTEGER_GLINKARG=*__LONG_PARAMS; -if(!qbevent)break;evnt(5115);}while(r); -S_6051:; -if ((-(*__LONG_PARAMS> 1 ))||new_error){ -if(qbevent){evnt(5119);if(r)goto S_6051;} -do{ -SUB_WRITEBUFRAWDATA(&(pass593=*__LONG_REGTXTBUF),qbs_new_txt_len(",",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5120);}while(r); -S_6053:; -if ((-(*__LONG_DECLARINGLIBRARY== 0 ))||new_error){ -if(qbevent){evnt(5122);if(r)goto S_6053;} -do{ -SUB_WRITEBUFRAWDATA(&(pass594=*__LONG_MAINTXTBUF),qbs_new_txt_len(",",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5123);}while(r); -} -} -do{ -*__LONG_N2=FUNC_NUMELEMENTS(__STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5127);}while(r); -do{ -*__LONG_ARRAY= 0 ; -if(!qbevent)break;evnt(5128);}while(r); -do{ -qbs_set(__STRING_T2,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5129);}while(r); -do{ -qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A2,&(pass595= 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5130);}while(r); -do{ -*__LONG_BYVALUE= 0 ; -if(!qbevent)break;evnt(5132);}while(r); -S_6062:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_E),qbs_new_txt_len("BYVAL",5))))||new_error){ -if(qbevent){evnt(5133);if(r)goto S_6062;} -S_6063:; -if ((-(*__LONG_DECLARINGLIBRARY== 0 ))||new_error){ -if(qbevent){evnt(5134);if(r)goto S_6063;} -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(5134);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5134);}while(r); -} -do{ -*__LONG_BYVALUE= 1 ; -if(!qbevent)break;evnt(5135);}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(5135);}while(r); -S_6069:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(__STRING_L, 1 ),qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(5136);if(r)goto S_6069;} -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(5136);}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(5136);}while(r); -} -do{ -*__LONG_N2=FUNC_NUMELEMENTS(__STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5137);}while(r); -do{ -qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A2,&(pass597= 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5137);}while(r); -} -S_6077:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(__STRING_L, 1 ),qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(5140);if(r)goto S_6077;} -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(5140);}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(5140);}while(r); -} -do{ -qbs_set(__STRING_N2,__STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5142);}while(r); -do{ -*__LONG_DIMMETHOD= 0 ; -if(!qbevent)break;evnt(5143);}while(r); -do{ -qbs_set(__STRING_SYMBOL2,FUNC_REMOVESYMBOL(__STRING_N2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5146);}while(r); -S_6085:; -if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(__STRING_N2)== 0 )))||new_error){ -if(qbevent){evnt(5147);if(r)goto S_6085;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Invalid name",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5147);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5147);}while(r); -} -S_6089:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(5149);if(r)goto S_6089;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5149);}while(r); -} -S_6092:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_SYMBOL2,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(5150);if(r)goto S_6092;} -do{ -*__LONG_DIMMETHOD= 1 ; -if(!qbevent)break;evnt(5150);}while(r); -} -do{ -*__LONG_M= 0 ; -if(!qbevent)break;evnt(5151);}while(r); -S_6096:; -fornext_value599= 2 ; -fornext_finalvalue599=*__LONG_N2; -fornext_step599= 1 ; -if (fornext_step599<0) fornext_step_negative599=1; else fornext_step_negative599=0; -if (new_error) goto fornext_error599; -goto fornext_entrylabel599; -while(1){ -fornext_value599=fornext_step599+(*__LONG_I2); -fornext_entrylabel599: -*__LONG_I2=fornext_value599; -if (fornext_step_negative599){ -if (fornext_value599fornext_finalvalue599) break; -} -fornext_error599:; -if(qbevent){evnt(5152);if(r)goto S_6096;} -do{ -qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A2,__LONG_I2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5153);}while(r); -S_6098:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(5154);if(r)goto S_6098;} -S_6099:; -if ((-(*__LONG_M!= 0 ))||new_error){ -if(qbevent){evnt(5155);if(r)goto S_6099;} -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(5155);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5155);}while(r); -} -do{ -*__LONG_M= 1 ; -if(!qbevent)break;evnt(5156);}while(r); -do{ -*__LONG_ARRAY= 1 ; -if(!qbevent)break;evnt(5157);}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(5158);}while(r); -do{ -goto LABEL_GOTAA2; -if(!qbevent)break;evnt(5159);}while(r); -} -S_6108:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(5161);if(r)goto S_6108;} -S_6109:; -if ((-(*__LONG_M!= 1 ))||new_error){ -if(qbevent){evnt(5162);if(r)goto S_6109;} -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(5162);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5162);}while(r); -} -do{ -*__LONG_M= 2 ; -if(!qbevent)break;evnt(5163);}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(5164);}while(r); -do{ -goto LABEL_GOTAA2; -if(!qbevent)break;evnt(5165);}while(r); -} -S_6117:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_E),qbs_new_txt_len("AS",2))))||new_error){ -if(qbevent){evnt(5167);if(r)goto S_6117;} -S_6118:; -if (((-(*__LONG_M!= 0 ))&(-(*__LONG_M!= 2 )))||new_error){ -if(qbevent){evnt(5168);if(r)goto S_6118;} -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(5168);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5168);}while(r); -} -do{ -*__LONG_M= 3 ; -if(!qbevent)break;evnt(5169);}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(5170);}while(r); -do{ -goto LABEL_GOTAA2; -if(!qbevent)break;evnt(5171);}while(r); -} -S_6126:; -if ((-(*__LONG_M== 1 ))||new_error){ -if(qbevent){evnt(5173);if(r)goto S_6126;} -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(5173);}while(r); -do{ -goto LABEL_GOTAA2; -if(!qbevent)break;evnt(5173);}while(r); -} -S_6130:; -if ((-(*__LONG_M!= 3 ))||new_error){ -if(qbevent){evnt(5174);if(r)goto S_6130;} -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(5174);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5174);}while(r); -} -S_6134:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T2,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(5175);if(r)goto S_6134;} -do{ -qbs_set(__STRING_T2,__STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5175);}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(5175);}while(r); -} -LABEL_GOTAA2:; -if(qbevent){evnt(5176);r=0;} -fornext_continue_598:; -} -fornext_exit_598:; -S_6140:; -if ((-(*__LONG_M== 1 ))||new_error){ -if(qbevent){evnt(5178);if(r)goto S_6140;} -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(5178);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5178);}while(r); -} -S_6144:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(__STRING_SYMBOL2,qbs_new_txt_len("",0)))&(qbs_notequal(__STRING_T2,qbs_new_txt_len("",0)))))||new_error){ -if(qbevent){evnt(5179);if(r)goto S_6144;} -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(5179);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5179);}while(r); -} -S_6148:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_T2->len))||new_error){ -if(qbevent){evnt(5182);if(r)goto S_6148;} -do{ -qbs_set(__STRING_T2,qbs_ucase(__STRING_T2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5183);}while(r); -do{ -qbs_set(__STRING_T3,__STRING_T2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5184);}while(r); -do{ -*__LONG_TYP=FUNC_TYPNAME2TYP(__STRING_T3); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5185);}while(r); -S_6152:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(5186);if(r)goto S_6152;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5186);}while(r); -} -S_6155:; -if ((-(*__LONG_TYP== 0 ))||new_error){ -if(qbevent){evnt(5187);if(r)goto S_6155;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Undefined type",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5187);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5187);}while(r); -} -S_6159:; -if ((*__LONG_TYP&*__LONG_ISUDT)||new_error){ -if(qbevent){evnt(5188);if(r)goto S_6159;} -S_6160:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(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_new_txt_len("_MEM",4)))&(qbs_equal(qbs_ucase(__STRING_T3),qbs_new_txt_len("MEM",3)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))||new_error){ -if(qbevent){evnt(5189);if(r)goto S_6160;} -do{ -qbs_set(__STRING_T3,func_mid(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)), 2 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5190);}while(r); -}else{ -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(5192);}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(5194);}while(r); -}else{ -S_6167:; -fornext_value602= 1 ; -fornext_finalvalue602=__STRING_T3->len; -fornext_step602= 1 ; -if (fornext_step602<0) fornext_step_negative602=1; else fornext_step_negative602=0; -if (new_error) goto fornext_error602; -goto fornext_entrylabel602; -while(1){ -fornext_value602=fornext_step602+(*__LONG_T3I); -fornext_entrylabel602: -*__LONG_T3I=fornext_value602; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative602){ -if (fornext_value602fornext_finalvalue602) break; -} -fornext_error602:; -if(qbevent){evnt(5196);if(r)goto S_6167;} -S_6168:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_T3,*__LONG_T3I)== 32 )))||new_error){ -if(qbevent){evnt(5197);if(r)goto S_6168;} -do{ -tqbs=__STRING_T3; if (!new_error){ -tmp_fileno=*__LONG_T3I; if (!new_error){ -tmp_long=qbs_asc(__STRING1_SP); if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(5197);}while(r); -} -fornext_continue_601:; -} -fornext_exit_601:; -do{ -qbs_set(__STRING_T3,FUNC_SCASE2(__STRING_T3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5199);}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(5200);}while(r); -} -} -S_6176:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T2,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(5204);if(r)goto S_6176;} -do{ -qbs_set(__STRING_T2,__STRING_SYMBOL2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5204);}while(r); -} -S_6179:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T2,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(5205);if(r)goto S_6179;} -S_6180:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_N2, 1 ),qbs_new_txt_len("_",1))))||new_error){ -if(qbevent){evnt(5206);if(r)goto S_6180;} -do{ -*__LONG_V= 27 ; -if(!qbevent)break;evnt(5206);}while(r); -}else{ -do{ -*__LONG_V=qbs_asc(qbs_ucase(__STRING_N2))- 64 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5206);}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(5207);}while(r); -do{ -*__LONG_DIMMETHOD= 1 ; -if(!qbevent)break;evnt(5208);}while(r); -} -S_6188:; -if ((-(*__LONG_ARRAY== 1 ))||new_error){ -if(qbevent){evnt(5214);if(r)goto S_6188;} -S_6189:; -if ((*__LONG_DECLARINGLIBRARY)||new_error){ -if(qbevent){evnt(5215);if(r)goto S_6189;} -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(5215);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5215);}while(r); -} -do{ -*__INTEGER_DIMSFARRAY= 1 ; -if(!qbevent)break;evnt(5216);}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(5218);}while(r); -S_6195:; -if ((*__LONG_NELEREQ)||new_error){ -if(qbevent){evnt(5219);if(r)goto S_6195;} -do{ -*__LONG_NELE=*__LONG_NELEREQ; -if(!qbevent)break;evnt(5220);}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(5221);}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(5223);}while(r); -do{ -*__LONG_IGNORE=FUNC_DIM2(__STRING_N2,__STRING_T2,__LONG_DIMMETHOD,FUNC_STR2(__LONG_NELE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5225);}while(r); -S_6200:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(5226);if(r)goto S_6200;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5226);}while(r); -} -}else{ -do{ -*__LONG_NELE= 1 ; -if(!qbevent)break;evnt(5228);}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(5229);}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(5231);}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(5233);}while(r); -S_6208:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(5234);if(r)goto S_6208;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5234);}while(r); -} -} -do{ -*__INTEGER_DIMSFARRAY= 0 ; -if(!qbevent)break;evnt(5237);}while(r); -do{ -qbs_set(__STRING_R,FUNC_REFER(FUNC_STR2(__LONG_CURRENTID),(int32*)(void*)( ((char*)(__UDT_ID)) + (536) ),&(pass604= 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5238);}while(r); -S_6214:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(5239);if(r)goto S_6214;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5239);}while(r); -} -do{ -SUB_WRITEBUFRAWDATA(&(pass605=*__LONG_REGTXTBUF),qbs_add(qbs_new_txt_len("ptrszint*",9),__STRING_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5240);}while(r); -do{ -SUB_WRITEBUFRAWDATA(&(pass606=*__LONG_MAINTXTBUF),qbs_add(qbs_new_txt_len("ptrszint*",9),__STRING_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5241);}while(r); -}else{ -S_6220:; -if ((*__LONG_DECLARINGLIBRARY)||new_error){ -if(qbevent){evnt(5244);if(r)goto S_6220;} -S_6221:; -fornext_value608= 1 ; -fornext_finalvalue608=*__LONG_LASTTYPE; -fornext_step608= 1 ; -if (fornext_step608<0) fornext_step_negative608=1; else fornext_step_negative608=0; -if (new_error) goto fornext_error608; -goto fornext_entrylabel608; -while(1){ -fornext_value608=fornext_step608+(*__LONG_XX); -fornext_entrylabel608: -*__LONG_XX=fornext_value608; -if (fornext_step_negative608){ -if (fornext_value608fornext_finalvalue608) break; -} -fornext_error608:; -if(qbevent){evnt(5246);if(r)goto S_6221;} -S_6222:; -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)))))||new_error){ -if(qbevent){evnt(5247);if(r)goto S_6222;} -do{ -SUB_WRITEBUFLINE(&(pass609=*__LONG_REGTXTBUF),qbs_new_txt_len("void*",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5248);}while(r); -do{ -goto LABEL_DECUDT; -if(!qbevent)break;evnt(5249);}while(r); -S_6225:; -}else{ -if (qbs_cleanup(qbs_tmp_base,(qbs_equal(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)),qbs_new_txt_len("_MEM",4)))&(qbs_equal(__STRING_T2,qbs_new_txt_len("MEM",3)))&(-(*__LONG_QB64PREFIX_SET== 1 )))){ -if(qbevent){evnt(5250);if(r)goto S_6225;} -do{ -SUB_WRITEBUFLINE(&(pass610=*__LONG_REGTXTBUF),qbs_new_txt_len("void*",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5251);}while(r); -do{ -goto LABEL_DECUDT; -if(!qbevent)break;evnt(5252);}while(r); -} -} -fornext_continue_607:; -} -fornext_exit_607:; -do{ -qbs_set(__STRING_T,FUNC_TYP2CTYP(&(pass611= 0 ),__STRING_T2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5255);}while(r); -S_6231:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(5257);if(r)goto S_6231;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5257);}while(r); -} -S_6234:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T,qbs_new_txt_len("qbs",3))))||new_error){ -if(qbevent){evnt(5258);if(r)goto S_6234;} -do{ -qbs_set(__STRING_T,qbs_new_txt_len("char*",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5259);}while(r); -S_6236:; -if ((-(*__LONG_BYVALUE== 1 ))||new_error){ -if(qbevent){evnt(5260);if(r)goto S_6236;} -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(5260);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5260);}while(r); -} -do{ -*__LONG_BYVALUE= 1 ; -if(!qbevent)break;evnt(5261);}while(r); -} -S_6242:; -if ((*__LONG_BYVALUE)||new_error){ -if(qbevent){evnt(5263);if(r)goto S_6242;} -do{ -SUB_WRITEBUFRAWDATA(&(pass612=*__LONG_REGTXTBUF),__STRING_T); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5263);}while(r); -}else{ -do{ -SUB_WRITEBUFRAWDATA(&(pass613=*__LONG_REGTXTBUF),qbs_add(__STRING_T,qbs_new_txt_len("*",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5263);}while(r); -} -LABEL_DECUDT:; -if(qbevent){evnt(5264);r=0;} -do{ -goto LABEL_DECLIBJMP3; -if(!qbevent)break;evnt(5265);}while(r); -} -do{ -*__INTEGER_DIMSFARRAY= 1 ; -if(!qbevent)break;evnt(5268);}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(5269);}while(r); -S_6251:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(5270);if(r)goto S_6251;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5270);}while(r); -} -do{ -*__INTEGER_DIMSFARRAY= 0 ; -if(!qbevent)break;evnt(5273);}while(r); -do{ -qbs_set(__STRING_T,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5274);}while(r); -do{ -*__LONG_TYP=*(int32*)(((char*)__UDT_ID)+(536)); -if(!qbevent)break;evnt(5275);}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(5277);}while(r); -S_6258:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(5278);if(r)goto S_6258;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5278);}while(r); -} -S_6261:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(5282);if(r)goto S_6261;} -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(5282);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5282);}while(r); -} -do{ -qbs_set(__STRING_R,FUNC_REFER(FUNC_STR2(__LONG_CURRENTID),(int32*)(void*)( ((char*)(__UDT_ID)) + (536) ),&(pass614= 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5285);}while(r); -S_6266:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(5286);if(r)goto S_6266;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5286);}while(r); -} -do{ -SUB_WRITEBUFRAWDATA(&(pass615=*__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(5287);}while(r); -do{ -SUB_WRITEBUFRAWDATA(&(pass616=*__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(5288);}while(r); -S_6271:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T,qbs_new_txt_len("qbs",3))))||new_error){ -if(qbevent){evnt(5289);if(r)goto S_6271;} -do{ -qbs_set(__STRING_U,FUNC_STR2(&(pass617=FUNC_UNIQUENUMBER()))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5290);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass618=*__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(5291);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass619=*__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(5292);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass620=*__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(5293);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass621=*__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(5295);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass622=*__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(5296);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass623=*__LONG_DATATXTBUF),qbs_new_txt_len("}else{",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5297);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass624=*__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(5298);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass625=*__LONG_DATATXTBUF),qbs_new_txt_len("}",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5299);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass626=*__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(5301);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass627=*__LONG_DATATXTBUF),qbs_new_txt_len("}",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5302);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass628=*__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(5304);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass629=*__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(5305);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass630=*__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(5306);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass631=*__LONG_FREETXTBUF),qbs_new_txt_len("}",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5307);}while(r); -} -} -LABEL_DECLIBJMP3:; -if(qbevent){evnt(5310);r=0;} -S_6289:; -if ((-(*__LONG_I!=(*__LONG_N- 1 )))||new_error){ -if(qbevent){evnt(5311);if(r)goto S_6289;} -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(5311);}while(r); -} -do{ -qbs_set(__STRING_A2,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5313);}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(5315);}while(r); -S_6295:; -if ((-(*__LONG_I==(*__LONG_N- 1 )))||new_error){ -if(qbevent){evnt(5316);if(r)goto S_6295;} -do{ -goto LABEL_GETLASTPARAM2; -if(!qbevent)break;evnt(5316);}while(r); -} -} -fornext_continue_590:; -} -fornext_exit_590:; -LABEL_NOSFPARAMS2:; -if(qbevent){evnt(5319);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(5320);}while(r); -} -do{ -*__LONG_ALLOWLOCALNAME= 0 ; -if(!qbevent)break;evnt(5322);}while(r); -S_6303:; -if ((*__LONG_ADDSTATIC2LAYOUT)||new_error){ -if(qbevent){evnt(5324);if(r)goto S_6303;} -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(5324);}while(r); -} -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(5325);}while(r); -S_6307:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(5325);if(r)goto S_6307;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5325);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5325);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass633=*__LONG_REGTXTBUF),qbs_new_txt_len(");",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5327);}while(r); -S_6313:; -if ((*__LONG_DECLARINGLIBRARY)||new_error){ -if(qbevent){evnt(5329);if(r)goto S_6313;} -do{ -goto LABEL_DECLIBJMP4; -if(!qbevent)break;evnt(5329);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass634=*__LONG_MAINTXTBUF),qbs_new_txt_len("){",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5331);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass635=*__LONG_MAINTXTBUF),qbs_new_txt_len("qbs *tqbs;",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5332);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass636=*__LONG_MAINTXTBUF),qbs_new_txt_len("ptrszint tmp_long;",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5333);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass637=*__LONG_MAINTXTBUF),qbs_new_txt_len("int32 tmp_fileno;",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5334);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass638=*__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(5335);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass639=*__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(5336);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass640=*__LONG_MAINTXTBUF),qbs_new_txt_len("uint32 tmp_cmem_sp=cmem_sp;",27)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5337);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass641=*__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)),FUNC_STR2(__LONG_SUBFUNCN)),qbs_new_txt_len(".txt",4)),func_chr( 34 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5338);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass642=*__LONG_MAINTXTBUF),qbs_new_txt_len("mem_lock *sf_mem_lock;",22)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5341);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass643=*__LONG_MAINTXTBUF),qbs_new_txt_len("new_mem_lock();",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5342);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass644=*__LONG_MAINTXTBUF),qbs_new_txt_len("sf_mem_lock=mem_lock_tmp;",25)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5343);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass645=*__LONG_MAINTXTBUF),qbs_new_txt_len("sf_mem_lock->type=3;",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5344);}while(r); -S_6328:; -if ((-(*__LONG_VWATCHON== 1 ))||new_error){ -if(qbevent){evnt(5346);if(r)goto S_6328;} -do{ -SUB_WRITEBUFLINE(&(pass646=*__LONG_MAINTXTBUF),qbs_new_txt_len("*__LONG_VWATCH_SUBLEVEL=*__LONG_VWATCH_SUBLEVEL+ 1 ;",52)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5347);}while(r); -S_6330:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_SUBFUNC,qbs_new_txt_len("SUB_VWATCH",10))))||new_error){ -if(qbevent){evnt(5348);if(r)goto S_6330;} -do{ -qbs_set(__STRING_INCLINENUMP,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5349);}while(r); -S_6332:; -if ((((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])||new_error){ -if(qbevent){evnt(5350);if(r)goto S_6332;} -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(5351);}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(5352);}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(5353);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass648=*__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)),FUNC_STR2(&(pass649=((int32)(qbs_add(__STRING_INCLINENUMP,__STRING_SUBFUNCORIGINALNAME))->len)))),qbs_new_txt_len("));",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5356);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass650=*__LONG_MAINTXTBUF),qbs_new_txt_len("qbs_cleanup(qbs_tmp_base,0);",28)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5357);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass651=*__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)),FUNC_STR2(&(pass653=__STRING_SUBFUNC->len))),qbs_new_txt_len("));",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5358);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass654=*__LONG_MAINTXTBUF),qbs_new_txt_len("qbs_cleanup(qbs_tmp_base,0);",28)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5359);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass655=*__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(5360);}while(r); -} -} -do{ -SUB_WRITEBUFLINE(&(pass656=*__LONG_MAINTXTBUF),qbs_new_txt_len("if (new_error) goto exit_subfunc;",33)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5364);}while(r); -do{ -*__LONG_DIMSTATIC=*__LONG_STATICSF; -if(!qbevent)break;evnt(5369);}while(r); -LABEL_DECLIBJMP4:; -if(qbevent){evnt(5371);r=0;} -S_6346:; -if ((*__LONG_DECLARINGLIBRARY)||new_error){ -if(qbevent){evnt(5373);if(r)goto S_6346;} -S_6347:; -if ((*__LONG_CUSTOMTYPELIBRARY)||new_error){ -if(qbevent){evnt(5375);if(r)goto S_6347;} -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(5377);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass657=*__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(5379);}while(r); -S_6350:; -if ((*__LONG_SUBFUNCN)||new_error){ -if(qbevent){evnt(5381);if(r)goto S_6350;} -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(5382);}while(r); -}else{ -do{ -*__LONG_F=*__LONG_DATATXTBUF; -if(!qbevent)break;evnt(5384);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass658=*__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(5387);}while(r); -S_6356:; -if (((-(*__LONG_SFHEADER== 0 ))&(-(*__LONG_SFDECLARE!= 0 )))||new_error){ -if(qbevent){evnt(5390);if(r)goto S_6356;} -do{ -*__LONG_RESOLVESTATICFUNCTIONS=*__LONG_RESOLVESTATICFUNCTIONS+ 1 ; -if(!qbevent)break;evnt(5391);}while(r); -S_6358:; -if ((qbs_cleanup(qbs_tmp_base,-(*__LONG_RESOLVESTATICFUNCTIONS>func_ubound(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME,1,1))))||new_error){ -if(qbevent){evnt(5393);if(r)goto S_6358;} -do{ +} +if(!qbevent)break;evnt(3658);}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(3659);}while(r); +do{ +SUB_HASHADD(__STRING_A,&(pass384= 2 ),__LONG_NLABELS); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3660);}while(r); +do{ +*__LONG_R=*__LONG_NLABELS; +if(!qbevent)break;evnt(3661);}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(3662);}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(3663);}while(r); +LABEL_ADDLABAQ:; +if(qbevent){evnt(3664);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(3665);}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(3666);}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(3667);}while(r); +S_4491:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(3669);if(r)goto S_4491;} +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(3669);}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(3669);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass386=*__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(3671);}while(r); +do{ +qbs_set(__STRING_INCLINENUMP,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3672);}while(r); +S_4498:; +if ((((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])||new_error){ +if(qbevent){evnt(3673);if(r)goto S_4498;} +do{ +qbs_set(__STRING_INCLINENUMP,qbs_add(qbs_new_txt_len(",",1),FUNC_STR2((&(((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(3674);}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(3675);}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(3676);}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(3677);}while(r); +} +S_4504:; +if ((-(*__LONG_NOCHECKS== 0 ))||new_error){ +if(qbevent){evnt(3679);if(r)goto S_4504;} +S_4505:; +if ((*__LONG_VWATCHON&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||new_error){ +if(qbevent){evnt(3680);if(r)goto S_4505;} +do{ +qbs_set(__STRING_TEMP,__STRING_VWATCHERRORCALL); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3680);}while(r); +}else{ +do{ +qbs_set(__STRING_TEMP,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3680);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass388=*__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)),FUNC_STR2(__LONG_LINENUMBER)),__STRING_INCLINENUMP),qbs_new_txt_len(");r=0;}",7))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3681);}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(3683);}while(r); +do{ +qbs_set(__STRING_U,qbs_ucase(__STRING_ENTIRELINE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3683);}while(r); +do{ +*__LONG_N=FUNC_NUMELEMENTS(__STRING_ENTIRELINE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3684);}while(r); +S_4515:; +if ((-(*__LONG_N== 0 ))||new_error){ +if(qbevent){evnt(3684);if(r)goto S_4515;} +do{ +goto LABEL_FINISHEDNONEXEC; +if(!qbevent)break;evnt(3684);}while(r); +} +} +} +} +S_4521:; +while((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_U)== 58 )))||new_error){ +if(qbevent){evnt(3690);if(r)goto S_4521;} +S_4522:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(3691);if(r)goto S_4522;} +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(3691);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,qbs_new_txt_len(":",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3691);}while(r); +} +S_4527:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_U->len== 1 )))||new_error){ +if(qbevent){evnt(3692);if(r)goto S_4527;} +do{ +goto LABEL_FINISHEDNONEXEC; +if(!qbevent)break;evnt(3692);}while(r); +} +do{ +qbs_set(__STRING_ENTIRELINE,FUNC_GETELEMENTS(__STRING_ENTIRELINE,&(pass393= 2 ),__LONG_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3693);}while(r); +do{ +qbs_set(__STRING_U,qbs_ucase(__STRING_ENTIRELINE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3693);}while(r); +do{ +*__LONG_N=*__LONG_N- 1 ; +if(!qbevent)break;evnt(3693);}while(r); +dl_continue_390:; +} +dl_exit_390:; +S_4534:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_U)== 69 )))||new_error){ +if(qbevent){evnt(3697);if(r)goto S_4534;} +do{ +qbs_set(__STRING_E1,FUNC_GETELEMENT(__STRING_U,&(pass394= 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3699);}while(r); +S_4536:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E1,qbs_new_txt_len("ELSE",4))))||new_error){ +if(qbevent){evnt(3701);if(r)goto S_4536;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("ELSE",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3702);}while(r); +S_4538:; +if ((-(*__LONG_N> 1 ))||new_error){ +if(qbevent){evnt(3703);if(r)goto S_4538;} +do{ +*__LONG_CONTINUELINEFROM= 2 ; +if(!qbevent)break;evnt(3703);}while(r); +} +do{ +goto LABEL_GOTCOMMAND; +if(!qbevent)break;evnt(3704);}while(r); +} +S_4543:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E1,qbs_new_txt_len("ELSEIF",6))))||new_error){ +if(qbevent){evnt(3707);if(r)goto S_4543;} +S_4544:; +if ((-(*__LONG_N< 3 ))||new_error){ +if(qbevent){evnt(3708);if(r)goto S_4544;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected ... THEN",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3708);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(3708);}while(r); +} +S_4548:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_U,__LONG_N),qbs_new_txt_len("THEN",4))))||new_error){ +if(qbevent){evnt(3709);if(r)goto S_4548;} +do{ +qbs_set(__STRING_A,__STRING_ENTIRELINE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3709);}while(r); +do{ +goto LABEL_GOTCOMMAND; +if(!qbevent)break;evnt(3709);}while(r); +} +S_4552:; +fornext_value396= 3 ; +fornext_finalvalue396=*__LONG_N- 1 ; +fornext_step396= 1 ; +if (fornext_step396<0) fornext_step_negative396=1; else fornext_step_negative396=0; +if (new_error) goto fornext_error396; +goto fornext_entrylabel396; +while(1){ +fornext_value396=fornext_step396+(*__LONG_I); +fornext_entrylabel396: +*__LONG_I=fornext_value396; +if (fornext_step_negative396){ +if (fornext_value396fornext_finalvalue396) break; +} +fornext_error396:; +if(qbevent){evnt(3710);if(r)goto S_4552;} +S_4553:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_U,__LONG_I),qbs_new_txt_len("THEN",4))))||new_error){ +if(qbevent){evnt(3711);if(r)goto S_4553;} +do{ +qbs_set(__STRING_A,FUNC_GETELEMENTS(__STRING_ENTIRELINE,&(pass397= 1 ),__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3712);}while(r); +do{ +*__LONG_CONTINUELINEFROM=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(3713);}while(r); +do{ +goto LABEL_GOTCOMMAND; +if(!qbevent)break;evnt(3714);}while(r); +} +fornext_continue_395:; +} +fornext_exit_395:; +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected THEN",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3717);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(3717);}while(r); +} +} +do{ +*__LONG_START= 1 ; +if(!qbevent)break;evnt(3722);}while(r); +do{ +goto LABEL_SKIPCONTINIT; +if(!qbevent)break;evnt(3724);}while(r); +LABEL_CONTLINE:; +if(qbevent){evnt(3726);r=0;} +do{ +*__LONG_N=FUNC_NUMELEMENTS(__STRING_ENTIRELINE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3728);}while(r); +do{ +qbs_set(__STRING_U,qbs_ucase(__STRING_ENTIRELINE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3729);}while(r); +LABEL_SKIPCONTINIT:; +if(qbevent){evnt(3731);r=0;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3739);}while(r); +S_4568:; +fornext_value399=*__LONG_START; +fornext_finalvalue399=*__LONG_N; +fornext_step399= 1 ; +if (fornext_step399<0) fornext_step_negative399=1; else fornext_step_negative399=0; +if (new_error) goto fornext_error399; +goto fornext_entrylabel399; +while(1){ +fornext_value399=fornext_step399+(*__LONG_I); +fornext_entrylabel399: +*__LONG_I=fornext_value399; +if (fornext_step_negative399){ +if (fornext_value399fornext_finalvalue399) break; +} +fornext_error399:; +if(qbevent){evnt(3741);if(r)goto S_4568;} +do{ +qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_U,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3742);}while(r); +S_4570:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len(":",1))))||new_error){ +if(qbevent){evnt(3745);if(r)goto S_4570;} +S_4571:; +if ((-(*__LONG_I==*__LONG_START))||new_error){ +if(qbevent){evnt(3746);if(r)goto S_4571;} +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(3747);}while(r); +S_4573:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(3747);if(r)goto S_4573;} +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(3747);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,qbs_new_txt_len(":",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3747);}while(r); +} +S_4578:; +if ((-(*__LONG_I!=*__LONG_N))||new_error){ +if(qbevent){evnt(3748);if(r)goto S_4578;} +do{ +*__LONG_CONTINUELINEFROM=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(3748);}while(r); +} +do{ +goto LABEL_FINISHEDNONEXEC; +if(!qbevent)break;evnt(3749);}while(r); +} +S_4583:; +if ((-(*__LONG_I!=*__LONG_N))||new_error){ +if(qbevent){evnt(3751);if(r)goto S_4583;} +do{ +*__LONG_CONTINUELINEFROM=*__LONG_I; +if(!qbevent)break;evnt(3751);}while(r); +} +do{ +goto LABEL_GOTCOMMAND; +if(!qbevent)break;evnt(3752);}while(r); +} +S_4588:; +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)))))||new_error){ +if(qbevent){evnt(3757);if(r)goto S_4588;} +do{ +*__LONG_NEWIF= 1 ; +if(!qbevent)break;evnt(3757);}while(r); +} +S_4591:; +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 ))))))||new_error){ +if(qbevent){evnt(3760);if(r)goto S_4591;} +S_4592:; +if ((-(*__LONG_NEWIF== 0 ))||new_error){ +if(qbevent){evnt(3761);if(r)goto S_4592;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("THEN without IF",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3761);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(3761);}while(r); +} +do{ +*__LONG_NEWIF= 0 ; +if(!qbevent)break;evnt(3762);}while(r); +S_4597:; +if ((-(*__LONG_LINEELSEUSED> 0 ))||new_error){ +if(qbevent){evnt(3763);if(r)goto S_4597;} +do{ +*__LONG_LINEELSEUSED=*__LONG_LINEELSEUSED- 1 ; +if(!qbevent)break;evnt(3763);}while(r); +} +S_4600:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("GOTO",4))))||new_error){ +if(qbevent){evnt(3764);if(r)goto S_4600;} +S_4601:; +if ((-(*__LONG_I==*__LONG_N))||new_error){ +if(qbevent){evnt(3765);if(r)goto S_4601;} +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(3765);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(3765);}while(r); +} +do{ +*__LONG_I=*__LONG_I- 1 ; +if(!qbevent)break;evnt(3766);}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(3768);}while(r); +S_4608:; +if ((-(*__LONG_I!=*__LONG_N))||new_error){ +if(qbevent){evnt(3769);if(r)goto S_4608;} +do{ +*__LONG_CONTINUELINEFROM=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(3769);}while(r); +do{ +*__LONG_ENDIFS=*__LONG_ENDIFS+ 1 ; +if(!qbevent)break;evnt(3769);}while(r); +} +do{ +goto LABEL_GOTCOMMAND; +if(!qbevent)break;evnt(3770);}while(r); +} +S_4614:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("ELSE",4))))||new_error){ +if(qbevent){evnt(3774);if(r)goto S_4614;} +S_4615:; +if ((-(*__LONG_START==*__LONG_I))||new_error){ +if(qbevent){evnt(3776);if(r)goto S_4615;} +S_4616:; +if ((-(*__LONG_LINEELSEUSED>= 1 ))||new_error){ +if(qbevent){evnt(3777);if(r)goto S_4616;} +do{ +*__LONG_IMPLIEDENDIF= 1 ; +if(!qbevent)break;evnt(3782);}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(3782);}while(r); +do{ +*__LONG_ENDIFS=*__LONG_ENDIFS- 1 ; +if(!qbevent)break;evnt(3783);}while(r); +do{ +*__LONG_CONTINUELINEFROM=*__LONG_I; +if(!qbevent)break;evnt(3784);}while(r); +do{ +*__LONG_LINEELSEUSED=*__LONG_LINEELSEUSED- 1 ; +if(!qbevent)break;evnt(3785);}while(r); +do{ +goto LABEL_GOTCOMMAND; +if(!qbevent)break;evnt(3786);}while(r); +} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("ELSE",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3789);}while(r); +do{ +*__LONG_CONTINUELINEFROM=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(3789);}while(r); +do{ +*__LONG_LINEELSEUSED=*__LONG_LINEELSEUSED+ 1 ; +if(!qbevent)break;evnt(3790);}while(r); +do{ +goto LABEL_GOTCOMMAND; +if(!qbevent)break;evnt(3791);}while(r); +} +do{ +*__LONG_CONTINUELINEFROM=*__LONG_I; +if(!qbevent)break;evnt(3795);}while(r); +do{ +goto LABEL_GOTCOMMAND; +if(!qbevent)break;evnt(3796);}while(r); +} +do{ +qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_ENTIRELINE,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3800);}while(r); +S_4633:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(3800);if(r)goto S_4633;} +do{ +qbs_set(__STRING_A,__STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3800);}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(3800);}while(r); +} +fornext_continue_398:; +} +fornext_exit_398:; +S_4639:; +if ((-(*__LONG_ENDIFS> 0 ))||new_error){ +if(qbevent){evnt(3805);if(r)goto S_4639;} +do{ +*__LONG_ENDIFS=*__LONG_ENDIFS- 1 ; +if(!qbevent)break;evnt(3806);}while(r); +do{ +*__LONG_IMPLIEDENDIF= 1 ; +if(!qbevent)break;evnt(3807);}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(3807);}while(r); +do{ +*__LONG_N=*__LONG_N+ 3 ; +if(!qbevent)break;evnt(3807);}while(r); +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(3808);}while(r); +do{ +*__LONG_CONTINUELINEFROM=*__LONG_I; +if(!qbevent)break;evnt(3809);}while(r); +do{ +goto LABEL_GOTCOMMAND; +if(!qbevent)break;evnt(3810);}while(r); +} +LABEL_GOTCOMMAND:; +if(qbevent){evnt(3814);r=0;} +do{ +*__LONG_DYNSCOPE= 0 ; +if(!qbevent)break;evnt(3816);}while(r); +do{ +qbs_set(__STRING_CA,__STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3818);}while(r); +do{ +qbs_set(__STRING_A,FUNC_ELEUCASE(__STRING_CA)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3819);}while(r); +do{ +*__LONG_LAYOUTDONE= 0 ; +if(!qbevent)break;evnt(3822);}while(r); +do{ +qbs_set(__STRING_LINEFRAGMENT,__STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3824);}while(r); +S_4653:; +if (( 0 )||new_error){ +if(qbevent){evnt(3825);if(r)goto S_4653;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip401; +sub_file_print(tmp_fileno,__STRING_A, 0, 0, 1); +if (new_error) goto skip401; +skip401: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(3825);}while(r); +} +do{ +*__LONG_N=FUNC_NUMELEMENTS(__STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3826);}while(r); +S_4657:; +if ((-(*__LONG_N== 0 ))||new_error){ +if(qbevent){evnt(3827);if(r)goto S_4657;} +do{ +goto LABEL_FINISHEDNONEXEC; +if(!qbevent)break;evnt(3827);}while(r); +} +S_4660:; +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)))||new_error){ +if(qbevent){evnt(3830);if(r)goto S_4660;} +do{ +qbs_set(__STRING_A3,FUNC_GETELEMENT(__STRING_CA,&(pass402= 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3831);}while(r); +do{ +*__LONG_EXCEPT= 0 ; +if(!qbevent)break;evnt(3832);}while(r); +do{ +qbs_set(__STRING_AA,qbs_add(__STRING_A3,__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3833);}while(r); +do{ +*__LONG_LASTFUSE= -1 ; +if(!qbevent)break;evnt(3834);}while(r); +S_4665:; +fornext_value404= 2 ; +fornext_finalvalue404=*__LONG_N; +fornext_step404= 1 ; +if (fornext_step404<0) fornext_step_negative404=1; else fornext_step_negative404=0; +if (new_error) goto fornext_error404; +goto fornext_entrylabel404; +while(1){ +fornext_value404=fornext_step404+(*__LONG_X); +fornext_entrylabel404: +*__LONG_X=fornext_value404; +if (fornext_step_negative404){ +if (fornext_value404fornext_finalvalue404) break; +} +fornext_error404:; +if(qbevent){evnt(3835);if(r)goto S_4665;} +do{ +qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_X)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3836);}while(r); +S_4667:; +if ((-(*__LONG_EXCEPT== 1 ))||new_error){ +if(qbevent){evnt(3837);if(r)goto S_4667;} +do{ +*__LONG_EXCEPT= 2 ; +if(!qbevent)break;evnt(3837);}while(r); +do{ +goto LABEL_UDTPERIOD; +if(!qbevent)break;evnt(3837);}while(r); +} +S_4671:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_A2,qbs_new_txt_len(".",1)))&(-(*__LONG_X!=*__LONG_N))))||new_error){ +if(qbevent){evnt(3838);if(r)goto S_4671;} +S_4672:; +if ((-(*__LONG_EXCEPT== 2 ))||new_error){ +if(qbevent){evnt(3839);if(r)goto S_4672;} +do{ +*__LONG_EXCEPT= 1 ; +if(!qbevent)break;evnt(3839);}while(r); +do{ +goto LABEL_UDTPERIOD; +if(!qbevent)break;evnt(3839);}while(r); +} +S_4676:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(3841);if(r)goto S_4676;} +do{ +*__LONG_EXCEPT= 1 ; +if(!qbevent)break;evnt(3843);}while(r); +do{ +goto LABEL_UDTPERIOD; +if(!qbevent)break;evnt(3844);}while(r); +} +do{ +*__LONG_TRY=FUNC_FINDID(qbs_ucase(__STRING_A3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3848);}while(r); +S_4681:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(3849);if(r)goto S_4681;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(3849);}while(r); +} +S_4684:; +while((*__LONG_TRY)||new_error){ +if(qbevent){evnt(3850);if(r)goto S_4684;} +S_4685:; +if (((-((*(int32*)(((char*)__UDT_ID)+(536))&*__LONG_ISUDT)!= 0 ))|(-((*(int32*)(((char*)__UDT_ID)+(512))&*__LONG_ISUDT)!= 0 )))||new_error){ +if(qbevent){evnt(3851);if(r)goto S_4685;} +do{ +*__LONG_EXCEPT= 1 ; +if(!qbevent)break;evnt(3852);}while(r); +do{ +goto LABEL_UDTPERIOD; +if(!qbevent)break;evnt(3853);}while(r); +} +S_4689:; +if ((-(*__LONG_TRY== 2 ))||new_error){ +if(qbevent){evnt(3855);if(r)goto S_4689;} +do{ +*__INTEGER_FINDANOTHERID= 1 ; +if(!qbevent)break;evnt(3855);}while(r); +do{ +*__LONG_TRY=FUNC_FINDID(qbs_ucase(__STRING_A3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3855);}while(r); +}else{ +do{ +*__LONG_TRY= 0 ; +if(!qbevent)break;evnt(3855);}while(r); +} +S_4695:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(3856);if(r)goto S_4695;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(3856);}while(r); +} +dl_continue_405:; +} +dl_exit_405:; +S_4699:; +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 )))))||new_error){ +if(qbevent){evnt(3859);if(r)goto S_4699;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Invalid '.'",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3859);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(3859);}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(3860);}while(r); +do{ +*__LONG_LASTFUSE=*__LONG_X; +if(!qbevent)break;evnt(3861);}while(r); +do{ +goto LABEL_PERIODFUSED; +if(!qbevent)break;evnt(3862);}while(r); +} +do{ +*__LONG_EXCEPT= 0 ; +if(!qbevent)break;evnt(3864);}while(r); +LABEL_UDTPERIOD:; +if(qbevent){evnt(3865);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(3866);}while(r); +LABEL_PERIODFUSED:; +if(qbevent){evnt(3867);r=0;} +do{ +qbs_set(__STRING_A3,__STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3868);}while(r); +fornext_continue_403:; +} +fornext_exit_403:; +do{ +qbs_set(__STRING_A,qbs_left(__STRING_AA,__STRING_AA->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3870);}while(r); +do{ +qbs_set(__STRING_CA,__STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3871);}while(r); +do{ +qbs_set(__STRING_A,FUNC_ELEUCASE(__STRING_CA)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3872);}while(r); +do{ +*__LONG_N=FUNC_NUMELEMENTS(__STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3873);}while(r); +} +do{ +*__INTEGER_ARRAYPROCESSINGHAPPENED= 0 ; +if(!qbevent)break;evnt(3876);}while(r); +do{ +qbs_set(__STRING_FIRSTELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass408= 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3878);}while(r); +do{ +qbs_set(__STRING_SECONDELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass409= 2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3879);}while(r); +do{ +qbs_set(__STRING_THIRDELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass410= 3 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3880);}while(r); +S_4720:; +if ((-(*__LONG_N== 1 ))||new_error){ +if(qbevent){evnt(3884);if(r)goto S_4720;} +S_4721:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("'",1))))||new_error){ +if(qbevent){evnt(3885);if(r)goto S_4721;} +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(3885);}while(r); +do{ +goto LABEL_FINISHEDNONEXEC; +if(!qbevent)break;evnt(3885);}while(r); +} +} +S_4726:; +if ((-(*__LONG_N<= 2 ))||new_error){ +if(qbevent){evnt(3888);if(r)goto S_4726;} +S_4727:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DATA",4))))||new_error){ +if(qbevent){evnt(3889);if(r)goto S_4727;} +do{ +qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Data",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3890);}while(r); +S_4729:; +if ((-(*__LONG_N== 2 ))||new_error){ +if(qbevent){evnt(3891);if(r)goto S_4729;} +do{ +qbs_set(__STRING_E,func_space((__STRING_SECONDELEMENT->len- 1 )/ 2 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3893);}while(r); +S_4731:; +fornext_value413= 1 ; +fornext_finalvalue413=__STRING_E->len; +fornext_step413= 1 ; +if (fornext_step413<0) fornext_step_negative413=1; else fornext_step_negative413=0; +if (new_error) goto fornext_error413; +goto fornext_entrylabel413; +while(1){ +fornext_value413=fornext_step413+(*__LONG_X); +fornext_entrylabel413: +*__LONG_X=fornext_value413; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative413){ +if (fornext_value413fornext_finalvalue413) break; +} +fornext_error413:; +if(qbevent){evnt(3894);if(r)goto S_4731;} +do{ +*__LONG_V1=qbs_asc(__STRING_SECONDELEMENT,*__LONG_X* 2 ); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3895);}while(r); +do{ +*__LONG_V2=qbs_asc(__STRING_SECONDELEMENT,(*__LONG_X* 2 )+( 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3896);}while(r); +S_4734:; +if ((-(*__LONG_V1< 65 ))||new_error){ +if(qbevent){evnt(3897);if(r)goto S_4734;} +do{ +*__LONG_V1=*__LONG_V1- 48 ; +if(!qbevent)break;evnt(3897);}while(r); +}else{ +do{ +*__LONG_V1=*__LONG_V1- 55 ; +if(!qbevent)break;evnt(3897);}while(r); +} +S_4739:; +if ((-(*__LONG_V2< 65 ))||new_error){ +if(qbevent){evnt(3898);if(r)goto S_4739;} +do{ +*__LONG_V2=*__LONG_V2- 48 ; +if(!qbevent)break;evnt(3898);}while(r); +}else{ +do{ +*__LONG_V2=*__LONG_V2- 55 ; +if(!qbevent)break;evnt(3898);}while(r); +} +do{ +tqbs=__STRING_E; if (!new_error){ +tmp_fileno=*__LONG_X; if (!new_error){ +tmp_long=*__LONG_V1+(*__LONG_V2* 16 ); if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(3899);}while(r); +fornext_continue_412:; +} +fornext_exit_412:; +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(3901);}while(r); +} +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(3904);}while(r); +S_4749:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(3904);if(r)goto S_4749;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3904);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3904);}while(r); +} +do{ +goto LABEL_FINISHEDNONEXEC; +if(!qbevent)break;evnt(3906);}while(r); +} +} +S_4757:; +if ((*__LONG_DECLARINGLIBRARY)||new_error){ +if(qbevent){evnt(3913);if(r)goto S_4757;} +S_4758:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("END",3))))||new_error){ +if(qbevent){evnt(3915);if(r)goto S_4758;} +S_4759:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_N!= 2 ))|(qbs_notequal(__STRING_SECONDELEMENT,qbs_new_txt_len("DECLARE",7)))))||new_error){ +if(qbevent){evnt(3916);if(r)goto S_4759;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected END DECLARE",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3916);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(3916);}while(r); +} +do{ +*__LONG_DECLARINGLIBRARY= 0 ; +if(!qbevent)break;evnt(3917);}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(3918);}while(r); +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(3919);}while(r); +S_4766:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(3919);if(r)goto S_4766;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3919);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3919);}while(r); +} +do{ +goto LABEL_FINISHEDNONEXEC; +if(!qbevent)break;evnt(3920);}while(r); +} +do{ +*__LONG_DECLARINGLIBRARY= 2 ; +if(!qbevent)break;evnt(3923);}while(r); +S_4774:; +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)))))||new_error){ +if(qbevent){evnt(3925);if(r)goto S_4774;} +do{ +goto LABEL_DECLARESUBFUNC2; +if(!qbevent)break;evnt(3926);}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(3929);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(3929);}while(r); +} +S_4780:; +if ((*__LONG_DEFININGTYPE)||new_error){ +if(qbevent){evnt(3933);if(r)goto S_4780;} +S_4781:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("END",3))))||new_error){ +if(qbevent){evnt(3935);if(r)goto S_4781;} +S_4782:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_N!= 2 ))|(qbs_notequal(__STRING_SECONDELEMENT,qbs_new_txt_len("TYPE",4)))))||new_error){ +if(qbevent){evnt(3936);if(r)goto S_4782;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected END TYPE",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3936);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(3936);}while(r); +} +do{ +*__LONG_DEFININGTYPE= 0 ; +if(!qbevent)break;evnt(3937);}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(3938);}while(r); +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(3939);}while(r); +S_4789:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(3939);if(r)goto S_4789;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3939);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3939);}while(r); +} +do{ +goto LABEL_FINISHEDNONEXEC; +if(!qbevent)break;evnt(3940);}while(r); +} +S_4796:; +if ((-(*__LONG_N< 3 ))||new_error){ +if(qbevent){evnt(3944);if(r)goto S_4796;} +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(3944);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(3944);}while(r); +} +do{ +*__LONG_DEFININGTYPE= 2 ; +if(!qbevent)break;evnt(3945);}while(r); +S_4801:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("AS",2))))||new_error){ +if(qbevent){evnt(3946);if(r)goto S_4801;} +do{ +qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("As",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3947);}while(r); +do{ +qbs_set(__STRING_T,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3948);}while(r); +do{ +*__LONG_WORDSINTYPENAME= 0 ; +if(!qbevent)break;evnt(3949);}while(r); +S_4805:; +do{ +if(qbevent){evnt(3950);if(r)goto S_4805;} +do{ +qbs_set(__STRING_NEXTELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass419= 2 +*__LONG_WORDSINTYPENAME))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3951);}while(r); +S_4807:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_NEXTELEMENT,qbs_new_txt_len(",",1))))||new_error){ +if(qbevent){evnt(3952);if(r)goto S_4807;} +do{ +*__LONG_WORDSINTYPENAME=*__LONG_WORDSINTYPENAME- 2 ; +if(!qbevent)break;evnt(3954);}while(r); +do{ +goto dl_exit_418; +if(!qbevent)break;evnt(3955);}while(r); +} +do{ +*__LONG_WORDSINTYPENAME=*__LONG_WORDSINTYPENAME+ 1 ; +if(!qbevent)break;evnt(3958);}while(r); +S_4812:; +if ((-(*__LONG_WORDSINTYPENAME==(*__LONG_N- 2 )))||new_error){ +if(qbevent){evnt(3959);if(r)goto S_4812;} +do{ +*__LONG_WORDSINTYPENAME=*__LONG_WORDSINTYPENAME- 1 ; +if(!qbevent)break;evnt(3961);}while(r); +do{ +goto dl_exit_418; +if(!qbevent)break;evnt(3962);}while(r); +} +dl_continue_418:; +}while(1); +dl_exit_418:; +do{ +qbs_set(__STRING_T,FUNC_GETELEMENTS(__STRING_A,&(pass420= 2 ),&(pass421= 2 +*__LONG_WORDSINTYPENAME))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3966);}while(r); +do{ +*__LONG_TYP=FUNC_TYPNAME2TYP(__STRING_T); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3967);}while(r); +S_4819:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(3968);if(r)goto S_4819;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(3968);}while(r); +} +S_4822:; +if ((-(*__LONG_TYP== 0 ))||new_error){ +if(qbevent){evnt(3969);if(r)goto S_4822;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Undefined type",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3969);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(3969);}while(r); +} +S_4826:; +if ((*__LONG_TYP&*__LONG_ISUDT)||new_error){ +if(qbevent){evnt(3970);if(r)goto S_4826;} +S_4827:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(qbs_rtrim(__STRING_T)),qbs_new_txt_len("MEM",3)))&(qbs_equal(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_new_txt_len("_MEM",4)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))||new_error){ +if(qbevent){evnt(3971);if(r)goto S_4827;} +do{ +qbs_set(__STRING_T,func_mid(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)), 2 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3972);}while(r); +}else{ +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(3974);}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(3976);}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(3978);}while(r); +} +S_4836:; +fornext_value423= 3 +*__LONG_WORDSINTYPENAME; +fornext_finalvalue423=*__LONG_N; +fornext_step423= 1 ; +if (fornext_step423<0) fornext_step_negative423=1; else fornext_step_negative423=0; +if (new_error) goto fornext_error423; +goto fornext_entrylabel423; +while(1){ +fornext_value423=fornext_step423+(*__LONG_I); +fornext_entrylabel423: +*__LONG_I=fornext_value423; +if (fornext_step_negative423){ +if (fornext_value423fornext_finalvalue423) break; +} +fornext_error423:; +if(qbevent){evnt(3982);if(r)goto S_4836;} +do{ +qbs_set(__STRING_THISELEMENT,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3983);}while(r); +S_4838:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_THISELEMENT,qbs_new_txt_len(",",1))))||new_error){ +if(qbevent){evnt(3984);if(r)goto S_4838;} +do{ +qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_THISELEMENT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3985);}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(3987);}while(r); +} +fornext_continue_422:; +} +fornext_exit_422:; +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(3990);}while(r); +S_4845:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(3990);if(r)goto S_4845;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3990);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3990);}while(r); +} +}else{ +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(FUNC_GETELEMENT(__STRING_CA,&(pass425= 1 )),__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("As",2)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3992);}while(r); +do{ +qbs_set(__STRING_T,FUNC_GETELEMENTS(__STRING_A,&(pass426= 3 ),__LONG_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3993);}while(r); +do{ +*__LONG_TYP=FUNC_TYPNAME2TYP(__STRING_T); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3994);}while(r); +S_4854:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(3995);if(r)goto S_4854;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(3995);}while(r); +} +S_4857:; +if ((-(*__LONG_TYP== 0 ))||new_error){ +if(qbevent){evnt(3996);if(r)goto S_4857;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Undefined type",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3996);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(3996);}while(r); +} +S_4861:; +if ((*__LONG_TYP&*__LONG_ISUDT)||new_error){ +if(qbevent){evnt(3997);if(r)goto S_4861;} +S_4862:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(qbs_rtrim(__STRING_T)),qbs_new_txt_len("MEM",3)))&(qbs_equal(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_new_txt_len("_MEM",4)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))||new_error){ +if(qbevent){evnt(3998);if(r)goto S_4862;} +do{ +qbs_set(__STRING_T,func_mid(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)), 2 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(3999);}while(r); +}else{ +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(4001);}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(4003);}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(4005);}while(r); +} +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(4007);}while(r); +S_4872:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(4007);if(r)goto S_4872;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4007);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4007);}while(r); +} +} +do{ +goto LABEL_FINISHEDNONEXEC; +if(!qbevent)break;evnt(4009);}while(r); +} +S_4880:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("TYPE",4))))||new_error){ +if(qbevent){evnt(4013);if(r)goto S_4880;} +S_4881:; +if ((-(*__LONG_N!= 2 ))||new_error){ +if(qbevent){evnt(4014);if(r)goto S_4881;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected TYPE type-name",23)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4014);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(4014);}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,&(pass428= 2 )))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4015);}while(r); +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(4016);}while(r); +S_4887:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(4016);if(r)goto S_4887;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4016);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4016);}while(r); +} +do{ +*__LONG_DEFININGTYPE= 1 ; +if(!qbevent)break;evnt(4017);}while(r); +do{ +*__LONG_DEFININGTYPEERROR=*__LONG_LINENUMBER; +if(!qbevent)break;evnt(4018);}while(r); +do{ +goto LABEL_FINISHEDNONEXEC; +if(!qbevent)break;evnt(4019);}while(r); +} +S_4896:; +if ((-(*__LONG_N>= 1 ))||new_error){ +if(qbevent){evnt(4023);if(r)goto S_4896;} +S_4897:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DECLARE",7))))||new_error){ +if(qbevent){evnt(4024);if(r)goto S_4897;} +S_4898:; +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)))))||new_error){ +if(qbevent){evnt(4026);if(r)goto S_4898;} +do{ +*__LONG_DECLARINGLIBRARY= 1 ; +if(!qbevent)break;evnt(4028);}while(r); +do{ +*__LONG_DYNAMICLIBRARY= 0 ; +if(!qbevent)break;evnt(4029);}while(r); +do{ +*__LONG_CUSTOMTYPELIBRARY= 0 ; +if(!qbevent)break;evnt(4030);}while(r); +do{ +*__LONG_INDIRECTLIBRARY= 0 ; +if(!qbevent)break;evnt(4031);}while(r); +do{ +*__LONG_STATICLINKEDLIBRARY= 0 ; +if(!qbevent)break;evnt(4032);}while(r); +do{ +*__LONG_X= 3 ; +if(!qbevent)break;evnt(4034);}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(4035);}while(r); +S_4906:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("DYNAMIC",7))))||new_error){ +if(qbevent){evnt(4037);if(r)goto S_4906;} +do{ +qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,&(pass430= 3 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4038);}while(r); +S_4908:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len("LIBRARY",7))))||new_error){ +if(qbevent){evnt(4038);if(r)goto S_4908;} +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(4038);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(4038);}while(r); +} +do{ +*__LONG_DYNAMICLIBRARY= 1 ; +if(!qbevent)break;evnt(4039);}while(r); +do{ +*__LONG_X= 4 ; +if(!qbevent)break;evnt(4040);}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(4041);}while(r); +S_4915:; +if ((-(*__LONG_N== 3 ))||new_error){ +if(qbevent){evnt(4042);if(r)goto S_4915;} +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(4042);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(4042);}while(r); +} +do{ +*__LONG_INDIRECTLIBRARY= 1 ; +if(!qbevent)break;evnt(4043);}while(r); +} +S_4921:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("CUSTOMTYPE",10))))||new_error){ +if(qbevent){evnt(4046);if(r)goto S_4921;} +do{ +qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,&(pass431= 3 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4047);}while(r); +S_4923:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len("LIBRARY",7))))||new_error){ +if(qbevent){evnt(4047);if(r)goto S_4923;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected CUSTOMTYPE LIBRARY",27)); +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{ +*__LONG_CUSTOMTYPELIBRARY= 1 ; +if(!qbevent)break;evnt(4048);}while(r); +do{ +*__LONG_X= 4 ; +if(!qbevent)break;evnt(4049);}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(4050);}while(r); +do{ +*__LONG_INDIRECTLIBRARY= 1 ; +if(!qbevent)break;evnt(4051);}while(r); +} +S_4932:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("STATIC",6))))||new_error){ +if(qbevent){evnt(4054);if(r)goto S_4932;} +do{ +qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,&(pass432= 3 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4055);}while(r); +S_4934:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len("LIBRARY",7))))||new_error){ +if(qbevent){evnt(4055);if(r)goto S_4934;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected STATIC LIBRARY",23)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4055);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(4055);}while(r); +} +do{ +*__LONG_X= 4 ; +if(!qbevent)break;evnt(4056);}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(4057);}while(r); +do{ +*__LONG_STATICLINKEDLIBRARY= 1 ; +if(!qbevent)break;evnt(4058);}while(r); +} +do{ +*__LONG_SFDECLARE= 0 ; +if(!qbevent)break;evnt(4061);}while(r); +do{ +*__LONG_SFHEADER= 0 ; +if(!qbevent)break;evnt(4061);}while(r); +S_4944:; +if ((-(*__LONG_N>=*__LONG_X))||new_error){ +if(qbevent){evnt(4063);if(r)goto S_4944;} +do{ +*__LONG_SFDECLARE= 1 ; +if(!qbevent)break;evnt(4065);}while(r); +LABEL_ADDLIBRARY:; +if(qbevent){evnt(4067);r=0;} +do{ +qbs_set(__STRING_LIBNAME,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4069);}while(r); +do{ +qbs_set(__STRING_HEADERNAME,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4070);}while(r); +do{ +qbs_set(__STRING_X,FUNC_GETELEMENT(__STRING_CA,__LONG_X)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4075);}while(r); +S_4949:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_X)!= 34 )))||new_error){ +if(qbevent){evnt(4076);if(r)goto S_4949;} +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(4076);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(4076);}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(4077);}while(r); +do{ +*__LONG_Z=func_instr(NULL,__STRING_X,func_chr( 34 ),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4078);}while(r); +S_4955:; +if ((-(*__LONG_Z== 0 ))||new_error){ +if(qbevent){evnt(4079);if(r)goto S_4955;} +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(4079);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(4079);}while(r); +} +do{ +qbs_set(__STRING_X,qbs_left(__STRING_X,*__LONG_Z- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4080);}while(r); +S_4960:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_DYNAMICLIBRARY!= 0 ))&(-(__STRING_X->len== 0 ))))||new_error){ +if(qbevent){evnt(4082);if(r)goto S_4960;} +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(4082);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(4082);}while(r); +} +S_4964:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_CUSTOMTYPELIBRARY!= 0 ))&(-(__STRING_X->len== 0 ))))||new_error){ +if(qbevent){evnt(4083);if(r)goto S_4964;} +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(4083);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(4083);}while(r); +} +S_4968:; +while((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_X,qbs_new_txt_len("\\\\",2),0)))||new_error){ +if(qbevent){evnt(4098);if(r)goto S_4968;} +do{ +*__LONG_Z=func_instr(NULL,__STRING_X,qbs_new_txt_len("\\\\",2),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4099);}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(4100);}while(r); +ww_continue_436:; +} +ww_exit_436:; +do{ +qbs_set(__STRING_AUTOFORMAT_X,__STRING_X); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4103);}while(r); +do{ +qbs_set(__STRING_V,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4107);}while(r); +LABEL_STRIPLIBVER:; +if(qbevent){evnt(4108);r=0;} +S_4974:; +fornext_value439=__STRING_X->len; +fornext_finalvalue439= 1 ; +fornext_step439= -1 ; +if (fornext_step439<0) fornext_step_negative439=1; else fornext_step_negative439=0; +if (new_error) goto fornext_error439; +goto fornext_entrylabel439; +while(1){ +fornext_value439=fornext_step439+(*__LONG_Z); +fornext_entrylabel439: +*__LONG_Z=fornext_value439; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative439){ +if (fornext_value439fornext_finalvalue439) break; +} +fornext_error439:; +if(qbevent){evnt(4109);if(r)goto S_4974;} +do{ +*__LONG_A=qbs_asc(__STRING_X,*__LONG_Z); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4110);}while(r); +S_4976:; +if (((-(*__LONG_A== 92 ))|(-(*__LONG_A== 47 )))||new_error){ +if(qbevent){evnt(4111);if(r)goto S_4976;} +do{ +goto fornext_exit_438; +if(!qbevent)break;evnt(4111);}while(r); +} +S_4979:; +if (((-(*__LONG_A== 46 ))|(-(*__LONG_A== 58 )))||new_error){ +if(qbevent){evnt(4112);if(r)goto S_4979;} +S_4980:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_ISUINTEGER(qbs_right(__STRING_X,__STRING_X->len-*__LONG_Z))))||new_error){ +if(qbevent){evnt(4113);if(r)goto S_4980;} +S_4981:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_V->len))||new_error){ +if(qbevent){evnt(4114);if(r)goto S_4981;} +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(4114);}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(4114);}while(r); +} +do{ +qbs_set(__STRING_X,qbs_left(__STRING_X,*__LONG_Z- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4115);}while(r); +S_4987:; +if ((-(*__LONG_A== 58 ))||new_error){ +if(qbevent){evnt(4116);if(r)goto S_4987;} +do{ +goto fornext_exit_438; +if(!qbevent)break;evnt(4116);}while(r); +} +do{ +goto LABEL_STRIPLIBVER; +if(!qbevent)break;evnt(4117);}while(r); +}else{ +do{ +goto fornext_exit_438; +if(!qbevent)break;evnt(4119);}while(r); +} +} +fornext_continue_438:; +} +fornext_exit_438:; +do{ +qbs_set(__STRING_LIBVER,__STRING_V); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4123);}while(r); +S_4997:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ +if(qbevent){evnt(4126);if(r)goto S_4997;} +S_4998:; +while((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_X,qbs_new_txt_len("/",1),0)))||new_error){ +if(qbevent){evnt(4128);if(r)goto S_4998;} +do{ +*__LONG_Z=func_instr(NULL,__STRING_X,qbs_new_txt_len("/",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4129);}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(4130);}while(r); +dl_continue_445:; +} +dl_exit_445:; +} +S_5003:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ +if(qbevent){evnt(4134);if(r)goto S_5003;} +S_5004:; +while((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_X,qbs_new_txt_len("\\",1),0)))||new_error){ +if(qbevent){evnt(4136);if(r)goto S_5004;} +do{ +*__LONG_Z=func_instr(NULL,__STRING_X,qbs_new_txt_len("\\",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4137);}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(4138);}while(r); +dl_continue_447:; +} +dl_exit_447:; +} +do{ +qbs_set(__STRING_LIBPATH,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4143);}while(r); +S_5010:; +fornext_value450=__STRING_X->len; +fornext_finalvalue450= 1 ; +fornext_step450= -1 ; +if (fornext_step450<0) fornext_step_negative450=1; else fornext_step_negative450=0; +if (new_error) goto fornext_error450; +goto fornext_entrylabel450; +while(1){ +fornext_value450=fornext_step450+(*__LONG_Z); +fornext_entrylabel450: +*__LONG_Z=fornext_value450; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative450){ +if (fornext_value450fornext_finalvalue450) break; +} +fornext_error450:; +if(qbevent){evnt(4144);if(r)goto S_5010;} +do{ +*__LONG_A=qbs_asc(__STRING_X,*__LONG_Z); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4145);}while(r); +S_5012:; +if (((-(*__LONG_A== 47 ))|(-(*__LONG_A== 92 )))||new_error){ +if(qbevent){evnt(4146);if(r)goto S_5012;} +do{ +qbs_set(__STRING_LIBPATH,qbs_left(__STRING_X,*__LONG_Z)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4147);}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(4148);}while(r); +do{ +goto fornext_exit_449; +if(!qbevent)break;evnt(4149);}while(r); +} +fornext_continue_449:; +} +fornext_exit_449:; +do{ +qbs_set(__STRING_OG_LIBPATH,__STRING_LIBPATH); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4153);}while(r); +S_5019:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_LIBPATH,qbs_new_txt_len("./",2)))|(qbs_equal(__STRING_LIBPATH,qbs_new_txt_len(".\\",2)))))||new_error){ +if(qbevent){evnt(4157);if(r)goto S_5019;} +do{ +qbs_set(__STRING_LIBPATH,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4158);}while(r); +S_5021:; +if ((*__LONG_NOIDEMODE)||new_error){ +if(qbevent){evnt(4159);if(r)goto S_5021;} +do{ +qbs_set(__STRING_LIBPATH,FUNC_FIXDIRECTORYNAME(__STRING_PATH__ASCII_CHR_046__SOURCE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4160);}while(r); +}else{ +S_5024:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_IDEPROGNAME->len))||new_error){ +if(qbevent){evnt(4162);if(r)goto S_5024;} +do{ +qbs_set(__STRING_LIBPATH,qbs_add(__STRING_IDEPATH,__STRING1_PATHSEP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4162);}while(r); +} +} +} +do{ +qbs_set(__STRING_LIBPATH_INLINE,FUNC_GETESCAPEDPATH(__STRING_LIBPATH)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4167);}while(r); +S_5030:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_X->len))||new_error){ +if(qbevent){evnt(4169);if(r)goto S_5030;} +S_5031:; +if ((-(*__LONG_DYNAMICLIBRARY== 0 ))||new_error){ +if(qbevent){evnt(4170);if(r)goto S_5031;} +S_5032:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ +if(qbevent){evnt(4173);if(r)goto S_5032;} +S_5033:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ +if(qbevent){evnt(4175);if(r)goto S_5033;} +S_5034:; +if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(__STRING_LIBPATH,__STRING_X),qbs_new_txt_len(".lib",4)))))||new_error){ +if(qbevent){evnt(4176);if(r)goto S_5034;} +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(4177);}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(4178);}while(r); +} +} +S_5039:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ +if(qbevent){evnt(4182);if(r)goto S_5039;} +S_5040:; +if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(__STRING_LIBPATH,__STRING_X),qbs_new_txt_len(".a",2)))))||new_error){ +if(qbevent){evnt(4183);if(r)goto S_5040;} +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(4184);}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(4185);}while(r); +} +} +S_5045:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ +if(qbevent){evnt(4189);if(r)goto S_5045;} +S_5046:; +if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(__STRING_LIBPATH,__STRING_X),qbs_new_txt_len(".o",2)))))||new_error){ +if(qbevent){evnt(4190);if(r)goto S_5046;} +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(4191);}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(4192);}while(r); +} +} +S_5051:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ +if(qbevent){evnt(4196);if(r)goto S_5051;} +S_5052:; +if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(__STRING_X,qbs_new_txt_len(".lib",4)))))||new_error){ +if(qbevent){evnt(4197);if(r)goto S_5052;} +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(4198);}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(4199);}while(r); +} +} +S_5057:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ +if(qbevent){evnt(4203);if(r)goto S_5057;} +S_5058:; +if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(__STRING_X,qbs_new_txt_len(".a",2)))))||new_error){ +if(qbevent){evnt(4204);if(r)goto S_5058;} +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(4205);}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(4206);}while(r); +} +} +S_5063:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ +if(qbevent){evnt(4210);if(r)goto S_5063;} +S_5064:; +if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(__STRING_X,qbs_new_txt_len(".o",2)))))||new_error){ +if(qbevent){evnt(4211);if(r)goto S_5064;} +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(4212);}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(4213);}while(r); +} +} +} +S_5070:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ +if(qbevent){evnt(4218);if(r)goto S_5070;} +S_5071:; +if ((-(*__LONG_STATICLINKEDLIBRARY== 0 ))||new_error){ +if(qbevent){evnt(4219);if(r)goto S_5071;} +S_5072:; +if ((*__LONG_MACOSX)||new_error){ +if(qbevent){evnt(4221);if(r)goto S_5072;} +S_5073:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ +if(qbevent){evnt(4223);if(r)goto S_5073;} +S_5074:; +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)))))||new_error){ +if(qbevent){evnt(4224);if(r)goto S_5074;} +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(4225);}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(4226);}while(r); +S_5077:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||new_error){ +if(qbevent){evnt(4227);if(r)goto S_5077;} +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(4227);}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(4227);}while(r); +} +} +} +S_5084:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ +if(qbevent){evnt(4230);if(r)goto S_5084;} +S_5085:; +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)))))||new_error){ +if(qbevent){evnt(4231);if(r)goto S_5085;} +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(4232);}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(4233);}while(r); +S_5088:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||new_error){ +if(qbevent){evnt(4234);if(r)goto S_5088;} +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(4234);}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(4234);}while(r); +} +} +} +} +S_5096:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ +if(qbevent){evnt(4240);if(r)goto S_5096;} +S_5097:; +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))))||new_error){ +if(qbevent){evnt(4241);if(r)goto S_5097;} +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(4242);}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(4243);}while(r); +S_5100:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||new_error){ +if(qbevent){evnt(4244);if(r)goto S_5100;} +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(4244);}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(4244);}while(r); +} +} +} +S_5107:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ +if(qbevent){evnt(4247);if(r)goto S_5107;} +S_5108:; +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)))))||new_error){ +if(qbevent){evnt(4248);if(r)goto S_5108;} +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(4249);}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(4250);}while(r); +S_5111:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||new_error){ +if(qbevent){evnt(4251);if(r)goto S_5111;} +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(4251);}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(4251);}while(r); +} +} +} +} +S_5119:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ +if(qbevent){evnt(4256);if(r)goto S_5119;} +S_5120:; +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)))))||new_error){ +if(qbevent){evnt(4257);if(r)goto S_5120;} +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(4258);}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(4259);}while(r); +} +} +S_5125:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ +if(qbevent){evnt(4263);if(r)goto S_5125;} +S_5126:; +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)))))||new_error){ +if(qbevent){evnt(4264);if(r)goto S_5126;} +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(4265);}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(4266);}while(r); +} +} +S_5131:; +if ((-(*__LONG_STATICLINKEDLIBRARY== 0 ))||new_error){ +if(qbevent){evnt(4269);if(r)goto S_5131;} +S_5132:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ +if(qbevent){evnt(4271);if(r)goto S_5132;} +S_5133:; +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))))||new_error){ +if(qbevent){evnt(4272);if(r)goto S_5133;} +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(4273);}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(4274);}while(r); +S_5136:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||new_error){ +if(qbevent){evnt(4275);if(r)goto S_5136;} +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(4275);}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(4275);}while(r); +} +} +} +S_5143:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ +if(qbevent){evnt(4278);if(r)goto S_5143;} +S_5144:; +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)))))||new_error){ +if(qbevent){evnt(4279);if(r)goto S_5144;} +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(4280);}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(4281);}while(r); +S_5147:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||new_error){ +if(qbevent){evnt(4282);if(r)goto S_5147;} +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(4282);}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(4282);}while(r); +} +} +} +} +S_5155:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ +if(qbevent){evnt(4287);if(r)goto S_5155;} +S_5156:; +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)))))||new_error){ +if(qbevent){evnt(4288);if(r)goto S_5156;} +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(4289);}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(4290);}while(r); +} +} +S_5161:; +if ((-(*__LONG_STATICLINKEDLIBRARY== 0 ))||new_error){ +if(qbevent){evnt(4293);if(r)goto S_5161;} +S_5162:; +if ((*__LONG_MACOSX)||new_error){ +if(qbevent){evnt(4295);if(r)goto S_5162;} +S_5163:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ +if(qbevent){evnt(4297);if(r)goto S_5163;} +S_5164:; +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)))))||new_error){ +if(qbevent){evnt(4298);if(r)goto S_5164;} +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(4299);}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(4300);}while(r); +S_5167:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||new_error){ +if(qbevent){evnt(4301);if(r)goto S_5167;} +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(4301);}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(4301);}while(r); +} +} +} +S_5174:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ +if(qbevent){evnt(4304);if(r)goto S_5174;} +S_5175:; +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)))))||new_error){ +if(qbevent){evnt(4305);if(r)goto S_5175;} +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(4306);}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(4307);}while(r); +S_5178:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||new_error){ +if(qbevent){evnt(4308);if(r)goto S_5178;} +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(4308);}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(4308);}while(r); +} +} +} +} +S_5186:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ +if(qbevent){evnt(4314);if(r)goto S_5186;} +S_5187:; +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))))||new_error){ +if(qbevent){evnt(4315);if(r)goto S_5187;} +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(4316);}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(4317);}while(r); +S_5190:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||new_error){ +if(qbevent){evnt(4318);if(r)goto S_5190;} +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(4318);}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(4318);}while(r); +} +} +} +S_5197:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ +if(qbevent){evnt(4321);if(r)goto S_5197;} +S_5198:; +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)))))||new_error){ +if(qbevent){evnt(4322);if(r)goto S_5198;} +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(4323);}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(4324);}while(r); +S_5201:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBPATH->len))||new_error){ +if(qbevent){evnt(4325);if(r)goto S_5201;} +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(4325);}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(4325);}while(r); +} +} +} +} +S_5209:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ +if(qbevent){evnt(4330);if(r)goto S_5209;} +S_5210:; +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)))))||new_error){ +if(qbevent){evnt(4331);if(r)goto S_5210;} +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(4332);}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(4333);}while(r); +} +} +S_5215:; +if ((-(*__LONG_STATICLINKEDLIBRARY== 0 ))||new_error){ +if(qbevent){evnt(4337);if(r)goto S_5215;} +S_5216:; +if ((*__LONG_MACOSX)||new_error){ +if(qbevent){evnt(4339);if(r)goto S_5216;} +S_5217:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ +if(qbevent){evnt(4341);if(r)goto S_5217;} +S_5218:; +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)))))||new_error){ +if(qbevent){evnt(4342);if(r)goto S_5218;} +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(4343);}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(4344);}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(4345);}while(r); +} +} +S_5224:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ +if(qbevent){evnt(4348);if(r)goto S_5224;} +S_5225:; +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)))))||new_error){ +if(qbevent){evnt(4349);if(r)goto S_5225;} +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(4350);}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(4351);}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(4352);}while(r); +} +} +} +S_5232:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ +if(qbevent){evnt(4358);if(r)goto S_5232;} +S_5233:; +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))))||new_error){ +if(qbevent){evnt(4359);if(r)goto S_5233;} +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(4360);}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(4361);}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(4362);}while(r); +} +} +S_5239:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ +if(qbevent){evnt(4365);if(r)goto S_5239;} +S_5240:; +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)))))||new_error){ +if(qbevent){evnt(4366);if(r)goto S_5240;} +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(4367);}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(4368);}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(4369);}while(r); +} +} +} +S_5247:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ +if(qbevent){evnt(4374);if(r)goto S_5247;} +S_5248:; +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)))))||new_error){ +if(qbevent){evnt(4375);if(r)goto S_5248;} +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(4376);}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(4377);}while(r); +} +} +S_5253:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ +if(qbevent){evnt(4381);if(r)goto S_5253;} +S_5254:; +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)))))||new_error){ +if(qbevent){evnt(4382);if(r)goto S_5254;} +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(4383);}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(4384);}while(r); +} +} +S_5259:; +if ((-(*__LONG_STATICLINKEDLIBRARY== 0 ))||new_error){ +if(qbevent){evnt(4387);if(r)goto S_5259;} +S_5260:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ +if(qbevent){evnt(4389);if(r)goto S_5260;} +S_5261:; +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))))||new_error){ +if(qbevent){evnt(4390);if(r)goto S_5261;} +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(4391);}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(4392);}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(4393);}while(r); +} +} +S_5267:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ +if(qbevent){evnt(4396);if(r)goto S_5267;} +S_5268:; +if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib64/",11),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".so",3)))))||new_error){ +if(qbevent){evnt(4397);if(r)goto S_5268;} +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(4398);}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(4399);}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(4400);}while(r); +} +} +} +S_5275:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ +if(qbevent){evnt(4405);if(r)goto S_5275;} +S_5276:; +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)))))||new_error){ +if(qbevent){evnt(4406);if(r)goto S_5276;} +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(4407);}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(4408);}while(r); +} +} +S_5281:; +if ((-(*__LONG_STATICLINKEDLIBRARY== 0 ))||new_error){ +if(qbevent){evnt(4411);if(r)goto S_5281;} +S_5282:; +if ((*__LONG_MACOSX)||new_error){ +if(qbevent){evnt(4413);if(r)goto S_5282;} +S_5283:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ +if(qbevent){evnt(4415);if(r)goto S_5283;} +S_5284:; +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)))))||new_error){ +if(qbevent){evnt(4416);if(r)goto S_5284;} +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(4417);}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(4418);}while(r); +} +} +S_5289:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ +if(qbevent){evnt(4421);if(r)goto S_5289;} +S_5290:; +if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".dylib",6)))))||new_error){ +if(qbevent){evnt(4422);if(r)goto S_5290;} +do{ +qbs_set(__STRING_LIBNAME,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("/usr/lib/",9),qbs_new_txt_len("lib",3)),__STRING_X),qbs_new_txt_len(".dylib",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4423);}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(4424);}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(4425);}while(r); +} +} +} +S_5297:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ +if(qbevent){evnt(4431);if(r)goto S_5297;} +S_5298:; +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))))||new_error){ +if(qbevent){evnt(4432);if(r)goto S_5298;} +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(4433);}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(4434);}while(r); +} +} +S_5303:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ +if(qbevent){evnt(4437);if(r)goto S_5303;} +S_5304:; +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)))))||new_error){ +if(qbevent){evnt(4438);if(r)goto S_5304;} +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(4439);}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(4440);}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(4441);}while(r); +} +} +} +S_5311:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ +if(qbevent){evnt(4446);if(r)goto S_5311;} +S_5312:; +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)))))||new_error){ +if(qbevent){evnt(4447);if(r)goto S_5312;} +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(4448);}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(4449);}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(4450);}while(r); +} +} +} +S_5319:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_HEADERNAME->len== 0 )))||new_error){ +if(qbevent){evnt(4457);if(r)goto S_5319;} +S_5320:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ +if(qbevent){evnt(4458);if(r)goto S_5320;} +S_5321:; +if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(__STRING_LIBPATH,__STRING_X),qbs_new_txt_len(".h",2)))))||new_error){ +if(qbevent){evnt(4459);if(r)goto S_5321;} +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(4460);}while(r); +S_5323:; +if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||new_error){ +if(qbevent){evnt(4461);if(r)goto S_5323;} +do{ +*__LONG_SFDECLARE= 0 ; +if(!qbevent)break;evnt(4461);}while(r); +} +do{ +*__LONG_SFHEADER= 1 ; +if(!qbevent)break;evnt(4462);}while(r); +do{ +goto LABEL_GOTHEADER; +if(!qbevent)break;evnt(4463);}while(r); +} +S_5329:; +if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(__STRING_LIBPATH,__STRING_X),qbs_new_txt_len(".hpp",4)))))||new_error){ +if(qbevent){evnt(4465);if(r)goto S_5329;} +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(4466);}while(r); +S_5331:; +if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||new_error){ +if(qbevent){evnt(4467);if(r)goto S_5331;} +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_5337:; +if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(__STRING_X,qbs_new_txt_len(".h",2)))))||new_error){ +if(qbevent){evnt(4472);if(r)goto S_5337;} +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(4473);}while(r); +S_5339:; +if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||new_error){ +if(qbevent){evnt(4474);if(r)goto S_5339;} +do{ +*__LONG_SFDECLARE= 0 ; +if(!qbevent)break;evnt(4474);}while(r); +} +do{ +*__LONG_SFHEADER= 1 ; +if(!qbevent)break;evnt(4475);}while(r); +do{ +goto LABEL_GOTHEADER; +if(!qbevent)break;evnt(4476);}while(r); +} +S_5345:; +if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(__STRING_X,qbs_new_txt_len(".hpp",4)))))||new_error){ +if(qbevent){evnt(4478);if(r)goto S_5345;} +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(4479);}while(r); +S_5347:; +if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||new_error){ +if(qbevent){evnt(4480);if(r)goto S_5347;} +do{ +*__LONG_SFDECLARE= 0 ; +if(!qbevent)break;evnt(4480);}while(r); +} +do{ +*__LONG_SFHEADER= 1 ; +if(!qbevent)break;evnt(4481);}while(r); +do{ +goto LABEL_GOTHEADER; +if(!qbevent)break;evnt(4482);}while(r); +} +S_5353:; +if ((-(*__LONG_INCLEVEL> 0 ))||new_error){ +if(qbevent){evnt(4485);if(r)goto S_5353;} +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(4486);}while(r); +}else{ +do{ +qbs_set(__STRING_LIBPATH,qbs_add(FUNC_FIXDIRECTORYNAME(__STRING_IDEPATH),__STRING_OG_LIBPATH)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4488);}while(r); +} +do{ +qbs_set(__STRING_LIBPATH_INLINE,FUNC_GETESCAPEDPATH(__STRING_LIBPATH)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4490);}while(r); +S_5359:; +if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(__STRING_LIBPATH,__STRING_X),qbs_new_txt_len(".h",2)))))||new_error){ +if(qbevent){evnt(4491);if(r)goto S_5359;} +do{ +qbs_set(__STRING_HEADERNAME,qbs_add(qbs_add(__STRING_LIBPATH_INLINE,__STRING_X),qbs_new_txt_len(".h",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4492);}while(r); +S_5361:; +if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||new_error){ +if(qbevent){evnt(4493);if(r)goto S_5361;} +do{ +*__LONG_SFDECLARE= 0 ; +if(!qbevent)break;evnt(4493);}while(r); +} +do{ +*__LONG_SFHEADER= 1 ; +if(!qbevent)break;evnt(4494);}while(r); +do{ +goto LABEL_GOTHEADER; +if(!qbevent)break;evnt(4495);}while(r); +} +S_5367:; +if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(__STRING_LIBPATH,__STRING_X),qbs_new_txt_len(".hpp",4)))))||new_error){ +if(qbevent){evnt(4497);if(r)goto S_5367;} +do{ +qbs_set(__STRING_HEADERNAME,qbs_add(qbs_add(__STRING_LIBPATH_INLINE,__STRING_X),qbs_new_txt_len(".hpp",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4498);}while(r); +S_5369:; +if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||new_error){ +if(qbevent){evnt(4499);if(r)goto S_5369;} +do{ +*__LONG_SFDECLARE= 0 ; +if(!qbevent)break;evnt(4499);}while(r); +} +do{ +*__LONG_SFHEADER= 1 ; +if(!qbevent)break;evnt(4500);}while(r); +do{ +goto LABEL_GOTHEADER; +if(!qbevent)break;evnt(4501);}while(r); +} +} +S_5376:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ +if(qbevent){evnt(4505);if(r)goto S_5376;} +S_5377:; +if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(__STRING_LIBPATH,__STRING_X),qbs_new_txt_len(".h",2)))))||new_error){ +if(qbevent){evnt(4506);if(r)goto S_5377;} +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(4507);}while(r); +S_5379:; +if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||new_error){ +if(qbevent){evnt(4508);if(r)goto S_5379;} +do{ +*__LONG_SFDECLARE= 0 ; +if(!qbevent)break;evnt(4508);}while(r); +} +do{ +*__LONG_SFHEADER= 1 ; +if(!qbevent)break;evnt(4509);}while(r); +do{ +goto LABEL_GOTHEADER; +if(!qbevent)break;evnt(4510);}while(r); +} +S_5385:; +if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(__STRING_LIBPATH,__STRING_X),qbs_new_txt_len(".hpp",4)))))||new_error){ +if(qbevent){evnt(4512);if(r)goto S_5385;} +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(4513);}while(r); +S_5387:; +if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||new_error){ +if(qbevent){evnt(4514);if(r)goto S_5387;} +do{ +*__LONG_SFDECLARE= 0 ; +if(!qbevent)break;evnt(4514);}while(r); +} +do{ +*__LONG_SFHEADER= 1 ; +if(!qbevent)break;evnt(4515);}while(r); +do{ +goto LABEL_GOTHEADER; +if(!qbevent)break;evnt(4516);}while(r); +} +S_5393:; +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)))))||new_error){ +if(qbevent){evnt(4518);if(r)goto S_5393;} +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(4519);}while(r); +S_5395:; +if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||new_error){ +if(qbevent){evnt(4520);if(r)goto S_5395;} +do{ +*__LONG_SFDECLARE= 0 ; +if(!qbevent)break;evnt(4520);}while(r); +} +do{ +*__LONG_SFHEADER= 1 ; +if(!qbevent)break;evnt(4521);}while(r); +do{ +goto LABEL_GOTHEADER; +if(!qbevent)break;evnt(4522);}while(r); +} +S_5401:; +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)))))||new_error){ +if(qbevent){evnt(4524);if(r)goto S_5401;} +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(4525);}while(r); +S_5403:; +if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||new_error){ +if(qbevent){evnt(4526);if(r)goto S_5403;} +do{ +*__LONG_SFDECLARE= 0 ; +if(!qbevent)break;evnt(4526);}while(r); +} +do{ +*__LONG_SFHEADER= 1 ; +if(!qbevent)break;evnt(4527);}while(r); +do{ +goto LABEL_GOTHEADER; +if(!qbevent)break;evnt(4528);}while(r); +} +S_5409:; +if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(__STRING_X,qbs_new_txt_len(".h",2)))))||new_error){ +if(qbevent){evnt(4531);if(r)goto S_5409;} +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(4532);}while(r); +S_5411:; +if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||new_error){ +if(qbevent){evnt(4533);if(r)goto S_5411;} +do{ +*__LONG_SFDECLARE= 0 ; +if(!qbevent)break;evnt(4533);}while(r); +} +do{ +*__LONG_SFHEADER= 1 ; +if(!qbevent)break;evnt(4534);}while(r); +do{ +goto LABEL_GOTHEADER; +if(!qbevent)break;evnt(4535);}while(r); +} +S_5417:; +if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(__STRING_X,qbs_new_txt_len(".hpp",4)))))||new_error){ +if(qbevent){evnt(4537);if(r)goto S_5417;} +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(4538);}while(r); +S_5419:; +if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||new_error){ +if(qbevent){evnt(4539);if(r)goto S_5419;} +do{ +*__LONG_SFDECLARE= 0 ; +if(!qbevent)break;evnt(4539);}while(r); +} +do{ +*__LONG_SFHEADER= 1 ; +if(!qbevent)break;evnt(4540);}while(r); +do{ +goto LABEL_GOTHEADER; +if(!qbevent)break;evnt(4541);}while(r); +} +S_5425:; +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)))))||new_error){ +if(qbevent){evnt(4543);if(r)goto S_5425;} +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(4544);}while(r); +S_5427:; +if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||new_error){ +if(qbevent){evnt(4545);if(r)goto S_5427;} +do{ +*__LONG_SFDECLARE= 0 ; +if(!qbevent)break;evnt(4545);}while(r); +} +do{ +*__LONG_SFHEADER= 1 ; +if(!qbevent)break;evnt(4546);}while(r); +do{ +goto LABEL_GOTHEADER; +if(!qbevent)break;evnt(4547);}while(r); +} +S_5433:; +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)))))||new_error){ +if(qbevent){evnt(4549);if(r)goto S_5433;} +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(4550);}while(r); +S_5435:; +if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||new_error){ +if(qbevent){evnt(4551);if(r)goto S_5435;} +do{ +*__LONG_SFDECLARE= 0 ; +if(!qbevent)break;evnt(4551);}while(r); +} +do{ +*__LONG_SFHEADER= 1 ; +if(!qbevent)break;evnt(4552);}while(r); +do{ +goto LABEL_GOTHEADER; +if(!qbevent)break;evnt(4553);}while(r); +} +S_5441:; +if ((-(*__LONG_INCLEVEL> 0 ))||new_error){ +if(qbevent){evnt(4556);if(r)goto S_5441;} +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(4557);}while(r); +}else{ +do{ +qbs_set(__STRING_LIBPATH,qbs_add(FUNC_FIXDIRECTORYNAME(__STRING_IDEPATH),__STRING_OG_LIBPATH)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4559);}while(r); +} +do{ +qbs_set(__STRING_LIBPATH_INLINE,FUNC_GETESCAPEDPATH(__STRING_LIBPATH)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4561);}while(r); +S_5447:; +if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(__STRING_LIBPATH,__STRING_X),qbs_new_txt_len(".h",2)))))||new_error){ +if(qbevent){evnt(4562);if(r)goto S_5447;} +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(4563);}while(r); +S_5449:; +if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||new_error){ +if(qbevent){evnt(4564);if(r)goto S_5449;} +do{ +*__LONG_SFDECLARE= 0 ; +if(!qbevent)break;evnt(4564);}while(r); +} +do{ +*__LONG_SFHEADER= 1 ; +if(!qbevent)break;evnt(4565);}while(r); +do{ +goto LABEL_GOTHEADER; +if(!qbevent)break;evnt(4566);}while(r); +} +S_5455:; +if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(__STRING_LIBPATH,__STRING_X),qbs_new_txt_len(".hpp",4)))))||new_error){ +if(qbevent){evnt(4568);if(r)goto S_5455;} +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(4569);}while(r); +S_5457:; +if ((-(*__LONG_CUSTOMTYPELIBRARY== 0 ))||new_error){ +if(qbevent){evnt(4570);if(r)goto S_5457;} +do{ +*__LONG_SFDECLARE= 0 ; +if(!qbevent)break;evnt(4570);}while(r); +} +do{ +*__LONG_SFHEADER= 1 ; +if(!qbevent)break;evnt(4571);}while(r); +do{ +goto LABEL_GOTHEADER; +if(!qbevent)break;evnt(4572);}while(r); +} +} +LABEL_GOTHEADER:; +if(qbevent){evnt(4576);r=0;} +} +}else{ +S_5466:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ +if(qbevent){evnt(4582);if(r)goto S_5466;} +S_5467:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ +if(qbevent){evnt(4584);if(r)goto S_5467;} +S_5468:; +if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(__STRING_LIBPATH,__STRING_X),qbs_new_txt_len(".dll",4)))))||new_error){ +if(qbevent){evnt(4585);if(r)goto S_5468;} +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(4586);}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(4587);}while(r); +} +} +S_5473:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ +if(qbevent){evnt(4591);if(r)goto S_5473;} +S_5474:; +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)))))||new_error){ +if(qbevent){evnt(4592);if(r)goto S_5474;} +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(4593);}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(4594);}while(r); +} +} +S_5479:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ +if(qbevent){evnt(4599);if(r)goto S_5479;} +S_5480:; +if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(__STRING_X,qbs_new_txt_len(".dll",4)))))||new_error){ +if(qbevent){evnt(4600);if(r)goto S_5480;} +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(4601);}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(4602);}while(r); +} +} +S_5485:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ +if(qbevent){evnt(4606);if(r)goto S_5485;} +S_5486:; +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)))))||new_error){ +if(qbevent){evnt(4607);if(r)goto S_5486;} +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(4608);}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(4609);}while(r); +} +} +} +S_5492:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ +if(qbevent){evnt(4614);if(r)goto S_5492;} +S_5493:; +if ((*__LONG_MACOSX)||new_error){ +if(qbevent){evnt(4618);if(r)goto S_5493;} +S_5494:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ +if(qbevent){evnt(4620);if(r)goto S_5494;} +S_5495:; +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)))))||new_error){ +if(qbevent){evnt(4621);if(r)goto S_5495;} +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(4622);}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(4623);}while(r); +S_5498:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(__STRING_LIBPATH, 1 ),qbs_new_txt_len("/",1))))||new_error){ +if(qbevent){evnt(4624);if(r)goto S_5498;} +do{ +qbs_set(__STRING_LIBNAME,qbs_add(qbs_new_txt_len("./",2),__STRING_LIBNAME)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4624);}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(4624);}while(r); +} +} +} +S_5504:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ +if(qbevent){evnt(4627);if(r)goto S_5504;} +S_5505:; +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)))))||new_error){ +if(qbevent){evnt(4628);if(r)goto S_5505;} +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(4629);}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(4630);}while(r); +S_5508:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(__STRING_LIBPATH, 1 ),qbs_new_txt_len("/",1))))||new_error){ +if(qbevent){evnt(4631);if(r)goto S_5508;} +do{ +qbs_set(__STRING_LIBNAME,qbs_add(qbs_new_txt_len("./",2),__STRING_LIBNAME)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4631);}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(4631);}while(r); +} +} +} +} +S_5515:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ +if(qbevent){evnt(4637);if(r)goto S_5515;} +S_5516:; +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))))||new_error){ +if(qbevent){evnt(4638);if(r)goto S_5516;} +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(4639);}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(4640);}while(r); +S_5519:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(__STRING_LIBPATH, 1 ),qbs_new_txt_len("/",1))))||new_error){ +if(qbevent){evnt(4641);if(r)goto S_5519;} +do{ +qbs_set(__STRING_LIBNAME,qbs_add(qbs_new_txt_len("./",2),__STRING_LIBNAME)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4641);}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(4641);}while(r); +} +} +} +S_5525:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ +if(qbevent){evnt(4644);if(r)goto S_5525;} +S_5526:; +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)))))||new_error){ +if(qbevent){evnt(4645);if(r)goto S_5526;} +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(4646);}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(4647);}while(r); +S_5529:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(__STRING_LIBPATH, 1 ),qbs_new_txt_len("/",1))))||new_error){ +if(qbevent){evnt(4648);if(r)goto S_5529;} +do{ +qbs_set(__STRING_LIBNAME,qbs_add(qbs_new_txt_len("./",2),__STRING_LIBNAME)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4648);}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(4648);}while(r); +} +} +} +S_5535:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ +if(qbevent){evnt(4652);if(r)goto S_5535;} +S_5536:; +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))))||new_error){ +if(qbevent){evnt(4653);if(r)goto S_5536;} +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(4654);}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(4655);}while(r); +} +} +S_5541:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ +if(qbevent){evnt(4658);if(r)goto S_5541;} +S_5542:; +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)))))||new_error){ +if(qbevent){evnt(4659);if(r)goto S_5542;} +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(4660);}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(4661);}while(r); +} +} +S_5547:; +if ((*__LONG_MACOSX)||new_error){ +if(qbevent){evnt(4665);if(r)goto S_5547;} +S_5548:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ +if(qbevent){evnt(4667);if(r)goto S_5548;} +S_5549:; +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)))))||new_error){ +if(qbevent){evnt(4668);if(r)goto S_5549;} +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(4669);}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(4670);}while(r); +} +} +S_5554:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ +if(qbevent){evnt(4673);if(r)goto S_5554;} +S_5555:; +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)))))||new_error){ +if(qbevent){evnt(4674);if(r)goto S_5555;} +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(4675);}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(4676);}while(r); +} +} +} +S_5561:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ +if(qbevent){evnt(4682);if(r)goto S_5561;} +S_5562:; +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))))||new_error){ +if(qbevent){evnt(4683);if(r)goto S_5562;} +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(4684);}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(4685);}while(r); +} +} +S_5567:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ +if(qbevent){evnt(4688);if(r)goto S_5567;} +S_5568:; +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)))))||new_error){ +if(qbevent){evnt(4689);if(r)goto S_5568;} +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(4690);}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(4691);}while(r); +} +} +S_5573:; +if ((*__LONG_MACOSX)||new_error){ +if(qbevent){evnt(4695);if(r)goto S_5573;} +S_5574:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ +if(qbevent){evnt(4697);if(r)goto S_5574;} +S_5575:; +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)))))||new_error){ +if(qbevent){evnt(4698);if(r)goto S_5575;} +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(4699);}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(4700);}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(4701);}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(4701);}while(r); +} +} +S_5582:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ +if(qbevent){evnt(4704);if(r)goto S_5582;} +S_5583:; +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)))))||new_error){ +if(qbevent){evnt(4705);if(r)goto S_5583;} +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(4706);}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(4707);}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(4708);}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(4708);}while(r); +} +} +} +S_5591:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ +if(qbevent){evnt(4714);if(r)goto S_5591;} +S_5592:; +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))))||new_error){ +if(qbevent){evnt(4715);if(r)goto S_5592;} +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(4716);}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(4717);}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(4718);}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(4718);}while(r); +} +} +S_5599:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ +if(qbevent){evnt(4721);if(r)goto S_5599;} +S_5600:; +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)))))||new_error){ +if(qbevent){evnt(4722);if(r)goto S_5600;} +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(4723);}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(4724);}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(4725);}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(4725);}while(r); +} +} +S_5607:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ +if(qbevent){evnt(4729);if(r)goto S_5607;} +S_5608:; +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))))||new_error){ +if(qbevent){evnt(4730);if(r)goto S_5608;} +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(4731);}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(4732);}while(r); +} +} +S_5613:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ +if(qbevent){evnt(4735);if(r)goto S_5613;} +S_5614:; +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)))))||new_error){ +if(qbevent){evnt(4736);if(r)goto S_5614;} +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(4737);}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(4738);}while(r); +} +} +S_5619:; +if ((*__LONG_MACOSX)||new_error){ +if(qbevent){evnt(4742);if(r)goto S_5619;} +S_5620:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ +if(qbevent){evnt(4744);if(r)goto S_5620;} +S_5621:; +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)))))||new_error){ +if(qbevent){evnt(4745);if(r)goto S_5621;} +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(4746);}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(4747);}while(r); +} +} +S_5626:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ +if(qbevent){evnt(4750);if(r)goto S_5626;} +S_5627:; +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)))))||new_error){ +if(qbevent){evnt(4751);if(r)goto S_5627;} +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(4752);}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(4753);}while(r); +} +} +} +S_5633:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ +if(qbevent){evnt(4759);if(r)goto S_5633;} +S_5634:; +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))))||new_error){ +if(qbevent){evnt(4760);if(r)goto S_5634;} +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(4761);}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(4762);}while(r); +} +} +S_5639:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LIBNAME->len== 0 )))||new_error){ +if(qbevent){evnt(4765);if(r)goto S_5639;} +S_5640:; +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)))))||new_error){ +if(qbevent){evnt(4766);if(r)goto S_5640;} +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(4767);}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(4768);}while(r); +} +} +} +} +S_5647:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_DYNAMICLIBRARY!= 0 ))&(-(__STRING_LIBNAME->len== 0 ))))||new_error){ +if(qbevent){evnt(4776);if(r)goto S_5647;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("DYNAMIC LIBRARY not found",25)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4776);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(4776);}while(r); +} +S_5651:; +if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_LIBNAME->len== 0 ))&(-(__STRING_HEADERNAME->len== 0 ))))||new_error){ +if(qbevent){evnt(4777);if(r)goto S_5651;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("LIBRARY not found",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4777);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(4777);}while(r); +} +S_5655:; +if ((-(*__LONG_DYNAMICLIBRARY== 0 ))||new_error){ +if(qbevent){evnt(4781);if(r)goto S_5655;} +S_5656:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LIBNAME->len))||new_error){ +if(qbevent){evnt(4784);if(r)goto S_5656;} +S_5657:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ +if(qbevent){evnt(4785);if(r)goto S_5657;} +S_5658:; +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)))))||new_error){ +if(qbevent){evnt(4786);if(r)goto S_5658;} +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(4787);}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(4789);}while(r); +} +} +S_5664:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ +if(qbevent){evnt(4792);if(r)goto S_5664;} +S_5665:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_LIBNAME, 1 ),qbs_new_txt_len("/",1))))||new_error){ +if(qbevent){evnt(4793);if(r)goto S_5665;} +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(4794);}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(4796);}while(r); +} +} +} +}else{ +S_5673:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_HEADERNAME->len== 0 )))||new_error){ +if(qbevent){evnt(4805);if(r)goto S_5673;} +S_5674:; +if ((*__LONG_SUBFUNCN)||new_error){ +if(qbevent){evnt(4807);if(r)goto S_5674;} +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(4808);}while(r); +}else{ +do{ +*__LONG_F=*__LONG_DATATXTBUF; +if(!qbevent)break;evnt(4810);}while(r); +} +do{ +qbs_set(__STRING_X2,__STRING_X); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4816);}while(r); +S_5680:; +fornext_value530= 1 ; +fornext_finalvalue530=__STRING_X2->len; +fornext_step530= 1 ; +if (fornext_step530<0) fornext_step_negative530=1; else fornext_step_negative530=0; +if (new_error) goto fornext_error530; +goto fornext_entrylabel530; +while(1){ +fornext_value530=fornext_step530+(*__LONG_X2); +fornext_entrylabel530: +*__LONG_X2=fornext_value530; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative530){ +if (fornext_value530fornext_finalvalue530) break; +} +fornext_error530:; +if(qbevent){evnt(4817);if(r)goto S_5680;} +S_5681:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_X2,*__LONG_X2)< 48 )))||new_error){ +if(qbevent){evnt(4818);if(r)goto S_5681;} +do{ +tqbs=__STRING_X2; if (!new_error){ +tmp_fileno=*__LONG_X2; if (!new_error){ +tmp_long= 95 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(4818);}while(r); +} +S_5684:; +if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(__STRING_X2,*__LONG_X2)> 57 ))&(-(qbs_asc(__STRING_X2,*__LONG_X2)< 65 ))))||new_error){ +if(qbevent){evnt(4819);if(r)goto S_5684;} +do{ +tqbs=__STRING_X2; if (!new_error){ +tmp_fileno=*__LONG_X2; if (!new_error){ +tmp_long= 95 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(4819);}while(r); +} +S_5687:; +if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(__STRING_X2,*__LONG_X2)> 90 ))&(-(qbs_asc(__STRING_X2,*__LONG_X2)< 97 ))))||new_error){ +if(qbevent){evnt(4820);if(r)goto S_5687;} +do{ +tqbs=__STRING_X2; if (!new_error){ +tmp_fileno=*__LONG_X2; if (!new_error){ +tmp_long= 95 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(4820);}while(r); +} +S_5690:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_X2,*__LONG_X2)> 122 )))||new_error){ +if(qbevent){evnt(4821);if(r)goto S_5690;} +do{ +tqbs=__STRING_X2; if (!new_error){ +tmp_fileno=*__LONG_X2; if (!new_error){ +tmp_long= 95 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(4821);}while(r); +} +fornext_continue_529:; +} +fornext_exit_529:; +do{ +qbs_set(__STRING_DLLNAME,__STRING_X2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4823);}while(r); +S_5695:; +if ((*__LONG_SFDECLARE)||new_error){ +if(qbevent){evnt(4825);if(r)goto S_5695;} +S_5696:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ +if(qbevent){evnt(4827);if(r)goto S_5696;} +do{ +SUB_WRITEBUFLINE(&(pass532=*__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(4828);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass533=*__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(4829);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass534=*__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(4830);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass535=*__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(4831);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass536=*__LONG_F),qbs_new_txt_len("}",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4832);}while(r); +} +S_5703:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ +if(qbevent){evnt(4835);if(r)goto S_5703;} +do{ +SUB_WRITEBUFLINE(&(pass537=*__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(4836);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass538=*__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(4837);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass539=*__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(4838);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass540=*__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(4839);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass541=*__LONG_F),qbs_new_txt_len("}",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4840);}while(r); +} +} +} +} +S_5713:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_HEADERNAME->len))||new_error){ +if(qbevent){evnt(4850);if(r)goto S_5713;} +S_5714:; +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)))))))||new_error){ +if(qbevent){evnt(4852);if(r)goto S_5714;} +do{ +SUB_WRITEBUFLINE(&(pass543=*__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(4853);}while(r); +}else{ +do{ +SUB_WRITEBUFLINE(&(pass544=*__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(4855);}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(4861);}while(r); +S_5722:; +if ((-(*__LONG_N>*__LONG_X))||new_error){ +if(qbevent){evnt(4863);if(r)goto S_5722;} +S_5723:; +if ((*__LONG_DYNAMICLIBRARY)||new_error){ +if(qbevent){evnt(4864);if(r)goto S_5723;} +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(4864);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(4864);}while(r); +} +do{ +*__LONG_X=*__LONG_X+ 1 ; +if(!qbevent)break;evnt(4865);}while(r); +do{ +qbs_set(__STRING_X2,FUNC_GETELEMENT(__STRING_A,__LONG_X)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4865);}while(r); +S_5729:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_X2,qbs_new_txt_len(",",1))))||new_error){ +if(qbevent){evnt(4865);if(r)goto S_5729;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected ,",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4865);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(4865);}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(4866);}while(r); +do{ +*__LONG_X=*__LONG_X+ 1 ; +if(!qbevent)break;evnt(4867);}while(r); +S_5735:; +if ((-(*__LONG_X>*__LONG_N))||new_error){ +if(qbevent){evnt(4867);if(r)goto S_5735;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected , ...",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4867);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(4867);}while(r); +} +do{ +goto LABEL_ADDLIBRARY; +if(!qbevent)break;evnt(4868);}while(r); +} +} +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(4873);}while(r); +S_5743:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(4873);if(r)goto S_5743;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4873);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4873);}while(r); +} +do{ +goto LABEL_FINISHEDNONEXEC; +if(!qbevent)break;evnt(4874);}while(r); +} +do{ +goto LABEL_FINISHEDNONEXEC; +if(!qbevent)break;evnt(4877);}while(r); +} +} +S_5753:; +if ((-(*__LONG_N>= 1 ))||new_error){ +if(qbevent){evnt(4882);if(r)goto S_5753;} +do{ +*__LONG_DYNAMICLIBRARY= 0 ; +if(!qbevent)break;evnt(4883);}while(r); +LABEL_DECLARESUBFUNC2:; +if(qbevent){evnt(4884);r=0;} +do{ +*__LONG_SF= 0 ; +if(!qbevent)break;evnt(4885);}while(r); +S_5756:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("FUNCTION",8))))||new_error){ +if(qbevent){evnt(4886);if(r)goto S_5756;} +do{ +*__LONG_SF= 1 ; +if(!qbevent)break;evnt(4886);}while(r); +} +S_5759:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("SUB",3))))||new_error){ +if(qbevent){evnt(4887);if(r)goto S_5759;} +do{ +*__LONG_SF= 2 ; +if(!qbevent)break;evnt(4887);}while(r); +} +S_5762:; +if ((*__LONG_SF)||new_error){ +if(qbevent){evnt(4888);if(r)goto S_5762;} +S_5763:; +if ((-(*__LONG_DECLARINGLIBRARY== 0 ))||new_error){ +if(qbevent){evnt(4890);if(r)goto S_5763;} +S_5764:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_SUBFUNC->len))||new_error){ +if(qbevent){evnt(4891);if(r)goto S_5764;} +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(4891);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(4891);}while(r); +} +} +S_5769:; +if ((-(*__LONG_N== 1 ))||new_error){ +if(qbevent){evnt(4894);if(r)goto S_5769;} +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(4894);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(4894);}while(r); +} +do{ +qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_CA,&(pass547= 2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4895);}while(r); +do{ +qbs_set(__STRING_SYMBOL,FUNC_REMOVESYMBOL(__STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4896);}while(r); +S_5775:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(4897);if(r)goto S_5775;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(4897);}while(r); +} +S_5778:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_SF== 2 ))&(qbs_notequal(__STRING_SYMBOL,qbs_new_txt_len("",0)))))||new_error){ +if(qbevent){evnt(4898);if(r)goto S_5778;} +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(4898);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(4898);}while(r); +} +do{ +*__LONG_TRY=FUNC_FINDID(__STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4899);}while(r); +S_5783:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(4900);if(r)goto S_5783;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(4900);}while(r); +} +S_5786:; +while((*__LONG_TRY)||new_error){ +if(qbevent){evnt(4901);if(r)goto S_5786;} +S_5787:; +if ((-(*(int16*)(((char*)__UDT_ID)+(544))==*__LONG_SF))||new_error){ +if(qbevent){evnt(4902);if(r)goto S_5787;} +do{ +goto LABEL_CREATESF; +if(!qbevent)break;evnt(4902);}while(r); +} +S_5790:; +if ((-(*__LONG_TRY== 2 ))||new_error){ +if(qbevent){evnt(4903);if(r)goto S_5790;} +do{ +*__INTEGER_FINDANOTHERID= 1 ; +if(!qbevent)break;evnt(4903);}while(r); +do{ +*__LONG_TRY=FUNC_FINDID(__STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4903);}while(r); +}else{ +do{ +*__LONG_TRY= 0 ; +if(!qbevent)break;evnt(4903);}while(r); +} +S_5796:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(4904);if(r)goto S_5796;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(4904);}while(r); +} +dl_continue_548:; +} +dl_exit_548:; +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Unregistered SUB/FUNCTION encountered",37)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4906);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(4906);}while(r); +LABEL_CREATESF:; +if(qbevent){evnt(4907);r=0;} +S_5802:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_E),qbs_new_txt_len("_GL",3))))||new_error){ +if(qbevent){evnt(4908);if(r)goto S_5802;} +do{ +qbs_set(__STRING_E,qbs_new_txt_len("_GL",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4908);}while(r); +} +S_5805:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("SUB",3))))||new_error){ +if(qbevent){evnt(4909);if(r)goto S_5805;} +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("Sub",3)),__STRING1_SP),__STRING_E),__STRING_SYMBOL)); +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(FUNC_SCASE(qbs_new_txt_len("Function",8)),__STRING1_SP),__STRING_E),__STRING_SYMBOL)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4912);}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(4914);}while(r); +do{ +*__LONG_TARGETID=*__LONG_CURRENTID; +if(!qbevent)break;evnt(4915);}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(4918);}while(r); +S_5813:; +if ((-(*__LONG_N> 2 ))||new_error){ +if(qbevent){evnt(4919);if(r)goto S_5813;} +do{ +qbs_set(__STRING_EE,FUNC_GETELEMENT(__STRING_A,&(pass549= 3 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4920);}while(r); +S_5815:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_EE,qbs_new_txt_len("ALIAS",5))))||new_error){ +if(qbevent){evnt(4921);if(r)goto S_5815;} +S_5816:; +if ((-(*__LONG_DECLARINGLIBRARY== 0 ))||new_error){ +if(qbevent){evnt(4922);if(r)goto S_5816;} +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(4922);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(4922);}while(r); +} +S_5820:; +if ((-(*__LONG_N== 3 ))||new_error){ +if(qbevent){evnt(4923);if(r)goto S_5820;} +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(4923);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(4923);}while(r); +} +do{ +qbs_set(__STRING_EE,FUNC_GETELEMENT(__STRING_CA,&(pass550= 4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4924);}while(r); +S_5825:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_EE, 1 ),func_chr( 34 ))))||new_error){ +if(qbevent){evnt(4927);if(r)goto S_5825;} +do{ +qbs_set(__STRING_EE,qbs_right(__STRING_EE,__STRING_EE->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4928);}while(r); +do{ +*__LONG_X=func_instr(NULL,__STRING_EE,func_chr( 34 ),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4929);}while(r); +S_5828:; +if ((-(*__LONG_X== 0 ))||new_error){ +if(qbevent){evnt(4929);if(r)goto S_5828;} +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(4929);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(4929);}while(r); +} +do{ +qbs_set(__STRING_EE,qbs_left(__STRING_EE,*__LONG_X- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4930);}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),__STRING_CHR_QUOTE),__STRING_EE),__STRING_CHR_QUOTE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4931);}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(4933);}while(r); +} +S_5837:; +while((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_EE,__STRING_FIX046,0)))||new_error){ +if(qbevent){evnt(4937);if(r)goto S_5837;} +do{ +*__LONG_X=func_instr(NULL,__STRING_EE,__STRING_FIX046,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4938);}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(4938);}while(r); +dl_continue_552:; +} +dl_exit_552:; +do{ +qbs_set(__STRING_ALIASNAME,__STRING_EE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4940);}while(r); +S_5842:; +if ((-(*__LONG_N<= 4 ))||new_error){ +if(qbevent){evnt(4942);if(r)goto S_5842;} +do{ +qbs_set(__STRING_A,FUNC_GETELEMENTS(__STRING_A,&(pass555= 1 ),&(pass556= 2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4942);}while(r); +} +S_5845:; +if ((-(*__LONG_N>= 5 ))||new_error){ +if(qbevent){evnt(4943);if(r)goto S_5845;} +do{ +qbs_set(__STRING_A,qbs_add(qbs_add(FUNC_GETELEMENTS(__STRING_A,&(pass557= 1 ),&(pass558= 2 )),__STRING1_SP),FUNC_GETELEMENTS(__STRING_A,&(pass559= 5 ),__LONG_N))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4943);}while(r); +} +S_5848:; +if ((-(*__LONG_N<= 4 ))||new_error){ +if(qbevent){evnt(4944);if(r)goto S_5848;} +do{ +qbs_set(__STRING_CA,FUNC_GETELEMENTS(__STRING_CA,&(pass560= 1 ),&(pass561= 2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4944);}while(r); +} +S_5851:; +if ((-(*__LONG_N>= 5 ))||new_error){ +if(qbevent){evnt(4945);if(r)goto S_5851;} +do{ +qbs_set(__STRING_CA,qbs_add(qbs_add(FUNC_GETELEMENTS(__STRING_CA,&(pass562= 1 ),&(pass563= 2 )),__STRING1_SP),FUNC_GETELEMENTS(__STRING_CA,&(pass564= 5 ),__LONG_N))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4945);}while(r); +} +do{ +*__LONG_N=*__LONG_N- 2 ; +if(!qbevent)break;evnt(4946);}while(r); +} +} +S_5857:; +if ((*__LONG_DECLARINGLIBRARY)||new_error){ +if(qbevent){evnt(4950);if(r)goto S_5857;} +do{ +goto LABEL_DECLIBJMP1; +if(!qbevent)break;evnt(4950);}while(r); +} +S_5860:; +if ((-(*__INTEGER_CLOSEDMAIN== 0 ))||new_error){ +if(qbevent){evnt(4953);if(r)goto S_5860;} +do{ +SUB_CLOSEMAIN(); +if(!qbevent)break;evnt(4953);}while(r); +} +S_5863:; +if (((-(*__INTEGER_CONTROLLEVEL!= 0 ))&(-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]!= 6 )))||new_error){ +if(qbevent){evnt(4956);if(r)goto S_5863;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Unidentified open control block",31)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4957);}while(r); +S_5865:; +sc_565=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]; +if(qbevent){evnt(4958);if(r)goto S_5865;} +S_5866:; +if (((sc_565==( 1 )))||new_error){ +if(qbevent){evnt(4959);if(r)goto S_5866;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("IF without END IF",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4959);}while(r); +sc_ec_22_end:; +goto sc_565_end; +} +S_5868:; +if (((sc_565==( 2 )))||new_error){ +if(qbevent){evnt(4960);if(r)goto S_5868;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("FOR without NEXT",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4960);}while(r); +sc_ec_23_end:; +goto sc_565_end; +} +S_5870:; +if (((sc_565==( 3 ))||(sc_565==( 4 )))||new_error){ +if(qbevent){evnt(4961);if(r)goto S_5870;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("DO without LOOP",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4961);}while(r); +sc_ec_24_end:; +goto sc_565_end; +} +S_5872:; +if (((sc_565==( 5 )))||new_error){ +if(qbevent){evnt(4962);if(r)goto S_5872;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("WHILE without WEND",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4962);}while(r); +sc_ec_25_end:; +goto sc_565_end; +} +S_5874:; +if ((((sc_565>=( 10 ))&&(sc_565<=( 19 ))))||new_error){ +if(qbevent){evnt(4963);if(r)goto S_5874;} +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(4963);}while(r); +sc_ec_26_end:; +goto sc_565_end; +} +sc_565_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(4965);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(4966);}while(r); +} +S_5880:; +if ((*__LONG_IDEINDENTSUBS)||new_error){ +if(qbevent){evnt(4969);if(r)goto S_5880;} +do{ +*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL+ 1 ; +if(!qbevent)break;evnt(4970);}while(r); +do{ +tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[tmp_long]= 32 ; +if(!qbevent)break;evnt(4971);}while(r); +do{ +tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLREF[4],__ARRAY_LONG_CONTROLREF[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_CONTROLREF[0]))[tmp_long]=*__LONG_LINENUMBER; +if(!qbevent)break;evnt(4972);}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(4975);}while(r); +S_5886:; +if ((-(*(int16*)(((char*)__UDT_ID)+(544))== 1 ))||new_error){ +if(qbevent){evnt(4976);if(r)goto S_5886;} +do{ +qbs_set(__STRING_SUBFUNCORIGINALNAME,qbs_new_txt_len("FUNCTION ",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4976);}while(r); +}else{ +do{ +qbs_set(__STRING_SUBFUNCORIGINALNAME,qbs_new_txt_len("SUB ",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4976);}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(4977);}while(r); +do{ +*__LONG_SUBFUNCN=*__LONG_SUBFUNCN+ 1 ; +if(!qbevent)break;evnt(4978);}while(r); +do{ +*__BYTE_CLOSEDSUBFUNC= 0 ; +if(!qbevent)break;evnt(4979);}while(r); +do{ +*__LONG_SUBFUNCID=*__LONG_TARGETID; +if(!qbevent)break;evnt(4980);}while(r); +do{ +qbs_set(__STRING_SUBFUNCRET,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4982);}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)),FUNC_STR2(__LONG_SUBFUNCN)),qbs_new_txt_len(".txt",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4984);}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)),FUNC_STR2(__LONG_SUBFUNCN)),qbs_new_txt_len(".txt",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4985);}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)),FUNC_STR2(__LONG_SUBFUNCN)),qbs_new_txt_len(".txt",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4986);}while(r); +do{ +*__INTEGER_DEFDATAHANDLE=*__LONG_DATATXTBUF; +if(!qbevent)break;evnt(4987);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass566=*__LONG_RETTXTBUF),qbs_new_txt_len("if (next_return_point){",23)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4988);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass567=*__LONG_RETTXTBUF),qbs_new_txt_len("next_return_point--;",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4989);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass568=*__LONG_RETTXTBUF),qbs_new_txt_len("switch(return_point[next_return_point]){",40)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4990);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass569=*__LONG_RETTXTBUF),qbs_new_txt_len("case 0:",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4991);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass570=*__LONG_RETTXTBUF),qbs_new_txt_len("error(3);",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4992);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass571=*__LONG_RETTXTBUF),qbs_new_txt_len("break;",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(4993);}while(r); +LABEL_DECLIBJMP1:; +if(qbevent){evnt(4995);r=0;} +S_5906:; +if ((*__LONG_DECLARINGLIBRARY)||new_error){ +if(qbevent){evnt(4997);if(r)goto S_5906;} +S_5907:; +if (((-(*__LONG_SFDECLARE== 0 ))&(-(*__LONG_INDIRECTLIBRARY== 0 )))||new_error){ +if(qbevent){evnt(4998);if(r)goto S_5907;} +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(4999);}while(r); +} +S_5910:; +if (((-(*__LONG_SFDECLARE== 1 ))&(-(*__LONG_CUSTOMTYPELIBRARY== 0 ))&(-(*__LONG_DYNAMICLIBRARY== 0 ))&(-(*__LONG_INDIRECTLIBRARY== 0 )))||new_error){ +if(qbevent){evnt(5001);if(r)goto S_5910;} +do{ +SUB_WRITEBUFLINE(&(pass572=*__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)),FUNC_STR2(&(pass573=*__LONG_RESOLVESTATICFUNCTIONS+ 1 ))),qbs_new_txt_len(".txt",4)),func_chr( 34 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5002);}while(r); +do{ +*__LONG_FH=func_freefile(); +if(!qbevent)break;evnt(5003);}while(r); +do{ +sub_open(qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("externtype",10)),FUNC_STR2(&(pass574=*__LONG_RESOLVESTATICFUNCTIONS+ 1 ))),qbs_new_txt_len(".txt",4)), 4 ,NULL,NULL,*__LONG_FH,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5003);}while(r); +do{ +sub_close(*__LONG_FH,1); +if(!qbevent)break;evnt(5003);}while(r); +} +} +S_5917:; +if ((-(*__LONG_SF== 1 ))||new_error){ +if(qbevent){evnt(5010);if(r)goto S_5917;} +do{ +*__LONG_RETTYP=*(int32*)(((char*)__UDT_ID)+(2381)); +if(!qbevent)break;evnt(5011);}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(5012);}while(r); +S_5920:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(5013);if(r)goto S_5920;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5013);}while(r); +} +S_5923:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T,qbs_new_txt_len("qbs",3))))||new_error){ +if(qbevent){evnt(5014);if(r)goto S_5923;} +do{ +qbs_set(__STRING_T,qbs_new_txt_len("qbs*",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5014);}while(r); +} +S_5926:; +if ((*__LONG_DECLARINGLIBRARY)||new_error){ +if(qbevent){evnt(5016);if(r)goto S_5926;} +S_5927:; +if ((*__LONG_RETTYP&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(5017);if(r)goto S_5927;} +do{ +qbs_set(__STRING_T,qbs_new_txt_len("char*",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5018);}while(r); +} +} +S_5931:; +if (((-(*__LONG_DECLARINGLIBRARY!= 0 ))&(-(*__LONG_DYNAMICLIBRARY!= 0 )))||new_error){ +if(qbevent){evnt(5022);if(r)goto S_5931;} +S_5932:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ +if(qbevent){evnt(5023);if(r)goto S_5932;} +do{ +SUB_WRITEBUFRAWDATA(&(pass575=*__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(5024);}while(r); +} +S_5935:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ +if(qbevent){evnt(5026);if(r)goto S_5935;} +do{ +SUB_WRITEBUFRAWDATA(&(pass576=*__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(5027);}while(r); +} +S_5938:; +}else{ +if ((-(*__LONG_DECLARINGLIBRARY!= 0 ))&(-(*__LONG_CUSTOMTYPELIBRARY!= 0 ))){ +if(qbevent){evnt(5029);if(r)goto S_5938;} +do{ +SUB_WRITEBUFRAWDATA(&(pass577=*__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(5030);}while(r); +}else{ +do{ +SUB_WRITEBUFRAWDATA(&(pass578=*__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(5032);}while(r); +} +} +S_5943:; +if ((*__LONG_DECLARINGLIBRARY)||new_error){ +if(qbevent){evnt(5034);if(r)goto S_5943;} +do{ +goto LABEL_DECLIBJMP2; +if(!qbevent)break;evnt(5034);}while(r); +} +do{ +SUB_WRITEBUFRAWDATA(&(pass579=*__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(5035);}while(r); +S_5947:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SYMBOL,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(5039);if(r)goto S_5947;} +do{ +*__LONG_A=qbs_asc(qbs_ucase(__STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5040);}while(r); +S_5949:; +if ((-(*__LONG_A== 95 ))||new_error){ +if(qbevent){evnt(5040);if(r)goto S_5949;} +do{ +*__LONG_A= 91 ; +if(!qbevent)break;evnt(5040);}while(r); +} +do{ +*__LONG_A=*__LONG_A- 64 ; +if(!qbevent)break;evnt(5041);}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(5042);}while(r); +} +do{ +*__LONG_REGINTERNALVARIABLE= 1 ; +if(!qbevent)break;evnt(5044);}while(r); +do{ +*__LONG_IGNORE=FUNC_DIM2(__STRING_E,__STRING_SYMBOL,&(pass580= 0 ),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5045);}while(r); +S_5957:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(5046);if(r)goto S_5957;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5046);}while(r); +} +do{ +*__LONG_REGINTERNALVARIABLE= 0 ; +if(!qbevent)break;evnt(5047);}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)),FUNC_STR2(__LONG_SUBFUNCN)),qbs_new_txt_len(".txt",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5049);}while(r); +S_5962:; +if (((*__LONG_RETTYP&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(5051);if(r)goto S_5962;} +do{ +qbs_set(__STRING_R,FUNC_REFER(FUNC_STR2(__LONG_CURRENTID),(int32*)(void*)( ((char*)(__UDT_ID)) + (536) ),&(pass581= 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5052);}while(r); +S_5964:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(5053);if(r)goto S_5964;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5053);}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(5054);}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(5055);}while(r); +}else{ +do{ +qbs_set(__STRING_R,FUNC_REFER(FUNC_STR2(__LONG_CURRENTID),(int32*)(void*)( ((char*)(__UDT_ID)) + (536) ),&(pass582= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5057);}while(r); +S_5971:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(5058);if(r)goto S_5971;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5058);}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(5059);}while(r); +} +}else{ +S_5977:; +if (((-(*__LONG_DECLARINGLIBRARY!= 0 ))&(-(*__LONG_DYNAMICLIBRARY!= 0 )))||new_error){ +if(qbevent){evnt(5063);if(r)goto S_5977;} +S_5978:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ +if(qbevent){evnt(5064);if(r)goto S_5978;} +do{ +SUB_WRITEBUFRAWDATA(&(pass583=*__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(5065);}while(r); +} +S_5981:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ +if(qbevent){evnt(5067);if(r)goto S_5981;} +do{ +SUB_WRITEBUFRAWDATA(&(pass584=*__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(5068);}while(r); +} +S_5984:; +}else{ +if ((-(*__LONG_DECLARINGLIBRARY!= 0 ))&(-(*__LONG_CUSTOMTYPELIBRARY!= 0 ))){ +if(qbevent){evnt(5070);if(r)goto S_5984;} +do{ +SUB_WRITEBUFRAWDATA(&(pass585=*__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(5071);}while(r); +}else{ +do{ +SUB_WRITEBUFRAWDATA(&(pass586=*__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(5073);}while(r); +} +} +S_5989:; +if ((*__LONG_DECLARINGLIBRARY)||new_error){ +if(qbevent){evnt(5075);if(r)goto S_5989;} +do{ +goto LABEL_DECLIBJMP2; +if(!qbevent)break;evnt(5075);}while(r); +} +do{ +SUB_WRITEBUFRAWDATA(&(pass587=*__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(5076);}while(r); +} +LABEL_DECLIBJMP2:; +if(qbevent){evnt(5078);r=0;} +do{ +*__LONG_ADDSTATIC2LAYOUT= 0 ; +if(!qbevent)break;evnt(5080);}while(r); +do{ +*__LONG_STATICSF= 0 ; +if(!qbevent)break;evnt(5081);}while(r); +do{ +qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5082);}while(r); +S_5997:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("STATIC",6))))||new_error){ +if(qbevent){evnt(5083);if(r)goto S_5997;} +S_5998:; +if ((*__LONG_DECLARINGLIBRARY)||new_error){ +if(qbevent){evnt(5084);if(r)goto S_5998;} +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(5084);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5084);}while(r); +} +do{ +*__LONG_ADDSTATIC2LAYOUT= 1 ; +if(!qbevent)break;evnt(5085);}while(r); +do{ +*__LONG_STATICSF= 2 ; +if(!qbevent)break;evnt(5086);}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(5087);}while(r); +do{ +*__LONG_N=*__LONG_N- 1 ; +if(!qbevent)break;evnt(5087);}while(r); +} +do{ +*__LONG_PARAMS= 0 ; +if(!qbevent)break;evnt(5091);}while(r); +do{ +*__LONG_ALLOWLOCALNAME= 1 ; +if(!qbevent)break;evnt(5092);}while(r); +S_6009:; +if ((-(*__LONG_N> 2 ))||new_error){ +if(qbevent){evnt(5093);if(r)goto S_6009;} +do{ +qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,&(pass589= 3 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5094);}while(r); +S_6011:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(5095);if(r)goto S_6011;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected (",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5095);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5095);}while(r); +} +do{ +qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5096);}while(r); +S_6016:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(5097);if(r)goto S_6016;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5097);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5097);}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(5098);}while(r); +S_6021:; +if ((-(*__LONG_N== 4 ))||new_error){ +if(qbevent){evnt(5099);if(r)goto S_6021;} +do{ +goto LABEL_NOSFPARAMS2; +if(!qbevent)break;evnt(5099);}while(r); +} +S_6024:; +if ((-(*__LONG_N< 4 ))||new_error){ +if(qbevent){evnt(5100);if(r)goto S_6024;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected ( ... )",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5100);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5100);}while(r); +} +do{ +*__LONG_B= 0 ; +if(!qbevent)break;evnt(5101);}while(r); +do{ +qbs_set(__STRING_A2,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5102);}while(r); +S_6030:; +fornext_value591= 4 ; +fornext_finalvalue591=*__LONG_N- 1 ; +fornext_step591= 1 ; +if (fornext_step591<0) fornext_step_negative591=1; else fornext_step_negative591=0; +if (new_error) goto fornext_error591; +goto fornext_entrylabel591; +while(1){ +fornext_value591=fornext_step591+(*__LONG_I); +fornext_entrylabel591: +*__LONG_I=fornext_value591; +if (fornext_step_negative591){ +if (fornext_value591fornext_finalvalue591) break; +} +fornext_error591:; +if(qbevent){evnt(5103);if(r)goto S_6030;} +do{ +qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5104);}while(r); +S_6032:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(5105);if(r)goto S_6032;} +do{ +*__LONG_B=*__LONG_B+ 1 ; +if(!qbevent)break;evnt(5105);}while(r); +} +S_6035:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(5106);if(r)goto S_6035;} +do{ +*__LONG_B=*__LONG_B- 1 ; +if(!qbevent)break;evnt(5106);}while(r); +} +S_6038:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||new_error){ +if(qbevent){evnt(5107);if(r)goto S_6038;} +S_6039:; +if ((-(*__LONG_I==(*__LONG_N- 1 )))||new_error){ +if(qbevent){evnt(5108);if(r)goto S_6039;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected , ... )",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5108);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5108);}while(r); +} +LABEL_GETLASTPARAM2:; +if(qbevent){evnt(5109);r=0;} +S_6043:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(5110);if(r)goto S_6043;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected ... ,",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5110);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5110);}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(5111);}while(r); +do{ +*__LONG_PARAMS=*__LONG_PARAMS+ 1 ; +if(!qbevent)break;evnt(5113);}while(r); +do{ +*__LONG_GLINKID=*__LONG_TARGETID; +if(!qbevent)break;evnt(5114);}while(r); +do{ +*__INTEGER_GLINKARG=*__LONG_PARAMS; +if(!qbevent)break;evnt(5115);}while(r); +S_6051:; +if ((-(*__LONG_PARAMS> 1 ))||new_error){ +if(qbevent){evnt(5119);if(r)goto S_6051;} +do{ +SUB_WRITEBUFRAWDATA(&(pass593=*__LONG_REGTXTBUF),qbs_new_txt_len(",",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5120);}while(r); +S_6053:; +if ((-(*__LONG_DECLARINGLIBRARY== 0 ))||new_error){ +if(qbevent){evnt(5122);if(r)goto S_6053;} +do{ +SUB_WRITEBUFRAWDATA(&(pass594=*__LONG_MAINTXTBUF),qbs_new_txt_len(",",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5123);}while(r); +} +} +do{ +*__LONG_N2=FUNC_NUMELEMENTS(__STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5127);}while(r); +do{ +*__LONG_ARRAY= 0 ; +if(!qbevent)break;evnt(5128);}while(r); +do{ +qbs_set(__STRING_T2,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5129);}while(r); +do{ +qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A2,&(pass595= 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5130);}while(r); +do{ +*__LONG_BYVALUE= 0 ; +if(!qbevent)break;evnt(5132);}while(r); +S_6062:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_E),qbs_new_txt_len("BYVAL",5))))||new_error){ +if(qbevent){evnt(5133);if(r)goto S_6062;} +S_6063:; +if ((-(*__LONG_DECLARINGLIBRARY== 0 ))||new_error){ +if(qbevent){evnt(5134);if(r)goto S_6063;} +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(5134);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5134);}while(r); +} +do{ +*__LONG_BYVALUE= 1 ; +if(!qbevent)break;evnt(5135);}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(5135);}while(r); +S_6069:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(__STRING_L, 1 ),qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(5136);if(r)goto S_6069;} +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(5136);}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(5136);}while(r); +} +do{ +*__LONG_N2=FUNC_NUMELEMENTS(__STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5137);}while(r); +do{ +qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A2,&(pass597= 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5137);}while(r); +} +S_6077:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(__STRING_L, 1 ),qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(5140);if(r)goto S_6077;} +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(5140);}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(5140);}while(r); +} +do{ +qbs_set(__STRING_N2,__STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5142);}while(r); +do{ +*__LONG_DIMMETHOD= 0 ; +if(!qbevent)break;evnt(5143);}while(r); +do{ +qbs_set(__STRING_SYMBOL2,FUNC_REMOVESYMBOL(__STRING_N2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5146);}while(r); +S_6085:; +if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(__STRING_N2)== 0 )))||new_error){ +if(qbevent){evnt(5147);if(r)goto S_6085;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Invalid name",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5147);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5147);}while(r); +} +S_6089:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(5149);if(r)goto S_6089;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5149);}while(r); +} +S_6092:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_SYMBOL2,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(5150);if(r)goto S_6092;} +do{ +*__LONG_DIMMETHOD= 1 ; +if(!qbevent)break;evnt(5150);}while(r); +} +do{ +*__LONG_M= 0 ; +if(!qbevent)break;evnt(5151);}while(r); +S_6096:; +fornext_value599= 2 ; +fornext_finalvalue599=*__LONG_N2; +fornext_step599= 1 ; +if (fornext_step599<0) fornext_step_negative599=1; else fornext_step_negative599=0; +if (new_error) goto fornext_error599; +goto fornext_entrylabel599; +while(1){ +fornext_value599=fornext_step599+(*__LONG_I2); +fornext_entrylabel599: +*__LONG_I2=fornext_value599; +if (fornext_step_negative599){ +if (fornext_value599fornext_finalvalue599) break; +} +fornext_error599:; +if(qbevent){evnt(5152);if(r)goto S_6096;} +do{ +qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A2,__LONG_I2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5153);}while(r); +S_6098:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(5154);if(r)goto S_6098;} +S_6099:; +if ((-(*__LONG_M!= 0 ))||new_error){ +if(qbevent){evnt(5155);if(r)goto S_6099;} +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(5155);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5155);}while(r); +} +do{ +*__LONG_M= 1 ; +if(!qbevent)break;evnt(5156);}while(r); +do{ +*__LONG_ARRAY= 1 ; +if(!qbevent)break;evnt(5157);}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(5158);}while(r); +do{ +goto LABEL_GOTAA2; +if(!qbevent)break;evnt(5159);}while(r); +} +S_6108:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(5161);if(r)goto S_6108;} +S_6109:; +if ((-(*__LONG_M!= 1 ))||new_error){ +if(qbevent){evnt(5162);if(r)goto S_6109;} +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(5162);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5162);}while(r); +} +do{ +*__LONG_M= 2 ; +if(!qbevent)break;evnt(5163);}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(5164);}while(r); +do{ +goto LABEL_GOTAA2; +if(!qbevent)break;evnt(5165);}while(r); +} +S_6117:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_E),qbs_new_txt_len("AS",2))))||new_error){ +if(qbevent){evnt(5167);if(r)goto S_6117;} +S_6118:; +if (((-(*__LONG_M!= 0 ))&(-(*__LONG_M!= 2 )))||new_error){ +if(qbevent){evnt(5168);if(r)goto S_6118;} +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(5168);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5168);}while(r); +} +do{ +*__LONG_M= 3 ; +if(!qbevent)break;evnt(5169);}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(5170);}while(r); +do{ +goto LABEL_GOTAA2; +if(!qbevent)break;evnt(5171);}while(r); +} +S_6126:; +if ((-(*__LONG_M== 1 ))||new_error){ +if(qbevent){evnt(5173);if(r)goto S_6126;} +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(5173);}while(r); +do{ +goto LABEL_GOTAA2; +if(!qbevent)break;evnt(5173);}while(r); +} +S_6130:; +if ((-(*__LONG_M!= 3 ))||new_error){ +if(qbevent){evnt(5174);if(r)goto S_6130;} +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(5174);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5174);}while(r); +} +S_6134:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T2,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(5175);if(r)goto S_6134;} +do{ +qbs_set(__STRING_T2,__STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5175);}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(5175);}while(r); +} +LABEL_GOTAA2:; +if(qbevent){evnt(5176);r=0;} +fornext_continue_598:; +} +fornext_exit_598:; +S_6140:; +if ((-(*__LONG_M== 1 ))||new_error){ +if(qbevent){evnt(5178);if(r)goto S_6140;} +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(5178);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5178);}while(r); +} +S_6144:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(__STRING_SYMBOL2,qbs_new_txt_len("",0)))&(qbs_notequal(__STRING_T2,qbs_new_txt_len("",0)))))||new_error){ +if(qbevent){evnt(5179);if(r)goto S_6144;} +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(5179);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5179);}while(r); +} +S_6148:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_T2->len))||new_error){ +if(qbevent){evnt(5182);if(r)goto S_6148;} +do{ +qbs_set(__STRING_T2,qbs_ucase(__STRING_T2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5183);}while(r); +do{ +qbs_set(__STRING_T3,__STRING_T2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5184);}while(r); +do{ +*__LONG_TYP=FUNC_TYPNAME2TYP(__STRING_T3); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5185);}while(r); +S_6152:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(5186);if(r)goto S_6152;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5186);}while(r); +} +S_6155:; +if ((-(*__LONG_TYP== 0 ))||new_error){ +if(qbevent){evnt(5187);if(r)goto S_6155;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Undefined type",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5187);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5187);}while(r); +} +S_6159:; +if ((*__LONG_TYP&*__LONG_ISUDT)||new_error){ +if(qbevent){evnt(5188);if(r)goto S_6159;} +S_6160:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(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_new_txt_len("_MEM",4)))&(qbs_equal(qbs_ucase(__STRING_T3),qbs_new_txt_len("MEM",3)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))||new_error){ +if(qbevent){evnt(5189);if(r)goto S_6160;} +do{ +qbs_set(__STRING_T3,func_mid(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)), 2 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5190);}while(r); +}else{ +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(5192);}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(5194);}while(r); +}else{ +S_6167:; +fornext_value602= 1 ; +fornext_finalvalue602=__STRING_T3->len; +fornext_step602= 1 ; +if (fornext_step602<0) fornext_step_negative602=1; else fornext_step_negative602=0; +if (new_error) goto fornext_error602; +goto fornext_entrylabel602; +while(1){ +fornext_value602=fornext_step602+(*__LONG_T3I); +fornext_entrylabel602: +*__LONG_T3I=fornext_value602; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative602){ +if (fornext_value602fornext_finalvalue602) break; +} +fornext_error602:; +if(qbevent){evnt(5196);if(r)goto S_6167;} +S_6168:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_T3,*__LONG_T3I)== 32 )))||new_error){ +if(qbevent){evnt(5197);if(r)goto S_6168;} +do{ +tqbs=__STRING_T3; if (!new_error){ +tmp_fileno=*__LONG_T3I; if (!new_error){ +tmp_long=qbs_asc(__STRING1_SP); if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(5197);}while(r); +} +fornext_continue_601:; +} +fornext_exit_601:; +do{ +qbs_set(__STRING_T3,FUNC_SCASE2(__STRING_T3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5199);}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(5200);}while(r); +} +} +S_6176:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T2,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(5204);if(r)goto S_6176;} +do{ +qbs_set(__STRING_T2,__STRING_SYMBOL2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5204);}while(r); +} +S_6179:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T2,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(5205);if(r)goto S_6179;} +S_6180:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_N2, 1 ),qbs_new_txt_len("_",1))))||new_error){ +if(qbevent){evnt(5206);if(r)goto S_6180;} +do{ +*__LONG_V= 27 ; +if(!qbevent)break;evnt(5206);}while(r); +}else{ +do{ +*__LONG_V=qbs_asc(qbs_ucase(__STRING_N2))- 64 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5206);}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(5207);}while(r); +do{ +*__LONG_DIMMETHOD= 1 ; +if(!qbevent)break;evnt(5208);}while(r); +} +S_6188:; +if ((-(*__LONG_ARRAY== 1 ))||new_error){ +if(qbevent){evnt(5214);if(r)goto S_6188;} +S_6189:; +if ((*__LONG_DECLARINGLIBRARY)||new_error){ +if(qbevent){evnt(5215);if(r)goto S_6189;} +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(5215);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5215);}while(r); +} +do{ +*__INTEGER_DIMSFARRAY= 1 ; +if(!qbevent)break;evnt(5216);}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(5218);}while(r); +S_6195:; +if ((*__LONG_NELEREQ)||new_error){ +if(qbevent){evnt(5219);if(r)goto S_6195;} +do{ +*__LONG_NELE=*__LONG_NELEREQ; +if(!qbevent)break;evnt(5220);}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(5221);}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(5223);}while(r); +do{ +*__LONG_IGNORE=FUNC_DIM2(__STRING_N2,__STRING_T2,__LONG_DIMMETHOD,FUNC_STR2(__LONG_NELE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5225);}while(r); +S_6200:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(5226);if(r)goto S_6200;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5226);}while(r); +} +}else{ +do{ +*__LONG_NELE= 1 ; +if(!qbevent)break;evnt(5228);}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(5229);}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(5231);}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(5233);}while(r); +S_6208:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(5234);if(r)goto S_6208;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5234);}while(r); +} +} +do{ +*__INTEGER_DIMSFARRAY= 0 ; +if(!qbevent)break;evnt(5237);}while(r); +do{ +qbs_set(__STRING_R,FUNC_REFER(FUNC_STR2(__LONG_CURRENTID),(int32*)(void*)( ((char*)(__UDT_ID)) + (536) ),&(pass604= 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5238);}while(r); +S_6214:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(5239);if(r)goto S_6214;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5239);}while(r); +} +do{ +SUB_WRITEBUFRAWDATA(&(pass605=*__LONG_REGTXTBUF),qbs_add(qbs_new_txt_len("ptrszint*",9),__STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5240);}while(r); +do{ +SUB_WRITEBUFRAWDATA(&(pass606=*__LONG_MAINTXTBUF),qbs_add(qbs_new_txt_len("ptrszint*",9),__STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5241);}while(r); +}else{ +S_6220:; +if ((*__LONG_DECLARINGLIBRARY)||new_error){ +if(qbevent){evnt(5244);if(r)goto S_6220;} +S_6221:; +fornext_value608= 1 ; +fornext_finalvalue608=*__LONG_LASTTYPE; +fornext_step608= 1 ; +if (fornext_step608<0) fornext_step_negative608=1; else fornext_step_negative608=0; +if (new_error) goto fornext_error608; +goto fornext_entrylabel608; +while(1){ +fornext_value608=fornext_step608+(*__LONG_XX); +fornext_entrylabel608: +*__LONG_XX=fornext_value608; +if (fornext_step_negative608){ +if (fornext_value608fornext_finalvalue608) break; +} +fornext_error608:; +if(qbevent){evnt(5246);if(r)goto S_6221;} +S_6222:; +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)))))||new_error){ +if(qbevent){evnt(5247);if(r)goto S_6222;} +do{ +SUB_WRITEBUFLINE(&(pass609=*__LONG_REGTXTBUF),qbs_new_txt_len("void*",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5248);}while(r); +do{ +goto LABEL_DECUDT; +if(!qbevent)break;evnt(5249);}while(r); +S_6225:; +}else{ +if (qbs_cleanup(qbs_tmp_base,(qbs_equal(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)),qbs_new_txt_len("_MEM",4)))&(qbs_equal(__STRING_T2,qbs_new_txt_len("MEM",3)))&(-(*__LONG_QB64PREFIX_SET== 1 )))){ +if(qbevent){evnt(5250);if(r)goto S_6225;} +do{ +SUB_WRITEBUFLINE(&(pass610=*__LONG_REGTXTBUF),qbs_new_txt_len("void*",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5251);}while(r); +do{ +goto LABEL_DECUDT; +if(!qbevent)break;evnt(5252);}while(r); +} +} +fornext_continue_607:; +} +fornext_exit_607:; +do{ +qbs_set(__STRING_T,FUNC_TYP2CTYP(&(pass611= 0 ),__STRING_T2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5255);}while(r); +S_6231:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(5257);if(r)goto S_6231;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5257);}while(r); +} +S_6234:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T,qbs_new_txt_len("qbs",3))))||new_error){ +if(qbevent){evnt(5258);if(r)goto S_6234;} +do{ +qbs_set(__STRING_T,qbs_new_txt_len("char*",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5259);}while(r); +S_6236:; +if ((-(*__LONG_BYVALUE== 1 ))||new_error){ +if(qbevent){evnt(5260);if(r)goto S_6236;} +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(5260);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5260);}while(r); +} +do{ +*__LONG_BYVALUE= 1 ; +if(!qbevent)break;evnt(5261);}while(r); +} +S_6242:; +if ((*__LONG_BYVALUE)||new_error){ +if(qbevent){evnt(5263);if(r)goto S_6242;} +do{ +SUB_WRITEBUFRAWDATA(&(pass612=*__LONG_REGTXTBUF),__STRING_T); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5263);}while(r); +}else{ +do{ +SUB_WRITEBUFRAWDATA(&(pass613=*__LONG_REGTXTBUF),qbs_add(__STRING_T,qbs_new_txt_len("*",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5263);}while(r); +} +LABEL_DECUDT:; +if(qbevent){evnt(5264);r=0;} +do{ +goto LABEL_DECLIBJMP3; +if(!qbevent)break;evnt(5265);}while(r); +} +do{ +*__INTEGER_DIMSFARRAY= 1 ; +if(!qbevent)break;evnt(5268);}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(5269);}while(r); +S_6251:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(5270);if(r)goto S_6251;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5270);}while(r); +} +do{ +*__INTEGER_DIMSFARRAY= 0 ; +if(!qbevent)break;evnt(5273);}while(r); +do{ +qbs_set(__STRING_T,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5274);}while(r); +do{ +*__LONG_TYP=*(int32*)(((char*)__UDT_ID)+(536)); +if(!qbevent)break;evnt(5275);}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(5277);}while(r); +S_6258:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(5278);if(r)goto S_6258;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5278);}while(r); +} +S_6261:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(5282);if(r)goto S_6261;} +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(5282);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5282);}while(r); +} +do{ +qbs_set(__STRING_R,FUNC_REFER(FUNC_STR2(__LONG_CURRENTID),(int32*)(void*)( ((char*)(__UDT_ID)) + (536) ),&(pass614= 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5285);}while(r); +S_6266:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(5286);if(r)goto S_6266;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5286);}while(r); +} +do{ +SUB_WRITEBUFRAWDATA(&(pass615=*__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(5287);}while(r); +do{ +SUB_WRITEBUFRAWDATA(&(pass616=*__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(5288);}while(r); +S_6271:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T,qbs_new_txt_len("qbs",3))))||new_error){ +if(qbevent){evnt(5289);if(r)goto S_6271;} +do{ +qbs_set(__STRING_U,FUNC_STR2(&(pass617=FUNC_UNIQUENUMBER()))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5290);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass618=*__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(5291);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass619=*__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(5292);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass620=*__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(5293);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass621=*__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(5295);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass622=*__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(5296);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass623=*__LONG_DATATXTBUF),qbs_new_txt_len("}else{",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5297);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass624=*__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(5298);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass625=*__LONG_DATATXTBUF),qbs_new_txt_len("}",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5299);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass626=*__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(5301);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass627=*__LONG_DATATXTBUF),qbs_new_txt_len("}",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5302);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass628=*__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(5304);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass629=*__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(5305);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass630=*__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(5306);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass631=*__LONG_FREETXTBUF),qbs_new_txt_len("}",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5307);}while(r); +} +} +LABEL_DECLIBJMP3:; +if(qbevent){evnt(5310);r=0;} +S_6289:; +if ((-(*__LONG_I!=(*__LONG_N- 1 )))||new_error){ +if(qbevent){evnt(5311);if(r)goto S_6289;} +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(5311);}while(r); +} +do{ +qbs_set(__STRING_A2,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5313);}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(5315);}while(r); +S_6295:; +if ((-(*__LONG_I==(*__LONG_N- 1 )))||new_error){ +if(qbevent){evnt(5316);if(r)goto S_6295;} +do{ +goto LABEL_GETLASTPARAM2; +if(!qbevent)break;evnt(5316);}while(r); +} +} +fornext_continue_590:; +} +fornext_exit_590:; +LABEL_NOSFPARAMS2:; +if(qbevent){evnt(5319);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(5320);}while(r); +} +do{ +*__LONG_ALLOWLOCALNAME= 0 ; +if(!qbevent)break;evnt(5322);}while(r); +S_6303:; +if ((*__LONG_ADDSTATIC2LAYOUT)||new_error){ +if(qbevent){evnt(5324);if(r)goto S_6303;} +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(5324);}while(r); +} +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(5325);}while(r); +S_6307:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(5325);if(r)goto S_6307;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5325);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5325);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass633=*__LONG_REGTXTBUF),qbs_new_txt_len(");",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5327);}while(r); +S_6313:; +if ((*__LONG_DECLARINGLIBRARY)||new_error){ +if(qbevent){evnt(5329);if(r)goto S_6313;} +do{ +goto LABEL_DECLIBJMP4; +if(!qbevent)break;evnt(5329);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass634=*__LONG_MAINTXTBUF),qbs_new_txt_len("){",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5331);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass635=*__LONG_MAINTXTBUF),qbs_new_txt_len("qbs *tqbs;",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5332);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass636=*__LONG_MAINTXTBUF),qbs_new_txt_len("ptrszint tmp_long;",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5333);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass637=*__LONG_MAINTXTBUF),qbs_new_txt_len("int32 tmp_fileno;",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5334);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass638=*__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(5335);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass639=*__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(5336);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass640=*__LONG_MAINTXTBUF),qbs_new_txt_len("uint32 tmp_cmem_sp=cmem_sp;",27)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5337);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass641=*__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)),FUNC_STR2(__LONG_SUBFUNCN)),qbs_new_txt_len(".txt",4)),func_chr( 34 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5338);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass642=*__LONG_MAINTXTBUF),qbs_new_txt_len("mem_lock *sf_mem_lock;",22)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5341);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass643=*__LONG_MAINTXTBUF),qbs_new_txt_len("new_mem_lock();",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5342);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass644=*__LONG_MAINTXTBUF),qbs_new_txt_len("sf_mem_lock=mem_lock_tmp;",25)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5343);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass645=*__LONG_MAINTXTBUF),qbs_new_txt_len("sf_mem_lock->type=3;",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5344);}while(r); +S_6328:; +if ((-(*__LONG_VWATCHON== 1 ))||new_error){ +if(qbevent){evnt(5346);if(r)goto S_6328;} +do{ +SUB_WRITEBUFLINE(&(pass646=*__LONG_MAINTXTBUF),qbs_new_txt_len("*__LONG_VWATCH_SUBLEVEL=*__LONG_VWATCH_SUBLEVEL+ 1 ;",52)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5347);}while(r); +S_6330:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_SUBFUNC,qbs_new_txt_len("SUB_VWATCH",10))))||new_error){ +if(qbevent){evnt(5348);if(r)goto S_6330;} +do{ +qbs_set(__STRING_INCLINENUMP,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5349);}while(r); +S_6332:; +if ((((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])||new_error){ +if(qbevent){evnt(5350);if(r)goto S_6332;} +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(5351);}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(5352);}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(5353);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass648=*__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)),FUNC_STR2(&(pass649=((int32)(qbs_add(__STRING_INCLINENUMP,__STRING_SUBFUNCORIGINALNAME))->len)))),qbs_new_txt_len("));",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5356);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass650=*__LONG_MAINTXTBUF),qbs_new_txt_len("qbs_cleanup(qbs_tmp_base,0);",28)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5357);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass651=*__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)),FUNC_STR2(&(pass653=__STRING_SUBFUNC->len))),qbs_new_txt_len("));",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5358);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass654=*__LONG_MAINTXTBUF),qbs_new_txt_len("qbs_cleanup(qbs_tmp_base,0);",28)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5359);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass655=*__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(5360);}while(r); +} +} +do{ +SUB_WRITEBUFLINE(&(pass656=*__LONG_MAINTXTBUF),qbs_new_txt_len("if (new_error) goto exit_subfunc;",33)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5364);}while(r); +do{ +*__LONG_DIMSTATIC=*__LONG_STATICSF; +if(!qbevent)break;evnt(5369);}while(r); +LABEL_DECLIBJMP4:; +if(qbevent){evnt(5371);r=0;} +S_6346:; +if ((*__LONG_DECLARINGLIBRARY)||new_error){ +if(qbevent){evnt(5373);if(r)goto S_6346;} +S_6347:; +if ((*__LONG_CUSTOMTYPELIBRARY)||new_error){ +if(qbevent){evnt(5375);if(r)goto S_6347;} +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(5377);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass657=*__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(5379);}while(r); +S_6350:; +if ((*__LONG_SUBFUNCN)||new_error){ +if(qbevent){evnt(5381);if(r)goto S_6350;} +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(5382);}while(r); +}else{ +do{ +*__LONG_F=*__LONG_DATATXTBUF; +if(!qbevent)break;evnt(5384);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass658=*__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(5387);}while(r); +S_6356:; +if (((-(*__LONG_SFHEADER== 0 ))&(-(*__LONG_SFDECLARE!= 0 )))||new_error){ +if(qbevent){evnt(5390);if(r)goto S_6356;} +do{ +*__LONG_RESOLVESTATICFUNCTIONS=*__LONG_RESOLVESTATICFUNCTIONS+ 1 ; +if(!qbevent)break;evnt(5391);}while(r); +S_6358:; +if ((qbs_cleanup(qbs_tmp_base,-(*__LONG_RESOLVESTATICFUNCTIONS>func_ubound(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME,1,1))))||new_error){ +if(qbevent){evnt(5393);if(r)goto S_6358;} +do{ if (__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[2]&2){ error(10); @@ -22774,9 +22774,9 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[tmp_ while(tmp_long--) ((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -} -if(!qbevent)break;evnt(5394);}while(r); -do{ +} +if(!qbevent)break;evnt(5394);}while(r); +do{ if (__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[2]&2){ error(10); @@ -22819,9 +22819,9 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[tmp_ while(tmp_long--) ((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -} -if(!qbevent)break;evnt(5395);}while(r); -do{ +} +if(!qbevent)break;evnt(5395);}while(r); +do{ if (__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[2]&2){ error(10); @@ -22859,91 +22859,91 @@ if (!__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]) error(257); } } __ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[2]|=1; -} -if(!qbevent)break;evnt(5396);}while(r); -} -do{ -tmp_long=array_check((*__LONG_RESOLVESTATICFUNCTIONS)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[tmp_long])),__STRING_LIBNAME); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5398);}while(r); -do{ -tmp_long=array_check((*__LONG_RESOLVESTATICFUNCTIONS)-__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[tmp_long])),__STRING_ALIASNAME); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5399);}while(r); -do{ -tmp_long=array_check((*__LONG_RESOLVESTATICFUNCTIONS)-__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[4],__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(5400);}while(r); -} -} -S_6368:; -if ((*__LONG_DYNAMICLIBRARY)||new_error){ -if(qbevent){evnt(5405);if(r)goto S_6368;} -S_6369:; -if ((*__LONG_SFDECLARE)||new_error){ -if(qbevent){evnt(5406);if(r)goto S_6369;} -do{ -SUB_WRITEBUFLINE(&(pass659=*__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(5408);}while(r); -S_6371:; -if ((*__LONG_SUBFUNCN)||new_error){ -if(qbevent){evnt(5410);if(r)goto S_6371;} -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(5411);}while(r); -}else{ -do{ -*__LONG_F=*__LONG_DATATXTBUF; -if(!qbevent)break;evnt(5413);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass660=*__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(5416);}while(r); -S_6377:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ -if(qbevent){evnt(5417);if(r)goto S_6377;} -do{ -SUB_WRITEBUFLINE(&(pass661=*__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(5418);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass662=*__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(5419);}while(r); -} -S_6381:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ -if(qbevent){evnt(5421);if(r)goto S_6381;} -do{ -SUB_WRITEBUFLINE(&(pass663=*__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(5422);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass664=*__LONG_F),qbs_new_txt_len("if (dlerror()) error(260);",26)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5423);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass665=*__LONG_F),qbs_new_txt_len("}",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5425);}while(r); -} -} -S_6388:; -if (((-(*__LONG_SFDECLARE== 1 ))&(-(*__LONG_CUSTOMTYPELIBRARY== 0 ))&(-(*__LONG_DYNAMICLIBRARY== 0 ))&(-(*__LONG_INDIRECTLIBRARY== 0 )))||new_error){ -if(qbevent){evnt(5430);if(r)goto S_6388;} -do{ -*__LONG_RESOLVESTATICFUNCTIONS=*__LONG_RESOLVESTATICFUNCTIONS+ 1 ; -if(!qbevent)break;evnt(5431);}while(r); -S_6390:; -if ((qbs_cleanup(qbs_tmp_base,-(*__LONG_RESOLVESTATICFUNCTIONS>func_ubound(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME,1,1))))||new_error){ -if(qbevent){evnt(5433);if(r)goto S_6390;} -do{ +} +if(!qbevent)break;evnt(5396);}while(r); +} +do{ +tmp_long=array_check((*__LONG_RESOLVESTATICFUNCTIONS)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[tmp_long])),__STRING_LIBNAME); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5398);}while(r); +do{ +tmp_long=array_check((*__LONG_RESOLVESTATICFUNCTIONS)-__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[tmp_long])),__STRING_ALIASNAME); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5399);}while(r); +do{ +tmp_long=array_check((*__LONG_RESOLVESTATICFUNCTIONS)-__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[4],__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]))[tmp_long]= 1 ; +if(!qbevent)break;evnt(5400);}while(r); +} +} +S_6368:; +if ((*__LONG_DYNAMICLIBRARY)||new_error){ +if(qbevent){evnt(5405);if(r)goto S_6368;} +S_6369:; +if ((*__LONG_SFDECLARE)||new_error){ +if(qbevent){evnt(5406);if(r)goto S_6369;} +do{ +SUB_WRITEBUFLINE(&(pass659=*__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(5408);}while(r); +S_6371:; +if ((*__LONG_SUBFUNCN)||new_error){ +if(qbevent){evnt(5410);if(r)goto S_6371;} +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(5411);}while(r); +}else{ +do{ +*__LONG_F=*__LONG_DATATXTBUF; +if(!qbevent)break;evnt(5413);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass660=*__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(5416);}while(r); +S_6377:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ +if(qbevent){evnt(5417);if(r)goto S_6377;} +do{ +SUB_WRITEBUFLINE(&(pass661=*__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(5418);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass662=*__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(5419);}while(r); +} +S_6381:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ +if(qbevent){evnt(5421);if(r)goto S_6381;} +do{ +SUB_WRITEBUFLINE(&(pass663=*__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(5422);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass664=*__LONG_F),qbs_new_txt_len("if (dlerror()) error(260);",26)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5423);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass665=*__LONG_F),qbs_new_txt_len("}",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5425);}while(r); +} +} +S_6388:; +if (((-(*__LONG_SFDECLARE== 1 ))&(-(*__LONG_CUSTOMTYPELIBRARY== 0 ))&(-(*__LONG_DYNAMICLIBRARY== 0 ))&(-(*__LONG_INDIRECTLIBRARY== 0 )))||new_error){ +if(qbevent){evnt(5430);if(r)goto S_6388;} +do{ +*__LONG_RESOLVESTATICFUNCTIONS=*__LONG_RESOLVESTATICFUNCTIONS+ 1 ; +if(!qbevent)break;evnt(5431);}while(r); +S_6390:; +if ((qbs_cleanup(qbs_tmp_base,-(*__LONG_RESOLVESTATICFUNCTIONS>func_ubound(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME,1,1))))||new_error){ +if(qbevent){evnt(5433);if(r)goto S_6390;} +do{ if (__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[2]&2){ error(10); @@ -22986,9 +22986,9 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[tmp_ while(tmp_long--) ((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -} -if(!qbevent)break;evnt(5434);}while(r); -do{ +} +if(!qbevent)break;evnt(5434);}while(r); +do{ if (__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[2]&2){ error(10); @@ -23031,9 +23031,9 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[tmp_ while(tmp_long--) ((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -} -if(!qbevent)break;evnt(5435);}while(r); -do{ +} +if(!qbevent)break;evnt(5435);}while(r); +do{ if (__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[2]&2){ error(10); @@ -23071,3631 +23071,3631 @@ if (!__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]) error(257); } } __ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[2]|=1; -} -if(!qbevent)break;evnt(5436);}while(r); -} -do{ -tmp_long=array_check((*__LONG_RESOLVESTATICFUNCTIONS)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[tmp_long])),__STRING_LIBNAME); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5438);}while(r); -do{ -tmp_long=array_check((*__LONG_RESOLVESTATICFUNCTIONS)-__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[tmp_long])),__STRING_ALIASNAME); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5439);}while(r); -do{ -tmp_long=array_check((*__LONG_RESOLVESTATICFUNCTIONS)-__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[4],__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]))[tmp_long]= 2 ; -if(!qbevent)break;evnt(5440);}while(r); -} -S_6399:; -if (((-(*__LONG_SFDECLARE== 0 ))&(-(*__LONG_INDIRECTLIBRARY== 0 )))||new_error){ -if(qbevent){evnt(5443);if(r)goto S_6399;} -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(5444);}while(r); -} -} -do{ -goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(5449);}while(r); -} -} -S_6406:; -if ((-(*__LONG_N== 2 ))||new_error){ -if(qbevent){evnt(5454);if(r)goto S_6406;} -S_6407:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("END",3))))||new_error){ -if(qbevent){evnt(5455);if(r)goto S_6407;} -do{ -*__LONG_SF= 0 ; -if(!qbevent)break;evnt(5456);}while(r); -S_6409:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("FUNCTION",8))))||new_error){ -if(qbevent){evnt(5457);if(r)goto S_6409;} -do{ -*__LONG_SF= 1 ; -if(!qbevent)break;evnt(5457);}while(r); -} -S_6412:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("SUB",3))))||new_error){ -if(qbevent){evnt(5458);if(r)goto S_6412;} -do{ -*__LONG_SF= 2 ; -if(!qbevent)break;evnt(5458);}while(r); -} -S_6415:; -if ((*__LONG_SF)||new_error){ -if(qbevent){evnt(5459);if(r)goto S_6415;} -S_6416:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_SUBFUNC->len== 0 )))||new_error){ -if(qbevent){evnt(5461);if(r)goto S_6416;} -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(5461);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5461);}while(r); -} -S_6420:; -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 )))||new_error){ -if(qbevent){evnt(5464);if(r)goto S_6420;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Unidentified open control block",31)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5465);}while(r); -S_6422:; -sc_667=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]; -if(qbevent){evnt(5466);if(r)goto S_6422;} -S_6423:; -if (((sc_667==( 1 )))||new_error){ -if(qbevent){evnt(5467);if(r)goto S_6423;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("IF without END IF",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5467);}while(r); -sc_ec_27_end:; -goto sc_667_end; -} -S_6425:; -if (((sc_667==( 2 )))||new_error){ -if(qbevent){evnt(5468);if(r)goto S_6425;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("FOR without NEXT",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5468);}while(r); -sc_ec_28_end:; -goto sc_667_end; -} -S_6427:; -if (((sc_667==( 3 ))||(sc_667==( 4 )))||new_error){ -if(qbevent){evnt(5469);if(r)goto S_6427;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("DO without LOOP",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5469);}while(r); -sc_ec_29_end:; -goto sc_667_end; -} -S_6429:; -if (((sc_667==( 5 )))||new_error){ -if(qbevent){evnt(5470);if(r)goto S_6429;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("WHILE without WEND",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5470);}while(r); -sc_ec_30_end:; -goto sc_667_end; -} -S_6431:; -if ((((sc_667>=( 10 ))&&(sc_667<=( 19 ))))||new_error){ -if(qbevent){evnt(5471);if(r)goto S_6431;} -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(5471);}while(r); -sc_ec_31_end:; -goto sc_667_end; -} -sc_667_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(5473);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5474);}while(r); -} -S_6437:; -if (((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]== 32 ))&*__LONG_IDEINDENTSUBS)||new_error){ -if(qbevent){evnt(5477);if(r)goto S_6437;} -do{ -tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(5478);}while(r); -do{ -*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ; -if(!qbevent)break;evnt(5479);}while(r); -} -S_6441:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_SUBFUNC, 4 ),qbs_new_txt_len("SUB_",4))))||new_error){ -if(qbevent){evnt(5482);if(r)goto S_6441;} -do{ -qbs_set(__STRING_SECONDELEMENT,FUNC_SCASE(qbs_new_txt_len("Sub",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5482);}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(5482);}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(5483);}while(r); -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(5484);}while(r); -S_6448:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(5484);if(r)goto S_6448;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5484);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5484);}while(r); -} -S_6453:; -if ((-(*__LONG_VWATCHON== 1 ))||new_error){ -if(qbevent){evnt(5486);if(r)goto S_6453;} -do{ -SUB_VWATCHVARIABLE(qbs_new_txt_len("",0),&(pass669= 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5487);}while(r); -} -do{ -qbs_set(__STRING_STATICARRAYLIST,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5490);}while(r); -do{ -*__LONG_STATICARRAYLISTN= 0 ; -if(!qbevent)break;evnt(5490);}while(r); -do{ -*__LONG_DIMSTATIC= 0 ; -if(!qbevent)break;evnt(5491);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass670=*__LONG_MAINTXTBUF),qbs_new_txt_len("exit_subfunc:;",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5492);}while(r); -S_6460:; -if ((-(*__LONG_VWATCHON== 1 ))||new_error){ -if(qbevent){evnt(5493);if(r)goto S_6460;} -S_6461:; -if (((-(*__LONG_NOCHECKS== 0 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||new_error){ -if(qbevent){evnt(5494);if(r)goto S_6461;} -do{ -SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass671= 0 )); -if(!qbevent)break;evnt(5495);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass672=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= ",27),FUNC_STR2(__LONG_LINENUMBER)),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(5496);}while(r); -do{ -SUB_VWATCHADDLABEL(&(pass673= 0 ),&(pass674= -1 )); -if(!qbevent)break;evnt(5497);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass675=*__LONG_MAINTXTBUF),qbs_new_txt_len("*__LONG_VWATCH_SUBLEVEL=*__LONG_VWATCH_SUBLEVEL- 1 ;",52)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5499);}while(r); -S_6467:; -if (((-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 ))&(-(*__LONG_FIRSTLINENUMBERLABELVWATCH> 0 )))||new_error){ -if(qbevent){evnt(5501);if(r)goto S_6467;} -do{ -SUB_WRITEBUFLINE(&(pass676=*__LONG_MAINTXTBUF),qbs_new_txt_len("goto VWATCH_SKIPSETNEXTLINE;",28)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5502);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass677=*__LONG_MAINTXTBUF),qbs_new_txt_len("VWATCH_SETNEXTLINE:;",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5503);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass678=*__LONG_MAINTXTBUF),qbs_new_txt_len("switch (*__LONG_VWATCH_GOTO) {",30)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5504);}while(r); -S_6471:; -fornext_value680=*__LONG_FIRSTLINENUMBERLABELVWATCH; -fornext_finalvalue680=*__LONG_LASTLINENUMBERLABELVWATCH; -fornext_step680= 1 ; -if (fornext_step680<0) fornext_step_negative680=1; else fornext_step_negative680=0; -if (new_error) goto fornext_error680; -goto fornext_entrylabel680; -while(1){ -fornext_value680=fornext_step680+(*__LONG_I); -fornext_entrylabel680: -*__LONG_I=fornext_value680; -if (fornext_step_negative680){ -if (fornext_value680fornext_finalvalue680) break; -} -fornext_error680:; -if(qbevent){evnt(5505);if(r)goto S_6471;} -S_6472:; -while((qbs_cleanup(qbs_tmp_base,-(*__LONG_I>__STRING_VWATCHUSEDLABELS->len)))||new_error){ -if(qbevent){evnt(5506);if(r)goto S_6472;} -do{ -qbs_set(__STRING_VWATCHUSEDLABELS,qbs_add(__STRING_VWATCHUSEDLABELS,func_space( 1000 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5507);}while(r); -do{ -qbs_set(__STRING_VWATCHUSEDSKIPLABELS,qbs_add(__STRING_VWATCHUSEDSKIPLABELS,func_space( 1000 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5508);}while(r); -ww_continue_681:; -} -ww_exit_681:; -S_6476:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_VWATCHUSEDLABELS,*__LONG_I)== 1 )))||new_error){ -if(qbevent){evnt(5510);if(r)goto S_6476;} -do{ -SUB_WRITEBUFLINE(&(pass683=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len(" case ",9),FUNC_STR2(__LONG_I)),qbs_new_txt_len(":",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5511);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass684=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len(" goto VWATCH_LABEL_",26),FUNC_STR2(__LONG_I)),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5512);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass685=*__LONG_MAINTXTBUF),qbs_new_txt_len(" break;",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5513);}while(r); -} -fornext_continue_679:; -} -fornext_exit_679:; -do{ -SUB_WRITEBUFLINE(&(pass686=*__LONG_MAINTXTBUF),qbs_new_txt_len(" default:",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5516);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass687=*__LONG_MAINTXTBUF),qbs_new_txt_len(" *__LONG_VWATCH_GOTO=*__LONG_VWATCH_LINENUMBER;",54)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5517);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass688=*__LONG_MAINTXTBUF),qbs_new_txt_len(" goto VWATCH_SETNEXTLINE;",32)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5518);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass689=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5519);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass690=*__LONG_MAINTXTBUF),qbs_new_txt_len("VWATCH_SKIPLINE:;",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5521);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass691=*__LONG_MAINTXTBUF),qbs_new_txt_len("switch (*__LONG_VWATCH_GOTO) {",30)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5522);}while(r); -S_6488:; -fornext_value693=*__LONG_FIRSTLINENUMBERLABELVWATCH; -fornext_finalvalue693=*__LONG_LASTLINENUMBERLABELVWATCH; -fornext_step693= 1 ; -if (fornext_step693<0) fornext_step_negative693=1; else fornext_step_negative693=0; -if (new_error) goto fornext_error693; -goto fornext_entrylabel693; -while(1){ -fornext_value693=fornext_step693+(*__LONG_I); -fornext_entrylabel693: -*__LONG_I=fornext_value693; -if (fornext_step_negative693){ -if (fornext_value693fornext_finalvalue693) break; -} -fornext_error693:; -if(qbevent){evnt(5523);if(r)goto S_6488;} -S_6489:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_VWATCHUSEDSKIPLABELS,*__LONG_I)== 1 )))||new_error){ -if(qbevent){evnt(5524);if(r)goto S_6489;} -do{ -SUB_WRITEBUFLINE(&(pass694=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len(" case -",10),FUNC_STR2(__LONG_I)),qbs_new_txt_len(":",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5525);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass695=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len(" goto VWATCH_SKIPLABEL_",30),FUNC_STR2(__LONG_I)),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5526);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass696=*__LONG_MAINTXTBUF),qbs_new_txt_len(" break;",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5527);}while(r); -} -fornext_continue_692:; -} -fornext_exit_692:; -do{ -SUB_WRITEBUFLINE(&(pass697=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5530);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass698=*__LONG_MAINTXTBUF),qbs_new_txt_len("VWATCH_SKIPSETNEXTLINE:;",24)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5532);}while(r); -} -do{ -*__LONG_FIRSTLINENUMBERLABELVWATCH= 0 ; -if(!qbevent)break;evnt(5534);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass699=*__LONG_MAINTXTBUF),qbs_new_txt_len("free_mem_lock(sf_mem_lock);",27)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5538);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass700=*__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)),FUNC_STR2(__LONG_SUBFUNCN)),qbs_new_txt_len(".txt",4)),func_chr( 34 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5540);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass701=*__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(5541);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass702=*__LONG_MAINTXTBUF),qbs_new_txt_len("cmem_sp=tmp_cmem_sp;",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5542);}while(r); -S_6504:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_SUBFUNCRET,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(5543);if(r)goto S_6504;} -do{ -SUB_WRITEBUFLINE(&(pass703=*__LONG_MAINTXTBUF),__STRING_SUBFUNCRET); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5543);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass704=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5545);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass705=*__LONG_RETTXTBUF),qbs_new_txt_len("}",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5547);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass706=*__LONG_RETTXTBUF),qbs_new_txt_len("}",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5548);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass707=*__LONG_RETTXTBUF),qbs_new_txt_len("error(3);",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5549);}while(r); -do{ -qbs_set(__STRING_SUBFUNC,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5550);}while(r); -do{ -*__BYTE_CLOSEDSUBFUNC= -1 ; -if(!qbevent)break;evnt(5551);}while(r); -S_6513:; -fornext_value709= 1 ; -fornext_finalvalue709=*__LONG_IDN; -fornext_step709= 1 ; -if (fornext_step709<0) fornext_step_negative709=1; else fornext_step_negative709=0; -if (new_error) goto fornext_error709; -goto fornext_entrylabel709; -while(1){ -fornext_value709=fornext_step709+(*__LONG_I); -fornext_entrylabel709: -*__LONG_I=fornext_value709; -if (fornext_step_negative709){ -if (fornext_value709fornext_finalvalue709) break; -} -fornext_error709:; -if(qbevent){evnt(5554);if(r)goto S_6513;} -S_6514:; -if ((*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+2645))& 2 )||new_error){ -if(qbevent){evnt(5555);if(r)goto S_6514;} -do{ -*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+2645))=*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+2645))- 2 ; -if(!qbevent)break;evnt(5555);}while(r); -} -fornext_continue_708:; -} -fornext_exit_708:; -S_6518:; -fornext_value711= 1 ; -fornext_finalvalue711=*__LONG_REVERTMAYMUSTHAVEN; -fornext_step711= 1 ; -if (fornext_step711<0) fornext_step_negative711=1; else fornext_step_negative711=0; -if (new_error) goto fornext_error711; -goto fornext_entrylabel711; -while(1){ -fornext_value711=fornext_step711+(*__LONG_I); -fornext_entrylabel711: -*__LONG_I=fornext_value711; -if (fornext_step_negative711){ -if (fornext_value711fornext_finalvalue711) break; -} -fornext_error711:; -if(qbevent){evnt(5558);if(r)goto S_6518;} -do{ -*__LONG_X=((int32*)(__ARRAY_LONG_REVERTMAYMUSTHAVE[0]))[array_check((*__LONG_I)-__ARRAY_LONG_REVERTMAYMUSTHAVE[4],__ARRAY_LONG_REVERTMAYMUSTHAVE[5])]; -if(!qbevent)break;evnt(5559);}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(5560);}while(r); -fornext_continue_710:; -} -fornext_exit_710:; -do{ -*__LONG_REVERTMAYMUSTHAVEN= 0 ; -if(!qbevent)break;evnt(5562);}while(r); -do{ -goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(5566);}while(r); -} -} -} -S_6527:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_N>= 1 ))&(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("CONST",5)))))||new_error){ -if(qbevent){evnt(5574);if(r)goto S_6527;} -do{ -qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Const",5))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5575);}while(r); -S_6529:; -if ((-(*__LONG_N< 3 ))||new_error){ -if(qbevent){evnt(5578);if(r)goto S_6529;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected CONST name = value/expression",38)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5578);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5578);}while(r); -} -do{ -*__LONG_I= 2 ; -if(!qbevent)break;evnt(5579);}while(r); -LABEL_CONSTDEFPENDING:; -if(qbevent){evnt(5581);r=0;} -do{ -*__LONG_PENDING= 0 ; -if(!qbevent)break;evnt(5582);}while(r); -do{ -qbs_set(__STRING_N,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5584);}while(r); -do{ -*__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(5584);}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(5585);}while(r); -do{ -*__LONG_TYPEOVERRIDE= 0 ; -if(!qbevent)break;evnt(5586);}while(r); -do{ -qbs_set(__STRING_S,FUNC_REMOVESYMBOL(__STRING_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5587);}while(r); -S_6540:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(5588);if(r)goto S_6540;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5588);}while(r); -} -S_6543:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_S,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(5589);if(r)goto S_6543;} -do{ -*__LONG_TYPEOVERRIDE=FUNC_TYPNAME2TYP(__STRING_S); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5590);}while(r); -S_6545:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(5591);if(r)goto S_6545;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5591);}while(r); -} -S_6548:; -if ((*__LONG_TYPEOVERRIDE&*__LONG_ISFIXEDLENGTH)||new_error){ -if(qbevent){evnt(5592);if(r)goto S_6548;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Invalid constant type",21)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5592);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5592);}while(r); -} -S_6552:; -if ((-(*__LONG_TYPEOVERRIDE== 0 ))||new_error){ -if(qbevent){evnt(5593);if(r)goto S_6552;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Invalid constant type",21)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5593);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5593);}while(r); -} -} -S_6557:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,__LONG_I),qbs_new_txt_len("=",1))))||new_error){ -if(qbevent){evnt(5596);if(r)goto S_6557;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected =",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5596);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5596);}while(r); -} -do{ -*__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(5597);}while(r); -do{ -qbs_set(__STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5600);}while(r); -do{ -*__LONG_B= 0 ; -if(!qbevent)break;evnt(5601);}while(r); -S_6564:; -fornext_value713=*__LONG_I; -fornext_finalvalue713=*__LONG_N; -fornext_step713= 1 ; -if (fornext_step713<0) fornext_step_negative713=1; else fornext_step_negative713=0; -if (new_error) goto fornext_error713; -goto fornext_entrylabel713; -while(1){ -fornext_value713=fornext_step713+(*__LONG_I2); -fornext_entrylabel713: -*__LONG_I2=fornext_value713; -if (fornext_step_negative713){ -if (fornext_value713fornext_finalvalue713) break; -} -fornext_error713:; -if(qbevent){evnt(5602);if(r)goto S_6564;} -do{ -qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5603);}while(r); -S_6566:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(5604);if(r)goto S_6566;} -do{ -*__LONG_B=*__LONG_B+ 1 ; -if(!qbevent)break;evnt(5604);}while(r); -} -S_6569:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(5605);if(r)goto S_6569;} -do{ -*__LONG_B=*__LONG_B- 1 ; -if(!qbevent)break;evnt(5605);}while(r); -} -S_6572:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||new_error){ -if(qbevent){evnt(5606);if(r)goto S_6572;} -do{ -*__LONG_PENDING= 1 ; -if(!qbevent)break;evnt(5607);}while(r); -do{ -*__LONG_I=*__LONG_I2+ 1 ; -if(!qbevent)break;evnt(5608);}while(r); -S_6575:; -if ((-(*__LONG_I>(*__LONG_N- 2 )))||new_error){ -if(qbevent){evnt(5609);if(r)goto S_6575;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected CONST ... , name = value/expression",44)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5609);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5609);}while(r); -} -do{ -goto fornext_exit_712; -if(!qbevent)break;evnt(5610);}while(r); -} -S_6581:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E->len== 0 )))||new_error){ -if(qbevent){evnt(5612);if(r)goto S_6581;} -do{ -qbs_set(__STRING_E,__STRING_E2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5612);}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(5612);}while(r); -} -fornext_continue_712:; -} -fornext_exit_712:; -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5615);}while(r); -S_6588:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(5616);if(r)goto S_6588;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5616);}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(5617);}while(r); -do{ -qbs_set(__STRING_HASHNAME,__STRING_N); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5622);}while(r); -do{ -*__LONG_HASHCHKFLAGS= 1024 ; -if(!qbevent)break;evnt(5623);}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(5624);}while(r); -S_6595:; -while((*__LONG_HASHRES)||new_error){ -if(qbevent){evnt(5625);if(r)goto S_6595;} -S_6596:; -if ((-(((int32*)(__ARRAY_LONG_CONSTSUBFUNC[0]))[array_check((*__LONG_HASHRESREF)-__ARRAY_LONG_CONSTSUBFUNC[4],__ARRAY_LONG_CONSTSUBFUNC[5])]==*__LONG_SUBFUNCN))||new_error){ -if(qbevent){evnt(5626);if(r)goto S_6596;} -do{ -tmp_long=array_check((*__LONG_HASHRESREF)-__ARRAY_LONG_CONSTDEFINED[4],__ARRAY_LONG_CONSTDEFINED[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_CONSTDEFINED[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(5626);}while(r); -do{ -goto dl_exit_715; -if(!qbevent)break;evnt(5626);}while(r); -} -S_6600:; -if ((-(*__LONG_HASHRES!= 1 ))||new_error){ -if(qbevent){evnt(5627);if(r)goto S_6600;} -do{ -*__LONG_HASHRES=FUNC_HASHFINDCONT(__LONG_HASHRESFLAGS,__LONG_HASHRESREF); -if(!qbevent)break;evnt(5627);}while(r); -}else{ -do{ -*__LONG_HASHRES= 0 ; -if(!qbevent)break;evnt(5627);}while(r); -} -dl_continue_715:; -} -dl_exit_715:; -S_6606:; -if ((*__LONG_PENDING)||new_error){ -if(qbevent){evnt(5630);if(r)goto S_6606;} -do{ -qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5630);}while(r); -do{ -goto LABEL_CONSTDEFPENDING; -if(!qbevent)break;evnt(5630);}while(r); -} -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(5632);}while(r); -S_6611:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(5632);if(r)goto S_6611;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5632);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5632);}while(r); -} -do{ -goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(5634);}while(r); -} -LABEL_PREDEFINE:; -if(qbevent){evnt(5637);r=0;} -S_6618:; -if ((-(*__LONG_N>= 2 ))||new_error){ -if(qbevent){evnt(5638);if(r)goto S_6618;} -do{ -*__LONG_ASREQ= 0 ; -if(!qbevent)break;evnt(5639);}while(r); -S_6620:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DEFINT",6))))||new_error){ -if(qbevent){evnt(5640);if(r)goto S_6620;} -do{ -qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("DefInt",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5640);}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(5640);}while(r); -do{ -*__LONG_N=*__LONG_N+ 2 ; -if(!qbevent)break;evnt(5640);}while(r); -do{ -goto LABEL_DEFINETYPE; -if(!qbevent)break;evnt(5640);}while(r); -} -S_6626:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DEFLNG",6))))||new_error){ -if(qbevent){evnt(5641);if(r)goto S_6626;} -do{ -qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("DefLng",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5641);}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(5641);}while(r); -do{ -*__LONG_N=*__LONG_N+ 2 ; -if(!qbevent)break;evnt(5641);}while(r); -do{ -goto LABEL_DEFINETYPE; -if(!qbevent)break;evnt(5641);}while(r); -} -S_6632:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DEFSNG",6))))||new_error){ -if(qbevent){evnt(5642);if(r)goto S_6632;} -do{ -qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("DefSng",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5642);}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(5642);}while(r); -do{ -*__LONG_N=*__LONG_N+ 2 ; -if(!qbevent)break;evnt(5642);}while(r); -do{ -goto LABEL_DEFINETYPE; -if(!qbevent)break;evnt(5642);}while(r); -} -S_6638:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DEFDBL",6))))||new_error){ -if(qbevent){evnt(5643);if(r)goto S_6638;} -do{ -qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("DefDbl",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5643);}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(5643);}while(r); -do{ -*__LONG_N=*__LONG_N+ 2 ; -if(!qbevent)break;evnt(5643);}while(r); -do{ -goto LABEL_DEFINETYPE; -if(!qbevent)break;evnt(5643);}while(r); -} -S_6644:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DEFSTR",6))))||new_error){ -if(qbevent){evnt(5644);if(r)goto S_6644;} -do{ -qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("DefStr",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5644);}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(5644);}while(r); -do{ -*__LONG_N=*__LONG_N+ 2 ; -if(!qbevent)break;evnt(5644);}while(r); -do{ -goto LABEL_DEFINETYPE; -if(!qbevent)break;evnt(5644);}while(r); -} -S_6650:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_DEFINE",7)))|(((qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DEFINE",6)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ -if(qbevent){evnt(5645);if(r)goto S_6650;} -do{ -*__LONG_ASREQ= 1 ; -if(!qbevent)break;evnt(5646);}while(r); -S_6652:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_DEFINE",7))))||new_error){ -if(qbevent){evnt(5647);if(r)goto S_6652;} -do{ -qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("_Define",7))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5647);}while(r); -}else{ -do{ -qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Define",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5647);}while(r); -} -LABEL_DEFINETYPE:; -if(qbevent){evnt(5648);r=0;} -do{ -qbs_set(__STRING_TYP,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5650);}while(r); -do{ -qbs_set(__STRING_TYP2,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5651);}while(r); -do{ -qbs_set(__STRING_T,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5652);}while(r); -S_6660:; -fornext_value718=*__LONG_N; -fornext_finalvalue718= 2 ; -fornext_step718= -1 ; -if (fornext_step718<0) fornext_step_negative718=1; else fornext_step_negative718=0; -if (new_error) goto fornext_error718; -goto fornext_entrylabel718; -while(1){ -fornext_value718=fornext_step718+(*__LONG_I); -fornext_entrylabel718: -*__LONG_I=fornext_value718; -if (fornext_step_negative718){ -if (fornext_value718fornext_finalvalue718) break; -} -fornext_error718:; -if(qbevent){evnt(5653);if(r)goto S_6660;} -do{ -qbs_set(__STRING_T,FUNC_GETELEMENT(__STRING_A,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5654);}while(r); -S_6662:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T,qbs_new_txt_len("AS",2))))||new_error){ -if(qbevent){evnt(5655);if(r)goto S_6662;} -do{ -goto fornext_exit_717; -if(!qbevent)break;evnt(5655);}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(5656);}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(5657);}while(r); -fornext_continue_717:; -} -fornext_exit_717:; -do{ -qbs_set(__STRING_TYP,qbs_rtrim(__STRING_TYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5659);}while(r); -S_6669:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_T,qbs_new_txt_len("AS",2))))||new_error){ -if(qbevent){evnt(5660);if(r)goto S_6669;} -do{ -qbs_set(__STRING_A,qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("DEFINE: Expected ... AS ...",27))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5660);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5660);}while(r); -} -S_6673:; -if (((-(*__LONG_I==*__LONG_N))|(-(*__LONG_I== 2 )))||new_error){ -if(qbevent){evnt(5661);if(r)goto S_6673;} -do{ -qbs_set(__STRING_A,qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("DEFINE: Expected ... AS ...",27))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5661);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5661);}while(r); -} -do{ -*__LONG_N=*__LONG_I- 1 ; -if(!qbevent)break;evnt(5664);}while(r); -do{ -*__LONG_I= 2 - 1 ; -if(!qbevent)break;evnt(5666);}while(r); -LABEL_DEFINENEXT:; -if(qbevent){evnt(5667);r=0;} -do{ -*__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(5669);}while(r); -do{ -qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5669);}while(r); -do{ -*__LONG_E=qbs_asc(qbs_ucase(__STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5669);}while(r); -S_6682:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E->len> 1 )))||new_error){ -if(qbevent){evnt(5670);if(r)goto S_6682;} -do{ -qbs_set(__STRING_A,qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("DEFINE: Expected an alphabet letter or the underscore character (_)",67))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5670);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5670);}while(r); -} -S_6686:; -if (((-(*__LONG_E!= 95 ))&(((-(*__LONG_E> 90 ))|(-(*__LONG_E< 65 )))))||new_error){ -if(qbevent){evnt(5671);if(r)goto S_6686;} -do{ -qbs_set(__STRING_A,qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("DEFINE: Expected an alphabet letter or the underscore character (_)",67))); -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_6690:; -if ((-(*__LONG_E== 95 ))||new_error){ -if(qbevent){evnt(5672);if(r)goto S_6690;} -do{ -*__LONG_E= 27 ; -if(!qbevent)break;evnt(5672);}while(r); -}else{ -do{ -*__LONG_E=*__LONG_E- 64 ; -if(!qbevent)break;evnt(5672);}while(r); -} -do{ -tmp_long=array_check((*__LONG_E)-__ARRAY_STRING_DEFINEAZ[4],__ARRAY_STRING_DEFINEAZ[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEAZ[0]))[tmp_long])),__STRING_TYP); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5673);}while(r); -do{ -tmp_long=array_check((*__LONG_E)-__ARRAY_STRING_DEFINEEXTAZ[4],__ARRAY_STRING_DEFINEEXTAZ[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEEXTAZ[0]))[tmp_long])),FUNC_TYPE2SYMBOL(__STRING_TYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5674);}while(r); -S_6697:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(5675);if(r)goto S_6697;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5675);}while(r); -} -do{ -*__LONG_FIRSTE=*__LONG_E; -if(!qbevent)break;evnt(5676);}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(5677);}while(r); -S_6702:; -if ((-(*__LONG_I==*__LONG_N))||new_error){ -if(qbevent){evnt(5679);if(r)goto S_6702;} -S_6703:; -if ((-(*__LONG_PREDEFINING== 1 ))||new_error){ -if(qbevent){evnt(5680);if(r)goto S_6703;} -do{ -goto LABEL_PREDEFINED; -if(!qbevent)break;evnt(5680);}while(r); -} -S_6706:; -if ((*__LONG_ASREQ)||new_error){ -if(qbevent){evnt(5681);if(r)goto S_6706;} -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(5681);}while(r); -} -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(5682);}while(r); -S_6710:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(5682);if(r)goto S_6710;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5682);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5682);}while(r); -} -do{ -goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(5683);}while(r); -} -do{ -*__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(5687);}while(r); -do{ -qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5687);}while(r); -S_6719:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(__STRING_E,qbs_new_txt_len("-",1)))&(qbs_notequal(__STRING_E,qbs_new_txt_len(",",1)))))||new_error){ -if(qbevent){evnt(5688);if(r)goto S_6719;} -do{ -qbs_set(__STRING_A,qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("DEFINE: Expected - or ,",23))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5688);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5688);}while(r); -} -S_6723:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("-",1))))||new_error){ -if(qbevent){evnt(5689);if(r)goto S_6723;} -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(5690);}while(r); -S_6725:; -if ((-(*__LONG_I==*__LONG_N))||new_error){ -if(qbevent){evnt(5691);if(r)goto S_6725;} -do{ -qbs_set(__STRING_A,qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("DEFINE: Syntax incomplete",25))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5691);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5691);}while(r); -} -do{ -*__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(5693);}while(r); -do{ -qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5693);}while(r); -do{ -*__LONG_E=qbs_asc(qbs_ucase(__STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5693);}while(r); -S_6732:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E->len> 1 )))||new_error){ -if(qbevent){evnt(5694);if(r)goto S_6732;} -do{ -qbs_set(__STRING_A,qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("DEFINE: Expected an alphabet letter or the underscore character (_)",67))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5694);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5694);}while(r); -} -S_6736:; -if (((-(*__LONG_E!= 95 ))&(((-(*__LONG_E> 90 ))|(-(*__LONG_E< 65 )))))||new_error){ -if(qbevent){evnt(5695);if(r)goto S_6736;} -do{ -qbs_set(__STRING_A,qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("DEFINE: Expected an alphabet letter or the underscore character (_)",67))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5695);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5695);}while(r); -} -S_6740:; -if ((-(*__LONG_E== 95 ))||new_error){ -if(qbevent){evnt(5696);if(r)goto S_6740;} -do{ -*__LONG_E= 27 ; -if(!qbevent)break;evnt(5696);}while(r); -}else{ -do{ -*__LONG_E=*__LONG_E- 64 ; -if(!qbevent)break;evnt(5696);}while(r); -} -S_6745:; -if ((-(*__LONG_FIRSTE>*__LONG_E))||new_error){ -if(qbevent){evnt(5697);if(r)goto S_6745;} -do{ -swap_32(&*__LONG_E,&*__LONG_FIRSTE); -if(!qbevent)break;evnt(5697);}while(r); -} -S_6748:; -fornext_value723=*__LONG_FIRSTE; -fornext_finalvalue723=*__LONG_E; -fornext_step723= 1 ; -if (fornext_step723<0) fornext_step_negative723=1; else fornext_step_negative723=0; -if (new_error) goto fornext_error723; -goto fornext_entrylabel723; -while(1){ -fornext_value723=fornext_step723+(*__LONG_E2); -fornext_entrylabel723: -*__LONG_E2=fornext_value723; -if (fornext_step_negative723){ -if (fornext_value723fornext_finalvalue723) break; -} -fornext_error723:; -if(qbevent){evnt(5698);if(r)goto S_6748;} -do{ -tmp_long=array_check((*__LONG_E2)-__ARRAY_STRING_DEFINEAZ[4],__ARRAY_STRING_DEFINEAZ[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEAZ[0]))[tmp_long])),__STRING_TYP); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5699);}while(r); -do{ -tmp_long=array_check((*__LONG_E2)-__ARRAY_STRING_DEFINEEXTAZ[4],__ARRAY_STRING_DEFINEEXTAZ[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEEXTAZ[0]))[tmp_long])),FUNC_TYPE2SYMBOL(__STRING_TYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5700);}while(r); -S_6751:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(5701);if(r)goto S_6751;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5701);}while(r); -} -fornext_continue_722:; -} -fornext_exit_722:; -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(5703);}while(r); -S_6756:; -if ((-(*__LONG_I==*__LONG_N))||new_error){ -if(qbevent){evnt(5704);if(r)goto S_6756;} -S_6757:; -if ((-(*__LONG_PREDEFINING== 1 ))||new_error){ -if(qbevent){evnt(5705);if(r)goto S_6757;} -do{ -goto LABEL_PREDEFINED; -if(!qbevent)break;evnt(5705);}while(r); -} -S_6760:; -if ((*__LONG_ASREQ)||new_error){ -if(qbevent){evnt(5706);if(r)goto S_6760;} -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(5706);}while(r); -} -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(5707);}while(r); -S_6764:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(5707);if(r)goto S_6764;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5707);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5707);}while(r); -} -do{ -goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(5708);}while(r); -} -do{ -*__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(5711);}while(r); -do{ -qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5711);}while(r); -S_6773:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len(",",1))))||new_error){ -if(qbevent){evnt(5712);if(r)goto S_6773;} -do{ -qbs_set(__STRING_A,qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("DEFINE: Expected ,",18))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5712);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5712);}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(5714);}while(r); -do{ -goto LABEL_DEFINENEXT; -if(!qbevent)break;evnt(5715);}while(r); -} -} -S_6782:; -if ((-(*__LONG_PREDEFINING== 1 ))||new_error){ -if(qbevent){evnt(5718);if(r)goto S_6782;} -do{ -goto LABEL_PREDEFINED; -if(!qbevent)break;evnt(5718);}while(r); -} -S_6785:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__INTEGER_CLOSEDMAIN!= 0 ))&(qbs_equal(__STRING_SUBFUNC,qbs_new_txt_len("",0)))))||new_error){ -if(qbevent){evnt(5720);if(r)goto S_6785;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Statement cannot be placed between SUB/FUNCTIONs",48)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5720);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5720);}while(r); -} -do{ -*__LONG_STATEMENTN=*__LONG_STATEMENTN+ 1 ; -if(!qbevent)break;evnt(5724);}while(r); -S_6790:; -if ((-(*__LONG_N>= 1 ))||new_error){ -if(qbevent){evnt(5727);if(r)goto S_6790;} -S_6791:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("NEXT",4))))||new_error){ -if(qbevent){evnt(5728);if(r)goto S_6791;} -do{ -qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Next",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5730);}while(r); -S_6793:; -if ((-(*__LONG_N== 1 ))||new_error){ -if(qbevent){evnt(5731);if(r)goto S_6793;} -do{ -goto LABEL_SIMPLENEXT; -if(!qbevent)break;evnt(5731);}while(r); -} -do{ -qbs_set(__STRING_V,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5732);}while(r); -S_6797:; -fornext_value726= 2 ; -fornext_finalvalue726=*__LONG_N; -fornext_step726= 1 ; -if (fornext_step726<0) fornext_step_negative726=1; else fornext_step_negative726=0; -if (new_error) goto fornext_error726; -goto fornext_entrylabel726; -while(1){ -fornext_value726=fornext_step726+(*__LONG_I); -fornext_entrylabel726: -*__LONG_I=fornext_value726; -if (fornext_step_negative726){ -if (fornext_value726fornext_finalvalue726) break; -} -fornext_error726:; -if(qbevent){evnt(5733);if(r)goto S_6797;} -do{ -qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5734);}while(r); -S_6799:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(",",1))))||new_error){ -if(qbevent){evnt(5736);if(r)goto S_6799;} -LABEL_LASTNEXTELE:; -if(qbevent){evnt(5738);r=0;} -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_V)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5739);}while(r); -S_6801:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(5740);if(r)goto S_6801;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5740);}while(r); -} -S_6804:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_L->len== 4 )))||new_error){ -if(qbevent){evnt(5741);if(r)goto S_6804;} -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(5741);}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(5741);}while(r); -} -do{ -qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5742);}while(r); -S_6810:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(5743);if(r)goto S_6810;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5743);}while(r); -} -S_6813:; -if (((*__LONG_TYP&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(5744);if(r)goto S_6813;} -do{ -SUB_GETID(&(pass728=qbr(func_val(__STRING_E)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5745);}while(r); -S_6815:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(5746);if(r)goto S_6815;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5746);}while(r); -} -S_6818:; -if (((*(int32*)(((char*)__UDT_ID)+(536))&*__LONG_ISPOINTER))||new_error){ -if(qbevent){evnt(5747);if(r)goto S_6818;} -S_6819:; -if ((-((*(int32*)(((char*)__UDT_ID)+(536))&*__LONG_ISSTRING)== 0 ))||new_error){ -if(qbevent){evnt(5748);if(r)goto S_6819;} -S_6820:; -if ((-((*(int32*)(((char*)__UDT_ID)+(536))&*__LONG_ISOFFSETINBITS)== 0 ))||new_error){ -if(qbevent){evnt(5749);if(r)goto S_6820;} -S_6821:; -if ((-((*(int32*)(((char*)__UDT_ID)+(536))&*__LONG_ISARRAY)== 0 ))||new_error){ -if(qbevent){evnt(5750);if(r)goto S_6821;} -do{ -goto LABEL_FORNEXTFOUNDVAR2; -if(!qbevent)break;evnt(5751);}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(5757);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5757);}while(r); -LABEL_FORNEXTFOUNDVAR2:; -if(qbevent){evnt(5758);r=0;} -LABEL_SIMPLENEXT:; -if(qbevent){evnt(5759);r=0;} -S_6830:; -if ((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]!= 2 ))||new_error){ -if(qbevent){evnt(5760);if(r)goto S_6830;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("NEXT without FOR",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5760);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5760);}while(r); -} -S_6834:; -if (((-(*__LONG_N!= 1 ))&(-(((int32*)(__ARRAY_LONG_CONTROLVALUE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLVALUE[4],__ARRAY_LONG_CONTROLVALUE[5])]!=*__LONG_CURRENTID)))||new_error){ -if(qbevent){evnt(5761);if(r)goto S_6834;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Incorrect variable after NEXT",29)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5761);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5761);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass729=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("fornext_continue_",17),FUNC_STR2((&(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])])))),qbs_new_txt_len(":;",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5762);}while(r); -S_6839:; -if (((-(*__LONG_VWATCHON== 1 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 ))&(-(*__LONG_NOCHECKS== 0 )))||new_error){ -if(qbevent){evnt(5763);if(r)goto S_6839;} -do{ -SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass730= 0 )); -if(!qbevent)break;evnt(5764);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass731=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= ",27),FUNC_STR2(__LONG_LINENUMBER)),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(5765);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass732=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5767);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass733=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("fornext_exit_",13),FUNC_STR2((&(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])])))),qbs_new_txt_len(":;",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5768);}while(r); -do{ -*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ; -if(!qbevent)break;evnt(5769);}while(r); -S_6846:; -if ((-(*__LONG_N== 1 ))||new_error){ -if(qbevent){evnt(5770);if(r)goto S_6846;} -do{ -goto fornext_exit_725; -if(!qbevent)break;evnt(5770);}while(r); -} -do{ -qbs_set(__STRING_V,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5771);}while(r); -}else{ -S_6851:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_V->len))||new_error){ -if(qbevent){evnt(5775);if(r)goto S_6851;} -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(5775);}while(r); -}else{ -do{ -qbs_set(__STRING_V,__STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5775);}while(r); -} -S_6856:; -if ((-(*__LONG_I==*__LONG_N))||new_error){ -if(qbevent){evnt(5776);if(r)goto S_6856;} -do{ -goto LABEL_LASTNEXTELE; -if(!qbevent)break;evnt(5776);}while(r); -} -} -fornext_continue_725:; -} -fornext_exit_725:; -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(5782);}while(r); -S_6862:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(5782);if(r)goto S_6862;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5782);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5782);}while(r); -} -do{ -goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(5783);}while(r); -} -} -S_6870:; -if ((-(*__LONG_N>= 1 ))||new_error){ -if(qbevent){evnt(5789);if(r)goto S_6870;} -S_6871:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("WHILE",5))))||new_error){ -if(qbevent){evnt(5790);if(r)goto S_6871;} -S_6872:; -if ((-(*__LONG_NOCHECKS== 0 ))||new_error){ -if(qbevent){evnt(5791);if(r)goto S_6872;} -do{ -SUB_WRITEBUFLINE(&(pass736=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("S_",2),FUNC_STR2(__LONG_STATEMENTN)),qbs_new_txt_len(":;",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5791);}while(r); -do{ -*__LONG_DYNSCOPE= 1 ; -if(!qbevent)break;evnt(5791);}while(r); -} -S_6876:; -if (((-(*__ULONG_SELECTCASECOUNTER> 0 ))&(-(((int32*)(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]))[array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_SELECTCASEHASCASEBLOCK[4],__ARRAY_LONG_SELECTCASEHASCASEBLOCK[5])]== 0 )))||new_error){ -if(qbevent){evnt(5794);if(r)goto S_6876;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected CASE expression",24)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5795);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5795);}while(r); -} -do{ -*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL+ 1 ; -if(!qbevent)break;evnt(5798);}while(r); -do{ -tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLREF[4],__ARRAY_LONG_CONTROLREF[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_CONTROLREF[0]))[tmp_long]=*__LONG_LINENUMBER; -if(!qbevent)break;evnt(5799);}while(r); -do{ -tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[tmp_long]= 5 ; -if(!qbevent)break;evnt(5800);}while(r); -do{ -tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_CONTROLID[0]))[tmp_long]=FUNC_UNIQUENUMBER(); -if(!qbevent)break;evnt(5801);}while(r); -S_6884:; -if ((-(*__LONG_N>= 2 ))||new_error){ -if(qbevent){evnt(5802);if(r)goto S_6884;} -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(FUNC_GETELEMENTS(__STRING_CA,&(pass737= 2 ),__LONG_N))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5803);}while(r); -S_6886:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(5804);if(r)goto S_6886;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5804);}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(5805);}while(r); -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(5806);}while(r); -S_6891:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(5806);if(r)goto S_6891;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5806);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5806);}while(r); -} -do{ -qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5807);}while(r); -S_6897:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(5808);if(r)goto S_6897;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5808);}while(r); -} -S_6900:; -if (((*__LONG_TYP&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(5809);if(r)goto S_6900;} -do{ -qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass739= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5809);}while(r); -} -S_6903:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(5810);if(r)goto S_6903;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5810);}while(r); -} -S_6906:; -if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||new_error){ -if(qbevent){evnt(5811);if(r)goto S_6906;} -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(5811);}while(r); -} -S_6909:; -if (((*__LONG_TYP&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(5812);if(r)goto S_6909;} -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(5812);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5812);}while(r); -} -S_6913:; -if (((-(*__LONG_NOCHECKS== 0 ))&(-(*__LONG_VWATCHON== 1 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||new_error){ -if(qbevent){evnt(5813);if(r)goto S_6913;} -do{ -SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass740= 0 )); -if(!qbevent)break;evnt(5814);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass741=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= ",27),FUNC_STR2(__LONG_LINENUMBER)),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(5815);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass742=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("while((",7),__STRING_E),qbs_new_txt_len(")||new_error){",14))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5817);}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(5819);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5819);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(5822);}while(r); -} -} -S_6925:; -if ((-(*__LONG_N== 1 ))||new_error){ -if(qbevent){evnt(5826);if(r)goto S_6925;} -S_6926:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("WEND",4))))||new_error){ -if(qbevent){evnt(5827);if(r)goto S_6926;} -S_6927:; -if ((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]!= 5 ))||new_error){ -if(qbevent){evnt(5830);if(r)goto S_6927;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("WEND without WHILE",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5830);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5830);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass743=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("ww_continue_",12),FUNC_STR2((&(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])])))),qbs_new_txt_len(":;",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5831);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass744=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5832);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass745=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("ww_exit_",8),FUNC_STR2((&(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])])))),qbs_new_txt_len(":;",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5833);}while(r); -do{ -*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ; -if(!qbevent)break;evnt(5834);}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(5835);}while(r); -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(5836);}while(r); -S_6937:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(5836);if(r)goto S_6937;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5836);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5836);}while(r); -} -do{ -goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(5837);}while(r); -} -} -S_6945:; -if ((-(*__LONG_N>= 1 ))||new_error){ -if(qbevent){evnt(5845);if(r)goto S_6945;} -S_6946:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DO",2))))||new_error){ -if(qbevent){evnt(5846);if(r)goto S_6946;} -S_6947:; -if ((-(*__LONG_NOCHECKS== 0 ))||new_error){ -if(qbevent){evnt(5847);if(r)goto S_6947;} -do{ -SUB_WRITEBUFLINE(&(pass747=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("S_",2),FUNC_STR2(__LONG_STATEMENTN)),qbs_new_txt_len(":;",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5847);}while(r); -do{ -*__LONG_DYNSCOPE= 1 ; -if(!qbevent)break;evnt(5847);}while(r); -} -S_6951:; -if (((-(*__ULONG_SELECTCASECOUNTER> 0 ))&(-(((int32*)(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]))[array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_SELECTCASEHASCASEBLOCK[4],__ARRAY_LONG_SELECTCASEHASCASEBLOCK[5])]== 0 )))||new_error){ -if(qbevent){evnt(5850);if(r)goto S_6951;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected CASE expression",24)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5851);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5851);}while(r); -} -do{ -*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL+ 1 ; -if(!qbevent)break;evnt(5854);}while(r); -do{ -tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLREF[4],__ARRAY_LONG_CONTROLREF[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_CONTROLREF[0]))[tmp_long]=*__LONG_LINENUMBER; -if(!qbevent)break;evnt(5855);}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(5856);}while(r); -S_6958:; -if ((-(*__LONG_N>= 2 ))||new_error){ -if(qbevent){evnt(5857);if(r)goto S_6958;} -do{ -*__LONG_WHILEUNTIL= 0 ; -if(!qbevent)break;evnt(5858);}while(r); -S_6960:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("WHILE",5))))||new_error){ -if(qbevent){evnt(5859);if(r)goto S_6960;} -do{ -*__LONG_WHILEUNTIL= 1 ; -if(!qbevent)break;evnt(5859);}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(5859);}while(r); -} -S_6964:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("UNTIL",5))))||new_error){ -if(qbevent){evnt(5860);if(r)goto S_6964;} -do{ -*__LONG_WHILEUNTIL= 2 ; -if(!qbevent)break;evnt(5860);}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(5860);}while(r); -} -S_6968:; -if ((-(*__LONG_WHILEUNTIL== 0 ))||new_error){ -if(qbevent){evnt(5861);if(r)goto S_6968;} -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(5861);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5861);}while(r); -} -S_6972:; -if (((-(*__LONG_WHILEUNTIL> 0 ))&(-(*__LONG_N== 2 )))||new_error){ -if(qbevent){evnt(5862);if(r)goto S_6972;} -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(5862);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5862);}while(r); -} -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(FUNC_GETELEMENTS(__STRING_CA,&(pass748= 3 ),__LONG_N))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5863);}while(r); -S_6977:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(5864);if(r)goto S_6977;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5864);}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(5865);}while(r); -do{ -qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5866);}while(r); -S_6982:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(5867);if(r)goto S_6982;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5867);}while(r); -} -S_6985:; -if (((*__LONG_TYP&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(5868);if(r)goto S_6985;} -do{ -qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass749= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5868);}while(r); -} -S_6988:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(5869);if(r)goto S_6988;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5869);}while(r); -} -S_6991:; -if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||new_error){ -if(qbevent){evnt(5870);if(r)goto S_6991;} -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(5870);}while(r); -} -S_6994:; -if (((*__LONG_TYP&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(5871);if(r)goto S_6994;} -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(5871);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5871);}while(r); -} -S_6998:; -if ((-(*__LONG_WHILEUNTIL== 1 ))||new_error){ -if(qbevent){evnt(5872);if(r)goto S_6998;} -do{ -SUB_WRITEBUFLINE(&(pass750=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("while((",7),__STRING_E),qbs_new_txt_len(")||new_error){",14))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5872);}while(r); -}else{ -do{ -SUB_WRITEBUFLINE(&(pass751=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("while((!(",9),__STRING_E),qbs_new_txt_len("))||new_error){",15))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5872);}while(r); -} -S_7003:; -if (((-(*__LONG_NOCHECKS== 0 ))&(-(*__LONG_VWATCHON== 1 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||new_error){ -if(qbevent){evnt(5873);if(r)goto S_7003;} -do{ -SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass752= 0 )); -if(!qbevent)break;evnt(5874);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass753=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= ",27),FUNC_STR2(__LONG_LINENUMBER)),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(5875);}while(r); -} -do{ -tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[tmp_long]= 4 ; -if(!qbevent)break;evnt(5877);}while(r); -}else{ -do{ -tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[tmp_long]= 3 ; -if(!qbevent)break;evnt(5879);}while(r); -S_7010:; -if (((-(*__LONG_VWATCHON== 1 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 ))&(-(*__LONG_NOCHECKS== 0 )))||new_error){ -if(qbevent){evnt(5880);if(r)goto S_7010;} -do{ -SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass754= 0 )); -if(!qbevent)break;evnt(5881);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass755=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("do{*__LONG_VWATCH_LINENUMBER= ",30),FUNC_STR2(__LONG_LINENUMBER)),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(5882);}while(r); -}else{ -do{ -SUB_WRITEBUFLINE(&(pass756=*__LONG_MAINTXTBUF),qbs_new_txt_len("do{",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5884);}while(r); -} -} -do{ -tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_CONTROLID[0]))[tmp_long]=FUNC_UNIQUENUMBER(); -if(!qbevent)break;evnt(5887);}while(r); -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(5888);}while(r); -S_7019:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(5888);if(r)goto S_7019;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5888);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5888);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(5889);}while(r); -} -} -S_7027:; -if ((-(*__LONG_N>= 1 ))||new_error){ -if(qbevent){evnt(5893);if(r)goto S_7027;} -S_7028:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("LOOP",4))))||new_error){ -if(qbevent){evnt(5894);if(r)goto S_7028;} -do{ -qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Loop",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5895);}while(r); -S_7030:; -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 )))||new_error){ -if(qbevent){evnt(5896);if(r)goto S_7030;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("PROGRAM FLOW ERROR!",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5896);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5896);}while(r); -} -S_7034:; -if ((-(*__LONG_N>= 2 ))||new_error){ -if(qbevent){evnt(5897);if(r)goto S_7034;} -S_7035:; -if ((-(*__LONG_NOCHECKS== 0 ))||new_error){ -if(qbevent){evnt(5898);if(r)goto S_7035;} -do{ -SUB_WRITEBUFLINE(&(pass758=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("S_",2),FUNC_STR2(__LONG_STATEMENTN)),qbs_new_txt_len(":;",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5898);}while(r); -do{ -*__LONG_DYNSCOPE= 1 ; -if(!qbevent)break;evnt(5898);}while(r); -} -S_7039:; -if ((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]== 4 ))||new_error){ -if(qbevent){evnt(5899);if(r)goto S_7039;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("PROGRAM FLOW ERROR!",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5899);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5899);}while(r); -} -do{ -*__LONG_WHILEUNTIL= 0 ; -if(!qbevent)break;evnt(5900);}while(r); -S_7044:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("WHILE",5))))||new_error){ -if(qbevent){evnt(5901);if(r)goto S_7044;} -do{ -*__LONG_WHILEUNTIL= 1 ; -if(!qbevent)break;evnt(5901);}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(5901);}while(r); -} -S_7048:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("UNTIL",5))))||new_error){ -if(qbevent){evnt(5902);if(r)goto S_7048;} -do{ -*__LONG_WHILEUNTIL= 2 ; -if(!qbevent)break;evnt(5902);}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(5902);}while(r); -} -S_7052:; -if ((-(*__LONG_WHILEUNTIL== 0 ))||new_error){ -if(qbevent){evnt(5903);if(r)goto S_7052;} -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(5903);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5903);}while(r); -} -S_7056:; -if (((-(*__LONG_WHILEUNTIL> 0 ))&(-(*__LONG_N== 2 )))||new_error){ -if(qbevent){evnt(5904);if(r)goto S_7056;} -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(5904);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5904);}while(r); -} -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(FUNC_GETELEMENTS(__STRING_CA,&(pass759= 3 ),__LONG_N))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5905);}while(r); -S_7061:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(5906);if(r)goto S_7061;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5906);}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(5907);}while(r); -do{ -qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5908);}while(r); -S_7066:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(5909);if(r)goto S_7066;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5909);}while(r); -} -S_7069:; -if (((*__LONG_TYP&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(5910);if(r)goto S_7069;} -do{ -qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass760= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5910);}while(r); -} -S_7072:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(5911);if(r)goto S_7072;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5911);}while(r); -} -S_7075:; -if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||new_error){ -if(qbevent){evnt(5912);if(r)goto S_7075;} -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(5912);}while(r); -} -S_7078:; -if (((*__LONG_TYP&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(5913);if(r)goto S_7078;} -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(5913);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5913);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass761=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("dl_continue_",12),FUNC_STR2((&(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])])))),qbs_new_txt_len(":;",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5914);}while(r); -S_7083:; -if (((-(*__LONG_NOCHECKS== 0 ))&(-(*__LONG_VWATCHON== 1 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||new_error){ -if(qbevent){evnt(5915);if(r)goto S_7083;} -do{ -SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass762= 0 )); -if(!qbevent)break;evnt(5916);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass763=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= ",27),FUNC_STR2(__LONG_LINENUMBER)),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(5917);}while(r); -} -S_7087:; -if ((-(*__LONG_WHILEUNTIL== 1 ))||new_error){ -if(qbevent){evnt(5919);if(r)goto S_7087;} -do{ -SUB_WRITEBUFLINE(&(pass764=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("}while((",8),__STRING_E),qbs_new_txt_len(")&&(!new_error));",17))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5919);}while(r); -}else{ -do{ -SUB_WRITEBUFLINE(&(pass765=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("}while((!(",10),__STRING_E),qbs_new_txt_len("))&&(!new_error));",18))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5919);}while(r); -} -}else{ -do{ -SUB_WRITEBUFLINE(&(pass766=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("dl_continue_",12),FUNC_STR2((&(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])])))),qbs_new_txt_len(":;",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5921);}while(r); -S_7094:; -if (((-(*__LONG_NOCHECKS== 0 ))&(-(*__LONG_VWATCHON== 1 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||new_error){ -if(qbevent){evnt(5923);if(r)goto S_7094;} -do{ -SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass767= 0 )); -if(!qbevent)break;evnt(5924);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass768=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= ",27),FUNC_STR2(__LONG_LINENUMBER)),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(5925);}while(r); -} -S_7098:; -if ((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]== 4 ))||new_error){ -if(qbevent){evnt(5928);if(r)goto S_7098;} -do{ -SUB_WRITEBUFLINE(&(pass769=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5929);}while(r); -}else{ -do{ -SUB_WRITEBUFLINE(&(pass770=*__LONG_MAINTXTBUF),qbs_new_txt_len("}while(1);",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5931);}while(r); -} -} -do{ -SUB_WRITEBUFLINE(&(pass771=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("dl_exit_",8),FUNC_STR2((&(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])])))),qbs_new_txt_len(":;",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5934);}while(r); -do{ -*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ; -if(!qbevent)break;evnt(5935);}while(r); -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(5936);}while(r); -S_7107:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(5936);if(r)goto S_7107;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5936);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5936);}while(r); -} -S_7112:; -if ((-(*__LONG_N== 1 ))||new_error){ -if(qbevent){evnt(5937);if(r)goto S_7112;} -do{ -goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(5937);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(5938);}while(r); -} -} -S_7118:; -if ((-(*__LONG_N>= 1 ))||new_error){ -if(qbevent){evnt(5950);if(r)goto S_7118;} -S_7119:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("FOR",3))))||new_error){ -if(qbevent){evnt(5951);if(r)goto S_7119;} -S_7120:; -if ((-(*__LONG_NOCHECKS== 0 ))||new_error){ -if(qbevent){evnt(5952);if(r)goto S_7120;} -do{ -SUB_WRITEBUFLINE(&(pass773=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("S_",2),FUNC_STR2(__LONG_STATEMENTN)),qbs_new_txt_len(":;",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5952);}while(r); -do{ -*__LONG_DYNSCOPE= 1 ; -if(!qbevent)break;evnt(5952);}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(5954);}while(r); -S_7125:; -if (((-(*__ULONG_SELECTCASECOUNTER> 0 ))&(-(((int32*)(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]))[array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_SELECTCASEHASCASEBLOCK[4],__ARRAY_LONG_SELECTCASEHASCASEBLOCK[5])]== 0 )))||new_error){ -if(qbevent){evnt(5957);if(r)goto S_7125;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected CASE expression",24)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5958);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5958);}while(r); -} -do{ -*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL+ 1 ; -if(!qbevent)break;evnt(5961);}while(r); -do{ -tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLREF[4],__ARRAY_LONG_CONTROLREF[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_CONTROLREF[0]))[tmp_long]=*__LONG_LINENUMBER; -if(!qbevent)break;evnt(5962);}while(r); -do{ -tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[tmp_long]= 2 ; -if(!qbevent)break;evnt(5963);}while(r); -do{ -tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_CONTROLID[0]))[tmp_long]=FUNC_UNIQUENUMBER(); -if(!qbevent)break;evnt(5964);}while(r); -do{ -qbs_set(__STRING_V,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5966);}while(r); -do{ -qbs_set(__STRING_STARTVALUE,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5967);}while(r); -do{ -qbs_set(__STRING_P3,qbs_new_txt_len("1",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5968);}while(r); -do{ -*__LONG_STEPUSED= 0 ; -if(!qbevent)break;evnt(5968);}while(r); -do{ -qbs_set(__STRING_P2,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5969);}while(r); -do{ -*__LONG_MODE= 0 ; -if(!qbevent)break;evnt(5970);}while(r); -do{ -*__LONG_E= 0 ; -if(!qbevent)break;evnt(5971);}while(r); -S_7140:; -fornext_value775= 2 ; -fornext_finalvalue775=*__LONG_N; -fornext_step775= 1 ; -if (fornext_step775<0) fornext_step_negative775=1; else fornext_step_negative775=0; -if (new_error) goto fornext_error775; -goto fornext_entrylabel775; -while(1){ -fornext_value775=fornext_step775+(*__LONG_I); -fornext_entrylabel775: -*__LONG_I=fornext_value775; -if (fornext_step_negative775){ -if (fornext_value775fornext_finalvalue775) break; -} -fornext_error775:; -if(qbevent){evnt(5972);if(r)goto S_7140;} -do{ -qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5973);}while(r); -S_7142:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("=",1))))||new_error){ -if(qbevent){evnt(5974);if(r)goto S_7142;} -S_7143:; -if ((-(*__LONG_MODE!= 0 ))||new_error){ -if(qbevent){evnt(5975);if(r)goto S_7143;} -do{ -*__LONG_E= 1 ; -if(!qbevent)break;evnt(5975);}while(r); -do{ -goto fornext_exit_774; -if(!qbevent)break;evnt(5975);}while(r); -} -do{ -*__LONG_MODE= 1 ; -if(!qbevent)break;evnt(5976);}while(r); -do{ -qbs_set(__STRING_V,FUNC_GETELEMENTS(__STRING_CA,&(pass776= 2 ),&(pass777=*__LONG_I- 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5977);}while(r); -do{ -*__LONG_EQUPOS=*__LONG_I; -if(!qbevent)break;evnt(5978);}while(r); -} -S_7151:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("TO",2))))||new_error){ -if(qbevent){evnt(5980);if(r)goto S_7151;} -S_7152:; -if ((-(*__LONG_MODE!= 1 ))||new_error){ -if(qbevent){evnt(5981);if(r)goto S_7152;} -do{ -*__LONG_E= 1 ; -if(!qbevent)break;evnt(5981);}while(r); -do{ -goto fornext_exit_774; -if(!qbevent)break;evnt(5981);}while(r); -} -do{ -*__LONG_MODE= 2 ; -if(!qbevent)break;evnt(5982);}while(r); -do{ -qbs_set(__STRING_STARTVALUE,FUNC_GETELEMENTS(__STRING_CA,&(pass778=*__LONG_EQUPOS+ 1 ),&(pass779=*__LONG_I- 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5983);}while(r); -do{ -*__LONG_TOPOS=*__LONG_I; -if(!qbevent)break;evnt(5984);}while(r); -} -S_7160:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("STEP",4))))||new_error){ -if(qbevent){evnt(5986);if(r)goto S_7160;} -S_7161:; -if ((-(*__LONG_MODE!= 2 ))||new_error){ -if(qbevent){evnt(5987);if(r)goto S_7161;} -do{ -*__LONG_E= 1 ; -if(!qbevent)break;evnt(5987);}while(r); -do{ -goto fornext_exit_774; -if(!qbevent)break;evnt(5987);}while(r); -} -do{ -*__LONG_MODE= 3 ; -if(!qbevent)break;evnt(5988);}while(r); -do{ -*__LONG_STEPUSED= 1 ; -if(!qbevent)break;evnt(5989);}while(r); -do{ -qbs_set(__STRING_P2,FUNC_GETELEMENTS(__STRING_CA,&(pass780=*__LONG_TOPOS+ 1 ),&(pass781=*__LONG_I- 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5990);}while(r); -do{ -qbs_set(__STRING_P3,FUNC_GETELEMENTS(__STRING_CA,&(pass782=*__LONG_I+ 1 ),__LONG_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5991);}while(r); -do{ -goto fornext_exit_774; -if(!qbevent)break;evnt(5992);}while(r); -} -fornext_continue_774:; -} -fornext_exit_774:; -S_7172:; -if ((-(*__LONG_MODE< 2 ))||new_error){ -if(qbevent){evnt(5995);if(r)goto S_7172;} -do{ -*__LONG_E= 1 ; -if(!qbevent)break;evnt(5995);}while(r); -} -S_7175:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_P2,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(5996);if(r)goto S_7175;} -do{ -qbs_set(__STRING_P2,FUNC_GETELEMENTS(__STRING_CA,&(pass783=*__LONG_TOPOS+ 1 ),__LONG_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(5996);}while(r); -} -S_7178:; -if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_V->len== 0 ))|(-(__STRING_STARTVALUE->len== 0 ))|(-(__STRING_P2->len== 0 ))))||new_error){ -if(qbevent){evnt(5997);if(r)goto S_7178;} -do{ -*__LONG_E= 1 ; -if(!qbevent)break;evnt(5997);}while(r); -} -S_7181:; -if (((-(*__LONG_E!= 0 ))&(-(*__LONG_MODE< 3 )))||new_error){ -if(qbevent){evnt(5998);if(r)goto S_7181;} -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(5998);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5998);}while(r); -} -S_7185:; -if ((*__LONG_E)||new_error){ -if(qbevent){evnt(5999);if(r)goto S_7185;} -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(5999);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(5999);}while(r); -} -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_V)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6001);}while(r); -S_7190:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(6002);if(r)goto S_7190;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6002);}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(6003);}while(r); -do{ -qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6004);}while(r); -S_7195:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(6005);if(r)goto S_7195;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6005);}while(r); -} -S_7198:; -if (((*__LONG_TYP&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(6006);if(r)goto S_7198;} -do{ -SUB_GETID(&(pass787=qbr(func_val(__STRING_E)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6007);}while(r); -S_7200:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(6008);if(r)goto S_7200;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6008);}while(r); -} -S_7203:; -if (((*(int32*)(((char*)__UDT_ID)+(536))&*__LONG_ISPOINTER))||new_error){ -if(qbevent){evnt(6009);if(r)goto S_7203;} -S_7204:; -if ((-((*(int32*)(((char*)__UDT_ID)+(536))&*__LONG_ISSTRING)== 0 ))||new_error){ -if(qbevent){evnt(6010);if(r)goto S_7204;} -S_7205:; -if ((-((*(int32*)(((char*)__UDT_ID)+(536))&*__LONG_ISOFFSETINBITS)== 0 ))||new_error){ -if(qbevent){evnt(6011);if(r)goto S_7205;} -S_7206:; -if ((-((*(int32*)(((char*)__UDT_ID)+(536))&*__LONG_ISARRAY)== 0 ))||new_error){ -if(qbevent){evnt(6012);if(r)goto S_7206;} -do{ -goto LABEL_FORNEXTFOUNDVAR; -if(!qbevent)break;evnt(6013);}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(6019);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6019);}while(r); -LABEL_FORNEXTFOUNDVAR:; -if(qbevent){evnt(6020);r=0;} -do{ -tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLVALUE[4],__ARRAY_LONG_CONTROLVALUE[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_CONTROLVALUE[0]))[tmp_long]=*__LONG_CURRENTID; -if(!qbevent)break;evnt(6021);}while(r); -do{ -qbs_set(__STRING_V,__STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6022);}while(r); -do{ -qbs_set(__STRING_CTYPE,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6026);}while(r); -do{ -*__LONG_CTYP=*__LONG_TYP-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(6027);}while(r); -do{ -*__LONG_BITS=*__LONG_TYP& 511 ; -if(!qbevent)break;evnt(6028);}while(r); -S_7220:; -if (((*__LONG_TYP&*__LONG_ISFLOAT))||new_error){ -if(qbevent){evnt(6029);if(r)goto S_7220;} -S_7221:; -if ((-(*__LONG_BITS== 32 ))||new_error){ -if(qbevent){evnt(6030);if(r)goto S_7221;} -do{ -qbs_set(__STRING_CTYPE,qbs_new_txt_len("double",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6030);}while(r); -do{ -*__LONG_CTYP= 64 +*__LONG_ISFLOAT; -if(!qbevent)break;evnt(6030);}while(r); -} -S_7225:; -if ((-(*__LONG_BITS== 64 ))||new_error){ -if(qbevent){evnt(6031);if(r)goto S_7225;} -do{ -qbs_set(__STRING_CTYPE,qbs_new_txt_len("long double",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6031);}while(r); -do{ -*__LONG_CTYP= 256 +*__LONG_ISFLOAT; -if(!qbevent)break;evnt(6031);}while(r); -} -S_7229:; -if ((-(*__LONG_BITS== 256 ))||new_error){ -if(qbevent){evnt(6032);if(r)goto S_7229;} -do{ -qbs_set(__STRING_CTYPE,qbs_new_txt_len("long double",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6032);}while(r); -do{ -*__LONG_CTYP= 256 +*__LONG_ISFLOAT; -if(!qbevent)break;evnt(6032);}while(r); -} -}else{ -S_7234:; -if ((-(*__LONG_BITS== 8 ))||new_error){ -if(qbevent){evnt(6034);if(r)goto S_7234;} -do{ -qbs_set(__STRING_CTYPE,qbs_new_txt_len("int16",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6034);}while(r); -do{ -*__LONG_CTYP= 16 ; -if(!qbevent)break;evnt(6034);}while(r); -} -S_7238:; -if ((-(*__LONG_BITS== 16 ))||new_error){ -if(qbevent){evnt(6035);if(r)goto S_7238;} -do{ -qbs_set(__STRING_CTYPE,qbs_new_txt_len("int32",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6035);}while(r); -do{ -*__LONG_CTYP= 32 ; -if(!qbevent)break;evnt(6035);}while(r); -} -S_7242:; -if ((-(*__LONG_BITS== 32 ))||new_error){ -if(qbevent){evnt(6036);if(r)goto S_7242;} -do{ -qbs_set(__STRING_CTYPE,qbs_new_txt_len("int64",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6036);}while(r); -do{ -*__LONG_CTYP= 64 ; -if(!qbevent)break;evnt(6036);}while(r); -} -S_7246:; -if ((-(*__LONG_BITS== 64 ))||new_error){ -if(qbevent){evnt(6037);if(r)goto S_7246;} -do{ -qbs_set(__STRING_CTYPE,qbs_new_txt_len("int64",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6037);}while(r); -do{ -*__LONG_CTYP= 64 ; -if(!qbevent)break;evnt(6037);}while(r); -} -} -S_7251:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_CTYPE,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(6039);if(r)goto S_7251;} -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(6039);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6039);}while(r); -} -do{ -qbs_set(__STRING_U,FUNC_STR2(&(pass788=FUNC_UNIQUENUMBER()))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6040);}while(r); -S_7256:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SUBFUNC,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(6042);if(r)goto S_7256;} -do{ -SUB_WRITEBUFLINE(&(pass789=*__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(6043);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass790=*__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(6044);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass791=*__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(6045);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass792=*__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(6046);}while(r); -}else{ -do{ -SUB_WRITEBUFLINE(&(pass793=*__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(6048);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass794=*__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(6049);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass795=*__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(6050);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass796=*__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(6051);}while(r); -} -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_STARTVALUE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6055);}while(r); -S_7268:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(6056);if(r)goto S_7268;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6056);}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(6057);}while(r); -do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,__LONG_CTYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6058);}while(r); -S_7273:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(6059);if(r)goto S_7273;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6059);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass797=*__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(6060);}while(r); -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_P2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6063);}while(r); -S_7278:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(6064);if(r)goto S_7278;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6064);}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(6065);}while(r); -do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,__LONG_CTYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6066);}while(r); -S_7283:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(6067);if(r)goto S_7283;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6067);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass798=*__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(6068);}while(r); -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_P3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6071);}while(r); -S_7288:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(6072);if(r)goto S_7288;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6072);}while(r); -} -S_7291:; -if ((-(*__LONG_STEPUSED== 1 ))||new_error){ -if(qbevent){evnt(6073);if(r)goto S_7291;} -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(6073);}while(r); -} -do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,__LONG_CTYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6074);}while(r); -S_7295:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(6075);if(r)goto S_7295;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6075);}while(r); -} -S_7298:; -if (((-(*__LONG_NOCHECKS== 0 ))&(-(*__LONG_VWATCHON== 1 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||new_error){ -if(qbevent){evnt(6077);if(r)goto S_7298;} -do{ -SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass799= 0 )); -if(!qbevent)break;evnt(6078);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass800=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= ",27),FUNC_STR2(__LONG_LINENUMBER)),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(6079);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass801=*__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(6082);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass802=*__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(6083);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass803=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if (new_error) goto fornext_error",33),__STRING_U),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6085);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass804=*__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(6086);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass805=*__LONG_MAINTXTBUF),qbs_new_txt_len("while(1){",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6087);}while(r); -do{ -*__LONG_TYPBAK=*__LONG_TYP; -if(!qbevent)break;evnt(6088);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass806=*__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,&(pass807= 0 ))),qbs_new_txt_len(");",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6089);}while(r); -S_7309:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(6090);if(r)goto S_7309;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6090);}while(r); -} -do{ -*__LONG_TYP=*__LONG_TYPBAK; -if(!qbevent)break;evnt(6091);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass808=*__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(6092);}while(r); -do{ -SUB_SETREFER(__STRING_V,__LONG_TYP,qbs_add(qbs_new_txt_len("fornext_value",13),__STRING_U),&(pass809= 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6093);}while(r); -S_7315:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(6094);if(r)goto S_7315;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6094);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass810=*__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(6095);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass811=*__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(6098);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass814=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6099);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass815=*__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(6100);}while(r); -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(6102);}while(r); -S_7325:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(6102);if(r)goto S_7325;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6102);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6102);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(6104);}while(r); -} -} -S_7333:; -if ((-(*__LONG_N== 1 ))||new_error){ -if(qbevent){evnt(6109);if(r)goto S_7333;} -S_7334:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("ELSE",4))))||new_error){ -if(qbevent){evnt(6110);if(r)goto S_7334;} -do{ -qbs_set(__STRING_TEMP,qbs_ucase(qbs_ltrim(qbs_rtrim(__STRING_WHOLELINE)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6119);}while(r); -S_7336:; -while((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_TEMP,func_chr( 9 ),0)))||new_error){ -if(qbevent){evnt(6121);if(r)goto S_7336;} -do{ -tqbs=__STRING_TEMP; if (!new_error){ -tmp_fileno=func_instr(NULL,__STRING_TEMP,func_chr( 9 ),0); if (!new_error){ -tmp_long= 32 ; if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(6122);}while(r); -dl_continue_817:; -} -dl_exit_817:; -do{ -*__LONG_GOODELSE= 0 ; -if(!qbevent)break;evnt(6125);}while(r); -S_7340:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_TEMP, 2 ),qbs_new_txt_len("IF",2))))||new_error){ -if(qbevent){evnt(6126);if(r)goto S_7340;} -do{ -*__LONG_GOODELSE= -1 ; -if(!qbevent)break;evnt(6126);}while(r); -do{ -goto LABEL_SKIPELSECHECK; -if(!qbevent)break;evnt(6126);}while(r); -} -S_7344:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_TEMP, 4 ),qbs_new_txt_len("ELSE",4))))||new_error){ -if(qbevent){evnt(6127);if(r)goto S_7344;} -do{ -*__LONG_GOODELSE= -1 ; -if(!qbevent)break;evnt(6127);}while(r); -do{ -goto LABEL_SKIPELSECHECK; -if(!qbevent)break;evnt(6127);}while(r); -} -S_7348:; -do{ -if(qbevent){evnt(6128);if(r)goto S_7348;} -do{ -*__LONG_SPACELOCATION=func_instr(NULL,__STRING_TEMP,qbs_new_txt_len(" ",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6129);}while(r); -S_7350:; -if ((*__LONG_SPACELOCATION)||new_error){ -if(qbevent){evnt(6130);if(r)goto S_7350;} -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(6130);}while(r); -} -S_7353:; -dl_continue_818:; -}while((!(-(*__LONG_SPACELOCATION== 0 )))&&(!new_error)); -dl_exit_818:; -if(qbevent){evnt(6131);if(r)goto S_7353;} -S_7354:; -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)))||new_error){ -if(qbevent){evnt(6132);if(r)goto S_7354;} -do{ -*__LONG_GOODELSE= -1 ; -if(!qbevent)break;evnt(6132);}while(r); -do{ -goto LABEL_SKIPELSECHECK; -if(!qbevent)break;evnt(6132);}while(r); -} -do{ -*__LONG_COUNT= 0 ; -if(!qbevent)break;evnt(6133);}while(r); -S_7359:; -do{ -if(qbevent){evnt(6134);if(r)goto S_7359;} -do{ -*__LONG_COUNT=*__LONG_COUNT+ 1 ; -if(!qbevent)break;evnt(6135);}while(r); -S_7361:; -qbs_set(sc_820,func_mid(__STRING_TEMP,*__LONG_COUNT, 1 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(qbevent){evnt(6136);if(r)goto S_7361;} -S_7362:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_820,qbs_new_txt_len("1",1))||qbs_equal(sc_820,qbs_new_txt_len("2",1))||qbs_equal(sc_820,qbs_new_txt_len("3",1))||qbs_equal(sc_820,qbs_new_txt_len("4",1))||qbs_equal(sc_820,qbs_new_txt_len("5",1))||qbs_equal(sc_820,qbs_new_txt_len("6",1))||qbs_equal(sc_820,qbs_new_txt_len("7",1))||qbs_equal(sc_820,qbs_new_txt_len("8",1))||qbs_equal(sc_820,qbs_new_txt_len("9",1))||qbs_equal(sc_820,qbs_new_txt_len("0",1))||qbs_equal(sc_820,qbs_new_txt_len(":",1))))||new_error){ -if(qbevent){evnt(6137);if(r)goto S_7362;} -sc_ec_32_end:; -goto sc_820_end; -} -do{ -goto dl_exit_819; -if(!qbevent)break;evnt(6138);}while(r); -sc_820_end:; -S_7366:; -dl_continue_819:; -}while((!(qbs_cleanup(qbs_tmp_base,-(*__LONG_COUNT>=__STRING_TEMP->len))))&&(!new_error)); -dl_exit_819:; -if(qbevent){evnt(6140);if(r)goto S_7366;} -S_7367:; -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)))))||new_error){ -if(qbevent){evnt(6141);if(r)goto S_7367;} -do{ -*__LONG_GOODELSE= -1 ; -if(!qbevent)break;evnt(6141);}while(r); -} -S_7370:; -if ((~(*__LONG_GOODELSE))||new_error){ -if(qbevent){evnt(6142);if(r)goto S_7370;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Invalid Syntax for ELSE",23)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6142);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6142);}while(r); -} -LABEL_SKIPELSECHECK:; -if(qbevent){evnt(6143);r=0;} -S_7374:; -fornext_value823=*__INTEGER_CONTROLLEVEL; -fornext_finalvalue823= 1 ; -fornext_step823= -1 ; -if (fornext_step823<0) fornext_step_negative823=1; else fornext_step_negative823=0; -if (new_error) 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_value823fornext_finalvalue823) break; -} -fornext_error823:; -if(qbevent){evnt(6145);if(r)goto S_7374;} -do{ -*__LONG_T=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__LONG_I)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]; -if(!qbevent)break;evnt(6146);}while(r); -S_7376:; -if ((-(*__LONG_T== 1 ))||new_error){ -if(qbevent){evnt(6147);if(r)goto S_7376;} -S_7377:; -if ((-(((int16*)(__ARRAY_INTEGER_CONTROLSTATE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLSTATE[4],__ARRAY_INTEGER_CONTROLSTATE[5])]== 2 ))||new_error){ -if(qbevent){evnt(6148);if(r)goto S_7377;} -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(6148);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6148);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass824=*__LONG_MAINTXTBUF),qbs_new_txt_len("}else{",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6149);}while(r); -do{ -tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLSTATE[4],__ARRAY_INTEGER_CONTROLSTATE[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_CONTROLSTATE[0]))[tmp_long]= 2 ; -if(!qbevent)break;evnt(6150);}while(r); -S_7383:; -if ((-(*__LONG_LINEELSEUSED== 0 ))||new_error){ -if(qbevent){evnt(6151);if(r)goto S_7383;} -do{ -*__LONG_LHSCONTROLLEVEL=*__LONG_LHSCONTROLLEVEL- 1 ; -if(!qbevent)break;evnt(6151);}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(6152);}while(r); -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(6153);}while(r); -S_7388:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(6153);if(r)goto S_7388;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6153);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6153);}while(r); -} -do{ -goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(6154);}while(r); -} -fornext_continue_822:; -} -fornext_exit_822:; -do{ -qbs_set(__STRING_A,qbs_new_txt_len("ELSE without IF",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6157);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6157);}while(r); -} -} -S_7400:; -if ((-(*__LONG_N>= 3 ))||new_error){ -if(qbevent){evnt(6161);if(r)goto S_7400;} -S_7401:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("ELSEIF",6))))||new_error){ -if(qbevent){evnt(6162);if(r)goto S_7401;} -S_7402:; -if ((-(*__LONG_NOCHECKS== 0 ))||new_error){ -if(qbevent){evnt(6163);if(r)goto S_7402;} -do{ -SUB_WRITEBUFLINE(&(pass826=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("S_",2),FUNC_STR2(__LONG_STATEMENTN)),qbs_new_txt_len(":;",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6164);}while(r); -do{ -*__LONG_DYNSCOPE= 1 ; -if(!qbevent)break;evnt(6164);}while(r); -S_7405:; -if (((-(*__LONG_VWATCHON== 1 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||new_error){ -if(qbevent){evnt(6165);if(r)goto S_7405;} -do{ -SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass827= 0 )); -if(!qbevent)break;evnt(6166);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass828=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= ",27),FUNC_STR2(__LONG_LINENUMBER)),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(6167);}while(r); -} -} -S_7410:; -fornext_value830=*__INTEGER_CONTROLLEVEL; -fornext_finalvalue830= 1 ; -fornext_step830= -1 ; -if (fornext_step830<0) fornext_step_negative830=1; else fornext_step_negative830=0; -if (new_error) goto fornext_error830; -goto fornext_entrylabel830; -while(1){ -fornext_value830=fornext_step830+(*__LONG_I); -fornext_entrylabel830: -*__LONG_I=fornext_value830; -if (fornext_step_negative830){ -if (fornext_value830fornext_finalvalue830) break; -} -fornext_error830:; -if(qbevent){evnt(6170);if(r)goto S_7410;} -do{ -*__LONG_T=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__LONG_I)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]; -if(!qbevent)break;evnt(6171);}while(r); -S_7412:; -if ((-(*__LONG_T== 1 ))||new_error){ -if(qbevent){evnt(6172);if(r)goto S_7412;} -S_7413:; -if ((-(((int16*)(__ARRAY_INTEGER_CONTROLSTATE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLSTATE[4],__ARRAY_INTEGER_CONTROLSTATE[5])]== 2 ))||new_error){ -if(qbevent){evnt(6173);if(r)goto S_7413;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("ELSEIF invalid after ELSE",25)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6173);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6173);}while(r); -} -do{ -tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLSTATE[4],__ARRAY_INTEGER_CONTROLSTATE[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_CONTROLSTATE[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(6174);}while(r); -do{ -tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLVALUE[4],__ARRAY_LONG_CONTROLVALUE[5]); -if (!new_error) ((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(6175);}while(r); -do{ -qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6176);}while(r); -S_7420:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len("THEN",4))))||new_error){ -if(qbevent){evnt(6177);if(r)goto S_7420;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected ELSEIF expression THEN",31)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6177);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6177);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass831=*__LONG_MAINTXTBUF),qbs_new_txt_len("}else{",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6178);}while(r); -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(FUNC_GETELEMENTS(__STRING_CA,&(pass832= 2 ),&(pass833=*__LONG_N- 1 )))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6179);}while(r); -S_7426:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(6180);if(r)goto S_7426;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6180);}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(6181);}while(r); -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(6182);}while(r); -S_7431:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(6182);if(r)goto S_7431;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6182);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6182);}while(r); -} -do{ -qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6183);}while(r); -S_7437:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(6184);if(r)goto S_7437;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6184);}while(r); -} -S_7440:; -if (((*__LONG_TYP&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(6185);if(r)goto S_7440;} -do{ -qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass835= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6185);}while(r); -} -S_7443:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(6186);if(r)goto S_7443;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6186);}while(r); -} -S_7446:; -if ((*__LONG_TYP&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(6187);if(r)goto S_7446;} -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(6188);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6188);}while(r); -} -S_7450:; -if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||new_error){ -if(qbevent){evnt(6190);if(r)goto S_7450;} -do{ -SUB_WRITEBUFLINE(&(pass836=*__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(6191);}while(r); -}else{ -do{ -SUB_WRITEBUFLINE(&(pass837=*__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(6193);}while(r); -} -do{ -*__LONG_LHSCONTROLLEVEL=*__LONG_LHSCONTROLLEVEL- 1 ; -if(!qbevent)break;evnt(6195);}while(r); -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(6196);}while(r); -} -fornext_continue_829:; -} -fornext_exit_829:; -do{ -qbs_set(__STRING_A,qbs_new_txt_len("ELSEIF without IF",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6199);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6199);}while(r); -} -} -S_7463:; -if ((-(*__LONG_N>= 3 ))||new_error){ -if(qbevent){evnt(6203);if(r)goto S_7463;} -S_7464:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("IF",2))))||new_error){ -if(qbevent){evnt(6204);if(r)goto S_7464;} -S_7465:; -if ((-(*__LONG_NOCHECKS== 0 ))||new_error){ -if(qbevent){evnt(6205);if(r)goto S_7465;} -do{ -SUB_WRITEBUFLINE(&(pass838=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("S_",2),FUNC_STR2(__LONG_STATEMENTN)),qbs_new_txt_len(":;",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6206);}while(r); -do{ -*__LONG_DYNSCOPE= 1 ; -if(!qbevent)break;evnt(6206);}while(r); -S_7468:; -if (((-(*__LONG_VWATCHON== 1 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||new_error){ -if(qbevent){evnt(6207);if(r)goto S_7468;} -do{ -SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass839= 0 )); -if(!qbevent)break;evnt(6208);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass840=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= ",27),FUNC_STR2(__LONG_LINENUMBER)),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(6209);}while(r); -} -} -S_7473:; -if (((-(*__ULONG_SELECTCASECOUNTER> 0 ))&(-(((int32*)(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]))[array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_SELECTCASEHASCASEBLOCK[4],__ARRAY_LONG_SELECTCASEHASCASEBLOCK[5])]== 0 )))||new_error){ -if(qbevent){evnt(6214);if(r)goto S_7473;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected CASE expression",24)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6215);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6215);}while(r); -} -do{ -qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6218);}while(r); -do{ -*__LONG_IFTYPE= 0 ; -if(!qbevent)break;evnt(6219);}while(r); -S_7479:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("THEN",4))))||new_error){ -if(qbevent){evnt(6220);if(r)goto S_7479;} -do{ -*__LONG_IFTYPE= 1 ; -if(!qbevent)break;evnt(6220);}while(r); -} -S_7482:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("GOTO",4))))||new_error){ -if(qbevent){evnt(6221);if(r)goto S_7482;} -do{ -*__LONG_IFTYPE= 2 ; -if(!qbevent)break;evnt(6221);}while(r); -} -S_7485:; -if ((-(*__LONG_IFTYPE== 0 ))||new_error){ -if(qbevent){evnt(6222);if(r)goto S_7485;} -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(6222);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6222);}while(r); -} -do{ -*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL+ 1 ; -if(!qbevent)break;evnt(6224);}while(r); -do{ -tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLREF[4],__ARRAY_LONG_CONTROLREF[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_CONTROLREF[0]))[tmp_long]=*__LONG_LINENUMBER; -if(!qbevent)break;evnt(6225);}while(r); -do{ -tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(6226);}while(r); -do{ -tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLVALUE[4],__ARRAY_LONG_CONTROLVALUE[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_CONTROLVALUE[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(6227);}while(r); -do{ -tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLSTATE[4],__ARRAY_INTEGER_CONTROLSTATE[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_CONTROLSTATE[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(6228);}while(r); -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(FUNC_GETELEMENTS(__STRING_CA,&(pass841= 2 ),&(pass842=*__LONG_N- 1 )))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6230);}while(r); -S_7495:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(6231);if(r)goto S_7495;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6231);}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(6232);}while(r); -do{ -qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6233);}while(r); -S_7500:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(6234);if(r)goto S_7500;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6234);}while(r); -} -S_7503:; -if (((*__LONG_TYP&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(6235);if(r)goto S_7503;} -do{ -qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass843= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6235);}while(r); -} -S_7506:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(6236);if(r)goto S_7506;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6236);}while(r); -} -S_7509:; -if ((*__LONG_TYP&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(6238);if(r)goto S_7509;} -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(6239);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6239);}while(r); -} -S_7513:; -if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||new_error){ -if(qbevent){evnt(6242);if(r)goto S_7513;} -do{ -SUB_WRITEBUFLINE(&(pass844=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if ((",5),__STRING_CLEANUPSTRINGPROCESSINGCALL),__STRING_E),qbs_new_txt_len("))||new_error){",15))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6243);}while(r); -}else{ -do{ -SUB_WRITEBUFLINE(&(pass845=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if ((",5),__STRING_E),qbs_new_txt_len(")||new_error){",14))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6245);}while(r); -} -S_7518:; -if ((-(*__LONG_IFTYPE== 1 ))||new_error){ -if(qbevent){evnt(6248);if(r)goto S_7518;} -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(6248);}while(r); -} -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(6249);}while(r); -S_7522:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||new_error){ -if(qbevent){evnt(6249);if(r)goto S_7522;} -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6249);}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(6249);}while(r); -} -S_7527:; -if ((-(*__LONG_IFTYPE== 2 ))||new_error){ -if(qbevent){evnt(6251);if(r)goto S_7527;} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(6252);}while(r); -} -do{ -*__LONG_THENGOTO= 1 ; -if(!qbevent)break;evnt(6255);}while(r); -do{ -goto LABEL_FINISHEDLINE2; -if(!qbevent)break;evnt(6256);}while(r); -} -} -S_7534:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_N== 1 ))&(qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass847= 1 )),qbs_new_txt_len("ENDIF",5)))))||new_error){ -if(qbevent){evnt(6261);if(r)goto S_7534;} -S_7535:; -if ((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]!= 1 ))||new_error){ -if(qbevent){evnt(6262);if(r)goto S_7535;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("END IF without IF",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6262);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6262);}while(r); -} -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(6263);}while(r); -S_7540:; -if ((-(*__LONG_IMPLIEDENDIF== 0 ))||new_error){ -if(qbevent){evnt(6264);if(r)goto S_7540;} -do{ -qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("End If",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6265);}while(r); -S_7542:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||new_error){ -if(qbevent){evnt(6266);if(r)goto S_7542;} -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6266);}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(6266);}while(r); -} -} -do{ -SUB_WRITEBUFLINE(&(pass849=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6269);}while(r); -S_7549:; -fornext_value851= 1 ; -fornext_finalvalue851=((int32*)(__ARRAY_LONG_CONTROLVALUE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLVALUE[4],__ARRAY_LONG_CONTROLVALUE[5])]; -fornext_step851= 1 ; -if (fornext_step851<0) fornext_step_negative851=1; else fornext_step_negative851=0; -if (new_error) goto fornext_error851; -goto fornext_entrylabel851; -while(1){ -fornext_value851=fornext_step851+(*__LONG_I); -fornext_entrylabel851: -*__LONG_I=fornext_value851; -if (fornext_step_negative851){ -if (fornext_value851fornext_finalvalue851) break; -} -fornext_error851:; -if(qbevent){evnt(6270);if(r)goto S_7549;} -do{ -SUB_WRITEBUFLINE(&(pass852=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6271);}while(r); -fornext_continue_850:; -} -fornext_exit_850:; -do{ -*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ; -if(!qbevent)break;evnt(6273);}while(r); -do{ -goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(6274);}while(r); -} -S_7555:; -if ((-(*__LONG_N== 2 ))||new_error){ -if(qbevent){evnt(6279);if(r)goto S_7555;} -S_7556:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass853= 1 )),qbs_new_txt_len("END",3)))&(qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass854= 2 )),qbs_new_txt_len("IF",2)))))||new_error){ -if(qbevent){evnt(6280);if(r)goto S_7556;} -S_7557:; -if ((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]!= 1 ))||new_error){ -if(qbevent){evnt(6283);if(r)goto S_7557;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("END IF without IF",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6283);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6283);}while(r); -} -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(6284);}while(r); -S_7562:; -if ((-(*__LONG_IMPLIEDENDIF== 0 ))||new_error){ -if(qbevent){evnt(6285);if(r)goto S_7562;} -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(6286);}while(r); -S_7564:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||new_error){ -if(qbevent){evnt(6287);if(r)goto S_7564;} -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6287);}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(6287);}while(r); -} -} -S_7570:; -if (((-(*__LONG_NOCHECKS== 0 ))&(-(*__LONG_VWATCHON== 1 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||new_error){ -if(qbevent){evnt(6290);if(r)goto S_7570;} -do{ -SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass856= 0 )); -if(!qbevent)break;evnt(6291);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass857=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= ",27),FUNC_STR2(__LONG_LINENUMBER)),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(6292);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass858=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6295);}while(r); -S_7575:; -fornext_value860= 1 ; -fornext_finalvalue860=((int32*)(__ARRAY_LONG_CONTROLVALUE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLVALUE[4],__ARRAY_LONG_CONTROLVALUE[5])]; -fornext_step860= 1 ; -if (fornext_step860<0) fornext_step_negative860=1; else fornext_step_negative860=0; -if (new_error) goto fornext_error860; -goto fornext_entrylabel860; -while(1){ -fornext_value860=fornext_step860+(*__LONG_I); -fornext_entrylabel860: -*__LONG_I=fornext_value860; -if (fornext_step_negative860){ -if (fornext_value860fornext_finalvalue860) break; -} -fornext_error860:; -if(qbevent){evnt(6296);if(r)goto S_7575;} -do{ -SUB_WRITEBUFLINE(&(pass861=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6297);}while(r); -fornext_continue_859:; -} -fornext_exit_859:; -do{ -*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ; -if(!qbevent)break;evnt(6299);}while(r); -do{ -goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(6300);}while(r); -} -} -S_7582:; -if ((-(*__LONG_N>= 1 ))||new_error){ -if(qbevent){evnt(6307);if(r)goto S_7582;} -S_7583:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("SELECT",6))))||new_error){ -if(qbevent){evnt(6308);if(r)goto S_7583;} -S_7584:; -if ((-(*__LONG_NOCHECKS== 0 ))||new_error){ -if(qbevent){evnt(6309);if(r)goto S_7584;} -do{ -SUB_WRITEBUFLINE(&(pass862=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("S_",2),FUNC_STR2(__LONG_STATEMENTN)),qbs_new_txt_len(":;",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6310);}while(r); -do{ -*__LONG_DYNSCOPE= 1 ; -if(!qbevent)break;evnt(6310);}while(r); -S_7587:; -if (((-(*__LONG_VWATCHON== 1 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||new_error){ -if(qbevent){evnt(6311);if(r)goto S_7587;} -do{ -SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass863= 0 )); -if(!qbevent)break;evnt(6312);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass864=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= ",27),FUNC_STR2(__LONG_LINENUMBER)),qbs_new_txt_len("; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;",174))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6313);}while(r); -} -} -S_7592:; -if (((-(*__ULONG_SELECTCASECOUNTER> 0 ))&(-(((int32*)(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]))[array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_SELECTCASEHASCASEBLOCK[4],__ARRAY_LONG_SELECTCASEHASCASEBLOCK[5])]== 0 )))||new_error){ -if(qbevent){evnt(6318);if(r)goto S_7592;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected CASE expression",24)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6319);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6319);}while(r); -} -do{ -*__ULONG_SELECTCASECOUNTER=*__ULONG_SELECTCASECOUNTER+ 1 ; -if(!qbevent)break;evnt(6322);}while(r); -S_7597:; -if ((-(func_ubound(__ARRAY_LONG_EVERYCASESET,1,1)<=*__ULONG_SELECTCASECOUNTER))||new_error){ -if(qbevent){evnt(6323);if(r)goto S_7597;} -do{ +} +if(!qbevent)break;evnt(5436);}while(r); +} +do{ +tmp_long=array_check((*__LONG_RESOLVESTATICFUNCTIONS)-__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_FILE[0]))[tmp_long])),__STRING_LIBNAME); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5438);}while(r); +do{ +tmp_long=array_check((*__LONG_RESOLVESTATICFUNCTIONS)-__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[4],__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_RESOLVESTATICFUNCTION_NAME[0]))[tmp_long])),__STRING_ALIASNAME); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5439);}while(r); +do{ +tmp_long=array_check((*__LONG_RESOLVESTATICFUNCTIONS)-__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[4],__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]))[tmp_long]= 2 ; +if(!qbevent)break;evnt(5440);}while(r); +} +S_6399:; +if (((-(*__LONG_SFDECLARE== 0 ))&(-(*__LONG_INDIRECTLIBRARY== 0 )))||new_error){ +if(qbevent){evnt(5443);if(r)goto S_6399;} +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(5444);}while(r); +} +} +do{ +goto LABEL_FINISHEDNONEXEC; +if(!qbevent)break;evnt(5449);}while(r); +} +} +S_6406:; +if ((-(*__LONG_N== 2 ))||new_error){ +if(qbevent){evnt(5454);if(r)goto S_6406;} +S_6407:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("END",3))))||new_error){ +if(qbevent){evnt(5455);if(r)goto S_6407;} +do{ +*__LONG_SF= 0 ; +if(!qbevent)break;evnt(5456);}while(r); +S_6409:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("FUNCTION",8))))||new_error){ +if(qbevent){evnt(5457);if(r)goto S_6409;} +do{ +*__LONG_SF= 1 ; +if(!qbevent)break;evnt(5457);}while(r); +} +S_6412:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("SUB",3))))||new_error){ +if(qbevent){evnt(5458);if(r)goto S_6412;} +do{ +*__LONG_SF= 2 ; +if(!qbevent)break;evnt(5458);}while(r); +} +S_6415:; +if ((*__LONG_SF)||new_error){ +if(qbevent){evnt(5459);if(r)goto S_6415;} +S_6416:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_SUBFUNC->len== 0 )))||new_error){ +if(qbevent){evnt(5461);if(r)goto S_6416;} +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(5461);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5461);}while(r); +} +S_6420:; +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 )))||new_error){ +if(qbevent){evnt(5464);if(r)goto S_6420;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Unidentified open control block",31)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5465);}while(r); +S_6422:; +sc_667=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]; +if(qbevent){evnt(5466);if(r)goto S_6422;} +S_6423:; +if (((sc_667==( 1 )))||new_error){ +if(qbevent){evnt(5467);if(r)goto S_6423;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("IF without END IF",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5467);}while(r); +sc_ec_27_end:; +goto sc_667_end; +} +S_6425:; +if (((sc_667==( 2 )))||new_error){ +if(qbevent){evnt(5468);if(r)goto S_6425;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("FOR without NEXT",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5468);}while(r); +sc_ec_28_end:; +goto sc_667_end; +} +S_6427:; +if (((sc_667==( 3 ))||(sc_667==( 4 )))||new_error){ +if(qbevent){evnt(5469);if(r)goto S_6427;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("DO without LOOP",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5469);}while(r); +sc_ec_29_end:; +goto sc_667_end; +} +S_6429:; +if (((sc_667==( 5 )))||new_error){ +if(qbevent){evnt(5470);if(r)goto S_6429;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("WHILE without WEND",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5470);}while(r); +sc_ec_30_end:; +goto sc_667_end; +} +S_6431:; +if ((((sc_667>=( 10 ))&&(sc_667<=( 19 ))))||new_error){ +if(qbevent){evnt(5471);if(r)goto S_6431;} +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(5471);}while(r); +sc_ec_31_end:; +goto sc_667_end; +} +sc_667_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(5473);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5474);}while(r); +} +S_6437:; +if (((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]== 32 ))&*__LONG_IDEINDENTSUBS)||new_error){ +if(qbevent){evnt(5477);if(r)goto S_6437;} +do{ +tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[tmp_long]= 0 ; +if(!qbevent)break;evnt(5478);}while(r); +do{ +*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ; +if(!qbevent)break;evnt(5479);}while(r); +} +S_6441:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_SUBFUNC, 4 ),qbs_new_txt_len("SUB_",4))))||new_error){ +if(qbevent){evnt(5482);if(r)goto S_6441;} +do{ +qbs_set(__STRING_SECONDELEMENT,FUNC_SCASE(qbs_new_txt_len("Sub",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5482);}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(5482);}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(5483);}while(r); +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(5484);}while(r); +S_6448:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(5484);if(r)goto S_6448;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5484);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5484);}while(r); +} +S_6453:; +if ((-(*__LONG_VWATCHON== 1 ))||new_error){ +if(qbevent){evnt(5486);if(r)goto S_6453;} +do{ +SUB_VWATCHVARIABLE(qbs_new_txt_len("",0),&(pass669= 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5487);}while(r); +} +do{ +qbs_set(__STRING_STATICARRAYLIST,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5490);}while(r); +do{ +*__LONG_STATICARRAYLISTN= 0 ; +if(!qbevent)break;evnt(5490);}while(r); +do{ +*__LONG_DIMSTATIC= 0 ; +if(!qbevent)break;evnt(5491);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass670=*__LONG_MAINTXTBUF),qbs_new_txt_len("exit_subfunc:;",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5492);}while(r); +S_6460:; +if ((-(*__LONG_VWATCHON== 1 ))||new_error){ +if(qbevent){evnt(5493);if(r)goto S_6460;} +S_6461:; +if (((-(*__LONG_NOCHECKS== 0 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||new_error){ +if(qbevent){evnt(5494);if(r)goto S_6461;} +do{ +SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass671= 0 )); +if(!qbevent)break;evnt(5495);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass672=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= ",27),FUNC_STR2(__LONG_LINENUMBER)),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(5496);}while(r); +do{ +SUB_VWATCHADDLABEL(&(pass673= 0 ),&(pass674= -1 )); +if(!qbevent)break;evnt(5497);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass675=*__LONG_MAINTXTBUF),qbs_new_txt_len("*__LONG_VWATCH_SUBLEVEL=*__LONG_VWATCH_SUBLEVEL- 1 ;",52)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5499);}while(r); +S_6467:; +if (((-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 ))&(-(*__LONG_FIRSTLINENUMBERLABELVWATCH> 0 )))||new_error){ +if(qbevent){evnt(5501);if(r)goto S_6467;} +do{ +SUB_WRITEBUFLINE(&(pass676=*__LONG_MAINTXTBUF),qbs_new_txt_len("goto VWATCH_SKIPSETNEXTLINE;",28)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5502);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass677=*__LONG_MAINTXTBUF),qbs_new_txt_len("VWATCH_SETNEXTLINE:;",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5503);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass678=*__LONG_MAINTXTBUF),qbs_new_txt_len("switch (*__LONG_VWATCH_GOTO) {",30)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5504);}while(r); +S_6471:; +fornext_value680=*__LONG_FIRSTLINENUMBERLABELVWATCH; +fornext_finalvalue680=*__LONG_LASTLINENUMBERLABELVWATCH; +fornext_step680= 1 ; +if (fornext_step680<0) fornext_step_negative680=1; else fornext_step_negative680=0; +if (new_error) goto fornext_error680; +goto fornext_entrylabel680; +while(1){ +fornext_value680=fornext_step680+(*__LONG_I); +fornext_entrylabel680: +*__LONG_I=fornext_value680; +if (fornext_step_negative680){ +if (fornext_value680fornext_finalvalue680) break; +} +fornext_error680:; +if(qbevent){evnt(5505);if(r)goto S_6471;} +S_6472:; +while((qbs_cleanup(qbs_tmp_base,-(*__LONG_I>__STRING_VWATCHUSEDLABELS->len)))||new_error){ +if(qbevent){evnt(5506);if(r)goto S_6472;} +do{ +qbs_set(__STRING_VWATCHUSEDLABELS,qbs_add(__STRING_VWATCHUSEDLABELS,func_space( 1000 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5507);}while(r); +do{ +qbs_set(__STRING_VWATCHUSEDSKIPLABELS,qbs_add(__STRING_VWATCHUSEDSKIPLABELS,func_space( 1000 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5508);}while(r); +ww_continue_681:; +} +ww_exit_681:; +S_6476:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_VWATCHUSEDLABELS,*__LONG_I)== 1 )))||new_error){ +if(qbevent){evnt(5510);if(r)goto S_6476;} +do{ +SUB_WRITEBUFLINE(&(pass683=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len(" case ",9),FUNC_STR2(__LONG_I)),qbs_new_txt_len(":",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5511);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass684=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len(" goto VWATCH_LABEL_",26),FUNC_STR2(__LONG_I)),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5512);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass685=*__LONG_MAINTXTBUF),qbs_new_txt_len(" break;",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5513);}while(r); +} +fornext_continue_679:; +} +fornext_exit_679:; +do{ +SUB_WRITEBUFLINE(&(pass686=*__LONG_MAINTXTBUF),qbs_new_txt_len(" default:",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5516);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass687=*__LONG_MAINTXTBUF),qbs_new_txt_len(" *__LONG_VWATCH_GOTO=*__LONG_VWATCH_LINENUMBER;",54)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5517);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass688=*__LONG_MAINTXTBUF),qbs_new_txt_len(" goto VWATCH_SETNEXTLINE;",32)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5518);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass689=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5519);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass690=*__LONG_MAINTXTBUF),qbs_new_txt_len("VWATCH_SKIPLINE:;",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5521);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass691=*__LONG_MAINTXTBUF),qbs_new_txt_len("switch (*__LONG_VWATCH_GOTO) {",30)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5522);}while(r); +S_6488:; +fornext_value693=*__LONG_FIRSTLINENUMBERLABELVWATCH; +fornext_finalvalue693=*__LONG_LASTLINENUMBERLABELVWATCH; +fornext_step693= 1 ; +if (fornext_step693<0) fornext_step_negative693=1; else fornext_step_negative693=0; +if (new_error) goto fornext_error693; +goto fornext_entrylabel693; +while(1){ +fornext_value693=fornext_step693+(*__LONG_I); +fornext_entrylabel693: +*__LONG_I=fornext_value693; +if (fornext_step_negative693){ +if (fornext_value693fornext_finalvalue693) break; +} +fornext_error693:; +if(qbevent){evnt(5523);if(r)goto S_6488;} +S_6489:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_VWATCHUSEDSKIPLABELS,*__LONG_I)== 1 )))||new_error){ +if(qbevent){evnt(5524);if(r)goto S_6489;} +do{ +SUB_WRITEBUFLINE(&(pass694=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len(" case -",10),FUNC_STR2(__LONG_I)),qbs_new_txt_len(":",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5525);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass695=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len(" goto VWATCH_SKIPLABEL_",30),FUNC_STR2(__LONG_I)),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5526);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass696=*__LONG_MAINTXTBUF),qbs_new_txt_len(" break;",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5527);}while(r); +} +fornext_continue_692:; +} +fornext_exit_692:; +do{ +SUB_WRITEBUFLINE(&(pass697=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5530);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass698=*__LONG_MAINTXTBUF),qbs_new_txt_len("VWATCH_SKIPSETNEXTLINE:;",24)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5532);}while(r); +} +do{ +*__LONG_FIRSTLINENUMBERLABELVWATCH= 0 ; +if(!qbevent)break;evnt(5534);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass699=*__LONG_MAINTXTBUF),qbs_new_txt_len("free_mem_lock(sf_mem_lock);",27)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5538);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass700=*__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)),FUNC_STR2(__LONG_SUBFUNCN)),qbs_new_txt_len(".txt",4)),func_chr( 34 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5540);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass701=*__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(5541);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass702=*__LONG_MAINTXTBUF),qbs_new_txt_len("cmem_sp=tmp_cmem_sp;",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5542);}while(r); +S_6504:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_SUBFUNCRET,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(5543);if(r)goto S_6504;} +do{ +SUB_WRITEBUFLINE(&(pass703=*__LONG_MAINTXTBUF),__STRING_SUBFUNCRET); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5543);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass704=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5545);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass705=*__LONG_RETTXTBUF),qbs_new_txt_len("}",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5547);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass706=*__LONG_RETTXTBUF),qbs_new_txt_len("}",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5548);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass707=*__LONG_RETTXTBUF),qbs_new_txt_len("error(3);",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5549);}while(r); +do{ +qbs_set(__STRING_SUBFUNC,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5550);}while(r); +do{ +*__BYTE_CLOSEDSUBFUNC= -1 ; +if(!qbevent)break;evnt(5551);}while(r); +S_6513:; +fornext_value709= 1 ; +fornext_finalvalue709=*__LONG_IDN; +fornext_step709= 1 ; +if (fornext_step709<0) fornext_step_negative709=1; else fornext_step_negative709=0; +if (new_error) goto fornext_error709; +goto fornext_entrylabel709; +while(1){ +fornext_value709=fornext_step709+(*__LONG_I); +fornext_entrylabel709: +*__LONG_I=fornext_value709; +if (fornext_step_negative709){ +if (fornext_value709fornext_finalvalue709) break; +} +fornext_error709:; +if(qbevent){evnt(5554);if(r)goto S_6513;} +S_6514:; +if ((*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+2645))& 2 )||new_error){ +if(qbevent){evnt(5555);if(r)goto S_6514;} +do{ +*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+2645))=*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+2645))- 2 ; +if(!qbevent)break;evnt(5555);}while(r); +} +fornext_continue_708:; +} +fornext_exit_708:; +S_6518:; +fornext_value711= 1 ; +fornext_finalvalue711=*__LONG_REVERTMAYMUSTHAVEN; +fornext_step711= 1 ; +if (fornext_step711<0) fornext_step_negative711=1; else fornext_step_negative711=0; +if (new_error) goto fornext_error711; +goto fornext_entrylabel711; +while(1){ +fornext_value711=fornext_step711+(*__LONG_I); +fornext_entrylabel711: +*__LONG_I=fornext_value711; +if (fornext_step_negative711){ +if (fornext_value711fornext_finalvalue711) break; +} +fornext_error711:; +if(qbevent){evnt(5558);if(r)goto S_6518;} +do{ +*__LONG_X=((int32*)(__ARRAY_LONG_REVERTMAYMUSTHAVE[0]))[array_check((*__LONG_I)-__ARRAY_LONG_REVERTMAYMUSTHAVE[4],__ARRAY_LONG_REVERTMAYMUSTHAVE[5])]; +if(!qbevent)break;evnt(5559);}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(5560);}while(r); +fornext_continue_710:; +} +fornext_exit_710:; +do{ +*__LONG_REVERTMAYMUSTHAVEN= 0 ; +if(!qbevent)break;evnt(5562);}while(r); +do{ +goto LABEL_FINISHEDNONEXEC; +if(!qbevent)break;evnt(5566);}while(r); +} +} +} +S_6527:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_N>= 1 ))&(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("CONST",5)))))||new_error){ +if(qbevent){evnt(5574);if(r)goto S_6527;} +do{ +qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Const",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5575);}while(r); +S_6529:; +if ((-(*__LONG_N< 3 ))||new_error){ +if(qbevent){evnt(5578);if(r)goto S_6529;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected CONST name = value/expression",38)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5578);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5578);}while(r); +} +do{ +*__LONG_I= 2 ; +if(!qbevent)break;evnt(5579);}while(r); +LABEL_CONSTDEFPENDING:; +if(qbevent){evnt(5581);r=0;} +do{ +*__LONG_PENDING= 0 ; +if(!qbevent)break;evnt(5582);}while(r); +do{ +qbs_set(__STRING_N,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5584);}while(r); +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(5584);}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(5585);}while(r); +do{ +*__LONG_TYPEOVERRIDE= 0 ; +if(!qbevent)break;evnt(5586);}while(r); +do{ +qbs_set(__STRING_S,FUNC_REMOVESYMBOL(__STRING_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5587);}while(r); +S_6540:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(5588);if(r)goto S_6540;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5588);}while(r); +} +S_6543:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_S,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(5589);if(r)goto S_6543;} +do{ +*__LONG_TYPEOVERRIDE=FUNC_TYPNAME2TYP(__STRING_S); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5590);}while(r); +S_6545:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(5591);if(r)goto S_6545;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5591);}while(r); +} +S_6548:; +if ((*__LONG_TYPEOVERRIDE&*__LONG_ISFIXEDLENGTH)||new_error){ +if(qbevent){evnt(5592);if(r)goto S_6548;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Invalid constant type",21)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5592);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5592);}while(r); +} +S_6552:; +if ((-(*__LONG_TYPEOVERRIDE== 0 ))||new_error){ +if(qbevent){evnt(5593);if(r)goto S_6552;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Invalid constant type",21)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5593);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5593);}while(r); +} +} +S_6557:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,__LONG_I),qbs_new_txt_len("=",1))))||new_error){ +if(qbevent){evnt(5596);if(r)goto S_6557;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected =",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5596);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5596);}while(r); +} +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(5597);}while(r); +do{ +qbs_set(__STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5600);}while(r); +do{ +*__LONG_B= 0 ; +if(!qbevent)break;evnt(5601);}while(r); +S_6564:; +fornext_value713=*__LONG_I; +fornext_finalvalue713=*__LONG_N; +fornext_step713= 1 ; +if (fornext_step713<0) fornext_step_negative713=1; else fornext_step_negative713=0; +if (new_error) goto fornext_error713; +goto fornext_entrylabel713; +while(1){ +fornext_value713=fornext_step713+(*__LONG_I2); +fornext_entrylabel713: +*__LONG_I2=fornext_value713; +if (fornext_step_negative713){ +if (fornext_value713fornext_finalvalue713) break; +} +fornext_error713:; +if(qbevent){evnt(5602);if(r)goto S_6564;} +do{ +qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5603);}while(r); +S_6566:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(5604);if(r)goto S_6566;} +do{ +*__LONG_B=*__LONG_B+ 1 ; +if(!qbevent)break;evnt(5604);}while(r); +} +S_6569:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(5605);if(r)goto S_6569;} +do{ +*__LONG_B=*__LONG_B- 1 ; +if(!qbevent)break;evnt(5605);}while(r); +} +S_6572:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||new_error){ +if(qbevent){evnt(5606);if(r)goto S_6572;} +do{ +*__LONG_PENDING= 1 ; +if(!qbevent)break;evnt(5607);}while(r); +do{ +*__LONG_I=*__LONG_I2+ 1 ; +if(!qbevent)break;evnt(5608);}while(r); +S_6575:; +if ((-(*__LONG_I>(*__LONG_N- 2 )))||new_error){ +if(qbevent){evnt(5609);if(r)goto S_6575;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected CONST ... , name = value/expression",44)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5609);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5609);}while(r); +} +do{ +goto fornext_exit_712; +if(!qbevent)break;evnt(5610);}while(r); +} +S_6581:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E->len== 0 )))||new_error){ +if(qbevent){evnt(5612);if(r)goto S_6581;} +do{ +qbs_set(__STRING_E,__STRING_E2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5612);}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(5612);}while(r); +} +fornext_continue_712:; +} +fornext_exit_712:; +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5615);}while(r); +S_6588:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(5616);if(r)goto S_6588;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5616);}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(5617);}while(r); +do{ +qbs_set(__STRING_HASHNAME,__STRING_N); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5622);}while(r); +do{ +*__LONG_HASHCHKFLAGS= 1024 ; +if(!qbevent)break;evnt(5623);}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(5624);}while(r); +S_6595:; +while((*__LONG_HASHRES)||new_error){ +if(qbevent){evnt(5625);if(r)goto S_6595;} +S_6596:; +if ((-(((int32*)(__ARRAY_LONG_CONSTSUBFUNC[0]))[array_check((*__LONG_HASHRESREF)-__ARRAY_LONG_CONSTSUBFUNC[4],__ARRAY_LONG_CONSTSUBFUNC[5])]==*__LONG_SUBFUNCN))||new_error){ +if(qbevent){evnt(5626);if(r)goto S_6596;} +do{ +tmp_long=array_check((*__LONG_HASHRESREF)-__ARRAY_LONG_CONSTDEFINED[4],__ARRAY_LONG_CONSTDEFINED[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_CONSTDEFINED[0]))[tmp_long]= 1 ; +if(!qbevent)break;evnt(5626);}while(r); +do{ +goto dl_exit_715; +if(!qbevent)break;evnt(5626);}while(r); +} +S_6600:; +if ((-(*__LONG_HASHRES!= 1 ))||new_error){ +if(qbevent){evnt(5627);if(r)goto S_6600;} +do{ +*__LONG_HASHRES=FUNC_HASHFINDCONT(__LONG_HASHRESFLAGS,__LONG_HASHRESREF); +if(!qbevent)break;evnt(5627);}while(r); +}else{ +do{ +*__LONG_HASHRES= 0 ; +if(!qbevent)break;evnt(5627);}while(r); +} +dl_continue_715:; +} +dl_exit_715:; +S_6606:; +if ((*__LONG_PENDING)||new_error){ +if(qbevent){evnt(5630);if(r)goto S_6606;} +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5630);}while(r); +do{ +goto LABEL_CONSTDEFPENDING; +if(!qbevent)break;evnt(5630);}while(r); +} +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(5632);}while(r); +S_6611:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(5632);if(r)goto S_6611;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5632);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5632);}while(r); +} +do{ +goto LABEL_FINISHEDNONEXEC; +if(!qbevent)break;evnt(5634);}while(r); +} +LABEL_PREDEFINE:; +if(qbevent){evnt(5637);r=0;} +S_6618:; +if ((-(*__LONG_N>= 2 ))||new_error){ +if(qbevent){evnt(5638);if(r)goto S_6618;} +do{ +*__LONG_ASREQ= 0 ; +if(!qbevent)break;evnt(5639);}while(r); +S_6620:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DEFINT",6))))||new_error){ +if(qbevent){evnt(5640);if(r)goto S_6620;} +do{ +qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("DefInt",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5640);}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(5640);}while(r); +do{ +*__LONG_N=*__LONG_N+ 2 ; +if(!qbevent)break;evnt(5640);}while(r); +do{ +goto LABEL_DEFINETYPE; +if(!qbevent)break;evnt(5640);}while(r); +} +S_6626:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DEFLNG",6))))||new_error){ +if(qbevent){evnt(5641);if(r)goto S_6626;} +do{ +qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("DefLng",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5641);}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(5641);}while(r); +do{ +*__LONG_N=*__LONG_N+ 2 ; +if(!qbevent)break;evnt(5641);}while(r); +do{ +goto LABEL_DEFINETYPE; +if(!qbevent)break;evnt(5641);}while(r); +} +S_6632:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DEFSNG",6))))||new_error){ +if(qbevent){evnt(5642);if(r)goto S_6632;} +do{ +qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("DefSng",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5642);}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(5642);}while(r); +do{ +*__LONG_N=*__LONG_N+ 2 ; +if(!qbevent)break;evnt(5642);}while(r); +do{ +goto LABEL_DEFINETYPE; +if(!qbevent)break;evnt(5642);}while(r); +} +S_6638:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DEFDBL",6))))||new_error){ +if(qbevent){evnt(5643);if(r)goto S_6638;} +do{ +qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("DefDbl",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5643);}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(5643);}while(r); +do{ +*__LONG_N=*__LONG_N+ 2 ; +if(!qbevent)break;evnt(5643);}while(r); +do{ +goto LABEL_DEFINETYPE; +if(!qbevent)break;evnt(5643);}while(r); +} +S_6644:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DEFSTR",6))))||new_error){ +if(qbevent){evnt(5644);if(r)goto S_6644;} +do{ +qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("DefStr",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5644);}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(5644);}while(r); +do{ +*__LONG_N=*__LONG_N+ 2 ; +if(!qbevent)break;evnt(5644);}while(r); +do{ +goto LABEL_DEFINETYPE; +if(!qbevent)break;evnt(5644);}while(r); +} +S_6650:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_DEFINE",7)))|(((qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DEFINE",6)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ +if(qbevent){evnt(5645);if(r)goto S_6650;} +do{ +*__LONG_ASREQ= 1 ; +if(!qbevent)break;evnt(5646);}while(r); +S_6652:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_DEFINE",7))))||new_error){ +if(qbevent){evnt(5647);if(r)goto S_6652;} +do{ +qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("_Define",7))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5647);}while(r); +}else{ +do{ +qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Define",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5647);}while(r); +} +LABEL_DEFINETYPE:; +if(qbevent){evnt(5648);r=0;} +do{ +qbs_set(__STRING_TYP,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5650);}while(r); +do{ +qbs_set(__STRING_TYP2,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5651);}while(r); +do{ +qbs_set(__STRING_T,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5652);}while(r); +S_6660:; +fornext_value718=*__LONG_N; +fornext_finalvalue718= 2 ; +fornext_step718= -1 ; +if (fornext_step718<0) fornext_step_negative718=1; else fornext_step_negative718=0; +if (new_error) goto fornext_error718; +goto fornext_entrylabel718; +while(1){ +fornext_value718=fornext_step718+(*__LONG_I); +fornext_entrylabel718: +*__LONG_I=fornext_value718; +if (fornext_step_negative718){ +if (fornext_value718fornext_finalvalue718) break; +} +fornext_error718:; +if(qbevent){evnt(5653);if(r)goto S_6660;} +do{ +qbs_set(__STRING_T,FUNC_GETELEMENT(__STRING_A,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5654);}while(r); +S_6662:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T,qbs_new_txt_len("AS",2))))||new_error){ +if(qbevent){evnt(5655);if(r)goto S_6662;} +do{ +goto fornext_exit_717; +if(!qbevent)break;evnt(5655);}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(5656);}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(5657);}while(r); +fornext_continue_717:; +} +fornext_exit_717:; +do{ +qbs_set(__STRING_TYP,qbs_rtrim(__STRING_TYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5659);}while(r); +S_6669:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_T,qbs_new_txt_len("AS",2))))||new_error){ +if(qbevent){evnt(5660);if(r)goto S_6669;} +do{ +qbs_set(__STRING_A,qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("DEFINE: Expected ... AS ...",27))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5660);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5660);}while(r); +} +S_6673:; +if (((-(*__LONG_I==*__LONG_N))|(-(*__LONG_I== 2 )))||new_error){ +if(qbevent){evnt(5661);if(r)goto S_6673;} +do{ +qbs_set(__STRING_A,qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("DEFINE: Expected ... AS ...",27))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5661);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5661);}while(r); +} +do{ +*__LONG_N=*__LONG_I- 1 ; +if(!qbevent)break;evnt(5664);}while(r); +do{ +*__LONG_I= 2 - 1 ; +if(!qbevent)break;evnt(5666);}while(r); +LABEL_DEFINENEXT:; +if(qbevent){evnt(5667);r=0;} +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(5669);}while(r); +do{ +qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5669);}while(r); +do{ +*__LONG_E=qbs_asc(qbs_ucase(__STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5669);}while(r); +S_6682:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E->len> 1 )))||new_error){ +if(qbevent){evnt(5670);if(r)goto S_6682;} +do{ +qbs_set(__STRING_A,qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("DEFINE: Expected an alphabet letter or the underscore character (_)",67))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5670);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5670);}while(r); +} +S_6686:; +if (((-(*__LONG_E!= 95 ))&(((-(*__LONG_E> 90 ))|(-(*__LONG_E< 65 )))))||new_error){ +if(qbevent){evnt(5671);if(r)goto S_6686;} +do{ +qbs_set(__STRING_A,qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("DEFINE: Expected an alphabet letter or the underscore character (_)",67))); +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_6690:; +if ((-(*__LONG_E== 95 ))||new_error){ +if(qbevent){evnt(5672);if(r)goto S_6690;} +do{ +*__LONG_E= 27 ; +if(!qbevent)break;evnt(5672);}while(r); +}else{ +do{ +*__LONG_E=*__LONG_E- 64 ; +if(!qbevent)break;evnt(5672);}while(r); +} +do{ +tmp_long=array_check((*__LONG_E)-__ARRAY_STRING_DEFINEAZ[4],__ARRAY_STRING_DEFINEAZ[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEAZ[0]))[tmp_long])),__STRING_TYP); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5673);}while(r); +do{ +tmp_long=array_check((*__LONG_E)-__ARRAY_STRING_DEFINEEXTAZ[4],__ARRAY_STRING_DEFINEEXTAZ[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEEXTAZ[0]))[tmp_long])),FUNC_TYPE2SYMBOL(__STRING_TYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5674);}while(r); +S_6697:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(5675);if(r)goto S_6697;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5675);}while(r); +} +do{ +*__LONG_FIRSTE=*__LONG_E; +if(!qbevent)break;evnt(5676);}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(5677);}while(r); +S_6702:; +if ((-(*__LONG_I==*__LONG_N))||new_error){ +if(qbevent){evnt(5679);if(r)goto S_6702;} +S_6703:; +if ((-(*__LONG_PREDEFINING== 1 ))||new_error){ +if(qbevent){evnt(5680);if(r)goto S_6703;} +do{ +goto LABEL_PREDEFINED; +if(!qbevent)break;evnt(5680);}while(r); +} +S_6706:; +if ((*__LONG_ASREQ)||new_error){ +if(qbevent){evnt(5681);if(r)goto S_6706;} +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(5681);}while(r); +} +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(5682);}while(r); +S_6710:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(5682);if(r)goto S_6710;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5682);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5682);}while(r); +} +do{ +goto LABEL_FINISHEDNONEXEC; +if(!qbevent)break;evnt(5683);}while(r); +} +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(5687);}while(r); +do{ +qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5687);}while(r); +S_6719:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(__STRING_E,qbs_new_txt_len("-",1)))&(qbs_notequal(__STRING_E,qbs_new_txt_len(",",1)))))||new_error){ +if(qbevent){evnt(5688);if(r)goto S_6719;} +do{ +qbs_set(__STRING_A,qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("DEFINE: Expected - or ,",23))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5688);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5688);}while(r); +} +S_6723:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("-",1))))||new_error){ +if(qbevent){evnt(5689);if(r)goto S_6723;} +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(5690);}while(r); +S_6725:; +if ((-(*__LONG_I==*__LONG_N))||new_error){ +if(qbevent){evnt(5691);if(r)goto S_6725;} +do{ +qbs_set(__STRING_A,qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("DEFINE: Syntax incomplete",25))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5691);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5691);}while(r); +} +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(5693);}while(r); +do{ +qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5693);}while(r); +do{ +*__LONG_E=qbs_asc(qbs_ucase(__STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5693);}while(r); +S_6732:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E->len> 1 )))||new_error){ +if(qbevent){evnt(5694);if(r)goto S_6732;} +do{ +qbs_set(__STRING_A,qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("DEFINE: Expected an alphabet letter or the underscore character (_)",67))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5694);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5694);}while(r); +} +S_6736:; +if (((-(*__LONG_E!= 95 ))&(((-(*__LONG_E> 90 ))|(-(*__LONG_E< 65 )))))||new_error){ +if(qbevent){evnt(5695);if(r)goto S_6736;} +do{ +qbs_set(__STRING_A,qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("DEFINE: Expected an alphabet letter or the underscore character (_)",67))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5695);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5695);}while(r); +} +S_6740:; +if ((-(*__LONG_E== 95 ))||new_error){ +if(qbevent){evnt(5696);if(r)goto S_6740;} +do{ +*__LONG_E= 27 ; +if(!qbevent)break;evnt(5696);}while(r); +}else{ +do{ +*__LONG_E=*__LONG_E- 64 ; +if(!qbevent)break;evnt(5696);}while(r); +} +S_6745:; +if ((-(*__LONG_FIRSTE>*__LONG_E))||new_error){ +if(qbevent){evnt(5697);if(r)goto S_6745;} +do{ +swap_32(&*__LONG_E,&*__LONG_FIRSTE); +if(!qbevent)break;evnt(5697);}while(r); +} +S_6748:; +fornext_value723=*__LONG_FIRSTE; +fornext_finalvalue723=*__LONG_E; +fornext_step723= 1 ; +if (fornext_step723<0) fornext_step_negative723=1; else fornext_step_negative723=0; +if (new_error) goto fornext_error723; +goto fornext_entrylabel723; +while(1){ +fornext_value723=fornext_step723+(*__LONG_E2); +fornext_entrylabel723: +*__LONG_E2=fornext_value723; +if (fornext_step_negative723){ +if (fornext_value723fornext_finalvalue723) break; +} +fornext_error723:; +if(qbevent){evnt(5698);if(r)goto S_6748;} +do{ +tmp_long=array_check((*__LONG_E2)-__ARRAY_STRING_DEFINEAZ[4],__ARRAY_STRING_DEFINEAZ[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEAZ[0]))[tmp_long])),__STRING_TYP); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5699);}while(r); +do{ +tmp_long=array_check((*__LONG_E2)-__ARRAY_STRING_DEFINEEXTAZ[4],__ARRAY_STRING_DEFINEEXTAZ[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEEXTAZ[0]))[tmp_long])),FUNC_TYPE2SYMBOL(__STRING_TYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5700);}while(r); +S_6751:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(5701);if(r)goto S_6751;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5701);}while(r); +} +fornext_continue_722:; +} +fornext_exit_722:; +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(5703);}while(r); +S_6756:; +if ((-(*__LONG_I==*__LONG_N))||new_error){ +if(qbevent){evnt(5704);if(r)goto S_6756;} +S_6757:; +if ((-(*__LONG_PREDEFINING== 1 ))||new_error){ +if(qbevent){evnt(5705);if(r)goto S_6757;} +do{ +goto LABEL_PREDEFINED; +if(!qbevent)break;evnt(5705);}while(r); +} +S_6760:; +if ((*__LONG_ASREQ)||new_error){ +if(qbevent){evnt(5706);if(r)goto S_6760;} +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(5706);}while(r); +} +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(5707);}while(r); +S_6764:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(5707);if(r)goto S_6764;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5707);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5707);}while(r); +} +do{ +goto LABEL_FINISHEDNONEXEC; +if(!qbevent)break;evnt(5708);}while(r); +} +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(5711);}while(r); +do{ +qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5711);}while(r); +S_6773:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len(",",1))))||new_error){ +if(qbevent){evnt(5712);if(r)goto S_6773;} +do{ +qbs_set(__STRING_A,qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("DEFINE: Expected ,",18))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5712);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5712);}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(5714);}while(r); +do{ +goto LABEL_DEFINENEXT; +if(!qbevent)break;evnt(5715);}while(r); +} +} +S_6782:; +if ((-(*__LONG_PREDEFINING== 1 ))||new_error){ +if(qbevent){evnt(5718);if(r)goto S_6782;} +do{ +goto LABEL_PREDEFINED; +if(!qbevent)break;evnt(5718);}while(r); +} +S_6785:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__INTEGER_CLOSEDMAIN!= 0 ))&(qbs_equal(__STRING_SUBFUNC,qbs_new_txt_len("",0)))))||new_error){ +if(qbevent){evnt(5720);if(r)goto S_6785;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Statement cannot be placed between SUB/FUNCTIONs",48)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5720);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5720);}while(r); +} +do{ +*__LONG_STATEMENTN=*__LONG_STATEMENTN+ 1 ; +if(!qbevent)break;evnt(5724);}while(r); +S_6790:; +if ((-(*__LONG_N>= 1 ))||new_error){ +if(qbevent){evnt(5727);if(r)goto S_6790;} +S_6791:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("NEXT",4))))||new_error){ +if(qbevent){evnt(5728);if(r)goto S_6791;} +do{ +qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Next",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5730);}while(r); +S_6793:; +if ((-(*__LONG_N== 1 ))||new_error){ +if(qbevent){evnt(5731);if(r)goto S_6793;} +do{ +goto LABEL_SIMPLENEXT; +if(!qbevent)break;evnt(5731);}while(r); +} +do{ +qbs_set(__STRING_V,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5732);}while(r); +S_6797:; +fornext_value726= 2 ; +fornext_finalvalue726=*__LONG_N; +fornext_step726= 1 ; +if (fornext_step726<0) fornext_step_negative726=1; else fornext_step_negative726=0; +if (new_error) goto fornext_error726; +goto fornext_entrylabel726; +while(1){ +fornext_value726=fornext_step726+(*__LONG_I); +fornext_entrylabel726: +*__LONG_I=fornext_value726; +if (fornext_step_negative726){ +if (fornext_value726fornext_finalvalue726) break; +} +fornext_error726:; +if(qbevent){evnt(5733);if(r)goto S_6797;} +do{ +qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5734);}while(r); +S_6799:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(",",1))))||new_error){ +if(qbevent){evnt(5736);if(r)goto S_6799;} +LABEL_LASTNEXTELE:; +if(qbevent){evnt(5738);r=0;} +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_V)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5739);}while(r); +S_6801:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(5740);if(r)goto S_6801;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5740);}while(r); +} +S_6804:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_L->len== 4 )))||new_error){ +if(qbevent){evnt(5741);if(r)goto S_6804;} +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(5741);}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(5741);}while(r); +} +do{ +qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5742);}while(r); +S_6810:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(5743);if(r)goto S_6810;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5743);}while(r); +} +S_6813:; +if (((*__LONG_TYP&*__LONG_ISREFERENCE))||new_error){ +if(qbevent){evnt(5744);if(r)goto S_6813;} +do{ +SUB_GETID(&(pass728=qbr(func_val(__STRING_E)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5745);}while(r); +S_6815:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(5746);if(r)goto S_6815;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5746);}while(r); +} +S_6818:; +if (((*(int32*)(((char*)__UDT_ID)+(536))&*__LONG_ISPOINTER))||new_error){ +if(qbevent){evnt(5747);if(r)goto S_6818;} +S_6819:; +if ((-((*(int32*)(((char*)__UDT_ID)+(536))&*__LONG_ISSTRING)== 0 ))||new_error){ +if(qbevent){evnt(5748);if(r)goto S_6819;} +S_6820:; +if ((-((*(int32*)(((char*)__UDT_ID)+(536))&*__LONG_ISOFFSETINBITS)== 0 ))||new_error){ +if(qbevent){evnt(5749);if(r)goto S_6820;} +S_6821:; +if ((-((*(int32*)(((char*)__UDT_ID)+(536))&*__LONG_ISARRAY)== 0 ))||new_error){ +if(qbevent){evnt(5750);if(r)goto S_6821;} +do{ +goto LABEL_FORNEXTFOUNDVAR2; +if(!qbevent)break;evnt(5751);}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(5757);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5757);}while(r); +LABEL_FORNEXTFOUNDVAR2:; +if(qbevent){evnt(5758);r=0;} +LABEL_SIMPLENEXT:; +if(qbevent){evnt(5759);r=0;} +S_6830:; +if ((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]!= 2 ))||new_error){ +if(qbevent){evnt(5760);if(r)goto S_6830;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("NEXT without FOR",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5760);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5760);}while(r); +} +S_6834:; +if (((-(*__LONG_N!= 1 ))&(-(((int32*)(__ARRAY_LONG_CONTROLVALUE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLVALUE[4],__ARRAY_LONG_CONTROLVALUE[5])]!=*__LONG_CURRENTID)))||new_error){ +if(qbevent){evnt(5761);if(r)goto S_6834;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Incorrect variable after NEXT",29)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5761);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5761);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass729=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("fornext_continue_",17),FUNC_STR2((&(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])])))),qbs_new_txt_len(":;",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5762);}while(r); +S_6839:; +if (((-(*__LONG_VWATCHON== 1 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 ))&(-(*__LONG_NOCHECKS== 0 )))||new_error){ +if(qbevent){evnt(5763);if(r)goto S_6839;} +do{ +SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass730= 0 )); +if(!qbevent)break;evnt(5764);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass731=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= ",27),FUNC_STR2(__LONG_LINENUMBER)),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(5765);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass732=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5767);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass733=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("fornext_exit_",13),FUNC_STR2((&(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])])))),qbs_new_txt_len(":;",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5768);}while(r); +do{ +*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ; +if(!qbevent)break;evnt(5769);}while(r); +S_6846:; +if ((-(*__LONG_N== 1 ))||new_error){ +if(qbevent){evnt(5770);if(r)goto S_6846;} +do{ +goto fornext_exit_725; +if(!qbevent)break;evnt(5770);}while(r); +} +do{ +qbs_set(__STRING_V,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5771);}while(r); +}else{ +S_6851:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_V->len))||new_error){ +if(qbevent){evnt(5775);if(r)goto S_6851;} +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(5775);}while(r); +}else{ +do{ +qbs_set(__STRING_V,__STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5775);}while(r); +} +S_6856:; +if ((-(*__LONG_I==*__LONG_N))||new_error){ +if(qbevent){evnt(5776);if(r)goto S_6856;} +do{ +goto LABEL_LASTNEXTELE; +if(!qbevent)break;evnt(5776);}while(r); +} +} +fornext_continue_725:; +} +fornext_exit_725:; +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(5782);}while(r); +S_6862:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(5782);if(r)goto S_6862;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5782);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5782);}while(r); +} +do{ +goto LABEL_FINISHEDNONEXEC; +if(!qbevent)break;evnt(5783);}while(r); +} +} +S_6870:; +if ((-(*__LONG_N>= 1 ))||new_error){ +if(qbevent){evnt(5789);if(r)goto S_6870;} +S_6871:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("WHILE",5))))||new_error){ +if(qbevent){evnt(5790);if(r)goto S_6871;} +S_6872:; +if ((-(*__LONG_NOCHECKS== 0 ))||new_error){ +if(qbevent){evnt(5791);if(r)goto S_6872;} +do{ +SUB_WRITEBUFLINE(&(pass736=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("S_",2),FUNC_STR2(__LONG_STATEMENTN)),qbs_new_txt_len(":;",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5791);}while(r); +do{ +*__LONG_DYNSCOPE= 1 ; +if(!qbevent)break;evnt(5791);}while(r); +} +S_6876:; +if (((-(*__ULONG_SELECTCASECOUNTER> 0 ))&(-(((int32*)(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]))[array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_SELECTCASEHASCASEBLOCK[4],__ARRAY_LONG_SELECTCASEHASCASEBLOCK[5])]== 0 )))||new_error){ +if(qbevent){evnt(5794);if(r)goto S_6876;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected CASE expression",24)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5795);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5795);}while(r); +} +do{ +*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL+ 1 ; +if(!qbevent)break;evnt(5798);}while(r); +do{ +tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLREF[4],__ARRAY_LONG_CONTROLREF[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_CONTROLREF[0]))[tmp_long]=*__LONG_LINENUMBER; +if(!qbevent)break;evnt(5799);}while(r); +do{ +tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[tmp_long]= 5 ; +if(!qbevent)break;evnt(5800);}while(r); +do{ +tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_CONTROLID[0]))[tmp_long]=FUNC_UNIQUENUMBER(); +if(!qbevent)break;evnt(5801);}while(r); +S_6884:; +if ((-(*__LONG_N>= 2 ))||new_error){ +if(qbevent){evnt(5802);if(r)goto S_6884;} +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(FUNC_GETELEMENTS(__STRING_CA,&(pass737= 2 ),__LONG_N))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5803);}while(r); +S_6886:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(5804);if(r)goto S_6886;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5804);}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(5805);}while(r); +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(5806);}while(r); +S_6891:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(5806);if(r)goto S_6891;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5806);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5806);}while(r); +} +do{ +qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5807);}while(r); +S_6897:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(5808);if(r)goto S_6897;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5808);}while(r); +} +S_6900:; +if (((*__LONG_TYP&*__LONG_ISREFERENCE))||new_error){ +if(qbevent){evnt(5809);if(r)goto S_6900;} +do{ +qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass739= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5809);}while(r); +} +S_6903:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(5810);if(r)goto S_6903;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5810);}while(r); +} +S_6906:; +if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||new_error){ +if(qbevent){evnt(5811);if(r)goto S_6906;} +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(5811);}while(r); +} +S_6909:; +if (((*__LONG_TYP&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(5812);if(r)goto S_6909;} +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(5812);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5812);}while(r); +} +S_6913:; +if (((-(*__LONG_NOCHECKS== 0 ))&(-(*__LONG_VWATCHON== 1 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||new_error){ +if(qbevent){evnt(5813);if(r)goto S_6913;} +do{ +SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass740= 0 )); +if(!qbevent)break;evnt(5814);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass741=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= ",27),FUNC_STR2(__LONG_LINENUMBER)),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(5815);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass742=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("while((",7),__STRING_E),qbs_new_txt_len(")||new_error){",14))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5817);}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(5819);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5819);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(5822);}while(r); +} +} +S_6925:; +if ((-(*__LONG_N== 1 ))||new_error){ +if(qbevent){evnt(5826);if(r)goto S_6925;} +S_6926:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("WEND",4))))||new_error){ +if(qbevent){evnt(5827);if(r)goto S_6926;} +S_6927:; +if ((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]!= 5 ))||new_error){ +if(qbevent){evnt(5830);if(r)goto S_6927;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("WEND without WHILE",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5830);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5830);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass743=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("ww_continue_",12),FUNC_STR2((&(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])])))),qbs_new_txt_len(":;",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5831);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass744=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5832);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass745=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("ww_exit_",8),FUNC_STR2((&(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])])))),qbs_new_txt_len(":;",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5833);}while(r); +do{ +*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ; +if(!qbevent)break;evnt(5834);}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(5835);}while(r); +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(5836);}while(r); +S_6937:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(5836);if(r)goto S_6937;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5836);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5836);}while(r); +} +do{ +goto LABEL_FINISHEDNONEXEC; +if(!qbevent)break;evnt(5837);}while(r); +} +} +S_6945:; +if ((-(*__LONG_N>= 1 ))||new_error){ +if(qbevent){evnt(5845);if(r)goto S_6945;} +S_6946:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DO",2))))||new_error){ +if(qbevent){evnt(5846);if(r)goto S_6946;} +S_6947:; +if ((-(*__LONG_NOCHECKS== 0 ))||new_error){ +if(qbevent){evnt(5847);if(r)goto S_6947;} +do{ +SUB_WRITEBUFLINE(&(pass747=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("S_",2),FUNC_STR2(__LONG_STATEMENTN)),qbs_new_txt_len(":;",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5847);}while(r); +do{ +*__LONG_DYNSCOPE= 1 ; +if(!qbevent)break;evnt(5847);}while(r); +} +S_6951:; +if (((-(*__ULONG_SELECTCASECOUNTER> 0 ))&(-(((int32*)(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]))[array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_SELECTCASEHASCASEBLOCK[4],__ARRAY_LONG_SELECTCASEHASCASEBLOCK[5])]== 0 )))||new_error){ +if(qbevent){evnt(5850);if(r)goto S_6951;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected CASE expression",24)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5851);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5851);}while(r); +} +do{ +*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL+ 1 ; +if(!qbevent)break;evnt(5854);}while(r); +do{ +tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLREF[4],__ARRAY_LONG_CONTROLREF[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_CONTROLREF[0]))[tmp_long]=*__LONG_LINENUMBER; +if(!qbevent)break;evnt(5855);}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(5856);}while(r); +S_6958:; +if ((-(*__LONG_N>= 2 ))||new_error){ +if(qbevent){evnt(5857);if(r)goto S_6958;} +do{ +*__LONG_WHILEUNTIL= 0 ; +if(!qbevent)break;evnt(5858);}while(r); +S_6960:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("WHILE",5))))||new_error){ +if(qbevent){evnt(5859);if(r)goto S_6960;} +do{ +*__LONG_WHILEUNTIL= 1 ; +if(!qbevent)break;evnt(5859);}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(5859);}while(r); +} +S_6964:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("UNTIL",5))))||new_error){ +if(qbevent){evnt(5860);if(r)goto S_6964;} +do{ +*__LONG_WHILEUNTIL= 2 ; +if(!qbevent)break;evnt(5860);}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(5860);}while(r); +} +S_6968:; +if ((-(*__LONG_WHILEUNTIL== 0 ))||new_error){ +if(qbevent){evnt(5861);if(r)goto S_6968;} +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(5861);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5861);}while(r); +} +S_6972:; +if (((-(*__LONG_WHILEUNTIL> 0 ))&(-(*__LONG_N== 2 )))||new_error){ +if(qbevent){evnt(5862);if(r)goto S_6972;} +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(5862);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5862);}while(r); +} +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(FUNC_GETELEMENTS(__STRING_CA,&(pass748= 3 ),__LONG_N))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5863);}while(r); +S_6977:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(5864);if(r)goto S_6977;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5864);}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(5865);}while(r); +do{ +qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5866);}while(r); +S_6982:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(5867);if(r)goto S_6982;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5867);}while(r); +} +S_6985:; +if (((*__LONG_TYP&*__LONG_ISREFERENCE))||new_error){ +if(qbevent){evnt(5868);if(r)goto S_6985;} +do{ +qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass749= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5868);}while(r); +} +S_6988:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(5869);if(r)goto S_6988;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5869);}while(r); +} +S_6991:; +if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||new_error){ +if(qbevent){evnt(5870);if(r)goto S_6991;} +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(5870);}while(r); +} +S_6994:; +if (((*__LONG_TYP&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(5871);if(r)goto S_6994;} +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(5871);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5871);}while(r); +} +S_6998:; +if ((-(*__LONG_WHILEUNTIL== 1 ))||new_error){ +if(qbevent){evnt(5872);if(r)goto S_6998;} +do{ +SUB_WRITEBUFLINE(&(pass750=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("while((",7),__STRING_E),qbs_new_txt_len(")||new_error){",14))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5872);}while(r); +}else{ +do{ +SUB_WRITEBUFLINE(&(pass751=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("while((!(",9),__STRING_E),qbs_new_txt_len("))||new_error){",15))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5872);}while(r); +} +S_7003:; +if (((-(*__LONG_NOCHECKS== 0 ))&(-(*__LONG_VWATCHON== 1 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||new_error){ +if(qbevent){evnt(5873);if(r)goto S_7003;} +do{ +SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass752= 0 )); +if(!qbevent)break;evnt(5874);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass753=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= ",27),FUNC_STR2(__LONG_LINENUMBER)),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(5875);}while(r); +} +do{ +tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[tmp_long]= 4 ; +if(!qbevent)break;evnt(5877);}while(r); +}else{ +do{ +tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[tmp_long]= 3 ; +if(!qbevent)break;evnt(5879);}while(r); +S_7010:; +if (((-(*__LONG_VWATCHON== 1 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 ))&(-(*__LONG_NOCHECKS== 0 )))||new_error){ +if(qbevent){evnt(5880);if(r)goto S_7010;} +do{ +SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass754= 0 )); +if(!qbevent)break;evnt(5881);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass755=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("do{*__LONG_VWATCH_LINENUMBER= ",30),FUNC_STR2(__LONG_LINENUMBER)),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(5882);}while(r); +}else{ +do{ +SUB_WRITEBUFLINE(&(pass756=*__LONG_MAINTXTBUF),qbs_new_txt_len("do{",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5884);}while(r); +} +} +do{ +tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_CONTROLID[0]))[tmp_long]=FUNC_UNIQUENUMBER(); +if(!qbevent)break;evnt(5887);}while(r); +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(5888);}while(r); +S_7019:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(5888);if(r)goto S_7019;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5888);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5888);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(5889);}while(r); +} +} +S_7027:; +if ((-(*__LONG_N>= 1 ))||new_error){ +if(qbevent){evnt(5893);if(r)goto S_7027;} +S_7028:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("LOOP",4))))||new_error){ +if(qbevent){evnt(5894);if(r)goto S_7028;} +do{ +qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Loop",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5895);}while(r); +S_7030:; +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 )))||new_error){ +if(qbevent){evnt(5896);if(r)goto S_7030;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("PROGRAM FLOW ERROR!",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5896);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5896);}while(r); +} +S_7034:; +if ((-(*__LONG_N>= 2 ))||new_error){ +if(qbevent){evnt(5897);if(r)goto S_7034;} +S_7035:; +if ((-(*__LONG_NOCHECKS== 0 ))||new_error){ +if(qbevent){evnt(5898);if(r)goto S_7035;} +do{ +SUB_WRITEBUFLINE(&(pass758=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("S_",2),FUNC_STR2(__LONG_STATEMENTN)),qbs_new_txt_len(":;",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5898);}while(r); +do{ +*__LONG_DYNSCOPE= 1 ; +if(!qbevent)break;evnt(5898);}while(r); +} +S_7039:; +if ((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]== 4 ))||new_error){ +if(qbevent){evnt(5899);if(r)goto S_7039;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("PROGRAM FLOW ERROR!",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5899);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5899);}while(r); +} +do{ +*__LONG_WHILEUNTIL= 0 ; +if(!qbevent)break;evnt(5900);}while(r); +S_7044:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("WHILE",5))))||new_error){ +if(qbevent){evnt(5901);if(r)goto S_7044;} +do{ +*__LONG_WHILEUNTIL= 1 ; +if(!qbevent)break;evnt(5901);}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(5901);}while(r); +} +S_7048:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("UNTIL",5))))||new_error){ +if(qbevent){evnt(5902);if(r)goto S_7048;} +do{ +*__LONG_WHILEUNTIL= 2 ; +if(!qbevent)break;evnt(5902);}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(5902);}while(r); +} +S_7052:; +if ((-(*__LONG_WHILEUNTIL== 0 ))||new_error){ +if(qbevent){evnt(5903);if(r)goto S_7052;} +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(5903);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5903);}while(r); +} +S_7056:; +if (((-(*__LONG_WHILEUNTIL> 0 ))&(-(*__LONG_N== 2 )))||new_error){ +if(qbevent){evnt(5904);if(r)goto S_7056;} +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(5904);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5904);}while(r); +} +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(FUNC_GETELEMENTS(__STRING_CA,&(pass759= 3 ),__LONG_N))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5905);}while(r); +S_7061:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(5906);if(r)goto S_7061;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5906);}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(5907);}while(r); +do{ +qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5908);}while(r); +S_7066:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(5909);if(r)goto S_7066;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5909);}while(r); +} +S_7069:; +if (((*__LONG_TYP&*__LONG_ISREFERENCE))||new_error){ +if(qbevent){evnt(5910);if(r)goto S_7069;} +do{ +qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass760= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5910);}while(r); +} +S_7072:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(5911);if(r)goto S_7072;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5911);}while(r); +} +S_7075:; +if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||new_error){ +if(qbevent){evnt(5912);if(r)goto S_7075;} +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(5912);}while(r); +} +S_7078:; +if (((*__LONG_TYP&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(5913);if(r)goto S_7078;} +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(5913);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5913);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass761=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("dl_continue_",12),FUNC_STR2((&(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])])))),qbs_new_txt_len(":;",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5914);}while(r); +S_7083:; +if (((-(*__LONG_NOCHECKS== 0 ))&(-(*__LONG_VWATCHON== 1 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||new_error){ +if(qbevent){evnt(5915);if(r)goto S_7083;} +do{ +SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass762= 0 )); +if(!qbevent)break;evnt(5916);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass763=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= ",27),FUNC_STR2(__LONG_LINENUMBER)),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(5917);}while(r); +} +S_7087:; +if ((-(*__LONG_WHILEUNTIL== 1 ))||new_error){ +if(qbevent){evnt(5919);if(r)goto S_7087;} +do{ +SUB_WRITEBUFLINE(&(pass764=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("}while((",8),__STRING_E),qbs_new_txt_len(")&&(!new_error));",17))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5919);}while(r); +}else{ +do{ +SUB_WRITEBUFLINE(&(pass765=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("}while((!(",10),__STRING_E),qbs_new_txt_len("))&&(!new_error));",18))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5919);}while(r); +} +}else{ +do{ +SUB_WRITEBUFLINE(&(pass766=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("dl_continue_",12),FUNC_STR2((&(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])])))),qbs_new_txt_len(":;",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5921);}while(r); +S_7094:; +if (((-(*__LONG_NOCHECKS== 0 ))&(-(*__LONG_VWATCHON== 1 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||new_error){ +if(qbevent){evnt(5923);if(r)goto S_7094;} +do{ +SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass767= 0 )); +if(!qbevent)break;evnt(5924);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass768=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= ",27),FUNC_STR2(__LONG_LINENUMBER)),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(5925);}while(r); +} +S_7098:; +if ((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]== 4 ))||new_error){ +if(qbevent){evnt(5928);if(r)goto S_7098;} +do{ +SUB_WRITEBUFLINE(&(pass769=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5929);}while(r); +}else{ +do{ +SUB_WRITEBUFLINE(&(pass770=*__LONG_MAINTXTBUF),qbs_new_txt_len("}while(1);",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5931);}while(r); +} +} +do{ +SUB_WRITEBUFLINE(&(pass771=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("dl_exit_",8),FUNC_STR2((&(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])])))),qbs_new_txt_len(":;",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5934);}while(r); +do{ +*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ; +if(!qbevent)break;evnt(5935);}while(r); +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(5936);}while(r); +S_7107:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(5936);if(r)goto S_7107;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5936);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5936);}while(r); +} +S_7112:; +if ((-(*__LONG_N== 1 ))||new_error){ +if(qbevent){evnt(5937);if(r)goto S_7112;} +do{ +goto LABEL_FINISHEDNONEXEC; +if(!qbevent)break;evnt(5937);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(5938);}while(r); +} +} +S_7118:; +if ((-(*__LONG_N>= 1 ))||new_error){ +if(qbevent){evnt(5950);if(r)goto S_7118;} +S_7119:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("FOR",3))))||new_error){ +if(qbevent){evnt(5951);if(r)goto S_7119;} +S_7120:; +if ((-(*__LONG_NOCHECKS== 0 ))||new_error){ +if(qbevent){evnt(5952);if(r)goto S_7120;} +do{ +SUB_WRITEBUFLINE(&(pass773=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("S_",2),FUNC_STR2(__LONG_STATEMENTN)),qbs_new_txt_len(":;",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5952);}while(r); +do{ +*__LONG_DYNSCOPE= 1 ; +if(!qbevent)break;evnt(5952);}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(5954);}while(r); +S_7125:; +if (((-(*__ULONG_SELECTCASECOUNTER> 0 ))&(-(((int32*)(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]))[array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_SELECTCASEHASCASEBLOCK[4],__ARRAY_LONG_SELECTCASEHASCASEBLOCK[5])]== 0 )))||new_error){ +if(qbevent){evnt(5957);if(r)goto S_7125;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected CASE expression",24)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5958);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5958);}while(r); +} +do{ +*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL+ 1 ; +if(!qbevent)break;evnt(5961);}while(r); +do{ +tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLREF[4],__ARRAY_LONG_CONTROLREF[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_CONTROLREF[0]))[tmp_long]=*__LONG_LINENUMBER; +if(!qbevent)break;evnt(5962);}while(r); +do{ +tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[tmp_long]= 2 ; +if(!qbevent)break;evnt(5963);}while(r); +do{ +tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_CONTROLID[0]))[tmp_long]=FUNC_UNIQUENUMBER(); +if(!qbevent)break;evnt(5964);}while(r); +do{ +qbs_set(__STRING_V,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5966);}while(r); +do{ +qbs_set(__STRING_STARTVALUE,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5967);}while(r); +do{ +qbs_set(__STRING_P3,qbs_new_txt_len("1",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5968);}while(r); +do{ +*__LONG_STEPUSED= 0 ; +if(!qbevent)break;evnt(5968);}while(r); +do{ +qbs_set(__STRING_P2,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5969);}while(r); +do{ +*__LONG_MODE= 0 ; +if(!qbevent)break;evnt(5970);}while(r); +do{ +*__LONG_E= 0 ; +if(!qbevent)break;evnt(5971);}while(r); +S_7140:; +fornext_value775= 2 ; +fornext_finalvalue775=*__LONG_N; +fornext_step775= 1 ; +if (fornext_step775<0) fornext_step_negative775=1; else fornext_step_negative775=0; +if (new_error) goto fornext_error775; +goto fornext_entrylabel775; +while(1){ +fornext_value775=fornext_step775+(*__LONG_I); +fornext_entrylabel775: +*__LONG_I=fornext_value775; +if (fornext_step_negative775){ +if (fornext_value775fornext_finalvalue775) break; +} +fornext_error775:; +if(qbevent){evnt(5972);if(r)goto S_7140;} +do{ +qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5973);}while(r); +S_7142:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("=",1))))||new_error){ +if(qbevent){evnt(5974);if(r)goto S_7142;} +S_7143:; +if ((-(*__LONG_MODE!= 0 ))||new_error){ +if(qbevent){evnt(5975);if(r)goto S_7143;} +do{ +*__LONG_E= 1 ; +if(!qbevent)break;evnt(5975);}while(r); +do{ +goto fornext_exit_774; +if(!qbevent)break;evnt(5975);}while(r); +} +do{ +*__LONG_MODE= 1 ; +if(!qbevent)break;evnt(5976);}while(r); +do{ +qbs_set(__STRING_V,FUNC_GETELEMENTS(__STRING_CA,&(pass776= 2 ),&(pass777=*__LONG_I- 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5977);}while(r); +do{ +*__LONG_EQUPOS=*__LONG_I; +if(!qbevent)break;evnt(5978);}while(r); +} +S_7151:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("TO",2))))||new_error){ +if(qbevent){evnt(5980);if(r)goto S_7151;} +S_7152:; +if ((-(*__LONG_MODE!= 1 ))||new_error){ +if(qbevent){evnt(5981);if(r)goto S_7152;} +do{ +*__LONG_E= 1 ; +if(!qbevent)break;evnt(5981);}while(r); +do{ +goto fornext_exit_774; +if(!qbevent)break;evnt(5981);}while(r); +} +do{ +*__LONG_MODE= 2 ; +if(!qbevent)break;evnt(5982);}while(r); +do{ +qbs_set(__STRING_STARTVALUE,FUNC_GETELEMENTS(__STRING_CA,&(pass778=*__LONG_EQUPOS+ 1 ),&(pass779=*__LONG_I- 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5983);}while(r); +do{ +*__LONG_TOPOS=*__LONG_I; +if(!qbevent)break;evnt(5984);}while(r); +} +S_7160:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("STEP",4))))||new_error){ +if(qbevent){evnt(5986);if(r)goto S_7160;} +S_7161:; +if ((-(*__LONG_MODE!= 2 ))||new_error){ +if(qbevent){evnt(5987);if(r)goto S_7161;} +do{ +*__LONG_E= 1 ; +if(!qbevent)break;evnt(5987);}while(r); +do{ +goto fornext_exit_774; +if(!qbevent)break;evnt(5987);}while(r); +} +do{ +*__LONG_MODE= 3 ; +if(!qbevent)break;evnt(5988);}while(r); +do{ +*__LONG_STEPUSED= 1 ; +if(!qbevent)break;evnt(5989);}while(r); +do{ +qbs_set(__STRING_P2,FUNC_GETELEMENTS(__STRING_CA,&(pass780=*__LONG_TOPOS+ 1 ),&(pass781=*__LONG_I- 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5990);}while(r); +do{ +qbs_set(__STRING_P3,FUNC_GETELEMENTS(__STRING_CA,&(pass782=*__LONG_I+ 1 ),__LONG_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5991);}while(r); +do{ +goto fornext_exit_774; +if(!qbevent)break;evnt(5992);}while(r); +} +fornext_continue_774:; +} +fornext_exit_774:; +S_7172:; +if ((-(*__LONG_MODE< 2 ))||new_error){ +if(qbevent){evnt(5995);if(r)goto S_7172;} +do{ +*__LONG_E= 1 ; +if(!qbevent)break;evnt(5995);}while(r); +} +S_7175:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_P2,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(5996);if(r)goto S_7175;} +do{ +qbs_set(__STRING_P2,FUNC_GETELEMENTS(__STRING_CA,&(pass783=*__LONG_TOPOS+ 1 ),__LONG_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(5996);}while(r); +} +S_7178:; +if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_V->len== 0 ))|(-(__STRING_STARTVALUE->len== 0 ))|(-(__STRING_P2->len== 0 ))))||new_error){ +if(qbevent){evnt(5997);if(r)goto S_7178;} +do{ +*__LONG_E= 1 ; +if(!qbevent)break;evnt(5997);}while(r); +} +S_7181:; +if (((-(*__LONG_E!= 0 ))&(-(*__LONG_MODE< 3 )))||new_error){ +if(qbevent){evnt(5998);if(r)goto S_7181;} +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(5998);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5998);}while(r); +} +S_7185:; +if ((*__LONG_E)||new_error){ +if(qbevent){evnt(5999);if(r)goto S_7185;} +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(5999);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(5999);}while(r); +} +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_V)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6001);}while(r); +S_7190:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(6002);if(r)goto S_7190;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6002);}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(6003);}while(r); +do{ +qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6004);}while(r); +S_7195:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(6005);if(r)goto S_7195;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6005);}while(r); +} +S_7198:; +if (((*__LONG_TYP&*__LONG_ISREFERENCE))||new_error){ +if(qbevent){evnt(6006);if(r)goto S_7198;} +do{ +SUB_GETID(&(pass787=qbr(func_val(__STRING_E)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6007);}while(r); +S_7200:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(6008);if(r)goto S_7200;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6008);}while(r); +} +S_7203:; +if (((*(int32*)(((char*)__UDT_ID)+(536))&*__LONG_ISPOINTER))||new_error){ +if(qbevent){evnt(6009);if(r)goto S_7203;} +S_7204:; +if ((-((*(int32*)(((char*)__UDT_ID)+(536))&*__LONG_ISSTRING)== 0 ))||new_error){ +if(qbevent){evnt(6010);if(r)goto S_7204;} +S_7205:; +if ((-((*(int32*)(((char*)__UDT_ID)+(536))&*__LONG_ISOFFSETINBITS)== 0 ))||new_error){ +if(qbevent){evnt(6011);if(r)goto S_7205;} +S_7206:; +if ((-((*(int32*)(((char*)__UDT_ID)+(536))&*__LONG_ISARRAY)== 0 ))||new_error){ +if(qbevent){evnt(6012);if(r)goto S_7206;} +do{ +goto LABEL_FORNEXTFOUNDVAR; +if(!qbevent)break;evnt(6013);}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(6019);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6019);}while(r); +LABEL_FORNEXTFOUNDVAR:; +if(qbevent){evnt(6020);r=0;} +do{ +tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLVALUE[4],__ARRAY_LONG_CONTROLVALUE[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_CONTROLVALUE[0]))[tmp_long]=*__LONG_CURRENTID; +if(!qbevent)break;evnt(6021);}while(r); +do{ +qbs_set(__STRING_V,__STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6022);}while(r); +do{ +qbs_set(__STRING_CTYPE,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6026);}while(r); +do{ +*__LONG_CTYP=*__LONG_TYP-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(6027);}while(r); +do{ +*__LONG_BITS=*__LONG_TYP& 511 ; +if(!qbevent)break;evnt(6028);}while(r); +S_7220:; +if (((*__LONG_TYP&*__LONG_ISFLOAT))||new_error){ +if(qbevent){evnt(6029);if(r)goto S_7220;} +S_7221:; +if ((-(*__LONG_BITS== 32 ))||new_error){ +if(qbevent){evnt(6030);if(r)goto S_7221;} +do{ +qbs_set(__STRING_CTYPE,qbs_new_txt_len("double",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6030);}while(r); +do{ +*__LONG_CTYP= 64 +*__LONG_ISFLOAT; +if(!qbevent)break;evnt(6030);}while(r); +} +S_7225:; +if ((-(*__LONG_BITS== 64 ))||new_error){ +if(qbevent){evnt(6031);if(r)goto S_7225;} +do{ +qbs_set(__STRING_CTYPE,qbs_new_txt_len("long double",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6031);}while(r); +do{ +*__LONG_CTYP= 256 +*__LONG_ISFLOAT; +if(!qbevent)break;evnt(6031);}while(r); +} +S_7229:; +if ((-(*__LONG_BITS== 256 ))||new_error){ +if(qbevent){evnt(6032);if(r)goto S_7229;} +do{ +qbs_set(__STRING_CTYPE,qbs_new_txt_len("long double",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6032);}while(r); +do{ +*__LONG_CTYP= 256 +*__LONG_ISFLOAT; +if(!qbevent)break;evnt(6032);}while(r); +} +}else{ +S_7234:; +if ((-(*__LONG_BITS== 8 ))||new_error){ +if(qbevent){evnt(6034);if(r)goto S_7234;} +do{ +qbs_set(__STRING_CTYPE,qbs_new_txt_len("int16",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6034);}while(r); +do{ +*__LONG_CTYP= 16 ; +if(!qbevent)break;evnt(6034);}while(r); +} +S_7238:; +if ((-(*__LONG_BITS== 16 ))||new_error){ +if(qbevent){evnt(6035);if(r)goto S_7238;} +do{ +qbs_set(__STRING_CTYPE,qbs_new_txt_len("int32",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6035);}while(r); +do{ +*__LONG_CTYP= 32 ; +if(!qbevent)break;evnt(6035);}while(r); +} +S_7242:; +if ((-(*__LONG_BITS== 32 ))||new_error){ +if(qbevent){evnt(6036);if(r)goto S_7242;} +do{ +qbs_set(__STRING_CTYPE,qbs_new_txt_len("int64",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6036);}while(r); +do{ +*__LONG_CTYP= 64 ; +if(!qbevent)break;evnt(6036);}while(r); +} +S_7246:; +if ((-(*__LONG_BITS== 64 ))||new_error){ +if(qbevent){evnt(6037);if(r)goto S_7246;} +do{ +qbs_set(__STRING_CTYPE,qbs_new_txt_len("int64",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6037);}while(r); +do{ +*__LONG_CTYP= 64 ; +if(!qbevent)break;evnt(6037);}while(r); +} +} +S_7251:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_CTYPE,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(6039);if(r)goto S_7251;} +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(6039);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6039);}while(r); +} +do{ +qbs_set(__STRING_U,FUNC_STR2(&(pass788=FUNC_UNIQUENUMBER()))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6040);}while(r); +S_7256:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SUBFUNC,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(6042);if(r)goto S_7256;} +do{ +SUB_WRITEBUFLINE(&(pass789=*__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(6043);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass790=*__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(6044);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass791=*__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(6045);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass792=*__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(6046);}while(r); +}else{ +do{ +SUB_WRITEBUFLINE(&(pass793=*__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(6048);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass794=*__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(6049);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass795=*__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(6050);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass796=*__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(6051);}while(r); +} +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_STARTVALUE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6055);}while(r); +S_7268:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(6056);if(r)goto S_7268;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6056);}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(6057);}while(r); +do{ +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,__LONG_CTYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6058);}while(r); +S_7273:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(6059);if(r)goto S_7273;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6059);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass797=*__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(6060);}while(r); +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_P2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6063);}while(r); +S_7278:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(6064);if(r)goto S_7278;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6064);}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(6065);}while(r); +do{ +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,__LONG_CTYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6066);}while(r); +S_7283:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(6067);if(r)goto S_7283;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6067);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass798=*__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(6068);}while(r); +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_P3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6071);}while(r); +S_7288:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(6072);if(r)goto S_7288;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6072);}while(r); +} +S_7291:; +if ((-(*__LONG_STEPUSED== 1 ))||new_error){ +if(qbevent){evnt(6073);if(r)goto S_7291;} +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(6073);}while(r); +} +do{ +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,__LONG_CTYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6074);}while(r); +S_7295:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(6075);if(r)goto S_7295;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6075);}while(r); +} +S_7298:; +if (((-(*__LONG_NOCHECKS== 0 ))&(-(*__LONG_VWATCHON== 1 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||new_error){ +if(qbevent){evnt(6077);if(r)goto S_7298;} +do{ +SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass799= 0 )); +if(!qbevent)break;evnt(6078);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass800=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= ",27),FUNC_STR2(__LONG_LINENUMBER)),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(6079);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass801=*__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(6082);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass802=*__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(6083);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass803=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if (new_error) goto fornext_error",33),__STRING_U),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6085);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass804=*__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(6086);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass805=*__LONG_MAINTXTBUF),qbs_new_txt_len("while(1){",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6087);}while(r); +do{ +*__LONG_TYPBAK=*__LONG_TYP; +if(!qbevent)break;evnt(6088);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass806=*__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,&(pass807= 0 ))),qbs_new_txt_len(");",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6089);}while(r); +S_7309:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(6090);if(r)goto S_7309;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6090);}while(r); +} +do{ +*__LONG_TYP=*__LONG_TYPBAK; +if(!qbevent)break;evnt(6091);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass808=*__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(6092);}while(r); +do{ +SUB_SETREFER(__STRING_V,__LONG_TYP,qbs_add(qbs_new_txt_len("fornext_value",13),__STRING_U),&(pass809= 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6093);}while(r); +S_7315:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(6094);if(r)goto S_7315;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6094);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass810=*__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(6095);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass811=*__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(6098);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass814=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6099);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass815=*__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(6100);}while(r); +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(6102);}while(r); +S_7325:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(6102);if(r)goto S_7325;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6102);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6102);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(6104);}while(r); +} +} +S_7333:; +if ((-(*__LONG_N== 1 ))||new_error){ +if(qbevent){evnt(6109);if(r)goto S_7333;} +S_7334:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("ELSE",4))))||new_error){ +if(qbevent){evnt(6110);if(r)goto S_7334;} +do{ +qbs_set(__STRING_TEMP,qbs_ucase(qbs_ltrim(qbs_rtrim(__STRING_WHOLELINE)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6119);}while(r); +S_7336:; +while((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_TEMP,func_chr( 9 ),0)))||new_error){ +if(qbevent){evnt(6121);if(r)goto S_7336;} +do{ +tqbs=__STRING_TEMP; if (!new_error){ +tmp_fileno=func_instr(NULL,__STRING_TEMP,func_chr( 9 ),0); if (!new_error){ +tmp_long= 32 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(6122);}while(r); +dl_continue_817:; +} +dl_exit_817:; +do{ +*__LONG_GOODELSE= 0 ; +if(!qbevent)break;evnt(6125);}while(r); +S_7340:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_TEMP, 2 ),qbs_new_txt_len("IF",2))))||new_error){ +if(qbevent){evnt(6126);if(r)goto S_7340;} +do{ +*__LONG_GOODELSE= -1 ; +if(!qbevent)break;evnt(6126);}while(r); +do{ +goto LABEL_SKIPELSECHECK; +if(!qbevent)break;evnt(6126);}while(r); +} +S_7344:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_TEMP, 4 ),qbs_new_txt_len("ELSE",4))))||new_error){ +if(qbevent){evnt(6127);if(r)goto S_7344;} +do{ +*__LONG_GOODELSE= -1 ; +if(!qbevent)break;evnt(6127);}while(r); +do{ +goto LABEL_SKIPELSECHECK; +if(!qbevent)break;evnt(6127);}while(r); +} +S_7348:; +do{ +if(qbevent){evnt(6128);if(r)goto S_7348;} +do{ +*__LONG_SPACELOCATION=func_instr(NULL,__STRING_TEMP,qbs_new_txt_len(" ",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6129);}while(r); +S_7350:; +if ((*__LONG_SPACELOCATION)||new_error){ +if(qbevent){evnt(6130);if(r)goto S_7350;} +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(6130);}while(r); +} +S_7353:; +dl_continue_818:; +}while((!(-(*__LONG_SPACELOCATION== 0 )))&&(!new_error)); +dl_exit_818:; +if(qbevent){evnt(6131);if(r)goto S_7353;} +S_7354:; +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)))||new_error){ +if(qbevent){evnt(6132);if(r)goto S_7354;} +do{ +*__LONG_GOODELSE= -1 ; +if(!qbevent)break;evnt(6132);}while(r); +do{ +goto LABEL_SKIPELSECHECK; +if(!qbevent)break;evnt(6132);}while(r); +} +do{ +*__LONG_COUNT= 0 ; +if(!qbevent)break;evnt(6133);}while(r); +S_7359:; +do{ +if(qbevent){evnt(6134);if(r)goto S_7359;} +do{ +*__LONG_COUNT=*__LONG_COUNT+ 1 ; +if(!qbevent)break;evnt(6135);}while(r); +S_7361:; +qbs_set(sc_820,func_mid(__STRING_TEMP,*__LONG_COUNT, 1 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(qbevent){evnt(6136);if(r)goto S_7361;} +S_7362:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_820,qbs_new_txt_len("1",1))||qbs_equal(sc_820,qbs_new_txt_len("2",1))||qbs_equal(sc_820,qbs_new_txt_len("3",1))||qbs_equal(sc_820,qbs_new_txt_len("4",1))||qbs_equal(sc_820,qbs_new_txt_len("5",1))||qbs_equal(sc_820,qbs_new_txt_len("6",1))||qbs_equal(sc_820,qbs_new_txt_len("7",1))||qbs_equal(sc_820,qbs_new_txt_len("8",1))||qbs_equal(sc_820,qbs_new_txt_len("9",1))||qbs_equal(sc_820,qbs_new_txt_len("0",1))||qbs_equal(sc_820,qbs_new_txt_len(":",1))))||new_error){ +if(qbevent){evnt(6137);if(r)goto S_7362;} +sc_ec_32_end:; +goto sc_820_end; +} +do{ +goto dl_exit_819; +if(!qbevent)break;evnt(6138);}while(r); +sc_820_end:; +S_7366:; +dl_continue_819:; +}while((!(qbs_cleanup(qbs_tmp_base,-(*__LONG_COUNT>=__STRING_TEMP->len))))&&(!new_error)); +dl_exit_819:; +if(qbevent){evnt(6140);if(r)goto S_7366;} +S_7367:; +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)))))||new_error){ +if(qbevent){evnt(6141);if(r)goto S_7367;} +do{ +*__LONG_GOODELSE= -1 ; +if(!qbevent)break;evnt(6141);}while(r); +} +S_7370:; +if ((~(*__LONG_GOODELSE))||new_error){ +if(qbevent){evnt(6142);if(r)goto S_7370;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Invalid Syntax for ELSE",23)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6142);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6142);}while(r); +} +LABEL_SKIPELSECHECK:; +if(qbevent){evnt(6143);r=0;} +S_7374:; +fornext_value823=*__INTEGER_CONTROLLEVEL; +fornext_finalvalue823= 1 ; +fornext_step823= -1 ; +if (fornext_step823<0) fornext_step_negative823=1; else fornext_step_negative823=0; +if (new_error) 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_value823fornext_finalvalue823) break; +} +fornext_error823:; +if(qbevent){evnt(6145);if(r)goto S_7374;} +do{ +*__LONG_T=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__LONG_I)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]; +if(!qbevent)break;evnt(6146);}while(r); +S_7376:; +if ((-(*__LONG_T== 1 ))||new_error){ +if(qbevent){evnt(6147);if(r)goto S_7376;} +S_7377:; +if ((-(((int16*)(__ARRAY_INTEGER_CONTROLSTATE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLSTATE[4],__ARRAY_INTEGER_CONTROLSTATE[5])]== 2 ))||new_error){ +if(qbevent){evnt(6148);if(r)goto S_7377;} +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(6148);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6148);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass824=*__LONG_MAINTXTBUF),qbs_new_txt_len("}else{",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6149);}while(r); +do{ +tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLSTATE[4],__ARRAY_INTEGER_CONTROLSTATE[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_CONTROLSTATE[0]))[tmp_long]= 2 ; +if(!qbevent)break;evnt(6150);}while(r); +S_7383:; +if ((-(*__LONG_LINEELSEUSED== 0 ))||new_error){ +if(qbevent){evnt(6151);if(r)goto S_7383;} +do{ +*__LONG_LHSCONTROLLEVEL=*__LONG_LHSCONTROLLEVEL- 1 ; +if(!qbevent)break;evnt(6151);}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(6152);}while(r); +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(6153);}while(r); +S_7388:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(6153);if(r)goto S_7388;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6153);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6153);}while(r); +} +do{ +goto LABEL_FINISHEDNONEXEC; +if(!qbevent)break;evnt(6154);}while(r); +} +fornext_continue_822:; +} +fornext_exit_822:; +do{ +qbs_set(__STRING_A,qbs_new_txt_len("ELSE without IF",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6157);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6157);}while(r); +} +} +S_7400:; +if ((-(*__LONG_N>= 3 ))||new_error){ +if(qbevent){evnt(6161);if(r)goto S_7400;} +S_7401:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("ELSEIF",6))))||new_error){ +if(qbevent){evnt(6162);if(r)goto S_7401;} +S_7402:; +if ((-(*__LONG_NOCHECKS== 0 ))||new_error){ +if(qbevent){evnt(6163);if(r)goto S_7402;} +do{ +SUB_WRITEBUFLINE(&(pass826=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("S_",2),FUNC_STR2(__LONG_STATEMENTN)),qbs_new_txt_len(":;",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6164);}while(r); +do{ +*__LONG_DYNSCOPE= 1 ; +if(!qbevent)break;evnt(6164);}while(r); +S_7405:; +if (((-(*__LONG_VWATCHON== 1 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||new_error){ +if(qbevent){evnt(6165);if(r)goto S_7405;} +do{ +SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass827= 0 )); +if(!qbevent)break;evnt(6166);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass828=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= ",27),FUNC_STR2(__LONG_LINENUMBER)),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(6167);}while(r); +} +} +S_7410:; +fornext_value830=*__INTEGER_CONTROLLEVEL; +fornext_finalvalue830= 1 ; +fornext_step830= -1 ; +if (fornext_step830<0) fornext_step_negative830=1; else fornext_step_negative830=0; +if (new_error) goto fornext_error830; +goto fornext_entrylabel830; +while(1){ +fornext_value830=fornext_step830+(*__LONG_I); +fornext_entrylabel830: +*__LONG_I=fornext_value830; +if (fornext_step_negative830){ +if (fornext_value830fornext_finalvalue830) break; +} +fornext_error830:; +if(qbevent){evnt(6170);if(r)goto S_7410;} +do{ +*__LONG_T=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__LONG_I)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]; +if(!qbevent)break;evnt(6171);}while(r); +S_7412:; +if ((-(*__LONG_T== 1 ))||new_error){ +if(qbevent){evnt(6172);if(r)goto S_7412;} +S_7413:; +if ((-(((int16*)(__ARRAY_INTEGER_CONTROLSTATE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLSTATE[4],__ARRAY_INTEGER_CONTROLSTATE[5])]== 2 ))||new_error){ +if(qbevent){evnt(6173);if(r)goto S_7413;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("ELSEIF invalid after ELSE",25)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6173);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6173);}while(r); +} +do{ +tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLSTATE[4],__ARRAY_INTEGER_CONTROLSTATE[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_CONTROLSTATE[0]))[tmp_long]= 1 ; +if(!qbevent)break;evnt(6174);}while(r); +do{ +tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLVALUE[4],__ARRAY_LONG_CONTROLVALUE[5]); +if (!new_error) ((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(6175);}while(r); +do{ +qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6176);}while(r); +S_7420:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len("THEN",4))))||new_error){ +if(qbevent){evnt(6177);if(r)goto S_7420;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected ELSEIF expression THEN",31)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6177);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6177);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass831=*__LONG_MAINTXTBUF),qbs_new_txt_len("}else{",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6178);}while(r); +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(FUNC_GETELEMENTS(__STRING_CA,&(pass832= 2 ),&(pass833=*__LONG_N- 1 )))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6179);}while(r); +S_7426:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(6180);if(r)goto S_7426;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6180);}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(6181);}while(r); +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(6182);}while(r); +S_7431:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(6182);if(r)goto S_7431;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6182);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6182);}while(r); +} +do{ +qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6183);}while(r); +S_7437:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(6184);if(r)goto S_7437;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6184);}while(r); +} +S_7440:; +if (((*__LONG_TYP&*__LONG_ISREFERENCE))||new_error){ +if(qbevent){evnt(6185);if(r)goto S_7440;} +do{ +qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass835= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6185);}while(r); +} +S_7443:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(6186);if(r)goto S_7443;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6186);}while(r); +} +S_7446:; +if ((*__LONG_TYP&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(6187);if(r)goto S_7446;} +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(6188);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6188);}while(r); +} +S_7450:; +if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||new_error){ +if(qbevent){evnt(6190);if(r)goto S_7450;} +do{ +SUB_WRITEBUFLINE(&(pass836=*__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(6191);}while(r); +}else{ +do{ +SUB_WRITEBUFLINE(&(pass837=*__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(6193);}while(r); +} +do{ +*__LONG_LHSCONTROLLEVEL=*__LONG_LHSCONTROLLEVEL- 1 ; +if(!qbevent)break;evnt(6195);}while(r); +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(6196);}while(r); +} +fornext_continue_829:; +} +fornext_exit_829:; +do{ +qbs_set(__STRING_A,qbs_new_txt_len("ELSEIF without IF",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6199);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6199);}while(r); +} +} +S_7463:; +if ((-(*__LONG_N>= 3 ))||new_error){ +if(qbevent){evnt(6203);if(r)goto S_7463;} +S_7464:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("IF",2))))||new_error){ +if(qbevent){evnt(6204);if(r)goto S_7464;} +S_7465:; +if ((-(*__LONG_NOCHECKS== 0 ))||new_error){ +if(qbevent){evnt(6205);if(r)goto S_7465;} +do{ +SUB_WRITEBUFLINE(&(pass838=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("S_",2),FUNC_STR2(__LONG_STATEMENTN)),qbs_new_txt_len(":;",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6206);}while(r); +do{ +*__LONG_DYNSCOPE= 1 ; +if(!qbevent)break;evnt(6206);}while(r); +S_7468:; +if (((-(*__LONG_VWATCHON== 1 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||new_error){ +if(qbevent){evnt(6207);if(r)goto S_7468;} +do{ +SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass839= 0 )); +if(!qbevent)break;evnt(6208);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass840=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= ",27),FUNC_STR2(__LONG_LINENUMBER)),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(6209);}while(r); +} +} +S_7473:; +if (((-(*__ULONG_SELECTCASECOUNTER> 0 ))&(-(((int32*)(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]))[array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_SELECTCASEHASCASEBLOCK[4],__ARRAY_LONG_SELECTCASEHASCASEBLOCK[5])]== 0 )))||new_error){ +if(qbevent){evnt(6214);if(r)goto S_7473;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected CASE expression",24)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6215);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6215);}while(r); +} +do{ +qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6218);}while(r); +do{ +*__LONG_IFTYPE= 0 ; +if(!qbevent)break;evnt(6219);}while(r); +S_7479:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("THEN",4))))||new_error){ +if(qbevent){evnt(6220);if(r)goto S_7479;} +do{ +*__LONG_IFTYPE= 1 ; +if(!qbevent)break;evnt(6220);}while(r); +} +S_7482:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("GOTO",4))))||new_error){ +if(qbevent){evnt(6221);if(r)goto S_7482;} +do{ +*__LONG_IFTYPE= 2 ; +if(!qbevent)break;evnt(6221);}while(r); +} +S_7485:; +if ((-(*__LONG_IFTYPE== 0 ))||new_error){ +if(qbevent){evnt(6222);if(r)goto S_7485;} +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(6222);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6222);}while(r); +} +do{ +*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL+ 1 ; +if(!qbevent)break;evnt(6224);}while(r); +do{ +tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLREF[4],__ARRAY_LONG_CONTROLREF[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_CONTROLREF[0]))[tmp_long]=*__LONG_LINENUMBER; +if(!qbevent)break;evnt(6225);}while(r); +do{ +tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[tmp_long]= 1 ; +if(!qbevent)break;evnt(6226);}while(r); +do{ +tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLVALUE[4],__ARRAY_LONG_CONTROLVALUE[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_CONTROLVALUE[0]))[tmp_long]= 0 ; +if(!qbevent)break;evnt(6227);}while(r); +do{ +tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLSTATE[4],__ARRAY_INTEGER_CONTROLSTATE[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_CONTROLSTATE[0]))[tmp_long]= 0 ; +if(!qbevent)break;evnt(6228);}while(r); +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(FUNC_GETELEMENTS(__STRING_CA,&(pass841= 2 ),&(pass842=*__LONG_N- 1 )))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6230);}while(r); +S_7495:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(6231);if(r)goto S_7495;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6231);}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(6232);}while(r); +do{ +qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6233);}while(r); +S_7500:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(6234);if(r)goto S_7500;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6234);}while(r); +} +S_7503:; +if (((*__LONG_TYP&*__LONG_ISREFERENCE))||new_error){ +if(qbevent){evnt(6235);if(r)goto S_7503;} +do{ +qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass843= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6235);}while(r); +} +S_7506:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(6236);if(r)goto S_7506;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6236);}while(r); +} +S_7509:; +if ((*__LONG_TYP&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(6238);if(r)goto S_7509;} +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(6239);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6239);}while(r); +} +S_7513:; +if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||new_error){ +if(qbevent){evnt(6242);if(r)goto S_7513;} +do{ +SUB_WRITEBUFLINE(&(pass844=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if ((",5),__STRING_CLEANUPSTRINGPROCESSINGCALL),__STRING_E),qbs_new_txt_len("))||new_error){",15))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6243);}while(r); +}else{ +do{ +SUB_WRITEBUFLINE(&(pass845=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if ((",5),__STRING_E),qbs_new_txt_len(")||new_error){",14))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6245);}while(r); +} +S_7518:; +if ((-(*__LONG_IFTYPE== 1 ))||new_error){ +if(qbevent){evnt(6248);if(r)goto S_7518;} +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(6248);}while(r); +} +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(6249);}while(r); +S_7522:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||new_error){ +if(qbevent){evnt(6249);if(r)goto S_7522;} +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6249);}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(6249);}while(r); +} +S_7527:; +if ((-(*__LONG_IFTYPE== 2 ))||new_error){ +if(qbevent){evnt(6251);if(r)goto S_7527;} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(6252);}while(r); +} +do{ +*__LONG_THENGOTO= 1 ; +if(!qbevent)break;evnt(6255);}while(r); +do{ +goto LABEL_FINISHEDLINE2; +if(!qbevent)break;evnt(6256);}while(r); +} +} +S_7534:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_N== 1 ))&(qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass847= 1 )),qbs_new_txt_len("ENDIF",5)))))||new_error){ +if(qbevent){evnt(6261);if(r)goto S_7534;} +S_7535:; +if ((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]!= 1 ))||new_error){ +if(qbevent){evnt(6262);if(r)goto S_7535;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("END IF without IF",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6262);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6262);}while(r); +} +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(6263);}while(r); +S_7540:; +if ((-(*__LONG_IMPLIEDENDIF== 0 ))||new_error){ +if(qbevent){evnt(6264);if(r)goto S_7540;} +do{ +qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("End If",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6265);}while(r); +S_7542:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||new_error){ +if(qbevent){evnt(6266);if(r)goto S_7542;} +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6266);}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(6266);}while(r); +} +} +do{ +SUB_WRITEBUFLINE(&(pass849=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6269);}while(r); +S_7549:; +fornext_value851= 1 ; +fornext_finalvalue851=((int32*)(__ARRAY_LONG_CONTROLVALUE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLVALUE[4],__ARRAY_LONG_CONTROLVALUE[5])]; +fornext_step851= 1 ; +if (fornext_step851<0) fornext_step_negative851=1; else fornext_step_negative851=0; +if (new_error) goto fornext_error851; +goto fornext_entrylabel851; +while(1){ +fornext_value851=fornext_step851+(*__LONG_I); +fornext_entrylabel851: +*__LONG_I=fornext_value851; +if (fornext_step_negative851){ +if (fornext_value851fornext_finalvalue851) break; +} +fornext_error851:; +if(qbevent){evnt(6270);if(r)goto S_7549;} +do{ +SUB_WRITEBUFLINE(&(pass852=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6271);}while(r); +fornext_continue_850:; +} +fornext_exit_850:; +do{ +*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ; +if(!qbevent)break;evnt(6273);}while(r); +do{ +goto LABEL_FINISHEDNONEXEC; +if(!qbevent)break;evnt(6274);}while(r); +} +S_7555:; +if ((-(*__LONG_N== 2 ))||new_error){ +if(qbevent){evnt(6279);if(r)goto S_7555;} +S_7556:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass853= 1 )),qbs_new_txt_len("END",3)))&(qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass854= 2 )),qbs_new_txt_len("IF",2)))))||new_error){ +if(qbevent){evnt(6280);if(r)goto S_7556;} +S_7557:; +if ((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]!= 1 ))||new_error){ +if(qbevent){evnt(6283);if(r)goto S_7557;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("END IF without IF",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6283);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6283);}while(r); +} +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(6284);}while(r); +S_7562:; +if ((-(*__LONG_IMPLIEDENDIF== 0 ))||new_error){ +if(qbevent){evnt(6285);if(r)goto S_7562;} +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(6286);}while(r); +S_7564:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||new_error){ +if(qbevent){evnt(6287);if(r)goto S_7564;} +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6287);}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(6287);}while(r); +} +} +S_7570:; +if (((-(*__LONG_NOCHECKS== 0 ))&(-(*__LONG_VWATCHON== 1 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||new_error){ +if(qbevent){evnt(6290);if(r)goto S_7570;} +do{ +SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass856= 0 )); +if(!qbevent)break;evnt(6291);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass857=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= ",27),FUNC_STR2(__LONG_LINENUMBER)),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(6292);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass858=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6295);}while(r); +S_7575:; +fornext_value860= 1 ; +fornext_finalvalue860=((int32*)(__ARRAY_LONG_CONTROLVALUE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLVALUE[4],__ARRAY_LONG_CONTROLVALUE[5])]; +fornext_step860= 1 ; +if (fornext_step860<0) fornext_step_negative860=1; else fornext_step_negative860=0; +if (new_error) goto fornext_error860; +goto fornext_entrylabel860; +while(1){ +fornext_value860=fornext_step860+(*__LONG_I); +fornext_entrylabel860: +*__LONG_I=fornext_value860; +if (fornext_step_negative860){ +if (fornext_value860fornext_finalvalue860) break; +} +fornext_error860:; +if(qbevent){evnt(6296);if(r)goto S_7575;} +do{ +SUB_WRITEBUFLINE(&(pass861=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6297);}while(r); +fornext_continue_859:; +} +fornext_exit_859:; +do{ +*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ; +if(!qbevent)break;evnt(6299);}while(r); +do{ +goto LABEL_FINISHEDNONEXEC; +if(!qbevent)break;evnt(6300);}while(r); +} +} +S_7582:; +if ((-(*__LONG_N>= 1 ))||new_error){ +if(qbevent){evnt(6307);if(r)goto S_7582;} +S_7583:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("SELECT",6))))||new_error){ +if(qbevent){evnt(6308);if(r)goto S_7583;} +S_7584:; +if ((-(*__LONG_NOCHECKS== 0 ))||new_error){ +if(qbevent){evnt(6309);if(r)goto S_7584;} +do{ +SUB_WRITEBUFLINE(&(pass862=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("S_",2),FUNC_STR2(__LONG_STATEMENTN)),qbs_new_txt_len(":;",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6310);}while(r); +do{ +*__LONG_DYNSCOPE= 1 ; +if(!qbevent)break;evnt(6310);}while(r); +S_7587:; +if (((-(*__LONG_VWATCHON== 1 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||new_error){ +if(qbevent){evnt(6311);if(r)goto S_7587;} +do{ +SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass863= 0 )); +if(!qbevent)break;evnt(6312);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass864=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= ",27),FUNC_STR2(__LONG_LINENUMBER)),qbs_new_txt_len("; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars); if (*__LONG_VWATCH_GOTO>0) goto VWATCH_SETNEXTLINE; if (*__LONG_VWATCH_GOTO<0) goto VWATCH_SKIPLINE;",174))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6313);}while(r); +} +} +S_7592:; +if (((-(*__ULONG_SELECTCASECOUNTER> 0 ))&(-(((int32*)(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]))[array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_SELECTCASEHASCASEBLOCK[4],__ARRAY_LONG_SELECTCASEHASCASEBLOCK[5])]== 0 )))||new_error){ +if(qbevent){evnt(6318);if(r)goto S_7592;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected CASE expression",24)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6319);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6319);}while(r); +} +do{ +*__ULONG_SELECTCASECOUNTER=*__ULONG_SELECTCASECOUNTER+ 1 ; +if(!qbevent)break;evnt(6322);}while(r); +S_7597:; +if ((-(func_ubound(__ARRAY_LONG_EVERYCASESET,1,1)<=*__ULONG_SELECTCASECOUNTER))||new_error){ +if(qbevent){evnt(6323);if(r)goto S_7597;} +do{ if (__ARRAY_LONG_EVERYCASESET[2]&2){ error(10); @@ -26733,13 +26733,13 @@ if (!__ARRAY_LONG_EVERYCASESET[0]) error(257); } } __ARRAY_LONG_EVERYCASESET[2]|=1; -} -if(!qbevent)break;evnt(6323);}while(r); -} -S_7600:; -if ((-(func_ubound(__ARRAY_LONG_SELECTCASEHASCASEBLOCK,1,1)<=*__ULONG_SELECTCASECOUNTER))||new_error){ -if(qbevent){evnt(6324);if(r)goto S_7600;} -do{ +} +if(!qbevent)break;evnt(6323);}while(r); +} +S_7600:; +if ((-(func_ubound(__ARRAY_LONG_SELECTCASEHASCASEBLOCK,1,1)<=*__ULONG_SELECTCASECOUNTER))||new_error){ +if(qbevent){evnt(6324);if(r)goto S_7600;} +do{ if (__ARRAY_LONG_SELECTCASEHASCASEBLOCK[2]&2){ error(10); @@ -26777,3282 +26777,3282 @@ if (!__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]) error(257); } } __ARRAY_LONG_SELECTCASEHASCASEBLOCK[2]|=1; -} -if(!qbevent)break;evnt(6324);}while(r); -} -do{ -tmp_long=array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_SELECTCASEHASCASEBLOCK[4],__ARRAY_LONG_SELECTCASEHASCASEBLOCK[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(6325);}while(r); -S_7604:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("EVERYCASE",9))))||new_error){ -if(qbevent){evnt(6326);if(r)goto S_7604;} -do{ -tmp_long=array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_EVERYCASESET[4],__ARRAY_LONG_EVERYCASESET[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_EVERYCASESET[0]))[tmp_long]= -1 ; -if(!qbevent)break;evnt(6327);}while(r); -S_7606:; -if ((-(*__LONG_N== 2 ))||new_error){ -if(qbevent){evnt(6328);if(r)goto S_7606;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected SELECT CASE expression",31)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6328);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6328);}while(r); -} -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(FUNC_GETELEMENTS(__STRING_CA,&(pass865= 3 ),__LONG_N))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6329);}while(r); -S_7611:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(6330);if(r)goto S_7611;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6330);}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(6331);}while(r); -}else{ -do{ -tmp_long=array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_EVERYCASESET[4],__ARRAY_LONG_EVERYCASESET[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_EVERYCASESET[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(6333);}while(r); -S_7617:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_N== 1 ))|(qbs_notequal(__STRING_SECONDELEMENT,qbs_new_txt_len("CASE",4)))))||new_error){ -if(qbevent){evnt(6334);if(r)goto S_7617;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected CASE or EVERYCASE",26)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6334);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6334);}while(r); -} -S_7621:; -if ((-(*__LONG_N== 2 ))||new_error){ -if(qbevent){evnt(6335);if(r)goto S_7621;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected SELECT CASE expression",31)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6335);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6335);}while(r); -} -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(FUNC_GETELEMENTS(__STRING_CA,&(pass866= 3 ),__LONG_N))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6336);}while(r); -S_7626:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(6337);if(r)goto S_7626;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6337);}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(6338);}while(r); -} -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(6341);}while(r); -S_7632:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(6341);if(r)goto S_7632;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6341);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6341);}while(r); -} -do{ -qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6342);}while(r); -S_7638:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(6343);if(r)goto S_7638;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6343);}while(r); -} -do{ -*__LONG_U=FUNC_UNIQUENUMBER(); -if(!qbevent)break;evnt(6344);}while(r); -do{ -*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL+ 1 ; -if(!qbevent)break;evnt(6346);}while(r); -do{ -tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLVALUE[4],__ARRAY_LONG_CONTROLVALUE[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_CONTROLVALUE[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(6347);}while(r); -do{ -qbs_set(__STRING_T,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6349);}while(r); -S_7645:; -if (((*__LONG_TYP&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(6350);if(r)goto S_7645;} -do{ -*__LONG_T= 0 ; -if(!qbevent)break;evnt(6351);}while(r); -S_7647:; -if (((-((*__LONG_TYP&*__LONG_ISUDT)== 0 ))&(-((*__LONG_TYP&*__LONG_ISARRAY)== 0 ))&(-((*__LONG_TYP&*__LONG_ISREFERENCE)!= 0 )))||new_error){ -if(qbevent){evnt(6352);if(r)goto S_7647;} -do{ -tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLVALUE[4],__ARRAY_LONG_CONTROLVALUE[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_CONTROLVALUE[0]))[tmp_long]=qbr(func_val(__STRING_E)); -if(!qbevent)break;evnt(6353);}while(r); -}else{ -S_7650:; -if (((*__LONG_TYP&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(6355);if(r)goto S_7650;} -do{ -qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass868= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6355);}while(r); -} -S_7653:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(6356);if(r)goto S_7653;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6356);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass869=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("static qbs *sc_",15),FUNC_STR2(__LONG_U)),qbs_new_txt_len("=qbs_new(0,0);",14))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6357);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass870=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_set(sc_",11),FUNC_STR2(__LONG_U)),qbs_new_txt_len(",",1)),__STRING_E),qbs_new_txt_len(");",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6358);}while(r); -S_7658:; -if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||new_error){ -if(qbevent){evnt(6359);if(r)goto S_7658;} -do{ -SUB_WRITEBUFLINE(&(pass871=*__LONG_MAINTXTBUF),qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6359);}while(r); -} -} -}else{ -S_7663:; -if (((*__LONG_TYP&*__LONG_ISFLOAT))||new_error){ -if(qbevent){evnt(6364);if(r)goto S_7663;} -S_7664:; -if ((-((*__LONG_TYP& 511 )> 64 ))||new_error){ -if(qbevent){evnt(6366);if(r)goto S_7664;} -do{ -*__LONG_T= 3 ; -if(!qbevent)break;evnt(6366);}while(r); -do{ -qbs_set(__STRING_T,qbs_new_txt_len("long double",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6366);}while(r); -} -S_7668:; -if ((-((*__LONG_TYP& 511 )== 32 ))||new_error){ -if(qbevent){evnt(6367);if(r)goto S_7668;} -do{ -*__LONG_T= 4 ; -if(!qbevent)break;evnt(6367);}while(r); -do{ -qbs_set(__STRING_T,qbs_new_txt_len("float",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6367);}while(r); -} -S_7672:; -if ((-((*__LONG_TYP& 511 )== 64 ))||new_error){ -if(qbevent){evnt(6368);if(r)goto S_7672;} -do{ -*__LONG_T= 5 ; -if(!qbevent)break;evnt(6368);}while(r); -do{ -qbs_set(__STRING_T,qbs_new_txt_len("double",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6368);}while(r); -} -S_7676:; -if (((-((*__LONG_TYP&*__LONG_ISUDT)== 0 ))&(-((*__LONG_TYP&*__LONG_ISARRAY)== 0 ))&(-((*__LONG_TYP&*__LONG_ISREFERENCE)!= 0 )))||new_error){ -if(qbevent){evnt(6369);if(r)goto S_7676;} -do{ -tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLVALUE[4],__ARRAY_LONG_CONTROLVALUE[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_CONTROLVALUE[0]))[tmp_long]=qbr(func_val(__STRING_E)); -if(!qbevent)break;evnt(6370);}while(r); -}else{ -S_7679:; -if (((*__LONG_TYP&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(6372);if(r)goto S_7679;} -do{ -qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass872= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6372);}while(r); -} -S_7682:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(6373);if(r)goto S_7682;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6373);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass873=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("static ",7),__STRING_T),qbs_new_txt_len(" sc_",4)),FUNC_STR2(__LONG_U)),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6375);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass874=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("sc_",3),FUNC_STR2(__LONG_U)),qbs_new_txt_len("=",1)),__STRING_E),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6376);}while(r); -S_7687:; -if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||new_error){ -if(qbevent){evnt(6377);if(r)goto S_7687;} -do{ -SUB_WRITEBUFLINE(&(pass875=*__LONG_MAINTXTBUF),qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6377);}while(r); -} -} -}else{ -do{ -*__LONG_T= 1 ; -if(!qbevent)break;evnt(6383);}while(r); -do{ -qbs_set(__STRING_T,qbs_new_txt_len("int64",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6383);}while(r); -S_7694:; -if (((*__LONG_TYP&*__LONG_ISUNSIGNED))||new_error){ -if(qbevent){evnt(6384);if(r)goto S_7694;} -S_7695:; -if ((-((*__LONG_TYP& 511 )<= 32 ))||new_error){ -if(qbevent){evnt(6385);if(r)goto S_7695;} -do{ -*__LONG_T= 7 ; -if(!qbevent)break;evnt(6385);}while(r); -do{ -qbs_set(__STRING_T,qbs_new_txt_len("uint32",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6385);}while(r); -} -S_7699:; -if ((-((*__LONG_TYP& 511 )> 32 ))||new_error){ -if(qbevent){evnt(6386);if(r)goto S_7699;} -do{ -*__LONG_T= 2 ; -if(!qbevent)break;evnt(6386);}while(r); -do{ -qbs_set(__STRING_T,qbs_new_txt_len("uint64",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6386);}while(r); -} -}else{ -S_7704:; -if ((-((*__LONG_TYP& 511 )<= 32 ))||new_error){ -if(qbevent){evnt(6388);if(r)goto S_7704;} -do{ -*__LONG_T= 6 ; -if(!qbevent)break;evnt(6388);}while(r); -do{ -qbs_set(__STRING_T,qbs_new_txt_len("int32",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6388);}while(r); -} -S_7708:; -if ((-((*__LONG_TYP& 511 )> 32 ))||new_error){ -if(qbevent){evnt(6389);if(r)goto S_7708;} -do{ -*__LONG_T= 1 ; -if(!qbevent)break;evnt(6389);}while(r); -do{ -qbs_set(__STRING_T,qbs_new_txt_len("int64",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6389);}while(r); -} -} -S_7713:; -if (((-((*__LONG_TYP&*__LONG_ISUDT)== 0 ))&(-((*__LONG_TYP&*__LONG_ISARRAY)== 0 ))&(-((*__LONG_TYP&*__LONG_ISREFERENCE)!= 0 )))||new_error){ -if(qbevent){evnt(6391);if(r)goto S_7713;} -do{ -tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLVALUE[4],__ARRAY_LONG_CONTROLVALUE[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_CONTROLVALUE[0]))[tmp_long]=qbr(func_val(__STRING_E)); -if(!qbevent)break;evnt(6392);}while(r); -}else{ -S_7716:; -if (((*__LONG_TYP&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(6394);if(r)goto S_7716;} -do{ -qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass876= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6394);}while(r); -} -S_7719:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(6395);if(r)goto S_7719;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6395);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass877=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("static ",7),__STRING_T),qbs_new_txt_len(" sc_",4)),FUNC_STR2(__LONG_U)),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6396);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass878=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("sc_",3),FUNC_STR2(__LONG_U)),qbs_new_txt_len("=",1)),__STRING_E),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6397);}while(r); -S_7724:; -if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||new_error){ -if(qbevent){evnt(6398);if(r)goto S_7724;} -do{ -SUB_WRITEBUFLINE(&(pass879=*__LONG_MAINTXTBUF),qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6398);}while(r); -} -} -} -} -do{ -tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLREF[4],__ARRAY_LONG_CONTROLREF[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_CONTROLREF[0]))[tmp_long]=*__LONG_LINENUMBER; -if(!qbevent)break;evnt(6406);}while(r); -do{ -tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[tmp_long]= 10 +*__LONG_T; -if(!qbevent)break;evnt(6407);}while(r); -do{ -tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_CONTROLID[0]))[tmp_long]=*__LONG_U; -if(!qbevent)break;evnt(6408);}while(r); -S_7733:; -if ((((int32*)(__ARRAY_LONG_EVERYCASESET[0]))[array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_EVERYCASESET[4],__ARRAY_LONG_EVERYCASESET[5])])||new_error){ -if(qbevent){evnt(6409);if(r)goto S_7733;} -do{ -SUB_WRITEBUFLINE(&(pass880=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("int32 sc_",9),FUNC_STR2((&(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])])))),qbs_new_txt_len("_var;",5))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6409);}while(r); -} -S_7736:; -if ((((int32*)(__ARRAY_LONG_EVERYCASESET[0]))[array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_EVERYCASESET[4],__ARRAY_LONG_EVERYCASESET[5])])||new_error){ -if(qbevent){evnt(6410);if(r)goto S_7736;} -do{ -SUB_WRITEBUFLINE(&(pass881=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sc_",3),FUNC_STR2((&(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])])))),qbs_new_txt_len("_var=0;",7))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6410);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(6411);}while(r); -} -} -S_7742:; -if ((-(*__LONG_N== 2 ))||new_error){ -if(qbevent){evnt(6417);if(r)goto S_7742;} -S_7743:; -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)))))||new_error){ -if(qbevent){evnt(6418);if(r)goto S_7743;} -S_7744:; -if ((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]== 18 ))||new_error){ -if(qbevent){evnt(6422);if(r)goto S_7744;} -do{ -*__LONG_EVERYCASENEWCASE=*__LONG_EVERYCASENEWCASE+ 1 ; -if(!qbevent)break;evnt(6423);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass882=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sc_ec_",6),FUNC_STR2(__LONG_EVERYCASENEWCASE)),qbs_new_txt_len("_end:;",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6424);}while(r); -do{ -*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ; -if(!qbevent)break;evnt(6425);}while(r); -S_7748:; -if ((-(((int32*)(__ARRAY_LONG_EVERYCASESET[0]))[array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_EVERYCASESET[4],__ARRAY_LONG_EVERYCASESET[5])]== 0 ))||new_error){ -if(qbevent){evnt(6426);if(r)goto S_7748;} -do{ -SUB_WRITEBUFLINE(&(pass883=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("goto sc_",8),FUNC_STR2((&(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])])))),qbs_new_txt_len("_end;",5))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6426);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass884=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6427);}while(r); -} -S_7753:; -if ((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]== 19 ))||new_error){ -if(qbevent){evnt(6429);if(r)goto S_7753;} -do{ -*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ; -if(!qbevent)break;evnt(6430);}while(r); -S_7755:; -if ((((int32*)(__ARRAY_LONG_EVERYCASESET[0]))[array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_EVERYCASESET[4],__ARRAY_LONG_EVERYCASESET[5])])||new_error){ -if(qbevent){evnt(6431);if(r)goto S_7755;} -do{ -SUB_WRITEBUFLINE(&(pass885=*__LONG_MAINTXTBUF),qbs_new_txt_len("} /* End of SELECT EVERYCASE ELSE */",36)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6431);}while(r); -} -} -do{ -SUB_WRITEBUFLINE(&(pass886=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sc_",3),FUNC_STR2((&(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])])))),qbs_new_txt_len("_end:;",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6434);}while(r); -S_7760:; -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 )))||new_error){ -if(qbevent){evnt(6435);if(r)goto S_7760;} -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(6435);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6435);}while(r); -} -S_7764:; -if (((-(*__LONG_NOCHECKS== 0 ))&(-(*__LONG_VWATCHON== 1 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||new_error){ -if(qbevent){evnt(6437);if(r)goto S_7764;} -do{ -SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass887= 0 )); -if(!qbevent)break;evnt(6438);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass888=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= ",27),FUNC_STR2(__LONG_LINENUMBER)),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(6439);}while(r); -} -S_7768:; -if (((-(*__ULONG_SELECTCASECOUNTER> 0 ))&(-(((int32*)(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]))[array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_SELECTCASEHASCASEBLOCK[4],__ARRAY_LONG_SELECTCASEHASCASEBLOCK[5])]== 0 )))||new_error){ -if(qbevent){evnt(6442);if(r)goto S_7768;} -S_7769:; -if ((~(*__BYTE_IGNOREWARNINGS))||new_error){ -if(qbevent){evnt(6444);if(r)goto S_7769;} -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(6445);}while(r); -} -} -do{ -*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ; -if(!qbevent)break;evnt(6449);}while(r); -do{ -*__ULONG_SELECTCASECOUNTER=*__ULONG_SELECTCASECOUNTER- 1 ; -if(!qbevent)break;evnt(6450);}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(6451);}while(r); -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(6452);}while(r); -S_7777:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(6452);if(r)goto S_7777;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6452);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6452);}while(r); -} -do{ -goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(6453);}while(r); -} -} -S_7785:; -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 ))))||new_error){ -if(qbevent){evnt(6458);if(r)goto S_7785;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected CASE expression",24)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6459);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6459);}while(r); -} -S_7789:; -if ((-(*__LONG_N>= 1 ))||new_error){ -if(qbevent){evnt(6464);if(r)goto S_7789;} -S_7790:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("CASE",4))))||new_error){ -if(qbevent){evnt(6465);if(r)goto S_7790;} -do{ -qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Case",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6467);}while(r); -S_7792:; -if ((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]== 19 ))||new_error){ -if(qbevent){evnt(6471);if(r)goto S_7792;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected END SELECT",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6471);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6471);}while(r); -} -S_7796:; -if ((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]== 18 ))||new_error){ -if(qbevent){evnt(6472);if(r)goto S_7796;} -do{ -*__LONG_LHSCONTROLLEVEL=*__LONG_LHSCONTROLLEVEL- 1 ; -if(!qbevent)break;evnt(6473);}while(r); -do{ -*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ; -if(!qbevent)break;evnt(6474);}while(r); -do{ -*__LONG_EVERYCASENEWCASE=*__LONG_EVERYCASENEWCASE+ 1 ; -if(!qbevent)break;evnt(6475);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass890=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sc_ec_",6),FUNC_STR2(__LONG_EVERYCASENEWCASE)),qbs_new_txt_len("_end:;",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6476);}while(r); -S_7801:; -if ((-(((int32*)(__ARRAY_LONG_EVERYCASESET[0]))[array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_EVERYCASESET[4],__ARRAY_LONG_EVERYCASESET[5])]== 0 ))||new_error){ -if(qbevent){evnt(6477);if(r)goto S_7801;} -do{ -SUB_WRITEBUFLINE(&(pass891=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("goto sc_",8),FUNC_STR2((&(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])])))),qbs_new_txt_len("_end;",5))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6478);}while(r); -}else{ -do{ -SUB_WRITEBUFLINE(&(pass892=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sc_",3),FUNC_STR2((&(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])])))),qbs_new_txt_len("_var=-1;",8))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6480);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass893=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6482);}while(r); -} -S_7808:; -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 )))))||new_error){ -if(qbevent){evnt(6488);if(r)goto S_7808;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("CASE without SELECT CASE",24)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6488);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6488);}while(r); -} -S_7812:; -if ((-(*__LONG_N== 1 ))||new_error){ -if(qbevent){evnt(6489);if(r)goto S_7812;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected CASE expression",24)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6489);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6489);}while(r); -} -do{ -tmp_long=array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_SELECTCASEHASCASEBLOCK[4],__ARRAY_LONG_SELECTCASEHASCASEBLOCK[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]))[tmp_long]= -1 ; -if(!qbevent)break;evnt(6490);}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(6523);}while(r); -do{ -*__LONG_FLT= 0 ; -if(!qbevent)break;evnt(6525);}while(r); -S_7819:; -if ((-(*__LONG_T== 0 ))||new_error){ -if(qbevent){evnt(6526);if(r)goto S_7819;} -do{ -qbs_set(__STRING_TC,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6526);}while(r); -} -S_7822:; -if ((-(*__LONG_T== 1 ))||new_error){ -if(qbevent){evnt(6527);if(r)goto S_7822;} -do{ -qbs_set(__STRING_TC,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6527);}while(r); -} -S_7825:; -if ((-(*__LONG_T== 2 ))||new_error){ -if(qbevent){evnt(6528);if(r)goto S_7825;} -do{ -qbs_set(__STRING_TC,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6528);}while(r); -} -S_7828:; -if ((-(*__LONG_T== 3 ))||new_error){ -if(qbevent){evnt(6529);if(r)goto S_7828;} -do{ -qbs_set(__STRING_TC,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6529);}while(r); -do{ -*__LONG_FLT= 1 ; -if(!qbevent)break;evnt(6529);}while(r); -} -S_7832:; -if ((-(*__LONG_T== 4 ))||new_error){ -if(qbevent){evnt(6530);if(r)goto S_7832;} -do{ -qbs_set(__STRING_TC,qbs_new_txt_len("(float)",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6530);}while(r); -do{ -*__LONG_FLT= 1 ; -if(!qbevent)break;evnt(6530);}while(r); -} -S_7836:; -if ((-(*__LONG_T== 5 ))||new_error){ -if(qbevent){evnt(6531);if(r)goto S_7836;} -do{ -qbs_set(__STRING_TC,qbs_new_txt_len("(double)",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6531);}while(r); -do{ -*__LONG_FLT= 1 ; -if(!qbevent)break;evnt(6531);}while(r); -} -S_7840:; -if ((-(*__LONG_T== 6 ))||new_error){ -if(qbevent){evnt(6532);if(r)goto S_7840;} -do{ -qbs_set(__STRING_TC,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6532);}while(r); -} -S_7843:; -if ((-(*__LONG_T== 7 ))||new_error){ -if(qbevent){evnt(6533);if(r)goto S_7843;} -do{ -qbs_set(__STRING_TC,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6533);}while(r); -} -do{ -qbs_set(__STRING_N,qbs_add(qbs_new_txt_len("sc_",3),FUNC_STR2((&(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])]))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6535);}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(6536);}while(r); -S_7848:; -if ((*__LONG_CV)||new_error){ -if(qbevent){evnt(6537);if(r)goto S_7848;} -do{ -qbs_set(__STRING_N,FUNC_REFER(FUNC_STR2(__LONG_CV),&(pass894= 0 ),&(pass895= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6538);}while(r); -S_7850:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(6539);if(r)goto S_7850;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6539);}while(r); -} -} -S_7854:; -if ((-(*__LONG_N== 2 ))||new_error){ -if(qbevent){evnt(6543);if(r)goto S_7854;} -S_7855:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass896= 2 )),qbs_new_txt_len("C-EL",4))))||new_error){ -if(qbevent){evnt(6544);if(r)goto S_7855;} -S_7856:; -if ((((int32*)(__ARRAY_LONG_EVERYCASESET[0]))[array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_EVERYCASESET[4],__ARRAY_LONG_EVERYCASESET[5])])||new_error){ -if(qbevent){evnt(6545);if(r)goto S_7856;} -do{ -SUB_WRITEBUFLINE(&(pass897=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if (sc_",7),FUNC_STR2((&(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])])))),qbs_new_txt_len("_var==0) {",10))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6545);}while(r); -} -do{ -*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL+ 1 ; -if(!qbevent)break;evnt(6546);}while(r); -do{ -tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[tmp_long]= 19 ; -if(!qbevent)break;evnt(6546);}while(r); -do{ -tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLREF[4],__ARRAY_LONG_CONTROLREF[5]); -if (!new_error) ((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(6547);}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(6548);}while(r); -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(6549);}while(r); -S_7864:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(6549);if(r)goto S_7864;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6549);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6549);}while(r); -} -do{ -goto LABEL_FINISHEDNONEXEC; -if(!qbevent)break;evnt(6550);}while(r); -} -} -S_7872:; -if ((-(*__LONG_NOCHECKS== 0 ))||new_error){ -if(qbevent){evnt(6554);if(r)goto S_7872;} -do{ -SUB_WRITEBUFLINE(&(pass899=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("S_",2),FUNC_STR2(__LONG_STATEMENTN)),qbs_new_txt_len(":;",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6555);}while(r); -do{ -*__LONG_DYNSCOPE= 1 ; -if(!qbevent)break;evnt(6555);}while(r); -S_7875:; -if (((-(*__LONG_VWATCHON== 1 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||new_error){ -if(qbevent){evnt(6556);if(r)goto S_7875;} -do{ -SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass900= 0 )); -if(!qbevent)break;evnt(6557);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass901=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= ",27),FUNC_STR2(__LONG_LINENUMBER)),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(6558);}while(r); -} -} -do{ -qbs_set(__STRING_F12,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6564);}while(r); -do{ -*__LONG_NEXP= 0 ; -if(!qbevent)break;evnt(6566);}while(r); -do{ -*__LONG_B= 0 ; -if(!qbevent)break;evnt(6567);}while(r); -do{ -qbs_set(__STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6568);}while(r); -S_7884:; -fornext_value903= 2 ; -fornext_finalvalue903=*__LONG_N; -fornext_step903= 1 ; -if (fornext_step903<0) fornext_step_negative903=1; else fornext_step_negative903=0; -if (new_error) goto fornext_error903; -goto fornext_entrylabel903; -while(1){ -fornext_value903=fornext_step903+(*__LONG_I); -fornext_entrylabel903: -*__LONG_I=fornext_value903; -if (fornext_step_negative903){ -if (fornext_value903fornext_finalvalue903) break; -} -fornext_error903:; -if(qbevent){evnt(6569);if(r)goto S_7884;} -do{ -qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6570);}while(r); -S_7886:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(6571);if(r)goto S_7886;} -do{ -*__LONG_B=*__LONG_B+ 1 ; -if(!qbevent)break;evnt(6571);}while(r); -} -S_7889:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(6572);if(r)goto S_7889;} -do{ -*__LONG_B=*__LONG_B- 1 ; -if(!qbevent)break;evnt(6572);}while(r); -} -S_7892:; -if ((-(*__LONG_I==*__LONG_N))||new_error){ -if(qbevent){evnt(6573);if(r)goto S_7892;} -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(6573);}while(r); -} -S_7895:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_I==*__LONG_N))|(((qbs_equal(__STRING_E2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))))||new_error){ -if(qbevent){evnt(6574);if(r)goto S_7895;} -S_7896:; -if ((-(*__LONG_NEXP!= 0 ))||new_error){ -if(qbevent){evnt(6575);if(r)goto S_7896;} -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(6575);}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(6575);}while(r); -} -S_7900:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(6576);if(r)goto S_7900;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected expression",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6576);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6576);}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(6577);}while(r); -do{ -*__LONG_N2=FUNC_NUMELEMENTS(__STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6582);}while(r); -do{ -*__LONG_B2= 0 ; -if(!qbevent)break;evnt(6583);}while(r); -do{ -qbs_set(__STRING_EL,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6584);}while(r); -do{ -qbs_set(__STRING_ER,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6584);}while(r); -do{ -*__LONG_USEDTO= 0 ; -if(!qbevent)break;evnt(6585);}while(r); -S_7910:; -fornext_value906= 1 ; -fornext_finalvalue906=*__LONG_N2; -fornext_step906= 1 ; -if (fornext_step906<0) fornext_step_negative906=1; else fornext_step_negative906=0; -if (new_error) goto fornext_error906; -goto fornext_entrylabel906; -while(1){ -fornext_value906=fornext_step906+(*__LONG_I2); -fornext_entrylabel906: -*__LONG_I2=fornext_value906; -if (fornext_step_negative906){ -if (fornext_value906fornext_finalvalue906) break; -} -fornext_error906:; -if(qbevent){evnt(6586);if(r)goto S_7910;} -do{ -qbs_set(__STRING_E3,FUNC_GETELEMENT(__STRING_E,__LONG_I2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6587);}while(r); -S_7912:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E3,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(6588);if(r)goto S_7912;} -do{ -*__LONG_B2=*__LONG_B2+ 1 ; -if(!qbevent)break;evnt(6588);}while(r); -} -S_7915:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E3,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(6589);if(r)goto S_7915;} -do{ -*__LONG_B2=*__LONG_B2- 1 ; -if(!qbevent)break;evnt(6589);}while(r); -} -S_7918:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_B2== 0 ))&(qbs_equal(qbs_ucase(__STRING_E3),qbs_new_txt_len("TO",2)))))||new_error){ -if(qbevent){evnt(6590);if(r)goto S_7918;} -do{ -*__LONG_USEDTO= 1 ; -if(!qbevent)break;evnt(6591);}while(r); -}else{ -S_7921:; -if ((-(*__LONG_USEDTO== 0 ))||new_error){ -if(qbevent){evnt(6593);if(r)goto S_7921;} -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(6593);}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(6593);}while(r); -} -} -fornext_continue_905:; -} -fornext_exit_905:; -S_7928:; -if ((-(*__LONG_USEDTO== 1 ))||new_error){ -if(qbevent){evnt(6596);if(r)goto S_7928;} -S_7929:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_EL,qbs_new_txt_len("",0)))|(qbs_equal(__STRING_ER,qbs_new_txt_len("",0)))))||new_error){ -if(qbevent){evnt(6597);if(r)goto S_7929;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected expression TO expression",33)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6597);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6597);}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(6598);}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(6598);}while(r); -S_7935:; -fornext_value910= 1 ; -fornext_finalvalue910= 2 ; -fornext_step910= 1 ; -if (fornext_step910<0) fornext_step_negative910=1; else fornext_step_negative910=0; -if (new_error) goto fornext_error910; -goto fornext_entrylabel910; -while(1){ -fornext_value910=fornext_step910+(*__LONG_I2); -fornext_entrylabel910: -*__LONG_I2=fornext_value910; -if (fornext_step_negative910){ -if (fornext_value910fornext_finalvalue910) break; -} -fornext_error910:; -if(qbevent){evnt(6600);if(r)goto S_7935;} -S_7936:; -if ((-(*__LONG_I2== 1 ))||new_error){ -if(qbevent){evnt(6601);if(r)goto S_7936;} -do{ -qbs_set(__STRING_E,__STRING_EL); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6601);}while(r); -}else{ -do{ -qbs_set(__STRING_E,__STRING_ER); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6601);}while(r); -} -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6602);}while(r); -S_7942:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(6603);if(r)goto S_7942;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6603);}while(r); -} -S_7945:; -if ((-(*__LONG_I2== 1 ))||new_error){ -if(qbevent){evnt(6604);if(r)goto S_7945;} -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(6604);}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(6604);}while(r); -} -do{ -qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6605);}while(r); -S_7951:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(6606);if(r)goto S_7951;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6606);}while(r); -} -S_7954:; -if (((*__LONG_TYP&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(6607);if(r)goto S_7954;} -do{ -qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass911= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6607);}while(r); -} -S_7957:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(6608);if(r)goto S_7957;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6608);}while(r); -} -S_7960:; -if ((-(*__LONG_T== 0 ))||new_error){ -if(qbevent){evnt(6609);if(r)goto S_7960;} -S_7961:; -if ((-((*__LONG_TYP&*__LONG_ISSTRING)== 0 ))||new_error){ -if(qbevent){evnt(6610);if(r)goto S_7961;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected string expression",26)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6610);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6610);}while(r); -} -S_7965:; -if ((-(*__LONG_I2== 1 ))||new_error){ -if(qbevent){evnt(6611);if(r)goto S_7965;} -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(6611);}while(r); -} -S_7968:; -if ((-(*__LONG_I2== 2 ))||new_error){ -if(qbevent){evnt(6612);if(r)goto S_7968;} -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(6612);}while(r); -} -}else{ -S_7972:; -if (((*__LONG_TYP&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(6614);if(r)goto S_7972;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected numeric expression",27)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6614);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6614);}while(r); -} -S_7976:; -if (((*__LONG_TYP&*__LONG_ISFLOAT))||new_error){ -if(qbevent){evnt(6616);if(r)goto S_7976;} -S_7977:; -if ((-(*__LONG_T== 1 ))||new_error){ -if(qbevent){evnt(6617);if(r)goto S_7977;} -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(6617);}while(r); -} -S_7980:; -if ((-(*__LONG_T== 2 ))||new_error){ -if(qbevent){evnt(6618);if(r)goto S_7980;} -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(6618);}while(r); -} -S_7983:; -if (((-(*__LONG_T== 6 ))|(-(*__LONG_T== 7 )))||new_error){ -if(qbevent){evnt(6619);if(r)goto S_7983;} -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(6619);}while(r); -} -} -S_7987:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_TC->len))||new_error){ -if(qbevent){evnt(6622);if(r)goto S_7987;} -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(6622);}while(r); -} -S_7990:; -if ((-(*__LONG_I2== 1 ))||new_error){ -if(qbevent){evnt(6623);if(r)goto S_7990;} -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(6623);}while(r); -} -S_7993:; -if ((-(*__LONG_I2== 2 ))||new_error){ -if(qbevent){evnt(6624);if(r)goto S_7993;} -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(6624);}while(r); -} -} -fornext_continue_909:; -} -fornext_exit_909:; -do{ -goto LABEL_ADDEDEXP; -if(!qbevent)break;evnt(6627);}while(r); -} -do{ -qbs_set(__STRING_O,qbs_new_txt_len("==",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6649);}while(r); -do{ -qbs_set(__STRING_X,FUNC_GETELEMENT(__STRING_E,&(pass913= 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6652);}while(r); -S_8002:; -if ((qbs_cleanup(qbs_tmp_base,FUNC_ISOPERATOR(__STRING_X)))||new_error){ -if(qbevent){evnt(6653);if(r)goto S_8002;} -S_8003:; -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)))))||new_error){ -if(qbevent){evnt(6654);if(r)goto S_8003;} -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(6655);}while(r); -do{ -qbs_set(__STRING_X,qbs_new_txt_len("IS",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6656);}while(r); -} -} -S_8008:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_X),qbs_new_txt_len("IS",2))))||new_error){ -if(qbevent){evnt(6659);if(r)goto S_8008;} -do{ -*__LONG_N2=FUNC_NUMELEMENTS(__STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6660);}while(r); -S_8010:; -if ((-(*__LONG_N2< 3 ))||new_error){ -if(qbevent){evnt(6661);if(r)goto S_8010;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected IS =,<>,>,<,>=,<= expression",37)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6661);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6661);}while(r); -} -do{ -qbs_set(__STRING_O,FUNC_GETELEMENT(__STRING_E,&(pass914= 2 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6662);}while(r); -do{ -qbs_set(__STRING_O2,__STRING_O); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6663);}while(r); -do{ -*__LONG_O= 0 ; -if(!qbevent)break;evnt(6664);}while(r); -S_8017:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len("=",1))))||new_error){ -if(qbevent){evnt(6665);if(r)goto S_8017;} -do{ -qbs_set(__STRING_O,qbs_new_txt_len("==",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6665);}while(r); -do{ -*__LONG_O= 1 ; -if(!qbevent)break;evnt(6665);}while(r); -} -S_8021:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len("<>",2))))||new_error){ -if(qbevent){evnt(6666);if(r)goto S_8021;} -do{ -qbs_set(__STRING_O,qbs_new_txt_len("!=",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6666);}while(r); -do{ -*__LONG_O= 1 ; -if(!qbevent)break;evnt(6666);}while(r); -} -S_8025:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len(">",1))))||new_error){ -if(qbevent){evnt(6667);if(r)goto S_8025;} -do{ -*__LONG_O= 1 ; -if(!qbevent)break;evnt(6667);}while(r); -} -S_8028:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len("<",1))))||new_error){ -if(qbevent){evnt(6668);if(r)goto S_8028;} -do{ -*__LONG_O= 1 ; -if(!qbevent)break;evnt(6668);}while(r); -} -S_8031:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len(">=",2))))||new_error){ -if(qbevent){evnt(6669);if(r)goto S_8031;} -do{ -*__LONG_O= 1 ; -if(!qbevent)break;evnt(6669);}while(r); -} -S_8034:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len("<=",2))))||new_error){ -if(qbevent){evnt(6670);if(r)goto S_8034;} -do{ -*__LONG_O= 1 ; -if(!qbevent)break;evnt(6670);}while(r); -} -S_8037:; -if ((-(*__LONG_O!= 1 ))||new_error){ -if(qbevent){evnt(6671);if(r)goto S_8037;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected IS =,<>,>,<,>=,<= expression",37)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6671);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6671);}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(6672);}while(r); -do{ -qbs_set(__STRING_E,FUNC_GETELEMENTS(__STRING_E,&(pass915= 3 ),__LONG_N2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6673);}while(r); -} -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6678);}while(r); -S_8045:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(6679);if(r)goto S_8045;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6679);}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(6680);}while(r); -do{ -qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6681);}while(r); -S_8050:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(6682);if(r)goto S_8050;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6682);}while(r); -} -S_8053:; -if (((*__LONG_TYP&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(6683);if(r)goto S_8053;} -do{ -qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass916= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6683);}while(r); -} -S_8056:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(6684);if(r)goto S_8056;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6684);}while(r); -} -S_8059:; -if ((-(*__LONG_T== 0 ))||new_error){ -if(qbevent){evnt(6685);if(r)goto S_8059;} -S_8060:; -if ((-((*__LONG_TYP&*__LONG_ISSTRING)== 0 ))||new_error){ -if(qbevent){evnt(6687);if(r)goto S_8060;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected string expression",26)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6687);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6687);}while(r); -} -S_8064:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len("==",2))))||new_error){ -if(qbevent){evnt(6688);if(r)goto S_8064;} -do{ -qbs_set(__STRING_O,qbs_new_txt_len("qbs_equal",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6688);}while(r); -} -S_8067:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len("!=",2))))||new_error){ -if(qbevent){evnt(6689);if(r)goto S_8067;} -do{ -qbs_set(__STRING_O,qbs_new_txt_len("qbs_notequal",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6689);}while(r); -} -S_8070:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len(">",1))))||new_error){ -if(qbevent){evnt(6690);if(r)goto S_8070;} -do{ -qbs_set(__STRING_O,qbs_new_txt_len("qbs_greaterthan",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6690);}while(r); -} -S_8073:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len("<",1))))||new_error){ -if(qbevent){evnt(6691);if(r)goto S_8073;} -do{ -qbs_set(__STRING_O,qbs_new_txt_len("qbs_lessthan",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6691);}while(r); -} -S_8076:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len(">=",2))))||new_error){ -if(qbevent){evnt(6692);if(r)goto S_8076;} -do{ -qbs_set(__STRING_O,qbs_new_txt_len("qbs_greaterorequal",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6692);}while(r); -} -S_8079:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len("<=",2))))||new_error){ -if(qbevent){evnt(6693);if(r)goto S_8079;} -do{ -qbs_set(__STRING_O,qbs_new_txt_len("qbs_lessorequal",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6693);}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(6694);}while(r); -}else{ -S_8084:; -if (((*__LONG_TYP&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(6697);if(r)goto S_8084;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected numeric expression",27)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6697);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6697);}while(r); -} -S_8088:; -if (((*__LONG_TYP&*__LONG_ISFLOAT))||new_error){ -if(qbevent){evnt(6699);if(r)goto S_8088;} -S_8089:; -if ((-(*__LONG_T== 1 ))||new_error){ -if(qbevent){evnt(6700);if(r)goto S_8089;} -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(6700);}while(r); -} -S_8092:; -if ((-(*__LONG_T== 2 ))||new_error){ -if(qbevent){evnt(6701);if(r)goto S_8092;} -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(6701);}while(r); -} -S_8095:; -if (((-(*__LONG_T== 6 ))|(-(*__LONG_T== 7 )))||new_error){ -if(qbevent){evnt(6702);if(r)goto S_8095;} -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(6702);}while(r); -} -} -S_8099:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_TC->len))||new_error){ -if(qbevent){evnt(6705);if(r)goto S_8099;} -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(6705);}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(6706);}while(r); -} -LABEL_ADDEDEXP:; -if(qbevent){evnt(6709);r=0;} -do{ -qbs_set(__STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6710);}while(r); -do{ -*__LONG_NEXP=*__LONG_NEXP+ 1 ; -if(!qbevent)break;evnt(6711);}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(6713);}while(r); -} -fornext_continue_902:; -} -fornext_exit_902:; -S_8110:; -if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||new_error){ -if(qbevent){evnt(6717);if(r)goto S_8110;} -do{ -SUB_WRITEBUFLINE(&(pass918=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if ((",5),__STRING_CLEANUPSTRINGPROCESSINGCALL),__STRING_F12),qbs_new_txt_len("))||new_error){",15))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6718);}while(r); -}else{ -do{ -SUB_WRITEBUFLINE(&(pass919=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if ((",5),__STRING_F12),qbs_new_txt_len(")||new_error){",14))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6720);}while(r); -} -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(6723);}while(r); -S_8116:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(6723);if(r)goto S_8116;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6723);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6723);}while(r); -} -do{ -*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL+ 1 ; -if(!qbevent)break;evnt(6724);}while(r); -do{ -tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLREF[4],__ARRAY_LONG_CONTROLREF[5]); -if (!new_error) ((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(6725);}while(r); -do{ -tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[tmp_long]= 18 ; -if(!qbevent)break;evnt(6726);}while(r); -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(6727);}while(r); -} -} -S_8127:; -if ((-(*__LONG_NOCHECKS== 0 ))||new_error){ -if(qbevent){evnt(6744);if(r)goto S_8127;} -S_8128:; -if (((-(*__LONG_VWATCHON== 1 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||new_error){ -if(qbevent){evnt(6745);if(r)goto S_8128;} -do{ -SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass921= 0 )); -if(!qbevent)break;evnt(6746);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass922=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("do{*__LONG_VWATCH_LINENUMBER= ",30),FUNC_STR2(__LONG_LINENUMBER)),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(6747);}while(r); -}else{ -do{ -SUB_WRITEBUFLINE(&(pass923=*__LONG_MAINTXTBUF),qbs_new_txt_len("do{",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6749);}while(r); -} -} -S_8135:; -if ((-(*__LONG_N> 1 ))||new_error){ -if(qbevent){evnt(6755);if(r)goto S_8135;} -S_8136:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("PALETTE",7))))||new_error){ -if(qbevent){evnt(6756);if(r)goto S_8136;} -S_8137:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("USING",5))))||new_error){ -if(qbevent){evnt(6757);if(r)goto S_8137;} -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(6758);}while(r); -S_8139:; -if ((-(*__LONG_N< 3 ))||new_error){ -if(qbevent){evnt(6759);if(r)goto S_8139;} -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(6759);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6759);}while(r); -} -do{ -qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_CA,&(pass924= 3 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6761);}while(r); -S_8144:; -if ((qbs_cleanup(qbs_tmp_base,FUNC_FINDARRAY(__STRING_E)))||new_error){ -if(qbevent){evnt(6762);if(r)goto S_8144;} -S_8145:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(6763);if(r)goto S_8145;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6763);}while(r); -} -do{ -*__LONG_Z= 1 ; -if(!qbevent)break;evnt(6764);}while(r); -do{ -*__LONG_T=*(int32*)(((char*)__UDT_ID)+(512)); -if(!qbevent)break;evnt(6765);}while(r); -S_8150:; -if (((-((*__LONG_T& 511 )!= 16 ))&(-((*__LONG_T& 511 )!= 32 )))||new_error){ -if(qbevent){evnt(6766);if(r)goto S_8150;} -do{ -*__LONG_Z= 0 ; -if(!qbevent)break;evnt(6766);}while(r); -} -S_8153:; -if ((*__LONG_T&*__LONG_ISFLOAT)||new_error){ -if(qbevent){evnt(6767);if(r)goto S_8153;} -do{ -*__LONG_Z= 0 ; -if(!qbevent)break;evnt(6767);}while(r); -} -S_8156:; -if ((*__LONG_T&*__LONG_ISOFFSETINBITS)||new_error){ -if(qbevent){evnt(6768);if(r)goto S_8156;} -do{ -*__LONG_Z= 0 ; -if(!qbevent)break;evnt(6768);}while(r); -} -S_8159:; -if ((*__LONG_T&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(6769);if(r)goto S_8159;} -do{ -*__LONG_Z= 0 ; -if(!qbevent)break;evnt(6769);}while(r); -} -S_8162:; -if ((*__LONG_T&*__LONG_ISUDT)||new_error){ -if(qbevent){evnt(6770);if(r)goto S_8162;} -do{ -*__LONG_Z= 0 ; -if(!qbevent)break;evnt(6770);}while(r); -} -S_8165:; -if ((*__LONG_T&*__LONG_ISUNSIGNED)||new_error){ -if(qbevent){evnt(6771);if(r)goto S_8165;} -do{ -*__LONG_Z= 0 ; -if(!qbevent)break;evnt(6771);}while(r); -} -S_8168:; -if ((-(*__LONG_Z== 0 ))||new_error){ -if(qbevent){evnt(6772);if(r)goto S_8168;} -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(6772);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6772);}while(r); -} -do{ -*__LONG_BITS=*__LONG_T& 511 ; -if(!qbevent)break;evnt(6773);}while(r); -do{ -goto LABEL_PU_GOTARRAY; -if(!qbevent)break;evnt(6774);}while(r); -} -S_8175:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(6776);if(r)goto S_8175;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6776);}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(6777);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6777);}while(r); -LABEL_PU_GOTARRAY:; -if(qbevent){evnt(6778);r=0;} -S_8180:; -if ((-(*__LONG_N== 3 ))||new_error){ -if(qbevent){evnt(6780);if(r)goto S_8180;} -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(6781);}while(r); -}else{ -S_8183:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_N== 4 ))|(qbs_notequal(FUNC_GETELEMENT(__STRING_A,&(pass925= 4 )),qbs_new_txt_len("(",1)))|(qbs_notequal(FUNC_GETELEMENT(__STRING_A,__LONG_N),qbs_new_txt_len(")",1)))))||new_error){ -if(qbevent){evnt(6783);if(r)goto S_8183;} -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(6783);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6783);}while(r); -} -do{ -qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),FUNC_GETELEMENTS(__STRING_CA,&(pass926= 4 ),__LONG_N))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6784);}while(r); -} -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6786);}while(r); -S_8190:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(6787);if(r)goto S_8190;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6787);}while(r); -} -do{ -qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6788);}while(r); -do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass927= -2 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6789);}while(r); -S_8195:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(6790);if(r)goto S_8195;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6790);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass928=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("sub_paletteusing(",17),__STRING_E),qbs_new_txt_len(",",1)),FUNC_STR2(__LONG_BITS)),qbs_new_txt_len(");",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6791);}while(r); -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(6792);}while(r); -S_8200:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(6792);if(r)goto S_8200;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6792);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6792);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(6793);}while(r); -} -} -} -S_8209:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("KEY",3))))||new_error){ -if(qbevent){evnt(6799);if(r)goto S_8209;} -S_8210:; -if ((-(*__LONG_N== 1 ))||new_error){ -if(qbevent){evnt(6800);if(r)goto S_8210;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected KEY ...",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6800);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6800);}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(6801);}while(r); -S_8215:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("OFF",3))))||new_error){ -if(qbevent){evnt(6802);if(r)goto S_8215;} -S_8216:; -if ((-(*__LONG_N> 2 ))||new_error){ -if(qbevent){evnt(6803);if(r)goto S_8216;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected KEY OFF only",21)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6803);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6803);}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(6804);}while(r); -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(6804);}while(r); -S_8222:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(6804);if(r)goto S_8222;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6804);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6804);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass931=*__LONG_MAINTXTBUF),qbs_new_txt_len("key_off();",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6805);}while(r); -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(6806);}while(r); -} -S_8230:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("ON",2))))||new_error){ -if(qbevent){evnt(6808);if(r)goto S_8230;} -S_8231:; -if ((-(*__LONG_N> 2 ))||new_error){ -if(qbevent){evnt(6809);if(r)goto S_8231;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected KEY ON only",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6809);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6809);}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(6810);}while(r); -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(6810);}while(r); -S_8237:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(6810);if(r)goto S_8237;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6810);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6810);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass933=*__LONG_MAINTXTBUF),qbs_new_txt_len("key_on();",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6811);}while(r); -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(6812);}while(r); -} -S_8245:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("LIST",4))))||new_error){ -if(qbevent){evnt(6814);if(r)goto S_8245;} -S_8246:; -if ((-(*__LONG_N> 2 ))||new_error){ -if(qbevent){evnt(6815);if(r)goto S_8246;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected KEY LIST only",22)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6815);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6815);}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(6816);}while(r); -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(6816);}while(r); -S_8252:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(6816);if(r)goto S_8252;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6816);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6816);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass935=*__LONG_MAINTXTBUF),qbs_new_txt_len("key_list();",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6817);}while(r); -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(6818);}while(r); -} -do{ -*__LONG_B= 0 ; -if(!qbevent)break;evnt(6821);}while(r); -do{ -qbs_set(__STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6821);}while(r); -S_8262:; -fornext_value937= 2 ; -fornext_finalvalue937=*__LONG_N; -fornext_step937= 1 ; -if (fornext_step937<0) fornext_step_negative937=1; else fornext_step_negative937=0; -if (new_error) goto fornext_error937; -goto fornext_entrylabel937; -while(1){ -fornext_value937=fornext_step937+(*__LONG_I); -fornext_entrylabel937: -*__LONG_I=fornext_value937; -if (fornext_step_negative937){ -if (fornext_value937fornext_finalvalue937) break; -} -fornext_error937:; -if(qbevent){evnt(6822);if(r)goto S_8262;} -do{ -qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6823);}while(r); -S_8264:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(6824);if(r)goto S_8264;} -do{ -*__LONG_B=*__LONG_B+ 1 ; -if(!qbevent)break;evnt(6824);}while(r); -} -S_8267:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(6825);if(r)goto S_8267;} -do{ -*__LONG_B=*__LONG_B- 1 ; -if(!qbevent)break;evnt(6825);}while(r); -} -S_8270:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||new_error){ -if(qbevent){evnt(6826);if(r)goto S_8270;} -do{ -*__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(6827);}while(r); -do{ -goto LABEL_KEY_ASSIGNMENT; -if(!qbevent)break;evnt(6827);}while(r); -} -S_8274:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_E->len))||new_error){ -if(qbevent){evnt(6829);if(r)goto S_8274;} -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(6829);}while(r); -}else{ -do{ -qbs_set(__STRING_E,__STRING_E2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6829);}while(r); -} -fornext_continue_936:; -} -fornext_exit_936:; -do{ -goto LABEL_KEY_FALLTHROUGH; -if(!qbevent)break;evnt(6832);}while(r); -LABEL_KEY_ASSIGNMENT:; -if(qbevent){evnt(6833);r=0;} -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6836);}while(r); -S_8282:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(6837);if(r)goto S_8282;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6837);}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(6838);}while(r); -do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass939= 32 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6839);}while(r); -S_8287:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(6840);if(r)goto S_8287;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6840);}while(r); -} -do{ -SUB_WRITEBUFRAWDATA(&(pass940=*__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(6841);}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(6843);}while(r); -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6844);}while(r); -S_8293:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(6845);if(r)goto S_8293;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6845);}while(r); -} -do{ -qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6846);}while(r); -do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,__LONG_ISSTRING)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6847);}while(r); -S_8298:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(6848);if(r)goto S_8298;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6848);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass941=*__LONG_MAINTXTBUF),qbs_add(__STRING_E,qbs_new_txt_len(");",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6849);}while(r); -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(6850);}while(r); -S_8303:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(6850);if(r)goto S_8303;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6850);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6850);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(6851);}while(r); -} -LABEL_KEY_FALLTHROUGH:; -if(qbevent){evnt(6853);r=0;} -S_8310:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("FIELD",5))))||new_error){ -if(qbevent){evnt(6858);if(r)goto S_8310;} -do{ -*__LONG_B= 0 ; -if(!qbevent)break;evnt(6861);}while(r); -do{ -qbs_set(__STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6861);}while(r); -S_8313:; -fornext_value944= 2 ; -fornext_finalvalue944=*__LONG_N; -fornext_step944= 1 ; -if (fornext_step944<0) fornext_step_negative944=1; else fornext_step_negative944=0; -if (new_error) goto fornext_error944; -goto fornext_entrylabel944; -while(1){ -fornext_value944=fornext_step944+(*__LONG_I); -fornext_entrylabel944: -*__LONG_I=fornext_value944; -if (fornext_step_negative944){ -if (fornext_value944fornext_finalvalue944) break; -} -fornext_error944:; -if(qbevent){evnt(6862);if(r)goto S_8313;} -do{ -qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6863);}while(r); -S_8315:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(6864);if(r)goto S_8315;} -do{ -*__LONG_B=*__LONG_B+ 1 ; -if(!qbevent)break;evnt(6864);}while(r); -} -S_8318:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(6865);if(r)goto S_8318;} -do{ -*__LONG_B=*__LONG_B- 1 ; -if(!qbevent)break;evnt(6865);}while(r); -} -S_8321:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||new_error){ -if(qbevent){evnt(6866);if(r)goto S_8321;} -do{ -*__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(6867);}while(r); -do{ -goto LABEL_FIELDGOTFN; -if(!qbevent)break;evnt(6867);}while(r); -} -S_8325:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_E->len))||new_error){ -if(qbevent){evnt(6869);if(r)goto S_8325;} -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(6869);}while(r); -}else{ -do{ -qbs_set(__STRING_E,__STRING_E2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6869);}while(r); -} -fornext_continue_943:; -} -fornext_exit_943:; -do{ -goto LABEL_FIELDERROR; -if(!qbevent)break;evnt(6871);}while(r); -LABEL_FIELDGOTFN:; -if(qbevent){evnt(6872);r=0;} -S_8332:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E,qbs_new_txt_len("#",1)))|(-(__STRING_E->len== 0 ))))||new_error){ -if(qbevent){evnt(6873);if(r)goto S_8332;} -do{ -goto LABEL_FIELDERROR; -if(!qbevent)break;evnt(6873);}while(r); -} -S_8335:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal((qbs_left(__STRING_E, 2 )),(qbs_add(qbs_new_txt_len("#",1),__STRING1_SP)))))||new_error){ -if(qbevent){evnt(6874);if(r)goto S_8335;} -do{ -qbs_set(__STRING_E,qbs_right(__STRING_E,__STRING_E->len- 2 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6874);}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(6874);}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(6874);}while(r); -} -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6875);}while(r); -S_8342:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(6876);if(r)goto S_8342;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6876);}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(6877);}while(r); -do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass948= 32 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6878);}while(r); -S_8347:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(6879);if(r)goto S_8347;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6879);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass949=*__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(6880);}while(r); -LABEL_FIELDNEXT:; -if(qbevent){evnt(6882);r=0;} -S_8351:; -if ((-(*__LONG_I>*__LONG_N))||new_error){ -if(qbevent){evnt(6885);if(r)goto S_8351;} -do{ -goto LABEL_FIELDERROR; -if(!qbevent)break;evnt(6885);}while(r); -} -do{ -*__LONG_B= 0 ; -if(!qbevent)break;evnt(6886);}while(r); -do{ -qbs_set(__STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6886);}while(r); -S_8356:; -fornext_value951=*__LONG_I; -fornext_finalvalue951=*__LONG_N; -fornext_step951= 1 ; -if (fornext_step951<0) fornext_step_negative951=1; else fornext_step_negative951=0; -if (new_error) goto fornext_error951; -goto fornext_entrylabel951; -while(1){ -fornext_value951=fornext_step951+(*__LONG_I); -fornext_entrylabel951: -*__LONG_I=fornext_value951; -if (fornext_step_negative951){ -if (fornext_value951fornext_finalvalue951) break; -} -fornext_error951:; -if(qbevent){evnt(6887);if(r)goto S_8356;} -do{ -qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6888);}while(r); -S_8358:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(6889);if(r)goto S_8358;} -do{ -*__LONG_B=*__LONG_B+ 1 ; -if(!qbevent)break;evnt(6889);}while(r); -} -S_8361:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(6890);if(r)goto S_8361;} -do{ -*__LONG_B=*__LONG_B- 1 ; -if(!qbevent)break;evnt(6890);}while(r); -} -S_8364:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_E2),qbs_new_txt_len("AS",2)))&(-(*__LONG_B== 0 ))))||new_error){ -if(qbevent){evnt(6891);if(r)goto S_8364;} -do{ -*__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(6892);}while(r); -do{ -goto LABEL_FIELDGOTFW; -if(!qbevent)break;evnt(6892);}while(r); -} -S_8368:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_E->len))||new_error){ -if(qbevent){evnt(6894);if(r)goto S_8368;} -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(6894);}while(r); -}else{ -do{ -qbs_set(__STRING_E,__STRING_E2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6894);}while(r); -} -fornext_continue_950:; -} -fornext_exit_950:; -do{ -goto LABEL_FIELDERROR; -if(!qbevent)break;evnt(6896);}while(r); -LABEL_FIELDGOTFW:; -if(qbevent){evnt(6897);r=0;} -S_8375:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E->len== 0 )))||new_error){ -if(qbevent){evnt(6898);if(r)goto S_8375;} -do{ -goto LABEL_FIELDERROR; -if(!qbevent)break;evnt(6898);}while(r); -} -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6899);}while(r); -S_8379:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(6900);if(r)goto S_8379;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6900);}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(6901);}while(r); -do{ -qbs_set(__STRING_SIZEE,FUNC_EVALUATETOTYP(__STRING_E,&(pass954= 32 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6902);}while(r); -S_8384:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(6903);if(r)goto S_8384;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6903);}while(r); -} -S_8387:; -if ((-(*__LONG_I>*__LONG_N))||new_error){ -if(qbevent){evnt(6906);if(r)goto S_8387;} -do{ -goto LABEL_FIELDERROR; -if(!qbevent)break;evnt(6906);}while(r); -} -do{ -*__LONG_B= 0 ; -if(!qbevent)break;evnt(6907);}while(r); -do{ -qbs_set(__STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6907);}while(r); -S_8392:; -fornext_value956=*__LONG_I; -fornext_finalvalue956=*__LONG_N; -fornext_step956= 1 ; -if (fornext_step956<0) fornext_step_negative956=1; else fornext_step_negative956=0; -if (new_error) goto fornext_error956; -goto fornext_entrylabel956; -while(1){ -fornext_value956=fornext_step956+(*__LONG_I); -fornext_entrylabel956: -*__LONG_I=fornext_value956; -if (fornext_step_negative956){ -if (fornext_value956fornext_finalvalue956) break; -} -fornext_error956:; -if(qbevent){evnt(6908);if(r)goto S_8392;} -do{ -qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6909);}while(r); -S_8394:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(6910);if(r)goto S_8394;} -do{ -*__LONG_B=*__LONG_B+ 1 ; -if(!qbevent)break;evnt(6910);}while(r); -} -S_8397:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(6911);if(r)goto S_8397;} -do{ -*__LONG_B=*__LONG_B- 1 ; -if(!qbevent)break;evnt(6911);}while(r); -} -S_8400:; -if ((qbs_cleanup(qbs_tmp_base,(((-(*__LONG_I==*__LONG_N))|(qbs_equal(__STRING_E2,qbs_new_txt_len(",",1)))))&(-(*__LONG_B== 0 ))))||new_error){ -if(qbevent){evnt(6912);if(r)goto S_8400;} -S_8401:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(",",1))))||new_error){ -if(qbevent){evnt(6913);if(r)goto S_8401;} -do{ -*__LONG_I=*__LONG_I- 1 ; -if(!qbevent)break;evnt(6913);}while(r); -} -S_8404:; -if ((-(*__LONG_I==*__LONG_N))||new_error){ -if(qbevent){evnt(6914);if(r)goto S_8404;} -S_8405:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_E->len))||new_error){ -if(qbevent){evnt(6915);if(r)goto S_8405;} -do{ -qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),__STRING_E2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6915);}while(r); -}else{ -do{ -qbs_set(__STRING_E,__STRING_E2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6915);}while(r); -} -} -do{ -goto LABEL_FIELDGOTFNAME; -if(!qbevent)break;evnt(6917);}while(r); -} -S_8413:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_E->len))||new_error){ -if(qbevent){evnt(6919);if(r)goto S_8413;} -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(6919);}while(r); -}else{ -do{ -qbs_set(__STRING_E,__STRING_E2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6919);}while(r); -} -fornext_continue_955:; -} -fornext_exit_955:; -do{ -goto LABEL_FIELDERROR; -if(!qbevent)break;evnt(6921);}while(r); -LABEL_FIELDGOTFNAME:; -if(qbevent){evnt(6922);r=0;} -S_8420:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E->len== 0 )))||new_error){ -if(qbevent){evnt(6923);if(r)goto S_8420;} -do{ -goto LABEL_FIELDERROR; -if(!qbevent)break;evnt(6923);}while(r); -} -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6925);}while(r); -S_8424:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(6926);if(r)goto S_8424;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6926);}while(r); -} -do{ -qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6927);}while(r); -do{ -qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6928);}while(r); -S_8429:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(6929);if(r)goto S_8429;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6929);}while(r); -} -S_8432:; -if ((-((*__LONG_TYP&*__LONG_ISSTRING)== 0 ))||new_error){ -if(qbevent){evnt(6930);if(r)goto S_8432;} -do{ -goto LABEL_FIELDERROR; -if(!qbevent)break;evnt(6930);}while(r); -} -S_8435:; -if ((*__LONG_TYP&*__LONG_ISFIXEDLENGTH)||new_error){ -if(qbevent){evnt(6931);if(r)goto S_8435;} -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(6931);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6931);}while(r); -} -S_8439:; -if ((-((*__LONG_TYP&*__LONG_ISREFERENCE)== 0 ))||new_error){ -if(qbevent){evnt(6932);if(r)goto S_8439;} -do{ -goto LABEL_FIELDERROR; -if(!qbevent)break;evnt(6932);}while(r); -} -do{ -qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass960= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6933);}while(r); -S_8443:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(6934);if(r)goto S_8443;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6934);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass961=*__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(6935);}while(r); -S_8447:; -if ((-(*__LONG_I<*__LONG_N))||new_error){ -if(qbevent){evnt(6937);if(r)goto S_8447;} -do{ -*__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(6938);}while(r); -do{ -qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6939);}while(r); -S_8450:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len(",",1))))||new_error){ -if(qbevent){evnt(6940);if(r)goto S_8450;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected ,",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6940);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6940);}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(6941);}while(r); -do{ -*__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(6942);}while(r); -do{ -goto LABEL_FIELDNEXT; -if(!qbevent)break;evnt(6943);}while(r); -} -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(6946);}while(r); -S_8459:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(6946);if(r)goto S_8459;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6946);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6946);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(6947);}while(r); -LABEL_FIELDERROR:; -if(qbevent){evnt(6949);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(6949);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6949);}while(r); -} -S_8468:; -if ((-(*__LONG_N== 2 ))||new_error){ -if(qbevent){evnt(6962);if(r)goto S_8468;} -S_8469:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("EXIT",4))))||new_error){ -if(qbevent){evnt(6963);if(r)goto S_8469;} -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(6965);}while(r); -S_8471:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("DO",2))))||new_error){ -if(qbevent){evnt(6967);if(r)goto S_8471;} -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(6969);}while(r); -S_8473:; -fornext_value964=*__INTEGER_CONTROLLEVEL; -fornext_finalvalue964= 1 ; -fornext_step964= -1 ; -if (fornext_step964<0) fornext_step_negative964=1; else fornext_step_negative964=0; -if (new_error) goto fornext_error964; -goto fornext_entrylabel964; -while(1){ -fornext_value964=fornext_step964+(*__LONG_I); -fornext_entrylabel964: -*__LONG_I=fornext_value964; -if (fornext_step_negative964){ -if (fornext_value964fornext_finalvalue964) break; -} -fornext_error964:; -if(qbevent){evnt(6970);if(r)goto S_8473;} -do{ -*__LONG_T=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__LONG_I)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]; -if(!qbevent)break;evnt(6971);}while(r); -S_8475:; -if (((-(*__LONG_T== 3 ))|(-(*__LONG_T== 4 )))||new_error){ -if(qbevent){evnt(6972);if(r)goto S_8475;} -do{ -SUB_WRITEBUFLINE(&(pass965=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("goto dl_exit_",13),FUNC_STR2((&(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__LONG_I)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])])))),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6973);}while(r); -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(6974);}while(r); -S_8478:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(6974);if(r)goto S_8478;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6974);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6974);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(6975);}while(r); -} -fornext_continue_963:; -} -fornext_exit_963:; -do{ -qbs_set(__STRING_A,qbs_new_txt_len("EXIT DO without DO",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6978);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6978);}while(r); -} -S_8489:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("FOR",3))))||new_error){ -if(qbevent){evnt(6981);if(r)goto S_8489;} -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(6983);}while(r); -S_8491:; -fornext_value968=*__INTEGER_CONTROLLEVEL; -fornext_finalvalue968= 1 ; -fornext_step968= -1 ; -if (fornext_step968<0) fornext_step_negative968=1; else fornext_step_negative968=0; -if (new_error) goto fornext_error968; -goto fornext_entrylabel968; -while(1){ -fornext_value968=fornext_step968+(*__LONG_I); -fornext_entrylabel968: -*__LONG_I=fornext_value968; -if (fornext_step_negative968){ -if (fornext_value968fornext_finalvalue968) break; -} -fornext_error968:; -if(qbevent){evnt(6984);if(r)goto S_8491;} -do{ -*__LONG_T=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__LONG_I)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]; -if(!qbevent)break;evnt(6985);}while(r); -S_8493:; -if ((-(*__LONG_T== 2 ))||new_error){ -if(qbevent){evnt(6986);if(r)goto S_8493;} -do{ -SUB_WRITEBUFLINE(&(pass969=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("goto fornext_exit_",18),FUNC_STR2((&(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__LONG_I)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])])))),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6987);}while(r); -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(6988);}while(r); -S_8496:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(6988);if(r)goto S_8496;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6988);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6988);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(6989);}while(r); -} -fornext_continue_967:; -} -fornext_exit_967:; -do{ -qbs_set(__STRING_A,qbs_new_txt_len("EXIT FOR without FOR",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(6992);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(6992);}while(r); -} -S_8507:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("WHILE",5))))||new_error){ -if(qbevent){evnt(6995);if(r)goto S_8507;} -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(6997);}while(r); -S_8509:; -fornext_value972=*__INTEGER_CONTROLLEVEL; -fornext_finalvalue972= 1 ; -fornext_step972= -1 ; -if (fornext_step972<0) fornext_step_negative972=1; else fornext_step_negative972=0; -if (new_error) goto fornext_error972; -goto fornext_entrylabel972; -while(1){ -fornext_value972=fornext_step972+(*__LONG_I); -fornext_entrylabel972: -*__LONG_I=fornext_value972; -if (fornext_step_negative972){ -if (fornext_value972fornext_finalvalue972) break; -} -fornext_error972:; -if(qbevent){evnt(6998);if(r)goto S_8509;} -do{ -*__LONG_T=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__LONG_I)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]; -if(!qbevent)break;evnt(6999);}while(r); -S_8511:; -if ((-(*__LONG_T== 5 ))||new_error){ -if(qbevent){evnt(7000);if(r)goto S_8511;} -do{ -SUB_WRITEBUFLINE(&(pass973=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("goto ww_exit_",13),FUNC_STR2((&(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__LONG_I)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])])))),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7001);}while(r); -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(7002);}while(r); -S_8514:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(7002);if(r)goto S_8514;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7002);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7002);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(7003);}while(r); -} -fornext_continue_971:; -} -fornext_exit_971:; -do{ -qbs_set(__STRING_A,qbs_new_txt_len("EXIT WHILE without WHILE",24)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7006);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7006);}while(r); -} -S_8525:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("SELECT",6))))||new_error){ -if(qbevent){evnt(7009);if(r)goto S_8525;} -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(7011);}while(r); -S_8527:; -fornext_value976=*__INTEGER_CONTROLLEVEL; -fornext_finalvalue976= 1 ; -fornext_step976= -1 ; -if (fornext_step976<0) fornext_step_negative976=1; else fornext_step_negative976=0; -if (new_error) goto fornext_error976; -goto fornext_entrylabel976; -while(1){ -fornext_value976=fornext_step976+(*__LONG_I); -fornext_entrylabel976: -*__LONG_I=fornext_value976; -if (fornext_step_negative976){ -if (fornext_value976fornext_finalvalue976) break; -} -fornext_error976:; -if(qbevent){evnt(7012);if(r)goto S_8527;} -do{ -*__LONG_T=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__LONG_I)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]; -if(!qbevent)break;evnt(7013);}while(r); -S_8529:; -if (((-(*__LONG_T== 18 ))|(-(*__LONG_T== 19 )))||new_error){ -if(qbevent){evnt(7014);if(r)goto S_8529;} -do{ -SUB_WRITEBUFLINE(&(pass977=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("goto sc_",8),FUNC_STR2((&(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__LONG_I- 1 )-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])])))),qbs_new_txt_len("_end;",5))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7015);}while(r); -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(7016);}while(r); -S_8532:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(7016);if(r)goto S_8532;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7016);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7016);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(7017);}while(r); -} -fornext_continue_975:; -} -fornext_exit_975:; -do{ -qbs_set(__STRING_A,qbs_new_txt_len("EXIT SELECT without SELECT",26)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7020);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7020);}while(r); -} -S_8543:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("CASE",4))))||new_error){ -if(qbevent){evnt(7023);if(r)goto S_8543;} -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(7025);}while(r); -S_8545:; -fornext_value980=*__INTEGER_CONTROLLEVEL; -fornext_finalvalue980= 1 ; -fornext_step980= -1 ; -if (fornext_step980<0) fornext_step_negative980=1; else fornext_step_negative980=0; -if (new_error) goto fornext_error980; -goto fornext_entrylabel980; -while(1){ -fornext_value980=fornext_step980+(*__LONG_I); -fornext_entrylabel980: -*__LONG_I=fornext_value980; -if (fornext_step_negative980){ -if (fornext_value980fornext_finalvalue980) break; -} -fornext_error980:; -if(qbevent){evnt(7026);if(r)goto S_8545;} -do{ -*__LONG_T=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__LONG_I)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]; -if(!qbevent)break;evnt(7027);}while(r); -S_8547:; -if ((-(*__LONG_T== 18 ))||new_error){ -if(qbevent){evnt(7028);if(r)goto S_8547;} -do{ -SUB_WRITEBUFLINE(&(pass981=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("goto sc_ec_",11),FUNC_STR2(&(pass982=*__LONG_EVERYCASENEWCASE+ 1 ))),qbs_new_txt_len("_end;",5))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7029);}while(r); -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(7030);}while(r); -S_8550:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(7030);if(r)goto S_8550;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7030);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7030);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(7031);}while(r); -S_8556:; -}else{ -if (-(*__LONG_T== 19 )){ -if(qbevent){evnt(7032);if(r)goto S_8556;} -do{ -SUB_WRITEBUFLINE(&(pass984=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("goto sc_",8),FUNC_STR2((&(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__LONG_I- 1 )-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])])))),qbs_new_txt_len("_end;",5))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7033);}while(r); -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(7034);}while(r); -S_8559:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(7034);if(r)goto S_8559;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7034);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7034);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(7035);}while(r); -} -} -fornext_continue_979:; -} -fornext_exit_979:; -do{ -qbs_set(__STRING_A,qbs_new_txt_len("EXIT CASE without CASE",22)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7038);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7038);}while(r); -} -} -} -S_8572:; -if ((-(*__LONG_N>= 2 ))||new_error){ -if(qbevent){evnt(7051);if(r)goto S_8572;} -S_8573:; -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)))))||new_error){ -if(qbevent){evnt(7052);if(r)goto S_8573;} -do{ -tmp_long=array_check(( 12 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(7053);}while(r); -do{ -*__LONG_I= 3 ; -if(!qbevent)break;evnt(7054);}while(r); -S_8576:; -if ((-(*__LONG_I>*__LONG_N))||new_error){ -if(qbevent){evnt(7055);if(r)goto S_8576;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected (",10)); -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{ -qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7056);}while(r); -do{ -*__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(7056);}while(r); -S_8582:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_A2,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(7057);if(r)goto S_8582;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected (",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7057);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7057);}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(7058);}while(r); -S_8587:; -if ((-(*__LONG_I>*__LONG_N))||new_error){ -if(qbevent){evnt(7059);if(r)goto S_8587;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected ...",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7059);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7059);}while(r); -} -do{ -*__LONG_B= 0 ; -if(!qbevent)break;evnt(7060);}while(r); -do{ -*__LONG_X= 0 ; -if(!qbevent)break;evnt(7061);}while(r); -do{ -qbs_set(__STRING_E2,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7062);}while(r); -do{ -qbs_set(__STRING_E3,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7063);}while(r); -S_8595:; -fornext_value987=*__LONG_I; -fornext_finalvalue987=*__LONG_N; -fornext_step987= 1 ; -if (fornext_step987<0) fornext_step_negative987=1; else fornext_step_negative987=0; -if (new_error) goto fornext_error987; -goto fornext_entrylabel987; -while(1){ -fornext_value987=fornext_step987+(*__LONG_I); -fornext_entrylabel987: -*__LONG_I=fornext_value987; -if (fornext_step_negative987){ -if (fornext_value987fornext_finalvalue987) break; -} -fornext_error987:; -if(qbevent){evnt(7064);if(r)goto S_8595;} -do{ -qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7065);}while(r); -do{ -*__LONG_A=qbs_asc(__STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7066);}while(r); -S_8598:; -if ((-(*__LONG_A== 40 ))||new_error){ -if(qbevent){evnt(7067);if(r)goto S_8598;} -do{ -*__LONG_B=*__LONG_B+ 1 ; -if(!qbevent)break;evnt(7067);}while(r); -} -S_8601:; -if ((-(*__LONG_A== 41 ))||new_error){ -if(qbevent){evnt(7068);if(r)goto S_8601;} -do{ -*__LONG_B=*__LONG_B- 1 ; -if(!qbevent)break;evnt(7068);}while(r); -} -S_8604:; -if ((-(*__LONG_B== -1 ))||new_error){ -if(qbevent){evnt(7069);if(r)goto S_8604;} -do{ -goto LABEL_ONSTRIGGOTARG; -if(!qbevent)break;evnt(7069);}while(r); -} -S_8607:; -if (((-(*__LONG_A== 44 ))&(-(*__LONG_B== 0 )))||new_error){ -if(qbevent){evnt(7070);if(r)goto S_8607;} -do{ -*__LONG_X=*__LONG_X+ 1 ; -if(!qbevent)break;evnt(7071);}while(r); -S_8609:; -if ((-(*__LONG_X> 1 ))||new_error){ -if(qbevent){evnt(7072);if(r)goto S_8609;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7072);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7072);}while(r); -} -S_8613:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(7073);if(r)goto S_8613;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected ... ,",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7073);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7073);}while(r); -} -do{ -qbs_set(__STRING_E3,__STRING_E2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7074);}while(r); -do{ -qbs_set(__STRING_E2,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7075);}while(r); -}else{ -S_8620:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_E2->len))||new_error){ -if(qbevent){evnt(7077);if(r)goto S_8620;} -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(7077);}while(r); -}else{ -do{ -qbs_set(__STRING_E2,__STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7077);}while(r); -} -} -fornext_continue_986:; -} -fornext_exit_986:; -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7080);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7080);}while(r); -LABEL_ONSTRIGGOTARG:; -if(qbevent){evnt(7081);r=0;} -S_8629:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(7082);if(r)goto S_8629;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected ... )",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7082);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7082);}while(r); -} -do{ -SUB_WRITEBUFRAWDATA(&(pass989=*__LONG_MAINTXTBUF),qbs_new_txt_len("onstrig_setup(",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7083);}while(r); -S_8634:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_E3->len))||new_error){ -if(qbevent){evnt(7086);if(r)goto S_8634;} -do{ -qbs_set(__STRING_OPTI,__STRING_E3); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7087);}while(r); -do{ -qbs_set(__STRING_OPTCONTROLLER,__STRING_E2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7088);}while(r); -do{ -qbs_set(__STRING_OPTPASSED,qbs_new_txt_len("1",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7089);}while(r); -}else{ -do{ -qbs_set(__STRING_OPTI,__STRING_E2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7091);}while(r); -do{ -qbs_set(__STRING_OPTCONTROLLER,qbs_new_txt_len("0",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7092);}while(r); -do{ -qbs_set(__STRING_OPTPASSED,qbs_new_txt_len("0",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7093);}while(r); -} -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_OPTI)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7097);}while(r); -S_8644:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(7097);if(r)goto S_8644;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7097);}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(7098);}while(r); -do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass991= 32 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7099);}while(r); -S_8649:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(7099);if(r)goto S_8649;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7099);}while(r); -} -do{ -SUB_WRITEBUFRAWDATA(&(pass992=*__LONG_MAINTXTBUF),qbs_add(__STRING_E,qbs_new_txt_len(",",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7100);}while(r); -S_8653:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OPTPASSED,qbs_new_txt_len("1",1))))||new_error){ -if(qbevent){evnt(7103);if(r)goto S_8653;} -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_OPTCONTROLLER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7104);}while(r); -S_8655:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(7104);if(r)goto S_8655;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7104);}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(7105);}while(r); -do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass993= 32 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7106);}while(r); -S_8660:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(7106);if(r)goto S_8660;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7106);}while(r); -} -}else{ -do{ -qbs_set(__STRING_E,__STRING_OPTCONTROLLER); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7108);}while(r); -} -do{ -SUB_WRITEBUFRAWDATA(&(pass994=*__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(7110);}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(7112);}while(r); -do{ -*__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(7114);}while(r); -S_8669:; -if ((-(*__LONG_I>*__LONG_N))||new_error){ -if(qbevent){evnt(7115);if(r)goto S_8669;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected GOSUB/sub-name",23)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7115);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7115);}while(r); -} -do{ -qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_A,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7116);}while(r); -do{ -*__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(7116);}while(r); -do{ -*__LONG_ONSTRIGID=*__LONG_ONSTRIGID+ 1 ; -if(!qbevent)break;evnt(7117);}while(r); -do{ -SUB_WRITEBUFRAWDATA(&(pass995=*__LONG_MAINTXTBUF),qbs_add(FUNC_STR2(__LONG_ONSTRIGID),qbs_new_txt_len(",",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7118);}while(r); -S_8677:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("GOSUB",5))))||new_error){ -if(qbevent){evnt(7120);if(r)goto S_8677;} -S_8678:; -if ((-(*__LONG_I>*__LONG_N))||new_error){ -if(qbevent){evnt(7121);if(r)goto S_8678;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected linenumber/label",25)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7121);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7121);}while(r); -} -do{ -qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7122);}while(r); -do{ -*__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(7122);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass996=*__LONG_MAINTXTBUF),qbs_new_txt_len("0);",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7124);}while(r); -S_8685:; -if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(__STRING_A2)== 0 )))||new_error){ -if(qbevent){evnt(7126);if(r)goto S_8685;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Invalid label",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7126);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7126);}while(r); -} -do{ -*__LONG_V=FUNC_HASHFIND(__STRING_A2,&(pass997= 2 ),__LONG_IGNORE,__LONG_R); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7128);}while(r); -do{ -*__LONG_X= 1 ; -if(!qbevent)break;evnt(7129);}while(r); -LABEL_LABCHK60Z:; -if(qbevent){evnt(7130);r=0;} -S_8691:; -if ((*__LONG_V)||new_error){ -if(qbevent){evnt(7131);if(r)goto S_8691;} -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(7132);}while(r); -S_8693:; -if (((-(*__LONG_S== 0 ))|(-(*__LONG_S== -1 )))||new_error){ -if(qbevent){evnt(7133);if(r)goto S_8693;} -S_8694:; -if ((-(*__LONG_S== -1 ))||new_error){ -if(qbevent){evnt(7134);if(r)goto S_8694;} -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(7134);}while(r); -} -do{ -*__LONG_X= 0 ; -if(!qbevent)break;evnt(7135);}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(7136);}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(7137);}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(7138);}while(r); -}else{ -S_8702:; -if ((-(*__LONG_V== 2 ))||new_error){ -if(qbevent){evnt(7140);if(r)goto S_8702;} -do{ -*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R); -if(!qbevent)break;evnt(7140);}while(r); -do{ -goto LABEL_LABCHK60Z; -if(!qbevent)break;evnt(7140);}while(r); -} -} -} -S_8708:; -if ((*__LONG_X)||new_error){ -if(qbevent){evnt(7143);if(r)goto S_8708;} -do{ -*__LONG_NLABELS=*__LONG_NLABELS+ 1 ; -if(!qbevent)break;evnt(7145);}while(r); -S_8710:; -if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||new_error){ -if(qbevent){evnt(7145);if(r)goto S_8710;} -do{ -*__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ; -if(!qbevent)break;evnt(7145);}while(r); -do{ +} +if(!qbevent)break;evnt(6324);}while(r); +} +do{ +tmp_long=array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_SELECTCASEHASCASEBLOCK[4],__ARRAY_LONG_SELECTCASEHASCASEBLOCK[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]))[tmp_long]= 0 ; +if(!qbevent)break;evnt(6325);}while(r); +S_7604:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("EVERYCASE",9))))||new_error){ +if(qbevent){evnt(6326);if(r)goto S_7604;} +do{ +tmp_long=array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_EVERYCASESET[4],__ARRAY_LONG_EVERYCASESET[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_EVERYCASESET[0]))[tmp_long]= -1 ; +if(!qbevent)break;evnt(6327);}while(r); +S_7606:; +if ((-(*__LONG_N== 2 ))||new_error){ +if(qbevent){evnt(6328);if(r)goto S_7606;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected SELECT CASE expression",31)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6328);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6328);}while(r); +} +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(FUNC_GETELEMENTS(__STRING_CA,&(pass865= 3 ),__LONG_N))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6329);}while(r); +S_7611:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(6330);if(r)goto S_7611;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6330);}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(6331);}while(r); +}else{ +do{ +tmp_long=array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_EVERYCASESET[4],__ARRAY_LONG_EVERYCASESET[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_EVERYCASESET[0]))[tmp_long]= 0 ; +if(!qbevent)break;evnt(6333);}while(r); +S_7617:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_N== 1 ))|(qbs_notequal(__STRING_SECONDELEMENT,qbs_new_txt_len("CASE",4)))))||new_error){ +if(qbevent){evnt(6334);if(r)goto S_7617;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected CASE or EVERYCASE",26)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6334);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6334);}while(r); +} +S_7621:; +if ((-(*__LONG_N== 2 ))||new_error){ +if(qbevent){evnt(6335);if(r)goto S_7621;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected SELECT CASE expression",31)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6335);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6335);}while(r); +} +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(FUNC_GETELEMENTS(__STRING_CA,&(pass866= 3 ),__LONG_N))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6336);}while(r); +S_7626:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(6337);if(r)goto S_7626;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6337);}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(6338);}while(r); +} +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(6341);}while(r); +S_7632:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(6341);if(r)goto S_7632;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6341);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6341);}while(r); +} +do{ +qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6342);}while(r); +S_7638:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(6343);if(r)goto S_7638;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6343);}while(r); +} +do{ +*__LONG_U=FUNC_UNIQUENUMBER(); +if(!qbevent)break;evnt(6344);}while(r); +do{ +*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL+ 1 ; +if(!qbevent)break;evnt(6346);}while(r); +do{ +tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLVALUE[4],__ARRAY_LONG_CONTROLVALUE[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_CONTROLVALUE[0]))[tmp_long]= 0 ; +if(!qbevent)break;evnt(6347);}while(r); +do{ +qbs_set(__STRING_T,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6349);}while(r); +S_7645:; +if (((*__LONG_TYP&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(6350);if(r)goto S_7645;} +do{ +*__LONG_T= 0 ; +if(!qbevent)break;evnt(6351);}while(r); +S_7647:; +if (((-((*__LONG_TYP&*__LONG_ISUDT)== 0 ))&(-((*__LONG_TYP&*__LONG_ISARRAY)== 0 ))&(-((*__LONG_TYP&*__LONG_ISREFERENCE)!= 0 )))||new_error){ +if(qbevent){evnt(6352);if(r)goto S_7647;} +do{ +tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLVALUE[4],__ARRAY_LONG_CONTROLVALUE[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_CONTROLVALUE[0]))[tmp_long]=qbr(func_val(__STRING_E)); +if(!qbevent)break;evnt(6353);}while(r); +}else{ +S_7650:; +if (((*__LONG_TYP&*__LONG_ISREFERENCE))||new_error){ +if(qbevent){evnt(6355);if(r)goto S_7650;} +do{ +qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass868= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6355);}while(r); +} +S_7653:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(6356);if(r)goto S_7653;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6356);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass869=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("static qbs *sc_",15),FUNC_STR2(__LONG_U)),qbs_new_txt_len("=qbs_new(0,0);",14))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6357);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass870=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_set(sc_",11),FUNC_STR2(__LONG_U)),qbs_new_txt_len(",",1)),__STRING_E),qbs_new_txt_len(");",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6358);}while(r); +S_7658:; +if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||new_error){ +if(qbevent){evnt(6359);if(r)goto S_7658;} +do{ +SUB_WRITEBUFLINE(&(pass871=*__LONG_MAINTXTBUF),qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6359);}while(r); +} +} +}else{ +S_7663:; +if (((*__LONG_TYP&*__LONG_ISFLOAT))||new_error){ +if(qbevent){evnt(6364);if(r)goto S_7663;} +S_7664:; +if ((-((*__LONG_TYP& 511 )> 64 ))||new_error){ +if(qbevent){evnt(6366);if(r)goto S_7664;} +do{ +*__LONG_T= 3 ; +if(!qbevent)break;evnt(6366);}while(r); +do{ +qbs_set(__STRING_T,qbs_new_txt_len("long double",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6366);}while(r); +} +S_7668:; +if ((-((*__LONG_TYP& 511 )== 32 ))||new_error){ +if(qbevent){evnt(6367);if(r)goto S_7668;} +do{ +*__LONG_T= 4 ; +if(!qbevent)break;evnt(6367);}while(r); +do{ +qbs_set(__STRING_T,qbs_new_txt_len("float",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6367);}while(r); +} +S_7672:; +if ((-((*__LONG_TYP& 511 )== 64 ))||new_error){ +if(qbevent){evnt(6368);if(r)goto S_7672;} +do{ +*__LONG_T= 5 ; +if(!qbevent)break;evnt(6368);}while(r); +do{ +qbs_set(__STRING_T,qbs_new_txt_len("double",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6368);}while(r); +} +S_7676:; +if (((-((*__LONG_TYP&*__LONG_ISUDT)== 0 ))&(-((*__LONG_TYP&*__LONG_ISARRAY)== 0 ))&(-((*__LONG_TYP&*__LONG_ISREFERENCE)!= 0 )))||new_error){ +if(qbevent){evnt(6369);if(r)goto S_7676;} +do{ +tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLVALUE[4],__ARRAY_LONG_CONTROLVALUE[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_CONTROLVALUE[0]))[tmp_long]=qbr(func_val(__STRING_E)); +if(!qbevent)break;evnt(6370);}while(r); +}else{ +S_7679:; +if (((*__LONG_TYP&*__LONG_ISREFERENCE))||new_error){ +if(qbevent){evnt(6372);if(r)goto S_7679;} +do{ +qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass872= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6372);}while(r); +} +S_7682:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(6373);if(r)goto S_7682;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6373);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass873=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("static ",7),__STRING_T),qbs_new_txt_len(" sc_",4)),FUNC_STR2(__LONG_U)),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6375);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass874=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("sc_",3),FUNC_STR2(__LONG_U)),qbs_new_txt_len("=",1)),__STRING_E),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6376);}while(r); +S_7687:; +if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||new_error){ +if(qbevent){evnt(6377);if(r)goto S_7687;} +do{ +SUB_WRITEBUFLINE(&(pass875=*__LONG_MAINTXTBUF),qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6377);}while(r); +} +} +}else{ +do{ +*__LONG_T= 1 ; +if(!qbevent)break;evnt(6383);}while(r); +do{ +qbs_set(__STRING_T,qbs_new_txt_len("int64",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6383);}while(r); +S_7694:; +if (((*__LONG_TYP&*__LONG_ISUNSIGNED))||new_error){ +if(qbevent){evnt(6384);if(r)goto S_7694;} +S_7695:; +if ((-((*__LONG_TYP& 511 )<= 32 ))||new_error){ +if(qbevent){evnt(6385);if(r)goto S_7695;} +do{ +*__LONG_T= 7 ; +if(!qbevent)break;evnt(6385);}while(r); +do{ +qbs_set(__STRING_T,qbs_new_txt_len("uint32",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6385);}while(r); +} +S_7699:; +if ((-((*__LONG_TYP& 511 )> 32 ))||new_error){ +if(qbevent){evnt(6386);if(r)goto S_7699;} +do{ +*__LONG_T= 2 ; +if(!qbevent)break;evnt(6386);}while(r); +do{ +qbs_set(__STRING_T,qbs_new_txt_len("uint64",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6386);}while(r); +} +}else{ +S_7704:; +if ((-((*__LONG_TYP& 511 )<= 32 ))||new_error){ +if(qbevent){evnt(6388);if(r)goto S_7704;} +do{ +*__LONG_T= 6 ; +if(!qbevent)break;evnt(6388);}while(r); +do{ +qbs_set(__STRING_T,qbs_new_txt_len("int32",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6388);}while(r); +} +S_7708:; +if ((-((*__LONG_TYP& 511 )> 32 ))||new_error){ +if(qbevent){evnt(6389);if(r)goto S_7708;} +do{ +*__LONG_T= 1 ; +if(!qbevent)break;evnt(6389);}while(r); +do{ +qbs_set(__STRING_T,qbs_new_txt_len("int64",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6389);}while(r); +} +} +S_7713:; +if (((-((*__LONG_TYP&*__LONG_ISUDT)== 0 ))&(-((*__LONG_TYP&*__LONG_ISARRAY)== 0 ))&(-((*__LONG_TYP&*__LONG_ISREFERENCE)!= 0 )))||new_error){ +if(qbevent){evnt(6391);if(r)goto S_7713;} +do{ +tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLVALUE[4],__ARRAY_LONG_CONTROLVALUE[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_CONTROLVALUE[0]))[tmp_long]=qbr(func_val(__STRING_E)); +if(!qbevent)break;evnt(6392);}while(r); +}else{ +S_7716:; +if (((*__LONG_TYP&*__LONG_ISREFERENCE))||new_error){ +if(qbevent){evnt(6394);if(r)goto S_7716;} +do{ +qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass876= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6394);}while(r); +} +S_7719:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(6395);if(r)goto S_7719;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6395);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass877=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("static ",7),__STRING_T),qbs_new_txt_len(" sc_",4)),FUNC_STR2(__LONG_U)),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6396);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass878=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("sc_",3),FUNC_STR2(__LONG_U)),qbs_new_txt_len("=",1)),__STRING_E),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6397);}while(r); +S_7724:; +if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||new_error){ +if(qbevent){evnt(6398);if(r)goto S_7724;} +do{ +SUB_WRITEBUFLINE(&(pass879=*__LONG_MAINTXTBUF),qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6398);}while(r); +} +} +} +} +do{ +tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLREF[4],__ARRAY_LONG_CONTROLREF[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_CONTROLREF[0]))[tmp_long]=*__LONG_LINENUMBER; +if(!qbevent)break;evnt(6406);}while(r); +do{ +tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[tmp_long]= 10 +*__LONG_T; +if(!qbevent)break;evnt(6407);}while(r); +do{ +tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_CONTROLID[0]))[tmp_long]=*__LONG_U; +if(!qbevent)break;evnt(6408);}while(r); +S_7733:; +if ((((int32*)(__ARRAY_LONG_EVERYCASESET[0]))[array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_EVERYCASESET[4],__ARRAY_LONG_EVERYCASESET[5])])||new_error){ +if(qbevent){evnt(6409);if(r)goto S_7733;} +do{ +SUB_WRITEBUFLINE(&(pass880=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("int32 sc_",9),FUNC_STR2((&(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])])))),qbs_new_txt_len("_var;",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6409);}while(r); +} +S_7736:; +if ((((int32*)(__ARRAY_LONG_EVERYCASESET[0]))[array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_EVERYCASESET[4],__ARRAY_LONG_EVERYCASESET[5])])||new_error){ +if(qbevent){evnt(6410);if(r)goto S_7736;} +do{ +SUB_WRITEBUFLINE(&(pass881=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sc_",3),FUNC_STR2((&(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])])))),qbs_new_txt_len("_var=0;",7))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6410);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(6411);}while(r); +} +} +S_7742:; +if ((-(*__LONG_N== 2 ))||new_error){ +if(qbevent){evnt(6417);if(r)goto S_7742;} +S_7743:; +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)))))||new_error){ +if(qbevent){evnt(6418);if(r)goto S_7743;} +S_7744:; +if ((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]== 18 ))||new_error){ +if(qbevent){evnt(6422);if(r)goto S_7744;} +do{ +*__LONG_EVERYCASENEWCASE=*__LONG_EVERYCASENEWCASE+ 1 ; +if(!qbevent)break;evnt(6423);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass882=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sc_ec_",6),FUNC_STR2(__LONG_EVERYCASENEWCASE)),qbs_new_txt_len("_end:;",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6424);}while(r); +do{ +*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ; +if(!qbevent)break;evnt(6425);}while(r); +S_7748:; +if ((-(((int32*)(__ARRAY_LONG_EVERYCASESET[0]))[array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_EVERYCASESET[4],__ARRAY_LONG_EVERYCASESET[5])]== 0 ))||new_error){ +if(qbevent){evnt(6426);if(r)goto S_7748;} +do{ +SUB_WRITEBUFLINE(&(pass883=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("goto sc_",8),FUNC_STR2((&(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])])))),qbs_new_txt_len("_end;",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6426);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass884=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6427);}while(r); +} +S_7753:; +if ((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]== 19 ))||new_error){ +if(qbevent){evnt(6429);if(r)goto S_7753;} +do{ +*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ; +if(!qbevent)break;evnt(6430);}while(r); +S_7755:; +if ((((int32*)(__ARRAY_LONG_EVERYCASESET[0]))[array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_EVERYCASESET[4],__ARRAY_LONG_EVERYCASESET[5])])||new_error){ +if(qbevent){evnt(6431);if(r)goto S_7755;} +do{ +SUB_WRITEBUFLINE(&(pass885=*__LONG_MAINTXTBUF),qbs_new_txt_len("} /* End of SELECT EVERYCASE ELSE */",36)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6431);}while(r); +} +} +do{ +SUB_WRITEBUFLINE(&(pass886=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sc_",3),FUNC_STR2((&(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])])))),qbs_new_txt_len("_end:;",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6434);}while(r); +S_7760:; +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 )))||new_error){ +if(qbevent){evnt(6435);if(r)goto S_7760;} +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(6435);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6435);}while(r); +} +S_7764:; +if (((-(*__LONG_NOCHECKS== 0 ))&(-(*__LONG_VWATCHON== 1 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||new_error){ +if(qbevent){evnt(6437);if(r)goto S_7764;} +do{ +SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass887= 0 )); +if(!qbevent)break;evnt(6438);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass888=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= ",27),FUNC_STR2(__LONG_LINENUMBER)),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(6439);}while(r); +} +S_7768:; +if (((-(*__ULONG_SELECTCASECOUNTER> 0 ))&(-(((int32*)(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]))[array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_SELECTCASEHASCASEBLOCK[4],__ARRAY_LONG_SELECTCASEHASCASEBLOCK[5])]== 0 )))||new_error){ +if(qbevent){evnt(6442);if(r)goto S_7768;} +S_7769:; +if ((~(*__BYTE_IGNOREWARNINGS))||new_error){ +if(qbevent){evnt(6444);if(r)goto S_7769;} +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(6445);}while(r); +} +} +do{ +*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ; +if(!qbevent)break;evnt(6449);}while(r); +do{ +*__ULONG_SELECTCASECOUNTER=*__ULONG_SELECTCASECOUNTER- 1 ; +if(!qbevent)break;evnt(6450);}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(6451);}while(r); +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(6452);}while(r); +S_7777:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(6452);if(r)goto S_7777;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6452);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6452);}while(r); +} +do{ +goto LABEL_FINISHEDNONEXEC; +if(!qbevent)break;evnt(6453);}while(r); +} +} +S_7785:; +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 ))))||new_error){ +if(qbevent){evnt(6458);if(r)goto S_7785;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected CASE expression",24)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6459);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6459);}while(r); +} +S_7789:; +if ((-(*__LONG_N>= 1 ))||new_error){ +if(qbevent){evnt(6464);if(r)goto S_7789;} +S_7790:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("CASE",4))))||new_error){ +if(qbevent){evnt(6465);if(r)goto S_7790;} +do{ +qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Case",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6467);}while(r); +S_7792:; +if ((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]== 19 ))||new_error){ +if(qbevent){evnt(6471);if(r)goto S_7792;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected END SELECT",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6471);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6471);}while(r); +} +S_7796:; +if ((-(((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]== 18 ))||new_error){ +if(qbevent){evnt(6472);if(r)goto S_7796;} +do{ +*__LONG_LHSCONTROLLEVEL=*__LONG_LHSCONTROLLEVEL- 1 ; +if(!qbevent)break;evnt(6473);}while(r); +do{ +*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL- 1 ; +if(!qbevent)break;evnt(6474);}while(r); +do{ +*__LONG_EVERYCASENEWCASE=*__LONG_EVERYCASENEWCASE+ 1 ; +if(!qbevent)break;evnt(6475);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass890=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sc_ec_",6),FUNC_STR2(__LONG_EVERYCASENEWCASE)),qbs_new_txt_len("_end:;",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6476);}while(r); +S_7801:; +if ((-(((int32*)(__ARRAY_LONG_EVERYCASESET[0]))[array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_EVERYCASESET[4],__ARRAY_LONG_EVERYCASESET[5])]== 0 ))||new_error){ +if(qbevent){evnt(6477);if(r)goto S_7801;} +do{ +SUB_WRITEBUFLINE(&(pass891=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("goto sc_",8),FUNC_STR2((&(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])])))),qbs_new_txt_len("_end;",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6478);}while(r); +}else{ +do{ +SUB_WRITEBUFLINE(&(pass892=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sc_",3),FUNC_STR2((&(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])])))),qbs_new_txt_len("_var=-1;",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6480);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass893=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6482);}while(r); +} +S_7808:; +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 )))))||new_error){ +if(qbevent){evnt(6488);if(r)goto S_7808;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("CASE without SELECT CASE",24)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6488);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6488);}while(r); +} +S_7812:; +if ((-(*__LONG_N== 1 ))||new_error){ +if(qbevent){evnt(6489);if(r)goto S_7812;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected CASE expression",24)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6489);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6489);}while(r); +} +do{ +tmp_long=array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_SELECTCASEHASCASEBLOCK[4],__ARRAY_LONG_SELECTCASEHASCASEBLOCK[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_SELECTCASEHASCASEBLOCK[0]))[tmp_long]= -1 ; +if(!qbevent)break;evnt(6490);}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(6523);}while(r); +do{ +*__LONG_FLT= 0 ; +if(!qbevent)break;evnt(6525);}while(r); +S_7819:; +if ((-(*__LONG_T== 0 ))||new_error){ +if(qbevent){evnt(6526);if(r)goto S_7819;} +do{ +qbs_set(__STRING_TC,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6526);}while(r); +} +S_7822:; +if ((-(*__LONG_T== 1 ))||new_error){ +if(qbevent){evnt(6527);if(r)goto S_7822;} +do{ +qbs_set(__STRING_TC,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6527);}while(r); +} +S_7825:; +if ((-(*__LONG_T== 2 ))||new_error){ +if(qbevent){evnt(6528);if(r)goto S_7825;} +do{ +qbs_set(__STRING_TC,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6528);}while(r); +} +S_7828:; +if ((-(*__LONG_T== 3 ))||new_error){ +if(qbevent){evnt(6529);if(r)goto S_7828;} +do{ +qbs_set(__STRING_TC,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6529);}while(r); +do{ +*__LONG_FLT= 1 ; +if(!qbevent)break;evnt(6529);}while(r); +} +S_7832:; +if ((-(*__LONG_T== 4 ))||new_error){ +if(qbevent){evnt(6530);if(r)goto S_7832;} +do{ +qbs_set(__STRING_TC,qbs_new_txt_len("(float)",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6530);}while(r); +do{ +*__LONG_FLT= 1 ; +if(!qbevent)break;evnt(6530);}while(r); +} +S_7836:; +if ((-(*__LONG_T== 5 ))||new_error){ +if(qbevent){evnt(6531);if(r)goto S_7836;} +do{ +qbs_set(__STRING_TC,qbs_new_txt_len("(double)",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6531);}while(r); +do{ +*__LONG_FLT= 1 ; +if(!qbevent)break;evnt(6531);}while(r); +} +S_7840:; +if ((-(*__LONG_T== 6 ))||new_error){ +if(qbevent){evnt(6532);if(r)goto S_7840;} +do{ +qbs_set(__STRING_TC,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6532);}while(r); +} +S_7843:; +if ((-(*__LONG_T== 7 ))||new_error){ +if(qbevent){evnt(6533);if(r)goto S_7843;} +do{ +qbs_set(__STRING_TC,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6533);}while(r); +} +do{ +qbs_set(__STRING_N,qbs_add(qbs_new_txt_len("sc_",3),FUNC_STR2((&(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])]))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6535);}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(6536);}while(r); +S_7848:; +if ((*__LONG_CV)||new_error){ +if(qbevent){evnt(6537);if(r)goto S_7848;} +do{ +qbs_set(__STRING_N,FUNC_REFER(FUNC_STR2(__LONG_CV),&(pass894= 0 ),&(pass895= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6538);}while(r); +S_7850:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(6539);if(r)goto S_7850;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6539);}while(r); +} +} +S_7854:; +if ((-(*__LONG_N== 2 ))||new_error){ +if(qbevent){evnt(6543);if(r)goto S_7854;} +S_7855:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass896= 2 )),qbs_new_txt_len("C-EL",4))))||new_error){ +if(qbevent){evnt(6544);if(r)goto S_7855;} +S_7856:; +if ((((int32*)(__ARRAY_LONG_EVERYCASESET[0]))[array_check((*__ULONG_SELECTCASECOUNTER)-__ARRAY_LONG_EVERYCASESET[4],__ARRAY_LONG_EVERYCASESET[5])])||new_error){ +if(qbevent){evnt(6545);if(r)goto S_7856;} +do{ +SUB_WRITEBUFLINE(&(pass897=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if (sc_",7),FUNC_STR2((&(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])])))),qbs_new_txt_len("_var==0) {",10))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6545);}while(r); +} +do{ +*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL+ 1 ; +if(!qbevent)break;evnt(6546);}while(r); +do{ +tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[tmp_long]= 19 ; +if(!qbevent)break;evnt(6546);}while(r); +do{ +tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLREF[4],__ARRAY_LONG_CONTROLREF[5]); +if (!new_error) ((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(6547);}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(6548);}while(r); +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(6549);}while(r); +S_7864:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(6549);if(r)goto S_7864;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6549);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6549);}while(r); +} +do{ +goto LABEL_FINISHEDNONEXEC; +if(!qbevent)break;evnt(6550);}while(r); +} +} +S_7872:; +if ((-(*__LONG_NOCHECKS== 0 ))||new_error){ +if(qbevent){evnt(6554);if(r)goto S_7872;} +do{ +SUB_WRITEBUFLINE(&(pass899=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("S_",2),FUNC_STR2(__LONG_STATEMENTN)),qbs_new_txt_len(":;",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6555);}while(r); +do{ +*__LONG_DYNSCOPE= 1 ; +if(!qbevent)break;evnt(6555);}while(r); +S_7875:; +if (((-(*__LONG_VWATCHON== 1 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||new_error){ +if(qbevent){evnt(6556);if(r)goto S_7875;} +do{ +SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass900= 0 )); +if(!qbevent)break;evnt(6557);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass901=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= ",27),FUNC_STR2(__LONG_LINENUMBER)),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(6558);}while(r); +} +} +do{ +qbs_set(__STRING_F12,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6564);}while(r); +do{ +*__LONG_NEXP= 0 ; +if(!qbevent)break;evnt(6566);}while(r); +do{ +*__LONG_B= 0 ; +if(!qbevent)break;evnt(6567);}while(r); +do{ +qbs_set(__STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6568);}while(r); +S_7884:; +fornext_value903= 2 ; +fornext_finalvalue903=*__LONG_N; +fornext_step903= 1 ; +if (fornext_step903<0) fornext_step_negative903=1; else fornext_step_negative903=0; +if (new_error) goto fornext_error903; +goto fornext_entrylabel903; +while(1){ +fornext_value903=fornext_step903+(*__LONG_I); +fornext_entrylabel903: +*__LONG_I=fornext_value903; +if (fornext_step_negative903){ +if (fornext_value903fornext_finalvalue903) break; +} +fornext_error903:; +if(qbevent){evnt(6569);if(r)goto S_7884;} +do{ +qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6570);}while(r); +S_7886:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(6571);if(r)goto S_7886;} +do{ +*__LONG_B=*__LONG_B+ 1 ; +if(!qbevent)break;evnt(6571);}while(r); +} +S_7889:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(6572);if(r)goto S_7889;} +do{ +*__LONG_B=*__LONG_B- 1 ; +if(!qbevent)break;evnt(6572);}while(r); +} +S_7892:; +if ((-(*__LONG_I==*__LONG_N))||new_error){ +if(qbevent){evnt(6573);if(r)goto S_7892;} +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(6573);}while(r); +} +S_7895:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_I==*__LONG_N))|(((qbs_equal(__STRING_E2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))))||new_error){ +if(qbevent){evnt(6574);if(r)goto S_7895;} +S_7896:; +if ((-(*__LONG_NEXP!= 0 ))||new_error){ +if(qbevent){evnt(6575);if(r)goto S_7896;} +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(6575);}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(6575);}while(r); +} +S_7900:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(6576);if(r)goto S_7900;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected expression",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6576);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6576);}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(6577);}while(r); +do{ +*__LONG_N2=FUNC_NUMELEMENTS(__STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6582);}while(r); +do{ +*__LONG_B2= 0 ; +if(!qbevent)break;evnt(6583);}while(r); +do{ +qbs_set(__STRING_EL,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6584);}while(r); +do{ +qbs_set(__STRING_ER,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6584);}while(r); +do{ +*__LONG_USEDTO= 0 ; +if(!qbevent)break;evnt(6585);}while(r); +S_7910:; +fornext_value906= 1 ; +fornext_finalvalue906=*__LONG_N2; +fornext_step906= 1 ; +if (fornext_step906<0) fornext_step_negative906=1; else fornext_step_negative906=0; +if (new_error) goto fornext_error906; +goto fornext_entrylabel906; +while(1){ +fornext_value906=fornext_step906+(*__LONG_I2); +fornext_entrylabel906: +*__LONG_I2=fornext_value906; +if (fornext_step_negative906){ +if (fornext_value906fornext_finalvalue906) break; +} +fornext_error906:; +if(qbevent){evnt(6586);if(r)goto S_7910;} +do{ +qbs_set(__STRING_E3,FUNC_GETELEMENT(__STRING_E,__LONG_I2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6587);}while(r); +S_7912:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E3,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(6588);if(r)goto S_7912;} +do{ +*__LONG_B2=*__LONG_B2+ 1 ; +if(!qbevent)break;evnt(6588);}while(r); +} +S_7915:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E3,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(6589);if(r)goto S_7915;} +do{ +*__LONG_B2=*__LONG_B2- 1 ; +if(!qbevent)break;evnt(6589);}while(r); +} +S_7918:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_B2== 0 ))&(qbs_equal(qbs_ucase(__STRING_E3),qbs_new_txt_len("TO",2)))))||new_error){ +if(qbevent){evnt(6590);if(r)goto S_7918;} +do{ +*__LONG_USEDTO= 1 ; +if(!qbevent)break;evnt(6591);}while(r); +}else{ +S_7921:; +if ((-(*__LONG_USEDTO== 0 ))||new_error){ +if(qbevent){evnt(6593);if(r)goto S_7921;} +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(6593);}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(6593);}while(r); +} +} +fornext_continue_905:; +} +fornext_exit_905:; +S_7928:; +if ((-(*__LONG_USEDTO== 1 ))||new_error){ +if(qbevent){evnt(6596);if(r)goto S_7928;} +S_7929:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_EL,qbs_new_txt_len("",0)))|(qbs_equal(__STRING_ER,qbs_new_txt_len("",0)))))||new_error){ +if(qbevent){evnt(6597);if(r)goto S_7929;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected expression TO expression",33)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6597);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6597);}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(6598);}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(6598);}while(r); +S_7935:; +fornext_value910= 1 ; +fornext_finalvalue910= 2 ; +fornext_step910= 1 ; +if (fornext_step910<0) fornext_step_negative910=1; else fornext_step_negative910=0; +if (new_error) goto fornext_error910; +goto fornext_entrylabel910; +while(1){ +fornext_value910=fornext_step910+(*__LONG_I2); +fornext_entrylabel910: +*__LONG_I2=fornext_value910; +if (fornext_step_negative910){ +if (fornext_value910fornext_finalvalue910) break; +} +fornext_error910:; +if(qbevent){evnt(6600);if(r)goto S_7935;} +S_7936:; +if ((-(*__LONG_I2== 1 ))||new_error){ +if(qbevent){evnt(6601);if(r)goto S_7936;} +do{ +qbs_set(__STRING_E,__STRING_EL); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6601);}while(r); +}else{ +do{ +qbs_set(__STRING_E,__STRING_ER); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6601);}while(r); +} +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6602);}while(r); +S_7942:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(6603);if(r)goto S_7942;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6603);}while(r); +} +S_7945:; +if ((-(*__LONG_I2== 1 ))||new_error){ +if(qbevent){evnt(6604);if(r)goto S_7945;} +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(6604);}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(6604);}while(r); +} +do{ +qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6605);}while(r); +S_7951:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(6606);if(r)goto S_7951;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6606);}while(r); +} +S_7954:; +if (((*__LONG_TYP&*__LONG_ISREFERENCE))||new_error){ +if(qbevent){evnt(6607);if(r)goto S_7954;} +do{ +qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass911= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6607);}while(r); +} +S_7957:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(6608);if(r)goto S_7957;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6608);}while(r); +} +S_7960:; +if ((-(*__LONG_T== 0 ))||new_error){ +if(qbevent){evnt(6609);if(r)goto S_7960;} +S_7961:; +if ((-((*__LONG_TYP&*__LONG_ISSTRING)== 0 ))||new_error){ +if(qbevent){evnt(6610);if(r)goto S_7961;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected string expression",26)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6610);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6610);}while(r); +} +S_7965:; +if ((-(*__LONG_I2== 1 ))||new_error){ +if(qbevent){evnt(6611);if(r)goto S_7965;} +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(6611);}while(r); +} +S_7968:; +if ((-(*__LONG_I2== 2 ))||new_error){ +if(qbevent){evnt(6612);if(r)goto S_7968;} +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(6612);}while(r); +} +}else{ +S_7972:; +if (((*__LONG_TYP&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(6614);if(r)goto S_7972;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected numeric expression",27)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6614);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6614);}while(r); +} +S_7976:; +if (((*__LONG_TYP&*__LONG_ISFLOAT))||new_error){ +if(qbevent){evnt(6616);if(r)goto S_7976;} +S_7977:; +if ((-(*__LONG_T== 1 ))||new_error){ +if(qbevent){evnt(6617);if(r)goto S_7977;} +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(6617);}while(r); +} +S_7980:; +if ((-(*__LONG_T== 2 ))||new_error){ +if(qbevent){evnt(6618);if(r)goto S_7980;} +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(6618);}while(r); +} +S_7983:; +if (((-(*__LONG_T== 6 ))|(-(*__LONG_T== 7 )))||new_error){ +if(qbevent){evnt(6619);if(r)goto S_7983;} +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(6619);}while(r); +} +} +S_7987:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_TC->len))||new_error){ +if(qbevent){evnt(6622);if(r)goto S_7987;} +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(6622);}while(r); +} +S_7990:; +if ((-(*__LONG_I2== 1 ))||new_error){ +if(qbevent){evnt(6623);if(r)goto S_7990;} +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(6623);}while(r); +} +S_7993:; +if ((-(*__LONG_I2== 2 ))||new_error){ +if(qbevent){evnt(6624);if(r)goto S_7993;} +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(6624);}while(r); +} +} +fornext_continue_909:; +} +fornext_exit_909:; +do{ +goto LABEL_ADDEDEXP; +if(!qbevent)break;evnt(6627);}while(r); +} +do{ +qbs_set(__STRING_O,qbs_new_txt_len("==",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6649);}while(r); +do{ +qbs_set(__STRING_X,FUNC_GETELEMENT(__STRING_E,&(pass913= 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6652);}while(r); +S_8002:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_ISOPERATOR(__STRING_X)))||new_error){ +if(qbevent){evnt(6653);if(r)goto S_8002;} +S_8003:; +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)))))||new_error){ +if(qbevent){evnt(6654);if(r)goto S_8003;} +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(6655);}while(r); +do{ +qbs_set(__STRING_X,qbs_new_txt_len("IS",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6656);}while(r); +} +} +S_8008:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_X),qbs_new_txt_len("IS",2))))||new_error){ +if(qbevent){evnt(6659);if(r)goto S_8008;} +do{ +*__LONG_N2=FUNC_NUMELEMENTS(__STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6660);}while(r); +S_8010:; +if ((-(*__LONG_N2< 3 ))||new_error){ +if(qbevent){evnt(6661);if(r)goto S_8010;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected IS =,<>,>,<,>=,<= expression",37)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6661);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6661);}while(r); +} +do{ +qbs_set(__STRING_O,FUNC_GETELEMENT(__STRING_E,&(pass914= 2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6662);}while(r); +do{ +qbs_set(__STRING_O2,__STRING_O); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6663);}while(r); +do{ +*__LONG_O= 0 ; +if(!qbevent)break;evnt(6664);}while(r); +S_8017:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len("=",1))))||new_error){ +if(qbevent){evnt(6665);if(r)goto S_8017;} +do{ +qbs_set(__STRING_O,qbs_new_txt_len("==",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6665);}while(r); +do{ +*__LONG_O= 1 ; +if(!qbevent)break;evnt(6665);}while(r); +} +S_8021:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len("<>",2))))||new_error){ +if(qbevent){evnt(6666);if(r)goto S_8021;} +do{ +qbs_set(__STRING_O,qbs_new_txt_len("!=",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6666);}while(r); +do{ +*__LONG_O= 1 ; +if(!qbevent)break;evnt(6666);}while(r); +} +S_8025:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len(">",1))))||new_error){ +if(qbevent){evnt(6667);if(r)goto S_8025;} +do{ +*__LONG_O= 1 ; +if(!qbevent)break;evnt(6667);}while(r); +} +S_8028:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len("<",1))))||new_error){ +if(qbevent){evnt(6668);if(r)goto S_8028;} +do{ +*__LONG_O= 1 ; +if(!qbevent)break;evnt(6668);}while(r); +} +S_8031:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len(">=",2))))||new_error){ +if(qbevent){evnt(6669);if(r)goto S_8031;} +do{ +*__LONG_O= 1 ; +if(!qbevent)break;evnt(6669);}while(r); +} +S_8034:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len("<=",2))))||new_error){ +if(qbevent){evnt(6670);if(r)goto S_8034;} +do{ +*__LONG_O= 1 ; +if(!qbevent)break;evnt(6670);}while(r); +} +S_8037:; +if ((-(*__LONG_O!= 1 ))||new_error){ +if(qbevent){evnt(6671);if(r)goto S_8037;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected IS =,<>,>,<,>=,<= expression",37)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6671);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6671);}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(6672);}while(r); +do{ +qbs_set(__STRING_E,FUNC_GETELEMENTS(__STRING_E,&(pass915= 3 ),__LONG_N2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6673);}while(r); +} +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6678);}while(r); +S_8045:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(6679);if(r)goto S_8045;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6679);}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(6680);}while(r); +do{ +qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6681);}while(r); +S_8050:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(6682);if(r)goto S_8050;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6682);}while(r); +} +S_8053:; +if (((*__LONG_TYP&*__LONG_ISREFERENCE))||new_error){ +if(qbevent){evnt(6683);if(r)goto S_8053;} +do{ +qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass916= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6683);}while(r); +} +S_8056:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(6684);if(r)goto S_8056;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6684);}while(r); +} +S_8059:; +if ((-(*__LONG_T== 0 ))||new_error){ +if(qbevent){evnt(6685);if(r)goto S_8059;} +S_8060:; +if ((-((*__LONG_TYP&*__LONG_ISSTRING)== 0 ))||new_error){ +if(qbevent){evnt(6687);if(r)goto S_8060;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected string expression",26)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6687);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6687);}while(r); +} +S_8064:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len("==",2))))||new_error){ +if(qbevent){evnt(6688);if(r)goto S_8064;} +do{ +qbs_set(__STRING_O,qbs_new_txt_len("qbs_equal",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6688);}while(r); +} +S_8067:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len("!=",2))))||new_error){ +if(qbevent){evnt(6689);if(r)goto S_8067;} +do{ +qbs_set(__STRING_O,qbs_new_txt_len("qbs_notequal",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6689);}while(r); +} +S_8070:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len(">",1))))||new_error){ +if(qbevent){evnt(6690);if(r)goto S_8070;} +do{ +qbs_set(__STRING_O,qbs_new_txt_len("qbs_greaterthan",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6690);}while(r); +} +S_8073:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len("<",1))))||new_error){ +if(qbevent){evnt(6691);if(r)goto S_8073;} +do{ +qbs_set(__STRING_O,qbs_new_txt_len("qbs_lessthan",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6691);}while(r); +} +S_8076:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len(">=",2))))||new_error){ +if(qbevent){evnt(6692);if(r)goto S_8076;} +do{ +qbs_set(__STRING_O,qbs_new_txt_len("qbs_greaterorequal",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6692);}while(r); +} +S_8079:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_O,qbs_new_txt_len("<=",2))))||new_error){ +if(qbevent){evnt(6693);if(r)goto S_8079;} +do{ +qbs_set(__STRING_O,qbs_new_txt_len("qbs_lessorequal",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6693);}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(6694);}while(r); +}else{ +S_8084:; +if (((*__LONG_TYP&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(6697);if(r)goto S_8084;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected numeric expression",27)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6697);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6697);}while(r); +} +S_8088:; +if (((*__LONG_TYP&*__LONG_ISFLOAT))||new_error){ +if(qbevent){evnt(6699);if(r)goto S_8088;} +S_8089:; +if ((-(*__LONG_T== 1 ))||new_error){ +if(qbevent){evnt(6700);if(r)goto S_8089;} +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(6700);}while(r); +} +S_8092:; +if ((-(*__LONG_T== 2 ))||new_error){ +if(qbevent){evnt(6701);if(r)goto S_8092;} +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(6701);}while(r); +} +S_8095:; +if (((-(*__LONG_T== 6 ))|(-(*__LONG_T== 7 )))||new_error){ +if(qbevent){evnt(6702);if(r)goto S_8095;} +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(6702);}while(r); +} +} +S_8099:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_TC->len))||new_error){ +if(qbevent){evnt(6705);if(r)goto S_8099;} +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(6705);}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(6706);}while(r); +} +LABEL_ADDEDEXP:; +if(qbevent){evnt(6709);r=0;} +do{ +qbs_set(__STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6710);}while(r); +do{ +*__LONG_NEXP=*__LONG_NEXP+ 1 ; +if(!qbevent)break;evnt(6711);}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(6713);}while(r); +} +fornext_continue_902:; +} +fornext_exit_902:; +S_8110:; +if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||new_error){ +if(qbevent){evnt(6717);if(r)goto S_8110;} +do{ +SUB_WRITEBUFLINE(&(pass918=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if ((",5),__STRING_CLEANUPSTRINGPROCESSINGCALL),__STRING_F12),qbs_new_txt_len("))||new_error){",15))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6718);}while(r); +}else{ +do{ +SUB_WRITEBUFLINE(&(pass919=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if ((",5),__STRING_F12),qbs_new_txt_len(")||new_error){",14))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6720);}while(r); +} +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(6723);}while(r); +S_8116:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(6723);if(r)goto S_8116;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6723);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6723);}while(r); +} +do{ +*__INTEGER_CONTROLLEVEL=*__INTEGER_CONTROLLEVEL+ 1 ; +if(!qbevent)break;evnt(6724);}while(r); +do{ +tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_LONG_CONTROLREF[4],__ARRAY_LONG_CONTROLREF[5]); +if (!new_error) ((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(6725);}while(r); +do{ +tmp_long=array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[tmp_long]= 18 ; +if(!qbevent)break;evnt(6726);}while(r); +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(6727);}while(r); +} +} +S_8127:; +if ((-(*__LONG_NOCHECKS== 0 ))||new_error){ +if(qbevent){evnt(6744);if(r)goto S_8127;} +S_8128:; +if (((-(*__LONG_VWATCHON== 1 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||new_error){ +if(qbevent){evnt(6745);if(r)goto S_8128;} +do{ +SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass921= 0 )); +if(!qbevent)break;evnt(6746);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass922=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("do{*__LONG_VWATCH_LINENUMBER= ",30),FUNC_STR2(__LONG_LINENUMBER)),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(6747);}while(r); +}else{ +do{ +SUB_WRITEBUFLINE(&(pass923=*__LONG_MAINTXTBUF),qbs_new_txt_len("do{",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6749);}while(r); +} +} +S_8135:; +if ((-(*__LONG_N> 1 ))||new_error){ +if(qbevent){evnt(6755);if(r)goto S_8135;} +S_8136:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("PALETTE",7))))||new_error){ +if(qbevent){evnt(6756);if(r)goto S_8136;} +S_8137:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("USING",5))))||new_error){ +if(qbevent){evnt(6757);if(r)goto S_8137;} +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(6758);}while(r); +S_8139:; +if ((-(*__LONG_N< 3 ))||new_error){ +if(qbevent){evnt(6759);if(r)goto S_8139;} +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(6759);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6759);}while(r); +} +do{ +qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_CA,&(pass924= 3 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6761);}while(r); +S_8144:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_FINDARRAY(__STRING_E)))||new_error){ +if(qbevent){evnt(6762);if(r)goto S_8144;} +S_8145:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(6763);if(r)goto S_8145;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6763);}while(r); +} +do{ +*__LONG_Z= 1 ; +if(!qbevent)break;evnt(6764);}while(r); +do{ +*__LONG_T=*(int32*)(((char*)__UDT_ID)+(512)); +if(!qbevent)break;evnt(6765);}while(r); +S_8150:; +if (((-((*__LONG_T& 511 )!= 16 ))&(-((*__LONG_T& 511 )!= 32 )))||new_error){ +if(qbevent){evnt(6766);if(r)goto S_8150;} +do{ +*__LONG_Z= 0 ; +if(!qbevent)break;evnt(6766);}while(r); +} +S_8153:; +if ((*__LONG_T&*__LONG_ISFLOAT)||new_error){ +if(qbevent){evnt(6767);if(r)goto S_8153;} +do{ +*__LONG_Z= 0 ; +if(!qbevent)break;evnt(6767);}while(r); +} +S_8156:; +if ((*__LONG_T&*__LONG_ISOFFSETINBITS)||new_error){ +if(qbevent){evnt(6768);if(r)goto S_8156;} +do{ +*__LONG_Z= 0 ; +if(!qbevent)break;evnt(6768);}while(r); +} +S_8159:; +if ((*__LONG_T&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(6769);if(r)goto S_8159;} +do{ +*__LONG_Z= 0 ; +if(!qbevent)break;evnt(6769);}while(r); +} +S_8162:; +if ((*__LONG_T&*__LONG_ISUDT)||new_error){ +if(qbevent){evnt(6770);if(r)goto S_8162;} +do{ +*__LONG_Z= 0 ; +if(!qbevent)break;evnt(6770);}while(r); +} +S_8165:; +if ((*__LONG_T&*__LONG_ISUNSIGNED)||new_error){ +if(qbevent){evnt(6771);if(r)goto S_8165;} +do{ +*__LONG_Z= 0 ; +if(!qbevent)break;evnt(6771);}while(r); +} +S_8168:; +if ((-(*__LONG_Z== 0 ))||new_error){ +if(qbevent){evnt(6772);if(r)goto S_8168;} +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(6772);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6772);}while(r); +} +do{ +*__LONG_BITS=*__LONG_T& 511 ; +if(!qbevent)break;evnt(6773);}while(r); +do{ +goto LABEL_PU_GOTARRAY; +if(!qbevent)break;evnt(6774);}while(r); +} +S_8175:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(6776);if(r)goto S_8175;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6776);}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(6777);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6777);}while(r); +LABEL_PU_GOTARRAY:; +if(qbevent){evnt(6778);r=0;} +S_8180:; +if ((-(*__LONG_N== 3 ))||new_error){ +if(qbevent){evnt(6780);if(r)goto S_8180;} +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(6781);}while(r); +}else{ +S_8183:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_N== 4 ))|(qbs_notequal(FUNC_GETELEMENT(__STRING_A,&(pass925= 4 )),qbs_new_txt_len("(",1)))|(qbs_notequal(FUNC_GETELEMENT(__STRING_A,__LONG_N),qbs_new_txt_len(")",1)))))||new_error){ +if(qbevent){evnt(6783);if(r)goto S_8183;} +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(6783);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6783);}while(r); +} +do{ +qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),FUNC_GETELEMENTS(__STRING_CA,&(pass926= 4 ),__LONG_N))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6784);}while(r); +} +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6786);}while(r); +S_8190:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(6787);if(r)goto S_8190;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6787);}while(r); +} +do{ +qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6788);}while(r); +do{ +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass927= -2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6789);}while(r); +S_8195:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(6790);if(r)goto S_8195;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6790);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass928=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("sub_paletteusing(",17),__STRING_E),qbs_new_txt_len(",",1)),FUNC_STR2(__LONG_BITS)),qbs_new_txt_len(");",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6791);}while(r); +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(6792);}while(r); +S_8200:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(6792);if(r)goto S_8200;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6792);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6792);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(6793);}while(r); +} +} +} +S_8209:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("KEY",3))))||new_error){ +if(qbevent){evnt(6799);if(r)goto S_8209;} +S_8210:; +if ((-(*__LONG_N== 1 ))||new_error){ +if(qbevent){evnt(6800);if(r)goto S_8210;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected KEY ...",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6800);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6800);}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(6801);}while(r); +S_8215:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("OFF",3))))||new_error){ +if(qbevent){evnt(6802);if(r)goto S_8215;} +S_8216:; +if ((-(*__LONG_N> 2 ))||new_error){ +if(qbevent){evnt(6803);if(r)goto S_8216;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected KEY OFF only",21)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6803);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6803);}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(6804);}while(r); +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(6804);}while(r); +S_8222:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(6804);if(r)goto S_8222;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6804);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6804);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass931=*__LONG_MAINTXTBUF),qbs_new_txt_len("key_off();",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6805);}while(r); +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(6806);}while(r); +} +S_8230:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("ON",2))))||new_error){ +if(qbevent){evnt(6808);if(r)goto S_8230;} +S_8231:; +if ((-(*__LONG_N> 2 ))||new_error){ +if(qbevent){evnt(6809);if(r)goto S_8231;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected KEY ON only",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6809);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6809);}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(6810);}while(r); +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(6810);}while(r); +S_8237:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(6810);if(r)goto S_8237;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6810);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6810);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass933=*__LONG_MAINTXTBUF),qbs_new_txt_len("key_on();",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6811);}while(r); +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(6812);}while(r); +} +S_8245:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("LIST",4))))||new_error){ +if(qbevent){evnt(6814);if(r)goto S_8245;} +S_8246:; +if ((-(*__LONG_N> 2 ))||new_error){ +if(qbevent){evnt(6815);if(r)goto S_8246;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected KEY LIST only",22)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6815);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6815);}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(6816);}while(r); +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(6816);}while(r); +S_8252:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(6816);if(r)goto S_8252;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6816);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6816);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass935=*__LONG_MAINTXTBUF),qbs_new_txt_len("key_list();",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6817);}while(r); +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(6818);}while(r); +} +do{ +*__LONG_B= 0 ; +if(!qbevent)break;evnt(6821);}while(r); +do{ +qbs_set(__STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6821);}while(r); +S_8262:; +fornext_value937= 2 ; +fornext_finalvalue937=*__LONG_N; +fornext_step937= 1 ; +if (fornext_step937<0) fornext_step_negative937=1; else fornext_step_negative937=0; +if (new_error) goto fornext_error937; +goto fornext_entrylabel937; +while(1){ +fornext_value937=fornext_step937+(*__LONG_I); +fornext_entrylabel937: +*__LONG_I=fornext_value937; +if (fornext_step_negative937){ +if (fornext_value937fornext_finalvalue937) break; +} +fornext_error937:; +if(qbevent){evnt(6822);if(r)goto S_8262;} +do{ +qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6823);}while(r); +S_8264:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(6824);if(r)goto S_8264;} +do{ +*__LONG_B=*__LONG_B+ 1 ; +if(!qbevent)break;evnt(6824);}while(r); +} +S_8267:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(6825);if(r)goto S_8267;} +do{ +*__LONG_B=*__LONG_B- 1 ; +if(!qbevent)break;evnt(6825);}while(r); +} +S_8270:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||new_error){ +if(qbevent){evnt(6826);if(r)goto S_8270;} +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(6827);}while(r); +do{ +goto LABEL_KEY_ASSIGNMENT; +if(!qbevent)break;evnt(6827);}while(r); +} +S_8274:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_E->len))||new_error){ +if(qbevent){evnt(6829);if(r)goto S_8274;} +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(6829);}while(r); +}else{ +do{ +qbs_set(__STRING_E,__STRING_E2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6829);}while(r); +} +fornext_continue_936:; +} +fornext_exit_936:; +do{ +goto LABEL_KEY_FALLTHROUGH; +if(!qbevent)break;evnt(6832);}while(r); +LABEL_KEY_ASSIGNMENT:; +if(qbevent){evnt(6833);r=0;} +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6836);}while(r); +S_8282:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(6837);if(r)goto S_8282;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6837);}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(6838);}while(r); +do{ +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass939= 32 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6839);}while(r); +S_8287:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(6840);if(r)goto S_8287;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6840);}while(r); +} +do{ +SUB_WRITEBUFRAWDATA(&(pass940=*__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(6841);}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(6843);}while(r); +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6844);}while(r); +S_8293:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(6845);if(r)goto S_8293;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6845);}while(r); +} +do{ +qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6846);}while(r); +do{ +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,__LONG_ISSTRING)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6847);}while(r); +S_8298:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(6848);if(r)goto S_8298;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6848);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass941=*__LONG_MAINTXTBUF),qbs_add(__STRING_E,qbs_new_txt_len(");",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6849);}while(r); +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(6850);}while(r); +S_8303:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(6850);if(r)goto S_8303;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6850);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6850);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(6851);}while(r); +} +LABEL_KEY_FALLTHROUGH:; +if(qbevent){evnt(6853);r=0;} +S_8310:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("FIELD",5))))||new_error){ +if(qbevent){evnt(6858);if(r)goto S_8310;} +do{ +*__LONG_B= 0 ; +if(!qbevent)break;evnt(6861);}while(r); +do{ +qbs_set(__STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6861);}while(r); +S_8313:; +fornext_value944= 2 ; +fornext_finalvalue944=*__LONG_N; +fornext_step944= 1 ; +if (fornext_step944<0) fornext_step_negative944=1; else fornext_step_negative944=0; +if (new_error) goto fornext_error944; +goto fornext_entrylabel944; +while(1){ +fornext_value944=fornext_step944+(*__LONG_I); +fornext_entrylabel944: +*__LONG_I=fornext_value944; +if (fornext_step_negative944){ +if (fornext_value944fornext_finalvalue944) break; +} +fornext_error944:; +if(qbevent){evnt(6862);if(r)goto S_8313;} +do{ +qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6863);}while(r); +S_8315:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(6864);if(r)goto S_8315;} +do{ +*__LONG_B=*__LONG_B+ 1 ; +if(!qbevent)break;evnt(6864);}while(r); +} +S_8318:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(6865);if(r)goto S_8318;} +do{ +*__LONG_B=*__LONG_B- 1 ; +if(!qbevent)break;evnt(6865);}while(r); +} +S_8321:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||new_error){ +if(qbevent){evnt(6866);if(r)goto S_8321;} +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(6867);}while(r); +do{ +goto LABEL_FIELDGOTFN; +if(!qbevent)break;evnt(6867);}while(r); +} +S_8325:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_E->len))||new_error){ +if(qbevent){evnt(6869);if(r)goto S_8325;} +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(6869);}while(r); +}else{ +do{ +qbs_set(__STRING_E,__STRING_E2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6869);}while(r); +} +fornext_continue_943:; +} +fornext_exit_943:; +do{ +goto LABEL_FIELDERROR; +if(!qbevent)break;evnt(6871);}while(r); +LABEL_FIELDGOTFN:; +if(qbevent){evnt(6872);r=0;} +S_8332:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E,qbs_new_txt_len("#",1)))|(-(__STRING_E->len== 0 ))))||new_error){ +if(qbevent){evnt(6873);if(r)goto S_8332;} +do{ +goto LABEL_FIELDERROR; +if(!qbevent)break;evnt(6873);}while(r); +} +S_8335:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal((qbs_left(__STRING_E, 2 )),(qbs_add(qbs_new_txt_len("#",1),__STRING1_SP)))))||new_error){ +if(qbevent){evnt(6874);if(r)goto S_8335;} +do{ +qbs_set(__STRING_E,qbs_right(__STRING_E,__STRING_E->len- 2 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6874);}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(6874);}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(6874);}while(r); +} +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6875);}while(r); +S_8342:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(6876);if(r)goto S_8342;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6876);}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(6877);}while(r); +do{ +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass948= 32 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6878);}while(r); +S_8347:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(6879);if(r)goto S_8347;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6879);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass949=*__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(6880);}while(r); +LABEL_FIELDNEXT:; +if(qbevent){evnt(6882);r=0;} +S_8351:; +if ((-(*__LONG_I>*__LONG_N))||new_error){ +if(qbevent){evnt(6885);if(r)goto S_8351;} +do{ +goto LABEL_FIELDERROR; +if(!qbevent)break;evnt(6885);}while(r); +} +do{ +*__LONG_B= 0 ; +if(!qbevent)break;evnt(6886);}while(r); +do{ +qbs_set(__STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6886);}while(r); +S_8356:; +fornext_value951=*__LONG_I; +fornext_finalvalue951=*__LONG_N; +fornext_step951= 1 ; +if (fornext_step951<0) fornext_step_negative951=1; else fornext_step_negative951=0; +if (new_error) goto fornext_error951; +goto fornext_entrylabel951; +while(1){ +fornext_value951=fornext_step951+(*__LONG_I); +fornext_entrylabel951: +*__LONG_I=fornext_value951; +if (fornext_step_negative951){ +if (fornext_value951fornext_finalvalue951) break; +} +fornext_error951:; +if(qbevent){evnt(6887);if(r)goto S_8356;} +do{ +qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6888);}while(r); +S_8358:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(6889);if(r)goto S_8358;} +do{ +*__LONG_B=*__LONG_B+ 1 ; +if(!qbevent)break;evnt(6889);}while(r); +} +S_8361:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(6890);if(r)goto S_8361;} +do{ +*__LONG_B=*__LONG_B- 1 ; +if(!qbevent)break;evnt(6890);}while(r); +} +S_8364:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_E2),qbs_new_txt_len("AS",2)))&(-(*__LONG_B== 0 ))))||new_error){ +if(qbevent){evnt(6891);if(r)goto S_8364;} +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(6892);}while(r); +do{ +goto LABEL_FIELDGOTFW; +if(!qbevent)break;evnt(6892);}while(r); +} +S_8368:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_E->len))||new_error){ +if(qbevent){evnt(6894);if(r)goto S_8368;} +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(6894);}while(r); +}else{ +do{ +qbs_set(__STRING_E,__STRING_E2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6894);}while(r); +} +fornext_continue_950:; +} +fornext_exit_950:; +do{ +goto LABEL_FIELDERROR; +if(!qbevent)break;evnt(6896);}while(r); +LABEL_FIELDGOTFW:; +if(qbevent){evnt(6897);r=0;} +S_8375:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E->len== 0 )))||new_error){ +if(qbevent){evnt(6898);if(r)goto S_8375;} +do{ +goto LABEL_FIELDERROR; +if(!qbevent)break;evnt(6898);}while(r); +} +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6899);}while(r); +S_8379:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(6900);if(r)goto S_8379;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6900);}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(6901);}while(r); +do{ +qbs_set(__STRING_SIZEE,FUNC_EVALUATETOTYP(__STRING_E,&(pass954= 32 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6902);}while(r); +S_8384:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(6903);if(r)goto S_8384;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6903);}while(r); +} +S_8387:; +if ((-(*__LONG_I>*__LONG_N))||new_error){ +if(qbevent){evnt(6906);if(r)goto S_8387;} +do{ +goto LABEL_FIELDERROR; +if(!qbevent)break;evnt(6906);}while(r); +} +do{ +*__LONG_B= 0 ; +if(!qbevent)break;evnt(6907);}while(r); +do{ +qbs_set(__STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6907);}while(r); +S_8392:; +fornext_value956=*__LONG_I; +fornext_finalvalue956=*__LONG_N; +fornext_step956= 1 ; +if (fornext_step956<0) fornext_step_negative956=1; else fornext_step_negative956=0; +if (new_error) goto fornext_error956; +goto fornext_entrylabel956; +while(1){ +fornext_value956=fornext_step956+(*__LONG_I); +fornext_entrylabel956: +*__LONG_I=fornext_value956; +if (fornext_step_negative956){ +if (fornext_value956fornext_finalvalue956) break; +} +fornext_error956:; +if(qbevent){evnt(6908);if(r)goto S_8392;} +do{ +qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6909);}while(r); +S_8394:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(6910);if(r)goto S_8394;} +do{ +*__LONG_B=*__LONG_B+ 1 ; +if(!qbevent)break;evnt(6910);}while(r); +} +S_8397:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(6911);if(r)goto S_8397;} +do{ +*__LONG_B=*__LONG_B- 1 ; +if(!qbevent)break;evnt(6911);}while(r); +} +S_8400:; +if ((qbs_cleanup(qbs_tmp_base,(((-(*__LONG_I==*__LONG_N))|(qbs_equal(__STRING_E2,qbs_new_txt_len(",",1)))))&(-(*__LONG_B== 0 ))))||new_error){ +if(qbevent){evnt(6912);if(r)goto S_8400;} +S_8401:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(",",1))))||new_error){ +if(qbevent){evnt(6913);if(r)goto S_8401;} +do{ +*__LONG_I=*__LONG_I- 1 ; +if(!qbevent)break;evnt(6913);}while(r); +} +S_8404:; +if ((-(*__LONG_I==*__LONG_N))||new_error){ +if(qbevent){evnt(6914);if(r)goto S_8404;} +S_8405:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_E->len))||new_error){ +if(qbevent){evnt(6915);if(r)goto S_8405;} +do{ +qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,__STRING1_SP),__STRING_E2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6915);}while(r); +}else{ +do{ +qbs_set(__STRING_E,__STRING_E2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6915);}while(r); +} +} +do{ +goto LABEL_FIELDGOTFNAME; +if(!qbevent)break;evnt(6917);}while(r); +} +S_8413:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_E->len))||new_error){ +if(qbevent){evnt(6919);if(r)goto S_8413;} +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(6919);}while(r); +}else{ +do{ +qbs_set(__STRING_E,__STRING_E2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6919);}while(r); +} +fornext_continue_955:; +} +fornext_exit_955:; +do{ +goto LABEL_FIELDERROR; +if(!qbevent)break;evnt(6921);}while(r); +LABEL_FIELDGOTFNAME:; +if(qbevent){evnt(6922);r=0;} +S_8420:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E->len== 0 )))||new_error){ +if(qbevent){evnt(6923);if(r)goto S_8420;} +do{ +goto LABEL_FIELDERROR; +if(!qbevent)break;evnt(6923);}while(r); +} +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6925);}while(r); +S_8424:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(6926);if(r)goto S_8424;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6926);}while(r); +} +do{ +qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6927);}while(r); +do{ +qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_TYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6928);}while(r); +S_8429:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(6929);if(r)goto S_8429;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6929);}while(r); +} +S_8432:; +if ((-((*__LONG_TYP&*__LONG_ISSTRING)== 0 ))||new_error){ +if(qbevent){evnt(6930);if(r)goto S_8432;} +do{ +goto LABEL_FIELDERROR; +if(!qbevent)break;evnt(6930);}while(r); +} +S_8435:; +if ((*__LONG_TYP&*__LONG_ISFIXEDLENGTH)||new_error){ +if(qbevent){evnt(6931);if(r)goto S_8435;} +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(6931);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6931);}while(r); +} +S_8439:; +if ((-((*__LONG_TYP&*__LONG_ISREFERENCE)== 0 ))||new_error){ +if(qbevent){evnt(6932);if(r)goto S_8439;} +do{ +goto LABEL_FIELDERROR; +if(!qbevent)break;evnt(6932);}while(r); +} +do{ +qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass960= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6933);}while(r); +S_8443:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(6934);if(r)goto S_8443;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6934);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass961=*__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(6935);}while(r); +S_8447:; +if ((-(*__LONG_I<*__LONG_N))||new_error){ +if(qbevent){evnt(6937);if(r)goto S_8447;} +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(6938);}while(r); +do{ +qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6939);}while(r); +S_8450:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len(",",1))))||new_error){ +if(qbevent){evnt(6940);if(r)goto S_8450;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected ,",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6940);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6940);}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(6941);}while(r); +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(6942);}while(r); +do{ +goto LABEL_FIELDNEXT; +if(!qbevent)break;evnt(6943);}while(r); +} +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(6946);}while(r); +S_8459:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(6946);if(r)goto S_8459;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6946);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6946);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(6947);}while(r); +LABEL_FIELDERROR:; +if(qbevent){evnt(6949);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(6949);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6949);}while(r); +} +S_8468:; +if ((-(*__LONG_N== 2 ))||new_error){ +if(qbevent){evnt(6962);if(r)goto S_8468;} +S_8469:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("EXIT",4))))||new_error){ +if(qbevent){evnt(6963);if(r)goto S_8469;} +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(6965);}while(r); +S_8471:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("DO",2))))||new_error){ +if(qbevent){evnt(6967);if(r)goto S_8471;} +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(6969);}while(r); +S_8473:; +fornext_value964=*__INTEGER_CONTROLLEVEL; +fornext_finalvalue964= 1 ; +fornext_step964= -1 ; +if (fornext_step964<0) fornext_step_negative964=1; else fornext_step_negative964=0; +if (new_error) goto fornext_error964; +goto fornext_entrylabel964; +while(1){ +fornext_value964=fornext_step964+(*__LONG_I); +fornext_entrylabel964: +*__LONG_I=fornext_value964; +if (fornext_step_negative964){ +if (fornext_value964fornext_finalvalue964) break; +} +fornext_error964:; +if(qbevent){evnt(6970);if(r)goto S_8473;} +do{ +*__LONG_T=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__LONG_I)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]; +if(!qbevent)break;evnt(6971);}while(r); +S_8475:; +if (((-(*__LONG_T== 3 ))|(-(*__LONG_T== 4 )))||new_error){ +if(qbevent){evnt(6972);if(r)goto S_8475;} +do{ +SUB_WRITEBUFLINE(&(pass965=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("goto dl_exit_",13),FUNC_STR2((&(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__LONG_I)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])])))),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6973);}while(r); +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(6974);}while(r); +S_8478:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(6974);if(r)goto S_8478;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6974);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6974);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(6975);}while(r); +} +fornext_continue_963:; +} +fornext_exit_963:; +do{ +qbs_set(__STRING_A,qbs_new_txt_len("EXIT DO without DO",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6978);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6978);}while(r); +} +S_8489:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("FOR",3))))||new_error){ +if(qbevent){evnt(6981);if(r)goto S_8489;} +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(6983);}while(r); +S_8491:; +fornext_value968=*__INTEGER_CONTROLLEVEL; +fornext_finalvalue968= 1 ; +fornext_step968= -1 ; +if (fornext_step968<0) fornext_step_negative968=1; else fornext_step_negative968=0; +if (new_error) goto fornext_error968; +goto fornext_entrylabel968; +while(1){ +fornext_value968=fornext_step968+(*__LONG_I); +fornext_entrylabel968: +*__LONG_I=fornext_value968; +if (fornext_step_negative968){ +if (fornext_value968fornext_finalvalue968) break; +} +fornext_error968:; +if(qbevent){evnt(6984);if(r)goto S_8491;} +do{ +*__LONG_T=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__LONG_I)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]; +if(!qbevent)break;evnt(6985);}while(r); +S_8493:; +if ((-(*__LONG_T== 2 ))||new_error){ +if(qbevent){evnt(6986);if(r)goto S_8493;} +do{ +SUB_WRITEBUFLINE(&(pass969=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("goto fornext_exit_",18),FUNC_STR2((&(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__LONG_I)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])])))),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6987);}while(r); +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(6988);}while(r); +S_8496:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(6988);if(r)goto S_8496;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6988);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6988);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(6989);}while(r); +} +fornext_continue_967:; +} +fornext_exit_967:; +do{ +qbs_set(__STRING_A,qbs_new_txt_len("EXIT FOR without FOR",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(6992);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(6992);}while(r); +} +S_8507:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("WHILE",5))))||new_error){ +if(qbevent){evnt(6995);if(r)goto S_8507;} +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(6997);}while(r); +S_8509:; +fornext_value972=*__INTEGER_CONTROLLEVEL; +fornext_finalvalue972= 1 ; +fornext_step972= -1 ; +if (fornext_step972<0) fornext_step_negative972=1; else fornext_step_negative972=0; +if (new_error) goto fornext_error972; +goto fornext_entrylabel972; +while(1){ +fornext_value972=fornext_step972+(*__LONG_I); +fornext_entrylabel972: +*__LONG_I=fornext_value972; +if (fornext_step_negative972){ +if (fornext_value972fornext_finalvalue972) break; +} +fornext_error972:; +if(qbevent){evnt(6998);if(r)goto S_8509;} +do{ +*__LONG_T=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__LONG_I)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]; +if(!qbevent)break;evnt(6999);}while(r); +S_8511:; +if ((-(*__LONG_T== 5 ))||new_error){ +if(qbevent){evnt(7000);if(r)goto S_8511;} +do{ +SUB_WRITEBUFLINE(&(pass973=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("goto ww_exit_",13),FUNC_STR2((&(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__LONG_I)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])])))),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7001);}while(r); +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(7002);}while(r); +S_8514:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(7002);if(r)goto S_8514;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7002);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7002);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(7003);}while(r); +} +fornext_continue_971:; +} +fornext_exit_971:; +do{ +qbs_set(__STRING_A,qbs_new_txt_len("EXIT WHILE without WHILE",24)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7006);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7006);}while(r); +} +S_8525:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("SELECT",6))))||new_error){ +if(qbevent){evnt(7009);if(r)goto S_8525;} +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(7011);}while(r); +S_8527:; +fornext_value976=*__INTEGER_CONTROLLEVEL; +fornext_finalvalue976= 1 ; +fornext_step976= -1 ; +if (fornext_step976<0) fornext_step_negative976=1; else fornext_step_negative976=0; +if (new_error) goto fornext_error976; +goto fornext_entrylabel976; +while(1){ +fornext_value976=fornext_step976+(*__LONG_I); +fornext_entrylabel976: +*__LONG_I=fornext_value976; +if (fornext_step_negative976){ +if (fornext_value976fornext_finalvalue976) break; +} +fornext_error976:; +if(qbevent){evnt(7012);if(r)goto S_8527;} +do{ +*__LONG_T=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__LONG_I)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]; +if(!qbevent)break;evnt(7013);}while(r); +S_8529:; +if (((-(*__LONG_T== 18 ))|(-(*__LONG_T== 19 )))||new_error){ +if(qbevent){evnt(7014);if(r)goto S_8529;} +do{ +SUB_WRITEBUFLINE(&(pass977=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("goto sc_",8),FUNC_STR2((&(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__LONG_I- 1 )-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])])))),qbs_new_txt_len("_end;",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7015);}while(r); +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(7016);}while(r); +S_8532:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(7016);if(r)goto S_8532;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7016);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7016);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(7017);}while(r); +} +fornext_continue_975:; +} +fornext_exit_975:; +do{ +qbs_set(__STRING_A,qbs_new_txt_len("EXIT SELECT without SELECT",26)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7020);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7020);}while(r); +} +S_8543:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("CASE",4))))||new_error){ +if(qbevent){evnt(7023);if(r)goto S_8543;} +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(7025);}while(r); +S_8545:; +fornext_value980=*__INTEGER_CONTROLLEVEL; +fornext_finalvalue980= 1 ; +fornext_step980= -1 ; +if (fornext_step980<0) fornext_step_negative980=1; else fornext_step_negative980=0; +if (new_error) goto fornext_error980; +goto fornext_entrylabel980; +while(1){ +fornext_value980=fornext_step980+(*__LONG_I); +fornext_entrylabel980: +*__LONG_I=fornext_value980; +if (fornext_step_negative980){ +if (fornext_value980fornext_finalvalue980) break; +} +fornext_error980:; +if(qbevent){evnt(7026);if(r)goto S_8545;} +do{ +*__LONG_T=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__LONG_I)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]; +if(!qbevent)break;evnt(7027);}while(r); +S_8547:; +if ((-(*__LONG_T== 18 ))||new_error){ +if(qbevent){evnt(7028);if(r)goto S_8547;} +do{ +SUB_WRITEBUFLINE(&(pass981=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("goto sc_ec_",11),FUNC_STR2(&(pass982=*__LONG_EVERYCASENEWCASE+ 1 ))),qbs_new_txt_len("_end;",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7029);}while(r); +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(7030);}while(r); +S_8550:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(7030);if(r)goto S_8550;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7030);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7030);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(7031);}while(r); +S_8556:; +}else{ +if (-(*__LONG_T== 19 )){ +if(qbevent){evnt(7032);if(r)goto S_8556;} +do{ +SUB_WRITEBUFLINE(&(pass984=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("goto sc_",8),FUNC_STR2((&(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__LONG_I- 1 )-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])])))),qbs_new_txt_len("_end;",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7033);}while(r); +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(7034);}while(r); +S_8559:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(7034);if(r)goto S_8559;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7034);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7034);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(7035);}while(r); +} +} +fornext_continue_979:; +} +fornext_exit_979:; +do{ +qbs_set(__STRING_A,qbs_new_txt_len("EXIT CASE without CASE",22)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7038);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7038);}while(r); +} +} +} +S_8572:; +if ((-(*__LONG_N>= 2 ))||new_error){ +if(qbevent){evnt(7051);if(r)goto S_8572;} +S_8573:; +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)))))||new_error){ +if(qbevent){evnt(7052);if(r)goto S_8573;} +do{ +tmp_long=array_check(( 12 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[tmp_long]= 1 ; +if(!qbevent)break;evnt(7053);}while(r); +do{ +*__LONG_I= 3 ; +if(!qbevent)break;evnt(7054);}while(r); +S_8576:; +if ((-(*__LONG_I>*__LONG_N))||new_error){ +if(qbevent){evnt(7055);if(r)goto S_8576;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected (",10)); +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{ +qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7056);}while(r); +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(7056);}while(r); +S_8582:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_A2,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(7057);if(r)goto S_8582;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected (",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7057);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7057);}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(7058);}while(r); +S_8587:; +if ((-(*__LONG_I>*__LONG_N))||new_error){ +if(qbevent){evnt(7059);if(r)goto S_8587;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected ...",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7059);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7059);}while(r); +} +do{ +*__LONG_B= 0 ; +if(!qbevent)break;evnt(7060);}while(r); +do{ +*__LONG_X= 0 ; +if(!qbevent)break;evnt(7061);}while(r); +do{ +qbs_set(__STRING_E2,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7062);}while(r); +do{ +qbs_set(__STRING_E3,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7063);}while(r); +S_8595:; +fornext_value987=*__LONG_I; +fornext_finalvalue987=*__LONG_N; +fornext_step987= 1 ; +if (fornext_step987<0) fornext_step_negative987=1; else fornext_step_negative987=0; +if (new_error) goto fornext_error987; +goto fornext_entrylabel987; +while(1){ +fornext_value987=fornext_step987+(*__LONG_I); +fornext_entrylabel987: +*__LONG_I=fornext_value987; +if (fornext_step_negative987){ +if (fornext_value987fornext_finalvalue987) break; +} +fornext_error987:; +if(qbevent){evnt(7064);if(r)goto S_8595;} +do{ +qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7065);}while(r); +do{ +*__LONG_A=qbs_asc(__STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7066);}while(r); +S_8598:; +if ((-(*__LONG_A== 40 ))||new_error){ +if(qbevent){evnt(7067);if(r)goto S_8598;} +do{ +*__LONG_B=*__LONG_B+ 1 ; +if(!qbevent)break;evnt(7067);}while(r); +} +S_8601:; +if ((-(*__LONG_A== 41 ))||new_error){ +if(qbevent){evnt(7068);if(r)goto S_8601;} +do{ +*__LONG_B=*__LONG_B- 1 ; +if(!qbevent)break;evnt(7068);}while(r); +} +S_8604:; +if ((-(*__LONG_B== -1 ))||new_error){ +if(qbevent){evnt(7069);if(r)goto S_8604;} +do{ +goto LABEL_ONSTRIGGOTARG; +if(!qbevent)break;evnt(7069);}while(r); +} +S_8607:; +if (((-(*__LONG_A== 44 ))&(-(*__LONG_B== 0 )))||new_error){ +if(qbevent){evnt(7070);if(r)goto S_8607;} +do{ +*__LONG_X=*__LONG_X+ 1 ; +if(!qbevent)break;evnt(7071);}while(r); +S_8609:; +if ((-(*__LONG_X> 1 ))||new_error){ +if(qbevent){evnt(7072);if(r)goto S_8609;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7072);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7072);}while(r); +} +S_8613:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(7073);if(r)goto S_8613;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected ... ,",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7073);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7073);}while(r); +} +do{ +qbs_set(__STRING_E3,__STRING_E2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7074);}while(r); +do{ +qbs_set(__STRING_E2,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7075);}while(r); +}else{ +S_8620:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_E2->len))||new_error){ +if(qbevent){evnt(7077);if(r)goto S_8620;} +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(7077);}while(r); +}else{ +do{ +qbs_set(__STRING_E2,__STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7077);}while(r); +} +} +fornext_continue_986:; +} +fornext_exit_986:; +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7080);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7080);}while(r); +LABEL_ONSTRIGGOTARG:; +if(qbevent){evnt(7081);r=0;} +S_8629:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(7082);if(r)goto S_8629;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected ... )",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7082);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7082);}while(r); +} +do{ +SUB_WRITEBUFRAWDATA(&(pass989=*__LONG_MAINTXTBUF),qbs_new_txt_len("onstrig_setup(",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7083);}while(r); +S_8634:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_E3->len))||new_error){ +if(qbevent){evnt(7086);if(r)goto S_8634;} +do{ +qbs_set(__STRING_OPTI,__STRING_E3); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7087);}while(r); +do{ +qbs_set(__STRING_OPTCONTROLLER,__STRING_E2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7088);}while(r); +do{ +qbs_set(__STRING_OPTPASSED,qbs_new_txt_len("1",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7089);}while(r); +}else{ +do{ +qbs_set(__STRING_OPTI,__STRING_E2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7091);}while(r); +do{ +qbs_set(__STRING_OPTCONTROLLER,qbs_new_txt_len("0",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7092);}while(r); +do{ +qbs_set(__STRING_OPTPASSED,qbs_new_txt_len("0",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7093);}while(r); +} +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_OPTI)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7097);}while(r); +S_8644:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(7097);if(r)goto S_8644;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7097);}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(7098);}while(r); +do{ +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass991= 32 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7099);}while(r); +S_8649:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(7099);if(r)goto S_8649;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7099);}while(r); +} +do{ +SUB_WRITEBUFRAWDATA(&(pass992=*__LONG_MAINTXTBUF),qbs_add(__STRING_E,qbs_new_txt_len(",",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7100);}while(r); +S_8653:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OPTPASSED,qbs_new_txt_len("1",1))))||new_error){ +if(qbevent){evnt(7103);if(r)goto S_8653;} +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_OPTCONTROLLER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7104);}while(r); +S_8655:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(7104);if(r)goto S_8655;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7104);}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(7105);}while(r); +do{ +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass993= 32 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7106);}while(r); +S_8660:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(7106);if(r)goto S_8660;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7106);}while(r); +} +}else{ +do{ +qbs_set(__STRING_E,__STRING_OPTCONTROLLER); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7108);}while(r); +} +do{ +SUB_WRITEBUFRAWDATA(&(pass994=*__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(7110);}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(7112);}while(r); +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(7114);}while(r); +S_8669:; +if ((-(*__LONG_I>*__LONG_N))||new_error){ +if(qbevent){evnt(7115);if(r)goto S_8669;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected GOSUB/sub-name",23)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7115);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7115);}while(r); +} +do{ +qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_A,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7116);}while(r); +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(7116);}while(r); +do{ +*__LONG_ONSTRIGID=*__LONG_ONSTRIGID+ 1 ; +if(!qbevent)break;evnt(7117);}while(r); +do{ +SUB_WRITEBUFRAWDATA(&(pass995=*__LONG_MAINTXTBUF),qbs_add(FUNC_STR2(__LONG_ONSTRIGID),qbs_new_txt_len(",",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7118);}while(r); +S_8677:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("GOSUB",5))))||new_error){ +if(qbevent){evnt(7120);if(r)goto S_8677;} +S_8678:; +if ((-(*__LONG_I>*__LONG_N))||new_error){ +if(qbevent){evnt(7121);if(r)goto S_8678;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected linenumber/label",25)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7121);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7121);}while(r); +} +do{ +qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7122);}while(r); +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(7122);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass996=*__LONG_MAINTXTBUF),qbs_new_txt_len("0);",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7124);}while(r); +S_8685:; +if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(__STRING_A2)== 0 )))||new_error){ +if(qbevent){evnt(7126);if(r)goto S_8685;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Invalid label",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7126);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7126);}while(r); +} +do{ +*__LONG_V=FUNC_HASHFIND(__STRING_A2,&(pass997= 2 ),__LONG_IGNORE,__LONG_R); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7128);}while(r); +do{ +*__LONG_X= 1 ; +if(!qbevent)break;evnt(7129);}while(r); +LABEL_LABCHK60Z:; +if(qbevent){evnt(7130);r=0;} +S_8691:; +if ((*__LONG_V)||new_error){ +if(qbevent){evnt(7131);if(r)goto S_8691;} +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(7132);}while(r); +S_8693:; +if (((-(*__LONG_S== 0 ))|(-(*__LONG_S== -1 )))||new_error){ +if(qbevent){evnt(7133);if(r)goto S_8693;} +S_8694:; +if ((-(*__LONG_S== -1 ))||new_error){ +if(qbevent){evnt(7134);if(r)goto S_8694;} +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(7134);}while(r); +} +do{ +*__LONG_X= 0 ; +if(!qbevent)break;evnt(7135);}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(7136);}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(7137);}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(7138);}while(r); +}else{ +S_8702:; +if ((-(*__LONG_V== 2 ))||new_error){ +if(qbevent){evnt(7140);if(r)goto S_8702;} +do{ +*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R); +if(!qbevent)break;evnt(7140);}while(r); +do{ +goto LABEL_LABCHK60Z; +if(!qbevent)break;evnt(7140);}while(r); +} +} +} +S_8708:; +if ((*__LONG_X)||new_error){ +if(qbevent){evnt(7143);if(r)goto S_8708;} +do{ +*__LONG_NLABELS=*__LONG_NLABELS+ 1 ; +if(!qbevent)break;evnt(7145);}while(r); +S_8710:; +if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||new_error){ +if(qbevent){evnt(7145);if(r)goto S_8710;} +do{ +*__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ; +if(!qbevent)break;evnt(7145);}while(r); +do{ if (__ARRAY_UDT_LABELS[2]&2){ error(10); @@ -30090,740 +30090,740 @@ if (!__ARRAY_UDT_LABELS[0]) error(257); } } __ARRAY_UDT_LABELS[2]|=1; -} -if(!qbevent)break;evnt(7145);}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(7146);}while(r); -do{ -SUB_HASHADD(__STRING_A2,&(pass998= 2 ),__LONG_NLABELS); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7147);}while(r); -do{ -*__LONG_R=*__LONG_NLABELS; -if(!qbevent)break;evnt(7148);}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(7149);}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(7150);}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(7151);}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(7152);}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(7153);}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(7155);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass999=*__LONG_STRIGJTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if(strig_event_id==",19),FUNC_STR2(__LONG_ONSTRIGID)),qbs_new_txt_len(")goto LABEL_",12)),__STRING_A2),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7157);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1000=*__LONG_STRIGTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("case ",5),FUNC_STR2(__LONG_ONSTRIGID)),qbs_new_txt_len(":",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7159);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1001=*__LONG_STRIGTXTBUF),qbs_new_txt_len("strig_event_occurred++;",23)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7160);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1002=*__LONG_STRIGTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("strig_event_id=",15),FUNC_STR2(__LONG_ONSTRIGID)),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7161);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1003=*__LONG_STRIGTXTBUF),qbs_new_txt_len("strig_event_occurred++;",23)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7162);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1004=*__LONG_STRIGTXTBUF),qbs_new_txt_len("return_point[next_return_point++]=0;",36)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7163);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1005=*__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(7164);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1006=*__LONG_STRIGTXTBUF),qbs_new_txt_len("QBMAIN(NULL);",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7165);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1007=*__LONG_STRIGTXTBUF),qbs_new_txt_len("break;",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7166);}while(r); -S_8733:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||new_error){ -if(qbevent){evnt(7168);if(r)goto S_8733;} -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7168);}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(7168);}while(r); -} -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(7169);}while(r); -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(7170);}while(r); -}else{ -do{ -*__LONG_X= 0 ; -if(!qbevent)break;evnt(7175);}while(r); -do{ -*__LONG_TRY=FUNC_FINDID(__STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7176);}while(r); -S_8743:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(7177);if(r)goto S_8743;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7177);}while(r); -} -S_8746:; -while((*__LONG_TRY)||new_error){ -if(qbevent){evnt(7178);if(r)goto S_8746;} -S_8747:; -if ((-(*(int16*)(((char*)__UDT_ID)+(544))== 2 ))||new_error){ -if(qbevent){evnt(7179);if(r)goto S_8747;} -do{ -*__LONG_X= 1 ; -if(!qbevent)break;evnt(7179);}while(r); -do{ -goto dl_exit_1009; -if(!qbevent)break;evnt(7179);}while(r); -} -S_8751:; -if ((-(*__LONG_TRY== 2 ))||new_error){ -if(qbevent){evnt(7180);if(r)goto S_8751;} -do{ -*__INTEGER_FINDANOTHERID= 1 ; -if(!qbevent)break;evnt(7180);}while(r); -do{ -*__LONG_TRY=FUNC_FINDID(__STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7180);}while(r); -}else{ -do{ -*__LONG_TRY= 0 ; -if(!qbevent)break;evnt(7180);}while(r); -} -S_8757:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(7181);if(r)goto S_8757;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7181);}while(r); -} -dl_continue_1009:; -} -dl_exit_1009:; -S_8761:; -if ((-(*__LONG_X== 0 ))||new_error){ -if(qbevent){evnt(7183);if(r)goto S_8761;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected GOSUB/sub",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7183);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7183);}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(7185);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1010=*__LONG_STRIGTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("case ",5),FUNC_STR2(__LONG_ONSTRIGID)),qbs_new_txt_len(":",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7187);}while(r); -do{ -SUB_WRITEBUFRAWDATA(&(pass1011=*__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(7188);}while(r); -S_8768:; -if ((-(*(int16*)(((char*)__UDT_ID)+(809))> 1 ))||new_error){ -if(qbevent){evnt(7190);if(r)goto S_8768;} -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(7190);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7190);}while(r); -} -S_8772:; -if ((-(*__LONG_I>*__LONG_N))||new_error){ -if(qbevent){evnt(7192);if(r)goto S_8772;} -S_8773:; -if ((-(*(int16*)(((char*)__UDT_ID)+(809))== 1 ))||new_error){ -if(qbevent){evnt(7194);if(r)goto S_8773;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected argument after SUB",27)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7194);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7194);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass1012=*__LONG_MAINTXTBUF),qbs_new_txt_len("0);",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7195);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1013=*__LONG_STRIGTXTBUF),qbs_new_txt_len(");",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7196);}while(r); -}else{ -S_8780:; -if ((-(*(int16*)(((char*)__UDT_ID)+(809))== 0 ))||new_error){ -if(qbevent){evnt(7200);if(r)goto S_8780;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("SUB has no arguments",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7200);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7200);}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(7202);}while(r); -do{ -*__LONG_B=*__LONG_T& 511 ; -if(!qbevent)break;evnt(7203);}while(r); -S_8786:; -if (((-(*__LONG_B== 0 ))|(-((*__LONG_T&*__LONG_ISARRAY)!= 0 ))|(-((*__LONG_T&*__LONG_ISFLOAT)!= 0 ))|(-((*__LONG_T&*__LONG_ISSTRING)!= 0 ))|(-((*__LONG_T&*__LONG_ISOFFSETINBITS)!= 0 )))||new_error){ -if(qbevent){evnt(7204);if(r)goto S_8786;} -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(7204);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7204);}while(r); -} -S_8790:; -if ((-(*__LONG_B== 8 ))||new_error){ -if(qbevent){evnt(7205);if(r)goto S_8790;} -do{ -qbs_set(__STRING_CT,qbs_new_txt_len("int8",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7205);}while(r); -} -S_8793:; -if ((-(*__LONG_B== 16 ))||new_error){ -if(qbevent){evnt(7206);if(r)goto S_8793;} -do{ -qbs_set(__STRING_CT,qbs_new_txt_len("int16",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7206);}while(r); -} -S_8796:; -if ((-(*__LONG_B== 32 ))||new_error){ -if(qbevent){evnt(7207);if(r)goto S_8796;} -do{ -qbs_set(__STRING_CT,qbs_new_txt_len("int32",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7207);}while(r); -} -S_8799:; -if ((-(*__LONG_B== 64 ))||new_error){ -if(qbevent){evnt(7208);if(r)goto S_8799;} -do{ -qbs_set(__STRING_CT,qbs_new_txt_len("int64",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7208);}while(r); -} -S_8802:; -if ((*__LONG_T&*__LONG_ISOFFSET)||new_error){ -if(qbevent){evnt(7209);if(r)goto S_8802;} -do{ -qbs_set(__STRING_CT,qbs_new_txt_len("ptrszint",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7209);}while(r); -} -S_8805:; -if ((*__LONG_T&*__LONG_ISUNSIGNED)||new_error){ -if(qbevent){evnt(7210);if(r)goto S_8805;} -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(7210);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass1014=*__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(7211);}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(7213);}while(r); -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7214);}while(r); -S_8811:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(7215);if(r)goto S_8811;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7215);}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(7216);}while(r); -do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1015=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7217);}while(r); -S_8816:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(7218);if(r)goto S_8816;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7218);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass1016=*__LONG_MAINTXTBUF),qbs_add(__STRING_E,qbs_new_txt_len(");",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7219);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass1017=*__LONG_STRIGTXTBUF),qbs_new_txt_len("break;",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7223);}while(r); -S_8822:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||new_error){ -if(qbevent){evnt(7224);if(r)goto S_8822;} -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7224);}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(7224);}while(r); -} -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(7225);}while(r); -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(7226);}while(r); -} -} -} -S_8832:; -if ((-(*__LONG_N>= 2 ))||new_error){ -if(qbevent){evnt(7243);if(r)goto S_8832;} -S_8833:; -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)))))||new_error){ -if(qbevent){evnt(7244);if(r)goto S_8833;} -do{ -*__LONG_I= 3 ; -if(!qbevent)break;evnt(7245);}while(r); -S_8835:; -if ((-(*__LONG_I>*__LONG_N))||new_error){ -if(qbevent){evnt(7246);if(r)goto S_8835;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected (",10)); -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{ -qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7247);}while(r); -do{ -*__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(7247);}while(r); -S_8841:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_A2,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(7248);if(r)goto S_8841;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected (",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7248);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7248);}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(7249);}while(r); -S_8846:; -if ((-(*__LONG_I>*__LONG_N))||new_error){ -if(qbevent){evnt(7250);if(r)goto S_8846;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected ...",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7250);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7250);}while(r); -} -do{ -*__LONG_B= 0 ; -if(!qbevent)break;evnt(7251);}while(r); -do{ -*__LONG_X= 0 ; -if(!qbevent)break;evnt(7252);}while(r); -do{ -qbs_set(__STRING_E2,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7253);}while(r); -do{ -qbs_set(__STRING_E3,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7254);}while(r); -S_8854:; -fornext_value1020=*__LONG_I; -fornext_finalvalue1020=*__LONG_N; -fornext_step1020= 1 ; -if (fornext_step1020<0) fornext_step_negative1020=1; else fornext_step_negative1020=0; -if (new_error) goto fornext_error1020; -goto fornext_entrylabel1020; -while(1){ -fornext_value1020=fornext_step1020+(*__LONG_I); -fornext_entrylabel1020: -*__LONG_I=fornext_value1020; -if (fornext_step_negative1020){ -if (fornext_value1020fornext_finalvalue1020) break; -} -fornext_error1020:; -if(qbevent){evnt(7255);if(r)goto S_8854;} -do{ -qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7256);}while(r); -do{ -*__LONG_A=qbs_asc(__STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7257);}while(r); -S_8857:; -if ((-(*__LONG_A== 40 ))||new_error){ -if(qbevent){evnt(7258);if(r)goto S_8857;} -do{ -*__LONG_B=*__LONG_B+ 1 ; -if(!qbevent)break;evnt(7258);}while(r); -} -S_8860:; -if ((-(*__LONG_A== 41 ))||new_error){ -if(qbevent){evnt(7259);if(r)goto S_8860;} -do{ -*__LONG_B=*__LONG_B- 1 ; -if(!qbevent)break;evnt(7259);}while(r); -} -S_8863:; -if ((-(*__LONG_B== -1 ))||new_error){ -if(qbevent){evnt(7260);if(r)goto S_8863;} -do{ -goto LABEL_ONTIMGOTARG; -if(!qbevent)break;evnt(7260);}while(r); -} -S_8866:; -if (((-(*__LONG_A== 44 ))&(-(*__LONG_B== 0 )))||new_error){ -if(qbevent){evnt(7261);if(r)goto S_8866;} -do{ -*__LONG_X=*__LONG_X+ 1 ; -if(!qbevent)break;evnt(7262);}while(r); -S_8868:; -if ((-(*__LONG_X> 1 ))||new_error){ -if(qbevent){evnt(7263);if(r)goto S_8868;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7263);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7263);}while(r); -} -S_8872:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(7264);if(r)goto S_8872;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected ... ,",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7264);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7264);}while(r); -} -do{ -qbs_set(__STRING_E3,__STRING_E2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7265);}while(r); -do{ -qbs_set(__STRING_E2,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7266);}while(r); -}else{ -S_8879:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_E2->len))||new_error){ -if(qbevent){evnt(7268);if(r)goto S_8879;} -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(7268);}while(r); -}else{ -do{ -qbs_set(__STRING_E2,__STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7268);}while(r); -} -} -fornext_continue_1019:; -} -fornext_exit_1019:; -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7271);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7271);}while(r); -LABEL_ONTIMGOTARG:; -if(qbevent){evnt(7272);r=0;} -S_8888:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(7273);if(r)goto S_8888;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected ... )",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7273);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7273);}while(r); -} -do{ -SUB_WRITEBUFRAWDATA(&(pass1022=*__LONG_MAINTXTBUF),qbs_new_txt_len("ontimer_setup(",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7274);}while(r); -S_8893:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_E3->len))||new_error){ -if(qbevent){evnt(7276);if(r)goto S_8893;} -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7277);}while(r); -S_8895:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(7278);if(r)goto S_8895;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7278);}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(7279);}while(r); -do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1024= 32 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7280);}while(r); -S_8900:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(7281);if(r)goto S_8900;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7281);}while(r); -} -do{ -SUB_WRITEBUFRAWDATA(&(pass1025=*__LONG_MAINTXTBUF),qbs_add(__STRING_E,qbs_new_txt_len(",",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7282);}while(r); -}else{ -do{ -SUB_WRITEBUFRAWDATA(&(pass1026=*__LONG_MAINTXTBUF),qbs_new_txt_len("0,",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7284);}while(r); -do{ -qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING1_SP2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7285);}while(r); -} -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7288);}while(r); -S_8909:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(7289);if(r)goto S_8909;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7289);}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(7290);}while(r); -do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1027=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7291);}while(r); -S_8914:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(7292);if(r)goto S_8914;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7292);}while(r); -} -do{ -SUB_WRITEBUFRAWDATA(&(pass1028=*__LONG_MAINTXTBUF),qbs_add(__STRING_E,qbs_new_txt_len(",",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7293);}while(r); -do{ -*__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(7294);}while(r); -S_8919:; -if ((-(*__LONG_I>*__LONG_N))||new_error){ -if(qbevent){evnt(7295);if(r)goto S_8919;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected GOSUB/sub-name",23)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7295);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7295);}while(r); -} -do{ -qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_A,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7296);}while(r); -do{ -*__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(7296);}while(r); -do{ -*__LONG_ONTIMERID=*__LONG_ONTIMERID+ 1 ; -if(!qbevent)break;evnt(7297);}while(r); -do{ -SUB_WRITEBUFRAWDATA(&(pass1029=*__LONG_MAINTXTBUF),qbs_add(FUNC_STR2(__LONG_ONTIMERID),qbs_new_txt_len(",",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7298);}while(r); -S_8927:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("GOSUB",5))))||new_error){ -if(qbevent){evnt(7300);if(r)goto S_8927;} -S_8928:; -if ((-(*__LONG_I>*__LONG_N))||new_error){ -if(qbevent){evnt(7301);if(r)goto S_8928;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected linenumber/label",25)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7301);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7301);}while(r); -} -do{ -qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7302);}while(r); -do{ -*__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(7302);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1030=*__LONG_MAINTXTBUF),qbs_new_txt_len("0);",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7304);}while(r); -S_8935:; -if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(__STRING_A2)== 0 )))||new_error){ -if(qbevent){evnt(7306);if(r)goto S_8935;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Invalid label",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7306);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7306);}while(r); -} -do{ -*__LONG_V=FUNC_HASHFIND(__STRING_A2,&(pass1031= 2 ),__LONG_IGNORE,__LONG_R); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7308);}while(r); -do{ -*__LONG_X= 1 ; -if(!qbevent)break;evnt(7309);}while(r); -LABEL_LABCHK60:; -if(qbevent){evnt(7310);r=0;} -S_8941:; -if ((*__LONG_V)||new_error){ -if(qbevent){evnt(7311);if(r)goto S_8941;} -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(7312);}while(r); -S_8943:; -if (((-(*__LONG_S== 0 ))|(-(*__LONG_S== -1 )))||new_error){ -if(qbevent){evnt(7313);if(r)goto S_8943;} -S_8944:; -if ((-(*__LONG_S== -1 ))||new_error){ -if(qbevent){evnt(7314);if(r)goto S_8944;} -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(7314);}while(r); -} -do{ -*__LONG_X= 0 ; -if(!qbevent)break;evnt(7315);}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(7316);}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(7317);}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(7318);}while(r); -}else{ -S_8952:; -if ((-(*__LONG_V== 2 ))||new_error){ -if(qbevent){evnt(7320);if(r)goto S_8952;} -do{ -*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R); -if(!qbevent)break;evnt(7320);}while(r); -do{ -goto LABEL_LABCHK60; -if(!qbevent)break;evnt(7320);}while(r); -} -} -} -S_8958:; -if ((*__LONG_X)||new_error){ -if(qbevent){evnt(7323);if(r)goto S_8958;} -do{ -*__LONG_NLABELS=*__LONG_NLABELS+ 1 ; -if(!qbevent)break;evnt(7325);}while(r); -S_8960:; -if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||new_error){ -if(qbevent){evnt(7325);if(r)goto S_8960;} -do{ -*__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ; -if(!qbevent)break;evnt(7325);}while(r); -do{ +} +if(!qbevent)break;evnt(7145);}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(7146);}while(r); +do{ +SUB_HASHADD(__STRING_A2,&(pass998= 2 ),__LONG_NLABELS); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7147);}while(r); +do{ +*__LONG_R=*__LONG_NLABELS; +if(!qbevent)break;evnt(7148);}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(7149);}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(7150);}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(7151);}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(7152);}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(7153);}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(7155);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass999=*__LONG_STRIGJTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if(strig_event_id==",19),FUNC_STR2(__LONG_ONSTRIGID)),qbs_new_txt_len(")goto LABEL_",12)),__STRING_A2),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7157);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1000=*__LONG_STRIGTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("case ",5),FUNC_STR2(__LONG_ONSTRIGID)),qbs_new_txt_len(":",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7159);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1001=*__LONG_STRIGTXTBUF),qbs_new_txt_len("strig_event_occurred++;",23)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7160);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1002=*__LONG_STRIGTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("strig_event_id=",15),FUNC_STR2(__LONG_ONSTRIGID)),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7161);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1003=*__LONG_STRIGTXTBUF),qbs_new_txt_len("strig_event_occurred++;",23)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7162);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1004=*__LONG_STRIGTXTBUF),qbs_new_txt_len("return_point[next_return_point++]=0;",36)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7163);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1005=*__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(7164);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1006=*__LONG_STRIGTXTBUF),qbs_new_txt_len("QBMAIN(NULL);",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7165);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1007=*__LONG_STRIGTXTBUF),qbs_new_txt_len("break;",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7166);}while(r); +S_8733:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||new_error){ +if(qbevent){evnt(7168);if(r)goto S_8733;} +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7168);}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(7168);}while(r); +} +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(7169);}while(r); +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(7170);}while(r); +}else{ +do{ +*__LONG_X= 0 ; +if(!qbevent)break;evnt(7175);}while(r); +do{ +*__LONG_TRY=FUNC_FINDID(__STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7176);}while(r); +S_8743:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(7177);if(r)goto S_8743;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7177);}while(r); +} +S_8746:; +while((*__LONG_TRY)||new_error){ +if(qbevent){evnt(7178);if(r)goto S_8746;} +S_8747:; +if ((-(*(int16*)(((char*)__UDT_ID)+(544))== 2 ))||new_error){ +if(qbevent){evnt(7179);if(r)goto S_8747;} +do{ +*__LONG_X= 1 ; +if(!qbevent)break;evnt(7179);}while(r); +do{ +goto dl_exit_1009; +if(!qbevent)break;evnt(7179);}while(r); +} +S_8751:; +if ((-(*__LONG_TRY== 2 ))||new_error){ +if(qbevent){evnt(7180);if(r)goto S_8751;} +do{ +*__INTEGER_FINDANOTHERID= 1 ; +if(!qbevent)break;evnt(7180);}while(r); +do{ +*__LONG_TRY=FUNC_FINDID(__STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7180);}while(r); +}else{ +do{ +*__LONG_TRY= 0 ; +if(!qbevent)break;evnt(7180);}while(r); +} +S_8757:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(7181);if(r)goto S_8757;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7181);}while(r); +} +dl_continue_1009:; +} +dl_exit_1009:; +S_8761:; +if ((-(*__LONG_X== 0 ))||new_error){ +if(qbevent){evnt(7183);if(r)goto S_8761;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected GOSUB/sub",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7183);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7183);}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(7185);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1010=*__LONG_STRIGTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("case ",5),FUNC_STR2(__LONG_ONSTRIGID)),qbs_new_txt_len(":",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7187);}while(r); +do{ +SUB_WRITEBUFRAWDATA(&(pass1011=*__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(7188);}while(r); +S_8768:; +if ((-(*(int16*)(((char*)__UDT_ID)+(809))> 1 ))||new_error){ +if(qbevent){evnt(7190);if(r)goto S_8768;} +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(7190);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7190);}while(r); +} +S_8772:; +if ((-(*__LONG_I>*__LONG_N))||new_error){ +if(qbevent){evnt(7192);if(r)goto S_8772;} +S_8773:; +if ((-(*(int16*)(((char*)__UDT_ID)+(809))== 1 ))||new_error){ +if(qbevent){evnt(7194);if(r)goto S_8773;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected argument after SUB",27)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7194);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7194);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass1012=*__LONG_MAINTXTBUF),qbs_new_txt_len("0);",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7195);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1013=*__LONG_STRIGTXTBUF),qbs_new_txt_len(");",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7196);}while(r); +}else{ +S_8780:; +if ((-(*(int16*)(((char*)__UDT_ID)+(809))== 0 ))||new_error){ +if(qbevent){evnt(7200);if(r)goto S_8780;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("SUB has no arguments",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7200);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7200);}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(7202);}while(r); +do{ +*__LONG_B=*__LONG_T& 511 ; +if(!qbevent)break;evnt(7203);}while(r); +S_8786:; +if (((-(*__LONG_B== 0 ))|(-((*__LONG_T&*__LONG_ISARRAY)!= 0 ))|(-((*__LONG_T&*__LONG_ISFLOAT)!= 0 ))|(-((*__LONG_T&*__LONG_ISSTRING)!= 0 ))|(-((*__LONG_T&*__LONG_ISOFFSETINBITS)!= 0 )))||new_error){ +if(qbevent){evnt(7204);if(r)goto S_8786;} +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(7204);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7204);}while(r); +} +S_8790:; +if ((-(*__LONG_B== 8 ))||new_error){ +if(qbevent){evnt(7205);if(r)goto S_8790;} +do{ +qbs_set(__STRING_CT,qbs_new_txt_len("int8",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7205);}while(r); +} +S_8793:; +if ((-(*__LONG_B== 16 ))||new_error){ +if(qbevent){evnt(7206);if(r)goto S_8793;} +do{ +qbs_set(__STRING_CT,qbs_new_txt_len("int16",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7206);}while(r); +} +S_8796:; +if ((-(*__LONG_B== 32 ))||new_error){ +if(qbevent){evnt(7207);if(r)goto S_8796;} +do{ +qbs_set(__STRING_CT,qbs_new_txt_len("int32",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7207);}while(r); +} +S_8799:; +if ((-(*__LONG_B== 64 ))||new_error){ +if(qbevent){evnt(7208);if(r)goto S_8799;} +do{ +qbs_set(__STRING_CT,qbs_new_txt_len("int64",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7208);}while(r); +} +S_8802:; +if ((*__LONG_T&*__LONG_ISOFFSET)||new_error){ +if(qbevent){evnt(7209);if(r)goto S_8802;} +do{ +qbs_set(__STRING_CT,qbs_new_txt_len("ptrszint",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7209);}while(r); +} +S_8805:; +if ((*__LONG_T&*__LONG_ISUNSIGNED)||new_error){ +if(qbevent){evnt(7210);if(r)goto S_8805;} +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(7210);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass1014=*__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(7211);}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(7213);}while(r); +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7214);}while(r); +S_8811:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(7215);if(r)goto S_8811;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7215);}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(7216);}while(r); +do{ +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1015=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7217);}while(r); +S_8816:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(7218);if(r)goto S_8816;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7218);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass1016=*__LONG_MAINTXTBUF),qbs_add(__STRING_E,qbs_new_txt_len(");",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7219);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass1017=*__LONG_STRIGTXTBUF),qbs_new_txt_len("break;",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7223);}while(r); +S_8822:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||new_error){ +if(qbevent){evnt(7224);if(r)goto S_8822;} +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7224);}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(7224);}while(r); +} +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(7225);}while(r); +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(7226);}while(r); +} +} +} +S_8832:; +if ((-(*__LONG_N>= 2 ))||new_error){ +if(qbevent){evnt(7243);if(r)goto S_8832;} +S_8833:; +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)))))||new_error){ +if(qbevent){evnt(7244);if(r)goto S_8833;} +do{ +*__LONG_I= 3 ; +if(!qbevent)break;evnt(7245);}while(r); +S_8835:; +if ((-(*__LONG_I>*__LONG_N))||new_error){ +if(qbevent){evnt(7246);if(r)goto S_8835;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected (",10)); +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{ +qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7247);}while(r); +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(7247);}while(r); +S_8841:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_A2,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(7248);if(r)goto S_8841;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected (",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7248);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7248);}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(7249);}while(r); +S_8846:; +if ((-(*__LONG_I>*__LONG_N))||new_error){ +if(qbevent){evnt(7250);if(r)goto S_8846;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected ...",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7250);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7250);}while(r); +} +do{ +*__LONG_B= 0 ; +if(!qbevent)break;evnt(7251);}while(r); +do{ +*__LONG_X= 0 ; +if(!qbevent)break;evnt(7252);}while(r); +do{ +qbs_set(__STRING_E2,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7253);}while(r); +do{ +qbs_set(__STRING_E3,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7254);}while(r); +S_8854:; +fornext_value1020=*__LONG_I; +fornext_finalvalue1020=*__LONG_N; +fornext_step1020= 1 ; +if (fornext_step1020<0) fornext_step_negative1020=1; else fornext_step_negative1020=0; +if (new_error) goto fornext_error1020; +goto fornext_entrylabel1020; +while(1){ +fornext_value1020=fornext_step1020+(*__LONG_I); +fornext_entrylabel1020: +*__LONG_I=fornext_value1020; +if (fornext_step_negative1020){ +if (fornext_value1020fornext_finalvalue1020) break; +} +fornext_error1020:; +if(qbevent){evnt(7255);if(r)goto S_8854;} +do{ +qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7256);}while(r); +do{ +*__LONG_A=qbs_asc(__STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7257);}while(r); +S_8857:; +if ((-(*__LONG_A== 40 ))||new_error){ +if(qbevent){evnt(7258);if(r)goto S_8857;} +do{ +*__LONG_B=*__LONG_B+ 1 ; +if(!qbevent)break;evnt(7258);}while(r); +} +S_8860:; +if ((-(*__LONG_A== 41 ))||new_error){ +if(qbevent){evnt(7259);if(r)goto S_8860;} +do{ +*__LONG_B=*__LONG_B- 1 ; +if(!qbevent)break;evnt(7259);}while(r); +} +S_8863:; +if ((-(*__LONG_B== -1 ))||new_error){ +if(qbevent){evnt(7260);if(r)goto S_8863;} +do{ +goto LABEL_ONTIMGOTARG; +if(!qbevent)break;evnt(7260);}while(r); +} +S_8866:; +if (((-(*__LONG_A== 44 ))&(-(*__LONG_B== 0 )))||new_error){ +if(qbevent){evnt(7261);if(r)goto S_8866;} +do{ +*__LONG_X=*__LONG_X+ 1 ; +if(!qbevent)break;evnt(7262);}while(r); +S_8868:; +if ((-(*__LONG_X> 1 ))||new_error){ +if(qbevent){evnt(7263);if(r)goto S_8868;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7263);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7263);}while(r); +} +S_8872:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(7264);if(r)goto S_8872;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected ... ,",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7264);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7264);}while(r); +} +do{ +qbs_set(__STRING_E3,__STRING_E2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7265);}while(r); +do{ +qbs_set(__STRING_E2,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7266);}while(r); +}else{ +S_8879:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_E2->len))||new_error){ +if(qbevent){evnt(7268);if(r)goto S_8879;} +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(7268);}while(r); +}else{ +do{ +qbs_set(__STRING_E2,__STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7268);}while(r); +} +} +fornext_continue_1019:; +} +fornext_exit_1019:; +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7271);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7271);}while(r); +LABEL_ONTIMGOTARG:; +if(qbevent){evnt(7272);r=0;} +S_8888:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(7273);if(r)goto S_8888;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected ... )",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7273);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7273);}while(r); +} +do{ +SUB_WRITEBUFRAWDATA(&(pass1022=*__LONG_MAINTXTBUF),qbs_new_txt_len("ontimer_setup(",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7274);}while(r); +S_8893:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_E3->len))||new_error){ +if(qbevent){evnt(7276);if(r)goto S_8893;} +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7277);}while(r); +S_8895:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(7278);if(r)goto S_8895;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7278);}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(7279);}while(r); +do{ +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1024= 32 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7280);}while(r); +S_8900:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(7281);if(r)goto S_8900;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7281);}while(r); +} +do{ +SUB_WRITEBUFRAWDATA(&(pass1025=*__LONG_MAINTXTBUF),qbs_add(__STRING_E,qbs_new_txt_len(",",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7282);}while(r); +}else{ +do{ +SUB_WRITEBUFRAWDATA(&(pass1026=*__LONG_MAINTXTBUF),qbs_new_txt_len("0,",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7284);}while(r); +do{ +qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING1_SP2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7285);}while(r); +} +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7288);}while(r); +S_8909:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(7289);if(r)goto S_8909;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7289);}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(7290);}while(r); +do{ +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1027=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7291);}while(r); +S_8914:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(7292);if(r)goto S_8914;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7292);}while(r); +} +do{ +SUB_WRITEBUFRAWDATA(&(pass1028=*__LONG_MAINTXTBUF),qbs_add(__STRING_E,qbs_new_txt_len(",",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7293);}while(r); +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(7294);}while(r); +S_8919:; +if ((-(*__LONG_I>*__LONG_N))||new_error){ +if(qbevent){evnt(7295);if(r)goto S_8919;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected GOSUB/sub-name",23)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7295);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7295);}while(r); +} +do{ +qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_A,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7296);}while(r); +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(7296);}while(r); +do{ +*__LONG_ONTIMERID=*__LONG_ONTIMERID+ 1 ; +if(!qbevent)break;evnt(7297);}while(r); +do{ +SUB_WRITEBUFRAWDATA(&(pass1029=*__LONG_MAINTXTBUF),qbs_add(FUNC_STR2(__LONG_ONTIMERID),qbs_new_txt_len(",",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7298);}while(r); +S_8927:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("GOSUB",5))))||new_error){ +if(qbevent){evnt(7300);if(r)goto S_8927;} +S_8928:; +if ((-(*__LONG_I>*__LONG_N))||new_error){ +if(qbevent){evnt(7301);if(r)goto S_8928;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected linenumber/label",25)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7301);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7301);}while(r); +} +do{ +qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7302);}while(r); +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(7302);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1030=*__LONG_MAINTXTBUF),qbs_new_txt_len("0);",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7304);}while(r); +S_8935:; +if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(__STRING_A2)== 0 )))||new_error){ +if(qbevent){evnt(7306);if(r)goto S_8935;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Invalid label",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7306);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7306);}while(r); +} +do{ +*__LONG_V=FUNC_HASHFIND(__STRING_A2,&(pass1031= 2 ),__LONG_IGNORE,__LONG_R); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7308);}while(r); +do{ +*__LONG_X= 1 ; +if(!qbevent)break;evnt(7309);}while(r); +LABEL_LABCHK60:; +if(qbevent){evnt(7310);r=0;} +S_8941:; +if ((*__LONG_V)||new_error){ +if(qbevent){evnt(7311);if(r)goto S_8941;} +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(7312);}while(r); +S_8943:; +if (((-(*__LONG_S== 0 ))|(-(*__LONG_S== -1 )))||new_error){ +if(qbevent){evnt(7313);if(r)goto S_8943;} +S_8944:; +if ((-(*__LONG_S== -1 ))||new_error){ +if(qbevent){evnt(7314);if(r)goto S_8944;} +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(7314);}while(r); +} +do{ +*__LONG_X= 0 ; +if(!qbevent)break;evnt(7315);}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(7316);}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(7317);}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(7318);}while(r); +}else{ +S_8952:; +if ((-(*__LONG_V== 2 ))||new_error){ +if(qbevent){evnt(7320);if(r)goto S_8952;} +do{ +*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R); +if(!qbevent)break;evnt(7320);}while(r); +do{ +goto LABEL_LABCHK60; +if(!qbevent)break;evnt(7320);}while(r); +} +} +} +S_8958:; +if ((*__LONG_X)||new_error){ +if(qbevent){evnt(7323);if(r)goto S_8958;} +do{ +*__LONG_NLABELS=*__LONG_NLABELS+ 1 ; +if(!qbevent)break;evnt(7325);}while(r); +S_8960:; +if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||new_error){ +if(qbevent){evnt(7325);if(r)goto S_8960;} +do{ +*__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ; +if(!qbevent)break;evnt(7325);}while(r); +do{ if (__ARRAY_UDT_LABELS[2]&2){ error(10); @@ -30861,653 +30861,653 @@ if (!__ARRAY_UDT_LABELS[0]) error(257); } } __ARRAY_UDT_LABELS[2]|=1; -} -if(!qbevent)break;evnt(7325);}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(7326);}while(r); -do{ -SUB_HASHADD(__STRING_A2,&(pass1032= 2 ),__LONG_NLABELS); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7327);}while(r); -do{ -*__LONG_R=*__LONG_NLABELS; -if(!qbevent)break;evnt(7328);}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(7329);}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(7330);}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(7331);}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(7332);}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(7333);}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(7335);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1033=*__LONG_TIMEJTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if(timer_event_id==",19),FUNC_STR2(__LONG_ONTIMERID)),qbs_new_txt_len(")goto LABEL_",12)),__STRING_A2),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7337);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1034=*__LONG_TIMETXTBUF),qbs_add(qbs_add(qbs_new_txt_len("case ",5),FUNC_STR2(__LONG_ONTIMERID)),qbs_new_txt_len(":",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7339);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1035=*__LONG_TIMETXTBUF),qbs_new_txt_len("timer_event_occurred++;",23)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7340);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1036=*__LONG_TIMETXTBUF),qbs_add(qbs_add(qbs_new_txt_len("timer_event_id=",15),FUNC_STR2(__LONG_ONTIMERID)),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7341);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1037=*__LONG_TIMETXTBUF),qbs_new_txt_len("timer_event_occurred++;",23)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7342);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1038=*__LONG_TIMETXTBUF),qbs_new_txt_len("return_point[next_return_point++]=0;",36)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7343);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1039=*__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(7344);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1040=*__LONG_TIMETXTBUF),qbs_new_txt_len("QBMAIN(NULL);",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7345);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1041=*__LONG_TIMETXTBUF),qbs_new_txt_len("break;",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7346);}while(r); -S_8983:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||new_error){ -if(qbevent){evnt(7356);if(r)goto S_8983;} -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7356);}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(7356);}while(r); -} -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(7357);}while(r); -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(7358);}while(r); -}else{ -do{ -*__LONG_X= 0 ; -if(!qbevent)break;evnt(7362);}while(r); -do{ -*__LONG_TRY=FUNC_FINDID(__STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7363);}while(r); -S_8993:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(7364);if(r)goto S_8993;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7364);}while(r); -} -S_8996:; -while((*__LONG_TRY)||new_error){ -if(qbevent){evnt(7365);if(r)goto S_8996;} -S_8997:; -if ((-(*(int16*)(((char*)__UDT_ID)+(544))== 2 ))||new_error){ -if(qbevent){evnt(7366);if(r)goto S_8997;} -do{ -*__LONG_X= 1 ; -if(!qbevent)break;evnt(7366);}while(r); -do{ -goto dl_exit_1043; -if(!qbevent)break;evnt(7366);}while(r); -} -S_9001:; -if ((-(*__LONG_TRY== 2 ))||new_error){ -if(qbevent){evnt(7367);if(r)goto S_9001;} -do{ -*__INTEGER_FINDANOTHERID= 1 ; -if(!qbevent)break;evnt(7367);}while(r); -do{ -*__LONG_TRY=FUNC_FINDID(__STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7367);}while(r); -}else{ -do{ -*__LONG_TRY= 0 ; -if(!qbevent)break;evnt(7367);}while(r); -} -S_9007:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(7368);if(r)goto S_9007;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7368);}while(r); -} -dl_continue_1043:; -} -dl_exit_1043:; -S_9011:; -if ((-(*__LONG_X== 0 ))||new_error){ -if(qbevent){evnt(7370);if(r)goto S_9011;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected GOSUB/sub",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7370);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7370);}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(7372);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1044=*__LONG_TIMETXTBUF),qbs_add(qbs_add(qbs_new_txt_len("case ",5),FUNC_STR2(__LONG_ONTIMERID)),qbs_new_txt_len(":",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7374);}while(r); -do{ -SUB_WRITEBUFRAWDATA(&(pass1045=*__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(7375);}while(r); -S_9018:; -if ((-(*(int16*)(((char*)__UDT_ID)+(809))> 1 ))||new_error){ -if(qbevent){evnt(7377);if(r)goto S_9018;} -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(7377);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7377);}while(r); -} -S_9022:; -if ((-(*__LONG_I>*__LONG_N))||new_error){ -if(qbevent){evnt(7379);if(r)goto S_9022;} -S_9023:; -if ((-(*(int16*)(((char*)__UDT_ID)+(809))== 1 ))||new_error){ -if(qbevent){evnt(7381);if(r)goto S_9023;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected argument after SUB",27)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7381);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7381);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass1046=*__LONG_MAINTXTBUF),qbs_new_txt_len("0);",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7382);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1047=*__LONG_TIMETXTBUF),qbs_new_txt_len(");",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7383);}while(r); -}else{ -S_9030:; -if ((-(*(int16*)(((char*)__UDT_ID)+(809))== 0 ))||new_error){ -if(qbevent){evnt(7387);if(r)goto S_9030;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("SUB has no arguments",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7387);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7387);}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(7389);}while(r); -do{ -*__LONG_B=*__LONG_T& 511 ; -if(!qbevent)break;evnt(7390);}while(r); -S_9036:; -if (((-(*__LONG_B== 0 ))|(-((*__LONG_T&*__LONG_ISARRAY)!= 0 ))|(-((*__LONG_T&*__LONG_ISFLOAT)!= 0 ))|(-((*__LONG_T&*__LONG_ISSTRING)!= 0 ))|(-((*__LONG_T&*__LONG_ISOFFSETINBITS)!= 0 )))||new_error){ -if(qbevent){evnt(7391);if(r)goto S_9036;} -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(7391);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7391);}while(r); -} -S_9040:; -if ((-(*__LONG_B== 8 ))||new_error){ -if(qbevent){evnt(7392);if(r)goto S_9040;} -do{ -qbs_set(__STRING_CT,qbs_new_txt_len("int8",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7392);}while(r); -} -S_9043:; -if ((-(*__LONG_B== 16 ))||new_error){ -if(qbevent){evnt(7393);if(r)goto S_9043;} -do{ -qbs_set(__STRING_CT,qbs_new_txt_len("int16",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7393);}while(r); -} -S_9046:; -if ((-(*__LONG_B== 32 ))||new_error){ -if(qbevent){evnt(7394);if(r)goto S_9046;} -do{ -qbs_set(__STRING_CT,qbs_new_txt_len("int32",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7394);}while(r); -} -S_9049:; -if ((-(*__LONG_B== 64 ))||new_error){ -if(qbevent){evnt(7395);if(r)goto S_9049;} -do{ -qbs_set(__STRING_CT,qbs_new_txt_len("int64",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7395);}while(r); -} -S_9052:; -if ((*__LONG_T&*__LONG_ISOFFSET)||new_error){ -if(qbevent){evnt(7396);if(r)goto S_9052;} -do{ -qbs_set(__STRING_CT,qbs_new_txt_len("ptrszint",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7396);}while(r); -} -S_9055:; -if ((*__LONG_T&*__LONG_ISUNSIGNED)||new_error){ -if(qbevent){evnt(7397);if(r)goto S_9055;} -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(7397);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass1048=*__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(7398);}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(7400);}while(r); -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7401);}while(r); -S_9061:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(7402);if(r)goto S_9061;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7402);}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(7403);}while(r); -do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1049=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7404);}while(r); -S_9066:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(7405);if(r)goto S_9066;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7405);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass1050=*__LONG_MAINTXTBUF),qbs_add(__STRING_E,qbs_new_txt_len(");",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7406);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass1051=*__LONG_TIMETXTBUF),qbs_new_txt_len("break;",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7410);}while(r); -S_9072:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||new_error){ -if(qbevent){evnt(7411);if(r)goto S_9072;} -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7411);}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(7411);}while(r); -} -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(7412);}while(r); -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(7413);}while(r); -} -} -} -S_9082:; -if ((-(*__LONG_N>= 2 ))||new_error){ -if(qbevent){evnt(7422);if(r)goto S_9082;} -S_9083:; -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)))))||new_error){ -if(qbevent){evnt(7423);if(r)goto S_9083;} -do{ -*__LONG_I= 3 ; -if(!qbevent)break;evnt(7424);}while(r); -S_9085:; -if ((-(*__LONG_I>*__LONG_N))||new_error){ -if(qbevent){evnt(7425);if(r)goto S_9085;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected (",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7425);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7425);}while(r); -} -do{ -qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7426);}while(r); -do{ -*__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(7426);}while(r); -S_9091:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_A2,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(7427);if(r)goto S_9091;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected (",10)); -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_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(7428);}while(r); -S_9096:; -if ((-(*__LONG_I>*__LONG_N))||new_error){ -if(qbevent){evnt(7429);if(r)goto S_9096;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected ...",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7429);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7429);}while(r); -} -do{ -*__LONG_B= 0 ; -if(!qbevent)break;evnt(7430);}while(r); -do{ -*__LONG_X= 0 ; -if(!qbevent)break;evnt(7431);}while(r); -do{ -qbs_set(__STRING_E2,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7432);}while(r); -S_9103:; -fornext_value1054=*__LONG_I; -fornext_finalvalue1054=*__LONG_N; -fornext_step1054= 1 ; -if (fornext_step1054<0) fornext_step_negative1054=1; else fornext_step_negative1054=0; -if (new_error) goto fornext_error1054; -goto fornext_entrylabel1054; -while(1){ -fornext_value1054=fornext_step1054+(*__LONG_I); -fornext_entrylabel1054: -*__LONG_I=fornext_value1054; -if (fornext_step_negative1054){ -if (fornext_value1054fornext_finalvalue1054) break; -} -fornext_error1054:; -if(qbevent){evnt(7433);if(r)goto S_9103;} -do{ -qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7434);}while(r); -do{ -*__LONG_A=qbs_asc(__STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7435);}while(r); -S_9106:; -if ((-(*__LONG_A== 40 ))||new_error){ -if(qbevent){evnt(7438);if(r)goto S_9106;} -do{ -*__LONG_B=*__LONG_B+ 1 ; -if(!qbevent)break;evnt(7438);}while(r); -} -S_9109:; -if ((-(*__LONG_A== 41 ))||new_error){ -if(qbevent){evnt(7439);if(r)goto S_9109;} -do{ -*__LONG_B=*__LONG_B- 1 ; -if(!qbevent)break;evnt(7439);}while(r); -} -S_9112:; -if ((-(*__LONG_B== -1 ))||new_error){ -if(qbevent){evnt(7440);if(r)goto S_9112;} -do{ -goto fornext_exit_1053; -if(!qbevent)break;evnt(7440);}while(r); -} -S_9115:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_E2->len))||new_error){ -if(qbevent){evnt(7441);if(r)goto S_9115;} -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(7441);}while(r); -}else{ -do{ -qbs_set(__STRING_E2,__STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7441);}while(r); -} -fornext_continue_1053:; -} -fornext_exit_1053:; -S_9121:; -if ((-(*__LONG_I==(*__LONG_N+ 1 )))||new_error){ -if(qbevent){evnt(7443);if(r)goto S_9121;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7443);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7443);}while(r); -} -S_9125:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(7444);if(r)goto S_9125;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected ... )",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7444);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7444);}while(r); -} -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7446);}while(r); -S_9130:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(7447);if(r)goto S_9130;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7447);}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(7448);}while(r); -do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1056=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7449);}while(r); -S_9135:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(7450);if(r)goto S_9135;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7450);}while(r); -} -do{ -SUB_WRITEBUFRAWDATA(&(pass1057=*__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(7451);}while(r); -do{ -*__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(7453);}while(r); -S_9140:; -if ((-(*__LONG_I>*__LONG_N))||new_error){ -if(qbevent){evnt(7454);if(r)goto S_9140;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected GOSUB/sub-name",23)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7454);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7454);}while(r); -} -do{ -qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_A,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7455);}while(r); -do{ -*__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(7455);}while(r); -do{ -*__LONG_ONKEYID=*__LONG_ONKEYID+ 1 ; -if(!qbevent)break;evnt(7456);}while(r); -do{ -SUB_WRITEBUFRAWDATA(&(pass1058=*__LONG_MAINTXTBUF),qbs_add(FUNC_STR2(__LONG_ONKEYID),qbs_new_txt_len(",",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7457);}while(r); -S_9148:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("GOSUB",5))))||new_error){ -if(qbevent){evnt(7459);if(r)goto S_9148;} -S_9149:; -if ((-(*__LONG_I>*__LONG_N))||new_error){ -if(qbevent){evnt(7460);if(r)goto S_9149;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected linenumber/label",25)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7460);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7460);}while(r); -} -do{ -qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7461);}while(r); -do{ -*__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(7461);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1059=*__LONG_MAINTXTBUF),qbs_new_txt_len("0);",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7463);}while(r); -S_9156:; -if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(__STRING_A2)== 0 )))||new_error){ -if(qbevent){evnt(7465);if(r)goto S_9156;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Invalid label",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7465);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7465);}while(r); -} -do{ -*__LONG_V=FUNC_HASHFIND(__STRING_A2,&(pass1060= 2 ),__LONG_IGNORE,__LONG_R); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7467);}while(r); -do{ -*__LONG_X= 1 ; -if(!qbevent)break;evnt(7468);}while(r); -LABEL_LABCHK61:; -if(qbevent){evnt(7469);r=0;} -S_9162:; -if ((*__LONG_V)||new_error){ -if(qbevent){evnt(7470);if(r)goto S_9162;} -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(7471);}while(r); -S_9164:; -if (((-(*__LONG_S== 0 ))|(-(*__LONG_S== -1 )))||new_error){ -if(qbevent){evnt(7472);if(r)goto S_9164;} -S_9165:; -if ((-(*__LONG_S== -1 ))||new_error){ -if(qbevent){evnt(7473);if(r)goto S_9165;} -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(7473);}while(r); -} -do{ -*__LONG_X= 0 ; -if(!qbevent)break;evnt(7474);}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(7475);}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(7476);}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(7477);}while(r); -}else{ -S_9173:; -if ((-(*__LONG_V== 2 ))||new_error){ -if(qbevent){evnt(7479);if(r)goto S_9173;} -do{ -*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R); -if(!qbevent)break;evnt(7479);}while(r); -do{ -goto LABEL_LABCHK61; -if(!qbevent)break;evnt(7479);}while(r); -} -} -} -S_9179:; -if ((*__LONG_X)||new_error){ -if(qbevent){evnt(7482);if(r)goto S_9179;} -do{ -*__LONG_NLABELS=*__LONG_NLABELS+ 1 ; -if(!qbevent)break;evnt(7484);}while(r); -S_9181:; -if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||new_error){ -if(qbevent){evnt(7484);if(r)goto S_9181;} -do{ -*__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ; -if(!qbevent)break;evnt(7484);}while(r); -do{ +} +if(!qbevent)break;evnt(7325);}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(7326);}while(r); +do{ +SUB_HASHADD(__STRING_A2,&(pass1032= 2 ),__LONG_NLABELS); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7327);}while(r); +do{ +*__LONG_R=*__LONG_NLABELS; +if(!qbevent)break;evnt(7328);}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(7329);}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(7330);}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(7331);}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(7332);}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(7333);}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(7335);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1033=*__LONG_TIMEJTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if(timer_event_id==",19),FUNC_STR2(__LONG_ONTIMERID)),qbs_new_txt_len(")goto LABEL_",12)),__STRING_A2),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7337);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1034=*__LONG_TIMETXTBUF),qbs_add(qbs_add(qbs_new_txt_len("case ",5),FUNC_STR2(__LONG_ONTIMERID)),qbs_new_txt_len(":",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7339);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1035=*__LONG_TIMETXTBUF),qbs_new_txt_len("timer_event_occurred++;",23)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7340);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1036=*__LONG_TIMETXTBUF),qbs_add(qbs_add(qbs_new_txt_len("timer_event_id=",15),FUNC_STR2(__LONG_ONTIMERID)),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7341);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1037=*__LONG_TIMETXTBUF),qbs_new_txt_len("timer_event_occurred++;",23)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7342);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1038=*__LONG_TIMETXTBUF),qbs_new_txt_len("return_point[next_return_point++]=0;",36)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7343);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1039=*__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(7344);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1040=*__LONG_TIMETXTBUF),qbs_new_txt_len("QBMAIN(NULL);",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7345);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1041=*__LONG_TIMETXTBUF),qbs_new_txt_len("break;",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7346);}while(r); +S_8983:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||new_error){ +if(qbevent){evnt(7356);if(r)goto S_8983;} +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7356);}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(7356);}while(r); +} +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(7357);}while(r); +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(7358);}while(r); +}else{ +do{ +*__LONG_X= 0 ; +if(!qbevent)break;evnt(7362);}while(r); +do{ +*__LONG_TRY=FUNC_FINDID(__STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7363);}while(r); +S_8993:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(7364);if(r)goto S_8993;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7364);}while(r); +} +S_8996:; +while((*__LONG_TRY)||new_error){ +if(qbevent){evnt(7365);if(r)goto S_8996;} +S_8997:; +if ((-(*(int16*)(((char*)__UDT_ID)+(544))== 2 ))||new_error){ +if(qbevent){evnt(7366);if(r)goto S_8997;} +do{ +*__LONG_X= 1 ; +if(!qbevent)break;evnt(7366);}while(r); +do{ +goto dl_exit_1043; +if(!qbevent)break;evnt(7366);}while(r); +} +S_9001:; +if ((-(*__LONG_TRY== 2 ))||new_error){ +if(qbevent){evnt(7367);if(r)goto S_9001;} +do{ +*__INTEGER_FINDANOTHERID= 1 ; +if(!qbevent)break;evnt(7367);}while(r); +do{ +*__LONG_TRY=FUNC_FINDID(__STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7367);}while(r); +}else{ +do{ +*__LONG_TRY= 0 ; +if(!qbevent)break;evnt(7367);}while(r); +} +S_9007:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(7368);if(r)goto S_9007;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7368);}while(r); +} +dl_continue_1043:; +} +dl_exit_1043:; +S_9011:; +if ((-(*__LONG_X== 0 ))||new_error){ +if(qbevent){evnt(7370);if(r)goto S_9011;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected GOSUB/sub",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7370);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7370);}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(7372);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1044=*__LONG_TIMETXTBUF),qbs_add(qbs_add(qbs_new_txt_len("case ",5),FUNC_STR2(__LONG_ONTIMERID)),qbs_new_txt_len(":",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7374);}while(r); +do{ +SUB_WRITEBUFRAWDATA(&(pass1045=*__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(7375);}while(r); +S_9018:; +if ((-(*(int16*)(((char*)__UDT_ID)+(809))> 1 ))||new_error){ +if(qbevent){evnt(7377);if(r)goto S_9018;} +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(7377);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7377);}while(r); +} +S_9022:; +if ((-(*__LONG_I>*__LONG_N))||new_error){ +if(qbevent){evnt(7379);if(r)goto S_9022;} +S_9023:; +if ((-(*(int16*)(((char*)__UDT_ID)+(809))== 1 ))||new_error){ +if(qbevent){evnt(7381);if(r)goto S_9023;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected argument after SUB",27)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7381);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7381);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass1046=*__LONG_MAINTXTBUF),qbs_new_txt_len("0);",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7382);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1047=*__LONG_TIMETXTBUF),qbs_new_txt_len(");",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7383);}while(r); +}else{ +S_9030:; +if ((-(*(int16*)(((char*)__UDT_ID)+(809))== 0 ))||new_error){ +if(qbevent){evnt(7387);if(r)goto S_9030;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("SUB has no arguments",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7387);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7387);}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(7389);}while(r); +do{ +*__LONG_B=*__LONG_T& 511 ; +if(!qbevent)break;evnt(7390);}while(r); +S_9036:; +if (((-(*__LONG_B== 0 ))|(-((*__LONG_T&*__LONG_ISARRAY)!= 0 ))|(-((*__LONG_T&*__LONG_ISFLOAT)!= 0 ))|(-((*__LONG_T&*__LONG_ISSTRING)!= 0 ))|(-((*__LONG_T&*__LONG_ISOFFSETINBITS)!= 0 )))||new_error){ +if(qbevent){evnt(7391);if(r)goto S_9036;} +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(7391);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7391);}while(r); +} +S_9040:; +if ((-(*__LONG_B== 8 ))||new_error){ +if(qbevent){evnt(7392);if(r)goto S_9040;} +do{ +qbs_set(__STRING_CT,qbs_new_txt_len("int8",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7392);}while(r); +} +S_9043:; +if ((-(*__LONG_B== 16 ))||new_error){ +if(qbevent){evnt(7393);if(r)goto S_9043;} +do{ +qbs_set(__STRING_CT,qbs_new_txt_len("int16",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7393);}while(r); +} +S_9046:; +if ((-(*__LONG_B== 32 ))||new_error){ +if(qbevent){evnt(7394);if(r)goto S_9046;} +do{ +qbs_set(__STRING_CT,qbs_new_txt_len("int32",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7394);}while(r); +} +S_9049:; +if ((-(*__LONG_B== 64 ))||new_error){ +if(qbevent){evnt(7395);if(r)goto S_9049;} +do{ +qbs_set(__STRING_CT,qbs_new_txt_len("int64",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7395);}while(r); +} +S_9052:; +if ((*__LONG_T&*__LONG_ISOFFSET)||new_error){ +if(qbevent){evnt(7396);if(r)goto S_9052;} +do{ +qbs_set(__STRING_CT,qbs_new_txt_len("ptrszint",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7396);}while(r); +} +S_9055:; +if ((*__LONG_T&*__LONG_ISUNSIGNED)||new_error){ +if(qbevent){evnt(7397);if(r)goto S_9055;} +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(7397);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass1048=*__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(7398);}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(7400);}while(r); +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7401);}while(r); +S_9061:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(7402);if(r)goto S_9061;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7402);}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(7403);}while(r); +do{ +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1049=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7404);}while(r); +S_9066:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(7405);if(r)goto S_9066;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7405);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass1050=*__LONG_MAINTXTBUF),qbs_add(__STRING_E,qbs_new_txt_len(");",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7406);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass1051=*__LONG_TIMETXTBUF),qbs_new_txt_len("break;",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7410);}while(r); +S_9072:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||new_error){ +if(qbevent){evnt(7411);if(r)goto S_9072;} +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7411);}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(7411);}while(r); +} +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(7412);}while(r); +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(7413);}while(r); +} +} +} +S_9082:; +if ((-(*__LONG_N>= 2 ))||new_error){ +if(qbevent){evnt(7422);if(r)goto S_9082;} +S_9083:; +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)))))||new_error){ +if(qbevent){evnt(7423);if(r)goto S_9083;} +do{ +*__LONG_I= 3 ; +if(!qbevent)break;evnt(7424);}while(r); +S_9085:; +if ((-(*__LONG_I>*__LONG_N))||new_error){ +if(qbevent){evnt(7425);if(r)goto S_9085;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected (",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7425);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7425);}while(r); +} +do{ +qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7426);}while(r); +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(7426);}while(r); +S_9091:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_A2,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(7427);if(r)goto S_9091;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected (",10)); +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_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(7428);}while(r); +S_9096:; +if ((-(*__LONG_I>*__LONG_N))||new_error){ +if(qbevent){evnt(7429);if(r)goto S_9096;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected ...",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7429);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7429);}while(r); +} +do{ +*__LONG_B= 0 ; +if(!qbevent)break;evnt(7430);}while(r); +do{ +*__LONG_X= 0 ; +if(!qbevent)break;evnt(7431);}while(r); +do{ +qbs_set(__STRING_E2,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7432);}while(r); +S_9103:; +fornext_value1054=*__LONG_I; +fornext_finalvalue1054=*__LONG_N; +fornext_step1054= 1 ; +if (fornext_step1054<0) fornext_step_negative1054=1; else fornext_step_negative1054=0; +if (new_error) goto fornext_error1054; +goto fornext_entrylabel1054; +while(1){ +fornext_value1054=fornext_step1054+(*__LONG_I); +fornext_entrylabel1054: +*__LONG_I=fornext_value1054; +if (fornext_step_negative1054){ +if (fornext_value1054fornext_finalvalue1054) break; +} +fornext_error1054:; +if(qbevent){evnt(7433);if(r)goto S_9103;} +do{ +qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7434);}while(r); +do{ +*__LONG_A=qbs_asc(__STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7435);}while(r); +S_9106:; +if ((-(*__LONG_A== 40 ))||new_error){ +if(qbevent){evnt(7438);if(r)goto S_9106;} +do{ +*__LONG_B=*__LONG_B+ 1 ; +if(!qbevent)break;evnt(7438);}while(r); +} +S_9109:; +if ((-(*__LONG_A== 41 ))||new_error){ +if(qbevent){evnt(7439);if(r)goto S_9109;} +do{ +*__LONG_B=*__LONG_B- 1 ; +if(!qbevent)break;evnt(7439);}while(r); +} +S_9112:; +if ((-(*__LONG_B== -1 ))||new_error){ +if(qbevent){evnt(7440);if(r)goto S_9112;} +do{ +goto fornext_exit_1053; +if(!qbevent)break;evnt(7440);}while(r); +} +S_9115:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_E2->len))||new_error){ +if(qbevent){evnt(7441);if(r)goto S_9115;} +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(7441);}while(r); +}else{ +do{ +qbs_set(__STRING_E2,__STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7441);}while(r); +} +fornext_continue_1053:; +} +fornext_exit_1053:; +S_9121:; +if ((-(*__LONG_I==(*__LONG_N+ 1 )))||new_error){ +if(qbevent){evnt(7443);if(r)goto S_9121;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7443);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7443);}while(r); +} +S_9125:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(7444);if(r)goto S_9125;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected ... )",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7444);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7444);}while(r); +} +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7446);}while(r); +S_9130:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(7447);if(r)goto S_9130;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7447);}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(7448);}while(r); +do{ +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1056=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7449);}while(r); +S_9135:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(7450);if(r)goto S_9135;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7450);}while(r); +} +do{ +SUB_WRITEBUFRAWDATA(&(pass1057=*__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(7451);}while(r); +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(7453);}while(r); +S_9140:; +if ((-(*__LONG_I>*__LONG_N))||new_error){ +if(qbevent){evnt(7454);if(r)goto S_9140;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected GOSUB/sub-name",23)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7454);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7454);}while(r); +} +do{ +qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_A,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7455);}while(r); +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(7455);}while(r); +do{ +*__LONG_ONKEYID=*__LONG_ONKEYID+ 1 ; +if(!qbevent)break;evnt(7456);}while(r); +do{ +SUB_WRITEBUFRAWDATA(&(pass1058=*__LONG_MAINTXTBUF),qbs_add(FUNC_STR2(__LONG_ONKEYID),qbs_new_txt_len(",",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7457);}while(r); +S_9148:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("GOSUB",5))))||new_error){ +if(qbevent){evnt(7459);if(r)goto S_9148;} +S_9149:; +if ((-(*__LONG_I>*__LONG_N))||new_error){ +if(qbevent){evnt(7460);if(r)goto S_9149;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected linenumber/label",25)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7460);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7460);}while(r); +} +do{ +qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7461);}while(r); +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(7461);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1059=*__LONG_MAINTXTBUF),qbs_new_txt_len("0);",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7463);}while(r); +S_9156:; +if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(__STRING_A2)== 0 )))||new_error){ +if(qbevent){evnt(7465);if(r)goto S_9156;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Invalid label",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7465);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7465);}while(r); +} +do{ +*__LONG_V=FUNC_HASHFIND(__STRING_A2,&(pass1060= 2 ),__LONG_IGNORE,__LONG_R); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7467);}while(r); +do{ +*__LONG_X= 1 ; +if(!qbevent)break;evnt(7468);}while(r); +LABEL_LABCHK61:; +if(qbevent){evnt(7469);r=0;} +S_9162:; +if ((*__LONG_V)||new_error){ +if(qbevent){evnt(7470);if(r)goto S_9162;} +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(7471);}while(r); +S_9164:; +if (((-(*__LONG_S== 0 ))|(-(*__LONG_S== -1 )))||new_error){ +if(qbevent){evnt(7472);if(r)goto S_9164;} +S_9165:; +if ((-(*__LONG_S== -1 ))||new_error){ +if(qbevent){evnt(7473);if(r)goto S_9165;} +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(7473);}while(r); +} +do{ +*__LONG_X= 0 ; +if(!qbevent)break;evnt(7474);}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(7475);}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(7476);}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(7477);}while(r); +}else{ +S_9173:; +if ((-(*__LONG_V== 2 ))||new_error){ +if(qbevent){evnt(7479);if(r)goto S_9173;} +do{ +*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R); +if(!qbevent)break;evnt(7479);}while(r); +do{ +goto LABEL_LABCHK61; +if(!qbevent)break;evnt(7479);}while(r); +} +} +} +S_9179:; +if ((*__LONG_X)||new_error){ +if(qbevent){evnt(7482);if(r)goto S_9179;} +do{ +*__LONG_NLABELS=*__LONG_NLABELS+ 1 ; +if(!qbevent)break;evnt(7484);}while(r); +S_9181:; +if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||new_error){ +if(qbevent){evnt(7484);if(r)goto S_9181;} +do{ +*__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ; +if(!qbevent)break;evnt(7484);}while(r); +do{ if (__ARRAY_UDT_LABELS[2]&2){ error(10); @@ -31545,4936 +31545,4936 @@ if (!__ARRAY_UDT_LABELS[0]) error(257); } } __ARRAY_UDT_LABELS[2]|=1; -} -if(!qbevent)break;evnt(7484);}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(7485);}while(r); -do{ -SUB_HASHADD(__STRING_A2,&(pass1061= 2 ),__LONG_NLABELS); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7486);}while(r); -do{ -*__LONG_R=*__LONG_NLABELS; -if(!qbevent)break;evnt(7487);}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(7488);}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(7489);}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(7490);}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(7491);}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(7492);}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(7494);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1062=*__LONG_KEYJTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if(key_event_id==",17),FUNC_STR2(__LONG_ONKEYID)),qbs_new_txt_len(")goto LABEL_",12)),__STRING_A2),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7496);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1063=*__LONG_KEYTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("case ",5),FUNC_STR2(__LONG_ONKEYID)),qbs_new_txt_len(":",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7498);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1064=*__LONG_KEYTXTBUF),qbs_new_txt_len("key_event_occurred++;",21)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7499);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1065=*__LONG_KEYTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("key_event_id=",13),FUNC_STR2(__LONG_ONKEYID)),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7500);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1066=*__LONG_KEYTXTBUF),qbs_new_txt_len("key_event_occurred++;",21)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7501);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1067=*__LONG_KEYTXTBUF),qbs_new_txt_len("return_point[next_return_point++]=0;",36)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7502);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1068=*__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(7503);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1069=*__LONG_KEYTXTBUF),qbs_new_txt_len("QBMAIN(NULL);",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7504);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1070=*__LONG_KEYTXTBUF),qbs_new_txt_len("break;",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7505);}while(r); -S_9204:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||new_error){ -if(qbevent){evnt(7507);if(r)goto S_9204;} -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7507);}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(7507);}while(r); -} -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(7508);}while(r); -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(7509);}while(r); -}else{ -do{ -*__LONG_X= 0 ; -if(!qbevent)break;evnt(7513);}while(r); -do{ -*__LONG_TRY=FUNC_FINDID(__STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7514);}while(r); -S_9214:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(7515);if(r)goto S_9214;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7515);}while(r); -} -S_9217:; -while((*__LONG_TRY)||new_error){ -if(qbevent){evnt(7516);if(r)goto S_9217;} -S_9218:; -if ((-(*(int16*)(((char*)__UDT_ID)+(544))== 2 ))||new_error){ -if(qbevent){evnt(7517);if(r)goto S_9218;} -do{ -*__LONG_X= 1 ; -if(!qbevent)break;evnt(7517);}while(r); -do{ -goto dl_exit_1072; -if(!qbevent)break;evnt(7517);}while(r); -} -S_9222:; -if ((-(*__LONG_TRY== 2 ))||new_error){ -if(qbevent){evnt(7518);if(r)goto S_9222;} -do{ -*__INTEGER_FINDANOTHERID= 1 ; -if(!qbevent)break;evnt(7518);}while(r); -do{ -*__LONG_TRY=FUNC_FINDID(__STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7518);}while(r); -}else{ -do{ -*__LONG_TRY= 0 ; -if(!qbevent)break;evnt(7518);}while(r); -} -S_9228:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(7519);if(r)goto S_9228;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7519);}while(r); -} -dl_continue_1072:; -} -dl_exit_1072:; -S_9232:; -if ((-(*__LONG_X== 0 ))||new_error){ -if(qbevent){evnt(7521);if(r)goto S_9232;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected GOSUB/sub",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7521);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7521);}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(7523);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1073=*__LONG_KEYTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("case ",5),FUNC_STR2(__LONG_ONKEYID)),qbs_new_txt_len(":",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7525);}while(r); -do{ -SUB_WRITEBUFRAWDATA(&(pass1074=*__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(7526);}while(r); -S_9239:; -if ((-(*(int16*)(((char*)__UDT_ID)+(809))> 1 ))||new_error){ -if(qbevent){evnt(7528);if(r)goto S_9239;} -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(7528);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7528);}while(r); -} -S_9243:; -if ((-(*__LONG_I>*__LONG_N))||new_error){ -if(qbevent){evnt(7530);if(r)goto S_9243;} -S_9244:; -if ((-(*(int16*)(((char*)__UDT_ID)+(809))== 1 ))||new_error){ -if(qbevent){evnt(7532);if(r)goto S_9244;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected argument after SUB",27)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7532);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7532);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass1075=*__LONG_MAINTXTBUF),qbs_new_txt_len("0);",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7533);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1076=*__LONG_KEYTXTBUF),qbs_new_txt_len(");",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7534);}while(r); -}else{ -S_9251:; -if ((-(*(int16*)(((char*)__UDT_ID)+(809))== 0 ))||new_error){ -if(qbevent){evnt(7538);if(r)goto S_9251;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("SUB has no arguments",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7538);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7538);}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(7540);}while(r); -do{ -*__LONG_B=*__LONG_T& 511 ; -if(!qbevent)break;evnt(7541);}while(r); -S_9257:; -if (((-(*__LONG_B== 0 ))|(-((*__LONG_T&*__LONG_ISARRAY)!= 0 ))|(-((*__LONG_T&*__LONG_ISFLOAT)!= 0 ))|(-((*__LONG_T&*__LONG_ISSTRING)!= 0 ))|(-((*__LONG_T&*__LONG_ISOFFSETINBITS)!= 0 )))||new_error){ -if(qbevent){evnt(7542);if(r)goto S_9257;} -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(7542);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7542);}while(r); -} -S_9261:; -if ((-(*__LONG_B== 8 ))||new_error){ -if(qbevent){evnt(7543);if(r)goto S_9261;} -do{ -qbs_set(__STRING_CT,qbs_new_txt_len("int8",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7543);}while(r); -} -S_9264:; -if ((-(*__LONG_B== 16 ))||new_error){ -if(qbevent){evnt(7544);if(r)goto S_9264;} -do{ -qbs_set(__STRING_CT,qbs_new_txt_len("int16",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7544);}while(r); -} -S_9267:; -if ((-(*__LONG_B== 32 ))||new_error){ -if(qbevent){evnt(7545);if(r)goto S_9267;} -do{ -qbs_set(__STRING_CT,qbs_new_txt_len("int32",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7545);}while(r); -} -S_9270:; -if ((-(*__LONG_B== 64 ))||new_error){ -if(qbevent){evnt(7546);if(r)goto S_9270;} -do{ -qbs_set(__STRING_CT,qbs_new_txt_len("int64",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7546);}while(r); -} -S_9273:; -if ((*__LONG_T&*__LONG_ISOFFSET)||new_error){ -if(qbevent){evnt(7547);if(r)goto S_9273;} -do{ -qbs_set(__STRING_CT,qbs_new_txt_len("ptrszint",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7547);}while(r); -} -S_9276:; -if ((*__LONG_T&*__LONG_ISUNSIGNED)||new_error){ -if(qbevent){evnt(7548);if(r)goto S_9276;} -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(7548);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass1077=*__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(7549);}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(7551);}while(r); -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7552);}while(r); -S_9282:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(7553);if(r)goto S_9282;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7553);}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(7554);}while(r); -do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1078=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7555);}while(r); -S_9287:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(7556);if(r)goto S_9287;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7556);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass1079=*__LONG_MAINTXTBUF),qbs_add(__STRING_E,qbs_new_txt_len(");",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7557);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass1080=*__LONG_KEYTXTBUF),qbs_new_txt_len("break;",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7561);}while(r); -S_9293:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||new_error){ -if(qbevent){evnt(7562);if(r)goto S_9293;} -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7562);}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(7562);}while(r); -} -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(7563);}while(r); -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(7564);}while(r); -} -} -} -S_9303:; -if ((-(*__LONG_N>= 1 ))||new_error){ -if(qbevent){evnt(7597);if(r)goto S_9303;} -S_9304:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("SHARED",6))))||new_error){ -if(qbevent){evnt(7598);if(r)goto S_9304;} -S_9305:; -if ((-(*__LONG_N== 1 ))||new_error){ -if(qbevent){evnt(7599);if(r)goto S_9305;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected SHARED ...",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7599);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7599);}while(r); -} -do{ -*__LONG_I= 2 ; -if(!qbevent)break;evnt(7600);}while(r); -S_9310:; -if ((-(*__LONG_SUBFUNCN== 0 ))||new_error){ -if(qbevent){evnt(7601);if(r)goto S_9310;} -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(7601);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7601);}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(7605);}while(r); -LABEL_SUBFUNCSHR:; -if(qbevent){evnt(7606);r=0;} -do{ -qbs_set(__STRING_N,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7609);}while(r); -do{ -*__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(7609);}while(r); -S_9317:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_N,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(7611);if(r)goto S_9317;} -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(7611);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7611);}while(r); -} -S_9321:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_ucase(__STRING_N),qbs_new_txt_len("AS",2))))||new_error){ -if(qbevent){evnt(7613);if(r)goto S_9321;} -do{ -*__LONG_NEWSHAREDSYNTAX= 0 ; -if(!qbevent)break;evnt(7615);}while(r); -do{ -qbs_set(__STRING_S,FUNC_REMOVESYMBOL(__STRING_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7616);}while(r); -S_9324:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(7617);if(r)goto S_9324;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7617);}while(r); -} -do{ -qbs_set(__STRING_L2,__STRING_S); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7618);}while(r); -do{ -*__LONG_A= 0 ; -if(!qbevent)break;evnt(7621);}while(r); -S_9329:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,__LONG_I),qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(7622);if(r)goto S_9329;} -S_9330:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,&(pass1082=*__LONG_I+ 1 )),qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(7623);if(r)goto S_9330;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected ()",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7623);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7623);}while(r); -} -do{ -*__LONG_I=*__LONG_I+ 2 ; -if(!qbevent)break;evnt(7624);}while(r); -do{ -*__LONG_A= 1 ; -if(!qbevent)break;evnt(7625);}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(7626);}while(r); -} -do{ -*__LONG_METHOD= 1 ; -if(!qbevent)break;evnt(7629);}while(r); -do{ -qbs_set(__STRING_T,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7632);}while(r); -do{ -qbs_set(__STRING_TS,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7633);}while(r); -do{ -qbs_set(__STRING_T3,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7634);}while(r); -S_9342:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,__LONG_I),qbs_new_txt_len("AS",2))))||new_error){ -if(qbevent){evnt(7635);if(r)goto S_9342;} -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(7636);}while(r); -LABEL_GETSHRTYP:; -if(qbevent){evnt(7637);r=0;} -do{ -*__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(7638);}while(r); -do{ -qbs_set(__STRING_T2,FUNC_GETELEMENT(__STRING_A,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7639);}while(r); -S_9346:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(__STRING_T2,qbs_new_txt_len(",",1)))&(qbs_notequal(__STRING_T2,qbs_new_txt_len("",0)))))||new_error){ -if(qbevent){evnt(7640);if(r)goto S_9346;} -S_9347:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(7641);if(r)goto S_9347;} -do{ -qbs_set(__STRING_T,__STRING_T2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7641);}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(7641);}while(r); -} -S_9352:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T3,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(7642);if(r)goto S_9352;} -do{ -qbs_set(__STRING_T3,__STRING_T2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7642);}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(7642);}while(r); -} -do{ -goto LABEL_GETSHRTYP; -if(!qbevent)break;evnt(7643);}while(r); -} -S_9359:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(7645);if(r)goto S_9359;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected AS type",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7645);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7645);}while(r); -} -do{ -*__LONG_T=FUNC_TYPNAME2TYP(__STRING_T); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7647);}while(r); -S_9364:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(7648);if(r)goto S_9364;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7648);}while(r); -} -S_9367:; -if ((*__LONG_T&*__LONG_ISINCONVENTIONALMEMORY)||new_error){ -if(qbevent){evnt(7649);if(r)goto S_9367;} -do{ -*__LONG_T=*__LONG_T-*__LONG_ISINCONVENTIONALMEMORY; -if(!qbevent)break;evnt(7649);}while(r); -} -S_9370:; -if ((*__LONG_T&*__LONG_ISPOINTER)||new_error){ -if(qbevent){evnt(7650);if(r)goto S_9370;} -do{ -*__LONG_T=*__LONG_T-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(7650);}while(r); -} -S_9373:; -if ((*__LONG_T&*__LONG_ISREFERENCE)||new_error){ -if(qbevent){evnt(7651);if(r)goto S_9373;} -do{ -*__LONG_T=*__LONG_T-*__LONG_ISREFERENCE; -if(!qbevent)break;evnt(7651);}while(r); -} -do{ -*__LONG_TSIZE=*__LONG_TYPNAME2TYPSIZE; -if(!qbevent)break;evnt(7652);}while(r); -do{ -*__LONG_METHOD= 0 ; -if(!qbevent)break;evnt(7653);}while(r); -S_9378:; -if ((-((*__LONG_T&*__LONG_ISUDT)== 0 ))||new_error){ -if(qbevent){evnt(7654);if(r)goto S_9378;} -do{ -qbs_set(__STRING_TS,FUNC_TYPE2SYMBOL(__STRING_T)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7655);}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(7656);}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(7658);}while(r); -S_9383:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(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_new_txt_len("_MEM",4)))&(qbs_equal(qbs_ucase(__STRING_T),qbs_new_txt_len("MEM",3)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))||new_error){ -if(qbevent){evnt(7659);if(r)goto S_9383;} -do{ -qbs_set(__STRING_T3,func_mid(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)), 2 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7660);}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(7662);}while(r); -} -S_9388:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(7664);if(r)goto S_9388;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7664);}while(r); -} -} -S_9392:; -if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_S->len!= 0 ))&(-(__STRING_T->len!= 0 ))))||new_error){ -if(qbevent){evnt(7668);if(r)goto S_9392;} -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(7668);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7668);}while(r); -} -S_9396:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_S,qbs_new_txt_len("",0)))&(qbs_equal(__STRING_T,qbs_new_txt_len("",0)))))||new_error){ -if(qbevent){evnt(7671);if(r)goto S_9396;} -S_9397:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_N, 1 ),qbs_new_txt_len("_",1))))||new_error){ -if(qbevent){evnt(7672);if(r)goto S_9397;} -do{ -*__LONG_V= 27 ; -if(!qbevent)break;evnt(7672);}while(r); -}else{ -do{ -*__LONG_V=qbs_asc(qbs_ucase(__STRING_N))- 64 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7672);}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(7673);}while(r); -} -LABEL_NORMALSHAREDBLOCK:; -if(qbevent){evnt(7676);r=0;} -do{ -qbs_set(__STRING_OLDSUBFUNC,__STRING_SUBFUNC); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7678);}while(r); -do{ -qbs_set(__STRING_SUBFUNC,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7679);}while(r); -do{ -*__INTEGER_DEFDATAHANDLE=*__LONG_GLOBTXTBUF; -if(!qbevent)break;evnt(7680);}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(7681);}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(7682);}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(7685);}while(r); -do{ -*__LONG_TRY=FUNC_FINDID(__STRING_N2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7686);}while(r); -S_9411:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(7687);if(r)goto S_9411;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7687);}while(r); -} -S_9414:; -while((*__LONG_TRY)||new_error){ -if(qbevent){evnt(7688);if(r)goto S_9414;} -S_9415:; -if ((*__LONG_A)||new_error){ -if(qbevent){evnt(7689);if(r)goto S_9415;} -S_9416:; -if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ -if(qbevent){evnt(7692);if(r)goto S_9416;} -S_9417:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_T->len== 0 )))||new_error){ -if(qbevent){evnt(7693);if(r)goto S_9417;} -do{ -goto LABEL_SHRFOUND; -if(!qbevent)break;evnt(7693);}while(r); -} -do{ -*__LONG_T2=*(int32*)(((char*)__UDT_ID)+(512)); -if(!qbevent)break;evnt(7694);}while(r); -do{ -*__LONG_T2SIZE=*(int32*)(((char*)__UDT_ID)+(540)); -if(!qbevent)break;evnt(7694);}while(r); -S_9422:; -if ((*__LONG_T2&*__LONG_ISINCONVENTIONALMEMORY)||new_error){ -if(qbevent){evnt(7695);if(r)goto S_9422;} -do{ -*__LONG_T2=*__LONG_T2-*__LONG_ISINCONVENTIONALMEMORY; -if(!qbevent)break;evnt(7695);}while(r); -} -S_9425:; -if ((*__LONG_T2&*__LONG_ISPOINTER)||new_error){ -if(qbevent){evnt(7696);if(r)goto S_9425;} -do{ -*__LONG_T2=*__LONG_T2-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(7696);}while(r); -} -S_9428:; -if ((*__LONG_T2&*__LONG_ISREFERENCE)||new_error){ -if(qbevent){evnt(7697);if(r)goto S_9428;} -do{ -*__LONG_T2=*__LONG_T2-*__LONG_ISREFERENCE; -if(!qbevent)break;evnt(7697);}while(r); -} -S_9431:; -if (((-(*__LONG_T==*__LONG_T2))&(-(*__LONG_TSIZE==*__LONG_T2SIZE)))||new_error){ -if(qbevent){evnt(7698);if(r)goto S_9431;} -do{ -goto LABEL_SHRFOUND; -if(!qbevent)break;evnt(7698);}while(r); -} -} -}else{ -S_9436:; -if ((*(int32*)(((char*)__UDT_ID)+(536)))||new_error){ -if(qbevent){evnt(7704);if(r)goto S_9436;} -S_9437:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_T->len== 0 )))||new_error){ -if(qbevent){evnt(7705);if(r)goto S_9437;} -do{ -goto LABEL_SHRFOUND; -if(!qbevent)break;evnt(7705);}while(r); -} -do{ -*__LONG_T2=*(int32*)(((char*)__UDT_ID)+(536)); -if(!qbevent)break;evnt(7706);}while(r); -do{ -*__LONG_T2SIZE=*(int32*)(((char*)__UDT_ID)+(540)); -if(!qbevent)break;evnt(7706);}while(r); -S_9442:; -if ((*__LONG_T2&*__LONG_ISINCONVENTIONALMEMORY)||new_error){ -if(qbevent){evnt(7707);if(r)goto S_9442;} -do{ -*__LONG_T2=*__LONG_T2-*__LONG_ISINCONVENTIONALMEMORY; -if(!qbevent)break;evnt(7707);}while(r); -} -S_9445:; -if ((*__LONG_T2&*__LONG_ISPOINTER)||new_error){ -if(qbevent){evnt(7708);if(r)goto S_9445;} -do{ -*__LONG_T2=*__LONG_T2-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(7708);}while(r); -} -S_9448:; -if ((*__LONG_T2&*__LONG_ISREFERENCE)||new_error){ -if(qbevent){evnt(7709);if(r)goto S_9448;} -do{ -*__LONG_T2=*__LONG_T2-*__LONG_ISREFERENCE; -if(!qbevent)break;evnt(7709);}while(r); -} -S_9451:; -if (( 0 )||new_error){ -if(qbevent){evnt(7711);if(r)goto S_9451;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1088; -sub_file_print(tmp_fileno,qbs_new_txt_len("SHARED:comparing:",17), 0, 0, 0); -if (new_error) goto skip1088; -sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_T)), 1, 0, 0); -if (new_error) goto skip1088; -sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_T2)), 1, 1, 0); -if (new_error) goto skip1088; -sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_TSIZE)), 1, 0, 0); -if (new_error) goto skip1088; -sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_T2SIZE)), 1, 0, 1); -if (new_error) goto skip1088; -skip1088: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(7711);}while(r); -} -S_9454:; -if (((-(*__LONG_T==*__LONG_T2))&(-(*__LONG_TSIZE==*__LONG_T2SIZE)))||new_error){ -if(qbevent){evnt(7713);if(r)goto S_9454;} -do{ -goto LABEL_SHRFOUND; -if(!qbevent)break;evnt(7713);}while(r); -} -} -} -S_9459:; -if ((-(*__LONG_TRY== 2 ))||new_error){ -if(qbevent){evnt(7718);if(r)goto S_9459;} -do{ -*__INTEGER_FINDANOTHERID= 1 ; -if(!qbevent)break;evnt(7718);}while(r); -do{ -*__LONG_TRY=FUNC_FINDID(__STRING_N2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7718);}while(r); -}else{ -do{ -*__LONG_TRY= 0 ; -if(!qbevent)break;evnt(7718);}while(r); -} -S_9465:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(7719);if(r)goto S_9465;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7719);}while(r); -} -dl_continue_1085:; -} -dl_exit_1085:; -S_9469:; -if ((*__LONG_A)||new_error){ -if(qbevent){evnt(7722);if(r)goto S_9469;} -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(7722);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7722);}while(r); -} -S_9473:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_S->len))||new_error){ -if(qbevent){evnt(7724);if(r)goto S_9473;} -do{ -qbs_set(__STRING_TYP,__STRING_S); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7724);}while(r); -}else{ -do{ -qbs_set(__STRING_TYP,__STRING_T); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7724);}while(r); -} -S_9478:; -if ((*__BYTE_OPTIONEXPLICIT)||new_error){ -if(qbevent){evnt(7725);if(r)goto S_9478;} -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(7725);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7725);}while(r); -} -do{ -*__BYTE_BYPASSNEXTVARIABLE= -1 ; -if(!qbevent)break;evnt(7726);}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(7727);}while(r); -do{ -SUB_MANAGEVARIABLELIST(qbs_new_txt_len("",0),__STRING_VWATCHNEWVARIABLE,&(pass1090= 0 ),&(pass1091= 2 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7728);}while(r); -S_9485:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(7729);if(r)goto S_9485;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7729);}while(r); -} -LABEL_SHRFOUND:; -if(qbevent){evnt(7732);r=0;} -S_9488:; -if ((-(*__LONG_NEWSHAREDSYNTAX== 0 ))||new_error){ -if(qbevent){evnt(7733);if(r)goto S_9488;} -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(7734);}while(r); -}else{ -S_9491:; -if ((-(*__LONG_SHAREDASLAYOUTADDED== 0 ))||new_error){ -if(qbevent){evnt(7736);if(r)goto S_9491;} -do{ -*__LONG_SHAREDASLAYOUTADDED= -1 ; -if(!qbevent)break;evnt(7737);}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(7738);}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(7740);}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(7744);}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(7747);}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(7747);}while(r); -S_9501:; -if (((-(*__LONG_LMAY!= 0 ))|(-(*__LONG_LMUST!= 0 )))||new_error){ -if(qbevent){evnt(7748);if(r)goto S_9501;} -S_9502:; -if ((((-(*__LONG_METHOD== 1 ))&(-(*__LONG_LMUST== 0 )))|((-(*__LONG_METHOD== 0 ))&(-(*__LONG_LMAY== 0 ))))||new_error){ -if(qbevent){evnt(7749);if(r)goto S_9502;} -do{ -*__LONG_REVERTMAYMUSTHAVEN=*__LONG_REVERTMAYMUSTHAVEN+ 1 ; -if(!qbevent)break;evnt(7750);}while(r); -do{ -tmp_long=array_check((*__LONG_REVERTMAYMUSTHAVEN)-__ARRAY_LONG_REVERTMAYMUSTHAVE[4],__ARRAY_LONG_REVERTMAYMUSTHAVE[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_REVERTMAYMUSTHAVE[0]))[tmp_long]=*__LONG_CURRENTID; -if(!qbevent)break;evnt(7751);}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(7752);}while(r); -} -} -do{ -qbs_set(__STRING_SUBFUNC,__STRING_OLDSUBFUNC); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7757);}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)),FUNC_STR2(__LONG_SUBFUNCN)),qbs_new_txt_len(".txt",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7758);}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)),FUNC_STR2(__LONG_SUBFUNCN)),qbs_new_txt_len(".txt",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7759);}while(r); -do{ -*__INTEGER_DEFDATAHANDLE=*__LONG_DATATXTBUF; -if(!qbevent)break;evnt(7760);}while(r); -S_9512:; -if ((*__LONG_NEWSHAREDSYNTAX)||new_error){ -if(qbevent){evnt(7762);if(r)goto S_9512;} -do{ -#include "ret0.txt" -if(!qbevent)break;evnt(7762);}while(r); -} -S_9515:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,__LONG_I),qbs_new_txt_len(",",1))))||new_error){ -if(qbevent){evnt(7764);if(r)goto S_9515;} -do{ -*__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(7764);}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(7764);}while(r); -do{ -goto LABEL_SUBFUNCSHR; -if(!qbevent)break;evnt(7764);}while(r); -} -S_9520:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,__LONG_I),qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(7765);if(r)goto S_9520;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected ,",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7765);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7765);}while(r); -} -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(7767);}while(r); -S_9525:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(7767);if(r)goto S_9525;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7767);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7767);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(7768);}while(r); -}else{ -do{ -*__LONG_I=*__LONG_I- 1 ; -if(!qbevent)break;evnt(7771);}while(r); -do{ -qbs_set(__STRING_T,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7774);}while(r); -do{ -qbs_set(__STRING_TS,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7775);}while(r); -do{ -qbs_set(__STRING_T3,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7776);}while(r); -do{ -qbs_set(__STRING_N,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7777);}while(r); -do{ -qbs_set(__STRING_PREVIOUSELEMENT,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7778);}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(7779);}while(r); -do{ -*__LONG_SHAREDASLAYOUTADDED= 0 ; -if(!qbevent)break;evnt(7780);}while(r); -LABEL_GETSHRTYP2:; -if(qbevent){evnt(7781);r=0;} -do{ -*__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(7782);}while(r); -do{ -qbs_set(__STRING_T2,FUNC_GETELEMENT(__STRING_A,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7783);}while(r); -S_9542:; -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)))))||new_error){ -if(qbevent){evnt(7784);if(r)goto S_9542;} -do{ -qbs_set(__STRING_N,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7786);}while(r); -S_9544:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_PREVIOUSELEMENT->len))||new_error){ -if(qbevent){evnt(7788);if(r)goto S_9544;} -S_9545:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(7789);if(r)goto S_9545;} -do{ -qbs_set(__STRING_T,__STRING_PREVIOUSELEMENT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7789);}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(7789);}while(r); -} -S_9550:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T3,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(7790);if(r)goto S_9550;} -do{ -qbs_set(__STRING_T3,__STRING_PREVIOUSELEMENT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7790);}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(7790);}while(r); -} -} -do{ -qbs_set(__STRING_PREVIOUSELEMENT,__STRING_T2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7792);}while(r); -do{ -goto LABEL_GETSHRTYP2; -if(!qbevent)break;evnt(7793);}while(r); -} -S_9559:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(7795);if(r)goto S_9559;} -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(7795);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7795);}while(r); -} -do{ -*__LONG_T=FUNC_TYPNAME2TYP(__STRING_T); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7797);}while(r); -S_9564:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(7798);if(r)goto S_9564;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7798);}while(r); -} -S_9567:; -if ((*__LONG_T&*__LONG_ISINCONVENTIONALMEMORY)||new_error){ -if(qbevent){evnt(7799);if(r)goto S_9567;} -do{ -*__LONG_T=*__LONG_T-*__LONG_ISINCONVENTIONALMEMORY; -if(!qbevent)break;evnt(7799);}while(r); -} -S_9570:; -if ((*__LONG_T&*__LONG_ISPOINTER)||new_error){ -if(qbevent){evnt(7800);if(r)goto S_9570;} -do{ -*__LONG_T=*__LONG_T-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(7800);}while(r); -} -S_9573:; -if ((*__LONG_T&*__LONG_ISREFERENCE)||new_error){ -if(qbevent){evnt(7801);if(r)goto S_9573;} -do{ -*__LONG_T=*__LONG_T-*__LONG_ISREFERENCE; -if(!qbevent)break;evnt(7801);}while(r); -} -do{ -*__LONG_TSIZE=*__LONG_TYPNAME2TYPSIZE; -if(!qbevent)break;evnt(7802);}while(r); -do{ -*__LONG_METHOD= 0 ; -if(!qbevent)break;evnt(7803);}while(r); -S_9578:; -if ((-((*__LONG_T&*__LONG_ISUDT)== 0 ))||new_error){ -if(qbevent){evnt(7804);if(r)goto S_9578;} -do{ -qbs_set(__STRING_TS,FUNC_TYPE2SYMBOL(__STRING_T)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7805);}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(7806);}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(7808);}while(r); -S_9583:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(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_new_txt_len("_MEM",4)))&(qbs_equal(qbs_ucase(__STRING_T),qbs_new_txt_len("MEM",3)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))||new_error){ -if(qbevent){evnt(7809);if(r)goto S_9583;} -do{ -qbs_set(__STRING_T3,func_mid(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)), 2 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7810);}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(7812);}while(r); -} -S_9588:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(7814);if(r)goto S_9588;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7814);}while(r); -} -LABEL_SUBFUNCSHR2:; -if(qbevent){evnt(7816);r=0;} -do{ -qbs_set(__STRING_S,FUNC_REMOVESYMBOL(__STRING_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7817);}while(r); -S_9592:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(7818);if(r)goto S_9592;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7818);}while(r); -} -S_9595:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_S,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(7819);if(r)goto S_9595;} -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(7820);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7821);}while(r); -} -do{ -*__LONG_A= 0 ; -if(!qbevent)break;evnt(7825);}while(r); -do{ -qbs_set(__STRING_L3,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7826);}while(r); -S_9601:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,__LONG_I),qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(7827);if(r)goto S_9601;} -S_9602:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,&(pass1094=*__LONG_I+ 1 )),qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(7828);if(r)goto S_9602;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected ()",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7828);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7828);}while(r); -} -do{ -*__LONG_I=*__LONG_I+ 2 ; -if(!qbevent)break;evnt(7829);}while(r); -do{ -*__LONG_A= 1 ; -if(!qbevent)break;evnt(7830);}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(7831);}while(r); -} -do{ -*__LONG_NEWSHAREDSYNTAX= -1 ; -if(!qbevent)break;evnt(7834);}while(r); -do{ -return_point[next_return_point++]=4; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_NORMALSHAREDBLOCK; -RETURN_4:; -if(!qbevent)break;evnt(7835);}while(r); -do{ -*__LONG_NEWSHAREDSYNTAX= 0 ; -if(!qbevent)break;evnt(7836);}while(r); -S_9613:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,__LONG_I),qbs_new_txt_len(",",1))))||new_error){ -if(qbevent){evnt(7838);if(r)goto S_9613;} -do{ -*__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(7839);}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(7840);}while(r); -do{ -qbs_set(__STRING_N,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7843);}while(r); -do{ -*__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(7843);}while(r); -do{ -goto LABEL_SUBFUNCSHR2; -if(!qbevent)break;evnt(7844);}while(r); -} -S_9620:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,__LONG_I),qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(7846);if(r)goto S_9620;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected ,",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7846);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7846);}while(r); -} -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(7848);}while(r); -S_9625:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(7848);if(r)goto S_9625;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7848);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7848);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(7849);}while(r); -} -} -} -S_9634:; -if ((-(*__LONG_N== 2 ))||new_error){ -if(qbevent){evnt(7855);if(r)goto S_9634;} -S_9635:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("EXIT",4))))||new_error){ -if(qbevent){evnt(7856);if(r)goto S_9635;} -do{ -*__LONG_SF= 0 ; -if(!qbevent)break;evnt(7857);}while(r); -S_9637:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("FUNCTION",8))))||new_error){ -if(qbevent){evnt(7858);if(r)goto S_9637;} -do{ -*__LONG_SF= 1 ; -if(!qbevent)break;evnt(7858);}while(r); -} -S_9640:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("SUB",3))))||new_error){ -if(qbevent){evnt(7859);if(r)goto S_9640;} -do{ -*__LONG_SF= 2 ; -if(!qbevent)break;evnt(7859);}while(r); -} -S_9643:; -if ((*__LONG_SF)||new_error){ -if(qbevent){evnt(7860);if(r)goto S_9643;} -S_9644:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_SUBFUNC->len== 0 )))||new_error){ -if(qbevent){evnt(7862);if(r)goto S_9644;} -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(7862);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7862);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass1097=*__LONG_MAINTXTBUF),qbs_new_txt_len("goto exit_subfunc;",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7864);}while(r); -S_9649:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_SUBFUNC, 4 ),qbs_new_txt_len("SUB_",4))))||new_error){ -if(qbevent){evnt(7865);if(r)goto S_9649;} -do{ -qbs_set(__STRING_SECONDELEMENT,FUNC_SCASE(qbs_new_txt_len("Sub",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7865);}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(7865);}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(7866);}while(r); -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(7867);}while(r); -S_9656:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(7867);if(r)goto S_9656;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7867);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7867);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(7868);}while(r); -} -} -} -S_9665:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_ECHO",5)))|(((qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("ECHO",4)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ -if(qbevent){evnt(7875);if(r)goto S_9665;} -S_9666:; -if ((-(*__LONG_CONSOLE== 0 ))||new_error){ -if(qbevent){evnt(7876);if(r)goto S_9666;} -do{ -qbs_set(__STRING_A,qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ECHO requires $CONSOLE or $CONSOLE:ONLY to be set first",55))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7877);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7877);}while(r); -} -} -S_9671:; -if ((-(*__LONG_N>= 1 ))||new_error){ -if(qbevent){evnt(7883);if(r)goto S_9671;} -S_9672:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("ASC",3))))||new_error){ -if(qbevent){evnt(7884);if(r)goto S_9672;} -S_9673:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,&(pass1099= 2 )),qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(7885);if(r)goto S_9673;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected ( after ASC",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7885);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7885);}while(r); -} -do{ -*__LONG_USEPOSITION= 0 ; -if(!qbevent)break;evnt(7888);}while(r); -do{ -*__LONG_PART= 1 ; -if(!qbevent)break;evnt(7889);}while(r); -do{ -*__LONG_I= 3 ; -if(!qbevent)break;evnt(7890);}while(r); -do{ -qbs_set(__STRING_A3,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7891);}while(r); -do{ -qbs_set(__STRING_STRINGVARIABLE,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7892);}while(r); -do{ -qbs_set(__STRING_POSITION,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7893);}while(r); -do{ -*__LONG_B= 0 ; -if(!qbevent)break;evnt(7894);}while(r); -S_9684:; -do{ -if(qbevent){evnt(7895);if(r)goto S_9684;} -S_9685:; -if ((-(*__LONG_I>*__LONG_N))||new_error){ -if(qbevent){evnt(7897);if(r)goto S_9685;} -S_9686:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_PART!= 3 ))|(-(__STRING_A3->len== 0 ))))||new_error){ -if(qbevent){evnt(7898);if(r)goto S_9686;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected ASC ( ... , ... ) = ...",32)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7898);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7898);}while(r); -} -do{ -qbs_set(__STRING_EXPRESSION,__STRING_A3); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7899);}while(r); -do{ -goto dl_exit_1100; -if(!qbevent)break;evnt(7900);}while(r); -} -do{ -qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7903);}while(r); -S_9694:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(7904);if(r)goto S_9694;} -do{ -*__LONG_B=*__LONG_B+ 1 ; -if(!qbevent)break;evnt(7904);}while(r); -} -S_9697:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(7905);if(r)goto S_9697;} -do{ -*__LONG_B=*__LONG_B- 1 ; -if(!qbevent)break;evnt(7905);}while(r); -} -S_9700:; -if ((-(*__LONG_B== -1 ))||new_error){ -if(qbevent){evnt(7907);if(r)goto S_9700;} -S_9701:; -if ((-(*__LONG_PART== 1 ))||new_error){ -if(qbevent){evnt(7909);if(r)goto S_9701;} -S_9702:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,&(pass1102=*__LONG_I+ 1 )),qbs_new_txt_len("=",1))))||new_error){ -if(qbevent){evnt(7910);if(r)goto S_9702;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected =",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7910);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7910);}while(r); -} -do{ -qbs_set(__STRING_STRINGVARIABLE,__STRING_A3); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7911);}while(r); -do{ -qbs_set(__STRING_POSITION,qbs_new_txt_len("1",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7912);}while(r); -do{ -*__LONG_PART= 3 ; -if(!qbevent)break;evnt(7913);}while(r); -do{ -qbs_set(__STRING_A3,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7913);}while(r); -do{ -*__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(7913);}while(r); -do{ -goto LABEL_ASCGOTPART; -if(!qbevent)break;evnt(7913);}while(r); -} -S_9713:; -if ((-(*__LONG_PART== 2 ))||new_error){ -if(qbevent){evnt(7916);if(r)goto S_9713;} -S_9714:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,&(pass1103=*__LONG_I+ 1 )),qbs_new_txt_len("=",1))))||new_error){ -if(qbevent){evnt(7917);if(r)goto S_9714;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected =",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7917);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7917);}while(r); -} -do{ -*__LONG_USEPOSITION= 1 ; -if(!qbevent)break;evnt(7918);}while(r); -do{ -qbs_set(__STRING_POSITION,__STRING_A3); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7919);}while(r); -do{ -*__LONG_PART= 3 ; -if(!qbevent)break;evnt(7920);}while(r); -do{ -qbs_set(__STRING_A3,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7920);}while(r); -do{ -*__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(7920);}while(r); -do{ -goto LABEL_ASCGOTPART; -if(!qbevent)break;evnt(7920);}while(r); -} -} -S_9726:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_A2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||new_error){ -if(qbevent){evnt(7927);if(r)goto S_9726;} -S_9727:; -if ((-(*__LONG_PART== 1 ))||new_error){ -if(qbevent){evnt(7928);if(r)goto S_9727;} -do{ -qbs_set(__STRING_STRINGVARIABLE,__STRING_A3); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7928);}while(r); -do{ -*__LONG_PART= 2 ; -if(!qbevent)break;evnt(7928);}while(r); -do{ -qbs_set(__STRING_A3,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7928);}while(r); -do{ -goto LABEL_ASCGOTPART; -if(!qbevent)break;evnt(7928);}while(r); -} -} -S_9734:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_A3->len))||new_error){ -if(qbevent){evnt(7931);if(r)goto S_9734;} -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(7931);}while(r); -}else{ -do{ -qbs_set(__STRING_A3,__STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7931);}while(r); -} -LABEL_ASCGOTPART:; -if(qbevent){evnt(7932);r=0;} -do{ -*__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(7933);}while(r); -dl_continue_1100:; -}while(1); -dl_exit_1100:; -S_9741:; -if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_STRINGVARIABLE->len== 0 ))|(-(__STRING_POSITION->len== 0 ))))||new_error){ -if(qbevent){evnt(7935);if(r)goto S_9741;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected ASC ( ... , ... ) = ...",32)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7935);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7935);}while(r); -} -do{ -qbs_set(__STRING_STRINGVARIABLE,FUNC_FIXOPERATIONORDER(__STRING_STRINGVARIABLE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7938);}while(r); -S_9746:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(7939);if(r)goto S_9746;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7939);}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(7940);}while(r); -do{ -qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_STRINGVARIABLE,__LONG_SOURCETYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7942);}while(r); -S_9751:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(7943);if(r)goto S_9751;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7943);}while(r); -} -S_9754:; -if (((-((*__LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))|(-((*__LONG_SOURCETYP&*__LONG_ISSTRING)== 0 )))||new_error){ -if(qbevent){evnt(7944);if(r)goto S_9754;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected ASC ( string-variable , ...",36)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7944);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7944);}while(r); -} -do{ -qbs_set(__STRING_STRINGVARIABLE,FUNC_EVALUATETOTYP(__STRING_STRINGVARIABLE,__LONG_ISSTRING)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7945);}while(r); -S_9759:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(7946);if(r)goto S_9759;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7946);}while(r); -} -S_9762:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_POSITION,qbs_new_txt_len("1",1))))||new_error){ -if(qbevent){evnt(7950);if(r)goto S_9762;} -S_9763:; -if ((*__LONG_USEPOSITION)||new_error){ -if(qbevent){evnt(7951);if(r)goto S_9763;} -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(7951);}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(7951);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass1107=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("tqbs=",5),__STRING_STRINGVARIABLE),qbs_new_txt_len("; if (!new_error){",18))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7953);}while(r); -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_EXPRESSION)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7954);}while(r); -S_9770:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(7955);if(r)goto S_9770;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7955);}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(7956);}while(r); -do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1108= 32 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7957);}while(r); -S_9775:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(7958);if(r)goto S_9775;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7958);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass1109=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("tmp_long=",9),__STRING_E),qbs_new_txt_len("; if (!new_error){",18))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7959);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1110=*__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(7960);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1111=*__LONG_MAINTXTBUF),qbs_new_txt_len("}}",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7961);}while(r); -}else{ -do{ -SUB_WRITEBUFLINE(&(pass1112=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("tqbs=",5),__STRING_STRINGVARIABLE),qbs_new_txt_len("; if (!new_error){",18))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7965);}while(r); -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_POSITION)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7966);}while(r); -S_9784:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(7967);if(r)goto S_9784;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7967);}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(7968);}while(r); -do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1113= 32 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7969);}while(r); -S_9789:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(7970);if(r)goto S_9789;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7970);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass1114=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("tmp_fileno=",11),__STRING_E),qbs_new_txt_len("; if (!new_error){",18))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7971);}while(r); -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_EXPRESSION)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7972);}while(r); -S_9794:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(7973);if(r)goto S_9794;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7973);}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(7974);}while(r); -do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1115= 32 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7975);}while(r); -S_9799:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(7976);if(r)goto S_9799;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7976);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass1116=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("tmp_long=",9),__STRING_E),qbs_new_txt_len("; if (!new_error){",18))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7977);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1117=*__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(7978);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1118=*__LONG_MAINTXTBUF),qbs_new_txt_len("}}}",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7979);}while(r); -} -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(7982);}while(r); -S_9807:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(7982);if(r)goto S_9807;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7982);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7982);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(7983);}while(r); -} -} -S_9815:; -if ((-(*__LONG_N>= 1 ))||new_error){ -if(qbevent){evnt(7991);if(r)goto S_9815;} -S_9816:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("MID$",4))))||new_error){ -if(qbevent){evnt(7992);if(r)goto S_9816;} -S_9817:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,&(pass1120= 2 )),qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(7993);if(r)goto S_9817;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected ( after MID$",21)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7993);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(7993);}while(r); -} -do{ -qbs_set(__STRING_LENGTH,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7995);}while(r); -do{ -*__LONG_PART= 1 ; -if(!qbevent)break;evnt(7996);}while(r); -do{ -*__LONG_I= 3 ; -if(!qbevent)break;evnt(7997);}while(r); -do{ -qbs_set(__STRING_A3,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7998);}while(r); -do{ -qbs_set(__STRING_STRINGVARIABLE,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(7999);}while(r); -do{ -qbs_set(__STRING_START,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8000);}while(r); -do{ -*__LONG_B= 0 ; -if(!qbevent)break;evnt(8001);}while(r); -S_9828:; -do{ -if(qbevent){evnt(8002);if(r)goto S_9828;} -S_9829:; -if ((-(*__LONG_I>*__LONG_N))||new_error){ -if(qbevent){evnt(8003);if(r)goto S_9829;} -S_9830:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_PART!= 4 ))|(qbs_equal(__STRING_A3,qbs_new_txt_len("",0)))))||new_error){ -if(qbevent){evnt(8004);if(r)goto S_9830;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected MID$(...)=...",22)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8004);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8004);}while(r); -} -do{ -qbs_set(__STRING_STRINGEXPRESSION,__STRING_A3); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8005);}while(r); -do{ -goto dl_exit_1121; -if(!qbevent)break;evnt(8006);}while(r); -} -do{ -qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8008);}while(r); -S_9838:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(8009);if(r)goto S_9838;} -do{ -*__LONG_B=*__LONG_B+ 1 ; -if(!qbevent)break;evnt(8009);}while(r); -} -S_9841:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(8010);if(r)goto S_9841;} -do{ -*__LONG_B=*__LONG_B- 1 ; -if(!qbevent)break;evnt(8010);}while(r); -} -S_9844:; -if ((-(*__LONG_B== -1 ))||new_error){ -if(qbevent){evnt(8011);if(r)goto S_9844;} -S_9845:; -if ((-(*__LONG_PART== 2 ))||new_error){ -if(qbevent){evnt(8012);if(r)goto S_9845;} -S_9846:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,&(pass1122=*__LONG_I+ 1 )),qbs_new_txt_len("=",1))))||new_error){ -if(qbevent){evnt(8013);if(r)goto S_9846;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected = after )",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8013);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8013);}while(r); -} -do{ -qbs_set(__STRING_START,__STRING_A3); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8014);}while(r); -do{ -*__LONG_PART= 4 ; -if(!qbevent)break;evnt(8014);}while(r); -do{ -qbs_set(__STRING_A3,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8014);}while(r); -do{ -*__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(8014);}while(r); -do{ -goto LABEL_MIDGOTPART; -if(!qbevent)break;evnt(8014);}while(r); -} -S_9856:; -if ((-(*__LONG_PART== 3 ))||new_error){ -if(qbevent){evnt(8016);if(r)goto S_9856;} -S_9857:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,&(pass1123=*__LONG_I+ 1 )),qbs_new_txt_len("=",1))))||new_error){ -if(qbevent){evnt(8017);if(r)goto S_9857;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected = after )",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8017);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8017);}while(r); -} -S_9861:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(8018);if(r)goto S_9861;} -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(8018);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8018);}while(r); -} -do{ -qbs_set(__STRING_LENGTH,__STRING_A3); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8019);}while(r); -do{ -*__LONG_PART= 4 ; -if(!qbevent)break;evnt(8019);}while(r); -do{ -qbs_set(__STRING_A3,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8019);}while(r); -do{ -*__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(8019);}while(r); -do{ -goto LABEL_MIDGOTPART; -if(!qbevent)break;evnt(8019);}while(r); -} -} -S_9872:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_A2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||new_error){ -if(qbevent){evnt(8022);if(r)goto S_9872;} -S_9873:; -if ((-(*__LONG_PART== 1 ))||new_error){ -if(qbevent){evnt(8023);if(r)goto S_9873;} -do{ -qbs_set(__STRING_STRINGVARIABLE,__STRING_A3); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8023);}while(r); -do{ -*__LONG_PART= 2 ; -if(!qbevent)break;evnt(8023);}while(r); -do{ -qbs_set(__STRING_A3,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8023);}while(r); -do{ -goto LABEL_MIDGOTPART; -if(!qbevent)break;evnt(8023);}while(r); -} -S_9879:; -if ((-(*__LONG_PART== 2 ))||new_error){ -if(qbevent){evnt(8024);if(r)goto S_9879;} -do{ -qbs_set(__STRING_START,__STRING_A3); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8024);}while(r); -do{ -*__LONG_PART= 3 ; -if(!qbevent)break;evnt(8024);}while(r); -do{ -qbs_set(__STRING_A3,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8024);}while(r); -do{ -goto LABEL_MIDGOTPART; -if(!qbevent)break;evnt(8024);}while(r); -} -} -S_9886:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_A3->len))||new_error){ -if(qbevent){evnt(8026);if(r)goto S_9886;} -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(8026);}while(r); -}else{ -do{ -qbs_set(__STRING_A3,__STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8026);}while(r); -} -LABEL_MIDGOTPART:; -if(qbevent){evnt(8027);r=0;} -do{ -*__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(8028);}while(r); -dl_continue_1121:; -}while(1); -dl_exit_1121:; -S_9893:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_STRINGVARIABLE,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(8030);if(r)goto S_9893;} -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(8030);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8030);}while(r); -} -S_9897:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_START,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(8031);if(r)goto S_9897;} -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(8031);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8031);}while(r); -} -do{ -qbs_set(__STRING_STRINGVARIABLE,FUNC_FIXOPERATIONORDER(__STRING_STRINGVARIABLE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8033);}while(r); -S_9902:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(8034);if(r)goto S_9902;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8034);}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(8035);}while(r); -do{ -qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_STRINGVARIABLE,__LONG_SOURCETYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8036);}while(r); -S_9907:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(8037);if(r)goto S_9907;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8037);}while(r); -} -S_9910:; -if (((-((*__LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))|(-((*__LONG_SOURCETYP&*__LONG_ISSTRING)== 0 )))||new_error){ -if(qbevent){evnt(8038);if(r)goto S_9910;} -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(8038);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8038);}while(r); -} -do{ -qbs_set(__STRING_STRINGVARIABLE,FUNC_EVALUATETOTYP(__STRING_STRINGVARIABLE,__LONG_ISSTRING)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8039);}while(r); -S_9915:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(8040);if(r)goto S_9915;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8040);}while(r); -} -do{ -qbs_set(__STRING_START,FUNC_FIXOPERATIONORDER(__STRING_START)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8042);}while(r); -S_9919:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(8043);if(r)goto S_9919;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8043);}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(8044);}while(r); -do{ -qbs_set(__STRING_START,FUNC_EVALUATETOTYP(__STRING_START,&(pass1125= 32 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8045);}while(r); -do{ -qbs_set(__STRING_STRINGEXPRESSION,FUNC_FIXOPERATIONORDER(__STRING_STRINGEXPRESSION)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8047);}while(r); -S_9925:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(8048);if(r)goto S_9925;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8048);}while(r); -} -do{ -qbs_set(__STRING_L2,__STRING_TLAYOUT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8049);}while(r); -do{ -qbs_set(__STRING_STRINGEXPRESSION,FUNC_EVALUATETOTYP(__STRING_STRINGEXPRESSION,__LONG_ISSTRING)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8050);}while(r); -S_9930:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(8051);if(r)goto S_9930;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8051);}while(r); -} -S_9933:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LENGTH->len))||new_error){ -if(qbevent){evnt(8053);if(r)goto S_9933;} -do{ -qbs_set(__STRING_LENGTH,FUNC_FIXOPERATIONORDER(__STRING_LENGTH)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8054);}while(r); -S_9935:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(8055);if(r)goto S_9935;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8055);}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(8056);}while(r); -do{ -qbs_set(__STRING_LENGTH,FUNC_EVALUATETOTYP(__STRING_LENGTH,&(pass1127= 32 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8057);}while(r); -S_9940:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(8058);if(r)goto S_9940;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8058);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass1128=*__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(8059);}while(r); -}else{ -do{ -SUB_WRITEBUFLINE(&(pass1129=*__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(8061);}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(8064);}while(r); -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(8065);}while(r); -S_9949:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(8065);if(r)goto S_9949;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8065);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8065);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(8066);}while(r); -} -} -S_9957:; -if ((-(*__LONG_N>= 2 ))||new_error){ -if(qbevent){evnt(8071);if(r)goto S_9957;} -S_9958:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("ERASE",5))))||new_error){ -if(qbevent){evnt(8072);if(r)goto S_9958;} -do{ -*__LONG_I= 2 ; -if(!qbevent)break;evnt(8073);}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(8074);}while(r); -LABEL_ERASENEXTARRAY:; -if(qbevent){evnt(8075);r=0;} -do{ -qbs_set(__STRING_VAR,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8076);}while(r); -do{ -qbs_set(__STRING_X,__STRING_VAR); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8077);}while(r); -do{ -qbs_set(__STRING_LS,FUNC_REMOVESYMBOL(__STRING_X)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8077);}while(r); -S_9964:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(8078);if(r)goto S_9964;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8078);}while(r); -} -S_9967:; -if ((qbs_cleanup(qbs_tmp_base,FUNC_FINDARRAY(__STRING_VAR)))||new_error){ -if(qbevent){evnt(8080);if(r)goto S_9967;} -S_9968:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(8081);if(r)goto S_9968;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8081);}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(8082);}while(r); -LABEL_CLEARERASE:; -if(qbevent){evnt(8084);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(8085);}while(r); -do{ -qbs_set(__STRING_BYTESPERELEMENT,FUNC_STR2(&(pass1131=(*(int32*)(((char*)__UDT_ID)+(512))& 511 )/ 8 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8086);}while(r); -S_9974:; -if ((*(int32*)(((char*)__UDT_ID)+(512))&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(8087);if(r)goto S_9974;} -do{ -qbs_set(__STRING_BYTESPERELEMENT,FUNC_STR2((int32*)(void*)( ((char*)(__UDT_ID)) + (540) ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8087);}while(r); -} -S_9977:; -if ((*(int32*)(((char*)__UDT_ID)+(512))&*__LONG_ISOFFSETINBITS)||new_error){ -if(qbevent){evnt(8088);if(r)goto S_9977;} -do{ -qbs_set(__STRING_BYTESPERELEMENT,qbs_add(FUNC_STR2(&(pass1132=(*(int32*)(((char*)__UDT_ID)+(512))& 511 ))),qbs_new_txt_len("/8+1",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8088);}while(r); -} -S_9980:; -if ((*(int32*)(((char*)__UDT_ID)+(512))&*__LONG_ISUDT)||new_error){ -if(qbevent){evnt(8089);if(r)goto S_9980;} -do{ -qbs_set(__STRING_BYTESPERELEMENT,FUNC_STR2(&(pass1133=((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*(int32*)(((char*)__UDT_ID)+(512))& 511 )-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])]/ 8 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8090);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass1134=*__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(8092);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1135=*__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(8093);}while(r); -S_9985:; -if (((-((*(int32*)(((char*)__UDT_ID)+(512))&*__LONG_ISSTRING)!= 0 ))&(-((*(int32*)(((char*)__UDT_ID)+(512))&*__LONG_ISFIXEDLENGTH)== 0 )))||new_error){ -if(qbevent){evnt(8094);if(r)goto S_9985;} -do{ -SUB_WRITEBUFRAWDATA(&(pass1136=*__LONG_MAINTXTBUF),qbs_new_txt_len("tmp_long=",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8095);}while(r); -S_9987:; -fornext_value1138= 1 ; -fornext_finalvalue1138=func_abs((int16)(*(int16*)(((char*)__UDT_ID)+(516)))); -fornext_step1138= 1 ; -if (fornext_step1138<0) fornext_step_negative1138=1; else fornext_step_negative1138=0; -if (new_error) goto fornext_error1138; -goto fornext_entrylabel1138; -while(1){ -fornext_value1138=fornext_step1138+(*__LONG_I2); -fornext_entrylabel1138: -*__LONG_I2=fornext_value1138; -if (fornext_step_negative1138){ -if (fornext_value1138fornext_finalvalue1138) break; -} -fornext_error1138:; -if(qbevent){evnt(8096);if(r)goto S_9987;} -S_9988:; -if ((-(*__LONG_I2!= 1 ))||new_error){ -if(qbevent){evnt(8097);if(r)goto S_9988;} -do{ -SUB_WRITEBUFRAWDATA(&(pass1139=*__LONG_MAINTXTBUF),qbs_new_txt_len("*",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8097);}while(r); -} -do{ -SUB_WRITEBUFRAWDATA(&(pass1140=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(__STRING_N,qbs_new_txt_len("[",1)),FUNC_STR2(&(pass1141=(*__LONG_I2* 4 )-( 4 )+( 5 )))),qbs_new_txt_len("]",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8098);}while(r); -fornext_continue_1137:; -} -fornext_exit_1137:; -do{ -SUB_WRITEBUFLINE(&(pass1142=*__LONG_MAINTXTBUF),qbs_new_txt_len(";",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8100);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1143=*__LONG_MAINTXTBUF),qbs_new_txt_len("while(tmp_long--){",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8101);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1144=*__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(8102);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1145=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8103);}while(r); -}else{ -do{ -SUB_WRITEBUFRAWDATA(&(pass1146=*__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(8107);}while(r); -S_9999:; -fornext_value1148= 1 ; -fornext_finalvalue1148=func_abs((int16)(*(int16*)(((char*)__UDT_ID)+(516)))); -fornext_step1148= 1 ; -if (fornext_step1148<0) fornext_step_negative1148=1; else fornext_step_negative1148=0; -if (new_error) goto fornext_error1148; -goto fornext_entrylabel1148; -while(1){ -fornext_value1148=fornext_step1148+(*__LONG_I2); -fornext_entrylabel1148: -*__LONG_I2=fornext_value1148; -if (fornext_step_negative1148){ -if (fornext_value1148fornext_finalvalue1148) break; -} -fornext_error1148:; -if(qbevent){evnt(8108);if(r)goto S_9999;} -S_10000:; -if ((-(*__LONG_I2!= 1 ))||new_error){ -if(qbevent){evnt(8109);if(r)goto S_10000;} -do{ -SUB_WRITEBUFRAWDATA(&(pass1149=*__LONG_MAINTXTBUF),qbs_new_txt_len("*",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8109);}while(r); -} -do{ -SUB_WRITEBUFRAWDATA(&(pass1150=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(__STRING_N,qbs_new_txt_len("[",1)),FUNC_STR2(&(pass1151=(*__LONG_I2* 4 )-( 4 )+( 5 )))),qbs_new_txt_len("]",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8110);}while(r); -fornext_continue_1147:; -} -fornext_exit_1147:; -do{ -SUB_WRITEBUFLINE(&(pass1152=*__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(8112);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass1153=*__LONG_MAINTXTBUF),qbs_new_txt_len("}else{",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8114);}while(r); -S_10008:; -if (((-((*(int32*)(((char*)__UDT_ID)+(512))&*__LONG_ISSTRING)!= 0 ))&(-((*(int32*)(((char*)__UDT_ID)+(512))&*__LONG_ISFIXEDLENGTH)== 0 )))||new_error){ -if(qbevent){evnt(8116);if(r)goto S_10008;} -do{ -SUB_WRITEBUFRAWDATA(&(pass1154=*__LONG_MAINTXTBUF),qbs_new_txt_len("tmp_long=",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8118);}while(r); -S_10010:; -fornext_value1156= 1 ; -fornext_finalvalue1156=func_abs((int16)(*(int16*)(((char*)__UDT_ID)+(516)))); -fornext_step1156= 1 ; -if (fornext_step1156<0) fornext_step_negative1156=1; else fornext_step_negative1156=0; -if (new_error) goto fornext_error1156; -goto fornext_entrylabel1156; -while(1){ -fornext_value1156=fornext_step1156+(*__LONG_I2); -fornext_entrylabel1156: -*__LONG_I2=fornext_value1156; -if (fornext_step_negative1156){ -if (fornext_value1156fornext_finalvalue1156) break; -} -fornext_error1156:; -if(qbevent){evnt(8119);if(r)goto S_10010;} -S_10011:; -if ((-(*__LONG_I2!= 1 ))||new_error){ -if(qbevent){evnt(8120);if(r)goto S_10011;} -do{ -SUB_WRITEBUFRAWDATA(&(pass1157=*__LONG_MAINTXTBUF),qbs_new_txt_len("*",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8120);}while(r); -} -do{ -SUB_WRITEBUFRAWDATA(&(pass1158=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(__STRING_N,qbs_new_txt_len("[",1)),FUNC_STR2(&(pass1159=(*__LONG_I2* 4 )-( 4 )+( 5 )))),qbs_new_txt_len("]",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8121);}while(r); -fornext_continue_1155:; -} -fornext_exit_1155:; -do{ -SUB_WRITEBUFLINE(&(pass1160=*__LONG_MAINTXTBUF),qbs_new_txt_len(";",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8123);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1161=*__LONG_MAINTXTBUF),qbs_new_txt_len("while(tmp_long--){",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8124);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1162=*__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(8125);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1163=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8126);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1164=*__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(8128);}while(r); -}else{ -do{ -SUB_WRITEBUFLINE(&(pass1165=*__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(8131);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1166=*__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(8132);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1167=*__LONG_MAINTXTBUF),qbs_new_txt_len("}else{",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8133);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1168=*__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(8134);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1169=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8135);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass1170=*__LONG_MAINTXTBUF),qbs_add(__STRING_N,qbs_new_txt_len("[2]^=1;",7))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8138);}while(r); -S_10029:; -fornext_value1172= 1 ; -fornext_finalvalue1172=func_abs((int16)(*(int16*)(((char*)__UDT_ID)+(516)))); -fornext_step1172= 1 ; -if (fornext_step1172<0) fornext_step_negative1172=1; else fornext_step_negative1172=0; -if (new_error) goto fornext_error1172; -goto fornext_entrylabel1172; -while(1){ -fornext_value1172=fornext_step1172+(*__LONG_I2); -fornext_entrylabel1172: -*__LONG_I2=fornext_value1172; -if (fornext_step_negative1172){ -if (fornext_value1172fornext_finalvalue1172) break; -} -fornext_error1172:; -if(qbevent){evnt(8140);if(r)goto S_10029;} -do{ -*__LONG_B=*__LONG_I2* 4 ; -if(!qbevent)break;evnt(8141);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1173=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(__STRING_N,qbs_new_txt_len("[",1)),FUNC_STR2(__LONG_B)),qbs_new_txt_len("]=2147483647;",13))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8142);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1174=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(__STRING_N,qbs_new_txt_len("[",1)),FUNC_STR2(&(pass1175=*__LONG_B+ 1 ))),qbs_new_txt_len("]=0;",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8143);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1176=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(__STRING_N,qbs_new_txt_len("[",1)),FUNC_STR2(&(pass1177=*__LONG_B+ 2 ))),qbs_new_txt_len("]=0;",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8144);}while(r); -fornext_continue_1171:; -} -fornext_exit_1171:; -S_10035:; -if (((-((*(int32*)(((char*)__UDT_ID)+(512))&*__LONG_ISSTRING)!= 0 ))&(-((*(int32*)(((char*)__UDT_ID)+(512))&*__LONG_ISFIXEDLENGTH)== 0 )))||new_error){ -if(qbevent){evnt(8146);if(r)goto S_10035;} -do{ -SUB_WRITEBUFLINE(&(pass1178=*__LONG_MAINTXTBUF),qbs_add(__STRING_N,qbs_new_txt_len("[0]=(ptrszint)¬hingstring;",29))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8147);}while(r); -}else{ -do{ -SUB_WRITEBUFLINE(&(pass1179=*__LONG_MAINTXTBUF),qbs_add(__STRING_N,qbs_new_txt_len("[0]=(ptrszint)nothingvalue;",27))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8149);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass1180=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8151);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1181=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8152);}while(r); -S_10042:; -if ((-(*__LONG_CLEARERASERETURN== 1 ))||new_error){ -if(qbevent){evnt(8153);if(r)goto S_10042;} -do{ -*__LONG_CLEARERASERETURN= 0 ; -if(!qbevent)break;evnt(8153);}while(r); -do{ -goto LABEL_CLEARERASERETURNED; -if(!qbevent)break;evnt(8153);}while(r); -} -do{ -goto LABEL_ERASEDARRAY; -if(!qbevent)break;evnt(8154);}while(r); -} -S_10048:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(8156);if(r)goto S_10048;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8156);}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(8157);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8157);}while(r); -LABEL_ERASEDARRAY:; -if(qbevent){evnt(8159);r=0;} -S_10053:; -if ((-(*__LONG_I<*__LONG_N))||new_error){ -if(qbevent){evnt(8160);if(r)goto S_10053;} -do{ -*__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(8161);}while(r); -do{ -qbs_set(__STRING_N,FUNC_GETELEMENT(__STRING_A,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8161);}while(r); -S_10056:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_N,qbs_new_txt_len(",",1))))||new_error){ -if(qbevent){evnt(8161);if(r)goto S_10056;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected ,",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8161);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8161);}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(8162);}while(r); -do{ -*__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(8163);}while(r); -S_10062:; -if ((-(*__LONG_I>*__LONG_N))||new_error){ -if(qbevent){evnt(8163);if(r)goto S_10062;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected , ...",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8163);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8163);}while(r); -} -do{ -goto LABEL_ERASENEXTARRAY; -if(!qbevent)break;evnt(8164);}while(r); -} -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(8167);}while(r); -S_10069:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(8167);if(r)goto S_10069;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8167);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8167);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(8168);}while(r); -} -} -S_10077:; -if ((-(*__LONG_N>= 2 ))||new_error){ -if(qbevent){evnt(8174);if(r)goto S_10077;} -do{ -*__INTEGER_DIMOPTION= 0 ; -if(!qbevent)break;evnt(8175);}while(r); -do{ -*__INTEGER_REDIMOPTION= 0 ; -if(!qbevent)break;evnt(8175);}while(r); -do{ -*__LONG_COMMONOPTION= 0 ; -if(!qbevent)break;evnt(8175);}while(r); -S_10081:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DIM",3))))||new_error){ -if(qbevent){evnt(8176);if(r)goto S_10081;} -do{ -qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Dim",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8176);}while(r); -do{ -*__INTEGER_DIMOPTION= 1 ; -if(!qbevent)break;evnt(8176);}while(r); -} -S_10085:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("REDIM",5))))||new_error){ -if(qbevent){evnt(8177);if(r)goto S_10085;} -do{ -qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("ReDim",5))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8178);}while(r); -do{ -*__INTEGER_DIMOPTION= 2 ; -if(!qbevent)break;evnt(8179);}while(r); -do{ -*__INTEGER_REDIMOPTION= 1 ; -if(!qbevent)break;evnt(8179);}while(r); -S_10089:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("_PRESERVE",9)))|(((qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("PRESERVE",8)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ -if(qbevent){evnt(8180);if(r)goto S_10089;} -do{ -*__INTEGER_REDIMOPTION= 2 ; -if(!qbevent)break;evnt(8181);}while(r); -S_10091:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("_PRESERVE",9))))||new_error){ -if(qbevent){evnt(8182);if(r)goto S_10091;} -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(8183);}while(r); -}else{ -do{ -qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("Preserve",8)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8185);}while(r); -} -S_10096:; -if ((-(*__LONG_N== 2 ))||new_error){ -if(qbevent){evnt(8187);if(r)goto S_10096;} -do{ -qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Expected REDIM ",15),__STRING_QB64PREFIX),qbs_new_txt_len("PRESERVE ...",12))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8187);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8187);}while(r); -} -} -} -S_10102:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("STATIC",6))))||new_error){ -if(qbevent){evnt(8190);if(r)goto S_10102;} -do{ -qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Static",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8190);}while(r); -do{ -*__INTEGER_DIMOPTION= 3 ; -if(!qbevent)break;evnt(8190);}while(r); -} -S_10106:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("COMMON",6))))||new_error){ -if(qbevent){evnt(8191);if(r)goto S_10106;} -do{ -qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Common",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8191);}while(r); -do{ -*__INTEGER_DIMOPTION= 1 ; -if(!qbevent)break;evnt(8191);}while(r); -do{ -*__LONG_COMMONOPTION= 1 ; -if(!qbevent)break;evnt(8191);}while(r); -} -S_10111:; -if ((*__INTEGER_DIMOPTION)||new_error){ -if(qbevent){evnt(8192);if(r)goto S_10111;} -S_10112:; -if (((-(*__INTEGER_DIMOPTION== 3 ))&(-(*__LONG_SUBFUNCN== 0 )))||new_error){ -if(qbevent){evnt(8194);if(r)goto S_10112;} -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(8194);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8194);}while(r); -} -S_10116:; -if (((-(*__LONG_COMMONOPTION== 1 ))&(-(*__LONG_SUBFUNCN!= 0 )))||new_error){ -if(qbevent){evnt(8195);if(r)goto S_10116;} -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(8195);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8195);}while(r); -} -do{ -*__LONG_I= 2 ; -if(!qbevent)break;evnt(8197);}while(r); -S_10121:; -if ((-(*__INTEGER_REDIMOPTION== 2 ))||new_error){ -if(qbevent){evnt(8198);if(r)goto S_10121;} -do{ -*__LONG_I= 3 ; -if(!qbevent)break;evnt(8198);}while(r); -} -S_10124:; -if ((-(*__INTEGER_DIMOPTION!= 3 ))||new_error){ -if(qbevent){evnt(8200);if(r)goto S_10124;} -do{ -qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_A,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8201);}while(r); -S_10126:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("SHARED",6))))||new_error){ -if(qbevent){evnt(8202);if(r)goto S_10126;} -S_10127:; -if ((-(*__LONG_SUBFUNCN!= 0 ))||new_error){ -if(qbevent){evnt(8203);if(r)goto S_10127;} -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(8203);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8203);}while(r); -} -do{ -*__INTEGER_DIMSHARED= 1 ; -if(!qbevent)break;evnt(8204);}while(r); -do{ -*__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(8205);}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(8206);}while(r); -} -} -S_10136:; -if ((-(*__INTEGER_DIMOPTION== 3 ))||new_error){ -if(qbevent){evnt(8210);if(r)goto S_10136;} -do{ -*__LONG_DIMSTATIC= 1 ; -if(!qbevent)break;evnt(8210);}while(r); -do{ -*__LONG_ALLOWLOCALNAME= 1 ; -if(!qbevent)break;evnt(8210);}while(r); -} -do{ -qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8213);}while(r); -S_10141:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len("AS",2))))||new_error){ -if(qbevent){evnt(8214);if(r)goto S_10141;} -LABEL_DIMNEXT:; -if(qbevent){evnt(8216);r=0;} -do{ -*__LONG_NEWDIMSYNTAX= 0 ; -if(!qbevent)break;evnt(8217);}while(r); -do{ -*__LONG_NOTYPE= 0 ; -if(!qbevent)break;evnt(8218);}while(r); -do{ -*__LONG_LISTARRAY= 0 ; -if(!qbevent)break;evnt(8219);}while(r); -do{ -qbs_set(__STRING_VARNAME,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8225);}while(r); -do{ -*__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(8225);}while(r); -S_10147:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARNAME,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(8226);if(r)goto S_10147;} -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(8226);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8226);}while(r); -} -S_10151:; -if ((-(*__LONG_I>=(*__LONG_N+ 1 )))||new_error){ -if(qbevent){evnt(8229);if(r)goto S_10151;} -do{ -qbs_set(__STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8229);}while(r); -}else{ -do{ -qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8229);}while(r); -do{ -*__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(8229);}while(r); -} -do{ -qbs_set(__STRING_ELEMENTS,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8232);}while(r); -S_10158:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(8234);if(r)goto S_10158;} -do{ -*__LONG_B= 1 ; -if(!qbevent)break;evnt(8235);}while(r); -S_10160:; -fornext_value1184=*__LONG_I; -fornext_finalvalue1184=*__LONG_N; -fornext_step1184= 1 ; -if (fornext_step1184<0) fornext_step_negative1184=1; else fornext_step_negative1184=0; -if (new_error) goto fornext_error1184; -goto fornext_entrylabel1184; -while(1){ -fornext_value1184=fornext_step1184+(*__LONG_I); -fornext_entrylabel1184: -*__LONG_I=fornext_value1184; -if (fornext_step_negative1184){ -if (fornext_value1184fornext_finalvalue1184) break; -} -fornext_error1184:; -if(qbevent){evnt(8236);if(r)goto S_10160;} -do{ -qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8237);}while(r); -S_10162:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(8238);if(r)goto S_10162;} -do{ -*__LONG_B=*__LONG_B+ 1 ; -if(!qbevent)break;evnt(8238);}while(r); -} -S_10165:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(8239);if(r)goto S_10165;} -do{ -*__LONG_B=*__LONG_B- 1 ; -if(!qbevent)break;evnt(8239);}while(r); -} -S_10168:; -if ((-(*__LONG_B== 0 ))||new_error){ -if(qbevent){evnt(8240);if(r)goto S_10168;} -do{ -goto fornext_exit_1183; -if(!qbevent)break;evnt(8240);}while(r); -} -S_10171:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_ELEMENTS->len))||new_error){ -if(qbevent){evnt(8241);if(r)goto S_10171;} -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(8241);}while(r); -}else{ -do{ -qbs_set(__STRING_ELEMENTS,__STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8241);}while(r); -} -fornext_continue_1183:; -} -fornext_exit_1183:; -S_10177:; -if ((-(*__LONG_B!= 0 ))||new_error){ -if(qbevent){evnt(8243);if(r)goto S_10177;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8243);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8243);}while(r); -} -do{ -*__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(8244);}while(r); -S_10182:; -if ((*__LONG_COMMONOPTION)||new_error){ -if(qbevent){evnt(8246);if(r)goto S_10182;} -do{ -qbs_set(__STRING_ELEMENTS,qbs_new_txt_len("?",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8246);}while(r); -} -S_10185:; -if (( 0 )||new_error){ -if(qbevent){evnt(8249);if(r)goto S_10185;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1186; -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 (new_error) goto skip1186; -skip1186: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(8249);}while(r); -} -S_10188:; -if ((-(*__INTEGER_DIMOPTION== 3 ))||new_error){ -if(qbevent){evnt(8254);if(r)goto S_10188;} -S_10189:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_ELEMENTS->len== 0 )))||new_error){ -if(qbevent){evnt(8255);if(r)goto S_10189;} -do{ -*__LONG_LISTARRAY= 1 ; -if(!qbevent)break;evnt(8256);}while(r); -} -} -S_10193:; -if ((-(*__LONG_I>=(*__LONG_N+ 1 )))||new_error){ -if(qbevent){evnt(8262);if(r)goto S_10193;} -do{ -qbs_set(__STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8262);}while(r); -}else{ -do{ -qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8262);}while(r); -do{ -*__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(8262);}while(r); -} -} -do{ -qbs_set(__STRING_D,__STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8264);}while(r); -do{ -*__LONG_DIMMETHOD= 0 ; -if(!qbevent)break;evnt(8266);}while(r); -do{ -qbs_set(__STRING_APPENDNAME,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8268);}while(r); -do{ -qbs_set(__STRING_APPENDTYPE,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8269);}while(r); -do{ -qbs_set(__STRING_DIM2TYPEPASSBACK,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8270);}while(r); -do{ -qbs_set(__STRING_S,FUNC_REMOVESYMBOL(__STRING_VARNAME)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8273);}while(r); -S_10206:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(8274);if(r)goto S_10206;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8274);}while(r); -} -S_10209:; -if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(__STRING_VARNAME)== 0 )))||new_error){ -if(qbevent){evnt(8275);if(r)goto S_10209;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Invalid variable name",21)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8275);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8275);}while(r); -} -S_10213:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_S,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(8277);if(r)goto S_10213;} -do{ -qbs_set(__STRING_TYP,__STRING_S); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8278);}while(r); -do{ -*__LONG_DIMMETHOD= 1 ; -if(!qbevent)break;evnt(8279);}while(r); -do{ -qbs_set(__STRING_APPENDNAME,__STRING_TYP); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8280);}while(r); -do{ -goto LABEL_DIMGOTTYP; -if(!qbevent)break;evnt(8281);}while(r); -} -S_10219:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_D,qbs_new_txt_len("AS",2))))||new_error){ -if(qbevent){evnt(8284);if(r)goto S_10219;} -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(8285);}while(r); -do{ -qbs_set(__STRING_TYP,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8286);}while(r); -S_10222:; -fornext_value1189=*__LONG_I; -fornext_finalvalue1189=*__LONG_N; -fornext_step1189= 1 ; -if (fornext_step1189<0) fornext_step_negative1189=1; else fornext_step_negative1189=0; -if (new_error) goto fornext_error1189; -goto fornext_entrylabel1189; -while(1){ -fornext_value1189=fornext_step1189+(*__LONG_I); -fornext_entrylabel1189: -*__LONG_I=fornext_value1189; -if (fornext_step_negative1189){ -if (fornext_value1189fornext_finalvalue1189) break; -} -fornext_error1189:; -if(qbevent){evnt(8287);if(r)goto S_10222;} -do{ -qbs_set(__STRING_D,FUNC_GETELEMENT(__STRING_A,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8288);}while(r); -S_10224:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_D,qbs_new_txt_len(",",1))))||new_error){ -if(qbevent){evnt(8289);if(r)goto S_10224;} -do{ -*__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(8289);}while(r); -do{ -goto fornext_exit_1188; -if(!qbevent)break;evnt(8289);}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(8290);}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(8291);}while(r); -do{ -qbs_set(__STRING_D,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8292);}while(r); -fornext_continue_1188:; -} -fornext_exit_1188:; -do{ -qbs_set(__STRING_APPENDTYPE,FUNC_SCASE2(__STRING_APPENDTYPE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8294);}while(r); -do{ -qbs_set(__STRING_TYP,qbs_rtrim(__STRING_TYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8295);}while(r); -do{ -goto LABEL_DIMGOTTYP; -if(!qbevent)break;evnt(8296);}while(r); -} -do{ -*__LONG_NOTYPE= 1 ; -if(!qbevent)break;evnt(8300);}while(r); -S_10237:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_VARNAME, 1 ),qbs_new_txt_len("_",1))))||new_error){ -if(qbevent){evnt(8301);if(r)goto S_10237;} -do{ -*__LONG_V= 27 ; -if(!qbevent)break;evnt(8301);}while(r); -}else{ -do{ -*__LONG_V=qbs_asc(qbs_ucase(__STRING_VARNAME))- 64 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8301);}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(8302);}while(r); -do{ -*__LONG_DIMMETHOD= 1 ; -if(!qbevent)break;evnt(8303);}while(r); -do{ -goto LABEL_DIMGOTTYP; -if(!qbevent)break;evnt(8304);}while(r); -LABEL_DIMGOTTYP:; -if(qbevent){evnt(8306);r=0;} -S_10245:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(__STRING_D,qbs_new_txt_len("",0)))&(qbs_notequal(__STRING_D,qbs_new_txt_len(",",1)))))||new_error){ -if(qbevent){evnt(8307);if(r)goto S_10245;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("DIM: Expected ,",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8307);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8307);}while(r); -} -S_10249:; -if (((-(*__LONG_NOTYPE!= 0 ))&(-(*__INTEGER_DIMOPTION!= 3 ))&(-(*__INTEGER_DIMOPTION!= 1 )))||new_error){ -if(qbevent){evnt(8310);if(r)goto S_10249;} -S_10250:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_ELEMENTS->len))||new_error){ -if(qbevent){evnt(8311);if(r)goto S_10250;} -S_10251:; -if ((qbs_cleanup(qbs_tmp_base,FUNC_FINDARRAY(__STRING_VARNAME)))||new_error){ -if(qbevent){evnt(8312);if(r)goto S_10251;} -S_10252:; -if ((qbs_cleanup(qbs_tmp_base,((int32)(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(520)),8,1)))->len)))||new_error){ -if(qbevent){evnt(8313);if(r)goto S_10252;} -do{ -qbs_set(__STRING_TYP,FUNC_ID2FULLTYPENAME()); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8314);}while(r); -do{ -*__LONG_DIMMETHOD= 0 ; -if(!qbevent)break;evnt(8315);}while(r); -} -} -} -} -LABEL_NORMALDIMBLOCK:; -if(qbevent){evnt(8321);r=0;} -S_10259:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__INTEGER_DIMOPTION== 3 ))&(__STRING_ELEMENTS->len)))||new_error){ -if(qbevent){evnt(8322);if(r)goto S_10259;} -do{ -qbs_set(__STRING_TYP2,FUNC_SYMBOL2FULLTYPENAME(__STRING_TYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8324);}while(r); -do{ -*__LONG_T=FUNC_TYPNAME2TYP(__STRING_TYP2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8325);}while(r); -do{ -*__LONG_TS=*__LONG_TYPNAME2TYPSIZE; -if(!qbevent)break;evnt(8325);}while(r); -S_10263:; -if ((qbs_cleanup(qbs_tmp_base,FUNC_FINDARRAY(__STRING_VARNAME)))||new_error){ -if(qbevent){evnt(8327);if(r)goto S_10263;} -S_10264:; -if ((-(*(int32*)(((char*)__UDT_ID)+(2641))==*__LONG_SUBFUNCN))||new_error){ -if(qbevent){evnt(8328);if(r)goto S_10264;} -S_10265:; -if ((qbs_cleanup(qbs_tmp_base,((int32)(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1)))->len)))||new_error){ -if(qbevent){evnt(8329);if(r)goto S_10265;} -S_10266:; -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))))||new_error){ -if(qbevent){evnt(8331);if(r)goto S_10266;} -S_10267:; -if ((-(*__LONG_TS==*(int32*)(((char*)__UDT_ID)+(540))))||new_error){ -if(qbevent){evnt(8332);if(r)goto S_10267;} -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(8333);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8333);}while(r); -} -} -}else{ -S_10273:; -if ((-(*__LONG_DIMMETHOD== 0 ))||new_error){ -if(qbevent){evnt(8337);if(r)goto S_10273;} -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(8338);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8338);}while(r); -}else{ -S_10277:; -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))))||new_error){ -if(qbevent){evnt(8341);if(r)goto S_10277;} -S_10278:; -if ((-(*__LONG_TS==*(int32*)(((char*)__UDT_ID)+(540))))||new_error){ -if(qbevent){evnt(8342);if(r)goto S_10278;} -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); -} -} -} -} -} -} -S_10287:; -if ((-((*__LONG_T&*__LONG_ISUDT)== 0 ))||new_error){ -if(qbevent){evnt(8351);if(r)goto S_10287;} -do{ -qbs_set(__STRING_S2,FUNC_TYPE2SYMBOL(__STRING_TYP2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8352);}while(r); -S_10289:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(8353);if(r)goto S_10289;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8353);}while(r); -} -S_10292:; -if ((qbs_cleanup(qbs_tmp_base,FUNC_FINDARRAY(qbs_add(__STRING_VARNAME,__STRING_S2))))||new_error){ -if(qbevent){evnt(8354);if(r)goto S_10292;} -S_10293:; -if ((-(*(int32*)(((char*)__UDT_ID)+(2641))==*__LONG_SUBFUNCN))||new_error){ -if(qbevent){evnt(8355);if(r)goto S_10293;} -S_10294:; -if ((qbs_cleanup(qbs_tmp_base,((int32)(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1)))->len)))||new_error){ -if(qbevent){evnt(8356);if(r)goto S_10294;} -S_10295:; -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))))||new_error){ -if(qbevent){evnt(8358);if(r)goto S_10295;} -S_10296:; -if ((-(*__LONG_TS==*(int32*)(((char*)__UDT_ID)+(540))))||new_error){ -if(qbevent){evnt(8359);if(r)goto S_10296;} -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(8360);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8360);}while(r); -} -} -}else{ -S_10302:; -if ((-(*__LONG_DIMMETHOD== 0 ))||new_error){ -if(qbevent){evnt(8364);if(r)goto S_10302;} -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(8365);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8365);}while(r); -}else{ -S_10306:; -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))))||new_error){ -if(qbevent){evnt(8368);if(r)goto S_10306;} -S_10307:; -if ((-(*__LONG_TS==*(int32*)(((char*)__UDT_ID)+(540))))||new_error){ -if(qbevent){evnt(8369);if(r)goto S_10307;} -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(8370);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8370);}while(r); -} -} -} -} -} -} -} -} -S_10318:; -if ((*__LONG_LISTARRAY)||new_error){ -if(qbevent){evnt(8380);if(r)goto S_10318;} -do{ -*__LONG_XI= 1 ; -if(!qbevent)break;evnt(8385);}while(r); -S_10320:; -fornext_value1193= 1 ; -fornext_finalvalue1193=*__LONG_STATICARRAYLISTN; -fornext_step1193= 1 ; -if (fornext_step1193<0) fornext_step_negative1193=1; else fornext_step_negative1193=0; -if (new_error) goto fornext_error1193; -goto fornext_entrylabel1193; -while(1){ -fornext_value1193=fornext_step1193+(*__LONG_X); -fornext_entrylabel1193: -*__LONG_X=fornext_value1193; -if (fornext_step_negative1193){ -if (fornext_value1193fornext_finalvalue1193) break; -} -fornext_error1193:; -if(qbevent){evnt(8386);if(r)goto S_10320;} -do{ -qbs_set(__STRING_VARNAME2,FUNC_GETELEMENT(__STRING_STATICARRAYLIST,__LONG_XI)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8387);}while(r); -do{ -*__LONG_XI=*__LONG_XI+ 1 ; -if(!qbevent)break;evnt(8387);}while(r); -do{ -qbs_set(__STRING_TYP2,FUNC_GETELEMENT(__STRING_STATICARRAYLIST,__LONG_XI)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8388);}while(r); -do{ -*__LONG_XI=*__LONG_XI+ 1 ; -if(!qbevent)break;evnt(8388);}while(r); -do{ -*__LONG_DIMMETHOD2=qbr(func_val(FUNC_GETELEMENT(__STRING_STATICARRAYLIST,__LONG_XI))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8389);}while(r); -do{ -*__LONG_XI=*__LONG_XI+ 1 ; -if(!qbevent)break;evnt(8389);}while(r); -S_10327:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_VARNAME),qbs_ucase(__STRING_VARNAME2))))||new_error){ -if(qbevent){evnt(8391);if(r)goto S_10327;} -S_10328:; -if ((-(*__LONG_DIMMETHOD2== 1 ))||new_error){ -if(qbevent){evnt(8392);if(r)goto S_10328;} -S_10329:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_SYMBOL2FULLTYPENAME(__STRING_TYP),__STRING_TYP2)))||new_error){ -if(qbevent){evnt(8394);if(r)goto S_10329;} -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(8394);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8394);}while(r); -} -}else{ -S_10334:; -if ((-(*__LONG_DIMMETHOD== 0 ))||new_error){ -if(qbevent){evnt(8397);if(r)goto S_10334;} -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(8398);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8398);}while(r); -}else{ -S_10338:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_SYMBOL2FULLTYPENAME(__STRING_TYP),__STRING_TYP2)))||new_error){ -if(qbevent){evnt(8400);if(r)goto S_10338;} -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(8400);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8400);}while(r); -} -} -} -} -fornext_continue_1192:; -} -fornext_exit_1192:; -do{ -qbs_set(__STRING_TYP2,FUNC_SYMBOL2FULLTYPENAME(__STRING_TYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8407);}while(r); -do{ -*__LONG_T=FUNC_TYPNAME2TYP(__STRING_TYP2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8408);}while(r); -do{ -*__LONG_TS=*__LONG_TYPNAME2TYPSIZE; -if(!qbevent)break;evnt(8408);}while(r); -S_10349:; -if ((qbs_cleanup(qbs_tmp_base,FUNC_FINDARRAY(__STRING_VARNAME)))||new_error){ -if(qbevent){evnt(8410);if(r)goto S_10349;} -S_10350:; -if ((-(*(int32*)(((char*)__UDT_ID)+(2641))==*__LONG_SUBFUNCN))||new_error){ -if(qbevent){evnt(8411);if(r)goto S_10350;} -S_10351:; -if ((qbs_cleanup(qbs_tmp_base,((int32)(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1)))->len)))||new_error){ -if(qbevent){evnt(8412);if(r)goto S_10351;} -S_10352:; -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))))||new_error){ -if(qbevent){evnt(8414);if(r)goto S_10352;} -S_10353:; -if ((-(*__LONG_TS==*(int32*)(((char*)__UDT_ID)+(540))))||new_error){ -if(qbevent){evnt(8415);if(r)goto S_10353;} -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(8416);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8416);}while(r); -} -} -}else{ -S_10359:; -if ((-(*__LONG_DIMMETHOD== 0 ))||new_error){ -if(qbevent){evnt(8420);if(r)goto S_10359;} -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(8421);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8421);}while(r); -}else{ -S_10363:; -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))))||new_error){ -if(qbevent){evnt(8424);if(r)goto S_10363;} -S_10364:; -if ((-(*__LONG_TS==*(int32*)(((char*)__UDT_ID)+(540))))||new_error){ -if(qbevent){evnt(8425);if(r)goto S_10364;} -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(8426);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8426);}while(r); -} -} -} -} -} -} -S_10373:; -if ((-((*__LONG_T&*__LONG_ISUDT)== 0 ))||new_error){ -if(qbevent){evnt(8434);if(r)goto S_10373;} -do{ -qbs_set(__STRING_S2,FUNC_TYPE2SYMBOL(__STRING_TYP2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8435);}while(r); -S_10375:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(8436);if(r)goto S_10375;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8436);}while(r); -} -S_10378:; -if ((qbs_cleanup(qbs_tmp_base,FUNC_FINDARRAY(qbs_add(__STRING_VARNAME,__STRING_S2))))||new_error){ -if(qbevent){evnt(8437);if(r)goto S_10378;} -S_10379:; -if ((-(*(int32*)(((char*)__UDT_ID)+(2641))==*__LONG_SUBFUNCN))||new_error){ -if(qbevent){evnt(8438);if(r)goto S_10379;} -S_10380:; -if ((qbs_cleanup(qbs_tmp_base,((int32)(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1)))->len)))||new_error){ -if(qbevent){evnt(8439);if(r)goto S_10380;} -S_10381:; -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))))||new_error){ -if(qbevent){evnt(8441);if(r)goto S_10381;} -S_10382:; -if ((-(*__LONG_TS==*(int32*)(((char*)__UDT_ID)+(540))))||new_error){ -if(qbevent){evnt(8442);if(r)goto S_10382;} -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(8443);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8443);}while(r); -} -} -}else{ -S_10388:; -if ((-(*__LONG_DIMMETHOD== 0 ))||new_error){ -if(qbevent){evnt(8447);if(r)goto S_10388;} -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(8448);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8448);}while(r); -}else{ -S_10392:; -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))))||new_error){ -if(qbevent){evnt(8451);if(r)goto S_10392;} -S_10393:; -if ((-(*__LONG_TS==*(int32*)(((char*)__UDT_ID)+(540))))||new_error){ -if(qbevent){evnt(8452);if(r)goto S_10393;} -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(8453);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8453);}while(r); -} -} -} -} -} -} -} -S_10403:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_STATICARRAYLIST->len))||new_error){ -if(qbevent){evnt(8463);if(r)goto S_10403;} -do{ -qbs_set(__STRING_STATICARRAYLIST,qbs_add(__STRING_STATICARRAYLIST,__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8463);}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),FUNC_STR2(__LONG_DIMMETHOD))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8464);}while(r); -S_10407:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(8465);if(r)goto S_10407;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8465);}while(r); -} -do{ -*__LONG_STATICARRAYLISTN=*__LONG_STATICARRAYLISTN+ 1 ; -if(!qbevent)break;evnt(8466);}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(8467);}while(r); -}else{ -do{ -*__LONG_OLDDIMSTATIC=*__LONG_DIMSTATIC; -if(!qbevent)break;evnt(8472);}while(r); -S_10414:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_ELEMENTS->len))||new_error){ -if(qbevent){evnt(8475);if(r)goto S_10414;} -S_10415:; -if ((*__LONG_SUBFUNCN)||new_error){ -if(qbevent){evnt(8476);if(r)goto S_10415;} -do{ -*__LONG_XI= 1 ; -if(!qbevent)break;evnt(8477);}while(r); -S_10417:; -fornext_value1197= 1 ; -fornext_finalvalue1197=*__LONG_STATICARRAYLISTN; -fornext_step1197= 1 ; -if (fornext_step1197<0) fornext_step_negative1197=1; else fornext_step_negative1197=0; -if (new_error) goto fornext_error1197; -goto fornext_entrylabel1197; -while(1){ -fornext_value1197=fornext_step1197+(*__LONG_X); -fornext_entrylabel1197: -*__LONG_X=fornext_value1197; -if (fornext_step_negative1197){ -if (fornext_value1197fornext_finalvalue1197) break; -} -fornext_error1197:; -if(qbevent){evnt(8478);if(r)goto S_10417;} -do{ -qbs_set(__STRING_VARNAME2,FUNC_GETELEMENT(__STRING_STATICARRAYLIST,__LONG_XI)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8479);}while(r); -do{ -*__LONG_XI=*__LONG_XI+ 1 ; -if(!qbevent)break;evnt(8479);}while(r); -do{ -qbs_set(__STRING_TYP2,FUNC_GETELEMENT(__STRING_STATICARRAYLIST,__LONG_XI)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8480);}while(r); -do{ -*__LONG_XI=*__LONG_XI+ 1 ; -if(!qbevent)break;evnt(8480);}while(r); -do{ -*__LONG_DIMMETHOD2=qbr(func_val(FUNC_GETELEMENT(__STRING_STATICARRAYLIST,__LONG_XI))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8481);}while(r); -do{ -*__LONG_XI=*__LONG_XI+ 1 ; -if(!qbevent)break;evnt(8481);}while(r); -S_10424:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_VARNAME),qbs_ucase(__STRING_VARNAME2))))||new_error){ -if(qbevent){evnt(8483);if(r)goto S_10424;} -S_10425:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_SYMBOL2FULLTYPENAME(__STRING_TYP),__STRING_TYP2)))||new_error){ -if(qbevent){evnt(8484);if(r)goto S_10425;} -S_10426:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(8485);if(r)goto S_10426;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8485);}while(r); -} -S_10429:; -if ((-(*__LONG_DIMMETHOD==*__LONG_DIMMETHOD2))||new_error){ -if(qbevent){evnt(8486);if(r)goto S_10429;} -do{ -qbs_set(__STRING_VARNAME,__STRING_VARNAME2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8488);}while(r); -do{ -*__LONG_DIMSTATIC= 3 ; -if(!qbevent)break;evnt(8489);}while(r); -S_10432:; -if ((-(*__INTEGER_DIMOPTION== 3 ))||new_error){ -if(qbevent){evnt(8490);if(r)goto S_10432;} -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(8490);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8490);}while(r); -} -} -} -} -fornext_continue_1196:; -} -fornext_exit_1196:; -} -} -S_10442:; -if ((*__LONG_COMMONOPTION)||new_error){ -if(qbevent){evnt(8501);if(r)goto S_10442;} -S_10443:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_ELEMENTS->len))||new_error){ -if(qbevent){evnt(8502);if(r)goto S_10443;} -S_10444:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_COMMONARRAYLIST->len))||new_error){ -if(qbevent){evnt(8505);if(r)goto S_10444;} -do{ -qbs_set(__STRING_COMMONARRAYLIST,qbs_add(__STRING_COMMONARRAYLIST,__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8505);}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),FUNC_STR2(__LONG_DIMMETHOD)),__STRING1_SP),FUNC_STR2(&(pass1200=*__INTEGER_DIMSHARED)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8507);}while(r); -S_10448:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(8508);if(r)goto S_10448;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8508);}while(r); -} -do{ -*__LONG_COMMONARRAYLISTN=*__LONG_COMMONARRAYLISTN+ 1 ; -if(!qbevent)break;evnt(8509);}while(r); -S_10452:; -if (( 0 )||new_error){ -if(qbevent){evnt(8510);if(r)goto S_10452;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1201; -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),FUNC_STR2(__LONG_DIMMETHOD)),__STRING1_SP),FUNC_STR2(&(pass1202=*__INTEGER_DIMSHARED))), 0, 0, 1); -if (new_error) goto skip1201; -skip1201: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(8510);}while(r); -} -S_10455:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(8511);if(r)goto S_10455;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8511);}while(r); -} -do{ -*__LONG_X= 0 ; -if(!qbevent)break;evnt(8513);}while(r); -do{ -qbs_set(__STRING_V,__STRING_VARNAME); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8515);}while(r); -S_10460:; -if ((-(*__LONG_DIMMETHOD== 1 ))||new_error){ -if(qbevent){evnt(8516);if(r)goto S_10460;} -do{ -qbs_set(__STRING_V,qbs_add(__STRING_V,__STRING_TYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8516);}while(r); -} -do{ -*__LONG_TRY=FUNC_FINDID(__STRING_V); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8517);}while(r); -S_10464:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(8518);if(r)goto S_10464;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8518);}while(r); -} -S_10467:; -while((*__LONG_TRY)||new_error){ -if(qbevent){evnt(8519);if(r)goto S_10467;} -S_10468:; -if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ -if(qbevent){evnt(8520);if(r)goto S_10468;} -do{ -*__LONG_T=FUNC_TYPNAME2TYP(__STRING_TYP); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8522);}while(r); -S_10470:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(8523);if(r)goto S_10470;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8523);}while(r); -} -do{ -*__LONG_S=*__LONG_TYPNAME2TYPSIZE; -if(!qbevent)break;evnt(8524);}while(r); -do{ -*__LONG_MATCH= 1 ; -if(!qbevent)break;evnt(8525);}while(r); -S_10475:; -if ((-(*__LONG_DIMMETHOD== 0 ))||new_error){ -if(qbevent){evnt(8527);if(r)goto S_10475;} -do{ -*__LONG_T2=*(int32*)(((char*)__UDT_ID)+(512)); -if(!qbevent)break;evnt(8528);}while(r); -do{ -*__LONG_S2=*(int32*)(((char*)__UDT_ID)+(540)); -if(!qbevent)break;evnt(8529);}while(r); -S_10478:; -if ((-((*__LONG_T&*__LONG_ISFLOAT)!=(*__LONG_T2&*__LONG_ISFLOAT)))||new_error){ -if(qbevent){evnt(8530);if(r)goto S_10478;} -do{ -*__LONG_MATCH= 0 ; -if(!qbevent)break;evnt(8530);}while(r); -} -S_10481:; -if ((-((*__LONG_T&*__LONG_ISUNSIGNED)!=(*__LONG_T2&*__LONG_ISUNSIGNED)))||new_error){ -if(qbevent){evnt(8531);if(r)goto S_10481;} -do{ -*__LONG_MATCH= 0 ; -if(!qbevent)break;evnt(8531);}while(r); -} -S_10484:; -if ((-((*__LONG_T&*__LONG_ISSTRING)!=(*__LONG_T2&*__LONG_ISSTRING)))||new_error){ -if(qbevent){evnt(8532);if(r)goto S_10484;} -do{ -*__LONG_MATCH= 0 ; -if(!qbevent)break;evnt(8532);}while(r); -} -S_10487:; -if ((-((*__LONG_T&*__LONG_ISFIXEDLENGTH)!=(*__LONG_T2&*__LONG_ISFIXEDLENGTH)))||new_error){ -if(qbevent){evnt(8533);if(r)goto S_10487;} -do{ -*__LONG_MATCH= 0 ; -if(!qbevent)break;evnt(8533);}while(r); -} -S_10490:; -if ((-((*__LONG_T&*__LONG_ISOFFSETINBITS)!=(*__LONG_T2&*__LONG_ISOFFSETINBITS)))||new_error){ -if(qbevent){evnt(8534);if(r)goto S_10490;} -do{ -*__LONG_MATCH= 0 ; -if(!qbevent)break;evnt(8534);}while(r); -} -S_10493:; -if ((-((*__LONG_T&*__LONG_ISUDT)!=(*__LONG_T2&*__LONG_ISUDT)))||new_error){ -if(qbevent){evnt(8535);if(r)goto S_10493;} -do{ -*__LONG_MATCH= 0 ; -if(!qbevent)break;evnt(8535);}while(r); -} -S_10496:; -if ((-((*__LONG_T& 511 )!=(*__LONG_T2& 511 )))||new_error){ -if(qbevent){evnt(8536);if(r)goto S_10496;} -do{ -*__LONG_MATCH= 0 ; -if(!qbevent)break;evnt(8536);}while(r); -} -S_10499:; -if ((-(*__LONG_S!=*__LONG_S2))||new_error){ -if(qbevent){evnt(8537);if(r)goto S_10499;} -do{ -*__LONG_MATCH= 0 ; -if(!qbevent)break;evnt(8537);}while(r); -} -do{ -*__LONG_OLDMETHOD= 0 ; -if(!qbevent)break;evnt(8539);}while(r); -S_10503:; -if ((qbs_cleanup(qbs_tmp_base,((int32)(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1)))->len)))||new_error){ -if(qbevent){evnt(8539);if(r)goto S_10503;} -do{ -*__LONG_OLDMETHOD= 1 ; -if(!qbevent)break;evnt(8539);}while(r); -} -S_10506:; -if ((-(*__LONG_OLDMETHOD!=*__LONG_DIMMETHOD))||new_error){ -if(qbevent){evnt(8540);if(r)goto S_10506;} -do{ -*__LONG_MATCH= 0 ; -if(!qbevent)break;evnt(8540);}while(r); -} -} -S_10510:; -if ((*__LONG_MATCH)||new_error){ -if(qbevent){evnt(8543);if(r)goto S_10510;} -do{ -*__LONG_X=*__LONG_CURRENTID; -if(!qbevent)break;evnt(8544);}while(r); -S_10512:; -if ((*__INTEGER_DIMSHARED)||new_error){ -if(qbevent){evnt(8545);if(r)goto S_10512;} -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(8545);}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(8546);}while(r); -S_10516:; -if ((-(*__LONG_DIMMETHOD== 0 ))||new_error){ -if(qbevent){evnt(8548);if(r)goto S_10516;} -S_10517:; -if ((*__LONG_T&*__LONG_ISUDT)||new_error){ -if(qbevent){evnt(8549);if(r)goto S_10517;} -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(8550);}while(r); -S_10519:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_TYP),qbs_new_txt_len("MEM",3)))&(-(*__LONG_QB64PREFIX_SET== 1 ))&(qbs_equal(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_new_txt_len("_MEM",4)))))||new_error){ -if(qbevent){evnt(8551);if(r)goto S_10519;} -do{ -qbs_set(__STRING_DIM2TYPEPASSBACK,func_mid(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)), 2 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8552);}while(r); -} -}else{ -do{ -qbs_set(__STRING_DIM2TYPEPASSBACK,__STRING_TYP); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8555);}while(r); -S_10524:; -while((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_DIM2TYPEPASSBACK,qbs_new_txt_len(" ",1),0)))||new_error){ -if(qbevent){evnt(8556);if(r)goto S_10524;} -do{ -tqbs=__STRING_DIM2TYPEPASSBACK; if (!new_error){ -tmp_fileno=func_instr(NULL,__STRING_DIM2TYPEPASSBACK,qbs_new_txt_len(" ",1),0); if (!new_error){ -tmp_long=qbs_asc(__STRING1_SP); if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(8557);}while(r); -dl_continue_1204:; -} -dl_exit_1204:; -do{ -qbs_set(__STRING_DIM2TYPEPASSBACK,FUNC_SCASE2(__STRING_DIM2TYPEPASSBACK)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8559);}while(r); -} -} -do{ -goto dl_exit_1203; -if(!qbevent)break;evnt(8563);}while(r); -} -} -S_10533:; -if ((-(*__LONG_TRY== 2 ))||new_error){ -if(qbevent){evnt(8567);if(r)goto S_10533;} -do{ -*__INTEGER_FINDANOTHERID= 1 ; -if(!qbevent)break;evnt(8567);}while(r); -do{ -*__LONG_TRY=FUNC_FINDID(__STRING_V); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8567);}while(r); -}else{ -do{ -*__LONG_TRY= 0 ; -if(!qbevent)break;evnt(8567);}while(r); -} -S_10539:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(8568);if(r)goto S_10539;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8568);}while(r); -} -dl_continue_1203:; -} -dl_exit_1203:; -S_10543:; -if ((-(*__LONG_X== 0 ))||new_error){ -if(qbevent){evnt(8571);if(r)goto S_10543;} -do{ -*__LONG_X=*__LONG_IDN+ 1 ; -if(!qbevent)break;evnt(8571);}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(8574);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1205=*__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)),FUNC_STR2(__LONG_X)),qbs_new_txt_len(".txt",4)),func_chr( 34 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8576);}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)),FUNC_STR2(__LONG_X)),qbs_new_txt_len(".txt",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8578);}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(8580);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1206=*__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)),FUNC_STR2(__LONG_X)),qbs_new_txt_len(".txt",4)),func_chr( 34 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8582);}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)),FUNC_STR2(__LONG_X)),qbs_new_txt_len(".txt",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8584);}while(r); -S_10552:; -if ((-(*__LONG_X!=(*__LONG_IDN+ 1 )))||new_error){ -if(qbevent){evnt(8587);if(r)goto S_10552;} -do{ -goto LABEL_SKIPDIM; -if(!qbevent)break;evnt(8587);}while(r); -} -do{ -goto LABEL_DIMCOMMONARRAY; -if(!qbevent)break;evnt(8588);}while(r); -} -} -S_10558:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_ELEMENTS->len))||new_error){ -if(qbevent){evnt(8595);if(r)goto S_10558;} -S_10559:; -if ((-(*__LONG_SUBFUNCN== 0 ))||new_error){ -if(qbevent){evnt(8596);if(r)goto S_10559;} -S_10560:; -if (( 0 )||new_error){ -if(qbevent){evnt(8598);if(r)goto S_10560;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1208; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("common checking:",16),__STRING_VARNAME), 0, 0, 1); -if (new_error) goto skip1208; -skip1208: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(8598);}while(r); -} -do{ -*__LONG_XI= 1 ; -if(!qbevent)break;evnt(8600);}while(r); -S_10564:; -fornext_value1210= 1 ; -fornext_finalvalue1210=*__LONG_COMMONARRAYLISTN; -fornext_step1210= 1 ; -if (fornext_step1210<0) fornext_step_negative1210=1; else fornext_step_negative1210=0; -if (new_error) goto fornext_error1210; -goto fornext_entrylabel1210; -while(1){ -fornext_value1210=fornext_step1210+(*__LONG_X); -fornext_entrylabel1210: -*__LONG_X=fornext_value1210; -if (fornext_step_negative1210){ -if (fornext_value1210fornext_finalvalue1210) break; -} -fornext_error1210:; -if(qbevent){evnt(8601);if(r)goto S_10564;} -do{ -qbs_set(__STRING_VARNAME2,FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8602);}while(r); -do{ -*__LONG_XI=*__LONG_XI+ 1 ; -if(!qbevent)break;evnt(8602);}while(r); -do{ -qbs_set(__STRING_TYP2,FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8603);}while(r); -do{ -*__LONG_XI=*__LONG_XI+ 1 ; -if(!qbevent)break;evnt(8603);}while(r); -do{ -*__LONG_DIMMETHOD2=qbr(func_val(FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8604);}while(r); -do{ -*__LONG_XI=*__LONG_XI+ 1 ; -if(!qbevent)break;evnt(8604);}while(r); -do{ -*__LONG_DIMSHARED2=qbr(func_val(FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8605);}while(r); -do{ -*__LONG_XI=*__LONG_XI+ 1 ; -if(!qbevent)break;evnt(8605);}while(r); -S_10573:; -if (( 0 )||new_error){ -if(qbevent){evnt(8606);if(r)goto S_10573;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1211; -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),FUNC_STR2(__LONG_DIMMETHOD2)),__STRING1_SP),FUNC_STR2(__LONG_DIMSHARED2)), 0, 0, 1); -if (new_error) goto skip1211; -skip1211: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(8606);}while(r); -} -S_10576:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARNAME,__STRING_VARNAME2)))||new_error){ -if(qbevent){evnt(8608);if(r)goto S_10576;} -S_10577:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_SYMBOL2FULLTYPENAME(__STRING_TYP),__STRING_TYP2)))||new_error){ -if(qbevent){evnt(8609);if(r)goto S_10577;} -S_10578:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(8610);if(r)goto S_10578;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8610);}while(r); -} -S_10581:; -if ((-(*__LONG_DIMMETHOD==*__LONG_DIMMETHOD2))||new_error){ -if(qbevent){evnt(8611);if(r)goto S_10581;} -S_10582:; -if ((*__LONG_DIMSHARED2)||new_error){ -if(qbevent){evnt(8615);if(r)goto S_10582;} -do{ -*__INTEGER_DIMSHARED=*__INTEGER_DIMSHARED| 2 ; -if(!qbevent)break;evnt(8615);}while(r); -} -} -} -} -fornext_continue_1209:; -} -fornext_exit_1209:; -} -} -LABEL_DIMCOMMONARRAY:; -if(qbevent){evnt(8627);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(8628);}while(r); -S_10592:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(8629);if(r)goto S_10592;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8629);}while(r); -} -LABEL_SKIPDIM:; -if(qbevent){evnt(8630);r=0;} -S_10595:; -if ((-(*__INTEGER_DIMSHARED>= 2 ))||new_error){ -if(qbevent){evnt(8631);if(r)goto S_10595;} -do{ -*__INTEGER_DIMSHARED=*__INTEGER_DIMSHARED- 2 ; -if(!qbevent)break;evnt(8631);}while(r); -} -S_10598:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_COMMONOPTION!= 0 ))&(-(__STRING_ELEMENTS->len== 0 ))))||new_error){ -if(qbevent){evnt(8634);if(r)goto S_10598;} -do{ -*__LONG_USE_GLOBAL_BYTE_ELEMENTS= 1 ; -if(!qbevent)break;evnt(8638);}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(8641);}while(r); -do{ -qbs_set(__STRING_L2,__STRING_TLAYOUT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8642);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1213=*__LONG_MAINTXTBUF),qbs_new_txt_len("int32val=1;",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8644);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1214=*__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(8645);}while(r); -do{ -*__LONG_T=*(int32*)(((char*)__UDT_ID)+(536)); -if(!qbevent)break;evnt(8647);}while(r); -do{ -*__LONG_BITS=*__LONG_T& 511 ; -if(!qbevent)break;evnt(8648);}while(r); -S_10606:; -if ((*__LONG_T&*__LONG_ISUDT)||new_error){ -if(qbevent){evnt(8649);if(r)goto S_10606;} -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(8649);}while(r); -} -S_10609:; -if ((*__LONG_T&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(8650);if(r)goto S_10609;} -S_10610:; -if ((*__LONG_T&*__LONG_ISFIXEDLENGTH)||new_error){ -if(qbevent){evnt(8651);if(r)goto S_10610;} -do{ -*__LONG_BITS=*(int32*)(((char*)__UDT_ID)+(540))* 8 ; -if(!qbevent)break;evnt(8652);}while(r); -}else{ -do{ -SUB_WRITEBUFLINE(&(pass1215=*__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(8654);}while(r); -do{ -*__LONG_BITS= 0 ; -if(!qbevent)break;evnt(8655);}while(r); -} -} -S_10617:; -if ((*__LONG_BITS)||new_error){ -if(qbevent){evnt(8659);if(r)goto S_10617;} -do{ -SUB_WRITEBUFLINE(&(pass1216=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("int64val=",9),FUNC_STR2(__LONG_BITS)),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8660);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass1217=*__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(8662);}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(8665);}while(r); -S_10622:; -if ((-((*__LONG_T&*__LONG_ISUDT)== 0 ))||new_error){ -if(qbevent){evnt(8667);if(r)goto S_10622;} -S_10623:; -if ((*__LONG_T&*__LONG_ISFIXEDLENGTH)||new_error){ -if(qbevent){evnt(8668);if(r)goto S_10623;} -do{ -qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,qbs_new_txt_len("$",1)),FUNC_STR2((int32*)(void*)( ((char*)(__UDT_ID)) + (540) )))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8669);}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(8671);}while(r); -S_10627:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(8672);if(r)goto S_10627;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8672);}while(r); -} -} -} -do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(FUNC_FIXOPERATIONORDER(__STRING_E),&(pass1218= -4 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8675);}while(r); -S_10633:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(8676);if(r)goto S_10633;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8676);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass1219=*__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(8678);}while(r); -do{ -qbs_set(__STRING_TLAYOUT,__STRING_L2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8680);}while(r); -do{ -*__LONG_MAINTXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("A",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("main.txt",8))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8682);}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(8688);}while(r); -do{ -qbs_set(__STRING_L2,__STRING_TLAYOUT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8689);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1220=*__LONG_MAINTXTBUF),qbs_new_txt_len("if (int32val==1){",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8692);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1221=*__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(8694);}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(8697);}while(r); -do{ -*__LONG_T=*(int32*)(((char*)__UDT_ID)+(536)); -if(!qbevent)break;evnt(8698);}while(r); -S_10645:; -if ((-((*__LONG_T&*__LONG_ISUDT)== 0 ))||new_error){ -if(qbevent){evnt(8699);if(r)goto S_10645;} -S_10646:; -if ((*__LONG_T&*__LONG_ISFIXEDLENGTH)||new_error){ -if(qbevent){evnt(8700);if(r)goto S_10646;} -do{ -qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,qbs_new_txt_len("$",1)),FUNC_STR2((int32*)(void*)( ((char*)(__UDT_ID)) + (540) )))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8701);}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(8703);}while(r); -S_10650:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(8704);if(r)goto S_10650;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8704);}while(r); -} -} -} -S_10655:; -if ((*__LONG_T&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(8708);if(r)goto S_10655;} -S_10656:; -if ((-((*__LONG_T&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ -if(qbevent){evnt(8709);if(r)goto S_10656;} -do{ -SUB_WRITEBUFLINE(&(pass1222=*__LONG_MAINTXTBUF),qbs_new_txt_len("tqbs=qbs_new(int64val>>3,1);",28)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8710);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1223=*__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(8711);}while(r); -} -} -do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(FUNC_FIXOPERATIONORDER(__STRING_E),&(pass1224= -4 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8716);}while(r); -S_10662:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(8717);if(r)goto S_10662;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8717);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass1225=*__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(8718);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1226=*__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(8720);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1227=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8721);}while(r); -do{ -qbs_set(__STRING_TLAYOUT,__STRING_L2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8723);}while(r); -do{ -*__LONG_MAINTXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("A",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("main.txt",8))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8725);}while(r); -do{ -*__LONG_USE_GLOBAL_BYTE_ELEMENTS= 0 ; -if(!qbevent)break;evnt(8727);}while(r); -} -LABEL_COMMONARRAYLISTED:; -if(qbevent){evnt(8731);r=0;} -S_10672:; -if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_APPENDTYPE->len> 0 ))&(-(*__LONG_NEWDIMSYNTAX== -1 ))))||new_error){ -if(qbevent){evnt(8733);if(r)goto S_10672;} -S_10673:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_DIM2TYPEPASSBACK->len))||new_error){ -if(qbevent){evnt(8734);if(r)goto S_10673;} -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(8734);}while(r); -} -S_10676:; -if ((-(*__LONG_NEWDIMSYNTAXTYPEPASSBACK== 0 ))||new_error){ -if(qbevent){evnt(8735);if(r)goto S_10676;} -do{ -*__LONG_NEWDIMSYNTAXTYPEPASSBACK= -1 ; -if(!qbevent)break;evnt(8736);}while(r); -do{ -qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_APPENDTYPE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8737);}while(r); -} -} -do{ -*__LONG_N2=FUNC_NUMELEMENTS(__STRING_TLAYOUT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8741);}while(r); -do{ -qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_GETELEMENT(__STRING_TLAYOUT,&(pass1230= 1 ))),__STRING_APPENDNAME)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8742);}while(r); -S_10683:; -if ((-(*__LONG_N2> 1 ))||new_error){ -if(qbevent){evnt(8743);if(r)goto S_10683;} -do{ -qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),FUNC_GETELEMENTS(__STRING_TLAYOUT,&(pass1231= 2 ),__LONG_N2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8744);}while(r); -} -S_10686:; -if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_APPENDTYPE->len> 0 ))&(-(*__LONG_NEWDIMSYNTAX== 0 ))))||new_error){ -if(qbevent){evnt(8747);if(r)goto S_10686;} -S_10687:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_DIM2TYPEPASSBACK->len))||new_error){ -if(qbevent){evnt(8748);if(r)goto S_10687;} -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(8748);}while(r); -} -do{ -qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_APPENDTYPE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8749);}while(r); -} -do{ -*__LONG_DIMSTATIC=*__LONG_OLDDIMSTATIC; -if(!qbevent)break;evnt(8754);}while(r); -} -S_10694:; -if ((*__LONG_NEWDIMSYNTAX)||new_error){ -if(qbevent){evnt(8758);if(r)goto S_10694;} -do{ -#include "ret0.txt" -if(!qbevent)break;evnt(8758);}while(r); -} -S_10697:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_D,qbs_new_txt_len(",",1))))||new_error){ -if(qbevent){evnt(8760);if(r)goto S_10697;} -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(8760);}while(r); -do{ -goto LABEL_DIMNEXT; -if(!qbevent)break;evnt(8760);}while(r); -} -do{ -*__INTEGER_DIMOPTION= 0 ; -if(!qbevent)break;evnt(8762);}while(r); -do{ -*__INTEGER_DIMSHARED= 0 ; -if(!qbevent)break;evnt(8763);}while(r); -do{ -*__INTEGER_REDIMOPTION= 0 ; -if(!qbevent)break;evnt(8764);}while(r); -S_10704:; -if ((-(*__LONG_DIMSTATIC== 1 ))||new_error){ -if(qbevent){evnt(8765);if(r)goto S_10704;} -do{ -*__LONG_DIMSTATIC= 0 ; -if(!qbevent)break;evnt(8765);}while(r); -} -do{ -*__LONG_ALLOWLOCALNAME= 0 ; -if(!qbevent)break;evnt(8766);}while(r); -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(8768);}while(r); -S_10709:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||new_error){ -if(qbevent){evnt(8769);if(r)goto S_10709;} -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8769);}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(8769);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(8771);}while(r); -}else{ -do{ -*__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(8774);}while(r); -do{ -*__LONG_NEWDIMSYNTAXTYPEPASSBACK= 0 ; -if(!qbevent)break;evnt(8775);}while(r); -do{ -qbs_set(__STRING_APPENDNAME,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8778);}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(8779);}while(r); -do{ -qbs_set(__STRING_TYP,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8780);}while(r); -do{ -qbs_set(__STRING_VARNAME,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8781);}while(r); -do{ -qbs_set(__STRING_PREVIOUSELEMENT,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8782);}while(r); -S_10723:; -fornext_value1236=*__LONG_I; -fornext_finalvalue1236=*__LONG_N; -fornext_step1236= 1 ; -if (fornext_step1236<0) fornext_step_negative1236=1; else fornext_step_negative1236=0; -if (new_error) goto fornext_error1236; -goto fornext_entrylabel1236; -while(1){ -fornext_value1236=fornext_step1236+(*__LONG_I); -fornext_entrylabel1236: -*__LONG_I=fornext_value1236; -if (fornext_step_negative1236){ -if (fornext_value1236fornext_finalvalue1236) break; -} -fornext_error1236:; -if(qbevent){evnt(8783);if(r)goto S_10723;} -do{ -qbs_set(__STRING_D,FUNC_GETELEMENT(__STRING_A,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8784);}while(r); -S_10725:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_D,qbs_new_txt_len(",",1)))|(qbs_equal(__STRING_D,qbs_new_txt_len("(",1)))))||new_error){ -if(qbevent){evnt(8785);if(r)goto S_10725;} -do{ -goto fornext_exit_1235; -if(!qbevent)break;evnt(8785);}while(r); -} -do{ -qbs_set(__STRING_VARNAME,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8786);}while(r); -S_10729:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_PREVIOUSELEMENT->len))||new_error){ -if(qbevent){evnt(8787);if(r)goto S_10729;} -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(8788);}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(8789);}while(r); -} -do{ -qbs_set(__STRING_PREVIOUSELEMENT,__STRING_D); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8791);}while(r); -do{ -qbs_set(__STRING_D,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8792);}while(r); -fornext_continue_1235:; -} -fornext_exit_1235:; -do{ -qbs_set(__STRING_APPENDTYPE,FUNC_SCASE2(__STRING_APPENDTYPE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8794);}while(r); -do{ -qbs_set(__STRING_TYP,qbs_rtrim(__STRING_TYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8795);}while(r); -LABEL_DIMNEXT2:; -if(qbevent){evnt(8797);r=0;} -do{ -*__LONG_NOTYPE= 0 ; -if(!qbevent)break;evnt(8798);}while(r); -do{ -*__LONG_LISTARRAY= 0 ; -if(!qbevent)break;evnt(8799);}while(r); -S_10740:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_TYP,qbs_new_txt_len("",0)))|(qbs_equal(__STRING_VARNAME,qbs_new_txt_len("",0)))))||new_error){ -if(qbevent){evnt(8801);if(r)goto S_10740;} -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(8801);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8801);}while(r); -} -S_10744:; -if ((-(*__LONG_I>=(*__LONG_N+ 1 )))||new_error){ -if(qbevent){evnt(8804);if(r)goto S_10744;} -do{ -qbs_set(__STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8804);}while(r); -}else{ -do{ -qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8804);}while(r); -do{ -*__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(8804);}while(r); -} -do{ -qbs_set(__STRING_ELEMENTS,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8807);}while(r); -S_10751:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(8809);if(r)goto S_10751;} -do{ -*__LONG_B= 1 ; -if(!qbevent)break;evnt(8810);}while(r); -S_10753:; -fornext_value1239=*__LONG_I; -fornext_finalvalue1239=*__LONG_N; -fornext_step1239= 1 ; -if (fornext_step1239<0) fornext_step_negative1239=1; else fornext_step_negative1239=0; -if (new_error) goto fornext_error1239; -goto fornext_entrylabel1239; -while(1){ -fornext_value1239=fornext_step1239+(*__LONG_I); -fornext_entrylabel1239: -*__LONG_I=fornext_value1239; -if (fornext_step_negative1239){ -if (fornext_value1239fornext_finalvalue1239) break; -} -fornext_error1239:; -if(qbevent){evnt(8811);if(r)goto S_10753;} -do{ -qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8812);}while(r); -S_10755:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(8813);if(r)goto S_10755;} -do{ -*__LONG_B=*__LONG_B+ 1 ; -if(!qbevent)break;evnt(8813);}while(r); -} -S_10758:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(8814);if(r)goto S_10758;} -do{ -*__LONG_B=*__LONG_B- 1 ; -if(!qbevent)break;evnt(8814);}while(r); -} -S_10761:; -if ((-(*__LONG_B== 0 ))||new_error){ -if(qbevent){evnt(8815);if(r)goto S_10761;} -do{ -goto fornext_exit_1238; -if(!qbevent)break;evnt(8815);}while(r); -} -S_10764:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_ELEMENTS->len))||new_error){ -if(qbevent){evnt(8816);if(r)goto S_10764;} -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(8816);}while(r); -}else{ -do{ -qbs_set(__STRING_ELEMENTS,__STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8816);}while(r); -} -fornext_continue_1238:; -} -fornext_exit_1238:; -S_10770:; -if ((-(*__LONG_B!= 0 ))||new_error){ -if(qbevent){evnt(8818);if(r)goto S_10770;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8818);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8818);}while(r); -} -do{ -*__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(8819);}while(r); -S_10775:; -if ((*__LONG_COMMONOPTION)||new_error){ -if(qbevent){evnt(8821);if(r)goto S_10775;} -do{ -qbs_set(__STRING_ELEMENTS,qbs_new_txt_len("?",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8821);}while(r); -} -S_10778:; -if (( 0 )||new_error){ -if(qbevent){evnt(8824);if(r)goto S_10778;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1241; -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 (new_error) goto skip1241; -skip1241: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(8824);}while(r); -} -S_10781:; -if ((-(*__INTEGER_DIMOPTION== 3 ))||new_error){ -if(qbevent){evnt(8829);if(r)goto S_10781;} -S_10782:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_ELEMENTS->len== 0 )))||new_error){ -if(qbevent){evnt(8830);if(r)goto S_10782;} -do{ -*__LONG_LISTARRAY= 1 ; -if(!qbevent)break;evnt(8831);}while(r); -} -} -S_10786:; -if ((-(*__LONG_I>=(*__LONG_N+ 1 )))||new_error){ -if(qbevent){evnt(8837);if(r)goto S_10786;} -do{ -qbs_set(__STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8837);}while(r); -}else{ -do{ -qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8837);}while(r); -do{ -*__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(8837);}while(r); -} -} -do{ -qbs_set(__STRING_D,__STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8839);}while(r); -do{ -*__LONG_DIMMETHOD= 0 ; -if(!qbevent)break;evnt(8841);}while(r); -do{ -qbs_set(__STRING_DIM2TYPEPASSBACK,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8843);}while(r); -do{ -qbs_set(__STRING_S,FUNC_REMOVESYMBOL(__STRING_VARNAME)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8846);}while(r); -S_10797:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(8847);if(r)goto S_10797;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8847);}while(r); -} -S_10800:; -if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(__STRING_VARNAME)== 0 )))||new_error){ -if(qbevent){evnt(8848);if(r)goto S_10800;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Invalid variable name",21)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8848);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8848);}while(r); -} -S_10804:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_S,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(8850);if(r)goto S_10804;} -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(8851);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8852);}while(r); -} -S_10808:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(__STRING_D,qbs_new_txt_len("",0)))&(qbs_notequal(__STRING_D,qbs_new_txt_len(",",1)))))||new_error){ -if(qbevent){evnt(8855);if(r)goto S_10808;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("DIM: Expected ,",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8855);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8855);}while(r); -} -do{ -*__LONG_NEWDIMSYNTAX= -1 ; -if(!qbevent)break;evnt(8857);}while(r); -do{ -return_point[next_return_point++]=5; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_NORMALDIMBLOCK; -RETURN_5:; -if(!qbevent)break;evnt(8858);}while(r); -do{ -*__LONG_NEWDIMSYNTAX= 0 ; -if(!qbevent)break;evnt(8859);}while(r); -S_10815:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_D,qbs_new_txt_len(",",1))))||new_error){ -if(qbevent){evnt(8861);if(r)goto S_10815;} -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(8862);}while(r); -do{ -qbs_set(__STRING_VARNAME,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8863);}while(r); -do{ -*__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(8863);}while(r); -do{ -goto LABEL_DIMNEXT2; -if(!qbevent)break;evnt(8864);}while(r); -} -do{ -*__INTEGER_DIMOPTION= 0 ; -if(!qbevent)break;evnt(8867);}while(r); -do{ -*__INTEGER_DIMSHARED= 0 ; -if(!qbevent)break;evnt(8868);}while(r); -do{ -*__INTEGER_REDIMOPTION= 0 ; -if(!qbevent)break;evnt(8869);}while(r); -S_10824:; -if ((-(*__LONG_DIMSTATIC== 1 ))||new_error){ -if(qbevent){evnt(8870);if(r)goto S_10824;} -do{ -*__LONG_DIMSTATIC= 0 ; -if(!qbevent)break;evnt(8870);}while(r); -} -do{ -*__LONG_ALLOWLOCALNAME= 0 ; -if(!qbevent)break;evnt(8871);}while(r); -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(8873);}while(r); -S_10829:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||new_error){ -if(qbevent){evnt(8874);if(r)goto S_10829;} -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8874);}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(8874);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(8876);}while(r); -} -} -} -S_10838:; -if ((-(*__LONG_THENGOTO== 1 ))||new_error){ -if(qbevent){evnt(8892);if(r)goto S_10838;} -S_10839:; -if ((-(*__LONG_N== 1 ))||new_error){ -if(qbevent){evnt(8893);if(r)goto S_10839;} -do{ -qbs_set(__STRING_L,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8894);}while(r); -do{ -*__LONG_A=qbs_asc(qbs_left(__STRING_FIRSTELEMENT, 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8895);}while(r); -S_10842:; -if (((-(*__LONG_A== 46 ))|(((-(*__LONG_A>= 48 ))&(-(*__LONG_A<= 57 )))))||new_error){ -if(qbevent){evnt(8896);if(r)goto S_10842;} -do{ -qbs_set(__STRING_A2,__STRING_CA); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8896);}while(r); -do{ -goto LABEL_THENGOTO; -if(!qbevent)break;evnt(8896);}while(r); -} -} -} -S_10848:; -if ((-(*__LONG_N== 2 ))||new_error){ -if(qbevent){evnt(8901);if(r)goto S_10848;} -S_10849:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass1244= 1 )),qbs_new_txt_len("GOTO",4))))||new_error){ -if(qbevent){evnt(8902);if(r)goto S_10849;} -do{ -qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("GoTo",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8903);}while(r); -do{ -qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,&(pass1245= 2 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8904);}while(r); -LABEL_THENGOTO:; -if(qbevent){evnt(8905);r=0;} -S_10852:; -if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(__STRING_A2)== 0 )))||new_error){ -if(qbevent){evnt(8906);if(r)goto S_10852;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Invalid label!",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8906);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8906);}while(r); -} -do{ -*__LONG_V=FUNC_HASHFIND(__STRING_A2,&(pass1246= 2 ),__LONG_IGNORE,__LONG_R); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8908);}while(r); -do{ -*__LONG_X= 1 ; -if(!qbevent)break;evnt(8909);}while(r); -LABEL_LABCHK2:; -if(qbevent){evnt(8910);r=0;} -S_10858:; -if ((*__LONG_V)||new_error){ -if(qbevent){evnt(8911);if(r)goto S_10858;} -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(8912);}while(r); -S_10860:; -if (((-(*__LONG_S==*__LONG_SUBFUNCN))|(-(*__LONG_S== -1 )))||new_error){ -if(qbevent){evnt(8913);if(r)goto S_10860;} -S_10861:; -if ((-(*__LONG_S== -1 ))||new_error){ -if(qbevent){evnt(8914);if(r)goto S_10861;} -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(8914);}while(r); -} -do{ -*__LONG_X= 0 ; -if(!qbevent)break;evnt(8915);}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(8916);}while(r); -}else{ -S_10867:; -if ((-(*__LONG_V== 2 ))||new_error){ -if(qbevent){evnt(8918);if(r)goto S_10867;} -do{ -*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R); -if(!qbevent)break;evnt(8918);}while(r); -do{ -goto LABEL_LABCHK2; -if(!qbevent)break;evnt(8918);}while(r); -} -} -} -S_10873:; -if ((*__LONG_X)||new_error){ -if(qbevent){evnt(8921);if(r)goto S_10873;} -do{ -*__LONG_NLABELS=*__LONG_NLABELS+ 1 ; -if(!qbevent)break;evnt(8923);}while(r); -S_10875:; -if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||new_error){ -if(qbevent){evnt(8923);if(r)goto S_10875;} -do{ -*__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ; -if(!qbevent)break;evnt(8923);}while(r); -do{ +} +if(!qbevent)break;evnt(7484);}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(7485);}while(r); +do{ +SUB_HASHADD(__STRING_A2,&(pass1061= 2 ),__LONG_NLABELS); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7486);}while(r); +do{ +*__LONG_R=*__LONG_NLABELS; +if(!qbevent)break;evnt(7487);}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(7488);}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(7489);}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(7490);}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(7491);}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(7492);}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(7494);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1062=*__LONG_KEYJTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if(key_event_id==",17),FUNC_STR2(__LONG_ONKEYID)),qbs_new_txt_len(")goto LABEL_",12)),__STRING_A2),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7496);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1063=*__LONG_KEYTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("case ",5),FUNC_STR2(__LONG_ONKEYID)),qbs_new_txt_len(":",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7498);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1064=*__LONG_KEYTXTBUF),qbs_new_txt_len("key_event_occurred++;",21)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7499);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1065=*__LONG_KEYTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("key_event_id=",13),FUNC_STR2(__LONG_ONKEYID)),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7500);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1066=*__LONG_KEYTXTBUF),qbs_new_txt_len("key_event_occurred++;",21)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7501);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1067=*__LONG_KEYTXTBUF),qbs_new_txt_len("return_point[next_return_point++]=0;",36)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7502);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1068=*__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(7503);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1069=*__LONG_KEYTXTBUF),qbs_new_txt_len("QBMAIN(NULL);",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7504);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1070=*__LONG_KEYTXTBUF),qbs_new_txt_len("break;",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7505);}while(r); +S_9204:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||new_error){ +if(qbevent){evnt(7507);if(r)goto S_9204;} +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7507);}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(7507);}while(r); +} +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(7508);}while(r); +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(7509);}while(r); +}else{ +do{ +*__LONG_X= 0 ; +if(!qbevent)break;evnt(7513);}while(r); +do{ +*__LONG_TRY=FUNC_FINDID(__STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7514);}while(r); +S_9214:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(7515);if(r)goto S_9214;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7515);}while(r); +} +S_9217:; +while((*__LONG_TRY)||new_error){ +if(qbevent){evnt(7516);if(r)goto S_9217;} +S_9218:; +if ((-(*(int16*)(((char*)__UDT_ID)+(544))== 2 ))||new_error){ +if(qbevent){evnt(7517);if(r)goto S_9218;} +do{ +*__LONG_X= 1 ; +if(!qbevent)break;evnt(7517);}while(r); +do{ +goto dl_exit_1072; +if(!qbevent)break;evnt(7517);}while(r); +} +S_9222:; +if ((-(*__LONG_TRY== 2 ))||new_error){ +if(qbevent){evnt(7518);if(r)goto S_9222;} +do{ +*__INTEGER_FINDANOTHERID= 1 ; +if(!qbevent)break;evnt(7518);}while(r); +do{ +*__LONG_TRY=FUNC_FINDID(__STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7518);}while(r); +}else{ +do{ +*__LONG_TRY= 0 ; +if(!qbevent)break;evnt(7518);}while(r); +} +S_9228:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(7519);if(r)goto S_9228;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7519);}while(r); +} +dl_continue_1072:; +} +dl_exit_1072:; +S_9232:; +if ((-(*__LONG_X== 0 ))||new_error){ +if(qbevent){evnt(7521);if(r)goto S_9232;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected GOSUB/sub",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7521);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7521);}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(7523);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1073=*__LONG_KEYTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("case ",5),FUNC_STR2(__LONG_ONKEYID)),qbs_new_txt_len(":",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7525);}while(r); +do{ +SUB_WRITEBUFRAWDATA(&(pass1074=*__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(7526);}while(r); +S_9239:; +if ((-(*(int16*)(((char*)__UDT_ID)+(809))> 1 ))||new_error){ +if(qbevent){evnt(7528);if(r)goto S_9239;} +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(7528);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7528);}while(r); +} +S_9243:; +if ((-(*__LONG_I>*__LONG_N))||new_error){ +if(qbevent){evnt(7530);if(r)goto S_9243;} +S_9244:; +if ((-(*(int16*)(((char*)__UDT_ID)+(809))== 1 ))||new_error){ +if(qbevent){evnt(7532);if(r)goto S_9244;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected argument after SUB",27)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7532);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7532);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass1075=*__LONG_MAINTXTBUF),qbs_new_txt_len("0);",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7533);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1076=*__LONG_KEYTXTBUF),qbs_new_txt_len(");",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7534);}while(r); +}else{ +S_9251:; +if ((-(*(int16*)(((char*)__UDT_ID)+(809))== 0 ))||new_error){ +if(qbevent){evnt(7538);if(r)goto S_9251;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("SUB has no arguments",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7538);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7538);}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(7540);}while(r); +do{ +*__LONG_B=*__LONG_T& 511 ; +if(!qbevent)break;evnt(7541);}while(r); +S_9257:; +if (((-(*__LONG_B== 0 ))|(-((*__LONG_T&*__LONG_ISARRAY)!= 0 ))|(-((*__LONG_T&*__LONG_ISFLOAT)!= 0 ))|(-((*__LONG_T&*__LONG_ISSTRING)!= 0 ))|(-((*__LONG_T&*__LONG_ISOFFSETINBITS)!= 0 )))||new_error){ +if(qbevent){evnt(7542);if(r)goto S_9257;} +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(7542);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7542);}while(r); +} +S_9261:; +if ((-(*__LONG_B== 8 ))||new_error){ +if(qbevent){evnt(7543);if(r)goto S_9261;} +do{ +qbs_set(__STRING_CT,qbs_new_txt_len("int8",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7543);}while(r); +} +S_9264:; +if ((-(*__LONG_B== 16 ))||new_error){ +if(qbevent){evnt(7544);if(r)goto S_9264;} +do{ +qbs_set(__STRING_CT,qbs_new_txt_len("int16",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7544);}while(r); +} +S_9267:; +if ((-(*__LONG_B== 32 ))||new_error){ +if(qbevent){evnt(7545);if(r)goto S_9267;} +do{ +qbs_set(__STRING_CT,qbs_new_txt_len("int32",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7545);}while(r); +} +S_9270:; +if ((-(*__LONG_B== 64 ))||new_error){ +if(qbevent){evnt(7546);if(r)goto S_9270;} +do{ +qbs_set(__STRING_CT,qbs_new_txt_len("int64",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7546);}while(r); +} +S_9273:; +if ((*__LONG_T&*__LONG_ISOFFSET)||new_error){ +if(qbevent){evnt(7547);if(r)goto S_9273;} +do{ +qbs_set(__STRING_CT,qbs_new_txt_len("ptrszint",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7547);}while(r); +} +S_9276:; +if ((*__LONG_T&*__LONG_ISUNSIGNED)||new_error){ +if(qbevent){evnt(7548);if(r)goto S_9276;} +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(7548);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass1077=*__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(7549);}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(7551);}while(r); +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7552);}while(r); +S_9282:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(7553);if(r)goto S_9282;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7553);}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(7554);}while(r); +do{ +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1078=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7555);}while(r); +S_9287:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(7556);if(r)goto S_9287;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7556);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass1079=*__LONG_MAINTXTBUF),qbs_add(__STRING_E,qbs_new_txt_len(");",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7557);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass1080=*__LONG_KEYTXTBUF),qbs_new_txt_len("break;",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7561);}while(r); +S_9293:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||new_error){ +if(qbevent){evnt(7562);if(r)goto S_9293;} +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7562);}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(7562);}while(r); +} +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(7563);}while(r); +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(7564);}while(r); +} +} +} +S_9303:; +if ((-(*__LONG_N>= 1 ))||new_error){ +if(qbevent){evnt(7597);if(r)goto S_9303;} +S_9304:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("SHARED",6))))||new_error){ +if(qbevent){evnt(7598);if(r)goto S_9304;} +S_9305:; +if ((-(*__LONG_N== 1 ))||new_error){ +if(qbevent){evnt(7599);if(r)goto S_9305;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected SHARED ...",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7599);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7599);}while(r); +} +do{ +*__LONG_I= 2 ; +if(!qbevent)break;evnt(7600);}while(r); +S_9310:; +if ((-(*__LONG_SUBFUNCN== 0 ))||new_error){ +if(qbevent){evnt(7601);if(r)goto S_9310;} +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(7601);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7601);}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(7605);}while(r); +LABEL_SUBFUNCSHR:; +if(qbevent){evnt(7606);r=0;} +do{ +qbs_set(__STRING_N,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7609);}while(r); +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(7609);}while(r); +S_9317:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_N,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(7611);if(r)goto S_9317;} +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(7611);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7611);}while(r); +} +S_9321:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_ucase(__STRING_N),qbs_new_txt_len("AS",2))))||new_error){ +if(qbevent){evnt(7613);if(r)goto S_9321;} +do{ +*__LONG_NEWSHAREDSYNTAX= 0 ; +if(!qbevent)break;evnt(7615);}while(r); +do{ +qbs_set(__STRING_S,FUNC_REMOVESYMBOL(__STRING_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7616);}while(r); +S_9324:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(7617);if(r)goto S_9324;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7617);}while(r); +} +do{ +qbs_set(__STRING_L2,__STRING_S); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7618);}while(r); +do{ +*__LONG_A= 0 ; +if(!qbevent)break;evnt(7621);}while(r); +S_9329:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,__LONG_I),qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(7622);if(r)goto S_9329;} +S_9330:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,&(pass1082=*__LONG_I+ 1 )),qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(7623);if(r)goto S_9330;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected ()",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7623);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7623);}while(r); +} +do{ +*__LONG_I=*__LONG_I+ 2 ; +if(!qbevent)break;evnt(7624);}while(r); +do{ +*__LONG_A= 1 ; +if(!qbevent)break;evnt(7625);}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(7626);}while(r); +} +do{ +*__LONG_METHOD= 1 ; +if(!qbevent)break;evnt(7629);}while(r); +do{ +qbs_set(__STRING_T,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7632);}while(r); +do{ +qbs_set(__STRING_TS,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7633);}while(r); +do{ +qbs_set(__STRING_T3,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7634);}while(r); +S_9342:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,__LONG_I),qbs_new_txt_len("AS",2))))||new_error){ +if(qbevent){evnt(7635);if(r)goto S_9342;} +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(7636);}while(r); +LABEL_GETSHRTYP:; +if(qbevent){evnt(7637);r=0;} +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(7638);}while(r); +do{ +qbs_set(__STRING_T2,FUNC_GETELEMENT(__STRING_A,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7639);}while(r); +S_9346:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(__STRING_T2,qbs_new_txt_len(",",1)))&(qbs_notequal(__STRING_T2,qbs_new_txt_len("",0)))))||new_error){ +if(qbevent){evnt(7640);if(r)goto S_9346;} +S_9347:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(7641);if(r)goto S_9347;} +do{ +qbs_set(__STRING_T,__STRING_T2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7641);}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(7641);}while(r); +} +S_9352:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T3,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(7642);if(r)goto S_9352;} +do{ +qbs_set(__STRING_T3,__STRING_T2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7642);}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(7642);}while(r); +} +do{ +goto LABEL_GETSHRTYP; +if(!qbevent)break;evnt(7643);}while(r); +} +S_9359:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(7645);if(r)goto S_9359;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected AS type",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7645);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7645);}while(r); +} +do{ +*__LONG_T=FUNC_TYPNAME2TYP(__STRING_T); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7647);}while(r); +S_9364:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(7648);if(r)goto S_9364;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7648);}while(r); +} +S_9367:; +if ((*__LONG_T&*__LONG_ISINCONVENTIONALMEMORY)||new_error){ +if(qbevent){evnt(7649);if(r)goto S_9367;} +do{ +*__LONG_T=*__LONG_T-*__LONG_ISINCONVENTIONALMEMORY; +if(!qbevent)break;evnt(7649);}while(r); +} +S_9370:; +if ((*__LONG_T&*__LONG_ISPOINTER)||new_error){ +if(qbevent){evnt(7650);if(r)goto S_9370;} +do{ +*__LONG_T=*__LONG_T-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(7650);}while(r); +} +S_9373:; +if ((*__LONG_T&*__LONG_ISREFERENCE)||new_error){ +if(qbevent){evnt(7651);if(r)goto S_9373;} +do{ +*__LONG_T=*__LONG_T-*__LONG_ISREFERENCE; +if(!qbevent)break;evnt(7651);}while(r); +} +do{ +*__LONG_TSIZE=*__LONG_TYPNAME2TYPSIZE; +if(!qbevent)break;evnt(7652);}while(r); +do{ +*__LONG_METHOD= 0 ; +if(!qbevent)break;evnt(7653);}while(r); +S_9378:; +if ((-((*__LONG_T&*__LONG_ISUDT)== 0 ))||new_error){ +if(qbevent){evnt(7654);if(r)goto S_9378;} +do{ +qbs_set(__STRING_TS,FUNC_TYPE2SYMBOL(__STRING_T)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7655);}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(7656);}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(7658);}while(r); +S_9383:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(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_new_txt_len("_MEM",4)))&(qbs_equal(qbs_ucase(__STRING_T),qbs_new_txt_len("MEM",3)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))||new_error){ +if(qbevent){evnt(7659);if(r)goto S_9383;} +do{ +qbs_set(__STRING_T3,func_mid(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)), 2 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7660);}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(7662);}while(r); +} +S_9388:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(7664);if(r)goto S_9388;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7664);}while(r); +} +} +S_9392:; +if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_S->len!= 0 ))&(-(__STRING_T->len!= 0 ))))||new_error){ +if(qbevent){evnt(7668);if(r)goto S_9392;} +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(7668);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7668);}while(r); +} +S_9396:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_S,qbs_new_txt_len("",0)))&(qbs_equal(__STRING_T,qbs_new_txt_len("",0)))))||new_error){ +if(qbevent){evnt(7671);if(r)goto S_9396;} +S_9397:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_N, 1 ),qbs_new_txt_len("_",1))))||new_error){ +if(qbevent){evnt(7672);if(r)goto S_9397;} +do{ +*__LONG_V= 27 ; +if(!qbevent)break;evnt(7672);}while(r); +}else{ +do{ +*__LONG_V=qbs_asc(qbs_ucase(__STRING_N))- 64 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7672);}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(7673);}while(r); +} +LABEL_NORMALSHAREDBLOCK:; +if(qbevent){evnt(7676);r=0;} +do{ +qbs_set(__STRING_OLDSUBFUNC,__STRING_SUBFUNC); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7678);}while(r); +do{ +qbs_set(__STRING_SUBFUNC,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7679);}while(r); +do{ +*__INTEGER_DEFDATAHANDLE=*__LONG_GLOBTXTBUF; +if(!qbevent)break;evnt(7680);}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(7681);}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(7682);}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(7685);}while(r); +do{ +*__LONG_TRY=FUNC_FINDID(__STRING_N2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7686);}while(r); +S_9411:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(7687);if(r)goto S_9411;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7687);}while(r); +} +S_9414:; +while((*__LONG_TRY)||new_error){ +if(qbevent){evnt(7688);if(r)goto S_9414;} +S_9415:; +if ((*__LONG_A)||new_error){ +if(qbevent){evnt(7689);if(r)goto S_9415;} +S_9416:; +if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ +if(qbevent){evnt(7692);if(r)goto S_9416;} +S_9417:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_T->len== 0 )))||new_error){ +if(qbevent){evnt(7693);if(r)goto S_9417;} +do{ +goto LABEL_SHRFOUND; +if(!qbevent)break;evnt(7693);}while(r); +} +do{ +*__LONG_T2=*(int32*)(((char*)__UDT_ID)+(512)); +if(!qbevent)break;evnt(7694);}while(r); +do{ +*__LONG_T2SIZE=*(int32*)(((char*)__UDT_ID)+(540)); +if(!qbevent)break;evnt(7694);}while(r); +S_9422:; +if ((*__LONG_T2&*__LONG_ISINCONVENTIONALMEMORY)||new_error){ +if(qbevent){evnt(7695);if(r)goto S_9422;} +do{ +*__LONG_T2=*__LONG_T2-*__LONG_ISINCONVENTIONALMEMORY; +if(!qbevent)break;evnt(7695);}while(r); +} +S_9425:; +if ((*__LONG_T2&*__LONG_ISPOINTER)||new_error){ +if(qbevent){evnt(7696);if(r)goto S_9425;} +do{ +*__LONG_T2=*__LONG_T2-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(7696);}while(r); +} +S_9428:; +if ((*__LONG_T2&*__LONG_ISREFERENCE)||new_error){ +if(qbevent){evnt(7697);if(r)goto S_9428;} +do{ +*__LONG_T2=*__LONG_T2-*__LONG_ISREFERENCE; +if(!qbevent)break;evnt(7697);}while(r); +} +S_9431:; +if (((-(*__LONG_T==*__LONG_T2))&(-(*__LONG_TSIZE==*__LONG_T2SIZE)))||new_error){ +if(qbevent){evnt(7698);if(r)goto S_9431;} +do{ +goto LABEL_SHRFOUND; +if(!qbevent)break;evnt(7698);}while(r); +} +} +}else{ +S_9436:; +if ((*(int32*)(((char*)__UDT_ID)+(536)))||new_error){ +if(qbevent){evnt(7704);if(r)goto S_9436;} +S_9437:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_T->len== 0 )))||new_error){ +if(qbevent){evnt(7705);if(r)goto S_9437;} +do{ +goto LABEL_SHRFOUND; +if(!qbevent)break;evnt(7705);}while(r); +} +do{ +*__LONG_T2=*(int32*)(((char*)__UDT_ID)+(536)); +if(!qbevent)break;evnt(7706);}while(r); +do{ +*__LONG_T2SIZE=*(int32*)(((char*)__UDT_ID)+(540)); +if(!qbevent)break;evnt(7706);}while(r); +S_9442:; +if ((*__LONG_T2&*__LONG_ISINCONVENTIONALMEMORY)||new_error){ +if(qbevent){evnt(7707);if(r)goto S_9442;} +do{ +*__LONG_T2=*__LONG_T2-*__LONG_ISINCONVENTIONALMEMORY; +if(!qbevent)break;evnt(7707);}while(r); +} +S_9445:; +if ((*__LONG_T2&*__LONG_ISPOINTER)||new_error){ +if(qbevent){evnt(7708);if(r)goto S_9445;} +do{ +*__LONG_T2=*__LONG_T2-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(7708);}while(r); +} +S_9448:; +if ((*__LONG_T2&*__LONG_ISREFERENCE)||new_error){ +if(qbevent){evnt(7709);if(r)goto S_9448;} +do{ +*__LONG_T2=*__LONG_T2-*__LONG_ISREFERENCE; +if(!qbevent)break;evnt(7709);}while(r); +} +S_9451:; +if (( 0 )||new_error){ +if(qbevent){evnt(7711);if(r)goto S_9451;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip1088; +sub_file_print(tmp_fileno,qbs_new_txt_len("SHARED:comparing:",17), 0, 0, 0); +if (new_error) goto skip1088; +sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_T)), 1, 0, 0); +if (new_error) goto skip1088; +sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_T2)), 1, 1, 0); +if (new_error) goto skip1088; +sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_TSIZE)), 1, 0, 0); +if (new_error) goto skip1088; +sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_T2SIZE)), 1, 0, 1); +if (new_error) goto skip1088; +skip1088: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(7711);}while(r); +} +S_9454:; +if (((-(*__LONG_T==*__LONG_T2))&(-(*__LONG_TSIZE==*__LONG_T2SIZE)))||new_error){ +if(qbevent){evnt(7713);if(r)goto S_9454;} +do{ +goto LABEL_SHRFOUND; +if(!qbevent)break;evnt(7713);}while(r); +} +} +} +S_9459:; +if ((-(*__LONG_TRY== 2 ))||new_error){ +if(qbevent){evnt(7718);if(r)goto S_9459;} +do{ +*__INTEGER_FINDANOTHERID= 1 ; +if(!qbevent)break;evnt(7718);}while(r); +do{ +*__LONG_TRY=FUNC_FINDID(__STRING_N2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7718);}while(r); +}else{ +do{ +*__LONG_TRY= 0 ; +if(!qbevent)break;evnt(7718);}while(r); +} +S_9465:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(7719);if(r)goto S_9465;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7719);}while(r); +} +dl_continue_1085:; +} +dl_exit_1085:; +S_9469:; +if ((*__LONG_A)||new_error){ +if(qbevent){evnt(7722);if(r)goto S_9469;} +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(7722);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7722);}while(r); +} +S_9473:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_S->len))||new_error){ +if(qbevent){evnt(7724);if(r)goto S_9473;} +do{ +qbs_set(__STRING_TYP,__STRING_S); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7724);}while(r); +}else{ +do{ +qbs_set(__STRING_TYP,__STRING_T); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7724);}while(r); +} +S_9478:; +if ((*__BYTE_OPTIONEXPLICIT)||new_error){ +if(qbevent){evnt(7725);if(r)goto S_9478;} +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(7725);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7725);}while(r); +} +do{ +*__BYTE_BYPASSNEXTVARIABLE= -1 ; +if(!qbevent)break;evnt(7726);}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(7727);}while(r); +do{ +SUB_MANAGEVARIABLELIST(qbs_new_txt_len("",0),__STRING_VWATCHNEWVARIABLE,&(pass1090= 0 ),&(pass1091= 2 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7728);}while(r); +S_9485:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(7729);if(r)goto S_9485;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7729);}while(r); +} +LABEL_SHRFOUND:; +if(qbevent){evnt(7732);r=0;} +S_9488:; +if ((-(*__LONG_NEWSHAREDSYNTAX== 0 ))||new_error){ +if(qbevent){evnt(7733);if(r)goto S_9488;} +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(7734);}while(r); +}else{ +S_9491:; +if ((-(*__LONG_SHAREDASLAYOUTADDED== 0 ))||new_error){ +if(qbevent){evnt(7736);if(r)goto S_9491;} +do{ +*__LONG_SHAREDASLAYOUTADDED= -1 ; +if(!qbevent)break;evnt(7737);}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(7738);}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(7740);}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(7744);}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(7747);}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(7747);}while(r); +S_9501:; +if (((-(*__LONG_LMAY!= 0 ))|(-(*__LONG_LMUST!= 0 )))||new_error){ +if(qbevent){evnt(7748);if(r)goto S_9501;} +S_9502:; +if ((((-(*__LONG_METHOD== 1 ))&(-(*__LONG_LMUST== 0 )))|((-(*__LONG_METHOD== 0 ))&(-(*__LONG_LMAY== 0 ))))||new_error){ +if(qbevent){evnt(7749);if(r)goto S_9502;} +do{ +*__LONG_REVERTMAYMUSTHAVEN=*__LONG_REVERTMAYMUSTHAVEN+ 1 ; +if(!qbevent)break;evnt(7750);}while(r); +do{ +tmp_long=array_check((*__LONG_REVERTMAYMUSTHAVEN)-__ARRAY_LONG_REVERTMAYMUSTHAVE[4],__ARRAY_LONG_REVERTMAYMUSTHAVE[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_REVERTMAYMUSTHAVE[0]))[tmp_long]=*__LONG_CURRENTID; +if(!qbevent)break;evnt(7751);}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(7752);}while(r); +} +} +do{ +qbs_set(__STRING_SUBFUNC,__STRING_OLDSUBFUNC); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7757);}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)),FUNC_STR2(__LONG_SUBFUNCN)),qbs_new_txt_len(".txt",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7758);}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)),FUNC_STR2(__LONG_SUBFUNCN)),qbs_new_txt_len(".txt",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7759);}while(r); +do{ +*__INTEGER_DEFDATAHANDLE=*__LONG_DATATXTBUF; +if(!qbevent)break;evnt(7760);}while(r); +S_9512:; +if ((*__LONG_NEWSHAREDSYNTAX)||new_error){ +if(qbevent){evnt(7762);if(r)goto S_9512;} +do{ +#include "ret0.txt" +if(!qbevent)break;evnt(7762);}while(r); +} +S_9515:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,__LONG_I),qbs_new_txt_len(",",1))))||new_error){ +if(qbevent){evnt(7764);if(r)goto S_9515;} +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(7764);}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(7764);}while(r); +do{ +goto LABEL_SUBFUNCSHR; +if(!qbevent)break;evnt(7764);}while(r); +} +S_9520:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,__LONG_I),qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(7765);if(r)goto S_9520;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected ,",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7765);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7765);}while(r); +} +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(7767);}while(r); +S_9525:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(7767);if(r)goto S_9525;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7767);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7767);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(7768);}while(r); +}else{ +do{ +*__LONG_I=*__LONG_I- 1 ; +if(!qbevent)break;evnt(7771);}while(r); +do{ +qbs_set(__STRING_T,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7774);}while(r); +do{ +qbs_set(__STRING_TS,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7775);}while(r); +do{ +qbs_set(__STRING_T3,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7776);}while(r); +do{ +qbs_set(__STRING_N,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7777);}while(r); +do{ +qbs_set(__STRING_PREVIOUSELEMENT,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7778);}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(7779);}while(r); +do{ +*__LONG_SHAREDASLAYOUTADDED= 0 ; +if(!qbevent)break;evnt(7780);}while(r); +LABEL_GETSHRTYP2:; +if(qbevent){evnt(7781);r=0;} +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(7782);}while(r); +do{ +qbs_set(__STRING_T2,FUNC_GETELEMENT(__STRING_A,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7783);}while(r); +S_9542:; +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)))))||new_error){ +if(qbevent){evnt(7784);if(r)goto S_9542;} +do{ +qbs_set(__STRING_N,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7786);}while(r); +S_9544:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_PREVIOUSELEMENT->len))||new_error){ +if(qbevent){evnt(7788);if(r)goto S_9544;} +S_9545:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(7789);if(r)goto S_9545;} +do{ +qbs_set(__STRING_T,__STRING_PREVIOUSELEMENT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7789);}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(7789);}while(r); +} +S_9550:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T3,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(7790);if(r)goto S_9550;} +do{ +qbs_set(__STRING_T3,__STRING_PREVIOUSELEMENT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7790);}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(7790);}while(r); +} +} +do{ +qbs_set(__STRING_PREVIOUSELEMENT,__STRING_T2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7792);}while(r); +do{ +goto LABEL_GETSHRTYP2; +if(!qbevent)break;evnt(7793);}while(r); +} +S_9559:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_T,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(7795);if(r)goto S_9559;} +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(7795);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7795);}while(r); +} +do{ +*__LONG_T=FUNC_TYPNAME2TYP(__STRING_T); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7797);}while(r); +S_9564:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(7798);if(r)goto S_9564;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7798);}while(r); +} +S_9567:; +if ((*__LONG_T&*__LONG_ISINCONVENTIONALMEMORY)||new_error){ +if(qbevent){evnt(7799);if(r)goto S_9567;} +do{ +*__LONG_T=*__LONG_T-*__LONG_ISINCONVENTIONALMEMORY; +if(!qbevent)break;evnt(7799);}while(r); +} +S_9570:; +if ((*__LONG_T&*__LONG_ISPOINTER)||new_error){ +if(qbevent){evnt(7800);if(r)goto S_9570;} +do{ +*__LONG_T=*__LONG_T-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(7800);}while(r); +} +S_9573:; +if ((*__LONG_T&*__LONG_ISREFERENCE)||new_error){ +if(qbevent){evnt(7801);if(r)goto S_9573;} +do{ +*__LONG_T=*__LONG_T-*__LONG_ISREFERENCE; +if(!qbevent)break;evnt(7801);}while(r); +} +do{ +*__LONG_TSIZE=*__LONG_TYPNAME2TYPSIZE; +if(!qbevent)break;evnt(7802);}while(r); +do{ +*__LONG_METHOD= 0 ; +if(!qbevent)break;evnt(7803);}while(r); +S_9578:; +if ((-((*__LONG_T&*__LONG_ISUDT)== 0 ))||new_error){ +if(qbevent){evnt(7804);if(r)goto S_9578;} +do{ +qbs_set(__STRING_TS,FUNC_TYPE2SYMBOL(__STRING_T)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7805);}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(7806);}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(7808);}while(r); +S_9583:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(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_new_txt_len("_MEM",4)))&(qbs_equal(qbs_ucase(__STRING_T),qbs_new_txt_len("MEM",3)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))||new_error){ +if(qbevent){evnt(7809);if(r)goto S_9583;} +do{ +qbs_set(__STRING_T3,func_mid(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)), 2 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7810);}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(7812);}while(r); +} +S_9588:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(7814);if(r)goto S_9588;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7814);}while(r); +} +LABEL_SUBFUNCSHR2:; +if(qbevent){evnt(7816);r=0;} +do{ +qbs_set(__STRING_S,FUNC_REMOVESYMBOL(__STRING_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7817);}while(r); +S_9592:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(7818);if(r)goto S_9592;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7818);}while(r); +} +S_9595:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_S,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(7819);if(r)goto S_9595;} +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(7820);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7821);}while(r); +} +do{ +*__LONG_A= 0 ; +if(!qbevent)break;evnt(7825);}while(r); +do{ +qbs_set(__STRING_L3,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7826);}while(r); +S_9601:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,__LONG_I),qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(7827);if(r)goto S_9601;} +S_9602:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,&(pass1094=*__LONG_I+ 1 )),qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(7828);if(r)goto S_9602;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected ()",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7828);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7828);}while(r); +} +do{ +*__LONG_I=*__LONG_I+ 2 ; +if(!qbevent)break;evnt(7829);}while(r); +do{ +*__LONG_A= 1 ; +if(!qbevent)break;evnt(7830);}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(7831);}while(r); +} +do{ +*__LONG_NEWSHAREDSYNTAX= -1 ; +if(!qbevent)break;evnt(7834);}while(r); +do{ +return_point[next_return_point++]=4; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_NORMALSHAREDBLOCK; +RETURN_4:; +if(!qbevent)break;evnt(7835);}while(r); +do{ +*__LONG_NEWSHAREDSYNTAX= 0 ; +if(!qbevent)break;evnt(7836);}while(r); +S_9613:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,__LONG_I),qbs_new_txt_len(",",1))))||new_error){ +if(qbevent){evnt(7838);if(r)goto S_9613;} +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(7839);}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(7840);}while(r); +do{ +qbs_set(__STRING_N,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7843);}while(r); +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(7843);}while(r); +do{ +goto LABEL_SUBFUNCSHR2; +if(!qbevent)break;evnt(7844);}while(r); +} +S_9620:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,__LONG_I),qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(7846);if(r)goto S_9620;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected ,",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7846);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7846);}while(r); +} +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(7848);}while(r); +S_9625:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(7848);if(r)goto S_9625;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7848);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7848);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(7849);}while(r); +} +} +} +S_9634:; +if ((-(*__LONG_N== 2 ))||new_error){ +if(qbevent){evnt(7855);if(r)goto S_9634;} +S_9635:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("EXIT",4))))||new_error){ +if(qbevent){evnt(7856);if(r)goto S_9635;} +do{ +*__LONG_SF= 0 ; +if(!qbevent)break;evnt(7857);}while(r); +S_9637:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("FUNCTION",8))))||new_error){ +if(qbevent){evnt(7858);if(r)goto S_9637;} +do{ +*__LONG_SF= 1 ; +if(!qbevent)break;evnt(7858);}while(r); +} +S_9640:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("SUB",3))))||new_error){ +if(qbevent){evnt(7859);if(r)goto S_9640;} +do{ +*__LONG_SF= 2 ; +if(!qbevent)break;evnt(7859);}while(r); +} +S_9643:; +if ((*__LONG_SF)||new_error){ +if(qbevent){evnt(7860);if(r)goto S_9643;} +S_9644:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_SUBFUNC->len== 0 )))||new_error){ +if(qbevent){evnt(7862);if(r)goto S_9644;} +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(7862);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7862);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass1097=*__LONG_MAINTXTBUF),qbs_new_txt_len("goto exit_subfunc;",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7864);}while(r); +S_9649:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_SUBFUNC, 4 ),qbs_new_txt_len("SUB_",4))))||new_error){ +if(qbevent){evnt(7865);if(r)goto S_9649;} +do{ +qbs_set(__STRING_SECONDELEMENT,FUNC_SCASE(qbs_new_txt_len("Sub",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7865);}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(7865);}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(7866);}while(r); +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(7867);}while(r); +S_9656:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(7867);if(r)goto S_9656;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7867);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7867);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(7868);}while(r); +} +} +} +S_9665:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_ECHO",5)))|(((qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("ECHO",4)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ +if(qbevent){evnt(7875);if(r)goto S_9665;} +S_9666:; +if ((-(*__LONG_CONSOLE== 0 ))||new_error){ +if(qbevent){evnt(7876);if(r)goto S_9666;} +do{ +qbs_set(__STRING_A,qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ECHO requires $CONSOLE or $CONSOLE:ONLY to be set first",55))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7877);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7877);}while(r); +} +} +S_9671:; +if ((-(*__LONG_N>= 1 ))||new_error){ +if(qbevent){evnt(7883);if(r)goto S_9671;} +S_9672:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("ASC",3))))||new_error){ +if(qbevent){evnt(7884);if(r)goto S_9672;} +S_9673:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,&(pass1099= 2 )),qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(7885);if(r)goto S_9673;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected ( after ASC",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7885);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7885);}while(r); +} +do{ +*__LONG_USEPOSITION= 0 ; +if(!qbevent)break;evnt(7888);}while(r); +do{ +*__LONG_PART= 1 ; +if(!qbevent)break;evnt(7889);}while(r); +do{ +*__LONG_I= 3 ; +if(!qbevent)break;evnt(7890);}while(r); +do{ +qbs_set(__STRING_A3,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7891);}while(r); +do{ +qbs_set(__STRING_STRINGVARIABLE,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7892);}while(r); +do{ +qbs_set(__STRING_POSITION,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7893);}while(r); +do{ +*__LONG_B= 0 ; +if(!qbevent)break;evnt(7894);}while(r); +S_9684:; +do{ +if(qbevent){evnt(7895);if(r)goto S_9684;} +S_9685:; +if ((-(*__LONG_I>*__LONG_N))||new_error){ +if(qbevent){evnt(7897);if(r)goto S_9685;} +S_9686:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_PART!= 3 ))|(-(__STRING_A3->len== 0 ))))||new_error){ +if(qbevent){evnt(7898);if(r)goto S_9686;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected ASC ( ... , ... ) = ...",32)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7898);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7898);}while(r); +} +do{ +qbs_set(__STRING_EXPRESSION,__STRING_A3); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7899);}while(r); +do{ +goto dl_exit_1100; +if(!qbevent)break;evnt(7900);}while(r); +} +do{ +qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7903);}while(r); +S_9694:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(7904);if(r)goto S_9694;} +do{ +*__LONG_B=*__LONG_B+ 1 ; +if(!qbevent)break;evnt(7904);}while(r); +} +S_9697:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(7905);if(r)goto S_9697;} +do{ +*__LONG_B=*__LONG_B- 1 ; +if(!qbevent)break;evnt(7905);}while(r); +} +S_9700:; +if ((-(*__LONG_B== -1 ))||new_error){ +if(qbevent){evnt(7907);if(r)goto S_9700;} +S_9701:; +if ((-(*__LONG_PART== 1 ))||new_error){ +if(qbevent){evnt(7909);if(r)goto S_9701;} +S_9702:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,&(pass1102=*__LONG_I+ 1 )),qbs_new_txt_len("=",1))))||new_error){ +if(qbevent){evnt(7910);if(r)goto S_9702;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected =",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7910);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7910);}while(r); +} +do{ +qbs_set(__STRING_STRINGVARIABLE,__STRING_A3); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7911);}while(r); +do{ +qbs_set(__STRING_POSITION,qbs_new_txt_len("1",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7912);}while(r); +do{ +*__LONG_PART= 3 ; +if(!qbevent)break;evnt(7913);}while(r); +do{ +qbs_set(__STRING_A3,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7913);}while(r); +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(7913);}while(r); +do{ +goto LABEL_ASCGOTPART; +if(!qbevent)break;evnt(7913);}while(r); +} +S_9713:; +if ((-(*__LONG_PART== 2 ))||new_error){ +if(qbevent){evnt(7916);if(r)goto S_9713;} +S_9714:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,&(pass1103=*__LONG_I+ 1 )),qbs_new_txt_len("=",1))))||new_error){ +if(qbevent){evnt(7917);if(r)goto S_9714;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected =",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7917);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7917);}while(r); +} +do{ +*__LONG_USEPOSITION= 1 ; +if(!qbevent)break;evnt(7918);}while(r); +do{ +qbs_set(__STRING_POSITION,__STRING_A3); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7919);}while(r); +do{ +*__LONG_PART= 3 ; +if(!qbevent)break;evnt(7920);}while(r); +do{ +qbs_set(__STRING_A3,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7920);}while(r); +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(7920);}while(r); +do{ +goto LABEL_ASCGOTPART; +if(!qbevent)break;evnt(7920);}while(r); +} +} +S_9726:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_A2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||new_error){ +if(qbevent){evnt(7927);if(r)goto S_9726;} +S_9727:; +if ((-(*__LONG_PART== 1 ))||new_error){ +if(qbevent){evnt(7928);if(r)goto S_9727;} +do{ +qbs_set(__STRING_STRINGVARIABLE,__STRING_A3); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7928);}while(r); +do{ +*__LONG_PART= 2 ; +if(!qbevent)break;evnt(7928);}while(r); +do{ +qbs_set(__STRING_A3,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7928);}while(r); +do{ +goto LABEL_ASCGOTPART; +if(!qbevent)break;evnt(7928);}while(r); +} +} +S_9734:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_A3->len))||new_error){ +if(qbevent){evnt(7931);if(r)goto S_9734;} +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(7931);}while(r); +}else{ +do{ +qbs_set(__STRING_A3,__STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7931);}while(r); +} +LABEL_ASCGOTPART:; +if(qbevent){evnt(7932);r=0;} +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(7933);}while(r); +dl_continue_1100:; +}while(1); +dl_exit_1100:; +S_9741:; +if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_STRINGVARIABLE->len== 0 ))|(-(__STRING_POSITION->len== 0 ))))||new_error){ +if(qbevent){evnt(7935);if(r)goto S_9741;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected ASC ( ... , ... ) = ...",32)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7935);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7935);}while(r); +} +do{ +qbs_set(__STRING_STRINGVARIABLE,FUNC_FIXOPERATIONORDER(__STRING_STRINGVARIABLE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7938);}while(r); +S_9746:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(7939);if(r)goto S_9746;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7939);}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(7940);}while(r); +do{ +qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_STRINGVARIABLE,__LONG_SOURCETYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7942);}while(r); +S_9751:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(7943);if(r)goto S_9751;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7943);}while(r); +} +S_9754:; +if (((-((*__LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))|(-((*__LONG_SOURCETYP&*__LONG_ISSTRING)== 0 )))||new_error){ +if(qbevent){evnt(7944);if(r)goto S_9754;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected ASC ( string-variable , ...",36)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7944);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7944);}while(r); +} +do{ +qbs_set(__STRING_STRINGVARIABLE,FUNC_EVALUATETOTYP(__STRING_STRINGVARIABLE,__LONG_ISSTRING)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7945);}while(r); +S_9759:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(7946);if(r)goto S_9759;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7946);}while(r); +} +S_9762:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_POSITION,qbs_new_txt_len("1",1))))||new_error){ +if(qbevent){evnt(7950);if(r)goto S_9762;} +S_9763:; +if ((*__LONG_USEPOSITION)||new_error){ +if(qbevent){evnt(7951);if(r)goto S_9763;} +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(7951);}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(7951);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass1107=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("tqbs=",5),__STRING_STRINGVARIABLE),qbs_new_txt_len("; if (!new_error){",18))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7953);}while(r); +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_EXPRESSION)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7954);}while(r); +S_9770:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(7955);if(r)goto S_9770;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7955);}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(7956);}while(r); +do{ +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1108= 32 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7957);}while(r); +S_9775:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(7958);if(r)goto S_9775;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7958);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass1109=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("tmp_long=",9),__STRING_E),qbs_new_txt_len("; if (!new_error){",18))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7959);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1110=*__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(7960);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1111=*__LONG_MAINTXTBUF),qbs_new_txt_len("}}",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7961);}while(r); +}else{ +do{ +SUB_WRITEBUFLINE(&(pass1112=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("tqbs=",5),__STRING_STRINGVARIABLE),qbs_new_txt_len("; if (!new_error){",18))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7965);}while(r); +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_POSITION)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7966);}while(r); +S_9784:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(7967);if(r)goto S_9784;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7967);}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(7968);}while(r); +do{ +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1113= 32 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7969);}while(r); +S_9789:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(7970);if(r)goto S_9789;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7970);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass1114=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("tmp_fileno=",11),__STRING_E),qbs_new_txt_len("; if (!new_error){",18))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7971);}while(r); +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_EXPRESSION)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7972);}while(r); +S_9794:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(7973);if(r)goto S_9794;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7973);}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(7974);}while(r); +do{ +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1115= 32 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7975);}while(r); +S_9799:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(7976);if(r)goto S_9799;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7976);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass1116=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("tmp_long=",9),__STRING_E),qbs_new_txt_len("; if (!new_error){",18))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7977);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1117=*__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(7978);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1118=*__LONG_MAINTXTBUF),qbs_new_txt_len("}}}",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7979);}while(r); +} +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(7982);}while(r); +S_9807:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(7982);if(r)goto S_9807;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7982);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7982);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(7983);}while(r); +} +} +S_9815:; +if ((-(*__LONG_N>= 1 ))||new_error){ +if(qbevent){evnt(7991);if(r)goto S_9815;} +S_9816:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("MID$",4))))||new_error){ +if(qbevent){evnt(7992);if(r)goto S_9816;} +S_9817:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,&(pass1120= 2 )),qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(7993);if(r)goto S_9817;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected ( after MID$",21)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7993);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(7993);}while(r); +} +do{ +qbs_set(__STRING_LENGTH,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7995);}while(r); +do{ +*__LONG_PART= 1 ; +if(!qbevent)break;evnt(7996);}while(r); +do{ +*__LONG_I= 3 ; +if(!qbevent)break;evnt(7997);}while(r); +do{ +qbs_set(__STRING_A3,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7998);}while(r); +do{ +qbs_set(__STRING_STRINGVARIABLE,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(7999);}while(r); +do{ +qbs_set(__STRING_START,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8000);}while(r); +do{ +*__LONG_B= 0 ; +if(!qbevent)break;evnt(8001);}while(r); +S_9828:; +do{ +if(qbevent){evnt(8002);if(r)goto S_9828;} +S_9829:; +if ((-(*__LONG_I>*__LONG_N))||new_error){ +if(qbevent){evnt(8003);if(r)goto S_9829;} +S_9830:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_PART!= 4 ))|(qbs_equal(__STRING_A3,qbs_new_txt_len("",0)))))||new_error){ +if(qbevent){evnt(8004);if(r)goto S_9830;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected MID$(...)=...",22)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8004);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8004);}while(r); +} +do{ +qbs_set(__STRING_STRINGEXPRESSION,__STRING_A3); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8005);}while(r); +do{ +goto dl_exit_1121; +if(!qbevent)break;evnt(8006);}while(r); +} +do{ +qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8008);}while(r); +S_9838:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(8009);if(r)goto S_9838;} +do{ +*__LONG_B=*__LONG_B+ 1 ; +if(!qbevent)break;evnt(8009);}while(r); +} +S_9841:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(8010);if(r)goto S_9841;} +do{ +*__LONG_B=*__LONG_B- 1 ; +if(!qbevent)break;evnt(8010);}while(r); +} +S_9844:; +if ((-(*__LONG_B== -1 ))||new_error){ +if(qbevent){evnt(8011);if(r)goto S_9844;} +S_9845:; +if ((-(*__LONG_PART== 2 ))||new_error){ +if(qbevent){evnt(8012);if(r)goto S_9845;} +S_9846:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,&(pass1122=*__LONG_I+ 1 )),qbs_new_txt_len("=",1))))||new_error){ +if(qbevent){evnt(8013);if(r)goto S_9846;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected = after )",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8013);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8013);}while(r); +} +do{ +qbs_set(__STRING_START,__STRING_A3); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8014);}while(r); +do{ +*__LONG_PART= 4 ; +if(!qbevent)break;evnt(8014);}while(r); +do{ +qbs_set(__STRING_A3,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8014);}while(r); +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(8014);}while(r); +do{ +goto LABEL_MIDGOTPART; +if(!qbevent)break;evnt(8014);}while(r); +} +S_9856:; +if ((-(*__LONG_PART== 3 ))||new_error){ +if(qbevent){evnt(8016);if(r)goto S_9856;} +S_9857:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(__STRING_A,&(pass1123=*__LONG_I+ 1 )),qbs_new_txt_len("=",1))))||new_error){ +if(qbevent){evnt(8017);if(r)goto S_9857;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected = after )",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8017);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8017);}while(r); +} +S_9861:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(8018);if(r)goto S_9861;} +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(8018);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8018);}while(r); +} +do{ +qbs_set(__STRING_LENGTH,__STRING_A3); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8019);}while(r); +do{ +*__LONG_PART= 4 ; +if(!qbevent)break;evnt(8019);}while(r); +do{ +qbs_set(__STRING_A3,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8019);}while(r); +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(8019);}while(r); +do{ +goto LABEL_MIDGOTPART; +if(!qbevent)break;evnt(8019);}while(r); +} +} +S_9872:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_A2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||new_error){ +if(qbevent){evnt(8022);if(r)goto S_9872;} +S_9873:; +if ((-(*__LONG_PART== 1 ))||new_error){ +if(qbevent){evnt(8023);if(r)goto S_9873;} +do{ +qbs_set(__STRING_STRINGVARIABLE,__STRING_A3); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8023);}while(r); +do{ +*__LONG_PART= 2 ; +if(!qbevent)break;evnt(8023);}while(r); +do{ +qbs_set(__STRING_A3,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8023);}while(r); +do{ +goto LABEL_MIDGOTPART; +if(!qbevent)break;evnt(8023);}while(r); +} +S_9879:; +if ((-(*__LONG_PART== 2 ))||new_error){ +if(qbevent){evnt(8024);if(r)goto S_9879;} +do{ +qbs_set(__STRING_START,__STRING_A3); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8024);}while(r); +do{ +*__LONG_PART= 3 ; +if(!qbevent)break;evnt(8024);}while(r); +do{ +qbs_set(__STRING_A3,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8024);}while(r); +do{ +goto LABEL_MIDGOTPART; +if(!qbevent)break;evnt(8024);}while(r); +} +} +S_9886:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_A3->len))||new_error){ +if(qbevent){evnt(8026);if(r)goto S_9886;} +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(8026);}while(r); +}else{ +do{ +qbs_set(__STRING_A3,__STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8026);}while(r); +} +LABEL_MIDGOTPART:; +if(qbevent){evnt(8027);r=0;} +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(8028);}while(r); +dl_continue_1121:; +}while(1); +dl_exit_1121:; +S_9893:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_STRINGVARIABLE,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(8030);if(r)goto S_9893;} +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(8030);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8030);}while(r); +} +S_9897:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_START,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(8031);if(r)goto S_9897;} +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(8031);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8031);}while(r); +} +do{ +qbs_set(__STRING_STRINGVARIABLE,FUNC_FIXOPERATIONORDER(__STRING_STRINGVARIABLE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8033);}while(r); +S_9902:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(8034);if(r)goto S_9902;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8034);}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(8035);}while(r); +do{ +qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_STRINGVARIABLE,__LONG_SOURCETYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8036);}while(r); +S_9907:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(8037);if(r)goto S_9907;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8037);}while(r); +} +S_9910:; +if (((-((*__LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))|(-((*__LONG_SOURCETYP&*__LONG_ISSTRING)== 0 )))||new_error){ +if(qbevent){evnt(8038);if(r)goto S_9910;} +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(8038);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8038);}while(r); +} +do{ +qbs_set(__STRING_STRINGVARIABLE,FUNC_EVALUATETOTYP(__STRING_STRINGVARIABLE,__LONG_ISSTRING)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8039);}while(r); +S_9915:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(8040);if(r)goto S_9915;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8040);}while(r); +} +do{ +qbs_set(__STRING_START,FUNC_FIXOPERATIONORDER(__STRING_START)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8042);}while(r); +S_9919:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(8043);if(r)goto S_9919;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8043);}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(8044);}while(r); +do{ +qbs_set(__STRING_START,FUNC_EVALUATETOTYP(__STRING_START,&(pass1125= 32 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8045);}while(r); +do{ +qbs_set(__STRING_STRINGEXPRESSION,FUNC_FIXOPERATIONORDER(__STRING_STRINGEXPRESSION)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8047);}while(r); +S_9925:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(8048);if(r)goto S_9925;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8048);}while(r); +} +do{ +qbs_set(__STRING_L2,__STRING_TLAYOUT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8049);}while(r); +do{ +qbs_set(__STRING_STRINGEXPRESSION,FUNC_EVALUATETOTYP(__STRING_STRINGEXPRESSION,__LONG_ISSTRING)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8050);}while(r); +S_9930:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(8051);if(r)goto S_9930;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8051);}while(r); +} +S_9933:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LENGTH->len))||new_error){ +if(qbevent){evnt(8053);if(r)goto S_9933;} +do{ +qbs_set(__STRING_LENGTH,FUNC_FIXOPERATIONORDER(__STRING_LENGTH)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8054);}while(r); +S_9935:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(8055);if(r)goto S_9935;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8055);}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(8056);}while(r); +do{ +qbs_set(__STRING_LENGTH,FUNC_EVALUATETOTYP(__STRING_LENGTH,&(pass1127= 32 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8057);}while(r); +S_9940:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(8058);if(r)goto S_9940;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8058);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass1128=*__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(8059);}while(r); +}else{ +do{ +SUB_WRITEBUFLINE(&(pass1129=*__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(8061);}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(8064);}while(r); +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(8065);}while(r); +S_9949:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(8065);if(r)goto S_9949;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8065);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8065);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(8066);}while(r); +} +} +S_9957:; +if ((-(*__LONG_N>= 2 ))||new_error){ +if(qbevent){evnt(8071);if(r)goto S_9957;} +S_9958:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("ERASE",5))))||new_error){ +if(qbevent){evnt(8072);if(r)goto S_9958;} +do{ +*__LONG_I= 2 ; +if(!qbevent)break;evnt(8073);}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(8074);}while(r); +LABEL_ERASENEXTARRAY:; +if(qbevent){evnt(8075);r=0;} +do{ +qbs_set(__STRING_VAR,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8076);}while(r); +do{ +qbs_set(__STRING_X,__STRING_VAR); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8077);}while(r); +do{ +qbs_set(__STRING_LS,FUNC_REMOVESYMBOL(__STRING_X)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8077);}while(r); +S_9964:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(8078);if(r)goto S_9964;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8078);}while(r); +} +S_9967:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_FINDARRAY(__STRING_VAR)))||new_error){ +if(qbevent){evnt(8080);if(r)goto S_9967;} +S_9968:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(8081);if(r)goto S_9968;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8081);}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(8082);}while(r); +LABEL_CLEARERASE:; +if(qbevent){evnt(8084);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(8085);}while(r); +do{ +qbs_set(__STRING_BYTESPERELEMENT,FUNC_STR2(&(pass1131=(*(int32*)(((char*)__UDT_ID)+(512))& 511 )/ 8 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8086);}while(r); +S_9974:; +if ((*(int32*)(((char*)__UDT_ID)+(512))&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(8087);if(r)goto S_9974;} +do{ +qbs_set(__STRING_BYTESPERELEMENT,FUNC_STR2((int32*)(void*)( ((char*)(__UDT_ID)) + (540) ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8087);}while(r); +} +S_9977:; +if ((*(int32*)(((char*)__UDT_ID)+(512))&*__LONG_ISOFFSETINBITS)||new_error){ +if(qbevent){evnt(8088);if(r)goto S_9977;} +do{ +qbs_set(__STRING_BYTESPERELEMENT,qbs_add(FUNC_STR2(&(pass1132=(*(int32*)(((char*)__UDT_ID)+(512))& 511 ))),qbs_new_txt_len("/8+1",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8088);}while(r); +} +S_9980:; +if ((*(int32*)(((char*)__UDT_ID)+(512))&*__LONG_ISUDT)||new_error){ +if(qbevent){evnt(8089);if(r)goto S_9980;} +do{ +qbs_set(__STRING_BYTESPERELEMENT,FUNC_STR2(&(pass1133=((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*(int32*)(((char*)__UDT_ID)+(512))& 511 )-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])]/ 8 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8090);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass1134=*__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(8092);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1135=*__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(8093);}while(r); +S_9985:; +if (((-((*(int32*)(((char*)__UDT_ID)+(512))&*__LONG_ISSTRING)!= 0 ))&(-((*(int32*)(((char*)__UDT_ID)+(512))&*__LONG_ISFIXEDLENGTH)== 0 )))||new_error){ +if(qbevent){evnt(8094);if(r)goto S_9985;} +do{ +SUB_WRITEBUFRAWDATA(&(pass1136=*__LONG_MAINTXTBUF),qbs_new_txt_len("tmp_long=",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8095);}while(r); +S_9987:; +fornext_value1138= 1 ; +fornext_finalvalue1138=func_abs((int16)(*(int16*)(((char*)__UDT_ID)+(516)))); +fornext_step1138= 1 ; +if (fornext_step1138<0) fornext_step_negative1138=1; else fornext_step_negative1138=0; +if (new_error) goto fornext_error1138; +goto fornext_entrylabel1138; +while(1){ +fornext_value1138=fornext_step1138+(*__LONG_I2); +fornext_entrylabel1138: +*__LONG_I2=fornext_value1138; +if (fornext_step_negative1138){ +if (fornext_value1138fornext_finalvalue1138) break; +} +fornext_error1138:; +if(qbevent){evnt(8096);if(r)goto S_9987;} +S_9988:; +if ((-(*__LONG_I2!= 1 ))||new_error){ +if(qbevent){evnt(8097);if(r)goto S_9988;} +do{ +SUB_WRITEBUFRAWDATA(&(pass1139=*__LONG_MAINTXTBUF),qbs_new_txt_len("*",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8097);}while(r); +} +do{ +SUB_WRITEBUFRAWDATA(&(pass1140=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(__STRING_N,qbs_new_txt_len("[",1)),FUNC_STR2(&(pass1141=(*__LONG_I2* 4 )-( 4 )+( 5 )))),qbs_new_txt_len("]",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8098);}while(r); +fornext_continue_1137:; +} +fornext_exit_1137:; +do{ +SUB_WRITEBUFLINE(&(pass1142=*__LONG_MAINTXTBUF),qbs_new_txt_len(";",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8100);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1143=*__LONG_MAINTXTBUF),qbs_new_txt_len("while(tmp_long--){",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8101);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1144=*__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(8102);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1145=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8103);}while(r); +}else{ +do{ +SUB_WRITEBUFRAWDATA(&(pass1146=*__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(8107);}while(r); +S_9999:; +fornext_value1148= 1 ; +fornext_finalvalue1148=func_abs((int16)(*(int16*)(((char*)__UDT_ID)+(516)))); +fornext_step1148= 1 ; +if (fornext_step1148<0) fornext_step_negative1148=1; else fornext_step_negative1148=0; +if (new_error) goto fornext_error1148; +goto fornext_entrylabel1148; +while(1){ +fornext_value1148=fornext_step1148+(*__LONG_I2); +fornext_entrylabel1148: +*__LONG_I2=fornext_value1148; +if (fornext_step_negative1148){ +if (fornext_value1148fornext_finalvalue1148) break; +} +fornext_error1148:; +if(qbevent){evnt(8108);if(r)goto S_9999;} +S_10000:; +if ((-(*__LONG_I2!= 1 ))||new_error){ +if(qbevent){evnt(8109);if(r)goto S_10000;} +do{ +SUB_WRITEBUFRAWDATA(&(pass1149=*__LONG_MAINTXTBUF),qbs_new_txt_len("*",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8109);}while(r); +} +do{ +SUB_WRITEBUFRAWDATA(&(pass1150=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(__STRING_N,qbs_new_txt_len("[",1)),FUNC_STR2(&(pass1151=(*__LONG_I2* 4 )-( 4 )+( 5 )))),qbs_new_txt_len("]",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8110);}while(r); +fornext_continue_1147:; +} +fornext_exit_1147:; +do{ +SUB_WRITEBUFLINE(&(pass1152=*__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(8112);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass1153=*__LONG_MAINTXTBUF),qbs_new_txt_len("}else{",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8114);}while(r); +S_10008:; +if (((-((*(int32*)(((char*)__UDT_ID)+(512))&*__LONG_ISSTRING)!= 0 ))&(-((*(int32*)(((char*)__UDT_ID)+(512))&*__LONG_ISFIXEDLENGTH)== 0 )))||new_error){ +if(qbevent){evnt(8116);if(r)goto S_10008;} +do{ +SUB_WRITEBUFRAWDATA(&(pass1154=*__LONG_MAINTXTBUF),qbs_new_txt_len("tmp_long=",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8118);}while(r); +S_10010:; +fornext_value1156= 1 ; +fornext_finalvalue1156=func_abs((int16)(*(int16*)(((char*)__UDT_ID)+(516)))); +fornext_step1156= 1 ; +if (fornext_step1156<0) fornext_step_negative1156=1; else fornext_step_negative1156=0; +if (new_error) goto fornext_error1156; +goto fornext_entrylabel1156; +while(1){ +fornext_value1156=fornext_step1156+(*__LONG_I2); +fornext_entrylabel1156: +*__LONG_I2=fornext_value1156; +if (fornext_step_negative1156){ +if (fornext_value1156fornext_finalvalue1156) break; +} +fornext_error1156:; +if(qbevent){evnt(8119);if(r)goto S_10010;} +S_10011:; +if ((-(*__LONG_I2!= 1 ))||new_error){ +if(qbevent){evnt(8120);if(r)goto S_10011;} +do{ +SUB_WRITEBUFRAWDATA(&(pass1157=*__LONG_MAINTXTBUF),qbs_new_txt_len("*",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8120);}while(r); +} +do{ +SUB_WRITEBUFRAWDATA(&(pass1158=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(__STRING_N,qbs_new_txt_len("[",1)),FUNC_STR2(&(pass1159=(*__LONG_I2* 4 )-( 4 )+( 5 )))),qbs_new_txt_len("]",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8121);}while(r); +fornext_continue_1155:; +} +fornext_exit_1155:; +do{ +SUB_WRITEBUFLINE(&(pass1160=*__LONG_MAINTXTBUF),qbs_new_txt_len(";",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8123);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1161=*__LONG_MAINTXTBUF),qbs_new_txt_len("while(tmp_long--){",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8124);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1162=*__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(8125);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1163=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8126);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1164=*__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(8128);}while(r); +}else{ +do{ +SUB_WRITEBUFLINE(&(pass1165=*__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(8131);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1166=*__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(8132);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1167=*__LONG_MAINTXTBUF),qbs_new_txt_len("}else{",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8133);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1168=*__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(8134);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1169=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8135);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass1170=*__LONG_MAINTXTBUF),qbs_add(__STRING_N,qbs_new_txt_len("[2]^=1;",7))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8138);}while(r); +S_10029:; +fornext_value1172= 1 ; +fornext_finalvalue1172=func_abs((int16)(*(int16*)(((char*)__UDT_ID)+(516)))); +fornext_step1172= 1 ; +if (fornext_step1172<0) fornext_step_negative1172=1; else fornext_step_negative1172=0; +if (new_error) goto fornext_error1172; +goto fornext_entrylabel1172; +while(1){ +fornext_value1172=fornext_step1172+(*__LONG_I2); +fornext_entrylabel1172: +*__LONG_I2=fornext_value1172; +if (fornext_step_negative1172){ +if (fornext_value1172fornext_finalvalue1172) break; +} +fornext_error1172:; +if(qbevent){evnt(8140);if(r)goto S_10029;} +do{ +*__LONG_B=*__LONG_I2* 4 ; +if(!qbevent)break;evnt(8141);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1173=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(__STRING_N,qbs_new_txt_len("[",1)),FUNC_STR2(__LONG_B)),qbs_new_txt_len("]=2147483647;",13))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8142);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1174=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(__STRING_N,qbs_new_txt_len("[",1)),FUNC_STR2(&(pass1175=*__LONG_B+ 1 ))),qbs_new_txt_len("]=0;",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8143);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1176=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(__STRING_N,qbs_new_txt_len("[",1)),FUNC_STR2(&(pass1177=*__LONG_B+ 2 ))),qbs_new_txt_len("]=0;",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8144);}while(r); +fornext_continue_1171:; +} +fornext_exit_1171:; +S_10035:; +if (((-((*(int32*)(((char*)__UDT_ID)+(512))&*__LONG_ISSTRING)!= 0 ))&(-((*(int32*)(((char*)__UDT_ID)+(512))&*__LONG_ISFIXEDLENGTH)== 0 )))||new_error){ +if(qbevent){evnt(8146);if(r)goto S_10035;} +do{ +SUB_WRITEBUFLINE(&(pass1178=*__LONG_MAINTXTBUF),qbs_add(__STRING_N,qbs_new_txt_len("[0]=(ptrszint)¬hingstring;",29))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8147);}while(r); +}else{ +do{ +SUB_WRITEBUFLINE(&(pass1179=*__LONG_MAINTXTBUF),qbs_add(__STRING_N,qbs_new_txt_len("[0]=(ptrszint)nothingvalue;",27))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8149);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass1180=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8151);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1181=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8152);}while(r); +S_10042:; +if ((-(*__LONG_CLEARERASERETURN== 1 ))||new_error){ +if(qbevent){evnt(8153);if(r)goto S_10042;} +do{ +*__LONG_CLEARERASERETURN= 0 ; +if(!qbevent)break;evnt(8153);}while(r); +do{ +goto LABEL_CLEARERASERETURNED; +if(!qbevent)break;evnt(8153);}while(r); +} +do{ +goto LABEL_ERASEDARRAY; +if(!qbevent)break;evnt(8154);}while(r); +} +S_10048:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(8156);if(r)goto S_10048;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8156);}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(8157);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8157);}while(r); +LABEL_ERASEDARRAY:; +if(qbevent){evnt(8159);r=0;} +S_10053:; +if ((-(*__LONG_I<*__LONG_N))||new_error){ +if(qbevent){evnt(8160);if(r)goto S_10053;} +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(8161);}while(r); +do{ +qbs_set(__STRING_N,FUNC_GETELEMENT(__STRING_A,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8161);}while(r); +S_10056:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_N,qbs_new_txt_len(",",1))))||new_error){ +if(qbevent){evnt(8161);if(r)goto S_10056;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected ,",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8161);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8161);}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(8162);}while(r); +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(8163);}while(r); +S_10062:; +if ((-(*__LONG_I>*__LONG_N))||new_error){ +if(qbevent){evnt(8163);if(r)goto S_10062;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected , ...",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8163);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8163);}while(r); +} +do{ +goto LABEL_ERASENEXTARRAY; +if(!qbevent)break;evnt(8164);}while(r); +} +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(8167);}while(r); +S_10069:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(8167);if(r)goto S_10069;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8167);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8167);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(8168);}while(r); +} +} +S_10077:; +if ((-(*__LONG_N>= 2 ))||new_error){ +if(qbevent){evnt(8174);if(r)goto S_10077;} +do{ +*__INTEGER_DIMOPTION= 0 ; +if(!qbevent)break;evnt(8175);}while(r); +do{ +*__INTEGER_REDIMOPTION= 0 ; +if(!qbevent)break;evnt(8175);}while(r); +do{ +*__LONG_COMMONOPTION= 0 ; +if(!qbevent)break;evnt(8175);}while(r); +S_10081:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("DIM",3))))||new_error){ +if(qbevent){evnt(8176);if(r)goto S_10081;} +do{ +qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Dim",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8176);}while(r); +do{ +*__INTEGER_DIMOPTION= 1 ; +if(!qbevent)break;evnt(8176);}while(r); +} +S_10085:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("REDIM",5))))||new_error){ +if(qbevent){evnt(8177);if(r)goto S_10085;} +do{ +qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("ReDim",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8178);}while(r); +do{ +*__INTEGER_DIMOPTION= 2 ; +if(!qbevent)break;evnt(8179);}while(r); +do{ +*__INTEGER_REDIMOPTION= 1 ; +if(!qbevent)break;evnt(8179);}while(r); +S_10089:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("_PRESERVE",9)))|(((qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("PRESERVE",8)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ +if(qbevent){evnt(8180);if(r)goto S_10089;} +do{ +*__INTEGER_REDIMOPTION= 2 ; +if(!qbevent)break;evnt(8181);}while(r); +S_10091:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SECONDELEMENT,qbs_new_txt_len("_PRESERVE",9))))||new_error){ +if(qbevent){evnt(8182);if(r)goto S_10091;} +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(8183);}while(r); +}else{ +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("Preserve",8)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8185);}while(r); +} +S_10096:; +if ((-(*__LONG_N== 2 ))||new_error){ +if(qbevent){evnt(8187);if(r)goto S_10096;} +do{ +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Expected REDIM ",15),__STRING_QB64PREFIX),qbs_new_txt_len("PRESERVE ...",12))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8187);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8187);}while(r); +} +} +} +S_10102:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("STATIC",6))))||new_error){ +if(qbevent){evnt(8190);if(r)goto S_10102;} +do{ +qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Static",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8190);}while(r); +do{ +*__INTEGER_DIMOPTION= 3 ; +if(!qbevent)break;evnt(8190);}while(r); +} +S_10106:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("COMMON",6))))||new_error){ +if(qbevent){evnt(8191);if(r)goto S_10106;} +do{ +qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Common",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8191);}while(r); +do{ +*__INTEGER_DIMOPTION= 1 ; +if(!qbevent)break;evnt(8191);}while(r); +do{ +*__LONG_COMMONOPTION= 1 ; +if(!qbevent)break;evnt(8191);}while(r); +} +S_10111:; +if ((*__INTEGER_DIMOPTION)||new_error){ +if(qbevent){evnt(8192);if(r)goto S_10111;} +S_10112:; +if (((-(*__INTEGER_DIMOPTION== 3 ))&(-(*__LONG_SUBFUNCN== 0 )))||new_error){ +if(qbevent){evnt(8194);if(r)goto S_10112;} +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(8194);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8194);}while(r); +} +S_10116:; +if (((-(*__LONG_COMMONOPTION== 1 ))&(-(*__LONG_SUBFUNCN!= 0 )))||new_error){ +if(qbevent){evnt(8195);if(r)goto S_10116;} +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(8195);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8195);}while(r); +} +do{ +*__LONG_I= 2 ; +if(!qbevent)break;evnt(8197);}while(r); +S_10121:; +if ((-(*__INTEGER_REDIMOPTION== 2 ))||new_error){ +if(qbevent){evnt(8198);if(r)goto S_10121;} +do{ +*__LONG_I= 3 ; +if(!qbevent)break;evnt(8198);}while(r); +} +S_10124:; +if ((-(*__INTEGER_DIMOPTION!= 3 ))||new_error){ +if(qbevent){evnt(8200);if(r)goto S_10124;} +do{ +qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_A,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8201);}while(r); +S_10126:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("SHARED",6))))||new_error){ +if(qbevent){evnt(8202);if(r)goto S_10126;} +S_10127:; +if ((-(*__LONG_SUBFUNCN!= 0 ))||new_error){ +if(qbevent){evnt(8203);if(r)goto S_10127;} +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(8203);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8203);}while(r); +} +do{ +*__INTEGER_DIMSHARED= 1 ; +if(!qbevent)break;evnt(8204);}while(r); +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(8205);}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(8206);}while(r); +} +} +S_10136:; +if ((-(*__INTEGER_DIMOPTION== 3 ))||new_error){ +if(qbevent){evnt(8210);if(r)goto S_10136;} +do{ +*__LONG_DIMSTATIC= 1 ; +if(!qbevent)break;evnt(8210);}while(r); +do{ +*__LONG_ALLOWLOCALNAME= 1 ; +if(!qbevent)break;evnt(8210);}while(r); +} +do{ +qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8213);}while(r); +S_10141:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_E,qbs_new_txt_len("AS",2))))||new_error){ +if(qbevent){evnt(8214);if(r)goto S_10141;} +LABEL_DIMNEXT:; +if(qbevent){evnt(8216);r=0;} +do{ +*__LONG_NEWDIMSYNTAX= 0 ; +if(!qbevent)break;evnt(8217);}while(r); +do{ +*__LONG_NOTYPE= 0 ; +if(!qbevent)break;evnt(8218);}while(r); +do{ +*__LONG_LISTARRAY= 0 ; +if(!qbevent)break;evnt(8219);}while(r); +do{ +qbs_set(__STRING_VARNAME,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8225);}while(r); +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(8225);}while(r); +S_10147:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARNAME,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(8226);if(r)goto S_10147;} +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(8226);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8226);}while(r); +} +S_10151:; +if ((-(*__LONG_I>=(*__LONG_N+ 1 )))||new_error){ +if(qbevent){evnt(8229);if(r)goto S_10151;} +do{ +qbs_set(__STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8229);}while(r); +}else{ +do{ +qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8229);}while(r); +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(8229);}while(r); +} +do{ +qbs_set(__STRING_ELEMENTS,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8232);}while(r); +S_10158:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(8234);if(r)goto S_10158;} +do{ +*__LONG_B= 1 ; +if(!qbevent)break;evnt(8235);}while(r); +S_10160:; +fornext_value1184=*__LONG_I; +fornext_finalvalue1184=*__LONG_N; +fornext_step1184= 1 ; +if (fornext_step1184<0) fornext_step_negative1184=1; else fornext_step_negative1184=0; +if (new_error) goto fornext_error1184; +goto fornext_entrylabel1184; +while(1){ +fornext_value1184=fornext_step1184+(*__LONG_I); +fornext_entrylabel1184: +*__LONG_I=fornext_value1184; +if (fornext_step_negative1184){ +if (fornext_value1184fornext_finalvalue1184) break; +} +fornext_error1184:; +if(qbevent){evnt(8236);if(r)goto S_10160;} +do{ +qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8237);}while(r); +S_10162:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(8238);if(r)goto S_10162;} +do{ +*__LONG_B=*__LONG_B+ 1 ; +if(!qbevent)break;evnt(8238);}while(r); +} +S_10165:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(8239);if(r)goto S_10165;} +do{ +*__LONG_B=*__LONG_B- 1 ; +if(!qbevent)break;evnt(8239);}while(r); +} +S_10168:; +if ((-(*__LONG_B== 0 ))||new_error){ +if(qbevent){evnt(8240);if(r)goto S_10168;} +do{ +goto fornext_exit_1183; +if(!qbevent)break;evnt(8240);}while(r); +} +S_10171:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_ELEMENTS->len))||new_error){ +if(qbevent){evnt(8241);if(r)goto S_10171;} +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(8241);}while(r); +}else{ +do{ +qbs_set(__STRING_ELEMENTS,__STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8241);}while(r); +} +fornext_continue_1183:; +} +fornext_exit_1183:; +S_10177:; +if ((-(*__LONG_B!= 0 ))||new_error){ +if(qbevent){evnt(8243);if(r)goto S_10177;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8243);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8243);}while(r); +} +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(8244);}while(r); +S_10182:; +if ((*__LONG_COMMONOPTION)||new_error){ +if(qbevent){evnt(8246);if(r)goto S_10182;} +do{ +qbs_set(__STRING_ELEMENTS,qbs_new_txt_len("?",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8246);}while(r); +} +S_10185:; +if (( 0 )||new_error){ +if(qbevent){evnt(8249);if(r)goto S_10185;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip1186; +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 (new_error) goto skip1186; +skip1186: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(8249);}while(r); +} +S_10188:; +if ((-(*__INTEGER_DIMOPTION== 3 ))||new_error){ +if(qbevent){evnt(8254);if(r)goto S_10188;} +S_10189:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_ELEMENTS->len== 0 )))||new_error){ +if(qbevent){evnt(8255);if(r)goto S_10189;} +do{ +*__LONG_LISTARRAY= 1 ; +if(!qbevent)break;evnt(8256);}while(r); +} +} +S_10193:; +if ((-(*__LONG_I>=(*__LONG_N+ 1 )))||new_error){ +if(qbevent){evnt(8262);if(r)goto S_10193;} +do{ +qbs_set(__STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8262);}while(r); +}else{ +do{ +qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8262);}while(r); +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(8262);}while(r); +} +} +do{ +qbs_set(__STRING_D,__STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8264);}while(r); +do{ +*__LONG_DIMMETHOD= 0 ; +if(!qbevent)break;evnt(8266);}while(r); +do{ +qbs_set(__STRING_APPENDNAME,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8268);}while(r); +do{ +qbs_set(__STRING_APPENDTYPE,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8269);}while(r); +do{ +qbs_set(__STRING_DIM2TYPEPASSBACK,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8270);}while(r); +do{ +qbs_set(__STRING_S,FUNC_REMOVESYMBOL(__STRING_VARNAME)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8273);}while(r); +S_10206:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(8274);if(r)goto S_10206;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8274);}while(r); +} +S_10209:; +if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(__STRING_VARNAME)== 0 )))||new_error){ +if(qbevent){evnt(8275);if(r)goto S_10209;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Invalid variable name",21)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8275);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8275);}while(r); +} +S_10213:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_S,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(8277);if(r)goto S_10213;} +do{ +qbs_set(__STRING_TYP,__STRING_S); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8278);}while(r); +do{ +*__LONG_DIMMETHOD= 1 ; +if(!qbevent)break;evnt(8279);}while(r); +do{ +qbs_set(__STRING_APPENDNAME,__STRING_TYP); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8280);}while(r); +do{ +goto LABEL_DIMGOTTYP; +if(!qbevent)break;evnt(8281);}while(r); +} +S_10219:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_D,qbs_new_txt_len("AS",2))))||new_error){ +if(qbevent){evnt(8284);if(r)goto S_10219;} +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(8285);}while(r); +do{ +qbs_set(__STRING_TYP,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8286);}while(r); +S_10222:; +fornext_value1189=*__LONG_I; +fornext_finalvalue1189=*__LONG_N; +fornext_step1189= 1 ; +if (fornext_step1189<0) fornext_step_negative1189=1; else fornext_step_negative1189=0; +if (new_error) goto fornext_error1189; +goto fornext_entrylabel1189; +while(1){ +fornext_value1189=fornext_step1189+(*__LONG_I); +fornext_entrylabel1189: +*__LONG_I=fornext_value1189; +if (fornext_step_negative1189){ +if (fornext_value1189fornext_finalvalue1189) break; +} +fornext_error1189:; +if(qbevent){evnt(8287);if(r)goto S_10222;} +do{ +qbs_set(__STRING_D,FUNC_GETELEMENT(__STRING_A,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8288);}while(r); +S_10224:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_D,qbs_new_txt_len(",",1))))||new_error){ +if(qbevent){evnt(8289);if(r)goto S_10224;} +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(8289);}while(r); +do{ +goto fornext_exit_1188; +if(!qbevent)break;evnt(8289);}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(8290);}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(8291);}while(r); +do{ +qbs_set(__STRING_D,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8292);}while(r); +fornext_continue_1188:; +} +fornext_exit_1188:; +do{ +qbs_set(__STRING_APPENDTYPE,FUNC_SCASE2(__STRING_APPENDTYPE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8294);}while(r); +do{ +qbs_set(__STRING_TYP,qbs_rtrim(__STRING_TYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8295);}while(r); +do{ +goto LABEL_DIMGOTTYP; +if(!qbevent)break;evnt(8296);}while(r); +} +do{ +*__LONG_NOTYPE= 1 ; +if(!qbevent)break;evnt(8300);}while(r); +S_10237:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_VARNAME, 1 ),qbs_new_txt_len("_",1))))||new_error){ +if(qbevent){evnt(8301);if(r)goto S_10237;} +do{ +*__LONG_V= 27 ; +if(!qbevent)break;evnt(8301);}while(r); +}else{ +do{ +*__LONG_V=qbs_asc(qbs_ucase(__STRING_VARNAME))- 64 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8301);}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(8302);}while(r); +do{ +*__LONG_DIMMETHOD= 1 ; +if(!qbevent)break;evnt(8303);}while(r); +do{ +goto LABEL_DIMGOTTYP; +if(!qbevent)break;evnt(8304);}while(r); +LABEL_DIMGOTTYP:; +if(qbevent){evnt(8306);r=0;} +S_10245:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(__STRING_D,qbs_new_txt_len("",0)))&(qbs_notequal(__STRING_D,qbs_new_txt_len(",",1)))))||new_error){ +if(qbevent){evnt(8307);if(r)goto S_10245;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("DIM: Expected ,",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8307);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8307);}while(r); +} +S_10249:; +if (((-(*__LONG_NOTYPE!= 0 ))&(-(*__INTEGER_DIMOPTION!= 3 ))&(-(*__INTEGER_DIMOPTION!= 1 )))||new_error){ +if(qbevent){evnt(8310);if(r)goto S_10249;} +S_10250:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_ELEMENTS->len))||new_error){ +if(qbevent){evnt(8311);if(r)goto S_10250;} +S_10251:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_FINDARRAY(__STRING_VARNAME)))||new_error){ +if(qbevent){evnt(8312);if(r)goto S_10251;} +S_10252:; +if ((qbs_cleanup(qbs_tmp_base,((int32)(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(520)),8,1)))->len)))||new_error){ +if(qbevent){evnt(8313);if(r)goto S_10252;} +do{ +qbs_set(__STRING_TYP,FUNC_ID2FULLTYPENAME()); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8314);}while(r); +do{ +*__LONG_DIMMETHOD= 0 ; +if(!qbevent)break;evnt(8315);}while(r); +} +} +} +} +LABEL_NORMALDIMBLOCK:; +if(qbevent){evnt(8321);r=0;} +S_10259:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__INTEGER_DIMOPTION== 3 ))&(__STRING_ELEMENTS->len)))||new_error){ +if(qbevent){evnt(8322);if(r)goto S_10259;} +do{ +qbs_set(__STRING_TYP2,FUNC_SYMBOL2FULLTYPENAME(__STRING_TYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8324);}while(r); +do{ +*__LONG_T=FUNC_TYPNAME2TYP(__STRING_TYP2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8325);}while(r); +do{ +*__LONG_TS=*__LONG_TYPNAME2TYPSIZE; +if(!qbevent)break;evnt(8325);}while(r); +S_10263:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_FINDARRAY(__STRING_VARNAME)))||new_error){ +if(qbevent){evnt(8327);if(r)goto S_10263;} +S_10264:; +if ((-(*(int32*)(((char*)__UDT_ID)+(2641))==*__LONG_SUBFUNCN))||new_error){ +if(qbevent){evnt(8328);if(r)goto S_10264;} +S_10265:; +if ((qbs_cleanup(qbs_tmp_base,((int32)(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1)))->len)))||new_error){ +if(qbevent){evnt(8329);if(r)goto S_10265;} +S_10266:; +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))))||new_error){ +if(qbevent){evnt(8331);if(r)goto S_10266;} +S_10267:; +if ((-(*__LONG_TS==*(int32*)(((char*)__UDT_ID)+(540))))||new_error){ +if(qbevent){evnt(8332);if(r)goto S_10267;} +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(8333);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8333);}while(r); +} +} +}else{ +S_10273:; +if ((-(*__LONG_DIMMETHOD== 0 ))||new_error){ +if(qbevent){evnt(8337);if(r)goto S_10273;} +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(8338);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8338);}while(r); +}else{ +S_10277:; +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))))||new_error){ +if(qbevent){evnt(8341);if(r)goto S_10277;} +S_10278:; +if ((-(*__LONG_TS==*(int32*)(((char*)__UDT_ID)+(540))))||new_error){ +if(qbevent){evnt(8342);if(r)goto S_10278;} +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); +} +} +} +} +} +} +S_10287:; +if ((-((*__LONG_T&*__LONG_ISUDT)== 0 ))||new_error){ +if(qbevent){evnt(8351);if(r)goto S_10287;} +do{ +qbs_set(__STRING_S2,FUNC_TYPE2SYMBOL(__STRING_TYP2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8352);}while(r); +S_10289:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(8353);if(r)goto S_10289;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8353);}while(r); +} +S_10292:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_FINDARRAY(qbs_add(__STRING_VARNAME,__STRING_S2))))||new_error){ +if(qbevent){evnt(8354);if(r)goto S_10292;} +S_10293:; +if ((-(*(int32*)(((char*)__UDT_ID)+(2641))==*__LONG_SUBFUNCN))||new_error){ +if(qbevent){evnt(8355);if(r)goto S_10293;} +S_10294:; +if ((qbs_cleanup(qbs_tmp_base,((int32)(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1)))->len)))||new_error){ +if(qbevent){evnt(8356);if(r)goto S_10294;} +S_10295:; +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))))||new_error){ +if(qbevent){evnt(8358);if(r)goto S_10295;} +S_10296:; +if ((-(*__LONG_TS==*(int32*)(((char*)__UDT_ID)+(540))))||new_error){ +if(qbevent){evnt(8359);if(r)goto S_10296;} +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(8360);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8360);}while(r); +} +} +}else{ +S_10302:; +if ((-(*__LONG_DIMMETHOD== 0 ))||new_error){ +if(qbevent){evnt(8364);if(r)goto S_10302;} +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(8365);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8365);}while(r); +}else{ +S_10306:; +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))))||new_error){ +if(qbevent){evnt(8368);if(r)goto S_10306;} +S_10307:; +if ((-(*__LONG_TS==*(int32*)(((char*)__UDT_ID)+(540))))||new_error){ +if(qbevent){evnt(8369);if(r)goto S_10307;} +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(8370);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8370);}while(r); +} +} +} +} +} +} +} +} +S_10318:; +if ((*__LONG_LISTARRAY)||new_error){ +if(qbevent){evnt(8380);if(r)goto S_10318;} +do{ +*__LONG_XI= 1 ; +if(!qbevent)break;evnt(8385);}while(r); +S_10320:; +fornext_value1193= 1 ; +fornext_finalvalue1193=*__LONG_STATICARRAYLISTN; +fornext_step1193= 1 ; +if (fornext_step1193<0) fornext_step_negative1193=1; else fornext_step_negative1193=0; +if (new_error) goto fornext_error1193; +goto fornext_entrylabel1193; +while(1){ +fornext_value1193=fornext_step1193+(*__LONG_X); +fornext_entrylabel1193: +*__LONG_X=fornext_value1193; +if (fornext_step_negative1193){ +if (fornext_value1193fornext_finalvalue1193) break; +} +fornext_error1193:; +if(qbevent){evnt(8386);if(r)goto S_10320;} +do{ +qbs_set(__STRING_VARNAME2,FUNC_GETELEMENT(__STRING_STATICARRAYLIST,__LONG_XI)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8387);}while(r); +do{ +*__LONG_XI=*__LONG_XI+ 1 ; +if(!qbevent)break;evnt(8387);}while(r); +do{ +qbs_set(__STRING_TYP2,FUNC_GETELEMENT(__STRING_STATICARRAYLIST,__LONG_XI)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8388);}while(r); +do{ +*__LONG_XI=*__LONG_XI+ 1 ; +if(!qbevent)break;evnt(8388);}while(r); +do{ +*__LONG_DIMMETHOD2=qbr(func_val(FUNC_GETELEMENT(__STRING_STATICARRAYLIST,__LONG_XI))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8389);}while(r); +do{ +*__LONG_XI=*__LONG_XI+ 1 ; +if(!qbevent)break;evnt(8389);}while(r); +S_10327:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_VARNAME),qbs_ucase(__STRING_VARNAME2))))||new_error){ +if(qbevent){evnt(8391);if(r)goto S_10327;} +S_10328:; +if ((-(*__LONG_DIMMETHOD2== 1 ))||new_error){ +if(qbevent){evnt(8392);if(r)goto S_10328;} +S_10329:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_SYMBOL2FULLTYPENAME(__STRING_TYP),__STRING_TYP2)))||new_error){ +if(qbevent){evnt(8394);if(r)goto S_10329;} +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(8394);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8394);}while(r); +} +}else{ +S_10334:; +if ((-(*__LONG_DIMMETHOD== 0 ))||new_error){ +if(qbevent){evnt(8397);if(r)goto S_10334;} +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(8398);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8398);}while(r); +}else{ +S_10338:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_SYMBOL2FULLTYPENAME(__STRING_TYP),__STRING_TYP2)))||new_error){ +if(qbevent){evnt(8400);if(r)goto S_10338;} +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(8400);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8400);}while(r); +} +} +} +} +fornext_continue_1192:; +} +fornext_exit_1192:; +do{ +qbs_set(__STRING_TYP2,FUNC_SYMBOL2FULLTYPENAME(__STRING_TYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8407);}while(r); +do{ +*__LONG_T=FUNC_TYPNAME2TYP(__STRING_TYP2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8408);}while(r); +do{ +*__LONG_TS=*__LONG_TYPNAME2TYPSIZE; +if(!qbevent)break;evnt(8408);}while(r); +S_10349:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_FINDARRAY(__STRING_VARNAME)))||new_error){ +if(qbevent){evnt(8410);if(r)goto S_10349;} +S_10350:; +if ((-(*(int32*)(((char*)__UDT_ID)+(2641))==*__LONG_SUBFUNCN))||new_error){ +if(qbevent){evnt(8411);if(r)goto S_10350;} +S_10351:; +if ((qbs_cleanup(qbs_tmp_base,((int32)(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1)))->len)))||new_error){ +if(qbevent){evnt(8412);if(r)goto S_10351;} +S_10352:; +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))))||new_error){ +if(qbevent){evnt(8414);if(r)goto S_10352;} +S_10353:; +if ((-(*__LONG_TS==*(int32*)(((char*)__UDT_ID)+(540))))||new_error){ +if(qbevent){evnt(8415);if(r)goto S_10353;} +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(8416);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8416);}while(r); +} +} +}else{ +S_10359:; +if ((-(*__LONG_DIMMETHOD== 0 ))||new_error){ +if(qbevent){evnt(8420);if(r)goto S_10359;} +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(8421);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8421);}while(r); +}else{ +S_10363:; +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))))||new_error){ +if(qbevent){evnt(8424);if(r)goto S_10363;} +S_10364:; +if ((-(*__LONG_TS==*(int32*)(((char*)__UDT_ID)+(540))))||new_error){ +if(qbevent){evnt(8425);if(r)goto S_10364;} +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(8426);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8426);}while(r); +} +} +} +} +} +} +S_10373:; +if ((-((*__LONG_T&*__LONG_ISUDT)== 0 ))||new_error){ +if(qbevent){evnt(8434);if(r)goto S_10373;} +do{ +qbs_set(__STRING_S2,FUNC_TYPE2SYMBOL(__STRING_TYP2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8435);}while(r); +S_10375:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(8436);if(r)goto S_10375;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8436);}while(r); +} +S_10378:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_FINDARRAY(qbs_add(__STRING_VARNAME,__STRING_S2))))||new_error){ +if(qbevent){evnt(8437);if(r)goto S_10378;} +S_10379:; +if ((-(*(int32*)(((char*)__UDT_ID)+(2641))==*__LONG_SUBFUNCN))||new_error){ +if(qbevent){evnt(8438);if(r)goto S_10379;} +S_10380:; +if ((qbs_cleanup(qbs_tmp_base,((int32)(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1)))->len)))||new_error){ +if(qbevent){evnt(8439);if(r)goto S_10380;} +S_10381:; +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))))||new_error){ +if(qbevent){evnt(8441);if(r)goto S_10381;} +S_10382:; +if ((-(*__LONG_TS==*(int32*)(((char*)__UDT_ID)+(540))))||new_error){ +if(qbevent){evnt(8442);if(r)goto S_10382;} +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(8443);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8443);}while(r); +} +} +}else{ +S_10388:; +if ((-(*__LONG_DIMMETHOD== 0 ))||new_error){ +if(qbevent){evnt(8447);if(r)goto S_10388;} +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(8448);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8448);}while(r); +}else{ +S_10392:; +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))))||new_error){ +if(qbevent){evnt(8451);if(r)goto S_10392;} +S_10393:; +if ((-(*__LONG_TS==*(int32*)(((char*)__UDT_ID)+(540))))||new_error){ +if(qbevent){evnt(8452);if(r)goto S_10393;} +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(8453);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8453);}while(r); +} +} +} +} +} +} +} +S_10403:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_STATICARRAYLIST->len))||new_error){ +if(qbevent){evnt(8463);if(r)goto S_10403;} +do{ +qbs_set(__STRING_STATICARRAYLIST,qbs_add(__STRING_STATICARRAYLIST,__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8463);}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),FUNC_STR2(__LONG_DIMMETHOD))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8464);}while(r); +S_10407:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(8465);if(r)goto S_10407;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8465);}while(r); +} +do{ +*__LONG_STATICARRAYLISTN=*__LONG_STATICARRAYLISTN+ 1 ; +if(!qbevent)break;evnt(8466);}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(8467);}while(r); +}else{ +do{ +*__LONG_OLDDIMSTATIC=*__LONG_DIMSTATIC; +if(!qbevent)break;evnt(8472);}while(r); +S_10414:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_ELEMENTS->len))||new_error){ +if(qbevent){evnt(8475);if(r)goto S_10414;} +S_10415:; +if ((*__LONG_SUBFUNCN)||new_error){ +if(qbevent){evnt(8476);if(r)goto S_10415;} +do{ +*__LONG_XI= 1 ; +if(!qbevent)break;evnt(8477);}while(r); +S_10417:; +fornext_value1197= 1 ; +fornext_finalvalue1197=*__LONG_STATICARRAYLISTN; +fornext_step1197= 1 ; +if (fornext_step1197<0) fornext_step_negative1197=1; else fornext_step_negative1197=0; +if (new_error) goto fornext_error1197; +goto fornext_entrylabel1197; +while(1){ +fornext_value1197=fornext_step1197+(*__LONG_X); +fornext_entrylabel1197: +*__LONG_X=fornext_value1197; +if (fornext_step_negative1197){ +if (fornext_value1197fornext_finalvalue1197) break; +} +fornext_error1197:; +if(qbevent){evnt(8478);if(r)goto S_10417;} +do{ +qbs_set(__STRING_VARNAME2,FUNC_GETELEMENT(__STRING_STATICARRAYLIST,__LONG_XI)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8479);}while(r); +do{ +*__LONG_XI=*__LONG_XI+ 1 ; +if(!qbevent)break;evnt(8479);}while(r); +do{ +qbs_set(__STRING_TYP2,FUNC_GETELEMENT(__STRING_STATICARRAYLIST,__LONG_XI)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8480);}while(r); +do{ +*__LONG_XI=*__LONG_XI+ 1 ; +if(!qbevent)break;evnt(8480);}while(r); +do{ +*__LONG_DIMMETHOD2=qbr(func_val(FUNC_GETELEMENT(__STRING_STATICARRAYLIST,__LONG_XI))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8481);}while(r); +do{ +*__LONG_XI=*__LONG_XI+ 1 ; +if(!qbevent)break;evnt(8481);}while(r); +S_10424:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_VARNAME),qbs_ucase(__STRING_VARNAME2))))||new_error){ +if(qbevent){evnt(8483);if(r)goto S_10424;} +S_10425:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_SYMBOL2FULLTYPENAME(__STRING_TYP),__STRING_TYP2)))||new_error){ +if(qbevent){evnt(8484);if(r)goto S_10425;} +S_10426:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(8485);if(r)goto S_10426;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8485);}while(r); +} +S_10429:; +if ((-(*__LONG_DIMMETHOD==*__LONG_DIMMETHOD2))||new_error){ +if(qbevent){evnt(8486);if(r)goto S_10429;} +do{ +qbs_set(__STRING_VARNAME,__STRING_VARNAME2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8488);}while(r); +do{ +*__LONG_DIMSTATIC= 3 ; +if(!qbevent)break;evnt(8489);}while(r); +S_10432:; +if ((-(*__INTEGER_DIMOPTION== 3 ))||new_error){ +if(qbevent){evnt(8490);if(r)goto S_10432;} +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(8490);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8490);}while(r); +} +} +} +} +fornext_continue_1196:; +} +fornext_exit_1196:; +} +} +S_10442:; +if ((*__LONG_COMMONOPTION)||new_error){ +if(qbevent){evnt(8501);if(r)goto S_10442;} +S_10443:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_ELEMENTS->len))||new_error){ +if(qbevent){evnt(8502);if(r)goto S_10443;} +S_10444:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_COMMONARRAYLIST->len))||new_error){ +if(qbevent){evnt(8505);if(r)goto S_10444;} +do{ +qbs_set(__STRING_COMMONARRAYLIST,qbs_add(__STRING_COMMONARRAYLIST,__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8505);}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),FUNC_STR2(__LONG_DIMMETHOD)),__STRING1_SP),FUNC_STR2(&(pass1200=*__INTEGER_DIMSHARED)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8507);}while(r); +S_10448:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(8508);if(r)goto S_10448;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8508);}while(r); +} +do{ +*__LONG_COMMONARRAYLISTN=*__LONG_COMMONARRAYLISTN+ 1 ; +if(!qbevent)break;evnt(8509);}while(r); +S_10452:; +if (( 0 )||new_error){ +if(qbevent){evnt(8510);if(r)goto S_10452;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip1201; +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),FUNC_STR2(__LONG_DIMMETHOD)),__STRING1_SP),FUNC_STR2(&(pass1202=*__INTEGER_DIMSHARED))), 0, 0, 1); +if (new_error) goto skip1201; +skip1201: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(8510);}while(r); +} +S_10455:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(8511);if(r)goto S_10455;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8511);}while(r); +} +do{ +*__LONG_X= 0 ; +if(!qbevent)break;evnt(8513);}while(r); +do{ +qbs_set(__STRING_V,__STRING_VARNAME); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8515);}while(r); +S_10460:; +if ((-(*__LONG_DIMMETHOD== 1 ))||new_error){ +if(qbevent){evnt(8516);if(r)goto S_10460;} +do{ +qbs_set(__STRING_V,qbs_add(__STRING_V,__STRING_TYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8516);}while(r); +} +do{ +*__LONG_TRY=FUNC_FINDID(__STRING_V); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8517);}while(r); +S_10464:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(8518);if(r)goto S_10464;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8518);}while(r); +} +S_10467:; +while((*__LONG_TRY)||new_error){ +if(qbevent){evnt(8519);if(r)goto S_10467;} +S_10468:; +if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ +if(qbevent){evnt(8520);if(r)goto S_10468;} +do{ +*__LONG_T=FUNC_TYPNAME2TYP(__STRING_TYP); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8522);}while(r); +S_10470:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(8523);if(r)goto S_10470;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8523);}while(r); +} +do{ +*__LONG_S=*__LONG_TYPNAME2TYPSIZE; +if(!qbevent)break;evnt(8524);}while(r); +do{ +*__LONG_MATCH= 1 ; +if(!qbevent)break;evnt(8525);}while(r); +S_10475:; +if ((-(*__LONG_DIMMETHOD== 0 ))||new_error){ +if(qbevent){evnt(8527);if(r)goto S_10475;} +do{ +*__LONG_T2=*(int32*)(((char*)__UDT_ID)+(512)); +if(!qbevent)break;evnt(8528);}while(r); +do{ +*__LONG_S2=*(int32*)(((char*)__UDT_ID)+(540)); +if(!qbevent)break;evnt(8529);}while(r); +S_10478:; +if ((-((*__LONG_T&*__LONG_ISFLOAT)!=(*__LONG_T2&*__LONG_ISFLOAT)))||new_error){ +if(qbevent){evnt(8530);if(r)goto S_10478;} +do{ +*__LONG_MATCH= 0 ; +if(!qbevent)break;evnt(8530);}while(r); +} +S_10481:; +if ((-((*__LONG_T&*__LONG_ISUNSIGNED)!=(*__LONG_T2&*__LONG_ISUNSIGNED)))||new_error){ +if(qbevent){evnt(8531);if(r)goto S_10481;} +do{ +*__LONG_MATCH= 0 ; +if(!qbevent)break;evnt(8531);}while(r); +} +S_10484:; +if ((-((*__LONG_T&*__LONG_ISSTRING)!=(*__LONG_T2&*__LONG_ISSTRING)))||new_error){ +if(qbevent){evnt(8532);if(r)goto S_10484;} +do{ +*__LONG_MATCH= 0 ; +if(!qbevent)break;evnt(8532);}while(r); +} +S_10487:; +if ((-((*__LONG_T&*__LONG_ISFIXEDLENGTH)!=(*__LONG_T2&*__LONG_ISFIXEDLENGTH)))||new_error){ +if(qbevent){evnt(8533);if(r)goto S_10487;} +do{ +*__LONG_MATCH= 0 ; +if(!qbevent)break;evnt(8533);}while(r); +} +S_10490:; +if ((-((*__LONG_T&*__LONG_ISOFFSETINBITS)!=(*__LONG_T2&*__LONG_ISOFFSETINBITS)))||new_error){ +if(qbevent){evnt(8534);if(r)goto S_10490;} +do{ +*__LONG_MATCH= 0 ; +if(!qbevent)break;evnt(8534);}while(r); +} +S_10493:; +if ((-((*__LONG_T&*__LONG_ISUDT)!=(*__LONG_T2&*__LONG_ISUDT)))||new_error){ +if(qbevent){evnt(8535);if(r)goto S_10493;} +do{ +*__LONG_MATCH= 0 ; +if(!qbevent)break;evnt(8535);}while(r); +} +S_10496:; +if ((-((*__LONG_T& 511 )!=(*__LONG_T2& 511 )))||new_error){ +if(qbevent){evnt(8536);if(r)goto S_10496;} +do{ +*__LONG_MATCH= 0 ; +if(!qbevent)break;evnt(8536);}while(r); +} +S_10499:; +if ((-(*__LONG_S!=*__LONG_S2))||new_error){ +if(qbevent){evnt(8537);if(r)goto S_10499;} +do{ +*__LONG_MATCH= 0 ; +if(!qbevent)break;evnt(8537);}while(r); +} +do{ +*__LONG_OLDMETHOD= 0 ; +if(!qbevent)break;evnt(8539);}while(r); +S_10503:; +if ((qbs_cleanup(qbs_tmp_base,((int32)(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1)))->len)))||new_error){ +if(qbevent){evnt(8539);if(r)goto S_10503;} +do{ +*__LONG_OLDMETHOD= 1 ; +if(!qbevent)break;evnt(8539);}while(r); +} +S_10506:; +if ((-(*__LONG_OLDMETHOD!=*__LONG_DIMMETHOD))||new_error){ +if(qbevent){evnt(8540);if(r)goto S_10506;} +do{ +*__LONG_MATCH= 0 ; +if(!qbevent)break;evnt(8540);}while(r); +} +} +S_10510:; +if ((*__LONG_MATCH)||new_error){ +if(qbevent){evnt(8543);if(r)goto S_10510;} +do{ +*__LONG_X=*__LONG_CURRENTID; +if(!qbevent)break;evnt(8544);}while(r); +S_10512:; +if ((*__INTEGER_DIMSHARED)||new_error){ +if(qbevent){evnt(8545);if(r)goto S_10512;} +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(8545);}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(8546);}while(r); +S_10516:; +if ((-(*__LONG_DIMMETHOD== 0 ))||new_error){ +if(qbevent){evnt(8548);if(r)goto S_10516;} +S_10517:; +if ((*__LONG_T&*__LONG_ISUDT)||new_error){ +if(qbevent){evnt(8549);if(r)goto S_10517;} +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(8550);}while(r); +S_10519:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(__STRING_TYP),qbs_new_txt_len("MEM",3)))&(-(*__LONG_QB64PREFIX_SET== 1 ))&(qbs_equal(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_new_txt_len("_MEM",4)))))||new_error){ +if(qbevent){evnt(8551);if(r)goto S_10519;} +do{ +qbs_set(__STRING_DIM2TYPEPASSBACK,func_mid(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)), 2 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8552);}while(r); +} +}else{ +do{ +qbs_set(__STRING_DIM2TYPEPASSBACK,__STRING_TYP); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8555);}while(r); +S_10524:; +while((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_DIM2TYPEPASSBACK,qbs_new_txt_len(" ",1),0)))||new_error){ +if(qbevent){evnt(8556);if(r)goto S_10524;} +do{ +tqbs=__STRING_DIM2TYPEPASSBACK; if (!new_error){ +tmp_fileno=func_instr(NULL,__STRING_DIM2TYPEPASSBACK,qbs_new_txt_len(" ",1),0); if (!new_error){ +tmp_long=qbs_asc(__STRING1_SP); if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(8557);}while(r); +dl_continue_1204:; +} +dl_exit_1204:; +do{ +qbs_set(__STRING_DIM2TYPEPASSBACK,FUNC_SCASE2(__STRING_DIM2TYPEPASSBACK)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8559);}while(r); +} +} +do{ +goto dl_exit_1203; +if(!qbevent)break;evnt(8563);}while(r); +} +} +S_10533:; +if ((-(*__LONG_TRY== 2 ))||new_error){ +if(qbevent){evnt(8567);if(r)goto S_10533;} +do{ +*__INTEGER_FINDANOTHERID= 1 ; +if(!qbevent)break;evnt(8567);}while(r); +do{ +*__LONG_TRY=FUNC_FINDID(__STRING_V); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8567);}while(r); +}else{ +do{ +*__LONG_TRY= 0 ; +if(!qbevent)break;evnt(8567);}while(r); +} +S_10539:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(8568);if(r)goto S_10539;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8568);}while(r); +} +dl_continue_1203:; +} +dl_exit_1203:; +S_10543:; +if ((-(*__LONG_X== 0 ))||new_error){ +if(qbevent){evnt(8571);if(r)goto S_10543;} +do{ +*__LONG_X=*__LONG_IDN+ 1 ; +if(!qbevent)break;evnt(8571);}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(8574);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1205=*__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)),FUNC_STR2(__LONG_X)),qbs_new_txt_len(".txt",4)),func_chr( 34 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8576);}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)),FUNC_STR2(__LONG_X)),qbs_new_txt_len(".txt",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8578);}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(8580);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1206=*__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)),FUNC_STR2(__LONG_X)),qbs_new_txt_len(".txt",4)),func_chr( 34 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8582);}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)),FUNC_STR2(__LONG_X)),qbs_new_txt_len(".txt",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8584);}while(r); +S_10552:; +if ((-(*__LONG_X!=(*__LONG_IDN+ 1 )))||new_error){ +if(qbevent){evnt(8587);if(r)goto S_10552;} +do{ +goto LABEL_SKIPDIM; +if(!qbevent)break;evnt(8587);}while(r); +} +do{ +goto LABEL_DIMCOMMONARRAY; +if(!qbevent)break;evnt(8588);}while(r); +} +} +S_10558:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_ELEMENTS->len))||new_error){ +if(qbevent){evnt(8595);if(r)goto S_10558;} +S_10559:; +if ((-(*__LONG_SUBFUNCN== 0 ))||new_error){ +if(qbevent){evnt(8596);if(r)goto S_10559;} +S_10560:; +if (( 0 )||new_error){ +if(qbevent){evnt(8598);if(r)goto S_10560;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip1208; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("common checking:",16),__STRING_VARNAME), 0, 0, 1); +if (new_error) goto skip1208; +skip1208: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(8598);}while(r); +} +do{ +*__LONG_XI= 1 ; +if(!qbevent)break;evnt(8600);}while(r); +S_10564:; +fornext_value1210= 1 ; +fornext_finalvalue1210=*__LONG_COMMONARRAYLISTN; +fornext_step1210= 1 ; +if (fornext_step1210<0) fornext_step_negative1210=1; else fornext_step_negative1210=0; +if (new_error) goto fornext_error1210; +goto fornext_entrylabel1210; +while(1){ +fornext_value1210=fornext_step1210+(*__LONG_X); +fornext_entrylabel1210: +*__LONG_X=fornext_value1210; +if (fornext_step_negative1210){ +if (fornext_value1210fornext_finalvalue1210) break; +} +fornext_error1210:; +if(qbevent){evnt(8601);if(r)goto S_10564;} +do{ +qbs_set(__STRING_VARNAME2,FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8602);}while(r); +do{ +*__LONG_XI=*__LONG_XI+ 1 ; +if(!qbevent)break;evnt(8602);}while(r); +do{ +qbs_set(__STRING_TYP2,FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8603);}while(r); +do{ +*__LONG_XI=*__LONG_XI+ 1 ; +if(!qbevent)break;evnt(8603);}while(r); +do{ +*__LONG_DIMMETHOD2=qbr(func_val(FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8604);}while(r); +do{ +*__LONG_XI=*__LONG_XI+ 1 ; +if(!qbevent)break;evnt(8604);}while(r); +do{ +*__LONG_DIMSHARED2=qbr(func_val(FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8605);}while(r); +do{ +*__LONG_XI=*__LONG_XI+ 1 ; +if(!qbevent)break;evnt(8605);}while(r); +S_10573:; +if (( 0 )||new_error){ +if(qbevent){evnt(8606);if(r)goto S_10573;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip1211; +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),FUNC_STR2(__LONG_DIMMETHOD2)),__STRING1_SP),FUNC_STR2(__LONG_DIMSHARED2)), 0, 0, 1); +if (new_error) goto skip1211; +skip1211: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(8606);}while(r); +} +S_10576:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARNAME,__STRING_VARNAME2)))||new_error){ +if(qbevent){evnt(8608);if(r)goto S_10576;} +S_10577:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_SYMBOL2FULLTYPENAME(__STRING_TYP),__STRING_TYP2)))||new_error){ +if(qbevent){evnt(8609);if(r)goto S_10577;} +S_10578:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(8610);if(r)goto S_10578;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8610);}while(r); +} +S_10581:; +if ((-(*__LONG_DIMMETHOD==*__LONG_DIMMETHOD2))||new_error){ +if(qbevent){evnt(8611);if(r)goto S_10581;} +S_10582:; +if ((*__LONG_DIMSHARED2)||new_error){ +if(qbevent){evnt(8615);if(r)goto S_10582;} +do{ +*__INTEGER_DIMSHARED=*__INTEGER_DIMSHARED| 2 ; +if(!qbevent)break;evnt(8615);}while(r); +} +} +} +} +fornext_continue_1209:; +} +fornext_exit_1209:; +} +} +LABEL_DIMCOMMONARRAY:; +if(qbevent){evnt(8627);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(8628);}while(r); +S_10592:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(8629);if(r)goto S_10592;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8629);}while(r); +} +LABEL_SKIPDIM:; +if(qbevent){evnt(8630);r=0;} +S_10595:; +if ((-(*__INTEGER_DIMSHARED>= 2 ))||new_error){ +if(qbevent){evnt(8631);if(r)goto S_10595;} +do{ +*__INTEGER_DIMSHARED=*__INTEGER_DIMSHARED- 2 ; +if(!qbevent)break;evnt(8631);}while(r); +} +S_10598:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_COMMONOPTION!= 0 ))&(-(__STRING_ELEMENTS->len== 0 ))))||new_error){ +if(qbevent){evnt(8634);if(r)goto S_10598;} +do{ +*__LONG_USE_GLOBAL_BYTE_ELEMENTS= 1 ; +if(!qbevent)break;evnt(8638);}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(8641);}while(r); +do{ +qbs_set(__STRING_L2,__STRING_TLAYOUT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8642);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1213=*__LONG_MAINTXTBUF),qbs_new_txt_len("int32val=1;",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8644);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1214=*__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(8645);}while(r); +do{ +*__LONG_T=*(int32*)(((char*)__UDT_ID)+(536)); +if(!qbevent)break;evnt(8647);}while(r); +do{ +*__LONG_BITS=*__LONG_T& 511 ; +if(!qbevent)break;evnt(8648);}while(r); +S_10606:; +if ((*__LONG_T&*__LONG_ISUDT)||new_error){ +if(qbevent){evnt(8649);if(r)goto S_10606;} +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(8649);}while(r); +} +S_10609:; +if ((*__LONG_T&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(8650);if(r)goto S_10609;} +S_10610:; +if ((*__LONG_T&*__LONG_ISFIXEDLENGTH)||new_error){ +if(qbevent){evnt(8651);if(r)goto S_10610;} +do{ +*__LONG_BITS=*(int32*)(((char*)__UDT_ID)+(540))* 8 ; +if(!qbevent)break;evnt(8652);}while(r); +}else{ +do{ +SUB_WRITEBUFLINE(&(pass1215=*__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(8654);}while(r); +do{ +*__LONG_BITS= 0 ; +if(!qbevent)break;evnt(8655);}while(r); +} +} +S_10617:; +if ((*__LONG_BITS)||new_error){ +if(qbevent){evnt(8659);if(r)goto S_10617;} +do{ +SUB_WRITEBUFLINE(&(pass1216=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("int64val=",9),FUNC_STR2(__LONG_BITS)),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8660);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass1217=*__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(8662);}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(8665);}while(r); +S_10622:; +if ((-((*__LONG_T&*__LONG_ISUDT)== 0 ))||new_error){ +if(qbevent){evnt(8667);if(r)goto S_10622;} +S_10623:; +if ((*__LONG_T&*__LONG_ISFIXEDLENGTH)||new_error){ +if(qbevent){evnt(8668);if(r)goto S_10623;} +do{ +qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,qbs_new_txt_len("$",1)),FUNC_STR2((int32*)(void*)( ((char*)(__UDT_ID)) + (540) )))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8669);}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(8671);}while(r); +S_10627:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(8672);if(r)goto S_10627;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8672);}while(r); +} +} +} +do{ +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(FUNC_FIXOPERATIONORDER(__STRING_E),&(pass1218= -4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8675);}while(r); +S_10633:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(8676);if(r)goto S_10633;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8676);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass1219=*__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(8678);}while(r); +do{ +qbs_set(__STRING_TLAYOUT,__STRING_L2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8680);}while(r); +do{ +*__LONG_MAINTXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("A",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("main.txt",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8682);}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(8688);}while(r); +do{ +qbs_set(__STRING_L2,__STRING_TLAYOUT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8689);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1220=*__LONG_MAINTXTBUF),qbs_new_txt_len("if (int32val==1){",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8692);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1221=*__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(8694);}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(8697);}while(r); +do{ +*__LONG_T=*(int32*)(((char*)__UDT_ID)+(536)); +if(!qbevent)break;evnt(8698);}while(r); +S_10645:; +if ((-((*__LONG_T&*__LONG_ISUDT)== 0 ))||new_error){ +if(qbevent){evnt(8699);if(r)goto S_10645;} +S_10646:; +if ((*__LONG_T&*__LONG_ISFIXEDLENGTH)||new_error){ +if(qbevent){evnt(8700);if(r)goto S_10646;} +do{ +qbs_set(__STRING_E,qbs_add(qbs_add(__STRING_E,qbs_new_txt_len("$",1)),FUNC_STR2((int32*)(void*)( ((char*)(__UDT_ID)) + (540) )))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8701);}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(8703);}while(r); +S_10650:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(8704);if(r)goto S_10650;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8704);}while(r); +} +} +} +S_10655:; +if ((*__LONG_T&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(8708);if(r)goto S_10655;} +S_10656:; +if ((-((*__LONG_T&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ +if(qbevent){evnt(8709);if(r)goto S_10656;} +do{ +SUB_WRITEBUFLINE(&(pass1222=*__LONG_MAINTXTBUF),qbs_new_txt_len("tqbs=qbs_new(int64val>>3,1);",28)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8710);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1223=*__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(8711);}while(r); +} +} +do{ +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(FUNC_FIXOPERATIONORDER(__STRING_E),&(pass1224= -4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8716);}while(r); +S_10662:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(8717);if(r)goto S_10662;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8717);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass1225=*__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(8718);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1226=*__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(8720);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1227=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8721);}while(r); +do{ +qbs_set(__STRING_TLAYOUT,__STRING_L2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8723);}while(r); +do{ +*__LONG_MAINTXTBUF=FUNC_OPENBUFFER(qbs_new_txt_len("A",1),qbs_add(__STRING_TMPDIR,qbs_new_txt_len("main.txt",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8725);}while(r); +do{ +*__LONG_USE_GLOBAL_BYTE_ELEMENTS= 0 ; +if(!qbevent)break;evnt(8727);}while(r); +} +LABEL_COMMONARRAYLISTED:; +if(qbevent){evnt(8731);r=0;} +S_10672:; +if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_APPENDTYPE->len> 0 ))&(-(*__LONG_NEWDIMSYNTAX== -1 ))))||new_error){ +if(qbevent){evnt(8733);if(r)goto S_10672;} +S_10673:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_DIM2TYPEPASSBACK->len))||new_error){ +if(qbevent){evnt(8734);if(r)goto S_10673;} +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(8734);}while(r); +} +S_10676:; +if ((-(*__LONG_NEWDIMSYNTAXTYPEPASSBACK== 0 ))||new_error){ +if(qbevent){evnt(8735);if(r)goto S_10676;} +do{ +*__LONG_NEWDIMSYNTAXTYPEPASSBACK= -1 ; +if(!qbevent)break;evnt(8736);}while(r); +do{ +qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_APPENDTYPE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8737);}while(r); +} +} +do{ +*__LONG_N2=FUNC_NUMELEMENTS(__STRING_TLAYOUT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8741);}while(r); +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(qbs_add(__STRING_L,__STRING1_SP),FUNC_GETELEMENT(__STRING_TLAYOUT,&(pass1230= 1 ))),__STRING_APPENDNAME)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8742);}while(r); +S_10683:; +if ((-(*__LONG_N2> 1 ))||new_error){ +if(qbevent){evnt(8743);if(r)goto S_10683;} +do{ +qbs_set(__STRING_L,qbs_add(qbs_add(__STRING_L,__STRING1_SP2),FUNC_GETELEMENTS(__STRING_TLAYOUT,&(pass1231= 2 ),__LONG_N2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8744);}while(r); +} +S_10686:; +if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_APPENDTYPE->len> 0 ))&(-(*__LONG_NEWDIMSYNTAX== 0 ))))||new_error){ +if(qbevent){evnt(8747);if(r)goto S_10686;} +S_10687:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_DIM2TYPEPASSBACK->len))||new_error){ +if(qbevent){evnt(8748);if(r)goto S_10687;} +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(8748);}while(r); +} +do{ +qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_APPENDTYPE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8749);}while(r); +} +do{ +*__LONG_DIMSTATIC=*__LONG_OLDDIMSTATIC; +if(!qbevent)break;evnt(8754);}while(r); +} +S_10694:; +if ((*__LONG_NEWDIMSYNTAX)||new_error){ +if(qbevent){evnt(8758);if(r)goto S_10694;} +do{ +#include "ret0.txt" +if(!qbevent)break;evnt(8758);}while(r); +} +S_10697:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_D,qbs_new_txt_len(",",1))))||new_error){ +if(qbevent){evnt(8760);if(r)goto S_10697;} +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(8760);}while(r); +do{ +goto LABEL_DIMNEXT; +if(!qbevent)break;evnt(8760);}while(r); +} +do{ +*__INTEGER_DIMOPTION= 0 ; +if(!qbevent)break;evnt(8762);}while(r); +do{ +*__INTEGER_DIMSHARED= 0 ; +if(!qbevent)break;evnt(8763);}while(r); +do{ +*__INTEGER_REDIMOPTION= 0 ; +if(!qbevent)break;evnt(8764);}while(r); +S_10704:; +if ((-(*__LONG_DIMSTATIC== 1 ))||new_error){ +if(qbevent){evnt(8765);if(r)goto S_10704;} +do{ +*__LONG_DIMSTATIC= 0 ; +if(!qbevent)break;evnt(8765);}while(r); +} +do{ +*__LONG_ALLOWLOCALNAME= 0 ; +if(!qbevent)break;evnt(8766);}while(r); +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(8768);}while(r); +S_10709:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||new_error){ +if(qbevent){evnt(8769);if(r)goto S_10709;} +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8769);}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(8769);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(8771);}while(r); +}else{ +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(8774);}while(r); +do{ +*__LONG_NEWDIMSYNTAXTYPEPASSBACK= 0 ; +if(!qbevent)break;evnt(8775);}while(r); +do{ +qbs_set(__STRING_APPENDNAME,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8778);}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(8779);}while(r); +do{ +qbs_set(__STRING_TYP,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8780);}while(r); +do{ +qbs_set(__STRING_VARNAME,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8781);}while(r); +do{ +qbs_set(__STRING_PREVIOUSELEMENT,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8782);}while(r); +S_10723:; +fornext_value1236=*__LONG_I; +fornext_finalvalue1236=*__LONG_N; +fornext_step1236= 1 ; +if (fornext_step1236<0) fornext_step_negative1236=1; else fornext_step_negative1236=0; +if (new_error) goto fornext_error1236; +goto fornext_entrylabel1236; +while(1){ +fornext_value1236=fornext_step1236+(*__LONG_I); +fornext_entrylabel1236: +*__LONG_I=fornext_value1236; +if (fornext_step_negative1236){ +if (fornext_value1236fornext_finalvalue1236) break; +} +fornext_error1236:; +if(qbevent){evnt(8783);if(r)goto S_10723;} +do{ +qbs_set(__STRING_D,FUNC_GETELEMENT(__STRING_A,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8784);}while(r); +S_10725:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_D,qbs_new_txt_len(",",1)))|(qbs_equal(__STRING_D,qbs_new_txt_len("(",1)))))||new_error){ +if(qbevent){evnt(8785);if(r)goto S_10725;} +do{ +goto fornext_exit_1235; +if(!qbevent)break;evnt(8785);}while(r); +} +do{ +qbs_set(__STRING_VARNAME,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8786);}while(r); +S_10729:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_PREVIOUSELEMENT->len))||new_error){ +if(qbevent){evnt(8787);if(r)goto S_10729;} +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(8788);}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(8789);}while(r); +} +do{ +qbs_set(__STRING_PREVIOUSELEMENT,__STRING_D); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8791);}while(r); +do{ +qbs_set(__STRING_D,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8792);}while(r); +fornext_continue_1235:; +} +fornext_exit_1235:; +do{ +qbs_set(__STRING_APPENDTYPE,FUNC_SCASE2(__STRING_APPENDTYPE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8794);}while(r); +do{ +qbs_set(__STRING_TYP,qbs_rtrim(__STRING_TYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8795);}while(r); +LABEL_DIMNEXT2:; +if(qbevent){evnt(8797);r=0;} +do{ +*__LONG_NOTYPE= 0 ; +if(!qbevent)break;evnt(8798);}while(r); +do{ +*__LONG_LISTARRAY= 0 ; +if(!qbevent)break;evnt(8799);}while(r); +S_10740:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_TYP,qbs_new_txt_len("",0)))|(qbs_equal(__STRING_VARNAME,qbs_new_txt_len("",0)))))||new_error){ +if(qbevent){evnt(8801);if(r)goto S_10740;} +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(8801);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8801);}while(r); +} +S_10744:; +if ((-(*__LONG_I>=(*__LONG_N+ 1 )))||new_error){ +if(qbevent){evnt(8804);if(r)goto S_10744;} +do{ +qbs_set(__STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8804);}while(r); +}else{ +do{ +qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8804);}while(r); +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(8804);}while(r); +} +do{ +qbs_set(__STRING_ELEMENTS,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8807);}while(r); +S_10751:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(8809);if(r)goto S_10751;} +do{ +*__LONG_B= 1 ; +if(!qbevent)break;evnt(8810);}while(r); +S_10753:; +fornext_value1239=*__LONG_I; +fornext_finalvalue1239=*__LONG_N; +fornext_step1239= 1 ; +if (fornext_step1239<0) fornext_step_negative1239=1; else fornext_step_negative1239=0; +if (new_error) goto fornext_error1239; +goto fornext_entrylabel1239; +while(1){ +fornext_value1239=fornext_step1239+(*__LONG_I); +fornext_entrylabel1239: +*__LONG_I=fornext_value1239; +if (fornext_step_negative1239){ +if (fornext_value1239fornext_finalvalue1239) break; +} +fornext_error1239:; +if(qbevent){evnt(8811);if(r)goto S_10753;} +do{ +qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8812);}while(r); +S_10755:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(8813);if(r)goto S_10755;} +do{ +*__LONG_B=*__LONG_B+ 1 ; +if(!qbevent)break;evnt(8813);}while(r); +} +S_10758:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(8814);if(r)goto S_10758;} +do{ +*__LONG_B=*__LONG_B- 1 ; +if(!qbevent)break;evnt(8814);}while(r); +} +S_10761:; +if ((-(*__LONG_B== 0 ))||new_error){ +if(qbevent){evnt(8815);if(r)goto S_10761;} +do{ +goto fornext_exit_1238; +if(!qbevent)break;evnt(8815);}while(r); +} +S_10764:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_ELEMENTS->len))||new_error){ +if(qbevent){evnt(8816);if(r)goto S_10764;} +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(8816);}while(r); +}else{ +do{ +qbs_set(__STRING_ELEMENTS,__STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8816);}while(r); +} +fornext_continue_1238:; +} +fornext_exit_1238:; +S_10770:; +if ((-(*__LONG_B!= 0 ))||new_error){ +if(qbevent){evnt(8818);if(r)goto S_10770;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected )",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8818);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8818);}while(r); +} +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(8819);}while(r); +S_10775:; +if ((*__LONG_COMMONOPTION)||new_error){ +if(qbevent){evnt(8821);if(r)goto S_10775;} +do{ +qbs_set(__STRING_ELEMENTS,qbs_new_txt_len("?",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8821);}while(r); +} +S_10778:; +if (( 0 )||new_error){ +if(qbevent){evnt(8824);if(r)goto S_10778;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip1241; +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 (new_error) goto skip1241; +skip1241: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(8824);}while(r); +} +S_10781:; +if ((-(*__INTEGER_DIMOPTION== 3 ))||new_error){ +if(qbevent){evnt(8829);if(r)goto S_10781;} +S_10782:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_ELEMENTS->len== 0 )))||new_error){ +if(qbevent){evnt(8830);if(r)goto S_10782;} +do{ +*__LONG_LISTARRAY= 1 ; +if(!qbevent)break;evnt(8831);}while(r); +} +} +S_10786:; +if ((-(*__LONG_I>=(*__LONG_N+ 1 )))||new_error){ +if(qbevent){evnt(8837);if(r)goto S_10786;} +do{ +qbs_set(__STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8837);}while(r); +}else{ +do{ +qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8837);}while(r); +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(8837);}while(r); +} +} +do{ +qbs_set(__STRING_D,__STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8839);}while(r); +do{ +*__LONG_DIMMETHOD= 0 ; +if(!qbevent)break;evnt(8841);}while(r); +do{ +qbs_set(__STRING_DIM2TYPEPASSBACK,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8843);}while(r); +do{ +qbs_set(__STRING_S,FUNC_REMOVESYMBOL(__STRING_VARNAME)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8846);}while(r); +S_10797:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(8847);if(r)goto S_10797;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8847);}while(r); +} +S_10800:; +if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(__STRING_VARNAME)== 0 )))||new_error){ +if(qbevent){evnt(8848);if(r)goto S_10800;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Invalid variable name",21)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8848);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8848);}while(r); +} +S_10804:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_S,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(8850);if(r)goto S_10804;} +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(8851);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8852);}while(r); +} +S_10808:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(__STRING_D,qbs_new_txt_len("",0)))&(qbs_notequal(__STRING_D,qbs_new_txt_len(",",1)))))||new_error){ +if(qbevent){evnt(8855);if(r)goto S_10808;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("DIM: Expected ,",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8855);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8855);}while(r); +} +do{ +*__LONG_NEWDIMSYNTAX= -1 ; +if(!qbevent)break;evnt(8857);}while(r); +do{ +return_point[next_return_point++]=5; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_NORMALDIMBLOCK; +RETURN_5:; +if(!qbevent)break;evnt(8858);}while(r); +do{ +*__LONG_NEWDIMSYNTAX= 0 ; +if(!qbevent)break;evnt(8859);}while(r); +S_10815:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_D,qbs_new_txt_len(",",1))))||new_error){ +if(qbevent){evnt(8861);if(r)goto S_10815;} +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(8862);}while(r); +do{ +qbs_set(__STRING_VARNAME,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8863);}while(r); +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(8863);}while(r); +do{ +goto LABEL_DIMNEXT2; +if(!qbevent)break;evnt(8864);}while(r); +} +do{ +*__INTEGER_DIMOPTION= 0 ; +if(!qbevent)break;evnt(8867);}while(r); +do{ +*__INTEGER_DIMSHARED= 0 ; +if(!qbevent)break;evnt(8868);}while(r); +do{ +*__INTEGER_REDIMOPTION= 0 ; +if(!qbevent)break;evnt(8869);}while(r); +S_10824:; +if ((-(*__LONG_DIMSTATIC== 1 ))||new_error){ +if(qbevent){evnt(8870);if(r)goto S_10824;} +do{ +*__LONG_DIMSTATIC= 0 ; +if(!qbevent)break;evnt(8870);}while(r); +} +do{ +*__LONG_ALLOWLOCALNAME= 0 ; +if(!qbevent)break;evnt(8871);}while(r); +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(8873);}while(r); +S_10829:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||new_error){ +if(qbevent){evnt(8874);if(r)goto S_10829;} +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8874);}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(8874);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(8876);}while(r); +} +} +} +S_10838:; +if ((-(*__LONG_THENGOTO== 1 ))||new_error){ +if(qbevent){evnt(8892);if(r)goto S_10838;} +S_10839:; +if ((-(*__LONG_N== 1 ))||new_error){ +if(qbevent){evnt(8893);if(r)goto S_10839;} +do{ +qbs_set(__STRING_L,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8894);}while(r); +do{ +*__LONG_A=qbs_asc(qbs_left(__STRING_FIRSTELEMENT, 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8895);}while(r); +S_10842:; +if (((-(*__LONG_A== 46 ))|(((-(*__LONG_A>= 48 ))&(-(*__LONG_A<= 57 )))))||new_error){ +if(qbevent){evnt(8896);if(r)goto S_10842;} +do{ +qbs_set(__STRING_A2,__STRING_CA); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8896);}while(r); +do{ +goto LABEL_THENGOTO; +if(!qbevent)break;evnt(8896);}while(r); +} +} +} +S_10848:; +if ((-(*__LONG_N== 2 ))||new_error){ +if(qbevent){evnt(8901);if(r)goto S_10848;} +S_10849:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass1244= 1 )),qbs_new_txt_len("GOTO",4))))||new_error){ +if(qbevent){evnt(8902);if(r)goto S_10849;} +do{ +qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("GoTo",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8903);}while(r); +do{ +qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,&(pass1245= 2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8904);}while(r); +LABEL_THENGOTO:; +if(qbevent){evnt(8905);r=0;} +S_10852:; +if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(__STRING_A2)== 0 )))||new_error){ +if(qbevent){evnt(8906);if(r)goto S_10852;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Invalid label!",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8906);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8906);}while(r); +} +do{ +*__LONG_V=FUNC_HASHFIND(__STRING_A2,&(pass1246= 2 ),__LONG_IGNORE,__LONG_R); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8908);}while(r); +do{ +*__LONG_X= 1 ; +if(!qbevent)break;evnt(8909);}while(r); +LABEL_LABCHK2:; +if(qbevent){evnt(8910);r=0;} +S_10858:; +if ((*__LONG_V)||new_error){ +if(qbevent){evnt(8911);if(r)goto S_10858;} +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(8912);}while(r); +S_10860:; +if (((-(*__LONG_S==*__LONG_SUBFUNCN))|(-(*__LONG_S== -1 )))||new_error){ +if(qbevent){evnt(8913);if(r)goto S_10860;} +S_10861:; +if ((-(*__LONG_S== -1 ))||new_error){ +if(qbevent){evnt(8914);if(r)goto S_10861;} +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(8914);}while(r); +} +do{ +*__LONG_X= 0 ; +if(!qbevent)break;evnt(8915);}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(8916);}while(r); +}else{ +S_10867:; +if ((-(*__LONG_V== 2 ))||new_error){ +if(qbevent){evnt(8918);if(r)goto S_10867;} +do{ +*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R); +if(!qbevent)break;evnt(8918);}while(r); +do{ +goto LABEL_LABCHK2; +if(!qbevent)break;evnt(8918);}while(r); +} +} +} +S_10873:; +if ((*__LONG_X)||new_error){ +if(qbevent){evnt(8921);if(r)goto S_10873;} +do{ +*__LONG_NLABELS=*__LONG_NLABELS+ 1 ; +if(!qbevent)break;evnt(8923);}while(r); +S_10875:; +if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||new_error){ +if(qbevent){evnt(8923);if(r)goto S_10875;} +do{ +*__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ; +if(!qbevent)break;evnt(8923);}while(r); +do{ if (__ARRAY_UDT_LABELS[2]&2){ error(10); @@ -36512,370 +36512,370 @@ if (!__ARRAY_UDT_LABELS[0]) error(257); } } __ARRAY_UDT_LABELS[2]|=1; -} -if(!qbevent)break;evnt(8923);}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(8924);}while(r); -do{ -SUB_HASHADD(__STRING_A2,&(pass1247= 2 ),__LONG_NLABELS); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8925);}while(r); -do{ -*__LONG_R=*__LONG_NLABELS; -if(!qbevent)break;evnt(8926);}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(8927);}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(8928);}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(8929);}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(8930);}while(r); -} -S_10887:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_L->len))||new_error){ -if(qbevent){evnt(8933);if(r)goto S_10887;} -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(8933);}while(r); -}else{ -do{ -qbs_set(__STRING_L,__STRING_TLAYOUT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8933);}while(r); -} -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(8934);}while(r); -S_10893:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(8934);if(r)goto S_10893;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8934);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8934);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass1250=*__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(8935);}while(r); -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(8936);}while(r); -} -} -S_10902:; -if ((-(*__LONG_N== 1 ))||new_error){ -if(qbevent){evnt(8940);if(r)goto S_10902;} -S_10903:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_CONTINUE",9)))|(((qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("CONTINUE",8)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ -if(qbevent){evnt(8941);if(r)goto S_10903;} -S_10904:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_CONTINUE",9))))||new_error){ -if(qbevent){evnt(8942);if(r)goto S_10904;} -do{ -qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("_Continue",9))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8942);}while(r); -}else{ -do{ -qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Continue",8))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8942);}while(r); -} -S_10909:; -fornext_value1252=*__INTEGER_CONTROLLEVEL; -fornext_finalvalue1252= 1 ; -fornext_step1252= -1 ; -if (fornext_step1252<0) fornext_step_negative1252=1; else fornext_step_negative1252=0; -if (new_error) goto fornext_error1252; -goto fornext_entrylabel1252; -while(1){ -fornext_value1252=fornext_step1252+(*__LONG_I); -fornext_entrylabel1252: -*__LONG_I=fornext_value1252; -if (fornext_step_negative1252){ -if (fornext_value1252fornext_finalvalue1252) break; -} -fornext_error1252:; -if(qbevent){evnt(8944);if(r)goto S_10909;} -do{ -*__LONG_T=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__LONG_I)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]; -if(!qbevent)break;evnt(8945);}while(r); -S_10911:; -if ((-(*__LONG_T== 2 ))||new_error){ -if(qbevent){evnt(8946);if(r)goto S_10911;} -do{ -SUB_WRITEBUFLINE(&(pass1253=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("goto fornext_continue_",22),FUNC_STR2((&(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__LONG_I)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])])))),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8947);}while(r); -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(8948);}while(r); -S_10914:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(8948);if(r)goto S_10914;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8948);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8948);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(8949);}while(r); -S_10920:; -}else{ -if ((-(*__LONG_T== 3 ))|(-(*__LONG_T== 4 ))){ -if(qbevent){evnt(8950);if(r)goto S_10920;} -do{ -SUB_WRITEBUFLINE(&(pass1255=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("goto dl_continue_",17),FUNC_STR2((&(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__LONG_I)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])])))),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8951);}while(r); -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(8952);}while(r); -S_10923:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(8952);if(r)goto S_10923;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8952);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8952);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(8953);}while(r); -S_10929:; -}else{ -if (-(*__LONG_T== 5 )){ -if(qbevent){evnt(8954);if(r)goto S_10929;} -do{ -SUB_WRITEBUFLINE(&(pass1257=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("goto ww_continue_",17),FUNC_STR2((&(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__LONG_I)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])])))),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8955);}while(r); -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(8956);}while(r); -S_10932:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(8956);if(r)goto S_10932;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8956);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8956);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(8957);}while(r); -} -} -} -fornext_continue_1251:; -} -fornext_exit_1251:; -do{ -qbs_set(__STRING_A,qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("CONTINUE outside DO..LOOP/FOR..NEXT/WHILE..WEND block",53))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8960);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8960);}while(r); -} -} -S_10944:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("CHAIN",5))))||new_error){ -if(qbevent){evnt(8964);if(r)goto S_10944;} -S_10945:; -if ((*__LONG_VWATCHON)||new_error){ -if(qbevent){evnt(8965);if(r)goto S_10945;} -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(8966);}while(r); -} -} -S_10949:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("RUN",3))))||new_error){ -if(qbevent){evnt(8970);if(r)goto S_10949;} -S_10950:; -if ((*__LONG_VWATCHON)||new_error){ -if(qbevent){evnt(8971);if(r)goto S_10950;} -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(8972);}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(8974);}while(r); -S_10954:; -if ((-(*__LONG_N== 1 ))||new_error){ -if(qbevent){evnt(8975);if(r)goto S_10954;} -do{ -SUB_WRITEBUFLINE(&(pass1259=*__LONG_MAINTXTBUF),qbs_new_txt_len("sub_run_init();",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8977);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1260=*__LONG_MAINTXTBUF),qbs_new_txt_len("sub_clear(NULL,NULL,NULL,NULL);",31)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8978);}while(r); -S_10957:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_SUBFUNC->len))||new_error){ -if(qbevent){evnt(8979);if(r)goto S_10957;} -do{ -SUB_WRITEBUFLINE(&(pass1262=*__LONG_MAINTXTBUF),qbs_new_txt_len("QBMAIN(NULL);",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8980);}while(r); -}else{ -do{ -SUB_WRITEBUFLINE(&(pass1263=*__LONG_MAINTXTBUF),qbs_new_txt_len("goto S_0;",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8982);}while(r); -} -}else{ -do{ -qbs_set(__STRING_E,FUNC_GETELEMENTS(__STRING_CA,&(pass1264= 2 ),__LONG_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8986);}while(r); -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8987);}while(r); -S_10965:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(8988);if(r)goto S_10965;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8988);}while(r); -} -do{ -qbs_set(__STRING_L2,__STRING_TLAYOUT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8989);}while(r); -do{ -qbs_set(__STRING_IGNORE,FUNC_EVALUATE(__STRING_E,__LONG_TYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8990);}while(r); -S_10970:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(8991);if(r)goto S_10970;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8991);}while(r); -} -S_10973:; -if (((-(*__LONG_N== 2 ))&((-((*__LONG_TYP&*__LONG_ISSTRING)== 0 ))))||new_error){ -if(qbevent){evnt(8992);if(r)goto S_10973;} -do{ -qbs_set(__STRING_LBL,FUNC_GETELEMENT(__STRING_CA,&(pass1265= 2 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8994);}while(r); -S_10975:; -if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(__STRING_LBL)== 0 )))||new_error){ -if(qbevent){evnt(8995);if(r)goto S_10975;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Invalid label!",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8995);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(8995);}while(r); -} -do{ -*__LONG_V=FUNC_HASHFIND(__STRING_LBL,&(pass1266= 2 ),__LONG_IGNORE,__LONG_R); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(8997);}while(r); -do{ -*__LONG_X= 1 ; -if(!qbevent)break;evnt(8998);}while(r); -LABEL_LABCHK501:; -if(qbevent){evnt(8999);r=0;} -S_10981:; -if ((*__LONG_V)||new_error){ -if(qbevent){evnt(9000);if(r)goto S_10981;} -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(9001);}while(r); -S_10983:; -if (((-(*__LONG_S== 0 ))|(-(*__LONG_S== -1 )))||new_error){ -if(qbevent){evnt(9002);if(r)goto S_10983;} -S_10984:; -if ((-(*__LONG_S== -1 ))||new_error){ -if(qbevent){evnt(9003);if(r)goto S_10984;} -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(9003);}while(r); -} -do{ -*__LONG_X= 0 ; -if(!qbevent)break;evnt(9004);}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(9005);}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(9006);}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(9007);}while(r); -}else{ -S_10992:; -if ((-(*__LONG_V== 2 ))||new_error){ -if(qbevent){evnt(9009);if(r)goto S_10992;} -do{ -*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R); -if(!qbevent)break;evnt(9009);}while(r); -do{ -goto LABEL_LABCHK501; -if(!qbevent)break;evnt(9009);}while(r); -} -} -} -S_10998:; -if ((*__LONG_X)||new_error){ -if(qbevent){evnt(9012);if(r)goto S_10998;} -do{ -*__LONG_NLABELS=*__LONG_NLABELS+ 1 ; -if(!qbevent)break;evnt(9014);}while(r); -S_11000:; -if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||new_error){ -if(qbevent){evnt(9014);if(r)goto S_11000;} -do{ -*__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ; -if(!qbevent)break;evnt(9014);}while(r); -do{ +} +if(!qbevent)break;evnt(8923);}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(8924);}while(r); +do{ +SUB_HASHADD(__STRING_A2,&(pass1247= 2 ),__LONG_NLABELS); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8925);}while(r); +do{ +*__LONG_R=*__LONG_NLABELS; +if(!qbevent)break;evnt(8926);}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(8927);}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(8928);}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(8929);}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(8930);}while(r); +} +S_10887:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_L->len))||new_error){ +if(qbevent){evnt(8933);if(r)goto S_10887;} +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(8933);}while(r); +}else{ +do{ +qbs_set(__STRING_L,__STRING_TLAYOUT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8933);}while(r); +} +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(8934);}while(r); +S_10893:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(8934);if(r)goto S_10893;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8934);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8934);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass1250=*__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(8935);}while(r); +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(8936);}while(r); +} +} +S_10902:; +if ((-(*__LONG_N== 1 ))||new_error){ +if(qbevent){evnt(8940);if(r)goto S_10902;} +S_10903:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_CONTINUE",9)))|(((qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("CONTINUE",8)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ +if(qbevent){evnt(8941);if(r)goto S_10903;} +S_10904:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_CONTINUE",9))))||new_error){ +if(qbevent){evnt(8942);if(r)goto S_10904;} +do{ +qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("_Continue",9))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8942);}while(r); +}else{ +do{ +qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Continue",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8942);}while(r); +} +S_10909:; +fornext_value1252=*__INTEGER_CONTROLLEVEL; +fornext_finalvalue1252= 1 ; +fornext_step1252= -1 ; +if (fornext_step1252<0) fornext_step_negative1252=1; else fornext_step_negative1252=0; +if (new_error) goto fornext_error1252; +goto fornext_entrylabel1252; +while(1){ +fornext_value1252=fornext_step1252+(*__LONG_I); +fornext_entrylabel1252: +*__LONG_I=fornext_value1252; +if (fornext_step_negative1252){ +if (fornext_value1252fornext_finalvalue1252) break; +} +fornext_error1252:; +if(qbevent){evnt(8944);if(r)goto S_10909;} +do{ +*__LONG_T=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__LONG_I)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]; +if(!qbevent)break;evnt(8945);}while(r); +S_10911:; +if ((-(*__LONG_T== 2 ))||new_error){ +if(qbevent){evnt(8946);if(r)goto S_10911;} +do{ +SUB_WRITEBUFLINE(&(pass1253=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("goto fornext_continue_",22),FUNC_STR2((&(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__LONG_I)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])])))),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8947);}while(r); +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(8948);}while(r); +S_10914:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(8948);if(r)goto S_10914;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8948);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8948);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(8949);}while(r); +S_10920:; +}else{ +if ((-(*__LONG_T== 3 ))|(-(*__LONG_T== 4 ))){ +if(qbevent){evnt(8950);if(r)goto S_10920;} +do{ +SUB_WRITEBUFLINE(&(pass1255=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("goto dl_continue_",17),FUNC_STR2((&(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__LONG_I)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])])))),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8951);}while(r); +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(8952);}while(r); +S_10923:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(8952);if(r)goto S_10923;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8952);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8952);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(8953);}while(r); +S_10929:; +}else{ +if (-(*__LONG_T== 5 )){ +if(qbevent){evnt(8954);if(r)goto S_10929;} +do{ +SUB_WRITEBUFLINE(&(pass1257=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("goto ww_continue_",17),FUNC_STR2((&(((int32*)(__ARRAY_LONG_CONTROLID[0]))[array_check((*__LONG_I)-__ARRAY_LONG_CONTROLID[4],__ARRAY_LONG_CONTROLID[5])])))),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8955);}while(r); +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(8956);}while(r); +S_10932:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(8956);if(r)goto S_10932;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8956);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8956);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(8957);}while(r); +} +} +} +fornext_continue_1251:; +} +fornext_exit_1251:; +do{ +qbs_set(__STRING_A,qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("CONTINUE outside DO..LOOP/FOR..NEXT/WHILE..WEND block",53))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8960);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8960);}while(r); +} +} +S_10944:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("CHAIN",5))))||new_error){ +if(qbevent){evnt(8964);if(r)goto S_10944;} +S_10945:; +if ((*__LONG_VWATCHON)||new_error){ +if(qbevent){evnt(8965);if(r)goto S_10945;} +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(8966);}while(r); +} +} +S_10949:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("RUN",3))))||new_error){ +if(qbevent){evnt(8970);if(r)goto S_10949;} +S_10950:; +if ((*__LONG_VWATCHON)||new_error){ +if(qbevent){evnt(8971);if(r)goto S_10950;} +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(8972);}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(8974);}while(r); +S_10954:; +if ((-(*__LONG_N== 1 ))||new_error){ +if(qbevent){evnt(8975);if(r)goto S_10954;} +do{ +SUB_WRITEBUFLINE(&(pass1259=*__LONG_MAINTXTBUF),qbs_new_txt_len("sub_run_init();",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8977);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1260=*__LONG_MAINTXTBUF),qbs_new_txt_len("sub_clear(NULL,NULL,NULL,NULL);",31)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8978);}while(r); +S_10957:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_SUBFUNC->len))||new_error){ +if(qbevent){evnt(8979);if(r)goto S_10957;} +do{ +SUB_WRITEBUFLINE(&(pass1262=*__LONG_MAINTXTBUF),qbs_new_txt_len("QBMAIN(NULL);",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8980);}while(r); +}else{ +do{ +SUB_WRITEBUFLINE(&(pass1263=*__LONG_MAINTXTBUF),qbs_new_txt_len("goto S_0;",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8982);}while(r); +} +}else{ +do{ +qbs_set(__STRING_E,FUNC_GETELEMENTS(__STRING_CA,&(pass1264= 2 ),__LONG_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8986);}while(r); +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8987);}while(r); +S_10965:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(8988);if(r)goto S_10965;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8988);}while(r); +} +do{ +qbs_set(__STRING_L2,__STRING_TLAYOUT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8989);}while(r); +do{ +qbs_set(__STRING_IGNORE,FUNC_EVALUATE(__STRING_E,__LONG_TYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8990);}while(r); +S_10970:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(8991);if(r)goto S_10970;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8991);}while(r); +} +S_10973:; +if (((-(*__LONG_N== 2 ))&((-((*__LONG_TYP&*__LONG_ISSTRING)== 0 ))))||new_error){ +if(qbevent){evnt(8992);if(r)goto S_10973;} +do{ +qbs_set(__STRING_LBL,FUNC_GETELEMENT(__STRING_CA,&(pass1265= 2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8994);}while(r); +S_10975:; +if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(__STRING_LBL)== 0 )))||new_error){ +if(qbevent){evnt(8995);if(r)goto S_10975;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Invalid label!",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8995);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(8995);}while(r); +} +do{ +*__LONG_V=FUNC_HASHFIND(__STRING_LBL,&(pass1266= 2 ),__LONG_IGNORE,__LONG_R); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(8997);}while(r); +do{ +*__LONG_X= 1 ; +if(!qbevent)break;evnt(8998);}while(r); +LABEL_LABCHK501:; +if(qbevent){evnt(8999);r=0;} +S_10981:; +if ((*__LONG_V)||new_error){ +if(qbevent){evnt(9000);if(r)goto S_10981;} +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(9001);}while(r); +S_10983:; +if (((-(*__LONG_S== 0 ))|(-(*__LONG_S== -1 )))||new_error){ +if(qbevent){evnt(9002);if(r)goto S_10983;} +S_10984:; +if ((-(*__LONG_S== -1 ))||new_error){ +if(qbevent){evnt(9003);if(r)goto S_10984;} +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(9003);}while(r); +} +do{ +*__LONG_X= 0 ; +if(!qbevent)break;evnt(9004);}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(9005);}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(9006);}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(9007);}while(r); +}else{ +S_10992:; +if ((-(*__LONG_V== 2 ))||new_error){ +if(qbevent){evnt(9009);if(r)goto S_10992;} +do{ +*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R); +if(!qbevent)break;evnt(9009);}while(r); +do{ +goto LABEL_LABCHK501; +if(!qbevent)break;evnt(9009);}while(r); +} +} +} +S_10998:; +if ((*__LONG_X)||new_error){ +if(qbevent){evnt(9012);if(r)goto S_10998;} +do{ +*__LONG_NLABELS=*__LONG_NLABELS+ 1 ; +if(!qbevent)break;evnt(9014);}while(r); +S_11000:; +if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||new_error){ +if(qbevent){evnt(9014);if(r)goto S_11000;} +do{ +*__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ; +if(!qbevent)break;evnt(9014);}while(r); +do{ if (__ARRAY_UDT_LABELS[2]&2){ error(10); @@ -36913,611 +36913,611 @@ if (!__ARRAY_UDT_LABELS[0]) error(257); } } __ARRAY_UDT_LABELS[2]|=1; -} -if(!qbevent)break;evnt(9014);}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(9015);}while(r); -do{ -SUB_HASHADD(__STRING_LBL,&(pass1267= 2 ),__LONG_NLABELS); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9016);}while(r); -do{ -*__LONG_R=*__LONG_NLABELS; -if(!qbevent)break;evnt(9017);}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(9018);}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(9019);}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(9020);}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(9021);}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(9022);}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(9025);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1268=*__LONG_MAINTXTBUF),qbs_new_txt_len("sub_run_init();",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9026);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1269=*__LONG_MAINTXTBUF),qbs_new_txt_len("sub_clear(NULL,NULL,NULL,NULL);",31)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9027);}while(r); -S_11016:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_SUBFUNC->len))||new_error){ -if(qbevent){evnt(9028);if(r)goto S_11016;} -do{ -SUB_WRITEBUFLINE(&(pass1271=*__LONG_RUNTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (run_from_line==",19),FUNC_STR2(__LONG_NEXTRUNLINEINDEX)),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(9029);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1272=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("run_from_line=",14),FUNC_STR2(__LONG_NEXTRUNLINEINDEX)),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9030);}while(r); -do{ -*__LONG_NEXTRUNLINEINDEX=*__LONG_NEXTRUNLINEINDEX+ 1 ; -if(!qbevent)break;evnt(9031);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1273=*__LONG_MAINTXTBUF),qbs_new_txt_len("QBMAIN(NULL);",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9032);}while(r); -}else{ -do{ -SUB_WRITEBUFLINE(&(pass1274=*__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(9034);}while(r); -} -}else{ -do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,__LONG_ISSTRING)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9038);}while(r); -S_11026:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9039);if(r)goto S_11026;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9039);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass1275=*__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(9040);}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(9041);}while(r); -} -} -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(9044);}while(r); -S_11034:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(9044);if(r)goto S_11034;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9044);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9044);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(9045);}while(r); -} -S_11041:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("END",3))))||new_error){ -if(qbevent){evnt(9052);if(r)goto S_11041;} -do{ -qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("End",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9053);}while(r); -S_11043:; -if ((-(*__LONG_N> 1 ))||new_error){ -if(qbevent){evnt(9054);if(r)goto S_11043;} -do{ -qbs_set(__STRING_E,FUNC_GETELEMENTS(__STRING_CA,&(pass1277= 2 ),__LONG_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9055);}while(r); -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9056);}while(r); -S_11046:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9056);if(r)goto S_11046;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9056);}while(r); -} -do{ -qbs_set(__STRING_L2,__STRING_TLAYOUT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9057);}while(r); -do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,__LONG_ISINTEGER64)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9058);}while(r); -S_11051:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9058);if(r)goto S_11051;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9058);}while(r); -} -do{ -qbs_set(__STRING_INCLINENUMP,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9059);}while(r); -S_11055:; -if ((((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])||new_error){ -if(qbevent){evnt(9060);if(r)goto S_11055;} -do{ -qbs_set(__STRING_INCLINENUMP,qbs_add(qbs_new_txt_len(",",1),FUNC_STR2((&(((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(9061);}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(9062);}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(9063);}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(9064);}while(r); -} -S_11061:; -if ((*__LONG_VWATCHON&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||new_error){ -if(qbevent){evnt(9066);if(r)goto S_11061;} -do{ -qbs_set(__STRING_TEMP,__STRING_VWATCHERRORCALL); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9066);}while(r); -}else{ -do{ -qbs_set(__STRING_TEMP,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9066);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass1279=*__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)),FUNC_STR2(__LONG_LINENUMBER)),__STRING_INCLINENUMP),qbs_new_txt_len(");}",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9067);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1280=*__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(9068);}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(9069);}while(r); -} -do{ -SUB_XEND(); -if(!qbevent)break;evnt(9071);}while(r); -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(9072);}while(r); -S_11072:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(9072);if(r)goto S_11072;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9072);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9072);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(9073);}while(r); -} -S_11079:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("SYSTEM",6))))||new_error){ -if(qbevent){evnt(9076);if(r)goto S_11079;} -do{ -qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("System",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9077);}while(r); -S_11081:; -if ((-(*__LONG_N> 1 ))||new_error){ -if(qbevent){evnt(9078);if(r)goto S_11081;} -do{ -qbs_set(__STRING_E,FUNC_GETELEMENTS(__STRING_CA,&(pass1282= 2 ),__LONG_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9079);}while(r); -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9080);}while(r); -S_11084:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9080);if(r)goto S_11084;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9080);}while(r); -} -do{ -qbs_set(__STRING_L2,__STRING_TLAYOUT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9081);}while(r); -do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,__LONG_ISINTEGER64)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9082);}while(r); -S_11089:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9082);if(r)goto S_11089;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9082);}while(r); -} -do{ -qbs_set(__STRING_INCLINENUMP,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9083);}while(r); -S_11093:; -if ((((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])||new_error){ -if(qbevent){evnt(9084);if(r)goto S_11093;} -do{ -qbs_set(__STRING_INCLINENUMP,qbs_add(qbs_new_txt_len(",",1),FUNC_STR2((&(((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(9085);}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(9086);}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(9087);}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(9088);}while(r); -} -S_11099:; -if (((-(*__LONG_VWATCHON== 1 ))&(-(*__LONG_NOCHECKS== 0 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||new_error){ -if(qbevent){evnt(9090);if(r)goto S_11099;} -do{ -qbs_set(__STRING_TEMP,__STRING_VWATCHERRORCALL); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9090);}while(r); -}else{ -do{ -qbs_set(__STRING_TEMP,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9090);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass1284=*__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)),FUNC_STR2(__LONG_LINENUMBER)),__STRING_INCLINENUMP),qbs_new_txt_len(");}",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9091);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1285=*__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(9092);}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(9093);}while(r); -} -S_11108:; -if ((-(*__LONG_VWATCHON== 1 ))||new_error){ -if(qbevent){evnt(9097);if(r)goto S_11108;} -S_11109:; -if ((-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 ))||new_error){ -if(qbevent){evnt(9098);if(r)goto S_11109;} -do{ -SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass1286= 0 )); -if(!qbevent)break;evnt(9099);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass1287=*__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(9101);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass1288=*__LONG_MAINTXTBUF),qbs_new_txt_len("if (sub_gl_called) error(271);",30)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9103);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1289=*__LONG_MAINTXTBUF),qbs_new_txt_len("close_program=1;",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9104);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1290=*__LONG_MAINTXTBUF),qbs_new_txt_len("end();",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9105);}while(r); -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(9106);}while(r); -S_11118:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(9106);if(r)goto S_11118;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9106);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9106);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(9107);}while(r); -} -S_11125:; -if ((-(*__LONG_N>= 1 ))||new_error){ -if(qbevent){evnt(9110);if(r)goto S_11125;} -S_11126:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("STOP",4))))||new_error){ -if(qbevent){evnt(9111);if(r)goto S_11126;} -do{ -qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Stop",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9112);}while(r); -S_11128:; -if ((-(*__LONG_N> 1 ))||new_error){ -if(qbevent){evnt(9113);if(r)goto S_11128;} -do{ -qbs_set(__STRING_E,FUNC_GETELEMENTS(__STRING_CA,&(pass1292= 2 ),__LONG_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9114);}while(r); -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9115);}while(r); -S_11131:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9116);if(r)goto S_11131;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9116);}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(9117);}while(r); -do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1293= 64 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9118);}while(r); -S_11136:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9119);if(r)goto S_11136;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9119);}while(r); -} -} -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(9122);}while(r); -S_11141:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(9122);if(r)goto S_11141;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9122);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9122);}while(r); -} -S_11146:; -if (((-(*__LONG_VWATCHON== 1 ))&(-(*__LONG_NOCHECKS== 0 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||new_error){ -if(qbevent){evnt(9123);if(r)goto S_11146;} -do{ -SUB_WRITEBUFLINE(&(pass1295=*__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(9124);}while(r); -do{ -SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass1296= 0 )); -if(!qbevent)break;evnt(9125);}while(r); -}else{ -do{ -SUB_WRITEBUFLINE(&(pass1297=*__LONG_MAINTXTBUF),qbs_new_txt_len("close_program=1;",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9127);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1298=*__LONG_MAINTXTBUF),qbs_new_txt_len("end();",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9128);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(9130);}while(r); -} -} -S_11156:; -if ((-(*__LONG_N== 2 ))||new_error){ -if(qbevent){evnt(9134);if(r)goto S_11156;} -S_11157:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("GOSUB",5))))||new_error){ -if(qbevent){evnt(9135);if(r)goto S_11157;} -do{ -SUB_XGOSUB(__STRING_CA); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9136);}while(r); -S_11159:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9137);if(r)goto S_11159;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9137);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(9139);}while(r); -} -} -S_11165:; -if ((-(*__LONG_N>= 1 ))||new_error){ -if(qbevent){evnt(9143);if(r)goto S_11165;} -S_11166:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("RETURN",6))))||new_error){ -if(qbevent){evnt(9144);if(r)goto S_11166;} -S_11167:; -if ((-(*__LONG_N== 1 ))||new_error){ -if(qbevent){evnt(9145);if(r)goto S_11167;} -do{ -SUB_WRITEBUFLINE(&(pass1299=*__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)),FUNC_STR2(__LONG_SUBFUNCN)),qbs_new_txt_len(".txt",4)),func_chr( 34 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9146);}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(9147);}while(r); -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(9148);}while(r); -S_11171:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(9148);if(r)goto S_11171;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9148);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9148);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(9149);}while(r); -}else{ -S_11178:; -if ((-(*__LONG_SUBFUNCN!= 0 ))||new_error){ -if(qbevent){evnt(9152);if(r)goto S_11178;} -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(9152);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9152);}while(r); -} -S_11182:; -if ((-(*__LONG_N> 2 ))||new_error){ -if(qbevent){evnt(9153);if(r)goto S_11182;} -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(9153);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9153);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass1301=*__LONG_MAINTXTBUF),qbs_new_txt_len("if (!next_return_point) error(3);",33)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9154);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1302=*__LONG_MAINTXTBUF),qbs_new_txt_len("next_return_point--;",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9155);}while(r); -do{ -qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,&(pass1303= 2 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9156);}while(r); -S_11189:; -if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(__STRING_A2)== 0 )))||new_error){ -if(qbevent){evnt(9157);if(r)goto S_11189;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Invalid label!",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9157);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9157);}while(r); -} -do{ -*__LONG_V=FUNC_HASHFIND(__STRING_A2,&(pass1304= 2 ),__LONG_IGNORE,__LONG_R); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9159);}while(r); -do{ -*__LONG_X= 1 ; -if(!qbevent)break;evnt(9160);}while(r); -LABEL_LABCHK505:; -if(qbevent){evnt(9161);r=0;} -S_11195:; -if ((*__LONG_V)||new_error){ -if(qbevent){evnt(9162);if(r)goto S_11195;} -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(9163);}while(r); -S_11197:; -if (((-(*__LONG_S==*__LONG_SUBFUNCN))|(-(*__LONG_S== -1 )))||new_error){ -if(qbevent){evnt(9164);if(r)goto S_11197;} -S_11198:; -if ((-(*__LONG_S== -1 ))||new_error){ -if(qbevent){evnt(9165);if(r)goto S_11198;} -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(9165);}while(r); -} -do{ -*__LONG_X= 0 ; -if(!qbevent)break;evnt(9166);}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(9167);}while(r); -}else{ -S_11204:; -if ((-(*__LONG_V== 2 ))||new_error){ -if(qbevent){evnt(9169);if(r)goto S_11204;} -do{ -*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R); -if(!qbevent)break;evnt(9169);}while(r); -do{ -goto LABEL_LABCHK505; -if(!qbevent)break;evnt(9169);}while(r); -} -} -} -S_11210:; -if ((*__LONG_X)||new_error){ -if(qbevent){evnt(9172);if(r)goto S_11210;} -do{ -*__LONG_NLABELS=*__LONG_NLABELS+ 1 ; -if(!qbevent)break;evnt(9174);}while(r); -S_11212:; -if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||new_error){ -if(qbevent){evnt(9174);if(r)goto S_11212;} -do{ -*__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ; -if(!qbevent)break;evnt(9174);}while(r); -do{ +} +if(!qbevent)break;evnt(9014);}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(9015);}while(r); +do{ +SUB_HASHADD(__STRING_LBL,&(pass1267= 2 ),__LONG_NLABELS); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9016);}while(r); +do{ +*__LONG_R=*__LONG_NLABELS; +if(!qbevent)break;evnt(9017);}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(9018);}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(9019);}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(9020);}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(9021);}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(9022);}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(9025);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1268=*__LONG_MAINTXTBUF),qbs_new_txt_len("sub_run_init();",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9026);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1269=*__LONG_MAINTXTBUF),qbs_new_txt_len("sub_clear(NULL,NULL,NULL,NULL);",31)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9027);}while(r); +S_11016:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_SUBFUNC->len))||new_error){ +if(qbevent){evnt(9028);if(r)goto S_11016;} +do{ +SUB_WRITEBUFLINE(&(pass1271=*__LONG_RUNTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (run_from_line==",19),FUNC_STR2(__LONG_NEXTRUNLINEINDEX)),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(9029);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1272=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("run_from_line=",14),FUNC_STR2(__LONG_NEXTRUNLINEINDEX)),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9030);}while(r); +do{ +*__LONG_NEXTRUNLINEINDEX=*__LONG_NEXTRUNLINEINDEX+ 1 ; +if(!qbevent)break;evnt(9031);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1273=*__LONG_MAINTXTBUF),qbs_new_txt_len("QBMAIN(NULL);",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9032);}while(r); +}else{ +do{ +SUB_WRITEBUFLINE(&(pass1274=*__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(9034);}while(r); +} +}else{ +do{ +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,__LONG_ISSTRING)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9038);}while(r); +S_11026:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9039);if(r)goto S_11026;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9039);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass1275=*__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(9040);}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(9041);}while(r); +} +} +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(9044);}while(r); +S_11034:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(9044);if(r)goto S_11034;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9044);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9044);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(9045);}while(r); +} +S_11041:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("END",3))))||new_error){ +if(qbevent){evnt(9052);if(r)goto S_11041;} +do{ +qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("End",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9053);}while(r); +S_11043:; +if ((-(*__LONG_N> 1 ))||new_error){ +if(qbevent){evnt(9054);if(r)goto S_11043;} +do{ +qbs_set(__STRING_E,FUNC_GETELEMENTS(__STRING_CA,&(pass1277= 2 ),__LONG_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9055);}while(r); +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9056);}while(r); +S_11046:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9056);if(r)goto S_11046;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9056);}while(r); +} +do{ +qbs_set(__STRING_L2,__STRING_TLAYOUT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9057);}while(r); +do{ +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,__LONG_ISINTEGER64)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9058);}while(r); +S_11051:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9058);if(r)goto S_11051;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9058);}while(r); +} +do{ +qbs_set(__STRING_INCLINENUMP,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9059);}while(r); +S_11055:; +if ((((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])||new_error){ +if(qbevent){evnt(9060);if(r)goto S_11055;} +do{ +qbs_set(__STRING_INCLINENUMP,qbs_add(qbs_new_txt_len(",",1),FUNC_STR2((&(((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(9061);}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(9062);}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(9063);}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(9064);}while(r); +} +S_11061:; +if ((*__LONG_VWATCHON&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||new_error){ +if(qbevent){evnt(9066);if(r)goto S_11061;} +do{ +qbs_set(__STRING_TEMP,__STRING_VWATCHERRORCALL); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9066);}while(r); +}else{ +do{ +qbs_set(__STRING_TEMP,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9066);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass1279=*__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)),FUNC_STR2(__LONG_LINENUMBER)),__STRING_INCLINENUMP),qbs_new_txt_len(");}",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9067);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1280=*__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(9068);}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(9069);}while(r); +} +do{ +SUB_XEND(); +if(!qbevent)break;evnt(9071);}while(r); +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(9072);}while(r); +S_11072:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(9072);if(r)goto S_11072;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9072);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9072);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(9073);}while(r); +} +S_11079:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("SYSTEM",6))))||new_error){ +if(qbevent){evnt(9076);if(r)goto S_11079;} +do{ +qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("System",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9077);}while(r); +S_11081:; +if ((-(*__LONG_N> 1 ))||new_error){ +if(qbevent){evnt(9078);if(r)goto S_11081;} +do{ +qbs_set(__STRING_E,FUNC_GETELEMENTS(__STRING_CA,&(pass1282= 2 ),__LONG_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9079);}while(r); +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9080);}while(r); +S_11084:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9080);if(r)goto S_11084;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9080);}while(r); +} +do{ +qbs_set(__STRING_L2,__STRING_TLAYOUT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9081);}while(r); +do{ +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,__LONG_ISINTEGER64)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9082);}while(r); +S_11089:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9082);if(r)goto S_11089;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9082);}while(r); +} +do{ +qbs_set(__STRING_INCLINENUMP,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9083);}while(r); +S_11093:; +if ((((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])||new_error){ +if(qbevent){evnt(9084);if(r)goto S_11093;} +do{ +qbs_set(__STRING_INCLINENUMP,qbs_add(qbs_new_txt_len(",",1),FUNC_STR2((&(((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(9085);}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(9086);}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(9087);}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(9088);}while(r); +} +S_11099:; +if (((-(*__LONG_VWATCHON== 1 ))&(-(*__LONG_NOCHECKS== 0 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||new_error){ +if(qbevent){evnt(9090);if(r)goto S_11099;} +do{ +qbs_set(__STRING_TEMP,__STRING_VWATCHERRORCALL); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9090);}while(r); +}else{ +do{ +qbs_set(__STRING_TEMP,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9090);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass1284=*__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)),FUNC_STR2(__LONG_LINENUMBER)),__STRING_INCLINENUMP),qbs_new_txt_len(");}",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9091);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1285=*__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(9092);}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(9093);}while(r); +} +S_11108:; +if ((-(*__LONG_VWATCHON== 1 ))||new_error){ +if(qbevent){evnt(9097);if(r)goto S_11108;} +S_11109:; +if ((-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 ))||new_error){ +if(qbevent){evnt(9098);if(r)goto S_11109;} +do{ +SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass1286= 0 )); +if(!qbevent)break;evnt(9099);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass1287=*__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(9101);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass1288=*__LONG_MAINTXTBUF),qbs_new_txt_len("if (sub_gl_called) error(271);",30)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9103);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1289=*__LONG_MAINTXTBUF),qbs_new_txt_len("close_program=1;",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9104);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1290=*__LONG_MAINTXTBUF),qbs_new_txt_len("end();",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9105);}while(r); +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(9106);}while(r); +S_11118:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(9106);if(r)goto S_11118;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9106);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9106);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(9107);}while(r); +} +S_11125:; +if ((-(*__LONG_N>= 1 ))||new_error){ +if(qbevent){evnt(9110);if(r)goto S_11125;} +S_11126:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("STOP",4))))||new_error){ +if(qbevent){evnt(9111);if(r)goto S_11126;} +do{ +qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Stop",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9112);}while(r); +S_11128:; +if ((-(*__LONG_N> 1 ))||new_error){ +if(qbevent){evnt(9113);if(r)goto S_11128;} +do{ +qbs_set(__STRING_E,FUNC_GETELEMENTS(__STRING_CA,&(pass1292= 2 ),__LONG_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9114);}while(r); +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9115);}while(r); +S_11131:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9116);if(r)goto S_11131;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9116);}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(9117);}while(r); +do{ +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1293= 64 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9118);}while(r); +S_11136:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9119);if(r)goto S_11136;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9119);}while(r); +} +} +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(9122);}while(r); +S_11141:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(9122);if(r)goto S_11141;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9122);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9122);}while(r); +} +S_11146:; +if (((-(*__LONG_VWATCHON== 1 ))&(-(*__LONG_NOCHECKS== 0 ))&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||new_error){ +if(qbevent){evnt(9123);if(r)goto S_11146;} +do{ +SUB_WRITEBUFLINE(&(pass1295=*__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(9124);}while(r); +do{ +SUB_VWATCHADDLABEL(__LONG_LINENUMBER,&(pass1296= 0 )); +if(!qbevent)break;evnt(9125);}while(r); +}else{ +do{ +SUB_WRITEBUFLINE(&(pass1297=*__LONG_MAINTXTBUF),qbs_new_txt_len("close_program=1;",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9127);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1298=*__LONG_MAINTXTBUF),qbs_new_txt_len("end();",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9128);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(9130);}while(r); +} +} +S_11156:; +if ((-(*__LONG_N== 2 ))||new_error){ +if(qbevent){evnt(9134);if(r)goto S_11156;} +S_11157:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("GOSUB",5))))||new_error){ +if(qbevent){evnt(9135);if(r)goto S_11157;} +do{ +SUB_XGOSUB(__STRING_CA); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9136);}while(r); +S_11159:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9137);if(r)goto S_11159;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9137);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(9139);}while(r); +} +} +S_11165:; +if ((-(*__LONG_N>= 1 ))||new_error){ +if(qbevent){evnt(9143);if(r)goto S_11165;} +S_11166:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("RETURN",6))))||new_error){ +if(qbevent){evnt(9144);if(r)goto S_11166;} +S_11167:; +if ((-(*__LONG_N== 1 ))||new_error){ +if(qbevent){evnt(9145);if(r)goto S_11167;} +do{ +SUB_WRITEBUFLINE(&(pass1299=*__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)),FUNC_STR2(__LONG_SUBFUNCN)),qbs_new_txt_len(".txt",4)),func_chr( 34 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9146);}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(9147);}while(r); +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(9148);}while(r); +S_11171:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(9148);if(r)goto S_11171;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9148);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9148);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(9149);}while(r); +}else{ +S_11178:; +if ((-(*__LONG_SUBFUNCN!= 0 ))||new_error){ +if(qbevent){evnt(9152);if(r)goto S_11178;} +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(9152);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9152);}while(r); +} +S_11182:; +if ((-(*__LONG_N> 2 ))||new_error){ +if(qbevent){evnt(9153);if(r)goto S_11182;} +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(9153);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9153);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass1301=*__LONG_MAINTXTBUF),qbs_new_txt_len("if (!next_return_point) error(3);",33)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9154);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1302=*__LONG_MAINTXTBUF),qbs_new_txt_len("next_return_point--;",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9155);}while(r); +do{ +qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,&(pass1303= 2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9156);}while(r); +S_11189:; +if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(__STRING_A2)== 0 )))||new_error){ +if(qbevent){evnt(9157);if(r)goto S_11189;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Invalid label!",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9157);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9157);}while(r); +} +do{ +*__LONG_V=FUNC_HASHFIND(__STRING_A2,&(pass1304= 2 ),__LONG_IGNORE,__LONG_R); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9159);}while(r); +do{ +*__LONG_X= 1 ; +if(!qbevent)break;evnt(9160);}while(r); +LABEL_LABCHK505:; +if(qbevent){evnt(9161);r=0;} +S_11195:; +if ((*__LONG_V)||new_error){ +if(qbevent){evnt(9162);if(r)goto S_11195;} +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(9163);}while(r); +S_11197:; +if (((-(*__LONG_S==*__LONG_SUBFUNCN))|(-(*__LONG_S== -1 )))||new_error){ +if(qbevent){evnt(9164);if(r)goto S_11197;} +S_11198:; +if ((-(*__LONG_S== -1 ))||new_error){ +if(qbevent){evnt(9165);if(r)goto S_11198;} +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(9165);}while(r); +} +do{ +*__LONG_X= 0 ; +if(!qbevent)break;evnt(9166);}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(9167);}while(r); +}else{ +S_11204:; +if ((-(*__LONG_V== 2 ))||new_error){ +if(qbevent){evnt(9169);if(r)goto S_11204;} +do{ +*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R); +if(!qbevent)break;evnt(9169);}while(r); +do{ +goto LABEL_LABCHK505; +if(!qbevent)break;evnt(9169);}while(r); +} +} +} +S_11210:; +if ((*__LONG_X)||new_error){ +if(qbevent){evnt(9172);if(r)goto S_11210;} +do{ +*__LONG_NLABELS=*__LONG_NLABELS+ 1 ; +if(!qbevent)break;evnt(9174);}while(r); +S_11212:; +if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||new_error){ +if(qbevent){evnt(9174);if(r)goto S_11212;} +do{ +*__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ; +if(!qbevent)break;evnt(9174);}while(r); +do{ if (__ARRAY_UDT_LABELS[2]&2){ error(10); @@ -37555,228 +37555,228 @@ if (!__ARRAY_UDT_LABELS[0]) error(257); } } __ARRAY_UDT_LABELS[2]|=1; -} -if(!qbevent)break;evnt(9174);}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(9175);}while(r); -do{ -SUB_HASHADD(__STRING_A2,&(pass1305= 2 ),__LONG_NLABELS); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9176);}while(r); -do{ -*__LONG_R=*__LONG_NLABELS; -if(!qbevent)break;evnt(9177);}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(9178);}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(9179);}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(9180);}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(9181);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass1306=*__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(9184);}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(9185);}while(r); -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(9186);}while(r); -S_11227:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(9186);if(r)goto S_11227;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9186);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9186);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(9187);}while(r); -} -} -} -S_11236:; -if ((-(*__LONG_N>= 1 ))||new_error){ -if(qbevent){evnt(9192);if(r)goto S_11236;} -S_11237:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("RESUME",6))))||new_error){ -if(qbevent){evnt(9193);if(r)goto S_11237;} -do{ -qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Resume",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9194);}while(r); -S_11239:; -if ((-(*__LONG_N== 1 ))||new_error){ -if(qbevent){evnt(9195);if(r)goto S_11239;} -LABEL_RESUMEPREV:; -if(qbevent){evnt(9196);r=0;} -do{ -SUB_WRITEBUFLINE(&(pass1308=*__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(9199);}while(r); -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(9201);}while(r); -S_11242:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(9201);if(r)goto S_11242;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9201);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9201);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(9202);}while(r); -} -S_11249:; -if ((-(*__LONG_N> 2 ))||new_error){ -if(qbevent){evnt(9204);if(r)goto S_11249;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Too many parameters",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9204);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9204);}while(r); -} -do{ -qbs_set(__STRING_S,FUNC_GETELEMENT(__STRING_CA,&(pass1310= 2 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9205);}while(r); -S_11254:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_S),qbs_new_txt_len("NEXT",4))))||new_error){ -if(qbevent){evnt(9206);if(r)goto S_11254;} -do{ -SUB_WRITEBUFLINE(&(pass1311=*__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(9209);}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(9211);}while(r); -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(9212);}while(r); -S_11258:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(9212);if(r)goto S_11258;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9212);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9212);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(9213);}while(r); -} -S_11265:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_S,qbs_new_txt_len("0",1))))||new_error){ -if(qbevent){evnt(9215);if(r)goto S_11265;} -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(9215);}while(r); -do{ -goto LABEL_RESUMEPREV; -if(!qbevent)break;evnt(9215);}while(r); -} -S_11269:; -if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(__STRING_S)== 0 )))||new_error){ -if(qbevent){evnt(9216);if(r)goto S_11269;} -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(9216);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9216);}while(r); -} -do{ -*__LONG_V=FUNC_HASHFIND(__STRING_S,&(pass1313= 2 ),__LONG_IGNORE,__LONG_R); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9218);}while(r); -do{ -*__LONG_X= 1 ; -if(!qbevent)break;evnt(9219);}while(r); -LABEL_LABCHK506:; -if(qbevent){evnt(9220);r=0;} -S_11275:; -if ((*__LONG_V)||new_error){ -if(qbevent){evnt(9221);if(r)goto S_11275;} -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(9222);}while(r); -S_11277:; -if (((-(*__LONG_S==*__LONG_SUBFUNCN))|(-(*__LONG_S== -1 )))||new_error){ -if(qbevent){evnt(9223);if(r)goto S_11277;} -S_11278:; -if ((-(*__LONG_S== -1 ))||new_error){ -if(qbevent){evnt(9224);if(r)goto S_11278;} -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(9224);}while(r); -} -do{ -*__LONG_X= 0 ; -if(!qbevent)break;evnt(9225);}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(9226);}while(r); -}else{ -S_11284:; -if ((-(*__LONG_V== 2 ))||new_error){ -if(qbevent){evnt(9228);if(r)goto S_11284;} -do{ -*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R); -if(!qbevent)break;evnt(9228);}while(r); -do{ -goto LABEL_LABCHK506; -if(!qbevent)break;evnt(9228);}while(r); -} -} -} -S_11290:; -if ((*__LONG_X)||new_error){ -if(qbevent){evnt(9231);if(r)goto S_11290;} -do{ -*__LONG_NLABELS=*__LONG_NLABELS+ 1 ; -if(!qbevent)break;evnt(9233);}while(r); -S_11292:; -if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||new_error){ -if(qbevent){evnt(9233);if(r)goto S_11292;} -do{ -*__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ; -if(!qbevent)break;evnt(9233);}while(r); -do{ +} +if(!qbevent)break;evnt(9174);}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(9175);}while(r); +do{ +SUB_HASHADD(__STRING_A2,&(pass1305= 2 ),__LONG_NLABELS); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9176);}while(r); +do{ +*__LONG_R=*__LONG_NLABELS; +if(!qbevent)break;evnt(9177);}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(9178);}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(9179);}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(9180);}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(9181);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass1306=*__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(9184);}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(9185);}while(r); +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(9186);}while(r); +S_11227:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(9186);if(r)goto S_11227;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9186);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9186);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(9187);}while(r); +} +} +} +S_11236:; +if ((-(*__LONG_N>= 1 ))||new_error){ +if(qbevent){evnt(9192);if(r)goto S_11236;} +S_11237:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("RESUME",6))))||new_error){ +if(qbevent){evnt(9193);if(r)goto S_11237;} +do{ +qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Resume",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9194);}while(r); +S_11239:; +if ((-(*__LONG_N== 1 ))||new_error){ +if(qbevent){evnt(9195);if(r)goto S_11239;} +LABEL_RESUMEPREV:; +if(qbevent){evnt(9196);r=0;} +do{ +SUB_WRITEBUFLINE(&(pass1308=*__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(9199);}while(r); +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(9201);}while(r); +S_11242:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(9201);if(r)goto S_11242;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9201);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9201);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(9202);}while(r); +} +S_11249:; +if ((-(*__LONG_N> 2 ))||new_error){ +if(qbevent){evnt(9204);if(r)goto S_11249;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Too many parameters",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9204);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9204);}while(r); +} +do{ +qbs_set(__STRING_S,FUNC_GETELEMENT(__STRING_CA,&(pass1310= 2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9205);}while(r); +S_11254:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_S),qbs_new_txt_len("NEXT",4))))||new_error){ +if(qbevent){evnt(9206);if(r)goto S_11254;} +do{ +SUB_WRITEBUFLINE(&(pass1311=*__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(9209);}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(9211);}while(r); +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(9212);}while(r); +S_11258:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(9212);if(r)goto S_11258;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9212);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9212);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(9213);}while(r); +} +S_11265:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_S,qbs_new_txt_len("0",1))))||new_error){ +if(qbevent){evnt(9215);if(r)goto S_11265;} +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(9215);}while(r); +do{ +goto LABEL_RESUMEPREV; +if(!qbevent)break;evnt(9215);}while(r); +} +S_11269:; +if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(__STRING_S)== 0 )))||new_error){ +if(qbevent){evnt(9216);if(r)goto S_11269;} +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(9216);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9216);}while(r); +} +do{ +*__LONG_V=FUNC_HASHFIND(__STRING_S,&(pass1313= 2 ),__LONG_IGNORE,__LONG_R); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9218);}while(r); +do{ +*__LONG_X= 1 ; +if(!qbevent)break;evnt(9219);}while(r); +LABEL_LABCHK506:; +if(qbevent){evnt(9220);r=0;} +S_11275:; +if ((*__LONG_V)||new_error){ +if(qbevent){evnt(9221);if(r)goto S_11275;} +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(9222);}while(r); +S_11277:; +if (((-(*__LONG_S==*__LONG_SUBFUNCN))|(-(*__LONG_S== -1 )))||new_error){ +if(qbevent){evnt(9223);if(r)goto S_11277;} +S_11278:; +if ((-(*__LONG_S== -1 ))||new_error){ +if(qbevent){evnt(9224);if(r)goto S_11278;} +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(9224);}while(r); +} +do{ +*__LONG_X= 0 ; +if(!qbevent)break;evnt(9225);}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(9226);}while(r); +}else{ +S_11284:; +if ((-(*__LONG_V== 2 ))||new_error){ +if(qbevent){evnt(9228);if(r)goto S_11284;} +do{ +*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R); +if(!qbevent)break;evnt(9228);}while(r); +do{ +goto LABEL_LABCHK506; +if(!qbevent)break;evnt(9228);}while(r); +} +} +} +S_11290:; +if ((*__LONG_X)||new_error){ +if(qbevent){evnt(9231);if(r)goto S_11290;} +do{ +*__LONG_NLABELS=*__LONG_NLABELS+ 1 ; +if(!qbevent)break;evnt(9233);}while(r); +S_11292:; +if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||new_error){ +if(qbevent){evnt(9233);if(r)goto S_11292;} +do{ +*__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ; +if(!qbevent)break;evnt(9233);}while(r); +do{ if (__ARRAY_UDT_LABELS[2]&2){ error(10); @@ -37814,182 +37814,182 @@ if (!__ARRAY_UDT_LABELS[0]) error(257); } } __ARRAY_UDT_LABELS[2]|=1; -} -if(!qbevent)break;evnt(9233);}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(9234);}while(r); -do{ -SUB_HASHADD(__STRING_S,&(pass1314= 2 ),__LONG_NLABELS); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9235);}while(r); -do{ -*__LONG_R=*__LONG_NLABELS; -if(!qbevent)break;evnt(9236);}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(9237);}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(9238);}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(9239);}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(9240);}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(9243);}while(r); -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(9244);}while(r); -S_11306:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(9244);if(r)goto S_11306;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9244);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9244);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass1316=*__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(9245);}while(r); -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(9246);}while(r); -} -} -S_11315:; -if ((-(*__LONG_N== 4 ))||new_error){ -if(qbevent){evnt(9250);if(r)goto S_11315;} -S_11316:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENTS(__STRING_A,&(pass1317= 1 ),&(pass1318= 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))))))||new_error){ -if(qbevent){evnt(9251);if(r)goto S_11316;} -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(9252);}while(r); -do{ -qbs_set(__STRING_LBL,FUNC_GETELEMENT(__STRING_CA,&(pass1319= 4 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9253);}while(r); -S_11319:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_LBL,qbs_new_txt_len("0",1))))||new_error){ -if(qbevent){evnt(9254);if(r)goto S_11319;} -do{ -SUB_WRITEBUFLINE(&(pass1320=*__LONG_MAINTXTBUF),qbs_new_txt_len("error_goto_line=0;",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9255);}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(9256);}while(r); -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(9257);}while(r); -S_11323:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(9257);if(r)goto S_11323;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9257);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9257);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(9258);}while(r); -} -S_11330:; -if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(__STRING_LBL)== 0 )))||new_error){ -if(qbevent){evnt(9260);if(r)goto S_11330;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Invalid label",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9260);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9260);}while(r); -} -do{ -*__LONG_V=FUNC_HASHFIND(__STRING_LBL,&(pass1322= 2 ),__LONG_IGNORE,__LONG_R); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9262);}while(r); -do{ -*__LONG_X= 1 ; -if(!qbevent)break;evnt(9263);}while(r); -LABEL_LABCHK6:; -if(qbevent){evnt(9264);r=0;} -S_11336:; -if ((*__LONG_V)||new_error){ -if(qbevent){evnt(9265);if(r)goto S_11336;} -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(9266);}while(r); -S_11338:; -if (((-(*__LONG_S== 0 ))|(-(*__LONG_S== -1 )))||new_error){ -if(qbevent){evnt(9267);if(r)goto S_11338;} -S_11339:; -if ((-(*__LONG_S== -1 ))||new_error){ -if(qbevent){evnt(9268);if(r)goto S_11339;} -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(9268);}while(r); -} -do{ -*__LONG_X= 0 ; -if(!qbevent)break;evnt(9269);}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(9270);}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(9271);}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(9272);}while(r); -}else{ -S_11347:; -if ((-(*__LONG_V== 2 ))||new_error){ -if(qbevent){evnt(9274);if(r)goto S_11347;} -do{ -*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R); -if(!qbevent)break;evnt(9274);}while(r); -do{ -goto LABEL_LABCHK6; -if(!qbevent)break;evnt(9274);}while(r); -} -} -} -S_11353:; -if ((*__LONG_X)||new_error){ -if(qbevent){evnt(9277);if(r)goto S_11353;} -do{ -*__LONG_NLABELS=*__LONG_NLABELS+ 1 ; -if(!qbevent)break;evnt(9279);}while(r); -S_11355:; -if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||new_error){ -if(qbevent){evnt(9279);if(r)goto S_11355;} -do{ -*__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ; -if(!qbevent)break;evnt(9279);}while(r); -do{ +} +if(!qbevent)break;evnt(9233);}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(9234);}while(r); +do{ +SUB_HASHADD(__STRING_S,&(pass1314= 2 ),__LONG_NLABELS); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9235);}while(r); +do{ +*__LONG_R=*__LONG_NLABELS; +if(!qbevent)break;evnt(9236);}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(9237);}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(9238);}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(9239);}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(9240);}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(9243);}while(r); +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(9244);}while(r); +S_11306:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(9244);if(r)goto S_11306;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9244);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9244);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass1316=*__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(9245);}while(r); +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(9246);}while(r); +} +} +S_11315:; +if ((-(*__LONG_N== 4 ))||new_error){ +if(qbevent){evnt(9250);if(r)goto S_11315;} +S_11316:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENTS(__STRING_A,&(pass1317= 1 ),&(pass1318= 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))))))||new_error){ +if(qbevent){evnt(9251);if(r)goto S_11316;} +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(9252);}while(r); +do{ +qbs_set(__STRING_LBL,FUNC_GETELEMENT(__STRING_CA,&(pass1319= 4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9253);}while(r); +S_11319:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_LBL,qbs_new_txt_len("0",1))))||new_error){ +if(qbevent){evnt(9254);if(r)goto S_11319;} +do{ +SUB_WRITEBUFLINE(&(pass1320=*__LONG_MAINTXTBUF),qbs_new_txt_len("error_goto_line=0;",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9255);}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(9256);}while(r); +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(9257);}while(r); +S_11323:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(9257);if(r)goto S_11323;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9257);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9257);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(9258);}while(r); +} +S_11330:; +if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(__STRING_LBL)== 0 )))||new_error){ +if(qbevent){evnt(9260);if(r)goto S_11330;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Invalid label",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9260);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9260);}while(r); +} +do{ +*__LONG_V=FUNC_HASHFIND(__STRING_LBL,&(pass1322= 2 ),__LONG_IGNORE,__LONG_R); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9262);}while(r); +do{ +*__LONG_X= 1 ; +if(!qbevent)break;evnt(9263);}while(r); +LABEL_LABCHK6:; +if(qbevent){evnt(9264);r=0;} +S_11336:; +if ((*__LONG_V)||new_error){ +if(qbevent){evnt(9265);if(r)goto S_11336;} +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(9266);}while(r); +S_11338:; +if (((-(*__LONG_S== 0 ))|(-(*__LONG_S== -1 )))||new_error){ +if(qbevent){evnt(9267);if(r)goto S_11338;} +S_11339:; +if ((-(*__LONG_S== -1 ))||new_error){ +if(qbevent){evnt(9268);if(r)goto S_11339;} +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(9268);}while(r); +} +do{ +*__LONG_X= 0 ; +if(!qbevent)break;evnt(9269);}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(9270);}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(9271);}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(9272);}while(r); +}else{ +S_11347:; +if ((-(*__LONG_V== 2 ))||new_error){ +if(qbevent){evnt(9274);if(r)goto S_11347;} +do{ +*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R); +if(!qbevent)break;evnt(9274);}while(r); +do{ +goto LABEL_LABCHK6; +if(!qbevent)break;evnt(9274);}while(r); +} +} +} +S_11353:; +if ((*__LONG_X)||new_error){ +if(qbevent){evnt(9277);if(r)goto S_11353;} +do{ +*__LONG_NLABELS=*__LONG_NLABELS+ 1 ; +if(!qbevent)break;evnt(9279);}while(r); +S_11355:; +if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||new_error){ +if(qbevent){evnt(9279);if(r)goto S_11355;} +do{ +*__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ; +if(!qbevent)break;evnt(9279);}while(r); +do{ if (__ARRAY_UDT_LABELS[2]&2){ error(10); @@ -38027,157 +38027,157 @@ if (!__ARRAY_UDT_LABELS[0]) error(257); } } __ARRAY_UDT_LABELS[2]|=1; -} -if(!qbevent)break;evnt(9279);}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(9280);}while(r); -do{ -SUB_HASHADD(__STRING_LBL,&(pass1323= 2 ),__LONG_NLABELS); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9281);}while(r); -do{ -*__LONG_R=*__LONG_NLABELS; -if(!qbevent)break;evnt(9282);}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(9283);}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(9284);}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(9285);}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(9286);}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(9287);}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(9291);}while(r); -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(9292);}while(r); -S_11370:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(9292);if(r)goto S_11370;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9292);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9292);}while(r); -} -do{ -*__LONG_ERRORLABELS=*__LONG_ERRORLABELS+ 1 ; -if(!qbevent)break;evnt(9293);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1325=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("error_goto_line=",16),FUNC_STR2(__LONG_ERRORLABELS)),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9294);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1326=*__LONG_ERRTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (error_goto_line==",21),FUNC_STR2(__LONG_ERRORLABELS)),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(9295);}while(r); -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(9296);}while(r); -} -} -S_11381:; -if ((-(*__LONG_N>= 1 ))||new_error){ -if(qbevent){evnt(9300);if(r)goto S_11381;} -S_11382:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("RESTORE",7))))||new_error){ -if(qbevent){evnt(9301);if(r)goto S_11382;} -do{ -qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Restore",7))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9302);}while(r); -S_11384:; -if ((-(*__LONG_N== 1 ))||new_error){ -if(qbevent){evnt(9303);if(r)goto S_11384;} -do{ -SUB_WRITEBUFLINE(&(pass1327=*__LONG_MAINTXTBUF),qbs_new_txt_len("data_offset=0;",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9304);}while(r); -}else{ -S_11387:; -if ((-(*__LONG_N> 2 ))||new_error){ -if(qbevent){evnt(9306);if(r)goto S_11387;} -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(9306);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9306);}while(r); -} -do{ -qbs_set(__STRING_LBL,FUNC_GETELEMENT(__STRING_CA,&(pass1328= 2 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9307);}while(r); -S_11392:; -if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(__STRING_LBL)== 0 )))||new_error){ -if(qbevent){evnt(9308);if(r)goto S_11392;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Invalid label",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9308);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9308);}while(r); -} -do{ -*__LONG_V=FUNC_HASHFIND(__STRING_LBL,&(pass1329= 2 ),__LONG_IGNORE,__LONG_R); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9312);}while(r); -do{ -*__LONG_X= 1 ; -if(!qbevent)break;evnt(9313);}while(r); -S_11398:; -if ((*__LONG_V)||new_error){ -if(qbevent){evnt(9314);if(r)goto S_11398;} -do{ -*__LONG_X= 0 ; -if(!qbevent)break;evnt(9315);}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(9316);}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(9317);}while(r); -S_11402:; -if ((-(*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+270))== 0 ))||new_error){ -if(qbevent){evnt(9318);if(r)goto S_11402;} -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(9318);}while(r); -} -} -S_11406:; -if ((*__LONG_X)||new_error){ -if(qbevent){evnt(9320);if(r)goto S_11406;} -do{ -*__LONG_NLABELS=*__LONG_NLABELS+ 1 ; -if(!qbevent)break;evnt(9321);}while(r); -S_11408:; -if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||new_error){ -if(qbevent){evnt(9321);if(r)goto S_11408;} -do{ -*__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ; -if(!qbevent)break;evnt(9321);}while(r); -do{ +} +if(!qbevent)break;evnt(9279);}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(9280);}while(r); +do{ +SUB_HASHADD(__STRING_LBL,&(pass1323= 2 ),__LONG_NLABELS); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9281);}while(r); +do{ +*__LONG_R=*__LONG_NLABELS; +if(!qbevent)break;evnt(9282);}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(9283);}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(9284);}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(9285);}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(9286);}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(9287);}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(9291);}while(r); +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(9292);}while(r); +S_11370:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(9292);if(r)goto S_11370;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9292);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9292);}while(r); +} +do{ +*__LONG_ERRORLABELS=*__LONG_ERRORLABELS+ 1 ; +if(!qbevent)break;evnt(9293);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1325=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("error_goto_line=",16),FUNC_STR2(__LONG_ERRORLABELS)),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9294);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1326=*__LONG_ERRTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (error_goto_line==",21),FUNC_STR2(__LONG_ERRORLABELS)),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(9295);}while(r); +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(9296);}while(r); +} +} +S_11381:; +if ((-(*__LONG_N>= 1 ))||new_error){ +if(qbevent){evnt(9300);if(r)goto S_11381;} +S_11382:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("RESTORE",7))))||new_error){ +if(qbevent){evnt(9301);if(r)goto S_11382;} +do{ +qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Restore",7))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9302);}while(r); +S_11384:; +if ((-(*__LONG_N== 1 ))||new_error){ +if(qbevent){evnt(9303);if(r)goto S_11384;} +do{ +SUB_WRITEBUFLINE(&(pass1327=*__LONG_MAINTXTBUF),qbs_new_txt_len("data_offset=0;",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9304);}while(r); +}else{ +S_11387:; +if ((-(*__LONG_N> 2 ))||new_error){ +if(qbevent){evnt(9306);if(r)goto S_11387;} +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(9306);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9306);}while(r); +} +do{ +qbs_set(__STRING_LBL,FUNC_GETELEMENT(__STRING_CA,&(pass1328= 2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9307);}while(r); +S_11392:; +if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(__STRING_LBL)== 0 )))||new_error){ +if(qbevent){evnt(9308);if(r)goto S_11392;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Invalid label",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9308);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9308);}while(r); +} +do{ +*__LONG_V=FUNC_HASHFIND(__STRING_LBL,&(pass1329= 2 ),__LONG_IGNORE,__LONG_R); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9312);}while(r); +do{ +*__LONG_X= 1 ; +if(!qbevent)break;evnt(9313);}while(r); +S_11398:; +if ((*__LONG_V)||new_error){ +if(qbevent){evnt(9314);if(r)goto S_11398;} +do{ +*__LONG_X= 0 ; +if(!qbevent)break;evnt(9315);}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(9316);}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(9317);}while(r); +S_11402:; +if ((-(*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+270))== 0 ))||new_error){ +if(qbevent){evnt(9318);if(r)goto S_11402;} +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(9318);}while(r); +} +} +S_11406:; +if ((*__LONG_X)||new_error){ +if(qbevent){evnt(9320);if(r)goto S_11406;} +do{ +*__LONG_NLABELS=*__LONG_NLABELS+ 1 ; +if(!qbevent)break;evnt(9321);}while(r); +S_11408:; +if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||new_error){ +if(qbevent){evnt(9321);if(r)goto S_11408;} +do{ +*__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ; +if(!qbevent)break;evnt(9321);}while(r); +do{ if (__ARRAY_UDT_LABELS[2]&2){ error(10); @@ -38215,23455 +38215,23455 @@ if (!__ARRAY_UDT_LABELS[0]) error(257); } } __ARRAY_UDT_LABELS[2]|=1; -} -if(!qbevent)break;evnt(9321);}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(9322);}while(r); -do{ -SUB_HASHADD(__STRING_LBL,&(pass1330= 2 ),__LONG_NLABELS); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9323);}while(r); -do{ -*__LONG_R=*__LONG_NLABELS; -if(!qbevent)break;evnt(9324);}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(9325);}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(9326);}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(9327);}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(9328);}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(9329);}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(9332);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1331=*__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(9333);}while(r); -} -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(9335);}while(r); -S_11425:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(9335);if(r)goto S_11425;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9335);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9335);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(9336);}while(r); -} -} -S_11433:; -if ((-(*__LONG_N>= 1 ))||new_error){ -if(qbevent){evnt(9343);if(r)goto S_11433;} -S_11434:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("ON",2))))||new_error){ -if(qbevent){evnt(9344);if(r)goto S_11434;} -do{ -SUB_XONGOTOGOSUB(__STRING_A,__STRING_CA,__LONG_N); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9345);}while(r); -S_11436:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9346);if(r)goto S_11436;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9346);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(9347);}while(r); -} -} -S_11442:; -if ((-(*__LONG_N>= 1 ))||new_error){ -if(qbevent){evnt(9353);if(r)goto S_11442;} -S_11443:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_MEMGET",7)))|(((qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("MEMGET",6)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ -if(qbevent){evnt(9354);if(r)goto S_11443;} -do{ -qbs_set(__STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9356);}while(r); -do{ -*__LONG_B= 0 ; -if(!qbevent)break;evnt(9357);}while(r); -do{ -*__LONG_NE= 0 ; -if(!qbevent)break;evnt(9358);}while(r); -S_11447:; -fornext_value1334= 2 ; -fornext_finalvalue1334=*__LONG_N; -fornext_step1334= 1 ; -if (fornext_step1334<0) fornext_step_negative1334=1; else fornext_step_negative1334=0; -if (new_error) goto fornext_error1334; -goto fornext_entrylabel1334; -while(1){ -fornext_value1334=fornext_step1334+(*__LONG_I2); -fornext_entrylabel1334: -*__LONG_I2=fornext_value1334; -if (fornext_step_negative1334){ -if (fornext_value1334fornext_finalvalue1334) break; -} -fornext_error1334:; -if(qbevent){evnt(9359);if(r)goto S_11447;} -do{ -qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9360);}while(r); -S_11449:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(9361);if(r)goto S_11449;} -do{ -*__LONG_B=*__LONG_B+ 1 ; -if(!qbevent)break;evnt(9361);}while(r); -} -S_11452:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(9362);if(r)goto S_11452;} -do{ -*__LONG_B=*__LONG_B- 1 ; -if(!qbevent)break;evnt(9362);}while(r); -} -S_11455:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||new_error){ -if(qbevent){evnt(9363);if(r)goto S_11455;} -do{ -*__LONG_NE=*__LONG_NE+ 1 ; -if(!qbevent)break;evnt(9364);}while(r); -S_11457:; -if ((-(*__LONG_NE== 1 ))||new_error){ -if(qbevent){evnt(9365);if(r)goto S_11457;} -do{ -qbs_set(__STRING_BLK,__STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9365);}while(r); -do{ -qbs_set(__STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9365);}while(r); -} -S_11461:; -if ((-(*__LONG_NE== 2 ))||new_error){ -if(qbevent){evnt(9366);if(r)goto S_11461;} -do{ -qbs_set(__STRING_OFFS,__STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9366);}while(r); -do{ -qbs_set(__STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9366);}while(r); -} -S_11465:; -if ((-(*__LONG_NE== 3 ))||new_error){ -if(qbevent){evnt(9367);if(r)goto S_11465;} -do{ -qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Syntax error - too many parameters (Expected ",45),__STRING_QB64PREFIX),qbs_new_txt_len("MEMGET mem-reference, offset, variable)",39))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9367);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9367);}while(r); -} -}else{ -S_11470:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E->len== 0 )))||new_error){ -if(qbevent){evnt(9369);if(r)goto S_11470;} -do{ -qbs_set(__STRING_E,__STRING_E2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9369);}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(9369);}while(r); -} -} -fornext_continue_1333:; -} -fornext_exit_1333:; -do{ -qbs_set(__STRING_VAR,__STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9372);}while(r); -S_11478:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E,qbs_new_txt_len("",0)))|(-(*__LONG_NE!= 2 ))))||new_error){ -if(qbevent){evnt(9373);if(r)goto S_11478;} -do{ -qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Expected ",9),__STRING_QB64PREFIX),qbs_new_txt_len("MEMGET mem-reference, offset, variable",38))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9373);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9373);}while(r); -} -S_11482:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_MEMGET",7))))||new_error){ -if(qbevent){evnt(9375);if(r)goto S_11482;} -do{ -qbs_set(__STRING_L,qbs_add(FUNC_SCASE(qbs_new_txt_len("_MemGet",7)),__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9375);}while(r); -}else{ -do{ -qbs_set(__STRING_L,qbs_add(FUNC_SCASE(qbs_new_txt_len("MemGet",6)),__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9375);}while(r); -} -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_BLK)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9377);}while(r); -S_11488:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9377);if(r)goto S_11488;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9377);}while(r); -} -do{ -qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9378);}while(r); -do{ -qbs_set(__STRING_TEST,FUNC_EVALUATE(__STRING_E,__LONG_TYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9380);}while(r); -S_11493:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9380);if(r)goto S_11493;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9380);}while(r); -} -S_11496:; -if (((-((*__LONG_TYP&*__LONG_ISUDT)== 0 ))|(-((*__LONG_TYP& 511 )!= 1 )))||new_error){ -if(qbevent){evnt(9381);if(r)goto S_11496;} -do{ -qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Expected ",9),__STRING_QB64PREFIX),qbs_new_txt_len("MEM type",8))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9381);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9381);}while(r); -} -do{ -qbs_set(__STRING_BLKOFFS,FUNC_EVALUATETOTYP(__STRING_E,&(pass1336= -6 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9382);}while(r); -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_OFFS)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9389);}while(r); -S_11502:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9389);if(r)goto S_11502;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9389);}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(9390);}while(r); -do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1337=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9391);}while(r); -S_11507:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9391);if(r)goto S_11507;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9391);}while(r); -} -do{ -qbs_set(__STRING_OFFS,__STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9392);}while(r); -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_VAR)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9395);}while(r); -S_11512:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9395);if(r)goto S_11512;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9395);}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(9396);}while(r); -do{ -qbs_set(__STRING_VARSIZE,FUNC_EVALUATETOTYP(__STRING_E,&(pass1338= -5 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9397);}while(r); -S_11517:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9397);if(r)goto S_11517;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9397);}while(r); -} -do{ -qbs_set(__STRING_VAROFFS,FUNC_EVALUATETOTYP(__STRING_E,&(pass1339= -6 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9398);}while(r); -S_11521:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9398);if(r)goto S_11521;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9398);}while(r); -} -do{ -*__LONG_S= 0 ; -if(!qbevent)break;evnt(9408);}while(r); -S_11525:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARSIZE,qbs_new_txt_len("1",1))))||new_error){ -if(qbevent){evnt(9409);if(r)goto S_11525;} -do{ -*__LONG_S= 1 ; -if(!qbevent)break;evnt(9409);}while(r); -do{ -qbs_set(__STRING_ST,qbs_new_txt_len("int8",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9409);}while(r); -} -S_11529:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARSIZE,qbs_new_txt_len("2",1))))||new_error){ -if(qbevent){evnt(9410);if(r)goto S_11529;} -do{ -*__LONG_S= 2 ; -if(!qbevent)break;evnt(9410);}while(r); -do{ -qbs_set(__STRING_ST,qbs_new_txt_len("int16",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9410);}while(r); -} -S_11533:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARSIZE,qbs_new_txt_len("4",1))))||new_error){ -if(qbevent){evnt(9411);if(r)goto S_11533;} -do{ -*__LONG_S= 4 ; -if(!qbevent)break;evnt(9411);}while(r); -do{ -qbs_set(__STRING_ST,qbs_new_txt_len("int32",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9411);}while(r); -} -S_11537:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARSIZE,qbs_new_txt_len("8",1))))||new_error){ -if(qbevent){evnt(9412);if(r)goto S_11537;} -do{ -*__LONG_S= 8 ; -if(!qbevent)break;evnt(9412);}while(r); -do{ -qbs_set(__STRING_ST,qbs_new_txt_len("int64",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9412);}while(r); -} -S_11541:; -if ((*__LONG_NOCHECKS)||new_error){ -if(qbevent){evnt(9414);if(r)goto S_11541;} -S_11542:; -if ((*__LONG_S)||new_error){ -if(qbevent){evnt(9416);if(r)goto S_11542;} -do{ -SUB_WRITEBUFLINE(&(pass1340=*__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(9417);}while(r); -}else{ -do{ -SUB_WRITEBUFLINE(&(pass1341=*__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(",(void*)",8)),__STRING_OFFS),qbs_new_txt_len(",",1)),__STRING_VARSIZE),qbs_new_txt_len(");",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9419);}while(r); -} -}else{ -do{ -SUB_WRITEBUFLINE(&(pass1342=*__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(9423);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1343=*__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(9425);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1344=*__LONG_MAINTXTBUF),qbs_new_txt_len("if (",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9427);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1345=*__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(9428);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1346=*__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(9429);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1347=*__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(9430);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1348=*__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(9432);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1349=*__LONG_MAINTXTBUF),qbs_new_txt_len("}else{",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9433);}while(r); -S_11556:; -if ((*__LONG_S)||new_error){ -if(qbevent){evnt(9434);if(r)goto S_11556;} -do{ -SUB_WRITEBUFLINE(&(pass1350=*__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(9435);}while(r); -}else{ -do{ -SUB_WRITEBUFLINE(&(pass1351=*__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(9437);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass1352=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9439);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1353=*__LONG_MAINTXTBUF),qbs_new_txt_len("}else error(309);",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9440);}while(r); -} -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(9443);}while(r); -S_11565:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(9443);if(r)goto S_11565;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9443);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9443);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(9444);}while(r); -} -} -S_11573:; -if ((-(*__LONG_N>= 1 ))||new_error){ -if(qbevent){evnt(9452);if(r)goto S_11573;} -S_11574:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_MEMPUT",7)))|(((qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("MEMPUT",6)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ -if(qbevent){evnt(9453);if(r)goto S_11574;} -do{ -qbs_set(__STRING_TYP,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9455);}while(r); -do{ -qbs_set(__STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9456);}while(r); -do{ -*__LONG_B= 0 ; -if(!qbevent)break;evnt(9457);}while(r); -do{ -*__LONG_NE= 0 ; -if(!qbevent)break;evnt(9458);}while(r); -S_11579:; -fornext_value1356= 2 ; -fornext_finalvalue1356=*__LONG_N; -fornext_step1356= 1 ; -if (fornext_step1356<0) fornext_step_negative1356=1; else fornext_step_negative1356=0; -if (new_error) goto fornext_error1356; -goto fornext_entrylabel1356; -while(1){ -fornext_value1356=fornext_step1356+(*__LONG_I2); -fornext_entrylabel1356: -*__LONG_I2=fornext_value1356; -if (fornext_step_negative1356){ -if (fornext_value1356fornext_finalvalue1356) break; -} -fornext_error1356:; -if(qbevent){evnt(9459);if(r)goto S_11579;} -do{ -qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9460);}while(r); -S_11581:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(9461);if(r)goto S_11581;} -do{ -*__LONG_B=*__LONG_B+ 1 ; -if(!qbevent)break;evnt(9461);}while(r); -} -S_11584:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(9462);if(r)goto S_11584;} -do{ -*__LONG_B=*__LONG_B- 1 ; -if(!qbevent)break;evnt(9462);}while(r); -} -S_11587:; -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 ))))||new_error){ -if(qbevent){evnt(9463);if(r)goto S_11587;} -do{ -*__LONG_NE=*__LONG_NE+ 1 ; -if(!qbevent)break;evnt(9464);}while(r); -S_11589:; -if ((-(*__LONG_NE== 1 ))||new_error){ -if(qbevent){evnt(9465);if(r)goto S_11589;} -do{ -qbs_set(__STRING_BLK,__STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9465);}while(r); -do{ -qbs_set(__STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9465);}while(r); -} -S_11593:; -if ((-(*__LONG_NE== 2 ))||new_error){ -if(qbevent){evnt(9466);if(r)goto S_11593;} -do{ -qbs_set(__STRING_OFFS,__STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9466);}while(r); -do{ -qbs_set(__STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9466);}while(r); -} -S_11597:; -if ((-(*__LONG_NE== 3 ))||new_error){ -if(qbevent){evnt(9467);if(r)goto S_11597;} -do{ -qbs_set(__STRING_VAR,__STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9467);}while(r); -do{ -qbs_set(__STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9467);}while(r); -} -S_11601:; -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 ))))||new_error){ -if(qbevent){evnt(9468);if(r)goto S_11601;} -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(9468);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9468);}while(r); -} -}else{ -S_11606:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E->len== 0 )))||new_error){ -if(qbevent){evnt(9470);if(r)goto S_11606;} -do{ -qbs_set(__STRING_E,__STRING_E2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9470);}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(9470);}while(r); -} -} -fornext_continue_1355:; -} -fornext_exit_1355:; -S_11613:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_NE< 2 ))|(qbs_equal(__STRING_E,qbs_new_txt_len("",0)))))||new_error){ -if(qbevent){evnt(9473);if(r)goto S_11613;} -do{ -qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Expected ",9),__STRING_QB64PREFIX),qbs_new_txt_len("MEMPUT mem-reference, offset, variable|value[AS type]",53))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9473);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9473);}while(r); -} -S_11617:; -if ((-(*__LONG_NE== 2 ))||new_error){ -if(qbevent){evnt(9474);if(r)goto S_11617;} -do{ -qbs_set(__STRING_VAR,__STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9474);}while(r); -}else{ -do{ -qbs_set(__STRING_TYP,qbs_ucase(__STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9474);}while(r); -} -S_11622:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_MEMPUT",7))))||new_error){ -if(qbevent){evnt(9476);if(r)goto S_11622;} -do{ -qbs_set(__STRING_L,qbs_add(FUNC_SCASE(qbs_new_txt_len("_MemPut",7)),__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9476);}while(r); -}else{ -do{ -qbs_set(__STRING_L,qbs_add(FUNC_SCASE(qbs_new_txt_len("MemPut",6)),__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9476);}while(r); -} -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_BLK)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9478);}while(r); -S_11628:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9478);if(r)goto S_11628;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9478);}while(r); -} -do{ -qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9479);}while(r); -do{ -qbs_set(__STRING_TEST,FUNC_EVALUATE(__STRING_E,__LONG_TYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9481);}while(r); -S_11633:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9481);if(r)goto S_11633;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9481);}while(r); -} -S_11636:; -if (((-((*__LONG_TYP&*__LONG_ISUDT)== 0 ))|(-((*__LONG_TYP& 511 )!= 1 )))||new_error){ -if(qbevent){evnt(9482);if(r)goto S_11636;} -do{ -qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Expected ",9),__STRING_QB64PREFIX),qbs_new_txt_len("MEM type",8))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9482);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9482);}while(r); -} -do{ -qbs_set(__STRING_BLKOFFS,FUNC_EVALUATETOTYP(__STRING_E,&(pass1358= -6 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9483);}while(r); -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_OFFS)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9485);}while(r); -S_11642:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9485);if(r)goto S_11642;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9485);}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(9486);}while(r); -do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1359=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9487);}while(r); -S_11647:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9487);if(r)goto S_11647;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9487);}while(r); -} -do{ -qbs_set(__STRING_OFFS,__STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9488);}while(r); -S_11651:; -if ((-(*__LONG_NE== 2 ))||new_error){ -if(qbevent){evnt(9490);if(r)goto S_11651;} -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_VAR)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9491);}while(r); -S_11653:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9491);if(r)goto S_11653;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9491);}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(9492);}while(r); -do{ -qbs_set(__STRING_TEST,FUNC_EVALUATE(__STRING_E,__LONG_T)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9494);}while(r); -S_11658:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9494);if(r)goto S_11658;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9494);}while(r); -} -S_11661:; -if (((-((*__LONG_T&*__LONG_ISREFERENCE)== 0 ))&((*__LONG_T&*__LONG_ISSTRING)))||new_error){ -if(qbevent){evnt(9495);if(r)goto S_11661;} -do{ -SUB_WRITEBUFLINE(&(pass1360=*__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(9496);}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(9497);}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(9498);}while(r); -}else{ -do{ -qbs_set(__STRING_VARSIZE,FUNC_EVALUATETOTYP(__STRING_E,&(pass1361= -5 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9500);}while(r); -S_11667:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9500);if(r)goto S_11667;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9500);}while(r); -} -do{ -qbs_set(__STRING_VAROFFS,FUNC_EVALUATETOTYP(__STRING_E,&(pass1362= -6 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9501);}while(r); -S_11671:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9501);if(r)goto S_11671;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9501);}while(r); -} -} -do{ -*__LONG_S= 0 ; -if(!qbevent)break;evnt(9505);}while(r); -S_11676:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARSIZE,qbs_new_txt_len("1",1))))||new_error){ -if(qbevent){evnt(9506);if(r)goto S_11676;} -do{ -*__LONG_S= 1 ; -if(!qbevent)break;evnt(9506);}while(r); -do{ -qbs_set(__STRING_ST,qbs_new_txt_len("int8",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9506);}while(r); -} -S_11680:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARSIZE,qbs_new_txt_len("2",1))))||new_error){ -if(qbevent){evnt(9507);if(r)goto S_11680;} -do{ -*__LONG_S= 2 ; -if(!qbevent)break;evnt(9507);}while(r); -do{ -qbs_set(__STRING_ST,qbs_new_txt_len("int16",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9507);}while(r); -} -S_11684:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARSIZE,qbs_new_txt_len("4",1))))||new_error){ -if(qbevent){evnt(9508);if(r)goto S_11684;} -do{ -*__LONG_S= 4 ; -if(!qbevent)break;evnt(9508);}while(r); -do{ -qbs_set(__STRING_ST,qbs_new_txt_len("int32",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9508);}while(r); -} -S_11688:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARSIZE,qbs_new_txt_len("8",1))))||new_error){ -if(qbevent){evnt(9509);if(r)goto S_11688;} -do{ -*__LONG_S= 8 ; -if(!qbevent)break;evnt(9509);}while(r); -do{ -qbs_set(__STRING_ST,qbs_new_txt_len("int64",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9509);}while(r); -} -S_11692:; -if ((*__LONG_NOCHECKS)||new_error){ -if(qbevent){evnt(9511);if(r)goto S_11692;} -S_11693:; -if ((*__LONG_S)||new_error){ -if(qbevent){evnt(9513);if(r)goto S_11693;} -do{ -SUB_WRITEBUFLINE(&(pass1363=*__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(9514);}while(r); -}else{ -do{ -SUB_WRITEBUFLINE(&(pass1364=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("memmove((void*)",15),__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(9516);}while(r); -} -}else{ -do{ -SUB_WRITEBUFLINE(&(pass1365=*__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(9520);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1366=*__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(9522);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1367=*__LONG_MAINTXTBUF),qbs_new_txt_len("if (",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9524);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1368=*__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(9525);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1369=*__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(9526);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1370=*__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(9527);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1371=*__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(9529);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1372=*__LONG_MAINTXTBUF),qbs_new_txt_len("}else{",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9530);}while(r); -S_11707:; -if ((*__LONG_S)||new_error){ -if(qbevent){evnt(9531);if(r)goto S_11707;} -do{ -SUB_WRITEBUFLINE(&(pass1373=*__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(9532);}while(r); -}else{ -do{ -SUB_WRITEBUFLINE(&(pass1374=*__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(9534);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass1375=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9536);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1376=*__LONG_MAINTXTBUF),qbs_new_txt_len("}else error(309);",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9537);}while(r); -} -}else{ -do{ -*__LONG_T=FUNC_TYPNAME2TYP(__STRING_TYP); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9545);}while(r); -S_11717:; -if ((-(*__LONG_T== 0 ))||new_error){ -if(qbevent){evnt(9546);if(r)goto S_11717;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Invalid type",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9546);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9546);}while(r); -} -S_11721:; -if (((-((*__LONG_T&*__LONG_ISOFFSETINBITS)!= 0 ))|(-((*__LONG_T&*__LONG_ISUDT)!= 0 ))|((*__LONG_T&*__LONG_ISSTRING)))||new_error){ -if(qbevent){evnt(9547);if(r)goto S_11721;} -do{ -qbs_set(__STRING_A,qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MEMPUT requires numeric type",28))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9547);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9547);}while(r); -} -S_11725:; -if (((*__LONG_T&*__LONG_ISPOINTER))||new_error){ -if(qbevent){evnt(9548);if(r)goto S_11725;} -do{ -*__LONG_T=*__LONG_T-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(9548);}while(r); -} -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_VAR)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9550);}while(r); -S_11729:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9550);if(r)goto S_11729;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9550);}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),__STRING_TYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9551);}while(r); -do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,__LONG_T)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9552);}while(r); -S_11734:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9552);if(r)goto S_11734;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9552);}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(9553);}while(r); -do{ -qbs_set(__STRING_VARSIZE,FUNC_STR2(&(pass1377=(*__LONG_T& 511 )/ 8 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9554);}while(r); -S_11739:; -if ((*__LONG_NOCHECKS)||new_error){ -if(qbevent){evnt(9555);if(r)goto S_11739;} -do{ -SUB_WRITEBUFLINE(&(pass1378=*__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(9557);}while(r); -}else{ -do{ -SUB_WRITEBUFLINE(&(pass1379=*__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(9560);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1380=*__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(9562);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1381=*__LONG_MAINTXTBUF),qbs_new_txt_len("if (",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9564);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1382=*__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(9565);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1383=*__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(9566);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1384=*__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(9567);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1385=*__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(9569);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1386=*__LONG_MAINTXTBUF),qbs_new_txt_len("}else{",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9570);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1387=*__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(9571);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1388=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9572);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1389=*__LONG_MAINTXTBUF),qbs_new_txt_len("}else error(309);",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9573);}while(r); -} -} -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(9578);}while(r); -S_11756:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(9578);if(r)goto S_11756;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9578);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9578);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(9579);}while(r); -} -} -S_11764:; -if ((-(*__LONG_N>= 1 ))||new_error){ -if(qbevent){evnt(9588);if(r)goto S_11764;} -S_11765:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_MEMFILL",8)))|(((qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("MEMFILL",7)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ -if(qbevent){evnt(9589);if(r)goto S_11765;} -do{ -qbs_set(__STRING_TYP,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9591);}while(r); -do{ -qbs_set(__STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9592);}while(r); -do{ -*__LONG_B= 0 ; -if(!qbevent)break;evnt(9593);}while(r); -do{ -*__LONG_NE= 0 ; -if(!qbevent)break;evnt(9594);}while(r); -S_11770:; -fornext_value1392= 2 ; -fornext_finalvalue1392=*__LONG_N; -fornext_step1392= 1 ; -if (fornext_step1392<0) fornext_step_negative1392=1; else fornext_step_negative1392=0; -if (new_error) goto fornext_error1392; -goto fornext_entrylabel1392; -while(1){ -fornext_value1392=fornext_step1392+(*__LONG_I2); -fornext_entrylabel1392: -*__LONG_I2=fornext_value1392; -if (fornext_step_negative1392){ -if (fornext_value1392fornext_finalvalue1392) break; -} -fornext_error1392:; -if(qbevent){evnt(9595);if(r)goto S_11770;} -do{ -qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9596);}while(r); -S_11772:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(9597);if(r)goto S_11772;} -do{ -*__LONG_B=*__LONG_B+ 1 ; -if(!qbevent)break;evnt(9597);}while(r); -} -S_11775:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(9598);if(r)goto S_11775;} -do{ -*__LONG_B=*__LONG_B- 1 ; -if(!qbevent)break;evnt(9598);}while(r); -} -S_11778:; -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 ))))||new_error){ -if(qbevent){evnt(9599);if(r)goto S_11778;} -do{ -*__LONG_NE=*__LONG_NE+ 1 ; -if(!qbevent)break;evnt(9600);}while(r); -S_11780:; -if ((-(*__LONG_NE== 1 ))||new_error){ -if(qbevent){evnt(9601);if(r)goto S_11780;} -do{ -qbs_set(__STRING_BLK,__STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9601);}while(r); -do{ -qbs_set(__STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9601);}while(r); -} -S_11784:; -if ((-(*__LONG_NE== 2 ))||new_error){ -if(qbevent){evnt(9602);if(r)goto S_11784;} -do{ -qbs_set(__STRING_OFFS,__STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9602);}while(r); -do{ -qbs_set(__STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9602);}while(r); -} -S_11788:; -if ((-(*__LONG_NE== 3 ))||new_error){ -if(qbevent){evnt(9603);if(r)goto S_11788;} -do{ -qbs_set(__STRING_BYTES,__STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9603);}while(r); -do{ -qbs_set(__STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9603);}while(r); -} -S_11792:; -if ((-(*__LONG_NE== 4 ))||new_error){ -if(qbevent){evnt(9604);if(r)goto S_11792;} -do{ -qbs_set(__STRING_VAR,__STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9604);}while(r); -do{ -qbs_set(__STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9604);}while(r); -} -S_11796:; -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 ))))||new_error){ -if(qbevent){evnt(9605);if(r)goto S_11796;} -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(9605);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9605);}while(r); -} -}else{ -S_11801:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E->len== 0 )))||new_error){ -if(qbevent){evnt(9607);if(r)goto S_11801;} -do{ -qbs_set(__STRING_E,__STRING_E2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9607);}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(9607);}while(r); -} -} -fornext_continue_1391:; -} -fornext_exit_1391:; -S_11808:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_NE< 3 ))|(qbs_equal(__STRING_E,qbs_new_txt_len("",0)))))||new_error){ -if(qbevent){evnt(9610);if(r)goto S_11808;} -do{ -qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Expected ",9),__STRING_QB64PREFIX),qbs_new_txt_len("MEMFILL mem-reference, offset, bytes, variable|value[AS type]",61))); -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_11812:; -if ((-(*__LONG_NE== 3 ))||new_error){ -if(qbevent){evnt(9611);if(r)goto S_11812;} -do{ -qbs_set(__STRING_VAR,__STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9611);}while(r); -}else{ -do{ -qbs_set(__STRING_TYP,qbs_ucase(__STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9611);}while(r); -} -S_11817:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_MEMFILL",8))))||new_error){ -if(qbevent){evnt(9613);if(r)goto S_11817;} -do{ -qbs_set(__STRING_L,qbs_add(FUNC_SCASE(qbs_new_txt_len("_MemFill",8)),__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9613);}while(r); -}else{ -do{ -qbs_set(__STRING_L,qbs_add(FUNC_SCASE(qbs_new_txt_len("MemFill",7)),__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9613);}while(r); -} -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_BLK)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9615);}while(r); -S_11823:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9615);if(r)goto S_11823;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9615);}while(r); -} -do{ -qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9616);}while(r); -do{ -qbs_set(__STRING_TEST,FUNC_EVALUATE(__STRING_E,__LONG_TYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9618);}while(r); -S_11828:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9618);if(r)goto S_11828;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9618);}while(r); -} -S_11831:; -if (((-((*__LONG_TYP&*__LONG_ISUDT)== 0 ))|(-((*__LONG_TYP& 511 )!= 1 )))||new_error){ -if(qbevent){evnt(9619);if(r)goto S_11831;} -do{ -qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Expected ",9),__STRING_QB64PREFIX),qbs_new_txt_len("MEM type",8))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9619);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9619);}while(r); -} -do{ -qbs_set(__STRING_BLKOFFS,FUNC_EVALUATETOTYP(__STRING_E,&(pass1394= -6 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9620);}while(r); -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_OFFS)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9622);}while(r); -S_11837:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9622);if(r)goto S_11837;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9622);}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(9623);}while(r); -do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1395=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9624);}while(r); -S_11842:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9624);if(r)goto S_11842;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9624);}while(r); -} -do{ -qbs_set(__STRING_OFFS,__STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9625);}while(r); -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_BYTES)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9627);}while(r); -S_11847:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9627);if(r)goto S_11847;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9627);}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(9628);}while(r); -do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1396=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9629);}while(r); -S_11852:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9629);if(r)goto S_11852;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9629);}while(r); -} -do{ -qbs_set(__STRING_BYTES,__STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9630);}while(r); -S_11856:; -if ((-(*__LONG_NE== 3 ))||new_error){ -if(qbevent){evnt(9632);if(r)goto S_11856;} -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_VAR)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9633);}while(r); -S_11858:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9633);if(r)goto S_11858;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9633);}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(9634);}while(r); -do{ -qbs_set(__STRING_TEST,FUNC_EVALUATE(__STRING_E,__LONG_T)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9635);}while(r); -S_11863:; -if (((-((*__LONG_T&*__LONG_ISREFERENCE)== 0 ))&((*__LONG_T&*__LONG_ISSTRING)))||new_error){ -if(qbevent){evnt(9636);if(r)goto S_11863;} -do{ -SUB_WRITEBUFLINE(&(pass1397=*__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(9637);}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(9638);}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(9639);}while(r); -}else{ -do{ -qbs_set(__STRING_VARSIZE,FUNC_EVALUATETOTYP(__STRING_E,&(pass1398= -5 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9641);}while(r); -S_11869:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9641);if(r)goto S_11869;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9641);}while(r); -} -do{ -qbs_set(__STRING_VAROFFS,FUNC_EVALUATETOTYP(__STRING_E,&(pass1399= -6 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9642);}while(r); -S_11873:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9642);if(r)goto S_11873;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9642);}while(r); -} -} -S_11877:; -if ((*__LONG_NOCHECKS)||new_error){ -if(qbevent){evnt(9645);if(r)goto S_11877;} -do{ -SUB_WRITEBUFLINE(&(pass1400=*__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(9646);}while(r); -}else{ -do{ -SUB_WRITEBUFLINE(&(pass1401=*__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(9648);}while(r); -} -}else{ -do{ -*__LONG_T=FUNC_TYPNAME2TYP(__STRING_TYP); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9654);}while(r); -S_11884:; -if ((-(*__LONG_T== 0 ))||new_error){ -if(qbevent){evnt(9655);if(r)goto S_11884;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Invalid type",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9655);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9655);}while(r); -} -S_11888:; -if (((-((*__LONG_T&*__LONG_ISOFFSETINBITS)!= 0 ))|(-((*__LONG_T&*__LONG_ISUDT)!= 0 ))|((*__LONG_T&*__LONG_ISSTRING)))||new_error){ -if(qbevent){evnt(9656);if(r)goto S_11888;} -do{ -qbs_set(__STRING_A,qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MEMFILL requires numeric type",29))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9656);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9656);}while(r); -} -S_11892:; -if (((*__LONG_T&*__LONG_ISPOINTER))||new_error){ -if(qbevent){evnt(9657);if(r)goto S_11892;} -do{ -*__LONG_T=*__LONG_T-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(9657);}while(r); -} -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_VAR)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9659);}while(r); -S_11896:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9659);if(r)goto S_11896;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9659);}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),__STRING_TYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9660);}while(r); -do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,__LONG_T)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9661);}while(r); -S_11901:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9661);if(r)goto S_11901;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9661);}while(r); -} -do{ -qbs_set(__STRING_C,qbs_new_txt_len("sub__memfill_",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9663);}while(r); -S_11905:; -if ((*__LONG_NOCHECKS)||new_error){ -if(qbevent){evnt(9664);if(r)goto S_11905;} -do{ -qbs_set(__STRING_C,qbs_new_txt_len("sub__memfill_nochecks_",22)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9664);}while(r); -} -S_11908:; -if ((*__LONG_T&*__LONG_ISOFFSET)||new_error){ -if(qbevent){evnt(9665);if(r)goto S_11908;} -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(9666);}while(r); -}else{ -S_11911:; -if ((*__LONG_T&*__LONG_ISFLOAT)||new_error){ -if(qbevent){evnt(9668);if(r)goto S_11911;} -S_11912:; -if ((-((*__LONG_T& 511 )== 32 ))||new_error){ -if(qbevent){evnt(9669);if(r)goto S_11912;} -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(9669);}while(r); -} -S_11915:; -if ((-((*__LONG_T& 511 )== 64 ))||new_error){ -if(qbevent){evnt(9670);if(r)goto S_11915;} -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(9670);}while(r); -} -S_11918:; -if ((-((*__LONG_T& 511 )== 256 ))||new_error){ -if(qbevent){evnt(9671);if(r)goto S_11918;} -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(9671);}while(r); -} -}else{ -do{ -qbs_set(__STRING_C,qbs_add(__STRING_C,FUNC_STR2(&(pass1402=(*__LONG_T& 511 )/ 8 )))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9673);}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(9676);}while(r); -S_11926:; -if ((-(*__LONG_NOCHECKS== 0 ))||new_error){ -if(qbevent){evnt(9677);if(r)goto S_11926;} -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(9677);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass1403=*__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(9678);}while(r); -} -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(9681);}while(r); -S_11932:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(9681);if(r)goto S_11932;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9681);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9681);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(9682);}while(r); -} -} -do{ -*__LONG_CISPECIAL= 0 ; -if(!qbevent)break;evnt(9700);}while(r); -S_11941:; -if ((-(*__LONG_N> 1 ))||new_error){ -if(qbevent){evnt(9701);if(r)goto S_11941;} -S_11942:; -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)))))||new_error){ -if(qbevent){evnt(9702);if(r)goto S_11942;} -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,&(pass1405= 2 ),__LONG_N)),__STRING1_SP),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9703);}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,&(pass1406= 2 ),__LONG_N)),__STRING1_SP),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9704);}while(r); -do{ -*__LONG_N=*__LONG_N+ 3 ; -if(!qbevent)break;evnt(9705);}while(r); -do{ -qbs_set(__STRING_FIRSTELEMENT,qbs_new_txt_len("CALL",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9706);}while(r); -do{ -*__LONG_CISPECIAL= 1 ; -if(!qbevent)break;evnt(9707);}while(r); -} -} -do{ -*__LONG_USECALL= 0 ; -if(!qbevent)break;evnt(9712);}while(r); -S_11951:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("CALL",4))))||new_error){ -if(qbevent){evnt(9713);if(r)goto S_11951;} -do{ -*__LONG_USECALL= 1 ; -if(!qbevent)break;evnt(9714);}while(r); -S_11953:; -if ((-(*__LONG_N== 1 ))||new_error){ -if(qbevent){evnt(9715);if(r)goto S_11953;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected CALL sub-name [(...)]",30)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9715);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9715);}while(r); -} -do{ -qbs_set(__STRING_CN,FUNC_GETELEMENT(__STRING_CA,&(pass1407= 2 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9716);}while(r); -do{ -qbs_set(__STRING_N,qbs_ucase(__STRING_CN)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9716);}while(r); -S_11959:; -if ((-(*__LONG_N> 2 ))||new_error){ -if(qbevent){evnt(9718);if(r)goto S_11959;} -S_11960:; -if ((-(*__LONG_N<= 4 ))||new_error){ -if(qbevent){evnt(9720);if(r)goto S_11960;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected CALL sub-name (...)",28)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9720);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9720);}while(r); -} -S_11964:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(FUNC_GETELEMENT(__STRING_A,&(pass1408= 3 )),qbs_new_txt_len("(",1)))|(qbs_notequal(FUNC_GETELEMENT(__STRING_A,__LONG_N),qbs_new_txt_len(")",1)))))||new_error){ -if(qbevent){evnt(9721);if(r)goto S_11964;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected CALL sub-name (...)",28)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9721);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9721);}while(r); -} -do{ -qbs_set(__STRING_A,qbs_add(qbs_add(__STRING_N,__STRING1_SP),FUNC_GETELEMENTS(__STRING_A,&(pass1409= 4 ),&(pass1410=*__LONG_N- 1 )))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9722);}while(r); -do{ -qbs_set(__STRING_CA,qbs_add(qbs_add(__STRING_CN,__STRING1_SP),FUNC_GETELEMENTS(__STRING_CA,&(pass1411= 4 ),&(pass1412=*__LONG_N- 1 )))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9723);}while(r); -S_11970:; -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)))))||new_error){ -if(qbevent){evnt(9726);if(r)goto S_11970;} -S_11971:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_N,qbs_new_txt_len("INTERRUPT",9))))||new_error){ -if(qbevent){evnt(9728);if(r)goto S_11971;} -do{ -SUB_WRITEBUFRAWDATA(&(pass1413=*__LONG_MAINTXTBUF),qbs_new_txt_len("call_interrupt(",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9728);}while(r); -}else{ -do{ -SUB_WRITEBUFRAWDATA(&(pass1414=*__LONG_MAINTXTBUF),qbs_new_txt_len("call_interruptx(",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9728);}while(r); -} -do{ -*__LONG_ARGN= 0 ; -if(!qbevent)break;evnt(9729);}while(r); -do{ -*__LONG_N=FUNC_NUMELEMENTS(__STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9730);}while(r); -do{ -*__LONG_B= 0 ; -if(!qbevent)break;evnt(9731);}while(r); -do{ -qbs_set(__STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9732);}while(r); -S_11980:; -fornext_value1416= 2 ; -fornext_finalvalue1416=*__LONG_N; -fornext_step1416= 1 ; -if (fornext_step1416<0) fornext_step_negative1416=1; else fornext_step_negative1416=0; -if (new_error) goto fornext_error1416; -goto fornext_entrylabel1416; -while(1){ -fornext_value1416=fornext_step1416+(*__LONG_I); -fornext_entrylabel1416: -*__LONG_I=fornext_value1416; -if (fornext_step_negative1416){ -if (fornext_value1416fornext_finalvalue1416) break; -} -fornext_error1416:; -if(qbevent){evnt(9733);if(r)goto S_11980;} -do{ -qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9734);}while(r); -S_11982:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(9735);if(r)goto S_11982;} -do{ -*__LONG_B=*__LONG_B+ 1 ; -if(!qbevent)break;evnt(9735);}while(r); -} -S_11985:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(9736);if(r)goto S_11985;} -do{ -*__LONG_B=*__LONG_B- 1 ; -if(!qbevent)break;evnt(9736);}while(r); -} -S_11988:; -if ((qbs_cleanup(qbs_tmp_base,(((qbs_equal(__STRING_E2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))|(-(*__LONG_I==*__LONG_N))))||new_error){ -if(qbevent){evnt(9737);if(r)goto S_11988;} -S_11989:; -if ((-(*__LONG_I==*__LONG_N))||new_error){ -if(qbevent){evnt(9738);if(r)goto S_11989;} -S_11990:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(9739);if(r)goto S_11990;} -do{ -qbs_set(__STRING_E,__STRING_E2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9739);}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(9739);}while(r); -} -} -do{ -*__LONG_ARGN=*__LONG_ARGN+ 1 ; -if(!qbevent)break;evnt(9741);}while(r); -S_11997:; -if ((-(*__LONG_ARGN== 1 ))||new_error){ -if(qbevent){evnt(9742);if(r)goto S_11997;} -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9743);}while(r); -S_11999:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9744);if(r)goto S_11999;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9744);}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(9745);}while(r); -S_12003:; -if ((-(*__LONG_CISPECIAL== 1 ))||new_error){ -if(qbevent){evnt(9746);if(r)goto S_12003;} -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(9746);}while(r); -} -do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1417= 64 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9747);}while(r); -S_12007:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9748);if(r)goto S_12007;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9748);}while(r); -} -do{ -SUB_WRITEBUFRAWDATA(&(pass1418=*__LONG_MAINTXTBUF),__STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9750);}while(r); -} -S_12012:; -if (((-(*__LONG_ARGN== 2 ))|(-(*__LONG_ARGN== 3 )))||new_error){ -if(qbevent){evnt(9752);if(r)goto S_12012;} -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9753);}while(r); -S_12014:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9754);if(r)goto S_12014;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9754);}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(9755);}while(r); -do{ -qbs_set(__STRING_E2,__STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9756);}while(r); -do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1419= -2 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9757);}while(r); -S_12020:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9758);if(r)goto S_12020;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9758);}while(r); -} -do{ -SUB_WRITEBUFRAWDATA(&(pass1420=*__LONG_MAINTXTBUF),qbs_add(qbs_new_txt_len(",",1),__STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9760);}while(r); -} -do{ -qbs_set(__STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9762);}while(r); -}else{ -S_12027:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(9764);if(r)goto S_12027;} -do{ -qbs_set(__STRING_E,__STRING_E2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9764);}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(9764);}while(r); -} -} -fornext_continue_1415:; -} -fornext_exit_1415:; -S_12034:; -if ((-(*__LONG_ARGN!= 3 ))||new_error){ -if(qbevent){evnt(9767);if(r)goto S_12034;} -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(9767);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9767);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass1421=*__LONG_MAINTXTBUF),qbs_new_txt_len(");",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9768);}while(r); -S_12039:; -if ((-(*__LONG_CISPECIAL== 0 ))||new_error){ -if(qbevent){evnt(9769);if(r)goto S_12039;} -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(9769);}while(r); -} -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(9770);}while(r); -S_12043:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(9770);if(r)goto S_12043;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9770);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9770);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(9772);}while(r); -} -S_12050:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_N,qbs_new_txt_len("ABSOLUTE",8))))||new_error){ -if(qbevent){evnt(9783);if(r)goto S_12050;} -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(9784);}while(r); -do{ -*__LONG_ARGN= 0 ; -if(!qbevent)break;evnt(9785);}while(r); -do{ -*__LONG_N=FUNC_NUMELEMENTS(__STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9786);}while(r); -do{ -*__LONG_B= 0 ; -if(!qbevent)break;evnt(9787);}while(r); -do{ -qbs_set(__STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9788);}while(r); -S_12056:; -fornext_value1424= 2 ; -fornext_finalvalue1424=*__LONG_N; -fornext_step1424= 1 ; -if (fornext_step1424<0) fornext_step_negative1424=1; else fornext_step_negative1424=0; -if (new_error) goto fornext_error1424; -goto fornext_entrylabel1424; -while(1){ -fornext_value1424=fornext_step1424+(*__LONG_I); -fornext_entrylabel1424: -*__LONG_I=fornext_value1424; -if (fornext_step_negative1424){ -if (fornext_value1424fornext_finalvalue1424) break; -} -fornext_error1424:; -if(qbevent){evnt(9789);if(r)goto S_12056;} -do{ -qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9790);}while(r); -S_12058:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(9791);if(r)goto S_12058;} -do{ -*__LONG_B=*__LONG_B+ 1 ; -if(!qbevent)break;evnt(9791);}while(r); -} -S_12061:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(9792);if(r)goto S_12061;} -do{ -*__LONG_B=*__LONG_B- 1 ; -if(!qbevent)break;evnt(9792);}while(r); -} -S_12064:; -if ((qbs_cleanup(qbs_tmp_base,(((qbs_equal(__STRING_E2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))|(-(*__LONG_I==*__LONG_N))))||new_error){ -if(qbevent){evnt(9793);if(r)goto S_12064;} -S_12065:; -if ((-(*__LONG_I<*__LONG_N))||new_error){ -if(qbevent){evnt(9794);if(r)goto S_12065;} -S_12066:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(9795);if(r)goto S_12066;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected expression before , or )",33)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9795);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9795);}while(r); -} -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9797);}while(r); -S_12071:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9798);if(r)goto S_12071;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9798);}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(9799);}while(r); -do{ -qbs_set(__STRING_IGNORE,FUNC_EVALUATE(__STRING_E,__LONG_TYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9800);}while(r); -S_12076:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9801);if(r)goto S_12076;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9801);}while(r); -} -S_12079:; -if (((-((*__LONG_TYP&*__LONG_ISPOINTER)!= 0 ))&(-((*__LONG_TYP&*__LONG_ISREFERENCE)!= 0 )))||new_error){ -if(qbevent){evnt(9803);if(r)goto S_12079;} -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(9807);}while(r); -do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1425=*__LONG_UINTEGERTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9808);}while(r); -S_12082:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9809);if(r)goto S_12082;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9809);}while(r); -} -}else{ -S_12086:; -if ((*__LONG_TYP&*__LONG_ISFLOAT)||new_error){ -if(qbevent){evnt(9815);if(r)goto S_12086;} -S_12087:; -if ((-((*__LONG_TYP& 511 )== 32 ))||new_error){ -if(qbevent){evnt(9816);if(r)goto S_12087;} -do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1426=*__LONG_SINGLETYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9817);}while(r); -S_12089:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9818);if(r)goto S_12089;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9818);}while(r); -} -do{ -qbs_set(__STRING_V,qbs_add(qbs_new_txt_len("pass",4),FUNC_STR2(&(pass1427=FUNC_UNIQUENUMBER())))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9819);}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(9820);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1428=*__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(9821);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1429=*__LONG_DATATXTBUF),qbs_new_txt_len("cmem_sp-=4;",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9822);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1430=*__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(9823);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1431=*__LONG_DATATXTBUF),qbs_new_txt_len("if (cmem_splen))||new_error){ -if(qbevent){evnt(9870);if(r)goto S_12158;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9870);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9870);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(9871);}while(r); -} -}else{ -do{ -qbs_set(__STRING_A,__STRING_N); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9876);}while(r); -do{ -qbs_set(__STRING_CA,__STRING_CN); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9877);}while(r); -do{ -*__LONG_USECALL= 2 ; -if(!qbevent)break;evnt(9878);}while(r); -} -do{ -*__LONG_N=FUNC_NUMELEMENTS(__STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9882);}while(r); -do{ -qbs_set(__STRING_FIRSTELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass1451= 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9883);}while(r); -do{ -*__LONG_VALIDSUB= 0 ; -if(!qbevent)break;evnt(9886);}while(r); -do{ -qbs_set(__STRING_FINDIDSECONDARG,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9887);}while(r); -S_12174:; -if ((-(*__LONG_N>= 2 ))||new_error){ -if(qbevent){evnt(9887);if(r)goto S_12174;} -do{ -qbs_set(__STRING_FINDIDSECONDARG,FUNC_GETELEMENT(__STRING_A,&(pass1452= 2 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9887);}while(r); -} -do{ -*__LONG_TRY=FUNC_FINDID(__STRING_FIRSTELEMENT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9888);}while(r); -S_12178:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9889);if(r)goto S_12178;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9889);}while(r); -} -S_12181:; -while((*__LONG_TRY)||new_error){ -if(qbevent){evnt(9890);if(r)goto S_12181;} -S_12182:; -if ((-(*(int16*)(((char*)__UDT_ID)+(544))== 2 ))||new_error){ -if(qbevent){evnt(9891);if(r)goto S_12182;} -do{ -*__LONG_VALIDSUB= 1 ; -if(!qbevent)break;evnt(9891);}while(r); -do{ -goto dl_exit_1453; -if(!qbevent)break;evnt(9891);}while(r); -} -S_12186:; -if ((-(*__LONG_TRY== 2 ))||new_error){ -if(qbevent){evnt(9892);if(r)goto S_12186;} -do{ -qbs_set(__STRING_FINDIDSECONDARG,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9893);}while(r); -S_12188:; -if ((-(*__LONG_N>= 2 ))||new_error){ -if(qbevent){evnt(9893);if(r)goto S_12188;} -do{ -qbs_set(__STRING_FINDIDSECONDARG,FUNC_GETELEMENT(__STRING_A,&(pass1454= 2 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9893);}while(r); -} -do{ -*__INTEGER_FINDANOTHERID= 1 ; -if(!qbevent)break;evnt(9894);}while(r); -do{ -*__LONG_TRY=FUNC_FINDID(__STRING_FIRSTELEMENT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9895);}while(r); -S_12193:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9896);if(r)goto S_12193;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9896);}while(r); -} -}else{ -do{ -*__LONG_TRY= 0 ; -if(!qbevent)break;evnt(9898);}while(r); -} -dl_continue_1453:; -} -dl_exit_1453:; -S_12200:; -if ((-(*__LONG_VALIDSUB== 0 ))||new_error){ -if(qbevent){evnt(9901);if(r)goto S_12200;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected CALL sub-name [(...)]",30)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9901);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9901);}while(r); -} -} -S_12205:; -if ((-(*__LONG_N>= 1 ))||new_error){ -if(qbevent){evnt(9905);if(r)goto S_12205;} -S_12206:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("?",1))))||new_error){ -if(qbevent){evnt(9907);if(r)goto S_12206;} -do{ -qbs_set(__STRING_FIRSTELEMENT,qbs_new_txt_len("PRINT",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9907);}while(r); -} -do{ -qbs_set(__STRING_FINDIDSECONDARG,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9909);}while(r); -S_12210:; -if ((-(*__LONG_N>= 2 ))||new_error){ -if(qbevent){evnt(9909);if(r)goto S_12210;} -do{ -qbs_set(__STRING_FINDIDSECONDARG,FUNC_GETELEMENT(__STRING_A,&(pass1455= 2 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9909);}while(r); -} -do{ -*__LONG_TRY=FUNC_FINDID(__STRING_FIRSTELEMENT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9910);}while(r); -S_12214:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9911);if(r)goto S_12214;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9911);}while(r); -} -S_12217:; -while((*__LONG_TRY)||new_error){ -if(qbevent){evnt(9912);if(r)goto S_12217;} -S_12218:; -if ((-(*(int16*)(((char*)__UDT_ID)+(544))== 2 ))||new_error){ -if(qbevent){evnt(9913);if(r)goto S_12218;} -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(9916);}while(r); -S_12220:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9917);if(r)goto S_12220;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9917);}while(r); -} -S_12223:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1))== 36 )))||new_error){ -if(qbevent){evnt(9918);if(r)goto S_12223;} -S_12224:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_S,qbs_new_txt_len("$",1))))||new_error){ -if(qbevent){evnt(9919);if(r)goto S_12224;} -do{ -goto LABEL_NOTSUBCALL; -if(!qbevent)break;evnt(9919);}while(r); -} -}else{ -S_12228:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_S->len))||new_error){ -if(qbevent){evnt(9921);if(r)goto S_12228;} -do{ -goto LABEL_NOTSUBCALL; -if(!qbevent)break;evnt(9921);}while(r); -} -} -S_12232:; -if ((-(*__LONG_N> 1 ))||new_error){ -if(qbevent){evnt(9924);if(r)goto S_12232;} -S_12233:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1))!= 61 )))||new_error){ -if(qbevent){evnt(9925);if(r)goto S_12233;} -S_12234:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(FUNC_GETELEMENT(__STRING_A,&(pass1458= 2 )))== 61 )))||new_error){ -if(qbevent){evnt(9926);if(r)goto S_12234;} -do{ -goto LABEL_NOTSUBCALL; -if(!qbevent)break;evnt(9926);}while(r); -} -} -} -S_12239:; -if ((-(*__LONG_N> 2 ))||new_error){ -if(qbevent){evnt(9930);if(r)goto S_12239;} -S_12240:; -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)))))||new_error){ -if(qbevent){evnt(9931);if(r)goto S_12240;} -S_12241:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass1459= 2 )),qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(9932);if(r)goto S_12241;} -do{ -*__LONG_B= 1 ; -if(!qbevent)break;evnt(9933);}while(r); -S_12243:; -fornext_value1461= 3 ; -fornext_finalvalue1461=*__LONG_N; -fornext_step1461= 1 ; -if (fornext_step1461<0) fornext_step_negative1461=1; else fornext_step_negative1461=0; -if (new_error) goto fornext_error1461; -goto fornext_entrylabel1461; -while(1){ -fornext_value1461=fornext_step1461+(*__LONG_I); -fornext_entrylabel1461: -*__LONG_I=fornext_value1461; -if (fornext_step_negative1461){ -if (fornext_value1461fornext_finalvalue1461) break; -} -fornext_error1461:; -if(qbevent){evnt(9934);if(r)goto S_12243;} -do{ -qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9935);}while(r); -S_12245:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(9936);if(r)goto S_12245;} -do{ -*__LONG_B=*__LONG_B+ 1 ; -if(!qbevent)break;evnt(9936);}while(r); -} -S_12248:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(9937);if(r)goto S_12248;} -do{ -*__LONG_B=*__LONG_B- 1 ; -if(!qbevent)break;evnt(9938);}while(r); -S_12250:; -if ((-(*__LONG_B== 0 ))||new_error){ -if(qbevent){evnt(9939);if(r)goto S_12250;} -S_12251:; -if ((-(*__LONG_I==*__LONG_N))||new_error){ -if(qbevent){evnt(9940);if(r)goto S_12251;} -do{ -goto fornext_exit_1460; -if(!qbevent)break;evnt(9940);}while(r); -} -S_12254:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass1462=*__LONG_I+ 1 )),qbs_new_txt_len("=",1))))||new_error){ -if(qbevent){evnt(9941);if(r)goto S_12254;} -do{ -goto LABEL_NOTSUBCALL; -if(!qbevent)break;evnt(9941);}while(r); -} -} -} -fornext_continue_1460:; -} -fornext_exit_1460:; -} -} -} -S_12263:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_GL",3))))||new_error){ -if(qbevent){evnt(9951);if(r)goto S_12263;} -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(9952);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9952);}while(r); -} -S_12267:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("VWATCH",6))))||new_error){ -if(qbevent){evnt(9955);if(r)goto S_12267;} -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(9956);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9956);}while(r); -} -S_12271:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("OPEN",4))))||new_error){ -if(qbevent){evnt(9959);if(r)goto S_12271;} -do{ -*__LONG_B= 0 ; -if(!qbevent)break;evnt(9961);}while(r); -S_12273:; -fornext_value1464= 2 ; -fornext_finalvalue1464=*__LONG_N; -fornext_step1464= 1 ; -if (fornext_step1464<0) fornext_step_negative1464=1; else fornext_step_negative1464=0; -if (new_error) goto fornext_error1464; -goto fornext_entrylabel1464; -while(1){ -fornext_value1464=fornext_step1464+(*__LONG_X); -fornext_entrylabel1464: -*__LONG_X=fornext_value1464; -if (fornext_step_negative1464){ -if (fornext_value1464fornext_finalvalue1464) break; -} -fornext_error1464:; -if(qbevent){evnt(9962);if(r)goto S_12273;} -do{ -qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_A,__LONG_X)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9963);}while(r); -S_12275:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(9964);if(r)goto S_12275;} -do{ -*__LONG_B=*__LONG_B+ 1 ; -if(!qbevent)break;evnt(9964);}while(r); -} -S_12278:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(9965);if(r)goto S_12278;} -do{ -*__LONG_B=*__LONG_B- 1 ; -if(!qbevent)break;evnt(9965);}while(r); -} -S_12281:; -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)))))||new_error){ -if(qbevent){evnt(9966);if(r)goto S_12281;} -do{ -goto fornext_exit_1463; -if(!qbevent)break;evnt(9966);}while(r); -} -S_12284:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_B== 0 ))&(qbs_equal(__STRING_A2,qbs_new_txt_len(",",1)))))||new_error){ -if(qbevent){evnt(9967);if(r)goto S_12284;} -do{ -*__INTEGER_FINDANOTHERID= 1 ; -if(!qbevent)break;evnt(9968);}while(r); -do{ -*__LONG_TRY=FUNC_FINDID(__STRING_FIRSTELEMENT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9969);}while(r); -S_12287:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(9970);if(r)goto S_12287;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9970);}while(r); -} -do{ -goto fornext_exit_1463; -if(!qbevent)break;evnt(9971);}while(r); -} -fornext_continue_1463:; -} -fornext_exit_1463:; -} -S_12294:; -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)))))||new_error){ -if(qbevent){evnt(9981);if(r)goto S_12294;} -S_12295:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("RESET",5))))||new_error){ -if(qbevent){evnt(9982);if(r)goto S_12295;} -S_12296:; -if ((-(*__LONG_N> 1 ))||new_error){ -if(qbevent){evnt(9983);if(r)goto S_12296;} -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(9983);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(9983);}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(9984);}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(9986);}while(r); -} -S_12304:; -if ((-(*__LONG_N== 1 ))||new_error){ -if(qbevent){evnt(9989);if(r)goto S_12304;} -do{ -SUB_WRITEBUFLINE(&(pass1465=*__LONG_MAINTXTBUF),qbs_new_txt_len("sub_close(NULL,0);",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9990);}while(r); -}else{ -do{ -qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9992);}while(r); -do{ -*__LONG_B= 0 ; -if(!qbevent)break;evnt(9993);}while(r); -do{ -*__LONG_S= 0 ; -if(!qbevent)break;evnt(9994);}while(r); -do{ -qbs_set(__STRING_A3,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9995);}while(r); -S_12311:; -fornext_value1467= 2 ; -fornext_finalvalue1467=*__LONG_N; -fornext_step1467= 1 ; -if (fornext_step1467<0) fornext_step_negative1467=1; else fornext_step_negative1467=0; -if (new_error) goto fornext_error1467; -goto fornext_entrylabel1467; -while(1){ -fornext_value1467=fornext_step1467+(*__LONG_X); -fornext_entrylabel1467: -*__LONG_X=fornext_value1467; -if (fornext_step_negative1467){ -if (fornext_value1467fornext_finalvalue1467) break; -} -fornext_error1467:; -if(qbevent){evnt(9996);if(r)goto S_12311;} -do{ -qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_X)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(9997);}while(r); -S_12313:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(9998);if(r)goto S_12313;} -do{ -*__LONG_B=*__LONG_B+ 1 ; -if(!qbevent)break;evnt(9998);}while(r); -} -S_12316:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(9999);if(r)goto S_12316;} -do{ -*__LONG_B=*__LONG_B- 1 ; -if(!qbevent)break;evnt(9999);}while(r); -} -S_12319:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_A2,qbs_new_txt_len("#",1)))&(-(*__LONG_B== 0 ))))||new_error){ -if(qbevent){evnt(10000);if(r)goto S_12319;} -S_12320:; -if ((-(*__LONG_S== 0 ))||new_error){ -if(qbevent){evnt(10001);if(r)goto S_12320;} -do{ -*__LONG_S= 1 ; -if(!qbevent)break;evnt(10001);}while(r); -}else{ -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Unexpected #",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10001);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10001);}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(10002);}while(r); -do{ -goto LABEL_CLOSENEXTA; -if(!qbevent)break;evnt(10003);}while(r); -} -S_12329:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_A2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||new_error){ -if(qbevent){evnt(10006);if(r)goto S_12329;} -S_12330:; -if ((-(*__LONG_S== 2 ))||new_error){ -if(qbevent){evnt(10007);if(r)goto S_12330;} -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_A3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10008);}while(r); -S_12332:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(10009);if(r)goto S_12332;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10009);}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(10010);}while(r); -do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1468= 64 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10011);}while(r); -S_12337:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(10012);if(r)goto S_12337;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10012);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass1469=*__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(10013);}while(r); -do{ -qbs_set(__STRING_A3,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10014);}while(r); -do{ -*__LONG_S= 0 ; -if(!qbevent)break;evnt(10015);}while(r); -do{ -goto LABEL_CLOSENEXTA; -if(!qbevent)break;evnt(10016);}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(10018);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10018);}while(r); -} -} -do{ -*__LONG_S= 2 ; -if(!qbevent)break;evnt(10022);}while(r); -S_12350:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(10023);if(r)goto S_12350;} -do{ -qbs_set(__STRING_A3,__STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10023);}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(10023);}while(r); -} -LABEL_CLOSENEXTA:; -if(qbevent){evnt(10025);r=0;} -fornext_continue_1466:; -} -fornext_exit_1466:; -S_12356:; -if ((-(*__LONG_S== 2 ))||new_error){ -if(qbevent){evnt(10028);if(r)goto S_12356;} -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_A3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10029);}while(r); -S_12358:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(10030);if(r)goto S_12358;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10030);}while(r); -} -do{ -qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10031);}while(r); -do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1470= 64 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10032);}while(r); -S_12363:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(10033);if(r)goto S_12363;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10033);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass1471=*__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(10034);}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(10036);}while(r); -} -} -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(10040);}while(r); -S_12372:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(10040);if(r)goto S_12372;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10040);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10040);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(10041);}while(r); -} -S_12379:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("READ",4))))||new_error){ -if(qbevent){evnt(10060);if(r)goto S_12379;} -do{ -SUB_XREAD(__STRING_CA,__LONG_N); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10061);}while(r); -S_12381:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(10062);if(r)goto S_12381;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10062);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(10064);}while(r); -} -do{ -*__LONG_LINEINPUT= 0 ; -if(!qbevent)break;evnt(10103);}while(r); -S_12387:; -if ((-(*__LONG_N>= 2 ))||new_error){ -if(qbevent){evnt(10104);if(r)goto S_12387;} -S_12388:; -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)))))||new_error){ -if(qbevent){evnt(10105);if(r)goto S_12388;} -do{ -*__LONG_LINEINPUT= 1 ; -if(!qbevent)break;evnt(10106);}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(10107);}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(10107);}while(r); -do{ -*__LONG_N=*__LONG_N- 1 ; -if(!qbevent)break;evnt(10107);}while(r); -do{ -qbs_set(__STRING_FIRSTELEMENT,qbs_new_txt_len("INPUT",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10108);}while(r); -} -} -S_12396:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("INPUT",5))))||new_error){ -if(qbevent){evnt(10112);if(r)goto S_12396;} -S_12397:; -if ((-(*__LONG_N> 1 ))||new_error){ -if(qbevent){evnt(10113);if(r)goto S_12397;} -S_12398:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass1476= 2 )),qbs_new_txt_len("#",1))))||new_error){ -if(qbevent){evnt(10114);if(r)goto S_12398;} -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(10115);}while(r); -S_12400:; -if ((*__LONG_LINEINPUT)||new_error){ -if(qbevent){evnt(10115);if(r)goto S_12400;} -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(10115);}while(r); -} -do{ -qbs_set(__STRING_U,FUNC_STR2(&(pass1477=FUNC_UNIQUENUMBER()))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10117);}while(r); -S_12404:; -if ((-(*__LONG_N== 2 ))||new_error){ -if(qbevent){evnt(10119);if(r)goto S_12404;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected # ... , ...",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10119);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10119);}while(r); -} -do{ -qbs_set(__STRING_A3,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10120);}while(r); -do{ -*__LONG_B= 0 ; -if(!qbevent)break;evnt(10121);}while(r); -S_12410:; -fornext_value1479= 3 ; -fornext_finalvalue1479=*__LONG_N; -fornext_step1479= 1 ; -if (fornext_step1479<0) fornext_step_negative1479=1; else fornext_step_negative1479=0; -if (new_error) goto fornext_error1479; -goto fornext_entrylabel1479; -while(1){ -fornext_value1479=fornext_step1479+(*__LONG_I); -fornext_entrylabel1479: -*__LONG_I=fornext_value1479; -if (fornext_step_negative1479){ -if (fornext_value1479fornext_finalvalue1479) break; -} -fornext_error1479:; -if(qbevent){evnt(10122);if(r)goto S_12410;} -do{ -qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10123);}while(r); -S_12412:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(10124);if(r)goto S_12412;} -do{ -*__LONG_B=*__LONG_B+ 1 ; -if(!qbevent)break;evnt(10124);}while(r); -} -S_12415:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(10125);if(r)goto S_12415;} -do{ -*__LONG_B=*__LONG_B- 1 ; -if(!qbevent)break;evnt(10125);}while(r); -} -S_12418:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_A2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||new_error){ -if(qbevent){evnt(10126);if(r)goto S_12418;} -S_12419:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(10127);if(r)goto S_12419;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected # ... , ...",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10127);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10127);}while(r); -} -do{ -goto LABEL_INPUTGOTFN; -if(!qbevent)break;evnt(10128);}while(r); -} -S_12425:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(10130);if(r)goto S_12425;} -do{ -qbs_set(__STRING_A3,__STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10130);}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(10130);}while(r); -} -fornext_continue_1478:; -} -fornext_exit_1478:; -LABEL_INPUTGOTFN:; -if(qbevent){evnt(10132);r=0;} -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_A3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10133);}while(r); -S_12432:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(10134);if(r)goto S_12432;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10134);}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(10135);}while(r); -do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1480= 64 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10136);}while(r); -S_12437:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(10137);if(r)goto S_12437;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10137);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass1481=*__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(10138);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1482=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if (new_error) goto skip",24),__STRING_U),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10139);}while(r); -do{ -*__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(10140);}while(r); -S_12443:; -if ((-(*__LONG_I>*__LONG_N))||new_error){ -if(qbevent){evnt(10141);if(r)goto S_12443;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected , ...",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10141);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10141);}while(r); -} -do{ -qbs_set(__STRING_A3,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10142);}while(r); -do{ -*__LONG_B= 0 ; -if(!qbevent)break;evnt(10143);}while(r); -S_12449:; -fornext_value1484=*__LONG_I; -fornext_finalvalue1484=*__LONG_N; -fornext_step1484= 1 ; -if (fornext_step1484<0) fornext_step_negative1484=1; else fornext_step_negative1484=0; -if (new_error) goto fornext_error1484; -goto fornext_entrylabel1484; -while(1){ -fornext_value1484=fornext_step1484+(*__LONG_I); -fornext_entrylabel1484: -*__LONG_I=fornext_value1484; -if (fornext_step_negative1484){ -if (fornext_value1484fornext_finalvalue1484) break; -} -fornext_error1484:; -if(qbevent){evnt(10144);if(r)goto S_12449;} -do{ -qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10145);}while(r); -S_12451:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(10146);if(r)goto S_12451;} -do{ -*__LONG_B=*__LONG_B+ 1 ; -if(!qbevent)break;evnt(10146);}while(r); -} -S_12454:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(10147);if(r)goto S_12454;} -do{ -*__LONG_B=*__LONG_B- 1 ; -if(!qbevent)break;evnt(10147);}while(r); -} -S_12457:; -if ((-(*__LONG_I==*__LONG_N))||new_error){ -if(qbevent){evnt(10148);if(r)goto S_12457;} -S_12458:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(10149);if(r)goto S_12458;} -do{ -qbs_set(__STRING_A3,__STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10149);}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(10149);}while(r); -} -do{ -qbs_set(__STRING_A2,qbs_new_txt_len(",",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10150);}while(r); -do{ -*__LONG_B= 0 ; -if(!qbevent)break;evnt(10150);}while(r); -} -S_12466:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_A2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||new_error){ -if(qbevent){evnt(10152);if(r)goto S_12466;} -S_12467:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(10153);if(r)goto S_12467;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected , ...",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10153);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10153);}while(r); -} -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_A3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10154);}while(r); -S_12472:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(10155);if(r)goto S_12472;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10155);}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(10156);}while(r); -do{ -qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_T)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10157);}while(r); -S_12477:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(10158);if(r)goto S_12477;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10158);}while(r); -} -S_12480:; -if ((-((*__LONG_T&*__LONG_ISREFERENCE)== 0 ))||new_error){ -if(qbevent){evnt(10159);if(r)goto S_12480;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected variable-name",22)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10159);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10159);}while(r); -} -S_12484:; -if (((*__LONG_T&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(10160);if(r)goto S_12484;} -do{ -qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_T,&(pass1485= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10161);}while(r); -S_12486:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(10162);if(r)goto S_12486;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10162);}while(r); -} -S_12489:; -if ((*__LONG_LINEINPUT)||new_error){ -if(qbevent){evnt(10163);if(r)goto S_12489;} -do{ -SUB_WRITEBUFLINE(&(pass1486=*__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(10164);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1487=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if (new_error) goto skip",24),__STRING_U),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10165);}while(r); -}else{ -do{ -SUB_WRITEBUFLINE(&(pass1488=*__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(10167);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1489=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if (new_error) goto skip",24),__STRING_U),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10168);}while(r); -} -do{ -*__INTEGER_STRINGPROCESSINGHAPPENED= 1 ; -if(!qbevent)break;evnt(10170);}while(r); -}else{ -S_12498:; -if ((*__LONG_LINEINPUT)||new_error){ -if(qbevent){evnt(10172);if(r)goto S_12498;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected string-variable",24)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10172);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10172);}while(r); -} -S_12502:; -if (((-((*__LONG_T&*__LONG_ISFLOAT)!= 0 ))|(-((*__LONG_T& 511 )!= 64 )))||new_error){ -if(qbevent){evnt(10175);if(r)goto S_12502;} -S_12503:; -if (((*__LONG_T&*__LONG_ISOFFSETINBITS))||new_error){ -if(qbevent){evnt(10176);if(r)goto S_12503;} -do{ -SUB_SETREFER(__STRING_E,__LONG_T,qbs_add(qbs_add(qbs_new_txt_len("((int64)func_file_input_float(tmp_fileno,",41),FUNC_STR2(__LONG_T)),qbs_new_txt_len("))",2)),&(pass1490= 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10177);}while(r); -S_12505:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(10178);if(r)goto S_12505;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10178);}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),FUNC_STR2(__LONG_T)),qbs_new_txt_len(")",1)),&(pass1491= 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10180);}while(r); -S_12510:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(10181);if(r)goto S_12510;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10181);}while(r); -} -} -}else{ -S_12515:; -if ((*__LONG_T&*__LONG_ISUNSIGNED)||new_error){ -if(qbevent){evnt(10184);if(r)goto S_12515;} -do{ -SUB_SETREFER(__STRING_E,__LONG_T,qbs_new_txt_len("func_file_input_uint64(tmp_fileno)",34),&(pass1492= 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10185);}while(r); -S_12517:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(10186);if(r)goto S_12517;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10186);}while(r); -} -}else{ -do{ -SUB_SETREFER(__STRING_E,__LONG_T,qbs_new_txt_len("func_file_input_int64(tmp_fileno)",33),&(pass1493= 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10188);}while(r); -S_12522:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(10189);if(r)goto S_12522;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10189);}while(r); -} -} -} -do{ -SUB_WRITEBUFLINE(&(pass1494=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if (new_error) goto skip",24),__STRING_U),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10193);}while(r); -} -S_12529:; -if ((-(*__LONG_I==*__LONG_N))||new_error){ -if(qbevent){evnt(10196);if(r)goto S_12529;} -do{ -goto fornext_exit_1483; -if(!qbevent)break;evnt(10196);}while(r); -} -S_12532:; -if ((*__LONG_LINEINPUT)||new_error){ -if(qbevent){evnt(10197);if(r)goto S_12532;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Too many variables",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10197);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10197);}while(r); -} -do{ -qbs_set(__STRING_A3,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10198);}while(r); -do{ -qbs_set(__STRING_A2,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10198);}while(r); -} -S_12539:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(10200);if(r)goto S_12539;} -do{ -qbs_set(__STRING_A3,__STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10200);}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(10200);}while(r); -} -fornext_continue_1483:; -} -fornext_exit_1483:; -do{ -SUB_WRITEBUFLINE(&(pass1495=*__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(10202);}while(r); -S_12546:; -if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||new_error){ -if(qbevent){evnt(10203);if(r)goto S_12546;} -do{ -SUB_WRITEBUFLINE(&(pass1496=*__LONG_MAINTXTBUF),qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10203);}while(r); -} -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(10204);}while(r); -S_12550:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(10204);if(r)goto S_12550;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10204);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10204);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(10205);}while(r); -} -} -} -S_12559:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("INPUT",5))))||new_error){ -if(qbevent){evnt(10211);if(r)goto S_12559;} -do{ -qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Input",5))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10212);}while(r); -S_12561:; -if ((*__LONG_LINEINPUT)||new_error){ -if(qbevent){evnt(10212);if(r)goto S_12561;} -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(10212);}while(r); -} -do{ -*__LONG_COMMANEEDED= 0 ; -if(!qbevent)break;evnt(10213);}while(r); -do{ -*__LONG_I= 2 ; -if(!qbevent)break;evnt(10214);}while(r); -do{ -*__LONG_NEWLINE= 1 ; -if(!qbevent)break;evnt(10216);}while(r); -S_12567:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,__LONG_I),qbs_new_txt_len(";",1))))||new_error){ -if(qbevent){evnt(10216);if(r)goto S_12567;} -do{ -*__LONG_NEWLINE= 0 ; -if(!qbevent)break;evnt(10216);}while(r); -do{ -*__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(10216);}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(10216);}while(r); -} -do{ -qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10218);}while(r); -S_12573:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_A2, 1 ),func_chr( 34 ))))||new_error){ -if(qbevent){evnt(10219);if(r)goto S_12573;} -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_A2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10220);}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(10220);}while(r); -S_12576:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(10221);if(r)goto S_12576;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10221);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass1498=*__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(10222);}while(r); -do{ -*__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(10223);}while(r); -do{ -qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10225);}while(r); -do{ -*__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(10226);}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(10227);}while(r); -S_12584:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(";",1))))||new_error){ -if(qbevent){evnt(10228);if(r)goto S_12584;} -S_12585:; -if ((*__LONG_LINEINPUT)||new_error){ -if(qbevent){evnt(10229);if(r)goto S_12585;} -do{ -goto LABEL_FINISHEDPROMPTSTRING; -if(!qbevent)break;evnt(10229);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass1499=*__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(10230);}while(r); -do{ -goto LABEL_FINISHEDPROMPTSTRING; -if(!qbevent)break;evnt(10231);}while(r); -} -S_12591:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(",",1))))||new_error){ -if(qbevent){evnt(10233);if(r)goto S_12591;} -do{ -goto LABEL_FINISHEDPROMPTSTRING; -if(!qbevent)break;evnt(10234);}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(10236);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10236);}while(r); -} -S_12597:; -if ((-(*__LONG_LINEINPUT== 0 ))||new_error){ -if(qbevent){evnt(10239);if(r)goto S_12597;} -do{ -SUB_WRITEBUFLINE(&(pass1500=*__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(10239);}while(r); -} -LABEL_FINISHEDPROMPTSTRING:; -if(qbevent){evnt(10240);r=0;} -do{ -*__LONG_NUMVAR= 0 ; -if(!qbevent)break;evnt(10241);}while(r); -S_12601:; -fornext_value1502=*__LONG_I; -fornext_finalvalue1502=*__LONG_N; -fornext_step1502= 1 ; -if (fornext_step1502<0) fornext_step_negative1502=1; else fornext_step_negative1502=0; -if (new_error) 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_value1502fornext_finalvalue1502) break; -} -fornext_error1502:; -if(qbevent){evnt(10242);if(r)goto S_12601;} -S_12602:; -if ((-(*__LONG_COMMANEEDED== 1 ))||new_error){ -if(qbevent){evnt(10243);if(r)goto S_12602;} -do{ -qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10244);}while(r); -S_12604:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_A2,qbs_new_txt_len(",",1))))||new_error){ -if(qbevent){evnt(10245);if(r)goto S_12604;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Syntax error - comma expected",29)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10245);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10245);}while(r); -} -}else{ -do{ -*__LONG_B= 0 ; -if(!qbevent)break;evnt(10248);}while(r); -do{ -qbs_set(__STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10249);}while(r); -S_12611:; -fornext_value1504=*__LONG_I; -fornext_finalvalue1504=*__LONG_N; -fornext_step1504= 1 ; -if (fornext_step1504<0) fornext_step_negative1504=1; else fornext_step_negative1504=0; -if (new_error) goto fornext_error1504; -goto fornext_entrylabel1504; -while(1){ -fornext_value1504=fornext_step1504+(*__LONG_I2); -fornext_entrylabel1504: -*__LONG_I2=fornext_value1504; -if (fornext_step_negative1504){ -if (fornext_value1504fornext_finalvalue1504) break; -} -fornext_error1504:; -if(qbevent){evnt(10250);if(r)goto S_12611;} -do{ -qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10251);}while(r); -S_12613:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(10252);if(r)goto S_12613;} -do{ -*__LONG_B=*__LONG_B+ 1 ; -if(!qbevent)break;evnt(10252);}while(r); -} -S_12616:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(10253);if(r)goto S_12616;} -do{ -*__LONG_B=*__LONG_B- 1 ; -if(!qbevent)break;evnt(10253);}while(r); -} -S_12619:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||new_error){ -if(qbevent){evnt(10254);if(r)goto S_12619;} -do{ -*__LONG_I2=*__LONG_I2- 1 ; -if(!qbevent)break;evnt(10254);}while(r); -do{ -goto fornext_exit_1503; -if(!qbevent)break;evnt(10254);}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(10255);}while(r); -fornext_continue_1503:; -} -fornext_exit_1503:; -do{ -*__LONG_I=*__LONG_I2; -if(!qbevent)break;evnt(10257);}while(r); -S_12626:; -if ((-(*__LONG_I>*__LONG_N))||new_error){ -if(qbevent){evnt(10257);if(r)goto S_12626;} -do{ -*__LONG_I=*__LONG_N; -if(!qbevent)break;evnt(10257);}while(r); -} -S_12629:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(10258);if(r)goto S_12629;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected variable",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10258);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10258);}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(10259);}while(r); -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10260);}while(r); -S_12635:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(10261);if(r)goto S_12635;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10261);}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(10262);}while(r); -S_12639:; -if ((-(*__LONG_I!=*__LONG_N))||new_error){ -if(qbevent){evnt(10262);if(r)goto S_12639;} -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(10262);}while(r); -} -do{ -qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_T)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10263);}while(r); -S_12643:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(10264);if(r)goto S_12643;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10264);}while(r); -} -S_12646:; -if ((-((*__LONG_T&*__LONG_ISREFERENCE)== 0 ))||new_error){ -if(qbevent){evnt(10265);if(r)goto S_12646;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected variable",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10265);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10265);}while(r); -} -S_12650:; -if (((*__LONG_T&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(10267);if(r)goto S_12650;} -do{ -qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_T,&(pass1506= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10268);}while(r); -S_12652:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(10269);if(r)goto S_12652;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10269);}while(r); -} -do{ -*__LONG_NUMVAR=*__LONG_NUMVAR+ 1 ; -if(!qbevent)break;evnt(10270);}while(r); -S_12656:; -if ((*__LONG_LINEINPUT)||new_error){ -if(qbevent){evnt(10271);if(r)goto S_12656;} -do{ -SUB_WRITEBUFLINE(&(pass1507=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("qbs_input_variabletypes[",24),FUNC_STR2(__LONG_NUMVAR)),qbs_new_txt_len("]=ISSTRING+512;",15))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10272);}while(r); -}else{ -do{ -SUB_WRITEBUFLINE(&(pass1508=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("qbs_input_variabletypes[",24),FUNC_STR2(__LONG_NUMVAR)),qbs_new_txt_len("]=ISSTRING;",11))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10274);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass1509=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_input_variableoffsets[",26),FUNC_STR2(__LONG_NUMVAR)),qbs_new_txt_len("]=",2)),__STRING_E),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10276);}while(r); -do{ -goto LABEL_GOTINPUTVAR; -if(!qbevent)break;evnt(10277);}while(r); -} -S_12664:; -if ((*__LONG_LINEINPUT)||new_error){ -if(qbevent){evnt(10280);if(r)goto S_12664;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected string variable",24)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10280);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10280);}while(r); -} -S_12668:; -if (((*__LONG_T&*__LONG_ISARRAY))||new_error){ -if(qbevent){evnt(10281);if(r)goto S_12668;} -S_12669:; -if (((*__LONG_T&*__LONG_ISOFFSETINBITS))||new_error){ -if(qbevent){evnt(10282);if(r)goto S_12669;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("INPUT cannot handle BIT array elements",38)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10283);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10283);}while(r); -} -} -do{ -qbs_set(__STRING_E,qbs_add(qbs_add(qbs_new_txt_len("&(",2),FUNC_REFER(__STRING_E,__LONG_T,&(pass1510= 0 ))),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10286);}while(r); -S_12675:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(10287);if(r)goto S_12675;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10287);}while(r); -} -S_12678:; -if (((*__LONG_T&*__LONG_ISPOINTER))||new_error){ -if(qbevent){evnt(10290);if(r)goto S_12678;} -do{ -*__LONG_T=*__LONG_T-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(10290);}while(r); -} -S_12681:; -if (((*__LONG_T&*__LONG_ISINCONVENTIONALMEMORY))||new_error){ -if(qbevent){evnt(10291);if(r)goto S_12681;} -do{ -*__LONG_T=*__LONG_T-*__LONG_ISINCONVENTIONALMEMORY; -if(!qbevent)break;evnt(10291);}while(r); -} -S_12684:; -if (((*__LONG_T&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(10292);if(r)goto S_12684;} -do{ -*__LONG_T=*__LONG_T-*__LONG_ISREFERENCE; -if(!qbevent)break;evnt(10292);}while(r); -} -do{ -*__LONG_NUMVAR=*__LONG_NUMVAR+ 1 ; -if(!qbevent)break;evnt(10303);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1511=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_input_variabletypes[",24),FUNC_STR2(__LONG_NUMVAR)),qbs_new_txt_len("]=",2)),FUNC_STR2(__LONG_T)),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10304);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1512=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_input_variableoffsets[",26),FUNC_STR2(__LONG_NUMVAR)),qbs_new_txt_len("]=",2)),__STRING_E),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10305);}while(r); -do{ -goto LABEL_GOTINPUTVAR; -if(!qbevent)break;evnt(10306);}while(r); -} -LABEL_GOTINPUTVAR:; -if(qbevent){evnt(10309);r=0;} -do{ -*__LONG_COMMANEEDED=*__LONG_COMMANEEDED+ 1 ; -if(!qbevent)break;evnt(10310);}while(r); -S_12693:; -if ((-(*__LONG_COMMANEEDED== 2 ))||new_error){ -if(qbevent){evnt(10310);if(r)goto S_12693;} -do{ -*__LONG_COMMANEEDED= 0 ; -if(!qbevent)break;evnt(10310);}while(r); -} -fornext_continue_1501:; -} -fornext_exit_1501:; -S_12697:; -if ((-(*__LONG_NUMVAR== 0 ))||new_error){ -if(qbevent){evnt(10312);if(r)goto S_12697;} -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(10312);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10312);}while(r); -} -S_12701:; -if (((-(*__LONG_LINEINPUT== 1 ))&(-(*__LONG_NUMVAR> 1 )))||new_error){ -if(qbevent){evnt(10313);if(r)goto S_12701;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Too many variables",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10313);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10313);}while(r); -} -S_12705:; -if ((-(*__LONG_VWATCHON== 1 ))||new_error){ -if(qbevent){evnt(10314);if(r)goto S_12705;} -do{ -SUB_WRITEBUFLINE(&(pass1513=*__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(10315);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass1514=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_input(",10),FUNC_STR2(__LONG_NUMVAR)),qbs_new_txt_len(",",1)),FUNC_STR2(__LONG_NEWLINE)),qbs_new_txt_len(");",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10317);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1515=*__LONG_MAINTXTBUF),qbs_new_txt_len("if (stop_program) end();",24)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10318);}while(r); -S_12710:; -if ((-(*__LONG_VWATCHON== 1 ))||new_error){ -if(qbevent){evnt(10319);if(r)goto S_12710;} -do{ -SUB_WRITEBUFLINE(&(pass1516=*__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(10320);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass1517=*__LONG_MAINTXTBUF),qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10322);}while(r); -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(10323);}while(r); -S_12715:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(10323);if(r)goto S_12715;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10323);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10323);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(10324);}while(r); -} -S_12722:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("WRITE",5))))||new_error){ -if(qbevent){evnt(10329);if(r)goto S_12722;} -S_12723:; -if ((-(*__LONG_N> 1 ))||new_error){ -if(qbevent){evnt(10330);if(r)goto S_12723;} -S_12724:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass1519= 2 )),qbs_new_txt_len("#",1))))||new_error){ -if(qbevent){evnt(10331);if(r)goto S_12724;} -do{ -SUB_XFILEWRITE(__STRING_CA,__LONG_N); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10332);}while(r); -S_12726:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(10333);if(r)goto S_12726;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10333);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(10334);}while(r); -} -} -} -S_12733:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("WRITE",5))))||new_error){ -if(qbevent){evnt(10339);if(r)goto S_12733;} -do{ -SUB_XWRITE(__STRING_CA,__LONG_N); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10340);}while(r); -S_12735:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(10341);if(r)goto S_12735;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10341);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(10342);}while(r); -} -S_12740:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("PRINT",5))))||new_error){ -if(qbevent){evnt(10345);if(r)goto S_12740;} -S_12741:; -if ((-(*__LONG_N> 1 ))||new_error){ -if(qbevent){evnt(10346);if(r)goto S_12741;} -S_12742:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass1520= 2 )),qbs_new_txt_len("#",1))))||new_error){ -if(qbevent){evnt(10347);if(r)goto S_12742;} -do{ -SUB_XFILEPRINT(__STRING_A,__STRING_CA,__LONG_N); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10348);}while(r); -S_12744:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(10349);if(r)goto S_12744;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10349);}while(r); -} -do{ -qbs_set(__STRING_L,__STRING_TLAYOUT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10350);}while(r); -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(10351);}while(r); -S_12749:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(10351);if(r)goto S_12749;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10351);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10351);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(10352);}while(r); -} -} -} -S_12758:; -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)))))||new_error){ -if(qbevent){evnt(10357);if(r)goto S_12758;} -S_12759:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_SECONDELEMENT,qbs_new_txt_len("USING",5))))||new_error){ -if(qbevent){evnt(10358);if(r)goto S_12759;} -do{ -*__LONG_ELEMENTON= 2 ; -if(!qbevent)break;evnt(10359);}while(r); -LABEL_REDOSEMI:; -if(qbevent){evnt(10360);r=0;} -S_12761:; -fornext_value1523=*__LONG_ELEMENTON; -fornext_finalvalue1523=*__LONG_N- 1 ; -fornext_step1523= 1 ; -if (fornext_step1523<0) fornext_step_negative1523=1; else fornext_step_negative1523=0; -if (new_error) goto fornext_error1523; -goto fornext_entrylabel1523; -while(1){ -fornext_value1523=fornext_step1523+(*__LONG_I); -fornext_entrylabel1523: -*__LONG_I=fornext_value1523; -if (fornext_step_negative1523){ -if (fornext_value1523fornext_finalvalue1523) break; -} -fornext_error1523:; -if(qbevent){evnt(10361);if(r)goto S_12761;} -do{ -qbs_set(__STRING_NEXTCHAR,FUNC_GETELEMENT(__STRING_A,&(pass1524=*__LONG_I+ 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10362);}while(r); -S_12763:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(__STRING_NEXTCHAR,qbs_new_txt_len(";",1)))&(qbs_notequal(__STRING_NEXTCHAR,qbs_new_txt_len(",",1)))&(qbs_notequal(__STRING_NEXTCHAR,qbs_new_txt_len("+",1)))&(qbs_notequal(__STRING_NEXTCHAR,qbs_new_txt_len(")",1)))))||new_error){ -if(qbevent){evnt(10363);if(r)goto S_12763;} -do{ -qbs_set(__STRING_TEMP1,FUNC_GETELEMENT(__STRING_A,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10364);}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(10365);}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(10366);}while(r); -S_12767:; -if (((-(*__LONG_BEGINPOINT!= 0 ))&(-(*__LONG_ENDPOINT!= 0 )))||new_error){ -if(qbevent){evnt(10367);if(r)goto S_12767;} -do{ -*__LONG_TEXTLENGTH=*__LONG_ENDPOINT-*__LONG_BEGINPOINT- 1 ; -if(!qbevent)break;evnt(10369);}while(r); -do{ -qbs_set(__STRING_TEXTVALUE,func_mid(__STRING_TEMP1,*__LONG_ENDPOINT+ 2 ,((int32)(qbs_ltrim(qbs_str((int32)(*__LONG_TEXTLENGTH))))->len),0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10370);}while(r); -S_12770:; -if ((qbs_cleanup(qbs_tmp_base,-(func_val(__STRING_TEXTVALUE)==*__LONG_TEXTLENGTH)))||new_error){ -if(qbevent){evnt(10371);if(r)goto S_12770;} -do{ -SUB_INSERTELEMENTS(__STRING_A,__LONG_I,qbs_new_txt_len(";",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10372);}while(r); -do{ -SUB_INSERTELEMENTS(__STRING_CA,__LONG_I,qbs_new_txt_len(";",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10373);}while(r); -do{ -*__LONG_N=*__LONG_N+ 1 ; -if(!qbevent)break;evnt(10374);}while(r); -do{ -*__LONG_ELEMENTON=*__LONG_I+ 2 ; -if(!qbevent)break;evnt(10375);}while(r); -do{ -goto LABEL_REDOSEMI; -if(!qbevent)break;evnt(10376);}while(r); -} -} -S_12778:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_TEMP1,qbs_new_txt_len("USING",5))))||new_error){ -if(qbevent){evnt(10379);if(r)goto S_12778;} -S_12779:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(qbs_ltrim(__STRING_NEXTCHAR), 1 ),func_chr( 34 ))))||new_error){ -if(qbevent){evnt(10380);if(r)goto S_12779;} -S_12780:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(__STRING_TEMP1,qbs_new_txt_len(";",1)))&(qbs_notequal(__STRING_TEMP1,qbs_new_txt_len(",",1)))&(qbs_notequal(__STRING_TEMP1,qbs_new_txt_len("+",1)))&(qbs_notequal(__STRING_TEMP1,qbs_new_txt_len("(",1)))))||new_error){ -if(qbevent){evnt(10381);if(r)goto S_12780;} -do{ -SUB_INSERTELEMENTS(__STRING_A,__LONG_I,qbs_new_txt_len(";",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10382);}while(r); -do{ -SUB_INSERTELEMENTS(__STRING_CA,__LONG_I,qbs_new_txt_len(";",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10383);}while(r); -do{ -*__LONG_N=*__LONG_N+ 1 ; -if(!qbevent)break;evnt(10384);}while(r); -do{ -*__LONG_ELEMENTON=*__LONG_I+ 2 ; -if(!qbevent)break;evnt(10385);}while(r); -do{ -goto LABEL_REDOSEMI; -if(!qbevent)break;evnt(10386);}while(r); -} -} -} -} -fornext_continue_1522:; -} -fornext_exit_1522:; -} -do{ -SUB_XPRINT(__STRING_A,__STRING_CA,__LONG_N); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10394);}while(r); -S_12793:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(10395);if(r)goto S_12793;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10395);}while(r); -} -do{ -qbs_set(__STRING_L,__STRING_TLAYOUT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10396);}while(r); -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(10397);}while(r); -S_12798:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(10397);if(r)goto S_12798;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10397);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10397);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(10398);}while(r); -} -S_12805:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("CLEAR",5))))||new_error){ -if(qbevent){evnt(10403);if(r)goto S_12805;} -S_12806:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_SUBFUNC,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(10404);if(r)goto S_12806;} -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(10404);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10404);}while(r); -} -} -S_12811:; -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)))))||new_error){ -if(qbevent){evnt(10408);if(r)goto S_12811;} -S_12812:; -if ((-(*__LONG_N== 1 ))||new_error){ -if(qbevent){evnt(10409);if(r)goto S_12812;} -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(10409);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10409);}while(r); -} -S_12816:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("LSET",4))))||new_error){ -if(qbevent){evnt(10410);if(r)goto S_12816;} -do{ -qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("LSet",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10410);}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(10410);}while(r); -} -do{ -qbs_set(__STRING_DEST,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10411);}while(r); -do{ -qbs_set(__STRING_SOURCE,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10412);}while(r); -do{ -*__LONG_PART= 1 ; -if(!qbevent)break;evnt(10413);}while(r); -do{ -*__LONG_I= 2 ; -if(!qbevent)break;evnt(10414);}while(r); -do{ -qbs_set(__STRING_A3,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10415);}while(r); -do{ -*__LONG_B= 0 ; -if(!qbevent)break;evnt(10416);}while(r); -S_12827:; -do{ -if(qbevent){evnt(10417);if(r)goto S_12827;} -S_12828:; -if ((-(*__LONG_I>*__LONG_N))||new_error){ -if(qbevent){evnt(10418);if(r)goto S_12828;} -S_12829:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_PART!= 2 ))|(qbs_equal(__STRING_A3,qbs_new_txt_len("",0)))))||new_error){ -if(qbevent){evnt(10419);if(r)goto S_12829;} -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(10419);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10419);}while(r); -} -do{ -qbs_set(__STRING_SOURCE,__STRING_A3); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10420);}while(r); -do{ -goto dl_exit_1526; -if(!qbevent)break;evnt(10421);}while(r); -} -do{ -qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10423);}while(r); -S_12837:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(10424);if(r)goto S_12837;} -do{ -*__LONG_B=*__LONG_B+ 1 ; -if(!qbevent)break;evnt(10424);}while(r); -} -S_12840:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(10425);if(r)goto S_12840;} -do{ -*__LONG_B=*__LONG_B- 1 ; -if(!qbevent)break;evnt(10425);}while(r); -} -S_12843:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_A2,qbs_new_txt_len("=",1)))&(-(*__LONG_B== 0 ))))||new_error){ -if(qbevent){evnt(10426);if(r)goto S_12843;} -S_12844:; -if ((-(*__LONG_PART== 1 ))||new_error){ -if(qbevent){evnt(10427);if(r)goto S_12844;} -do{ -qbs_set(__STRING_DEST,__STRING_A3); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10427);}while(r); -do{ -*__LONG_PART= 2 ; -if(!qbevent)break;evnt(10427);}while(r); -do{ -qbs_set(__STRING_A3,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10427);}while(r); -do{ -goto LABEL_LRSETGOTPART; -if(!qbevent)break;evnt(10427);}while(r); -} -} -S_12851:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_A3->len))||new_error){ -if(qbevent){evnt(10429);if(r)goto S_12851;} -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(10429);}while(r); -}else{ -do{ -qbs_set(__STRING_A3,__STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10429);}while(r); -} -LABEL_LRSETGOTPART:; -if(qbevent){evnt(10430);r=0;} -do{ -*__LONG_I=*__LONG_I+ 1 ; -if(!qbevent)break;evnt(10431);}while(r); -dl_continue_1526:; -}while(1); -dl_exit_1526:; -S_12858:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_DEST,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(10433);if(r)goto S_12858;} -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(10433);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10433);}while(r); -} -do{ -qbs_set(__STRING_F,FUNC_FIXOPERATIONORDER(__STRING_DEST)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10435);}while(r); -S_12863:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(10436);if(r)goto S_12863;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10436);}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(10437);}while(r); -do{ -qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_F,__LONG_SOURCETYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10438);}while(r); -S_12868:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(10439);if(r)goto S_12868;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10439);}while(r); -} -S_12871:; -if (((-((*__LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))|(-((*__LONG_SOURCETYP&*__LONG_ISSTRING)== 0 )))||new_error){ -if(qbevent){evnt(10440);if(r)goto S_12871;} -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(10440);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10440);}while(r); -} -do{ -qbs_set(__STRING_DEST,FUNC_EVALUATETOTYP(__STRING_F,__LONG_ISSTRING)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10441);}while(r); -S_12876:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(10442);if(r)goto S_12876;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10442);}while(r); -} -do{ -qbs_set(__STRING_SOURCE,FUNC_FIXOPERATIONORDER(__STRING_SOURCE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10443);}while(r); -S_12880:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(10444);if(r)goto S_12880;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10444);}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(10445);}while(r); -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(10446);}while(r); -S_12885:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(10446);if(r)goto S_12885;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10446);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10446);}while(r); -} -do{ -qbs_set(__STRING_SOURCE,FUNC_EVALUATETOTYP(__STRING_SOURCE,__LONG_ISSTRING)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10447);}while(r); -S_12891:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(10448);if(r)goto S_12891;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10448);}while(r); -} -S_12894:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("LSET",4))))||new_error){ -if(qbevent){evnt(10449);if(r)goto S_12894;} -do{ -SUB_WRITEBUFLINE(&(pass1529=*__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(10450);}while(r); -}else{ -do{ -SUB_WRITEBUFLINE(&(pass1530=*__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(10452);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(10454);}while(r); -} -S_12901:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("SWAP",4))))||new_error){ -if(qbevent){evnt(10458);if(r)goto S_12901;} -S_12902:; -if ((-(*__LONG_N< 4 ))||new_error){ -if(qbevent){evnt(10459);if(r)goto S_12902;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected SWAP ... , ...",23)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10459);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10459);}while(r); -} -do{ -*__LONG_B= 0 ; -if(!qbevent)break;evnt(10460);}while(r); -do{ -*__LONG_ELE= 1 ; -if(!qbevent)break;evnt(10461);}while(r); -do{ -qbs_set(__STRING_E1,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10462);}while(r); -do{ -qbs_set(__STRING_E2,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10463);}while(r); -S_12910:; -fornext_value1532= 2 ; -fornext_finalvalue1532=*__LONG_N; -fornext_step1532= 1 ; -if (fornext_step1532<0) fornext_step_negative1532=1; else fornext_step_negative1532=0; -if (new_error) goto fornext_error1532; -goto fornext_entrylabel1532; -while(1){ -fornext_value1532=fornext_step1532+(*__LONG_I); -fornext_entrylabel1532: -*__LONG_I=fornext_value1532; -if (fornext_step_negative1532){ -if (fornext_value1532fornext_finalvalue1532) break; -} -fornext_error1532:; -if(qbevent){evnt(10464);if(r)goto S_12910;} -do{ -qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10465);}while(r); -S_12912:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(10466);if(r)goto S_12912;} -do{ -*__LONG_B=*__LONG_B+ 1 ; -if(!qbevent)break;evnt(10466);}while(r); -} -S_12915:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(10467);if(r)goto S_12915;} -do{ -*__LONG_B=*__LONG_B- 1 ; -if(!qbevent)break;evnt(10467);}while(r); -} -S_12918:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||new_error){ -if(qbevent){evnt(10468);if(r)goto S_12918;} -S_12919:; -if ((-(*__LONG_ELE== 2 ))||new_error){ -if(qbevent){evnt(10469);if(r)goto S_12919;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected SWAP ... , ...",23)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10469);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10469);}while(r); -} -do{ -*__LONG_ELE= 2 ; -if(!qbevent)break;evnt(10470);}while(r); -}else{ -S_12925:; -if ((-(*__LONG_ELE== 1 ))||new_error){ -if(qbevent){evnt(10472);if(r)goto S_12925;} -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(10472);}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(10472);}while(r); -} -} -fornext_continue_1531:; -} -fornext_exit_1531:; -S_12932:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(10475);if(r)goto S_12932;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected SWAP ... , ...",23)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10475);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10475);}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(10476);}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(10476);}while(r); -do{ -qbs_set(__STRING_E1,FUNC_FIXOPERATIONORDER(__STRING_E1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10478);}while(r); -S_12939:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(10479);if(r)goto S_12939;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10479);}while(r); -} -do{ -qbs_set(__STRING_E1L,__STRING_TLAYOUT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10480);}while(r); -do{ -qbs_set(__STRING_E2,FUNC_FIXOPERATIONORDER(__STRING_E2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10481);}while(r); -S_12944:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(10482);if(r)goto S_12944;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10482);}while(r); -} -do{ -qbs_set(__STRING_E2L,__STRING_TLAYOUT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10483);}while(r); -do{ -qbs_set(__STRING_E1,FUNC_EVALUATE(__STRING_E1,__LONG_E1TYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10484);}while(r); -do{ -qbs_set(__STRING_E2,FUNC_EVALUATE(__STRING_E2,__LONG_E2TYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10484);}while(r); -S_12950:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(10485);if(r)goto S_12950;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10485);}while(r); -} -S_12953:; -if (((-((*__LONG_E1TYP&*__LONG_ISREFERENCE)== 0 ))|(-((*__LONG_E2TYP&*__LONG_ISREFERENCE)== 0 )))||new_error){ -if(qbevent){evnt(10486);if(r)goto S_12953;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected variable",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10486);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10486);}while(r); -} -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(10488);}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(10489);}while(r); -S_12959:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||new_error){ -if(qbevent){evnt(10490);if(r)goto S_12959;} -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10490);}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(10490);}while(r); -} -S_12964:; -if (((*__LONG_E1TYP&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(10493);if(r)goto S_12964;} -S_12965:; -if ((-((*__LONG_E2TYP&*__LONG_ISSTRING)== 0 ))||new_error){ -if(qbevent){evnt(10494);if(r)goto S_12965;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Type mismatch",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10494);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10494);}while(r); -} -do{ -qbs_set(__STRING_E1,FUNC_REFER(__STRING_E1,__LONG_E1TYP,&(pass1536= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10495);}while(r); -do{ -qbs_set(__STRING_E2,FUNC_REFER(__STRING_E2,__LONG_E2TYP,&(pass1537= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10495);}while(r); -S_12971:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(10496);if(r)goto S_12971;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10496);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass1538=*__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(10497);}while(r); -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(10498);}while(r); -} -S_12977:; -if ((*__LONG_E1TYP&*__LONG_ISUDT)||new_error){ -if(qbevent){evnt(10506);if(r)goto S_12977;} -do{ -qbs_set(__STRING_A,__STRING_E1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10507);}while(r); -do{ -*__LONG_I=func_instr(NULL,__STRING_A,__STRING1_SP3,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10509);}while(r); -S_12980:; -if ((*__LONG_I)||new_error){ -if(qbevent){evnt(10510);if(r)goto S_12980;} -do{ -*__LONG_IDNUMBER=qbr(func_val(qbs_left(__STRING_A,*__LONG_I- 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10511);}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(10511);}while(r); -do{ -SUB_GETID(__LONG_IDNUMBER); -if(!qbevent)break;evnt(10512);}while(r); -S_12984:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(10513);if(r)goto S_12984;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10513);}while(r); -} -do{ -*__LONG_U=qbr(func_val(__STRING_A)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10514);}while(r); -do{ -*__LONG_I=func_instr(NULL,__STRING_A,__STRING1_SP3,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10515);}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(10515);}while(r); -do{ -*__LONG_E=qbr(func_val(__STRING_A)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10515);}while(r); -do{ -*__LONG_I=func_instr(NULL,__STRING_A,__STRING1_SP3,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10516);}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(10516);}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(10517);}while(r); -S_12994:; -if ((-(*(int32*)(((char*)__UDT_ID)+(536))== 0 ))||new_error){ -if(qbevent){evnt(10517);if(r)goto S_12994;} -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(10517);}while(r); -} -S_12997:; -if ((-(*__LONG_E== 0 ))||new_error){ -if(qbevent){evnt(10518);if(r)goto S_12997;} -do{ -qbs_set(__STRING_LHSSCOPE,FUNC_SCOPE()); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10519);}while(r); -do{ -qbs_set(__STRING_E,__STRING_E2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10520);}while(r); -do{ -*__LONG_T2=*__LONG_E2TYP; -if(!qbevent)break;evnt(10520);}while(r); -S_13001:; -if ((-((*__LONG_T2&*__LONG_ISUDT)== 0 ))||new_error){ -if(qbevent){evnt(10521);if(r)goto S_13001;} -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(10521);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10521);}while(r); -} -do{ -*__LONG_IDNUMBER2=qbr(func_val(__STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10522);}while(r); -do{ -SUB_GETID(__LONG_IDNUMBER2); -if(!qbevent)break;evnt(10523);}while(r); -S_13007:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(10524);if(r)goto S_13007;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10524);}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(10525);}while(r); -S_13011:; -if ((-(*(int32*)(((char*)__UDT_ID)+(536))== 0 ))||new_error){ -if(qbevent){evnt(10525);if(r)goto S_13011;} -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(10525);}while(r); -} -do{ -*__LONG_I=func_instr(NULL,__STRING_E,__STRING1_SP3,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10526);}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(10526);}while(r); -do{ -*__LONG_U2=qbr(func_val(__STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10526);}while(r); -do{ -*__LONG_I=func_instr(NULL,__STRING_E,__STRING1_SP3,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10527);}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(10527);}while(r); -do{ -*__LONG_E2=qbr(func_val(__STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10527);}while(r); -do{ -*__LONG_I=func_instr(NULL,__STRING_E,__STRING1_SP3,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10529);}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(10529);}while(r); -S_13022:; -if (((-(*__LONG_U!=*__LONG_U2))|(-(*__LONG_E2!= 0 )))||new_error){ -if(qbevent){evnt(10531);if(r)goto S_13022;} -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(10531);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10531);}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(10532);}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(10533);}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(10534);}while(r); -do{ -qbs_set(__STRING_SIZ,FUNC_STR2(__LONG_B)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10535);}while(r); -S_13030:; -if ((-(*__LONG_B== 1 ))||new_error){ -if(qbevent){evnt(10536);if(r)goto S_13030;} -do{ -SUB_WRITEBUFLINE(&(pass1545=*__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(10536);}while(r); -} -S_13033:; -if ((-(*__LONG_B== 2 ))||new_error){ -if(qbevent){evnt(10537);if(r)goto S_13033;} -do{ -SUB_WRITEBUFLINE(&(pass1546=*__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(10537);}while(r); -} -S_13036:; -if ((-(*__LONG_B== 4 ))||new_error){ -if(qbevent){evnt(10538);if(r)goto S_13036;} -do{ -SUB_WRITEBUFLINE(&(pass1547=*__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(10538);}while(r); -} -S_13039:; -if ((-(*__LONG_B== 8 ))||new_error){ -if(qbevent){evnt(10539);if(r)goto S_13039;} -do{ -SUB_WRITEBUFLINE(&(pass1548=*__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(10539);}while(r); -} -S_13042:; -if (((-(*__LONG_B!= 1 ))&(-(*__LONG_B!= 2 ))&(-(*__LONG_B!= 4 ))&(-(*__LONG_B!= 8 )))||new_error){ -if(qbevent){evnt(10540);if(r)goto S_13042;} -do{ -SUB_WRITEBUFLINE(&(pass1549=*__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(10540);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(10541);}while(r); -} -} -} -do{ -*__LONG_E1TYPC=*__LONG_E1TYP; -if(!qbevent)break;evnt(10547);}while(r); -S_13050:; -if ((*__LONG_E1TYPC&*__LONG_ISPOINTER)||new_error){ -if(qbevent){evnt(10548);if(r)goto S_13050;} -do{ -*__LONG_E1TYPC=*__LONG_E1TYPC-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(10548);}while(r); -} -S_13053:; -if ((*__LONG_E1TYPC&*__LONG_ISINCONVENTIONALMEMORY)||new_error){ -if(qbevent){evnt(10549);if(r)goto S_13053;} -do{ -*__LONG_E1TYPC=*__LONG_E1TYPC-*__LONG_ISINCONVENTIONALMEMORY; -if(!qbevent)break;evnt(10549);}while(r); -} -S_13056:; -if ((*__LONG_E1TYPC&*__LONG_ISARRAY)||new_error){ -if(qbevent){evnt(10550);if(r)goto S_13056;} -do{ -*__LONG_E1TYPC=*__LONG_E1TYPC-*__LONG_ISARRAY; -if(!qbevent)break;evnt(10550);}while(r); -} -S_13059:; -if ((*__LONG_E1TYPC&*__LONG_ISUNSIGNED)||new_error){ -if(qbevent){evnt(10551);if(r)goto S_13059;} -do{ -*__LONG_E1TYPC=*__LONG_E1TYPC-*__LONG_ISUNSIGNED; -if(!qbevent)break;evnt(10551);}while(r); -} -S_13062:; -if ((*__LONG_E1TYPC&*__LONG_ISUDT)||new_error){ -if(qbevent){evnt(10552);if(r)goto S_13062;} -do{ -*__LONG_E1TYPC=*__LONG_E1TYPC-*__LONG_ISUDT; -if(!qbevent)break;evnt(10552);}while(r); -} -do{ -*__LONG_E2TYPC=*__LONG_E2TYP; -if(!qbevent)break;evnt(10553);}while(r); -S_13066:; -if ((*__LONG_E2TYPC&*__LONG_ISPOINTER)||new_error){ -if(qbevent){evnt(10554);if(r)goto S_13066;} -do{ -*__LONG_E2TYPC=*__LONG_E2TYPC-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(10554);}while(r); -} -S_13069:; -if ((*__LONG_E2TYPC&*__LONG_ISINCONVENTIONALMEMORY)||new_error){ -if(qbevent){evnt(10555);if(r)goto S_13069;} -do{ -*__LONG_E2TYPC=*__LONG_E2TYPC-*__LONG_ISINCONVENTIONALMEMORY; -if(!qbevent)break;evnt(10555);}while(r); -} -S_13072:; -if ((*__LONG_E2TYPC&*__LONG_ISARRAY)||new_error){ -if(qbevent){evnt(10556);if(r)goto S_13072;} -do{ -*__LONG_E2TYPC=*__LONG_E2TYPC-*__LONG_ISARRAY; -if(!qbevent)break;evnt(10556);}while(r); -} -S_13075:; -if ((*__LONG_E2TYPC&*__LONG_ISUNSIGNED)||new_error){ -if(qbevent){evnt(10557);if(r)goto S_13075;} -do{ -*__LONG_E2TYPC=*__LONG_E2TYPC-*__LONG_ISUNSIGNED; -if(!qbevent)break;evnt(10557);}while(r); -} -S_13078:; -if ((*__LONG_E2TYPC&*__LONG_ISUDT)||new_error){ -if(qbevent){evnt(10558);if(r)goto S_13078;} -do{ -*__LONG_E2TYPC=*__LONG_E2TYPC-*__LONG_ISUDT; -if(!qbevent)break;evnt(10558);}while(r); -} -S_13081:; -if ((-(*__LONG_E1TYPC!=*__LONG_E2TYPC))||new_error){ -if(qbevent){evnt(10559);if(r)goto S_13081;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Type mismatch",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10559);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10559);}while(r); -} -do{ -*__LONG_T=*__LONG_E1TYP; -if(!qbevent)break;evnt(10560);}while(r); -S_13086:; -if ((*__LONG_T&*__LONG_ISOFFSETINBITS)||new_error){ -if(qbevent){evnt(10561);if(r)goto S_13086;} -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(10561);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10561);}while(r); -} -do{ -*__LONG_B=*__LONG_T& 511 ; -if(!qbevent)break;evnt(10562);}while(r); -do{ -qbs_set(__STRING_T,FUNC_STR2(__LONG_B)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10563);}while(r); -S_13092:; -if ((-(*__LONG_B> 64 ))||new_error){ -if(qbevent){evnt(10563);if(r)goto S_13092;} -do{ -qbs_set(__STRING_T,qbs_new_txt_len("longdouble",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10563);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass1550=*__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,&(pass1551= 0 ))),qbs_new_txt_len(",&",2)),FUNC_REFER(__STRING_E2,__LONG_E2TYP,&(pass1552= 0 ))),qbs_new_txt_len(");",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10564);}while(r); -S_13096:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(10565);if(r)goto S_13096;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10565);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(10566);}while(r); -} -S_13101:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("OPTION",6))))||new_error){ -if(qbevent){evnt(10569);if(r)goto S_13101;} -S_13102:; -if ((-(*__BYTE_OPTIONEXPLICIT== 0 ))||new_error){ -if(qbevent){evnt(10570);if(r)goto S_13102;} -do{ -qbs_set(__STRING_E,qbs_add(qbs_add(qbs_new_txt_len(" or OPTION ",11),__STRING_QB64PREFIX),qbs_new_txt_len("EXPLICIT",8))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10570);}while(r); -}else{ -do{ -qbs_set(__STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10570);}while(r); -} -S_13107:; -if ((-(*__BYTE_OPTIONEXPLICITARRAY== 0 ))||new_error){ -if(qbevent){evnt(10571);if(r)goto S_13107;} -do{ -qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(__STRING_E,qbs_new_txt_len(" or OPTION ",11)),__STRING_QB64PREFIX),qbs_new_txt_len("EXPLICITARRAY",13))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10571);}while(r); -} -S_13110:; -if ((-(*__LONG_N== 1 ))||new_error){ -if(qbevent){evnt(10572);if(r)goto S_13110;} -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(10572);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10572);}while(r); -} -do{ -qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,&(pass1553= 2 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10573);}while(r); -S_13115:; -if(qbevent){evnt(10574);if(r)goto S_13115;} -S_13116:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("BASE",4))))||new_error){ -if(qbevent){evnt(10575);if(r)goto S_13116;} -do{ -qbs_set(__STRING_L,FUNC_GETELEMENT(__STRING_A,&(pass1555= 3 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10576);}while(r); -S_13118:; -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)))))||new_error){ -if(qbevent){evnt(10577);if(r)goto S_13118;} -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(10577);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10577);}while(r); -} -S_13122:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_L,qbs_new_txt_len("1",1))))||new_error){ -if(qbevent){evnt(10578);if(r)goto S_13122;} -do{ -*__INTEGER_OPTIONBASE= 1 ; -if(!qbevent)break;evnt(10578);}while(r); -}else{ -do{ -*__INTEGER_OPTIONBASE= 0 ; -if(!qbevent)break;evnt(10578);}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(10579);}while(r); -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(10580);}while(r); -S_13129:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(10580);if(r)goto S_13129;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10580);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10580);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(10581);}while(r); -sc_ec_33_end:; -goto sc_1554_end; -} -S_13135:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("EXPLICIT",8))||qbs_equal(__STRING_E,qbs_new_txt_len("_EXPLICIT",9))))||new_error){ -if(qbevent){evnt(10582);if(r)goto S_13135;} -S_13136:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E,qbs_new_txt_len("EXPLICIT",8)))&(qbs_equal(__STRING_QB64PREFIX,qbs_new_txt_len("_",1)))))||new_error){ -if(qbevent){evnt(10583);if(r)goto S_13136;} -S_13137:; -if ((-(*__BYTE_OPTIONEXPLICIT== 0 ))||new_error){ -if(qbevent){evnt(10584);if(r)goto S_13137;} -do{ -qbs_set(__STRING_E,qbs_add(qbs_add(qbs_new_txt_len(" or OPTION ",11),__STRING_QB64PREFIX),qbs_new_txt_len("EXPLICIT",8))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10584);}while(r); -}else{ -do{ -qbs_set(__STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10584);}while(r); -} -S_13142:; -if ((-(*__BYTE_OPTIONEXPLICITARRAY== 0 ))||new_error){ -if(qbevent){evnt(10585);if(r)goto S_13142;} -do{ -qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(__STRING_E,qbs_new_txt_len(" or OPTION ",11)),__STRING_QB64PREFIX),qbs_new_txt_len("EXPLICITARRAY",13))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10585);}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(10586);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10586);}while(r); -} -do{ -*__LONG_OPEX_DESIREDSTATE= -1 ; -if(!qbevent)break;evnt(10589);}while(r); -S_13149:; -if ((-(*__BYTE_OPTIONEXPLICIT== 0 ))||new_error){ -if(qbevent){evnt(10590);if(r)goto S_13149;} -S_13150:; -if ((-(*__LONG_OPEX_RECOMPILEATTEMPTS== 0 ))||new_error){ -if(qbevent){evnt(10591);if(r)goto S_13150;} -do{ -*__LONG_OPEX_RECOMPILEATTEMPTS=*__LONG_OPEX_RECOMPILEATTEMPTS+ 1 ; -if(!qbevent)break;evnt(10592);}while(r); -do{ -goto LABEL_DO_RECOMPILE; -if(!qbevent)break;evnt(10593);}while(r); -} -} -do{ -qbs_set(__STRING_L,qbs_add(FUNC_SCASE(qbs_new_txt_len("Option",6)),__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10597);}while(r); -S_13156:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("EXPLICIT",8))))||new_error){ -if(qbevent){evnt(10598);if(r)goto S_13156;} -do{ -qbs_set(__STRING_L,qbs_add(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Explicit",8)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10598);}while(r); -}else{ -do{ -qbs_set(__STRING_L,qbs_add(__STRING_L,FUNC_SCASE(qbs_new_txt_len("_Explicit",9)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10598);}while(r); -} -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(10599);}while(r); -S_13162:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(10599);if(r)goto S_13162;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10599);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10599);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(10600);}while(r); -sc_ec_34_end:; -goto sc_1554_end; -} -S_13168:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("EXPLICITARRAY",13))||qbs_equal(__STRING_E,qbs_new_txt_len("_EXPLICITARRAY",14))))||new_error){ -if(qbevent){evnt(10601);if(r)goto S_13168;} -S_13169:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E,qbs_new_txt_len("EXPLICITARRAY",13)))&(qbs_equal(__STRING_QB64PREFIX,qbs_new_txt_len("_",1)))))||new_error){ -if(qbevent){evnt(10602);if(r)goto S_13169;} -S_13170:; -if ((-(*__BYTE_OPTIONEXPLICIT== 0 ))||new_error){ -if(qbevent){evnt(10603);if(r)goto S_13170;} -do{ -qbs_set(__STRING_E,qbs_add(qbs_add(qbs_new_txt_len(" or OPTION ",11),__STRING_QB64PREFIX),qbs_new_txt_len("EXPLICIT",8))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10603);}while(r); -}else{ -do{ -qbs_set(__STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10603);}while(r); -} -S_13175:; -if ((-(*__BYTE_OPTIONEXPLICITARRAY== 0 ))||new_error){ -if(qbevent){evnt(10604);if(r)goto S_13175;} -do{ -qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(__STRING_E,qbs_new_txt_len(" or OPTION ",11)),__STRING_QB64PREFIX),qbs_new_txt_len("EXPLICITARRAY",13))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10604);}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(10605);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10605);}while(r); -} -do{ -*__LONG_OPEXARRAY_DESIREDSTATE= -1 ; -if(!qbevent)break;evnt(10608);}while(r); -S_13182:; -if ((-(*__BYTE_OPTIONEXPLICITARRAY== 0 ))||new_error){ -if(qbevent){evnt(10609);if(r)goto S_13182;} -S_13183:; -if ((-(*__LONG_OPEXARRAY_RECOMPILEATTEMPTS== 0 ))||new_error){ -if(qbevent){evnt(10610);if(r)goto S_13183;} -do{ -*__LONG_OPEXARRAY_RECOMPILEATTEMPTS=*__LONG_OPEXARRAY_RECOMPILEATTEMPTS+ 1 ; -if(!qbevent)break;evnt(10611);}while(r); -do{ -goto LABEL_DO_RECOMPILE; -if(!qbevent)break;evnt(10612);}while(r); -} -} -do{ -qbs_set(__STRING_L,qbs_add(FUNC_SCASE(qbs_new_txt_len("Option",6)),__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10616);}while(r); -S_13189:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("EXPLICITARRAY",13))))||new_error){ -if(qbevent){evnt(10617);if(r)goto S_13189;} -do{ -qbs_set(__STRING_L,qbs_add(__STRING_L,FUNC_SCASE(qbs_new_txt_len("ExplicitArray",13)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10617);}while(r); -}else{ -do{ -qbs_set(__STRING_L,qbs_add(__STRING_L,FUNC_SCASE(qbs_new_txt_len("_ExplicitArray",14)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10617);}while(r); -} -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(10618);}while(r); -S_13195:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(10618);if(r)goto S_13195;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10618);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10618);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(10619);}while(r); -sc_ec_35_end:; -goto sc_1554_end; -} -S_13202:; -if ((-(*__BYTE_OPTIONEXPLICIT== 0 ))||new_error){ -if(qbevent){evnt(10621);if(r)goto S_13202;} -do{ -qbs_set(__STRING_E,qbs_add(qbs_add(qbs_new_txt_len(" or OPTION ",11),__STRING_QB64PREFIX),qbs_new_txt_len("EXPLICIT",8))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10621);}while(r); -}else{ -do{ -qbs_set(__STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10621);}while(r); -} -S_13207:; -if ((-(*__BYTE_OPTIONEXPLICITARRAY== 0 ))||new_error){ -if(qbevent){evnt(10622);if(r)goto S_13207;} -do{ -qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(__STRING_E,qbs_new_txt_len(" or OPTION ",11)),__STRING_QB64PREFIX),qbs_new_txt_len("EXPLICITARRAY",13))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10622);}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(10623);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10623);}while(r); -sc_1554_end:; -} -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(10629);}while(r); -do{ -*__LONG_TARGETID=*__LONG_CURRENTID; -if(!qbevent)break;evnt(10631);}while(r); -S_13216:; -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))))||new_error){ -if(qbevent){evnt(10633);if(r)goto S_13216;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Command not implemented",23)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10633);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10633);}while(r); -} -S_13220:; -if ((-(*__LONG_N> 1 ))||new_error){ -if(qbevent){evnt(10635);if(r)goto S_13220;} -S_13221:; -if ((-(*(int16*)(((char*)__UDT_ID2)+(809))== 0 ))||new_error){ -if(qbevent){evnt(10636);if(r)goto S_13221;} -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(10636);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10636);}while(r); -} -} -do{ -SUB_SETDEPENDENCY(&(pass1559=*(int16*)(((char*)__UDT_ID2)+(546)))); -if(!qbevent)break;evnt(10639);}while(r); -do{ -*__LONG_SEPERATEARGS_ERROR= 0 ; -if(!qbevent)break;evnt(10641);}while(r); -do{ -*__LONG_PASSEDNEEDED=FUNC_SEPERATEARGS(FUNC_GETELEMENTS(__STRING_A,&(pass1560= 2 ),__LONG_N),FUNC_GETELEMENTS(__STRING_CA,&(pass1561= 2 ),__LONG_N),__LONG_PASSED); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10642);}while(r); -S_13229:; -if ((*__LONG_SEPERATEARGS_ERROR)||new_error){ -if(qbevent){evnt(10643);if(r)goto S_13229;} -do{ -qbs_set(__STRING_A,__STRING_SEPERATEARGS_ERROR_MESSAGE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10643);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10643);}while(r); -} -S_13233:; -fornext_value1563= 1 ; -fornext_finalvalue1563=*__LONG_OPTMAX; -fornext_step1563= 1 ; -if (fornext_step1563<0) fornext_step_negative1563=1; else fornext_step_negative1563=0; -if (new_error) 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_value1563fornext_finalvalue1563) break; -} -fornext_error1563:; -if(qbevent){evnt(10646);if(r)goto S_13233;} -do{ -tmp_long=array_check((*__LONG_I)-__ARRAY_STRING_SEPARGS2[4],__ARRAY_STRING_SEPARGS2[5]); -if (!new_error) 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(10646);}while(r); -fornext_continue_1562:; -} -fornext_exit_1562:; -S_13236:; -fornext_value1565= 1 ; -fornext_finalvalue1565=*__LONG_OPTMAX+ 1 ; -fornext_step1565= 1 ; -if (fornext_step1565<0) fornext_step_negative1565=1; else fornext_step_negative1565=0; -if (new_error) goto fornext_error1565; -goto fornext_entrylabel1565; -while(1){ -fornext_value1565=fornext_step1565+(*__LONG_I); -fornext_entrylabel1565: -*__LONG_I=fornext_value1565; -if (fornext_step_negative1565){ -if (fornext_value1565fornext_finalvalue1565) break; -} -fornext_error1565:; -if(qbevent){evnt(10647);if(r)goto S_13236;} -do{ -tmp_long=array_check((*__LONG_I)-__ARRAY_STRING_SEPARGSLAYOUT2[4],__ARRAY_STRING_SEPARGSLAYOUT2[5]); -if (!new_error) 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(10647);}while(r); -fornext_continue_1564:; -} -fornext_exit_1564:; -S_13239:; -fornext_value1567= 1 ; -fornext_finalvalue1567=*(int16*)(((char*)__UDT_ID2)+(809)); -fornext_step1567= 1 ; -if (fornext_step1567<0) fornext_step_negative1567=1; else fornext_step_negative1567=0; -if (new_error) goto fornext_error1567; -goto fornext_entrylabel1567; -while(1){ -fornext_value1567=fornext_step1567+(*__LONG_I); -fornext_entrylabel1567: -*__LONG_I=fornext_value1567; -if (fornext_step_negative1567){ -if (fornext_value1567fornext_finalvalue1567) break; -} -fornext_error1567:; -if(qbevent){evnt(10648);if(r)goto S_13239;} -do{ -tmp_long=array_check((*__LONG_I)-__ARRAY_STRING_SEPARGS2[4],__ARRAY_STRING_SEPARGS2[5]); -if (!new_error) 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(10648);}while(r); -fornext_continue_1566:; -} -fornext_exit_1566:; -S_13242:; -fornext_value1569= 1 ; -fornext_finalvalue1569=*(int16*)(((char*)__UDT_ID2)+(809))+ 1 ; -fornext_step1569= 1 ; -if (fornext_step1569<0) fornext_step_negative1569=1; else fornext_step_negative1569=0; -if (new_error) goto fornext_error1569; -goto fornext_entrylabel1569; -while(1){ -fornext_value1569=fornext_step1569+(*__LONG_I); -fornext_entrylabel1569: -*__LONG_I=fornext_value1569; -if (fornext_step_negative1569){ -if (fornext_value1569fornext_finalvalue1569) break; -} -fornext_error1569:; -if(qbevent){evnt(10649);if(r)goto S_13242;} -do{ -tmp_long=array_check((*__LONG_I)-__ARRAY_STRING_SEPARGSLAYOUT2[4],__ARRAY_STRING_SEPARGSLAYOUT2[5]); -if (!new_error) 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(10649);}while(r); -fornext_continue_1568:; -} -fornext_exit_1568:; -S_13245:; -if (( 0 )||new_error){ -if(qbevent){evnt(10653);if(r)goto S_13245;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1570; -sub_file_print(tmp_fileno,qbs_new_txt_len("separgs:",8), 0, 0, 1); -if (new_error) goto skip1570; -skip1570: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(10654);}while(r); -S_13247:; -fornext_value1572= 1 ; -fornext_finalvalue1572=*(int16*)(((char*)__UDT_ID2)+(809)); -fornext_step1572= 1 ; -if (fornext_step1572<0) fornext_step_negative1572=1; else fornext_step_negative1572=0; -if (new_error) 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_value1572fornext_finalvalue1572) break; -} -fornext_error1572:; -if(qbevent){evnt(10654);if(r)goto S_13247;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1573; -sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_I)), 1, 1, 0); -if (new_error) goto skip1573; -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 (new_error) goto skip1573; -skip1573: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(10654);}while(r); -fornext_continue_1571:; -} -fornext_exit_1571:; -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1574; -sub_file_print(tmp_fileno,qbs_new_txt_len("separgslayout:",14), 0, 0, 1); -if (new_error) goto skip1574; -skip1574: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(10655);}while(r); -S_13251:; -fornext_value1576= 1 ; -fornext_finalvalue1576=*(int16*)(((char*)__UDT_ID2)+(809))+ 1 ; -fornext_step1576= 1 ; -if (fornext_step1576<0) fornext_step_negative1576=1; else fornext_step_negative1576=0; -if (new_error) goto fornext_error1576; -goto fornext_entrylabel1576; -while(1){ -fornext_value1576=fornext_step1576+(*__LONG_I); -fornext_entrylabel1576: -*__LONG_I=fornext_value1576; -if (fornext_step_negative1576){ -if (fornext_value1576fornext_finalvalue1576) break; -} -fornext_error1576:; -if(qbevent){evnt(10655);if(r)goto S_13251;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1577; -sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_I)), 1, 1, 0); -if (new_error) goto skip1577; -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 (new_error) goto skip1577; -skip1577: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(10655);}while(r); -fornext_continue_1575:; -} -fornext_exit_1575:; -} -S_13255:; -if ((*__LONG_USECALL)||new_error){ -if(qbevent){evnt(10667);if(r)goto S_13255;} -S_13256:; -if ((*(int16*)(((char*)__UDT_ID)+(548)))||new_error){ -if(qbevent){evnt(10668);if(r)goto S_13256;} -S_13257:; -if ((-(*__LONG_USECALL== 1 ))||new_error){ -if(qbevent){evnt(10669);if(r)goto S_13257;} -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(10669);}while(r); -} -S_13260:; -if ((-(*__LONG_USECALL== 2 ))||new_error){ -if(qbevent){evnt(10670);if(r)goto S_13260;} -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(10670);}while(r); -} -}else{ -S_13264:; -if ((-(*__LONG_USECALL== 1 ))||new_error){ -if(qbevent){evnt(10672);if(r)goto S_13264;} -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(10672);}while(r); -} -S_13267:; -if ((-(*__LONG_USECALL== 2 ))||new_error){ -if(qbevent){evnt(10673);if(r)goto S_13267;} -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(10673);}while(r); -} -} -}else{ -S_13272:; -if ((*(int16*)(((char*)__UDT_ID)+(548)))||new_error){ -if(qbevent){evnt(10676);if(r)goto S_13272;} -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(10677);}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(10679);}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(10683);}while(r); -do{ -*__LONG_ADDEDLAYOUT= 0 ; -if(!qbevent)break;evnt(10684);}while(r); -do{ -*__LONG_FIELDCALL= 0 ; -if(!qbevent)break;evnt(10686);}while(r); -S_13281:; -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)))))||new_error){ -if(qbevent){evnt(10688);if(r)goto S_13281;} -S_13282:; -if ((*__LONG_PASSED& 2 )||new_error){ -if(qbevent){evnt(10689);if(r)goto S_13282;} -do{ -*__LONG_PASSED=*__LONG_PASSED- 2 ; -if(!qbevent)break;evnt(10691);}while(r); -}else{ -S_13285:; -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))))||new_error){ -if(qbevent){evnt(10694);if(r)goto S_13285;} -do{ -*__LONG_FIELDCALL= 1 ; -if(!qbevent)break;evnt(10695);}while(r); -do{ -qbs_set(__STRING_SUBCALL,qbs_new_txt_len("field_get(",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10696);}while(r); -}else{ -do{ -*__LONG_FIELDCALL= 2 ; -if(!qbevent)break;evnt(10698);}while(r); -do{ -qbs_set(__STRING_SUBCALL,qbs_new_txt_len("field_put(",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10699);}while(r); -} -} -} -S_13294:; -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)))))||new_error){ -if(qbevent){evnt(10704);if(r)goto S_13294;} -S_13295:; -if ((-(*__LONG_USECALL== 0 ))||new_error){ -if(qbevent){evnt(10705);if(r)goto S_13295;} -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(10706);}while(r); -} -} -S_13299:; -fornext_value1580= 1 ; -fornext_finalvalue1580=*(int16*)(((char*)__UDT_ID2)+(809)); -fornext_step1580= 1 ; -if (fornext_step1580<0) fornext_step_negative1580=1; else fornext_step_negative1580=0; -if (new_error) goto fornext_error1580; -goto fornext_entrylabel1580; -while(1){ -fornext_value1580=fornext_step1580+(*__LONG_I); -fornext_entrylabel1580: -*__LONG_I=fornext_value1580; -if (fornext_step_negative1580){ -if (fornext_value1580fornext_finalvalue1580) break; -} -fornext_error1580:; -if(qbevent){evnt(10710);if(r)goto S_13299;} -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(10711);}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(10712);}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(10713);}while(r); -do{ -*__LONG_ADDLAYOUT= 1 ; -if(!qbevent)break;evnt(10715);}while(r); -do{ -*__LONG_CONVERTSPACING= 0 ; -if(!qbevent)break;evnt(10716);}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(10717);}while(r); -S_13306:; -while((qbs_cleanup(qbs_tmp_base,__STRING_X->len))||new_error){ -if(qbevent){evnt(10718);if(r)goto S_13306;} -do{ -*__LONG_X=qbs_asc(__STRING_X); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10719);}while(r); -S_13308:; -if ((*__LONG_X)||new_error){ -if(qbevent){evnt(10720);if(r)goto S_13308;} -do{ -*__LONG_CONVERTSPACING= 0 ; -if(!qbevent)break;evnt(10721);}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(10722);}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(10723);}while(r); -do{ -*__LONG_S= 0 ; -if(!qbevent)break;evnt(10725);}while(r); -do{ -*__LONG_AN= 0 ; -if(!qbevent)break;evnt(10726);}while(r); -do{ -qbs_set(__STRING_X3,qbs_right(__STRING_L, 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10727);}while(r); -S_13315:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X3,__STRING1_SP)))||new_error){ -if(qbevent){evnt(10728);if(r)goto S_13315;} -do{ -*__LONG_S= 1 ; -if(!qbevent)break;evnt(10728);}while(r); -} -S_13318:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X3,__STRING1_SP2)))||new_error){ -if(qbevent){evnt(10729);if(r)goto S_13318;} -do{ -*__LONG_S= 2 ; -if(!qbevent)break;evnt(10730);}while(r); -S_13320:; -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])]))||new_error){ -if(qbevent){evnt(10731);if(r)goto S_13320;} -do{ -*__LONG_AN= 1 ; -if(!qbevent)break;evnt(10731);}while(r); -} -}else{ -S_13324:; -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])]))||new_error){ -if(qbevent){evnt(10733);if(r)goto S_13324;} -do{ -*__LONG_AN= 1 ; -if(!qbevent)break;evnt(10733);}while(r); -} -} -do{ -*__LONG_S1=*__LONG_S; -if(!qbevent)break;evnt(10735);}while(r); -S_13329:; -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])]))||new_error){ -if(qbevent){evnt(10737);if(r)goto S_13329;} -do{ -*__LONG_CONVERTSPACING= 1 ; -if(!qbevent)break;evnt(10737);}while(r); -} -S_13332:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X2,qbs_new_txt_len("LPRINT",6))))||new_error){ -if(qbevent){evnt(10740);if(r)goto S_13332;} -} -S_13334:; -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 ))))||new_error){ -if(qbevent){evnt(10764);if(r)goto S_13334;} -do{ -*__LONG_S= 1 ; -if(!qbevent)break;evnt(10768);}while(r); -do{ -qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10769);}while(r); -do{ -goto LABEL_CUSTOMLAYCHAR; -if(!qbevent)break;evnt(10770);}while(r); -} -S_13339:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X2,qbs_new_txt_len("=",1))))||new_error){ -if(qbevent){evnt(10773);if(r)goto S_13339;} -do{ -*__LONG_S= 1 ; -if(!qbevent)break;evnt(10774);}while(r); -do{ -qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10775);}while(r); -do{ -goto LABEL_CUSTOMLAYCHAR; -if(!qbevent)break;evnt(10776);}while(r); -} -S_13344:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X2,qbs_new_txt_len("#",1))))||new_error){ -if(qbevent){evnt(10779);if(r)goto S_13344;} -do{ -*__LONG_S= 1 ; -if(!qbevent)break;evnt(10780);}while(r); -do{ -qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10781);}while(r); -do{ -goto LABEL_CUSTOMLAYCHAR; -if(!qbevent)break;evnt(10782);}while(r); -} -S_13349:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X2,qbs_new_txt_len(",",1))))||new_error){ -if(qbevent){evnt(10785);if(r)goto S_13349;} -do{ -qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10785);}while(r); -do{ -goto LABEL_CUSTOMLAYCHAR; -if(!qbevent)break;evnt(10785);}while(r); -} -S_13353:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X,func_chr( 0 ))))||new_error){ -if(qbevent){evnt(10788);if(r)goto S_13353;} -S_13354:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X2,qbs_new_txt_len("STEP",4))))||new_error){ -if(qbevent){evnt(10789);if(r)goto S_13354;} -do{ -qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10789);}while(r); -do{ -goto LABEL_CUSTOMLAYCHAR; -if(!qbevent)break;evnt(10789);}while(r); -} -do{ -qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10790);}while(r); -do{ -goto LABEL_CUSTOMLAYCHAR; -if(!qbevent)break;evnt(10790);}while(r); -} -do{ -qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10794);}while(r); -LABEL_CUSTOMLAYCHAR:; -if(qbevent){evnt(10800);r=0;} -S_13362:; -if ((-(*__LONG_S== 0 ))||new_error){ -if(qbevent){evnt(10801);if(r)goto S_13362;} -do{ -*__LONG_S= 2 ; -if(!qbevent)break;evnt(10801);}while(r); -} -S_13365:; -if ((-(*__LONG_S!=*__LONG_S1))||new_error){ -if(qbevent){evnt(10802);if(r)goto S_13365;} -S_13366:; -if ((*__LONG_S1)||new_error){ -if(qbevent){evnt(10803);if(r)goto S_13366;} -do{ -qbs_set(__STRING_L,qbs_left(__STRING_L,__STRING_L->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10803);}while(r); -} -S_13369:; -if ((-(*__LONG_S== 1 ))||new_error){ -if(qbevent){evnt(10804);if(r)goto S_13369;} -do{ -qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10804);}while(r); -} -S_13372:; -if ((-(*__LONG_S== 2 ))||new_error){ -if(qbevent){evnt(10805);if(r)goto S_13372;} -do{ -qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING1_SP2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10805);}while(r); -} -} -S_13376:; -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))))))||new_error){ -if(qbevent){evnt(10808);if(r)goto S_13376;} -S_13377:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_X2,(qbs_add(qbs_new_txt_len(")",1),__STRING1_SP2)))))||new_error){ -if(qbevent){evnt(10809);if(r)goto S_13377;} -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(10810);}while(r); -} -} -do{ -qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_X2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10814);}while(r); -}else{ -do{ -*__LONG_ADDLAYOUT= 0 ; -if(!qbevent)break;evnt(10817);}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(10818);}while(r); -} -do{ -*__LONG_ADDEDLAYOUT= 0 ; -if(!qbevent)break;evnt(10820);}while(r); -dl_continue_1582:; -} -dl_exit_1582:; -S_13388:; -if ((-(*__LONG_TARGETTYP== -3 ))||new_error){ -if(qbevent){evnt(10829);if(r)goto S_13388;} -S_13389:; -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))))||new_error){ -if(qbevent){evnt(10830);if(r)goto S_13389;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected array name",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10830);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10830);}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(10832);}while(r); -S_13394:; -if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,__STRING_E,__STRING1_SP,0)== 0 )))||new_error){ -if(qbevent){evnt(10834);if(r)goto S_13394;} -do{ -qbs_set(__STRING_TRY_STRING,__STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10835);}while(r); -do{ -*__LONG_TRY=FUNC_FINDID(__STRING_TRY_STRING); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10836);}while(r); -S_13397:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(10837);if(r)goto S_13397;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10837);}while(r); -} -S_13400:; -do{ -if(qbevent){evnt(10838);if(r)goto S_13400;} -S_13401:; -if ((*__LONG_TRY)||new_error){ -if(qbevent){evnt(10839);if(r)goto S_13401;} -S_13402:; -if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ -if(qbevent){evnt(10840);if(r)goto S_13402;} -S_13403:; -if ((-((*(int32*)(((char*)__UDT_ID)+(512))&*__LONG_ISSTRING)== 0 ))||new_error){ -if(qbevent){evnt(10841);if(r)goto S_13403;} -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(10842);}while(r); -do{ -goto dl_exit_1587; -if(!qbevent)break;evnt(10843);}while(r); -} -} -S_13408:; -if ((-(*__LONG_TRY== 2 ))||new_error){ -if(qbevent){evnt(10847);if(r)goto S_13408;} -do{ -*__INTEGER_FINDANOTHERID= 1 ; -if(!qbevent)break;evnt(10847);}while(r); -do{ -*__LONG_TRY=FUNC_FINDID(__STRING_TRY_STRING); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10847);}while(r); -}else{ -do{ -*__LONG_TRY= 0 ; -if(!qbevent)break;evnt(10847);}while(r); -} -S_13414:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(10848);if(r)goto S_13414;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10848);}while(r); -} -} -S_13418:; -if ((-(*__LONG_TRY== 0 ))||new_error){ -if(qbevent){evnt(10850);if(r)goto S_13418;} -S_13419:; -if ((qbs_cleanup(qbs_tmp_base,-(((int32)(FUNC_REMOVESYMBOL(__STRING_TRY_STRING))->len)== 0 )))||new_error){ -if(qbevent){evnt(10851);if(r)goto S_13419;} -S_13420:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(10852);if(r)goto S_13420;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10852);}while(r); -} -do{ -*__LONG_A=qbs_asc(__STRING_TRY_STRING); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10853);}while(r); -S_13424:; -if (((-(*__LONG_A>= 97 ))&(-(*__LONG_A<= 122 )))||new_error){ -if(qbevent){evnt(10854);if(r)goto S_13424;} -do{ -*__LONG_A=*__LONG_A- 32 ; -if(!qbevent)break;evnt(10854);}while(r); -} -S_13427:; -if ((-(*__LONG_A== 95 ))||new_error){ -if(qbevent){evnt(10855);if(r)goto S_13427;} -do{ -*__LONG_A= 91 ; -if(!qbevent)break;evnt(10855);}while(r); -} -do{ -*__LONG_A=*__LONG_A- 64 ; -if(!qbevent)break;evnt(10856);}while(r); -S_13431:; -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))||new_error){ -if(qbevent){evnt(10857);if(r)goto S_13431;} -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(10857);}while(r); -do{ -*__LONG_TRY=FUNC_FINDID(__STRING_TRY_STRING); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10857);}while(r); -} -S_13435:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(10858);if(r)goto S_13435;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10858);}while(r); -} -} -} -S_13440:; -dl_continue_1587:; -}while((!(-(*__LONG_TRY== 0 )))&&(!new_error)); -dl_exit_1587:; -if(qbevent){evnt(10861);if(r)goto S_13440;} -} -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10866);}while(r); -S_13443:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(10867);if(r)goto S_13443;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10867);}while(r); -} -S_13446:; -if (((-(*__LONG_CONVERTSPACING== 1 ))&(-(*__LONG_ADDLAYOUT== 1 )))||new_error){ -if(qbevent){evnt(10868);if(r)goto S_13446;} -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(10868);}while(r); -} -S_13449:; -if ((*__LONG_ADDLAYOUT)||new_error){ -if(qbevent){evnt(10869);if(r)goto S_13449;} -do{ -qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10869);}while(r); -do{ -*__LONG_ADDEDLAYOUT= 1 ; -if(!qbevent)break;evnt(10869);}while(r); -} -do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1590= -2 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10870);}while(r); -S_13454:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(10871);if(r)goto S_13454;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10871);}while(r); -} -do{ -goto LABEL_SETE; -if(!qbevent)break;evnt(10872);}while(r); -} -S_13459:; -if ((-(*__LONG_TARGETTYP== -2 ))||new_error){ -if(qbevent){evnt(10876);if(r)goto S_13459;} -do{ -qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10877);}while(r); -S_13461:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(10878);if(r)goto S_13461;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10878);}while(r); -} -S_13464:; -if (((-(*__LONG_CONVERTSPACING== 1 ))&(-(*__LONG_ADDLAYOUT== 1 )))||new_error){ -if(qbevent){evnt(10879);if(r)goto S_13464;} -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(10879);}while(r); -} -S_13467:; -if ((*__LONG_ADDLAYOUT)||new_error){ -if(qbevent){evnt(10880);if(r)goto S_13467;} -do{ -qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10880);}while(r); -do{ -*__LONG_ADDEDLAYOUT= 1 ; -if(!qbevent)break;evnt(10880);}while(r); -} -do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1592= -2 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10881);}while(r); -S_13472:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(10882);if(r)goto S_13472;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10882);}while(r); -} -do{ -goto LABEL_SETE; -if(!qbevent)break;evnt(10883);}while(r); -} -S_13477:; -if ((-(*__LONG_TARGETTYP== -4 ))||new_error){ -if(qbevent){evnt(10886);if(r)goto S_13477;} -S_13478:; -if ((*__LONG_FIELDCALL)||new_error){ -if(qbevent){evnt(10888);if(r)goto S_13478;} -do{ -*__LONG_I=*(int16*)(((char*)__UDT_ID2)+(809))+ 1 ; -if(!qbevent)break;evnt(10889);}while(r); -do{ -goto fornext_exit_1579; -if(!qbevent)break;evnt(10890);}while(r); -} -S_13482:; -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))))||new_error){ -if(qbevent){evnt(10893);if(r)goto S_13482;} -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(10893);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10893);}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(10894);}while(r); -S_13487:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(10895);if(r)goto S_13487;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10895);}while(r); -} -S_13490:; -if (((-(*__LONG_CONVERTSPACING== 1 ))&(-(*__LONG_ADDLAYOUT== 1 )))||new_error){ -if(qbevent){evnt(10896);if(r)goto S_13490;} -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(10896);}while(r); -} -S_13493:; -if ((*__LONG_ADDLAYOUT)||new_error){ -if(qbevent){evnt(10897);if(r)goto S_13493;} -do{ -qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10897);}while(r); -do{ -*__LONG_ADDEDLAYOUT= 1 ; -if(!qbevent)break;evnt(10897);}while(r); -} -S_13497:; -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)))))||new_error){ -if(qbevent){evnt(10900);if(r)goto S_13497;} -do{ -qbs_set(__STRING_E2,__STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10901);}while(r); -do{ -qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_SOURCETYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10902);}while(r); -S_13500:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(10903);if(r)goto S_13500;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10903);}while(r); -} -S_13503:; -if (((*__LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(10904);if(r)goto S_13503;} -S_13504:; -if ((-((*__LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ -if(qbevent){evnt(10905);if(r)goto S_13504;} -do{ -qbs_set(__STRING_SUBCALL,qbs_right(__STRING_SUBCALL,__STRING_SUBCALL->len- 7 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10907);}while(r); -S_13506:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("GET",3))))||new_error){ -if(qbevent){evnt(10909);if(r)goto S_13506;} -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(10910);}while(r); -do{ -qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_SOURCETYP,&(pass1595= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10911);}while(r); -S_13509:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(10912);if(r)goto S_13509;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10912);}while(r); -} -do{ -goto LABEL_SETE; -if(!qbevent)break;evnt(10913);}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(10915);}while(r); -} -} -} -do{ -qbs_set(__STRING_E,__STRING_E2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10920);}while(r); -} -do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1596= -4 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10923);}while(r); -S_13521:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(10924);if(r)goto S_13521;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10924);}while(r); -} -do{ -goto LABEL_SETE; -if(!qbevent)break;evnt(10925);}while(r); -} -S_13526:; -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))))||new_error){ -if(qbevent){evnt(10928);if(r)goto S_13526;} -do{ -qbs_set(__STRING_E,qbs_new_txt_len("NULL",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10929);}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(10932);}while(r); -S_13530:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(10933);if(r)goto S_13530;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10933);}while(r); -} -S_13533:; -if (((-(*__LONG_CONVERTSPACING== 1 ))&(-(*__LONG_ADDLAYOUT== 1 )))||new_error){ -if(qbevent){evnt(10934);if(r)goto S_13533;} -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(10934);}while(r); -} -S_13536:; -if ((*__LONG_ADDLAYOUT)||new_error){ -if(qbevent){evnt(10935);if(r)goto S_13536;} -do{ -qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10935);}while(r); -do{ -*__LONG_ADDEDLAYOUT= 1 ; -if(!qbevent)break;evnt(10935);}while(r); -} -do{ -qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E2,__LONG_SOURCETYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10937);}while(r); -S_13541:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(10938);if(r)goto S_13541;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10938);}while(r); -} -S_13544:; -if ((*__LONG_SOURCETYP&*__LONG_ISOFFSET)||new_error){ -if(qbevent){evnt(10940);if(r)goto S_13544;} -S_13545:; -if ((-((*__LONG_TARGETTYP&*__LONG_ISOFFSET)== 0 ))||new_error){ -if(qbevent){evnt(10941);if(r)goto S_13545;} -S_13546:; -if ((-(*(int16*)(((char*)__UDT_ID2)+(548))== 0 ))||new_error){ -if(qbevent){evnt(10942);if(r)goto S_13546;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Cannot convert _OFFSET type to other types",42)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10942);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10942);}while(r); -} -} -} -S_13552:; -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))))||new_error){ -if(qbevent){evnt(10946);if(r)goto S_13552;} -S_13553:; -if ((-(*__LONG_I== 3 ))||new_error){ -if(qbevent){evnt(10947);if(r)goto S_13553;} -S_13554:; -if (((*__LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(10948);if(r)goto S_13554;} -do{ -*__LONG_TARGETTYP=*__LONG_ISSTRING; -if(!qbevent)break;evnt(10949);}while(r); -} -} -} -S_13559:; -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)))))||new_error){ -if(qbevent){evnt(10954);if(r)goto S_13559;} -do{ -*__LONG_DEREFERENCE= 1 ; -if(!qbevent)break;evnt(10954);}while(r); -}else{ -do{ -*__LONG_DEREFERENCE= 0 ; -if(!qbevent)break;evnt(10954);}while(r); -} -S_13564:; -if (((*__LONG_TARGETTYP&*__LONG_ISPOINTER))||new_error){ -if(qbevent){evnt(10957);if(r)goto S_13564;} -S_13565:; -if ((-(*__LONG_DEREFERENCE== 0 ))||new_error){ -if(qbevent){evnt(10958);if(r)goto S_13565;} -S_13566:; -if (((*__LONG_TARGETTYP&*__LONG_ISARRAY))||new_error){ -if(qbevent){evnt(10961);if(r)goto S_13566;} -S_13567:; -if ((-((*__LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||new_error){ -if(qbevent){evnt(10962);if(r)goto S_13567;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected arrayname()",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10962);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10962);}while(r); -} -S_13571:; -if ((-((*__LONG_SOURCETYP&*__LONG_ISARRAY)== 0 ))||new_error){ -if(qbevent){evnt(10963);if(r)goto S_13571;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected arrayname()",20)); -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_13575:; -if (( 0 )||new_error){ -if(qbevent){evnt(10964);if(r)goto S_13575;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1598; -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 (new_error) goto skip1598; -skip1598: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(10964);}while(r); -} -do{ -*__LONG_TARGETTYP2=*__LONG_TARGETTYP; -if(!qbevent)break;evnt(10967);}while(r); -do{ -*__LONG_SOURCETYP2=*__LONG_SOURCETYP; -if(!qbevent)break;evnt(10967);}while(r); -do{ -*__LONG_TARGETTYP2=*__LONG_TARGETTYP2&( 511 +*__LONG_ISOFFSETINBITS+*__LONG_ISUDT+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH+*__LONG_ISFLOAT); -if(!qbevent)break;evnt(10968);}while(r); -do{ -*__LONG_SOURCETYP2=*__LONG_SOURCETYP2&( 511 +*__LONG_ISOFFSETINBITS+*__LONG_ISUDT+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH+*__LONG_ISFLOAT); -if(!qbevent)break;evnt(10969);}while(r); -S_13582:; -if ((-(*__LONG_SOURCETYP2!=*__LONG_TARGETTYP2))||new_error){ -if(qbevent){evnt(10970);if(r)goto S_13582;} -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(10970);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10970);}while(r); -} -S_13586:; -if ((*__LONG_TARGETTYP&*__LONG_ISUDT)||new_error){ -if(qbevent){evnt(10973);if(r)goto S_13586;} -S_13587:; -if (( 0 )||new_error){ -if(qbevent){evnt(10974);if(r)goto S_13587;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1599; -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 (new_error) goto skip1599; -skip1599: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(10974);}while(r); -} -do{ -*__LONG_UDTREFID=qbr(func_val(__STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10976);}while(r); -do{ -SUB_GETID(__LONG_UDTREFID); -if(!qbevent)break;evnt(10977);}while(r); -S_13592:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(10978);if(r)goto S_13592;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10978);}while(r); -} -do{ -*__LONG_UDTREFI=func_instr(NULL,__STRING_E,__STRING1_SP3,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10979);}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(10980);}while(r); -do{ -*__LONG_UDTREFU=qbr(func_val(func_mid(__STRING_E,*__LONG_UDTREFI+ 1 ,*__LONG_UDTREFI2-*__LONG_UDTREFI- 1 ,0|1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10981);}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(10982);}while(r); -do{ -*__LONG_UDTREFE=qbr(func_val(func_mid(__STRING_E,*__LONG_UDTREFI2+ 1 ,*__LONG_UDTREFI3-*__LONG_UDTREFI2- 1 ,0|1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10983);}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(10984);}while(r); -S_13601:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(__STRING_O, 4 ),qbs_new_txt_len("(0)*",4))))||new_error){ -if(qbevent){evnt(10986);if(r)goto S_13601;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected arrayname()",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10986);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10986);}while(r); -} -}else{ -S_13606:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal((qbs_right(__STRING_E, 2 )),(qbs_add(__STRING1_SP3,qbs_new_txt_len("0",1))))))||new_error){ -if(qbevent){evnt(10988);if(r)goto S_13606;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected arrayname()",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10988);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10988);}while(r); -} -} -do{ -*__LONG_IDNUM=qbr(func_val(qbs_left(__STRING_E,func_instr(NULL,__STRING_E,__STRING1_SP3,0)- 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(10991);}while(r); -do{ -SUB_GETID(__LONG_IDNUM); -if(!qbevent)break;evnt(10992);}while(r); -S_13613:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(10993);if(r)goto S_13613;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10993);}while(r); -} -S_13616:; -if ((*__LONG_TARGETTYP&*__LONG_ISFIXEDLENGTH)||new_error){ -if(qbevent){evnt(10995);if(r)goto S_13616;} -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(10996);}while(r); -S_13618:; -if ((-(*(int32*)(((char*)__UDT_ID)+(540))!=*__LONG_TARGETTYPSIZE))||new_error){ -if(qbevent){evnt(10997);if(r)goto S_13618;} -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(10997);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(10997);}while(r); -} -} -S_13623:; -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 ))))||new_error){ -if(qbevent){evnt(11000);if(r)goto S_13623;} -S_13624:; -if ((-(((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDNUM)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])]== 0 ))||new_error){ -if(qbevent){evnt(11001);if(r)goto S_13624;} -do{ -tmp_long=array_check((*__LONG_IDNUM)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(11002);}while(r); -do{ -*__INTEGER_RECOMPILE= 1 ; -if(!qbevent)break;evnt(11003);}while(r); -} -} -S_13629:; -if ((-(*(int32*)(((char*)__UDT_ID)+(2847))== 0 ))||new_error){ -if(qbevent){evnt(11007);if(r)goto S_13629;} -S_13630:; -if ((-(*__LONG_NELEREQ== 0 ))||new_error){ -if(qbevent){evnt(11013);if(r)goto S_13630;} -S_13631:; -if ((-(*(int16*)(((char*)__UDT_ID)+(516))> 0 ))||new_error){ -if(qbevent){evnt(11017);if(r)goto S_13631;} -do{ -*__LONG_NELEREQ=*(int16*)(((char*)__UDT_ID)+(516)); -if(!qbevent)break;evnt(11019);}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(11020);}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(11026);}while(r); -}else{ -S_13637:; -if ((-(*(int16*)(((char*)__UDT_ID)+(516))!=*__LONG_NELEREQ))||new_error){ -if(qbevent){evnt(11033);if(r)goto S_13637;} -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(11033);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(11033);}while(r); -} -} -} -do{ -qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_SOURCETYP,&(pass1601= 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11039);}while(r); -S_13644:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(11040);if(r)goto S_13644;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(11040);}while(r); -} -do{ -goto LABEL_SETE; -if(!qbevent)break;evnt(11041);}while(r); -} -S_13649:; -if ((-((*__LONG_TARGETTYP&*__LONG_ISSTRING)== 0 ))||new_error){ -if(qbevent){evnt(11048);if(r)goto S_13649;} -S_13650:; -if (((*__LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(11049);if(r)goto S_13650;} -do{ -*__LONG_IDNUM=qbr(func_val(qbs_left(__STRING_E,func_instr(NULL,__STRING_E,__STRING1_SP3,0)- 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11050);}while(r); -do{ -*__LONG_TARGETTYP2=*__LONG_TARGETTYP; -if(!qbevent)break;evnt(11052);}while(r); -do{ -*__LONG_SOURCETYP2=*__LONG_SOURCETYP; -if(!qbevent)break;evnt(11052);}while(r); -do{ -*__LONG_ARR= 0 ; -if(!qbevent)break;evnt(11055);}while(r); -S_13655:; -if (((*__LONG_SOURCETYP2&*__LONG_ISARRAY))||new_error){ -if(qbevent){evnt(11055);if(r)goto S_13655;} -do{ -*__LONG_ARR= 1 ; -if(!qbevent)break;evnt(11055);}while(r); -} -do{ -*__LONG_PASSUDTELEMENT= 0 ; -if(!qbevent)break;evnt(11056);}while(r); -S_13659:; -if (((-((*__LONG_TARGETTYP2&*__LONG_ISUDT)== 0 ))&(-((*__LONG_SOURCETYP2&*__LONG_ISUDT)!= 0 )))||new_error){ -if(qbevent){evnt(11056);if(r)goto S_13659;} -do{ -*__LONG_PASSUDTELEMENT= 1 ; -if(!qbevent)break;evnt(11056);}while(r); -do{ -*__LONG_SOURCETYP2=*__LONG_SOURCETYP2-*__LONG_ISUDT; -if(!qbevent)break;evnt(11056);}while(r); -} -do{ -*__LONG_TARGETTYP2=*__LONG_TARGETTYP2&( 511 +*__LONG_ISOFFSETINBITS+*__LONG_ISUDT+*__LONG_ISFLOAT+*__LONG_ISSTRING); -if(!qbevent)break;evnt(11059);}while(r); -do{ -*__LONG_SOURCETYP2=*__LONG_SOURCETYP2&( 511 +*__LONG_ISOFFSETINBITS+*__LONG_ISUDT+*__LONG_ISFLOAT+*__LONG_ISSTRING); -if(!qbevent)break;evnt(11060);}while(r); -S_13665:; -if ((-(*__LONG_SOURCETYP2==*__LONG_TARGETTYP2))||new_error){ -if(qbevent){evnt(11063);if(r)goto S_13665;} -S_13666:; -if ((*__LONG_SOURCETYP&*__LONG_ISUDT)||new_error){ -if(qbevent){evnt(11065);if(r)goto S_13666;} -do{ -*__LONG_UDTREFID=qbr(func_val(__STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11069);}while(r); -do{ -SUB_GETID(__LONG_UDTREFID); -if(!qbevent)break;evnt(11070);}while(r); -S_13669:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(11071);if(r)goto S_13669;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(11071);}while(r); -} -do{ -*__LONG_UDTREFI=func_instr(NULL,__STRING_E,__STRING1_SP3,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11072);}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(11073);}while(r); -do{ -*__LONG_UDTREFU=qbr(func_val(func_mid(__STRING_E,*__LONG_UDTREFI+ 1 ,*__LONG_UDTREFI2-*__LONG_UDTREFI- 1 ,0|1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11074);}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(11075);}while(r); -do{ -*__LONG_UDTREFE=qbr(func_val(func_mid(__STRING_E,*__LONG_UDTREFI2+ 1 ,*__LONG_UDTREFI3-*__LONG_UDTREFI2- 1 ,0|1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11076);}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(11077);}while(r); -S_13678:; -if ((*__LONG_ARR)||new_error){ -if(qbevent){evnt(11080);if(r)goto S_13678;} -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(11081);}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(11083);}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(11086);}while(r); -S_13684:; -if ((*__LONG_PASSUDTELEMENT)||new_error){ -if(qbevent){evnt(11089);if(r)goto S_13684;} -do{ -qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(",1),FUNC_TYP2CTYP(&(pass1603=*__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(11089);}while(r); -} -S_13687:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(11090);if(r)goto S_13687;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(11090);}while(r); -} -}else{ -S_13691:; -if ((*__LONG_ARR)||new_error){ -if(qbevent){evnt(11094);if(r)goto S_13691;} -S_13692:; -if (((*__LONG_SOURCETYP2&*__LONG_ISOFFSETINBITS))||new_error){ -if(qbevent){evnt(11095);if(r)goto S_13692;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Cannot pass BIT array offsets",29)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11095);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(11095);}while(r); -} -do{ -qbs_set(__STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(&(",3),FUNC_REFER(__STRING_E,__LONG_SOURCETYP,&(pass1604= 0 ))),qbs_new_txt_len("))",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11096);}while(r); -S_13697:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(11097);if(r)goto S_13697;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(11097);}while(r); -} -}else{ -do{ -qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_SOURCETYP,&(pass1605= 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11099);}while(r); -S_13702:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(11100);if(r)goto S_13702;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(11100);}while(r); -} -} -S_13706:; -if ((-((*__LONG_SOURCETYP&*__LONG_ISUNSIGNED)!=(*__LONG_TARGETTYP&*__LONG_ISUNSIGNED)))||new_error){ -if(qbevent){evnt(11104);if(r)goto S_13706;} -do{ -qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(",1),FUNC_TYP2CTYP(&(pass1606=*__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(11105);}while(r); -S_13708:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(11106);if(r)goto S_13708;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(11106);}while(r); -} -} -} -S_13713:; -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 ))))||new_error){ -if(qbevent){evnt(11111);if(r)goto S_13713;} -S_13714:; -if ((-(((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDNUM)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])]== 0 ))||new_error){ -if(qbevent){evnt(11112);if(r)goto S_13714;} -do{ -tmp_long=array_check((*__LONG_IDNUM)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(11113);}while(r); -do{ -*__INTEGER_RECOMPILE= 1 ; -if(!qbevent)break;evnt(11114);}while(r); -} -} -do{ -goto LABEL_SETE; -if(!qbevent)break;evnt(11118);}while(r); -} -} -}else{ -S_13723:; -if (((*__LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(11123);if(r)goto S_13723;} -do{ -*__LONG_IDNUM=qbr(func_val(qbs_left(__STRING_E,func_instr(NULL,__STRING_E,__STRING1_SP3,0)- 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11124);}while(r); -S_13725:; -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 ))))||new_error){ -if(qbevent){evnt(11125);if(r)goto S_13725;} -S_13726:; -if ((-(((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDNUM)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])]== 0 ))||new_error){ -if(qbevent){evnt(11126);if(r)goto S_13726;} -do{ -tmp_long=array_check((*__LONG_IDNUM)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(11127);}while(r); -do{ -*__INTEGER_RECOMPILE= 1 ; -if(!qbevent)break;evnt(11128);}while(r); -} -} -} -} -} -} -S_13735:; -if ((*__LONG_TARGETTYP&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(11140);if(r)goto S_13735;} -S_13736:; -if ((-((*__LONG_SOURCETYP&*__LONG_ISSTRING)== 0 ))||new_error){ -if(qbevent){evnt(11141);if(r)goto S_13736;} -do{ -*__LONG_NTH=*__LONG_I; -if(!qbevent)break;evnt(11142);}while(r); -S_13738:; -if ((-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+809))== 1 ))||new_error){ -if(qbevent){evnt(11143);if(r)goto S_13738;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("String 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 string",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_13746:; -if ((-((*__LONG_TARGETTYP&*__LONG_ISSTRING)== 0 ))||new_error){ -if(qbevent){evnt(11147);if(r)goto S_13746;} -S_13747:; -if ((*__LONG_SOURCETYP&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(11148);if(r)goto S_13747;} -do{ -*__LONG_NTH=*__LONG_I; -if(!qbevent)break;evnt(11149);}while(r); -S_13749:; -if ((-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+809))== 1 ))||new_error){ -if(qbevent){evnt(11150);if(r)goto S_13749;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Number required for sub",23)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11150);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(11150);}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(11151);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(11151);}while(r); -} -} -S_13757:; -if (((*__LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(11156);if(r)goto S_13757;} -do{ -qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_SOURCETYP,&(pass1607= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11157);}while(r); -S_13759:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(11158);if(r)goto S_13759;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(11158);}while(r); -} -} -S_13763:; -if ((-(*__LONG_EXPLICITREFERENCE== 0 ))||new_error){ -if(qbevent){evnt(11161);if(r)goto S_13763;} -S_13764:; -if ((*__LONG_TARGETTYP&*__LONG_ISUDT)||new_error){ -if(qbevent){evnt(11162);if(r)goto S_13764;} -do{ -*__LONG_NTH=*__LONG_I; -if(!qbevent)break;evnt(11163);}while(r); -S_13766:; -if ((qbs_cleanup(qbs_tmp_base,*__LONG_QB64PREFIX_SET&(qbs_equal(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("_MEM",4)))))||new_error){ -if(qbevent){evnt(11164);if(r)goto S_13766;} -do{ -qbs_set(__STRING_X,qbs_add(qbs_add(qbs_new_txt_len("'",1),func_mid(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)), 2 ,NULL,0)),qbs_new_txt_len("'",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11165);}while(r); -}else{ -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(11167);}while(r); -} -S_13771:; -if ((-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+809))== 1 ))||new_error){ -if(qbevent){evnt(11169);if(r)goto S_13771;} -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(11169);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(11169);}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(11170);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(11170);}while(r); -} -}else{ -S_13779:; -if ((*__LONG_SOURCETYP&*__LONG_ISUDT)||new_error){ -if(qbevent){evnt(11173);if(r)goto S_13779;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Number required for sub",23)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11173);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(11173);}while(r); -} -} -S_13784:; -if (((*__LONG_SOURCETYP&*__LONG_ISFLOAT))||new_error){ -if(qbevent){evnt(11177);if(r)goto S_13784;} -S_13785:; -if ((-((*__LONG_TARGETTYP&*__LONG_ISFLOAT)== 0 ))||new_error){ -if(qbevent){evnt(11178);if(r)goto S_13785;} -do{ -*__LONG_BITS=*__LONG_TARGETTYP& 511 ; -if(!qbevent)break;evnt(11180);}while(r); -S_13787:; -if ((-(*__LONG_BITS<= 16 ))||new_error){ -if(qbevent){evnt(11181);if(r)goto S_13787;} -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(11181);}while(r); -} -S_13790:; -if (((-(*__LONG_BITS> 16 ))&(-(*__LONG_BITS< 32 )))||new_error){ -if(qbevent){evnt(11182);if(r)goto S_13790;} -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(11182);}while(r); -} -S_13793:; -if ((-(*__LONG_BITS>= 32 ))||new_error){ -if(qbevent){evnt(11183);if(r)goto S_13793;} -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(11183);}while(r); -} -} -} -S_13798:; -if (((*__LONG_TARGETTYP&*__LONG_ISPOINTER))||new_error){ -if(qbevent){evnt(11187);if(r)goto S_13798;} -S_13799:; -if (((*__LONG_TARGETTYP&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(11188);if(r)goto S_13799;} -do{ -goto LABEL_SETE; -if(!qbevent)break;evnt(11188);}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(11189);}while(r); -S_13803:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(11190);if(r)goto S_13803;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(11190);}while(r); -} -do{ -qbs_set(__STRING_V,qbs_add(qbs_new_txt_len("pass",4),FUNC_STR2(&(pass1608=FUNC_UNIQUENUMBER())))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11191);}while(r); -S_13807:; -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 ))))||new_error){ -if(qbevent){evnt(11193);if(r)goto S_13807;} -do{ -*__LONG_BYTESREQ=((*__LONG_TARGETTYP& 511 )+ 7 )/ 8 ; -if(!qbevent)break;evnt(11194);}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(11195);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1609=*__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(11196);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1610=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("cmem_sp-=",9),FUNC_STR2(__LONG_BYTESREQ)),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11197);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1611=*__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(11198);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1612=*__LONG_DATATXTBUF),qbs_new_txt_len("if (cmem_spchr",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11231);}while(r); -} -S_13839:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ltrim(qbs_rtrim(__STRING_E)),qbs_new_txt_len("0",1))))||new_error){ -if(qbevent){evnt(11234);if(r)goto S_13839;} -do{ -qbs_set(__STRING_E,qbs_new_txt_len("NULL",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11234);}while(r); -} -} -S_13843:; -if ((-(*__LONG_I!= 1 ))||new_error){ -if(qbevent){evnt(11238);if(r)goto S_13843;} -do{ -qbs_set(__STRING_SUBCALL,qbs_add(__STRING_SUBCALL,qbs_new_txt_len(",",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11238);}while(r); -} -do{ -qbs_set(__STRING_SUBCALL,qbs_add(__STRING_SUBCALL,__STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11239);}while(r); -fornext_continue_1579:; -} -fornext_exit_1579:; -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(11243);}while(r); -S_13849:; -while((qbs_cleanup(qbs_tmp_base,__STRING_X->len))||new_error){ -if(qbevent){evnt(11244);if(r)goto S_13849;} -do{ -*__LONG_X=qbs_asc(__STRING_X); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11245);}while(r); -S_13851:; -if ((*__LONG_X)||new_error){ -if(qbevent){evnt(11246);if(r)goto S_13851;} -do{ -qbs_set(__STRING_X2,func_mid(__STRING_X, 2 ,*__LONG_X,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11247);}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(11248);}while(r); -do{ -*__LONG_S= 0 ; -if(!qbevent)break;evnt(11250);}while(r); -do{ -*__LONG_AN= 0 ; -if(!qbevent)break;evnt(11251);}while(r); -do{ -qbs_set(__STRING_X3,qbs_right(__STRING_L, 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11252);}while(r); -S_13857:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X3,__STRING1_SP)))||new_error){ -if(qbevent){evnt(11253);if(r)goto S_13857;} -do{ -*__LONG_S= 1 ; -if(!qbevent)break;evnt(11253);}while(r); -} -S_13860:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X3,__STRING1_SP2)))||new_error){ -if(qbevent){evnt(11254);if(r)goto S_13860;} -do{ -*__LONG_S= 2 ; -if(!qbevent)break;evnt(11255);}while(r); -S_13862:; -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])]))||new_error){ -if(qbevent){evnt(11256);if(r)goto S_13862;} -do{ -*__LONG_AN= 1 ; -if(!qbevent)break;evnt(11256);}while(r); -} -}else{ -S_13866:; -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])]))||new_error){ -if(qbevent){evnt(11259);if(r)goto S_13866;} -do{ -*__LONG_AN= 1 ; -if(!qbevent)break;evnt(11259);}while(r); -} -} -do{ -*__LONG_S1=*__LONG_S; -if(!qbevent)break;evnt(11262);}while(r); -S_13871:; -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 ))))||new_error){ -if(qbevent){evnt(11264);if(r)goto S_13871;} -do{ -*__LONG_S= 1 ; -if(!qbevent)break;evnt(11265);}while(r); -do{ -qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11266);}while(r); -do{ -goto LABEL_CUSTOMLAYCHAR2; -if(!qbevent)break;evnt(11267);}while(r); -} -S_13876:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X2,qbs_new_txt_len("=",1))))||new_error){ -if(qbevent){evnt(11270);if(r)goto S_13876;} -do{ -*__LONG_S= 1 ; -if(!qbevent)break;evnt(11271);}while(r); -do{ -qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11272);}while(r); -do{ -goto LABEL_CUSTOMLAYCHAR2; -if(!qbevent)break;evnt(11273);}while(r); -} -S_13881:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X2,qbs_new_txt_len("#",1))))||new_error){ -if(qbevent){evnt(11276);if(r)goto S_13881;} -do{ -*__LONG_S= 1 ; -if(!qbevent)break;evnt(11277);}while(r); -do{ -qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11278);}while(r); -do{ -goto LABEL_CUSTOMLAYCHAR2; -if(!qbevent)break;evnt(11279);}while(r); -} -S_13886:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X2,qbs_new_txt_len(",",1))))||new_error){ -if(qbevent){evnt(11282);if(r)goto S_13886;} -do{ -qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11282);}while(r); -do{ -goto LABEL_CUSTOMLAYCHAR2; -if(!qbevent)break;evnt(11282);}while(r); -} -S_13890:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X,func_chr( 0 ))))||new_error){ -if(qbevent){evnt(11284);if(r)goto S_13890;} -S_13891:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X2,qbs_new_txt_len("STEP",4))))||new_error){ -if(qbevent){evnt(11285);if(r)goto S_13891;} -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(11285);}while(r); -do{ -goto LABEL_CUSTOMLAYCHAR2; -if(!qbevent)break;evnt(11285);}while(r); -} -do{ -qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11286);}while(r); -do{ -goto LABEL_CUSTOMLAYCHAR2; -if(!qbevent)break;evnt(11286);}while(r); -} -do{ -qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11290);}while(r); -LABEL_CUSTOMLAYCHAR2:; -if(qbevent){evnt(11291);r=0;} -S_13899:; -if ((-(*__LONG_S== 0 ))||new_error){ -if(qbevent){evnt(11292);if(r)goto S_13899;} -do{ -*__LONG_S= 2 ; -if(!qbevent)break;evnt(11292);}while(r); -} -S_13902:; -if ((-(*__LONG_S!=*__LONG_S1))||new_error){ -if(qbevent){evnt(11293);if(r)goto S_13902;} -S_13903:; -if ((*__LONG_S1)||new_error){ -if(qbevent){evnt(11294);if(r)goto S_13903;} -do{ -qbs_set(__STRING_L,qbs_left(__STRING_L,__STRING_L->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11294);}while(r); -} -S_13906:; -if ((-(*__LONG_S== 1 ))||new_error){ -if(qbevent){evnt(11295);if(r)goto S_13906;} -do{ -qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11295);}while(r); -} -S_13909:; -if ((-(*__LONG_S== 2 ))||new_error){ -if(qbevent){evnt(11296);if(r)goto S_13909;} -do{ -qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING1_SP2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11296);}while(r); -} -} -do{ -qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_X2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11298);}while(r); -}else{ -do{ -*__LONG_ADDLAYOUT= 0 ; -if(!qbevent)break;evnt(11301);}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(11302);}while(r); -} -do{ -*__LONG_ADDEDLAYOUT= 0 ; -if(!qbevent)break;evnt(11304);}while(r); -dl_continue_1616:; -} -dl_exit_1616:; -S_13920:; -if ((*__LONG_PASSEDNEEDED)||new_error){ -if(qbevent){evnt(11312);if(r)goto S_13920;} -do{ -qbs_set(__STRING_SUBCALL,qbs_add(qbs_add(__STRING_SUBCALL,qbs_new_txt_len(",",1)),FUNC_STR2(__LONG_PASSED))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11313);}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(11315);}while(r); -S_13924:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("SLEEP",5))))||new_error){ -if(qbevent){evnt(11317);if(r)goto S_13924;} -S_13925:; -if ((-(*__LONG_VWATCHON== 1 ))||new_error){ -if(qbevent){evnt(11318);if(r)goto S_13925;} -do{ -SUB_WRITEBUFLINE(&(pass1620=*__LONG_MAINTXTBUF),qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= -4; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars);",102)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11319);}while(r); -} -} -do{ -SUB_WRITEBUFLINE(&(pass1621=*__LONG_MAINTXTBUF),__STRING_SUBCALL); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11323);}while(r); -S_13930:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("SLEEP",5))))||new_error){ -if(qbevent){evnt(11325);if(r)goto S_13930;} -S_13931:; -if ((-(*__LONG_VWATCHON== 1 ))||new_error){ -if(qbevent){evnt(11326);if(r)goto S_13931;} -do{ -SUB_WRITEBUFLINE(&(pass1622=*__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(11327);}while(r); -} -} -do{ -qbs_set(__STRING_SUBCALL,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11331);}while(r); -S_13936:; -if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||new_error){ -if(qbevent){evnt(11332);if(r)goto S_13936;} -do{ -SUB_WRITEBUFLINE(&(pass1623=*__LONG_MAINTXTBUF),qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11332);}while(r); -} -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(11334);}while(r); -do{ -qbs_set(__STRING_X,qbs_right(__STRING_L, 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11335);}while(r); -S_13941:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_X,__STRING1_SP))|(qbs_equal(__STRING_X,__STRING1_SP2))))||new_error){ -if(qbevent){evnt(11335);if(r)goto S_13941;} -do{ -qbs_set(__STRING_L,qbs_left(__STRING_L,__STRING_L->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11335);}while(r); -} -S_13944:; -if ((-(*__LONG_USECALL== 1 ))||new_error){ -if(qbevent){evnt(11336);if(r)goto S_13944;} -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(11336);}while(r); -} -S_13947:; -if (( 0 )||new_error){ -if(qbevent){evnt(11337);if(r)goto S_13947;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1625; -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 (new_error) goto skip1625; -skip1625: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11337);}while(r); -} -S_13950:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||new_error){ -if(qbevent){evnt(11338);if(r)goto S_13950;} -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11338);}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(11338);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(11339);}while(r); -} -S_13957:; -if ((-(*__LONG_TRY== 2 ))||new_error){ -if(qbevent){evnt(11344);if(r)goto S_13957;} -do{ -qbs_set(__STRING_FINDIDSECONDARG,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11345);}while(r); -S_13959:; -if ((-(*__LONG_N>= 2 ))||new_error){ -if(qbevent){evnt(11345);if(r)goto S_13959;} -do{ -qbs_set(__STRING_FINDIDSECONDARG,FUNC_GETELEMENT(__STRING_A,&(pass1627= 2 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11345);}while(r); -} -do{ -*__INTEGER_FINDANOTHERID= 1 ; -if(!qbevent)break;evnt(11346);}while(r); -do{ -*__LONG_TRY=FUNC_FINDID(__STRING_FIRSTELEMENT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11347);}while(r); -S_13964:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(11348);if(r)goto S_13964;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(11348);}while(r); -} -}else{ -do{ -*__LONG_TRY= 0 ; -if(!qbevent)break;evnt(11350);}while(r); -} -dl_continue_1456:; -} -dl_exit_1456:; -} -LABEL_NOTSUBCALL:; -if(qbevent){evnt(11356);r=0;} -S_13972:; -if ((-(*__LONG_N>= 1 ))||new_error){ -if(qbevent){evnt(11358);if(r)goto S_13972;} -S_13973:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("LET",3))))||new_error){ -if(qbevent){evnt(11359);if(r)goto S_13973;} -S_13974:; -if ((-(*__LONG_N== 1 ))||new_error){ -if(qbevent){evnt(11360);if(r)goto S_13974;} -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(11360);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(11360);}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(11361);}while(r); -do{ -*__LONG_N=*__LONG_N- 1 ; -if(!qbevent)break;evnt(11362);}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(11363);}while(r); -S_13981:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(11364);if(r)goto S_13981;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11364);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11364);}while(r); -} -do{ -goto LABEL_LETUSED; -if(!qbevent)break;evnt(11366);}while(r); -} -} -S_13989:; -if ((-(*__LONG_N>= 3 ))||new_error){ -if(qbevent){evnt(11371);if(r)goto S_13989;} -S_13990:; -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)))||new_error){ -if(qbevent){evnt(11372);if(r)goto S_13990;} -LABEL_LETUSED:; -if(qbevent){evnt(11373);r=0;} -do{ -SUB_ASSIGN(__STRING_CA,__LONG_N); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11374);}while(r); -S_13992:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(11375);if(r)goto S_13992;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(11375);}while(r); -} -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(11376);}while(r); -S_13996:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||new_error){ -if(qbevent){evnt(11377);if(r)goto S_13996;} -do{ -qbs_set(__STRING_LAYOUT,__STRING_TLAYOUT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11377);}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(11377);}while(r); -} -do{ -goto LABEL_FINISHEDLINE; -if(!qbevent)break;evnt(11378);}while(r); -} -} -S_14004:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal((qbs_right(__STRING_A, 2 )),(qbs_add(__STRING1_SP,qbs_new_txt_len("=",1))))))||new_error){ -if(qbevent){evnt(11381);if(r)goto S_14004;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Expected ... = expression",25)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11381);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(11381);}while(r); -} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Syntax error",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11384);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(11384);}while(r); -LABEL_FINISHEDLINE:; -if(qbevent){evnt(11386);r=0;} -do{ -*__LONG_THENGOTO= 0 ; -if(!qbevent)break;evnt(11387);}while(r); -LABEL_FINISHEDLINE2:; -if(qbevent){evnt(11388);r=0;} -S_14011:; -if ((*__BYTE_INPUTFUNCTIONCALLED)||new_error){ -if(qbevent){evnt(11390);if(r)goto S_14011;} -do{ -*__BYTE_INPUTFUNCTIONCALLED= 0 ; -if(!qbevent)break;evnt(11391);}while(r); -S_14013:; -if ((-(*__LONG_VWATCHON== 1 ))||new_error){ -if(qbevent){evnt(11392);if(r)goto S_14013;} -do{ -SUB_WRITEBUFLINE(&(pass1631=*__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(11393);}while(r); -} -} -S_14017:; -if ((-(*__INTEGER_ARRAYPROCESSINGHAPPENED== 1 ))||new_error){ -if(qbevent){evnt(11397);if(r)goto S_14017;} -do{ -*__INTEGER_ARRAYPROCESSINGHAPPENED= 0 ; -if(!qbevent)break;evnt(11397);}while(r); -} -do{ -qbs_set(__STRING_INCLINENUMP,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11399);}while(r); -S_14021:; -if ((((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])||new_error){ -if(qbevent){evnt(11400);if(r)goto S_14021;} -do{ -qbs_set(__STRING_INCLINENUMP,qbs_add(qbs_new_txt_len(",",1),FUNC_STR2((&(((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(11401);}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(11402);}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(11403);}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(11404);}while(r); -} -S_14027:; -if ((-(*__LONG_NOCHECKS== 0 ))||new_error){ -if(qbevent){evnt(11406);if(r)goto S_14027;} -S_14028:; -if ((*__LONG_VWATCHON&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||new_error){ -if(qbevent){evnt(11407);if(r)goto S_14028;} -do{ -qbs_set(__STRING_TEMP,__STRING_VWATCHERRORCALL); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11407);}while(r); -}else{ -do{ -qbs_set(__STRING_TEMP,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11407);}while(r); -} -S_14033:; -if ((*__LONG_DYNSCOPE)||new_error){ -if(qbevent){evnt(11408);if(r)goto S_14033;} -do{ -*__LONG_DYNSCOPE= 0 ; -if(!qbevent)break;evnt(11409);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1633=*__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)),FUNC_STR2(__LONG_LINENUMBER)),__STRING_INCLINENUMP),qbs_new_txt_len(");if(r)goto S_",14)),FUNC_STR2(__LONG_STATEMENTN)),qbs_new_txt_len(";}",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11410);}while(r); -}else{ -do{ -SUB_WRITEBUFLINE(&(pass1634=*__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)),FUNC_STR2(__LONG_LINENUMBER)),__STRING_INCLINENUMP),qbs_new_txt_len(");}while(r);",12))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11412);}while(r); -} -} -LABEL_FINISHEDNONEXEC:; -if(qbevent){evnt(11416);r=0;} -do{ -*__LONG_FIRSTLINE= 0 ; -if(!qbevent)break;evnt(11418);}while(r); -S_14041:; -if ((-(*__LONG_LAYOUTDONE== 0 ))||new_error){ -if(qbevent){evnt(11420);if(r)goto S_14041;} -do{ -*__LONG_LAYOUTOK= 0 ; -if(!qbevent)break;evnt(11420);}while(r); -} -S_14044:; -if ((-(*__LONG_CONTINUELINEFROM== 0 ))||new_error){ -if(qbevent){evnt(11422);if(r)goto S_14044;} -S_14045:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_ADDMETAINCLUDE->len))||new_error){ -if(qbevent){evnt(11425);if(r)goto S_14045;} -S_14046:; -if ((-(*__LONG_INCLEVEL== 0 ))||new_error){ -if(qbevent){evnt(11427);if(r)goto S_14046;} -do{ -qbs_set(__STRING_LAYOUTCOMMENT_BACKUP,__STRING_LAYOUTCOMMENT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11429);}while(r); -do{ -*__LONG_LAYOUTOK_BACKUP=*__LONG_LAYOUTOK; -if(!qbevent)break;evnt(11430);}while(r); -do{ -qbs_set(__STRING_LAYOUT_BACKUP,__STRING_LAYOUT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11431);}while(r); -} -do{ -qbs_set(__STRING_A,__STRING_ADDMETAINCLUDE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11434);}while(r); -do{ -qbs_set(__STRING_ADDMETAINCLUDE,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11434);}while(r); -S_14053:; -if ((-(*__LONG_INCLEVEL== 0 ))||new_error){ -if(qbevent){evnt(11436);if(r)goto S_14053;} -do{ -*__LONG_INCLUDINGFROMROOT= 0 ; -if(!qbevent)break;evnt(11437);}while(r); -do{ -*__LONG_FORCEINCLUDINGFILE= 0 ; -if(!qbevent)break;evnt(11438);}while(r); -LABEL_FORCEINCLUDE:; -if(qbevent){evnt(11439);r=0;} -S_14056:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_FORCEINCLUDEFROMROOT,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(11440);if(r)goto S_14056;} -do{ -qbs_set(__STRING_A,__STRING_FORCEINCLUDEFROMROOT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11441);}while(r); -do{ -qbs_set(__STRING_FORCEINCLUDEFROMROOT,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11442);}while(r); -do{ -*__LONG_FORCEINCLUDINGFILE= 1 ; -if(!qbevent)break;evnt(11443);}while(r); -do{ -*__LONG_INCLUDINGFROMROOT= 1 ; -if(!qbevent)break;evnt(11444);}while(r); -} -} -S_14063:; -if ((-(*__LONG_INCLEVEL== 100 ))||new_error){ -if(qbevent){evnt(11448);if(r)goto S_14063;} -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(11448);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(11448);}while(r); -} -do{ -*__LONG_FH= 99 +*__LONG_INCLEVEL+ 1 ; -if(!qbevent)break;evnt(11450);}while(r); -do{ -*__LONG_FIRSTTRYMETHOD= 1 ; -if(!qbevent)break;evnt(11452);}while(r); -S_14069:; -if (((-(*__LONG_INCLUDINGFROMROOT!= 0 ))&(-(*__LONG_INCLEVEL== 0 )))||new_error){ -if(qbevent){evnt(11453);if(r)goto S_14069;} -do{ -*__LONG_FIRSTTRYMETHOD= 2 ; -if(!qbevent)break;evnt(11453);}while(r); -} -S_14072:; -fornext_value1637=*__LONG_FIRSTTRYMETHOD; -fornext_finalvalue1637= 2 ; -fornext_step1637= 1 ; -if (fornext_step1637<0) fornext_step_negative1637=1; else fornext_step_negative1637=0; -if (new_error) goto fornext_error1637; -goto fornext_entrylabel1637; -while(1){ -fornext_value1637=fornext_step1637+(*__LONG_TRY); -fornext_entrylabel1637: -*__LONG_TRY=fornext_value1637; -if (fornext_step_negative1637){ -if (fornext_value1637fornext_finalvalue1637) break; -} -fornext_error1637:; -if(qbevent){evnt(11454);if(r)goto S_14072;} -S_14073:; -if ((-(*__LONG_TRY== 1 ))||new_error){ -if(qbevent){evnt(11455);if(r)goto S_14073;} -S_14074:; -if ((-(*__LONG_INCLEVEL== 0 ))||new_error){ -if(qbevent){evnt(11456);if(r)goto S_14074;} -S_14075:; -if ((*__LONG_IDEMODE)||new_error){ -if(qbevent){evnt(11457);if(r)goto S_14075;} -do{ -qbs_set(__STRING_P,qbs_add(__STRING_IDEPATH,__STRING1_PATHSEP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11457);}while(r); -}else{ -do{ -qbs_set(__STRING_P,FUNC_GETFILEPATH(__STRING_SOURCEFILE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11457);}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(11459);}while(r); -} -do{ -qbs_set(__STRING_F,qbs_add(__STRING_P,__STRING_A)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11461);}while(r); -} -S_14085:; -if ((-(*__LONG_TRY== 2 ))||new_error){ -if(qbevent){evnt(11463);if(r)goto S_14085;} -do{ -qbs_set(__STRING_F,__STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11463);}while(r); -} -S_14088:; -if ((qbs_cleanup(qbs_tmp_base,func__fileexists(__STRING_F)))||new_error){ -if(qbevent){evnt(11464);if(r)goto S_14088;} -do{ -*__INTEGER_QBERRORHAPPENED= -2 ; -if(!qbevent)break;evnt(11465);}while(r); -do{ -sub_open(__STRING_F, 2 ,NULL,NULL,*__LONG_FH,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11466);}while(r); -LABEL_QBERRORHAPPENED2:; -if(qbevent){evnt(11467);r=0;} -S_14091:; -if ((-(*__INTEGER_QBERRORHAPPENED== -2 ))||new_error){ -if(qbevent){evnt(11468);if(r)goto S_14091;} -do{ -goto fornext_exit_1636; -if(!qbevent)break;evnt(11468);}while(r); -} -} -do{ -*__INTEGER_QBERRORHAPPENED= 0 ; -if(!qbevent)break;evnt(11470);}while(r); -fornext_continue_1636:; -} -fornext_exit_1636:; -S_14097:; -if ((-(*__INTEGER_QBERRORHAPPENED!= -2 ))||new_error){ -if(qbevent){evnt(11472);if(r)goto S_14097;} -do{ -*__INTEGER_QBERRORHAPPENED= 0 ; -if(!qbevent)break;evnt(11472);}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(11472);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(11472);}while(r); -} -do{ -*__LONG_INCLEVEL=*__LONG_INCLEVEL+ 1 ; -if(!qbevent)break;evnt(11473);}while(r); -do{ -tmp_long=array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[tmp_long])),__STRING_F); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11473);}while(r); -do{ -tmp_long=array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(11473);}while(r); -} -S_14106:; -while((*__LONG_INCLEVEL)||new_error){ -if(qbevent){evnt(11476);if(r)goto S_14106;} -do{ -*__LONG_FH= 99 +*__LONG_INCLEVEL; -if(!qbevent)break;evnt(11477);}while(r); -S_14108:; -if ((-(func_eof(*__LONG_FH)== 0 ))||new_error){ -if(qbevent){evnt(11479);if(r)goto S_14108;} -do{ -tmp_fileno=*__LONG_FH; -if (new_error) goto skip1639; -sub_file_line_input_string(tmp_fileno,__STRING_X); -if (new_error) goto skip1639; -skip1639: -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11480);}while(r); -do{ -qbs_set(__STRING_A3,__STRING_X); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11481);}while(r); -do{ -*__LONG_CONTINUELINEFROM= 0 ; -if(!qbevent)break;evnt(11482);}while(r); -do{ -tmp_long=array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5]); -if (!new_error) ((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(11483);}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(11485);}while(r); -do{ -qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len(" in line ",9),FUNC_STR2((&(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])))),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_new_txt_len(" included",9))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11486);}while(r); -S_14115:; -if ((-(*__LONG_INCLEVEL> 1 ))||new_error){ -if(qbevent){evnt(11487);if(r)goto S_14115;} -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(11488);}while(r); -S_14117:; -fornext_value1641= 1 ; -fornext_finalvalue1641=*__LONG_INCLEVEL- 1 ; -fornext_step1641= 1 ; -if (fornext_step1641<0) fornext_step_negative1641=1; else fornext_step_negative1641=0; -if (new_error) goto fornext_error1641; -goto fornext_entrylabel1641; -while(1){ -fornext_value1641=fornext_step1641+(*__LONG_X); -fornext_entrylabel1641: -*__LONG_X=fornext_value1641; -if (fornext_step_negative1641){ -if (fornext_value1641fornext_finalvalue1641) break; -} -fornext_error1641:; -if(qbevent){evnt(11489);if(r)goto S_14117;} -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(11490);}while(r); -S_14119:; -if ((-(*__LONG_X<(*__LONG_INCLEVEL- 1 )))||new_error){ -if(qbevent){evnt(11491);if(r)goto S_14119;} -S_14120:; -if ((-(*__LONG_X==(*__LONG_INCLEVEL- 2 )))||new_error){ -if(qbevent){evnt(11492);if(r)goto S_14120;} -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(11493);}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(11495);}while(r); -} -} -fornext_continue_1640:; -} -fornext_exit_1640:; -do{ -qbs_set(__STRING_E,qbs_add(__STRING_E,qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11499);}while(r); -} -do{ -qbs_set(__STRING_INCERROR,__STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11501);}while(r); -do{ -*__LONG_LINENUMBER=*__LONG_LINENUMBER- 1 ; -if(!qbevent)break;evnt(11502);}while(r); -S_14131:; -if ((*__LONG_IDEMODE)||new_error){ -if(qbevent){evnt(11503);if(r)goto S_14131;} -do{ -qbs_set(__STRING_SENDC,qbs_add(func_chr( 10 ),__STRING_A3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11503);}while(r); -do{ -goto LABEL_SENDCOMMAND; -if(!qbevent)break;evnt(11503);}while(r); -} -do{ -goto LABEL_INCLUDELINE; -if(!qbevent)break;evnt(11504);}while(r); -} -do{ -sub_close(*__LONG_FH,1); -if(!qbevent)break;evnt(11507);}while(r); -do{ -*__LONG_INCLEVEL=*__LONG_INCLEVEL- 1 ; -if(!qbevent)break;evnt(11508);}while(r); -S_14139:; -if ((-(*__LONG_INCLEVEL== 0 ))||new_error){ -if(qbevent){evnt(11509);if(r)goto S_14139;} -S_14140:; -if ((-(*__LONG_FORCEINCLUDINGFILE== 1 ))||new_error){ -if(qbevent){evnt(11510);if(r)goto S_14140;} -do{ -*__LONG_FORCEINCLUDINGFILE= 0 ; -if(!qbevent)break;evnt(11511);}while(r); -do{ -goto LABEL_FORCEINCLUDECOMPLETED; -if(!qbevent)break;evnt(11512);}while(r); -} -do{ -*__LONG_LAYOUTOK=*__LONG_LAYOUTOK_BACKUP; -if(!qbevent)break;evnt(11515);}while(r); -do{ -qbs_set(__STRING_LAYOUT,__STRING_LAYOUT_BACKUP); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11516);}while(r); -do{ -qbs_set(__STRING_LAYOUTCOMMENT,__STRING_LAYOUTCOMMENT_BACKUP); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11517);}while(r); -} -dl_continue_1638:; -} -dl_exit_1638:; -} -S_14150:; -if (( 0 )||new_error){ -if(qbevent){evnt(11527);if(r)goto S_14150;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1642; -sub_file_print(tmp_fileno,qbs_new_txt_len("[layout check]",14), 0, 0, 1); -if (new_error) goto skip1642; -skip1642: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11528);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1643; -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 (new_error) goto skip1643; -skip1643: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11529);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1644; -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 (new_error) goto skip1644; -skip1644: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11530);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1645; -sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_LAYOUTOK)), 1, 0, 1); -if (new_error) goto skip1645; -skip1645: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11531);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1646; -sub_file_print(tmp_fileno,qbs_new_txt_len("[end layout check]",18), 0, 0, 1); -if (new_error) goto skip1646; -skip1646: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11532);}while(r); -} -S_14157:; -if ((*__LONG_IDEMODE)||new_error){ -if(qbevent){evnt(11538);if(r)goto S_14157;} -S_14158:; -if ((-(*__LONG_CONTINUELINEFROM!= 0 ))||new_error){ -if(qbevent){evnt(11539);if(r)goto S_14158;} -do{ -goto LABEL_IDE4; -if(!qbevent)break;evnt(11539);}while(r); -} -S_14161:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUTCOMMENT->len))||new_error){ -if(qbevent){evnt(11541);if(r)goto S_14161;} -S_14162:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(11542);if(r)goto S_14162;} -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(11542);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,__STRING_LAYOUTCOMMENT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11542);}while(r); -} -} -S_14168:; -if ((-(*__LONG_LAYOUTOK== 0 ))||new_error){ -if(qbevent){evnt(11545);if(r)goto S_14168;} -do{ -qbs_set(__STRING_LAYOUT,__STRING_LAYOUTORIGINAL); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11546);}while(r); -}else{ -do{ -*__LONG_I=func_instr(NULL,__STRING_LAYOUT,__STRING_FIX046,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11551);}while(r); -S_14172:; -while((*__LONG_I)||new_error){ -if(qbevent){evnt(11552);if(r)goto S_14172;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(qbs_left(__STRING_LAYOUT,*__LONG_I- 1 ),qbs_new_txt_len(".",1)),qbs_right(__STRING_LAYOUT,__STRING_LAYOUT->len-(*__LONG_I+__STRING_FIX046->len- 1 )))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11553);}while(r); -do{ -*__LONG_I=func_instr(NULL,__STRING_LAYOUT,__STRING_FIX046,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11554);}while(r); -dl_continue_1649:; -} -dl_exit_1649:; -} -do{ -*__LONG_X=*__LONG_LHSCONTROLLEVEL; -if(!qbevent)break;evnt(11558);}while(r); -S_14178:; -if ((-(*__INTEGER_CONTROLLEVEL<*__LONG_LHSCONTROLLEVEL))||new_error){ -if(qbevent){evnt(11558);if(r)goto S_14178;} -do{ -*__LONG_X=*__INTEGER_CONTROLLEVEL; -if(!qbevent)break;evnt(11558);}while(r); -} -S_14181:; -if ((-(*__LONG_DEFININGTYPE== 2 ))||new_error){ -if(qbevent){evnt(11559);if(r)goto S_14181;} -do{ -*__LONG_X=*__LONG_X+ 1 ; -if(!qbevent)break;evnt(11559);}while(r); -} -S_14184:; -if ((-(*__LONG_DEFININGTYPE> 0 ))||new_error){ -if(qbevent){evnt(11560);if(r)goto S_14184;} -do{ -*__LONG_DEFININGTYPE= 2 ; -if(!qbevent)break;evnt(11560);}while(r); -} -S_14187:; -if ((-(*__LONG_DECLARINGLIBRARY== 2 ))||new_error){ -if(qbevent){evnt(11561);if(r)goto S_14187;} -do{ -*__LONG_X=*__LONG_X+ 1 ; -if(!qbevent)break;evnt(11561);}while(r); -} -S_14190:; -if ((-(*__LONG_DECLARINGLIBRARY> 0 ))||new_error){ -if(qbevent){evnt(11562);if(r)goto S_14190;} -do{ -*__LONG_DECLARINGLIBRARY= 2 ; -if(!qbevent)break;evnt(11562);}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(11563);}while(r); -S_14194:; -if ((*__LONG_LINECONTINUATION)||new_error){ -if(qbevent){evnt(11564);if(r)goto S_14194;} -do{ -qbs_set(__STRING_LAYOUT,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11564);}while(r); -} -do{ -goto LABEL_IDERET4; -if(!qbevent)break;evnt(11566);}while(r); -} -LABEL_SKIPIDE4:; -if(qbevent){evnt(11570);r=0;} -dl_continue_335:; -}while(1); -dl_exit_335:; -S_14200:; -if ((-(*__LONG_LASTLINERETURN== 0 ))||new_error){ -if(qbevent){evnt(11574);if(r)goto S_14200;} -do{ -*__LONG_LASTLINERETURN= 1 ; -if(!qbevent)break;evnt(11575);}while(r); -do{ -*__LONG_LASTLINE= 1 ; -if(!qbevent)break;evnt(11576);}while(r); -do{ -qbs_set(__STRING_WHOLELINE,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11577);}while(r); -do{ -goto LABEL_MAINPASSLASTLINE; -if(!qbevent)break;evnt(11578);}while(r); -} -LABEL_IDE5:; -if(qbevent){evnt(11581);r=0;} -do{ -*__LONG_LINENUMBER= 0 ; -if(!qbevent)break;evnt(11582);}while(r); -S_14207:; -if ((-(*__INTEGER_CLOSEDMAIN== 0 ))||new_error){ -if(qbevent){evnt(11584);if(r)goto S_14207;} -do{ -SUB_CLOSEMAIN(); -if(!qbevent)break;evnt(11584);}while(r); -} -S_14210:; -if ((*__LONG_DEFININGTYPE)||new_error){ -if(qbevent){evnt(11586);if(r)goto S_14210;} -do{ -*__LONG_LINENUMBER=*__LONG_DEFININGTYPEERROR; -if(!qbevent)break;evnt(11586);}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(11586);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(11586);}while(r); -} -S_14215:; -if ((*__INTEGER_CONTROLLEVEL)||new_error){ -if(qbevent){evnt(11589);if(r)goto S_14215;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("Unidentified open control block",31)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11590);}while(r); -S_14217:; -sc_1652=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]; -if(qbevent){evnt(11591);if(r)goto S_14217;} -S_14218:; -if (((sc_1652==( 1 )))||new_error){ -if(qbevent){evnt(11592);if(r)goto S_14218;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("IF without END IF",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11592);}while(r); -sc_ec_36_end:; -goto sc_1652_end; -} -S_14220:; -if (((sc_1652==( 2 )))||new_error){ -if(qbevent){evnt(11593);if(r)goto S_14220;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("FOR without NEXT",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11593);}while(r); -sc_ec_37_end:; -goto sc_1652_end; -} -S_14222:; -if (((sc_1652==( 3 ))||(sc_1652==( 4 )))||new_error){ -if(qbevent){evnt(11594);if(r)goto S_14222;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("DO without LOOP",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11594);}while(r); -sc_ec_38_end:; -goto sc_1652_end; -} -S_14224:; -if (((sc_1652==( 5 )))||new_error){ -if(qbevent){evnt(11595);if(r)goto S_14224;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("WHILE without WEND",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11595);}while(r); -sc_ec_39_end:; -goto sc_1652_end; -} -S_14226:; -if (((sc_1652==( 6 )))||new_error){ -if(qbevent){evnt(11596);if(r)goto S_14226;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("$IF without $END IF",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11596);}while(r); -sc_ec_40_end:; -goto sc_1652_end; -} -S_14228:; -if ((((sc_1652>=( 10 ))&&(sc_1652<=( 19 ))))||new_error){ -if(qbevent){evnt(11597);if(r)goto S_14228;} -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(11597);}while(r); -sc_ec_41_end:; -goto sc_1652_end; -} -S_14230:; -if (((sc_1652==( 32 )))||new_error){ -if(qbevent){evnt(11598);if(r)goto S_14230;} -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(11598);}while(r); -sc_ec_42_end:; -goto sc_1652_end; -} -sc_1652_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(11600);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(11601);}while(r); -} -S_14236:; -if ((-(*__LONG_IDEINDENTSUBS== 0 ))||new_error){ -if(qbevent){evnt(11604);if(r)goto S_14236;} -S_14237:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_SUBFUNC->len))||new_error){ -if(qbevent){evnt(11605);if(r)goto S_14237;} -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(11605);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(11605);}while(r); -} -} -do{ -SUB_WRITEBUFLINE(&(pass1654=*__LONG_ERRTXTBUF),qbs_new_txt_len("exit(99);",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11609);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1655=*__LONG_ERRTXTBUF),qbs_new_txt_len("}",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11610);}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(11613);}while(r); -S_14245:; -fornext_value1657= 1 ; -fornext_finalvalue1657=*__LONG_IDN; -fornext_step1657= 1 ; -if (fornext_step1657<0) fornext_step_negative1657=1; else fornext_step_negative1657=0; -if (new_error) goto fornext_error1657; -goto fornext_entrylabel1657; -while(1){ -fornext_value1657=fornext_step1657+(*__LONG_I); -fornext_entrylabel1657: -*__LONG_I=fornext_value1657; -if (fornext_step_negative1657){ -if (fornext_value1657fornext_finalvalue1657) break; -} -fornext_error1657:; -if(qbevent){evnt(11615);if(r)goto S_14245;} -S_14246:; -if ((*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+2853)))||new_error){ -if(qbevent){evnt(11617);if(r)goto S_14246;} -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(11618);}while(r); -do{ -goto LABEL_CLEARSTATICSCOPE; -if(!qbevent)break;evnt(11619);}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(11622);}while(r); -S_14251:; -if (((-(*__LONG_A== 0 ))|(-(*__LONG_A== 32 )))||new_error){ -if(qbevent){evnt(11623);if(r)goto S_14251;} -do{ -qbs_set(__STRING_SUBFUNC,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11624);}while(r); -LABEL_CLEARSTATICSCOPE:; -if(qbevent){evnt(11625);r=0;} -S_14253:; -if ((*(int32*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+512)))||new_error){ -if(qbevent){evnt(11627);if(r)goto S_14253;} -do{ -SUB_GETID(__LONG_I); -if(!qbevent)break;evnt(11628);}while(r); -S_14255:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(11629);if(r)goto S_14255;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(11629);}while(r); -} -S_14258:; -if ((-(*(int16*)(((char*)__UDT_ID)+(516))== -1 ))||new_error){ -if(qbevent){evnt(11630);if(r)goto S_14258;} -do{ -goto LABEL_CLEARERASERETURNED; -if(!qbevent)break;evnt(11630);}while(r); -} -S_14261:; -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 )))||new_error){ -if(qbevent){evnt(11631);if(r)goto S_14261;} -do{ -goto LABEL_CLEARERASERETURNED; -if(!qbevent)break;evnt(11632);}while(r); -} -do{ -*__LONG_CLEARERASERETURN= 1 ; -if(!qbevent)break;evnt(11634);}while(r); -do{ -goto LABEL_CLEARERASE; -if(!qbevent)break;evnt(11634);}while(r); -} -S_14267:; -if ((*(int32*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+536)))||new_error){ -if(qbevent){evnt(11637);if(r)goto S_14267;} -do{ -SUB_GETID(__LONG_I); -if(!qbevent)break;evnt(11638);}while(r); -S_14269:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(11639);if(r)goto S_14269;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(11639);}while(r); -} -do{ -qbs_set(__STRING_BYTES,FUNC_VARIABLESIZE(&(pass1658= -1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11640);}while(r); -S_14273:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(11641);if(r)goto S_14273;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(11641);}while(r); -} -do{ -*__LONG_TYP=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISREFERENCE; -if(!qbevent)break;evnt(11643);}while(r); -S_14277:; -if ((*__LONG_TYP&*__LONG_ISUDT)||new_error){ -if(qbevent){evnt(11644);if(r)goto S_14277;} -do{ -qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(FUNC_STR2(__LONG_I),__STRING1_SP3),FUNC_STR2(&(pass1659=*__LONG_TYP& 511 ))),__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(11645);}while(r); -}else{ -do{ -qbs_set(__STRING_E,FUNC_STR2(__LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11647);}while(r); -} -do{ -qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass1660= 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11649);}while(r); -S_14283:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(11650);if(r)goto S_14283;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(11650);}while(r); -} -S_14286:; -if ((*__LONG_TYP&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(11651);if(r)goto S_14286;} -S_14287:; -if ((*__LONG_TYP&*__LONG_ISFIXEDLENGTH)||new_error){ -if(qbevent){evnt(11652);if(r)goto S_14287;} -do{ -SUB_WRITEBUFLINE(&(pass1661=*__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(11653);}while(r); -do{ -goto LABEL_CLEARED; -if(!qbevent)break;evnt(11654);}while(r); -}else{ -S_14291:; -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)))))||new_error){ -if(qbevent){evnt(11656);if(r)goto S_14291;} -do{ -SUB_WRITEBUFLINE(&(pass1662=*__LONG_MAINTXTBUF),qbs_add(__STRING_E,qbs_new_txt_len("->len=0;",8))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11657);}while(r); -} -do{ -goto LABEL_CLEARED; -if(!qbevent)break;evnt(11659);}while(r); -} -} -S_14297:; -if ((*__LONG_TYP&*__LONG_ISUDT)||new_error){ -if(qbevent){evnt(11662);if(r)goto S_14297;} -S_14298:; -if ((((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*__LONG_TYP& 511 )-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])])||new_error){ -if(qbevent){evnt(11663);if(r)goto S_14298;} -do{ -SUB_CLEAR_UDT_WITH_VARSTRINGS(__STRING_E,&(pass1663=*__LONG_TYP& 511 ),__LONG_MAINTXTBUF,&(pass1664= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11665);}while(r); -}else{ -do{ -SUB_WRITEBUFLINE(&(pass1665=*__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(11667);}while(r); -} -}else{ -S_14304:; -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)))))||new_error){ -if(qbevent){evnt(11670);if(r)goto S_14304;} -do{ -SUB_WRITEBUFLINE(&(pass1666=*__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(11671);}while(r); -} -} -do{ -goto LABEL_CLEARED; -if(!qbevent)break;evnt(11674);}while(r); -} -} -LABEL_CLEARED:; -if(qbevent){evnt(11679);r=0;} -LABEL_CLEARERASERETURNED:; -if(qbevent){evnt(11680);r=0;} -fornext_continue_1656:; -} -fornext_exit_1656:; -S_14312:; -if (( 0 )||new_error){ -if(qbevent){evnt(11683);if(r)goto S_14312;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1667; -sub_file_print(tmp_fileno,qbs_new_txt_len("finished making program!",24), 0, 0, 1); -if (new_error) goto skip1667; -skip1667: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11684);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1668; -sub_file_print(tmp_fileno,qbs_new_txt_len("recompile=",10), 0, 0, 0); -if (new_error) goto skip1668; -sub_file_print(tmp_fileno,qbs_str((int16)(*__INTEGER_RECOMPILE)), 1, 0, 1); -if (new_error) goto skip1668; -skip1668: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11685);}while(r); -} -S_14316:; -fornext_value1670= 1 ; -fornext_finalvalue1670=*__LONG_IDN; -fornext_step1670= 1 ; -if (fornext_step1670<0) fornext_step_negative1670=1; else fornext_step_negative1670=0; -if (new_error) goto fornext_error1670; -goto fornext_entrylabel1670; -while(1){ -fornext_value1670=fornext_step1670+(*__LONG_I); -fornext_entrylabel1670: -*__LONG_I=fornext_value1670; -if (fornext_step_negative1670){ -if (fornext_value1670fornext_finalvalue1670) break; -} -fornext_error1670:; -if(qbevent){evnt(11689);if(r)goto S_14316;} -S_14317:; -if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_I)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ -if(qbevent){evnt(11690);if(r)goto S_14317;} -do{ -SUB_GETID(__LONG_I); -if(!qbevent)break;evnt(11692);}while(r); -S_14319:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(11693);if(r)goto S_14319;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(11693);}while(r); -} -S_14322:; -if (( 0 )||new_error){ -if(qbevent){evnt(11695);if(r)goto S_14322;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1671; -sub_file_print(tmp_fileno,qbs_new_txt_len("recompiling cmem sf! checking:",30), 0, 0, 0); -if (new_error) goto skip1671; -sub_file_print(tmp_fileno,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1)), 0, 0, 1); -if (new_error) goto skip1671; -skip1671: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11695);}while(r); -} -S_14325:; -if ((*(int32*)(((char*)__UDT_ID)+(2855)))||new_error){ -if(qbevent){evnt(11697);if(r)goto S_14325;} -S_14326:; -if (( 0 )||new_error){ -if(qbevent){evnt(11699);if(r)goto S_14326;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1672; -sub_file_print(tmp_fileno,qbs_new_txt_len("recompiling cmem sf! It's a sub/func arg!",41), 0, 0, 1); -if (new_error) goto skip1672; -skip1672: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11699);}while(r); -} -do{ -*__LONG_I2=*(int32*)(((char*)__UDT_ID)+(2855)); -if(!qbevent)break;evnt(11701);}while(r); -do{ -*__LONG_X=*(int16*)(((char*)__UDT_ID)+(2859)); -if(!qbevent)break;evnt(11702);}while(r); -S_14331:; -if (( 0 )||new_error){ -if(qbevent){evnt(11704);if(r)goto S_14331;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1673; -sub_file_print(tmp_fileno,qbs_new_txt_len("recompiling cmem sf! values:",28), 0, 0, 0); -if (new_error) goto skip1673; -sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_I2)), 1, 0, 0); -if (new_error) goto skip1673; -sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_X)), 1, 0, 1); -if (new_error) goto skip1673; -skip1673: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11704);}while(r); -} -S_14334:; -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 ))))||new_error){ -if(qbevent){evnt(11707);if(r)goto S_14334;} -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(11708);}while(r); -S_14336:; -if (( 0 )||new_error){ -if(qbevent){evnt(11711);if(r)goto S_14336;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1674; -sub_file_print(tmp_fileno,qbs_new_txt_len("recompiling cmem sf! setting:",29), 0, 0, 0); -if (new_error) goto skip1674; -sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_I2)), 1, 0, 0); -if (new_error) goto skip1674; -sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_X)), 1, 0, 1); -if (new_error) goto skip1674; -skip1674: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11711);}while(r); -} -do{ -*__INTEGER_RECOMPILE= 1 ; -if(!qbevent)break;evnt(11714);}while(r); -} -} -} -fornext_continue_1669:; -} -fornext_exit_1669:; -do{ -*__LONG_UNRESOLVED= 0 ; -if(!qbevent)break;evnt(11720);}while(r); -S_14345:; -fornext_value1676= 1 ; -fornext_finalvalue1676=*__LONG_IDN; -fornext_step1676= 1 ; -if (fornext_step1676<0) fornext_step_negative1676=1; else fornext_step_negative1676=0; -if (new_error) goto fornext_error1676; -goto fornext_entrylabel1676; -while(1){ -fornext_value1676=fornext_step1676+(*__LONG_I); -fornext_entrylabel1676: -*__LONG_I=fornext_value1676; -if (fornext_step_negative1676){ -if (fornext_value1676fornext_finalvalue1676) break; -} -fornext_error1676:; -if(qbevent){evnt(11721);if(r)goto S_14345;} -do{ -SUB_GETID(__LONG_I); -if(!qbevent)break;evnt(11722);}while(r); -S_14347:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(11723);if(r)goto S_14347;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(11723);}while(r); -} -S_14350:; -if (( 0 )||new_error){ -if(qbevent){evnt(11725);if(r)goto S_14350;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1677; -sub_file_print(tmp_fileno,qbs_new_txt_len("checking id named:",18), 0, 0, 0); -if (new_error) goto skip1677; -sub_file_print(tmp_fileno,qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1), 0, 0, 1); -if (new_error) goto skip1677; -skip1677: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11725);}while(r); -} -S_14353:; -if ((*(int16*)(((char*)__UDT_ID)+(544)))||new_error){ -if(qbevent){evnt(11727);if(r)goto S_14353;} -S_14354:; -fornext_value1679= 1 ; -fornext_finalvalue1679=*(int16*)(((char*)__UDT_ID)+(809)); -fornext_step1679= 1 ; -if (fornext_step1679<0) fornext_step_negative1679=1; else fornext_step_negative1679=0; -if (new_error) goto fornext_error1679; -goto fornext_entrylabel1679; -while(1){ -fornext_value1679=fornext_step1679+(*__LONG_I2); -fornext_entrylabel1679: -*__LONG_I2=fornext_value1679; -if (fornext_step_negative1679){ -if (fornext_value1679fornext_finalvalue1679) break; -} -fornext_error1679:; -if(qbevent){evnt(11728);if(r)goto S_14354;} -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(11729);}while(r); -S_14356:; -if ((-(*__LONG_T> 0 ))||new_error){ -if(qbevent){evnt(11730);if(r)goto S_14356;} -S_14357:; -if (((*__LONG_T&*__LONG_ISPOINTER))||new_error){ -if(qbevent){evnt(11731);if(r)goto S_14357;} -S_14358:; -if (((*__LONG_T&*__LONG_ISARRAY))||new_error){ -if(qbevent){evnt(11732);if(r)goto S_14358;} -S_14359:; -if (( 0 )||new_error){ -if(qbevent){evnt(11734);if(r)goto S_14359;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1680; -sub_file_print(tmp_fileno,qbs_new_txt_len("checking argument ",18), 0, 0, 0); -if (new_error) goto skip1680; -sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_I2)), 1, 0, 0); -if (new_error) goto skip1680; -sub_file_print(tmp_fileno,qbs_new_txt_len(" of ",4), 0, 0, 0); -if (new_error) goto skip1680; -sub_file_print(tmp_fileno,qbs_str((int16)(*(int16*)(((char*)__UDT_ID)+(809)))), 1, 0, 1); -if (new_error) goto skip1680; -skip1680: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11734);}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(11736);}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(11737);}while(r); -S_14364:; -if (( 0 )||new_error){ -if(qbevent){evnt(11739);if(r)goto S_14364;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1681; -sub_file_print(tmp_fileno,qbs_new_txt_len("nele=",5), 0, 0, 0); -if (new_error) goto skip1681; -sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_NELE)), 1, 0, 1); -if (new_error) goto skip1681; -skip1681: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11739);}while(r); -} -S_14367:; -if (( 0 )||new_error){ -if(qbevent){evnt(11740);if(r)goto S_14367;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1682; -sub_file_print(tmp_fileno,qbs_new_txt_len("nelereq=",8), 0, 0, 0); -if (new_error) goto skip1682; -sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_NELEREQ)), 1, 0, 1); -if (new_error) goto skip1682; -skip1682: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11740);}while(r); -} -S_14370:; -if ((-(*__LONG_NELE!=*__LONG_NELEREQ))||new_error){ -if(qbevent){evnt(11742);if(r)goto S_14370;} -S_14371:; -if (( 0 )||new_error){ -if(qbevent){evnt(11744);if(r)goto S_14371;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1683; -sub_file_print(tmp_fileno,qbs_new_txt_len("mismatch detected!",18), 0, 0, 1); -if (new_error) goto skip1683; -skip1683: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11744);}while(r); -} -do{ -*__LONG_UNRESOLVED=*__LONG_UNRESOLVED+ 1 ; -if(!qbevent)break;evnt(11746);}while(r); -do{ -*__INTEGER_SFLISTN=*__INTEGER_SFLISTN+ 1 ; -if(!qbevent)break;evnt(11747);}while(r); -do{ -tmp_long=array_check((*__INTEGER_SFLISTN)-__ARRAY_LONG_SFIDLIST[4],__ARRAY_LONG_SFIDLIST[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_SFIDLIST[0]))[tmp_long]=*__LONG_I; -if(!qbevent)break;evnt(11748);}while(r); -do{ -tmp_long=array_check((*__INTEGER_SFLISTN)-__ARRAY_INTEGER_SFARGLIST[4],__ARRAY_INTEGER_SFARGLIST[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_SFARGLIST[0]))[tmp_long]=*__LONG_I2; -if(!qbevent)break;evnt(11749);}while(r); -do{ -tmp_long=array_check((*__INTEGER_SFLISTN)-__ARRAY_INTEGER_SFELELIST[4],__ARRAY_INTEGER_SFELELIST[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_SFELELIST[0]))[tmp_long]=*__LONG_NELEREQ; -if(!qbevent)break;evnt(11750);}while(r); -} -} -} -} -fornext_continue_1678:; -} -fornext_exit_1678:; -} -fornext_continue_1675:; -} -fornext_exit_1675:; -S_14386:; -if ((-(*__LONG_UNRESOLVED> 0 ))||new_error){ -if(qbevent){evnt(11760);if(r)goto S_14386;} -S_14387:; -if ((-(*__LONG_LASTUNRESOLVED== -1 ))||new_error){ -if(qbevent){evnt(11761);if(r)goto S_14387;} -do{ -*__INTEGER_RECOMPILE= 1 ; -if(!qbevent)break;evnt(11763);}while(r); -S_14389:; -if (( 0 )||new_error){ -if(qbevent){evnt(11764);if(r)goto S_14389;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1684; -sub_file_print(tmp_fileno,qbs_new_txt_len("recompiling to resolve array elements (first time)",50), 0, 0, 1); -if (new_error) goto skip1684; -skip1684: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11765);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1685; -sub_file_print(tmp_fileno,qbs_new_txt_len("sflistn=",8), 0, 0, 0); -if (new_error) goto skip1685; -sub_file_print(tmp_fileno,qbs_str((int16)(*__INTEGER_SFLISTN)), 1, 0, 1); -if (new_error) goto skip1685; -skip1685: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11766);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1686; -sub_file_print(tmp_fileno,qbs_new_txt_len("oldsflistn=",11), 0, 0, 0); -if (new_error) goto skip1686; -sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_OLDSFLISTN)), 1, 0, 1); -if (new_error) goto skip1686; -skip1686: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11767);}while(r); -} -}else{ -S_14395:; -if ((-(*__LONG_UNRESOLVED<*__LONG_LASTUNRESOLVED))||new_error){ -if(qbevent){evnt(11771);if(r)goto S_14395;} -do{ -*__INTEGER_RECOMPILE= 1 ; -if(!qbevent)break;evnt(11772);}while(r); -S_14397:; -if (( 0 )||new_error){ -if(qbevent){evnt(11773);if(r)goto S_14397;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1687; -sub_file_print(tmp_fileno,qbs_new_txt_len("recompiling to resolve array elements (not first time)",54), 0, 0, 1); -if (new_error) goto skip1687; -skip1687: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11774);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1688; -sub_file_print(tmp_fileno,qbs_new_txt_len("sflistn=",8), 0, 0, 0); -if (new_error) goto skip1688; -sub_file_print(tmp_fileno,qbs_str((int16)(*__INTEGER_SFLISTN)), 1, 0, 1); -if (new_error) goto skip1688; -skip1688: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11775);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1689; -sub_file_print(tmp_fileno,qbs_new_txt_len("oldsflistn=",11), 0, 0, 0); -if (new_error) goto skip1689; -sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_OLDSFLISTN)), 1, 0, 1); -if (new_error) goto skip1689; -skip1689: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11776);}while(r); -} -} -} -} -do{ -*__LONG_LASTUNRESOLVED=*__LONG_UNRESOLVED; -if(!qbevent)break;evnt(11781);}while(r); -S_14406:; -if (( 0 )||new_error){ -if(qbevent){evnt(11807);if(r)goto S_14406;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1690; -sub_file_print(tmp_fileno,qbs_new_txt_len("Beginning COMMON array list check...",36), 0, 0, 1); -if (new_error) goto skip1690; -skip1690: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11807);}while(r); -} -do{ -*__LONG_XI= 1 ; -if(!qbevent)break;evnt(11808);}while(r); -S_14410:; -fornext_value1692= 1 ; -fornext_finalvalue1692=*__LONG_COMMONARRAYLISTN; -fornext_step1692= 1 ; -if (fornext_step1692<0) fornext_step_negative1692=1; else fornext_step_negative1692=0; -if (new_error) goto fornext_error1692; -goto fornext_entrylabel1692; -while(1){ -fornext_value1692=fornext_step1692+(*__LONG_X); -fornext_entrylabel1692: -*__LONG_X=fornext_value1692; -if (fornext_step_negative1692){ -if (fornext_value1692fornext_finalvalue1692) break; -} -fornext_error1692:; -if(qbevent){evnt(11809);if(r)goto S_14410;} -do{ -qbs_set(__STRING_VARNAME,FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11810);}while(r); -do{ -*__LONG_XI=*__LONG_XI+ 1 ; -if(!qbevent)break;evnt(11810);}while(r); -do{ -qbs_set(__STRING_TYP,FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11811);}while(r); -do{ -*__LONG_XI=*__LONG_XI+ 1 ; -if(!qbevent)break;evnt(11811);}while(r); -do{ -*__LONG_DIMMETHOD2=qbr(func_val(FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11812);}while(r); -do{ -*__LONG_XI=*__LONG_XI+ 1 ; -if(!qbevent)break;evnt(11812);}while(r); -do{ -*__LONG_DIMSHARED2=qbr(func_val(FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11813);}while(r); -do{ -*__LONG_XI=*__LONG_XI+ 1 ; -if(!qbevent)break;evnt(11813);}while(r); -do{ -*__LONG_T=FUNC_TYPNAME2TYP(__STRING_TYP); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11815);}while(r); -S_14420:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(11816);if(r)goto S_14420;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(11816);}while(r); -} -S_14423:; -if ((-((*__LONG_T&*__LONG_ISUDT)== 0 ))||new_error){ -if(qbevent){evnt(11817);if(r)goto S_14423;} -do{ -qbs_set(__STRING_VARNAME,qbs_add(__STRING_VARNAME,FUNC_TYPE2SYMBOL(__STRING_TYP))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11817);}while(r); -} -S_14426:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(11818);if(r)goto S_14426;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(11818);}while(r); -} -S_14429:; -if (( 0 )||new_error){ -if(qbevent){evnt(11820);if(r)goto S_14429;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1693; -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 (new_error) goto skip1693; -skip1693: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11820);}while(r); -} -do{ -*__LONG_TRY=FUNC_FINDID(__STRING_VARNAME); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11822);}while(r); -S_14433:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(11823);if(r)goto S_14433;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(11823);}while(r); -} -S_14436:; -while((*__LONG_TRY)||new_error){ -if(qbevent){evnt(11824);if(r)goto S_14436;} -S_14437:; -if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ -if(qbevent){evnt(11825);if(r)goto S_14437;} -do{ -goto LABEL_FOUNDCOMMONARRAY2; -if(!qbevent)break;evnt(11825);}while(r); -} -S_14440:; -if ((-(*__LONG_TRY== 2 ))||new_error){ -if(qbevent){evnt(11826);if(r)goto S_14440;} -do{ -*__INTEGER_FINDANOTHERID= 1 ; -if(!qbevent)break;evnt(11826);}while(r); -do{ -*__LONG_TRY=FUNC_FINDID(__STRING_VARNAME); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11826);}while(r); -}else{ -do{ -*__LONG_TRY= 0 ; -if(!qbevent)break;evnt(11826);}while(r); -} -S_14446:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(11827);if(r)goto S_14446;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(11827);}while(r); -} -dl_continue_1694:; -} -dl_exit_1694:; -LABEL_FOUNDCOMMONARRAY2:; -if(qbevent){evnt(11829);r=0;} -S_14450:; -if (( 0 )||new_error){ -if(qbevent){evnt(11831);if(r)goto S_14450;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1695; -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 (new_error) goto skip1695; -skip1695: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11831);}while(r); -} -S_14453:; -if ((-(*(int16*)(((char*)__UDT_ID)+(516))== -1 ))||new_error){ -if(qbevent){evnt(11833);if(r)goto S_14453;} -S_14454:; -if ((-(((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_CURRENTID)-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])]!= 0 ))||new_error){ -if(qbevent){evnt(11834);if(r)goto S_14454;} -do{ -*__INTEGER_RECOMPILE= 1 ; -if(!qbevent)break;evnt(11834);}while(r); -} -S_14457:; -if (( 0 )||new_error){ -if(qbevent){evnt(11835);if(r)goto S_14457;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1696; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("Recompiling to resolve elements of:",35),__STRING_VARNAME), 0, 0, 1); -if (new_error) goto skip1696; -skip1696: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11835);}while(r); -} -} -fornext_continue_1691:; -} -fornext_exit_1691:; -S_14462:; -if (( 0 )||new_error){ -if(qbevent){evnt(11838);if(r)goto S_14462;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1697; -sub_file_print(tmp_fileno,qbs_new_txt_len("Finished COMMON array list check!",33), 0, 0, 1); -if (new_error) goto skip1697; -skip1697: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11838);}while(r); -} -S_14465:; -if ((-(*__LONG_VWATCHDESIREDSTATE!=*__LONG_VWATCHON))||new_error){ -if(qbevent){evnt(11840);if(r)goto S_14465;} -do{ -*__LONG_VWATCHRECOMPILEATTEMPTS=*__LONG_VWATCHRECOMPILEATTEMPTS+ 1 ; -if(!qbevent)break;evnt(11841);}while(r); -do{ -*__INTEGER_RECOMPILE= 1 ; -if(!qbevent)break;evnt(11842);}while(r); -} -S_14469:; -if ((*__INTEGER_RECOMPILE)||new_error){ -if(qbevent){evnt(11845);if(r)goto S_14469;} -LABEL_DO_RECOMPILE:; -if(qbevent){evnt(11846);r=0;} -S_14470:; -if (( 0 )||new_error){ -if(qbevent){evnt(11847);if(r)goto S_14470;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1698; -sub_file_print(tmp_fileno,qbs_new_txt_len("Recompile required!",19), 0, 0, 1); -if (new_error) goto skip1698; -skip1698: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11847);}while(r); -} -do{ -*__INTEGER_RECOMPILE= 0 ; -if(!qbevent)break;evnt(11848);}while(r); -S_14474:; -if ((*__LONG_IDEMODE)||new_error){ -if(qbevent){evnt(11849);if(r)goto S_14474;} -do{ -*__LONG_IDERECOMPILE= 1 ; -if(!qbevent)break;evnt(11849);}while(r); -} -S_14477:; -fornext_value1700= 1 ; -fornext_finalvalue1700= 255 ; -fornext_step1700= 1 ; -if (fornext_step1700<0) fornext_step_negative1700=1; else fornext_step_negative1700=0; -if (new_error) goto fornext_error1700; -goto fornext_entrylabel1700; -while(1){ -fornext_value1700=fornext_step1700+(*__LONG_CLOSEALL); -fornext_entrylabel1700: -*__LONG_CLOSEALL=fornext_value1700; -if (fornext_step_negative1700){ -if (fornext_value1700fornext_finalvalue1700) break; -} -fornext_error1700:; -if(qbevent){evnt(11850);if(r)goto S_14477;} -do{ -sub_close(*__LONG_CLOSEALL,1); -if(!qbevent)break;evnt(11850);}while(r); -fornext_continue_1699:; -} -fornext_exit_1699:; -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(11851);}while(r); -do{ -goto LABEL_RECOMPILE; -if(!qbevent)break;evnt(11852);}while(r); -} -S_14483:; -if (( 0 )||new_error){ -if(qbevent){evnt(11855);if(r)goto S_14483;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1701; -sub_file_print(tmp_fileno,qbs_new_txt_len("Beginning label check...",24), 0, 0, 1); -if (new_error) goto skip1701; -skip1701: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11855);}while(r); -} -S_14486:; -fornext_value1703= 1 ; -fornext_finalvalue1703=*__LONG_NLABELS; -fornext_step1703= 1 ; -if (fornext_step1703<0) fornext_step_negative1703=1; else fornext_step_negative1703=0; -if (new_error) goto fornext_error1703; -goto fornext_entrylabel1703; -while(1){ -fornext_value1703=fornext_step1703+(*__LONG_R); -fornext_entrylabel1703: -*__LONG_R=fornext_value1703; -if (fornext_step_negative1703){ -if (fornext_value1703fornext_finalvalue1703) break; -} -fornext_error1703:; -if(qbevent){evnt(11856);if(r)goto S_14486;} -S_14487:; -if ((*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+274)))||new_error){ -if(qbevent){evnt(11858);if(r)goto S_14487;} -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(11859);}while(r); -do{ -*__LONG_IGNORE=FUNC_VALIDLABEL(__STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11860);}while(r); -do{ -*__LONG_V=FUNC_HASHFIND(__STRING_A,&(pass1704= 2 ),__LONG_IGNORE,__LONG_R2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11861);}while(r); -LABEL_ADDLABCHK7:; -if(qbevent){evnt(11862);r=0;} -S_14491:; -if ((*__LONG_V)||new_error){ -if(qbevent){evnt(11863);if(r)goto S_14491;} -S_14492:; -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))))||new_error){ -if(qbevent){evnt(11864);if(r)goto S_14492;} -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(11865);}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(11865);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(11865);}while(r); -} -S_14497:; -if ((-(*__LONG_V== 2 ))||new_error){ -if(qbevent){evnt(11867);if(r)goto S_14497;} -do{ -*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R2); -if(!qbevent)break;evnt(11867);}while(r); -do{ -goto LABEL_ADDLABCHK7; -if(!qbevent)break;evnt(11867);}while(r); -} -} -} -S_14503:; -if ((-(*(uint8*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282))== 0 ))||new_error){ -if(qbevent){evnt(11872);if(r)goto S_14503;} -S_14504:; -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)))||new_error){ -if(qbevent){evnt(11874);if(r)goto S_14504;} -S_14505:; -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 )))||new_error){ -if(qbevent){evnt(11875);if(r)goto S_14505;} -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(11876);}while(r); -S_14507:; -if (( 0 )||new_error){ -if(qbevent){evnt(11877);if(r)goto S_14507;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1705; -sub_file_print(tmp_fileno,qbs_new_txt_len("Recompiling to resolve label:",29), 0, 0, 0); -if (new_error) goto skip1705; -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 (new_error) goto skip1705; -skip1705: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11877);}while(r); -} -do{ -goto LABEL_DO_RECOMPILE; -if(!qbevent)break;evnt(11878);}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(11882);}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(11882);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(11882);}while(r); -} -S_14517:; -if ((*(uint8*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+269)))||new_error){ -if(qbevent){evnt(11886);if(r)goto S_14517;} -do{ -*__LONG_X= 0 ; -if(!qbevent)break;evnt(11889);}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(11890);}while(r); -do{ -*__LONG_IGNORE=FUNC_VALIDLABEL(__STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11891);}while(r); -do{ -*__LONG_V=FUNC_HASHFIND(__STRING_A,&(pass1706= 2 ),__LONG_IGNORE,__LONG_R2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11892);}while(r); -LABEL_ADDLABCHK4:; -if(qbevent){evnt(11893);r=0;} -S_14522:; -if ((*__LONG_V)||new_error){ -if(qbevent){evnt(11894);if(r)goto S_14522;} -do{ -*__LONG_X=*__LONG_X+ 1 ; -if(!qbevent)break;evnt(11895);}while(r); -S_14524:; -if ((-(*__LONG_V== 2 ))||new_error){ -if(qbevent){evnt(11896);if(r)goto S_14524;} -do{ -*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R2); -if(!qbevent)break;evnt(11896);}while(r); -do{ -goto LABEL_ADDLABCHK4; -if(!qbevent)break;evnt(11896);}while(r); -} -} -S_14529:; -if ((-(*__LONG_X!= 1 ))||new_error){ -if(qbevent){evnt(11898);if(r)goto S_14529;} -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(11898);}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(11898);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(11898);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass1707=*__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)),FUNC_STR2(&(pass1708=*(int64*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+261))))),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11901);}while(r); -} -fornext_continue_1702:; -} -fornext_exit_1702:; -S_14537:; -if (( 0 )||new_error){ -if(qbevent){evnt(11906);if(r)goto S_14537;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1709; -sub_file_print(tmp_fileno,qbs_new_txt_len("Finished check!",15), 0, 0, 1); -if (new_error) goto skip1709; -skip1709: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(11906);}while(r); -} -do{ -qbs_set(__STRING_SUBFUNC,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11916);}while(r); -do{ -*__INTEGER_DEFDATAHANDLE=*__LONG_GLOBTXTBUF; -if(!qbevent)break;evnt(11917);}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(11918);}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(11919);}while(r); -S_14544:; -if ((*__LONG_CONSOLE)||new_error){ -if(qbevent){evnt(11921);if(r)goto S_14544;} -do{ -SUB_WRITEBUFLINE(&(pass1710=*__LONG_GLOBTXTBUF),qbs_new_txt_len("int32 console=1;",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11922);}while(r); -}else{ -do{ -SUB_WRITEBUFLINE(&(pass1711=*__LONG_GLOBTXTBUF),qbs_new_txt_len("int32 console=0;",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11924);}while(r); -} -S_14549:; -if ((*__LONG_SCREENHIDE)||new_error){ -if(qbevent){evnt(11927);if(r)goto S_14549;} -do{ -SUB_WRITEBUFLINE(&(pass1712=*__LONG_GLOBTXTBUF),qbs_new_txt_len("int32 screen_hide_startup=1;",28)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11928);}while(r); -}else{ -do{ -SUB_WRITEBUFLINE(&(pass1713=*__LONG_GLOBTXTBUF),qbs_new_txt_len("int32 screen_hide_startup=0;",28)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11930);}while(r); -} -S_14554:; -if ((*__LONG_ASSERTS)||new_error){ -if(qbevent){evnt(11933);if(r)goto S_14554;} -do{ -SUB_WRITEBUFLINE(&(pass1714=*__LONG_GLOBTXTBUF),qbs_new_txt_len("int32 asserts=1;",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11934);}while(r); -}else{ -do{ -SUB_WRITEBUFLINE(&(pass1715=*__LONG_GLOBTXTBUF),qbs_new_txt_len("int32 asserts=0;",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11936);}while(r); -} -S_14559:; -if ((*__LONG_VWATCHON)||new_error){ -if(qbevent){evnt(11939);if(r)goto S_14559;} -do{ -SUB_WRITEBUFLINE(&(pass1716=*__LONG_GLOBTXTBUF),qbs_new_txt_len("int32 vwatch=-1;",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11940);}while(r); -}else{ -do{ -SUB_WRITEBUFLINE(&(pass1717=*__LONG_GLOBTXTBUF),qbs_new_txt_len("int32 vwatch=0;",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11942);}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(11945);}while(r); -S_14565:; -if ((*__LONG_RESIZE)||new_error){ -if(qbevent){evnt(11946);if(r)goto S_14565;} -do{ -SUB_WRITEBUFLINE(&(pass1718=*__LONG_BH),qbs_new_txt_len("ScreenResize=1;",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11947);}while(r); -} -S_14568:; -if ((*__LONG_RESIZE_SCALE)||new_error){ -if(qbevent){evnt(11949);if(r)goto S_14568;} -do{ -SUB_WRITEBUFLINE(&(pass1719=*__LONG_BH),qbs_add(qbs_add(qbs_new_txt_len("ScreenResizeScale=",18),FUNC_STR2(__LONG_RESIZE_SCALE)),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11950);}while(r); -} -S_14571:; -if ((-(*__LONG_VWATCHON== 1 ))||new_error){ -if(qbevent){evnt(11953);if(r)goto S_14571;} -do{ -SUB_VWATCHVARIABLE(qbs_new_txt_len("",0),&(pass1720= 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11954);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass1721=*__LONG_GLOBTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("ptrszint data_size=",19),FUNC_STR2(__LONG_DATAOFFSET)),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11959);}while(r); -S_14575:; -if ((-(*__LONG_DATAOFFSET== 0 ))||new_error){ -if(qbevent){evnt(11960);if(r)goto S_14575;} -do{ -SUB_WRITEBUFLINE(&(pass1722=*__LONG_GLOBTXTBUF),qbs_new_txt_len("uint8 *data=(uint8*)calloc(1,1);",32)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11962);}while(r); -}else{ -S_14578:; -if ((-(*__LONG_INLINE_DATA== 0 ))||new_error){ -if(qbevent){evnt(11966);if(r)goto S_14578;} -S_14579:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ -if(qbevent){evnt(11967);if(r)goto S_14579;} -S_14580:; -if ((-(*__LONG_OS_BITS== 32 ))||new_error){ -if(qbevent){evnt(11968);if(r)goto S_14580;} -do{ -qbs_set(__STRING_X,func_chr( 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11969);}while(r); -do{ -SUB_WRITEBUFRAWDATA(&(pass1723=*__LONG_DATABINBUF),__STRING_X); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11969);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1724=*__LONG_GLOBTXTBUF),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))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11970);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1725=*__LONG_GLOBTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("extern char *binary_internal_temp",33),__STRING_TEMPFOLDERINDEXSTR2),qbs_new_txt_len("_data_bin_start;",16))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11971);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1726=*__LONG_GLOBTXTBUF),qbs_new_txt_len("}",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11972);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1727=*__LONG_GLOBTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("uint8 *data=(uint8*)&binary_internal_temp",41),__STRING_TEMPFOLDERINDEXSTR2),qbs_new_txt_len("_data_bin_start;",16))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11973);}while(r); -}else{ -do{ -qbs_set(__STRING_X,func_chr( 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11975);}while(r); -do{ -SUB_WRITEBUFRAWDATA(&(pass1728=*__LONG_DATABINBUF),__STRING_X); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11975);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1729=*__LONG_GLOBTXTBUF),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))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11976);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1730=*__LONG_GLOBTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("extern char *_binary_internal_temp",34),__STRING_TEMPFOLDERINDEXSTR2),qbs_new_txt_len("_data_bin_start;",16))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11977);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1731=*__LONG_GLOBTXTBUF),qbs_new_txt_len("}",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11978);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1732=*__LONG_GLOBTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("uint8 *data=(uint8*)&_binary_internal_temp",42),__STRING_TEMPFOLDERINDEXSTR2),qbs_new_txt_len("_data_bin_start;",16))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11979);}while(r); -} -} -S_14596:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ -if(qbevent){evnt(11982);if(r)goto S_14596;} -do{ -qbs_set(__STRING_X,func_chr( 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11983);}while(r); -do{ -SUB_WRITEBUFRAWDATA(&(pass1733=*__LONG_DATABINBUF),__STRING_X); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11983);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1734=*__LONG_GLOBTXTBUF),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))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11984);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1735=*__LONG_GLOBTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("extern char *_binary_internal_temp",34),__STRING_TEMPFOLDERINDEXSTR2),qbs_new_txt_len("_data_bin_start;",16))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11985);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1736=*__LONG_GLOBTXTBUF),qbs_new_txt_len("}",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11986);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1737=*__LONG_GLOBTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("uint8 *data=(uint8*)&_binary_internal_temp",42),__STRING_TEMPFOLDERINDEXSTR2),qbs_new_txt_len("_data_bin_start;",16))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11987);}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(11991);}while(r); -do{ -qbs_set(__STRING_X,FUNC_READBUFRAWDATA(&(pass1738=*__LONG_FF),&(pass1740=FUNC_GETBUFLEN(&(pass1739=*__LONG_FF))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11992);}while(r); -do{ -qbs_set(__STRING_X2,qbs_new_txt_len("uint8 inline_data[]={",21)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11993);}while(r); -S_14608:; -fornext_value1742= 1 ; -fornext_finalvalue1742=__STRING_X->len; -fornext_step1742= 1 ; -if (fornext_step1742<0) fornext_step_negative1742=1; else fornext_step_negative1742=0; -if (new_error) goto fornext_error1742; -goto fornext_entrylabel1742; -while(1){ -fornext_value1742=fornext_step1742+(*__LONG_I); -fornext_entrylabel1742: -*__LONG_I=fornext_value1742; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative1742){ -if (fornext_value1742fornext_finalvalue1742) break; -} -fornext_error1742:; -if(qbevent){evnt(11994);if(r)goto S_14608;} -do{ -qbs_set(__STRING_X2,qbs_add(__STRING_X2,((qbs*)(((uint64*)(__ARRAY_STRING_INLINEDATASTR[0]))[array_check((qbs_asc(__STRING_X,*__LONG_I))-__ARRAY_STRING_INLINEDATASTR[4],__ARRAY_STRING_INLINEDATASTR[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11995);}while(r); -fornext_continue_1741:; -} -fornext_exit_1741:; -do{ -qbs_set(__STRING_X2,qbs_add(__STRING_X2,qbs_new_txt_len("0};",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11997);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1744=*__LONG_GLOBTXTBUF),__STRING_X2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11998);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1745=*__LONG_GLOBTXTBUF),qbs_new_txt_len("uint8 *data=&inline_data[0];",28)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(11999);}while(r); -do{ -qbs_set(__STRING_X,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12000);}while(r); -do{ -qbs_set(__STRING_X2,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12000);}while(r); -} -} -S_14618:; -if (( 0 )||new_error){ -if(qbevent){evnt(12004);if(r)goto S_14618;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1746; -sub_file_print(tmp_fileno,qbs_new_txt_len("Beginning generation of code for saving/sharing common array data...",68), 0, 0, 1); -if (new_error) goto skip1746; -skip1746: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12004);}while(r); -} -do{ -*__LONG_USE_GLOBAL_BYTE_ELEMENTS= 1 ; -if(!qbevent)break;evnt(12005);}while(r); -do{ -*__LONG_NCOMMONTMP= 0 ; -if(!qbevent)break;evnt(12006);}while(r); -do{ -*__LONG_XI= 1 ; -if(!qbevent)break;evnt(12007);}while(r); -S_14624:; -fornext_value1748= 1 ; -fornext_finalvalue1748=*__LONG_COMMONARRAYLISTN; -fornext_step1748= 1 ; -if (fornext_step1748<0) fornext_step_negative1748=1; else fornext_step_negative1748=0; -if (new_error) goto fornext_error1748; -goto fornext_entrylabel1748; -while(1){ -fornext_value1748=fornext_step1748+(*__LONG_X); -fornext_entrylabel1748: -*__LONG_X=fornext_value1748; -if (fornext_step_negative1748){ -if (fornext_value1748fornext_finalvalue1748) break; -} -fornext_error1748:; -if(qbevent){evnt(12008);if(r)goto S_14624;} -do{ -qbs_set(__STRING_VARNAME,FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12009);}while(r); -do{ -*__LONG_XI=*__LONG_XI+ 1 ; -if(!qbevent)break;evnt(12009);}while(r); -do{ -qbs_set(__STRING_TYP,FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12010);}while(r); -do{ -*__LONG_XI=*__LONG_XI+ 1 ; -if(!qbevent)break;evnt(12010);}while(r); -do{ -*__LONG_DIMMETHOD2=qbr(func_val(FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12011);}while(r); -do{ -*__LONG_XI=*__LONG_XI+ 1 ; -if(!qbevent)break;evnt(12011);}while(r); -do{ -*__LONG_DIMSHARED2=qbr(func_val(FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12012);}while(r); -do{ -*__LONG_XI=*__LONG_XI+ 1 ; -if(!qbevent)break;evnt(12012);}while(r); -do{ -qbs_set(__STRING_PUREVARNAME,__STRING_VARNAME); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12015);}while(r); -do{ -*__LONG_T=FUNC_TYPNAME2TYP(__STRING_TYP); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12016);}while(r); -S_14635:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(12017);if(r)goto S_14635;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(12017);}while(r); -} -S_14638:; -if ((-((*__LONG_T&*__LONG_ISUDT)== 0 ))||new_error){ -if(qbevent){evnt(12018);if(r)goto S_14638;} -do{ -qbs_set(__STRING_VARNAME,qbs_add(__STRING_VARNAME,FUNC_TYPE2SYMBOL(__STRING_TYP))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12018);}while(r); -} -S_14641:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(12019);if(r)goto S_14641;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(12019);}while(r); -} -do{ -*__LONG_TRY=FUNC_FINDID(__STRING_VARNAME); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12020);}while(r); -S_14645:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(12021);if(r)goto S_14645;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(12021);}while(r); -} -S_14648:; -while((*__LONG_TRY)||new_error){ -if(qbevent){evnt(12022);if(r)goto S_14648;} -S_14649:; -if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ -if(qbevent){evnt(12023);if(r)goto S_14649;} -do{ -goto LABEL_FOUNDCOMMONARRAY; -if(!qbevent)break;evnt(12023);}while(r); -} -S_14652:; -if ((-(*__LONG_TRY== 2 ))||new_error){ -if(qbevent){evnt(12024);if(r)goto S_14652;} -do{ -*__INTEGER_FINDANOTHERID= 1 ; -if(!qbevent)break;evnt(12024);}while(r); -do{ -*__LONG_TRY=FUNC_FINDID(__STRING_VARNAME); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12024);}while(r); -}else{ -do{ -*__LONG_TRY= 0 ; -if(!qbevent)break;evnt(12024);}while(r); -} -S_14658:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(12025);if(r)goto S_14658;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(12025);}while(r); -} -dl_continue_1749:; -} -dl_exit_1749:; -do{ -qbs_set(__STRING_A,qbs_new_txt_len("COMMON array unlocatable",24)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12027);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(12027);}while(r); -LABEL_FOUNDCOMMONARRAY:; -if(qbevent){evnt(12028);r=0;} -S_14664:; -if (( 0 )||new_error){ -if(qbevent){evnt(12029);if(r)goto S_14664;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1750; -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 (new_error) goto skip1750; -skip1750: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12029);}while(r); -} -do{ -*__LONG_I=*__LONG_CURRENTID; -if(!qbevent)break;evnt(12031);}while(r); -do{ -*__LONG_ARRAYTYPE=*(int32*)(((char*)__UDT_ID)+(512)); -if(!qbevent)break;evnt(12032);}while(r); -do{ -*__LONG_ARRAYELEMENTS=*(int16*)(((char*)__UDT_ID)+(516)); -if(!qbevent)break;evnt(12033);}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(12034);}while(r); -S_14671:; -if ((-((*__LONG_T&*__LONG_ISUDT)== 0 ))||new_error){ -if(qbevent){evnt(12035);if(r)goto S_14671;} -do{ -qbs_set(__STRING_E,qbs_add(__STRING_E,FUNC_TYPEVALUE2SYMBOL(__LONG_T))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12035);}while(r); -} -S_14674:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(12036);if(r)goto S_14674;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(12036);}while(r); -} -do{ -qbs_set(__STRING_N,__STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12037);}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(12038);}while(r); -do{ -*__LONG_TSIZE=*(int32*)(((char*)__UDT_ID)+(540)); -if(!qbevent)break;evnt(12039);}while(r); -do{ -*__LONG_COMMAND= 3 ; -if(!qbevent)break;evnt(12042);}while(r); -S_14681:; -if ((*__LONG_T&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(12043);if(r)goto S_14681;} -S_14682:; -if ((-((*__LONG_T&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ -if(qbevent){evnt(12044);if(r)goto S_14682;} -do{ -*__LONG_COMMAND= 4 ; -if(!qbevent)break;evnt(12045);}while(r); -} -} -S_14686:; -if ((-(*__LONG_ARRAYELEMENTS== -1 ))||new_error){ -if(qbevent){evnt(12057);if(r)goto S_14686;} -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)),FUNC_STR2(__LONG_I)),qbs_new_txt_len(".txt",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12063);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1751=*__LONG_MAINTXTBUF),qbs_new_txt_len("if (int32val==2){",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12064);}while(r); -do{ -qbs_set(__STRING_X,FUNC_STR2(&(pass1752=FUNC_UNIQUENUMBER()))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12066);}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(12067);}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(12068);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1753=*__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(12069);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1754=*__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(12070);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1755=*__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(12072);}while(r); -S_14695:; -if ((-(*__LONG_COMMAND== 3 ))||new_error){ -if(qbevent){evnt(12074);if(r)goto S_14695;} -do{ -SUB_WRITEBUFLINE(&(pass1756=*__LONG_MAINTXTBUF),qbs_new_txt_len("if (int32val==3){",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12074);}while(r); -} -S_14698:; -if ((-(*__LONG_COMMAND== 4 ))||new_error){ -if(qbevent){evnt(12075);if(r)goto S_14698;} -do{ -SUB_WRITEBUFLINE(&(pass1757=*__LONG_MAINTXTBUF),qbs_new_txt_len("if (int32val==4){",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12075);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass1758=*__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(12076);}while(r); -S_14702:; -if ((-(*__LONG_COMMAND== 3 ))||new_error){ -if(qbevent){evnt(12078);if(r)goto S_14702;} -do{ -SUB_WRITEBUFLINE(&(pass1759=*__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(12080);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1760=*__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(12081);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1761=*__LONG_MAINTXTBUF),qbs_new_txt_len("bytes=int64val>>3;",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12082);}while(r); -} -S_14707:; -if ((-(*__LONG_COMMAND== 4 ))||new_error){ -if(qbevent){evnt(12085);if(r)goto S_14707;} -do{ -SUB_WRITEBUFLINE(&(pass1762=*__LONG_MAINTXTBUF),qbs_new_txt_len("bytes=1;",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12085);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass1763=*__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(12088);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1764=*__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(12089);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1765=*__LONG_MAINTXTBUF),qbs_new_txt_len("while(int32val--){",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12092);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1766=*__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(12093);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1767=*__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(12094);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1768=*__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(12095);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1769=*__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(12096);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1770=*__LONG_MAINTXTBUF),qbs_new_txt_len("bytes*=(int64val2-int64val+1);",30)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12097);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1771=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12098);}while(r); -S_14719:; -if ((-(*__LONG_COMMAND== 3 ))||new_error){ -if(qbevent){evnt(12100);if(r)goto S_14719;} -do{ -SUB_WRITEBUFLINE(&(pass1772=*__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(12102);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1773=*__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(12103);}while(r); -} -S_14723:; -if ((-(*__LONG_COMMAND== 4 ))||new_error){ -if(qbevent){evnt(12106);if(r)goto S_14723;} -do{ -SUB_WRITEBUFLINE(&(pass1774=*__LONG_MAINTXTBUF),qbs_new_txt_len("bytei=0;",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12107);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1775=*__LONG_MAINTXTBUF),qbs_new_txt_len("while(bytei>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(12111);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1779=*__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(12112);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1780=*__LONG_MAINTXTBUF),qbs_new_txt_len("bytei++;",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12113);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1781=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12114);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass1782=*__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(12118);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1783=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12119);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1784=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12121);}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)),FUNC_STR2(__LONG_I)),qbs_new_txt_len(".txt",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12126);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1785=*__LONG_MAINTXTBUF),qbs_new_txt_len("int32val=2;",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12127);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1786=*__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(12128);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1787=*__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(12130);}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)),FUNC_STR2(__LONG_I)),qbs_new_txt_len(".txt",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12140);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1788=*__LONG_MAINTXTBUF),qbs_new_txt_len("if (int32val==2){",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12142);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1789=*__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(12143);}while(r); -S_14744:; -if ((-(*__LONG_COMMAND== 3 ))||new_error){ -if(qbevent){evnt(12145);if(r)goto S_14744;} -do{ -SUB_WRITEBUFLINE(&(pass1790=*__LONG_MAINTXTBUF),qbs_new_txt_len("if (int32val==3){",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12145);}while(r); -} -S_14747:; -if ((-(*__LONG_COMMAND== 4 ))||new_error){ -if(qbevent){evnt(12146);if(r)goto S_14747;} -do{ -SUB_WRITEBUFLINE(&(pass1791=*__LONG_MAINTXTBUF),qbs_new_txt_len("if (int32val==4){",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12146);}while(r); -} -S_14750:; -if ((-(*__LONG_COMMAND== 3 ))||new_error){ -if(qbevent){evnt(12148);if(r)goto S_14750;} -do{ -SUB_WRITEBUFLINE(&(pass1792=*__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(12150);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass1793=*__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(12155);}while(r); -do{ -qbs_set(__STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12158);}while(r); -S_14755:; -if ((-(*__LONG_COMMAND== 4 ))||new_error){ -if(qbevent){evnt(12159);if(r)goto S_14755;} -do{ -SUB_WRITEBUFLINE(&(pass1794=*__LONG_MAINTXTBUF),qbs_new_txt_len("bytes=1;",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12159);}while(r); -} -S_14758:; -fornext_value1796= 1 ; -fornext_finalvalue1796=*__LONG_ARRAYELEMENTS; -fornext_step1796= 1 ; -if (fornext_step1796<0) fornext_step_negative1796=1; else fornext_step_negative1796=0; -if (new_error) goto fornext_error1796; -goto fornext_entrylabel1796; -while(1){ -fornext_value1796=fornext_step1796+(*__LONG_X2); -fornext_entrylabel1796: -*__LONG_X2=fornext_value1796; -if (fornext_step_negative1796){ -if (fornext_value1796fornext_finalvalue1796) break; -} -fornext_error1796:; -if(qbevent){evnt(12160);if(r)goto S_14758;} -S_14759:; -if ((-(*__LONG_X2>*__LONG_NCOMMONTMP))||new_error){ -if(qbevent){evnt(12163);if(r)goto S_14759;} -do{ -*__LONG_NCOMMONTMP=*__LONG_NCOMMONTMP+ 1 ; -if(!qbevent)break;evnt(12164);}while(r); -S_14761:; -if (( 0 )||new_error){ -if(qbevent){evnt(12166);if(r)goto S_14761;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1797; -sub_file_print(tmp_fileno,qbs_new_txt_len("Calling DIM2(...)...",20), 0, 0, 1); -if (new_error) goto skip1797; -skip1797: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12166);}while(r); -} -S_14764:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(12167);if(r)goto S_14764;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(12167);}while(r); -} -do{ -*__LONG_RETVAL=FUNC_DIM2(qbs_add(qbs_new_txt_len("___RESERVED_COMMON_LBOUND",25),FUNC_STR2(__LONG_NCOMMONTMP)),qbs_new_txt_len("_INTEGER64",10),&(pass1798= 0 ),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12168);}while(r); -S_14768:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(12169);if(r)goto S_14768;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(12169);}while(r); -} -do{ -*__LONG_RETVAL=FUNC_DIM2(qbs_add(qbs_new_txt_len("___RESERVED_COMMON_UBOUND",25),FUNC_STR2(__LONG_NCOMMONTMP)),qbs_new_txt_len("_INTEGER64",10),&(pass1799= 0 ),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12170);}while(r); -S_14772:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(12171);if(r)goto S_14772;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(12171);}while(r); -} -S_14775:; -if (( 0 )||new_error){ -if(qbevent){evnt(12172);if(r)goto S_14775;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1800; -sub_file_print(tmp_fileno,qbs_new_txt_len("Finished calling DIM2(...)!",27), 0, 0, 1); -if (new_error) goto skip1800; -skip1800: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12172);}while(r); -} -S_14778:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(12173);if(r)goto S_14778;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(12173);}while(r); -} -} -do{ -SUB_WRITEBUFLINE(&(pass1801=*__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(12178);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1802=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("*__INTEGER64____RESERVED_COMMON_LBOUND",38),FUNC_STR2(__LONG_X2)),qbs_new_txt_len("=int64val;",10))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12179);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1803=*__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(12180);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1804=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("*__INTEGER64____RESERVED_COMMON_UBOUND",38),FUNC_STR2(__LONG_X2)),qbs_new_txt_len("=int64val2;",11))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12181);}while(r); -S_14786:; -if ((-(*__LONG_COMMAND== 4 ))||new_error){ -if(qbevent){evnt(12182);if(r)goto S_14786;} -do{ -SUB_WRITEBUFLINE(&(pass1805=*__LONG_MAINTXTBUF),qbs_new_txt_len("bytes*=(int64val2-int64val+1);",30)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12182);}while(r); -} -S_14789:; -if ((-(*__LONG_X2> 1 ))||new_error){ -if(qbevent){evnt(12183);if(r)goto S_14789;} -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(12183);}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)),FUNC_STR2(__LONG_X2)),__STRING1_SP),qbs_new_txt_len("TO",2)),__STRING1_SP),qbs_new_txt_len("___RESERVED_COMMON_UBOUND",25)),FUNC_STR2(__LONG_X2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12184);}while(r); -fornext_continue_1795:; -} -fornext_exit_1795:; -S_14794:; -if (( 0 )||new_error){ -if(qbevent){evnt(12187);if(r)goto S_14794;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1806; -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 (new_error) goto skip1806; -skip1806: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12187);}while(r); -} -S_14797:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(12188);if(r)goto S_14797;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(12188);}while(r); -} -do{ -*__INTEGER_REDIMOPTION= 1 ; -if(!qbevent)break;evnt(12190);}while(r); -do{ -*__LONG_RETVAL=FUNC_DIM2(__STRING_PUREVARNAME,__STRING_TYP,&(pass1807= 0 ),__STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12191);}while(r); -S_14802:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(12192);if(r)goto S_14802;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(12192);}while(r); -} -do{ -*__INTEGER_REDIMOPTION= 0 ; -if(!qbevent)break;evnt(12193);}while(r); -S_14806:; -if (( 0 )||new_error){ -if(qbevent){evnt(12194);if(r)goto S_14806;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1808; -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 (new_error) goto skip1808; -skip1808: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12194);}while(r); -} -S_14809:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(12195);if(r)goto S_14809;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(12195);}while(r); -} -S_14812:; -if ((-(*__LONG_COMMAND== 3 ))||new_error){ -if(qbevent){evnt(12197);if(r)goto S_14812;} -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(12199);}while(r); -do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(FUNC_FIXOPERATIONORDER(__STRING_VARNAME),&(pass1809= -4 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12200);}while(r); -S_14815:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(12201);if(r)goto S_14815;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(12201);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass1810=*__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(12202);}while(r); -} -S_14820:; -if ((-(*__LONG_COMMAND== 4 ))||new_error){ -if(qbevent){evnt(12205);if(r)goto S_14820;} -do{ -SUB_WRITEBUFLINE(&(pass1811=*__LONG_MAINTXTBUF),qbs_new_txt_len("bytei=0;",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12206);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1812=*__LONG_MAINTXTBUF),qbs_new_txt_len("while(bytei>3,1));",37)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12210);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1816=*__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(12211);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1817=*__LONG_MAINTXTBUF),qbs_new_txt_len("bytei++;",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12212);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1818=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12213);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass1819=*__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(12217);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1820=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12218);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1821=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12219);}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)),FUNC_STR2(__LONG_I)),qbs_new_txt_len(".txt",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12223);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1822=*__LONG_MAINTXTBUF),qbs_new_txt_len("int32val=2;",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12225);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1823=*__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(12226);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1824=*__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(12228);}while(r); -S_14837:; -if ((-(*__LONG_COMMAND== 3 ))||new_error){ -if(qbevent){evnt(12230);if(r)goto S_14837;} -do{ -SUB_WRITEBUFLINE(&(pass1825=*__LONG_MAINTXTBUF),qbs_new_txt_len("int32val=3;",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12230);}while(r); -} -S_14840:; -if ((-(*__LONG_COMMAND== 4 ))||new_error){ -if(qbevent){evnt(12231);if(r)goto S_14840;} -do{ -SUB_WRITEBUFLINE(&(pass1826=*__LONG_MAINTXTBUF),qbs_new_txt_len("int32val=4;",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12231);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass1827=*__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(12232);}while(r); -S_14844:; -if ((-(*__LONG_COMMAND== 3 ))||new_error){ -if(qbevent){evnt(12234);if(r)goto S_14844;} -do{ -*__LONG_BITS=*__LONG_T& 511 ; -if(!qbevent)break;evnt(12236);}while(r); -S_14846:; -if ((*__LONG_T&*__LONG_ISUDT)||new_error){ -if(qbevent){evnt(12237);if(r)goto S_14846;} -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(12237);}while(r); -} -S_14849:; -if ((*__LONG_T&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(12238);if(r)goto S_14849;} -do{ -*__LONG_BITS=*__LONG_TSIZE* 8 ; -if(!qbevent)break;evnt(12238);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass1828=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("int64val=",9),FUNC_STR2(__LONG_BITS)),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12239);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1829=*__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(12240);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass1830=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("int32val=",9),FUNC_STR2(__LONG_ARRAYELEMENTS)),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12243);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1831=*__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(12244);}while(r); -S_14857:; -if ((-(*__LONG_COMMAND== 3 ))||new_error){ -if(qbevent){evnt(12246);if(r)goto S_14857;} -S_14858:; -fornext_value1833= 1 ; -fornext_finalvalue1833=*__LONG_ARRAYELEMENTS; -fornext_step1833= 1 ; -if (fornext_step1833<0) fornext_step_negative1833=1; else fornext_step_negative1833=0; -if (new_error) goto fornext_error1833; -goto fornext_entrylabel1833; -while(1){ -fornext_value1833=fornext_step1833+(*__LONG_X2); -fornext_entrylabel1833: -*__LONG_X2=fornext_value1833; -if (fornext_step_negative1833){ -if (fornext_value1833fornext_finalvalue1833) break; -} -fornext_error1833:; -if(qbevent){evnt(12248);if(r)goto S_14858;} -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),FUNC_STR2(__LONG_X2)),__STRING1_SP),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12250);}while(r); -do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(FUNC_FIXOPERATIONORDER(__STRING_E),&(pass1834= 64 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12251);}while(r); -S_14861:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(12252);if(r)goto S_14861;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(12252);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass1835=*__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(12253);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1836=*__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(12254);}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),FUNC_STR2(__LONG_X2)),__STRING1_SP),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12255);}while(r); -do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(FUNC_FIXOPERATIONORDER(__STRING_E),&(pass1837= 64 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12256);}while(r); -S_14868:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(12257);if(r)goto S_14868;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(12257);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass1838=*__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(12258);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1839=*__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(12259);}while(r); -fornext_continue_1832:; -} -fornext_exit_1832:; -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))),&(pass1840= -4 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12263);}while(r); -S_14875:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(12264);if(r)goto S_14875;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(12264);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass1841=*__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(12265);}while(r); -} -S_14880:; -if ((-(*__LONG_COMMAND== 4 ))||new_error){ -if(qbevent){evnt(12269);if(r)goto S_14880;} -do{ -SUB_WRITEBUFLINE(&(pass1842=*__LONG_MAINTXTBUF),qbs_new_txt_len("bytes=1;",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12272);}while(r); -S_14882:; -fornext_value1844= 1 ; -fornext_finalvalue1844=*__LONG_ARRAYELEMENTS; -fornext_step1844= 1 ; -if (fornext_step1844<0) fornext_step_negative1844=1; else fornext_step_negative1844=0; -if (new_error) goto fornext_error1844; -goto fornext_entrylabel1844; -while(1){ -fornext_value1844=fornext_step1844+(*__LONG_X2); -fornext_entrylabel1844: -*__LONG_X2=fornext_value1844; -if (fornext_step_negative1844){ -if (fornext_value1844fornext_finalvalue1844) break; -} -fornext_error1844:; -if(qbevent){evnt(12273);if(r)goto S_14882;} -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),FUNC_STR2(__LONG_X2)),__STRING1_SP),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12274);}while(r); -do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(FUNC_FIXOPERATIONORDER(__STRING_E),&(pass1845= 64 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12275);}while(r); -S_14885:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(12276);if(r)goto S_14885;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(12276);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass1846=*__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(12277);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1847=*__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(12278);}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),FUNC_STR2(__LONG_X2)),__STRING1_SP),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12279);}while(r); -do{ -qbs_set(__STRING_E,FUNC_EVALUATETOTYP(FUNC_FIXOPERATIONORDER(__STRING_E),&(pass1848= 64 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12280);}while(r); -S_14892:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(12281);if(r)goto S_14892;} -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(12281);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass1849=*__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(12282);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1850=*__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(12283);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1851=*__LONG_MAINTXTBUF),qbs_new_txt_len("bytes*=(int64val2-int64val+1);",30)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12284);}while(r); -fornext_continue_1843:; -} -fornext_exit_1843:; -do{ -SUB_WRITEBUFLINE(&(pass1852=*__LONG_MAINTXTBUF),qbs_new_txt_len("bytei=0;",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12287);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1853=*__LONG_MAINTXTBUF),qbs_new_txt_len("while(byteilen; int64val<<=3;",33)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12290);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1856=*__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(12291);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1857=*__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(12292);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1858=*__LONG_MAINTXTBUF),qbs_new_txt_len("bytei++;",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12293);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1859=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12294);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass1860=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12298);}while(r); -} -fornext_continue_1747:; -} -fornext_exit_1747:; -do{ -*__LONG_USE_GLOBAL_BYTE_ELEMENTS= 0 ; -if(!qbevent)break;evnt(12305);}while(r); -S_14912:; -if (( 0 )||new_error){ -if(qbevent){evnt(12306);if(r)goto S_14912;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip1861; -sub_file_print(tmp_fileno,qbs_new_txt_len("Finished generation of code for saving/sharing common array data!",65), 0, 0, 1); -if (new_error) goto skip1861; -skip1861: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12306);}while(r); -} -S_14915:; -fornext_value1863= 1 ; -fornext_finalvalue1863= 255 ; -fornext_step1863= 1 ; -if (fornext_step1863<0) fornext_step_negative1863=1; else fornext_step_negative1863=0; -if (new_error) goto fornext_error1863; -goto fornext_entrylabel1863; -while(1){ -fornext_value1863=fornext_step1863+(*__LONG_CLOSEALL); -fornext_entrylabel1863: -*__LONG_CLOSEALL=fornext_value1863; -if (fornext_step_negative1863){ -if (fornext_value1863fornext_finalvalue1863) break; -} -fornext_error1863:; -if(qbevent){evnt(12309);if(r)goto S_14915;} -do{ -sub_close(*__LONG_CLOSEALL,1); -if(!qbevent)break;evnt(12309);}while(r); -fornext_continue_1862:; -} -fornext_exit_1862:; -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(12310);}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(12312);}while(r); -do{ -sub_open(__STRING_COMPILELOG, 4 ,NULL,NULL, 1 ,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12314);}while(r); -do{ -sub_close( 1 ,1); -if(!qbevent)break;evnt(12314);}while(r); -S_14922:; -if (((-(*__LONG_IDEMODE== 0 ))&(~(*__BYTE_QUIETMODE)))||new_error){ -if(qbevent){evnt(12316);if(r)goto S_14922;} -S_14923:; -if ((*__LONG_CONSOLEMODE)||new_error){ -if(qbevent){evnt(12317);if(r)goto S_14923;} -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 (new_error) goto skip1864; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip1864: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12318);}while(r); -}else{ -do{ -qbg_sub_locate(NULL, 1 ,NULL,NULL,NULL,2); -if(!qbevent)break;evnt(12320);}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 (new_error) goto skip1865; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip1865: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12321);}while(r); -} -} -S_14930:; -if ((~(*__BYTE_IGNOREWARNINGS))||new_error){ -if(qbevent){evnt(12325);if(r)goto S_14930;} -do{ -*__LONG_TOTALUNUSEDVARIABLES= 0 ; -if(!qbevent)break;evnt(12326);}while(r); -S_14932:; -fornext_value1867= 1 ; -fornext_finalvalue1867=*__LONG_TOTALVARIABLESCREATED; -fornext_step1867= 1 ; -if (fornext_step1867<0) fornext_step_negative1867=1; else fornext_step_negative1867=0; -if (new_error) goto fornext_error1867; -goto fornext_entrylabel1867; -while(1){ -fornext_value1867=fornext_step1867+(*__LONG_I); -fornext_entrylabel1867: -*__LONG_I=fornext_value1867; -if (fornext_step_negative1867){ -if (fornext_value1867fornext_finalvalue1867) break; -} -fornext_error1867:; -if(qbevent){evnt(12327);if(r)goto S_14932;} -S_14933:; -if ((-(*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*__LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+28))== 0 ))||new_error){ -if(qbevent){evnt(12328);if(r)goto S_14933;} -do{ -*__LONG_TOTALUNUSEDVARIABLES=*__LONG_TOTALUNUSEDVARIABLES+ 1 ; -if(!qbevent)break;evnt(12329);}while(r); -} -fornext_continue_1866:; -} -fornext_exit_1866:; -S_14937:; -if ((-(*__LONG_TOTALUNUSEDVARIABLES> 0 ))||new_error){ -if(qbevent){evnt(12333);if(r)goto S_14937;} -do{ -*__LONG_MAXVARNAMELEN= 0 ; -if(!qbevent)break;evnt(12334);}while(r); -S_14939:; -fornext_value1869= 1 ; -fornext_finalvalue1869=*__LONG_TOTALVARIABLESCREATED; -fornext_step1869= 1 ; -if (fornext_step1869<0) fornext_step_negative1869=1; else fornext_step_negative1869=0; -if (new_error) goto fornext_error1869; -goto fornext_entrylabel1869; -while(1){ -fornext_value1869=fornext_step1869+(*__LONG_I); -fornext_entrylabel1869: -*__LONG_I=fornext_value1869; -if (fornext_step_negative1869){ -if (fornext_value1869fornext_finalvalue1869) break; -} -fornext_error1869:; -if(qbevent){evnt(12335);if(r)goto S_14939;} -S_14940:; -if ((-(*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*__LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+28))== 0 ))||new_error){ -if(qbevent){evnt(12336);if(r)goto S_14940;} -S_14941:; -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)))||new_error){ -if(qbevent){evnt(12337);if(r)goto S_14941;} -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(12337);}while(r); -} -} -fornext_continue_1868:; -} -fornext_exit_1868:; -do{ -qbs_set(__STRING_HEADER,qbs_new_txt_len("unused variable",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12341);}while(r); -S_14947:; -fornext_value1871= 1 ; -fornext_finalvalue1871=*__LONG_TOTALVARIABLESCREATED; -fornext_step1871= 1 ; -if (fornext_step1871<0) fornext_step_negative1871=1; else fornext_step_negative1871=0; -if (new_error) goto fornext_error1871; -goto fornext_entrylabel1871; -while(1){ -fornext_value1871=fornext_step1871+(*__LONG_I); -fornext_entrylabel1871: -*__LONG_I=fornext_value1871; -if (fornext_step_negative1871){ -if (fornext_value1871fornext_finalvalue1871) break; -} -fornext_error1871:; -if(qbevent){evnt(12342);if(r)goto S_14947;} -S_14948:; -if ((-(*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*__LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+28))== 0 ))||new_error){ -if(qbevent){evnt(12343);if(r)goto S_14948;} -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(12344);}while(r); -} -fornext_continue_1870:; -} -fornext_exit_1870:; -} -} -S_14954:; -if ((*__LONG_IDEMODE)||new_error){ -if(qbevent){evnt(12350);if(r)goto S_14954;} -do{ -goto LABEL_IDERET5; -if(!qbevent)break;evnt(12350);}while(r); -} -LABEL_IDE6:; -if(qbevent){evnt(12351);r=0;} -S_14957:; -if (((-(*__LONG_IDEMODE== 0 ))&(-(*__LONG_NO_C_COMPILE_MODE== 0 )))||new_error){ -if(qbevent){evnt(12353);if(r)goto S_14957;} -S_14958:; -if ((~(*__BYTE_QUIETMODE))||new_error){ -if(qbevent){evnt(12354);if(r)goto S_14958;} -do{ -tqbs=qbs_new(0,0); -qbs_print(nothingstring,1); -skip1872: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12355);}while(r); -S_14960:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ -if(qbevent){evnt(12356);if(r)goto S_14960;} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("Compiling C++ code into executable...",37)); -if (new_error) goto skip1873; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip1873: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12357);}while(r); -}else{ -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("Compiling C++ code into EXE...",30)); -if (new_error) goto skip1874; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip1874: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12359);}while(r); -} -} -S_14966:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_OUTPUTFILE_CMD->len|*__LONG_OUTPUTISRELATIVETOSTARTDIR))||new_error){ -if(qbevent){evnt(12364);if(r)goto S_14966;} -S_14967:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_OUTPUTFILE_CMD->len))||new_error){ -if(qbevent){evnt(12365);if(r)goto S_14967;} -do{ -qbs_set(__STRING_PATH__ASCII_CHR_046__OUT,FUNC_GETFILEPATH(__STRING_OUTPUTFILE_CMD)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12367);}while(r); -do{ -qbs_set(__STRING_F,func_mid(__STRING_OUTPUTFILE_CMD,__STRING_PATH__ASCII_CHR_046__OUT->len+ 1 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12368);}while(r); -S_14970:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(FUNC_GETFILEEXTENSION(__STRING_F)),qbs_new_txt_len("EXE",3))))||new_error){ -if(qbevent){evnt(12370);if(r)goto S_14970;} -do{ -qbs_set(__STRING_FILE,FUNC_REMOVEFILEEXTENSION(__STRING_F)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12371);}while(r); -}else{ -do{ -qbs_set(__STRING_FILE,__STRING_F); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12373);}while(r); -} -} -S_14976:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_PATH__ASCII_CHR_046__OUT->len|*__LONG_OUTPUTISRELATIVETOSTARTDIR))||new_error){ -if(qbevent){evnt(12377);if(r)goto S_14976;} -do{ -qbs_set(__STRING_CURRENTDIR,func__cwd()); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12378);}while(r); -S_14978:; -if ((*__LONG_OUTPUTISRELATIVETOSTARTDIR)||new_error){ -if(qbevent){evnt(12380);if(r)goto S_14978;} -do{ -sub_chdir(func__startdir()); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12383);}while(r); -S_14980:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_PATH__ASCII_CHR_046__OUT->len== 0 )))||new_error){ -if(qbevent){evnt(12389);if(r)goto S_14980;} -do{ -qbs_set(__STRING_PATH__ASCII_CHR_046__OUT,func__startdir()); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12390);}while(r); -} -} -S_14984:; -if ((qbs_cleanup(qbs_tmp_base,-(func__direxists(__STRING_PATH__ASCII_CHR_046__OUT)== 0 )))||new_error){ -if(qbevent){evnt(12394);if(r)goto S_14984;} -do{ -tqbs=qbs_new(0,0); -qbs_print(nothingstring,1); -skip1880: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12395);}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 (new_error) goto skip1881; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip1881: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12396);}while(r); -S_14987:; -if ((*__LONG_CONSOLEMODE)||new_error){ -if(qbevent){evnt(12397);if(r)goto S_14987;} -do{ -if(qbevent){evnt(12397);} -exit_code= 1 ; -if (sub_gl_called) error(271); -close_program=1; -end(); -if(!qbevent)break;evnt(12397);}while(r); -} -do{ -if(qbevent){evnt(12398);} -exit_code= 1 ; -sub_end(); -if(!qbevent)break;evnt(12398);}while(r); -} -do{ -sub_chdir(__STRING_PATH__ASCII_CHR_046__OUT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12401);}while(r); -do{ -qbs_set(__STRING_PATH__ASCII_CHR_046__OUT,func__cwd()); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12402);}while(r); -do{ -sub_chdir(__STRING_CURRENTDIR); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12403);}while(r); -S_14995:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_right(__STRING_PATH__ASCII_CHR_046__OUT, 1 ),__STRING1_PATHSEP)))||new_error){ -if(qbevent){evnt(12405);if(r)goto S_14995;} -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(12405);}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(12406);}while(r); -do{ -*__BYTE_SAVEEXEWITHSOURCE= -1 ; -if(!qbevent)break;evnt(12408);}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(12411);}while(r); -S_15003:; -if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_FILE),__STRING_EXTENSION))))||new_error){ -if(qbevent){evnt(12412);if(r)goto S_15003;} -do{ -*__LONG_E= 0 ; -if(!qbevent)break;evnt(12413);}while(r); -do{ -error_goto_line=7; -if(!qbevent)break;evnt(12414);}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(12415);}while(r); -do{ -error_goto_line=8; -if(!qbevent)break;evnt(12416);}while(r); -S_15008:; -if ((-(*__LONG_E== 1 ))||new_error){ -if(qbevent){evnt(12417);if(r)goto S_15008;} -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(12418);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(12418);}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(12421);}while(r); -} -S_15015:; -if ((*__LONG_EXEICONSET)||new_error){ -if(qbevent){evnt(12424);if(r)goto S_15015;} -do{ -*__LONG_LINENUMBER=*__LONG_EXEICONSET; -if(!qbevent)break;evnt(12425);}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(12426);}while(r); -do{ -error_goto_line=9; -if(!qbevent)break;evnt(12430);}while(r); -do{ -if(!qbevent)break;evnt(12432);}while(r); -do{ -*__LONG_ERRNO=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(12433);}while(r); -S_15021:; -if ((-(*__LONG_ERRNO!= 0 ))||new_error){ -if(qbevent){evnt(12434);if(r)goto S_15021;} -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(12434);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(12434);}while(r); -} -do{ -error_goto_line=10; -if(!qbevent)break;evnt(12436);}while(r); -} -S_15027:; -if ((*__BYTE_VERSIONINFOSET)||new_error){ -if(qbevent){evnt(12439);if(r)goto S_15027;} -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(12440);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1882=*__LONG_MANIBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12441);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1883=*__LONG_MANIBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12442);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1884=*__LONG_MANIBUF),qbs_new_txt_len("",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12448);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1890=*__LONG_MANIBUF),qbs_add(qbs_add(qbs_new_txt_len("",13),__STRING_VIFILEDESCRIPTION),qbs_new_txt_len("",14))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12449);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1891=*__LONG_MANIBUF),qbs_new_txt_len("",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12450);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1892=*__LONG_MANIBUF),qbs_new_txt_len(" ",23)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12451);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1893=*__LONG_MANIBUF),qbs_new_txt_len(" ",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12459);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1901=*__LONG_MANIBUF),qbs_new_txt_len(" ",24)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12460);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1902=*__LONG_MANIBUF),qbs_new_txt_len("",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12461);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1903=*__LONG_MANIBUF),qbs_new_txt_len("",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12462);}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(12464);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1904=*__LONG_MANIBUF),qbs_new_txt_len("#ifndef RESOURCE_H",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12465);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1905=*__LONG_MANIBUF),qbs_new_txt_len("#define RESOURCE_H",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12466);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1906=*__LONG_MANIBUF),qbs_new_txt_len("#ifdef __cplusplus",21)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12467);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1907=*__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(12468);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1908=*__LONG_MANIBUF),qbs_new_txt_len("#endif",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12469);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1909=*__LONG_MANIBUF),qbs_new_txt_len("#ifdef __cplusplus",21)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12470);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1910=*__LONG_MANIBUF),qbs_new_txt_len("}",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12471);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1911=*__LONG_MANIBUF),qbs_new_txt_len("#endif",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12472);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1912=*__LONG_MANIBUF),qbs_new_txt_len("#endif /* RESOURCE_H */",26)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12473);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1913=*__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(12474);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1914=*__LONG_MANIBUF),qbs_new_txt_len("#define RT_MANIFEST 24",44)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12475);}while(r); -} -S_15064:; -if ((*__BYTE_VERSIONINFOSET|*__LONG_EXEICONSET)||new_error){ -if(qbevent){evnt(12478);if(r)goto S_15064;} -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(12479);}while(r); -S_15066:; -if ((*__LONG_EXEICONSET)||new_error){ -if(qbevent){evnt(12481);if(r)goto S_15066;} -do{ -SUB_WRITEBUFLINE(&(pass1915=*__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(12482);}while(r); -} -S_15069:; -if ((*__BYTE_VERSIONINFOSET)||new_error){ -if(qbevent){evnt(12485);if(r)goto S_15069;} -do{ -SUB_WRITEBUFLINE(&(pass1916=*__LONG_ICONRCBUF),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12486);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1917=*__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(12487);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1918=*__LONG_ICONRCBUF),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12488);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1919=*__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(12489);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1920=*__LONG_ICONRCBUF),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12490);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1921=*__LONG_ICONRCBUF),qbs_new_txt_len("1 VERSIONINFO",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12491);}while(r); -S_15076:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_VIFILEVERSIONNUM->len))||new_error){ -if(qbevent){evnt(12492);if(r)goto S_15076;} -do{ -SUB_WRITEBUFLINE(&(pass1923=*__LONG_ICONRCBUF),qbs_add(qbs_new_txt_len("FILEVERSION ",16),__STRING_VIFILEVERSIONNUM)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12492);}while(r); -} -S_15079:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_VIPRODUCTVERSIONNUM->len))||new_error){ -if(qbevent){evnt(12493);if(r)goto S_15079;} -do{ -SUB_WRITEBUFLINE(&(pass1925=*__LONG_ICONRCBUF),qbs_add(qbs_new_txt_len("PRODUCTVERSION ",16),__STRING_VIPRODUCTVERSIONNUM)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12493);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass1926=*__LONG_ICONRCBUF),qbs_new_txt_len("BEGIN",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12494);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1927=*__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(12495);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1928=*__LONG_ICONRCBUF),qbs_new_txt_len(" BEGIN",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12496);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1929=*__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(12497);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1930=*__LONG_ICONRCBUF),qbs_new_txt_len(" BEGIN",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12498);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1931=*__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(12499);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1932=*__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(12500);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1933=*__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(12501);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1934=*__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(12502);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1935=*__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(12503);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1936=*__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(12504);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1937=*__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(12505);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1938=*__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(12506);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1939=*__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(12507);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1940=*__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(12508);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1941=*__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(12509);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1942=*__LONG_ICONRCBUF),qbs_new_txt_len(" END",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12510);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1943=*__LONG_ICONRCBUF),qbs_new_txt_len(" END",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12511);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1944=*__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(12512);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1945=*__LONG_ICONRCBUF),qbs_new_txt_len(" BEGIN",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12513);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1946=*__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(12514);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1947=*__LONG_ICONRCBUF),qbs_new_txt_len(" END",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12515);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass1948=*__LONG_ICONRCBUF),qbs_new_txt_len("END",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12516);}while(r); -} -} -do{ -SUB_WRITEBUFFERS(qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12522);}while(r); -S_15108:; -if ((*__LONG_MIDISOUNDFONTSET)||new_error){ -if(qbevent){evnt(12524);if(r)goto S_15108;} -do{ -*__LONG_LINENUMBER=*__LONG_MIDISOUNDFONTSET; -if(!qbevent)break;evnt(12525);}while(r); -do{ -qbs_set(__STRING_WHOLELINE,__STRING_MIDISOUNDFONTLINE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12526);}while(r); -S_15111:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_MIDISOUNDFONT,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(12528);if(r)goto S_15111;} -do{ -qbs_set(__STRING_MIDISOUNDFONT,qbs_new_txt_len("internal/support/default_soundfont.sf2",38)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12529);}while(r); -} -do{ -error_goto_line=11; -if(!qbevent)break;evnt(12532);}while(r); -do{ -*__LONG_ERRNO=FUNC_COPYFILE(__STRING_MIDISOUNDFONT,qbs_add(__STRING_TMPDIR,qbs_new_txt_len("soundfont.sf2",13))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12534);}while(r); -S_15116:; -if ((-(*__LONG_ERRNO!= 0 ))||new_error){ -if(qbevent){evnt(12535);if(r)goto S_15116;} -do{ -qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Error copying ",14),FUNC_QUOTEDFILENAME(__STRING_MIDISOUNDFONT)),qbs_new_txt_len(" to temp directory",18))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12535);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(12535);}while(r); -} -do{ -error_goto_line=12; -if(!qbevent)break;evnt(12537);}while(r); -} -do{ -qbs_set(__STRING_O,qbs_lcase(__STRING_OS)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12542);}while(r); -do{ -*__LONG_WIN= 0 ; -if(!qbevent)break;evnt(12543);}while(r); -S_15124:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ -if(qbevent){evnt(12543);if(r)goto S_15124;} -do{ -*__LONG_WIN= 1 ; -if(!qbevent)break;evnt(12543);}while(r); -} -do{ -*__LONG_LNX= 0 ; -if(!qbevent)break;evnt(12544);}while(r); -S_15128:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ -if(qbevent){evnt(12544);if(r)goto S_15128;} -do{ -*__LONG_LNX= 1 ; -if(!qbevent)break;evnt(12544);}while(r); -} -do{ -*__LONG_MAC= 0 ; -if(!qbevent)break;evnt(12545);}while(r); -S_15132:; -if ((*__LONG_MACOSX)||new_error){ -if(qbevent){evnt(12545);if(r)goto S_15132;} -do{ -*__LONG_MAC= 1 ; -if(!qbevent)break;evnt(12545);}while(r); -do{ -qbs_set(__STRING_O,qbs_new_txt_len("osx",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12545);}while(r); -} -do{ -qbs_set(__STRING_VER,__STRING_VERSION); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12546);}while(r); -do{ -qbs_set(__STRING_LIBS,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12547);}while(r); -do{ -qbs_set(__STRING_MAKEDEPS,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12548);}while(r); -do{ -qbs_set(__STRING_MAKE,FUNC_GETMAKEEXECUTABLE()); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12549);}while(r); -do{ -qbs_set(__STRING_LOCALPATH,qbs_new_txt_len("internal\\c\\",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12551);}while(r); -S_15141:; -if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 5 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ -if(qbevent){evnt(12554);if(r)goto S_15141;} -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(12554);}while(r); -} -S_15144:; -if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 11 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ -if(qbevent){evnt(12555);if(r)goto S_15144;} -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(12555);}while(r); -} -S_15147:; -if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 6 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ -if(qbevent){evnt(12556);if(r)goto S_15147;} -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(12556);}while(r); -} -S_15150:; -if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 7 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ -if(qbevent){evnt(12557);if(r)goto S_15150;} -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(12557);}while(r); -} -S_15153:; -if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 8 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ -if(qbevent){evnt(12558);if(r)goto S_15153;} -do{ -qbs_set(__STRING_MAKEDEPS,qbs_add(__STRING_MAKEDEPS,qbs_new_txt_len(" DEP_SOCKETS=y",14))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12558);}while(r); -} -S_15156:; -if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 9 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ -if(qbevent){evnt(12559);if(r)goto S_15156;} -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(12559);}while(r); -} -S_15159:; -if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 10 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ -if(qbevent){evnt(12560);if(r)goto S_15159;} -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(12560);}while(r); -} -S_15162:; -if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 11 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ -if(qbevent){evnt(12561);if(r)goto S_15162;} -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(12561);}while(r); -} -S_15165:; -if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 1 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ -if(qbevent){evnt(12562);if(r)goto S_15165;} -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(12562);}while(r); -} -S_15168:; -if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 12 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ -if(qbevent){evnt(12563);if(r)goto S_15168;} -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(12563);}while(r); -} -S_15171:; -if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 13 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ -if(qbevent){evnt(12564);if(r)goto S_15171;} -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(12564);}while(r); -} -S_15174:; -if (((-(*__LONG_INLINE_DATA== 0 ))&*__LONG_DATAOFFSET)||new_error){ -if(qbevent){evnt(12565);if(r)goto S_15174;} -do{ -qbs_set(__STRING_MAKEDEPS,qbs_add(__STRING_MAKEDEPS,qbs_new_txt_len(" DEP_DATA=y",11))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12565);}while(r); -} -S_15177:; -if ((*__LONG_CONSOLE)||new_error){ -if(qbevent){evnt(12566);if(r)goto S_15177;} -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(12566);}while(r); -} -S_15180:; -if ((*__LONG_EXEICONSET|*__BYTE_VERSIONINFOSET)||new_error){ -if(qbevent){evnt(12567);if(r)goto S_15180;} -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(12567);}while(r); -} -S_15183:; -if ((~(*__ULONG_USEMINIAUDIOBACKEND))||new_error){ -if(qbevent){evnt(12569);if(r)goto S_15183;} -S_15184:; -if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 3 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ -if(qbevent){evnt(12570);if(r)goto S_15184;} -do{ -qbs_set(__STRING_MAKEDEPS,qbs_add(__STRING_MAKEDEPS,qbs_new_txt_len(" DEP_AUDIO_DECODE=y",19))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12570);}while(r); -} -S_15187:; -if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 2 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ -if(qbevent){evnt(12571);if(r)goto S_15187;} -do{ -qbs_set(__STRING_MAKEDEPS,qbs_add(__STRING_MAKEDEPS,qbs_new_txt_len(" DEP_AUDIO_CONVERSION=y",23))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12571);}while(r); -} -S_15190:; -if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 4 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ -if(qbevent){evnt(12572);if(r)goto S_15190;} -do{ -qbs_set(__STRING_MAKEDEPS,qbs_add(__STRING_MAKEDEPS,qbs_new_txt_len(" DEP_AUDIO_OUT=y",16))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12572);}while(r); -} -}else{ -S_15194:; -if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 3 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])]|((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 2 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])]|((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 4 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ -if(qbevent){evnt(12574);if(r)goto S_15194;} -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(12575);}while(r); -} -} -S_15198:; -if ((((int8*)(__ARRAY_BYTE_UNSTABLEFLAGS[0]))[array_check((*__LONG_UNSTABLE_HTTP)-__ARRAY_BYTE_UNSTABLEFLAGS[4],__ARRAY_BYTE_UNSTABLEFLAGS[5])]&(-(((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 8 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])]!= 0 )))||new_error){ -if(qbevent){evnt(12579);if(r)goto S_15198;} -do{ -qbs_set(__STRING_MAKEDEPS,qbs_add(__STRING_MAKEDEPS,qbs_new_txt_len(" DEP_HTTP=y",11))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12580);}while(r); -} -S_15201:; -if ((*__LONG_MIDISOUNDFONTSET)||new_error){ -if(qbevent){evnt(12583);if(r)goto S_15201;} -do{ -qbs_set(__STRING_MAKEDEPS,qbs_add(__STRING_MAKEDEPS,qbs_new_txt_len(" DEP_AUDIO_DECODE_MIDI=y",24))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12583);}while(r); -} -S_15204:; -if ((-(*__LONG_TEMPFOLDERINDEX> 1 ))||new_error){ -if(qbevent){evnt(12585);if(r)goto S_15204;} -do{ -qbs_set(__STRING_MAKEDEPS,qbs_add(qbs_add(__STRING_MAKEDEPS,qbs_new_txt_len(" TEMP_ID=",9)),FUNC_STR2(__LONG_TEMPFOLDERINDEX))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12585);}while(r); -} -do{ -qbs_set(__STRING_CXXFLAGSEXTRA,__STRING_EXTRACPPFLAGS); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12587);}while(r); -do{ -qbs_set(__STRING_CXXLIBSEXTRA,__STRING_EXTRALINKERFLAGS); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12588);}while(r); -S_15209:; -if ((*__ULONG_OPTIMIZECPPPROGRAM)||new_error){ -if(qbevent){evnt(12591);if(r)goto S_15209;} -S_15210:; -if ((*__LONG_INCLUDE_GDB_DEBUGGING_INFO)||new_error){ -if(qbevent){evnt(12592);if(r)goto S_15210;} -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(12593);}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(12595);}while(r); -} -}else{ -S_15216:; -if ((*__LONG_INCLUDE_GDB_DEBUGGING_INFO)||new_error){ -if(qbevent){evnt(12598);if(r)goto S_15216;} -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(12599);}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(12603);}while(r); -do{ -qbs_set(__STRING_ESCAPEDEXE,FUNC_STRREPLACE(qbs_add(qbs_add(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_FILE),__STRING_EXTENSION),qbs_new_txt_len(" ",1),qbs_new_txt_len("\\ ",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12607);}while(r); -do{ -qbs_set(__STRING_ESCAPEDEXE,FUNC_STRREPLACE(__STRING_ESCAPEDEXE,func_chr( 34 ),qbs_add(qbs_new_txt_len("\\",1),func_chr( 34 )))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12608);}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(12609);}while(r); -do{ -qbs_set(__STRING_MAKELINE,qbs_add(qbs_add(qbs_add(__STRING_MAKE,__STRING_MAKEDEPS),qbs_new_txt_len(" EXE=",5)),FUNC_ADDQUOTES(__STRING_ESCAPEDEXE))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12611);}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(12612);}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(12613);}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(12614);}while(r); -do{ -qbs_set(__STRING_MAKELINE,qbs_add(qbs_add(__STRING_MAKELINE,qbs_new_txt_len(" -j",3)),FUNC_ADDQUOTES(FUNC_STR2((int32*)__ULONG_MAXPARALLELPROCESSES)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12615);}while(r); -S_15229:; -if ((~(*__ULONG_STRIPDEBUGSYMBOLS))||new_error){ -if(qbevent){evnt(12617);if(r)goto S_15229;} -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(12618);}while(r); -} -S_15232:; -if ((*__ULONG_GENERATELICENSEFILE&(~(*__INTEGER_NOEXESAVED)))||new_error){ -if(qbevent){evnt(12622);if(r)goto S_15232;} -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(12623);}while(r); -} -S_15235:; -fornext_value1950= 1 ; -fornext_finalvalue1950=*__LONG_RESOLVESTATICFUNCTIONS; -fornext_step1950= 1 ; -if (fornext_step1950<0) fornext_step_negative1950=1; else fornext_step_negative1950=0; -if (new_error) goto fornext_error1950; -goto fornext_entrylabel1950; -while(1){ -fornext_value1950=fornext_step1950+(*__LONG_X); -fornext_entrylabel1950: -*__LONG_X=fornext_value1950; -if (fornext_step_negative1950){ -if (fornext_value1950fornext_finalvalue1950) break; -} -fornext_error1950:; -if(qbevent){evnt(12627);if(r)goto S_15235;} -S_15236:; -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))||new_error){ -if(qbevent){evnt(12628);if(r)goto S_15236;} -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])])),&(pass1952= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12629);}while(r); -S_15238:; -if ((qbs_cleanup(qbs_tmp_base,func__fileexists(__STRING_S)))||new_error){ -if(qbevent){evnt(12630);if(r)goto S_15238;} -do{ -sub_kill(__STRING_S); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12630);}while(r); -do{ -SUB_CLEARBUFFERS(__STRING_S); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12630);}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])])),&(pass1953= 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12632);}while(r); -S_15243:; -if ((qbs_cleanup(qbs_tmp_base,func__fileexists(__STRING_S)))||new_error){ -if(qbevent){evnt(12633);if(r)goto S_15243;} -do{ -sub_kill(__STRING_S); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12633);}while(r); -do{ -SUB_CLEARBUFFERS(__STRING_S); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12633);}while(r); -} -} -fornext_continue_1949:; -} -fornext_exit_1949:; -do{ -error_goto_line=13; -if(!qbevent)break;evnt(12638);}while(r); -S_15250:; -if ((-(*__LONG_TEMPFOLDERINDEX> 1 ))||new_error){ -if(qbevent){evnt(12639);if(r)goto S_15250;} -do{ -sub_kill(qbs_add(qbs_add(qbs_new_txt_len("internal/c/qbx",14),FUNC_STR2(__LONG_TEMPFOLDERINDEX)),qbs_new_txt_len(".o",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12640);}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(12642);}while(r); -} -do{ -error_goto_line=14; -if(!qbevent)break;evnt(12644);}while(r); -S_15256:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ -if(qbevent){evnt(12646);if(r)goto S_15256;} -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(12648);}while(r); -S_15258:; -fornext_value1955= 1 ; -fornext_finalvalue1955=*__LONG_RESOLVESTATICFUNCTIONS; -fornext_step1955= 1 ; -if (fornext_step1955<0) fornext_step_negative1955=1; else fornext_step_negative1955=0; -if (new_error) goto fornext_error1955; -goto fornext_entrylabel1955; -while(1){ -fornext_value1955=fornext_step1955+(*__LONG_X); -fornext_entrylabel1955: -*__LONG_X=fornext_value1955; -if (fornext_step_negative1955){ -if (fornext_value1955fornext_finalvalue1955) break; -} -fornext_error1955:; -if(qbevent){evnt(12651);if(r)goto S_15258;} -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])])),&(pass1956= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12652);}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])])),&(pass1957= 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12653);}while(r); -S_15261:; -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))||new_error){ -if(qbevent){evnt(12654);if(r)goto S_15261;} -do{ -*__LONG_N= 0 ; -if(!qbevent)break;evnt(12656);}while(r); -S_15263:; -if ((qbs_cleanup(qbs_tmp_base,~(func__fileexists(__STRING_NM_OUTPUT_FILE))))||new_error){ -if(qbevent){evnt(12657);if(r)goto S_15263;} -do{ -sub_shell2(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("cmd /c internal\\c\\c_compiler\\bin\\nm.exe ",40),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(12658);}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(12660);}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(12661);}while(r); -S_15268:; -while((!(FUNC_ENDOFBUF(&(pass1959=*__LONG_FH))))||new_error){ -if(qbevent){evnt(12662);if(r)goto S_15268;} -do{ -qbs_set(__STRING_A,FUNC_READBUFLINE(&(pass1961=*__LONG_FH))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12663);}while(r); -S_15270:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_A->len))||new_error){ -if(qbevent){evnt(12664);if(r)goto S_15270;} -do{ -*__LONG_X1=func_instr(NULL,__STRING_A,__STRING_S,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12666);}while(r); -S_15272:; -if ((*__LONG_X1)||new_error){ -if(qbevent){evnt(12667);if(r)goto S_15272;} -S_15273:; -if ((-(((int32*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]))[array_check((*__LONG_X)-__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[4],__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5])]== 1 ))||new_error){ -if(qbevent){evnt(12668);if(r)goto S_15273;} -do{ -*__LONG_X1=*__LONG_X1+ 1 ; -if(!qbevent)break;evnt(12669);}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(12670);}while(r); -do{ -*__LONG_FH2=func_freefile(); -if(!qbevent)break;evnt(12671);}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(12672);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FH2; -if (new_error) goto skip1963; -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 (new_error) goto skip1963; -skip1963: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12673);}while(r); -do{ -sub_close(*__LONG_FH2,1); -if(!qbevent)break;evnt(12674);}while(r); -} -do{ -*__LONG_N=*__LONG_N+ 1 ; -if(!qbevent)break;evnt(12676);}while(r); -} -} -dl_continue_1960:; -} -dl_exit_1960:; -S_15285:; -if ((-(*__LONG_N> 1 ))||new_error){ -if(qbevent){evnt(12680);if(r)goto S_15285;} -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(12680);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(12680);}while(r); -} -S_15289:; -if ((-(*__LONG_N== 0 ))||new_error){ -if(qbevent){evnt(12682);if(r)goto S_15289;} -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(12683);}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(12684);}while(r); -S_15292:; -while((!(FUNC_ENDOFBUF(&(pass1964=*__LONG_FH))))||new_error){ -if(qbevent){evnt(12685);if(r)goto S_15292;} -do{ -qbs_set(__STRING_A,FUNC_READBUFLINE(&(pass1966=*__LONG_FH))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12686);}while(r); -S_15294:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_A->len))||new_error){ -if(qbevent){evnt(12687);if(r)goto S_15294;} -do{ -*__LONG_X1=func_instr(NULL,__STRING_A,__STRING_S,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12689);}while(r); -S_15296:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(__STRING_A,__STRING_S->len),__STRING_S)))||new_error){ -if(qbevent){evnt(12690);if(r)goto S_15296;} -do{ -*__LONG_FH2=func_freefile(); -if(!qbevent)break;evnt(12691);}while(r); -S_15298:; -if ((-(((int32*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]))[array_check((*__LONG_X)-__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[4],__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5])]== 1 ))||new_error){ -if(qbevent){evnt(12692);if(r)goto S_15298;} -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(12693);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FH2; -if (new_error) goto skip1969; -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 (new_error) goto skip1969; -skip1969: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12694);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FH2; -if (new_error) goto skip1970; -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 (new_error) goto skip1970; -skip1970: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12695);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FH2; -if (new_error) goto skip1971; -sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0, 0, 1); -if (new_error) goto skip1971; -skip1971: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12696);}while(r); -}else{ -do{ -sub_open(qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("externtype",10)),FUNC_STR2(__LONG_X)),qbs_new_txt_len(".txt",4)), 4 ,NULL,NULL,*__LONG_FH2,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12698);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FH2; -if (new_error) goto skip1972; -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 (new_error) goto skip1972; -skip1972: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12699);}while(r); -} -do{ -sub_close(*__LONG_FH2,1); -if(!qbevent)break;evnt(12701);}while(r); -do{ -*__LONG_N=*__LONG_N+ 1 ; -if(!qbevent)break;evnt(12702);}while(r); -do{ -goto dl_exit_1965; -if(!qbevent)break;evnt(12703);}while(r); -} -} -dl_continue_1965:; -} -dl_exit_1965:; -} -S_15314:; -if ((-(*__LONG_N== 0 ))||new_error){ -if(qbevent){evnt(12709);if(r)goto S_15314;} -S_15315:; -if ((qbs_cleanup(qbs_tmp_base,~(func__fileexists(__STRING_NM_OUTPUT_FILE_DYNAMIC))))||new_error){ -if(qbevent){evnt(12710);if(r)goto S_15315;} -do{ -sub_shell2(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("cmd /c internal\\c\\c_compiler\\bin\\nm.exe ",40),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(12711);}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(12713);}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(12714);}while(r); -S_15320:; -while((!(FUNC_ENDOFBUF(&(pass1973=*__LONG_FH))))||new_error){ -if(qbevent){evnt(12715);if(r)goto S_15320;} -do{ -qbs_set(__STRING_A,FUNC_READBUFLINE(&(pass1975=*__LONG_FH))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12716);}while(r); -S_15322:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_A->len))||new_error){ -if(qbevent){evnt(12717);if(r)goto S_15322;} -do{ -*__LONG_X1=func_instr(NULL,__STRING_A,__STRING_S,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12719);}while(r); -S_15324:; -if ((*__LONG_X1)||new_error){ -if(qbevent){evnt(12720);if(r)goto S_15324;} -S_15325:; -if ((-(((int32*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]))[array_check((*__LONG_X)-__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[4],__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5])]== 1 ))||new_error){ -if(qbevent){evnt(12721);if(r)goto S_15325;} -do{ -*__LONG_X1=*__LONG_X1+ 1 ; -if(!qbevent)break;evnt(12722);}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(12723);}while(r); -do{ -*__LONG_FH2=func_freefile(); -if(!qbevent)break;evnt(12724);}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(12725);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FH2; -if (new_error) goto skip1977; -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 (new_error) goto skip1977; -skip1977: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12726);}while(r); -do{ -sub_close(*__LONG_FH2,1); -if(!qbevent)break;evnt(12727);}while(r); -} -do{ -*__LONG_N=*__LONG_N+ 1 ; -if(!qbevent)break;evnt(12729);}while(r); -} -} -dl_continue_1974:; -} -dl_exit_1974:; -S_15337:; -if ((-(*__LONG_N> 1 ))||new_error){ -if(qbevent){evnt(12733);if(r)goto S_15337;} -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(12733);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(12733);}while(r); -} -} -S_15342:; -if ((-(*__LONG_N== 0 ))||new_error){ -if(qbevent){evnt(12736);if(r)goto S_15342;} -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(12737);}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(12738);}while(r); -S_15345:; -while((!(FUNC_ENDOFBUF(&(pass1978=*__LONG_FH))))||new_error){ -if(qbevent){evnt(12739);if(r)goto S_15345;} -do{ -qbs_set(__STRING_A,FUNC_READBUFLINE(&(pass1980=*__LONG_FH))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12740);}while(r); -S_15347:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_A->len))||new_error){ -if(qbevent){evnt(12741);if(r)goto S_15347;} -do{ -*__LONG_X1=func_instr(NULL,__STRING_A,__STRING_S,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12743);}while(r); -S_15349:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(__STRING_A,__STRING_S->len),__STRING_S)))||new_error){ -if(qbevent){evnt(12744);if(r)goto S_15349;} -do{ -*__LONG_FH2=func_freefile(); -if(!qbevent)break;evnt(12745);}while(r); -S_15351:; -if ((-(((int32*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]))[array_check((*__LONG_X)-__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[4],__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5])]== 1 ))||new_error){ -if(qbevent){evnt(12746);if(r)goto S_15351;} -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(12747);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FH2; -if (new_error) goto skip1983; -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 (new_error) goto skip1983; -skip1983: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12748);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FH2; -if (new_error) goto skip1984; -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 (new_error) goto skip1984; -skip1984: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12749);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FH2; -if (new_error) goto skip1985; -sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0, 0, 1); -if (new_error) goto skip1985; -skip1985: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12750);}while(r); -}else{ -do{ -sub_open(qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("externtype",10)),FUNC_STR2(__LONG_X)),qbs_new_txt_len(".txt",4)), 4 ,NULL,NULL,*__LONG_FH2,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12752);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FH2; -if (new_error) goto skip1986; -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 (new_error) goto skip1986; -skip1986: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12753);}while(r); -} -do{ -sub_close(*__LONG_FH2,1); -if(!qbevent)break;evnt(12755);}while(r); -do{ -*__LONG_N=*__LONG_N+ 1 ; -if(!qbevent)break;evnt(12756);}while(r); -do{ -goto dl_exit_1979; -if(!qbevent)break;evnt(12757);}while(r); -} -} -dl_continue_1979:; -} -dl_exit_1979:; -S_15366:; -if ((-(*__LONG_N== 0 ))||new_error){ -if(qbevent){evnt(12761);if(r)goto S_15366;} -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(12761);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(12761);}while(r); -} -} -} -fornext_continue_1954:; -} -fornext_exit_1954:; -S_15373:; -if ((-(*__LONG_NO_C_COMPILE_MODE== 0 ))||new_error){ -if(qbevent){evnt(12767);if(r)goto S_15373;} -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(12768);}while(r); -S_15375:; -if ((*__LONG_IDEMODE)||new_error){ -if(qbevent){evnt(12770);if(r)goto S_15375;} -do{ -*__LONG_DUMMY=FUNC_DARKENFGBG(&(pass1987= 0 )); -if(!qbevent)break;evnt(12772);}while(r); -} -} -do{ -*__LONG_FFH=func_freefile(); -if(!qbevent)break;evnt(12776);}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(12777);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip1988; -sub_file_print(tmp_fileno,qbs_new_txt_len("@echo off",9), 0, 0, 1); -if (new_error) goto skip1988; -skip1988: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12778);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip1989; -sub_file_print(tmp_fileno,qbs_new_txt_len("cd %0\\..\\",9), 0, 0, 1); -if (new_error) goto skip1989; -skip1989: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12779);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip1990; -sub_file_print(tmp_fileno,qbs_new_txt_len("cd ../..",8), 0, 0, 1); -if (new_error) goto skip1990; -skip1990: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12780);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip1991; -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 gdb.exe",14)), 0, 0, 1); -if (new_error) goto skip1991; -skip1991: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12781);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip1992; -sub_file_print(tmp_fileno,qbs_new_txt_len("echo Debugger commands:",23), 0, 0, 1); -if (new_error) goto skip1992; -skip1992: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12782);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip1993; -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 (new_error) goto skip1993; -skip1993: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12783);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip1994; -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 (new_error) goto skip1994; -skip1994: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12784);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip1995; -sub_file_print(tmp_fileno,qbs_new_txt_len("echo Type 'quit' to exit",24), 0, 0, 1); -if (new_error) goto skip1995; -skip1995: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12785);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip1996; -sub_file_print(tmp_fileno,qbs_new_txt_len("echo (the GDB debugger has many other useful commands, this advice is for beginners)",84), 0, 0, 1); -if (new_error) goto skip1996; -skip1996: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12786);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip1997; -sub_file_print(tmp_fileno,qbs_new_txt_len("pause",5), 0, 0, 1); -if (new_error) goto skip1997; -skip1997: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12787);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip1998; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("internal\\c\\c_compiler\\bin\\gdb.exe ",34),func_chr( 34 )),__STRING_PATH__ASCII_CHR_046__EXE),__STRING_FILE),__STRING_EXTENSION),func_chr( 34 )), 0, 0, 1); -if (new_error) goto skip1998; -skip1998: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12788);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip1999; -sub_file_print(tmp_fileno,qbs_new_txt_len("pause",5), 0, 0, 1); -if (new_error) goto skip1999; -skip1999: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12789);}while(r); -do{ -sub_close(*__LONG_FFH,1); -if(!qbevent)break;evnt(12790);}while(r); -} -S_15395:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ -if(qbevent){evnt(12793);if(r)goto S_15395;} -S_15396:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("[MACOSX]",8),0)))||new_error){ -if(qbevent){evnt(12795);if(r)goto S_15396;} -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(12796);}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(12798);}while(r); -} -S_15401:; -fornext_value2001= 1 ; -fornext_finalvalue2001=*__LONG_RESOLVESTATICFUNCTIONS; -fornext_step2001= 1 ; -if (fornext_step2001<0) fornext_step_negative2001=1; else fornext_step_negative2001=0; -if (new_error) goto fornext_error2001; -goto fornext_entrylabel2001; -while(1){ -fornext_value2001=fornext_step2001+(*__LONG_X); -fornext_entrylabel2001: -*__LONG_X=fornext_value2001; -if (fornext_step_negative2001){ -if (fornext_value2001fornext_finalvalue2001) break; -} -fornext_error2001:; -if(qbevent){evnt(12801);if(r)goto S_15401;} -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])])),&(pass2002= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12802);}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])])),&(pass2003= 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12803);}while(r); -S_15404:; -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))||new_error){ -if(qbevent){evnt(12804);if(r)goto S_15404;} -do{ -*__LONG_N= 0 ; -if(!qbevent)break;evnt(12806);}while(r); -S_15406:; -if ((qbs_cleanup(qbs_tmp_base,~(func__fileexists(__STRING_NM_OUTPUT_FILE))))||new_error){ -if(qbevent){evnt(12807);if(r)goto S_15406;} -S_15407:; -if ((-(*__LONG_MACOSX== 0 ))||new_error){ -if(qbevent){evnt(12808);if(r)goto S_15407;} -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(12808);}while(r); -} -S_15410:; -if ((*__LONG_MACOSX)||new_error){ -if(qbevent){evnt(12809);if(r)goto S_15410;} -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(12809);}while(r); -} -} -S_15414:; -if ((-(*__LONG_MACOSX== 0 ))||new_error){ -if(qbevent){evnt(12812);if(r)goto S_15414;} -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(12813);}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(12814);}while(r); -S_15417:; -while((!(FUNC_ENDOFBUF(&(pass2005=*__LONG_FH))))||new_error){ -if(qbevent){evnt(12815);if(r)goto S_15417;} -do{ -qbs_set(__STRING_A,FUNC_READBUFLINE(&(pass2007=*__LONG_FH))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12816);}while(r); -S_15419:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_A->len))||new_error){ -if(qbevent){evnt(12817);if(r)goto S_15419;} -do{ -*__LONG_X1=func_instr(NULL,__STRING_A,__STRING_S,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12819);}while(r); -S_15421:; -if ((*__LONG_X1)||new_error){ -if(qbevent){evnt(12820);if(r)goto S_15421;} -S_15422:; -if ((-(((int32*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]))[array_check((*__LONG_X)-__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[4],__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5])]== 1 ))||new_error){ -if(qbevent){evnt(12821);if(r)goto S_15422;} -do{ -*__LONG_X1=*__LONG_X1+ 1 ; -if(!qbevent)break;evnt(12822);}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(12823);}while(r); -do{ -*__LONG_FH2=func_freefile(); -if(!qbevent)break;evnt(12824);}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(12825);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FH2; -if (new_error) goto skip2009; -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 (new_error) goto skip2009; -skip2009: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12826);}while(r); -do{ -sub_close(*__LONG_FH2,1); -if(!qbevent)break;evnt(12827);}while(r); -} -do{ -*__LONG_N=*__LONG_N+ 1 ; -if(!qbevent)break;evnt(12829);}while(r); -} -} -dl_continue_2006:; -} -dl_exit_2006:; -S_15434:; -if ((-(*__LONG_N> 1 ))||new_error){ -if(qbevent){evnt(12833);if(r)goto S_15434;} -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(12833);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(12833);}while(r); -} -} -S_15439:; -if ((-(*__LONG_N== 0 ))||new_error){ -if(qbevent){evnt(12836);if(r)goto S_15439;} -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(12837);}while(r); -do{ -qbs_set(__STRING_S2,__STRING_S); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12837);}while(r); -S_15442:; -if ((*__LONG_MACOSX)||new_error){ -if(qbevent){evnt(12838);if(r)goto S_15442;} -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(12838);}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(12839);}while(r); -S_15446:; -while((!(FUNC_ENDOFBUF(&(pass2010=*__LONG_FH))))||new_error){ -if(qbevent){evnt(12840);if(r)goto S_15446;} -do{ -qbs_set(__STRING_A,FUNC_READBUFLINE(&(pass2012=*__LONG_FH))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12841);}while(r); -S_15448:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_A->len))||new_error){ -if(qbevent){evnt(12842);if(r)goto S_15448;} -do{ -*__LONG_X1=func_instr(NULL,__STRING_A,__STRING_S,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12844);}while(r); -S_15450:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(__STRING_A,__STRING_S->len),__STRING_S)))||new_error){ -if(qbevent){evnt(12845);if(r)goto S_15450;} -do{ -*__LONG_FH2=func_freefile(); -if(!qbevent)break;evnt(12846);}while(r); -S_15452:; -if ((-(((int32*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]))[array_check((*__LONG_X)-__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[4],__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5])]== 1 ))||new_error){ -if(qbevent){evnt(12847);if(r)goto S_15452;} -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(12848);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FH2; -if (new_error) goto skip2015; -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 (new_error) goto skip2015; -skip2015: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12849);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FH2; -if (new_error) goto skip2016; -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 (new_error) goto skip2016; -skip2016: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12850);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FH2; -if (new_error) goto skip2017; -sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0, 0, 1); -if (new_error) goto skip2017; -skip2017: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12851);}while(r); -}else{ -do{ -sub_open(qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("externtype",10)),FUNC_STR2(__LONG_X)),qbs_new_txt_len(".txt",4)), 4 ,NULL,NULL,*__LONG_FH2,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12853);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FH2; -if (new_error) goto skip2018; -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 (new_error) goto skip2018; -skip2018: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12854);}while(r); -} -do{ -sub_close(*__LONG_FH2,1); -if(!qbevent)break;evnt(12856);}while(r); -do{ -*__LONG_N=*__LONG_N+ 1 ; -if(!qbevent)break;evnt(12857);}while(r); -do{ -goto dl_exit_2011; -if(!qbevent)break;evnt(12858);}while(r); -} -} -dl_continue_2011:; -} -dl_exit_2011:; -} -S_15468:; -if ((-(*__LONG_N== 0 ))||new_error){ -if(qbevent){evnt(12864);if(r)goto S_15468;} -S_15469:; -if ((*__LONG_MACOSX)||new_error){ -if(qbevent){evnt(12865);if(r)goto S_15469;} -do{ -goto LABEL_MACOSX_LIBFIND_FAILED; -if(!qbevent)break;evnt(12865);}while(r); -} -S_15472:; -if ((qbs_cleanup(qbs_tmp_base,~(func__fileexists(__STRING_NM_OUTPUT_FILE_DYNAMIC))))||new_error){ -if(qbevent){evnt(12866);if(r)goto S_15472;} -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(12867);}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(12869);}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(12870);}while(r); -S_15477:; -while((!(FUNC_ENDOFBUF(&(pass2019=*__LONG_FH))))||new_error){ -if(qbevent){evnt(12871);if(r)goto S_15477;} -do{ -qbs_set(__STRING_A,FUNC_READBUFLINE(&(pass2021=*__LONG_FH))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12872);}while(r); -S_15479:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_A->len))||new_error){ -if(qbevent){evnt(12873);if(r)goto S_15479;} -do{ -*__LONG_X1=func_instr(NULL,__STRING_A,__STRING_S,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12875);}while(r); -S_15481:; -if ((*__LONG_X1)||new_error){ -if(qbevent){evnt(12876);if(r)goto S_15481;} -S_15482:; -if ((-(((int32*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]))[array_check((*__LONG_X)-__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[4],__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5])]== 1 ))||new_error){ -if(qbevent){evnt(12877);if(r)goto S_15482;} -do{ -*__LONG_X1=*__LONG_X1+ 1 ; -if(!qbevent)break;evnt(12878);}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(12879);}while(r); -do{ -*__LONG_FH2=func_freefile(); -if(!qbevent)break;evnt(12880);}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(12881);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FH2; -if (new_error) goto skip2023; -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 (new_error) goto skip2023; -skip2023: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12882);}while(r); -do{ -sub_close(*__LONG_FH2,1); -if(!qbevent)break;evnt(12883);}while(r); -} -do{ -*__LONG_N=*__LONG_N+ 1 ; -if(!qbevent)break;evnt(12885);}while(r); -} -} -dl_continue_2020:; -} -dl_exit_2020:; -S_15494:; -if ((-(*__LONG_N> 1 ))||new_error){ -if(qbevent){evnt(12889);if(r)goto S_15494;} -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(12889);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(12889);}while(r); -} -} -S_15499:; -if ((-(*__LONG_N== 0 ))||new_error){ -if(qbevent){evnt(12892);if(r)goto S_15499;} -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(12893);}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(12894);}while(r); -S_15502:; -while((!(FUNC_ENDOFBUF(&(pass2024=*__LONG_FH))))||new_error){ -if(qbevent){evnt(12895);if(r)goto S_15502;} -do{ -qbs_set(__STRING_A,FUNC_READBUFLINE(&(pass2026=*__LONG_FH))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12896);}while(r); -S_15504:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_A->len))||new_error){ -if(qbevent){evnt(12897);if(r)goto S_15504;} -do{ -*__LONG_X1=func_instr(NULL,__STRING_A,__STRING_S,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12899);}while(r); -S_15506:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(__STRING_A,__STRING_S->len),__STRING_S)))||new_error){ -if(qbevent){evnt(12900);if(r)goto S_15506;} -do{ -*__LONG_FH2=func_freefile(); -if(!qbevent)break;evnt(12901);}while(r); -S_15508:; -if ((-(((int32*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]))[array_check((*__LONG_X)-__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[4],__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5])]== 1 ))||new_error){ -if(qbevent){evnt(12902);if(r)goto S_15508;} -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(12903);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FH2; -if (new_error) goto skip2029; -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 (new_error) goto skip2029; -skip2029: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12904);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FH2; -if (new_error) goto skip2030; -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 (new_error) goto skip2030; -skip2030: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12905);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FH2; -if (new_error) goto skip2031; -sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0, 0, 1); -if (new_error) goto skip2031; -skip2031: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12906);}while(r); -}else{ -do{ -sub_open(qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("externtype",10)),FUNC_STR2(__LONG_X)),qbs_new_txt_len(".txt",4)), 4 ,NULL,NULL,*__LONG_FH2,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(12908);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FH2; -if (new_error) goto skip2032; -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 (new_error) goto skip2032; -skip2032: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12909);}while(r); -} -do{ -sub_close(*__LONG_FH2,1); -if(!qbevent)break;evnt(12911);}while(r); -do{ -*__LONG_N=*__LONG_N+ 1 ; -if(!qbevent)break;evnt(12912);}while(r); -do{ -goto dl_exit_2025; -if(!qbevent)break;evnt(12913);}while(r); -} -} -dl_continue_2025:; -} -dl_exit_2025:; -LABEL_MACOSX_LIBFIND_FAILED:; -if(qbevent){evnt(12917);r=0;} -S_15523:; -if ((-(*__LONG_N== 0 ))||new_error){ -if(qbevent){evnt(12918);if(r)goto S_15523;} -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(12918);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(12918);}while(r); -} -} -} -fornext_continue_2000:; -} -fornext_exit_2000:; -S_15530:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("[MACOSX]",8),0)))||new_error){ -if(qbevent){evnt(12924);if(r)goto S_15530;} -do{ -*__LONG_FFH=func_freefile(); -if(!qbevent)break;evnt(12926);}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(12927);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip2033; -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),__STRING_CHR_QUOTE),qbs_new_txt_len("$(dirname ",10)),__STRING_CHR_QUOTE),qbs_new_txt_len("$0",2)),__STRING_CHR_QUOTE),qbs_new_txt_len(")",1)),__STRING_CHR_QUOTE),func_chr( 10 )), 0, 0, 0); -if (new_error) goto skip2033; -skip2033: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12928);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip2034; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("echo ",5),__STRING_CHR_QUOTE),qbs_new_txt_len("Recompiling...",14)),__STRING_CHR_QUOTE),func_chr( 10 )), 0, 0, 0); -if (new_error) goto skip2034; -skip2034: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12929);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip2035; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("cd ../c",7),func_chr( 10 )), 0, 0, 0); -if (new_error) goto skip2035; -skip2035: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12930);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip2036; -sub_file_print(tmp_fileno,qbs_add(__STRING_MAKELINE,func_chr( 10 )), 0, 0, 0); -if (new_error) goto skip2036; -skip2036: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12931);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip2037; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("read -p ",8),__STRING_CHR_QUOTE),qbs_new_txt_len("Press ENTER to exit...",22)),__STRING_CHR_QUOTE),func_chr( 10 )), 0, 0, 0); -if (new_error) goto skip2037; -skip2037: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12932);}while(r); -do{ -sub_close(*__LONG_FFH,1); -if(!qbevent)break;evnt(12933);}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(12934);}while(r); -do{ -*__LONG_FFH=func_freefile(); -if(!qbevent)break;evnt(12936);}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(12937);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip2038; -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),__STRING_CHR_QUOTE),qbs_new_txt_len("$(dirname ",10)),__STRING_CHR_QUOTE),qbs_new_txt_len("$0",2)),__STRING_CHR_QUOTE),qbs_new_txt_len(")",1)),__STRING_CHR_QUOTE),func_chr( 10 )), 0, 0, 0); -if (new_error) goto skip2038; -skip2038: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12938);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip2039; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("Pause()",7),func_chr( 10 )), 0, 0, 0); -if (new_error) goto skip2039; -skip2039: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12939);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip2040; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("{",1),func_chr( 10 )), 0, 0, 0); -if (new_error) goto skip2040; -skip2040: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12940);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip2041; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("OLDCONFIG=`stty -g`",19),func_chr( 10 )), 0, 0, 0); -if (new_error) goto skip2041; -skip2041: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12941);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip2042; -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 (new_error) goto skip2042; -skip2042: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12942);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip2043; -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 (new_error) goto skip2043; -skip2043: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12943);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip2044; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("stty $OLDCONFIG",15),func_chr( 10 )), 0, 0, 0); -if (new_error) goto skip2044; -skip2044: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12944);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip2045; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("}",1),func_chr( 10 )), 0, 0, 0); -if (new_error) goto skip2045; -skip2045: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12945);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip2046; -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),__STRING_CHR_QUOTE),qbs_new_txt_len("C++ Debugging: ",15)),__STRING_FILE),__STRING_EXTENSION),qbs_new_txt_len(" using GDB",10)),__STRING_CHR_QUOTE),func_chr( 10 )), 0, 0, 0); -if (new_error) goto skip2046; -skip2046: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12946);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip2047; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("echo ",5),__STRING_CHR_QUOTE),qbs_new_txt_len("Debugger commands:",18)),__STRING_CHR_QUOTE),func_chr( 10 )), 0, 0, 0); -if (new_error) goto skip2047; -skip2047: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12947);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip2048; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("echo ",5),__STRING_CHR_QUOTE),qbs_new_txt_len("After the debugger launches type 'run' to start your program",60)),__STRING_CHR_QUOTE),func_chr( 10 )), 0, 0, 0); -if (new_error) goto skip2048; -skip2048: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12948);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip2049; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("echo ",5),__STRING_CHR_QUOTE),qbs_new_txt_len("After your program crashes type 'list' to find where the problem is and fix/report it",85)),__STRING_CHR_QUOTE),func_chr( 10 )), 0, 0, 0); -if (new_error) goto skip2049; -skip2049: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12949);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip2050; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("echo ",5),__STRING_CHR_QUOTE),qbs_new_txt_len("(the GDB debugger has many other useful commands, this advice is for beginners)",79)),__STRING_CHR_QUOTE),func_chr( 10 )), 0, 0, 0); -if (new_error) goto skip2050; -skip2050: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12950);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip2051; -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 (new_error) goto skip2051; -skip2051: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12951);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip2052; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("Pause",5),func_chr( 10 )), 0, 0, 0); -if (new_error) goto skip2052; -skip2052: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12952);}while(r); -do{ -sub_close(*__LONG_FFH,1); -if(!qbevent)break;evnt(12953);}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(12954);}while(r); -}else{ -do{ -*__LONG_FFH=func_freefile(); -if(!qbevent)break;evnt(12958);}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(12959);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip2053; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("#!/bin/sh",9),func_chr( 10 )), 0, 0, 0); -if (new_error) goto skip2053; -skip2053: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12960);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip2054; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("Pause()",7),func_chr( 10 )), 0, 0, 0); -if (new_error) goto skip2054; -skip2054: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12961);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip2055; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("{",1),func_chr( 10 )), 0, 0, 0); -if (new_error) goto skip2055; -skip2055: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12962);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip2056; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("OLDCONFIG=`stty -g`",19),func_chr( 10 )), 0, 0, 0); -if (new_error) goto skip2056; -skip2056: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12963);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip2057; -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 (new_error) goto skip2057; -skip2057: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12964);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip2058; -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 (new_error) goto skip2058; -skip2058: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12965);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip2059; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("stty $OLDCONFIG",15),func_chr( 10 )), 0, 0, 0); -if (new_error) goto skip2059; -skip2059: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12966);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip2060; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("}",1),func_chr( 10 )), 0, 0, 0); -if (new_error) goto skip2060; -skip2060: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12967);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip2061; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("echo ",5),__STRING_CHR_QUOTE),qbs_new_txt_len("Recompiling...",14)),__STRING_CHR_QUOTE),func_chr( 10 )), 0, 0, 0); -if (new_error) goto skip2061; -skip2061: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12968);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip2062; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("cd ../c",7),func_chr( 10 )), 0, 0, 0); -if (new_error) goto skip2062; -skip2062: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12969);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip2063; -sub_file_print(tmp_fileno,qbs_add(__STRING_MAKELINE,func_chr( 10 )), 0, 0, 0); -if (new_error) goto skip2063; -skip2063: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12970);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip2064; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("echo ",5),__STRING_CHR_QUOTE),qbs_new_txt_len("Press ENTER to exit...",22)),__STRING_CHR_QUOTE),func_chr( 10 )), 0, 0, 0); -if (new_error) goto skip2064; -skip2064: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12971);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip2065; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("Pause",5),func_chr( 10 )), 0, 0, 0); -if (new_error) goto skip2065; -skip2065: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12972);}while(r); -do{ -sub_close(*__LONG_FFH,1); -if(!qbevent)break;evnt(12973);}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(12974);}while(r); -do{ -*__LONG_FFH=func_freefile(); -if(!qbevent)break;evnt(12976);}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(12977);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip2066; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("#!/bin/sh",9),func_chr( 10 )), 0, 0, 0); -if (new_error) goto skip2066; -skip2066: -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 (new_error) goto skip2067; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("Pause()",7),func_chr( 10 )), 0, 0, 0); -if (new_error) goto skip2067; -skip2067: -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 (new_error) goto skip2068; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("{",1),func_chr( 10 )), 0, 0, 0); -if (new_error) goto skip2068; -skip2068: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12980);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip2069; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("OLDCONFIG=`stty -g`",19),func_chr( 10 )), 0, 0, 0); -if (new_error) goto skip2069; -skip2069: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12981);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip2070; -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 (new_error) goto skip2070; -skip2070: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12982);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip2071; -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 (new_error) goto skip2071; -skip2071: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12983);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip2072; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("stty $OLDCONFIG",15),func_chr( 10 )), 0, 0, 0); -if (new_error) goto skip2072; -skip2072: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12984);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip2073; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("}",1),func_chr( 10 )), 0, 0, 0); -if (new_error) goto skip2073; -skip2073: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12985);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FFH; -if (new_error) goto skip2074; -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),__STRING_CHR_QUOTE),qbs_new_txt_len("C++ Debugging: ",15)),__STRING_FILE),__STRING_EXTENSION),qbs_new_txt_len(" using GDB",10)),__STRING_CHR_QUOTE),func_chr( 10 )), 0, 0, 0); -if (new_error) goto skip2074; -skip2074: -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 (new_error) goto skip2075; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("echo ",5),__STRING_CHR_QUOTE),qbs_new_txt_len("Debugger commands:",18)),__STRING_CHR_QUOTE),func_chr( 10 )), 0, 0, 0); -if (new_error) goto skip2075; -skip2075: -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 (new_error) goto skip2076; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("echo ",5),__STRING_CHR_QUOTE),qbs_new_txt_len("After the debugger launches type 'run' to start your program",60)),__STRING_CHR_QUOTE),func_chr( 10 )), 0, 0, 0); -if (new_error) goto skip2076; -skip2076: -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 (new_error) goto skip2077; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("echo ",5),__STRING_CHR_QUOTE),qbs_new_txt_len("After your program crashes type 'list' to find where the problem is and fix/report it",85)),__STRING_CHR_QUOTE),func_chr( 10 )), 0, 0, 0); -if (new_error) goto skip2077; -skip2077: -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 (new_error) goto skip2078; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("echo ",5),__STRING_CHR_QUOTE),qbs_new_txt_len("(the GDB debugger has many other useful commands, this advice is for beginners)",79)),__STRING_CHR_QUOTE),func_chr( 10 )), 0, 0, 0); -if (new_error) goto skip2078; -skip2078: -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 (new_error) goto skip2079; -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 (new_error) goto skip2079; -skip2079: -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 (new_error) goto skip2080; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("Pause",5),func_chr( 10 )), 0, 0, 0); -if (new_error) goto skip2080; -skip2080: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(12992);}while(r); -do{ -sub_close(*__LONG_FFH,1); -if(!qbevent)break;evnt(12993);}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(12994);}while(r); -} -S_15597:; -if ((-(*__LONG_NO_C_COMPILE_MODE== 0 ))||new_error){ -if(qbevent){evnt(12998);if(r)goto S_15597;} -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(12999);}while(r); -S_15599:; -if ((*__LONG_IDEMODE)||new_error){ -if(qbevent){evnt(13000);if(r)goto S_15599;} -do{ -*__LONG_DUMMY=FUNC_DARKENFGBG(&(pass2081= 0 )); -if(!qbevent)break;evnt(13002);}while(r); -} -} -S_15603:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("[MACOSX]",8),0)))||new_error){ -if(qbevent){evnt(13006);if(r)goto S_15603;} -do{ -*__LONG_FF=func_freefile(); -if(!qbevent)break;evnt(13007);}while(r); -S_15605:; -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)))))||new_error){ -if(qbevent){evnt(13008);if(r)goto S_15605;} -do{ -qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13008);}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(13009);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FF; -if (new_error) goto skip2082; -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 (new_error) goto skip2082; -skip2082: -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_FF; -if (new_error) goto skip2083; -sub_file_print(tmp_fileno,func_chr( 10 ), 0, 0, 0); -if (new_error) goto skip2083; -skip2083: -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_FF; -if (new_error) goto skip2084; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("./",2),__STRING_FILE),__STRING_EXTENSION),qbs_new_txt_len(" &",2)), 0, 0, 0); -if (new_error) goto skip2084; -skip2084: -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_FF; -if (new_error) goto skip2085; -sub_file_print(tmp_fileno,func_chr( 10 ), 0, 0, 0); -if (new_error) goto skip2085; -skip2085: -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_FF; -if (new_error) goto skip2086; -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 (new_error) goto skip2086; -skip2086: -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_FF; -if (new_error) goto skip2087; -sub_file_print(tmp_fileno,func_chr( 10 ), 0, 0, 0); -if (new_error) goto skip2087; -skip2087: -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_FF; -if (new_error) goto skip2088; -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 (new_error) goto skip2088; -skip2088: -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_FF; -if (new_error) goto skip2089; -sub_file_print(tmp_fileno,func_chr( 10 ), 0, 0, 0); -if (new_error) goto skip2089; -skip2089: -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_FF; -if (new_error) goto skip2090; -sub_file_print(tmp_fileno,qbs_new_txt_len("exit",4), 0, 0, 0); -if (new_error) goto skip2090; -skip2090: -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_FF; -if (new_error) goto skip2091; -sub_file_print(tmp_fileno,func_chr( 10 ), 0, 0, 0); -if (new_error) goto skip2091; -skip2091: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(13019);}while(r); -do{ -sub_close(*__LONG_FF,1); -if(!qbevent)break;evnt(13020);}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(13021);}while(r); -} -} -S_15623:; -if ((*__LONG_NO_C_COMPILE_MODE)||new_error){ -if(qbevent){evnt(13026);if(r)goto S_15623;} -do{ -*__LONG_COMPFAILED= 0 ; -if(!qbevent)break;evnt(13026);}while(r); -do{ -goto LABEL_NO_C_COMPILE; -if(!qbevent)break;evnt(13026);}while(r); -} -S_15627:; -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)))))||new_error){ -if(qbevent){evnt(13027);if(r)goto S_15627;} -do{ -qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13027);}while(r); -} -S_15630:; -if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_FILE),__STRING_EXTENSION))))||new_error){ -if(qbevent){evnt(13028);if(r)goto S_15630;} -do{ -*__LONG_COMPFAILED= 0 ; -if(!qbevent)break;evnt(13029);}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(13030);}while(r); -}else{ -do{ -*__LONG_COMPFAILED= 1 ; -if(!qbevent)break;evnt(13032);}while(r); -} -S_15636:; -if ((*__LONG_COMPFAILED)||new_error){ -if(qbevent){evnt(13035);if(r)goto S_15636;} -S_15637:; -if ((*__LONG_IDEMODE)||new_error){ -if(qbevent){evnt(13036);if(r)goto S_15637;} -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(13037);}while(r); -do{ -goto LABEL_IDEERROR; -if(!qbevent)break;evnt(13038);}while(r); -} -S_15641:; -if ((*__LONG_COMPFAILED)||new_error){ -if(qbevent){evnt(13040);if(r)goto S_15641;} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("ERROR: C++ compilation failed.",30)); -if (new_error) goto skip2092; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip2092: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13041);}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 (new_error) goto skip2093; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip2093: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13042);}while(r); -} -}else{ -S_15646:; -if (((-(*__LONG_IDEMODE== 0 ))&(~(*__BYTE_QUIETMODE)))||new_error){ -if(qbevent){evnt(13045);if(r)goto S_15646;} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("Output: ",8)); -if (new_error) goto skip2094; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_set(tqbs,__STRING_LASTBINARYGENERATED); -if (new_error) goto skip2094; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip2094: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13045);}while(r); -} -} -LABEL_SKIP_BUILD:; -if(qbevent){evnt(13048);r=0;} -S_15650:; -if ((*__LONG_IDEMODE)||new_error){ -if(qbevent){evnt(13052);if(r)goto S_15650;} -do{ -goto LABEL_IDERET6; -if(!qbevent)break;evnt(13052);}while(r); -} -LABEL_NO_C_COMPILE:; -if(qbevent){evnt(13054);r=0;} -S_15653:; -if (((((-(*__LONG_COMPFAILED!= 0 ))|(-(*__BYTE_WARNINGSISSUED!= 0 ))))&(-(*__LONG_CONSOLEMODE== 0 )))||new_error){ -if(qbevent){evnt(13056);if(r)goto S_15653;} -do{ -if(qbevent){evnt(13056);} -exit_code= 1 ; -sub_end(); -if(!qbevent)break;evnt(13056);}while(r); -} -S_15656:; -if ((-(*__LONG_COMPFAILED!= 0 ))||new_error){ -if(qbevent){evnt(13057);if(r)goto S_15656;} -do{ -if(qbevent){evnt(13057);} -exit_code= 1 ; -if (sub_gl_called) error(271); -close_program=1; -end(); -if(!qbevent)break;evnt(13057);}while(r); -} -do{ -if(qbevent){evnt(13058);} -exit_code= 0 ; -if (sub_gl_called) error(271); -close_program=1; -end(); -if(!qbevent)break;evnt(13058);}while(r); -LABEL_QBERROR_TEST:; -if(qbevent){evnt(13060);r=0;} -do{ -*__LONG_E= 1 ; -if(!qbevent)break;evnt(13061);}while(r); -do{ -if (!error_handling){error(20);}else{error_handling=0; error_err=0; return;} -if(!qbevent)break;evnt(13062);}while(r); -LABEL_QBERROR:; -if(qbevent){evnt(13064);r=0;} -S_15662:; -if (( 0 )||new_error){ -if(qbevent){evnt(13081);if(r)goto S_15662;} -S_15663:; -if ((*__LONG_CONSOLEMODE)||new_error){ -if(qbevent){evnt(13082);if(r)goto S_15663;} -do{ -tqbs=qbs_new(0,0); -qbs_print(nothingstring,1); -skip2095: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13083);}while(r); -}else{ -do{ -sub__autodisplay(); -if(!qbevent)break;evnt(13085);}while(r); -do{ -qbg_screen(func__newimage( 80 , 25 , 0 ,0|1),NULL, 0 , 0 ,NULL,13); -if(!qbevent)break;evnt(13086);}while(r); -do{ -qbg_sub_color( 7 , 0 ,NULL,3); -if(!qbevent)break;evnt(13087);}while(r); -} -do{ -sub__controlchr( 2 ); -if(!qbevent)break;evnt(13089);}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 (new_error) goto skip2096; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip2096: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13090);}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("Some key information (qb64pe.bas):",34)); -if (new_error) goto skip2097; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip2097: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13091);}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("Error",5)); -if (new_error) goto skip2098; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_set(tqbs,qbs_add(qbs_str((uint32)(get_error_err())),qbs_new_txt(" "))); -if (new_error) goto skip2098; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip2098: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13092);}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("Description: ",13)); -if (new_error) goto skip2099; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_set(tqbs,func__errormessage(NULL,0)); -if (new_error) goto skip2099; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip2099: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13093);}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("Line",4)); -if (new_error) goto skip2100; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_set(tqbs,qbs_add(qbs_str((int32)(func__errorline())),qbs_new_txt(" "))); -if (new_error) goto skip2100; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip2100: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13094);}while(r); -S_15676:; -if ((func__inclerrorline())||new_error){ -if(qbevent){evnt(13095);if(r)goto S_15676;} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("Included line",13)); -if (new_error) goto skip2101; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_set(tqbs,qbs_add(qbs_str((int32)(func__inclerrorline())),qbs_new_txt(" "))); -if (new_error) goto skip2101; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip2101: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13096);}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("Included file ",14)); -if (new_error) goto skip2102; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_set(tqbs,func__inclerrorfile()); -if (new_error) goto skip2102; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip2102: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13097);}while(r); -} -do{ -tqbs=qbs_new(0,0); -qbs_print(nothingstring,1); -skip2103: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13099);}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("Loaded source file details:",27)); -if (new_error) goto skip2104; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip2104: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13100);}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("ideerror =",10)); -if (new_error) goto skip2105; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_set(tqbs,qbs_add(qbs_str((int32)(*__LONG_IDEERROR)),qbs_new_txt(" "))); -if (new_error) goto skip2105; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_set(tqbs,qbs_new_txt_len("qberrorhappened =",17)); -if (new_error) goto skip2105; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_set(tqbs,qbs_add(qbs_str((int16)(*__INTEGER_QBERRORHAPPENED)),qbs_new_txt(" "))); -if (new_error) goto skip2105; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_set(tqbs,qbs_new_txt_len("qberrorhappenedvalue =",22)); -if (new_error) goto skip2105; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_set(tqbs,qbs_add(qbs_str((int32)(*__LONG_QBERRORHAPPENEDVALUE)),qbs_new_txt(" "))); -if (new_error) goto skip2105; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_set(tqbs,qbs_new_txt_len("linenumber =",12)); -if (new_error) goto skip2105; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_set(tqbs,qbs_add(qbs_str((int32)(*__LONG_LINENUMBER)),qbs_new_txt(" "))); -if (new_error) goto skip2105; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip2105: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13101);}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("ca$ = {",7)); -if (new_error) goto skip2106; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_set(tqbs,__STRING_CA); -if (new_error) goto skip2106; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_set(tqbs,qbs_new_txt_len("}, idecommand$ = {",18)); -if (new_error) goto skip2106; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_set(tqbs,__STRING_IDECOMMAND); -if (new_error) goto skip2106; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_set(tqbs,qbs_new_txt_len("}",1)); -if (new_error) goto skip2106; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip2106: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13102);}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("linefragment = {",16)); -if (new_error) goto skip2107; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_set(tqbs,__STRING_LINEFRAGMENT); -if (new_error) goto skip2107; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_set(tqbs,qbs_new_txt_len("}",1)); -if (new_error) goto skip2107; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip2107: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13103);}while(r); -do{ -sub_end(); -if(!qbevent)break;evnt(13104);}while(r); -} -S_15687:; -if ((*__LONG_IDEERROR)||new_error){ -if(qbevent){evnt(13107);if(r)goto S_15687;} -do{ -*__LONG_FH=func_freefile(); -if(!qbevent)break;evnt(13108);}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(13109);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FH; -if (new_error) goto skip2108; -sub_file_print(tmp_fileno,func_date(), 0, 0, 0); -if (new_error) goto skip2108; -sub_file_print(tmp_fileno,func_time(), 0, 0, 0); -if (new_error) goto skip2108; -sub_file_print(tmp_fileno,qbs_new_txt_len("--------------------",20), 0, 0, 1); -if (new_error) goto skip2108; -skip2108: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(13110);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FH; -if (new_error) goto skip2109; -sub_file_print(tmp_fileno,qbs_str((uint32)(get_error_err())), 1, 0, 1); -if (new_error) goto skip2109; -skip2109: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(13111);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FH; -if (new_error) goto skip2110; -sub_file_print(tmp_fileno,func__errormessage(NULL,0), 0, 0, 1); -if (new_error) goto skip2110; -skip2110: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(13112);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FH; -if (new_error) goto skip2111; -sub_file_print(tmp_fileno,qbs_str((int32)(func__errorline())), 1, 0, 1); -if (new_error) goto skip2111; -skip2111: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(13113);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FH; -if (new_error) goto skip2112; -sub_file_print(tmp_fileno,qbs_str((int32)(func__inclerrorline())), 1, 0, 1); -if (new_error) goto skip2112; -skip2112: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(13114);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*__LONG_FH; -if (new_error) goto skip2113; -sub_file_print(tmp_fileno,func__inclerrorfile(), 0, 0, 1); -if (new_error) goto skip2113; -skip2113: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(13115);}while(r); -do{ -sub_close(*__LONG_FH,1); -if(!qbevent)break;evnt(13116);}while(r); -do{ -qbs_set(__STRING_SENDC,func_chr( 255 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13117);}while(r); -do{ -if (!error_handling){error(20);}else{error_handling=0; error_err=0; goto LABEL_SENDCOMMAND;} -if(!qbevent)break;evnt(13118);}while(r); -} -do{ -*__LONG_QBERRORHAPPENEDVALUE=*__INTEGER_QBERRORHAPPENED; -if(!qbevent)break;evnt(13121);}while(r); -do{ -*__INTEGER_QBERRORHAPPENED= 1 ; -if(!qbevent)break;evnt(13122);}while(r); -S_15702:; -if (( 0 )||new_error){ -if(qbevent){evnt(13124);if(r)goto S_15702;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2114; -sub_file_print(tmp_fileno,qbs_new_txt_len("QB ERROR!",9), 0, 0, 1); -if (new_error) goto skip2114; -skip2114: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(13124);}while(r); -} -S_15705:; -if (( 0 )||new_error){ -if(qbevent){evnt(13125);if(r)goto S_15705;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2115; -sub_file_print(tmp_fileno,qbs_new_txt_len("ERR=",4), 0, 0, 0); -if (new_error) goto skip2115; -sub_file_print(tmp_fileno,qbs_str((uint32)(get_error_err())), 1, 0, 1); -if (new_error) goto skip2115; -skip2115: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(13125);}while(r); -} -S_15708:; -if (( 0 )||new_error){ -if(qbevent){evnt(13126);if(r)goto S_15708;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2116; -sub_file_print(tmp_fileno,qbs_new_txt_len("ERL=",4), 0, 0, 0); -if (new_error) goto skip2116; -sub_file_print(tmp_fileno,qbs_str((double)(get_error_erl())), 1, 0, 1); -if (new_error) goto skip2116; -skip2116: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(13126);}while(r); -} -S_15711:; -if ((*__LONG_IDEMODE&(-(*__LONG_QBERRORHAPPENEDVALUE>= 0 )))||new_error){ -if(qbevent){evnt(13128);if(r)goto S_15711;} -do{ -*__LONG_IDEERRORLINE=*__LONG_LINENUMBER; -if(!qbevent)break;evnt(13130);}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(13131);}while(r); -S_15714:; -if ((get_error_err())||new_error){ -if(qbevent){evnt(13132);if(r)goto S_15714;} -do{ -qbs_set(__STRING_IDEMESSAGE,qbs_add(qbs_add(__STRING_IDEMESSAGE,FUNC_STR2(&(pass2117=get_error_err()))),qbs_new_txt_len("-",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13132);}while(r); -} -S_15717:; -if ((func__errorline())||new_error){ -if(qbevent){evnt(13133);if(r)goto S_15717;} -do{ -qbs_set(__STRING_IDEMESSAGE,qbs_add(__STRING_IDEMESSAGE,FUNC_STR2(&(pass2118=func__errorline())))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13133);}while(r); -} -S_15720:; -if ((func__inclerrorline())||new_error){ -if(qbevent){evnt(13134);if(r)goto S_15720;} -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)),FUNC_STR2(&(pass2119=func__inclerrorline())))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13134);}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(13135);}while(r); -S_15724:; -if ((-(*__LONG_INCLEVEL> 0 ))||new_error){ -if(qbevent){evnt(13136);if(r)goto S_15724;} -do{ -qbs_set(__STRING_IDEMESSAGE,qbs_add(__STRING_IDEMESSAGE,__STRING_INCERROR)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13136);}while(r); -} -do{ -if (!error_handling){error(20);}else{error_handling=0; error_err=0; goto LABEL_IDEERROR;} -if(!qbevent)break;evnt(13137);}while(r); -} -S_15729:; -if ((-(*__LONG_QBERRORHAPPENEDVALUE>= 0 ))||new_error){ -if(qbevent){evnt(13140);if(r)goto S_15729;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("UNEXPECTED INTERNAL COMPILER ERROR!",35)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13141);}while(r); -do{ -goto LABEL_ERRMES; -if(!qbevent)break;evnt(13141);}while(r); -} -do{ -*__INTEGER_QBERRORCODE=get_error_err(); -if(!qbevent)break;evnt(13145);}while(r); -do{ -*__INTEGER_QBERRORLINE=qbr_float_to_long(get_error_erl()); -if(!qbevent)break;evnt(13146);}while(r); -S_15735:; -if ((-(*__LONG_QBERRORHAPPENEDVALUE== -1 ))||new_error){ -if(qbevent){evnt(13147);if(r)goto S_15735;} -do{ -if (!error_handling){error(20);}else{error_handling=0; error_err=0; goto LABEL_QBERRORHAPPENED1;} -if(!qbevent)break;evnt(13147);}while(r); -} -S_15738:; -if ((-(*__LONG_QBERRORHAPPENEDVALUE== -2 ))||new_error){ -if(qbevent){evnt(13148);if(r)goto S_15738;} -do{ -if (!error_handling){error(20);}else{error_handling=0; error_err=0; goto LABEL_QBERRORHAPPENED2;} -if(!qbevent)break;evnt(13148);}while(r); -} -S_15741:; -if ((-(*__LONG_QBERRORHAPPENEDVALUE== -3 ))||new_error){ -if(qbevent){evnt(13149);if(r)goto S_15741;} -do{ -if (!error_handling){error(20);}else{error_handling=0; error_err=0; goto LABEL_QBERRORHAPPENED3;} -if(!qbevent)break;evnt(13149);}while(r); -} -do{ -sub_end(); -if(!qbevent)break;evnt(13150);}while(r); -LABEL_ERRMES:; -if(qbevent){evnt(13152);r=0;} -S_15745:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(13153);if(r)goto S_15745;} -do{ -qbs_set(__STRING_A,__STRING_ERROR_MESSAGE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13153);}while(r); -do{ -*__LONG_ERROR_HAPPENED= 0 ; -if(!qbevent)break;evnt(13153);}while(r); -} -do{ -qbs_set(__STRING_LAYOUT,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13154);}while(r); -do{ -*__LONG_LAYOUTOK= 0 ; -if(!qbevent)break;evnt(13154);}while(r); -S_15751:; -if ((*__LONG_FORCEINCLUDINGFILE)||new_error){ -if(qbevent){evnt(13156);if(r)goto S_15751;} -S_15752:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_A,qbs_new_txt_len("END SUB/FUNCTION before",23),0)))||new_error){ -if(qbevent){evnt(13157);if(r)goto S_15752;} -do{ -qbs_set(__STRING_A,qbs_new_txt_len("SUB without END SUB",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13157);}while(r); -} -}else{ -S_15756:; -if ((-(*__LONG_INCLEVEL> 0 ))||new_error){ -if(qbevent){evnt(13159);if(r)goto S_15756;} -do{ -qbs_set(__STRING_A,qbs_add(__STRING_A,__STRING_INCERROR)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13159);}while(r); -} -} -S_15760:; -if ((*__LONG_IDEMODE)||new_error){ -if(qbevent){evnt(13162);if(r)goto S_15760;} -do{ -*__LONG_IDEERRORLINE=*__LONG_LINENUMBER; -if(!qbevent)break;evnt(13163);}while(r); -do{ -qbs_set(__STRING_IDEMESSAGE,__STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13164);}while(r); -do{ -goto LABEL_IDEERROR; -if(!qbevent)break;evnt(13165);}while(r); -} -do{ -tqbs=qbs_new(0,0); -qbs_print(nothingstring,1); -skip2120: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13168);}while(r); -S_15766:; -if ((~(*__BYTE_MONOCHROMELOGGINGMODE))||new_error){ -if(qbevent){evnt(13169);if(r)goto S_15766;} -S_15767:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)))||new_error){ -if(qbevent){evnt(13170);if(r)goto S_15767;} -do{ -qbg_sub_color( 4 ,NULL,NULL,1); -if(!qbevent)break;evnt(13171);}while(r); -}else{ -do{ -qbg_sub_color( 9 ,NULL,NULL,1); -if(!qbevent)break;evnt(13173);}while(r); -} -} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,__STRING_A); -if (new_error) goto skip2121; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip2121: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13176);}while(r); -S_15774:; -if ((~(*__BYTE_MONOCHROMELOGGINGMODE))||new_error){ -if(qbevent){evnt(13177);if(r)goto S_15774;} -do{ -qbg_sub_color( 7 ,NULL,NULL,1); -if(!qbevent)break;evnt(13177);}while(r); -} -S_15777:; -fornext_value2123= 1 ; -fornext_finalvalue2123=__STRING_LINEFRAGMENT->len; -fornext_step2123= 1 ; -if (fornext_step2123<0) fornext_step_negative2123=1; else fornext_step_negative2123=0; -if (new_error) goto fornext_error2123; -goto fornext_entrylabel2123; -while(1){ -fornext_value2123=fornext_step2123+(*__LONG_I); -fornext_entrylabel2123: -*__LONG_I=fornext_value2123; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative2123){ -if (fornext_value2123fornext_finalvalue2123) break; -} -fornext_error2123:; -if(qbevent){evnt(13178);if(r)goto S_15777;} -S_15778:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(__STRING_LINEFRAGMENT,*__LONG_I, 1 ,0|1),__STRING1_SP)))||new_error){ -if(qbevent){evnt(13179);if(r)goto S_15778;} -do{ -sub_mid(__STRING_LINEFRAGMENT,*__LONG_I, 1 ,qbs_new_txt_len(" ",1),1); -if(!qbevent)break;evnt(13179);}while(r); -} -fornext_continue_2122:; -} -fornext_exit_2122:; -S_15782:; -fornext_value2126= 1 ; -fornext_finalvalue2126=__STRING_WHOLELINE->len; -fornext_step2126= 1 ; -if (fornext_step2126<0) fornext_step_negative2126=1; else fornext_step_negative2126=0; -if (new_error) goto fornext_error2126; -goto fornext_entrylabel2126; -while(1){ -fornext_value2126=fornext_step2126+(*__LONG_I); -fornext_entrylabel2126: -*__LONG_I=fornext_value2126; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative2126){ -if (fornext_value2126fornext_finalvalue2126) break; -} -fornext_error2126:; -if(qbevent){evnt(13181);if(r)goto S_15782;} -S_15783:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(__STRING_WHOLELINE,*__LONG_I, 1 ,0|1),__STRING1_SP)))||new_error){ -if(qbevent){evnt(13182);if(r)goto S_15783;} -do{ -sub_mid(__STRING_WHOLELINE,*__LONG_I, 1 ,qbs_new_txt_len(" ",1),1); -if(!qbevent)break;evnt(13182);}while(r); -} -fornext_continue_2125:; -} -fornext_exit_2125:; -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_add(qbs_new_txt_len("Caused by (or after):",21),__STRING_LINEFRAGMENT)); -if (new_error) goto skip2128; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip2128: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13184);}while(r); -S_15788:; -if ((~(*__BYTE_MONOCHROMELOGGINGMODE))||new_error){ -if(qbevent){evnt(13185);if(r)goto S_15788;} -do{ -qbg_sub_color( 8 ,NULL,NULL,1); -if(!qbevent)break;evnt(13185);}while(r); -} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("LINE ",5)); -if (new_error) goto skip2129; -makefit(tqbs); -qbs_print(tqbs,0); -skip2129: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13186);}while(r); -S_15792:; -if ((~(*__BYTE_MONOCHROMELOGGINGMODE))||new_error){ -if(qbevent){evnt(13187);if(r)goto S_15792;} -do{ -qbg_sub_color( 15 ,NULL,NULL,1); -if(!qbevent)break;evnt(13187);}while(r); -} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_add(FUNC_STR2(__LONG_LINENUMBER),qbs_new_txt_len(":",1))); -if (new_error) goto skip2130; -makefit(tqbs); -qbs_print(tqbs,0); -skip2130: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13188);}while(r); -S_15796:; -if ((~(*__BYTE_MONOCHROMELOGGINGMODE))||new_error){ -if(qbevent){evnt(13189);if(r)goto S_15796;} -do{ -qbg_sub_color( 7 ,NULL,NULL,1); -if(!qbevent)break;evnt(13189);}while(r); -} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,__STRING_WHOLELINE); -if (new_error) goto skip2131; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip2131: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13190);}while(r); -S_15800:; -if ((*__LONG_CONSOLEMODE)||new_error){ -if(qbevent){evnt(13192);if(r)goto S_15800;} -do{ -if(qbevent){evnt(13192);} -exit_code= 1 ; -if (sub_gl_called) error(271); -close_program=1; -end(); -if(!qbevent)break;evnt(13192);}while(r); -} -do{ -if(qbevent){evnt(13193);} -exit_code= 1 ; -sub_end(); -if(!qbevent)break;evnt(13193);}while(r); -sub_end(); -return; -} -qbs* FUNC_PARSECMDLINEARGS(){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data1.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -S_15804:; -fornext_value2133= 1 ; -fornext_finalvalue2133=func__commandcount(); -fornext_step2133= 1 ; -if (fornext_step2133<0) fornext_step_negative2133=1; else fornext_step_negative2133=0; -if (new_error) goto fornext_error2133; -goto fornext_entrylabel2133; -while(1){ -fornext_value2133=fornext_step2133+(*_FUNC_PARSECMDLINEARGS_LONG_I); -fornext_entrylabel2133: -*_FUNC_PARSECMDLINEARGS_LONG_I=fornext_value2133; -if (fornext_step_negative2133){ -if (fornext_value2133fornext_finalvalue2133) break; -} -fornext_error2133:; -if(qbevent){evnt(13199);if(r)goto S_15804;} -do{ -qbs_set(_FUNC_PARSECMDLINEARGS_STRING_TOKEN,func_command(*_FUNC_PARSECMDLINEARGS_LONG_I,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13200);}while(r); -S_15806:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_lcase(_FUNC_PARSECMDLINEARGS_STRING_TOKEN),qbs_new_txt_len("/?",2)))|(qbs_equal(qbs_lcase(_FUNC_PARSECMDLINEARGS_STRING_TOKEN),qbs_new_txt_len("--help",6)))|(qbs_equal(qbs_lcase(_FUNC_PARSECMDLINEARGS_STRING_TOKEN),qbs_new_txt_len("/help",5)))))||new_error){ -if(qbevent){evnt(13201);if(r)goto S_15806;} -do{ -qbs_set(_FUNC_PARSECMDLINEARGS_STRING_TOKEN,qbs_new_txt_len("-?",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13201);}while(r); -} -S_15809:; -qbs_set(sc_2134,qbs_lcase(qbs_left(_FUNC_PARSECMDLINEARGS_STRING_TOKEN, 2 ))); -qbs_cleanup(qbs_tmp_base,0); -if(qbevent){evnt(13202);if(r)goto S_15809;} -S_15810:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2134,qbs_new_txt_len("-?",2))))||new_error){ -if(qbevent){evnt(13203);if(r)goto S_15810;} -do{ -sub__dest(func__console()); -if(!qbevent)break;evnt(13204);}while(r); -S_15812:; -if ((-(*__BYTE_QB64VERSIONPRINTED== 0 ))||new_error){ -if(qbevent){evnt(13205);if(r)goto S_15812;} -do{ -*__BYTE_QB64VERSIONPRINTED= -1 ; -if(!qbevent)break;evnt(13205);}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 (new_error) goto skip2135; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip2135: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13205);}while(r); -} -do{ -tqbs=qbs_new(0,0); -qbs_print(nothingstring,1); -skip2136: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13206);}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("Usage: qb64pe [switches] ",31)); -if (new_error) goto skip2137; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip2137: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13207);}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_print(nothingstring,1); -skip2138: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13208);}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("Options:",8)); -if (new_error) goto skip2139; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip2139: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13209);}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len(" Source file to load",45)); -if (new_error) goto skip2140; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip2140: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13210);}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len(" -v Print version",39)); -if (new_error) goto skip2141; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip2141: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13211);}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len(" -c Compile instead of edit",49)); -if (new_error) goto skip2142; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip2142: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13212);}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len(" -o Write output executable to ",66)); -if (new_error) goto skip2143; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip2143: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13213);}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len(" -x Compile instead of edit and output the result to the",78)); -if (new_error) goto skip2144; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip2144: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13214);}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len(" console",36)); -if (new_error) goto skip2145; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip2145: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13215);}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len(" -w Show warnings",39)); -if (new_error) goto skip2146; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip2146: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13216);}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len(" -q Quiet mode (does not inhibit warnings or errors)",74)); -if (new_error) goto skip2147; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip2147: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13217);}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len(" -m Do not colorize compiler output (monochrome mode)",75)); -if (new_error) goto skip2148; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip2148: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13218);}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len(" -e Enable OPTION _EXPLICIT, making variable declaration",78)); -if (new_error) goto skip2149; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip2149: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13219);}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len(" mandatory (per-compilation; doesn't affect the",75)); -if (new_error) goto skip2150; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip2150: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13220);}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len(" source file or global settings)",60)); -if (new_error) goto skip2151; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip2151: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13221);}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len(" -s[:switch=true/false] View/edit compiler settings",53)); -if (new_error) goto skip2152; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip2152: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13222);}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len(" -l: Start the IDE at the specified line number",68)); -if (new_error) goto skip2153; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip2153: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13223);}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len(" -p Purge all pre-compiled content first",62)); -if (new_error) goto skip2154; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip2154: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13224);}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len(" -z Generate C code without compiling to executable",73)); -if (new_error) 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(13225);}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len(" -f[:setting=value] compiler settings to use",50)); -if (new_error) 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(13226);}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_print(nothingstring,1); -skip2157: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13227);}while(r); -do{ -if (sub_gl_called) error(271); -close_program=1; -end(); -if(!qbevent)break;evnt(13228);}while(r); -sc_ec_43_end:; -goto sc_2134_end; -} -S_15839:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2134,qbs_new_txt_len("-v",2))))||new_error){ -if(qbevent){evnt(13230);if(r)goto S_15839;} -do{ -sub__dest(func__console()); -if(!qbevent)break;evnt(13231);}while(r); -S_15841:; -if ((-(*__BYTE_QB64VERSIONPRINTED== 0 ))||new_error){ -if(qbevent){evnt(13232);if(r)goto S_15841;} -do{ -*__BYTE_QB64VERSIONPRINTED= -1 ; -if(!qbevent)break;evnt(13232);}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 (new_error) goto skip2158; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip2158: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13232);}while(r); -} -do{ -if (sub_gl_called) error(271); -close_program=1; -end(); -if(!qbevent)break;evnt(13233);}while(r); -sc_ec_44_end:; -goto sc_2134_end; -} -S_15846:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2134,qbs_new_txt_len("-u",2))))||new_error){ -if(qbevent){evnt(13235);if(r)goto S_15846;} -do{ -*__LONG_HELP_RECACHING= 2 ; -if(!qbevent)break;evnt(13236);}while(r); -do{ -*__LONG_HELP_IGNORECACHE= 1 ; -if(!qbevent)break;evnt(13236);}while(r); -S_15849:; -if ((FUNC_IDEUPDATEHELPBOX())||new_error){ -if(qbevent){evnt(13237);if(r)goto S_15849;} -do{ -sub__dest(func__console()); -if(!qbevent)break;evnt(13238);}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("Update failed: Can't make connection to Wiki.",45)); -if (new_error) 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(13239);}while(r); -do{ -if(qbevent){evnt(13240);} -exit_code= 1 ; -if (sub_gl_called) error(271); -close_program=1; -end(); -if(!qbevent)break;evnt(13240);}while(r); -} -do{ -if (sub_gl_called) error(271); -close_program=1; -end(); -if(!qbevent)break;evnt(13242);}while(r); -sc_ec_45_end:; -goto sc_2134_end; -} -S_15855:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2134,qbs_new_txt_len("-c",2))))||new_error){ -if(qbevent){evnt(13243);if(r)goto S_15855;} -do{ -*__LONG_NOIDEMODE= 1 ; -if(!qbevent)break;evnt(13244);}while(r); -do{ -*_FUNC_PARSECMDLINEARGS_LONG_CMDLINESWITCH= -1 ; -if(!qbevent)break;evnt(13245);}while(r); -sc_ec_46_end:; -goto sc_2134_end; -} -S_15858:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2134,qbs_new_txt_len("-o",2))))||new_error){ -if(qbevent){evnt(13246);if(r)goto S_15858;} -S_15859:; -if ((qbs_cleanup(qbs_tmp_base,-(((int32)(func_command(*_FUNC_PARSECMDLINEARGS_LONG_I+ 1 ,0|1))->len)> 0 )))||new_error){ -if(qbevent){evnt(13247);if(r)goto S_15859;} -do{ -qbs_set(__STRING_OUTPUTFILE_CMD,func_command(*_FUNC_PARSECMDLINEARGS_LONG_I+ 1 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13247);}while(r); -do{ -*_FUNC_PARSECMDLINEARGS_LONG_I=*_FUNC_PARSECMDLINEARGS_LONG_I+ 1 ; -if(!qbevent)break;evnt(13247);}while(r); -} -do{ -*_FUNC_PARSECMDLINEARGS_LONG_CMDLINESWITCH= -1 ; -if(!qbevent)break;evnt(13248);}while(r); -sc_ec_47_end:; -goto sc_2134_end; -} -S_15864:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2134,qbs_new_txt_len("-x",2))))||new_error){ -if(qbevent){evnt(13249);if(r)goto S_15864;} -do{ -*__LONG_CONSOLEMODE= 1 ; -if(!qbevent)break;evnt(13250);}while(r); -do{ -*__LONG_NOIDEMODE= 1 ; -if(!qbevent)break;evnt(13251);}while(r); -do{ -*_FUNC_PARSECMDLINEARGS_LONG_CMDLINESWITCH= -1 ; -if(!qbevent)break;evnt(13252);}while(r); -sc_ec_48_end:; -goto sc_2134_end; -} -S_15868:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2134,qbs_new_txt_len("-w",2))))||new_error){ -if(qbevent){evnt(13253);if(r)goto S_15868;} -do{ -*__BYTE_SHOWWARNINGS= -1 ; -if(!qbevent)break;evnt(13254);}while(r); -do{ -*_FUNC_PARSECMDLINEARGS_LONG_CMDLINESWITCH= -1 ; -if(!qbevent)break;evnt(13255);}while(r); -sc_ec_49_end:; -goto sc_2134_end; -} -S_15871:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2134,qbs_new_txt_len("-q",2))))||new_error){ -if(qbevent){evnt(13256);if(r)goto S_15871;} -do{ -*__BYTE_QUIETMODE= -1 ; -if(!qbevent)break;evnt(13257);}while(r); -do{ -*_FUNC_PARSECMDLINEARGS_LONG_CMDLINESWITCH= -1 ; -if(!qbevent)break;evnt(13258);}while(r); -sc_ec_50_end:; -goto sc_2134_end; -} -S_15874:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2134,qbs_new_txt_len("-m",2))))||new_error){ -if(qbevent){evnt(13259);if(r)goto S_15874;} -do{ -*__BYTE_MONOCHROMELOGGINGMODE= -1 ; -if(!qbevent)break;evnt(13260);}while(r); -do{ -*_FUNC_PARSECMDLINEARGS_LONG_CMDLINESWITCH= -1 ; -if(!qbevent)break;evnt(13261);}while(r); -sc_ec_51_end:; -goto sc_2134_end; -} -S_15877:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2134,qbs_new_txt_len("-e",2))))||new_error){ -if(qbevent){evnt(13262);if(r)goto S_15877;} -do{ -*__BYTE_OPTIONEXPLICIT_CMD= -1 ; -if(!qbevent)break;evnt(13263);}while(r); -do{ -*_FUNC_PARSECMDLINEARGS_LONG_CMDLINESWITCH= -1 ; -if(!qbevent)break;evnt(13264);}while(r); -sc_ec_52_end:; -goto sc_2134_end; -} -S_15880:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2134,qbs_new_txt_len("-s",2))))||new_error){ -if(qbevent){evnt(13265);if(r)goto S_15880;} -do{ -*_FUNC_PARSECMDLINEARGS_LONG_SETTINGSMODE= -1 ; -if(!qbevent)break;evnt(13266);}while(r); -do{ -sub__dest(func__console()); -if(!qbevent)break;evnt(13267);}while(r); -S_15883:; -if ((-(*__BYTE_QB64VERSIONPRINTED== 0 ))||new_error){ -if(qbevent){evnt(13268);if(r)goto S_15883;} -do{ -*__BYTE_QB64VERSIONPRINTED= -1 ; -if(!qbevent)break;evnt(13268);}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 (new_error) 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(13268);}while(r); -} -S_15887:; -qbs_set(sc_2161,qbs_lcase(func_mid(_FUNC_PARSECMDLINEARGS_STRING_TOKEN, 3 ,NULL,0))); -qbs_cleanup(qbs_tmp_base,0); -if(qbevent){evnt(13269);if(r)goto S_15887;} -S_15888:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2161,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(13270);if(r)goto S_15888;} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("debuginfo = ",16)); -if (new_error) goto skip2162; -makefit(tqbs); -qbs_print(tqbs,0); -skip2162: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13271);}while(r); -S_15890:; -if ((*__LONG_IDEDEBUGINFO)||new_error){ -if(qbevent){evnt(13272);if(r)goto S_15890;} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("true",4)); -if (new_error) 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(13272);}while(r); -}else{ -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("false",5)); -if (new_error) 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(13272);}while(r); -} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("exewithsource = ",16)); -if (new_error) goto skip2165; -makefit(tqbs); -qbs_print(tqbs,0); -skip2165: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13273);}while(r); -S_15896:; -if ((*__BYTE_SAVEEXEWITHSOURCE)||new_error){ -if(qbevent){evnt(13274);if(r)goto S_15896;} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("true",4)); -if (new_error) goto skip2166; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip2166: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13274);}while(r); -}else{ -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("false",5)); -if (new_error) 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(13274);}while(r); -} -do{ -if (sub_gl_called) error(271); -close_program=1; -end(); -if(!qbevent)break;evnt(13275);}while(r); -sc_ec_53_end:; -goto sc_2161_end; -} -S_15902:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2161,qbs_new_txt_len(":exewithsource",14))))||new_error){ -if(qbevent){evnt(13276);if(r)goto S_15902;} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("exewithsource = ",16)); -if (new_error) goto skip2168; -makefit(tqbs); -qbs_print(tqbs,0); -skip2168: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13277);}while(r); -S_15904:; -if ((*__BYTE_SAVEEXEWITHSOURCE)||new_error){ -if(qbevent){evnt(13278);if(r)goto S_15904;} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("true",4)); -if (new_error) 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(13278);}while(r); -}else{ -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("false",5)); -if (new_error) 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(13278);}while(r); -} -do{ -if (sub_gl_called) error(271); -close_program=1; -end(); -if(!qbevent)break;evnt(13279);}while(r); -sc_ec_54_end:; -goto sc_2161_end; -} -S_15910:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2161,qbs_new_txt_len(":exewithsource=true",19))))||new_error){ -if(qbevent){evnt(13280);if(r)goto S_15910;} -do{ -SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("SaveExeWithSource",17),qbs_new_txt_len("True",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13281);}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("exewithsource = true",20)); -if (new_error) goto skip2171; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip2171: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13282);}while(r); -do{ -*__BYTE_SAVEEXEWITHSOURCE= -1 ; -if(!qbevent)break;evnt(13283);}while(r); -sc_ec_55_end:; -goto sc_2161_end; -} -S_15914:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2161,qbs_new_txt_len(":exewithsource=false",20))))||new_error){ -if(qbevent){evnt(13284);if(r)goto S_15914;} -do{ -SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("SaveExeWithSource",17),qbs_new_txt_len("False",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13285);}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("exewithsource = false",21)); -if (new_error) goto skip2172; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip2172: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13286);}while(r); -do{ -*__BYTE_SAVEEXEWITHSOURCE= 0 ; -if(!qbevent)break;evnt(13287);}while(r); -sc_ec_56_end:; -goto sc_2161_end; -} -S_15918:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2161,qbs_new_txt_len(":debuginfo",10))))||new_error){ -if(qbevent){evnt(13288);if(r)goto S_15918;} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("debuginfo = ",12)); -if (new_error) goto skip2173; -makefit(tqbs); -qbs_print(tqbs,0); -skip2173: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13289);}while(r); -S_15920:; -if ((*__LONG_IDEDEBUGINFO)||new_error){ -if(qbevent){evnt(13290);if(r)goto S_15920;} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("true",4)); -if (new_error) goto skip2174; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip2174: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13290);}while(r); -}else{ -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("false",5)); -if (new_error) goto skip2175; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip2175: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13290);}while(r); -} -do{ -if (sub_gl_called) error(271); -close_program=1; -end(); -if(!qbevent)break;evnt(13291);}while(r); -sc_ec_57_end:; -goto sc_2161_end; -} -S_15926:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2161,qbs_new_txt_len(":debuginfo=true",15))))||new_error){ -if(qbevent){evnt(13292);if(r)goto S_15926;} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("debuginfo = true",16)); -if (new_error) goto skip2176; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip2176: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13293);}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("DebugInfo",9),qbs_add(qbs_new_txt_len("True",4),_FUNC_PARSECMDLINEARGS_STRING_DEBUGINFOINIWARNING)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13294);}while(r); -do{ -*__LONG_IDEDEBUGINFO= -1 ; -if(!qbevent)break;evnt(13295);}while(r); -do{ -*__LONG_INCLUDE_GDB_DEBUGGING_INFO=*__LONG_IDEDEBUGINFO; -if(!qbevent)break;evnt(13296);}while(r); -do{ -SUB_PURGETEMPORARYBUILDFILES(__STRING_OS,&(pass2177=*__LONG_MACOSX)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13297);}while(r); -sc_ec_58_end:; -goto sc_2161_end; -} -S_15932:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2161,qbs_new_txt_len(":debuginfo=false",16))))||new_error){ -if(qbevent){evnt(13298);if(r)goto S_15932;} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("debuginfo = false",17)); -if (new_error) goto skip2178; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip2178: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13299);}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("DebugInfo",9),qbs_add(qbs_new_txt_len("False",5),_FUNC_PARSECMDLINEARGS_STRING_DEBUGINFOINIWARNING)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13300);}while(r); -do{ -*__LONG_IDEDEBUGINFO= 0 ; -if(!qbevent)break;evnt(13301);}while(r); -do{ -*__LONG_INCLUDE_GDB_DEBUGGING_INFO=*__LONG_IDEDEBUGINFO; -if(!qbevent)break;evnt(13302);}while(r); -do{ -SUB_PURGETEMPORARYBUILDFILES(__STRING_OS,&(pass2179=*__LONG_MACOSX)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13303);}while(r); -sc_ec_59_end:; -goto sc_2161_end; -} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("Invalid settings switch: ",25)); -if (new_error) goto skip2180; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_set(tqbs,_FUNC_PARSECMDLINEARGS_STRING_TOKEN); -if (new_error) goto skip2180; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip2180: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13305);}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_print(nothingstring,1); -skip2181: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13306);}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("Valid switches:",15)); -if (new_error) goto skip2182; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip2182: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13307);}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len(" -s:debuginfo=true/false (Embed C++ debug info into .EXE)",64)); -if (new_error) goto skip2183; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip2183: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13308);}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len(" -s:exewithsource=true/false (Save .EXE in the source folder)",64)); -if (new_error) goto skip2184; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip2184: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13309);}while(r); -do{ -if(qbevent){evnt(13310);} -exit_code= 1 ; -if (sub_gl_called) error(271); -close_program=1; -end(); -if(!qbevent)break;evnt(13310);}while(r); -sc_2161_end:; -do{ -sub__dest( 0 ); -if(!qbevent)break;evnt(13312);}while(r); -sc_ec_60_end:; -goto sc_2134_end; -} -S_15947:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2134,qbs_new_txt_len("-l",2))))||new_error){ -if(qbevent){evnt(13313);if(r)goto S_15947;} -S_15948:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_PARSECMDLINEARGS_STRING_TOKEN, 3 , 1 ,0|1),qbs_new_txt_len(":",1))))||new_error){ -if(qbevent){evnt(13314);if(r)goto S_15948;} -do{ -*__LONG_IDESTARTATLINE=qbr(func_val(func_mid(_FUNC_PARSECMDLINEARGS_STRING_TOKEN, 4 ,NULL,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13314);}while(r); -} -do{ -*_FUNC_PARSECMDLINEARGS_LONG_CMDLINESWITCH= -1 ; -if(!qbevent)break;evnt(13315);}while(r); -sc_ec_61_end:; -goto sc_2134_end; -} -S_15952:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2134,qbs_new_txt_len("-p",2))))||new_error){ -if(qbevent){evnt(13316);if(r)goto S_15952;} -do{ -SUB_PURGETEMPORARYBUILDFILES(__STRING_OS,&(pass2185=*__LONG_MACOSX)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13317);}while(r); -do{ -*_FUNC_PARSECMDLINEARGS_LONG_CMDLINESWITCH= -1 ; -if(!qbevent)break;evnt(13318);}while(r); -sc_ec_62_end:; -goto sc_2134_end; -} -S_15955:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2134,qbs_new_txt_len("-z",2))))||new_error){ -if(qbevent){evnt(13319);if(r)goto S_15955;} -do{ -*__LONG_NO_C_COMPILE_MODE= 1 ; -if(!qbevent)break;evnt(13320);}while(r); -do{ -*__LONG_CONSOLEMODE= 1 ; -if(!qbevent)break;evnt(13321);}while(r); -do{ -*__LONG_NOIDEMODE= 1 ; -if(!qbevent)break;evnt(13322);}while(r); -do{ -*_FUNC_PARSECMDLINEARGS_LONG_CMDLINESWITCH= -1 ; -if(!qbevent)break;evnt(13323);}while(r); -sc_ec_63_end:; -goto sc_2134_end; -} -S_15960:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2134,qbs_new_txt_len("-f",2))))||new_error){ -if(qbevent){evnt(13325);if(r)goto S_15960;} -do{ -qbs_set(_FUNC_PARSECMDLINEARGS_STRING_TOKEN,func_mid(_FUNC_PARSECMDLINEARGS_STRING_TOKEN, 3 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13326);}while(r); -S_15962:; -qbs_set(sc_2186,qbs_lcase(qbs_left(_FUNC_PARSECMDLINEARGS_STRING_TOKEN,func_instr(NULL,_FUNC_PARSECMDLINEARGS_STRING_TOKEN,qbs_new_txt_len("=",1),0)- 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(qbevent){evnt(13328);if(r)goto S_15962;} -S_15963:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2186,qbs_new_txt_len(":useminiaudio",13))))||new_error){ -if(qbevent){evnt(13329);if(r)goto S_15963;} -S_15964:; -if ((qbs_cleanup(qbs_tmp_base,~(FUNC_PARSEBOOLEANSETTING(_FUNC_PARSECMDLINEARGS_STRING_TOKEN,__ULONG_USEMINIAUDIOBACKEND))))||new_error){ -if(qbevent){evnt(13330);if(r)goto S_15964;} -do{ -SUB_PRINTTEMPORARYSETTINGSHELPANDEXIT(FUNC_INVALIDSETTINGERROR(_FUNC_PARSECMDLINEARGS_STRING_TOKEN)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13330);}while(r); -} -sc_ec_64_end:; -goto sc_2186_end; -} -S_15967:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2186,qbs_new_txt_len(":optimizecppprogram",19))))||new_error){ -if(qbevent){evnt(13332);if(r)goto S_15967;} -S_15968:; -if ((qbs_cleanup(qbs_tmp_base,~(FUNC_PARSEBOOLEANSETTING(_FUNC_PARSECMDLINEARGS_STRING_TOKEN,__ULONG_OPTIMIZECPPPROGRAM))))||new_error){ -if(qbevent){evnt(13333);if(r)goto S_15968;} -do{ -SUB_PRINTTEMPORARYSETTINGSHELPANDEXIT(FUNC_INVALIDSETTINGERROR(_FUNC_PARSECMDLINEARGS_STRING_TOKEN)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13333);}while(r); -} -sc_ec_65_end:; -goto sc_2186_end; -} -S_15971:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2186,qbs_new_txt_len(":stripdebugsymbols",18))))||new_error){ -if(qbevent){evnt(13335);if(r)goto S_15971;} -S_15972:; -if ((qbs_cleanup(qbs_tmp_base,~(FUNC_PARSEBOOLEANSETTING(_FUNC_PARSECMDLINEARGS_STRING_TOKEN,__ULONG_STRIPDEBUGSYMBOLS))))||new_error){ -if(qbevent){evnt(13336);if(r)goto S_15972;} -do{ -SUB_PRINTTEMPORARYSETTINGSHELPANDEXIT(FUNC_INVALIDSETTINGERROR(_FUNC_PARSECMDLINEARGS_STRING_TOKEN)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13336);}while(r); -} -sc_ec_66_end:; -goto sc_2186_end; -} -S_15975:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2186,qbs_new_txt_len(":extracppflags",14))))||new_error){ -if(qbevent){evnt(13338);if(r)goto S_15975;} -S_15976:; -if ((qbs_cleanup(qbs_tmp_base,~(FUNC_PARSESTRINGSETTING(_FUNC_PARSECMDLINEARGS_STRING_TOKEN,__STRING_EXTRACPPFLAGS))))||new_error){ -if(qbevent){evnt(13339);if(r)goto S_15976;} -do{ -SUB_PRINTTEMPORARYSETTINGSHELPANDEXIT(FUNC_INVALIDSETTINGERROR(_FUNC_PARSECMDLINEARGS_STRING_TOKEN)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13339);}while(r); -} -sc_ec_67_end:; -goto sc_2186_end; -} -S_15979:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2186,qbs_new_txt_len(":extralinkerflags",17))))||new_error){ -if(qbevent){evnt(13341);if(r)goto S_15979;} -S_15980:; -if ((qbs_cleanup(qbs_tmp_base,~(FUNC_PARSESTRINGSETTING(_FUNC_PARSECMDLINEARGS_STRING_TOKEN,__STRING_EXTRALINKERFLAGS))))||new_error){ -if(qbevent){evnt(13342);if(r)goto S_15980;} -do{ -SUB_PRINTTEMPORARYSETTINGSHELPANDEXIT(FUNC_INVALIDSETTINGERROR(_FUNC_PARSECMDLINEARGS_STRING_TOKEN)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13342);}while(r); -} -sc_ec_68_end:; -goto sc_2186_end; -} -S_15983:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2186,qbs_new_txt_len(":maxcompilerprocesses",21))))||new_error){ -if(qbevent){evnt(13344);if(r)goto S_15983;} -S_15984:; -if ((qbs_cleanup(qbs_tmp_base,~(FUNC_PARSELONGSETTING(_FUNC_PARSECMDLINEARGS_STRING_TOKEN,__ULONG_MAXPARALLELPROCESSES))))||new_error){ -if(qbevent){evnt(13345);if(r)goto S_15984;} -do{ -SUB_PRINTTEMPORARYSETTINGSHELPANDEXIT(FUNC_INVALIDSETTINGERROR(_FUNC_PARSECMDLINEARGS_STRING_TOKEN)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13345);}while(r); -} -S_15987:; -if ((-(*__ULONG_MAXPARALLELPROCESSES== 0 ))||new_error){ -if(qbevent){evnt(13346);if(r)goto S_15987;} -do{ -SUB_PRINTTEMPORARYSETTINGSHELPANDEXIT(qbs_new_txt_len("MaxCompilerProcesses must be more than zero",43)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13346);}while(r); -} -sc_ec_69_end:; -goto sc_2186_end; -} -S_15990:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2186,qbs_new_txt_len(":generatelicensefile",20))))||new_error){ -if(qbevent){evnt(13348);if(r)goto S_15990;} -S_15991:; -if ((qbs_cleanup(qbs_tmp_base,~(FUNC_PARSEBOOLEANSETTING(_FUNC_PARSECMDLINEARGS_STRING_TOKEN,__ULONG_GENERATELICENSEFILE))))||new_error){ -if(qbevent){evnt(13349);if(r)goto S_15991;} -do{ -SUB_PRINTTEMPORARYSETTINGSHELPANDEXIT(FUNC_INVALIDSETTINGERROR(_FUNC_PARSECMDLINEARGS_STRING_TOKEN)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13349);}while(r); -} -sc_ec_70_end:; -goto sc_2186_end; -} -do{ -SUB_PRINTTEMPORARYSETTINGSHELPANDEXIT(qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13352);}while(r); -sc_2186_end:; -sc_ec_71_end:; -goto sc_2134_end; -} -S_15998:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_PARSECMDLINEARGS_STRING_PASSEDFILENAME,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(13356);if(r)goto S_15998;} -do{ -qbs_set(_FUNC_PARSECMDLINEARGS_STRING_PASSEDFILENAME,_FUNC_PARSECMDLINEARGS_STRING_TOKEN); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13356);}while(r); -} -sc_2134_end:; -fornext_continue_2132:; -} -fornext_exit_2132:; -S_16003:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_PARSECMDLINEARGS_STRING_PASSEDFILENAME->len))||new_error){ -if(qbevent){evnt(13360);if(r)goto S_16003;} -do{ -qbs_set(_FUNC_PARSECMDLINEARGS_STRING_PARSECMDLINEARGS,_FUNC_PARSECMDLINEARGS_STRING_PASSEDFILENAME); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13361);}while(r); -}else{ -S_16006:; -if (((-(*_FUNC_PARSECMDLINEARGS_LONG_CMDLINESWITCH== 0 ))&(-(*_FUNC_PARSECMDLINEARGS_LONG_SETTINGSMODE== -1 )))||new_error){ -if(qbevent){evnt(13363);if(r)goto S_16006;} -do{ -if (sub_gl_called) error(271); -close_program=1; -end(); -if(!qbevent)break;evnt(13363);}while(r); -} -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free1.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_PARSECMDLINEARGS_STRING_PARSECMDLINEARGS);return _FUNC_PARSECMDLINEARGS_STRING_PARSECMDLINEARGS; -} -qbs* FUNC_INVALIDSETTINGERROR(qbs*_FUNC_INVALIDSETTINGERROR_STRING_TOKEN){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data2.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -qbs_set(_FUNC_INVALIDSETTINGERROR_STRING_INVALIDSETTINGERROR,qbs_add(qbs_new_txt_len("Invalid temporary setting switch: ",34),FUNC_ADDQUOTES(_FUNC_INVALIDSETTINGERROR_STRING_TOKEN))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13368);}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free2.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_INVALIDSETTINGERROR_STRING_INVALIDSETTINGERROR);return _FUNC_INVALIDSETTINGERROR_STRING_INVALIDSETTINGERROR; -} -void SUB_PRINTTEMPORARYSETTINGSHELPANDEXIT(qbs*_SUB_PRINTTEMPORARYSETTINGSHELPANDEXIT_STRING_ERRSTR){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data3.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -sub__dest(func__console()); -if(!qbevent)break;evnt(13372);}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 (new_error) goto skip2190; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip2190: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13374);}while(r); -S_16013:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_PRINTTEMPORARYSETTINGSHELPANDEXIT_STRING_ERRSTR,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(13376);if(r)goto S_16013;} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("Error: ",7)); -if (new_error) goto skip2191; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_set(tqbs,_SUB_PRINTTEMPORARYSETTINGSHELPANDEXIT_STRING_ERRSTR); -if (new_error) 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(13377);}while(r); -} -do{ -tqbs=qbs_new(0,0); -qbs_print(nothingstring,1); -skip2192: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13380);}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("Note: Defaults can be changed by IDE settings",45)); -if (new_error) goto skip2193; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip2193: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13381);}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_print(nothingstring,1); -skip2194: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13382);}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("Valid settings:",15)); -if (new_error) goto skip2195; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip2195: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13383);}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len(" -f:UseMiniAudio=[true|false] (Use Miniaudio Audio backend, default true)",84)); -if (new_error) goto skip2196; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip2196: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13384);}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len(" -f:OptimizeCppProgram=[true|false] (Use C++ Optimization flag, default false)",83)); -if (new_error) goto skip2197; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip2197: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13385);}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len(" -f:StripDebugSymbols=[true|false] (Stirp C++ debug symbols, default true)",80)); -if (new_error) goto skip2198; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip2198: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13386);}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len(" -f:ExtraCppFlags=[string] (Extra flags to pass to the C++ compiler)",82)); -if (new_error) goto skip2199; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip2199: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13387);}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len(" -f:ExtraLinkerFlags=[string] (Extra flags to pass at link time)",75)); -if (new_error) goto skip2200; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip2200: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13388);}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len(" -f:MaxCompilerProcesses=[integer] (Max C++ compiler processes to start in parallel)",90)); -if (new_error) goto skip2201; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip2201: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13389);}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len(" -f:GenerateLicenseFile=[true|false] (Produce a license.txt file for the program)",85)); -if (new_error) goto skip2202; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip2202: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13390);}while(r); -do{ -if (sub_gl_called) error(271); -close_program=1; -end(); -if(!qbevent)break;evnt(13392);}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free3.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -int32 FUNC_PARSEBOOLEANSETTING(qbs*_FUNC_PARSEBOOLEANSETTING_STRING_TOKEN,uint32*_FUNC_PARSEBOOLEANSETTING_ULONG_SETTING){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data4.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -if(!qbevent)break;evnt(13396);}while(r); -do{ -if(!qbevent)break;evnt(13397);}while(r); -do{ -*_FUNC_PARSEBOOLEANSETTING_LONG_EQUALS=func_instr(NULL,_FUNC_PARSEBOOLEANSETTING_STRING_TOKEN,qbs_new_txt_len("=",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13399);}while(r); -S_16031:; -if ((-(*_FUNC_PARSEBOOLEANSETTING_LONG_EQUALS== -1 ))||new_error){ -if(qbevent){evnt(13400);if(r)goto S_16031;} -do{ -*_FUNC_PARSEBOOLEANSETTING_LONG_PARSEBOOLEANSETTING= 0 ; -if(!qbevent)break;evnt(13400);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(13400);}while(r); -} -do{ -qbs_set(_FUNC_PARSEBOOLEANSETTING_STRING_VALUE,qbs_lcase(func_mid(_FUNC_PARSEBOOLEANSETTING_STRING_TOKEN,*_FUNC_PARSEBOOLEANSETTING_LONG_EQUALS+ 1 ,NULL,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13402);}while(r); -S_16036:; -if(qbevent){evnt(13404);if(r)goto S_16036;} -S_16037:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_PARSEBOOLEANSETTING_STRING_VALUE,qbs_new_txt_len("true",4))||qbs_equal(_FUNC_PARSEBOOLEANSETTING_STRING_VALUE,qbs_new_txt_len("on",2))||qbs_equal(_FUNC_PARSEBOOLEANSETTING_STRING_VALUE,qbs_new_txt_len("yes",3))))||new_error){ -if(qbevent){evnt(13405);if(r)goto S_16037;} -do{ -*_FUNC_PARSEBOOLEANSETTING_ULONG_SETTING= -1 ; -if(!qbevent)break;evnt(13406);}while(r); -do{ -*_FUNC_PARSEBOOLEANSETTING_LONG_PARSEBOOLEANSETTING= -1 ; -if(!qbevent)break;evnt(13407);}while(r); -sc_ec_72_end:; -goto sc_2204_end; -} -S_16040:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_PARSEBOOLEANSETTING_STRING_VALUE,qbs_new_txt_len("false",5))||qbs_equal(_FUNC_PARSEBOOLEANSETTING_STRING_VALUE,qbs_new_txt_len("off",3))||qbs_equal(_FUNC_PARSEBOOLEANSETTING_STRING_VALUE,qbs_new_txt_len("no",2))))||new_error){ -if(qbevent){evnt(13409);if(r)goto S_16040;} -do{ -*_FUNC_PARSEBOOLEANSETTING_ULONG_SETTING= 0 ; -if(!qbevent)break;evnt(13410);}while(r); -do{ -*_FUNC_PARSEBOOLEANSETTING_LONG_PARSEBOOLEANSETTING= -1 ; -if(!qbevent)break;evnt(13411);}while(r); -sc_ec_73_end:; -goto sc_2204_end; -} -do{ -*_FUNC_PARSEBOOLEANSETTING_LONG_PARSEBOOLEANSETTING= 0 ; -if(!qbevent)break;evnt(13414);}while(r); -sc_2204_end:; -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free4.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -return *_FUNC_PARSEBOOLEANSETTING_LONG_PARSEBOOLEANSETTING; -} -int32 FUNC_PARSELONGSETTING(qbs*_FUNC_PARSELONGSETTING_STRING_TOKEN,uint32*_FUNC_PARSELONGSETTING_ULONG_SETTING){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data5.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -if(!qbevent)break;evnt(13419);}while(r); -do{ -*_FUNC_PARSELONGSETTING_LONG_EQUALS=func_instr(NULL,_FUNC_PARSELONGSETTING_STRING_TOKEN,qbs_new_txt_len("=",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13421);}while(r); -S_16048:; -if ((-(*_FUNC_PARSELONGSETTING_LONG_EQUALS== -1 ))||new_error){ -if(qbevent){evnt(13422);if(r)goto S_16048;} -do{ -*_FUNC_PARSELONGSETTING_LONG_PARSELONGSETTING= 0 ; -if(!qbevent)break;evnt(13422);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(13422);}while(r); -} -do{ -*_FUNC_PARSELONGSETTING_ULONG_SETTING=qbr(func_val(func_mid(_FUNC_PARSELONGSETTING_STRING_TOKEN,*_FUNC_PARSELONGSETTING_LONG_EQUALS+ 1 ,NULL,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13424);}while(r); -do{ -*_FUNC_PARSELONGSETTING_LONG_PARSELONGSETTING= -1 ; -if(!qbevent)break;evnt(13426);}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free5.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -return *_FUNC_PARSELONGSETTING_LONG_PARSELONGSETTING; -} -int32 FUNC_PARSESTRINGSETTING(qbs*_FUNC_PARSESTRINGSETTING_STRING_TOKEN,qbs*_FUNC_PARSESTRINGSETTING_STRING_SETTING){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data6.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -if(!qbevent)break;evnt(13430);}while(r); -do{ -*_FUNC_PARSESTRINGSETTING_LONG_EQUALS=func_instr(NULL,_FUNC_PARSESTRINGSETTING_STRING_TOKEN,qbs_new_txt_len("=",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13432);}while(r); -S_16056:; -if ((-(*_FUNC_PARSESTRINGSETTING_LONG_EQUALS== -1 ))||new_error){ -if(qbevent){evnt(13433);if(r)goto S_16056;} -do{ -*_FUNC_PARSESTRINGSETTING_LONG_PARSESTRINGSETTING= 0 ; -if(!qbevent)break;evnt(13433);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(13433);}while(r); -} -do{ -qbs_set(_FUNC_PARSESTRINGSETTING_STRING_SETTING,func_mid(_FUNC_PARSESTRINGSETTING_STRING_TOKEN,*_FUNC_PARSESTRINGSETTING_LONG_EQUALS+ 1 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13435);}while(r); -do{ -*_FUNC_PARSESTRINGSETTING_LONG_PARSESTRINGSETTING= -1 ; -if(!qbevent)break;evnt(13437);}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free6.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -return *_FUNC_PARSESTRINGSETTING_LONG_PARSESTRINGSETTING; -} -int32 FUNC_TYPE2MEMTYPEVALUE(int32*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data7.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -*_FUNC_TYPE2MEMTYPEVALUE_LONG_T= 0 ; -if(!qbevent)break;evnt(13441);}while(r); -S_16063:; -if ((*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1&*__LONG_ISARRAY)||new_error){ -if(qbevent){evnt(13442);if(r)goto S_16063;} -do{ -*_FUNC_TYPE2MEMTYPEVALUE_LONG_T=*_FUNC_TYPE2MEMTYPEVALUE_LONG_T+ 65536 ; -if(!qbevent)break;evnt(13442);}while(r); -} -S_16066:; -if ((*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1&*__LONG_ISUDT)||new_error){ -if(qbevent){evnt(13443);if(r)goto S_16066;} -S_16067:; -if ((-((*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1& 511 )== 1 ))||new_error){ -if(qbevent){evnt(13444);if(r)goto S_16067;} -do{ -*_FUNC_TYPE2MEMTYPEVALUE_LONG_T=*_FUNC_TYPE2MEMTYPEVALUE_LONG_T+ 4096 ; -if(!qbevent)break;evnt(13445);}while(r); -}else{ -do{ -*_FUNC_TYPE2MEMTYPEVALUE_LONG_T=*_FUNC_TYPE2MEMTYPEVALUE_LONG_T+ 32768 ; -if(!qbevent)break;evnt(13447);}while(r); -} -}else{ -S_16073:; -if ((*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(13450);if(r)goto S_16073;} -do{ -*_FUNC_TYPE2MEMTYPEVALUE_LONG_T=*_FUNC_TYPE2MEMTYPEVALUE_LONG_T+ 512 ; -if(!qbevent)break;evnt(13451);}while(r); -}else{ -S_16076:; -if ((*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1&*__LONG_ISFLOAT)||new_error){ -if(qbevent){evnt(13453);if(r)goto S_16076;} -do{ -*_FUNC_TYPE2MEMTYPEVALUE_LONG_T=*_FUNC_TYPE2MEMTYPEVALUE_LONG_T+ 256 ; -if(!qbevent)break;evnt(13454);}while(r); -}else{ -do{ -*_FUNC_TYPE2MEMTYPEVALUE_LONG_T=*_FUNC_TYPE2MEMTYPEVALUE_LONG_T+ 128 ; -if(!qbevent)break;evnt(13456);}while(r); -S_16080:; -if ((*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1&*__LONG_ISUNSIGNED)||new_error){ -if(qbevent){evnt(13457);if(r)goto S_16080;} -do{ -*_FUNC_TYPE2MEMTYPEVALUE_LONG_T=*_FUNC_TYPE2MEMTYPEVALUE_LONG_T+ 1024 ; -if(!qbevent)break;evnt(13457);}while(r); -} -S_16083:; -if ((*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1&*__LONG_ISOFFSET)||new_error){ -if(qbevent){evnt(13458);if(r)goto S_16083;} -do{ -*_FUNC_TYPE2MEMTYPEVALUE_LONG_T=*_FUNC_TYPE2MEMTYPEVALUE_LONG_T+ 8192 ; -if(!qbevent)break;evnt(13458);}while(r); -} -} -do{ -*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1S=(*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1& 511 )/ 8 ; -if(!qbevent)break;evnt(13460);}while(r); -S_16088:; -if ((-(*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1S== 1 ))||new_error){ -if(qbevent){evnt(13461);if(r)goto S_16088;} -do{ -*_FUNC_TYPE2MEMTYPEVALUE_LONG_T=*_FUNC_TYPE2MEMTYPEVALUE_LONG_T+*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1S; -if(!qbevent)break;evnt(13461);}while(r); -} -S_16091:; -if ((-(*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1S== 2 ))||new_error){ -if(qbevent){evnt(13462);if(r)goto S_16091;} -do{ -*_FUNC_TYPE2MEMTYPEVALUE_LONG_T=*_FUNC_TYPE2MEMTYPEVALUE_LONG_T+*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1S; -if(!qbevent)break;evnt(13462);}while(r); -} -S_16094:; -if ((-(*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1S== 4 ))||new_error){ -if(qbevent){evnt(13463);if(r)goto S_16094;} -do{ -*_FUNC_TYPE2MEMTYPEVALUE_LONG_T=*_FUNC_TYPE2MEMTYPEVALUE_LONG_T+*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1S; -if(!qbevent)break;evnt(13463);}while(r); -} -S_16097:; -if ((-(*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1S== 8 ))||new_error){ -if(qbevent){evnt(13464);if(r)goto S_16097;} -do{ -*_FUNC_TYPE2MEMTYPEVALUE_LONG_T=*_FUNC_TYPE2MEMTYPEVALUE_LONG_T+*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1S; -if(!qbevent)break;evnt(13464);}while(r); -} -S_16100:; -if ((-(*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1S== 16 ))||new_error){ -if(qbevent){evnt(13465);if(r)goto S_16100;} -do{ -*_FUNC_TYPE2MEMTYPEVALUE_LONG_T=*_FUNC_TYPE2MEMTYPEVALUE_LONG_T+*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1S; -if(!qbevent)break;evnt(13465);}while(r); -} -S_16103:; -if ((-(*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1S== 32 ))||new_error){ -if(qbevent){evnt(13466);if(r)goto S_16103;} -do{ -*_FUNC_TYPE2MEMTYPEVALUE_LONG_T=*_FUNC_TYPE2MEMTYPEVALUE_LONG_T+*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1S; -if(!qbevent)break;evnt(13466);}while(r); -} -S_16106:; -if ((-(*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1S== 64 ))||new_error){ -if(qbevent){evnt(13467);if(r)goto S_16106;} -do{ -*_FUNC_TYPE2MEMTYPEVALUE_LONG_T=*_FUNC_TYPE2MEMTYPEVALUE_LONG_T+*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1S; -if(!qbevent)break;evnt(13467);}while(r); -} -} -} -do{ -*_FUNC_TYPE2MEMTYPEVALUE_LONG_TYPE2MEMTYPEVALUE=*_FUNC_TYPE2MEMTYPEVALUE_LONG_T; -if(!qbevent)break;evnt(13470);}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free7.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -return *_FUNC_TYPE2MEMTYPEVALUE_LONG_TYPE2MEMTYPEVALUE; -} -int32 FUNC_ALLOCARRAY(qbs*_FUNC_ALLOCARRAY_STRING_N2,qbs*_FUNC_ALLOCARRAY_STRING_ELEMENTS,int32*_FUNC_ALLOCARRAY_LONG_ELEMENTSIZE,int32*_FUNC_ALLOCARRAY_LONG_UDT){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data8.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -*_FUNC_ALLOCARRAY_LONG_DIMSHAREDLAST=*__INTEGER_DIMSHARED; -if(!qbevent)break;evnt(13475);}while(r); -do{ -*__INTEGER_DIMSHARED= 0 ; -if(!qbevent)break;evnt(13475);}while(r); -S_16114:; -if ((-(*__LONG_AUTOARRAY== 1 ))||new_error){ -if(qbevent){evnt(13477);if(r)goto S_16114;} -do{ -*__LONG_AUTOARRAY= 0 ; -if(!qbevent)break;evnt(13477);}while(r); -do{ -*_FUNC_ALLOCARRAY_LONG_AUTOARY= 1 ; -if(!qbevent)break;evnt(13477);}while(r); -} -do{ -qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13479);}while(r); -do{ -qbs_set(_FUNC_ALLOCARRAY_STRING_E,_FUNC_ALLOCARRAY_STRING_ELEMENTS); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13484);}while(r); -do{ -qbs_set(_FUNC_ALLOCARRAY_STRING_N,_FUNC_ALLOCARRAY_STRING_N2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13484);}while(r); -S_16121:; -if ((-(*_FUNC_ALLOCARRAY_LONG_ELEMENTSIZE== -2147483647 ))||new_error){ -if(qbevent){evnt(13485);if(r)goto S_16121;} -do{ -*_FUNC_ALLOCARRAY_LONG_STRINGARRAY= 1 ; -if(!qbevent)break;evnt(13485);}while(r); -do{ -*_FUNC_ALLOCARRAY_LONG_ELEMENTSIZE= 8 ; -if(!qbevent)break;evnt(13485);}while(r); -} -S_16125:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_ALLOCARRAY_STRING_E)== 63 )))||new_error){ -if(qbevent){evnt(13487);if(r)goto S_16125;} -do{ -qbs_set(_FUNC_ALLOCARRAY_STRING_L,qbs_add(qbs_add(qbs_new_txt_len("(",1),__STRING1_SP2),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13488);}while(r); -do{ -*_FUNC_ALLOCARRAY_LONG_UNDEFINED= -1 ; -if(!qbevent)break;evnt(13489);}while(r); -do{ -*_FUNC_ALLOCARRAY_LONG_NUME= 1 ; -if(!qbevent)break;evnt(13490);}while(r); -S_16129:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_ALLOCARRAY_STRING_E->len== 1 )))||new_error){ -if(qbevent){evnt(13491);if(r)goto S_16129;} -do{ -goto LABEL_UNDEFINEDARRAY; -if(!qbevent)break;evnt(13491);}while(r); -} -do{ -*_FUNC_ALLOCARRAY_LONG_UNDEFINED= 1 ; -if(!qbevent)break;evnt(13492);}while(r); -do{ -*_FUNC_ALLOCARRAY_LONG_NUME=qbr(func_val(qbs_right(_FUNC_ALLOCARRAY_STRING_E,_FUNC_ALLOCARRAY_STRING_E->len- 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13493);}while(r); -do{ -goto LABEL_UNDEFINEDARRAY; -if(!qbevent)break;evnt(13494);}while(r); -} -do{ -*_FUNC_ALLOCARRAY_LONG_NUME= 1 ; -if(!qbevent)break;evnt(13499);}while(r); -do{ -*_FUNC_ALLOCARRAY_LONG_N=FUNC_NUMELEMENTS(_FUNC_ALLOCARRAY_STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13500);}while(r); -S_16138:; -fornext_value2213= 1 ; -fornext_finalvalue2213=*_FUNC_ALLOCARRAY_LONG_N; -fornext_step2213= 1 ; -if (fornext_step2213<0) fornext_step_negative2213=1; else fornext_step_negative2213=0; -if (new_error) goto fornext_error2213; -goto fornext_entrylabel2213; -while(1){ -fornext_value2213=fornext_step2213+(*_FUNC_ALLOCARRAY_LONG_I); -fornext_entrylabel2213: -*_FUNC_ALLOCARRAY_LONG_I=fornext_value2213; -if (fornext_step_negative2213){ -if (fornext_value2213fornext_finalvalue2213) break; -} -fornext_error2213:; -if(qbevent){evnt(13501);if(r)goto S_16138;} -do{ -qbs_set(_FUNC_ALLOCARRAY_STRING_E2,FUNC_GETELEMENT(_FUNC_ALLOCARRAY_STRING_E,_FUNC_ALLOCARRAY_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13502);}while(r); -S_16140:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ALLOCARRAY_STRING_E2,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(13503);if(r)goto S_16140;} -do{ -*_FUNC_ALLOCARRAY_LONG_B=*_FUNC_ALLOCARRAY_LONG_B+ 1 ; -if(!qbevent)break;evnt(13503);}while(r); -} -S_16143:; -if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_ALLOCARRAY_LONG_B== 0 ))&(qbs_equal(_FUNC_ALLOCARRAY_STRING_E2,qbs_new_txt_len(",",1)))))||new_error){ -if(qbevent){evnt(13504);if(r)goto S_16143;} -do{ -*_FUNC_ALLOCARRAY_LONG_NUME=*_FUNC_ALLOCARRAY_LONG_NUME+ 1 ; -if(!qbevent)break;evnt(13504);}while(r); -} -S_16146:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ALLOCARRAY_STRING_E2,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(13505);if(r)goto S_16146;} -do{ -*_FUNC_ALLOCARRAY_LONG_B=*_FUNC_ALLOCARRAY_LONG_B- 1 ; -if(!qbevent)break;evnt(13505);}while(r); -} -fornext_continue_2212:; -} -fornext_exit_2212:; -S_16150:; -if (( 0 )||new_error){ -if(qbevent){evnt(13507);if(r)goto S_16150;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2214; -sub_file_print(tmp_fileno,qbs_new_txt_len("numelements count:",18), 0, 0, 0); -if (new_error) goto skip2214; -sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_ALLOCARRAY_LONG_NUME)), 1, 0, 1); -if (new_error) goto skip2214; -skip2214: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(13507);}while(r); -} -do{ -*_FUNC_ALLOCARRAY_LONG_DESCSTATIC= 0 ; -if(!qbevent)break;evnt(13509);}while(r); -S_16154:; -if ((*__INTEGER_ARRAYDESC)||new_error){ -if(qbevent){evnt(13510);if(r)goto S_16154;} -S_16155:; -if ((-(*(int16*)(((char*)__UDT_ID)+(516))!=*_FUNC_ALLOCARRAY_LONG_NUME))||new_error){ -if(qbevent){evnt(13511);if(r)goto S_16155;} -S_16156:; -if ((-(*(int16*)(((char*)__UDT_ID)+(516))== -1 ))||new_error){ -if(qbevent){evnt(13513);if(r)goto S_16156;} -S_16157:; -if (((-(((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_CURRENTID)-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])]!= 0 ))&(-(*_FUNC_ALLOCARRAY_LONG_NUME!=((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_CURRENTID)-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])])))||new_error){ -if(qbevent){evnt(13514);if(r)goto S_16157;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Cannot change the number of elements an array has!",50)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13514);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(13514);}while(r); -} -S_16161:; -if ((-(*_FUNC_ALLOCARRAY_LONG_NUME== 1 ))||new_error){ -if(qbevent){evnt(13515);if(r)goto S_16161;} -do{ -*(int16*)(((char*)__UDT_ID)+(516))= 1 ; -if(!qbevent)break;evnt(13515);}while(r); -do{ -*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_CURRENTID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+516))= 1 ; -if(!qbevent)break;evnt(13515);}while(r); -} -do{ -tmp_long=array_check((*__LONG_CURRENTID)-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[tmp_long]=*_FUNC_ALLOCARRAY_LONG_NUME; -if(!qbevent)break;evnt(13516);}while(r); -}else{ -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Cannot change the number of elements an array has!",50)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13518);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(13518);}while(r); -} -} -S_16171:; -if ((*(int16*)(((char*)__UDT_ID)+(518)))||new_error){ -if(qbevent){evnt(13522);if(r)goto S_16171;} -do{ -*_FUNC_ALLOCARRAY_LONG_DESCSTATIC= 1 ; -if(!qbevent)break;evnt(13522);}while(r); -} -} -do{ -qbs_set(_FUNC_ALLOCARRAY_STRING_L,qbs_add(qbs_new_txt_len("(",1),__STRING1_SP2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13525);}while(r); -do{ -qbs_set(_FUNC_ALLOCARRAY_STRING_CR,qbs_add(func_chr( 13 ),func_chr( 10 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13527);}while(r); -do{ -qbs_set(_FUNC_ALLOCARRAY_STRING_SD,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13528);}while(r); -do{ -*_FUNC_ALLOCARRAY_LONG_CONSTDIMENSIONS= 1 ; -if(!qbevent)break;evnt(13529);}while(r); -do{ -*_FUNC_ALLOCARRAY_LONG_EI=( 4 )+(*_FUNC_ALLOCARRAY_LONG_NUME* 4 )-( 4 ); -if(!qbevent)break;evnt(13530);}while(r); -do{ -*_FUNC_ALLOCARRAY_LONG_CURE= 1 ; -if(!qbevent)break;evnt(13531);}while(r); -do{ -qbs_set(_FUNC_ALLOCARRAY_STRING_E3,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13532);}while(r); -do{ -qbs_set(_FUNC_ALLOCARRAY_STRING_E3BASE,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13532);}while(r); -S_16183:; -fornext_value2216= 1 ; -fornext_finalvalue2216=*_FUNC_ALLOCARRAY_LONG_N; -fornext_step2216= 1 ; -if (fornext_step2216<0) fornext_step_negative2216=1; else fornext_step_negative2216=0; -if (new_error) goto fornext_error2216; -goto fornext_entrylabel2216; -while(1){ -fornext_value2216=fornext_step2216+(*_FUNC_ALLOCARRAY_LONG_I); -fornext_entrylabel2216: -*_FUNC_ALLOCARRAY_LONG_I=fornext_value2216; -if (fornext_step_negative2216){ -if (fornext_value2216fornext_finalvalue2216) break; -} -fornext_error2216:; -if(qbevent){evnt(13533);if(r)goto S_16183;} -do{ -qbs_set(_FUNC_ALLOCARRAY_STRING_E2,FUNC_GETELEMENT(_FUNC_ALLOCARRAY_STRING_E,_FUNC_ALLOCARRAY_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13534);}while(r); -S_16185:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ALLOCARRAY_STRING_E2,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(13535);if(r)goto S_16185;} -do{ -*_FUNC_ALLOCARRAY_LONG_B=*_FUNC_ALLOCARRAY_LONG_B+ 1 ; -if(!qbevent)break;evnt(13535);}while(r); -} -S_16188:; -if ((qbs_cleanup(qbs_tmp_base,(((qbs_equal(_FUNC_ALLOCARRAY_STRING_E2,qbs_new_txt_len(",",1)))&(-(*_FUNC_ALLOCARRAY_LONG_B== 0 ))))|(-(*_FUNC_ALLOCARRAY_LONG_I==*_FUNC_ALLOCARRAY_LONG_N))))||new_error){ -if(qbevent){evnt(13536);if(r)goto S_16188;} -S_16189:; -if ((-(*_FUNC_ALLOCARRAY_LONG_I==*_FUNC_ALLOCARRAY_LONG_N))||new_error){ -if(qbevent){evnt(13537);if(r)goto S_16189;} -do{ -qbs_set(_FUNC_ALLOCARRAY_STRING_E3,qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_E3,__STRING1_SP),_FUNC_ALLOCARRAY_STRING_E2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13537);}while(r); -} -do{ -qbs_set(_FUNC_ALLOCARRAY_STRING_E3,qbs_right(_FUNC_ALLOCARRAY_STRING_E3,_FUNC_ALLOCARRAY_STRING_E3->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13538);}while(r); -S_16193:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_ALLOCARRAY_STRING_E3BASE,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(13539);if(r)goto S_16193;} -do{ -qbs_set(_FUNC_ALLOCARRAY_STRING_E3BASE,qbs_right(_FUNC_ALLOCARRAY_STRING_E3BASE,_FUNC_ALLOCARRAY_STRING_E3BASE->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13539);}while(r); -} -do{ -*_FUNC_ALLOCARRAY_LONG_BASEGIVEN= 1 ; -if(!qbevent)break;evnt(13543);}while(r); -S_16197:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ALLOCARRAY_STRING_E3BASE,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(13544);if(r)goto S_16197;} -do{ -qbs_set(_FUNC_ALLOCARRAY_STRING_E3BASE,FUNC_STR2(&(pass2219=*__INTEGER_OPTIONBASE+ 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13544);}while(r); -do{ -*_FUNC_ALLOCARRAY_LONG_BASEGIVEN= 0 ; -if(!qbevent)break;evnt(13544);}while(r); -} -do{ -*__INTEGER_CONSTEQUATION= 1 ; -if(!qbevent)break;evnt(13545);}while(r); -do{ -qbs_set(_FUNC_ALLOCARRAY_STRING_E3BASE,FUNC_FIXOPERATIONORDER(_FUNC_ALLOCARRAY_STRING_E3BASE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13547);}while(r); -S_16203:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(13548);if(r)goto S_16203;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(13548);}while(r); -} -S_16206:; -if ((*_FUNC_ALLOCARRAY_LONG_BASEGIVEN)||new_error){ -if(qbevent){evnt(13549);if(r)goto S_16206;} -do{ -qbs_set(_FUNC_ALLOCARRAY_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_L,__STRING_TLAYOUT),__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("To",2))),__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13549);}while(r); -} -do{ -qbs_set(_FUNC_ALLOCARRAY_STRING_E3BASE,FUNC_EVALUATETOTYP(_FUNC_ALLOCARRAY_STRING_E3BASE,&(pass2220= 64 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13550);}while(r); -S_16210:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(13551);if(r)goto S_16210;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(13551);}while(r); -} -S_16213:; -if ((-(*__INTEGER_CONSTEQUATION== 0 ))||new_error){ -if(qbevent){evnt(13553);if(r)goto S_16213;} -do{ -*_FUNC_ALLOCARRAY_LONG_CONSTDIMENSIONS= 0 ; -if(!qbevent)break;evnt(13553);}while(r); -} -do{ -qbs_set(_FUNC_ALLOCARRAY_STRING_SD,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_SD,_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[",1)),FUNC_STR2(_FUNC_ALLOCARRAY_LONG_EI)),qbs_new_txt_len("]=",2)),_FUNC_ALLOCARRAY_STRING_E3BASE),qbs_new_txt_len(";",1)),_FUNC_ALLOCARRAY_STRING_CR)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13554);}while(r); -do{ -*__INTEGER_CONSTEQUATION= 1 ; -if(!qbevent)break;evnt(13556);}while(r); -do{ -qbs_set(_FUNC_ALLOCARRAY_STRING_E3,FUNC_FIXOPERATIONORDER(_FUNC_ALLOCARRAY_STRING_E3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13558);}while(r); -S_16219:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(13559);if(r)goto S_16219;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(13559);}while(r); -} -do{ -qbs_set(_FUNC_ALLOCARRAY_STRING_L,qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_L,__STRING_TLAYOUT),__STRING1_SP2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13560);}while(r); -S_16223:; -if ((-(*_FUNC_ALLOCARRAY_LONG_I==*_FUNC_ALLOCARRAY_LONG_N))||new_error){ -if(qbevent){evnt(13561);if(r)goto S_16223;} -do{ -qbs_set(_FUNC_ALLOCARRAY_STRING_L,qbs_add(_FUNC_ALLOCARRAY_STRING_L,qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13561);}while(r); -}else{ -do{ -qbs_set(_FUNC_ALLOCARRAY_STRING_L,qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_L,qbs_new_txt_len(",",1)),__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13561);}while(r); -} -do{ -qbs_set(_FUNC_ALLOCARRAY_STRING_E3,FUNC_EVALUATETOTYP(_FUNC_ALLOCARRAY_STRING_E3,&(pass2221= 64 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13562);}while(r); -S_16229:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(13563);if(r)goto S_16229;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(13563);}while(r); -} -S_16232:; -if ((-(*__INTEGER_CONSTEQUATION== 0 ))||new_error){ -if(qbevent){evnt(13565);if(r)goto S_16232;} -do{ -*_FUNC_ALLOCARRAY_LONG_CONSTDIMENSIONS= 0 ; -if(!qbevent)break;evnt(13565);}while(r); -} -do{ -*_FUNC_ALLOCARRAY_LONG_EI=*_FUNC_ALLOCARRAY_LONG_EI+ 1 ; -if(!qbevent)break;evnt(13566);}while(r); -do{ -qbs_set(_FUNC_ALLOCARRAY_STRING_SD,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_SD,_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[",1)),FUNC_STR2(_FUNC_ALLOCARRAY_LONG_EI)),qbs_new_txt_len("]=(",3)),_FUNC_ALLOCARRAY_STRING_E3),qbs_new_txt_len(")-",2)),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[",1)),FUNC_STR2(&(pass2222=*_FUNC_ALLOCARRAY_LONG_EI- 1 ))),qbs_new_txt_len("]+1;",4)),_FUNC_ALLOCARRAY_STRING_CR)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13567);}while(r); -do{ -*_FUNC_ALLOCARRAY_LONG_EI=*_FUNC_ALLOCARRAY_LONG_EI+ 1 ; -if(!qbevent)break;evnt(13568);}while(r); -S_16238:; -if ((-(*_FUNC_ALLOCARRAY_LONG_CURE== 1 ))||new_error){ -if(qbevent){evnt(13570);if(r)goto S_16238;} -do{ -qbs_set(_FUNC_ALLOCARRAY_STRING_SD,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_SD,_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[",1)),FUNC_STR2(_FUNC_ALLOCARRAY_LONG_EI)),qbs_new_txt_len("]=1;",4)),_FUNC_ALLOCARRAY_STRING_CR)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13572);}while(r); -}else{ -do{ -qbs_set(_FUNC_ALLOCARRAY_STRING_SD,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_SD,_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[",1)),FUNC_STR2(_FUNC_ALLOCARRAY_LONG_EI)),qbs_new_txt_len("]=",2)),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[",1)),FUNC_STR2(&(pass2223=*_FUNC_ALLOCARRAY_LONG_EI+ 4 ))),qbs_new_txt_len("]*",2)),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[",1)),FUNC_STR2(&(pass2224=*_FUNC_ALLOCARRAY_LONG_EI+ 3 ))),qbs_new_txt_len("];",2)),_FUNC_ALLOCARRAY_STRING_CR)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13574);}while(r); -} -do{ -*_FUNC_ALLOCARRAY_LONG_EI=*_FUNC_ALLOCARRAY_LONG_EI+ 1 ; -if(!qbevent)break;evnt(13576);}while(r); -do{ -*_FUNC_ALLOCARRAY_LONG_EI=*_FUNC_ALLOCARRAY_LONG_EI+ 1 ; -if(!qbevent)break;evnt(13577);}while(r); -do{ -*_FUNC_ALLOCARRAY_LONG_EI=*_FUNC_ALLOCARRAY_LONG_EI- 8 ; -if(!qbevent)break;evnt(13578);}while(r); -do{ -*_FUNC_ALLOCARRAY_LONG_CURE=*_FUNC_ALLOCARRAY_LONG_CURE+ 1 ; -if(!qbevent)break;evnt(13579);}while(r); -do{ -qbs_set(_FUNC_ALLOCARRAY_STRING_E3,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13580);}while(r); -do{ -qbs_set(_FUNC_ALLOCARRAY_STRING_E3BASE,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13580);}while(r); -do{ -goto LABEL_AANEXTE; -if(!qbevent)break;evnt(13581);}while(r); -} -S_16251:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ALLOCARRAY_STRING_E2,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(13583);if(r)goto S_16251;} -do{ -*_FUNC_ALLOCARRAY_LONG_B=*_FUNC_ALLOCARRAY_LONG_B- 1 ; -if(!qbevent)break;evnt(13583);}while(r); -} -S_16254:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(_FUNC_ALLOCARRAY_STRING_E2),qbs_new_txt_len("TO",2)))&(-(*_FUNC_ALLOCARRAY_LONG_B== 0 ))))||new_error){ -if(qbevent){evnt(13584);if(r)goto S_16254;} -do{ -qbs_set(_FUNC_ALLOCARRAY_STRING_E3BASE,_FUNC_ALLOCARRAY_STRING_E3); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13585);}while(r); -do{ -qbs_set(_FUNC_ALLOCARRAY_STRING_E3,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13586);}while(r); -}else{ -do{ -qbs_set(_FUNC_ALLOCARRAY_STRING_E3,qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_E3,__STRING1_SP),_FUNC_ALLOCARRAY_STRING_E2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13588);}while(r); -} -LABEL_AANEXTE:; -if(qbevent){evnt(13590);r=0;} -fornext_continue_2215:; -} -fornext_exit_2215:; -do{ -qbs_set(_FUNC_ALLOCARRAY_STRING_SD,qbs_left(_FUNC_ALLOCARRAY_STRING_SD,_FUNC_ALLOCARRAY_STRING_SD->len- 2 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13592);}while(r); -LABEL_UNDEFINEDARRAY:; -if(qbevent){evnt(13594);r=0;} -do{ -*_FUNC_ALLOCARRAY_LONG_CMEM= 0 ; -if(!qbevent)break;evnt(13597);}while(r); -S_16263:; -if ((-(*__INTEGER_ARRAYDESC== 0 ))||new_error){ -if(qbevent){evnt(13598);if(r)goto S_16263;} -S_16264:; -if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ -if(qbevent){evnt(13599);if(r)goto S_16264;} -do{ -*_FUNC_ALLOCARRAY_LONG_CMEM= 1 ; -if(!qbevent)break;evnt(13599);}while(r); -} -}else{ -S_16268:; -if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__INTEGER_ARRAYDESC)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ -if(qbevent){evnt(13601);if(r)goto S_16268;} -do{ -*_FUNC_ALLOCARRAY_LONG_CMEM= 1 ; -if(!qbevent)break;evnt(13601);}while(r); -} -} -do{ -*_FUNC_ALLOCARRAY_LONG_STATICARRAY=*_FUNC_ALLOCARRAY_LONG_CONSTDIMENSIONS; -if(!qbevent)break;evnt(13604);}while(r); -S_16273:; -if (((-(*__LONG_SUBFUNCN!= 0 ))&(-(*__LONG_DIMSTATIC== 0 )))||new_error){ -if(qbevent){evnt(13605);if(r)goto S_16273;} -do{ -*_FUNC_ALLOCARRAY_LONG_STATICARRAY= 0 ; -if(!qbevent)break;evnt(13605);}while(r); -} -S_16276:; -if ((-(*__LONG_DIMSTATIC== 3 ))||new_error){ -if(qbevent){evnt(13606);if(r)goto S_16276;} -do{ -*_FUNC_ALLOCARRAY_LONG_STATICARRAY= 0 ; -if(!qbevent)break;evnt(13606);}while(r); -} -S_16279:; -if ((*__INTEGER_DYNAMICMODE)||new_error){ -if(qbevent){evnt(13607);if(r)goto S_16279;} -do{ -*_FUNC_ALLOCARRAY_LONG_STATICARRAY= 0 ; -if(!qbevent)break;evnt(13607);}while(r); -} -S_16282:; -if ((*__INTEGER_REDIMOPTION)||new_error){ -if(qbevent){evnt(13608);if(r)goto S_16282;} -do{ -*_FUNC_ALLOCARRAY_LONG_STATICARRAY= 0 ; -if(!qbevent)break;evnt(13608);}while(r); -} -S_16285:; -if ((-(*__INTEGER_DIMOPTION== 3 ))||new_error){ -if(qbevent){evnt(13609);if(r)goto S_16285;} -do{ -*_FUNC_ALLOCARRAY_LONG_STATICARRAY= 0 ; -if(!qbevent)break;evnt(13609);}while(r); -} -S_16288:; -if ((*__INTEGER_ARRAYDESC)||new_error){ -if(qbevent){evnt(13611);if(r)goto S_16288;} -S_16289:; -if ((-(*_FUNC_ALLOCARRAY_LONG_STATICARRAY== 1 ))||new_error){ -if(qbevent){evnt(13612);if(r)goto S_16289;} -S_16290:; -if ((*_FUNC_ALLOCARRAY_LONG_DESCSTATIC)||new_error){ -if(qbevent){evnt(13613);if(r)goto S_16290;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Cannot redefine a static array!",31)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13613);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(13613);}while(r); -} -do{ -*_FUNC_ALLOCARRAY_LONG_STATICARRAY= 0 ; -if(!qbevent)break;evnt(13614);}while(r); -} -} -do{ -qbs_set(_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT,FUNC_STR2(_FUNC_ALLOCARRAY_LONG_ELEMENTSIZE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13623);}while(r); -S_16298:; -if ((-(*_FUNC_ALLOCARRAY_LONG_ELEMENTSIZE< 0 ))||new_error){ -if(qbevent){evnt(13624);if(r)goto S_16298;} -do{ -*_FUNC_ALLOCARRAY_LONG_ELEMENTSIZE=-(*_FUNC_ALLOCARRAY_LONG_ELEMENTSIZE); -if(!qbevent)break;evnt(13625);}while(r); -do{ -qbs_set(_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT,qbs_add(FUNC_STR2(_FUNC_ALLOCARRAY_LONG_ELEMENTSIZE),qbs_new_txt_len("/8+1",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13626);}while(r); -} -S_16302:; -if ((-(*__INTEGER_ARRAYDESC== 0 ))||new_error){ -if(qbevent){evnt(13631);if(r)goto S_16302;} -do{ -SUB_WRITEBUFLINE(__INTEGER_DEFDATAHANDLE,qbs_add(qbs_add(qbs_new_txt_len("ptrszint *",10),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("=NULL;",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13632);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass2226=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if (!",5),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("){",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13633);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass2227=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("=(ptrszint*)mem_static_malloc(",30)),FUNC_STR2(&(pass2228=( 4 **_FUNC_ALLOCARRAY_LONG_NUME)+( 4 )+( 1 )))),qbs_new_txt_len("*ptrsz);",8))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13634);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass2229=*__LONG_DATATXTBUF),qbs_new_txt_len("new_mem_lock();",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13636);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass2230=*__LONG_DATATXTBUF),qbs_new_txt_len("mem_lock_tmp->type=4;",21)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13637);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass2231=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("((ptrszint*)",12),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len(")[",2)),FUNC_STR2(&(pass2232=( 4 **_FUNC_ALLOCARRAY_LONG_NUME)+( 4 )+( 1 )-( 1 )))),qbs_new_txt_len("]=(ptrszint)mem_lock_tmp;",25))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13638);}while(r); -} -do{ -qbs_set(_FUNC_ALLOCARRAY_STRING_SIZESTR,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13642);}while(r); -S_16311:; -fornext_value2234= 1 ; -fornext_finalvalue2234=*_FUNC_ALLOCARRAY_LONG_NUME; -fornext_step2234= 1 ; -if (fornext_step2234<0) fornext_step_negative2234=1; else fornext_step_negative2234=0; -if (new_error) goto fornext_error2234; -goto fornext_entrylabel2234; -while(1){ -fornext_value2234=fornext_step2234+(*_FUNC_ALLOCARRAY_LONG_I); -fornext_entrylabel2234: -*_FUNC_ALLOCARRAY_LONG_I=fornext_value2234; -if (fornext_step_negative2234){ -if (fornext_value2234fornext_finalvalue2234) break; -} -fornext_error2234:; -if(qbevent){evnt(13643);if(r)goto S_16311;} -S_16312:; -if ((-(*_FUNC_ALLOCARRAY_LONG_I!= 1 ))||new_error){ -if(qbevent){evnt(13644);if(r)goto S_16312;} -do{ -qbs_set(_FUNC_ALLOCARRAY_STRING_SIZESTR,qbs_add(_FUNC_ALLOCARRAY_STRING_SIZESTR,qbs_new_txt_len("*",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13644);}while(r); -} -do{ -qbs_set(_FUNC_ALLOCARRAY_STRING_SIZESTR,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_SIZESTR,_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[",1)),FUNC_STR2(&(pass2235=(*_FUNC_ALLOCARRAY_LONG_I* 4 )-( 4 )+( 5 )))),qbs_new_txt_len("]",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13645);}while(r); -fornext_continue_2233:; -} -fornext_exit_2233:; -do{ -qbs_set(_FUNC_ALLOCARRAY_STRING_ELESIZESTR,_FUNC_ALLOCARRAY_STRING_SIZESTR); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13647);}while(r); -do{ -qbs_set(_FUNC_ALLOCARRAY_STRING_SIZESTR,qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_SIZESTR,qbs_new_txt_len("*",1)),_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13648);}while(r); -S_16319:; -if ((*_FUNC_ALLOCARRAY_LONG_STATICARRAY)||new_error){ -if(qbevent){evnt(13653);if(r)goto S_16319;} -do{ -SUB_WRITEBUFLINE(&(pass2236=*__LONG_DATATXTBUF),_FUNC_ALLOCARRAY_STRING_SD); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13655);}while(r); -S_16321:; -if ((*_FUNC_ALLOCARRAY_LONG_CMEM&(-(*_FUNC_ALLOCARRAY_LONG_STRINGARRAY== 0 )))||new_error){ -if(qbevent){evnt(13660);if(r)goto S_16321;} -do{ -SUB_WRITEBUFLINE(&(pass2237=*__LONG_DATATXTBUF),qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("[0]=(ptrszint)cmem_static_pointer;",34))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13663);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass2238=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if ((cmem_static_pointer+=((",28),_FUNC_ALLOCARRAY_STRING_SIZESTR),qbs_new_txt_len(")+15)&-16)>cmem_dynamic_base) error(257);",41))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13665);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass2239=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if ((",5),_FUNC_ALLOCARRAY_STRING_SIZESTR),qbs_new_txt_len(")>65536) error(257);",20))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13667);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass2240=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("memset((void*)(",15),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[0]),0,",7)),_FUNC_ALLOCARRAY_STRING_SIZESTR),qbs_new_txt_len(");",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13669);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass2241=*__LONG_DATATXTBUF),qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("[2]=1+2+4;",10))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13671);}while(r); -}else{ -do{ -SUB_WRITEBUFLINE(&(pass2242=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("[0]=(ptrszint)mem_static_malloc(",32)),_FUNC_ALLOCARRAY_STRING_SIZESTR),qbs_new_txt_len(");",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13674);}while(r); -S_16329:; -if ((*_FUNC_ALLOCARRAY_LONG_STRINGARRAY)||new_error){ -if(qbevent){evnt(13675);if(r)goto S_16329;} -do{ -SUB_WRITEBUFLINE(&(pass2243=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("tmp_long=",9),_FUNC_ALLOCARRAY_STRING_ELESIZESTR),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13677);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass2244=*__LONG_DATATXTBUF),qbs_new_txt_len("while(tmp_long--){",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13678);}while(r); -S_16332:; -if ((*_FUNC_ALLOCARRAY_LONG_CMEM)||new_error){ -if(qbevent){evnt(13679);if(r)goto S_16332;} -do{ -SUB_WRITEBUFLINE(&(pass2245=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("((uint64*)(",11),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);",42))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13680);}while(r); -}else{ -do{ -SUB_WRITEBUFLINE(&(pass2246=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("((uint64*)(",11),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[0]))[tmp_long]=(uint64)qbs_new(0,0);",37))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13682);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass2247=*__LONG_DATATXTBUF),qbs_new_txt_len("}",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13684);}while(r); -}else{ -do{ -SUB_WRITEBUFLINE(&(pass2248=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("memset((void*)(",15),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[0]),0,",7)),_FUNC_ALLOCARRAY_STRING_SIZESTR),qbs_new_txt_len(");",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13687);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass2249=*__LONG_DATATXTBUF),qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("[2]=1+2;",8))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13689);}while(r); -} -S_16343:; -if (((-(*_FUNC_ALLOCARRAY_LONG_UDT> 0 ))&((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*_FUNC_ALLOCARRAY_LONG_UDT)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])])||new_error){ -if(qbevent){evnt(13692);if(r)goto S_16343;} -do{ -SUB_WRITEBUFLINE(&(pass2250=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("tmp_long=",9),_FUNC_ALLOCARRAY_STRING_ELESIZESTR),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13693);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass2251=*__LONG_DATATXTBUF),qbs_new_txt_len("while(tmp_long--){",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13694);}while(r); -do{ -SUB_INITIALISE_ARRAY_UDT_VARSTRINGS(_FUNC_ALLOCARRAY_STRING_N,_FUNC_ALLOCARRAY_LONG_UDT,&(pass2252= 0 ),_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT,_FUNC_ALLOCARRAY_STRING_ACC); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13695);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass2253=*__LONG_DATATXTBUF),_FUNC_ALLOCARRAY_STRING_ACC); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13696);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass2254=*__LONG_DATATXTBUF),qbs_new_txt_len("}",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13697);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass2255=*__LONG_DATATXTBUF),qbs_new_txt_len("}",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13701);}while(r); -do{ -*_FUNC_ALLOCARRAY_LONG_ALLOCARRAY=*_FUNC_ALLOCARRAY_LONG_NUME+ 65536 ; -if(!qbevent)break;evnt(13702);}while(r); -} -S_16353:; -if ((-(*_FUNC_ALLOCARRAY_LONG_STATICARRAY== 0 ))||new_error){ -if(qbevent){evnt(13707);if(r)goto S_16353;} -S_16354:; -if ((-(*_FUNC_ALLOCARRAY_LONG_UNDEFINED== 0 ))||new_error){ -if(qbevent){evnt(13709);if(r)goto S_16354;} -do{ -qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("if (",4)),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[2]&2){",7))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13714);}while(r); -do{ -qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("error(10);",10))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13715);}while(r); -do{ -qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("}else{",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13716);}while(r); -S_16358:; -if ((-(*__INTEGER_REDIMOPTION== 0 ))||new_error){ -if(qbevent){evnt(13721);if(r)goto S_16358;} -do{ -qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("if (",4)),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[2]&1){",7))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13722);}while(r); -do{ -qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("if (!error_occurred) error(10);",31))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13723);}while(r); -do{ -qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("}else{",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13724);}while(r); -}else{ -do{ -qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("((mem_lock*)((ptrszint*)",24)),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len(")[",2)),FUNC_STR2(&(pass2256=( 4 **_FUNC_ALLOCARRAY_LONG_NUME)+( 4 )+( 1 )-( 1 )))),qbs_new_txt_len("])->id=(++mem_lock_id);",23))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13732);}while(r); -S_16364:; -if ((-(*__INTEGER_REDIMOPTION== 2 ))||new_error){ -if(qbevent){evnt(13734);if(r)goto S_16364;} -do{ -qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("static int32 preserved_elements;",32))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13735);}while(r); -} -do{ -qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("if (",4)),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[2]&1){",7))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13739);}while(r); -S_16368:; -if ((-(*__INTEGER_REDIMOPTION== 2 ))||new_error){ -if(qbevent){evnt(13741);if(r)goto S_16368;} -do{ -qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("preserved_elements=",19)),_FUNC_ALLOCARRAY_STRING_ELESIZESTR),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13742);}while(r); -do{ -goto LABEL_SKIPERASE; -if(!qbevent)break;evnt(13743);}while(r); -} -S_16372:; -if ((*_FUNC_ALLOCARRAY_LONG_STRINGARRAY)||new_error){ -if(qbevent){evnt(13747);if(r)goto S_16372;} -do{ -qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("tmp_long=",9)),_FUNC_ALLOCARRAY_STRING_ELESIZESTR),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13748);}while(r); -do{ -qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("while(tmp_long--) qbs_free((qbs*)((uint64*)(",44)),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[0]))[tmp_long]);",17))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13749);}while(r); -} -S_16376:; -if (((-(*_FUNC_ALLOCARRAY_LONG_UDT> 0 ))&((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*_FUNC_ALLOCARRAY_LONG_UDT)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])])||new_error){ -if(qbevent){evnt(13752);if(r)goto S_16376;} -do{ -qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("tmp_long=",9)),_FUNC_ALLOCARRAY_STRING_ELESIZESTR),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13753);}while(r); -do{ -qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("while(tmp_long--) {",19))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13754);}while(r); -do{ -SUB_FREE_ARRAY_UDT_VARSTRINGS(_FUNC_ALLOCARRAY_STRING_N,_FUNC_ALLOCARRAY_LONG_UDT,&(pass2257= 0 ),_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT,_FUNC_ALLOCARRAY_STRING_ACC); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13755);}while(r); -do{ -qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,_FUNC_ALLOCARRAY_STRING_ACC),qbs_new_txt_len("}",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13756);}while(r); -} -S_16382:; -if ((*_FUNC_ALLOCARRAY_LONG_STRINGARRAY)||new_error){ -if(qbevent){evnt(13760);if(r)goto S_16382;} -do{ -qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("free((void*)(",13)),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[0]));",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13762);}while(r); -}else{ -do{ -qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("if (",4)),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[2]&4){",7))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13765);}while(r); -do{ -qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("cmem_dynamic_free((uint8*)(",27)),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[0]));",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13766);}while(r); -do{ -qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("}else{",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13767);}while(r); -do{ -qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("free((void*)(",13)),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[0]));",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13768);}while(r); -do{ -qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("}",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13769);}while(r); -} -LABEL_SKIPERASE:; -if(qbevent){evnt(13772);r=0;} -do{ -qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("}",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13774);}while(r); -S_16392:; -if ((-(*__INTEGER_REDIMOPTION== 2 ))||new_error){ -if(qbevent){evnt(13775);if(r)goto S_16392;} -do{ -qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("else preserved_elements=0;",26))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13776);}while(r); -} -} -do{ -qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),_FUNC_ALLOCARRAY_STRING_SD)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13786);}while(r); -S_16397:; -if ((*_FUNC_ALLOCARRAY_LONG_STRINGARRAY|((-(*_FUNC_ALLOCARRAY_LONG_UDT> 0 ))&((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*_FUNC_ALLOCARRAY_LONG_UDT)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])]))||new_error){ -if(qbevent){evnt(13787);if(r)goto S_16397;} -S_16398:; -if ((-(*__INTEGER_REDIMOPTION== 2 ))||new_error){ -if(qbevent){evnt(13791);if(r)goto S_16398;} -do{ -qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("if (preserved_elements){",24))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13792);}while(r); -do{ -qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("static ptrszint tmp_long2;",26))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13794);}while(r); -do{ -qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("tmp_long2=",10)),_FUNC_ALLOCARRAY_STRING_ELESIZESTR),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13797);}while(r); -do{ -qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("if (tmp_long2 0 ))&((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*_FUNC_ALLOCARRAY_LONG_UDT)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])])||new_error){ -if(qbevent){evnt(13860);if(r)goto S_16453;} -do{ -SUB_WRITEBUFLINE(&(pass2263=*__LONG_FREETXTBUF),qbs_new_txt_len("while(tmp_long--) {",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13861);}while(r); -do{ -qbs_set(_FUNC_ALLOCARRAY_STRING_ACC,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13862);}while(r); -do{ -SUB_FREE_ARRAY_UDT_VARSTRINGS(_FUNC_ALLOCARRAY_STRING_N,_FUNC_ALLOCARRAY_LONG_UDT,&(pass2264= 0 ),_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT,_FUNC_ALLOCARRAY_STRING_ACC); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13863);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass2265=*__LONG_FREETXTBUF),qbs_add(_FUNC_ALLOCARRAY_STRING_ACC,qbs_new_txt_len("}",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13864);}while(r); -}else{ -do{ -SUB_WRITEBUFLINE(&(pass2266=*__LONG_FREETXTBUF),qbs_add(qbs_add(qbs_new_txt_len("while(tmp_long--) qbs_free((qbs*)((uint64*)(",44),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[0]))[tmp_long]);",17))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13866);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass2267=*__LONG_FREETXTBUF),qbs_add(qbs_add(qbs_new_txt_len("free((void*)(",13),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[0]));",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13868);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass2268=*__LONG_FREETXTBUF),qbs_new_txt_len("}",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13869);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass2269=*__LONG_FREETXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("free_mem_lock( (mem_lock*)((ptrszint*)",38),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len(")[",2)),FUNC_STR2(&(pass2270=( 4 **_FUNC_ALLOCARRAY_LONG_NUME)+( 4 )+( 1 )-( 1 )))),qbs_new_txt_len("] );",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13871);}while(r); -} -}else{ -do{ -qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("if (",4)),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[2]&4){",7))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13878);}while(r); -S_16467:; -if ((-(*__INTEGER_REDIMOPTION== 2 ))||new_error){ -if(qbevent){evnt(13880);if(r)goto S_16467;} -do{ -qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("if (preserved_elements){",24))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13881);}while(r); -do{ -qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("memcpy(redim_preserve_cmem_buffer,(void*)(",42)),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[0]),preserved_elements*",24)),_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT),qbs_new_txt_len(");",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13885);}while(r); -do{ -qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("cmem_dynamic_free((uint8*)(",27)),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[0]));",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13887);}while(r); -do{ -qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("tmp_long=",9)),_FUNC_ALLOCARRAY_STRING_ELESIZESTR),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13888);}while(r); -do{ -qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*",43)),_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT),qbs_new_txt_len(");",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13889);}while(r); -do{ -qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("memcpy((void*)(",15)),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[0]),redim_preserve_cmem_buffer,preserved_elements*",51)),_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT),qbs_new_txt_len(");",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13890);}while(r); -do{ -qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("if (preserved_elementsfornext_finalvalue2283) break; -} -fornext_error2283:; -if(qbevent){evnt(13949);if(r)goto S_16516;} -do{ -*_FUNC_ALLOCARRAY_LONG_B=*_FUNC_ALLOCARRAY_LONG_I* 4 ; -if(!qbevent)break;evnt(13950);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass2284=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("[",1)),FUNC_STR2(_FUNC_ALLOCARRAY_LONG_B)),qbs_new_txt_len("]=2147483647;",13))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13951);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass2285=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("[",1)),FUNC_STR2(&(pass2286=*_FUNC_ALLOCARRAY_LONG_B+ 1 ))),qbs_new_txt_len("]=0;",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13952);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass2287=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("[",1)),FUNC_STR2(&(pass2288=*_FUNC_ALLOCARRAY_LONG_B+ 2 ))),qbs_new_txt_len("]=0;",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13953);}while(r); -fornext_continue_2282:; -} -fornext_exit_2282:; -S_16522:; -if ((*_FUNC_ALLOCARRAY_LONG_STRINGARRAY)||new_error){ -if(qbevent){evnt(13955);if(r)goto S_16522;} -do{ -SUB_WRITEBUFLINE(&(pass2289=*__LONG_DATATXTBUF),qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("[0]=(ptrszint)¬hingstring;",29))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13957);}while(r); -}else{ -do{ -SUB_WRITEBUFLINE(&(pass2290=*__LONG_DATATXTBUF),qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("[0]=(ptrszint)nothingvalue;",27))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13960);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass2291=*__LONG_DATATXTBUF),qbs_new_txt_len("}",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13962);}while(r); -} -S_16529:; -if ((-(*_FUNC_ALLOCARRAY_LONG_UNDEFINED== 0 ))||new_error){ -if(qbevent){evnt(13965);if(r)goto S_16529;} -S_16530:; -if ((-(*__INTEGER_REDIMOPTION== 0 ))||new_error){ -if(qbevent){evnt(13967);if(r)goto S_16530;} -do{ -qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("}",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13967);}while(r); -} -do{ -qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("}",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13968);}while(r); -} -do{ -*_FUNC_ALLOCARRAY_LONG_ALLOCARRAY=*_FUNC_ALLOCARRAY_LONG_NUME; -if(!qbevent)break;evnt(13972);}while(r); -S_16536:; -if ((-(*_FUNC_ALLOCARRAY_LONG_UNDEFINED== -1 ))||new_error){ -if(qbevent){evnt(13973);if(r)goto S_16536;} -do{ -*_FUNC_ALLOCARRAY_LONG_ALLOCARRAY= -1 ; -if(!qbevent)break;evnt(13973);}while(r); -} -} -S_16540:; -if ((-(*_FUNC_ALLOCARRAY_LONG_AUTOARY== 0 ))||new_error){ -if(qbevent){evnt(13977);if(r)goto S_16540;} -S_16541:; -if ((-(*__INTEGER_DIMOPTION== 3 ))||new_error){ -if(qbevent){evnt(13978);if(r)goto S_16541;} -do{ -SUB_WRITEBUFLINE(&(pass2292=*__LONG_DATATXTBUF),_FUNC_ALLOCARRAY_STRING_F12); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13979);}while(r); -}else{ -do{ -SUB_WRITEBUFLINE(&(pass2293=*__LONG_MAINTXTBUF),_FUNC_ALLOCARRAY_STRING_F12); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13981);}while(r); -} -} -do{ -*__INTEGER_DIMSHARED=*_FUNC_ALLOCARRAY_LONG_DIMSHAREDLAST; -if(!qbevent)break;evnt(13993);}while(r); -do{ -qbs_set(__STRING_TLAYOUT,_FUNC_ALLOCARRAY_STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(13995);}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free8.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -return *_FUNC_ALLOCARRAY_LONG_ALLOCARRAY; -} -qbs* FUNC_ARRAYREFERENCE(qbs*_FUNC_ARRAYREFERENCE_STRING_INDEXES,int32*_FUNC_ARRAYREFERENCE_LONG_TYP){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data9.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -*__INTEGER_ARRAYPROCESSINGHAPPENED= 1 ; -if(!qbevent)break;evnt(13999);}while(r); -do{ -qbs_set(_FUNC_ARRAYREFERENCE_STRING_IDNUMBER,FUNC_STR2(__LONG_CURRENTID)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14009);}while(r); -do{ -if(!qbevent)break;evnt(14011);}while(r); -do{ -memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 0),(((char*)__UDT_ID)+(0)+ 0), 256); -memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 256),(((char*)__UDT_ID)+(0)+ 256), 256); -memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 512),(((char*)__UDT_ID)+(0)+ 512), 4); -memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 516),(((char*)__UDT_ID)+(0)+ 516), 2); -memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 518),(((char*)__UDT_ID)+(0)+ 518), 2); -memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 520),(((char*)__UDT_ID)+(0)+ 520), 8); -memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 528),(((char*)__UDT_ID)+(0)+ 528), 8); -memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 536),(((char*)__UDT_ID)+(0)+ 536), 4); -memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 540),(((char*)__UDT_ID)+(0)+ 540), 4); -memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 544),(((char*)__UDT_ID)+(0)+ 544), 2); -memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 546),(((char*)__UDT_ID)+(0)+ 546), 2); -memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 548),(((char*)__UDT_ID)+(0)+ 548), 2); -memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 550),(((char*)__UDT_ID)+(0)+ 550), 256); -memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 806),(((char*)__UDT_ID)+(0)+ 806), 2); -memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 808),(((char*)__UDT_ID)+(0)+ 808), 1); -memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 809),(((char*)__UDT_ID)+(0)+ 809), 2); -memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 811),(((char*)__UDT_ID)+(0)+ 811), 2); -memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 813),(((char*)__UDT_ID)+(0)+ 813), 400); -memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 1213),(((char*)__UDT_ID)+(0)+ 1213), 400); -memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 1613),(((char*)__UDT_ID)+(0)+ 1613), 256); -memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 1869),(((char*)__UDT_ID)+(0)+ 1869), 256); -memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 2125),(((char*)__UDT_ID)+(0)+ 2125), 256); -memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 2381),(((char*)__UDT_ID)+(0)+ 2381), 4); -memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 2385),(((char*)__UDT_ID)+(0)+ 2385), 256); -memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 2641),(((char*)__UDT_ID)+(0)+ 2641), 4); -memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 2645),(((char*)__UDT_ID)+(0)+ 2645), 2); -memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 2647),(((char*)__UDT_ID)+(0)+ 2647), 100); -memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 2747),(((char*)__UDT_ID)+(0)+ 2747), 100); -memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 2847),(((char*)__UDT_ID)+(0)+ 2847), 4); -memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 2851),(((char*)__UDT_ID)+(0)+ 2851), 2); -memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 2853),(((char*)__UDT_ID)+(0)+ 2853), 2); -memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 2855),(((char*)__UDT_ID)+(0)+ 2855), 4); -memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 2859),(((char*)__UDT_ID)+(0)+ 2859), 2); -qbs_set(*(qbs**)(((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 2861), *(qbs**)(((char*)__UDT_ID)+(0)+ 2861)); -if(!qbevent)break;evnt(14013);}while(r); -do{ -qbs_set(_FUNC_ARRAYREFERENCE_STRING_A,_FUNC_ARRAYREFERENCE_STRING_INDEXES); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14015);}while(r); -do{ -*_FUNC_ARRAYREFERENCE_LONG_TYP=*(int32*)(((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(512))+*__LONG_ISARRAY+*__LONG_ISREFERENCE; -if(!qbevent)break;evnt(14016);}while(r); -do{ -qbs_set(_FUNC_ARRAYREFERENCE_STRING_N,qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(550)),256,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14017);}while(r); -S_16556:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ARRAYREFERENCE_STRING_A,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(14019);if(r)goto S_16556;} -do{ -qbs_set(_FUNC_ARRAYREFERENCE_STRING_R,qbs_new_txt_len("0",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14020);}while(r); -do{ -goto LABEL_GOTARRAYINDEX; -if(!qbevent)break;evnt(14021);}while(r); -} -do{ -*_FUNC_ARRAYREFERENCE_LONG_N=FUNC_NUMELEMENTS(_FUNC_ARRAYREFERENCE_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14024);}while(r); -do{ -*_FUNC_ARRAYREFERENCE_LONG_ELEMENTS= 1 ; -if(!qbevent)break;evnt(14027);}while(r); -do{ -*_FUNC_ARRAYREFERENCE_LONG_B= 0 ; -if(!qbevent)break;evnt(14028);}while(r); -S_16563:; -fornext_value2296= 1 ; -fornext_finalvalue2296=*_FUNC_ARRAYREFERENCE_LONG_N; -fornext_step2296= 1 ; -if (fornext_step2296<0) fornext_step_negative2296=1; else fornext_step_negative2296=0; -if (new_error) goto fornext_error2296; -goto fornext_entrylabel2296; -while(1){ -fornext_value2296=fornext_step2296+(*_FUNC_ARRAYREFERENCE_LONG_I); -fornext_entrylabel2296: -*_FUNC_ARRAYREFERENCE_LONG_I=fornext_value2296; -if (fornext_step_negative2296){ -if (fornext_value2296fornext_finalvalue2296) break; -} -fornext_error2296:; -if(qbevent){evnt(14029);if(r)goto S_16563;} -do{ -*_FUNC_ARRAYREFERENCE_LONG_A=qbs_asc(FUNC_GETELEMENT(_FUNC_ARRAYREFERENCE_STRING_A,_FUNC_ARRAYREFERENCE_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14030);}while(r); -S_16565:; -if ((-(*_FUNC_ARRAYREFERENCE_LONG_A== 40 ))||new_error){ -if(qbevent){evnt(14031);if(r)goto S_16565;} -do{ -*_FUNC_ARRAYREFERENCE_LONG_B=*_FUNC_ARRAYREFERENCE_LONG_B+ 1 ; -if(!qbevent)break;evnt(14031);}while(r); -} -S_16568:; -if ((-(*_FUNC_ARRAYREFERENCE_LONG_A== 41 ))||new_error){ -if(qbevent){evnt(14032);if(r)goto S_16568;} -do{ -*_FUNC_ARRAYREFERENCE_LONG_B=*_FUNC_ARRAYREFERENCE_LONG_B- 1 ; -if(!qbevent)break;evnt(14032);}while(r); -} -S_16571:; -if (((-(*_FUNC_ARRAYREFERENCE_LONG_A== 44 ))&(-(*_FUNC_ARRAYREFERENCE_LONG_B== 0 )))||new_error){ -if(qbevent){evnt(14033);if(r)goto S_16571;} -do{ -*_FUNC_ARRAYREFERENCE_LONG_ELEMENTS=*_FUNC_ARRAYREFERENCE_LONG_ELEMENTS+ 1 ; -if(!qbevent)break;evnt(14033);}while(r); -} -fornext_continue_2295:; -} -fornext_exit_2295:; -S_16575:; -if ((-(*(int16*)(((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(516))== -1 ))||new_error){ -if(qbevent){evnt(14036);if(r)goto S_16575;} -S_16576:; -if (((-(((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_CURRENTID)-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])]!= 0 ))&(-(*_FUNC_ARRAYREFERENCE_LONG_ELEMENTS!=((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_CURRENTID)-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])])))||new_error){ -if(qbevent){evnt(14037);if(r)goto S_16576;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Cannot change the number of elements an array has!",50)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14037);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(14037);}while(r); -} -S_16580:; -if ((-(*_FUNC_ARRAYREFERENCE_LONG_ELEMENTS== 1 ))||new_error){ -if(qbevent){evnt(14038);if(r)goto S_16580;} -do{ -*(int16*)(((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(516))= 1 ; -if(!qbevent)break;evnt(14038);}while(r); -do{ -*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_CURRENTID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+516))= 1 ; -if(!qbevent)break;evnt(14038);}while(r); -} -do{ -tmp_long=array_check((*__LONG_CURRENTID)-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[tmp_long]=*_FUNC_ARRAYREFERENCE_LONG_ELEMENTS; -if(!qbevent)break;evnt(14039);}while(r); -}else{ -S_16586:; -if ((-(*_FUNC_ARRAYREFERENCE_LONG_ELEMENTS!=*(int16*)(((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(516))))||new_error){ -if(qbevent){evnt(14041);if(r)goto S_16586;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Cannot change the number of elements an array has!",50)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14041);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(14041);}while(r); -} -} -do{ -*_FUNC_ARRAYREFERENCE_LONG_CURARG= 1 ; -if(!qbevent)break;evnt(14044);}while(r); -do{ -*_FUNC_ARRAYREFERENCE_LONG_FIRSTI= 1 ; -if(!qbevent)break;evnt(14045);}while(r); -S_16593:; -fornext_value2298= 1 ; -fornext_finalvalue2298=*_FUNC_ARRAYREFERENCE_LONG_N; -fornext_step2298= 1 ; -if (fornext_step2298<0) fornext_step_negative2298=1; else fornext_step_negative2298=0; -if (new_error) goto fornext_error2298; -goto fornext_entrylabel2298; -while(1){ -fornext_value2298=fornext_step2298+(*_FUNC_ARRAYREFERENCE_LONG_I); -fornext_entrylabel2298: -*_FUNC_ARRAYREFERENCE_LONG_I=fornext_value2298; -if (fornext_step_negative2298){ -if (fornext_value2298fornext_finalvalue2298) break; -} -fornext_error2298:; -if(qbevent){evnt(14046);if(r)goto S_16593;} -do{ -qbs_set(_FUNC_ARRAYREFERENCE_STRING_L,FUNC_GETELEMENT(_FUNC_ARRAYREFERENCE_STRING_A,_FUNC_ARRAYREFERENCE_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14047);}while(r); -S_16595:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ARRAYREFERENCE_STRING_L,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(14048);if(r)goto S_16595;} -do{ -*_FUNC_ARRAYREFERENCE_LONG_B=*_FUNC_ARRAYREFERENCE_LONG_B+ 1 ; -if(!qbevent)break;evnt(14048);}while(r); -} -S_16598:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ARRAYREFERENCE_STRING_L,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(14049);if(r)goto S_16598;} -do{ -*_FUNC_ARRAYREFERENCE_LONG_B=*_FUNC_ARRAYREFERENCE_LONG_B- 1 ; -if(!qbevent)break;evnt(14049);}while(r); -} -S_16601:; -if ((qbs_cleanup(qbs_tmp_base,((qbs_equal(_FUNC_ARRAYREFERENCE_STRING_L,qbs_new_txt_len(",",1)))&(-(*_FUNC_ARRAYREFERENCE_LONG_B== 0 )))|(-(*_FUNC_ARRAYREFERENCE_LONG_I==*_FUNC_ARRAYREFERENCE_LONG_N))))||new_error){ -if(qbevent){evnt(14050);if(r)goto S_16601;} -S_16602:; -if ((-(*_FUNC_ARRAYREFERENCE_LONG_I==*_FUNC_ARRAYREFERENCE_LONG_N))||new_error){ -if(qbevent){evnt(14051);if(r)goto S_16602;} -S_16603:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ARRAYREFERENCE_STRING_L,qbs_new_txt_len(",",1))))||new_error){ -if(qbevent){evnt(14052);if(r)goto S_16603;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Array index missing",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14052);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(14052);}while(r); -} -do{ -qbs_set(_FUNC_ARRAYREFERENCE_STRING_E,FUNC_EVALUATETOTYP(FUNC_GETELEMENTS(_FUNC_ARRAYREFERENCE_STRING_A,_FUNC_ARRAYREFERENCE_LONG_FIRSTI,_FUNC_ARRAYREFERENCE_LONG_I),&(pass2299= 64 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14053);}while(r); -S_16608:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(14054);if(r)goto S_16608;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(14054);}while(r); -} -}else{ -do{ -qbs_set(_FUNC_ARRAYREFERENCE_STRING_E,FUNC_EVALUATETOTYP(FUNC_GETELEMENTS(_FUNC_ARRAYREFERENCE_STRING_A,_FUNC_ARRAYREFERENCE_LONG_FIRSTI,&(pass2300=*_FUNC_ARRAYREFERENCE_LONG_I- 1 )),&(pass2301= 64 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14056);}while(r); -S_16613:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(14057);if(r)goto S_16613;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(14057);}while(r); -} -} -S_16617:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ARRAYREFERENCE_STRING_E,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(14059);if(r)goto S_16617;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Array index missing",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14059);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(14059);}while(r); -} -do{ -*_FUNC_ARRAYREFERENCE_LONG_ARGI=((*_FUNC_ARRAYREFERENCE_LONG_ELEMENTS-*_FUNC_ARRAYREFERENCE_LONG_CURARG)* 4 )+( 4 ); -if(!qbevent)break;evnt(14060);}while(r); -S_16622:; -if ((-(*_FUNC_ARRAYREFERENCE_LONG_CURARG== 1 ))||new_error){ -if(qbevent){evnt(14061);if(r)goto S_16622;} -S_16623:; -if ((-(*__LONG_NOCHECKS== 0 ))||new_error){ -if(qbevent){evnt(14062);if(r)goto S_16623;} -do{ -qbs_set(_FUNC_ARRAYREFERENCE_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ARRAYREFERENCE_STRING_R,qbs_new_txt_len("array_check((",13)),_FUNC_ARRAYREFERENCE_STRING_E),qbs_new_txt_len(")-",2)),_FUNC_ARRAYREFERENCE_STRING_N),qbs_new_txt_len("[",1)),FUNC_STR2(_FUNC_ARRAYREFERENCE_LONG_ARGI)),qbs_new_txt_len("],",2)),_FUNC_ARRAYREFERENCE_STRING_N),qbs_new_txt_len("[",1)),FUNC_STR2(&(pass2302=*_FUNC_ARRAYREFERENCE_LONG_ARGI+ 1 ))),qbs_new_txt_len("])+",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14063);}while(r); -}else{ -do{ -qbs_set(_FUNC_ARRAYREFERENCE_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ARRAYREFERENCE_STRING_R,qbs_new_txt_len("(",1)),_FUNC_ARRAYREFERENCE_STRING_E),qbs_new_txt_len(")-",2)),_FUNC_ARRAYREFERENCE_STRING_N),qbs_new_txt_len("[",1)),FUNC_STR2(_FUNC_ARRAYREFERENCE_LONG_ARGI)),qbs_new_txt_len("]+",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14065);}while(r); -} -}else{ -S_16629:; -if ((-(*__LONG_NOCHECKS== 0 ))||new_error){ -if(qbevent){evnt(14069);if(r)goto S_16629;} -do{ -qbs_set(_FUNC_ARRAYREFERENCE_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ARRAYREFERENCE_STRING_R,qbs_new_txt_len("array_check((",13)),_FUNC_ARRAYREFERENCE_STRING_E),qbs_new_txt_len(")-",2)),_FUNC_ARRAYREFERENCE_STRING_N),qbs_new_txt_len("[",1)),FUNC_STR2(_FUNC_ARRAYREFERENCE_LONG_ARGI)),qbs_new_txt_len("],",2)),_FUNC_ARRAYREFERENCE_STRING_N),qbs_new_txt_len("[",1)),FUNC_STR2(&(pass2303=*_FUNC_ARRAYREFERENCE_LONG_ARGI+ 1 ))),qbs_new_txt_len("])*",3)),_FUNC_ARRAYREFERENCE_STRING_N),qbs_new_txt_len("[",1)),FUNC_STR2(&(pass2304=*_FUNC_ARRAYREFERENCE_LONG_ARGI+ 2 ))),qbs_new_txt_len("]+",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14070);}while(r); -}else{ -do{ -qbs_set(_FUNC_ARRAYREFERENCE_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ARRAYREFERENCE_STRING_R,qbs_new_txt_len("((",2)),_FUNC_ARRAYREFERENCE_STRING_E),qbs_new_txt_len(")-",2)),_FUNC_ARRAYREFERENCE_STRING_N),qbs_new_txt_len("[",1)),FUNC_STR2(_FUNC_ARRAYREFERENCE_LONG_ARGI)),qbs_new_txt_len("])*",3)),_FUNC_ARRAYREFERENCE_STRING_N),qbs_new_txt_len("[",1)),FUNC_STR2(&(pass2305=*_FUNC_ARRAYREFERENCE_LONG_ARGI+ 2 ))),qbs_new_txt_len("]+",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14072);}while(r); -} -} -do{ -*_FUNC_ARRAYREFERENCE_LONG_FIRSTI=*_FUNC_ARRAYREFERENCE_LONG_I+ 1 ; -if(!qbevent)break;evnt(14075);}while(r); -do{ -*_FUNC_ARRAYREFERENCE_LONG_CURARG=*_FUNC_ARRAYREFERENCE_LONG_CURARG+ 1 ; -if(!qbevent)break;evnt(14076);}while(r); -} -fornext_continue_2297:; -} -fornext_exit_2297:; -do{ -qbs_set(_FUNC_ARRAYREFERENCE_STRING_R,qbs_left(_FUNC_ARRAYREFERENCE_STRING_R,_FUNC_ARRAYREFERENCE_STRING_R->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14079);}while(r); -LABEL_GOTARRAYINDEX:; -if(qbevent){evnt(14080);r=0;} -do{ -qbs_set(_FUNC_ARRAYREFERENCE_STRING_R,qbs_add(qbs_add(_FUNC_ARRAYREFERENCE_STRING_IDNUMBER,__STRING1_SP3),_FUNC_ARRAYREFERENCE_STRING_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14082);}while(r); -do{ -qbs_set(_FUNC_ARRAYREFERENCE_STRING_ARRAYREFERENCE,_FUNC_ARRAYREFERENCE_STRING_R); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14083);}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free9.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_ARRAYREFERENCE_STRING_ARRAYREFERENCE);return _FUNC_ARRAYREFERENCE_STRING_ARRAYREFERENCE; -} -void SUB_ASSIGN(qbs*_SUB_ASSIGN_STRING_A,int32*_SUB_ASSIGN_LONG_N){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data10.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -S_16642:; -fornext_value2309= 1 ; -fornext_finalvalue2309=*_SUB_ASSIGN_LONG_N; -fornext_step2309= 1 ; -if (fornext_step2309<0) fornext_step_negative2309=1; else fornext_step_negative2309=0; -if (new_error) goto fornext_error2309; -goto fornext_entrylabel2309; -while(1){ -fornext_value2309=fornext_step2309+(*_SUB_ASSIGN_LONG_I); -fornext_entrylabel2309: -*_SUB_ASSIGN_LONG_I=fornext_value2309; -if (fornext_step_negative2309){ -if (fornext_value2309fornext_finalvalue2309) break; -} -fornext_error2309:; -if(qbevent){evnt(14089);if(r)goto S_16642;} -do{ -*_SUB_ASSIGN_LONG_C=qbs_asc(FUNC_GETELEMENT(_SUB_ASSIGN_STRING_A,_SUB_ASSIGN_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14090);}while(r); -S_16644:; -if ((-(*_SUB_ASSIGN_LONG_C== 40 ))||new_error){ -if(qbevent){evnt(14091);if(r)goto S_16644;} -do{ -*_SUB_ASSIGN_LONG_B=*_SUB_ASSIGN_LONG_B+ 1 ; -if(!qbevent)break;evnt(14091);}while(r); -} -S_16647:; -if ((-(*_SUB_ASSIGN_LONG_C== 41 ))||new_error){ -if(qbevent){evnt(14092);if(r)goto S_16647;} -do{ -*_SUB_ASSIGN_LONG_B=*_SUB_ASSIGN_LONG_B- 1 ; -if(!qbevent)break;evnt(14092);}while(r); -} -S_16650:; -if (((-(*_SUB_ASSIGN_LONG_C== 61 ))&(-(*_SUB_ASSIGN_LONG_B== 0 )))||new_error){ -if(qbevent){evnt(14093);if(r)goto S_16650;} -S_16651:; -if ((-(*_SUB_ASSIGN_LONG_I== 1 ))||new_error){ -if(qbevent){evnt(14094);if(r)goto S_16651;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected ... =",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14094);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(14094);}while(r); -} -S_16655:; -if ((-(*_SUB_ASSIGN_LONG_I==*_SUB_ASSIGN_LONG_N))||new_error){ -if(qbevent){evnt(14095);if(r)goto S_16655;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected = ...",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14095);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(14095);}while(r); -} -do{ -qbs_set(_SUB_ASSIGN_STRING_A2,FUNC_FIXOPERATIONORDER(FUNC_GETELEMENTS(_SUB_ASSIGN_STRING_A,&(pass2310= 1 ),&(pass2311=*_SUB_ASSIGN_LONG_I- 1 )))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14097);}while(r); -S_16660:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(14098);if(r)goto S_16660;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(14098);}while(r); -} -do{ -qbs_set(_SUB_ASSIGN_STRING_L,qbs_add(qbs_add(qbs_add(__STRING_TLAYOUT,__STRING1_SP),qbs_new_txt_len("=",1)),__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14099);}while(r); -S_16664:; -if ((-(*_SUB_ASSIGN_LONG_I== 2 ))||new_error){ -if(qbevent){evnt(14102);if(r)goto S_16664;} -do{ -*_SUB_ASSIGN_LONG_TRY=FUNC_FINDID(_SUB_ASSIGN_STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14103);}while(r); -S_16666:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(14104);if(r)goto S_16666;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(14104);}while(r); -} -S_16669:; -while((*_SUB_ASSIGN_LONG_TRY)||new_error){ -if(qbevent){evnt(14105);if(r)goto S_16669;} -S_16670:; -if ((*(int32*)(((char*)__UDT_ID)+(536)))||new_error){ -if(qbevent){evnt(14106);if(r)goto S_16670;} -S_16671:; -if ((-(*__LONG_SUBFUNCN==*(int32*)(((char*)__UDT_ID)+(2641))))||new_error){ -if(qbevent){evnt(14107);if(r)goto S_16671;} -S_16672:; -if ((-((*(int32*)(((char*)__UDT_ID)+(536))&*__LONG_ISUDT)== 0 ))||new_error){ -if(qbevent){evnt(14108);if(r)goto S_16672;} -do{ -SUB_MAKEIDREFER(_SUB_ASSIGN_STRING_A2,_SUB_ASSIGN_LONG_TYP); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14109);}while(r); -do{ -goto LABEL_ASSIGNSIMPLEVARIABLE; -if(!qbevent)break;evnt(14110);}while(r); -} -} -} -S_16678:; -if ((-(*_SUB_ASSIGN_LONG_TRY== 2 ))||new_error){ -if(qbevent){evnt(14114);if(r)goto S_16678;} -do{ -*__INTEGER_FINDANOTHERID= 1 ; -if(!qbevent)break;evnt(14114);}while(r); -do{ -*_SUB_ASSIGN_LONG_TRY=FUNC_FINDID(_SUB_ASSIGN_STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14114);}while(r); -}else{ -do{ -*_SUB_ASSIGN_LONG_TRY= 0 ; -if(!qbevent)break;evnt(14114);}while(r); -} -S_16684:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(14115);if(r)goto S_16684;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(14115);}while(r); -} -dl_continue_2312:; -} -dl_exit_2312:; -} -do{ -qbs_set(_SUB_ASSIGN_STRING_A2,FUNC_EVALUATE(_SUB_ASSIGN_STRING_A2,_SUB_ASSIGN_LONG_TYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14119);}while(r); -S_16690:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(14119);if(r)goto S_16690;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(14119);}while(r); -} -LABEL_ASSIGNSIMPLEVARIABLE:; -if(qbevent){evnt(14120);r=0;} -S_16693:; -if ((-((*_SUB_ASSIGN_LONG_TYP&*__LONG_ISREFERENCE)== 0 ))||new_error){ -if(qbevent){evnt(14121);if(r)goto S_16693;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected variable =",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14121);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(14121);}while(r); -} -do{ -SUB_SETREFER(_SUB_ASSIGN_STRING_A2,_SUB_ASSIGN_LONG_TYP,FUNC_GETELEMENTS(_SUB_ASSIGN_STRING_A,&(pass2313=*_SUB_ASSIGN_LONG_I+ 1 ),_SUB_ASSIGN_LONG_N),&(pass2314= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14122);}while(r); -S_16698:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(14123);if(r)goto S_16698;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(14123);}while(r); -} -do{ -qbs_set(__STRING_TLAYOUT,qbs_add(_SUB_ASSIGN_STRING_L,__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14124);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(14126);}while(r); -} -fornext_continue_2308:; -} -fornext_exit_2308:; -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected =",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14130);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(14130);}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free10.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -void SUB_CLEARID(){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data11.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -memcpy((((char*)__UDT_ID)+(0)+ 0),(((char*)__UDT_CLEARIDDATA)+(0)+ 0), 256); -memcpy((((char*)__UDT_ID)+(0)+ 256),(((char*)__UDT_CLEARIDDATA)+(0)+ 256), 256); -memcpy((((char*)__UDT_ID)+(0)+ 512),(((char*)__UDT_CLEARIDDATA)+(0)+ 512), 4); -memcpy((((char*)__UDT_ID)+(0)+ 516),(((char*)__UDT_CLEARIDDATA)+(0)+ 516), 2); -memcpy((((char*)__UDT_ID)+(0)+ 518),(((char*)__UDT_CLEARIDDATA)+(0)+ 518), 2); -memcpy((((char*)__UDT_ID)+(0)+ 520),(((char*)__UDT_CLEARIDDATA)+(0)+ 520), 8); -memcpy((((char*)__UDT_ID)+(0)+ 528),(((char*)__UDT_CLEARIDDATA)+(0)+ 528), 8); -memcpy((((char*)__UDT_ID)+(0)+ 536),(((char*)__UDT_CLEARIDDATA)+(0)+ 536), 4); -memcpy((((char*)__UDT_ID)+(0)+ 540),(((char*)__UDT_CLEARIDDATA)+(0)+ 540), 4); -memcpy((((char*)__UDT_ID)+(0)+ 544),(((char*)__UDT_CLEARIDDATA)+(0)+ 544), 2); -memcpy((((char*)__UDT_ID)+(0)+ 546),(((char*)__UDT_CLEARIDDATA)+(0)+ 546), 2); -memcpy((((char*)__UDT_ID)+(0)+ 548),(((char*)__UDT_CLEARIDDATA)+(0)+ 548), 2); -memcpy((((char*)__UDT_ID)+(0)+ 550),(((char*)__UDT_CLEARIDDATA)+(0)+ 550), 256); -memcpy((((char*)__UDT_ID)+(0)+ 806),(((char*)__UDT_CLEARIDDATA)+(0)+ 806), 2); -memcpy((((char*)__UDT_ID)+(0)+ 808),(((char*)__UDT_CLEARIDDATA)+(0)+ 808), 1); -memcpy((((char*)__UDT_ID)+(0)+ 809),(((char*)__UDT_CLEARIDDATA)+(0)+ 809), 2); -memcpy((((char*)__UDT_ID)+(0)+ 811),(((char*)__UDT_CLEARIDDATA)+(0)+ 811), 2); -memcpy((((char*)__UDT_ID)+(0)+ 813),(((char*)__UDT_CLEARIDDATA)+(0)+ 813), 400); -memcpy((((char*)__UDT_ID)+(0)+ 1213),(((char*)__UDT_CLEARIDDATA)+(0)+ 1213), 400); -memcpy((((char*)__UDT_ID)+(0)+ 1613),(((char*)__UDT_CLEARIDDATA)+(0)+ 1613), 256); -memcpy((((char*)__UDT_ID)+(0)+ 1869),(((char*)__UDT_CLEARIDDATA)+(0)+ 1869), 256); -memcpy((((char*)__UDT_ID)+(0)+ 2125),(((char*)__UDT_CLEARIDDATA)+(0)+ 2125), 256); -memcpy((((char*)__UDT_ID)+(0)+ 2381),(((char*)__UDT_CLEARIDDATA)+(0)+ 2381), 4); -memcpy((((char*)__UDT_ID)+(0)+ 2385),(((char*)__UDT_CLEARIDDATA)+(0)+ 2385), 256); -memcpy((((char*)__UDT_ID)+(0)+ 2641),(((char*)__UDT_CLEARIDDATA)+(0)+ 2641), 4); -memcpy((((char*)__UDT_ID)+(0)+ 2645),(((char*)__UDT_CLEARIDDATA)+(0)+ 2645), 2); -memcpy((((char*)__UDT_ID)+(0)+ 2647),(((char*)__UDT_CLEARIDDATA)+(0)+ 2647), 100); -memcpy((((char*)__UDT_ID)+(0)+ 2747),(((char*)__UDT_CLEARIDDATA)+(0)+ 2747), 100); -memcpy((((char*)__UDT_ID)+(0)+ 2847),(((char*)__UDT_CLEARIDDATA)+(0)+ 2847), 4); -memcpy((((char*)__UDT_ID)+(0)+ 2851),(((char*)__UDT_CLEARIDDATA)+(0)+ 2851), 2); -memcpy((((char*)__UDT_ID)+(0)+ 2853),(((char*)__UDT_CLEARIDDATA)+(0)+ 2853), 2); -memcpy((((char*)__UDT_ID)+(0)+ 2855),(((char*)__UDT_CLEARIDDATA)+(0)+ 2855), 4); -memcpy((((char*)__UDT_ID)+(0)+ 2859),(((char*)__UDT_CLEARIDDATA)+(0)+ 2859), 2); -qbs_set(*(qbs**)(((char*)__UDT_ID)+(0)+ 2861), *(qbs**)(((char*)__UDT_CLEARIDDATA)+(0)+ 2861)); -if(!qbevent)break;evnt(14134);}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free11.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -void SUB_VWATCHVARIABLE(qbs*_SUB_VWATCHVARIABLE_STRING_THIS,int8*_SUB_VWATCHVARIABLE_BYTE_ACTION){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data12.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -if(!qbevent)break;evnt(14138);}while(r); -do{ -if(!qbevent)break;evnt(14139);}while(r); -S_16710:; -if(qbevent){evnt(14141);if(r)goto S_16710;} -S_16711:; -if (((*_SUB_VWATCHVARIABLE_BYTE_ACTION==( -1 )))||new_error){ -if(qbevent){evnt(14142);if(r)goto S_16711;} -do{ -*_SUB_VWATCHVARIABLE_LONG_TOTALLOCALVARIABLES= 0 ; -if(!qbevent)break;evnt(14143);}while(r); -do{ -qbs_set(_SUB_VWATCHVARIABLE_STRING_LOCALVARIABLESLIST,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14144);}while(r); -do{ -*_SUB_VWATCHVARIABLE_LONG_TOTALMAINMODULEVARIABLES= 0 ; -if(!qbevent)break;evnt(14145);}while(r); -do{ -qbs_set(_SUB_VWATCHVARIABLE_STRING_MAINMODULEVARIABLESLIST,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14146);}while(r); -sc_ec_74_end:; -goto sc_2316_end; -} -S_16716:; -if (((*_SUB_VWATCHVARIABLE_BYTE_ACTION==( 0 )))||new_error){ -if(qbevent){evnt(14147);if(r)goto S_16716;} -S_16717:; -if ((qbs_cleanup(qbs_tmp_base,(-(func_instr(NULL,__STRING_VWATCHVARIABLEEXCLUSIONS,qbs_add(qbs_add(qbs_new_txt_len("@",1),_SUB_VWATCHVARIABLE_STRING_THIS),qbs_new_txt_len("@",1)),0)> 0 ))|(qbs_equal(qbs_left(_SUB_VWATCHVARIABLE_STRING_THIS, 12 ),qbs_new_txt_len("_SUB_VWATCH_",12)))))||new_error){ -if(qbevent){evnt(14148);if(r)goto S_16717;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(14149);}while(r); -} -do{ -qbs_set(__STRING_VWATCHNEWVARIABLE,_SUB_VWATCHVARIABLE_STRING_THIS); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14152);}while(r); -S_16721:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SUBFUNC,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(14153);if(r)goto S_16721;} -do{ -*_SUB_VWATCHVARIABLE_LONG_TOTALMAINMODULEVARIABLES=*_SUB_VWATCHVARIABLE_LONG_TOTALMAINMODULEVARIABLES+ 1 ; -if(!qbevent)break;evnt(14154);}while(r); -do{ -qbs_set(_SUB_VWATCHVARIABLE_STRING_MAINMODULEVARIABLESLIST,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_VWATCHVARIABLE_STRING_MAINMODULEVARIABLESLIST,qbs_new_txt_len("vwatch_global_vars[",19)),FUNC_STR2(&(pass2317=*_SUB_VWATCHVARIABLE_LONG_TOTALMAINMODULEVARIABLES- 1 ))),qbs_new_txt_len("] = &",5)),_SUB_VWATCHVARIABLE_STRING_THIS),qbs_new_txt_len(";",1)),__STRING_CRLF)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14155);}while(r); -do{ -SUB_MANAGEVARIABLELIST(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1),_SUB_VWATCHVARIABLE_STRING_THIS,&(pass2318=*_SUB_VWATCHVARIABLE_LONG_TOTALMAINMODULEVARIABLES- 1 ),&(pass2319= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14156);}while(r); -}else{ -do{ -*_SUB_VWATCHVARIABLE_LONG_TOTALLOCALVARIABLES=*_SUB_VWATCHVARIABLE_LONG_TOTALLOCALVARIABLES+ 1 ; -if(!qbevent)break;evnt(14158);}while(r); -do{ -qbs_set(_SUB_VWATCHVARIABLE_STRING_LOCALVARIABLESLIST,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_VWATCHVARIABLE_STRING_LOCALVARIABLESLIST,qbs_new_txt_len("vwatch_local_vars[",18)),FUNC_STR2(&(pass2320=*_SUB_VWATCHVARIABLE_LONG_TOTALLOCALVARIABLES- 1 ))),qbs_new_txt_len("] = &",5)),_SUB_VWATCHVARIABLE_STRING_THIS),qbs_new_txt_len(";",1)),__STRING_CRLF)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14159);}while(r); -do{ -SUB_MANAGEVARIABLELIST(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1),_SUB_VWATCHVARIABLE_STRING_THIS,&(pass2321=*_SUB_VWATCHVARIABLE_LONG_TOTALLOCALVARIABLES- 1 ),&(pass2322= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14160);}while(r); -} -sc_ec_75_end:; -goto sc_2316_end; -} -S_16730:; -if (((*_SUB_VWATCHVARIABLE_BYTE_ACTION==( 1 )))||new_error){ -if(qbevent){evnt(14162);if(r)goto S_16730;} -S_16731:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SUBFUNC,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(14163);if(r)goto S_16731;} -S_16732:; -if ((-(*_SUB_VWATCHVARIABLE_LONG_TOTALMAINMODULEVARIABLES> 0 ))||new_error){ -if(qbevent){evnt(14164);if(r)goto S_16732;} -do{ -SUB_WRITEBUFLINE(&(pass2323=*__LONG_DATATXTBUF),qbs_new_txt_len("void *vwatch_local_vars[0];",27)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14165);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass2324=*__LONG_GLOBTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("void *vwatch_global_vars[",25),qbs_str((int32)(*_SUB_VWATCHVARIABLE_LONG_TOTALMAINMODULEVARIABLES))),qbs_new_txt_len("];",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14166);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass2325=*__LONG_DATATXTBUF),_SUB_VWATCHVARIABLE_STRING_MAINMODULEVARIABLESLIST); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14167);}while(r); -}else{ -do{ -SUB_WRITEBUFLINE(&(pass2326=*__LONG_DATATXTBUF),qbs_new_txt_len("void *vwatch_local_vars[0];",27)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14169);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass2327=*__LONG_GLOBTXTBUF),qbs_new_txt_len("void *vwatch_global_vars[0];",28)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14170);}while(r); -} -do{ -qbs_set(_SUB_VWATCHVARIABLE_STRING_MAINMODULEVARIABLESLIST,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14173);}while(r); -do{ -*_SUB_VWATCHVARIABLE_LONG_TOTALMAINMODULEVARIABLES= 0 ; -if(!qbevent)break;evnt(14174);}while(r); -}else{ -S_16743:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_SUBFUNC,qbs_new_txt_len("SUB_VWATCH",10))))||new_error){ -if(qbevent){evnt(14176);if(r)goto S_16743;} -S_16744:; -if ((-(*_SUB_VWATCHVARIABLE_LONG_TOTALLOCALVARIABLES> 0 ))||new_error){ -if(qbevent){evnt(14177);if(r)goto S_16744;} -do{ -SUB_WRITEBUFLINE(&(pass2328=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("void *vwatch_local_vars[",24),qbs_str((int32)(*_SUB_VWATCHVARIABLE_LONG_TOTALLOCALVARIABLES))),qbs_new_txt_len("];",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14178);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass2329=*__LONG_DATATXTBUF),_SUB_VWATCHVARIABLE_STRING_LOCALVARIABLESLIST); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14179);}while(r); -}else{ -do{ -SUB_WRITEBUFLINE(&(pass2330=*__LONG_DATATXTBUF),qbs_new_txt_len("void *vwatch_local_vars[0];",27)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14181);}while(r); -} -}else{ -do{ -SUB_WRITEBUFLINE(&(pass2331=*__LONG_DATATXTBUF),qbs_new_txt_len("void *vwatch_local_vars[0];",27)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14184);}while(r); -} -do{ -qbs_set(_SUB_VWATCHVARIABLE_STRING_LOCALVARIABLESLIST,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14187);}while(r); -do{ -*_SUB_VWATCHVARIABLE_LONG_TOTALLOCALVARIABLES= 0 ; -if(!qbevent)break;evnt(14188);}while(r); -} -sc_ec_76_end:; -goto sc_2316_end; -} -sc_2316_end:; -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free12.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -void SUB_VWATCHADDLABEL(int32*_SUB_VWATCHADDLABEL_LONG_THIS,int8*_SUB_VWATCHADDLABEL_BYTE_LASTLINE){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data13.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -if(!qbevent)break;evnt(14194);}while(r); -S_16758:; -if ((-(*_SUB_VWATCHADDLABEL_BYTE_LASTLINE== 0 ))||new_error){ -if(qbevent){evnt(14196);if(r)goto S_16758;} -S_16759:; -while((qbs_cleanup(qbs_tmp_base,-(*_SUB_VWATCHADDLABEL_LONG_THIS>__STRING_VWATCHUSEDLABELS->len)))||new_error){ -if(qbevent){evnt(14197);if(r)goto S_16759;} -do{ -qbs_set(__STRING_VWATCHUSEDLABELS,qbs_add(__STRING_VWATCHUSEDLABELS,func_space( 1000 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14198);}while(r); -do{ -qbs_set(__STRING_VWATCHUSEDSKIPLABELS,qbs_add(__STRING_VWATCHUSEDSKIPLABELS,func_space( 1000 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14199);}while(r); -ww_continue_2332:; -} -ww_exit_2332:; -S_16763:; -if ((-(*__LONG_FIRSTLINENUMBERLABELVWATCH== 0 ))||new_error){ -if(qbevent){evnt(14202);if(r)goto S_16763;} -do{ -*__LONG_FIRSTLINENUMBERLABELVWATCH=*_SUB_VWATCHADDLABEL_LONG_THIS; -if(!qbevent)break;evnt(14203);}while(r); -}else{ -S_16766:; -if ((-(*_SUB_VWATCHADDLABEL_LONG_PREVSKIP!=*_SUB_VWATCHADDLABEL_LONG_PREVLABEL))||new_error){ -if(qbevent){evnt(14205);if(r)goto S_16766;} -do{ -tqbs=__STRING_VWATCHUSEDSKIPLABELS; if (!new_error){ -tmp_fileno=*_SUB_VWATCHADDLABEL_LONG_PREVLABEL; if (!new_error){ -tmp_long= 1 ; if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(14206);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass2334=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("VWATCH_SKIPLABEL_",17),FUNC_STR2(_SUB_VWATCHADDLABEL_LONG_PREVLABEL)),qbs_new_txt_len(":;",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14207);}while(r); -do{ -*_SUB_VWATCHADDLABEL_LONG_PREVSKIP=*_SUB_VWATCHADDLABEL_LONG_PREVLABEL; -if(!qbevent)break;evnt(14208);}while(r); -} -} -S_16772:; -if ((-(*_SUB_VWATCHADDLABEL_LONG_PREVLABEL!=*_SUB_VWATCHADDLABEL_LONG_THIS))||new_error){ -if(qbevent){evnt(14212);if(r)goto S_16772;} -do{ -tqbs=__STRING_VWATCHUSEDLABELS; if (!new_error){ -tmp_fileno=*_SUB_VWATCHADDLABEL_LONG_THIS; if (!new_error){ -tmp_long= 1 ; if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(14213);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass2335=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("VWATCH_LABEL_",13),FUNC_STR2(_SUB_VWATCHADDLABEL_LONG_THIS)),qbs_new_txt_len(":;",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14214);}while(r); -do{ -*_SUB_VWATCHADDLABEL_LONG_PREVLABEL=*_SUB_VWATCHADDLABEL_LONG_THIS; -if(!qbevent)break;evnt(14215);}while(r); -do{ -*__LONG_LASTLINENUMBERLABELVWATCH=*_SUB_VWATCHADDLABEL_LONG_THIS; -if(!qbevent)break;evnt(14216);}while(r); -} -}else{ -S_16779:; -if ((-(*_SUB_VWATCHADDLABEL_LONG_PREVSKIP!=*_SUB_VWATCHADDLABEL_LONG_PREVLABEL))||new_error){ -if(qbevent){evnt(14219);if(r)goto S_16779;} -do{ -tqbs=__STRING_VWATCHUSEDSKIPLABELS; if (!new_error){ -tmp_fileno=*_SUB_VWATCHADDLABEL_LONG_PREVLABEL; if (!new_error){ -tmp_long= 1 ; if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(14220);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass2336=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("VWATCH_SKIPLABEL_",17),FUNC_STR2(_SUB_VWATCHADDLABEL_LONG_PREVLABEL)),qbs_new_txt_len(":;",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14221);}while(r); -do{ -*_SUB_VWATCHADDLABEL_LONG_PREVSKIP=*_SUB_VWATCHADDLABEL_LONG_PREVLABEL; -if(!qbevent)break;evnt(14222);}while(r); -} -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free13.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -void SUB_CLOSEMAIN(){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data14.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -SUB_XEND(); -if(!qbevent)break;evnt(14228);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass2337=*__LONG_MAINTXTBUF),qbs_new_txt_len("return;",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14230);}while(r); -S_16787:; -if ((*__LONG_VWATCHON&(-(*__LONG_FIRSTLINENUMBERLABELVWATCH> 0 )))||new_error){ -if(qbevent){evnt(14232);if(r)goto S_16787;} -do{ -SUB_WRITEBUFLINE(&(pass2338=*__LONG_MAINTXTBUF),qbs_new_txt_len("VWATCH_SETNEXTLINE:;",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14233);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass2339=*__LONG_MAINTXTBUF),qbs_new_txt_len("switch (*__LONG_VWATCH_GOTO) {",30)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14234);}while(r); -S_16790:; -fornext_value2341=*__LONG_FIRSTLINENUMBERLABELVWATCH; -fornext_finalvalue2341=*__LONG_LASTLINENUMBERLABELVWATCH; -fornext_step2341= 1 ; -if (fornext_step2341<0) fornext_step_negative2341=1; else fornext_step_negative2341=0; -if (new_error) goto fornext_error2341; -goto fornext_entrylabel2341; -while(1){ -fornext_value2341=fornext_step2341+(*_SUB_CLOSEMAIN_LONG_I); -fornext_entrylabel2341: -*_SUB_CLOSEMAIN_LONG_I=fornext_value2341; -if (fornext_step_negative2341){ -if (fornext_value2341fornext_finalvalue2341) break; -} -fornext_error2341:; -if(qbevent){evnt(14235);if(r)goto S_16790;} -S_16791:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_VWATCHUSEDLABELS,*_SUB_CLOSEMAIN_LONG_I)== 1 )))||new_error){ -if(qbevent){evnt(14236);if(r)goto S_16791;} -do{ -SUB_WRITEBUFLINE(&(pass2342=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len(" case ",9),FUNC_STR2(_SUB_CLOSEMAIN_LONG_I)),qbs_new_txt_len(":",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14237);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass2343=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len(" goto VWATCH_LABEL_",26),FUNC_STR2(_SUB_CLOSEMAIN_LONG_I)),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14238);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass2344=*__LONG_MAINTXTBUF),qbs_new_txt_len(" break;",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14239);}while(r); -} -fornext_continue_2340:; -} -fornext_exit_2340:; -do{ -SUB_WRITEBUFLINE(&(pass2345=*__LONG_MAINTXTBUF),qbs_new_txt_len(" default:",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14242);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass2346=*__LONG_MAINTXTBUF),qbs_new_txt_len(" *__LONG_VWATCH_GOTO=*__LONG_VWATCH_LINENUMBER;",54)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14243);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass2347=*__LONG_MAINTXTBUF),qbs_new_txt_len(" goto VWATCH_SETNEXTLINE;",32)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14244);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass2348=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14245);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass2349=*__LONG_MAINTXTBUF),qbs_new_txt_len("VWATCH_SKIPLINE:;",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14247);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass2350=*__LONG_MAINTXTBUF),qbs_new_txt_len("switch (*__LONG_VWATCH_GOTO) {",30)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14248);}while(r); -S_16803:; -fornext_value2352=*__LONG_FIRSTLINENUMBERLABELVWATCH; -fornext_finalvalue2352=*__LONG_LASTLINENUMBERLABELVWATCH; -fornext_step2352= 1 ; -if (fornext_step2352<0) fornext_step_negative2352=1; else fornext_step_negative2352=0; -if (new_error) goto fornext_error2352; -goto fornext_entrylabel2352; -while(1){ -fornext_value2352=fornext_step2352+(*_SUB_CLOSEMAIN_LONG_I); -fornext_entrylabel2352: -*_SUB_CLOSEMAIN_LONG_I=fornext_value2352; -if (fornext_step_negative2352){ -if (fornext_value2352fornext_finalvalue2352) break; -} -fornext_error2352:; -if(qbevent){evnt(14249);if(r)goto S_16803;} -S_16804:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_VWATCHUSEDSKIPLABELS,*_SUB_CLOSEMAIN_LONG_I)== 1 )))||new_error){ -if(qbevent){evnt(14250);if(r)goto S_16804;} -do{ -SUB_WRITEBUFLINE(&(pass2353=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len(" case -",10),FUNC_STR2(_SUB_CLOSEMAIN_LONG_I)),qbs_new_txt_len(":",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14251);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass2354=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len(" goto VWATCH_SKIPLABEL_",30),FUNC_STR2(_SUB_CLOSEMAIN_LONG_I)),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14252);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass2355=*__LONG_MAINTXTBUF),qbs_new_txt_len(" break;",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14253);}while(r); -} -fornext_continue_2351:; -} -fornext_exit_2351:; -do{ -SUB_WRITEBUFLINE(&(pass2356=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14256);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass2357=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14260);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass2358=*__LONG_RETTXTBUF),qbs_new_txt_len("}",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14261);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass2359=*__LONG_RETTXTBUF),qbs_new_txt_len("}",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14262);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass2360=*__LONG_RETTXTBUF),qbs_new_txt_len("error(3);",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14263);}while(r); -do{ -*__INTEGER_CLOSEDMAIN= 1 ; -if(!qbevent)break;evnt(14265);}while(r); -do{ -*__LONG_FIRSTLINENUMBERLABELVWATCH= 0 ; -if(!qbevent)break;evnt(14266);}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free14.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -int32 FUNC_COUNTELEMENTS(qbs*_FUNC_COUNTELEMENTS_STRING_A){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data15.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -*_FUNC_COUNTELEMENTS_LONG_N=FUNC_NUMELEMENTS(_FUNC_COUNTELEMENTS_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14270);}while(r); -do{ -*_FUNC_COUNTELEMENTS_LONG_C= 1 ; -if(!qbevent)break;evnt(14271);}while(r); -S_16820:; -fornext_value2363= 1 ; -fornext_finalvalue2363=*_FUNC_COUNTELEMENTS_LONG_N; -fornext_step2363= 1 ; -if (fornext_step2363<0) fornext_step_negative2363=1; else fornext_step_negative2363=0; -if (new_error) goto fornext_error2363; -goto fornext_entrylabel2363; -while(1){ -fornext_value2363=fornext_step2363+(*_FUNC_COUNTELEMENTS_LONG_I); -fornext_entrylabel2363: -*_FUNC_COUNTELEMENTS_LONG_I=fornext_value2363; -if (fornext_step_negative2363){ -if (fornext_value2363fornext_finalvalue2363) break; -} -fornext_error2363:; -if(qbevent){evnt(14272);if(r)goto S_16820;} -do{ -qbs_set(_FUNC_COUNTELEMENTS_STRING_E,FUNC_GETELEMENT(_FUNC_COUNTELEMENTS_STRING_A,_FUNC_COUNTELEMENTS_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14273);}while(r); -S_16822:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_COUNTELEMENTS_STRING_E,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(14274);if(r)goto S_16822;} -do{ -*_FUNC_COUNTELEMENTS_LONG_B=*_FUNC_COUNTELEMENTS_LONG_B+ 1 ; -if(!qbevent)break;evnt(14274);}while(r); -} -S_16825:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_COUNTELEMENTS_STRING_E,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(14275);if(r)goto S_16825;} -do{ -*_FUNC_COUNTELEMENTS_LONG_B=*_FUNC_COUNTELEMENTS_LONG_B- 1 ; -if(!qbevent)break;evnt(14275);}while(r); -} -S_16828:; -if ((-(*_FUNC_COUNTELEMENTS_LONG_B< 0 ))||new_error){ -if(qbevent){evnt(14276);if(r)goto S_16828;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Unexpected ) encountered",24)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14276);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(14276);}while(r); -} -S_16832:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_COUNTELEMENTS_STRING_E,qbs_new_txt_len(",",1)))&(-(*_FUNC_COUNTELEMENTS_LONG_B== 0 ))))||new_error){ -if(qbevent){evnt(14277);if(r)goto S_16832;} -do{ -*_FUNC_COUNTELEMENTS_LONG_C=*_FUNC_COUNTELEMENTS_LONG_C+ 1 ; -if(!qbevent)break;evnt(14277);}while(r); -} -fornext_continue_2362:; -} -fornext_exit_2362:; -do{ -*_FUNC_COUNTELEMENTS_LONG_COUNTELEMENTS=*_FUNC_COUNTELEMENTS_LONG_C; -if(!qbevent)break;evnt(14279);}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free15.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -return *_FUNC_COUNTELEMENTS_LONG_COUNTELEMENTS; -} -int32 FUNC_DIM2(qbs*_FUNC_DIM2_STRING_VARNAME,qbs*_FUNC_DIM2_STRING_TYP2,int32*_FUNC_DIM2_LONG_METHOD,qbs*_FUNC_DIM2_STRING_ELEMENTS){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data16.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -qbs_set(_FUNC_DIM2_STRING_TYP,_FUNC_DIM2_STRING_TYP2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14304);}while(r); -do{ -*_FUNC_DIM2_LONG_DIM2= 1 ; -if(!qbevent)break;evnt(14305);}while(r); -S_16839:; -if (( 0 )||new_error){ -if(qbevent){evnt(14307);if(r)goto S_16839;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2367; -sub_file_print(tmp_fileno,qbs_new_txt_len("dim2 called",11), 0, 1, 0); -if (new_error) goto skip2367; -sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_DIM2_LONG_METHOD)), 1, 0, 1); -if (new_error) goto skip2367; -skip2367: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(14307);}while(r); -} -do{ -qbs_set(_FUNC_DIM2_STRING_CVARNAME,_FUNC_DIM2_STRING_VARNAME); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14309);}while(r); -do{ -qbs_set(_FUNC_DIM2_STRING_L,_FUNC_DIM2_STRING_CVARNAME); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14310);}while(r); -do{ -qbs_set(_FUNC_DIM2_STRING_VARNAME,qbs_ucase(_FUNC_DIM2_STRING_VARNAME)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14311);}while(r); -S_16845:; -if ((-(*__INTEGER_DIMSFARRAY== 1 ))||new_error){ -if(qbevent){evnt(14313);if(r)goto S_16845;} -do{ -*_FUNC_DIM2_LONG_F= 0 ; -if(!qbevent)break;evnt(14313);}while(r); -}else{ -do{ -*_FUNC_DIM2_LONG_F= 1 ; -if(!qbevent)break;evnt(14313);}while(r); -} -S_16850:; -if (((-(*__LONG_DIMSTATIC!= 0 ))&(-(*__INTEGER_DIMSHARED== 0 )))||new_error){ -if(qbevent){evnt(14315);if(r)goto S_16850;} -do{ -*__INTEGER_DEFDATAHANDLE=*__LONG_GLOBTXTBUF; -if(!qbevent)break;evnt(14318);}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(14319);}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(14320);}while(r); -} -do{ -qbs_set(_FUNC_DIM2_STRING_SCOPE2,qbs_add(qbs_add(qbs_add(__STRING_MODULE,qbs_new_txt_len("_",1)),__STRING_SUBFUNC),qbs_new_txt_len("_",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14324);}while(r); -S_16856:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_DIM2_STRING_TYP->len== 0 )))||new_error){ -if(qbevent){evnt(14327);if(r)goto S_16856;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("DIM2: No type specified!",24)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14327);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(14327);}while(r); -} -S_16860:; -fornext_value2370= 1 ; -fornext_finalvalue2370=*__LONG_LASTTYPE; -fornext_step2370= 1 ; -if (fornext_step2370<0) fornext_step_negative2370=1; else fornext_step_negative2370=0; -if (new_error) goto fornext_error2370; -goto fornext_entrylabel2370; -while(1){ -fornext_value2370=fornext_step2370+(*_FUNC_DIM2_LONG_I); -fornext_entrylabel2370: -*_FUNC_DIM2_LONG_I=fornext_value2370; -if (fornext_step_negative2370){ -if (fornext_value2370fornext_finalvalue2370) break; -} -fornext_error2370:; -if(qbevent){evnt(14331);if(r)goto S_16860;} -S_16861:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_DIM2_STRING_TYP,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXNAME[0]))[(array_check((*_FUNC_DIM2_LONG_I)-__ARRAY_STRING256_UDTXNAME[4],__ARRAY_STRING256_UDTXNAME[5]))*256],256,1))))|(((qbs_equal(_FUNC_DIM2_STRING_TYP,qbs_new_txt_len("MEM",3)))&(qbs_equal(qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXNAME[0]))[(array_check((*_FUNC_DIM2_LONG_I)-__ARRAY_STRING256_UDTXNAME[4],__ARRAY_STRING256_UDTXNAME[5]))*256],256,1)),qbs_new_txt_len("_MEM",4)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ -if(qbevent){evnt(14332);if(r)goto S_16861;} -do{ -qbs_set(__STRING_DIM2TYPEPASSBACK,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[(array_check((*_FUNC_DIM2_LONG_I)-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]))*256],256,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14333);}while(r); -S_16863:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_DIM2_STRING_TYP,qbs_new_txt_len("MEM",3)))&(qbs_equal(qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXNAME[0]))[(array_check((*_FUNC_DIM2_LONG_I)-__ARRAY_STRING256_UDTXNAME[4],__ARRAY_STRING256_UDTXNAME[5]))*256],256,1)),qbs_new_txt_len("_MEM",4)))))||new_error){ -if(qbevent){evnt(14334);if(r)goto S_16863;} -do{ -qbs_set(__STRING_DIM2TYPEPASSBACK,func_mid(qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[(array_check((*_FUNC_DIM2_LONG_I)-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]))*256],256,1)), 2 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14335);}while(r); -} -do{ -qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_new_txt_len("UDT_",4),_FUNC_DIM2_STRING_VARNAME)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14338);}while(r); -S_16867:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(14341);if(r)goto S_16867;} -do{ -*__INTEGER_ARRAYDESC= 0 ; -if(!qbevent)break;evnt(14342);}while(r); -S_16869:; -if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ -if(qbevent){evnt(14343);if(r)goto S_16869;} -do{ -*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_VARNAME); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14344);}while(r); -S_16871:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(14345);if(r)goto S_16871;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(14345);}while(r); -} -S_16874:; -while((*_FUNC_DIM2_LONG_TRY)||new_error){ -if(qbevent){evnt(14346);if(r)goto S_16874;} -S_16875:; -if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ -if(qbevent){evnt(14347);if(r)goto S_16875;} -do{ -qbs_set(_FUNC_DIM2_STRING_L,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14348);}while(r); -do{ -*__INTEGER_ARRAYDESC=*__LONG_CURRENTID; -if(!qbevent)break;evnt(14349);}while(r); -do{ -qbs_set(_FUNC_DIM2_STRING_SCOPE2,FUNC_SCOPE()); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14349);}while(r); -do{ -goto dl_exit_2371; -if(!qbevent)break;evnt(14350);}while(r); -} -S_16881:; -if ((-(*_FUNC_DIM2_LONG_TRY== 2 ))||new_error){ -if(qbevent){evnt(14352);if(r)goto S_16881;} -do{ -*__INTEGER_FINDANOTHERID= 1 ; -if(!qbevent)break;evnt(14352);}while(r); -do{ -*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_VARNAME); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14352);}while(r); -}else{ -do{ -*_FUNC_DIM2_LONG_TRY= 0 ; -if(!qbevent)break;evnt(14352);}while(r); -} -S_16887:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(14353);if(r)goto S_16887;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(14353);}while(r); -} -dl_continue_2371:; -} -dl_exit_2371:; -} -do{ -qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_add(_FUNC_DIM2_STRING_SCOPE2,qbs_new_txt_len("ARRAY_",6)),_FUNC_DIM2_STRING_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14356);}while(r); -do{ -*_FUNC_DIM2_LONG_BITS=((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*_FUNC_DIM2_LONG_I)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])]; -if(!qbevent)break;evnt(14357);}while(r); -S_16894:; -if ((((int16*)(__ARRAY_INTEGER_UDTXBYTEALIGN[0]))[array_check((*_FUNC_DIM2_LONG_I)-__ARRAY_INTEGER_UDTXBYTEALIGN[4],__ARRAY_INTEGER_UDTXBYTEALIGN[5])])||new_error){ -if(qbevent){evnt(14358);if(r)goto S_16894;} -S_16895:; -if ((*_FUNC_DIM2_LONG_BITS% 8 )||new_error){ -if(qbevent){evnt(14359);if(r)goto S_16895;} -do{ -*_FUNC_DIM2_LONG_BITS=*_FUNC_DIM2_LONG_BITS+ 8 -(*_FUNC_DIM2_LONG_BITS% 8 ); -if(!qbevent)break;evnt(14359);}while(r); -} -} -S_16899:; -if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ -if(qbevent){evnt(14362);if(r)goto S_16899;} -S_16900:; -if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_DIM2_STRING_ELEMENTS->len== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||new_error){ -if(qbevent){evnt(14364);if(r)goto S_16900;} -do{ -*__LONG_E=((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])]; -if(!qbevent)break;evnt(14365);}while(r); -S_16902:; -if ((*__LONG_E)||new_error){ -if(qbevent){evnt(14365);if(r)goto S_16902;} -do{ -qbs_set(_FUNC_DIM2_STRING_ELEMENTS,qbs_add(_FUNC_DIM2_STRING_ELEMENTS,FUNC_STR2(__LONG_E))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14365);}while(r); -} -} -do{ -*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass2373=-(*_FUNC_DIM2_LONG_BITS)),_FUNC_DIM2_LONG_I); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14367);}while(r); -S_16907:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(14368);if(r)goto S_16907;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(14368);}while(r); -} -do{ -qbs_set(_FUNC_DIM2_STRING_L,qbs_add(qbs_add(_FUNC_DIM2_STRING_L,__STRING1_SP),__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14369);}while(r); -S_16911:; -if ((*__INTEGER_ARRAYDESC)||new_error){ -if(qbevent){evnt(14370);if(r)goto S_16911;} -do{ -goto LABEL_DIM2EXITFUNC; -if(!qbevent)break;evnt(14370);}while(r); -} -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(14371);}while(r); -}else{ -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(14374);}while(r); -S_16917:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||new_error){ -if(qbevent){evnt(14375);if(r)goto S_16917;} -do{ -*_FUNC_DIM2_LONG_NUME= -1 ; -if(!qbevent)break;evnt(14376);}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2847))=*__LONG_GLINKID; -if(!qbevent)break;evnt(14377);}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2851))=*__INTEGER_GLINKARG; -if(!qbevent)break;evnt(14378);}while(r); -}else{ -do{ -*_FUNC_DIM2_LONG_NUME=qbr(func_val(_FUNC_DIM2_STRING_ELEMENTS)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14380);}while(r); -} -} -do{ -*(int32*)(((char*)__UDT_ID)+(512))=*__LONG_UDTTYPE+*_FUNC_DIM2_LONG_I; -if(!qbevent)break;evnt(14384);}while(r); -S_16926:; -if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ -if(qbevent){evnt(14385);if(r)goto S_16926;} -do{ -*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISINCONVENTIONALMEMORY; -if(!qbevent)break;evnt(14385);}while(r); -} -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),_FUNC_DIM2_STRING_CVARNAME); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14386);}while(r); -S_16930:; -if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||new_error){ -if(qbevent){evnt(14388);if(r)goto S_16930;} -do{ -*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ; -if(!qbevent)break;evnt(14388);}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(518))= 1 ; -if(!qbevent)break;evnt(14388);}while(r); -} -do{ -*(int16*)(((char*)__UDT_ID)+(516))=*_FUNC_DIM2_LONG_NUME; -if(!qbevent)break;evnt(14390);}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),_FUNC_DIM2_STRING_N); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14391);}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(14392);}while(r); -do{ -SUB_VWATCHVARIABLE(_FUNC_DIM2_STRING_N,&(pass2374= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14393);}while(r); -S_16938:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(14394);if(r)goto S_16938;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(14394);}while(r); -} -do{ -goto LABEL_DIM2EXITFUNC; -if(!qbevent)break;evnt(14395);}while(r); -} -do{ -*_FUNC_DIM2_LONG_BITS=((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*_FUNC_DIM2_LONG_I)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])]; -if(!qbevent)break;evnt(14399);}while(r); -do{ -*_FUNC_DIM2_LONG_BYTES=*_FUNC_DIM2_LONG_BITS/ 8 ; -if(!qbevent)break;evnt(14399);}while(r); -S_16945:; -if ((*_FUNC_DIM2_LONG_BITS% 8 )||new_error){ -if(qbevent){evnt(14400);if(r)goto S_16945;} -do{ -*_FUNC_DIM2_LONG_BYTES=*_FUNC_DIM2_LONG_BYTES+ 1 ; -if(!qbevent)break;evnt(14401);}while(r); -} -do{ -qbs_set(_FUNC_DIM2_STRING_N,qbs_add(_FUNC_DIM2_STRING_SCOPE2,_FUNC_DIM2_STRING_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14403);}while(r); -S_16949:; -if ((*_FUNC_DIM2_LONG_F)||new_error){ -if(qbevent){evnt(14404);if(r)goto S_16949;} -do{ -SUB_WRITEBUFLINE(__INTEGER_DEFDATAHANDLE,qbs_add(qbs_add(qbs_new_txt_len("void *",6),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=NULL;",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14404);}while(r); -} -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(14405);}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),_FUNC_DIM2_STRING_CVARNAME); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14406);}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(536))=*__LONG_UDTTYPE+*_FUNC_DIM2_LONG_I; -if(!qbevent)break;evnt(14407);}while(r); -S_16955:; -if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ -if(qbevent){evnt(14408);if(r)goto S_16955;} -do{ -*(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISINCONVENTIONALMEMORY; -if(!qbevent)break;evnt(14409);}while(r); -S_16957:; -if ((*_FUNC_DIM2_LONG_F)||new_error){ -if(qbevent){evnt(14410);if(r)goto S_16957;} -do{ -SUB_WRITEBUFLINE(&(pass2375=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14411);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass2376=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("cmem_sp-=",9),FUNC_STR2(_FUNC_DIM2_LONG_BYTES)),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14412);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass2377=*__LONG_DATATXTBUF),qbs_new_txt_len("if (cmem_splen== 0 )))||new_error){ -if(qbevent){evnt(14447);if(r)goto S_16994;} -do{ -SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Expected more type information after ",37),__STRING_QB64PREFIX),qbs_new_txt_len("UNSIGNED!",9))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14447);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(14447);}while(r); -} -} -do{ -qbs_set(_FUNC_DIM2_STRING_N,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14450);}while(r); -S_17000:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_DIM2_STRING_TYP, 6 ),qbs_new_txt_len("STRING",6))))||new_error){ -if(qbevent){evnt(14452);if(r)goto S_17000;} -S_17001:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_DIM2_STRING_TYP->len> 6 )))||new_error){ -if(qbevent){evnt(14454);if(r)goto S_17001;} -S_17002:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(_FUNC_DIM2_STRING_TYP, 9 ),qbs_new_txt_len("STRING * ",9))))||new_error){ -if(qbevent){evnt(14455);if(r)goto S_17002;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected STRING * number/constant",33)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14455);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(14455);}while(r); -} -do{ -qbs_set(_FUNC_DIM2_STRING_C,qbs_right(_FUNC_DIM2_STRING_TYP,_FUNC_DIM2_STRING_TYP->len- 9 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14457);}while(r); -do{ -*_FUNC_DIM2_LONG_HASHFOUND= 0 ; -if(!qbevent)break;evnt(14460);}while(r); -do{ -qbs_set(_FUNC_DIM2_STRING_HASHNAME,_FUNC_DIM2_STRING_C); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14461);}while(r); -do{ -*_FUNC_DIM2_LONG_HASHCHKFLAGS= 1024 ; -if(!qbevent)break;evnt(14462);}while(r); -do{ -*_FUNC_DIM2_LONG_HASHRES=FUNC_HASHFINDREV(_FUNC_DIM2_STRING_HASHNAME,_FUNC_DIM2_LONG_HASHCHKFLAGS,_FUNC_DIM2_LONG_HASHRESFLAGS,_FUNC_DIM2_LONG_HASHRESREF); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14463);}while(r); -S_17011:; -while((*_FUNC_DIM2_LONG_HASHRES)||new_error){ -if(qbevent){evnt(14464);if(r)goto S_17011;} -S_17012:; -if (((-(((int32*)(__ARRAY_LONG_CONSTSUBFUNC[0]))[array_check((*_FUNC_DIM2_LONG_HASHRESREF)-__ARRAY_LONG_CONSTSUBFUNC[4],__ARRAY_LONG_CONSTSUBFUNC[5])]==*__LONG_SUBFUNCN))|(-(((int32*)(__ARRAY_LONG_CONSTSUBFUNC[0]))[array_check((*_FUNC_DIM2_LONG_HASHRESREF)-__ARRAY_LONG_CONSTSUBFUNC[4],__ARRAY_LONG_CONSTSUBFUNC[5])]== 0 )))||new_error){ -if(qbevent){evnt(14465);if(r)goto S_17012;} -S_17013:; -if ((((int32*)(__ARRAY_LONG_CONSTDEFINED[0]))[array_check((*_FUNC_DIM2_LONG_HASHRESREF)-__ARRAY_LONG_CONSTDEFINED[4],__ARRAY_LONG_CONSTDEFINED[5])])||new_error){ -if(qbevent){evnt(14466);if(r)goto S_17013;} -do{ -*_FUNC_DIM2_LONG_HASHFOUND= 1 ; -if(!qbevent)break;evnt(14467);}while(r); -do{ -goto dl_exit_2391; -if(!qbevent)break;evnt(14468);}while(r); -} -} -S_17018:; -if ((-(*_FUNC_DIM2_LONG_HASHRES!= 1 ))||new_error){ -if(qbevent){evnt(14471);if(r)goto S_17018;} -do{ -*_FUNC_DIM2_LONG_HASHRES=FUNC_HASHFINDCONT(_FUNC_DIM2_LONG_HASHRESFLAGS,_FUNC_DIM2_LONG_HASHRESREF); -if(!qbevent)break;evnt(14471);}while(r); -}else{ -do{ -*_FUNC_DIM2_LONG_HASHRES= 0 ; -if(!qbevent)break;evnt(14471);}while(r); -} -dl_continue_2391:; -} -dl_exit_2391:; -S_17024:; -if ((*_FUNC_DIM2_LONG_HASHFOUND)||new_error){ -if(qbevent){evnt(14473);if(r)goto S_17024;} -do{ -*_FUNC_DIM2_LONG_I2=*_FUNC_DIM2_LONG_HASHRESREF; -if(!qbevent)break;evnt(14474);}while(r); -do{ -*_FUNC_DIM2_LONG_T=((int32*)(__ARRAY_LONG_CONSTTYPE[0]))[array_check((*_FUNC_DIM2_LONG_I2)-__ARRAY_LONG_CONSTTYPE[4],__ARRAY_LONG_CONSTTYPE[5])]; -if(!qbevent)break;evnt(14475);}while(r); -S_17027:; -if ((*_FUNC_DIM2_LONG_T&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(14476);if(r)goto S_17027;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected STRING * numeric-constant",34)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14476);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(14476);}while(r); -} -S_17031:; -if ((*_FUNC_DIM2_LONG_T&*__LONG_ISFLOAT)||new_error){ -if(qbevent){evnt(14478);if(r)goto S_17031;} -do{ -*_FUNC_DIM2_FLOAT_V=((long double*)(__ARRAY_FLOAT_CONSTFLOAT[0]))[array_check((*_FUNC_DIM2_LONG_I2)-__ARRAY_FLOAT_CONSTFLOAT[4],__ARRAY_FLOAT_CONSTFLOAT[5])]; -if(!qbevent)break;evnt(14479);}while(r); -do{ -*_FUNC_DIM2_INTEGER64_V=qbr(*_FUNC_DIM2_FLOAT_V); -if(!qbevent)break;evnt(14480);}while(r); -do{ -*_FUNC_DIM2_UINTEGER64_V=*_FUNC_DIM2_INTEGER64_V; -if(!qbevent)break;evnt(14481);}while(r); -}else{ -S_17036:; -if ((*_FUNC_DIM2_LONG_T&*__LONG_ISUNSIGNED)||new_error){ -if(qbevent){evnt(14483);if(r)goto S_17036;} -do{ -*_FUNC_DIM2_UINTEGER64_V=((uint64*)(__ARRAY_UINTEGER64_CONSTUINTEGER[0]))[array_check((*_FUNC_DIM2_LONG_I2)-__ARRAY_UINTEGER64_CONSTUINTEGER[4],__ARRAY_UINTEGER64_CONSTUINTEGER[5])]; -if(!qbevent)break;evnt(14484);}while(r); -do{ -*_FUNC_DIM2_INTEGER64_V=*_FUNC_DIM2_UINTEGER64_V; -if(!qbevent)break;evnt(14485);}while(r); -do{ -*_FUNC_DIM2_FLOAT_V=*_FUNC_DIM2_INTEGER64_V; -if(!qbevent)break;evnt(14486);}while(r); -}else{ -do{ -*_FUNC_DIM2_INTEGER64_V=((int64*)(__ARRAY_INTEGER64_CONSTINTEGER[0]))[array_check((*_FUNC_DIM2_LONG_I2)-__ARRAY_INTEGER64_CONSTINTEGER[4],__ARRAY_INTEGER64_CONSTINTEGER[5])]; -if(!qbevent)break;evnt(14488);}while(r); -do{ -*_FUNC_DIM2_FLOAT_V=*_FUNC_DIM2_INTEGER64_V; -if(!qbevent)break;evnt(14489);}while(r); -do{ -*_FUNC_DIM2_UINTEGER64_V=*_FUNC_DIM2_INTEGER64_V; -if(!qbevent)break;evnt(14490);}while(r); -} -} -S_17046:; -if (((-(*_FUNC_DIM2_INTEGER64_V< 1 ))|(-(*_FUNC_DIM2_INTEGER64_V> 9999999999ll )))||new_error){ -if(qbevent){evnt(14493);if(r)goto S_17046;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("STRING * out-of-range constant",30)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14493);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(14493);}while(r); -} -do{ -*_FUNC_DIM2_LONG_BYTES=*_FUNC_DIM2_INTEGER64_V; -if(!qbevent)break;evnt(14494);}while(r); -do{ -qbs_set(__STRING_DIM2TYPEPASSBACK,qbs_add(FUNC_SCASE(qbs_new_txt_len("String * ",9)),((qbs*)(((uint64*)(__ARRAY_STRING_CONSTCNAME[0]))[array_check((*_FUNC_DIM2_LONG_I2)-__ARRAY_STRING_CONSTCNAME[4],__ARRAY_STRING_CONSTCNAME[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14495);}while(r); -do{ -goto LABEL_CONSTANTLENSTR; -if(!qbevent)break;evnt(14496);}while(r); -} -S_17054:; -if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISUINTEGER(_FUNC_DIM2_STRING_C)== 0 )))||new_error){ -if(qbevent){evnt(14499);if(r)goto S_17054;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Number/Constant expected after *",32)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14499);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(14499);}while(r); -} -S_17058:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_DIM2_STRING_C->len> 10 )))||new_error){ -if(qbevent){evnt(14500);if(r)goto S_17058;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Too many characters in number after *",37)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14500);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(14500);}while(r); -} -do{ -*_FUNC_DIM2_LONG_BYTES=qbr(func_val(_FUNC_DIM2_STRING_C)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14501);}while(r); -S_17063:; -if ((-(*_FUNC_DIM2_LONG_BYTES== 0 ))||new_error){ -if(qbevent){evnt(14502);if(r)goto S_17063;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Cannot create a fixed string of length 0",40)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14502);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(14502);}while(r); -} -LABEL_CONSTANTLENSTR:; -if(qbevent){evnt(14503);r=0;} -do{ -qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("STRING",6),FUNC_STR2(_FUNC_DIM2_LONG_BYTES)),qbs_new_txt_len("_",1)),_FUNC_DIM2_STRING_VARNAME)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14504);}while(r); -S_17068:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(14507);if(r)goto S_17068;} -do{ -*__INTEGER_ARRAYDESC= 0 ; -if(!qbevent)break;evnt(14508);}while(r); -S_17070:; -if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ -if(qbevent){evnt(14509);if(r)goto S_17070;} -do{ -*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(qbs_add(_FUNC_DIM2_STRING_VARNAME,qbs_new_txt_len("$",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14510);}while(r); -S_17072:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(14511);if(r)goto S_17072;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(14511);}while(r); -} -S_17075:; -while((*_FUNC_DIM2_LONG_TRY)||new_error){ -if(qbevent){evnt(14512);if(r)goto S_17075;} -S_17076:; -if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ -if(qbevent){evnt(14513);if(r)goto S_17076;} -do{ -qbs_set(_FUNC_DIM2_STRING_L,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14514);}while(r); -do{ -*__INTEGER_ARRAYDESC=*__LONG_CURRENTID; -if(!qbevent)break;evnt(14515);}while(r); -do{ -qbs_set(_FUNC_DIM2_STRING_SCOPE2,FUNC_SCOPE()); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14515);}while(r); -do{ -goto dl_exit_2393; -if(!qbevent)break;evnt(14516);}while(r); -} -S_17082:; -if ((-(*_FUNC_DIM2_LONG_TRY== 2 ))||new_error){ -if(qbevent){evnt(14518);if(r)goto S_17082;} -do{ -*__INTEGER_FINDANOTHERID= 1 ; -if(!qbevent)break;evnt(14518);}while(r); -do{ -*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(qbs_add(_FUNC_DIM2_STRING_VARNAME,qbs_new_txt_len("$",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14518);}while(r); -}else{ -do{ -*_FUNC_DIM2_LONG_TRY= 0 ; -if(!qbevent)break;evnt(14518);}while(r); -} -S_17088:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(14519);if(r)goto S_17088;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(14519);}while(r); -} -dl_continue_2393:; -} -dl_exit_2393:; -} -do{ -qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_add(_FUNC_DIM2_STRING_SCOPE2,qbs_new_txt_len("ARRAY_",6)),_FUNC_DIM2_STRING_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14522);}while(r); -S_17094:; -if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ -if(qbevent){evnt(14528);if(r)goto S_17094;} -S_17095:; -if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_DIM2_STRING_ELEMENTS->len== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||new_error){ -if(qbevent){evnt(14530);if(r)goto S_17095;} -do{ -*__LONG_E=((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])]; -if(!qbevent)break;evnt(14531);}while(r); -S_17097:; -if ((*__LONG_E)||new_error){ -if(qbevent){evnt(14531);if(r)goto S_17097;} -do{ -qbs_set(_FUNC_DIM2_STRING_ELEMENTS,qbs_add(_FUNC_DIM2_STRING_ELEMENTS,FUNC_STR2(__LONG_E))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14531);}while(r); -} -} -do{ -*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,_FUNC_DIM2_LONG_BYTES,&(pass2395= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14533);}while(r); -S_17102:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(14534);if(r)goto S_17102;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(14534);}while(r); -} -do{ -qbs_set(_FUNC_DIM2_STRING_L,qbs_add(qbs_add(_FUNC_DIM2_STRING_L,__STRING1_SP),__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14535);}while(r); -S_17106:; -if ((*__INTEGER_ARRAYDESC)||new_error){ -if(qbevent){evnt(14536);if(r)goto S_17106;} -do{ -goto LABEL_DIM2EXITFUNC; -if(!qbevent)break;evnt(14536);}while(r); -} -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(14537);}while(r); -}else{ -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(14540);}while(r); -S_17112:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||new_error){ -if(qbevent){evnt(14541);if(r)goto S_17112;} -do{ -*_FUNC_DIM2_LONG_NUME= -1 ; -if(!qbevent)break;evnt(14542);}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2847))=*__LONG_GLINKID; -if(!qbevent)break;evnt(14543);}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2851))=*__INTEGER_GLINKARG; -if(!qbevent)break;evnt(14544);}while(r); -}else{ -do{ -*_FUNC_DIM2_LONG_NUME=qbr(func_val(_FUNC_DIM2_STRING_ELEMENTS)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14546);}while(r); -} -} -do{ -*(int32*)(((char*)__UDT_ID)+(512))=*__LONG_STRINGTYPE+*__LONG_ISFIXEDLENGTH; -if(!qbevent)break;evnt(14550);}while(r); -S_17121:; -if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ -if(qbevent){evnt(14551);if(r)goto S_17121;} -do{ -*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISINCONVENTIONALMEMORY; -if(!qbevent)break;evnt(14551);}while(r); -} -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),_FUNC_DIM2_STRING_CVARNAME); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14552);}while(r); -S_17125:; -if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||new_error){ -if(qbevent){evnt(14553);if(r)goto S_17125;} -do{ -*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ; -if(!qbevent)break;evnt(14553);}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(518))= 1 ; -if(!qbevent)break;evnt(14553);}while(r); -} -do{ -*(int16*)(((char*)__UDT_ID)+(516))=*_FUNC_DIM2_LONG_NUME; -if(!qbevent)break;evnt(14555);}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),_FUNC_DIM2_STRING_N); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14556);}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(540))=*_FUNC_DIM2_LONG_BYTES; -if(!qbevent)break;evnt(14557);}while(r); -S_17132:; -if ((-(*_FUNC_DIM2_LONG_METHOD== 0 ))||new_error){ -if(qbevent){evnt(14558);if(r)goto S_17132;} -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(520)),8,1),qbs_add(qbs_new_txt_len("$",1),FUNC_STR2(_FUNC_DIM2_LONG_BYTES))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14559);}while(r); -} -S_17135:; -if ((-(*_FUNC_DIM2_LONG_METHOD== 1 ))||new_error){ -if(qbevent){evnt(14561);if(r)goto S_17135;} -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_add(qbs_new_txt_len("$",1),FUNC_STR2(_FUNC_DIM2_LONG_BYTES))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14562);}while(r); -} -do{ -SUB_REGID(); -if(!qbevent)break;evnt(14564);}while(r); -S_17139:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(14565);if(r)goto S_17139;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(14565);}while(r); -} -do{ -SUB_VWATCHVARIABLE(_FUNC_DIM2_STRING_N,&(pass2396= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14566);}while(r); -do{ -goto LABEL_DIM2EXITFUNC; -if(!qbevent)break;evnt(14567);}while(r); -} -do{ -qbs_set(_FUNC_DIM2_STRING_N,qbs_add(_FUNC_DIM2_STRING_SCOPE2,_FUNC_DIM2_STRING_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14571);}while(r); -S_17146:; -if ((*_FUNC_DIM2_LONG_F)||new_error){ -if(qbevent){evnt(14572);if(r)goto S_17146;} -do{ -SUB_WRITEBUFLINE(__INTEGER_DEFDATAHANDLE,qbs_add(qbs_add(qbs_new_txt_len("qbs *",5),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=NULL;",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14572);}while(r); -} -S_17149:; -if ((*_FUNC_DIM2_LONG_F)||new_error){ -if(qbevent){evnt(14573);if(r)goto S_17149;} -do{ -SUB_WRITEBUFLINE(&(pass2397=*__LONG_FREETXTBUF),qbs_add(qbs_add(qbs_new_txt_len("qbs_free(",9),_FUNC_DIM2_STRING_N),qbs_new_txt_len(");",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14573);}while(r); -} -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(14574);}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),_FUNC_DIM2_STRING_CVARNAME); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14575);}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(536))=*__LONG_STRINGTYPE+*__LONG_ISFIXEDLENGTH; -if(!qbevent)break;evnt(14576);}while(r); -S_17155:; -if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ -if(qbevent){evnt(14577);if(r)goto S_17155;} -do{ -*(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISINCONVENTIONALMEMORY; -if(!qbevent)break;evnt(14578);}while(r); -S_17157:; -if ((*_FUNC_DIM2_LONG_F)||new_error){ -if(qbevent){evnt(14579);if(r)goto S_17157;} -do{ -SUB_WRITEBUFLINE(&(pass2398=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14579);}while(r); -} -S_17160:; -if ((*_FUNC_DIM2_LONG_F)||new_error){ -if(qbevent){evnt(14580);if(r)goto S_17160;} -do{ -SUB_WRITEBUFLINE(&(pass2399=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("cmem_sp-=",9),FUNC_STR2(_FUNC_DIM2_LONG_BYTES)),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14580);}while(r); -} -S_17163:; -if ((*_FUNC_DIM2_LONG_F)||new_error){ -if(qbevent){evnt(14581);if(r)goto S_17163;} -do{ -SUB_WRITEBUFLINE(&(pass2400=*__LONG_DATATXTBUF),qbs_new_txt_len("if (cmem_spchr,0,",8)),FUNC_STR2(_FUNC_DIM2_LONG_BYTES)),qbs_new_txt_len(");",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14583);}while(r); -} -S_17172:; -if ((*_FUNC_DIM2_LONG_F)||new_error){ -if(qbevent){evnt(14584);if(r)goto S_17172;} -do{ -SUB_WRITEBUFLINE(&(pass2403=*__LONG_DATATXTBUF),qbs_new_txt_len("}",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14584);}while(r); -} -}else{ -S_17176:; -if ((*_FUNC_DIM2_LONG_F)||new_error){ -if(qbevent){evnt(14586);if(r)goto S_17176;} -do{ -SUB_WRITEBUFLINE(&(pass2404=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14586);}while(r); -} -do{ -qbs_set(_FUNC_DIM2_STRING_O,qbs_add(qbs_add(qbs_new_txt_len("(uint8*)mem_static_malloc(",26),FUNC_STR2(_FUNC_DIM2_LONG_BYTES)),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14587);}while(r); -S_17180:; -if ((*_FUNC_DIM2_LONG_F)||new_error){ -if(qbevent){evnt(14588);if(r)goto S_17180;} -do{ -SUB_WRITEBUFLINE(&(pass2405=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("=qbs_new_fixed(",15)),_FUNC_DIM2_STRING_O),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_DIM2_LONG_BYTES)),qbs_new_txt_len(",0);",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14588);}while(r); -} -S_17183:; -if ((*_FUNC_DIM2_LONG_F)||new_error){ -if(qbevent){evnt(14589);if(r)goto S_17183;} -do{ -SUB_WRITEBUFLINE(&(pass2406=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("memset(",7),_FUNC_DIM2_STRING_N),qbs_new_txt_len("->chr,0,",8)),FUNC_STR2(_FUNC_DIM2_LONG_BYTES)),qbs_new_txt_len(");",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14589);}while(r); -} -S_17186:; -if ((*_FUNC_DIM2_LONG_F)||new_error){ -if(qbevent){evnt(14590);if(r)goto S_17186;} -do{ -SUB_WRITEBUFLINE(&(pass2407=*__LONG_DATATXTBUF),qbs_new_txt_len("}",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14590);}while(r); -} -} -do{ -*(int32*)(((char*)__UDT_ID)+(540))=*_FUNC_DIM2_LONG_BYTES; -if(!qbevent)break;evnt(14592);}while(r); -S_17191:; -if ((-(*_FUNC_DIM2_LONG_METHOD== 0 ))||new_error){ -if(qbevent){evnt(14593);if(r)goto S_17191;} -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(520)),8,1),qbs_add(qbs_new_txt_len("$",1),FUNC_STR2(_FUNC_DIM2_LONG_BYTES))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14594);}while(r); -} -S_17194:; -if ((-(*_FUNC_DIM2_LONG_METHOD== 1 ))||new_error){ -if(qbevent){evnt(14596);if(r)goto S_17194;} -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_add(qbs_new_txt_len("$",1),FUNC_STR2(_FUNC_DIM2_LONG_BYTES))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14597);}while(r); -} -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),_FUNC_DIM2_STRING_N); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14599);}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(14600);}while(r); -do{ -SUB_VWATCHVARIABLE(_FUNC_DIM2_STRING_N,&(pass2408= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14601);}while(r); -S_17200:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(14602);if(r)goto S_17200;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(14602);}while(r); -} -do{ -goto LABEL_DIM2EXITFUNC; -if(!qbevent)break;evnt(14603);}while(r); -} -do{ -qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_new_txt_len("STRING_",7),_FUNC_DIM2_STRING_VARNAME)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14607);}while(r); -S_17206:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(14610);if(r)goto S_17206;} -do{ -*__INTEGER_ARRAYDESC= 0 ; -if(!qbevent)break;evnt(14611);}while(r); -S_17208:; -if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ -if(qbevent){evnt(14612);if(r)goto S_17208;} -do{ -*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(qbs_add(_FUNC_DIM2_STRING_VARNAME,qbs_new_txt_len("$",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14613);}while(r); -S_17210:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(14614);if(r)goto S_17210;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(14614);}while(r); -} -S_17213:; -while((*_FUNC_DIM2_LONG_TRY)||new_error){ -if(qbevent){evnt(14615);if(r)goto S_17213;} -S_17214:; -if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ -if(qbevent){evnt(14616);if(r)goto S_17214;} -do{ -qbs_set(_FUNC_DIM2_STRING_L,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14617);}while(r); -do{ -*__INTEGER_ARRAYDESC=*__LONG_CURRENTID; -if(!qbevent)break;evnt(14618);}while(r); -do{ -qbs_set(_FUNC_DIM2_STRING_SCOPE2,FUNC_SCOPE()); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14618);}while(r); -do{ -goto dl_exit_2409; -if(!qbevent)break;evnt(14619);}while(r); -} -S_17220:; -if ((-(*_FUNC_DIM2_LONG_TRY== 2 ))||new_error){ -if(qbevent){evnt(14621);if(r)goto S_17220;} -do{ -*__INTEGER_FINDANOTHERID= 1 ; -if(!qbevent)break;evnt(14621);}while(r); -do{ -*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(qbs_add(_FUNC_DIM2_STRING_VARNAME,qbs_new_txt_len("$",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14621);}while(r); -}else{ -do{ -*_FUNC_DIM2_LONG_TRY= 0 ; -if(!qbevent)break;evnt(14621);}while(r); -} -S_17226:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(14622);if(r)goto S_17226;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(14622);}while(r); -} -dl_continue_2409:; -} -dl_exit_2409:; -} -do{ -qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_add(_FUNC_DIM2_STRING_SCOPE2,qbs_new_txt_len("ARRAY_",6)),_FUNC_DIM2_STRING_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14625);}while(r); -S_17232:; -if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ -if(qbevent){evnt(14631);if(r)goto S_17232;} -S_17233:; -if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_DIM2_STRING_ELEMENTS->len== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||new_error){ -if(qbevent){evnt(14633);if(r)goto S_17233;} -do{ -*__LONG_E=((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])]; -if(!qbevent)break;evnt(14634);}while(r); -S_17235:; -if ((*__LONG_E)||new_error){ -if(qbevent){evnt(14634);if(r)goto S_17235;} -do{ -qbs_set(_FUNC_DIM2_STRING_ELEMENTS,qbs_add(_FUNC_DIM2_STRING_ELEMENTS,FUNC_STR2(__LONG_E))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14634);}while(r); -} -} -do{ -*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass2411= -2147483647 ),&(pass2412= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14636);}while(r); -S_17240:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(14637);if(r)goto S_17240;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(14637);}while(r); -} -do{ -qbs_set(_FUNC_DIM2_STRING_L,qbs_add(qbs_add(_FUNC_DIM2_STRING_L,__STRING1_SP),__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14638);}while(r); -S_17244:; -if ((*__INTEGER_ARRAYDESC)||new_error){ -if(qbevent){evnt(14639);if(r)goto S_17244;} -do{ -goto LABEL_DIM2EXITFUNC; -if(!qbevent)break;evnt(14639);}while(r); -} -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(14640);}while(r); -}else{ -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(14643);}while(r); -S_17250:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||new_error){ -if(qbevent){evnt(14644);if(r)goto S_17250;} -do{ -*_FUNC_DIM2_LONG_NUME= -1 ; -if(!qbevent)break;evnt(14645);}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2847))=*__LONG_GLINKID; -if(!qbevent)break;evnt(14646);}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2851))=*__INTEGER_GLINKARG; -if(!qbevent)break;evnt(14647);}while(r); -}else{ -do{ -*_FUNC_DIM2_LONG_NUME=qbr(func_val(_FUNC_DIM2_STRING_ELEMENTS)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14649);}while(r); -} -} -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),_FUNC_DIM2_STRING_CVARNAME); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14653);}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(512))=*__LONG_STRINGTYPE; -if(!qbevent)break;evnt(14654);}while(r); -S_17260:; -if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ -if(qbevent){evnt(14655);if(r)goto S_17260;} -do{ -*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISINCONVENTIONALMEMORY; -if(!qbevent)break;evnt(14655);}while(r); -} -S_17263:; -if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||new_error){ -if(qbevent){evnt(14656);if(r)goto S_17263;} -do{ -*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ; -if(!qbevent)break;evnt(14656);}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(518))= 1 ; -if(!qbevent)break;evnt(14656);}while(r); -} -do{ -*(int16*)(((char*)__UDT_ID)+(516))=*_FUNC_DIM2_LONG_NUME; -if(!qbevent)break;evnt(14658);}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),_FUNC_DIM2_STRING_N); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14659);}while(r); -S_17269:; -if ((-(*_FUNC_DIM2_LONG_METHOD== 0 ))||new_error){ -if(qbevent){evnt(14660);if(r)goto S_17269;} -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(520)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14661);}while(r); -} -S_17272:; -if ((-(*_FUNC_DIM2_LONG_METHOD== 1 ))||new_error){ -if(qbevent){evnt(14663);if(r)goto S_17272;} -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14664);}while(r); -} -do{ -SUB_REGID(); -if(!qbevent)break;evnt(14666);}while(r); -S_17276:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(14667);if(r)goto S_17276;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(14667);}while(r); -} -do{ -SUB_VWATCHVARIABLE(_FUNC_DIM2_STRING_N,&(pass2413= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14668);}while(r); -do{ -goto LABEL_DIM2EXITFUNC; -if(!qbevent)break;evnt(14669);}while(r); -} -do{ -qbs_set(_FUNC_DIM2_STRING_N,qbs_add(_FUNC_DIM2_STRING_SCOPE2,_FUNC_DIM2_STRING_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14673);}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(14674);}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),_FUNC_DIM2_STRING_CVARNAME); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14675);}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(536))=*__LONG_STRINGTYPE; -if(!qbevent)break;evnt(14676);}while(r); -S_17286:; -if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ -if(qbevent){evnt(14677);if(r)goto S_17286;} -S_17287:; -if ((*_FUNC_DIM2_LONG_F)||new_error){ -if(qbevent){evnt(14678);if(r)goto S_17287;} -do{ -SUB_WRITEBUFLINE(__INTEGER_DEFDATAHANDLE,qbs_add(qbs_add(qbs_new_txt_len("qbs *",5),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=NULL;",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14678);}while(r); -} -S_17290:; -if ((*_FUNC_DIM2_LONG_F)||new_error){ -if(qbevent){evnt(14679);if(r)goto S_17290;} -do{ -SUB_WRITEBUFLINE(&(pass2414=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (!",5),_FUNC_DIM2_STRING_N),qbs_new_txt_len(")",1)),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=qbs_new_cmem(0,0);",19))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14679);}while(r); -} -do{ -*(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISINCONVENTIONALMEMORY; -if(!qbevent)break;evnt(14680);}while(r); -}else{ -S_17295:; -if ((*_FUNC_DIM2_LONG_F)||new_error){ -if(qbevent){evnt(14682);if(r)goto S_17295;} -do{ -SUB_WRITEBUFLINE(__INTEGER_DEFDATAHANDLE,qbs_add(qbs_add(qbs_new_txt_len("qbs *",5),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=NULL;",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14682);}while(r); -} -S_17298:; -if ((*_FUNC_DIM2_LONG_F)||new_error){ -if(qbevent){evnt(14683);if(r)goto S_17298;} -do{ -SUB_WRITEBUFLINE(&(pass2415=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (!",5),_FUNC_DIM2_STRING_N),qbs_new_txt_len(")",1)),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=qbs_new(0,0);",14))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14683);}while(r); -} -} -S_17302:; -if ((*_FUNC_DIM2_LONG_F)||new_error){ -if(qbevent){evnt(14685);if(r)goto S_17302;} -do{ -SUB_WRITEBUFLINE(&(pass2416=*__LONG_FREETXTBUF),qbs_add(qbs_add(qbs_new_txt_len("qbs_free(",9),_FUNC_DIM2_STRING_N),qbs_new_txt_len(");",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14685);}while(r); -} -S_17305:; -if ((-(*_FUNC_DIM2_LONG_METHOD== 0 ))||new_error){ -if(qbevent){evnt(14686);if(r)goto S_17305;} -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(520)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14687);}while(r); -} -S_17308:; -if ((-(*_FUNC_DIM2_LONG_METHOD== 1 ))||new_error){ -if(qbevent){evnt(14689);if(r)goto S_17308;} -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14690);}while(r); -} -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),_FUNC_DIM2_STRING_N); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14692);}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(14693);}while(r); -do{ -SUB_VWATCHVARIABLE(_FUNC_DIM2_STRING_N,&(pass2417= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14694);}while(r); -S_17314:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(14695);if(r)goto S_17314;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(14695);}while(r); -} -do{ -goto LABEL_DIM2EXITFUNC; -if(!qbevent)break;evnt(14696);}while(r); -} -S_17319:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(_FUNC_DIM2_STRING_TYP, 4 ),qbs_new_txt_len("_BIT",4)))|(((qbs_equal(qbs_left(_FUNC_DIM2_STRING_TYP, 3 ),qbs_new_txt_len("BIT",3)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ -if(qbevent){evnt(14699);if(r)goto S_17319;} -S_17320:; -if ((qbs_cleanup(qbs_tmp_base,((qbs_equal(qbs_left(_FUNC_DIM2_STRING_TYP, 4 ),qbs_new_txt_len("_BIT",4)))&(-(_FUNC_DIM2_STRING_TYP->len> 4 )))|((qbs_equal(qbs_left(_FUNC_DIM2_STRING_TYP, 3 ),qbs_new_txt_len("BIT",3)))&(-(_FUNC_DIM2_STRING_TYP->len> 3 )))))||new_error){ -if(qbevent){evnt(14700);if(r)goto S_17320;} -S_17321:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(qbs_left(_FUNC_DIM2_STRING_TYP, 7 ),qbs_new_txt_len("_BIT * ",7)))&(qbs_notequal(qbs_left(_FUNC_DIM2_STRING_TYP, 6 ),qbs_new_txt_len("BIT * ",6)))))||new_error){ -if(qbevent){evnt(14701);if(r)goto S_17321;} -do{ -SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Expected ",9),__STRING_QB64PREFIX),qbs_new_txt_len("BIT * number",12))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14701);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(14701);}while(r); -} -do{ -qbs_set(_FUNC_DIM2_STRING_C,func_mid(_FUNC_DIM2_STRING_TYP,func_instr(NULL,_FUNC_DIM2_STRING_TYP,qbs_new_txt_len(" * ",3),0)+ 3 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14702);}while(r); -S_17326:; -if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISUINTEGER(_FUNC_DIM2_STRING_C)== 0 )))||new_error){ -if(qbevent){evnt(14703);if(r)goto S_17326;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Number expected after *",23)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14703);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(14703);}while(r); -} -S_17330:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_DIM2_STRING_C->len> 2 )))||new_error){ -if(qbevent){evnt(14704);if(r)goto S_17330;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Cannot create a bit variable of size > 64 bits",46)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14704);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(14704);}while(r); -} -do{ -*_FUNC_DIM2_LONG_BITS=qbr(func_val(_FUNC_DIM2_STRING_C)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14705);}while(r); -S_17335:; -if ((-(*_FUNC_DIM2_LONG_BITS== 0 ))||new_error){ -if(qbevent){evnt(14706);if(r)goto S_17335;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Cannot create a bit variable of size 0 bits",43)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14706);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(14706);}while(r); -} -S_17339:; -if ((-(*_FUNC_DIM2_LONG_BITS> 64 ))||new_error){ -if(qbevent){evnt(14707);if(r)goto S_17339;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Cannot create a bit variable of size > 64 bits",46)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14707);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(14707);}while(r); -} -}else{ -do{ -*_FUNC_DIM2_LONG_BITS= 1 ; -if(!qbevent)break;evnt(14709);}while(r); -} -S_17346:; -if ((-(*_FUNC_DIM2_LONG_BITS<= 32 ))||new_error){ -if(qbevent){evnt(14711);if(r)goto S_17346;} -do{ -qbs_set(_FUNC_DIM2_STRING_CT,qbs_new_txt_len("int32",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14711);}while(r); -}else{ -do{ -qbs_set(_FUNC_DIM2_STRING_CT,qbs_new_txt_len("int64",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14711);}while(r); -} -S_17351:; -if ((*_FUNC_DIM2_LONG_UNSGN)||new_error){ -if(qbevent){evnt(14712);if(r)goto S_17351;} -do{ -qbs_set(_FUNC_DIM2_STRING_N,qbs_new_txt_len("U",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14712);}while(r); -do{ -qbs_set(_FUNC_DIM2_STRING_CT,qbs_add(qbs_new_txt_len("u",1),_FUNC_DIM2_STRING_CT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14712);}while(r); -} -do{ -qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("BIT",3)),FUNC_STR2(_FUNC_DIM2_LONG_BITS)),qbs_new_txt_len("_",1)),_FUNC_DIM2_STRING_VARNAME)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14713);}while(r); -S_17356:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(14716);if(r)goto S_17356;} -S_17357:; -if ((-(*_FUNC_DIM2_LONG_BITS> 63 ))||new_error){ -if(qbevent){evnt(14717);if(r)goto S_17357;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Cannot create a bit array of size > 63 bits",43)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14717);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(14717);}while(r); -} -do{ -*__INTEGER_ARRAYDESC= 0 ; -if(!qbevent)break;evnt(14718);}while(r); -do{ -qbs_set(_FUNC_DIM2_STRING_CMPS,_FUNC_DIM2_STRING_VARNAME); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14719);}while(r); -S_17363:; -if ((*_FUNC_DIM2_LONG_UNSGN)||new_error){ -if(qbevent){evnt(14719);if(r)goto S_17363;} -do{ -qbs_set(_FUNC_DIM2_STRING_CMPS,qbs_add(_FUNC_DIM2_STRING_CMPS,qbs_new_txt_len("~",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14719);}while(r); -} -do{ -qbs_set(_FUNC_DIM2_STRING_CMPS,qbs_add(qbs_add(_FUNC_DIM2_STRING_CMPS,qbs_new_txt_len("`",1)),FUNC_STR2(_FUNC_DIM2_LONG_BITS))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14720);}while(r); -S_17367:; -if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ -if(qbevent){evnt(14721);if(r)goto S_17367;} -do{ -*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_CMPS); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14722);}while(r); -S_17369:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(14723);if(r)goto S_17369;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(14723);}while(r); -} -S_17372:; -while((*_FUNC_DIM2_LONG_TRY)||new_error){ -if(qbevent){evnt(14724);if(r)goto S_17372;} -S_17373:; -if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ -if(qbevent){evnt(14725);if(r)goto S_17373;} -do{ -qbs_set(_FUNC_DIM2_STRING_L,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14726);}while(r); -do{ -*__INTEGER_ARRAYDESC=*__LONG_CURRENTID; -if(!qbevent)break;evnt(14727);}while(r); -do{ -qbs_set(_FUNC_DIM2_STRING_SCOPE2,FUNC_SCOPE()); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14727);}while(r); -do{ -goto dl_exit_2421; -if(!qbevent)break;evnt(14728);}while(r); -} -S_17379:; -if ((-(*_FUNC_DIM2_LONG_TRY== 2 ))||new_error){ -if(qbevent){evnt(14730);if(r)goto S_17379;} -do{ -*__INTEGER_FINDANOTHERID= 1 ; -if(!qbevent)break;evnt(14730);}while(r); -do{ -*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_CMPS); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14730);}while(r); -}else{ -do{ -*_FUNC_DIM2_LONG_TRY= 0 ; -if(!qbevent)break;evnt(14730);}while(r); -} -S_17385:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(14731);if(r)goto S_17385;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(14731);}while(r); -} -dl_continue_2421:; -} -dl_exit_2421:; -} -do{ -qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_add(_FUNC_DIM2_STRING_SCOPE2,qbs_new_txt_len("ARRAY_",6)),_FUNC_DIM2_STRING_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14734);}while(r); -S_17391:; -if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ -if(qbevent){evnt(14740);if(r)goto S_17391;} -S_17392:; -if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_DIM2_STRING_ELEMENTS->len== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||new_error){ -if(qbevent){evnt(14742);if(r)goto S_17392;} -do{ -*__LONG_E=((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])]; -if(!qbevent)break;evnt(14743);}while(r); -S_17394:; -if ((*__LONG_E)||new_error){ -if(qbevent){evnt(14743);if(r)goto S_17394;} -do{ -qbs_set(_FUNC_DIM2_STRING_ELEMENTS,qbs_add(_FUNC_DIM2_STRING_ELEMENTS,FUNC_STR2(__LONG_E))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14743);}while(r); -} -} -do{ -*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass2423=-(*_FUNC_DIM2_LONG_BITS)),&(pass2424= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14745);}while(r); -S_17399:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(14746);if(r)goto S_17399;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(14746);}while(r); -} -do{ -qbs_set(_FUNC_DIM2_STRING_L,qbs_add(qbs_add(_FUNC_DIM2_STRING_L,__STRING1_SP),__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14747);}while(r); -S_17403:; -if ((*__INTEGER_ARRAYDESC)||new_error){ -if(qbevent){evnt(14748);if(r)goto S_17403;} -do{ -goto LABEL_DIM2EXITFUNC; -if(!qbevent)break;evnt(14748);}while(r); -} -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(14749);}while(r); -}else{ -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(14752);}while(r); -S_17409:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||new_error){ -if(qbevent){evnt(14753);if(r)goto S_17409;} -do{ -*_FUNC_DIM2_LONG_NUME= -1 ; -if(!qbevent)break;evnt(14754);}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2847))=*__LONG_GLINKID; -if(!qbevent)break;evnt(14755);}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2851))=*__INTEGER_GLINKARG; -if(!qbevent)break;evnt(14756);}while(r); -}else{ -do{ -*_FUNC_DIM2_LONG_NUME=qbr(func_val(_FUNC_DIM2_STRING_ELEMENTS)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14758);}while(r); -} -} -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),_FUNC_DIM2_STRING_CVARNAME); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14762);}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(512))=*__LONG_BITTYPE- 1 +*_FUNC_DIM2_LONG_BITS; -if(!qbevent)break;evnt(14763);}while(r); -S_17419:; -if ((*_FUNC_DIM2_LONG_UNSGN)||new_error){ -if(qbevent){evnt(14764);if(r)goto S_17419;} -do{ -*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISUNSIGNED; -if(!qbevent)break;evnt(14764);}while(r); -} -S_17422:; -if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ -if(qbevent){evnt(14765);if(r)goto S_17422;} -do{ -*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISINCONVENTIONALMEMORY; -if(!qbevent)break;evnt(14765);}while(r); -} -S_17425:; -if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||new_error){ -if(qbevent){evnt(14766);if(r)goto S_17425;} -do{ -*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ; -if(!qbevent)break;evnt(14766);}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(518))= 1 ; -if(!qbevent)break;evnt(14766);}while(r); -} -do{ -*(int16*)(((char*)__UDT_ID)+(516))=*_FUNC_DIM2_LONG_NUME; -if(!qbevent)break;evnt(14768);}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),_FUNC_DIM2_STRING_N); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14769);}while(r); -S_17431:; -if ((-(*_FUNC_DIM2_LONG_METHOD== 0 ))||new_error){ -if(qbevent){evnt(14770);if(r)goto S_17431;} -S_17432:; -if ((*_FUNC_DIM2_LONG_UNSGN)||new_error){ -if(qbevent){evnt(14771);if(r)goto S_17432;} -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(520)),8,1),qbs_add(qbs_new_txt_len("~`",2),FUNC_STR2(_FUNC_DIM2_LONG_BITS))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14771);}while(r); -}else{ -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(520)),8,1),qbs_add(qbs_new_txt_len("`",1),FUNC_STR2(_FUNC_DIM2_LONG_BITS))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14771);}while(r); -} -} -S_17438:; -if ((-(*_FUNC_DIM2_LONG_METHOD== 1 ))||new_error){ -if(qbevent){evnt(14773);if(r)goto S_17438;} -S_17439:; -if ((*_FUNC_DIM2_LONG_UNSGN)||new_error){ -if(qbevent){evnt(14774);if(r)goto S_17439;} -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_add(qbs_new_txt_len("~`",2),FUNC_STR2(_FUNC_DIM2_LONG_BITS))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14774);}while(r); -}else{ -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_add(qbs_new_txt_len("`",1),FUNC_STR2(_FUNC_DIM2_LONG_BITS))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14774);}while(r); -} -} -do{ -SUB_REGID(); -if(!qbevent)break;evnt(14776);}while(r); -S_17446:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(14777);if(r)goto S_17446;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(14777);}while(r); -} -do{ -SUB_VWATCHVARIABLE(_FUNC_DIM2_STRING_N,&(pass2425= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14778);}while(r); -do{ -goto LABEL_DIM2EXITFUNC; -if(!qbevent)break;evnt(14779);}while(r); -} -do{ -qbs_set(_FUNC_DIM2_STRING_N,qbs_add(_FUNC_DIM2_STRING_SCOPE2,_FUNC_DIM2_STRING_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14782);}while(r); -do{ -SUB_WRITEBUFLINE(__INTEGER_DEFDATAHANDLE,qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_CT,qbs_new_txt_len(" *",2)),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=NULL;",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14783);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass2426=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14784);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass2427=*__LONG_DATATXTBUF),qbs_new_txt_len("cmem_sp-=4;",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14785);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass2428=*__LONG_DATATXTBUF),qbs_new_txt_len("if (cmem_splen== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||new_error){ -if(qbevent){evnt(14836);if(r)goto S_17527;} -do{ -*__LONG_E=((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])]; -if(!qbevent)break;evnt(14837);}while(r); -S_17529:; -if ((*__LONG_E)||new_error){ -if(qbevent){evnt(14837);if(r)goto S_17529;} -do{ -qbs_set(_FUNC_DIM2_STRING_ELEMENTS,qbs_add(_FUNC_DIM2_STRING_ELEMENTS,FUNC_STR2(__LONG_E))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14837);}while(r); -} -} -do{ -*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass2435= 1 ),&(pass2436= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14839);}while(r); -S_17534:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(14840);if(r)goto S_17534;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(14840);}while(r); -} -do{ -qbs_set(_FUNC_DIM2_STRING_L,qbs_add(qbs_add(_FUNC_DIM2_STRING_L,__STRING1_SP),__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14841);}while(r); -S_17538:; -if ((*__INTEGER_ARRAYDESC)||new_error){ -if(qbevent){evnt(14842);if(r)goto S_17538;} -do{ -goto LABEL_DIM2EXITFUNC; -if(!qbevent)break;evnt(14842);}while(r); -} -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(14843);}while(r); -}else{ -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(14846);}while(r); -S_17544:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||new_error){ -if(qbevent){evnt(14847);if(r)goto S_17544;} -do{ -*_FUNC_DIM2_LONG_NUME= -1 ; -if(!qbevent)break;evnt(14848);}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2847))=*__LONG_GLINKID; -if(!qbevent)break;evnt(14849);}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2851))=*__INTEGER_GLINKARG; -if(!qbevent)break;evnt(14850);}while(r); -}else{ -do{ -*_FUNC_DIM2_LONG_NUME=qbr(func_val(_FUNC_DIM2_STRING_ELEMENTS)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14852);}while(r); -} -} -do{ -*(int32*)(((char*)__UDT_ID)+(512))=*__LONG_BYTETYPE; -if(!qbevent)break;evnt(14856);}while(r); -S_17553:; -if ((*_FUNC_DIM2_LONG_UNSGN)||new_error){ -if(qbevent){evnt(14856);if(r)goto S_17553;} -do{ -*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISUNSIGNED; -if(!qbevent)break;evnt(14856);}while(r); -} -S_17556:; -if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ -if(qbevent){evnt(14857);if(r)goto S_17556;} -do{ -*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISINCONVENTIONALMEMORY; -if(!qbevent)break;evnt(14857);}while(r); -} -S_17559:; -if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||new_error){ -if(qbevent){evnt(14858);if(r)goto S_17559;} -do{ -*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ; -if(!qbevent)break;evnt(14858);}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(518))= 1 ; -if(!qbevent)break;evnt(14858);}while(r); -} -do{ -*(int16*)(((char*)__UDT_ID)+(516))=*_FUNC_DIM2_LONG_NUME; -if(!qbevent)break;evnt(14860);}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),_FUNC_DIM2_STRING_N); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14861);}while(r); -}else{ -do{ -qbs_set(_FUNC_DIM2_STRING_N,qbs_add(_FUNC_DIM2_STRING_SCOPE2,_FUNC_DIM2_STRING_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14863);}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(14864);}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(536))=*__LONG_BYTETYPE; -if(!qbevent)break;evnt(14865);}while(r); -S_17569:; -if ((*_FUNC_DIM2_LONG_UNSGN)||new_error){ -if(qbevent){evnt(14865);if(r)goto S_17569;} -do{ -*(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISUNSIGNED; -if(!qbevent)break;evnt(14865);}while(r); -} -S_17572:; -if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ -if(qbevent){evnt(14866);if(r)goto S_17572;} -do{ -SUB_WRITEBUFLINE(__INTEGER_DEFDATAHANDLE,qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_CT,qbs_new_txt_len(" *",2)),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=NULL;",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14866);}while(r); -} -S_17575:; -if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ -if(qbevent){evnt(14867);if(r)goto S_17575;} -do{ -SUB_WRITEBUFLINE(&(pass2437=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14867);}while(r); -} -S_17578:; -if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ -if(qbevent){evnt(14868);if(r)goto S_17578;} -do{ -*(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISINCONVENTIONALMEMORY; -if(!qbevent)break;evnt(14869);}while(r); -S_17580:; -if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ -if(qbevent){evnt(14870);if(r)goto S_17580;} -do{ -SUB_WRITEBUFLINE(&(pass2438=*__LONG_DATATXTBUF),qbs_new_txt_len("cmem_sp-=1;",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14870);}while(r); -} -S_17583:; -if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ -if(qbevent){evnt(14871);if(r)goto S_17583;} -do{ -SUB_WRITEBUFLINE(&(pass2439=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("=(",2)),_FUNC_DIM2_STRING_CT),qbs_new_txt_len("*)(dblock+cmem_sp);",19))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14871);}while(r); -} -S_17586:; -if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ -if(qbevent){evnt(14872);if(r)goto S_17586;} -do{ -SUB_WRITEBUFLINE(&(pass2440=*__LONG_DATATXTBUF),qbs_new_txt_len("if (cmem_splen== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||new_error){ -if(qbevent){evnt(14919);if(r)goto S_17663;} -do{ -*__LONG_E=((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])]; -if(!qbevent)break;evnt(14920);}while(r); -S_17665:; -if ((*__LONG_E)||new_error){ -if(qbevent){evnt(14920);if(r)goto S_17665;} -do{ -qbs_set(_FUNC_DIM2_STRING_ELEMENTS,qbs_add(_FUNC_DIM2_STRING_ELEMENTS,FUNC_STR2(__LONG_E))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14920);}while(r); -} -} -do{ -*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass2447= 2 ),&(pass2448= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14922);}while(r); -S_17670:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(14923);if(r)goto S_17670;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(14923);}while(r); -} -do{ -qbs_set(_FUNC_DIM2_STRING_L,qbs_add(qbs_add(_FUNC_DIM2_STRING_L,__STRING1_SP),__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14924);}while(r); -S_17674:; -if ((*__INTEGER_ARRAYDESC)||new_error){ -if(qbevent){evnt(14925);if(r)goto S_17674;} -do{ -goto LABEL_DIM2EXITFUNC; -if(!qbevent)break;evnt(14925);}while(r); -} -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(14926);}while(r); -}else{ -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(14929);}while(r); -S_17680:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||new_error){ -if(qbevent){evnt(14930);if(r)goto S_17680;} -do{ -*_FUNC_DIM2_LONG_NUME= -1 ; -if(!qbevent)break;evnt(14931);}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2847))=*__LONG_GLINKID; -if(!qbevent)break;evnt(14932);}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2851))=*__INTEGER_GLINKARG; -if(!qbevent)break;evnt(14933);}while(r); -}else{ -do{ -*_FUNC_DIM2_LONG_NUME=qbr(func_val(_FUNC_DIM2_STRING_ELEMENTS)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14935);}while(r); -} -} -do{ -*(int32*)(((char*)__UDT_ID)+(512))=*__LONG_INTEGERTYPE; -if(!qbevent)break;evnt(14940);}while(r); -S_17689:; -if ((*_FUNC_DIM2_LONG_UNSGN)||new_error){ -if(qbevent){evnt(14940);if(r)goto S_17689;} -do{ -*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISUNSIGNED; -if(!qbevent)break;evnt(14940);}while(r); -} -S_17692:; -if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ -if(qbevent){evnt(14941);if(r)goto S_17692;} -do{ -*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISINCONVENTIONALMEMORY; -if(!qbevent)break;evnt(14941);}while(r); -} -S_17695:; -if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||new_error){ -if(qbevent){evnt(14942);if(r)goto S_17695;} -do{ -*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ; -if(!qbevent)break;evnt(14942);}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(518))= 1 ; -if(!qbevent)break;evnt(14942);}while(r); -} -do{ -*(int16*)(((char*)__UDT_ID)+(516))=*_FUNC_DIM2_LONG_NUME; -if(!qbevent)break;evnt(14944);}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),_FUNC_DIM2_STRING_N); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14945);}while(r); -}else{ -do{ -qbs_set(_FUNC_DIM2_STRING_N,qbs_add(_FUNC_DIM2_STRING_SCOPE2,_FUNC_DIM2_STRING_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14947);}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(14948);}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(536))=*__LONG_INTEGERTYPE; -if(!qbevent)break;evnt(14949);}while(r); -S_17705:; -if ((*_FUNC_DIM2_LONG_UNSGN)||new_error){ -if(qbevent){evnt(14949);if(r)goto S_17705;} -do{ -*(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISUNSIGNED; -if(!qbevent)break;evnt(14949);}while(r); -} -S_17708:; -if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ -if(qbevent){evnt(14950);if(r)goto S_17708;} -do{ -SUB_WRITEBUFLINE(__INTEGER_DEFDATAHANDLE,qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_CT,qbs_new_txt_len(" *",2)),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=NULL;",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14950);}while(r); -} -S_17711:; -if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ -if(qbevent){evnt(14951);if(r)goto S_17711;} -do{ -SUB_WRITEBUFLINE(&(pass2449=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14951);}while(r); -} -S_17714:; -if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ -if(qbevent){evnt(14952);if(r)goto S_17714;} -do{ -*(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISINCONVENTIONALMEMORY; -if(!qbevent)break;evnt(14953);}while(r); -S_17716:; -if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ -if(qbevent){evnt(14954);if(r)goto S_17716;} -do{ -SUB_WRITEBUFLINE(&(pass2450=*__LONG_DATATXTBUF),qbs_new_txt_len("cmem_sp-=2;",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14954);}while(r); -} -S_17719:; -if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ -if(qbevent){evnt(14955);if(r)goto S_17719;} -do{ -SUB_WRITEBUFLINE(&(pass2451=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("=(",2)),_FUNC_DIM2_STRING_CT),qbs_new_txt_len("*)(dblock+cmem_sp);",19))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(14955);}while(r); -} -S_17722:; -if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ -if(qbevent){evnt(14956);if(r)goto S_17722;} -do{ -SUB_WRITEBUFLINE(&(pass2452=*__LONG_DATATXTBUF),qbs_new_txt_len("if (cmem_splen== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||new_error){ -if(qbevent){evnt(15009);if(r)goto S_17799;} -do{ -*__LONG_E=((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])]; -if(!qbevent)break;evnt(15010);}while(r); -S_17801:; -if ((*__LONG_E)||new_error){ -if(qbevent){evnt(15010);if(r)goto S_17801;} -do{ -qbs_set(_FUNC_DIM2_STRING_ELEMENTS,qbs_add(_FUNC_DIM2_STRING_ELEMENTS,FUNC_STR2(__LONG_E))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15010);}while(r); -} -} -do{ -*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass2459=*__LONG_OS_BITS/ 8 ),&(pass2460= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15012);}while(r); -S_17806:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(15013);if(r)goto S_17806;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(15013);}while(r); -} -do{ -qbs_set(_FUNC_DIM2_STRING_L,qbs_add(qbs_add(_FUNC_DIM2_STRING_L,__STRING1_SP),__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15014);}while(r); -S_17810:; -if ((*__INTEGER_ARRAYDESC)||new_error){ -if(qbevent){evnt(15015);if(r)goto S_17810;} -do{ -goto LABEL_DIM2EXITFUNC; -if(!qbevent)break;evnt(15015);}while(r); -} -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(15016);}while(r); -}else{ -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(15019);}while(r); -S_17816:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||new_error){ -if(qbevent){evnt(15020);if(r)goto S_17816;} -do{ -*_FUNC_DIM2_LONG_NUME= -1 ; -if(!qbevent)break;evnt(15021);}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2847))=*__LONG_GLINKID; -if(!qbevent)break;evnt(15022);}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2851))=*__INTEGER_GLINKARG; -if(!qbevent)break;evnt(15023);}while(r); -}else{ -do{ -*_FUNC_DIM2_LONG_NUME=qbr(func_val(_FUNC_DIM2_STRING_ELEMENTS)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15025);}while(r); -} -} -do{ -*(int32*)(((char*)__UDT_ID)+(512))=*__LONG_OFFSETTYPE; -if(!qbevent)break;evnt(15029);}while(r); -S_17825:; -if ((*_FUNC_DIM2_LONG_UNSGN)||new_error){ -if(qbevent){evnt(15029);if(r)goto S_17825;} -do{ -*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISUNSIGNED; -if(!qbevent)break;evnt(15029);}while(r); -} -S_17828:; -if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ -if(qbevent){evnt(15030);if(r)goto S_17828;} -do{ -*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISINCONVENTIONALMEMORY; -if(!qbevent)break;evnt(15030);}while(r); -} -S_17831:; -if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||new_error){ -if(qbevent){evnt(15031);if(r)goto S_17831;} -do{ -*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ; -if(!qbevent)break;evnt(15031);}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(518))= 1 ; -if(!qbevent)break;evnt(15031);}while(r); -} -do{ -*(int16*)(((char*)__UDT_ID)+(516))=*_FUNC_DIM2_LONG_NUME; -if(!qbevent)break;evnt(15033);}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),_FUNC_DIM2_STRING_N); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15034);}while(r); -}else{ -do{ -qbs_set(_FUNC_DIM2_STRING_N,qbs_add(_FUNC_DIM2_STRING_SCOPE2,_FUNC_DIM2_STRING_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15036);}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(15037);}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(536))=*__LONG_OFFSETTYPE; -if(!qbevent)break;evnt(15038);}while(r); -S_17841:; -if ((*_FUNC_DIM2_LONG_UNSGN)||new_error){ -if(qbevent){evnt(15038);if(r)goto S_17841;} -do{ -*(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISUNSIGNED; -if(!qbevent)break;evnt(15038);}while(r); -} -S_17844:; -if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ -if(qbevent){evnt(15039);if(r)goto S_17844;} -do{ -SUB_WRITEBUFLINE(__INTEGER_DEFDATAHANDLE,qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_CT,qbs_new_txt_len(" *",2)),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=NULL;",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15039);}while(r); -} -S_17847:; -if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ -if(qbevent){evnt(15040);if(r)goto S_17847;} -do{ -SUB_WRITEBUFLINE(&(pass2461=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15040);}while(r); -} -S_17850:; -if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ -if(qbevent){evnt(15041);if(r)goto S_17850;} -do{ -*(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISINCONVENTIONALMEMORY; -if(!qbevent)break;evnt(15042);}while(r); -S_17852:; -if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ -if(qbevent){evnt(15043);if(r)goto S_17852;} -do{ -SUB_WRITEBUFLINE(&(pass2462=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("cmem_sp-=",9),FUNC_STR2(&(pass2463=*__LONG_OS_BITS/ 8 ))),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15043);}while(r); -} -S_17855:; -if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ -if(qbevent){evnt(15044);if(r)goto S_17855;} -do{ -SUB_WRITEBUFLINE(&(pass2464=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("=(",2)),_FUNC_DIM2_STRING_CT),qbs_new_txt_len("*)(dblock+cmem_sp);",19))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15044);}while(r); -} -S_17858:; -if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ -if(qbevent){evnt(15045);if(r)goto S_17858;} -do{ -SUB_WRITEBUFLINE(&(pass2465=*__LONG_DATATXTBUF),qbs_new_txt_len("if (cmem_splen== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||new_error){ -if(qbevent){evnt(15095);if(r)goto S_17935;} -do{ -*__LONG_E=((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])]; -if(!qbevent)break;evnt(15096);}while(r); -S_17937:; -if ((*__LONG_E)||new_error){ -if(qbevent){evnt(15096);if(r)goto S_17937;} -do{ -qbs_set(_FUNC_DIM2_STRING_ELEMENTS,qbs_add(_FUNC_DIM2_STRING_ELEMENTS,FUNC_STR2(__LONG_E))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15096);}while(r); -} -} -do{ -*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass2473= 4 ),&(pass2474= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15098);}while(r); -S_17942:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(15099);if(r)goto S_17942;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(15099);}while(r); -} -do{ -qbs_set(_FUNC_DIM2_STRING_L,qbs_add(qbs_add(_FUNC_DIM2_STRING_L,__STRING1_SP),__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15100);}while(r); -S_17946:; -if ((*__INTEGER_ARRAYDESC)||new_error){ -if(qbevent){evnt(15101);if(r)goto S_17946;} -do{ -goto LABEL_DIM2EXITFUNC; -if(!qbevent)break;evnt(15101);}while(r); -} -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(15102);}while(r); -}else{ -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(15105);}while(r); -S_17952:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||new_error){ -if(qbevent){evnt(15106);if(r)goto S_17952;} -do{ -*_FUNC_DIM2_LONG_NUME= -1 ; -if(!qbevent)break;evnt(15107);}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2847))=*__LONG_GLINKID; -if(!qbevent)break;evnt(15108);}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2851))=*__INTEGER_GLINKARG; -if(!qbevent)break;evnt(15109);}while(r); -}else{ -do{ -*_FUNC_DIM2_LONG_NUME=qbr(func_val(_FUNC_DIM2_STRING_ELEMENTS)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15111);}while(r); -} -} -do{ -*(int32*)(((char*)__UDT_ID)+(512))=*__LONG_LONGTYPE; -if(!qbevent)break;evnt(15115);}while(r); -S_17961:; -if ((*_FUNC_DIM2_LONG_UNSGN)||new_error){ -if(qbevent){evnt(15115);if(r)goto S_17961;} -do{ -*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISUNSIGNED; -if(!qbevent)break;evnt(15115);}while(r); -} -S_17964:; -if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ -if(qbevent){evnt(15116);if(r)goto S_17964;} -do{ -*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISINCONVENTIONALMEMORY; -if(!qbevent)break;evnt(15116);}while(r); -} -S_17967:; -if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||new_error){ -if(qbevent){evnt(15117);if(r)goto S_17967;} -do{ -*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ; -if(!qbevent)break;evnt(15117);}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(518))= 1 ; -if(!qbevent)break;evnt(15117);}while(r); -} -do{ -*(int16*)(((char*)__UDT_ID)+(516))=*_FUNC_DIM2_LONG_NUME; -if(!qbevent)break;evnt(15119);}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),_FUNC_DIM2_STRING_N); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15120);}while(r); -}else{ -do{ -qbs_set(_FUNC_DIM2_STRING_N,qbs_add(_FUNC_DIM2_STRING_SCOPE2,_FUNC_DIM2_STRING_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15122);}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(15123);}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(536))=*__LONG_LONGTYPE; -if(!qbevent)break;evnt(15124);}while(r); -S_17977:; -if ((*_FUNC_DIM2_LONG_UNSGN)||new_error){ -if(qbevent){evnt(15124);if(r)goto S_17977;} -do{ -*(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISUNSIGNED; -if(!qbevent)break;evnt(15124);}while(r); -} -S_17980:; -if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ -if(qbevent){evnt(15125);if(r)goto S_17980;} -do{ -SUB_WRITEBUFLINE(__INTEGER_DEFDATAHANDLE,qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_CT,qbs_new_txt_len(" *",2)),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=NULL;",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15125);}while(r); -} -S_17983:; -if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ -if(qbevent){evnt(15126);if(r)goto S_17983;} -do{ -SUB_WRITEBUFLINE(&(pass2475=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15126);}while(r); -} -S_17986:; -if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ -if(qbevent){evnt(15127);if(r)goto S_17986;} -do{ -*(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISINCONVENTIONALMEMORY; -if(!qbevent)break;evnt(15128);}while(r); -S_17988:; -if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ -if(qbevent){evnt(15129);if(r)goto S_17988;} -do{ -SUB_WRITEBUFLINE(&(pass2476=*__LONG_DATATXTBUF),qbs_new_txt_len("cmem_sp-=4;",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15129);}while(r); -} -S_17991:; -if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ -if(qbevent){evnt(15130);if(r)goto S_17991;} -do{ -SUB_WRITEBUFLINE(&(pass2477=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("=(",2)),_FUNC_DIM2_STRING_CT),qbs_new_txt_len("*)(dblock+cmem_sp);",19))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15130);}while(r); -} -S_17994:; -if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ -if(qbevent){evnt(15131);if(r)goto S_17994;} -do{ -SUB_WRITEBUFLINE(&(pass2478=*__LONG_DATATXTBUF),qbs_new_txt_len("if (cmem_splen== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||new_error){ -if(qbevent){evnt(15181);if(r)goto S_18071;} -do{ -*__LONG_E=((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])]; -if(!qbevent)break;evnt(15182);}while(r); -S_18073:; -if ((*__LONG_E)||new_error){ -if(qbevent){evnt(15182);if(r)goto S_18073;} -do{ -qbs_set(_FUNC_DIM2_STRING_ELEMENTS,qbs_add(_FUNC_DIM2_STRING_ELEMENTS,FUNC_STR2(__LONG_E))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15182);}while(r); -} -} -do{ -*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass2485= 8 ),&(pass2486= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15184);}while(r); -S_18078:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(15185);if(r)goto S_18078;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(15185);}while(r); -} -do{ -qbs_set(_FUNC_DIM2_STRING_L,qbs_add(qbs_add(_FUNC_DIM2_STRING_L,__STRING1_SP),__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15186);}while(r); -S_18082:; -if ((*__INTEGER_ARRAYDESC)||new_error){ -if(qbevent){evnt(15187);if(r)goto S_18082;} -do{ -goto LABEL_DIM2EXITFUNC; -if(!qbevent)break;evnt(15187);}while(r); -} -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(15188);}while(r); -}else{ -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(15191);}while(r); -S_18088:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||new_error){ -if(qbevent){evnt(15192);if(r)goto S_18088;} -do{ -*_FUNC_DIM2_LONG_NUME= -1 ; -if(!qbevent)break;evnt(15193);}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2847))=*__LONG_GLINKID; -if(!qbevent)break;evnt(15194);}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2851))=*__INTEGER_GLINKARG; -if(!qbevent)break;evnt(15195);}while(r); -}else{ -do{ -*_FUNC_DIM2_LONG_NUME=qbr(func_val(_FUNC_DIM2_STRING_ELEMENTS)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15197);}while(r); -} -} -do{ -*(int32*)(((char*)__UDT_ID)+(512))=*__LONG_INTEGER64TYPE; -if(!qbevent)break;evnt(15201);}while(r); -S_18097:; -if ((*_FUNC_DIM2_LONG_UNSGN)||new_error){ -if(qbevent){evnt(15201);if(r)goto S_18097;} -do{ -*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISUNSIGNED; -if(!qbevent)break;evnt(15201);}while(r); -} -S_18100:; -if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ -if(qbevent){evnt(15202);if(r)goto S_18100;} -do{ -*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISINCONVENTIONALMEMORY; -if(!qbevent)break;evnt(15202);}while(r); -} -S_18103:; -if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||new_error){ -if(qbevent){evnt(15203);if(r)goto S_18103;} -do{ -*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ; -if(!qbevent)break;evnt(15203);}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(518))= 1 ; -if(!qbevent)break;evnt(15203);}while(r); -} -do{ -*(int16*)(((char*)__UDT_ID)+(516))=*_FUNC_DIM2_LONG_NUME; -if(!qbevent)break;evnt(15205);}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),_FUNC_DIM2_STRING_N); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15206);}while(r); -}else{ -do{ -qbs_set(_FUNC_DIM2_STRING_N,qbs_add(_FUNC_DIM2_STRING_SCOPE2,_FUNC_DIM2_STRING_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15208);}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(15209);}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(536))=*__LONG_INTEGER64TYPE; -if(!qbevent)break;evnt(15210);}while(r); -S_18113:; -if ((*_FUNC_DIM2_LONG_UNSGN)||new_error){ -if(qbevent){evnt(15210);if(r)goto S_18113;} -do{ -*(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISUNSIGNED; -if(!qbevent)break;evnt(15210);}while(r); -} -S_18116:; -if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ -if(qbevent){evnt(15211);if(r)goto S_18116;} -do{ -SUB_WRITEBUFLINE(__INTEGER_DEFDATAHANDLE,qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_CT,qbs_new_txt_len(" *",2)),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=NULL;",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15211);}while(r); -} -S_18119:; -if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ -if(qbevent){evnt(15212);if(r)goto S_18119;} -do{ -SUB_WRITEBUFLINE(&(pass2487=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15212);}while(r); -} -S_18122:; -if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ -if(qbevent){evnt(15213);if(r)goto S_18122;} -do{ -*(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISINCONVENTIONALMEMORY; -if(!qbevent)break;evnt(15214);}while(r); -S_18124:; -if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ -if(qbevent){evnt(15215);if(r)goto S_18124;} -do{ -SUB_WRITEBUFLINE(&(pass2488=*__LONG_DATATXTBUF),qbs_new_txt_len("cmem_sp-=8;",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15215);}while(r); -} -S_18127:; -if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ -if(qbevent){evnt(15216);if(r)goto S_18127;} -do{ -SUB_WRITEBUFLINE(&(pass2489=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("=(",2)),_FUNC_DIM2_STRING_CT),qbs_new_txt_len("*)(dblock+cmem_sp);",19))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15216);}while(r); -} -S_18130:; -if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ -if(qbevent){evnt(15217);if(r)goto S_18130;} -do{ -SUB_WRITEBUFLINE(&(pass2490=*__LONG_DATATXTBUF),qbs_new_txt_len("if (cmem_splen== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||new_error){ -if(qbevent){evnt(15267);if(r)goto S_18203;} -do{ -*__LONG_E=((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])]; -if(!qbevent)break;evnt(15268);}while(r); -S_18205:; -if ((*__LONG_E)||new_error){ -if(qbevent){evnt(15268);if(r)goto S_18205;} -do{ -qbs_set(_FUNC_DIM2_STRING_ELEMENTS,qbs_add(_FUNC_DIM2_STRING_ELEMENTS,FUNC_STR2(__LONG_E))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15268);}while(r); -} -} -do{ -*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass2497= 4 ),&(pass2498= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15270);}while(r); -S_18210:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(15271);if(r)goto S_18210;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(15271);}while(r); -} -do{ -qbs_set(_FUNC_DIM2_STRING_L,qbs_add(qbs_add(_FUNC_DIM2_STRING_L,__STRING1_SP),__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15272);}while(r); -S_18214:; -if ((*__INTEGER_ARRAYDESC)||new_error){ -if(qbevent){evnt(15273);if(r)goto S_18214;} -do{ -goto LABEL_DIM2EXITFUNC; -if(!qbevent)break;evnt(15273);}while(r); -} -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(15274);}while(r); -}else{ -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(15277);}while(r); -S_18220:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||new_error){ -if(qbevent){evnt(15278);if(r)goto S_18220;} -do{ -*_FUNC_DIM2_LONG_NUME= -1 ; -if(!qbevent)break;evnt(15279);}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2847))=*__LONG_GLINKID; -if(!qbevent)break;evnt(15280);}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2851))=*__INTEGER_GLINKARG; -if(!qbevent)break;evnt(15281);}while(r); -}else{ -do{ -*_FUNC_DIM2_LONG_NUME=qbr(func_val(_FUNC_DIM2_STRING_ELEMENTS)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15283);}while(r); -} -} -do{ -*(int32*)(((char*)__UDT_ID)+(512))=*__LONG_SINGLETYPE; -if(!qbevent)break;evnt(15287);}while(r); -S_18229:; -if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ -if(qbevent){evnt(15288);if(r)goto S_18229;} -do{ -*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISINCONVENTIONALMEMORY; -if(!qbevent)break;evnt(15288);}while(r); -} -S_18232:; -if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||new_error){ -if(qbevent){evnt(15289);if(r)goto S_18232;} -do{ -*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ; -if(!qbevent)break;evnt(15289);}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(518))= 1 ; -if(!qbevent)break;evnt(15289);}while(r); -} -do{ -*(int16*)(((char*)__UDT_ID)+(516))=*_FUNC_DIM2_LONG_NUME; -if(!qbevent)break;evnt(15291);}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),_FUNC_DIM2_STRING_N); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15292);}while(r); -}else{ -do{ -qbs_set(_FUNC_DIM2_STRING_N,qbs_add(_FUNC_DIM2_STRING_SCOPE2,_FUNC_DIM2_STRING_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15294);}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(15295);}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(536))=*__LONG_SINGLETYPE; -if(!qbevent)break;evnt(15296);}while(r); -S_18242:; -if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ -if(qbevent){evnt(15297);if(r)goto S_18242;} -do{ -SUB_WRITEBUFLINE(__INTEGER_DEFDATAHANDLE,qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_CT,qbs_new_txt_len(" *",2)),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=NULL;",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15297);}while(r); -} -S_18245:; -if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ -if(qbevent){evnt(15298);if(r)goto S_18245;} -do{ -SUB_WRITEBUFLINE(&(pass2499=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15298);}while(r); -} -S_18248:; -if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ -if(qbevent){evnt(15299);if(r)goto S_18248;} -do{ -*(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISINCONVENTIONALMEMORY; -if(!qbevent)break;evnt(15300);}while(r); -S_18250:; -if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ -if(qbevent){evnt(15301);if(r)goto S_18250;} -do{ -SUB_WRITEBUFLINE(&(pass2500=*__LONG_DATATXTBUF),qbs_new_txt_len("cmem_sp-=4;",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15301);}while(r); -} -S_18253:; -if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ -if(qbevent){evnt(15302);if(r)goto S_18253;} -do{ -SUB_WRITEBUFLINE(&(pass2501=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("=(",2)),_FUNC_DIM2_STRING_CT),qbs_new_txt_len("*)(dblock+cmem_sp);",19))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15302);}while(r); -} -S_18256:; -if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ -if(qbevent){evnt(15303);if(r)goto S_18256;} -do{ -SUB_WRITEBUFLINE(&(pass2502=*__LONG_DATATXTBUF),qbs_new_txt_len("if (cmem_splen== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||new_error){ -if(qbevent){evnt(15351);if(r)goto S_18317;} -do{ -*__LONG_E=((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])]; -if(!qbevent)break;evnt(15352);}while(r); -S_18319:; -if ((*__LONG_E)||new_error){ -if(qbevent){evnt(15352);if(r)goto S_18319;} -do{ -qbs_set(_FUNC_DIM2_STRING_ELEMENTS,qbs_add(_FUNC_DIM2_STRING_ELEMENTS,FUNC_STR2(__LONG_E))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15352);}while(r); -} -} -do{ -*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass2509= 8 ),&(pass2510= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15354);}while(r); -S_18324:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(15355);if(r)goto S_18324;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(15355);}while(r); -} -do{ -qbs_set(_FUNC_DIM2_STRING_L,qbs_add(qbs_add(_FUNC_DIM2_STRING_L,__STRING1_SP),__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15356);}while(r); -S_18328:; -if ((*__INTEGER_ARRAYDESC)||new_error){ -if(qbevent){evnt(15357);if(r)goto S_18328;} -do{ -goto LABEL_DIM2EXITFUNC; -if(!qbevent)break;evnt(15357);}while(r); -} -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(15358);}while(r); -}else{ -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(15361);}while(r); -S_18334:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||new_error){ -if(qbevent){evnt(15362);if(r)goto S_18334;} -do{ -*_FUNC_DIM2_LONG_NUME= -1 ; -if(!qbevent)break;evnt(15363);}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2847))=*__LONG_GLINKID; -if(!qbevent)break;evnt(15364);}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2851))=*__INTEGER_GLINKARG; -if(!qbevent)break;evnt(15365);}while(r); -}else{ -do{ -*_FUNC_DIM2_LONG_NUME=qbr(func_val(_FUNC_DIM2_STRING_ELEMENTS)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15367);}while(r); -} -} -do{ -*(int32*)(((char*)__UDT_ID)+(512))=*__LONG_DOUBLETYPE; -if(!qbevent)break;evnt(15371);}while(r); -S_18343:; -if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ -if(qbevent){evnt(15372);if(r)goto S_18343;} -do{ -*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISINCONVENTIONALMEMORY; -if(!qbevent)break;evnt(15372);}while(r); -} -S_18346:; -if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||new_error){ -if(qbevent){evnt(15373);if(r)goto S_18346;} -do{ -*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ; -if(!qbevent)break;evnt(15373);}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(518))= 1 ; -if(!qbevent)break;evnt(15373);}while(r); -} -do{ -*(int16*)(((char*)__UDT_ID)+(516))=*_FUNC_DIM2_LONG_NUME; -if(!qbevent)break;evnt(15375);}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),_FUNC_DIM2_STRING_N); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15376);}while(r); -}else{ -do{ -qbs_set(_FUNC_DIM2_STRING_N,qbs_add(_FUNC_DIM2_STRING_SCOPE2,_FUNC_DIM2_STRING_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15378);}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(15379);}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(536))=*__LONG_DOUBLETYPE; -if(!qbevent)break;evnt(15380);}while(r); -S_18356:; -if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ -if(qbevent){evnt(15381);if(r)goto S_18356;} -do{ -SUB_WRITEBUFLINE(__INTEGER_DEFDATAHANDLE,qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_CT,qbs_new_txt_len(" *",2)),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=NULL;",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15381);}while(r); -} -S_18359:; -if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ -if(qbevent){evnt(15382);if(r)goto S_18359;} -do{ -SUB_WRITEBUFLINE(&(pass2511=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15382);}while(r); -} -S_18362:; -if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ -if(qbevent){evnt(15383);if(r)goto S_18362;} -do{ -*(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISINCONVENTIONALMEMORY; -if(!qbevent)break;evnt(15384);}while(r); -S_18364:; -if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ -if(qbevent){evnt(15385);if(r)goto S_18364;} -do{ -SUB_WRITEBUFLINE(&(pass2512=*__LONG_DATATXTBUF),qbs_new_txt_len("cmem_sp-=8;",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15385);}while(r); -} -S_18367:; -if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ -if(qbevent){evnt(15386);if(r)goto S_18367;} -do{ -SUB_WRITEBUFLINE(&(pass2513=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("=(",2)),_FUNC_DIM2_STRING_CT),qbs_new_txt_len("*)(dblock+cmem_sp);",19))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15386);}while(r); -} -S_18370:; -if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ -if(qbevent){evnt(15387);if(r)goto S_18370;} -do{ -SUB_WRITEBUFLINE(&(pass2514=*__LONG_DATATXTBUF),qbs_new_txt_len("if (cmem_splen== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||new_error){ -if(qbevent){evnt(15435);if(r)goto S_18431;} -do{ -*__LONG_E=((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])]; -if(!qbevent)break;evnt(15436);}while(r); -S_18433:; -if ((*__LONG_E)||new_error){ -if(qbevent){evnt(15436);if(r)goto S_18433;} -do{ -qbs_set(_FUNC_DIM2_STRING_ELEMENTS,qbs_add(_FUNC_DIM2_STRING_ELEMENTS,FUNC_STR2(__LONG_E))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15436);}while(r); -} -} -do{ -*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass2521= 32 ),&(pass2522= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15438);}while(r); -S_18438:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(15439);if(r)goto S_18438;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(15439);}while(r); -} -do{ -qbs_set(_FUNC_DIM2_STRING_L,qbs_add(qbs_add(_FUNC_DIM2_STRING_L,__STRING1_SP),__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15440);}while(r); -S_18442:; -if ((*__INTEGER_ARRAYDESC)||new_error){ -if(qbevent){evnt(15441);if(r)goto S_18442;} -do{ -goto LABEL_DIM2EXITFUNC; -if(!qbevent)break;evnt(15441);}while(r); -} -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(15442);}while(r); -}else{ -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(15445);}while(r); -S_18448:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||new_error){ -if(qbevent){evnt(15446);if(r)goto S_18448;} -do{ -*_FUNC_DIM2_LONG_NUME= -1 ; -if(!qbevent)break;evnt(15447);}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2847))=*__LONG_GLINKID; -if(!qbevent)break;evnt(15448);}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(2851))=*__INTEGER_GLINKARG; -if(!qbevent)break;evnt(15449);}while(r); -}else{ -do{ -*_FUNC_DIM2_LONG_NUME=qbr(func_val(_FUNC_DIM2_STRING_ELEMENTS)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15451);}while(r); -} -} -do{ -*(int32*)(((char*)__UDT_ID)+(512))=*__LONG_FLOATTYPE; -if(!qbevent)break;evnt(15455);}while(r); -S_18457:; -if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ -if(qbevent){evnt(15456);if(r)goto S_18457;} -do{ -*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISINCONVENTIONALMEMORY; -if(!qbevent)break;evnt(15456);}while(r); -} -S_18460:; -if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||new_error){ -if(qbevent){evnt(15457);if(r)goto S_18460;} -do{ -*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ; -if(!qbevent)break;evnt(15457);}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(518))= 1 ; -if(!qbevent)break;evnt(15457);}while(r); -} -do{ -*(int16*)(((char*)__UDT_ID)+(516))=*_FUNC_DIM2_LONG_NUME; -if(!qbevent)break;evnt(15459);}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),_FUNC_DIM2_STRING_N); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15460);}while(r); -}else{ -do{ -qbs_set(_FUNC_DIM2_STRING_N,qbs_add(_FUNC_DIM2_STRING_SCOPE2,_FUNC_DIM2_STRING_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15462);}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(15463);}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(536))=*__LONG_FLOATTYPE; -if(!qbevent)break;evnt(15464);}while(r); -S_18470:; -if ((*_FUNC_DIM2_LONG_F)||new_error){ -if(qbevent){evnt(15465);if(r)goto S_18470;} -do{ -SUB_WRITEBUFLINE(__INTEGER_DEFDATAHANDLE,qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_CT,qbs_new_txt_len(" *",2)),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=NULL;",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15465);}while(r); -} -S_18473:; -if ((*_FUNC_DIM2_LONG_F)||new_error){ -if(qbevent){evnt(15466);if(r)goto S_18473;} -do{ -SUB_WRITEBUFLINE(&(pass2523=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15466);}while(r); -} -S_18476:; -if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ -if(qbevent){evnt(15467);if(r)goto S_18476;} -do{ -*(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISINCONVENTIONALMEMORY; -if(!qbevent)break;evnt(15468);}while(r); -S_18478:; -if ((*_FUNC_DIM2_LONG_F)||new_error){ -if(qbevent){evnt(15469);if(r)goto S_18478;} -do{ -SUB_WRITEBUFLINE(&(pass2524=*__LONG_DATATXTBUF),qbs_new_txt_len("cmem_sp-=32;",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15469);}while(r); -} -S_18481:; -if ((*_FUNC_DIM2_LONG_F)||new_error){ -if(qbevent){evnt(15470);if(r)goto S_18481;} -do{ -SUB_WRITEBUFLINE(&(pass2525=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("=(",2)),_FUNC_DIM2_STRING_CT),qbs_new_txt_len("*)(dblock+cmem_sp);",19))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15470);}while(r); -} -S_18484:; -if ((*_FUNC_DIM2_LONG_F)||new_error){ -if(qbevent){evnt(15471);if(r)goto S_18484;} -do{ -SUB_WRITEBUFLINE(&(pass2526=*__LONG_DATATXTBUF),qbs_new_txt_len("if (cmem_sp=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -return *_FUNC_DIM2_LONG_DIM2; -} -qbs* FUNC_UDTREFERENCE(qbs*_FUNC_UDTREFERENCE_STRING_O,qbs*_FUNC_UDTREFERENCE_STRING_A,int32*_FUNC_UDTREFERENCE_LONG_TYP){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data17.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -qbs_set(_FUNC_UDTREFERENCE_STRING_OBAK,_FUNC_UDTREFERENCE_STRING_O); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15519);}while(r); -do{ -qbs_set(_FUNC_UDTREFERENCE_STRING_R,qbs_add(FUNC_STR2(__LONG_CURRENTID),__STRING1_SP3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15524);}while(r); -do{ -*_FUNC_UDTREFERENCE_LONG_O= 0 ; -if(!qbevent)break;evnt(15527);}while(r); -do{ -*_FUNC_UDTREFERENCE_LONG_INCMEM= 0 ; -if(!qbevent)break;evnt(15529);}while(r); -S_18531:; -if ((*(int32*)(((char*)__UDT_ID)+(536)))||new_error){ -if(qbevent){evnt(15530);if(r)goto S_18531;} -do{ -*_FUNC_UDTREFERENCE_LONG_U=*(int32*)(((char*)__UDT_ID)+(536))& 511 ; -if(!qbevent)break;evnt(15531);}while(r); -S_18533:; -if ((*(int32*)(((char*)__UDT_ID)+(536))&*__LONG_ISINCONVENTIONALMEMORY)||new_error){ -if(qbevent){evnt(15532);if(r)goto S_18533;} -do{ -*_FUNC_UDTREFERENCE_LONG_INCMEM= 1 ; -if(!qbevent)break;evnt(15532);}while(r); -} -}else{ -do{ -*_FUNC_UDTREFERENCE_LONG_U=*(int32*)(((char*)__UDT_ID)+(512))& 511 ; -if(!qbevent)break;evnt(15534);}while(r); -S_18538:; -if ((*(int32*)(((char*)__UDT_ID)+(512))&*__LONG_ISINCONVENTIONALMEMORY)||new_error){ -if(qbevent){evnt(15535);if(r)goto S_18538;} -do{ -*_FUNC_UDTREFERENCE_LONG_INCMEM= 1 ; -if(!qbevent)break;evnt(15535);}while(r); -} -} -do{ -*__LONG_E= 0 ; -if(!qbevent)break;evnt(15537);}while(r); -do{ -*_FUNC_UDTREFERENCE_LONG_N=FUNC_NUMELEMENTS(_FUNC_UDTREFERENCE_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15539);}while(r); -S_18544:; -if ((-(*_FUNC_UDTREFERENCE_LONG_N== 0 ))||new_error){ -if(qbevent){evnt(15540);if(r)goto S_18544;} -do{ -goto LABEL_FULLUDT; -if(!qbevent)break;evnt(15540);}while(r); -} -do{ -*_FUNC_UDTREFERENCE_LONG_I= 1 ; -if(!qbevent)break;evnt(15542);}while(r); -LABEL_UDTFINDELENEXT:; -if(qbevent){evnt(15543);r=0;} -S_18548:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(_FUNC_UDTREFERENCE_STRING_A,_FUNC_UDTREFERENCE_LONG_I),qbs_new_txt_len(".",1))))||new_error){ -if(qbevent){evnt(15544);if(r)goto S_18548;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected .",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15544);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(15544);}while(r); -} -do{ -*_FUNC_UDTREFERENCE_LONG_I=*_FUNC_UDTREFERENCE_LONG_I+ 1 ; -if(!qbevent)break;evnt(15545);}while(r); -do{ -qbs_set(_FUNC_UDTREFERENCE_STRING_N,FUNC_GETELEMENT(_FUNC_UDTREFERENCE_STRING_A,_FUNC_UDTREFERENCE_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15546);}while(r); -do{ -qbs_set(_FUNC_UDTREFERENCE_STRING_NSYM,FUNC_REMOVESYMBOL(_FUNC_UDTREFERENCE_STRING_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15547);}while(r); -S_18555:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_UDTREFERENCE_STRING_NSYM->len))||new_error){ -if(qbevent){evnt(15547);if(r)goto S_18555;} -do{ -*_FUNC_UDTREFERENCE_LONG_NTYP=FUNC_TYPNAME2TYP(_FUNC_UDTREFERENCE_STRING_NSYM); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15547);}while(r); -do{ -*_FUNC_UDTREFERENCE_LONG_NTYPSIZE=*__LONG_TYPNAME2TYPSIZE; -if(!qbevent)break;evnt(15547);}while(r); -} -S_18559:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(15548);if(r)goto S_18559;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(15548);}while(r); -} -S_18562:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_UDTREFERENCE_STRING_N,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(15550);if(r)goto S_18562;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected .elementname",21)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15550);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(15550);}while(r); -} -LABEL_UDTFINDELE:; -if(qbevent){evnt(15551);r=0;} -S_18566:; -if ((-(*__LONG_E== 0 ))||new_error){ -if(qbevent){evnt(15552);if(r)goto S_18566;} -do{ -*__LONG_E=((int32*)(__ARRAY_LONG_UDTXNEXT[0]))[array_check((*_FUNC_UDTREFERENCE_LONG_U)-__ARRAY_LONG_UDTXNEXT[4],__ARRAY_LONG_UDTXNEXT[5])]; -if(!qbevent)break;evnt(15552);}while(r); -}else{ -do{ -*__LONG_E=((int32*)(__ARRAY_LONG_UDTENEXT[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5])]; -if(!qbevent)break;evnt(15552);}while(r); -} -S_18571:; -if ((-(*__LONG_E== 0 ))||new_error){ -if(qbevent){evnt(15553);if(r)goto S_18571;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Element not defined",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15553);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(15553);}while(r); -} -do{ -qbs_set(_FUNC_UDTREFERENCE_STRING_N2,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTENAME[0]))[(array_check((*__LONG_E)-__ARRAY_STRING256_UDTENAME[4],__ARRAY_STRING256_UDTENAME[5]))*256],256,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15554);}while(r); -S_18576:; -if ((((int16*)(__ARRAY_INTEGER_UDTEBYTEALIGN[0]))[array_check((*__LONG_E)-__ARRAY_INTEGER_UDTEBYTEALIGN[4],__ARRAY_INTEGER_UDTEBYTEALIGN[5])])||new_error){ -if(qbevent){evnt(15555);if(r)goto S_18576;} -S_18577:; -if ((*_FUNC_UDTREFERENCE_LONG_O% 8 )||new_error){ -if(qbevent){evnt(15556);if(r)goto S_18577;} -do{ -*_FUNC_UDTREFERENCE_LONG_O=*_FUNC_UDTREFERENCE_LONG_O+( 8 -(*_FUNC_UDTREFERENCE_LONG_O% 8 )); -if(!qbevent)break;evnt(15556);}while(r); -} -} -S_18581:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_UDTREFERENCE_STRING_N,_FUNC_UDTREFERENCE_STRING_N2)))||new_error){ -if(qbevent){evnt(15559);if(r)goto S_18581;} -do{ -*_FUNC_UDTREFERENCE_LONG_O=*_FUNC_UDTREFERENCE_LONG_O+((int32*)(__ARRAY_LONG_UDTESIZE[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5])]; -if(!qbevent)break;evnt(15561);}while(r); -do{ -goto LABEL_UDTFINDELE; -if(!qbevent)break;evnt(15562);}while(r); -} -S_18585:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_UDTREFERENCE_STRING_NSYM->len))||new_error){ -if(qbevent){evnt(15566);if(r)goto S_18585;} -S_18586:; -if ((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISUDT)||new_error){ -if(qbevent){evnt(15568);if(r)goto S_18586;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Invalid symbol after user defined type",38)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15568);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(15568);}while(r); -} -S_18590:; -if (((-(*_FUNC_UDTREFERENCE_LONG_NTYP!=((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]))|(-(*_FUNC_UDTREFERENCE_LONG_NTYPSIZE!=((int32*)(__ARRAY_LONG_UDTETYPESIZE[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTETYPESIZE[4],__ARRAY_LONG_UDTETYPESIZE[5])])))||new_error){ -if(qbevent){evnt(15569);if(r)goto S_18590;} -S_18591:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_UDTREFERENCE_STRING_NSYM,qbs_new_txt_len("$",1)))&((-((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISFIXEDLENGTH)!= 0 )))))||new_error){ -if(qbevent){evnt(15570);if(r)goto S_18591;} -do{ -goto LABEL_CORRECTSYMBOL; -if(!qbevent)break;evnt(15570);}while(r); -} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Incorrect symbol after element name",35)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15571);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(15571);}while(r); -} -} -LABEL_CORRECTSYMBOL:; -if(qbevent){evnt(15574);r=0;} -S_18598:; -if ((-(*_FUNC_UDTREFERENCE_LONG_I!=*_FUNC_UDTREFERENCE_LONG_N))||new_error){ -if(qbevent){evnt(15577);if(r)goto S_18598;} -S_18599:; -if ((-((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISUDT)== 0 ))||new_error){ -if(qbevent){evnt(15578);if(r)goto S_18599;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected user defined type",26)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15578);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(15578);}while(r); -} -do{ -*_FUNC_UDTREFERENCE_LONG_U=((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]& 511 ; -if(!qbevent)break;evnt(15579);}while(r); -do{ -*__LONG_E= 0 ; -if(!qbevent)break;evnt(15580);}while(r); -do{ -*_FUNC_UDTREFERENCE_LONG_I=*_FUNC_UDTREFERENCE_LONG_I+ 1 ; -if(!qbevent)break;evnt(15581);}while(r); -do{ -goto LABEL_UDTFINDELENEXT; -if(!qbevent)break;evnt(15582);}while(r); -} -S_18608:; -if ((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISUDT)||new_error){ -if(qbevent){evnt(15586);if(r)goto S_18608;} -do{ -*_FUNC_UDTREFERENCE_LONG_U=((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]& 511 ; -if(!qbevent)break;evnt(15587);}while(r); -do{ -*__LONG_E= 0 ; -if(!qbevent)break;evnt(15588);}while(r); -} -LABEL_FULLUDT:; -if(qbevent){evnt(15591);r=0;} -do{ -qbs_set(_FUNC_UDTREFERENCE_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_UDTREFERENCE_STRING_R,FUNC_STR2(_FUNC_UDTREFERENCE_LONG_U)),__STRING1_SP3),FUNC_STR2(__LONG_E)),__STRING1_SP3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15593);}while(r); -S_18613:; -if ((*_FUNC_UDTREFERENCE_LONG_O% 8 )||new_error){ -if(qbevent){evnt(15595);if(r)goto S_18613;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("QB64 cannot handle bit offsets within user defined types",56)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15595);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(15595);}while(r); -} -do{ -*_FUNC_UDTREFERENCE_LONG_O=*_FUNC_UDTREFERENCE_LONG_O/ 8 ; -if(!qbevent)break;evnt(15596);}while(r); -S_18618:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_UDTREFERENCE_STRING_O,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(15598);if(r)goto S_18618;} -S_18619:; -if ((-(*_FUNC_UDTREFERENCE_LONG_O!= 0 ))||new_error){ -if(qbevent){evnt(15599);if(r)goto S_18619;} -do{ -qbs_set(_FUNC_UDTREFERENCE_STRING_O,qbs_add(qbs_add(_FUNC_UDTREFERENCE_STRING_O,qbs_new_txt_len("+",1)),FUNC_STR2(_FUNC_UDTREFERENCE_LONG_O))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15600);}while(r); -} -}else{ -do{ -qbs_set(_FUNC_UDTREFERENCE_STRING_O,FUNC_STR2(_FUNC_UDTREFERENCE_LONG_O)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15603);}while(r); -} -do{ -qbs_set(_FUNC_UDTREFERENCE_STRING_R,qbs_add(_FUNC_UDTREFERENCE_STRING_R,_FUNC_UDTREFERENCE_STRING_O)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15606);}while(r); -do{ -qbs_set(_FUNC_UDTREFERENCE_STRING_UDTREFERENCE,_FUNC_UDTREFERENCE_STRING_R); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15608);}while(r); -do{ -*_FUNC_UDTREFERENCE_LONG_TYP=((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]+*__LONG_ISUDT+*__LONG_ISREFERENCE; -if(!qbevent)break;evnt(15609);}while(r); -S_18628:; -if ((-(*__LONG_E== 0 ))||new_error){ -if(qbevent){evnt(15612);if(r)goto S_18628;} -do{ -*_FUNC_UDTREFERENCE_LONG_TYP=*_FUNC_UDTREFERENCE_LONG_U+*__LONG_ISUDT+*__LONG_ISREFERENCE; -if(!qbevent)break;evnt(15613);}while(r); -} -S_18631:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_UDTREFERENCE_STRING_OBAK,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(15616);if(r)goto S_18631;} -do{ -*_FUNC_UDTREFERENCE_LONG_TYP=*_FUNC_UDTREFERENCE_LONG_TYP+*__LONG_ISARRAY; -if(!qbevent)break;evnt(15616);}while(r); -} -S_18634:; -if ((*_FUNC_UDTREFERENCE_LONG_INCMEM)||new_error){ -if(qbevent){evnt(15617);if(r)goto S_18634;} -do{ -*_FUNC_UDTREFERENCE_LONG_TYP=*_FUNC_UDTREFERENCE_LONG_TYP+*__LONG_ISINCONVENTIONALMEMORY; -if(!qbevent)break;evnt(15617);}while(r); -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free17.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_UDTREFERENCE_STRING_UDTREFERENCE);return _FUNC_UDTREFERENCE_STRING_UDTREFERENCE; -} -qbs* FUNC_EVALUATE(qbs*_FUNC_EVALUATE_STRING_A2,int32*_FUNC_EVALUATE_LONG_TYP){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data18.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ +} +if(!qbevent)break;evnt(9321);}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(9322);}while(r); +do{ +SUB_HASHADD(__STRING_LBL,&(pass1330= 2 ),__LONG_NLABELS); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9323);}while(r); +do{ +*__LONG_R=*__LONG_NLABELS; +if(!qbevent)break;evnt(9324);}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(9325);}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(9326);}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(9327);}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(9328);}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(9329);}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(9332);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1331=*__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(9333);}while(r); +} +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(9335);}while(r); +S_11425:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(9335);if(r)goto S_11425;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9335);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9335);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(9336);}while(r); +} +} +S_11433:; +if ((-(*__LONG_N>= 1 ))||new_error){ +if(qbevent){evnt(9343);if(r)goto S_11433;} +S_11434:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("ON",2))))||new_error){ +if(qbevent){evnt(9344);if(r)goto S_11434;} +do{ +SUB_XONGOTOGOSUB(__STRING_A,__STRING_CA,__LONG_N); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9345);}while(r); +S_11436:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9346);if(r)goto S_11436;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9346);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(9347);}while(r); +} +} +S_11442:; +if ((-(*__LONG_N>= 1 ))||new_error){ +if(qbevent){evnt(9353);if(r)goto S_11442;} +S_11443:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_MEMGET",7)))|(((qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("MEMGET",6)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ +if(qbevent){evnt(9354);if(r)goto S_11443;} +do{ +qbs_set(__STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9356);}while(r); +do{ +*__LONG_B= 0 ; +if(!qbevent)break;evnt(9357);}while(r); +do{ +*__LONG_NE= 0 ; +if(!qbevent)break;evnt(9358);}while(r); +S_11447:; +fornext_value1334= 2 ; +fornext_finalvalue1334=*__LONG_N; +fornext_step1334= 1 ; +if (fornext_step1334<0) fornext_step_negative1334=1; else fornext_step_negative1334=0; +if (new_error) goto fornext_error1334; +goto fornext_entrylabel1334; +while(1){ +fornext_value1334=fornext_step1334+(*__LONG_I2); +fornext_entrylabel1334: +*__LONG_I2=fornext_value1334; +if (fornext_step_negative1334){ +if (fornext_value1334fornext_finalvalue1334) break; +} +fornext_error1334:; +if(qbevent){evnt(9359);if(r)goto S_11447;} +do{ +qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9360);}while(r); +S_11449:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(9361);if(r)goto S_11449;} +do{ +*__LONG_B=*__LONG_B+ 1 ; +if(!qbevent)break;evnt(9361);}while(r); +} +S_11452:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(9362);if(r)goto S_11452;} +do{ +*__LONG_B=*__LONG_B- 1 ; +if(!qbevent)break;evnt(9362);}while(r); +} +S_11455:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||new_error){ +if(qbevent){evnt(9363);if(r)goto S_11455;} +do{ +*__LONG_NE=*__LONG_NE+ 1 ; +if(!qbevent)break;evnt(9364);}while(r); +S_11457:; +if ((-(*__LONG_NE== 1 ))||new_error){ +if(qbevent){evnt(9365);if(r)goto S_11457;} +do{ +qbs_set(__STRING_BLK,__STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9365);}while(r); +do{ +qbs_set(__STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9365);}while(r); +} +S_11461:; +if ((-(*__LONG_NE== 2 ))||new_error){ +if(qbevent){evnt(9366);if(r)goto S_11461;} +do{ +qbs_set(__STRING_OFFS,__STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9366);}while(r); +do{ +qbs_set(__STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9366);}while(r); +} +S_11465:; +if ((-(*__LONG_NE== 3 ))||new_error){ +if(qbevent){evnt(9367);if(r)goto S_11465;} +do{ +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Syntax error - too many parameters (Expected ",45),__STRING_QB64PREFIX),qbs_new_txt_len("MEMGET mem-reference, offset, variable)",39))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9367);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9367);}while(r); +} +}else{ +S_11470:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E->len== 0 )))||new_error){ +if(qbevent){evnt(9369);if(r)goto S_11470;} +do{ +qbs_set(__STRING_E,__STRING_E2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9369);}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(9369);}while(r); +} +} +fornext_continue_1333:; +} +fornext_exit_1333:; +do{ +qbs_set(__STRING_VAR,__STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9372);}while(r); +S_11478:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E,qbs_new_txt_len("",0)))|(-(*__LONG_NE!= 2 ))))||new_error){ +if(qbevent){evnt(9373);if(r)goto S_11478;} +do{ +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Expected ",9),__STRING_QB64PREFIX),qbs_new_txt_len("MEMGET mem-reference, offset, variable",38))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9373);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9373);}while(r); +} +S_11482:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_MEMGET",7))))||new_error){ +if(qbevent){evnt(9375);if(r)goto S_11482;} +do{ +qbs_set(__STRING_L,qbs_add(FUNC_SCASE(qbs_new_txt_len("_MemGet",7)),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9375);}while(r); +}else{ +do{ +qbs_set(__STRING_L,qbs_add(FUNC_SCASE(qbs_new_txt_len("MemGet",6)),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9375);}while(r); +} +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_BLK)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9377);}while(r); +S_11488:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9377);if(r)goto S_11488;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9377);}while(r); +} +do{ +qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9378);}while(r); +do{ +qbs_set(__STRING_TEST,FUNC_EVALUATE(__STRING_E,__LONG_TYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9380);}while(r); +S_11493:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9380);if(r)goto S_11493;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9380);}while(r); +} +S_11496:; +if (((-((*__LONG_TYP&*__LONG_ISUDT)== 0 ))|(-((*__LONG_TYP& 511 )!= 1 )))||new_error){ +if(qbevent){evnt(9381);if(r)goto S_11496;} +do{ +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Expected ",9),__STRING_QB64PREFIX),qbs_new_txt_len("MEM type",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9381);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9381);}while(r); +} +do{ +qbs_set(__STRING_BLKOFFS,FUNC_EVALUATETOTYP(__STRING_E,&(pass1336= -6 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9382);}while(r); +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_OFFS)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9389);}while(r); +S_11502:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9389);if(r)goto S_11502;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9389);}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(9390);}while(r); +do{ +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1337=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9391);}while(r); +S_11507:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9391);if(r)goto S_11507;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9391);}while(r); +} +do{ +qbs_set(__STRING_OFFS,__STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9392);}while(r); +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_VAR)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9395);}while(r); +S_11512:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9395);if(r)goto S_11512;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9395);}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(9396);}while(r); +do{ +qbs_set(__STRING_VARSIZE,FUNC_EVALUATETOTYP(__STRING_E,&(pass1338= -5 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9397);}while(r); +S_11517:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9397);if(r)goto S_11517;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9397);}while(r); +} +do{ +qbs_set(__STRING_VAROFFS,FUNC_EVALUATETOTYP(__STRING_E,&(pass1339= -6 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9398);}while(r); +S_11521:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9398);if(r)goto S_11521;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9398);}while(r); +} +do{ +*__LONG_S= 0 ; +if(!qbevent)break;evnt(9408);}while(r); +S_11525:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARSIZE,qbs_new_txt_len("1",1))))||new_error){ +if(qbevent){evnt(9409);if(r)goto S_11525;} +do{ +*__LONG_S= 1 ; +if(!qbevent)break;evnt(9409);}while(r); +do{ +qbs_set(__STRING_ST,qbs_new_txt_len("int8",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9409);}while(r); +} +S_11529:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARSIZE,qbs_new_txt_len("2",1))))||new_error){ +if(qbevent){evnt(9410);if(r)goto S_11529;} +do{ +*__LONG_S= 2 ; +if(!qbevent)break;evnt(9410);}while(r); +do{ +qbs_set(__STRING_ST,qbs_new_txt_len("int16",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9410);}while(r); +} +S_11533:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARSIZE,qbs_new_txt_len("4",1))))||new_error){ +if(qbevent){evnt(9411);if(r)goto S_11533;} +do{ +*__LONG_S= 4 ; +if(!qbevent)break;evnt(9411);}while(r); +do{ +qbs_set(__STRING_ST,qbs_new_txt_len("int32",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9411);}while(r); +} +S_11537:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARSIZE,qbs_new_txt_len("8",1))))||new_error){ +if(qbevent){evnt(9412);if(r)goto S_11537;} +do{ +*__LONG_S= 8 ; +if(!qbevent)break;evnt(9412);}while(r); +do{ +qbs_set(__STRING_ST,qbs_new_txt_len("int64",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9412);}while(r); +} +S_11541:; +if ((*__LONG_NOCHECKS)||new_error){ +if(qbevent){evnt(9414);if(r)goto S_11541;} +S_11542:; +if ((*__LONG_S)||new_error){ +if(qbevent){evnt(9416);if(r)goto S_11542;} +do{ +SUB_WRITEBUFLINE(&(pass1340=*__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(9417);}while(r); +}else{ +do{ +SUB_WRITEBUFLINE(&(pass1341=*__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(",(void*)",8)),__STRING_OFFS),qbs_new_txt_len(",",1)),__STRING_VARSIZE),qbs_new_txt_len(");",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9419);}while(r); +} +}else{ +do{ +SUB_WRITEBUFLINE(&(pass1342=*__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(9423);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1343=*__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(9425);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1344=*__LONG_MAINTXTBUF),qbs_new_txt_len("if (",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9427);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1345=*__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(9428);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1346=*__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(9429);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1347=*__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(9430);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1348=*__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(9432);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1349=*__LONG_MAINTXTBUF),qbs_new_txt_len("}else{",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9433);}while(r); +S_11556:; +if ((*__LONG_S)||new_error){ +if(qbevent){evnt(9434);if(r)goto S_11556;} +do{ +SUB_WRITEBUFLINE(&(pass1350=*__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(9435);}while(r); +}else{ +do{ +SUB_WRITEBUFLINE(&(pass1351=*__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(9437);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass1352=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9439);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1353=*__LONG_MAINTXTBUF),qbs_new_txt_len("}else error(309);",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9440);}while(r); +} +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(9443);}while(r); +S_11565:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(9443);if(r)goto S_11565;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9443);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9443);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(9444);}while(r); +} +} +S_11573:; +if ((-(*__LONG_N>= 1 ))||new_error){ +if(qbevent){evnt(9452);if(r)goto S_11573;} +S_11574:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_MEMPUT",7)))|(((qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("MEMPUT",6)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ +if(qbevent){evnt(9453);if(r)goto S_11574;} +do{ +qbs_set(__STRING_TYP,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9455);}while(r); +do{ +qbs_set(__STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9456);}while(r); +do{ +*__LONG_B= 0 ; +if(!qbevent)break;evnt(9457);}while(r); +do{ +*__LONG_NE= 0 ; +if(!qbevent)break;evnt(9458);}while(r); +S_11579:; +fornext_value1356= 2 ; +fornext_finalvalue1356=*__LONG_N; +fornext_step1356= 1 ; +if (fornext_step1356<0) fornext_step_negative1356=1; else fornext_step_negative1356=0; +if (new_error) goto fornext_error1356; +goto fornext_entrylabel1356; +while(1){ +fornext_value1356=fornext_step1356+(*__LONG_I2); +fornext_entrylabel1356: +*__LONG_I2=fornext_value1356; +if (fornext_step_negative1356){ +if (fornext_value1356fornext_finalvalue1356) break; +} +fornext_error1356:; +if(qbevent){evnt(9459);if(r)goto S_11579;} +do{ +qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9460);}while(r); +S_11581:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(9461);if(r)goto S_11581;} +do{ +*__LONG_B=*__LONG_B+ 1 ; +if(!qbevent)break;evnt(9461);}while(r); +} +S_11584:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(9462);if(r)goto S_11584;} +do{ +*__LONG_B=*__LONG_B- 1 ; +if(!qbevent)break;evnt(9462);}while(r); +} +S_11587:; +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 ))))||new_error){ +if(qbevent){evnt(9463);if(r)goto S_11587;} +do{ +*__LONG_NE=*__LONG_NE+ 1 ; +if(!qbevent)break;evnt(9464);}while(r); +S_11589:; +if ((-(*__LONG_NE== 1 ))||new_error){ +if(qbevent){evnt(9465);if(r)goto S_11589;} +do{ +qbs_set(__STRING_BLK,__STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9465);}while(r); +do{ +qbs_set(__STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9465);}while(r); +} +S_11593:; +if ((-(*__LONG_NE== 2 ))||new_error){ +if(qbevent){evnt(9466);if(r)goto S_11593;} +do{ +qbs_set(__STRING_OFFS,__STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9466);}while(r); +do{ +qbs_set(__STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9466);}while(r); +} +S_11597:; +if ((-(*__LONG_NE== 3 ))||new_error){ +if(qbevent){evnt(9467);if(r)goto S_11597;} +do{ +qbs_set(__STRING_VAR,__STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9467);}while(r); +do{ +qbs_set(__STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9467);}while(r); +} +S_11601:; +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 ))))||new_error){ +if(qbevent){evnt(9468);if(r)goto S_11601;} +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(9468);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9468);}while(r); +} +}else{ +S_11606:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E->len== 0 )))||new_error){ +if(qbevent){evnt(9470);if(r)goto S_11606;} +do{ +qbs_set(__STRING_E,__STRING_E2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9470);}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(9470);}while(r); +} +} +fornext_continue_1355:; +} +fornext_exit_1355:; +S_11613:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_NE< 2 ))|(qbs_equal(__STRING_E,qbs_new_txt_len("",0)))))||new_error){ +if(qbevent){evnt(9473);if(r)goto S_11613;} +do{ +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Expected ",9),__STRING_QB64PREFIX),qbs_new_txt_len("MEMPUT mem-reference, offset, variable|value[AS type]",53))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9473);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9473);}while(r); +} +S_11617:; +if ((-(*__LONG_NE== 2 ))||new_error){ +if(qbevent){evnt(9474);if(r)goto S_11617;} +do{ +qbs_set(__STRING_VAR,__STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9474);}while(r); +}else{ +do{ +qbs_set(__STRING_TYP,qbs_ucase(__STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9474);}while(r); +} +S_11622:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_MEMPUT",7))))||new_error){ +if(qbevent){evnt(9476);if(r)goto S_11622;} +do{ +qbs_set(__STRING_L,qbs_add(FUNC_SCASE(qbs_new_txt_len("_MemPut",7)),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9476);}while(r); +}else{ +do{ +qbs_set(__STRING_L,qbs_add(FUNC_SCASE(qbs_new_txt_len("MemPut",6)),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9476);}while(r); +} +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_BLK)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9478);}while(r); +S_11628:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9478);if(r)goto S_11628;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9478);}while(r); +} +do{ +qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9479);}while(r); +do{ +qbs_set(__STRING_TEST,FUNC_EVALUATE(__STRING_E,__LONG_TYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9481);}while(r); +S_11633:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9481);if(r)goto S_11633;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9481);}while(r); +} +S_11636:; +if (((-((*__LONG_TYP&*__LONG_ISUDT)== 0 ))|(-((*__LONG_TYP& 511 )!= 1 )))||new_error){ +if(qbevent){evnt(9482);if(r)goto S_11636;} +do{ +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Expected ",9),__STRING_QB64PREFIX),qbs_new_txt_len("MEM type",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9482);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9482);}while(r); +} +do{ +qbs_set(__STRING_BLKOFFS,FUNC_EVALUATETOTYP(__STRING_E,&(pass1358= -6 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9483);}while(r); +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_OFFS)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9485);}while(r); +S_11642:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9485);if(r)goto S_11642;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9485);}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(9486);}while(r); +do{ +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1359=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9487);}while(r); +S_11647:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9487);if(r)goto S_11647;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9487);}while(r); +} +do{ +qbs_set(__STRING_OFFS,__STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9488);}while(r); +S_11651:; +if ((-(*__LONG_NE== 2 ))||new_error){ +if(qbevent){evnt(9490);if(r)goto S_11651;} +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_VAR)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9491);}while(r); +S_11653:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9491);if(r)goto S_11653;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9491);}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(9492);}while(r); +do{ +qbs_set(__STRING_TEST,FUNC_EVALUATE(__STRING_E,__LONG_T)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9494);}while(r); +S_11658:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9494);if(r)goto S_11658;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9494);}while(r); +} +S_11661:; +if (((-((*__LONG_T&*__LONG_ISREFERENCE)== 0 ))&((*__LONG_T&*__LONG_ISSTRING)))||new_error){ +if(qbevent){evnt(9495);if(r)goto S_11661;} +do{ +SUB_WRITEBUFLINE(&(pass1360=*__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(9496);}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(9497);}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(9498);}while(r); +}else{ +do{ +qbs_set(__STRING_VARSIZE,FUNC_EVALUATETOTYP(__STRING_E,&(pass1361= -5 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9500);}while(r); +S_11667:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9500);if(r)goto S_11667;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9500);}while(r); +} +do{ +qbs_set(__STRING_VAROFFS,FUNC_EVALUATETOTYP(__STRING_E,&(pass1362= -6 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9501);}while(r); +S_11671:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9501);if(r)goto S_11671;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9501);}while(r); +} +} +do{ +*__LONG_S= 0 ; +if(!qbevent)break;evnt(9505);}while(r); +S_11676:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARSIZE,qbs_new_txt_len("1",1))))||new_error){ +if(qbevent){evnt(9506);if(r)goto S_11676;} +do{ +*__LONG_S= 1 ; +if(!qbevent)break;evnt(9506);}while(r); +do{ +qbs_set(__STRING_ST,qbs_new_txt_len("int8",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9506);}while(r); +} +S_11680:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARSIZE,qbs_new_txt_len("2",1))))||new_error){ +if(qbevent){evnt(9507);if(r)goto S_11680;} +do{ +*__LONG_S= 2 ; +if(!qbevent)break;evnt(9507);}while(r); +do{ +qbs_set(__STRING_ST,qbs_new_txt_len("int16",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9507);}while(r); +} +S_11684:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARSIZE,qbs_new_txt_len("4",1))))||new_error){ +if(qbevent){evnt(9508);if(r)goto S_11684;} +do{ +*__LONG_S= 4 ; +if(!qbevent)break;evnt(9508);}while(r); +do{ +qbs_set(__STRING_ST,qbs_new_txt_len("int32",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9508);}while(r); +} +S_11688:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARSIZE,qbs_new_txt_len("8",1))))||new_error){ +if(qbevent){evnt(9509);if(r)goto S_11688;} +do{ +*__LONG_S= 8 ; +if(!qbevent)break;evnt(9509);}while(r); +do{ +qbs_set(__STRING_ST,qbs_new_txt_len("int64",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9509);}while(r); +} +S_11692:; +if ((*__LONG_NOCHECKS)||new_error){ +if(qbevent){evnt(9511);if(r)goto S_11692;} +S_11693:; +if ((*__LONG_S)||new_error){ +if(qbevent){evnt(9513);if(r)goto S_11693;} +do{ +SUB_WRITEBUFLINE(&(pass1363=*__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(9514);}while(r); +}else{ +do{ +SUB_WRITEBUFLINE(&(pass1364=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("memmove((void*)",15),__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(9516);}while(r); +} +}else{ +do{ +SUB_WRITEBUFLINE(&(pass1365=*__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(9520);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1366=*__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(9522);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1367=*__LONG_MAINTXTBUF),qbs_new_txt_len("if (",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9524);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1368=*__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(9525);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1369=*__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(9526);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1370=*__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(9527);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1371=*__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(9529);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1372=*__LONG_MAINTXTBUF),qbs_new_txt_len("}else{",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9530);}while(r); +S_11707:; +if ((*__LONG_S)||new_error){ +if(qbevent){evnt(9531);if(r)goto S_11707;} +do{ +SUB_WRITEBUFLINE(&(pass1373=*__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(9532);}while(r); +}else{ +do{ +SUB_WRITEBUFLINE(&(pass1374=*__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(9534);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass1375=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9536);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1376=*__LONG_MAINTXTBUF),qbs_new_txt_len("}else error(309);",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9537);}while(r); +} +}else{ +do{ +*__LONG_T=FUNC_TYPNAME2TYP(__STRING_TYP); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9545);}while(r); +S_11717:; +if ((-(*__LONG_T== 0 ))||new_error){ +if(qbevent){evnt(9546);if(r)goto S_11717;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Invalid type",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9546);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9546);}while(r); +} +S_11721:; +if (((-((*__LONG_T&*__LONG_ISOFFSETINBITS)!= 0 ))|(-((*__LONG_T&*__LONG_ISUDT)!= 0 ))|((*__LONG_T&*__LONG_ISSTRING)))||new_error){ +if(qbevent){evnt(9547);if(r)goto S_11721;} +do{ +qbs_set(__STRING_A,qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MEMPUT requires numeric type",28))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9547);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9547);}while(r); +} +S_11725:; +if (((*__LONG_T&*__LONG_ISPOINTER))||new_error){ +if(qbevent){evnt(9548);if(r)goto S_11725;} +do{ +*__LONG_T=*__LONG_T-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(9548);}while(r); +} +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_VAR)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9550);}while(r); +S_11729:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9550);if(r)goto S_11729;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9550);}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),__STRING_TYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9551);}while(r); +do{ +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,__LONG_T)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9552);}while(r); +S_11734:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9552);if(r)goto S_11734;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9552);}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(9553);}while(r); +do{ +qbs_set(__STRING_VARSIZE,FUNC_STR2(&(pass1377=(*__LONG_T& 511 )/ 8 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9554);}while(r); +S_11739:; +if ((*__LONG_NOCHECKS)||new_error){ +if(qbevent){evnt(9555);if(r)goto S_11739;} +do{ +SUB_WRITEBUFLINE(&(pass1378=*__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(9557);}while(r); +}else{ +do{ +SUB_WRITEBUFLINE(&(pass1379=*__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(9560);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1380=*__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(9562);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1381=*__LONG_MAINTXTBUF),qbs_new_txt_len("if (",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9564);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1382=*__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(9565);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1383=*__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(9566);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1384=*__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(9567);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1385=*__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(9569);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1386=*__LONG_MAINTXTBUF),qbs_new_txt_len("}else{",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9570);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1387=*__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(9571);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1388=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9572);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1389=*__LONG_MAINTXTBUF),qbs_new_txt_len("}else error(309);",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9573);}while(r); +} +} +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(9578);}while(r); +S_11756:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(9578);if(r)goto S_11756;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9578);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9578);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(9579);}while(r); +} +} +S_11764:; +if ((-(*__LONG_N>= 1 ))||new_error){ +if(qbevent){evnt(9588);if(r)goto S_11764;} +S_11765:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_MEMFILL",8)))|(((qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("MEMFILL",7)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ +if(qbevent){evnt(9589);if(r)goto S_11765;} +do{ +qbs_set(__STRING_TYP,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9591);}while(r); +do{ +qbs_set(__STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9592);}while(r); +do{ +*__LONG_B= 0 ; +if(!qbevent)break;evnt(9593);}while(r); +do{ +*__LONG_NE= 0 ; +if(!qbevent)break;evnt(9594);}while(r); +S_11770:; +fornext_value1392= 2 ; +fornext_finalvalue1392=*__LONG_N; +fornext_step1392= 1 ; +if (fornext_step1392<0) fornext_step_negative1392=1; else fornext_step_negative1392=0; +if (new_error) goto fornext_error1392; +goto fornext_entrylabel1392; +while(1){ +fornext_value1392=fornext_step1392+(*__LONG_I2); +fornext_entrylabel1392: +*__LONG_I2=fornext_value1392; +if (fornext_step_negative1392){ +if (fornext_value1392fornext_finalvalue1392) break; +} +fornext_error1392:; +if(qbevent){evnt(9595);if(r)goto S_11770;} +do{ +qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9596);}while(r); +S_11772:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(9597);if(r)goto S_11772;} +do{ +*__LONG_B=*__LONG_B+ 1 ; +if(!qbevent)break;evnt(9597);}while(r); +} +S_11775:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(9598);if(r)goto S_11775;} +do{ +*__LONG_B=*__LONG_B- 1 ; +if(!qbevent)break;evnt(9598);}while(r); +} +S_11778:; +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 ))))||new_error){ +if(qbevent){evnt(9599);if(r)goto S_11778;} +do{ +*__LONG_NE=*__LONG_NE+ 1 ; +if(!qbevent)break;evnt(9600);}while(r); +S_11780:; +if ((-(*__LONG_NE== 1 ))||new_error){ +if(qbevent){evnt(9601);if(r)goto S_11780;} +do{ +qbs_set(__STRING_BLK,__STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9601);}while(r); +do{ +qbs_set(__STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9601);}while(r); +} +S_11784:; +if ((-(*__LONG_NE== 2 ))||new_error){ +if(qbevent){evnt(9602);if(r)goto S_11784;} +do{ +qbs_set(__STRING_OFFS,__STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9602);}while(r); +do{ +qbs_set(__STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9602);}while(r); +} +S_11788:; +if ((-(*__LONG_NE== 3 ))||new_error){ +if(qbevent){evnt(9603);if(r)goto S_11788;} +do{ +qbs_set(__STRING_BYTES,__STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9603);}while(r); +do{ +qbs_set(__STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9603);}while(r); +} +S_11792:; +if ((-(*__LONG_NE== 4 ))||new_error){ +if(qbevent){evnt(9604);if(r)goto S_11792;} +do{ +qbs_set(__STRING_VAR,__STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9604);}while(r); +do{ +qbs_set(__STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9604);}while(r); +} +S_11796:; +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 ))))||new_error){ +if(qbevent){evnt(9605);if(r)goto S_11796;} +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(9605);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9605);}while(r); +} +}else{ +S_11801:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_E->len== 0 )))||new_error){ +if(qbevent){evnt(9607);if(r)goto S_11801;} +do{ +qbs_set(__STRING_E,__STRING_E2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9607);}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(9607);}while(r); +} +} +fornext_continue_1391:; +} +fornext_exit_1391:; +S_11808:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_NE< 3 ))|(qbs_equal(__STRING_E,qbs_new_txt_len("",0)))))||new_error){ +if(qbevent){evnt(9610);if(r)goto S_11808;} +do{ +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Expected ",9),__STRING_QB64PREFIX),qbs_new_txt_len("MEMFILL mem-reference, offset, bytes, variable|value[AS type]",61))); +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_11812:; +if ((-(*__LONG_NE== 3 ))||new_error){ +if(qbevent){evnt(9611);if(r)goto S_11812;} +do{ +qbs_set(__STRING_VAR,__STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9611);}while(r); +}else{ +do{ +qbs_set(__STRING_TYP,qbs_ucase(__STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9611);}while(r); +} +S_11817:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_MEMFILL",8))))||new_error){ +if(qbevent){evnt(9613);if(r)goto S_11817;} +do{ +qbs_set(__STRING_L,qbs_add(FUNC_SCASE(qbs_new_txt_len("_MemFill",8)),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9613);}while(r); +}else{ +do{ +qbs_set(__STRING_L,qbs_add(FUNC_SCASE(qbs_new_txt_len("MemFill",7)),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9613);}while(r); +} +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_BLK)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9615);}while(r); +S_11823:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9615);if(r)goto S_11823;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9615);}while(r); +} +do{ +qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9616);}while(r); +do{ +qbs_set(__STRING_TEST,FUNC_EVALUATE(__STRING_E,__LONG_TYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9618);}while(r); +S_11828:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9618);if(r)goto S_11828;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9618);}while(r); +} +S_11831:; +if (((-((*__LONG_TYP&*__LONG_ISUDT)== 0 ))|(-((*__LONG_TYP& 511 )!= 1 )))||new_error){ +if(qbevent){evnt(9619);if(r)goto S_11831;} +do{ +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Expected ",9),__STRING_QB64PREFIX),qbs_new_txt_len("MEM type",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9619);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9619);}while(r); +} +do{ +qbs_set(__STRING_BLKOFFS,FUNC_EVALUATETOTYP(__STRING_E,&(pass1394= -6 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9620);}while(r); +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_OFFS)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9622);}while(r); +S_11837:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9622);if(r)goto S_11837;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9622);}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(9623);}while(r); +do{ +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1395=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9624);}while(r); +S_11842:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9624);if(r)goto S_11842;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9624);}while(r); +} +do{ +qbs_set(__STRING_OFFS,__STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9625);}while(r); +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_BYTES)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9627);}while(r); +S_11847:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9627);if(r)goto S_11847;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9627);}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(9628);}while(r); +do{ +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1396=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9629);}while(r); +S_11852:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9629);if(r)goto S_11852;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9629);}while(r); +} +do{ +qbs_set(__STRING_BYTES,__STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9630);}while(r); +S_11856:; +if ((-(*__LONG_NE== 3 ))||new_error){ +if(qbevent){evnt(9632);if(r)goto S_11856;} +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_VAR)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9633);}while(r); +S_11858:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9633);if(r)goto S_11858;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9633);}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(9634);}while(r); +do{ +qbs_set(__STRING_TEST,FUNC_EVALUATE(__STRING_E,__LONG_T)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9635);}while(r); +S_11863:; +if (((-((*__LONG_T&*__LONG_ISREFERENCE)== 0 ))&((*__LONG_T&*__LONG_ISSTRING)))||new_error){ +if(qbevent){evnt(9636);if(r)goto S_11863;} +do{ +SUB_WRITEBUFLINE(&(pass1397=*__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(9637);}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(9638);}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(9639);}while(r); +}else{ +do{ +qbs_set(__STRING_VARSIZE,FUNC_EVALUATETOTYP(__STRING_E,&(pass1398= -5 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9641);}while(r); +S_11869:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9641);if(r)goto S_11869;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9641);}while(r); +} +do{ +qbs_set(__STRING_VAROFFS,FUNC_EVALUATETOTYP(__STRING_E,&(pass1399= -6 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9642);}while(r); +S_11873:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9642);if(r)goto S_11873;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9642);}while(r); +} +} +S_11877:; +if ((*__LONG_NOCHECKS)||new_error){ +if(qbevent){evnt(9645);if(r)goto S_11877;} +do{ +SUB_WRITEBUFLINE(&(pass1400=*__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(9646);}while(r); +}else{ +do{ +SUB_WRITEBUFLINE(&(pass1401=*__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(9648);}while(r); +} +}else{ +do{ +*__LONG_T=FUNC_TYPNAME2TYP(__STRING_TYP); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9654);}while(r); +S_11884:; +if ((-(*__LONG_T== 0 ))||new_error){ +if(qbevent){evnt(9655);if(r)goto S_11884;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Invalid type",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9655);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9655);}while(r); +} +S_11888:; +if (((-((*__LONG_T&*__LONG_ISOFFSETINBITS)!= 0 ))|(-((*__LONG_T&*__LONG_ISUDT)!= 0 ))|((*__LONG_T&*__LONG_ISSTRING)))||new_error){ +if(qbevent){evnt(9656);if(r)goto S_11888;} +do{ +qbs_set(__STRING_A,qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MEMFILL requires numeric type",29))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9656);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9656);}while(r); +} +S_11892:; +if (((*__LONG_T&*__LONG_ISPOINTER))||new_error){ +if(qbevent){evnt(9657);if(r)goto S_11892;} +do{ +*__LONG_T=*__LONG_T-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(9657);}while(r); +} +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_VAR)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9659);}while(r); +S_11896:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9659);if(r)goto S_11896;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9659);}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),__STRING_TYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9660);}while(r); +do{ +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,__LONG_T)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9661);}while(r); +S_11901:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9661);if(r)goto S_11901;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9661);}while(r); +} +do{ +qbs_set(__STRING_C,qbs_new_txt_len("sub__memfill_",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9663);}while(r); +S_11905:; +if ((*__LONG_NOCHECKS)||new_error){ +if(qbevent){evnt(9664);if(r)goto S_11905;} +do{ +qbs_set(__STRING_C,qbs_new_txt_len("sub__memfill_nochecks_",22)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9664);}while(r); +} +S_11908:; +if ((*__LONG_T&*__LONG_ISOFFSET)||new_error){ +if(qbevent){evnt(9665);if(r)goto S_11908;} +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(9666);}while(r); +}else{ +S_11911:; +if ((*__LONG_T&*__LONG_ISFLOAT)||new_error){ +if(qbevent){evnt(9668);if(r)goto S_11911;} +S_11912:; +if ((-((*__LONG_T& 511 )== 32 ))||new_error){ +if(qbevent){evnt(9669);if(r)goto S_11912;} +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(9669);}while(r); +} +S_11915:; +if ((-((*__LONG_T& 511 )== 64 ))||new_error){ +if(qbevent){evnt(9670);if(r)goto S_11915;} +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(9670);}while(r); +} +S_11918:; +if ((-((*__LONG_T& 511 )== 256 ))||new_error){ +if(qbevent){evnt(9671);if(r)goto S_11918;} +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(9671);}while(r); +} +}else{ +do{ +qbs_set(__STRING_C,qbs_add(__STRING_C,FUNC_STR2(&(pass1402=(*__LONG_T& 511 )/ 8 )))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9673);}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(9676);}while(r); +S_11926:; +if ((-(*__LONG_NOCHECKS== 0 ))||new_error){ +if(qbevent){evnt(9677);if(r)goto S_11926;} +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(9677);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass1403=*__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(9678);}while(r); +} +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(9681);}while(r); +S_11932:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(9681);if(r)goto S_11932;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9681);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9681);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(9682);}while(r); +} +} +do{ +*__LONG_CISPECIAL= 0 ; +if(!qbevent)break;evnt(9700);}while(r); +S_11941:; +if ((-(*__LONG_N> 1 ))||new_error){ +if(qbevent){evnt(9701);if(r)goto S_11941;} +S_11942:; +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)))))||new_error){ +if(qbevent){evnt(9702);if(r)goto S_11942;} +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,&(pass1405= 2 ),__LONG_N)),__STRING1_SP),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9703);}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,&(pass1406= 2 ),__LONG_N)),__STRING1_SP),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9704);}while(r); +do{ +*__LONG_N=*__LONG_N+ 3 ; +if(!qbevent)break;evnt(9705);}while(r); +do{ +qbs_set(__STRING_FIRSTELEMENT,qbs_new_txt_len("CALL",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9706);}while(r); +do{ +*__LONG_CISPECIAL= 1 ; +if(!qbevent)break;evnt(9707);}while(r); +} +} +do{ +*__LONG_USECALL= 0 ; +if(!qbevent)break;evnt(9712);}while(r); +S_11951:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("CALL",4))))||new_error){ +if(qbevent){evnt(9713);if(r)goto S_11951;} +do{ +*__LONG_USECALL= 1 ; +if(!qbevent)break;evnt(9714);}while(r); +S_11953:; +if ((-(*__LONG_N== 1 ))||new_error){ +if(qbevent){evnt(9715);if(r)goto S_11953;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected CALL sub-name [(...)]",30)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9715);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9715);}while(r); +} +do{ +qbs_set(__STRING_CN,FUNC_GETELEMENT(__STRING_CA,&(pass1407= 2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9716);}while(r); +do{ +qbs_set(__STRING_N,qbs_ucase(__STRING_CN)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9716);}while(r); +S_11959:; +if ((-(*__LONG_N> 2 ))||new_error){ +if(qbevent){evnt(9718);if(r)goto S_11959;} +S_11960:; +if ((-(*__LONG_N<= 4 ))||new_error){ +if(qbevent){evnt(9720);if(r)goto S_11960;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected CALL sub-name (...)",28)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9720);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9720);}while(r); +} +S_11964:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(FUNC_GETELEMENT(__STRING_A,&(pass1408= 3 )),qbs_new_txt_len("(",1)))|(qbs_notequal(FUNC_GETELEMENT(__STRING_A,__LONG_N),qbs_new_txt_len(")",1)))))||new_error){ +if(qbevent){evnt(9721);if(r)goto S_11964;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected CALL sub-name (...)",28)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9721);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9721);}while(r); +} +do{ +qbs_set(__STRING_A,qbs_add(qbs_add(__STRING_N,__STRING1_SP),FUNC_GETELEMENTS(__STRING_A,&(pass1409= 4 ),&(pass1410=*__LONG_N- 1 )))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9722);}while(r); +do{ +qbs_set(__STRING_CA,qbs_add(qbs_add(__STRING_CN,__STRING1_SP),FUNC_GETELEMENTS(__STRING_CA,&(pass1411= 4 ),&(pass1412=*__LONG_N- 1 )))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9723);}while(r); +S_11970:; +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)))))||new_error){ +if(qbevent){evnt(9726);if(r)goto S_11970;} +S_11971:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_N,qbs_new_txt_len("INTERRUPT",9))))||new_error){ +if(qbevent){evnt(9728);if(r)goto S_11971;} +do{ +SUB_WRITEBUFRAWDATA(&(pass1413=*__LONG_MAINTXTBUF),qbs_new_txt_len("call_interrupt(",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9728);}while(r); +}else{ +do{ +SUB_WRITEBUFRAWDATA(&(pass1414=*__LONG_MAINTXTBUF),qbs_new_txt_len("call_interruptx(",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9728);}while(r); +} +do{ +*__LONG_ARGN= 0 ; +if(!qbevent)break;evnt(9729);}while(r); +do{ +*__LONG_N=FUNC_NUMELEMENTS(__STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9730);}while(r); +do{ +*__LONG_B= 0 ; +if(!qbevent)break;evnt(9731);}while(r); +do{ +qbs_set(__STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9732);}while(r); +S_11980:; +fornext_value1416= 2 ; +fornext_finalvalue1416=*__LONG_N; +fornext_step1416= 1 ; +if (fornext_step1416<0) fornext_step_negative1416=1; else fornext_step_negative1416=0; +if (new_error) goto fornext_error1416; +goto fornext_entrylabel1416; +while(1){ +fornext_value1416=fornext_step1416+(*__LONG_I); +fornext_entrylabel1416: +*__LONG_I=fornext_value1416; +if (fornext_step_negative1416){ +if (fornext_value1416fornext_finalvalue1416) break; +} +fornext_error1416:; +if(qbevent){evnt(9733);if(r)goto S_11980;} +do{ +qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9734);}while(r); +S_11982:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(9735);if(r)goto S_11982;} +do{ +*__LONG_B=*__LONG_B+ 1 ; +if(!qbevent)break;evnt(9735);}while(r); +} +S_11985:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(9736);if(r)goto S_11985;} +do{ +*__LONG_B=*__LONG_B- 1 ; +if(!qbevent)break;evnt(9736);}while(r); +} +S_11988:; +if ((qbs_cleanup(qbs_tmp_base,(((qbs_equal(__STRING_E2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))|(-(*__LONG_I==*__LONG_N))))||new_error){ +if(qbevent){evnt(9737);if(r)goto S_11988;} +S_11989:; +if ((-(*__LONG_I==*__LONG_N))||new_error){ +if(qbevent){evnt(9738);if(r)goto S_11989;} +S_11990:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(9739);if(r)goto S_11990;} +do{ +qbs_set(__STRING_E,__STRING_E2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9739);}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(9739);}while(r); +} +} +do{ +*__LONG_ARGN=*__LONG_ARGN+ 1 ; +if(!qbevent)break;evnt(9741);}while(r); +S_11997:; +if ((-(*__LONG_ARGN== 1 ))||new_error){ +if(qbevent){evnt(9742);if(r)goto S_11997;} +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9743);}while(r); +S_11999:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9744);if(r)goto S_11999;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9744);}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(9745);}while(r); +S_12003:; +if ((-(*__LONG_CISPECIAL== 1 ))||new_error){ +if(qbevent){evnt(9746);if(r)goto S_12003;} +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(9746);}while(r); +} +do{ +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1417= 64 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9747);}while(r); +S_12007:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9748);if(r)goto S_12007;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9748);}while(r); +} +do{ +SUB_WRITEBUFRAWDATA(&(pass1418=*__LONG_MAINTXTBUF),__STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9750);}while(r); +} +S_12012:; +if (((-(*__LONG_ARGN== 2 ))|(-(*__LONG_ARGN== 3 )))||new_error){ +if(qbevent){evnt(9752);if(r)goto S_12012;} +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9753);}while(r); +S_12014:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9754);if(r)goto S_12014;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9754);}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(9755);}while(r); +do{ +qbs_set(__STRING_E2,__STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9756);}while(r); +do{ +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1419= -2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9757);}while(r); +S_12020:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9758);if(r)goto S_12020;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9758);}while(r); +} +do{ +SUB_WRITEBUFRAWDATA(&(pass1420=*__LONG_MAINTXTBUF),qbs_add(qbs_new_txt_len(",",1),__STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9760);}while(r); +} +do{ +qbs_set(__STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9762);}while(r); +}else{ +S_12027:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(9764);if(r)goto S_12027;} +do{ +qbs_set(__STRING_E,__STRING_E2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9764);}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(9764);}while(r); +} +} +fornext_continue_1415:; +} +fornext_exit_1415:; +S_12034:; +if ((-(*__LONG_ARGN!= 3 ))||new_error){ +if(qbevent){evnt(9767);if(r)goto S_12034;} +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(9767);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9767);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass1421=*__LONG_MAINTXTBUF),qbs_new_txt_len(");",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9768);}while(r); +S_12039:; +if ((-(*__LONG_CISPECIAL== 0 ))||new_error){ +if(qbevent){evnt(9769);if(r)goto S_12039;} +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(9769);}while(r); +} +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(9770);}while(r); +S_12043:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(9770);if(r)goto S_12043;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9770);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9770);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(9772);}while(r); +} +S_12050:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_N,qbs_new_txt_len("ABSOLUTE",8))))||new_error){ +if(qbevent){evnt(9783);if(r)goto S_12050;} +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(9784);}while(r); +do{ +*__LONG_ARGN= 0 ; +if(!qbevent)break;evnt(9785);}while(r); +do{ +*__LONG_N=FUNC_NUMELEMENTS(__STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9786);}while(r); +do{ +*__LONG_B= 0 ; +if(!qbevent)break;evnt(9787);}while(r); +do{ +qbs_set(__STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9788);}while(r); +S_12056:; +fornext_value1424= 2 ; +fornext_finalvalue1424=*__LONG_N; +fornext_step1424= 1 ; +if (fornext_step1424<0) fornext_step_negative1424=1; else fornext_step_negative1424=0; +if (new_error) goto fornext_error1424; +goto fornext_entrylabel1424; +while(1){ +fornext_value1424=fornext_step1424+(*__LONG_I); +fornext_entrylabel1424: +*__LONG_I=fornext_value1424; +if (fornext_step_negative1424){ +if (fornext_value1424fornext_finalvalue1424) break; +} +fornext_error1424:; +if(qbevent){evnt(9789);if(r)goto S_12056;} +do{ +qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9790);}while(r); +S_12058:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(9791);if(r)goto S_12058;} +do{ +*__LONG_B=*__LONG_B+ 1 ; +if(!qbevent)break;evnt(9791);}while(r); +} +S_12061:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(9792);if(r)goto S_12061;} +do{ +*__LONG_B=*__LONG_B- 1 ; +if(!qbevent)break;evnt(9792);}while(r); +} +S_12064:; +if ((qbs_cleanup(qbs_tmp_base,(((qbs_equal(__STRING_E2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))|(-(*__LONG_I==*__LONG_N))))||new_error){ +if(qbevent){evnt(9793);if(r)goto S_12064;} +S_12065:; +if ((-(*__LONG_I<*__LONG_N))||new_error){ +if(qbevent){evnt(9794);if(r)goto S_12065;} +S_12066:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(9795);if(r)goto S_12066;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected expression before , or )",33)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9795);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9795);}while(r); +} +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9797);}while(r); +S_12071:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9798);if(r)goto S_12071;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9798);}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(9799);}while(r); +do{ +qbs_set(__STRING_IGNORE,FUNC_EVALUATE(__STRING_E,__LONG_TYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9800);}while(r); +S_12076:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9801);if(r)goto S_12076;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9801);}while(r); +} +S_12079:; +if (((-((*__LONG_TYP&*__LONG_ISPOINTER)!= 0 ))&(-((*__LONG_TYP&*__LONG_ISREFERENCE)!= 0 )))||new_error){ +if(qbevent){evnt(9803);if(r)goto S_12079;} +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(9807);}while(r); +do{ +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1425=*__LONG_UINTEGERTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9808);}while(r); +S_12082:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9809);if(r)goto S_12082;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9809);}while(r); +} +}else{ +S_12086:; +if ((*__LONG_TYP&*__LONG_ISFLOAT)||new_error){ +if(qbevent){evnt(9815);if(r)goto S_12086;} +S_12087:; +if ((-((*__LONG_TYP& 511 )== 32 ))||new_error){ +if(qbevent){evnt(9816);if(r)goto S_12087;} +do{ +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1426=*__LONG_SINGLETYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9817);}while(r); +S_12089:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9818);if(r)goto S_12089;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9818);}while(r); +} +do{ +qbs_set(__STRING_V,qbs_add(qbs_new_txt_len("pass",4),FUNC_STR2(&(pass1427=FUNC_UNIQUENUMBER())))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9819);}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(9820);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1428=*__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(9821);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1429=*__LONG_DATATXTBUF),qbs_new_txt_len("cmem_sp-=4;",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9822);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1430=*__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(9823);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1431=*__LONG_DATATXTBUF),qbs_new_txt_len("if (cmem_splen))||new_error){ +if(qbevent){evnt(9870);if(r)goto S_12158;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9870);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9870);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(9871);}while(r); +} +}else{ +do{ +qbs_set(__STRING_A,__STRING_N); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9876);}while(r); +do{ +qbs_set(__STRING_CA,__STRING_CN); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9877);}while(r); +do{ +*__LONG_USECALL= 2 ; +if(!qbevent)break;evnt(9878);}while(r); +} +do{ +*__LONG_N=FUNC_NUMELEMENTS(__STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9882);}while(r); +do{ +qbs_set(__STRING_FIRSTELEMENT,FUNC_GETELEMENT(__STRING_A,&(pass1451= 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9883);}while(r); +do{ +*__LONG_VALIDSUB= 0 ; +if(!qbevent)break;evnt(9886);}while(r); +do{ +qbs_set(__STRING_FINDIDSECONDARG,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9887);}while(r); +S_12174:; +if ((-(*__LONG_N>= 2 ))||new_error){ +if(qbevent){evnt(9887);if(r)goto S_12174;} +do{ +qbs_set(__STRING_FINDIDSECONDARG,FUNC_GETELEMENT(__STRING_A,&(pass1452= 2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9887);}while(r); +} +do{ +*__LONG_TRY=FUNC_FINDID(__STRING_FIRSTELEMENT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9888);}while(r); +S_12178:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9889);if(r)goto S_12178;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9889);}while(r); +} +S_12181:; +while((*__LONG_TRY)||new_error){ +if(qbevent){evnt(9890);if(r)goto S_12181;} +S_12182:; +if ((-(*(int16*)(((char*)__UDT_ID)+(544))== 2 ))||new_error){ +if(qbevent){evnt(9891);if(r)goto S_12182;} +do{ +*__LONG_VALIDSUB= 1 ; +if(!qbevent)break;evnt(9891);}while(r); +do{ +goto dl_exit_1453; +if(!qbevent)break;evnt(9891);}while(r); +} +S_12186:; +if ((-(*__LONG_TRY== 2 ))||new_error){ +if(qbevent){evnt(9892);if(r)goto S_12186;} +do{ +qbs_set(__STRING_FINDIDSECONDARG,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9893);}while(r); +S_12188:; +if ((-(*__LONG_N>= 2 ))||new_error){ +if(qbevent){evnt(9893);if(r)goto S_12188;} +do{ +qbs_set(__STRING_FINDIDSECONDARG,FUNC_GETELEMENT(__STRING_A,&(pass1454= 2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9893);}while(r); +} +do{ +*__INTEGER_FINDANOTHERID= 1 ; +if(!qbevent)break;evnt(9894);}while(r); +do{ +*__LONG_TRY=FUNC_FINDID(__STRING_FIRSTELEMENT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9895);}while(r); +S_12193:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9896);if(r)goto S_12193;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9896);}while(r); +} +}else{ +do{ +*__LONG_TRY= 0 ; +if(!qbevent)break;evnt(9898);}while(r); +} +dl_continue_1453:; +} +dl_exit_1453:; +S_12200:; +if ((-(*__LONG_VALIDSUB== 0 ))||new_error){ +if(qbevent){evnt(9901);if(r)goto S_12200;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected CALL sub-name [(...)]",30)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9901);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9901);}while(r); +} +} +S_12205:; +if ((-(*__LONG_N>= 1 ))||new_error){ +if(qbevent){evnt(9905);if(r)goto S_12205;} +S_12206:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("?",1))))||new_error){ +if(qbevent){evnt(9907);if(r)goto S_12206;} +do{ +qbs_set(__STRING_FIRSTELEMENT,qbs_new_txt_len("PRINT",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9907);}while(r); +} +do{ +qbs_set(__STRING_FINDIDSECONDARG,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9909);}while(r); +S_12210:; +if ((-(*__LONG_N>= 2 ))||new_error){ +if(qbevent){evnt(9909);if(r)goto S_12210;} +do{ +qbs_set(__STRING_FINDIDSECONDARG,FUNC_GETELEMENT(__STRING_A,&(pass1455= 2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9909);}while(r); +} +do{ +*__LONG_TRY=FUNC_FINDID(__STRING_FIRSTELEMENT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9910);}while(r); +S_12214:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9911);if(r)goto S_12214;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9911);}while(r); +} +S_12217:; +while((*__LONG_TRY)||new_error){ +if(qbevent){evnt(9912);if(r)goto S_12217;} +S_12218:; +if ((-(*(int16*)(((char*)__UDT_ID)+(544))== 2 ))||new_error){ +if(qbevent){evnt(9913);if(r)goto S_12218;} +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(9916);}while(r); +S_12220:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9917);if(r)goto S_12220;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9917);}while(r); +} +S_12223:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1))== 36 )))||new_error){ +if(qbevent){evnt(9918);if(r)goto S_12223;} +S_12224:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_S,qbs_new_txt_len("$",1))))||new_error){ +if(qbevent){evnt(9919);if(r)goto S_12224;} +do{ +goto LABEL_NOTSUBCALL; +if(!qbevent)break;evnt(9919);}while(r); +} +}else{ +S_12228:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_S->len))||new_error){ +if(qbevent){evnt(9921);if(r)goto S_12228;} +do{ +goto LABEL_NOTSUBCALL; +if(!qbevent)break;evnt(9921);}while(r); +} +} +S_12232:; +if ((-(*__LONG_N> 1 ))||new_error){ +if(qbevent){evnt(9924);if(r)goto S_12232;} +S_12233:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1))!= 61 )))||new_error){ +if(qbevent){evnt(9925);if(r)goto S_12233;} +S_12234:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(FUNC_GETELEMENT(__STRING_A,&(pass1458= 2 )))== 61 )))||new_error){ +if(qbevent){evnt(9926);if(r)goto S_12234;} +do{ +goto LABEL_NOTSUBCALL; +if(!qbevent)break;evnt(9926);}while(r); +} +} +} +S_12239:; +if ((-(*__LONG_N> 2 ))||new_error){ +if(qbevent){evnt(9930);if(r)goto S_12239;} +S_12240:; +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)))))||new_error){ +if(qbevent){evnt(9931);if(r)goto S_12240;} +S_12241:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass1459= 2 )),qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(9932);if(r)goto S_12241;} +do{ +*__LONG_B= 1 ; +if(!qbevent)break;evnt(9933);}while(r); +S_12243:; +fornext_value1461= 3 ; +fornext_finalvalue1461=*__LONG_N; +fornext_step1461= 1 ; +if (fornext_step1461<0) fornext_step_negative1461=1; else fornext_step_negative1461=0; +if (new_error) goto fornext_error1461; +goto fornext_entrylabel1461; +while(1){ +fornext_value1461=fornext_step1461+(*__LONG_I); +fornext_entrylabel1461: +*__LONG_I=fornext_value1461; +if (fornext_step_negative1461){ +if (fornext_value1461fornext_finalvalue1461) break; +} +fornext_error1461:; +if(qbevent){evnt(9934);if(r)goto S_12243;} +do{ +qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9935);}while(r); +S_12245:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(9936);if(r)goto S_12245;} +do{ +*__LONG_B=*__LONG_B+ 1 ; +if(!qbevent)break;evnt(9936);}while(r); +} +S_12248:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(9937);if(r)goto S_12248;} +do{ +*__LONG_B=*__LONG_B- 1 ; +if(!qbevent)break;evnt(9938);}while(r); +S_12250:; +if ((-(*__LONG_B== 0 ))||new_error){ +if(qbevent){evnt(9939);if(r)goto S_12250;} +S_12251:; +if ((-(*__LONG_I==*__LONG_N))||new_error){ +if(qbevent){evnt(9940);if(r)goto S_12251;} +do{ +goto fornext_exit_1460; +if(!qbevent)break;evnt(9940);}while(r); +} +S_12254:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass1462=*__LONG_I+ 1 )),qbs_new_txt_len("=",1))))||new_error){ +if(qbevent){evnt(9941);if(r)goto S_12254;} +do{ +goto LABEL_NOTSUBCALL; +if(!qbevent)break;evnt(9941);}while(r); +} +} +} +fornext_continue_1460:; +} +fornext_exit_1460:; +} +} +} +S_12263:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("_GL",3))))||new_error){ +if(qbevent){evnt(9951);if(r)goto S_12263;} +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(9952);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9952);}while(r); +} +S_12267:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("VWATCH",6))))||new_error){ +if(qbevent){evnt(9955);if(r)goto S_12267;} +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(9956);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9956);}while(r); +} +S_12271:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("OPEN",4))))||new_error){ +if(qbevent){evnt(9959);if(r)goto S_12271;} +do{ +*__LONG_B= 0 ; +if(!qbevent)break;evnt(9961);}while(r); +S_12273:; +fornext_value1464= 2 ; +fornext_finalvalue1464=*__LONG_N; +fornext_step1464= 1 ; +if (fornext_step1464<0) fornext_step_negative1464=1; else fornext_step_negative1464=0; +if (new_error) goto fornext_error1464; +goto fornext_entrylabel1464; +while(1){ +fornext_value1464=fornext_step1464+(*__LONG_X); +fornext_entrylabel1464: +*__LONG_X=fornext_value1464; +if (fornext_step_negative1464){ +if (fornext_value1464fornext_finalvalue1464) break; +} +fornext_error1464:; +if(qbevent){evnt(9962);if(r)goto S_12273;} +do{ +qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_A,__LONG_X)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9963);}while(r); +S_12275:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(9964);if(r)goto S_12275;} +do{ +*__LONG_B=*__LONG_B+ 1 ; +if(!qbevent)break;evnt(9964);}while(r); +} +S_12278:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(9965);if(r)goto S_12278;} +do{ +*__LONG_B=*__LONG_B- 1 ; +if(!qbevent)break;evnt(9965);}while(r); +} +S_12281:; +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)))))||new_error){ +if(qbevent){evnt(9966);if(r)goto S_12281;} +do{ +goto fornext_exit_1463; +if(!qbevent)break;evnt(9966);}while(r); +} +S_12284:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_B== 0 ))&(qbs_equal(__STRING_A2,qbs_new_txt_len(",",1)))))||new_error){ +if(qbevent){evnt(9967);if(r)goto S_12284;} +do{ +*__INTEGER_FINDANOTHERID= 1 ; +if(!qbevent)break;evnt(9968);}while(r); +do{ +*__LONG_TRY=FUNC_FINDID(__STRING_FIRSTELEMENT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9969);}while(r); +S_12287:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(9970);if(r)goto S_12287;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9970);}while(r); +} +do{ +goto fornext_exit_1463; +if(!qbevent)break;evnt(9971);}while(r); +} +fornext_continue_1463:; +} +fornext_exit_1463:; +} +S_12294:; +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)))))||new_error){ +if(qbevent){evnt(9981);if(r)goto S_12294;} +S_12295:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("RESET",5))))||new_error){ +if(qbevent){evnt(9982);if(r)goto S_12295;} +S_12296:; +if ((-(*__LONG_N> 1 ))||new_error){ +if(qbevent){evnt(9983);if(r)goto S_12296;} +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(9983);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(9983);}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(9984);}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(9986);}while(r); +} +S_12304:; +if ((-(*__LONG_N== 1 ))||new_error){ +if(qbevent){evnt(9989);if(r)goto S_12304;} +do{ +SUB_WRITEBUFLINE(&(pass1465=*__LONG_MAINTXTBUF),qbs_new_txt_len("sub_close(NULL,0);",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9990);}while(r); +}else{ +do{ +qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9992);}while(r); +do{ +*__LONG_B= 0 ; +if(!qbevent)break;evnt(9993);}while(r); +do{ +*__LONG_S= 0 ; +if(!qbevent)break;evnt(9994);}while(r); +do{ +qbs_set(__STRING_A3,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9995);}while(r); +S_12311:; +fornext_value1467= 2 ; +fornext_finalvalue1467=*__LONG_N; +fornext_step1467= 1 ; +if (fornext_step1467<0) fornext_step_negative1467=1; else fornext_step_negative1467=0; +if (new_error) goto fornext_error1467; +goto fornext_entrylabel1467; +while(1){ +fornext_value1467=fornext_step1467+(*__LONG_X); +fornext_entrylabel1467: +*__LONG_X=fornext_value1467; +if (fornext_step_negative1467){ +if (fornext_value1467fornext_finalvalue1467) break; +} +fornext_error1467:; +if(qbevent){evnt(9996);if(r)goto S_12311;} +do{ +qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_X)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(9997);}while(r); +S_12313:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(9998);if(r)goto S_12313;} +do{ +*__LONG_B=*__LONG_B+ 1 ; +if(!qbevent)break;evnt(9998);}while(r); +} +S_12316:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(9999);if(r)goto S_12316;} +do{ +*__LONG_B=*__LONG_B- 1 ; +if(!qbevent)break;evnt(9999);}while(r); +} +S_12319:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_A2,qbs_new_txt_len("#",1)))&(-(*__LONG_B== 0 ))))||new_error){ +if(qbevent){evnt(10000);if(r)goto S_12319;} +S_12320:; +if ((-(*__LONG_S== 0 ))||new_error){ +if(qbevent){evnt(10001);if(r)goto S_12320;} +do{ +*__LONG_S= 1 ; +if(!qbevent)break;evnt(10001);}while(r); +}else{ +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Unexpected #",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10001);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10001);}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(10002);}while(r); +do{ +goto LABEL_CLOSENEXTA; +if(!qbevent)break;evnt(10003);}while(r); +} +S_12329:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_A2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||new_error){ +if(qbevent){evnt(10006);if(r)goto S_12329;} +S_12330:; +if ((-(*__LONG_S== 2 ))||new_error){ +if(qbevent){evnt(10007);if(r)goto S_12330;} +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_A3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10008);}while(r); +S_12332:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10009);if(r)goto S_12332;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10009);}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(10010);}while(r); +do{ +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1468= 64 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10011);}while(r); +S_12337:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10012);if(r)goto S_12337;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10012);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass1469=*__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(10013);}while(r); +do{ +qbs_set(__STRING_A3,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10014);}while(r); +do{ +*__LONG_S= 0 ; +if(!qbevent)break;evnt(10015);}while(r); +do{ +goto LABEL_CLOSENEXTA; +if(!qbevent)break;evnt(10016);}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(10018);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10018);}while(r); +} +} +do{ +*__LONG_S= 2 ; +if(!qbevent)break;evnt(10022);}while(r); +S_12350:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(10023);if(r)goto S_12350;} +do{ +qbs_set(__STRING_A3,__STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10023);}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(10023);}while(r); +} +LABEL_CLOSENEXTA:; +if(qbevent){evnt(10025);r=0;} +fornext_continue_1466:; +} +fornext_exit_1466:; +S_12356:; +if ((-(*__LONG_S== 2 ))||new_error){ +if(qbevent){evnt(10028);if(r)goto S_12356;} +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_A3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10029);}while(r); +S_12358:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10030);if(r)goto S_12358;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10030);}while(r); +} +do{ +qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10031);}while(r); +do{ +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1470= 64 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10032);}while(r); +S_12363:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10033);if(r)goto S_12363;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10033);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass1471=*__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(10034);}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(10036);}while(r); +} +} +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(10040);}while(r); +S_12372:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(10040);if(r)goto S_12372;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10040);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10040);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(10041);}while(r); +} +S_12379:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("READ",4))))||new_error){ +if(qbevent){evnt(10060);if(r)goto S_12379;} +do{ +SUB_XREAD(__STRING_CA,__LONG_N); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10061);}while(r); +S_12381:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10062);if(r)goto S_12381;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10062);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(10064);}while(r); +} +do{ +*__LONG_LINEINPUT= 0 ; +if(!qbevent)break;evnt(10103);}while(r); +S_12387:; +if ((-(*__LONG_N>= 2 ))||new_error){ +if(qbevent){evnt(10104);if(r)goto S_12387;} +S_12388:; +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)))))||new_error){ +if(qbevent){evnt(10105);if(r)goto S_12388;} +do{ +*__LONG_LINEINPUT= 1 ; +if(!qbevent)break;evnt(10106);}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(10107);}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(10107);}while(r); +do{ +*__LONG_N=*__LONG_N- 1 ; +if(!qbevent)break;evnt(10107);}while(r); +do{ +qbs_set(__STRING_FIRSTELEMENT,qbs_new_txt_len("INPUT",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10108);}while(r); +} +} +S_12396:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("INPUT",5))))||new_error){ +if(qbevent){evnt(10112);if(r)goto S_12396;} +S_12397:; +if ((-(*__LONG_N> 1 ))||new_error){ +if(qbevent){evnt(10113);if(r)goto S_12397;} +S_12398:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass1476= 2 )),qbs_new_txt_len("#",1))))||new_error){ +if(qbevent){evnt(10114);if(r)goto S_12398;} +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(10115);}while(r); +S_12400:; +if ((*__LONG_LINEINPUT)||new_error){ +if(qbevent){evnt(10115);if(r)goto S_12400;} +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(10115);}while(r); +} +do{ +qbs_set(__STRING_U,FUNC_STR2(&(pass1477=FUNC_UNIQUENUMBER()))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10117);}while(r); +S_12404:; +if ((-(*__LONG_N== 2 ))||new_error){ +if(qbevent){evnt(10119);if(r)goto S_12404;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected # ... , ...",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10119);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10119);}while(r); +} +do{ +qbs_set(__STRING_A3,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10120);}while(r); +do{ +*__LONG_B= 0 ; +if(!qbevent)break;evnt(10121);}while(r); +S_12410:; +fornext_value1479= 3 ; +fornext_finalvalue1479=*__LONG_N; +fornext_step1479= 1 ; +if (fornext_step1479<0) fornext_step_negative1479=1; else fornext_step_negative1479=0; +if (new_error) goto fornext_error1479; +goto fornext_entrylabel1479; +while(1){ +fornext_value1479=fornext_step1479+(*__LONG_I); +fornext_entrylabel1479: +*__LONG_I=fornext_value1479; +if (fornext_step_negative1479){ +if (fornext_value1479fornext_finalvalue1479) break; +} +fornext_error1479:; +if(qbevent){evnt(10122);if(r)goto S_12410;} +do{ +qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10123);}while(r); +S_12412:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(10124);if(r)goto S_12412;} +do{ +*__LONG_B=*__LONG_B+ 1 ; +if(!qbevent)break;evnt(10124);}while(r); +} +S_12415:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(10125);if(r)goto S_12415;} +do{ +*__LONG_B=*__LONG_B- 1 ; +if(!qbevent)break;evnt(10125);}while(r); +} +S_12418:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_A2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||new_error){ +if(qbevent){evnt(10126);if(r)goto S_12418;} +S_12419:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(10127);if(r)goto S_12419;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected # ... , ...",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10127);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10127);}while(r); +} +do{ +goto LABEL_INPUTGOTFN; +if(!qbevent)break;evnt(10128);}while(r); +} +S_12425:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(10130);if(r)goto S_12425;} +do{ +qbs_set(__STRING_A3,__STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10130);}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(10130);}while(r); +} +fornext_continue_1478:; +} +fornext_exit_1478:; +LABEL_INPUTGOTFN:; +if(qbevent){evnt(10132);r=0;} +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_A3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10133);}while(r); +S_12432:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10134);if(r)goto S_12432;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10134);}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(10135);}while(r); +do{ +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1480= 64 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10136);}while(r); +S_12437:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10137);if(r)goto S_12437;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10137);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass1481=*__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(10138);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1482=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if (new_error) goto skip",24),__STRING_U),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10139);}while(r); +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(10140);}while(r); +S_12443:; +if ((-(*__LONG_I>*__LONG_N))||new_error){ +if(qbevent){evnt(10141);if(r)goto S_12443;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected , ...",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10141);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10141);}while(r); +} +do{ +qbs_set(__STRING_A3,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10142);}while(r); +do{ +*__LONG_B= 0 ; +if(!qbevent)break;evnt(10143);}while(r); +S_12449:; +fornext_value1484=*__LONG_I; +fornext_finalvalue1484=*__LONG_N; +fornext_step1484= 1 ; +if (fornext_step1484<0) fornext_step_negative1484=1; else fornext_step_negative1484=0; +if (new_error) goto fornext_error1484; +goto fornext_entrylabel1484; +while(1){ +fornext_value1484=fornext_step1484+(*__LONG_I); +fornext_entrylabel1484: +*__LONG_I=fornext_value1484; +if (fornext_step_negative1484){ +if (fornext_value1484fornext_finalvalue1484) break; +} +fornext_error1484:; +if(qbevent){evnt(10144);if(r)goto S_12449;} +do{ +qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10145);}while(r); +S_12451:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(10146);if(r)goto S_12451;} +do{ +*__LONG_B=*__LONG_B+ 1 ; +if(!qbevent)break;evnt(10146);}while(r); +} +S_12454:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(10147);if(r)goto S_12454;} +do{ +*__LONG_B=*__LONG_B- 1 ; +if(!qbevent)break;evnt(10147);}while(r); +} +S_12457:; +if ((-(*__LONG_I==*__LONG_N))||new_error){ +if(qbevent){evnt(10148);if(r)goto S_12457;} +S_12458:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(10149);if(r)goto S_12458;} +do{ +qbs_set(__STRING_A3,__STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10149);}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(10149);}while(r); +} +do{ +qbs_set(__STRING_A2,qbs_new_txt_len(",",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10150);}while(r); +do{ +*__LONG_B= 0 ; +if(!qbevent)break;evnt(10150);}while(r); +} +S_12466:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_A2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||new_error){ +if(qbevent){evnt(10152);if(r)goto S_12466;} +S_12467:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(10153);if(r)goto S_12467;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected , ...",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10153);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10153);}while(r); +} +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_A3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10154);}while(r); +S_12472:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10155);if(r)goto S_12472;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10155);}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(10156);}while(r); +do{ +qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_T)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10157);}while(r); +S_12477:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10158);if(r)goto S_12477;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10158);}while(r); +} +S_12480:; +if ((-((*__LONG_T&*__LONG_ISREFERENCE)== 0 ))||new_error){ +if(qbevent){evnt(10159);if(r)goto S_12480;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected variable-name",22)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10159);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10159);}while(r); +} +S_12484:; +if (((*__LONG_T&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(10160);if(r)goto S_12484;} +do{ +qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_T,&(pass1485= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10161);}while(r); +S_12486:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10162);if(r)goto S_12486;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10162);}while(r); +} +S_12489:; +if ((*__LONG_LINEINPUT)||new_error){ +if(qbevent){evnt(10163);if(r)goto S_12489;} +do{ +SUB_WRITEBUFLINE(&(pass1486=*__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(10164);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1487=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if (new_error) goto skip",24),__STRING_U),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10165);}while(r); +}else{ +do{ +SUB_WRITEBUFLINE(&(pass1488=*__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(10167);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1489=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if (new_error) goto skip",24),__STRING_U),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10168);}while(r); +} +do{ +*__INTEGER_STRINGPROCESSINGHAPPENED= 1 ; +if(!qbevent)break;evnt(10170);}while(r); +}else{ +S_12498:; +if ((*__LONG_LINEINPUT)||new_error){ +if(qbevent){evnt(10172);if(r)goto S_12498;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected string-variable",24)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10172);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10172);}while(r); +} +S_12502:; +if (((-((*__LONG_T&*__LONG_ISFLOAT)!= 0 ))|(-((*__LONG_T& 511 )!= 64 )))||new_error){ +if(qbevent){evnt(10175);if(r)goto S_12502;} +S_12503:; +if (((*__LONG_T&*__LONG_ISOFFSETINBITS))||new_error){ +if(qbevent){evnt(10176);if(r)goto S_12503;} +do{ +SUB_SETREFER(__STRING_E,__LONG_T,qbs_add(qbs_add(qbs_new_txt_len("((int64)func_file_input_float(tmp_fileno,",41),FUNC_STR2(__LONG_T)),qbs_new_txt_len("))",2)),&(pass1490= 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10177);}while(r); +S_12505:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10178);if(r)goto S_12505;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10178);}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),FUNC_STR2(__LONG_T)),qbs_new_txt_len(")",1)),&(pass1491= 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10180);}while(r); +S_12510:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10181);if(r)goto S_12510;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10181);}while(r); +} +} +}else{ +S_12515:; +if ((*__LONG_T&*__LONG_ISUNSIGNED)||new_error){ +if(qbevent){evnt(10184);if(r)goto S_12515;} +do{ +SUB_SETREFER(__STRING_E,__LONG_T,qbs_new_txt_len("func_file_input_uint64(tmp_fileno)",34),&(pass1492= 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10185);}while(r); +S_12517:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10186);if(r)goto S_12517;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10186);}while(r); +} +}else{ +do{ +SUB_SETREFER(__STRING_E,__LONG_T,qbs_new_txt_len("func_file_input_int64(tmp_fileno)",33),&(pass1493= 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10188);}while(r); +S_12522:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10189);if(r)goto S_12522;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10189);}while(r); +} +} +} +do{ +SUB_WRITEBUFLINE(&(pass1494=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if (new_error) goto skip",24),__STRING_U),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10193);}while(r); +} +S_12529:; +if ((-(*__LONG_I==*__LONG_N))||new_error){ +if(qbevent){evnt(10196);if(r)goto S_12529;} +do{ +goto fornext_exit_1483; +if(!qbevent)break;evnt(10196);}while(r); +} +S_12532:; +if ((*__LONG_LINEINPUT)||new_error){ +if(qbevent){evnt(10197);if(r)goto S_12532;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Too many variables",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10197);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10197);}while(r); +} +do{ +qbs_set(__STRING_A3,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10198);}while(r); +do{ +qbs_set(__STRING_A2,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10198);}while(r); +} +S_12539:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A3,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(10200);if(r)goto S_12539;} +do{ +qbs_set(__STRING_A3,__STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10200);}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(10200);}while(r); +} +fornext_continue_1483:; +} +fornext_exit_1483:; +do{ +SUB_WRITEBUFLINE(&(pass1495=*__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(10202);}while(r); +S_12546:; +if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||new_error){ +if(qbevent){evnt(10203);if(r)goto S_12546;} +do{ +SUB_WRITEBUFLINE(&(pass1496=*__LONG_MAINTXTBUF),qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10203);}while(r); +} +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(10204);}while(r); +S_12550:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(10204);if(r)goto S_12550;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10204);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10204);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(10205);}while(r); +} +} +} +S_12559:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("INPUT",5))))||new_error){ +if(qbevent){evnt(10211);if(r)goto S_12559;} +do{ +qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Input",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10212);}while(r); +S_12561:; +if ((*__LONG_LINEINPUT)||new_error){ +if(qbevent){evnt(10212);if(r)goto S_12561;} +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(10212);}while(r); +} +do{ +*__LONG_COMMANEEDED= 0 ; +if(!qbevent)break;evnt(10213);}while(r); +do{ +*__LONG_I= 2 ; +if(!qbevent)break;evnt(10214);}while(r); +do{ +*__LONG_NEWLINE= 1 ; +if(!qbevent)break;evnt(10216);}while(r); +S_12567:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,__LONG_I),qbs_new_txt_len(";",1))))||new_error){ +if(qbevent){evnt(10216);if(r)goto S_12567;} +do{ +*__LONG_NEWLINE= 0 ; +if(!qbevent)break;evnt(10216);}while(r); +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(10216);}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(10216);}while(r); +} +do{ +qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10218);}while(r); +S_12573:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(__STRING_A2, 1 ),func_chr( 34 ))))||new_error){ +if(qbevent){evnt(10219);if(r)goto S_12573;} +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_A2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10220);}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(10220);}while(r); +S_12576:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10221);if(r)goto S_12576;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10221);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass1498=*__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(10222);}while(r); +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(10223);}while(r); +do{ +qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10225);}while(r); +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(10226);}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(10227);}while(r); +S_12584:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(";",1))))||new_error){ +if(qbevent){evnt(10228);if(r)goto S_12584;} +S_12585:; +if ((*__LONG_LINEINPUT)||new_error){ +if(qbevent){evnt(10229);if(r)goto S_12585;} +do{ +goto LABEL_FINISHEDPROMPTSTRING; +if(!qbevent)break;evnt(10229);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass1499=*__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(10230);}while(r); +do{ +goto LABEL_FINISHEDPROMPTSTRING; +if(!qbevent)break;evnt(10231);}while(r); +} +S_12591:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(",",1))))||new_error){ +if(qbevent){evnt(10233);if(r)goto S_12591;} +do{ +goto LABEL_FINISHEDPROMPTSTRING; +if(!qbevent)break;evnt(10234);}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(10236);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10236);}while(r); +} +S_12597:; +if ((-(*__LONG_LINEINPUT== 0 ))||new_error){ +if(qbevent){evnt(10239);if(r)goto S_12597;} +do{ +SUB_WRITEBUFLINE(&(pass1500=*__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(10239);}while(r); +} +LABEL_FINISHEDPROMPTSTRING:; +if(qbevent){evnt(10240);r=0;} +do{ +*__LONG_NUMVAR= 0 ; +if(!qbevent)break;evnt(10241);}while(r); +S_12601:; +fornext_value1502=*__LONG_I; +fornext_finalvalue1502=*__LONG_N; +fornext_step1502= 1 ; +if (fornext_step1502<0) fornext_step_negative1502=1; else fornext_step_negative1502=0; +if (new_error) 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_value1502fornext_finalvalue1502) break; +} +fornext_error1502:; +if(qbevent){evnt(10242);if(r)goto S_12601;} +S_12602:; +if ((-(*__LONG_COMMANEEDED== 1 ))||new_error){ +if(qbevent){evnt(10243);if(r)goto S_12602;} +do{ +qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10244);}while(r); +S_12604:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_A2,qbs_new_txt_len(",",1))))||new_error){ +if(qbevent){evnt(10245);if(r)goto S_12604;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Syntax error - comma expected",29)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10245);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10245);}while(r); +} +}else{ +do{ +*__LONG_B= 0 ; +if(!qbevent)break;evnt(10248);}while(r); +do{ +qbs_set(__STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10249);}while(r); +S_12611:; +fornext_value1504=*__LONG_I; +fornext_finalvalue1504=*__LONG_N; +fornext_step1504= 1 ; +if (fornext_step1504<0) fornext_step_negative1504=1; else fornext_step_negative1504=0; +if (new_error) goto fornext_error1504; +goto fornext_entrylabel1504; +while(1){ +fornext_value1504=fornext_step1504+(*__LONG_I2); +fornext_entrylabel1504: +*__LONG_I2=fornext_value1504; +if (fornext_step_negative1504){ +if (fornext_value1504fornext_finalvalue1504) break; +} +fornext_error1504:; +if(qbevent){evnt(10250);if(r)goto S_12611;} +do{ +qbs_set(__STRING_E2,FUNC_GETELEMENT(__STRING_CA,__LONG_I2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10251);}while(r); +S_12613:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(10252);if(r)goto S_12613;} +do{ +*__LONG_B=*__LONG_B+ 1 ; +if(!qbevent)break;evnt(10252);}while(r); +} +S_12616:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(10253);if(r)goto S_12616;} +do{ +*__LONG_B=*__LONG_B- 1 ; +if(!qbevent)break;evnt(10253);}while(r); +} +S_12619:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E2,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||new_error){ +if(qbevent){evnt(10254);if(r)goto S_12619;} +do{ +*__LONG_I2=*__LONG_I2- 1 ; +if(!qbevent)break;evnt(10254);}while(r); +do{ +goto fornext_exit_1503; +if(!qbevent)break;evnt(10254);}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(10255);}while(r); +fornext_continue_1503:; +} +fornext_exit_1503:; +do{ +*__LONG_I=*__LONG_I2; +if(!qbevent)break;evnt(10257);}while(r); +S_12626:; +if ((-(*__LONG_I>*__LONG_N))||new_error){ +if(qbevent){evnt(10257);if(r)goto S_12626;} +do{ +*__LONG_I=*__LONG_N; +if(!qbevent)break;evnt(10257);}while(r); +} +S_12629:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(10258);if(r)goto S_12629;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected variable",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10258);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10258);}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(10259);}while(r); +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10260);}while(r); +S_12635:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10261);if(r)goto S_12635;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10261);}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(10262);}while(r); +S_12639:; +if ((-(*__LONG_I!=*__LONG_N))||new_error){ +if(qbevent){evnt(10262);if(r)goto S_12639;} +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(10262);}while(r); +} +do{ +qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_T)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10263);}while(r); +S_12643:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10264);if(r)goto S_12643;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10264);}while(r); +} +S_12646:; +if ((-((*__LONG_T&*__LONG_ISREFERENCE)== 0 ))||new_error){ +if(qbevent){evnt(10265);if(r)goto S_12646;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected variable",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10265);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10265);}while(r); +} +S_12650:; +if (((*__LONG_T&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(10267);if(r)goto S_12650;} +do{ +qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_T,&(pass1506= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10268);}while(r); +S_12652:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10269);if(r)goto S_12652;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10269);}while(r); +} +do{ +*__LONG_NUMVAR=*__LONG_NUMVAR+ 1 ; +if(!qbevent)break;evnt(10270);}while(r); +S_12656:; +if ((*__LONG_LINEINPUT)||new_error){ +if(qbevent){evnt(10271);if(r)goto S_12656;} +do{ +SUB_WRITEBUFLINE(&(pass1507=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("qbs_input_variabletypes[",24),FUNC_STR2(__LONG_NUMVAR)),qbs_new_txt_len("]=ISSTRING+512;",15))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10272);}while(r); +}else{ +do{ +SUB_WRITEBUFLINE(&(pass1508=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("qbs_input_variabletypes[",24),FUNC_STR2(__LONG_NUMVAR)),qbs_new_txt_len("]=ISSTRING;",11))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10274);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass1509=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_input_variableoffsets[",26),FUNC_STR2(__LONG_NUMVAR)),qbs_new_txt_len("]=",2)),__STRING_E),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10276);}while(r); +do{ +goto LABEL_GOTINPUTVAR; +if(!qbevent)break;evnt(10277);}while(r); +} +S_12664:; +if ((*__LONG_LINEINPUT)||new_error){ +if(qbevent){evnt(10280);if(r)goto S_12664;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected string variable",24)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10280);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10280);}while(r); +} +S_12668:; +if (((*__LONG_T&*__LONG_ISARRAY))||new_error){ +if(qbevent){evnt(10281);if(r)goto S_12668;} +S_12669:; +if (((*__LONG_T&*__LONG_ISOFFSETINBITS))||new_error){ +if(qbevent){evnt(10282);if(r)goto S_12669;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("INPUT cannot handle BIT array elements",38)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10283);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10283);}while(r); +} +} +do{ +qbs_set(__STRING_E,qbs_add(qbs_add(qbs_new_txt_len("&(",2),FUNC_REFER(__STRING_E,__LONG_T,&(pass1510= 0 ))),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10286);}while(r); +S_12675:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10287);if(r)goto S_12675;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10287);}while(r); +} +S_12678:; +if (((*__LONG_T&*__LONG_ISPOINTER))||new_error){ +if(qbevent){evnt(10290);if(r)goto S_12678;} +do{ +*__LONG_T=*__LONG_T-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(10290);}while(r); +} +S_12681:; +if (((*__LONG_T&*__LONG_ISINCONVENTIONALMEMORY))||new_error){ +if(qbevent){evnt(10291);if(r)goto S_12681;} +do{ +*__LONG_T=*__LONG_T-*__LONG_ISINCONVENTIONALMEMORY; +if(!qbevent)break;evnt(10291);}while(r); +} +S_12684:; +if (((*__LONG_T&*__LONG_ISREFERENCE))||new_error){ +if(qbevent){evnt(10292);if(r)goto S_12684;} +do{ +*__LONG_T=*__LONG_T-*__LONG_ISREFERENCE; +if(!qbevent)break;evnt(10292);}while(r); +} +do{ +*__LONG_NUMVAR=*__LONG_NUMVAR+ 1 ; +if(!qbevent)break;evnt(10303);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1511=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_input_variabletypes[",24),FUNC_STR2(__LONG_NUMVAR)),qbs_new_txt_len("]=",2)),FUNC_STR2(__LONG_T)),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10304);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1512=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_input_variableoffsets[",26),FUNC_STR2(__LONG_NUMVAR)),qbs_new_txt_len("]=",2)),__STRING_E),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10305);}while(r); +do{ +goto LABEL_GOTINPUTVAR; +if(!qbevent)break;evnt(10306);}while(r); +} +LABEL_GOTINPUTVAR:; +if(qbevent){evnt(10309);r=0;} +do{ +*__LONG_COMMANEEDED=*__LONG_COMMANEEDED+ 1 ; +if(!qbevent)break;evnt(10310);}while(r); +S_12693:; +if ((-(*__LONG_COMMANEEDED== 2 ))||new_error){ +if(qbevent){evnt(10310);if(r)goto S_12693;} +do{ +*__LONG_COMMANEEDED= 0 ; +if(!qbevent)break;evnt(10310);}while(r); +} +fornext_continue_1501:; +} +fornext_exit_1501:; +S_12697:; +if ((-(*__LONG_NUMVAR== 0 ))||new_error){ +if(qbevent){evnt(10312);if(r)goto S_12697;} +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(10312);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10312);}while(r); +} +S_12701:; +if (((-(*__LONG_LINEINPUT== 1 ))&(-(*__LONG_NUMVAR> 1 )))||new_error){ +if(qbevent){evnt(10313);if(r)goto S_12701;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Too many variables",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10313);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10313);}while(r); +} +S_12705:; +if ((-(*__LONG_VWATCHON== 1 ))||new_error){ +if(qbevent){evnt(10314);if(r)goto S_12705;} +do{ +SUB_WRITEBUFLINE(&(pass1513=*__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(10315);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass1514=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_input(",10),FUNC_STR2(__LONG_NUMVAR)),qbs_new_txt_len(",",1)),FUNC_STR2(__LONG_NEWLINE)),qbs_new_txt_len(");",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10317);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1515=*__LONG_MAINTXTBUF),qbs_new_txt_len("if (stop_program) end();",24)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10318);}while(r); +S_12710:; +if ((-(*__LONG_VWATCHON== 1 ))||new_error){ +if(qbevent){evnt(10319);if(r)goto S_12710;} +do{ +SUB_WRITEBUFLINE(&(pass1516=*__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(10320);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass1517=*__LONG_MAINTXTBUF),qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10322);}while(r); +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(10323);}while(r); +S_12715:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(10323);if(r)goto S_12715;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10323);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10323);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(10324);}while(r); +} +S_12722:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("WRITE",5))))||new_error){ +if(qbevent){evnt(10329);if(r)goto S_12722;} +S_12723:; +if ((-(*__LONG_N> 1 ))||new_error){ +if(qbevent){evnt(10330);if(r)goto S_12723;} +S_12724:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass1519= 2 )),qbs_new_txt_len("#",1))))||new_error){ +if(qbevent){evnt(10331);if(r)goto S_12724;} +do{ +SUB_XFILEWRITE(__STRING_CA,__LONG_N); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10332);}while(r); +S_12726:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10333);if(r)goto S_12726;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10333);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(10334);}while(r); +} +} +} +S_12733:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("WRITE",5))))||new_error){ +if(qbevent){evnt(10339);if(r)goto S_12733;} +do{ +SUB_XWRITE(__STRING_CA,__LONG_N); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10340);}while(r); +S_12735:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10341);if(r)goto S_12735;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10341);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(10342);}while(r); +} +S_12740:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("PRINT",5))))||new_error){ +if(qbevent){evnt(10345);if(r)goto S_12740;} +S_12741:; +if ((-(*__LONG_N> 1 ))||new_error){ +if(qbevent){evnt(10346);if(r)goto S_12741;} +S_12742:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(__STRING_A,&(pass1520= 2 )),qbs_new_txt_len("#",1))))||new_error){ +if(qbevent){evnt(10347);if(r)goto S_12742;} +do{ +SUB_XFILEPRINT(__STRING_A,__STRING_CA,__LONG_N); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10348);}while(r); +S_12744:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10349);if(r)goto S_12744;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10349);}while(r); +} +do{ +qbs_set(__STRING_L,__STRING_TLAYOUT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10350);}while(r); +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(10351);}while(r); +S_12749:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(10351);if(r)goto S_12749;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10351);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10351);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(10352);}while(r); +} +} +} +S_12758:; +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)))))||new_error){ +if(qbevent){evnt(10357);if(r)goto S_12758;} +S_12759:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_SECONDELEMENT,qbs_new_txt_len("USING",5))))||new_error){ +if(qbevent){evnt(10358);if(r)goto S_12759;} +do{ +*__LONG_ELEMENTON= 2 ; +if(!qbevent)break;evnt(10359);}while(r); +LABEL_REDOSEMI:; +if(qbevent){evnt(10360);r=0;} +S_12761:; +fornext_value1523=*__LONG_ELEMENTON; +fornext_finalvalue1523=*__LONG_N- 1 ; +fornext_step1523= 1 ; +if (fornext_step1523<0) fornext_step_negative1523=1; else fornext_step_negative1523=0; +if (new_error) goto fornext_error1523; +goto fornext_entrylabel1523; +while(1){ +fornext_value1523=fornext_step1523+(*__LONG_I); +fornext_entrylabel1523: +*__LONG_I=fornext_value1523; +if (fornext_step_negative1523){ +if (fornext_value1523fornext_finalvalue1523) break; +} +fornext_error1523:; +if(qbevent){evnt(10361);if(r)goto S_12761;} +do{ +qbs_set(__STRING_NEXTCHAR,FUNC_GETELEMENT(__STRING_A,&(pass1524=*__LONG_I+ 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10362);}while(r); +S_12763:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(__STRING_NEXTCHAR,qbs_new_txt_len(";",1)))&(qbs_notequal(__STRING_NEXTCHAR,qbs_new_txt_len(",",1)))&(qbs_notequal(__STRING_NEXTCHAR,qbs_new_txt_len("+",1)))&(qbs_notequal(__STRING_NEXTCHAR,qbs_new_txt_len(")",1)))))||new_error){ +if(qbevent){evnt(10363);if(r)goto S_12763;} +do{ +qbs_set(__STRING_TEMP1,FUNC_GETELEMENT(__STRING_A,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10364);}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(10365);}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(10366);}while(r); +S_12767:; +if (((-(*__LONG_BEGINPOINT!= 0 ))&(-(*__LONG_ENDPOINT!= 0 )))||new_error){ +if(qbevent){evnt(10367);if(r)goto S_12767;} +do{ +*__LONG_TEXTLENGTH=*__LONG_ENDPOINT-*__LONG_BEGINPOINT- 1 ; +if(!qbevent)break;evnt(10369);}while(r); +do{ +qbs_set(__STRING_TEXTVALUE,func_mid(__STRING_TEMP1,*__LONG_ENDPOINT+ 2 ,((int32)(qbs_ltrim(qbs_str((int32)(*__LONG_TEXTLENGTH))))->len),0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10370);}while(r); +S_12770:; +if ((qbs_cleanup(qbs_tmp_base,-(func_val(__STRING_TEXTVALUE)==*__LONG_TEXTLENGTH)))||new_error){ +if(qbevent){evnt(10371);if(r)goto S_12770;} +do{ +SUB_INSERTELEMENTS(__STRING_A,__LONG_I,qbs_new_txt_len(";",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10372);}while(r); +do{ +SUB_INSERTELEMENTS(__STRING_CA,__LONG_I,qbs_new_txt_len(";",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10373);}while(r); +do{ +*__LONG_N=*__LONG_N+ 1 ; +if(!qbevent)break;evnt(10374);}while(r); +do{ +*__LONG_ELEMENTON=*__LONG_I+ 2 ; +if(!qbevent)break;evnt(10375);}while(r); +do{ +goto LABEL_REDOSEMI; +if(!qbevent)break;evnt(10376);}while(r); +} +} +S_12778:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_TEMP1,qbs_new_txt_len("USING",5))))||new_error){ +if(qbevent){evnt(10379);if(r)goto S_12778;} +S_12779:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(qbs_ltrim(__STRING_NEXTCHAR), 1 ),func_chr( 34 ))))||new_error){ +if(qbevent){evnt(10380);if(r)goto S_12779;} +S_12780:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(__STRING_TEMP1,qbs_new_txt_len(";",1)))&(qbs_notequal(__STRING_TEMP1,qbs_new_txt_len(",",1)))&(qbs_notequal(__STRING_TEMP1,qbs_new_txt_len("+",1)))&(qbs_notequal(__STRING_TEMP1,qbs_new_txt_len("(",1)))))||new_error){ +if(qbevent){evnt(10381);if(r)goto S_12780;} +do{ +SUB_INSERTELEMENTS(__STRING_A,__LONG_I,qbs_new_txt_len(";",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10382);}while(r); +do{ +SUB_INSERTELEMENTS(__STRING_CA,__LONG_I,qbs_new_txt_len(";",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10383);}while(r); +do{ +*__LONG_N=*__LONG_N+ 1 ; +if(!qbevent)break;evnt(10384);}while(r); +do{ +*__LONG_ELEMENTON=*__LONG_I+ 2 ; +if(!qbevent)break;evnt(10385);}while(r); +do{ +goto LABEL_REDOSEMI; +if(!qbevent)break;evnt(10386);}while(r); +} +} +} +} +fornext_continue_1522:; +} +fornext_exit_1522:; +} +do{ +SUB_XPRINT(__STRING_A,__STRING_CA,__LONG_N); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10394);}while(r); +S_12793:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10395);if(r)goto S_12793;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10395);}while(r); +} +do{ +qbs_set(__STRING_L,__STRING_TLAYOUT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10396);}while(r); +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(10397);}while(r); +S_12798:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(10397);if(r)goto S_12798;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10397);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10397);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(10398);}while(r); +} +S_12805:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("CLEAR",5))))||new_error){ +if(qbevent){evnt(10403);if(r)goto S_12805;} +S_12806:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_SUBFUNC,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(10404);if(r)goto S_12806;} +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(10404);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10404);}while(r); +} +} +S_12811:; +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)))))||new_error){ +if(qbevent){evnt(10408);if(r)goto S_12811;} +S_12812:; +if ((-(*__LONG_N== 1 ))||new_error){ +if(qbevent){evnt(10409);if(r)goto S_12812;} +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(10409);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10409);}while(r); +} +S_12816:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("LSET",4))))||new_error){ +if(qbevent){evnt(10410);if(r)goto S_12816;} +do{ +qbs_set(__STRING_L,FUNC_SCASE(qbs_new_txt_len("LSet",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10410);}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(10410);}while(r); +} +do{ +qbs_set(__STRING_DEST,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10411);}while(r); +do{ +qbs_set(__STRING_SOURCE,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10412);}while(r); +do{ +*__LONG_PART= 1 ; +if(!qbevent)break;evnt(10413);}while(r); +do{ +*__LONG_I= 2 ; +if(!qbevent)break;evnt(10414);}while(r); +do{ +qbs_set(__STRING_A3,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10415);}while(r); +do{ +*__LONG_B= 0 ; +if(!qbevent)break;evnt(10416);}while(r); +S_12827:; +do{ +if(qbevent){evnt(10417);if(r)goto S_12827;} +S_12828:; +if ((-(*__LONG_I>*__LONG_N))||new_error){ +if(qbevent){evnt(10418);if(r)goto S_12828;} +S_12829:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_PART!= 2 ))|(qbs_equal(__STRING_A3,qbs_new_txt_len("",0)))))||new_error){ +if(qbevent){evnt(10419);if(r)goto S_12829;} +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(10419);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10419);}while(r); +} +do{ +qbs_set(__STRING_SOURCE,__STRING_A3); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10420);}while(r); +do{ +goto dl_exit_1526; +if(!qbevent)break;evnt(10421);}while(r); +} +do{ +qbs_set(__STRING_A2,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10423);}while(r); +S_12837:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(10424);if(r)goto S_12837;} +do{ +*__LONG_B=*__LONG_B+ 1 ; +if(!qbevent)break;evnt(10424);}while(r); +} +S_12840:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_A2,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(10425);if(r)goto S_12840;} +do{ +*__LONG_B=*__LONG_B- 1 ; +if(!qbevent)break;evnt(10425);}while(r); +} +S_12843:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_A2,qbs_new_txt_len("=",1)))&(-(*__LONG_B== 0 ))))||new_error){ +if(qbevent){evnt(10426);if(r)goto S_12843;} +S_12844:; +if ((-(*__LONG_PART== 1 ))||new_error){ +if(qbevent){evnt(10427);if(r)goto S_12844;} +do{ +qbs_set(__STRING_DEST,__STRING_A3); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10427);}while(r); +do{ +*__LONG_PART= 2 ; +if(!qbevent)break;evnt(10427);}while(r); +do{ +qbs_set(__STRING_A3,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10427);}while(r); +do{ +goto LABEL_LRSETGOTPART; +if(!qbevent)break;evnt(10427);}while(r); +} +} +S_12851:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_A3->len))||new_error){ +if(qbevent){evnt(10429);if(r)goto S_12851;} +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(10429);}while(r); +}else{ +do{ +qbs_set(__STRING_A3,__STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10429);}while(r); +} +LABEL_LRSETGOTPART:; +if(qbevent){evnt(10430);r=0;} +do{ +*__LONG_I=*__LONG_I+ 1 ; +if(!qbevent)break;evnt(10431);}while(r); +dl_continue_1526:; +}while(1); +dl_exit_1526:; +S_12858:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_DEST,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(10433);if(r)goto S_12858;} +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(10433);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10433);}while(r); +} +do{ +qbs_set(__STRING_F,FUNC_FIXOPERATIONORDER(__STRING_DEST)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10435);}while(r); +S_12863:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10436);if(r)goto S_12863;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10436);}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(10437);}while(r); +do{ +qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_F,__LONG_SOURCETYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10438);}while(r); +S_12868:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10439);if(r)goto S_12868;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10439);}while(r); +} +S_12871:; +if (((-((*__LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))|(-((*__LONG_SOURCETYP&*__LONG_ISSTRING)== 0 )))||new_error){ +if(qbevent){evnt(10440);if(r)goto S_12871;} +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(10440);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10440);}while(r); +} +do{ +qbs_set(__STRING_DEST,FUNC_EVALUATETOTYP(__STRING_F,__LONG_ISSTRING)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10441);}while(r); +S_12876:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10442);if(r)goto S_12876;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10442);}while(r); +} +do{ +qbs_set(__STRING_SOURCE,FUNC_FIXOPERATIONORDER(__STRING_SOURCE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10443);}while(r); +S_12880:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10444);if(r)goto S_12880;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10444);}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(10445);}while(r); +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(10446);}while(r); +S_12885:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(10446);if(r)goto S_12885;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10446);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10446);}while(r); +} +do{ +qbs_set(__STRING_SOURCE,FUNC_EVALUATETOTYP(__STRING_SOURCE,__LONG_ISSTRING)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10447);}while(r); +S_12891:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10448);if(r)goto S_12891;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10448);}while(r); +} +S_12894:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("LSET",4))))||new_error){ +if(qbevent){evnt(10449);if(r)goto S_12894;} +do{ +SUB_WRITEBUFLINE(&(pass1529=*__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(10450);}while(r); +}else{ +do{ +SUB_WRITEBUFLINE(&(pass1530=*__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(10452);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(10454);}while(r); +} +S_12901:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("SWAP",4))))||new_error){ +if(qbevent){evnt(10458);if(r)goto S_12901;} +S_12902:; +if ((-(*__LONG_N< 4 ))||new_error){ +if(qbevent){evnt(10459);if(r)goto S_12902;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected SWAP ... , ...",23)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10459);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10459);}while(r); +} +do{ +*__LONG_B= 0 ; +if(!qbevent)break;evnt(10460);}while(r); +do{ +*__LONG_ELE= 1 ; +if(!qbevent)break;evnt(10461);}while(r); +do{ +qbs_set(__STRING_E1,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10462);}while(r); +do{ +qbs_set(__STRING_E2,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10463);}while(r); +S_12910:; +fornext_value1532= 2 ; +fornext_finalvalue1532=*__LONG_N; +fornext_step1532= 1 ; +if (fornext_step1532<0) fornext_step_negative1532=1; else fornext_step_negative1532=0; +if (new_error) goto fornext_error1532; +goto fornext_entrylabel1532; +while(1){ +fornext_value1532=fornext_step1532+(*__LONG_I); +fornext_entrylabel1532: +*__LONG_I=fornext_value1532; +if (fornext_step_negative1532){ +if (fornext_value1532fornext_finalvalue1532) break; +} +fornext_error1532:; +if(qbevent){evnt(10464);if(r)goto S_12910;} +do{ +qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_CA,__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10465);}while(r); +S_12912:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(10466);if(r)goto S_12912;} +do{ +*__LONG_B=*__LONG_B+ 1 ; +if(!qbevent)break;evnt(10466);}while(r); +} +S_12915:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(10467);if(r)goto S_12915;} +do{ +*__LONG_B=*__LONG_B- 1 ; +if(!qbevent)break;evnt(10467);}while(r); +} +S_12918:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E,qbs_new_txt_len(",",1)))&(-(*__LONG_B== 0 ))))||new_error){ +if(qbevent){evnt(10468);if(r)goto S_12918;} +S_12919:; +if ((-(*__LONG_ELE== 2 ))||new_error){ +if(qbevent){evnt(10469);if(r)goto S_12919;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected SWAP ... , ...",23)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10469);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10469);}while(r); +} +do{ +*__LONG_ELE= 2 ; +if(!qbevent)break;evnt(10470);}while(r); +}else{ +S_12925:; +if ((-(*__LONG_ELE== 1 ))||new_error){ +if(qbevent){evnt(10472);if(r)goto S_12925;} +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(10472);}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(10472);}while(r); +} +} +fornext_continue_1531:; +} +fornext_exit_1531:; +S_12932:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E2,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(10475);if(r)goto S_12932;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected SWAP ... , ...",23)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10475);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10475);}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(10476);}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(10476);}while(r); +do{ +qbs_set(__STRING_E1,FUNC_FIXOPERATIONORDER(__STRING_E1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10478);}while(r); +S_12939:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10479);if(r)goto S_12939;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10479);}while(r); +} +do{ +qbs_set(__STRING_E1L,__STRING_TLAYOUT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10480);}while(r); +do{ +qbs_set(__STRING_E2,FUNC_FIXOPERATIONORDER(__STRING_E2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10481);}while(r); +S_12944:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10482);if(r)goto S_12944;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10482);}while(r); +} +do{ +qbs_set(__STRING_E2L,__STRING_TLAYOUT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10483);}while(r); +do{ +qbs_set(__STRING_E1,FUNC_EVALUATE(__STRING_E1,__LONG_E1TYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10484);}while(r); +do{ +qbs_set(__STRING_E2,FUNC_EVALUATE(__STRING_E2,__LONG_E2TYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10484);}while(r); +S_12950:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10485);if(r)goto S_12950;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10485);}while(r); +} +S_12953:; +if (((-((*__LONG_E1TYP&*__LONG_ISREFERENCE)== 0 ))|(-((*__LONG_E2TYP&*__LONG_ISREFERENCE)== 0 )))||new_error){ +if(qbevent){evnt(10486);if(r)goto S_12953;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected variable",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10486);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10486);}while(r); +} +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(10488);}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(10489);}while(r); +S_12959:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||new_error){ +if(qbevent){evnt(10490);if(r)goto S_12959;} +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10490);}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(10490);}while(r); +} +S_12964:; +if (((*__LONG_E1TYP&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(10493);if(r)goto S_12964;} +S_12965:; +if ((-((*__LONG_E2TYP&*__LONG_ISSTRING)== 0 ))||new_error){ +if(qbevent){evnt(10494);if(r)goto S_12965;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Type mismatch",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10494);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10494);}while(r); +} +do{ +qbs_set(__STRING_E1,FUNC_REFER(__STRING_E1,__LONG_E1TYP,&(pass1536= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10495);}while(r); +do{ +qbs_set(__STRING_E2,FUNC_REFER(__STRING_E2,__LONG_E2TYP,&(pass1537= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10495);}while(r); +S_12971:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10496);if(r)goto S_12971;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10496);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass1538=*__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(10497);}while(r); +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(10498);}while(r); +} +S_12977:; +if ((*__LONG_E1TYP&*__LONG_ISUDT)||new_error){ +if(qbevent){evnt(10506);if(r)goto S_12977;} +do{ +qbs_set(__STRING_A,__STRING_E1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10507);}while(r); +do{ +*__LONG_I=func_instr(NULL,__STRING_A,__STRING1_SP3,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10509);}while(r); +S_12980:; +if ((*__LONG_I)||new_error){ +if(qbevent){evnt(10510);if(r)goto S_12980;} +do{ +*__LONG_IDNUMBER=qbr(func_val(qbs_left(__STRING_A,*__LONG_I- 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10511);}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(10511);}while(r); +do{ +SUB_GETID(__LONG_IDNUMBER); +if(!qbevent)break;evnt(10512);}while(r); +S_12984:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10513);if(r)goto S_12984;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10513);}while(r); +} +do{ +*__LONG_U=qbr(func_val(__STRING_A)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10514);}while(r); +do{ +*__LONG_I=func_instr(NULL,__STRING_A,__STRING1_SP3,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10515);}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(10515);}while(r); +do{ +*__LONG_E=qbr(func_val(__STRING_A)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10515);}while(r); +do{ +*__LONG_I=func_instr(NULL,__STRING_A,__STRING1_SP3,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10516);}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(10516);}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(10517);}while(r); +S_12994:; +if ((-(*(int32*)(((char*)__UDT_ID)+(536))== 0 ))||new_error){ +if(qbevent){evnt(10517);if(r)goto S_12994;} +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(10517);}while(r); +} +S_12997:; +if ((-(*__LONG_E== 0 ))||new_error){ +if(qbevent){evnt(10518);if(r)goto S_12997;} +do{ +qbs_set(__STRING_LHSSCOPE,FUNC_SCOPE()); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10519);}while(r); +do{ +qbs_set(__STRING_E,__STRING_E2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10520);}while(r); +do{ +*__LONG_T2=*__LONG_E2TYP; +if(!qbevent)break;evnt(10520);}while(r); +S_13001:; +if ((-((*__LONG_T2&*__LONG_ISUDT)== 0 ))||new_error){ +if(qbevent){evnt(10521);if(r)goto S_13001;} +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(10521);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10521);}while(r); +} +do{ +*__LONG_IDNUMBER2=qbr(func_val(__STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10522);}while(r); +do{ +SUB_GETID(__LONG_IDNUMBER2); +if(!qbevent)break;evnt(10523);}while(r); +S_13007:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10524);if(r)goto S_13007;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10524);}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(10525);}while(r); +S_13011:; +if ((-(*(int32*)(((char*)__UDT_ID)+(536))== 0 ))||new_error){ +if(qbevent){evnt(10525);if(r)goto S_13011;} +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(10525);}while(r); +} +do{ +*__LONG_I=func_instr(NULL,__STRING_E,__STRING1_SP3,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10526);}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(10526);}while(r); +do{ +*__LONG_U2=qbr(func_val(__STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10526);}while(r); +do{ +*__LONG_I=func_instr(NULL,__STRING_E,__STRING1_SP3,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10527);}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(10527);}while(r); +do{ +*__LONG_E2=qbr(func_val(__STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10527);}while(r); +do{ +*__LONG_I=func_instr(NULL,__STRING_E,__STRING1_SP3,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10529);}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(10529);}while(r); +S_13022:; +if (((-(*__LONG_U!=*__LONG_U2))|(-(*__LONG_E2!= 0 )))||new_error){ +if(qbevent){evnt(10531);if(r)goto S_13022;} +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(10531);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10531);}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(10532);}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(10533);}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(10534);}while(r); +do{ +qbs_set(__STRING_SIZ,FUNC_STR2(__LONG_B)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10535);}while(r); +S_13030:; +if ((-(*__LONG_B== 1 ))||new_error){ +if(qbevent){evnt(10536);if(r)goto S_13030;} +do{ +SUB_WRITEBUFLINE(&(pass1545=*__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(10536);}while(r); +} +S_13033:; +if ((-(*__LONG_B== 2 ))||new_error){ +if(qbevent){evnt(10537);if(r)goto S_13033;} +do{ +SUB_WRITEBUFLINE(&(pass1546=*__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(10537);}while(r); +} +S_13036:; +if ((-(*__LONG_B== 4 ))||new_error){ +if(qbevent){evnt(10538);if(r)goto S_13036;} +do{ +SUB_WRITEBUFLINE(&(pass1547=*__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(10538);}while(r); +} +S_13039:; +if ((-(*__LONG_B== 8 ))||new_error){ +if(qbevent){evnt(10539);if(r)goto S_13039;} +do{ +SUB_WRITEBUFLINE(&(pass1548=*__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(10539);}while(r); +} +S_13042:; +if (((-(*__LONG_B!= 1 ))&(-(*__LONG_B!= 2 ))&(-(*__LONG_B!= 4 ))&(-(*__LONG_B!= 8 )))||new_error){ +if(qbevent){evnt(10540);if(r)goto S_13042;} +do{ +SUB_WRITEBUFLINE(&(pass1549=*__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(10540);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(10541);}while(r); +} +} +} +do{ +*__LONG_E1TYPC=*__LONG_E1TYP; +if(!qbevent)break;evnt(10547);}while(r); +S_13050:; +if ((*__LONG_E1TYPC&*__LONG_ISPOINTER)||new_error){ +if(qbevent){evnt(10548);if(r)goto S_13050;} +do{ +*__LONG_E1TYPC=*__LONG_E1TYPC-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(10548);}while(r); +} +S_13053:; +if ((*__LONG_E1TYPC&*__LONG_ISINCONVENTIONALMEMORY)||new_error){ +if(qbevent){evnt(10549);if(r)goto S_13053;} +do{ +*__LONG_E1TYPC=*__LONG_E1TYPC-*__LONG_ISINCONVENTIONALMEMORY; +if(!qbevent)break;evnt(10549);}while(r); +} +S_13056:; +if ((*__LONG_E1TYPC&*__LONG_ISARRAY)||new_error){ +if(qbevent){evnt(10550);if(r)goto S_13056;} +do{ +*__LONG_E1TYPC=*__LONG_E1TYPC-*__LONG_ISARRAY; +if(!qbevent)break;evnt(10550);}while(r); +} +S_13059:; +if ((*__LONG_E1TYPC&*__LONG_ISUNSIGNED)||new_error){ +if(qbevent){evnt(10551);if(r)goto S_13059;} +do{ +*__LONG_E1TYPC=*__LONG_E1TYPC-*__LONG_ISUNSIGNED; +if(!qbevent)break;evnt(10551);}while(r); +} +S_13062:; +if ((*__LONG_E1TYPC&*__LONG_ISUDT)||new_error){ +if(qbevent){evnt(10552);if(r)goto S_13062;} +do{ +*__LONG_E1TYPC=*__LONG_E1TYPC-*__LONG_ISUDT; +if(!qbevent)break;evnt(10552);}while(r); +} +do{ +*__LONG_E2TYPC=*__LONG_E2TYP; +if(!qbevent)break;evnt(10553);}while(r); +S_13066:; +if ((*__LONG_E2TYPC&*__LONG_ISPOINTER)||new_error){ +if(qbevent){evnt(10554);if(r)goto S_13066;} +do{ +*__LONG_E2TYPC=*__LONG_E2TYPC-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(10554);}while(r); +} +S_13069:; +if ((*__LONG_E2TYPC&*__LONG_ISINCONVENTIONALMEMORY)||new_error){ +if(qbevent){evnt(10555);if(r)goto S_13069;} +do{ +*__LONG_E2TYPC=*__LONG_E2TYPC-*__LONG_ISINCONVENTIONALMEMORY; +if(!qbevent)break;evnt(10555);}while(r); +} +S_13072:; +if ((*__LONG_E2TYPC&*__LONG_ISARRAY)||new_error){ +if(qbevent){evnt(10556);if(r)goto S_13072;} +do{ +*__LONG_E2TYPC=*__LONG_E2TYPC-*__LONG_ISARRAY; +if(!qbevent)break;evnt(10556);}while(r); +} +S_13075:; +if ((*__LONG_E2TYPC&*__LONG_ISUNSIGNED)||new_error){ +if(qbevent){evnt(10557);if(r)goto S_13075;} +do{ +*__LONG_E2TYPC=*__LONG_E2TYPC-*__LONG_ISUNSIGNED; +if(!qbevent)break;evnt(10557);}while(r); +} +S_13078:; +if ((*__LONG_E2TYPC&*__LONG_ISUDT)||new_error){ +if(qbevent){evnt(10558);if(r)goto S_13078;} +do{ +*__LONG_E2TYPC=*__LONG_E2TYPC-*__LONG_ISUDT; +if(!qbevent)break;evnt(10558);}while(r); +} +S_13081:; +if ((-(*__LONG_E1TYPC!=*__LONG_E2TYPC))||new_error){ +if(qbevent){evnt(10559);if(r)goto S_13081;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Type mismatch",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10559);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10559);}while(r); +} +do{ +*__LONG_T=*__LONG_E1TYP; +if(!qbevent)break;evnt(10560);}while(r); +S_13086:; +if ((*__LONG_T&*__LONG_ISOFFSETINBITS)||new_error){ +if(qbevent){evnt(10561);if(r)goto S_13086;} +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(10561);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10561);}while(r); +} +do{ +*__LONG_B=*__LONG_T& 511 ; +if(!qbevent)break;evnt(10562);}while(r); +do{ +qbs_set(__STRING_T,FUNC_STR2(__LONG_B)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10563);}while(r); +S_13092:; +if ((-(*__LONG_B> 64 ))||new_error){ +if(qbevent){evnt(10563);if(r)goto S_13092;} +do{ +qbs_set(__STRING_T,qbs_new_txt_len("longdouble",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10563);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass1550=*__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,&(pass1551= 0 ))),qbs_new_txt_len(",&",2)),FUNC_REFER(__STRING_E2,__LONG_E2TYP,&(pass1552= 0 ))),qbs_new_txt_len(");",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10564);}while(r); +S_13096:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10565);if(r)goto S_13096;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10565);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(10566);}while(r); +} +S_13101:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("OPTION",6))))||new_error){ +if(qbevent){evnt(10569);if(r)goto S_13101;} +S_13102:; +if ((-(*__BYTE_OPTIONEXPLICIT== 0 ))||new_error){ +if(qbevent){evnt(10570);if(r)goto S_13102;} +do{ +qbs_set(__STRING_E,qbs_add(qbs_add(qbs_new_txt_len(" or OPTION ",11),__STRING_QB64PREFIX),qbs_new_txt_len("EXPLICIT",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10570);}while(r); +}else{ +do{ +qbs_set(__STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10570);}while(r); +} +S_13107:; +if ((-(*__BYTE_OPTIONEXPLICITARRAY== 0 ))||new_error){ +if(qbevent){evnt(10571);if(r)goto S_13107;} +do{ +qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(__STRING_E,qbs_new_txt_len(" or OPTION ",11)),__STRING_QB64PREFIX),qbs_new_txt_len("EXPLICITARRAY",13))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10571);}while(r); +} +S_13110:; +if ((-(*__LONG_N== 1 ))||new_error){ +if(qbevent){evnt(10572);if(r)goto S_13110;} +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(10572);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10572);}while(r); +} +do{ +qbs_set(__STRING_E,FUNC_GETELEMENT(__STRING_A,&(pass1553= 2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10573);}while(r); +S_13115:; +if(qbevent){evnt(10574);if(r)goto S_13115;} +S_13116:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("BASE",4))))||new_error){ +if(qbevent){evnt(10575);if(r)goto S_13116;} +do{ +qbs_set(__STRING_L,FUNC_GETELEMENT(__STRING_A,&(pass1555= 3 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10576);}while(r); +S_13118:; +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)))))||new_error){ +if(qbevent){evnt(10577);if(r)goto S_13118;} +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(10577);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10577);}while(r); +} +S_13122:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_L,qbs_new_txt_len("1",1))))||new_error){ +if(qbevent){evnt(10578);if(r)goto S_13122;} +do{ +*__INTEGER_OPTIONBASE= 1 ; +if(!qbevent)break;evnt(10578);}while(r); +}else{ +do{ +*__INTEGER_OPTIONBASE= 0 ; +if(!qbevent)break;evnt(10578);}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(10579);}while(r); +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(10580);}while(r); +S_13129:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(10580);if(r)goto S_13129;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10580);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10580);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(10581);}while(r); +sc_ec_33_end:; +goto sc_1554_end; +} +S_13135:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("EXPLICIT",8))||qbs_equal(__STRING_E,qbs_new_txt_len("_EXPLICIT",9))))||new_error){ +if(qbevent){evnt(10582);if(r)goto S_13135;} +S_13136:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E,qbs_new_txt_len("EXPLICIT",8)))&(qbs_equal(__STRING_QB64PREFIX,qbs_new_txt_len("_",1)))))||new_error){ +if(qbevent){evnt(10583);if(r)goto S_13136;} +S_13137:; +if ((-(*__BYTE_OPTIONEXPLICIT== 0 ))||new_error){ +if(qbevent){evnt(10584);if(r)goto S_13137;} +do{ +qbs_set(__STRING_E,qbs_add(qbs_add(qbs_new_txt_len(" or OPTION ",11),__STRING_QB64PREFIX),qbs_new_txt_len("EXPLICIT",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10584);}while(r); +}else{ +do{ +qbs_set(__STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10584);}while(r); +} +S_13142:; +if ((-(*__BYTE_OPTIONEXPLICITARRAY== 0 ))||new_error){ +if(qbevent){evnt(10585);if(r)goto S_13142;} +do{ +qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(__STRING_E,qbs_new_txt_len(" or OPTION ",11)),__STRING_QB64PREFIX),qbs_new_txt_len("EXPLICITARRAY",13))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10585);}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(10586);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10586);}while(r); +} +do{ +*__LONG_OPEX_DESIREDSTATE= -1 ; +if(!qbevent)break;evnt(10589);}while(r); +S_13149:; +if ((-(*__BYTE_OPTIONEXPLICIT== 0 ))||new_error){ +if(qbevent){evnt(10590);if(r)goto S_13149;} +S_13150:; +if ((-(*__LONG_OPEX_RECOMPILEATTEMPTS== 0 ))||new_error){ +if(qbevent){evnt(10591);if(r)goto S_13150;} +do{ +*__LONG_OPEX_RECOMPILEATTEMPTS=*__LONG_OPEX_RECOMPILEATTEMPTS+ 1 ; +if(!qbevent)break;evnt(10592);}while(r); +do{ +goto LABEL_DO_RECOMPILE; +if(!qbevent)break;evnt(10593);}while(r); +} +} +do{ +qbs_set(__STRING_L,qbs_add(FUNC_SCASE(qbs_new_txt_len("Option",6)),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10597);}while(r); +S_13156:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("EXPLICIT",8))))||new_error){ +if(qbevent){evnt(10598);if(r)goto S_13156;} +do{ +qbs_set(__STRING_L,qbs_add(__STRING_L,FUNC_SCASE(qbs_new_txt_len("Explicit",8)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10598);}while(r); +}else{ +do{ +qbs_set(__STRING_L,qbs_add(__STRING_L,FUNC_SCASE(qbs_new_txt_len("_Explicit",9)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10598);}while(r); +} +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(10599);}while(r); +S_13162:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(10599);if(r)goto S_13162;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10599);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10599);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(10600);}while(r); +sc_ec_34_end:; +goto sc_1554_end; +} +S_13168:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("EXPLICITARRAY",13))||qbs_equal(__STRING_E,qbs_new_txt_len("_EXPLICITARRAY",14))))||new_error){ +if(qbevent){evnt(10601);if(r)goto S_13168;} +S_13169:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_E,qbs_new_txt_len("EXPLICITARRAY",13)))&(qbs_equal(__STRING_QB64PREFIX,qbs_new_txt_len("_",1)))))||new_error){ +if(qbevent){evnt(10602);if(r)goto S_13169;} +S_13170:; +if ((-(*__BYTE_OPTIONEXPLICIT== 0 ))||new_error){ +if(qbevent){evnt(10603);if(r)goto S_13170;} +do{ +qbs_set(__STRING_E,qbs_add(qbs_add(qbs_new_txt_len(" or OPTION ",11),__STRING_QB64PREFIX),qbs_new_txt_len("EXPLICIT",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10603);}while(r); +}else{ +do{ +qbs_set(__STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10603);}while(r); +} +S_13175:; +if ((-(*__BYTE_OPTIONEXPLICITARRAY== 0 ))||new_error){ +if(qbevent){evnt(10604);if(r)goto S_13175;} +do{ +qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(__STRING_E,qbs_new_txt_len(" or OPTION ",11)),__STRING_QB64PREFIX),qbs_new_txt_len("EXPLICITARRAY",13))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10604);}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(10605);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10605);}while(r); +} +do{ +*__LONG_OPEXARRAY_DESIREDSTATE= -1 ; +if(!qbevent)break;evnt(10608);}while(r); +S_13182:; +if ((-(*__BYTE_OPTIONEXPLICITARRAY== 0 ))||new_error){ +if(qbevent){evnt(10609);if(r)goto S_13182;} +S_13183:; +if ((-(*__LONG_OPEXARRAY_RECOMPILEATTEMPTS== 0 ))||new_error){ +if(qbevent){evnt(10610);if(r)goto S_13183;} +do{ +*__LONG_OPEXARRAY_RECOMPILEATTEMPTS=*__LONG_OPEXARRAY_RECOMPILEATTEMPTS+ 1 ; +if(!qbevent)break;evnt(10611);}while(r); +do{ +goto LABEL_DO_RECOMPILE; +if(!qbevent)break;evnt(10612);}while(r); +} +} +do{ +qbs_set(__STRING_L,qbs_add(FUNC_SCASE(qbs_new_txt_len("Option",6)),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10616);}while(r); +S_13189:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_E,qbs_new_txt_len("EXPLICITARRAY",13))))||new_error){ +if(qbevent){evnt(10617);if(r)goto S_13189;} +do{ +qbs_set(__STRING_L,qbs_add(__STRING_L,FUNC_SCASE(qbs_new_txt_len("ExplicitArray",13)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10617);}while(r); +}else{ +do{ +qbs_set(__STRING_L,qbs_add(__STRING_L,FUNC_SCASE(qbs_new_txt_len("_ExplicitArray",14)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10617);}while(r); +} +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(10618);}while(r); +S_13195:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(10618);if(r)goto S_13195;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10618);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10618);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(10619);}while(r); +sc_ec_35_end:; +goto sc_1554_end; +} +S_13202:; +if ((-(*__BYTE_OPTIONEXPLICIT== 0 ))||new_error){ +if(qbevent){evnt(10621);if(r)goto S_13202;} +do{ +qbs_set(__STRING_E,qbs_add(qbs_add(qbs_new_txt_len(" or OPTION ",11),__STRING_QB64PREFIX),qbs_new_txt_len("EXPLICIT",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10621);}while(r); +}else{ +do{ +qbs_set(__STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10621);}while(r); +} +S_13207:; +if ((-(*__BYTE_OPTIONEXPLICITARRAY== 0 ))||new_error){ +if(qbevent){evnt(10622);if(r)goto S_13207;} +do{ +qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(__STRING_E,qbs_new_txt_len(" or OPTION ",11)),__STRING_QB64PREFIX),qbs_new_txt_len("EXPLICITARRAY",13))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10622);}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(10623);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10623);}while(r); +sc_1554_end:; +} +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(10629);}while(r); +do{ +*__LONG_TARGETID=*__LONG_CURRENTID; +if(!qbevent)break;evnt(10631);}while(r); +S_13216:; +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))))||new_error){ +if(qbevent){evnt(10633);if(r)goto S_13216;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Command not implemented",23)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10633);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10633);}while(r); +} +S_13220:; +if ((-(*__LONG_N> 1 ))||new_error){ +if(qbevent){evnt(10635);if(r)goto S_13220;} +S_13221:; +if ((-(*(int16*)(((char*)__UDT_ID2)+(809))== 0 ))||new_error){ +if(qbevent){evnt(10636);if(r)goto S_13221;} +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(10636);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10636);}while(r); +} +} +do{ +SUB_SETDEPENDENCY(&(pass1559=*(int16*)(((char*)__UDT_ID2)+(546)))); +if(!qbevent)break;evnt(10639);}while(r); +do{ +*__LONG_SEPERATEARGS_ERROR= 0 ; +if(!qbevent)break;evnt(10641);}while(r); +do{ +*__LONG_PASSEDNEEDED=FUNC_SEPERATEARGS(FUNC_GETELEMENTS(__STRING_A,&(pass1560= 2 ),__LONG_N),FUNC_GETELEMENTS(__STRING_CA,&(pass1561= 2 ),__LONG_N),__LONG_PASSED); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10642);}while(r); +S_13229:; +if ((*__LONG_SEPERATEARGS_ERROR)||new_error){ +if(qbevent){evnt(10643);if(r)goto S_13229;} +do{ +qbs_set(__STRING_A,__STRING_SEPERATEARGS_ERROR_MESSAGE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10643);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10643);}while(r); +} +S_13233:; +fornext_value1563= 1 ; +fornext_finalvalue1563=*__LONG_OPTMAX; +fornext_step1563= 1 ; +if (fornext_step1563<0) fornext_step_negative1563=1; else fornext_step_negative1563=0; +if (new_error) 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_value1563fornext_finalvalue1563) break; +} +fornext_error1563:; +if(qbevent){evnt(10646);if(r)goto S_13233;} +do{ +tmp_long=array_check((*__LONG_I)-__ARRAY_STRING_SEPARGS2[4],__ARRAY_STRING_SEPARGS2[5]); +if (!new_error) 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(10646);}while(r); +fornext_continue_1562:; +} +fornext_exit_1562:; +S_13236:; +fornext_value1565= 1 ; +fornext_finalvalue1565=*__LONG_OPTMAX+ 1 ; +fornext_step1565= 1 ; +if (fornext_step1565<0) fornext_step_negative1565=1; else fornext_step_negative1565=0; +if (new_error) goto fornext_error1565; +goto fornext_entrylabel1565; +while(1){ +fornext_value1565=fornext_step1565+(*__LONG_I); +fornext_entrylabel1565: +*__LONG_I=fornext_value1565; +if (fornext_step_negative1565){ +if (fornext_value1565fornext_finalvalue1565) break; +} +fornext_error1565:; +if(qbevent){evnt(10647);if(r)goto S_13236;} +do{ +tmp_long=array_check((*__LONG_I)-__ARRAY_STRING_SEPARGSLAYOUT2[4],__ARRAY_STRING_SEPARGSLAYOUT2[5]); +if (!new_error) 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(10647);}while(r); +fornext_continue_1564:; +} +fornext_exit_1564:; +S_13239:; +fornext_value1567= 1 ; +fornext_finalvalue1567=*(int16*)(((char*)__UDT_ID2)+(809)); +fornext_step1567= 1 ; +if (fornext_step1567<0) fornext_step_negative1567=1; else fornext_step_negative1567=0; +if (new_error) goto fornext_error1567; +goto fornext_entrylabel1567; +while(1){ +fornext_value1567=fornext_step1567+(*__LONG_I); +fornext_entrylabel1567: +*__LONG_I=fornext_value1567; +if (fornext_step_negative1567){ +if (fornext_value1567fornext_finalvalue1567) break; +} +fornext_error1567:; +if(qbevent){evnt(10648);if(r)goto S_13239;} +do{ +tmp_long=array_check((*__LONG_I)-__ARRAY_STRING_SEPARGS2[4],__ARRAY_STRING_SEPARGS2[5]); +if (!new_error) 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(10648);}while(r); +fornext_continue_1566:; +} +fornext_exit_1566:; +S_13242:; +fornext_value1569= 1 ; +fornext_finalvalue1569=*(int16*)(((char*)__UDT_ID2)+(809))+ 1 ; +fornext_step1569= 1 ; +if (fornext_step1569<0) fornext_step_negative1569=1; else fornext_step_negative1569=0; +if (new_error) goto fornext_error1569; +goto fornext_entrylabel1569; +while(1){ +fornext_value1569=fornext_step1569+(*__LONG_I); +fornext_entrylabel1569: +*__LONG_I=fornext_value1569; +if (fornext_step_negative1569){ +if (fornext_value1569fornext_finalvalue1569) break; +} +fornext_error1569:; +if(qbevent){evnt(10649);if(r)goto S_13242;} +do{ +tmp_long=array_check((*__LONG_I)-__ARRAY_STRING_SEPARGSLAYOUT2[4],__ARRAY_STRING_SEPARGSLAYOUT2[5]); +if (!new_error) 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(10649);}while(r); +fornext_continue_1568:; +} +fornext_exit_1568:; +S_13245:; +if (( 0 )||new_error){ +if(qbevent){evnt(10653);if(r)goto S_13245;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip1570; +sub_file_print(tmp_fileno,qbs_new_txt_len("separgs:",8), 0, 0, 1); +if (new_error) goto skip1570; +skip1570: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(10654);}while(r); +S_13247:; +fornext_value1572= 1 ; +fornext_finalvalue1572=*(int16*)(((char*)__UDT_ID2)+(809)); +fornext_step1572= 1 ; +if (fornext_step1572<0) fornext_step_negative1572=1; else fornext_step_negative1572=0; +if (new_error) 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_value1572fornext_finalvalue1572) break; +} +fornext_error1572:; +if(qbevent){evnt(10654);if(r)goto S_13247;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip1573; +sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_I)), 1, 1, 0); +if (new_error) goto skip1573; +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 (new_error) goto skip1573; +skip1573: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(10654);}while(r); +fornext_continue_1571:; +} +fornext_exit_1571:; +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip1574; +sub_file_print(tmp_fileno,qbs_new_txt_len("separgslayout:",14), 0, 0, 1); +if (new_error) goto skip1574; +skip1574: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(10655);}while(r); +S_13251:; +fornext_value1576= 1 ; +fornext_finalvalue1576=*(int16*)(((char*)__UDT_ID2)+(809))+ 1 ; +fornext_step1576= 1 ; +if (fornext_step1576<0) fornext_step_negative1576=1; else fornext_step_negative1576=0; +if (new_error) goto fornext_error1576; +goto fornext_entrylabel1576; +while(1){ +fornext_value1576=fornext_step1576+(*__LONG_I); +fornext_entrylabel1576: +*__LONG_I=fornext_value1576; +if (fornext_step_negative1576){ +if (fornext_value1576fornext_finalvalue1576) break; +} +fornext_error1576:; +if(qbevent){evnt(10655);if(r)goto S_13251;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip1577; +sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_I)), 1, 1, 0); +if (new_error) goto skip1577; +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 (new_error) goto skip1577; +skip1577: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(10655);}while(r); +fornext_continue_1575:; +} +fornext_exit_1575:; +} +S_13255:; +if ((*__LONG_USECALL)||new_error){ +if(qbevent){evnt(10667);if(r)goto S_13255;} +S_13256:; +if ((*(int16*)(((char*)__UDT_ID)+(548)))||new_error){ +if(qbevent){evnt(10668);if(r)goto S_13256;} +S_13257:; +if ((-(*__LONG_USECALL== 1 ))||new_error){ +if(qbevent){evnt(10669);if(r)goto S_13257;} +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(10669);}while(r); +} +S_13260:; +if ((-(*__LONG_USECALL== 2 ))||new_error){ +if(qbevent){evnt(10670);if(r)goto S_13260;} +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(10670);}while(r); +} +}else{ +S_13264:; +if ((-(*__LONG_USECALL== 1 ))||new_error){ +if(qbevent){evnt(10672);if(r)goto S_13264;} +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(10672);}while(r); +} +S_13267:; +if ((-(*__LONG_USECALL== 2 ))||new_error){ +if(qbevent){evnt(10673);if(r)goto S_13267;} +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(10673);}while(r); +} +} +}else{ +S_13272:; +if ((*(int16*)(((char*)__UDT_ID)+(548)))||new_error){ +if(qbevent){evnt(10676);if(r)goto S_13272;} +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(10677);}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(10679);}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(10683);}while(r); +do{ +*__LONG_ADDEDLAYOUT= 0 ; +if(!qbevent)break;evnt(10684);}while(r); +do{ +*__LONG_FIELDCALL= 0 ; +if(!qbevent)break;evnt(10686);}while(r); +S_13281:; +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)))))||new_error){ +if(qbevent){evnt(10688);if(r)goto S_13281;} +S_13282:; +if ((*__LONG_PASSED& 2 )||new_error){ +if(qbevent){evnt(10689);if(r)goto S_13282;} +do{ +*__LONG_PASSED=*__LONG_PASSED- 2 ; +if(!qbevent)break;evnt(10691);}while(r); +}else{ +S_13285:; +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))))||new_error){ +if(qbevent){evnt(10694);if(r)goto S_13285;} +do{ +*__LONG_FIELDCALL= 1 ; +if(!qbevent)break;evnt(10695);}while(r); +do{ +qbs_set(__STRING_SUBCALL,qbs_new_txt_len("field_get(",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10696);}while(r); +}else{ +do{ +*__LONG_FIELDCALL= 2 ; +if(!qbevent)break;evnt(10698);}while(r); +do{ +qbs_set(__STRING_SUBCALL,qbs_new_txt_len("field_put(",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10699);}while(r); +} +} +} +S_13294:; +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)))))||new_error){ +if(qbevent){evnt(10704);if(r)goto S_13294;} +S_13295:; +if ((-(*__LONG_USECALL== 0 ))||new_error){ +if(qbevent){evnt(10705);if(r)goto S_13295;} +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(10706);}while(r); +} +} +S_13299:; +fornext_value1580= 1 ; +fornext_finalvalue1580=*(int16*)(((char*)__UDT_ID2)+(809)); +fornext_step1580= 1 ; +if (fornext_step1580<0) fornext_step_negative1580=1; else fornext_step_negative1580=0; +if (new_error) goto fornext_error1580; +goto fornext_entrylabel1580; +while(1){ +fornext_value1580=fornext_step1580+(*__LONG_I); +fornext_entrylabel1580: +*__LONG_I=fornext_value1580; +if (fornext_step_negative1580){ +if (fornext_value1580fornext_finalvalue1580) break; +} +fornext_error1580:; +if(qbevent){evnt(10710);if(r)goto S_13299;} +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(10711);}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(10712);}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(10713);}while(r); +do{ +*__LONG_ADDLAYOUT= 1 ; +if(!qbevent)break;evnt(10715);}while(r); +do{ +*__LONG_CONVERTSPACING= 0 ; +if(!qbevent)break;evnt(10716);}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(10717);}while(r); +S_13306:; +while((qbs_cleanup(qbs_tmp_base,__STRING_X->len))||new_error){ +if(qbevent){evnt(10718);if(r)goto S_13306;} +do{ +*__LONG_X=qbs_asc(__STRING_X); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10719);}while(r); +S_13308:; +if ((*__LONG_X)||new_error){ +if(qbevent){evnt(10720);if(r)goto S_13308;} +do{ +*__LONG_CONVERTSPACING= 0 ; +if(!qbevent)break;evnt(10721);}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(10722);}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(10723);}while(r); +do{ +*__LONG_S= 0 ; +if(!qbevent)break;evnt(10725);}while(r); +do{ +*__LONG_AN= 0 ; +if(!qbevent)break;evnt(10726);}while(r); +do{ +qbs_set(__STRING_X3,qbs_right(__STRING_L, 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10727);}while(r); +S_13315:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X3,__STRING1_SP)))||new_error){ +if(qbevent){evnt(10728);if(r)goto S_13315;} +do{ +*__LONG_S= 1 ; +if(!qbevent)break;evnt(10728);}while(r); +} +S_13318:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X3,__STRING1_SP2)))||new_error){ +if(qbevent){evnt(10729);if(r)goto S_13318;} +do{ +*__LONG_S= 2 ; +if(!qbevent)break;evnt(10730);}while(r); +S_13320:; +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])]))||new_error){ +if(qbevent){evnt(10731);if(r)goto S_13320;} +do{ +*__LONG_AN= 1 ; +if(!qbevent)break;evnt(10731);}while(r); +} +}else{ +S_13324:; +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])]))||new_error){ +if(qbevent){evnt(10733);if(r)goto S_13324;} +do{ +*__LONG_AN= 1 ; +if(!qbevent)break;evnt(10733);}while(r); +} +} +do{ +*__LONG_S1=*__LONG_S; +if(!qbevent)break;evnt(10735);}while(r); +S_13329:; +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])]))||new_error){ +if(qbevent){evnt(10737);if(r)goto S_13329;} +do{ +*__LONG_CONVERTSPACING= 1 ; +if(!qbevent)break;evnt(10737);}while(r); +} +S_13332:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X2,qbs_new_txt_len("LPRINT",6))))||new_error){ +if(qbevent){evnt(10740);if(r)goto S_13332;} +} +S_13334:; +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 ))))||new_error){ +if(qbevent){evnt(10764);if(r)goto S_13334;} +do{ +*__LONG_S= 1 ; +if(!qbevent)break;evnt(10768);}while(r); +do{ +qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10769);}while(r); +do{ +goto LABEL_CUSTOMLAYCHAR; +if(!qbevent)break;evnt(10770);}while(r); +} +S_13339:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X2,qbs_new_txt_len("=",1))))||new_error){ +if(qbevent){evnt(10773);if(r)goto S_13339;} +do{ +*__LONG_S= 1 ; +if(!qbevent)break;evnt(10774);}while(r); +do{ +qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10775);}while(r); +do{ +goto LABEL_CUSTOMLAYCHAR; +if(!qbevent)break;evnt(10776);}while(r); +} +S_13344:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X2,qbs_new_txt_len("#",1))))||new_error){ +if(qbevent){evnt(10779);if(r)goto S_13344;} +do{ +*__LONG_S= 1 ; +if(!qbevent)break;evnt(10780);}while(r); +do{ +qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10781);}while(r); +do{ +goto LABEL_CUSTOMLAYCHAR; +if(!qbevent)break;evnt(10782);}while(r); +} +S_13349:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X2,qbs_new_txt_len(",",1))))||new_error){ +if(qbevent){evnt(10785);if(r)goto S_13349;} +do{ +qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10785);}while(r); +do{ +goto LABEL_CUSTOMLAYCHAR; +if(!qbevent)break;evnt(10785);}while(r); +} +S_13353:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X,func_chr( 0 ))))||new_error){ +if(qbevent){evnt(10788);if(r)goto S_13353;} +S_13354:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X2,qbs_new_txt_len("STEP",4))))||new_error){ +if(qbevent){evnt(10789);if(r)goto S_13354;} +do{ +qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10789);}while(r); +do{ +goto LABEL_CUSTOMLAYCHAR; +if(!qbevent)break;evnt(10789);}while(r); +} +do{ +qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10790);}while(r); +do{ +goto LABEL_CUSTOMLAYCHAR; +if(!qbevent)break;evnt(10790);}while(r); +} +do{ +qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10794);}while(r); +LABEL_CUSTOMLAYCHAR:; +if(qbevent){evnt(10800);r=0;} +S_13362:; +if ((-(*__LONG_S== 0 ))||new_error){ +if(qbevent){evnt(10801);if(r)goto S_13362;} +do{ +*__LONG_S= 2 ; +if(!qbevent)break;evnt(10801);}while(r); +} +S_13365:; +if ((-(*__LONG_S!=*__LONG_S1))||new_error){ +if(qbevent){evnt(10802);if(r)goto S_13365;} +S_13366:; +if ((*__LONG_S1)||new_error){ +if(qbevent){evnt(10803);if(r)goto S_13366;} +do{ +qbs_set(__STRING_L,qbs_left(__STRING_L,__STRING_L->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10803);}while(r); +} +S_13369:; +if ((-(*__LONG_S== 1 ))||new_error){ +if(qbevent){evnt(10804);if(r)goto S_13369;} +do{ +qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10804);}while(r); +} +S_13372:; +if ((-(*__LONG_S== 2 ))||new_error){ +if(qbevent){evnt(10805);if(r)goto S_13372;} +do{ +qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING1_SP2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10805);}while(r); +} +} +S_13376:; +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))))))||new_error){ +if(qbevent){evnt(10808);if(r)goto S_13376;} +S_13377:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_X2,(qbs_add(qbs_new_txt_len(")",1),__STRING1_SP2)))))||new_error){ +if(qbevent){evnt(10809);if(r)goto S_13377;} +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(10810);}while(r); +} +} +do{ +qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_X2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10814);}while(r); +}else{ +do{ +*__LONG_ADDLAYOUT= 0 ; +if(!qbevent)break;evnt(10817);}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(10818);}while(r); +} +do{ +*__LONG_ADDEDLAYOUT= 0 ; +if(!qbevent)break;evnt(10820);}while(r); +dl_continue_1582:; +} +dl_exit_1582:; +S_13388:; +if ((-(*__LONG_TARGETTYP== -3 ))||new_error){ +if(qbevent){evnt(10829);if(r)goto S_13388;} +S_13389:; +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))))||new_error){ +if(qbevent){evnt(10830);if(r)goto S_13389;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected array name",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10830);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10830);}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(10832);}while(r); +S_13394:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,__STRING_E,__STRING1_SP,0)== 0 )))||new_error){ +if(qbevent){evnt(10834);if(r)goto S_13394;} +do{ +qbs_set(__STRING_TRY_STRING,__STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10835);}while(r); +do{ +*__LONG_TRY=FUNC_FINDID(__STRING_TRY_STRING); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10836);}while(r); +S_13397:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10837);if(r)goto S_13397;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10837);}while(r); +} +S_13400:; +do{ +if(qbevent){evnt(10838);if(r)goto S_13400;} +S_13401:; +if ((*__LONG_TRY)||new_error){ +if(qbevent){evnt(10839);if(r)goto S_13401;} +S_13402:; +if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ +if(qbevent){evnt(10840);if(r)goto S_13402;} +S_13403:; +if ((-((*(int32*)(((char*)__UDT_ID)+(512))&*__LONG_ISSTRING)== 0 ))||new_error){ +if(qbevent){evnt(10841);if(r)goto S_13403;} +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(10842);}while(r); +do{ +goto dl_exit_1587; +if(!qbevent)break;evnt(10843);}while(r); +} +} +S_13408:; +if ((-(*__LONG_TRY== 2 ))||new_error){ +if(qbevent){evnt(10847);if(r)goto S_13408;} +do{ +*__INTEGER_FINDANOTHERID= 1 ; +if(!qbevent)break;evnt(10847);}while(r); +do{ +*__LONG_TRY=FUNC_FINDID(__STRING_TRY_STRING); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10847);}while(r); +}else{ +do{ +*__LONG_TRY= 0 ; +if(!qbevent)break;evnt(10847);}while(r); +} +S_13414:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10848);if(r)goto S_13414;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10848);}while(r); +} +} +S_13418:; +if ((-(*__LONG_TRY== 0 ))||new_error){ +if(qbevent){evnt(10850);if(r)goto S_13418;} +S_13419:; +if ((qbs_cleanup(qbs_tmp_base,-(((int32)(FUNC_REMOVESYMBOL(__STRING_TRY_STRING))->len)== 0 )))||new_error){ +if(qbevent){evnt(10851);if(r)goto S_13419;} +S_13420:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10852);if(r)goto S_13420;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10852);}while(r); +} +do{ +*__LONG_A=qbs_asc(__STRING_TRY_STRING); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10853);}while(r); +S_13424:; +if (((-(*__LONG_A>= 97 ))&(-(*__LONG_A<= 122 )))||new_error){ +if(qbevent){evnt(10854);if(r)goto S_13424;} +do{ +*__LONG_A=*__LONG_A- 32 ; +if(!qbevent)break;evnt(10854);}while(r); +} +S_13427:; +if ((-(*__LONG_A== 95 ))||new_error){ +if(qbevent){evnt(10855);if(r)goto S_13427;} +do{ +*__LONG_A= 91 ; +if(!qbevent)break;evnt(10855);}while(r); +} +do{ +*__LONG_A=*__LONG_A- 64 ; +if(!qbevent)break;evnt(10856);}while(r); +S_13431:; +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))||new_error){ +if(qbevent){evnt(10857);if(r)goto S_13431;} +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(10857);}while(r); +do{ +*__LONG_TRY=FUNC_FINDID(__STRING_TRY_STRING); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10857);}while(r); +} +S_13435:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10858);if(r)goto S_13435;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10858);}while(r); +} +} +} +S_13440:; +dl_continue_1587:; +}while((!(-(*__LONG_TRY== 0 )))&&(!new_error)); +dl_exit_1587:; +if(qbevent){evnt(10861);if(r)goto S_13440;} +} +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10866);}while(r); +S_13443:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10867);if(r)goto S_13443;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10867);}while(r); +} +S_13446:; +if (((-(*__LONG_CONVERTSPACING== 1 ))&(-(*__LONG_ADDLAYOUT== 1 )))||new_error){ +if(qbevent){evnt(10868);if(r)goto S_13446;} +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(10868);}while(r); +} +S_13449:; +if ((*__LONG_ADDLAYOUT)||new_error){ +if(qbevent){evnt(10869);if(r)goto S_13449;} +do{ +qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10869);}while(r); +do{ +*__LONG_ADDEDLAYOUT= 1 ; +if(!qbevent)break;evnt(10869);}while(r); +} +do{ +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1590= -2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10870);}while(r); +S_13454:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10871);if(r)goto S_13454;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10871);}while(r); +} +do{ +goto LABEL_SETE; +if(!qbevent)break;evnt(10872);}while(r); +} +S_13459:; +if ((-(*__LONG_TARGETTYP== -2 ))||new_error){ +if(qbevent){evnt(10876);if(r)goto S_13459;} +do{ +qbs_set(__STRING_E,FUNC_FIXOPERATIONORDER(__STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10877);}while(r); +S_13461:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10878);if(r)goto S_13461;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10878);}while(r); +} +S_13464:; +if (((-(*__LONG_CONVERTSPACING== 1 ))&(-(*__LONG_ADDLAYOUT== 1 )))||new_error){ +if(qbevent){evnt(10879);if(r)goto S_13464;} +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(10879);}while(r); +} +S_13467:; +if ((*__LONG_ADDLAYOUT)||new_error){ +if(qbevent){evnt(10880);if(r)goto S_13467;} +do{ +qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10880);}while(r); +do{ +*__LONG_ADDEDLAYOUT= 1 ; +if(!qbevent)break;evnt(10880);}while(r); +} +do{ +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1592= -2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10881);}while(r); +S_13472:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10882);if(r)goto S_13472;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10882);}while(r); +} +do{ +goto LABEL_SETE; +if(!qbevent)break;evnt(10883);}while(r); +} +S_13477:; +if ((-(*__LONG_TARGETTYP== -4 ))||new_error){ +if(qbevent){evnt(10886);if(r)goto S_13477;} +S_13478:; +if ((*__LONG_FIELDCALL)||new_error){ +if(qbevent){evnt(10888);if(r)goto S_13478;} +do{ +*__LONG_I=*(int16*)(((char*)__UDT_ID2)+(809))+ 1 ; +if(!qbevent)break;evnt(10889);}while(r); +do{ +goto fornext_exit_1579; +if(!qbevent)break;evnt(10890);}while(r); +} +S_13482:; +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))))||new_error){ +if(qbevent){evnt(10893);if(r)goto S_13482;} +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(10893);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10893);}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(10894);}while(r); +S_13487:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10895);if(r)goto S_13487;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10895);}while(r); +} +S_13490:; +if (((-(*__LONG_CONVERTSPACING== 1 ))&(-(*__LONG_ADDLAYOUT== 1 )))||new_error){ +if(qbevent){evnt(10896);if(r)goto S_13490;} +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(10896);}while(r); +} +S_13493:; +if ((*__LONG_ADDLAYOUT)||new_error){ +if(qbevent){evnt(10897);if(r)goto S_13493;} +do{ +qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10897);}while(r); +do{ +*__LONG_ADDEDLAYOUT= 1 ; +if(!qbevent)break;evnt(10897);}while(r); +} +S_13497:; +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)))))||new_error){ +if(qbevent){evnt(10900);if(r)goto S_13497;} +do{ +qbs_set(__STRING_E2,__STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10901);}while(r); +do{ +qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E,__LONG_SOURCETYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10902);}while(r); +S_13500:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10903);if(r)goto S_13500;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10903);}while(r); +} +S_13503:; +if (((*__LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(10904);if(r)goto S_13503;} +S_13504:; +if ((-((*__LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ +if(qbevent){evnt(10905);if(r)goto S_13504;} +do{ +qbs_set(__STRING_SUBCALL,qbs_right(__STRING_SUBCALL,__STRING_SUBCALL->len- 7 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10907);}while(r); +S_13506:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("GET",3))))||new_error){ +if(qbevent){evnt(10909);if(r)goto S_13506;} +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(10910);}while(r); +do{ +qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_SOURCETYP,&(pass1595= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10911);}while(r); +S_13509:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10912);if(r)goto S_13509;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10912);}while(r); +} +do{ +goto LABEL_SETE; +if(!qbevent)break;evnt(10913);}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(10915);}while(r); +} +} +} +do{ +qbs_set(__STRING_E,__STRING_E2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10920);}while(r); +} +do{ +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(__STRING_E,&(pass1596= -4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10923);}while(r); +S_13521:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10924);if(r)goto S_13521;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10924);}while(r); +} +do{ +goto LABEL_SETE; +if(!qbevent)break;evnt(10925);}while(r); +} +S_13526:; +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))))||new_error){ +if(qbevent){evnt(10928);if(r)goto S_13526;} +do{ +qbs_set(__STRING_E,qbs_new_txt_len("NULL",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10929);}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(10932);}while(r); +S_13530:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10933);if(r)goto S_13530;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10933);}while(r); +} +S_13533:; +if (((-(*__LONG_CONVERTSPACING== 1 ))&(-(*__LONG_ADDLAYOUT== 1 )))||new_error){ +if(qbevent){evnt(10934);if(r)goto S_13533;} +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(10934);}while(r); +} +S_13536:; +if ((*__LONG_ADDLAYOUT)||new_error){ +if(qbevent){evnt(10935);if(r)goto S_13536;} +do{ +qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10935);}while(r); +do{ +*__LONG_ADDEDLAYOUT= 1 ; +if(!qbevent)break;evnt(10935);}while(r); +} +do{ +qbs_set(__STRING_E,FUNC_EVALUATE(__STRING_E2,__LONG_SOURCETYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10937);}while(r); +S_13541:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10938);if(r)goto S_13541;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10938);}while(r); +} +S_13544:; +if ((*__LONG_SOURCETYP&*__LONG_ISOFFSET)||new_error){ +if(qbevent){evnt(10940);if(r)goto S_13544;} +S_13545:; +if ((-((*__LONG_TARGETTYP&*__LONG_ISOFFSET)== 0 ))||new_error){ +if(qbevent){evnt(10941);if(r)goto S_13545;} +S_13546:; +if ((-(*(int16*)(((char*)__UDT_ID2)+(548))== 0 ))||new_error){ +if(qbevent){evnt(10942);if(r)goto S_13546;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Cannot convert _OFFSET type to other types",42)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10942);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10942);}while(r); +} +} +} +S_13552:; +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))))||new_error){ +if(qbevent){evnt(10946);if(r)goto S_13552;} +S_13553:; +if ((-(*__LONG_I== 3 ))||new_error){ +if(qbevent){evnt(10947);if(r)goto S_13553;} +S_13554:; +if (((*__LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(10948);if(r)goto S_13554;} +do{ +*__LONG_TARGETTYP=*__LONG_ISSTRING; +if(!qbevent)break;evnt(10949);}while(r); +} +} +} +S_13559:; +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)))))||new_error){ +if(qbevent){evnt(10954);if(r)goto S_13559;} +do{ +*__LONG_DEREFERENCE= 1 ; +if(!qbevent)break;evnt(10954);}while(r); +}else{ +do{ +*__LONG_DEREFERENCE= 0 ; +if(!qbevent)break;evnt(10954);}while(r); +} +S_13564:; +if (((*__LONG_TARGETTYP&*__LONG_ISPOINTER))||new_error){ +if(qbevent){evnt(10957);if(r)goto S_13564;} +S_13565:; +if ((-(*__LONG_DEREFERENCE== 0 ))||new_error){ +if(qbevent){evnt(10958);if(r)goto S_13565;} +S_13566:; +if (((*__LONG_TARGETTYP&*__LONG_ISARRAY))||new_error){ +if(qbevent){evnt(10961);if(r)goto S_13566;} +S_13567:; +if ((-((*__LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||new_error){ +if(qbevent){evnt(10962);if(r)goto S_13567;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected arrayname()",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10962);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10962);}while(r); +} +S_13571:; +if ((-((*__LONG_SOURCETYP&*__LONG_ISARRAY)== 0 ))||new_error){ +if(qbevent){evnt(10963);if(r)goto S_13571;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected arrayname()",20)); +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_13575:; +if (( 0 )||new_error){ +if(qbevent){evnt(10964);if(r)goto S_13575;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip1598; +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 (new_error) goto skip1598; +skip1598: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(10964);}while(r); +} +do{ +*__LONG_TARGETTYP2=*__LONG_TARGETTYP; +if(!qbevent)break;evnt(10967);}while(r); +do{ +*__LONG_SOURCETYP2=*__LONG_SOURCETYP; +if(!qbevent)break;evnt(10967);}while(r); +do{ +*__LONG_TARGETTYP2=*__LONG_TARGETTYP2&( 511 +*__LONG_ISOFFSETINBITS+*__LONG_ISUDT+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH+*__LONG_ISFLOAT); +if(!qbevent)break;evnt(10968);}while(r); +do{ +*__LONG_SOURCETYP2=*__LONG_SOURCETYP2&( 511 +*__LONG_ISOFFSETINBITS+*__LONG_ISUDT+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH+*__LONG_ISFLOAT); +if(!qbevent)break;evnt(10969);}while(r); +S_13582:; +if ((-(*__LONG_SOURCETYP2!=*__LONG_TARGETTYP2))||new_error){ +if(qbevent){evnt(10970);if(r)goto S_13582;} +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(10970);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10970);}while(r); +} +S_13586:; +if ((*__LONG_TARGETTYP&*__LONG_ISUDT)||new_error){ +if(qbevent){evnt(10973);if(r)goto S_13586;} +S_13587:; +if (( 0 )||new_error){ +if(qbevent){evnt(10974);if(r)goto S_13587;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip1599; +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 (new_error) goto skip1599; +skip1599: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(10974);}while(r); +} +do{ +*__LONG_UDTREFID=qbr(func_val(__STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10976);}while(r); +do{ +SUB_GETID(__LONG_UDTREFID); +if(!qbevent)break;evnt(10977);}while(r); +S_13592:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10978);if(r)goto S_13592;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10978);}while(r); +} +do{ +*__LONG_UDTREFI=func_instr(NULL,__STRING_E,__STRING1_SP3,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10979);}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(10980);}while(r); +do{ +*__LONG_UDTREFU=qbr(func_val(func_mid(__STRING_E,*__LONG_UDTREFI+ 1 ,*__LONG_UDTREFI2-*__LONG_UDTREFI- 1 ,0|1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10981);}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(10982);}while(r); +do{ +*__LONG_UDTREFE=qbr(func_val(func_mid(__STRING_E,*__LONG_UDTREFI2+ 1 ,*__LONG_UDTREFI3-*__LONG_UDTREFI2- 1 ,0|1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10983);}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(10984);}while(r); +S_13601:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(__STRING_O, 4 ),qbs_new_txt_len("(0)*",4))))||new_error){ +if(qbevent){evnt(10986);if(r)goto S_13601;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected arrayname()",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10986);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10986);}while(r); +} +}else{ +S_13606:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal((qbs_right(__STRING_E, 2 )),(qbs_add(__STRING1_SP3,qbs_new_txt_len("0",1))))))||new_error){ +if(qbevent){evnt(10988);if(r)goto S_13606;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected arrayname()",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10988);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10988);}while(r); +} +} +do{ +*__LONG_IDNUM=qbr(func_val(qbs_left(__STRING_E,func_instr(NULL,__STRING_E,__STRING1_SP3,0)- 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(10991);}while(r); +do{ +SUB_GETID(__LONG_IDNUM); +if(!qbevent)break;evnt(10992);}while(r); +S_13613:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(10993);if(r)goto S_13613;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10993);}while(r); +} +S_13616:; +if ((*__LONG_TARGETTYP&*__LONG_ISFIXEDLENGTH)||new_error){ +if(qbevent){evnt(10995);if(r)goto S_13616;} +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(10996);}while(r); +S_13618:; +if ((-(*(int32*)(((char*)__UDT_ID)+(540))!=*__LONG_TARGETTYPSIZE))||new_error){ +if(qbevent){evnt(10997);if(r)goto S_13618;} +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(10997);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(10997);}while(r); +} +} +S_13623:; +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 ))))||new_error){ +if(qbevent){evnt(11000);if(r)goto S_13623;} +S_13624:; +if ((-(((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDNUM)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])]== 0 ))||new_error){ +if(qbevent){evnt(11001);if(r)goto S_13624;} +do{ +tmp_long=array_check((*__LONG_IDNUM)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[tmp_long]= 1 ; +if(!qbevent)break;evnt(11002);}while(r); +do{ +*__INTEGER_RECOMPILE= 1 ; +if(!qbevent)break;evnt(11003);}while(r); +} +} +S_13629:; +if ((-(*(int32*)(((char*)__UDT_ID)+(2847))== 0 ))||new_error){ +if(qbevent){evnt(11007);if(r)goto S_13629;} +S_13630:; +if ((-(*__LONG_NELEREQ== 0 ))||new_error){ +if(qbevent){evnt(11013);if(r)goto S_13630;} +S_13631:; +if ((-(*(int16*)(((char*)__UDT_ID)+(516))> 0 ))||new_error){ +if(qbevent){evnt(11017);if(r)goto S_13631;} +do{ +*__LONG_NELEREQ=*(int16*)(((char*)__UDT_ID)+(516)); +if(!qbevent)break;evnt(11019);}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(11020);}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(11026);}while(r); +}else{ +S_13637:; +if ((-(*(int16*)(((char*)__UDT_ID)+(516))!=*__LONG_NELEREQ))||new_error){ +if(qbevent){evnt(11033);if(r)goto S_13637;} +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(11033);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(11033);}while(r); +} +} +} +do{ +qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_SOURCETYP,&(pass1601= 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11039);}while(r); +S_13644:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(11040);if(r)goto S_13644;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(11040);}while(r); +} +do{ +goto LABEL_SETE; +if(!qbevent)break;evnt(11041);}while(r); +} +S_13649:; +if ((-((*__LONG_TARGETTYP&*__LONG_ISSTRING)== 0 ))||new_error){ +if(qbevent){evnt(11048);if(r)goto S_13649;} +S_13650:; +if (((*__LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ +if(qbevent){evnt(11049);if(r)goto S_13650;} +do{ +*__LONG_IDNUM=qbr(func_val(qbs_left(__STRING_E,func_instr(NULL,__STRING_E,__STRING1_SP3,0)- 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11050);}while(r); +do{ +*__LONG_TARGETTYP2=*__LONG_TARGETTYP; +if(!qbevent)break;evnt(11052);}while(r); +do{ +*__LONG_SOURCETYP2=*__LONG_SOURCETYP; +if(!qbevent)break;evnt(11052);}while(r); +do{ +*__LONG_ARR= 0 ; +if(!qbevent)break;evnt(11055);}while(r); +S_13655:; +if (((*__LONG_SOURCETYP2&*__LONG_ISARRAY))||new_error){ +if(qbevent){evnt(11055);if(r)goto S_13655;} +do{ +*__LONG_ARR= 1 ; +if(!qbevent)break;evnt(11055);}while(r); +} +do{ +*__LONG_PASSUDTELEMENT= 0 ; +if(!qbevent)break;evnt(11056);}while(r); +S_13659:; +if (((-((*__LONG_TARGETTYP2&*__LONG_ISUDT)== 0 ))&(-((*__LONG_SOURCETYP2&*__LONG_ISUDT)!= 0 )))||new_error){ +if(qbevent){evnt(11056);if(r)goto S_13659;} +do{ +*__LONG_PASSUDTELEMENT= 1 ; +if(!qbevent)break;evnt(11056);}while(r); +do{ +*__LONG_SOURCETYP2=*__LONG_SOURCETYP2-*__LONG_ISUDT; +if(!qbevent)break;evnt(11056);}while(r); +} +do{ +*__LONG_TARGETTYP2=*__LONG_TARGETTYP2&( 511 +*__LONG_ISOFFSETINBITS+*__LONG_ISUDT+*__LONG_ISFLOAT+*__LONG_ISSTRING); +if(!qbevent)break;evnt(11059);}while(r); +do{ +*__LONG_SOURCETYP2=*__LONG_SOURCETYP2&( 511 +*__LONG_ISOFFSETINBITS+*__LONG_ISUDT+*__LONG_ISFLOAT+*__LONG_ISSTRING); +if(!qbevent)break;evnt(11060);}while(r); +S_13665:; +if ((-(*__LONG_SOURCETYP2==*__LONG_TARGETTYP2))||new_error){ +if(qbevent){evnt(11063);if(r)goto S_13665;} +S_13666:; +if ((*__LONG_SOURCETYP&*__LONG_ISUDT)||new_error){ +if(qbevent){evnt(11065);if(r)goto S_13666;} +do{ +*__LONG_UDTREFID=qbr(func_val(__STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11069);}while(r); +do{ +SUB_GETID(__LONG_UDTREFID); +if(!qbevent)break;evnt(11070);}while(r); +S_13669:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(11071);if(r)goto S_13669;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(11071);}while(r); +} +do{ +*__LONG_UDTREFI=func_instr(NULL,__STRING_E,__STRING1_SP3,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11072);}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(11073);}while(r); +do{ +*__LONG_UDTREFU=qbr(func_val(func_mid(__STRING_E,*__LONG_UDTREFI+ 1 ,*__LONG_UDTREFI2-*__LONG_UDTREFI- 1 ,0|1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11074);}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(11075);}while(r); +do{ +*__LONG_UDTREFE=qbr(func_val(func_mid(__STRING_E,*__LONG_UDTREFI2+ 1 ,*__LONG_UDTREFI3-*__LONG_UDTREFI2- 1 ,0|1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11076);}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(11077);}while(r); +S_13678:; +if ((*__LONG_ARR)||new_error){ +if(qbevent){evnt(11080);if(r)goto S_13678;} +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(11081);}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(11083);}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(11086);}while(r); +S_13684:; +if ((*__LONG_PASSUDTELEMENT)||new_error){ +if(qbevent){evnt(11089);if(r)goto S_13684;} +do{ +qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(",1),FUNC_TYP2CTYP(&(pass1603=*__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(11089);}while(r); +} +S_13687:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(11090);if(r)goto S_13687;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(11090);}while(r); +} +}else{ +S_13691:; +if ((*__LONG_ARR)||new_error){ +if(qbevent){evnt(11094);if(r)goto S_13691;} +S_13692:; +if (((*__LONG_SOURCETYP2&*__LONG_ISOFFSETINBITS))||new_error){ +if(qbevent){evnt(11095);if(r)goto S_13692;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Cannot pass BIT array offsets",29)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11095);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(11095);}while(r); +} +do{ +qbs_set(__STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(&(",3),FUNC_REFER(__STRING_E,__LONG_SOURCETYP,&(pass1604= 0 ))),qbs_new_txt_len("))",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11096);}while(r); +S_13697:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(11097);if(r)goto S_13697;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(11097);}while(r); +} +}else{ +do{ +qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_SOURCETYP,&(pass1605= 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11099);}while(r); +S_13702:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(11100);if(r)goto S_13702;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(11100);}while(r); +} +} +S_13706:; +if ((-((*__LONG_SOURCETYP&*__LONG_ISUNSIGNED)!=(*__LONG_TARGETTYP&*__LONG_ISUNSIGNED)))||new_error){ +if(qbevent){evnt(11104);if(r)goto S_13706;} +do{ +qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(",1),FUNC_TYP2CTYP(&(pass1606=*__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(11105);}while(r); +S_13708:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(11106);if(r)goto S_13708;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(11106);}while(r); +} +} +} +S_13713:; +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 ))))||new_error){ +if(qbevent){evnt(11111);if(r)goto S_13713;} +S_13714:; +if ((-(((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDNUM)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])]== 0 ))||new_error){ +if(qbevent){evnt(11112);if(r)goto S_13714;} +do{ +tmp_long=array_check((*__LONG_IDNUM)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[tmp_long]= 1 ; +if(!qbevent)break;evnt(11113);}while(r); +do{ +*__INTEGER_RECOMPILE= 1 ; +if(!qbevent)break;evnt(11114);}while(r); +} +} +do{ +goto LABEL_SETE; +if(!qbevent)break;evnt(11118);}while(r); +} +} +}else{ +S_13723:; +if (((*__LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ +if(qbevent){evnt(11123);if(r)goto S_13723;} +do{ +*__LONG_IDNUM=qbr(func_val(qbs_left(__STRING_E,func_instr(NULL,__STRING_E,__STRING1_SP3,0)- 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11124);}while(r); +S_13725:; +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 ))))||new_error){ +if(qbevent){evnt(11125);if(r)goto S_13725;} +S_13726:; +if ((-(((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDNUM)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])]== 0 ))||new_error){ +if(qbevent){evnt(11126);if(r)goto S_13726;} +do{ +tmp_long=array_check((*__LONG_IDNUM)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[tmp_long]= 1 ; +if(!qbevent)break;evnt(11127);}while(r); +do{ +*__INTEGER_RECOMPILE= 1 ; +if(!qbevent)break;evnt(11128);}while(r); +} +} +} +} +} +} +S_13735:; +if ((*__LONG_TARGETTYP&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(11140);if(r)goto S_13735;} +S_13736:; +if ((-((*__LONG_SOURCETYP&*__LONG_ISSTRING)== 0 ))||new_error){ +if(qbevent){evnt(11141);if(r)goto S_13736;} +do{ +*__LONG_NTH=*__LONG_I; +if(!qbevent)break;evnt(11142);}while(r); +S_13738:; +if ((-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+809))== 1 ))||new_error){ +if(qbevent){evnt(11143);if(r)goto S_13738;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("String 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 string",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_13746:; +if ((-((*__LONG_TARGETTYP&*__LONG_ISSTRING)== 0 ))||new_error){ +if(qbevent){evnt(11147);if(r)goto S_13746;} +S_13747:; +if ((*__LONG_SOURCETYP&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(11148);if(r)goto S_13747;} +do{ +*__LONG_NTH=*__LONG_I; +if(!qbevent)break;evnt(11149);}while(r); +S_13749:; +if ((-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+809))== 1 ))||new_error){ +if(qbevent){evnt(11150);if(r)goto S_13749;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Number required for sub",23)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11150);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(11150);}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(11151);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(11151);}while(r); +} +} +S_13757:; +if (((*__LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ +if(qbevent){evnt(11156);if(r)goto S_13757;} +do{ +qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_SOURCETYP,&(pass1607= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11157);}while(r); +S_13759:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(11158);if(r)goto S_13759;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(11158);}while(r); +} +} +S_13763:; +if ((-(*__LONG_EXPLICITREFERENCE== 0 ))||new_error){ +if(qbevent){evnt(11161);if(r)goto S_13763;} +S_13764:; +if ((*__LONG_TARGETTYP&*__LONG_ISUDT)||new_error){ +if(qbevent){evnt(11162);if(r)goto S_13764;} +do{ +*__LONG_NTH=*__LONG_I; +if(!qbevent)break;evnt(11163);}while(r); +S_13766:; +if ((qbs_cleanup(qbs_tmp_base,*__LONG_QB64PREFIX_SET&(qbs_equal(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("_MEM",4)))))||new_error){ +if(qbevent){evnt(11164);if(r)goto S_13766;} +do{ +qbs_set(__STRING_X,qbs_add(qbs_add(qbs_new_txt_len("'",1),func_mid(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)), 2 ,NULL,0)),qbs_new_txt_len("'",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11165);}while(r); +}else{ +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(11167);}while(r); +} +S_13771:; +if ((-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+809))== 1 ))||new_error){ +if(qbevent){evnt(11169);if(r)goto S_13771;} +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(11169);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(11169);}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(11170);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(11170);}while(r); +} +}else{ +S_13779:; +if ((*__LONG_SOURCETYP&*__LONG_ISUDT)||new_error){ +if(qbevent){evnt(11173);if(r)goto S_13779;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Number required for sub",23)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11173);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(11173);}while(r); +} +} +S_13784:; +if (((*__LONG_SOURCETYP&*__LONG_ISFLOAT))||new_error){ +if(qbevent){evnt(11177);if(r)goto S_13784;} +S_13785:; +if ((-((*__LONG_TARGETTYP&*__LONG_ISFLOAT)== 0 ))||new_error){ +if(qbevent){evnt(11178);if(r)goto S_13785;} +do{ +*__LONG_BITS=*__LONG_TARGETTYP& 511 ; +if(!qbevent)break;evnt(11180);}while(r); +S_13787:; +if ((-(*__LONG_BITS<= 16 ))||new_error){ +if(qbevent){evnt(11181);if(r)goto S_13787;} +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(11181);}while(r); +} +S_13790:; +if (((-(*__LONG_BITS> 16 ))&(-(*__LONG_BITS< 32 )))||new_error){ +if(qbevent){evnt(11182);if(r)goto S_13790;} +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(11182);}while(r); +} +S_13793:; +if ((-(*__LONG_BITS>= 32 ))||new_error){ +if(qbevent){evnt(11183);if(r)goto S_13793;} +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(11183);}while(r); +} +} +} +S_13798:; +if (((*__LONG_TARGETTYP&*__LONG_ISPOINTER))||new_error){ +if(qbevent){evnt(11187);if(r)goto S_13798;} +S_13799:; +if (((*__LONG_TARGETTYP&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(11188);if(r)goto S_13799;} +do{ +goto LABEL_SETE; +if(!qbevent)break;evnt(11188);}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(11189);}while(r); +S_13803:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(11190);if(r)goto S_13803;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(11190);}while(r); +} +do{ +qbs_set(__STRING_V,qbs_add(qbs_new_txt_len("pass",4),FUNC_STR2(&(pass1608=FUNC_UNIQUENUMBER())))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11191);}while(r); +S_13807:; +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 ))))||new_error){ +if(qbevent){evnt(11193);if(r)goto S_13807;} +do{ +*__LONG_BYTESREQ=((*__LONG_TARGETTYP& 511 )+ 7 )/ 8 ; +if(!qbevent)break;evnt(11194);}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(11195);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1609=*__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(11196);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1610=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("cmem_sp-=",9),FUNC_STR2(__LONG_BYTESREQ)),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11197);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1611=*__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(11198);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1612=*__LONG_DATATXTBUF),qbs_new_txt_len("if (cmem_spchr",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11231);}while(r); +} +S_13839:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ltrim(qbs_rtrim(__STRING_E)),qbs_new_txt_len("0",1))))||new_error){ +if(qbevent){evnt(11234);if(r)goto S_13839;} +do{ +qbs_set(__STRING_E,qbs_new_txt_len("NULL",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11234);}while(r); +} +} +S_13843:; +if ((-(*__LONG_I!= 1 ))||new_error){ +if(qbevent){evnt(11238);if(r)goto S_13843;} +do{ +qbs_set(__STRING_SUBCALL,qbs_add(__STRING_SUBCALL,qbs_new_txt_len(",",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11238);}while(r); +} +do{ +qbs_set(__STRING_SUBCALL,qbs_add(__STRING_SUBCALL,__STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11239);}while(r); +fornext_continue_1579:; +} +fornext_exit_1579:; +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(11243);}while(r); +S_13849:; +while((qbs_cleanup(qbs_tmp_base,__STRING_X->len))||new_error){ +if(qbevent){evnt(11244);if(r)goto S_13849;} +do{ +*__LONG_X=qbs_asc(__STRING_X); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11245);}while(r); +S_13851:; +if ((*__LONG_X)||new_error){ +if(qbevent){evnt(11246);if(r)goto S_13851;} +do{ +qbs_set(__STRING_X2,func_mid(__STRING_X, 2 ,*__LONG_X,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11247);}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(11248);}while(r); +do{ +*__LONG_S= 0 ; +if(!qbevent)break;evnt(11250);}while(r); +do{ +*__LONG_AN= 0 ; +if(!qbevent)break;evnt(11251);}while(r); +do{ +qbs_set(__STRING_X3,qbs_right(__STRING_L, 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11252);}while(r); +S_13857:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X3,__STRING1_SP)))||new_error){ +if(qbevent){evnt(11253);if(r)goto S_13857;} +do{ +*__LONG_S= 1 ; +if(!qbevent)break;evnt(11253);}while(r); +} +S_13860:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X3,__STRING1_SP2)))||new_error){ +if(qbevent){evnt(11254);if(r)goto S_13860;} +do{ +*__LONG_S= 2 ; +if(!qbevent)break;evnt(11255);}while(r); +S_13862:; +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])]))||new_error){ +if(qbevent){evnt(11256);if(r)goto S_13862;} +do{ +*__LONG_AN= 1 ; +if(!qbevent)break;evnt(11256);}while(r); +} +}else{ +S_13866:; +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])]))||new_error){ +if(qbevent){evnt(11259);if(r)goto S_13866;} +do{ +*__LONG_AN= 1 ; +if(!qbevent)break;evnt(11259);}while(r); +} +} +do{ +*__LONG_S1=*__LONG_S; +if(!qbevent)break;evnt(11262);}while(r); +S_13871:; +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 ))))||new_error){ +if(qbevent){evnt(11264);if(r)goto S_13871;} +do{ +*__LONG_S= 1 ; +if(!qbevent)break;evnt(11265);}while(r); +do{ +qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11266);}while(r); +do{ +goto LABEL_CUSTOMLAYCHAR2; +if(!qbevent)break;evnt(11267);}while(r); +} +S_13876:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X2,qbs_new_txt_len("=",1))))||new_error){ +if(qbevent){evnt(11270);if(r)goto S_13876;} +do{ +*__LONG_S= 1 ; +if(!qbevent)break;evnt(11271);}while(r); +do{ +qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11272);}while(r); +do{ +goto LABEL_CUSTOMLAYCHAR2; +if(!qbevent)break;evnt(11273);}while(r); +} +S_13881:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X2,qbs_new_txt_len("#",1))))||new_error){ +if(qbevent){evnt(11276);if(r)goto S_13881;} +do{ +*__LONG_S= 1 ; +if(!qbevent)break;evnt(11277);}while(r); +do{ +qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11278);}while(r); +do{ +goto LABEL_CUSTOMLAYCHAR2; +if(!qbevent)break;evnt(11279);}while(r); +} +S_13886:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X2,qbs_new_txt_len(",",1))))||new_error){ +if(qbevent){evnt(11282);if(r)goto S_13886;} +do{ +qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11282);}while(r); +do{ +goto LABEL_CUSTOMLAYCHAR2; +if(!qbevent)break;evnt(11282);}while(r); +} +S_13890:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X,func_chr( 0 ))))||new_error){ +if(qbevent){evnt(11284);if(r)goto S_13890;} +S_13891:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_X2,qbs_new_txt_len("STEP",4))))||new_error){ +if(qbevent){evnt(11285);if(r)goto S_13891;} +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(11285);}while(r); +do{ +goto LABEL_CUSTOMLAYCHAR2; +if(!qbevent)break;evnt(11285);}while(r); +} +do{ +qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11286);}while(r); +do{ +goto LABEL_CUSTOMLAYCHAR2; +if(!qbevent)break;evnt(11286);}while(r); +} +do{ +qbs_set(__STRING_X2,qbs_add(__STRING_X2,__STRING1_SP2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11290);}while(r); +LABEL_CUSTOMLAYCHAR2:; +if(qbevent){evnt(11291);r=0;} +S_13899:; +if ((-(*__LONG_S== 0 ))||new_error){ +if(qbevent){evnt(11292);if(r)goto S_13899;} +do{ +*__LONG_S= 2 ; +if(!qbevent)break;evnt(11292);}while(r); +} +S_13902:; +if ((-(*__LONG_S!=*__LONG_S1))||new_error){ +if(qbevent){evnt(11293);if(r)goto S_13902;} +S_13903:; +if ((*__LONG_S1)||new_error){ +if(qbevent){evnt(11294);if(r)goto S_13903;} +do{ +qbs_set(__STRING_L,qbs_left(__STRING_L,__STRING_L->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11294);}while(r); +} +S_13906:; +if ((-(*__LONG_S== 1 ))||new_error){ +if(qbevent){evnt(11295);if(r)goto S_13906;} +do{ +qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11295);}while(r); +} +S_13909:; +if ((-(*__LONG_S== 2 ))||new_error){ +if(qbevent){evnt(11296);if(r)goto S_13909;} +do{ +qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING1_SP2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11296);}while(r); +} +} +do{ +qbs_set(__STRING_L,qbs_add(__STRING_L,__STRING_X2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11298);}while(r); +}else{ +do{ +*__LONG_ADDLAYOUT= 0 ; +if(!qbevent)break;evnt(11301);}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(11302);}while(r); +} +do{ +*__LONG_ADDEDLAYOUT= 0 ; +if(!qbevent)break;evnt(11304);}while(r); +dl_continue_1616:; +} +dl_exit_1616:; +S_13920:; +if ((*__LONG_PASSEDNEEDED)||new_error){ +if(qbevent){evnt(11312);if(r)goto S_13920;} +do{ +qbs_set(__STRING_SUBCALL,qbs_add(qbs_add(__STRING_SUBCALL,qbs_new_txt_len(",",1)),FUNC_STR2(__LONG_PASSED))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11313);}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(11315);}while(r); +S_13924:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("SLEEP",5))))||new_error){ +if(qbevent){evnt(11317);if(r)goto S_13924;} +S_13925:; +if ((-(*__LONG_VWATCHON== 1 ))||new_error){ +if(qbevent){evnt(11318);if(r)goto S_13925;} +do{ +SUB_WRITEBUFLINE(&(pass1620=*__LONG_MAINTXTBUF),qbs_new_txt_len("*__LONG_VWATCH_LINENUMBER= -4; SUB_VWATCH((ptrszint*)vwatch_global_vars,(ptrszint*)vwatch_local_vars);",102)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11319);}while(r); +} +} +do{ +SUB_WRITEBUFLINE(&(pass1621=*__LONG_MAINTXTBUF),__STRING_SUBCALL); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11323);}while(r); +S_13930:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("SLEEP",5))))||new_error){ +if(qbevent){evnt(11325);if(r)goto S_13930;} +S_13931:; +if ((-(*__LONG_VWATCHON== 1 ))||new_error){ +if(qbevent){evnt(11326);if(r)goto S_13931;} +do{ +SUB_WRITEBUFLINE(&(pass1622=*__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(11327);}while(r); +} +} +do{ +qbs_set(__STRING_SUBCALL,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11331);}while(r); +S_13936:; +if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||new_error){ +if(qbevent){evnt(11332);if(r)goto S_13936;} +do{ +SUB_WRITEBUFLINE(&(pass1623=*__LONG_MAINTXTBUF),qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11332);}while(r); +} +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(11334);}while(r); +do{ +qbs_set(__STRING_X,qbs_right(__STRING_L, 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11335);}while(r); +S_13941:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_X,__STRING1_SP))|(qbs_equal(__STRING_X,__STRING1_SP2))))||new_error){ +if(qbevent){evnt(11335);if(r)goto S_13941;} +do{ +qbs_set(__STRING_L,qbs_left(__STRING_L,__STRING_L->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11335);}while(r); +} +S_13944:; +if ((-(*__LONG_USECALL== 1 ))||new_error){ +if(qbevent){evnt(11336);if(r)goto S_13944;} +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(11336);}while(r); +} +S_13947:; +if (( 0 )||new_error){ +if(qbevent){evnt(11337);if(r)goto S_13947;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip1625; +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 (new_error) goto skip1625; +skip1625: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11337);}while(r); +} +S_13950:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||new_error){ +if(qbevent){evnt(11338);if(r)goto S_13950;} +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11338);}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(11338);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(11339);}while(r); +} +S_13957:; +if ((-(*__LONG_TRY== 2 ))||new_error){ +if(qbevent){evnt(11344);if(r)goto S_13957;} +do{ +qbs_set(__STRING_FINDIDSECONDARG,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11345);}while(r); +S_13959:; +if ((-(*__LONG_N>= 2 ))||new_error){ +if(qbevent){evnt(11345);if(r)goto S_13959;} +do{ +qbs_set(__STRING_FINDIDSECONDARG,FUNC_GETELEMENT(__STRING_A,&(pass1627= 2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11345);}while(r); +} +do{ +*__INTEGER_FINDANOTHERID= 1 ; +if(!qbevent)break;evnt(11346);}while(r); +do{ +*__LONG_TRY=FUNC_FINDID(__STRING_FIRSTELEMENT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11347);}while(r); +S_13964:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(11348);if(r)goto S_13964;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(11348);}while(r); +} +}else{ +do{ +*__LONG_TRY= 0 ; +if(!qbevent)break;evnt(11350);}while(r); +} +dl_continue_1456:; +} +dl_exit_1456:; +} +LABEL_NOTSUBCALL:; +if(qbevent){evnt(11356);r=0;} +S_13972:; +if ((-(*__LONG_N>= 1 ))||new_error){ +if(qbevent){evnt(11358);if(r)goto S_13972;} +S_13973:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_FIRSTELEMENT,qbs_new_txt_len("LET",3))))||new_error){ +if(qbevent){evnt(11359);if(r)goto S_13973;} +S_13974:; +if ((-(*__LONG_N== 1 ))||new_error){ +if(qbevent){evnt(11360);if(r)goto S_13974;} +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(11360);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(11360);}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(11361);}while(r); +do{ +*__LONG_N=*__LONG_N- 1 ; +if(!qbevent)break;evnt(11362);}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(11363);}while(r); +S_13981:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(11364);if(r)goto S_13981;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),__STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11364);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11364);}while(r); +} +do{ +goto LABEL_LETUSED; +if(!qbevent)break;evnt(11366);}while(r); +} +} +S_13989:; +if ((-(*__LONG_N>= 3 ))||new_error){ +if(qbevent){evnt(11371);if(r)goto S_13989;} +S_13990:; +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)))||new_error){ +if(qbevent){evnt(11372);if(r)goto S_13990;} +LABEL_LETUSED:; +if(qbevent){evnt(11373);r=0;} +do{ +SUB_ASSIGN(__STRING_CA,__LONG_N); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11374);}while(r); +S_13992:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(11375);if(r)goto S_13992;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(11375);}while(r); +} +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(11376);}while(r); +S_13996:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_LAYOUT->len== 0 )))||new_error){ +if(qbevent){evnt(11377);if(r)goto S_13996;} +do{ +qbs_set(__STRING_LAYOUT,__STRING_TLAYOUT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11377);}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(11377);}while(r); +} +do{ +goto LABEL_FINISHEDLINE; +if(!qbevent)break;evnt(11378);}while(r); +} +} +S_14004:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal((qbs_right(__STRING_A, 2 )),(qbs_add(__STRING1_SP,qbs_new_txt_len("=",1))))))||new_error){ +if(qbevent){evnt(11381);if(r)goto S_14004;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Expected ... = expression",25)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11381);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(11381);}while(r); +} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Syntax error",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11384);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(11384);}while(r); +LABEL_FINISHEDLINE:; +if(qbevent){evnt(11386);r=0;} +do{ +*__LONG_THENGOTO= 0 ; +if(!qbevent)break;evnt(11387);}while(r); +LABEL_FINISHEDLINE2:; +if(qbevent){evnt(11388);r=0;} +S_14011:; +if ((*__BYTE_INPUTFUNCTIONCALLED)||new_error){ +if(qbevent){evnt(11390);if(r)goto S_14011;} +do{ +*__BYTE_INPUTFUNCTIONCALLED= 0 ; +if(!qbevent)break;evnt(11391);}while(r); +S_14013:; +if ((-(*__LONG_VWATCHON== 1 ))||new_error){ +if(qbevent){evnt(11392);if(r)goto S_14013;} +do{ +SUB_WRITEBUFLINE(&(pass1631=*__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(11393);}while(r); +} +} +S_14017:; +if ((-(*__INTEGER_ARRAYPROCESSINGHAPPENED== 1 ))||new_error){ +if(qbevent){evnt(11397);if(r)goto S_14017;} +do{ +*__INTEGER_ARRAYPROCESSINGHAPPENED= 0 ; +if(!qbevent)break;evnt(11397);}while(r); +} +do{ +qbs_set(__STRING_INCLINENUMP,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11399);}while(r); +S_14021:; +if ((((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])||new_error){ +if(qbevent){evnt(11400);if(r)goto S_14021;} +do{ +qbs_set(__STRING_INCLINENUMP,qbs_add(qbs_new_txt_len(",",1),FUNC_STR2((&(((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(11401);}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(11402);}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(11403);}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(11404);}while(r); +} +S_14027:; +if ((-(*__LONG_NOCHECKS== 0 ))||new_error){ +if(qbevent){evnt(11406);if(r)goto S_14027;} +S_14028:; +if ((*__LONG_VWATCHON&(-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 )))||new_error){ +if(qbevent){evnt(11407);if(r)goto S_14028;} +do{ +qbs_set(__STRING_TEMP,__STRING_VWATCHERRORCALL); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11407);}while(r); +}else{ +do{ +qbs_set(__STRING_TEMP,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11407);}while(r); +} +S_14033:; +if ((*__LONG_DYNSCOPE)||new_error){ +if(qbevent){evnt(11408);if(r)goto S_14033;} +do{ +*__LONG_DYNSCOPE= 0 ; +if(!qbevent)break;evnt(11409);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1633=*__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)),FUNC_STR2(__LONG_LINENUMBER)),__STRING_INCLINENUMP),qbs_new_txt_len(");if(r)goto S_",14)),FUNC_STR2(__LONG_STATEMENTN)),qbs_new_txt_len(";}",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11410);}while(r); +}else{ +do{ +SUB_WRITEBUFLINE(&(pass1634=*__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)),FUNC_STR2(__LONG_LINENUMBER)),__STRING_INCLINENUMP),qbs_new_txt_len(");}while(r);",12))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11412);}while(r); +} +} +LABEL_FINISHEDNONEXEC:; +if(qbevent){evnt(11416);r=0;} +do{ +*__LONG_FIRSTLINE= 0 ; +if(!qbevent)break;evnt(11418);}while(r); +S_14041:; +if ((-(*__LONG_LAYOUTDONE== 0 ))||new_error){ +if(qbevent){evnt(11420);if(r)goto S_14041;} +do{ +*__LONG_LAYOUTOK= 0 ; +if(!qbevent)break;evnt(11420);}while(r); +} +S_14044:; +if ((-(*__LONG_CONTINUELINEFROM== 0 ))||new_error){ +if(qbevent){evnt(11422);if(r)goto S_14044;} +S_14045:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_ADDMETAINCLUDE->len))||new_error){ +if(qbevent){evnt(11425);if(r)goto S_14045;} +S_14046:; +if ((-(*__LONG_INCLEVEL== 0 ))||new_error){ +if(qbevent){evnt(11427);if(r)goto S_14046;} +do{ +qbs_set(__STRING_LAYOUTCOMMENT_BACKUP,__STRING_LAYOUTCOMMENT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11429);}while(r); +do{ +*__LONG_LAYOUTOK_BACKUP=*__LONG_LAYOUTOK; +if(!qbevent)break;evnt(11430);}while(r); +do{ +qbs_set(__STRING_LAYOUT_BACKUP,__STRING_LAYOUT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11431);}while(r); +} +do{ +qbs_set(__STRING_A,__STRING_ADDMETAINCLUDE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11434);}while(r); +do{ +qbs_set(__STRING_ADDMETAINCLUDE,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11434);}while(r); +S_14053:; +if ((-(*__LONG_INCLEVEL== 0 ))||new_error){ +if(qbevent){evnt(11436);if(r)goto S_14053;} +do{ +*__LONG_INCLUDINGFROMROOT= 0 ; +if(!qbevent)break;evnt(11437);}while(r); +do{ +*__LONG_FORCEINCLUDINGFILE= 0 ; +if(!qbevent)break;evnt(11438);}while(r); +LABEL_FORCEINCLUDE:; +if(qbevent){evnt(11439);r=0;} +S_14056:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_FORCEINCLUDEFROMROOT,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(11440);if(r)goto S_14056;} +do{ +qbs_set(__STRING_A,__STRING_FORCEINCLUDEFROMROOT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11441);}while(r); +do{ +qbs_set(__STRING_FORCEINCLUDEFROMROOT,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11442);}while(r); +do{ +*__LONG_FORCEINCLUDINGFILE= 1 ; +if(!qbevent)break;evnt(11443);}while(r); +do{ +*__LONG_INCLUDINGFROMROOT= 1 ; +if(!qbevent)break;evnt(11444);}while(r); +} +} +S_14063:; +if ((-(*__LONG_INCLEVEL== 100 ))||new_error){ +if(qbevent){evnt(11448);if(r)goto S_14063;} +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(11448);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(11448);}while(r); +} +do{ +*__LONG_FH= 99 +*__LONG_INCLEVEL+ 1 ; +if(!qbevent)break;evnt(11450);}while(r); +do{ +*__LONG_FIRSTTRYMETHOD= 1 ; +if(!qbevent)break;evnt(11452);}while(r); +S_14069:; +if (((-(*__LONG_INCLUDINGFROMROOT!= 0 ))&(-(*__LONG_INCLEVEL== 0 )))||new_error){ +if(qbevent){evnt(11453);if(r)goto S_14069;} +do{ +*__LONG_FIRSTTRYMETHOD= 2 ; +if(!qbevent)break;evnt(11453);}while(r); +} +S_14072:; +fornext_value1637=*__LONG_FIRSTTRYMETHOD; +fornext_finalvalue1637= 2 ; +fornext_step1637= 1 ; +if (fornext_step1637<0) fornext_step_negative1637=1; else fornext_step_negative1637=0; +if (new_error) goto fornext_error1637; +goto fornext_entrylabel1637; +while(1){ +fornext_value1637=fornext_step1637+(*__LONG_TRY); +fornext_entrylabel1637: +*__LONG_TRY=fornext_value1637; +if (fornext_step_negative1637){ +if (fornext_value1637fornext_finalvalue1637) break; +} +fornext_error1637:; +if(qbevent){evnt(11454);if(r)goto S_14072;} +S_14073:; +if ((-(*__LONG_TRY== 1 ))||new_error){ +if(qbevent){evnt(11455);if(r)goto S_14073;} +S_14074:; +if ((-(*__LONG_INCLEVEL== 0 ))||new_error){ +if(qbevent){evnt(11456);if(r)goto S_14074;} +S_14075:; +if ((*__LONG_IDEMODE)||new_error){ +if(qbevent){evnt(11457);if(r)goto S_14075;} +do{ +qbs_set(__STRING_P,qbs_add(__STRING_IDEPATH,__STRING1_PATHSEP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11457);}while(r); +}else{ +do{ +qbs_set(__STRING_P,FUNC_GETFILEPATH(__STRING_SOURCEFILE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11457);}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(11459);}while(r); +} +do{ +qbs_set(__STRING_F,qbs_add(__STRING_P,__STRING_A)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11461);}while(r); +} +S_14085:; +if ((-(*__LONG_TRY== 2 ))||new_error){ +if(qbevent){evnt(11463);if(r)goto S_14085;} +do{ +qbs_set(__STRING_F,__STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11463);}while(r); +} +S_14088:; +if ((qbs_cleanup(qbs_tmp_base,func__fileexists(__STRING_F)))||new_error){ +if(qbevent){evnt(11464);if(r)goto S_14088;} +do{ +*__INTEGER_QBERRORHAPPENED= -2 ; +if(!qbevent)break;evnt(11465);}while(r); +do{ +sub_open(__STRING_F, 2 ,NULL,NULL,*__LONG_FH,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11466);}while(r); +LABEL_QBERRORHAPPENED2:; +if(qbevent){evnt(11467);r=0;} +S_14091:; +if ((-(*__INTEGER_QBERRORHAPPENED== -2 ))||new_error){ +if(qbevent){evnt(11468);if(r)goto S_14091;} +do{ +goto fornext_exit_1636; +if(!qbevent)break;evnt(11468);}while(r); +} +} +do{ +*__INTEGER_QBERRORHAPPENED= 0 ; +if(!qbevent)break;evnt(11470);}while(r); +fornext_continue_1636:; +} +fornext_exit_1636:; +S_14097:; +if ((-(*__INTEGER_QBERRORHAPPENED!= -2 ))||new_error){ +if(qbevent){evnt(11472);if(r)goto S_14097;} +do{ +*__INTEGER_QBERRORHAPPENED= 0 ; +if(!qbevent)break;evnt(11472);}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(11472);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(11472);}while(r); +} +do{ +*__LONG_INCLEVEL=*__LONG_INCLEVEL+ 1 ; +if(!qbevent)break;evnt(11473);}while(r); +do{ +tmp_long=array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[tmp_long])),__STRING_F); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11473);}while(r); +do{ +tmp_long=array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[tmp_long]= 0 ; +if(!qbevent)break;evnt(11473);}while(r); +} +S_14106:; +while((*__LONG_INCLEVEL)||new_error){ +if(qbevent){evnt(11476);if(r)goto S_14106;} +do{ +*__LONG_FH= 99 +*__LONG_INCLEVEL; +if(!qbevent)break;evnt(11477);}while(r); +S_14108:; +if ((-(func_eof(*__LONG_FH)== 0 ))||new_error){ +if(qbevent){evnt(11479);if(r)goto S_14108;} +do{ +tmp_fileno=*__LONG_FH; +if (new_error) goto skip1639; +sub_file_line_input_string(tmp_fileno,__STRING_X); +if (new_error) goto skip1639; +skip1639: +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11480);}while(r); +do{ +qbs_set(__STRING_A3,__STRING_X); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11481);}while(r); +do{ +*__LONG_CONTINUELINEFROM= 0 ; +if(!qbevent)break;evnt(11482);}while(r); +do{ +tmp_long=array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5]); +if (!new_error) ((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(11483);}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(11485);}while(r); +do{ +qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len(" in line ",9),FUNC_STR2((&(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])])))),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_new_txt_len(" included",9))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11486);}while(r); +S_14115:; +if ((-(*__LONG_INCLEVEL> 1 ))||new_error){ +if(qbevent){evnt(11487);if(r)goto S_14115;} +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(11488);}while(r); +S_14117:; +fornext_value1641= 1 ; +fornext_finalvalue1641=*__LONG_INCLEVEL- 1 ; +fornext_step1641= 1 ; +if (fornext_step1641<0) fornext_step_negative1641=1; else fornext_step_negative1641=0; +if (new_error) goto fornext_error1641; +goto fornext_entrylabel1641; +while(1){ +fornext_value1641=fornext_step1641+(*__LONG_X); +fornext_entrylabel1641: +*__LONG_X=fornext_value1641; +if (fornext_step_negative1641){ +if (fornext_value1641fornext_finalvalue1641) break; +} +fornext_error1641:; +if(qbevent){evnt(11489);if(r)goto S_14117;} +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(11490);}while(r); +S_14119:; +if ((-(*__LONG_X<(*__LONG_INCLEVEL- 1 )))||new_error){ +if(qbevent){evnt(11491);if(r)goto S_14119;} +S_14120:; +if ((-(*__LONG_X==(*__LONG_INCLEVEL- 2 )))||new_error){ +if(qbevent){evnt(11492);if(r)goto S_14120;} +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(11493);}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(11495);}while(r); +} +} +fornext_continue_1640:; +} +fornext_exit_1640:; +do{ +qbs_set(__STRING_E,qbs_add(__STRING_E,qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11499);}while(r); +} +do{ +qbs_set(__STRING_INCERROR,__STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11501);}while(r); +do{ +*__LONG_LINENUMBER=*__LONG_LINENUMBER- 1 ; +if(!qbevent)break;evnt(11502);}while(r); +S_14131:; +if ((*__LONG_IDEMODE)||new_error){ +if(qbevent){evnt(11503);if(r)goto S_14131;} +do{ +qbs_set(__STRING_SENDC,qbs_add(func_chr( 10 ),__STRING_A3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11503);}while(r); +do{ +goto LABEL_SENDCOMMAND; +if(!qbevent)break;evnt(11503);}while(r); +} +do{ +goto LABEL_INCLUDELINE; +if(!qbevent)break;evnt(11504);}while(r); +} +do{ +sub_close(*__LONG_FH,1); +if(!qbevent)break;evnt(11507);}while(r); +do{ +*__LONG_INCLEVEL=*__LONG_INCLEVEL- 1 ; +if(!qbevent)break;evnt(11508);}while(r); +S_14139:; +if ((-(*__LONG_INCLEVEL== 0 ))||new_error){ +if(qbevent){evnt(11509);if(r)goto S_14139;} +S_14140:; +if ((-(*__LONG_FORCEINCLUDINGFILE== 1 ))||new_error){ +if(qbevent){evnt(11510);if(r)goto S_14140;} +do{ +*__LONG_FORCEINCLUDINGFILE= 0 ; +if(!qbevent)break;evnt(11511);}while(r); +do{ +goto LABEL_FORCEINCLUDECOMPLETED; +if(!qbevent)break;evnt(11512);}while(r); +} +do{ +*__LONG_LAYOUTOK=*__LONG_LAYOUTOK_BACKUP; +if(!qbevent)break;evnt(11515);}while(r); +do{ +qbs_set(__STRING_LAYOUT,__STRING_LAYOUT_BACKUP); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11516);}while(r); +do{ +qbs_set(__STRING_LAYOUTCOMMENT,__STRING_LAYOUTCOMMENT_BACKUP); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11517);}while(r); +} +dl_continue_1638:; +} +dl_exit_1638:; +} +S_14150:; +if (( 0 )||new_error){ +if(qbevent){evnt(11527);if(r)goto S_14150;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip1642; +sub_file_print(tmp_fileno,qbs_new_txt_len("[layout check]",14), 0, 0, 1); +if (new_error) goto skip1642; +skip1642: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11528);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip1643; +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 (new_error) goto skip1643; +skip1643: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11529);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip1644; +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 (new_error) goto skip1644; +skip1644: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11530);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip1645; +sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_LAYOUTOK)), 1, 0, 1); +if (new_error) goto skip1645; +skip1645: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11531);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip1646; +sub_file_print(tmp_fileno,qbs_new_txt_len("[end layout check]",18), 0, 0, 1); +if (new_error) goto skip1646; +skip1646: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11532);}while(r); +} +S_14157:; +if ((*__LONG_IDEMODE)||new_error){ +if(qbevent){evnt(11538);if(r)goto S_14157;} +S_14158:; +if ((-(*__LONG_CONTINUELINEFROM!= 0 ))||new_error){ +if(qbevent){evnt(11539);if(r)goto S_14158;} +do{ +goto LABEL_IDE4; +if(!qbevent)break;evnt(11539);}while(r); +} +S_14161:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUTCOMMENT->len))||new_error){ +if(qbevent){evnt(11541);if(r)goto S_14161;} +S_14162:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(11542);if(r)goto S_14162;} +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(11542);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,__STRING_LAYOUTCOMMENT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11542);}while(r); +} +} +S_14168:; +if ((-(*__LONG_LAYOUTOK== 0 ))||new_error){ +if(qbevent){evnt(11545);if(r)goto S_14168;} +do{ +qbs_set(__STRING_LAYOUT,__STRING_LAYOUTORIGINAL); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11546);}while(r); +}else{ +do{ +*__LONG_I=func_instr(NULL,__STRING_LAYOUT,__STRING_FIX046,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11551);}while(r); +S_14172:; +while((*__LONG_I)||new_error){ +if(qbevent){evnt(11552);if(r)goto S_14172;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(qbs_left(__STRING_LAYOUT,*__LONG_I- 1 ),qbs_new_txt_len(".",1)),qbs_right(__STRING_LAYOUT,__STRING_LAYOUT->len-(*__LONG_I+__STRING_FIX046->len- 1 )))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11553);}while(r); +do{ +*__LONG_I=func_instr(NULL,__STRING_LAYOUT,__STRING_FIX046,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11554);}while(r); +dl_continue_1649:; +} +dl_exit_1649:; +} +do{ +*__LONG_X=*__LONG_LHSCONTROLLEVEL; +if(!qbevent)break;evnt(11558);}while(r); +S_14178:; +if ((-(*__INTEGER_CONTROLLEVEL<*__LONG_LHSCONTROLLEVEL))||new_error){ +if(qbevent){evnt(11558);if(r)goto S_14178;} +do{ +*__LONG_X=*__INTEGER_CONTROLLEVEL; +if(!qbevent)break;evnt(11558);}while(r); +} +S_14181:; +if ((-(*__LONG_DEFININGTYPE== 2 ))||new_error){ +if(qbevent){evnt(11559);if(r)goto S_14181;} +do{ +*__LONG_X=*__LONG_X+ 1 ; +if(!qbevent)break;evnt(11559);}while(r); +} +S_14184:; +if ((-(*__LONG_DEFININGTYPE> 0 ))||new_error){ +if(qbevent){evnt(11560);if(r)goto S_14184;} +do{ +*__LONG_DEFININGTYPE= 2 ; +if(!qbevent)break;evnt(11560);}while(r); +} +S_14187:; +if ((-(*__LONG_DECLARINGLIBRARY== 2 ))||new_error){ +if(qbevent){evnt(11561);if(r)goto S_14187;} +do{ +*__LONG_X=*__LONG_X+ 1 ; +if(!qbevent)break;evnt(11561);}while(r); +} +S_14190:; +if ((-(*__LONG_DECLARINGLIBRARY> 0 ))||new_error){ +if(qbevent){evnt(11562);if(r)goto S_14190;} +do{ +*__LONG_DECLARINGLIBRARY= 2 ; +if(!qbevent)break;evnt(11562);}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(11563);}while(r); +S_14194:; +if ((*__LONG_LINECONTINUATION)||new_error){ +if(qbevent){evnt(11564);if(r)goto S_14194;} +do{ +qbs_set(__STRING_LAYOUT,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11564);}while(r); +} +do{ +goto LABEL_IDERET4; +if(!qbevent)break;evnt(11566);}while(r); +} +LABEL_SKIPIDE4:; +if(qbevent){evnt(11570);r=0;} +dl_continue_335:; +}while(1); +dl_exit_335:; +S_14200:; +if ((-(*__LONG_LASTLINERETURN== 0 ))||new_error){ +if(qbevent){evnt(11574);if(r)goto S_14200;} +do{ +*__LONG_LASTLINERETURN= 1 ; +if(!qbevent)break;evnt(11575);}while(r); +do{ +*__LONG_LASTLINE= 1 ; +if(!qbevent)break;evnt(11576);}while(r); +do{ +qbs_set(__STRING_WHOLELINE,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11577);}while(r); +do{ +goto LABEL_MAINPASSLASTLINE; +if(!qbevent)break;evnt(11578);}while(r); +} +LABEL_IDE5:; +if(qbevent){evnt(11581);r=0;} +do{ +*__LONG_LINENUMBER= 0 ; +if(!qbevent)break;evnt(11582);}while(r); +S_14207:; +if ((-(*__INTEGER_CLOSEDMAIN== 0 ))||new_error){ +if(qbevent){evnt(11584);if(r)goto S_14207;} +do{ +SUB_CLOSEMAIN(); +if(!qbevent)break;evnt(11584);}while(r); +} +S_14210:; +if ((*__LONG_DEFININGTYPE)||new_error){ +if(qbevent){evnt(11586);if(r)goto S_14210;} +do{ +*__LONG_LINENUMBER=*__LONG_DEFININGTYPEERROR; +if(!qbevent)break;evnt(11586);}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(11586);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(11586);}while(r); +} +S_14215:; +if ((*__INTEGER_CONTROLLEVEL)||new_error){ +if(qbevent){evnt(11589);if(r)goto S_14215;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("Unidentified open control block",31)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11590);}while(r); +S_14217:; +sc_1652=((int16*)(__ARRAY_INTEGER_CONTROLTYPE[0]))[array_check((*__INTEGER_CONTROLLEVEL)-__ARRAY_INTEGER_CONTROLTYPE[4],__ARRAY_INTEGER_CONTROLTYPE[5])]; +if(qbevent){evnt(11591);if(r)goto S_14217;} +S_14218:; +if (((sc_1652==( 1 )))||new_error){ +if(qbevent){evnt(11592);if(r)goto S_14218;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("IF without END IF",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11592);}while(r); +sc_ec_36_end:; +goto sc_1652_end; +} +S_14220:; +if (((sc_1652==( 2 )))||new_error){ +if(qbevent){evnt(11593);if(r)goto S_14220;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("FOR without NEXT",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11593);}while(r); +sc_ec_37_end:; +goto sc_1652_end; +} +S_14222:; +if (((sc_1652==( 3 ))||(sc_1652==( 4 )))||new_error){ +if(qbevent){evnt(11594);if(r)goto S_14222;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("DO without LOOP",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11594);}while(r); +sc_ec_38_end:; +goto sc_1652_end; +} +S_14224:; +if (((sc_1652==( 5 )))||new_error){ +if(qbevent){evnt(11595);if(r)goto S_14224;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("WHILE without WEND",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11595);}while(r); +sc_ec_39_end:; +goto sc_1652_end; +} +S_14226:; +if (((sc_1652==( 6 )))||new_error){ +if(qbevent){evnt(11596);if(r)goto S_14226;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("$IF without $END IF",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11596);}while(r); +sc_ec_40_end:; +goto sc_1652_end; +} +S_14228:; +if ((((sc_1652>=( 10 ))&&(sc_1652<=( 19 ))))||new_error){ +if(qbevent){evnt(11597);if(r)goto S_14228;} +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(11597);}while(r); +sc_ec_41_end:; +goto sc_1652_end; +} +S_14230:; +if (((sc_1652==( 32 )))||new_error){ +if(qbevent){evnt(11598);if(r)goto S_14230;} +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(11598);}while(r); +sc_ec_42_end:; +goto sc_1652_end; +} +sc_1652_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(11600);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(11601);}while(r); +} +S_14236:; +if ((-(*__LONG_IDEINDENTSUBS== 0 ))||new_error){ +if(qbevent){evnt(11604);if(r)goto S_14236;} +S_14237:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_SUBFUNC->len))||new_error){ +if(qbevent){evnt(11605);if(r)goto S_14237;} +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(11605);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(11605);}while(r); +} +} +do{ +SUB_WRITEBUFLINE(&(pass1654=*__LONG_ERRTXTBUF),qbs_new_txt_len("exit(99);",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11609);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1655=*__LONG_ERRTXTBUF),qbs_new_txt_len("}",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11610);}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(11613);}while(r); +S_14245:; +fornext_value1657= 1 ; +fornext_finalvalue1657=*__LONG_IDN; +fornext_step1657= 1 ; +if (fornext_step1657<0) fornext_step_negative1657=1; else fornext_step_negative1657=0; +if (new_error) goto fornext_error1657; +goto fornext_entrylabel1657; +while(1){ +fornext_value1657=fornext_step1657+(*__LONG_I); +fornext_entrylabel1657: +*__LONG_I=fornext_value1657; +if (fornext_step_negative1657){ +if (fornext_value1657fornext_finalvalue1657) break; +} +fornext_error1657:; +if(qbevent){evnt(11615);if(r)goto S_14245;} +S_14246:; +if ((*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+2853)))||new_error){ +if(qbevent){evnt(11617);if(r)goto S_14246;} +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(11618);}while(r); +do{ +goto LABEL_CLEARSTATICSCOPE; +if(!qbevent)break;evnt(11619);}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(11622);}while(r); +S_14251:; +if (((-(*__LONG_A== 0 ))|(-(*__LONG_A== 32 )))||new_error){ +if(qbevent){evnt(11623);if(r)goto S_14251;} +do{ +qbs_set(__STRING_SUBFUNC,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11624);}while(r); +LABEL_CLEARSTATICSCOPE:; +if(qbevent){evnt(11625);r=0;} +S_14253:; +if ((*(int32*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+512)))||new_error){ +if(qbevent){evnt(11627);if(r)goto S_14253;} +do{ +SUB_GETID(__LONG_I); +if(!qbevent)break;evnt(11628);}while(r); +S_14255:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(11629);if(r)goto S_14255;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(11629);}while(r); +} +S_14258:; +if ((-(*(int16*)(((char*)__UDT_ID)+(516))== -1 ))||new_error){ +if(qbevent){evnt(11630);if(r)goto S_14258;} +do{ +goto LABEL_CLEARERASERETURNED; +if(!qbevent)break;evnt(11630);}while(r); +} +S_14261:; +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 )))||new_error){ +if(qbevent){evnt(11631);if(r)goto S_14261;} +do{ +goto LABEL_CLEARERASERETURNED; +if(!qbevent)break;evnt(11632);}while(r); +} +do{ +*__LONG_CLEARERASERETURN= 1 ; +if(!qbevent)break;evnt(11634);}while(r); +do{ +goto LABEL_CLEARERASE; +if(!qbevent)break;evnt(11634);}while(r); +} +S_14267:; +if ((*(int32*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+536)))||new_error){ +if(qbevent){evnt(11637);if(r)goto S_14267;} +do{ +SUB_GETID(__LONG_I); +if(!qbevent)break;evnt(11638);}while(r); +S_14269:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(11639);if(r)goto S_14269;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(11639);}while(r); +} +do{ +qbs_set(__STRING_BYTES,FUNC_VARIABLESIZE(&(pass1658= -1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11640);}while(r); +S_14273:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(11641);if(r)goto S_14273;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(11641);}while(r); +} +do{ +*__LONG_TYP=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISREFERENCE; +if(!qbevent)break;evnt(11643);}while(r); +S_14277:; +if ((*__LONG_TYP&*__LONG_ISUDT)||new_error){ +if(qbevent){evnt(11644);if(r)goto S_14277;} +do{ +qbs_set(__STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(FUNC_STR2(__LONG_I),__STRING1_SP3),FUNC_STR2(&(pass1659=*__LONG_TYP& 511 ))),__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(11645);}while(r); +}else{ +do{ +qbs_set(__STRING_E,FUNC_STR2(__LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11647);}while(r); +} +do{ +qbs_set(__STRING_E,FUNC_REFER(__STRING_E,__LONG_TYP,&(pass1660= 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11649);}while(r); +S_14283:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(11650);if(r)goto S_14283;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(11650);}while(r); +} +S_14286:; +if ((*__LONG_TYP&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(11651);if(r)goto S_14286;} +S_14287:; +if ((*__LONG_TYP&*__LONG_ISFIXEDLENGTH)||new_error){ +if(qbevent){evnt(11652);if(r)goto S_14287;} +do{ +SUB_WRITEBUFLINE(&(pass1661=*__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(11653);}while(r); +do{ +goto LABEL_CLEARED; +if(!qbevent)break;evnt(11654);}while(r); +}else{ +S_14291:; +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)))))||new_error){ +if(qbevent){evnt(11656);if(r)goto S_14291;} +do{ +SUB_WRITEBUFLINE(&(pass1662=*__LONG_MAINTXTBUF),qbs_add(__STRING_E,qbs_new_txt_len("->len=0;",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11657);}while(r); +} +do{ +goto LABEL_CLEARED; +if(!qbevent)break;evnt(11659);}while(r); +} +} +S_14297:; +if ((*__LONG_TYP&*__LONG_ISUDT)||new_error){ +if(qbevent){evnt(11662);if(r)goto S_14297;} +S_14298:; +if ((((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*__LONG_TYP& 511 )-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])])||new_error){ +if(qbevent){evnt(11663);if(r)goto S_14298;} +do{ +SUB_CLEAR_UDT_WITH_VARSTRINGS(__STRING_E,&(pass1663=*__LONG_TYP& 511 ),__LONG_MAINTXTBUF,&(pass1664= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11665);}while(r); +}else{ +do{ +SUB_WRITEBUFLINE(&(pass1665=*__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(11667);}while(r); +} +}else{ +S_14304:; +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)))))||new_error){ +if(qbevent){evnt(11670);if(r)goto S_14304;} +do{ +SUB_WRITEBUFLINE(&(pass1666=*__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(11671);}while(r); +} +} +do{ +goto LABEL_CLEARED; +if(!qbevent)break;evnt(11674);}while(r); +} +} +LABEL_CLEARED:; +if(qbevent){evnt(11679);r=0;} +LABEL_CLEARERASERETURNED:; +if(qbevent){evnt(11680);r=0;} +fornext_continue_1656:; +} +fornext_exit_1656:; +S_14312:; +if (( 0 )||new_error){ +if(qbevent){evnt(11683);if(r)goto S_14312;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip1667; +sub_file_print(tmp_fileno,qbs_new_txt_len("finished making program!",24), 0, 0, 1); +if (new_error) goto skip1667; +skip1667: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11684);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip1668; +sub_file_print(tmp_fileno,qbs_new_txt_len("recompile=",10), 0, 0, 0); +if (new_error) goto skip1668; +sub_file_print(tmp_fileno,qbs_str((int16)(*__INTEGER_RECOMPILE)), 1, 0, 1); +if (new_error) goto skip1668; +skip1668: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11685);}while(r); +} +S_14316:; +fornext_value1670= 1 ; +fornext_finalvalue1670=*__LONG_IDN; +fornext_step1670= 1 ; +if (fornext_step1670<0) fornext_step_negative1670=1; else fornext_step_negative1670=0; +if (new_error) goto fornext_error1670; +goto fornext_entrylabel1670; +while(1){ +fornext_value1670=fornext_step1670+(*__LONG_I); +fornext_entrylabel1670: +*__LONG_I=fornext_value1670; +if (fornext_step_negative1670){ +if (fornext_value1670fornext_finalvalue1670) break; +} +fornext_error1670:; +if(qbevent){evnt(11689);if(r)goto S_14316;} +S_14317:; +if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_I)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ +if(qbevent){evnt(11690);if(r)goto S_14317;} +do{ +SUB_GETID(__LONG_I); +if(!qbevent)break;evnt(11692);}while(r); +S_14319:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(11693);if(r)goto S_14319;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(11693);}while(r); +} +S_14322:; +if (( 0 )||new_error){ +if(qbevent){evnt(11695);if(r)goto S_14322;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip1671; +sub_file_print(tmp_fileno,qbs_new_txt_len("recompiling cmem sf! checking:",30), 0, 0, 0); +if (new_error) goto skip1671; +sub_file_print(tmp_fileno,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1)), 0, 0, 1); +if (new_error) goto skip1671; +skip1671: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11695);}while(r); +} +S_14325:; +if ((*(int32*)(((char*)__UDT_ID)+(2855)))||new_error){ +if(qbevent){evnt(11697);if(r)goto S_14325;} +S_14326:; +if (( 0 )||new_error){ +if(qbevent){evnt(11699);if(r)goto S_14326;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip1672; +sub_file_print(tmp_fileno,qbs_new_txt_len("recompiling cmem sf! It's a sub/func arg!",41), 0, 0, 1); +if (new_error) goto skip1672; +skip1672: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11699);}while(r); +} +do{ +*__LONG_I2=*(int32*)(((char*)__UDT_ID)+(2855)); +if(!qbevent)break;evnt(11701);}while(r); +do{ +*__LONG_X=*(int16*)(((char*)__UDT_ID)+(2859)); +if(!qbevent)break;evnt(11702);}while(r); +S_14331:; +if (( 0 )||new_error){ +if(qbevent){evnt(11704);if(r)goto S_14331;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip1673; +sub_file_print(tmp_fileno,qbs_new_txt_len("recompiling cmem sf! values:",28), 0, 0, 0); +if (new_error) goto skip1673; +sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_I2)), 1, 0, 0); +if (new_error) goto skip1673; +sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_X)), 1, 0, 1); +if (new_error) goto skip1673; +skip1673: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11704);}while(r); +} +S_14334:; +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 ))))||new_error){ +if(qbevent){evnt(11707);if(r)goto S_14334;} +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(11708);}while(r); +S_14336:; +if (( 0 )||new_error){ +if(qbevent){evnt(11711);if(r)goto S_14336;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip1674; +sub_file_print(tmp_fileno,qbs_new_txt_len("recompiling cmem sf! setting:",29), 0, 0, 0); +if (new_error) goto skip1674; +sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_I2)), 1, 0, 0); +if (new_error) goto skip1674; +sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_X)), 1, 0, 1); +if (new_error) goto skip1674; +skip1674: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11711);}while(r); +} +do{ +*__INTEGER_RECOMPILE= 1 ; +if(!qbevent)break;evnt(11714);}while(r); +} +} +} +fornext_continue_1669:; +} +fornext_exit_1669:; +do{ +*__LONG_UNRESOLVED= 0 ; +if(!qbevent)break;evnt(11720);}while(r); +S_14345:; +fornext_value1676= 1 ; +fornext_finalvalue1676=*__LONG_IDN; +fornext_step1676= 1 ; +if (fornext_step1676<0) fornext_step_negative1676=1; else fornext_step_negative1676=0; +if (new_error) goto fornext_error1676; +goto fornext_entrylabel1676; +while(1){ +fornext_value1676=fornext_step1676+(*__LONG_I); +fornext_entrylabel1676: +*__LONG_I=fornext_value1676; +if (fornext_step_negative1676){ +if (fornext_value1676fornext_finalvalue1676) break; +} +fornext_error1676:; +if(qbevent){evnt(11721);if(r)goto S_14345;} +do{ +SUB_GETID(__LONG_I); +if(!qbevent)break;evnt(11722);}while(r); +S_14347:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(11723);if(r)goto S_14347;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(11723);}while(r); +} +S_14350:; +if (( 0 )||new_error){ +if(qbevent){evnt(11725);if(r)goto S_14350;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip1677; +sub_file_print(tmp_fileno,qbs_new_txt_len("checking id named:",18), 0, 0, 0); +if (new_error) goto skip1677; +sub_file_print(tmp_fileno,qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1), 0, 0, 1); +if (new_error) goto skip1677; +skip1677: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11725);}while(r); +} +S_14353:; +if ((*(int16*)(((char*)__UDT_ID)+(544)))||new_error){ +if(qbevent){evnt(11727);if(r)goto S_14353;} +S_14354:; +fornext_value1679= 1 ; +fornext_finalvalue1679=*(int16*)(((char*)__UDT_ID)+(809)); +fornext_step1679= 1 ; +if (fornext_step1679<0) fornext_step_negative1679=1; else fornext_step_negative1679=0; +if (new_error) goto fornext_error1679; +goto fornext_entrylabel1679; +while(1){ +fornext_value1679=fornext_step1679+(*__LONG_I2); +fornext_entrylabel1679: +*__LONG_I2=fornext_value1679; +if (fornext_step_negative1679){ +if (fornext_value1679fornext_finalvalue1679) break; +} +fornext_error1679:; +if(qbevent){evnt(11728);if(r)goto S_14354;} +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(11729);}while(r); +S_14356:; +if ((-(*__LONG_T> 0 ))||new_error){ +if(qbevent){evnt(11730);if(r)goto S_14356;} +S_14357:; +if (((*__LONG_T&*__LONG_ISPOINTER))||new_error){ +if(qbevent){evnt(11731);if(r)goto S_14357;} +S_14358:; +if (((*__LONG_T&*__LONG_ISARRAY))||new_error){ +if(qbevent){evnt(11732);if(r)goto S_14358;} +S_14359:; +if (( 0 )||new_error){ +if(qbevent){evnt(11734);if(r)goto S_14359;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip1680; +sub_file_print(tmp_fileno,qbs_new_txt_len("checking argument ",18), 0, 0, 0); +if (new_error) goto skip1680; +sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_I2)), 1, 0, 0); +if (new_error) goto skip1680; +sub_file_print(tmp_fileno,qbs_new_txt_len(" of ",4), 0, 0, 0); +if (new_error) goto skip1680; +sub_file_print(tmp_fileno,qbs_str((int16)(*(int16*)(((char*)__UDT_ID)+(809)))), 1, 0, 1); +if (new_error) goto skip1680; +skip1680: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11734);}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(11736);}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(11737);}while(r); +S_14364:; +if (( 0 )||new_error){ +if(qbevent){evnt(11739);if(r)goto S_14364;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip1681; +sub_file_print(tmp_fileno,qbs_new_txt_len("nele=",5), 0, 0, 0); +if (new_error) goto skip1681; +sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_NELE)), 1, 0, 1); +if (new_error) goto skip1681; +skip1681: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11739);}while(r); +} +S_14367:; +if (( 0 )||new_error){ +if(qbevent){evnt(11740);if(r)goto S_14367;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip1682; +sub_file_print(tmp_fileno,qbs_new_txt_len("nelereq=",8), 0, 0, 0); +if (new_error) goto skip1682; +sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_NELEREQ)), 1, 0, 1); +if (new_error) goto skip1682; +skip1682: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11740);}while(r); +} +S_14370:; +if ((-(*__LONG_NELE!=*__LONG_NELEREQ))||new_error){ +if(qbevent){evnt(11742);if(r)goto S_14370;} +S_14371:; +if (( 0 )||new_error){ +if(qbevent){evnt(11744);if(r)goto S_14371;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip1683; +sub_file_print(tmp_fileno,qbs_new_txt_len("mismatch detected!",18), 0, 0, 1); +if (new_error) goto skip1683; +skip1683: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11744);}while(r); +} +do{ +*__LONG_UNRESOLVED=*__LONG_UNRESOLVED+ 1 ; +if(!qbevent)break;evnt(11746);}while(r); +do{ +*__INTEGER_SFLISTN=*__INTEGER_SFLISTN+ 1 ; +if(!qbevent)break;evnt(11747);}while(r); +do{ +tmp_long=array_check((*__INTEGER_SFLISTN)-__ARRAY_LONG_SFIDLIST[4],__ARRAY_LONG_SFIDLIST[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_SFIDLIST[0]))[tmp_long]=*__LONG_I; +if(!qbevent)break;evnt(11748);}while(r); +do{ +tmp_long=array_check((*__INTEGER_SFLISTN)-__ARRAY_INTEGER_SFARGLIST[4],__ARRAY_INTEGER_SFARGLIST[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_SFARGLIST[0]))[tmp_long]=*__LONG_I2; +if(!qbevent)break;evnt(11749);}while(r); +do{ +tmp_long=array_check((*__INTEGER_SFLISTN)-__ARRAY_INTEGER_SFELELIST[4],__ARRAY_INTEGER_SFELELIST[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_SFELELIST[0]))[tmp_long]=*__LONG_NELEREQ; +if(!qbevent)break;evnt(11750);}while(r); +} +} +} +} +fornext_continue_1678:; +} +fornext_exit_1678:; +} +fornext_continue_1675:; +} +fornext_exit_1675:; +S_14386:; +if ((-(*__LONG_UNRESOLVED> 0 ))||new_error){ +if(qbevent){evnt(11760);if(r)goto S_14386;} +S_14387:; +if ((-(*__LONG_LASTUNRESOLVED== -1 ))||new_error){ +if(qbevent){evnt(11761);if(r)goto S_14387;} +do{ +*__INTEGER_RECOMPILE= 1 ; +if(!qbevent)break;evnt(11763);}while(r); +S_14389:; +if (( 0 )||new_error){ +if(qbevent){evnt(11764);if(r)goto S_14389;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip1684; +sub_file_print(tmp_fileno,qbs_new_txt_len("recompiling to resolve array elements (first time)",50), 0, 0, 1); +if (new_error) goto skip1684; +skip1684: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11765);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip1685; +sub_file_print(tmp_fileno,qbs_new_txt_len("sflistn=",8), 0, 0, 0); +if (new_error) goto skip1685; +sub_file_print(tmp_fileno,qbs_str((int16)(*__INTEGER_SFLISTN)), 1, 0, 1); +if (new_error) goto skip1685; +skip1685: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11766);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip1686; +sub_file_print(tmp_fileno,qbs_new_txt_len("oldsflistn=",11), 0, 0, 0); +if (new_error) goto skip1686; +sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_OLDSFLISTN)), 1, 0, 1); +if (new_error) goto skip1686; +skip1686: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11767);}while(r); +} +}else{ +S_14395:; +if ((-(*__LONG_UNRESOLVED<*__LONG_LASTUNRESOLVED))||new_error){ +if(qbevent){evnt(11771);if(r)goto S_14395;} +do{ +*__INTEGER_RECOMPILE= 1 ; +if(!qbevent)break;evnt(11772);}while(r); +S_14397:; +if (( 0 )||new_error){ +if(qbevent){evnt(11773);if(r)goto S_14397;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip1687; +sub_file_print(tmp_fileno,qbs_new_txt_len("recompiling to resolve array elements (not first time)",54), 0, 0, 1); +if (new_error) goto skip1687; +skip1687: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11774);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip1688; +sub_file_print(tmp_fileno,qbs_new_txt_len("sflistn=",8), 0, 0, 0); +if (new_error) goto skip1688; +sub_file_print(tmp_fileno,qbs_str((int16)(*__INTEGER_SFLISTN)), 1, 0, 1); +if (new_error) goto skip1688; +skip1688: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11775);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip1689; +sub_file_print(tmp_fileno,qbs_new_txt_len("oldsflistn=",11), 0, 0, 0); +if (new_error) goto skip1689; +sub_file_print(tmp_fileno,qbs_str((int32)(*__LONG_OLDSFLISTN)), 1, 0, 1); +if (new_error) goto skip1689; +skip1689: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11776);}while(r); +} +} +} +} +do{ +*__LONG_LASTUNRESOLVED=*__LONG_UNRESOLVED; +if(!qbevent)break;evnt(11781);}while(r); +S_14406:; +if (( 0 )||new_error){ +if(qbevent){evnt(11807);if(r)goto S_14406;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip1690; +sub_file_print(tmp_fileno,qbs_new_txt_len("Beginning COMMON array list check...",36), 0, 0, 1); +if (new_error) goto skip1690; +skip1690: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11807);}while(r); +} +do{ +*__LONG_XI= 1 ; +if(!qbevent)break;evnt(11808);}while(r); +S_14410:; +fornext_value1692= 1 ; +fornext_finalvalue1692=*__LONG_COMMONARRAYLISTN; +fornext_step1692= 1 ; +if (fornext_step1692<0) fornext_step_negative1692=1; else fornext_step_negative1692=0; +if (new_error) goto fornext_error1692; +goto fornext_entrylabel1692; +while(1){ +fornext_value1692=fornext_step1692+(*__LONG_X); +fornext_entrylabel1692: +*__LONG_X=fornext_value1692; +if (fornext_step_negative1692){ +if (fornext_value1692fornext_finalvalue1692) break; +} +fornext_error1692:; +if(qbevent){evnt(11809);if(r)goto S_14410;} +do{ +qbs_set(__STRING_VARNAME,FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11810);}while(r); +do{ +*__LONG_XI=*__LONG_XI+ 1 ; +if(!qbevent)break;evnt(11810);}while(r); +do{ +qbs_set(__STRING_TYP,FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11811);}while(r); +do{ +*__LONG_XI=*__LONG_XI+ 1 ; +if(!qbevent)break;evnt(11811);}while(r); +do{ +*__LONG_DIMMETHOD2=qbr(func_val(FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11812);}while(r); +do{ +*__LONG_XI=*__LONG_XI+ 1 ; +if(!qbevent)break;evnt(11812);}while(r); +do{ +*__LONG_DIMSHARED2=qbr(func_val(FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11813);}while(r); +do{ +*__LONG_XI=*__LONG_XI+ 1 ; +if(!qbevent)break;evnt(11813);}while(r); +do{ +*__LONG_T=FUNC_TYPNAME2TYP(__STRING_TYP); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11815);}while(r); +S_14420:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(11816);if(r)goto S_14420;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(11816);}while(r); +} +S_14423:; +if ((-((*__LONG_T&*__LONG_ISUDT)== 0 ))||new_error){ +if(qbevent){evnt(11817);if(r)goto S_14423;} +do{ +qbs_set(__STRING_VARNAME,qbs_add(__STRING_VARNAME,FUNC_TYPE2SYMBOL(__STRING_TYP))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11817);}while(r); +} +S_14426:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(11818);if(r)goto S_14426;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(11818);}while(r); +} +S_14429:; +if (( 0 )||new_error){ +if(qbevent){evnt(11820);if(r)goto S_14429;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip1693; +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 (new_error) goto skip1693; +skip1693: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11820);}while(r); +} +do{ +*__LONG_TRY=FUNC_FINDID(__STRING_VARNAME); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11822);}while(r); +S_14433:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(11823);if(r)goto S_14433;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(11823);}while(r); +} +S_14436:; +while((*__LONG_TRY)||new_error){ +if(qbevent){evnt(11824);if(r)goto S_14436;} +S_14437:; +if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ +if(qbevent){evnt(11825);if(r)goto S_14437;} +do{ +goto LABEL_FOUNDCOMMONARRAY2; +if(!qbevent)break;evnt(11825);}while(r); +} +S_14440:; +if ((-(*__LONG_TRY== 2 ))||new_error){ +if(qbevent){evnt(11826);if(r)goto S_14440;} +do{ +*__INTEGER_FINDANOTHERID= 1 ; +if(!qbevent)break;evnt(11826);}while(r); +do{ +*__LONG_TRY=FUNC_FINDID(__STRING_VARNAME); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11826);}while(r); +}else{ +do{ +*__LONG_TRY= 0 ; +if(!qbevent)break;evnt(11826);}while(r); +} +S_14446:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(11827);if(r)goto S_14446;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(11827);}while(r); +} +dl_continue_1694:; +} +dl_exit_1694:; +LABEL_FOUNDCOMMONARRAY2:; +if(qbevent){evnt(11829);r=0;} +S_14450:; +if (( 0 )||new_error){ +if(qbevent){evnt(11831);if(r)goto S_14450;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip1695; +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 (new_error) goto skip1695; +skip1695: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11831);}while(r); +} +S_14453:; +if ((-(*(int16*)(((char*)__UDT_ID)+(516))== -1 ))||new_error){ +if(qbevent){evnt(11833);if(r)goto S_14453;} +S_14454:; +if ((-(((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_CURRENTID)-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])]!= 0 ))||new_error){ +if(qbevent){evnt(11834);if(r)goto S_14454;} +do{ +*__INTEGER_RECOMPILE= 1 ; +if(!qbevent)break;evnt(11834);}while(r); +} +S_14457:; +if (( 0 )||new_error){ +if(qbevent){evnt(11835);if(r)goto S_14457;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip1696; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("Recompiling to resolve elements of:",35),__STRING_VARNAME), 0, 0, 1); +if (new_error) goto skip1696; +skip1696: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11835);}while(r); +} +} +fornext_continue_1691:; +} +fornext_exit_1691:; +S_14462:; +if (( 0 )||new_error){ +if(qbevent){evnt(11838);if(r)goto S_14462;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip1697; +sub_file_print(tmp_fileno,qbs_new_txt_len("Finished COMMON array list check!",33), 0, 0, 1); +if (new_error) goto skip1697; +skip1697: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11838);}while(r); +} +S_14465:; +if ((-(*__LONG_VWATCHDESIREDSTATE!=*__LONG_VWATCHON))||new_error){ +if(qbevent){evnt(11840);if(r)goto S_14465;} +do{ +*__LONG_VWATCHRECOMPILEATTEMPTS=*__LONG_VWATCHRECOMPILEATTEMPTS+ 1 ; +if(!qbevent)break;evnt(11841);}while(r); +do{ +*__INTEGER_RECOMPILE= 1 ; +if(!qbevent)break;evnt(11842);}while(r); +} +S_14469:; +if ((*__INTEGER_RECOMPILE)||new_error){ +if(qbevent){evnt(11845);if(r)goto S_14469;} +LABEL_DO_RECOMPILE:; +if(qbevent){evnt(11846);r=0;} +S_14470:; +if (( 0 )||new_error){ +if(qbevent){evnt(11847);if(r)goto S_14470;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip1698; +sub_file_print(tmp_fileno,qbs_new_txt_len("Recompile required!",19), 0, 0, 1); +if (new_error) goto skip1698; +skip1698: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11847);}while(r); +} +do{ +*__INTEGER_RECOMPILE= 0 ; +if(!qbevent)break;evnt(11848);}while(r); +S_14474:; +if ((*__LONG_IDEMODE)||new_error){ +if(qbevent){evnt(11849);if(r)goto S_14474;} +do{ +*__LONG_IDERECOMPILE= 1 ; +if(!qbevent)break;evnt(11849);}while(r); +} +S_14477:; +fornext_value1700= 1 ; +fornext_finalvalue1700= 255 ; +fornext_step1700= 1 ; +if (fornext_step1700<0) fornext_step_negative1700=1; else fornext_step_negative1700=0; +if (new_error) goto fornext_error1700; +goto fornext_entrylabel1700; +while(1){ +fornext_value1700=fornext_step1700+(*__LONG_CLOSEALL); +fornext_entrylabel1700: +*__LONG_CLOSEALL=fornext_value1700; +if (fornext_step_negative1700){ +if (fornext_value1700fornext_finalvalue1700) break; +} +fornext_error1700:; +if(qbevent){evnt(11850);if(r)goto S_14477;} +do{ +sub_close(*__LONG_CLOSEALL,1); +if(!qbevent)break;evnt(11850);}while(r); +fornext_continue_1699:; +} +fornext_exit_1699:; +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(11851);}while(r); +do{ +goto LABEL_RECOMPILE; +if(!qbevent)break;evnt(11852);}while(r); +} +S_14483:; +if (( 0 )||new_error){ +if(qbevent){evnt(11855);if(r)goto S_14483;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip1701; +sub_file_print(tmp_fileno,qbs_new_txt_len("Beginning label check...",24), 0, 0, 1); +if (new_error) goto skip1701; +skip1701: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11855);}while(r); +} +S_14486:; +fornext_value1703= 1 ; +fornext_finalvalue1703=*__LONG_NLABELS; +fornext_step1703= 1 ; +if (fornext_step1703<0) fornext_step_negative1703=1; else fornext_step_negative1703=0; +if (new_error) goto fornext_error1703; +goto fornext_entrylabel1703; +while(1){ +fornext_value1703=fornext_step1703+(*__LONG_R); +fornext_entrylabel1703: +*__LONG_R=fornext_value1703; +if (fornext_step_negative1703){ +if (fornext_value1703fornext_finalvalue1703) break; +} +fornext_error1703:; +if(qbevent){evnt(11856);if(r)goto S_14486;} +S_14487:; +if ((*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+274)))||new_error){ +if(qbevent){evnt(11858);if(r)goto S_14487;} +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(11859);}while(r); +do{ +*__LONG_IGNORE=FUNC_VALIDLABEL(__STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11860);}while(r); +do{ +*__LONG_V=FUNC_HASHFIND(__STRING_A,&(pass1704= 2 ),__LONG_IGNORE,__LONG_R2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11861);}while(r); +LABEL_ADDLABCHK7:; +if(qbevent){evnt(11862);r=0;} +S_14491:; +if ((*__LONG_V)||new_error){ +if(qbevent){evnt(11863);if(r)goto S_14491;} +S_14492:; +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))))||new_error){ +if(qbevent){evnt(11864);if(r)goto S_14492;} +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(11865);}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(11865);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(11865);}while(r); +} +S_14497:; +if ((-(*__LONG_V== 2 ))||new_error){ +if(qbevent){evnt(11867);if(r)goto S_14497;} +do{ +*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R2); +if(!qbevent)break;evnt(11867);}while(r); +do{ +goto LABEL_ADDLABCHK7; +if(!qbevent)break;evnt(11867);}while(r); +} +} +} +S_14503:; +if ((-(*(uint8*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282))== 0 ))||new_error){ +if(qbevent){evnt(11872);if(r)goto S_14503;} +S_14504:; +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)))||new_error){ +if(qbevent){evnt(11874);if(r)goto S_14504;} +S_14505:; +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 )))||new_error){ +if(qbevent){evnt(11875);if(r)goto S_14505;} +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(11876);}while(r); +S_14507:; +if (( 0 )||new_error){ +if(qbevent){evnt(11877);if(r)goto S_14507;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip1705; +sub_file_print(tmp_fileno,qbs_new_txt_len("Recompiling to resolve label:",29), 0, 0, 0); +if (new_error) goto skip1705; +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 (new_error) goto skip1705; +skip1705: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11877);}while(r); +} +do{ +goto LABEL_DO_RECOMPILE; +if(!qbevent)break;evnt(11878);}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(11882);}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(11882);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(11882);}while(r); +} +S_14517:; +if ((*(uint8*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+269)))||new_error){ +if(qbevent){evnt(11886);if(r)goto S_14517;} +do{ +*__LONG_X= 0 ; +if(!qbevent)break;evnt(11889);}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(11890);}while(r); +do{ +*__LONG_IGNORE=FUNC_VALIDLABEL(__STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11891);}while(r); +do{ +*__LONG_V=FUNC_HASHFIND(__STRING_A,&(pass1706= 2 ),__LONG_IGNORE,__LONG_R2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11892);}while(r); +LABEL_ADDLABCHK4:; +if(qbevent){evnt(11893);r=0;} +S_14522:; +if ((*__LONG_V)||new_error){ +if(qbevent){evnt(11894);if(r)goto S_14522;} +do{ +*__LONG_X=*__LONG_X+ 1 ; +if(!qbevent)break;evnt(11895);}while(r); +S_14524:; +if ((-(*__LONG_V== 2 ))||new_error){ +if(qbevent){evnt(11896);if(r)goto S_14524;} +do{ +*__LONG_V=FUNC_HASHFINDCONT(__LONG_IGNORE,__LONG_R2); +if(!qbevent)break;evnt(11896);}while(r); +do{ +goto LABEL_ADDLABCHK4; +if(!qbevent)break;evnt(11896);}while(r); +} +} +S_14529:; +if ((-(*__LONG_X!= 1 ))||new_error){ +if(qbevent){evnt(11898);if(r)goto S_14529;} +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(11898);}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(11898);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(11898);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass1707=*__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)),FUNC_STR2(&(pass1708=*(int64*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*__LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+261))))),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11901);}while(r); +} +fornext_continue_1702:; +} +fornext_exit_1702:; +S_14537:; +if (( 0 )||new_error){ +if(qbevent){evnt(11906);if(r)goto S_14537;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip1709; +sub_file_print(tmp_fileno,qbs_new_txt_len("Finished check!",15), 0, 0, 1); +if (new_error) goto skip1709; +skip1709: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(11906);}while(r); +} +do{ +qbs_set(__STRING_SUBFUNC,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11916);}while(r); +do{ +*__INTEGER_DEFDATAHANDLE=*__LONG_GLOBTXTBUF; +if(!qbevent)break;evnt(11917);}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(11918);}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(11919);}while(r); +S_14544:; +if ((*__LONG_CONSOLE)||new_error){ +if(qbevent){evnt(11921);if(r)goto S_14544;} +do{ +SUB_WRITEBUFLINE(&(pass1710=*__LONG_GLOBTXTBUF),qbs_new_txt_len("int32 console=1;",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11922);}while(r); +}else{ +do{ +SUB_WRITEBUFLINE(&(pass1711=*__LONG_GLOBTXTBUF),qbs_new_txt_len("int32 console=0;",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11924);}while(r); +} +S_14549:; +if ((*__LONG_SCREENHIDE)||new_error){ +if(qbevent){evnt(11927);if(r)goto S_14549;} +do{ +SUB_WRITEBUFLINE(&(pass1712=*__LONG_GLOBTXTBUF),qbs_new_txt_len("int32 screen_hide_startup=1;",28)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11928);}while(r); +}else{ +do{ +SUB_WRITEBUFLINE(&(pass1713=*__LONG_GLOBTXTBUF),qbs_new_txt_len("int32 screen_hide_startup=0;",28)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11930);}while(r); +} +S_14554:; +if ((*__LONG_ASSERTS)||new_error){ +if(qbevent){evnt(11933);if(r)goto S_14554;} +do{ +SUB_WRITEBUFLINE(&(pass1714=*__LONG_GLOBTXTBUF),qbs_new_txt_len("int32 asserts=1;",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11934);}while(r); +}else{ +do{ +SUB_WRITEBUFLINE(&(pass1715=*__LONG_GLOBTXTBUF),qbs_new_txt_len("int32 asserts=0;",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11936);}while(r); +} +S_14559:; +if ((*__LONG_VWATCHON)||new_error){ +if(qbevent){evnt(11939);if(r)goto S_14559;} +do{ +SUB_WRITEBUFLINE(&(pass1716=*__LONG_GLOBTXTBUF),qbs_new_txt_len("int32 vwatch=-1;",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11940);}while(r); +}else{ +do{ +SUB_WRITEBUFLINE(&(pass1717=*__LONG_GLOBTXTBUF),qbs_new_txt_len("int32 vwatch=0;",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11942);}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(11945);}while(r); +S_14565:; +if ((*__LONG_RESIZE)||new_error){ +if(qbevent){evnt(11946);if(r)goto S_14565;} +do{ +SUB_WRITEBUFLINE(&(pass1718=*__LONG_BH),qbs_new_txt_len("ScreenResize=1;",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11947);}while(r); +} +S_14568:; +if ((*__LONG_RESIZE_SCALE)||new_error){ +if(qbevent){evnt(11949);if(r)goto S_14568;} +do{ +SUB_WRITEBUFLINE(&(pass1719=*__LONG_BH),qbs_add(qbs_add(qbs_new_txt_len("ScreenResizeScale=",18),FUNC_STR2(__LONG_RESIZE_SCALE)),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11950);}while(r); +} +S_14571:; +if ((-(*__LONG_VWATCHON== 1 ))||new_error){ +if(qbevent){evnt(11953);if(r)goto S_14571;} +do{ +SUB_VWATCHVARIABLE(qbs_new_txt_len("",0),&(pass1720= 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11954);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass1721=*__LONG_GLOBTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("ptrszint data_size=",19),FUNC_STR2(__LONG_DATAOFFSET)),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11959);}while(r); +S_14575:; +if ((-(*__LONG_DATAOFFSET== 0 ))||new_error){ +if(qbevent){evnt(11960);if(r)goto S_14575;} +do{ +SUB_WRITEBUFLINE(&(pass1722=*__LONG_GLOBTXTBUF),qbs_new_txt_len("uint8 *data=(uint8*)calloc(1,1);",32)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11962);}while(r); +}else{ +S_14578:; +if ((-(*__LONG_INLINE_DATA== 0 ))||new_error){ +if(qbevent){evnt(11966);if(r)goto S_14578;} +S_14579:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ +if(qbevent){evnt(11967);if(r)goto S_14579;} +S_14580:; +if ((-(*__LONG_OS_BITS== 32 ))||new_error){ +if(qbevent){evnt(11968);if(r)goto S_14580;} +do{ +qbs_set(__STRING_X,func_chr( 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11969);}while(r); +do{ +SUB_WRITEBUFRAWDATA(&(pass1723=*__LONG_DATABINBUF),__STRING_X); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11969);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1724=*__LONG_GLOBTXTBUF),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))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11970);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1725=*__LONG_GLOBTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("extern char *binary_internal_temp",33),__STRING_TEMPFOLDERINDEXSTR2),qbs_new_txt_len("_data_bin_start;",16))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11971);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1726=*__LONG_GLOBTXTBUF),qbs_new_txt_len("}",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11972);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1727=*__LONG_GLOBTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("uint8 *data=(uint8*)&binary_internal_temp",41),__STRING_TEMPFOLDERINDEXSTR2),qbs_new_txt_len("_data_bin_start;",16))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11973);}while(r); +}else{ +do{ +qbs_set(__STRING_X,func_chr( 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11975);}while(r); +do{ +SUB_WRITEBUFRAWDATA(&(pass1728=*__LONG_DATABINBUF),__STRING_X); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11975);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1729=*__LONG_GLOBTXTBUF),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))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11976);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1730=*__LONG_GLOBTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("extern char *_binary_internal_temp",34),__STRING_TEMPFOLDERINDEXSTR2),qbs_new_txt_len("_data_bin_start;",16))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11977);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1731=*__LONG_GLOBTXTBUF),qbs_new_txt_len("}",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11978);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1732=*__LONG_GLOBTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("uint8 *data=(uint8*)&_binary_internal_temp",42),__STRING_TEMPFOLDERINDEXSTR2),qbs_new_txt_len("_data_bin_start;",16))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11979);}while(r); +} +} +S_14596:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ +if(qbevent){evnt(11982);if(r)goto S_14596;} +do{ +qbs_set(__STRING_X,func_chr( 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11983);}while(r); +do{ +SUB_WRITEBUFRAWDATA(&(pass1733=*__LONG_DATABINBUF),__STRING_X); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11983);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1734=*__LONG_GLOBTXTBUF),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))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11984);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1735=*__LONG_GLOBTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("extern char *_binary_internal_temp",34),__STRING_TEMPFOLDERINDEXSTR2),qbs_new_txt_len("_data_bin_start;",16))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11985);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1736=*__LONG_GLOBTXTBUF),qbs_new_txt_len("}",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11986);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1737=*__LONG_GLOBTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("uint8 *data=(uint8*)&_binary_internal_temp",42),__STRING_TEMPFOLDERINDEXSTR2),qbs_new_txt_len("_data_bin_start;",16))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11987);}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(11991);}while(r); +do{ +qbs_set(__STRING_X,FUNC_READBUFRAWDATA(&(pass1738=*__LONG_FF),&(pass1740=FUNC_GETBUFLEN(&(pass1739=*__LONG_FF))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11992);}while(r); +do{ +qbs_set(__STRING_X2,qbs_new_txt_len("uint8 inline_data[]={",21)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11993);}while(r); +S_14608:; +fornext_value1742= 1 ; +fornext_finalvalue1742=__STRING_X->len; +fornext_step1742= 1 ; +if (fornext_step1742<0) fornext_step_negative1742=1; else fornext_step_negative1742=0; +if (new_error) goto fornext_error1742; +goto fornext_entrylabel1742; +while(1){ +fornext_value1742=fornext_step1742+(*__LONG_I); +fornext_entrylabel1742: +*__LONG_I=fornext_value1742; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative1742){ +if (fornext_value1742fornext_finalvalue1742) break; +} +fornext_error1742:; +if(qbevent){evnt(11994);if(r)goto S_14608;} +do{ +qbs_set(__STRING_X2,qbs_add(__STRING_X2,((qbs*)(((uint64*)(__ARRAY_STRING_INLINEDATASTR[0]))[array_check((qbs_asc(__STRING_X,*__LONG_I))-__ARRAY_STRING_INLINEDATASTR[4],__ARRAY_STRING_INLINEDATASTR[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11995);}while(r); +fornext_continue_1741:; +} +fornext_exit_1741:; +do{ +qbs_set(__STRING_X2,qbs_add(__STRING_X2,qbs_new_txt_len("0};",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11997);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1744=*__LONG_GLOBTXTBUF),__STRING_X2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11998);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1745=*__LONG_GLOBTXTBUF),qbs_new_txt_len("uint8 *data=&inline_data[0];",28)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(11999);}while(r); +do{ +qbs_set(__STRING_X,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12000);}while(r); +do{ +qbs_set(__STRING_X2,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12000);}while(r); +} +} +S_14618:; +if (( 0 )||new_error){ +if(qbevent){evnt(12004);if(r)goto S_14618;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip1746; +sub_file_print(tmp_fileno,qbs_new_txt_len("Beginning generation of code for saving/sharing common array data...",68), 0, 0, 1); +if (new_error) goto skip1746; +skip1746: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12004);}while(r); +} +do{ +*__LONG_USE_GLOBAL_BYTE_ELEMENTS= 1 ; +if(!qbevent)break;evnt(12005);}while(r); +do{ +*__LONG_NCOMMONTMP= 0 ; +if(!qbevent)break;evnt(12006);}while(r); +do{ +*__LONG_XI= 1 ; +if(!qbevent)break;evnt(12007);}while(r); +S_14624:; +fornext_value1748= 1 ; +fornext_finalvalue1748=*__LONG_COMMONARRAYLISTN; +fornext_step1748= 1 ; +if (fornext_step1748<0) fornext_step_negative1748=1; else fornext_step_negative1748=0; +if (new_error) goto fornext_error1748; +goto fornext_entrylabel1748; +while(1){ +fornext_value1748=fornext_step1748+(*__LONG_X); +fornext_entrylabel1748: +*__LONG_X=fornext_value1748; +if (fornext_step_negative1748){ +if (fornext_value1748fornext_finalvalue1748) break; +} +fornext_error1748:; +if(qbevent){evnt(12008);if(r)goto S_14624;} +do{ +qbs_set(__STRING_VARNAME,FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12009);}while(r); +do{ +*__LONG_XI=*__LONG_XI+ 1 ; +if(!qbevent)break;evnt(12009);}while(r); +do{ +qbs_set(__STRING_TYP,FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12010);}while(r); +do{ +*__LONG_XI=*__LONG_XI+ 1 ; +if(!qbevent)break;evnt(12010);}while(r); +do{ +*__LONG_DIMMETHOD2=qbr(func_val(FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12011);}while(r); +do{ +*__LONG_XI=*__LONG_XI+ 1 ; +if(!qbevent)break;evnt(12011);}while(r); +do{ +*__LONG_DIMSHARED2=qbr(func_val(FUNC_GETELEMENT(__STRING_COMMONARRAYLIST,__LONG_XI))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12012);}while(r); +do{ +*__LONG_XI=*__LONG_XI+ 1 ; +if(!qbevent)break;evnt(12012);}while(r); +do{ +qbs_set(__STRING_PUREVARNAME,__STRING_VARNAME); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12015);}while(r); +do{ +*__LONG_T=FUNC_TYPNAME2TYP(__STRING_TYP); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12016);}while(r); +S_14635:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(12017);if(r)goto S_14635;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(12017);}while(r); +} +S_14638:; +if ((-((*__LONG_T&*__LONG_ISUDT)== 0 ))||new_error){ +if(qbevent){evnt(12018);if(r)goto S_14638;} +do{ +qbs_set(__STRING_VARNAME,qbs_add(__STRING_VARNAME,FUNC_TYPE2SYMBOL(__STRING_TYP))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12018);}while(r); +} +S_14641:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(12019);if(r)goto S_14641;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(12019);}while(r); +} +do{ +*__LONG_TRY=FUNC_FINDID(__STRING_VARNAME); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12020);}while(r); +S_14645:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(12021);if(r)goto S_14645;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(12021);}while(r); +} +S_14648:; +while((*__LONG_TRY)||new_error){ +if(qbevent){evnt(12022);if(r)goto S_14648;} +S_14649:; +if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ +if(qbevent){evnt(12023);if(r)goto S_14649;} +do{ +goto LABEL_FOUNDCOMMONARRAY; +if(!qbevent)break;evnt(12023);}while(r); +} +S_14652:; +if ((-(*__LONG_TRY== 2 ))||new_error){ +if(qbevent){evnt(12024);if(r)goto S_14652;} +do{ +*__INTEGER_FINDANOTHERID= 1 ; +if(!qbevent)break;evnt(12024);}while(r); +do{ +*__LONG_TRY=FUNC_FINDID(__STRING_VARNAME); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12024);}while(r); +}else{ +do{ +*__LONG_TRY= 0 ; +if(!qbevent)break;evnt(12024);}while(r); +} +S_14658:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(12025);if(r)goto S_14658;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(12025);}while(r); +} +dl_continue_1749:; +} +dl_exit_1749:; +do{ +qbs_set(__STRING_A,qbs_new_txt_len("COMMON array unlocatable",24)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12027);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(12027);}while(r); +LABEL_FOUNDCOMMONARRAY:; +if(qbevent){evnt(12028);r=0;} +S_14664:; +if (( 0 )||new_error){ +if(qbevent){evnt(12029);if(r)goto S_14664;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip1750; +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 (new_error) goto skip1750; +skip1750: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12029);}while(r); +} +do{ +*__LONG_I=*__LONG_CURRENTID; +if(!qbevent)break;evnt(12031);}while(r); +do{ +*__LONG_ARRAYTYPE=*(int32*)(((char*)__UDT_ID)+(512)); +if(!qbevent)break;evnt(12032);}while(r); +do{ +*__LONG_ARRAYELEMENTS=*(int16*)(((char*)__UDT_ID)+(516)); +if(!qbevent)break;evnt(12033);}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(12034);}while(r); +S_14671:; +if ((-((*__LONG_T&*__LONG_ISUDT)== 0 ))||new_error){ +if(qbevent){evnt(12035);if(r)goto S_14671;} +do{ +qbs_set(__STRING_E,qbs_add(__STRING_E,FUNC_TYPEVALUE2SYMBOL(__LONG_T))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12035);}while(r); +} +S_14674:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(12036);if(r)goto S_14674;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(12036);}while(r); +} +do{ +qbs_set(__STRING_N,__STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12037);}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(12038);}while(r); +do{ +*__LONG_TSIZE=*(int32*)(((char*)__UDT_ID)+(540)); +if(!qbevent)break;evnt(12039);}while(r); +do{ +*__LONG_COMMAND= 3 ; +if(!qbevent)break;evnt(12042);}while(r); +S_14681:; +if ((*__LONG_T&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(12043);if(r)goto S_14681;} +S_14682:; +if ((-((*__LONG_T&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ +if(qbevent){evnt(12044);if(r)goto S_14682;} +do{ +*__LONG_COMMAND= 4 ; +if(!qbevent)break;evnt(12045);}while(r); +} +} +S_14686:; +if ((-(*__LONG_ARRAYELEMENTS== -1 ))||new_error){ +if(qbevent){evnt(12057);if(r)goto S_14686;} +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)),FUNC_STR2(__LONG_I)),qbs_new_txt_len(".txt",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12063);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1751=*__LONG_MAINTXTBUF),qbs_new_txt_len("if (int32val==2){",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12064);}while(r); +do{ +qbs_set(__STRING_X,FUNC_STR2(&(pass1752=FUNC_UNIQUENUMBER()))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12066);}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(12067);}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(12068);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1753=*__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(12069);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1754=*__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(12070);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1755=*__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(12072);}while(r); +S_14695:; +if ((-(*__LONG_COMMAND== 3 ))||new_error){ +if(qbevent){evnt(12074);if(r)goto S_14695;} +do{ +SUB_WRITEBUFLINE(&(pass1756=*__LONG_MAINTXTBUF),qbs_new_txt_len("if (int32val==3){",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12074);}while(r); +} +S_14698:; +if ((-(*__LONG_COMMAND== 4 ))||new_error){ +if(qbevent){evnt(12075);if(r)goto S_14698;} +do{ +SUB_WRITEBUFLINE(&(pass1757=*__LONG_MAINTXTBUF),qbs_new_txt_len("if (int32val==4){",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12075);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass1758=*__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(12076);}while(r); +S_14702:; +if ((-(*__LONG_COMMAND== 3 ))||new_error){ +if(qbevent){evnt(12078);if(r)goto S_14702;} +do{ +SUB_WRITEBUFLINE(&(pass1759=*__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(12080);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1760=*__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(12081);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1761=*__LONG_MAINTXTBUF),qbs_new_txt_len("bytes=int64val>>3;",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12082);}while(r); +} +S_14707:; +if ((-(*__LONG_COMMAND== 4 ))||new_error){ +if(qbevent){evnt(12085);if(r)goto S_14707;} +do{ +SUB_WRITEBUFLINE(&(pass1762=*__LONG_MAINTXTBUF),qbs_new_txt_len("bytes=1;",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12085);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass1763=*__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(12088);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1764=*__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(12089);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1765=*__LONG_MAINTXTBUF),qbs_new_txt_len("while(int32val--){",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12092);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1766=*__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(12093);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1767=*__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(12094);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1768=*__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(12095);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1769=*__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(12096);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1770=*__LONG_MAINTXTBUF),qbs_new_txt_len("bytes*=(int64val2-int64val+1);",30)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12097);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1771=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12098);}while(r); +S_14719:; +if ((-(*__LONG_COMMAND== 3 ))||new_error){ +if(qbevent){evnt(12100);if(r)goto S_14719;} +do{ +SUB_WRITEBUFLINE(&(pass1772=*__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(12102);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1773=*__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(12103);}while(r); +} +S_14723:; +if ((-(*__LONG_COMMAND== 4 ))||new_error){ +if(qbevent){evnt(12106);if(r)goto S_14723;} +do{ +SUB_WRITEBUFLINE(&(pass1774=*__LONG_MAINTXTBUF),qbs_new_txt_len("bytei=0;",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12107);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1775=*__LONG_MAINTXTBUF),qbs_new_txt_len("while(bytei>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(12111);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1779=*__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(12112);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1780=*__LONG_MAINTXTBUF),qbs_new_txt_len("bytei++;",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12113);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1781=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12114);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass1782=*__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(12118);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1783=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12119);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1784=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12121);}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)),FUNC_STR2(__LONG_I)),qbs_new_txt_len(".txt",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12126);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1785=*__LONG_MAINTXTBUF),qbs_new_txt_len("int32val=2;",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12127);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1786=*__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(12128);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1787=*__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(12130);}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)),FUNC_STR2(__LONG_I)),qbs_new_txt_len(".txt",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12140);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1788=*__LONG_MAINTXTBUF),qbs_new_txt_len("if (int32val==2){",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12142);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1789=*__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(12143);}while(r); +S_14744:; +if ((-(*__LONG_COMMAND== 3 ))||new_error){ +if(qbevent){evnt(12145);if(r)goto S_14744;} +do{ +SUB_WRITEBUFLINE(&(pass1790=*__LONG_MAINTXTBUF),qbs_new_txt_len("if (int32val==3){",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12145);}while(r); +} +S_14747:; +if ((-(*__LONG_COMMAND== 4 ))||new_error){ +if(qbevent){evnt(12146);if(r)goto S_14747;} +do{ +SUB_WRITEBUFLINE(&(pass1791=*__LONG_MAINTXTBUF),qbs_new_txt_len("if (int32val==4){",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12146);}while(r); +} +S_14750:; +if ((-(*__LONG_COMMAND== 3 ))||new_error){ +if(qbevent){evnt(12148);if(r)goto S_14750;} +do{ +SUB_WRITEBUFLINE(&(pass1792=*__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(12150);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass1793=*__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(12155);}while(r); +do{ +qbs_set(__STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12158);}while(r); +S_14755:; +if ((-(*__LONG_COMMAND== 4 ))||new_error){ +if(qbevent){evnt(12159);if(r)goto S_14755;} +do{ +SUB_WRITEBUFLINE(&(pass1794=*__LONG_MAINTXTBUF),qbs_new_txt_len("bytes=1;",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12159);}while(r); +} +S_14758:; +fornext_value1796= 1 ; +fornext_finalvalue1796=*__LONG_ARRAYELEMENTS; +fornext_step1796= 1 ; +if (fornext_step1796<0) fornext_step_negative1796=1; else fornext_step_negative1796=0; +if (new_error) goto fornext_error1796; +goto fornext_entrylabel1796; +while(1){ +fornext_value1796=fornext_step1796+(*__LONG_X2); +fornext_entrylabel1796: +*__LONG_X2=fornext_value1796; +if (fornext_step_negative1796){ +if (fornext_value1796fornext_finalvalue1796) break; +} +fornext_error1796:; +if(qbevent){evnt(12160);if(r)goto S_14758;} +S_14759:; +if ((-(*__LONG_X2>*__LONG_NCOMMONTMP))||new_error){ +if(qbevent){evnt(12163);if(r)goto S_14759;} +do{ +*__LONG_NCOMMONTMP=*__LONG_NCOMMONTMP+ 1 ; +if(!qbevent)break;evnt(12164);}while(r); +S_14761:; +if (( 0 )||new_error){ +if(qbevent){evnt(12166);if(r)goto S_14761;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip1797; +sub_file_print(tmp_fileno,qbs_new_txt_len("Calling DIM2(...)...",20), 0, 0, 1); +if (new_error) goto skip1797; +skip1797: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12166);}while(r); +} +S_14764:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(12167);if(r)goto S_14764;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(12167);}while(r); +} +do{ +*__LONG_RETVAL=FUNC_DIM2(qbs_add(qbs_new_txt_len("___RESERVED_COMMON_LBOUND",25),FUNC_STR2(__LONG_NCOMMONTMP)),qbs_new_txt_len("_INTEGER64",10),&(pass1798= 0 ),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12168);}while(r); +S_14768:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(12169);if(r)goto S_14768;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(12169);}while(r); +} +do{ +*__LONG_RETVAL=FUNC_DIM2(qbs_add(qbs_new_txt_len("___RESERVED_COMMON_UBOUND",25),FUNC_STR2(__LONG_NCOMMONTMP)),qbs_new_txt_len("_INTEGER64",10),&(pass1799= 0 ),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12170);}while(r); +S_14772:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(12171);if(r)goto S_14772;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(12171);}while(r); +} +S_14775:; +if (( 0 )||new_error){ +if(qbevent){evnt(12172);if(r)goto S_14775;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip1800; +sub_file_print(tmp_fileno,qbs_new_txt_len("Finished calling DIM2(...)!",27), 0, 0, 1); +if (new_error) goto skip1800; +skip1800: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12172);}while(r); +} +S_14778:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(12173);if(r)goto S_14778;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(12173);}while(r); +} +} +do{ +SUB_WRITEBUFLINE(&(pass1801=*__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(12178);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1802=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("*__INTEGER64____RESERVED_COMMON_LBOUND",38),FUNC_STR2(__LONG_X2)),qbs_new_txt_len("=int64val;",10))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12179);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1803=*__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(12180);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1804=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("*__INTEGER64____RESERVED_COMMON_UBOUND",38),FUNC_STR2(__LONG_X2)),qbs_new_txt_len("=int64val2;",11))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12181);}while(r); +S_14786:; +if ((-(*__LONG_COMMAND== 4 ))||new_error){ +if(qbevent){evnt(12182);if(r)goto S_14786;} +do{ +SUB_WRITEBUFLINE(&(pass1805=*__LONG_MAINTXTBUF),qbs_new_txt_len("bytes*=(int64val2-int64val+1);",30)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12182);}while(r); +} +S_14789:; +if ((-(*__LONG_X2> 1 ))||new_error){ +if(qbevent){evnt(12183);if(r)goto S_14789;} +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(12183);}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)),FUNC_STR2(__LONG_X2)),__STRING1_SP),qbs_new_txt_len("TO",2)),__STRING1_SP),qbs_new_txt_len("___RESERVED_COMMON_UBOUND",25)),FUNC_STR2(__LONG_X2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12184);}while(r); +fornext_continue_1795:; +} +fornext_exit_1795:; +S_14794:; +if (( 0 )||new_error){ +if(qbevent){evnt(12187);if(r)goto S_14794;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip1806; +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 (new_error) goto skip1806; +skip1806: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12187);}while(r); +} +S_14797:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(12188);if(r)goto S_14797;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(12188);}while(r); +} +do{ +*__INTEGER_REDIMOPTION= 1 ; +if(!qbevent)break;evnt(12190);}while(r); +do{ +*__LONG_RETVAL=FUNC_DIM2(__STRING_PUREVARNAME,__STRING_TYP,&(pass1807= 0 ),__STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12191);}while(r); +S_14802:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(12192);if(r)goto S_14802;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(12192);}while(r); +} +do{ +*__INTEGER_REDIMOPTION= 0 ; +if(!qbevent)break;evnt(12193);}while(r); +S_14806:; +if (( 0 )||new_error){ +if(qbevent){evnt(12194);if(r)goto S_14806;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip1808; +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 (new_error) goto skip1808; +skip1808: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12194);}while(r); +} +S_14809:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(12195);if(r)goto S_14809;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(12195);}while(r); +} +S_14812:; +if ((-(*__LONG_COMMAND== 3 ))||new_error){ +if(qbevent){evnt(12197);if(r)goto S_14812;} +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(12199);}while(r); +do{ +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(FUNC_FIXOPERATIONORDER(__STRING_VARNAME),&(pass1809= -4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12200);}while(r); +S_14815:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(12201);if(r)goto S_14815;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(12201);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass1810=*__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(12202);}while(r); +} +S_14820:; +if ((-(*__LONG_COMMAND== 4 ))||new_error){ +if(qbevent){evnt(12205);if(r)goto S_14820;} +do{ +SUB_WRITEBUFLINE(&(pass1811=*__LONG_MAINTXTBUF),qbs_new_txt_len("bytei=0;",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12206);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1812=*__LONG_MAINTXTBUF),qbs_new_txt_len("while(bytei>3,1));",37)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12210);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1816=*__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(12211);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1817=*__LONG_MAINTXTBUF),qbs_new_txt_len("bytei++;",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12212);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1818=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12213);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass1819=*__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(12217);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1820=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12218);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1821=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12219);}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)),FUNC_STR2(__LONG_I)),qbs_new_txt_len(".txt",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12223);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1822=*__LONG_MAINTXTBUF),qbs_new_txt_len("int32val=2;",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12225);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1823=*__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(12226);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1824=*__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(12228);}while(r); +S_14837:; +if ((-(*__LONG_COMMAND== 3 ))||new_error){ +if(qbevent){evnt(12230);if(r)goto S_14837;} +do{ +SUB_WRITEBUFLINE(&(pass1825=*__LONG_MAINTXTBUF),qbs_new_txt_len("int32val=3;",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12230);}while(r); +} +S_14840:; +if ((-(*__LONG_COMMAND== 4 ))||new_error){ +if(qbevent){evnt(12231);if(r)goto S_14840;} +do{ +SUB_WRITEBUFLINE(&(pass1826=*__LONG_MAINTXTBUF),qbs_new_txt_len("int32val=4;",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12231);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass1827=*__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(12232);}while(r); +S_14844:; +if ((-(*__LONG_COMMAND== 3 ))||new_error){ +if(qbevent){evnt(12234);if(r)goto S_14844;} +do{ +*__LONG_BITS=*__LONG_T& 511 ; +if(!qbevent)break;evnt(12236);}while(r); +S_14846:; +if ((*__LONG_T&*__LONG_ISUDT)||new_error){ +if(qbevent){evnt(12237);if(r)goto S_14846;} +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(12237);}while(r); +} +S_14849:; +if ((*__LONG_T&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(12238);if(r)goto S_14849;} +do{ +*__LONG_BITS=*__LONG_TSIZE* 8 ; +if(!qbevent)break;evnt(12238);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass1828=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("int64val=",9),FUNC_STR2(__LONG_BITS)),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12239);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1829=*__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(12240);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass1830=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("int32val=",9),FUNC_STR2(__LONG_ARRAYELEMENTS)),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12243);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1831=*__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(12244);}while(r); +S_14857:; +if ((-(*__LONG_COMMAND== 3 ))||new_error){ +if(qbevent){evnt(12246);if(r)goto S_14857;} +S_14858:; +fornext_value1833= 1 ; +fornext_finalvalue1833=*__LONG_ARRAYELEMENTS; +fornext_step1833= 1 ; +if (fornext_step1833<0) fornext_step_negative1833=1; else fornext_step_negative1833=0; +if (new_error) goto fornext_error1833; +goto fornext_entrylabel1833; +while(1){ +fornext_value1833=fornext_step1833+(*__LONG_X2); +fornext_entrylabel1833: +*__LONG_X2=fornext_value1833; +if (fornext_step_negative1833){ +if (fornext_value1833fornext_finalvalue1833) break; +} +fornext_error1833:; +if(qbevent){evnt(12248);if(r)goto S_14858;} +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),FUNC_STR2(__LONG_X2)),__STRING1_SP),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12250);}while(r); +do{ +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(FUNC_FIXOPERATIONORDER(__STRING_E),&(pass1834= 64 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12251);}while(r); +S_14861:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(12252);if(r)goto S_14861;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(12252);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass1835=*__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(12253);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1836=*__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(12254);}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),FUNC_STR2(__LONG_X2)),__STRING1_SP),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12255);}while(r); +do{ +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(FUNC_FIXOPERATIONORDER(__STRING_E),&(pass1837= 64 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12256);}while(r); +S_14868:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(12257);if(r)goto S_14868;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(12257);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass1838=*__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(12258);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1839=*__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(12259);}while(r); +fornext_continue_1832:; +} +fornext_exit_1832:; +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))),&(pass1840= -4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12263);}while(r); +S_14875:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(12264);if(r)goto S_14875;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(12264);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass1841=*__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(12265);}while(r); +} +S_14880:; +if ((-(*__LONG_COMMAND== 4 ))||new_error){ +if(qbevent){evnt(12269);if(r)goto S_14880;} +do{ +SUB_WRITEBUFLINE(&(pass1842=*__LONG_MAINTXTBUF),qbs_new_txt_len("bytes=1;",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12272);}while(r); +S_14882:; +fornext_value1844= 1 ; +fornext_finalvalue1844=*__LONG_ARRAYELEMENTS; +fornext_step1844= 1 ; +if (fornext_step1844<0) fornext_step_negative1844=1; else fornext_step_negative1844=0; +if (new_error) goto fornext_error1844; +goto fornext_entrylabel1844; +while(1){ +fornext_value1844=fornext_step1844+(*__LONG_X2); +fornext_entrylabel1844: +*__LONG_X2=fornext_value1844; +if (fornext_step_negative1844){ +if (fornext_value1844fornext_finalvalue1844) break; +} +fornext_error1844:; +if(qbevent){evnt(12273);if(r)goto S_14882;} +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),FUNC_STR2(__LONG_X2)),__STRING1_SP),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12274);}while(r); +do{ +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(FUNC_FIXOPERATIONORDER(__STRING_E),&(pass1845= 64 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12275);}while(r); +S_14885:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(12276);if(r)goto S_14885;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(12276);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass1846=*__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(12277);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1847=*__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(12278);}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),FUNC_STR2(__LONG_X2)),__STRING1_SP),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12279);}while(r); +do{ +qbs_set(__STRING_E,FUNC_EVALUATETOTYP(FUNC_FIXOPERATIONORDER(__STRING_E),&(pass1848= 64 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12280);}while(r); +S_14892:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(12281);if(r)goto S_14892;} +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(12281);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass1849=*__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(12282);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1850=*__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(12283);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1851=*__LONG_MAINTXTBUF),qbs_new_txt_len("bytes*=(int64val2-int64val+1);",30)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12284);}while(r); +fornext_continue_1843:; +} +fornext_exit_1843:; +do{ +SUB_WRITEBUFLINE(&(pass1852=*__LONG_MAINTXTBUF),qbs_new_txt_len("bytei=0;",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12287);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1853=*__LONG_MAINTXTBUF),qbs_new_txt_len("while(byteilen; int64val<<=3;",33)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12290);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1856=*__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(12291);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1857=*__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(12292);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1858=*__LONG_MAINTXTBUF),qbs_new_txt_len("bytei++;",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12293);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1859=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12294);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass1860=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12298);}while(r); +} +fornext_continue_1747:; +} +fornext_exit_1747:; +do{ +*__LONG_USE_GLOBAL_BYTE_ELEMENTS= 0 ; +if(!qbevent)break;evnt(12305);}while(r); +S_14912:; +if (( 0 )||new_error){ +if(qbevent){evnt(12306);if(r)goto S_14912;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip1861; +sub_file_print(tmp_fileno,qbs_new_txt_len("Finished generation of code for saving/sharing common array data!",65), 0, 0, 1); +if (new_error) goto skip1861; +skip1861: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12306);}while(r); +} +S_14915:; +fornext_value1863= 1 ; +fornext_finalvalue1863= 255 ; +fornext_step1863= 1 ; +if (fornext_step1863<0) fornext_step_negative1863=1; else fornext_step_negative1863=0; +if (new_error) goto fornext_error1863; +goto fornext_entrylabel1863; +while(1){ +fornext_value1863=fornext_step1863+(*__LONG_CLOSEALL); +fornext_entrylabel1863: +*__LONG_CLOSEALL=fornext_value1863; +if (fornext_step_negative1863){ +if (fornext_value1863fornext_finalvalue1863) break; +} +fornext_error1863:; +if(qbevent){evnt(12309);if(r)goto S_14915;} +do{ +sub_close(*__LONG_CLOSEALL,1); +if(!qbevent)break;evnt(12309);}while(r); +fornext_continue_1862:; +} +fornext_exit_1862:; +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(12310);}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(12312);}while(r); +do{ +sub_open(__STRING_COMPILELOG, 4 ,NULL,NULL, 1 ,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12314);}while(r); +do{ +sub_close( 1 ,1); +if(!qbevent)break;evnt(12314);}while(r); +S_14922:; +if (((-(*__LONG_IDEMODE== 0 ))&(~(*__BYTE_QUIETMODE)))||new_error){ +if(qbevent){evnt(12316);if(r)goto S_14922;} +S_14923:; +if ((*__LONG_CONSOLEMODE)||new_error){ +if(qbevent){evnt(12317);if(r)goto S_14923;} +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 (new_error) goto skip1864; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip1864: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12318);}while(r); +}else{ +do{ +qbg_sub_locate(NULL, 1 ,NULL,NULL,NULL,2); +if(!qbevent)break;evnt(12320);}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 (new_error) goto skip1865; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip1865: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12321);}while(r); +} +} +S_14930:; +if ((~(*__BYTE_IGNOREWARNINGS))||new_error){ +if(qbevent){evnt(12325);if(r)goto S_14930;} +do{ +*__LONG_TOTALUNUSEDVARIABLES= 0 ; +if(!qbevent)break;evnt(12326);}while(r); +S_14932:; +fornext_value1867= 1 ; +fornext_finalvalue1867=*__LONG_TOTALVARIABLESCREATED; +fornext_step1867= 1 ; +if (fornext_step1867<0) fornext_step_negative1867=1; else fornext_step_negative1867=0; +if (new_error) goto fornext_error1867; +goto fornext_entrylabel1867; +while(1){ +fornext_value1867=fornext_step1867+(*__LONG_I); +fornext_entrylabel1867: +*__LONG_I=fornext_value1867; +if (fornext_step_negative1867){ +if (fornext_value1867fornext_finalvalue1867) break; +} +fornext_error1867:; +if(qbevent){evnt(12327);if(r)goto S_14932;} +S_14933:; +if ((-(*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*__LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+28))== 0 ))||new_error){ +if(qbevent){evnt(12328);if(r)goto S_14933;} +do{ +*__LONG_TOTALUNUSEDVARIABLES=*__LONG_TOTALUNUSEDVARIABLES+ 1 ; +if(!qbevent)break;evnt(12329);}while(r); +} +fornext_continue_1866:; +} +fornext_exit_1866:; +S_14937:; +if ((-(*__LONG_TOTALUNUSEDVARIABLES> 0 ))||new_error){ +if(qbevent){evnt(12333);if(r)goto S_14937;} +do{ +*__LONG_MAXVARNAMELEN= 0 ; +if(!qbevent)break;evnt(12334);}while(r); +S_14939:; +fornext_value1869= 1 ; +fornext_finalvalue1869=*__LONG_TOTALVARIABLESCREATED; +fornext_step1869= 1 ; +if (fornext_step1869<0) fornext_step_negative1869=1; else fornext_step_negative1869=0; +if (new_error) goto fornext_error1869; +goto fornext_entrylabel1869; +while(1){ +fornext_value1869=fornext_step1869+(*__LONG_I); +fornext_entrylabel1869: +*__LONG_I=fornext_value1869; +if (fornext_step_negative1869){ +if (fornext_value1869fornext_finalvalue1869) break; +} +fornext_error1869:; +if(qbevent){evnt(12335);if(r)goto S_14939;} +S_14940:; +if ((-(*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*__LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+28))== 0 ))||new_error){ +if(qbevent){evnt(12336);if(r)goto S_14940;} +S_14941:; +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)))||new_error){ +if(qbevent){evnt(12337);if(r)goto S_14941;} +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(12337);}while(r); +} +} +fornext_continue_1868:; +} +fornext_exit_1868:; +do{ +qbs_set(__STRING_HEADER,qbs_new_txt_len("unused variable",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12341);}while(r); +S_14947:; +fornext_value1871= 1 ; +fornext_finalvalue1871=*__LONG_TOTALVARIABLESCREATED; +fornext_step1871= 1 ; +if (fornext_step1871<0) fornext_step_negative1871=1; else fornext_step_negative1871=0; +if (new_error) goto fornext_error1871; +goto fornext_entrylabel1871; +while(1){ +fornext_value1871=fornext_step1871+(*__LONG_I); +fornext_entrylabel1871: +*__LONG_I=fornext_value1871; +if (fornext_step_negative1871){ +if (fornext_value1871fornext_finalvalue1871) break; +} +fornext_error1871:; +if(qbevent){evnt(12342);if(r)goto S_14947;} +S_14948:; +if ((-(*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*__LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+28))== 0 ))||new_error){ +if(qbevent){evnt(12343);if(r)goto S_14948;} +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(12344);}while(r); +} +fornext_continue_1870:; +} +fornext_exit_1870:; +} +} +S_14954:; +if ((*__LONG_IDEMODE)||new_error){ +if(qbevent){evnt(12350);if(r)goto S_14954;} +do{ +goto LABEL_IDERET5; +if(!qbevent)break;evnt(12350);}while(r); +} +LABEL_IDE6:; +if(qbevent){evnt(12351);r=0;} +S_14957:; +if (((-(*__LONG_IDEMODE== 0 ))&(-(*__LONG_NO_C_COMPILE_MODE== 0 )))||new_error){ +if(qbevent){evnt(12353);if(r)goto S_14957;} +S_14958:; +if ((~(*__BYTE_QUIETMODE))||new_error){ +if(qbevent){evnt(12354);if(r)goto S_14958;} +do{ +tqbs=qbs_new(0,0); +qbs_print(nothingstring,1); +skip1872: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12355);}while(r); +S_14960:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ +if(qbevent){evnt(12356);if(r)goto S_14960;} +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("Compiling C++ code into executable...",37)); +if (new_error) goto skip1873; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip1873: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12357);}while(r); +}else{ +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("Compiling C++ code into EXE...",30)); +if (new_error) goto skip1874; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip1874: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12359);}while(r); +} +} +S_14966:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_OUTPUTFILE_CMD->len|*__LONG_OUTPUTISRELATIVETOSTARTDIR))||new_error){ +if(qbevent){evnt(12364);if(r)goto S_14966;} +S_14967:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_OUTPUTFILE_CMD->len))||new_error){ +if(qbevent){evnt(12365);if(r)goto S_14967;} +do{ +qbs_set(__STRING_PATH__ASCII_CHR_046__OUT,FUNC_GETFILEPATH(__STRING_OUTPUTFILE_CMD)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12367);}while(r); +do{ +qbs_set(__STRING_F,func_mid(__STRING_OUTPUTFILE_CMD,__STRING_PATH__ASCII_CHR_046__OUT->len+ 1 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12368);}while(r); +S_14970:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(FUNC_GETFILEEXTENSION(__STRING_F)),qbs_new_txt_len("EXE",3))))||new_error){ +if(qbevent){evnt(12370);if(r)goto S_14970;} +do{ +qbs_set(__STRING_FILE,FUNC_REMOVEFILEEXTENSION(__STRING_F)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12371);}while(r); +}else{ +do{ +qbs_set(__STRING_FILE,__STRING_F); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12373);}while(r); +} +} +S_14976:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_PATH__ASCII_CHR_046__OUT->len|*__LONG_OUTPUTISRELATIVETOSTARTDIR))||new_error){ +if(qbevent){evnt(12377);if(r)goto S_14976;} +do{ +qbs_set(__STRING_CURRENTDIR,func__cwd()); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12378);}while(r); +S_14978:; +if ((*__LONG_OUTPUTISRELATIVETOSTARTDIR)||new_error){ +if(qbevent){evnt(12380);if(r)goto S_14978;} +do{ +sub_chdir(func__startdir()); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12383);}while(r); +S_14980:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_PATH__ASCII_CHR_046__OUT->len== 0 )))||new_error){ +if(qbevent){evnt(12389);if(r)goto S_14980;} +do{ +qbs_set(__STRING_PATH__ASCII_CHR_046__OUT,func__startdir()); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12390);}while(r); +} +} +S_14984:; +if ((qbs_cleanup(qbs_tmp_base,-(func__direxists(__STRING_PATH__ASCII_CHR_046__OUT)== 0 )))||new_error){ +if(qbevent){evnt(12394);if(r)goto S_14984;} +do{ +tqbs=qbs_new(0,0); +qbs_print(nothingstring,1); +skip1880: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12395);}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 (new_error) goto skip1881; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip1881: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12396);}while(r); +S_14987:; +if ((*__LONG_CONSOLEMODE)||new_error){ +if(qbevent){evnt(12397);if(r)goto S_14987;} +do{ +if(qbevent){evnt(12397);} +exit_code= 1 ; +if (sub_gl_called) error(271); +close_program=1; +end(); +if(!qbevent)break;evnt(12397);}while(r); +} +do{ +if(qbevent){evnt(12398);} +exit_code= 1 ; +sub_end(); +if(!qbevent)break;evnt(12398);}while(r); +} +do{ +sub_chdir(__STRING_PATH__ASCII_CHR_046__OUT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12401);}while(r); +do{ +qbs_set(__STRING_PATH__ASCII_CHR_046__OUT,func__cwd()); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12402);}while(r); +do{ +sub_chdir(__STRING_CURRENTDIR); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12403);}while(r); +S_14995:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_right(__STRING_PATH__ASCII_CHR_046__OUT, 1 ),__STRING1_PATHSEP)))||new_error){ +if(qbevent){evnt(12405);if(r)goto S_14995;} +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(12405);}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(12406);}while(r); +do{ +*__BYTE_SAVEEXEWITHSOURCE= -1 ; +if(!qbevent)break;evnt(12408);}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(12411);}while(r); +S_15003:; +if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_FILE),__STRING_EXTENSION))))||new_error){ +if(qbevent){evnt(12412);if(r)goto S_15003;} +do{ +*__LONG_E= 0 ; +if(!qbevent)break;evnt(12413);}while(r); +do{ +error_goto_line=7; +if(!qbevent)break;evnt(12414);}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(12415);}while(r); +do{ +error_goto_line=8; +if(!qbevent)break;evnt(12416);}while(r); +S_15008:; +if ((-(*__LONG_E== 1 ))||new_error){ +if(qbevent){evnt(12417);if(r)goto S_15008;} +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(12418);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(12418);}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(12421);}while(r); +} +S_15015:; +if ((*__LONG_EXEICONSET)||new_error){ +if(qbevent){evnt(12424);if(r)goto S_15015;} +do{ +*__LONG_LINENUMBER=*__LONG_EXEICONSET; +if(!qbevent)break;evnt(12425);}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(12426);}while(r); +do{ +error_goto_line=9; +if(!qbevent)break;evnt(12430);}while(r); +do{ +if(!qbevent)break;evnt(12432);}while(r); +do{ +*__LONG_ERRNO=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(12433);}while(r); +S_15021:; +if ((-(*__LONG_ERRNO!= 0 ))||new_error){ +if(qbevent){evnt(12434);if(r)goto S_15021;} +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(12434);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(12434);}while(r); +} +do{ +error_goto_line=10; +if(!qbevent)break;evnt(12436);}while(r); +} +S_15027:; +if ((*__BYTE_VERSIONINFOSET)||new_error){ +if(qbevent){evnt(12439);if(r)goto S_15027;} +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(12440);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1882=*__LONG_MANIBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12441);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1883=*__LONG_MANIBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12442);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1884=*__LONG_MANIBUF),qbs_new_txt_len("",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12448);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1890=*__LONG_MANIBUF),qbs_add(qbs_add(qbs_new_txt_len("",13),__STRING_VIFILEDESCRIPTION),qbs_new_txt_len("",14))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12449);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1891=*__LONG_MANIBUF),qbs_new_txt_len("",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12450);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1892=*__LONG_MANIBUF),qbs_new_txt_len(" ",23)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12451);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1893=*__LONG_MANIBUF),qbs_new_txt_len(" ",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12459);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1901=*__LONG_MANIBUF),qbs_new_txt_len(" ",24)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12460);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1902=*__LONG_MANIBUF),qbs_new_txt_len("",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12461);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1903=*__LONG_MANIBUF),qbs_new_txt_len("",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12462);}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(12464);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1904=*__LONG_MANIBUF),qbs_new_txt_len("#ifndef RESOURCE_H",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12465);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1905=*__LONG_MANIBUF),qbs_new_txt_len("#define RESOURCE_H",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12466);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1906=*__LONG_MANIBUF),qbs_new_txt_len("#ifdef __cplusplus",21)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12467);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1907=*__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(12468);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1908=*__LONG_MANIBUF),qbs_new_txt_len("#endif",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12469);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1909=*__LONG_MANIBUF),qbs_new_txt_len("#ifdef __cplusplus",21)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12470);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1910=*__LONG_MANIBUF),qbs_new_txt_len("}",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12471);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1911=*__LONG_MANIBUF),qbs_new_txt_len("#endif",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12472);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1912=*__LONG_MANIBUF),qbs_new_txt_len("#endif /* RESOURCE_H */",26)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12473);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1913=*__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(12474);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1914=*__LONG_MANIBUF),qbs_new_txt_len("#define RT_MANIFEST 24",44)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12475);}while(r); +} +S_15064:; +if ((*__BYTE_VERSIONINFOSET|*__LONG_EXEICONSET)||new_error){ +if(qbevent){evnt(12478);if(r)goto S_15064;} +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(12479);}while(r); +S_15066:; +if ((*__LONG_EXEICONSET)||new_error){ +if(qbevent){evnt(12481);if(r)goto S_15066;} +do{ +SUB_WRITEBUFLINE(&(pass1915=*__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(12482);}while(r); +} +S_15069:; +if ((*__BYTE_VERSIONINFOSET)||new_error){ +if(qbevent){evnt(12485);if(r)goto S_15069;} +do{ +SUB_WRITEBUFLINE(&(pass1916=*__LONG_ICONRCBUF),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12486);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1917=*__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(12487);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1918=*__LONG_ICONRCBUF),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12488);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1919=*__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(12489);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1920=*__LONG_ICONRCBUF),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12490);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1921=*__LONG_ICONRCBUF),qbs_new_txt_len("1 VERSIONINFO",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12491);}while(r); +S_15076:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_VIFILEVERSIONNUM->len))||new_error){ +if(qbevent){evnt(12492);if(r)goto S_15076;} +do{ +SUB_WRITEBUFLINE(&(pass1923=*__LONG_ICONRCBUF),qbs_add(qbs_new_txt_len("FILEVERSION ",16),__STRING_VIFILEVERSIONNUM)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12492);}while(r); +} +S_15079:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_VIPRODUCTVERSIONNUM->len))||new_error){ +if(qbevent){evnt(12493);if(r)goto S_15079;} +do{ +SUB_WRITEBUFLINE(&(pass1925=*__LONG_ICONRCBUF),qbs_add(qbs_new_txt_len("PRODUCTVERSION ",16),__STRING_VIPRODUCTVERSIONNUM)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12493);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass1926=*__LONG_ICONRCBUF),qbs_new_txt_len("BEGIN",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12494);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1927=*__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(12495);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1928=*__LONG_ICONRCBUF),qbs_new_txt_len(" BEGIN",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12496);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1929=*__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(12497);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1930=*__LONG_ICONRCBUF),qbs_new_txt_len(" BEGIN",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12498);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1931=*__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(12499);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1932=*__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(12500);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1933=*__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(12501);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1934=*__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(12502);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1935=*__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(12503);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1936=*__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(12504);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1937=*__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(12505);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1938=*__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(12506);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1939=*__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(12507);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1940=*__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(12508);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1941=*__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(12509);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1942=*__LONG_ICONRCBUF),qbs_new_txt_len(" END",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12510);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1943=*__LONG_ICONRCBUF),qbs_new_txt_len(" END",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12511);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1944=*__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(12512);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1945=*__LONG_ICONRCBUF),qbs_new_txt_len(" BEGIN",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12513);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1946=*__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(12514);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1947=*__LONG_ICONRCBUF),qbs_new_txt_len(" END",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12515);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass1948=*__LONG_ICONRCBUF),qbs_new_txt_len("END",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12516);}while(r); +} +} +do{ +SUB_WRITEBUFFERS(qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12522);}while(r); +S_15108:; +if ((*__LONG_MIDISOUNDFONTSET)||new_error){ +if(qbevent){evnt(12524);if(r)goto S_15108;} +do{ +*__LONG_LINENUMBER=*__LONG_MIDISOUNDFONTSET; +if(!qbevent)break;evnt(12525);}while(r); +do{ +qbs_set(__STRING_WHOLELINE,__STRING_MIDISOUNDFONTLINE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12526);}while(r); +S_15111:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_MIDISOUNDFONT,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(12528);if(r)goto S_15111;} +do{ +qbs_set(__STRING_MIDISOUNDFONT,qbs_new_txt_len("internal/support/default_soundfont.sf2",38)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12529);}while(r); +} +do{ +error_goto_line=11; +if(!qbevent)break;evnt(12532);}while(r); +do{ +*__LONG_ERRNO=FUNC_COPYFILE(__STRING_MIDISOUNDFONT,qbs_add(__STRING_TMPDIR,qbs_new_txt_len("soundfont.sf2",13))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12534);}while(r); +S_15116:; +if ((-(*__LONG_ERRNO!= 0 ))||new_error){ +if(qbevent){evnt(12535);if(r)goto S_15116;} +do{ +qbs_set(__STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Error copying ",14),FUNC_QUOTEDFILENAME(__STRING_MIDISOUNDFONT)),qbs_new_txt_len(" to temp directory",18))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12535);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(12535);}while(r); +} +do{ +error_goto_line=12; +if(!qbevent)break;evnt(12537);}while(r); +} +do{ +qbs_set(__STRING_O,qbs_lcase(__STRING_OS)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12542);}while(r); +do{ +*__LONG_WIN= 0 ; +if(!qbevent)break;evnt(12543);}while(r); +S_15124:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ +if(qbevent){evnt(12543);if(r)goto S_15124;} +do{ +*__LONG_WIN= 1 ; +if(!qbevent)break;evnt(12543);}while(r); +} +do{ +*__LONG_LNX= 0 ; +if(!qbevent)break;evnt(12544);}while(r); +S_15128:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ +if(qbevent){evnt(12544);if(r)goto S_15128;} +do{ +*__LONG_LNX= 1 ; +if(!qbevent)break;evnt(12544);}while(r); +} +do{ +*__LONG_MAC= 0 ; +if(!qbevent)break;evnt(12545);}while(r); +S_15132:; +if ((*__LONG_MACOSX)||new_error){ +if(qbevent){evnt(12545);if(r)goto S_15132;} +do{ +*__LONG_MAC= 1 ; +if(!qbevent)break;evnt(12545);}while(r); +do{ +qbs_set(__STRING_O,qbs_new_txt_len("osx",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12545);}while(r); +} +do{ +qbs_set(__STRING_VER,__STRING_VERSION); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12546);}while(r); +do{ +qbs_set(__STRING_LIBS,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12547);}while(r); +do{ +qbs_set(__STRING_MAKEDEPS,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12548);}while(r); +do{ +qbs_set(__STRING_MAKE,FUNC_GETMAKEEXECUTABLE()); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12549);}while(r); +do{ +qbs_set(__STRING_LOCALPATH,qbs_new_txt_len("internal\\c\\",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12551);}while(r); +S_15141:; +if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 5 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ +if(qbevent){evnt(12554);if(r)goto S_15141;} +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(12554);}while(r); +} +S_15144:; +if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 11 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ +if(qbevent){evnt(12555);if(r)goto S_15144;} +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(12555);}while(r); +} +S_15147:; +if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 6 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ +if(qbevent){evnt(12556);if(r)goto S_15147;} +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(12556);}while(r); +} +S_15150:; +if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 7 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ +if(qbevent){evnt(12557);if(r)goto S_15150;} +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(12557);}while(r); +} +S_15153:; +if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 8 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ +if(qbevent){evnt(12558);if(r)goto S_15153;} +do{ +qbs_set(__STRING_MAKEDEPS,qbs_add(__STRING_MAKEDEPS,qbs_new_txt_len(" DEP_SOCKETS=y",14))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12558);}while(r); +} +S_15156:; +if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 9 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ +if(qbevent){evnt(12559);if(r)goto S_15156;} +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(12559);}while(r); +} +S_15159:; +if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 10 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ +if(qbevent){evnt(12560);if(r)goto S_15159;} +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(12560);}while(r); +} +S_15162:; +if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 11 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ +if(qbevent){evnt(12561);if(r)goto S_15162;} +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(12561);}while(r); +} +S_15165:; +if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 1 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ +if(qbevent){evnt(12562);if(r)goto S_15165;} +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(12562);}while(r); +} +S_15168:; +if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 12 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ +if(qbevent){evnt(12563);if(r)goto S_15168;} +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(12563);}while(r); +} +S_15171:; +if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 13 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ +if(qbevent){evnt(12564);if(r)goto S_15171;} +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(12564);}while(r); +} +S_15174:; +if (((-(*__LONG_INLINE_DATA== 0 ))&*__LONG_DATAOFFSET)||new_error){ +if(qbevent){evnt(12565);if(r)goto S_15174;} +do{ +qbs_set(__STRING_MAKEDEPS,qbs_add(__STRING_MAKEDEPS,qbs_new_txt_len(" DEP_DATA=y",11))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12565);}while(r); +} +S_15177:; +if ((*__LONG_CONSOLE)||new_error){ +if(qbevent){evnt(12566);if(r)goto S_15177;} +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(12566);}while(r); +} +S_15180:; +if ((*__LONG_EXEICONSET|*__BYTE_VERSIONINFOSET)||new_error){ +if(qbevent){evnt(12567);if(r)goto S_15180;} +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(12567);}while(r); +} +S_15183:; +if ((~(*__ULONG_USEMINIAUDIOBACKEND))||new_error){ +if(qbevent){evnt(12569);if(r)goto S_15183;} +S_15184:; +if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 3 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ +if(qbevent){evnt(12570);if(r)goto S_15184;} +do{ +qbs_set(__STRING_MAKEDEPS,qbs_add(__STRING_MAKEDEPS,qbs_new_txt_len(" DEP_AUDIO_DECODE=y",19))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12570);}while(r); +} +S_15187:; +if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 2 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ +if(qbevent){evnt(12571);if(r)goto S_15187;} +do{ +qbs_set(__STRING_MAKEDEPS,qbs_add(__STRING_MAKEDEPS,qbs_new_txt_len(" DEP_AUDIO_CONVERSION=y",23))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12571);}while(r); +} +S_15190:; +if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 4 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ +if(qbevent){evnt(12572);if(r)goto S_15190;} +do{ +qbs_set(__STRING_MAKEDEPS,qbs_add(__STRING_MAKEDEPS,qbs_new_txt_len(" DEP_AUDIO_OUT=y",16))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12572);}while(r); +} +}else{ +S_15194:; +if ((((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 3 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])]|((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 2 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])]|((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 4 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])])||new_error){ +if(qbevent){evnt(12574);if(r)goto S_15194;} +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(12575);}while(r); +} +} +S_15198:; +if ((((int8*)(__ARRAY_BYTE_UNSTABLEFLAGS[0]))[array_check((*__LONG_UNSTABLE_HTTP)-__ARRAY_BYTE_UNSTABLEFLAGS[4],__ARRAY_BYTE_UNSTABLEFLAGS[5])]&(-(((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[array_check(( 8 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5])]!= 0 )))||new_error){ +if(qbevent){evnt(12579);if(r)goto S_15198;} +do{ +qbs_set(__STRING_MAKEDEPS,qbs_add(__STRING_MAKEDEPS,qbs_new_txt_len(" DEP_HTTP=y",11))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12580);}while(r); +} +S_15201:; +if ((*__LONG_MIDISOUNDFONTSET)||new_error){ +if(qbevent){evnt(12583);if(r)goto S_15201;} +do{ +qbs_set(__STRING_MAKEDEPS,qbs_add(__STRING_MAKEDEPS,qbs_new_txt_len(" DEP_AUDIO_DECODE_MIDI=y",24))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12583);}while(r); +} +S_15204:; +if ((-(*__LONG_TEMPFOLDERINDEX> 1 ))||new_error){ +if(qbevent){evnt(12585);if(r)goto S_15204;} +do{ +qbs_set(__STRING_MAKEDEPS,qbs_add(qbs_add(__STRING_MAKEDEPS,qbs_new_txt_len(" TEMP_ID=",9)),FUNC_STR2(__LONG_TEMPFOLDERINDEX))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12585);}while(r); +} +do{ +qbs_set(__STRING_CXXFLAGSEXTRA,__STRING_EXTRACPPFLAGS); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12587);}while(r); +do{ +qbs_set(__STRING_CXXLIBSEXTRA,__STRING_EXTRALINKERFLAGS); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12588);}while(r); +S_15209:; +if ((*__ULONG_OPTIMIZECPPPROGRAM)||new_error){ +if(qbevent){evnt(12591);if(r)goto S_15209;} +S_15210:; +if ((*__LONG_INCLUDE_GDB_DEBUGGING_INFO)||new_error){ +if(qbevent){evnt(12592);if(r)goto S_15210;} +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(12593);}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(12595);}while(r); +} +}else{ +S_15216:; +if ((*__LONG_INCLUDE_GDB_DEBUGGING_INFO)||new_error){ +if(qbevent){evnt(12598);if(r)goto S_15216;} +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(12599);}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(12603);}while(r); +do{ +qbs_set(__STRING_ESCAPEDEXE,FUNC_STRREPLACE(qbs_add(qbs_add(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_FILE),__STRING_EXTENSION),qbs_new_txt_len(" ",1),qbs_new_txt_len("\\ ",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12607);}while(r); +do{ +qbs_set(__STRING_ESCAPEDEXE,FUNC_STRREPLACE(__STRING_ESCAPEDEXE,func_chr( 34 ),qbs_add(qbs_new_txt_len("\\",1),func_chr( 34 )))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12608);}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(12609);}while(r); +do{ +qbs_set(__STRING_MAKELINE,qbs_add(qbs_add(qbs_add(__STRING_MAKE,__STRING_MAKEDEPS),qbs_new_txt_len(" EXE=",5)),FUNC_ADDQUOTES(__STRING_ESCAPEDEXE))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12611);}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(12612);}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(12613);}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(12614);}while(r); +do{ +qbs_set(__STRING_MAKELINE,qbs_add(qbs_add(__STRING_MAKELINE,qbs_new_txt_len(" -j",3)),FUNC_ADDQUOTES(FUNC_STR2((int32*)__ULONG_MAXPARALLELPROCESSES)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12615);}while(r); +S_15229:; +if ((~(*__ULONG_STRIPDEBUGSYMBOLS))||new_error){ +if(qbevent){evnt(12617);if(r)goto S_15229;} +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(12618);}while(r); +} +S_15232:; +if ((*__ULONG_GENERATELICENSEFILE&(~(*__INTEGER_NOEXESAVED)))||new_error){ +if(qbevent){evnt(12622);if(r)goto S_15232;} +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(12623);}while(r); +} +S_15235:; +fornext_value1950= 1 ; +fornext_finalvalue1950=*__LONG_RESOLVESTATICFUNCTIONS; +fornext_step1950= 1 ; +if (fornext_step1950<0) fornext_step_negative1950=1; else fornext_step_negative1950=0; +if (new_error) goto fornext_error1950; +goto fornext_entrylabel1950; +while(1){ +fornext_value1950=fornext_step1950+(*__LONG_X); +fornext_entrylabel1950: +*__LONG_X=fornext_value1950; +if (fornext_step_negative1950){ +if (fornext_value1950fornext_finalvalue1950) break; +} +fornext_error1950:; +if(qbevent){evnt(12627);if(r)goto S_15235;} +S_15236:; +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))||new_error){ +if(qbevent){evnt(12628);if(r)goto S_15236;} +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])])),&(pass1952= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12629);}while(r); +S_15238:; +if ((qbs_cleanup(qbs_tmp_base,func__fileexists(__STRING_S)))||new_error){ +if(qbevent){evnt(12630);if(r)goto S_15238;} +do{ +sub_kill(__STRING_S); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12630);}while(r); +do{ +SUB_CLEARBUFFERS(__STRING_S); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12630);}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])])),&(pass1953= 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12632);}while(r); +S_15243:; +if ((qbs_cleanup(qbs_tmp_base,func__fileexists(__STRING_S)))||new_error){ +if(qbevent){evnt(12633);if(r)goto S_15243;} +do{ +sub_kill(__STRING_S); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12633);}while(r); +do{ +SUB_CLEARBUFFERS(__STRING_S); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12633);}while(r); +} +} +fornext_continue_1949:; +} +fornext_exit_1949:; +do{ +error_goto_line=13; +if(!qbevent)break;evnt(12638);}while(r); +S_15250:; +if ((-(*__LONG_TEMPFOLDERINDEX> 1 ))||new_error){ +if(qbevent){evnt(12639);if(r)goto S_15250;} +do{ +sub_kill(qbs_add(qbs_add(qbs_new_txt_len("internal/c/qbx",14),FUNC_STR2(__LONG_TEMPFOLDERINDEX)),qbs_new_txt_len(".o",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12640);}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(12642);}while(r); +} +do{ +error_goto_line=14; +if(!qbevent)break;evnt(12644);}while(r); +S_15256:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ +if(qbevent){evnt(12646);if(r)goto S_15256;} +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(12648);}while(r); +S_15258:; +fornext_value1955= 1 ; +fornext_finalvalue1955=*__LONG_RESOLVESTATICFUNCTIONS; +fornext_step1955= 1 ; +if (fornext_step1955<0) fornext_step_negative1955=1; else fornext_step_negative1955=0; +if (new_error) goto fornext_error1955; +goto fornext_entrylabel1955; +while(1){ +fornext_value1955=fornext_step1955+(*__LONG_X); +fornext_entrylabel1955: +*__LONG_X=fornext_value1955; +if (fornext_step_negative1955){ +if (fornext_value1955fornext_finalvalue1955) break; +} +fornext_error1955:; +if(qbevent){evnt(12651);if(r)goto S_15258;} +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])])),&(pass1956= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12652);}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])])),&(pass1957= 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12653);}while(r); +S_15261:; +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))||new_error){ +if(qbevent){evnt(12654);if(r)goto S_15261;} +do{ +*__LONG_N= 0 ; +if(!qbevent)break;evnt(12656);}while(r); +S_15263:; +if ((qbs_cleanup(qbs_tmp_base,~(func__fileexists(__STRING_NM_OUTPUT_FILE))))||new_error){ +if(qbevent){evnt(12657);if(r)goto S_15263;} +do{ +sub_shell2(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("cmd /c internal\\c\\c_compiler\\bin\\nm.exe ",40),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(12658);}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(12660);}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(12661);}while(r); +S_15268:; +while((!(FUNC_ENDOFBUF(&(pass1959=*__LONG_FH))))||new_error){ +if(qbevent){evnt(12662);if(r)goto S_15268;} +do{ +qbs_set(__STRING_A,FUNC_READBUFLINE(&(pass1961=*__LONG_FH))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12663);}while(r); +S_15270:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_A->len))||new_error){ +if(qbevent){evnt(12664);if(r)goto S_15270;} +do{ +*__LONG_X1=func_instr(NULL,__STRING_A,__STRING_S,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12666);}while(r); +S_15272:; +if ((*__LONG_X1)||new_error){ +if(qbevent){evnt(12667);if(r)goto S_15272;} +S_15273:; +if ((-(((int32*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]))[array_check((*__LONG_X)-__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[4],__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5])]== 1 ))||new_error){ +if(qbevent){evnt(12668);if(r)goto S_15273;} +do{ +*__LONG_X1=*__LONG_X1+ 1 ; +if(!qbevent)break;evnt(12669);}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(12670);}while(r); +do{ +*__LONG_FH2=func_freefile(); +if(!qbevent)break;evnt(12671);}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(12672);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FH2; +if (new_error) goto skip1963; +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 (new_error) goto skip1963; +skip1963: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12673);}while(r); +do{ +sub_close(*__LONG_FH2,1); +if(!qbevent)break;evnt(12674);}while(r); +} +do{ +*__LONG_N=*__LONG_N+ 1 ; +if(!qbevent)break;evnt(12676);}while(r); +} +} +dl_continue_1960:; +} +dl_exit_1960:; +S_15285:; +if ((-(*__LONG_N> 1 ))||new_error){ +if(qbevent){evnt(12680);if(r)goto S_15285;} +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(12680);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(12680);}while(r); +} +S_15289:; +if ((-(*__LONG_N== 0 ))||new_error){ +if(qbevent){evnt(12682);if(r)goto S_15289;} +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(12683);}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(12684);}while(r); +S_15292:; +while((!(FUNC_ENDOFBUF(&(pass1964=*__LONG_FH))))||new_error){ +if(qbevent){evnt(12685);if(r)goto S_15292;} +do{ +qbs_set(__STRING_A,FUNC_READBUFLINE(&(pass1966=*__LONG_FH))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12686);}while(r); +S_15294:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_A->len))||new_error){ +if(qbevent){evnt(12687);if(r)goto S_15294;} +do{ +*__LONG_X1=func_instr(NULL,__STRING_A,__STRING_S,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12689);}while(r); +S_15296:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(__STRING_A,__STRING_S->len),__STRING_S)))||new_error){ +if(qbevent){evnt(12690);if(r)goto S_15296;} +do{ +*__LONG_FH2=func_freefile(); +if(!qbevent)break;evnt(12691);}while(r); +S_15298:; +if ((-(((int32*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]))[array_check((*__LONG_X)-__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[4],__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5])]== 1 ))||new_error){ +if(qbevent){evnt(12692);if(r)goto S_15298;} +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(12693);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FH2; +if (new_error) goto skip1969; +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 (new_error) goto skip1969; +skip1969: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12694);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FH2; +if (new_error) goto skip1970; +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 (new_error) goto skip1970; +skip1970: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12695);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FH2; +if (new_error) goto skip1971; +sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0, 0, 1); +if (new_error) goto skip1971; +skip1971: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12696);}while(r); +}else{ +do{ +sub_open(qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("externtype",10)),FUNC_STR2(__LONG_X)),qbs_new_txt_len(".txt",4)), 4 ,NULL,NULL,*__LONG_FH2,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12698);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FH2; +if (new_error) goto skip1972; +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 (new_error) goto skip1972; +skip1972: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12699);}while(r); +} +do{ +sub_close(*__LONG_FH2,1); +if(!qbevent)break;evnt(12701);}while(r); +do{ +*__LONG_N=*__LONG_N+ 1 ; +if(!qbevent)break;evnt(12702);}while(r); +do{ +goto dl_exit_1965; +if(!qbevent)break;evnt(12703);}while(r); +} +} +dl_continue_1965:; +} +dl_exit_1965:; +} +S_15314:; +if ((-(*__LONG_N== 0 ))||new_error){ +if(qbevent){evnt(12709);if(r)goto S_15314;} +S_15315:; +if ((qbs_cleanup(qbs_tmp_base,~(func__fileexists(__STRING_NM_OUTPUT_FILE_DYNAMIC))))||new_error){ +if(qbevent){evnt(12710);if(r)goto S_15315;} +do{ +sub_shell2(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("cmd /c internal\\c\\c_compiler\\bin\\nm.exe ",40),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(12711);}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(12713);}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(12714);}while(r); +S_15320:; +while((!(FUNC_ENDOFBUF(&(pass1973=*__LONG_FH))))||new_error){ +if(qbevent){evnt(12715);if(r)goto S_15320;} +do{ +qbs_set(__STRING_A,FUNC_READBUFLINE(&(pass1975=*__LONG_FH))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12716);}while(r); +S_15322:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_A->len))||new_error){ +if(qbevent){evnt(12717);if(r)goto S_15322;} +do{ +*__LONG_X1=func_instr(NULL,__STRING_A,__STRING_S,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12719);}while(r); +S_15324:; +if ((*__LONG_X1)||new_error){ +if(qbevent){evnt(12720);if(r)goto S_15324;} +S_15325:; +if ((-(((int32*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]))[array_check((*__LONG_X)-__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[4],__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5])]== 1 ))||new_error){ +if(qbevent){evnt(12721);if(r)goto S_15325;} +do{ +*__LONG_X1=*__LONG_X1+ 1 ; +if(!qbevent)break;evnt(12722);}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(12723);}while(r); +do{ +*__LONG_FH2=func_freefile(); +if(!qbevent)break;evnt(12724);}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(12725);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FH2; +if (new_error) goto skip1977; +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 (new_error) goto skip1977; +skip1977: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12726);}while(r); +do{ +sub_close(*__LONG_FH2,1); +if(!qbevent)break;evnt(12727);}while(r); +} +do{ +*__LONG_N=*__LONG_N+ 1 ; +if(!qbevent)break;evnt(12729);}while(r); +} +} +dl_continue_1974:; +} +dl_exit_1974:; +S_15337:; +if ((-(*__LONG_N> 1 ))||new_error){ +if(qbevent){evnt(12733);if(r)goto S_15337;} +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(12733);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(12733);}while(r); +} +} +S_15342:; +if ((-(*__LONG_N== 0 ))||new_error){ +if(qbevent){evnt(12736);if(r)goto S_15342;} +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(12737);}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(12738);}while(r); +S_15345:; +while((!(FUNC_ENDOFBUF(&(pass1978=*__LONG_FH))))||new_error){ +if(qbevent){evnt(12739);if(r)goto S_15345;} +do{ +qbs_set(__STRING_A,FUNC_READBUFLINE(&(pass1980=*__LONG_FH))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12740);}while(r); +S_15347:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_A->len))||new_error){ +if(qbevent){evnt(12741);if(r)goto S_15347;} +do{ +*__LONG_X1=func_instr(NULL,__STRING_A,__STRING_S,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12743);}while(r); +S_15349:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(__STRING_A,__STRING_S->len),__STRING_S)))||new_error){ +if(qbevent){evnt(12744);if(r)goto S_15349;} +do{ +*__LONG_FH2=func_freefile(); +if(!qbevent)break;evnt(12745);}while(r); +S_15351:; +if ((-(((int32*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]))[array_check((*__LONG_X)-__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[4],__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5])]== 1 ))||new_error){ +if(qbevent){evnt(12746);if(r)goto S_15351;} +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(12747);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FH2; +if (new_error) goto skip1983; +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 (new_error) goto skip1983; +skip1983: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12748);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FH2; +if (new_error) goto skip1984; +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 (new_error) goto skip1984; +skip1984: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12749);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FH2; +if (new_error) goto skip1985; +sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0, 0, 1); +if (new_error) goto skip1985; +skip1985: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12750);}while(r); +}else{ +do{ +sub_open(qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("externtype",10)),FUNC_STR2(__LONG_X)),qbs_new_txt_len(".txt",4)), 4 ,NULL,NULL,*__LONG_FH2,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12752);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FH2; +if (new_error) goto skip1986; +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 (new_error) goto skip1986; +skip1986: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12753);}while(r); +} +do{ +sub_close(*__LONG_FH2,1); +if(!qbevent)break;evnt(12755);}while(r); +do{ +*__LONG_N=*__LONG_N+ 1 ; +if(!qbevent)break;evnt(12756);}while(r); +do{ +goto dl_exit_1979; +if(!qbevent)break;evnt(12757);}while(r); +} +} +dl_continue_1979:; +} +dl_exit_1979:; +S_15366:; +if ((-(*__LONG_N== 0 ))||new_error){ +if(qbevent){evnt(12761);if(r)goto S_15366;} +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(12761);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(12761);}while(r); +} +} +} +fornext_continue_1954:; +} +fornext_exit_1954:; +S_15373:; +if ((-(*__LONG_NO_C_COMPILE_MODE== 0 ))||new_error){ +if(qbevent){evnt(12767);if(r)goto S_15373;} +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(12768);}while(r); +S_15375:; +if ((*__LONG_IDEMODE)||new_error){ +if(qbevent){evnt(12770);if(r)goto S_15375;} +do{ +*__LONG_DUMMY=FUNC_DARKENFGBG(&(pass1987= 0 )); +if(!qbevent)break;evnt(12772);}while(r); +} +} +do{ +*__LONG_FFH=func_freefile(); +if(!qbevent)break;evnt(12776);}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(12777);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip1988; +sub_file_print(tmp_fileno,qbs_new_txt_len("@echo off",9), 0, 0, 1); +if (new_error) goto skip1988; +skip1988: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12778);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip1989; +sub_file_print(tmp_fileno,qbs_new_txt_len("cd %0\\..\\",9), 0, 0, 1); +if (new_error) goto skip1989; +skip1989: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12779);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip1990; +sub_file_print(tmp_fileno,qbs_new_txt_len("cd ../..",8), 0, 0, 1); +if (new_error) goto skip1990; +skip1990: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12780);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip1991; +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 gdb.exe",14)), 0, 0, 1); +if (new_error) goto skip1991; +skip1991: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12781);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip1992; +sub_file_print(tmp_fileno,qbs_new_txt_len("echo Debugger commands:",23), 0, 0, 1); +if (new_error) goto skip1992; +skip1992: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12782);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip1993; +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 (new_error) goto skip1993; +skip1993: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12783);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip1994; +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 (new_error) goto skip1994; +skip1994: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12784);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip1995; +sub_file_print(tmp_fileno,qbs_new_txt_len("echo Type 'quit' to exit",24), 0, 0, 1); +if (new_error) goto skip1995; +skip1995: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12785);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip1996; +sub_file_print(tmp_fileno,qbs_new_txt_len("echo (the GDB debugger has many other useful commands, this advice is for beginners)",84), 0, 0, 1); +if (new_error) goto skip1996; +skip1996: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12786);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip1997; +sub_file_print(tmp_fileno,qbs_new_txt_len("pause",5), 0, 0, 1); +if (new_error) goto skip1997; +skip1997: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12787);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip1998; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("internal\\c\\c_compiler\\bin\\gdb.exe ",34),func_chr( 34 )),__STRING_PATH__ASCII_CHR_046__EXE),__STRING_FILE),__STRING_EXTENSION),func_chr( 34 )), 0, 0, 1); +if (new_error) goto skip1998; +skip1998: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12788);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip1999; +sub_file_print(tmp_fileno,qbs_new_txt_len("pause",5), 0, 0, 1); +if (new_error) goto skip1999; +skip1999: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12789);}while(r); +do{ +sub_close(*__LONG_FFH,1); +if(!qbevent)break;evnt(12790);}while(r); +} +S_15395:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ +if(qbevent){evnt(12793);if(r)goto S_15395;} +S_15396:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("[MACOSX]",8),0)))||new_error){ +if(qbevent){evnt(12795);if(r)goto S_15396;} +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(12796);}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(12798);}while(r); +} +S_15401:; +fornext_value2001= 1 ; +fornext_finalvalue2001=*__LONG_RESOLVESTATICFUNCTIONS; +fornext_step2001= 1 ; +if (fornext_step2001<0) fornext_step_negative2001=1; else fornext_step_negative2001=0; +if (new_error) goto fornext_error2001; +goto fornext_entrylabel2001; +while(1){ +fornext_value2001=fornext_step2001+(*__LONG_X); +fornext_entrylabel2001: +*__LONG_X=fornext_value2001; +if (fornext_step_negative2001){ +if (fornext_value2001fornext_finalvalue2001) break; +} +fornext_error2001:; +if(qbevent){evnt(12801);if(r)goto S_15401;} +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])])),&(pass2002= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12802);}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])])),&(pass2003= 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12803);}while(r); +S_15404:; +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))||new_error){ +if(qbevent){evnt(12804);if(r)goto S_15404;} +do{ +*__LONG_N= 0 ; +if(!qbevent)break;evnt(12806);}while(r); +S_15406:; +if ((qbs_cleanup(qbs_tmp_base,~(func__fileexists(__STRING_NM_OUTPUT_FILE))))||new_error){ +if(qbevent){evnt(12807);if(r)goto S_15406;} +S_15407:; +if ((-(*__LONG_MACOSX== 0 ))||new_error){ +if(qbevent){evnt(12808);if(r)goto S_15407;} +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(12808);}while(r); +} +S_15410:; +if ((*__LONG_MACOSX)||new_error){ +if(qbevent){evnt(12809);if(r)goto S_15410;} +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(12809);}while(r); +} +} +S_15414:; +if ((-(*__LONG_MACOSX== 0 ))||new_error){ +if(qbevent){evnt(12812);if(r)goto S_15414;} +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(12813);}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(12814);}while(r); +S_15417:; +while((!(FUNC_ENDOFBUF(&(pass2005=*__LONG_FH))))||new_error){ +if(qbevent){evnt(12815);if(r)goto S_15417;} +do{ +qbs_set(__STRING_A,FUNC_READBUFLINE(&(pass2007=*__LONG_FH))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12816);}while(r); +S_15419:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_A->len))||new_error){ +if(qbevent){evnt(12817);if(r)goto S_15419;} +do{ +*__LONG_X1=func_instr(NULL,__STRING_A,__STRING_S,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12819);}while(r); +S_15421:; +if ((*__LONG_X1)||new_error){ +if(qbevent){evnt(12820);if(r)goto S_15421;} +S_15422:; +if ((-(((int32*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]))[array_check((*__LONG_X)-__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[4],__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5])]== 1 ))||new_error){ +if(qbevent){evnt(12821);if(r)goto S_15422;} +do{ +*__LONG_X1=*__LONG_X1+ 1 ; +if(!qbevent)break;evnt(12822);}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(12823);}while(r); +do{ +*__LONG_FH2=func_freefile(); +if(!qbevent)break;evnt(12824);}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(12825);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FH2; +if (new_error) goto skip2009; +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 (new_error) goto skip2009; +skip2009: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12826);}while(r); +do{ +sub_close(*__LONG_FH2,1); +if(!qbevent)break;evnt(12827);}while(r); +} +do{ +*__LONG_N=*__LONG_N+ 1 ; +if(!qbevent)break;evnt(12829);}while(r); +} +} +dl_continue_2006:; +} +dl_exit_2006:; +S_15434:; +if ((-(*__LONG_N> 1 ))||new_error){ +if(qbevent){evnt(12833);if(r)goto S_15434;} +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(12833);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(12833);}while(r); +} +} +S_15439:; +if ((-(*__LONG_N== 0 ))||new_error){ +if(qbevent){evnt(12836);if(r)goto S_15439;} +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(12837);}while(r); +do{ +qbs_set(__STRING_S2,__STRING_S); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12837);}while(r); +S_15442:; +if ((*__LONG_MACOSX)||new_error){ +if(qbevent){evnt(12838);if(r)goto S_15442;} +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(12838);}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(12839);}while(r); +S_15446:; +while((!(FUNC_ENDOFBUF(&(pass2010=*__LONG_FH))))||new_error){ +if(qbevent){evnt(12840);if(r)goto S_15446;} +do{ +qbs_set(__STRING_A,FUNC_READBUFLINE(&(pass2012=*__LONG_FH))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12841);}while(r); +S_15448:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_A->len))||new_error){ +if(qbevent){evnt(12842);if(r)goto S_15448;} +do{ +*__LONG_X1=func_instr(NULL,__STRING_A,__STRING_S,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12844);}while(r); +S_15450:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(__STRING_A,__STRING_S->len),__STRING_S)))||new_error){ +if(qbevent){evnt(12845);if(r)goto S_15450;} +do{ +*__LONG_FH2=func_freefile(); +if(!qbevent)break;evnt(12846);}while(r); +S_15452:; +if ((-(((int32*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]))[array_check((*__LONG_X)-__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[4],__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5])]== 1 ))||new_error){ +if(qbevent){evnt(12847);if(r)goto S_15452;} +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(12848);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FH2; +if (new_error) goto skip2015; +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 (new_error) goto skip2015; +skip2015: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12849);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FH2; +if (new_error) goto skip2016; +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 (new_error) goto skip2016; +skip2016: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12850);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FH2; +if (new_error) goto skip2017; +sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0, 0, 1); +if (new_error) goto skip2017; +skip2017: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12851);}while(r); +}else{ +do{ +sub_open(qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("externtype",10)),FUNC_STR2(__LONG_X)),qbs_new_txt_len(".txt",4)), 4 ,NULL,NULL,*__LONG_FH2,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12853);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FH2; +if (new_error) goto skip2018; +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 (new_error) goto skip2018; +skip2018: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12854);}while(r); +} +do{ +sub_close(*__LONG_FH2,1); +if(!qbevent)break;evnt(12856);}while(r); +do{ +*__LONG_N=*__LONG_N+ 1 ; +if(!qbevent)break;evnt(12857);}while(r); +do{ +goto dl_exit_2011; +if(!qbevent)break;evnt(12858);}while(r); +} +} +dl_continue_2011:; +} +dl_exit_2011:; +} +S_15468:; +if ((-(*__LONG_N== 0 ))||new_error){ +if(qbevent){evnt(12864);if(r)goto S_15468;} +S_15469:; +if ((*__LONG_MACOSX)||new_error){ +if(qbevent){evnt(12865);if(r)goto S_15469;} +do{ +goto LABEL_MACOSX_LIBFIND_FAILED; +if(!qbevent)break;evnt(12865);}while(r); +} +S_15472:; +if ((qbs_cleanup(qbs_tmp_base,~(func__fileexists(__STRING_NM_OUTPUT_FILE_DYNAMIC))))||new_error){ +if(qbevent){evnt(12866);if(r)goto S_15472;} +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(12867);}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(12869);}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(12870);}while(r); +S_15477:; +while((!(FUNC_ENDOFBUF(&(pass2019=*__LONG_FH))))||new_error){ +if(qbevent){evnt(12871);if(r)goto S_15477;} +do{ +qbs_set(__STRING_A,FUNC_READBUFLINE(&(pass2021=*__LONG_FH))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12872);}while(r); +S_15479:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_A->len))||new_error){ +if(qbevent){evnt(12873);if(r)goto S_15479;} +do{ +*__LONG_X1=func_instr(NULL,__STRING_A,__STRING_S,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12875);}while(r); +S_15481:; +if ((*__LONG_X1)||new_error){ +if(qbevent){evnt(12876);if(r)goto S_15481;} +S_15482:; +if ((-(((int32*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]))[array_check((*__LONG_X)-__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[4],__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5])]== 1 ))||new_error){ +if(qbevent){evnt(12877);if(r)goto S_15482;} +do{ +*__LONG_X1=*__LONG_X1+ 1 ; +if(!qbevent)break;evnt(12878);}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(12879);}while(r); +do{ +*__LONG_FH2=func_freefile(); +if(!qbevent)break;evnt(12880);}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(12881);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FH2; +if (new_error) goto skip2023; +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 (new_error) goto skip2023; +skip2023: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12882);}while(r); +do{ +sub_close(*__LONG_FH2,1); +if(!qbevent)break;evnt(12883);}while(r); +} +do{ +*__LONG_N=*__LONG_N+ 1 ; +if(!qbevent)break;evnt(12885);}while(r); +} +} +dl_continue_2020:; +} +dl_exit_2020:; +S_15494:; +if ((-(*__LONG_N> 1 ))||new_error){ +if(qbevent){evnt(12889);if(r)goto S_15494;} +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(12889);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(12889);}while(r); +} +} +S_15499:; +if ((-(*__LONG_N== 0 ))||new_error){ +if(qbevent){evnt(12892);if(r)goto S_15499;} +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(12893);}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(12894);}while(r); +S_15502:; +while((!(FUNC_ENDOFBUF(&(pass2024=*__LONG_FH))))||new_error){ +if(qbevent){evnt(12895);if(r)goto S_15502;} +do{ +qbs_set(__STRING_A,FUNC_READBUFLINE(&(pass2026=*__LONG_FH))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12896);}while(r); +S_15504:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_A->len))||new_error){ +if(qbevent){evnt(12897);if(r)goto S_15504;} +do{ +*__LONG_X1=func_instr(NULL,__STRING_A,__STRING_S,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12899);}while(r); +S_15506:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(__STRING_A,__STRING_S->len),__STRING_S)))||new_error){ +if(qbevent){evnt(12900);if(r)goto S_15506;} +do{ +*__LONG_FH2=func_freefile(); +if(!qbevent)break;evnt(12901);}while(r); +S_15508:; +if ((-(((int32*)(__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[0]))[array_check((*__LONG_X)-__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[4],__ARRAY_LONG_RESOLVESTATICFUNCTION_METHOD[5])]== 1 ))||new_error){ +if(qbevent){evnt(12902);if(r)goto S_15508;} +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(12903);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FH2; +if (new_error) goto skip2029; +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 (new_error) goto skip2029; +skip2029: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12904);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FH2; +if (new_error) goto skip2030; +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 (new_error) goto skip2030; +skip2030: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12905);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FH2; +if (new_error) goto skip2031; +sub_file_print(tmp_fileno,qbs_new_txt_len("}",1), 0, 0, 1); +if (new_error) goto skip2031; +skip2031: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12906);}while(r); +}else{ +do{ +sub_open(qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("externtype",10)),FUNC_STR2(__LONG_X)),qbs_new_txt_len(".txt",4)), 4 ,NULL,NULL,*__LONG_FH2,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(12908);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FH2; +if (new_error) goto skip2032; +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 (new_error) goto skip2032; +skip2032: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12909);}while(r); +} +do{ +sub_close(*__LONG_FH2,1); +if(!qbevent)break;evnt(12911);}while(r); +do{ +*__LONG_N=*__LONG_N+ 1 ; +if(!qbevent)break;evnt(12912);}while(r); +do{ +goto dl_exit_2025; +if(!qbevent)break;evnt(12913);}while(r); +} +} +dl_continue_2025:; +} +dl_exit_2025:; +LABEL_MACOSX_LIBFIND_FAILED:; +if(qbevent){evnt(12917);r=0;} +S_15523:; +if ((-(*__LONG_N== 0 ))||new_error){ +if(qbevent){evnt(12918);if(r)goto S_15523;} +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(12918);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(12918);}while(r); +} +} +} +fornext_continue_2000:; +} +fornext_exit_2000:; +S_15530:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("[MACOSX]",8),0)))||new_error){ +if(qbevent){evnt(12924);if(r)goto S_15530;} +do{ +*__LONG_FFH=func_freefile(); +if(!qbevent)break;evnt(12926);}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(12927);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2033; +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),__STRING_CHR_QUOTE),qbs_new_txt_len("$(dirname ",10)),__STRING_CHR_QUOTE),qbs_new_txt_len("$0",2)),__STRING_CHR_QUOTE),qbs_new_txt_len(")",1)),__STRING_CHR_QUOTE),func_chr( 10 )), 0, 0, 0); +if (new_error) goto skip2033; +skip2033: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12928);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2034; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("echo ",5),__STRING_CHR_QUOTE),qbs_new_txt_len("Recompiling...",14)),__STRING_CHR_QUOTE),func_chr( 10 )), 0, 0, 0); +if (new_error) goto skip2034; +skip2034: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12929);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2035; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("cd ../c",7),func_chr( 10 )), 0, 0, 0); +if (new_error) goto skip2035; +skip2035: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12930);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2036; +sub_file_print(tmp_fileno,qbs_add(__STRING_MAKELINE,func_chr( 10 )), 0, 0, 0); +if (new_error) goto skip2036; +skip2036: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12931);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2037; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("read -p ",8),__STRING_CHR_QUOTE),qbs_new_txt_len("Press ENTER to exit...",22)),__STRING_CHR_QUOTE),func_chr( 10 )), 0, 0, 0); +if (new_error) goto skip2037; +skip2037: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12932);}while(r); +do{ +sub_close(*__LONG_FFH,1); +if(!qbevent)break;evnt(12933);}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(12934);}while(r); +do{ +*__LONG_FFH=func_freefile(); +if(!qbevent)break;evnt(12936);}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(12937);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2038; +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),__STRING_CHR_QUOTE),qbs_new_txt_len("$(dirname ",10)),__STRING_CHR_QUOTE),qbs_new_txt_len("$0",2)),__STRING_CHR_QUOTE),qbs_new_txt_len(")",1)),__STRING_CHR_QUOTE),func_chr( 10 )), 0, 0, 0); +if (new_error) goto skip2038; +skip2038: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12938);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2039; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("Pause()",7),func_chr( 10 )), 0, 0, 0); +if (new_error) goto skip2039; +skip2039: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12939);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2040; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("{",1),func_chr( 10 )), 0, 0, 0); +if (new_error) goto skip2040; +skip2040: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12940);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2041; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("OLDCONFIG=`stty -g`",19),func_chr( 10 )), 0, 0, 0); +if (new_error) goto skip2041; +skip2041: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12941);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2042; +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 (new_error) goto skip2042; +skip2042: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12942);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2043; +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 (new_error) goto skip2043; +skip2043: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12943);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2044; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("stty $OLDCONFIG",15),func_chr( 10 )), 0, 0, 0); +if (new_error) goto skip2044; +skip2044: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12944);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2045; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("}",1),func_chr( 10 )), 0, 0, 0); +if (new_error) goto skip2045; +skip2045: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12945);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2046; +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),__STRING_CHR_QUOTE),qbs_new_txt_len("C++ Debugging: ",15)),__STRING_FILE),__STRING_EXTENSION),qbs_new_txt_len(" using GDB",10)),__STRING_CHR_QUOTE),func_chr( 10 )), 0, 0, 0); +if (new_error) goto skip2046; +skip2046: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12946);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2047; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("echo ",5),__STRING_CHR_QUOTE),qbs_new_txt_len("Debugger commands:",18)),__STRING_CHR_QUOTE),func_chr( 10 )), 0, 0, 0); +if (new_error) goto skip2047; +skip2047: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12947);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2048; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("echo ",5),__STRING_CHR_QUOTE),qbs_new_txt_len("After the debugger launches type 'run' to start your program",60)),__STRING_CHR_QUOTE),func_chr( 10 )), 0, 0, 0); +if (new_error) goto skip2048; +skip2048: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12948);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2049; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("echo ",5),__STRING_CHR_QUOTE),qbs_new_txt_len("After your program crashes type 'list' to find where the problem is and fix/report it",85)),__STRING_CHR_QUOTE),func_chr( 10 )), 0, 0, 0); +if (new_error) goto skip2049; +skip2049: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12949);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2050; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("echo ",5),__STRING_CHR_QUOTE),qbs_new_txt_len("(the GDB debugger has many other useful commands, this advice is for beginners)",79)),__STRING_CHR_QUOTE),func_chr( 10 )), 0, 0, 0); +if (new_error) goto skip2050; +skip2050: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12950);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2051; +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 (new_error) goto skip2051; +skip2051: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12951);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2052; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("Pause",5),func_chr( 10 )), 0, 0, 0); +if (new_error) goto skip2052; +skip2052: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12952);}while(r); +do{ +sub_close(*__LONG_FFH,1); +if(!qbevent)break;evnt(12953);}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(12954);}while(r); +}else{ +do{ +*__LONG_FFH=func_freefile(); +if(!qbevent)break;evnt(12958);}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(12959);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2053; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("#!/bin/sh",9),func_chr( 10 )), 0, 0, 0); +if (new_error) goto skip2053; +skip2053: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12960);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2054; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("Pause()",7),func_chr( 10 )), 0, 0, 0); +if (new_error) goto skip2054; +skip2054: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12961);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2055; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("{",1),func_chr( 10 )), 0, 0, 0); +if (new_error) goto skip2055; +skip2055: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12962);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2056; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("OLDCONFIG=`stty -g`",19),func_chr( 10 )), 0, 0, 0); +if (new_error) goto skip2056; +skip2056: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12963);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2057; +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 (new_error) goto skip2057; +skip2057: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12964);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2058; +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 (new_error) goto skip2058; +skip2058: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12965);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2059; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("stty $OLDCONFIG",15),func_chr( 10 )), 0, 0, 0); +if (new_error) goto skip2059; +skip2059: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12966);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2060; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("}",1),func_chr( 10 )), 0, 0, 0); +if (new_error) goto skip2060; +skip2060: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12967);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2061; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("echo ",5),__STRING_CHR_QUOTE),qbs_new_txt_len("Recompiling...",14)),__STRING_CHR_QUOTE),func_chr( 10 )), 0, 0, 0); +if (new_error) goto skip2061; +skip2061: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12968);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2062; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("cd ../c",7),func_chr( 10 )), 0, 0, 0); +if (new_error) goto skip2062; +skip2062: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12969);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2063; +sub_file_print(tmp_fileno,qbs_add(__STRING_MAKELINE,func_chr( 10 )), 0, 0, 0); +if (new_error) goto skip2063; +skip2063: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12970);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2064; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("echo ",5),__STRING_CHR_QUOTE),qbs_new_txt_len("Press ENTER to exit...",22)),__STRING_CHR_QUOTE),func_chr( 10 )), 0, 0, 0); +if (new_error) goto skip2064; +skip2064: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12971);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2065; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("Pause",5),func_chr( 10 )), 0, 0, 0); +if (new_error) goto skip2065; +skip2065: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12972);}while(r); +do{ +sub_close(*__LONG_FFH,1); +if(!qbevent)break;evnt(12973);}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(12974);}while(r); +do{ +*__LONG_FFH=func_freefile(); +if(!qbevent)break;evnt(12976);}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(12977);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2066; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("#!/bin/sh",9),func_chr( 10 )), 0, 0, 0); +if (new_error) goto skip2066; +skip2066: +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 (new_error) goto skip2067; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("Pause()",7),func_chr( 10 )), 0, 0, 0); +if (new_error) goto skip2067; +skip2067: +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 (new_error) goto skip2068; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("{",1),func_chr( 10 )), 0, 0, 0); +if (new_error) goto skip2068; +skip2068: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12980);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2069; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("OLDCONFIG=`stty -g`",19),func_chr( 10 )), 0, 0, 0); +if (new_error) goto skip2069; +skip2069: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12981);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2070; +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 (new_error) goto skip2070; +skip2070: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12982);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2071; +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 (new_error) goto skip2071; +skip2071: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12983);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2072; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("stty $OLDCONFIG",15),func_chr( 10 )), 0, 0, 0); +if (new_error) goto skip2072; +skip2072: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12984);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2073; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("}",1),func_chr( 10 )), 0, 0, 0); +if (new_error) goto skip2073; +skip2073: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12985);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FFH; +if (new_error) goto skip2074; +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),__STRING_CHR_QUOTE),qbs_new_txt_len("C++ Debugging: ",15)),__STRING_FILE),__STRING_EXTENSION),qbs_new_txt_len(" using GDB",10)),__STRING_CHR_QUOTE),func_chr( 10 )), 0, 0, 0); +if (new_error) goto skip2074; +skip2074: +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 (new_error) goto skip2075; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("echo ",5),__STRING_CHR_QUOTE),qbs_new_txt_len("Debugger commands:",18)),__STRING_CHR_QUOTE),func_chr( 10 )), 0, 0, 0); +if (new_error) goto skip2075; +skip2075: +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 (new_error) goto skip2076; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("echo ",5),__STRING_CHR_QUOTE),qbs_new_txt_len("After the debugger launches type 'run' to start your program",60)),__STRING_CHR_QUOTE),func_chr( 10 )), 0, 0, 0); +if (new_error) goto skip2076; +skip2076: +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 (new_error) goto skip2077; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("echo ",5),__STRING_CHR_QUOTE),qbs_new_txt_len("After your program crashes type 'list' to find where the problem is and fix/report it",85)),__STRING_CHR_QUOTE),func_chr( 10 )), 0, 0, 0); +if (new_error) goto skip2077; +skip2077: +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 (new_error) goto skip2078; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("echo ",5),__STRING_CHR_QUOTE),qbs_new_txt_len("(the GDB debugger has many other useful commands, this advice is for beginners)",79)),__STRING_CHR_QUOTE),func_chr( 10 )), 0, 0, 0); +if (new_error) goto skip2078; +skip2078: +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 (new_error) goto skip2079; +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 (new_error) goto skip2079; +skip2079: +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 (new_error) goto skip2080; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("Pause",5),func_chr( 10 )), 0, 0, 0); +if (new_error) goto skip2080; +skip2080: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(12992);}while(r); +do{ +sub_close(*__LONG_FFH,1); +if(!qbevent)break;evnt(12993);}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(12994);}while(r); +} +S_15597:; +if ((-(*__LONG_NO_C_COMPILE_MODE== 0 ))||new_error){ +if(qbevent){evnt(12998);if(r)goto S_15597;} +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(12999);}while(r); +S_15599:; +if ((*__LONG_IDEMODE)||new_error){ +if(qbevent){evnt(13000);if(r)goto S_15599;} +do{ +*__LONG_DUMMY=FUNC_DARKENFGBG(&(pass2081= 0 )); +if(!qbevent)break;evnt(13002);}while(r); +} +} +S_15603:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("[MACOSX]",8),0)))||new_error){ +if(qbevent){evnt(13006);if(r)goto S_15603;} +do{ +*__LONG_FF=func_freefile(); +if(!qbevent)break;evnt(13007);}while(r); +S_15605:; +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)))))||new_error){ +if(qbevent){evnt(13008);if(r)goto S_15605;} +do{ +qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13008);}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(13009);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FF; +if (new_error) goto skip2082; +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 (new_error) goto skip2082; +skip2082: +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_FF; +if (new_error) goto skip2083; +sub_file_print(tmp_fileno,func_chr( 10 ), 0, 0, 0); +if (new_error) goto skip2083; +skip2083: +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_FF; +if (new_error) goto skip2084; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("./",2),__STRING_FILE),__STRING_EXTENSION),qbs_new_txt_len(" &",2)), 0, 0, 0); +if (new_error) goto skip2084; +skip2084: +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_FF; +if (new_error) goto skip2085; +sub_file_print(tmp_fileno,func_chr( 10 ), 0, 0, 0); +if (new_error) goto skip2085; +skip2085: +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_FF; +if (new_error) goto skip2086; +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 (new_error) goto skip2086; +skip2086: +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_FF; +if (new_error) goto skip2087; +sub_file_print(tmp_fileno,func_chr( 10 ), 0, 0, 0); +if (new_error) goto skip2087; +skip2087: +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_FF; +if (new_error) goto skip2088; +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 (new_error) goto skip2088; +skip2088: +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_FF; +if (new_error) goto skip2089; +sub_file_print(tmp_fileno,func_chr( 10 ), 0, 0, 0); +if (new_error) goto skip2089; +skip2089: +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_FF; +if (new_error) goto skip2090; +sub_file_print(tmp_fileno,qbs_new_txt_len("exit",4), 0, 0, 0); +if (new_error) goto skip2090; +skip2090: +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_FF; +if (new_error) goto skip2091; +sub_file_print(tmp_fileno,func_chr( 10 ), 0, 0, 0); +if (new_error) goto skip2091; +skip2091: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(13019);}while(r); +do{ +sub_close(*__LONG_FF,1); +if(!qbevent)break;evnt(13020);}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(13021);}while(r); +} +} +S_15623:; +if ((*__LONG_NO_C_COMPILE_MODE)||new_error){ +if(qbevent){evnt(13026);if(r)goto S_15623;} +do{ +*__LONG_COMPFAILED= 0 ; +if(!qbevent)break;evnt(13026);}while(r); +do{ +goto LABEL_NO_C_COMPILE; +if(!qbevent)break;evnt(13026);}while(r); +} +S_15627:; +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)))))||new_error){ +if(qbevent){evnt(13027);if(r)goto S_15627;} +do{ +qbs_set(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13027);}while(r); +} +S_15630:; +if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(__STRING_PATH__ASCII_CHR_046__EXE,__STRING_FILE),__STRING_EXTENSION))))||new_error){ +if(qbevent){evnt(13028);if(r)goto S_15630;} +do{ +*__LONG_COMPFAILED= 0 ; +if(!qbevent)break;evnt(13029);}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(13030);}while(r); +}else{ +do{ +*__LONG_COMPFAILED= 1 ; +if(!qbevent)break;evnt(13032);}while(r); +} +S_15636:; +if ((*__LONG_COMPFAILED)||new_error){ +if(qbevent){evnt(13035);if(r)goto S_15636;} +S_15637:; +if ((*__LONG_IDEMODE)||new_error){ +if(qbevent){evnt(13036);if(r)goto S_15637;} +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(13037);}while(r); +do{ +goto LABEL_IDEERROR; +if(!qbevent)break;evnt(13038);}while(r); +} +S_15641:; +if ((*__LONG_COMPFAILED)||new_error){ +if(qbevent){evnt(13040);if(r)goto S_15641;} +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("ERROR: C++ compilation failed.",30)); +if (new_error) goto skip2092; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2092: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13041);}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 (new_error) goto skip2093; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2093: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13042);}while(r); +} +}else{ +S_15646:; +if (((-(*__LONG_IDEMODE== 0 ))&(~(*__BYTE_QUIETMODE)))||new_error){ +if(qbevent){evnt(13045);if(r)goto S_15646;} +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("Output: ",8)); +if (new_error) goto skip2094; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_set(tqbs,__STRING_LASTBINARYGENERATED); +if (new_error) goto skip2094; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2094: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13045);}while(r); +} +} +LABEL_SKIP_BUILD:; +if(qbevent){evnt(13048);r=0;} +S_15650:; +if ((*__LONG_IDEMODE)||new_error){ +if(qbevent){evnt(13052);if(r)goto S_15650;} +do{ +goto LABEL_IDERET6; +if(!qbevent)break;evnt(13052);}while(r); +} +LABEL_NO_C_COMPILE:; +if(qbevent){evnt(13054);r=0;} +S_15653:; +if (((((-(*__LONG_COMPFAILED!= 0 ))|(-(*__BYTE_WARNINGSISSUED!= 0 ))))&(-(*__LONG_CONSOLEMODE== 0 )))||new_error){ +if(qbevent){evnt(13056);if(r)goto S_15653;} +do{ +if(qbevent){evnt(13056);} +exit_code= 1 ; +sub_end(); +if(!qbevent)break;evnt(13056);}while(r); +} +S_15656:; +if ((-(*__LONG_COMPFAILED!= 0 ))||new_error){ +if(qbevent){evnt(13057);if(r)goto S_15656;} +do{ +if(qbevent){evnt(13057);} +exit_code= 1 ; +if (sub_gl_called) error(271); +close_program=1; +end(); +if(!qbevent)break;evnt(13057);}while(r); +} +do{ +if(qbevent){evnt(13058);} +exit_code= 0 ; +if (sub_gl_called) error(271); +close_program=1; +end(); +if(!qbevent)break;evnt(13058);}while(r); +LABEL_QBERROR_TEST:; +if(qbevent){evnt(13060);r=0;} +do{ +*__LONG_E= 1 ; +if(!qbevent)break;evnt(13061);}while(r); +do{ +if (!error_handling){error(20);}else{error_handling=0; error_err=0; return;} +if(!qbevent)break;evnt(13062);}while(r); +LABEL_QBERROR:; +if(qbevent){evnt(13064);r=0;} +S_15662:; +if (( 0 )||new_error){ +if(qbevent){evnt(13081);if(r)goto S_15662;} +S_15663:; +if ((*__LONG_CONSOLEMODE)||new_error){ +if(qbevent){evnt(13082);if(r)goto S_15663;} +do{ +tqbs=qbs_new(0,0); +qbs_print(nothingstring,1); +skip2095: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13083);}while(r); +}else{ +do{ +sub__autodisplay(); +if(!qbevent)break;evnt(13085);}while(r); +do{ +qbg_screen(func__newimage( 80 , 25 , 0 ,0|1),NULL, 0 , 0 ,NULL,13); +if(!qbevent)break;evnt(13086);}while(r); +do{ +qbg_sub_color( 7 , 0 ,NULL,3); +if(!qbevent)break;evnt(13087);}while(r); +} +do{ +sub__controlchr( 2 ); +if(!qbevent)break;evnt(13089);}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 (new_error) goto skip2096; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2096: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13090);}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("Some key information (qb64pe.bas):",34)); +if (new_error) goto skip2097; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2097: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13091);}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("Error",5)); +if (new_error) goto skip2098; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_set(tqbs,qbs_add(qbs_str((uint32)(get_error_err())),qbs_new_txt(" "))); +if (new_error) goto skip2098; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2098: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13092);}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("Description: ",13)); +if (new_error) goto skip2099; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_set(tqbs,func__errormessage(NULL,0)); +if (new_error) goto skip2099; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2099: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13093);}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("Line",4)); +if (new_error) goto skip2100; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_set(tqbs,qbs_add(qbs_str((int32)(func__errorline())),qbs_new_txt(" "))); +if (new_error) goto skip2100; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2100: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13094);}while(r); +S_15676:; +if ((func__inclerrorline())||new_error){ +if(qbevent){evnt(13095);if(r)goto S_15676;} +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("Included line",13)); +if (new_error) goto skip2101; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_set(tqbs,qbs_add(qbs_str((int32)(func__inclerrorline())),qbs_new_txt(" "))); +if (new_error) goto skip2101; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2101: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13096);}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("Included file ",14)); +if (new_error) goto skip2102; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_set(tqbs,func__inclerrorfile()); +if (new_error) goto skip2102; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2102: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13097);}while(r); +} +do{ +tqbs=qbs_new(0,0); +qbs_print(nothingstring,1); +skip2103: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13099);}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("Loaded source file details:",27)); +if (new_error) goto skip2104; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2104: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13100);}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("ideerror =",10)); +if (new_error) goto skip2105; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_set(tqbs,qbs_add(qbs_str((int32)(*__LONG_IDEERROR)),qbs_new_txt(" "))); +if (new_error) goto skip2105; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_set(tqbs,qbs_new_txt_len("qberrorhappened =",17)); +if (new_error) goto skip2105; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_set(tqbs,qbs_add(qbs_str((int16)(*__INTEGER_QBERRORHAPPENED)),qbs_new_txt(" "))); +if (new_error) goto skip2105; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_set(tqbs,qbs_new_txt_len("qberrorhappenedvalue =",22)); +if (new_error) goto skip2105; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_set(tqbs,qbs_add(qbs_str((int32)(*__LONG_QBERRORHAPPENEDVALUE)),qbs_new_txt(" "))); +if (new_error) goto skip2105; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_set(tqbs,qbs_new_txt_len("linenumber =",12)); +if (new_error) goto skip2105; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_set(tqbs,qbs_add(qbs_str((int32)(*__LONG_LINENUMBER)),qbs_new_txt(" "))); +if (new_error) goto skip2105; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2105: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13101);}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("ca$ = {",7)); +if (new_error) goto skip2106; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_set(tqbs,__STRING_CA); +if (new_error) goto skip2106; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_set(tqbs,qbs_new_txt_len("}, idecommand$ = {",18)); +if (new_error) goto skip2106; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_set(tqbs,__STRING_IDECOMMAND); +if (new_error) goto skip2106; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_set(tqbs,qbs_new_txt_len("}",1)); +if (new_error) goto skip2106; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2106: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13102);}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("linefragment = {",16)); +if (new_error) goto skip2107; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_set(tqbs,__STRING_LINEFRAGMENT); +if (new_error) goto skip2107; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_set(tqbs,qbs_new_txt_len("}",1)); +if (new_error) goto skip2107; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2107: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13103);}while(r); +do{ +sub_end(); +if(!qbevent)break;evnt(13104);}while(r); +} +S_15687:; +if ((*__LONG_IDEERROR)||new_error){ +if(qbevent){evnt(13107);if(r)goto S_15687;} +do{ +*__LONG_FH=func_freefile(); +if(!qbevent)break;evnt(13108);}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(13109);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FH; +if (new_error) goto skip2108; +sub_file_print(tmp_fileno,func_date(), 0, 0, 0); +if (new_error) goto skip2108; +sub_file_print(tmp_fileno,func_time(), 0, 0, 0); +if (new_error) goto skip2108; +sub_file_print(tmp_fileno,qbs_new_txt_len("--------------------",20), 0, 0, 1); +if (new_error) goto skip2108; +skip2108: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(13110);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FH; +if (new_error) goto skip2109; +sub_file_print(tmp_fileno,qbs_str((uint32)(get_error_err())), 1, 0, 1); +if (new_error) goto skip2109; +skip2109: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(13111);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FH; +if (new_error) goto skip2110; +sub_file_print(tmp_fileno,func__errormessage(NULL,0), 0, 0, 1); +if (new_error) goto skip2110; +skip2110: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(13112);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FH; +if (new_error) goto skip2111; +sub_file_print(tmp_fileno,qbs_str((int32)(func__errorline())), 1, 0, 1); +if (new_error) goto skip2111; +skip2111: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(13113);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FH; +if (new_error) goto skip2112; +sub_file_print(tmp_fileno,qbs_str((int32)(func__inclerrorline())), 1, 0, 1); +if (new_error) goto skip2112; +skip2112: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(13114);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*__LONG_FH; +if (new_error) goto skip2113; +sub_file_print(tmp_fileno,func__inclerrorfile(), 0, 0, 1); +if (new_error) goto skip2113; +skip2113: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(13115);}while(r); +do{ +sub_close(*__LONG_FH,1); +if(!qbevent)break;evnt(13116);}while(r); +do{ +qbs_set(__STRING_SENDC,func_chr( 255 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13117);}while(r); +do{ +if (!error_handling){error(20);}else{error_handling=0; error_err=0; goto LABEL_SENDCOMMAND;} +if(!qbevent)break;evnt(13118);}while(r); +} +do{ +*__LONG_QBERRORHAPPENEDVALUE=*__INTEGER_QBERRORHAPPENED; +if(!qbevent)break;evnt(13121);}while(r); +do{ +*__INTEGER_QBERRORHAPPENED= 1 ; +if(!qbevent)break;evnt(13122);}while(r); +S_15702:; +if (( 0 )||new_error){ +if(qbevent){evnt(13124);if(r)goto S_15702;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip2114; +sub_file_print(tmp_fileno,qbs_new_txt_len("QB ERROR!",9), 0, 0, 1); +if (new_error) goto skip2114; +skip2114: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(13124);}while(r); +} +S_15705:; +if (( 0 )||new_error){ +if(qbevent){evnt(13125);if(r)goto S_15705;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip2115; +sub_file_print(tmp_fileno,qbs_new_txt_len("ERR=",4), 0, 0, 0); +if (new_error) goto skip2115; +sub_file_print(tmp_fileno,qbs_str((uint32)(get_error_err())), 1, 0, 1); +if (new_error) goto skip2115; +skip2115: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(13125);}while(r); +} +S_15708:; +if (( 0 )||new_error){ +if(qbevent){evnt(13126);if(r)goto S_15708;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip2116; +sub_file_print(tmp_fileno,qbs_new_txt_len("ERL=",4), 0, 0, 0); +if (new_error) goto skip2116; +sub_file_print(tmp_fileno,qbs_str((double)(get_error_erl())), 1, 0, 1); +if (new_error) goto skip2116; +skip2116: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(13126);}while(r); +} +S_15711:; +if ((*__LONG_IDEMODE&(-(*__LONG_QBERRORHAPPENEDVALUE>= 0 )))||new_error){ +if(qbevent){evnt(13128);if(r)goto S_15711;} +do{ +*__LONG_IDEERRORLINE=*__LONG_LINENUMBER; +if(!qbevent)break;evnt(13130);}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(13131);}while(r); +S_15714:; +if ((get_error_err())||new_error){ +if(qbevent){evnt(13132);if(r)goto S_15714;} +do{ +qbs_set(__STRING_IDEMESSAGE,qbs_add(qbs_add(__STRING_IDEMESSAGE,FUNC_STR2(&(pass2117=get_error_err()))),qbs_new_txt_len("-",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13132);}while(r); +} +S_15717:; +if ((func__errorline())||new_error){ +if(qbevent){evnt(13133);if(r)goto S_15717;} +do{ +qbs_set(__STRING_IDEMESSAGE,qbs_add(__STRING_IDEMESSAGE,FUNC_STR2(&(pass2118=func__errorline())))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13133);}while(r); +} +S_15720:; +if ((func__inclerrorline())||new_error){ +if(qbevent){evnt(13134);if(r)goto S_15720;} +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)),FUNC_STR2(&(pass2119=func__inclerrorline())))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13134);}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(13135);}while(r); +S_15724:; +if ((-(*__LONG_INCLEVEL> 0 ))||new_error){ +if(qbevent){evnt(13136);if(r)goto S_15724;} +do{ +qbs_set(__STRING_IDEMESSAGE,qbs_add(__STRING_IDEMESSAGE,__STRING_INCERROR)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13136);}while(r); +} +do{ +if (!error_handling){error(20);}else{error_handling=0; error_err=0; goto LABEL_IDEERROR;} +if(!qbevent)break;evnt(13137);}while(r); +} +S_15729:; +if ((-(*__LONG_QBERRORHAPPENEDVALUE>= 0 ))||new_error){ +if(qbevent){evnt(13140);if(r)goto S_15729;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("UNEXPECTED INTERNAL COMPILER ERROR!",35)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13141);}while(r); +do{ +goto LABEL_ERRMES; +if(!qbevent)break;evnt(13141);}while(r); +} +do{ +*__INTEGER_QBERRORCODE=get_error_err(); +if(!qbevent)break;evnt(13145);}while(r); +do{ +*__INTEGER_QBERRORLINE=qbr_float_to_long(get_error_erl()); +if(!qbevent)break;evnt(13146);}while(r); +S_15735:; +if ((-(*__LONG_QBERRORHAPPENEDVALUE== -1 ))||new_error){ +if(qbevent){evnt(13147);if(r)goto S_15735;} +do{ +if (!error_handling){error(20);}else{error_handling=0; error_err=0; goto LABEL_QBERRORHAPPENED1;} +if(!qbevent)break;evnt(13147);}while(r); +} +S_15738:; +if ((-(*__LONG_QBERRORHAPPENEDVALUE== -2 ))||new_error){ +if(qbevent){evnt(13148);if(r)goto S_15738;} +do{ +if (!error_handling){error(20);}else{error_handling=0; error_err=0; goto LABEL_QBERRORHAPPENED2;} +if(!qbevent)break;evnt(13148);}while(r); +} +S_15741:; +if ((-(*__LONG_QBERRORHAPPENEDVALUE== -3 ))||new_error){ +if(qbevent){evnt(13149);if(r)goto S_15741;} +do{ +if (!error_handling){error(20);}else{error_handling=0; error_err=0; goto LABEL_QBERRORHAPPENED3;} +if(!qbevent)break;evnt(13149);}while(r); +} +do{ +sub_end(); +if(!qbevent)break;evnt(13150);}while(r); +LABEL_ERRMES:; +if(qbevent){evnt(13152);r=0;} +S_15745:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(13153);if(r)goto S_15745;} +do{ +qbs_set(__STRING_A,__STRING_ERROR_MESSAGE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13153);}while(r); +do{ +*__LONG_ERROR_HAPPENED= 0 ; +if(!qbevent)break;evnt(13153);}while(r); +} +do{ +qbs_set(__STRING_LAYOUT,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13154);}while(r); +do{ +*__LONG_LAYOUTOK= 0 ; +if(!qbevent)break;evnt(13154);}while(r); +S_15751:; +if ((*__LONG_FORCEINCLUDINGFILE)||new_error){ +if(qbevent){evnt(13156);if(r)goto S_15751;} +S_15752:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_A,qbs_new_txt_len("END SUB/FUNCTION before",23),0)))||new_error){ +if(qbevent){evnt(13157);if(r)goto S_15752;} +do{ +qbs_set(__STRING_A,qbs_new_txt_len("SUB without END SUB",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13157);}while(r); +} +}else{ +S_15756:; +if ((-(*__LONG_INCLEVEL> 0 ))||new_error){ +if(qbevent){evnt(13159);if(r)goto S_15756;} +do{ +qbs_set(__STRING_A,qbs_add(__STRING_A,__STRING_INCERROR)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13159);}while(r); +} +} +S_15760:; +if ((*__LONG_IDEMODE)||new_error){ +if(qbevent){evnt(13162);if(r)goto S_15760;} +do{ +*__LONG_IDEERRORLINE=*__LONG_LINENUMBER; +if(!qbevent)break;evnt(13163);}while(r); +do{ +qbs_set(__STRING_IDEMESSAGE,__STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13164);}while(r); +do{ +goto LABEL_IDEERROR; +if(!qbevent)break;evnt(13165);}while(r); +} +do{ +tqbs=qbs_new(0,0); +qbs_print(nothingstring,1); +skip2120: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13168);}while(r); +S_15766:; +if ((~(*__BYTE_MONOCHROMELOGGINGMODE))||new_error){ +if(qbevent){evnt(13169);if(r)goto S_15766;} +S_15767:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)))||new_error){ +if(qbevent){evnt(13170);if(r)goto S_15767;} +do{ +qbg_sub_color( 4 ,NULL,NULL,1); +if(!qbevent)break;evnt(13171);}while(r); +}else{ +do{ +qbg_sub_color( 9 ,NULL,NULL,1); +if(!qbevent)break;evnt(13173);}while(r); +} +} +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,__STRING_A); +if (new_error) goto skip2121; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2121: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13176);}while(r); +S_15774:; +if ((~(*__BYTE_MONOCHROMELOGGINGMODE))||new_error){ +if(qbevent){evnt(13177);if(r)goto S_15774;} +do{ +qbg_sub_color( 7 ,NULL,NULL,1); +if(!qbevent)break;evnt(13177);}while(r); +} +S_15777:; +fornext_value2123= 1 ; +fornext_finalvalue2123=__STRING_LINEFRAGMENT->len; +fornext_step2123= 1 ; +if (fornext_step2123<0) fornext_step_negative2123=1; else fornext_step_negative2123=0; +if (new_error) goto fornext_error2123; +goto fornext_entrylabel2123; +while(1){ +fornext_value2123=fornext_step2123+(*__LONG_I); +fornext_entrylabel2123: +*__LONG_I=fornext_value2123; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative2123){ +if (fornext_value2123fornext_finalvalue2123) break; +} +fornext_error2123:; +if(qbevent){evnt(13178);if(r)goto S_15777;} +S_15778:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(__STRING_LINEFRAGMENT,*__LONG_I, 1 ,0|1),__STRING1_SP)))||new_error){ +if(qbevent){evnt(13179);if(r)goto S_15778;} +do{ +sub_mid(__STRING_LINEFRAGMENT,*__LONG_I, 1 ,qbs_new_txt_len(" ",1),1); +if(!qbevent)break;evnt(13179);}while(r); +} +fornext_continue_2122:; +} +fornext_exit_2122:; +S_15782:; +fornext_value2126= 1 ; +fornext_finalvalue2126=__STRING_WHOLELINE->len; +fornext_step2126= 1 ; +if (fornext_step2126<0) fornext_step_negative2126=1; else fornext_step_negative2126=0; +if (new_error) goto fornext_error2126; +goto fornext_entrylabel2126; +while(1){ +fornext_value2126=fornext_step2126+(*__LONG_I); +fornext_entrylabel2126: +*__LONG_I=fornext_value2126; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative2126){ +if (fornext_value2126fornext_finalvalue2126) break; +} +fornext_error2126:; +if(qbevent){evnt(13181);if(r)goto S_15782;} +S_15783:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(__STRING_WHOLELINE,*__LONG_I, 1 ,0|1),__STRING1_SP)))||new_error){ +if(qbevent){evnt(13182);if(r)goto S_15783;} +do{ +sub_mid(__STRING_WHOLELINE,*__LONG_I, 1 ,qbs_new_txt_len(" ",1),1); +if(!qbevent)break;evnt(13182);}while(r); +} +fornext_continue_2125:; +} +fornext_exit_2125:; +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_add(qbs_new_txt_len("Caused by (or after):",21),__STRING_LINEFRAGMENT)); +if (new_error) goto skip2128; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2128: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13184);}while(r); +S_15788:; +if ((~(*__BYTE_MONOCHROMELOGGINGMODE))||new_error){ +if(qbevent){evnt(13185);if(r)goto S_15788;} +do{ +qbg_sub_color( 8 ,NULL,NULL,1); +if(!qbevent)break;evnt(13185);}while(r); +} +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("LINE ",5)); +if (new_error) goto skip2129; +makefit(tqbs); +qbs_print(tqbs,0); +skip2129: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13186);}while(r); +S_15792:; +if ((~(*__BYTE_MONOCHROMELOGGINGMODE))||new_error){ +if(qbevent){evnt(13187);if(r)goto S_15792;} +do{ +qbg_sub_color( 15 ,NULL,NULL,1); +if(!qbevent)break;evnt(13187);}while(r); +} +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_add(FUNC_STR2(__LONG_LINENUMBER),qbs_new_txt_len(":",1))); +if (new_error) goto skip2130; +makefit(tqbs); +qbs_print(tqbs,0); +skip2130: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13188);}while(r); +S_15796:; +if ((~(*__BYTE_MONOCHROMELOGGINGMODE))||new_error){ +if(qbevent){evnt(13189);if(r)goto S_15796;} +do{ +qbg_sub_color( 7 ,NULL,NULL,1); +if(!qbevent)break;evnt(13189);}while(r); +} +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,__STRING_WHOLELINE); +if (new_error) goto skip2131; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2131: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13190);}while(r); +S_15800:; +if ((*__LONG_CONSOLEMODE)||new_error){ +if(qbevent){evnt(13192);if(r)goto S_15800;} +do{ +if(qbevent){evnt(13192);} +exit_code= 1 ; +if (sub_gl_called) error(271); +close_program=1; +end(); +if(!qbevent)break;evnt(13192);}while(r); +} +do{ +if(qbevent){evnt(13193);} +exit_code= 1 ; +sub_end(); +if(!qbevent)break;evnt(13193);}while(r); +sub_end(); +return; +} +qbs* FUNC_PARSECMDLINEARGS(){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data1.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +S_15804:; +fornext_value2133= 1 ; +fornext_finalvalue2133=func__commandcount(); +fornext_step2133= 1 ; +if (fornext_step2133<0) fornext_step_negative2133=1; else fornext_step_negative2133=0; +if (new_error) goto fornext_error2133; +goto fornext_entrylabel2133; +while(1){ +fornext_value2133=fornext_step2133+(*_FUNC_PARSECMDLINEARGS_LONG_I); +fornext_entrylabel2133: +*_FUNC_PARSECMDLINEARGS_LONG_I=fornext_value2133; +if (fornext_step_negative2133){ +if (fornext_value2133fornext_finalvalue2133) break; +} +fornext_error2133:; +if(qbevent){evnt(13199);if(r)goto S_15804;} +do{ +qbs_set(_FUNC_PARSECMDLINEARGS_STRING_TOKEN,func_command(*_FUNC_PARSECMDLINEARGS_LONG_I,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13200);}while(r); +S_15806:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_lcase(_FUNC_PARSECMDLINEARGS_STRING_TOKEN),qbs_new_txt_len("/?",2)))|(qbs_equal(qbs_lcase(_FUNC_PARSECMDLINEARGS_STRING_TOKEN),qbs_new_txt_len("--help",6)))|(qbs_equal(qbs_lcase(_FUNC_PARSECMDLINEARGS_STRING_TOKEN),qbs_new_txt_len("/help",5)))))||new_error){ +if(qbevent){evnt(13201);if(r)goto S_15806;} +do{ +qbs_set(_FUNC_PARSECMDLINEARGS_STRING_TOKEN,qbs_new_txt_len("-?",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13201);}while(r); +} +S_15809:; +qbs_set(sc_2134,qbs_lcase(qbs_left(_FUNC_PARSECMDLINEARGS_STRING_TOKEN, 2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(qbevent){evnt(13202);if(r)goto S_15809;} +S_15810:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2134,qbs_new_txt_len("-?",2))))||new_error){ +if(qbevent){evnt(13203);if(r)goto S_15810;} +do{ +sub__dest(func__console()); +if(!qbevent)break;evnt(13204);}while(r); +S_15812:; +if ((-(*__BYTE_QB64VERSIONPRINTED== 0 ))||new_error){ +if(qbevent){evnt(13205);if(r)goto S_15812;} +do{ +*__BYTE_QB64VERSIONPRINTED= -1 ; +if(!qbevent)break;evnt(13205);}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 (new_error) goto skip2135; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2135: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13205);}while(r); +} +do{ +tqbs=qbs_new(0,0); +qbs_print(nothingstring,1); +skip2136: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13206);}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("Usage: qb64pe [switches] ",31)); +if (new_error) goto skip2137; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2137: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13207);}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_print(nothingstring,1); +skip2138: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13208);}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("Options:",8)); +if (new_error) goto skip2139; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2139: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13209);}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len(" Source file to load",45)); +if (new_error) goto skip2140; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2140: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13210);}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len(" -v Print version",39)); +if (new_error) goto skip2141; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2141: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13211);}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len(" -c Compile instead of edit",49)); +if (new_error) goto skip2142; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2142: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13212);}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len(" -o Write output executable to ",66)); +if (new_error) goto skip2143; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2143: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13213);}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len(" -x Compile instead of edit and output the result to the",78)); +if (new_error) goto skip2144; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2144: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13214);}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len(" console",36)); +if (new_error) goto skip2145; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2145: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13215);}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len(" -w Show warnings",39)); +if (new_error) goto skip2146; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2146: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13216);}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len(" -q Quiet mode (does not inhibit warnings or errors)",74)); +if (new_error) goto skip2147; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2147: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13217);}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len(" -m Do not colorize compiler output (monochrome mode)",75)); +if (new_error) goto skip2148; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2148: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13218);}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len(" -e Enable OPTION _EXPLICIT, making variable declaration",78)); +if (new_error) goto skip2149; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2149: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13219);}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len(" mandatory (per-compilation; doesn't affect the",75)); +if (new_error) goto skip2150; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2150: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13220);}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len(" source file or global settings)",60)); +if (new_error) goto skip2151; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2151: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13221);}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len(" -s[:switch=true/false] View/edit compiler settings",53)); +if (new_error) goto skip2152; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2152: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13222);}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len(" -l: Start the IDE at the specified line number",68)); +if (new_error) goto skip2153; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2153: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13223);}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len(" -p Purge all pre-compiled content first",62)); +if (new_error) goto skip2154; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2154: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13224);}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len(" -z Generate C code without compiling to executable",73)); +if (new_error) 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(13225);}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len(" -f[:setting=value] compiler settings to use",50)); +if (new_error) 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(13226);}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_print(nothingstring,1); +skip2157: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13227);}while(r); +do{ +if (sub_gl_called) error(271); +close_program=1; +end(); +if(!qbevent)break;evnt(13228);}while(r); +sc_ec_43_end:; +goto sc_2134_end; +} +S_15839:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2134,qbs_new_txt_len("-v",2))))||new_error){ +if(qbevent){evnt(13230);if(r)goto S_15839;} +do{ +sub__dest(func__console()); +if(!qbevent)break;evnt(13231);}while(r); +S_15841:; +if ((-(*__BYTE_QB64VERSIONPRINTED== 0 ))||new_error){ +if(qbevent){evnt(13232);if(r)goto S_15841;} +do{ +*__BYTE_QB64VERSIONPRINTED= -1 ; +if(!qbevent)break;evnt(13232);}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 (new_error) goto skip2158; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2158: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13232);}while(r); +} +do{ +if (sub_gl_called) error(271); +close_program=1; +end(); +if(!qbevent)break;evnt(13233);}while(r); +sc_ec_44_end:; +goto sc_2134_end; +} +S_15846:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2134,qbs_new_txt_len("-u",2))))||new_error){ +if(qbevent){evnt(13235);if(r)goto S_15846;} +do{ +*__LONG_HELP_RECACHING= 2 ; +if(!qbevent)break;evnt(13236);}while(r); +do{ +*__LONG_HELP_IGNORECACHE= 1 ; +if(!qbevent)break;evnt(13236);}while(r); +S_15849:; +if ((FUNC_IDEUPDATEHELPBOX())||new_error){ +if(qbevent){evnt(13237);if(r)goto S_15849;} +do{ +sub__dest(func__console()); +if(!qbevent)break;evnt(13238);}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("Update failed: Can't make connection to Wiki.",45)); +if (new_error) 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(13239);}while(r); +do{ +if(qbevent){evnt(13240);} +exit_code= 1 ; +if (sub_gl_called) error(271); +close_program=1; +end(); +if(!qbevent)break;evnt(13240);}while(r); +} +do{ +if (sub_gl_called) error(271); +close_program=1; +end(); +if(!qbevent)break;evnt(13242);}while(r); +sc_ec_45_end:; +goto sc_2134_end; +} +S_15855:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2134,qbs_new_txt_len("-c",2))))||new_error){ +if(qbevent){evnt(13243);if(r)goto S_15855;} +do{ +*__LONG_NOIDEMODE= 1 ; +if(!qbevent)break;evnt(13244);}while(r); +do{ +*_FUNC_PARSECMDLINEARGS_LONG_CMDLINESWITCH= -1 ; +if(!qbevent)break;evnt(13245);}while(r); +sc_ec_46_end:; +goto sc_2134_end; +} +S_15858:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2134,qbs_new_txt_len("-o",2))))||new_error){ +if(qbevent){evnt(13246);if(r)goto S_15858;} +S_15859:; +if ((qbs_cleanup(qbs_tmp_base,-(((int32)(func_command(*_FUNC_PARSECMDLINEARGS_LONG_I+ 1 ,0|1))->len)> 0 )))||new_error){ +if(qbevent){evnt(13247);if(r)goto S_15859;} +do{ +qbs_set(__STRING_OUTPUTFILE_CMD,func_command(*_FUNC_PARSECMDLINEARGS_LONG_I+ 1 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13247);}while(r); +do{ +*_FUNC_PARSECMDLINEARGS_LONG_I=*_FUNC_PARSECMDLINEARGS_LONG_I+ 1 ; +if(!qbevent)break;evnt(13247);}while(r); +} +do{ +*_FUNC_PARSECMDLINEARGS_LONG_CMDLINESWITCH= -1 ; +if(!qbevent)break;evnt(13248);}while(r); +sc_ec_47_end:; +goto sc_2134_end; +} +S_15864:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2134,qbs_new_txt_len("-x",2))))||new_error){ +if(qbevent){evnt(13249);if(r)goto S_15864;} +do{ +*__LONG_CONSOLEMODE= 1 ; +if(!qbevent)break;evnt(13250);}while(r); +do{ +*__LONG_NOIDEMODE= 1 ; +if(!qbevent)break;evnt(13251);}while(r); +do{ +*_FUNC_PARSECMDLINEARGS_LONG_CMDLINESWITCH= -1 ; +if(!qbevent)break;evnt(13252);}while(r); +sc_ec_48_end:; +goto sc_2134_end; +} +S_15868:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2134,qbs_new_txt_len("-w",2))))||new_error){ +if(qbevent){evnt(13253);if(r)goto S_15868;} +do{ +*__BYTE_SHOWWARNINGS= -1 ; +if(!qbevent)break;evnt(13254);}while(r); +do{ +*_FUNC_PARSECMDLINEARGS_LONG_CMDLINESWITCH= -1 ; +if(!qbevent)break;evnt(13255);}while(r); +sc_ec_49_end:; +goto sc_2134_end; +} +S_15871:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2134,qbs_new_txt_len("-q",2))))||new_error){ +if(qbevent){evnt(13256);if(r)goto S_15871;} +do{ +*__BYTE_QUIETMODE= -1 ; +if(!qbevent)break;evnt(13257);}while(r); +do{ +*_FUNC_PARSECMDLINEARGS_LONG_CMDLINESWITCH= -1 ; +if(!qbevent)break;evnt(13258);}while(r); +sc_ec_50_end:; +goto sc_2134_end; +} +S_15874:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2134,qbs_new_txt_len("-m",2))))||new_error){ +if(qbevent){evnt(13259);if(r)goto S_15874;} +do{ +*__BYTE_MONOCHROMELOGGINGMODE= -1 ; +if(!qbevent)break;evnt(13260);}while(r); +do{ +*_FUNC_PARSECMDLINEARGS_LONG_CMDLINESWITCH= -1 ; +if(!qbevent)break;evnt(13261);}while(r); +sc_ec_51_end:; +goto sc_2134_end; +} +S_15877:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2134,qbs_new_txt_len("-e",2))))||new_error){ +if(qbevent){evnt(13262);if(r)goto S_15877;} +do{ +*__BYTE_OPTIONEXPLICIT_CMD= -1 ; +if(!qbevent)break;evnt(13263);}while(r); +do{ +*_FUNC_PARSECMDLINEARGS_LONG_CMDLINESWITCH= -1 ; +if(!qbevent)break;evnt(13264);}while(r); +sc_ec_52_end:; +goto sc_2134_end; +} +S_15880:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2134,qbs_new_txt_len("-s",2))))||new_error){ +if(qbevent){evnt(13265);if(r)goto S_15880;} +do{ +*_FUNC_PARSECMDLINEARGS_LONG_SETTINGSMODE= -1 ; +if(!qbevent)break;evnt(13266);}while(r); +do{ +sub__dest(func__console()); +if(!qbevent)break;evnt(13267);}while(r); +S_15883:; +if ((-(*__BYTE_QB64VERSIONPRINTED== 0 ))||new_error){ +if(qbevent){evnt(13268);if(r)goto S_15883;} +do{ +*__BYTE_QB64VERSIONPRINTED= -1 ; +if(!qbevent)break;evnt(13268);}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 (new_error) 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(13268);}while(r); +} +S_15887:; +qbs_set(sc_2161,qbs_lcase(func_mid(_FUNC_PARSECMDLINEARGS_STRING_TOKEN, 3 ,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(qbevent){evnt(13269);if(r)goto S_15887;} +S_15888:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2161,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(13270);if(r)goto S_15888;} +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("debuginfo = ",16)); +if (new_error) goto skip2162; +makefit(tqbs); +qbs_print(tqbs,0); +skip2162: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13271);}while(r); +S_15890:; +if ((*__LONG_IDEDEBUGINFO)||new_error){ +if(qbevent){evnt(13272);if(r)goto S_15890;} +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("true",4)); +if (new_error) 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(13272);}while(r); +}else{ +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("false",5)); +if (new_error) 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(13272);}while(r); +} +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("exewithsource = ",16)); +if (new_error) goto skip2165; +makefit(tqbs); +qbs_print(tqbs,0); +skip2165: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13273);}while(r); +S_15896:; +if ((*__BYTE_SAVEEXEWITHSOURCE)||new_error){ +if(qbevent){evnt(13274);if(r)goto S_15896;} +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("true",4)); +if (new_error) goto skip2166; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2166: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13274);}while(r); +}else{ +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("false",5)); +if (new_error) 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(13274);}while(r); +} +do{ +if (sub_gl_called) error(271); +close_program=1; +end(); +if(!qbevent)break;evnt(13275);}while(r); +sc_ec_53_end:; +goto sc_2161_end; +} +S_15902:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2161,qbs_new_txt_len(":exewithsource",14))))||new_error){ +if(qbevent){evnt(13276);if(r)goto S_15902;} +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("exewithsource = ",16)); +if (new_error) goto skip2168; +makefit(tqbs); +qbs_print(tqbs,0); +skip2168: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13277);}while(r); +S_15904:; +if ((*__BYTE_SAVEEXEWITHSOURCE)||new_error){ +if(qbevent){evnt(13278);if(r)goto S_15904;} +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("true",4)); +if (new_error) 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(13278);}while(r); +}else{ +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("false",5)); +if (new_error) 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(13278);}while(r); +} +do{ +if (sub_gl_called) error(271); +close_program=1; +end(); +if(!qbevent)break;evnt(13279);}while(r); +sc_ec_54_end:; +goto sc_2161_end; +} +S_15910:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2161,qbs_new_txt_len(":exewithsource=true",19))))||new_error){ +if(qbevent){evnt(13280);if(r)goto S_15910;} +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("SaveExeWithSource",17),qbs_new_txt_len("True",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13281);}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("exewithsource = true",20)); +if (new_error) goto skip2171; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2171: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13282);}while(r); +do{ +*__BYTE_SAVEEXEWITHSOURCE= -1 ; +if(!qbevent)break;evnt(13283);}while(r); +sc_ec_55_end:; +goto sc_2161_end; +} +S_15914:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2161,qbs_new_txt_len(":exewithsource=false",20))))||new_error){ +if(qbevent){evnt(13284);if(r)goto S_15914;} +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("SaveExeWithSource",17),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13285);}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("exewithsource = false",21)); +if (new_error) goto skip2172; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2172: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13286);}while(r); +do{ +*__BYTE_SAVEEXEWITHSOURCE= 0 ; +if(!qbevent)break;evnt(13287);}while(r); +sc_ec_56_end:; +goto sc_2161_end; +} +S_15918:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2161,qbs_new_txt_len(":debuginfo",10))))||new_error){ +if(qbevent){evnt(13288);if(r)goto S_15918;} +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("debuginfo = ",12)); +if (new_error) goto skip2173; +makefit(tqbs); +qbs_print(tqbs,0); +skip2173: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13289);}while(r); +S_15920:; +if ((*__LONG_IDEDEBUGINFO)||new_error){ +if(qbevent){evnt(13290);if(r)goto S_15920;} +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("true",4)); +if (new_error) goto skip2174; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2174: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13290);}while(r); +}else{ +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("false",5)); +if (new_error) goto skip2175; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2175: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13290);}while(r); +} +do{ +if (sub_gl_called) error(271); +close_program=1; +end(); +if(!qbevent)break;evnt(13291);}while(r); +sc_ec_57_end:; +goto sc_2161_end; +} +S_15926:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2161,qbs_new_txt_len(":debuginfo=true",15))))||new_error){ +if(qbevent){evnt(13292);if(r)goto S_15926;} +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("debuginfo = true",16)); +if (new_error) goto skip2176; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2176: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13293);}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("DebugInfo",9),qbs_add(qbs_new_txt_len("True",4),_FUNC_PARSECMDLINEARGS_STRING_DEBUGINFOINIWARNING)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13294);}while(r); +do{ +*__LONG_IDEDEBUGINFO= -1 ; +if(!qbevent)break;evnt(13295);}while(r); +do{ +*__LONG_INCLUDE_GDB_DEBUGGING_INFO=*__LONG_IDEDEBUGINFO; +if(!qbevent)break;evnt(13296);}while(r); +do{ +SUB_PURGETEMPORARYBUILDFILES(__STRING_OS,&(pass2177=*__LONG_MACOSX)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13297);}while(r); +sc_ec_58_end:; +goto sc_2161_end; +} +S_15932:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2161,qbs_new_txt_len(":debuginfo=false",16))))||new_error){ +if(qbevent){evnt(13298);if(r)goto S_15932;} +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("debuginfo = false",17)); +if (new_error) goto skip2178; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2178: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13299);}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("DebugInfo",9),qbs_add(qbs_new_txt_len("False",5),_FUNC_PARSECMDLINEARGS_STRING_DEBUGINFOINIWARNING)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13300);}while(r); +do{ +*__LONG_IDEDEBUGINFO= 0 ; +if(!qbevent)break;evnt(13301);}while(r); +do{ +*__LONG_INCLUDE_GDB_DEBUGGING_INFO=*__LONG_IDEDEBUGINFO; +if(!qbevent)break;evnt(13302);}while(r); +do{ +SUB_PURGETEMPORARYBUILDFILES(__STRING_OS,&(pass2179=*__LONG_MACOSX)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13303);}while(r); +sc_ec_59_end:; +goto sc_2161_end; +} +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("Invalid settings switch: ",25)); +if (new_error) goto skip2180; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_set(tqbs,_FUNC_PARSECMDLINEARGS_STRING_TOKEN); +if (new_error) goto skip2180; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2180: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13305);}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_print(nothingstring,1); +skip2181: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13306);}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("Valid switches:",15)); +if (new_error) goto skip2182; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2182: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13307);}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len(" -s:debuginfo=true/false (Embed C++ debug info into .EXE)",64)); +if (new_error) goto skip2183; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2183: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13308);}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len(" -s:exewithsource=true/false (Save .EXE in the source folder)",64)); +if (new_error) goto skip2184; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2184: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13309);}while(r); +do{ +if(qbevent){evnt(13310);} +exit_code= 1 ; +if (sub_gl_called) error(271); +close_program=1; +end(); +if(!qbevent)break;evnt(13310);}while(r); +sc_2161_end:; +do{ +sub__dest( 0 ); +if(!qbevent)break;evnt(13312);}while(r); +sc_ec_60_end:; +goto sc_2134_end; +} +S_15947:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2134,qbs_new_txt_len("-l",2))))||new_error){ +if(qbevent){evnt(13313);if(r)goto S_15947;} +S_15948:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_PARSECMDLINEARGS_STRING_TOKEN, 3 , 1 ,0|1),qbs_new_txt_len(":",1))))||new_error){ +if(qbevent){evnt(13314);if(r)goto S_15948;} +do{ +*__LONG_IDESTARTATLINE=qbr(func_val(func_mid(_FUNC_PARSECMDLINEARGS_STRING_TOKEN, 4 ,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13314);}while(r); +} +do{ +*_FUNC_PARSECMDLINEARGS_LONG_CMDLINESWITCH= -1 ; +if(!qbevent)break;evnt(13315);}while(r); +sc_ec_61_end:; +goto sc_2134_end; +} +S_15952:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2134,qbs_new_txt_len("-p",2))))||new_error){ +if(qbevent){evnt(13316);if(r)goto S_15952;} +do{ +SUB_PURGETEMPORARYBUILDFILES(__STRING_OS,&(pass2185=*__LONG_MACOSX)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13317);}while(r); +do{ +*_FUNC_PARSECMDLINEARGS_LONG_CMDLINESWITCH= -1 ; +if(!qbevent)break;evnt(13318);}while(r); +sc_ec_62_end:; +goto sc_2134_end; +} +S_15955:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2134,qbs_new_txt_len("-z",2))))||new_error){ +if(qbevent){evnt(13319);if(r)goto S_15955;} +do{ +*__LONG_NO_C_COMPILE_MODE= 1 ; +if(!qbevent)break;evnt(13320);}while(r); +do{ +*__LONG_CONSOLEMODE= 1 ; +if(!qbevent)break;evnt(13321);}while(r); +do{ +*__LONG_NOIDEMODE= 1 ; +if(!qbevent)break;evnt(13322);}while(r); +do{ +*_FUNC_PARSECMDLINEARGS_LONG_CMDLINESWITCH= -1 ; +if(!qbevent)break;evnt(13323);}while(r); +sc_ec_63_end:; +goto sc_2134_end; +} +S_15960:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2134,qbs_new_txt_len("-f",2))))||new_error){ +if(qbevent){evnt(13325);if(r)goto S_15960;} +do{ +qbs_set(_FUNC_PARSECMDLINEARGS_STRING_TOKEN,func_mid(_FUNC_PARSECMDLINEARGS_STRING_TOKEN, 3 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13326);}while(r); +S_15962:; +qbs_set(sc_2186,qbs_lcase(qbs_left(_FUNC_PARSECMDLINEARGS_STRING_TOKEN,func_instr(NULL,_FUNC_PARSECMDLINEARGS_STRING_TOKEN,qbs_new_txt_len("=",1),0)- 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(qbevent){evnt(13328);if(r)goto S_15962;} +S_15963:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2186,qbs_new_txt_len(":useminiaudio",13))))||new_error){ +if(qbevent){evnt(13329);if(r)goto S_15963;} +S_15964:; +if ((qbs_cleanup(qbs_tmp_base,~(FUNC_PARSEBOOLEANSETTING(_FUNC_PARSECMDLINEARGS_STRING_TOKEN,__ULONG_USEMINIAUDIOBACKEND))))||new_error){ +if(qbevent){evnt(13330);if(r)goto S_15964;} +do{ +SUB_PRINTTEMPORARYSETTINGSHELPANDEXIT(FUNC_INVALIDSETTINGERROR(_FUNC_PARSECMDLINEARGS_STRING_TOKEN)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13330);}while(r); +} +sc_ec_64_end:; +goto sc_2186_end; +} +S_15967:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2186,qbs_new_txt_len(":optimizecppprogram",19))))||new_error){ +if(qbevent){evnt(13332);if(r)goto S_15967;} +S_15968:; +if ((qbs_cleanup(qbs_tmp_base,~(FUNC_PARSEBOOLEANSETTING(_FUNC_PARSECMDLINEARGS_STRING_TOKEN,__ULONG_OPTIMIZECPPPROGRAM))))||new_error){ +if(qbevent){evnt(13333);if(r)goto S_15968;} +do{ +SUB_PRINTTEMPORARYSETTINGSHELPANDEXIT(FUNC_INVALIDSETTINGERROR(_FUNC_PARSECMDLINEARGS_STRING_TOKEN)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13333);}while(r); +} +sc_ec_65_end:; +goto sc_2186_end; +} +S_15971:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2186,qbs_new_txt_len(":stripdebugsymbols",18))))||new_error){ +if(qbevent){evnt(13335);if(r)goto S_15971;} +S_15972:; +if ((qbs_cleanup(qbs_tmp_base,~(FUNC_PARSEBOOLEANSETTING(_FUNC_PARSECMDLINEARGS_STRING_TOKEN,__ULONG_STRIPDEBUGSYMBOLS))))||new_error){ +if(qbevent){evnt(13336);if(r)goto S_15972;} +do{ +SUB_PRINTTEMPORARYSETTINGSHELPANDEXIT(FUNC_INVALIDSETTINGERROR(_FUNC_PARSECMDLINEARGS_STRING_TOKEN)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13336);}while(r); +} +sc_ec_66_end:; +goto sc_2186_end; +} +S_15975:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2186,qbs_new_txt_len(":extracppflags",14))))||new_error){ +if(qbevent){evnt(13338);if(r)goto S_15975;} +S_15976:; +if ((qbs_cleanup(qbs_tmp_base,~(FUNC_PARSESTRINGSETTING(_FUNC_PARSECMDLINEARGS_STRING_TOKEN,__STRING_EXTRACPPFLAGS))))||new_error){ +if(qbevent){evnt(13339);if(r)goto S_15976;} +do{ +SUB_PRINTTEMPORARYSETTINGSHELPANDEXIT(FUNC_INVALIDSETTINGERROR(_FUNC_PARSECMDLINEARGS_STRING_TOKEN)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13339);}while(r); +} +sc_ec_67_end:; +goto sc_2186_end; +} +S_15979:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2186,qbs_new_txt_len(":extralinkerflags",17))))||new_error){ +if(qbevent){evnt(13341);if(r)goto S_15979;} +S_15980:; +if ((qbs_cleanup(qbs_tmp_base,~(FUNC_PARSESTRINGSETTING(_FUNC_PARSECMDLINEARGS_STRING_TOKEN,__STRING_EXTRALINKERFLAGS))))||new_error){ +if(qbevent){evnt(13342);if(r)goto S_15980;} +do{ +SUB_PRINTTEMPORARYSETTINGSHELPANDEXIT(FUNC_INVALIDSETTINGERROR(_FUNC_PARSECMDLINEARGS_STRING_TOKEN)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13342);}while(r); +} +sc_ec_68_end:; +goto sc_2186_end; +} +S_15983:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2186,qbs_new_txt_len(":maxcompilerprocesses",21))))||new_error){ +if(qbevent){evnt(13344);if(r)goto S_15983;} +S_15984:; +if ((qbs_cleanup(qbs_tmp_base,~(FUNC_PARSELONGSETTING(_FUNC_PARSECMDLINEARGS_STRING_TOKEN,__ULONG_MAXPARALLELPROCESSES))))||new_error){ +if(qbevent){evnt(13345);if(r)goto S_15984;} +do{ +SUB_PRINTTEMPORARYSETTINGSHELPANDEXIT(FUNC_INVALIDSETTINGERROR(_FUNC_PARSECMDLINEARGS_STRING_TOKEN)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13345);}while(r); +} +S_15987:; +if ((-(*__ULONG_MAXPARALLELPROCESSES== 0 ))||new_error){ +if(qbevent){evnt(13346);if(r)goto S_15987;} +do{ +SUB_PRINTTEMPORARYSETTINGSHELPANDEXIT(qbs_new_txt_len("MaxCompilerProcesses must be more than zero",43)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13346);}while(r); +} +sc_ec_69_end:; +goto sc_2186_end; +} +S_15990:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_2186,qbs_new_txt_len(":generatelicensefile",20))))||new_error){ +if(qbevent){evnt(13348);if(r)goto S_15990;} +S_15991:; +if ((qbs_cleanup(qbs_tmp_base,~(FUNC_PARSEBOOLEANSETTING(_FUNC_PARSECMDLINEARGS_STRING_TOKEN,__ULONG_GENERATELICENSEFILE))))||new_error){ +if(qbevent){evnt(13349);if(r)goto S_15991;} +do{ +SUB_PRINTTEMPORARYSETTINGSHELPANDEXIT(FUNC_INVALIDSETTINGERROR(_FUNC_PARSECMDLINEARGS_STRING_TOKEN)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13349);}while(r); +} +sc_ec_70_end:; +goto sc_2186_end; +} +do{ +SUB_PRINTTEMPORARYSETTINGSHELPANDEXIT(qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13352);}while(r); +sc_2186_end:; +sc_ec_71_end:; +goto sc_2134_end; +} +S_15998:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_PARSECMDLINEARGS_STRING_PASSEDFILENAME,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(13356);if(r)goto S_15998;} +do{ +qbs_set(_FUNC_PARSECMDLINEARGS_STRING_PASSEDFILENAME,_FUNC_PARSECMDLINEARGS_STRING_TOKEN); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13356);}while(r); +} +sc_2134_end:; +fornext_continue_2132:; +} +fornext_exit_2132:; +S_16003:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_PARSECMDLINEARGS_STRING_PASSEDFILENAME->len))||new_error){ +if(qbevent){evnt(13360);if(r)goto S_16003;} +do{ +qbs_set(_FUNC_PARSECMDLINEARGS_STRING_PARSECMDLINEARGS,_FUNC_PARSECMDLINEARGS_STRING_PASSEDFILENAME); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13361);}while(r); +}else{ +S_16006:; +if (((-(*_FUNC_PARSECMDLINEARGS_LONG_CMDLINESWITCH== 0 ))&(-(*_FUNC_PARSECMDLINEARGS_LONG_SETTINGSMODE== -1 )))||new_error){ +if(qbevent){evnt(13363);if(r)goto S_16006;} +do{ +if (sub_gl_called) error(271); +close_program=1; +end(); +if(!qbevent)break;evnt(13363);}while(r); +} +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free1.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_PARSECMDLINEARGS_STRING_PARSECMDLINEARGS);return _FUNC_PARSECMDLINEARGS_STRING_PARSECMDLINEARGS; +} +qbs* FUNC_INVALIDSETTINGERROR(qbs*_FUNC_INVALIDSETTINGERROR_STRING_TOKEN){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data2.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +qbs_set(_FUNC_INVALIDSETTINGERROR_STRING_INVALIDSETTINGERROR,qbs_add(qbs_new_txt_len("Invalid temporary setting switch: ",34),FUNC_ADDQUOTES(_FUNC_INVALIDSETTINGERROR_STRING_TOKEN))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13368);}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free2.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_INVALIDSETTINGERROR_STRING_INVALIDSETTINGERROR);return _FUNC_INVALIDSETTINGERROR_STRING_INVALIDSETTINGERROR; +} +void SUB_PRINTTEMPORARYSETTINGSHELPANDEXIT(qbs*_SUB_PRINTTEMPORARYSETTINGSHELPANDEXIT_STRING_ERRSTR){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data3.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +sub__dest(func__console()); +if(!qbevent)break;evnt(13372);}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 (new_error) goto skip2190; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2190: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13374);}while(r); +S_16013:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_PRINTTEMPORARYSETTINGSHELPANDEXIT_STRING_ERRSTR,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(13376);if(r)goto S_16013;} +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("Error: ",7)); +if (new_error) goto skip2191; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_set(tqbs,_SUB_PRINTTEMPORARYSETTINGSHELPANDEXIT_STRING_ERRSTR); +if (new_error) 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(13377);}while(r); +} +do{ +tqbs=qbs_new(0,0); +qbs_print(nothingstring,1); +skip2192: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13380);}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("Note: Defaults can be changed by IDE settings",45)); +if (new_error) goto skip2193; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2193: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13381);}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_print(nothingstring,1); +skip2194: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13382);}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("Valid settings:",15)); +if (new_error) goto skip2195; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2195: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13383);}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len(" -f:UseMiniAudio=[true|false] (Use Miniaudio Audio backend, default true)",84)); +if (new_error) goto skip2196; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2196: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13384);}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len(" -f:OptimizeCppProgram=[true|false] (Use C++ Optimization flag, default false)",83)); +if (new_error) goto skip2197; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2197: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13385);}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len(" -f:StripDebugSymbols=[true|false] (Stirp C++ debug symbols, default true)",80)); +if (new_error) goto skip2198; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2198: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13386);}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len(" -f:ExtraCppFlags=[string] (Extra flags to pass to the C++ compiler)",82)); +if (new_error) goto skip2199; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2199: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13387);}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len(" -f:ExtraLinkerFlags=[string] (Extra flags to pass at link time)",75)); +if (new_error) goto skip2200; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2200: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13388);}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len(" -f:MaxCompilerProcesses=[integer] (Max C++ compiler processes to start in parallel)",90)); +if (new_error) goto skip2201; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2201: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13389);}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len(" -f:GenerateLicenseFile=[true|false] (Produce a license.txt file for the program)",85)); +if (new_error) goto skip2202; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip2202: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13390);}while(r); +do{ +if (sub_gl_called) error(271); +close_program=1; +end(); +if(!qbevent)break;evnt(13392);}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free3.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +int32 FUNC_PARSEBOOLEANSETTING(qbs*_FUNC_PARSEBOOLEANSETTING_STRING_TOKEN,uint32*_FUNC_PARSEBOOLEANSETTING_ULONG_SETTING){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data4.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +if(!qbevent)break;evnt(13396);}while(r); +do{ +if(!qbevent)break;evnt(13397);}while(r); +do{ +*_FUNC_PARSEBOOLEANSETTING_LONG_EQUALS=func_instr(NULL,_FUNC_PARSEBOOLEANSETTING_STRING_TOKEN,qbs_new_txt_len("=",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13399);}while(r); +S_16031:; +if ((-(*_FUNC_PARSEBOOLEANSETTING_LONG_EQUALS== -1 ))||new_error){ +if(qbevent){evnt(13400);if(r)goto S_16031;} +do{ +*_FUNC_PARSEBOOLEANSETTING_LONG_PARSEBOOLEANSETTING= 0 ; +if(!qbevent)break;evnt(13400);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(13400);}while(r); +} +do{ +qbs_set(_FUNC_PARSEBOOLEANSETTING_STRING_VALUE,qbs_lcase(func_mid(_FUNC_PARSEBOOLEANSETTING_STRING_TOKEN,*_FUNC_PARSEBOOLEANSETTING_LONG_EQUALS+ 1 ,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13402);}while(r); +S_16036:; +if(qbevent){evnt(13404);if(r)goto S_16036;} +S_16037:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_PARSEBOOLEANSETTING_STRING_VALUE,qbs_new_txt_len("true",4))||qbs_equal(_FUNC_PARSEBOOLEANSETTING_STRING_VALUE,qbs_new_txt_len("on",2))||qbs_equal(_FUNC_PARSEBOOLEANSETTING_STRING_VALUE,qbs_new_txt_len("yes",3))))||new_error){ +if(qbevent){evnt(13405);if(r)goto S_16037;} +do{ +*_FUNC_PARSEBOOLEANSETTING_ULONG_SETTING= -1 ; +if(!qbevent)break;evnt(13406);}while(r); +do{ +*_FUNC_PARSEBOOLEANSETTING_LONG_PARSEBOOLEANSETTING= -1 ; +if(!qbevent)break;evnt(13407);}while(r); +sc_ec_72_end:; +goto sc_2204_end; +} +S_16040:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_PARSEBOOLEANSETTING_STRING_VALUE,qbs_new_txt_len("false",5))||qbs_equal(_FUNC_PARSEBOOLEANSETTING_STRING_VALUE,qbs_new_txt_len("off",3))||qbs_equal(_FUNC_PARSEBOOLEANSETTING_STRING_VALUE,qbs_new_txt_len("no",2))))||new_error){ +if(qbevent){evnt(13409);if(r)goto S_16040;} +do{ +*_FUNC_PARSEBOOLEANSETTING_ULONG_SETTING= 0 ; +if(!qbevent)break;evnt(13410);}while(r); +do{ +*_FUNC_PARSEBOOLEANSETTING_LONG_PARSEBOOLEANSETTING= -1 ; +if(!qbevent)break;evnt(13411);}while(r); +sc_ec_73_end:; +goto sc_2204_end; +} +do{ +*_FUNC_PARSEBOOLEANSETTING_LONG_PARSEBOOLEANSETTING= 0 ; +if(!qbevent)break;evnt(13414);}while(r); +sc_2204_end:; +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free4.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +return *_FUNC_PARSEBOOLEANSETTING_LONG_PARSEBOOLEANSETTING; +} +int32 FUNC_PARSELONGSETTING(qbs*_FUNC_PARSELONGSETTING_STRING_TOKEN,uint32*_FUNC_PARSELONGSETTING_ULONG_SETTING){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data5.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +if(!qbevent)break;evnt(13419);}while(r); +do{ +*_FUNC_PARSELONGSETTING_LONG_EQUALS=func_instr(NULL,_FUNC_PARSELONGSETTING_STRING_TOKEN,qbs_new_txt_len("=",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13421);}while(r); +S_16048:; +if ((-(*_FUNC_PARSELONGSETTING_LONG_EQUALS== -1 ))||new_error){ +if(qbevent){evnt(13422);if(r)goto S_16048;} +do{ +*_FUNC_PARSELONGSETTING_LONG_PARSELONGSETTING= 0 ; +if(!qbevent)break;evnt(13422);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(13422);}while(r); +} +do{ +*_FUNC_PARSELONGSETTING_ULONG_SETTING=qbr(func_val(func_mid(_FUNC_PARSELONGSETTING_STRING_TOKEN,*_FUNC_PARSELONGSETTING_LONG_EQUALS+ 1 ,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13424);}while(r); +do{ +*_FUNC_PARSELONGSETTING_LONG_PARSELONGSETTING= -1 ; +if(!qbevent)break;evnt(13426);}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free5.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +return *_FUNC_PARSELONGSETTING_LONG_PARSELONGSETTING; +} +int32 FUNC_PARSESTRINGSETTING(qbs*_FUNC_PARSESTRINGSETTING_STRING_TOKEN,qbs*_FUNC_PARSESTRINGSETTING_STRING_SETTING){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data6.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +if(!qbevent)break;evnt(13430);}while(r); +do{ +*_FUNC_PARSESTRINGSETTING_LONG_EQUALS=func_instr(NULL,_FUNC_PARSESTRINGSETTING_STRING_TOKEN,qbs_new_txt_len("=",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13432);}while(r); +S_16056:; +if ((-(*_FUNC_PARSESTRINGSETTING_LONG_EQUALS== -1 ))||new_error){ +if(qbevent){evnt(13433);if(r)goto S_16056;} +do{ +*_FUNC_PARSESTRINGSETTING_LONG_PARSESTRINGSETTING= 0 ; +if(!qbevent)break;evnt(13433);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(13433);}while(r); +} +do{ +qbs_set(_FUNC_PARSESTRINGSETTING_STRING_SETTING,func_mid(_FUNC_PARSESTRINGSETTING_STRING_TOKEN,*_FUNC_PARSESTRINGSETTING_LONG_EQUALS+ 1 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13435);}while(r); +do{ +*_FUNC_PARSESTRINGSETTING_LONG_PARSESTRINGSETTING= -1 ; +if(!qbevent)break;evnt(13437);}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free6.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +return *_FUNC_PARSESTRINGSETTING_LONG_PARSESTRINGSETTING; +} +int32 FUNC_TYPE2MEMTYPEVALUE(int32*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data7.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +*_FUNC_TYPE2MEMTYPEVALUE_LONG_T= 0 ; +if(!qbevent)break;evnt(13441);}while(r); +S_16063:; +if ((*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1&*__LONG_ISARRAY)||new_error){ +if(qbevent){evnt(13442);if(r)goto S_16063;} +do{ +*_FUNC_TYPE2MEMTYPEVALUE_LONG_T=*_FUNC_TYPE2MEMTYPEVALUE_LONG_T+ 65536 ; +if(!qbevent)break;evnt(13442);}while(r); +} +S_16066:; +if ((*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1&*__LONG_ISUDT)||new_error){ +if(qbevent){evnt(13443);if(r)goto S_16066;} +S_16067:; +if ((-((*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1& 511 )== 1 ))||new_error){ +if(qbevent){evnt(13444);if(r)goto S_16067;} +do{ +*_FUNC_TYPE2MEMTYPEVALUE_LONG_T=*_FUNC_TYPE2MEMTYPEVALUE_LONG_T+ 4096 ; +if(!qbevent)break;evnt(13445);}while(r); +}else{ +do{ +*_FUNC_TYPE2MEMTYPEVALUE_LONG_T=*_FUNC_TYPE2MEMTYPEVALUE_LONG_T+ 32768 ; +if(!qbevent)break;evnt(13447);}while(r); +} +}else{ +S_16073:; +if ((*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(13450);if(r)goto S_16073;} +do{ +*_FUNC_TYPE2MEMTYPEVALUE_LONG_T=*_FUNC_TYPE2MEMTYPEVALUE_LONG_T+ 512 ; +if(!qbevent)break;evnt(13451);}while(r); +}else{ +S_16076:; +if ((*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1&*__LONG_ISFLOAT)||new_error){ +if(qbevent){evnt(13453);if(r)goto S_16076;} +do{ +*_FUNC_TYPE2MEMTYPEVALUE_LONG_T=*_FUNC_TYPE2MEMTYPEVALUE_LONG_T+ 256 ; +if(!qbevent)break;evnt(13454);}while(r); +}else{ +do{ +*_FUNC_TYPE2MEMTYPEVALUE_LONG_T=*_FUNC_TYPE2MEMTYPEVALUE_LONG_T+ 128 ; +if(!qbevent)break;evnt(13456);}while(r); +S_16080:; +if ((*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1&*__LONG_ISUNSIGNED)||new_error){ +if(qbevent){evnt(13457);if(r)goto S_16080;} +do{ +*_FUNC_TYPE2MEMTYPEVALUE_LONG_T=*_FUNC_TYPE2MEMTYPEVALUE_LONG_T+ 1024 ; +if(!qbevent)break;evnt(13457);}while(r); +} +S_16083:; +if ((*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1&*__LONG_ISOFFSET)||new_error){ +if(qbevent){evnt(13458);if(r)goto S_16083;} +do{ +*_FUNC_TYPE2MEMTYPEVALUE_LONG_T=*_FUNC_TYPE2MEMTYPEVALUE_LONG_T+ 8192 ; +if(!qbevent)break;evnt(13458);}while(r); +} +} +do{ +*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1S=(*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1& 511 )/ 8 ; +if(!qbevent)break;evnt(13460);}while(r); +S_16088:; +if ((-(*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1S== 1 ))||new_error){ +if(qbevent){evnt(13461);if(r)goto S_16088;} +do{ +*_FUNC_TYPE2MEMTYPEVALUE_LONG_T=*_FUNC_TYPE2MEMTYPEVALUE_LONG_T+*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1S; +if(!qbevent)break;evnt(13461);}while(r); +} +S_16091:; +if ((-(*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1S== 2 ))||new_error){ +if(qbevent){evnt(13462);if(r)goto S_16091;} +do{ +*_FUNC_TYPE2MEMTYPEVALUE_LONG_T=*_FUNC_TYPE2MEMTYPEVALUE_LONG_T+*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1S; +if(!qbevent)break;evnt(13462);}while(r); +} +S_16094:; +if ((-(*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1S== 4 ))||new_error){ +if(qbevent){evnt(13463);if(r)goto S_16094;} +do{ +*_FUNC_TYPE2MEMTYPEVALUE_LONG_T=*_FUNC_TYPE2MEMTYPEVALUE_LONG_T+*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1S; +if(!qbevent)break;evnt(13463);}while(r); +} +S_16097:; +if ((-(*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1S== 8 ))||new_error){ +if(qbevent){evnt(13464);if(r)goto S_16097;} +do{ +*_FUNC_TYPE2MEMTYPEVALUE_LONG_T=*_FUNC_TYPE2MEMTYPEVALUE_LONG_T+*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1S; +if(!qbevent)break;evnt(13464);}while(r); +} +S_16100:; +if ((-(*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1S== 16 ))||new_error){ +if(qbevent){evnt(13465);if(r)goto S_16100;} +do{ +*_FUNC_TYPE2MEMTYPEVALUE_LONG_T=*_FUNC_TYPE2MEMTYPEVALUE_LONG_T+*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1S; +if(!qbevent)break;evnt(13465);}while(r); +} +S_16103:; +if ((-(*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1S== 32 ))||new_error){ +if(qbevent){evnt(13466);if(r)goto S_16103;} +do{ +*_FUNC_TYPE2MEMTYPEVALUE_LONG_T=*_FUNC_TYPE2MEMTYPEVALUE_LONG_T+*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1S; +if(!qbevent)break;evnt(13466);}while(r); +} +S_16106:; +if ((-(*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1S== 64 ))||new_error){ +if(qbevent){evnt(13467);if(r)goto S_16106;} +do{ +*_FUNC_TYPE2MEMTYPEVALUE_LONG_T=*_FUNC_TYPE2MEMTYPEVALUE_LONG_T+*_FUNC_TYPE2MEMTYPEVALUE_LONG_T1S; +if(!qbevent)break;evnt(13467);}while(r); +} +} +} +do{ +*_FUNC_TYPE2MEMTYPEVALUE_LONG_TYPE2MEMTYPEVALUE=*_FUNC_TYPE2MEMTYPEVALUE_LONG_T; +if(!qbevent)break;evnt(13470);}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free7.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +return *_FUNC_TYPE2MEMTYPEVALUE_LONG_TYPE2MEMTYPEVALUE; +} +int32 FUNC_ALLOCARRAY(qbs*_FUNC_ALLOCARRAY_STRING_N2,qbs*_FUNC_ALLOCARRAY_STRING_ELEMENTS,int32*_FUNC_ALLOCARRAY_LONG_ELEMENTSIZE,int32*_FUNC_ALLOCARRAY_LONG_UDT){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data8.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +*_FUNC_ALLOCARRAY_LONG_DIMSHAREDLAST=*__INTEGER_DIMSHARED; +if(!qbevent)break;evnt(13475);}while(r); +do{ +*__INTEGER_DIMSHARED= 0 ; +if(!qbevent)break;evnt(13475);}while(r); +S_16114:; +if ((-(*__LONG_AUTOARRAY== 1 ))||new_error){ +if(qbevent){evnt(13477);if(r)goto S_16114;} +do{ +*__LONG_AUTOARRAY= 0 ; +if(!qbevent)break;evnt(13477);}while(r); +do{ +*_FUNC_ALLOCARRAY_LONG_AUTOARY= 1 ; +if(!qbevent)break;evnt(13477);}while(r); +} +do{ +qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13479);}while(r); +do{ +qbs_set(_FUNC_ALLOCARRAY_STRING_E,_FUNC_ALLOCARRAY_STRING_ELEMENTS); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13484);}while(r); +do{ +qbs_set(_FUNC_ALLOCARRAY_STRING_N,_FUNC_ALLOCARRAY_STRING_N2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13484);}while(r); +S_16121:; +if ((-(*_FUNC_ALLOCARRAY_LONG_ELEMENTSIZE== -2147483647 ))||new_error){ +if(qbevent){evnt(13485);if(r)goto S_16121;} +do{ +*_FUNC_ALLOCARRAY_LONG_STRINGARRAY= 1 ; +if(!qbevent)break;evnt(13485);}while(r); +do{ +*_FUNC_ALLOCARRAY_LONG_ELEMENTSIZE= 8 ; +if(!qbevent)break;evnt(13485);}while(r); +} +S_16125:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_ALLOCARRAY_STRING_E)== 63 )))||new_error){ +if(qbevent){evnt(13487);if(r)goto S_16125;} +do{ +qbs_set(_FUNC_ALLOCARRAY_STRING_L,qbs_add(qbs_add(qbs_new_txt_len("(",1),__STRING1_SP2),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13488);}while(r); +do{ +*_FUNC_ALLOCARRAY_LONG_UNDEFINED= -1 ; +if(!qbevent)break;evnt(13489);}while(r); +do{ +*_FUNC_ALLOCARRAY_LONG_NUME= 1 ; +if(!qbevent)break;evnt(13490);}while(r); +S_16129:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_ALLOCARRAY_STRING_E->len== 1 )))||new_error){ +if(qbevent){evnt(13491);if(r)goto S_16129;} +do{ +goto LABEL_UNDEFINEDARRAY; +if(!qbevent)break;evnt(13491);}while(r); +} +do{ +*_FUNC_ALLOCARRAY_LONG_UNDEFINED= 1 ; +if(!qbevent)break;evnt(13492);}while(r); +do{ +*_FUNC_ALLOCARRAY_LONG_NUME=qbr(func_val(qbs_right(_FUNC_ALLOCARRAY_STRING_E,_FUNC_ALLOCARRAY_STRING_E->len- 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13493);}while(r); +do{ +goto LABEL_UNDEFINEDARRAY; +if(!qbevent)break;evnt(13494);}while(r); +} +do{ +*_FUNC_ALLOCARRAY_LONG_NUME= 1 ; +if(!qbevent)break;evnt(13499);}while(r); +do{ +*_FUNC_ALLOCARRAY_LONG_N=FUNC_NUMELEMENTS(_FUNC_ALLOCARRAY_STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13500);}while(r); +S_16138:; +fornext_value2213= 1 ; +fornext_finalvalue2213=*_FUNC_ALLOCARRAY_LONG_N; +fornext_step2213= 1 ; +if (fornext_step2213<0) fornext_step_negative2213=1; else fornext_step_negative2213=0; +if (new_error) goto fornext_error2213; +goto fornext_entrylabel2213; +while(1){ +fornext_value2213=fornext_step2213+(*_FUNC_ALLOCARRAY_LONG_I); +fornext_entrylabel2213: +*_FUNC_ALLOCARRAY_LONG_I=fornext_value2213; +if (fornext_step_negative2213){ +if (fornext_value2213fornext_finalvalue2213) break; +} +fornext_error2213:; +if(qbevent){evnt(13501);if(r)goto S_16138;} +do{ +qbs_set(_FUNC_ALLOCARRAY_STRING_E2,FUNC_GETELEMENT(_FUNC_ALLOCARRAY_STRING_E,_FUNC_ALLOCARRAY_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13502);}while(r); +S_16140:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ALLOCARRAY_STRING_E2,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(13503);if(r)goto S_16140;} +do{ +*_FUNC_ALLOCARRAY_LONG_B=*_FUNC_ALLOCARRAY_LONG_B+ 1 ; +if(!qbevent)break;evnt(13503);}while(r); +} +S_16143:; +if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_ALLOCARRAY_LONG_B== 0 ))&(qbs_equal(_FUNC_ALLOCARRAY_STRING_E2,qbs_new_txt_len(",",1)))))||new_error){ +if(qbevent){evnt(13504);if(r)goto S_16143;} +do{ +*_FUNC_ALLOCARRAY_LONG_NUME=*_FUNC_ALLOCARRAY_LONG_NUME+ 1 ; +if(!qbevent)break;evnt(13504);}while(r); +} +S_16146:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ALLOCARRAY_STRING_E2,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(13505);if(r)goto S_16146;} +do{ +*_FUNC_ALLOCARRAY_LONG_B=*_FUNC_ALLOCARRAY_LONG_B- 1 ; +if(!qbevent)break;evnt(13505);}while(r); +} +fornext_continue_2212:; +} +fornext_exit_2212:; +S_16150:; +if (( 0 )||new_error){ +if(qbevent){evnt(13507);if(r)goto S_16150;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip2214; +sub_file_print(tmp_fileno,qbs_new_txt_len("numelements count:",18), 0, 0, 0); +if (new_error) goto skip2214; +sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_ALLOCARRAY_LONG_NUME)), 1, 0, 1); +if (new_error) goto skip2214; +skip2214: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(13507);}while(r); +} +do{ +*_FUNC_ALLOCARRAY_LONG_DESCSTATIC= 0 ; +if(!qbevent)break;evnt(13509);}while(r); +S_16154:; +if ((*__INTEGER_ARRAYDESC)||new_error){ +if(qbevent){evnt(13510);if(r)goto S_16154;} +S_16155:; +if ((-(*(int16*)(((char*)__UDT_ID)+(516))!=*_FUNC_ALLOCARRAY_LONG_NUME))||new_error){ +if(qbevent){evnt(13511);if(r)goto S_16155;} +S_16156:; +if ((-(*(int16*)(((char*)__UDT_ID)+(516))== -1 ))||new_error){ +if(qbevent){evnt(13513);if(r)goto S_16156;} +S_16157:; +if (((-(((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_CURRENTID)-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])]!= 0 ))&(-(*_FUNC_ALLOCARRAY_LONG_NUME!=((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_CURRENTID)-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])])))||new_error){ +if(qbevent){evnt(13514);if(r)goto S_16157;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Cannot change the number of elements an array has!",50)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13514);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(13514);}while(r); +} +S_16161:; +if ((-(*_FUNC_ALLOCARRAY_LONG_NUME== 1 ))||new_error){ +if(qbevent){evnt(13515);if(r)goto S_16161;} +do{ +*(int16*)(((char*)__UDT_ID)+(516))= 1 ; +if(!qbevent)break;evnt(13515);}while(r); +do{ +*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_CURRENTID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+516))= 1 ; +if(!qbevent)break;evnt(13515);}while(r); +} +do{ +tmp_long=array_check((*__LONG_CURRENTID)-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[tmp_long]=*_FUNC_ALLOCARRAY_LONG_NUME; +if(!qbevent)break;evnt(13516);}while(r); +}else{ +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Cannot change the number of elements an array has!",50)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13518);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(13518);}while(r); +} +} +S_16171:; +if ((*(int16*)(((char*)__UDT_ID)+(518)))||new_error){ +if(qbevent){evnt(13522);if(r)goto S_16171;} +do{ +*_FUNC_ALLOCARRAY_LONG_DESCSTATIC= 1 ; +if(!qbevent)break;evnt(13522);}while(r); +} +} +do{ +qbs_set(_FUNC_ALLOCARRAY_STRING_L,qbs_add(qbs_new_txt_len("(",1),__STRING1_SP2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13525);}while(r); +do{ +qbs_set(_FUNC_ALLOCARRAY_STRING_CR,qbs_add(func_chr( 13 ),func_chr( 10 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13527);}while(r); +do{ +qbs_set(_FUNC_ALLOCARRAY_STRING_SD,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13528);}while(r); +do{ +*_FUNC_ALLOCARRAY_LONG_CONSTDIMENSIONS= 1 ; +if(!qbevent)break;evnt(13529);}while(r); +do{ +*_FUNC_ALLOCARRAY_LONG_EI=( 4 )+(*_FUNC_ALLOCARRAY_LONG_NUME* 4 )-( 4 ); +if(!qbevent)break;evnt(13530);}while(r); +do{ +*_FUNC_ALLOCARRAY_LONG_CURE= 1 ; +if(!qbevent)break;evnt(13531);}while(r); +do{ +qbs_set(_FUNC_ALLOCARRAY_STRING_E3,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13532);}while(r); +do{ +qbs_set(_FUNC_ALLOCARRAY_STRING_E3BASE,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13532);}while(r); +S_16183:; +fornext_value2216= 1 ; +fornext_finalvalue2216=*_FUNC_ALLOCARRAY_LONG_N; +fornext_step2216= 1 ; +if (fornext_step2216<0) fornext_step_negative2216=1; else fornext_step_negative2216=0; +if (new_error) goto fornext_error2216; +goto fornext_entrylabel2216; +while(1){ +fornext_value2216=fornext_step2216+(*_FUNC_ALLOCARRAY_LONG_I); +fornext_entrylabel2216: +*_FUNC_ALLOCARRAY_LONG_I=fornext_value2216; +if (fornext_step_negative2216){ +if (fornext_value2216fornext_finalvalue2216) break; +} +fornext_error2216:; +if(qbevent){evnt(13533);if(r)goto S_16183;} +do{ +qbs_set(_FUNC_ALLOCARRAY_STRING_E2,FUNC_GETELEMENT(_FUNC_ALLOCARRAY_STRING_E,_FUNC_ALLOCARRAY_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13534);}while(r); +S_16185:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ALLOCARRAY_STRING_E2,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(13535);if(r)goto S_16185;} +do{ +*_FUNC_ALLOCARRAY_LONG_B=*_FUNC_ALLOCARRAY_LONG_B+ 1 ; +if(!qbevent)break;evnt(13535);}while(r); +} +S_16188:; +if ((qbs_cleanup(qbs_tmp_base,(((qbs_equal(_FUNC_ALLOCARRAY_STRING_E2,qbs_new_txt_len(",",1)))&(-(*_FUNC_ALLOCARRAY_LONG_B== 0 ))))|(-(*_FUNC_ALLOCARRAY_LONG_I==*_FUNC_ALLOCARRAY_LONG_N))))||new_error){ +if(qbevent){evnt(13536);if(r)goto S_16188;} +S_16189:; +if ((-(*_FUNC_ALLOCARRAY_LONG_I==*_FUNC_ALLOCARRAY_LONG_N))||new_error){ +if(qbevent){evnt(13537);if(r)goto S_16189;} +do{ +qbs_set(_FUNC_ALLOCARRAY_STRING_E3,qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_E3,__STRING1_SP),_FUNC_ALLOCARRAY_STRING_E2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13537);}while(r); +} +do{ +qbs_set(_FUNC_ALLOCARRAY_STRING_E3,qbs_right(_FUNC_ALLOCARRAY_STRING_E3,_FUNC_ALLOCARRAY_STRING_E3->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13538);}while(r); +S_16193:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_ALLOCARRAY_STRING_E3BASE,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(13539);if(r)goto S_16193;} +do{ +qbs_set(_FUNC_ALLOCARRAY_STRING_E3BASE,qbs_right(_FUNC_ALLOCARRAY_STRING_E3BASE,_FUNC_ALLOCARRAY_STRING_E3BASE->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13539);}while(r); +} +do{ +*_FUNC_ALLOCARRAY_LONG_BASEGIVEN= 1 ; +if(!qbevent)break;evnt(13543);}while(r); +S_16197:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ALLOCARRAY_STRING_E3BASE,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(13544);if(r)goto S_16197;} +do{ +qbs_set(_FUNC_ALLOCARRAY_STRING_E3BASE,FUNC_STR2(&(pass2219=*__INTEGER_OPTIONBASE+ 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13544);}while(r); +do{ +*_FUNC_ALLOCARRAY_LONG_BASEGIVEN= 0 ; +if(!qbevent)break;evnt(13544);}while(r); +} +do{ +*__INTEGER_CONSTEQUATION= 1 ; +if(!qbevent)break;evnt(13545);}while(r); +do{ +qbs_set(_FUNC_ALLOCARRAY_STRING_E3BASE,FUNC_FIXOPERATIONORDER(_FUNC_ALLOCARRAY_STRING_E3BASE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13547);}while(r); +S_16203:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(13548);if(r)goto S_16203;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(13548);}while(r); +} +S_16206:; +if ((*_FUNC_ALLOCARRAY_LONG_BASEGIVEN)||new_error){ +if(qbevent){evnt(13549);if(r)goto S_16206;} +do{ +qbs_set(_FUNC_ALLOCARRAY_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_L,__STRING_TLAYOUT),__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("To",2))),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13549);}while(r); +} +do{ +qbs_set(_FUNC_ALLOCARRAY_STRING_E3BASE,FUNC_EVALUATETOTYP(_FUNC_ALLOCARRAY_STRING_E3BASE,&(pass2220= 64 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13550);}while(r); +S_16210:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(13551);if(r)goto S_16210;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(13551);}while(r); +} +S_16213:; +if ((-(*__INTEGER_CONSTEQUATION== 0 ))||new_error){ +if(qbevent){evnt(13553);if(r)goto S_16213;} +do{ +*_FUNC_ALLOCARRAY_LONG_CONSTDIMENSIONS= 0 ; +if(!qbevent)break;evnt(13553);}while(r); +} +do{ +qbs_set(_FUNC_ALLOCARRAY_STRING_SD,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_SD,_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[",1)),FUNC_STR2(_FUNC_ALLOCARRAY_LONG_EI)),qbs_new_txt_len("]=",2)),_FUNC_ALLOCARRAY_STRING_E3BASE),qbs_new_txt_len(";",1)),_FUNC_ALLOCARRAY_STRING_CR)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13554);}while(r); +do{ +*__INTEGER_CONSTEQUATION= 1 ; +if(!qbevent)break;evnt(13556);}while(r); +do{ +qbs_set(_FUNC_ALLOCARRAY_STRING_E3,FUNC_FIXOPERATIONORDER(_FUNC_ALLOCARRAY_STRING_E3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13558);}while(r); +S_16219:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(13559);if(r)goto S_16219;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(13559);}while(r); +} +do{ +qbs_set(_FUNC_ALLOCARRAY_STRING_L,qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_L,__STRING_TLAYOUT),__STRING1_SP2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13560);}while(r); +S_16223:; +if ((-(*_FUNC_ALLOCARRAY_LONG_I==*_FUNC_ALLOCARRAY_LONG_N))||new_error){ +if(qbevent){evnt(13561);if(r)goto S_16223;} +do{ +qbs_set(_FUNC_ALLOCARRAY_STRING_L,qbs_add(_FUNC_ALLOCARRAY_STRING_L,qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13561);}while(r); +}else{ +do{ +qbs_set(_FUNC_ALLOCARRAY_STRING_L,qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_L,qbs_new_txt_len(",",1)),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13561);}while(r); +} +do{ +qbs_set(_FUNC_ALLOCARRAY_STRING_E3,FUNC_EVALUATETOTYP(_FUNC_ALLOCARRAY_STRING_E3,&(pass2221= 64 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13562);}while(r); +S_16229:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(13563);if(r)goto S_16229;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(13563);}while(r); +} +S_16232:; +if ((-(*__INTEGER_CONSTEQUATION== 0 ))||new_error){ +if(qbevent){evnt(13565);if(r)goto S_16232;} +do{ +*_FUNC_ALLOCARRAY_LONG_CONSTDIMENSIONS= 0 ; +if(!qbevent)break;evnt(13565);}while(r); +} +do{ +*_FUNC_ALLOCARRAY_LONG_EI=*_FUNC_ALLOCARRAY_LONG_EI+ 1 ; +if(!qbevent)break;evnt(13566);}while(r); +do{ +qbs_set(_FUNC_ALLOCARRAY_STRING_SD,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_SD,_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[",1)),FUNC_STR2(_FUNC_ALLOCARRAY_LONG_EI)),qbs_new_txt_len("]=(",3)),_FUNC_ALLOCARRAY_STRING_E3),qbs_new_txt_len(")-",2)),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[",1)),FUNC_STR2(&(pass2222=*_FUNC_ALLOCARRAY_LONG_EI- 1 ))),qbs_new_txt_len("]+1;",4)),_FUNC_ALLOCARRAY_STRING_CR)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13567);}while(r); +do{ +*_FUNC_ALLOCARRAY_LONG_EI=*_FUNC_ALLOCARRAY_LONG_EI+ 1 ; +if(!qbevent)break;evnt(13568);}while(r); +S_16238:; +if ((-(*_FUNC_ALLOCARRAY_LONG_CURE== 1 ))||new_error){ +if(qbevent){evnt(13570);if(r)goto S_16238;} +do{ +qbs_set(_FUNC_ALLOCARRAY_STRING_SD,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_SD,_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[",1)),FUNC_STR2(_FUNC_ALLOCARRAY_LONG_EI)),qbs_new_txt_len("]=1;",4)),_FUNC_ALLOCARRAY_STRING_CR)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13572);}while(r); +}else{ +do{ +qbs_set(_FUNC_ALLOCARRAY_STRING_SD,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_SD,_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[",1)),FUNC_STR2(_FUNC_ALLOCARRAY_LONG_EI)),qbs_new_txt_len("]=",2)),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[",1)),FUNC_STR2(&(pass2223=*_FUNC_ALLOCARRAY_LONG_EI+ 4 ))),qbs_new_txt_len("]*",2)),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[",1)),FUNC_STR2(&(pass2224=*_FUNC_ALLOCARRAY_LONG_EI+ 3 ))),qbs_new_txt_len("];",2)),_FUNC_ALLOCARRAY_STRING_CR)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13574);}while(r); +} +do{ +*_FUNC_ALLOCARRAY_LONG_EI=*_FUNC_ALLOCARRAY_LONG_EI+ 1 ; +if(!qbevent)break;evnt(13576);}while(r); +do{ +*_FUNC_ALLOCARRAY_LONG_EI=*_FUNC_ALLOCARRAY_LONG_EI+ 1 ; +if(!qbevent)break;evnt(13577);}while(r); +do{ +*_FUNC_ALLOCARRAY_LONG_EI=*_FUNC_ALLOCARRAY_LONG_EI- 8 ; +if(!qbevent)break;evnt(13578);}while(r); +do{ +*_FUNC_ALLOCARRAY_LONG_CURE=*_FUNC_ALLOCARRAY_LONG_CURE+ 1 ; +if(!qbevent)break;evnt(13579);}while(r); +do{ +qbs_set(_FUNC_ALLOCARRAY_STRING_E3,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13580);}while(r); +do{ +qbs_set(_FUNC_ALLOCARRAY_STRING_E3BASE,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13580);}while(r); +do{ +goto LABEL_AANEXTE; +if(!qbevent)break;evnt(13581);}while(r); +} +S_16251:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ALLOCARRAY_STRING_E2,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(13583);if(r)goto S_16251;} +do{ +*_FUNC_ALLOCARRAY_LONG_B=*_FUNC_ALLOCARRAY_LONG_B- 1 ; +if(!qbevent)break;evnt(13583);}while(r); +} +S_16254:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(_FUNC_ALLOCARRAY_STRING_E2),qbs_new_txt_len("TO",2)))&(-(*_FUNC_ALLOCARRAY_LONG_B== 0 ))))||new_error){ +if(qbevent){evnt(13584);if(r)goto S_16254;} +do{ +qbs_set(_FUNC_ALLOCARRAY_STRING_E3BASE,_FUNC_ALLOCARRAY_STRING_E3); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13585);}while(r); +do{ +qbs_set(_FUNC_ALLOCARRAY_STRING_E3,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13586);}while(r); +}else{ +do{ +qbs_set(_FUNC_ALLOCARRAY_STRING_E3,qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_E3,__STRING1_SP),_FUNC_ALLOCARRAY_STRING_E2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13588);}while(r); +} +LABEL_AANEXTE:; +if(qbevent){evnt(13590);r=0;} +fornext_continue_2215:; +} +fornext_exit_2215:; +do{ +qbs_set(_FUNC_ALLOCARRAY_STRING_SD,qbs_left(_FUNC_ALLOCARRAY_STRING_SD,_FUNC_ALLOCARRAY_STRING_SD->len- 2 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13592);}while(r); +LABEL_UNDEFINEDARRAY:; +if(qbevent){evnt(13594);r=0;} +do{ +*_FUNC_ALLOCARRAY_LONG_CMEM= 0 ; +if(!qbevent)break;evnt(13597);}while(r); +S_16263:; +if ((-(*__INTEGER_ARRAYDESC== 0 ))||new_error){ +if(qbevent){evnt(13598);if(r)goto S_16263;} +S_16264:; +if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ +if(qbevent){evnt(13599);if(r)goto S_16264;} +do{ +*_FUNC_ALLOCARRAY_LONG_CMEM= 1 ; +if(!qbevent)break;evnt(13599);}while(r); +} +}else{ +S_16268:; +if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__INTEGER_ARRAYDESC)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ +if(qbevent){evnt(13601);if(r)goto S_16268;} +do{ +*_FUNC_ALLOCARRAY_LONG_CMEM= 1 ; +if(!qbevent)break;evnt(13601);}while(r); +} +} +do{ +*_FUNC_ALLOCARRAY_LONG_STATICARRAY=*_FUNC_ALLOCARRAY_LONG_CONSTDIMENSIONS; +if(!qbevent)break;evnt(13604);}while(r); +S_16273:; +if (((-(*__LONG_SUBFUNCN!= 0 ))&(-(*__LONG_DIMSTATIC== 0 )))||new_error){ +if(qbevent){evnt(13605);if(r)goto S_16273;} +do{ +*_FUNC_ALLOCARRAY_LONG_STATICARRAY= 0 ; +if(!qbevent)break;evnt(13605);}while(r); +} +S_16276:; +if ((-(*__LONG_DIMSTATIC== 3 ))||new_error){ +if(qbevent){evnt(13606);if(r)goto S_16276;} +do{ +*_FUNC_ALLOCARRAY_LONG_STATICARRAY= 0 ; +if(!qbevent)break;evnt(13606);}while(r); +} +S_16279:; +if ((*__INTEGER_DYNAMICMODE)||new_error){ +if(qbevent){evnt(13607);if(r)goto S_16279;} +do{ +*_FUNC_ALLOCARRAY_LONG_STATICARRAY= 0 ; +if(!qbevent)break;evnt(13607);}while(r); +} +S_16282:; +if ((*__INTEGER_REDIMOPTION)||new_error){ +if(qbevent){evnt(13608);if(r)goto S_16282;} +do{ +*_FUNC_ALLOCARRAY_LONG_STATICARRAY= 0 ; +if(!qbevent)break;evnt(13608);}while(r); +} +S_16285:; +if ((-(*__INTEGER_DIMOPTION== 3 ))||new_error){ +if(qbevent){evnt(13609);if(r)goto S_16285;} +do{ +*_FUNC_ALLOCARRAY_LONG_STATICARRAY= 0 ; +if(!qbevent)break;evnt(13609);}while(r); +} +S_16288:; +if ((*__INTEGER_ARRAYDESC)||new_error){ +if(qbevent){evnt(13611);if(r)goto S_16288;} +S_16289:; +if ((-(*_FUNC_ALLOCARRAY_LONG_STATICARRAY== 1 ))||new_error){ +if(qbevent){evnt(13612);if(r)goto S_16289;} +S_16290:; +if ((*_FUNC_ALLOCARRAY_LONG_DESCSTATIC)||new_error){ +if(qbevent){evnt(13613);if(r)goto S_16290;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Cannot redefine a static array!",31)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13613);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(13613);}while(r); +} +do{ +*_FUNC_ALLOCARRAY_LONG_STATICARRAY= 0 ; +if(!qbevent)break;evnt(13614);}while(r); +} +} +do{ +qbs_set(_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT,FUNC_STR2(_FUNC_ALLOCARRAY_LONG_ELEMENTSIZE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13623);}while(r); +S_16298:; +if ((-(*_FUNC_ALLOCARRAY_LONG_ELEMENTSIZE< 0 ))||new_error){ +if(qbevent){evnt(13624);if(r)goto S_16298;} +do{ +*_FUNC_ALLOCARRAY_LONG_ELEMENTSIZE=-(*_FUNC_ALLOCARRAY_LONG_ELEMENTSIZE); +if(!qbevent)break;evnt(13625);}while(r); +do{ +qbs_set(_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT,qbs_add(FUNC_STR2(_FUNC_ALLOCARRAY_LONG_ELEMENTSIZE),qbs_new_txt_len("/8+1",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13626);}while(r); +} +S_16302:; +if ((-(*__INTEGER_ARRAYDESC== 0 ))||new_error){ +if(qbevent){evnt(13631);if(r)goto S_16302;} +do{ +SUB_WRITEBUFLINE(__INTEGER_DEFDATAHANDLE,qbs_add(qbs_add(qbs_new_txt_len("ptrszint *",10),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("=NULL;",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13632);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass2226=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if (!",5),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("){",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13633);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass2227=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("=(ptrszint*)mem_static_malloc(",30)),FUNC_STR2(&(pass2228=( 4 **_FUNC_ALLOCARRAY_LONG_NUME)+( 4 )+( 1 )))),qbs_new_txt_len("*ptrsz);",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13634);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass2229=*__LONG_DATATXTBUF),qbs_new_txt_len("new_mem_lock();",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13636);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass2230=*__LONG_DATATXTBUF),qbs_new_txt_len("mem_lock_tmp->type=4;",21)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13637);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass2231=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("((ptrszint*)",12),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len(")[",2)),FUNC_STR2(&(pass2232=( 4 **_FUNC_ALLOCARRAY_LONG_NUME)+( 4 )+( 1 )-( 1 )))),qbs_new_txt_len("]=(ptrszint)mem_lock_tmp;",25))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13638);}while(r); +} +do{ +qbs_set(_FUNC_ALLOCARRAY_STRING_SIZESTR,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13642);}while(r); +S_16311:; +fornext_value2234= 1 ; +fornext_finalvalue2234=*_FUNC_ALLOCARRAY_LONG_NUME; +fornext_step2234= 1 ; +if (fornext_step2234<0) fornext_step_negative2234=1; else fornext_step_negative2234=0; +if (new_error) goto fornext_error2234; +goto fornext_entrylabel2234; +while(1){ +fornext_value2234=fornext_step2234+(*_FUNC_ALLOCARRAY_LONG_I); +fornext_entrylabel2234: +*_FUNC_ALLOCARRAY_LONG_I=fornext_value2234; +if (fornext_step_negative2234){ +if (fornext_value2234fornext_finalvalue2234) break; +} +fornext_error2234:; +if(qbevent){evnt(13643);if(r)goto S_16311;} +S_16312:; +if ((-(*_FUNC_ALLOCARRAY_LONG_I!= 1 ))||new_error){ +if(qbevent){evnt(13644);if(r)goto S_16312;} +do{ +qbs_set(_FUNC_ALLOCARRAY_STRING_SIZESTR,qbs_add(_FUNC_ALLOCARRAY_STRING_SIZESTR,qbs_new_txt_len("*",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13644);}while(r); +} +do{ +qbs_set(_FUNC_ALLOCARRAY_STRING_SIZESTR,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_SIZESTR,_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[",1)),FUNC_STR2(&(pass2235=(*_FUNC_ALLOCARRAY_LONG_I* 4 )-( 4 )+( 5 )))),qbs_new_txt_len("]",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13645);}while(r); +fornext_continue_2233:; +} +fornext_exit_2233:; +do{ +qbs_set(_FUNC_ALLOCARRAY_STRING_ELESIZESTR,_FUNC_ALLOCARRAY_STRING_SIZESTR); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13647);}while(r); +do{ +qbs_set(_FUNC_ALLOCARRAY_STRING_SIZESTR,qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_SIZESTR,qbs_new_txt_len("*",1)),_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13648);}while(r); +S_16319:; +if ((*_FUNC_ALLOCARRAY_LONG_STATICARRAY)||new_error){ +if(qbevent){evnt(13653);if(r)goto S_16319;} +do{ +SUB_WRITEBUFLINE(&(pass2236=*__LONG_DATATXTBUF),_FUNC_ALLOCARRAY_STRING_SD); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13655);}while(r); +S_16321:; +if ((*_FUNC_ALLOCARRAY_LONG_CMEM&(-(*_FUNC_ALLOCARRAY_LONG_STRINGARRAY== 0 )))||new_error){ +if(qbevent){evnt(13660);if(r)goto S_16321;} +do{ +SUB_WRITEBUFLINE(&(pass2237=*__LONG_DATATXTBUF),qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("[0]=(ptrszint)cmem_static_pointer;",34))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13663);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass2238=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if ((cmem_static_pointer+=((",28),_FUNC_ALLOCARRAY_STRING_SIZESTR),qbs_new_txt_len(")+15)&-16)>cmem_dynamic_base) error(257);",41))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13665);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass2239=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if ((",5),_FUNC_ALLOCARRAY_STRING_SIZESTR),qbs_new_txt_len(")>65536) error(257);",20))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13667);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass2240=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("memset((void*)(",15),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[0]),0,",7)),_FUNC_ALLOCARRAY_STRING_SIZESTR),qbs_new_txt_len(");",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13669);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass2241=*__LONG_DATATXTBUF),qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("[2]=1+2+4;",10))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13671);}while(r); +}else{ +do{ +SUB_WRITEBUFLINE(&(pass2242=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("[0]=(ptrszint)mem_static_malloc(",32)),_FUNC_ALLOCARRAY_STRING_SIZESTR),qbs_new_txt_len(");",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13674);}while(r); +S_16329:; +if ((*_FUNC_ALLOCARRAY_LONG_STRINGARRAY)||new_error){ +if(qbevent){evnt(13675);if(r)goto S_16329;} +do{ +SUB_WRITEBUFLINE(&(pass2243=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("tmp_long=",9),_FUNC_ALLOCARRAY_STRING_ELESIZESTR),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13677);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass2244=*__LONG_DATATXTBUF),qbs_new_txt_len("while(tmp_long--){",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13678);}while(r); +S_16332:; +if ((*_FUNC_ALLOCARRAY_LONG_CMEM)||new_error){ +if(qbevent){evnt(13679);if(r)goto S_16332;} +do{ +SUB_WRITEBUFLINE(&(pass2245=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("((uint64*)(",11),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);",42))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13680);}while(r); +}else{ +do{ +SUB_WRITEBUFLINE(&(pass2246=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("((uint64*)(",11),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[0]))[tmp_long]=(uint64)qbs_new(0,0);",37))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13682);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass2247=*__LONG_DATATXTBUF),qbs_new_txt_len("}",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13684);}while(r); +}else{ +do{ +SUB_WRITEBUFLINE(&(pass2248=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("memset((void*)(",15),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[0]),0,",7)),_FUNC_ALLOCARRAY_STRING_SIZESTR),qbs_new_txt_len(");",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13687);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass2249=*__LONG_DATATXTBUF),qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("[2]=1+2;",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13689);}while(r); +} +S_16343:; +if (((-(*_FUNC_ALLOCARRAY_LONG_UDT> 0 ))&((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*_FUNC_ALLOCARRAY_LONG_UDT)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])])||new_error){ +if(qbevent){evnt(13692);if(r)goto S_16343;} +do{ +SUB_WRITEBUFLINE(&(pass2250=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("tmp_long=",9),_FUNC_ALLOCARRAY_STRING_ELESIZESTR),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13693);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass2251=*__LONG_DATATXTBUF),qbs_new_txt_len("while(tmp_long--){",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13694);}while(r); +do{ +SUB_INITIALISE_ARRAY_UDT_VARSTRINGS(_FUNC_ALLOCARRAY_STRING_N,_FUNC_ALLOCARRAY_LONG_UDT,&(pass2252= 0 ),_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT,_FUNC_ALLOCARRAY_STRING_ACC); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13695);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass2253=*__LONG_DATATXTBUF),_FUNC_ALLOCARRAY_STRING_ACC); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13696);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass2254=*__LONG_DATATXTBUF),qbs_new_txt_len("}",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13697);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass2255=*__LONG_DATATXTBUF),qbs_new_txt_len("}",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13701);}while(r); +do{ +*_FUNC_ALLOCARRAY_LONG_ALLOCARRAY=*_FUNC_ALLOCARRAY_LONG_NUME+ 65536 ; +if(!qbevent)break;evnt(13702);}while(r); +} +S_16353:; +if ((-(*_FUNC_ALLOCARRAY_LONG_STATICARRAY== 0 ))||new_error){ +if(qbevent){evnt(13707);if(r)goto S_16353;} +S_16354:; +if ((-(*_FUNC_ALLOCARRAY_LONG_UNDEFINED== 0 ))||new_error){ +if(qbevent){evnt(13709);if(r)goto S_16354;} +do{ +qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("if (",4)),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[2]&2){",7))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13714);}while(r); +do{ +qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("error(10);",10))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13715);}while(r); +do{ +qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("}else{",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13716);}while(r); +S_16358:; +if ((-(*__INTEGER_REDIMOPTION== 0 ))||new_error){ +if(qbevent){evnt(13721);if(r)goto S_16358;} +do{ +qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("if (",4)),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[2]&1){",7))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13722);}while(r); +do{ +qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("if (!error_occurred) error(10);",31))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13723);}while(r); +do{ +qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("}else{",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13724);}while(r); +}else{ +do{ +qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("((mem_lock*)((ptrszint*)",24)),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len(")[",2)),FUNC_STR2(&(pass2256=( 4 **_FUNC_ALLOCARRAY_LONG_NUME)+( 4 )+( 1 )-( 1 )))),qbs_new_txt_len("])->id=(++mem_lock_id);",23))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13732);}while(r); +S_16364:; +if ((-(*__INTEGER_REDIMOPTION== 2 ))||new_error){ +if(qbevent){evnt(13734);if(r)goto S_16364;} +do{ +qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("static int32 preserved_elements;",32))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13735);}while(r); +} +do{ +qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("if (",4)),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[2]&1){",7))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13739);}while(r); +S_16368:; +if ((-(*__INTEGER_REDIMOPTION== 2 ))||new_error){ +if(qbevent){evnt(13741);if(r)goto S_16368;} +do{ +qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("preserved_elements=",19)),_FUNC_ALLOCARRAY_STRING_ELESIZESTR),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13742);}while(r); +do{ +goto LABEL_SKIPERASE; +if(!qbevent)break;evnt(13743);}while(r); +} +S_16372:; +if ((*_FUNC_ALLOCARRAY_LONG_STRINGARRAY)||new_error){ +if(qbevent){evnt(13747);if(r)goto S_16372;} +do{ +qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("tmp_long=",9)),_FUNC_ALLOCARRAY_STRING_ELESIZESTR),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13748);}while(r); +do{ +qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("while(tmp_long--) qbs_free((qbs*)((uint64*)(",44)),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[0]))[tmp_long]);",17))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13749);}while(r); +} +S_16376:; +if (((-(*_FUNC_ALLOCARRAY_LONG_UDT> 0 ))&((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*_FUNC_ALLOCARRAY_LONG_UDT)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])])||new_error){ +if(qbevent){evnt(13752);if(r)goto S_16376;} +do{ +qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("tmp_long=",9)),_FUNC_ALLOCARRAY_STRING_ELESIZESTR),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13753);}while(r); +do{ +qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("while(tmp_long--) {",19))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13754);}while(r); +do{ +SUB_FREE_ARRAY_UDT_VARSTRINGS(_FUNC_ALLOCARRAY_STRING_N,_FUNC_ALLOCARRAY_LONG_UDT,&(pass2257= 0 ),_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT,_FUNC_ALLOCARRAY_STRING_ACC); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13755);}while(r); +do{ +qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,_FUNC_ALLOCARRAY_STRING_ACC),qbs_new_txt_len("}",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13756);}while(r); +} +S_16382:; +if ((*_FUNC_ALLOCARRAY_LONG_STRINGARRAY)||new_error){ +if(qbevent){evnt(13760);if(r)goto S_16382;} +do{ +qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("free((void*)(",13)),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[0]));",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13762);}while(r); +}else{ +do{ +qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("if (",4)),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[2]&4){",7))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13765);}while(r); +do{ +qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("cmem_dynamic_free((uint8*)(",27)),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[0]));",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13766);}while(r); +do{ +qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("}else{",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13767);}while(r); +do{ +qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("free((void*)(",13)),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[0]));",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13768);}while(r); +do{ +qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("}",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13769);}while(r); +} +LABEL_SKIPERASE:; +if(qbevent){evnt(13772);r=0;} +do{ +qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("}",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13774);}while(r); +S_16392:; +if ((-(*__INTEGER_REDIMOPTION== 2 ))||new_error){ +if(qbevent){evnt(13775);if(r)goto S_16392;} +do{ +qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("else preserved_elements=0;",26))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13776);}while(r); +} +} +do{ +qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),_FUNC_ALLOCARRAY_STRING_SD)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13786);}while(r); +S_16397:; +if ((*_FUNC_ALLOCARRAY_LONG_STRINGARRAY|((-(*_FUNC_ALLOCARRAY_LONG_UDT> 0 ))&((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*_FUNC_ALLOCARRAY_LONG_UDT)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])]))||new_error){ +if(qbevent){evnt(13787);if(r)goto S_16397;} +S_16398:; +if ((-(*__INTEGER_REDIMOPTION== 2 ))||new_error){ +if(qbevent){evnt(13791);if(r)goto S_16398;} +do{ +qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("if (preserved_elements){",24))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13792);}while(r); +do{ +qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("static ptrszint tmp_long2;",26))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13794);}while(r); +do{ +qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("tmp_long2=",10)),_FUNC_ALLOCARRAY_STRING_ELESIZESTR),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13797);}while(r); +do{ +qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("if (tmp_long2 0 ))&((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*_FUNC_ALLOCARRAY_LONG_UDT)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])])||new_error){ +if(qbevent){evnt(13860);if(r)goto S_16453;} +do{ +SUB_WRITEBUFLINE(&(pass2263=*__LONG_FREETXTBUF),qbs_new_txt_len("while(tmp_long--) {",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13861);}while(r); +do{ +qbs_set(_FUNC_ALLOCARRAY_STRING_ACC,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13862);}while(r); +do{ +SUB_FREE_ARRAY_UDT_VARSTRINGS(_FUNC_ALLOCARRAY_STRING_N,_FUNC_ALLOCARRAY_LONG_UDT,&(pass2264= 0 ),_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT,_FUNC_ALLOCARRAY_STRING_ACC); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13863);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass2265=*__LONG_FREETXTBUF),qbs_add(_FUNC_ALLOCARRAY_STRING_ACC,qbs_new_txt_len("}",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13864);}while(r); +}else{ +do{ +SUB_WRITEBUFLINE(&(pass2266=*__LONG_FREETXTBUF),qbs_add(qbs_add(qbs_new_txt_len("while(tmp_long--) qbs_free((qbs*)((uint64*)(",44),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[0]))[tmp_long]);",17))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13866);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass2267=*__LONG_FREETXTBUF),qbs_add(qbs_add(qbs_new_txt_len("free((void*)(",13),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[0]));",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13868);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass2268=*__LONG_FREETXTBUF),qbs_new_txt_len("}",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13869);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass2269=*__LONG_FREETXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("free_mem_lock( (mem_lock*)((ptrszint*)",38),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len(")[",2)),FUNC_STR2(&(pass2270=( 4 **_FUNC_ALLOCARRAY_LONG_NUME)+( 4 )+( 1 )-( 1 )))),qbs_new_txt_len("] );",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13871);}while(r); +} +}else{ +do{ +qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("if (",4)),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[2]&4){",7))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13878);}while(r); +S_16467:; +if ((-(*__INTEGER_REDIMOPTION== 2 ))||new_error){ +if(qbevent){evnt(13880);if(r)goto S_16467;} +do{ +qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("if (preserved_elements){",24))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13881);}while(r); +do{ +qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("memcpy(redim_preserve_cmem_buffer,(void*)(",42)),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[0]),preserved_elements*",24)),_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT),qbs_new_txt_len(");",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13885);}while(r); +do{ +qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("cmem_dynamic_free((uint8*)(",27)),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[0]));",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13887);}while(r); +do{ +qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("tmp_long=",9)),_FUNC_ALLOCARRAY_STRING_ELESIZESTR),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13888);}while(r); +do{ +qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[0]=(ptrszint)cmem_dynamic_malloc(tmp_long*",43)),_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT),qbs_new_txt_len(");",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13889);}while(r); +do{ +qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("memcpy((void*)(",15)),_FUNC_ALLOCARRAY_STRING_N),qbs_new_txt_len("[0]),redim_preserve_cmem_buffer,preserved_elements*",51)),_FUNC_ALLOCARRAY_STRING_BYTESPERELEMENT),qbs_new_txt_len(");",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13890);}while(r); +do{ +qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("if (preserved_elementsfornext_finalvalue2283) break; +} +fornext_error2283:; +if(qbevent){evnt(13949);if(r)goto S_16516;} +do{ +*_FUNC_ALLOCARRAY_LONG_B=*_FUNC_ALLOCARRAY_LONG_I* 4 ; +if(!qbevent)break;evnt(13950);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass2284=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("[",1)),FUNC_STR2(_FUNC_ALLOCARRAY_LONG_B)),qbs_new_txt_len("]=2147483647;",13))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13951);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass2285=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("[",1)),FUNC_STR2(&(pass2286=*_FUNC_ALLOCARRAY_LONG_B+ 1 ))),qbs_new_txt_len("]=0;",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13952);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass2287=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("[",1)),FUNC_STR2(&(pass2288=*_FUNC_ALLOCARRAY_LONG_B+ 2 ))),qbs_new_txt_len("]=0;",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13953);}while(r); +fornext_continue_2282:; +} +fornext_exit_2282:; +S_16522:; +if ((*_FUNC_ALLOCARRAY_LONG_STRINGARRAY)||new_error){ +if(qbevent){evnt(13955);if(r)goto S_16522;} +do{ +SUB_WRITEBUFLINE(&(pass2289=*__LONG_DATATXTBUF),qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("[0]=(ptrszint)¬hingstring;",29))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13957);}while(r); +}else{ +do{ +SUB_WRITEBUFLINE(&(pass2290=*__LONG_DATATXTBUF),qbs_add(_FUNC_ALLOCARRAY_STRING_N,qbs_new_txt_len("[0]=(ptrszint)nothingvalue;",27))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13960);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass2291=*__LONG_DATATXTBUF),qbs_new_txt_len("}",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13962);}while(r); +} +S_16529:; +if ((-(*_FUNC_ALLOCARRAY_LONG_UNDEFINED== 0 ))||new_error){ +if(qbevent){evnt(13965);if(r)goto S_16529;} +S_16530:; +if ((-(*__INTEGER_REDIMOPTION== 0 ))||new_error){ +if(qbevent){evnt(13967);if(r)goto S_16530;} +do{ +qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("}",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13967);}while(r); +} +do{ +qbs_set(_FUNC_ALLOCARRAY_STRING_F12,qbs_add(qbs_add(_FUNC_ALLOCARRAY_STRING_F12,__STRING_CRLF),qbs_new_txt_len("}",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13968);}while(r); +} +do{ +*_FUNC_ALLOCARRAY_LONG_ALLOCARRAY=*_FUNC_ALLOCARRAY_LONG_NUME; +if(!qbevent)break;evnt(13972);}while(r); +S_16536:; +if ((-(*_FUNC_ALLOCARRAY_LONG_UNDEFINED== -1 ))||new_error){ +if(qbevent){evnt(13973);if(r)goto S_16536;} +do{ +*_FUNC_ALLOCARRAY_LONG_ALLOCARRAY= -1 ; +if(!qbevent)break;evnt(13973);}while(r); +} +} +S_16540:; +if ((-(*_FUNC_ALLOCARRAY_LONG_AUTOARY== 0 ))||new_error){ +if(qbevent){evnt(13977);if(r)goto S_16540;} +S_16541:; +if ((-(*__INTEGER_DIMOPTION== 3 ))||new_error){ +if(qbevent){evnt(13978);if(r)goto S_16541;} +do{ +SUB_WRITEBUFLINE(&(pass2292=*__LONG_DATATXTBUF),_FUNC_ALLOCARRAY_STRING_F12); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13979);}while(r); +}else{ +do{ +SUB_WRITEBUFLINE(&(pass2293=*__LONG_MAINTXTBUF),_FUNC_ALLOCARRAY_STRING_F12); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13981);}while(r); +} +} +do{ +*__INTEGER_DIMSHARED=*_FUNC_ALLOCARRAY_LONG_DIMSHAREDLAST; +if(!qbevent)break;evnt(13993);}while(r); +do{ +qbs_set(__STRING_TLAYOUT,_FUNC_ALLOCARRAY_STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(13995);}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free8.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +return *_FUNC_ALLOCARRAY_LONG_ALLOCARRAY; +} +qbs* FUNC_ARRAYREFERENCE(qbs*_FUNC_ARRAYREFERENCE_STRING_INDEXES,int32*_FUNC_ARRAYREFERENCE_LONG_TYP){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data9.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +*__INTEGER_ARRAYPROCESSINGHAPPENED= 1 ; +if(!qbevent)break;evnt(13999);}while(r); +do{ +qbs_set(_FUNC_ARRAYREFERENCE_STRING_IDNUMBER,FUNC_STR2(__LONG_CURRENTID)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14009);}while(r); +do{ +if(!qbevent)break;evnt(14011);}while(r); +do{ +memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 0),(((char*)__UDT_ID)+(0)+ 0), 256); +memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 256),(((char*)__UDT_ID)+(0)+ 256), 256); +memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 512),(((char*)__UDT_ID)+(0)+ 512), 4); +memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 516),(((char*)__UDT_ID)+(0)+ 516), 2); +memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 518),(((char*)__UDT_ID)+(0)+ 518), 2); +memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 520),(((char*)__UDT_ID)+(0)+ 520), 8); +memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 528),(((char*)__UDT_ID)+(0)+ 528), 8); +memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 536),(((char*)__UDT_ID)+(0)+ 536), 4); +memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 540),(((char*)__UDT_ID)+(0)+ 540), 4); +memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 544),(((char*)__UDT_ID)+(0)+ 544), 2); +memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 546),(((char*)__UDT_ID)+(0)+ 546), 2); +memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 548),(((char*)__UDT_ID)+(0)+ 548), 2); +memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 550),(((char*)__UDT_ID)+(0)+ 550), 256); +memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 806),(((char*)__UDT_ID)+(0)+ 806), 2); +memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 808),(((char*)__UDT_ID)+(0)+ 808), 1); +memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 809),(((char*)__UDT_ID)+(0)+ 809), 2); +memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 811),(((char*)__UDT_ID)+(0)+ 811), 2); +memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 813),(((char*)__UDT_ID)+(0)+ 813), 400); +memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 1213),(((char*)__UDT_ID)+(0)+ 1213), 400); +memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 1613),(((char*)__UDT_ID)+(0)+ 1613), 256); +memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 1869),(((char*)__UDT_ID)+(0)+ 1869), 256); +memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 2125),(((char*)__UDT_ID)+(0)+ 2125), 256); +memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 2381),(((char*)__UDT_ID)+(0)+ 2381), 4); +memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 2385),(((char*)__UDT_ID)+(0)+ 2385), 256); +memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 2641),(((char*)__UDT_ID)+(0)+ 2641), 4); +memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 2645),(((char*)__UDT_ID)+(0)+ 2645), 2); +memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 2647),(((char*)__UDT_ID)+(0)+ 2647), 100); +memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 2747),(((char*)__UDT_ID)+(0)+ 2747), 100); +memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 2847),(((char*)__UDT_ID)+(0)+ 2847), 4); +memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 2851),(((char*)__UDT_ID)+(0)+ 2851), 2); +memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 2853),(((char*)__UDT_ID)+(0)+ 2853), 2); +memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 2855),(((char*)__UDT_ID)+(0)+ 2855), 4); +memcpy((((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 2859),(((char*)__UDT_ID)+(0)+ 2859), 2); +qbs_set(*(qbs**)(((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(0)+ 2861), *(qbs**)(((char*)__UDT_ID)+(0)+ 2861)); +if(!qbevent)break;evnt(14013);}while(r); +do{ +qbs_set(_FUNC_ARRAYREFERENCE_STRING_A,_FUNC_ARRAYREFERENCE_STRING_INDEXES); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14015);}while(r); +do{ +*_FUNC_ARRAYREFERENCE_LONG_TYP=*(int32*)(((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(512))+*__LONG_ISARRAY+*__LONG_ISREFERENCE; +if(!qbevent)break;evnt(14016);}while(r); +do{ +qbs_set(_FUNC_ARRAYREFERENCE_STRING_N,qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(550)),256,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14017);}while(r); +S_16556:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ARRAYREFERENCE_STRING_A,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(14019);if(r)goto S_16556;} +do{ +qbs_set(_FUNC_ARRAYREFERENCE_STRING_R,qbs_new_txt_len("0",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14020);}while(r); +do{ +goto LABEL_GOTARRAYINDEX; +if(!qbevent)break;evnt(14021);}while(r); +} +do{ +*_FUNC_ARRAYREFERENCE_LONG_N=FUNC_NUMELEMENTS(_FUNC_ARRAYREFERENCE_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14024);}while(r); +do{ +*_FUNC_ARRAYREFERENCE_LONG_ELEMENTS= 1 ; +if(!qbevent)break;evnt(14027);}while(r); +do{ +*_FUNC_ARRAYREFERENCE_LONG_B= 0 ; +if(!qbevent)break;evnt(14028);}while(r); +S_16563:; +fornext_value2296= 1 ; +fornext_finalvalue2296=*_FUNC_ARRAYREFERENCE_LONG_N; +fornext_step2296= 1 ; +if (fornext_step2296<0) fornext_step_negative2296=1; else fornext_step_negative2296=0; +if (new_error) goto fornext_error2296; +goto fornext_entrylabel2296; +while(1){ +fornext_value2296=fornext_step2296+(*_FUNC_ARRAYREFERENCE_LONG_I); +fornext_entrylabel2296: +*_FUNC_ARRAYREFERENCE_LONG_I=fornext_value2296; +if (fornext_step_negative2296){ +if (fornext_value2296fornext_finalvalue2296) break; +} +fornext_error2296:; +if(qbevent){evnt(14029);if(r)goto S_16563;} +do{ +*_FUNC_ARRAYREFERENCE_LONG_A=qbs_asc(FUNC_GETELEMENT(_FUNC_ARRAYREFERENCE_STRING_A,_FUNC_ARRAYREFERENCE_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14030);}while(r); +S_16565:; +if ((-(*_FUNC_ARRAYREFERENCE_LONG_A== 40 ))||new_error){ +if(qbevent){evnt(14031);if(r)goto S_16565;} +do{ +*_FUNC_ARRAYREFERENCE_LONG_B=*_FUNC_ARRAYREFERENCE_LONG_B+ 1 ; +if(!qbevent)break;evnt(14031);}while(r); +} +S_16568:; +if ((-(*_FUNC_ARRAYREFERENCE_LONG_A== 41 ))||new_error){ +if(qbevent){evnt(14032);if(r)goto S_16568;} +do{ +*_FUNC_ARRAYREFERENCE_LONG_B=*_FUNC_ARRAYREFERENCE_LONG_B- 1 ; +if(!qbevent)break;evnt(14032);}while(r); +} +S_16571:; +if (((-(*_FUNC_ARRAYREFERENCE_LONG_A== 44 ))&(-(*_FUNC_ARRAYREFERENCE_LONG_B== 0 )))||new_error){ +if(qbevent){evnt(14033);if(r)goto S_16571;} +do{ +*_FUNC_ARRAYREFERENCE_LONG_ELEMENTS=*_FUNC_ARRAYREFERENCE_LONG_ELEMENTS+ 1 ; +if(!qbevent)break;evnt(14033);}while(r); +} +fornext_continue_2295:; +} +fornext_exit_2295:; +S_16575:; +if ((-(*(int16*)(((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(516))== -1 ))||new_error){ +if(qbevent){evnt(14036);if(r)goto S_16575;} +S_16576:; +if (((-(((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_CURRENTID)-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])]!= 0 ))&(-(*_FUNC_ARRAYREFERENCE_LONG_ELEMENTS!=((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_CURRENTID)-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])])))||new_error){ +if(qbevent){evnt(14037);if(r)goto S_16576;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Cannot change the number of elements an array has!",50)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14037);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(14037);}while(r); +} +S_16580:; +if ((-(*_FUNC_ARRAYREFERENCE_LONG_ELEMENTS== 1 ))||new_error){ +if(qbevent){evnt(14038);if(r)goto S_16580;} +do{ +*(int16*)(((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(516))= 1 ; +if(!qbevent)break;evnt(14038);}while(r); +do{ +*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_CURRENTID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+516))= 1 ; +if(!qbevent)break;evnt(14038);}while(r); +} +do{ +tmp_long=array_check((*__LONG_CURRENTID)-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[tmp_long]=*_FUNC_ARRAYREFERENCE_LONG_ELEMENTS; +if(!qbevent)break;evnt(14039);}while(r); +}else{ +S_16586:; +if ((-(*_FUNC_ARRAYREFERENCE_LONG_ELEMENTS!=*(int16*)(((char*)_FUNC_ARRAYREFERENCE_UDT_ID2)+(516))))||new_error){ +if(qbevent){evnt(14041);if(r)goto S_16586;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Cannot change the number of elements an array has!",50)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14041);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(14041);}while(r); +} +} +do{ +*_FUNC_ARRAYREFERENCE_LONG_CURARG= 1 ; +if(!qbevent)break;evnt(14044);}while(r); +do{ +*_FUNC_ARRAYREFERENCE_LONG_FIRSTI= 1 ; +if(!qbevent)break;evnt(14045);}while(r); +S_16593:; +fornext_value2298= 1 ; +fornext_finalvalue2298=*_FUNC_ARRAYREFERENCE_LONG_N; +fornext_step2298= 1 ; +if (fornext_step2298<0) fornext_step_negative2298=1; else fornext_step_negative2298=0; +if (new_error) goto fornext_error2298; +goto fornext_entrylabel2298; +while(1){ +fornext_value2298=fornext_step2298+(*_FUNC_ARRAYREFERENCE_LONG_I); +fornext_entrylabel2298: +*_FUNC_ARRAYREFERENCE_LONG_I=fornext_value2298; +if (fornext_step_negative2298){ +if (fornext_value2298fornext_finalvalue2298) break; +} +fornext_error2298:; +if(qbevent){evnt(14046);if(r)goto S_16593;} +do{ +qbs_set(_FUNC_ARRAYREFERENCE_STRING_L,FUNC_GETELEMENT(_FUNC_ARRAYREFERENCE_STRING_A,_FUNC_ARRAYREFERENCE_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14047);}while(r); +S_16595:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ARRAYREFERENCE_STRING_L,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(14048);if(r)goto S_16595;} +do{ +*_FUNC_ARRAYREFERENCE_LONG_B=*_FUNC_ARRAYREFERENCE_LONG_B+ 1 ; +if(!qbevent)break;evnt(14048);}while(r); +} +S_16598:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ARRAYREFERENCE_STRING_L,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(14049);if(r)goto S_16598;} +do{ +*_FUNC_ARRAYREFERENCE_LONG_B=*_FUNC_ARRAYREFERENCE_LONG_B- 1 ; +if(!qbevent)break;evnt(14049);}while(r); +} +S_16601:; +if ((qbs_cleanup(qbs_tmp_base,((qbs_equal(_FUNC_ARRAYREFERENCE_STRING_L,qbs_new_txt_len(",",1)))&(-(*_FUNC_ARRAYREFERENCE_LONG_B== 0 )))|(-(*_FUNC_ARRAYREFERENCE_LONG_I==*_FUNC_ARRAYREFERENCE_LONG_N))))||new_error){ +if(qbevent){evnt(14050);if(r)goto S_16601;} +S_16602:; +if ((-(*_FUNC_ARRAYREFERENCE_LONG_I==*_FUNC_ARRAYREFERENCE_LONG_N))||new_error){ +if(qbevent){evnt(14051);if(r)goto S_16602;} +S_16603:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ARRAYREFERENCE_STRING_L,qbs_new_txt_len(",",1))))||new_error){ +if(qbevent){evnt(14052);if(r)goto S_16603;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Array index missing",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14052);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(14052);}while(r); +} +do{ +qbs_set(_FUNC_ARRAYREFERENCE_STRING_E,FUNC_EVALUATETOTYP(FUNC_GETELEMENTS(_FUNC_ARRAYREFERENCE_STRING_A,_FUNC_ARRAYREFERENCE_LONG_FIRSTI,_FUNC_ARRAYREFERENCE_LONG_I),&(pass2299= 64 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14053);}while(r); +S_16608:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(14054);if(r)goto S_16608;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(14054);}while(r); +} +}else{ +do{ +qbs_set(_FUNC_ARRAYREFERENCE_STRING_E,FUNC_EVALUATETOTYP(FUNC_GETELEMENTS(_FUNC_ARRAYREFERENCE_STRING_A,_FUNC_ARRAYREFERENCE_LONG_FIRSTI,&(pass2300=*_FUNC_ARRAYREFERENCE_LONG_I- 1 )),&(pass2301= 64 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14056);}while(r); +S_16613:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(14057);if(r)goto S_16613;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(14057);}while(r); +} +} +S_16617:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ARRAYREFERENCE_STRING_E,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(14059);if(r)goto S_16617;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Array index missing",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14059);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(14059);}while(r); +} +do{ +*_FUNC_ARRAYREFERENCE_LONG_ARGI=((*_FUNC_ARRAYREFERENCE_LONG_ELEMENTS-*_FUNC_ARRAYREFERENCE_LONG_CURARG)* 4 )+( 4 ); +if(!qbevent)break;evnt(14060);}while(r); +S_16622:; +if ((-(*_FUNC_ARRAYREFERENCE_LONG_CURARG== 1 ))||new_error){ +if(qbevent){evnt(14061);if(r)goto S_16622;} +S_16623:; +if ((-(*__LONG_NOCHECKS== 0 ))||new_error){ +if(qbevent){evnt(14062);if(r)goto S_16623;} +do{ +qbs_set(_FUNC_ARRAYREFERENCE_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ARRAYREFERENCE_STRING_R,qbs_new_txt_len("array_check((",13)),_FUNC_ARRAYREFERENCE_STRING_E),qbs_new_txt_len(")-",2)),_FUNC_ARRAYREFERENCE_STRING_N),qbs_new_txt_len("[",1)),FUNC_STR2(_FUNC_ARRAYREFERENCE_LONG_ARGI)),qbs_new_txt_len("],",2)),_FUNC_ARRAYREFERENCE_STRING_N),qbs_new_txt_len("[",1)),FUNC_STR2(&(pass2302=*_FUNC_ARRAYREFERENCE_LONG_ARGI+ 1 ))),qbs_new_txt_len("])+",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14063);}while(r); +}else{ +do{ +qbs_set(_FUNC_ARRAYREFERENCE_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ARRAYREFERENCE_STRING_R,qbs_new_txt_len("(",1)),_FUNC_ARRAYREFERENCE_STRING_E),qbs_new_txt_len(")-",2)),_FUNC_ARRAYREFERENCE_STRING_N),qbs_new_txt_len("[",1)),FUNC_STR2(_FUNC_ARRAYREFERENCE_LONG_ARGI)),qbs_new_txt_len("]+",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14065);}while(r); +} +}else{ +S_16629:; +if ((-(*__LONG_NOCHECKS== 0 ))||new_error){ +if(qbevent){evnt(14069);if(r)goto S_16629;} +do{ +qbs_set(_FUNC_ARRAYREFERENCE_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ARRAYREFERENCE_STRING_R,qbs_new_txt_len("array_check((",13)),_FUNC_ARRAYREFERENCE_STRING_E),qbs_new_txt_len(")-",2)),_FUNC_ARRAYREFERENCE_STRING_N),qbs_new_txt_len("[",1)),FUNC_STR2(_FUNC_ARRAYREFERENCE_LONG_ARGI)),qbs_new_txt_len("],",2)),_FUNC_ARRAYREFERENCE_STRING_N),qbs_new_txt_len("[",1)),FUNC_STR2(&(pass2303=*_FUNC_ARRAYREFERENCE_LONG_ARGI+ 1 ))),qbs_new_txt_len("])*",3)),_FUNC_ARRAYREFERENCE_STRING_N),qbs_new_txt_len("[",1)),FUNC_STR2(&(pass2304=*_FUNC_ARRAYREFERENCE_LONG_ARGI+ 2 ))),qbs_new_txt_len("]+",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14070);}while(r); +}else{ +do{ +qbs_set(_FUNC_ARRAYREFERENCE_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_ARRAYREFERENCE_STRING_R,qbs_new_txt_len("((",2)),_FUNC_ARRAYREFERENCE_STRING_E),qbs_new_txt_len(")-",2)),_FUNC_ARRAYREFERENCE_STRING_N),qbs_new_txt_len("[",1)),FUNC_STR2(_FUNC_ARRAYREFERENCE_LONG_ARGI)),qbs_new_txt_len("])*",3)),_FUNC_ARRAYREFERENCE_STRING_N),qbs_new_txt_len("[",1)),FUNC_STR2(&(pass2305=*_FUNC_ARRAYREFERENCE_LONG_ARGI+ 2 ))),qbs_new_txt_len("]+",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14072);}while(r); +} +} +do{ +*_FUNC_ARRAYREFERENCE_LONG_FIRSTI=*_FUNC_ARRAYREFERENCE_LONG_I+ 1 ; +if(!qbevent)break;evnt(14075);}while(r); +do{ +*_FUNC_ARRAYREFERENCE_LONG_CURARG=*_FUNC_ARRAYREFERENCE_LONG_CURARG+ 1 ; +if(!qbevent)break;evnt(14076);}while(r); +} +fornext_continue_2297:; +} +fornext_exit_2297:; +do{ +qbs_set(_FUNC_ARRAYREFERENCE_STRING_R,qbs_left(_FUNC_ARRAYREFERENCE_STRING_R,_FUNC_ARRAYREFERENCE_STRING_R->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14079);}while(r); +LABEL_GOTARRAYINDEX:; +if(qbevent){evnt(14080);r=0;} +do{ +qbs_set(_FUNC_ARRAYREFERENCE_STRING_R,qbs_add(qbs_add(_FUNC_ARRAYREFERENCE_STRING_IDNUMBER,__STRING1_SP3),_FUNC_ARRAYREFERENCE_STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14082);}while(r); +do{ +qbs_set(_FUNC_ARRAYREFERENCE_STRING_ARRAYREFERENCE,_FUNC_ARRAYREFERENCE_STRING_R); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14083);}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free9.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_ARRAYREFERENCE_STRING_ARRAYREFERENCE);return _FUNC_ARRAYREFERENCE_STRING_ARRAYREFERENCE; +} +void SUB_ASSIGN(qbs*_SUB_ASSIGN_STRING_A,int32*_SUB_ASSIGN_LONG_N){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data10.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +S_16642:; +fornext_value2309= 1 ; +fornext_finalvalue2309=*_SUB_ASSIGN_LONG_N; +fornext_step2309= 1 ; +if (fornext_step2309<0) fornext_step_negative2309=1; else fornext_step_negative2309=0; +if (new_error) goto fornext_error2309; +goto fornext_entrylabel2309; +while(1){ +fornext_value2309=fornext_step2309+(*_SUB_ASSIGN_LONG_I); +fornext_entrylabel2309: +*_SUB_ASSIGN_LONG_I=fornext_value2309; +if (fornext_step_negative2309){ +if (fornext_value2309fornext_finalvalue2309) break; +} +fornext_error2309:; +if(qbevent){evnt(14089);if(r)goto S_16642;} +do{ +*_SUB_ASSIGN_LONG_C=qbs_asc(FUNC_GETELEMENT(_SUB_ASSIGN_STRING_A,_SUB_ASSIGN_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14090);}while(r); +S_16644:; +if ((-(*_SUB_ASSIGN_LONG_C== 40 ))||new_error){ +if(qbevent){evnt(14091);if(r)goto S_16644;} +do{ +*_SUB_ASSIGN_LONG_B=*_SUB_ASSIGN_LONG_B+ 1 ; +if(!qbevent)break;evnt(14091);}while(r); +} +S_16647:; +if ((-(*_SUB_ASSIGN_LONG_C== 41 ))||new_error){ +if(qbevent){evnt(14092);if(r)goto S_16647;} +do{ +*_SUB_ASSIGN_LONG_B=*_SUB_ASSIGN_LONG_B- 1 ; +if(!qbevent)break;evnt(14092);}while(r); +} +S_16650:; +if (((-(*_SUB_ASSIGN_LONG_C== 61 ))&(-(*_SUB_ASSIGN_LONG_B== 0 )))||new_error){ +if(qbevent){evnt(14093);if(r)goto S_16650;} +S_16651:; +if ((-(*_SUB_ASSIGN_LONG_I== 1 ))||new_error){ +if(qbevent){evnt(14094);if(r)goto S_16651;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected ... =",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14094);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(14094);}while(r); +} +S_16655:; +if ((-(*_SUB_ASSIGN_LONG_I==*_SUB_ASSIGN_LONG_N))||new_error){ +if(qbevent){evnt(14095);if(r)goto S_16655;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected = ...",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14095);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(14095);}while(r); +} +do{ +qbs_set(_SUB_ASSIGN_STRING_A2,FUNC_FIXOPERATIONORDER(FUNC_GETELEMENTS(_SUB_ASSIGN_STRING_A,&(pass2310= 1 ),&(pass2311=*_SUB_ASSIGN_LONG_I- 1 )))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14097);}while(r); +S_16660:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(14098);if(r)goto S_16660;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(14098);}while(r); +} +do{ +qbs_set(_SUB_ASSIGN_STRING_L,qbs_add(qbs_add(qbs_add(__STRING_TLAYOUT,__STRING1_SP),qbs_new_txt_len("=",1)),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14099);}while(r); +S_16664:; +if ((-(*_SUB_ASSIGN_LONG_I== 2 ))||new_error){ +if(qbevent){evnt(14102);if(r)goto S_16664;} +do{ +*_SUB_ASSIGN_LONG_TRY=FUNC_FINDID(_SUB_ASSIGN_STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14103);}while(r); +S_16666:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(14104);if(r)goto S_16666;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(14104);}while(r); +} +S_16669:; +while((*_SUB_ASSIGN_LONG_TRY)||new_error){ +if(qbevent){evnt(14105);if(r)goto S_16669;} +S_16670:; +if ((*(int32*)(((char*)__UDT_ID)+(536)))||new_error){ +if(qbevent){evnt(14106);if(r)goto S_16670;} +S_16671:; +if ((-(*__LONG_SUBFUNCN==*(int32*)(((char*)__UDT_ID)+(2641))))||new_error){ +if(qbevent){evnt(14107);if(r)goto S_16671;} +S_16672:; +if ((-((*(int32*)(((char*)__UDT_ID)+(536))&*__LONG_ISUDT)== 0 ))||new_error){ +if(qbevent){evnt(14108);if(r)goto S_16672;} +do{ +SUB_MAKEIDREFER(_SUB_ASSIGN_STRING_A2,_SUB_ASSIGN_LONG_TYP); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14109);}while(r); +do{ +goto LABEL_ASSIGNSIMPLEVARIABLE; +if(!qbevent)break;evnt(14110);}while(r); +} +} +} +S_16678:; +if ((-(*_SUB_ASSIGN_LONG_TRY== 2 ))||new_error){ +if(qbevent){evnt(14114);if(r)goto S_16678;} +do{ +*__INTEGER_FINDANOTHERID= 1 ; +if(!qbevent)break;evnt(14114);}while(r); +do{ +*_SUB_ASSIGN_LONG_TRY=FUNC_FINDID(_SUB_ASSIGN_STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14114);}while(r); +}else{ +do{ +*_SUB_ASSIGN_LONG_TRY= 0 ; +if(!qbevent)break;evnt(14114);}while(r); +} +S_16684:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(14115);if(r)goto S_16684;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(14115);}while(r); +} +dl_continue_2312:; +} +dl_exit_2312:; +} +do{ +qbs_set(_SUB_ASSIGN_STRING_A2,FUNC_EVALUATE(_SUB_ASSIGN_STRING_A2,_SUB_ASSIGN_LONG_TYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14119);}while(r); +S_16690:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(14119);if(r)goto S_16690;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(14119);}while(r); +} +LABEL_ASSIGNSIMPLEVARIABLE:; +if(qbevent){evnt(14120);r=0;} +S_16693:; +if ((-((*_SUB_ASSIGN_LONG_TYP&*__LONG_ISREFERENCE)== 0 ))||new_error){ +if(qbevent){evnt(14121);if(r)goto S_16693;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected variable =",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14121);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(14121);}while(r); +} +do{ +SUB_SETREFER(_SUB_ASSIGN_STRING_A2,_SUB_ASSIGN_LONG_TYP,FUNC_GETELEMENTS(_SUB_ASSIGN_STRING_A,&(pass2313=*_SUB_ASSIGN_LONG_I+ 1 ),_SUB_ASSIGN_LONG_N),&(pass2314= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14122);}while(r); +S_16698:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(14123);if(r)goto S_16698;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(14123);}while(r); +} +do{ +qbs_set(__STRING_TLAYOUT,qbs_add(_SUB_ASSIGN_STRING_L,__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14124);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(14126);}while(r); +} +fornext_continue_2308:; +} +fornext_exit_2308:; +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected =",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14130);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(14130);}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free10.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +void SUB_CLEARID(){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data11.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +memcpy((((char*)__UDT_ID)+(0)+ 0),(((char*)__UDT_CLEARIDDATA)+(0)+ 0), 256); +memcpy((((char*)__UDT_ID)+(0)+ 256),(((char*)__UDT_CLEARIDDATA)+(0)+ 256), 256); +memcpy((((char*)__UDT_ID)+(0)+ 512),(((char*)__UDT_CLEARIDDATA)+(0)+ 512), 4); +memcpy((((char*)__UDT_ID)+(0)+ 516),(((char*)__UDT_CLEARIDDATA)+(0)+ 516), 2); +memcpy((((char*)__UDT_ID)+(0)+ 518),(((char*)__UDT_CLEARIDDATA)+(0)+ 518), 2); +memcpy((((char*)__UDT_ID)+(0)+ 520),(((char*)__UDT_CLEARIDDATA)+(0)+ 520), 8); +memcpy((((char*)__UDT_ID)+(0)+ 528),(((char*)__UDT_CLEARIDDATA)+(0)+ 528), 8); +memcpy((((char*)__UDT_ID)+(0)+ 536),(((char*)__UDT_CLEARIDDATA)+(0)+ 536), 4); +memcpy((((char*)__UDT_ID)+(0)+ 540),(((char*)__UDT_CLEARIDDATA)+(0)+ 540), 4); +memcpy((((char*)__UDT_ID)+(0)+ 544),(((char*)__UDT_CLEARIDDATA)+(0)+ 544), 2); +memcpy((((char*)__UDT_ID)+(0)+ 546),(((char*)__UDT_CLEARIDDATA)+(0)+ 546), 2); +memcpy((((char*)__UDT_ID)+(0)+ 548),(((char*)__UDT_CLEARIDDATA)+(0)+ 548), 2); +memcpy((((char*)__UDT_ID)+(0)+ 550),(((char*)__UDT_CLEARIDDATA)+(0)+ 550), 256); +memcpy((((char*)__UDT_ID)+(0)+ 806),(((char*)__UDT_CLEARIDDATA)+(0)+ 806), 2); +memcpy((((char*)__UDT_ID)+(0)+ 808),(((char*)__UDT_CLEARIDDATA)+(0)+ 808), 1); +memcpy((((char*)__UDT_ID)+(0)+ 809),(((char*)__UDT_CLEARIDDATA)+(0)+ 809), 2); +memcpy((((char*)__UDT_ID)+(0)+ 811),(((char*)__UDT_CLEARIDDATA)+(0)+ 811), 2); +memcpy((((char*)__UDT_ID)+(0)+ 813),(((char*)__UDT_CLEARIDDATA)+(0)+ 813), 400); +memcpy((((char*)__UDT_ID)+(0)+ 1213),(((char*)__UDT_CLEARIDDATA)+(0)+ 1213), 400); +memcpy((((char*)__UDT_ID)+(0)+ 1613),(((char*)__UDT_CLEARIDDATA)+(0)+ 1613), 256); +memcpy((((char*)__UDT_ID)+(0)+ 1869),(((char*)__UDT_CLEARIDDATA)+(0)+ 1869), 256); +memcpy((((char*)__UDT_ID)+(0)+ 2125),(((char*)__UDT_CLEARIDDATA)+(0)+ 2125), 256); +memcpy((((char*)__UDT_ID)+(0)+ 2381),(((char*)__UDT_CLEARIDDATA)+(0)+ 2381), 4); +memcpy((((char*)__UDT_ID)+(0)+ 2385),(((char*)__UDT_CLEARIDDATA)+(0)+ 2385), 256); +memcpy((((char*)__UDT_ID)+(0)+ 2641),(((char*)__UDT_CLEARIDDATA)+(0)+ 2641), 4); +memcpy((((char*)__UDT_ID)+(0)+ 2645),(((char*)__UDT_CLEARIDDATA)+(0)+ 2645), 2); +memcpy((((char*)__UDT_ID)+(0)+ 2647),(((char*)__UDT_CLEARIDDATA)+(0)+ 2647), 100); +memcpy((((char*)__UDT_ID)+(0)+ 2747),(((char*)__UDT_CLEARIDDATA)+(0)+ 2747), 100); +memcpy((((char*)__UDT_ID)+(0)+ 2847),(((char*)__UDT_CLEARIDDATA)+(0)+ 2847), 4); +memcpy((((char*)__UDT_ID)+(0)+ 2851),(((char*)__UDT_CLEARIDDATA)+(0)+ 2851), 2); +memcpy((((char*)__UDT_ID)+(0)+ 2853),(((char*)__UDT_CLEARIDDATA)+(0)+ 2853), 2); +memcpy((((char*)__UDT_ID)+(0)+ 2855),(((char*)__UDT_CLEARIDDATA)+(0)+ 2855), 4); +memcpy((((char*)__UDT_ID)+(0)+ 2859),(((char*)__UDT_CLEARIDDATA)+(0)+ 2859), 2); +qbs_set(*(qbs**)(((char*)__UDT_ID)+(0)+ 2861), *(qbs**)(((char*)__UDT_CLEARIDDATA)+(0)+ 2861)); +if(!qbevent)break;evnt(14134);}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free11.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +void SUB_VWATCHVARIABLE(qbs*_SUB_VWATCHVARIABLE_STRING_THIS,int8*_SUB_VWATCHVARIABLE_BYTE_ACTION){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data12.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +if(!qbevent)break;evnt(14138);}while(r); +do{ +if(!qbevent)break;evnt(14139);}while(r); +S_16710:; +if(qbevent){evnt(14141);if(r)goto S_16710;} +S_16711:; +if (((*_SUB_VWATCHVARIABLE_BYTE_ACTION==( -1 )))||new_error){ +if(qbevent){evnt(14142);if(r)goto S_16711;} +do{ +*_SUB_VWATCHVARIABLE_LONG_TOTALLOCALVARIABLES= 0 ; +if(!qbevent)break;evnt(14143);}while(r); +do{ +qbs_set(_SUB_VWATCHVARIABLE_STRING_LOCALVARIABLESLIST,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14144);}while(r); +do{ +*_SUB_VWATCHVARIABLE_LONG_TOTALMAINMODULEVARIABLES= 0 ; +if(!qbevent)break;evnt(14145);}while(r); +do{ +qbs_set(_SUB_VWATCHVARIABLE_STRING_MAINMODULEVARIABLESLIST,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14146);}while(r); +sc_ec_74_end:; +goto sc_2316_end; +} +S_16716:; +if (((*_SUB_VWATCHVARIABLE_BYTE_ACTION==( 0 )))||new_error){ +if(qbevent){evnt(14147);if(r)goto S_16716;} +S_16717:; +if ((qbs_cleanup(qbs_tmp_base,(-(func_instr(NULL,__STRING_VWATCHVARIABLEEXCLUSIONS,qbs_add(qbs_add(qbs_new_txt_len("@",1),_SUB_VWATCHVARIABLE_STRING_THIS),qbs_new_txt_len("@",1)),0)> 0 ))|(qbs_equal(qbs_left(_SUB_VWATCHVARIABLE_STRING_THIS, 12 ),qbs_new_txt_len("_SUB_VWATCH_",12)))))||new_error){ +if(qbevent){evnt(14148);if(r)goto S_16717;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(14149);}while(r); +} +do{ +qbs_set(__STRING_VWATCHNEWVARIABLE,_SUB_VWATCHVARIABLE_STRING_THIS); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14152);}while(r); +S_16721:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SUBFUNC,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(14153);if(r)goto S_16721;} +do{ +*_SUB_VWATCHVARIABLE_LONG_TOTALMAINMODULEVARIABLES=*_SUB_VWATCHVARIABLE_LONG_TOTALMAINMODULEVARIABLES+ 1 ; +if(!qbevent)break;evnt(14154);}while(r); +do{ +qbs_set(_SUB_VWATCHVARIABLE_STRING_MAINMODULEVARIABLESLIST,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_VWATCHVARIABLE_STRING_MAINMODULEVARIABLESLIST,qbs_new_txt_len("vwatch_global_vars[",19)),FUNC_STR2(&(pass2317=*_SUB_VWATCHVARIABLE_LONG_TOTALMAINMODULEVARIABLES- 1 ))),qbs_new_txt_len("] = &",5)),_SUB_VWATCHVARIABLE_STRING_THIS),qbs_new_txt_len(";",1)),__STRING_CRLF)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14155);}while(r); +do{ +SUB_MANAGEVARIABLELIST(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1),_SUB_VWATCHVARIABLE_STRING_THIS,&(pass2318=*_SUB_VWATCHVARIABLE_LONG_TOTALMAINMODULEVARIABLES- 1 ),&(pass2319= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14156);}while(r); +}else{ +do{ +*_SUB_VWATCHVARIABLE_LONG_TOTALLOCALVARIABLES=*_SUB_VWATCHVARIABLE_LONG_TOTALLOCALVARIABLES+ 1 ; +if(!qbevent)break;evnt(14158);}while(r); +do{ +qbs_set(_SUB_VWATCHVARIABLE_STRING_LOCALVARIABLESLIST,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_VWATCHVARIABLE_STRING_LOCALVARIABLESLIST,qbs_new_txt_len("vwatch_local_vars[",18)),FUNC_STR2(&(pass2320=*_SUB_VWATCHVARIABLE_LONG_TOTALLOCALVARIABLES- 1 ))),qbs_new_txt_len("] = &",5)),_SUB_VWATCHVARIABLE_STRING_THIS),qbs_new_txt_len(";",1)),__STRING_CRLF)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14159);}while(r); +do{ +SUB_MANAGEVARIABLELIST(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1),_SUB_VWATCHVARIABLE_STRING_THIS,&(pass2321=*_SUB_VWATCHVARIABLE_LONG_TOTALLOCALVARIABLES- 1 ),&(pass2322= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14160);}while(r); +} +sc_ec_75_end:; +goto sc_2316_end; +} +S_16730:; +if (((*_SUB_VWATCHVARIABLE_BYTE_ACTION==( 1 )))||new_error){ +if(qbevent){evnt(14162);if(r)goto S_16730;} +S_16731:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SUBFUNC,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(14163);if(r)goto S_16731;} +S_16732:; +if ((-(*_SUB_VWATCHVARIABLE_LONG_TOTALMAINMODULEVARIABLES> 0 ))||new_error){ +if(qbevent){evnt(14164);if(r)goto S_16732;} +do{ +SUB_WRITEBUFLINE(&(pass2323=*__LONG_DATATXTBUF),qbs_new_txt_len("void *vwatch_local_vars[0];",27)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14165);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass2324=*__LONG_GLOBTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("void *vwatch_global_vars[",25),qbs_str((int32)(*_SUB_VWATCHVARIABLE_LONG_TOTALMAINMODULEVARIABLES))),qbs_new_txt_len("];",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14166);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass2325=*__LONG_DATATXTBUF),_SUB_VWATCHVARIABLE_STRING_MAINMODULEVARIABLESLIST); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14167);}while(r); +}else{ +do{ +SUB_WRITEBUFLINE(&(pass2326=*__LONG_DATATXTBUF),qbs_new_txt_len("void *vwatch_local_vars[0];",27)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14169);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass2327=*__LONG_GLOBTXTBUF),qbs_new_txt_len("void *vwatch_global_vars[0];",28)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14170);}while(r); +} +do{ +qbs_set(_SUB_VWATCHVARIABLE_STRING_MAINMODULEVARIABLESLIST,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14173);}while(r); +do{ +*_SUB_VWATCHVARIABLE_LONG_TOTALMAINMODULEVARIABLES= 0 ; +if(!qbevent)break;evnt(14174);}while(r); +}else{ +S_16743:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_SUBFUNC,qbs_new_txt_len("SUB_VWATCH",10))))||new_error){ +if(qbevent){evnt(14176);if(r)goto S_16743;} +S_16744:; +if ((-(*_SUB_VWATCHVARIABLE_LONG_TOTALLOCALVARIABLES> 0 ))||new_error){ +if(qbevent){evnt(14177);if(r)goto S_16744;} +do{ +SUB_WRITEBUFLINE(&(pass2328=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("void *vwatch_local_vars[",24),qbs_str((int32)(*_SUB_VWATCHVARIABLE_LONG_TOTALLOCALVARIABLES))),qbs_new_txt_len("];",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14178);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass2329=*__LONG_DATATXTBUF),_SUB_VWATCHVARIABLE_STRING_LOCALVARIABLESLIST); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14179);}while(r); +}else{ +do{ +SUB_WRITEBUFLINE(&(pass2330=*__LONG_DATATXTBUF),qbs_new_txt_len("void *vwatch_local_vars[0];",27)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14181);}while(r); +} +}else{ +do{ +SUB_WRITEBUFLINE(&(pass2331=*__LONG_DATATXTBUF),qbs_new_txt_len("void *vwatch_local_vars[0];",27)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14184);}while(r); +} +do{ +qbs_set(_SUB_VWATCHVARIABLE_STRING_LOCALVARIABLESLIST,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14187);}while(r); +do{ +*_SUB_VWATCHVARIABLE_LONG_TOTALLOCALVARIABLES= 0 ; +if(!qbevent)break;evnt(14188);}while(r); +} +sc_ec_76_end:; +goto sc_2316_end; +} +sc_2316_end:; +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free12.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +void SUB_VWATCHADDLABEL(int32*_SUB_VWATCHADDLABEL_LONG_THIS,int8*_SUB_VWATCHADDLABEL_BYTE_LASTLINE){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data13.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +if(!qbevent)break;evnt(14194);}while(r); +S_16758:; +if ((-(*_SUB_VWATCHADDLABEL_BYTE_LASTLINE== 0 ))||new_error){ +if(qbevent){evnt(14196);if(r)goto S_16758;} +S_16759:; +while((qbs_cleanup(qbs_tmp_base,-(*_SUB_VWATCHADDLABEL_LONG_THIS>__STRING_VWATCHUSEDLABELS->len)))||new_error){ +if(qbevent){evnt(14197);if(r)goto S_16759;} +do{ +qbs_set(__STRING_VWATCHUSEDLABELS,qbs_add(__STRING_VWATCHUSEDLABELS,func_space( 1000 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14198);}while(r); +do{ +qbs_set(__STRING_VWATCHUSEDSKIPLABELS,qbs_add(__STRING_VWATCHUSEDSKIPLABELS,func_space( 1000 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14199);}while(r); +ww_continue_2332:; +} +ww_exit_2332:; +S_16763:; +if ((-(*__LONG_FIRSTLINENUMBERLABELVWATCH== 0 ))||new_error){ +if(qbevent){evnt(14202);if(r)goto S_16763;} +do{ +*__LONG_FIRSTLINENUMBERLABELVWATCH=*_SUB_VWATCHADDLABEL_LONG_THIS; +if(!qbevent)break;evnt(14203);}while(r); +}else{ +S_16766:; +if ((-(*_SUB_VWATCHADDLABEL_LONG_PREVSKIP!=*_SUB_VWATCHADDLABEL_LONG_PREVLABEL))||new_error){ +if(qbevent){evnt(14205);if(r)goto S_16766;} +do{ +tqbs=__STRING_VWATCHUSEDSKIPLABELS; if (!new_error){ +tmp_fileno=*_SUB_VWATCHADDLABEL_LONG_PREVLABEL; if (!new_error){ +tmp_long= 1 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(14206);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass2334=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("VWATCH_SKIPLABEL_",17),FUNC_STR2(_SUB_VWATCHADDLABEL_LONG_PREVLABEL)),qbs_new_txt_len(":;",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14207);}while(r); +do{ +*_SUB_VWATCHADDLABEL_LONG_PREVSKIP=*_SUB_VWATCHADDLABEL_LONG_PREVLABEL; +if(!qbevent)break;evnt(14208);}while(r); +} +} +S_16772:; +if ((-(*_SUB_VWATCHADDLABEL_LONG_PREVLABEL!=*_SUB_VWATCHADDLABEL_LONG_THIS))||new_error){ +if(qbevent){evnt(14212);if(r)goto S_16772;} +do{ +tqbs=__STRING_VWATCHUSEDLABELS; if (!new_error){ +tmp_fileno=*_SUB_VWATCHADDLABEL_LONG_THIS; if (!new_error){ +tmp_long= 1 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(14213);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass2335=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("VWATCH_LABEL_",13),FUNC_STR2(_SUB_VWATCHADDLABEL_LONG_THIS)),qbs_new_txt_len(":;",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14214);}while(r); +do{ +*_SUB_VWATCHADDLABEL_LONG_PREVLABEL=*_SUB_VWATCHADDLABEL_LONG_THIS; +if(!qbevent)break;evnt(14215);}while(r); +do{ +*__LONG_LASTLINENUMBERLABELVWATCH=*_SUB_VWATCHADDLABEL_LONG_THIS; +if(!qbevent)break;evnt(14216);}while(r); +} +}else{ +S_16779:; +if ((-(*_SUB_VWATCHADDLABEL_LONG_PREVSKIP!=*_SUB_VWATCHADDLABEL_LONG_PREVLABEL))||new_error){ +if(qbevent){evnt(14219);if(r)goto S_16779;} +do{ +tqbs=__STRING_VWATCHUSEDSKIPLABELS; if (!new_error){ +tmp_fileno=*_SUB_VWATCHADDLABEL_LONG_PREVLABEL; if (!new_error){ +tmp_long= 1 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(14220);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass2336=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("VWATCH_SKIPLABEL_",17),FUNC_STR2(_SUB_VWATCHADDLABEL_LONG_PREVLABEL)),qbs_new_txt_len(":;",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14221);}while(r); +do{ +*_SUB_VWATCHADDLABEL_LONG_PREVSKIP=*_SUB_VWATCHADDLABEL_LONG_PREVLABEL; +if(!qbevent)break;evnt(14222);}while(r); +} +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free13.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +void SUB_CLOSEMAIN(){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data14.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +SUB_XEND(); +if(!qbevent)break;evnt(14228);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass2337=*__LONG_MAINTXTBUF),qbs_new_txt_len("return;",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14230);}while(r); +S_16787:; +if ((*__LONG_VWATCHON&(-(*__LONG_FIRSTLINENUMBERLABELVWATCH> 0 )))||new_error){ +if(qbevent){evnt(14232);if(r)goto S_16787;} +do{ +SUB_WRITEBUFLINE(&(pass2338=*__LONG_MAINTXTBUF),qbs_new_txt_len("VWATCH_SETNEXTLINE:;",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14233);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass2339=*__LONG_MAINTXTBUF),qbs_new_txt_len("switch (*__LONG_VWATCH_GOTO) {",30)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14234);}while(r); +S_16790:; +fornext_value2341=*__LONG_FIRSTLINENUMBERLABELVWATCH; +fornext_finalvalue2341=*__LONG_LASTLINENUMBERLABELVWATCH; +fornext_step2341= 1 ; +if (fornext_step2341<0) fornext_step_negative2341=1; else fornext_step_negative2341=0; +if (new_error) goto fornext_error2341; +goto fornext_entrylabel2341; +while(1){ +fornext_value2341=fornext_step2341+(*_SUB_CLOSEMAIN_LONG_I); +fornext_entrylabel2341: +*_SUB_CLOSEMAIN_LONG_I=fornext_value2341; +if (fornext_step_negative2341){ +if (fornext_value2341fornext_finalvalue2341) break; +} +fornext_error2341:; +if(qbevent){evnt(14235);if(r)goto S_16790;} +S_16791:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_VWATCHUSEDLABELS,*_SUB_CLOSEMAIN_LONG_I)== 1 )))||new_error){ +if(qbevent){evnt(14236);if(r)goto S_16791;} +do{ +SUB_WRITEBUFLINE(&(pass2342=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len(" case ",9),FUNC_STR2(_SUB_CLOSEMAIN_LONG_I)),qbs_new_txt_len(":",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14237);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass2343=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len(" goto VWATCH_LABEL_",26),FUNC_STR2(_SUB_CLOSEMAIN_LONG_I)),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14238);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass2344=*__LONG_MAINTXTBUF),qbs_new_txt_len(" break;",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14239);}while(r); +} +fornext_continue_2340:; +} +fornext_exit_2340:; +do{ +SUB_WRITEBUFLINE(&(pass2345=*__LONG_MAINTXTBUF),qbs_new_txt_len(" default:",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14242);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass2346=*__LONG_MAINTXTBUF),qbs_new_txt_len(" *__LONG_VWATCH_GOTO=*__LONG_VWATCH_LINENUMBER;",54)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14243);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass2347=*__LONG_MAINTXTBUF),qbs_new_txt_len(" goto VWATCH_SETNEXTLINE;",32)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14244);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass2348=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14245);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass2349=*__LONG_MAINTXTBUF),qbs_new_txt_len("VWATCH_SKIPLINE:;",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14247);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass2350=*__LONG_MAINTXTBUF),qbs_new_txt_len("switch (*__LONG_VWATCH_GOTO) {",30)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14248);}while(r); +S_16803:; +fornext_value2352=*__LONG_FIRSTLINENUMBERLABELVWATCH; +fornext_finalvalue2352=*__LONG_LASTLINENUMBERLABELVWATCH; +fornext_step2352= 1 ; +if (fornext_step2352<0) fornext_step_negative2352=1; else fornext_step_negative2352=0; +if (new_error) goto fornext_error2352; +goto fornext_entrylabel2352; +while(1){ +fornext_value2352=fornext_step2352+(*_SUB_CLOSEMAIN_LONG_I); +fornext_entrylabel2352: +*_SUB_CLOSEMAIN_LONG_I=fornext_value2352; +if (fornext_step_negative2352){ +if (fornext_value2352fornext_finalvalue2352) break; +} +fornext_error2352:; +if(qbevent){evnt(14249);if(r)goto S_16803;} +S_16804:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_VWATCHUSEDSKIPLABELS,*_SUB_CLOSEMAIN_LONG_I)== 1 )))||new_error){ +if(qbevent){evnt(14250);if(r)goto S_16804;} +do{ +SUB_WRITEBUFLINE(&(pass2353=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len(" case -",10),FUNC_STR2(_SUB_CLOSEMAIN_LONG_I)),qbs_new_txt_len(":",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14251);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass2354=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len(" goto VWATCH_SKIPLABEL_",30),FUNC_STR2(_SUB_CLOSEMAIN_LONG_I)),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14252);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass2355=*__LONG_MAINTXTBUF),qbs_new_txt_len(" break;",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14253);}while(r); +} +fornext_continue_2351:; +} +fornext_exit_2351:; +do{ +SUB_WRITEBUFLINE(&(pass2356=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14256);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass2357=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14260);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass2358=*__LONG_RETTXTBUF),qbs_new_txt_len("}",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14261);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass2359=*__LONG_RETTXTBUF),qbs_new_txt_len("}",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14262);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass2360=*__LONG_RETTXTBUF),qbs_new_txt_len("error(3);",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14263);}while(r); +do{ +*__INTEGER_CLOSEDMAIN= 1 ; +if(!qbevent)break;evnt(14265);}while(r); +do{ +*__LONG_FIRSTLINENUMBERLABELVWATCH= 0 ; +if(!qbevent)break;evnt(14266);}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free14.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +int32 FUNC_COUNTELEMENTS(qbs*_FUNC_COUNTELEMENTS_STRING_A){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data15.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +*_FUNC_COUNTELEMENTS_LONG_N=FUNC_NUMELEMENTS(_FUNC_COUNTELEMENTS_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14270);}while(r); +do{ +*_FUNC_COUNTELEMENTS_LONG_C= 1 ; +if(!qbevent)break;evnt(14271);}while(r); +S_16820:; +fornext_value2363= 1 ; +fornext_finalvalue2363=*_FUNC_COUNTELEMENTS_LONG_N; +fornext_step2363= 1 ; +if (fornext_step2363<0) fornext_step_negative2363=1; else fornext_step_negative2363=0; +if (new_error) goto fornext_error2363; +goto fornext_entrylabel2363; +while(1){ +fornext_value2363=fornext_step2363+(*_FUNC_COUNTELEMENTS_LONG_I); +fornext_entrylabel2363: +*_FUNC_COUNTELEMENTS_LONG_I=fornext_value2363; +if (fornext_step_negative2363){ +if (fornext_value2363fornext_finalvalue2363) break; +} +fornext_error2363:; +if(qbevent){evnt(14272);if(r)goto S_16820;} +do{ +qbs_set(_FUNC_COUNTELEMENTS_STRING_E,FUNC_GETELEMENT(_FUNC_COUNTELEMENTS_STRING_A,_FUNC_COUNTELEMENTS_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14273);}while(r); +S_16822:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_COUNTELEMENTS_STRING_E,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(14274);if(r)goto S_16822;} +do{ +*_FUNC_COUNTELEMENTS_LONG_B=*_FUNC_COUNTELEMENTS_LONG_B+ 1 ; +if(!qbevent)break;evnt(14274);}while(r); +} +S_16825:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_COUNTELEMENTS_STRING_E,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(14275);if(r)goto S_16825;} +do{ +*_FUNC_COUNTELEMENTS_LONG_B=*_FUNC_COUNTELEMENTS_LONG_B- 1 ; +if(!qbevent)break;evnt(14275);}while(r); +} +S_16828:; +if ((-(*_FUNC_COUNTELEMENTS_LONG_B< 0 ))||new_error){ +if(qbevent){evnt(14276);if(r)goto S_16828;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Unexpected ) encountered",24)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14276);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(14276);}while(r); +} +S_16832:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_COUNTELEMENTS_STRING_E,qbs_new_txt_len(",",1)))&(-(*_FUNC_COUNTELEMENTS_LONG_B== 0 ))))||new_error){ +if(qbevent){evnt(14277);if(r)goto S_16832;} +do{ +*_FUNC_COUNTELEMENTS_LONG_C=*_FUNC_COUNTELEMENTS_LONG_C+ 1 ; +if(!qbevent)break;evnt(14277);}while(r); +} +fornext_continue_2362:; +} +fornext_exit_2362:; +do{ +*_FUNC_COUNTELEMENTS_LONG_COUNTELEMENTS=*_FUNC_COUNTELEMENTS_LONG_C; +if(!qbevent)break;evnt(14279);}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free15.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +return *_FUNC_COUNTELEMENTS_LONG_COUNTELEMENTS; +} +int32 FUNC_DIM2(qbs*_FUNC_DIM2_STRING_VARNAME,qbs*_FUNC_DIM2_STRING_TYP2,int32*_FUNC_DIM2_LONG_METHOD,qbs*_FUNC_DIM2_STRING_ELEMENTS){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data16.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +qbs_set(_FUNC_DIM2_STRING_TYP,_FUNC_DIM2_STRING_TYP2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14304);}while(r); +do{ +*_FUNC_DIM2_LONG_DIM2= 1 ; +if(!qbevent)break;evnt(14305);}while(r); +S_16839:; +if (( 0 )||new_error){ +if(qbevent){evnt(14307);if(r)goto S_16839;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip2367; +sub_file_print(tmp_fileno,qbs_new_txt_len("dim2 called",11), 0, 1, 0); +if (new_error) goto skip2367; +sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_DIM2_LONG_METHOD)), 1, 0, 1); +if (new_error) goto skip2367; +skip2367: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(14307);}while(r); +} +do{ +qbs_set(_FUNC_DIM2_STRING_CVARNAME,_FUNC_DIM2_STRING_VARNAME); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14309);}while(r); +do{ +qbs_set(_FUNC_DIM2_STRING_L,_FUNC_DIM2_STRING_CVARNAME); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14310);}while(r); +do{ +qbs_set(_FUNC_DIM2_STRING_VARNAME,qbs_ucase(_FUNC_DIM2_STRING_VARNAME)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14311);}while(r); +S_16845:; +if ((-(*__INTEGER_DIMSFARRAY== 1 ))||new_error){ +if(qbevent){evnt(14313);if(r)goto S_16845;} +do{ +*_FUNC_DIM2_LONG_F= 0 ; +if(!qbevent)break;evnt(14313);}while(r); +}else{ +do{ +*_FUNC_DIM2_LONG_F= 1 ; +if(!qbevent)break;evnt(14313);}while(r); +} +S_16850:; +if (((-(*__LONG_DIMSTATIC!= 0 ))&(-(*__INTEGER_DIMSHARED== 0 )))||new_error){ +if(qbevent){evnt(14315);if(r)goto S_16850;} +do{ +*__INTEGER_DEFDATAHANDLE=*__LONG_GLOBTXTBUF; +if(!qbevent)break;evnt(14318);}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(14319);}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(14320);}while(r); +} +do{ +qbs_set(_FUNC_DIM2_STRING_SCOPE2,qbs_add(qbs_add(qbs_add(__STRING_MODULE,qbs_new_txt_len("_",1)),__STRING_SUBFUNC),qbs_new_txt_len("_",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14324);}while(r); +S_16856:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_DIM2_STRING_TYP->len== 0 )))||new_error){ +if(qbevent){evnt(14327);if(r)goto S_16856;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("DIM2: No type specified!",24)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14327);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(14327);}while(r); +} +S_16860:; +fornext_value2370= 1 ; +fornext_finalvalue2370=*__LONG_LASTTYPE; +fornext_step2370= 1 ; +if (fornext_step2370<0) fornext_step_negative2370=1; else fornext_step_negative2370=0; +if (new_error) goto fornext_error2370; +goto fornext_entrylabel2370; +while(1){ +fornext_value2370=fornext_step2370+(*_FUNC_DIM2_LONG_I); +fornext_entrylabel2370: +*_FUNC_DIM2_LONG_I=fornext_value2370; +if (fornext_step_negative2370){ +if (fornext_value2370fornext_finalvalue2370) break; +} +fornext_error2370:; +if(qbevent){evnt(14331);if(r)goto S_16860;} +S_16861:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_DIM2_STRING_TYP,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXNAME[0]))[(array_check((*_FUNC_DIM2_LONG_I)-__ARRAY_STRING256_UDTXNAME[4],__ARRAY_STRING256_UDTXNAME[5]))*256],256,1))))|(((qbs_equal(_FUNC_DIM2_STRING_TYP,qbs_new_txt_len("MEM",3)))&(qbs_equal(qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXNAME[0]))[(array_check((*_FUNC_DIM2_LONG_I)-__ARRAY_STRING256_UDTXNAME[4],__ARRAY_STRING256_UDTXNAME[5]))*256],256,1)),qbs_new_txt_len("_MEM",4)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ +if(qbevent){evnt(14332);if(r)goto S_16861;} +do{ +qbs_set(__STRING_DIM2TYPEPASSBACK,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[(array_check((*_FUNC_DIM2_LONG_I)-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]))*256],256,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14333);}while(r); +S_16863:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_DIM2_STRING_TYP,qbs_new_txt_len("MEM",3)))&(qbs_equal(qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXNAME[0]))[(array_check((*_FUNC_DIM2_LONG_I)-__ARRAY_STRING256_UDTXNAME[4],__ARRAY_STRING256_UDTXNAME[5]))*256],256,1)),qbs_new_txt_len("_MEM",4)))))||new_error){ +if(qbevent){evnt(14334);if(r)goto S_16863;} +do{ +qbs_set(__STRING_DIM2TYPEPASSBACK,func_mid(qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[(array_check((*_FUNC_DIM2_LONG_I)-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]))*256],256,1)), 2 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14335);}while(r); +} +do{ +qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_new_txt_len("UDT_",4),_FUNC_DIM2_STRING_VARNAME)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14338);}while(r); +S_16867:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(14341);if(r)goto S_16867;} +do{ +*__INTEGER_ARRAYDESC= 0 ; +if(!qbevent)break;evnt(14342);}while(r); +S_16869:; +if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ +if(qbevent){evnt(14343);if(r)goto S_16869;} +do{ +*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_VARNAME); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14344);}while(r); +S_16871:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(14345);if(r)goto S_16871;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(14345);}while(r); +} +S_16874:; +while((*_FUNC_DIM2_LONG_TRY)||new_error){ +if(qbevent){evnt(14346);if(r)goto S_16874;} +S_16875:; +if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ +if(qbevent){evnt(14347);if(r)goto S_16875;} +do{ +qbs_set(_FUNC_DIM2_STRING_L,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14348);}while(r); +do{ +*__INTEGER_ARRAYDESC=*__LONG_CURRENTID; +if(!qbevent)break;evnt(14349);}while(r); +do{ +qbs_set(_FUNC_DIM2_STRING_SCOPE2,FUNC_SCOPE()); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14349);}while(r); +do{ +goto dl_exit_2371; +if(!qbevent)break;evnt(14350);}while(r); +} +S_16881:; +if ((-(*_FUNC_DIM2_LONG_TRY== 2 ))||new_error){ +if(qbevent){evnt(14352);if(r)goto S_16881;} +do{ +*__INTEGER_FINDANOTHERID= 1 ; +if(!qbevent)break;evnt(14352);}while(r); +do{ +*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_VARNAME); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14352);}while(r); +}else{ +do{ +*_FUNC_DIM2_LONG_TRY= 0 ; +if(!qbevent)break;evnt(14352);}while(r); +} +S_16887:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(14353);if(r)goto S_16887;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(14353);}while(r); +} +dl_continue_2371:; +} +dl_exit_2371:; +} +do{ +qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_add(_FUNC_DIM2_STRING_SCOPE2,qbs_new_txt_len("ARRAY_",6)),_FUNC_DIM2_STRING_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14356);}while(r); +do{ +*_FUNC_DIM2_LONG_BITS=((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*_FUNC_DIM2_LONG_I)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])]; +if(!qbevent)break;evnt(14357);}while(r); +S_16894:; +if ((((int16*)(__ARRAY_INTEGER_UDTXBYTEALIGN[0]))[array_check((*_FUNC_DIM2_LONG_I)-__ARRAY_INTEGER_UDTXBYTEALIGN[4],__ARRAY_INTEGER_UDTXBYTEALIGN[5])])||new_error){ +if(qbevent){evnt(14358);if(r)goto S_16894;} +S_16895:; +if ((*_FUNC_DIM2_LONG_BITS% 8 )||new_error){ +if(qbevent){evnt(14359);if(r)goto S_16895;} +do{ +*_FUNC_DIM2_LONG_BITS=*_FUNC_DIM2_LONG_BITS+ 8 -(*_FUNC_DIM2_LONG_BITS% 8 ); +if(!qbevent)break;evnt(14359);}while(r); +} +} +S_16899:; +if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ +if(qbevent){evnt(14362);if(r)goto S_16899;} +S_16900:; +if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_DIM2_STRING_ELEMENTS->len== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||new_error){ +if(qbevent){evnt(14364);if(r)goto S_16900;} +do{ +*__LONG_E=((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])]; +if(!qbevent)break;evnt(14365);}while(r); +S_16902:; +if ((*__LONG_E)||new_error){ +if(qbevent){evnt(14365);if(r)goto S_16902;} +do{ +qbs_set(_FUNC_DIM2_STRING_ELEMENTS,qbs_add(_FUNC_DIM2_STRING_ELEMENTS,FUNC_STR2(__LONG_E))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14365);}while(r); +} +} +do{ +*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass2373=-(*_FUNC_DIM2_LONG_BITS)),_FUNC_DIM2_LONG_I); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14367);}while(r); +S_16907:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(14368);if(r)goto S_16907;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(14368);}while(r); +} +do{ +qbs_set(_FUNC_DIM2_STRING_L,qbs_add(qbs_add(_FUNC_DIM2_STRING_L,__STRING1_SP),__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14369);}while(r); +S_16911:; +if ((*__INTEGER_ARRAYDESC)||new_error){ +if(qbevent){evnt(14370);if(r)goto S_16911;} +do{ +goto LABEL_DIM2EXITFUNC; +if(!qbevent)break;evnt(14370);}while(r); +} +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(14371);}while(r); +}else{ +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(14374);}while(r); +S_16917:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||new_error){ +if(qbevent){evnt(14375);if(r)goto S_16917;} +do{ +*_FUNC_DIM2_LONG_NUME= -1 ; +if(!qbevent)break;evnt(14376);}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2847))=*__LONG_GLINKID; +if(!qbevent)break;evnt(14377);}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(2851))=*__INTEGER_GLINKARG; +if(!qbevent)break;evnt(14378);}while(r); +}else{ +do{ +*_FUNC_DIM2_LONG_NUME=qbr(func_val(_FUNC_DIM2_STRING_ELEMENTS)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14380);}while(r); +} +} +do{ +*(int32*)(((char*)__UDT_ID)+(512))=*__LONG_UDTTYPE+*_FUNC_DIM2_LONG_I; +if(!qbevent)break;evnt(14384);}while(r); +S_16926:; +if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ +if(qbevent){evnt(14385);if(r)goto S_16926;} +do{ +*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISINCONVENTIONALMEMORY; +if(!qbevent)break;evnt(14385);}while(r); +} +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),_FUNC_DIM2_STRING_CVARNAME); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14386);}while(r); +S_16930:; +if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||new_error){ +if(qbevent){evnt(14388);if(r)goto S_16930;} +do{ +*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ; +if(!qbevent)break;evnt(14388);}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(518))= 1 ; +if(!qbevent)break;evnt(14388);}while(r); +} +do{ +*(int16*)(((char*)__UDT_ID)+(516))=*_FUNC_DIM2_LONG_NUME; +if(!qbevent)break;evnt(14390);}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),_FUNC_DIM2_STRING_N); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14391);}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(14392);}while(r); +do{ +SUB_VWATCHVARIABLE(_FUNC_DIM2_STRING_N,&(pass2374= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14393);}while(r); +S_16938:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(14394);if(r)goto S_16938;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(14394);}while(r); +} +do{ +goto LABEL_DIM2EXITFUNC; +if(!qbevent)break;evnt(14395);}while(r); +} +do{ +*_FUNC_DIM2_LONG_BITS=((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*_FUNC_DIM2_LONG_I)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])]; +if(!qbevent)break;evnt(14399);}while(r); +do{ +*_FUNC_DIM2_LONG_BYTES=*_FUNC_DIM2_LONG_BITS/ 8 ; +if(!qbevent)break;evnt(14399);}while(r); +S_16945:; +if ((*_FUNC_DIM2_LONG_BITS% 8 )||new_error){ +if(qbevent){evnt(14400);if(r)goto S_16945;} +do{ +*_FUNC_DIM2_LONG_BYTES=*_FUNC_DIM2_LONG_BYTES+ 1 ; +if(!qbevent)break;evnt(14401);}while(r); +} +do{ +qbs_set(_FUNC_DIM2_STRING_N,qbs_add(_FUNC_DIM2_STRING_SCOPE2,_FUNC_DIM2_STRING_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14403);}while(r); +S_16949:; +if ((*_FUNC_DIM2_LONG_F)||new_error){ +if(qbevent){evnt(14404);if(r)goto S_16949;} +do{ +SUB_WRITEBUFLINE(__INTEGER_DEFDATAHANDLE,qbs_add(qbs_add(qbs_new_txt_len("void *",6),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=NULL;",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14404);}while(r); +} +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(14405);}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),_FUNC_DIM2_STRING_CVARNAME); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14406);}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(536))=*__LONG_UDTTYPE+*_FUNC_DIM2_LONG_I; +if(!qbevent)break;evnt(14407);}while(r); +S_16955:; +if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ +if(qbevent){evnt(14408);if(r)goto S_16955;} +do{ +*(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISINCONVENTIONALMEMORY; +if(!qbevent)break;evnt(14409);}while(r); +S_16957:; +if ((*_FUNC_DIM2_LONG_F)||new_error){ +if(qbevent){evnt(14410);if(r)goto S_16957;} +do{ +SUB_WRITEBUFLINE(&(pass2375=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14411);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass2376=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("cmem_sp-=",9),FUNC_STR2(_FUNC_DIM2_LONG_BYTES)),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14412);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass2377=*__LONG_DATATXTBUF),qbs_new_txt_len("if (cmem_splen== 0 )))||new_error){ +if(qbevent){evnt(14447);if(r)goto S_16994;} +do{ +SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Expected more type information after ",37),__STRING_QB64PREFIX),qbs_new_txt_len("UNSIGNED!",9))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14447);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(14447);}while(r); +} +} +do{ +qbs_set(_FUNC_DIM2_STRING_N,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14450);}while(r); +S_17000:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_DIM2_STRING_TYP, 6 ),qbs_new_txt_len("STRING",6))))||new_error){ +if(qbevent){evnt(14452);if(r)goto S_17000;} +S_17001:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_DIM2_STRING_TYP->len> 6 )))||new_error){ +if(qbevent){evnt(14454);if(r)goto S_17001;} +S_17002:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(_FUNC_DIM2_STRING_TYP, 9 ),qbs_new_txt_len("STRING * ",9))))||new_error){ +if(qbevent){evnt(14455);if(r)goto S_17002;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected STRING * number/constant",33)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14455);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(14455);}while(r); +} +do{ +qbs_set(_FUNC_DIM2_STRING_C,qbs_right(_FUNC_DIM2_STRING_TYP,_FUNC_DIM2_STRING_TYP->len- 9 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14457);}while(r); +do{ +*_FUNC_DIM2_LONG_HASHFOUND= 0 ; +if(!qbevent)break;evnt(14460);}while(r); +do{ +qbs_set(_FUNC_DIM2_STRING_HASHNAME,_FUNC_DIM2_STRING_C); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14461);}while(r); +do{ +*_FUNC_DIM2_LONG_HASHCHKFLAGS= 1024 ; +if(!qbevent)break;evnt(14462);}while(r); +do{ +*_FUNC_DIM2_LONG_HASHRES=FUNC_HASHFINDREV(_FUNC_DIM2_STRING_HASHNAME,_FUNC_DIM2_LONG_HASHCHKFLAGS,_FUNC_DIM2_LONG_HASHRESFLAGS,_FUNC_DIM2_LONG_HASHRESREF); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14463);}while(r); +S_17011:; +while((*_FUNC_DIM2_LONG_HASHRES)||new_error){ +if(qbevent){evnt(14464);if(r)goto S_17011;} +S_17012:; +if (((-(((int32*)(__ARRAY_LONG_CONSTSUBFUNC[0]))[array_check((*_FUNC_DIM2_LONG_HASHRESREF)-__ARRAY_LONG_CONSTSUBFUNC[4],__ARRAY_LONG_CONSTSUBFUNC[5])]==*__LONG_SUBFUNCN))|(-(((int32*)(__ARRAY_LONG_CONSTSUBFUNC[0]))[array_check((*_FUNC_DIM2_LONG_HASHRESREF)-__ARRAY_LONG_CONSTSUBFUNC[4],__ARRAY_LONG_CONSTSUBFUNC[5])]== 0 )))||new_error){ +if(qbevent){evnt(14465);if(r)goto S_17012;} +S_17013:; +if ((((int32*)(__ARRAY_LONG_CONSTDEFINED[0]))[array_check((*_FUNC_DIM2_LONG_HASHRESREF)-__ARRAY_LONG_CONSTDEFINED[4],__ARRAY_LONG_CONSTDEFINED[5])])||new_error){ +if(qbevent){evnt(14466);if(r)goto S_17013;} +do{ +*_FUNC_DIM2_LONG_HASHFOUND= 1 ; +if(!qbevent)break;evnt(14467);}while(r); +do{ +goto dl_exit_2391; +if(!qbevent)break;evnt(14468);}while(r); +} +} +S_17018:; +if ((-(*_FUNC_DIM2_LONG_HASHRES!= 1 ))||new_error){ +if(qbevent){evnt(14471);if(r)goto S_17018;} +do{ +*_FUNC_DIM2_LONG_HASHRES=FUNC_HASHFINDCONT(_FUNC_DIM2_LONG_HASHRESFLAGS,_FUNC_DIM2_LONG_HASHRESREF); +if(!qbevent)break;evnt(14471);}while(r); +}else{ +do{ +*_FUNC_DIM2_LONG_HASHRES= 0 ; +if(!qbevent)break;evnt(14471);}while(r); +} +dl_continue_2391:; +} +dl_exit_2391:; +S_17024:; +if ((*_FUNC_DIM2_LONG_HASHFOUND)||new_error){ +if(qbevent){evnt(14473);if(r)goto S_17024;} +do{ +*_FUNC_DIM2_LONG_I2=*_FUNC_DIM2_LONG_HASHRESREF; +if(!qbevent)break;evnt(14474);}while(r); +do{ +*_FUNC_DIM2_LONG_T=((int32*)(__ARRAY_LONG_CONSTTYPE[0]))[array_check((*_FUNC_DIM2_LONG_I2)-__ARRAY_LONG_CONSTTYPE[4],__ARRAY_LONG_CONSTTYPE[5])]; +if(!qbevent)break;evnt(14475);}while(r); +S_17027:; +if ((*_FUNC_DIM2_LONG_T&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(14476);if(r)goto S_17027;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected STRING * numeric-constant",34)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14476);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(14476);}while(r); +} +S_17031:; +if ((*_FUNC_DIM2_LONG_T&*__LONG_ISFLOAT)||new_error){ +if(qbevent){evnt(14478);if(r)goto S_17031;} +do{ +*_FUNC_DIM2_FLOAT_V=((long double*)(__ARRAY_FLOAT_CONSTFLOAT[0]))[array_check((*_FUNC_DIM2_LONG_I2)-__ARRAY_FLOAT_CONSTFLOAT[4],__ARRAY_FLOAT_CONSTFLOAT[5])]; +if(!qbevent)break;evnt(14479);}while(r); +do{ +*_FUNC_DIM2_INTEGER64_V=qbr(*_FUNC_DIM2_FLOAT_V); +if(!qbevent)break;evnt(14480);}while(r); +do{ +*_FUNC_DIM2_UINTEGER64_V=*_FUNC_DIM2_INTEGER64_V; +if(!qbevent)break;evnt(14481);}while(r); +}else{ +S_17036:; +if ((*_FUNC_DIM2_LONG_T&*__LONG_ISUNSIGNED)||new_error){ +if(qbevent){evnt(14483);if(r)goto S_17036;} +do{ +*_FUNC_DIM2_UINTEGER64_V=((uint64*)(__ARRAY_UINTEGER64_CONSTUINTEGER[0]))[array_check((*_FUNC_DIM2_LONG_I2)-__ARRAY_UINTEGER64_CONSTUINTEGER[4],__ARRAY_UINTEGER64_CONSTUINTEGER[5])]; +if(!qbevent)break;evnt(14484);}while(r); +do{ +*_FUNC_DIM2_INTEGER64_V=*_FUNC_DIM2_UINTEGER64_V; +if(!qbevent)break;evnt(14485);}while(r); +do{ +*_FUNC_DIM2_FLOAT_V=*_FUNC_DIM2_INTEGER64_V; +if(!qbevent)break;evnt(14486);}while(r); +}else{ +do{ +*_FUNC_DIM2_INTEGER64_V=((int64*)(__ARRAY_INTEGER64_CONSTINTEGER[0]))[array_check((*_FUNC_DIM2_LONG_I2)-__ARRAY_INTEGER64_CONSTINTEGER[4],__ARRAY_INTEGER64_CONSTINTEGER[5])]; +if(!qbevent)break;evnt(14488);}while(r); +do{ +*_FUNC_DIM2_FLOAT_V=*_FUNC_DIM2_INTEGER64_V; +if(!qbevent)break;evnt(14489);}while(r); +do{ +*_FUNC_DIM2_UINTEGER64_V=*_FUNC_DIM2_INTEGER64_V; +if(!qbevent)break;evnt(14490);}while(r); +} +} +S_17046:; +if (((-(*_FUNC_DIM2_INTEGER64_V< 1 ))|(-(*_FUNC_DIM2_INTEGER64_V> 9999999999ll )))||new_error){ +if(qbevent){evnt(14493);if(r)goto S_17046;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("STRING * out-of-range constant",30)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14493);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(14493);}while(r); +} +do{ +*_FUNC_DIM2_LONG_BYTES=*_FUNC_DIM2_INTEGER64_V; +if(!qbevent)break;evnt(14494);}while(r); +do{ +qbs_set(__STRING_DIM2TYPEPASSBACK,qbs_add(FUNC_SCASE(qbs_new_txt_len("String * ",9)),((qbs*)(((uint64*)(__ARRAY_STRING_CONSTCNAME[0]))[array_check((*_FUNC_DIM2_LONG_I2)-__ARRAY_STRING_CONSTCNAME[4],__ARRAY_STRING_CONSTCNAME[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14495);}while(r); +do{ +goto LABEL_CONSTANTLENSTR; +if(!qbevent)break;evnt(14496);}while(r); +} +S_17054:; +if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISUINTEGER(_FUNC_DIM2_STRING_C)== 0 )))||new_error){ +if(qbevent){evnt(14499);if(r)goto S_17054;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Number/Constant expected after *",32)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14499);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(14499);}while(r); +} +S_17058:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_DIM2_STRING_C->len> 10 )))||new_error){ +if(qbevent){evnt(14500);if(r)goto S_17058;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Too many characters in number after *",37)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14500);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(14500);}while(r); +} +do{ +*_FUNC_DIM2_LONG_BYTES=qbr(func_val(_FUNC_DIM2_STRING_C)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14501);}while(r); +S_17063:; +if ((-(*_FUNC_DIM2_LONG_BYTES== 0 ))||new_error){ +if(qbevent){evnt(14502);if(r)goto S_17063;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Cannot create a fixed string of length 0",40)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14502);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(14502);}while(r); +} +LABEL_CONSTANTLENSTR:; +if(qbevent){evnt(14503);r=0;} +do{ +qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("STRING",6),FUNC_STR2(_FUNC_DIM2_LONG_BYTES)),qbs_new_txt_len("_",1)),_FUNC_DIM2_STRING_VARNAME)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14504);}while(r); +S_17068:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(14507);if(r)goto S_17068;} +do{ +*__INTEGER_ARRAYDESC= 0 ; +if(!qbevent)break;evnt(14508);}while(r); +S_17070:; +if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ +if(qbevent){evnt(14509);if(r)goto S_17070;} +do{ +*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(qbs_add(_FUNC_DIM2_STRING_VARNAME,qbs_new_txt_len("$",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14510);}while(r); +S_17072:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(14511);if(r)goto S_17072;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(14511);}while(r); +} +S_17075:; +while((*_FUNC_DIM2_LONG_TRY)||new_error){ +if(qbevent){evnt(14512);if(r)goto S_17075;} +S_17076:; +if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ +if(qbevent){evnt(14513);if(r)goto S_17076;} +do{ +qbs_set(_FUNC_DIM2_STRING_L,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14514);}while(r); +do{ +*__INTEGER_ARRAYDESC=*__LONG_CURRENTID; +if(!qbevent)break;evnt(14515);}while(r); +do{ +qbs_set(_FUNC_DIM2_STRING_SCOPE2,FUNC_SCOPE()); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14515);}while(r); +do{ +goto dl_exit_2393; +if(!qbevent)break;evnt(14516);}while(r); +} +S_17082:; +if ((-(*_FUNC_DIM2_LONG_TRY== 2 ))||new_error){ +if(qbevent){evnt(14518);if(r)goto S_17082;} +do{ +*__INTEGER_FINDANOTHERID= 1 ; +if(!qbevent)break;evnt(14518);}while(r); +do{ +*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(qbs_add(_FUNC_DIM2_STRING_VARNAME,qbs_new_txt_len("$",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14518);}while(r); +}else{ +do{ +*_FUNC_DIM2_LONG_TRY= 0 ; +if(!qbevent)break;evnt(14518);}while(r); +} +S_17088:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(14519);if(r)goto S_17088;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(14519);}while(r); +} +dl_continue_2393:; +} +dl_exit_2393:; +} +do{ +qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_add(_FUNC_DIM2_STRING_SCOPE2,qbs_new_txt_len("ARRAY_",6)),_FUNC_DIM2_STRING_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14522);}while(r); +S_17094:; +if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ +if(qbevent){evnt(14528);if(r)goto S_17094;} +S_17095:; +if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_DIM2_STRING_ELEMENTS->len== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||new_error){ +if(qbevent){evnt(14530);if(r)goto S_17095;} +do{ +*__LONG_E=((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])]; +if(!qbevent)break;evnt(14531);}while(r); +S_17097:; +if ((*__LONG_E)||new_error){ +if(qbevent){evnt(14531);if(r)goto S_17097;} +do{ +qbs_set(_FUNC_DIM2_STRING_ELEMENTS,qbs_add(_FUNC_DIM2_STRING_ELEMENTS,FUNC_STR2(__LONG_E))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14531);}while(r); +} +} +do{ +*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,_FUNC_DIM2_LONG_BYTES,&(pass2395= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14533);}while(r); +S_17102:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(14534);if(r)goto S_17102;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(14534);}while(r); +} +do{ +qbs_set(_FUNC_DIM2_STRING_L,qbs_add(qbs_add(_FUNC_DIM2_STRING_L,__STRING1_SP),__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14535);}while(r); +S_17106:; +if ((*__INTEGER_ARRAYDESC)||new_error){ +if(qbevent){evnt(14536);if(r)goto S_17106;} +do{ +goto LABEL_DIM2EXITFUNC; +if(!qbevent)break;evnt(14536);}while(r); +} +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(14537);}while(r); +}else{ +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(14540);}while(r); +S_17112:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||new_error){ +if(qbevent){evnt(14541);if(r)goto S_17112;} +do{ +*_FUNC_DIM2_LONG_NUME= -1 ; +if(!qbevent)break;evnt(14542);}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2847))=*__LONG_GLINKID; +if(!qbevent)break;evnt(14543);}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(2851))=*__INTEGER_GLINKARG; +if(!qbevent)break;evnt(14544);}while(r); +}else{ +do{ +*_FUNC_DIM2_LONG_NUME=qbr(func_val(_FUNC_DIM2_STRING_ELEMENTS)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14546);}while(r); +} +} +do{ +*(int32*)(((char*)__UDT_ID)+(512))=*__LONG_STRINGTYPE+*__LONG_ISFIXEDLENGTH; +if(!qbevent)break;evnt(14550);}while(r); +S_17121:; +if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ +if(qbevent){evnt(14551);if(r)goto S_17121;} +do{ +*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISINCONVENTIONALMEMORY; +if(!qbevent)break;evnt(14551);}while(r); +} +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),_FUNC_DIM2_STRING_CVARNAME); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14552);}while(r); +S_17125:; +if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||new_error){ +if(qbevent){evnt(14553);if(r)goto S_17125;} +do{ +*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ; +if(!qbevent)break;evnt(14553);}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(518))= 1 ; +if(!qbevent)break;evnt(14553);}while(r); +} +do{ +*(int16*)(((char*)__UDT_ID)+(516))=*_FUNC_DIM2_LONG_NUME; +if(!qbevent)break;evnt(14555);}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),_FUNC_DIM2_STRING_N); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14556);}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(540))=*_FUNC_DIM2_LONG_BYTES; +if(!qbevent)break;evnt(14557);}while(r); +S_17132:; +if ((-(*_FUNC_DIM2_LONG_METHOD== 0 ))||new_error){ +if(qbevent){evnt(14558);if(r)goto S_17132;} +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(520)),8,1),qbs_add(qbs_new_txt_len("$",1),FUNC_STR2(_FUNC_DIM2_LONG_BYTES))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14559);}while(r); +} +S_17135:; +if ((-(*_FUNC_DIM2_LONG_METHOD== 1 ))||new_error){ +if(qbevent){evnt(14561);if(r)goto S_17135;} +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_add(qbs_new_txt_len("$",1),FUNC_STR2(_FUNC_DIM2_LONG_BYTES))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14562);}while(r); +} +do{ +SUB_REGID(); +if(!qbevent)break;evnt(14564);}while(r); +S_17139:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(14565);if(r)goto S_17139;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(14565);}while(r); +} +do{ +SUB_VWATCHVARIABLE(_FUNC_DIM2_STRING_N,&(pass2396= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14566);}while(r); +do{ +goto LABEL_DIM2EXITFUNC; +if(!qbevent)break;evnt(14567);}while(r); +} +do{ +qbs_set(_FUNC_DIM2_STRING_N,qbs_add(_FUNC_DIM2_STRING_SCOPE2,_FUNC_DIM2_STRING_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14571);}while(r); +S_17146:; +if ((*_FUNC_DIM2_LONG_F)||new_error){ +if(qbevent){evnt(14572);if(r)goto S_17146;} +do{ +SUB_WRITEBUFLINE(__INTEGER_DEFDATAHANDLE,qbs_add(qbs_add(qbs_new_txt_len("qbs *",5),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=NULL;",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14572);}while(r); +} +S_17149:; +if ((*_FUNC_DIM2_LONG_F)||new_error){ +if(qbevent){evnt(14573);if(r)goto S_17149;} +do{ +SUB_WRITEBUFLINE(&(pass2397=*__LONG_FREETXTBUF),qbs_add(qbs_add(qbs_new_txt_len("qbs_free(",9),_FUNC_DIM2_STRING_N),qbs_new_txt_len(");",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14573);}while(r); +} +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(14574);}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),_FUNC_DIM2_STRING_CVARNAME); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14575);}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(536))=*__LONG_STRINGTYPE+*__LONG_ISFIXEDLENGTH; +if(!qbevent)break;evnt(14576);}while(r); +S_17155:; +if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ +if(qbevent){evnt(14577);if(r)goto S_17155;} +do{ +*(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISINCONVENTIONALMEMORY; +if(!qbevent)break;evnt(14578);}while(r); +S_17157:; +if ((*_FUNC_DIM2_LONG_F)||new_error){ +if(qbevent){evnt(14579);if(r)goto S_17157;} +do{ +SUB_WRITEBUFLINE(&(pass2398=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14579);}while(r); +} +S_17160:; +if ((*_FUNC_DIM2_LONG_F)||new_error){ +if(qbevent){evnt(14580);if(r)goto S_17160;} +do{ +SUB_WRITEBUFLINE(&(pass2399=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("cmem_sp-=",9),FUNC_STR2(_FUNC_DIM2_LONG_BYTES)),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14580);}while(r); +} +S_17163:; +if ((*_FUNC_DIM2_LONG_F)||new_error){ +if(qbevent){evnt(14581);if(r)goto S_17163;} +do{ +SUB_WRITEBUFLINE(&(pass2400=*__LONG_DATATXTBUF),qbs_new_txt_len("if (cmem_spchr,0,",8)),FUNC_STR2(_FUNC_DIM2_LONG_BYTES)),qbs_new_txt_len(");",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14583);}while(r); +} +S_17172:; +if ((*_FUNC_DIM2_LONG_F)||new_error){ +if(qbevent){evnt(14584);if(r)goto S_17172;} +do{ +SUB_WRITEBUFLINE(&(pass2403=*__LONG_DATATXTBUF),qbs_new_txt_len("}",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14584);}while(r); +} +}else{ +S_17176:; +if ((*_FUNC_DIM2_LONG_F)||new_error){ +if(qbevent){evnt(14586);if(r)goto S_17176;} +do{ +SUB_WRITEBUFLINE(&(pass2404=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14586);}while(r); +} +do{ +qbs_set(_FUNC_DIM2_STRING_O,qbs_add(qbs_add(qbs_new_txt_len("(uint8*)mem_static_malloc(",26),FUNC_STR2(_FUNC_DIM2_LONG_BYTES)),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14587);}while(r); +S_17180:; +if ((*_FUNC_DIM2_LONG_F)||new_error){ +if(qbevent){evnt(14588);if(r)goto S_17180;} +do{ +SUB_WRITEBUFLINE(&(pass2405=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("=qbs_new_fixed(",15)),_FUNC_DIM2_STRING_O),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_DIM2_LONG_BYTES)),qbs_new_txt_len(",0);",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14588);}while(r); +} +S_17183:; +if ((*_FUNC_DIM2_LONG_F)||new_error){ +if(qbevent){evnt(14589);if(r)goto S_17183;} +do{ +SUB_WRITEBUFLINE(&(pass2406=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("memset(",7),_FUNC_DIM2_STRING_N),qbs_new_txt_len("->chr,0,",8)),FUNC_STR2(_FUNC_DIM2_LONG_BYTES)),qbs_new_txt_len(");",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14589);}while(r); +} +S_17186:; +if ((*_FUNC_DIM2_LONG_F)||new_error){ +if(qbevent){evnt(14590);if(r)goto S_17186;} +do{ +SUB_WRITEBUFLINE(&(pass2407=*__LONG_DATATXTBUF),qbs_new_txt_len("}",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14590);}while(r); +} +} +do{ +*(int32*)(((char*)__UDT_ID)+(540))=*_FUNC_DIM2_LONG_BYTES; +if(!qbevent)break;evnt(14592);}while(r); +S_17191:; +if ((-(*_FUNC_DIM2_LONG_METHOD== 0 ))||new_error){ +if(qbevent){evnt(14593);if(r)goto S_17191;} +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(520)),8,1),qbs_add(qbs_new_txt_len("$",1),FUNC_STR2(_FUNC_DIM2_LONG_BYTES))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14594);}while(r); +} +S_17194:; +if ((-(*_FUNC_DIM2_LONG_METHOD== 1 ))||new_error){ +if(qbevent){evnt(14596);if(r)goto S_17194;} +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_add(qbs_new_txt_len("$",1),FUNC_STR2(_FUNC_DIM2_LONG_BYTES))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14597);}while(r); +} +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),_FUNC_DIM2_STRING_N); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14599);}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(14600);}while(r); +do{ +SUB_VWATCHVARIABLE(_FUNC_DIM2_STRING_N,&(pass2408= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14601);}while(r); +S_17200:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(14602);if(r)goto S_17200;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(14602);}while(r); +} +do{ +goto LABEL_DIM2EXITFUNC; +if(!qbevent)break;evnt(14603);}while(r); +} +do{ +qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_new_txt_len("STRING_",7),_FUNC_DIM2_STRING_VARNAME)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14607);}while(r); +S_17206:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(14610);if(r)goto S_17206;} +do{ +*__INTEGER_ARRAYDESC= 0 ; +if(!qbevent)break;evnt(14611);}while(r); +S_17208:; +if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ +if(qbevent){evnt(14612);if(r)goto S_17208;} +do{ +*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(qbs_add(_FUNC_DIM2_STRING_VARNAME,qbs_new_txt_len("$",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14613);}while(r); +S_17210:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(14614);if(r)goto S_17210;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(14614);}while(r); +} +S_17213:; +while((*_FUNC_DIM2_LONG_TRY)||new_error){ +if(qbevent){evnt(14615);if(r)goto S_17213;} +S_17214:; +if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ +if(qbevent){evnt(14616);if(r)goto S_17214;} +do{ +qbs_set(_FUNC_DIM2_STRING_L,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14617);}while(r); +do{ +*__INTEGER_ARRAYDESC=*__LONG_CURRENTID; +if(!qbevent)break;evnt(14618);}while(r); +do{ +qbs_set(_FUNC_DIM2_STRING_SCOPE2,FUNC_SCOPE()); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14618);}while(r); +do{ +goto dl_exit_2409; +if(!qbevent)break;evnt(14619);}while(r); +} +S_17220:; +if ((-(*_FUNC_DIM2_LONG_TRY== 2 ))||new_error){ +if(qbevent){evnt(14621);if(r)goto S_17220;} +do{ +*__INTEGER_FINDANOTHERID= 1 ; +if(!qbevent)break;evnt(14621);}while(r); +do{ +*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(qbs_add(_FUNC_DIM2_STRING_VARNAME,qbs_new_txt_len("$",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14621);}while(r); +}else{ +do{ +*_FUNC_DIM2_LONG_TRY= 0 ; +if(!qbevent)break;evnt(14621);}while(r); +} +S_17226:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(14622);if(r)goto S_17226;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(14622);}while(r); +} +dl_continue_2409:; +} +dl_exit_2409:; +} +do{ +qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_add(_FUNC_DIM2_STRING_SCOPE2,qbs_new_txt_len("ARRAY_",6)),_FUNC_DIM2_STRING_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14625);}while(r); +S_17232:; +if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ +if(qbevent){evnt(14631);if(r)goto S_17232;} +S_17233:; +if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_DIM2_STRING_ELEMENTS->len== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||new_error){ +if(qbevent){evnt(14633);if(r)goto S_17233;} +do{ +*__LONG_E=((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])]; +if(!qbevent)break;evnt(14634);}while(r); +S_17235:; +if ((*__LONG_E)||new_error){ +if(qbevent){evnt(14634);if(r)goto S_17235;} +do{ +qbs_set(_FUNC_DIM2_STRING_ELEMENTS,qbs_add(_FUNC_DIM2_STRING_ELEMENTS,FUNC_STR2(__LONG_E))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14634);}while(r); +} +} +do{ +*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass2411= -2147483647 ),&(pass2412= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14636);}while(r); +S_17240:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(14637);if(r)goto S_17240;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(14637);}while(r); +} +do{ +qbs_set(_FUNC_DIM2_STRING_L,qbs_add(qbs_add(_FUNC_DIM2_STRING_L,__STRING1_SP),__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14638);}while(r); +S_17244:; +if ((*__INTEGER_ARRAYDESC)||new_error){ +if(qbevent){evnt(14639);if(r)goto S_17244;} +do{ +goto LABEL_DIM2EXITFUNC; +if(!qbevent)break;evnt(14639);}while(r); +} +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(14640);}while(r); +}else{ +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(14643);}while(r); +S_17250:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||new_error){ +if(qbevent){evnt(14644);if(r)goto S_17250;} +do{ +*_FUNC_DIM2_LONG_NUME= -1 ; +if(!qbevent)break;evnt(14645);}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2847))=*__LONG_GLINKID; +if(!qbevent)break;evnt(14646);}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(2851))=*__INTEGER_GLINKARG; +if(!qbevent)break;evnt(14647);}while(r); +}else{ +do{ +*_FUNC_DIM2_LONG_NUME=qbr(func_val(_FUNC_DIM2_STRING_ELEMENTS)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14649);}while(r); +} +} +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),_FUNC_DIM2_STRING_CVARNAME); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14653);}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(512))=*__LONG_STRINGTYPE; +if(!qbevent)break;evnt(14654);}while(r); +S_17260:; +if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ +if(qbevent){evnt(14655);if(r)goto S_17260;} +do{ +*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISINCONVENTIONALMEMORY; +if(!qbevent)break;evnt(14655);}while(r); +} +S_17263:; +if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||new_error){ +if(qbevent){evnt(14656);if(r)goto S_17263;} +do{ +*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ; +if(!qbevent)break;evnt(14656);}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(518))= 1 ; +if(!qbevent)break;evnt(14656);}while(r); +} +do{ +*(int16*)(((char*)__UDT_ID)+(516))=*_FUNC_DIM2_LONG_NUME; +if(!qbevent)break;evnt(14658);}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),_FUNC_DIM2_STRING_N); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14659);}while(r); +S_17269:; +if ((-(*_FUNC_DIM2_LONG_METHOD== 0 ))||new_error){ +if(qbevent){evnt(14660);if(r)goto S_17269;} +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(520)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14661);}while(r); +} +S_17272:; +if ((-(*_FUNC_DIM2_LONG_METHOD== 1 ))||new_error){ +if(qbevent){evnt(14663);if(r)goto S_17272;} +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14664);}while(r); +} +do{ +SUB_REGID(); +if(!qbevent)break;evnt(14666);}while(r); +S_17276:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(14667);if(r)goto S_17276;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(14667);}while(r); +} +do{ +SUB_VWATCHVARIABLE(_FUNC_DIM2_STRING_N,&(pass2413= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14668);}while(r); +do{ +goto LABEL_DIM2EXITFUNC; +if(!qbevent)break;evnt(14669);}while(r); +} +do{ +qbs_set(_FUNC_DIM2_STRING_N,qbs_add(_FUNC_DIM2_STRING_SCOPE2,_FUNC_DIM2_STRING_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14673);}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(14674);}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),_FUNC_DIM2_STRING_CVARNAME); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14675);}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(536))=*__LONG_STRINGTYPE; +if(!qbevent)break;evnt(14676);}while(r); +S_17286:; +if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ +if(qbevent){evnt(14677);if(r)goto S_17286;} +S_17287:; +if ((*_FUNC_DIM2_LONG_F)||new_error){ +if(qbevent){evnt(14678);if(r)goto S_17287;} +do{ +SUB_WRITEBUFLINE(__INTEGER_DEFDATAHANDLE,qbs_add(qbs_add(qbs_new_txt_len("qbs *",5),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=NULL;",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14678);}while(r); +} +S_17290:; +if ((*_FUNC_DIM2_LONG_F)||new_error){ +if(qbevent){evnt(14679);if(r)goto S_17290;} +do{ +SUB_WRITEBUFLINE(&(pass2414=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (!",5),_FUNC_DIM2_STRING_N),qbs_new_txt_len(")",1)),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=qbs_new_cmem(0,0);",19))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14679);}while(r); +} +do{ +*(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISINCONVENTIONALMEMORY; +if(!qbevent)break;evnt(14680);}while(r); +}else{ +S_17295:; +if ((*_FUNC_DIM2_LONG_F)||new_error){ +if(qbevent){evnt(14682);if(r)goto S_17295;} +do{ +SUB_WRITEBUFLINE(__INTEGER_DEFDATAHANDLE,qbs_add(qbs_add(qbs_new_txt_len("qbs *",5),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=NULL;",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14682);}while(r); +} +S_17298:; +if ((*_FUNC_DIM2_LONG_F)||new_error){ +if(qbevent){evnt(14683);if(r)goto S_17298;} +do{ +SUB_WRITEBUFLINE(&(pass2415=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (!",5),_FUNC_DIM2_STRING_N),qbs_new_txt_len(")",1)),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=qbs_new(0,0);",14))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14683);}while(r); +} +} +S_17302:; +if ((*_FUNC_DIM2_LONG_F)||new_error){ +if(qbevent){evnt(14685);if(r)goto S_17302;} +do{ +SUB_WRITEBUFLINE(&(pass2416=*__LONG_FREETXTBUF),qbs_add(qbs_add(qbs_new_txt_len("qbs_free(",9),_FUNC_DIM2_STRING_N),qbs_new_txt_len(");",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14685);}while(r); +} +S_17305:; +if ((-(*_FUNC_DIM2_LONG_METHOD== 0 ))||new_error){ +if(qbevent){evnt(14686);if(r)goto S_17305;} +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(520)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14687);}while(r); +} +S_17308:; +if ((-(*_FUNC_DIM2_LONG_METHOD== 1 ))||new_error){ +if(qbevent){evnt(14689);if(r)goto S_17308;} +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14690);}while(r); +} +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),_FUNC_DIM2_STRING_N); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14692);}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(14693);}while(r); +do{ +SUB_VWATCHVARIABLE(_FUNC_DIM2_STRING_N,&(pass2417= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14694);}while(r); +S_17314:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(14695);if(r)goto S_17314;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(14695);}while(r); +} +do{ +goto LABEL_DIM2EXITFUNC; +if(!qbevent)break;evnt(14696);}while(r); +} +S_17319:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(_FUNC_DIM2_STRING_TYP, 4 ),qbs_new_txt_len("_BIT",4)))|(((qbs_equal(qbs_left(_FUNC_DIM2_STRING_TYP, 3 ),qbs_new_txt_len("BIT",3)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ +if(qbevent){evnt(14699);if(r)goto S_17319;} +S_17320:; +if ((qbs_cleanup(qbs_tmp_base,((qbs_equal(qbs_left(_FUNC_DIM2_STRING_TYP, 4 ),qbs_new_txt_len("_BIT",4)))&(-(_FUNC_DIM2_STRING_TYP->len> 4 )))|((qbs_equal(qbs_left(_FUNC_DIM2_STRING_TYP, 3 ),qbs_new_txt_len("BIT",3)))&(-(_FUNC_DIM2_STRING_TYP->len> 3 )))))||new_error){ +if(qbevent){evnt(14700);if(r)goto S_17320;} +S_17321:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(qbs_left(_FUNC_DIM2_STRING_TYP, 7 ),qbs_new_txt_len("_BIT * ",7)))&(qbs_notequal(qbs_left(_FUNC_DIM2_STRING_TYP, 6 ),qbs_new_txt_len("BIT * ",6)))))||new_error){ +if(qbevent){evnt(14701);if(r)goto S_17321;} +do{ +SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Expected ",9),__STRING_QB64PREFIX),qbs_new_txt_len("BIT * number",12))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14701);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(14701);}while(r); +} +do{ +qbs_set(_FUNC_DIM2_STRING_C,func_mid(_FUNC_DIM2_STRING_TYP,func_instr(NULL,_FUNC_DIM2_STRING_TYP,qbs_new_txt_len(" * ",3),0)+ 3 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14702);}while(r); +S_17326:; +if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISUINTEGER(_FUNC_DIM2_STRING_C)== 0 )))||new_error){ +if(qbevent){evnt(14703);if(r)goto S_17326;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Number expected after *",23)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14703);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(14703);}while(r); +} +S_17330:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_DIM2_STRING_C->len> 2 )))||new_error){ +if(qbevent){evnt(14704);if(r)goto S_17330;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Cannot create a bit variable of size > 64 bits",46)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14704);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(14704);}while(r); +} +do{ +*_FUNC_DIM2_LONG_BITS=qbr(func_val(_FUNC_DIM2_STRING_C)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14705);}while(r); +S_17335:; +if ((-(*_FUNC_DIM2_LONG_BITS== 0 ))||new_error){ +if(qbevent){evnt(14706);if(r)goto S_17335;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Cannot create a bit variable of size 0 bits",43)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14706);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(14706);}while(r); +} +S_17339:; +if ((-(*_FUNC_DIM2_LONG_BITS> 64 ))||new_error){ +if(qbevent){evnt(14707);if(r)goto S_17339;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Cannot create a bit variable of size > 64 bits",46)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14707);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(14707);}while(r); +} +}else{ +do{ +*_FUNC_DIM2_LONG_BITS= 1 ; +if(!qbevent)break;evnt(14709);}while(r); +} +S_17346:; +if ((-(*_FUNC_DIM2_LONG_BITS<= 32 ))||new_error){ +if(qbevent){evnt(14711);if(r)goto S_17346;} +do{ +qbs_set(_FUNC_DIM2_STRING_CT,qbs_new_txt_len("int32",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14711);}while(r); +}else{ +do{ +qbs_set(_FUNC_DIM2_STRING_CT,qbs_new_txt_len("int64",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14711);}while(r); +} +S_17351:; +if ((*_FUNC_DIM2_LONG_UNSGN)||new_error){ +if(qbevent){evnt(14712);if(r)goto S_17351;} +do{ +qbs_set(_FUNC_DIM2_STRING_N,qbs_new_txt_len("U",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14712);}while(r); +do{ +qbs_set(_FUNC_DIM2_STRING_CT,qbs_add(qbs_new_txt_len("u",1),_FUNC_DIM2_STRING_CT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14712);}while(r); +} +do{ +qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("BIT",3)),FUNC_STR2(_FUNC_DIM2_LONG_BITS)),qbs_new_txt_len("_",1)),_FUNC_DIM2_STRING_VARNAME)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14713);}while(r); +S_17356:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(14716);if(r)goto S_17356;} +S_17357:; +if ((-(*_FUNC_DIM2_LONG_BITS> 63 ))||new_error){ +if(qbevent){evnt(14717);if(r)goto S_17357;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Cannot create a bit array of size > 63 bits",43)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14717);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(14717);}while(r); +} +do{ +*__INTEGER_ARRAYDESC= 0 ; +if(!qbevent)break;evnt(14718);}while(r); +do{ +qbs_set(_FUNC_DIM2_STRING_CMPS,_FUNC_DIM2_STRING_VARNAME); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14719);}while(r); +S_17363:; +if ((*_FUNC_DIM2_LONG_UNSGN)||new_error){ +if(qbevent){evnt(14719);if(r)goto S_17363;} +do{ +qbs_set(_FUNC_DIM2_STRING_CMPS,qbs_add(_FUNC_DIM2_STRING_CMPS,qbs_new_txt_len("~",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14719);}while(r); +} +do{ +qbs_set(_FUNC_DIM2_STRING_CMPS,qbs_add(qbs_add(_FUNC_DIM2_STRING_CMPS,qbs_new_txt_len("`",1)),FUNC_STR2(_FUNC_DIM2_LONG_BITS))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14720);}while(r); +S_17367:; +if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ +if(qbevent){evnt(14721);if(r)goto S_17367;} +do{ +*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_CMPS); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14722);}while(r); +S_17369:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(14723);if(r)goto S_17369;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(14723);}while(r); +} +S_17372:; +while((*_FUNC_DIM2_LONG_TRY)||new_error){ +if(qbevent){evnt(14724);if(r)goto S_17372;} +S_17373:; +if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ +if(qbevent){evnt(14725);if(r)goto S_17373;} +do{ +qbs_set(_FUNC_DIM2_STRING_L,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14726);}while(r); +do{ +*__INTEGER_ARRAYDESC=*__LONG_CURRENTID; +if(!qbevent)break;evnt(14727);}while(r); +do{ +qbs_set(_FUNC_DIM2_STRING_SCOPE2,FUNC_SCOPE()); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14727);}while(r); +do{ +goto dl_exit_2421; +if(!qbevent)break;evnt(14728);}while(r); +} +S_17379:; +if ((-(*_FUNC_DIM2_LONG_TRY== 2 ))||new_error){ +if(qbevent){evnt(14730);if(r)goto S_17379;} +do{ +*__INTEGER_FINDANOTHERID= 1 ; +if(!qbevent)break;evnt(14730);}while(r); +do{ +*_FUNC_DIM2_LONG_TRY=FUNC_FINDID(_FUNC_DIM2_STRING_CMPS); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14730);}while(r); +}else{ +do{ +*_FUNC_DIM2_LONG_TRY= 0 ; +if(!qbevent)break;evnt(14730);}while(r); +} +S_17385:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(14731);if(r)goto S_17385;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(14731);}while(r); +} +dl_continue_2421:; +} +dl_exit_2421:; +} +do{ +qbs_set(_FUNC_DIM2_STRING_N,qbs_add(qbs_add(_FUNC_DIM2_STRING_SCOPE2,qbs_new_txt_len("ARRAY_",6)),_FUNC_DIM2_STRING_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14734);}while(r); +S_17391:; +if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ +if(qbevent){evnt(14740);if(r)goto S_17391;} +S_17392:; +if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_DIM2_STRING_ELEMENTS->len== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||new_error){ +if(qbevent){evnt(14742);if(r)goto S_17392;} +do{ +*__LONG_E=((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])]; +if(!qbevent)break;evnt(14743);}while(r); +S_17394:; +if ((*__LONG_E)||new_error){ +if(qbevent){evnt(14743);if(r)goto S_17394;} +do{ +qbs_set(_FUNC_DIM2_STRING_ELEMENTS,qbs_add(_FUNC_DIM2_STRING_ELEMENTS,FUNC_STR2(__LONG_E))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14743);}while(r); +} +} +do{ +*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass2423=-(*_FUNC_DIM2_LONG_BITS)),&(pass2424= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14745);}while(r); +S_17399:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(14746);if(r)goto S_17399;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(14746);}while(r); +} +do{ +qbs_set(_FUNC_DIM2_STRING_L,qbs_add(qbs_add(_FUNC_DIM2_STRING_L,__STRING1_SP),__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14747);}while(r); +S_17403:; +if ((*__INTEGER_ARRAYDESC)||new_error){ +if(qbevent){evnt(14748);if(r)goto S_17403;} +do{ +goto LABEL_DIM2EXITFUNC; +if(!qbevent)break;evnt(14748);}while(r); +} +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(14749);}while(r); +}else{ +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(14752);}while(r); +S_17409:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||new_error){ +if(qbevent){evnt(14753);if(r)goto S_17409;} +do{ +*_FUNC_DIM2_LONG_NUME= -1 ; +if(!qbevent)break;evnt(14754);}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2847))=*__LONG_GLINKID; +if(!qbevent)break;evnt(14755);}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(2851))=*__INTEGER_GLINKARG; +if(!qbevent)break;evnt(14756);}while(r); +}else{ +do{ +*_FUNC_DIM2_LONG_NUME=qbr(func_val(_FUNC_DIM2_STRING_ELEMENTS)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14758);}while(r); +} +} +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),_FUNC_DIM2_STRING_CVARNAME); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14762);}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(512))=*__LONG_BITTYPE- 1 +*_FUNC_DIM2_LONG_BITS; +if(!qbevent)break;evnt(14763);}while(r); +S_17419:; +if ((*_FUNC_DIM2_LONG_UNSGN)||new_error){ +if(qbevent){evnt(14764);if(r)goto S_17419;} +do{ +*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISUNSIGNED; +if(!qbevent)break;evnt(14764);}while(r); +} +S_17422:; +if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ +if(qbevent){evnt(14765);if(r)goto S_17422;} +do{ +*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISINCONVENTIONALMEMORY; +if(!qbevent)break;evnt(14765);}while(r); +} +S_17425:; +if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||new_error){ +if(qbevent){evnt(14766);if(r)goto S_17425;} +do{ +*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ; +if(!qbevent)break;evnt(14766);}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(518))= 1 ; +if(!qbevent)break;evnt(14766);}while(r); +} +do{ +*(int16*)(((char*)__UDT_ID)+(516))=*_FUNC_DIM2_LONG_NUME; +if(!qbevent)break;evnt(14768);}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),_FUNC_DIM2_STRING_N); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14769);}while(r); +S_17431:; +if ((-(*_FUNC_DIM2_LONG_METHOD== 0 ))||new_error){ +if(qbevent){evnt(14770);if(r)goto S_17431;} +S_17432:; +if ((*_FUNC_DIM2_LONG_UNSGN)||new_error){ +if(qbevent){evnt(14771);if(r)goto S_17432;} +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(520)),8,1),qbs_add(qbs_new_txt_len("~`",2),FUNC_STR2(_FUNC_DIM2_LONG_BITS))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14771);}while(r); +}else{ +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(520)),8,1),qbs_add(qbs_new_txt_len("`",1),FUNC_STR2(_FUNC_DIM2_LONG_BITS))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14771);}while(r); +} +} +S_17438:; +if ((-(*_FUNC_DIM2_LONG_METHOD== 1 ))||new_error){ +if(qbevent){evnt(14773);if(r)goto S_17438;} +S_17439:; +if ((*_FUNC_DIM2_LONG_UNSGN)||new_error){ +if(qbevent){evnt(14774);if(r)goto S_17439;} +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_add(qbs_new_txt_len("~`",2),FUNC_STR2(_FUNC_DIM2_LONG_BITS))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14774);}while(r); +}else{ +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_add(qbs_new_txt_len("`",1),FUNC_STR2(_FUNC_DIM2_LONG_BITS))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14774);}while(r); +} +} +do{ +SUB_REGID(); +if(!qbevent)break;evnt(14776);}while(r); +S_17446:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(14777);if(r)goto S_17446;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(14777);}while(r); +} +do{ +SUB_VWATCHVARIABLE(_FUNC_DIM2_STRING_N,&(pass2425= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14778);}while(r); +do{ +goto LABEL_DIM2EXITFUNC; +if(!qbevent)break;evnt(14779);}while(r); +} +do{ +qbs_set(_FUNC_DIM2_STRING_N,qbs_add(_FUNC_DIM2_STRING_SCOPE2,_FUNC_DIM2_STRING_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14782);}while(r); +do{ +SUB_WRITEBUFLINE(__INTEGER_DEFDATAHANDLE,qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_CT,qbs_new_txt_len(" *",2)),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=NULL;",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14783);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass2426=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14784);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass2427=*__LONG_DATATXTBUF),qbs_new_txt_len("cmem_sp-=4;",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14785);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass2428=*__LONG_DATATXTBUF),qbs_new_txt_len("if (cmem_splen== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||new_error){ +if(qbevent){evnt(14836);if(r)goto S_17527;} +do{ +*__LONG_E=((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])]; +if(!qbevent)break;evnt(14837);}while(r); +S_17529:; +if ((*__LONG_E)||new_error){ +if(qbevent){evnt(14837);if(r)goto S_17529;} +do{ +qbs_set(_FUNC_DIM2_STRING_ELEMENTS,qbs_add(_FUNC_DIM2_STRING_ELEMENTS,FUNC_STR2(__LONG_E))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14837);}while(r); +} +} +do{ +*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass2435= 1 ),&(pass2436= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14839);}while(r); +S_17534:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(14840);if(r)goto S_17534;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(14840);}while(r); +} +do{ +qbs_set(_FUNC_DIM2_STRING_L,qbs_add(qbs_add(_FUNC_DIM2_STRING_L,__STRING1_SP),__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14841);}while(r); +S_17538:; +if ((*__INTEGER_ARRAYDESC)||new_error){ +if(qbevent){evnt(14842);if(r)goto S_17538;} +do{ +goto LABEL_DIM2EXITFUNC; +if(!qbevent)break;evnt(14842);}while(r); +} +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(14843);}while(r); +}else{ +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(14846);}while(r); +S_17544:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||new_error){ +if(qbevent){evnt(14847);if(r)goto S_17544;} +do{ +*_FUNC_DIM2_LONG_NUME= -1 ; +if(!qbevent)break;evnt(14848);}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2847))=*__LONG_GLINKID; +if(!qbevent)break;evnt(14849);}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(2851))=*__INTEGER_GLINKARG; +if(!qbevent)break;evnt(14850);}while(r); +}else{ +do{ +*_FUNC_DIM2_LONG_NUME=qbr(func_val(_FUNC_DIM2_STRING_ELEMENTS)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14852);}while(r); +} +} +do{ +*(int32*)(((char*)__UDT_ID)+(512))=*__LONG_BYTETYPE; +if(!qbevent)break;evnt(14856);}while(r); +S_17553:; +if ((*_FUNC_DIM2_LONG_UNSGN)||new_error){ +if(qbevent){evnt(14856);if(r)goto S_17553;} +do{ +*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISUNSIGNED; +if(!qbevent)break;evnt(14856);}while(r); +} +S_17556:; +if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ +if(qbevent){evnt(14857);if(r)goto S_17556;} +do{ +*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISINCONVENTIONALMEMORY; +if(!qbevent)break;evnt(14857);}while(r); +} +S_17559:; +if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||new_error){ +if(qbevent){evnt(14858);if(r)goto S_17559;} +do{ +*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ; +if(!qbevent)break;evnt(14858);}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(518))= 1 ; +if(!qbevent)break;evnt(14858);}while(r); +} +do{ +*(int16*)(((char*)__UDT_ID)+(516))=*_FUNC_DIM2_LONG_NUME; +if(!qbevent)break;evnt(14860);}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),_FUNC_DIM2_STRING_N); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14861);}while(r); +}else{ +do{ +qbs_set(_FUNC_DIM2_STRING_N,qbs_add(_FUNC_DIM2_STRING_SCOPE2,_FUNC_DIM2_STRING_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14863);}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(14864);}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(536))=*__LONG_BYTETYPE; +if(!qbevent)break;evnt(14865);}while(r); +S_17569:; +if ((*_FUNC_DIM2_LONG_UNSGN)||new_error){ +if(qbevent){evnt(14865);if(r)goto S_17569;} +do{ +*(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISUNSIGNED; +if(!qbevent)break;evnt(14865);}while(r); +} +S_17572:; +if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ +if(qbevent){evnt(14866);if(r)goto S_17572;} +do{ +SUB_WRITEBUFLINE(__INTEGER_DEFDATAHANDLE,qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_CT,qbs_new_txt_len(" *",2)),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=NULL;",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14866);}while(r); +} +S_17575:; +if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ +if(qbevent){evnt(14867);if(r)goto S_17575;} +do{ +SUB_WRITEBUFLINE(&(pass2437=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14867);}while(r); +} +S_17578:; +if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ +if(qbevent){evnt(14868);if(r)goto S_17578;} +do{ +*(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISINCONVENTIONALMEMORY; +if(!qbevent)break;evnt(14869);}while(r); +S_17580:; +if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ +if(qbevent){evnt(14870);if(r)goto S_17580;} +do{ +SUB_WRITEBUFLINE(&(pass2438=*__LONG_DATATXTBUF),qbs_new_txt_len("cmem_sp-=1;",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14870);}while(r); +} +S_17583:; +if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ +if(qbevent){evnt(14871);if(r)goto S_17583;} +do{ +SUB_WRITEBUFLINE(&(pass2439=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("=(",2)),_FUNC_DIM2_STRING_CT),qbs_new_txt_len("*)(dblock+cmem_sp);",19))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14871);}while(r); +} +S_17586:; +if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ +if(qbevent){evnt(14872);if(r)goto S_17586;} +do{ +SUB_WRITEBUFLINE(&(pass2440=*__LONG_DATATXTBUF),qbs_new_txt_len("if (cmem_splen== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||new_error){ +if(qbevent){evnt(14919);if(r)goto S_17663;} +do{ +*__LONG_E=((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])]; +if(!qbevent)break;evnt(14920);}while(r); +S_17665:; +if ((*__LONG_E)||new_error){ +if(qbevent){evnt(14920);if(r)goto S_17665;} +do{ +qbs_set(_FUNC_DIM2_STRING_ELEMENTS,qbs_add(_FUNC_DIM2_STRING_ELEMENTS,FUNC_STR2(__LONG_E))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14920);}while(r); +} +} +do{ +*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass2447= 2 ),&(pass2448= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14922);}while(r); +S_17670:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(14923);if(r)goto S_17670;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(14923);}while(r); +} +do{ +qbs_set(_FUNC_DIM2_STRING_L,qbs_add(qbs_add(_FUNC_DIM2_STRING_L,__STRING1_SP),__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14924);}while(r); +S_17674:; +if ((*__INTEGER_ARRAYDESC)||new_error){ +if(qbevent){evnt(14925);if(r)goto S_17674;} +do{ +goto LABEL_DIM2EXITFUNC; +if(!qbevent)break;evnt(14925);}while(r); +} +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(14926);}while(r); +}else{ +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(14929);}while(r); +S_17680:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||new_error){ +if(qbevent){evnt(14930);if(r)goto S_17680;} +do{ +*_FUNC_DIM2_LONG_NUME= -1 ; +if(!qbevent)break;evnt(14931);}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2847))=*__LONG_GLINKID; +if(!qbevent)break;evnt(14932);}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(2851))=*__INTEGER_GLINKARG; +if(!qbevent)break;evnt(14933);}while(r); +}else{ +do{ +*_FUNC_DIM2_LONG_NUME=qbr(func_val(_FUNC_DIM2_STRING_ELEMENTS)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14935);}while(r); +} +} +do{ +*(int32*)(((char*)__UDT_ID)+(512))=*__LONG_INTEGERTYPE; +if(!qbevent)break;evnt(14940);}while(r); +S_17689:; +if ((*_FUNC_DIM2_LONG_UNSGN)||new_error){ +if(qbevent){evnt(14940);if(r)goto S_17689;} +do{ +*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISUNSIGNED; +if(!qbevent)break;evnt(14940);}while(r); +} +S_17692:; +if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ +if(qbevent){evnt(14941);if(r)goto S_17692;} +do{ +*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISINCONVENTIONALMEMORY; +if(!qbevent)break;evnt(14941);}while(r); +} +S_17695:; +if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||new_error){ +if(qbevent){evnt(14942);if(r)goto S_17695;} +do{ +*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ; +if(!qbevent)break;evnt(14942);}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(518))= 1 ; +if(!qbevent)break;evnt(14942);}while(r); +} +do{ +*(int16*)(((char*)__UDT_ID)+(516))=*_FUNC_DIM2_LONG_NUME; +if(!qbevent)break;evnt(14944);}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),_FUNC_DIM2_STRING_N); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14945);}while(r); +}else{ +do{ +qbs_set(_FUNC_DIM2_STRING_N,qbs_add(_FUNC_DIM2_STRING_SCOPE2,_FUNC_DIM2_STRING_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14947);}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(14948);}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(536))=*__LONG_INTEGERTYPE; +if(!qbevent)break;evnt(14949);}while(r); +S_17705:; +if ((*_FUNC_DIM2_LONG_UNSGN)||new_error){ +if(qbevent){evnt(14949);if(r)goto S_17705;} +do{ +*(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISUNSIGNED; +if(!qbevent)break;evnt(14949);}while(r); +} +S_17708:; +if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ +if(qbevent){evnt(14950);if(r)goto S_17708;} +do{ +SUB_WRITEBUFLINE(__INTEGER_DEFDATAHANDLE,qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_CT,qbs_new_txt_len(" *",2)),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=NULL;",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14950);}while(r); +} +S_17711:; +if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ +if(qbevent){evnt(14951);if(r)goto S_17711;} +do{ +SUB_WRITEBUFLINE(&(pass2449=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14951);}while(r); +} +S_17714:; +if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ +if(qbevent){evnt(14952);if(r)goto S_17714;} +do{ +*(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISINCONVENTIONALMEMORY; +if(!qbevent)break;evnt(14953);}while(r); +S_17716:; +if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ +if(qbevent){evnt(14954);if(r)goto S_17716;} +do{ +SUB_WRITEBUFLINE(&(pass2450=*__LONG_DATATXTBUF),qbs_new_txt_len("cmem_sp-=2;",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14954);}while(r); +} +S_17719:; +if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ +if(qbevent){evnt(14955);if(r)goto S_17719;} +do{ +SUB_WRITEBUFLINE(&(pass2451=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("=(",2)),_FUNC_DIM2_STRING_CT),qbs_new_txt_len("*)(dblock+cmem_sp);",19))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(14955);}while(r); +} +S_17722:; +if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ +if(qbevent){evnt(14956);if(r)goto S_17722;} +do{ +SUB_WRITEBUFLINE(&(pass2452=*__LONG_DATATXTBUF),qbs_new_txt_len("if (cmem_splen== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||new_error){ +if(qbevent){evnt(15009);if(r)goto S_17799;} +do{ +*__LONG_E=((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])]; +if(!qbevent)break;evnt(15010);}while(r); +S_17801:; +if ((*__LONG_E)||new_error){ +if(qbevent){evnt(15010);if(r)goto S_17801;} +do{ +qbs_set(_FUNC_DIM2_STRING_ELEMENTS,qbs_add(_FUNC_DIM2_STRING_ELEMENTS,FUNC_STR2(__LONG_E))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15010);}while(r); +} +} +do{ +*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass2459=*__LONG_OS_BITS/ 8 ),&(pass2460= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15012);}while(r); +S_17806:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(15013);if(r)goto S_17806;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(15013);}while(r); +} +do{ +qbs_set(_FUNC_DIM2_STRING_L,qbs_add(qbs_add(_FUNC_DIM2_STRING_L,__STRING1_SP),__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15014);}while(r); +S_17810:; +if ((*__INTEGER_ARRAYDESC)||new_error){ +if(qbevent){evnt(15015);if(r)goto S_17810;} +do{ +goto LABEL_DIM2EXITFUNC; +if(!qbevent)break;evnt(15015);}while(r); +} +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(15016);}while(r); +}else{ +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(15019);}while(r); +S_17816:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||new_error){ +if(qbevent){evnt(15020);if(r)goto S_17816;} +do{ +*_FUNC_DIM2_LONG_NUME= -1 ; +if(!qbevent)break;evnt(15021);}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2847))=*__LONG_GLINKID; +if(!qbevent)break;evnt(15022);}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(2851))=*__INTEGER_GLINKARG; +if(!qbevent)break;evnt(15023);}while(r); +}else{ +do{ +*_FUNC_DIM2_LONG_NUME=qbr(func_val(_FUNC_DIM2_STRING_ELEMENTS)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15025);}while(r); +} +} +do{ +*(int32*)(((char*)__UDT_ID)+(512))=*__LONG_OFFSETTYPE; +if(!qbevent)break;evnt(15029);}while(r); +S_17825:; +if ((*_FUNC_DIM2_LONG_UNSGN)||new_error){ +if(qbevent){evnt(15029);if(r)goto S_17825;} +do{ +*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISUNSIGNED; +if(!qbevent)break;evnt(15029);}while(r); +} +S_17828:; +if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ +if(qbevent){evnt(15030);if(r)goto S_17828;} +do{ +*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISINCONVENTIONALMEMORY; +if(!qbevent)break;evnt(15030);}while(r); +} +S_17831:; +if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||new_error){ +if(qbevent){evnt(15031);if(r)goto S_17831;} +do{ +*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ; +if(!qbevent)break;evnt(15031);}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(518))= 1 ; +if(!qbevent)break;evnt(15031);}while(r); +} +do{ +*(int16*)(((char*)__UDT_ID)+(516))=*_FUNC_DIM2_LONG_NUME; +if(!qbevent)break;evnt(15033);}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),_FUNC_DIM2_STRING_N); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15034);}while(r); +}else{ +do{ +qbs_set(_FUNC_DIM2_STRING_N,qbs_add(_FUNC_DIM2_STRING_SCOPE2,_FUNC_DIM2_STRING_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15036);}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(15037);}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(536))=*__LONG_OFFSETTYPE; +if(!qbevent)break;evnt(15038);}while(r); +S_17841:; +if ((*_FUNC_DIM2_LONG_UNSGN)||new_error){ +if(qbevent){evnt(15038);if(r)goto S_17841;} +do{ +*(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISUNSIGNED; +if(!qbevent)break;evnt(15038);}while(r); +} +S_17844:; +if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ +if(qbevent){evnt(15039);if(r)goto S_17844;} +do{ +SUB_WRITEBUFLINE(__INTEGER_DEFDATAHANDLE,qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_CT,qbs_new_txt_len(" *",2)),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=NULL;",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15039);}while(r); +} +S_17847:; +if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ +if(qbevent){evnt(15040);if(r)goto S_17847;} +do{ +SUB_WRITEBUFLINE(&(pass2461=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15040);}while(r); +} +S_17850:; +if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ +if(qbevent){evnt(15041);if(r)goto S_17850;} +do{ +*(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISINCONVENTIONALMEMORY; +if(!qbevent)break;evnt(15042);}while(r); +S_17852:; +if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ +if(qbevent){evnt(15043);if(r)goto S_17852;} +do{ +SUB_WRITEBUFLINE(&(pass2462=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("cmem_sp-=",9),FUNC_STR2(&(pass2463=*__LONG_OS_BITS/ 8 ))),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15043);}while(r); +} +S_17855:; +if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ +if(qbevent){evnt(15044);if(r)goto S_17855;} +do{ +SUB_WRITEBUFLINE(&(pass2464=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("=(",2)),_FUNC_DIM2_STRING_CT),qbs_new_txt_len("*)(dblock+cmem_sp);",19))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15044);}while(r); +} +S_17858:; +if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ +if(qbevent){evnt(15045);if(r)goto S_17858;} +do{ +SUB_WRITEBUFLINE(&(pass2465=*__LONG_DATATXTBUF),qbs_new_txt_len("if (cmem_splen== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||new_error){ +if(qbevent){evnt(15095);if(r)goto S_17935;} +do{ +*__LONG_E=((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])]; +if(!qbevent)break;evnt(15096);}while(r); +S_17937:; +if ((*__LONG_E)||new_error){ +if(qbevent){evnt(15096);if(r)goto S_17937;} +do{ +qbs_set(_FUNC_DIM2_STRING_ELEMENTS,qbs_add(_FUNC_DIM2_STRING_ELEMENTS,FUNC_STR2(__LONG_E))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15096);}while(r); +} +} +do{ +*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass2473= 4 ),&(pass2474= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15098);}while(r); +S_17942:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(15099);if(r)goto S_17942;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(15099);}while(r); +} +do{ +qbs_set(_FUNC_DIM2_STRING_L,qbs_add(qbs_add(_FUNC_DIM2_STRING_L,__STRING1_SP),__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15100);}while(r); +S_17946:; +if ((*__INTEGER_ARRAYDESC)||new_error){ +if(qbevent){evnt(15101);if(r)goto S_17946;} +do{ +goto LABEL_DIM2EXITFUNC; +if(!qbevent)break;evnt(15101);}while(r); +} +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(15102);}while(r); +}else{ +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(15105);}while(r); +S_17952:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||new_error){ +if(qbevent){evnt(15106);if(r)goto S_17952;} +do{ +*_FUNC_DIM2_LONG_NUME= -1 ; +if(!qbevent)break;evnt(15107);}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2847))=*__LONG_GLINKID; +if(!qbevent)break;evnt(15108);}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(2851))=*__INTEGER_GLINKARG; +if(!qbevent)break;evnt(15109);}while(r); +}else{ +do{ +*_FUNC_DIM2_LONG_NUME=qbr(func_val(_FUNC_DIM2_STRING_ELEMENTS)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15111);}while(r); +} +} +do{ +*(int32*)(((char*)__UDT_ID)+(512))=*__LONG_LONGTYPE; +if(!qbevent)break;evnt(15115);}while(r); +S_17961:; +if ((*_FUNC_DIM2_LONG_UNSGN)||new_error){ +if(qbevent){evnt(15115);if(r)goto S_17961;} +do{ +*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISUNSIGNED; +if(!qbevent)break;evnt(15115);}while(r); +} +S_17964:; +if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ +if(qbevent){evnt(15116);if(r)goto S_17964;} +do{ +*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISINCONVENTIONALMEMORY; +if(!qbevent)break;evnt(15116);}while(r); +} +S_17967:; +if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||new_error){ +if(qbevent){evnt(15117);if(r)goto S_17967;} +do{ +*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ; +if(!qbevent)break;evnt(15117);}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(518))= 1 ; +if(!qbevent)break;evnt(15117);}while(r); +} +do{ +*(int16*)(((char*)__UDT_ID)+(516))=*_FUNC_DIM2_LONG_NUME; +if(!qbevent)break;evnt(15119);}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),_FUNC_DIM2_STRING_N); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15120);}while(r); +}else{ +do{ +qbs_set(_FUNC_DIM2_STRING_N,qbs_add(_FUNC_DIM2_STRING_SCOPE2,_FUNC_DIM2_STRING_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15122);}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(15123);}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(536))=*__LONG_LONGTYPE; +if(!qbevent)break;evnt(15124);}while(r); +S_17977:; +if ((*_FUNC_DIM2_LONG_UNSGN)||new_error){ +if(qbevent){evnt(15124);if(r)goto S_17977;} +do{ +*(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISUNSIGNED; +if(!qbevent)break;evnt(15124);}while(r); +} +S_17980:; +if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ +if(qbevent){evnt(15125);if(r)goto S_17980;} +do{ +SUB_WRITEBUFLINE(__INTEGER_DEFDATAHANDLE,qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_CT,qbs_new_txt_len(" *",2)),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=NULL;",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15125);}while(r); +} +S_17983:; +if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ +if(qbevent){evnt(15126);if(r)goto S_17983;} +do{ +SUB_WRITEBUFLINE(&(pass2475=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15126);}while(r); +} +S_17986:; +if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ +if(qbevent){evnt(15127);if(r)goto S_17986;} +do{ +*(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISINCONVENTIONALMEMORY; +if(!qbevent)break;evnt(15128);}while(r); +S_17988:; +if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ +if(qbevent){evnt(15129);if(r)goto S_17988;} +do{ +SUB_WRITEBUFLINE(&(pass2476=*__LONG_DATATXTBUF),qbs_new_txt_len("cmem_sp-=4;",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15129);}while(r); +} +S_17991:; +if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ +if(qbevent){evnt(15130);if(r)goto S_17991;} +do{ +SUB_WRITEBUFLINE(&(pass2477=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("=(",2)),_FUNC_DIM2_STRING_CT),qbs_new_txt_len("*)(dblock+cmem_sp);",19))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15130);}while(r); +} +S_17994:; +if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ +if(qbevent){evnt(15131);if(r)goto S_17994;} +do{ +SUB_WRITEBUFLINE(&(pass2478=*__LONG_DATATXTBUF),qbs_new_txt_len("if (cmem_splen== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||new_error){ +if(qbevent){evnt(15181);if(r)goto S_18071;} +do{ +*__LONG_E=((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])]; +if(!qbevent)break;evnt(15182);}while(r); +S_18073:; +if ((*__LONG_E)||new_error){ +if(qbevent){evnt(15182);if(r)goto S_18073;} +do{ +qbs_set(_FUNC_DIM2_STRING_ELEMENTS,qbs_add(_FUNC_DIM2_STRING_ELEMENTS,FUNC_STR2(__LONG_E))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15182);}while(r); +} +} +do{ +*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass2485= 8 ),&(pass2486= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15184);}while(r); +S_18078:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(15185);if(r)goto S_18078;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(15185);}while(r); +} +do{ +qbs_set(_FUNC_DIM2_STRING_L,qbs_add(qbs_add(_FUNC_DIM2_STRING_L,__STRING1_SP),__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15186);}while(r); +S_18082:; +if ((*__INTEGER_ARRAYDESC)||new_error){ +if(qbevent){evnt(15187);if(r)goto S_18082;} +do{ +goto LABEL_DIM2EXITFUNC; +if(!qbevent)break;evnt(15187);}while(r); +} +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(15188);}while(r); +}else{ +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(15191);}while(r); +S_18088:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||new_error){ +if(qbevent){evnt(15192);if(r)goto S_18088;} +do{ +*_FUNC_DIM2_LONG_NUME= -1 ; +if(!qbevent)break;evnt(15193);}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2847))=*__LONG_GLINKID; +if(!qbevent)break;evnt(15194);}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(2851))=*__INTEGER_GLINKARG; +if(!qbevent)break;evnt(15195);}while(r); +}else{ +do{ +*_FUNC_DIM2_LONG_NUME=qbr(func_val(_FUNC_DIM2_STRING_ELEMENTS)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15197);}while(r); +} +} +do{ +*(int32*)(((char*)__UDT_ID)+(512))=*__LONG_INTEGER64TYPE; +if(!qbevent)break;evnt(15201);}while(r); +S_18097:; +if ((*_FUNC_DIM2_LONG_UNSGN)||new_error){ +if(qbevent){evnt(15201);if(r)goto S_18097;} +do{ +*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISUNSIGNED; +if(!qbevent)break;evnt(15201);}while(r); +} +S_18100:; +if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ +if(qbevent){evnt(15202);if(r)goto S_18100;} +do{ +*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISINCONVENTIONALMEMORY; +if(!qbevent)break;evnt(15202);}while(r); +} +S_18103:; +if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||new_error){ +if(qbevent){evnt(15203);if(r)goto S_18103;} +do{ +*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ; +if(!qbevent)break;evnt(15203);}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(518))= 1 ; +if(!qbevent)break;evnt(15203);}while(r); +} +do{ +*(int16*)(((char*)__UDT_ID)+(516))=*_FUNC_DIM2_LONG_NUME; +if(!qbevent)break;evnt(15205);}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),_FUNC_DIM2_STRING_N); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15206);}while(r); +}else{ +do{ +qbs_set(_FUNC_DIM2_STRING_N,qbs_add(_FUNC_DIM2_STRING_SCOPE2,_FUNC_DIM2_STRING_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15208);}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(15209);}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(536))=*__LONG_INTEGER64TYPE; +if(!qbevent)break;evnt(15210);}while(r); +S_18113:; +if ((*_FUNC_DIM2_LONG_UNSGN)||new_error){ +if(qbevent){evnt(15210);if(r)goto S_18113;} +do{ +*(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISUNSIGNED; +if(!qbevent)break;evnt(15210);}while(r); +} +S_18116:; +if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ +if(qbevent){evnt(15211);if(r)goto S_18116;} +do{ +SUB_WRITEBUFLINE(__INTEGER_DEFDATAHANDLE,qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_CT,qbs_new_txt_len(" *",2)),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=NULL;",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15211);}while(r); +} +S_18119:; +if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ +if(qbevent){evnt(15212);if(r)goto S_18119;} +do{ +SUB_WRITEBUFLINE(&(pass2487=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15212);}while(r); +} +S_18122:; +if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ +if(qbevent){evnt(15213);if(r)goto S_18122;} +do{ +*(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISINCONVENTIONALMEMORY; +if(!qbevent)break;evnt(15214);}while(r); +S_18124:; +if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ +if(qbevent){evnt(15215);if(r)goto S_18124;} +do{ +SUB_WRITEBUFLINE(&(pass2488=*__LONG_DATATXTBUF),qbs_new_txt_len("cmem_sp-=8;",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15215);}while(r); +} +S_18127:; +if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ +if(qbevent){evnt(15216);if(r)goto S_18127;} +do{ +SUB_WRITEBUFLINE(&(pass2489=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("=(",2)),_FUNC_DIM2_STRING_CT),qbs_new_txt_len("*)(dblock+cmem_sp);",19))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15216);}while(r); +} +S_18130:; +if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ +if(qbevent){evnt(15217);if(r)goto S_18130;} +do{ +SUB_WRITEBUFLINE(&(pass2490=*__LONG_DATATXTBUF),qbs_new_txt_len("if (cmem_splen== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||new_error){ +if(qbevent){evnt(15267);if(r)goto S_18203;} +do{ +*__LONG_E=((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])]; +if(!qbevent)break;evnt(15268);}while(r); +S_18205:; +if ((*__LONG_E)||new_error){ +if(qbevent){evnt(15268);if(r)goto S_18205;} +do{ +qbs_set(_FUNC_DIM2_STRING_ELEMENTS,qbs_add(_FUNC_DIM2_STRING_ELEMENTS,FUNC_STR2(__LONG_E))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15268);}while(r); +} +} +do{ +*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass2497= 4 ),&(pass2498= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15270);}while(r); +S_18210:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(15271);if(r)goto S_18210;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(15271);}while(r); +} +do{ +qbs_set(_FUNC_DIM2_STRING_L,qbs_add(qbs_add(_FUNC_DIM2_STRING_L,__STRING1_SP),__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15272);}while(r); +S_18214:; +if ((*__INTEGER_ARRAYDESC)||new_error){ +if(qbevent){evnt(15273);if(r)goto S_18214;} +do{ +goto LABEL_DIM2EXITFUNC; +if(!qbevent)break;evnt(15273);}while(r); +} +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(15274);}while(r); +}else{ +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(15277);}while(r); +S_18220:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||new_error){ +if(qbevent){evnt(15278);if(r)goto S_18220;} +do{ +*_FUNC_DIM2_LONG_NUME= -1 ; +if(!qbevent)break;evnt(15279);}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2847))=*__LONG_GLINKID; +if(!qbevent)break;evnt(15280);}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(2851))=*__INTEGER_GLINKARG; +if(!qbevent)break;evnt(15281);}while(r); +}else{ +do{ +*_FUNC_DIM2_LONG_NUME=qbr(func_val(_FUNC_DIM2_STRING_ELEMENTS)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15283);}while(r); +} +} +do{ +*(int32*)(((char*)__UDT_ID)+(512))=*__LONG_SINGLETYPE; +if(!qbevent)break;evnt(15287);}while(r); +S_18229:; +if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ +if(qbevent){evnt(15288);if(r)goto S_18229;} +do{ +*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISINCONVENTIONALMEMORY; +if(!qbevent)break;evnt(15288);}while(r); +} +S_18232:; +if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||new_error){ +if(qbevent){evnt(15289);if(r)goto S_18232;} +do{ +*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ; +if(!qbevent)break;evnt(15289);}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(518))= 1 ; +if(!qbevent)break;evnt(15289);}while(r); +} +do{ +*(int16*)(((char*)__UDT_ID)+(516))=*_FUNC_DIM2_LONG_NUME; +if(!qbevent)break;evnt(15291);}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),_FUNC_DIM2_STRING_N); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15292);}while(r); +}else{ +do{ +qbs_set(_FUNC_DIM2_STRING_N,qbs_add(_FUNC_DIM2_STRING_SCOPE2,_FUNC_DIM2_STRING_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15294);}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(15295);}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(536))=*__LONG_SINGLETYPE; +if(!qbevent)break;evnt(15296);}while(r); +S_18242:; +if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ +if(qbevent){evnt(15297);if(r)goto S_18242;} +do{ +SUB_WRITEBUFLINE(__INTEGER_DEFDATAHANDLE,qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_CT,qbs_new_txt_len(" *",2)),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=NULL;",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15297);}while(r); +} +S_18245:; +if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ +if(qbevent){evnt(15298);if(r)goto S_18245;} +do{ +SUB_WRITEBUFLINE(&(pass2499=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15298);}while(r); +} +S_18248:; +if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ +if(qbevent){evnt(15299);if(r)goto S_18248;} +do{ +*(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISINCONVENTIONALMEMORY; +if(!qbevent)break;evnt(15300);}while(r); +S_18250:; +if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ +if(qbevent){evnt(15301);if(r)goto S_18250;} +do{ +SUB_WRITEBUFLINE(&(pass2500=*__LONG_DATATXTBUF),qbs_new_txt_len("cmem_sp-=4;",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15301);}while(r); +} +S_18253:; +if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ +if(qbevent){evnt(15302);if(r)goto S_18253;} +do{ +SUB_WRITEBUFLINE(&(pass2501=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("=(",2)),_FUNC_DIM2_STRING_CT),qbs_new_txt_len("*)(dblock+cmem_sp);",19))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15302);}while(r); +} +S_18256:; +if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ +if(qbevent){evnt(15303);if(r)goto S_18256;} +do{ +SUB_WRITEBUFLINE(&(pass2502=*__LONG_DATATXTBUF),qbs_new_txt_len("if (cmem_splen== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||new_error){ +if(qbevent){evnt(15351);if(r)goto S_18317;} +do{ +*__LONG_E=((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])]; +if(!qbevent)break;evnt(15352);}while(r); +S_18319:; +if ((*__LONG_E)||new_error){ +if(qbevent){evnt(15352);if(r)goto S_18319;} +do{ +qbs_set(_FUNC_DIM2_STRING_ELEMENTS,qbs_add(_FUNC_DIM2_STRING_ELEMENTS,FUNC_STR2(__LONG_E))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15352);}while(r); +} +} +do{ +*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass2509= 8 ),&(pass2510= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15354);}while(r); +S_18324:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(15355);if(r)goto S_18324;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(15355);}while(r); +} +do{ +qbs_set(_FUNC_DIM2_STRING_L,qbs_add(qbs_add(_FUNC_DIM2_STRING_L,__STRING1_SP),__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15356);}while(r); +S_18328:; +if ((*__INTEGER_ARRAYDESC)||new_error){ +if(qbevent){evnt(15357);if(r)goto S_18328;} +do{ +goto LABEL_DIM2EXITFUNC; +if(!qbevent)break;evnt(15357);}while(r); +} +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(15358);}while(r); +}else{ +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(15361);}while(r); +S_18334:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||new_error){ +if(qbevent){evnt(15362);if(r)goto S_18334;} +do{ +*_FUNC_DIM2_LONG_NUME= -1 ; +if(!qbevent)break;evnt(15363);}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2847))=*__LONG_GLINKID; +if(!qbevent)break;evnt(15364);}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(2851))=*__INTEGER_GLINKARG; +if(!qbevent)break;evnt(15365);}while(r); +}else{ +do{ +*_FUNC_DIM2_LONG_NUME=qbr(func_val(_FUNC_DIM2_STRING_ELEMENTS)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15367);}while(r); +} +} +do{ +*(int32*)(((char*)__UDT_ID)+(512))=*__LONG_DOUBLETYPE; +if(!qbevent)break;evnt(15371);}while(r); +S_18343:; +if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ +if(qbevent){evnt(15372);if(r)goto S_18343;} +do{ +*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISINCONVENTIONALMEMORY; +if(!qbevent)break;evnt(15372);}while(r); +} +S_18346:; +if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||new_error){ +if(qbevent){evnt(15373);if(r)goto S_18346;} +do{ +*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ; +if(!qbevent)break;evnt(15373);}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(518))= 1 ; +if(!qbevent)break;evnt(15373);}while(r); +} +do{ +*(int16*)(((char*)__UDT_ID)+(516))=*_FUNC_DIM2_LONG_NUME; +if(!qbevent)break;evnt(15375);}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),_FUNC_DIM2_STRING_N); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15376);}while(r); +}else{ +do{ +qbs_set(_FUNC_DIM2_STRING_N,qbs_add(_FUNC_DIM2_STRING_SCOPE2,_FUNC_DIM2_STRING_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15378);}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(15379);}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(536))=*__LONG_DOUBLETYPE; +if(!qbevent)break;evnt(15380);}while(r); +S_18356:; +if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ +if(qbevent){evnt(15381);if(r)goto S_18356;} +do{ +SUB_WRITEBUFLINE(__INTEGER_DEFDATAHANDLE,qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_CT,qbs_new_txt_len(" *",2)),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=NULL;",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15381);}while(r); +} +S_18359:; +if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ +if(qbevent){evnt(15382);if(r)goto S_18359;} +do{ +SUB_WRITEBUFLINE(&(pass2511=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15382);}while(r); +} +S_18362:; +if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ +if(qbevent){evnt(15383);if(r)goto S_18362;} +do{ +*(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISINCONVENTIONALMEMORY; +if(!qbevent)break;evnt(15384);}while(r); +S_18364:; +if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ +if(qbevent){evnt(15385);if(r)goto S_18364;} +do{ +SUB_WRITEBUFLINE(&(pass2512=*__LONG_DATATXTBUF),qbs_new_txt_len("cmem_sp-=8;",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15385);}while(r); +} +S_18367:; +if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ +if(qbevent){evnt(15386);if(r)goto S_18367;} +do{ +SUB_WRITEBUFLINE(&(pass2513=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("=(",2)),_FUNC_DIM2_STRING_CT),qbs_new_txt_len("*)(dblock+cmem_sp);",19))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15386);}while(r); +} +S_18370:; +if ((-(*_FUNC_DIM2_LONG_F== 1 ))||new_error){ +if(qbevent){evnt(15387);if(r)goto S_18370;} +do{ +SUB_WRITEBUFLINE(&(pass2514=*__LONG_DATATXTBUF),qbs_new_txt_len("if (cmem_splen== 1 ))&(-(qbs_asc(_FUNC_DIM2_STRING_ELEMENTS)== 63 ))))||new_error){ +if(qbevent){evnt(15435);if(r)goto S_18431;} +do{ +*__LONG_E=((int16*)(__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_ARRAYELEMENTSLIST[4],__ARRAY_INTEGER_ARRAYELEMENTSLIST[5])]; +if(!qbevent)break;evnt(15436);}while(r); +S_18433:; +if ((*__LONG_E)||new_error){ +if(qbevent){evnt(15436);if(r)goto S_18433;} +do{ +qbs_set(_FUNC_DIM2_STRING_ELEMENTS,qbs_add(_FUNC_DIM2_STRING_ELEMENTS,FUNC_STR2(__LONG_E))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15436);}while(r); +} +} +do{ +*_FUNC_DIM2_LONG_NUME=FUNC_ALLOCARRAY(_FUNC_DIM2_STRING_N,_FUNC_DIM2_STRING_ELEMENTS,&(pass2521= 32 ),&(pass2522= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15438);}while(r); +S_18438:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(15439);if(r)goto S_18438;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(15439);}while(r); +} +do{ +qbs_set(_FUNC_DIM2_STRING_L,qbs_add(qbs_add(_FUNC_DIM2_STRING_L,__STRING1_SP),__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15440);}while(r); +S_18442:; +if ((*__INTEGER_ARRAYDESC)||new_error){ +if(qbevent){evnt(15441);if(r)goto S_18442;} +do{ +goto LABEL_DIM2EXITFUNC; +if(!qbevent)break;evnt(15441);}while(r); +} +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(15442);}while(r); +}else{ +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(15445);}while(r); +S_18448:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_DIM2_STRING_ELEMENTS,qbs_new_txt_len("?",1))))||new_error){ +if(qbevent){evnt(15446);if(r)goto S_18448;} +do{ +*_FUNC_DIM2_LONG_NUME= -1 ; +if(!qbevent)break;evnt(15447);}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2847))=*__LONG_GLINKID; +if(!qbevent)break;evnt(15448);}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(2851))=*__INTEGER_GLINKARG; +if(!qbevent)break;evnt(15449);}while(r); +}else{ +do{ +*_FUNC_DIM2_LONG_NUME=qbr(func_val(_FUNC_DIM2_STRING_ELEMENTS)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15451);}while(r); +} +} +do{ +*(int32*)(((char*)__UDT_ID)+(512))=*__LONG_FLOATTYPE; +if(!qbevent)break;evnt(15455);}while(r); +S_18457:; +if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ +if(qbevent){evnt(15456);if(r)goto S_18457;} +do{ +*(int32*)(((char*)__UDT_ID)+(512))=*(int32*)(((char*)__UDT_ID)+(512))+*__LONG_ISINCONVENTIONALMEMORY; +if(!qbevent)break;evnt(15456);}while(r); +} +S_18460:; +if ((-(*_FUNC_DIM2_LONG_NUME> 65536 ))||new_error){ +if(qbevent){evnt(15457);if(r)goto S_18460;} +do{ +*_FUNC_DIM2_LONG_NUME=*_FUNC_DIM2_LONG_NUME- 65536 ; +if(!qbevent)break;evnt(15457);}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(518))= 1 ; +if(!qbevent)break;evnt(15457);}while(r); +} +do{ +*(int16*)(((char*)__UDT_ID)+(516))=*_FUNC_DIM2_LONG_NUME; +if(!qbevent)break;evnt(15459);}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),_FUNC_DIM2_STRING_N); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15460);}while(r); +}else{ +do{ +qbs_set(_FUNC_DIM2_STRING_N,qbs_add(_FUNC_DIM2_STRING_SCOPE2,_FUNC_DIM2_STRING_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15462);}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(15463);}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(536))=*__LONG_FLOATTYPE; +if(!qbevent)break;evnt(15464);}while(r); +S_18470:; +if ((*_FUNC_DIM2_LONG_F)||new_error){ +if(qbevent){evnt(15465);if(r)goto S_18470;} +do{ +SUB_WRITEBUFLINE(__INTEGER_DEFDATAHANDLE,qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_CT,qbs_new_txt_len(" *",2)),_FUNC_DIM2_STRING_N),qbs_new_txt_len("=NULL;",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15465);}while(r); +} +S_18473:; +if ((*_FUNC_DIM2_LONG_F)||new_error){ +if(qbevent){evnt(15466);if(r)goto S_18473;} +do{ +SUB_WRITEBUFLINE(&(pass2523=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_DIM2_STRING_N),qbs_new_txt_len("==NULL){",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15466);}while(r); +} +S_18476:; +if ((((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*__LONG_IDN+ 1 )-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])])||new_error){ +if(qbevent){evnt(15467);if(r)goto S_18476;} +do{ +*(int32*)(((char*)__UDT_ID)+(536))=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISINCONVENTIONALMEMORY; +if(!qbevent)break;evnt(15468);}while(r); +S_18478:; +if ((*_FUNC_DIM2_LONG_F)||new_error){ +if(qbevent){evnt(15469);if(r)goto S_18478;} +do{ +SUB_WRITEBUFLINE(&(pass2524=*__LONG_DATATXTBUF),qbs_new_txt_len("cmem_sp-=32;",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15469);}while(r); +} +S_18481:; +if ((*_FUNC_DIM2_LONG_F)||new_error){ +if(qbevent){evnt(15470);if(r)goto S_18481;} +do{ +SUB_WRITEBUFLINE(&(pass2525=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(_FUNC_DIM2_STRING_N,qbs_new_txt_len("=(",2)),_FUNC_DIM2_STRING_CT),qbs_new_txt_len("*)(dblock+cmem_sp);",19))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15470);}while(r); +} +S_18484:; +if ((*_FUNC_DIM2_LONG_F)||new_error){ +if(qbevent){evnt(15471);if(r)goto S_18484;} +do{ +SUB_WRITEBUFLINE(&(pass2526=*__LONG_DATATXTBUF),qbs_new_txt_len("if (cmem_sp=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +return *_FUNC_DIM2_LONG_DIM2; +} +qbs* FUNC_UDTREFERENCE(qbs*_FUNC_UDTREFERENCE_STRING_O,qbs*_FUNC_UDTREFERENCE_STRING_A,int32*_FUNC_UDTREFERENCE_LONG_TYP){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data17.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +qbs_set(_FUNC_UDTREFERENCE_STRING_OBAK,_FUNC_UDTREFERENCE_STRING_O); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15519);}while(r); +do{ +qbs_set(_FUNC_UDTREFERENCE_STRING_R,qbs_add(FUNC_STR2(__LONG_CURRENTID),__STRING1_SP3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15524);}while(r); +do{ +*_FUNC_UDTREFERENCE_LONG_O= 0 ; +if(!qbevent)break;evnt(15527);}while(r); +do{ +*_FUNC_UDTREFERENCE_LONG_INCMEM= 0 ; +if(!qbevent)break;evnt(15529);}while(r); +S_18531:; +if ((*(int32*)(((char*)__UDT_ID)+(536)))||new_error){ +if(qbevent){evnt(15530);if(r)goto S_18531;} +do{ +*_FUNC_UDTREFERENCE_LONG_U=*(int32*)(((char*)__UDT_ID)+(536))& 511 ; +if(!qbevent)break;evnt(15531);}while(r); +S_18533:; +if ((*(int32*)(((char*)__UDT_ID)+(536))&*__LONG_ISINCONVENTIONALMEMORY)||new_error){ +if(qbevent){evnt(15532);if(r)goto S_18533;} +do{ +*_FUNC_UDTREFERENCE_LONG_INCMEM= 1 ; +if(!qbevent)break;evnt(15532);}while(r); +} +}else{ +do{ +*_FUNC_UDTREFERENCE_LONG_U=*(int32*)(((char*)__UDT_ID)+(512))& 511 ; +if(!qbevent)break;evnt(15534);}while(r); +S_18538:; +if ((*(int32*)(((char*)__UDT_ID)+(512))&*__LONG_ISINCONVENTIONALMEMORY)||new_error){ +if(qbevent){evnt(15535);if(r)goto S_18538;} +do{ +*_FUNC_UDTREFERENCE_LONG_INCMEM= 1 ; +if(!qbevent)break;evnt(15535);}while(r); +} +} +do{ +*__LONG_E= 0 ; +if(!qbevent)break;evnt(15537);}while(r); +do{ +*_FUNC_UDTREFERENCE_LONG_N=FUNC_NUMELEMENTS(_FUNC_UDTREFERENCE_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15539);}while(r); +S_18544:; +if ((-(*_FUNC_UDTREFERENCE_LONG_N== 0 ))||new_error){ +if(qbevent){evnt(15540);if(r)goto S_18544;} +do{ +goto LABEL_FULLUDT; +if(!qbevent)break;evnt(15540);}while(r); +} +do{ +*_FUNC_UDTREFERENCE_LONG_I= 1 ; +if(!qbevent)break;evnt(15542);}while(r); +LABEL_UDTFINDELENEXT:; +if(qbevent){evnt(15543);r=0;} +S_18548:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(FUNC_GETELEMENT(_FUNC_UDTREFERENCE_STRING_A,_FUNC_UDTREFERENCE_LONG_I),qbs_new_txt_len(".",1))))||new_error){ +if(qbevent){evnt(15544);if(r)goto S_18548;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected .",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15544);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(15544);}while(r); +} +do{ +*_FUNC_UDTREFERENCE_LONG_I=*_FUNC_UDTREFERENCE_LONG_I+ 1 ; +if(!qbevent)break;evnt(15545);}while(r); +do{ +qbs_set(_FUNC_UDTREFERENCE_STRING_N,FUNC_GETELEMENT(_FUNC_UDTREFERENCE_STRING_A,_FUNC_UDTREFERENCE_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15546);}while(r); +do{ +qbs_set(_FUNC_UDTREFERENCE_STRING_NSYM,FUNC_REMOVESYMBOL(_FUNC_UDTREFERENCE_STRING_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15547);}while(r); +S_18555:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_UDTREFERENCE_STRING_NSYM->len))||new_error){ +if(qbevent){evnt(15547);if(r)goto S_18555;} +do{ +*_FUNC_UDTREFERENCE_LONG_NTYP=FUNC_TYPNAME2TYP(_FUNC_UDTREFERENCE_STRING_NSYM); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15547);}while(r); +do{ +*_FUNC_UDTREFERENCE_LONG_NTYPSIZE=*__LONG_TYPNAME2TYPSIZE; +if(!qbevent)break;evnt(15547);}while(r); +} +S_18559:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(15548);if(r)goto S_18559;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(15548);}while(r); +} +S_18562:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_UDTREFERENCE_STRING_N,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(15550);if(r)goto S_18562;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected .elementname",21)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15550);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(15550);}while(r); +} +LABEL_UDTFINDELE:; +if(qbevent){evnt(15551);r=0;} +S_18566:; +if ((-(*__LONG_E== 0 ))||new_error){ +if(qbevent){evnt(15552);if(r)goto S_18566;} +do{ +*__LONG_E=((int32*)(__ARRAY_LONG_UDTXNEXT[0]))[array_check((*_FUNC_UDTREFERENCE_LONG_U)-__ARRAY_LONG_UDTXNEXT[4],__ARRAY_LONG_UDTXNEXT[5])]; +if(!qbevent)break;evnt(15552);}while(r); +}else{ +do{ +*__LONG_E=((int32*)(__ARRAY_LONG_UDTENEXT[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5])]; +if(!qbevent)break;evnt(15552);}while(r); +} +S_18571:; +if ((-(*__LONG_E== 0 ))||new_error){ +if(qbevent){evnt(15553);if(r)goto S_18571;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Element not defined",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15553);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(15553);}while(r); +} +do{ +qbs_set(_FUNC_UDTREFERENCE_STRING_N2,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTENAME[0]))[(array_check((*__LONG_E)-__ARRAY_STRING256_UDTENAME[4],__ARRAY_STRING256_UDTENAME[5]))*256],256,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15554);}while(r); +S_18576:; +if ((((int16*)(__ARRAY_INTEGER_UDTEBYTEALIGN[0]))[array_check((*__LONG_E)-__ARRAY_INTEGER_UDTEBYTEALIGN[4],__ARRAY_INTEGER_UDTEBYTEALIGN[5])])||new_error){ +if(qbevent){evnt(15555);if(r)goto S_18576;} +S_18577:; +if ((*_FUNC_UDTREFERENCE_LONG_O% 8 )||new_error){ +if(qbevent){evnt(15556);if(r)goto S_18577;} +do{ +*_FUNC_UDTREFERENCE_LONG_O=*_FUNC_UDTREFERENCE_LONG_O+( 8 -(*_FUNC_UDTREFERENCE_LONG_O% 8 )); +if(!qbevent)break;evnt(15556);}while(r); +} +} +S_18581:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_UDTREFERENCE_STRING_N,_FUNC_UDTREFERENCE_STRING_N2)))||new_error){ +if(qbevent){evnt(15559);if(r)goto S_18581;} +do{ +*_FUNC_UDTREFERENCE_LONG_O=*_FUNC_UDTREFERENCE_LONG_O+((int32*)(__ARRAY_LONG_UDTESIZE[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5])]; +if(!qbevent)break;evnt(15561);}while(r); +do{ +goto LABEL_UDTFINDELE; +if(!qbevent)break;evnt(15562);}while(r); +} +S_18585:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_UDTREFERENCE_STRING_NSYM->len))||new_error){ +if(qbevent){evnt(15566);if(r)goto S_18585;} +S_18586:; +if ((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISUDT)||new_error){ +if(qbevent){evnt(15568);if(r)goto S_18586;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Invalid symbol after user defined type",38)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15568);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(15568);}while(r); +} +S_18590:; +if (((-(*_FUNC_UDTREFERENCE_LONG_NTYP!=((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]))|(-(*_FUNC_UDTREFERENCE_LONG_NTYPSIZE!=((int32*)(__ARRAY_LONG_UDTETYPESIZE[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTETYPESIZE[4],__ARRAY_LONG_UDTETYPESIZE[5])])))||new_error){ +if(qbevent){evnt(15569);if(r)goto S_18590;} +S_18591:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_UDTREFERENCE_STRING_NSYM,qbs_new_txt_len("$",1)))&((-((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISFIXEDLENGTH)!= 0 )))))||new_error){ +if(qbevent){evnt(15570);if(r)goto S_18591;} +do{ +goto LABEL_CORRECTSYMBOL; +if(!qbevent)break;evnt(15570);}while(r); +} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Incorrect symbol after element name",35)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15571);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(15571);}while(r); +} +} +LABEL_CORRECTSYMBOL:; +if(qbevent){evnt(15574);r=0;} +S_18598:; +if ((-(*_FUNC_UDTREFERENCE_LONG_I!=*_FUNC_UDTREFERENCE_LONG_N))||new_error){ +if(qbevent){evnt(15577);if(r)goto S_18598;} +S_18599:; +if ((-((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISUDT)== 0 ))||new_error){ +if(qbevent){evnt(15578);if(r)goto S_18599;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected user defined type",26)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15578);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(15578);}while(r); +} +do{ +*_FUNC_UDTREFERENCE_LONG_U=((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]& 511 ; +if(!qbevent)break;evnt(15579);}while(r); +do{ +*__LONG_E= 0 ; +if(!qbevent)break;evnt(15580);}while(r); +do{ +*_FUNC_UDTREFERENCE_LONG_I=*_FUNC_UDTREFERENCE_LONG_I+ 1 ; +if(!qbevent)break;evnt(15581);}while(r); +do{ +goto LABEL_UDTFINDELENEXT; +if(!qbevent)break;evnt(15582);}while(r); +} +S_18608:; +if ((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISUDT)||new_error){ +if(qbevent){evnt(15586);if(r)goto S_18608;} +do{ +*_FUNC_UDTREFERENCE_LONG_U=((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]& 511 ; +if(!qbevent)break;evnt(15587);}while(r); +do{ +*__LONG_E= 0 ; +if(!qbevent)break;evnt(15588);}while(r); +} +LABEL_FULLUDT:; +if(qbevent){evnt(15591);r=0;} +do{ +qbs_set(_FUNC_UDTREFERENCE_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_UDTREFERENCE_STRING_R,FUNC_STR2(_FUNC_UDTREFERENCE_LONG_U)),__STRING1_SP3),FUNC_STR2(__LONG_E)),__STRING1_SP3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15593);}while(r); +S_18613:; +if ((*_FUNC_UDTREFERENCE_LONG_O% 8 )||new_error){ +if(qbevent){evnt(15595);if(r)goto S_18613;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("QB64 cannot handle bit offsets within user defined types",56)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15595);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(15595);}while(r); +} +do{ +*_FUNC_UDTREFERENCE_LONG_O=*_FUNC_UDTREFERENCE_LONG_O/ 8 ; +if(!qbevent)break;evnt(15596);}while(r); +S_18618:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_UDTREFERENCE_STRING_O,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(15598);if(r)goto S_18618;} +S_18619:; +if ((-(*_FUNC_UDTREFERENCE_LONG_O!= 0 ))||new_error){ +if(qbevent){evnt(15599);if(r)goto S_18619;} +do{ +qbs_set(_FUNC_UDTREFERENCE_STRING_O,qbs_add(qbs_add(_FUNC_UDTREFERENCE_STRING_O,qbs_new_txt_len("+",1)),FUNC_STR2(_FUNC_UDTREFERENCE_LONG_O))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15600);}while(r); +} +}else{ +do{ +qbs_set(_FUNC_UDTREFERENCE_STRING_O,FUNC_STR2(_FUNC_UDTREFERENCE_LONG_O)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15603);}while(r); +} +do{ +qbs_set(_FUNC_UDTREFERENCE_STRING_R,qbs_add(_FUNC_UDTREFERENCE_STRING_R,_FUNC_UDTREFERENCE_STRING_O)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15606);}while(r); +do{ +qbs_set(_FUNC_UDTREFERENCE_STRING_UDTREFERENCE,_FUNC_UDTREFERENCE_STRING_R); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15608);}while(r); +do{ +*_FUNC_UDTREFERENCE_LONG_TYP=((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]+*__LONG_ISUDT+*__LONG_ISREFERENCE; +if(!qbevent)break;evnt(15609);}while(r); +S_18628:; +if ((-(*__LONG_E== 0 ))||new_error){ +if(qbevent){evnt(15612);if(r)goto S_18628;} +do{ +*_FUNC_UDTREFERENCE_LONG_TYP=*_FUNC_UDTREFERENCE_LONG_U+*__LONG_ISUDT+*__LONG_ISREFERENCE; +if(!qbevent)break;evnt(15613);}while(r); +} +S_18631:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_UDTREFERENCE_STRING_OBAK,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(15616);if(r)goto S_18631;} +do{ +*_FUNC_UDTREFERENCE_LONG_TYP=*_FUNC_UDTREFERENCE_LONG_TYP+*__LONG_ISARRAY; +if(!qbevent)break;evnt(15616);}while(r); +} +S_18634:; +if ((*_FUNC_UDTREFERENCE_LONG_INCMEM)||new_error){ +if(qbevent){evnt(15617);if(r)goto S_18634;} +do{ +*_FUNC_UDTREFERENCE_LONG_TYP=*_FUNC_UDTREFERENCE_LONG_TYP+*__LONG_ISINCONVENTIONALMEMORY; +if(!qbevent)break;evnt(15617);}while(r); +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free17.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_UDTREFERENCE_STRING_UDTREFERENCE);return _FUNC_UDTREFERENCE_STRING_UDTREFERENCE; +} +qbs* FUNC_EVALUATE(qbs*_FUNC_EVALUATE_STRING_A2,int32*_FUNC_EVALUATE_LONG_TYP){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data18.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ if (_FUNC_EVALUATE_ARRAY_STRING_BLOCK[2]&2){ error(10); @@ -61684,9 +61684,9 @@ while(tmp_long--) ((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long]=(u while(tmp_long--) ((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -} -if(!qbevent)break;evnt(15624);}while(r); -do{ +} +if(!qbevent)break;evnt(15624);}while(r); +do{ if (_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[2]&2){ error(10); @@ -61706,9 +61706,9 @@ if (!_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]) error(257); } _FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[2]|=1; } -} -if(!qbevent)break;evnt(15625);}while(r); -do{ +} +if(!qbevent)break;evnt(15625);}while(r); +do{ if (_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[2]&2){ error(10); @@ -61728,2693 +61728,2693 @@ if (!_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]) error(257); } _FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[2]|=1; } -} -if(!qbevent)break;evnt(15626);}while(r); -do{ -qbs_set(_FUNC_EVALUATE_STRING_A,_FUNC_EVALUATE_STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15629);}while(r); -do{ -*_FUNC_EVALUATE_LONG_TYP= -1 ; -if(!qbevent)break;evnt(15630);}while(r); -S_18642:; -if (( 0 )||new_error){ -if(qbevent){evnt(15632);if(r)goto S_18642;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2536; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("evaluating:[",12),_FUNC_EVALUATE_STRING_A2),qbs_new_txt_len("]",1)), 0, 0, 1); -if (new_error) goto skip2536; -skip2536: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(15632);}while(r); -} -S_18645:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_A2,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(15633);if(r)goto S_18645;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Syntax error",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15633);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(15633);}while(r); -} -do{ -*_FUNC_EVALUATE_LONG_BLOCKN= 0 ; -if(!qbevent)break;evnt(15642);}while(r); -do{ -*_FUNC_EVALUATE_LONG_N=FUNC_NUMELEMENTS(_FUNC_EVALUATE_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15643);}while(r); -do{ -*_FUNC_EVALUATE_LONG_B= 0 ; -if(!qbevent)break;evnt(15644);}while(r); -S_18652:; -fornext_value2538= 1 ; -fornext_finalvalue2538=*_FUNC_EVALUATE_LONG_N; -fornext_step2538= 1 ; -if (fornext_step2538<0) fornext_step_negative2538=1; else fornext_step_negative2538=0; -if (new_error) goto fornext_error2538; -goto fornext_entrylabel2538; -while(1){ -fornext_value2538=fornext_step2538+(*_FUNC_EVALUATE_LONG_I); -fornext_entrylabel2538: -*_FUNC_EVALUATE_LONG_I=fornext_value2538; -if (fornext_step_negative2538){ -if (fornext_value2538fornext_finalvalue2538) break; -} -fornext_error2538:; -if(qbevent){evnt(15645);if(r)goto S_18652;} -LABEL_REEVALUATE:; -if(qbevent){evnt(15647);r=0;} -do{ -qbs_set(_FUNC_EVALUATE_STRING_L,FUNC_GETELEMENT(_FUNC_EVALUATE_STRING_A,_FUNC_EVALUATE_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15652);}while(r); -S_18654:; -if (( 0 )||new_error){ -if(qbevent){evnt(15655);if(r)goto S_18654;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2539; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("#*#*#* reevaluating:",20),_FUNC_EVALUATE_STRING_L), 0, 1, 0); -if (new_error) goto skip2539; -sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_EVALUATE_LONG_I)), 1, 0, 1); -if (new_error) goto skip2539; -skip2539: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(15655);}while(r); -} -S_18657:; -if ((-(*_FUNC_EVALUATE_LONG_I!=*_FUNC_EVALUATE_LONG_N))||new_error){ -if(qbevent){evnt(15658);if(r)goto S_18657;} -do{ -qbs_set(_FUNC_EVALUATE_STRING_NEXTL,FUNC_GETELEMENT(_FUNC_EVALUATE_STRING_A,&(pass2540=*_FUNC_EVALUATE_LONG_I+ 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15658);}while(r); -}else{ -do{ -qbs_set(_FUNC_EVALUATE_STRING_NEXTL,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15658);}while(r); -} -S_18662:; -if ((-(*_FUNC_EVALUATE_LONG_B== 0 ))||new_error){ -if(qbevent){evnt(15662);if(r)goto S_18662;} -S_18663:; -if (( 0 )||new_error){ -if(qbevent){evnt(15664);if(r)goto S_18663;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2541; -sub_file_print(tmp_fileno,_FUNC_EVALUATE_STRING_L, 0, 0, 1); -if (new_error) goto skip2541; -skip2541: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(15664);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATE_STRING_L2,_FUNC_EVALUATE_STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15666);}while(r); -S_18667:; -fornext_value2543= 1 ; -fornext_finalvalue2543= 4 ; -fornext_step2543= 1 ; -if (fornext_step2543<0) fornext_step_negative2543=1; else fornext_step_negative2543=0; -if (new_error) goto fornext_error2543; -goto fornext_entrylabel2543; -while(1){ -fornext_value2543=fornext_step2543+(*_FUNC_EVALUATE_LONG_TRY_METHOD); -fornext_entrylabel2543: -*_FUNC_EVALUATE_LONG_TRY_METHOD=fornext_value2543; -if (fornext_step_negative2543){ -if (fornext_value2543fornext_finalvalue2543) break; -} -fornext_error2543:; -if(qbevent){evnt(15667);if(r)goto S_18667;} -do{ -qbs_set(_FUNC_EVALUATE_STRING_L,_FUNC_EVALUATE_STRING_L2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15668);}while(r); -S_18669:; -if (((-(*_FUNC_EVALUATE_LONG_TRY_METHOD== 2 ))|(-(*_FUNC_EVALUATE_LONG_TRY_METHOD== 4 )))||new_error){ -if(qbevent){evnt(15669);if(r)goto S_18669;} -S_18670:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(15670);if(r)goto S_18670;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(15670);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATE_STRING_DTYP,FUNC_REMOVESYMBOL(_FUNC_EVALUATE_STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15671);}while(r); -S_18674:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(15671);if(r)goto S_18674;} -do{ -qbs_set(_FUNC_EVALUATE_STRING_DTYP,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15671);}while(r); -do{ -*__LONG_ERROR_HAPPENED= 0 ; -if(!qbevent)break;evnt(15671);}while(r); -} -S_18678:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_EVALUATE_STRING_DTYP->len== 0 )))||new_error){ -if(qbevent){evnt(15672);if(r)goto S_18678;} -S_18679:; -if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISOPERATOR(_FUNC_EVALUATE_STRING_L)== 0 )))||new_error){ -if(qbevent){evnt(15673);if(r)goto S_18679;} -S_18680:; -if ((qbs_cleanup(qbs_tmp_base,FUNC_ISVALIDVARIABLE(_FUNC_EVALUATE_STRING_L)))||new_error){ -if(qbevent){evnt(15674);if(r)goto S_18680;} -S_18681:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_EVALUATE_STRING_L, 1 ),qbs_new_txt_len("_",1))))||new_error){ -if(qbevent){evnt(15675);if(r)goto S_18681;} -do{ -*_FUNC_EVALUATE_LONG_V= 27 ; -if(!qbevent)break;evnt(15675);}while(r); -}else{ -do{ -*_FUNC_EVALUATE_LONG_V=qbs_asc(qbs_ucase(_FUNC_EVALUATE_STRING_L))- 64 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15675);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATE_STRING_L,qbs_add(_FUNC_EVALUATE_STRING_L,((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEEXTAZ[0]))[array_check((*_FUNC_EVALUATE_LONG_V)-__ARRAY_STRING_DEFINEEXTAZ[4],__ARRAY_STRING_DEFINEEXTAZ[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15676);}while(r); -} -} -}else{ -do{ -qbs_set(_FUNC_EVALUATE_STRING_L,_FUNC_EVALUATE_STRING_L2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15680);}while(r); -} -} -do{ -*_FUNC_EVALUATE_LONG_TRY=FUNC_FINDID(_FUNC_EVALUATE_STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15683);}while(r); -S_18694:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(15684);if(r)goto S_18694;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(15684);}while(r); -} -S_18697:; -while((*_FUNC_EVALUATE_LONG_TRY)||new_error){ -if(qbevent){evnt(15685);if(r)goto S_18697;} -S_18698:; -if (( 0 )||new_error){ -if(qbevent){evnt(15687);if(r)goto S_18698;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2546; -sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_EVALUATE_LONG_TRY)), 1, 0, 1); -if (new_error) goto skip2546; -skip2546: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(15687);}while(r); -} -S_18701:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_NEXTL,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(15690);if(r)goto S_18701;} -S_18702:; -if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ -if(qbevent){evnt(15691);if(r)goto S_18702;} -S_18703:; -if (((((-(*__LONG_SUBFUNCN==*(int32*)(((char*)__UDT_ID)+(2641))))&(-(*_FUNC_EVALUATE_LONG_TRY_METHOD<= 2 ))))|(-(*_FUNC_EVALUATE_LONG_TRY_METHOD>= 3 )))||new_error){ -if(qbevent){evnt(15692);if(r)goto S_18703;} -do{ -*_FUNC_EVALUATE_LONG_ARRAYID=*__LONG_CURRENTID; -if(!qbevent)break;evnt(15693);}while(r); -do{ -*__INTEGER_CONSTEQUATION= 0 ; -if(!qbevent)break;evnt(15694);}while(r); -do{ -*_FUNC_EVALUATE_LONG_I2=*_FUNC_EVALUATE_LONG_I+ 2 ; -if(!qbevent)break;evnt(15695);}while(r); -do{ -*_FUNC_EVALUATE_LONG_B2= 0 ; -if(!qbevent)break;evnt(15696);}while(r); -LABEL_EVALNEXTELE3:; -if(qbevent){evnt(15697);r=0;} -do{ -qbs_set(_FUNC_EVALUATE_STRING_L2,FUNC_GETELEMENT(_FUNC_EVALUATE_STRING_A,_FUNC_EVALUATE_LONG_I2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15698);}while(r); -S_18709:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_L2,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(15699);if(r)goto S_18709;} -do{ -*_FUNC_EVALUATE_LONG_B2=*_FUNC_EVALUATE_LONG_B2+ 1 ; -if(!qbevent)break;evnt(15699);}while(r); -} -S_18712:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_L2,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(15700);if(r)goto S_18712;} -do{ -*_FUNC_EVALUATE_LONG_B2=*_FUNC_EVALUATE_LONG_B2- 1 ; -if(!qbevent)break;evnt(15701);}while(r); -S_18714:; -if ((-(*_FUNC_EVALUATE_LONG_B2== -1 ))||new_error){ -if(qbevent){evnt(15702);if(r)goto S_18714;} -do{ -qbs_set(_FUNC_EVALUATE_STRING_C,FUNC_ARRAYREFERENCE(FUNC_GETELEMENTS(_FUNC_EVALUATE_STRING_A,&(pass2547=*_FUNC_EVALUATE_LONG_I+ 2 ),&(pass2548=*_FUNC_EVALUATE_LONG_I2- 1 )),_FUNC_EVALUATE_LONG_TYP2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15703);}while(r); -S_18716:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(15704);if(r)goto S_18716;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(15704);}while(r); -} -do{ -*_FUNC_EVALUATE_LONG_I=*_FUNC_EVALUATE_LONG_I2; -if(!qbevent)break;evnt(15705);}while(r); -S_18720:; -if ((*_FUNC_EVALUATE_LONG_TYP2&*__LONG_ISUDT)||new_error){ -if(qbevent){evnt(15708);if(r)goto S_18720;} -do{ -SUB_GETID(_FUNC_EVALUATE_LONG_ARRAYID); -if(!qbevent)break;evnt(15710);}while(r); -S_18722:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(15711);if(r)goto S_18722;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(15711);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATE_STRING_O,qbs_right(_FUNC_EVALUATE_STRING_C,_FUNC_EVALUATE_STRING_C->len-func_instr(NULL,_FUNC_EVALUATE_STRING_C,__STRING1_SP3,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15712);}while(r); -do{ -*_FUNC_EVALUATE_LONG_U=*_FUNC_EVALUATE_LONG_TYP2& 511 ; -if(!qbevent)break;evnt(15714);}while(r); -do{ -*_FUNC_EVALUATE_LONG_S=((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*_FUNC_EVALUATE_LONG_U)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])]; -if(!qbevent)break;evnt(15715);}while(r); -S_18728:; -if ((((int16*)(__ARRAY_INTEGER_UDTXBYTEALIGN[0]))[array_check((*_FUNC_EVALUATE_LONG_U)-__ARRAY_INTEGER_UDTXBYTEALIGN[4],__ARRAY_INTEGER_UDTXBYTEALIGN[5])])||new_error){ -if(qbevent){evnt(15716);if(r)goto S_18728;} -S_18729:; -if ((*_FUNC_EVALUATE_LONG_S% 8 )||new_error){ -if(qbevent){evnt(15717);if(r)goto S_18729;} -do{ -*_FUNC_EVALUATE_LONG_S=*_FUNC_EVALUATE_LONG_S+( 8 -(*_FUNC_EVALUATE_LONG_S% 8 )); -if(!qbevent)break;evnt(15717);}while(r); -} -do{ -*_FUNC_EVALUATE_LONG_S=*_FUNC_EVALUATE_LONG_S/ 8 ; -if(!qbevent)break;evnt(15718);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATE_STRING_O,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(",1),_FUNC_EVALUATE_STRING_O),qbs_new_txt_len(")*",2)),FUNC_STR2(_FUNC_EVALUATE_LONG_S))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15720);}while(r); -do{ -goto LABEL_EVALUDT; -if(!qbevent)break;evnt(15722);}while(r); -} -do{ -goto LABEL_EVALEDNEXTELE3; -if(!qbevent)break;evnt(15725);}while(r); -} -} -do{ -*_FUNC_EVALUATE_LONG_I2=*_FUNC_EVALUATE_LONG_I2+ 1 ; -if(!qbevent)break;evnt(15728);}while(r); -do{ -goto LABEL_EVALNEXTELE3; -if(!qbevent)break;evnt(15729);}while(r); -LABEL_EVALEDNEXTELE3:; -if(qbevent){evnt(15730);r=0;} -do{ -*_FUNC_EVALUATE_LONG_BLOCKN=*_FUNC_EVALUATE_LONG_BLOCKN+ 1 ; -if(!qbevent)break;evnt(15731);}while(r); -do{ -tmp_long=array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),_FUNC_EVALUATE_STRING_C); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15732);}while(r); -do{ -tmp_long=array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[4],_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[5]); -if (!new_error) ((int16*)(_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]))[tmp_long]= 2 ; -if(!qbevent)break;evnt(15733);}while(r); -do{ -tmp_long=array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5]); -if (!new_error) ((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[tmp_long]=*_FUNC_EVALUATE_LONG_TYP2; -if(!qbevent)break;evnt(15734);}while(r); -S_18746:; -if (((*_FUNC_EVALUATE_LONG_TYP2&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(15735);if(r)goto S_18746;} -do{ -*__INTEGER_STRINGPROCESSINGHAPPENED= 1 ; -if(!qbevent)break;evnt(15735);}while(r); -} -do{ -goto LABEL_EVALED; -if(!qbevent)break;evnt(15736);}while(r); -} -} -}else{ -S_18753:; -if (((-(*(int32*)(((char*)__UDT_ID)+(536))!= 0 ))&(-((*(int32*)(((char*)__UDT_ID)+(536))&*__LONG_ISUDT)== 0 )))||new_error){ -if(qbevent){evnt(15744);if(r)goto S_18753;} -S_18754:; -if (((((-(*__LONG_SUBFUNCN==*(int32*)(((char*)__UDT_ID)+(2641))))&(-(*_FUNC_EVALUATE_LONG_TRY_METHOD<= 2 ))))|(-(*_FUNC_EVALUATE_LONG_TRY_METHOD>= 3 )))||new_error){ -if(qbevent){evnt(15745);if(r)goto S_18754;} -do{ -*__INTEGER_CONSTEQUATION= 0 ; -if(!qbevent)break;evnt(15746);}while(r); -do{ -*_FUNC_EVALUATE_LONG_BLOCKN=*_FUNC_EVALUATE_LONG_BLOCKN+ 1 ; -if(!qbevent)break;evnt(15747);}while(r); -do{ -SUB_MAKEIDREFER(((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])),(&(((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15748);}while(r); -S_18758:; -if (((((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])]&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(15749);if(r)goto S_18758;} -do{ -*__INTEGER_STRINGPROCESSINGHAPPENED= 1 ; -if(!qbevent)break;evnt(15749);}while(r); -} -do{ -tmp_long=array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[4],_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[5]); -if (!new_error) ((int16*)(_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]))[tmp_long]= 2 ; -if(!qbevent)break;evnt(15750);}while(r); -do{ -goto LABEL_EVALED; -if(!qbevent)break;evnt(15751);}while(r); -} -} -S_18765:; -if ((*(int32*)(((char*)__UDT_ID)+(536))&*__LONG_ISUDT)||new_error){ -if(qbevent){evnt(15756);if(r)goto S_18765;} -S_18766:; -if (((((-(*__LONG_SUBFUNCN==*(int32*)(((char*)__UDT_ID)+(2641))))&(-(*_FUNC_EVALUATE_LONG_TRY_METHOD<= 2 ))))|(-(*_FUNC_EVALUATE_LONG_TRY_METHOD>= 3 )))||new_error){ -if(qbevent){evnt(15757);if(r)goto S_18766;} -do{ -*__INTEGER_CONSTEQUATION= 0 ; -if(!qbevent)break;evnt(15758);}while(r); -do{ -qbs_set(_FUNC_EVALUATE_STRING_O,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15759);}while(r); -LABEL_EVALUDT:; -if(qbevent){evnt(15760);r=0;} -do{ -*_FUNC_EVALUATE_LONG_B2= 0 ; -if(!qbevent)break;evnt(15761);}while(r); -do{ -*_FUNC_EVALUATE_LONG_I3=*_FUNC_EVALUATE_LONG_I+ 1 ; -if(!qbevent)break;evnt(15762);}while(r); -S_18771:; -fornext_value2551=*_FUNC_EVALUATE_LONG_I3; -fornext_finalvalue2551=*_FUNC_EVALUATE_LONG_N; -fornext_step2551= 1 ; -if (fornext_step2551<0) fornext_step_negative2551=1; else fornext_step_negative2551=0; -if (new_error) goto fornext_error2551; -goto fornext_entrylabel2551; -while(1){ -fornext_value2551=fornext_step2551+(*_FUNC_EVALUATE_LONG_I2); -fornext_entrylabel2551: -*_FUNC_EVALUATE_LONG_I2=fornext_value2551; -if (fornext_step_negative2551){ -if (fornext_value2551fornext_finalvalue2551) break; -} -fornext_error2551:; -if(qbevent){evnt(15763);if(r)goto S_18771;} -do{ -qbs_set(_FUNC_EVALUATE_STRING_E2,FUNC_GETELEMENT(_FUNC_EVALUATE_STRING_A,_FUNC_EVALUATE_LONG_I2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15764);}while(r); -S_18773:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_E2,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(15765);if(r)goto S_18773;} -do{ -*_FUNC_EVALUATE_LONG_B2=*_FUNC_EVALUATE_LONG_B2+ 1 ; -if(!qbevent)break;evnt(15765);}while(r); -} -S_18776:; -if ((-(*_FUNC_EVALUATE_LONG_B2== 0 ))||new_error){ -if(qbevent){evnt(15766);if(r)goto S_18776;} -S_18777:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATE_STRING_E2,qbs_new_txt_len(")",1)))|(FUNC_ISOPERATOR(_FUNC_EVALUATE_STRING_E2))))||new_error){ -if(qbevent){evnt(15767);if(r)goto S_18777;} -do{ -*_FUNC_EVALUATE_LONG_I4=*_FUNC_EVALUATE_LONG_I2- 1 ; -if(!qbevent)break;evnt(15768);}while(r); -do{ -goto LABEL_GOTUDT; -if(!qbevent)break;evnt(15769);}while(r); -} -} -S_18782:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_E2,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(15772);if(r)goto S_18782;} -do{ -*_FUNC_EVALUATE_LONG_B2=*_FUNC_EVALUATE_LONG_B2- 1 ; -if(!qbevent)break;evnt(15772);}while(r); -} -fornext_continue_2550:; -} -fornext_exit_2550:; -do{ -*_FUNC_EVALUATE_LONG_I4=*_FUNC_EVALUATE_LONG_N; -if(!qbevent)break;evnt(15774);}while(r); -LABEL_GOTUDT:; -if(qbevent){evnt(15775);r=0;} -S_18787:; -if ((-(*_FUNC_EVALUATE_LONG_I4<*_FUNC_EVALUATE_LONG_I3))||new_error){ -if(qbevent){evnt(15776);if(r)goto S_18787;} -do{ -qbs_set(_FUNC_EVALUATE_STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15776);}while(r); -}else{ -do{ -qbs_set(_FUNC_EVALUATE_STRING_E,FUNC_GETELEMENTS(_FUNC_EVALUATE_STRING_A,_FUNC_EVALUATE_LONG_I3,_FUNC_EVALUATE_LONG_I4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15776);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATE_STRING_E,FUNC_UDTREFERENCE(_FUNC_EVALUATE_STRING_O,_FUNC_EVALUATE_STRING_E,_FUNC_EVALUATE_LONG_TYP2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15778);}while(r); -S_18793:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(15779);if(r)goto S_18793;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(15779);}while(r); -} -do{ -*_FUNC_EVALUATE_LONG_I=*_FUNC_EVALUATE_LONG_I4; -if(!qbevent)break;evnt(15780);}while(r); -do{ -*_FUNC_EVALUATE_LONG_BLOCKN=*_FUNC_EVALUATE_LONG_BLOCKN+ 1 ; -if(!qbevent)break;evnt(15781);}while(r); -do{ -tmp_long=array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),_FUNC_EVALUATE_STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15782);}while(r); -do{ -tmp_long=array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[4],_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[5]); -if (!new_error) ((int16*)(_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]))[tmp_long]= 2 ; -if(!qbevent)break;evnt(15783);}while(r); -do{ -tmp_long=array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5]); -if (!new_error) ((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[tmp_long]=*_FUNC_EVALUATE_LONG_TYP2; -if(!qbevent)break;evnt(15784);}while(r); -do{ -goto LABEL_EVALED; -if(!qbevent)break;evnt(15787);}while(r); -} -} -} -S_18805:; -if ((-(*(int16*)(((char*)__UDT_ID)+(544))== 1 ))||new_error){ -if(qbevent){evnt(15794);if(r)goto S_18805;} -do{ -*__INTEGER_CONSTEQUATION= 0 ; -if(!qbevent)break;evnt(15795);}while(r); -S_18807:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(_FUNC_EVALUATE_STRING_A,&(pass2552=*_FUNC_EVALUATE_LONG_I+ 1 )),qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(15796);if(r)goto S_18807;} -do{ -*_FUNC_EVALUATE_LONG_I2=*_FUNC_EVALUATE_LONG_I+ 2 ; -if(!qbevent)break;evnt(15797);}while(r); -do{ -*_FUNC_EVALUATE_LONG_B2= 0 ; -if(!qbevent)break;evnt(15798);}while(r); -do{ -*_FUNC_EVALUATE_LONG_ARGS= 1 ; -if(!qbevent)break;evnt(15799);}while(r); -LABEL_EVALNEXTELE:; -if(qbevent){evnt(15800);r=0;} -do{ -qbs_set(_FUNC_EVALUATE_STRING_L2,FUNC_GETELEMENT(_FUNC_EVALUATE_STRING_A,_FUNC_EVALUATE_LONG_I2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15801);}while(r); -S_18812:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_L2,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(15802);if(r)goto S_18812;} -do{ -*_FUNC_EVALUATE_LONG_B2=*_FUNC_EVALUATE_LONG_B2+ 1 ; -if(!qbevent)break;evnt(15802);}while(r); -} -S_18815:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_L2,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(15803);if(r)goto S_18815;} -do{ -*_FUNC_EVALUATE_LONG_B2=*_FUNC_EVALUATE_LONG_B2- 1 ; -if(!qbevent)break;evnt(15804);}while(r); -S_18817:; -if ((-(*_FUNC_EVALUATE_LONG_B2== -1 ))||new_error){ -if(qbevent){evnt(15805);if(r)goto S_18817;} -S_18818:; -if ((-(*_FUNC_EVALUATE_LONG_I2==(*_FUNC_EVALUATE_LONG_I+ 2 )))||new_error){ -if(qbevent){evnt(15806);if(r)goto S_18818;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected (...)",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15806);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(15806);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATE_STRING_C,FUNC_EVALUATEFUNC(FUNC_GETELEMENTS(_FUNC_EVALUATE_STRING_A,&(pass2553=*_FUNC_EVALUATE_LONG_I+ 2 ),&(pass2554=*_FUNC_EVALUATE_LONG_I2- 1 )),_FUNC_EVALUATE_LONG_ARGS,_FUNC_EVALUATE_LONG_TYP2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15807);}while(r); -S_18823:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(15808);if(r)goto S_18823;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(15808);}while(r); -} -do{ -*_FUNC_EVALUATE_LONG_I=*_FUNC_EVALUATE_LONG_I2; -if(!qbevent)break;evnt(15809);}while(r); -do{ -goto LABEL_EVALEDNEXTELE; -if(!qbevent)break;evnt(15810);}while(r); -} -} -S_18830:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATE_STRING_L2,qbs_new_txt_len(",",1)))&(-(*_FUNC_EVALUATE_LONG_B2== 0 ))))||new_error){ -if(qbevent){evnt(15813);if(r)goto S_18830;} -do{ -*_FUNC_EVALUATE_LONG_ARGS=*_FUNC_EVALUATE_LONG_ARGS+ 1 ; -if(!qbevent)break;evnt(15813);}while(r); -} -do{ -*_FUNC_EVALUATE_LONG_I2=*_FUNC_EVALUATE_LONG_I2+ 1 ; -if(!qbevent)break;evnt(15814);}while(r); -do{ -goto LABEL_EVALNEXTELE; -if(!qbevent)break;evnt(15815);}while(r); -}else{ -do{ -qbs_set(_FUNC_EVALUATE_STRING_C,FUNC_EVALUATEFUNC(qbs_new_txt_len("",0),&(pass2555= 0 ),_FUNC_EVALUATE_LONG_TYP2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15818);}while(r); -S_18837:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(15819);if(r)goto S_18837;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(15819);}while(r); -} -} -LABEL_EVALEDNEXTELE:; -if(qbevent){evnt(15821);r=0;} -do{ -*_FUNC_EVALUATE_LONG_BLOCKN=*_FUNC_EVALUATE_LONG_BLOCKN+ 1 ; -if(!qbevent)break;evnt(15822);}while(r); -do{ -tmp_long=array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),_FUNC_EVALUATE_STRING_C); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15823);}while(r); -do{ -tmp_long=array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[4],_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[5]); -if (!new_error) ((int16*)(_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]))[tmp_long]= 2 ; -if(!qbevent)break;evnt(15824);}while(r); -do{ -tmp_long=array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5]); -if (!new_error) ((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[tmp_long]=*_FUNC_EVALUATE_LONG_TYP2; -if(!qbevent)break;evnt(15825);}while(r); -S_18845:; -if (((*_FUNC_EVALUATE_LONG_TYP2&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(15826);if(r)goto S_18845;} -do{ -*__INTEGER_STRINGPROCESSINGHAPPENED= 1 ; -if(!qbevent)break;evnt(15826);}while(r); -} -do{ -goto LABEL_EVALED; -if(!qbevent)break;evnt(15827);}while(r); -} -S_18850:; -if ((-(*_FUNC_EVALUATE_LONG_TRY== 2 ))||new_error){ -if(qbevent){evnt(15830);if(r)goto S_18850;} -do{ -*__INTEGER_FINDANOTHERID= 1 ; -if(!qbevent)break;evnt(15830);}while(r); -do{ -*_FUNC_EVALUATE_LONG_TRY=FUNC_FINDID(_FUNC_EVALUATE_STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15830);}while(r); -}else{ -do{ -*_FUNC_EVALUATE_LONG_TRY= 0 ; -if(!qbevent)break;evnt(15830);}while(r); -} -S_18856:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(15831);if(r)goto S_18856;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(15831);}while(r); -} -dl_continue_2545:; -} -dl_exit_2545:; -fornext_continue_2542:; -} -fornext_exit_2542:; -S_18861:; -if ((-(*_FUNC_EVALUATE_LONG_I!=*_FUNC_EVALUATE_LONG_N))||new_error){ -if(qbevent){evnt(15837);if(r)goto S_18861;} -S_18862:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(_FUNC_EVALUATE_STRING_A,&(pass2556=*_FUNC_EVALUATE_LONG_I+ 1 )),qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(15838);if(r)goto S_18862;} -S_18863:; -if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISOPERATOR(_FUNC_EVALUATE_STRING_L)== 0 )))||new_error){ -if(qbevent){evnt(15839);if(r)goto S_18863;} -S_18864:; -if ((qbs_cleanup(qbs_tmp_base,FUNC_ISVALIDVARIABLE(_FUNC_EVALUATE_STRING_L)))||new_error){ -if(qbevent){evnt(15840);if(r)goto S_18864;} -S_18865:; -if (( 0 )||new_error){ -if(qbevent){evnt(15841);if(r)goto S_18865;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2557; -sub_file_print(tmp_fileno,qbs_new_txt_len("**************",14), 0, 0, 1); -if (new_error) goto skip2557; -skip2557: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(15842);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2558; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("about to auto-create array:",27),_FUNC_EVALUATE_STRING_L), 0, 1, 0); -if (new_error) goto skip2558; -sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_EVALUATE_LONG_I)), 1, 0, 1); -if (new_error) goto skip2558; -skip2558: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(15843);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2559; -sub_file_print(tmp_fileno,qbs_new_txt_len("**************",14), 0, 0, 1); -if (new_error) goto skip2559; -skip2559: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(15844);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATE_STRING_DTYP,FUNC_REMOVESYMBOL(_FUNC_EVALUATE_STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15846);}while(r); -S_18871:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(15847);if(r)goto S_18871;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(15847);}while(r); -} -do{ -*_FUNC_EVALUATE_LONG_NUME= 1 ; -if(!qbevent)break;evnt(15849);}while(r); -do{ -*_FUNC_EVALUATE_LONG_B2= 0 ; -if(!qbevent)break;evnt(15850);}while(r); -S_18876:; -fornext_value2561=*_FUNC_EVALUATE_LONG_I+ 2 ; -fornext_finalvalue2561=*_FUNC_EVALUATE_LONG_N; -fornext_step2561= 1 ; -if (fornext_step2561<0) fornext_step_negative2561=1; else fornext_step_negative2561=0; -if (new_error) goto fornext_error2561; -goto fornext_entrylabel2561; -while(1){ -fornext_value2561=fornext_step2561+(*_FUNC_EVALUATE_LONG_I2); -fornext_entrylabel2561: -*_FUNC_EVALUATE_LONG_I2=fornext_value2561; -if (fornext_step_negative2561){ -if (fornext_value2561fornext_finalvalue2561) break; -} -fornext_error2561:; -if(qbevent){evnt(15851);if(r)goto S_18876;} -do{ -qbs_set(_FUNC_EVALUATE_STRING_E,FUNC_GETELEMENT(_FUNC_EVALUATE_STRING_A,_FUNC_EVALUATE_LONG_I2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15852);}while(r); -S_18878:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_E,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(15853);if(r)goto S_18878;} -do{ -*_FUNC_EVALUATE_LONG_B2=*_FUNC_EVALUATE_LONG_B2+ 1 ; -if(!qbevent)break;evnt(15853);}while(r); -} -S_18881:; -if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_EVALUATE_LONG_B2== 0 ))&(qbs_equal(_FUNC_EVALUATE_STRING_E,qbs_new_txt_len(",",1)))))||new_error){ -if(qbevent){evnt(15854);if(r)goto S_18881;} -do{ -*_FUNC_EVALUATE_LONG_NUME=*_FUNC_EVALUATE_LONG_NUME+ 1 ; -if(!qbevent)break;evnt(15854);}while(r); -} -S_18884:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_E,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(15855);if(r)goto S_18884;} -do{ -*_FUNC_EVALUATE_LONG_B2=*_FUNC_EVALUATE_LONG_B2- 1 ; -if(!qbevent)break;evnt(15855);}while(r); -} -S_18887:; -if ((-(*_FUNC_EVALUATE_LONG_B2== -1 ))||new_error){ -if(qbevent){evnt(15856);if(r)goto S_18887;} -do{ -goto fornext_exit_2560; -if(!qbevent)break;evnt(15856);}while(r); -} -fornext_continue_2560:; -} -fornext_exit_2560:; -do{ -qbs_set(_FUNC_EVALUATE_STRING_FAKEE,qbs_new_txt_len("10",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15858);}while(r); -S_18892:; -fornext_value2563= 2 ; -fornext_finalvalue2563=*_FUNC_EVALUATE_LONG_NUME; -fornext_step2563= 1 ; -if (fornext_step2563<0) fornext_step_negative2563=1; else fornext_step_negative2563=0; -if (new_error) goto fornext_error2563; -goto fornext_entrylabel2563; -while(1){ -fornext_value2563=fornext_step2563+(*_FUNC_EVALUATE_LONG_I2); -fornext_entrylabel2563: -*_FUNC_EVALUATE_LONG_I2=fornext_value2563; -if (fornext_step_negative2563){ -if (fornext_value2563fornext_finalvalue2563) break; -} -fornext_error2563:; -if(qbevent){evnt(15858);if(r)goto S_18892;} -do{ -qbs_set(_FUNC_EVALUATE_STRING_FAKEE,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_EVALUATE_STRING_FAKEE,__STRING1_SP),qbs_new_txt_len(",",1)),__STRING1_SP),qbs_new_txt_len("10",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15858);}while(r); -fornext_continue_2562:; -} -fornext_exit_2562:; -S_18895:; -if (( 0 )||new_error){ -if(qbevent){evnt(15859);if(r)goto S_18895;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2564; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("evaluate:creating undefined array using dim2(",45),_FUNC_EVALUATE_STRING_L),qbs_new_txt_len(",",1)),_FUNC_EVALUATE_STRING_DTYP),qbs_new_txt_len(",1,",3)),_FUNC_EVALUATE_STRING_FAKEE),qbs_new_txt_len(")",1)), 0, 0, 1); -if (new_error) goto skip2564; -skip2564: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(15859);}while(r); -} -S_18898:; -if ((*__BYTE_OPTIONEXPLICIT|*__BYTE_OPTIONEXPLICITARRAY)||new_error){ -if(qbevent){evnt(15860);if(r)goto S_18898;} -do{ -SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Array '",7),_FUNC_EVALUATE_STRING_L),qbs_new_txt_len("' (",3)),FUNC_SYMBOL2FULLTYPENAME(_FUNC_EVALUATE_STRING_DTYP)),qbs_new_txt_len(") not defined",13))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15860);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(15860);}while(r); -} -S_18902:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(15861);if(r)goto S_18902;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(15861);}while(r); -} -do{ -*_FUNC_EVALUATE_LONG_OLDDIMSTATIC=*__LONG_DIMSTATIC; -if(!qbevent)break;evnt(15862);}while(r); -do{ -*_FUNC_EVALUATE_LONG_METHOD= 1 ; -if(!qbevent)break;evnt(15863);}while(r); -S_18907:; -if ((*__LONG_SUBFUNCN)||new_error){ -if(qbevent){evnt(15864);if(r)goto S_18907;} -do{ -*__LONG_AUTOARRAY= 1 ; -if(!qbevent)break;evnt(15865);}while(r); -do{ -*_FUNC_EVALUATE_LONG_XI= 1 ; -if(!qbevent)break;evnt(15868);}while(r); -S_18910:; -fornext_value2566= 1 ; -fornext_finalvalue2566=*__LONG_STATICARRAYLISTN; -fornext_step2566= 1 ; -if (fornext_step2566<0) fornext_step_negative2566=1; else fornext_step_negative2566=0; -if (new_error) goto fornext_error2566; -goto fornext_entrylabel2566; -while(1){ -fornext_value2566=fornext_step2566+(*_FUNC_EVALUATE_LONG_X); -fornext_entrylabel2566: -*_FUNC_EVALUATE_LONG_X=fornext_value2566; -if (fornext_step_negative2566){ -if (fornext_value2566fornext_finalvalue2566) break; -} -fornext_error2566:; -if(qbevent){evnt(15869);if(r)goto S_18910;} -do{ -qbs_set(_FUNC_EVALUATE_STRING_VARNAME2,FUNC_GETELEMENT(__STRING_STATICARRAYLIST,_FUNC_EVALUATE_LONG_XI)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15870);}while(r); -do{ -*_FUNC_EVALUATE_LONG_XI=*_FUNC_EVALUATE_LONG_XI+ 1 ; -if(!qbevent)break;evnt(15870);}while(r); -do{ -qbs_set(_FUNC_EVALUATE_STRING_TYP2,FUNC_GETELEMENT(__STRING_STATICARRAYLIST,_FUNC_EVALUATE_LONG_XI)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15871);}while(r); -do{ -*_FUNC_EVALUATE_LONG_XI=*_FUNC_EVALUATE_LONG_XI+ 1 ; -if(!qbevent)break;evnt(15871);}while(r); -do{ -*_FUNC_EVALUATE_LONG_DIMMETHOD2=qbr(func_val(FUNC_GETELEMENT(__STRING_STATICARRAYLIST,_FUNC_EVALUATE_LONG_XI))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15872);}while(r); -do{ -*_FUNC_EVALUATE_LONG_XI=*_FUNC_EVALUATE_LONG_XI+ 1 ; -if(!qbevent)break;evnt(15872);}while(r); -S_18917:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_FUNC_EVALUATE_STRING_L),qbs_ucase(_FUNC_EVALUATE_STRING_VARNAME2))))||new_error){ -if(qbevent){evnt(15874);if(r)goto S_18917;} -do{ -qbs_set(_FUNC_EVALUATE_STRING_L3,_FUNC_EVALUATE_STRING_L2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15875);}while(r); -do{ -qbs_set(_FUNC_EVALUATE_STRING_S,FUNC_REMOVESYMBOL(_FUNC_EVALUATE_STRING_L3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15875);}while(r); -S_18920:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(FUNC_SYMBOL2FULLTYPENAME(_FUNC_EVALUATE_STRING_DTYP),_FUNC_EVALUATE_STRING_TYP2))|(((-(*_FUNC_EVALUATE_LONG_DIMMETHOD2== 0 ))&(qbs_equal(_FUNC_EVALUATE_STRING_S,qbs_new_txt_len("",0)))))))||new_error){ -if(qbevent){evnt(15876);if(r)goto S_18920;} -S_18921:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(15877);if(r)goto S_18921;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(15877);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATE_STRING_L,_FUNC_EVALUATE_STRING_VARNAME2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15879);}while(r); -do{ -qbs_set(_FUNC_EVALUATE_STRING_DTYP,_FUNC_EVALUATE_STRING_TYP2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15880);}while(r); -do{ -*_FUNC_EVALUATE_LONG_METHOD=*_FUNC_EVALUATE_LONG_DIMMETHOD2; -if(!qbevent)break;evnt(15881);}while(r); -do{ -*__LONG_DIMSTATIC= 3 ; -if(!qbevent)break;evnt(15882);}while(r); -} -S_18929:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(15884);if(r)goto S_18929;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(15884);}while(r); -} -} -fornext_continue_2565:; -} -fornext_exit_2565:; -} -do{ -*__BYTE_BYPASSNEXTVARIABLE= -1 ; -if(!qbevent)break;evnt(15888);}while(r); -do{ -*_FUNC_EVALUATE_LONG_IGNORE=FUNC_DIM2(_FUNC_EVALUATE_STRING_L,_FUNC_EVALUATE_STRING_DTYP,_FUNC_EVALUATE_LONG_METHOD,_FUNC_EVALUATE_STRING_FAKEE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15889);}while(r); -S_18937:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(15890);if(r)goto S_18937;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(15890);}while(r); -} -do{ -*__LONG_DIMSTATIC=*_FUNC_EVALUATE_LONG_OLDDIMSTATIC; -if(!qbevent)break;evnt(15891);}while(r); -S_18941:; -if (( 0 )||new_error){ -if(qbevent){evnt(15892);if(r)goto S_18941;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2567; -sub_file_print(tmp_fileno,qbs_new_txt_len("#*#*#* dim2 has returned!!!",27), 0, 0, 1); -if (new_error) goto skip2567; -skip2567: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(15892);}while(r); -} -do{ -goto LABEL_REEVALUATE; -if(!qbevent)break;evnt(15893);}while(r); -} -} -} -} -do{ -qbs_set(_FUNC_EVALUATE_STRING_L,_FUNC_EVALUATE_STRING_L2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15899);}while(r); -} -S_18951:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_L,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(15903);if(r)goto S_18951;} -S_18952:; -if ((-(*_FUNC_EVALUATE_LONG_B== 0 ))||new_error){ -if(qbevent){evnt(15904);if(r)goto S_18952;} -do{ -*_FUNC_EVALUATE_LONG_I1=*_FUNC_EVALUATE_LONG_I+ 1 ; -if(!qbevent)break;evnt(15904);}while(r); -} -do{ -*_FUNC_EVALUATE_LONG_B=*_FUNC_EVALUATE_LONG_B+ 1 ; -if(!qbevent)break;evnt(15905);}while(r); -} -S_18957:; -if ((-(*_FUNC_EVALUATE_LONG_B== 0 ))||new_error){ -if(qbevent){evnt(15908);if(r)goto S_18957;} -do{ -*_FUNC_EVALUATE_LONG_BLOCKN=*_FUNC_EVALUATE_LONG_BLOCKN+ 1 ; -if(!qbevent)break;evnt(15909);}while(r); -do{ -tmp_long=array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),_FUNC_EVALUATE_STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15910);}while(r); -do{ -tmp_long=array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[4],_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[5]); -if (!new_error) ((int16*)(_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(15911);}while(r); -} -S_18962:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_L,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(15914);if(r)goto S_18962;} -do{ -*_FUNC_EVALUATE_LONG_B=*_FUNC_EVALUATE_LONG_B- 1 ; -if(!qbevent)break;evnt(15915);}while(r); -S_18964:; -if ((-(*_FUNC_EVALUATE_LONG_B== 0 ))||new_error){ -if(qbevent){evnt(15916);if(r)goto S_18964;} -do{ -qbs_set(_FUNC_EVALUATE_STRING_C,FUNC_EVALUATE(FUNC_GETELEMENTS(_FUNC_EVALUATE_STRING_A,_FUNC_EVALUATE_LONG_I1,&(pass2568=*_FUNC_EVALUATE_LONG_I- 1 )),_FUNC_EVALUATE_LONG_TYP2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15917);}while(r); -S_18966:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(15918);if(r)goto S_18966;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(15918);}while(r); -} -S_18969:; -if (((*_FUNC_EVALUATE_LONG_TYP2&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(15919);if(r)goto S_18969;} -do{ -*__INTEGER_STRINGPROCESSINGHAPPENED= 1 ; -if(!qbevent)break;evnt(15919);}while(r); -} -do{ -*_FUNC_EVALUATE_LONG_BLOCKN=*_FUNC_EVALUATE_LONG_BLOCKN+ 1 ; -if(!qbevent)break;evnt(15920);}while(r); -S_18973:; -if (((*_FUNC_EVALUATE_LONG_TYP2&*__LONG_ISPOINTER))||new_error){ -if(qbevent){evnt(15921);if(r)goto S_18973;} -do{ -tmp_long=array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),_FUNC_EVALUATE_STRING_C); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15922);}while(r); -}else{ -do{ -tmp_long=array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_add(qbs_add(qbs_new_txt_len("(",1),_FUNC_EVALUATE_STRING_C),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15924);}while(r); -} -do{ -tmp_long=array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[4],_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[5]); -if (!new_error) ((int16*)(_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(15926);}while(r); -do{ -tmp_long=array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5]); -if (!new_error) ((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[tmp_long]=*_FUNC_EVALUATE_LONG_TYP2; -if(!qbevent)break;evnt(15927);}while(r); -} -} -LABEL_EVALED:; -if(qbevent){evnt(15930);r=0;} -fornext_continue_2537:; -} -fornext_exit_2537:; -do{ -qbs_set(_FUNC_EVALUATE_STRING_R,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15933);}while(r); -S_18984:; -if (( 0 )||new_error){ -if(qbevent){evnt(15935);if(r)goto S_18984;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2569; -sub_file_print(tmp_fileno,qbs_new_txt_len("evaluated blocks:",17), 0, 0, 0); -if (new_error) goto skip2569; -skip2569: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(15935);}while(r); -} -S_18987:; -fornext_value2571= 1 ; -fornext_finalvalue2571=*_FUNC_EVALUATE_LONG_BLOCKN; -fornext_step2571= 1 ; -if (fornext_step2571<0) fornext_step_negative2571=1; else fornext_step_negative2571=0; -if (new_error) goto fornext_error2571; -goto fornext_entrylabel2571; -while(1){ -fornext_value2571=fornext_step2571+(*_FUNC_EVALUATE_LONG_I); -fornext_entrylabel2571: -*_FUNC_EVALUATE_LONG_I=fornext_value2571; -if (fornext_step_negative2571){ -if (fornext_value2571fornext_finalvalue2571) break; -} -fornext_error2571:; -if(qbevent){evnt(15936);if(r)goto S_18987;} -S_18988:; -if ((-(*_FUNC_EVALUATE_LONG_I!=*_FUNC_EVALUATE_LONG_BLOCKN))||new_error){ -if(qbevent){evnt(15937);if(r)goto S_18988;} -S_18989:; -if (( 0 )||new_error){ -if(qbevent){evnt(15938);if(r)goto S_18989;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2572; -sub_file_print(tmp_fileno,qbs_add(((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])),func_chr( 219 )), 0, 0, 0); -if (new_error) goto skip2572; -skip2572: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(15938);}while(r); -} -}else{ -S_18993:; -if (( 0 )||new_error){ -if(qbevent){evnt(15940);if(r)goto S_18993;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2573; -sub_file_print(tmp_fileno,((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])), 0, 0, 1); -if (new_error) goto skip2573; -skip2573: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(15940);}while(r); -} -} -fornext_continue_2570:; -} -fornext_exit_2570:; -S_18998:; -fornext_value2575= 1 ; -fornext_finalvalue2575=*_FUNC_EVALUATE_LONG_BLOCKN; -fornext_step2575= 1 ; -if (fornext_step2575<0) fornext_step_negative2575=1; else fornext_step_negative2575=0; -if (new_error) goto fornext_error2575; -goto fornext_entrylabel2575; -while(1){ -fornext_value2575=fornext_step2575+(*_FUNC_EVALUATE_LONG_I); -fornext_entrylabel2575: -*_FUNC_EVALUATE_LONG_I=fornext_value2575; -if (fornext_step_negative2575){ -if (fornext_value2575fornext_finalvalue2575) break; -} -fornext_error2575:; -if(qbevent){evnt(15947);if(r)goto S_18998;} -S_18999:; -if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISOPERATOR(((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])))== 0 )))||new_error){ -if(qbevent){evnt(15948);if(r)goto S_18999;} -S_19000:; -if ((-(((int16*)(_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[4],_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[5])]== 0 ))||new_error){ -if(qbevent){evnt(15949);if(r)goto S_19000;} -do{ -*_FUNC_EVALUATE_LONG_C=qbs_asc(qbs_left(((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])), 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15952);}while(r); -S_19002:; -if (((-(*_FUNC_EVALUATE_LONG_C== 45 ))|(((-(*_FUNC_EVALUATE_LONG_C>= 48 ))&(-(*_FUNC_EVALUATE_LONG_C<= 57 )))))||new_error){ -if(qbevent){evnt(15953);if(r)goto S_19002;} -do{ -qbs_set(_FUNC_EVALUATE_STRING_NUM,((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15954);}while(r); -do{ -*_FUNC_EVALUATE_LONG_F= 0 ; -if(!qbevent)break;evnt(15956);}while(r); -do{ -*_FUNC_EVALUATE_LONG_X=func_instr(NULL,_FUNC_EVALUATE_STRING_NUM,qbs_new_txt_len("E",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15957);}while(r); -S_19006:; -if ((*_FUNC_EVALUATE_LONG_X)||new_error){ -if(qbevent){evnt(15958);if(r)goto S_19006;} -do{ -*_FUNC_EVALUATE_LONG_F= 1 ; -if(!qbevent)break;evnt(15959);}while(r); -do{ -tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5]); -if (!new_error) ((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[tmp_long]=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(15959);}while(r); -}else{ -do{ -*_FUNC_EVALUATE_LONG_X=func_instr(NULL,_FUNC_EVALUATE_STRING_NUM,qbs_new_txt_len("D",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15961);}while(r); -S_19011:; -if ((*_FUNC_EVALUATE_LONG_X)||new_error){ -if(qbevent){evnt(15962);if(r)goto S_19011;} -do{ -*_FUNC_EVALUATE_LONG_F= 2 ; -if(!qbevent)break;evnt(15963);}while(r); -do{ -tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5]); -if (!new_error) ((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[tmp_long]=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(15963);}while(r); -}else{ -do{ -*_FUNC_EVALUATE_LONG_X=func_instr(NULL,_FUNC_EVALUATE_STRING_NUM,qbs_new_txt_len("F",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15965);}while(r); -S_19016:; -if ((*_FUNC_EVALUATE_LONG_X)||new_error){ -if(qbevent){evnt(15966);if(r)goto S_19016;} -do{ -*_FUNC_EVALUATE_LONG_F= 3 ; -if(!qbevent)break;evnt(15967);}while(r); -do{ -tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5]); -if (!new_error) ((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[tmp_long]=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(15967);}while(r); -} -} -} -S_19022:; -if ((*_FUNC_EVALUATE_LONG_F)||new_error){ -if(qbevent){evnt(15971);if(r)goto S_19022;} -S_19023:; -if (((-(*_FUNC_EVALUATE_LONG_F== 2 ))|(-(*_FUNC_EVALUATE_LONG_F== 3 )))||new_error){ -if(qbevent){evnt(15973);if(r)goto S_19023;} -do{ -sub_mid(_FUNC_EVALUATE_STRING_NUM,*_FUNC_EVALUATE_LONG_X, 1 ,qbs_new_txt_len("E",1),1); -if(!qbevent)break;evnt(15973);}while(r); -} -S_19026:; -if ((-(*_FUNC_EVALUATE_LONG_F== 3 ))||new_error){ -if(qbevent){evnt(15974);if(r)goto S_19026;} -do{ -qbs_set(_FUNC_EVALUATE_STRING_NUM,qbs_add(_FUNC_EVALUATE_STRING_NUM,qbs_new_txt_len("L",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15974);}while(r); -} -}else{ -do{ -tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5]); -if (!new_error) ((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[tmp_long]=FUNC_TYPNAME2TYP(FUNC_REMOVESYMBOL(_FUNC_EVALUATE_STRING_NUM)); -if(!qbevent)break;evnt(15977);}while(r); -S_19031:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(15978);if(r)goto S_19031;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(15978);}while(r); -} -S_19034:; -if ((((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])]&*__LONG_ISPOINTER)||new_error){ -if(qbevent){evnt(15979);if(r)goto S_19034;} -do{ -tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5]); -if (!new_error) ((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[tmp_long]=((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])]-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(15979);}while(r); -} -S_19037:; -if ((-((((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])]& 511 )> 32 ))||new_error){ -if(qbevent){evnt(15980);if(r)goto S_19037;} -S_19038:; -if ((((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])]&*__LONG_ISUNSIGNED)||new_error){ -if(qbevent){evnt(15981);if(r)goto S_19038;} -do{ -qbs_set(_FUNC_EVALUATE_STRING_NUM,qbs_add(_FUNC_EVALUATE_STRING_NUM,qbs_new_txt_len("ull",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15981);}while(r); -}else{ -do{ -qbs_set(_FUNC_EVALUATE_STRING_NUM,qbs_add(_FUNC_EVALUATE_STRING_NUM,qbs_new_txt_len("ll",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15981);}while(r); -} -} -} -do{ -tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_add(qbs_add(qbs_new_txt_len(" ",1),_FUNC_EVALUATE_STRING_NUM),qbs_new_txt_len(" ",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(15984);}while(r); -do{ -tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[4],_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[5]); -if (!new_error) ((int16*)(_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(15985);}while(r); -do{ -goto LABEL_EVALEDBLOCK; -if(!qbevent)break;evnt(15986);}while(r); -} -S_19049:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])), 1 ),func_chr( 34 ))))||new_error){ -if(qbevent){evnt(16044);if(r)goto S_19049;} -S_19050:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_right(((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])), 1 ),func_chr( 34 ))))||new_error){ -if(qbevent){evnt(16045);if(r)goto S_19050;} -do{ -tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_add(qbs_add(qbs_new_txt_len("qbs_new_txt_len(",16),((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16046);}while(r); -}else{ -do{ -tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_add(qbs_add(qbs_new_txt_len("qbs_new_txt(",12),((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16048);}while(r); -} -do{ -tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5]); -if (!new_error) ((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[tmp_long]=*__LONG_ISSTRING; -if(!qbevent)break;evnt(16050);}while(r); -do{ -tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[4],_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[5]); -if (!new_error) ((int16*)(_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(16051);}while(r); -do{ -*__INTEGER_STRINGPROCESSINGHAPPENED= 1 ; -if(!qbevent)break;evnt(16052);}while(r); -do{ -goto LABEL_EVALEDBLOCK; -if(!qbevent)break;evnt(16053);}while(r); -} -S_19060:; -if ((qbs_cleanup(qbs_tmp_base,FUNC_ISVALIDVARIABLE(((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])))))||new_error){ -if(qbevent){evnt(16057);if(r)goto S_19060;} -do{ -qbs_set(_FUNC_EVALUATE_STRING_X,((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16058);}while(r); -do{ -qbs_set(_FUNC_EVALUATE_STRING_TYP,FUNC_REMOVESYMBOL(_FUNC_EVALUATE_STRING_X)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16060);}while(r); -S_19063:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(16061);if(r)goto S_19063;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16061);}while(r); -} -S_19066:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_EVALUATE_STRING_TYP->len== 0 )))||new_error){ -if(qbevent){evnt(16064);if(r)goto S_19066;} -S_19067:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_EVALUATE_STRING_X, 1 ),qbs_new_txt_len("_",1))))||new_error){ -if(qbevent){evnt(16065);if(r)goto S_19067;} -do{ -*_FUNC_EVALUATE_LONG_V= 27 ; -if(!qbevent)break;evnt(16065);}while(r); -}else{ -do{ -*_FUNC_EVALUATE_LONG_V=qbs_asc(qbs_ucase(_FUNC_EVALUATE_STRING_X))- 64 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16065);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATE_STRING_TYP,((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEEXTAZ[0]))[array_check((*_FUNC_EVALUATE_LONG_V)-__ARRAY_STRING_DEFINEEXTAZ[4],__ARRAY_STRING_DEFINEEXTAZ[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16066);}while(r); -} -do{ -*_FUNC_EVALUATE_LONG_TRY=FUNC_FINDID(qbs_add(_FUNC_EVALUATE_STRING_X,_FUNC_EVALUATE_STRING_TYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16070);}while(r); -S_19075:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(16071);if(r)goto S_19075;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16071);}while(r); -} -S_19078:; -while((*_FUNC_EVALUATE_LONG_TRY)||new_error){ -if(qbevent){evnt(16072);if(r)goto S_19078;} -S_19079:; -if (( 0 )||new_error){ -if(qbevent){evnt(16073);if(r)goto S_19079;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2578; -sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_EVALUATE_LONG_TRY)), 1, 0, 1); -if (new_error) goto skip2578; -skip2578: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(16073);}while(r); -} -S_19082:; -if (((-(*(int32*)(((char*)__UDT_ID)+(536))!= 0 ))&(-((*(int32*)(((char*)__UDT_ID)+(536))&*__LONG_ISUDT)== 0 )))||new_error){ -if(qbevent){evnt(16074);if(r)goto S_19082;} -do{ -goto LABEL_SIMPLEVARFOUND; -if(!qbevent)break;evnt(16075);}while(r); -} -S_19085:; -if ((-(*_FUNC_EVALUATE_LONG_TRY== 2 ))||new_error){ -if(qbevent){evnt(16077);if(r)goto S_19085;} -do{ -*__INTEGER_FINDANOTHERID= 1 ; -if(!qbevent)break;evnt(16077);}while(r); -do{ -*_FUNC_EVALUATE_LONG_TRY=FUNC_FINDID(qbs_add(_FUNC_EVALUATE_STRING_X,_FUNC_EVALUATE_STRING_TYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16077);}while(r); -}else{ -do{ -*_FUNC_EVALUATE_LONG_TRY= 0 ; -if(!qbevent)break;evnt(16077);}while(r); -} -S_19091:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(16078);if(r)goto S_19091;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16078);}while(r); -} -dl_continue_2577:; -} -dl_exit_2577:; -S_19095:; -if (( 0 )||new_error){ -if(qbevent){evnt(16081);if(r)goto S_19095;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2579; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("CREATING VARIABLE:",18),_FUNC_EVALUATE_STRING_X), 0, 0, 1); -if (new_error) goto skip2579; -skip2579: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(16081);}while(r); -} -S_19098:; -if ((*__BYTE_OPTIONEXPLICIT)||new_error){ -if(qbevent){evnt(16082);if(r)goto S_19098;} -do{ -SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Variable '",10),_FUNC_EVALUATE_STRING_X),qbs_new_txt_len("' (",3)),FUNC_SYMBOL2FULLTYPENAME(_FUNC_EVALUATE_STRING_TYP)),qbs_new_txt_len(") not defined",13))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16082);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16082);}while(r); -} -do{ -*__BYTE_BYPASSNEXTVARIABLE= -1 ; -if(!qbevent)break;evnt(16083);}while(r); -do{ -*_FUNC_EVALUATE_LONG_RETVAL=FUNC_DIM2(_FUNC_EVALUATE_STRING_X,_FUNC_EVALUATE_STRING_TYP,&(pass2580= 1 ),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16084);}while(r); -do{ -SUB_MANAGEVARIABLELIST(qbs_new_txt_len("",0),__STRING_VWATCHNEWVARIABLE,&(pass2581= 0 ),&(pass2582= 3 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16085);}while(r); -S_19105:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(16086);if(r)goto S_19105;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16086);}while(r); -} -LABEL_SIMPLEVARFOUND:; -if(qbevent){evnt(16088);r=0;} -do{ -*__INTEGER_CONSTEQUATION= 0 ; -if(!qbevent)break;evnt(16089);}while(r); -do{ -SUB_MAKEIDREFER(((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])),(&(((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16090);}while(r); -S_19110:; -if (((((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])]&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(16091);if(r)goto S_19110;} -do{ -*__INTEGER_STRINGPROCESSINGHAPPENED= 1 ; -if(!qbevent)break;evnt(16091);}while(r); -} -S_19113:; -if ((-(*_FUNC_EVALUATE_LONG_BLOCKN== 1 ))||new_error){ -if(qbevent){evnt(16092);if(r)goto S_19113;} -S_19114:; -if (((((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])]&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(16093);if(r)goto S_19114;} -do{ -goto LABEL_RETURNPOINTER; -if(!qbevent)break;evnt(16093);}while(r); -} -} -do{ -tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),FUNC_REFER(((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])),(&(((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])])),&(pass2583= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16096);}while(r); -S_19119:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(16096);if(r)goto S_19119;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16096);}while(r); -} -do{ -tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[4],_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[5]); -if (!new_error) ((int16*)(_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(16097);}while(r); -do{ -goto LABEL_EVALEDBLOCK; -if(!qbevent)break;evnt(16098);}while(r); -} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Invalid expression",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16100);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16100);}while(r); -}else{ -S_19128:; -if (((((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])]&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(16103);if(r)goto S_19128;} -S_19129:; -if ((-(*_FUNC_EVALUATE_LONG_BLOCKN== 1 ))||new_error){ -if(qbevent){evnt(16104);if(r)goto S_19129;} -do{ -goto LABEL_RETURNPOINTER; -if(!qbevent)break;evnt(16104);}while(r); -} -do{ -tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),FUNC_REFER(((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])),(&(((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])])),&(pass2584= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16108);}while(r); -S_19133:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(16109);if(r)goto S_19133;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16109);}while(r); -} -} -} -} -LABEL_EVALEDBLOCK:; -if(qbevent){evnt(16115);r=0;} -fornext_continue_2574:; -} -fornext_exit_2574:; -S_19140:; -if ((-(*_FUNC_EVALUATE_LONG_BLOCKN== 1 ))||new_error){ -if(qbevent){evnt(16120);if(r)goto S_19140;} -S_19141:; -if ((((int16*)(_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]))[array_check(( 1 )-_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[4],_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[5])])||new_error){ -if(qbevent){evnt(16121);if(r)goto S_19141;} -S_19142:; -if (((((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check(( 1 )-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])]&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(16122);if(r)goto S_19142;} -LABEL_RETURNPOINTER:; -if(qbevent){evnt(16123);r=0;} -S_19143:; -if (((((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check(( 1 )-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])]&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(16124);if(r)goto S_19143;} -do{ -*__INTEGER_STRINGPROCESSINGHAPPENED= 1 ; -if(!qbevent)break;evnt(16124);}while(r); -} -S_19146:; -if (( 0 )||new_error){ -if(qbevent){evnt(16125);if(r)goto S_19146;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2585; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("evaluated reference:",20),((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check(( 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))), 0, 0, 1); -if (new_error) goto skip2585; -skip2585: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(16125);}while(r); -} -do{ -*_FUNC_EVALUATE_LONG_TYP=((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check(( 1 )-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])]; -if(!qbevent)break;evnt(16126);}while(r); -do{ -qbs_set(_FUNC_EVALUATE_STRING_EVALUATE,((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check(( 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16127);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16128);}while(r); -} -} -} -S_19155:; -if (( 0 )||new_error){ -if(qbevent){evnt(16141);if(r)goto S_19155;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2586; -sub_file_print(tmp_fileno,qbs_new_txt_len("applying operators:",19), 0, 0, 0); -if (new_error) goto skip2586; -skip2586: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(16141);}while(r); -} -S_19158:; -if ((-(*_FUNC_EVALUATE_LONG_TYP== -1 ))||new_error){ -if(qbevent){evnt(16144);if(r)goto S_19158;} -do{ -*_FUNC_EVALUATE_LONG_TYP=((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check(( 1 )-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])]; -if(!qbevent)break;evnt(16145);}while(r); -S_19160:; -if ((qbs_cleanup(qbs_tmp_base,FUNC_ISOPERATOR(((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check(( 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])))))||new_error){ -if(qbevent){evnt(16148);if(r)goto S_19160;} -do{ -*_FUNC_EVALUATE_LONG_TYP=((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check(( 2 )-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])]; -if(!qbevent)break;evnt(16149);}while(r); -} -} -do{ -*_FUNC_EVALUATE_LONG_NONOP= 0 ; -if(!qbevent)break;evnt(16153);}while(r); -S_19165:; -fornext_value2588= 1 ; -fornext_finalvalue2588=*_FUNC_EVALUATE_LONG_BLOCKN; -fornext_step2588= 1 ; -if (fornext_step2588<0) fornext_step_negative2588=1; else fornext_step_negative2588=0; -if (new_error) goto fornext_error2588; -goto fornext_entrylabel2588; -while(1){ -fornext_value2588=fornext_step2588+(*_FUNC_EVALUATE_LONG_I); -fornext_entrylabel2588: -*_FUNC_EVALUATE_LONG_I=fornext_value2588; -if (fornext_step_negative2588){ -if (fornext_value2588fornext_finalvalue2588) break; -} -fornext_error2588:; -if(qbevent){evnt(16154);if(r)goto S_19165;} -S_19166:; -if ((-(((int16*)(_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[4],_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[5])]== 0 ))||new_error){ -if(qbevent){evnt(16156);if(r)goto S_19166;} -do{ -*_FUNC_EVALUATE_LONG_ISOP=FUNC_ISOPERATOR(((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16157);}while(r); -S_19168:; -if ((*_FUNC_EVALUATE_LONG_ISOP)||new_error){ -if(qbevent){evnt(16158);if(r)goto S_19168;} -do{ -*_FUNC_EVALUATE_LONG_NONOP= 0 ; -if(!qbevent)break;evnt(16159);}while(r); -do{ -*__INTEGER_CONSTEQUATION= 0 ; -if(!qbevent)break;evnt(16161);}while(r); -do{ -qbs_set(_FUNC_EVALUATE_STRING_O,((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16164);}while(r); -do{ -*_FUNC_EVALUATE_LONG_U=FUNC_OPERATORUSAGE(_FUNC_EVALUATE_STRING_O,_FUNC_EVALUATE_LONG_TYP,_FUNC_EVALUATE_STRING_I,_FUNC_EVALUATE_LONG_LHSTYP,_FUNC_EVALUATE_LONG_RHSTYP,_FUNC_EVALUATE_LONG_RESULT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16165);}while(r); -S_19173:; -if ((-(*_FUNC_EVALUATE_LONG_U!= 5 ))||new_error){ -if(qbevent){evnt(16167);if(r)goto S_19173;} -do{ -*_FUNC_EVALUATE_LONG_NONOP= 1 ; -if(!qbevent)break;evnt(16168);}while(r); -S_19175:; -if (((-(*_FUNC_EVALUATE_LONG_I== 1 ))|(-(((int16*)(_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I- 1 )-_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[4],_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[5])]== 0 )))||new_error){ -if(qbevent){evnt(16169);if(r)goto S_19175;} -S_19176:; -if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_EVALUATE_LONG_I== 1 ))&(-(*_FUNC_EVALUATE_LONG_BLOCKN== 1 ))&(qbs_equal(_FUNC_EVALUATE_STRING_O,qbs_new_txt_len("-",1)))))||new_error){ -if(qbevent){evnt(16170);if(r)goto S_19176;} -do{ -SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Expected variable/value after '",31),qbs_ucase(_FUNC_EVALUATE_STRING_O)),qbs_new_txt_len("'",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16170);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16170);}while(r); -} -do{ -SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Expected variable/value before '",32),qbs_ucase(_FUNC_EVALUATE_STRING_O)),qbs_new_txt_len("'",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16171);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16171);}while(r); -} -} -S_19184:; -if (((-(*_FUNC_EVALUATE_LONG_I==*_FUNC_EVALUATE_LONG_BLOCKN))|(-(((int16*)(_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[4],_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[5])]== 0 )))||new_error){ -if(qbevent){evnt(16174);if(r)goto S_19184;} -do{ -SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Expected variable/value after '",31),qbs_ucase(_FUNC_EVALUATE_STRING_O)),qbs_new_txt_len("'",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16174);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16174);}while(r); -} -do{ -*_FUNC_EVALUATE_LONG_OLDTYP=*_FUNC_EVALUATE_LONG_TYP; -if(!qbevent)break;evnt(16182);}while(r); -do{ -*_FUNC_EVALUATE_LONG_NEWTYP=((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])]; -if(!qbevent)break;evnt(16183);}while(r); -S_19190:; -if (((-((*_FUNC_EVALUATE_LONG_TYP&*__LONG_ISSTRING)== 0 ))&(-((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISSTRING)!= 0 )))||new_error){ -if(qbevent){evnt(16195);if(r)goto S_19190;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Cannot convert number to string",31)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16196);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16196);}while(r); -} -do{ -*_FUNC_EVALUATE_LONG_OFFSETMODE= 0 ; -if(!qbevent)break;evnt(16200);}while(r); -do{ -*_FUNC_EVALUATE_LONG_OFFSETCVI= 0 ; -if(!qbevent)break;evnt(16201);}while(r); -S_19196:; -if (((-((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISOFFSET)!= 0 ))|(-((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISOFFSET)!= 0 )))||new_error){ -if(qbevent){evnt(16202);if(r)goto S_19196;} -do{ -*_FUNC_EVALUATE_LONG_OFFSETMODE= 2 ; -if(!qbevent)break;evnt(16203);}while(r); -S_19198:; -if ((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISOFFSET)||new_error){ -if(qbevent){evnt(16204);if(r)goto S_19198;} -S_19199:; -if ((-((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISUNSIGNED)== 0 ))||new_error){ -if(qbevent){evnt(16205);if(r)goto S_19199;} -do{ -*_FUNC_EVALUATE_LONG_OFFSETMODE= 1 ; -if(!qbevent)break;evnt(16205);}while(r); -} -} -S_19203:; -if ((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISOFFSET)||new_error){ -if(qbevent){evnt(16207);if(r)goto S_19203;} -S_19204:; -if ((-((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISUNSIGNED)== 0 ))||new_error){ -if(qbevent){evnt(16208);if(r)goto S_19204;} -do{ -*_FUNC_EVALUATE_LONG_OFFSETMODE= 1 ; -if(!qbevent)break;evnt(16208);}while(r); -} -} -S_19208:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATE_STRING_O,qbs_new_txt_len("*",1)))|(qbs_equal(_FUNC_EVALUATE_STRING_O,qbs_new_txt_len("/",1)))|(qbs_equal(_FUNC_EVALUATE_STRING_O,qbs_new_txt_len("^",1)))))||new_error){ -if(qbevent){evnt(16214);if(r)goto S_19208;} -S_19209:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATE_STRING_O,qbs_new_txt_len("*",1)))|(qbs_equal(_FUNC_EVALUATE_STRING_O,qbs_new_txt_len("^",1)))))||new_error){ -if(qbevent){evnt(16215);if(r)goto S_19209;} -S_19210:; -if (((-((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISFLOAT)!= 0 ))|(-((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISFLOAT)!= 0 )))||new_error){ -if(qbevent){evnt(16217);if(r)goto S_19210;} -do{ -*_FUNC_EVALUATE_LONG_OFFSETCVI= 1 ; -if(!qbevent)break;evnt(16218);}while(r); -S_19212:; -if ((-((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISFLOAT)== 0 ))||new_error){ -if(qbevent){evnt(16219);if(r)goto S_19212;} -do{ -*_FUNC_EVALUATE_LONG_LHSTYP= 2 ; -if(!qbevent)break;evnt(16219);}while(r); -} -S_19215:; -if ((-((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISFLOAT)== 0 ))||new_error){ -if(qbevent){evnt(16220);if(r)goto S_19215;} -do{ -*_FUNC_EVALUATE_LONG_RHSTYP= 2 ; -if(!qbevent)break;evnt(16220);}while(r); -} -} -} -S_19220:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATE_STRING_O,qbs_new_txt_len("/",1)))|(qbs_equal(_FUNC_EVALUATE_STRING_O,qbs_new_txt_len("^",1)))))||new_error){ -if(qbevent){evnt(16223);if(r)goto S_19220;} -do{ -*_FUNC_EVALUATE_LONG_OFFSETCVI= 1 ; -if(!qbevent)break;evnt(16225);}while(r); -S_19222:; -if ((-((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISFLOAT)== 0 ))||new_error){ -if(qbevent){evnt(16226);if(r)goto S_19222;} -do{ -*_FUNC_EVALUATE_LONG_LHSTYP= 2 ; -if(!qbevent)break;evnt(16226);}while(r); -} -S_19225:; -if ((-((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISFLOAT)== 0 ))||new_error){ -if(qbevent){evnt(16227);if(r)goto S_19225;} -do{ -*_FUNC_EVALUATE_LONG_RHSTYP= 2 ; -if(!qbevent)break;evnt(16227);}while(r); -} -} -}else{ -S_19230:; -if ((*_FUNC_EVALUATE_LONG_LHSTYP& 2 )||new_error){ -if(qbevent){evnt(16230);if(r)goto S_19230;} -do{ -*_FUNC_EVALUATE_LONG_LHSTYP= 1 ; -if(!qbevent)break;evnt(16230);}while(r); -} -S_19233:; -if ((*_FUNC_EVALUATE_LONG_RHSTYP& 2 )||new_error){ -if(qbevent){evnt(16231);if(r)goto S_19233;} -do{ -*_FUNC_EVALUATE_LONG_RHSTYP= 1 ; -if(!qbevent)break;evnt(16231);}while(r); -} -} -S_19237:; -if ((-(*_FUNC_EVALUATE_LONG_RESULT== 2 ))||new_error){ -if(qbevent){evnt(16234);if(r)goto S_19237;} -do{ -*_FUNC_EVALUATE_LONG_RESULT= 1 ; -if(!qbevent)break;evnt(16234);}while(r); -} -} -S_19241:; -if (((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(16241);if(r)goto S_19241;} -S_19242:; -if ((-((*_FUNC_EVALUATE_LONG_LHSTYP& 4 )== 0 ))||new_error){ -if(qbevent){evnt(16242);if(r)goto S_19242;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Cannot convert string to number",31)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16242);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16242);}while(r); -} -}else{ -S_19247:; -if ((-(*_FUNC_EVALUATE_LONG_LHSTYP== 4 ))||new_error){ -if(qbevent){evnt(16245);if(r)goto S_19247;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Cannot convert number to string",31)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16245);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16245);}while(r); -} -S_19251:; -if (((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISFLOAT))||new_error){ -if(qbevent){evnt(16246);if(r)goto S_19251;} -S_19252:; -if ((-((*_FUNC_EVALUATE_LONG_LHSTYP& 2 )== 0 ))||new_error){ -if(qbevent){evnt(16247);if(r)goto S_19252;} -do{ -tmp_long=array_check((*_FUNC_EVALUATE_LONG_I- 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_add(qbs_add(qbs_new_txt_len("qbr(",4),((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I- 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16249);}while(r); -do{ -*_FUNC_EVALUATE_LONG_OLDTYP= 64 ; -if(!qbevent)break;evnt(16250);}while(r); -} -}else{ -S_19257:; -if ((-((*_FUNC_EVALUATE_LONG_LHSTYP& 1 )== 0 ))||new_error){ -if(qbevent){evnt(16254);if(r)goto S_19257;} -do{ -tmp_long=array_check((*_FUNC_EVALUATE_LONG_I- 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_add(qbs_add(qbs_new_txt_len("((long double)(",15),((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I- 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))),qbs_new_txt_len("))",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16256);}while(r); -do{ -*_FUNC_EVALUATE_LONG_OLDTYP= 256 +*__LONG_ISFLOAT; -if(!qbevent)break;evnt(16257);}while(r); -} -} -} -S_19263:; -if (((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(16262);if(r)goto S_19263;} -S_19264:; -if ((-((*_FUNC_EVALUATE_LONG_RHSTYP& 4 )== 0 ))||new_error){ -if(qbevent){evnt(16263);if(r)goto S_19264;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Cannot convert string to number",31)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16263);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16263);}while(r); -} -}else{ -S_19269:; -if ((-(*_FUNC_EVALUATE_LONG_RHSTYP== 4 ))||new_error){ -if(qbevent){evnt(16266);if(r)goto S_19269;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Cannot convert number to string",31)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16266);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16266);}while(r); -} -S_19273:; -if (((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISFLOAT))||new_error){ -if(qbevent){evnt(16267);if(r)goto S_19273;} -S_19274:; -if ((-((*_FUNC_EVALUATE_LONG_RHSTYP& 2 )== 0 ))||new_error){ -if(qbevent){evnt(16268);if(r)goto S_19274;} -do{ -tmp_long=array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_add(qbs_add(qbs_new_txt_len("qbr(",4),((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16270);}while(r); -do{ -*_FUNC_EVALUATE_LONG_NEWTYP= 64 ; -if(!qbevent)break;evnt(16271);}while(r); -} -}else{ -S_19279:; -if ((-((*_FUNC_EVALUATE_LONG_RHSTYP& 1 )== 0 ))||new_error){ -if(qbevent){evnt(16275);if(r)goto S_19279;} -do{ -tmp_long=array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_add(qbs_add(qbs_new_txt_len("((long double)(",15),((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))),qbs_new_txt_len("))",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16277);}while(r); -do{ -*_FUNC_EVALUATE_LONG_NEWTYP= 256 +*__LONG_ISFLOAT; -if(!qbevent)break;evnt(16278);}while(r); -} -} -} -S_19285:; -if ((-(*_FUNC_EVALUATE_LONG_ISOP== 7 ))||new_error){ -if(qbevent){evnt(16284);if(r)goto S_19285;} -S_19286:; -if (((-((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISFLOAT)!= 0 ))&(-((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISFLOAT)!= 0 )))||new_error){ -if(qbevent){evnt(16294);if(r)goto S_19286;} -do{ -*_FUNC_EVALUATE_LONG_S1=*_FUNC_EVALUATE_LONG_OLDTYP& 511 ; -if(!qbevent)break;evnt(16295);}while(r); -do{ -*_FUNC_EVALUATE_LONG_S2=*_FUNC_EVALUATE_LONG_NEWTYP& 511 ; -if(!qbevent)break;evnt(16295);}while(r); -S_19289:; -if ((-(*_FUNC_EVALUATE_LONG_S2<*_FUNC_EVALUATE_LONG_S1))||new_error){ -if(qbevent){evnt(16296);if(r)goto S_19289;} -do{ -*_FUNC_EVALUATE_LONG_S1=*_FUNC_EVALUATE_LONG_S2; -if(!qbevent)break;evnt(16296);}while(r); -} -S_19292:; -if ((-(*_FUNC_EVALUATE_LONG_S1== 32 ))||new_error){ -if(qbevent){evnt(16297);if(r)goto S_19292;} -do{ -tmp_long=array_check((*_FUNC_EVALUATE_LONG_I- 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_add(qbs_add(qbs_new_txt_len("((float)(",9),((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I- 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))),qbs_new_txt_len("))",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16298);}while(r); -do{ -*_FUNC_EVALUATE_LONG_OLDTYP= 32 +*__LONG_ISFLOAT; -if(!qbevent)break;evnt(16298);}while(r); -do{ -tmp_long=array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_add(qbs_add(qbs_new_txt_len("((float)(",9),((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))),qbs_new_txt_len("))",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16299);}while(r); -do{ -*_FUNC_EVALUATE_LONG_NEWTYP= 32 +*__LONG_ISFLOAT; -if(!qbevent)break;evnt(16299);}while(r); -} -S_19298:; -if ((-(*_FUNC_EVALUATE_LONG_S1== 64 ))||new_error){ -if(qbevent){evnt(16301);if(r)goto S_19298;} -do{ -tmp_long=array_check((*_FUNC_EVALUATE_LONG_I- 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_add(qbs_add(qbs_new_txt_len("((double)(",10),((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I- 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))),qbs_new_txt_len("))",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16302);}while(r); -do{ -*_FUNC_EVALUATE_LONG_OLDTYP= 64 +*__LONG_ISFLOAT; -if(!qbevent)break;evnt(16302);}while(r); -do{ -tmp_long=array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_add(qbs_add(qbs_new_txt_len("((double)(",10),((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))),qbs_new_txt_len("))",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16303);}while(r); -do{ -*_FUNC_EVALUATE_LONG_NEWTYP= 64 +*__LONG_ISFLOAT; -if(!qbevent)break;evnt(16303);}while(r); -} -} -} -do{ -*_FUNC_EVALUATE_LONG_TYP=*_FUNC_EVALUATE_LONG_NEWTYP; -if(!qbevent)break;evnt(16308);}while(r); -S_19307:; -if (((-((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISSTRING)== 0 ))&(-((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISSTRING)== 0 )))||new_error){ -if(qbevent){evnt(16315);if(r)goto S_19307;} -S_19308:; -if (((-((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISFLOAT)!= 0 ))|(-((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISFLOAT)!= 0 )))||new_error){ -if(qbevent){evnt(16316);if(r)goto S_19308;} -do{ -*_FUNC_EVALUATE_LONG_B= 0 ; -if(!qbevent)break;evnt(16318);}while(r); -S_19310:; -if (((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISFLOAT))||new_error){ -if(qbevent){evnt(16318);if(r)goto S_19310;} -do{ -*_FUNC_EVALUATE_LONG_B=*_FUNC_EVALUATE_LONG_OLDTYP& 511 ; -if(!qbevent)break;evnt(16318);}while(r); -} -S_19313:; -if (((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISFLOAT))||new_error){ -if(qbevent){evnt(16319);if(r)goto S_19313;} -do{ -*_FUNC_EVALUATE_LONG_B2=*_FUNC_EVALUATE_LONG_NEWTYP& 511 ; -if(!qbevent)break;evnt(16320);}while(r); -S_19315:; -if ((-(*_FUNC_EVALUATE_LONG_B2>*_FUNC_EVALUATE_LONG_B))||new_error){ -if(qbevent){evnt(16320);if(r)goto S_19315;} -do{ -*_FUNC_EVALUATE_LONG_B=*_FUNC_EVALUATE_LONG_B2; -if(!qbevent)break;evnt(16320);}while(r); -} -} -do{ -*_FUNC_EVALUATE_LONG_TYP=*__LONG_ISFLOAT+*_FUNC_EVALUATE_LONG_B; -if(!qbevent)break;evnt(16322);}while(r); -}else{ -do{ -*_FUNC_EVALUATE_LONG_B=*_FUNC_EVALUATE_LONG_OLDTYP& 511 ; -if(!qbevent)break;evnt(16327);}while(r); -do{ -*_FUNC_EVALUATE_LONG_B2=*_FUNC_EVALUATE_LONG_NEWTYP& 511 ; -if(!qbevent)break;evnt(16327);}while(r); -S_19323:; -if ((-(*_FUNC_EVALUATE_LONG_B2>*_FUNC_EVALUATE_LONG_B))||new_error){ -if(qbevent){evnt(16327);if(r)goto S_19323;} -do{ -*_FUNC_EVALUATE_LONG_B=*_FUNC_EVALUATE_LONG_B2; -if(!qbevent)break;evnt(16327);}while(r); -} -do{ -*_FUNC_EVALUATE_LONG_TYP= 64 ; -if(!qbevent)break;evnt(16328);}while(r); -S_19327:; -if ((-(*_FUNC_EVALUATE_LONG_B== 64 ))||new_error){ -if(qbevent){evnt(16329);if(r)goto S_19327;} -S_19328:; -if (((-((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISUNSIGNED)!= 0 ))&(-((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISUNSIGNED)!= 0 )))||new_error){ -if(qbevent){evnt(16330);if(r)goto S_19328;} -do{ -*_FUNC_EVALUATE_LONG_TYP= 64 +*__LONG_ISUNSIGNED; -if(!qbevent)break;evnt(16330);}while(r); -} -} -} -} -S_19334:; -if ((-(*_FUNC_EVALUATE_LONG_RESULT== 1 ))||new_error){ -if(qbevent){evnt(16335);if(r)goto S_19334;} -S_19335:; -if (((-((*_FUNC_EVALUATE_LONG_TYP&*__LONG_ISFLOAT)!= 0 ))|(-((*_FUNC_EVALUATE_LONG_TYP&*__LONG_ISSTRING)!= 0 )))||new_error){ -if(qbevent){evnt(16336);if(r)goto S_19335;} -do{ -*_FUNC_EVALUATE_LONG_TYP= 64 ; -if(!qbevent)break;evnt(16336);}while(r); -} -} -S_19339:; -if ((-(*_FUNC_EVALUATE_LONG_RESULT== 2 ))||new_error){ -if(qbevent){evnt(16338);if(r)goto S_19339;} -S_19340:; -if ((-((*_FUNC_EVALUATE_LONG_TYP&*__LONG_ISFLOAT)== 0 ))||new_error){ -if(qbevent){evnt(16339);if(r)goto S_19340;} -do{ -*_FUNC_EVALUATE_LONG_TYP=*__LONG_ISFLOAT+ 256 ; -if(!qbevent)break;evnt(16339);}while(r); -} -} -S_19344:; -if ((-(*_FUNC_EVALUATE_LONG_RESULT== 4 ))||new_error){ -if(qbevent){evnt(16341);if(r)goto S_19344;} -do{ -*_FUNC_EVALUATE_LONG_TYP=*__LONG_ISSTRING; -if(!qbevent)break;evnt(16342);}while(r); -} -S_19347:; -if ((-(*_FUNC_EVALUATE_LONG_RESULT== 8 ))||new_error){ -if(qbevent){evnt(16344);if(r)goto S_19347;} -do{ -*_FUNC_EVALUATE_LONG_TYP= 32 ; -if(!qbevent)break;evnt(16345);}while(r); -} -S_19350:; -if ((*_FUNC_EVALUATE_LONG_OFFSETMODE)||new_error){ -if(qbevent){evnt(16349);if(r)goto S_19350;} -S_19351:; -if ((-(*_FUNC_EVALUATE_LONG_RESULT!= 8 ))||new_error){ -if(qbevent){evnt(16350);if(r)goto S_19351;} -do{ -*_FUNC_EVALUATE_LONG_TYP=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(16351);}while(r); -S_19353:; -if ((-(*_FUNC_EVALUATE_LONG_OFFSETMODE== 2 ))||new_error){ -if(qbevent){evnt(16351);if(r)goto S_19353;} -do{ -*_FUNC_EVALUATE_LONG_TYP=*_FUNC_EVALUATE_LONG_TYP+*__LONG_ISUNSIGNED; -if(!qbevent)break;evnt(16351);}while(r); -} -} -} -S_19358:; -if ((-(*_FUNC_EVALUATE_LONG_U== 2 ))||new_error){ -if(qbevent){evnt(16356);if(r)goto S_19358;} -S_19359:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_I,qbs_new_txt_len("pow2",4))))||new_error){ -if(qbevent){evnt(16357);if(r)goto S_19359;} -S_19360:; -if ((*_FUNC_EVALUATE_LONG_OFFSETMODE)||new_error){ -if(qbevent){evnt(16359);if(r)goto S_19360;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Operator '^' cannot be used with an _OFFSET",43)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16359);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16359);}while(r); -} -do{ -*_FUNC_EVALUATE_LONG_B=*_FUNC_EVALUATE_LONG_OLDTYP& 511 ; -if(!qbevent)break;evnt(16363);}while(r); -S_19365:; -if ((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISFLOAT)||new_error){ -if(qbevent){evnt(16364);if(r)goto S_19365;} -}else{ -S_19367:; -if ((-(*_FUNC_EVALUATE_LONG_B> 16 ))||new_error){ -if(qbevent){evnt(16367);if(r)goto S_19367;} -do{ -*_FUNC_EVALUATE_LONG_B= 64 ; -if(!qbevent)break;evnt(16367);}while(r); -} -S_19370:; -if ((-(*_FUNC_EVALUATE_LONG_B> 32 ))||new_error){ -if(qbevent){evnt(16368);if(r)goto S_19370;} -do{ -*_FUNC_EVALUATE_LONG_B= 256 ; -if(!qbevent)break;evnt(16368);}while(r); -} -S_19373:; -if ((-(*_FUNC_EVALUATE_LONG_B<= 16 ))||new_error){ -if(qbevent){evnt(16369);if(r)goto S_19373;} -do{ -*_FUNC_EVALUATE_LONG_B= 32 ; -if(!qbevent)break;evnt(16369);}while(r); -} -} -do{ -*_FUNC_EVALUATE_LONG_B2=*_FUNC_EVALUATE_LONG_NEWTYP& 511 ; -if(!qbevent)break;evnt(16371);}while(r); -S_19378:; -if ((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISFLOAT)||new_error){ -if(qbevent){evnt(16372);if(r)goto S_19378;} -S_19379:; -if ((-(*_FUNC_EVALUATE_LONG_B2>*_FUNC_EVALUATE_LONG_B))||new_error){ -if(qbevent){evnt(16373);if(r)goto S_19379;} -do{ -*_FUNC_EVALUATE_LONG_B=*_FUNC_EVALUATE_LONG_B2; -if(!qbevent)break;evnt(16373);}while(r); -} -}else{ -do{ -*_FUNC_EVALUATE_LONG_B3= 32 ; -if(!qbevent)break;evnt(16375);}while(r); -S_19384:; -if ((-(*_FUNC_EVALUATE_LONG_B2> 16 ))||new_error){ -if(qbevent){evnt(16376);if(r)goto S_19384;} -do{ -*_FUNC_EVALUATE_LONG_B3= 64 ; -if(!qbevent)break;evnt(16376);}while(r); -} -S_19387:; -if ((-(*_FUNC_EVALUATE_LONG_B2> 32 ))||new_error){ -if(qbevent){evnt(16377);if(r)goto S_19387;} -do{ -*_FUNC_EVALUATE_LONG_B3= 256 ; -if(!qbevent)break;evnt(16377);}while(r); -} -S_19390:; -if ((-(*_FUNC_EVALUATE_LONG_B3>*_FUNC_EVALUATE_LONG_B))||new_error){ -if(qbevent){evnt(16378);if(r)goto S_19390;} -do{ -*_FUNC_EVALUATE_LONG_B=*_FUNC_EVALUATE_LONG_B3; -if(!qbevent)break;evnt(16378);}while(r); -} -} -do{ -*_FUNC_EVALUATE_LONG_TYP=*__LONG_ISFLOAT+*_FUNC_EVALUATE_LONG_B; -if(!qbevent)break;evnt(16380);}while(r); -} -} -S_19397:; -if ((-(*_FUNC_EVALUATE_LONG_U== 5 ))||new_error){ -if(qbevent){evnt(16387);if(r)goto S_19397;} -do{ -tmp_long=array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_add(qbs_add(qbs_add(_FUNC_EVALUATE_STRING_I,qbs_new_txt_len("(",1)),((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16388);}while(r); -do{ -tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16389);}while(r); -do{ -*_FUNC_EVALUATE_LONG_I=*_FUNC_EVALUATE_LONG_I+ 1 ; -if(!qbevent)break;evnt(16389);}while(r); -do{ -goto LABEL_OPERATORAPPLIED; -if(!qbevent)break;evnt(16389);}while(r); -} -S_19403:; -if ((-(*_FUNC_EVALUATE_LONG_U== 1 ))||new_error){ -if(qbevent){evnt(16394);if(r)goto S_19403;} -do{ -tmp_long=array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_add(qbs_add(((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I- 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])),_FUNC_EVALUATE_STRING_I),((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16395);}while(r); -do{ -tmp_long=array_check((*_FUNC_EVALUATE_LONG_I- 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16396);}while(r); -do{ -tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16396);}while(r); -do{ -*_FUNC_EVALUATE_LONG_I=*_FUNC_EVALUATE_LONG_I+ 1 ; -if(!qbevent)break;evnt(16396);}while(r); -do{ -goto LABEL_OPERATORAPPLIED; -if(!qbevent)break;evnt(16396);}while(r); -} -S_19410:; -if ((-(*_FUNC_EVALUATE_LONG_U== 2 ))||new_error){ -if(qbevent){evnt(16399);if(r)goto S_19410;} -do{ -tmp_long=array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_EVALUATE_STRING_I,qbs_new_txt_len("(",1)),((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I- 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))),qbs_new_txt_len(",",1)),((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16400);}while(r); -do{ -tmp_long=array_check((*_FUNC_EVALUATE_LONG_I- 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16401);}while(r); -do{ -tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16401);}while(r); -do{ -*_FUNC_EVALUATE_LONG_I=*_FUNC_EVALUATE_LONG_I+ 1 ; -if(!qbevent)break;evnt(16401);}while(r); -do{ -goto LABEL_OPERATORAPPLIED; -if(!qbevent)break;evnt(16401);}while(r); -} -S_19417:; -if ((-(*_FUNC_EVALUATE_LONG_U== 3 ))||new_error){ -if(qbevent){evnt(16404);if(r)goto S_19417;} -do{ -tmp_long=array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("-(",2),((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I- 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))),_FUNC_EVALUATE_STRING_I),((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16405);}while(r); -do{ -tmp_long=array_check((*_FUNC_EVALUATE_LONG_I- 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16406);}while(r); -do{ -tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16406);}while(r); -do{ -*_FUNC_EVALUATE_LONG_I=*_FUNC_EVALUATE_LONG_I+ 1 ; -if(!qbevent)break;evnt(16406);}while(r); -do{ -goto LABEL_OPERATORAPPLIED; -if(!qbevent)break;evnt(16406);}while(r); -} -S_19424:; -if ((-(*_FUNC_EVALUATE_LONG_U== 4 ))||new_error){ -if(qbevent){evnt(16409);if(r)goto S_19424;} -do{ -tmp_long=array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_add(qbs_add(qbs_add(qbs_new_txt_len("~",1),((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I- 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))),_FUNC_EVALUATE_STRING_I),((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16410);}while(r); -do{ -tmp_long=array_check((*_FUNC_EVALUATE_LONG_I- 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16411);}while(r); -do{ -tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16411);}while(r); -do{ -*_FUNC_EVALUATE_LONG_I=*_FUNC_EVALUATE_LONG_I+ 1 ; -if(!qbevent)break;evnt(16411);}while(r); -do{ -goto LABEL_OPERATORAPPLIED; -if(!qbevent)break;evnt(16411);}while(r); -} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("ERROR: Operator could not be applied correctly!",47)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16416);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16416);}while(r); -LABEL_OPERATORAPPLIED:; -if(qbevent){evnt(16417);r=0;} -S_19433:; -if ((*_FUNC_EVALUATE_LONG_OFFSETCVI)||new_error){ -if(qbevent){evnt(16419);if(r)goto S_19433;} -do{ -tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_add(qbs_add(qbs_new_txt_len("qbr(",4),((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16419);}while(r); -do{ -*_FUNC_EVALUATE_LONG_OFFSETCVI= 0 ; -if(!qbevent)break;evnt(16419);}while(r); -} -do{ -*_FUNC_EVALUATE_LONG_OFFSETMODE= 0 ; -if(!qbevent)break;evnt(16420);}while(r); -}else{ -do{ -*_FUNC_EVALUATE_LONG_NONOP=*_FUNC_EVALUATE_LONG_NONOP+ 1 ; -if(!qbevent)break;evnt(16423);}while(r); -} -}else{ -do{ -*_FUNC_EVALUATE_LONG_NONOP=*_FUNC_EVALUATE_LONG_NONOP+ 1 ; -if(!qbevent)break;evnt(16426);}while(r); -} -S_19444:; -if ((-(*_FUNC_EVALUATE_LONG_NONOP> 1 ))||new_error){ -if(qbevent){evnt(16428);if(r)goto S_19444;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected operator in equation",29)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16428);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16428);}while(r); -} -fornext_continue_2587:; -} -fornext_exit_2587:; -S_19449:; -if (( 0 )||new_error){ -if(qbevent){evnt(16430);if(r)goto S_19449;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2589; -sub_file_print(tmp_fileno,qbs_new_txt_len("",0), 0, 0, 1); -if (new_error) goto skip2589; -skip2589: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(16430);}while(r); -} -S_19452:; -fornext_value2591= 1 ; -fornext_finalvalue2591=*_FUNC_EVALUATE_LONG_BLOCKN; -fornext_step2591= 1 ; -if (fornext_step2591<0) fornext_step_negative2591=1; else fornext_step_negative2591=0; -if (new_error) goto fornext_error2591; -goto fornext_entrylabel2591; -while(1){ -fornext_value2591=fornext_step2591+(*_FUNC_EVALUATE_LONG_I); -fornext_entrylabel2591: -*_FUNC_EVALUATE_LONG_I=fornext_value2591; -if (fornext_step_negative2591){ -if (fornext_value2591fornext_finalvalue2591) break; -} -fornext_error2591:; -if(qbevent){evnt(16433);if(r)goto S_19452;} -do{ -qbs_set(_FUNC_EVALUATE_STRING_R,qbs_add(_FUNC_EVALUATE_STRING_R,((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16434);}while(r); -fornext_continue_2590:; -} -fornext_exit_2590:; -S_19455:; -if (( 0 )||new_error){ -if(qbevent){evnt(16437);if(r)goto S_19455;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2592; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("evaluated:",10),_FUNC_EVALUATE_STRING_R),qbs_new_txt_len(" AS TYPE:",9)), 0, 0, 0); -if (new_error) goto skip2592; -skip2592: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(16438);}while(r); -S_19457:; -if (((*_FUNC_EVALUATE_LONG_TYP&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(16439);if(r)goto S_19457;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2593; -sub_file_print(tmp_fileno,qbs_new_txt_len("[ISSTRING]",10), 0, 0, 0); -if (new_error) goto skip2593; -skip2593: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(16439);}while(r); -} -S_19460:; -if (((*_FUNC_EVALUATE_LONG_TYP&*__LONG_ISFLOAT))||new_error){ -if(qbevent){evnt(16440);if(r)goto S_19460;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2594; -sub_file_print(tmp_fileno,qbs_new_txt_len("[ISFLOAT]",9), 0, 0, 0); -if (new_error) goto skip2594; -skip2594: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(16440);}while(r); -} -S_19463:; -if (((*_FUNC_EVALUATE_LONG_TYP&*__LONG_ISUNSIGNED))||new_error){ -if(qbevent){evnt(16441);if(r)goto S_19463;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2595; -sub_file_print(tmp_fileno,qbs_new_txt_len("[ISUNSIGNED]",12), 0, 0, 0); -if (new_error) goto skip2595; -skip2595: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(16441);}while(r); -} -S_19466:; -if (((*_FUNC_EVALUATE_LONG_TYP&*__LONG_ISPOINTER))||new_error){ -if(qbevent){evnt(16442);if(r)goto S_19466;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2596; -sub_file_print(tmp_fileno,qbs_new_txt_len("[ISPOINTER]",11), 0, 0, 0); -if (new_error) goto skip2596; -skip2596: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(16442);}while(r); -} -S_19469:; -if (((*_FUNC_EVALUATE_LONG_TYP&*__LONG_ISFIXEDLENGTH))||new_error){ -if(qbevent){evnt(16443);if(r)goto S_19469;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2597; -sub_file_print(tmp_fileno,qbs_new_txt_len("[ISFIXEDLENGTH]",15), 0, 0, 0); -if (new_error) goto skip2597; -skip2597: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(16443);}while(r); -} -S_19472:; -if (((*_FUNC_EVALUATE_LONG_TYP&*__LONG_ISINCONVENTIONALMEMORY))||new_error){ -if(qbevent){evnt(16444);if(r)goto S_19472;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2598; -sub_file_print(tmp_fileno,qbs_new_txt_len("[ISINCONVENTIONALMEMORY]",24), 0, 0, 0); -if (new_error) goto skip2598; -skip2598: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(16444);}while(r); -} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2599; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("(size in bits=",14),FUNC_STR2(&(pass2600=*_FUNC_EVALUATE_LONG_TYP& 511 ))),qbs_new_txt_len(")",1)), 0, 0, 1); -if (new_error) goto skip2599; -skip2599: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(16445);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATE_STRING_EVALUATE,_FUNC_EVALUATE_STRING_R); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16449);}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free18.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_EVALUATE_STRING_EVALUATE);return _FUNC_EVALUATE_STRING_EVALUATE; -} -qbs* FUNC_EVALUATEFUNC(qbs*_FUNC_EVALUATEFUNC_STRING_A2,int32*_FUNC_EVALUATEFUNC_LONG_ARGS,int32*_FUNC_EVALUATEFUNC_LONG_TYP){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data19.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_A,_FUNC_EVALUATEFUNC_STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16459);}while(r); -S_19479:; -if (( 0 )||new_error){ -if(qbevent){evnt(16461);if(r)goto S_19479;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2602; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("evaluatingfunction:",19),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1))),qbs_new_txt_len(":",1)),_FUNC_EVALUATEFUNC_STRING_A), 0, 0, 1); -if (new_error) goto skip2602; -skip2602: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(16461);}while(r); -} -do{ -if(!qbevent)break;evnt(16463);}while(r); -do{ -memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 0),(((char*)__UDT_ID)+(0)+ 0), 256); -memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 256),(((char*)__UDT_ID)+(0)+ 256), 256); -memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 512),(((char*)__UDT_ID)+(0)+ 512), 4); -memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 516),(((char*)__UDT_ID)+(0)+ 516), 2); -memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 518),(((char*)__UDT_ID)+(0)+ 518), 2); -memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 520),(((char*)__UDT_ID)+(0)+ 520), 8); -memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 528),(((char*)__UDT_ID)+(0)+ 528), 8); -memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 536),(((char*)__UDT_ID)+(0)+ 536), 4); -memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 540),(((char*)__UDT_ID)+(0)+ 540), 4); -memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 544),(((char*)__UDT_ID)+(0)+ 544), 2); -memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 546),(((char*)__UDT_ID)+(0)+ 546), 2); -memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 548),(((char*)__UDT_ID)+(0)+ 548), 2); -memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 550),(((char*)__UDT_ID)+(0)+ 550), 256); -memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 806),(((char*)__UDT_ID)+(0)+ 806), 2); -memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 808),(((char*)__UDT_ID)+(0)+ 808), 1); -memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 809),(((char*)__UDT_ID)+(0)+ 809), 2); -memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 811),(((char*)__UDT_ID)+(0)+ 811), 2); -memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 813),(((char*)__UDT_ID)+(0)+ 813), 400); -memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 1213),(((char*)__UDT_ID)+(0)+ 1213), 400); -memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 1613),(((char*)__UDT_ID)+(0)+ 1613), 256); -memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 1869),(((char*)__UDT_ID)+(0)+ 1869), 256); -memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2125),(((char*)__UDT_ID)+(0)+ 2125), 256); -memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2381),(((char*)__UDT_ID)+(0)+ 2381), 4); -memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2385),(((char*)__UDT_ID)+(0)+ 2385), 256); -memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2641),(((char*)__UDT_ID)+(0)+ 2641), 4); -memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2645),(((char*)__UDT_ID)+(0)+ 2645), 2); -memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2647),(((char*)__UDT_ID)+(0)+ 2647), 100); -memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2747),(((char*)__UDT_ID)+(0)+ 2747), 100); -memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2847),(((char*)__UDT_ID)+(0)+ 2847), 4); -memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2851),(((char*)__UDT_ID)+(0)+ 2851), 2); -memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2853),(((char*)__UDT_ID)+(0)+ 2853), 2); -memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2855),(((char*)__UDT_ID)+(0)+ 2855), 4); -memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2859),(((char*)__UDT_ID)+(0)+ 2859), 2); -qbs_set(*(qbs**)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2861), *(qbs**)(((char*)__UDT_ID)+(0)+ 2861)); -if(!qbevent)break;evnt(16465);}while(r); -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_N,qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)),256,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16466);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP=*(int32*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(2381)); -if(!qbevent)break;evnt(16467);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TARGETID=*__LONG_CURRENTID; -if(!qbevent)break;evnt(16468);}while(r); -S_19487:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(550)),256,1)),qbs_new_txt_len("func_stub",9))))||new_error){ -if(qbevent){evnt(16470);if(r)goto S_19487;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Command not implemented",23)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16470);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16470);}while(r); -} -S_19491:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(550)),256,1)),qbs_new_txt_len("func_input",10)))&(-(*_FUNC_EVALUATEFUNC_LONG_ARGS== 1 ))&(-(*__BYTE_INPUTFUNCTIONCALLED== 0 ))))||new_error){ -if(qbevent){evnt(16471);if(r)goto S_19491;} -do{ -*__BYTE_INPUTFUNCTIONCALLED= -1 ; -if(!qbevent)break;evnt(16472);}while(r); -S_19493:; -if ((-(*__LONG_VWATCHON== 1 ))||new_error){ -if(qbevent){evnt(16473);if(r)goto S_19493;} -do{ -SUB_WRITEBUFLINE(&(pass2603=*__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(16474);}while(r); -} -} -do{ -SUB_SETDEPENDENCY(&(pass2604=*(int16*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(546)))); -if(!qbevent)break;evnt(16478);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_ARGCOUNT=FUNC_COUNTFUNCTIONELEMENTS(_FUNC_EVALUATEFUNC_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16480);}while(r); -do{ +} +if(!qbevent)break;evnt(15626);}while(r); +do{ +qbs_set(_FUNC_EVALUATE_STRING_A,_FUNC_EVALUATE_STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15629);}while(r); +do{ +*_FUNC_EVALUATE_LONG_TYP= -1 ; +if(!qbevent)break;evnt(15630);}while(r); +S_18642:; +if (( 0 )||new_error){ +if(qbevent){evnt(15632);if(r)goto S_18642;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip2536; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("evaluating:[",12),_FUNC_EVALUATE_STRING_A2),qbs_new_txt_len("]",1)), 0, 0, 1); +if (new_error) goto skip2536; +skip2536: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(15632);}while(r); +} +S_18645:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_A2,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(15633);if(r)goto S_18645;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Syntax error",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15633);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(15633);}while(r); +} +do{ +*_FUNC_EVALUATE_LONG_BLOCKN= 0 ; +if(!qbevent)break;evnt(15642);}while(r); +do{ +*_FUNC_EVALUATE_LONG_N=FUNC_NUMELEMENTS(_FUNC_EVALUATE_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15643);}while(r); +do{ +*_FUNC_EVALUATE_LONG_B= 0 ; +if(!qbevent)break;evnt(15644);}while(r); +S_18652:; +fornext_value2538= 1 ; +fornext_finalvalue2538=*_FUNC_EVALUATE_LONG_N; +fornext_step2538= 1 ; +if (fornext_step2538<0) fornext_step_negative2538=1; else fornext_step_negative2538=0; +if (new_error) goto fornext_error2538; +goto fornext_entrylabel2538; +while(1){ +fornext_value2538=fornext_step2538+(*_FUNC_EVALUATE_LONG_I); +fornext_entrylabel2538: +*_FUNC_EVALUATE_LONG_I=fornext_value2538; +if (fornext_step_negative2538){ +if (fornext_value2538fornext_finalvalue2538) break; +} +fornext_error2538:; +if(qbevent){evnt(15645);if(r)goto S_18652;} +LABEL_REEVALUATE:; +if(qbevent){evnt(15647);r=0;} +do{ +qbs_set(_FUNC_EVALUATE_STRING_L,FUNC_GETELEMENT(_FUNC_EVALUATE_STRING_A,_FUNC_EVALUATE_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15652);}while(r); +S_18654:; +if (( 0 )||new_error){ +if(qbevent){evnt(15655);if(r)goto S_18654;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip2539; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("#*#*#* reevaluating:",20),_FUNC_EVALUATE_STRING_L), 0, 1, 0); +if (new_error) goto skip2539; +sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_EVALUATE_LONG_I)), 1, 0, 1); +if (new_error) goto skip2539; +skip2539: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(15655);}while(r); +} +S_18657:; +if ((-(*_FUNC_EVALUATE_LONG_I!=*_FUNC_EVALUATE_LONG_N))||new_error){ +if(qbevent){evnt(15658);if(r)goto S_18657;} +do{ +qbs_set(_FUNC_EVALUATE_STRING_NEXTL,FUNC_GETELEMENT(_FUNC_EVALUATE_STRING_A,&(pass2540=*_FUNC_EVALUATE_LONG_I+ 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15658);}while(r); +}else{ +do{ +qbs_set(_FUNC_EVALUATE_STRING_NEXTL,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15658);}while(r); +} +S_18662:; +if ((-(*_FUNC_EVALUATE_LONG_B== 0 ))||new_error){ +if(qbevent){evnt(15662);if(r)goto S_18662;} +S_18663:; +if (( 0 )||new_error){ +if(qbevent){evnt(15664);if(r)goto S_18663;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip2541; +sub_file_print(tmp_fileno,_FUNC_EVALUATE_STRING_L, 0, 0, 1); +if (new_error) goto skip2541; +skip2541: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(15664);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATE_STRING_L2,_FUNC_EVALUATE_STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15666);}while(r); +S_18667:; +fornext_value2543= 1 ; +fornext_finalvalue2543= 4 ; +fornext_step2543= 1 ; +if (fornext_step2543<0) fornext_step_negative2543=1; else fornext_step_negative2543=0; +if (new_error) goto fornext_error2543; +goto fornext_entrylabel2543; +while(1){ +fornext_value2543=fornext_step2543+(*_FUNC_EVALUATE_LONG_TRY_METHOD); +fornext_entrylabel2543: +*_FUNC_EVALUATE_LONG_TRY_METHOD=fornext_value2543; +if (fornext_step_negative2543){ +if (fornext_value2543fornext_finalvalue2543) break; +} +fornext_error2543:; +if(qbevent){evnt(15667);if(r)goto S_18667;} +do{ +qbs_set(_FUNC_EVALUATE_STRING_L,_FUNC_EVALUATE_STRING_L2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15668);}while(r); +S_18669:; +if (((-(*_FUNC_EVALUATE_LONG_TRY_METHOD== 2 ))|(-(*_FUNC_EVALUATE_LONG_TRY_METHOD== 4 )))||new_error){ +if(qbevent){evnt(15669);if(r)goto S_18669;} +S_18670:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(15670);if(r)goto S_18670;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(15670);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATE_STRING_DTYP,FUNC_REMOVESYMBOL(_FUNC_EVALUATE_STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15671);}while(r); +S_18674:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(15671);if(r)goto S_18674;} +do{ +qbs_set(_FUNC_EVALUATE_STRING_DTYP,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15671);}while(r); +do{ +*__LONG_ERROR_HAPPENED= 0 ; +if(!qbevent)break;evnt(15671);}while(r); +} +S_18678:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_EVALUATE_STRING_DTYP->len== 0 )))||new_error){ +if(qbevent){evnt(15672);if(r)goto S_18678;} +S_18679:; +if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISOPERATOR(_FUNC_EVALUATE_STRING_L)== 0 )))||new_error){ +if(qbevent){evnt(15673);if(r)goto S_18679;} +S_18680:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_ISVALIDVARIABLE(_FUNC_EVALUATE_STRING_L)))||new_error){ +if(qbevent){evnt(15674);if(r)goto S_18680;} +S_18681:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_EVALUATE_STRING_L, 1 ),qbs_new_txt_len("_",1))))||new_error){ +if(qbevent){evnt(15675);if(r)goto S_18681;} +do{ +*_FUNC_EVALUATE_LONG_V= 27 ; +if(!qbevent)break;evnt(15675);}while(r); +}else{ +do{ +*_FUNC_EVALUATE_LONG_V=qbs_asc(qbs_ucase(_FUNC_EVALUATE_STRING_L))- 64 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15675);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATE_STRING_L,qbs_add(_FUNC_EVALUATE_STRING_L,((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEEXTAZ[0]))[array_check((*_FUNC_EVALUATE_LONG_V)-__ARRAY_STRING_DEFINEEXTAZ[4],__ARRAY_STRING_DEFINEEXTAZ[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15676);}while(r); +} +} +}else{ +do{ +qbs_set(_FUNC_EVALUATE_STRING_L,_FUNC_EVALUATE_STRING_L2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15680);}while(r); +} +} +do{ +*_FUNC_EVALUATE_LONG_TRY=FUNC_FINDID(_FUNC_EVALUATE_STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15683);}while(r); +S_18694:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(15684);if(r)goto S_18694;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(15684);}while(r); +} +S_18697:; +while((*_FUNC_EVALUATE_LONG_TRY)||new_error){ +if(qbevent){evnt(15685);if(r)goto S_18697;} +S_18698:; +if (( 0 )||new_error){ +if(qbevent){evnt(15687);if(r)goto S_18698;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip2546; +sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_EVALUATE_LONG_TRY)), 1, 0, 1); +if (new_error) goto skip2546; +skip2546: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(15687);}while(r); +} +S_18701:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_NEXTL,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(15690);if(r)goto S_18701;} +S_18702:; +if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ +if(qbevent){evnt(15691);if(r)goto S_18702;} +S_18703:; +if (((((-(*__LONG_SUBFUNCN==*(int32*)(((char*)__UDT_ID)+(2641))))&(-(*_FUNC_EVALUATE_LONG_TRY_METHOD<= 2 ))))|(-(*_FUNC_EVALUATE_LONG_TRY_METHOD>= 3 )))||new_error){ +if(qbevent){evnt(15692);if(r)goto S_18703;} +do{ +*_FUNC_EVALUATE_LONG_ARRAYID=*__LONG_CURRENTID; +if(!qbevent)break;evnt(15693);}while(r); +do{ +*__INTEGER_CONSTEQUATION= 0 ; +if(!qbevent)break;evnt(15694);}while(r); +do{ +*_FUNC_EVALUATE_LONG_I2=*_FUNC_EVALUATE_LONG_I+ 2 ; +if(!qbevent)break;evnt(15695);}while(r); +do{ +*_FUNC_EVALUATE_LONG_B2= 0 ; +if(!qbevent)break;evnt(15696);}while(r); +LABEL_EVALNEXTELE3:; +if(qbevent){evnt(15697);r=0;} +do{ +qbs_set(_FUNC_EVALUATE_STRING_L2,FUNC_GETELEMENT(_FUNC_EVALUATE_STRING_A,_FUNC_EVALUATE_LONG_I2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15698);}while(r); +S_18709:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_L2,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(15699);if(r)goto S_18709;} +do{ +*_FUNC_EVALUATE_LONG_B2=*_FUNC_EVALUATE_LONG_B2+ 1 ; +if(!qbevent)break;evnt(15699);}while(r); +} +S_18712:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_L2,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(15700);if(r)goto S_18712;} +do{ +*_FUNC_EVALUATE_LONG_B2=*_FUNC_EVALUATE_LONG_B2- 1 ; +if(!qbevent)break;evnt(15701);}while(r); +S_18714:; +if ((-(*_FUNC_EVALUATE_LONG_B2== -1 ))||new_error){ +if(qbevent){evnt(15702);if(r)goto S_18714;} +do{ +qbs_set(_FUNC_EVALUATE_STRING_C,FUNC_ARRAYREFERENCE(FUNC_GETELEMENTS(_FUNC_EVALUATE_STRING_A,&(pass2547=*_FUNC_EVALUATE_LONG_I+ 2 ),&(pass2548=*_FUNC_EVALUATE_LONG_I2- 1 )),_FUNC_EVALUATE_LONG_TYP2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15703);}while(r); +S_18716:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(15704);if(r)goto S_18716;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(15704);}while(r); +} +do{ +*_FUNC_EVALUATE_LONG_I=*_FUNC_EVALUATE_LONG_I2; +if(!qbevent)break;evnt(15705);}while(r); +S_18720:; +if ((*_FUNC_EVALUATE_LONG_TYP2&*__LONG_ISUDT)||new_error){ +if(qbevent){evnt(15708);if(r)goto S_18720;} +do{ +SUB_GETID(_FUNC_EVALUATE_LONG_ARRAYID); +if(!qbevent)break;evnt(15710);}while(r); +S_18722:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(15711);if(r)goto S_18722;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(15711);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATE_STRING_O,qbs_right(_FUNC_EVALUATE_STRING_C,_FUNC_EVALUATE_STRING_C->len-func_instr(NULL,_FUNC_EVALUATE_STRING_C,__STRING1_SP3,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15712);}while(r); +do{ +*_FUNC_EVALUATE_LONG_U=*_FUNC_EVALUATE_LONG_TYP2& 511 ; +if(!qbevent)break;evnt(15714);}while(r); +do{ +*_FUNC_EVALUATE_LONG_S=((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*_FUNC_EVALUATE_LONG_U)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])]; +if(!qbevent)break;evnt(15715);}while(r); +S_18728:; +if ((((int16*)(__ARRAY_INTEGER_UDTXBYTEALIGN[0]))[array_check((*_FUNC_EVALUATE_LONG_U)-__ARRAY_INTEGER_UDTXBYTEALIGN[4],__ARRAY_INTEGER_UDTXBYTEALIGN[5])])||new_error){ +if(qbevent){evnt(15716);if(r)goto S_18728;} +S_18729:; +if ((*_FUNC_EVALUATE_LONG_S% 8 )||new_error){ +if(qbevent){evnt(15717);if(r)goto S_18729;} +do{ +*_FUNC_EVALUATE_LONG_S=*_FUNC_EVALUATE_LONG_S+( 8 -(*_FUNC_EVALUATE_LONG_S% 8 )); +if(!qbevent)break;evnt(15717);}while(r); +} +do{ +*_FUNC_EVALUATE_LONG_S=*_FUNC_EVALUATE_LONG_S/ 8 ; +if(!qbevent)break;evnt(15718);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATE_STRING_O,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(",1),_FUNC_EVALUATE_STRING_O),qbs_new_txt_len(")*",2)),FUNC_STR2(_FUNC_EVALUATE_LONG_S))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15720);}while(r); +do{ +goto LABEL_EVALUDT; +if(!qbevent)break;evnt(15722);}while(r); +} +do{ +goto LABEL_EVALEDNEXTELE3; +if(!qbevent)break;evnt(15725);}while(r); +} +} +do{ +*_FUNC_EVALUATE_LONG_I2=*_FUNC_EVALUATE_LONG_I2+ 1 ; +if(!qbevent)break;evnt(15728);}while(r); +do{ +goto LABEL_EVALNEXTELE3; +if(!qbevent)break;evnt(15729);}while(r); +LABEL_EVALEDNEXTELE3:; +if(qbevent){evnt(15730);r=0;} +do{ +*_FUNC_EVALUATE_LONG_BLOCKN=*_FUNC_EVALUATE_LONG_BLOCKN+ 1 ; +if(!qbevent)break;evnt(15731);}while(r); +do{ +tmp_long=array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),_FUNC_EVALUATE_STRING_C); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15732);}while(r); +do{ +tmp_long=array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[4],_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[5]); +if (!new_error) ((int16*)(_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]))[tmp_long]= 2 ; +if(!qbevent)break;evnt(15733);}while(r); +do{ +tmp_long=array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5]); +if (!new_error) ((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[tmp_long]=*_FUNC_EVALUATE_LONG_TYP2; +if(!qbevent)break;evnt(15734);}while(r); +S_18746:; +if (((*_FUNC_EVALUATE_LONG_TYP2&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(15735);if(r)goto S_18746;} +do{ +*__INTEGER_STRINGPROCESSINGHAPPENED= 1 ; +if(!qbevent)break;evnt(15735);}while(r); +} +do{ +goto LABEL_EVALED; +if(!qbevent)break;evnt(15736);}while(r); +} +} +}else{ +S_18753:; +if (((-(*(int32*)(((char*)__UDT_ID)+(536))!= 0 ))&(-((*(int32*)(((char*)__UDT_ID)+(536))&*__LONG_ISUDT)== 0 )))||new_error){ +if(qbevent){evnt(15744);if(r)goto S_18753;} +S_18754:; +if (((((-(*__LONG_SUBFUNCN==*(int32*)(((char*)__UDT_ID)+(2641))))&(-(*_FUNC_EVALUATE_LONG_TRY_METHOD<= 2 ))))|(-(*_FUNC_EVALUATE_LONG_TRY_METHOD>= 3 )))||new_error){ +if(qbevent){evnt(15745);if(r)goto S_18754;} +do{ +*__INTEGER_CONSTEQUATION= 0 ; +if(!qbevent)break;evnt(15746);}while(r); +do{ +*_FUNC_EVALUATE_LONG_BLOCKN=*_FUNC_EVALUATE_LONG_BLOCKN+ 1 ; +if(!qbevent)break;evnt(15747);}while(r); +do{ +SUB_MAKEIDREFER(((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])),(&(((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15748);}while(r); +S_18758:; +if (((((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])]&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(15749);if(r)goto S_18758;} +do{ +*__INTEGER_STRINGPROCESSINGHAPPENED= 1 ; +if(!qbevent)break;evnt(15749);}while(r); +} +do{ +tmp_long=array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[4],_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[5]); +if (!new_error) ((int16*)(_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]))[tmp_long]= 2 ; +if(!qbevent)break;evnt(15750);}while(r); +do{ +goto LABEL_EVALED; +if(!qbevent)break;evnt(15751);}while(r); +} +} +S_18765:; +if ((*(int32*)(((char*)__UDT_ID)+(536))&*__LONG_ISUDT)||new_error){ +if(qbevent){evnt(15756);if(r)goto S_18765;} +S_18766:; +if (((((-(*__LONG_SUBFUNCN==*(int32*)(((char*)__UDT_ID)+(2641))))&(-(*_FUNC_EVALUATE_LONG_TRY_METHOD<= 2 ))))|(-(*_FUNC_EVALUATE_LONG_TRY_METHOD>= 3 )))||new_error){ +if(qbevent){evnt(15757);if(r)goto S_18766;} +do{ +*__INTEGER_CONSTEQUATION= 0 ; +if(!qbevent)break;evnt(15758);}while(r); +do{ +qbs_set(_FUNC_EVALUATE_STRING_O,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15759);}while(r); +LABEL_EVALUDT:; +if(qbevent){evnt(15760);r=0;} +do{ +*_FUNC_EVALUATE_LONG_B2= 0 ; +if(!qbevent)break;evnt(15761);}while(r); +do{ +*_FUNC_EVALUATE_LONG_I3=*_FUNC_EVALUATE_LONG_I+ 1 ; +if(!qbevent)break;evnt(15762);}while(r); +S_18771:; +fornext_value2551=*_FUNC_EVALUATE_LONG_I3; +fornext_finalvalue2551=*_FUNC_EVALUATE_LONG_N; +fornext_step2551= 1 ; +if (fornext_step2551<0) fornext_step_negative2551=1; else fornext_step_negative2551=0; +if (new_error) goto fornext_error2551; +goto fornext_entrylabel2551; +while(1){ +fornext_value2551=fornext_step2551+(*_FUNC_EVALUATE_LONG_I2); +fornext_entrylabel2551: +*_FUNC_EVALUATE_LONG_I2=fornext_value2551; +if (fornext_step_negative2551){ +if (fornext_value2551fornext_finalvalue2551) break; +} +fornext_error2551:; +if(qbevent){evnt(15763);if(r)goto S_18771;} +do{ +qbs_set(_FUNC_EVALUATE_STRING_E2,FUNC_GETELEMENT(_FUNC_EVALUATE_STRING_A,_FUNC_EVALUATE_LONG_I2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15764);}while(r); +S_18773:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_E2,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(15765);if(r)goto S_18773;} +do{ +*_FUNC_EVALUATE_LONG_B2=*_FUNC_EVALUATE_LONG_B2+ 1 ; +if(!qbevent)break;evnt(15765);}while(r); +} +S_18776:; +if ((-(*_FUNC_EVALUATE_LONG_B2== 0 ))||new_error){ +if(qbevent){evnt(15766);if(r)goto S_18776;} +S_18777:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATE_STRING_E2,qbs_new_txt_len(")",1)))|(FUNC_ISOPERATOR(_FUNC_EVALUATE_STRING_E2))))||new_error){ +if(qbevent){evnt(15767);if(r)goto S_18777;} +do{ +*_FUNC_EVALUATE_LONG_I4=*_FUNC_EVALUATE_LONG_I2- 1 ; +if(!qbevent)break;evnt(15768);}while(r); +do{ +goto LABEL_GOTUDT; +if(!qbevent)break;evnt(15769);}while(r); +} +} +S_18782:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_E2,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(15772);if(r)goto S_18782;} +do{ +*_FUNC_EVALUATE_LONG_B2=*_FUNC_EVALUATE_LONG_B2- 1 ; +if(!qbevent)break;evnt(15772);}while(r); +} +fornext_continue_2550:; +} +fornext_exit_2550:; +do{ +*_FUNC_EVALUATE_LONG_I4=*_FUNC_EVALUATE_LONG_N; +if(!qbevent)break;evnt(15774);}while(r); +LABEL_GOTUDT:; +if(qbevent){evnt(15775);r=0;} +S_18787:; +if ((-(*_FUNC_EVALUATE_LONG_I4<*_FUNC_EVALUATE_LONG_I3))||new_error){ +if(qbevent){evnt(15776);if(r)goto S_18787;} +do{ +qbs_set(_FUNC_EVALUATE_STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15776);}while(r); +}else{ +do{ +qbs_set(_FUNC_EVALUATE_STRING_E,FUNC_GETELEMENTS(_FUNC_EVALUATE_STRING_A,_FUNC_EVALUATE_LONG_I3,_FUNC_EVALUATE_LONG_I4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15776);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATE_STRING_E,FUNC_UDTREFERENCE(_FUNC_EVALUATE_STRING_O,_FUNC_EVALUATE_STRING_E,_FUNC_EVALUATE_LONG_TYP2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15778);}while(r); +S_18793:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(15779);if(r)goto S_18793;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(15779);}while(r); +} +do{ +*_FUNC_EVALUATE_LONG_I=*_FUNC_EVALUATE_LONG_I4; +if(!qbevent)break;evnt(15780);}while(r); +do{ +*_FUNC_EVALUATE_LONG_BLOCKN=*_FUNC_EVALUATE_LONG_BLOCKN+ 1 ; +if(!qbevent)break;evnt(15781);}while(r); +do{ +tmp_long=array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),_FUNC_EVALUATE_STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15782);}while(r); +do{ +tmp_long=array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[4],_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[5]); +if (!new_error) ((int16*)(_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]))[tmp_long]= 2 ; +if(!qbevent)break;evnt(15783);}while(r); +do{ +tmp_long=array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5]); +if (!new_error) ((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[tmp_long]=*_FUNC_EVALUATE_LONG_TYP2; +if(!qbevent)break;evnt(15784);}while(r); +do{ +goto LABEL_EVALED; +if(!qbevent)break;evnt(15787);}while(r); +} +} +} +S_18805:; +if ((-(*(int16*)(((char*)__UDT_ID)+(544))== 1 ))||new_error){ +if(qbevent){evnt(15794);if(r)goto S_18805;} +do{ +*__INTEGER_CONSTEQUATION= 0 ; +if(!qbevent)break;evnt(15795);}while(r); +S_18807:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(_FUNC_EVALUATE_STRING_A,&(pass2552=*_FUNC_EVALUATE_LONG_I+ 1 )),qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(15796);if(r)goto S_18807;} +do{ +*_FUNC_EVALUATE_LONG_I2=*_FUNC_EVALUATE_LONG_I+ 2 ; +if(!qbevent)break;evnt(15797);}while(r); +do{ +*_FUNC_EVALUATE_LONG_B2= 0 ; +if(!qbevent)break;evnt(15798);}while(r); +do{ +*_FUNC_EVALUATE_LONG_ARGS= 1 ; +if(!qbevent)break;evnt(15799);}while(r); +LABEL_EVALNEXTELE:; +if(qbevent){evnt(15800);r=0;} +do{ +qbs_set(_FUNC_EVALUATE_STRING_L2,FUNC_GETELEMENT(_FUNC_EVALUATE_STRING_A,_FUNC_EVALUATE_LONG_I2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15801);}while(r); +S_18812:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_L2,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(15802);if(r)goto S_18812;} +do{ +*_FUNC_EVALUATE_LONG_B2=*_FUNC_EVALUATE_LONG_B2+ 1 ; +if(!qbevent)break;evnt(15802);}while(r); +} +S_18815:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_L2,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(15803);if(r)goto S_18815;} +do{ +*_FUNC_EVALUATE_LONG_B2=*_FUNC_EVALUATE_LONG_B2- 1 ; +if(!qbevent)break;evnt(15804);}while(r); +S_18817:; +if ((-(*_FUNC_EVALUATE_LONG_B2== -1 ))||new_error){ +if(qbevent){evnt(15805);if(r)goto S_18817;} +S_18818:; +if ((-(*_FUNC_EVALUATE_LONG_I2==(*_FUNC_EVALUATE_LONG_I+ 2 )))||new_error){ +if(qbevent){evnt(15806);if(r)goto S_18818;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected (...)",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15806);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(15806);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATE_STRING_C,FUNC_EVALUATEFUNC(FUNC_GETELEMENTS(_FUNC_EVALUATE_STRING_A,&(pass2553=*_FUNC_EVALUATE_LONG_I+ 2 ),&(pass2554=*_FUNC_EVALUATE_LONG_I2- 1 )),_FUNC_EVALUATE_LONG_ARGS,_FUNC_EVALUATE_LONG_TYP2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15807);}while(r); +S_18823:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(15808);if(r)goto S_18823;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(15808);}while(r); +} +do{ +*_FUNC_EVALUATE_LONG_I=*_FUNC_EVALUATE_LONG_I2; +if(!qbevent)break;evnt(15809);}while(r); +do{ +goto LABEL_EVALEDNEXTELE; +if(!qbevent)break;evnt(15810);}while(r); +} +} +S_18830:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATE_STRING_L2,qbs_new_txt_len(",",1)))&(-(*_FUNC_EVALUATE_LONG_B2== 0 ))))||new_error){ +if(qbevent){evnt(15813);if(r)goto S_18830;} +do{ +*_FUNC_EVALUATE_LONG_ARGS=*_FUNC_EVALUATE_LONG_ARGS+ 1 ; +if(!qbevent)break;evnt(15813);}while(r); +} +do{ +*_FUNC_EVALUATE_LONG_I2=*_FUNC_EVALUATE_LONG_I2+ 1 ; +if(!qbevent)break;evnt(15814);}while(r); +do{ +goto LABEL_EVALNEXTELE; +if(!qbevent)break;evnt(15815);}while(r); +}else{ +do{ +qbs_set(_FUNC_EVALUATE_STRING_C,FUNC_EVALUATEFUNC(qbs_new_txt_len("",0),&(pass2555= 0 ),_FUNC_EVALUATE_LONG_TYP2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15818);}while(r); +S_18837:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(15819);if(r)goto S_18837;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(15819);}while(r); +} +} +LABEL_EVALEDNEXTELE:; +if(qbevent){evnt(15821);r=0;} +do{ +*_FUNC_EVALUATE_LONG_BLOCKN=*_FUNC_EVALUATE_LONG_BLOCKN+ 1 ; +if(!qbevent)break;evnt(15822);}while(r); +do{ +tmp_long=array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),_FUNC_EVALUATE_STRING_C); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15823);}while(r); +do{ +tmp_long=array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[4],_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[5]); +if (!new_error) ((int16*)(_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]))[tmp_long]= 2 ; +if(!qbevent)break;evnt(15824);}while(r); +do{ +tmp_long=array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5]); +if (!new_error) ((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[tmp_long]=*_FUNC_EVALUATE_LONG_TYP2; +if(!qbevent)break;evnt(15825);}while(r); +S_18845:; +if (((*_FUNC_EVALUATE_LONG_TYP2&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(15826);if(r)goto S_18845;} +do{ +*__INTEGER_STRINGPROCESSINGHAPPENED= 1 ; +if(!qbevent)break;evnt(15826);}while(r); +} +do{ +goto LABEL_EVALED; +if(!qbevent)break;evnt(15827);}while(r); +} +S_18850:; +if ((-(*_FUNC_EVALUATE_LONG_TRY== 2 ))||new_error){ +if(qbevent){evnt(15830);if(r)goto S_18850;} +do{ +*__INTEGER_FINDANOTHERID= 1 ; +if(!qbevent)break;evnt(15830);}while(r); +do{ +*_FUNC_EVALUATE_LONG_TRY=FUNC_FINDID(_FUNC_EVALUATE_STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15830);}while(r); +}else{ +do{ +*_FUNC_EVALUATE_LONG_TRY= 0 ; +if(!qbevent)break;evnt(15830);}while(r); +} +S_18856:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(15831);if(r)goto S_18856;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(15831);}while(r); +} +dl_continue_2545:; +} +dl_exit_2545:; +fornext_continue_2542:; +} +fornext_exit_2542:; +S_18861:; +if ((-(*_FUNC_EVALUATE_LONG_I!=*_FUNC_EVALUATE_LONG_N))||new_error){ +if(qbevent){evnt(15837);if(r)goto S_18861;} +S_18862:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(_FUNC_EVALUATE_STRING_A,&(pass2556=*_FUNC_EVALUATE_LONG_I+ 1 )),qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(15838);if(r)goto S_18862;} +S_18863:; +if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISOPERATOR(_FUNC_EVALUATE_STRING_L)== 0 )))||new_error){ +if(qbevent){evnt(15839);if(r)goto S_18863;} +S_18864:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_ISVALIDVARIABLE(_FUNC_EVALUATE_STRING_L)))||new_error){ +if(qbevent){evnt(15840);if(r)goto S_18864;} +S_18865:; +if (( 0 )||new_error){ +if(qbevent){evnt(15841);if(r)goto S_18865;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip2557; +sub_file_print(tmp_fileno,qbs_new_txt_len("**************",14), 0, 0, 1); +if (new_error) goto skip2557; +skip2557: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(15842);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip2558; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("about to auto-create array:",27),_FUNC_EVALUATE_STRING_L), 0, 1, 0); +if (new_error) goto skip2558; +sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_EVALUATE_LONG_I)), 1, 0, 1); +if (new_error) goto skip2558; +skip2558: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(15843);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip2559; +sub_file_print(tmp_fileno,qbs_new_txt_len("**************",14), 0, 0, 1); +if (new_error) goto skip2559; +skip2559: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(15844);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATE_STRING_DTYP,FUNC_REMOVESYMBOL(_FUNC_EVALUATE_STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15846);}while(r); +S_18871:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(15847);if(r)goto S_18871;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(15847);}while(r); +} +do{ +*_FUNC_EVALUATE_LONG_NUME= 1 ; +if(!qbevent)break;evnt(15849);}while(r); +do{ +*_FUNC_EVALUATE_LONG_B2= 0 ; +if(!qbevent)break;evnt(15850);}while(r); +S_18876:; +fornext_value2561=*_FUNC_EVALUATE_LONG_I+ 2 ; +fornext_finalvalue2561=*_FUNC_EVALUATE_LONG_N; +fornext_step2561= 1 ; +if (fornext_step2561<0) fornext_step_negative2561=1; else fornext_step_negative2561=0; +if (new_error) goto fornext_error2561; +goto fornext_entrylabel2561; +while(1){ +fornext_value2561=fornext_step2561+(*_FUNC_EVALUATE_LONG_I2); +fornext_entrylabel2561: +*_FUNC_EVALUATE_LONG_I2=fornext_value2561; +if (fornext_step_negative2561){ +if (fornext_value2561fornext_finalvalue2561) break; +} +fornext_error2561:; +if(qbevent){evnt(15851);if(r)goto S_18876;} +do{ +qbs_set(_FUNC_EVALUATE_STRING_E,FUNC_GETELEMENT(_FUNC_EVALUATE_STRING_A,_FUNC_EVALUATE_LONG_I2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15852);}while(r); +S_18878:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_E,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(15853);if(r)goto S_18878;} +do{ +*_FUNC_EVALUATE_LONG_B2=*_FUNC_EVALUATE_LONG_B2+ 1 ; +if(!qbevent)break;evnt(15853);}while(r); +} +S_18881:; +if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_EVALUATE_LONG_B2== 0 ))&(qbs_equal(_FUNC_EVALUATE_STRING_E,qbs_new_txt_len(",",1)))))||new_error){ +if(qbevent){evnt(15854);if(r)goto S_18881;} +do{ +*_FUNC_EVALUATE_LONG_NUME=*_FUNC_EVALUATE_LONG_NUME+ 1 ; +if(!qbevent)break;evnt(15854);}while(r); +} +S_18884:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_E,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(15855);if(r)goto S_18884;} +do{ +*_FUNC_EVALUATE_LONG_B2=*_FUNC_EVALUATE_LONG_B2- 1 ; +if(!qbevent)break;evnt(15855);}while(r); +} +S_18887:; +if ((-(*_FUNC_EVALUATE_LONG_B2== -1 ))||new_error){ +if(qbevent){evnt(15856);if(r)goto S_18887;} +do{ +goto fornext_exit_2560; +if(!qbevent)break;evnt(15856);}while(r); +} +fornext_continue_2560:; +} +fornext_exit_2560:; +do{ +qbs_set(_FUNC_EVALUATE_STRING_FAKEE,qbs_new_txt_len("10",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15858);}while(r); +S_18892:; +fornext_value2563= 2 ; +fornext_finalvalue2563=*_FUNC_EVALUATE_LONG_NUME; +fornext_step2563= 1 ; +if (fornext_step2563<0) fornext_step_negative2563=1; else fornext_step_negative2563=0; +if (new_error) goto fornext_error2563; +goto fornext_entrylabel2563; +while(1){ +fornext_value2563=fornext_step2563+(*_FUNC_EVALUATE_LONG_I2); +fornext_entrylabel2563: +*_FUNC_EVALUATE_LONG_I2=fornext_value2563; +if (fornext_step_negative2563){ +if (fornext_value2563fornext_finalvalue2563) break; +} +fornext_error2563:; +if(qbevent){evnt(15858);if(r)goto S_18892;} +do{ +qbs_set(_FUNC_EVALUATE_STRING_FAKEE,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_EVALUATE_STRING_FAKEE,__STRING1_SP),qbs_new_txt_len(",",1)),__STRING1_SP),qbs_new_txt_len("10",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15858);}while(r); +fornext_continue_2562:; +} +fornext_exit_2562:; +S_18895:; +if (( 0 )||new_error){ +if(qbevent){evnt(15859);if(r)goto S_18895;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip2564; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("evaluate:creating undefined array using dim2(",45),_FUNC_EVALUATE_STRING_L),qbs_new_txt_len(",",1)),_FUNC_EVALUATE_STRING_DTYP),qbs_new_txt_len(",1,",3)),_FUNC_EVALUATE_STRING_FAKEE),qbs_new_txt_len(")",1)), 0, 0, 1); +if (new_error) goto skip2564; +skip2564: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(15859);}while(r); +} +S_18898:; +if ((*__BYTE_OPTIONEXPLICIT|*__BYTE_OPTIONEXPLICITARRAY)||new_error){ +if(qbevent){evnt(15860);if(r)goto S_18898;} +do{ +SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Array '",7),_FUNC_EVALUATE_STRING_L),qbs_new_txt_len("' (",3)),FUNC_SYMBOL2FULLTYPENAME(_FUNC_EVALUATE_STRING_DTYP)),qbs_new_txt_len(") not defined",13))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15860);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(15860);}while(r); +} +S_18902:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(15861);if(r)goto S_18902;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(15861);}while(r); +} +do{ +*_FUNC_EVALUATE_LONG_OLDDIMSTATIC=*__LONG_DIMSTATIC; +if(!qbevent)break;evnt(15862);}while(r); +do{ +*_FUNC_EVALUATE_LONG_METHOD= 1 ; +if(!qbevent)break;evnt(15863);}while(r); +S_18907:; +if ((*__LONG_SUBFUNCN)||new_error){ +if(qbevent){evnt(15864);if(r)goto S_18907;} +do{ +*__LONG_AUTOARRAY= 1 ; +if(!qbevent)break;evnt(15865);}while(r); +do{ +*_FUNC_EVALUATE_LONG_XI= 1 ; +if(!qbevent)break;evnt(15868);}while(r); +S_18910:; +fornext_value2566= 1 ; +fornext_finalvalue2566=*__LONG_STATICARRAYLISTN; +fornext_step2566= 1 ; +if (fornext_step2566<0) fornext_step_negative2566=1; else fornext_step_negative2566=0; +if (new_error) goto fornext_error2566; +goto fornext_entrylabel2566; +while(1){ +fornext_value2566=fornext_step2566+(*_FUNC_EVALUATE_LONG_X); +fornext_entrylabel2566: +*_FUNC_EVALUATE_LONG_X=fornext_value2566; +if (fornext_step_negative2566){ +if (fornext_value2566fornext_finalvalue2566) break; +} +fornext_error2566:; +if(qbevent){evnt(15869);if(r)goto S_18910;} +do{ +qbs_set(_FUNC_EVALUATE_STRING_VARNAME2,FUNC_GETELEMENT(__STRING_STATICARRAYLIST,_FUNC_EVALUATE_LONG_XI)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15870);}while(r); +do{ +*_FUNC_EVALUATE_LONG_XI=*_FUNC_EVALUATE_LONG_XI+ 1 ; +if(!qbevent)break;evnt(15870);}while(r); +do{ +qbs_set(_FUNC_EVALUATE_STRING_TYP2,FUNC_GETELEMENT(__STRING_STATICARRAYLIST,_FUNC_EVALUATE_LONG_XI)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15871);}while(r); +do{ +*_FUNC_EVALUATE_LONG_XI=*_FUNC_EVALUATE_LONG_XI+ 1 ; +if(!qbevent)break;evnt(15871);}while(r); +do{ +*_FUNC_EVALUATE_LONG_DIMMETHOD2=qbr(func_val(FUNC_GETELEMENT(__STRING_STATICARRAYLIST,_FUNC_EVALUATE_LONG_XI))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15872);}while(r); +do{ +*_FUNC_EVALUATE_LONG_XI=*_FUNC_EVALUATE_LONG_XI+ 1 ; +if(!qbevent)break;evnt(15872);}while(r); +S_18917:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_FUNC_EVALUATE_STRING_L),qbs_ucase(_FUNC_EVALUATE_STRING_VARNAME2))))||new_error){ +if(qbevent){evnt(15874);if(r)goto S_18917;} +do{ +qbs_set(_FUNC_EVALUATE_STRING_L3,_FUNC_EVALUATE_STRING_L2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15875);}while(r); +do{ +qbs_set(_FUNC_EVALUATE_STRING_S,FUNC_REMOVESYMBOL(_FUNC_EVALUATE_STRING_L3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15875);}while(r); +S_18920:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(FUNC_SYMBOL2FULLTYPENAME(_FUNC_EVALUATE_STRING_DTYP),_FUNC_EVALUATE_STRING_TYP2))|(((-(*_FUNC_EVALUATE_LONG_DIMMETHOD2== 0 ))&(qbs_equal(_FUNC_EVALUATE_STRING_S,qbs_new_txt_len("",0)))))))||new_error){ +if(qbevent){evnt(15876);if(r)goto S_18920;} +S_18921:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(15877);if(r)goto S_18921;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(15877);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATE_STRING_L,_FUNC_EVALUATE_STRING_VARNAME2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15879);}while(r); +do{ +qbs_set(_FUNC_EVALUATE_STRING_DTYP,_FUNC_EVALUATE_STRING_TYP2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15880);}while(r); +do{ +*_FUNC_EVALUATE_LONG_METHOD=*_FUNC_EVALUATE_LONG_DIMMETHOD2; +if(!qbevent)break;evnt(15881);}while(r); +do{ +*__LONG_DIMSTATIC= 3 ; +if(!qbevent)break;evnt(15882);}while(r); +} +S_18929:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(15884);if(r)goto S_18929;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(15884);}while(r); +} +} +fornext_continue_2565:; +} +fornext_exit_2565:; +} +do{ +*__BYTE_BYPASSNEXTVARIABLE= -1 ; +if(!qbevent)break;evnt(15888);}while(r); +do{ +*_FUNC_EVALUATE_LONG_IGNORE=FUNC_DIM2(_FUNC_EVALUATE_STRING_L,_FUNC_EVALUATE_STRING_DTYP,_FUNC_EVALUATE_LONG_METHOD,_FUNC_EVALUATE_STRING_FAKEE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15889);}while(r); +S_18937:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(15890);if(r)goto S_18937;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(15890);}while(r); +} +do{ +*__LONG_DIMSTATIC=*_FUNC_EVALUATE_LONG_OLDDIMSTATIC; +if(!qbevent)break;evnt(15891);}while(r); +S_18941:; +if (( 0 )||new_error){ +if(qbevent){evnt(15892);if(r)goto S_18941;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip2567; +sub_file_print(tmp_fileno,qbs_new_txt_len("#*#*#* dim2 has returned!!!",27), 0, 0, 1); +if (new_error) goto skip2567; +skip2567: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(15892);}while(r); +} +do{ +goto LABEL_REEVALUATE; +if(!qbevent)break;evnt(15893);}while(r); +} +} +} +} +do{ +qbs_set(_FUNC_EVALUATE_STRING_L,_FUNC_EVALUATE_STRING_L2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15899);}while(r); +} +S_18951:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_L,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(15903);if(r)goto S_18951;} +S_18952:; +if ((-(*_FUNC_EVALUATE_LONG_B== 0 ))||new_error){ +if(qbevent){evnt(15904);if(r)goto S_18952;} +do{ +*_FUNC_EVALUATE_LONG_I1=*_FUNC_EVALUATE_LONG_I+ 1 ; +if(!qbevent)break;evnt(15904);}while(r); +} +do{ +*_FUNC_EVALUATE_LONG_B=*_FUNC_EVALUATE_LONG_B+ 1 ; +if(!qbevent)break;evnt(15905);}while(r); +} +S_18957:; +if ((-(*_FUNC_EVALUATE_LONG_B== 0 ))||new_error){ +if(qbevent){evnt(15908);if(r)goto S_18957;} +do{ +*_FUNC_EVALUATE_LONG_BLOCKN=*_FUNC_EVALUATE_LONG_BLOCKN+ 1 ; +if(!qbevent)break;evnt(15909);}while(r); +do{ +tmp_long=array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),_FUNC_EVALUATE_STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15910);}while(r); +do{ +tmp_long=array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[4],_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[5]); +if (!new_error) ((int16*)(_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]))[tmp_long]= 0 ; +if(!qbevent)break;evnt(15911);}while(r); +} +S_18962:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_L,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(15914);if(r)goto S_18962;} +do{ +*_FUNC_EVALUATE_LONG_B=*_FUNC_EVALUATE_LONG_B- 1 ; +if(!qbevent)break;evnt(15915);}while(r); +S_18964:; +if ((-(*_FUNC_EVALUATE_LONG_B== 0 ))||new_error){ +if(qbevent){evnt(15916);if(r)goto S_18964;} +do{ +qbs_set(_FUNC_EVALUATE_STRING_C,FUNC_EVALUATE(FUNC_GETELEMENTS(_FUNC_EVALUATE_STRING_A,_FUNC_EVALUATE_LONG_I1,&(pass2568=*_FUNC_EVALUATE_LONG_I- 1 )),_FUNC_EVALUATE_LONG_TYP2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15917);}while(r); +S_18966:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(15918);if(r)goto S_18966;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(15918);}while(r); +} +S_18969:; +if (((*_FUNC_EVALUATE_LONG_TYP2&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(15919);if(r)goto S_18969;} +do{ +*__INTEGER_STRINGPROCESSINGHAPPENED= 1 ; +if(!qbevent)break;evnt(15919);}while(r); +} +do{ +*_FUNC_EVALUATE_LONG_BLOCKN=*_FUNC_EVALUATE_LONG_BLOCKN+ 1 ; +if(!qbevent)break;evnt(15920);}while(r); +S_18973:; +if (((*_FUNC_EVALUATE_LONG_TYP2&*__LONG_ISPOINTER))||new_error){ +if(qbevent){evnt(15921);if(r)goto S_18973;} +do{ +tmp_long=array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),_FUNC_EVALUATE_STRING_C); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15922);}while(r); +}else{ +do{ +tmp_long=array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_add(qbs_add(qbs_new_txt_len("(",1),_FUNC_EVALUATE_STRING_C),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15924);}while(r); +} +do{ +tmp_long=array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[4],_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[5]); +if (!new_error) ((int16*)(_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]))[tmp_long]= 1 ; +if(!qbevent)break;evnt(15926);}while(r); +do{ +tmp_long=array_check((*_FUNC_EVALUATE_LONG_BLOCKN)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5]); +if (!new_error) ((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[tmp_long]=*_FUNC_EVALUATE_LONG_TYP2; +if(!qbevent)break;evnt(15927);}while(r); +} +} +LABEL_EVALED:; +if(qbevent){evnt(15930);r=0;} +fornext_continue_2537:; +} +fornext_exit_2537:; +do{ +qbs_set(_FUNC_EVALUATE_STRING_R,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15933);}while(r); +S_18984:; +if (( 0 )||new_error){ +if(qbevent){evnt(15935);if(r)goto S_18984;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip2569; +sub_file_print(tmp_fileno,qbs_new_txt_len("evaluated blocks:",17), 0, 0, 0); +if (new_error) goto skip2569; +skip2569: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(15935);}while(r); +} +S_18987:; +fornext_value2571= 1 ; +fornext_finalvalue2571=*_FUNC_EVALUATE_LONG_BLOCKN; +fornext_step2571= 1 ; +if (fornext_step2571<0) fornext_step_negative2571=1; else fornext_step_negative2571=0; +if (new_error) goto fornext_error2571; +goto fornext_entrylabel2571; +while(1){ +fornext_value2571=fornext_step2571+(*_FUNC_EVALUATE_LONG_I); +fornext_entrylabel2571: +*_FUNC_EVALUATE_LONG_I=fornext_value2571; +if (fornext_step_negative2571){ +if (fornext_value2571fornext_finalvalue2571) break; +} +fornext_error2571:; +if(qbevent){evnt(15936);if(r)goto S_18987;} +S_18988:; +if ((-(*_FUNC_EVALUATE_LONG_I!=*_FUNC_EVALUATE_LONG_BLOCKN))||new_error){ +if(qbevent){evnt(15937);if(r)goto S_18988;} +S_18989:; +if (( 0 )||new_error){ +if(qbevent){evnt(15938);if(r)goto S_18989;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip2572; +sub_file_print(tmp_fileno,qbs_add(((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])),func_chr( 219 )), 0, 0, 0); +if (new_error) goto skip2572; +skip2572: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(15938);}while(r); +} +}else{ +S_18993:; +if (( 0 )||new_error){ +if(qbevent){evnt(15940);if(r)goto S_18993;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip2573; +sub_file_print(tmp_fileno,((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])), 0, 0, 1); +if (new_error) goto skip2573; +skip2573: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(15940);}while(r); +} +} +fornext_continue_2570:; +} +fornext_exit_2570:; +S_18998:; +fornext_value2575= 1 ; +fornext_finalvalue2575=*_FUNC_EVALUATE_LONG_BLOCKN; +fornext_step2575= 1 ; +if (fornext_step2575<0) fornext_step_negative2575=1; else fornext_step_negative2575=0; +if (new_error) goto fornext_error2575; +goto fornext_entrylabel2575; +while(1){ +fornext_value2575=fornext_step2575+(*_FUNC_EVALUATE_LONG_I); +fornext_entrylabel2575: +*_FUNC_EVALUATE_LONG_I=fornext_value2575; +if (fornext_step_negative2575){ +if (fornext_value2575fornext_finalvalue2575) break; +} +fornext_error2575:; +if(qbevent){evnt(15947);if(r)goto S_18998;} +S_18999:; +if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISOPERATOR(((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])))== 0 )))||new_error){ +if(qbevent){evnt(15948);if(r)goto S_18999;} +S_19000:; +if ((-(((int16*)(_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[4],_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[5])]== 0 ))||new_error){ +if(qbevent){evnt(15949);if(r)goto S_19000;} +do{ +*_FUNC_EVALUATE_LONG_C=qbs_asc(qbs_left(((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])), 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15952);}while(r); +S_19002:; +if (((-(*_FUNC_EVALUATE_LONG_C== 45 ))|(((-(*_FUNC_EVALUATE_LONG_C>= 48 ))&(-(*_FUNC_EVALUATE_LONG_C<= 57 )))))||new_error){ +if(qbevent){evnt(15953);if(r)goto S_19002;} +do{ +qbs_set(_FUNC_EVALUATE_STRING_NUM,((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15954);}while(r); +do{ +*_FUNC_EVALUATE_LONG_F= 0 ; +if(!qbevent)break;evnt(15956);}while(r); +do{ +*_FUNC_EVALUATE_LONG_X=func_instr(NULL,_FUNC_EVALUATE_STRING_NUM,qbs_new_txt_len("E",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15957);}while(r); +S_19006:; +if ((*_FUNC_EVALUATE_LONG_X)||new_error){ +if(qbevent){evnt(15958);if(r)goto S_19006;} +do{ +*_FUNC_EVALUATE_LONG_F= 1 ; +if(!qbevent)break;evnt(15959);}while(r); +do{ +tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5]); +if (!new_error) ((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[tmp_long]=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(15959);}while(r); +}else{ +do{ +*_FUNC_EVALUATE_LONG_X=func_instr(NULL,_FUNC_EVALUATE_STRING_NUM,qbs_new_txt_len("D",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15961);}while(r); +S_19011:; +if ((*_FUNC_EVALUATE_LONG_X)||new_error){ +if(qbevent){evnt(15962);if(r)goto S_19011;} +do{ +*_FUNC_EVALUATE_LONG_F= 2 ; +if(!qbevent)break;evnt(15963);}while(r); +do{ +tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5]); +if (!new_error) ((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[tmp_long]=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(15963);}while(r); +}else{ +do{ +*_FUNC_EVALUATE_LONG_X=func_instr(NULL,_FUNC_EVALUATE_STRING_NUM,qbs_new_txt_len("F",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15965);}while(r); +S_19016:; +if ((*_FUNC_EVALUATE_LONG_X)||new_error){ +if(qbevent){evnt(15966);if(r)goto S_19016;} +do{ +*_FUNC_EVALUATE_LONG_F= 3 ; +if(!qbevent)break;evnt(15967);}while(r); +do{ +tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5]); +if (!new_error) ((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[tmp_long]=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(15967);}while(r); +} +} +} +S_19022:; +if ((*_FUNC_EVALUATE_LONG_F)||new_error){ +if(qbevent){evnt(15971);if(r)goto S_19022;} +S_19023:; +if (((-(*_FUNC_EVALUATE_LONG_F== 2 ))|(-(*_FUNC_EVALUATE_LONG_F== 3 )))||new_error){ +if(qbevent){evnt(15973);if(r)goto S_19023;} +do{ +sub_mid(_FUNC_EVALUATE_STRING_NUM,*_FUNC_EVALUATE_LONG_X, 1 ,qbs_new_txt_len("E",1),1); +if(!qbevent)break;evnt(15973);}while(r); +} +S_19026:; +if ((-(*_FUNC_EVALUATE_LONG_F== 3 ))||new_error){ +if(qbevent){evnt(15974);if(r)goto S_19026;} +do{ +qbs_set(_FUNC_EVALUATE_STRING_NUM,qbs_add(_FUNC_EVALUATE_STRING_NUM,qbs_new_txt_len("L",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15974);}while(r); +} +}else{ +do{ +tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5]); +if (!new_error) ((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[tmp_long]=FUNC_TYPNAME2TYP(FUNC_REMOVESYMBOL(_FUNC_EVALUATE_STRING_NUM)); +if(!qbevent)break;evnt(15977);}while(r); +S_19031:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(15978);if(r)goto S_19031;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(15978);}while(r); +} +S_19034:; +if ((((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])]&*__LONG_ISPOINTER)||new_error){ +if(qbevent){evnt(15979);if(r)goto S_19034;} +do{ +tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5]); +if (!new_error) ((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[tmp_long]=((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])]-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(15979);}while(r); +} +S_19037:; +if ((-((((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])]& 511 )> 32 ))||new_error){ +if(qbevent){evnt(15980);if(r)goto S_19037;} +S_19038:; +if ((((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])]&*__LONG_ISUNSIGNED)||new_error){ +if(qbevent){evnt(15981);if(r)goto S_19038;} +do{ +qbs_set(_FUNC_EVALUATE_STRING_NUM,qbs_add(_FUNC_EVALUATE_STRING_NUM,qbs_new_txt_len("ull",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15981);}while(r); +}else{ +do{ +qbs_set(_FUNC_EVALUATE_STRING_NUM,qbs_add(_FUNC_EVALUATE_STRING_NUM,qbs_new_txt_len("ll",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15981);}while(r); +} +} +} +do{ +tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_add(qbs_add(qbs_new_txt_len(" ",1),_FUNC_EVALUATE_STRING_NUM),qbs_new_txt_len(" ",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(15984);}while(r); +do{ +tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[4],_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[5]); +if (!new_error) ((int16*)(_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]))[tmp_long]= 1 ; +if(!qbevent)break;evnt(15985);}while(r); +do{ +goto LABEL_EVALEDBLOCK; +if(!qbevent)break;evnt(15986);}while(r); +} +S_19049:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])), 1 ),func_chr( 34 ))))||new_error){ +if(qbevent){evnt(16044);if(r)goto S_19049;} +S_19050:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_right(((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])), 1 ),func_chr( 34 ))))||new_error){ +if(qbevent){evnt(16045);if(r)goto S_19050;} +do{ +tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_add(qbs_add(qbs_new_txt_len("qbs_new_txt_len(",16),((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16046);}while(r); +}else{ +do{ +tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_add(qbs_add(qbs_new_txt_len("qbs_new_txt(",12),((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16048);}while(r); +} +do{ +tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5]); +if (!new_error) ((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[tmp_long]=*__LONG_ISSTRING; +if(!qbevent)break;evnt(16050);}while(r); +do{ +tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[4],_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[5]); +if (!new_error) ((int16*)(_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]))[tmp_long]= 1 ; +if(!qbevent)break;evnt(16051);}while(r); +do{ +*__INTEGER_STRINGPROCESSINGHAPPENED= 1 ; +if(!qbevent)break;evnt(16052);}while(r); +do{ +goto LABEL_EVALEDBLOCK; +if(!qbevent)break;evnt(16053);}while(r); +} +S_19060:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_ISVALIDVARIABLE(((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])))))||new_error){ +if(qbevent){evnt(16057);if(r)goto S_19060;} +do{ +qbs_set(_FUNC_EVALUATE_STRING_X,((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16058);}while(r); +do{ +qbs_set(_FUNC_EVALUATE_STRING_TYP,FUNC_REMOVESYMBOL(_FUNC_EVALUATE_STRING_X)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16060);}while(r); +S_19063:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(16061);if(r)goto S_19063;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(16061);}while(r); +} +S_19066:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_EVALUATE_STRING_TYP->len== 0 )))||new_error){ +if(qbevent){evnt(16064);if(r)goto S_19066;} +S_19067:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_EVALUATE_STRING_X, 1 ),qbs_new_txt_len("_",1))))||new_error){ +if(qbevent){evnt(16065);if(r)goto S_19067;} +do{ +*_FUNC_EVALUATE_LONG_V= 27 ; +if(!qbevent)break;evnt(16065);}while(r); +}else{ +do{ +*_FUNC_EVALUATE_LONG_V=qbs_asc(qbs_ucase(_FUNC_EVALUATE_STRING_X))- 64 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16065);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATE_STRING_TYP,((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEEXTAZ[0]))[array_check((*_FUNC_EVALUATE_LONG_V)-__ARRAY_STRING_DEFINEEXTAZ[4],__ARRAY_STRING_DEFINEEXTAZ[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16066);}while(r); +} +do{ +*_FUNC_EVALUATE_LONG_TRY=FUNC_FINDID(qbs_add(_FUNC_EVALUATE_STRING_X,_FUNC_EVALUATE_STRING_TYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16070);}while(r); +S_19075:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(16071);if(r)goto S_19075;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(16071);}while(r); +} +S_19078:; +while((*_FUNC_EVALUATE_LONG_TRY)||new_error){ +if(qbevent){evnt(16072);if(r)goto S_19078;} +S_19079:; +if (( 0 )||new_error){ +if(qbevent){evnt(16073);if(r)goto S_19079;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip2578; +sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_EVALUATE_LONG_TRY)), 1, 0, 1); +if (new_error) goto skip2578; +skip2578: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(16073);}while(r); +} +S_19082:; +if (((-(*(int32*)(((char*)__UDT_ID)+(536))!= 0 ))&(-((*(int32*)(((char*)__UDT_ID)+(536))&*__LONG_ISUDT)== 0 )))||new_error){ +if(qbevent){evnt(16074);if(r)goto S_19082;} +do{ +goto LABEL_SIMPLEVARFOUND; +if(!qbevent)break;evnt(16075);}while(r); +} +S_19085:; +if ((-(*_FUNC_EVALUATE_LONG_TRY== 2 ))||new_error){ +if(qbevent){evnt(16077);if(r)goto S_19085;} +do{ +*__INTEGER_FINDANOTHERID= 1 ; +if(!qbevent)break;evnt(16077);}while(r); +do{ +*_FUNC_EVALUATE_LONG_TRY=FUNC_FINDID(qbs_add(_FUNC_EVALUATE_STRING_X,_FUNC_EVALUATE_STRING_TYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16077);}while(r); +}else{ +do{ +*_FUNC_EVALUATE_LONG_TRY= 0 ; +if(!qbevent)break;evnt(16077);}while(r); +} +S_19091:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(16078);if(r)goto S_19091;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(16078);}while(r); +} +dl_continue_2577:; +} +dl_exit_2577:; +S_19095:; +if (( 0 )||new_error){ +if(qbevent){evnt(16081);if(r)goto S_19095;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip2579; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("CREATING VARIABLE:",18),_FUNC_EVALUATE_STRING_X), 0, 0, 1); +if (new_error) goto skip2579; +skip2579: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(16081);}while(r); +} +S_19098:; +if ((*__BYTE_OPTIONEXPLICIT)||new_error){ +if(qbevent){evnt(16082);if(r)goto S_19098;} +do{ +SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Variable '",10),_FUNC_EVALUATE_STRING_X),qbs_new_txt_len("' (",3)),FUNC_SYMBOL2FULLTYPENAME(_FUNC_EVALUATE_STRING_TYP)),qbs_new_txt_len(") not defined",13))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16082);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(16082);}while(r); +} +do{ +*__BYTE_BYPASSNEXTVARIABLE= -1 ; +if(!qbevent)break;evnt(16083);}while(r); +do{ +*_FUNC_EVALUATE_LONG_RETVAL=FUNC_DIM2(_FUNC_EVALUATE_STRING_X,_FUNC_EVALUATE_STRING_TYP,&(pass2580= 1 ),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16084);}while(r); +do{ +SUB_MANAGEVARIABLELIST(qbs_new_txt_len("",0),__STRING_VWATCHNEWVARIABLE,&(pass2581= 0 ),&(pass2582= 3 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16085);}while(r); +S_19105:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(16086);if(r)goto S_19105;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(16086);}while(r); +} +LABEL_SIMPLEVARFOUND:; +if(qbevent){evnt(16088);r=0;} +do{ +*__INTEGER_CONSTEQUATION= 0 ; +if(!qbevent)break;evnt(16089);}while(r); +do{ +SUB_MAKEIDREFER(((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])),(&(((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16090);}while(r); +S_19110:; +if (((((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])]&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(16091);if(r)goto S_19110;} +do{ +*__INTEGER_STRINGPROCESSINGHAPPENED= 1 ; +if(!qbevent)break;evnt(16091);}while(r); +} +S_19113:; +if ((-(*_FUNC_EVALUATE_LONG_BLOCKN== 1 ))||new_error){ +if(qbevent){evnt(16092);if(r)goto S_19113;} +S_19114:; +if (((((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])]&*__LONG_ISREFERENCE))||new_error){ +if(qbevent){evnt(16093);if(r)goto S_19114;} +do{ +goto LABEL_RETURNPOINTER; +if(!qbevent)break;evnt(16093);}while(r); +} +} +do{ +tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),FUNC_REFER(((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])),(&(((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])])),&(pass2583= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16096);}while(r); +S_19119:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(16096);if(r)goto S_19119;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(16096);}while(r); +} +do{ +tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[4],_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[5]); +if (!new_error) ((int16*)(_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]))[tmp_long]= 1 ; +if(!qbevent)break;evnt(16097);}while(r); +do{ +goto LABEL_EVALEDBLOCK; +if(!qbevent)break;evnt(16098);}while(r); +} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Invalid expression",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16100);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(16100);}while(r); +}else{ +S_19128:; +if (((((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])]&*__LONG_ISREFERENCE))||new_error){ +if(qbevent){evnt(16103);if(r)goto S_19128;} +S_19129:; +if ((-(*_FUNC_EVALUATE_LONG_BLOCKN== 1 ))||new_error){ +if(qbevent){evnt(16104);if(r)goto S_19129;} +do{ +goto LABEL_RETURNPOINTER; +if(!qbevent)break;evnt(16104);}while(r); +} +do{ +tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),FUNC_REFER(((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])),(&(((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])])),&(pass2584= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16108);}while(r); +S_19133:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(16109);if(r)goto S_19133;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(16109);}while(r); +} +} +} +} +LABEL_EVALEDBLOCK:; +if(qbevent){evnt(16115);r=0;} +fornext_continue_2574:; +} +fornext_exit_2574:; +S_19140:; +if ((-(*_FUNC_EVALUATE_LONG_BLOCKN== 1 ))||new_error){ +if(qbevent){evnt(16120);if(r)goto S_19140;} +S_19141:; +if ((((int16*)(_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]))[array_check(( 1 )-_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[4],_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[5])])||new_error){ +if(qbevent){evnt(16121);if(r)goto S_19141;} +S_19142:; +if (((((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check(( 1 )-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])]&*__LONG_ISREFERENCE))||new_error){ +if(qbevent){evnt(16122);if(r)goto S_19142;} +LABEL_RETURNPOINTER:; +if(qbevent){evnt(16123);r=0;} +S_19143:; +if (((((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check(( 1 )-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])]&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(16124);if(r)goto S_19143;} +do{ +*__INTEGER_STRINGPROCESSINGHAPPENED= 1 ; +if(!qbevent)break;evnt(16124);}while(r); +} +S_19146:; +if (( 0 )||new_error){ +if(qbevent){evnt(16125);if(r)goto S_19146;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip2585; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("evaluated reference:",20),((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check(( 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))), 0, 0, 1); +if (new_error) goto skip2585; +skip2585: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(16125);}while(r); +} +do{ +*_FUNC_EVALUATE_LONG_TYP=((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check(( 1 )-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])]; +if(!qbevent)break;evnt(16126);}while(r); +do{ +qbs_set(_FUNC_EVALUATE_STRING_EVALUATE,((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check(( 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16127);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(16128);}while(r); +} +} +} +S_19155:; +if (( 0 )||new_error){ +if(qbevent){evnt(16141);if(r)goto S_19155;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip2586; +sub_file_print(tmp_fileno,qbs_new_txt_len("applying operators:",19), 0, 0, 0); +if (new_error) goto skip2586; +skip2586: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(16141);}while(r); +} +S_19158:; +if ((-(*_FUNC_EVALUATE_LONG_TYP== -1 ))||new_error){ +if(qbevent){evnt(16144);if(r)goto S_19158;} +do{ +*_FUNC_EVALUATE_LONG_TYP=((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check(( 1 )-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])]; +if(!qbevent)break;evnt(16145);}while(r); +S_19160:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_ISOPERATOR(((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check(( 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])))))||new_error){ +if(qbevent){evnt(16148);if(r)goto S_19160;} +do{ +*_FUNC_EVALUATE_LONG_TYP=((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check(( 2 )-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])]; +if(!qbevent)break;evnt(16149);}while(r); +} +} +do{ +*_FUNC_EVALUATE_LONG_NONOP= 0 ; +if(!qbevent)break;evnt(16153);}while(r); +S_19165:; +fornext_value2588= 1 ; +fornext_finalvalue2588=*_FUNC_EVALUATE_LONG_BLOCKN; +fornext_step2588= 1 ; +if (fornext_step2588<0) fornext_step_negative2588=1; else fornext_step_negative2588=0; +if (new_error) goto fornext_error2588; +goto fornext_entrylabel2588; +while(1){ +fornext_value2588=fornext_step2588+(*_FUNC_EVALUATE_LONG_I); +fornext_entrylabel2588: +*_FUNC_EVALUATE_LONG_I=fornext_value2588; +if (fornext_step_negative2588){ +if (fornext_value2588fornext_finalvalue2588) break; +} +fornext_error2588:; +if(qbevent){evnt(16154);if(r)goto S_19165;} +S_19166:; +if ((-(((int16*)(_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[4],_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[5])]== 0 ))||new_error){ +if(qbevent){evnt(16156);if(r)goto S_19166;} +do{ +*_FUNC_EVALUATE_LONG_ISOP=FUNC_ISOPERATOR(((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16157);}while(r); +S_19168:; +if ((*_FUNC_EVALUATE_LONG_ISOP)||new_error){ +if(qbevent){evnt(16158);if(r)goto S_19168;} +do{ +*_FUNC_EVALUATE_LONG_NONOP= 0 ; +if(!qbevent)break;evnt(16159);}while(r); +do{ +*__INTEGER_CONSTEQUATION= 0 ; +if(!qbevent)break;evnt(16161);}while(r); +do{ +qbs_set(_FUNC_EVALUATE_STRING_O,((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16164);}while(r); +do{ +*_FUNC_EVALUATE_LONG_U=FUNC_OPERATORUSAGE(_FUNC_EVALUATE_STRING_O,_FUNC_EVALUATE_LONG_TYP,_FUNC_EVALUATE_STRING_I,_FUNC_EVALUATE_LONG_LHSTYP,_FUNC_EVALUATE_LONG_RHSTYP,_FUNC_EVALUATE_LONG_RESULT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16165);}while(r); +S_19173:; +if ((-(*_FUNC_EVALUATE_LONG_U!= 5 ))||new_error){ +if(qbevent){evnt(16167);if(r)goto S_19173;} +do{ +*_FUNC_EVALUATE_LONG_NONOP= 1 ; +if(!qbevent)break;evnt(16168);}while(r); +S_19175:; +if (((-(*_FUNC_EVALUATE_LONG_I== 1 ))|(-(((int16*)(_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I- 1 )-_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[4],_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[5])]== 0 )))||new_error){ +if(qbevent){evnt(16169);if(r)goto S_19175;} +S_19176:; +if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_EVALUATE_LONG_I== 1 ))&(-(*_FUNC_EVALUATE_LONG_BLOCKN== 1 ))&(qbs_equal(_FUNC_EVALUATE_STRING_O,qbs_new_txt_len("-",1)))))||new_error){ +if(qbevent){evnt(16170);if(r)goto S_19176;} +do{ +SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Expected variable/value after '",31),qbs_ucase(_FUNC_EVALUATE_STRING_O)),qbs_new_txt_len("'",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16170);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(16170);}while(r); +} +do{ +SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Expected variable/value before '",32),qbs_ucase(_FUNC_EVALUATE_STRING_O)),qbs_new_txt_len("'",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16171);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(16171);}while(r); +} +} +S_19184:; +if (((-(*_FUNC_EVALUATE_LONG_I==*_FUNC_EVALUATE_LONG_BLOCKN))|(-(((int16*)(_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[4],_FUNC_EVALUATE_ARRAY_INTEGER_EVALEDBLOCK[5])]== 0 )))||new_error){ +if(qbevent){evnt(16174);if(r)goto S_19184;} +do{ +SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Expected variable/value after '",31),qbs_ucase(_FUNC_EVALUATE_STRING_O)),qbs_new_txt_len("'",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16174);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(16174);}while(r); +} +do{ +*_FUNC_EVALUATE_LONG_OLDTYP=*_FUNC_EVALUATE_LONG_TYP; +if(!qbevent)break;evnt(16182);}while(r); +do{ +*_FUNC_EVALUATE_LONG_NEWTYP=((int32*)(_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[0]))[array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[4],_FUNC_EVALUATE_ARRAY_LONG_BLOCKTYPE[5])]; +if(!qbevent)break;evnt(16183);}while(r); +S_19190:; +if (((-((*_FUNC_EVALUATE_LONG_TYP&*__LONG_ISSTRING)== 0 ))&(-((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISSTRING)!= 0 )))||new_error){ +if(qbevent){evnt(16195);if(r)goto S_19190;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Cannot convert number to string",31)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16196);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(16196);}while(r); +} +do{ +*_FUNC_EVALUATE_LONG_OFFSETMODE= 0 ; +if(!qbevent)break;evnt(16200);}while(r); +do{ +*_FUNC_EVALUATE_LONG_OFFSETCVI= 0 ; +if(!qbevent)break;evnt(16201);}while(r); +S_19196:; +if (((-((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISOFFSET)!= 0 ))|(-((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISOFFSET)!= 0 )))||new_error){ +if(qbevent){evnt(16202);if(r)goto S_19196;} +do{ +*_FUNC_EVALUATE_LONG_OFFSETMODE= 2 ; +if(!qbevent)break;evnt(16203);}while(r); +S_19198:; +if ((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISOFFSET)||new_error){ +if(qbevent){evnt(16204);if(r)goto S_19198;} +S_19199:; +if ((-((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISUNSIGNED)== 0 ))||new_error){ +if(qbevent){evnt(16205);if(r)goto S_19199;} +do{ +*_FUNC_EVALUATE_LONG_OFFSETMODE= 1 ; +if(!qbevent)break;evnt(16205);}while(r); +} +} +S_19203:; +if ((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISOFFSET)||new_error){ +if(qbevent){evnt(16207);if(r)goto S_19203;} +S_19204:; +if ((-((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISUNSIGNED)== 0 ))||new_error){ +if(qbevent){evnt(16208);if(r)goto S_19204;} +do{ +*_FUNC_EVALUATE_LONG_OFFSETMODE= 1 ; +if(!qbevent)break;evnt(16208);}while(r); +} +} +S_19208:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATE_STRING_O,qbs_new_txt_len("*",1)))|(qbs_equal(_FUNC_EVALUATE_STRING_O,qbs_new_txt_len("/",1)))|(qbs_equal(_FUNC_EVALUATE_STRING_O,qbs_new_txt_len("^",1)))))||new_error){ +if(qbevent){evnt(16214);if(r)goto S_19208;} +S_19209:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATE_STRING_O,qbs_new_txt_len("*",1)))|(qbs_equal(_FUNC_EVALUATE_STRING_O,qbs_new_txt_len("^",1)))))||new_error){ +if(qbevent){evnt(16215);if(r)goto S_19209;} +S_19210:; +if (((-((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISFLOAT)!= 0 ))|(-((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISFLOAT)!= 0 )))||new_error){ +if(qbevent){evnt(16217);if(r)goto S_19210;} +do{ +*_FUNC_EVALUATE_LONG_OFFSETCVI= 1 ; +if(!qbevent)break;evnt(16218);}while(r); +S_19212:; +if ((-((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISFLOAT)== 0 ))||new_error){ +if(qbevent){evnt(16219);if(r)goto S_19212;} +do{ +*_FUNC_EVALUATE_LONG_LHSTYP= 2 ; +if(!qbevent)break;evnt(16219);}while(r); +} +S_19215:; +if ((-((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISFLOAT)== 0 ))||new_error){ +if(qbevent){evnt(16220);if(r)goto S_19215;} +do{ +*_FUNC_EVALUATE_LONG_RHSTYP= 2 ; +if(!qbevent)break;evnt(16220);}while(r); +} +} +} +S_19220:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATE_STRING_O,qbs_new_txt_len("/",1)))|(qbs_equal(_FUNC_EVALUATE_STRING_O,qbs_new_txt_len("^",1)))))||new_error){ +if(qbevent){evnt(16223);if(r)goto S_19220;} +do{ +*_FUNC_EVALUATE_LONG_OFFSETCVI= 1 ; +if(!qbevent)break;evnt(16225);}while(r); +S_19222:; +if ((-((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISFLOAT)== 0 ))||new_error){ +if(qbevent){evnt(16226);if(r)goto S_19222;} +do{ +*_FUNC_EVALUATE_LONG_LHSTYP= 2 ; +if(!qbevent)break;evnt(16226);}while(r); +} +S_19225:; +if ((-((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISFLOAT)== 0 ))||new_error){ +if(qbevent){evnt(16227);if(r)goto S_19225;} +do{ +*_FUNC_EVALUATE_LONG_RHSTYP= 2 ; +if(!qbevent)break;evnt(16227);}while(r); +} +} +}else{ +S_19230:; +if ((*_FUNC_EVALUATE_LONG_LHSTYP& 2 )||new_error){ +if(qbevent){evnt(16230);if(r)goto S_19230;} +do{ +*_FUNC_EVALUATE_LONG_LHSTYP= 1 ; +if(!qbevent)break;evnt(16230);}while(r); +} +S_19233:; +if ((*_FUNC_EVALUATE_LONG_RHSTYP& 2 )||new_error){ +if(qbevent){evnt(16231);if(r)goto S_19233;} +do{ +*_FUNC_EVALUATE_LONG_RHSTYP= 1 ; +if(!qbevent)break;evnt(16231);}while(r); +} +} +S_19237:; +if ((-(*_FUNC_EVALUATE_LONG_RESULT== 2 ))||new_error){ +if(qbevent){evnt(16234);if(r)goto S_19237;} +do{ +*_FUNC_EVALUATE_LONG_RESULT= 1 ; +if(!qbevent)break;evnt(16234);}while(r); +} +} +S_19241:; +if (((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(16241);if(r)goto S_19241;} +S_19242:; +if ((-((*_FUNC_EVALUATE_LONG_LHSTYP& 4 )== 0 ))||new_error){ +if(qbevent){evnt(16242);if(r)goto S_19242;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Cannot convert string to number",31)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16242);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(16242);}while(r); +} +}else{ +S_19247:; +if ((-(*_FUNC_EVALUATE_LONG_LHSTYP== 4 ))||new_error){ +if(qbevent){evnt(16245);if(r)goto S_19247;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Cannot convert number to string",31)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16245);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(16245);}while(r); +} +S_19251:; +if (((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISFLOAT))||new_error){ +if(qbevent){evnt(16246);if(r)goto S_19251;} +S_19252:; +if ((-((*_FUNC_EVALUATE_LONG_LHSTYP& 2 )== 0 ))||new_error){ +if(qbevent){evnt(16247);if(r)goto S_19252;} +do{ +tmp_long=array_check((*_FUNC_EVALUATE_LONG_I- 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_add(qbs_add(qbs_new_txt_len("qbr(",4),((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I- 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16249);}while(r); +do{ +*_FUNC_EVALUATE_LONG_OLDTYP= 64 ; +if(!qbevent)break;evnt(16250);}while(r); +} +}else{ +S_19257:; +if ((-((*_FUNC_EVALUATE_LONG_LHSTYP& 1 )== 0 ))||new_error){ +if(qbevent){evnt(16254);if(r)goto S_19257;} +do{ +tmp_long=array_check((*_FUNC_EVALUATE_LONG_I- 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_add(qbs_add(qbs_new_txt_len("((long double)(",15),((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I- 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))),qbs_new_txt_len("))",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16256);}while(r); +do{ +*_FUNC_EVALUATE_LONG_OLDTYP= 256 +*__LONG_ISFLOAT; +if(!qbevent)break;evnt(16257);}while(r); +} +} +} +S_19263:; +if (((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(16262);if(r)goto S_19263;} +S_19264:; +if ((-((*_FUNC_EVALUATE_LONG_RHSTYP& 4 )== 0 ))||new_error){ +if(qbevent){evnt(16263);if(r)goto S_19264;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Cannot convert string to number",31)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16263);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(16263);}while(r); +} +}else{ +S_19269:; +if ((-(*_FUNC_EVALUATE_LONG_RHSTYP== 4 ))||new_error){ +if(qbevent){evnt(16266);if(r)goto S_19269;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Cannot convert number to string",31)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16266);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(16266);}while(r); +} +S_19273:; +if (((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISFLOAT))||new_error){ +if(qbevent){evnt(16267);if(r)goto S_19273;} +S_19274:; +if ((-((*_FUNC_EVALUATE_LONG_RHSTYP& 2 )== 0 ))||new_error){ +if(qbevent){evnt(16268);if(r)goto S_19274;} +do{ +tmp_long=array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_add(qbs_add(qbs_new_txt_len("qbr(",4),((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16270);}while(r); +do{ +*_FUNC_EVALUATE_LONG_NEWTYP= 64 ; +if(!qbevent)break;evnt(16271);}while(r); +} +}else{ +S_19279:; +if ((-((*_FUNC_EVALUATE_LONG_RHSTYP& 1 )== 0 ))||new_error){ +if(qbevent){evnt(16275);if(r)goto S_19279;} +do{ +tmp_long=array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_add(qbs_add(qbs_new_txt_len("((long double)(",15),((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))),qbs_new_txt_len("))",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16277);}while(r); +do{ +*_FUNC_EVALUATE_LONG_NEWTYP= 256 +*__LONG_ISFLOAT; +if(!qbevent)break;evnt(16278);}while(r); +} +} +} +S_19285:; +if ((-(*_FUNC_EVALUATE_LONG_ISOP== 7 ))||new_error){ +if(qbevent){evnt(16284);if(r)goto S_19285;} +S_19286:; +if (((-((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISFLOAT)!= 0 ))&(-((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISFLOAT)!= 0 )))||new_error){ +if(qbevent){evnt(16294);if(r)goto S_19286;} +do{ +*_FUNC_EVALUATE_LONG_S1=*_FUNC_EVALUATE_LONG_OLDTYP& 511 ; +if(!qbevent)break;evnt(16295);}while(r); +do{ +*_FUNC_EVALUATE_LONG_S2=*_FUNC_EVALUATE_LONG_NEWTYP& 511 ; +if(!qbevent)break;evnt(16295);}while(r); +S_19289:; +if ((-(*_FUNC_EVALUATE_LONG_S2<*_FUNC_EVALUATE_LONG_S1))||new_error){ +if(qbevent){evnt(16296);if(r)goto S_19289;} +do{ +*_FUNC_EVALUATE_LONG_S1=*_FUNC_EVALUATE_LONG_S2; +if(!qbevent)break;evnt(16296);}while(r); +} +S_19292:; +if ((-(*_FUNC_EVALUATE_LONG_S1== 32 ))||new_error){ +if(qbevent){evnt(16297);if(r)goto S_19292;} +do{ +tmp_long=array_check((*_FUNC_EVALUATE_LONG_I- 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_add(qbs_add(qbs_new_txt_len("((float)(",9),((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I- 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))),qbs_new_txt_len("))",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16298);}while(r); +do{ +*_FUNC_EVALUATE_LONG_OLDTYP= 32 +*__LONG_ISFLOAT; +if(!qbevent)break;evnt(16298);}while(r); +do{ +tmp_long=array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_add(qbs_add(qbs_new_txt_len("((float)(",9),((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))),qbs_new_txt_len("))",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16299);}while(r); +do{ +*_FUNC_EVALUATE_LONG_NEWTYP= 32 +*__LONG_ISFLOAT; +if(!qbevent)break;evnt(16299);}while(r); +} +S_19298:; +if ((-(*_FUNC_EVALUATE_LONG_S1== 64 ))||new_error){ +if(qbevent){evnt(16301);if(r)goto S_19298;} +do{ +tmp_long=array_check((*_FUNC_EVALUATE_LONG_I- 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_add(qbs_add(qbs_new_txt_len("((double)(",10),((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I- 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))),qbs_new_txt_len("))",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16302);}while(r); +do{ +*_FUNC_EVALUATE_LONG_OLDTYP= 64 +*__LONG_ISFLOAT; +if(!qbevent)break;evnt(16302);}while(r); +do{ +tmp_long=array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_add(qbs_add(qbs_new_txt_len("((double)(",10),((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))),qbs_new_txt_len("))",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16303);}while(r); +do{ +*_FUNC_EVALUATE_LONG_NEWTYP= 64 +*__LONG_ISFLOAT; +if(!qbevent)break;evnt(16303);}while(r); +} +} +} +do{ +*_FUNC_EVALUATE_LONG_TYP=*_FUNC_EVALUATE_LONG_NEWTYP; +if(!qbevent)break;evnt(16308);}while(r); +S_19307:; +if (((-((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISSTRING)== 0 ))&(-((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISSTRING)== 0 )))||new_error){ +if(qbevent){evnt(16315);if(r)goto S_19307;} +S_19308:; +if (((-((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISFLOAT)!= 0 ))|(-((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISFLOAT)!= 0 )))||new_error){ +if(qbevent){evnt(16316);if(r)goto S_19308;} +do{ +*_FUNC_EVALUATE_LONG_B= 0 ; +if(!qbevent)break;evnt(16318);}while(r); +S_19310:; +if (((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISFLOAT))||new_error){ +if(qbevent){evnt(16318);if(r)goto S_19310;} +do{ +*_FUNC_EVALUATE_LONG_B=*_FUNC_EVALUATE_LONG_OLDTYP& 511 ; +if(!qbevent)break;evnt(16318);}while(r); +} +S_19313:; +if (((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISFLOAT))||new_error){ +if(qbevent){evnt(16319);if(r)goto S_19313;} +do{ +*_FUNC_EVALUATE_LONG_B2=*_FUNC_EVALUATE_LONG_NEWTYP& 511 ; +if(!qbevent)break;evnt(16320);}while(r); +S_19315:; +if ((-(*_FUNC_EVALUATE_LONG_B2>*_FUNC_EVALUATE_LONG_B))||new_error){ +if(qbevent){evnt(16320);if(r)goto S_19315;} +do{ +*_FUNC_EVALUATE_LONG_B=*_FUNC_EVALUATE_LONG_B2; +if(!qbevent)break;evnt(16320);}while(r); +} +} +do{ +*_FUNC_EVALUATE_LONG_TYP=*__LONG_ISFLOAT+*_FUNC_EVALUATE_LONG_B; +if(!qbevent)break;evnt(16322);}while(r); +}else{ +do{ +*_FUNC_EVALUATE_LONG_B=*_FUNC_EVALUATE_LONG_OLDTYP& 511 ; +if(!qbevent)break;evnt(16327);}while(r); +do{ +*_FUNC_EVALUATE_LONG_B2=*_FUNC_EVALUATE_LONG_NEWTYP& 511 ; +if(!qbevent)break;evnt(16327);}while(r); +S_19323:; +if ((-(*_FUNC_EVALUATE_LONG_B2>*_FUNC_EVALUATE_LONG_B))||new_error){ +if(qbevent){evnt(16327);if(r)goto S_19323;} +do{ +*_FUNC_EVALUATE_LONG_B=*_FUNC_EVALUATE_LONG_B2; +if(!qbevent)break;evnt(16327);}while(r); +} +do{ +*_FUNC_EVALUATE_LONG_TYP= 64 ; +if(!qbevent)break;evnt(16328);}while(r); +S_19327:; +if ((-(*_FUNC_EVALUATE_LONG_B== 64 ))||new_error){ +if(qbevent){evnt(16329);if(r)goto S_19327;} +S_19328:; +if (((-((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISUNSIGNED)!= 0 ))&(-((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISUNSIGNED)!= 0 )))||new_error){ +if(qbevent){evnt(16330);if(r)goto S_19328;} +do{ +*_FUNC_EVALUATE_LONG_TYP= 64 +*__LONG_ISUNSIGNED; +if(!qbevent)break;evnt(16330);}while(r); +} +} +} +} +S_19334:; +if ((-(*_FUNC_EVALUATE_LONG_RESULT== 1 ))||new_error){ +if(qbevent){evnt(16335);if(r)goto S_19334;} +S_19335:; +if (((-((*_FUNC_EVALUATE_LONG_TYP&*__LONG_ISFLOAT)!= 0 ))|(-((*_FUNC_EVALUATE_LONG_TYP&*__LONG_ISSTRING)!= 0 )))||new_error){ +if(qbevent){evnt(16336);if(r)goto S_19335;} +do{ +*_FUNC_EVALUATE_LONG_TYP= 64 ; +if(!qbevent)break;evnt(16336);}while(r); +} +} +S_19339:; +if ((-(*_FUNC_EVALUATE_LONG_RESULT== 2 ))||new_error){ +if(qbevent){evnt(16338);if(r)goto S_19339;} +S_19340:; +if ((-((*_FUNC_EVALUATE_LONG_TYP&*__LONG_ISFLOAT)== 0 ))||new_error){ +if(qbevent){evnt(16339);if(r)goto S_19340;} +do{ +*_FUNC_EVALUATE_LONG_TYP=*__LONG_ISFLOAT+ 256 ; +if(!qbevent)break;evnt(16339);}while(r); +} +} +S_19344:; +if ((-(*_FUNC_EVALUATE_LONG_RESULT== 4 ))||new_error){ +if(qbevent){evnt(16341);if(r)goto S_19344;} +do{ +*_FUNC_EVALUATE_LONG_TYP=*__LONG_ISSTRING; +if(!qbevent)break;evnt(16342);}while(r); +} +S_19347:; +if ((-(*_FUNC_EVALUATE_LONG_RESULT== 8 ))||new_error){ +if(qbevent){evnt(16344);if(r)goto S_19347;} +do{ +*_FUNC_EVALUATE_LONG_TYP= 32 ; +if(!qbevent)break;evnt(16345);}while(r); +} +S_19350:; +if ((*_FUNC_EVALUATE_LONG_OFFSETMODE)||new_error){ +if(qbevent){evnt(16349);if(r)goto S_19350;} +S_19351:; +if ((-(*_FUNC_EVALUATE_LONG_RESULT!= 8 ))||new_error){ +if(qbevent){evnt(16350);if(r)goto S_19351;} +do{ +*_FUNC_EVALUATE_LONG_TYP=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(16351);}while(r); +S_19353:; +if ((-(*_FUNC_EVALUATE_LONG_OFFSETMODE== 2 ))||new_error){ +if(qbevent){evnt(16351);if(r)goto S_19353;} +do{ +*_FUNC_EVALUATE_LONG_TYP=*_FUNC_EVALUATE_LONG_TYP+*__LONG_ISUNSIGNED; +if(!qbevent)break;evnt(16351);}while(r); +} +} +} +S_19358:; +if ((-(*_FUNC_EVALUATE_LONG_U== 2 ))||new_error){ +if(qbevent){evnt(16356);if(r)goto S_19358;} +S_19359:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATE_STRING_I,qbs_new_txt_len("pow2",4))))||new_error){ +if(qbevent){evnt(16357);if(r)goto S_19359;} +S_19360:; +if ((*_FUNC_EVALUATE_LONG_OFFSETMODE)||new_error){ +if(qbevent){evnt(16359);if(r)goto S_19360;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Operator '^' cannot be used with an _OFFSET",43)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16359);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(16359);}while(r); +} +do{ +*_FUNC_EVALUATE_LONG_B=*_FUNC_EVALUATE_LONG_OLDTYP& 511 ; +if(!qbevent)break;evnt(16363);}while(r); +S_19365:; +if ((*_FUNC_EVALUATE_LONG_OLDTYP&*__LONG_ISFLOAT)||new_error){ +if(qbevent){evnt(16364);if(r)goto S_19365;} +}else{ +S_19367:; +if ((-(*_FUNC_EVALUATE_LONG_B> 16 ))||new_error){ +if(qbevent){evnt(16367);if(r)goto S_19367;} +do{ +*_FUNC_EVALUATE_LONG_B= 64 ; +if(!qbevent)break;evnt(16367);}while(r); +} +S_19370:; +if ((-(*_FUNC_EVALUATE_LONG_B> 32 ))||new_error){ +if(qbevent){evnt(16368);if(r)goto S_19370;} +do{ +*_FUNC_EVALUATE_LONG_B= 256 ; +if(!qbevent)break;evnt(16368);}while(r); +} +S_19373:; +if ((-(*_FUNC_EVALUATE_LONG_B<= 16 ))||new_error){ +if(qbevent){evnt(16369);if(r)goto S_19373;} +do{ +*_FUNC_EVALUATE_LONG_B= 32 ; +if(!qbevent)break;evnt(16369);}while(r); +} +} +do{ +*_FUNC_EVALUATE_LONG_B2=*_FUNC_EVALUATE_LONG_NEWTYP& 511 ; +if(!qbevent)break;evnt(16371);}while(r); +S_19378:; +if ((*_FUNC_EVALUATE_LONG_NEWTYP&*__LONG_ISFLOAT)||new_error){ +if(qbevent){evnt(16372);if(r)goto S_19378;} +S_19379:; +if ((-(*_FUNC_EVALUATE_LONG_B2>*_FUNC_EVALUATE_LONG_B))||new_error){ +if(qbevent){evnt(16373);if(r)goto S_19379;} +do{ +*_FUNC_EVALUATE_LONG_B=*_FUNC_EVALUATE_LONG_B2; +if(!qbevent)break;evnt(16373);}while(r); +} +}else{ +do{ +*_FUNC_EVALUATE_LONG_B3= 32 ; +if(!qbevent)break;evnt(16375);}while(r); +S_19384:; +if ((-(*_FUNC_EVALUATE_LONG_B2> 16 ))||new_error){ +if(qbevent){evnt(16376);if(r)goto S_19384;} +do{ +*_FUNC_EVALUATE_LONG_B3= 64 ; +if(!qbevent)break;evnt(16376);}while(r); +} +S_19387:; +if ((-(*_FUNC_EVALUATE_LONG_B2> 32 ))||new_error){ +if(qbevent){evnt(16377);if(r)goto S_19387;} +do{ +*_FUNC_EVALUATE_LONG_B3= 256 ; +if(!qbevent)break;evnt(16377);}while(r); +} +S_19390:; +if ((-(*_FUNC_EVALUATE_LONG_B3>*_FUNC_EVALUATE_LONG_B))||new_error){ +if(qbevent){evnt(16378);if(r)goto S_19390;} +do{ +*_FUNC_EVALUATE_LONG_B=*_FUNC_EVALUATE_LONG_B3; +if(!qbevent)break;evnt(16378);}while(r); +} +} +do{ +*_FUNC_EVALUATE_LONG_TYP=*__LONG_ISFLOAT+*_FUNC_EVALUATE_LONG_B; +if(!qbevent)break;evnt(16380);}while(r); +} +} +S_19397:; +if ((-(*_FUNC_EVALUATE_LONG_U== 5 ))||new_error){ +if(qbevent){evnt(16387);if(r)goto S_19397;} +do{ +tmp_long=array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_add(qbs_add(qbs_add(_FUNC_EVALUATE_STRING_I,qbs_new_txt_len("(",1)),((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16388);}while(r); +do{ +tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16389);}while(r); +do{ +*_FUNC_EVALUATE_LONG_I=*_FUNC_EVALUATE_LONG_I+ 1 ; +if(!qbevent)break;evnt(16389);}while(r); +do{ +goto LABEL_OPERATORAPPLIED; +if(!qbevent)break;evnt(16389);}while(r); +} +S_19403:; +if ((-(*_FUNC_EVALUATE_LONG_U== 1 ))||new_error){ +if(qbevent){evnt(16394);if(r)goto S_19403;} +do{ +tmp_long=array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_add(qbs_add(((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I- 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])),_FUNC_EVALUATE_STRING_I),((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16395);}while(r); +do{ +tmp_long=array_check((*_FUNC_EVALUATE_LONG_I- 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16396);}while(r); +do{ +tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16396);}while(r); +do{ +*_FUNC_EVALUATE_LONG_I=*_FUNC_EVALUATE_LONG_I+ 1 ; +if(!qbevent)break;evnt(16396);}while(r); +do{ +goto LABEL_OPERATORAPPLIED; +if(!qbevent)break;evnt(16396);}while(r); +} +S_19410:; +if ((-(*_FUNC_EVALUATE_LONG_U== 2 ))||new_error){ +if(qbevent){evnt(16399);if(r)goto S_19410;} +do{ +tmp_long=array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_EVALUATE_STRING_I,qbs_new_txt_len("(",1)),((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I- 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))),qbs_new_txt_len(",",1)),((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16400);}while(r); +do{ +tmp_long=array_check((*_FUNC_EVALUATE_LONG_I- 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16401);}while(r); +do{ +tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16401);}while(r); +do{ +*_FUNC_EVALUATE_LONG_I=*_FUNC_EVALUATE_LONG_I+ 1 ; +if(!qbevent)break;evnt(16401);}while(r); +do{ +goto LABEL_OPERATORAPPLIED; +if(!qbevent)break;evnt(16401);}while(r); +} +S_19417:; +if ((-(*_FUNC_EVALUATE_LONG_U== 3 ))||new_error){ +if(qbevent){evnt(16404);if(r)goto S_19417;} +do{ +tmp_long=array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("-(",2),((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I- 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))),_FUNC_EVALUATE_STRING_I),((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16405);}while(r); +do{ +tmp_long=array_check((*_FUNC_EVALUATE_LONG_I- 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16406);}while(r); +do{ +tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16406);}while(r); +do{ +*_FUNC_EVALUATE_LONG_I=*_FUNC_EVALUATE_LONG_I+ 1 ; +if(!qbevent)break;evnt(16406);}while(r); +do{ +goto LABEL_OPERATORAPPLIED; +if(!qbevent)break;evnt(16406);}while(r); +} +S_19424:; +if ((-(*_FUNC_EVALUATE_LONG_U== 4 ))||new_error){ +if(qbevent){evnt(16409);if(r)goto S_19424;} +do{ +tmp_long=array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_add(qbs_add(qbs_add(qbs_new_txt_len("~",1),((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I- 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))),_FUNC_EVALUATE_STRING_I),((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I+ 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16410);}while(r); +do{ +tmp_long=array_check((*_FUNC_EVALUATE_LONG_I- 1 )-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16411);}while(r); +do{ +tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16411);}while(r); +do{ +*_FUNC_EVALUATE_LONG_I=*_FUNC_EVALUATE_LONG_I+ 1 ; +if(!qbevent)break;evnt(16411);}while(r); +do{ +goto LABEL_OPERATORAPPLIED; +if(!qbevent)break;evnt(16411);}while(r); +} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("ERROR: Operator could not be applied correctly!",47)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16416);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(16416);}while(r); +LABEL_OPERATORAPPLIED:; +if(qbevent){evnt(16417);r=0;} +S_19433:; +if ((*_FUNC_EVALUATE_LONG_OFFSETCVI)||new_error){ +if(qbevent){evnt(16419);if(r)goto S_19433;} +do{ +tmp_long=array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_add(qbs_add(qbs_new_txt_len("qbr(",4),((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])]))),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16419);}while(r); +do{ +*_FUNC_EVALUATE_LONG_OFFSETCVI= 0 ; +if(!qbevent)break;evnt(16419);}while(r); +} +do{ +*_FUNC_EVALUATE_LONG_OFFSETMODE= 0 ; +if(!qbevent)break;evnt(16420);}while(r); +}else{ +do{ +*_FUNC_EVALUATE_LONG_NONOP=*_FUNC_EVALUATE_LONG_NONOP+ 1 ; +if(!qbevent)break;evnt(16423);}while(r); +} +}else{ +do{ +*_FUNC_EVALUATE_LONG_NONOP=*_FUNC_EVALUATE_LONG_NONOP+ 1 ; +if(!qbevent)break;evnt(16426);}while(r); +} +S_19444:; +if ((-(*_FUNC_EVALUATE_LONG_NONOP> 1 ))||new_error){ +if(qbevent){evnt(16428);if(r)goto S_19444;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected operator in equation",29)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16428);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(16428);}while(r); +} +fornext_continue_2587:; +} +fornext_exit_2587:; +S_19449:; +if (( 0 )||new_error){ +if(qbevent){evnt(16430);if(r)goto S_19449;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip2589; +sub_file_print(tmp_fileno,qbs_new_txt_len("",0), 0, 0, 1); +if (new_error) goto skip2589; +skip2589: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(16430);}while(r); +} +S_19452:; +fornext_value2591= 1 ; +fornext_finalvalue2591=*_FUNC_EVALUATE_LONG_BLOCKN; +fornext_step2591= 1 ; +if (fornext_step2591<0) fornext_step_negative2591=1; else fornext_step_negative2591=0; +if (new_error) goto fornext_error2591; +goto fornext_entrylabel2591; +while(1){ +fornext_value2591=fornext_step2591+(*_FUNC_EVALUATE_LONG_I); +fornext_entrylabel2591: +*_FUNC_EVALUATE_LONG_I=fornext_value2591; +if (fornext_step_negative2591){ +if (fornext_value2591fornext_finalvalue2591) break; +} +fornext_error2591:; +if(qbevent){evnt(16433);if(r)goto S_19452;} +do{ +qbs_set(_FUNC_EVALUATE_STRING_R,qbs_add(_FUNC_EVALUATE_STRING_R,((qbs*)(((uint64*)(_FUNC_EVALUATE_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATE_LONG_I)-_FUNC_EVALUATE_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATE_ARRAY_STRING_BLOCK[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16434);}while(r); +fornext_continue_2590:; +} +fornext_exit_2590:; +S_19455:; +if (( 0 )||new_error){ +if(qbevent){evnt(16437);if(r)goto S_19455;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip2592; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("evaluated:",10),_FUNC_EVALUATE_STRING_R),qbs_new_txt_len(" AS TYPE:",9)), 0, 0, 0); +if (new_error) goto skip2592; +skip2592: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(16438);}while(r); +S_19457:; +if (((*_FUNC_EVALUATE_LONG_TYP&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(16439);if(r)goto S_19457;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip2593; +sub_file_print(tmp_fileno,qbs_new_txt_len("[ISSTRING]",10), 0, 0, 0); +if (new_error) goto skip2593; +skip2593: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(16439);}while(r); +} +S_19460:; +if (((*_FUNC_EVALUATE_LONG_TYP&*__LONG_ISFLOAT))||new_error){ +if(qbevent){evnt(16440);if(r)goto S_19460;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip2594; +sub_file_print(tmp_fileno,qbs_new_txt_len("[ISFLOAT]",9), 0, 0, 0); +if (new_error) goto skip2594; +skip2594: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(16440);}while(r); +} +S_19463:; +if (((*_FUNC_EVALUATE_LONG_TYP&*__LONG_ISUNSIGNED))||new_error){ +if(qbevent){evnt(16441);if(r)goto S_19463;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip2595; +sub_file_print(tmp_fileno,qbs_new_txt_len("[ISUNSIGNED]",12), 0, 0, 0); +if (new_error) goto skip2595; +skip2595: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(16441);}while(r); +} +S_19466:; +if (((*_FUNC_EVALUATE_LONG_TYP&*__LONG_ISPOINTER))||new_error){ +if(qbevent){evnt(16442);if(r)goto S_19466;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip2596; +sub_file_print(tmp_fileno,qbs_new_txt_len("[ISPOINTER]",11), 0, 0, 0); +if (new_error) goto skip2596; +skip2596: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(16442);}while(r); +} +S_19469:; +if (((*_FUNC_EVALUATE_LONG_TYP&*__LONG_ISFIXEDLENGTH))||new_error){ +if(qbevent){evnt(16443);if(r)goto S_19469;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip2597; +sub_file_print(tmp_fileno,qbs_new_txt_len("[ISFIXEDLENGTH]",15), 0, 0, 0); +if (new_error) goto skip2597; +skip2597: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(16443);}while(r); +} +S_19472:; +if (((*_FUNC_EVALUATE_LONG_TYP&*__LONG_ISINCONVENTIONALMEMORY))||new_error){ +if(qbevent){evnt(16444);if(r)goto S_19472;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip2598; +sub_file_print(tmp_fileno,qbs_new_txt_len("[ISINCONVENTIONALMEMORY]",24), 0, 0, 0); +if (new_error) goto skip2598; +skip2598: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(16444);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip2599; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("(size in bits=",14),FUNC_STR2(&(pass2600=*_FUNC_EVALUATE_LONG_TYP& 511 ))),qbs_new_txt_len(")",1)), 0, 0, 1); +if (new_error) goto skip2599; +skip2599: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(16445);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATE_STRING_EVALUATE,_FUNC_EVALUATE_STRING_R); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16449);}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free18.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_EVALUATE_STRING_EVALUATE);return _FUNC_EVALUATE_STRING_EVALUATE; +} +qbs* FUNC_EVALUATEFUNC(qbs*_FUNC_EVALUATEFUNC_STRING_A2,int32*_FUNC_EVALUATEFUNC_LONG_ARGS,int32*_FUNC_EVALUATEFUNC_LONG_TYP){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data19.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_A,_FUNC_EVALUATEFUNC_STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16459);}while(r); +S_19479:; +if (( 0 )||new_error){ +if(qbevent){evnt(16461);if(r)goto S_19479;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip2602; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("evaluatingfunction:",19),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1))),qbs_new_txt_len(":",1)),_FUNC_EVALUATEFUNC_STRING_A), 0, 0, 1); +if (new_error) goto skip2602; +skip2602: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(16461);}while(r); +} +do{ +if(!qbevent)break;evnt(16463);}while(r); +do{ +memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 0),(((char*)__UDT_ID)+(0)+ 0), 256); +memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 256),(((char*)__UDT_ID)+(0)+ 256), 256); +memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 512),(((char*)__UDT_ID)+(0)+ 512), 4); +memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 516),(((char*)__UDT_ID)+(0)+ 516), 2); +memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 518),(((char*)__UDT_ID)+(0)+ 518), 2); +memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 520),(((char*)__UDT_ID)+(0)+ 520), 8); +memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 528),(((char*)__UDT_ID)+(0)+ 528), 8); +memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 536),(((char*)__UDT_ID)+(0)+ 536), 4); +memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 540),(((char*)__UDT_ID)+(0)+ 540), 4); +memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 544),(((char*)__UDT_ID)+(0)+ 544), 2); +memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 546),(((char*)__UDT_ID)+(0)+ 546), 2); +memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 548),(((char*)__UDT_ID)+(0)+ 548), 2); +memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 550),(((char*)__UDT_ID)+(0)+ 550), 256); +memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 806),(((char*)__UDT_ID)+(0)+ 806), 2); +memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 808),(((char*)__UDT_ID)+(0)+ 808), 1); +memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 809),(((char*)__UDT_ID)+(0)+ 809), 2); +memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 811),(((char*)__UDT_ID)+(0)+ 811), 2); +memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 813),(((char*)__UDT_ID)+(0)+ 813), 400); +memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 1213),(((char*)__UDT_ID)+(0)+ 1213), 400); +memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 1613),(((char*)__UDT_ID)+(0)+ 1613), 256); +memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 1869),(((char*)__UDT_ID)+(0)+ 1869), 256); +memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2125),(((char*)__UDT_ID)+(0)+ 2125), 256); +memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2381),(((char*)__UDT_ID)+(0)+ 2381), 4); +memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2385),(((char*)__UDT_ID)+(0)+ 2385), 256); +memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2641),(((char*)__UDT_ID)+(0)+ 2641), 4); +memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2645),(((char*)__UDT_ID)+(0)+ 2645), 2); +memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2647),(((char*)__UDT_ID)+(0)+ 2647), 100); +memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2747),(((char*)__UDT_ID)+(0)+ 2747), 100); +memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2847),(((char*)__UDT_ID)+(0)+ 2847), 4); +memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2851),(((char*)__UDT_ID)+(0)+ 2851), 2); +memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2853),(((char*)__UDT_ID)+(0)+ 2853), 2); +memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2855),(((char*)__UDT_ID)+(0)+ 2855), 4); +memcpy((((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2859),(((char*)__UDT_ID)+(0)+ 2859), 2); +qbs_set(*(qbs**)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2861), *(qbs**)(((char*)__UDT_ID)+(0)+ 2861)); +if(!qbevent)break;evnt(16465);}while(r); +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_N,qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)),256,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16466);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP=*(int32*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(2381)); +if(!qbevent)break;evnt(16467);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_TARGETID=*__LONG_CURRENTID; +if(!qbevent)break;evnt(16468);}while(r); +S_19487:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(550)),256,1)),qbs_new_txt_len("func_stub",9))))||new_error){ +if(qbevent){evnt(16470);if(r)goto S_19487;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Command not implemented",23)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16470);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(16470);}while(r); +} +S_19491:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(550)),256,1)),qbs_new_txt_len("func_input",10)))&(-(*_FUNC_EVALUATEFUNC_LONG_ARGS== 1 ))&(-(*__BYTE_INPUTFUNCTIONCALLED== 0 ))))||new_error){ +if(qbevent){evnt(16471);if(r)goto S_19491;} +do{ +*__BYTE_INPUTFUNCTIONCALLED= -1 ; +if(!qbevent)break;evnt(16472);}while(r); +S_19493:; +if ((-(*__LONG_VWATCHON== 1 ))||new_error){ +if(qbevent){evnt(16473);if(r)goto S_19493;} +do{ +SUB_WRITEBUFLINE(&(pass2603=*__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(16474);}while(r); +} +} +do{ +SUB_SETDEPENDENCY(&(pass2604=*(int16*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(546)))); +if(!qbevent)break;evnt(16478);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_ARGCOUNT=FUNC_COUNTFUNCTIONELEMENTS(_FUNC_EVALUATEFUNC_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16480);}while(r); +do{ if (_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[2]&2){ error(10); @@ -64438,59 +64438,59 @@ _FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[0]=(ptrszint)calloc(_FUNC_EVALUATEFUN if (!_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[0]) error(257); } _FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[2]|=1; -} -if(!qbevent)break;evnt(16481);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_PASSOMIT= 0 ; -if(!qbevent)break;evnt(16483);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_HASOPTIONALFIRSTARG= 0 ; -if(!qbevent)break;evnt(16484);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_FIRSTOPTIONALARGUMENT= 0 ; -if(!qbevent)break;evnt(16485);}while(r); -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_F,qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(1613)),256,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16487);}while(r); -S_19504:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_EVALUATEFUNC_STRING_F->len))||new_error){ -if(qbevent){evnt(16488);if(r)goto S_19504;} -S_19505:; -fornext_value2607= 1 ; -fornext_finalvalue2607=*_FUNC_EVALUATEFUNC_LONG_ARGCOUNT; -fornext_step2607= 1 ; -if (fornext_step2607<0) fornext_step_negative2607=1; else fornext_step_negative2607=0; -if (new_error) goto fornext_error2607; -goto fornext_entrylabel2607; -while(1){ -fornext_value2607=fornext_step2607+(*_FUNC_EVALUATEFUNC_LONG_FI); -fornext_entrylabel2607: -*_FUNC_EVALUATEFUNC_LONG_FI=fornext_value2607; -if (fornext_step_negative2607){ -if (fornext_value2607fornext_finalvalue2607) break; -} -fornext_error2607:; -if(qbevent){evnt(16490);if(r)goto S_19505;} -do{ -tmp_long=array_check((*_FUNC_EVALUATEFUNC_LONG_FI)-_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[4],_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[5]); -if (!new_error) ((int32*)(_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[0]))[tmp_long]=FUNC_HASFUNCTIONELEMENT(_FUNC_EVALUATEFUNC_STRING_A,_FUNC_EVALUATEFUNC_LONG_FI); -if(!qbevent)break;evnt(16491);}while(r); -fornext_continue_2606:; -} -fornext_exit_2606:; -S_19508:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_F,qbs_new_txt_len("[?],?,?",7))))||new_error){ -if(qbevent){evnt(16495);if(r)goto S_19508;} -do{ -*_FUNC_EVALUATEFUNC_LONG_HASOPTIONALFIRSTARG= -1 ; -if(!qbevent)break;evnt(16496);}while(r); -S_19510:; -if ((-(func_ubound(_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS,1,1)== 2 ))||new_error){ -if(qbevent){evnt(16498);if(r)goto S_19510;} -do{ +} +if(!qbevent)break;evnt(16481);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_PASSOMIT= 0 ; +if(!qbevent)break;evnt(16483);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_HASOPTIONALFIRSTARG= 0 ; +if(!qbevent)break;evnt(16484);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_FIRSTOPTIONALARGUMENT= 0 ; +if(!qbevent)break;evnt(16485);}while(r); +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_F,qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(1613)),256,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16487);}while(r); +S_19504:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_EVALUATEFUNC_STRING_F->len))||new_error){ +if(qbevent){evnt(16488);if(r)goto S_19504;} +S_19505:; +fornext_value2607= 1 ; +fornext_finalvalue2607=*_FUNC_EVALUATEFUNC_LONG_ARGCOUNT; +fornext_step2607= 1 ; +if (fornext_step2607<0) fornext_step_negative2607=1; else fornext_step_negative2607=0; +if (new_error) goto fornext_error2607; +goto fornext_entrylabel2607; +while(1){ +fornext_value2607=fornext_step2607+(*_FUNC_EVALUATEFUNC_LONG_FI); +fornext_entrylabel2607: +*_FUNC_EVALUATEFUNC_LONG_FI=fornext_value2607; +if (fornext_step_negative2607){ +if (fornext_value2607fornext_finalvalue2607) break; +} +fornext_error2607:; +if(qbevent){evnt(16490);if(r)goto S_19505;} +do{ +tmp_long=array_check((*_FUNC_EVALUATEFUNC_LONG_FI)-_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[4],_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[5]); +if (!new_error) ((int32*)(_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[0]))[tmp_long]=FUNC_HASFUNCTIONELEMENT(_FUNC_EVALUATEFUNC_STRING_A,_FUNC_EVALUATEFUNC_LONG_FI); +if(!qbevent)break;evnt(16491);}while(r); +fornext_continue_2606:; +} +fornext_exit_2606:; +S_19508:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_F,qbs_new_txt_len("[?],?,?",7))))||new_error){ +if(qbevent){evnt(16495);if(r)goto S_19508;} +do{ +*_FUNC_EVALUATEFUNC_LONG_HASOPTIONALFIRSTARG= -1 ; +if(!qbevent)break;evnt(16496);}while(r); +S_19510:; +if ((-(func_ubound(_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS,1,1)== 2 ))||new_error){ +if(qbevent){evnt(16498);if(r)goto S_19510;} +do{ if (_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[2]&2){ error(10); @@ -64528,15612 +64528,15612 @@ if (!_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[0]) error(257); } } _FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[2]|=1; -} -if(!qbevent)break;evnt(16499);}while(r); -do{ -tmp_long=array_check(( 3 )-_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[4],_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[5]); -if (!new_error) ((int32*)(_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[0]))[tmp_long]=((int32*)(_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[0]))[array_check(( 2 )-_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[4],_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[5])]; -if(!qbevent)break;evnt(16501);}while(r); -do{ -tmp_long=array_check(( 2 )-_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[4],_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[5]); -if (!new_error) ((int32*)(_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[0]))[tmp_long]=((int32*)(_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[0]))[array_check(( 1 )-_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[4],_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[5])]; -if(!qbevent)break;evnt(16502);}while(r); -do{ -tmp_long=array_check(( 1 )-_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[4],_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[5]); -if (!new_error) ((int32*)(_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(16503);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_SKIPFIRSTARG= -1 ; -if(!qbevent)break;evnt(16505);}while(r); -} -} -S_19518:; -if ((qbs_cleanup(qbs_tmp_base,~(FUNC_ISVALIDARGSET(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(1613)),256,1),_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS,_FUNC_EVALUATEFUNC_LONG_FIRSTOPTIONALARGUMENT))))||new_error){ -if(qbevent){evnt(16509);if(r)goto S_19518;} -S_19519:; -if ((qbs_cleanup(qbs_tmp_base,-((*(qbs**)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(2861)))->len> 0 )))||new_error){ -if(qbevent){evnt(16510);if(r)goto S_19519;} -do{ -SUB_GIVE_ERROR(qbs_add(qbs_new_txt_len("Incorrect number of arguments - Reference: ",43),*((qbs**)((char*)_FUNC_EVALUATEFUNC_UDT_ID2+(2861))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16511);}while(r); -}else{ -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Incorrect number of arguments passed to function",48)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16513);}while(r); -} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16515);}while(r); -} -do{ -*_FUNC_EVALUATEFUNC_LONG_PASSOMIT= 1 ; -if(!qbevent)break;evnt(16518);}while(r); -}else{ -S_19528:; -fornext_value2609= 1 ; -fornext_finalvalue2609=*_FUNC_EVALUATEFUNC_LONG_ARGCOUNT; -fornext_step2609= 1 ; -if (fornext_step2609<0) fornext_step_negative2609=1; else fornext_step_negative2609=0; -if (new_error) goto fornext_error2609; -goto fornext_entrylabel2609; -while(1){ -fornext_value2609=fornext_step2609+(*_FUNC_EVALUATEFUNC_LONG_FI); -fornext_entrylabel2609: -*_FUNC_EVALUATEFUNC_LONG_FI=fornext_value2609; -if (fornext_step_negative2609){ -if (fornext_value2609fornext_finalvalue2609) break; -} -fornext_error2609:; -if(qbevent){evnt(16522);if(r)goto S_19528;} -do{ -tmp_long=array_check((*_FUNC_EVALUATEFUNC_LONG_FI)-_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[4],_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[5]); -if (!new_error) ((int32*)(_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[0]))[tmp_long]= -1 ; -if(!qbevent)break;evnt(16523);}while(r); -fornext_continue_2608:; -} -fornext_exit_2608:; -S_19531:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("ASC",3)))&(-(*_FUNC_EVALUATEFUNC_LONG_ARGS== 2 ))))||new_error){ -if(qbevent){evnt(16526);if(r)goto S_19531;} -do{ -goto LABEL_SKIPARGNUMCHK; -if(!qbevent)break;evnt(16526);}while(r); -} -S_19534:; -if (((-(*(int8*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(808))== -1 ))&(((-(*_FUNC_EVALUATEFUNC_LONG_ARGS>=*(int16*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(811))))&(-(*_FUNC_EVALUATEFUNC_LONG_ARGS<=*(int16*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(809)))))))||new_error){ -if(qbevent){evnt(16527);if(r)goto S_19534;} -do{ -goto LABEL_SKIPARGNUMCHK; -if(!qbevent)break;evnt(16527);}while(r); -} -S_19537:; -if ((-(*(int16*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(809))!=*_FUNC_EVALUATEFUNC_LONG_ARGS))||new_error){ -if(qbevent){evnt(16529);if(r)goto S_19537;} -S_19538:; -if ((qbs_cleanup(qbs_tmp_base,-((*(qbs**)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(2861)))->len> 0 )))||new_error){ -if(qbevent){evnt(16530);if(r)goto S_19538;} -do{ -SUB_GIVE_ERROR(qbs_add(qbs_new_txt_len("Incorrect number of arguments - Reference: ",43),*((qbs**)((char*)_FUNC_EVALUATEFUNC_UDT_ID2+(2861))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16531);}while(r); -}else{ -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Incorrect number of arguments passed to function",48)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16533);}while(r); -} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16535);}while(r); -} -} -LABEL_SKIPARGNUMCHK:; -if(qbevent){evnt(16540);r=0;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(550)),256,1)),qbs_new_txt_len("(",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16542);}while(r); -S_19547:; -if ((-(*(int16*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(809))!= 0 ))||new_error){ -if(qbevent){evnt(16545);if(r)goto S_19547;} -do{ -*_FUNC_EVALUATEFUNC_LONG_CURARG= 1 ; -if(!qbevent)break;evnt(16547);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_FIRSTI= 1 ; -if(!qbevent)break;evnt(16548);}while(r); -S_19550:; -if ((*_FUNC_EVALUATEFUNC_LONG_SKIPFIRSTARG)||new_error){ -if(qbevent){evnt(16552);if(r)goto S_19550;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("NULL,",5))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16553);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_CURARG= 2 ; -if(!qbevent)break;evnt(16554);}while(r); -} -do{ -*_FUNC_EVALUATEFUNC_LONG_N=FUNC_NUMELEMENTS(_FUNC_EVALUATEFUNC_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16557);}while(r); -S_19555:; -fornext_value2611= 1 ; -fornext_finalvalue2611=*_FUNC_EVALUATEFUNC_LONG_N; -fornext_step2611= 1 ; -if (fornext_step2611<0) fornext_step_negative2611=1; else fornext_step_negative2611=0; -if (new_error) goto fornext_error2611; -goto fornext_entrylabel2611; -while(1){ -fornext_value2611=fornext_step2611+(*_FUNC_EVALUATEFUNC_LONG_I); -fornext_entrylabel2611: -*_FUNC_EVALUATEFUNC_LONG_I=fornext_value2611; -if (fornext_step_negative2611){ -if (fornext_value2611fornext_finalvalue2611) break; -} -fornext_error2611:; -if(qbevent){evnt(16559);if(r)goto S_19555;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_L,FUNC_GETELEMENT(_FUNC_EVALUATEFUNC_STRING_A,_FUNC_EVALUATEFUNC_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16560);}while(r); -S_19557:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_L,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(16561);if(r)goto S_19557;} -do{ -*_FUNC_EVALUATEFUNC_LONG_B=*_FUNC_EVALUATEFUNC_LONG_B+ 1 ; -if(!qbevent)break;evnt(16561);}while(r); -} -S_19560:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_L,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(16562);if(r)goto S_19560;} -do{ -*_FUNC_EVALUATEFUNC_LONG_B=*_FUNC_EVALUATEFUNC_LONG_B- 1 ; -if(!qbevent)break;evnt(16562);}while(r); -} -S_19563:; -if ((qbs_cleanup(qbs_tmp_base,((qbs_equal(_FUNC_EVALUATEFUNC_STRING_L,qbs_new_txt_len(",",1)))&(-(*_FUNC_EVALUATEFUNC_LONG_B== 0 )))|(-(*_FUNC_EVALUATEFUNC_LONG_I==*_FUNC_EVALUATEFUNC_LONG_N))))||new_error){ -if(qbevent){evnt(16563);if(r)goto S_19563;} -S_19564:; -if ((~(((int32*)(_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[0]))[array_check((*_FUNC_EVALUATEFUNC_LONG_CURARG)-_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[4],_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[5])]))||new_error){ -if(qbevent){evnt(16564);if(r)goto S_19564;} -S_19565:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_I==*_FUNC_EVALUATEFUNC_LONG_N))||new_error){ -if(qbevent){evnt(16565);if(r)goto S_19565;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Last function argument cannot be empty",38)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16565);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16565);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("NULL,",5))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16567);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_FIRSTI=*_FUNC_EVALUATEFUNC_LONG_I+ 1 ; -if(!qbevent)break;evnt(16568);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_CURARG=*_FUNC_EVALUATEFUNC_LONG_CURARG+ 1 ; -if(!qbevent)break;evnt(16569);}while(r); -do{ -goto fornext_continue_2610; -if(!qbevent)break;evnt(16570);}while(r); -} -do{ -*_FUNC_EVALUATEFUNC_LONG_TARGETTYP=string2l(func_mid(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(813)),400,1),(*_FUNC_EVALUATEFUNC_LONG_CURARG* 4 )-( 4 )+( 1 ), 4 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16573);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_NELE=qbs_asc(func_mid(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(2647)),100,1),*_FUNC_EVALUATEFUNC_LONG_CURARG, 1 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16574);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_NELEREQ=qbs_asc(func_mid(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(2747)),100,1),*_FUNC_EVALUATEFUNC_LONG_CURARG, 1 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16575);}while(r); -S_19577:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_I==*_FUNC_EVALUATEFUNC_LONG_N))||new_error){ -if(qbevent){evnt(16577);if(r)goto S_19577;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_GETELEMENTS(_FUNC_EVALUATEFUNC_STRING_A,_FUNC_EVALUATEFUNC_LONG_FIRSTI,_FUNC_EVALUATEFUNC_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16578);}while(r); -}else{ -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_GETELEMENTS(_FUNC_EVALUATEFUNC_STRING_A,_FUNC_EVALUATEFUNC_LONG_FIRSTI,&(pass2612=*_FUNC_EVALUATEFUNC_LONG_I- 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16580);}while(r); -} -S_19582:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal((qbs_left(_FUNC_EVALUATEFUNC_STRING_E, 2 )),(qbs_add(qbs_new_txt_len("(",1),__STRING1_SP)))))||new_error){ -if(qbevent){evnt(16583);if(r)goto S_19582;} -do{ -*_FUNC_EVALUATEFUNC_LONG_DEREFERENCE= 1 ; -if(!qbevent)break;evnt(16583);}while(r); -}else{ -do{ -*_FUNC_EVALUATEFUNC_LONG_DEREFERENCE= 0 ; -if(!qbevent)break;evnt(16583);}while(r); -} -S_19587:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_CV",3)))|(((qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("CV",2)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ -if(qbevent){evnt(16588);if(r)goto S_19587;} -S_19588:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 1 ))||new_error){ -if(qbevent){evnt(16589);if(r)goto S_19588;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_CVTYPE,FUNC_TYPE2SYMBOL(_FUNC_EVALUATEFUNC_STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16590);}while(r); -S_19590:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(16591);if(r)goto S_19590;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16591);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16592);}while(r); -do{ -goto LABEL_DONTEVALUATE; -if(!qbevent)break;evnt(16593);}while(r); -} -} -S_19597:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_MK",3)))|(((qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("MK",2)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ -if(qbevent){evnt(16599);if(r)goto S_19597;} -S_19598:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(528)),8,1)),qbs_new_txt_len("$",1))))||new_error){ -if(qbevent){evnt(16600);if(r)goto S_19598;} -S_19599:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 1 ))||new_error){ -if(qbevent){evnt(16601);if(r)goto S_19599;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_MKTYPE,FUNC_TYPE2SYMBOL(_FUNC_EVALUATEFUNC_STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16602);}while(r); -S_19601:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(16603);if(r)goto S_19601;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16603);}while(r); -} -S_19604:; -if (( 0 )||new_error){ -if(qbevent){evnt(16604);if(r)goto S_19604;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2613; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("_MK:[",5),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len("]:[",3)),_FUNC_EVALUATEFUNC_STRING_MKTYPE),qbs_new_txt_len("]",1)), 0, 0, 1); -if (new_error) goto skip2613; -skip2613: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(16604);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16605);}while(r); -do{ -goto LABEL_DONTEVALUATE; -if(!qbevent)break;evnt(16606);}while(r); -} -} -} -S_19612:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("UBOUND",6)))|(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("LBOUND",6)))))||new_error){ -if(qbevent){evnt(16611);if(r)goto S_19612;} -S_19613:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 1 ))||new_error){ -if(qbevent){evnt(16612);if(r)goto S_19613;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_EVALUATEFUNC_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(16614);}while(r); -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_EVALUATE(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16615);}while(r); -S_19616:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(16616);if(r)goto S_19616;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16616);}while(r); -} -S_19619:; -if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||new_error){ -if(qbevent){evnt(16617);if(r)goto S_19619;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected array-name",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16617);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16617);}while(r); -} -S_19623:; -if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISARRAY)== 0 ))||new_error){ -if(qbevent){evnt(16618);if(r)goto S_19623;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected array-name",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16618);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16618);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_ULBOUNDARRAY,_FUNC_EVALUATEFUNC_STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16620);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_ULBOUNDARRAYTYP=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP; -if(!qbevent)break;evnt(16621);}while(r); -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16622);}while(r); -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16623);}while(r); -do{ -goto LABEL_DONTEVALUATE; -if(!qbevent)break;evnt(16624);}while(r); -} -} -S_19634:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("INPUT",5))))||new_error){ -if(qbevent){evnt(16630);if(r)goto S_19634;} -S_19635:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(528)),8,1)),qbs_new_txt_len("$",1))))||new_error){ -if(qbevent){evnt(16631);if(r)goto S_19635;} -S_19636:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 ))||new_error){ -if(qbevent){evnt(16632);if(r)goto S_19636;} -S_19637:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal((qbs_left(_FUNC_EVALUATEFUNC_STRING_E, 2 )),(qbs_add(qbs_new_txt_len("#",1),__STRING1_SP)))))||new_error){ -if(qbevent){evnt(16633);if(r)goto S_19637;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_right(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_STRING_E->len- 2 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16633);}while(r); -} -} -} -} -S_19643:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("ASC",3))))||new_error){ -if(qbevent){evnt(16640);if(r)goto S_19643;} -S_19644:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 ))||new_error){ -if(qbevent){evnt(16641);if(r)goto S_19644;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_EVALUATETOTYP(_FUNC_EVALUATEFUNC_STRING_E,&(pass2615= 32 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16642);}while(r); -S_19646:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(16643);if(r)goto S_19646;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16643);}while(r); -} -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(16644);}while(r); -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16645);}while(r); -do{ -goto LABEL_EVALFUNCSPECIAL; -if(!qbevent)break;evnt(16646);}while(r); -} -} -S_19654:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_MEMGET",7)))|(((qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("MEMGET",6)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ -if(qbevent){evnt(16657);if(r)goto S_19654;} -S_19655:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 1 ))||new_error){ -if(qbevent){evnt(16658);if(r)goto S_19655;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_MEMGET_BLK,_FUNC_EVALUATEFUNC_STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16659);}while(r); -} -S_19658:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 ))||new_error){ -if(qbevent){evnt(16661);if(r)goto S_19658;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_MEMGET_OFFS,_FUNC_EVALUATEFUNC_STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16662);}while(r); -} -S_19661:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 3 ))||new_error){ -if(qbevent){evnt(16664);if(r)goto S_19661;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_ucase(_FUNC_EVALUATEFUNC_STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16665);}while(r); -S_19663:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(__STRING1_SP,qbs_new_txt_len("*",1)),__STRING1_SP),0)))||new_error){ -if(qbevent){evnt(16666);if(r)goto S_19663;} -S_19664:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_FUNC_EVALUATEFUNC_STRING_E, 2 ),qbs_new_txt_len("&&",2))))||new_error){ -if(qbevent){evnt(16667);if(r)goto S_19664;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_left(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_STRING_E->len- 2 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16668);}while(r); -}else{ -S_19667:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_right(_FUNC_EVALUATEFUNC_STRING_E, 1 ),qbs_new_txt_len("&",1)))|(qbs_equal(qbs_right(_FUNC_EVALUATEFUNC_STRING_E, 1 ),qbs_new_txt_len("%",1)))))||new_error){ -if(qbevent){evnt(16670);if(r)goto S_19667;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_left(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_STRING_E->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16670);}while(r); -} -} -} -do{ -*_FUNC_EVALUATEFUNC_LONG_T=FUNC_TYPNAME2TYP(_FUNC_EVALUATEFUNC_STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16673);}while(r); -S_19673:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_T== 0 ))||new_error){ -if(qbevent){evnt(16674);if(r)goto S_19673;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Invalid TYPE name",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16674);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16674);}while(r); -} -S_19677:; -if ((*_FUNC_EVALUATEFUNC_LONG_T&*__LONG_ISOFFSETINBITS)||new_error){ -if(qbevent){evnt(16675);if(r)goto S_19677;} -do{ -SUB_GIVE_ERROR(qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("BIT TYPE unsupported",20))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16675);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16675);}while(r); -} -do{ -*_FUNC_EVALUATEFUNC_LONG_MEMGET_SIZE=*__LONG_TYPNAME2TYPSIZE; -if(!qbevent)break;evnt(16676);}while(r); -S_19682:; -if ((*_FUNC_EVALUATEFUNC_LONG_T&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(16677);if(r)goto S_19682;} -S_19683:; -if ((-((*_FUNC_EVALUATEFUNC_LONG_T&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ -if(qbevent){evnt(16678);if(r)goto S_19683;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected STRING * ...",21)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16678);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16678);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_MEMGET_CTYP,qbs_new_txt_len("qbs*",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16679);}while(r); -}else{ -S_19689:; -if ((*_FUNC_EVALUATEFUNC_LONG_T&*__LONG_ISUDT)||new_error){ -if(qbevent){evnt(16681);if(r)goto S_19689;} -do{ -*_FUNC_EVALUATEFUNC_LONG_MEMGET_SIZE=((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*_FUNC_EVALUATEFUNC_LONG_T& 511 )-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])]/ 8 ; -if(!qbevent)break;evnt(16682);}while(r); -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_MEMGET_CTYP,qbs_new_txt_len("void*",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16683);}while(r); -}else{ -do{ -*_FUNC_EVALUATEFUNC_LONG_MEMGET_SIZE=(*_FUNC_EVALUATEFUNC_LONG_T& 511 )/ 8 ; -if(!qbevent)break;evnt(16685);}while(r); -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_MEMGET_CTYP,FUNC_TYP2CTYP(_FUNC_EVALUATEFUNC_LONG_T,qbs_new_txt_len("",0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16686);}while(r); -} -} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_OFFS,FUNC_EVALUATETOTYP(_FUNC_EVALUATEFUNC_STRING_MEMGET_OFFS,&(pass2618=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16695);}while(r); -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_BLKOFFS,FUNC_EVALUATETOTYP(_FUNC_EVALUATEFUNC_STRING_MEMGET_BLK,&(pass2619= -6 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16696);}while(r); -S_19699:; -if ((-(*__LONG_NOCHECKS== 0 ))||new_error){ -if(qbevent){evnt(16697);if(r)goto S_19699;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_OFFS,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("func__memget((mem_block*)",25),_FUNC_EVALUATEFUNC_STRING_BLKOFFS),qbs_new_txt_len(",",1)),_FUNC_EVALUATEFUNC_STRING_OFFS),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATEFUNC_LONG_MEMGET_SIZE)),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16699);}while(r); -} -S_19702:; -if ((*_FUNC_EVALUATEFUNC_LONG_T&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(16701);if(r)goto S_19702;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_new_txt_len((char*)",23),_FUNC_EVALUATEFUNC_STRING_OFFS),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATEFUNC_LONG_MEMGET_SIZE)),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16702);}while(r); -}else{ -S_19705:; -if ((*_FUNC_EVALUATEFUNC_LONG_T&*__LONG_ISUDT)||new_error){ -if(qbevent){evnt(16704);if(r)goto S_19705;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_new_txt_len("((void*)+",9),_FUNC_EVALUATEFUNC_STRING_OFFS),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16705);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_T=*__LONG_ISUDT+*__LONG_ISPOINTER+(*_FUNC_EVALUATEFUNC_LONG_T& 511 ); -if(!qbevent)break;evnt(16706);}while(r); -}else{ -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*(",2),_FUNC_EVALUATEFUNC_STRING_MEMGET_CTYP),qbs_new_txt_len("*)(",3)),_FUNC_EVALUATEFUNC_STRING_OFFS),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16708);}while(r); -S_19710:; -if ((*_FUNC_EVALUATEFUNC_LONG_T&*__LONG_ISPOINTER)||new_error){ -if(qbevent){evnt(16709);if(r)goto S_19710;} -do{ -*_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(16709);}while(r); -} -} -} -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP=*_FUNC_EVALUATEFUNC_LONG_T; -if(!qbevent)break;evnt(16719);}while(r); -do{ -goto LABEL_EVALFUNCSPECIAL; -if(!qbevent)break;evnt(16722);}while(r); -} -} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E2,_FUNC_EVALUATEFUNC_STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16727);}while(r); -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_EVALUATE(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16728);}while(r); -S_19721:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(16729);if(r)goto S_19721;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16729);}while(r); -} -S_19724:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_ROR",4)))|(((qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("ROR",3)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))|(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_ROL",4)))|(((qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("ROL",3)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ -if(qbevent){evnt(16733);if(r)goto S_19724;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_ROTLR_N,qbs_lcase(qbs_right(_FUNC_EVALUATEFUNC_STRING_N, 3 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16734);}while(r); -S_19726:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 1 ))||new_error){ -if(qbevent){evnt(16735);if(r)goto S_19726;} -S_19727:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING)|(*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT)|(*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSET)|(*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUDT))||new_error){ -if(qbevent){evnt(16736);if(r)goto S_19727;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected non-floating-point value",33)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16737);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16738);}while(r); -} -S_19731:; -if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)||new_error){ -if(qbevent){evnt(16740);if(r)goto S_19731;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2620= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16740);}while(r); -} -S_19734:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(16741);if(r)goto S_19734;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16741);}while(r); -} -S_19737:; -if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 )== 8 ))||new_error){ -if(qbevent){evnt(16743);if(r)goto S_19737;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("func__",6),_FUNC_EVALUATEFUNC_STRING_ROTLR_N),qbs_new_txt_len("8(",2)),_FUNC_EVALUATEFUNC_STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16744);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_UBYTETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(16745);}while(r); -S_19740:; -}else{ -if (-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 )== 16 )){ -if(qbevent){evnt(16746);if(r)goto S_19740;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("func__",6),_FUNC_EVALUATEFUNC_STRING_ROTLR_N),qbs_new_txt_len("16(",3)),_FUNC_EVALUATEFUNC_STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16747);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_UINTEGERTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(16748);}while(r); -S_19743:; -}else{ -if (-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 )== 32 )){ -if(qbevent){evnt(16749);if(r)goto S_19743;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("func__",6),_FUNC_EVALUATEFUNC_STRING_ROTLR_N),qbs_new_txt_len("32(",3)),_FUNC_EVALUATEFUNC_STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16750);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_ULONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(16751);}while(r); -S_19746:; -}else{ -if (-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 )== 64 )){ -if(qbevent){evnt(16752);if(r)goto S_19746;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("func__",6),_FUNC_EVALUATEFUNC_STRING_ROTLR_N),qbs_new_txt_len("64(",3)),_FUNC_EVALUATEFUNC_STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16753);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(16754);}while(r); -}else{ -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Unknown data size",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16756);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16757);}while(r); -} -} -} -} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16759);}while(r); -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16760);}while(r); -do{ -goto LABEL_DONTEVALUATE; -if(!qbevent)break;evnt(16761);}while(r); -S_19756:; -}else{ -if (-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 )){ -if(qbevent){evnt(16762);if(r)goto S_19756;} -S_19757:; -if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)||new_error){ -if(qbevent){evnt(16763);if(r)goto S_19757;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2621= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16763);}while(r); -} -S_19760:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(16764);if(r)goto S_19760;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16764);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16765);}while(r); -do{ -goto LABEL_EVALFUNCSPECIAL; -if(!qbevent)break;evnt(16766);}while(r); -} -} -} -S_19767:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_MEM",4)))|(((qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("MEM",3)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ -if(qbevent){evnt(16771);if(r)goto S_19767;} -S_19768:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 1 ))||new_error){ -if(qbevent){evnt(16772);if(r)goto S_19768;} -S_19769:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_ARGS== 1 ))||new_error){ -if(qbevent){evnt(16773);if(r)goto S_19769;} -do{ -*_FUNC_EVALUATEFUNC_LONG_TARGETTYP= -7 ; -if(!qbevent)break;evnt(16774);}while(r); -} -S_19772:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_ARGS== 2 ))||new_error){ -if(qbevent){evnt(16776);if(r)goto S_19772;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(550)),256,1)),qbs_new_txt_len("_at_offset",10)),qbs_right(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_R->len-((int32)(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(550)),256,1)))->len)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16777);}while(r); -S_19774:; -if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSET)== 0 ))||new_error){ -if(qbevent){evnt(16778);if(r)goto S_19774;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected _MEM(_OFFSET-value,...)",32)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16778);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16778);}while(r); -} -} -} -} -S_19781:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_OFFSET",7)))|(((qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("OFFSET",6)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ -if(qbevent){evnt(16784);if(r)goto S_19781;} -S_19782:; -if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||new_error){ -if(qbevent){evnt(16785);if(r)goto S_19782;} -do{ -SUB_GIVE_ERROR(qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("OFFSET expects the name of a variable/array",43))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16786);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16786);}while(r); -} -S_19786:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISARRAY))||new_error){ -if(qbevent){evnt(16788);if(r)goto S_19786;} -S_19787:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSETINBITS))||new_error){ -if(qbevent){evnt(16789);if(r)goto S_19787;} -do{ -SUB_GIVE_ERROR(qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("OFFSET cannot reference _BIT type arrays",40))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16789);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16789);}while(r); -} -} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_new_txt_len("((uptrszint)(",13),FUNC_EVALUATETOTYP(_FUNC_EVALUATEFUNC_STRING_E2,&(pass2623= -6 ))),qbs_new_txt_len("))",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16791);}while(r); -S_19793:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(16792);if(r)goto S_19793;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16792);}while(r); -} -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_UOFFSETTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(16793);}while(r); -do{ -goto LABEL_EVALFUNCSPECIAL; -if(!qbevent)break;evnt(16794);}while(r); -} -S_19799:; -if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSET)||new_error){ -if(qbevent){evnt(16798);if(r)goto S_19799;} -S_19800:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("MKSMBF",6)))&(qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(528)),8,1)),qbs_new_txt_len("$",1)))))||new_error){ -if(qbevent){evnt(16799);if(r)goto S_19800;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Cannot convert _OFFSET type to other types",42)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16799);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16799);}while(r); -} -S_19804:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("MKDMBF",6)))&(qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(528)),8,1)),qbs_new_txt_len("$",1)))))||new_error){ -if(qbevent){evnt(16800);if(r)goto S_19804;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Cannot convert _OFFSET type to other types",42)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16800);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16800);}while(r); -} -} -S_19809:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("ENVIRON",7))))||new_error){ -if(qbevent){evnt(16804);if(r)goto S_19809;} -S_19810:; -if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(16805);if(r)goto S_19810;} -S_19811:; -if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)||new_error){ -if(qbevent){evnt(16806);if(r)goto S_19811;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2624= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16806);}while(r); -} -S_19814:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(16807);if(r)goto S_19814;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16807);}while(r); -} -do{ -goto LABEL_DONTEVALUATE; -if(!qbevent)break;evnt(16808);}while(r); -} -} -S_19820:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("LEN",3))))||new_error){ -if(qbevent){evnt(16813);if(r)goto S_19820;} -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(16814);}while(r); -S_19822:; -if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||new_error){ -if(qbevent){evnt(16815);if(r)goto S_19822;} -S_19823:; -if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(16817);if(r)goto S_19823;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_new_txt_len("((int32)(",9),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")->len)",7))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16818);}while(r); -do{ -goto LABEL_EVALFUNCSPECIAL; -if(!qbevent)break;evnt(16819);}while(r); -} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("String expression or variable name required in LEN statement",60)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16821);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16821);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,FUNC_EVALUATETOTYP(_FUNC_EVALUATEFUNC_STRING_E2,&(pass2625= -5 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16823);}while(r); -S_19831:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(16824);if(r)goto S_19831;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16824);}while(r); -} -do{ -goto LABEL_EVALFUNCSPECIAL; -if(!qbevent)break;evnt(16825);}while(r); -} -S_19836:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_BIN",4)))|(((qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("BIN",3)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ -if(qbevent){evnt(16830);if(r)goto S_19836;} -S_19837:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(528)),8,1)),qbs_new_txt_len("$",1))))||new_error){ -if(qbevent){evnt(16831);if(r)goto S_19837;} -do{ -*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ; -if(!qbevent)break;evnt(16832);}while(r); -S_19839:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(16834);if(r)goto S_19839;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16834);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16834);}while(r); -} -do{ -*_FUNC_EVALUATEFUNC_LONG_WASREF= 0 ; -if(!qbevent)break;evnt(16835);}while(r); -S_19844:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(16836);if(r)goto S_19844;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2626= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16836);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_WASREF= 1 ; -if(!qbevent)break;evnt(16836);}while(r); -} -S_19848:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(16837);if(r)goto S_19848;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16837);}while(r); -} -do{ -*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ; -if(!qbevent)break;evnt(16838);}while(r); -S_19852:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSETINBITS))||new_error){ -if(qbevent){evnt(16839);if(r)goto S_19852;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("func__bin(",10),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATEFUNC_LONG_BITS)),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16840);}while(r); -}else{ -S_19855:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||new_error){ -if(qbevent){evnt(16842);if(r)goto S_19855;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func__bin_float(",16),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16843);}while(r); -}else{ -S_19858:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 64 ))||new_error){ -if(qbevent){evnt(16845);if(r)goto S_19858;} -S_19859:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_WASREF== 0 ))||new_error){ -if(qbevent){evnt(16846);if(r)goto S_19859;} -do{ -*_FUNC_EVALUATEFUNC_LONG_BITS= 0 ; -if(!qbevent)break;evnt(16846);}while(r); -} -} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("func__bin(",10),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATEFUNC_LONG_BITS)),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16848);}while(r); -} -} -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(16851);}while(r); -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16852);}while(r); -do{ -goto LABEL_EVALFUNCSPECIAL; -if(!qbevent)break;evnt(16853);}while(r); -} -} -S_19871:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("OCT",3))))||new_error){ -if(qbevent){evnt(16858);if(r)goto S_19871;} -S_19872:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(528)),8,1)),qbs_new_txt_len("$",1))))||new_error){ -if(qbevent){evnt(16859);if(r)goto S_19872;} -do{ -*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ; -if(!qbevent)break;evnt(16860);}while(r); -S_19874:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(16862);if(r)goto S_19874;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16862);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16862);}while(r); -} -do{ -*_FUNC_EVALUATEFUNC_LONG_WASREF= 0 ; -if(!qbevent)break;evnt(16863);}while(r); -S_19879:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(16864);if(r)goto S_19879;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2627= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16864);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_WASREF= 1 ; -if(!qbevent)break;evnt(16864);}while(r); -} -S_19883:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(16865);if(r)goto S_19883;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16865);}while(r); -} -do{ -*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ; -if(!qbevent)break;evnt(16866);}while(r); -S_19887:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSETINBITS))||new_error){ -if(qbevent){evnt(16867);if(r)goto S_19887;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("func_oct(",9),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATEFUNC_LONG_BITS)),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16868);}while(r); -}else{ -S_19890:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||new_error){ -if(qbevent){evnt(16870);if(r)goto S_19890;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_oct_float(",15),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16871);}while(r); -}else{ -S_19893:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 64 ))||new_error){ -if(qbevent){evnt(16873);if(r)goto S_19893;} -S_19894:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_WASREF== 0 ))||new_error){ -if(qbevent){evnt(16874);if(r)goto S_19894;} -do{ -*_FUNC_EVALUATEFUNC_LONG_BITS= 0 ; -if(!qbevent)break;evnt(16874);}while(r); -} -} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("func_oct(",9),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATEFUNC_LONG_BITS)),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16876);}while(r); -} -} -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(16879);}while(r); -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16880);}while(r); -do{ -goto LABEL_EVALFUNCSPECIAL; -if(!qbevent)break;evnt(16881);}while(r); -} -} -S_19906:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("HEX",3))))||new_error){ -if(qbevent){evnt(16886);if(r)goto S_19906;} -S_19907:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(528)),8,1)),qbs_new_txt_len("$",1))))||new_error){ -if(qbevent){evnt(16887);if(r)goto S_19907;} -do{ -*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ; -if(!qbevent)break;evnt(16888);}while(r); -S_19909:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(16889);if(r)goto S_19909;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16889);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16889);}while(r); -} -do{ -*_FUNC_EVALUATEFUNC_LONG_WASREF= 0 ; -if(!qbevent)break;evnt(16890);}while(r); -S_19914:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(16891);if(r)goto S_19914;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2628= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16891);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_WASREF= 1 ; -if(!qbevent)break;evnt(16891);}while(r); -} -S_19918:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(16892);if(r)goto S_19918;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16892);}while(r); -} -do{ -*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ; -if(!qbevent)break;evnt(16893);}while(r); -S_19922:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSETINBITS))||new_error){ -if(qbevent){evnt(16894);if(r)goto S_19922;} -do{ -*_FUNC_EVALUATEFUNC_LONG_CHARS=(*_FUNC_EVALUATEFUNC_LONG_BITS+ 3 )/ 4 ; -if(!qbevent)break;evnt(16895);}while(r); -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("func_hex(",9),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATEFUNC_LONG_CHARS)),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16896);}while(r); -}else{ -S_19926:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||new_error){ -if(qbevent){evnt(16898);if(r)goto S_19926;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_hex_float(",15),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16899);}while(r); -}else{ -S_19929:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 8 ))||new_error){ -if(qbevent){evnt(16901);if(r)goto S_19929;} -do{ -*_FUNC_EVALUATEFUNC_LONG_CHARS= 2 ; -if(!qbevent)break;evnt(16901);}while(r); -} -S_19932:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 16 ))||new_error){ -if(qbevent){evnt(16902);if(r)goto S_19932;} -do{ -*_FUNC_EVALUATEFUNC_LONG_CHARS= 4 ; -if(!qbevent)break;evnt(16902);}while(r); -} -S_19935:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 32 ))||new_error){ -if(qbevent){evnt(16903);if(r)goto S_19935;} -do{ -*_FUNC_EVALUATEFUNC_LONG_CHARS= 8 ; -if(!qbevent)break;evnt(16903);}while(r); -} -S_19938:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 64 ))||new_error){ -if(qbevent){evnt(16904);if(r)goto S_19938;} -S_19939:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_WASREF== 1 ))||new_error){ -if(qbevent){evnt(16905);if(r)goto S_19939;} -do{ -*_FUNC_EVALUATEFUNC_LONG_CHARS= 16 ; -if(!qbevent)break;evnt(16905);}while(r); -}else{ -do{ -*_FUNC_EVALUATEFUNC_LONG_CHARS= 0 ; -if(!qbevent)break;evnt(16905);}while(r); -} -} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("func_hex(",9),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATEFUNC_LONG_CHARS)),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16907);}while(r); -} -} -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(16910);}while(r); -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16911);}while(r); -do{ -goto LABEL_EVALFUNCSPECIAL; -if(!qbevent)break;evnt(16912);}while(r); -} -} -S_19953:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("EXP",3))))||new_error){ -if(qbevent){evnt(16918);if(r)goto S_19953;} -do{ -*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ; -if(!qbevent)break;evnt(16919);}while(r); -S_19955:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(16920);if(r)goto S_19955;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16920);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16920);}while(r); -} -S_19959:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(16921);if(r)goto S_19959;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2629= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16921);}while(r); -} -S_19962:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(16922);if(r)goto S_19962;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16922);}while(r); -} -do{ -*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ; -if(!qbevent)break;evnt(16923);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(16924);}while(r); -S_19967:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||new_error){ -if(qbevent){evnt(16925);if(r)goto S_19967;} -S_19968:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 32 ))||new_error){ -if(qbevent){evnt(16926);if(r)goto S_19968;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_exp_single(",16),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16926);}while(r); -}else{ -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_exp_float(",15),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16926);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(16926);}while(r); -} -}else{ -S_19975:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSETINBITS))||new_error){ -if(qbevent){evnt(16928);if(r)goto S_19975;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_exp_float(",15),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16929);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(16929);}while(r); -}else{ -S_19979:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS<= 16 ))||new_error){ -if(qbevent){evnt(16931);if(r)goto S_19979;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_exp_single(",16),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16931);}while(r); -}else{ -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_exp_float(",15),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16931);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(16931);}while(r); -} -} -} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16934);}while(r); -do{ -goto LABEL_EVALFUNCSPECIAL; -if(!qbevent)break;evnt(16935);}while(r); -} -S_19990:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("INT",3))))||new_error){ -if(qbevent){evnt(16939);if(r)goto S_19990;} -S_19991:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(16940);if(r)goto S_19991;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16940);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16940);}while(r); -} -S_19995:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(16941);if(r)goto S_19995;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2630= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16941);}while(r); -} -S_19998:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(16942);if(r)goto S_19998;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16942);}while(r); -} -S_20001:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||new_error){ -if(qbevent){evnt(16944);if(r)goto S_20001;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("floor(",6),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16944);}while(r); -}else{ -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(",1),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16944);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16945);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP; -if(!qbevent)break;evnt(16946);}while(r); -do{ -goto LABEL_EVALFUNCSPECIAL; -if(!qbevent)break;evnt(16947);}while(r); -} -S_20010:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("FIX",3))))||new_error){ -if(qbevent){evnt(16951);if(r)goto S_20010;} -S_20011:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(16952);if(r)goto S_20011;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16952);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16952);}while(r); -} -S_20015:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(16953);if(r)goto S_20015;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2631= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16953);}while(r); -} -S_20018:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(16954);if(r)goto S_20018;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16954);}while(r); -} -do{ -*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ; -if(!qbevent)break;evnt(16956);}while(r); -S_20022:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||new_error){ -if(qbevent){evnt(16957);if(r)goto S_20022;} -S_20023:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 64 ))||new_error){ -if(qbevent){evnt(16958);if(r)goto S_20023;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_fix_float(",15),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16958);}while(r); -}else{ -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_fix_double(",16),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16958);}while(r); -} -}else{ -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(",1),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16960);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16962);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP; -if(!qbevent)break;evnt(16963);}while(r); -do{ -goto LABEL_EVALFUNCSPECIAL; -if(!qbevent)break;evnt(16964);}while(r); -} -S_20035:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_ROUND",6)))|(((qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("ROUND",5)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ -if(qbevent){evnt(16968);if(r)goto S_20035;} -S_20036:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(16969);if(r)goto S_20036;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16969);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16969);}while(r); -} -S_20040:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(16970);if(r)goto S_20040;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2632= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16970);}while(r); -} -S_20043:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(16971);if(r)goto S_20043;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16971);}while(r); -} -S_20046:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||new_error){ -if(qbevent){evnt(16973);if(r)goto S_20046;} -do{ -*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ; -if(!qbevent)break;evnt(16974);}while(r); -S_20048:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 64 ))||new_error){ -if(qbevent){evnt(16975);if(r)goto S_20048;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_round_float(",17),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16975);}while(r); -}else{ -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_round_double(",18),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16975);}while(r); -} -}else{ -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(",1),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16977);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16979);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ; -if(!qbevent)break;evnt(16980);}while(r); -S_20058:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSET))||new_error){ -if(qbevent){evnt(16981);if(r)goto S_20058;} -S_20059:; -if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUNSIGNED)||new_error){ -if(qbevent){evnt(16982);if(r)goto S_20059;} -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_UOFFSETTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(16982);}while(r); -}else{ -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(16982);}while(r); -} -} -do{ -goto LABEL_EVALFUNCSPECIAL; -if(!qbevent)break;evnt(16984);}while(r); -} -S_20067:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("CDBL",4))))||new_error){ -if(qbevent){evnt(16989);if(r)goto S_20067;} -S_20068:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSET))||new_error){ -if(qbevent){evnt(16990);if(r)goto S_20068;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Cannot convert _OFFSET type to other types",42)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16990);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16990);}while(r); -} -S_20072:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(16991);if(r)goto S_20072;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16991);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16991);}while(r); -} -S_20076:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(16992);if(r)goto S_20076;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2633= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16992);}while(r); -} -S_20079:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(16993);if(r)goto S_20079;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(16993);}while(r); -} -do{ -*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ; -if(!qbevent)break;evnt(16995);}while(r); -S_20083:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||new_error){ -if(qbevent){evnt(16996);if(r)goto S_20083;} -S_20084:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 64 ))||new_error){ -if(qbevent){evnt(16997);if(r)goto S_20084;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_cdbl_float(",16),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16997);}while(r); -} -}else{ -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("((double)(",10),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len("))",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(16999);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17001);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(17002);}while(r); -do{ -goto LABEL_EVALFUNCSPECIAL; -if(!qbevent)break;evnt(17003);}while(r); -} -S_20094:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("CSNG",4))))||new_error){ -if(qbevent){evnt(17007);if(r)goto S_20094;} -S_20095:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSET))||new_error){ -if(qbevent){evnt(17008);if(r)goto S_20095;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Cannot convert _OFFSET type to other types",42)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17008);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17008);}while(r); -} -S_20099:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(17009);if(r)goto S_20099;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17009);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17009);}while(r); -} -S_20103:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(17010);if(r)goto S_20103;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2634= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17010);}while(r); -} -S_20106:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(17011);if(r)goto S_20106;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17011);}while(r); -} -do{ -*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ; -if(!qbevent)break;evnt(17013);}while(r); -S_20110:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||new_error){ -if(qbevent){evnt(17014);if(r)goto S_20110;} -S_20111:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 64 ))||new_error){ -if(qbevent){evnt(17015);if(r)goto S_20111;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_csng_double(",17),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17015);}while(r); -} -S_20114:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 64 ))||new_error){ -if(qbevent){evnt(17016);if(r)goto S_20114;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_csng_float(",16),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17016);}while(r); -} -}else{ -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("((double)(",10),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len("))",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17018);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17020);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(17021);}while(r); -do{ -goto LABEL_EVALFUNCSPECIAL; -if(!qbevent)break;evnt(17022);}while(r); -} -S_20124:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("CLNG",4))))||new_error){ -if(qbevent){evnt(17027);if(r)goto S_20124;} -S_20125:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSET))||new_error){ -if(qbevent){evnt(17028);if(r)goto S_20125;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Cannot convert _OFFSET type to other types",42)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17028);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17028);}while(r); -} -S_20129:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(17029);if(r)goto S_20129;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17029);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17029);}while(r); -} -S_20133:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(17030);if(r)goto S_20133;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2635= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17030);}while(r); -} -S_20136:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(17031);if(r)goto S_20136;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17031);}while(r); -} -do{ -*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ; -if(!qbevent)break;evnt(17033);}while(r); -S_20140:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||new_error){ -if(qbevent){evnt(17034);if(r)goto S_20140;} -S_20141:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 64 ))||new_error){ -if(qbevent){evnt(17035);if(r)goto S_20141;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_clng_float(",16),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17035);}while(r); -}else{ -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_clng_double(",17),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17035);}while(r); -} -}else{ -S_20147:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUNSIGNED))||new_error){ -if(qbevent){evnt(17037);if(r)goto S_20147;} -S_20148:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 32 ))||new_error){ -if(qbevent){evnt(17038);if(r)goto S_20148;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_clng_ulong(",16),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17038);}while(r); -} -S_20151:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 32 ))||new_error){ -if(qbevent){evnt(17039);if(r)goto S_20151;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_clng_uint64(",17),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17039);}while(r); -} -}else{ -S_20155:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 32 ))||new_error){ -if(qbevent){evnt(17041);if(r)goto S_20155;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_clng_int64(",16),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17041);}while(r); -} -} -} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17044);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP= 32 ; -if(!qbevent)break;evnt(17045);}while(r); -do{ -goto LABEL_EVALFUNCSPECIAL; -if(!qbevent)break;evnt(17046);}while(r); -} -S_20164:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("CINT",4))))||new_error){ -if(qbevent){evnt(17050);if(r)goto S_20164;} -S_20165:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSET))||new_error){ -if(qbevent){evnt(17051);if(r)goto S_20165;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Cannot convert _OFFSET type to other types",42)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17051);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17051);}while(r); -} -S_20169:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(17052);if(r)goto S_20169;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17052);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17052);}while(r); -} -S_20173:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(17053);if(r)goto S_20173;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2636= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17053);}while(r); -} -S_20176:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(17054);if(r)goto S_20176;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17054);}while(r); -} -do{ -*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ; -if(!qbevent)break;evnt(17056);}while(r); -S_20180:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||new_error){ -if(qbevent){evnt(17057);if(r)goto S_20180;} -S_20181:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 64 ))||new_error){ -if(qbevent){evnt(17058);if(r)goto S_20181;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_cint_float(",16),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17058);}while(r); -}else{ -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_cint_double(",17),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17058);}while(r); -} -}else{ -S_20187:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUNSIGNED))||new_error){ -if(qbevent){evnt(17060);if(r)goto S_20187;} -S_20188:; -if (((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 15 ))&(-(*_FUNC_EVALUATEFUNC_LONG_BITS<= 32 )))||new_error){ -if(qbevent){evnt(17061);if(r)goto S_20188;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_cint_ulong(",16),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17061);}while(r); -} -S_20191:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 32 ))||new_error){ -if(qbevent){evnt(17062);if(r)goto S_20191;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_cint_uint64(",17),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17062);}while(r); -} -}else{ -S_20195:; -if (((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 16 ))&(-(*_FUNC_EVALUATEFUNC_LONG_BITS<= 32 )))||new_error){ -if(qbevent){evnt(17064);if(r)goto S_20195;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_cint_long(",15),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17064);}while(r); -} -S_20198:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 32 ))||new_error){ -if(qbevent){evnt(17065);if(r)goto S_20198;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_cint_int64(",16),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17065);}while(r); -} -} -} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17068);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP= 16 ; -if(!qbevent)break;evnt(17069);}while(r); -do{ -goto LABEL_EVALFUNCSPECIAL; -if(!qbevent)break;evnt(17070);}while(r); -} -do{ -*_FUNC_EVALUATEFUNC_LONG_MKTYPE= 0 ; -if(!qbevent)break;evnt(17074);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_SIZE= 0 ; -if(!qbevent)break;evnt(17075);}while(r); -S_20209:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("MKI",3))))||new_error){ -if(qbevent){evnt(17076);if(r)goto S_20209;} -do{ -*_FUNC_EVALUATEFUNC_LONG_MKTYPE= 1 ; -if(!qbevent)break;evnt(17076);}while(r); -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("%",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17076);}while(r); -} -S_20213:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("MKL",3))))||new_error){ -if(qbevent){evnt(17077);if(r)goto S_20213;} -do{ -*_FUNC_EVALUATEFUNC_LONG_MKTYPE= 2 ; -if(!qbevent)break;evnt(17077);}while(r); -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("&",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17077);}while(r); -} -S_20217:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("MKS",3))))||new_error){ -if(qbevent){evnt(17078);if(r)goto S_20217;} -do{ -*_FUNC_EVALUATEFUNC_LONG_MKTYPE= 3 ; -if(!qbevent)break;evnt(17078);}while(r); -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("!",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17078);}while(r); -} -S_20221:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("MKD",3))))||new_error){ -if(qbevent){evnt(17079);if(r)goto S_20221;} -do{ -*_FUNC_EVALUATEFUNC_LONG_MKTYPE= 4 ; -if(!qbevent)break;evnt(17079);}while(r); -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("#",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17079);}while(r); -} -S_20225:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_MK",3)))|(((qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("MK",2)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ -if(qbevent){evnt(17080);if(r)goto S_20225;} -do{ -*_FUNC_EVALUATEFUNC_LONG_MKTYPE= -1 ; -if(!qbevent)break;evnt(17080);}while(r); -} -S_20228:; -if ((*_FUNC_EVALUATEFUNC_LONG_MKTYPE)||new_error){ -if(qbevent){evnt(17081);if(r)goto S_20228;} -S_20229:; -if (((-(*_FUNC_EVALUATEFUNC_LONG_MKTYPE!= -1 ))|(-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 )))||new_error){ -if(qbevent){evnt(17082);if(r)goto S_20229;} -do{ -*_FUNC_EVALUATEFUNC_LONG_QTYP= 0 ; -if(!qbevent)break;evnt(17085);}while(r); -S_20231:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("%%",2))))||new_error){ -if(qbevent){evnt(17086);if(r)goto S_20231;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("b",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17086);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_BYTETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(17086);}while(r); -} -S_20235:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("~%%",3))))||new_error){ -if(qbevent){evnt(17087);if(r)goto S_20235;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ub",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17087);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_UBYTETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(17087);}while(r); -} -S_20239:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("%",1))))||new_error){ -if(qbevent){evnt(17088);if(r)goto S_20239;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("i",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17088);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_INTEGERTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(17088);}while(r); -} -S_20243:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("~%",2))))||new_error){ -if(qbevent){evnt(17089);if(r)goto S_20243;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ui",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17089);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_UINTEGERTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(17089);}while(r); -} -S_20247:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("&",1))))||new_error){ -if(qbevent){evnt(17090);if(r)goto S_20247;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("l",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17090);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(17090);}while(r); -} -S_20251:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("~&",2))))||new_error){ -if(qbevent){evnt(17091);if(r)goto S_20251;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ul",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17091);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_ULONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(17091);}while(r); -} -S_20255:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("&&",2))))||new_error){ -if(qbevent){evnt(17092);if(r)goto S_20255;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("i64",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17092);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(17092);}while(r); -} -S_20259:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("~&&",3))))||new_error){ -if(qbevent){evnt(17093);if(r)goto S_20259;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ui64",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17093);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(17093);}while(r); -} -S_20263:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("!",1))))||new_error){ -if(qbevent){evnt(17094);if(r)goto S_20263;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("s",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17094);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(17094);}while(r); -} -S_20267:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("#",1))))||new_error){ -if(qbevent){evnt(17095);if(r)goto S_20267;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("d",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17095);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(17095);}while(r); -} -S_20271:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("##",2))))||new_error){ -if(qbevent){evnt(17096);if(r)goto S_20271;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("f",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17096);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(17096);}while(r); -} -S_20275:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("%&",2))))||new_error){ -if(qbevent){evnt(17097);if(r)goto S_20275;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("o",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17097);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(17097);}while(r); -} -S_20279:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("~%&",3))))||new_error){ -if(qbevent){evnt(17098);if(r)goto S_20279;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("uo",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17098);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_UOFFSETTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(17098);}while(r); -} -S_20283:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_EVALUATEFUNC_STRING_MKTYPE, 2 ),qbs_new_txt_len("~`",2))))||new_error){ -if(qbevent){evnt(17099);if(r)goto S_20283;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ubit",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17099);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(17099);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_SIZE=qbr(func_val(qbs_right(_FUNC_EVALUATEFUNC_STRING_MKTYPE,_FUNC_EVALUATEFUNC_STRING_MKTYPE->len- 2 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17099);}while(r); -} -S_20288:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_EVALUATEFUNC_STRING_MKTYPE, 1 ),qbs_new_txt_len("`",1))))||new_error){ -if(qbevent){evnt(17100);if(r)goto S_20288;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("bit",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17100);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(17100);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_SIZE=qbr(func_val(qbs_right(_FUNC_EVALUATEFUNC_STRING_MKTYPE,_FUNC_EVALUATEFUNC_STRING_MKTYPE->len- 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17100);}while(r); -} -S_20293:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_QTYP== 0 ))||new_error){ -if(qbevent){evnt(17101);if(r)goto S_20293;} -do{ -SUB_GIVE_ERROR(qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MK only accepts numeric types",29))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17101);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17101);}while(r); -} -S_20297:; -if ((*_FUNC_EVALUATEFUNC_LONG_SIZE)||new_error){ -if(qbevent){evnt(17102);if(r)goto S_20297;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_add(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("2string(",8)),FUNC_STR2(_FUNC_EVALUATEFUNC_LONG_SIZE)),qbs_new_txt_len(",",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17103);}while(r); -}else{ -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("2string(",8))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17105);}while(r); -} -do{ -*_FUNC_EVALUATEFUNC_LONG_NOCOMMA= 1 ; -if(!qbevent)break;evnt(17107);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TARGETTYP=*_FUNC_EVALUATEFUNC_LONG_QTYP; -if(!qbevent)break;evnt(17108);}while(r); -} -} -do{ -*_FUNC_EVALUATEFUNC_LONG_CVTYPE= 0 ; -if(!qbevent)break;evnt(17113);}while(r); -S_20307:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("CVI",3))))||new_error){ -if(qbevent){evnt(17114);if(r)goto S_20307;} -do{ -*_FUNC_EVALUATEFUNC_LONG_CVTYPE= 1 ; -if(!qbevent)break;evnt(17114);}while(r); -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("%",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17114);}while(r); -} -S_20311:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("CVL",3))))||new_error){ -if(qbevent){evnt(17115);if(r)goto S_20311;} -do{ -*_FUNC_EVALUATEFUNC_LONG_CVTYPE= 2 ; -if(!qbevent)break;evnt(17115);}while(r); -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("&",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17115);}while(r); -} -S_20315:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("CVS",3))))||new_error){ -if(qbevent){evnt(17116);if(r)goto S_20315;} -do{ -*_FUNC_EVALUATEFUNC_LONG_CVTYPE= 3 ; -if(!qbevent)break;evnt(17116);}while(r); -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("!",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17116);}while(r); -} -S_20319:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("CVD",3))))||new_error){ -if(qbevent){evnt(17117);if(r)goto S_20319;} -do{ -*_FUNC_EVALUATEFUNC_LONG_CVTYPE= 4 ; -if(!qbevent)break;evnt(17117);}while(r); -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("#",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17117);}while(r); -} -S_20323:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_CV",3)))|(((qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("CV",2)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ -if(qbevent){evnt(17118);if(r)goto S_20323;} -do{ -*_FUNC_EVALUATEFUNC_LONG_CVTYPE= -1 ; -if(!qbevent)break;evnt(17118);}while(r); -} -S_20326:; -if ((*_FUNC_EVALUATEFUNC_LONG_CVTYPE)||new_error){ -if(qbevent){evnt(17119);if(r)goto S_20326;} -S_20327:; -if (((-(*_FUNC_EVALUATEFUNC_LONG_CVTYPE!= -1 ))|(-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 )))||new_error){ -if(qbevent){evnt(17120);if(r)goto S_20327;} -S_20328:; -if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING)== 0 ))||new_error){ -if(qbevent){evnt(17121);if(r)goto S_20328;} -do{ -SUB_GIVE_ERROR(qbs_add(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len(" requires a STRING argument",27))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17121);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17121);}while(r); -} -S_20332:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(17122);if(r)goto S_20332;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2639= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17122);}while(r); -} -S_20335:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(17123);if(r)goto S_20335;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17123);}while(r); -} -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP= 0 ; -if(!qbevent)break;evnt(17124);}while(r); -S_20339:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("%%",2))))||new_error){ -if(qbevent){evnt(17125);if(r)goto S_20339;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("b",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17125);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_BYTETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(17125);}while(r); -} -S_20343:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("~%%",3))))||new_error){ -if(qbevent){evnt(17126);if(r)goto S_20343;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ub",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17126);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_UBYTETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(17126);}while(r); -} -S_20347:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("%",1))))||new_error){ -if(qbevent){evnt(17127);if(r)goto S_20347;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("i",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17127);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_INTEGERTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(17127);}while(r); -} -S_20351:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("~%",2))))||new_error){ -if(qbevent){evnt(17128);if(r)goto S_20351;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ui",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17128);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_UINTEGERTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(17128);}while(r); -} -S_20355:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("&",1))))||new_error){ -if(qbevent){evnt(17129);if(r)goto S_20355;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("l",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17129);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(17129);}while(r); -} -S_20359:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("~&",2))))||new_error){ -if(qbevent){evnt(17130);if(r)goto S_20359;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ul",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17130);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_ULONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(17130);}while(r); -} -S_20363:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("&&",2))))||new_error){ -if(qbevent){evnt(17131);if(r)goto S_20363;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("i64",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17131);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(17131);}while(r); -} -S_20367:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("~&&",3))))||new_error){ -if(qbevent){evnt(17132);if(r)goto S_20367;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ui64",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17132);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(17132);}while(r); -} -S_20371:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("!",1))))||new_error){ -if(qbevent){evnt(17133);if(r)goto S_20371;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("s",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17133);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(17133);}while(r); -} -S_20375:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("#",1))))||new_error){ -if(qbevent){evnt(17134);if(r)goto S_20375;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("d",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17134);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(17134);}while(r); -} -S_20379:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("##",2))))||new_error){ -if(qbevent){evnt(17135);if(r)goto S_20379;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("f",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17135);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(17135);}while(r); -} -S_20383:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("%&",2))))||new_error){ -if(qbevent){evnt(17136);if(r)goto S_20383;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("o",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17136);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(17136);}while(r); -} -S_20387:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("~%&",3))))||new_error){ -if(qbevent){evnt(17137);if(r)goto S_20387;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("uo",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17137);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_UOFFSETTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(17137);}while(r); -} -S_20391:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_EVALUATEFUNC_STRING_CVTYPE, 2 ),qbs_new_txt_len("~`",2))))||new_error){ -if(qbevent){evnt(17138);if(r)goto S_20391;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ubit",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17138);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(17138);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_SIZE=qbr(func_val(qbs_right(_FUNC_EVALUATEFUNC_STRING_CVTYPE,_FUNC_EVALUATEFUNC_STRING_CVTYPE->len- 2 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17138);}while(r); -} -S_20396:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_EVALUATEFUNC_STRING_CVTYPE, 1 ),qbs_new_txt_len("`",1))))||new_error){ -if(qbevent){evnt(17139);if(r)goto S_20396;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("bit",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17139);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(17139);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_SIZE=qbr(func_val(qbs_right(_FUNC_EVALUATEFUNC_STRING_CVTYPE,_FUNC_EVALUATEFUNC_STRING_CVTYPE->len- 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17139);}while(r); -} -S_20401:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_TYP== 0 ))||new_error){ -if(qbevent){evnt(17140);if(r)goto S_20401;} -do{ -SUB_GIVE_ERROR(qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("CV cannot return STRING type!",29))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17140);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17140);}while(r); -} -S_20405:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("bit",3)))|(qbs_equal(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ubit",4)))))||new_error){ -if(qbevent){evnt(17141);if(r)goto S_20405;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("string2",7),_FUNC_EVALUATEFUNC_STRING_CTYPE),qbs_new_txt_len("(",1)),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATEFUNC_LONG_SIZE)),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17142);}while(r); -}else{ -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("string2",7),_FUNC_EVALUATEFUNC_STRING_CTYPE),qbs_new_txt_len("(",1)),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17144);}while(r); -} -do{ -goto LABEL_EVALFUNCSPECIAL; -if(!qbevent)break;evnt(17146);}while(r); -} -} -S_20413:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)),256,1)),qbs_new_txt_len("STRING",6))))||new_error){ -if(qbevent){evnt(17151);if(r)goto S_20413;} -S_20414:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 ))||new_error){ -if(qbevent){evnt(17152);if(r)goto S_20414;} -S_20415:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(17153);if(r)goto S_20415;} -S_20416:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(17154);if(r)goto S_20416;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2642= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17154);}while(r); -} -S_20419:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(17155);if(r)goto S_20419;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17155);}while(r); -} -do{ -*_FUNC_EVALUATEFUNC_LONG_SOURCETYP= 64 ; -if(!qbevent)break;evnt(17156);}while(r); -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(",1),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len("->chr[0])",9))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17157);}while(r); -} -} -} -S_20427:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)),256,1)),qbs_new_txt_len("SADD",4))))||new_error){ -if(qbevent){evnt(17163);if(r)goto S_20427;} -S_20428:; -if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||new_error){ -if(qbevent){evnt(17164);if(r)goto S_20428;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("SADD only accepts variable-length string variables",50)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17165);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17165);}while(r); -} -S_20432:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH))||new_error){ -if(qbevent){evnt(17167);if(r)goto S_20432;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("SADD only accepts variable-length string variables",50)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17168);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17168);}while(r); -} -S_20436:; -if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISINCONVENTIONALMEMORY)== 0 ))||new_error){ -if(qbevent){evnt(17170);if(r)goto S_20436;} -do{ -*__INTEGER_RECOMPILE= 1 ; -if(!qbevent)break;evnt(17171);}while(r); -do{ -tmp_long=array_check((qbr(func_val(_FUNC_EVALUATEFUNC_STRING_E)))-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(17172);}while(r); -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("[CONVENTIONAL_MEMORY_REQUIRED]",30)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17173);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ; -if(!qbevent)break;evnt(17174);}while(r); -do{ -goto LABEL_EVALFUNCSPECIAL; -if(!qbevent)break;evnt(17175);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2643= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17177);}while(r); -S_20444:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(17178);if(r)goto S_20444;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17178);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_new_txt_len("((unsigned short)(",18),_FUNC_EVALUATEFUNC_STRING_R),qbs_new_txt_len("->chr-&cmem[1280]))",19))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17179);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ; -if(!qbevent)break;evnt(17180);}while(r); -do{ -goto LABEL_EVALFUNCSPECIAL; -if(!qbevent)break;evnt(17181);}while(r); -} -S_20451:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)),256,1)),qbs_new_txt_len("VARPTR",6))))||new_error){ -if(qbevent){evnt(17185);if(r)goto S_20451;} -S_20452:; -if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||new_error){ -if(qbevent){evnt(17186);if(r)goto S_20452;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected reference to a variable/array",38)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17187);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17187);}while(r); -} -S_20456:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(528)),8,1)),qbs_new_txt_len("$",1))))||new_error){ -if(qbevent){evnt(17190);if(r)goto S_20456;} -S_20457:; -if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISINCONVENTIONALMEMORY)== 0 ))||new_error){ -if(qbevent){evnt(17191);if(r)goto S_20457;} -do{ -*__INTEGER_RECOMPILE= 1 ; -if(!qbevent)break;evnt(17192);}while(r); -do{ -tmp_long=array_check((qbr(func_val(_FUNC_EVALUATEFUNC_STRING_E)))-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(17193);}while(r); -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("[CONVENTIONAL_MEMORY_REQUIRED]",30)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17194);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_ISSTRING; -if(!qbevent)break;evnt(17195);}while(r); -do{ -goto LABEL_EVALFUNCSPECIAL; -if(!qbevent)break;evnt(17196);}while(r); -} -S_20464:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISARRAY))||new_error){ -if(qbevent){evnt(17199);if(r)goto S_20464;} -S_20465:; -if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING)== 0 ))||new_error){ -if(qbevent){evnt(17200);if(r)goto S_20465;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("VARPTR$ only accepts variable-length string arrays",50)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17200);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17200);}while(r); -} -S_20469:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH))||new_error){ -if(qbevent){evnt(17201);if(r)goto S_20469;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("VARPTR$ only accepts variable-length string arrays",50)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17201);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17201);}while(r); -} -} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2644= 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17206);}while(r); -S_20475:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(17207);if(r)goto S_20475;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17207);}while(r); -} -S_20478:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(17208);if(r)goto S_20478;} -S_20479:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISARRAY))||new_error){ -if(qbevent){evnt(17209);if(r)goto S_20479;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2645= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17209);}while(r); -} -S_20482:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(17210);if(r)goto S_20482;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17210);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("->cmem_descriptor_offset",24))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17211);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_T= 3 ; -if(!qbevent)break;evnt(17212);}while(r); -}else{ -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_new_txt_len("((unsigned short)(((uint8*)",27),_FUNC_EVALUATEFUNC_STRING_R),qbs_new_txt_len(")-&cmem[1280]))",15))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17214);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_T= 0 ; -if(!qbevent)break;evnt(17226);}while(r); -S_20490:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUNSIGNED))||new_error){ -if(qbevent){evnt(17227);if(r)goto S_20490;} -do{ -*_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+ 128 ; -if(!qbevent)break;evnt(17227);}while(r); -} -S_20493:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSETINBITS))||new_error){ -if(qbevent){evnt(17228);if(r)goto S_20493;} -do{ -*_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+ 64 ; -if(!qbevent)break;evnt(17229);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+(*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 63 ); -if(!qbevent)break;evnt(17230);}while(r); -}else{ -do{ -*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ; -if(!qbevent)break;evnt(17232);}while(r); -S_20498:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||new_error){ -if(qbevent){evnt(17233);if(r)goto S_20498;} -S_20499:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 32 ))||new_error){ -if(qbevent){evnt(17234);if(r)goto S_20499;} -do{ -*_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+ 4 ; -if(!qbevent)break;evnt(17234);}while(r); -} -S_20502:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 64 ))||new_error){ -if(qbevent){evnt(17235);if(r)goto S_20502;} -do{ -*_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+ 8 ; -if(!qbevent)break;evnt(17235);}while(r); -} -S_20505:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 256 ))||new_error){ -if(qbevent){evnt(17236);if(r)goto S_20505;} -do{ -*_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+ 6 ; -if(!qbevent)break;evnt(17236);}while(r); -} -}else{ -S_20509:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 8 ))||new_error){ -if(qbevent){evnt(17238);if(r)goto S_20509;} -do{ -*_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+ 1 ; -if(!qbevent)break;evnt(17238);}while(r); -} -S_20512:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 16 ))||new_error){ -if(qbevent){evnt(17239);if(r)goto S_20512;} -do{ -*_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+ 2 ; -if(!qbevent)break;evnt(17239);}while(r); -} -S_20515:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 32 ))||new_error){ -if(qbevent){evnt(17240);if(r)goto S_20515;} -do{ -*_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+ 20 ; -if(!qbevent)break;evnt(17240);}while(r); -} -S_20518:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 64 ))||new_error){ -if(qbevent){evnt(17241);if(r)goto S_20518;} -do{ -*_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+ 5 ; -if(!qbevent)break;evnt(17241);}while(r); -} -} -} -} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("func_varptr_helper(",19),FUNC_STR2(_FUNC_EVALUATEFUNC_LONG_T)),qbs_new_txt_len(",",1)),_FUNC_EVALUATEFUNC_STRING_R),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17245);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_ISSTRING; -if(!qbevent)break;evnt(17246);}while(r); -do{ -goto LABEL_EVALFUNCSPECIAL; -if(!qbevent)break;evnt(17247);}while(r); -} -S_20528:; -if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISINCONVENTIONALMEMORY)== 0 ))||new_error){ -if(qbevent){evnt(17261);if(r)goto S_20528;} -do{ -*__INTEGER_RECOMPILE= 1 ; -if(!qbevent)break;evnt(17262);}while(r); -do{ -tmp_long=array_check((qbr(func_val(_FUNC_EVALUATEFUNC_STRING_E)))-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(17263);}while(r); -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("[CONVENTIONAL_MEMORY_REQUIRED]",30)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17264);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ; -if(!qbevent)break;evnt(17265);}while(r); -do{ -goto LABEL_EVALFUNCSPECIAL; -if(!qbevent)break;evnt(17266);}while(r); -} -S_20535:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISARRAY))||new_error){ -if(qbevent){evnt(17269);if(r)goto S_20535;} -S_20536:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSETINBITS))||new_error){ -if(qbevent){evnt(17270);if(r)goto S_20536;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("VARPTR cannot reference _BIT type arrays",40)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17270);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17270);}while(r); -} -S_20540:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(17273);if(r)goto S_20540;} -S_20541:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH))||new_error){ -if(qbevent){evnt(17274);if(r)goto S_20541;} -do{ -SUB_GETID(&(pass2646=qbr(func_val(_FUNC_EVALUATEFUNC_STRING_E)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17275);}while(r); -S_20543:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(17276);if(r)goto S_20543;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17276);}while(r); -} -do{ -*_FUNC_EVALUATEFUNC_LONG_M=*(int32*)(((char*)__UDT_ID)+(540)); -if(!qbevent)break;evnt(17277);}while(r); -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_INDEX,qbs_right(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_STRING_E->len-func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17278);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ; -if(!qbevent)break;evnt(17279);}while(r); -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("((",2),_FUNC_EVALUATEFUNC_STRING_INDEX),qbs_new_txt_len(")*",2)),FUNC_STR2(_FUNC_EVALUATEFUNC_LONG_M)),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17280);}while(r); -do{ -goto LABEL_EVALFUNCSPECIAL; -if(!qbevent)break;evnt(17281);}while(r); -}else{ -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2648= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17284);}while(r); -S_20553:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(17285);if(r)goto S_20553;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17285);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("->cmem_descriptor_offset",24))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17286);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ; -if(!qbevent)break;evnt(17287);}while(r); -do{ -goto LABEL_EVALFUNCSPECIAL; -if(!qbevent)break;evnt(17288);}while(r); -} -} -S_20561:; -if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUDT)||new_error){ -if(qbevent){evnt(17292);if(r)goto S_20561;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_right(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_STRING_E->len-func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17293);}while(r); -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_right(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_STRING_E->len-func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17294);}while(r); -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_O,qbs_right(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_STRING_E->len-func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17295);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ; -if(!qbevent)break;evnt(17296);}while(r); -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_new_txt_len("(",1),_FUNC_EVALUATEFUNC_STRING_O),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17297);}while(r); -do{ -goto LABEL_EVALFUNCSPECIAL; -if(!qbevent)break;evnt(17298);}while(r); -} -do{ -*_FUNC_EVALUATEFUNC_LONG_M=(*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 )/ 8 ; -if(!qbevent)break;evnt(17302);}while(r); -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_INDEX,qbs_right(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_STRING_E->len-func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17303);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ; -if(!qbevent)break;evnt(17304);}while(r); -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("((",2),_FUNC_EVALUATEFUNC_STRING_INDEX),qbs_new_txt_len(")*",2)),FUNC_STR2(_FUNC_EVALUATEFUNC_LONG_M)),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17305);}while(r); -do{ -goto LABEL_EVALFUNCSPECIAL; -if(!qbevent)break;evnt(17306);}while(r); -} -S_20575:; -if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUDT)||new_error){ -if(qbevent){evnt(17312);if(r)goto S_20575;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2653= 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17313);}while(r); -S_20577:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(17314);if(r)goto S_20577;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17314);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_right(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_STRING_E->len-func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17315);}while(r); -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_right(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_STRING_E->len-func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17316);}while(r); -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_O,qbs_right(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_STRING_E->len-func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17317);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ; -if(!qbevent)break;evnt(17318);}while(r); -do{ -SUB_GETID(&(pass2657=qbr(func_val(_FUNC_EVALUATEFUNC_STRING_E)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17321);}while(r); -S_20585:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(17322);if(r)goto S_20585;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17322);}while(r); -} -S_20588:; -if ((*(int16*)(((char*)__UDT_ID)+(2859)))||new_error){ -if(qbevent){evnt(17323);if(r)goto S_20588;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("varptr_dblock_check(((uint8*)",29),_FUNC_EVALUATEFUNC_STRING_R),qbs_new_txt_len(")+(",3)),_FUNC_EVALUATEFUNC_STRING_O),qbs_new_txt_len("))",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17325);}while(r); -}else{ -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("((unsigned short)(((uint8*)",27),_FUNC_EVALUATEFUNC_STRING_R),qbs_new_txt_len(") - &cmem[1280] + (",19)),_FUNC_EVALUATEFUNC_STRING_O),qbs_new_txt_len(") ))",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17328);}while(r); -} -do{ -goto LABEL_EVALFUNCSPECIAL; -if(!qbevent)break;evnt(17331);}while(r); -} -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ; -if(!qbevent)break;evnt(17334);}while(r); -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2658= 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17335);}while(r); -S_20597:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(17336);if(r)goto S_20597;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17336);}while(r); -} -S_20600:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(17337);if(r)goto S_20600;} -S_20601:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH))||new_error){ -if(qbevent){evnt(17338);if(r)goto S_20601;} -do{ -SUB_GETID(&(pass2659=qbr(func_val(_FUNC_EVALUATEFUNC_STRING_E)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17341);}while(r); -S_20603:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(17342);if(r)goto S_20603;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17342);}while(r); -} -S_20606:; -if ((*(int16*)(((char*)__UDT_ID)+(2859)))||new_error){ -if(qbevent){evnt(17343);if(r)goto S_20606;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_new_txt_len("varptr_dblock_check(",20),_FUNC_EVALUATEFUNC_STRING_R),qbs_new_txt_len("->chr)",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17344);}while(r); -}else{ -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_new_txt_len("((unsigned short)(",18),_FUNC_EVALUATEFUNC_STRING_R),qbs_new_txt_len("->chr-&cmem[1280]))",19))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17346);}while(r); -} -}else{ -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("->cmem_descriptor_offset",24))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17350);}while(r); -} -do{ -goto LABEL_EVALFUNCSPECIAL; -if(!qbevent)break;evnt(17352);}while(r); -} -do{ -SUB_GETID(&(pass2660=qbr(func_val(_FUNC_EVALUATEFUNC_STRING_E)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17357);}while(r); -S_20617:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(17358);if(r)goto S_20617;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17358);}while(r); -} -S_20620:; -if ((*(int16*)(((char*)__UDT_ID)+(2859)))||new_error){ -if(qbevent){evnt(17359);if(r)goto S_20620;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_new_txt_len("varptr_dblock_check((uint8*)",28),_FUNC_EVALUATEFUNC_STRING_R),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17360);}while(r); -}else{ -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_new_txt_len("((unsigned short)(((uint8*)",27),_FUNC_EVALUATEFUNC_STRING_R),qbs_new_txt_len(")-&cmem[1280]))",15))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17362);}while(r); -} -do{ -goto LABEL_EVALFUNCSPECIAL; -if(!qbevent)break;evnt(17365);}while(r); -} -S_20627:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)),256,1)),qbs_new_txt_len("VARSEG",6))))||new_error){ -if(qbevent){evnt(17369);if(r)goto S_20627;} -S_20628:; -if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||new_error){ -if(qbevent){evnt(17370);if(r)goto S_20628;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected reference to a variable/array",38)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17371);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17371);}while(r); -} -S_20632:; -if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISINCONVENTIONALMEMORY)== 0 ))||new_error){ -if(qbevent){evnt(17373);if(r)goto S_20632;} -do{ -*__INTEGER_RECOMPILE= 1 ; -if(!qbevent)break;evnt(17374);}while(r); -do{ -tmp_long=array_check((qbr(func_val(_FUNC_EVALUATEFUNC_STRING_E)))-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(17375);}while(r); -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("[CONVENTIONAL_MEMORY_REQUIRED]",30)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17376);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ; -if(!qbevent)break;evnt(17377);}while(r); -do{ -goto LABEL_EVALFUNCSPECIAL; -if(!qbevent)break;evnt(17378);}while(r); -} -S_20639:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISARRAY))||new_error){ -if(qbevent){evnt(17381);if(r)goto S_20639;} -S_20640:; -if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ -if(qbevent){evnt(17382);if(r)goto S_20640;} -S_20641:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(17383);if(r)goto S_20641;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("80",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17384);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ; -if(!qbevent)break;evnt(17385);}while(r); -do{ -goto LABEL_EVALFUNCSPECIAL; -if(!qbevent)break;evnt(17386);}while(r); -} -} -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ; -if(!qbevent)break;evnt(17389);}while(r); -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_new_txt_len("( ( ((ptrszint)(",16),FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2661= 1 ))),qbs_new_txt_len("[0])) - ((ptrszint)(&cmem[0])) ) /16)",37))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17390);}while(r); -S_20649:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(17391);if(r)goto S_20649;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17391);}while(r); -} -do{ -goto LABEL_EVALFUNCSPECIAL; -if(!qbevent)break;evnt(17392);}while(r); -} -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ; -if(!qbevent)break;evnt(17396);}while(r); -do{ -SUB_GETID(&(pass2662=qbr(func_val(_FUNC_EVALUATEFUNC_STRING_E)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17398);}while(r); -S_20656:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(17399);if(r)goto S_20656;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17399);}while(r); -} -S_20659:; -if (((-(*(int16*)(((char*)__UDT_ID)+(2859))!= 0 ))&(-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING)== 0 )))||new_error){ -if(qbevent){evnt(17400);if(r)goto S_20659;} -S_20660:; -if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUDT)||new_error){ -if(qbevent){evnt(17401);if(r)goto S_20660;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2663= 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17402);}while(r); -S_20662:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(17403);if(r)goto S_20662;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17403);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_right(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_STRING_E->len-func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17404);}while(r); -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_right(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_STRING_E->len-func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17405);}while(r); -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_O,qbs_right(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_STRING_E->len-func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17406);}while(r); -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("varseg_dblock_check(((uint8*)",29),_FUNC_EVALUATEFUNC_STRING_R),qbs_new_txt_len(")+(",3)),_FUNC_EVALUATEFUNC_STRING_O),qbs_new_txt_len("))",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17407);}while(r); -}else{ -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_new_txt_len("varseg_dblock_check((uint8*)",28),FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2667= 1 ))),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17409);}while(r); -S_20671:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(17410);if(r)goto S_20671;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17410);}while(r); -} -} -}else{ -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("80",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17414);}while(r); -} -do{ -goto LABEL_EVALFUNCSPECIAL; -if(!qbevent)break;evnt(17416);}while(r); -} -S_20680:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_TARGETTYP== -2 ))||new_error){ -if(qbevent){evnt(17442);if(r)goto S_20680;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_EVALUATETOTYP(_FUNC_EVALUATEFUNC_STRING_E2,&(pass2668= -2 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17443);}while(r); -S_20682:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(17444);if(r)goto S_20682;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17444);}while(r); -} -do{ -goto LABEL_DONTEVALUATE; -if(!qbevent)break;evnt(17445);}while(r); -} -S_20687:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_TARGETTYP== -7 ))||new_error){ -if(qbevent){evnt(17448);if(r)goto S_20687;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_EVALUATETOTYP(_FUNC_EVALUATEFUNC_STRING_E2,&(pass2669= -7 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17449);}while(r); -S_20689:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(17450);if(r)goto S_20689;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17450);}while(r); -} -do{ -goto LABEL_DONTEVALUATE; -if(!qbevent)break;evnt(17451);}while(r); -} -S_20694:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_TARGETTYP== -8 ))||new_error){ -if(qbevent){evnt(17454);if(r)goto S_20694;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_EVALUATETOTYP(_FUNC_EVALUATEFUNC_STRING_E2,&(pass2670= -8 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17455);}while(r); -S_20696:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(17456);if(r)goto S_20696;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17456);}while(r); -} -do{ -goto LABEL_DONTEVALUATE; -if(!qbevent)break;evnt(17457);}while(r); -} -S_20701:; -if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSET)||new_error){ -if(qbevent){evnt(17460);if(r)goto S_20701;} -S_20702:; -if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISOFFSET)== 0 ))||new_error){ -if(qbevent){evnt(17461);if(r)goto S_20702;} -S_20703:; -if ((-(*(int16*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(548))== 0 ))||new_error){ -if(qbevent){evnt(17462);if(r)goto S_20703;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Cannot convert _OFFSET type to other types",42)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17462);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17462);}while(r); -} -} -} -do{ -*_FUNC_EVALUATEFUNC_LONG_EXPLICITREFERENCE= 0 ; -if(!qbevent)break;evnt(17467);}while(r); -S_20710:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_TARGETTYP== -1 ))||new_error){ -if(qbevent){evnt(17468);if(r)goto S_20710;} -do{ -*_FUNC_EVALUATEFUNC_LONG_EXPLICITREFERENCE= 1 ; -if(!qbevent)break;evnt(17469);}while(r); -S_20712:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(17470);if(r)goto S_20712;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Number required for function",28)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17470);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17470);}while(r); -} -do{ -*_FUNC_EVALUATEFUNC_LONG_TARGETTYP=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP; -if(!qbevent)break;evnt(17471);}while(r); -S_20717:; -if (((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISPOINTER))||new_error){ -if(qbevent){evnt(17472);if(r)goto S_20717;} -do{ -*_FUNC_EVALUATEFUNC_LONG_TARGETTYP=*_FUNC_EVALUATEFUNC_LONG_TARGETTYP-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(17472);}while(r); -} -} -S_20721:; -if (((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISPOINTER))||new_error){ -if(qbevent){evnt(17476);if(r)goto S_20721;} -S_20722:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_DEREFERENCE== 0 ))||new_error){ -if(qbevent){evnt(17477);if(r)goto S_20722;} -S_20723:; -if (((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISARRAY))||new_error){ -if(qbevent){evnt(17482);if(r)goto S_20723;} -S_20724:; -if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||new_error){ -if(qbevent){evnt(17483);if(r)goto S_20724;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected arrayname()",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17483);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17483);}while(r); -} -S_20728:; -if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISARRAY)== 0 ))||new_error){ -if(qbevent){evnt(17484);if(r)goto S_20728;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected arrayname()",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17484);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17484);}while(r); -} -S_20732:; -if (( 0 )||new_error){ -if(qbevent){evnt(17485);if(r)goto S_20732;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2671; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("evaluatefunc:array reference:[",30),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len("]",1)), 0, 0, 1); -if (new_error) goto skip2671; -skip2671: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(17485);}while(r); -} -do{ -*_FUNC_EVALUATEFUNC_LONG_TARGETTYP2=*_FUNC_EVALUATEFUNC_LONG_TARGETTYP; -if(!qbevent)break;evnt(17488);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP; -if(!qbevent)break;evnt(17488);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TARGETTYP2=*_FUNC_EVALUATEFUNC_LONG_TARGETTYP2&( 511 +*__LONG_ISOFFSETINBITS+*__LONG_ISUDT+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH+*__LONG_ISFLOAT); -if(!qbevent)break;evnt(17489);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2&( 511 +*__LONG_ISOFFSETINBITS+*__LONG_ISUDT+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH+*__LONG_ISFLOAT); -if(!qbevent)break;evnt(17490);}while(r); -S_20739:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2!=*_FUNC_EVALUATEFUNC_LONG_TARGETTYP2))||new_error){ -if(qbevent){evnt(17491);if(r)goto S_20739;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Incorrect array type passed to function",39)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17491);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17491);}while(r); -} -S_20743:; -if ((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISUDT)||new_error){ -if(qbevent){evnt(17494);if(r)goto S_20743;} -S_20744:; -if (( 0 )||new_error){ -if(qbevent){evnt(17495);if(r)goto S_20744;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2672; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("evaluatefunc:array reference:udt reference:[",44),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len("]",1)), 0, 0, 1); -if (new_error) goto skip2672; -skip2672: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(17495);}while(r); -} -do{ -*_FUNC_EVALUATEFUNC_LONG_UDTREFID=qbr(func_val(_FUNC_EVALUATEFUNC_STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17497);}while(r); -do{ -SUB_GETID(_FUNC_EVALUATEFUNC_LONG_UDTREFID); -if(!qbevent)break;evnt(17498);}while(r); -S_20749:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(17499);if(r)goto S_20749;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17499);}while(r); -} -do{ -*_FUNC_EVALUATEFUNC_LONG_UDTREFI=func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17500);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_UDTREFI2=func_instr(*_FUNC_EVALUATEFUNC_LONG_UDTREFI+ 1 ,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17501);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_UDTREFU=qbr(func_val(func_mid(_FUNC_EVALUATEFUNC_STRING_E,*_FUNC_EVALUATEFUNC_LONG_UDTREFI+ 1 ,*_FUNC_EVALUATEFUNC_LONG_UDTREFI2-*_FUNC_EVALUATEFUNC_LONG_UDTREFI- 1 ,0|1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17502);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_UDTREFI3=func_instr(*_FUNC_EVALUATEFUNC_LONG_UDTREFI2+ 1 ,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17503);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_UDTREFE=qbr(func_val(func_mid(_FUNC_EVALUATEFUNC_STRING_E,*_FUNC_EVALUATEFUNC_LONG_UDTREFI2+ 1 ,*_FUNC_EVALUATEFUNC_LONG_UDTREFI3-*_FUNC_EVALUATEFUNC_LONG_UDTREFI2- 1 ,0|1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17504);}while(r); -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_O,qbs_right(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_STRING_E->len-*_FUNC_EVALUATEFUNC_LONG_UDTREFI3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17505);}while(r); -S_20758:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(_FUNC_EVALUATEFUNC_STRING_O, 4 ),qbs_new_txt_len("(0)*",4))))||new_error){ -if(qbevent){evnt(17507);if(r)goto S_20758;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected arrayname()",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17507);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17507);}while(r); -} -}else{ -S_20763:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal((qbs_right(_FUNC_EVALUATEFUNC_STRING_E, 2 )),(qbs_add(__STRING1_SP3,qbs_new_txt_len("0",1))))))||new_error){ -if(qbevent){evnt(17509);if(r)goto S_20763;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected arrayname()",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17509);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17509);}while(r); -} -} -do{ -*_FUNC_EVALUATEFUNC_LONG_IDNUM=qbr(func_val(qbs_left(_FUNC_EVALUATEFUNC_STRING_E,func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0)- 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17513);}while(r); -do{ -SUB_GETID(_FUNC_EVALUATEFUNC_LONG_IDNUM); -if(!qbevent)break;evnt(17514);}while(r); -S_20770:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(17515);if(r)goto S_20770;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17515);}while(r); -} -S_20773:; -if ((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISFIXEDLENGTH)||new_error){ -if(qbevent){evnt(17517);if(r)goto S_20773;} -do{ -*_FUNC_EVALUATEFUNC_LONG_TARGETTYPSIZE=string2l(func_mid(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(1213)),400,1),(*_FUNC_EVALUATEFUNC_LONG_CURARG* 4 )-( 4 )+( 1 ), 4 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17518);}while(r); -S_20775:; -if ((-(*(int32*)(((char*)__UDT_ID)+(540))!=*_FUNC_EVALUATEFUNC_LONG_TARGETTYPSIZE))||new_error){ -if(qbevent){evnt(17519);if(r)goto S_20775;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Incorrect array type passed to function",39)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17519);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17519);}while(r); -} -} -S_20780:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(qbs_new_fixed(&((uint8*)(__ARRAY_STRING100_SFCMEMARGS[0]))[(array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_STRING100_SFCMEMARGS[4],__ARRAY_STRING100_SFCMEMARGS[5]))*100],100,1),*_FUNC_EVALUATEFUNC_LONG_CURARG, 1 ,0|1),func_chr( 1 ))))||new_error){ -if(qbevent){evnt(17522);if(r)goto S_20780;} -S_20781:; -if ((-(((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*_FUNC_EVALUATEFUNC_LONG_IDNUM)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])]== 0 ))||new_error){ -if(qbevent){evnt(17523);if(r)goto S_20781;} -do{ -tmp_long=array_check((*_FUNC_EVALUATEFUNC_LONG_IDNUM)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(17524);}while(r); -do{ -*__INTEGER_RECOMPILE= 1 ; -if(!qbevent)break;evnt(17526);}while(r); -} -} -S_20786:; -if ((-(*(int32*)(((char*)__UDT_ID)+(2847))== 0 ))||new_error){ -if(qbevent){evnt(17532);if(r)goto S_20786;} -S_20787:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_NELEREQ== 0 ))||new_error){ -if(qbevent){evnt(17537);if(r)goto S_20787;} -S_20788:; -if ((-(*(int16*)(((char*)__UDT_ID)+(516))!= -1 ))||new_error){ -if(qbevent){evnt(17541);if(r)goto S_20788;} -do{ -*_FUNC_EVALUATEFUNC_LONG_NELEREQ=*(int16*)(((char*)__UDT_ID)+(516)); -if(!qbevent)break;evnt(17542);}while(r); -do{ -sub_mid(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(2747)),100,1),*_FUNC_EVALUATEFUNC_LONG_CURARG, 1 ,func_chr(*_FUNC_EVALUATEFUNC_LONG_NELEREQ),1); -if(!qbevent)break;evnt(17543);}while(r); -} -do{ -memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 0),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 0), 256); -memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 256),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 256), 256); -memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 512),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 512), 4); -memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 516),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 516), 2); -memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 518),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 518), 2); -memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 520),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 520), 8); -memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 528),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 528), 8); -memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 536),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 536), 4); -memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 540),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 540), 4); -memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 544),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 544), 2); -memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 546),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 546), 2); -memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 548),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 548), 2); -memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 550),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 550), 256); -memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 806),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 806), 2); -memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 808),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 808), 1); -memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 809),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 809), 2); -memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 811),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 811), 2); -memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 813),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 813), 400); -memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 1213),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 1213), 400); -memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 1613),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 1613), 256); -memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 1869),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 1869), 256); -memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2125),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2125), 256); -memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2381),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2381), 4); -memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2385),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2385), 256); -memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2641),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2641), 4); -memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2645),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2645), 2); -memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2647),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2647), 100); -memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2747),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2747), 100); -memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2847),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2847), 4); -memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2851),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2851), 2); -memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2853),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2853), 2); -memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2855),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2855), 4); -memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2859),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2859), 2); -qbs_set(*(qbs**)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2861), *(qbs**)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2861)); -if(!qbevent)break;evnt(17546);}while(r); -}else{ -S_20794:; -if ((-(*(int16*)(((char*)__UDT_ID)+(516))!=*_FUNC_EVALUATEFUNC_LONG_NELEREQ))||new_error){ -if(qbevent){evnt(17559);if(r)goto S_20794;} -do{ -SUB_GIVE_ERROR(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(17559);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17559);}while(r); -} -} -} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2674= 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17567);}while(r); -S_20801:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(17568);if(r)goto S_20801;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17568);}while(r); -} -do{ -goto LABEL_DONTEVALUATE; -if(!qbevent)break;evnt(17569);}while(r); -} -S_20806:; -if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISSTRING)== 0 ))||new_error){ -if(qbevent){evnt(17587);if(r)goto S_20806;} -S_20807:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(17588);if(r)goto S_20807;} -do{ -*_FUNC_EVALUATEFUNC_LONG_IDNUM=qbr(func_val(qbs_left(_FUNC_EVALUATEFUNC_STRING_E,func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0)- 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17589);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TARGETTYP2=*_FUNC_EVALUATEFUNC_LONG_TARGETTYP; -if(!qbevent)break;evnt(17591);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP; -if(!qbevent)break;evnt(17591);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_ARR= 0 ; -if(!qbevent)break;evnt(17594);}while(r); -S_20812:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2&*__LONG_ISARRAY))||new_error){ -if(qbevent){evnt(17594);if(r)goto S_20812;} -do{ -*_FUNC_EVALUATEFUNC_LONG_ARR= 1 ; -if(!qbevent)break;evnt(17594);}while(r); -} -do{ -*_FUNC_EVALUATEFUNC_LONG_PASSUDTELEMENT= 0 ; -if(!qbevent)break;evnt(17595);}while(r); -S_20816:; -if (((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP2&*__LONG_ISUDT)== 0 ))&(-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2&*__LONG_ISUDT)!= 0 )))||new_error){ -if(qbevent){evnt(17595);if(r)goto S_20816;} -do{ -*_FUNC_EVALUATEFUNC_LONG_PASSUDTELEMENT= 1 ; -if(!qbevent)break;evnt(17595);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2-*__LONG_ISUDT; -if(!qbevent)break;evnt(17595);}while(r); -} -do{ -*_FUNC_EVALUATEFUNC_LONG_TARGETTYP2=*_FUNC_EVALUATEFUNC_LONG_TARGETTYP2&( 511 +*__LONG_ISOFFSETINBITS+*__LONG_ISUDT+*__LONG_ISFLOAT+*__LONG_ISSTRING); -if(!qbevent)break;evnt(17598);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2&( 511 +*__LONG_ISOFFSETINBITS+*__LONG_ISUDT+*__LONG_ISFLOAT+*__LONG_ISSTRING); -if(!qbevent)break;evnt(17599);}while(r); -S_20822:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2==*_FUNC_EVALUATEFUNC_LONG_TARGETTYP2))||new_error){ -if(qbevent){evnt(17602);if(r)goto S_20822;} -S_20823:; -if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUDT)||new_error){ -if(qbevent){evnt(17604);if(r)goto S_20823;} -do{ -*_FUNC_EVALUATEFUNC_LONG_UDTREFID=qbr(func_val(_FUNC_EVALUATEFUNC_STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17608);}while(r); -do{ -SUB_GETID(_FUNC_EVALUATEFUNC_LONG_UDTREFID); -if(!qbevent)break;evnt(17609);}while(r); -S_20826:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(17610);if(r)goto S_20826;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17610);}while(r); -} -do{ -*_FUNC_EVALUATEFUNC_LONG_UDTREFI=func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17611);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_UDTREFI2=func_instr(*_FUNC_EVALUATEFUNC_LONG_UDTREFI+ 1 ,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17612);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_UDTREFU=qbr(func_val(func_mid(_FUNC_EVALUATEFUNC_STRING_E,*_FUNC_EVALUATEFUNC_LONG_UDTREFI+ 1 ,*_FUNC_EVALUATEFUNC_LONG_UDTREFI2-*_FUNC_EVALUATEFUNC_LONG_UDTREFI- 1 ,0|1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17613);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_UDTREFI3=func_instr(*_FUNC_EVALUATEFUNC_LONG_UDTREFI2+ 1 ,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17614);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_UDTREFE=qbr(func_val(func_mid(_FUNC_EVALUATEFUNC_STRING_E,*_FUNC_EVALUATEFUNC_LONG_UDTREFI2+ 1 ,*_FUNC_EVALUATEFUNC_LONG_UDTREFI3-*_FUNC_EVALUATEFUNC_LONG_UDTREFI2- 1 ,0|1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17615);}while(r); -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_O,qbs_right(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_STRING_E->len-*_FUNC_EVALUATEFUNC_LONG_UDTREFI3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17616);}while(r); -S_20835:; -if ((*_FUNC_EVALUATEFUNC_LONG_ARR)||new_error){ -if(qbevent){evnt(17619);if(r)goto S_20835;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_N2,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(17620);}while(r); -}else{ -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_N2,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(17622);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(void*)( ((char*)(",18),_FUNC_EVALUATEFUNC_STRING_N2),qbs_new_txt_len(")) + (",6)),_FUNC_EVALUATEFUNC_STRING_O),qbs_new_txt_len(") )",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17625);}while(r); -S_20841:; -if ((*_FUNC_EVALUATEFUNC_LONG_PASSUDTELEMENT)||new_error){ -if(qbevent){evnt(17628);if(r)goto S_20841;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(",1),FUNC_TYP2CTYP(&(pass2676=*_FUNC_EVALUATEFUNC_LONG_TARGETTYP2+(*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISUNSIGNED)),qbs_new_txt_len("",0))),qbs_new_txt_len("*)",2)),_FUNC_EVALUATEFUNC_STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17628);}while(r); -} -S_20844:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(17629);if(r)goto S_20844;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17629);}while(r); -} -}else{ -S_20848:; -if ((*_FUNC_EVALUATEFUNC_LONG_ARR)||new_error){ -if(qbevent){evnt(17633);if(r)goto S_20848;} -S_20849:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2&*__LONG_ISOFFSETINBITS))||new_error){ -if(qbevent){evnt(17634);if(r)goto S_20849;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Cannot pass BIT array offsets",29)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17634);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17634);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(&(",3),FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2677= 0 ))),qbs_new_txt_len("))",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17635);}while(r); -S_20854:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(17636);if(r)goto S_20854;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17636);}while(r); -} -}else{ -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2678= 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17638);}while(r); -S_20859:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(17639);if(r)goto S_20859;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17639);}while(r); -} -} -S_20863:; -if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUNSIGNED)!=(*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISUNSIGNED)))||new_error){ -if(qbevent){evnt(17643);if(r)goto S_20863;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(",1),FUNC_TYP2CTYP(&(pass2679=*_FUNC_EVALUATEFUNC_LONG_TARGETTYP2+(*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISUNSIGNED)),qbs_new_txt_len("",0))),qbs_new_txt_len("*)",2)),_FUNC_EVALUATEFUNC_STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17644);}while(r); -S_20865:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(17645);if(r)goto S_20865;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17645);}while(r); -} -} -} -S_20870:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(qbs_new_fixed(&((uint8*)(__ARRAY_STRING100_SFCMEMARGS[0]))[(array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_STRING100_SFCMEMARGS[4],__ARRAY_STRING100_SFCMEMARGS[5]))*100],100,1),*_FUNC_EVALUATEFUNC_LONG_CURARG, 1 ,0|1),func_chr( 1 ))))||new_error){ -if(qbevent){evnt(17651);if(r)goto S_20870;} -S_20871:; -if ((-(((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*_FUNC_EVALUATEFUNC_LONG_IDNUM)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])]== 0 ))||new_error){ -if(qbevent){evnt(17652);if(r)goto S_20871;} -do{ -tmp_long=array_check((*_FUNC_EVALUATEFUNC_LONG_IDNUM)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(17653);}while(r); -do{ -*__INTEGER_RECOMPILE= 1 ; -if(!qbevent)break;evnt(17654);}while(r); -} -} -do{ -goto LABEL_DONTEVALUATE; -if(!qbevent)break;evnt(17658);}while(r); -} -} -}else{ -S_20880:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(17676);if(r)goto S_20880;} -do{ -*_FUNC_EVALUATEFUNC_LONG_IDNUM=qbr(func_val(qbs_left(_FUNC_EVALUATEFUNC_STRING_E,func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0)- 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17677);}while(r); -S_20882:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(qbs_new_fixed(&((uint8*)(__ARRAY_STRING100_SFCMEMARGS[0]))[(array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_STRING100_SFCMEMARGS[4],__ARRAY_STRING100_SFCMEMARGS[5]))*100],100,1),*_FUNC_EVALUATEFUNC_LONG_CURARG, 1 ,0|1),func_chr( 1 ))))||new_error){ -if(qbevent){evnt(17678);if(r)goto S_20882;} -S_20883:; -if ((-(((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*_FUNC_EVALUATEFUNC_LONG_IDNUM)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])]== 0 ))||new_error){ -if(qbevent){evnt(17679);if(r)goto S_20883;} -do{ -tmp_long=array_check((*_FUNC_EVALUATEFUNC_LONG_IDNUM)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(17680);}while(r); -do{ -*__INTEGER_RECOMPILE= 1 ; -if(!qbevent)break;evnt(17681);}while(r); -} -} -} -} -} -} -S_20892:; -if ((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(17704);if(r)goto S_20892;} -S_20893:; -if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING)== 0 ))||new_error){ -if(qbevent){evnt(17705);if(r)goto S_20893;} -do{ -*_FUNC_EVALUATEFUNC_LONG_NTH=*_FUNC_EVALUATEFUNC_LONG_CURARG; -if(!qbevent)break;evnt(17706);}while(r); -S_20895:; -if ((*_FUNC_EVALUATEFUNC_LONG_SKIPFIRSTARG)||new_error){ -if(qbevent){evnt(17707);if(r)goto S_20895;} -do{ -*_FUNC_EVALUATEFUNC_LONG_NTH=*_FUNC_EVALUATEFUNC_LONG_NTH- 1 ; -if(!qbevent)break;evnt(17707);}while(r); -} -S_20898:; -if ((-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+809))== 1 ))||new_error){ -if(qbevent){evnt(17708);if(r)goto S_20898;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("String required for function",28)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17708);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17708);}while(r); -} -do{ -SUB_GIVE_ERROR(qbs_add(FUNC_STR_NTH(_FUNC_EVALUATEFUNC_LONG_NTH),qbs_new_txt_len(" function argument requires a string",36))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17709);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17709);}while(r); -} -} -S_20906:; -if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISSTRING)== 0 ))||new_error){ -if(qbevent){evnt(17712);if(r)goto S_20906;} -S_20907:; -if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(17713);if(r)goto S_20907;} -do{ -*_FUNC_EVALUATEFUNC_LONG_NTH=*_FUNC_EVALUATEFUNC_LONG_CURARG; -if(!qbevent)break;evnt(17714);}while(r); -S_20909:; -if ((*_FUNC_EVALUATEFUNC_LONG_SKIPFIRSTARG)||new_error){ -if(qbevent){evnt(17715);if(r)goto S_20909;} -do{ -*_FUNC_EVALUATEFUNC_LONG_NTH=*_FUNC_EVALUATEFUNC_LONG_NTH- 1 ; -if(!qbevent)break;evnt(17715);}while(r); -} -S_20912:; -if ((-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+809))== 1 ))||new_error){ -if(qbevent){evnt(17716);if(r)goto S_20912;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Number required for function",28)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17716);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17716);}while(r); -} -do{ -SUB_GIVE_ERROR(qbs_add(FUNC_STR_NTH(_FUNC_EVALUATEFUNC_LONG_NTH),qbs_new_txt_len(" function argument requires a number",36))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17717);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17717);}while(r); -} -} -S_20920:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(17722);if(r)goto S_20920;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2680= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17723);}while(r); -S_20922:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(17724);if(r)goto S_20922;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17724);}while(r); -} -} -S_20926:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_EXPLICITREFERENCE== 0 ))||new_error){ -if(qbevent){evnt(17727);if(r)goto S_20926;} -S_20927:; -if ((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISUDT)||new_error){ -if(qbevent){evnt(17728);if(r)goto S_20927;} -do{ -*_FUNC_EVALUATEFUNC_LONG_NTH=*_FUNC_EVALUATEFUNC_LONG_CURARG; -if(!qbevent)break;evnt(17729);}while(r); -S_20929:; -if ((*_FUNC_EVALUATEFUNC_LONG_SKIPFIRSTARG)||new_error){ -if(qbevent){evnt(17730);if(r)goto S_20929;} -do{ -*_FUNC_EVALUATEFUNC_LONG_NTH=*_FUNC_EVALUATEFUNC_LONG_NTH- 1 ; -if(!qbevent)break;evnt(17730);}while(r); -} -S_20932:; -if ((qbs_cleanup(qbs_tmp_base,*__LONG_QB64PREFIX_SET&(qbs_equal(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[(array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]))*256],256,1),qbs_new_txt_len("_MEM",4)))))||new_error){ -if(qbevent){evnt(17731);if(r)goto S_20932;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_X,qbs_add(qbs_add(qbs_new_txt_len("'",1),func_mid(qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[(array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]))*256],256,1)), 2 ,NULL,0)),qbs_new_txt_len("'",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17732);}while(r); -}else{ -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_X,qbs_add(qbs_add(qbs_new_txt_len("'",1),qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[(array_check((*_FUNC_EVALUATEFUNC_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(17734);}while(r); -} -S_20937:; -if ((-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+809))== 1 ))||new_error){ -if(qbevent){evnt(17736);if(r)goto S_20937;} -do{ -SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("TYPE ",5),_FUNC_EVALUATEFUNC_STRING_X),qbs_new_txt_len(" required for function",22))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17736);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17736);}while(r); -} -do{ -SUB_GIVE_ERROR(qbs_add(qbs_add(FUNC_STR_NTH(_FUNC_EVALUATEFUNC_LONG_NTH),qbs_new_txt_len(" function argument requires TYPE ",33)),_FUNC_EVALUATEFUNC_STRING_X)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17737);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17737);}while(r); -} -}else{ -S_20945:; -if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUDT)||new_error){ -if(qbevent){evnt(17740);if(r)goto S_20945;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Number required for function",28)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17740);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17740);}while(r); -} -} -S_20950:; -if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||new_error){ -if(qbevent){evnt(17744);if(r)goto S_20950;} -S_20951:; -if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISFLOAT)== 0 ))||new_error){ -if(qbevent){evnt(17745);if(r)goto S_20951;} -do{ -*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 ; -if(!qbevent)break;evnt(17747);}while(r); -S_20953:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS<= 16 ))||new_error){ -if(qbevent){evnt(17748);if(r)goto S_20953;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("qbr_float_to_long(",18),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17748);}while(r); -} -S_20956:; -if (((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 16 ))&(-(*_FUNC_EVALUATEFUNC_LONG_BITS< 32 )))||new_error){ -if(qbevent){evnt(17749);if(r)goto S_20956;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("qbr_double_to_long(",19),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17749);}while(r); -} -S_20959:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS>= 32 ))||new_error){ -if(qbevent){evnt(17750);if(r)goto S_20959;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("qbr(",4),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17750);}while(r); -} -} -} -S_20964:; -if ((*_FUNC_EVALUATEFUNC_LONG_EXPLICITREFERENCE)||new_error){ -if(qbevent){evnt(17754);if(r)goto S_20964;} -S_20965:; -if (((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISOFFSETINBITS))||new_error){ -if(qbevent){evnt(17755);if(r)goto S_20965;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(int64)(",8),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17757);}while(r); -}else{ -S_20968:; -if (((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISFLOAT))||new_error){ -if(qbevent){evnt(17759);if(r)goto S_20968;} -S_20969:; -if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )== 32 ))||new_error){ -if(qbevent){evnt(17760);if(r)goto S_20969;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(float)(",8),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17760);}while(r); -} -S_20972:; -if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )== 64 ))||new_error){ -if(qbevent){evnt(17761);if(r)goto S_20972;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(double)(",9),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17761);}while(r); -} -S_20975:; -if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )== 256 ))||new_error){ -if(qbevent){evnt(17762);if(r)goto S_20975;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(long double)(",14),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17762);}while(r); -} -}else{ -S_20979:; -if (((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISUNSIGNED))||new_error){ -if(qbevent){evnt(17764);if(r)goto S_20979;} -S_20980:; -if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )== 8 ))||new_error){ -if(qbevent){evnt(17765);if(r)goto S_20980;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(uint8)(",8),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17765);}while(r); -} -S_20983:; -if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )== 16 ))||new_error){ -if(qbevent){evnt(17766);if(r)goto S_20983;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(uint16)(",9),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17766);}while(r); -} -S_20986:; -if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )== 32 ))||new_error){ -if(qbevent){evnt(17767);if(r)goto S_20986;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(uint32)(",9),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17767);}while(r); -} -S_20989:; -if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )== 64 ))||new_error){ -if(qbevent){evnt(17768);if(r)goto S_20989;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(uint64)(",9),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17768);}while(r); -} -}else{ -S_20993:; -if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )== 8 ))||new_error){ -if(qbevent){evnt(17770);if(r)goto S_20993;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(int8)(",7),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17770);}while(r); -} -S_20996:; -if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )== 16 ))||new_error){ -if(qbevent){evnt(17771);if(r)goto S_20996;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(int16)(",8),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17771);}while(r); -} -S_20999:; -if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )== 32 ))||new_error){ -if(qbevent){evnt(17772);if(r)goto S_20999;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(int32)(",8),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17772);}while(r); -} -S_21002:; -if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )== 64 ))||new_error){ -if(qbevent){evnt(17773);if(r)goto S_21002;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(int64)(",8),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17773);}while(r); -} -} -} -} -} -S_21009:; -if (((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISPOINTER))||new_error){ -if(qbevent){evnt(17780);if(r)goto S_21009;} -S_21010:; -if (((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(17781);if(r)goto S_21010;} -do{ -goto LABEL_DONTEVALUATE; -if(!qbevent)break;evnt(17781);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_T,FUNC_TYP2CTYP(_FUNC_EVALUATEFUNC_LONG_TARGETTYP,qbs_new_txt_len("",0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17783);}while(r); -S_21014:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(17784);if(r)goto S_21014;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17784);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_V,qbs_add(qbs_new_txt_len("pass",4),FUNC_STR2(&(pass2681=FUNC_UNIQUENUMBER())))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17785);}while(r); -S_21018:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(qbs_new_fixed(&((uint8*)(__ARRAY_STRING100_SFCMEMARGS[0]))[(array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_STRING100_SFCMEMARGS[4],__ARRAY_STRING100_SFCMEMARGS[5]))*100],100,1),*_FUNC_EVALUATEFUNC_LONG_CURARG, 1 ,0|1),func_chr( 1 ))))||new_error){ -if(qbevent){evnt(17787);if(r)goto S_21018;} -do{ -*_FUNC_EVALUATEFUNC_LONG_BYTESREQ=((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )+ 7 )/ 8 ; -if(!qbevent)break;evnt(17788);}while(r); -do{ -SUB_WRITEBUFLINE(__INTEGER_DEFDATAHANDLE,qbs_add(qbs_add(qbs_add(_FUNC_EVALUATEFUNC_STRING_T,qbs_new_txt_len(" *",2)),_FUNC_EVALUATEFUNC_STRING_V),qbs_new_txt_len("=NULL;",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17789);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass2682=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_EVALUATEFUNC_STRING_V),qbs_new_txt_len("==NULL){",8))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17790);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass2683=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("cmem_sp-=",9),FUNC_STR2(_FUNC_EVALUATEFUNC_LONG_BYTESREQ)),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17791);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass2684=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(_FUNC_EVALUATEFUNC_STRING_V,qbs_new_txt_len("=(",2)),_FUNC_EVALUATEFUNC_STRING_T),qbs_new_txt_len("*)(dblock+cmem_sp);",19))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17792);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass2685=*__LONG_DATATXTBUF),qbs_new_txt_len("if (cmem_spchr",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17813);}while(r); -} -S_21040:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ltrim(qbs_rtrim(_FUNC_EVALUATEFUNC_STRING_E)),qbs_new_txt_len("0",1))))||new_error){ -if(qbevent){evnt(17816);if(r)goto S_21040;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_new_txt_len("NULL",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17816);}while(r); -} -} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17820);}while(r); -S_21045:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_MEM",4)))|(((qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("MEM",3)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ -if(qbevent){evnt(17823);if(r)goto S_21045;} -S_21046:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_ARGS== 1 ))||new_error){ -if(qbevent){evnt(17824);if(r)goto S_21046;} -S_21047:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 1 ))||new_error){ -if(qbevent){evnt(17825);if(r)goto S_21047;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17825);}while(r); -do{ -goto LABEL_EVALFUNCSPECIAL; -if(!qbevent)break;evnt(17825);}while(r); -} -} -S_21052:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_ARGS== 2 ))||new_error){ -if(qbevent){evnt(17827);if(r)goto S_21052;} -S_21053:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 ))||new_error){ -if(qbevent){evnt(17828);if(r)goto S_21053;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17828);}while(r); -do{ -goto LABEL_EVALFUNCSPECIAL; -if(!qbevent)break;evnt(17828);}while(r); -} -} -} -S_21059:; -if (((-(*_FUNC_EVALUATEFUNC_LONG_I!=*_FUNC_EVALUATEFUNC_LONG_N))&(-(*_FUNC_EVALUATEFUNC_LONG_NOCOMMA== 0 )))||new_error){ -if(qbevent){evnt(17832);if(r)goto S_21059;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len(",",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17832);}while(r); -} -do{ -*_FUNC_EVALUATEFUNC_LONG_NOCOMMA= 0 ; -if(!qbevent)break;evnt(17833);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_FIRSTI=*_FUNC_EVALUATEFUNC_LONG_I+ 1 ; -if(!qbevent)break;evnt(17834);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_CURARG=*_FUNC_EVALUATEFUNC_LONG_CURARG+ 1 ; -if(!qbevent)break;evnt(17835);}while(r); -} -fornext_continue_2610:; -} -fornext_exit_2610:; -S_21067:; -if (((-(*_FUNC_EVALUATEFUNC_LONG_CURARG<=*(int16*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(809))))&(~(*(int8*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(808)))))||new_error){ -if(qbevent){evnt(17842);if(r)goto S_21067;} -S_21068:; -fornext_value2689=*_FUNC_EVALUATEFUNC_LONG_CURARG; -fornext_finalvalue2689=*(int16*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(809)); -fornext_step2689= 1 ; -if (fornext_step2689<0) fornext_step_negative2689=1; else fornext_step_negative2689=0; -if (new_error) goto fornext_error2689; -goto fornext_entrylabel2689; -while(1){ -fornext_value2689=fornext_step2689+(*_FUNC_EVALUATEFUNC_LONG_I); -fornext_entrylabel2689: -*_FUNC_EVALUATEFUNC_LONG_I=fornext_value2689; -if (fornext_step_negative2689){ -if (fornext_value2689fornext_finalvalue2689) break; -} -fornext_error2689:; -if(qbevent){evnt(17843);if(r)goto S_21068;} -S_21069:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_I== 1 ))||new_error){ -if(qbevent){evnt(17844);if(r)goto S_21069;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("NULL",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17844);}while(r); -}else{ -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len(",NULL",5))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17844);}while(r); -} -fornext_continue_2688:; -} -fornext_exit_2688:; -} -} -S_21077:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("UBOUND",6)))|(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("LBOUND",6)))))||new_error){ -if(qbevent){evnt(17849);if(r)goto S_21077;} -S_21078:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len(",NULL",5))))||new_error){ -if(qbevent){evnt(17850);if(r)goto S_21078;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len(",1",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17850);}while(r); -} -S_21081:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("UBOUND",6))))||new_error){ -if(qbevent){evnt(17851);if(r)goto S_21081;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R2,qbs_new_txt_len("func_ubound(",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17851);}while(r); -}else{ -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R2,qbs_new_txt_len("func_lbound(",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17851);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_ULBOUNDARRAY,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2690= 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17852);}while(r); -S_21087:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(17853);if(r)goto S_21087;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17853);}while(r); -} -do{ -*_FUNC_EVALUATEFUNC_LONG_ARRAYELEMENTS=*(int16*)(((char*)__UDT_ID)+(516)); -if(!qbevent)break;evnt(17856);}while(r); -S_21091:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_ARRAYELEMENTS== -1 ))||new_error){ -if(qbevent){evnt(17857);if(r)goto S_21091;} -do{ -*_FUNC_EVALUATEFUNC_LONG_ARRAYELEMENTS= 1 ; -if(!qbevent)break;evnt(17857);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_EVALUATEFUNC_STRING_R2,_FUNC_EVALUATEFUNC_STRING_E),_FUNC_EVALUATEFUNC_STRING_R),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATEFUNC_LONG_ARRAYELEMENTS)),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17859);}while(r); -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(17860);}while(r); -do{ -goto LABEL_EVALFUNCSPECIAL; -if(!qbevent)break;evnt(17861);}while(r); -} -S_21098:; -if ((*_FUNC_EVALUATEFUNC_LONG_PASSOMIT)||new_error){ -if(qbevent){evnt(17864);if(r)goto S_21098;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len(",0",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17865);}while(r); -S_21100:; -if ((*_FUNC_EVALUATEFUNC_LONG_HASOPTIONALFIRSTARG)||new_error){ -if(qbevent){evnt(17867);if(r)goto S_21100;} -S_21101:; -if ((((int32*)(_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[0]))[array_check(( 1 )-_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[4],_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[5])])||new_error){ -if(qbevent){evnt(17868);if(r)goto S_21101;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("|1",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17868);}while(r); -} -}else{ -S_21105:; -fornext_value2692=*_FUNC_EVALUATEFUNC_LONG_FIRSTOPTIONALARGUMENT; -fornext_finalvalue2692=func_ubound(_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS,1,1); -fornext_step2692= 1 ; -if (fornext_step2692<0) fornext_step_negative2692=1; else fornext_step_negative2692=0; -if (new_error) goto fornext_error2692; -goto fornext_entrylabel2692; -while(1){ -fornext_value2692=fornext_step2692+(*_FUNC_EVALUATEFUNC_LONG_I); -fornext_entrylabel2692: -*_FUNC_EVALUATEFUNC_LONG_I=fornext_value2692; -if (fornext_step_negative2692){ -if (fornext_value2692fornext_finalvalue2692) break; -} -fornext_error2692:; -if(qbevent){evnt(17870);if(r)goto S_21105;} -S_21106:; -if ((((int32*)(_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[0]))[array_check((*_FUNC_EVALUATEFUNC_LONG_I)-_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[4],_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[5])])||new_error){ -if(qbevent){evnt(17871);if(r)goto S_21106;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("|",1)),FUNC_STR2(&(pass2693=func__shl( 1 ,*_FUNC_EVALUATEFUNC_LONG_I-*_FUNC_EVALUATEFUNC_LONG_FIRSTOPTIONALARGUMENT))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17871);}while(r); -} -fornext_continue_2691:; -} -fornext_exit_2691:; -} -} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17875);}while(r); -LABEL_EVALFUNCSPECIAL:; -if(qbevent){evnt(17877);r=0;} -S_21113:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("ABS",3))))||new_error){ -if(qbevent){evnt(17879);if(r)goto S_21113;} -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP; -if(!qbevent)break;evnt(17879);}while(r); -} -S_21116:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("SIN",3)))|(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("COS",3)))|(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("TAN",3)))|(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("ATN",3)))|(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("SQR",3)))|(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("LOG",3)))))||new_error){ -if(qbevent){evnt(17882);if(r)goto S_21116;} -do{ -*_FUNC_EVALUATEFUNC_LONG_B=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ; -if(!qbevent)break;evnt(17883);}while(r); -S_21118:; -if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT)||new_error){ -if(qbevent){evnt(17884);if(r)goto S_21118;} -S_21119:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_B== 64 ))||new_error){ -if(qbevent){evnt(17886);if(r)goto S_21119;} -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(17886);}while(r); -} -S_21122:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_B== 32 ))||new_error){ -if(qbevent){evnt(17887);if(r)goto S_21122;} -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(17887);}while(r); -} -}else{ -S_21126:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_B<= 32 ))||new_error){ -if(qbevent){evnt(17890);if(r)goto S_21126;} -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(17890);}while(r); -} -S_21129:; -if ((-(*_FUNC_EVALUATEFUNC_LONG_B<= 16 ))||new_error){ -if(qbevent){evnt(17891);if(r)goto S_21129;} -do{ -*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(17891);}while(r); -} -} -} -S_21134:; -if ((-(*(int32*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(2381))==(*__LONG_ISUDT+( 1 ))))||new_error){ -if(qbevent){evnt(17895);if(r)goto S_21134;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_V,qbs_add(qbs_new_txt_len("func",4),FUNC_STR2(&(pass2694=FUNC_UNIQUENUMBER())))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17897);}while(r); -do{ -SUB_WRITEBUFLINE(__INTEGER_DEFDATAHANDLE,qbs_add(qbs_add(qbs_new_txt_len("mem_block ",10),_FUNC_EVALUATEFUNC_STRING_V),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17898);}while(r); -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(",1),_FUNC_EVALUATEFUNC_STRING_V),qbs_new_txt_len("=",1)),_FUNC_EVALUATEFUNC_STRING_R),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17899);}while(r); -} -S_21139:; -if ((*(int16*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(806)))||new_error){ -if(qbevent){evnt(17902);if(r)goto S_21139;} -S_21140:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_EVALUATEFUNC_STRING_R, 11 ),qbs_new_txt_len("( char* )",11))))||new_error){ -if(qbevent){evnt(17903);if(r)goto S_21140;} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_new_txt_len("qbs_new_txt(",12),_FUNC_EVALUATEFUNC_STRING_R),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17904);}while(r); -} -} -S_21144:; -if (( 0 )||new_error){ -if(qbevent){evnt(17908);if(r)goto S_21144;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2695; -sub_file_print(tmp_fileno,qbs_new_txt_len("evaluatefunc:out:",17), 0, 0, 0); -if (new_error) goto skip2695; -sub_file_print(tmp_fileno,_FUNC_EVALUATEFUNC_STRING_R, 0, 0, 1); -if (new_error) goto skip2695; -skip2695: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(17908);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATEFUNC_STRING_EVALUATEFUNC,_FUNC_EVALUATEFUNC_STRING_R); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17909);}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free19.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_EVALUATEFUNC_STRING_EVALUATEFUNC);return _FUNC_EVALUATEFUNC_STRING_EVALUATEFUNC; -} -qbs* FUNC_VARIABLESIZE(int32*_FUNC_VARIABLESIZE_LONG_I){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data20.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -S_21148:; -if ((-(*_FUNC_VARIABLESIZE_LONG_I!= -1 ))||new_error){ -if(qbevent){evnt(17914);if(r)goto S_21148;} -do{ -SUB_GETID(_FUNC_VARIABLESIZE_LONG_I); -if(!qbevent)break;evnt(17914);}while(r); -} -S_21151:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(17915);if(r)goto S_21151;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17915);}while(r); -} -do{ -*_FUNC_VARIABLESIZE_LONG_T=*(int32*)(((char*)__UDT_ID)+(536)); -if(!qbevent)break;evnt(17917);}while(r); -S_21155:; -if ((-(*_FUNC_VARIABLESIZE_LONG_T== 0 ))||new_error){ -if(qbevent){evnt(17917);if(r)goto S_21155;} -do{ -*_FUNC_VARIABLESIZE_LONG_T=*(int32*)(((char*)__UDT_ID)+(512)); -if(!qbevent)break;evnt(17917);}while(r); -} -do{ -*_FUNC_VARIABLESIZE_LONG_BYTES=(*_FUNC_VARIABLESIZE_LONG_T& 511 )/ 8 ; -if(!qbevent)break;evnt(17918);}while(r); -S_21159:; -if ((*_FUNC_VARIABLESIZE_LONG_T&*__LONG_ISUDT)||new_error){ -if(qbevent){evnt(17920);if(r)goto S_21159;} -do{ -*_FUNC_VARIABLESIZE_LONG_U=*_FUNC_VARIABLESIZE_LONG_T& 511 ; -if(!qbevent)break;evnt(17921);}while(r); -do{ -*_FUNC_VARIABLESIZE_LONG_BYTES=((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*_FUNC_VARIABLESIZE_LONG_U)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])]/ 8 ; -if(!qbevent)break;evnt(17922);}while(r); -} -S_21163:; -if ((*_FUNC_VARIABLESIZE_LONG_T&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(17925);if(r)goto S_21163;} -S_21164:; -if ((*_FUNC_VARIABLESIZE_LONG_T&*__LONG_ISFIXEDLENGTH)||new_error){ -if(qbevent){evnt(17926);if(r)goto S_21164;} -do{ -*_FUNC_VARIABLESIZE_LONG_BYTES=*(int32*)(((char*)__UDT_ID)+(540)); -if(!qbevent)break;evnt(17927);}while(r); -}else{ -S_21167:; -if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ -if(qbevent){evnt(17929);if(r)goto S_21167;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Cannot determine size of variable-length string array",53)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17929);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17929);}while(r); -} -do{ -qbs_set(_FUNC_VARIABLESIZE_STRING_VARIABLESIZE,qbs_add(qbs_add(qbs_add(FUNC_SCOPE(),qbs_new_txt_len("STRING_",7)),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1))),qbs_new_txt_len("->len",5))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17930);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17931);}while(r); -} -} -S_21175:; -if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ -if(qbevent){evnt(17935);if(r)goto S_21175;} -do{ -qbs_set(_FUNC_VARIABLESIZE_STRING_N,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17936);}while(r); -do{ -qbs_set(_FUNC_VARIABLESIZE_STRING_S,qbs_add(qbs_add(qbs_add(FUNC_STR2(_FUNC_VARIABLESIZE_LONG_BYTES),qbs_new_txt_len("*(",2)),_FUNC_VARIABLESIZE_STRING_N),qbs_new_txt_len("[2]&1)",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17937);}while(r); -do{ -*_FUNC_VARIABLESIZE_LONG_ARRAYELEMENTS=*(int16*)(((char*)__UDT_ID)+(516)); -if(!qbevent)break;evnt(17938);}while(r); -S_21179:; -if ((-(*_FUNC_VARIABLESIZE_LONG_ARRAYELEMENTS== -1 ))||new_error){ -if(qbevent){evnt(17938);if(r)goto S_21179;} -do{ -*_FUNC_VARIABLESIZE_LONG_ARRAYELEMENTS= 1 ; -if(!qbevent)break;evnt(17938);}while(r); -} -S_21182:; -fornext_value2697= 1 ; -fornext_finalvalue2697=*_FUNC_VARIABLESIZE_LONG_ARRAYELEMENTS; -fornext_step2697= 1 ; -if (fornext_step2697<0) fornext_step_negative2697=1; else fornext_step_negative2697=0; -if (new_error) goto fornext_error2697; -goto fornext_entrylabel2697; -while(1){ -fornext_value2697=fornext_step2697+(*_FUNC_VARIABLESIZE_LONG_I2); -fornext_entrylabel2697: -*_FUNC_VARIABLESIZE_LONG_I2=fornext_value2697; -if (fornext_step_negative2697){ -if (fornext_value2697fornext_finalvalue2697) break; -} -fornext_error2697:; -if(qbevent){evnt(17939);if(r)goto S_21182;} -do{ -qbs_set(_FUNC_VARIABLESIZE_STRING_S,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_VARIABLESIZE_STRING_S,qbs_new_txt_len("*",1)),_FUNC_VARIABLESIZE_STRING_N),qbs_new_txt_len("[",1)),FUNC_STR2(&(pass2698=(*_FUNC_VARIABLESIZE_LONG_I2* 4 )-( 4 )+( 5 )))),qbs_new_txt_len("]",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17940);}while(r); -fornext_continue_2696:; -} -fornext_exit_2696:; -do{ -qbs_set(_FUNC_VARIABLESIZE_STRING_VARIABLESIZE,qbs_add(qbs_add(qbs_new_txt_len("(",1),_FUNC_VARIABLESIZE_STRING_S),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17942);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17943);}while(r); -} -do{ -qbs_set(_FUNC_VARIABLESIZE_STRING_VARIABLESIZE,FUNC_STR2(_FUNC_VARIABLESIZE_LONG_BYTES)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17946);}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free20.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_VARIABLESIZE_STRING_VARIABLESIZE);return _FUNC_VARIABLESIZE_STRING_VARIABLESIZE; -} -qbs* FUNC_EVALUATETOTYP(qbs*_FUNC_EVALUATETOTYP_STRING_A2,int32*_FUNC_EVALUATETOTYP_LONG_TARGETTYP){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data21.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_A,_FUNC_EVALUATETOTYP_STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17953);}while(r); -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_EVALUATE(_FUNC_EVALUATETOTYP_STRING_A,_FUNC_EVALUATETOTYP_LONG_SOURCETYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17954);}while(r); -S_21191:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(17955);if(r)goto S_21191;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17955);}while(r); -} -S_21194:; -if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISOFFSET)||new_error){ -if(qbevent){evnt(17958);if(r)goto S_21194;} -S_21195:; -if (((-((*_FUNC_EVALUATETOTYP_LONG_TARGETTYP&*__LONG_ISOFFSET)== 0 ))&(-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP>= 0 )))||new_error){ -if(qbevent){evnt(17959);if(r)goto S_21195;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Cannot convert _OFFSET type to other types",42)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17960);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17960);}while(r); -} -} -S_21200:; -if (((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -4 ))|(-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -5 ))|(-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -6 )))||new_error){ -if(qbevent){evnt(17966);if(r)goto S_21200;} -S_21201:; -if ((-((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||new_error){ -if(qbevent){evnt(17967);if(r)goto S_21201;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected variable name/array element",36)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17967);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17967);}while(r); -} -S_21205:; -if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISOFFSETINBITS))||new_error){ -if(qbevent){evnt(17968);if(r)goto S_21205;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Variable/element cannot be BIT aligned",38)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17968);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17968);}while(r); -} -S_21209:; -if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISUDT))||new_error){ -if(qbevent){evnt(17972);if(r)goto S_21209;} -S_21210:; -if ((((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP& 511 )-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])])||new_error){ -if(qbevent){evnt(17973);if(r)goto S_21210;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("UDT must have fixed size",24)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17973);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17973);}while(r); -} -do{ -*_FUNC_EVALUATETOTYP_LONG_IDNUMBER=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17974);}while(r); -do{ -*_FUNC_EVALUATETOTYP_LONG_I=func_instr(NULL,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17975);}while(r); -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_right(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_STRING_E->len-*_FUNC_EVALUATETOTYP_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17975);}while(r); -do{ -*_FUNC_EVALUATETOTYP_LONG_U=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17976);}while(r); -do{ -*_FUNC_EVALUATETOTYP_LONG_I=func_instr(NULL,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17977);}while(r); -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_right(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_STRING_E->len-*_FUNC_EVALUATETOTYP_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17977);}while(r); -do{ -*__LONG_E=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17978);}while(r); -do{ -*_FUNC_EVALUATETOTYP_LONG_I=func_instr(NULL,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17979);}while(r); -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_right(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_STRING_E->len-*_FUNC_EVALUATETOTYP_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17979);}while(r); -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_O,_FUNC_EVALUATETOTYP_STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17980);}while(r); -do{ -SUB_GETID(_FUNC_EVALUATETOTYP_LONG_IDNUMBER); -if(!qbevent)break;evnt(17981);}while(r); -S_21225:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(17982);if(r)goto S_21225;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(17982);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATETOTYP_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(17983);}while(r); -S_21229:; -if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ -if(qbevent){evnt(17984);if(r)goto S_21229;} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_N,qbs_add(qbs_add(qbs_new_txt_len("ARRAY_",6),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len("[0]",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17985);}while(r); -S_21231:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_EVALUATETOTYP_STRING_O, 3 ),qbs_new_txt_len("(0)",3))))||new_error){ -if(qbevent){evnt(17987);if(r)goto S_21231;} -do{ -goto LABEL_METHOD2USEALLUDT; -if(!qbevent)break;evnt(17989);}while(r); -} -} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_DST,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(((char*)",9),FUNC_SCOPE()),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len(")+(",3)),_FUNC_EVALUATETOTYP_STRING_O),qbs_new_txt_len("))",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17993);}while(r); -S_21236:; -if ((-(*__LONG_E== 0 ))||new_error){ -if(qbevent){evnt(17996);if(r)goto S_21236;} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,FUNC_STR2(&(pass2703=((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*_FUNC_EVALUATETOTYP_LONG_U)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])]/ 8 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(17997);}while(r); -}else{ -S_21239:; -if (((-((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISSTRING)> 0 ))&(-((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISFIXEDLENGTH)== 0 ))&((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -5 ))))||new_error){ -if(qbevent){evnt(17999);if(r)goto S_21239;} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_new_txt_len("(*(qbs**)",9),_FUNC_EVALUATETOTYP_STRING_DST),qbs_new_txt_len(")->len",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18000);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18001);}while(r); -S_21242:; -}else{ -if ((-((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISSTRING)> 0 ))&(-((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISFIXEDLENGTH)== 0 ))&((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -4 )))){ -if(qbevent){evnt(18002);if(r)goto S_21242;} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_DST,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(*((qbs**)((char*)",18),FUNC_SCOPE()),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len("+(",2)),_FUNC_EVALUATETOTYP_STRING_O),qbs_new_txt_len("))))->chr",9))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18003);}while(r); -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(*((qbs**)((char*)",18),FUNC_SCOPE()),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len("+(",2)),_FUNC_EVALUATETOTYP_STRING_O),qbs_new_txt_len("))))->len",9))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18004);}while(r); -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("byte_element((uint64)",21),_FUNC_EVALUATETOTYP_STRING_DST),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18005);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18006);}while(r); -} -} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,FUNC_STR2(&(pass2704=((int32*)(__ARRAY_LONG_UDTESIZE[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5])]/ 8 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18008);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("byte_element((uint64)",21),_FUNC_EVALUATETOTYP_STRING_DST),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18010);}while(r); -S_21251:; -if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -5 ))||new_error){ -if(qbevent){evnt(18011);if(r)goto S_21251;} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_BYTES); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18011);}while(r); -} -S_21254:; -if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -6 ))||new_error){ -if(qbevent){evnt(18012);if(r)goto S_21254;} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_DST); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18012);}while(r); -} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18013);}while(r); -} -S_21259:; -if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISARRAY))||new_error){ -if(qbevent){evnt(18016);if(r)goto S_21259;} -S_21260:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal((qbs_right(_FUNC_EVALUATETOTYP_STRING_E, 2 )),(qbs_add(__STRING1_SP3,qbs_new_txt_len("0",1))))))||new_error){ -if(qbevent){evnt(18018);if(r)goto S_21260;} -S_21261:; -if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(18020);if(r)goto S_21261;} -S_21262:; -if ((-((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ -if(qbevent){evnt(18021);if(r)goto S_21262;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Cannot pass array of variable-length strings",44)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18022);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18022);}while(r); -} -} -do{ -goto LABEL_METHOD2USEALL; -if(!qbevent)break;evnt(18025);}while(r); -} -S_21269:; -if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(18028);if(r)goto S_21269;} -S_21270:; -if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH)||new_error){ -if(qbevent){evnt(18029);if(r)goto S_21270;} -do{ -*_FUNC_EVALUATETOTYP_LONG_IDNUMBER=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18030);}while(r); -do{ -SUB_GETID(_FUNC_EVALUATETOTYP_LONG_IDNUMBER); -if(!qbevent)break;evnt(18031);}while(r); -S_21273:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(18032);if(r)goto S_21273;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18032);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,FUNC_STR2((int32*)(void*)( ((char*)(__UDT_ID)) + (540) ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18033);}while(r); -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2705= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18034);}while(r); -S_21278:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(18035);if(r)goto S_21278;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18035);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("byte_element((uint64)",21),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len("->chr,",6)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18036);}while(r); -S_21282:; -if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -5 ))||new_error){ -if(qbevent){evnt(18037);if(r)goto S_21282;} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_BYTES); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18037);}while(r); -} -S_21285:; -if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -6 ))||new_error){ -if(qbevent){evnt(18038);if(r)goto S_21285;} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(_FUNC_EVALUATETOTYP_STRING_E,qbs_new_txt_len("->chr",5))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18038);}while(r); -} -}else{ -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2706= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18040);}while(r); -S_21290:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(18041);if(r)goto S_21290;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18041);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("byte_element((uint64)",21),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len("->chr,",6)),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len("->len,",6)),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18043);}while(r); -S_21294:; -if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -5 ))||new_error){ -if(qbevent){evnt(18044);if(r)goto S_21294;} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(_FUNC_EVALUATETOTYP_STRING_E,qbs_new_txt_len("->len",5))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18044);}while(r); -} -S_21297:; -if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -6 ))||new_error){ -if(qbevent){evnt(18045);if(r)goto S_21297;} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(_FUNC_EVALUATETOTYP_STRING_E,qbs_new_txt_len("->chr",5))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18045);}while(r); -} -} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18047);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2707= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18049);}while(r); -S_21304:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(18050);if(r)goto S_21304;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18050);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(&(",3),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len("))",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18051);}while(r); -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,FUNC_STR2(&(pass2708=(*_FUNC_EVALUATETOTYP_LONG_SOURCETYP& 511 )/ 8 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18052);}while(r); -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("byte_element((uint64)",21),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18053);}while(r); -S_21310:; -if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -5 ))||new_error){ -if(qbevent){evnt(18054);if(r)goto S_21310;} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_BYTES); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18054);}while(r); -} -S_21313:; -if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -6 ))||new_error){ -if(qbevent){evnt(18055);if(r)goto S_21313;} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18055);}while(r); -} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18056);}while(r); -} -S_21318:; -if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(18059);if(r)goto S_21318;} -S_21319:; -if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH)||new_error){ -if(qbevent){evnt(18060);if(r)goto S_21319;} -do{ -*_FUNC_EVALUATETOTYP_LONG_IDNUMBER=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18061);}while(r); -do{ -SUB_GETID(_FUNC_EVALUATETOTYP_LONG_IDNUMBER); -if(!qbevent)break;evnt(18062);}while(r); -S_21322:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(18063);if(r)goto S_21322;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18063);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,FUNC_STR2((int32*)(void*)( ((char*)(__UDT_ID)) + (540) ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18064);}while(r); -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2709= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18065);}while(r); -S_21327:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(18066);if(r)goto S_21327;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18066);}while(r); -} -}else{ -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2710= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18068);}while(r); -S_21332:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(18069);if(r)goto S_21332;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18069);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,qbs_add(_FUNC_EVALUATETOTYP_STRING_E,qbs_new_txt_len("->len",5))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18070);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("byte_element((uint64)",21),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len("->chr,",6)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18072);}while(r); -S_21338:; -if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -5 ))||new_error){ -if(qbevent){evnt(18073);if(r)goto S_21338;} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_BYTES); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18073);}while(r); -} -S_21341:; -if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -6 ))||new_error){ -if(qbevent){evnt(18074);if(r)goto S_21341;} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(_FUNC_EVALUATETOTYP_STRING_E,qbs_new_txt_len("->chr",5))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18074);}while(r); -} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18075);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2711= 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18079);}while(r); -S_21347:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(18080);if(r)goto S_21347;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18080);}while(r); -} -do{ -*_FUNC_EVALUATETOTYP_LONG_SIZE=(*_FUNC_EVALUATETOTYP_LONG_SOURCETYP& 511 )/ 8 ; -if(!qbevent)break;evnt(18081);}while(r); -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("byte_element((uint64)",21),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATETOTYP_LONG_SIZE)),qbs_new_txt_len(",",1)),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18082);}while(r); -S_21352:; -if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -5 ))||new_error){ -if(qbevent){evnt(18083);if(r)goto S_21352;} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,FUNC_STR2(_FUNC_EVALUATETOTYP_LONG_SIZE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18083);}while(r); -} -S_21355:; -if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -6 ))||new_error){ -if(qbevent){evnt(18084);if(r)goto S_21355;} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18084);}while(r); -} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18085);}while(r); -} -S_21360:; -if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -8 ))||new_error){ -if(qbevent){evnt(18092);if(r)goto S_21360;} -S_21361:; -if ((-((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||new_error){ -if(qbevent){evnt(18093);if(r)goto S_21361;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected variable name/array element",36)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18093);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18093);}while(r); -} -S_21365:; -if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISOFFSETINBITS))||new_error){ -if(qbevent){evnt(18094);if(r)goto S_21365;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Variable/element cannot be BIT aligned",38)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18094);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18094);}while(r); -} -S_21369:; -if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISUDT))||new_error){ -if(qbevent){evnt(18097);if(r)goto S_21369;} -do{ -*_FUNC_EVALUATETOTYP_LONG_IDNUMBER=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18098);}while(r); -do{ -*_FUNC_EVALUATETOTYP_LONG_I=func_instr(NULL,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18099);}while(r); -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_right(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_STRING_E->len-*_FUNC_EVALUATETOTYP_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18099);}while(r); -do{ -*_FUNC_EVALUATETOTYP_LONG_U=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18100);}while(r); -do{ -*_FUNC_EVALUATETOTYP_LONG_I=func_instr(NULL,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18101);}while(r); -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_right(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_STRING_E->len-*_FUNC_EVALUATETOTYP_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18101);}while(r); -do{ -*__LONG_E=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18102);}while(r); -do{ -*_FUNC_EVALUATETOTYP_LONG_I=func_instr(NULL,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18103);}while(r); -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_right(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_STRING_E->len-*_FUNC_EVALUATETOTYP_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18103);}while(r); -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_O,_FUNC_EVALUATETOTYP_STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18104);}while(r); -do{ -SUB_GETID(_FUNC_EVALUATETOTYP_LONG_IDNUMBER); -if(!qbevent)break;evnt(18105);}while(r); -S_21381:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(18106);if(r)goto S_21381;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18106);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATETOTYP_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(18107);}while(r); -S_21385:; -if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ -if(qbevent){evnt(18108);if(r)goto S_21385;} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_N,qbs_add(qbs_add(qbs_new_txt_len("ARRAY_",6),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len("[0]",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18109);}while(r); -S_21387:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_EVALUATETOTYP_STRING_O, 3 ),qbs_new_txt_len("(0)",3))))||new_error){ -if(qbevent){evnt(18111);if(r)goto S_21387;} -do{ -goto LABEL_METHOD2USEALLUDT__7; -if(!qbevent)break;evnt(18113);}while(r); -} -} -S_21391:; -if ((-(*__LONG_E== 0 ))||new_error){ -if(qbevent){evnt(18117);if(r)goto S_21391;} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,FUNC_STR2(&(pass2715=((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*_FUNC_EVALUATETOTYP_LONG_U)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])]/ 8 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18118);}while(r); -do{ -*_FUNC_EVALUATETOTYP_LONG_T1=*__LONG_ISUDT+((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_FUNC_EVALUATETOTYP_LONG_U)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]; -if(!qbevent)break;evnt(18119);}while(r); -}else{ -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,FUNC_STR2(&(pass2716=((int32*)(__ARRAY_LONG_UDTESIZE[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5])]/ 8 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18121);}while(r); -do{ -*_FUNC_EVALUATETOTYP_LONG_T1=((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]; -if(!qbevent)break;evnt(18122);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_DST,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(((char*)",9),FUNC_SCOPE()),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len(")+(",3)),_FUNC_EVALUATETOTYP_STRING_O),qbs_new_txt_len("))",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18124);}while(r); -do{ -*_FUNC_EVALUATETOTYP_LONG_T=FUNC_TYPE2MEMTYPEVALUE(_FUNC_EVALUATETOTYP_LONG_T1); -if(!qbevent)break;evnt(18129);}while(r); -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(ptrszint)",10),_FUNC_EVALUATETOTYP_STRING_DST),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATETOTYP_LONG_T)),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",sf_mem_lock",12))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18130);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18132);}while(r); -} -S_21403:; -if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISARRAY))||new_error){ -if(qbevent){evnt(18135);if(r)goto S_21403;} -S_21404:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal((qbs_right(_FUNC_EVALUATETOTYP_STRING_E, 2 )),(qbs_add(__STRING1_SP3,qbs_new_txt_len("0",1))))))||new_error){ -if(qbevent){evnt(18137);if(r)goto S_21404;} -S_21405:; -if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(18139);if(r)goto S_21405;} -S_21406:; -if ((-((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ -if(qbevent){evnt(18140);if(r)goto S_21406;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Cannot pass array of variable-length strings",44)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18141);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18141);}while(r); -} -} -do{ -goto LABEL_METHOD2USEALL__7; -if(!qbevent)break;evnt(18144);}while(r); -} -do{ -*_FUNC_EVALUATETOTYP_LONG_IDNUMBER=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18147);}while(r); -do{ -SUB_GETID(_FUNC_EVALUATETOTYP_LONG_IDNUMBER); -if(!qbevent)break;evnt(18148);}while(r); -S_21415:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(18149);if(r)goto S_21415;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18149);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_N,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18150);}while(r); -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_LK,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(mem_lock*)((ptrszint*)",23),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len(")[",2)),FUNC_STR2(&(pass2717=( 4 **(int16*)(((char*)__UDT_ID)+(516)))+( 4 )+( 1 )-( 1 )))),qbs_new_txt_len("]",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18151);}while(r); -S_21420:; -if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(18155);if(r)goto S_21420;} -S_21421:; -if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH)||new_error){ -if(qbevent){evnt(18156);if(r)goto S_21421;} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,FUNC_STR2((int32*)(void*)( ((char*)(__UDT_ID)) + (540) ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18157);}while(r); -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2718= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18158);}while(r); -S_21424:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(18159);if(r)goto S_21424;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18159);}while(r); -} -do{ -*_FUNC_EVALUATETOTYP_LONG_T=FUNC_TYPE2MEMTYPEVALUE(_FUNC_EVALUATETOTYP_LONG_SOURCETYP); -if(!qbevent)break;evnt(18164);}while(r); -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(ptrszint)",10),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len("->chr,",6)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATETOTYP_LONG_T)),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_LK)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18165);}while(r); -}else{ -do{ -SUB_GIVE_ERROR(qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MEMELEMENT cannot reference variable-length strings",51))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18169);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18169);}while(r); -} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18172);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2719= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18175);}while(r); -S_21436:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(18176);if(r)goto S_21436;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18176);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(&(",3),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len("))",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18177);}while(r); -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,FUNC_STR2(&(pass2720=(*_FUNC_EVALUATETOTYP_LONG_SOURCETYP& 511 )/ 8 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18178);}while(r); -do{ -*_FUNC_EVALUATETOTYP_LONG_T=FUNC_TYPE2MEMTYPEVALUE(_FUNC_EVALUATETOTYP_LONG_SOURCETYP); -if(!qbevent)break;evnt(18183);}while(r); -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(ptrszint)",10),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATETOTYP_LONG_T)),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_LK)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18184);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18186);}while(r); -} -S_21445:; -if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(18189);if(r)goto S_21445;} -S_21446:; -if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH)||new_error){ -if(qbevent){evnt(18190);if(r)goto S_21446;} -do{ -*_FUNC_EVALUATETOTYP_LONG_IDNUMBER=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18191);}while(r); -do{ -SUB_GETID(_FUNC_EVALUATETOTYP_LONG_IDNUMBER); -if(!qbevent)break;evnt(18192);}while(r); -S_21449:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(18193);if(r)goto S_21449;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18193);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,FUNC_STR2((int32*)(void*)( ((char*)(__UDT_ID)) + (540) ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18194);}while(r); -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2721= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18195);}while(r); -S_21454:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(18196);if(r)goto S_21454;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18196);}while(r); -} -}else{ -do{ -SUB_GIVE_ERROR(qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MEMELEMENT cannot reference variable-length strings",51))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18198);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18198);}while(r); -} -do{ -*_FUNC_EVALUATETOTYP_LONG_T=FUNC_TYPE2MEMTYPEVALUE(_FUNC_EVALUATETOTYP_LONG_SOURCETYP); -if(!qbevent)break;evnt(18205);}while(r); -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(ptrszint)",10),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len("->chr,",6)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATETOTYP_LONG_T)),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",sf_mem_lock",12))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18206);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18208);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2722= 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18212);}while(r); -S_21466:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(18213);if(r)goto S_21466;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18213);}while(r); -} -do{ -*_FUNC_EVALUATETOTYP_LONG_SIZE=(*_FUNC_EVALUATETOTYP_LONG_SOURCETYP& 511 )/ 8 ; -if(!qbevent)break;evnt(18214);}while(r); -do{ -*_FUNC_EVALUATETOTYP_LONG_T=FUNC_TYPE2MEMTYPEVALUE(_FUNC_EVALUATETOTYP_LONG_SOURCETYP); -if(!qbevent)break;evnt(18219);}while(r); -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(ptrszint)",10),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATETOTYP_LONG_SIZE)),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATETOTYP_LONG_T)),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATETOTYP_LONG_SIZE)),qbs_new_txt_len(",sf_mem_lock",12))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18220);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18222);}while(r); -} -S_21474:; -if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -7 ))||new_error){ -if(qbevent){evnt(18235);if(r)goto S_21474;} -LABEL_METHOD2USEALL__7:; -if(qbevent){evnt(18236);r=0;} -S_21475:; -if ((-((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||new_error){ -if(qbevent){evnt(18237);if(r)goto S_21475;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected variable name/array element",36)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18237);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18237);}while(r); -} -S_21479:; -if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISOFFSETINBITS))||new_error){ -if(qbevent){evnt(18238);if(r)goto S_21479;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Variable/element cannot be BIT aligned",38)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18238);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18238);}while(r); -} -S_21483:; -if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISUDT))||new_error){ -if(qbevent){evnt(18241);if(r)goto S_21483;} -do{ -*_FUNC_EVALUATETOTYP_LONG_IDNUMBER=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18243);}while(r); -do{ -*_FUNC_EVALUATETOTYP_LONG_I=func_instr(NULL,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18244);}while(r); -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_right(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_STRING_E->len-*_FUNC_EVALUATETOTYP_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18244);}while(r); -do{ -*_FUNC_EVALUATETOTYP_LONG_U=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18245);}while(r); -do{ -*_FUNC_EVALUATETOTYP_LONG_I=func_instr(NULL,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18246);}while(r); -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_right(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_STRING_E->len-*_FUNC_EVALUATETOTYP_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18246);}while(r); -do{ -*__LONG_E=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18247);}while(r); -do{ -*_FUNC_EVALUATETOTYP_LONG_I=func_instr(NULL,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18248);}while(r); -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_right(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_STRING_E->len-*_FUNC_EVALUATETOTYP_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18248);}while(r); -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_O,_FUNC_EVALUATETOTYP_STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18250);}while(r); -do{ -SUB_GETID(_FUNC_EVALUATETOTYP_LONG_IDNUMBER); -if(!qbevent)break;evnt(18251);}while(r); -S_21495:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(18252);if(r)goto S_21495;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18252);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATETOTYP_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(18253);}while(r); -S_21499:; -if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ -if(qbevent){evnt(18253);if(r)goto S_21499;} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_N,qbs_add(qbs_add(qbs_new_txt_len("ARRAY_",6),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len("[0]",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18253);}while(r); -} -LABEL_METHOD2USEALLUDT__7:; -if(qbevent){evnt(18254);r=0;} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,qbs_add(qbs_add(qbs_add(FUNC_VARIABLESIZE(&(pass2726= -1 )),qbs_new_txt_len("-(",2)),_FUNC_EVALUATETOTYP_STRING_O),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18255);}while(r); -S_21503:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(18256);if(r)goto S_21503;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18256);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_DST,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(((char*)",9),FUNC_SCOPE()),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len(")+(",3)),_FUNC_EVALUATETOTYP_STRING_O),qbs_new_txt_len("))",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18257);}while(r); -S_21507:; -if ((-(*__LONG_E!= 0 ))||new_error){ -if(qbevent){evnt(18263);if(r)goto S_21507;} -do{ -*_FUNC_EVALUATETOTYP_LONG_SIZE= 1 ; -if(!qbevent)break;evnt(18263);}while(r); -}else{ -do{ -*_FUNC_EVALUATETOTYP_LONG_SIZE=((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*_FUNC_EVALUATETOTYP_LONG_U)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])]/ 8 ; -if(!qbevent)break;evnt(18263);}while(r); -} -do{ -*_FUNC_EVALUATETOTYP_LONG_T=FUNC_TYPE2MEMTYPEVALUE(_FUNC_EVALUATETOTYP_LONG_SOURCETYP); -if(!qbevent)break;evnt(18265);}while(r); -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(ptrszint)",10),_FUNC_EVALUATETOTYP_STRING_DST),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATETOTYP_LONG_T)),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATETOTYP_LONG_SIZE)),qbs_new_txt_len(",sf_mem_lock",12))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18266);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18268);}while(r); -} -S_21516:; -if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISARRAY))||new_error){ -if(qbevent){evnt(18272);if(r)goto S_21516;} -S_21517:; -if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(18273);if(r)goto S_21517;} -S_21518:; -if ((-((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ -if(qbevent){evnt(18274);if(r)goto S_21518;} -do{ -SUB_GIVE_ERROR(qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MEM cannot reference variable-length strings",44))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18275);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18275);}while(r); -} -} -do{ -*_FUNC_EVALUATETOTYP_LONG_IDNUMBER=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18279);}while(r); -do{ -SUB_GETID(_FUNC_EVALUATETOTYP_LONG_IDNUMBER); -if(!qbevent)break;evnt(18280);}while(r); -S_21525:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(18281);if(r)goto S_21525;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18281);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_N,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18283);}while(r); -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_LK,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(mem_lock*)((ptrszint*)",23),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len(")[",2)),FUNC_STR2(&(pass2727=( 4 **(int16*)(((char*)__UDT_ID)+(516)))+( 4 )+( 1 )-( 1 )))),qbs_new_txt_len("]",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18284);}while(r); -do{ -*_FUNC_EVALUATETOTYP_LONG_TSIZE=*(int32*)(((char*)__UDT_ID)+(540)); -if(!qbevent)break;evnt(18286);}while(r); -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_INDEX,qbs_right(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_STRING_E->len-func_instr(NULL,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18288);}while(r); -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,FUNC_VARIABLESIZE(&(pass2729= -1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18289);}while(r); -S_21533:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(18290);if(r)goto S_21533;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18290);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2730= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18291);}while(r); -S_21537:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(18292);if(r)goto S_21537;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18292);}while(r); -} -S_21540:; -if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(18294);if(r)goto S_21540;} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("((",2),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len(")->chr)",7))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18295);}while(r); -}else{ -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(&(",3),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len("))",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18297);}while(r); -} -S_21545:; -if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(18302);if(r)goto S_21545;} -do{ -*_FUNC_EVALUATETOTYP_LONG_BYTES=*_FUNC_EVALUATETOTYP_LONG_TSIZE; -if(!qbevent)break;evnt(18303);}while(r); -}else{ -do{ -*_FUNC_EVALUATETOTYP_LONG_BYTES=(*_FUNC_EVALUATETOTYP_LONG_SOURCETYP& 511 )/ 8 ; -if(!qbevent)break;evnt(18305);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_EVALUATETOTYP_STRING_BYTES,qbs_new_txt_len("-(",2)),FUNC_STR2(_FUNC_EVALUATETOTYP_LONG_BYTES)),qbs_new_txt_len("*(",2)),_FUNC_EVALUATETOTYP_STRING_INDEX),qbs_new_txt_len("))",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18307);}while(r); -do{ -*_FUNC_EVALUATETOTYP_LONG_T=FUNC_TYPE2MEMTYPEVALUE(_FUNC_EVALUATETOTYP_LONG_SOURCETYP); -if(!qbevent)break;evnt(18309);}while(r); -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(ptrszint)",10),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATETOTYP_LONG_T)),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATETOTYP_LONG_BYTES)),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_LK)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18310);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18312);}while(r); -} -S_21555:; -if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(18316);if(r)goto S_21555;} -S_21556:; -if ((-((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ -if(qbevent){evnt(18317);if(r)goto S_21556;} -do{ -SUB_GIVE_ERROR(qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MEM cannot reference variable-length strings",44))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18317);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18317);}while(r); -} -do{ -*_FUNC_EVALUATETOTYP_LONG_IDNUMBER=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18319);}while(r); -do{ -SUB_GETID(_FUNC_EVALUATETOTYP_LONG_IDNUMBER); -if(!qbevent)break;evnt(18320);}while(r); -S_21562:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(18320);if(r)goto S_21562;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18320);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,FUNC_STR2((int32*)(void*)( ((char*)(__UDT_ID)) + (540) ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18321);}while(r); -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2731= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18322);}while(r); -S_21567:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(18322);if(r)goto S_21567;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18322);}while(r); -} -do{ -*_FUNC_EVALUATETOTYP_LONG_T=FUNC_TYPE2MEMTYPEVALUE(_FUNC_EVALUATETOTYP_LONG_SOURCETYP); -if(!qbevent)break;evnt(18324);}while(r); -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(ptrszint)",10),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len("->chr,",6)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATETOTYP_LONG_T)),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",sf_mem_lock",12))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18325);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18327);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2732= 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18331);}while(r); -S_21575:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(18332);if(r)goto S_21575;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18332);}while(r); -} -do{ -*_FUNC_EVALUATETOTYP_LONG_SIZE=(*_FUNC_EVALUATETOTYP_LONG_SOURCETYP& 511 )/ 8 ; -if(!qbevent)break;evnt(18333);}while(r); -do{ -*_FUNC_EVALUATETOTYP_LONG_T=FUNC_TYPE2MEMTYPEVALUE(_FUNC_EVALUATETOTYP_LONG_SOURCETYP); -if(!qbevent)break;evnt(18335);}while(r); -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(ptrszint)",10),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATETOTYP_LONG_SIZE)),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATETOTYP_LONG_T)),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATETOTYP_LONG_SIZE)),qbs_new_txt_len(",sf_mem_lock",12))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18336);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18338);}while(r); -} -S_21583:; -if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -2 ))||new_error){ -if(qbevent){evnt(18343);if(r)goto S_21583;} -LABEL_METHOD2USEALL:; -if(qbevent){evnt(18344);r=0;} -S_21584:; -if ((-((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||new_error){ -if(qbevent){evnt(18347);if(r)goto S_21584;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected variable name/array element",36)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18347);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18347);}while(r); -} -S_21588:; -if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISOFFSETINBITS))||new_error){ -if(qbevent){evnt(18348);if(r)goto S_21588;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Variable/element cannot be BIT aligned",38)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18348);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18348);}while(r); -} -S_21592:; -if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISUDT))||new_error){ -if(qbevent){evnt(18351);if(r)goto S_21592;} -do{ -*_FUNC_EVALUATETOTYP_LONG_IDNUMBER=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18353);}while(r); -do{ -*_FUNC_EVALUATETOTYP_LONG_I=func_instr(NULL,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18354);}while(r); -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_right(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_STRING_E->len-*_FUNC_EVALUATETOTYP_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18354);}while(r); -do{ -*_FUNC_EVALUATETOTYP_LONG_U=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18355);}while(r); -do{ -*_FUNC_EVALUATETOTYP_LONG_I=func_instr(NULL,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18356);}while(r); -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_right(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_STRING_E->len-*_FUNC_EVALUATETOTYP_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18356);}while(r); -do{ -*__LONG_E=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18357);}while(r); -do{ -*_FUNC_EVALUATETOTYP_LONG_I=func_instr(NULL,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18358);}while(r); -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_right(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_STRING_E->len-*_FUNC_EVALUATETOTYP_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18358);}while(r); -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_O,_FUNC_EVALUATETOTYP_STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18359);}while(r); -do{ -SUB_GETID(_FUNC_EVALUATETOTYP_LONG_IDNUMBER); -if(!qbevent)break;evnt(18360);}while(r); -S_21604:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(18361);if(r)goto S_21604;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18361);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATETOTYP_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(18362);}while(r); -S_21608:; -if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ -if(qbevent){evnt(18362);if(r)goto S_21608;} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_N,qbs_add(qbs_add(qbs_new_txt_len("ARRAY_",6),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len("[0]",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18362);}while(r); -} -LABEL_METHOD2USEALLUDT:; -if(qbevent){evnt(18363);r=0;} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,qbs_add(qbs_add(qbs_add(FUNC_VARIABLESIZE(&(pass2736= -1 )),qbs_new_txt_len("-(",2)),_FUNC_EVALUATETOTYP_STRING_O),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18364);}while(r); -S_21612:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(18365);if(r)goto S_21612;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18365);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_DST,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(((char*)",9),FUNC_SCOPE()),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len(")+(",3)),_FUNC_EVALUATETOTYP_STRING_O),qbs_new_txt_len("))",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18366);}while(r); -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("byte_element((uint64)",21),_FUNC_EVALUATETOTYP_STRING_DST),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18367);}while(r); -S_21617:; -if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -5 ))||new_error){ -if(qbevent){evnt(18368);if(r)goto S_21617;} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_BYTES); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18368);}while(r); -} -S_21620:; -if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -6 ))||new_error){ -if(qbevent){evnt(18369);if(r)goto S_21620;} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_DST); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18369);}while(r); -} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18370);}while(r); -} -S_21625:; -if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISARRAY))||new_error){ -if(qbevent){evnt(18374);if(r)goto S_21625;} -S_21626:; -if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(18376);if(r)goto S_21626;} -S_21627:; -if ((-((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ -if(qbevent){evnt(18377);if(r)goto S_21627;} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2737= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18378);}while(r); -S_21629:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(18379);if(r)goto S_21629;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18379);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("byte_element((uint64)",21),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len("->chr,",6)),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len("->len,",6)),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18380);}while(r); -S_21633:; -if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -5 ))||new_error){ -if(qbevent){evnt(18381);if(r)goto S_21633;} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(_FUNC_EVALUATETOTYP_STRING_E,qbs_new_txt_len("->len",5))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18381);}while(r); -} -S_21636:; -if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -6 ))||new_error){ -if(qbevent){evnt(18382);if(r)goto S_21636;} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(_FUNC_EVALUATETOTYP_STRING_E,qbs_new_txt_len("->chr",5))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18382);}while(r); -} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18383);}while(r); -} -} -do{ -*_FUNC_EVALUATETOTYP_LONG_IDNUMBER=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18386);}while(r); -do{ -SUB_GETID(_FUNC_EVALUATETOTYP_LONG_IDNUMBER); -if(!qbevent)break;evnt(18387);}while(r); -S_21644:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(18388);if(r)goto S_21644;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18388);}while(r); -} -do{ -*_FUNC_EVALUATETOTYP_LONG_TSIZE=*(int32*)(((char*)__UDT_ID)+(540)); -if(!qbevent)break;evnt(18389);}while(r); -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_INDEX,qbs_right(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_STRING_E->len-func_instr(NULL,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18391);}while(r); -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,FUNC_VARIABLESIZE(&(pass2739= -1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18392);}while(r); -S_21650:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(18393);if(r)goto S_21650;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18393);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2740= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18394);}while(r); -S_21654:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(18395);if(r)goto S_21654;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18395);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(&(",3),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len("))",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18396);}while(r); -S_21658:; -if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(18399);if(r)goto S_21658;} -do{ -*_FUNC_EVALUATETOTYP_LONG_BYTES=*_FUNC_EVALUATETOTYP_LONG_TSIZE; -if(!qbevent)break;evnt(18400);}while(r); -}else{ -do{ -*_FUNC_EVALUATETOTYP_LONG_BYTES=(*_FUNC_EVALUATETOTYP_LONG_SOURCETYP& 511 )/ 8 ; -if(!qbevent)break;evnt(18402);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_EVALUATETOTYP_STRING_BYTES,qbs_new_txt_len("-(",2)),FUNC_STR2(_FUNC_EVALUATETOTYP_LONG_BYTES)),qbs_new_txt_len("*(",2)),_FUNC_EVALUATETOTYP_STRING_INDEX),qbs_new_txt_len("))",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18404);}while(r); -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("byte_element((uint64)",21),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18405);}while(r); -S_21665:; -if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -5 ))||new_error){ -if(qbevent){evnt(18406);if(r)goto S_21665;} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_BYTES); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18406);}while(r); -} -S_21668:; -if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -6 ))||new_error){ -if(qbevent){evnt(18407);if(r)goto S_21668;} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18407);}while(r); -} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18409);}while(r); -} -S_21673:; -if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(18413);if(r)goto S_21673;} -S_21674:; -if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH)||new_error){ -if(qbevent){evnt(18414);if(r)goto S_21674;} -do{ -*_FUNC_EVALUATETOTYP_LONG_IDNUMBER=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18415);}while(r); -do{ -SUB_GETID(_FUNC_EVALUATETOTYP_LONG_IDNUMBER); -if(!qbevent)break;evnt(18416);}while(r); -S_21677:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(18417);if(r)goto S_21677;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18417);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,FUNC_STR2((int32*)(void*)( ((char*)(__UDT_ID)) + (540) ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18418);}while(r); -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2741= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18419);}while(r); -S_21682:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(18420);if(r)goto S_21682;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18420);}while(r); -} -}else{ -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2742= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18422);}while(r); -S_21687:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(18423);if(r)goto S_21687;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18423);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,qbs_add(_FUNC_EVALUATETOTYP_STRING_E,qbs_new_txt_len("->len",5))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18424);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("byte_element((uint64)",21),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len("->chr,",6)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18426);}while(r); -S_21693:; -if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -5 ))||new_error){ -if(qbevent){evnt(18427);if(r)goto S_21693;} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_BYTES); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18427);}while(r); -} -S_21696:; -if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -6 ))||new_error){ -if(qbevent){evnt(18428);if(r)goto S_21696;} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(_FUNC_EVALUATETOTYP_STRING_E,qbs_new_txt_len("->chr",5))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18428);}while(r); -} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18429);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2743= 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18433);}while(r); -S_21702:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(18434);if(r)goto S_21702;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18434);}while(r); -} -do{ -*_FUNC_EVALUATETOTYP_LONG_SIZE=(*_FUNC_EVALUATETOTYP_LONG_SOURCETYP& 511 )/ 8 ; -if(!qbevent)break;evnt(18435);}while(r); -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("byte_element((uint64)",21),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATETOTYP_LONG_SIZE)),qbs_new_txt_len(",",1)),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18436);}while(r); -S_21707:; -if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -5 ))||new_error){ -if(qbevent){evnt(18437);if(r)goto S_21707;} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,FUNC_STR2(_FUNC_EVALUATETOTYP_LONG_SIZE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18437);}while(r); -} -S_21710:; -if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -6 ))||new_error){ -if(qbevent){evnt(18438);if(r)goto S_21710;} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18438);}while(r); -} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18439);}while(r); -} -S_21715:; -if ((-((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)!=(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP&*__LONG_ISSTRING)))||new_error){ -if(qbevent){evnt(18446);if(r)goto S_21715;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Illegal string-number conversion",32)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18447);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18447);}while(r); -} -S_21719:; -if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(18450);if(r)goto S_21719;} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18451);}while(r); -S_21721:; -if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(18452);if(r)goto S_21721;} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2744= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18453);}while(r); -S_21723:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(18454);if(r)goto S_21723;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18454);}while(r); -} -} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18456);}while(r); -} -S_21729:; -if (((*_FUNC_EVALUATETOTYP_LONG_TARGETTYP&*__LONG_ISPOINTER))||new_error){ -if(qbevent){evnt(18460);if(r)goto S_21729;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("evaluatetotyp received a request for a pointer (unsupported)",60)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18461);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18461);}while(r); -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Invalid pointer",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18463);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18463);}while(r); -} -S_21735:; -if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(18467);if(r)goto S_21735;} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2745= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18468);}while(r); -S_21737:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(18469);if(r)goto S_21737;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18469);}while(r); -} -} -S_21741:; -if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISPOINTER))||new_error){ -if(qbevent){evnt(18472);if(r)goto S_21741;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("evaluatetotyp couldn't convert pointer type!",44)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18473);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18473);}while(r); -} -S_21745:; -if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISFLOAT))||new_error){ -if(qbevent){evnt(18477);if(r)goto S_21745;} -S_21746:; -if ((-((*_FUNC_EVALUATETOTYP_LONG_TARGETTYP&*__LONG_ISFLOAT)== 0 ))||new_error){ -if(qbevent){evnt(18478);if(r)goto S_21746;} -do{ -*_FUNC_EVALUATETOTYP_LONG_BITS=*_FUNC_EVALUATETOTYP_LONG_TARGETTYP& 511 ; -if(!qbevent)break;evnt(18479);}while(r); -S_21748:; -if ((-(*_FUNC_EVALUATETOTYP_LONG_BITS<= 16 ))||new_error){ -if(qbevent){evnt(18481);if(r)goto S_21748;} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("qbr_float_to_long(",18),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18481);}while(r); -} -S_21751:; -if (((-(*_FUNC_EVALUATETOTYP_LONG_BITS> 16 ))&(-(*_FUNC_EVALUATETOTYP_LONG_BITS< 32 )))||new_error){ -if(qbevent){evnt(18482);if(r)goto S_21751;} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("qbr_double_to_long(",19),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18482);}while(r); -} -S_21754:; -if ((-(*_FUNC_EVALUATETOTYP_LONG_BITS>= 32 ))||new_error){ -if(qbevent){evnt(18483);if(r)goto S_21754;} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("qbr(",4),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18483);}while(r); -} -} -} -do{ -qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18487);}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free21.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP);return _FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP; -} -int32 FUNC_FINDID(qbs*_FUNC_FINDID_STRING_N2){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data22.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -qbs_set(_FUNC_FINDID_STRING_N,qbs_ucase(_FUNC_FINDID_STRING_N2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18491);}while(r); -S_21761:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_FINDID_STRING_N)== 34 )))||new_error){ -if(qbevent){evnt(18494);if(r)goto S_21761;} -do{ -goto LABEL_NOID; -if(!qbevent)break;evnt(18494);}while(r); -} -do{ -qbs_set(_FUNC_FINDID_STRING_SECONDARG,__STRING_FINDIDSECONDARG); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18497);}while(r); -do{ -qbs_set(__STRING_FINDIDSECONDARG,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18497);}while(r); -do{ -*_FUNC_FINDID_LONG_FINDANOTHER=*__INTEGER_FINDANOTHERID; -if(!qbevent)break;evnt(18500);}while(r); -do{ -*__INTEGER_FINDANOTHERID= 0 ; -if(!qbevent)break;evnt(18500);}while(r); -S_21768:; -if (((-(*_FUNC_FINDID_LONG_FINDANOTHER!= 0 ))&(-(*__LONG_FINDIDINTERNAL!= 2 )))||new_error){ -if(qbevent){evnt(18501);if(r)goto S_21768;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("FINDID() ERROR: Invalid repeat search requested!",48)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18501);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18501);}while(r); -} -S_21772:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(18502);if(r)goto S_21772;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18502);}while(r); -} -do{ -*_FUNC_FINDID_LONG_FINDID= 2 ; -if(!qbevent)break;evnt(18504);}while(r); -do{ -*_FUNC_FINDID_LONG_I= 0 ; -if(!qbevent)break;evnt(18507);}while(r); -do{ -*_FUNC_FINDID_LONG_I=func_instr(NULL,_FUNC_FINDID_STRING_N,qbs_new_txt_len("~",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18508);}while(r); -S_21778:; -if ((*_FUNC_FINDID_LONG_I)||new_error){ -if(qbevent){evnt(18508);if(r)goto S_21778;} -do{ -goto LABEL_GOTSC; -if(!qbevent)break;evnt(18508);}while(r); -} -do{ -*_FUNC_FINDID_LONG_I=func_instr(NULL,_FUNC_FINDID_STRING_N,qbs_new_txt_len("`",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18509);}while(r); -S_21782:; -if ((*_FUNC_FINDID_LONG_I)||new_error){ -if(qbevent){evnt(18509);if(r)goto S_21782;} -do{ -goto LABEL_GOTSC; -if(!qbevent)break;evnt(18509);}while(r); -} -do{ -*_FUNC_FINDID_LONG_I=func_instr(NULL,_FUNC_FINDID_STRING_N,qbs_new_txt_len("%",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18510);}while(r); -S_21786:; -if ((*_FUNC_FINDID_LONG_I)||new_error){ -if(qbevent){evnt(18510);if(r)goto S_21786;} -do{ -goto LABEL_GOTSC; -if(!qbevent)break;evnt(18510);}while(r); -} -do{ -*_FUNC_FINDID_LONG_I=func_instr(NULL,_FUNC_FINDID_STRING_N,qbs_new_txt_len("&",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18511);}while(r); -S_21790:; -if ((*_FUNC_FINDID_LONG_I)||new_error){ -if(qbevent){evnt(18511);if(r)goto S_21790;} -do{ -goto LABEL_GOTSC; -if(!qbevent)break;evnt(18511);}while(r); -} -do{ -*_FUNC_FINDID_LONG_I=func_instr(NULL,_FUNC_FINDID_STRING_N,qbs_new_txt_len("!",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18512);}while(r); -S_21794:; -if ((*_FUNC_FINDID_LONG_I)||new_error){ -if(qbevent){evnt(18512);if(r)goto S_21794;} -do{ -goto LABEL_GOTSC; -if(!qbevent)break;evnt(18512);}while(r); -} -do{ -*_FUNC_FINDID_LONG_I=func_instr(NULL,_FUNC_FINDID_STRING_N,qbs_new_txt_len("#",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18513);}while(r); -S_21798:; -if ((*_FUNC_FINDID_LONG_I)||new_error){ -if(qbevent){evnt(18513);if(r)goto S_21798;} -do{ -goto LABEL_GOTSC; -if(!qbevent)break;evnt(18513);}while(r); -} -do{ -*_FUNC_FINDID_LONG_I=func_instr(NULL,_FUNC_FINDID_STRING_N,qbs_new_txt_len("$",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18514);}while(r); -S_21802:; -if ((*_FUNC_FINDID_LONG_I)||new_error){ -if(qbevent){evnt(18514);if(r)goto S_21802;} -do{ -goto LABEL_GOTSC; -if(!qbevent)break;evnt(18514);}while(r); -} -LABEL_GOTSC:; -if(qbevent){evnt(18515);r=0;} -S_21805:; -if ((*_FUNC_FINDID_LONG_I)||new_error){ -if(qbevent){evnt(18516);if(r)goto S_21805;} -do{ -qbs_set(_FUNC_FINDID_STRING_SC,qbs_right(_FUNC_FINDID_STRING_N,_FUNC_FINDID_STRING_N->len-*_FUNC_FINDID_LONG_I+ 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18517);}while(r); -do{ -qbs_set(_FUNC_FINDID_STRING_N,qbs_left(_FUNC_FINDID_STRING_N,*_FUNC_FINDID_LONG_I- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18517);}while(r); -S_21808:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_FINDID_STRING_SC,qbs_new_txt_len("`",1)))|(qbs_equal(_FUNC_FINDID_STRING_SC,qbs_new_txt_len("~`",2)))))||new_error){ -if(qbevent){evnt(18518);if(r)goto S_21808;} -do{ -qbs_set(_FUNC_FINDID_STRING_SC,qbs_add(_FUNC_FINDID_STRING_SC,qbs_new_txt_len("1",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18518);}while(r); -} -}else{ -} -do{ -qbs_set(_FUNC_FINDID_STRING_INSF,qbs_add(__STRING_SUBFUNC,func_space( 256 -__STRING_SUBFUNC->len))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18529);}while(r); -do{ -qbs_set(_FUNC_FINDID_STRING_SECONDARG,qbs_add(_FUNC_FINDID_STRING_SECONDARG,func_space( 256 -_FUNC_FINDID_STRING_SECONDARG->len))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18530);}while(r); -S_21815:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_FINDID_STRING_SC->len))||new_error){ -if(qbevent){evnt(18531);if(r)goto S_21815;} -do{ -*_FUNC_FINDID_LONG_SCPASSED= 1 ; -if(!qbevent)break;evnt(18531);}while(r); -do{ -qbs_set(_FUNC_FINDID_STRING_SC,qbs_add(_FUNC_FINDID_STRING_SC,func_space( 8 -_FUNC_FINDID_STRING_SC->len))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18531);}while(r); -}else{ -do{ -*_FUNC_FINDID_LONG_SCPASSED= 0 ; -if(!qbevent)break;evnt(18531);}while(r); -} -S_21821:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_FINDID_STRING_N->len< 256 )))||new_error){ -if(qbevent){evnt(18533);if(r)goto S_21821;} -do{ -qbs_set(_FUNC_FINDID_STRING_N,qbs_add(_FUNC_FINDID_STRING_N,func_space( 256 -_FUNC_FINDID_STRING_N->len))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18533);}while(r); -} -do{ -qbs_set(_FUNC_FINDID_STRING_N,qbs_rtrim(_FUNC_FINDID_STRING_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18542);}while(r); -S_21825:; -if ((*_FUNC_FINDID_LONG_FINDANOTHER)||new_error){ -if(qbevent){evnt(18543);if(r)goto S_21825;} -LABEL_HASHRETRY:; -if(qbevent){evnt(18544);r=0;} -do{ -*_FUNC_FINDID_LONG_Z=FUNC_HASHFINDCONT(_FUNC_FINDID_LONG_UNREQUIRED,_FUNC_FINDID_LONG_I); -if(!qbevent)break;evnt(18545);}while(r); -}else{ -do{ -*_FUNC_FINDID_LONG_Z=FUNC_HASHFIND(_FUNC_FINDID_STRING_N,&(pass2754= 1 ),_FUNC_FINDID_LONG_UNREQUIRED,_FUNC_FINDID_LONG_I); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18547);}while(r); -} -do{ -*__LONG_FINDIDINTERNAL=*_FUNC_FINDID_LONG_Z; -if(!qbevent)break;evnt(18549);}while(r); -S_21831:; -if ((-(*_FUNC_FINDID_LONG_Z== 0 ))||new_error){ -if(qbevent){evnt(18550);if(r)goto S_21831;} -do{ -goto LABEL_NOID; -if(!qbevent)break;evnt(18550);}while(r); -} -do{ -*_FUNC_FINDID_LONG_FINDID=*_FUNC_FINDID_LONG_Z; -if(!qbevent)break;evnt(18551);}while(r); -S_21835:; -if (((-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+544))== 0 ))&(-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+2645))== 0 )))||new_error){ -if(qbevent){evnt(18565);if(r)goto S_21835;} -S_21836:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+2385)),256,1),_FUNC_FINDID_STRING_INSF)))||new_error){ -if(qbevent){evnt(18566);if(r)goto S_21836;} -do{ -goto LABEL_FINDIDNOMATCH; -if(!qbevent)break;evnt(18566);}while(r); -} -} -S_21840:; -if ((-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+544))== 2 ))||new_error){ -if(qbevent){evnt(18570);if(r)goto S_21840;} -S_21841:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+1869)),256,1))!= 32 )))||new_error){ -if(qbevent){evnt(18571);if(r)goto S_21841;} -S_21842:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(_FUNC_FINDID_STRING_SECONDARG),qbs_ucase(qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+1869)),256,1))))))||new_error){ -if(qbevent){evnt(18572);if(r)goto S_21842;} -S_21843:; -}else{ -if (qbs_cleanup(qbs_tmp_base,(-(*__LONG_QB64PREFIX_SET== 1 ))&(qbs_equal(qbs_left(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+1869)),256,1), 1 ),qbs_new_txt_len("_",1)))&(qbs_notequal(qbs_left(_FUNC_FINDID_STRING_SECONDARG, 1 ),qbs_new_txt_len("_",1)))&(qbs_equal(qbs_rtrim(_FUNC_FINDID_STRING_SECONDARG),qbs_ucase(func_mid(qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+1869)),256,1)), 2 ,NULL,0)))))){ -if(qbevent){evnt(18573);if(r)goto S_21843;} -}else{ -do{ -goto LABEL_FINDIDNOMATCH; -if(!qbevent)break;evnt(18575);}while(r); -} -} -} -S_21848:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+2125)),256,1))!= 32 )))||new_error){ -if(qbevent){evnt(18578);if(r)goto S_21848;} -S_21849:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_rtrim(_FUNC_FINDID_STRING_SECONDARG),qbs_ucase(qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+2125)),256,1))))))||new_error){ -if(qbevent){evnt(18579);if(r)goto S_21849;} -S_21850:; -}else{ -if (qbs_cleanup(qbs_tmp_base,(-(*__LONG_QB64PREFIX_SET== 1 ))&(qbs_equal(qbs_left(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+2125)),256,1), 1 ),qbs_new_txt_len("_",1)))&(qbs_notequal(qbs_left(_FUNC_FINDID_STRING_SECONDARG, 1 ),qbs_new_txt_len("_",1)))&(qbs_notequal(qbs_rtrim(_FUNC_FINDID_STRING_SECONDARG),qbs_ucase(func_mid(qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+2125)),256,1)), 2 ,NULL,0)))))){ -if(qbevent){evnt(18580);if(r)goto S_21850;} -}else{ -do{ -goto LABEL_FINDIDNOMATCH; -if(!qbevent)break;evnt(18582);}while(r); -} -} -} -} -do{ -*_FUNC_FINDID_LONG_IMUSTHAVE=string2i(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+528)),8,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18589);}while(r); -do{ -*_FUNC_FINDID_LONG_AMUSTHAVE=*_FUNC_FINDID_LONG_IMUSTHAVE& 255 ; -if(!qbevent)break;evnt(18590);}while(r); -S_21858:; -if ((-(*_FUNC_FINDID_LONG_AMUSTHAVE!= 32 ))||new_error){ -if(qbevent){evnt(18591);if(r)goto S_21858;} -S_21859:; -if ((*_FUNC_FINDID_LONG_SCPASSED)||new_error){ -if(qbevent){evnt(18592);if(r)goto S_21859;} -S_21860:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_FINDID_STRING_SC,qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+528)),8,1))))||new_error){ -if(qbevent){evnt(18593);if(r)goto S_21860;} -do{ -goto LABEL_FINDIDOK; -if(!qbevent)break;evnt(18593);}while(r); -} -} -do{ -goto LABEL_FINDIDNOMATCH; -if(!qbevent)break;evnt(18604);}while(r); -} -S_21866:; -if ((*_FUNC_FINDID_LONG_SCPASSED)||new_error){ -if(qbevent){evnt(18610);if(r)goto S_21866;} -do{ -*_FUNC_FINDID_LONG_IMAYHAVE=string2i(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+520)),8,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18611);}while(r); -do{ -*_FUNC_FINDID_LONG_AMAYHAVE=*_FUNC_FINDID_LONG_IMAYHAVE& 255 ; -if(!qbevent)break;evnt(18612);}while(r); -S_21869:; -if ((-(*_FUNC_FINDID_LONG_AMAYHAVE== 32 ))||new_error){ -if(qbevent){evnt(18613);if(r)goto S_21869;} -do{ -goto LABEL_FINDIDNOMATCH; -if(!qbevent)break;evnt(18613);}while(r); -} -S_21872:; -if ((-(*_FUNC_FINDID_LONG_AMAYHAVE== 36 ))||new_error){ -if(qbevent){evnt(18616);if(r)goto S_21872;} -S_21873:; -if ((-(*_FUNC_FINDID_LONG_IMAYHAVE!= 8228 ))||new_error){ -if(qbevent){evnt(18617);if(r)goto S_21873;} -S_21874:; -if ((qbs_cleanup(qbs_tmp_base,-(string2i(_FUNC_FINDID_STRING_SC)== 8228 )))||new_error){ -if(qbevent){evnt(18619);if(r)goto S_21874;} -do{ -goto LABEL_FINDIDOK; -if(!qbevent)break;evnt(18619);}while(r); -} -} -} -S_21879:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_FINDID_STRING_SC,qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+520)),8,1))))||new_error){ -if(qbevent){evnt(18623);if(r)goto S_21879;} -do{ -goto LABEL_FINDIDNOMATCH; -if(!qbevent)break;evnt(18623);}while(r); -} -} -LABEL_FINDIDOK:; -if(qbevent){evnt(18627);r=0;} -do{ -memcpy((((char*)__UDT_ID)+(0)+ 0),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 0), 256); -memcpy((((char*)__UDT_ID)+(0)+ 256),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 256), 256); -memcpy((((char*)__UDT_ID)+(0)+ 512),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 512), 4); -memcpy((((char*)__UDT_ID)+(0)+ 516),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 516), 2); -memcpy((((char*)__UDT_ID)+(0)+ 518),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 518), 2); -memcpy((((char*)__UDT_ID)+(0)+ 520),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 520), 8); -memcpy((((char*)__UDT_ID)+(0)+ 528),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 528), 8); -memcpy((((char*)__UDT_ID)+(0)+ 536),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 536), 4); -memcpy((((char*)__UDT_ID)+(0)+ 540),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 540), 4); -memcpy((((char*)__UDT_ID)+(0)+ 544),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 544), 2); -memcpy((((char*)__UDT_ID)+(0)+ 546),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 546), 2); -memcpy((((char*)__UDT_ID)+(0)+ 548),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 548), 2); -memcpy((((char*)__UDT_ID)+(0)+ 550),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 550), 256); -memcpy((((char*)__UDT_ID)+(0)+ 806),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 806), 2); -memcpy((((char*)__UDT_ID)+(0)+ 808),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 808), 1); -memcpy((((char*)__UDT_ID)+(0)+ 809),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 809), 2); -memcpy((((char*)__UDT_ID)+(0)+ 811),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 811), 2); -memcpy((((char*)__UDT_ID)+(0)+ 813),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 813), 400); -memcpy((((char*)__UDT_ID)+(0)+ 1213),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 1213), 400); -memcpy((((char*)__UDT_ID)+(0)+ 1613),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 1613), 256); -memcpy((((char*)__UDT_ID)+(0)+ 1869),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 1869), 256); -memcpy((((char*)__UDT_ID)+(0)+ 2125),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2125), 256); -memcpy((((char*)__UDT_ID)+(0)+ 2381),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2381), 4); -memcpy((((char*)__UDT_ID)+(0)+ 2385),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2385), 256); -memcpy((((char*)__UDT_ID)+(0)+ 2641),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2641), 4); -memcpy((((char*)__UDT_ID)+(0)+ 2645),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2645), 2); -memcpy((((char*)__UDT_ID)+(0)+ 2647),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2647), 100); -memcpy((((char*)__UDT_ID)+(0)+ 2747),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2747), 100); -memcpy((((char*)__UDT_ID)+(0)+ 2847),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2847), 4); -memcpy((((char*)__UDT_ID)+(0)+ 2851),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2851), 2); -memcpy((((char*)__UDT_ID)+(0)+ 2853),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2853), 2); -memcpy((((char*)__UDT_ID)+(0)+ 2855),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2855), 4); -memcpy((((char*)__UDT_ID)+(0)+ 2859),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2859), 2); -qbs_set(*(qbs**)(((char*)__UDT_ID)+(0)+ 2861), *(qbs**)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2861)); -if(!qbevent)break;evnt(18629);}while(r); -do{ -*_FUNC_FINDID_LONG_T=*(int32*)(((char*)__UDT_ID)+(536)); -if(!qbevent)break;evnt(18631);}while(r); -do{ -qbs_set(_FUNC_FINDID_STRING_TEMP,FUNC_REFER(FUNC_STR2(_FUNC_FINDID_LONG_I),_FUNC_FINDID_LONG_T,&(pass2755= 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18632);}while(r); -do{ -SUB_MANAGEVARIABLELIST(qbs_new_txt_len("",0),_FUNC_FINDID_STRING_TEMP,&(pass2756= 0 ),&(pass2757= 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18633);}while(r); -do{ -*__LONG_CURRENTID=*_FUNC_FINDID_LONG_I; -if(!qbevent)break;evnt(18634);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18635);}while(r); -LABEL_FINDIDNOMATCH:; -if(qbevent){evnt(18638);r=0;} -S_21889:; -if ((-(*_FUNC_FINDID_LONG_Z== 2 ))||new_error){ -if(qbevent){evnt(18640);if(r)goto S_21889;} -do{ -goto LABEL_HASHRETRY; -if(!qbevent)break;evnt(18640);}while(r); -} -LABEL_NOID:; -if(qbevent){evnt(18643);r=0;} -do{ -*_FUNC_FINDID_LONG_FINDID= 0 ; -if(!qbevent)break;evnt(18644);}while(r); -do{ -*__LONG_CURRENTID= -1 ; -if(!qbevent)break;evnt(18645);}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free22.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -return *_FUNC_FINDID_LONG_FINDID; -} -int32 FUNC_FINDARRAY(qbs*_FUNC_FINDARRAY_STRING_SECURE){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data23.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -*_FUNC_FINDARRAY_LONG_FINDARRAY= -1 ; -if(!qbevent)break;evnt(18649);}while(r); -do{ -qbs_set(_FUNC_FINDARRAY_STRING_N,_FUNC_FINDARRAY_STRING_SECURE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18650);}while(r); -S_21896:; -if (( 0 )||new_error){ -if(qbevent){evnt(18651);if(r)goto S_21896;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2759; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("func findarray:in:",18),_FUNC_FINDARRAY_STRING_N), 0, 0, 1); -if (new_error) goto skip2759; -skip2759: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(18651);}while(r); -} -S_21899:; -if ((qbs_cleanup(qbs_tmp_base,-(((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(_FUNC_FINDARRAY_STRING_N))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]== 0 )))||new_error){ -if(qbevent){evnt(18652);if(r)goto S_21899;} -do{ -*_FUNC_FINDARRAY_LONG_FINDARRAY= 0 ; -if(!qbevent)break;evnt(18652);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18652);}while(r); -} -do{ -*_FUNC_FINDARRAY_LONG_I=func_instr(NULL,_FUNC_FINDARRAY_STRING_N,qbs_new_txt_len("~",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18655);}while(r); -S_21904:; -if ((*_FUNC_FINDARRAY_LONG_I)||new_error){ -if(qbevent){evnt(18655);if(r)goto S_21904;} -do{ -qbs_set(_FUNC_FINDARRAY_STRING_SC,qbs_right(_FUNC_FINDARRAY_STRING_N,_FUNC_FINDARRAY_STRING_N->len-*_FUNC_FINDARRAY_LONG_I+ 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18655);}while(r); -do{ -qbs_set(_FUNC_FINDARRAY_STRING_N,qbs_left(_FUNC_FINDARRAY_STRING_N,*_FUNC_FINDARRAY_LONG_I- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18655);}while(r); -do{ -goto LABEL_GOTSC2; -if(!qbevent)break;evnt(18655);}while(r); -} -do{ -*_FUNC_FINDARRAY_LONG_I=func_instr(NULL,_FUNC_FINDARRAY_STRING_N,qbs_new_txt_len("`",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18656);}while(r); -S_21910:; -if ((*_FUNC_FINDARRAY_LONG_I)||new_error){ -if(qbevent){evnt(18656);if(r)goto S_21910;} -do{ -qbs_set(_FUNC_FINDARRAY_STRING_SC,qbs_right(_FUNC_FINDARRAY_STRING_N,_FUNC_FINDARRAY_STRING_N->len-*_FUNC_FINDARRAY_LONG_I+ 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18656);}while(r); -do{ -qbs_set(_FUNC_FINDARRAY_STRING_N,qbs_left(_FUNC_FINDARRAY_STRING_N,*_FUNC_FINDARRAY_LONG_I- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18656);}while(r); -do{ -goto LABEL_GOTSC2; -if(!qbevent)break;evnt(18656);}while(r); -} -do{ -*_FUNC_FINDARRAY_LONG_I=func_instr(NULL,_FUNC_FINDARRAY_STRING_N,qbs_new_txt_len("%",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18657);}while(r); -S_21916:; -if ((*_FUNC_FINDARRAY_LONG_I)||new_error){ -if(qbevent){evnt(18657);if(r)goto S_21916;} -do{ -qbs_set(_FUNC_FINDARRAY_STRING_SC,qbs_right(_FUNC_FINDARRAY_STRING_N,_FUNC_FINDARRAY_STRING_N->len-*_FUNC_FINDARRAY_LONG_I+ 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18657);}while(r); -do{ -qbs_set(_FUNC_FINDARRAY_STRING_N,qbs_left(_FUNC_FINDARRAY_STRING_N,*_FUNC_FINDARRAY_LONG_I- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18657);}while(r); -do{ -goto LABEL_GOTSC2; -if(!qbevent)break;evnt(18657);}while(r); -} -do{ -*_FUNC_FINDARRAY_LONG_I=func_instr(NULL,_FUNC_FINDARRAY_STRING_N,qbs_new_txt_len("&",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18658);}while(r); -S_21922:; -if ((*_FUNC_FINDARRAY_LONG_I)||new_error){ -if(qbevent){evnt(18658);if(r)goto S_21922;} -do{ -qbs_set(_FUNC_FINDARRAY_STRING_SC,qbs_right(_FUNC_FINDARRAY_STRING_N,_FUNC_FINDARRAY_STRING_N->len-*_FUNC_FINDARRAY_LONG_I+ 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18658);}while(r); -do{ -qbs_set(_FUNC_FINDARRAY_STRING_N,qbs_left(_FUNC_FINDARRAY_STRING_N,*_FUNC_FINDARRAY_LONG_I- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18658);}while(r); -do{ -goto LABEL_GOTSC2; -if(!qbevent)break;evnt(18658);}while(r); -} -do{ -*_FUNC_FINDARRAY_LONG_I=func_instr(NULL,_FUNC_FINDARRAY_STRING_N,qbs_new_txt_len("!",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18659);}while(r); -S_21928:; -if ((*_FUNC_FINDARRAY_LONG_I)||new_error){ -if(qbevent){evnt(18659);if(r)goto S_21928;} -do{ -qbs_set(_FUNC_FINDARRAY_STRING_SC,qbs_right(_FUNC_FINDARRAY_STRING_N,_FUNC_FINDARRAY_STRING_N->len-*_FUNC_FINDARRAY_LONG_I+ 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18659);}while(r); -do{ -qbs_set(_FUNC_FINDARRAY_STRING_N,qbs_left(_FUNC_FINDARRAY_STRING_N,*_FUNC_FINDARRAY_LONG_I- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18659);}while(r); -do{ -goto LABEL_GOTSC2; -if(!qbevent)break;evnt(18659);}while(r); -} -do{ -*_FUNC_FINDARRAY_LONG_I=func_instr(NULL,_FUNC_FINDARRAY_STRING_N,qbs_new_txt_len("#",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18660);}while(r); -S_21934:; -if ((*_FUNC_FINDARRAY_LONG_I)||new_error){ -if(qbevent){evnt(18660);if(r)goto S_21934;} -do{ -qbs_set(_FUNC_FINDARRAY_STRING_SC,qbs_right(_FUNC_FINDARRAY_STRING_N,_FUNC_FINDARRAY_STRING_N->len-*_FUNC_FINDARRAY_LONG_I+ 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18660);}while(r); -do{ -qbs_set(_FUNC_FINDARRAY_STRING_N,qbs_left(_FUNC_FINDARRAY_STRING_N,*_FUNC_FINDARRAY_LONG_I- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18660);}while(r); -do{ -goto LABEL_GOTSC2; -if(!qbevent)break;evnt(18660);}while(r); -} -do{ -*_FUNC_FINDARRAY_LONG_I=func_instr(NULL,_FUNC_FINDARRAY_STRING_N,qbs_new_txt_len("$",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18661);}while(r); -S_21940:; -if ((*_FUNC_FINDARRAY_LONG_I)||new_error){ -if(qbevent){evnt(18661);if(r)goto S_21940;} -do{ -qbs_set(_FUNC_FINDARRAY_STRING_SC,qbs_right(_FUNC_FINDARRAY_STRING_N,_FUNC_FINDARRAY_STRING_N->len-*_FUNC_FINDARRAY_LONG_I+ 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18661);}while(r); -do{ -qbs_set(_FUNC_FINDARRAY_STRING_N,qbs_left(_FUNC_FINDARRAY_STRING_N,*_FUNC_FINDARRAY_LONG_I- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18661);}while(r); -do{ -goto LABEL_GOTSC2; -if(!qbevent)break;evnt(18661);}while(r); -} -LABEL_GOTSC2:; -if(qbevent){evnt(18662);r=0;} -do{ -qbs_set(_FUNC_FINDARRAY_STRING_N2,qbs_add(_FUNC_FINDARRAY_STRING_N,_FUNC_FINDARRAY_STRING_SC)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18663);}while(r); -S_21946:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_FINDARRAY_STRING_SC,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(18665);if(r)goto S_21946;} -do{ -*_FUNC_FINDARRAY_LONG_TRY=FUNC_FINDID(_FUNC_FINDARRAY_STRING_N2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18668);}while(r); -S_21948:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(18668);if(r)goto S_21948;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18668);}while(r); -} -S_21951:; -while((*_FUNC_FINDARRAY_LONG_TRY)||new_error){ -if(qbevent){evnt(18669);if(r)goto S_21951;} -S_21952:; -if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ -if(qbevent){evnt(18670);if(r)goto S_21952;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18671);}while(r); -} -S_21955:; -if ((-(*_FUNC_FINDARRAY_LONG_TRY== 2 ))||new_error){ -if(qbevent){evnt(18673);if(r)goto S_21955;} -do{ -*__INTEGER_FINDANOTHERID= 1 ; -if(!qbevent)break;evnt(18673);}while(r); -do{ -*_FUNC_FINDARRAY_LONG_TRY=FUNC_FINDID(_FUNC_FINDARRAY_STRING_N2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18673);}while(r); -}else{ -do{ -*_FUNC_FINDARRAY_LONG_TRY= 0 ; -if(!qbevent)break;evnt(18673);}while(r); -} -S_21961:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(18674);if(r)goto S_21961;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18674);}while(r); -} -dl_continue_2767:; -} -dl_exit_2767:; -}else{ -do{ -*_FUNC_FINDARRAY_LONG_TRY=FUNC_FINDID(_FUNC_FINDARRAY_STRING_N2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18681);}while(r); -S_21967:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(18681);if(r)goto S_21967;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18681);}while(r); -} -S_21970:; -while((*_FUNC_FINDARRAY_LONG_TRY)||new_error){ -if(qbevent){evnt(18682);if(r)goto S_21970;} -S_21971:; -if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ -if(qbevent){evnt(18683);if(r)goto S_21971;} -S_21972:; -if ((-(*__LONG_SUBFUNCN== 0 ))||new_error){ -if(qbevent){evnt(18684);if(r)goto S_21972;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18684);}while(r); -} -S_21975:; -if ((-(*(int32*)(((char*)__UDT_ID)+(2641))==*__LONG_SUBFUNCN))||new_error){ -if(qbevent){evnt(18685);if(r)goto S_21975;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18685);}while(r); -} -} -S_21979:; -if ((-(*_FUNC_FINDARRAY_LONG_TRY== 2 ))||new_error){ -if(qbevent){evnt(18687);if(r)goto S_21979;} -do{ -*__INTEGER_FINDANOTHERID= 1 ; -if(!qbevent)break;evnt(18687);}while(r); -do{ -*_FUNC_FINDARRAY_LONG_TRY=FUNC_FINDID(_FUNC_FINDARRAY_STRING_N2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18687);}while(r); -}else{ -do{ -*_FUNC_FINDARRAY_LONG_TRY= 0 ; -if(!qbevent)break;evnt(18687);}while(r); -} -S_21985:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(18688);if(r)goto S_21985;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18688);}while(r); -} -dl_continue_2768:; -} -dl_exit_2768:; -do{ -*_FUNC_FINDARRAY_LONG_A=qbs_asc(qbs_ucase(_FUNC_FINDARRAY_STRING_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18692);}while(r); -S_21990:; -if ((-(*_FUNC_FINDARRAY_LONG_A== 95 ))||new_error){ -if(qbevent){evnt(18692);if(r)goto S_21990;} -do{ -*_FUNC_FINDARRAY_LONG_A= 91 ; -if(!qbevent)break;evnt(18692);}while(r); -} -do{ -*_FUNC_FINDARRAY_LONG_A=*_FUNC_FINDARRAY_LONG_A- 64 ; -if(!qbevent)break;evnt(18693);}while(r); -do{ -qbs_set(_FUNC_FINDARRAY_STRING_N2,qbs_add(_FUNC_FINDARRAY_STRING_N,((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEEXTAZ[0]))[array_check((*_FUNC_FINDARRAY_LONG_A)-__ARRAY_STRING_DEFINEEXTAZ[4],__ARRAY_STRING_DEFINEEXTAZ[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18694);}while(r); -do{ -*_FUNC_FINDARRAY_LONG_TRY=FUNC_FINDID(_FUNC_FINDARRAY_STRING_N2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18695);}while(r); -S_21996:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(18695);if(r)goto S_21996;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18695);}while(r); -} -S_21999:; -while((*_FUNC_FINDARRAY_LONG_TRY)||new_error){ -if(qbevent){evnt(18696);if(r)goto S_21999;} -S_22000:; -if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ -if(qbevent){evnt(18697);if(r)goto S_22000;} -S_22001:; -if ((-(*__LONG_SUBFUNCN== 0 ))||new_error){ -if(qbevent){evnt(18698);if(r)goto S_22001;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18698);}while(r); -} -S_22004:; -if ((-(*(int32*)(((char*)__UDT_ID)+(2641))==*__LONG_SUBFUNCN))||new_error){ -if(qbevent){evnt(18699);if(r)goto S_22004;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18699);}while(r); -} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18700);}while(r); -} -S_22009:; -if ((-(*_FUNC_FINDARRAY_LONG_TRY== 2 ))||new_error){ -if(qbevent){evnt(18702);if(r)goto S_22009;} -do{ -*__INTEGER_FINDANOTHERID= 1 ; -if(!qbevent)break;evnt(18702);}while(r); -do{ -*_FUNC_FINDARRAY_LONG_TRY=FUNC_FINDID(_FUNC_FINDARRAY_STRING_N2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18702);}while(r); -}else{ -do{ -*_FUNC_FINDARRAY_LONG_TRY= 0 ; -if(!qbevent)break;evnt(18702);}while(r); -} -S_22015:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(18703);if(r)goto S_22015;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18703);}while(r); -} -dl_continue_2769:; -} -dl_exit_2769:; -do{ -qbs_set(_FUNC_FINDARRAY_STRING_N2,_FUNC_FINDARRAY_STRING_N); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18707);}while(r); -do{ -*_FUNC_FINDARRAY_LONG_TRY=FUNC_FINDID(_FUNC_FINDARRAY_STRING_N2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18708);}while(r); -S_22021:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(18708);if(r)goto S_22021;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18708);}while(r); -} -S_22024:; -while((*_FUNC_FINDARRAY_LONG_TRY)||new_error){ -if(qbevent){evnt(18709);if(r)goto S_22024;} -S_22025:; -if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ -if(qbevent){evnt(18710);if(r)goto S_22025;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18711);}while(r); -} -S_22028:; -if ((-(*_FUNC_FINDARRAY_LONG_TRY== 2 ))||new_error){ -if(qbevent){evnt(18713);if(r)goto S_22028;} -do{ -*__INTEGER_FINDANOTHERID= 1 ; -if(!qbevent)break;evnt(18713);}while(r); -do{ -*_FUNC_FINDARRAY_LONG_TRY=FUNC_FINDID(_FUNC_FINDARRAY_STRING_N2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18713);}while(r); -}else{ -do{ -*_FUNC_FINDARRAY_LONG_TRY= 0 ; -if(!qbevent)break;evnt(18713);}while(r); -} -S_22034:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(18714);if(r)goto S_22034;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18714);}while(r); -} -dl_continue_2770:; -} -dl_exit_2770:; -do{ -*_FUNC_FINDARRAY_LONG_A=qbs_asc(qbs_ucase(_FUNC_FINDARRAY_STRING_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18718);}while(r); -S_22039:; -if ((-(*_FUNC_FINDARRAY_LONG_A== 95 ))||new_error){ -if(qbevent){evnt(18718);if(r)goto S_22039;} -do{ -*_FUNC_FINDARRAY_LONG_A= 91 ; -if(!qbevent)break;evnt(18718);}while(r); -} -do{ -*_FUNC_FINDARRAY_LONG_A=*_FUNC_FINDARRAY_LONG_A- 64 ; -if(!qbevent)break;evnt(18719);}while(r); -do{ -qbs_set(_FUNC_FINDARRAY_STRING_N2,qbs_add(_FUNC_FINDARRAY_STRING_N,((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEEXTAZ[0]))[array_check((*_FUNC_FINDARRAY_LONG_A)-__ARRAY_STRING_DEFINEEXTAZ[4],__ARRAY_STRING_DEFINEEXTAZ[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18720);}while(r); -do{ -*_FUNC_FINDARRAY_LONG_TRY=FUNC_FINDID(_FUNC_FINDARRAY_STRING_N2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18721);}while(r); -S_22045:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(18721);if(r)goto S_22045;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18721);}while(r); -} -S_22048:; -while((*_FUNC_FINDARRAY_LONG_TRY)||new_error){ -if(qbevent){evnt(18722);if(r)goto S_22048;} -S_22049:; -if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ -if(qbevent){evnt(18723);if(r)goto S_22049;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18724);}while(r); -} -S_22052:; -if ((-(*_FUNC_FINDARRAY_LONG_TRY== 2 ))||new_error){ -if(qbevent){evnt(18726);if(r)goto S_22052;} -do{ -*__INTEGER_FINDANOTHERID= 1 ; -if(!qbevent)break;evnt(18726);}while(r); -do{ -*_FUNC_FINDARRAY_LONG_TRY=FUNC_FINDID(_FUNC_FINDARRAY_STRING_N2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18726);}while(r); -}else{ -do{ -*_FUNC_FINDARRAY_LONG_TRY= 0 ; -if(!qbevent)break;evnt(18726);}while(r); -} -S_22058:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(18727);if(r)goto S_22058;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18727);}while(r); -} -dl_continue_2771:; -} -dl_exit_2771:; -} -do{ -*_FUNC_FINDARRAY_LONG_FINDARRAY= 0 ; -if(!qbevent)break;evnt(18731);}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free23.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -return *_FUNC_FINDARRAY_LONG_FINDARRAY; -} -qbs* FUNC_FIXOPERATIONORDER(qbs*_FUNC_FIXOPERATIONORDER_STRING_SAVEA){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data24.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -if(!qbevent)break;evnt(18739);}while(r); -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_STRING_SAVEA); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18741);}while(r); -S_22066:; -if (( 0 )||new_error){ -if(qbevent){evnt(18742);if(r)goto S_22066;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2773; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("fixoperationorder:in:",21),_FUNC_FIXOPERATIONORDER_STRING_A), 0, 0, 1); -if (new_error) goto skip2773; -skip2773: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(18742);}while(r); -} -do{ -*__LONG_FOOINDWEL=*__LONG_FOOINDWEL+ 1 ; -if(!qbevent)break;evnt(18744);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_N=FUNC_NUMELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18746);}while(r); -S_22071:; -if ((-(*__LONG_FOOINDWEL== 1 ))||new_error){ -if(qbevent){evnt(18748);if(r)goto S_22071;} -do{ -*_FUNC_FIXOPERATIONORDER_BYTE_UBOUNDLBOUND= 0 ; -if(!qbevent)break;evnt(18749);}while(r); -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_UPPERCASEA,qbs_ucase(_FUNC_FIXOPERATIONORDER_STRING_A)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18752);}while(r); -S_22074:; -fornext_value2775= 1 ; -fornext_finalvalue2775=*_FUNC_FIXOPERATIONORDER_LONG_N- 1 ; -fornext_step2775= 1 ; -if (fornext_step2775<0) fornext_step_negative2775=1; else fornext_step_negative2775=0; -if (new_error) goto fornext_error2775; -goto fornext_entrylabel2775; -while(1){ -fornext_value2775=fornext_step2775+(*_FUNC_FIXOPERATIONORDER_LONG_I); -fornext_entrylabel2775: -*_FUNC_FIXOPERATIONORDER_LONG_I=fornext_value2775; -if (fornext_step_negative2775){ -if (fornext_value2775fornext_finalvalue2775) break; -} -fornext_error2775:; -if(qbevent){evnt(18753);if(r)goto S_22074;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_TEMP1,FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_UPPERCASEA,_FUNC_FIXOPERATIONORDER_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18754);}while(r); -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_TEMP2,FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_UPPERCASEA,&(pass2776=*_FUNC_FIXOPERATIONORDER_LONG_I+ 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18755);}while(r); -S_22077:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_TEMP1,qbs_new_txt_len("AND",3)))&(qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_TEMP2,qbs_new_txt_len("AND",3)))))||new_error){ -if(qbevent){evnt(18756);if(r)goto S_22077;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Error: AND AND",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18756);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18756);}while(r); -} -S_22081:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_TEMP1,qbs_new_txt_len("OR",2)))&(qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_TEMP2,qbs_new_txt_len("OR",2)))))||new_error){ -if(qbevent){evnt(18757);if(r)goto S_22081;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Error: OR OR",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18757);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18757);}while(r); -} -S_22085:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_TEMP1,qbs_new_txt_len("XOR",3)))&(qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_TEMP2,qbs_new_txt_len("XOR",3)))))||new_error){ -if(qbevent){evnt(18758);if(r)goto S_22085;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Error: XOR XOR",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18758);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18758);}while(r); -} -S_22089:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_TEMP1,qbs_new_txt_len("IMP",3)))&(qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_TEMP2,qbs_new_txt_len("IMP",3)))))||new_error){ -if(qbevent){evnt(18759);if(r)goto S_22089;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Error: IMP IMP",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18759);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18759);}while(r); -} -S_22093:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_TEMP1,qbs_new_txt_len("EQV",3)))&(qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_TEMP2,qbs_new_txt_len("EQV",3)))))||new_error){ -if(qbevent){evnt(18760);if(r)goto S_22093;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Error: EQV EQV",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18760);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18760);}while(r); -} -fornext_continue_2774:; -} -fornext_exit_2774:; -do{ -*_FUNC_FIXOPERATIONORDER_LONG_B= 0 ; -if(!qbevent)break;evnt(18764);}while(r); -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A2,qbs_add(qbs_add(__STRING1_SP,_FUNC_FIXOPERATIONORDER_STRING_A),__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18765);}while(r); -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_B1,qbs_add(qbs_add(__STRING1_SP,qbs_new_txt_len("(",1)),__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18766);}while(r); -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_B2,qbs_add(qbs_add(__STRING1_SP,qbs_new_txt_len(")",1)),__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18767);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_I= 1 ; -if(!qbevent)break;evnt(18768);}while(r); -LABEL_FINDMMB:; -if(qbevent){evnt(18769);r=0;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_I1=func_instr(*_FUNC_FIXOPERATIONORDER_LONG_I,_FUNC_FIXOPERATIONORDER_STRING_A2,_FUNC_FIXOPERATIONORDER_STRING_B1,0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18770);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_I2=func_instr(*_FUNC_FIXOPERATIONORDER_LONG_I,_FUNC_FIXOPERATIONORDER_STRING_A2,_FUNC_FIXOPERATIONORDER_STRING_B2,0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18771);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_I3=*_FUNC_FIXOPERATIONORDER_LONG_I1; -if(!qbevent)break;evnt(18772);}while(r); -S_22106:; -if ((*_FUNC_FIXOPERATIONORDER_LONG_I2)||new_error){ -if(qbevent){evnt(18773);if(r)goto S_22106;} -S_22107:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_I1== 0 ))||new_error){ -if(qbevent){evnt(18774);if(r)goto S_22107;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_I3=*_FUNC_FIXOPERATIONORDER_LONG_I2; -if(!qbevent)break;evnt(18775);}while(r); -}else{ -S_22110:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_I2<*_FUNC_FIXOPERATIONORDER_LONG_I1))||new_error){ -if(qbevent){evnt(18777);if(r)goto S_22110;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_I3=*_FUNC_FIXOPERATIONORDER_LONG_I2; -if(!qbevent)break;evnt(18777);}while(r); -} -} -} -S_22115:; -if ((*_FUNC_FIXOPERATIONORDER_LONG_I3)||new_error){ -if(qbevent){evnt(18780);if(r)goto S_22115;} -S_22116:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_I3==*_FUNC_FIXOPERATIONORDER_LONG_I1))||new_error){ -if(qbevent){evnt(18781);if(r)goto S_22116;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_B=*_FUNC_FIXOPERATIONORDER_LONG_B+ 1 ; -if(!qbevent)break;evnt(18781);}while(r); -} -S_22119:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_I3==*_FUNC_FIXOPERATIONORDER_LONG_I2))||new_error){ -if(qbevent){evnt(18782);if(r)goto S_22119;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_B=*_FUNC_FIXOPERATIONORDER_LONG_B- 1 ; -if(!qbevent)break;evnt(18782);}while(r); -} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_I=*_FUNC_FIXOPERATIONORDER_LONG_I3+ 2 ; -if(!qbevent)break;evnt(18783);}while(r); -S_22123:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_B< 0 ))||new_error){ -if(qbevent){evnt(18784);if(r)goto S_22123;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Missing (",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18784);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18784);}while(r); -} -do{ -goto LABEL_FINDMMB; -if(!qbevent)break;evnt(18785);}while(r); -} -S_22129:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_B> 0 ))||new_error){ -if(qbevent){evnt(18787);if(r)goto S_22129;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Missing )",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18787);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18787);}while(r); -} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A2,qbs_add(qbs_add(__STRING1_SP,_FUNC_FIXOPERATIONORDER_STRING_A),__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18791);}while(r); -LABEL_RULE1:; -if(qbevent){evnt(18794);r=0;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_I=func_instr(NULL,_FUNC_FIXOPERATIONORDER_STRING_A2,qbs_add(qbs_add(qbs_add(qbs_add(__STRING1_SP,qbs_new_txt_len("+",1)),__STRING1_SP),qbs_new_txt_len("+",1)),__STRING1_SP),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18795);}while(r); -S_22135:; -if ((*_FUNC_FIXOPERATIONORDER_LONG_I)||new_error){ -if(qbevent){evnt(18796);if(r)goto S_22135;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A2,qbs_add(qbs_left(_FUNC_FIXOPERATIONORDER_STRING_A2,*_FUNC_FIXOPERATIONORDER_LONG_I+ 2 ),qbs_right(_FUNC_FIXOPERATIONORDER_STRING_A2,_FUNC_FIXOPERATIONORDER_STRING_A2->len-*_FUNC_FIXOPERATIONORDER_LONG_I- 4 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18797);}while(r); -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A,func_mid(_FUNC_FIXOPERATIONORDER_STRING_A2, 2 ,_FUNC_FIXOPERATIONORDER_STRING_A2->len- 2 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18798);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_N=*_FUNC_FIXOPERATIONORDER_LONG_N- 1 ; -if(!qbevent)break;evnt(18799);}while(r); -S_22139:; -if (( 0 )||new_error){ -if(qbevent){evnt(18800);if(r)goto S_22139;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2779; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("fixoperationorder:+/-:",22),_FUNC_FIXOPERATIONORDER_STRING_A), 0, 0, 1); -if (new_error) goto skip2779; -skip2779: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(18800);}while(r); -} -do{ -goto LABEL_RULE1; -if(!qbevent)break;evnt(18801);}while(r); -} -LABEL_RULE2:; -if(qbevent){evnt(18805);r=0;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_I=func_instr(NULL,_FUNC_FIXOPERATIONORDER_STRING_A2,qbs_add(qbs_add(qbs_add(qbs_add(__STRING1_SP,qbs_new_txt_len("-",1)),__STRING1_SP),qbs_new_txt_len("+",1)),__STRING1_SP),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18806);}while(r); -S_22145:; -if ((*_FUNC_FIXOPERATIONORDER_LONG_I)||new_error){ -if(qbevent){evnt(18807);if(r)goto S_22145;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A2,qbs_add(qbs_left(_FUNC_FIXOPERATIONORDER_STRING_A2,*_FUNC_FIXOPERATIONORDER_LONG_I+ 2 ),qbs_right(_FUNC_FIXOPERATIONORDER_STRING_A2,_FUNC_FIXOPERATIONORDER_STRING_A2->len-*_FUNC_FIXOPERATIONORDER_LONG_I- 4 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18808);}while(r); -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A,func_mid(_FUNC_FIXOPERATIONORDER_STRING_A2, 2 ,_FUNC_FIXOPERATIONORDER_STRING_A2->len- 2 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18809);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_N=*_FUNC_FIXOPERATIONORDER_LONG_N- 1 ; -if(!qbevent)break;evnt(18810);}while(r); -S_22149:; -if (( 0 )||new_error){ -if(qbevent){evnt(18811);if(r)goto S_22149;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2782; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("fixoperationorder:+/-:",22),_FUNC_FIXOPERATIONORDER_STRING_A), 0, 0, 1); -if (new_error) goto skip2782; -skip2782: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(18811);}while(r); -} -do{ -goto LABEL_RULE2; -if(!qbevent)break;evnt(18812);}while(r); -} -LABEL_RULE3:; -if(qbevent){evnt(18816);r=0;} -S_22154:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_FIXOPERATIONORDER_STRING_A2,qbs_add(qbs_add(qbs_add(qbs_add(__STRING1_SP,qbs_new_txt_len("-",1)),__STRING1_SP),qbs_new_txt_len("-",1)),__STRING1_SP),0)))||new_error){ -if(qbevent){evnt(18817);if(r)goto S_22154;} -S_22155:; -fornext_value2784= 1 ; -fornext_finalvalue2784=*_FUNC_FIXOPERATIONORDER_LONG_N- 2 ; -fornext_step2784= 1 ; -if (fornext_step2784<0) fornext_step_negative2784=1; else fornext_step_negative2784=0; -if (new_error) goto fornext_error2784; -goto fornext_entrylabel2784; -while(1){ -fornext_value2784=fornext_step2784+(*_FUNC_FIXOPERATIONORDER_LONG_I); -fornext_entrylabel2784: -*_FUNC_FIXOPERATIONORDER_LONG_I=fornext_value2784; -if (fornext_step_negative2784){ -if (fornext_value2784fornext_finalvalue2784) break; -} -fornext_error2784:; -if(qbevent){evnt(18818);if(r)goto S_22155;} -S_22156:; -if ((qbs_cleanup(qbs_tmp_base,FUNC_ISOPERATOR(FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I))))||new_error){ -if(qbevent){evnt(18819);if(r)goto S_22156;} -S_22157:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2785=*_FUNC_FIXOPERATIONORDER_LONG_I+ 1 )),qbs_new_txt_len("-",1))))||new_error){ -if(qbevent){evnt(18820);if(r)goto S_22157;} -S_22158:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2786=*_FUNC_FIXOPERATIONORDER_LONG_I+ 2 )),qbs_new_txt_len("-",1))))||new_error){ -if(qbevent){evnt(18821);if(r)goto S_22158;} -do{ -SUB_REMOVEELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2787=*_FUNC_FIXOPERATIONORDER_LONG_I+ 1 ),&(pass2788=*_FUNC_FIXOPERATIONORDER_LONG_I+ 2 ),&(pass2789= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18822);}while(r); -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A2,qbs_add(qbs_add(__STRING1_SP,_FUNC_FIXOPERATIONORDER_STRING_A),__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18823);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_N=*_FUNC_FIXOPERATIONORDER_LONG_N- 2 ; -if(!qbevent)break;evnt(18824);}while(r); -S_22162:; -if (( 0 )||new_error){ -if(qbevent){evnt(18825);if(r)goto S_22162;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2790; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("fixoperationorder:+/-:",22),_FUNC_FIXOPERATIONORDER_STRING_A), 0, 0, 1); -if (new_error) goto skip2790; -skip2790: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(18825);}while(r); -} -do{ -goto LABEL_RULE3; -if(!qbevent)break;evnt(18826);}while(r); -} -} -} -fornext_continue_2783:; -} -fornext_exit_2783:; -} -S_22171:; -fornext_value2792= 1 ; -fornext_finalvalue2792=*_FUNC_FIXOPERATIONORDER_LONG_N- 1 ; -fornext_step2792= 1 ; -if (fornext_step2792<0) fornext_step_negative2792=1; else fornext_step_negative2792=0; -if (new_error) goto fornext_error2792; -goto fornext_entrylabel2792; -while(1){ -fornext_value2792=fornext_step2792+(*_FUNC_FIXOPERATIONORDER_LONG_I); -fornext_entrylabel2792: -*_FUNC_FIXOPERATIONORDER_LONG_I=fornext_value2792; -if (fornext_step_negative2792){ -if (fornext_value2792fornext_finalvalue2792) break; -} -fornext_error2792:; -if(qbevent){evnt(18850);if(r)goto S_22171;} -S_22172:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_I>(*_FUNC_FIXOPERATIONORDER_LONG_N- 1 )))||new_error){ -if(qbevent){evnt(18851);if(r)goto S_22172;} -do{ -goto fornext_exit_2791; -if(!qbevent)break;evnt(18851);}while(r); -} -S_22175:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I))== 45 )))||new_error){ -if(qbevent){evnt(18853);if(r)goto S_22175;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_NEG= 0 ; -if(!qbevent)break;evnt(18855);}while(r); -S_22177:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_I== 1 ))||new_error){ -if(qbevent){evnt(18856);if(r)goto S_22177;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_NEG= 1 ; -if(!qbevent)break;evnt(18857);}while(r); -}else{ -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A2,FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2793=*_FUNC_FIXOPERATIONORDER_LONG_I- 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18859);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_C=qbs_asc(_FUNC_FIXOPERATIONORDER_STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18860);}while(r); -S_22182:; -if (((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 40 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_C== 44 )))||new_error){ -if(qbevent){evnt(18861);if(r)goto S_22182;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_NEG= 1 ; -if(!qbevent)break;evnt(18862);}while(r); -}else{ -S_22185:; -if ((qbs_cleanup(qbs_tmp_base,FUNC_ISOPERATOR(_FUNC_FIXOPERATIONORDER_STRING_A2)))||new_error){ -if(qbevent){evnt(18864);if(r)goto S_22185;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_NEG= 1 ; -if(!qbevent)break;evnt(18864);}while(r); -} -} -} -S_22190:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_NEG== 1 ))||new_error){ -if(qbevent){evnt(18867);if(r)goto S_22190;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A2,FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2794=*_FUNC_FIXOPERATIONORDER_LONG_I+ 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18869);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_C=qbs_asc(_FUNC_FIXOPERATIONORDER_STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18870);}while(r); -S_22193:; -if (((-(*_FUNC_FIXOPERATIONORDER_LONG_C>= 48 ))&(-(*_FUNC_FIXOPERATIONORDER_LONG_C<= 57 )))||new_error){ -if(qbevent){evnt(18871);if(r)goto S_22193;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_C2= 0 ; -if(!qbevent)break;evnt(18872);}while(r); -S_22195:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_I<(*_FUNC_FIXOPERATIONORDER_LONG_N- 1 )))||new_error){ -if(qbevent){evnt(18872);if(r)goto S_22195;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_C2=qbs_asc(FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2795=*_FUNC_FIXOPERATIONORDER_LONG_I+ 2 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18872);}while(r); -} -S_22198:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_C2!= 94 ))||new_error){ -if(qbevent){evnt(18873);if(r)goto S_22198;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_I2=func_instr(NULL,_FUNC_FIXOPERATIONORDER_STRING_A2,qbs_new_txt_len(",",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18875);}while(r); -S_22200:; -if ((qbs_cleanup(qbs_tmp_base,*_FUNC_FIXOPERATIONORDER_LONG_I2&(-(qbs_asc(_FUNC_FIXOPERATIONORDER_STRING_A2,*_FUNC_FIXOPERATIONORDER_LONG_I2+ 1 )!= 38 ))))||new_error){ -if(qbevent){evnt(18876);if(r)goto S_22200;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A2,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("-",1),qbs_left(_FUNC_FIXOPERATIONORDER_STRING_A2,*_FUNC_FIXOPERATIONORDER_LONG_I2)),qbs_new_txt_len("-",1)),qbs_right(_FUNC_FIXOPERATIONORDER_STRING_A2,_FUNC_FIXOPERATIONORDER_STRING_A2->len-*_FUNC_FIXOPERATIONORDER_LONG_I2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18877);}while(r); -}else{ -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A2,qbs_add(qbs_new_txt_len("-",1),_FUNC_FIXOPERATIONORDER_STRING_A2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18879);}while(r); -} -do{ -SUB_REMOVEELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I,&(pass2797=*_FUNC_FIXOPERATIONORDER_LONG_I+ 1 ),&(pass2798= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18881);}while(r); -do{ -SUB_INSERTELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2799=*_FUNC_FIXOPERATIONORDER_LONG_I- 1 ),_FUNC_FIXOPERATIONORDER_STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18882);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_N=*_FUNC_FIXOPERATIONORDER_LONG_N- 1 ; -if(!qbevent)break;evnt(18883);}while(r); -S_22208:; -if (( 0 )||new_error){ -if(qbevent){evnt(18884);if(r)goto S_22208;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2800; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("fixoperationorder:negation:",27),_FUNC_FIXOPERATIONORDER_STRING_A), 0, 0, 1); -if (new_error) goto skip2800; -skip2800: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(18884);}while(r); -} -do{ -goto LABEL_NEGDONE; -if(!qbevent)break;evnt(18886);}while(r); -} -} -do{ -SUB_REMOVEELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I,_FUNC_FIXOPERATIONORDER_LONG_I,&(pass2801= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18893);}while(r); -do{ -SUB_INSERTELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2802=*_FUNC_FIXOPERATIONORDER_LONG_I- 1 ),func_chr( 241 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18894);}while(r); -S_22216:; -if (( 0 )||new_error){ -if(qbevent){evnt(18895);if(r)goto S_22216;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2803; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("fixoperationorder:negation:",27),_FUNC_FIXOPERATIONORDER_STRING_A), 0, 0, 1); -if (new_error) goto skip2803; -skip2803: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(18895);}while(r); -} -} -} -LABEL_NEGDONE:; -if(qbevent){evnt(18899);r=0;} -fornext_continue_2791:; -} -fornext_exit_2791:; -} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_POWNEGUSED= 0 ; -if(!qbevent)break;evnt(18909);}while(r); -LABEL_POWNEG:; -if(qbevent){evnt(18910);r=0;} -S_22224:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_FIXOPERATIONORDER_STRING_A,qbs_add(qbs_add(qbs_new_txt_len("^",1),__STRING1_SP),func_chr( 241 )),0)))||new_error){ -if(qbevent){evnt(18911);if(r)goto S_22224;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_B= 0 ; -if(!qbevent)break;evnt(18912);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_B1= 0 ; -if(!qbevent)break;evnt(18913);}while(r); -S_22227:; -fornext_value2805= 1 ; -fornext_finalvalue2805=*_FUNC_FIXOPERATIONORDER_LONG_N; -fornext_step2805= 1 ; -if (fornext_step2805<0) fornext_step_negative2805=1; else fornext_step_negative2805=0; -if (new_error) goto fornext_error2805; -goto fornext_entrylabel2805; -while(1){ -fornext_value2805=fornext_step2805+(*_FUNC_FIXOPERATIONORDER_LONG_I); -fornext_entrylabel2805: -*_FUNC_FIXOPERATIONORDER_LONG_I=fornext_value2805; -if (fornext_step_negative2805){ -if (fornext_value2805fornext_finalvalue2805) break; -} -fornext_error2805:; -if(qbevent){evnt(18914);if(r)goto S_22227;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A2,FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18915);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_C=qbs_asc(_FUNC_FIXOPERATIONORDER_STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18916);}while(r); -S_22230:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 40 ))||new_error){ -if(qbevent){evnt(18917);if(r)goto S_22230;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_B=*_FUNC_FIXOPERATIONORDER_LONG_B+ 1 ; -if(!qbevent)break;evnt(18917);}while(r); -} -S_22233:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 41 ))||new_error){ -if(qbevent){evnt(18918);if(r)goto S_22233;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_B=*_FUNC_FIXOPERATIONORDER_LONG_B- 1 ; -if(!qbevent)break;evnt(18918);}while(r); -} -S_22236:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_B== 0 ))||new_error){ -if(qbevent){evnt(18919);if(r)goto S_22236;} -S_22237:; -if ((*_FUNC_FIXOPERATIONORDER_LONG_B1)||new_error){ -if(qbevent){evnt(18920);if(r)goto S_22237;} -S_22238:; -if ((qbs_cleanup(qbs_tmp_base,FUNC_ISOPERATOR(_FUNC_FIXOPERATIONORDER_STRING_A2)))||new_error){ -if(qbevent){evnt(18921);if(r)goto S_22238;} -S_22239:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(_FUNC_FIXOPERATIONORDER_STRING_A2,qbs_new_txt_len("^",1)))&(qbs_notequal(_FUNC_FIXOPERATIONORDER_STRING_A2,func_chr( 241 )))))||new_error){ -if(qbevent){evnt(18922);if(r)goto S_22239;} -do{ -SUB_INSERTELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2806=*_FUNC_FIXOPERATIONORDER_LONG_I- 1 ),qbs_new_txt_len("}",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18923);}while(r); -do{ -SUB_INSERTELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_B1,qbs_new_txt_len("{",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18924);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_N=*_FUNC_FIXOPERATIONORDER_LONG_N+ 2 ; -if(!qbevent)break;evnt(18925);}while(r); -S_22243:; -if (( 0 )||new_error){ -if(qbevent){evnt(18926);if(r)goto S_22243;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2807; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("fixoperationorder:^-:",21),_FUNC_FIXOPERATIONORDER_STRING_A), 0, 0, 1); -if (new_error) goto skip2807; -skip2807: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(18926);}while(r); -} -do{ -goto LABEL_POWNEG; -if(!qbevent)break;evnt(18927);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_POWNEGUSED= 1 ; -if(!qbevent)break;evnt(18928);}while(r); -} -} -} -S_22251:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 94 ))||new_error){ -if(qbevent){evnt(18932);if(r)goto S_22251;} -S_22252:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2808=*_FUNC_FIXOPERATIONORDER_LONG_I+ 1 )),func_chr( 241 ))))||new_error){ -if(qbevent){evnt(18933);if(r)goto S_22252;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_B1=*_FUNC_FIXOPERATIONORDER_LONG_I; -if(!qbevent)break;evnt(18933);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_I=*_FUNC_FIXOPERATIONORDER_LONG_I+ 1 ; -if(!qbevent)break;evnt(18933);}while(r); -} -} -} -fornext_continue_2804:; -} -fornext_exit_2804:; -S_22259:; -if ((*_FUNC_FIXOPERATIONORDER_LONG_B1)||new_error){ -if(qbevent){evnt(18937);if(r)goto S_22259;} -do{ -SUB_INSERTELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_B1,qbs_new_txt_len("{",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18938);}while(r); -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A,qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_A,__STRING1_SP),qbs_new_txt_len("}",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18939);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_N=*_FUNC_FIXOPERATIONORDER_LONG_N+ 2 ; -if(!qbevent)break;evnt(18940);}while(r); -S_22263:; -if (( 0 )||new_error){ -if(qbevent){evnt(18941);if(r)goto S_22263;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2809; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("fixoperationorder:^-:",21),_FUNC_FIXOPERATIONORDER_STRING_A), 0, 0, 1); -if (new_error) goto skip2809; -skip2809: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(18941);}while(r); -} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_POWNEGUSED= 1 ; -if(!qbevent)break;evnt(18942);}while(r); -do{ -goto LABEL_POWNEG; -if(!qbevent)break;evnt(18943);}while(r); -} -} -LABEL_NOT_RECHECK:; -if(qbevent){evnt(18950);r=0;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_LCO= 255 ; -if(!qbevent)break;evnt(18951);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_HCO= 0 ; -if(!qbevent)break;evnt(18952);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_B= 0 ; -if(!qbevent)break;evnt(18953);}while(r); -S_22273:; -fornext_value2811= 1 ; -fornext_finalvalue2811=*_FUNC_FIXOPERATIONORDER_LONG_N; -fornext_step2811= 1 ; -if (fornext_step2811<0) fornext_step_negative2811=1; else fornext_step_negative2811=0; -if (new_error) goto fornext_error2811; -goto fornext_entrylabel2811; -while(1){ -fornext_value2811=fornext_step2811+(*_FUNC_FIXOPERATIONORDER_LONG_I); -fornext_entrylabel2811: -*_FUNC_FIXOPERATIONORDER_LONG_I=fornext_value2811; -if (fornext_step_negative2811){ -if (fornext_value2811fornext_finalvalue2811) break; -} -fornext_error2811:; -if(qbevent){evnt(18954);if(r)goto S_22273;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A2,FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18955);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_C=qbs_asc(_FUNC_FIXOPERATIONORDER_STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18956);}while(r); -S_22276:; -if (((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 40 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_C== 123 )))||new_error){ -if(qbevent){evnt(18957);if(r)goto S_22276;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_B=*_FUNC_FIXOPERATIONORDER_LONG_B+ 1 ; -if(!qbevent)break;evnt(18957);}while(r); -} -S_22279:; -if (((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 41 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_C== 125 )))||new_error){ -if(qbevent){evnt(18958);if(r)goto S_22279;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_B=*_FUNC_FIXOPERATIONORDER_LONG_B- 1 ; -if(!qbevent)break;evnt(18958);}while(r); -} -S_22282:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_B== 0 ))||new_error){ -if(qbevent){evnt(18959);if(r)goto S_22282;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_OP=FUNC_ISOPERATOR(_FUNC_FIXOPERATIONORDER_STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18960);}while(r); -S_22284:; -if ((*_FUNC_FIXOPERATIONORDER_LONG_OP)||new_error){ -if(qbevent){evnt(18961);if(r)goto S_22284;} -S_22285:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_OP<*_FUNC_FIXOPERATIONORDER_LONG_LCO))||new_error){ -if(qbevent){evnt(18962);if(r)goto S_22285;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_LCO=*_FUNC_FIXOPERATIONORDER_LONG_OP; -if(!qbevent)break;evnt(18962);}while(r); -} -S_22288:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_OP>*_FUNC_FIXOPERATIONORDER_LONG_HCO))||new_error){ -if(qbevent){evnt(18963);if(r)goto S_22288;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_HCO=*_FUNC_FIXOPERATIONORDER_LONG_OP; -if(!qbevent)break;evnt(18963);}while(r); -} -} -} -fornext_continue_2810:; -} -fornext_exit_2810:; -S_22294:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_HCO!= 0 ))||new_error){ -if(qbevent){evnt(18970);if(r)goto S_22294;} -S_22295:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_LCO!=*_FUNC_FIXOPERATIONORDER_LONG_HCO))||new_error){ -if(qbevent){evnt(18971);if(r)goto S_22295;} -S_22296:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_LCO== 6 ))||new_error){ -if(qbevent){evnt(18974);if(r)goto S_22296;} -S_22297:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_N== 1 ))||new_error){ -if(qbevent){evnt(18977);if(r)goto S_22297;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected NOT ...",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18977);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18977);}while(r); -} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_B= 0 ; -if(!qbevent)break;evnt(18978);}while(r); -S_22302:; -fornext_value2813= 1 ; -fornext_finalvalue2813=*_FUNC_FIXOPERATIONORDER_LONG_N; -fornext_step2813= 1 ; -if (fornext_step2813<0) fornext_step_negative2813=1; else fornext_step_negative2813=0; -if (new_error) goto fornext_error2813; -goto fornext_entrylabel2813; -while(1){ -fornext_value2813=fornext_step2813+(*_FUNC_FIXOPERATIONORDER_LONG_I); -fornext_entrylabel2813: -*_FUNC_FIXOPERATIONORDER_LONG_I=fornext_value2813; -if (fornext_step_negative2813){ -if (fornext_value2813fornext_finalvalue2813) break; -} -fornext_error2813:; -if(qbevent){evnt(18979);if(r)goto S_22302;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A2,FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18980);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_C=qbs_asc(_FUNC_FIXOPERATIONORDER_STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18981);}while(r); -S_22305:; -if (((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 40 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_C== 123 )))||new_error){ -if(qbevent){evnt(18982);if(r)goto S_22305;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_B=*_FUNC_FIXOPERATIONORDER_LONG_B+ 1 ; -if(!qbevent)break;evnt(18982);}while(r); -} -S_22308:; -if (((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 41 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_C== 125 )))||new_error){ -if(qbevent){evnt(18983);if(r)goto S_22308;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_B=*_FUNC_FIXOPERATIONORDER_LONG_B- 1 ; -if(!qbevent)break;evnt(18983);}while(r); -} -S_22311:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_B== 0 ))||new_error){ -if(qbevent){evnt(18984);if(r)goto S_22311;} -S_22312:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_FUNC_FIXOPERATIONORDER_STRING_A2),qbs_new_txt_len("NOT",3))))||new_error){ -if(qbevent){evnt(18985);if(r)goto S_22312;} -S_22313:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_I==*_FUNC_FIXOPERATIONORDER_LONG_N))||new_error){ -if(qbevent){evnt(18986);if(r)goto S_22313;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected NOT ...",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18986);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(18986);}while(r); -} -S_22317:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_I== 1 ))||new_error){ -if(qbevent){evnt(18987);if(r)goto S_22317;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("NOT",3),__STRING1_SP),qbs_new_txt_len("{",1)),__STRING1_SP),FUNC_GETELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2814= 2 ),_FUNC_FIXOPERATIONORDER_LONG_N)),__STRING1_SP),qbs_new_txt_len("}",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18987);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_N=*_FUNC_FIXOPERATIONORDER_LONG_N+ 2 ; -if(!qbevent)break;evnt(18987);}while(r); -do{ -goto LABEL_LCO_BRACKETTING_DONE; -if(!qbevent)break;evnt(18987);}while(r); -} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(FUNC_GETELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2815= 1 ),&(pass2816=*_FUNC_FIXOPERATIONORDER_LONG_I- 1 )),__STRING1_SP),qbs_new_txt_len("{",1)),__STRING1_SP),qbs_new_txt_len("NOT",3)),__STRING1_SP),qbs_new_txt_len("{",1)),__STRING1_SP),FUNC_GETELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2817=*_FUNC_FIXOPERATIONORDER_LONG_I+ 1 ),_FUNC_FIXOPERATIONORDER_LONG_N)),__STRING1_SP),qbs_new_txt_len("}",1)),__STRING1_SP),qbs_new_txt_len("}",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18988);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_N=*_FUNC_FIXOPERATIONORDER_LONG_N+ 4 ; -if(!qbevent)break;evnt(18989);}while(r); -do{ -goto LABEL_NOT_RECHECK; -if(!qbevent)break;evnt(18990);}while(r); -} -} -fornext_continue_2812:; -} -fornext_exit_2812:; -} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_N2=*_FUNC_FIXOPERATIONORDER_LONG_N; -if(!qbevent)break;evnt(18996);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_B= 0 ; -if(!qbevent)break;evnt(18997);}while(r); -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A3,qbs_new_txt_len("{",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(18998);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_N= 1 ; -if(!qbevent)break;evnt(18999);}while(r); -S_22333:; -fornext_value2819= 1 ; -fornext_finalvalue2819=*_FUNC_FIXOPERATIONORDER_LONG_N2; -fornext_step2819= 1 ; -if (fornext_step2819<0) fornext_step_negative2819=1; else fornext_step_negative2819=0; -if (new_error) goto fornext_error2819; -goto fornext_entrylabel2819; -while(1){ -fornext_value2819=fornext_step2819+(*_FUNC_FIXOPERATIONORDER_LONG_I); -fornext_entrylabel2819: -*_FUNC_FIXOPERATIONORDER_LONG_I=fornext_value2819; -if (fornext_step_negative2819){ -if (fornext_value2819fornext_finalvalue2819) break; -} -fornext_error2819:; -if(qbevent){evnt(19000);if(r)goto S_22333;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A2,FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19001);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_C=qbs_asc(_FUNC_FIXOPERATIONORDER_STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19002);}while(r); -S_22336:; -if (((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 40 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_C== 123 )))||new_error){ -if(qbevent){evnt(19003);if(r)goto S_22336;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_B=*_FUNC_FIXOPERATIONORDER_LONG_B+ 1 ; -if(!qbevent)break;evnt(19003);}while(r); -} -S_22339:; -if (((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 41 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_C== 125 )))||new_error){ -if(qbevent){evnt(19004);if(r)goto S_22339;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_B=*_FUNC_FIXOPERATIONORDER_LONG_B- 1 ; -if(!qbevent)break;evnt(19004);}while(r); -} -S_22342:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_B== 0 ))||new_error){ -if(qbevent){evnt(19005);if(r)goto S_22342;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_OP=FUNC_ISOPERATOR(_FUNC_FIXOPERATIONORDER_STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19006);}while(r); -S_22344:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_OP==*_FUNC_FIXOPERATIONORDER_LONG_LCO))||new_error){ -if(qbevent){evnt(19007);if(r)goto S_22344;} -S_22345:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_I== 1 ))||new_error){ -if(qbevent){evnt(19008);if(r)goto S_22345;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A3,qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_A2,__STRING1_SP),qbs_new_txt_len("{",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19009);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_N= 2 ; -if(!qbevent)break;evnt(19010);}while(r); -}else{ -S_22349:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_I==*_FUNC_FIXOPERATIONORDER_LONG_N2))||new_error){ -if(qbevent){evnt(19012);if(r)goto S_22349;} -do{ -SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Expected variable/value after '",31),qbs_ucase(_FUNC_FIXOPERATIONORDER_STRING_A2)),qbs_new_txt_len("'",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19012);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(19012);}while(r); -} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A3,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_A3,__STRING1_SP),qbs_new_txt_len("}",1)),__STRING1_SP),_FUNC_FIXOPERATIONORDER_STRING_A2),__STRING1_SP),qbs_new_txt_len("{",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19013);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_N=*_FUNC_FIXOPERATIONORDER_LONG_N+ 3 ; -if(!qbevent)break;evnt(19014);}while(r); -} -do{ -goto LABEL_FIXOP0; -if(!qbevent)break;evnt(19016);}while(r); -} -} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A3,qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_A3,__STRING1_SP),_FUNC_FIXOPERATIONORDER_STRING_A2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19020);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_N=*_FUNC_FIXOPERATIONORDER_LONG_N+ 1 ; -if(!qbevent)break;evnt(19021);}while(r); -LABEL_FIXOP0:; -if(qbevent){evnt(19022);r=0;} -fornext_continue_2818:; -} -fornext_exit_2818:; -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A3,qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_A3,__STRING1_SP),qbs_new_txt_len("}",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19024);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_N=*_FUNC_FIXOPERATIONORDER_LONG_N+ 1 ; -if(!qbevent)break;evnt(19025);}while(r); -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_STRING_A3); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19026);}while(r); -LABEL_LCO_BRACKETTING_DONE:; -if(qbevent){evnt(19028);r=0;} -S_22365:; -if (( 0 )||new_error){ -if(qbevent){evnt(19029);if(r)goto S_22365;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2820; -sub_file_print(tmp_fileno,qbs_new_txt_len("fixoperationorder:lco bracketing[",33), 0, 0, 0); -if (new_error) goto skip2820; -sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_FIXOPERATIONORDER_LONG_LCO)), 1, 0, 0); -if (new_error) goto skip2820; -sub_file_print(tmp_fileno,qbs_new_txt_len(",",1), 0, 0, 0); -if (new_error) goto skip2820; -sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_FIXOPERATIONORDER_LONG_HCO)), 1, 0, 0); -if (new_error) goto skip2820; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("]:",2),_FUNC_FIXOPERATIONORDER_STRING_A), 0, 0, 1); -if (new_error) goto skip2820; -skip2820: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(19029);}while(r); -} -S_22368:; -if ((*_FUNC_FIXOPERATIONORDER_LONG_POWNEGUSED)||new_error){ -if(qbevent){evnt(19032);if(r)goto S_22368;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_B= 0 ; -if(!qbevent)break;evnt(19033);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_I= 0 ; -if(!qbevent)break;evnt(19034);}while(r); -S_22371:; -do{ -if(qbevent){evnt(19035);if(r)goto S_22371;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_I=*_FUNC_FIXOPERATIONORDER_LONG_I+ 1 ; -if(!qbevent)break;evnt(19036);}while(r); -S_22373:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_I>*_FUNC_FIXOPERATIONORDER_LONG_N))||new_error){ -if(qbevent){evnt(19037);if(r)goto S_22373;} -do{ -goto dl_exit_2821; -if(!qbevent)break;evnt(19037);}while(r); -} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_C=qbs_asc(FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19038);}while(r); -S_22377:; -if (((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 41 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_C== 125 )))||new_error){ -if(qbevent){evnt(19039);if(r)goto S_22377;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_B=*_FUNC_FIXOPERATIONORDER_LONG_B- 1 ; -if(!qbevent)break;evnt(19039);}while(r); -} -S_22380:; -if (((((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 123 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_C== 125 ))))&(-(*_FUNC_FIXOPERATIONORDER_LONG_B!= 0 )))||new_error){ -if(qbevent){evnt(19040);if(r)goto S_22380;} -do{ -SUB_REMOVEELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I,_FUNC_FIXOPERATIONORDER_LONG_I,&(pass2822= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19041);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_N=*_FUNC_FIXOPERATIONORDER_LONG_N- 1 ; -if(!qbevent)break;evnt(19042);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_I=*_FUNC_FIXOPERATIONORDER_LONG_I- 1 ; -if(!qbevent)break;evnt(19043);}while(r); -S_22384:; -if (( 0 )||new_error){ -if(qbevent){evnt(19044);if(r)goto S_22384;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2823; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("fixoperationorder:^- {} removed:",32),_FUNC_FIXOPERATIONORDER_STRING_A), 0, 0, 1); -if (new_error) goto skip2823; -skip2823: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(19044);}while(r); -} -} -S_22388:; -if (((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 40 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_C== 123 )))||new_error){ -if(qbevent){evnt(19046);if(r)goto S_22388;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_B=*_FUNC_FIXOPERATIONORDER_LONG_B+ 1 ; -if(!qbevent)break;evnt(19046);}while(r); -} -dl_continue_2821:; -}while(1); -dl_exit_2821:; -} -} -} -S_22395:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal((qbs_left(_FUNC_FIXOPERATIONORDER_STRING_A, 4 )),(qbs_add(qbs_add(qbs_add(func_chr( 241 ),__STRING1_SP),func_chr( 241 )),__STRING1_SP)))))||new_error){ -if(qbevent){evnt(19054);if(r)goto S_22395;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(func_chr( 241 ),__STRING1_SP),qbs_new_txt_len("{",1)),__STRING1_SP),FUNC_GETELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2824= 2 ),_FUNC_FIXOPERATIONORDER_LONG_N)),__STRING1_SP),qbs_new_txt_len("}",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19055);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_N=*_FUNC_FIXOPERATIONORDER_LONG_N+ 2 ; -if(!qbevent)break;evnt(19055);}while(r); -} -S_22399:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal((qbs_ucase(qbs_left(_FUNC_FIXOPERATIONORDER_STRING_A, 8 ))),(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("NOT",3),__STRING1_SP),qbs_new_txt_len("NOT",3)),__STRING1_SP)))))||new_error){ -if(qbevent){evnt(19057);if(r)goto S_22399;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("NOT",3),__STRING1_SP),qbs_new_txt_len("{",1)),__STRING1_SP),FUNC_GETELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2825= 2 ),_FUNC_FIXOPERATIONORDER_LONG_N)),__STRING1_SP),qbs_new_txt_len("}",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19058);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_N=*_FUNC_FIXOPERATIONORDER_LONG_N+ 2 ; -if(!qbevent)break;evnt(19058);}while(r); -} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19067);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_B= 0 ; -if(!qbevent)break;evnt(19068);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_C= 0 ; -if(!qbevent)break;evnt(19069);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_LASTT= 0 ; -if(!qbevent)break;evnt(19070);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_LASTTI= 0 ; -if(!qbevent)break;evnt(19070);}while(r); -S_22408:; -fornext_value2827= 1 ; -fornext_finalvalue2827=*_FUNC_FIXOPERATIONORDER_LONG_N; -fornext_step2827= 1 ; -if (fornext_step2827<0) fornext_step_negative2827=1; else fornext_step_negative2827=0; -if (new_error) goto fornext_error2827; -goto fornext_entrylabel2827; -while(1){ -fornext_value2827=fornext_step2827+(*_FUNC_FIXOPERATIONORDER_LONG_I); -fornext_entrylabel2827: -*_FUNC_FIXOPERATIONORDER_LONG_I=fornext_value2827; -if (fornext_step_negative2827){ -if (fornext_value2827fornext_finalvalue2827) break; -} -fornext_error2827:; -if(qbevent){evnt(19071);if(r)goto S_22408;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F2,FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19072);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_LASTC=*_FUNC_FIXOPERATIONORDER_LONG_C; -if(!qbevent)break;evnt(19073);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_C=qbs_asc(_FUNC_FIXOPERATIONORDER_STRING_F2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19074);}while(r); -S_22412:; -if (((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 40 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_C== 123 )))||new_error){ -if(qbevent){evnt(19076);if(r)goto S_22412;} -S_22413:; -if (((-(*_FUNC_FIXOPERATIONORDER_LONG_C!= 40 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_B!= 0 )))||new_error){ -if(qbevent){evnt(19077);if(r)goto S_22413;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F2,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19077);}while(r); -} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_B=*_FUNC_FIXOPERATIONORDER_LONG_B+ 1 ; -if(!qbevent)break;evnt(19078);}while(r); -do{ -goto LABEL_CLASSDONE; -if(!qbevent)break;evnt(19079);}while(r); -} -S_22419:; -if (((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 41 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_C== 125 )))||new_error){ -if(qbevent){evnt(19081);if(r)goto S_22419;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_B=*_FUNC_FIXOPERATIONORDER_LONG_B- 1 ; -if(!qbevent)break;evnt(19083);}while(r); -S_22421:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_B== 0 ))||new_error){ -if(qbevent){evnt(19086);if(r)goto S_22421;} -S_22422:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 41 ))||new_error){ -if(qbevent){evnt(19087);if(r)goto S_22422;} -S_22423:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_LASTC== 40 ))||new_error){ -if(qbevent){evnt(19088);if(r)goto S_22423;} -S_22424:; -if (((-(*_FUNC_FIXOPERATIONORDER_LONG_LASTTI==(*_FUNC_FIXOPERATIONORDER_LONG_I- 2 )))|(-(*_FUNC_FIXOPERATIONORDER_LONG_LASTTI== 0 )))||new_error){ -if(qbevent){evnt(19089);if(r)goto S_22424;} -S_22425:; -if (((-(*_FUNC_FIXOPERATIONORDER_LONG_LASTT>= 0 ))&(-(*_FUNC_FIXOPERATIONORDER_LONG_LASTT<= 3 )))||new_error){ -if(qbevent){evnt(19090);if(r)goto S_22425;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Unexpected (",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19091);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(19091);}while(r); -} -} -} -} -} -S_22433:; -if (((-(*_FUNC_FIXOPERATIONORDER_LONG_C!= 41 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_B!= 0 )))||new_error){ -if(qbevent){evnt(19098);if(r)goto S_22433;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F2,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19098);}while(r); -} -do{ -goto LABEL_CLASSDONE; -if(!qbevent)break;evnt(19099);}while(r); -} -S_22438:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_B== 0 ))||new_error){ -if(qbevent){evnt(19102);if(r)goto S_22438;} -S_22439:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 34 ))||new_error){ -if(qbevent){evnt(19113);if(r)goto S_22439;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_LASTT= 1 ; -if(!qbevent)break;evnt(19114);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_LASTTI=*_FUNC_FIXOPERATIONORDER_LONG_I; -if(!qbevent)break;evnt(19114);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_X2= 1 ; -if(!qbevent)break;evnt(19118);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_X=func_instr(*_FUNC_FIXOPERATIONORDER_LONG_X2,_FUNC_FIXOPERATIONORDER_STRING_F2,qbs_new_txt_len("\\",1),0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19119);}while(r); -S_22444:; -while((*_FUNC_FIXOPERATIONORDER_LONG_X)||new_error){ -if(qbevent){evnt(19120);if(r)goto S_22444;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_C2=qbs_asc(_FUNC_FIXOPERATIONORDER_STRING_F2,*_FUNC_FIXOPERATIONORDER_LONG_X+ 1 ); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19121);}while(r); -S_22446:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_C2== 92 ))||new_error){ -if(qbevent){evnt(19122);if(r)goto S_22446;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F2,qbs_add(qbs_left(_FUNC_FIXOPERATIONORDER_STRING_F2,*_FUNC_FIXOPERATIONORDER_LONG_X),qbs_right(_FUNC_FIXOPERATIONORDER_STRING_F2,_FUNC_FIXOPERATIONORDER_STRING_F2->len-*_FUNC_FIXOPERATIONORDER_LONG_X- 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19123);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_X2=*_FUNC_FIXOPERATIONORDER_LONG_X+ 1 ; -if(!qbevent)break;evnt(19124);}while(r); -}else{ -do{ -*_FUNC_FIXOPERATIONORDER_LONG_C3=((qbs_asc(_FUNC_FIXOPERATIONORDER_STRING_F2,*_FUNC_FIXOPERATIONORDER_LONG_X+ 3 )- 48 ))+((qbs_asc(_FUNC_FIXOPERATIONORDER_STRING_F2,*_FUNC_FIXOPERATIONORDER_LONG_X+ 2 )- 48 )* 8 )+((qbs_asc(_FUNC_FIXOPERATIONORDER_STRING_F2,*_FUNC_FIXOPERATIONORDER_LONG_X+ 1 )- 48 )* 64 ); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19127);}while(r); -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F2,qbs_add(qbs_add(qbs_left(_FUNC_FIXOPERATIONORDER_STRING_F2,*_FUNC_FIXOPERATIONORDER_LONG_X- 1 ),func_chr(*_FUNC_FIXOPERATIONORDER_LONG_C3)),qbs_right(_FUNC_FIXOPERATIONORDER_STRING_F2,_FUNC_FIXOPERATIONORDER_STRING_F2->len-*_FUNC_FIXOPERATIONORDER_LONG_X- 3 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19128);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_X2=*_FUNC_FIXOPERATIONORDER_LONG_X+ 1 ; -if(!qbevent)break;evnt(19129);}while(r); -} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_X=func_instr(*_FUNC_FIXOPERATIONORDER_LONG_X2,_FUNC_FIXOPERATIONORDER_STRING_F2,qbs_new_txt_len("\\",1),0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19131);}while(r); -dl_continue_2828:; -} -dl_exit_2828:; -do{ -*_FUNC_FIXOPERATIONORDER_LONG_X=func_instr( 2 ,_FUNC_FIXOPERATIONORDER_STRING_F2,qbs_add(func_chr( 34 ),qbs_new_txt_len(",",1)),0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19134);}while(r); -S_22457:; -if ((*_FUNC_FIXOPERATIONORDER_LONG_X)||new_error){ -if(qbevent){evnt(19134);if(r)goto S_22457;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F2,qbs_left(_FUNC_FIXOPERATIONORDER_STRING_F2,*_FUNC_FIXOPERATIONORDER_LONG_X)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19134);}while(r); -} -do{ -goto LABEL_CLASSDONE; -if(!qbevent)break;evnt(19135);}while(r); -} -S_22462:; -if (((((-(*_FUNC_FIXOPERATIONORDER_LONG_C>= 48 ))&(-(*_FUNC_FIXOPERATIONORDER_LONG_C<= 57 ))))|(-(*_FUNC_FIXOPERATIONORDER_LONG_C== 45 )))||new_error){ -if(qbevent){evnt(19139);if(r)goto S_22462;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_LASTT= 2 ; -if(!qbevent)break;evnt(19140);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_LASTTI=*_FUNC_FIXOPERATIONORDER_LONG_I; -if(!qbevent)break;evnt(19140);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_X=func_instr(NULL,_FUNC_FIXOPERATIONORDER_STRING_F2,qbs_new_txt_len(",",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19142);}while(r); -S_22466:; -if ((*_FUNC_FIXOPERATIONORDER_LONG_X)||new_error){ -if(qbevent){evnt(19143);if(r)goto S_22466;} -do{ -SUB_REMOVEELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I,_FUNC_FIXOPERATIONORDER_LONG_I,&(pass2831= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19144);}while(r); -do{ -SUB_INSERTELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2832=*_FUNC_FIXOPERATIONORDER_LONG_I- 1 ),qbs_left(_FUNC_FIXOPERATIONORDER_STRING_F2,*_FUNC_FIXOPERATIONORDER_LONG_X- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19144);}while(r); -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F2,qbs_right(_FUNC_FIXOPERATIONORDER_STRING_F2,_FUNC_FIXOPERATIONORDER_STRING_F2->len-*_FUNC_FIXOPERATIONORDER_LONG_X)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19145);}while(r); -} -S_22471:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_X== 0 ))||new_error){ -if(qbevent){evnt(19148);if(r)goto S_22471;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_C2=qbs_asc(_FUNC_FIXOPERATIONORDER_STRING_F2,_FUNC_FIXOPERATIONORDER_STRING_F2->len); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19149);}while(r); -S_22473:; -if (((-(*_FUNC_FIXOPERATIONORDER_LONG_C2< 48 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_C2> 57 )))||new_error){ -if(qbevent){evnt(19150);if(r)goto S_22473;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_X= 1 ; -if(!qbevent)break;evnt(19151);}while(r); -}else{ -do{ -*_FUNC_FIXOPERATIONORDER_LONG_X=func_instr(NULL,_FUNC_FIXOPERATIONORDER_STRING_F2,qbs_new_txt_len("`",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19153);}while(r); -} -} -S_22479:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_X== 0 ))||new_error){ -if(qbevent){evnt(19158);if(r)goto S_22479;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F3,_FUNC_FIXOPERATIONORDER_STRING_F2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19159);}while(r); -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19160);}while(r); -S_22482:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 45 ))||new_error){ -if(qbevent){evnt(19161);if(r)goto S_22482;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,qbs_new_txt_len("&&",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19162);}while(r); -S_22484:; -if ((qbs_cleanup(qbs_tmp_base,(((qbs_lessthan(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_new_txt_len("-2147483648",11)))&(-(_FUNC_FIXOPERATIONORDER_STRING_F3->len== 11 ))))|(-(_FUNC_FIXOPERATIONORDER_STRING_F3->len< 11 ))))||new_error){ -if(qbevent){evnt(19163);if(r)goto S_22484;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,qbs_new_txt_len("&",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19163);}while(r); -} -S_22487:; -if ((qbs_cleanup(qbs_tmp_base,(((qbs_lessorequal(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_new_txt_len("-32768",6)))&(-(_FUNC_FIXOPERATIONORDER_STRING_F3->len== 6 ))))|(-(_FUNC_FIXOPERATIONORDER_STRING_F3->len< 6 ))))||new_error){ -if(qbevent){evnt(19164);if(r)goto S_22487;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,qbs_new_txt_len("%",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19164);}while(r); -} -}else{ -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,qbs_new_txt_len("~&&",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19166);}while(r); -S_22492:; -if ((qbs_cleanup(qbs_tmp_base,(((qbs_lessorequal(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_new_txt_len("9223372036854775807",19)))&(-(_FUNC_FIXOPERATIONORDER_STRING_F3->len== 19 ))))|(-(_FUNC_FIXOPERATIONORDER_STRING_F3->len< 19 ))))||new_error){ -if(qbevent){evnt(19167);if(r)goto S_22492;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,qbs_new_txt_len("&&",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19167);}while(r); -} -S_22495:; -if ((qbs_cleanup(qbs_tmp_base,(((qbs_lessorequal(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_new_txt_len("2147483647",10)))&(-(_FUNC_FIXOPERATIONORDER_STRING_F3->len== 10 ))))|(-(_FUNC_FIXOPERATIONORDER_STRING_F3->len< 10 ))))||new_error){ -if(qbevent){evnt(19168);if(r)goto S_22495;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,qbs_new_txt_len("&",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19168);}while(r); -} -S_22498:; -if ((qbs_cleanup(qbs_tmp_base,(((qbs_lessorequal(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_new_txt_len("32767",5)))&(-(_FUNC_FIXOPERATIONORDER_STRING_F3->len== 5 ))))|(-(_FUNC_FIXOPERATIONORDER_STRING_F3->len< 5 ))))||new_error){ -if(qbevent){evnt(19169);if(r)goto S_22498;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,qbs_new_txt_len("%",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19169);}while(r); -} -} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_add(_FUNC_FIXOPERATIONORDER_STRING_F3,_FUNC_FIXOPERATIONORDER_STRING_S)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19171);}while(r); -do{ -SUB_REMOVEELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I,_FUNC_FIXOPERATIONORDER_LONG_I,&(pass2845= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19172);}while(r); -do{ -SUB_INSERTELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2846=*_FUNC_FIXOPERATIONORDER_LONG_I- 1 ),_FUNC_FIXOPERATIONORDER_STRING_F3); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19172);}while(r); -} -do{ -goto LABEL_CLASSDONE; -if(!qbevent)break;evnt(19175);}while(r); -} -S_22508:; -if ((qbs_cleanup(qbs_tmp_base,FUNC_ISOPERATOR(_FUNC_FIXOPERATIONORDER_STRING_F2)))||new_error){ -if(qbevent){evnt(19179);if(r)goto S_22508;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_LASTT= 3 ; -if(!qbevent)break;evnt(19180);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_LASTTI=*_FUNC_FIXOPERATIONORDER_LONG_I; -if(!qbevent)break;evnt(19180);}while(r); -S_22511:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_FIXOPERATIONORDER_STRING_F2->len> 1 )))||new_error){ -if(qbevent){evnt(19181);if(r)goto S_22511;} -S_22512:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_FIXOPERATIONORDER_STRING_F2,FUNC_SCASE2(_FUNC_FIXOPERATIONORDER_STRING_F2))))||new_error){ -if(qbevent){evnt(19182);if(r)goto S_22512;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F2,FUNC_SCASE2(_FUNC_FIXOPERATIONORDER_STRING_F2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19183);}while(r); -do{ -SUB_REMOVEELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I,_FUNC_FIXOPERATIONORDER_LONG_I,&(pass2848= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19184);}while(r); -do{ -SUB_INSERTELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2849=*_FUNC_FIXOPERATIONORDER_LONG_I- 1 ),_FUNC_FIXOPERATIONORDER_STRING_F2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19185);}while(r); -} -} -S_22518:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_F2,func_chr( 241 ))))||new_error){ -if(qbevent){evnt(19189);if(r)goto S_22518;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F,qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_F,__STRING1_SP),qbs_new_txt_len("-",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19189);}while(r); -do{ -goto LABEL_CLASSDONE_SPECIAL; -if(!qbevent)break;evnt(19189);}while(r); -} -do{ -goto LABEL_CLASSDONE; -if(!qbevent)break;evnt(19190);}while(r); -} -S_22524:; -if ((((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((*_FUNC_FIXOPERATIONORDER_LONG_C)-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])])||new_error){ -if(qbevent){evnt(19193);if(r)goto S_22524;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_LASTT= 4 ; -if(!qbevent)break;evnt(19194);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_LASTTI=*_FUNC_FIXOPERATIONORDER_LONG_I; -if(!qbevent)break;evnt(19194);}while(r); -S_22527:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_I<*_FUNC_FIXOPERATIONORDER_LONG_N))||new_error){ -if(qbevent){evnt(19196);if(r)goto S_22527;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_NEXTC=qbs_asc(FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2850=*_FUNC_FIXOPERATIONORDER_LONG_I+ 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19196);}while(r); -}else{ -do{ -*_FUNC_FIXOPERATIONORDER_LONG_NEXTC= 0 ; -if(!qbevent)break;evnt(19196);}while(r); -} -S_22532:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_NEXTC!= 40 ))||new_error){ -if(qbevent){evnt(19199);if(r)goto S_22532;} -S_22533:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_LASTC!= 46 ))||new_error){ -if(qbevent){evnt(19200);if(r)goto S_22533;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_E,qbs_ucase(_FUNC_FIXOPERATIONORDER_STRING_F2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19202);}while(r); -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_ES,FUNC_REMOVESYMBOL(_FUNC_FIXOPERATIONORDER_STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19203);}while(r); -S_22536:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(19204);if(r)goto S_22536;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(19204);}while(r); -} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_HASHFOUND= 0 ; -if(!qbevent)break;evnt(19206);}while(r); -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_HASHNAME,_FUNC_FIXOPERATIONORDER_STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19207);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_HASHCHKFLAGS= 1024 ; -if(!qbevent)break;evnt(19208);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_HASHRES=FUNC_HASHFINDREV(_FUNC_FIXOPERATIONORDER_STRING_HASHNAME,_FUNC_FIXOPERATIONORDER_LONG_HASHCHKFLAGS,_FUNC_FIXOPERATIONORDER_LONG_HASHRESFLAGS,_FUNC_FIXOPERATIONORDER_LONG_HASHRESREF); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19209);}while(r); -S_22543:; -while((*_FUNC_FIXOPERATIONORDER_LONG_HASHRES)||new_error){ -if(qbevent){evnt(19210);if(r)goto S_22543;} -S_22544:; -if (((-(((int32*)(__ARRAY_LONG_CONSTSUBFUNC[0]))[array_check((*_FUNC_FIXOPERATIONORDER_LONG_HASHRESREF)-__ARRAY_LONG_CONSTSUBFUNC[4],__ARRAY_LONG_CONSTSUBFUNC[5])]==*__LONG_SUBFUNCN))|(-(((int32*)(__ARRAY_LONG_CONSTSUBFUNC[0]))[array_check((*_FUNC_FIXOPERATIONORDER_LONG_HASHRESREF)-__ARRAY_LONG_CONSTSUBFUNC[4],__ARRAY_LONG_CONSTSUBFUNC[5])]== 0 )))||new_error){ -if(qbevent){evnt(19211);if(r)goto S_22544;} -S_22545:; -if ((((int32*)(__ARRAY_LONG_CONSTDEFINED[0]))[array_check((*_FUNC_FIXOPERATIONORDER_LONG_HASHRESREF)-__ARRAY_LONG_CONSTDEFINED[4],__ARRAY_LONG_CONSTDEFINED[5])])||new_error){ -if(qbevent){evnt(19212);if(r)goto S_22545;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_HASHFOUND= 1 ; -if(!qbevent)break;evnt(19213);}while(r); -do{ -goto dl_exit_2851; -if(!qbevent)break;evnt(19214);}while(r); -} -} -S_22550:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_HASHRES!= 1 ))||new_error){ -if(qbevent){evnt(19217);if(r)goto S_22550;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_HASHRES=FUNC_HASHFINDCONT(_FUNC_FIXOPERATIONORDER_LONG_HASHRESFLAGS,_FUNC_FIXOPERATIONORDER_LONG_HASHRESREF); -if(!qbevent)break;evnt(19217);}while(r); -}else{ -do{ -*_FUNC_FIXOPERATIONORDER_LONG_HASHRES= 0 ; -if(!qbevent)break;evnt(19217);}while(r); -} -dl_continue_2851:; -} -dl_exit_2851:; -S_22556:; -if ((*_FUNC_FIXOPERATIONORDER_LONG_HASHFOUND)||new_error){ -if(qbevent){evnt(19220);if(r)goto S_22556;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_I2=*_FUNC_FIXOPERATIONORDER_LONG_HASHRESREF; -if(!qbevent)break;evnt(19221);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_STATICVARIABLE= 0 ; -if(!qbevent)break;evnt(19230);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_TRY=FUNC_FINDID(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_E,_FUNC_FIXOPERATIONORDER_STRING_ES)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19231);}while(r); -S_22560:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(19232);if(r)goto S_22560;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(19232);}while(r); -} -S_22563:; -while((*_FUNC_FIXOPERATIONORDER_LONG_TRY)||new_error){ -if(qbevent){evnt(19233);if(r)goto S_22563;} -S_22564:; -if ((-(*(int32*)(((char*)__UDT_ID)+(512))== 0 ))||new_error){ -if(qbevent){evnt(19234);if(r)goto S_22564;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_STATICVARIABLE= 1 ; -if(!qbevent)break;evnt(19234);}while(r); -do{ -goto dl_exit_2852; -if(!qbevent)break;evnt(19234);}while(r); -} -S_22568:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_TRY== 2 ))||new_error){ -if(qbevent){evnt(19235);if(r)goto S_22568;} -do{ -*__INTEGER_FINDANOTHERID= 1 ; -if(!qbevent)break;evnt(19235);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_TRY=FUNC_FINDID(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_E,_FUNC_FIXOPERATIONORDER_STRING_ES)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19235);}while(r); -}else{ -do{ -*_FUNC_FIXOPERATIONORDER_LONG_TRY= 0 ; -if(!qbevent)break;evnt(19235);}while(r); -} -S_22574:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(19236);if(r)goto S_22574;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(19236);}while(r); -} -dl_continue_2852:; -} -dl_exit_2852:; -S_22578:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_STATICVARIABLE== 0 ))||new_error){ -if(qbevent){evnt(19239);if(r)goto S_22578;} -S_22579:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_FIXOPERATIONORDER_STRING_ES->len== 0 )))||new_error){ -if(qbevent){evnt(19240);if(r)goto S_22579;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_A=qbs_asc(qbs_ucase(_FUNC_FIXOPERATIONORDER_STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19241);}while(r); -S_22581:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_A== 95 ))||new_error){ -if(qbevent){evnt(19241);if(r)goto S_22581;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_A= 91 ; -if(!qbevent)break;evnt(19241);}while(r); -} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_A=*_FUNC_FIXOPERATIONORDER_LONG_A- 64 ; -if(!qbevent)break;evnt(19242);}while(r); -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_ES2,((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEEXTAZ[0]))[array_check((*_FUNC_FIXOPERATIONORDER_LONG_A)-__ARRAY_STRING_DEFINEEXTAZ[4],__ARRAY_STRING_DEFINEEXTAZ[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19243);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_TRY=FUNC_FINDID(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_E,_FUNC_FIXOPERATIONORDER_STRING_ES2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19244);}while(r); -S_22587:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(19245);if(r)goto S_22587;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(19245);}while(r); -} -S_22590:; -while((*_FUNC_FIXOPERATIONORDER_LONG_TRY)||new_error){ -if(qbevent){evnt(19246);if(r)goto S_22590;} -S_22591:; -if ((-(*(int32*)(((char*)__UDT_ID)+(512))== 0 ))||new_error){ -if(qbevent){evnt(19247);if(r)goto S_22591;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_STATICVARIABLE= 1 ; -if(!qbevent)break;evnt(19247);}while(r); -do{ -goto dl_exit_2854; -if(!qbevent)break;evnt(19247);}while(r); -} -S_22595:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_TRY== 2 ))||new_error){ -if(qbevent){evnt(19248);if(r)goto S_22595;} -do{ -*__INTEGER_FINDANOTHERID= 1 ; -if(!qbevent)break;evnt(19248);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_TRY=FUNC_FINDID(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_E,_FUNC_FIXOPERATIONORDER_STRING_ES2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19248);}while(r); -}else{ -do{ -*_FUNC_FIXOPERATIONORDER_LONG_TRY= 0 ; -if(!qbevent)break;evnt(19248);}while(r); -} -S_22601:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(19249);if(r)goto S_22601;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(19249);}while(r); -} -dl_continue_2854:; -} -dl_exit_2854:; -} -} -S_22607:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_STATICVARIABLE== 0 ))||new_error){ -if(qbevent){evnt(19254);if(r)goto S_22607;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_T=((int32*)(__ARRAY_LONG_CONSTTYPE[0]))[array_check((*_FUNC_FIXOPERATIONORDER_LONG_I2)-__ARRAY_LONG_CONSTTYPE[4],__ARRAY_LONG_CONSTTYPE[5])]; -if(!qbevent)break;evnt(19256);}while(r); -S_22609:; -if ((*_FUNC_FIXOPERATIONORDER_LONG_T&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(19257);if(r)goto S_22609;} -S_22610:; -if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_FIXOPERATIONORDER_STRING_ES->len> 0 ))&(qbs_notequal(_FUNC_FIXOPERATIONORDER_STRING_ES,qbs_new_txt_len("$",1)))))||new_error){ -if(qbevent){evnt(19258);if(r)goto S_22610;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Type mismatch",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19258);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(19258);}while(r); -} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_E,((qbs*)(((uint64*)(__ARRAY_STRING_CONSTSTRING[0]))[array_check((*_FUNC_FIXOPERATIONORDER_LONG_I2)-__ARRAY_STRING_CONSTSTRING[4],__ARRAY_STRING_CONSTSTRING[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19259);}while(r); -}else{ -S_22616:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_FIXOPERATIONORDER_STRING_ES->len))||new_error){ -if(qbevent){evnt(19261);if(r)goto S_22616;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_ET=FUNC_TYPNAME2TYP(_FUNC_FIXOPERATIONORDER_STRING_ES); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19261);}while(r); -}else{ -do{ -*_FUNC_FIXOPERATIONORDER_LONG_ET= 0 ; -if(!qbevent)break;evnt(19261);}while(r); -} -S_22621:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(19262);if(r)goto S_22621;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(19262);}while(r); -} -S_22624:; -if ((*_FUNC_FIXOPERATIONORDER_LONG_ET&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(19263);if(r)goto S_22624;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Type mismatch",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19263);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(19263);}while(r); -} -S_22628:; -if ((*_FUNC_FIXOPERATIONORDER_LONG_T&*__LONG_ISFLOAT)||new_error){ -if(qbevent){evnt(19265);if(r)goto S_22628;} -do{ -*_FUNC_FIXOPERATIONORDER_FLOAT_V=((long double*)(__ARRAY_FLOAT_CONSTFLOAT[0]))[array_check((*_FUNC_FIXOPERATIONORDER_LONG_I2)-__ARRAY_FLOAT_CONSTFLOAT[4],__ARRAY_FLOAT_CONSTFLOAT[5])]; -if(!qbevent)break;evnt(19266);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_INTEGER64_V=qbr(*_FUNC_FIXOPERATIONORDER_FLOAT_V); -if(!qbevent)break;evnt(19267);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_UINTEGER64_V=*_FUNC_FIXOPERATIONORDER_INTEGER64_V; -if(!qbevent)break;evnt(19268);}while(r); -}else{ -S_22633:; -if ((*_FUNC_FIXOPERATIONORDER_LONG_T&*__LONG_ISUNSIGNED)||new_error){ -if(qbevent){evnt(19270);if(r)goto S_22633;} -do{ -*_FUNC_FIXOPERATIONORDER_UINTEGER64_V=((uint64*)(__ARRAY_UINTEGER64_CONSTUINTEGER[0]))[array_check((*_FUNC_FIXOPERATIONORDER_LONG_I2)-__ARRAY_UINTEGER64_CONSTUINTEGER[4],__ARRAY_UINTEGER64_CONSTUINTEGER[5])]; -if(!qbevent)break;evnt(19271);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_INTEGER64_V=*_FUNC_FIXOPERATIONORDER_UINTEGER64_V; -if(!qbevent)break;evnt(19272);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_FLOAT_V=*_FUNC_FIXOPERATIONORDER_INTEGER64_V; -if(!qbevent)break;evnt(19273);}while(r); -}else{ -do{ -*_FUNC_FIXOPERATIONORDER_INTEGER64_V=((int64*)(__ARRAY_INTEGER64_CONSTINTEGER[0]))[array_check((*_FUNC_FIXOPERATIONORDER_LONG_I2)-__ARRAY_INTEGER64_CONSTINTEGER[4],__ARRAY_INTEGER64_CONSTINTEGER[5])]; -if(!qbevent)break;evnt(19275);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_FLOAT_V=*_FUNC_FIXOPERATIONORDER_INTEGER64_V; -if(!qbevent)break;evnt(19276);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_UINTEGER64_V=*_FUNC_FIXOPERATIONORDER_INTEGER64_V; -if(!qbevent)break;evnt(19277);}while(r); -} -} -S_22643:; -if ((*_FUNC_FIXOPERATIONORDER_LONG_ET)||new_error){ -if(qbevent){evnt(19281);if(r)goto S_22643;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_T=*_FUNC_FIXOPERATIONORDER_LONG_ET; -if(!qbevent)break;evnt(19281);}while(r); -} -S_22646:; -if ((*_FUNC_FIXOPERATIONORDER_LONG_T&*__LONG_ISFLOAT)||new_error){ -if(qbevent){evnt(19284);if(r)goto S_22646;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_E,qbs_ltrim(qbs_rtrim(qbs_str((long double)(*_FUNC_FIXOPERATIONORDER_FLOAT_V))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19285);}while(r); -}else{ -S_22649:; -if ((*_FUNC_FIXOPERATIONORDER_LONG_T&*__LONG_ISUNSIGNED)||new_error){ -if(qbevent){evnt(19287);if(r)goto S_22649;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_E,qbs_ltrim(qbs_rtrim(qbs_str((uint64)(*_FUNC_FIXOPERATIONORDER_UINTEGER64_V))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19288);}while(r); -}else{ -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_E,qbs_ltrim(qbs_rtrim(qbs_str((int64)(*_FUNC_FIXOPERATIONORDER_INTEGER64_V))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19290);}while(r); -} -} -S_22655:; -if ((*_FUNC_FIXOPERATIONORDER_LONG_T&*__LONG_ISFLOAT)||new_error){ -if(qbevent){evnt(19295);if(r)goto S_22655;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_T2=*_FUNC_FIXOPERATIONORDER_LONG_T& 511 ; -if(!qbevent)break;evnt(19296);}while(r); -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19298);}while(r); -S_22658:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_FIXOPERATIONORDER_STRING_E,qbs_new_txt_len("E",1),0)))||new_error){ -if(qbevent){evnt(19299);if(r)goto S_22658;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,qbs_new_txt_len("E",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19299);}while(r); -} -S_22661:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_FIXOPERATIONORDER_STRING_E,qbs_new_txt_len("D",1),0)))||new_error){ -if(qbevent){evnt(19300);if(r)goto S_22661;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,qbs_new_txt_len("D",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19300);}while(r); -} -S_22664:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_FIXOPERATIONORDER_STRING_E,qbs_new_txt_len("F",1),0)))||new_error){ -if(qbevent){evnt(19301);if(r)goto S_22664;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,qbs_new_txt_len("F",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19301);}while(r); -} -S_22667:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_FIXOPERATIONORDER_STRING_S->len))||new_error){ -if(qbevent){evnt(19302);if(r)goto S_22667;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_X=func_instr(NULL,_FUNC_FIXOPERATIONORDER_STRING_E,_FUNC_FIXOPERATIONORDER_STRING_S,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19304);}while(r); -S_22669:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_T2== 32 ))||new_error){ -if(qbevent){evnt(19306);if(r)goto S_22669;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,qbs_new_txt_len("E",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19306);}while(r); -} -S_22672:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_T2== 64 ))||new_error){ -if(qbevent){evnt(19307);if(r)goto S_22672;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,qbs_new_txt_len("D",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19307);}while(r); -} -S_22675:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_T2== 256 ))||new_error){ -if(qbevent){evnt(19308);if(r)goto S_22675;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,qbs_new_txt_len("F",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19308);}while(r); -} -do{ -sub_mid(_FUNC_FIXOPERATIONORDER_STRING_E,*_FUNC_FIXOPERATIONORDER_LONG_X, 1 ,_FUNC_FIXOPERATIONORDER_STRING_S,1); -if(!qbevent)break;evnt(19309);}while(r); -S_22679:; -if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_FUNC_FIXOPERATIONORDER_STRING_E,qbs_new_txt_len(".",1),0)== 0 )))||new_error){ -if(qbevent){evnt(19310);if(r)goto S_22679;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_E,qbs_add(qbs_add(qbs_left(_FUNC_FIXOPERATIONORDER_STRING_E,*_FUNC_FIXOPERATIONORDER_LONG_X- 1 ),qbs_new_txt_len(".0",2)),qbs_right(_FUNC_FIXOPERATIONORDER_STRING_E,_FUNC_FIXOPERATIONORDER_STRING_E->len-*_FUNC_FIXOPERATIONORDER_LONG_X+ 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19310);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_X=*_FUNC_FIXOPERATIONORDER_LONG_X+ 2 ; -if(!qbevent)break;evnt(19310);}while(r); -} -S_22683:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_FIXOPERATIONORDER_STRING_E, 1 ),qbs_new_txt_len(".",1))))||new_error){ -if(qbevent){evnt(19311);if(r)goto S_22683;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_E,qbs_add(qbs_new_txt_len("0",1),_FUNC_FIXOPERATIONORDER_STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19311);}while(r); -} -S_22686:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_FIXOPERATIONORDER_STRING_E, 2 ),qbs_new_txt_len("-.",2))))||new_error){ -if(qbevent){evnt(19312);if(r)goto S_22686;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_E,qbs_add(qbs_new_txt_len("-0",2),qbs_right(_FUNC_FIXOPERATIONORDER_STRING_E,_FUNC_FIXOPERATIONORDER_STRING_E->len- 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19312);}while(r); -} -S_22689:; -if ((qbs_cleanup(qbs_tmp_base,(-(func_instr(NULL,_FUNC_FIXOPERATIONORDER_STRING_E,qbs_new_txt_len("+",1),0)== 0 ))&(-(func_instr(NULL,_FUNC_FIXOPERATIONORDER_STRING_E,qbs_new_txt_len("-",1),0)== 0 ))))||new_error){ -if(qbevent){evnt(19313);if(r)goto S_22689;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_E,qbs_add(qbs_add(qbs_left(_FUNC_FIXOPERATIONORDER_STRING_E,*_FUNC_FIXOPERATIONORDER_LONG_X),qbs_new_txt_len("+",1)),qbs_right(_FUNC_FIXOPERATIONORDER_STRING_E,_FUNC_FIXOPERATIONORDER_STRING_E->len-*_FUNC_FIXOPERATIONORDER_LONG_X))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19314);}while(r); -} -}else{ -S_22693:; -if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_FUNC_FIXOPERATIONORDER_STRING_E,qbs_new_txt_len(".",1),0)== 0 )))||new_error){ -if(qbevent){evnt(19318);if(r)goto S_22693;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_E,qbs_add(_FUNC_FIXOPERATIONORDER_STRING_E,qbs_new_txt_len(".0",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19318);}while(r); -} -S_22696:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_FIXOPERATIONORDER_STRING_E, 1 ),qbs_new_txt_len(".",1))))||new_error){ -if(qbevent){evnt(19319);if(r)goto S_22696;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_E,qbs_add(qbs_new_txt_len("0",1),_FUNC_FIXOPERATIONORDER_STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19319);}while(r); -} -S_22699:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_FIXOPERATIONORDER_STRING_E, 2 ),qbs_new_txt_len("-.",2))))||new_error){ -if(qbevent){evnt(19320);if(r)goto S_22699;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_E,qbs_add(qbs_new_txt_len("-0",2),qbs_right(_FUNC_FIXOPERATIONORDER_STRING_E,_FUNC_FIXOPERATIONORDER_STRING_E->len- 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19320);}while(r); -} -S_22702:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_T2== 32 ))||new_error){ -if(qbevent){evnt(19321);if(r)goto S_22702;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_E,qbs_add(_FUNC_FIXOPERATIONORDER_STRING_E,qbs_new_txt_len("E+0",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19321);}while(r); -} -S_22705:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_T2== 64 ))||new_error){ -if(qbevent){evnt(19322);if(r)goto S_22705;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_E,qbs_add(_FUNC_FIXOPERATIONORDER_STRING_E,qbs_new_txt_len("D+0",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19322);}while(r); -} -S_22708:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_T2== 256 ))||new_error){ -if(qbevent){evnt(19323);if(r)goto S_22708;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_E,qbs_add(_FUNC_FIXOPERATIONORDER_STRING_E,qbs_new_txt_len("F+0",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19323);}while(r); -} -} -}else{ -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,FUNC_TYPEVALUE2SYMBOL(_FUNC_FIXOPERATIONORDER_LONG_T)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19326);}while(r); -S_22714:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(19327);if(r)goto S_22714;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(19327);}while(r); -} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_E,qbs_add(_FUNC_FIXOPERATIONORDER_STRING_E,_FUNC_FIXOPERATIONORDER_STRING_S)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19328);}while(r); -} -} -do{ -SUB_REMOVEELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I,_FUNC_FIXOPERATIONORDER_LONG_I,&(pass2862= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19333);}while(r); -do{ -SUB_INSERTELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2863=*_FUNC_FIXOPERATIONORDER_LONG_I- 1 ),_FUNC_FIXOPERATIONORDER_STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19334);}while(r); -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F2,qbs_add(((qbs*)(((uint64*)(__ARRAY_STRING_CONSTCNAME[0]))[array_check((*_FUNC_FIXOPERATIONORDER_LONG_I2)-__ARRAY_STRING_CONSTCNAME[4],__ARRAY_STRING_CONSTCNAME[5])])),_FUNC_FIXOPERATIONORDER_STRING_ES)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19336);}while(r); -do{ -goto LABEL_CLASSDONE; -if(!qbevent)break;evnt(19337);}while(r); -} -} -} -} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_U,_FUNC_FIXOPERATIONORDER_STRING_F2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19347);}while(r); -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_TRY_STRING,_FUNC_FIXOPERATIONORDER_STRING_F2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19349);}while(r); -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_TRY_STRING2,_FUNC_FIXOPERATIONORDER_STRING_TRY_STRING); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19350);}while(r); -S_22731:; -fornext_value2865= 1 ; -fornext_finalvalue2865= 4 ; -fornext_step2865= 1 ; -if (fornext_step2865<0) fornext_step_negative2865=1; else fornext_step_negative2865=0; -if (new_error) goto fornext_error2865; -goto fornext_entrylabel2865; -while(1){ -fornext_value2865=fornext_step2865+(*_FUNC_FIXOPERATIONORDER_LONG_TRY_METHOD); -fornext_entrylabel2865: -*_FUNC_FIXOPERATIONORDER_LONG_TRY_METHOD=fornext_value2865; -if (fornext_step_negative2865){ -if (fornext_value2865fornext_finalvalue2865) break; -} -fornext_error2865:; -if(qbevent){evnt(19352);if(r)goto S_22731;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_TRY_STRING,_FUNC_FIXOPERATIONORDER_STRING_TRY_STRING2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19353);}while(r); -S_22733:; -if (((-(*_FUNC_FIXOPERATIONORDER_LONG_TRY_METHOD== 2 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_TRY_METHOD== 4 )))||new_error){ -if(qbevent){evnt(19354);if(r)goto S_22733;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_DTYP,FUNC_REMOVESYMBOL(_FUNC_FIXOPERATIONORDER_STRING_TRY_STRING)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19355);}while(r); -S_22735:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_FIXOPERATIONORDER_STRING_DTYP->len== 0 )))||new_error){ -if(qbevent){evnt(19356);if(r)goto S_22735;} -S_22736:; -if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISOPERATOR(_FUNC_FIXOPERATIONORDER_STRING_TRY_STRING)== 0 )))||new_error){ -if(qbevent){evnt(19357);if(r)goto S_22736;} -S_22737:; -if ((qbs_cleanup(qbs_tmp_base,FUNC_ISVALIDVARIABLE(_FUNC_FIXOPERATIONORDER_STRING_TRY_STRING)))||new_error){ -if(qbevent){evnt(19358);if(r)goto S_22737;} -S_22738:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_FIXOPERATIONORDER_STRING_TRY_STRING, 1 ),qbs_new_txt_len("_",1))))||new_error){ -if(qbevent){evnt(19359);if(r)goto S_22738;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_V= 27 ; -if(!qbevent)break;evnt(19359);}while(r); -}else{ -do{ -*_FUNC_FIXOPERATIONORDER_LONG_V=qbs_asc(qbs_ucase(_FUNC_FIXOPERATIONORDER_STRING_TRY_STRING))- 64 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19359);}while(r); -} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_TRY_STRING,qbs_add(_FUNC_FIXOPERATIONORDER_STRING_TRY_STRING,((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEEXTAZ[0]))[array_check((*_FUNC_FIXOPERATIONORDER_LONG_V)-__ARRAY_STRING_DEFINEEXTAZ[4],__ARRAY_STRING_DEFINEEXTAZ[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19360);}while(r); -} -} -}else{ -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_TRY_STRING,_FUNC_FIXOPERATIONORDER_STRING_TRY_STRING2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19364);}while(r); -} -} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_TRY=FUNC_FINDID(_FUNC_FIXOPERATIONORDER_STRING_TRY_STRING); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19367);}while(r); -S_22751:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(19368);if(r)goto S_22751;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(19368);}while(r); -} -S_22754:; -while((*_FUNC_FIXOPERATIONORDER_LONG_TRY)||new_error){ -if(qbevent){evnt(19369);if(r)goto S_22754;} -S_22755:; -if (((((-(*__LONG_SUBFUNCN==*(int32*)(((char*)__UDT_ID)+(2641))))&(-(*_FUNC_FIXOPERATIONORDER_LONG_TRY_METHOD<= 2 ))))|(-(*_FUNC_FIXOPERATIONORDER_LONG_TRY_METHOD>= 3 )))||new_error){ -if(qbevent){evnt(19370);if(r)goto S_22755;} -S_22756:; -if (( 0 )||new_error){ -if(qbevent){evnt(19372);if(r)goto S_22756;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2868; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("found id matching ",18),_FUNC_FIXOPERATIONORDER_STRING_F2), 0, 0, 1); -if (new_error) goto skip2868; -skip2868: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(19372);}while(r); -} -S_22759:; -if (((-(*_FUNC_FIXOPERATIONORDER_LONG_NEXTC== 40 ))|(-(*_FUNC_FIXOPERATIONORDER_BYTE_UBOUNDLBOUND!= 0 )))||new_error){ -if(qbevent){evnt(19374);if(r)goto S_22759;} -do{ -*_FUNC_FIXOPERATIONORDER_BYTE_UBOUNDLBOUND= 0 ; -if(!qbevent)break;evnt(19376);}while(r); -S_22761:; -if (((-(*(int32*)(((char*)__UDT_ID)+(512))!= 0 ))|(-(*(int16*)(((char*)__UDT_ID)+(544))== 1 )))||new_error){ -if(qbevent){evnt(19379);if(r)goto S_22761;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F3,_FUNC_FIXOPERATIONORDER_STRING_F2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19383);}while(r); -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,FUNC_REMOVESYMBOL(_FUNC_FIXOPERATIONORDER_STRING_F3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19384);}while(r); -S_22764:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(19385);if(r)goto S_22764;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(19385);}while(r); -} -S_22767:; -if ((*(int16*)(((char*)__UDT_ID)+(548)))||new_error){ -if(qbevent){evnt(19386);if(r)goto S_22767;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F2,qbs_add(FUNC_SCASE(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1))),_FUNC_FIXOPERATIONORDER_STRING_S)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19387);}while(r); -S_22769:; -if ((qbs_cleanup(qbs_tmp_base,((qbs_equal(qbs_ucase(_FUNC_FIXOPERATIONORDER_STRING_F2),qbs_new_txt_len("UBOUND",6)))|(qbs_equal(qbs_ucase(_FUNC_FIXOPERATIONORDER_STRING_F2),qbs_new_txt_len("LBOUND",6))))))||new_error){ -if(qbevent){evnt(19388);if(r)goto S_22769;} -do{ -*_FUNC_FIXOPERATIONORDER_BYTE_UBOUNDLBOUND= 2 ; -if(!qbevent)break;evnt(19389);}while(r); -} -}else{ -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F2,qbs_add(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1)),_FUNC_FIXOPERATIONORDER_STRING_S)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19392);}while(r); -} -do{ -SUB_REMOVEELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I,_FUNC_FIXOPERATIONORDER_LONG_I,&(pass2869= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19394);}while(r); -do{ -SUB_INSERTELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2870=*_FUNC_FIXOPERATIONORDER_LONG_I- 1 ),qbs_ucase(_FUNC_FIXOPERATIONORDER_STRING_F2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19395);}while(r); -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_F,_FUNC_FIXOPERATIONORDER_STRING_F2),__STRING1_SP),qbs_new_txt_len("(",1)),__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19396);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_B2= 1 ; -if(!qbevent)break;evnt(19399);}while(r); -S_22779:; -fornext_value2872=*_FUNC_FIXOPERATIONORDER_LONG_I+ 2 ; -fornext_finalvalue2872=*_FUNC_FIXOPERATIONORDER_LONG_N; -fornext_step2872= 1 ; -if (fornext_step2872<0) fornext_step_negative2872=1; else fornext_step_negative2872=0; -if (new_error) goto fornext_error2872; -goto fornext_entrylabel2872; -while(1){ -fornext_value2872=fornext_step2872+(*_FUNC_FIXOPERATIONORDER_LONG_I2); -fornext_entrylabel2872: -*_FUNC_FIXOPERATIONORDER_LONG_I2=fornext_value2872; -if (fornext_step_negative2872){ -if (fornext_value2872fornext_finalvalue2872) break; -} -fornext_error2872:; -if(qbevent){evnt(19400);if(r)goto S_22779;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_C2=qbs_asc(FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19401);}while(r); -S_22781:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_C2== 40 ))||new_error){ -if(qbevent){evnt(19402);if(r)goto S_22781;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_B2=*_FUNC_FIXOPERATIONORDER_LONG_B2+ 1 ; -if(!qbevent)break;evnt(19402);}while(r); -} -S_22784:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_C2== 41 ))||new_error){ -if(qbevent){evnt(19403);if(r)goto S_22784;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_B2=*_FUNC_FIXOPERATIONORDER_LONG_B2- 1 ; -if(!qbevent)break;evnt(19403);}while(r); -} -S_22787:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_B2== 0 ))||new_error){ -if(qbevent){evnt(19404);if(r)goto S_22787;} -do{ -goto fornext_exit_2871; -if(!qbevent)break;evnt(19404);}while(r); -} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F,qbs_add(_FUNC_FIXOPERATIONORDER_STRING_F,__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19405);}while(r); -fornext_continue_2871:; -} -fornext_exit_2871:; -do{ -*_FUNC_FIXOPERATIONORDER_LONG_I=*_FUNC_FIXOPERATIONORDER_LONG_I2; -if(!qbevent)break;evnt(19409);}while(r); -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F,qbs_add(_FUNC_FIXOPERATIONORDER_STRING_F,qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19411);}while(r); -S_22794:; -if ((*(int32*)(((char*)__UDT_ID)+(512))&*__LONG_ISUDT)||new_error){ -if(qbevent){evnt(19414);if(r)goto S_22794;} -S_22795:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_I<*_FUNC_FIXOPERATIONORDER_LONG_N))||new_error){ -if(qbevent){evnt(19415);if(r)goto S_22795;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_NEXTC=qbs_asc(FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2873=*_FUNC_FIXOPERATIONORDER_LONG_I+ 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19415);}while(r); -}else{ -do{ -*_FUNC_FIXOPERATIONORDER_LONG_NEXTC= 0 ; -if(!qbevent)break;evnt(19415);}while(r); -} -S_22800:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_NEXTC== 46 ))||new_error){ -if(qbevent){evnt(19416);if(r)goto S_22800;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_T=*(int32*)(((char*)__UDT_ID)+(512)); -if(!qbevent)break;evnt(19416);}while(r); -do{ -goto LABEL_FOOUDT; -if(!qbevent)break;evnt(19416);}while(r); -} -} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F,qbs_add(_FUNC_FIXOPERATIONORDER_STRING_F,__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19419);}while(r); -do{ -goto LABEL_CLASSDONE_SPECIAL; -if(!qbevent)break;evnt(19420);}while(r); -} -} -S_22809:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_NEXTC!= 40 ))||new_error){ -if(qbevent){evnt(19424);if(r)goto S_22809;} -S_22810:; -if (((-(*(int32*)(((char*)__UDT_ID)+(536))!= 0 ))|(-(*(int16*)(((char*)__UDT_ID)+(544))== 1 )))||new_error){ -if(qbevent){evnt(19425);if(r)goto S_22810;} -S_22811:; -if ((*(int32*)(((char*)__UDT_ID)+(536))&*__LONG_ISUDT)||new_error){ -if(qbevent){evnt(19427);if(r)goto S_22811;} -S_22812:; -if ((*(int16*)(((char*)__UDT_ID)+(548)))||new_error){ -if(qbevent){evnt(19432);if(r)goto S_22812;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F2,qbs_add(FUNC_SCASE(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1))),FUNC_REMOVESYMBOL(_FUNC_FIXOPERATIONORDER_STRING_F2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19433);}while(r); -}else{ -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F2,qbs_add(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1)),FUNC_REMOVESYMBOL(_FUNC_FIXOPERATIONORDER_STRING_F2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19435);}while(r); -} -S_22817:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(19437);if(r)goto S_22817;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(19437);}while(r); -} -do{ -SUB_REMOVEELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I,_FUNC_FIXOPERATIONORDER_LONG_I,&(pass2874= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19438);}while(r); -do{ -SUB_INSERTELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2875=*_FUNC_FIXOPERATIONORDER_LONG_I- 1 ),qbs_ucase(_FUNC_FIXOPERATIONORDER_STRING_F2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19439);}while(r); -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F,qbs_add(_FUNC_FIXOPERATIONORDER_STRING_F,_FUNC_FIXOPERATIONORDER_STRING_F2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19440);}while(r); -S_22823:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_NEXTC!= 46 ))||new_error){ -if(qbevent){evnt(19444);if(r)goto S_22823;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F,qbs_add(_FUNC_FIXOPERATIONORDER_STRING_F,__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19444);}while(r); -do{ -goto LABEL_CLASSDONE_SPECIAL; -if(!qbevent)break;evnt(19444);}while(r); -} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_T=*(int32*)(((char*)__UDT_ID)+(536)); -if(!qbevent)break;evnt(19445);}while(r); -LABEL_FOOUDT:; -if(qbevent){evnt(19447);r=0;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F,qbs_add(qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_F,__STRING1_SP),qbs_new_txt_len(".",1)),__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19449);}while(r); -do{ -*__LONG_E=((int32*)(__ARRAY_LONG_UDTXNEXT[0]))[array_check((*_FUNC_FIXOPERATIONORDER_LONG_T& 511 )-__ARRAY_LONG_UDTXNEXT[4],__ARRAY_LONG_UDTXNEXT[5])]; -if(!qbevent)break;evnt(19450);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_I=*_FUNC_FIXOPERATIONORDER_LONG_I+ 2 ; -if(!qbevent)break;evnt(19451);}while(r); -S_22831:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_I>*_FUNC_FIXOPERATIONORDER_LONG_N))||new_error){ -if(qbevent){evnt(19456);if(r)goto S_22831;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected .element",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19456);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(19456);}while(r); -} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F2,FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19457);}while(r); -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,FUNC_REMOVESYMBOL(_FUNC_FIXOPERATIONORDER_STRING_F2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19458);}while(r); -S_22837:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(19459);if(r)goto S_22837;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(19459);}while(r); -} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_U,qbs_add(qbs_ucase(_FUNC_FIXOPERATIONORDER_STRING_F2),func_space( 256 -_FUNC_FIXOPERATIONORDER_STRING_F2->len))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19460);}while(r); -LABEL_FOOUDTNEXTE:; -if(qbevent){evnt(19463);r=0;} -S_22841:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTENAME[0]))[(array_check((*__LONG_E)-__ARRAY_STRING256_UDTENAME[4],__ARRAY_STRING256_UDTENAME[5]))*256],256,1),_FUNC_FIXOPERATIONORDER_STRING_U)))||new_error){ -if(qbevent){evnt(19464);if(r)goto S_22841;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F2,qbs_add(qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTECNAME[0]))[(array_check((*__LONG_E)-__ARRAY_STRING256_UDTECNAME[4],__ARRAY_STRING256_UDTECNAME[5]))*256],256,1)),_FUNC_FIXOPERATIONORDER_STRING_S)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19469);}while(r); -do{ -SUB_REMOVEELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I,_FUNC_FIXOPERATIONORDER_LONG_I,&(pass2877= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19470);}while(r); -do{ -SUB_INSERTELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2878=*_FUNC_FIXOPERATIONORDER_LONG_I- 1 ),qbs_ucase(_FUNC_FIXOPERATIONORDER_STRING_F2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19471);}while(r); -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F,qbs_add(_FUNC_FIXOPERATIONORDER_STRING_F,_FUNC_FIXOPERATIONORDER_STRING_F2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19472);}while(r); -S_22846:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_I==*_FUNC_FIXOPERATIONORDER_LONG_N))||new_error){ -if(qbevent){evnt(19474);if(r)goto S_22846;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F,qbs_add(_FUNC_FIXOPERATIONORDER_STRING_F,__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19474);}while(r); -do{ -goto LABEL_CLASSDONE_SPECIAL; -if(!qbevent)break;evnt(19474);}while(r); -} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_NEXTC=qbs_asc(FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2879=*_FUNC_FIXOPERATIONORDER_LONG_I+ 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19475);}while(r); -S_22851:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_NEXTC!= 46 ))||new_error){ -if(qbevent){evnt(19476);if(r)goto S_22851;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F,qbs_add(_FUNC_FIXOPERATIONORDER_STRING_F,__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19476);}while(r); -do{ -goto LABEL_CLASSDONE_SPECIAL; -if(!qbevent)break;evnt(19476);}while(r); -} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_T=((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]; -if(!qbevent)break;evnt(19478);}while(r); -S_22856:; -if ((-((*_FUNC_FIXOPERATIONORDER_LONG_T&*__LONG_ISUDT)== 0 ))||new_error){ -if(qbevent){evnt(19479);if(r)goto S_22856;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Invalid . after element",23)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19479);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(19479);}while(r); -} -do{ -goto LABEL_FOOUDT; -if(!qbevent)break;evnt(19480);}while(r); -} -do{ -*__LONG_E=((int32*)(__ARRAY_LONG_UDTENEXT[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5])]; -if(!qbevent)break;evnt(19485);}while(r); -S_22863:; -if ((-(*__LONG_E== 0 ))||new_error){ -if(qbevent){evnt(19486);if(r)goto S_22863;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Element not defined",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19486);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(19486);}while(r); -} -do{ -goto LABEL_FOOUDTNEXTE; -if(!qbevent)break;evnt(19487);}while(r); -} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F3,_FUNC_FIXOPERATIONORDER_STRING_F2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19492);}while(r); -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,FUNC_REMOVESYMBOL(_FUNC_FIXOPERATIONORDER_STRING_F3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19493);}while(r); -S_22871:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(19494);if(r)goto S_22871;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(19494);}while(r); -} -S_22874:; -if ((*(int16*)(((char*)__UDT_ID)+(548)))||new_error){ -if(qbevent){evnt(19495);if(r)goto S_22874;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F2,qbs_add(FUNC_SCASE(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1))),_FUNC_FIXOPERATIONORDER_STRING_S)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19496);}while(r); -}else{ -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F2,qbs_add(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1)),_FUNC_FIXOPERATIONORDER_STRING_S)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19498);}while(r); -} -do{ -SUB_REMOVEELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I,_FUNC_FIXOPERATIONORDER_LONG_I,&(pass2880= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19501);}while(r); -do{ -SUB_INSERTELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2881=*_FUNC_FIXOPERATIONORDER_LONG_I- 1 ),qbs_ucase(_FUNC_FIXOPERATIONORDER_STRING_F2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19502);}while(r); -do{ -goto LABEL_COULDNOTCLASSIFY; -if(!qbevent)break;evnt(19503);}while(r); -} -} -} -S_22885:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_TRY== 2 ))||new_error){ -if(qbevent){evnt(19509);if(r)goto S_22885;} -do{ -*__INTEGER_FINDANOTHERID= 1 ; -if(!qbevent)break;evnt(19509);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_TRY=FUNC_FINDID(_FUNC_FIXOPERATIONORDER_STRING_TRY_STRING); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19509);}while(r); -}else{ -do{ -*_FUNC_FIXOPERATIONORDER_LONG_TRY= 0 ; -if(!qbevent)break;evnt(19509);}while(r); -} -S_22891:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(19510);if(r)goto S_22891;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(19510);}while(r); -} -dl_continue_2867:; -} -dl_exit_2867:; -fornext_continue_2864:; -} -fornext_exit_2864:; -LABEL_COULDNOTCLASSIFY:; -if(qbevent){evnt(19513);r=0;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_ucase(_FUNC_FIXOPERATIONORDER_STRING_F2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19516);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_INTERNALTYPE= 0 ; -if(!qbevent)break;evnt(19517);}while(r); -S_22898:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_new_txt_len("STRING",6))))||new_error){ -if(qbevent){evnt(19518);if(r)goto S_22898;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_INTERNALTYPE= 1 ; -if(!qbevent)break;evnt(19518);}while(r); -} -S_22901:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_new_txt_len("_UNSIGNED",9)))|(((qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_new_txt_len("UNSIGNED",8)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ -if(qbevent){evnt(19519);if(r)goto S_22901;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_INTERNALTYPE= 1 ; -if(!qbevent)break;evnt(19519);}while(r); -} -S_22904:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_new_txt_len("_BIT",4)))|(((qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_new_txt_len("BIT",3)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ -if(qbevent){evnt(19520);if(r)goto S_22904;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_INTERNALTYPE= 1 ; -if(!qbevent)break;evnt(19520);}while(r); -} -S_22907:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_new_txt_len("_BYTE",5)))|(((qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_new_txt_len("BYTE",4)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ -if(qbevent){evnt(19521);if(r)goto S_22907;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_INTERNALTYPE= 1 ; -if(!qbevent)break;evnt(19521);}while(r); -} -S_22910:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_new_txt_len("INTEGER",7))))||new_error){ -if(qbevent){evnt(19522);if(r)goto S_22910;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_INTERNALTYPE= 1 ; -if(!qbevent)break;evnt(19522);}while(r); -} -S_22913:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_new_txt_len("LONG",4))))||new_error){ -if(qbevent){evnt(19523);if(r)goto S_22913;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_INTERNALTYPE= 1 ; -if(!qbevent)break;evnt(19523);}while(r); -} -S_22916:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_new_txt_len("_INTEGER64",10)))|(((qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_new_txt_len("INTEGER64",9)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ -if(qbevent){evnt(19524);if(r)goto S_22916;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_INTERNALTYPE= 1 ; -if(!qbevent)break;evnt(19524);}while(r); -} -S_22919:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_new_txt_len("SINGLE",6))))||new_error){ -if(qbevent){evnt(19525);if(r)goto S_22919;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_INTERNALTYPE= 1 ; -if(!qbevent)break;evnt(19525);}while(r); -} -S_22922:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_new_txt_len("DOUBLE",6))))||new_error){ -if(qbevent){evnt(19526);if(r)goto S_22922;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_INTERNALTYPE= 1 ; -if(!qbevent)break;evnt(19526);}while(r); -} -S_22925:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_new_txt_len("_FLOAT",6)))|(((qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_new_txt_len("FLOAT",5)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ -if(qbevent){evnt(19527);if(r)goto S_22925;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_INTERNALTYPE= 1 ; -if(!qbevent)break;evnt(19527);}while(r); -} -S_22928:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_new_txt_len("_OFFSET",7)))|(((qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_new_txt_len("OFFSET",6)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ -if(qbevent){evnt(19528);if(r)goto S_22928;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_INTERNALTYPE= 1 ; -if(!qbevent)break;evnt(19528);}while(r); -} -S_22931:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_INTERNALTYPE== 1 ))||new_error){ -if(qbevent){evnt(19529);if(r)goto S_22931;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F2,FUNC_SCASE2(_FUNC_FIXOPERATIONORDER_STRING_F3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19530);}while(r); -do{ -SUB_REMOVEELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I,_FUNC_FIXOPERATIONORDER_LONG_I,&(pass2882= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19531);}while(r); -do{ -SUB_INSERTELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2883=*_FUNC_FIXOPERATIONORDER_LONG_I- 1 ),_FUNC_FIXOPERATIONORDER_STRING_F3); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19532);}while(r); -do{ -goto LABEL_CLASSDONE; -if(!qbevent)break;evnt(19533);}while(r); -} -do{ -goto LABEL_CLASSDONE; -if(!qbevent)break;evnt(19536);}while(r); -} -LABEL_CLASSDONE:; -if(qbevent){evnt(19539);r=0;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F,qbs_add(_FUNC_FIXOPERATIONORDER_STRING_F,_FUNC_FIXOPERATIONORDER_STRING_F2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19540);}while(r); -} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F,qbs_add(_FUNC_FIXOPERATIONORDER_STRING_F,__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19542);}while(r); -LABEL_CLASSDONE_SPECIAL:; -if(qbevent){evnt(19543);r=0;} -fornext_continue_2826:; -} -fornext_exit_2826:; -S_22943:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_FIXOPERATIONORDER_STRING_F->len))||new_error){ -if(qbevent){evnt(19546);if(r)goto S_22943;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F,qbs_left(_FUNC_FIXOPERATIONORDER_STRING_F,_FUNC_FIXOPERATIONORDER_STRING_F->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19546);}while(r); -} -S_22946:; -if (( 0 )||new_error){ -if(qbevent){evnt(19548);if(r)goto S_22946;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2886; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("fixoperationorder:identification:",33),_FUNC_FIXOPERATIONORDER_STRING_A), 0, 1, 0); -if (new_error) goto skip2886; -sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_FIXOPERATIONORDER_LONG_N)), 1, 0, 1); -if (new_error) goto skip2886; -skip2886: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(19548);}while(r); -} -S_22949:; -if (( 0 )||new_error){ -if(qbevent){evnt(19549);if(r)goto S_22949;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2887; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("fixoperationorder:identification(layout):",41),_FUNC_FIXOPERATIONORDER_STRING_F), 0, 1, 0); -if (new_error) goto skip2887; -sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_FIXOPERATIONORDER_LONG_N)), 1, 0, 1); -if (new_error) goto skip2887; -skip2887: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(19549);}while(r); -} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_FF,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19555);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_B= 0 ; -if(!qbevent)break;evnt(19556);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_B2= 0 ; -if(!qbevent)break;evnt(19557);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_P1= 0 ; -if(!qbevent)break;evnt(19558);}while(r); -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_AA,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19559);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_N=FUNC_NUMELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19560);}while(r); -S_22958:; -fornext_value2889= 1 ; -fornext_finalvalue2889=*_FUNC_FIXOPERATIONORDER_LONG_N; -fornext_step2889= 1 ; -if (fornext_step2889<0) fornext_step_negative2889=1; else fornext_step_negative2889=0; -if (new_error) goto fornext_error2889; -goto fornext_entrylabel2889; -while(1){ -fornext_value2889=fornext_step2889+(*_FUNC_FIXOPERATIONORDER_LONG_I); -fornext_entrylabel2889: -*_FUNC_FIXOPERATIONORDER_LONG_I=fornext_value2889; -if (fornext_step_negative2889){ -if (fornext_value2889fornext_finalvalue2889) break; -} -fornext_error2889:; -if(qbevent){evnt(19561);if(r)goto S_22958;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_OPENBRACKET= 0 ; -if(!qbevent)break;evnt(19563);}while(r); -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A2,FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19565);}while(r); -do{ -*_FUNC_FIXOPERATIONORDER_LONG_C=qbs_asc(_FUNC_FIXOPERATIONORDER_STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19567);}while(r); -S_22962:; -if (((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 40 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_C== 123 )))||new_error){ -if(qbevent){evnt(19571);if(r)goto S_22962;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_B=*_FUNC_FIXOPERATIONORDER_LONG_B+ 1 ; -if(!qbevent)break;evnt(19572);}while(r); -S_22964:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_B== 1 ))||new_error){ -if(qbevent){evnt(19574);if(r)goto S_22964;} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_P1=*_FUNC_FIXOPERATIONORDER_LONG_I+ 1 ; -if(!qbevent)break;evnt(19579);}while(r); -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_AA,qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_AA,qbs_new_txt_len("(",1)),__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19580);}while(r); -} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_OPENBRACKET= 1 ; -if(!qbevent)break;evnt(19584);}while(r); -do{ -goto LABEL_FOOPASS; -if(!qbevent)break;evnt(19586);}while(r); -} -S_22971:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 44 ))||new_error){ -if(qbevent){evnt(19590);if(r)goto S_22971;} -S_22972:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_B== 1 ))||new_error){ -if(qbevent){evnt(19591);if(r)goto S_22972;} -do{ -goto LABEL_FOOPASSIT; -if(!qbevent)break;evnt(19592);}while(r); -} -} -S_22976:; -if (((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 41 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_C== 125 )))||new_error){ -if(qbevent){evnt(19596);if(r)goto S_22976;} -S_22977:; -if ((*_FUNC_FIXOPERATIONORDER_BYTE_UBOUNDLBOUND)||new_error){ -if(qbevent){evnt(19597);if(r)goto S_22977;} -do{ -*_FUNC_FIXOPERATIONORDER_BYTE_UBOUNDLBOUND=*_FUNC_FIXOPERATIONORDER_BYTE_UBOUNDLBOUND- 1 ; -if(!qbevent)break;evnt(19597);}while(r); -} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_B=*_FUNC_FIXOPERATIONORDER_LONG_B- 1 ; -if(!qbevent)break;evnt(19598);}while(r); -S_22981:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_B== 0 ))||new_error){ -if(qbevent){evnt(19600);if(r)goto S_22981;} -LABEL_FOOPASSIT:; -if(qbevent){evnt(19601);r=0;} -S_22982:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_P1!=*_FUNC_FIXOPERATIONORDER_LONG_I))||new_error){ -if(qbevent){evnt(19602);if(r)goto S_22982;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_FOO,FUNC_FIXOPERATIONORDER(FUNC_GETELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_P1,&(pass2890=*_FUNC_FIXOPERATIONORDER_LONG_I- 1 )))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19603);}while(r); -S_22984:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(19604);if(r)goto S_22984;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(19604);}while(r); -} -S_22987:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_FIXOPERATIONORDER_STRING_FOO->len))||new_error){ -if(qbevent){evnt(19605);if(r)goto S_22987;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_AA,qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_AA,_FUNC_FIXOPERATIONORDER_STRING_FOO),__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19606);}while(r); -S_22989:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 125 ))||new_error){ -if(qbevent){evnt(19607);if(r)goto S_22989;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_FF,qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_FF,__STRING_TLAYOUT),__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19607);}while(r); -}else{ -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_FF,qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_FF,__STRING_TLAYOUT),__STRING1_SP2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19607);}while(r); -} -} -} -S_22996:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 44 ))||new_error){ -if(qbevent){evnt(19610);if(r)goto S_22996;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_AA,qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_AA,qbs_new_txt_len(",",1)),__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19610);}while(r); -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_FF,qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_FF,qbs_new_txt_len(",",1)),__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19610);}while(r); -}else{ -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_AA,qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_AA,qbs_new_txt_len(")",1)),__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19610);}while(r); -} -do{ -*_FUNC_FIXOPERATIONORDER_LONG_P1=*_FUNC_FIXOPERATIONORDER_LONG_I+ 1 ; -if(!qbevent)break;evnt(19611);}while(r); -} -do{ -goto LABEL_FOOPASS; -if(!qbevent)break;evnt(19614);}while(r); -} -S_23006:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_B== 0 ))||new_error){ -if(qbevent){evnt(19620);if(r)goto S_23006;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_AA,qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_AA,_FUNC_FIXOPERATIONORDER_STRING_A2),__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19620);}while(r); -} -LABEL_FOOPASS:; -if(qbevent){evnt(19623);r=0;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F2,FUNC_GETELEMENTSPECIAL(_FUNC_FIXOPERATIONORDER_STRING_F,_FUNC_FIXOPERATIONORDER_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19625);}while(r); -S_23010:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(19626);if(r)goto S_23010;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(19626);}while(r); -} -S_23013:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_FIXOPERATIONORDER_STRING_F2->len))||new_error){ -if(qbevent){evnt(19627);if(r)goto S_23013;} -S_23014:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 46 ))||new_error){ -if(qbevent){evnt(19630);if(r)goto S_23014;} -S_23015:; -if (((-(*_FUNC_FIXOPERATIONORDER_LONG_I> 1 ))&(-(*_FUNC_FIXOPERATIONORDER_LONG_I<*_FUNC_FIXOPERATIONORDER_LONG_N)))||new_error){ -if(qbevent){evnt(19631);if(r)goto S_23015;} -S_23016:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_FIXOPERATIONORDER_STRING_FF->len))||new_error){ -if(qbevent){evnt(19632);if(r)goto S_23016;} -do{ -sub_mid(_FUNC_FIXOPERATIONORDER_STRING_FF,_FUNC_FIXOPERATIONORDER_STRING_FF->len, 1 ,__STRING1_SP2,1); -if(!qbevent)break;evnt(19632);}while(r); -} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_FF,qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_FF,qbs_new_txt_len(".",1)),__STRING1_SP2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19633);}while(r); -do{ -goto LABEL_FOOLOOPNXT; -if(!qbevent)break;evnt(19634);}while(r); -} -} -S_23023:; -if ((*_FUNC_FIXOPERATIONORDER_LONG_OPENBRACKET)||new_error){ -if(qbevent){evnt(19639);if(r)goto S_23023;} -S_23024:; -if ((-(*_FUNC_FIXOPERATIONORDER_LONG_I!= 1 ))||new_error){ -if(qbevent){evnt(19642);if(r)goto S_23024;} -S_23025:; -if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISOPERATOR(FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2895=*_FUNC_FIXOPERATIONORDER_LONG_I- 1 )))== 0 )))||new_error){ -if(qbevent){evnt(19643);if(r)goto S_23025;} -do{ -sub_mid(_FUNC_FIXOPERATIONORDER_STRING_FF,_FUNC_FIXOPERATIONORDER_STRING_FF->len, 1 ,__STRING1_SP2,1); -if(!qbevent)break;evnt(19644);}while(r); -} -} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_FF,qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_FF,_FUNC_FIXOPERATIONORDER_STRING_F2),__STRING1_SP2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19647);}while(r); -}else{ -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_FF,qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_FF,_FUNC_FIXOPERATIONORDER_STRING_F2),__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19649);}while(r); -} -} -LABEL_FOOLOOPNXT:; -if(qbevent){evnt(19654);r=0;} -fornext_continue_2888:; -} -fornext_exit_2888:; -S_23035:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_FIXOPERATIONORDER_STRING_AA->len))||new_error){ -if(qbevent){evnt(19658);if(r)goto S_23035;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_AA,qbs_left(_FUNC_FIXOPERATIONORDER_STRING_AA,_FUNC_FIXOPERATIONORDER_STRING_AA->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19658);}while(r); -} -S_23038:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_FIXOPERATIONORDER_STRING_FF->len))||new_error){ -if(qbevent){evnt(19659);if(r)goto S_23038;} -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_FF,qbs_left(_FUNC_FIXOPERATIONORDER_STRING_FF,_FUNC_FIXOPERATIONORDER_STRING_FF->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19659);}while(r); -} -S_23041:; -if (( 0 )||new_error){ -if(qbevent){evnt(19661);if(r)goto S_23041;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2901; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("fixoperationorder:return:",25),_FUNC_FIXOPERATIONORDER_STRING_AA), 0, 0, 1); -if (new_error) goto skip2901; -skip2901: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(19661);}while(r); -} -S_23044:; -if (( 0 )||new_error){ -if(qbevent){evnt(19662);if(r)goto S_23044;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip2902; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("fixoperationorder:layout:",25),_FUNC_FIXOPERATIONORDER_STRING_FF), 0, 0, 1); -if (new_error) goto skip2902; -skip2902: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(19662);}while(r); -} -do{ -qbs_set(__STRING_TLAYOUT,_FUNC_FIXOPERATIONORDER_STRING_FF); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19663);}while(r); -do{ -qbs_set(_FUNC_FIXOPERATIONORDER_STRING_FIXOPERATIONORDER,_FUNC_FIXOPERATIONORDER_STRING_AA); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19664);}while(r); -do{ -*__LONG_FOOINDWEL=*__LONG_FOOINDWEL- 1 ; -if(!qbevent)break;evnt(19666);}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free24.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_FIXOPERATIONORDER_STRING_FIXOPERATIONORDER);return _FUNC_FIXOPERATIONORDER_STRING_FIXOPERATIONORDER; -} -qbs* FUNC_GETELEMENTSPECIAL(qbs*_FUNC_GETELEMENTSPECIAL_STRING_SAVEA,int32*_FUNC_GETELEMENTSPECIAL_LONG_ELENUM){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data25.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -qbs_set(_FUNC_GETELEMENTSPECIAL_STRING_A,_FUNC_GETELEMENTSPECIAL_STRING_SAVEA); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19673);}while(r); -S_23051:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GETELEMENTSPECIAL_STRING_A,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(19674);if(r)goto S_23051;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(19674);}while(r); -} -do{ -*_FUNC_GETELEMENTSPECIAL_LONG_N= 1 ; -if(!qbevent)break;evnt(19676);}while(r); -do{ -*_FUNC_GETELEMENTSPECIAL_LONG_P= 1 ; -if(!qbevent)break;evnt(19677);}while(r); -LABEL_GETELEMENTSPECIALNEXT:; -if(qbevent){evnt(19678);r=0;} -do{ -*_FUNC_GETELEMENTSPECIAL_LONG_I=func_instr(*_FUNC_GETELEMENTSPECIAL_LONG_P,_FUNC_GETELEMENTSPECIAL_STRING_A,__STRING1_SP,0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19679);}while(r); -do{ -*_FUNC_GETELEMENTSPECIAL_LONG_I2=func_instr(*_FUNC_GETELEMENTSPECIAL_LONG_P,_FUNC_GETELEMENTSPECIAL_STRING_A,func_chr( 34 ),0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19682);}while(r); -S_23058:; -if (((-(*_FUNC_GETELEMENTSPECIAL_LONG_I2<*_FUNC_GETELEMENTSPECIAL_LONG_I))&(-(*_FUNC_GETELEMENTSPECIAL_LONG_I2!= 0 )))||new_error){ -if(qbevent){evnt(19683);if(r)goto S_23058;} -do{ -*_FUNC_GETELEMENTSPECIAL_LONG_I3=func_instr(*_FUNC_GETELEMENTSPECIAL_LONG_I2+ 1 ,_FUNC_GETELEMENTSPECIAL_STRING_A,func_chr( 34 ),0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19684);}while(r); -S_23060:; -if ((-(*_FUNC_GETELEMENTSPECIAL_LONG_I3== 0 ))||new_error){ -if(qbevent){evnt(19684);if(r)goto S_23060;} -do{ -SUB_GIVE_ERROR(qbs_add(qbs_new_txt_len("Expected ",9),func_chr( 34 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19684);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(19684);}while(r); -} -do{ -*_FUNC_GETELEMENTSPECIAL_LONG_I=func_instr(*_FUNC_GETELEMENTSPECIAL_LONG_I3,_FUNC_GETELEMENTSPECIAL_STRING_A,__STRING1_SP,0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19685);}while(r); -} -S_23066:; -if ((-(*_FUNC_GETELEMENTSPECIAL_LONG_ELENUM==*_FUNC_GETELEMENTSPECIAL_LONG_N))||new_error){ -if(qbevent){evnt(19688);if(r)goto S_23066;} -S_23067:; -if ((*_FUNC_GETELEMENTSPECIAL_LONG_I)||new_error){ -if(qbevent){evnt(19689);if(r)goto S_23067;} -do{ -qbs_set(_FUNC_GETELEMENTSPECIAL_STRING_GETELEMENTSPECIAL,func_mid(_FUNC_GETELEMENTSPECIAL_STRING_A,*_FUNC_GETELEMENTSPECIAL_LONG_P,*_FUNC_GETELEMENTSPECIAL_LONG_I-*_FUNC_GETELEMENTSPECIAL_LONG_P,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19690);}while(r); -}else{ -do{ -qbs_set(_FUNC_GETELEMENTSPECIAL_STRING_GETELEMENTSPECIAL,qbs_right(_FUNC_GETELEMENTSPECIAL_STRING_A,_FUNC_GETELEMENTSPECIAL_STRING_A->len-*_FUNC_GETELEMENTSPECIAL_LONG_P+ 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19692);}while(r); -} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(19694);}while(r); -} -S_23074:; -if ((-(*_FUNC_GETELEMENTSPECIAL_LONG_I== 0 ))||new_error){ -if(qbevent){evnt(19697);if(r)goto S_23074;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(19697);}while(r); -} -do{ -*_FUNC_GETELEMENTSPECIAL_LONG_N=*_FUNC_GETELEMENTSPECIAL_LONG_N+ 1 ; -if(!qbevent)break;evnt(19698);}while(r); -do{ -*_FUNC_GETELEMENTSPECIAL_LONG_P=*_FUNC_GETELEMENTSPECIAL_LONG_I+ 1 ; -if(!qbevent)break;evnt(19699);}while(r); -do{ -goto LABEL_GETELEMENTSPECIALNEXT; -if(!qbevent)break;evnt(19700);}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free25.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_GETELEMENTSPECIAL_STRING_GETELEMENTSPECIAL);return _FUNC_GETELEMENTSPECIAL_STRING_GETELEMENTSPECIAL; -} -void SUB_GETID(int32*_SUB_GETID_LONG_I){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data26.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -S_23080:; -if ((-(*_SUB_GETID_LONG_I== -1 ))||new_error){ -if(qbevent){evnt(19705);if(r)goto S_23080;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("-1 passed to getid!",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19705);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(19705);}while(r); -} -do{ -memcpy((((char*)__UDT_ID)+(0)+ 0),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 0), 256); -memcpy((((char*)__UDT_ID)+(0)+ 256),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 256), 256); -memcpy((((char*)__UDT_ID)+(0)+ 512),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 512), 4); -memcpy((((char*)__UDT_ID)+(0)+ 516),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 516), 2); -memcpy((((char*)__UDT_ID)+(0)+ 518),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 518), 2); -memcpy((((char*)__UDT_ID)+(0)+ 520),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 520), 8); -memcpy((((char*)__UDT_ID)+(0)+ 528),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 528), 8); -memcpy((((char*)__UDT_ID)+(0)+ 536),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 536), 4); -memcpy((((char*)__UDT_ID)+(0)+ 540),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 540), 4); -memcpy((((char*)__UDT_ID)+(0)+ 544),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 544), 2); -memcpy((((char*)__UDT_ID)+(0)+ 546),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 546), 2); -memcpy((((char*)__UDT_ID)+(0)+ 548),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 548), 2); -memcpy((((char*)__UDT_ID)+(0)+ 550),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 550), 256); -memcpy((((char*)__UDT_ID)+(0)+ 806),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 806), 2); -memcpy((((char*)__UDT_ID)+(0)+ 808),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 808), 1); -memcpy((((char*)__UDT_ID)+(0)+ 809),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 809), 2); -memcpy((((char*)__UDT_ID)+(0)+ 811),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 811), 2); -memcpy((((char*)__UDT_ID)+(0)+ 813),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 813), 400); -memcpy((((char*)__UDT_ID)+(0)+ 1213),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 1213), 400); -memcpy((((char*)__UDT_ID)+(0)+ 1613),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 1613), 256); -memcpy((((char*)__UDT_ID)+(0)+ 1869),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 1869), 256); -memcpy((((char*)__UDT_ID)+(0)+ 2125),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2125), 256); -memcpy((((char*)__UDT_ID)+(0)+ 2381),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2381), 4); -memcpy((((char*)__UDT_ID)+(0)+ 2385),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2385), 256); -memcpy((((char*)__UDT_ID)+(0)+ 2641),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2641), 4); -memcpy((((char*)__UDT_ID)+(0)+ 2645),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2645), 2); -memcpy((((char*)__UDT_ID)+(0)+ 2647),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2647), 100); -memcpy((((char*)__UDT_ID)+(0)+ 2747),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2747), 100); -memcpy((((char*)__UDT_ID)+(0)+ 2847),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2847), 4); -memcpy((((char*)__UDT_ID)+(0)+ 2851),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2851), 2); -memcpy((((char*)__UDT_ID)+(0)+ 2853),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2853), 2); -memcpy((((char*)__UDT_ID)+(0)+ 2855),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2855), 4); -memcpy((((char*)__UDT_ID)+(0)+ 2859),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2859), 2); -qbs_set(*(qbs**)(((char*)__UDT_ID)+(0)+ 2861), *(qbs**)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2861)); -if(!qbevent)break;evnt(19707);}while(r); -do{ -*__LONG_CURRENTID=*_SUB_GETID_LONG_I; -if(!qbevent)break;evnt(19709);}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free26.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -int32 FUNC_ISOPERATOR(qbs*_FUNC_ISOPERATOR_STRING_A2){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data27.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -qbs_set(_FUNC_ISOPERATOR_STRING_A,qbs_ucase(_FUNC_ISOPERATOR_STRING_A2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19713);}while(r); -do{ -*_FUNC_ISOPERATOR_LONG_L= 0 ; -if(!qbevent)break;evnt(19714);}while(r); -do{ -*_FUNC_ISOPERATOR_LONG_L=*_FUNC_ISOPERATOR_LONG_L+ 1 ; -if(!qbevent)break;evnt(19715);}while(r); -S_23089:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len("IMP",3))))||new_error){ -if(qbevent){evnt(19715);if(r)goto S_23089;} -do{ -goto LABEL_OPFOUND; -if(!qbevent)break;evnt(19715);}while(r); -} -do{ -*_FUNC_ISOPERATOR_LONG_L=*_FUNC_ISOPERATOR_LONG_L+ 1 ; -if(!qbevent)break;evnt(19716);}while(r); -S_23093:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len("EQV",3))))||new_error){ -if(qbevent){evnt(19716);if(r)goto S_23093;} -do{ -goto LABEL_OPFOUND; -if(!qbevent)break;evnt(19716);}while(r); -} -do{ -*_FUNC_ISOPERATOR_LONG_L=*_FUNC_ISOPERATOR_LONG_L+ 1 ; -if(!qbevent)break;evnt(19717);}while(r); -S_23097:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len("XOR",3))))||new_error){ -if(qbevent){evnt(19717);if(r)goto S_23097;} -do{ -goto LABEL_OPFOUND; -if(!qbevent)break;evnt(19717);}while(r); -} -do{ -*_FUNC_ISOPERATOR_LONG_L=*_FUNC_ISOPERATOR_LONG_L+ 1 ; -if(!qbevent)break;evnt(19718);}while(r); -S_23101:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len("OR",2))))||new_error){ -if(qbevent){evnt(19718);if(r)goto S_23101;} -do{ -goto LABEL_OPFOUND; -if(!qbevent)break;evnt(19718);}while(r); -} -do{ -*_FUNC_ISOPERATOR_LONG_L=*_FUNC_ISOPERATOR_LONG_L+ 1 ; -if(!qbevent)break;evnt(19719);}while(r); -S_23105:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len("AND",3))))||new_error){ -if(qbevent){evnt(19719);if(r)goto S_23105;} -do{ -goto LABEL_OPFOUND; -if(!qbevent)break;evnt(19719);}while(r); -} -do{ -*_FUNC_ISOPERATOR_LONG_L=*_FUNC_ISOPERATOR_LONG_L+ 1 ; -if(!qbevent)break;evnt(19720);}while(r); -S_23109:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len("NOT",3))))||new_error){ -if(qbevent){evnt(19720);if(r)goto S_23109;} -do{ -goto LABEL_OPFOUND; -if(!qbevent)break;evnt(19720);}while(r); -} -do{ -*_FUNC_ISOPERATOR_LONG_L=*_FUNC_ISOPERATOR_LONG_L+ 1 ; -if(!qbevent)break;evnt(19721);}while(r); -S_23113:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len("=",1))))||new_error){ -if(qbevent){evnt(19722);if(r)goto S_23113;} -do{ -goto LABEL_OPFOUND; -if(!qbevent)break;evnt(19722);}while(r); -} -S_23116:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len(">",1))))||new_error){ -if(qbevent){evnt(19723);if(r)goto S_23116;} -do{ -goto LABEL_OPFOUND; -if(!qbevent)break;evnt(19723);}while(r); -} -S_23119:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len("<",1))))||new_error){ -if(qbevent){evnt(19724);if(r)goto S_23119;} -do{ -goto LABEL_OPFOUND; -if(!qbevent)break;evnt(19724);}while(r); -} -S_23122:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len("<>",2))))||new_error){ -if(qbevent){evnt(19725);if(r)goto S_23122;} -do{ -goto LABEL_OPFOUND; -if(!qbevent)break;evnt(19725);}while(r); -} -S_23125:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len("<=",2))))||new_error){ -if(qbevent){evnt(19726);if(r)goto S_23125;} -do{ -goto LABEL_OPFOUND; -if(!qbevent)break;evnt(19726);}while(r); -} -S_23128:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len(">=",2))))||new_error){ -if(qbevent){evnt(19727);if(r)goto S_23128;} -do{ -goto LABEL_OPFOUND; -if(!qbevent)break;evnt(19727);}while(r); -} -do{ -*_FUNC_ISOPERATOR_LONG_L=*_FUNC_ISOPERATOR_LONG_L+ 1 ; -if(!qbevent)break;evnt(19728);}while(r); -S_23132:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len("+",1))))||new_error){ -if(qbevent){evnt(19729);if(r)goto S_23132;} -do{ -goto LABEL_OPFOUND; -if(!qbevent)break;evnt(19729);}while(r); -} -S_23135:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len("-",1))))||new_error){ -if(qbevent){evnt(19730);if(r)goto S_23135;} -do{ -goto LABEL_OPFOUND; -if(!qbevent)break;evnt(19730);}while(r); -} -do{ -*_FUNC_ISOPERATOR_LONG_L=*_FUNC_ISOPERATOR_LONG_L+ 1 ; -if(!qbevent)break;evnt(19731);}while(r); -S_23139:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len("MOD",3))))||new_error){ -if(qbevent){evnt(19731);if(r)goto S_23139;} -do{ -goto LABEL_OPFOUND; -if(!qbevent)break;evnt(19731);}while(r); -} -do{ -*_FUNC_ISOPERATOR_LONG_L=*_FUNC_ISOPERATOR_LONG_L+ 1 ; -if(!qbevent)break;evnt(19732);}while(r); -S_23143:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len("\\",1))))||new_error){ -if(qbevent){evnt(19732);if(r)goto S_23143;} -do{ -goto LABEL_OPFOUND; -if(!qbevent)break;evnt(19732);}while(r); -} -do{ -*_FUNC_ISOPERATOR_LONG_L=*_FUNC_ISOPERATOR_LONG_L+ 1 ; -if(!qbevent)break;evnt(19733);}while(r); -S_23147:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len("*",1))))||new_error){ -if(qbevent){evnt(19734);if(r)goto S_23147;} -do{ -goto LABEL_OPFOUND; -if(!qbevent)break;evnt(19734);}while(r); -} -S_23150:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len("/",1))))||new_error){ -if(qbevent){evnt(19735);if(r)goto S_23150;} -do{ -goto LABEL_OPFOUND; -if(!qbevent)break;evnt(19735);}while(r); -} -do{ -*_FUNC_ISOPERATOR_LONG_L=*_FUNC_ISOPERATOR_LONG_L+ 1 ; -if(!qbevent)break;evnt(19737);}while(r); -S_23154:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,func_chr( 241 ))))||new_error){ -if(qbevent){evnt(19737);if(r)goto S_23154;} -do{ -goto LABEL_OPFOUND; -if(!qbevent)break;evnt(19737);}while(r); -} -do{ -*_FUNC_ISOPERATOR_LONG_L=*_FUNC_ISOPERATOR_LONG_L+ 1 ; -if(!qbevent)break;evnt(19738);}while(r); -S_23158:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len("^",1))))||new_error){ -if(qbevent){evnt(19738);if(r)goto S_23158;} -do{ -goto LABEL_OPFOUND; -if(!qbevent)break;evnt(19738);}while(r); -} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(19739);}while(r); -LABEL_OPFOUND:; -if(qbevent){evnt(19740);r=0;} -do{ -*_FUNC_ISOPERATOR_LONG_ISOPERATOR=*_FUNC_ISOPERATOR_LONG_L; -if(!qbevent)break;evnt(19741);}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free27.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -return *_FUNC_ISOPERATOR_LONG_ISOPERATOR; -} -int32 FUNC_ISUINTEGER(qbs*_FUNC_ISUINTEGER_STRING_I){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data28.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -S_23163:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_ISUINTEGER_STRING_I->len== 0 )))||new_error){ -if(qbevent){evnt(19745);if(r)goto S_23163;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(19745);}while(r); -} -S_23166:; -if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(_FUNC_ISUINTEGER_STRING_I, 1 )== 48 ))&(-(_FUNC_ISUINTEGER_STRING_I->len> 1 ))))||new_error){ -if(qbevent){evnt(19746);if(r)goto S_23166;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(19746);}while(r); -} -S_23169:; -fornext_value2910= 1 ; -fornext_finalvalue2910=_FUNC_ISUINTEGER_STRING_I->len; -fornext_step2910= 1 ; -if (fornext_step2910<0) fornext_step_negative2910=1; else fornext_step_negative2910=0; -if (new_error) goto fornext_error2910; -goto fornext_entrylabel2910; -while(1){ -fornext_value2910=fornext_step2910+(*_FUNC_ISUINTEGER_LONG_C); -fornext_entrylabel2910: -*_FUNC_ISUINTEGER_LONG_C=fornext_value2910; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative2910){ -if (fornext_value2910fornext_finalvalue2910) break; -} -fornext_error2910:; -if(qbevent){evnt(19747);if(r)goto S_23169;} -do{ -*_FUNC_ISUINTEGER_LONG_V=qbs_asc(_FUNC_ISUINTEGER_STRING_I,*_FUNC_ISUINTEGER_LONG_C); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19748);}while(r); -S_23171:; -if (((-(*_FUNC_ISUINTEGER_LONG_V< 48 ))|(-(*_FUNC_ISUINTEGER_LONG_V> 57 )))||new_error){ -if(qbevent){evnt(19749);if(r)goto S_23171;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(19749);}while(r); -} -fornext_continue_2909:; -} -fornext_exit_2909:; -do{ -*_FUNC_ISUINTEGER_LONG_ISUINTEGER= -1 ; -if(!qbevent)break;evnt(19751);}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free28.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -return *_FUNC_ISUINTEGER_LONG_ISUINTEGER; -} -int32 FUNC_ISVALIDVARIABLE(qbs*_FUNC_ISVALIDVARIABLE_STRING_A){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data29.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -S_23176:; -fornext_value2914= 1 ; -fornext_finalvalue2914=_FUNC_ISVALIDVARIABLE_STRING_A->len; -fornext_step2914= 1 ; -if (fornext_step2914<0) fornext_step_negative2914=1; else fornext_step_negative2914=0; -if (new_error) goto fornext_error2914; -goto fornext_entrylabel2914; -while(1){ -fornext_value2914=fornext_step2914+(*_FUNC_ISVALIDVARIABLE_LONG_I); -fornext_entrylabel2914: -*_FUNC_ISVALIDVARIABLE_LONG_I=fornext_value2914; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative2914){ -if (fornext_value2914fornext_finalvalue2914) break; -} -fornext_error2914:; -if(qbevent){evnt(19755);if(r)goto S_23176;} -do{ -*_FUNC_ISVALIDVARIABLE_LONG_C=qbs_asc(_FUNC_ISVALIDVARIABLE_STRING_A,*_FUNC_ISVALIDVARIABLE_LONG_I); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19756);}while(r); -do{ -*_FUNC_ISVALIDVARIABLE_LONG_T= 0 ; -if(!qbevent)break;evnt(19757);}while(r); -S_23179:; -if (((-(*_FUNC_ISVALIDVARIABLE_LONG_C>= 48 ))&(-(*_FUNC_ISVALIDVARIABLE_LONG_C<= 57 )))||new_error){ -if(qbevent){evnt(19758);if(r)goto S_23179;} -do{ -*_FUNC_ISVALIDVARIABLE_LONG_T= 1 ; -if(!qbevent)break;evnt(19758);}while(r); -} -S_23182:; -if (((-(*_FUNC_ISVALIDVARIABLE_LONG_C>= 65 ))&(-(*_FUNC_ISVALIDVARIABLE_LONG_C<= 90 )))||new_error){ -if(qbevent){evnt(19759);if(r)goto S_23182;} -do{ -*_FUNC_ISVALIDVARIABLE_LONG_T= 2 ; -if(!qbevent)break;evnt(19759);}while(r); -} -S_23185:; -if (((-(*_FUNC_ISVALIDVARIABLE_LONG_C>= 97 ))&(-(*_FUNC_ISVALIDVARIABLE_LONG_C<= 122 )))||new_error){ -if(qbevent){evnt(19760);if(r)goto S_23185;} -do{ -*_FUNC_ISVALIDVARIABLE_LONG_T= 2 ; -if(!qbevent)break;evnt(19760);}while(r); -} -S_23188:; -if ((-(*_FUNC_ISVALIDVARIABLE_LONG_C== 95 ))||new_error){ -if(qbevent){evnt(19761);if(r)goto S_23188;} -do{ -*_FUNC_ISVALIDVARIABLE_LONG_T= 2 ; -if(!qbevent)break;evnt(19761);}while(r); -} -S_23191:; -if (((-(*_FUNC_ISVALIDVARIABLE_LONG_T== 2 ))|(((-(*_FUNC_ISVALIDVARIABLE_LONG_T== 1 ))&(-(*_FUNC_ISVALIDVARIABLE_LONG_I> 1 )))))||new_error){ -if(qbevent){evnt(19762);if(r)goto S_23191;} -}else{ -S_23193:; -if ((-(*_FUNC_ISVALIDVARIABLE_LONG_I== 1 ))||new_error){ -if(qbevent){evnt(19765);if(r)goto S_23193;} -do{ -*_FUNC_ISVALIDVARIABLE_LONG_ISVALIDVARIABLE= 0 ; -if(!qbevent)break;evnt(19765);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(19765);}while(r); -} -do{ -goto fornext_exit_2913; -if(!qbevent)break;evnt(19766);}while(r); -} -fornext_continue_2913:; -} -fornext_exit_2913:; -do{ -*_FUNC_ISVALIDVARIABLE_LONG_ISVALIDVARIABLE= 1 ; -if(!qbevent)break;evnt(19770);}while(r); -S_23201:; -if ((-(*_FUNC_ISVALIDVARIABLE_LONG_I>*_FUNC_ISVALIDVARIABLE_LONG_N))||new_error){ -if(qbevent){evnt(19771);if(r)goto S_23201;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(19771);}while(r); -} -do{ -qbs_set(_FUNC_ISVALIDVARIABLE_STRING_E,qbs_right(_FUNC_ISVALIDVARIABLE_STRING_A,_FUNC_ISVALIDVARIABLE_STRING_A->len-*_FUNC_ISVALIDVARIABLE_LONG_I- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19772);}while(r); -S_23205:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_ISVALIDVARIABLE_STRING_E,qbs_new_txt_len("%%",2)))|(qbs_equal(_FUNC_ISVALIDVARIABLE_STRING_E,qbs_new_txt_len("~%%",3)))))||new_error){ -if(qbevent){evnt(19773);if(r)goto S_23205;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(19773);}while(r); -} -S_23208:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_ISVALIDVARIABLE_STRING_E,qbs_new_txt_len("%",1)))|(qbs_equal(_FUNC_ISVALIDVARIABLE_STRING_E,qbs_new_txt_len("~%",2)))))||new_error){ -if(qbevent){evnt(19774);if(r)goto S_23208;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(19774);}while(r); -} -S_23211:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_ISVALIDVARIABLE_STRING_E,qbs_new_txt_len("&",1)))|(qbs_equal(_FUNC_ISVALIDVARIABLE_STRING_E,qbs_new_txt_len("~&",2)))))||new_error){ -if(qbevent){evnt(19775);if(r)goto S_23211;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(19775);}while(r); -} -S_23214:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_ISVALIDVARIABLE_STRING_E,qbs_new_txt_len("&&",2)))|(qbs_equal(_FUNC_ISVALIDVARIABLE_STRING_E,qbs_new_txt_len("~&&",3)))))||new_error){ -if(qbevent){evnt(19776);if(r)goto S_23214;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(19776);}while(r); -} -S_23217:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_ISVALIDVARIABLE_STRING_E,qbs_new_txt_len("!",1)))|(qbs_equal(_FUNC_ISVALIDVARIABLE_STRING_E,qbs_new_txt_len("#",1)))|(qbs_equal(_FUNC_ISVALIDVARIABLE_STRING_E,qbs_new_txt_len("##",2)))))||new_error){ -if(qbevent){evnt(19777);if(r)goto S_23217;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(19777);}while(r); -} -S_23220:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISVALIDVARIABLE_STRING_E,qbs_new_txt_len("$",1))))||new_error){ -if(qbevent){evnt(19778);if(r)goto S_23220;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(19778);}while(r); -} -S_23223:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISVALIDVARIABLE_STRING_E,qbs_new_txt_len("`",1))))||new_error){ -if(qbevent){evnt(19779);if(r)goto S_23223;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(19779);}while(r); -} -S_23226:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(qbs_left(_FUNC_ISVALIDVARIABLE_STRING_E, 1 ),qbs_new_txt_len("$",1)))&(qbs_notequal(qbs_left(_FUNC_ISVALIDVARIABLE_STRING_E, 1 ),qbs_new_txt_len("`",1)))))||new_error){ -if(qbevent){evnt(19780);if(r)goto S_23226;} -do{ -*_FUNC_ISVALIDVARIABLE_LONG_ISVALIDVARIABLE= 0 ; -if(!qbevent)break;evnt(19780);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(19780);}while(r); -} -do{ -qbs_set(_FUNC_ISVALIDVARIABLE_STRING_E,qbs_right(_FUNC_ISVALIDVARIABLE_STRING_E,_FUNC_ISVALIDVARIABLE_STRING_E->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19781);}while(r); -S_23231:; -if ((qbs_cleanup(qbs_tmp_base,FUNC_ISUINTEGER(_FUNC_ISVALIDVARIABLE_STRING_E)))||new_error){ -if(qbevent){evnt(19782);if(r)goto S_23231;} -do{ -*_FUNC_ISVALIDVARIABLE_LONG_ISVALIDVARIABLE= 1 ; -if(!qbevent)break;evnt(19782);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(19782);}while(r); -} -do{ -*_FUNC_ISVALIDVARIABLE_LONG_ISVALIDVARIABLE= 0 ; -if(!qbevent)break;evnt(19783);}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free29.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -return *_FUNC_ISVALIDVARIABLE_LONG_ISVALIDVARIABLE; -} -qbs* FUNC_LINEFORMAT(qbs*_FUNC_LINEFORMAT_STRING_A){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data30.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19790);}while(r); -do{ -*__LONG_LINECONTINUATION= 0 ; -if(!qbevent)break;evnt(19791);}while(r); -LABEL_CONTINUELINE:; -if(qbevent){evnt(19793);r=0;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_A,qbs_add(_FUNC_LINEFORMAT_STRING_A,qbs_new_txt_len(" ",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19795);}while(r); -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_CA,_FUNC_LINEFORMAT_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19797);}while(r); -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_A,qbs_ucase(_FUNC_LINEFORMAT_STRING_A)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19798);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_N=_FUNC_LINEFORMAT_STRING_A->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19800);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_I= 1 ; -if(!qbevent)break;evnt(19801);}while(r); -LABEL_LINEFORMATNEXT:; -if(qbevent){evnt(19802);r=0;} -S_23243:; -if ((-(*_FUNC_LINEFORMAT_LONG_I>=*_FUNC_LINEFORMAT_LONG_N))||new_error){ -if(qbevent){evnt(19803);if(r)goto S_23243;} -do{ -goto LABEL_LINEFORMATDONE; -if(!qbevent)break;evnt(19803);}while(r); -} -do{ -*_FUNC_LINEFORMAT_LONG_C=qbs_asc(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19805);}while(r); -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_C,func_chr(*_FUNC_LINEFORMAT_LONG_C)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19806);}while(r); -S_23248:; -if ((-(*_FUNC_LINEFORMAT_LONG_C== 34 ))||new_error){ -if(qbevent){evnt(19809);if(r)goto S_23248;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),func_chr( 34 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19810);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_P1=*_FUNC_LINEFORMAT_LONG_I+ 1 ; -if(!qbevent)break;evnt(19811);}while(r); -S_23251:; -fornext_value2921=*_FUNC_LINEFORMAT_LONG_I+ 1 ; -fornext_finalvalue2921=*_FUNC_LINEFORMAT_LONG_N- 2 ; -fornext_step2921= 1 ; -if (fornext_step2921<0) fornext_step_negative2921=1; else fornext_step_negative2921=0; -if (new_error) goto fornext_error2921; -goto fornext_entrylabel2921; -while(1){ -fornext_value2921=fornext_step2921+(*_FUNC_LINEFORMAT_LONG_I2); -fornext_entrylabel2921: -*_FUNC_LINEFORMAT_LONG_I2=fornext_value2921; -if (fornext_step_negative2921){ -if (fornext_value2921fornext_finalvalue2921) break; -} -fornext_error2921:; -if(qbevent){evnt(19812);if(r)goto S_23251;} -do{ -*_FUNC_LINEFORMAT_LONG_C2=qbs_asc(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19813);}while(r); -S_23253:; -if ((-(*_FUNC_LINEFORMAT_LONG_C2== 34 ))||new_error){ -if(qbevent){evnt(19815);if(r)goto S_23253;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,func_mid(_FUNC_LINEFORMAT_STRING_CA,*_FUNC_LINEFORMAT_LONG_P1,*_FUNC_LINEFORMAT_LONG_I2-*_FUNC_LINEFORMAT_LONG_P1+ 1 ,0|1)),qbs_new_txt_len(",",1)),FUNC_STR2(&(pass2922=*_FUNC_LINEFORMAT_LONG_I2-(*_FUNC_LINEFORMAT_LONG_I+ 1 ))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19816);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I2+ 1 ; -if(!qbevent)break;evnt(19817);}while(r); -do{ -goto fornext_exit_2920; -if(!qbevent)break;evnt(19818);}while(r); -} -S_23258:; -if ((-(*_FUNC_LINEFORMAT_LONG_C2== 92 ))||new_error){ -if(qbevent){evnt(19821);if(r)goto S_23258;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,func_mid(_FUNC_LINEFORMAT_STRING_CA,*_FUNC_LINEFORMAT_LONG_P1,*_FUNC_LINEFORMAT_LONG_I2-*_FUNC_LINEFORMAT_LONG_P1,0|1)),qbs_new_txt_len("\\\\",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19822);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_P1=*_FUNC_LINEFORMAT_LONG_I2+ 1 ; -if(!qbevent)break;evnt(19823);}while(r); -} -S_23262:; -if (((-(*_FUNC_LINEFORMAT_LONG_C2< 32 ))|(-(*_FUNC_LINEFORMAT_LONG_C2> 126 )))||new_error){ -if(qbevent){evnt(19826);if(r)goto S_23262;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_O,func_oct(*_FUNC_LINEFORMAT_LONG_C2,32)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19827);}while(r); -S_23264:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_LINEFORMAT_STRING_O->len< 3 )))||new_error){ -if(qbevent){evnt(19828);if(r)goto S_23264;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_O,qbs_add(qbs_new_txt_len("0",1),_FUNC_LINEFORMAT_STRING_O)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19829);}while(r); -S_23266:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_LINEFORMAT_STRING_O->len< 3 )))||new_error){ -if(qbevent){evnt(19830);if(r)goto S_23266;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_O,qbs_add(qbs_new_txt_len("0",1),_FUNC_LINEFORMAT_STRING_O)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19830);}while(r); -} -} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,func_mid(_FUNC_LINEFORMAT_STRING_CA,*_FUNC_LINEFORMAT_LONG_P1,*_FUNC_LINEFORMAT_LONG_I2-*_FUNC_LINEFORMAT_LONG_P1,0|1)),qbs_new_txt_len("\\",1)),_FUNC_LINEFORMAT_STRING_O)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19832);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_P1=*_FUNC_LINEFORMAT_LONG_I2+ 1 ; -if(!qbevent)break;evnt(19833);}while(r); -} -fornext_continue_2920:; -} -fornext_exit_2920:; -S_23274:; -if ((-(*_FUNC_LINEFORMAT_LONG_I2==(*_FUNC_LINEFORMAT_LONG_N- 1 )))||new_error){ -if(qbevent){evnt(19838);if(r)goto S_23274;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,func_mid(_FUNC_LINEFORMAT_STRING_CA,*_FUNC_LINEFORMAT_LONG_P1,(*_FUNC_LINEFORMAT_LONG_N- 2 )-*_FUNC_LINEFORMAT_LONG_P1+ 1 ,0|1)),func_chr( 34 )),qbs_new_txt_len(",",1)),FUNC_STR2(&(pass2925=(*_FUNC_LINEFORMAT_LONG_N- 2 )-(*_FUNC_LINEFORMAT_LONG_I+ 1 )+ 1 )))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19839);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_N- 1 ; -if(!qbevent)break;evnt(19840);}while(r); -} -do{ -goto LABEL_LINEFORMATNEXT; -if(!qbevent)break;evnt(19843);}while(r); -} -do{ -*_FUNC_LINEFORMAT_LONG_FIRSTI=*_FUNC_LINEFORMAT_LONG_I; -if(!qbevent)break;evnt(19848);}while(r); -S_23281:; -if ((-(*_FUNC_LINEFORMAT_LONG_C== 46 ))||new_error){ -if(qbevent){evnt(19849);if(r)goto S_23281;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_C2,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I+ 1 , 1 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19850);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_C2=qbs_asc(_FUNC_LINEFORMAT_STRING_C2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19850);}while(r); -S_23284:; -if ((((-(*_FUNC_LINEFORMAT_LONG_C2>= 48 ))&(-(*_FUNC_LINEFORMAT_LONG_C2<= 57 ))))||new_error){ -if(qbevent){evnt(19851);if(r)goto S_23284;} -do{ -goto LABEL_LFNUMBER; -if(!qbevent)break;evnt(19851);}while(r); -} -} -S_23288:; -if ((((-(*_FUNC_LINEFORMAT_LONG_C>= 48 ))&(-(*_FUNC_LINEFORMAT_LONG_C<= 57 ))))||new_error){ -if(qbevent){evnt(19853);if(r)goto S_23288;} -LABEL_LFNUMBER:; -if(qbevent){evnt(19854);r=0;} -S_23289:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal((qbs_right(_FUNC_LINEFORMAT_STRING_A2, 5 )),(qbs_add(__STRING1_SP,qbs_new_txt_len("ELSE",4))))))||new_error){ -if(qbevent){evnt(19857);if(r)goto S_23289;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),qbs_new_txt_len("GOTO",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19858);}while(r); -} -do{ -*_FUNC_LINEFORMAT_LONG_MODE= 0 ; -if(!qbevent)break;evnt(19866);}while(r); -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_WHOLE,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19867);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_DP= 0 ; -if(!qbevent)break;evnt(19868);}while(r); -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_FRAC,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19869);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_ED= 0 ; -if(!qbevent)break;evnt(19870);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_PM= 1 ; -if(!qbevent)break;evnt(19871);}while(r); -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_EX,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19872);}while(r); -LABEL_LFREADNUMBER:; -if(qbevent){evnt(19877);r=0;} -do{ -*_FUNC_LINEFORMAT_LONG_VALID= 0 ; -if(!qbevent)break;evnt(19878);}while(r); -S_23300:; -if ((-(*_FUNC_LINEFORMAT_LONG_C== 46 ))||new_error){ -if(qbevent){evnt(19880);if(r)goto S_23300;} -S_23301:; -if ((-(*_FUNC_LINEFORMAT_LONG_MODE== 0 ))||new_error){ -if(qbevent){evnt(19881);if(r)goto S_23301;} -do{ -*_FUNC_LINEFORMAT_LONG_VALID= 1 ; -if(!qbevent)break;evnt(19881);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_DP= 1 ; -if(!qbevent)break;evnt(19881);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_MODE= 1 ; -if(!qbevent)break;evnt(19881);}while(r); -} -} -S_23307:; -if (((-(*_FUNC_LINEFORMAT_LONG_C>= 48 ))&(-(*_FUNC_LINEFORMAT_LONG_C<= 57 )))||new_error){ -if(qbevent){evnt(19884);if(r)goto S_23307;} -do{ -*_FUNC_LINEFORMAT_LONG_VALID= 1 ; -if(!qbevent)break;evnt(19885);}while(r); -S_23309:; -if ((-(*_FUNC_LINEFORMAT_LONG_MODE== 0 ))||new_error){ -if(qbevent){evnt(19886);if(r)goto S_23309;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_WHOLE,qbs_add(_FUNC_LINEFORMAT_STRING_WHOLE,_FUNC_LINEFORMAT_STRING_C)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19886);}while(r); -} -S_23312:; -if ((-(*_FUNC_LINEFORMAT_LONG_MODE== 1 ))||new_error){ -if(qbevent){evnt(19887);if(r)goto S_23312;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_FRAC,qbs_add(_FUNC_LINEFORMAT_STRING_FRAC,_FUNC_LINEFORMAT_STRING_C)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19887);}while(r); -} -S_23315:; -if ((-(*_FUNC_LINEFORMAT_LONG_MODE== 2 ))||new_error){ -if(qbevent){evnt(19888);if(r)goto S_23315;} -do{ -*_FUNC_LINEFORMAT_LONG_MODE= 3 ; -if(!qbevent)break;evnt(19888);}while(r); -} -S_23318:; -if ((-(*_FUNC_LINEFORMAT_LONG_MODE== 3 ))||new_error){ -if(qbevent){evnt(19889);if(r)goto S_23318;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_EX,qbs_add(_FUNC_LINEFORMAT_STRING_EX,_FUNC_LINEFORMAT_STRING_C)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19889);}while(r); -} -} -S_23322:; -if (((-(*_FUNC_LINEFORMAT_LONG_C== 69 ))|(-(*_FUNC_LINEFORMAT_LONG_C== 68 ))|(-(*_FUNC_LINEFORMAT_LONG_C== 70 )))||new_error){ -if(qbevent){evnt(19892);if(r)goto S_23322;} -S_23323:; -if ((-(*_FUNC_LINEFORMAT_LONG_MODE< 2 ))||new_error){ -if(qbevent){evnt(19893);if(r)goto S_23323;} -do{ -*_FUNC_LINEFORMAT_LONG_VALID= 1 ; -if(!qbevent)break;evnt(19894);}while(r); -S_23325:; -if ((-(*_FUNC_LINEFORMAT_LONG_C== 69 ))||new_error){ -if(qbevent){evnt(19895);if(r)goto S_23325;} -do{ -*_FUNC_LINEFORMAT_LONG_ED= 1 ; -if(!qbevent)break;evnt(19895);}while(r); -} -S_23328:; -if ((-(*_FUNC_LINEFORMAT_LONG_C== 68 ))||new_error){ -if(qbevent){evnt(19896);if(r)goto S_23328;} -do{ -*_FUNC_LINEFORMAT_LONG_ED= 2 ; -if(!qbevent)break;evnt(19896);}while(r); -} -S_23331:; -if ((-(*_FUNC_LINEFORMAT_LONG_C== 70 ))||new_error){ -if(qbevent){evnt(19897);if(r)goto S_23331;} -do{ -*_FUNC_LINEFORMAT_LONG_ED= 3 ; -if(!qbevent)break;evnt(19897);}while(r); -} -do{ -*_FUNC_LINEFORMAT_LONG_MODE= 2 ; -if(!qbevent)break;evnt(19898);}while(r); -} -} -S_23337:; -if (((-(*_FUNC_LINEFORMAT_LONG_C== 43 ))|(-(*_FUNC_LINEFORMAT_LONG_C== 45 )))||new_error){ -if(qbevent){evnt(19902);if(r)goto S_23337;} -S_23338:; -if ((-(*_FUNC_LINEFORMAT_LONG_MODE== 2 ))||new_error){ -if(qbevent){evnt(19903);if(r)goto S_23338;} -do{ -*_FUNC_LINEFORMAT_LONG_VALID= 1 ; -if(!qbevent)break;evnt(19904);}while(r); -S_23340:; -if ((-(*_FUNC_LINEFORMAT_LONG_C== 45 ))||new_error){ -if(qbevent){evnt(19905);if(r)goto S_23340;} -do{ -*_FUNC_LINEFORMAT_LONG_PM= -1 ; -if(!qbevent)break;evnt(19905);}while(r); -} -do{ -*_FUNC_LINEFORMAT_LONG_MODE= 3 ; -if(!qbevent)break;evnt(19906);}while(r); -} -} -S_23346:; -if ((*_FUNC_LINEFORMAT_LONG_VALID)||new_error){ -if(qbevent){evnt(19910);if(r)goto S_23346;} -S_23347:; -if ((-(*_FUNC_LINEFORMAT_LONG_I<=*_FUNC_LINEFORMAT_LONG_N))||new_error){ -if(qbevent){evnt(19911);if(r)goto S_23347;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; -if(!qbevent)break;evnt(19911);}while(r); -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_C,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 1 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19911);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_C=qbs_asc(_FUNC_LINEFORMAT_STRING_C); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19911);}while(r); -do{ -goto LABEL_LFREADNUMBER; -if(!qbevent)break;evnt(19911);}while(r); -} -} -S_23354:; -while((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_LINEFORMAT_STRING_WHOLE, 1 ),qbs_new_txt_len("0",1))))||new_error){ -if(qbevent){evnt(19917);if(r)goto S_23354;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_WHOLE,qbs_right(_FUNC_LINEFORMAT_STRING_WHOLE,_FUNC_LINEFORMAT_STRING_WHOLE->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19917);}while(r); -dl_continue_2926:; -} -dl_exit_2926:; -S_23357:; -while((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_FUNC_LINEFORMAT_STRING_FRAC, 1 ),qbs_new_txt_len("0",1))))||new_error){ -if(qbevent){evnt(19919);if(r)goto S_23357;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_FRAC,qbs_left(_FUNC_LINEFORMAT_STRING_FRAC,_FUNC_LINEFORMAT_STRING_FRAC->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19919);}while(r); -dl_continue_2928:; -} -dl_exit_2928:; -S_23360:; -while((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_LINEFORMAT_STRING_EX, 1 ),qbs_new_txt_len("0",1))))||new_error){ -if(qbevent){evnt(19921);if(r)goto S_23360;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_EX,qbs_right(_FUNC_LINEFORMAT_STRING_EX,_FUNC_LINEFORMAT_STRING_EX->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19921);}while(r); -dl_continue_2930:; -} -dl_exit_2930:; -S_23363:; -if (((-(*_FUNC_LINEFORMAT_LONG_DP!= 0 ))|(-(*_FUNC_LINEFORMAT_LONG_ED!= 0 )))||new_error){ -if(qbevent){evnt(19923);if(r)goto S_23363;} -do{ -*_FUNC_LINEFORMAT_LONG_FLOAT= 1 ; -if(!qbevent)break;evnt(19923);}while(r); -}else{ -do{ -*_FUNC_LINEFORMAT_LONG_FLOAT= 0 ; -if(!qbevent)break;evnt(19923);}while(r); -} -do{ -*_FUNC_LINEFORMAT_LONG_EXTUSED= 1 ; -if(!qbevent)break;evnt(19925);}while(r); -S_23369:; -if ((*_FUNC_LINEFORMAT_LONG_ED)||new_error){ -if(qbevent){evnt(19927);if(r)goto S_23369;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19927);}while(r); -do{ -goto LABEL_LFFOUNDEXT; -if(!qbevent)break;evnt(19927);}while(r); -} -S_23373:; -if ((-(*_FUNC_LINEFORMAT_LONG_I<=(*_FUNC_LINEFORMAT_LONG_N- 2 )))||new_error){ -if(qbevent){evnt(19930);if(r)goto S_23373;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 3 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19931);}while(r); -S_23375:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~%%",3)))&(-(*_FUNC_LINEFORMAT_LONG_FLOAT== 0 ))))||new_error){ -if(qbevent){evnt(19932);if(r)goto S_23375;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 3 ; -if(!qbevent)break;evnt(19932);}while(r); -do{ -goto LABEL_LFFOUNDEXT; -if(!qbevent)break;evnt(19932);}while(r); -} -S_23379:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~&&",3)))&(-(*_FUNC_LINEFORMAT_LONG_FLOAT== 0 ))))||new_error){ -if(qbevent){evnt(19933);if(r)goto S_23379;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 3 ; -if(!qbevent)break;evnt(19933);}while(r); -do{ -goto LABEL_LFFOUNDEXT; -if(!qbevent)break;evnt(19933);}while(r); -} -S_23383:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~%&",3)))&(-(*_FUNC_LINEFORMAT_LONG_FLOAT== 0 ))))||new_error){ -if(qbevent){evnt(19934);if(r)goto S_23383;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Cannot use _OFFSET symbols after numbers",40)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19934);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(19934);}while(r); -} -} -S_23388:; -if ((-(*_FUNC_LINEFORMAT_LONG_I<=(*_FUNC_LINEFORMAT_LONG_N- 1 )))||new_error){ -if(qbevent){evnt(19937);if(r)goto S_23388;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 2 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19938);}while(r); -S_23390:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%%",2)))&(-(*_FUNC_LINEFORMAT_LONG_FLOAT== 0 ))))||new_error){ -if(qbevent){evnt(19939);if(r)goto S_23390;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; -if(!qbevent)break;evnt(19939);}while(r); -do{ -goto LABEL_LFFOUNDEXT; -if(!qbevent)break;evnt(19939);}while(r); -} -S_23394:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~%",2)))&(-(*_FUNC_LINEFORMAT_LONG_FLOAT== 0 ))))||new_error){ -if(qbevent){evnt(19940);if(r)goto S_23394;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; -if(!qbevent)break;evnt(19940);}while(r); -do{ -goto LABEL_LFFOUNDEXT; -if(!qbevent)break;evnt(19940);}while(r); -} -S_23398:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&&",2)))&(-(*_FUNC_LINEFORMAT_LONG_FLOAT== 0 ))))||new_error){ -if(qbevent){evnt(19941);if(r)goto S_23398;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; -if(!qbevent)break;evnt(19941);}while(r); -do{ -goto LABEL_LFFOUNDEXT; -if(!qbevent)break;evnt(19941);}while(r); -} -S_23402:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~&",2)))&(-(*_FUNC_LINEFORMAT_LONG_FLOAT== 0 ))))||new_error){ -if(qbevent){evnt(19942);if(r)goto S_23402;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; -if(!qbevent)break;evnt(19942);}while(r); -do{ -goto LABEL_LFFOUNDEXT; -if(!qbevent)break;evnt(19942);}while(r); -} -S_23406:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%&",2)))&(-(*_FUNC_LINEFORMAT_LONG_FLOAT== 0 ))))||new_error){ -if(qbevent){evnt(19943);if(r)goto S_23406;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Cannot use _OFFSET symbols after numbers",40)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19943);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(19943);}while(r); -} -S_23410:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("##",2))))||new_error){ -if(qbevent){evnt(19944);if(r)goto S_23410;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; -if(!qbevent)break;evnt(19945);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_ED= 3 ; -if(!qbevent)break;evnt(19946);}while(r); -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19947);}while(r); -do{ -goto LABEL_LFFOUNDEXT; -if(!qbevent)break;evnt(19948);}while(r); -} -S_23416:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~`",2))))||new_error){ -if(qbevent){evnt(19950);if(r)goto S_23416;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; -if(!qbevent)break;evnt(19951);}while(r); -do{ -goto LABEL_LFFOUNDBITEXT; -if(!qbevent)break;evnt(19952);}while(r); -} -} -S_23421:; -if ((-(*_FUNC_LINEFORMAT_LONG_I<=*_FUNC_LINEFORMAT_LONG_N))||new_error){ -if(qbevent){evnt(19956);if(r)goto S_23421;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 1 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19957);}while(r); -S_23423:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%",1)))&(-(*_FUNC_LINEFORMAT_LONG_FLOAT== 0 ))))||new_error){ -if(qbevent){evnt(19958);if(r)goto S_23423;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; -if(!qbevent)break;evnt(19958);}while(r); -do{ -goto LABEL_LFFOUNDEXT; -if(!qbevent)break;evnt(19958);}while(r); -} -S_23427:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&",1)))&(-(*_FUNC_LINEFORMAT_LONG_FLOAT== 0 ))))||new_error){ -if(qbevent){evnt(19959);if(r)goto S_23427;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; -if(!qbevent)break;evnt(19959);}while(r); -do{ -goto LABEL_LFFOUNDEXT; -if(!qbevent)break;evnt(19959);}while(r); -} -S_23431:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("!",1))))||new_error){ -if(qbevent){evnt(19960);if(r)goto S_23431;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; -if(!qbevent)break;evnt(19961);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_ED= 1 ; -if(!qbevent)break;evnt(19962);}while(r); -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19963);}while(r); -do{ -goto LABEL_LFFOUNDEXT; -if(!qbevent)break;evnt(19964);}while(r); -} -S_23437:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("#",1))))||new_error){ -if(qbevent){evnt(19966);if(r)goto S_23437;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; -if(!qbevent)break;evnt(19967);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_ED= 2 ; -if(!qbevent)break;evnt(19968);}while(r); -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19969);}while(r); -do{ -goto LABEL_LFFOUNDEXT; -if(!qbevent)break;evnt(19970);}while(r); -} -S_23443:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("`",1))))||new_error){ -if(qbevent){evnt(19972);if(r)goto S_23443;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; -if(!qbevent)break;evnt(19973);}while(r); -LABEL_LFFOUNDBITEXT:; -if(qbevent){evnt(19974);r=0;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19975);}while(r); -S_23446:; -while((-(*_FUNC_LINEFORMAT_LONG_I<=*_FUNC_LINEFORMAT_LONG_N))||new_error){ -if(qbevent){evnt(19976);if(r)goto S_23446;} -do{ -*_FUNC_LINEFORMAT_LONG_C2=qbs_asc(func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 1 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19977);}while(r); -S_23448:; -if (((-(*_FUNC_LINEFORMAT_LONG_C2>= 48 ))&(-(*_FUNC_LINEFORMAT_LONG_C2<= 57 )))||new_error){ -if(qbevent){evnt(19978);if(r)goto S_23448;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_add(_FUNC_LINEFORMAT_STRING_BITN,func_chr(*_FUNC_LINEFORMAT_LONG_C2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19979);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; -if(!qbevent)break;evnt(19980);}while(r); -}else{ -do{ -goto dl_exit_2932; -if(!qbevent)break;evnt(19982);}while(r); -} -dl_continue_2932:; -} -dl_exit_2932:; -S_23455:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_BITN,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(19985);if(r)goto S_23455;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_new_txt_len("1",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19985);}while(r); -} -S_23458:; -while((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_LINEFORMAT_STRING_BITN, 1 ),qbs_new_txt_len("0",1))))||new_error){ -if(qbevent){evnt(19987);if(r)goto S_23458;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_right(_FUNC_LINEFORMAT_STRING_BITN,_FUNC_LINEFORMAT_STRING_BITN->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19987);}while(r); -dl_continue_2933:; -} -dl_exit_2933:; -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_add(_FUNC_LINEFORMAT_STRING_E,_FUNC_LINEFORMAT_STRING_BITN)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19988);}while(r); -do{ -goto LABEL_LFFOUNDEXT; -if(!qbevent)break;evnt(19989);}while(r); -} -} -S_23465:; -if ((*_FUNC_LINEFORMAT_LONG_FLOAT)||new_error){ -if(qbevent){evnt(19993);if(r)goto S_23465;} -S_23466:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_LINEFORMAT_STRING_WHOLE,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(19995);if(r)goto S_23466;} -do{ -*_FUNC_LINEFORMAT_LONG_OFFSET=_FUNC_LINEFORMAT_STRING_WHOLE->len- 1 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19996);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_SIGDIGITS=_FUNC_LINEFORMAT_STRING_WHOLE->len+_FUNC_LINEFORMAT_STRING_FRAC->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(19997);}while(r); -}else{ -S_23470:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_LINEFORMAT_STRING_FRAC,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(19999);if(r)goto S_23470;} -do{ -*_FUNC_LINEFORMAT_LONG_OFFSET= -1 ; -if(!qbevent)break;evnt(20000);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_SIGDIGITS=_FUNC_LINEFORMAT_STRING_FRAC->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20001);}while(r); -S_23473:; -fornext_value2940= 1 ; -fornext_finalvalue2940=_FUNC_LINEFORMAT_STRING_FRAC->len; -fornext_step2940= 1 ; -if (fornext_step2940<0) fornext_step_negative2940=1; else fornext_step_negative2940=0; -if (new_error) goto fornext_error2940; -goto fornext_entrylabel2940; -while(1){ -fornext_value2940=fornext_step2940+(*_FUNC_LINEFORMAT_LONG_I2); -fornext_entrylabel2940: -*_FUNC_LINEFORMAT_LONG_I2=fornext_value2940; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative2940){ -if (fornext_value2940fornext_finalvalue2940) break; -} -fornext_error2940:; -if(qbevent){evnt(20002);if(r)goto S_23473;} -S_23474:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(func_mid(_FUNC_LINEFORMAT_STRING_FRAC,*_FUNC_LINEFORMAT_LONG_I2, 1 ,0|1),qbs_new_txt_len("0",1))))||new_error){ -if(qbevent){evnt(20003);if(r)goto S_23474;} -do{ -goto fornext_exit_2939; -if(!qbevent)break;evnt(20003);}while(r); -} -do{ -*_FUNC_LINEFORMAT_LONG_OFFSET=*_FUNC_LINEFORMAT_LONG_OFFSET- 1 ; -if(!qbevent)break;evnt(20004);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_SIGDIGITS=*_FUNC_LINEFORMAT_LONG_SIGDIGITS- 1 ; -if(!qbevent)break;evnt(20005);}while(r); -fornext_continue_2939:; -} -fornext_exit_2939:; -}else{ -do{ -*_FUNC_LINEFORMAT_LONG_OFFSET= 0 ; -if(!qbevent)break;evnt(20009);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_SIGDIGITS= 0 ; -if(!qbevent)break;evnt(20010);}while(r); -} -} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_SIGDIG,qbs_right(qbs_add(_FUNC_LINEFORMAT_STRING_WHOLE,_FUNC_LINEFORMAT_STRING_FRAC),*_FUNC_LINEFORMAT_LONG_SIGDIGITS)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20013);}while(r); -S_23486:; -if ((-(*_FUNC_LINEFORMAT_LONG_SIGDIGITS<= 7 ))||new_error){ -if(qbevent){evnt(20015);if(r)goto S_23486;} -S_23487:; -if (((-(*_FUNC_LINEFORMAT_LONG_OFFSET<= 38 ))&(-(*_FUNC_LINEFORMAT_LONG_OFFSET>= -38 )))||new_error){ -if(qbevent){evnt(20016);if(r)goto S_23487;} -S_23488:; -if ((-(*_FUNC_LINEFORMAT_LONG_OFFSET== 38 ))||new_error){ -if(qbevent){evnt(20017);if(r)goto S_23488;} -S_23489:; -if ((qbs_cleanup(qbs_tmp_base,qbs_greaterthan(_FUNC_LINEFORMAT_STRING_SIGDIG,qbs_new_txt_len("3402823",7))))||new_error){ -if(qbevent){evnt(20018);if(r)goto S_23489;} -do{ -goto LABEL_LFXSINGLE; -if(!qbevent)break;evnt(20018);}while(r); -} -} -S_23493:; -if ((-(*_FUNC_LINEFORMAT_LONG_OFFSET== -38 ))||new_error){ -if(qbevent){evnt(20020);if(r)goto S_23493;} -S_23494:; -if ((qbs_cleanup(qbs_tmp_base,qbs_lessthan(_FUNC_LINEFORMAT_STRING_SIGDIG,qbs_new_txt_len("1175494",7))))||new_error){ -if(qbevent){evnt(20021);if(r)goto S_23494;} -do{ -goto LABEL_LFXSINGLE; -if(!qbevent)break;evnt(20021);}while(r); -} -} -do{ -*_FUNC_LINEFORMAT_LONG_ED= 1 ; -if(!qbevent)break;evnt(20023);}while(r); -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20024);}while(r); -do{ -goto LABEL_LFFOUNDEXT; -if(!qbevent)break;evnt(20025);}while(r); -} -} -LABEL_LFXSINGLE:; -if(qbevent){evnt(20028);r=0;} -S_23503:; -if ((-(*_FUNC_LINEFORMAT_LONG_SIGDIGITS<= 16 ))||new_error){ -if(qbevent){evnt(20030);if(r)goto S_23503;} -S_23504:; -if (((-(*_FUNC_LINEFORMAT_LONG_OFFSET<= 308 ))&(-(*_FUNC_LINEFORMAT_LONG_OFFSET>= -308 )))||new_error){ -if(qbevent){evnt(20031);if(r)goto S_23504;} -S_23505:; -if ((-(*_FUNC_LINEFORMAT_LONG_OFFSET== 308 ))||new_error){ -if(qbevent){evnt(20032);if(r)goto S_23505;} -S_23506:; -if ((qbs_cleanup(qbs_tmp_base,qbs_greaterthan(_FUNC_LINEFORMAT_STRING_SIGDIG,qbs_new_txt_len("1797693134862315",16))))||new_error){ -if(qbevent){evnt(20033);if(r)goto S_23506;} -do{ -goto LABEL_LFXDOUBLE; -if(!qbevent)break;evnt(20033);}while(r); -} -} -S_23510:; -if ((-(*_FUNC_LINEFORMAT_LONG_OFFSET== -308 ))||new_error){ -if(qbevent){evnt(20035);if(r)goto S_23510;} -S_23511:; -if ((qbs_cleanup(qbs_tmp_base,qbs_lessthan(_FUNC_LINEFORMAT_STRING_SIGDIG,qbs_new_txt_len("2225073858507201",16))))||new_error){ -if(qbevent){evnt(20036);if(r)goto S_23511;} -do{ -goto LABEL_LFXDOUBLE; -if(!qbevent)break;evnt(20036);}while(r); -} -} -do{ -*_FUNC_LINEFORMAT_LONG_ED= 2 ; -if(!qbevent)break;evnt(20038);}while(r); -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20039);}while(r); -do{ -goto LABEL_LFFOUNDEXT; -if(!qbevent)break;evnt(20040);}while(r); -} -} -LABEL_LFXDOUBLE:; -if(qbevent){evnt(20043);r=0;} -do{ -*_FUNC_LINEFORMAT_LONG_ED= 3 ; -if(!qbevent)break;evnt(20045);}while(r); -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20046);}while(r); -do{ -goto LABEL_LFFOUNDEXT; -if(!qbevent)break;evnt(20046);}while(r); -} -do{ -*_FUNC_LINEFORMAT_LONG_EXTUSED= 0 ; -if(!qbevent)break;evnt(20049);}while(r); -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20050);}while(r); -LABEL_LFFOUNDEXT:; -if(qbevent){evnt(20051);r=0;} -S_23526:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_WHOLE,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(20054);if(r)goto S_23526;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_WHOLE,qbs_new_txt_len("0",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20054);}while(r); -} -S_23529:; -if ((*_FUNC_LINEFORMAT_LONG_FLOAT)||new_error){ -if(qbevent){evnt(20056);if(r)goto S_23529;} -do{ -*_FUNC_LINEFORMAT_LONG_DP= 1 ; -if(!qbevent)break;evnt(20057);}while(r); -S_23531:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_FRAC,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(20058);if(r)goto S_23531;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_FRAC,qbs_new_txt_len("0",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20058);}while(r); -} -} -S_23535:; -if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_LINEFORMAT_LONG_ED!= 0 ))&(qbs_equal(_FUNC_LINEFORMAT_STRING_EX,qbs_new_txt_len("",0)))))||new_error){ -if(qbevent){evnt(20061);if(r)goto S_23535;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_EX,qbs_new_txt_len("0",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20061);}while(r); -} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20063);}while(r); -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(_FUNC_LINEFORMAT_STRING_A2,_FUNC_LINEFORMAT_STRING_WHOLE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20064);}while(r); -S_23540:; -if ((*_FUNC_LINEFORMAT_LONG_DP)||new_error){ -if(qbevent){evnt(20065);if(r)goto S_23540;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,qbs_new_txt_len(".",1)),_FUNC_LINEFORMAT_STRING_FRAC)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20065);}while(r); -} -S_23543:; -if ((*_FUNC_LINEFORMAT_LONG_ED)||new_error){ -if(qbevent){evnt(20066);if(r)goto S_23543;} -S_23544:; -if ((-(*_FUNC_LINEFORMAT_LONG_ED== 1 ))||new_error){ -if(qbevent){evnt(20067);if(r)goto S_23544;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(_FUNC_LINEFORMAT_STRING_A2,qbs_new_txt_len("E",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20067);}while(r); -} -S_23547:; -if ((-(*_FUNC_LINEFORMAT_LONG_ED== 2 ))||new_error){ -if(qbevent){evnt(20068);if(r)goto S_23547;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(_FUNC_LINEFORMAT_STRING_A2,qbs_new_txt_len("D",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20068);}while(r); -} -S_23550:; -if ((-(*_FUNC_LINEFORMAT_LONG_ED== 3 ))||new_error){ -if(qbevent){evnt(20069);if(r)goto S_23550;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(_FUNC_LINEFORMAT_STRING_A2,qbs_new_txt_len("F",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20069);}while(r); -} -S_23553:; -if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_LINEFORMAT_LONG_PM== -1 ))&(qbs_notequal(_FUNC_LINEFORMAT_STRING_EX,qbs_new_txt_len("0",1)))))||new_error){ -if(qbevent){evnt(20070);if(r)goto S_23553;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(_FUNC_LINEFORMAT_STRING_A2,qbs_new_txt_len("-",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20070);}while(r); -}else{ -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(_FUNC_LINEFORMAT_STRING_A2,qbs_new_txt_len("+",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20070);}while(r); -} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(_FUNC_LINEFORMAT_STRING_A2,_FUNC_LINEFORMAT_STRING_EX)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20071);}while(r); -} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(_FUNC_LINEFORMAT_STRING_A2,_FUNC_LINEFORMAT_STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20073);}while(r); -S_23561:; -if ((*_FUNC_LINEFORMAT_LONG_EXTUSED)||new_error){ -if(qbevent){evnt(20075);if(r)goto S_23561;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,qbs_new_txt_len(",",1)),func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_FIRSTI,*_FUNC_LINEFORMAT_LONG_I-*_FUNC_LINEFORMAT_LONG_FIRSTI,0|1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20075);}while(r); -} -do{ -goto LABEL_LINEFORMATNEXT; -if(!qbevent)break;evnt(20077);}while(r); -} -S_23566:; -if ((-(*_FUNC_LINEFORMAT_LONG_C== 38 ))||new_error){ -if(qbevent){evnt(20082);if(r)goto S_23566;} -S_23567:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I+ 1 , 1 ,0|1),qbs_new_txt_len("H",1))))||new_error){ -if(qbevent){evnt(20083);if(r)goto S_23567;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; -if(!qbevent)break;evnt(20084);}while(r); -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_HX,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20085);}while(r); -LABEL_LFREADHEX:; -if(qbevent){evnt(20086);r=0;} -S_23570:; -if ((-(*_FUNC_LINEFORMAT_LONG_I<=*_FUNC_LINEFORMAT_LONG_N))||new_error){ -if(qbevent){evnt(20087);if(r)goto S_23570;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_C,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 1 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20088);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_C=qbs_asc(_FUNC_LINEFORMAT_STRING_C); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20088);}while(r); -S_23573:; -if ((((-(*_FUNC_LINEFORMAT_LONG_C>= 48 ))&(-(*_FUNC_LINEFORMAT_LONG_C<= 57 )))|((-(*_FUNC_LINEFORMAT_LONG_C>= 65 ))&(-(*_FUNC_LINEFORMAT_LONG_C<= 70 ))))||new_error){ -if(qbevent){evnt(20089);if(r)goto S_23573;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_HX,qbs_add(_FUNC_LINEFORMAT_STRING_HX,_FUNC_LINEFORMAT_STRING_C)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20089);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; -if(!qbevent)break;evnt(20089);}while(r); -do{ -goto LABEL_LFREADHEX; -if(!qbevent)break;evnt(20089);}while(r); -} -} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_FULLHX,qbs_add(qbs_new_txt_len("&H",2),_FUNC_LINEFORMAT_STRING_HX)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20091);}while(r); -S_23580:; -while((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_LINEFORMAT_STRING_HX, 1 ),qbs_new_txt_len("0",1))))||new_error){ -if(qbevent){evnt(20094);if(r)goto S_23580;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_HX,qbs_right(_FUNC_LINEFORMAT_STRING_HX,_FUNC_LINEFORMAT_STRING_HX->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20094);}while(r); -dl_continue_2942:; -} -dl_exit_2942:; -S_23583:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_HX,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(20095);if(r)goto S_23583;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_HX,qbs_new_txt_len("0",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20095);}while(r); -} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20097);}while(r); -S_23587:; -if ((-(*_FUNC_LINEFORMAT_LONG_I<=(*_FUNC_LINEFORMAT_LONG_N- 2 )))||new_error){ -if(qbevent){evnt(20099);if(r)goto S_23587;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 3 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20100);}while(r); -S_23589:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~%%",3))))||new_error){ -if(qbevent){evnt(20101);if(r)goto S_23589;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 3 ; -if(!qbevent)break;evnt(20101);}while(r); -do{ -goto LABEL_LFHXEXT; -if(!qbevent)break;evnt(20101);}while(r); -} -S_23593:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~&&",3))))||new_error){ -if(qbevent){evnt(20102);if(r)goto S_23593;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 3 ; -if(!qbevent)break;evnt(20102);}while(r); -do{ -goto LABEL_LFHXEXT; -if(!qbevent)break;evnt(20102);}while(r); -} -S_23597:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~%&",3))))||new_error){ -if(qbevent){evnt(20103);if(r)goto S_23597;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Cannot use _OFFSET symbols after numbers",40)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20103);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20103);}while(r); -} -} -S_23602:; -if ((-(*_FUNC_LINEFORMAT_LONG_I<=(*_FUNC_LINEFORMAT_LONG_N- 1 )))||new_error){ -if(qbevent){evnt(20106);if(r)goto S_23602;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 2 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20107);}while(r); -S_23604:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%%",2))))||new_error){ -if(qbevent){evnt(20108);if(r)goto S_23604;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; -if(!qbevent)break;evnt(20108);}while(r); -do{ -goto LABEL_LFHXEXT; -if(!qbevent)break;evnt(20108);}while(r); -} -S_23608:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~%",2))))||new_error){ -if(qbevent){evnt(20109);if(r)goto S_23608;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; -if(!qbevent)break;evnt(20109);}while(r); -do{ -goto LABEL_LFHXEXT; -if(!qbevent)break;evnt(20109);}while(r); -} -S_23612:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&&",2))))||new_error){ -if(qbevent){evnt(20110);if(r)goto S_23612;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; -if(!qbevent)break;evnt(20110);}while(r); -do{ -goto LABEL_LFHXEXT; -if(!qbevent)break;evnt(20110);}while(r); -} -S_23616:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%&",2))))||new_error){ -if(qbevent){evnt(20111);if(r)goto S_23616;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Cannot use _OFFSET symbols after numbers",40)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20111);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20111);}while(r); -} -S_23620:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~&",2))))||new_error){ -if(qbevent){evnt(20112);if(r)goto S_23620;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; -if(!qbevent)break;evnt(20112);}while(r); -do{ -goto LABEL_LFHXEXT; -if(!qbevent)break;evnt(20112);}while(r); -} -S_23624:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~`",2))))||new_error){ -if(qbevent){evnt(20113);if(r)goto S_23624;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; -if(!qbevent)break;evnt(20114);}while(r); -do{ -goto LABEL_LFHXBITEXT; -if(!qbevent)break;evnt(20115);}while(r); -} -} -S_23629:; -if ((-(*_FUNC_LINEFORMAT_LONG_I<=*_FUNC_LINEFORMAT_LONG_N))||new_error){ -if(qbevent){evnt(20119);if(r)goto S_23629;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 1 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20120);}while(r); -S_23631:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%",1))))||new_error){ -if(qbevent){evnt(20121);if(r)goto S_23631;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; -if(!qbevent)break;evnt(20121);}while(r); -do{ -goto LABEL_LFHXEXT; -if(!qbevent)break;evnt(20121);}while(r); -} -S_23635:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&",1))))||new_error){ -if(qbevent){evnt(20122);if(r)goto S_23635;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; -if(!qbevent)break;evnt(20122);}while(r); -do{ -goto LABEL_LFHXEXT; -if(!qbevent)break;evnt(20122);}while(r); -} -S_23639:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("`",1))))||new_error){ -if(qbevent){evnt(20123);if(r)goto S_23639;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; -if(!qbevent)break;evnt(20124);}while(r); -LABEL_LFHXBITEXT:; -if(qbevent){evnt(20125);r=0;} -S_23641:; -while((-(*_FUNC_LINEFORMAT_LONG_I<=*_FUNC_LINEFORMAT_LONG_N))||new_error){ -if(qbevent){evnt(20126);if(r)goto S_23641;} -do{ -*_FUNC_LINEFORMAT_LONG_C2=qbs_asc(func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 1 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20127);}while(r); -S_23643:; -if (((-(*_FUNC_LINEFORMAT_LONG_C2>= 48 ))&(-(*_FUNC_LINEFORMAT_LONG_C2<= 57 )))||new_error){ -if(qbevent){evnt(20128);if(r)goto S_23643;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_add(_FUNC_LINEFORMAT_STRING_BITN,func_chr(*_FUNC_LINEFORMAT_LONG_C2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20129);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; -if(!qbevent)break;evnt(20130);}while(r); -}else{ -do{ -goto dl_exit_2944; -if(!qbevent)break;evnt(20132);}while(r); -} -dl_continue_2944:; -} -dl_exit_2944:; -S_23650:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_BITN,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(20135);if(r)goto S_23650;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_new_txt_len("1",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20135);}while(r); -} -S_23653:; -while((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_LINEFORMAT_STRING_BITN, 1 ),qbs_new_txt_len("0",1))))||new_error){ -if(qbevent){evnt(20137);if(r)goto S_23653;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_right(_FUNC_LINEFORMAT_STRING_BITN,_FUNC_LINEFORMAT_STRING_BITN->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20137);}while(r); -dl_continue_2945:; -} -dl_exit_2945:; -do{ -goto LABEL_LFHXEXT; -if(!qbevent)break;evnt(20138);}while(r); -} -} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&&",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20143);}while(r); -S_23660:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_LINEFORMAT_STRING_HX->len<= 8 )))||new_error){ -if(qbevent){evnt(20144);if(r)goto S_23660;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20144);}while(r); -} -S_23663:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_LINEFORMAT_STRING_HX->len<= 4 )))||new_error){ -if(qbevent){evnt(20145);if(r)goto S_23663;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20145);}while(r); -} -do{ -goto LABEL_LFHXEXT2; -if(!qbevent)break;evnt(20146);}while(r); -LABEL_LFHXEXT:; -if(qbevent){evnt(20147);r=0;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_FULLHX,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_FULLHX,_FUNC_LINEFORMAT_STRING_E),_FUNC_LINEFORMAT_STRING_BITN)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20148);}while(r); -LABEL_LFHXEXT2:; -if(qbevent){evnt(20149);r=0;} -S_23668:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_LINEFORMAT_STRING_HX->len> 16 )))||new_error){ -if(qbevent){evnt(20152);if(r)goto S_23668;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Overflow",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20152);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20152);}while(r); -} -do{ -*_FUNC_LINEFORMAT_UINTEGER64_V= 0 ; -if(!qbevent)break;evnt(20153);}while(r); -S_23673:; -fornext_value2951= 1 ; -fornext_finalvalue2951=_FUNC_LINEFORMAT_STRING_HX->len; -fornext_step2951= 1 ; -if (fornext_step2951<0) fornext_step_negative2951=1; else fornext_step_negative2951=0; -if (new_error) goto fornext_error2951; -goto fornext_entrylabel2951; -while(1){ -fornext_value2951=fornext_step2951+(*_FUNC_LINEFORMAT_LONG_I2); -fornext_entrylabel2951: -*_FUNC_LINEFORMAT_LONG_I2=fornext_value2951; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative2951){ -if (fornext_value2951fornext_finalvalue2951) break; -} -fornext_error2951:; -if(qbevent){evnt(20154);if(r)goto S_23673;} -do{ -*_FUNC_LINEFORMAT_LONG_V2=qbs_asc(func_mid(_FUNC_LINEFORMAT_STRING_HX,*_FUNC_LINEFORMAT_LONG_I2, 1 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20155);}while(r); -S_23675:; -if ((-(*_FUNC_LINEFORMAT_LONG_V2<= 57 ))||new_error){ -if(qbevent){evnt(20156);if(r)goto S_23675;} -do{ -*_FUNC_LINEFORMAT_LONG_V2=*_FUNC_LINEFORMAT_LONG_V2- 48 ; -if(!qbevent)break;evnt(20156);}while(r); -}else{ -do{ -*_FUNC_LINEFORMAT_LONG_V2=*_FUNC_LINEFORMAT_LONG_V2- 65 + 10 ; -if(!qbevent)break;evnt(20156);}while(r); -} -do{ -*_FUNC_LINEFORMAT_UINTEGER64_V=(*_FUNC_LINEFORMAT_UINTEGER64_V* 16 )+*_FUNC_LINEFORMAT_LONG_V2; -if(!qbevent)break;evnt(20157);}while(r); -fornext_continue_2950:; -} -fornext_exit_2950:; -LABEL_FINISHHEXOCTBIN:; -if(qbevent){evnt(20160);r=0;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_NUM,FUNC_STR2U64(_FUNC_LINEFORMAT_UINTEGER64_V)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20161);}while(r); -S_23683:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(_FUNC_LINEFORMAT_STRING_E, 1 ),qbs_new_txt_len("~",1))))||new_error){ -if(qbevent){evnt(20162);if(r)goto S_23683;} -S_23684:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%%",2))))||new_error){ -if(qbevent){evnt(20165);if(r)goto S_23684;} -S_23685:; -if ((-(*_FUNC_LINEFORMAT_UINTEGER64_V> 127 ))||new_error){ -if(qbevent){evnt(20166);if(r)goto S_23685;} -S_23686:; -if ((-(*_FUNC_LINEFORMAT_UINTEGER64_V> 255 ))||new_error){ -if(qbevent){evnt(20167);if(r)goto S_23686;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Overflow",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20167);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20167);}while(r); -} -do{ -*_FUNC_LINEFORMAT_UINTEGER64_V=((~(*_FUNC_LINEFORMAT_UINTEGER64_V))& 255 )+ 1 ; -if(!qbevent)break;evnt(20168);}while(r); -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_NUM,qbs_add(qbs_add(qbs_new_txt_len("-",1),__STRING1_SP),FUNC_STR2U64(_FUNC_LINEFORMAT_UINTEGER64_V))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20169);}while(r); -} -} -S_23694:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%",1))))||new_error){ -if(qbevent){evnt(20173);if(r)goto S_23694;} -S_23695:; -if ((-(*_FUNC_LINEFORMAT_UINTEGER64_V> 32767 ))||new_error){ -if(qbevent){evnt(20174);if(r)goto S_23695;} -S_23696:; -if ((-(*_FUNC_LINEFORMAT_UINTEGER64_V> 65535 ))||new_error){ -if(qbevent){evnt(20175);if(r)goto S_23696;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Overflow",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20175);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20175);}while(r); -} -do{ -*_FUNC_LINEFORMAT_UINTEGER64_V=((~(*_FUNC_LINEFORMAT_UINTEGER64_V))& 65535 )+ 1 ; -if(!qbevent)break;evnt(20176);}while(r); -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_NUM,qbs_add(qbs_add(qbs_new_txt_len("-",1),__STRING1_SP),FUNC_STR2U64(_FUNC_LINEFORMAT_UINTEGER64_V))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20177);}while(r); -} -} -S_23704:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&",1))))||new_error){ -if(qbevent){evnt(20181);if(r)goto S_23704;} -S_23705:; -if ((-(*_FUNC_LINEFORMAT_UINTEGER64_V> 2147483647 ))||new_error){ -if(qbevent){evnt(20182);if(r)goto S_23705;} -S_23706:; -if ((-(*_FUNC_LINEFORMAT_UINTEGER64_V> 4294967295ll ))||new_error){ -if(qbevent){evnt(20183);if(r)goto S_23706;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Overflow",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20183);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20183);}while(r); -} -do{ -*_FUNC_LINEFORMAT_UINTEGER64_V=((~(*_FUNC_LINEFORMAT_UINTEGER64_V))& 4294967295ll )+ 1 ; -if(!qbevent)break;evnt(20184);}while(r); -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_NUM,qbs_add(qbs_add(qbs_new_txt_len("-",1),__STRING1_SP),FUNC_STR2U64(_FUNC_LINEFORMAT_UINTEGER64_V))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20185);}while(r); -} -} -S_23714:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&&",2))))||new_error){ -if(qbevent){evnt(20189);if(r)goto S_23714;} -S_23715:; -if ((-(*_FUNC_LINEFORMAT_UINTEGER64_V> 9223372036854775807ll ))||new_error){ -if(qbevent){evnt(20190);if(r)goto S_23715;} -do{ -*_FUNC_LINEFORMAT_UINTEGER64_V=(~(*_FUNC_LINEFORMAT_UINTEGER64_V))+ 1 ; -if(!qbevent)break;evnt(20192);}while(r); -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_NUM,qbs_add(qbs_add(qbs_new_txt_len("-",1),__STRING1_SP),FUNC_STR2U64(_FUNC_LINEFORMAT_UINTEGER64_V))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20193);}while(r); -} -} -S_23720:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("`",1))))||new_error){ -if(qbevent){evnt(20197);if(r)goto S_23720;} -do{ -*_FUNC_LINEFORMAT_LONG_VBITN=qbr(func_val(_FUNC_LINEFORMAT_STRING_BITN)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20198);}while(r); -do{ -*_FUNC_LINEFORMAT_UINTEGER64_H= 1 ; -if(!qbevent)break;evnt(20199);}while(r); -S_23723:; -fornext_value2954= 1 ; -fornext_finalvalue2954=*_FUNC_LINEFORMAT_LONG_VBITN- 1 ; -fornext_step2954= 1 ; -if (fornext_step2954<0) fornext_step_negative2954=1; else fornext_step_negative2954=0; -if (new_error) goto fornext_error2954; -goto fornext_entrylabel2954; -while(1){ -fornext_value2954=fornext_step2954+(*_FUNC_LINEFORMAT_LONG_I2); -fornext_entrylabel2954: -*_FUNC_LINEFORMAT_LONG_I2=fornext_value2954; -if (fornext_step_negative2954){ -if (fornext_value2954fornext_finalvalue2954) break; -} -fornext_error2954:; -if(qbevent){evnt(20199);if(r)goto S_23723;} -do{ -*_FUNC_LINEFORMAT_UINTEGER64_H=*_FUNC_LINEFORMAT_UINTEGER64_H* 2 ; -if(!qbevent)break;evnt(20199);}while(r); -fornext_continue_2953:; -} -fornext_exit_2953:; -do{ -*_FUNC_LINEFORMAT_UINTEGER64_H=*_FUNC_LINEFORMAT_UINTEGER64_H- 1 ; -if(!qbevent)break;evnt(20199);}while(r); -S_23727:; -if ((-(*_FUNC_LINEFORMAT_UINTEGER64_V>*_FUNC_LINEFORMAT_UINTEGER64_H))||new_error){ -if(qbevent){evnt(20200);if(r)goto S_23727;} -do{ -*_FUNC_LINEFORMAT_UINTEGER64_H= 1 ; -if(!qbevent)break;evnt(20201);}while(r); -S_23729:; -fornext_value2956= 1 ; -fornext_finalvalue2956=*_FUNC_LINEFORMAT_LONG_VBITN; -fornext_step2956= 1 ; -if (fornext_step2956<0) fornext_step_negative2956=1; else fornext_step_negative2956=0; -if (new_error) goto fornext_error2956; -goto fornext_entrylabel2956; -while(1){ -fornext_value2956=fornext_step2956+(*_FUNC_LINEFORMAT_LONG_I2); -fornext_entrylabel2956: -*_FUNC_LINEFORMAT_LONG_I2=fornext_value2956; -if (fornext_step_negative2956){ -if (fornext_value2956fornext_finalvalue2956) break; -} -fornext_error2956:; -if(qbevent){evnt(20201);if(r)goto S_23729;} -do{ -*_FUNC_LINEFORMAT_UINTEGER64_H=*_FUNC_LINEFORMAT_UINTEGER64_H* 2 ; -if(!qbevent)break;evnt(20201);}while(r); -fornext_continue_2955:; -} -fornext_exit_2955:; -do{ -*_FUNC_LINEFORMAT_UINTEGER64_H=*_FUNC_LINEFORMAT_UINTEGER64_H- 1 ; -if(!qbevent)break;evnt(20201);}while(r); -S_23733:; -if ((-(*_FUNC_LINEFORMAT_UINTEGER64_V>*_FUNC_LINEFORMAT_UINTEGER64_H))||new_error){ -if(qbevent){evnt(20202);if(r)goto S_23733;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Overflow",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20202);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20202);}while(r); -} -do{ -*_FUNC_LINEFORMAT_UINTEGER64_V=((~(*_FUNC_LINEFORMAT_UINTEGER64_V))&*_FUNC_LINEFORMAT_UINTEGER64_H)+ 1 ; -if(!qbevent)break;evnt(20203);}while(r); -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_NUM,qbs_add(qbs_add(qbs_new_txt_len("-",1),__STRING1_SP),FUNC_STR2U64(_FUNC_LINEFORMAT_UINTEGER64_V))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20204);}while(r); -} -} -} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),_FUNC_LINEFORMAT_STRING_NUM),_FUNC_LINEFORMAT_STRING_E),_FUNC_LINEFORMAT_STRING_BITN),qbs_new_txt_len(",",1)),_FUNC_LINEFORMAT_STRING_FULLHX)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20210);}while(r); -do{ -goto LABEL_LINEFORMATNEXT; -if(!qbevent)break;evnt(20212);}while(r); -} -} -S_23746:; -if ((-(*_FUNC_LINEFORMAT_LONG_C== 38 ))||new_error){ -if(qbevent){evnt(20218);if(r)goto S_23746;} -S_23747:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I+ 1 , 1 ,0|1),qbs_new_txt_len("O",1))))||new_error){ -if(qbevent){evnt(20219);if(r)goto S_23747;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; -if(!qbevent)break;evnt(20220);}while(r); -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_HX,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20222);}while(r); -LABEL_LFREADOCT:; -if(qbevent){evnt(20223);r=0;} -S_23750:; -if ((-(*_FUNC_LINEFORMAT_LONG_I<=*_FUNC_LINEFORMAT_LONG_N))||new_error){ -if(qbevent){evnt(20224);if(r)goto S_23750;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_C,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 1 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20225);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_C=qbs_asc(_FUNC_LINEFORMAT_STRING_C); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20225);}while(r); -S_23753:; -if (((-(*_FUNC_LINEFORMAT_LONG_C>= 48 ))&(-(*_FUNC_LINEFORMAT_LONG_C<= 55 )))||new_error){ -if(qbevent){evnt(20226);if(r)goto S_23753;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_HX,qbs_add(_FUNC_LINEFORMAT_STRING_HX,_FUNC_LINEFORMAT_STRING_C)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20226);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; -if(!qbevent)break;evnt(20226);}while(r); -do{ -goto LABEL_LFREADOCT; -if(!qbevent)break;evnt(20226);}while(r); -} -} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_FULLHX,qbs_add(qbs_new_txt_len("&O",2),_FUNC_LINEFORMAT_STRING_HX)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20228);}while(r); -S_23760:; -while((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_LINEFORMAT_STRING_HX, 1 ),qbs_new_txt_len("0",1))))||new_error){ -if(qbevent){evnt(20231);if(r)goto S_23760;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_HX,qbs_right(_FUNC_LINEFORMAT_STRING_HX,_FUNC_LINEFORMAT_STRING_HX->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20231);}while(r); -dl_continue_2957:; -} -dl_exit_2957:; -S_23763:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_HX,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(20232);if(r)goto S_23763;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_HX,qbs_new_txt_len("0",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20232);}while(r); -} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20234);}while(r); -S_23767:; -if ((-(*_FUNC_LINEFORMAT_LONG_I<=(*_FUNC_LINEFORMAT_LONG_N- 2 )))||new_error){ -if(qbevent){evnt(20236);if(r)goto S_23767;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 3 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20237);}while(r); -S_23769:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~%%",3))))||new_error){ -if(qbevent){evnt(20238);if(r)goto S_23769;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 3 ; -if(!qbevent)break;evnt(20238);}while(r); -do{ -goto LABEL_LFOTEXT; -if(!qbevent)break;evnt(20238);}while(r); -} -S_23773:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~&&",3))))||new_error){ -if(qbevent){evnt(20239);if(r)goto S_23773;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 3 ; -if(!qbevent)break;evnt(20239);}while(r); -do{ -goto LABEL_LFOTEXT; -if(!qbevent)break;evnt(20239);}while(r); -} -S_23777:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~%&",3))))||new_error){ -if(qbevent){evnt(20240);if(r)goto S_23777;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Cannot use _OFFSET symbols after numbers",40)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20240);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20240);}while(r); -} -} -S_23782:; -if ((-(*_FUNC_LINEFORMAT_LONG_I<=(*_FUNC_LINEFORMAT_LONG_N- 1 )))||new_error){ -if(qbevent){evnt(20243);if(r)goto S_23782;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 2 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20244);}while(r); -S_23784:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%%",2))))||new_error){ -if(qbevent){evnt(20245);if(r)goto S_23784;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; -if(!qbevent)break;evnt(20245);}while(r); -do{ -goto LABEL_LFOTEXT; -if(!qbevent)break;evnt(20245);}while(r); -} -S_23788:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~%",2))))||new_error){ -if(qbevent){evnt(20246);if(r)goto S_23788;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; -if(!qbevent)break;evnt(20246);}while(r); -do{ -goto LABEL_LFOTEXT; -if(!qbevent)break;evnt(20246);}while(r); -} -S_23792:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&&",2))))||new_error){ -if(qbevent){evnt(20247);if(r)goto S_23792;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; -if(!qbevent)break;evnt(20247);}while(r); -do{ -goto LABEL_LFOTEXT; -if(!qbevent)break;evnt(20247);}while(r); -} -S_23796:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%&",2))))||new_error){ -if(qbevent){evnt(20248);if(r)goto S_23796;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Cannot use _OFFSET symbols after numbers",40)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20248);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20248);}while(r); -} -S_23800:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~&",2))))||new_error){ -if(qbevent){evnt(20249);if(r)goto S_23800;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; -if(!qbevent)break;evnt(20249);}while(r); -do{ -goto LABEL_LFOTEXT; -if(!qbevent)break;evnt(20249);}while(r); -} -S_23804:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~`",2))))||new_error){ -if(qbevent){evnt(20250);if(r)goto S_23804;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; -if(!qbevent)break;evnt(20251);}while(r); -do{ -goto LABEL_LFOTBITEXT; -if(!qbevent)break;evnt(20252);}while(r); -} -} -S_23809:; -if ((-(*_FUNC_LINEFORMAT_LONG_I<=*_FUNC_LINEFORMAT_LONG_N))||new_error){ -if(qbevent){evnt(20256);if(r)goto S_23809;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 1 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20257);}while(r); -S_23811:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%",1))))||new_error){ -if(qbevent){evnt(20258);if(r)goto S_23811;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; -if(!qbevent)break;evnt(20258);}while(r); -do{ -goto LABEL_LFOTEXT; -if(!qbevent)break;evnt(20258);}while(r); -} -S_23815:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&",1))))||new_error){ -if(qbevent){evnt(20259);if(r)goto S_23815;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; -if(!qbevent)break;evnt(20259);}while(r); -do{ -goto LABEL_LFOTEXT; -if(!qbevent)break;evnt(20259);}while(r); -} -S_23819:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("`",1))))||new_error){ -if(qbevent){evnt(20260);if(r)goto S_23819;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; -if(!qbevent)break;evnt(20261);}while(r); -LABEL_LFOTBITEXT:; -if(qbevent){evnt(20262);r=0;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20263);}while(r); -S_23822:; -while((-(*_FUNC_LINEFORMAT_LONG_I<=*_FUNC_LINEFORMAT_LONG_N))||new_error){ -if(qbevent){evnt(20264);if(r)goto S_23822;} -do{ -*_FUNC_LINEFORMAT_LONG_C2=qbs_asc(func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 1 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20265);}while(r); -S_23824:; -if (((-(*_FUNC_LINEFORMAT_LONG_C2>= 48 ))&(-(*_FUNC_LINEFORMAT_LONG_C2<= 57 )))||new_error){ -if(qbevent){evnt(20266);if(r)goto S_23824;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_add(_FUNC_LINEFORMAT_STRING_BITN,func_chr(*_FUNC_LINEFORMAT_LONG_C2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20267);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; -if(!qbevent)break;evnt(20268);}while(r); -}else{ -do{ -goto dl_exit_2959; -if(!qbevent)break;evnt(20270);}while(r); -} -dl_continue_2959:; -} -dl_exit_2959:; -S_23831:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_BITN,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(20273);if(r)goto S_23831;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_new_txt_len("1",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20273);}while(r); -} -S_23834:; -while((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_LINEFORMAT_STRING_BITN, 1 ),qbs_new_txt_len("0",1))))||new_error){ -if(qbevent){evnt(20275);if(r)goto S_23834;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_right(_FUNC_LINEFORMAT_STRING_BITN,_FUNC_LINEFORMAT_STRING_BITN->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20275);}while(r); -dl_continue_2960:; -} -dl_exit_2960:; -do{ -goto LABEL_LFOTEXT; -if(!qbevent)break;evnt(20276);}while(r); -} -} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&&",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20281);}while(r); -S_23841:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_LINEFORMAT_STRING_HX->len<= 11 )))||new_error){ -if(qbevent){evnt(20283);if(r)goto S_23841;} -S_23842:; -if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_LINEFORMAT_STRING_HX->len< 11 ))|(-(qbs_asc(qbs_left(_FUNC_LINEFORMAT_STRING_HX, 1 ))<= 51 ))))||new_error){ -if(qbevent){evnt(20284);if(r)goto S_23842;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20284);}while(r); -} -} -S_23846:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_LINEFORMAT_STRING_HX->len<= 6 )))||new_error){ -if(qbevent){evnt(20287);if(r)goto S_23846;} -S_23847:; -if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_LINEFORMAT_STRING_HX->len< 6 ))|(qbs_equal(qbs_left(_FUNC_LINEFORMAT_STRING_HX, 1 ),qbs_new_txt_len("1",1)))))||new_error){ -if(qbevent){evnt(20288);if(r)goto S_23847;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20288);}while(r); -} -} -do{ -goto LABEL_LFOTEXT2; -if(!qbevent)break;evnt(20291);}while(r); -LABEL_LFOTEXT:; -if(qbevent){evnt(20292);r=0;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_FULLHX,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_FULLHX,_FUNC_LINEFORMAT_STRING_E),_FUNC_LINEFORMAT_STRING_BITN)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20293);}while(r); -LABEL_LFOTEXT2:; -if(qbevent){evnt(20294);r=0;} -S_23853:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_LINEFORMAT_STRING_HX->len> 22 )))||new_error){ -if(qbevent){evnt(20298);if(r)goto S_23853;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Overflow",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20298);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20298);}while(r); -} -S_23857:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_LINEFORMAT_STRING_HX->len== 22 )))||new_error){ -if(qbevent){evnt(20299);if(r)goto S_23857;} -S_23858:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(_FUNC_LINEFORMAT_STRING_HX, 1 ),qbs_new_txt_len("1",1))))||new_error){ -if(qbevent){evnt(20300);if(r)goto S_23858;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Overflow",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20300);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20300);}while(r); -} -} -do{ -*_FUNC_LINEFORMAT_UINTEGER64_V= 0 ; -if(!qbevent)break;evnt(20303);}while(r); -S_23864:; -fornext_value2969= 1 ; -fornext_finalvalue2969=_FUNC_LINEFORMAT_STRING_HX->len; -fornext_step2969= 1 ; -if (fornext_step2969<0) fornext_step_negative2969=1; else fornext_step_negative2969=0; -if (new_error) goto fornext_error2969; -goto fornext_entrylabel2969; -while(1){ -fornext_value2969=fornext_step2969+(*_FUNC_LINEFORMAT_LONG_I2); -fornext_entrylabel2969: -*_FUNC_LINEFORMAT_LONG_I2=fornext_value2969; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative2969){ -if (fornext_value2969fornext_finalvalue2969) break; -} -fornext_error2969:; -if(qbevent){evnt(20304);if(r)goto S_23864;} -do{ -*_FUNC_LINEFORMAT_LONG_V2=qbs_asc(func_mid(_FUNC_LINEFORMAT_STRING_HX,*_FUNC_LINEFORMAT_LONG_I2, 1 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20305);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_V2=*_FUNC_LINEFORMAT_LONG_V2- 48 ; -if(!qbevent)break;evnt(20306);}while(r); -do{ -*_FUNC_LINEFORMAT_UINTEGER64_V=(*_FUNC_LINEFORMAT_UINTEGER64_V* 8 )+*_FUNC_LINEFORMAT_LONG_V2; -if(!qbevent)break;evnt(20307);}while(r); -fornext_continue_2968:; -} -fornext_exit_2968:; -do{ -goto LABEL_FINISHHEXOCTBIN; -if(!qbevent)break;evnt(20310);}while(r); -} -} -S_23872:; -if ((-(*_FUNC_LINEFORMAT_LONG_C== 38 ))||new_error){ -if(qbevent){evnt(20316);if(r)goto S_23872;} -S_23873:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I+ 1 , 1 ,0|1),qbs_new_txt_len("B",1))))||new_error){ -if(qbevent){evnt(20317);if(r)goto S_23873;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; -if(!qbevent)break;evnt(20318);}while(r); -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_HX,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20320);}while(r); -LABEL_LFREADBIN:; -if(qbevent){evnt(20321);r=0;} -S_23876:; -if ((-(*_FUNC_LINEFORMAT_LONG_I<=*_FUNC_LINEFORMAT_LONG_N))||new_error){ -if(qbevent){evnt(20322);if(r)goto S_23876;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_C,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 1 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20323);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_C=qbs_asc(_FUNC_LINEFORMAT_STRING_C); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20323);}while(r); -S_23879:; -if (((-(*_FUNC_LINEFORMAT_LONG_C>= 48 ))&(-(*_FUNC_LINEFORMAT_LONG_C<= 49 )))||new_error){ -if(qbevent){evnt(20324);if(r)goto S_23879;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_HX,qbs_add(_FUNC_LINEFORMAT_STRING_HX,_FUNC_LINEFORMAT_STRING_C)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20324);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; -if(!qbevent)break;evnt(20324);}while(r); -do{ -goto LABEL_LFREADBIN; -if(!qbevent)break;evnt(20324);}while(r); -} -} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_FULLHX,qbs_add(qbs_new_txt_len("&B",2),_FUNC_LINEFORMAT_STRING_HX)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20326);}while(r); -S_23886:; -while((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_LINEFORMAT_STRING_HX, 1 ),qbs_new_txt_len("0",1))))||new_error){ -if(qbevent){evnt(20329);if(r)goto S_23886;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_HX,qbs_right(_FUNC_LINEFORMAT_STRING_HX,_FUNC_LINEFORMAT_STRING_HX->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20329);}while(r); -dl_continue_2971:; -} -dl_exit_2971:; -S_23889:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_HX,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(20330);if(r)goto S_23889;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_HX,qbs_new_txt_len("0",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20330);}while(r); -} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20332);}while(r); -S_23893:; -if ((-(*_FUNC_LINEFORMAT_LONG_I<=(*_FUNC_LINEFORMAT_LONG_N- 2 )))||new_error){ -if(qbevent){evnt(20334);if(r)goto S_23893;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 3 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20335);}while(r); -S_23895:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~%%",3))))||new_error){ -if(qbevent){evnt(20336);if(r)goto S_23895;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 3 ; -if(!qbevent)break;evnt(20336);}while(r); -do{ -goto LABEL_LFBIEXT; -if(!qbevent)break;evnt(20336);}while(r); -} -S_23899:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~&&",3))))||new_error){ -if(qbevent){evnt(20337);if(r)goto S_23899;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 3 ; -if(!qbevent)break;evnt(20337);}while(r); -do{ -goto LABEL_LFBIEXT; -if(!qbevent)break;evnt(20337);}while(r); -} -S_23903:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~%&",3))))||new_error){ -if(qbevent){evnt(20338);if(r)goto S_23903;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Cannot use _OFFSET symbols after numbers",40)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20338);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20338);}while(r); -} -} -S_23908:; -if ((-(*_FUNC_LINEFORMAT_LONG_I<=(*_FUNC_LINEFORMAT_LONG_N- 1 )))||new_error){ -if(qbevent){evnt(20341);if(r)goto S_23908;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 2 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20342);}while(r); -S_23910:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%%",2))))||new_error){ -if(qbevent){evnt(20343);if(r)goto S_23910;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; -if(!qbevent)break;evnt(20343);}while(r); -do{ -goto LABEL_LFBIEXT; -if(!qbevent)break;evnt(20343);}while(r); -} -S_23914:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~%",2))))||new_error){ -if(qbevent){evnt(20344);if(r)goto S_23914;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; -if(!qbevent)break;evnt(20344);}while(r); -do{ -goto LABEL_LFBIEXT; -if(!qbevent)break;evnt(20344);}while(r); -} -S_23918:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&&",2))))||new_error){ -if(qbevent){evnt(20345);if(r)goto S_23918;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; -if(!qbevent)break;evnt(20345);}while(r); -do{ -goto LABEL_LFBIEXT; -if(!qbevent)break;evnt(20345);}while(r); -} -S_23922:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%&",2))))||new_error){ -if(qbevent){evnt(20346);if(r)goto S_23922;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Cannot use _OFFSET symbols after numbers",40)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20346);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20346);}while(r); -} -S_23926:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~&",2))))||new_error){ -if(qbevent){evnt(20347);if(r)goto S_23926;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; -if(!qbevent)break;evnt(20347);}while(r); -do{ -goto LABEL_LFBIEXT; -if(!qbevent)break;evnt(20347);}while(r); -} -S_23930:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~`",2))))||new_error){ -if(qbevent){evnt(20348);if(r)goto S_23930;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; -if(!qbevent)break;evnt(20349);}while(r); -do{ -goto LABEL_LFBIBITEXT; -if(!qbevent)break;evnt(20350);}while(r); -} -} -S_23935:; -if ((-(*_FUNC_LINEFORMAT_LONG_I<=*_FUNC_LINEFORMAT_LONG_N))||new_error){ -if(qbevent){evnt(20356);if(r)goto S_23935;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 1 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20357);}while(r); -S_23937:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%",1))))||new_error){ -if(qbevent){evnt(20358);if(r)goto S_23937;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; -if(!qbevent)break;evnt(20358);}while(r); -do{ -goto LABEL_LFBIEXT; -if(!qbevent)break;evnt(20358);}while(r); -} -S_23941:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&",1))))||new_error){ -if(qbevent){evnt(20359);if(r)goto S_23941;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; -if(!qbevent)break;evnt(20359);}while(r); -do{ -goto LABEL_LFBIEXT; -if(!qbevent)break;evnt(20359);}while(r); -} -S_23945:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("`",1))))||new_error){ -if(qbevent){evnt(20360);if(r)goto S_23945;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; -if(!qbevent)break;evnt(20361);}while(r); -LABEL_LFBIBITEXT:; -if(qbevent){evnt(20362);r=0;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20363);}while(r); -S_23948:; -while((-(*_FUNC_LINEFORMAT_LONG_I<=*_FUNC_LINEFORMAT_LONG_N))||new_error){ -if(qbevent){evnt(20364);if(r)goto S_23948;} -do{ -*_FUNC_LINEFORMAT_LONG_C2=qbs_asc(func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 1 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20365);}while(r); -S_23950:; -if (((-(*_FUNC_LINEFORMAT_LONG_C2>= 48 ))&(-(*_FUNC_LINEFORMAT_LONG_C2<= 57 )))||new_error){ -if(qbevent){evnt(20366);if(r)goto S_23950;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_add(_FUNC_LINEFORMAT_STRING_BITN,func_chr(*_FUNC_LINEFORMAT_LONG_C2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20367);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; -if(!qbevent)break;evnt(20368);}while(r); -}else{ -do{ -goto dl_exit_2973; -if(!qbevent)break;evnt(20370);}while(r); -} -dl_continue_2973:; -} -dl_exit_2973:; -S_23957:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_BITN,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(20373);if(r)goto S_23957;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_new_txt_len("1",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20373);}while(r); -} -S_23960:; -while((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_LINEFORMAT_STRING_BITN, 1 ),qbs_new_txt_len("0",1))))||new_error){ -if(qbevent){evnt(20375);if(r)goto S_23960;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_right(_FUNC_LINEFORMAT_STRING_BITN,_FUNC_LINEFORMAT_STRING_BITN->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20375);}while(r); -dl_continue_2974:; -} -dl_exit_2974:; -do{ -goto LABEL_LFBIEXT; -if(!qbevent)break;evnt(20376);}while(r); -} -} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&&",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20381);}while(r); -S_23967:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_LINEFORMAT_STRING_HX->len<= 32 )))||new_error){ -if(qbevent){evnt(20382);if(r)goto S_23967;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20382);}while(r); -} -S_23970:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_LINEFORMAT_STRING_HX->len<= 16 )))||new_error){ -if(qbevent){evnt(20383);if(r)goto S_23970;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20383);}while(r); -} -do{ -goto LABEL_LFBIEXT2; -if(!qbevent)break;evnt(20385);}while(r); -LABEL_LFBIEXT:; -if(qbevent){evnt(20386);r=0;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_FULLHX,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_FULLHX,_FUNC_LINEFORMAT_STRING_E),_FUNC_LINEFORMAT_STRING_BITN)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20387);}while(r); -LABEL_LFBIEXT2:; -if(qbevent){evnt(20388);r=0;} -S_23975:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_LINEFORMAT_STRING_HX->len> 64 )))||new_error){ -if(qbevent){evnt(20391);if(r)goto S_23975;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Overflow",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20391);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20391);}while(r); -} -do{ -*_FUNC_LINEFORMAT_UINTEGER64_V= 0 ; -if(!qbevent)break;evnt(20393);}while(r); -S_23980:; -fornext_value2980= 1 ; -fornext_finalvalue2980=_FUNC_LINEFORMAT_STRING_HX->len; -fornext_step2980= 1 ; -if (fornext_step2980<0) fornext_step_negative2980=1; else fornext_step_negative2980=0; -if (new_error) goto fornext_error2980; -goto fornext_entrylabel2980; -while(1){ -fornext_value2980=fornext_step2980+(*_FUNC_LINEFORMAT_LONG_I2); -fornext_entrylabel2980: -*_FUNC_LINEFORMAT_LONG_I2=fornext_value2980; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative2980){ -if (fornext_value2980fornext_finalvalue2980) break; -} -fornext_error2980:; -if(qbevent){evnt(20394);if(r)goto S_23980;} -do{ -*_FUNC_LINEFORMAT_LONG_V2=qbs_asc(func_mid(_FUNC_LINEFORMAT_STRING_HX,*_FUNC_LINEFORMAT_LONG_I2, 1 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20395);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_V2=*_FUNC_LINEFORMAT_LONG_V2- 48 ; -if(!qbevent)break;evnt(20396);}while(r); -do{ -*_FUNC_LINEFORMAT_UINTEGER64_V=(*_FUNC_LINEFORMAT_UINTEGER64_V* 2 )+*_FUNC_LINEFORMAT_LONG_V2; -if(!qbevent)break;evnt(20397);}while(r); -fornext_continue_2979:; -} -fornext_exit_2979:; -do{ -goto LABEL_FINISHHEXOCTBIN; -if(!qbevent)break;evnt(20400);}while(r); -} -} -S_23988:; -if ((-(*_FUNC_LINEFORMAT_LONG_C== 38 ))||new_error){ -if(qbevent){evnt(20406);if(r)goto S_23988;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected &H... or &O...",23)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20406);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20406);}while(r); -} -S_23992:; -if (((((-(*_FUNC_LINEFORMAT_LONG_C>= 65 ))&(-(*_FUNC_LINEFORMAT_LONG_C<= 90 ))))|(-(*_FUNC_LINEFORMAT_LONG_C== 95 )))||new_error){ -if(qbevent){evnt(20410);if(r)goto S_23992;} -S_23993:; -if ((-(*_FUNC_LINEFORMAT_LONG_C== 95 ))||new_error){ -if(qbevent){evnt(20411);if(r)goto S_23993;} -do{ -*_FUNC_LINEFORMAT_LONG_P2= 0 ; -if(!qbevent)break;evnt(20411);}while(r); -}else{ -do{ -*_FUNC_LINEFORMAT_LONG_P2=*_FUNC_LINEFORMAT_LONG_I; -if(!qbevent)break;evnt(20411);}while(r); -} -S_23998:; -fornext_value2983=*_FUNC_LINEFORMAT_LONG_I+ 1 ; -fornext_finalvalue2983=*_FUNC_LINEFORMAT_LONG_N; -fornext_step2983= 1 ; -if (fornext_step2983<0) fornext_step_negative2983=1; else fornext_step_negative2983=0; -if (new_error) goto fornext_error2983; -goto fornext_entrylabel2983; -while(1){ -fornext_value2983=fornext_step2983+(*_FUNC_LINEFORMAT_LONG_I2); -fornext_entrylabel2983: -*_FUNC_LINEFORMAT_LONG_I2=fornext_value2983; -if (fornext_step_negative2983){ -if (fornext_value2983fornext_finalvalue2983) break; -} -fornext_error2983:; -if(qbevent){evnt(20412);if(r)goto S_23998;} -do{ -*_FUNC_LINEFORMAT_LONG_C2=qbs_asc(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20413);}while(r); -S_24000:; -if ((~(((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((*_FUNC_LINEFORMAT_LONG_C2)-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]))||new_error){ -if(qbevent){evnt(20414);if(r)goto S_24000;} -do{ -goto fornext_exit_2982; -if(!qbevent)break;evnt(20414);}while(r); -} -S_24003:; -if ((-(*_FUNC_LINEFORMAT_LONG_C2!= 95 ))||new_error){ -if(qbevent){evnt(20415);if(r)goto S_24003;} -do{ -*_FUNC_LINEFORMAT_LONG_P2=*_FUNC_LINEFORMAT_LONG_I2; -if(!qbevent)break;evnt(20415);}while(r); -} -fornext_continue_2982:; -} -fornext_exit_2982:; -S_24007:; -if ((*_FUNC_LINEFORMAT_LONG_P2)||new_error){ -if(qbevent){evnt(20417);if(r)goto S_24007;} -do{ -*_FUNC_LINEFORMAT_LONG_N2=*_FUNC_LINEFORMAT_LONG_P2-*_FUNC_LINEFORMAT_LONG_I+ 1 ; -if(!qbevent)break;evnt(20419);}while(r); -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_A3,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I,*_FUNC_LINEFORMAT_LONG_N2,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20420);}while(r); -S_24010:; -if ((-(*_FUNC_LINEFORMAT_LONG_N2== 3 ))||new_error){ -if(qbevent){evnt(20423);if(r)goto S_24010;} -S_24011:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_A3,qbs_new_txt_len("REM",3))))||new_error){ -if(qbevent){evnt(20424);if(r)goto S_24011;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+*_FUNC_LINEFORMAT_LONG_N2; -if(!qbevent)break;evnt(20425);}while(r); -S_24013:; -if ((-(*_FUNC_LINEFORMAT_LONG_I<*_FUNC_LINEFORMAT_LONG_N))||new_error){ -if(qbevent){evnt(20426);if(r)goto S_24013;} -do{ -*_FUNC_LINEFORMAT_LONG_C=qbs_asc(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20427);}while(r); -S_24015:; -if ((-(*_FUNC_LINEFORMAT_LONG_C== 46 ))||new_error){ -if(qbevent){evnt(20428);if(r)goto S_24015;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),func_mid(_FUNC_LINEFORMAT_STRING_CA,*_FUNC_LINEFORMAT_LONG_I-*_FUNC_LINEFORMAT_LONG_N2,*_FUNC_LINEFORMAT_LONG_N2,0|1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20428);}while(r); -do{ -goto LABEL_EXTCHECK; -if(!qbevent)break;evnt(20428);}while(r); -} -} -S_24020:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal((qbs_ucase(qbs_right(_FUNC_LINEFORMAT_STRING_A2, 5 ))),(qbs_add(__STRING1_SP,qbs_new_txt_len("THEN",4))))))||new_error){ -if(qbevent){evnt(20432);if(r)goto S_24020;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),qbs_new_txt_len("'",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20432);}while(r); -} -do{ -qbs_set(__STRING_LAYOUTCOMMENT,FUNC_SCASE(qbs_new_txt_len("Rem",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20433);}while(r); -do{ -goto LABEL_COMMENT; -if(!qbevent)break;evnt(20434);}while(r); -} -} -S_24027:; -if ((-(*_FUNC_LINEFORMAT_LONG_N2== 4 ))||new_error){ -if(qbevent){evnt(20439);if(r)goto S_24027;} -S_24028:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_A3,qbs_new_txt_len("DATA",4))))||new_error){ -if(qbevent){evnt(20440);if(r)goto S_24028;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_X,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20441);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+*_FUNC_LINEFORMAT_LONG_N2; -if(!qbevent)break;evnt(20442);}while(r); -S_24031:; -if ((-(*_FUNC_LINEFORMAT_LONG_I<*_FUNC_LINEFORMAT_LONG_N))||new_error){ -if(qbevent){evnt(20443);if(r)goto S_24031;} -do{ -*_FUNC_LINEFORMAT_LONG_C=qbs_asc(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20444);}while(r); -S_24033:; -if ((-(*_FUNC_LINEFORMAT_LONG_C== 46 ))||new_error){ -if(qbevent){evnt(20445);if(r)goto S_24033;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),func_mid(_FUNC_LINEFORMAT_STRING_CA,*_FUNC_LINEFORMAT_LONG_I-*_FUNC_LINEFORMAT_LONG_N2,*_FUNC_LINEFORMAT_LONG_N2,0|1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20445);}while(r); -do{ -goto LABEL_EXTCHECK; -if(!qbevent)break;evnt(20445);}while(r); -} -} -do{ -*_FUNC_LINEFORMAT_LONG_SCAN= 0 ; -if(!qbevent)break;evnt(20448);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_SPEECHMARKS= 0 ; -if(!qbevent)break;evnt(20449);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_COMMANEXT= 0 ; -if(!qbevent)break;evnt(20450);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_FINALDATA= 0 ; -if(!qbevent)break;evnt(20451);}while(r); -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20452);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_P1= 0 ; -if(!qbevent)break;evnt(20453);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_P2= 0 ; -if(!qbevent)break;evnt(20454);}while(r); -LABEL_NEXTDATACHR:; -if(qbevent){evnt(20455);r=0;} -S_24045:; -if ((-(*_FUNC_LINEFORMAT_LONG_I<*_FUNC_LINEFORMAT_LONG_N))||new_error){ -if(qbevent){evnt(20456);if(r)goto S_24045;} -do{ -*_FUNC_LINEFORMAT_LONG_C=qbs_asc(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20457);}while(r); -S_24047:; -if (((-(*_FUNC_LINEFORMAT_LONG_C== 9 ))|(-(*_FUNC_LINEFORMAT_LONG_C== 32 )))||new_error){ -if(qbevent){evnt(20458);if(r)goto S_24047;} -S_24048:; -if ((-(*_FUNC_LINEFORMAT_LONG_SCAN== 0 ))||new_error){ -if(qbevent){evnt(20459);if(r)goto S_24048;} -do{ -goto LABEL_SKIPWHITESPACE; -if(!qbevent)break;evnt(20459);}while(r); -} -} -S_24052:; -if ((-(*_FUNC_LINEFORMAT_LONG_C== 58 ))||new_error){ -if(qbevent){evnt(20462);if(r)goto S_24052;} -S_24053:; -if ((-(*_FUNC_LINEFORMAT_LONG_SPEECHMARKS== 0 ))||new_error){ -if(qbevent){evnt(20463);if(r)goto S_24053;} -do{ -*_FUNC_LINEFORMAT_LONG_FINALDATA= 1 ; -if(!qbevent)break;evnt(20463);}while(r); -do{ -goto LABEL_ADDDATA; -if(!qbevent)break;evnt(20463);}while(r); -} -} -S_24058:; -if ((-(*_FUNC_LINEFORMAT_LONG_C== 44 ))||new_error){ -if(qbevent){evnt(20466);if(r)goto S_24058;} -S_24059:; -if ((-(*_FUNC_LINEFORMAT_LONG_SPEECHMARKS== 0 ))||new_error){ -if(qbevent){evnt(20467);if(r)goto S_24059;} -LABEL_ADDDATA:; -if(qbevent){evnt(20468);r=0;} -S_24060:; -if ((-(*__LONG_PREPASS== 0 ))||new_error){ -if(qbevent){evnt(20469);if(r)goto S_24060;} -S_24061:; -if ((*_FUNC_LINEFORMAT_LONG_P1)||new_error){ -if(qbevent){evnt(20470);if(r)goto S_24061;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_X,qbs_add(_FUNC_LINEFORMAT_STRING_X,func_mid(_FUNC_LINEFORMAT_STRING_CA,*_FUNC_LINEFORMAT_LONG_P1,*_FUNC_LINEFORMAT_LONG_P2-*_FUNC_LINEFORMAT_LONG_P1+ 1 ,0|1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20474);}while(r); -} -S_24064:; -if ((*_FUNC_LINEFORMAT_LONG_SPEECHMARKS)||new_error){ -if(qbevent){evnt(20477);if(r)goto S_24064;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_X,qbs_add(_FUNC_LINEFORMAT_STRING_X,func_chr( 34 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20479);}while(r); -} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_X,qbs_add(_FUNC_LINEFORMAT_STRING_X,func_chr( 44 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20483);}while(r); -} -S_24069:; -if ((-(*_FUNC_LINEFORMAT_LONG_FINALDATA== 1 ))||new_error){ -if(qbevent){evnt(20485);if(r)goto S_24069;} -do{ -goto LABEL_FINISHEDDATA; -if(!qbevent)break;evnt(20485);}while(r); -} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20486);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_P1= 0 ; -if(!qbevent)break;evnt(20487);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_P2= 0 ; -if(!qbevent)break;evnt(20488);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_SPEECHMARKS= 0 ; -if(!qbevent)break;evnt(20489);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_SCAN= 0 ; -if(!qbevent)break;evnt(20490);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_COMMANEXT= 0 ; -if(!qbevent)break;evnt(20491);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; -if(!qbevent)break;evnt(20492);}while(r); -do{ -goto LABEL_NEXTDATACHR; -if(!qbevent)break;evnt(20493);}while(r); -} -} -S_24082:; -if ((-(*_FUNC_LINEFORMAT_LONG_COMMANEXT== 1 ))||new_error){ -if(qbevent){evnt(20497);if(r)goto S_24082;} -S_24083:; -if (((-(*_FUNC_LINEFORMAT_LONG_C!= 32 ))&(-(*_FUNC_LINEFORMAT_LONG_C!= 9 )))||new_error){ -if(qbevent){evnt(20498);if(r)goto S_24083;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected , after quoted string in DATA statement",48)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20498);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20498);}while(r); -} -} -S_24088:; -if ((-(*_FUNC_LINEFORMAT_LONG_C== 34 ))||new_error){ -if(qbevent){evnt(20501);if(r)goto S_24088;} -S_24089:; -if ((-(*_FUNC_LINEFORMAT_LONG_SPEECHMARKS== 1 ))||new_error){ -if(qbevent){evnt(20502);if(r)goto S_24089;} -do{ -*_FUNC_LINEFORMAT_LONG_COMMANEXT= 1 ; -if(!qbevent)break;evnt(20503);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_SPEECHMARKS= 0 ; -if(!qbevent)break;evnt(20504);}while(r); -} -S_24093:; -if ((-(*_FUNC_LINEFORMAT_LONG_SCAN== 0 ))||new_error){ -if(qbevent){evnt(20506);if(r)goto S_24093;} -do{ -*_FUNC_LINEFORMAT_LONG_SPEECHMARKS= 1 ; -if(!qbevent)break;evnt(20506);}while(r); -} -} -do{ -*_FUNC_LINEFORMAT_LONG_SCAN= 1 ; -if(!qbevent)break;evnt(20509);}while(r); -S_24098:; -if ((-(*_FUNC_LINEFORMAT_LONG_P1== 0 ))||new_error){ -if(qbevent){evnt(20511);if(r)goto S_24098;} -do{ -*_FUNC_LINEFORMAT_LONG_P1=*_FUNC_LINEFORMAT_LONG_I; -if(!qbevent)break;evnt(20511);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_P2=*_FUNC_LINEFORMAT_LONG_I; -if(!qbevent)break;evnt(20511);}while(r); -} -S_24102:; -if (((-(*_FUNC_LINEFORMAT_LONG_C!= 9 ))&(-(*_FUNC_LINEFORMAT_LONG_C!= 32 )))||new_error){ -if(qbevent){evnt(20512);if(r)goto S_24102;} -do{ -*_FUNC_LINEFORMAT_LONG_P2=*_FUNC_LINEFORMAT_LONG_I; -if(!qbevent)break;evnt(20512);}while(r); -} -LABEL_SKIPWHITESPACE:; -if(qbevent){evnt(20514);r=0;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; -if(!qbevent)break;evnt(20515);}while(r); -do{ -goto LABEL_NEXTDATACHR; -if(!qbevent)break;evnt(20515);}while(r); -} -do{ -*_FUNC_LINEFORMAT_LONG_FINALDATA= 1 ; -if(!qbevent)break;evnt(20517);}while(r); -do{ -goto LABEL_ADDDATA; -if(!qbevent)break;evnt(20517);}while(r); -LABEL_FINISHEDDATA:; -if(qbevent){evnt(20518);r=0;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20519);}while(r); -S_24111:; -if ((-(*__LONG_PREPASS== 0 ))||new_error){ -if(qbevent){evnt(20520);if(r)goto S_24111;} -do{ -SUB_WRITEBUFRAWDATA(&(pass2984=*__LONG_DATABINBUF),_FUNC_LINEFORMAT_STRING_X); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20521);}while(r); -do{ -*__LONG_DATAOFFSET=*__LONG_DATAOFFSET+_FUNC_LINEFORMAT_STRING_X->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20522);}while(r); -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E,func_space((_FUNC_LINEFORMAT_STRING_X->len- 1 )* 2 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20524);}while(r); -S_24115:; -fornext_value2988= 1 ; -fornext_finalvalue2988=_FUNC_LINEFORMAT_STRING_X->len- 1 ; -fornext_step2988= 1 ; -if (fornext_step2988<0) fornext_step_negative2988=1; else fornext_step_negative2988=0; -if (new_error) goto fornext_error2988; -goto fornext_entrylabel2988; -while(1){ -fornext_value2988=fornext_step2988+(*_FUNC_LINEFORMAT_LONG_EC); -fornext_entrylabel2988: -*_FUNC_LINEFORMAT_LONG_EC=fornext_value2988; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative2988){ -if (fornext_value2988fornext_finalvalue2988) break; -} -fornext_error2988:; -if(qbevent){evnt(20525);if(r)goto S_24115;} -do{ -*_FUNC_LINEFORMAT_LONG_V1=qbs_asc(_FUNC_LINEFORMAT_STRING_X,*_FUNC_LINEFORMAT_LONG_EC); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20527);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_V2=*_FUNC_LINEFORMAT_LONG_V1/ 16 ; -if(!qbevent)break;evnt(20528);}while(r); -S_24118:; -if ((-(*_FUNC_LINEFORMAT_LONG_V2<= 9 ))||new_error){ -if(qbevent){evnt(20528);if(r)goto S_24118;} -do{ -*_FUNC_LINEFORMAT_LONG_V2=*_FUNC_LINEFORMAT_LONG_V2+ 48 ; -if(!qbevent)break;evnt(20528);}while(r); -}else{ -do{ -*_FUNC_LINEFORMAT_LONG_V2=*_FUNC_LINEFORMAT_LONG_V2+ 55 ; -if(!qbevent)break;evnt(20528);}while(r); -} -do{ -*_FUNC_LINEFORMAT_LONG_V1=*_FUNC_LINEFORMAT_LONG_V1& 15 ; -if(!qbevent)break;evnt(20529);}while(r); -S_24124:; -if ((-(*_FUNC_LINEFORMAT_LONG_V1<= 9 ))||new_error){ -if(qbevent){evnt(20529);if(r)goto S_24124;} -do{ -*_FUNC_LINEFORMAT_LONG_V1=*_FUNC_LINEFORMAT_LONG_V1+ 48 ; -if(!qbevent)break;evnt(20529);}while(r); -}else{ -do{ -*_FUNC_LINEFORMAT_LONG_V1=*_FUNC_LINEFORMAT_LONG_V1+ 55 ; -if(!qbevent)break;evnt(20529);}while(r); -} -do{ -tqbs=_FUNC_LINEFORMAT_STRING_E; if (!new_error){ -tmp_fileno=(*_FUNC_LINEFORMAT_LONG_EC* 2 )-( 1 ); if (!new_error){ -tmp_long=*_FUNC_LINEFORMAT_LONG_V1; if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(20530);}while(r); -do{ -tqbs=_FUNC_LINEFORMAT_STRING_E; if (!new_error){ -tmp_fileno=*_FUNC_LINEFORMAT_LONG_EC* 2 ; if (!new_error){ -tmp_long=*_FUNC_LINEFORMAT_LONG_V2; if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(20531);}while(r); -fornext_continue_2987:; -} -fornext_exit_2987:; -} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),qbs_new_txt_len("DATA",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20536);}while(r); -S_24134:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_LINEFORMAT_STRING_E->len))||new_error){ -if(qbevent){evnt(20536);if(r)goto S_24134;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),qbs_new_txt_len("_",1)),_FUNC_LINEFORMAT_STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20536);}while(r); -} -do{ -goto LABEL_LINEFORMATNEXT; -if(!qbevent)break;evnt(20537);}while(r); -} -} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),func_mid(_FUNC_LINEFORMAT_STRING_CA,*_FUNC_LINEFORMAT_LONG_I,*_FUNC_LINEFORMAT_LONG_N2,0|1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20541);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+*_FUNC_LINEFORMAT_LONG_N2; -if(!qbevent)break;evnt(20542);}while(r); -LABEL_EXTCHECK:; -if(qbevent){evnt(20545);r=0;} -S_24142:; -if ((-(*_FUNC_LINEFORMAT_LONG_N2> 40 ))||new_error){ -if(qbevent){evnt(20546);if(r)goto S_24142;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Identifier longer than 40 character limit",41)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20546);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20546);}while(r); -} -do{ -*_FUNC_LINEFORMAT_LONG_C3=qbs_asc(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20547);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_M= 0 ; -if(!qbevent)break;evnt(20548);}while(r); -S_24148:; -if ((-(*_FUNC_LINEFORMAT_LONG_C3== 126 ))||new_error){ -if(qbevent){evnt(20549);if(r)goto S_24148;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E2,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I+ 1 , 2 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20550);}while(r); -S_24150:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("&&",2))))||new_error){ -if(qbevent){evnt(20551);if(r)goto S_24150;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("~&&",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20551);}while(r); -do{ -goto LABEL_LFGETVE; -if(!qbevent)break;evnt(20551);}while(r); -} -S_24154:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("%%",2))))||new_error){ -if(qbevent){evnt(20552);if(r)goto S_24154;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("~%%",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20552);}while(r); -do{ -goto LABEL_LFGETVE; -if(!qbevent)break;evnt(20552);}while(r); -} -S_24158:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("%&",2))))||new_error){ -if(qbevent){evnt(20553);if(r)goto S_24158;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("~%&",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20553);}while(r); -do{ -goto LABEL_LFGETVE; -if(!qbevent)break;evnt(20553);}while(r); -} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E2,func_chr(qbs_asc(_FUNC_LINEFORMAT_STRING_E2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20554);}while(r); -S_24163:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("&",1))))||new_error){ -if(qbevent){evnt(20555);if(r)goto S_24163;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("~&",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20555);}while(r); -do{ -goto LABEL_LFGETVE; -if(!qbevent)break;evnt(20555);}while(r); -} -S_24167:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("%",1))))||new_error){ -if(qbevent){evnt(20556);if(r)goto S_24167;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("~%",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20556);}while(r); -do{ -goto LABEL_LFGETVE; -if(!qbevent)break;evnt(20556);}while(r); -} -S_24171:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("`",1))))||new_error){ -if(qbevent){evnt(20557);if(r)goto S_24171;} -do{ -*_FUNC_LINEFORMAT_LONG_M= 1 ; -if(!qbevent)break;evnt(20557);}while(r); -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("~`",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20557);}while(r); -do{ -goto LABEL_LFGETVE; -if(!qbevent)break;evnt(20557);}while(r); -} -} -S_24177:; -if ((-(*_FUNC_LINEFORMAT_LONG_C3== 37 ))||new_error){ -if(qbevent){evnt(20559);if(r)goto S_24177;} -do{ -*_FUNC_LINEFORMAT_LONG_C4=qbs_asc(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I+ 1 ); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20560);}while(r); -S_24179:; -if ((-(*_FUNC_LINEFORMAT_LONG_C4== 37 ))||new_error){ -if(qbevent){evnt(20561);if(r)goto S_24179;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("%%",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20561);}while(r); -do{ -goto LABEL_LFGETVE; -if(!qbevent)break;evnt(20561);}while(r); -} -S_24183:; -if ((-(*_FUNC_LINEFORMAT_LONG_C4== 38 ))||new_error){ -if(qbevent){evnt(20562);if(r)goto S_24183;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("%&",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20562);}while(r); -do{ -goto LABEL_LFGETVE; -if(!qbevent)break;evnt(20562);}while(r); -} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("%",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20563);}while(r); -do{ -goto LABEL_LFGETVE; -if(!qbevent)break;evnt(20563);}while(r); -} -S_24190:; -if ((-(*_FUNC_LINEFORMAT_LONG_C3== 38 ))||new_error){ -if(qbevent){evnt(20565);if(r)goto S_24190;} -do{ -*_FUNC_LINEFORMAT_LONG_C4=qbs_asc(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I+ 1 ); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20566);}while(r); -S_24192:; -if ((-(*_FUNC_LINEFORMAT_LONG_C4== 38 ))||new_error){ -if(qbevent){evnt(20567);if(r)goto S_24192;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("&&",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20567);}while(r); -do{ -goto LABEL_LFGETVE; -if(!qbevent)break;evnt(20567);}while(r); -} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("&",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20568);}while(r); -do{ -goto LABEL_LFGETVE; -if(!qbevent)break;evnt(20568);}while(r); -} -S_24199:; -if ((-(*_FUNC_LINEFORMAT_LONG_C3== 33 ))||new_error){ -if(qbevent){evnt(20570);if(r)goto S_24199;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("!",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20570);}while(r); -do{ -goto LABEL_LFGETVE; -if(!qbevent)break;evnt(20570);}while(r); -} -S_24203:; -if ((-(*_FUNC_LINEFORMAT_LONG_C3== 35 ))||new_error){ -if(qbevent){evnt(20571);if(r)goto S_24203;} -do{ -*_FUNC_LINEFORMAT_LONG_C4=qbs_asc(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I+ 1 ); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20572);}while(r); -S_24205:; -if ((-(*_FUNC_LINEFORMAT_LONG_C4== 35 ))||new_error){ -if(qbevent){evnt(20573);if(r)goto S_24205;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("##",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20573);}while(r); -do{ -goto LABEL_LFGETVE; -if(!qbevent)break;evnt(20573);}while(r); -} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("#",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20574);}while(r); -do{ -goto LABEL_LFGETVE; -if(!qbevent)break;evnt(20574);}while(r); -} -S_24212:; -if ((-(*_FUNC_LINEFORMAT_LONG_C3== 36 ))||new_error){ -if(qbevent){evnt(20576);if(r)goto S_24212;} -do{ -*_FUNC_LINEFORMAT_LONG_M= 1 ; -if(!qbevent)break;evnt(20576);}while(r); -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20576);}while(r); -do{ -goto LABEL_LFGETVE; -if(!qbevent)break;evnt(20576);}while(r); -} -S_24217:; -if ((-(*_FUNC_LINEFORMAT_LONG_C3== 96 ))||new_error){ -if(qbevent){evnt(20577);if(r)goto S_24217;} -do{ -*_FUNC_LINEFORMAT_LONG_M= 1 ; -if(!qbevent)break;evnt(20577);}while(r); -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("`",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20577);}while(r); -do{ -goto LABEL_LFGETVE; -if(!qbevent)break;evnt(20577);}while(r); -} -S_24222:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I)== 46 )))||new_error){ -if(qbevent){evnt(20581);if(r)goto S_24222;} -do{ -*_FUNC_LINEFORMAT_LONG_C2=qbs_asc(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I+ 1 ); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20582);}while(r); -S_24224:; -if (((-(*_FUNC_LINEFORMAT_LONG_C2>= 48 ))&(-(*_FUNC_LINEFORMAT_LONG_C2<= 57 )))||new_error){ -if(qbevent){evnt(20583);if(r)goto S_24224;} -do{ -*_FUNC_LINEFORMAT_LONG_P2=*_FUNC_LINEFORMAT_LONG_I+ 1 ; -if(!qbevent)break;evnt(20585);}while(r); -S_24226:; -fornext_value2992=*_FUNC_LINEFORMAT_LONG_I+ 2 ; -fornext_finalvalue2992=*_FUNC_LINEFORMAT_LONG_N; -fornext_step2992= 1 ; -if (fornext_step2992<0) fornext_step_negative2992=1; else fornext_step_negative2992=0; -if (new_error) goto fornext_error2992; -goto fornext_entrylabel2992; -while(1){ -fornext_value2992=fornext_step2992+(*_FUNC_LINEFORMAT_LONG_I2); -fornext_entrylabel2992: -*_FUNC_LINEFORMAT_LONG_I2=fornext_value2992; -if (fornext_step_negative2992){ -if (fornext_value2992fornext_finalvalue2992) break; -} -fornext_error2992:; -if(qbevent){evnt(20586);if(r)goto S_24226;} -do{ -*_FUNC_LINEFORMAT_LONG_C=qbs_asc(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20587);}while(r); -S_24228:; -if ((~(((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((*_FUNC_LINEFORMAT_LONG_C)-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]))||new_error){ -if(qbevent){evnt(20589);if(r)goto S_24228;} -do{ -goto fornext_exit_2991; -if(!qbevent)break;evnt(20589);}while(r); -} -S_24231:; -if ((-(*_FUNC_LINEFORMAT_LONG_C!= 95 ))||new_error){ -if(qbevent){evnt(20590);if(r)goto S_24231;} -do{ -*_FUNC_LINEFORMAT_LONG_P2=*_FUNC_LINEFORMAT_LONG_I2; -if(!qbevent)break;evnt(20590);}while(r); -} -fornext_continue_2991:; -} -fornext_exit_2991:; -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),qbs_new_txt_len(".",1)),__STRING1_SP),func_mid(_FUNC_LINEFORMAT_STRING_CA,*_FUNC_LINEFORMAT_LONG_I+ 1 ,*_FUNC_LINEFORMAT_LONG_P2-(*_FUNC_LINEFORMAT_LONG_I+ 1 )+ 1 ,0|1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20592);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_N2=*_FUNC_LINEFORMAT_LONG_N2+ 1 +(*_FUNC_LINEFORMAT_LONG_P2-(*_FUNC_LINEFORMAT_LONG_I+ 1 )+ 1 ); -if(!qbevent)break;evnt(20593);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_P2+ 1 ; -if(!qbevent)break;evnt(20594);}while(r); -do{ -goto LABEL_EXTCHECK; -if(!qbevent)break;evnt(20595);}while(r); -} -} -do{ -goto LABEL_LINEFORMATNEXT; -if(!qbevent)break;evnt(20599);}while(r); -LABEL_LFGETVE:; -if(qbevent){evnt(20601);r=0;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+_FUNC_LINEFORMAT_STRING_E2->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20602);}while(r); -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(_FUNC_LINEFORMAT_STRING_A2,_FUNC_LINEFORMAT_STRING_E2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20603);}while(r); -S_24244:; -if ((*_FUNC_LINEFORMAT_LONG_M)||new_error){ -if(qbevent){evnt(20604);if(r)goto S_24244;} -LABEL_LFGETVD:; -if(qbevent){evnt(20605);r=0;} -S_24245:; -if ((-(*_FUNC_LINEFORMAT_LONG_I<*_FUNC_LINEFORMAT_LONG_N))||new_error){ -if(qbevent){evnt(20606);if(r)goto S_24245;} -do{ -*_FUNC_LINEFORMAT_LONG_C=qbs_asc(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20607);}while(r); -S_24247:; -if (((-(*_FUNC_LINEFORMAT_LONG_C>= 48 ))&(-(*_FUNC_LINEFORMAT_LONG_C<= 57 )))||new_error){ -if(qbevent){evnt(20608);if(r)goto S_24247;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(_FUNC_LINEFORMAT_STRING_A2,func_chr(*_FUNC_LINEFORMAT_LONG_C))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20608);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; -if(!qbevent)break;evnt(20608);}while(r); -do{ -goto LABEL_LFGETVD; -if(!qbevent)break;evnt(20608);}while(r); -} -} -} -do{ -goto LABEL_LINEFORMATNEXT; -if(!qbevent)break;evnt(20612);}while(r); -} -} -S_24257:; -if (((-(*_FUNC_LINEFORMAT_LONG_C== 32 ))|(-(*_FUNC_LINEFORMAT_LONG_C== 9 )))||new_error){ -if(qbevent){evnt(20619);if(r)goto S_24257;} -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; -if(!qbevent)break;evnt(20619);}while(r); -do{ -goto LABEL_LINEFORMATNEXT; -if(!qbevent)break;evnt(20619);}while(r); -} -S_24261:; -if ((((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[array_check((*_FUNC_LINEFORMAT_LONG_C)-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5])])||new_error){ -if(qbevent){evnt(20623);if(r)goto S_24261;} -S_24262:; -if (((-(*_FUNC_LINEFORMAT_LONG_C== 60 ))|(-(*_FUNC_LINEFORMAT_LONG_C== 61 ))|(-(*_FUNC_LINEFORMAT_LONG_C== 62 )))||new_error){ -if(qbevent){evnt(20624);if(r)goto S_24262;} -do{ -*_FUNC_LINEFORMAT_LONG_COUNT= 0 ; -if(!qbevent)break;evnt(20625);}while(r); -S_24264:; -do{ -if(qbevent){evnt(20626);if(r)goto S_24264;} -do{ -*_FUNC_LINEFORMAT_LONG_COUNT=*_FUNC_LINEFORMAT_LONG_COUNT+ 1 ; -if(!qbevent)break;evnt(20627);}while(r); -S_24266:; -if ((qbs_cleanup(qbs_tmp_base,-((*_FUNC_LINEFORMAT_LONG_I+*_FUNC_LINEFORMAT_LONG_COUNT)>=(_FUNC_LINEFORMAT_STRING_A->len- 2 ))))||new_error){ -if(qbevent){evnt(20628);if(r)goto S_24266;} -do{ -goto dl_exit_2994; -if(!qbevent)break;evnt(20628);}while(r); -} -S_24269:; -dl_continue_2994:; -}while((!(qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I+*_FUNC_LINEFORMAT_LONG_COUNT)!= 32 ))))&&(!new_error)); -dl_exit_2994:; -if(qbevent){evnt(20629);if(r)goto S_24269;} -do{ -*_FUNC_LINEFORMAT_LONG_C2=qbs_asc(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I+*_FUNC_LINEFORMAT_LONG_COUNT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20630);}while(r); -S_24271:; -if ((-(*_FUNC_LINEFORMAT_LONG_C== 60 ))||new_error){ -if(qbevent){evnt(20631);if(r)goto S_24271;} -S_24272:; -if ((-(*_FUNC_LINEFORMAT_LONG_C2== 61 ))||new_error){ -if(qbevent){evnt(20632);if(r)goto S_24272;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),qbs_new_txt_len("<=",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20632);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+*_FUNC_LINEFORMAT_LONG_COUNT+ 1 ; -if(!qbevent)break;evnt(20632);}while(r); -do{ -goto LABEL_LINEFORMATNEXT; -if(!qbevent)break;evnt(20632);}while(r); -} -S_24277:; -if ((-(*_FUNC_LINEFORMAT_LONG_C2== 62 ))||new_error){ -if(qbevent){evnt(20633);if(r)goto S_24277;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),qbs_new_txt_len("<>",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20633);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+*_FUNC_LINEFORMAT_LONG_COUNT+ 1 ; -if(!qbevent)break;evnt(20633);}while(r); -do{ -goto LABEL_LINEFORMATNEXT; -if(!qbevent)break;evnt(20633);}while(r); -} -S_24282:; -}else{ -if (-(*_FUNC_LINEFORMAT_LONG_C== 62 )){ -if(qbevent){evnt(20634);if(r)goto S_24282;} -S_24283:; -if ((-(*_FUNC_LINEFORMAT_LONG_C2== 61 ))||new_error){ -if(qbevent){evnt(20635);if(r)goto S_24283;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),qbs_new_txt_len(">=",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20635);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+*_FUNC_LINEFORMAT_LONG_COUNT+ 1 ; -if(!qbevent)break;evnt(20635);}while(r); -do{ -goto LABEL_LINEFORMATNEXT; -if(!qbevent)break;evnt(20635);}while(r); -} -S_24288:; -if ((-(*_FUNC_LINEFORMAT_LONG_C2== 60 ))||new_error){ -if(qbevent){evnt(20636);if(r)goto S_24288;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),qbs_new_txt_len("<>",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20636);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+*_FUNC_LINEFORMAT_LONG_COUNT+ 1 ; -if(!qbevent)break;evnt(20636);}while(r); -do{ -goto LABEL_LINEFORMATNEXT; -if(!qbevent)break;evnt(20636);}while(r); -} -S_24293:; -}else{ -if (-(*_FUNC_LINEFORMAT_LONG_C== 61 )){ -if(qbevent){evnt(20637);if(r)goto S_24293;} -S_24294:; -if ((-(*_FUNC_LINEFORMAT_LONG_C2== 62 ))||new_error){ -if(qbevent){evnt(20638);if(r)goto S_24294;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),qbs_new_txt_len(">=",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20638);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+*_FUNC_LINEFORMAT_LONG_COUNT+ 1 ; -if(!qbevent)break;evnt(20638);}while(r); -do{ -goto LABEL_LINEFORMATNEXT; -if(!qbevent)break;evnt(20638);}while(r); -} -S_24299:; -if ((-(*_FUNC_LINEFORMAT_LONG_C2== 60 ))||new_error){ -if(qbevent){evnt(20639);if(r)goto S_24299;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),qbs_new_txt_len("<=",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20639);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+*_FUNC_LINEFORMAT_LONG_COUNT+ 1 ; -if(!qbevent)break;evnt(20639);}while(r); -do{ -goto LABEL_LINEFORMATNEXT; -if(!qbevent)break;evnt(20639);}while(r); -} -} -} -} -} -S_24306:; -if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_LINEFORMAT_LONG_C== 36 ))&(_FUNC_LINEFORMAT_STRING_A2->len)))||new_error){ -if(qbevent){evnt(20643);if(r)goto S_24306;} -do{ -goto LABEL_BADUSAGE; -if(!qbevent)break;evnt(20643);}while(r); -} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),func_chr(*_FUNC_LINEFORMAT_LONG_C))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20646);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; -if(!qbevent)break;evnt(20647);}while(r); -do{ -goto LABEL_LINEFORMATNEXT; -if(!qbevent)break;evnt(20648);}while(r); -} -LABEL_BADUSAGE:; -if(qbevent){evnt(20650);r=0;} -S_24313:; -if ((-(*_FUNC_LINEFORMAT_LONG_C!= 39 ))||new_error){ -if(qbevent){evnt(20652);if(r)goto S_24313;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Unexpected character on line",28)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20652);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20652);}while(r); -} -do{ -qbs_set(__STRING_LAYOUTCOMMENT,qbs_new_txt_len("'",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20655);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; -if(!qbevent)break;evnt(20656);}while(r); -LABEL_COMMENT:; -if(qbevent){evnt(20657);r=0;} -S_24319:; -if ((-(*_FUNC_LINEFORMAT_LONG_I>=*_FUNC_LINEFORMAT_LONG_N))||new_error){ -if(qbevent){evnt(20658);if(r)goto S_24319;} -do{ -goto LABEL_LINEFORMATDONE2; -if(!qbevent)break;evnt(20658);}while(r); -} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_C,qbs_right(_FUNC_LINEFORMAT_STRING_A,_FUNC_LINEFORMAT_STRING_A->len-*_FUNC_LINEFORMAT_LONG_I+ 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20659);}while(r); -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_CC,qbs_right(_FUNC_LINEFORMAT_STRING_CA,_FUNC_LINEFORMAT_STRING_CA->len-*_FUNC_LINEFORMAT_LONG_I+ 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20660);}while(r); -S_24324:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_LINEFORMAT_STRING_C->len== 0 )))||new_error){ -if(qbevent){evnt(20661);if(r)goto S_24324;} -do{ -goto LABEL_LINEFORMATDONE2; -if(!qbevent)break;evnt(20661);}while(r); -} -do{ -qbs_set(__STRING_LAYOUTCOMMENT,qbs_rtrim(qbs_add(__STRING_LAYOUTCOMMENT,_FUNC_LINEFORMAT_STRING_CC))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20662);}while(r); -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_C,qbs_ltrim(_FUNC_LINEFORMAT_STRING_C)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20664);}while(r); -S_24329:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_LINEFORMAT_STRING_C->len== 0 )))||new_error){ -if(qbevent){evnt(20665);if(r)goto S_24329;} -do{ -goto LABEL_LINEFORMATDONE2; -if(!qbevent)break;evnt(20665);}while(r); -} -do{ -*_FUNC_LINEFORMAT_LONG_AC=qbs_asc(_FUNC_LINEFORMAT_STRING_C); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20666);}while(r); -S_24333:; -if ((-(*_FUNC_LINEFORMAT_LONG_AC!= 36 ))||new_error){ -if(qbevent){evnt(20671);if(r)goto S_24333;} -do{ -goto LABEL_LINEFORMATDONE2; -if(!qbevent)break;evnt(20671);}while(r); -} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_NOCASEC,qbs_ltrim(qbs_right(_FUNC_LINEFORMAT_STRING_CA,_FUNC_LINEFORMAT_STRING_CA->len-*_FUNC_LINEFORMAT_LONG_I+ 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20672);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_MEMMODE= 0 ; -if(!qbevent)break;evnt(20673);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_X= 1 ; -if(!qbevent)break;evnt(20674);}while(r); -S_24339:; -do{ -if(qbevent){evnt(20675);if(r)goto S_24339;} -S_24340:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_LINEFORMAT_STRING_C,*_FUNC_LINEFORMAT_LONG_X, 7 ,0|1),qbs_new_txt_len("$STATIC",7))))||new_error){ -if(qbevent){evnt(20682);if(r)goto S_24340;} -do{ -*_FUNC_LINEFORMAT_LONG_MEMMODE= 1 ; -if(!qbevent)break;evnt(20683);}while(r); -S_24342:; -}else{ -if (qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_LINEFORMAT_STRING_C,*_FUNC_LINEFORMAT_LONG_X, 8 ,0|1),qbs_new_txt_len("$DYNAMIC",8)))){ -if(qbevent){evnt(20684);if(r)goto S_24342;} -do{ -*_FUNC_LINEFORMAT_LONG_MEMMODE= 2 ; -if(!qbevent)break;evnt(20685);}while(r); -S_24344:; -}else{ -if (qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_LINEFORMAT_STRING_C,*_FUNC_LINEFORMAT_LONG_X, 8 ,0|1),qbs_new_txt_len("$INCLUDE",8)))){ -if(qbevent){evnt(20686);if(r)goto S_24344;} -S_24345:; -fornext_value3004=*_FUNC_LINEFORMAT_LONG_X+ 8 ; -fornext_finalvalue3004=_FUNC_LINEFORMAT_STRING_C->len; -fornext_step3004= 1 ; -if (fornext_step3004<0) fornext_step_negative3004=1; else fornext_step_negative3004=0; -if (new_error) goto fornext_error3004; -goto fornext_entrylabel3004; -while(1){ -fornext_value3004=fornext_step3004+(*_FUNC_LINEFORMAT_LONG_XX); -fornext_entrylabel3004: -*_FUNC_LINEFORMAT_LONG_XX=fornext_value3004; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative3004){ -if (fornext_value3004fornext_finalvalue3004) break; -} -fornext_error3004:; -if(qbevent){evnt(20689);if(r)goto S_24345;} -do{ -*_FUNC_LINEFORMAT_LONG_AC=qbs_asc(func_mid(_FUNC_LINEFORMAT_STRING_C,*_FUNC_LINEFORMAT_LONG_XX, 1 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20690);}while(r); -S_24347:; -if ((-(*_FUNC_LINEFORMAT_LONG_AC== 58 ))||new_error){ -if(qbevent){evnt(20691);if(r)goto S_24347;} -do{ -goto fornext_exit_3003; -if(!qbevent)break;evnt(20691);}while(r); -} -S_24350:; -if (((-(*_FUNC_LINEFORMAT_LONG_AC!= 32 ))&(-(*_FUNC_LINEFORMAT_LONG_AC!= 9 )))||new_error){ -if(qbevent){evnt(20692);if(r)goto S_24350;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected $INCLUDE:'filename'",28)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20692);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20692);}while(r); -} -fornext_continue_3003:; -} -fornext_exit_3003:; -do{ -*_FUNC_LINEFORMAT_LONG_X=*_FUNC_LINEFORMAT_LONG_XX; -if(!qbevent)break;evnt(20694);}while(r); -S_24356:; -fornext_value3007=*_FUNC_LINEFORMAT_LONG_X+ 1 ; -fornext_finalvalue3007=_FUNC_LINEFORMAT_STRING_C->len; -fornext_step3007= 1 ; -if (fornext_step3007<0) fornext_step_negative3007=1; else fornext_step_negative3007=0; -if (new_error) goto fornext_error3007; -goto fornext_entrylabel3007; -while(1){ -fornext_value3007=fornext_step3007+(*_FUNC_LINEFORMAT_LONG_XX); -fornext_entrylabel3007: -*_FUNC_LINEFORMAT_LONG_XX=fornext_value3007; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative3007){ -if (fornext_value3007fornext_finalvalue3007) break; -} -fornext_error3007:; -if(qbevent){evnt(20696);if(r)goto S_24356;} -do{ -*_FUNC_LINEFORMAT_LONG_AC=qbs_asc(func_mid(_FUNC_LINEFORMAT_STRING_C,*_FUNC_LINEFORMAT_LONG_XX, 1 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20697);}while(r); -S_24358:; -if ((-(*_FUNC_LINEFORMAT_LONG_AC== 39 ))||new_error){ -if(qbevent){evnt(20698);if(r)goto S_24358;} -do{ -goto fornext_exit_3006; -if(!qbevent)break;evnt(20698);}while(r); -} -S_24361:; -if (((-(*_FUNC_LINEFORMAT_LONG_AC!= 32 ))&(-(*_FUNC_LINEFORMAT_LONG_AC!= 9 )))||new_error){ -if(qbevent){evnt(20699);if(r)goto S_24361;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected $INCLUDE:'filename'",28)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20699);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20699);}while(r); -} -fornext_continue_3006:; -} -fornext_exit_3006:; -do{ -*_FUNC_LINEFORMAT_LONG_X=*_FUNC_LINEFORMAT_LONG_XX; -if(!qbevent)break;evnt(20701);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_XX=func_instr(*_FUNC_LINEFORMAT_LONG_X+ 1 ,_FUNC_LINEFORMAT_STRING_C,qbs_new_txt_len("'",1),0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20702);}while(r); -S_24368:; -if ((-(*_FUNC_LINEFORMAT_LONG_XX== 0 ))||new_error){ -if(qbevent){evnt(20703);if(r)goto S_24368;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected $INCLUDE:'filename'",28)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20703);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20703);}while(r); -} -do{ -qbs_set(__STRING_ADDMETAINCLUDE,func_mid(_FUNC_LINEFORMAT_STRING_NOCASEC,*_FUNC_LINEFORMAT_LONG_X+ 1 ,*_FUNC_LINEFORMAT_LONG_XX-*_FUNC_LINEFORMAT_LONG_X- 1 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20704);}while(r); -S_24373:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_ADDMETAINCLUDE,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(20705);if(r)goto S_24373;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected $INCLUDE:'filename'",28)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20705);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20705);}while(r); -} -} -} -} -do{ -*_FUNC_LINEFORMAT_LONG_X=func_instr(*_FUNC_LINEFORMAT_LONG_X+ 1 ,_FUNC_LINEFORMAT_STRING_C,qbs_new_txt_len("$",1),0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20708);}while(r); -S_24379:; -dl_continue_3002:; -}while((-(*_FUNC_LINEFORMAT_LONG_X!= 0 ))&&(!new_error)); -dl_exit_3002:; -if(qbevent){evnt(20709);if(r)goto S_24379;} -S_24380:; -if ((-(*_FUNC_LINEFORMAT_LONG_MEMMODE== 1 ))||new_error){ -if(qbevent){evnt(20711);if(r)goto S_24380;} -do{ -*__INTEGER_ADDMETASTATIC= 1 ; -if(!qbevent)break;evnt(20711);}while(r); -} -S_24383:; -if ((-(*_FUNC_LINEFORMAT_LONG_MEMMODE== 2 ))||new_error){ -if(qbevent){evnt(20712);if(r)goto S_24383;} -do{ -*__INTEGER_ADDMETADYNAMIC= 1 ; -if(!qbevent)break;evnt(20712);}while(r); -} -do{ -goto LABEL_LINEFORMATDONE2; -if(!qbevent)break;evnt(20714);}while(r); -LABEL_LINEFORMATDONE:; -if(qbevent){evnt(20718);r=0;} -S_24387:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_LINEFORMAT_STRING_A2->len))||new_error){ -if(qbevent){evnt(20722);if(r)goto S_24387;} -S_24388:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_FUNC_LINEFORMAT_STRING_A2, 1 ),qbs_new_txt_len("_",1))))||new_error){ -if(qbevent){evnt(20723);if(r)goto S_24388;} -do{ -*__LONG_LINECONTINUATION= 1 ; -if(!qbevent)break;evnt(20725);}while(r); -do{ -qbs_set(__STRING_LAYOUT,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20726);}while(r); -S_24391:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_LINEFORMAT_STRING_A2->len>= 2 )))||new_error){ -if(qbevent){evnt(20729);if(r)goto S_24391;} -S_24392:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal((qbs_right(_FUNC_LINEFORMAT_STRING_A2, 2 )),(qbs_add(__STRING1_SP,qbs_new_txt_len("_",1))))))||new_error){ -if(qbevent){evnt(20730);if(r)goto S_24392;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_left(_FUNC_LINEFORMAT_STRING_A2,_FUNC_LINEFORMAT_STRING_A2->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20730);}while(r); -} -} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_left(_FUNC_LINEFORMAT_STRING_A2,_FUNC_LINEFORMAT_STRING_A2->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20732);}while(r); -S_24397:; -if ((*__LONG_INCLEVEL)||new_error){ -if(qbevent){evnt(20734);if(r)goto S_24397;} -do{ -*_FUNC_LINEFORMAT_LONG_FH= 99 +*__LONG_INCLEVEL; -if(!qbevent)break;evnt(20735);}while(r); -S_24399:; -if ((func_eof(*_FUNC_LINEFORMAT_LONG_FH))||new_error){ -if(qbevent){evnt(20736);if(r)goto S_24399;} -do{ -goto LABEL_LINEFORMATDONE2; -if(!qbevent)break;evnt(20736);}while(r); -} -do{ -tmp_fileno=*_FUNC_LINEFORMAT_LONG_FH; -if (new_error) goto skip3013; -sub_file_line_input_string(tmp_fileno,_FUNC_LINEFORMAT_STRING_A); -if (new_error) goto skip3013; -skip3013: -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20737);}while(r); -do{ -tmp_long=array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5]); -if (!new_error) ((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(20738);}while(r); -do{ -goto LABEL_INCLUDECONT; -if(!qbevent)break;evnt(20739);}while(r); -} -S_24406:; -if ((*__LONG_IDEMODE)||new_error){ -if(qbevent){evnt(20742);if(r)goto S_24406;} -do{ -qbs_set(__STRING_IDECOMMAND,func_chr( 100 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20743);}while(r); -do{ -*_FUNC_LINEFORMAT_LONG_IGNORE=FUNC_IDE(&(pass3014= 0 )); -if(!qbevent)break;evnt(20744);}while(r); -do{ -*__LONG_IDEERROR= 0 ; -if(!qbevent)break;evnt(20745);}while(r); -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_A,__STRING_IDERETURN); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20746);}while(r); -S_24411:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_A,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(20747);if(r)goto S_24411;} -do{ -goto LABEL_LINEFORMATDONE2; -if(!qbevent)break;evnt(20747);}while(r); -} -}else{ -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_A,FUNC_LINEINPUT3()); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20749);}while(r); -S_24416:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_A,func_chr( 13 ))))||new_error){ -if(qbevent){evnt(20750);if(r)goto S_24416;} -do{ -goto LABEL_LINEFORMATDONE2; -if(!qbevent)break;evnt(20750);}while(r); -} -} -do{ -*__LONG_LINENUMBER=*__LONG_LINENUMBER+ 1 ; -if(!qbevent)break;evnt(20753);}while(r); -LABEL_INCLUDECONT:; -if(qbevent){evnt(20755);r=0;} -do{ -*_FUNC_LINEFORMAT_LONG_CONTLINE= 1 ; -if(!qbevent)break;evnt(20757);}while(r); -do{ -goto LABEL_CONTINUELINE; -if(!qbevent)break;evnt(20758);}while(r); -} -} -LABEL_LINEFORMATDONE2:; -if(qbevent){evnt(20762);r=0;} -S_24425:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_LINEFORMAT_STRING_A2, 1 ),__STRING1_SP)))||new_error){ -if(qbevent){evnt(20763);if(r)goto S_24425;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_right(_FUNC_LINEFORMAT_STRING_A2,_FUNC_LINEFORMAT_STRING_A2->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20763);}while(r); -} -S_24428:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_FUNC_LINEFORMAT_STRING_A2, 1 ),qbs_new_txt_len(":",1))))||new_error){ -if(qbevent){evnt(20766);if(r)goto S_24428;} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),qbs_new_txt_len("'",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20766);}while(r); -} -S_24431:; -if (( 0 )||new_error){ -if(qbevent){evnt(20768);if(r)goto S_24431;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip3016; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("lineformat():return:",20),_FUNC_LINEFORMAT_STRING_A2), 0, 0, 1); -if (new_error) goto skip3016; -skip3016: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(20768);}while(r); -} -S_24434:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(20769);if(r)goto S_24434;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20769);}while(r); -} -do{ -qbs_set(_FUNC_LINEFORMAT_STRING_LINEFORMAT,_FUNC_LINEFORMAT_STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20770);}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free30.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_LINEFORMAT_STRING_LINEFORMAT);return _FUNC_LINEFORMAT_STRING_LINEFORMAT; -} -void SUB_MAKEIDREFER(qbs*_SUB_MAKEIDREFER_STRING_REF,int32*_SUB_MAKEIDREFER_LONG_TYP){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data31.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -qbs_set(_SUB_MAKEIDREFER_STRING_REF,FUNC_STR2(__LONG_CURRENTID)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20776);}while(r); -do{ -*_SUB_MAKEIDREFER_LONG_TYP=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISREFERENCE; -if(!qbevent)break;evnt(20777);}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free31.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -int32 FUNC_OPERATORUSAGE(qbs*_FUNC_OPERATORUSAGE_STRING_OPERATOR,int32*_FUNC_OPERATORUSAGE_LONG_TYP,qbs*_FUNC_OPERATORUSAGE_STRING_INFO,int32*_FUNC_OPERATORUSAGE_LONG_LHS,int32*_FUNC_OPERATORUSAGE_LONG_RHS,int32*_FUNC_OPERATORUSAGE_LONG_RESULT){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data32.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -*_FUNC_OPERATORUSAGE_LONG_LHS= 7 ; -if(!qbevent)break;evnt(20781);}while(r); -do{ -*_FUNC_OPERATORUSAGE_LONG_RHS= 7 ; -if(!qbevent)break;evnt(20781);}while(r); -do{ -*_FUNC_OPERATORUSAGE_LONG_RESULT= 0 ; -if(!qbevent)break;evnt(20781);}while(r); -S_24443:; -if (((*_FUNC_OPERATORUSAGE_LONG_TYP&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(20797);if(r)goto S_24443;} -do{ -*_FUNC_OPERATORUSAGE_LONG_LHS= 4 ; -if(!qbevent)break;evnt(20798);}while(r); -do{ -*_FUNC_OPERATORUSAGE_LONG_RHS= 4 ; -if(!qbevent)break;evnt(20798);}while(r); -do{ -*_FUNC_OPERATORUSAGE_LONG_RESULT= 4 ; -if(!qbevent)break;evnt(20799);}while(r); -S_24447:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("+",1))))||new_error){ -if(qbevent){evnt(20800);if(r)goto S_24447;} -do{ -qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("qbs_add",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20800);}while(r); -do{ -*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 2 ; -if(!qbevent)break;evnt(20800);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20800);}while(r); -} -do{ -*_FUNC_OPERATORUSAGE_LONG_RESULT= 8 ; -if(!qbevent)break;evnt(20801);}while(r); -S_24453:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("=",1))))||new_error){ -if(qbevent){evnt(20802);if(r)goto S_24453;} -do{ -qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("qbs_equal",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20802);}while(r); -do{ -*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 2 ; -if(!qbevent)break;evnt(20802);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20802);}while(r); -} -S_24458:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("<>",2))))||new_error){ -if(qbevent){evnt(20803);if(r)goto S_24458;} -do{ -qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("qbs_notequal",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20803);}while(r); -do{ -*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 2 ; -if(!qbevent)break;evnt(20803);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20803);}while(r); -} -S_24463:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len(">",1))))||new_error){ -if(qbevent){evnt(20804);if(r)goto S_24463;} -do{ -qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("qbs_greaterthan",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20804);}while(r); -do{ -*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 2 ; -if(!qbevent)break;evnt(20804);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20804);}while(r); -} -S_24468:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("<",1))))||new_error){ -if(qbevent){evnt(20805);if(r)goto S_24468;} -do{ -qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("qbs_lessthan",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20805);}while(r); -do{ -*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 2 ; -if(!qbevent)break;evnt(20805);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20805);}while(r); -} -S_24473:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len(">=",2))))||new_error){ -if(qbevent){evnt(20806);if(r)goto S_24473;} -do{ -qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("qbs_greaterorequal",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20806);}while(r); -do{ -*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 2 ; -if(!qbevent)break;evnt(20806);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20806);}while(r); -} -S_24478:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("<=",2))))||new_error){ -if(qbevent){evnt(20807);if(r)goto S_24478;} -do{ -qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("qbs_lessorequal",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20807);}while(r); -do{ -*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 2 ; -if(!qbevent)break;evnt(20807);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20807);}while(r); -} -S_24483:; -if (( 0 )||new_error){ -if(qbevent){evnt(20808);if(r)goto S_24483;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip3020; -sub_file_print(tmp_fileno,qbs_new_txt_len("INVALID STRING OPERATOR!",24), 0, 0, 1); -if (new_error) goto skip3020; -skip3020: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(20808);}while(r); -do{ -sub_end(); -if(!qbevent)break;evnt(20808);}while(r); -} -} -do{ -*_FUNC_OPERATORUSAGE_LONG_LHS= 1 + 2 ; -if(!qbevent)break;evnt(20812);}while(r); -do{ -*_FUNC_OPERATORUSAGE_LONG_RHS= 1 + 2 ; -if(!qbevent)break;evnt(20812);}while(r); -S_24490:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("^",1))))||new_error){ -if(qbevent){evnt(20813);if(r)goto S_24490;} -do{ -*_FUNC_OPERATORUSAGE_LONG_RESULT= 2 ; -if(!qbevent)break;evnt(20813);}while(r); -do{ -qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("pow2",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20813);}while(r); -do{ -*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 2 ; -if(!qbevent)break;evnt(20813);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20813);}while(r); -} -S_24496:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,func_chr( 241 ))))||new_error){ -if(qbevent){evnt(20814);if(r)goto S_24496;} -do{ -qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("-",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20814);}while(r); -do{ -*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 5 ; -if(!qbevent)break;evnt(20814);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20814);}while(r); -} -S_24501:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("/",1))))||new_error){ -if(qbevent){evnt(20815);if(r)goto S_24501;} -do{ -qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("/ ",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20816);}while(r); -do{ -*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 1 ; -if(!qbevent)break;evnt(20816);}while(r); -S_24504:; -if (((*_FUNC_OPERATORUSAGE_LONG_TYP&*__LONG_ISFLOAT))||new_error){ -if(qbevent){evnt(20819);if(r)goto S_24504;} -do{ -*_FUNC_OPERATORUSAGE_LONG_LHS= 2 ; -if(!qbevent)break;evnt(20821);}while(r); -do{ -*_FUNC_OPERATORUSAGE_LONG_RHS= 1 + 2 ; -if(!qbevent)break;evnt(20822);}while(r); -}else{ -do{ -*_FUNC_OPERATORUSAGE_LONG_LHS= 1 + 2 ; -if(!qbevent)break;evnt(20825);}while(r); -do{ -*_FUNC_OPERATORUSAGE_LONG_RHS= 2 ; -if(!qbevent)break;evnt(20826);}while(r); -} -do{ -*_FUNC_OPERATORUSAGE_LONG_RESULT= 2 ; -if(!qbevent)break;evnt(20828);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20829);}while(r); -} -S_24514:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("*",1))))||new_error){ -if(qbevent){evnt(20831);if(r)goto S_24514;} -do{ -qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("*",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20831);}while(r); -do{ -*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 1 ; -if(!qbevent)break;evnt(20831);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20831);}while(r); -} -S_24519:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("+",1))))||new_error){ -if(qbevent){evnt(20832);if(r)goto S_24519;} -do{ -qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("+",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20832);}while(r); -do{ -*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 1 ; -if(!qbevent)break;evnt(20832);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20832);}while(r); -} -S_24524:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("-",1))))||new_error){ -if(qbevent){evnt(20833);if(r)goto S_24524;} -do{ -qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("-",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20833);}while(r); -do{ -*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 1 ; -if(!qbevent)break;evnt(20833);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20833);}while(r); -} -do{ -*_FUNC_OPERATORUSAGE_LONG_RESULT= 8 ; -if(!qbevent)break;evnt(20835);}while(r); -S_24530:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("=",1))))||new_error){ -if(qbevent){evnt(20836);if(r)goto S_24530;} -do{ -qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("==",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20836);}while(r); -do{ -*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 3 ; -if(!qbevent)break;evnt(20836);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20836);}while(r); -} -S_24535:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len(">",1))))||new_error){ -if(qbevent){evnt(20837);if(r)goto S_24535;} -do{ -qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len(">",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20837);}while(r); -do{ -*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 3 ; -if(!qbevent)break;evnt(20837);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20837);}while(r); -} -S_24540:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("<",1))))||new_error){ -if(qbevent){evnt(20838);if(r)goto S_24540;} -do{ -qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("<",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20838);}while(r); -do{ -*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 3 ; -if(!qbevent)break;evnt(20838);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20838);}while(r); -} -S_24545:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("<>",2))))||new_error){ -if(qbevent){evnt(20839);if(r)goto S_24545;} -do{ -qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("!=",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20839);}while(r); -do{ -*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 3 ; -if(!qbevent)break;evnt(20839);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20839);}while(r); -} -S_24550:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("<=",2))))||new_error){ -if(qbevent){evnt(20840);if(r)goto S_24550;} -do{ -qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("<=",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20840);}while(r); -do{ -*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 3 ; -if(!qbevent)break;evnt(20840);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20840);}while(r); -} -S_24555:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len(">=",2))))||new_error){ -if(qbevent){evnt(20841);if(r)goto S_24555;} -do{ -qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len(">=",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20841);}while(r); -do{ -*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 3 ; -if(!qbevent)break;evnt(20841);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20841);}while(r); -} -do{ -*_FUNC_OPERATORUSAGE_LONG_LHS= 1 ; -if(!qbevent)break;evnt(20843);}while(r); -do{ -*_FUNC_OPERATORUSAGE_LONG_RHS= 1 ; -if(!qbevent)break;evnt(20843);}while(r); -do{ -*_FUNC_OPERATORUSAGE_LONG_RESULT= 1 ; -if(!qbevent)break;evnt(20843);}while(r); -do{ -qbs_set(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_ucase(_FUNC_OPERATORUSAGE_STRING_OPERATOR)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20844);}while(r); -S_24564:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("MOD",3))))||new_error){ -if(qbevent){evnt(20845);if(r)goto S_24564;} -do{ -qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("%",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20845);}while(r); -do{ -*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 1 ; -if(!qbevent)break;evnt(20845);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20845);}while(r); -} -S_24569:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("\\",1))))||new_error){ -if(qbevent){evnt(20846);if(r)goto S_24569;} -do{ -qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("/ ",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20846);}while(r); -do{ -*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 1 ; -if(!qbevent)break;evnt(20846);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20846);}while(r); -} -S_24574:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("IMP",3))))||new_error){ -if(qbevent){evnt(20847);if(r)goto S_24574;} -do{ -qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("|",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20847);}while(r); -do{ -*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 4 ; -if(!qbevent)break;evnt(20847);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20847);}while(r); -} -S_24579:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("EQV",3))))||new_error){ -if(qbevent){evnt(20848);if(r)goto S_24579;} -do{ -qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("^",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20848);}while(r); -do{ -*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 4 ; -if(!qbevent)break;evnt(20848);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20848);}while(r); -} -S_24584:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("XOR",3))))||new_error){ -if(qbevent){evnt(20849);if(r)goto S_24584;} -do{ -qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("^",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20849);}while(r); -do{ -*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 1 ; -if(!qbevent)break;evnt(20849);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20849);}while(r); -} -S_24589:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("OR",2))))||new_error){ -if(qbevent){evnt(20850);if(r)goto S_24589;} -do{ -qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("|",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20850);}while(r); -do{ -*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 1 ; -if(!qbevent)break;evnt(20850);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20850);}while(r); -} -S_24594:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("AND",3))))||new_error){ -if(qbevent){evnt(20851);if(r)goto S_24594;} -do{ -qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("&",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20851);}while(r); -do{ -*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 1 ; -if(!qbevent)break;evnt(20851);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20851);}while(r); -} -do{ -*_FUNC_OPERATORUSAGE_LONG_LHS= 7 ; -if(!qbevent)break;evnt(20853);}while(r); -S_24600:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("NOT",3))))||new_error){ -if(qbevent){evnt(20854);if(r)goto S_24600;} -do{ -qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("~",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20854);}while(r); -do{ -*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 5 ; -if(!qbevent)break;evnt(20854);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20854);}while(r); -} -S_24605:; -if (( 0 )||new_error){ -if(qbevent){evnt(20856);if(r)goto S_24605;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip3021; -sub_file_print(tmp_fileno,qbs_new_txt_len("INVALID NUMBERIC OPERATOR!",26), 0, 0, 1); -if (new_error) goto skip3021; -skip3021: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(20856);}while(r); -do{ -sub_end(); -if(!qbevent)break;evnt(20856);}while(r); -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free32.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -return *_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE; -} -qbs* FUNC_REFER(qbs*_FUNC_REFER_STRING_A2,int32*_FUNC_REFER_LONG_TYP,int32*_FUNC_REFER_LONG_METHOD){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data33.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -*_FUNC_REFER_LONG_TYPBAK=*_FUNC_REFER_LONG_TYP; -if(!qbevent)break;evnt(20861);}while(r); -do{ -qbs_set(_FUNC_REFER_STRING_A,_FUNC_REFER_STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20865);}while(r); -do{ -*_FUNC_REFER_LONG_I=func_instr(NULL,_FUNC_REFER_STRING_A,__STRING1_SP3,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20868);}while(r); -S_24612:; -if ((*_FUNC_REFER_LONG_I)||new_error){ -if(qbevent){evnt(20869);if(r)goto S_24612;} -do{ -*_FUNC_REFER_LONG_IDNUMBER=qbr(func_val(qbs_left(_FUNC_REFER_STRING_A,*_FUNC_REFER_LONG_I- 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20870);}while(r); -do{ -qbs_set(_FUNC_REFER_STRING_A,qbs_right(_FUNC_REFER_STRING_A,_FUNC_REFER_STRING_A->len-*_FUNC_REFER_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20870);}while(r); -}else{ -do{ -*_FUNC_REFER_LONG_IDNUMBER=qbr(func_val(_FUNC_REFER_STRING_A)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20872);}while(r); -} -do{ -SUB_GETID(_FUNC_REFER_LONG_IDNUMBER); -if(!qbevent)break;evnt(20874);}while(r); -S_24619:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(20875);if(r)goto S_24619;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20875);}while(r); -} -S_24622:; -if ((*_FUNC_REFER_LONG_TYP&*__LONG_ISUDT)||new_error){ -if(qbevent){evnt(20878);if(r)goto S_24622;} -S_24623:; -if ((-(*_FUNC_REFER_LONG_METHOD== 1 ))||new_error){ -if(qbevent){evnt(20879);if(r)goto S_24623;} -do{ -qbs_set(_FUNC_REFER_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(20880);}while(r); -S_24625:; -if ((-(*(int32*)(((char*)__UDT_ID)+(536))== 0 ))||new_error){ -if(qbevent){evnt(20881);if(r)goto S_24625;} -do{ -qbs_set(_FUNC_REFER_STRING_N,qbs_add(qbs_new_txt_len("ARRAY_",6),_FUNC_REFER_STRING_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20881);}while(r); -} -do{ -qbs_set(_FUNC_REFER_STRING_N,qbs_add(FUNC_SCOPE(),_FUNC_REFER_STRING_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20882);}while(r); -do{ -qbs_set(_FUNC_REFER_STRING_REFER,_FUNC_REFER_STRING_N); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20883);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20884);}while(r); -} -do{ -*_FUNC_REFER_LONG_U=qbr(func_val(_FUNC_REFER_STRING_A)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20889);}while(r); -do{ -*_FUNC_REFER_LONG_I=func_instr(NULL,_FUNC_REFER_STRING_A,__STRING1_SP3,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20890);}while(r); -do{ -qbs_set(_FUNC_REFER_STRING_A,qbs_right(_FUNC_REFER_STRING_A,_FUNC_REFER_STRING_A->len-*_FUNC_REFER_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20890);}while(r); -do{ -*__LONG_E=qbr(func_val(_FUNC_REFER_STRING_A)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20890);}while(r); -do{ -*_FUNC_REFER_LONG_I=func_instr(NULL,_FUNC_REFER_STRING_A,__STRING1_SP3,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20891);}while(r); -do{ -qbs_set(_FUNC_REFER_STRING_O,qbs_right(_FUNC_REFER_STRING_A,_FUNC_REFER_STRING_A->len-*_FUNC_REFER_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20891);}while(r); -do{ -qbs_set(_FUNC_REFER_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(20892);}while(r); -S_24639:; -if ((-(*(int32*)(((char*)__UDT_ID)+(536))== 0 ))||new_error){ -if(qbevent){evnt(20892);if(r)goto S_24639;} -do{ -qbs_set(_FUNC_REFER_STRING_N,qbs_add(qbs_add(qbs_new_txt_len("ARRAY_",6),_FUNC_REFER_STRING_N),qbs_new_txt_len("[0]",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20892);}while(r); -} -S_24642:; -if ((-(*__LONG_E== 0 ))||new_error){ -if(qbevent){evnt(20893);if(r)goto S_24642;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("User defined types in expressions are invalid",45)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20893);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20893);}while(r); -} -S_24646:; -if ((*_FUNC_REFER_LONG_TYP&*__LONG_ISOFFSETINBITS)||new_error){ -if(qbevent){evnt(20894);if(r)goto S_24646;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Cannot resolve bit-length variables inside user defined types",61)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20894);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20894);}while(r); -} -S_24650:; -if ((*_FUNC_REFER_LONG_TYP&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(20896);if(r)goto S_24650;} -S_24651:; -if ((*_FUNC_REFER_LONG_TYP&*__LONG_ISFIXEDLENGTH)||new_error){ -if(qbevent){evnt(20897);if(r)goto S_24651;} -do{ -qbs_set(_FUNC_REFER_STRING_O2,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(((uint8*)",10),FUNC_SCOPE()),_FUNC_REFER_STRING_N),qbs_new_txt_len(")+(",3)),_FUNC_REFER_STRING_O),qbs_new_txt_len("))",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20898);}while(r); -do{ -qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_new_fixed(",14),_FUNC_REFER_STRING_O2),qbs_new_txt_len(",",1)),FUNC_STR2((&(((int32*)(__ARRAY_LONG_UDTETYPESIZE[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTETYPESIZE[4],__ARRAY_LONG_UDTETYPESIZE[5])])))),qbs_new_txt_len(",1)",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20899);}while(r); -do{ -*_FUNC_REFER_LONG_TYP=*__LONG_STRINGTYPE+*__LONG_ISFIXEDLENGTH; -if(!qbevent)break;evnt(20900);}while(r); -}else{ -do{ -qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*((qbs**)((char*)",17),FUNC_SCOPE()),_FUNC_REFER_STRING_N),qbs_new_txt_len("+(",2)),_FUNC_REFER_STRING_O),qbs_new_txt_len(")))",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20902);}while(r); -do{ -*_FUNC_REFER_LONG_TYP=*__LONG_STRINGTYPE; -if(!qbevent)break;evnt(20903);}while(r); -} -}else{ -do{ -*_FUNC_REFER_LONG_TYP=*_FUNC_REFER_LONG_TYP-*__LONG_ISUDT-*__LONG_ISREFERENCE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(20906);}while(r); -S_24661:; -if ((*_FUNC_REFER_LONG_TYP&*__LONG_ISARRAY)||new_error){ -if(qbevent){evnt(20907);if(r)goto S_24661;} -do{ -*_FUNC_REFER_LONG_TYP=*_FUNC_REFER_LONG_TYP-*__LONG_ISARRAY; -if(!qbevent)break;evnt(20907);}while(r); -} -do{ -qbs_set(_FUNC_REFER_STRING_T,FUNC_TYP2CTYP(_FUNC_REFER_LONG_TYP,qbs_new_txt_len("",0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20908);}while(r); -S_24665:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(20909);if(r)goto S_24665;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20909);}while(r); -} -do{ -qbs_set(_FUNC_REFER_STRING_O2,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(((char*)",9),FUNC_SCOPE()),_FUNC_REFER_STRING_N),qbs_new_txt_len(")+(",3)),_FUNC_REFER_STRING_O),qbs_new_txt_len("))",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20910);}while(r); -do{ -qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),qbs_new_txt_len("(",1)),_FUNC_REFER_STRING_T),qbs_new_txt_len("*)",2)),_FUNC_REFER_STRING_O2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20911);}while(r); -} -do{ -qbs_set(_FUNC_REFER_STRING_REFER,_FUNC_REFER_STRING_R); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20915);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20916);}while(r); -} -S_24674:; -if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ -if(qbevent){evnt(20921);if(r)goto S_24674;} -do{ -qbs_set(_FUNC_REFER_STRING_N,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20923);}while(r); -S_24676:; -if ((-(*_FUNC_REFER_LONG_METHOD== 1 ))||new_error){ -if(qbevent){evnt(20924);if(r)goto S_24676;} -do{ -qbs_set(_FUNC_REFER_STRING_REFER,_FUNC_REFER_STRING_N); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20925);}while(r); -do{ -*_FUNC_REFER_LONG_TYP=*_FUNC_REFER_LONG_TYPBAK; -if(!qbevent)break;evnt(20926);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20927);}while(r); -} -do{ -*_FUNC_REFER_LONG_TYP=*_FUNC_REFER_LONG_TYP-*__LONG_ISPOINTER-*__LONG_ISREFERENCE; -if(!qbevent)break;evnt(20929);}while(r); -S_24682:; -if (((*_FUNC_REFER_LONG_TYP&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(20931);if(r)goto S_24682;} -S_24683:; -if (((*_FUNC_REFER_LONG_TYP&*__LONG_ISFIXEDLENGTH))||new_error){ -if(qbevent){evnt(20932);if(r)goto S_24683;} -do{ -qbs_set(_FUNC_REFER_STRING_OFFSET,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("&((uint8*)(",11),_FUNC_REFER_STRING_N),qbs_new_txt_len("[0]))[(",7)),_FUNC_REFER_STRING_A),qbs_new_txt_len(")*",2)),FUNC_STR2((int32*)(void*)( ((char*)(__UDT_ID)) + (540) ))),qbs_new_txt_len("]",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20933);}while(r); -do{ -qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_new_fixed(",14),_FUNC_REFER_STRING_OFFSET),qbs_new_txt_len(",",1)),FUNC_STR2((int32*)(void*)( ((char*)(__UDT_ID)) + (540) ))),qbs_new_txt_len(",1)",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20934);}while(r); -}else{ -do{ -qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("((qbs*)(((uint64*)(",19),_FUNC_REFER_STRING_N),qbs_new_txt_len("[0]))[",6)),_FUNC_REFER_STRING_A),qbs_new_txt_len("]))",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20936);}while(r); -} -do{ -*__INTEGER_STRINGPROCESSINGHAPPENED= 1 ; -if(!qbevent)break;evnt(20938);}while(r); -do{ -qbs_set(_FUNC_REFER_STRING_REFER,_FUNC_REFER_STRING_R); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20939);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20940);}while(r); -} -S_24693:; -if (((*_FUNC_REFER_LONG_TYP&*__LONG_ISOFFSETINBITS))||new_error){ -if(qbevent){evnt(20943);if(r)goto S_24693;} -S_24694:; -if (((*_FUNC_REFER_LONG_TYP&*__LONG_ISUNSIGNED))||new_error){ -if(qbevent){evnt(20946);if(r)goto S_24694;} -do{ -qbs_set(_FUNC_REFER_STRING_R,qbs_new_txt_len("getubits",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20946);}while(r); -}else{ -do{ -qbs_set(_FUNC_REFER_STRING_R,qbs_new_txt_len("getbits",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20946);}while(r); -} -do{ -qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(_FUNC_REFER_STRING_R,qbs_new_txt_len("(",1)),FUNC_STR2(&(pass3026=*_FUNC_REFER_LONG_TYP& 511 ))),qbs_new_txt_len(",",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20947);}while(r); -do{ -qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_REFER_STRING_R,qbs_new_txt_len("(uint8*)(",9)),_FUNC_REFER_STRING_N),qbs_new_txt_len("[0])",4)),qbs_new_txt_len(",",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20948);}while(r); -do{ -qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(_FUNC_REFER_STRING_R,_FUNC_REFER_STRING_A),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20949);}while(r); -do{ -qbs_set(_FUNC_REFER_STRING_REFER,_FUNC_REFER_STRING_R); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20950);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20951);}while(r); -}else{ -do{ -qbs_set(_FUNC_REFER_STRING_T,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20953);}while(r); -S_24706:; -if (((*_FUNC_REFER_LONG_TYP&*__LONG_ISFLOAT))||new_error){ -if(qbevent){evnt(20954);if(r)goto S_24706;} -S_24707:; -if ((-((*_FUNC_REFER_LONG_TYP& 511 )== 32 ))||new_error){ -if(qbevent){evnt(20955);if(r)goto S_24707;} -do{ -qbs_set(_FUNC_REFER_STRING_T,qbs_new_txt_len("float",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20955);}while(r); -} -S_24710:; -if ((-((*_FUNC_REFER_LONG_TYP& 511 )== 64 ))||new_error){ -if(qbevent){evnt(20956);if(r)goto S_24710;} -do{ -qbs_set(_FUNC_REFER_STRING_T,qbs_new_txt_len("double",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20956);}while(r); -} -S_24713:; -if ((-((*_FUNC_REFER_LONG_TYP& 511 )== 256 ))||new_error){ -if(qbevent){evnt(20957);if(r)goto S_24713;} -do{ -qbs_set(_FUNC_REFER_STRING_T,qbs_new_txt_len("long double",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20957);}while(r); -} -}else{ -S_24717:; -if (((*_FUNC_REFER_LONG_TYP&*__LONG_ISUNSIGNED))||new_error){ -if(qbevent){evnt(20959);if(r)goto S_24717;} -S_24718:; -if ((-((*_FUNC_REFER_LONG_TYP& 511 )== 8 ))||new_error){ -if(qbevent){evnt(20960);if(r)goto S_24718;} -do{ -qbs_set(_FUNC_REFER_STRING_T,qbs_new_txt_len("uint8",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20960);}while(r); -} -S_24721:; -if ((-((*_FUNC_REFER_LONG_TYP& 511 )== 16 ))||new_error){ -if(qbevent){evnt(20961);if(r)goto S_24721;} -do{ -qbs_set(_FUNC_REFER_STRING_T,qbs_new_txt_len("uint16",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20961);}while(r); -} -S_24724:; -if ((-((*_FUNC_REFER_LONG_TYP& 511 )== 32 ))||new_error){ -if(qbevent){evnt(20962);if(r)goto S_24724;} -do{ -qbs_set(_FUNC_REFER_STRING_T,qbs_new_txt_len("uint32",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20962);}while(r); -} -S_24727:; -if ((-((*_FUNC_REFER_LONG_TYP& 511 )== 64 ))||new_error){ -if(qbevent){evnt(20963);if(r)goto S_24727;} -do{ -qbs_set(_FUNC_REFER_STRING_T,qbs_new_txt_len("uint64",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20963);}while(r); -} -S_24730:; -if ((*_FUNC_REFER_LONG_TYP&*__LONG_ISOFFSET)||new_error){ -if(qbevent){evnt(20964);if(r)goto S_24730;} -do{ -qbs_set(_FUNC_REFER_STRING_T,qbs_new_txt_len("uptrszint",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20964);}while(r); -} -}else{ -S_24734:; -if ((-((*_FUNC_REFER_LONG_TYP& 511 )== 8 ))||new_error){ -if(qbevent){evnt(20966);if(r)goto S_24734;} -do{ -qbs_set(_FUNC_REFER_STRING_T,qbs_new_txt_len("int8",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20966);}while(r); -} -S_24737:; -if ((-((*_FUNC_REFER_LONG_TYP& 511 )== 16 ))||new_error){ -if(qbevent){evnt(20967);if(r)goto S_24737;} -do{ -qbs_set(_FUNC_REFER_STRING_T,qbs_new_txt_len("int16",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20967);}while(r); -} -S_24740:; -if ((-((*_FUNC_REFER_LONG_TYP& 511 )== 32 ))||new_error){ -if(qbevent){evnt(20968);if(r)goto S_24740;} -do{ -qbs_set(_FUNC_REFER_STRING_T,qbs_new_txt_len("int32",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20968);}while(r); -} -S_24743:; -if ((-((*_FUNC_REFER_LONG_TYP& 511 )== 64 ))||new_error){ -if(qbevent){evnt(20969);if(r)goto S_24743;} -do{ -qbs_set(_FUNC_REFER_STRING_T,qbs_new_txt_len("int64",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20969);}while(r); -} -S_24746:; -if ((*_FUNC_REFER_LONG_TYP&*__LONG_ISOFFSET)||new_error){ -if(qbevent){evnt(20970);if(r)goto S_24746;} -do{ -qbs_set(_FUNC_REFER_STRING_T,qbs_new_txt_len("ptrszint",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20970);}while(r); -} -} -} -} -S_24752:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_REFER_STRING_T,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(20974);if(r)goto S_24752;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Cannot find C type to return array data",39)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20974);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20974);}while(r); -} -do{ -qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("((",2),_FUNC_REFER_STRING_T),qbs_new_txt_len("*)(",3)),_FUNC_REFER_STRING_N),qbs_new_txt_len("[0]))[",6)),_FUNC_REFER_STRING_A),qbs_new_txt_len("]",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20975);}while(r); -do{ -qbs_set(_FUNC_REFER_STRING_REFER,_FUNC_REFER_STRING_R); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20976);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(20977);}while(r); -} -S_24760:; -if ((*(int32*)(((char*)__UDT_ID)+(536)))||new_error){ -if(qbevent){evnt(20981);if(r)goto S_24760;} -do{ -qbs_set(_FUNC_REFER_STRING_R,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20982);}while(r); -do{ -*_FUNC_REFER_LONG_T=*(int32*)(((char*)__UDT_ID)+(536)); -if(!qbevent)break;evnt(20983);}while(r); -S_24763:; -if (((*_FUNC_REFER_LONG_T&*__LONG_ISINCONVENTIONALMEMORY))||new_error){ -if(qbevent){evnt(20985);if(r)goto S_24763;} -do{ -*_FUNC_REFER_LONG_T=*_FUNC_REFER_LONG_T-*__LONG_ISINCONVENTIONALMEMORY; -if(!qbevent)break;evnt(20985);}while(r); -} -S_24766:; -if (((*_FUNC_REFER_LONG_T&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(20987);if(r)goto S_24766;} -S_24767:; -if (((*_FUNC_REFER_LONG_T&*__LONG_ISFIXEDLENGTH))||new_error){ -if(qbevent){evnt(20988);if(r)goto S_24767;} -do{ -qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(FUNC_SCOPE(),qbs_new_txt_len("STRING",6)),FUNC_STR2((int32*)(void*)( ((char*)(__UDT_ID)) + (540) ))),qbs_new_txt_len("_",1)),_FUNC_REFER_STRING_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20989);}while(r); -do{ -goto LABEL_REF; -if(!qbevent)break;evnt(20989);}while(r); -} -do{ -qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(FUNC_SCOPE(),qbs_new_txt_len("STRING_",7)),_FUNC_REFER_STRING_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20991);}while(r); -do{ -goto LABEL_REF; -if(!qbevent)break;evnt(20991);}while(r); -} -S_24774:; -if (((*_FUNC_REFER_LONG_T&*__LONG_ISOFFSETINBITS))||new_error){ -if(qbevent){evnt(20994);if(r)goto S_24774;} -S_24775:; -if (((*_FUNC_REFER_LONG_T&*__LONG_ISUNSIGNED))||new_error){ -if(qbevent){evnt(20995);if(r)goto S_24775;} -do{ -qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("UBIT",4)),FUNC_STR2(&(pass3027=*_FUNC_REFER_LONG_T& 511 ))),qbs_new_txt_len("_",1)),_FUNC_REFER_STRING_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20996);}while(r); -}else{ -do{ -qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("BIT",3)),FUNC_STR2(&(pass3028=*_FUNC_REFER_LONG_T& 511 ))),qbs_new_txt_len("_",1)),_FUNC_REFER_STRING_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(20998);}while(r); -} -do{ -goto LABEL_REF; -if(!qbevent)break;evnt(21000);}while(r); -} -S_24782:; -if ((-(*_FUNC_REFER_LONG_T==*__LONG_BYTETYPE))||new_error){ -if(qbevent){evnt(21002);if(r)goto S_24782;} -do{ -qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("BYTE_",5)),_FUNC_REFER_STRING_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21002);}while(r); -do{ -goto LABEL_REF; -if(!qbevent)break;evnt(21002);}while(r); -} -S_24786:; -if ((-(*_FUNC_REFER_LONG_T==*__LONG_UBYTETYPE))||new_error){ -if(qbevent){evnt(21003);if(r)goto S_24786;} -do{ -qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("UBYTE_",6)),_FUNC_REFER_STRING_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21003);}while(r); -do{ -goto LABEL_REF; -if(!qbevent)break;evnt(21003);}while(r); -} -S_24790:; -if ((-(*_FUNC_REFER_LONG_T==*__LONG_INTEGERTYPE))||new_error){ -if(qbevent){evnt(21004);if(r)goto S_24790;} -do{ -qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("INTEGER_",8)),_FUNC_REFER_STRING_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21004);}while(r); -do{ -goto LABEL_REF; -if(!qbevent)break;evnt(21004);}while(r); -} -S_24794:; -if ((-(*_FUNC_REFER_LONG_T==*__LONG_UINTEGERTYPE))||new_error){ -if(qbevent){evnt(21005);if(r)goto S_24794;} -do{ -qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("UINTEGER_",9)),_FUNC_REFER_STRING_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21005);}while(r); -do{ -goto LABEL_REF; -if(!qbevent)break;evnt(21005);}while(r); -} -S_24798:; -if ((-(*_FUNC_REFER_LONG_T==*__LONG_LONGTYPE))||new_error){ -if(qbevent){evnt(21006);if(r)goto S_24798;} -do{ -qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("LONG_",5)),_FUNC_REFER_STRING_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21006);}while(r); -do{ -goto LABEL_REF; -if(!qbevent)break;evnt(21006);}while(r); -} -S_24802:; -if ((-(*_FUNC_REFER_LONG_T==*__LONG_ULONGTYPE))||new_error){ -if(qbevent){evnt(21007);if(r)goto S_24802;} -do{ -qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("ULONG_",6)),_FUNC_REFER_STRING_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21007);}while(r); -do{ -goto LABEL_REF; -if(!qbevent)break;evnt(21007);}while(r); -} -S_24806:; -if ((-(*_FUNC_REFER_LONG_T==*__LONG_INTEGER64TYPE))||new_error){ -if(qbevent){evnt(21008);if(r)goto S_24806;} -do{ -qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("INTEGER64_",10)),_FUNC_REFER_STRING_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21008);}while(r); -do{ -goto LABEL_REF; -if(!qbevent)break;evnt(21008);}while(r); -} -S_24810:; -if ((-(*_FUNC_REFER_LONG_T==*__LONG_UINTEGER64TYPE))||new_error){ -if(qbevent){evnt(21009);if(r)goto S_24810;} -do{ -qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("UINTEGER64_",11)),_FUNC_REFER_STRING_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21009);}while(r); -do{ -goto LABEL_REF; -if(!qbevent)break;evnt(21009);}while(r); -} -S_24814:; -if ((-(*_FUNC_REFER_LONG_T==*__LONG_SINGLETYPE))||new_error){ -if(qbevent){evnt(21010);if(r)goto S_24814;} -do{ -qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("SINGLE_",7)),_FUNC_REFER_STRING_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21010);}while(r); -do{ -goto LABEL_REF; -if(!qbevent)break;evnt(21010);}while(r); -} -S_24818:; -if ((-(*_FUNC_REFER_LONG_T==*__LONG_DOUBLETYPE))||new_error){ -if(qbevent){evnt(21011);if(r)goto S_24818;} -do{ -qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("DOUBLE_",7)),_FUNC_REFER_STRING_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21011);}while(r); -do{ -goto LABEL_REF; -if(!qbevent)break;evnt(21011);}while(r); -} -S_24822:; -if ((-(*_FUNC_REFER_LONG_T==*__LONG_FLOATTYPE))||new_error){ -if(qbevent){evnt(21012);if(r)goto S_24822;} -do{ -qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("FLOAT_",6)),_FUNC_REFER_STRING_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21012);}while(r); -do{ -goto LABEL_REF; -if(!qbevent)break;evnt(21012);}while(r); -} -S_24826:; -if ((-(*_FUNC_REFER_LONG_T==*__LONG_OFFSETTYPE))||new_error){ -if(qbevent){evnt(21013);if(r)goto S_24826;} -do{ -qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("OFFSET_",7)),_FUNC_REFER_STRING_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21013);}while(r); -do{ -goto LABEL_REF; -if(!qbevent)break;evnt(21013);}while(r); -} -S_24830:; -if ((-(*_FUNC_REFER_LONG_T==*__LONG_UOFFSETTYPE))||new_error){ -if(qbevent){evnt(21014);if(r)goto S_24830;} -do{ -qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("UOFFSET_",8)),_FUNC_REFER_STRING_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21014);}while(r); -do{ -goto LABEL_REF; -if(!qbevent)break;evnt(21014);}while(r); -} -LABEL_REF:; -if(qbevent){evnt(21015);r=0;} -S_24834:; -if (((*_FUNC_REFER_LONG_T&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(21016);if(r)goto S_24834;} -do{ -*__INTEGER_STRINGPROCESSINGHAPPENED= 1 ; -if(!qbevent)break;evnt(21016);}while(r); -} -S_24837:; -if (((*_FUNC_REFER_LONG_T&*__LONG_ISPOINTER))||new_error){ -if(qbevent){evnt(21017);if(r)goto S_24837;} -do{ -*_FUNC_REFER_LONG_T=*_FUNC_REFER_LONG_T-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21017);}while(r); -} -do{ -*_FUNC_REFER_LONG_TYP=*_FUNC_REFER_LONG_T; -if(!qbevent)break;evnt(21018);}while(r); -S_24841:; -if ((-(*_FUNC_REFER_LONG_METHOD== 1 ))||new_error){ -if(qbevent){evnt(21019);if(r)goto S_24841;} -S_24842:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_REFER_STRING_R, 1 ),qbs_new_txt_len("*",1))))||new_error){ -if(qbevent){evnt(21020);if(r)goto S_24842;} -do{ -qbs_set(_FUNC_REFER_STRING_R,qbs_right(_FUNC_REFER_STRING_R,_FUNC_REFER_STRING_R->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21020);}while(r); -} -do{ -*_FUNC_REFER_LONG_TYP=*_FUNC_REFER_LONG_TYPBAK; -if(!qbevent)break;evnt(21021);}while(r); -} -do{ -qbs_set(_FUNC_REFER_STRING_REFER,_FUNC_REFER_STRING_R); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21023);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21024);}while(r); -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free33.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_REFER_STRING_REFER);return _FUNC_REFER_STRING_REFER; -} -void SUB_REGID(){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data34.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -*__LONG_IDN=*__LONG_IDN+ 1 ; -if(!qbevent)break;evnt(21032);}while(r); -S_24851:; -if ((-(*__LONG_IDN>*__LONG_IDS_MAX))||new_error){ -if(qbevent){evnt(21034);if(r)goto S_24851;} -do{ -*__LONG_IDS_MAX=*__LONG_IDS_MAX* 2 ; -if(!qbevent)break;evnt(21035);}while(r); -do{ +} +if(!qbevent)break;evnt(16499);}while(r); +do{ +tmp_long=array_check(( 3 )-_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[4],_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[5]); +if (!new_error) ((int32*)(_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[0]))[tmp_long]=((int32*)(_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[0]))[array_check(( 2 )-_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[4],_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[5])]; +if(!qbevent)break;evnt(16501);}while(r); +do{ +tmp_long=array_check(( 2 )-_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[4],_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[5]); +if (!new_error) ((int32*)(_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[0]))[tmp_long]=((int32*)(_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[0]))[array_check(( 1 )-_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[4],_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[5])]; +if(!qbevent)break;evnt(16502);}while(r); +do{ +tmp_long=array_check(( 1 )-_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[4],_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[5]); +if (!new_error) ((int32*)(_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[0]))[tmp_long]= 0 ; +if(!qbevent)break;evnt(16503);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_SKIPFIRSTARG= -1 ; +if(!qbevent)break;evnt(16505);}while(r); +} +} +S_19518:; +if ((qbs_cleanup(qbs_tmp_base,~(FUNC_ISVALIDARGSET(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(1613)),256,1),_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS,_FUNC_EVALUATEFUNC_LONG_FIRSTOPTIONALARGUMENT))))||new_error){ +if(qbevent){evnt(16509);if(r)goto S_19518;} +S_19519:; +if ((qbs_cleanup(qbs_tmp_base,-((*(qbs**)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(2861)))->len> 0 )))||new_error){ +if(qbevent){evnt(16510);if(r)goto S_19519;} +do{ +SUB_GIVE_ERROR(qbs_add(qbs_new_txt_len("Incorrect number of arguments - Reference: ",43),*((qbs**)((char*)_FUNC_EVALUATEFUNC_UDT_ID2+(2861))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16511);}while(r); +}else{ +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Incorrect number of arguments passed to function",48)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16513);}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(16515);}while(r); +} +do{ +*_FUNC_EVALUATEFUNC_LONG_PASSOMIT= 1 ; +if(!qbevent)break;evnt(16518);}while(r); +}else{ +S_19528:; +fornext_value2609= 1 ; +fornext_finalvalue2609=*_FUNC_EVALUATEFUNC_LONG_ARGCOUNT; +fornext_step2609= 1 ; +if (fornext_step2609<0) fornext_step_negative2609=1; else fornext_step_negative2609=0; +if (new_error) goto fornext_error2609; +goto fornext_entrylabel2609; +while(1){ +fornext_value2609=fornext_step2609+(*_FUNC_EVALUATEFUNC_LONG_FI); +fornext_entrylabel2609: +*_FUNC_EVALUATEFUNC_LONG_FI=fornext_value2609; +if (fornext_step_negative2609){ +if (fornext_value2609fornext_finalvalue2609) break; +} +fornext_error2609:; +if(qbevent){evnt(16522);if(r)goto S_19528;} +do{ +tmp_long=array_check((*_FUNC_EVALUATEFUNC_LONG_FI)-_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[4],_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[5]); +if (!new_error) ((int32*)(_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[0]))[tmp_long]= -1 ; +if(!qbevent)break;evnt(16523);}while(r); +fornext_continue_2608:; +} +fornext_exit_2608:; +S_19531:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("ASC",3)))&(-(*_FUNC_EVALUATEFUNC_LONG_ARGS== 2 ))))||new_error){ +if(qbevent){evnt(16526);if(r)goto S_19531;} +do{ +goto LABEL_SKIPARGNUMCHK; +if(!qbevent)break;evnt(16526);}while(r); +} +S_19534:; +if (((-(*(int8*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(808))== -1 ))&(((-(*_FUNC_EVALUATEFUNC_LONG_ARGS>=*(int16*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(811))))&(-(*_FUNC_EVALUATEFUNC_LONG_ARGS<=*(int16*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(809)))))))||new_error){ +if(qbevent){evnt(16527);if(r)goto S_19534;} +do{ +goto LABEL_SKIPARGNUMCHK; +if(!qbevent)break;evnt(16527);}while(r); +} +S_19537:; +if ((-(*(int16*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(809))!=*_FUNC_EVALUATEFUNC_LONG_ARGS))||new_error){ +if(qbevent){evnt(16529);if(r)goto S_19537;} +S_19538:; +if ((qbs_cleanup(qbs_tmp_base,-((*(qbs**)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(2861)))->len> 0 )))||new_error){ +if(qbevent){evnt(16530);if(r)goto S_19538;} +do{ +SUB_GIVE_ERROR(qbs_add(qbs_new_txt_len("Incorrect number of arguments - Reference: ",43),*((qbs**)((char*)_FUNC_EVALUATEFUNC_UDT_ID2+(2861))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16531);}while(r); +}else{ +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Incorrect number of arguments passed to function",48)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16533);}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(16535);}while(r); +} +} +LABEL_SKIPARGNUMCHK:; +if(qbevent){evnt(16540);r=0;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(550)),256,1)),qbs_new_txt_len("(",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16542);}while(r); +S_19547:; +if ((-(*(int16*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(809))!= 0 ))||new_error){ +if(qbevent){evnt(16545);if(r)goto S_19547;} +do{ +*_FUNC_EVALUATEFUNC_LONG_CURARG= 1 ; +if(!qbevent)break;evnt(16547);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_FIRSTI= 1 ; +if(!qbevent)break;evnt(16548);}while(r); +S_19550:; +if ((*_FUNC_EVALUATEFUNC_LONG_SKIPFIRSTARG)||new_error){ +if(qbevent){evnt(16552);if(r)goto S_19550;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("NULL,",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16553);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_CURARG= 2 ; +if(!qbevent)break;evnt(16554);}while(r); +} +do{ +*_FUNC_EVALUATEFUNC_LONG_N=FUNC_NUMELEMENTS(_FUNC_EVALUATEFUNC_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16557);}while(r); +S_19555:; +fornext_value2611= 1 ; +fornext_finalvalue2611=*_FUNC_EVALUATEFUNC_LONG_N; +fornext_step2611= 1 ; +if (fornext_step2611<0) fornext_step_negative2611=1; else fornext_step_negative2611=0; +if (new_error) goto fornext_error2611; +goto fornext_entrylabel2611; +while(1){ +fornext_value2611=fornext_step2611+(*_FUNC_EVALUATEFUNC_LONG_I); +fornext_entrylabel2611: +*_FUNC_EVALUATEFUNC_LONG_I=fornext_value2611; +if (fornext_step_negative2611){ +if (fornext_value2611fornext_finalvalue2611) break; +} +fornext_error2611:; +if(qbevent){evnt(16559);if(r)goto S_19555;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_L,FUNC_GETELEMENT(_FUNC_EVALUATEFUNC_STRING_A,_FUNC_EVALUATEFUNC_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16560);}while(r); +S_19557:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_L,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(16561);if(r)goto S_19557;} +do{ +*_FUNC_EVALUATEFUNC_LONG_B=*_FUNC_EVALUATEFUNC_LONG_B+ 1 ; +if(!qbevent)break;evnt(16561);}while(r); +} +S_19560:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_L,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(16562);if(r)goto S_19560;} +do{ +*_FUNC_EVALUATEFUNC_LONG_B=*_FUNC_EVALUATEFUNC_LONG_B- 1 ; +if(!qbevent)break;evnt(16562);}while(r); +} +S_19563:; +if ((qbs_cleanup(qbs_tmp_base,((qbs_equal(_FUNC_EVALUATEFUNC_STRING_L,qbs_new_txt_len(",",1)))&(-(*_FUNC_EVALUATEFUNC_LONG_B== 0 )))|(-(*_FUNC_EVALUATEFUNC_LONG_I==*_FUNC_EVALUATEFUNC_LONG_N))))||new_error){ +if(qbevent){evnt(16563);if(r)goto S_19563;} +S_19564:; +if ((~(((int32*)(_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[0]))[array_check((*_FUNC_EVALUATEFUNC_LONG_CURARG)-_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[4],_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[5])]))||new_error){ +if(qbevent){evnt(16564);if(r)goto S_19564;} +S_19565:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_I==*_FUNC_EVALUATEFUNC_LONG_N))||new_error){ +if(qbevent){evnt(16565);if(r)goto S_19565;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Last function argument cannot be empty",38)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16565);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(16565);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("NULL,",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16567);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_FIRSTI=*_FUNC_EVALUATEFUNC_LONG_I+ 1 ; +if(!qbevent)break;evnt(16568);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_CURARG=*_FUNC_EVALUATEFUNC_LONG_CURARG+ 1 ; +if(!qbevent)break;evnt(16569);}while(r); +do{ +goto fornext_continue_2610; +if(!qbevent)break;evnt(16570);}while(r); +} +do{ +*_FUNC_EVALUATEFUNC_LONG_TARGETTYP=string2l(func_mid(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(813)),400,1),(*_FUNC_EVALUATEFUNC_LONG_CURARG* 4 )-( 4 )+( 1 ), 4 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16573);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_NELE=qbs_asc(func_mid(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(2647)),100,1),*_FUNC_EVALUATEFUNC_LONG_CURARG, 1 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16574);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_NELEREQ=qbs_asc(func_mid(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(2747)),100,1),*_FUNC_EVALUATEFUNC_LONG_CURARG, 1 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16575);}while(r); +S_19577:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_I==*_FUNC_EVALUATEFUNC_LONG_N))||new_error){ +if(qbevent){evnt(16577);if(r)goto S_19577;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_GETELEMENTS(_FUNC_EVALUATEFUNC_STRING_A,_FUNC_EVALUATEFUNC_LONG_FIRSTI,_FUNC_EVALUATEFUNC_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16578);}while(r); +}else{ +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_GETELEMENTS(_FUNC_EVALUATEFUNC_STRING_A,_FUNC_EVALUATEFUNC_LONG_FIRSTI,&(pass2612=*_FUNC_EVALUATEFUNC_LONG_I- 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16580);}while(r); +} +S_19582:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal((qbs_left(_FUNC_EVALUATEFUNC_STRING_E, 2 )),(qbs_add(qbs_new_txt_len("(",1),__STRING1_SP)))))||new_error){ +if(qbevent){evnt(16583);if(r)goto S_19582;} +do{ +*_FUNC_EVALUATEFUNC_LONG_DEREFERENCE= 1 ; +if(!qbevent)break;evnt(16583);}while(r); +}else{ +do{ +*_FUNC_EVALUATEFUNC_LONG_DEREFERENCE= 0 ; +if(!qbevent)break;evnt(16583);}while(r); +} +S_19587:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_CV",3)))|(((qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("CV",2)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ +if(qbevent){evnt(16588);if(r)goto S_19587;} +S_19588:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 1 ))||new_error){ +if(qbevent){evnt(16589);if(r)goto S_19588;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_CVTYPE,FUNC_TYPE2SYMBOL(_FUNC_EVALUATEFUNC_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16590);}while(r); +S_19590:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(16591);if(r)goto S_19590;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(16591);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16592);}while(r); +do{ +goto LABEL_DONTEVALUATE; +if(!qbevent)break;evnt(16593);}while(r); +} +} +S_19597:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_MK",3)))|(((qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("MK",2)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ +if(qbevent){evnt(16599);if(r)goto S_19597;} +S_19598:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(528)),8,1)),qbs_new_txt_len("$",1))))||new_error){ +if(qbevent){evnt(16600);if(r)goto S_19598;} +S_19599:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 1 ))||new_error){ +if(qbevent){evnt(16601);if(r)goto S_19599;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_MKTYPE,FUNC_TYPE2SYMBOL(_FUNC_EVALUATEFUNC_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16602);}while(r); +S_19601:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(16603);if(r)goto S_19601;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(16603);}while(r); +} +S_19604:; +if (( 0 )||new_error){ +if(qbevent){evnt(16604);if(r)goto S_19604;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip2613; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("_MK:[",5),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len("]:[",3)),_FUNC_EVALUATEFUNC_STRING_MKTYPE),qbs_new_txt_len("]",1)), 0, 0, 1); +if (new_error) goto skip2613; +skip2613: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(16604);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16605);}while(r); +do{ +goto LABEL_DONTEVALUATE; +if(!qbevent)break;evnt(16606);}while(r); +} +} +} +S_19612:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("UBOUND",6)))|(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("LBOUND",6)))))||new_error){ +if(qbevent){evnt(16611);if(r)goto S_19612;} +S_19613:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 1 ))||new_error){ +if(qbevent){evnt(16612);if(r)goto S_19613;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_EVALUATEFUNC_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(16614);}while(r); +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_EVALUATE(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16615);}while(r); +S_19616:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(16616);if(r)goto S_19616;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(16616);}while(r); +} +S_19619:; +if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||new_error){ +if(qbevent){evnt(16617);if(r)goto S_19619;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected array-name",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16617);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(16617);}while(r); +} +S_19623:; +if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISARRAY)== 0 ))||new_error){ +if(qbevent){evnt(16618);if(r)goto S_19623;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected array-name",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16618);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(16618);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_ULBOUNDARRAY,_FUNC_EVALUATEFUNC_STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16620);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_ULBOUNDARRAYTYP=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP; +if(!qbevent)break;evnt(16621);}while(r); +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16622);}while(r); +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16623);}while(r); +do{ +goto LABEL_DONTEVALUATE; +if(!qbevent)break;evnt(16624);}while(r); +} +} +S_19634:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("INPUT",5))))||new_error){ +if(qbevent){evnt(16630);if(r)goto S_19634;} +S_19635:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(528)),8,1)),qbs_new_txt_len("$",1))))||new_error){ +if(qbevent){evnt(16631);if(r)goto S_19635;} +S_19636:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 ))||new_error){ +if(qbevent){evnt(16632);if(r)goto S_19636;} +S_19637:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal((qbs_left(_FUNC_EVALUATEFUNC_STRING_E, 2 )),(qbs_add(qbs_new_txt_len("#",1),__STRING1_SP)))))||new_error){ +if(qbevent){evnt(16633);if(r)goto S_19637;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_right(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_STRING_E->len- 2 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16633);}while(r); +} +} +} +} +S_19643:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("ASC",3))))||new_error){ +if(qbevent){evnt(16640);if(r)goto S_19643;} +S_19644:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 ))||new_error){ +if(qbevent){evnt(16641);if(r)goto S_19644;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_EVALUATETOTYP(_FUNC_EVALUATEFUNC_STRING_E,&(pass2615= 32 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16642);}while(r); +S_19646:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(16643);if(r)goto S_19646;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(16643);}while(r); +} +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(16644);}while(r); +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16645);}while(r); +do{ +goto LABEL_EVALFUNCSPECIAL; +if(!qbevent)break;evnt(16646);}while(r); +} +} +S_19654:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_MEMGET",7)))|(((qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("MEMGET",6)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ +if(qbevent){evnt(16657);if(r)goto S_19654;} +S_19655:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 1 ))||new_error){ +if(qbevent){evnt(16658);if(r)goto S_19655;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_MEMGET_BLK,_FUNC_EVALUATEFUNC_STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16659);}while(r); +} +S_19658:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 ))||new_error){ +if(qbevent){evnt(16661);if(r)goto S_19658;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_MEMGET_OFFS,_FUNC_EVALUATEFUNC_STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16662);}while(r); +} +S_19661:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 3 ))||new_error){ +if(qbevent){evnt(16664);if(r)goto S_19661;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_ucase(_FUNC_EVALUATEFUNC_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16665);}while(r); +S_19663:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(__STRING1_SP,qbs_new_txt_len("*",1)),__STRING1_SP),0)))||new_error){ +if(qbevent){evnt(16666);if(r)goto S_19663;} +S_19664:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_FUNC_EVALUATEFUNC_STRING_E, 2 ),qbs_new_txt_len("&&",2))))||new_error){ +if(qbevent){evnt(16667);if(r)goto S_19664;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_left(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_STRING_E->len- 2 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16668);}while(r); +}else{ +S_19667:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_right(_FUNC_EVALUATEFUNC_STRING_E, 1 ),qbs_new_txt_len("&",1)))|(qbs_equal(qbs_right(_FUNC_EVALUATEFUNC_STRING_E, 1 ),qbs_new_txt_len("%",1)))))||new_error){ +if(qbevent){evnt(16670);if(r)goto S_19667;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_left(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_STRING_E->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16670);}while(r); +} +} +} +do{ +*_FUNC_EVALUATEFUNC_LONG_T=FUNC_TYPNAME2TYP(_FUNC_EVALUATEFUNC_STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16673);}while(r); +S_19673:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_T== 0 ))||new_error){ +if(qbevent){evnt(16674);if(r)goto S_19673;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Invalid TYPE name",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16674);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(16674);}while(r); +} +S_19677:; +if ((*_FUNC_EVALUATEFUNC_LONG_T&*__LONG_ISOFFSETINBITS)||new_error){ +if(qbevent){evnt(16675);if(r)goto S_19677;} +do{ +SUB_GIVE_ERROR(qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("BIT TYPE unsupported",20))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16675);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(16675);}while(r); +} +do{ +*_FUNC_EVALUATEFUNC_LONG_MEMGET_SIZE=*__LONG_TYPNAME2TYPSIZE; +if(!qbevent)break;evnt(16676);}while(r); +S_19682:; +if ((*_FUNC_EVALUATEFUNC_LONG_T&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(16677);if(r)goto S_19682;} +S_19683:; +if ((-((*_FUNC_EVALUATEFUNC_LONG_T&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ +if(qbevent){evnt(16678);if(r)goto S_19683;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected STRING * ...",21)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16678);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(16678);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_MEMGET_CTYP,qbs_new_txt_len("qbs*",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16679);}while(r); +}else{ +S_19689:; +if ((*_FUNC_EVALUATEFUNC_LONG_T&*__LONG_ISUDT)||new_error){ +if(qbevent){evnt(16681);if(r)goto S_19689;} +do{ +*_FUNC_EVALUATEFUNC_LONG_MEMGET_SIZE=((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*_FUNC_EVALUATEFUNC_LONG_T& 511 )-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])]/ 8 ; +if(!qbevent)break;evnt(16682);}while(r); +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_MEMGET_CTYP,qbs_new_txt_len("void*",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16683);}while(r); +}else{ +do{ +*_FUNC_EVALUATEFUNC_LONG_MEMGET_SIZE=(*_FUNC_EVALUATEFUNC_LONG_T& 511 )/ 8 ; +if(!qbevent)break;evnt(16685);}while(r); +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_MEMGET_CTYP,FUNC_TYP2CTYP(_FUNC_EVALUATEFUNC_LONG_T,qbs_new_txt_len("",0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16686);}while(r); +} +} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_OFFS,FUNC_EVALUATETOTYP(_FUNC_EVALUATEFUNC_STRING_MEMGET_OFFS,&(pass2618=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16695);}while(r); +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_BLKOFFS,FUNC_EVALUATETOTYP(_FUNC_EVALUATEFUNC_STRING_MEMGET_BLK,&(pass2619= -6 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16696);}while(r); +S_19699:; +if ((-(*__LONG_NOCHECKS== 0 ))||new_error){ +if(qbevent){evnt(16697);if(r)goto S_19699;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_OFFS,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("func__memget((mem_block*)",25),_FUNC_EVALUATEFUNC_STRING_BLKOFFS),qbs_new_txt_len(",",1)),_FUNC_EVALUATEFUNC_STRING_OFFS),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATEFUNC_LONG_MEMGET_SIZE)),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16699);}while(r); +} +S_19702:; +if ((*_FUNC_EVALUATEFUNC_LONG_T&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(16701);if(r)goto S_19702;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_new_txt_len((char*)",23),_FUNC_EVALUATEFUNC_STRING_OFFS),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATEFUNC_LONG_MEMGET_SIZE)),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16702);}while(r); +}else{ +S_19705:; +if ((*_FUNC_EVALUATEFUNC_LONG_T&*__LONG_ISUDT)||new_error){ +if(qbevent){evnt(16704);if(r)goto S_19705;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_new_txt_len("((void*)+",9),_FUNC_EVALUATEFUNC_STRING_OFFS),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16705);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_T=*__LONG_ISUDT+*__LONG_ISPOINTER+(*_FUNC_EVALUATEFUNC_LONG_T& 511 ); +if(!qbevent)break;evnt(16706);}while(r); +}else{ +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*(",2),_FUNC_EVALUATEFUNC_STRING_MEMGET_CTYP),qbs_new_txt_len("*)(",3)),_FUNC_EVALUATEFUNC_STRING_OFFS),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16708);}while(r); +S_19710:; +if ((*_FUNC_EVALUATEFUNC_LONG_T&*__LONG_ISPOINTER)||new_error){ +if(qbevent){evnt(16709);if(r)goto S_19710;} +do{ +*_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(16709);}while(r); +} +} +} +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP=*_FUNC_EVALUATEFUNC_LONG_T; +if(!qbevent)break;evnt(16719);}while(r); +do{ +goto LABEL_EVALFUNCSPECIAL; +if(!qbevent)break;evnt(16722);}while(r); +} +} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E2,_FUNC_EVALUATEFUNC_STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16727);}while(r); +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_EVALUATE(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16728);}while(r); +S_19721:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(16729);if(r)goto S_19721;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(16729);}while(r); +} +S_19724:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_ROR",4)))|(((qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("ROR",3)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))|(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_ROL",4)))|(((qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("ROL",3)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ +if(qbevent){evnt(16733);if(r)goto S_19724;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_ROTLR_N,qbs_lcase(qbs_right(_FUNC_EVALUATEFUNC_STRING_N, 3 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16734);}while(r); +S_19726:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 1 ))||new_error){ +if(qbevent){evnt(16735);if(r)goto S_19726;} +S_19727:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING)|(*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT)|(*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSET)|(*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUDT))||new_error){ +if(qbevent){evnt(16736);if(r)goto S_19727;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected non-floating-point value",33)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16737);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(16738);}while(r); +} +S_19731:; +if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)||new_error){ +if(qbevent){evnt(16740);if(r)goto S_19731;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2620= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16740);}while(r); +} +S_19734:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(16741);if(r)goto S_19734;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(16741);}while(r); +} +S_19737:; +if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 )== 8 ))||new_error){ +if(qbevent){evnt(16743);if(r)goto S_19737;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("func__",6),_FUNC_EVALUATEFUNC_STRING_ROTLR_N),qbs_new_txt_len("8(",2)),_FUNC_EVALUATEFUNC_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16744);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_UBYTETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(16745);}while(r); +S_19740:; +}else{ +if (-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 )== 16 )){ +if(qbevent){evnt(16746);if(r)goto S_19740;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("func__",6),_FUNC_EVALUATEFUNC_STRING_ROTLR_N),qbs_new_txt_len("16(",3)),_FUNC_EVALUATEFUNC_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16747);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_UINTEGERTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(16748);}while(r); +S_19743:; +}else{ +if (-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 )== 32 )){ +if(qbevent){evnt(16749);if(r)goto S_19743;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("func__",6),_FUNC_EVALUATEFUNC_STRING_ROTLR_N),qbs_new_txt_len("32(",3)),_FUNC_EVALUATEFUNC_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16750);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_ULONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(16751);}while(r); +S_19746:; +}else{ +if (-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 )== 64 )){ +if(qbevent){evnt(16752);if(r)goto S_19746;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("func__",6),_FUNC_EVALUATEFUNC_STRING_ROTLR_N),qbs_new_txt_len("64(",3)),_FUNC_EVALUATEFUNC_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16753);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(16754);}while(r); +}else{ +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Unknown data size",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16756);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(16757);}while(r); +} +} +} +} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16759);}while(r); +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16760);}while(r); +do{ +goto LABEL_DONTEVALUATE; +if(!qbevent)break;evnt(16761);}while(r); +S_19756:; +}else{ +if (-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 )){ +if(qbevent){evnt(16762);if(r)goto S_19756;} +S_19757:; +if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)||new_error){ +if(qbevent){evnt(16763);if(r)goto S_19757;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2621= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16763);}while(r); +} +S_19760:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(16764);if(r)goto S_19760;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(16764);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16765);}while(r); +do{ +goto LABEL_EVALFUNCSPECIAL; +if(!qbevent)break;evnt(16766);}while(r); +} +} +} +S_19767:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_MEM",4)))|(((qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("MEM",3)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ +if(qbevent){evnt(16771);if(r)goto S_19767;} +S_19768:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 1 ))||new_error){ +if(qbevent){evnt(16772);if(r)goto S_19768;} +S_19769:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_ARGS== 1 ))||new_error){ +if(qbevent){evnt(16773);if(r)goto S_19769;} +do{ +*_FUNC_EVALUATEFUNC_LONG_TARGETTYP= -7 ; +if(!qbevent)break;evnt(16774);}while(r); +} +S_19772:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_ARGS== 2 ))||new_error){ +if(qbevent){evnt(16776);if(r)goto S_19772;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(550)),256,1)),qbs_new_txt_len("_at_offset",10)),qbs_right(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_R->len-((int32)(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(550)),256,1)))->len)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16777);}while(r); +S_19774:; +if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSET)== 0 ))||new_error){ +if(qbevent){evnt(16778);if(r)goto S_19774;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected _MEM(_OFFSET-value,...)",32)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16778);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(16778);}while(r); +} +} +} +} +S_19781:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_OFFSET",7)))|(((qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("OFFSET",6)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ +if(qbevent){evnt(16784);if(r)goto S_19781;} +S_19782:; +if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||new_error){ +if(qbevent){evnt(16785);if(r)goto S_19782;} +do{ +SUB_GIVE_ERROR(qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("OFFSET expects the name of a variable/array",43))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16786);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(16786);}while(r); +} +S_19786:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISARRAY))||new_error){ +if(qbevent){evnt(16788);if(r)goto S_19786;} +S_19787:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSETINBITS))||new_error){ +if(qbevent){evnt(16789);if(r)goto S_19787;} +do{ +SUB_GIVE_ERROR(qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("OFFSET cannot reference _BIT type arrays",40))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16789);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(16789);}while(r); +} +} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_new_txt_len("((uptrszint)(",13),FUNC_EVALUATETOTYP(_FUNC_EVALUATEFUNC_STRING_E2,&(pass2623= -6 ))),qbs_new_txt_len("))",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16791);}while(r); +S_19793:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(16792);if(r)goto S_19793;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(16792);}while(r); +} +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_UOFFSETTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(16793);}while(r); +do{ +goto LABEL_EVALFUNCSPECIAL; +if(!qbevent)break;evnt(16794);}while(r); +} +S_19799:; +if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSET)||new_error){ +if(qbevent){evnt(16798);if(r)goto S_19799;} +S_19800:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("MKSMBF",6)))&(qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(528)),8,1)),qbs_new_txt_len("$",1)))))||new_error){ +if(qbevent){evnt(16799);if(r)goto S_19800;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Cannot convert _OFFSET type to other types",42)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16799);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(16799);}while(r); +} +S_19804:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("MKDMBF",6)))&(qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(528)),8,1)),qbs_new_txt_len("$",1)))))||new_error){ +if(qbevent){evnt(16800);if(r)goto S_19804;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Cannot convert _OFFSET type to other types",42)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16800);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(16800);}while(r); +} +} +S_19809:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("ENVIRON",7))))||new_error){ +if(qbevent){evnt(16804);if(r)goto S_19809;} +S_19810:; +if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(16805);if(r)goto S_19810;} +S_19811:; +if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)||new_error){ +if(qbevent){evnt(16806);if(r)goto S_19811;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2624= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16806);}while(r); +} +S_19814:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(16807);if(r)goto S_19814;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(16807);}while(r); +} +do{ +goto LABEL_DONTEVALUATE; +if(!qbevent)break;evnt(16808);}while(r); +} +} +S_19820:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("LEN",3))))||new_error){ +if(qbevent){evnt(16813);if(r)goto S_19820;} +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(16814);}while(r); +S_19822:; +if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||new_error){ +if(qbevent){evnt(16815);if(r)goto S_19822;} +S_19823:; +if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(16817);if(r)goto S_19823;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_new_txt_len("((int32)(",9),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")->len)",7))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16818);}while(r); +do{ +goto LABEL_EVALFUNCSPECIAL; +if(!qbevent)break;evnt(16819);}while(r); +} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("String expression or variable name required in LEN statement",60)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16821);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(16821);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,FUNC_EVALUATETOTYP(_FUNC_EVALUATEFUNC_STRING_E2,&(pass2625= -5 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16823);}while(r); +S_19831:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(16824);if(r)goto S_19831;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(16824);}while(r); +} +do{ +goto LABEL_EVALFUNCSPECIAL; +if(!qbevent)break;evnt(16825);}while(r); +} +S_19836:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_BIN",4)))|(((qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("BIN",3)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ +if(qbevent){evnt(16830);if(r)goto S_19836;} +S_19837:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(528)),8,1)),qbs_new_txt_len("$",1))))||new_error){ +if(qbevent){evnt(16831);if(r)goto S_19837;} +do{ +*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ; +if(!qbevent)break;evnt(16832);}while(r); +S_19839:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(16834);if(r)goto S_19839;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16834);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(16834);}while(r); +} +do{ +*_FUNC_EVALUATEFUNC_LONG_WASREF= 0 ; +if(!qbevent)break;evnt(16835);}while(r); +S_19844:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ +if(qbevent){evnt(16836);if(r)goto S_19844;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2626= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16836);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_WASREF= 1 ; +if(!qbevent)break;evnt(16836);}while(r); +} +S_19848:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(16837);if(r)goto S_19848;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(16837);}while(r); +} +do{ +*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ; +if(!qbevent)break;evnt(16838);}while(r); +S_19852:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSETINBITS))||new_error){ +if(qbevent){evnt(16839);if(r)goto S_19852;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("func__bin(",10),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATEFUNC_LONG_BITS)),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16840);}while(r); +}else{ +S_19855:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||new_error){ +if(qbevent){evnt(16842);if(r)goto S_19855;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func__bin_float(",16),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16843);}while(r); +}else{ +S_19858:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 64 ))||new_error){ +if(qbevent){evnt(16845);if(r)goto S_19858;} +S_19859:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_WASREF== 0 ))||new_error){ +if(qbevent){evnt(16846);if(r)goto S_19859;} +do{ +*_FUNC_EVALUATEFUNC_LONG_BITS= 0 ; +if(!qbevent)break;evnt(16846);}while(r); +} +} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("func__bin(",10),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATEFUNC_LONG_BITS)),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16848);}while(r); +} +} +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(16851);}while(r); +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16852);}while(r); +do{ +goto LABEL_EVALFUNCSPECIAL; +if(!qbevent)break;evnt(16853);}while(r); +} +} +S_19871:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("OCT",3))))||new_error){ +if(qbevent){evnt(16858);if(r)goto S_19871;} +S_19872:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(528)),8,1)),qbs_new_txt_len("$",1))))||new_error){ +if(qbevent){evnt(16859);if(r)goto S_19872;} +do{ +*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ; +if(!qbevent)break;evnt(16860);}while(r); +S_19874:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(16862);if(r)goto S_19874;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16862);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(16862);}while(r); +} +do{ +*_FUNC_EVALUATEFUNC_LONG_WASREF= 0 ; +if(!qbevent)break;evnt(16863);}while(r); +S_19879:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ +if(qbevent){evnt(16864);if(r)goto S_19879;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2627= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16864);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_WASREF= 1 ; +if(!qbevent)break;evnt(16864);}while(r); +} +S_19883:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(16865);if(r)goto S_19883;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(16865);}while(r); +} +do{ +*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ; +if(!qbevent)break;evnt(16866);}while(r); +S_19887:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSETINBITS))||new_error){ +if(qbevent){evnt(16867);if(r)goto S_19887;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("func_oct(",9),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATEFUNC_LONG_BITS)),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16868);}while(r); +}else{ +S_19890:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||new_error){ +if(qbevent){evnt(16870);if(r)goto S_19890;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_oct_float(",15),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16871);}while(r); +}else{ +S_19893:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 64 ))||new_error){ +if(qbevent){evnt(16873);if(r)goto S_19893;} +S_19894:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_WASREF== 0 ))||new_error){ +if(qbevent){evnt(16874);if(r)goto S_19894;} +do{ +*_FUNC_EVALUATEFUNC_LONG_BITS= 0 ; +if(!qbevent)break;evnt(16874);}while(r); +} +} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("func_oct(",9),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATEFUNC_LONG_BITS)),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16876);}while(r); +} +} +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(16879);}while(r); +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16880);}while(r); +do{ +goto LABEL_EVALFUNCSPECIAL; +if(!qbevent)break;evnt(16881);}while(r); +} +} +S_19906:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("HEX",3))))||new_error){ +if(qbevent){evnt(16886);if(r)goto S_19906;} +S_19907:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(528)),8,1)),qbs_new_txt_len("$",1))))||new_error){ +if(qbevent){evnt(16887);if(r)goto S_19907;} +do{ +*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ; +if(!qbevent)break;evnt(16888);}while(r); +S_19909:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(16889);if(r)goto S_19909;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16889);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(16889);}while(r); +} +do{ +*_FUNC_EVALUATEFUNC_LONG_WASREF= 0 ; +if(!qbevent)break;evnt(16890);}while(r); +S_19914:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ +if(qbevent){evnt(16891);if(r)goto S_19914;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2628= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16891);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_WASREF= 1 ; +if(!qbevent)break;evnt(16891);}while(r); +} +S_19918:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(16892);if(r)goto S_19918;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(16892);}while(r); +} +do{ +*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ; +if(!qbevent)break;evnt(16893);}while(r); +S_19922:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSETINBITS))||new_error){ +if(qbevent){evnt(16894);if(r)goto S_19922;} +do{ +*_FUNC_EVALUATEFUNC_LONG_CHARS=(*_FUNC_EVALUATEFUNC_LONG_BITS+ 3 )/ 4 ; +if(!qbevent)break;evnt(16895);}while(r); +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("func_hex(",9),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATEFUNC_LONG_CHARS)),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16896);}while(r); +}else{ +S_19926:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||new_error){ +if(qbevent){evnt(16898);if(r)goto S_19926;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_hex_float(",15),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16899);}while(r); +}else{ +S_19929:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 8 ))||new_error){ +if(qbevent){evnt(16901);if(r)goto S_19929;} +do{ +*_FUNC_EVALUATEFUNC_LONG_CHARS= 2 ; +if(!qbevent)break;evnt(16901);}while(r); +} +S_19932:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 16 ))||new_error){ +if(qbevent){evnt(16902);if(r)goto S_19932;} +do{ +*_FUNC_EVALUATEFUNC_LONG_CHARS= 4 ; +if(!qbevent)break;evnt(16902);}while(r); +} +S_19935:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 32 ))||new_error){ +if(qbevent){evnt(16903);if(r)goto S_19935;} +do{ +*_FUNC_EVALUATEFUNC_LONG_CHARS= 8 ; +if(!qbevent)break;evnt(16903);}while(r); +} +S_19938:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 64 ))||new_error){ +if(qbevent){evnt(16904);if(r)goto S_19938;} +S_19939:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_WASREF== 1 ))||new_error){ +if(qbevent){evnt(16905);if(r)goto S_19939;} +do{ +*_FUNC_EVALUATEFUNC_LONG_CHARS= 16 ; +if(!qbevent)break;evnt(16905);}while(r); +}else{ +do{ +*_FUNC_EVALUATEFUNC_LONG_CHARS= 0 ; +if(!qbevent)break;evnt(16905);}while(r); +} +} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("func_hex(",9),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATEFUNC_LONG_CHARS)),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16907);}while(r); +} +} +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(16910);}while(r); +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16911);}while(r); +do{ +goto LABEL_EVALFUNCSPECIAL; +if(!qbevent)break;evnt(16912);}while(r); +} +} +S_19953:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("EXP",3))))||new_error){ +if(qbevent){evnt(16918);if(r)goto S_19953;} +do{ +*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ; +if(!qbevent)break;evnt(16919);}while(r); +S_19955:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(16920);if(r)goto S_19955;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16920);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(16920);}while(r); +} +S_19959:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ +if(qbevent){evnt(16921);if(r)goto S_19959;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2629= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16921);}while(r); +} +S_19962:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(16922);if(r)goto S_19962;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(16922);}while(r); +} +do{ +*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ; +if(!qbevent)break;evnt(16923);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(16924);}while(r); +S_19967:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||new_error){ +if(qbevent){evnt(16925);if(r)goto S_19967;} +S_19968:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 32 ))||new_error){ +if(qbevent){evnt(16926);if(r)goto S_19968;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_exp_single(",16),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16926);}while(r); +}else{ +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_exp_float(",15),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16926);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(16926);}while(r); +} +}else{ +S_19975:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSETINBITS))||new_error){ +if(qbevent){evnt(16928);if(r)goto S_19975;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_exp_float(",15),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16929);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(16929);}while(r); +}else{ +S_19979:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS<= 16 ))||new_error){ +if(qbevent){evnt(16931);if(r)goto S_19979;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_exp_single(",16),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16931);}while(r); +}else{ +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_exp_float(",15),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16931);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(16931);}while(r); +} +} +} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16934);}while(r); +do{ +goto LABEL_EVALFUNCSPECIAL; +if(!qbevent)break;evnt(16935);}while(r); +} +S_19990:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("INT",3))))||new_error){ +if(qbevent){evnt(16939);if(r)goto S_19990;} +S_19991:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(16940);if(r)goto S_19991;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16940);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(16940);}while(r); +} +S_19995:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ +if(qbevent){evnt(16941);if(r)goto S_19995;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2630= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16941);}while(r); +} +S_19998:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(16942);if(r)goto S_19998;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(16942);}while(r); +} +S_20001:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||new_error){ +if(qbevent){evnt(16944);if(r)goto S_20001;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("floor(",6),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16944);}while(r); +}else{ +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(",1),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16944);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16945);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP; +if(!qbevent)break;evnt(16946);}while(r); +do{ +goto LABEL_EVALFUNCSPECIAL; +if(!qbevent)break;evnt(16947);}while(r); +} +S_20010:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("FIX",3))))||new_error){ +if(qbevent){evnt(16951);if(r)goto S_20010;} +S_20011:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(16952);if(r)goto S_20011;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16952);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(16952);}while(r); +} +S_20015:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ +if(qbevent){evnt(16953);if(r)goto S_20015;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2631= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16953);}while(r); +} +S_20018:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(16954);if(r)goto S_20018;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(16954);}while(r); +} +do{ +*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ; +if(!qbevent)break;evnt(16956);}while(r); +S_20022:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||new_error){ +if(qbevent){evnt(16957);if(r)goto S_20022;} +S_20023:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 64 ))||new_error){ +if(qbevent){evnt(16958);if(r)goto S_20023;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_fix_float(",15),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16958);}while(r); +}else{ +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_fix_double(",16),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16958);}while(r); +} +}else{ +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(",1),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16960);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16962);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP; +if(!qbevent)break;evnt(16963);}while(r); +do{ +goto LABEL_EVALFUNCSPECIAL; +if(!qbevent)break;evnt(16964);}while(r); +} +S_20035:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_ROUND",6)))|(((qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("ROUND",5)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ +if(qbevent){evnt(16968);if(r)goto S_20035;} +S_20036:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(16969);if(r)goto S_20036;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16969);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(16969);}while(r); +} +S_20040:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ +if(qbevent){evnt(16970);if(r)goto S_20040;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2632= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16970);}while(r); +} +S_20043:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(16971);if(r)goto S_20043;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(16971);}while(r); +} +S_20046:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||new_error){ +if(qbevent){evnt(16973);if(r)goto S_20046;} +do{ +*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ; +if(!qbevent)break;evnt(16974);}while(r); +S_20048:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 64 ))||new_error){ +if(qbevent){evnt(16975);if(r)goto S_20048;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_round_float(",17),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16975);}while(r); +}else{ +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_round_double(",18),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16975);}while(r); +} +}else{ +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(",1),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16977);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16979);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ; +if(!qbevent)break;evnt(16980);}while(r); +S_20058:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSET))||new_error){ +if(qbevent){evnt(16981);if(r)goto S_20058;} +S_20059:; +if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUNSIGNED)||new_error){ +if(qbevent){evnt(16982);if(r)goto S_20059;} +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_UOFFSETTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(16982);}while(r); +}else{ +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(16982);}while(r); +} +} +do{ +goto LABEL_EVALFUNCSPECIAL; +if(!qbevent)break;evnt(16984);}while(r); +} +S_20067:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("CDBL",4))))||new_error){ +if(qbevent){evnt(16989);if(r)goto S_20067;} +S_20068:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSET))||new_error){ +if(qbevent){evnt(16990);if(r)goto S_20068;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Cannot convert _OFFSET type to other types",42)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16990);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(16990);}while(r); +} +S_20072:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(16991);if(r)goto S_20072;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16991);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(16991);}while(r); +} +S_20076:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ +if(qbevent){evnt(16992);if(r)goto S_20076;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2633= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16992);}while(r); +} +S_20079:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(16993);if(r)goto S_20079;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(16993);}while(r); +} +do{ +*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ; +if(!qbevent)break;evnt(16995);}while(r); +S_20083:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||new_error){ +if(qbevent){evnt(16996);if(r)goto S_20083;} +S_20084:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 64 ))||new_error){ +if(qbevent){evnt(16997);if(r)goto S_20084;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_cdbl_float(",16),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16997);}while(r); +} +}else{ +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("((double)(",10),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len("))",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(16999);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17001);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(17002);}while(r); +do{ +goto LABEL_EVALFUNCSPECIAL; +if(!qbevent)break;evnt(17003);}while(r); +} +S_20094:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("CSNG",4))))||new_error){ +if(qbevent){evnt(17007);if(r)goto S_20094;} +S_20095:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSET))||new_error){ +if(qbevent){evnt(17008);if(r)goto S_20095;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Cannot convert _OFFSET type to other types",42)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17008);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17008);}while(r); +} +S_20099:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(17009);if(r)goto S_20099;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17009);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17009);}while(r); +} +S_20103:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ +if(qbevent){evnt(17010);if(r)goto S_20103;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2634= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17010);}while(r); +} +S_20106:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(17011);if(r)goto S_20106;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17011);}while(r); +} +do{ +*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ; +if(!qbevent)break;evnt(17013);}while(r); +S_20110:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||new_error){ +if(qbevent){evnt(17014);if(r)goto S_20110;} +S_20111:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 64 ))||new_error){ +if(qbevent){evnt(17015);if(r)goto S_20111;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_csng_double(",17),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17015);}while(r); +} +S_20114:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 64 ))||new_error){ +if(qbevent){evnt(17016);if(r)goto S_20114;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_csng_float(",16),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17016);}while(r); +} +}else{ +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("((double)(",10),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len("))",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17018);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17020);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(17021);}while(r); +do{ +goto LABEL_EVALFUNCSPECIAL; +if(!qbevent)break;evnt(17022);}while(r); +} +S_20124:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("CLNG",4))))||new_error){ +if(qbevent){evnt(17027);if(r)goto S_20124;} +S_20125:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSET))||new_error){ +if(qbevent){evnt(17028);if(r)goto S_20125;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Cannot convert _OFFSET type to other types",42)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17028);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17028);}while(r); +} +S_20129:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(17029);if(r)goto S_20129;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17029);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17029);}while(r); +} +S_20133:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ +if(qbevent){evnt(17030);if(r)goto S_20133;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2635= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17030);}while(r); +} +S_20136:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(17031);if(r)goto S_20136;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17031);}while(r); +} +do{ +*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ; +if(!qbevent)break;evnt(17033);}while(r); +S_20140:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||new_error){ +if(qbevent){evnt(17034);if(r)goto S_20140;} +S_20141:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 64 ))||new_error){ +if(qbevent){evnt(17035);if(r)goto S_20141;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_clng_float(",16),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17035);}while(r); +}else{ +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_clng_double(",17),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17035);}while(r); +} +}else{ +S_20147:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUNSIGNED))||new_error){ +if(qbevent){evnt(17037);if(r)goto S_20147;} +S_20148:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 32 ))||new_error){ +if(qbevent){evnt(17038);if(r)goto S_20148;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_clng_ulong(",16),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17038);}while(r); +} +S_20151:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 32 ))||new_error){ +if(qbevent){evnt(17039);if(r)goto S_20151;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_clng_uint64(",17),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17039);}while(r); +} +}else{ +S_20155:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 32 ))||new_error){ +if(qbevent){evnt(17041);if(r)goto S_20155;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_clng_int64(",16),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17041);}while(r); +} +} +} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17044);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP= 32 ; +if(!qbevent)break;evnt(17045);}while(r); +do{ +goto LABEL_EVALFUNCSPECIAL; +if(!qbevent)break;evnt(17046);}while(r); +} +S_20164:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("CINT",4))))||new_error){ +if(qbevent){evnt(17050);if(r)goto S_20164;} +S_20165:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSET))||new_error){ +if(qbevent){evnt(17051);if(r)goto S_20165;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Cannot convert _OFFSET type to other types",42)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17051);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17051);}while(r); +} +S_20169:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(17052);if(r)goto S_20169;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric value",22)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17052);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17052);}while(r); +} +S_20173:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ +if(qbevent){evnt(17053);if(r)goto S_20173;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2636= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17053);}while(r); +} +S_20176:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(17054);if(r)goto S_20176;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17054);}while(r); +} +do{ +*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ; +if(!qbevent)break;evnt(17056);}while(r); +S_20180:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||new_error){ +if(qbevent){evnt(17057);if(r)goto S_20180;} +S_20181:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 64 ))||new_error){ +if(qbevent){evnt(17058);if(r)goto S_20181;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_cint_float(",16),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17058);}while(r); +}else{ +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_cint_double(",17),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17058);}while(r); +} +}else{ +S_20187:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUNSIGNED))||new_error){ +if(qbevent){evnt(17060);if(r)goto S_20187;} +S_20188:; +if (((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 15 ))&(-(*_FUNC_EVALUATEFUNC_LONG_BITS<= 32 )))||new_error){ +if(qbevent){evnt(17061);if(r)goto S_20188;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_cint_ulong(",16),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17061);}while(r); +} +S_20191:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 32 ))||new_error){ +if(qbevent){evnt(17062);if(r)goto S_20191;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_cint_uint64(",17),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17062);}while(r); +} +}else{ +S_20195:; +if (((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 16 ))&(-(*_FUNC_EVALUATEFUNC_LONG_BITS<= 32 )))||new_error){ +if(qbevent){evnt(17064);if(r)goto S_20195;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_cint_long(",15),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17064);}while(r); +} +S_20198:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 32 ))||new_error){ +if(qbevent){evnt(17065);if(r)goto S_20198;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("func_cint_int64(",16),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17065);}while(r); +} +} +} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17068);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP= 16 ; +if(!qbevent)break;evnt(17069);}while(r); +do{ +goto LABEL_EVALFUNCSPECIAL; +if(!qbevent)break;evnt(17070);}while(r); +} +do{ +*_FUNC_EVALUATEFUNC_LONG_MKTYPE= 0 ; +if(!qbevent)break;evnt(17074);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_SIZE= 0 ; +if(!qbevent)break;evnt(17075);}while(r); +S_20209:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("MKI",3))))||new_error){ +if(qbevent){evnt(17076);if(r)goto S_20209;} +do{ +*_FUNC_EVALUATEFUNC_LONG_MKTYPE= 1 ; +if(!qbevent)break;evnt(17076);}while(r); +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("%",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17076);}while(r); +} +S_20213:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("MKL",3))))||new_error){ +if(qbevent){evnt(17077);if(r)goto S_20213;} +do{ +*_FUNC_EVALUATEFUNC_LONG_MKTYPE= 2 ; +if(!qbevent)break;evnt(17077);}while(r); +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("&",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17077);}while(r); +} +S_20217:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("MKS",3))))||new_error){ +if(qbevent){evnt(17078);if(r)goto S_20217;} +do{ +*_FUNC_EVALUATEFUNC_LONG_MKTYPE= 3 ; +if(!qbevent)break;evnt(17078);}while(r); +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("!",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17078);}while(r); +} +S_20221:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("MKD",3))))||new_error){ +if(qbevent){evnt(17079);if(r)goto S_20221;} +do{ +*_FUNC_EVALUATEFUNC_LONG_MKTYPE= 4 ; +if(!qbevent)break;evnt(17079);}while(r); +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("#",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17079);}while(r); +} +S_20225:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_MK",3)))|(((qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("MK",2)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ +if(qbevent){evnt(17080);if(r)goto S_20225;} +do{ +*_FUNC_EVALUATEFUNC_LONG_MKTYPE= -1 ; +if(!qbevent)break;evnt(17080);}while(r); +} +S_20228:; +if ((*_FUNC_EVALUATEFUNC_LONG_MKTYPE)||new_error){ +if(qbevent){evnt(17081);if(r)goto S_20228;} +S_20229:; +if (((-(*_FUNC_EVALUATEFUNC_LONG_MKTYPE!= -1 ))|(-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 )))||new_error){ +if(qbevent){evnt(17082);if(r)goto S_20229;} +do{ +*_FUNC_EVALUATEFUNC_LONG_QTYP= 0 ; +if(!qbevent)break;evnt(17085);}while(r); +S_20231:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("%%",2))))||new_error){ +if(qbevent){evnt(17086);if(r)goto S_20231;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("b",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17086);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_BYTETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(17086);}while(r); +} +S_20235:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("~%%",3))))||new_error){ +if(qbevent){evnt(17087);if(r)goto S_20235;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ub",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17087);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_UBYTETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(17087);}while(r); +} +S_20239:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("%",1))))||new_error){ +if(qbevent){evnt(17088);if(r)goto S_20239;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("i",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17088);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_INTEGERTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(17088);}while(r); +} +S_20243:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("~%",2))))||new_error){ +if(qbevent){evnt(17089);if(r)goto S_20243;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ui",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17089);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_UINTEGERTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(17089);}while(r); +} +S_20247:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("&",1))))||new_error){ +if(qbevent){evnt(17090);if(r)goto S_20247;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("l",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17090);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(17090);}while(r); +} +S_20251:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("~&",2))))||new_error){ +if(qbevent){evnt(17091);if(r)goto S_20251;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ul",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17091);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_ULONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(17091);}while(r); +} +S_20255:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("&&",2))))||new_error){ +if(qbevent){evnt(17092);if(r)goto S_20255;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("i64",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17092);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(17092);}while(r); +} +S_20259:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("~&&",3))))||new_error){ +if(qbevent){evnt(17093);if(r)goto S_20259;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ui64",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17093);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(17093);}while(r); +} +S_20263:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("!",1))))||new_error){ +if(qbevent){evnt(17094);if(r)goto S_20263;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("s",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17094);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(17094);}while(r); +} +S_20267:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("#",1))))||new_error){ +if(qbevent){evnt(17095);if(r)goto S_20267;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("d",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17095);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(17095);}while(r); +} +S_20271:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("##",2))))||new_error){ +if(qbevent){evnt(17096);if(r)goto S_20271;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("f",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17096);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(17096);}while(r); +} +S_20275:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("%&",2))))||new_error){ +if(qbevent){evnt(17097);if(r)goto S_20275;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("o",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17097);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(17097);}while(r); +} +S_20279:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_MKTYPE,qbs_new_txt_len("~%&",3))))||new_error){ +if(qbevent){evnt(17098);if(r)goto S_20279;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("uo",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17098);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_UOFFSETTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(17098);}while(r); +} +S_20283:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_EVALUATEFUNC_STRING_MKTYPE, 2 ),qbs_new_txt_len("~`",2))))||new_error){ +if(qbevent){evnt(17099);if(r)goto S_20283;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ubit",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17099);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(17099);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_SIZE=qbr(func_val(qbs_right(_FUNC_EVALUATEFUNC_STRING_MKTYPE,_FUNC_EVALUATEFUNC_STRING_MKTYPE->len- 2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17099);}while(r); +} +S_20288:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_EVALUATEFUNC_STRING_MKTYPE, 1 ),qbs_new_txt_len("`",1))))||new_error){ +if(qbevent){evnt(17100);if(r)goto S_20288;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("bit",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17100);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_QTYP=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(17100);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_SIZE=qbr(func_val(qbs_right(_FUNC_EVALUATEFUNC_STRING_MKTYPE,_FUNC_EVALUATEFUNC_STRING_MKTYPE->len- 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17100);}while(r); +} +S_20293:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_QTYP== 0 ))||new_error){ +if(qbevent){evnt(17101);if(r)goto S_20293;} +do{ +SUB_GIVE_ERROR(qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MK only accepts numeric types",29))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17101);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17101);}while(r); +} +S_20297:; +if ((*_FUNC_EVALUATEFUNC_LONG_SIZE)||new_error){ +if(qbevent){evnt(17102);if(r)goto S_20297;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_add(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("2string(",8)),FUNC_STR2(_FUNC_EVALUATEFUNC_LONG_SIZE)),qbs_new_txt_len(",",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17103);}while(r); +}else{ +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("2string(",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17105);}while(r); +} +do{ +*_FUNC_EVALUATEFUNC_LONG_NOCOMMA= 1 ; +if(!qbevent)break;evnt(17107);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_TARGETTYP=*_FUNC_EVALUATEFUNC_LONG_QTYP; +if(!qbevent)break;evnt(17108);}while(r); +} +} +do{ +*_FUNC_EVALUATEFUNC_LONG_CVTYPE= 0 ; +if(!qbevent)break;evnt(17113);}while(r); +S_20307:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("CVI",3))))||new_error){ +if(qbevent){evnt(17114);if(r)goto S_20307;} +do{ +*_FUNC_EVALUATEFUNC_LONG_CVTYPE= 1 ; +if(!qbevent)break;evnt(17114);}while(r); +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("%",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17114);}while(r); +} +S_20311:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("CVL",3))))||new_error){ +if(qbevent){evnt(17115);if(r)goto S_20311;} +do{ +*_FUNC_EVALUATEFUNC_LONG_CVTYPE= 2 ; +if(!qbevent)break;evnt(17115);}while(r); +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("&",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17115);}while(r); +} +S_20315:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("CVS",3))))||new_error){ +if(qbevent){evnt(17116);if(r)goto S_20315;} +do{ +*_FUNC_EVALUATEFUNC_LONG_CVTYPE= 3 ; +if(!qbevent)break;evnt(17116);}while(r); +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("!",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17116);}while(r); +} +S_20319:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("CVD",3))))||new_error){ +if(qbevent){evnt(17117);if(r)goto S_20319;} +do{ +*_FUNC_EVALUATEFUNC_LONG_CVTYPE= 4 ; +if(!qbevent)break;evnt(17117);}while(r); +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("#",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17117);}while(r); +} +S_20323:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_CV",3)))|(((qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("CV",2)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ +if(qbevent){evnt(17118);if(r)goto S_20323;} +do{ +*_FUNC_EVALUATEFUNC_LONG_CVTYPE= -1 ; +if(!qbevent)break;evnt(17118);}while(r); +} +S_20326:; +if ((*_FUNC_EVALUATEFUNC_LONG_CVTYPE)||new_error){ +if(qbevent){evnt(17119);if(r)goto S_20326;} +S_20327:; +if (((-(*_FUNC_EVALUATEFUNC_LONG_CVTYPE!= -1 ))|(-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 )))||new_error){ +if(qbevent){evnt(17120);if(r)goto S_20327;} +S_20328:; +if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING)== 0 ))||new_error){ +if(qbevent){evnt(17121);if(r)goto S_20328;} +do{ +SUB_GIVE_ERROR(qbs_add(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len(" requires a STRING argument",27))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17121);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17121);}while(r); +} +S_20332:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ +if(qbevent){evnt(17122);if(r)goto S_20332;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2639= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17122);}while(r); +} +S_20335:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(17123);if(r)goto S_20335;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17123);}while(r); +} +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP= 0 ; +if(!qbevent)break;evnt(17124);}while(r); +S_20339:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("%%",2))))||new_error){ +if(qbevent){evnt(17125);if(r)goto S_20339;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("b",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17125);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_BYTETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(17125);}while(r); +} +S_20343:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("~%%",3))))||new_error){ +if(qbevent){evnt(17126);if(r)goto S_20343;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ub",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17126);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_UBYTETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(17126);}while(r); +} +S_20347:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("%",1))))||new_error){ +if(qbevent){evnt(17127);if(r)goto S_20347;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("i",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17127);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_INTEGERTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(17127);}while(r); +} +S_20351:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("~%",2))))||new_error){ +if(qbevent){evnt(17128);if(r)goto S_20351;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ui",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17128);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_UINTEGERTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(17128);}while(r); +} +S_20355:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("&",1))))||new_error){ +if(qbevent){evnt(17129);if(r)goto S_20355;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("l",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17129);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(17129);}while(r); +} +S_20359:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("~&",2))))||new_error){ +if(qbevent){evnt(17130);if(r)goto S_20359;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ul",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17130);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_ULONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(17130);}while(r); +} +S_20363:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("&&",2))))||new_error){ +if(qbevent){evnt(17131);if(r)goto S_20363;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("i64",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17131);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(17131);}while(r); +} +S_20367:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("~&&",3))))||new_error){ +if(qbevent){evnt(17132);if(r)goto S_20367;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ui64",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17132);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(17132);}while(r); +} +S_20371:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("!",1))))||new_error){ +if(qbevent){evnt(17133);if(r)goto S_20371;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("s",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17133);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(17133);}while(r); +} +S_20375:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("#",1))))||new_error){ +if(qbevent){evnt(17134);if(r)goto S_20375;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("d",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17134);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(17134);}while(r); +} +S_20379:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("##",2))))||new_error){ +if(qbevent){evnt(17135);if(r)goto S_20379;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("f",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17135);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(17135);}while(r); +} +S_20383:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("%&",2))))||new_error){ +if(qbevent){evnt(17136);if(r)goto S_20383;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("o",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17136);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(17136);}while(r); +} +S_20387:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_CVTYPE,qbs_new_txt_len("~%&",3))))||new_error){ +if(qbevent){evnt(17137);if(r)goto S_20387;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("uo",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17137);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_UOFFSETTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(17137);}while(r); +} +S_20391:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_EVALUATEFUNC_STRING_CVTYPE, 2 ),qbs_new_txt_len("~`",2))))||new_error){ +if(qbevent){evnt(17138);if(r)goto S_20391;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ubit",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17138);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(17138);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_SIZE=qbr(func_val(qbs_right(_FUNC_EVALUATEFUNC_STRING_CVTYPE,_FUNC_EVALUATEFUNC_STRING_CVTYPE->len- 2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17138);}while(r); +} +S_20396:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_EVALUATEFUNC_STRING_CVTYPE, 1 ),qbs_new_txt_len("`",1))))||new_error){ +if(qbevent){evnt(17139);if(r)goto S_20396;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("bit",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17139);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(17139);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_SIZE=qbr(func_val(qbs_right(_FUNC_EVALUATEFUNC_STRING_CVTYPE,_FUNC_EVALUATEFUNC_STRING_CVTYPE->len- 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17139);}while(r); +} +S_20401:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_TYP== 0 ))||new_error){ +if(qbevent){evnt(17140);if(r)goto S_20401;} +do{ +SUB_GIVE_ERROR(qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("CV cannot return STRING type!",29))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17140);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17140);}while(r); +} +S_20405:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("bit",3)))|(qbs_equal(_FUNC_EVALUATEFUNC_STRING_CTYPE,qbs_new_txt_len("ubit",4)))))||new_error){ +if(qbevent){evnt(17141);if(r)goto S_20405;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("string2",7),_FUNC_EVALUATEFUNC_STRING_CTYPE),qbs_new_txt_len("(",1)),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATEFUNC_LONG_SIZE)),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17142);}while(r); +}else{ +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("string2",7),_FUNC_EVALUATEFUNC_STRING_CTYPE),qbs_new_txt_len("(",1)),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17144);}while(r); +} +do{ +goto LABEL_EVALFUNCSPECIAL; +if(!qbevent)break;evnt(17146);}while(r); +} +} +S_20413:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)),256,1)),qbs_new_txt_len("STRING",6))))||new_error){ +if(qbevent){evnt(17151);if(r)goto S_20413;} +S_20414:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 ))||new_error){ +if(qbevent){evnt(17152);if(r)goto S_20414;} +S_20415:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(17153);if(r)goto S_20415;} +S_20416:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ +if(qbevent){evnt(17154);if(r)goto S_20416;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2642= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17154);}while(r); +} +S_20419:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(17155);if(r)goto S_20419;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17155);}while(r); +} +do{ +*_FUNC_EVALUATEFUNC_LONG_SOURCETYP= 64 ; +if(!qbevent)break;evnt(17156);}while(r); +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(",1),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len("->chr[0])",9))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17157);}while(r); +} +} +} +S_20427:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)),256,1)),qbs_new_txt_len("SADD",4))))||new_error){ +if(qbevent){evnt(17163);if(r)goto S_20427;} +S_20428:; +if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||new_error){ +if(qbevent){evnt(17164);if(r)goto S_20428;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("SADD only accepts variable-length string variables",50)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17165);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17165);}while(r); +} +S_20432:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH))||new_error){ +if(qbevent){evnt(17167);if(r)goto S_20432;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("SADD only accepts variable-length string variables",50)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17168);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17168);}while(r); +} +S_20436:; +if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISINCONVENTIONALMEMORY)== 0 ))||new_error){ +if(qbevent){evnt(17170);if(r)goto S_20436;} +do{ +*__INTEGER_RECOMPILE= 1 ; +if(!qbevent)break;evnt(17171);}while(r); +do{ +tmp_long=array_check((qbr(func_val(_FUNC_EVALUATEFUNC_STRING_E)))-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[tmp_long]= 1 ; +if(!qbevent)break;evnt(17172);}while(r); +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("[CONVENTIONAL_MEMORY_REQUIRED]",30)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17173);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ; +if(!qbevent)break;evnt(17174);}while(r); +do{ +goto LABEL_EVALFUNCSPECIAL; +if(!qbevent)break;evnt(17175);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2643= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17177);}while(r); +S_20444:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(17178);if(r)goto S_20444;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17178);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_new_txt_len("((unsigned short)(",18),_FUNC_EVALUATEFUNC_STRING_R),qbs_new_txt_len("->chr-&cmem[1280]))",19))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17179);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ; +if(!qbevent)break;evnt(17180);}while(r); +do{ +goto LABEL_EVALFUNCSPECIAL; +if(!qbevent)break;evnt(17181);}while(r); +} +S_20451:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)),256,1)),qbs_new_txt_len("VARPTR",6))))||new_error){ +if(qbevent){evnt(17185);if(r)goto S_20451;} +S_20452:; +if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||new_error){ +if(qbevent){evnt(17186);if(r)goto S_20452;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected reference to a variable/array",38)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17187);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17187);}while(r); +} +S_20456:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(528)),8,1)),qbs_new_txt_len("$",1))))||new_error){ +if(qbevent){evnt(17190);if(r)goto S_20456;} +S_20457:; +if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISINCONVENTIONALMEMORY)== 0 ))||new_error){ +if(qbevent){evnt(17191);if(r)goto S_20457;} +do{ +*__INTEGER_RECOMPILE= 1 ; +if(!qbevent)break;evnt(17192);}while(r); +do{ +tmp_long=array_check((qbr(func_val(_FUNC_EVALUATEFUNC_STRING_E)))-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[tmp_long]= 1 ; +if(!qbevent)break;evnt(17193);}while(r); +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("[CONVENTIONAL_MEMORY_REQUIRED]",30)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17194);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_ISSTRING; +if(!qbevent)break;evnt(17195);}while(r); +do{ +goto LABEL_EVALFUNCSPECIAL; +if(!qbevent)break;evnt(17196);}while(r); +} +S_20464:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISARRAY))||new_error){ +if(qbevent){evnt(17199);if(r)goto S_20464;} +S_20465:; +if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING)== 0 ))||new_error){ +if(qbevent){evnt(17200);if(r)goto S_20465;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("VARPTR$ only accepts variable-length string arrays",50)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17200);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17200);}while(r); +} +S_20469:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH))||new_error){ +if(qbevent){evnt(17201);if(r)goto S_20469;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("VARPTR$ only accepts variable-length string arrays",50)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17201);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17201);}while(r); +} +} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2644= 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17206);}while(r); +S_20475:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(17207);if(r)goto S_20475;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17207);}while(r); +} +S_20478:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(17208);if(r)goto S_20478;} +S_20479:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISARRAY))||new_error){ +if(qbevent){evnt(17209);if(r)goto S_20479;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2645= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17209);}while(r); +} +S_20482:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(17210);if(r)goto S_20482;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17210);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("->cmem_descriptor_offset",24))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17211);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_T= 3 ; +if(!qbevent)break;evnt(17212);}while(r); +}else{ +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_new_txt_len("((unsigned short)(((uint8*)",27),_FUNC_EVALUATEFUNC_STRING_R),qbs_new_txt_len(")-&cmem[1280]))",15))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17214);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_T= 0 ; +if(!qbevent)break;evnt(17226);}while(r); +S_20490:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUNSIGNED))||new_error){ +if(qbevent){evnt(17227);if(r)goto S_20490;} +do{ +*_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+ 128 ; +if(!qbevent)break;evnt(17227);}while(r); +} +S_20493:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSETINBITS))||new_error){ +if(qbevent){evnt(17228);if(r)goto S_20493;} +do{ +*_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+ 64 ; +if(!qbevent)break;evnt(17229);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+(*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 63 ); +if(!qbevent)break;evnt(17230);}while(r); +}else{ +do{ +*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ; +if(!qbevent)break;evnt(17232);}while(r); +S_20498:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||new_error){ +if(qbevent){evnt(17233);if(r)goto S_20498;} +S_20499:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 32 ))||new_error){ +if(qbevent){evnt(17234);if(r)goto S_20499;} +do{ +*_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+ 4 ; +if(!qbevent)break;evnt(17234);}while(r); +} +S_20502:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 64 ))||new_error){ +if(qbevent){evnt(17235);if(r)goto S_20502;} +do{ +*_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+ 8 ; +if(!qbevent)break;evnt(17235);}while(r); +} +S_20505:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 256 ))||new_error){ +if(qbevent){evnt(17236);if(r)goto S_20505;} +do{ +*_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+ 6 ; +if(!qbevent)break;evnt(17236);}while(r); +} +}else{ +S_20509:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 8 ))||new_error){ +if(qbevent){evnt(17238);if(r)goto S_20509;} +do{ +*_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+ 1 ; +if(!qbevent)break;evnt(17238);}while(r); +} +S_20512:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 16 ))||new_error){ +if(qbevent){evnt(17239);if(r)goto S_20512;} +do{ +*_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+ 2 ; +if(!qbevent)break;evnt(17239);}while(r); +} +S_20515:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 32 ))||new_error){ +if(qbevent){evnt(17240);if(r)goto S_20515;} +do{ +*_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+ 20 ; +if(!qbevent)break;evnt(17240);}while(r); +} +S_20518:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS== 64 ))||new_error){ +if(qbevent){evnt(17241);if(r)goto S_20518;} +do{ +*_FUNC_EVALUATEFUNC_LONG_T=*_FUNC_EVALUATEFUNC_LONG_T+ 5 ; +if(!qbevent)break;evnt(17241);}while(r); +} +} +} +} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("func_varptr_helper(",19),FUNC_STR2(_FUNC_EVALUATEFUNC_LONG_T)),qbs_new_txt_len(",",1)),_FUNC_EVALUATEFUNC_STRING_R),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17245);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_ISSTRING; +if(!qbevent)break;evnt(17246);}while(r); +do{ +goto LABEL_EVALFUNCSPECIAL; +if(!qbevent)break;evnt(17247);}while(r); +} +S_20528:; +if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISINCONVENTIONALMEMORY)== 0 ))||new_error){ +if(qbevent){evnt(17261);if(r)goto S_20528;} +do{ +*__INTEGER_RECOMPILE= 1 ; +if(!qbevent)break;evnt(17262);}while(r); +do{ +tmp_long=array_check((qbr(func_val(_FUNC_EVALUATEFUNC_STRING_E)))-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[tmp_long]= 1 ; +if(!qbevent)break;evnt(17263);}while(r); +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("[CONVENTIONAL_MEMORY_REQUIRED]",30)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17264);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ; +if(!qbevent)break;evnt(17265);}while(r); +do{ +goto LABEL_EVALFUNCSPECIAL; +if(!qbevent)break;evnt(17266);}while(r); +} +S_20535:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISARRAY))||new_error){ +if(qbevent){evnt(17269);if(r)goto S_20535;} +S_20536:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSETINBITS))||new_error){ +if(qbevent){evnt(17270);if(r)goto S_20536;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("VARPTR cannot reference _BIT type arrays",40)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17270);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17270);}while(r); +} +S_20540:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(17273);if(r)goto S_20540;} +S_20541:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH))||new_error){ +if(qbevent){evnt(17274);if(r)goto S_20541;} +do{ +SUB_GETID(&(pass2646=qbr(func_val(_FUNC_EVALUATEFUNC_STRING_E)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17275);}while(r); +S_20543:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(17276);if(r)goto S_20543;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17276);}while(r); +} +do{ +*_FUNC_EVALUATEFUNC_LONG_M=*(int32*)(((char*)__UDT_ID)+(540)); +if(!qbevent)break;evnt(17277);}while(r); +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_INDEX,qbs_right(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_STRING_E->len-func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17278);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ; +if(!qbevent)break;evnt(17279);}while(r); +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("((",2),_FUNC_EVALUATEFUNC_STRING_INDEX),qbs_new_txt_len(")*",2)),FUNC_STR2(_FUNC_EVALUATEFUNC_LONG_M)),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17280);}while(r); +do{ +goto LABEL_EVALFUNCSPECIAL; +if(!qbevent)break;evnt(17281);}while(r); +}else{ +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2648= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17284);}while(r); +S_20553:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(17285);if(r)goto S_20553;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17285);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("->cmem_descriptor_offset",24))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17286);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ; +if(!qbevent)break;evnt(17287);}while(r); +do{ +goto LABEL_EVALFUNCSPECIAL; +if(!qbevent)break;evnt(17288);}while(r); +} +} +S_20561:; +if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUDT)||new_error){ +if(qbevent){evnt(17292);if(r)goto S_20561;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_right(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_STRING_E->len-func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17293);}while(r); +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_right(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_STRING_E->len-func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17294);}while(r); +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_O,qbs_right(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_STRING_E->len-func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17295);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ; +if(!qbevent)break;evnt(17296);}while(r); +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_new_txt_len("(",1),_FUNC_EVALUATEFUNC_STRING_O),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17297);}while(r); +do{ +goto LABEL_EVALFUNCSPECIAL; +if(!qbevent)break;evnt(17298);}while(r); +} +do{ +*_FUNC_EVALUATEFUNC_LONG_M=(*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 )/ 8 ; +if(!qbevent)break;evnt(17302);}while(r); +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_INDEX,qbs_right(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_STRING_E->len-func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17303);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ; +if(!qbevent)break;evnt(17304);}while(r); +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("((",2),_FUNC_EVALUATEFUNC_STRING_INDEX),qbs_new_txt_len(")*",2)),FUNC_STR2(_FUNC_EVALUATEFUNC_LONG_M)),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17305);}while(r); +do{ +goto LABEL_EVALFUNCSPECIAL; +if(!qbevent)break;evnt(17306);}while(r); +} +S_20575:; +if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUDT)||new_error){ +if(qbevent){evnt(17312);if(r)goto S_20575;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2653= 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17313);}while(r); +S_20577:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(17314);if(r)goto S_20577;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17314);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_right(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_STRING_E->len-func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17315);}while(r); +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_right(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_STRING_E->len-func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17316);}while(r); +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_O,qbs_right(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_STRING_E->len-func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17317);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ; +if(!qbevent)break;evnt(17318);}while(r); +do{ +SUB_GETID(&(pass2657=qbr(func_val(_FUNC_EVALUATEFUNC_STRING_E)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17321);}while(r); +S_20585:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(17322);if(r)goto S_20585;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17322);}while(r); +} +S_20588:; +if ((*(int16*)(((char*)__UDT_ID)+(2859)))||new_error){ +if(qbevent){evnt(17323);if(r)goto S_20588;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("varptr_dblock_check(((uint8*)",29),_FUNC_EVALUATEFUNC_STRING_R),qbs_new_txt_len(")+(",3)),_FUNC_EVALUATEFUNC_STRING_O),qbs_new_txt_len("))",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17325);}while(r); +}else{ +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("((unsigned short)(((uint8*)",27),_FUNC_EVALUATEFUNC_STRING_R),qbs_new_txt_len(") - &cmem[1280] + (",19)),_FUNC_EVALUATEFUNC_STRING_O),qbs_new_txt_len(") ))",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17328);}while(r); +} +do{ +goto LABEL_EVALFUNCSPECIAL; +if(!qbevent)break;evnt(17331);}while(r); +} +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ; +if(!qbevent)break;evnt(17334);}while(r); +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2658= 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17335);}while(r); +S_20597:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(17336);if(r)goto S_20597;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17336);}while(r); +} +S_20600:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(17337);if(r)goto S_20600;} +S_20601:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH))||new_error){ +if(qbevent){evnt(17338);if(r)goto S_20601;} +do{ +SUB_GETID(&(pass2659=qbr(func_val(_FUNC_EVALUATEFUNC_STRING_E)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17341);}while(r); +S_20603:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(17342);if(r)goto S_20603;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17342);}while(r); +} +S_20606:; +if ((*(int16*)(((char*)__UDT_ID)+(2859)))||new_error){ +if(qbevent){evnt(17343);if(r)goto S_20606;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_new_txt_len("varptr_dblock_check(",20),_FUNC_EVALUATEFUNC_STRING_R),qbs_new_txt_len("->chr)",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17344);}while(r); +}else{ +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_new_txt_len("((unsigned short)(",18),_FUNC_EVALUATEFUNC_STRING_R),qbs_new_txt_len("->chr-&cmem[1280]))",19))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17346);}while(r); +} +}else{ +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("->cmem_descriptor_offset",24))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17350);}while(r); +} +do{ +goto LABEL_EVALFUNCSPECIAL; +if(!qbevent)break;evnt(17352);}while(r); +} +do{ +SUB_GETID(&(pass2660=qbr(func_val(_FUNC_EVALUATEFUNC_STRING_E)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17357);}while(r); +S_20617:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(17358);if(r)goto S_20617;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17358);}while(r); +} +S_20620:; +if ((*(int16*)(((char*)__UDT_ID)+(2859)))||new_error){ +if(qbevent){evnt(17359);if(r)goto S_20620;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_new_txt_len("varptr_dblock_check((uint8*)",28),_FUNC_EVALUATEFUNC_STRING_R),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17360);}while(r); +}else{ +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_new_txt_len("((unsigned short)(((uint8*)",27),_FUNC_EVALUATEFUNC_STRING_R),qbs_new_txt_len(")-&cmem[1280]))",15))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17362);}while(r); +} +do{ +goto LABEL_EVALFUNCSPECIAL; +if(!qbevent)break;evnt(17365);}while(r); +} +S_20627:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)),256,1)),qbs_new_txt_len("VARSEG",6))))||new_error){ +if(qbevent){evnt(17369);if(r)goto S_20627;} +S_20628:; +if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||new_error){ +if(qbevent){evnt(17370);if(r)goto S_20628;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected reference to a variable/array",38)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17371);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17371);}while(r); +} +S_20632:; +if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISINCONVENTIONALMEMORY)== 0 ))||new_error){ +if(qbevent){evnt(17373);if(r)goto S_20632;} +do{ +*__INTEGER_RECOMPILE= 1 ; +if(!qbevent)break;evnt(17374);}while(r); +do{ +tmp_long=array_check((qbr(func_val(_FUNC_EVALUATEFUNC_STRING_E)))-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[tmp_long]= 1 ; +if(!qbevent)break;evnt(17375);}while(r); +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("[CONVENTIONAL_MEMORY_REQUIRED]",30)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17376);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ; +if(!qbevent)break;evnt(17377);}while(r); +do{ +goto LABEL_EVALFUNCSPECIAL; +if(!qbevent)break;evnt(17378);}while(r); +} +S_20639:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISARRAY))||new_error){ +if(qbevent){evnt(17381);if(r)goto S_20639;} +S_20640:; +if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ +if(qbevent){evnt(17382);if(r)goto S_20640;} +S_20641:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(17383);if(r)goto S_20641;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("80",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17384);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ; +if(!qbevent)break;evnt(17385);}while(r); +do{ +goto LABEL_EVALFUNCSPECIAL; +if(!qbevent)break;evnt(17386);}while(r); +} +} +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ; +if(!qbevent)break;evnt(17389);}while(r); +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_new_txt_len("( ( ((ptrszint)(",16),FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2661= 1 ))),qbs_new_txt_len("[0])) - ((ptrszint)(&cmem[0])) ) /16)",37))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17390);}while(r); +S_20649:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(17391);if(r)goto S_20649;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17391);}while(r); +} +do{ +goto LABEL_EVALFUNCSPECIAL; +if(!qbevent)break;evnt(17392);}while(r); +} +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP= 64 ; +if(!qbevent)break;evnt(17396);}while(r); +do{ +SUB_GETID(&(pass2662=qbr(func_val(_FUNC_EVALUATEFUNC_STRING_E)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17398);}while(r); +S_20656:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(17399);if(r)goto S_20656;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17399);}while(r); +} +S_20659:; +if (((-(*(int16*)(((char*)__UDT_ID)+(2859))!= 0 ))&(-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING)== 0 )))||new_error){ +if(qbevent){evnt(17400);if(r)goto S_20659;} +S_20660:; +if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUDT)||new_error){ +if(qbevent){evnt(17401);if(r)goto S_20660;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2663= 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17402);}while(r); +S_20662:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(17403);if(r)goto S_20662;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17403);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_right(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_STRING_E->len-func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17404);}while(r); +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_right(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_STRING_E->len-func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17405);}while(r); +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_O,qbs_right(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_STRING_E->len-func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17406);}while(r); +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("varseg_dblock_check(((uint8*)",29),_FUNC_EVALUATEFUNC_STRING_R),qbs_new_txt_len(")+(",3)),_FUNC_EVALUATEFUNC_STRING_O),qbs_new_txt_len("))",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17407);}while(r); +}else{ +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_new_txt_len("varseg_dblock_check((uint8*)",28),FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2667= 1 ))),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17409);}while(r); +S_20671:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(17410);if(r)goto S_20671;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17410);}while(r); +} +} +}else{ +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("80",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17414);}while(r); +} +do{ +goto LABEL_EVALFUNCSPECIAL; +if(!qbevent)break;evnt(17416);}while(r); +} +S_20680:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_TARGETTYP== -2 ))||new_error){ +if(qbevent){evnt(17442);if(r)goto S_20680;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_EVALUATETOTYP(_FUNC_EVALUATEFUNC_STRING_E2,&(pass2668= -2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17443);}while(r); +S_20682:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(17444);if(r)goto S_20682;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17444);}while(r); +} +do{ +goto LABEL_DONTEVALUATE; +if(!qbevent)break;evnt(17445);}while(r); +} +S_20687:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_TARGETTYP== -7 ))||new_error){ +if(qbevent){evnt(17448);if(r)goto S_20687;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_EVALUATETOTYP(_FUNC_EVALUATEFUNC_STRING_E2,&(pass2669= -7 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17449);}while(r); +S_20689:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(17450);if(r)goto S_20689;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17450);}while(r); +} +do{ +goto LABEL_DONTEVALUATE; +if(!qbevent)break;evnt(17451);}while(r); +} +S_20694:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_TARGETTYP== -8 ))||new_error){ +if(qbevent){evnt(17454);if(r)goto S_20694;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_EVALUATETOTYP(_FUNC_EVALUATEFUNC_STRING_E2,&(pass2670= -8 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17455);}while(r); +S_20696:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(17456);if(r)goto S_20696;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17456);}while(r); +} +do{ +goto LABEL_DONTEVALUATE; +if(!qbevent)break;evnt(17457);}while(r); +} +S_20701:; +if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISOFFSET)||new_error){ +if(qbevent){evnt(17460);if(r)goto S_20701;} +S_20702:; +if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISOFFSET)== 0 ))||new_error){ +if(qbevent){evnt(17461);if(r)goto S_20702;} +S_20703:; +if ((-(*(int16*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(548))== 0 ))||new_error){ +if(qbevent){evnt(17462);if(r)goto S_20703;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Cannot convert _OFFSET type to other types",42)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17462);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17462);}while(r); +} +} +} +do{ +*_FUNC_EVALUATEFUNC_LONG_EXPLICITREFERENCE= 0 ; +if(!qbevent)break;evnt(17467);}while(r); +S_20710:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_TARGETTYP== -1 ))||new_error){ +if(qbevent){evnt(17468);if(r)goto S_20710;} +do{ +*_FUNC_EVALUATEFUNC_LONG_EXPLICITREFERENCE= 1 ; +if(!qbevent)break;evnt(17469);}while(r); +S_20712:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(17470);if(r)goto S_20712;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Number required for function",28)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17470);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17470);}while(r); +} +do{ +*_FUNC_EVALUATEFUNC_LONG_TARGETTYP=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP; +if(!qbevent)break;evnt(17471);}while(r); +S_20717:; +if (((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISPOINTER))||new_error){ +if(qbevent){evnt(17472);if(r)goto S_20717;} +do{ +*_FUNC_EVALUATEFUNC_LONG_TARGETTYP=*_FUNC_EVALUATEFUNC_LONG_TARGETTYP-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(17472);}while(r); +} +} +S_20721:; +if (((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISPOINTER))||new_error){ +if(qbevent){evnt(17476);if(r)goto S_20721;} +S_20722:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_DEREFERENCE== 0 ))||new_error){ +if(qbevent){evnt(17477);if(r)goto S_20722;} +S_20723:; +if (((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISARRAY))||new_error){ +if(qbevent){evnt(17482);if(r)goto S_20723;} +S_20724:; +if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||new_error){ +if(qbevent){evnt(17483);if(r)goto S_20724;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected arrayname()",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17483);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17483);}while(r); +} +S_20728:; +if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISARRAY)== 0 ))||new_error){ +if(qbevent){evnt(17484);if(r)goto S_20728;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected arrayname()",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17484);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17484);}while(r); +} +S_20732:; +if (( 0 )||new_error){ +if(qbevent){evnt(17485);if(r)goto S_20732;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip2671; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("evaluatefunc:array reference:[",30),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len("]",1)), 0, 0, 1); +if (new_error) goto skip2671; +skip2671: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(17485);}while(r); +} +do{ +*_FUNC_EVALUATEFUNC_LONG_TARGETTYP2=*_FUNC_EVALUATEFUNC_LONG_TARGETTYP; +if(!qbevent)break;evnt(17488);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP; +if(!qbevent)break;evnt(17488);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_TARGETTYP2=*_FUNC_EVALUATEFUNC_LONG_TARGETTYP2&( 511 +*__LONG_ISOFFSETINBITS+*__LONG_ISUDT+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH+*__LONG_ISFLOAT); +if(!qbevent)break;evnt(17489);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2&( 511 +*__LONG_ISOFFSETINBITS+*__LONG_ISUDT+*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH+*__LONG_ISFLOAT); +if(!qbevent)break;evnt(17490);}while(r); +S_20739:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2!=*_FUNC_EVALUATEFUNC_LONG_TARGETTYP2))||new_error){ +if(qbevent){evnt(17491);if(r)goto S_20739;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Incorrect array type passed to function",39)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17491);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17491);}while(r); +} +S_20743:; +if ((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISUDT)||new_error){ +if(qbevent){evnt(17494);if(r)goto S_20743;} +S_20744:; +if (( 0 )||new_error){ +if(qbevent){evnt(17495);if(r)goto S_20744;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip2672; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("evaluatefunc:array reference:udt reference:[",44),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len("]",1)), 0, 0, 1); +if (new_error) goto skip2672; +skip2672: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(17495);}while(r); +} +do{ +*_FUNC_EVALUATEFUNC_LONG_UDTREFID=qbr(func_val(_FUNC_EVALUATEFUNC_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17497);}while(r); +do{ +SUB_GETID(_FUNC_EVALUATEFUNC_LONG_UDTREFID); +if(!qbevent)break;evnt(17498);}while(r); +S_20749:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(17499);if(r)goto S_20749;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17499);}while(r); +} +do{ +*_FUNC_EVALUATEFUNC_LONG_UDTREFI=func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17500);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_UDTREFI2=func_instr(*_FUNC_EVALUATEFUNC_LONG_UDTREFI+ 1 ,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17501);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_UDTREFU=qbr(func_val(func_mid(_FUNC_EVALUATEFUNC_STRING_E,*_FUNC_EVALUATEFUNC_LONG_UDTREFI+ 1 ,*_FUNC_EVALUATEFUNC_LONG_UDTREFI2-*_FUNC_EVALUATEFUNC_LONG_UDTREFI- 1 ,0|1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17502);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_UDTREFI3=func_instr(*_FUNC_EVALUATEFUNC_LONG_UDTREFI2+ 1 ,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17503);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_UDTREFE=qbr(func_val(func_mid(_FUNC_EVALUATEFUNC_STRING_E,*_FUNC_EVALUATEFUNC_LONG_UDTREFI2+ 1 ,*_FUNC_EVALUATEFUNC_LONG_UDTREFI3-*_FUNC_EVALUATEFUNC_LONG_UDTREFI2- 1 ,0|1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17504);}while(r); +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_O,qbs_right(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_STRING_E->len-*_FUNC_EVALUATEFUNC_LONG_UDTREFI3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17505);}while(r); +S_20758:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(_FUNC_EVALUATEFUNC_STRING_O, 4 ),qbs_new_txt_len("(0)*",4))))||new_error){ +if(qbevent){evnt(17507);if(r)goto S_20758;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected arrayname()",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17507);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17507);}while(r); +} +}else{ +S_20763:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal((qbs_right(_FUNC_EVALUATEFUNC_STRING_E, 2 )),(qbs_add(__STRING1_SP3,qbs_new_txt_len("0",1))))))||new_error){ +if(qbevent){evnt(17509);if(r)goto S_20763;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected arrayname()",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17509);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17509);}while(r); +} +} +do{ +*_FUNC_EVALUATEFUNC_LONG_IDNUM=qbr(func_val(qbs_left(_FUNC_EVALUATEFUNC_STRING_E,func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0)- 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17513);}while(r); +do{ +SUB_GETID(_FUNC_EVALUATEFUNC_LONG_IDNUM); +if(!qbevent)break;evnt(17514);}while(r); +S_20770:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(17515);if(r)goto S_20770;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17515);}while(r); +} +S_20773:; +if ((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISFIXEDLENGTH)||new_error){ +if(qbevent){evnt(17517);if(r)goto S_20773;} +do{ +*_FUNC_EVALUATEFUNC_LONG_TARGETTYPSIZE=string2l(func_mid(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(1213)),400,1),(*_FUNC_EVALUATEFUNC_LONG_CURARG* 4 )-( 4 )+( 1 ), 4 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17518);}while(r); +S_20775:; +if ((-(*(int32*)(((char*)__UDT_ID)+(540))!=*_FUNC_EVALUATEFUNC_LONG_TARGETTYPSIZE))||new_error){ +if(qbevent){evnt(17519);if(r)goto S_20775;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Incorrect array type passed to function",39)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17519);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17519);}while(r); +} +} +S_20780:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(qbs_new_fixed(&((uint8*)(__ARRAY_STRING100_SFCMEMARGS[0]))[(array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_STRING100_SFCMEMARGS[4],__ARRAY_STRING100_SFCMEMARGS[5]))*100],100,1),*_FUNC_EVALUATEFUNC_LONG_CURARG, 1 ,0|1),func_chr( 1 ))))||new_error){ +if(qbevent){evnt(17522);if(r)goto S_20780;} +S_20781:; +if ((-(((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*_FUNC_EVALUATEFUNC_LONG_IDNUM)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])]== 0 ))||new_error){ +if(qbevent){evnt(17523);if(r)goto S_20781;} +do{ +tmp_long=array_check((*_FUNC_EVALUATEFUNC_LONG_IDNUM)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[tmp_long]= 1 ; +if(!qbevent)break;evnt(17524);}while(r); +do{ +*__INTEGER_RECOMPILE= 1 ; +if(!qbevent)break;evnt(17526);}while(r); +} +} +S_20786:; +if ((-(*(int32*)(((char*)__UDT_ID)+(2847))== 0 ))||new_error){ +if(qbevent){evnt(17532);if(r)goto S_20786;} +S_20787:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_NELEREQ== 0 ))||new_error){ +if(qbevent){evnt(17537);if(r)goto S_20787;} +S_20788:; +if ((-(*(int16*)(((char*)__UDT_ID)+(516))!= -1 ))||new_error){ +if(qbevent){evnt(17541);if(r)goto S_20788;} +do{ +*_FUNC_EVALUATEFUNC_LONG_NELEREQ=*(int16*)(((char*)__UDT_ID)+(516)); +if(!qbevent)break;evnt(17542);}while(r); +do{ +sub_mid(qbs_new_fixed((((uint8*)_FUNC_EVALUATEFUNC_UDT_ID2)+(2747)),100,1),*_FUNC_EVALUATEFUNC_LONG_CURARG, 1 ,func_chr(*_FUNC_EVALUATEFUNC_LONG_NELEREQ),1); +if(!qbevent)break;evnt(17543);}while(r); +} +do{ +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 0),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 0), 256); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 256),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 256), 256); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 512),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 512), 4); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 516),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 516), 2); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 518),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 518), 2); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 520),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 520), 8); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 528),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 528), 8); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 536),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 536), 4); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 540),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 540), 4); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 544),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 544), 2); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 546),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 546), 2); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 548),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 548), 2); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 550),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 550), 256); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 806),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 806), 2); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 808),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 808), 1); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 809),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 809), 2); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 811),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 811), 2); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 813),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 813), 400); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 1213),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 1213), 400); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 1613),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 1613), 256); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 1869),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 1869), 256); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2125),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2125), 256); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2381),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2381), 4); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2385),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2385), 256); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2641),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2641), 4); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2645),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2645), 2); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2647),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2647), 100); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2747),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2747), 100); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2847),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2847), 4); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2851),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2851), 2); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2853),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2853), 2); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2855),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2855), 4); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2859),(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2859), 2); +qbs_set(*(qbs**)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2861), *(qbs**)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(0)+ 2861)); +if(!qbevent)break;evnt(17546);}while(r); +}else{ +S_20794:; +if ((-(*(int16*)(((char*)__UDT_ID)+(516))!=*_FUNC_EVALUATEFUNC_LONG_NELEREQ))||new_error){ +if(qbevent){evnt(17559);if(r)goto S_20794;} +do{ +SUB_GIVE_ERROR(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(17559);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17559);}while(r); +} +} +} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2674= 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17567);}while(r); +S_20801:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(17568);if(r)goto S_20801;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17568);}while(r); +} +do{ +goto LABEL_DONTEVALUATE; +if(!qbevent)break;evnt(17569);}while(r); +} +S_20806:; +if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISSTRING)== 0 ))||new_error){ +if(qbevent){evnt(17587);if(r)goto S_20806;} +S_20807:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ +if(qbevent){evnt(17588);if(r)goto S_20807;} +do{ +*_FUNC_EVALUATEFUNC_LONG_IDNUM=qbr(func_val(qbs_left(_FUNC_EVALUATEFUNC_STRING_E,func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0)- 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17589);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_TARGETTYP2=*_FUNC_EVALUATEFUNC_LONG_TARGETTYP; +if(!qbevent)break;evnt(17591);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP; +if(!qbevent)break;evnt(17591);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_ARR= 0 ; +if(!qbevent)break;evnt(17594);}while(r); +S_20812:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2&*__LONG_ISARRAY))||new_error){ +if(qbevent){evnt(17594);if(r)goto S_20812;} +do{ +*_FUNC_EVALUATEFUNC_LONG_ARR= 1 ; +if(!qbevent)break;evnt(17594);}while(r); +} +do{ +*_FUNC_EVALUATEFUNC_LONG_PASSUDTELEMENT= 0 ; +if(!qbevent)break;evnt(17595);}while(r); +S_20816:; +if (((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP2&*__LONG_ISUDT)== 0 ))&(-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2&*__LONG_ISUDT)!= 0 )))||new_error){ +if(qbevent){evnt(17595);if(r)goto S_20816;} +do{ +*_FUNC_EVALUATEFUNC_LONG_PASSUDTELEMENT= 1 ; +if(!qbevent)break;evnt(17595);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2-*__LONG_ISUDT; +if(!qbevent)break;evnt(17595);}while(r); +} +do{ +*_FUNC_EVALUATEFUNC_LONG_TARGETTYP2=*_FUNC_EVALUATEFUNC_LONG_TARGETTYP2&( 511 +*__LONG_ISOFFSETINBITS+*__LONG_ISUDT+*__LONG_ISFLOAT+*__LONG_ISSTRING); +if(!qbevent)break;evnt(17598);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2&( 511 +*__LONG_ISOFFSETINBITS+*__LONG_ISUDT+*__LONG_ISFLOAT+*__LONG_ISSTRING); +if(!qbevent)break;evnt(17599);}while(r); +S_20822:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2==*_FUNC_EVALUATEFUNC_LONG_TARGETTYP2))||new_error){ +if(qbevent){evnt(17602);if(r)goto S_20822;} +S_20823:; +if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUDT)||new_error){ +if(qbevent){evnt(17604);if(r)goto S_20823;} +do{ +*_FUNC_EVALUATEFUNC_LONG_UDTREFID=qbr(func_val(_FUNC_EVALUATEFUNC_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17608);}while(r); +do{ +SUB_GETID(_FUNC_EVALUATEFUNC_LONG_UDTREFID); +if(!qbevent)break;evnt(17609);}while(r); +S_20826:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(17610);if(r)goto S_20826;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17610);}while(r); +} +do{ +*_FUNC_EVALUATEFUNC_LONG_UDTREFI=func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17611);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_UDTREFI2=func_instr(*_FUNC_EVALUATEFUNC_LONG_UDTREFI+ 1 ,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17612);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_UDTREFU=qbr(func_val(func_mid(_FUNC_EVALUATEFUNC_STRING_E,*_FUNC_EVALUATEFUNC_LONG_UDTREFI+ 1 ,*_FUNC_EVALUATEFUNC_LONG_UDTREFI2-*_FUNC_EVALUATEFUNC_LONG_UDTREFI- 1 ,0|1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17613);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_UDTREFI3=func_instr(*_FUNC_EVALUATEFUNC_LONG_UDTREFI2+ 1 ,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17614);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_UDTREFE=qbr(func_val(func_mid(_FUNC_EVALUATEFUNC_STRING_E,*_FUNC_EVALUATEFUNC_LONG_UDTREFI2+ 1 ,*_FUNC_EVALUATEFUNC_LONG_UDTREFI3-*_FUNC_EVALUATEFUNC_LONG_UDTREFI2- 1 ,0|1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17615);}while(r); +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_O,qbs_right(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_STRING_E->len-*_FUNC_EVALUATEFUNC_LONG_UDTREFI3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17616);}while(r); +S_20835:; +if ((*_FUNC_EVALUATEFUNC_LONG_ARR)||new_error){ +if(qbevent){evnt(17619);if(r)goto S_20835;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_N2,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(17620);}while(r); +}else{ +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_N2,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(17622);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(void*)( ((char*)(",18),_FUNC_EVALUATEFUNC_STRING_N2),qbs_new_txt_len(")) + (",6)),_FUNC_EVALUATEFUNC_STRING_O),qbs_new_txt_len(") )",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17625);}while(r); +S_20841:; +if ((*_FUNC_EVALUATEFUNC_LONG_PASSUDTELEMENT)||new_error){ +if(qbevent){evnt(17628);if(r)goto S_20841;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(",1),FUNC_TYP2CTYP(&(pass2676=*_FUNC_EVALUATEFUNC_LONG_TARGETTYP2+(*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISUNSIGNED)),qbs_new_txt_len("",0))),qbs_new_txt_len("*)",2)),_FUNC_EVALUATEFUNC_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17628);}while(r); +} +S_20844:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(17629);if(r)goto S_20844;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17629);}while(r); +} +}else{ +S_20848:; +if ((*_FUNC_EVALUATEFUNC_LONG_ARR)||new_error){ +if(qbevent){evnt(17633);if(r)goto S_20848;} +S_20849:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP2&*__LONG_ISOFFSETINBITS))||new_error){ +if(qbevent){evnt(17634);if(r)goto S_20849;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Cannot pass BIT array offsets",29)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17634);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17634);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(&(",3),FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2677= 0 ))),qbs_new_txt_len("))",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17635);}while(r); +S_20854:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(17636);if(r)goto S_20854;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17636);}while(r); +} +}else{ +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2678= 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17638);}while(r); +S_20859:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(17639);if(r)goto S_20859;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17639);}while(r); +} +} +S_20863:; +if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUNSIGNED)!=(*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISUNSIGNED)))||new_error){ +if(qbevent){evnt(17643);if(r)goto S_20863;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(",1),FUNC_TYP2CTYP(&(pass2679=*_FUNC_EVALUATEFUNC_LONG_TARGETTYP2+(*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISUNSIGNED)),qbs_new_txt_len("",0))),qbs_new_txt_len("*)",2)),_FUNC_EVALUATEFUNC_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17644);}while(r); +S_20865:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(17645);if(r)goto S_20865;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17645);}while(r); +} +} +} +S_20870:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(qbs_new_fixed(&((uint8*)(__ARRAY_STRING100_SFCMEMARGS[0]))[(array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_STRING100_SFCMEMARGS[4],__ARRAY_STRING100_SFCMEMARGS[5]))*100],100,1),*_FUNC_EVALUATEFUNC_LONG_CURARG, 1 ,0|1),func_chr( 1 ))))||new_error){ +if(qbevent){evnt(17651);if(r)goto S_20870;} +S_20871:; +if ((-(((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*_FUNC_EVALUATEFUNC_LONG_IDNUM)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])]== 0 ))||new_error){ +if(qbevent){evnt(17652);if(r)goto S_20871;} +do{ +tmp_long=array_check((*_FUNC_EVALUATEFUNC_LONG_IDNUM)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[tmp_long]= 1 ; +if(!qbevent)break;evnt(17653);}while(r); +do{ +*__INTEGER_RECOMPILE= 1 ; +if(!qbevent)break;evnt(17654);}while(r); +} +} +do{ +goto LABEL_DONTEVALUATE; +if(!qbevent)break;evnt(17658);}while(r); +} +} +}else{ +S_20880:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ +if(qbevent){evnt(17676);if(r)goto S_20880;} +do{ +*_FUNC_EVALUATEFUNC_LONG_IDNUM=qbr(func_val(qbs_left(_FUNC_EVALUATEFUNC_STRING_E,func_instr(NULL,_FUNC_EVALUATEFUNC_STRING_E,__STRING1_SP3,0)- 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17677);}while(r); +S_20882:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(qbs_new_fixed(&((uint8*)(__ARRAY_STRING100_SFCMEMARGS[0]))[(array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_STRING100_SFCMEMARGS[4],__ARRAY_STRING100_SFCMEMARGS[5]))*100],100,1),*_FUNC_EVALUATEFUNC_LONG_CURARG, 1 ,0|1),func_chr( 1 ))))||new_error){ +if(qbevent){evnt(17678);if(r)goto S_20882;} +S_20883:; +if ((-(((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[array_check((*_FUNC_EVALUATEFUNC_LONG_IDNUM)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5])]== 0 ))||new_error){ +if(qbevent){evnt(17679);if(r)goto S_20883;} +do{ +tmp_long=array_check((*_FUNC_EVALUATEFUNC_LONG_IDNUM)-__ARRAY_INTEGER_CMEMLIST[4],__ARRAY_INTEGER_CMEMLIST[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_CMEMLIST[0]))[tmp_long]= 1 ; +if(!qbevent)break;evnt(17680);}while(r); +do{ +*__INTEGER_RECOMPILE= 1 ; +if(!qbevent)break;evnt(17681);}while(r); +} +} +} +} +} +} +S_20892:; +if ((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(17704);if(r)goto S_20892;} +S_20893:; +if ((-((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING)== 0 ))||new_error){ +if(qbevent){evnt(17705);if(r)goto S_20893;} +do{ +*_FUNC_EVALUATEFUNC_LONG_NTH=*_FUNC_EVALUATEFUNC_LONG_CURARG; +if(!qbevent)break;evnt(17706);}while(r); +S_20895:; +if ((*_FUNC_EVALUATEFUNC_LONG_SKIPFIRSTARG)||new_error){ +if(qbevent){evnt(17707);if(r)goto S_20895;} +do{ +*_FUNC_EVALUATEFUNC_LONG_NTH=*_FUNC_EVALUATEFUNC_LONG_NTH- 1 ; +if(!qbevent)break;evnt(17707);}while(r); +} +S_20898:; +if ((-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+809))== 1 ))||new_error){ +if(qbevent){evnt(17708);if(r)goto S_20898;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("String required for function",28)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17708);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17708);}while(r); +} +do{ +SUB_GIVE_ERROR(qbs_add(FUNC_STR_NTH(_FUNC_EVALUATEFUNC_LONG_NTH),qbs_new_txt_len(" function argument requires a string",36))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17709);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17709);}while(r); +} +} +S_20906:; +if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISSTRING)== 0 ))||new_error){ +if(qbevent){evnt(17712);if(r)goto S_20906;} +S_20907:; +if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(17713);if(r)goto S_20907;} +do{ +*_FUNC_EVALUATEFUNC_LONG_NTH=*_FUNC_EVALUATEFUNC_LONG_CURARG; +if(!qbevent)break;evnt(17714);}while(r); +S_20909:; +if ((*_FUNC_EVALUATEFUNC_LONG_SKIPFIRSTARG)||new_error){ +if(qbevent){evnt(17715);if(r)goto S_20909;} +do{ +*_FUNC_EVALUATEFUNC_LONG_NTH=*_FUNC_EVALUATEFUNC_LONG_NTH- 1 ; +if(!qbevent)break;evnt(17715);}while(r); +} +S_20912:; +if ((-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+809))== 1 ))||new_error){ +if(qbevent){evnt(17716);if(r)goto S_20912;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Number required for function",28)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17716);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17716);}while(r); +} +do{ +SUB_GIVE_ERROR(qbs_add(FUNC_STR_NTH(_FUNC_EVALUATEFUNC_LONG_NTH),qbs_new_txt_len(" function argument requires a number",36))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17717);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17717);}while(r); +} +} +S_20920:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ +if(qbevent){evnt(17722);if(r)goto S_20920;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_E,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2680= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17723);}while(r); +S_20922:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(17724);if(r)goto S_20922;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17724);}while(r); +} +} +S_20926:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_EXPLICITREFERENCE== 0 ))||new_error){ +if(qbevent){evnt(17727);if(r)goto S_20926;} +S_20927:; +if ((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISUDT)||new_error){ +if(qbevent){evnt(17728);if(r)goto S_20927;} +do{ +*_FUNC_EVALUATEFUNC_LONG_NTH=*_FUNC_EVALUATEFUNC_LONG_CURARG; +if(!qbevent)break;evnt(17729);}while(r); +S_20929:; +if ((*_FUNC_EVALUATEFUNC_LONG_SKIPFIRSTARG)||new_error){ +if(qbevent){evnt(17730);if(r)goto S_20929;} +do{ +*_FUNC_EVALUATEFUNC_LONG_NTH=*_FUNC_EVALUATEFUNC_LONG_NTH- 1 ; +if(!qbevent)break;evnt(17730);}while(r); +} +S_20932:; +if ((qbs_cleanup(qbs_tmp_base,*__LONG_QB64PREFIX_SET&(qbs_equal(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[(array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]))*256],256,1),qbs_new_txt_len("_MEM",4)))))||new_error){ +if(qbevent){evnt(17731);if(r)goto S_20932;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_X,qbs_add(qbs_add(qbs_new_txt_len("'",1),func_mid(qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[(array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]))*256],256,1)), 2 ,NULL,0)),qbs_new_txt_len("'",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17732);}while(r); +}else{ +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_X,qbs_add(qbs_add(qbs_new_txt_len("'",1),qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[(array_check((*_FUNC_EVALUATEFUNC_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(17734);}while(r); +} +S_20937:; +if ((-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+809))== 1 ))||new_error){ +if(qbevent){evnt(17736);if(r)goto S_20937;} +do{ +SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("TYPE ",5),_FUNC_EVALUATEFUNC_STRING_X),qbs_new_txt_len(" required for function",22))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17736);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17736);}while(r); +} +do{ +SUB_GIVE_ERROR(qbs_add(qbs_add(FUNC_STR_NTH(_FUNC_EVALUATEFUNC_LONG_NTH),qbs_new_txt_len(" function argument requires TYPE ",33)),_FUNC_EVALUATEFUNC_STRING_X)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17737);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17737);}while(r); +} +}else{ +S_20945:; +if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISUDT)||new_error){ +if(qbevent){evnt(17740);if(r)goto S_20945;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Number required for function",28)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17740);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17740);}while(r); +} +} +S_20950:; +if (((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT))||new_error){ +if(qbevent){evnt(17744);if(r)goto S_20950;} +S_20951:; +if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISFLOAT)== 0 ))||new_error){ +if(qbevent){evnt(17745);if(r)goto S_20951;} +do{ +*_FUNC_EVALUATEFUNC_LONG_BITS=*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 ; +if(!qbevent)break;evnt(17747);}while(r); +S_20953:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS<= 16 ))||new_error){ +if(qbevent){evnt(17748);if(r)goto S_20953;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("qbr_float_to_long(",18),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17748);}while(r); +} +S_20956:; +if (((-(*_FUNC_EVALUATEFUNC_LONG_BITS> 16 ))&(-(*_FUNC_EVALUATEFUNC_LONG_BITS< 32 )))||new_error){ +if(qbevent){evnt(17749);if(r)goto S_20956;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("qbr_double_to_long(",19),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17749);}while(r); +} +S_20959:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_BITS>= 32 ))||new_error){ +if(qbevent){evnt(17750);if(r)goto S_20959;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("qbr(",4),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17750);}while(r); +} +} +} +S_20964:; +if ((*_FUNC_EVALUATEFUNC_LONG_EXPLICITREFERENCE)||new_error){ +if(qbevent){evnt(17754);if(r)goto S_20964;} +S_20965:; +if (((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISOFFSETINBITS))||new_error){ +if(qbevent){evnt(17755);if(r)goto S_20965;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(int64)(",8),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17757);}while(r); +}else{ +S_20968:; +if (((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISFLOAT))||new_error){ +if(qbevent){evnt(17759);if(r)goto S_20968;} +S_20969:; +if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )== 32 ))||new_error){ +if(qbevent){evnt(17760);if(r)goto S_20969;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(float)(",8),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17760);}while(r); +} +S_20972:; +if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )== 64 ))||new_error){ +if(qbevent){evnt(17761);if(r)goto S_20972;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(double)(",9),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17761);}while(r); +} +S_20975:; +if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )== 256 ))||new_error){ +if(qbevent){evnt(17762);if(r)goto S_20975;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(long double)(",14),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17762);}while(r); +} +}else{ +S_20979:; +if (((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISUNSIGNED))||new_error){ +if(qbevent){evnt(17764);if(r)goto S_20979;} +S_20980:; +if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )== 8 ))||new_error){ +if(qbevent){evnt(17765);if(r)goto S_20980;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(uint8)(",8),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17765);}while(r); +} +S_20983:; +if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )== 16 ))||new_error){ +if(qbevent){evnt(17766);if(r)goto S_20983;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(uint16)(",9),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17766);}while(r); +} +S_20986:; +if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )== 32 ))||new_error){ +if(qbevent){evnt(17767);if(r)goto S_20986;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(uint32)(",9),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17767);}while(r); +} +S_20989:; +if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )== 64 ))||new_error){ +if(qbevent){evnt(17768);if(r)goto S_20989;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(uint64)(",9),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17768);}while(r); +} +}else{ +S_20993:; +if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )== 8 ))||new_error){ +if(qbevent){evnt(17770);if(r)goto S_20993;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(int8)(",7),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17770);}while(r); +} +S_20996:; +if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )== 16 ))||new_error){ +if(qbevent){evnt(17771);if(r)goto S_20996;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(int16)(",8),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17771);}while(r); +} +S_20999:; +if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )== 32 ))||new_error){ +if(qbevent){evnt(17772);if(r)goto S_20999;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(int32)(",8),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17772);}while(r); +} +S_21002:; +if ((-((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )== 64 ))||new_error){ +if(qbevent){evnt(17773);if(r)goto S_21002;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(int64)(",8),_FUNC_EVALUATEFUNC_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17773);}while(r); +} +} +} +} +} +S_21009:; +if (((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISPOINTER))||new_error){ +if(qbevent){evnt(17780);if(r)goto S_21009;} +S_21010:; +if (((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(17781);if(r)goto S_21010;} +do{ +goto LABEL_DONTEVALUATE; +if(!qbevent)break;evnt(17781);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_T,FUNC_TYP2CTYP(_FUNC_EVALUATEFUNC_LONG_TARGETTYP,qbs_new_txt_len("",0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17783);}while(r); +S_21014:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(17784);if(r)goto S_21014;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17784);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_V,qbs_add(qbs_new_txt_len("pass",4),FUNC_STR2(&(pass2681=FUNC_UNIQUENUMBER())))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17785);}while(r); +S_21018:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(qbs_new_fixed(&((uint8*)(__ARRAY_STRING100_SFCMEMARGS[0]))[(array_check((*_FUNC_EVALUATEFUNC_LONG_TARGETID)-__ARRAY_STRING100_SFCMEMARGS[4],__ARRAY_STRING100_SFCMEMARGS[5]))*100],100,1),*_FUNC_EVALUATEFUNC_LONG_CURARG, 1 ,0|1),func_chr( 1 ))))||new_error){ +if(qbevent){evnt(17787);if(r)goto S_21018;} +do{ +*_FUNC_EVALUATEFUNC_LONG_BYTESREQ=((*_FUNC_EVALUATEFUNC_LONG_TARGETTYP& 511 )+ 7 )/ 8 ; +if(!qbevent)break;evnt(17788);}while(r); +do{ +SUB_WRITEBUFLINE(__INTEGER_DEFDATAHANDLE,qbs_add(qbs_add(qbs_add(_FUNC_EVALUATEFUNC_STRING_T,qbs_new_txt_len(" *",2)),_FUNC_EVALUATEFUNC_STRING_V),qbs_new_txt_len("=NULL;",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17789);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass2682=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if(",3),_FUNC_EVALUATEFUNC_STRING_V),qbs_new_txt_len("==NULL){",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17790);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass2683=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("cmem_sp-=",9),FUNC_STR2(_FUNC_EVALUATEFUNC_LONG_BYTESREQ)),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17791);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass2684=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(_FUNC_EVALUATEFUNC_STRING_V,qbs_new_txt_len("=(",2)),_FUNC_EVALUATEFUNC_STRING_T),qbs_new_txt_len("*)(dblock+cmem_sp);",19))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17792);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass2685=*__LONG_DATATXTBUF),qbs_new_txt_len("if (cmem_spchr",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17813);}while(r); +} +S_21040:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ltrim(qbs_rtrim(_FUNC_EVALUATEFUNC_STRING_E)),qbs_new_txt_len("0",1))))||new_error){ +if(qbevent){evnt(17816);if(r)goto S_21040;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,qbs_new_txt_len("NULL",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17816);}while(r); +} +} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,_FUNC_EVALUATEFUNC_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17820);}while(r); +S_21045:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("_MEM",4)))|(((qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("MEM",3)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ +if(qbevent){evnt(17823);if(r)goto S_21045;} +S_21046:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_ARGS== 1 ))||new_error){ +if(qbevent){evnt(17824);if(r)goto S_21046;} +S_21047:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 1 ))||new_error){ +if(qbevent){evnt(17825);if(r)goto S_21047;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17825);}while(r); +do{ +goto LABEL_EVALFUNCSPECIAL; +if(!qbevent)break;evnt(17825);}while(r); +} +} +S_21052:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_ARGS== 2 ))||new_error){ +if(qbevent){evnt(17827);if(r)goto S_21052;} +S_21053:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_CURARG== 2 ))||new_error){ +if(qbevent){evnt(17828);if(r)goto S_21053;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17828);}while(r); +do{ +goto LABEL_EVALFUNCSPECIAL; +if(!qbevent)break;evnt(17828);}while(r); +} +} +} +S_21059:; +if (((-(*_FUNC_EVALUATEFUNC_LONG_I!=*_FUNC_EVALUATEFUNC_LONG_N))&(-(*_FUNC_EVALUATEFUNC_LONG_NOCOMMA== 0 )))||new_error){ +if(qbevent){evnt(17832);if(r)goto S_21059;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len(",",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17832);}while(r); +} +do{ +*_FUNC_EVALUATEFUNC_LONG_NOCOMMA= 0 ; +if(!qbevent)break;evnt(17833);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_FIRSTI=*_FUNC_EVALUATEFUNC_LONG_I+ 1 ; +if(!qbevent)break;evnt(17834);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_CURARG=*_FUNC_EVALUATEFUNC_LONG_CURARG+ 1 ; +if(!qbevent)break;evnt(17835);}while(r); +} +fornext_continue_2610:; +} +fornext_exit_2610:; +S_21067:; +if (((-(*_FUNC_EVALUATEFUNC_LONG_CURARG<=*(int16*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(809))))&(~(*(int8*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(808)))))||new_error){ +if(qbevent){evnt(17842);if(r)goto S_21067;} +S_21068:; +fornext_value2689=*_FUNC_EVALUATEFUNC_LONG_CURARG; +fornext_finalvalue2689=*(int16*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(809)); +fornext_step2689= 1 ; +if (fornext_step2689<0) fornext_step_negative2689=1; else fornext_step_negative2689=0; +if (new_error) goto fornext_error2689; +goto fornext_entrylabel2689; +while(1){ +fornext_value2689=fornext_step2689+(*_FUNC_EVALUATEFUNC_LONG_I); +fornext_entrylabel2689: +*_FUNC_EVALUATEFUNC_LONG_I=fornext_value2689; +if (fornext_step_negative2689){ +if (fornext_value2689fornext_finalvalue2689) break; +} +fornext_error2689:; +if(qbevent){evnt(17843);if(r)goto S_21068;} +S_21069:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_I== 1 ))||new_error){ +if(qbevent){evnt(17844);if(r)goto S_21069;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("NULL",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17844);}while(r); +}else{ +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len(",NULL",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17844);}while(r); +} +fornext_continue_2688:; +} +fornext_exit_2688:; +} +} +S_21077:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("UBOUND",6)))|(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("LBOUND",6)))))||new_error){ +if(qbevent){evnt(17849);if(r)goto S_21077;} +S_21078:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len(",NULL",5))))||new_error){ +if(qbevent){evnt(17850);if(r)goto S_21078;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len(",1",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17850);}while(r); +} +S_21081:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("UBOUND",6))))||new_error){ +if(qbevent){evnt(17851);if(r)goto S_21081;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R2,qbs_new_txt_len("func_ubound(",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17851);}while(r); +}else{ +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R2,qbs_new_txt_len("func_lbound(",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17851);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_E,FUNC_REFER(_FUNC_EVALUATEFUNC_STRING_ULBOUNDARRAY,_FUNC_EVALUATEFUNC_LONG_SOURCETYP,&(pass2690= 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17852);}while(r); +S_21087:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(17853);if(r)goto S_21087;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17853);}while(r); +} +do{ +*_FUNC_EVALUATEFUNC_LONG_ARRAYELEMENTS=*(int16*)(((char*)__UDT_ID)+(516)); +if(!qbevent)break;evnt(17856);}while(r); +S_21091:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_ARRAYELEMENTS== -1 ))||new_error){ +if(qbevent){evnt(17857);if(r)goto S_21091;} +do{ +*_FUNC_EVALUATEFUNC_LONG_ARRAYELEMENTS= 1 ; +if(!qbevent)break;evnt(17857);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_EVALUATEFUNC_STRING_R2,_FUNC_EVALUATEFUNC_STRING_E),_FUNC_EVALUATEFUNC_STRING_R),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATEFUNC_LONG_ARRAYELEMENTS)),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17859);}while(r); +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(17860);}while(r); +do{ +goto LABEL_EVALFUNCSPECIAL; +if(!qbevent)break;evnt(17861);}while(r); +} +S_21098:; +if ((*_FUNC_EVALUATEFUNC_LONG_PASSOMIT)||new_error){ +if(qbevent){evnt(17864);if(r)goto S_21098;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len(",0",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17865);}while(r); +S_21100:; +if ((*_FUNC_EVALUATEFUNC_LONG_HASOPTIONALFIRSTARG)||new_error){ +if(qbevent){evnt(17867);if(r)goto S_21100;} +S_21101:; +if ((((int32*)(_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[0]))[array_check(( 1 )-_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[4],_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[5])])||new_error){ +if(qbevent){evnt(17868);if(r)goto S_21101;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("|1",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17868);}while(r); +} +}else{ +S_21105:; +fornext_value2692=*_FUNC_EVALUATEFUNC_LONG_FIRSTOPTIONALARGUMENT; +fornext_finalvalue2692=func_ubound(_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS,1,1); +fornext_step2692= 1 ; +if (fornext_step2692<0) fornext_step_negative2692=1; else fornext_step_negative2692=0; +if (new_error) goto fornext_error2692; +goto fornext_entrylabel2692; +while(1){ +fornext_value2692=fornext_step2692+(*_FUNC_EVALUATEFUNC_LONG_I); +fornext_entrylabel2692: +*_FUNC_EVALUATEFUNC_LONG_I=fornext_value2692; +if (fornext_step_negative2692){ +if (fornext_value2692fornext_finalvalue2692) break; +} +fornext_error2692:; +if(qbevent){evnt(17870);if(r)goto S_21105;} +S_21106:; +if ((((int32*)(_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[0]))[array_check((*_FUNC_EVALUATEFUNC_LONG_I)-_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[4],_FUNC_EVALUATEFUNC_ARRAY_LONG_PROVIDEDARGS[5])])||new_error){ +if(qbevent){evnt(17871);if(r)goto S_21106;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len("|",1)),FUNC_STR2(&(pass2693=func__shl( 1 ,*_FUNC_EVALUATEFUNC_LONG_I-*_FUNC_EVALUATEFUNC_LONG_FIRSTOPTIONALARGUMENT))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17871);}while(r); +} +fornext_continue_2691:; +} +fornext_exit_2691:; +} +} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(_FUNC_EVALUATEFUNC_STRING_R,qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17875);}while(r); +LABEL_EVALFUNCSPECIAL:; +if(qbevent){evnt(17877);r=0;} +S_21113:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("ABS",3))))||new_error){ +if(qbevent){evnt(17879);if(r)goto S_21113;} +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP; +if(!qbevent)break;evnt(17879);}while(r); +} +S_21116:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("SIN",3)))|(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("COS",3)))|(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("TAN",3)))|(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("ATN",3)))|(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("SQR",3)))|(qbs_equal(_FUNC_EVALUATEFUNC_STRING_N,qbs_new_txt_len("LOG",3)))))||new_error){ +if(qbevent){evnt(17882);if(r)goto S_21116;} +do{ +*_FUNC_EVALUATEFUNC_LONG_B=*_FUNC_EVALUATEFUNC_LONG_SOURCETYP& 511 ; +if(!qbevent)break;evnt(17883);}while(r); +S_21118:; +if ((*_FUNC_EVALUATEFUNC_LONG_SOURCETYP&*__LONG_ISFLOAT)||new_error){ +if(qbevent){evnt(17884);if(r)goto S_21118;} +S_21119:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_B== 64 ))||new_error){ +if(qbevent){evnt(17886);if(r)goto S_21119;} +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(17886);}while(r); +} +S_21122:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_B== 32 ))||new_error){ +if(qbevent){evnt(17887);if(r)goto S_21122;} +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(17887);}while(r); +} +}else{ +S_21126:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_B<= 32 ))||new_error){ +if(qbevent){evnt(17890);if(r)goto S_21126;} +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(17890);}while(r); +} +S_21129:; +if ((-(*_FUNC_EVALUATEFUNC_LONG_B<= 16 ))||new_error){ +if(qbevent){evnt(17891);if(r)goto S_21129;} +do{ +*_FUNC_EVALUATEFUNC_LONG_TYP=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(17891);}while(r); +} +} +} +S_21134:; +if ((-(*(int32*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(2381))==(*__LONG_ISUDT+( 1 ))))||new_error){ +if(qbevent){evnt(17895);if(r)goto S_21134;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_V,qbs_add(qbs_new_txt_len("func",4),FUNC_STR2(&(pass2694=FUNC_UNIQUENUMBER())))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17897);}while(r); +do{ +SUB_WRITEBUFLINE(__INTEGER_DEFDATAHANDLE,qbs_add(qbs_add(qbs_new_txt_len("mem_block ",10),_FUNC_EVALUATEFUNC_STRING_V),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17898);}while(r); +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(",1),_FUNC_EVALUATEFUNC_STRING_V),qbs_new_txt_len("=",1)),_FUNC_EVALUATEFUNC_STRING_R),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17899);}while(r); +} +S_21139:; +if ((*(int16*)(((char*)_FUNC_EVALUATEFUNC_UDT_ID2)+(806)))||new_error){ +if(qbevent){evnt(17902);if(r)goto S_21139;} +S_21140:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_EVALUATEFUNC_STRING_R, 11 ),qbs_new_txt_len("( char* )",11))))||new_error){ +if(qbevent){evnt(17903);if(r)goto S_21140;} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_R,qbs_add(qbs_add(qbs_new_txt_len("qbs_new_txt(",12),_FUNC_EVALUATEFUNC_STRING_R),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17904);}while(r); +} +} +S_21144:; +if (( 0 )||new_error){ +if(qbevent){evnt(17908);if(r)goto S_21144;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip2695; +sub_file_print(tmp_fileno,qbs_new_txt_len("evaluatefunc:out:",17), 0, 0, 0); +if (new_error) goto skip2695; +sub_file_print(tmp_fileno,_FUNC_EVALUATEFUNC_STRING_R, 0, 0, 1); +if (new_error) goto skip2695; +skip2695: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(17908);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATEFUNC_STRING_EVALUATEFUNC,_FUNC_EVALUATEFUNC_STRING_R); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17909);}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free19.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_EVALUATEFUNC_STRING_EVALUATEFUNC);return _FUNC_EVALUATEFUNC_STRING_EVALUATEFUNC; +} +qbs* FUNC_VARIABLESIZE(int32*_FUNC_VARIABLESIZE_LONG_I){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data20.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +S_21148:; +if ((-(*_FUNC_VARIABLESIZE_LONG_I!= -1 ))||new_error){ +if(qbevent){evnt(17914);if(r)goto S_21148;} +do{ +SUB_GETID(_FUNC_VARIABLESIZE_LONG_I); +if(!qbevent)break;evnt(17914);}while(r); +} +S_21151:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(17915);if(r)goto S_21151;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17915);}while(r); +} +do{ +*_FUNC_VARIABLESIZE_LONG_T=*(int32*)(((char*)__UDT_ID)+(536)); +if(!qbevent)break;evnt(17917);}while(r); +S_21155:; +if ((-(*_FUNC_VARIABLESIZE_LONG_T== 0 ))||new_error){ +if(qbevent){evnt(17917);if(r)goto S_21155;} +do{ +*_FUNC_VARIABLESIZE_LONG_T=*(int32*)(((char*)__UDT_ID)+(512)); +if(!qbevent)break;evnt(17917);}while(r); +} +do{ +*_FUNC_VARIABLESIZE_LONG_BYTES=(*_FUNC_VARIABLESIZE_LONG_T& 511 )/ 8 ; +if(!qbevent)break;evnt(17918);}while(r); +S_21159:; +if ((*_FUNC_VARIABLESIZE_LONG_T&*__LONG_ISUDT)||new_error){ +if(qbevent){evnt(17920);if(r)goto S_21159;} +do{ +*_FUNC_VARIABLESIZE_LONG_U=*_FUNC_VARIABLESIZE_LONG_T& 511 ; +if(!qbevent)break;evnt(17921);}while(r); +do{ +*_FUNC_VARIABLESIZE_LONG_BYTES=((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*_FUNC_VARIABLESIZE_LONG_U)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])]/ 8 ; +if(!qbevent)break;evnt(17922);}while(r); +} +S_21163:; +if ((*_FUNC_VARIABLESIZE_LONG_T&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(17925);if(r)goto S_21163;} +S_21164:; +if ((*_FUNC_VARIABLESIZE_LONG_T&*__LONG_ISFIXEDLENGTH)||new_error){ +if(qbevent){evnt(17926);if(r)goto S_21164;} +do{ +*_FUNC_VARIABLESIZE_LONG_BYTES=*(int32*)(((char*)__UDT_ID)+(540)); +if(!qbevent)break;evnt(17927);}while(r); +}else{ +S_21167:; +if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ +if(qbevent){evnt(17929);if(r)goto S_21167;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Cannot determine size of variable-length string array",53)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17929);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17929);}while(r); +} +do{ +qbs_set(_FUNC_VARIABLESIZE_STRING_VARIABLESIZE,qbs_add(qbs_add(qbs_add(FUNC_SCOPE(),qbs_new_txt_len("STRING_",7)),qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1))),qbs_new_txt_len("->len",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17930);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17931);}while(r); +} +} +S_21175:; +if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ +if(qbevent){evnt(17935);if(r)goto S_21175;} +do{ +qbs_set(_FUNC_VARIABLESIZE_STRING_N,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17936);}while(r); +do{ +qbs_set(_FUNC_VARIABLESIZE_STRING_S,qbs_add(qbs_add(qbs_add(FUNC_STR2(_FUNC_VARIABLESIZE_LONG_BYTES),qbs_new_txt_len("*(",2)),_FUNC_VARIABLESIZE_STRING_N),qbs_new_txt_len("[2]&1)",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17937);}while(r); +do{ +*_FUNC_VARIABLESIZE_LONG_ARRAYELEMENTS=*(int16*)(((char*)__UDT_ID)+(516)); +if(!qbevent)break;evnt(17938);}while(r); +S_21179:; +if ((-(*_FUNC_VARIABLESIZE_LONG_ARRAYELEMENTS== -1 ))||new_error){ +if(qbevent){evnt(17938);if(r)goto S_21179;} +do{ +*_FUNC_VARIABLESIZE_LONG_ARRAYELEMENTS= 1 ; +if(!qbevent)break;evnt(17938);}while(r); +} +S_21182:; +fornext_value2697= 1 ; +fornext_finalvalue2697=*_FUNC_VARIABLESIZE_LONG_ARRAYELEMENTS; +fornext_step2697= 1 ; +if (fornext_step2697<0) fornext_step_negative2697=1; else fornext_step_negative2697=0; +if (new_error) goto fornext_error2697; +goto fornext_entrylabel2697; +while(1){ +fornext_value2697=fornext_step2697+(*_FUNC_VARIABLESIZE_LONG_I2); +fornext_entrylabel2697: +*_FUNC_VARIABLESIZE_LONG_I2=fornext_value2697; +if (fornext_step_negative2697){ +if (fornext_value2697fornext_finalvalue2697) break; +} +fornext_error2697:; +if(qbevent){evnt(17939);if(r)goto S_21182;} +do{ +qbs_set(_FUNC_VARIABLESIZE_STRING_S,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_VARIABLESIZE_STRING_S,qbs_new_txt_len("*",1)),_FUNC_VARIABLESIZE_STRING_N),qbs_new_txt_len("[",1)),FUNC_STR2(&(pass2698=(*_FUNC_VARIABLESIZE_LONG_I2* 4 )-( 4 )+( 5 )))),qbs_new_txt_len("]",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17940);}while(r); +fornext_continue_2696:; +} +fornext_exit_2696:; +do{ +qbs_set(_FUNC_VARIABLESIZE_STRING_VARIABLESIZE,qbs_add(qbs_add(qbs_new_txt_len("(",1),_FUNC_VARIABLESIZE_STRING_S),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17942);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17943);}while(r); +} +do{ +qbs_set(_FUNC_VARIABLESIZE_STRING_VARIABLESIZE,FUNC_STR2(_FUNC_VARIABLESIZE_LONG_BYTES)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17946);}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free20.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_VARIABLESIZE_STRING_VARIABLESIZE);return _FUNC_VARIABLESIZE_STRING_VARIABLESIZE; +} +qbs* FUNC_EVALUATETOTYP(qbs*_FUNC_EVALUATETOTYP_STRING_A2,int32*_FUNC_EVALUATETOTYP_LONG_TARGETTYP){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data21.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_A,_FUNC_EVALUATETOTYP_STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17953);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_EVALUATE(_FUNC_EVALUATETOTYP_STRING_A,_FUNC_EVALUATETOTYP_LONG_SOURCETYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17954);}while(r); +S_21191:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(17955);if(r)goto S_21191;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17955);}while(r); +} +S_21194:; +if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISOFFSET)||new_error){ +if(qbevent){evnt(17958);if(r)goto S_21194;} +S_21195:; +if (((-((*_FUNC_EVALUATETOTYP_LONG_TARGETTYP&*__LONG_ISOFFSET)== 0 ))&(-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP>= 0 )))||new_error){ +if(qbevent){evnt(17959);if(r)goto S_21195;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Cannot convert _OFFSET type to other types",42)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17960);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17960);}while(r); +} +} +S_21200:; +if (((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -4 ))|(-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -5 ))|(-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -6 )))||new_error){ +if(qbevent){evnt(17966);if(r)goto S_21200;} +S_21201:; +if ((-((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||new_error){ +if(qbevent){evnt(17967);if(r)goto S_21201;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected variable name/array element",36)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17967);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17967);}while(r); +} +S_21205:; +if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISOFFSETINBITS))||new_error){ +if(qbevent){evnt(17968);if(r)goto S_21205;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Variable/element cannot be BIT aligned",38)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17968);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17968);}while(r); +} +S_21209:; +if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISUDT))||new_error){ +if(qbevent){evnt(17972);if(r)goto S_21209;} +S_21210:; +if ((((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP& 511 )-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])])||new_error){ +if(qbevent){evnt(17973);if(r)goto S_21210;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("UDT must have fixed size",24)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17973);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17973);}while(r); +} +do{ +*_FUNC_EVALUATETOTYP_LONG_IDNUMBER=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17974);}while(r); +do{ +*_FUNC_EVALUATETOTYP_LONG_I=func_instr(NULL,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17975);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_right(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_STRING_E->len-*_FUNC_EVALUATETOTYP_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17975);}while(r); +do{ +*_FUNC_EVALUATETOTYP_LONG_U=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17976);}while(r); +do{ +*_FUNC_EVALUATETOTYP_LONG_I=func_instr(NULL,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17977);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_right(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_STRING_E->len-*_FUNC_EVALUATETOTYP_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17977);}while(r); +do{ +*__LONG_E=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17978);}while(r); +do{ +*_FUNC_EVALUATETOTYP_LONG_I=func_instr(NULL,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17979);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_right(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_STRING_E->len-*_FUNC_EVALUATETOTYP_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17979);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_O,_FUNC_EVALUATETOTYP_STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17980);}while(r); +do{ +SUB_GETID(_FUNC_EVALUATETOTYP_LONG_IDNUMBER); +if(!qbevent)break;evnt(17981);}while(r); +S_21225:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(17982);if(r)goto S_21225;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(17982);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATETOTYP_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(17983);}while(r); +S_21229:; +if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ +if(qbevent){evnt(17984);if(r)goto S_21229;} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_N,qbs_add(qbs_add(qbs_new_txt_len("ARRAY_",6),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len("[0]",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17985);}while(r); +S_21231:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_EVALUATETOTYP_STRING_O, 3 ),qbs_new_txt_len("(0)",3))))||new_error){ +if(qbevent){evnt(17987);if(r)goto S_21231;} +do{ +goto LABEL_METHOD2USEALLUDT; +if(!qbevent)break;evnt(17989);}while(r); +} +} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_DST,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(((char*)",9),FUNC_SCOPE()),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len(")+(",3)),_FUNC_EVALUATETOTYP_STRING_O),qbs_new_txt_len("))",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17993);}while(r); +S_21236:; +if ((-(*__LONG_E== 0 ))||new_error){ +if(qbevent){evnt(17996);if(r)goto S_21236;} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,FUNC_STR2(&(pass2703=((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*_FUNC_EVALUATETOTYP_LONG_U)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])]/ 8 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(17997);}while(r); +}else{ +S_21239:; +if (((-((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISSTRING)> 0 ))&(-((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISFIXEDLENGTH)== 0 ))&((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -5 ))))||new_error){ +if(qbevent){evnt(17999);if(r)goto S_21239;} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_new_txt_len("(*(qbs**)",9),_FUNC_EVALUATETOTYP_STRING_DST),qbs_new_txt_len(")->len",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18000);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18001);}while(r); +S_21242:; +}else{ +if ((-((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISSTRING)> 0 ))&(-((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISFIXEDLENGTH)== 0 ))&((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -4 )))){ +if(qbevent){evnt(18002);if(r)goto S_21242;} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_DST,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(*((qbs**)((char*)",18),FUNC_SCOPE()),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len("+(",2)),_FUNC_EVALUATETOTYP_STRING_O),qbs_new_txt_len("))))->chr",9))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18003);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(*((qbs**)((char*)",18),FUNC_SCOPE()),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len("+(",2)),_FUNC_EVALUATETOTYP_STRING_O),qbs_new_txt_len("))))->len",9))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18004);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("byte_element((uint64)",21),_FUNC_EVALUATETOTYP_STRING_DST),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18005);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18006);}while(r); +} +} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,FUNC_STR2(&(pass2704=((int32*)(__ARRAY_LONG_UDTESIZE[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5])]/ 8 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18008);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("byte_element((uint64)",21),_FUNC_EVALUATETOTYP_STRING_DST),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18010);}while(r); +S_21251:; +if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -5 ))||new_error){ +if(qbevent){evnt(18011);if(r)goto S_21251;} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_BYTES); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18011);}while(r); +} +S_21254:; +if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -6 ))||new_error){ +if(qbevent){evnt(18012);if(r)goto S_21254;} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_DST); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18012);}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18013);}while(r); +} +S_21259:; +if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISARRAY))||new_error){ +if(qbevent){evnt(18016);if(r)goto S_21259;} +S_21260:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal((qbs_right(_FUNC_EVALUATETOTYP_STRING_E, 2 )),(qbs_add(__STRING1_SP3,qbs_new_txt_len("0",1))))))||new_error){ +if(qbevent){evnt(18018);if(r)goto S_21260;} +S_21261:; +if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(18020);if(r)goto S_21261;} +S_21262:; +if ((-((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ +if(qbevent){evnt(18021);if(r)goto S_21262;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Cannot pass array of variable-length strings",44)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18022);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18022);}while(r); +} +} +do{ +goto LABEL_METHOD2USEALL; +if(!qbevent)break;evnt(18025);}while(r); +} +S_21269:; +if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(18028);if(r)goto S_21269;} +S_21270:; +if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH)||new_error){ +if(qbevent){evnt(18029);if(r)goto S_21270;} +do{ +*_FUNC_EVALUATETOTYP_LONG_IDNUMBER=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18030);}while(r); +do{ +SUB_GETID(_FUNC_EVALUATETOTYP_LONG_IDNUMBER); +if(!qbevent)break;evnt(18031);}while(r); +S_21273:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(18032);if(r)goto S_21273;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18032);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,FUNC_STR2((int32*)(void*)( ((char*)(__UDT_ID)) + (540) ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18033);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2705= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18034);}while(r); +S_21278:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(18035);if(r)goto S_21278;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18035);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("byte_element((uint64)",21),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len("->chr,",6)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18036);}while(r); +S_21282:; +if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -5 ))||new_error){ +if(qbevent){evnt(18037);if(r)goto S_21282;} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_BYTES); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18037);}while(r); +} +S_21285:; +if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -6 ))||new_error){ +if(qbevent){evnt(18038);if(r)goto S_21285;} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(_FUNC_EVALUATETOTYP_STRING_E,qbs_new_txt_len("->chr",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18038);}while(r); +} +}else{ +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2706= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18040);}while(r); +S_21290:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(18041);if(r)goto S_21290;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18041);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("byte_element((uint64)",21),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len("->chr,",6)),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len("->len,",6)),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18043);}while(r); +S_21294:; +if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -5 ))||new_error){ +if(qbevent){evnt(18044);if(r)goto S_21294;} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(_FUNC_EVALUATETOTYP_STRING_E,qbs_new_txt_len("->len",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18044);}while(r); +} +S_21297:; +if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -6 ))||new_error){ +if(qbevent){evnt(18045);if(r)goto S_21297;} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(_FUNC_EVALUATETOTYP_STRING_E,qbs_new_txt_len("->chr",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18045);}while(r); +} +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18047);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2707= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18049);}while(r); +S_21304:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(18050);if(r)goto S_21304;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18050);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(&(",3),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len("))",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18051);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,FUNC_STR2(&(pass2708=(*_FUNC_EVALUATETOTYP_LONG_SOURCETYP& 511 )/ 8 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18052);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("byte_element((uint64)",21),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18053);}while(r); +S_21310:; +if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -5 ))||new_error){ +if(qbevent){evnt(18054);if(r)goto S_21310;} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_BYTES); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18054);}while(r); +} +S_21313:; +if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -6 ))||new_error){ +if(qbevent){evnt(18055);if(r)goto S_21313;} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18055);}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18056);}while(r); +} +S_21318:; +if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(18059);if(r)goto S_21318;} +S_21319:; +if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH)||new_error){ +if(qbevent){evnt(18060);if(r)goto S_21319;} +do{ +*_FUNC_EVALUATETOTYP_LONG_IDNUMBER=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18061);}while(r); +do{ +SUB_GETID(_FUNC_EVALUATETOTYP_LONG_IDNUMBER); +if(!qbevent)break;evnt(18062);}while(r); +S_21322:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(18063);if(r)goto S_21322;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18063);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,FUNC_STR2((int32*)(void*)( ((char*)(__UDT_ID)) + (540) ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18064);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2709= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18065);}while(r); +S_21327:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(18066);if(r)goto S_21327;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18066);}while(r); +} +}else{ +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2710= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18068);}while(r); +S_21332:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(18069);if(r)goto S_21332;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18069);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,qbs_add(_FUNC_EVALUATETOTYP_STRING_E,qbs_new_txt_len("->len",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18070);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("byte_element((uint64)",21),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len("->chr,",6)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18072);}while(r); +S_21338:; +if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -5 ))||new_error){ +if(qbevent){evnt(18073);if(r)goto S_21338;} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_BYTES); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18073);}while(r); +} +S_21341:; +if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -6 ))||new_error){ +if(qbevent){evnt(18074);if(r)goto S_21341;} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(_FUNC_EVALUATETOTYP_STRING_E,qbs_new_txt_len("->chr",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18074);}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18075);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2711= 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18079);}while(r); +S_21347:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(18080);if(r)goto S_21347;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18080);}while(r); +} +do{ +*_FUNC_EVALUATETOTYP_LONG_SIZE=(*_FUNC_EVALUATETOTYP_LONG_SOURCETYP& 511 )/ 8 ; +if(!qbevent)break;evnt(18081);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("byte_element((uint64)",21),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATETOTYP_LONG_SIZE)),qbs_new_txt_len(",",1)),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18082);}while(r); +S_21352:; +if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -5 ))||new_error){ +if(qbevent){evnt(18083);if(r)goto S_21352;} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,FUNC_STR2(_FUNC_EVALUATETOTYP_LONG_SIZE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18083);}while(r); +} +S_21355:; +if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -6 ))||new_error){ +if(qbevent){evnt(18084);if(r)goto S_21355;} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18084);}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18085);}while(r); +} +S_21360:; +if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -8 ))||new_error){ +if(qbevent){evnt(18092);if(r)goto S_21360;} +S_21361:; +if ((-((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||new_error){ +if(qbevent){evnt(18093);if(r)goto S_21361;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected variable name/array element",36)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18093);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18093);}while(r); +} +S_21365:; +if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISOFFSETINBITS))||new_error){ +if(qbevent){evnt(18094);if(r)goto S_21365;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Variable/element cannot be BIT aligned",38)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18094);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18094);}while(r); +} +S_21369:; +if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISUDT))||new_error){ +if(qbevent){evnt(18097);if(r)goto S_21369;} +do{ +*_FUNC_EVALUATETOTYP_LONG_IDNUMBER=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18098);}while(r); +do{ +*_FUNC_EVALUATETOTYP_LONG_I=func_instr(NULL,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18099);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_right(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_STRING_E->len-*_FUNC_EVALUATETOTYP_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18099);}while(r); +do{ +*_FUNC_EVALUATETOTYP_LONG_U=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18100);}while(r); +do{ +*_FUNC_EVALUATETOTYP_LONG_I=func_instr(NULL,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18101);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_right(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_STRING_E->len-*_FUNC_EVALUATETOTYP_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18101);}while(r); +do{ +*__LONG_E=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18102);}while(r); +do{ +*_FUNC_EVALUATETOTYP_LONG_I=func_instr(NULL,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18103);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_right(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_STRING_E->len-*_FUNC_EVALUATETOTYP_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18103);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_O,_FUNC_EVALUATETOTYP_STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18104);}while(r); +do{ +SUB_GETID(_FUNC_EVALUATETOTYP_LONG_IDNUMBER); +if(!qbevent)break;evnt(18105);}while(r); +S_21381:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(18106);if(r)goto S_21381;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18106);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATETOTYP_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(18107);}while(r); +S_21385:; +if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ +if(qbevent){evnt(18108);if(r)goto S_21385;} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_N,qbs_add(qbs_add(qbs_new_txt_len("ARRAY_",6),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len("[0]",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18109);}while(r); +S_21387:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_EVALUATETOTYP_STRING_O, 3 ),qbs_new_txt_len("(0)",3))))||new_error){ +if(qbevent){evnt(18111);if(r)goto S_21387;} +do{ +goto LABEL_METHOD2USEALLUDT__7; +if(!qbevent)break;evnt(18113);}while(r); +} +} +S_21391:; +if ((-(*__LONG_E== 0 ))||new_error){ +if(qbevent){evnt(18117);if(r)goto S_21391;} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,FUNC_STR2(&(pass2715=((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*_FUNC_EVALUATETOTYP_LONG_U)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])]/ 8 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18118);}while(r); +do{ +*_FUNC_EVALUATETOTYP_LONG_T1=*__LONG_ISUDT+((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_FUNC_EVALUATETOTYP_LONG_U)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]; +if(!qbevent)break;evnt(18119);}while(r); +}else{ +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,FUNC_STR2(&(pass2716=((int32*)(__ARRAY_LONG_UDTESIZE[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5])]/ 8 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18121);}while(r); +do{ +*_FUNC_EVALUATETOTYP_LONG_T1=((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]; +if(!qbevent)break;evnt(18122);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_DST,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(((char*)",9),FUNC_SCOPE()),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len(")+(",3)),_FUNC_EVALUATETOTYP_STRING_O),qbs_new_txt_len("))",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18124);}while(r); +do{ +*_FUNC_EVALUATETOTYP_LONG_T=FUNC_TYPE2MEMTYPEVALUE(_FUNC_EVALUATETOTYP_LONG_T1); +if(!qbevent)break;evnt(18129);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(ptrszint)",10),_FUNC_EVALUATETOTYP_STRING_DST),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATETOTYP_LONG_T)),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",sf_mem_lock",12))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18130);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18132);}while(r); +} +S_21403:; +if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISARRAY))||new_error){ +if(qbevent){evnt(18135);if(r)goto S_21403;} +S_21404:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal((qbs_right(_FUNC_EVALUATETOTYP_STRING_E, 2 )),(qbs_add(__STRING1_SP3,qbs_new_txt_len("0",1))))))||new_error){ +if(qbevent){evnt(18137);if(r)goto S_21404;} +S_21405:; +if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(18139);if(r)goto S_21405;} +S_21406:; +if ((-((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ +if(qbevent){evnt(18140);if(r)goto S_21406;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Cannot pass array of variable-length strings",44)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18141);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18141);}while(r); +} +} +do{ +goto LABEL_METHOD2USEALL__7; +if(!qbevent)break;evnt(18144);}while(r); +} +do{ +*_FUNC_EVALUATETOTYP_LONG_IDNUMBER=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18147);}while(r); +do{ +SUB_GETID(_FUNC_EVALUATETOTYP_LONG_IDNUMBER); +if(!qbevent)break;evnt(18148);}while(r); +S_21415:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(18149);if(r)goto S_21415;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18149);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_N,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18150);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_LK,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(mem_lock*)((ptrszint*)",23),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len(")[",2)),FUNC_STR2(&(pass2717=( 4 **(int16*)(((char*)__UDT_ID)+(516)))+( 4 )+( 1 )-( 1 )))),qbs_new_txt_len("]",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18151);}while(r); +S_21420:; +if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(18155);if(r)goto S_21420;} +S_21421:; +if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH)||new_error){ +if(qbevent){evnt(18156);if(r)goto S_21421;} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,FUNC_STR2((int32*)(void*)( ((char*)(__UDT_ID)) + (540) ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18157);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2718= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18158);}while(r); +S_21424:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(18159);if(r)goto S_21424;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18159);}while(r); +} +do{ +*_FUNC_EVALUATETOTYP_LONG_T=FUNC_TYPE2MEMTYPEVALUE(_FUNC_EVALUATETOTYP_LONG_SOURCETYP); +if(!qbevent)break;evnt(18164);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(ptrszint)",10),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len("->chr,",6)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATETOTYP_LONG_T)),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_LK)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18165);}while(r); +}else{ +do{ +SUB_GIVE_ERROR(qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MEMELEMENT cannot reference variable-length strings",51))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18169);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18169);}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18172);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2719= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18175);}while(r); +S_21436:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(18176);if(r)goto S_21436;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18176);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(&(",3),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len("))",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18177);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,FUNC_STR2(&(pass2720=(*_FUNC_EVALUATETOTYP_LONG_SOURCETYP& 511 )/ 8 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18178);}while(r); +do{ +*_FUNC_EVALUATETOTYP_LONG_T=FUNC_TYPE2MEMTYPEVALUE(_FUNC_EVALUATETOTYP_LONG_SOURCETYP); +if(!qbevent)break;evnt(18183);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(ptrszint)",10),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATETOTYP_LONG_T)),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_LK)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18184);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18186);}while(r); +} +S_21445:; +if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(18189);if(r)goto S_21445;} +S_21446:; +if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH)||new_error){ +if(qbevent){evnt(18190);if(r)goto S_21446;} +do{ +*_FUNC_EVALUATETOTYP_LONG_IDNUMBER=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18191);}while(r); +do{ +SUB_GETID(_FUNC_EVALUATETOTYP_LONG_IDNUMBER); +if(!qbevent)break;evnt(18192);}while(r); +S_21449:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(18193);if(r)goto S_21449;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18193);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,FUNC_STR2((int32*)(void*)( ((char*)(__UDT_ID)) + (540) ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18194);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2721= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18195);}while(r); +S_21454:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(18196);if(r)goto S_21454;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18196);}while(r); +} +}else{ +do{ +SUB_GIVE_ERROR(qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MEMELEMENT cannot reference variable-length strings",51))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18198);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18198);}while(r); +} +do{ +*_FUNC_EVALUATETOTYP_LONG_T=FUNC_TYPE2MEMTYPEVALUE(_FUNC_EVALUATETOTYP_LONG_SOURCETYP); +if(!qbevent)break;evnt(18205);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(ptrszint)",10),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len("->chr,",6)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATETOTYP_LONG_T)),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",sf_mem_lock",12))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18206);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18208);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2722= 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18212);}while(r); +S_21466:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(18213);if(r)goto S_21466;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18213);}while(r); +} +do{ +*_FUNC_EVALUATETOTYP_LONG_SIZE=(*_FUNC_EVALUATETOTYP_LONG_SOURCETYP& 511 )/ 8 ; +if(!qbevent)break;evnt(18214);}while(r); +do{ +*_FUNC_EVALUATETOTYP_LONG_T=FUNC_TYPE2MEMTYPEVALUE(_FUNC_EVALUATETOTYP_LONG_SOURCETYP); +if(!qbevent)break;evnt(18219);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(ptrszint)",10),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATETOTYP_LONG_SIZE)),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATETOTYP_LONG_T)),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATETOTYP_LONG_SIZE)),qbs_new_txt_len(",sf_mem_lock",12))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18220);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18222);}while(r); +} +S_21474:; +if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -7 ))||new_error){ +if(qbevent){evnt(18235);if(r)goto S_21474;} +LABEL_METHOD2USEALL__7:; +if(qbevent){evnt(18236);r=0;} +S_21475:; +if ((-((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||new_error){ +if(qbevent){evnt(18237);if(r)goto S_21475;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected variable name/array element",36)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18237);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18237);}while(r); +} +S_21479:; +if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISOFFSETINBITS))||new_error){ +if(qbevent){evnt(18238);if(r)goto S_21479;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Variable/element cannot be BIT aligned",38)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18238);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18238);}while(r); +} +S_21483:; +if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISUDT))||new_error){ +if(qbevent){evnt(18241);if(r)goto S_21483;} +do{ +*_FUNC_EVALUATETOTYP_LONG_IDNUMBER=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18243);}while(r); +do{ +*_FUNC_EVALUATETOTYP_LONG_I=func_instr(NULL,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18244);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_right(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_STRING_E->len-*_FUNC_EVALUATETOTYP_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18244);}while(r); +do{ +*_FUNC_EVALUATETOTYP_LONG_U=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18245);}while(r); +do{ +*_FUNC_EVALUATETOTYP_LONG_I=func_instr(NULL,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18246);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_right(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_STRING_E->len-*_FUNC_EVALUATETOTYP_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18246);}while(r); +do{ +*__LONG_E=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18247);}while(r); +do{ +*_FUNC_EVALUATETOTYP_LONG_I=func_instr(NULL,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18248);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_right(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_STRING_E->len-*_FUNC_EVALUATETOTYP_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18248);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_O,_FUNC_EVALUATETOTYP_STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18250);}while(r); +do{ +SUB_GETID(_FUNC_EVALUATETOTYP_LONG_IDNUMBER); +if(!qbevent)break;evnt(18251);}while(r); +S_21495:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(18252);if(r)goto S_21495;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18252);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATETOTYP_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(18253);}while(r); +S_21499:; +if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ +if(qbevent){evnt(18253);if(r)goto S_21499;} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_N,qbs_add(qbs_add(qbs_new_txt_len("ARRAY_",6),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len("[0]",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18253);}while(r); +} +LABEL_METHOD2USEALLUDT__7:; +if(qbevent){evnt(18254);r=0;} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,qbs_add(qbs_add(qbs_add(FUNC_VARIABLESIZE(&(pass2726= -1 )),qbs_new_txt_len("-(",2)),_FUNC_EVALUATETOTYP_STRING_O),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18255);}while(r); +S_21503:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(18256);if(r)goto S_21503;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18256);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_DST,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(((char*)",9),FUNC_SCOPE()),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len(")+(",3)),_FUNC_EVALUATETOTYP_STRING_O),qbs_new_txt_len("))",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18257);}while(r); +S_21507:; +if ((-(*__LONG_E!= 0 ))||new_error){ +if(qbevent){evnt(18263);if(r)goto S_21507;} +do{ +*_FUNC_EVALUATETOTYP_LONG_SIZE= 1 ; +if(!qbevent)break;evnt(18263);}while(r); +}else{ +do{ +*_FUNC_EVALUATETOTYP_LONG_SIZE=((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*_FUNC_EVALUATETOTYP_LONG_U)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])]/ 8 ; +if(!qbevent)break;evnt(18263);}while(r); +} +do{ +*_FUNC_EVALUATETOTYP_LONG_T=FUNC_TYPE2MEMTYPEVALUE(_FUNC_EVALUATETOTYP_LONG_SOURCETYP); +if(!qbevent)break;evnt(18265);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(ptrszint)",10),_FUNC_EVALUATETOTYP_STRING_DST),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATETOTYP_LONG_T)),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATETOTYP_LONG_SIZE)),qbs_new_txt_len(",sf_mem_lock",12))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18266);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18268);}while(r); +} +S_21516:; +if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISARRAY))||new_error){ +if(qbevent){evnt(18272);if(r)goto S_21516;} +S_21517:; +if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(18273);if(r)goto S_21517;} +S_21518:; +if ((-((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ +if(qbevent){evnt(18274);if(r)goto S_21518;} +do{ +SUB_GIVE_ERROR(qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MEM cannot reference variable-length strings",44))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18275);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18275);}while(r); +} +} +do{ +*_FUNC_EVALUATETOTYP_LONG_IDNUMBER=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18279);}while(r); +do{ +SUB_GETID(_FUNC_EVALUATETOTYP_LONG_IDNUMBER); +if(!qbevent)break;evnt(18280);}while(r); +S_21525:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(18281);if(r)goto S_21525;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18281);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_N,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18283);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_LK,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(mem_lock*)((ptrszint*)",23),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len(")[",2)),FUNC_STR2(&(pass2727=( 4 **(int16*)(((char*)__UDT_ID)+(516)))+( 4 )+( 1 )-( 1 )))),qbs_new_txt_len("]",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18284);}while(r); +do{ +*_FUNC_EVALUATETOTYP_LONG_TSIZE=*(int32*)(((char*)__UDT_ID)+(540)); +if(!qbevent)break;evnt(18286);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_INDEX,qbs_right(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_STRING_E->len-func_instr(NULL,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18288);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,FUNC_VARIABLESIZE(&(pass2729= -1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18289);}while(r); +S_21533:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(18290);if(r)goto S_21533;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18290);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2730= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18291);}while(r); +S_21537:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(18292);if(r)goto S_21537;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18292);}while(r); +} +S_21540:; +if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(18294);if(r)goto S_21540;} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("((",2),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len(")->chr)",7))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18295);}while(r); +}else{ +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(&(",3),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len("))",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18297);}while(r); +} +S_21545:; +if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(18302);if(r)goto S_21545;} +do{ +*_FUNC_EVALUATETOTYP_LONG_BYTES=*_FUNC_EVALUATETOTYP_LONG_TSIZE; +if(!qbevent)break;evnt(18303);}while(r); +}else{ +do{ +*_FUNC_EVALUATETOTYP_LONG_BYTES=(*_FUNC_EVALUATETOTYP_LONG_SOURCETYP& 511 )/ 8 ; +if(!qbevent)break;evnt(18305);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_EVALUATETOTYP_STRING_BYTES,qbs_new_txt_len("-(",2)),FUNC_STR2(_FUNC_EVALUATETOTYP_LONG_BYTES)),qbs_new_txt_len("*(",2)),_FUNC_EVALUATETOTYP_STRING_INDEX),qbs_new_txt_len("))",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18307);}while(r); +do{ +*_FUNC_EVALUATETOTYP_LONG_T=FUNC_TYPE2MEMTYPEVALUE(_FUNC_EVALUATETOTYP_LONG_SOURCETYP); +if(!qbevent)break;evnt(18309);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(ptrszint)",10),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATETOTYP_LONG_T)),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATETOTYP_LONG_BYTES)),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_LK)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18310);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18312);}while(r); +} +S_21555:; +if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(18316);if(r)goto S_21555;} +S_21556:; +if ((-((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ +if(qbevent){evnt(18317);if(r)goto S_21556;} +do{ +SUB_GIVE_ERROR(qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MEM cannot reference variable-length strings",44))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18317);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18317);}while(r); +} +do{ +*_FUNC_EVALUATETOTYP_LONG_IDNUMBER=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18319);}while(r); +do{ +SUB_GETID(_FUNC_EVALUATETOTYP_LONG_IDNUMBER); +if(!qbevent)break;evnt(18320);}while(r); +S_21562:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(18320);if(r)goto S_21562;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18320);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,FUNC_STR2((int32*)(void*)( ((char*)(__UDT_ID)) + (540) ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18321);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2731= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18322);}while(r); +S_21567:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(18322);if(r)goto S_21567;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18322);}while(r); +} +do{ +*_FUNC_EVALUATETOTYP_LONG_T=FUNC_TYPE2MEMTYPEVALUE(_FUNC_EVALUATETOTYP_LONG_SOURCETYP); +if(!qbevent)break;evnt(18324);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(ptrszint)",10),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len("->chr,",6)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATETOTYP_LONG_T)),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",sf_mem_lock",12))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18325);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18327);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2732= 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18331);}while(r); +S_21575:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(18332);if(r)goto S_21575;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18332);}while(r); +} +do{ +*_FUNC_EVALUATETOTYP_LONG_SIZE=(*_FUNC_EVALUATETOTYP_LONG_SOURCETYP& 511 )/ 8 ; +if(!qbevent)break;evnt(18333);}while(r); +do{ +*_FUNC_EVALUATETOTYP_LONG_T=FUNC_TYPE2MEMTYPEVALUE(_FUNC_EVALUATETOTYP_LONG_SOURCETYP); +if(!qbevent)break;evnt(18335);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(ptrszint)",10),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATETOTYP_LONG_SIZE)),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATETOTYP_LONG_T)),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATETOTYP_LONG_SIZE)),qbs_new_txt_len(",sf_mem_lock",12))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18336);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18338);}while(r); +} +S_21583:; +if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -2 ))||new_error){ +if(qbevent){evnt(18343);if(r)goto S_21583;} +LABEL_METHOD2USEALL:; +if(qbevent){evnt(18344);r=0;} +S_21584:; +if ((-((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISREFERENCE)== 0 ))||new_error){ +if(qbevent){evnt(18347);if(r)goto S_21584;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected variable name/array element",36)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18347);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18347);}while(r); +} +S_21588:; +if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISOFFSETINBITS))||new_error){ +if(qbevent){evnt(18348);if(r)goto S_21588;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Variable/element cannot be BIT aligned",38)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18348);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18348);}while(r); +} +S_21592:; +if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISUDT))||new_error){ +if(qbevent){evnt(18351);if(r)goto S_21592;} +do{ +*_FUNC_EVALUATETOTYP_LONG_IDNUMBER=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18353);}while(r); +do{ +*_FUNC_EVALUATETOTYP_LONG_I=func_instr(NULL,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18354);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_right(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_STRING_E->len-*_FUNC_EVALUATETOTYP_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18354);}while(r); +do{ +*_FUNC_EVALUATETOTYP_LONG_U=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18355);}while(r); +do{ +*_FUNC_EVALUATETOTYP_LONG_I=func_instr(NULL,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18356);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_right(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_STRING_E->len-*_FUNC_EVALUATETOTYP_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18356);}while(r); +do{ +*__LONG_E=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18357);}while(r); +do{ +*_FUNC_EVALUATETOTYP_LONG_I=func_instr(NULL,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18358);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_right(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_STRING_E->len-*_FUNC_EVALUATETOTYP_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18358);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_O,_FUNC_EVALUATETOTYP_STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18359);}while(r); +do{ +SUB_GETID(_FUNC_EVALUATETOTYP_LONG_IDNUMBER); +if(!qbevent)break;evnt(18360);}while(r); +S_21604:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(18361);if(r)goto S_21604;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18361);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATETOTYP_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(18362);}while(r); +S_21608:; +if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ +if(qbevent){evnt(18362);if(r)goto S_21608;} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_N,qbs_add(qbs_add(qbs_new_txt_len("ARRAY_",6),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len("[0]",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18362);}while(r); +} +LABEL_METHOD2USEALLUDT:; +if(qbevent){evnt(18363);r=0;} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,qbs_add(qbs_add(qbs_add(FUNC_VARIABLESIZE(&(pass2736= -1 )),qbs_new_txt_len("-(",2)),_FUNC_EVALUATETOTYP_STRING_O),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18364);}while(r); +S_21612:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(18365);if(r)goto S_21612;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18365);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_DST,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(((char*)",9),FUNC_SCOPE()),_FUNC_EVALUATETOTYP_STRING_N),qbs_new_txt_len(")+(",3)),_FUNC_EVALUATETOTYP_STRING_O),qbs_new_txt_len("))",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18366);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("byte_element((uint64)",21),_FUNC_EVALUATETOTYP_STRING_DST),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18367);}while(r); +S_21617:; +if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -5 ))||new_error){ +if(qbevent){evnt(18368);if(r)goto S_21617;} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_BYTES); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18368);}while(r); +} +S_21620:; +if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -6 ))||new_error){ +if(qbevent){evnt(18369);if(r)goto S_21620;} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_DST); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18369);}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18370);}while(r); +} +S_21625:; +if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISARRAY))||new_error){ +if(qbevent){evnt(18374);if(r)goto S_21625;} +S_21626:; +if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(18376);if(r)goto S_21626;} +S_21627:; +if ((-((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ +if(qbevent){evnt(18377);if(r)goto S_21627;} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2737= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18378);}while(r); +S_21629:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(18379);if(r)goto S_21629;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18379);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("byte_element((uint64)",21),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len("->chr,",6)),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len("->len,",6)),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18380);}while(r); +S_21633:; +if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -5 ))||new_error){ +if(qbevent){evnt(18381);if(r)goto S_21633;} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(_FUNC_EVALUATETOTYP_STRING_E,qbs_new_txt_len("->len",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18381);}while(r); +} +S_21636:; +if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -6 ))||new_error){ +if(qbevent){evnt(18382);if(r)goto S_21636;} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(_FUNC_EVALUATETOTYP_STRING_E,qbs_new_txt_len("->chr",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18382);}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18383);}while(r); +} +} +do{ +*_FUNC_EVALUATETOTYP_LONG_IDNUMBER=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18386);}while(r); +do{ +SUB_GETID(_FUNC_EVALUATETOTYP_LONG_IDNUMBER); +if(!qbevent)break;evnt(18387);}while(r); +S_21644:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(18388);if(r)goto S_21644;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18388);}while(r); +} +do{ +*_FUNC_EVALUATETOTYP_LONG_TSIZE=*(int32*)(((char*)__UDT_ID)+(540)); +if(!qbevent)break;evnt(18389);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_INDEX,qbs_right(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_STRING_E->len-func_instr(NULL,_FUNC_EVALUATETOTYP_STRING_E,__STRING1_SP3,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18391);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,FUNC_VARIABLESIZE(&(pass2739= -1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18392);}while(r); +S_21650:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(18393);if(r)goto S_21650;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18393);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2740= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18394);}while(r); +S_21654:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(18395);if(r)goto S_21654;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18395);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("(&(",3),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len("))",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18396);}while(r); +S_21658:; +if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(18399);if(r)goto S_21658;} +do{ +*_FUNC_EVALUATETOTYP_LONG_BYTES=*_FUNC_EVALUATETOTYP_LONG_TSIZE; +if(!qbevent)break;evnt(18400);}while(r); +}else{ +do{ +*_FUNC_EVALUATETOTYP_LONG_BYTES=(*_FUNC_EVALUATETOTYP_LONG_SOURCETYP& 511 )/ 8 ; +if(!qbevent)break;evnt(18402);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_EVALUATETOTYP_STRING_BYTES,qbs_new_txt_len("-(",2)),FUNC_STR2(_FUNC_EVALUATETOTYP_LONG_BYTES)),qbs_new_txt_len("*(",2)),_FUNC_EVALUATETOTYP_STRING_INDEX),qbs_new_txt_len("))",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18404);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("byte_element((uint64)",21),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len(",",1)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18405);}while(r); +S_21665:; +if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -5 ))||new_error){ +if(qbevent){evnt(18406);if(r)goto S_21665;} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_BYTES); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18406);}while(r); +} +S_21668:; +if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -6 ))||new_error){ +if(qbevent){evnt(18407);if(r)goto S_21668;} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18407);}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18409);}while(r); +} +S_21673:; +if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(18413);if(r)goto S_21673;} +S_21674:; +if ((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISFIXEDLENGTH)||new_error){ +if(qbevent){evnt(18414);if(r)goto S_21674;} +do{ +*_FUNC_EVALUATETOTYP_LONG_IDNUMBER=qbr(func_val(_FUNC_EVALUATETOTYP_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18415);}while(r); +do{ +SUB_GETID(_FUNC_EVALUATETOTYP_LONG_IDNUMBER); +if(!qbevent)break;evnt(18416);}while(r); +S_21677:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(18417);if(r)goto S_21677;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18417);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,FUNC_STR2((int32*)(void*)( ((char*)(__UDT_ID)) + (540) ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18418);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2741= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18419);}while(r); +S_21682:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(18420);if(r)goto S_21682;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18420);}while(r); +} +}else{ +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2742= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18422);}while(r); +S_21687:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(18423);if(r)goto S_21687;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18423);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_BYTES,qbs_add(_FUNC_EVALUATETOTYP_STRING_E,qbs_new_txt_len("->len",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18424);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("byte_element((uint64)",21),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len("->chr,",6)),_FUNC_EVALUATETOTYP_STRING_BYTES),qbs_new_txt_len(",",1)),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18426);}while(r); +S_21693:; +if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -5 ))||new_error){ +if(qbevent){evnt(18427);if(r)goto S_21693;} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_BYTES); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18427);}while(r); +} +S_21696:; +if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -6 ))||new_error){ +if(qbevent){evnt(18428);if(r)goto S_21696;} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(_FUNC_EVALUATETOTYP_STRING_E,qbs_new_txt_len("->chr",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18428);}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18429);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2743= 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18433);}while(r); +S_21702:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(18434);if(r)goto S_21702;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18434);}while(r); +} +do{ +*_FUNC_EVALUATETOTYP_LONG_SIZE=(*_FUNC_EVALUATETOTYP_LONG_SOURCETYP& 511 )/ 8 ; +if(!qbevent)break;evnt(18435);}while(r); +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("byte_element((uint64)",21),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len(",",1)),FUNC_STR2(_FUNC_EVALUATETOTYP_LONG_SIZE)),qbs_new_txt_len(",",1)),FUNC_NEWBYTEELEMENT()),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18436);}while(r); +S_21707:; +if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -5 ))||new_error){ +if(qbevent){evnt(18437);if(r)goto S_21707;} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,FUNC_STR2(_FUNC_EVALUATETOTYP_LONG_SIZE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18437);}while(r); +} +S_21710:; +if ((-(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP== -6 ))||new_error){ +if(qbevent){evnt(18438);if(r)goto S_21710;} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18438);}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18439);}while(r); +} +S_21715:; +if ((-((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING)!=(*_FUNC_EVALUATETOTYP_LONG_TARGETTYP&*__LONG_ISSTRING)))||new_error){ +if(qbevent){evnt(18446);if(r)goto S_21715;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Illegal string-number conversion",32)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18447);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18447);}while(r); +} +S_21719:; +if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(18450);if(r)goto S_21719;} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18451);}while(r); +S_21721:; +if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ +if(qbevent){evnt(18452);if(r)goto S_21721;} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2744= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18453);}while(r); +S_21723:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(18454);if(r)goto S_21723;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18454);}while(r); +} +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18456);}while(r); +} +S_21729:; +if (((*_FUNC_EVALUATETOTYP_LONG_TARGETTYP&*__LONG_ISPOINTER))||new_error){ +if(qbevent){evnt(18460);if(r)goto S_21729;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("evaluatetotyp received a request for a pointer (unsupported)",60)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18461);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18461);}while(r); +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Invalid pointer",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18463);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18463);}while(r); +} +S_21735:; +if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISREFERENCE))||new_error){ +if(qbevent){evnt(18467);if(r)goto S_21735;} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_E,FUNC_REFER(_FUNC_EVALUATETOTYP_STRING_E,_FUNC_EVALUATETOTYP_LONG_SOURCETYP,&(pass2745= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18468);}while(r); +S_21737:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(18469);if(r)goto S_21737;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18469);}while(r); +} +} +S_21741:; +if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISPOINTER))||new_error){ +if(qbevent){evnt(18472);if(r)goto S_21741;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("evaluatetotyp couldn't convert pointer type!",44)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18473);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18473);}while(r); +} +S_21745:; +if (((*_FUNC_EVALUATETOTYP_LONG_SOURCETYP&*__LONG_ISFLOAT))||new_error){ +if(qbevent){evnt(18477);if(r)goto S_21745;} +S_21746:; +if ((-((*_FUNC_EVALUATETOTYP_LONG_TARGETTYP&*__LONG_ISFLOAT)== 0 ))||new_error){ +if(qbevent){evnt(18478);if(r)goto S_21746;} +do{ +*_FUNC_EVALUATETOTYP_LONG_BITS=*_FUNC_EVALUATETOTYP_LONG_TARGETTYP& 511 ; +if(!qbevent)break;evnt(18479);}while(r); +S_21748:; +if ((-(*_FUNC_EVALUATETOTYP_LONG_BITS<= 16 ))||new_error){ +if(qbevent){evnt(18481);if(r)goto S_21748;} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("qbr_float_to_long(",18),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18481);}while(r); +} +S_21751:; +if (((-(*_FUNC_EVALUATETOTYP_LONG_BITS> 16 ))&(-(*_FUNC_EVALUATETOTYP_LONG_BITS< 32 )))||new_error){ +if(qbevent){evnt(18482);if(r)goto S_21751;} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("qbr_double_to_long(",19),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18482);}while(r); +} +S_21754:; +if ((-(*_FUNC_EVALUATETOTYP_LONG_BITS>= 32 ))||new_error){ +if(qbevent){evnt(18483);if(r)goto S_21754;} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("qbr(",4),_FUNC_EVALUATETOTYP_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18483);}while(r); +} +} +} +do{ +qbs_set(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP,_FUNC_EVALUATETOTYP_STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18487);}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free21.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP);return _FUNC_EVALUATETOTYP_STRING_EVALUATETOTYP; +} +int32 FUNC_FINDID(qbs*_FUNC_FINDID_STRING_N2){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data22.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +qbs_set(_FUNC_FINDID_STRING_N,qbs_ucase(_FUNC_FINDID_STRING_N2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18491);}while(r); +S_21761:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_FINDID_STRING_N)== 34 )))||new_error){ +if(qbevent){evnt(18494);if(r)goto S_21761;} +do{ +goto LABEL_NOID; +if(!qbevent)break;evnt(18494);}while(r); +} +do{ +qbs_set(_FUNC_FINDID_STRING_SECONDARG,__STRING_FINDIDSECONDARG); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18497);}while(r); +do{ +qbs_set(__STRING_FINDIDSECONDARG,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18497);}while(r); +do{ +*_FUNC_FINDID_LONG_FINDANOTHER=*__INTEGER_FINDANOTHERID; +if(!qbevent)break;evnt(18500);}while(r); +do{ +*__INTEGER_FINDANOTHERID= 0 ; +if(!qbevent)break;evnt(18500);}while(r); +S_21768:; +if (((-(*_FUNC_FINDID_LONG_FINDANOTHER!= 0 ))&(-(*__LONG_FINDIDINTERNAL!= 2 )))||new_error){ +if(qbevent){evnt(18501);if(r)goto S_21768;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("FINDID() ERROR: Invalid repeat search requested!",48)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18501);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18501);}while(r); +} +S_21772:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(18502);if(r)goto S_21772;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18502);}while(r); +} +do{ +*_FUNC_FINDID_LONG_FINDID= 2 ; +if(!qbevent)break;evnt(18504);}while(r); +do{ +*_FUNC_FINDID_LONG_I= 0 ; +if(!qbevent)break;evnt(18507);}while(r); +do{ +*_FUNC_FINDID_LONG_I=func_instr(NULL,_FUNC_FINDID_STRING_N,qbs_new_txt_len("~",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18508);}while(r); +S_21778:; +if ((*_FUNC_FINDID_LONG_I)||new_error){ +if(qbevent){evnt(18508);if(r)goto S_21778;} +do{ +goto LABEL_GOTSC; +if(!qbevent)break;evnt(18508);}while(r); +} +do{ +*_FUNC_FINDID_LONG_I=func_instr(NULL,_FUNC_FINDID_STRING_N,qbs_new_txt_len("`",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18509);}while(r); +S_21782:; +if ((*_FUNC_FINDID_LONG_I)||new_error){ +if(qbevent){evnt(18509);if(r)goto S_21782;} +do{ +goto LABEL_GOTSC; +if(!qbevent)break;evnt(18509);}while(r); +} +do{ +*_FUNC_FINDID_LONG_I=func_instr(NULL,_FUNC_FINDID_STRING_N,qbs_new_txt_len("%",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18510);}while(r); +S_21786:; +if ((*_FUNC_FINDID_LONG_I)||new_error){ +if(qbevent){evnt(18510);if(r)goto S_21786;} +do{ +goto LABEL_GOTSC; +if(!qbevent)break;evnt(18510);}while(r); +} +do{ +*_FUNC_FINDID_LONG_I=func_instr(NULL,_FUNC_FINDID_STRING_N,qbs_new_txt_len("&",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18511);}while(r); +S_21790:; +if ((*_FUNC_FINDID_LONG_I)||new_error){ +if(qbevent){evnt(18511);if(r)goto S_21790;} +do{ +goto LABEL_GOTSC; +if(!qbevent)break;evnt(18511);}while(r); +} +do{ +*_FUNC_FINDID_LONG_I=func_instr(NULL,_FUNC_FINDID_STRING_N,qbs_new_txt_len("!",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18512);}while(r); +S_21794:; +if ((*_FUNC_FINDID_LONG_I)||new_error){ +if(qbevent){evnt(18512);if(r)goto S_21794;} +do{ +goto LABEL_GOTSC; +if(!qbevent)break;evnt(18512);}while(r); +} +do{ +*_FUNC_FINDID_LONG_I=func_instr(NULL,_FUNC_FINDID_STRING_N,qbs_new_txt_len("#",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18513);}while(r); +S_21798:; +if ((*_FUNC_FINDID_LONG_I)||new_error){ +if(qbevent){evnt(18513);if(r)goto S_21798;} +do{ +goto LABEL_GOTSC; +if(!qbevent)break;evnt(18513);}while(r); +} +do{ +*_FUNC_FINDID_LONG_I=func_instr(NULL,_FUNC_FINDID_STRING_N,qbs_new_txt_len("$",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18514);}while(r); +S_21802:; +if ((*_FUNC_FINDID_LONG_I)||new_error){ +if(qbevent){evnt(18514);if(r)goto S_21802;} +do{ +goto LABEL_GOTSC; +if(!qbevent)break;evnt(18514);}while(r); +} +LABEL_GOTSC:; +if(qbevent){evnt(18515);r=0;} +S_21805:; +if ((*_FUNC_FINDID_LONG_I)||new_error){ +if(qbevent){evnt(18516);if(r)goto S_21805;} +do{ +qbs_set(_FUNC_FINDID_STRING_SC,qbs_right(_FUNC_FINDID_STRING_N,_FUNC_FINDID_STRING_N->len-*_FUNC_FINDID_LONG_I+ 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18517);}while(r); +do{ +qbs_set(_FUNC_FINDID_STRING_N,qbs_left(_FUNC_FINDID_STRING_N,*_FUNC_FINDID_LONG_I- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18517);}while(r); +S_21808:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_FINDID_STRING_SC,qbs_new_txt_len("`",1)))|(qbs_equal(_FUNC_FINDID_STRING_SC,qbs_new_txt_len("~`",2)))))||new_error){ +if(qbevent){evnt(18518);if(r)goto S_21808;} +do{ +qbs_set(_FUNC_FINDID_STRING_SC,qbs_add(_FUNC_FINDID_STRING_SC,qbs_new_txt_len("1",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18518);}while(r); +} +}else{ +} +do{ +qbs_set(_FUNC_FINDID_STRING_INSF,qbs_add(__STRING_SUBFUNC,func_space( 256 -__STRING_SUBFUNC->len))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18529);}while(r); +do{ +qbs_set(_FUNC_FINDID_STRING_SECONDARG,qbs_add(_FUNC_FINDID_STRING_SECONDARG,func_space( 256 -_FUNC_FINDID_STRING_SECONDARG->len))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18530);}while(r); +S_21815:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_FINDID_STRING_SC->len))||new_error){ +if(qbevent){evnt(18531);if(r)goto S_21815;} +do{ +*_FUNC_FINDID_LONG_SCPASSED= 1 ; +if(!qbevent)break;evnt(18531);}while(r); +do{ +qbs_set(_FUNC_FINDID_STRING_SC,qbs_add(_FUNC_FINDID_STRING_SC,func_space( 8 -_FUNC_FINDID_STRING_SC->len))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18531);}while(r); +}else{ +do{ +*_FUNC_FINDID_LONG_SCPASSED= 0 ; +if(!qbevent)break;evnt(18531);}while(r); +} +S_21821:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_FINDID_STRING_N->len< 256 )))||new_error){ +if(qbevent){evnt(18533);if(r)goto S_21821;} +do{ +qbs_set(_FUNC_FINDID_STRING_N,qbs_add(_FUNC_FINDID_STRING_N,func_space( 256 -_FUNC_FINDID_STRING_N->len))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18533);}while(r); +} +do{ +qbs_set(_FUNC_FINDID_STRING_N,qbs_rtrim(_FUNC_FINDID_STRING_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18542);}while(r); +S_21825:; +if ((*_FUNC_FINDID_LONG_FINDANOTHER)||new_error){ +if(qbevent){evnt(18543);if(r)goto S_21825;} +LABEL_HASHRETRY:; +if(qbevent){evnt(18544);r=0;} +do{ +*_FUNC_FINDID_LONG_Z=FUNC_HASHFINDCONT(_FUNC_FINDID_LONG_UNREQUIRED,_FUNC_FINDID_LONG_I); +if(!qbevent)break;evnt(18545);}while(r); +}else{ +do{ +*_FUNC_FINDID_LONG_Z=FUNC_HASHFIND(_FUNC_FINDID_STRING_N,&(pass2754= 1 ),_FUNC_FINDID_LONG_UNREQUIRED,_FUNC_FINDID_LONG_I); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18547);}while(r); +} +do{ +*__LONG_FINDIDINTERNAL=*_FUNC_FINDID_LONG_Z; +if(!qbevent)break;evnt(18549);}while(r); +S_21831:; +if ((-(*_FUNC_FINDID_LONG_Z== 0 ))||new_error){ +if(qbevent){evnt(18550);if(r)goto S_21831;} +do{ +goto LABEL_NOID; +if(!qbevent)break;evnt(18550);}while(r); +} +do{ +*_FUNC_FINDID_LONG_FINDID=*_FUNC_FINDID_LONG_Z; +if(!qbevent)break;evnt(18551);}while(r); +S_21835:; +if (((-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+544))== 0 ))&(-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+2645))== 0 )))||new_error){ +if(qbevent){evnt(18565);if(r)goto S_21835;} +S_21836:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+2385)),256,1),_FUNC_FINDID_STRING_INSF)))||new_error){ +if(qbevent){evnt(18566);if(r)goto S_21836;} +do{ +goto LABEL_FINDIDNOMATCH; +if(!qbevent)break;evnt(18566);}while(r); +} +} +S_21840:; +if ((-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+544))== 2 ))||new_error){ +if(qbevent){evnt(18570);if(r)goto S_21840;} +S_21841:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+1869)),256,1))!= 32 )))||new_error){ +if(qbevent){evnt(18571);if(r)goto S_21841;} +S_21842:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(_FUNC_FINDID_STRING_SECONDARG),qbs_ucase(qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+1869)),256,1))))))||new_error){ +if(qbevent){evnt(18572);if(r)goto S_21842;} +S_21843:; +}else{ +if (qbs_cleanup(qbs_tmp_base,(-(*__LONG_QB64PREFIX_SET== 1 ))&(qbs_equal(qbs_left(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+1869)),256,1), 1 ),qbs_new_txt_len("_",1)))&(qbs_notequal(qbs_left(_FUNC_FINDID_STRING_SECONDARG, 1 ),qbs_new_txt_len("_",1)))&(qbs_equal(qbs_rtrim(_FUNC_FINDID_STRING_SECONDARG),qbs_ucase(func_mid(qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+1869)),256,1)), 2 ,NULL,0)))))){ +if(qbevent){evnt(18573);if(r)goto S_21843;} +}else{ +do{ +goto LABEL_FINDIDNOMATCH; +if(!qbevent)break;evnt(18575);}while(r); +} +} +} +S_21848:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+2125)),256,1))!= 32 )))||new_error){ +if(qbevent){evnt(18578);if(r)goto S_21848;} +S_21849:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_rtrim(_FUNC_FINDID_STRING_SECONDARG),qbs_ucase(qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+2125)),256,1))))))||new_error){ +if(qbevent){evnt(18579);if(r)goto S_21849;} +S_21850:; +}else{ +if (qbs_cleanup(qbs_tmp_base,(-(*__LONG_QB64PREFIX_SET== 1 ))&(qbs_equal(qbs_left(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+2125)),256,1), 1 ),qbs_new_txt_len("_",1)))&(qbs_notequal(qbs_left(_FUNC_FINDID_STRING_SECONDARG, 1 ),qbs_new_txt_len("_",1)))&(qbs_notequal(qbs_rtrim(_FUNC_FINDID_STRING_SECONDARG),qbs_ucase(func_mid(qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+2125)),256,1)), 2 ,NULL,0)))))){ +if(qbevent){evnt(18580);if(r)goto S_21850;} +}else{ +do{ +goto LABEL_FINDIDNOMATCH; +if(!qbevent)break;evnt(18582);}while(r); +} +} +} +} +do{ +*_FUNC_FINDID_LONG_IMUSTHAVE=string2i(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+528)),8,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18589);}while(r); +do{ +*_FUNC_FINDID_LONG_AMUSTHAVE=*_FUNC_FINDID_LONG_IMUSTHAVE& 255 ; +if(!qbevent)break;evnt(18590);}while(r); +S_21858:; +if ((-(*_FUNC_FINDID_LONG_AMUSTHAVE!= 32 ))||new_error){ +if(qbevent){evnt(18591);if(r)goto S_21858;} +S_21859:; +if ((*_FUNC_FINDID_LONG_SCPASSED)||new_error){ +if(qbevent){evnt(18592);if(r)goto S_21859;} +S_21860:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_FINDID_STRING_SC,qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+528)),8,1))))||new_error){ +if(qbevent){evnt(18593);if(r)goto S_21860;} +do{ +goto LABEL_FINDIDOK; +if(!qbevent)break;evnt(18593);}while(r); +} +} +do{ +goto LABEL_FINDIDNOMATCH; +if(!qbevent)break;evnt(18604);}while(r); +} +S_21866:; +if ((*_FUNC_FINDID_LONG_SCPASSED)||new_error){ +if(qbevent){evnt(18610);if(r)goto S_21866;} +do{ +*_FUNC_FINDID_LONG_IMAYHAVE=string2i(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+520)),8,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18611);}while(r); +do{ +*_FUNC_FINDID_LONG_AMAYHAVE=*_FUNC_FINDID_LONG_IMAYHAVE& 255 ; +if(!qbevent)break;evnt(18612);}while(r); +S_21869:; +if ((-(*_FUNC_FINDID_LONG_AMAYHAVE== 32 ))||new_error){ +if(qbevent){evnt(18613);if(r)goto S_21869;} +do{ +goto LABEL_FINDIDNOMATCH; +if(!qbevent)break;evnt(18613);}while(r); +} +S_21872:; +if ((-(*_FUNC_FINDID_LONG_AMAYHAVE== 36 ))||new_error){ +if(qbevent){evnt(18616);if(r)goto S_21872;} +S_21873:; +if ((-(*_FUNC_FINDID_LONG_IMAYHAVE!= 8228 ))||new_error){ +if(qbevent){evnt(18617);if(r)goto S_21873;} +S_21874:; +if ((qbs_cleanup(qbs_tmp_base,-(string2i(_FUNC_FINDID_STRING_SC)== 8228 )))||new_error){ +if(qbevent){evnt(18619);if(r)goto S_21874;} +do{ +goto LABEL_FINDIDOK; +if(!qbevent)break;evnt(18619);}while(r); +} +} +} +S_21879:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_FINDID_STRING_SC,qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+520)),8,1))))||new_error){ +if(qbevent){evnt(18623);if(r)goto S_21879;} +do{ +goto LABEL_FINDIDNOMATCH; +if(!qbevent)break;evnt(18623);}while(r); +} +} +LABEL_FINDIDOK:; +if(qbevent){evnt(18627);r=0;} +do{ +memcpy((((char*)__UDT_ID)+(0)+ 0),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 0), 256); +memcpy((((char*)__UDT_ID)+(0)+ 256),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 256), 256); +memcpy((((char*)__UDT_ID)+(0)+ 512),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 512), 4); +memcpy((((char*)__UDT_ID)+(0)+ 516),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 516), 2); +memcpy((((char*)__UDT_ID)+(0)+ 518),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 518), 2); +memcpy((((char*)__UDT_ID)+(0)+ 520),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 520), 8); +memcpy((((char*)__UDT_ID)+(0)+ 528),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 528), 8); +memcpy((((char*)__UDT_ID)+(0)+ 536),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 536), 4); +memcpy((((char*)__UDT_ID)+(0)+ 540),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 540), 4); +memcpy((((char*)__UDT_ID)+(0)+ 544),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 544), 2); +memcpy((((char*)__UDT_ID)+(0)+ 546),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 546), 2); +memcpy((((char*)__UDT_ID)+(0)+ 548),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 548), 2); +memcpy((((char*)__UDT_ID)+(0)+ 550),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 550), 256); +memcpy((((char*)__UDT_ID)+(0)+ 806),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 806), 2); +memcpy((((char*)__UDT_ID)+(0)+ 808),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 808), 1); +memcpy((((char*)__UDT_ID)+(0)+ 809),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 809), 2); +memcpy((((char*)__UDT_ID)+(0)+ 811),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 811), 2); +memcpy((((char*)__UDT_ID)+(0)+ 813),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 813), 400); +memcpy((((char*)__UDT_ID)+(0)+ 1213),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 1213), 400); +memcpy((((char*)__UDT_ID)+(0)+ 1613),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 1613), 256); +memcpy((((char*)__UDT_ID)+(0)+ 1869),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 1869), 256); +memcpy((((char*)__UDT_ID)+(0)+ 2125),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2125), 256); +memcpy((((char*)__UDT_ID)+(0)+ 2381),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2381), 4); +memcpy((((char*)__UDT_ID)+(0)+ 2385),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2385), 256); +memcpy((((char*)__UDT_ID)+(0)+ 2641),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2641), 4); +memcpy((((char*)__UDT_ID)+(0)+ 2645),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2645), 2); +memcpy((((char*)__UDT_ID)+(0)+ 2647),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2647), 100); +memcpy((((char*)__UDT_ID)+(0)+ 2747),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2747), 100); +memcpy((((char*)__UDT_ID)+(0)+ 2847),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2847), 4); +memcpy((((char*)__UDT_ID)+(0)+ 2851),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2851), 2); +memcpy((((char*)__UDT_ID)+(0)+ 2853),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2853), 2); +memcpy((((char*)__UDT_ID)+(0)+ 2855),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2855), 4); +memcpy((((char*)__UDT_ID)+(0)+ 2859),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2859), 2); +qbs_set(*(qbs**)(((char*)__UDT_ID)+(0)+ 2861), *(qbs**)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_FINDID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2861)); +if(!qbevent)break;evnt(18629);}while(r); +do{ +*_FUNC_FINDID_LONG_T=*(int32*)(((char*)__UDT_ID)+(536)); +if(!qbevent)break;evnt(18631);}while(r); +do{ +qbs_set(_FUNC_FINDID_STRING_TEMP,FUNC_REFER(FUNC_STR2(_FUNC_FINDID_LONG_I),_FUNC_FINDID_LONG_T,&(pass2755= 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18632);}while(r); +do{ +SUB_MANAGEVARIABLELIST(qbs_new_txt_len("",0),_FUNC_FINDID_STRING_TEMP,&(pass2756= 0 ),&(pass2757= 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18633);}while(r); +do{ +*__LONG_CURRENTID=*_FUNC_FINDID_LONG_I; +if(!qbevent)break;evnt(18634);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18635);}while(r); +LABEL_FINDIDNOMATCH:; +if(qbevent){evnt(18638);r=0;} +S_21889:; +if ((-(*_FUNC_FINDID_LONG_Z== 2 ))||new_error){ +if(qbevent){evnt(18640);if(r)goto S_21889;} +do{ +goto LABEL_HASHRETRY; +if(!qbevent)break;evnt(18640);}while(r); +} +LABEL_NOID:; +if(qbevent){evnt(18643);r=0;} +do{ +*_FUNC_FINDID_LONG_FINDID= 0 ; +if(!qbevent)break;evnt(18644);}while(r); +do{ +*__LONG_CURRENTID= -1 ; +if(!qbevent)break;evnt(18645);}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free22.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +return *_FUNC_FINDID_LONG_FINDID; +} +int32 FUNC_FINDARRAY(qbs*_FUNC_FINDARRAY_STRING_SECURE){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data23.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +*_FUNC_FINDARRAY_LONG_FINDARRAY= -1 ; +if(!qbevent)break;evnt(18649);}while(r); +do{ +qbs_set(_FUNC_FINDARRAY_STRING_N,_FUNC_FINDARRAY_STRING_SECURE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18650);}while(r); +S_21896:; +if (( 0 )||new_error){ +if(qbevent){evnt(18651);if(r)goto S_21896;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip2759; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("func findarray:in:",18),_FUNC_FINDARRAY_STRING_N), 0, 0, 1); +if (new_error) goto skip2759; +skip2759: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(18651);}while(r); +} +S_21899:; +if ((qbs_cleanup(qbs_tmp_base,-(((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(_FUNC_FINDARRAY_STRING_N))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]== 0 )))||new_error){ +if(qbevent){evnt(18652);if(r)goto S_21899;} +do{ +*_FUNC_FINDARRAY_LONG_FINDARRAY= 0 ; +if(!qbevent)break;evnt(18652);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18652);}while(r); +} +do{ +*_FUNC_FINDARRAY_LONG_I=func_instr(NULL,_FUNC_FINDARRAY_STRING_N,qbs_new_txt_len("~",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18655);}while(r); +S_21904:; +if ((*_FUNC_FINDARRAY_LONG_I)||new_error){ +if(qbevent){evnt(18655);if(r)goto S_21904;} +do{ +qbs_set(_FUNC_FINDARRAY_STRING_SC,qbs_right(_FUNC_FINDARRAY_STRING_N,_FUNC_FINDARRAY_STRING_N->len-*_FUNC_FINDARRAY_LONG_I+ 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18655);}while(r); +do{ +qbs_set(_FUNC_FINDARRAY_STRING_N,qbs_left(_FUNC_FINDARRAY_STRING_N,*_FUNC_FINDARRAY_LONG_I- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18655);}while(r); +do{ +goto LABEL_GOTSC2; +if(!qbevent)break;evnt(18655);}while(r); +} +do{ +*_FUNC_FINDARRAY_LONG_I=func_instr(NULL,_FUNC_FINDARRAY_STRING_N,qbs_new_txt_len("`",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18656);}while(r); +S_21910:; +if ((*_FUNC_FINDARRAY_LONG_I)||new_error){ +if(qbevent){evnt(18656);if(r)goto S_21910;} +do{ +qbs_set(_FUNC_FINDARRAY_STRING_SC,qbs_right(_FUNC_FINDARRAY_STRING_N,_FUNC_FINDARRAY_STRING_N->len-*_FUNC_FINDARRAY_LONG_I+ 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18656);}while(r); +do{ +qbs_set(_FUNC_FINDARRAY_STRING_N,qbs_left(_FUNC_FINDARRAY_STRING_N,*_FUNC_FINDARRAY_LONG_I- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18656);}while(r); +do{ +goto LABEL_GOTSC2; +if(!qbevent)break;evnt(18656);}while(r); +} +do{ +*_FUNC_FINDARRAY_LONG_I=func_instr(NULL,_FUNC_FINDARRAY_STRING_N,qbs_new_txt_len("%",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18657);}while(r); +S_21916:; +if ((*_FUNC_FINDARRAY_LONG_I)||new_error){ +if(qbevent){evnt(18657);if(r)goto S_21916;} +do{ +qbs_set(_FUNC_FINDARRAY_STRING_SC,qbs_right(_FUNC_FINDARRAY_STRING_N,_FUNC_FINDARRAY_STRING_N->len-*_FUNC_FINDARRAY_LONG_I+ 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18657);}while(r); +do{ +qbs_set(_FUNC_FINDARRAY_STRING_N,qbs_left(_FUNC_FINDARRAY_STRING_N,*_FUNC_FINDARRAY_LONG_I- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18657);}while(r); +do{ +goto LABEL_GOTSC2; +if(!qbevent)break;evnt(18657);}while(r); +} +do{ +*_FUNC_FINDARRAY_LONG_I=func_instr(NULL,_FUNC_FINDARRAY_STRING_N,qbs_new_txt_len("&",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18658);}while(r); +S_21922:; +if ((*_FUNC_FINDARRAY_LONG_I)||new_error){ +if(qbevent){evnt(18658);if(r)goto S_21922;} +do{ +qbs_set(_FUNC_FINDARRAY_STRING_SC,qbs_right(_FUNC_FINDARRAY_STRING_N,_FUNC_FINDARRAY_STRING_N->len-*_FUNC_FINDARRAY_LONG_I+ 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18658);}while(r); +do{ +qbs_set(_FUNC_FINDARRAY_STRING_N,qbs_left(_FUNC_FINDARRAY_STRING_N,*_FUNC_FINDARRAY_LONG_I- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18658);}while(r); +do{ +goto LABEL_GOTSC2; +if(!qbevent)break;evnt(18658);}while(r); +} +do{ +*_FUNC_FINDARRAY_LONG_I=func_instr(NULL,_FUNC_FINDARRAY_STRING_N,qbs_new_txt_len("!",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18659);}while(r); +S_21928:; +if ((*_FUNC_FINDARRAY_LONG_I)||new_error){ +if(qbevent){evnt(18659);if(r)goto S_21928;} +do{ +qbs_set(_FUNC_FINDARRAY_STRING_SC,qbs_right(_FUNC_FINDARRAY_STRING_N,_FUNC_FINDARRAY_STRING_N->len-*_FUNC_FINDARRAY_LONG_I+ 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18659);}while(r); +do{ +qbs_set(_FUNC_FINDARRAY_STRING_N,qbs_left(_FUNC_FINDARRAY_STRING_N,*_FUNC_FINDARRAY_LONG_I- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18659);}while(r); +do{ +goto LABEL_GOTSC2; +if(!qbevent)break;evnt(18659);}while(r); +} +do{ +*_FUNC_FINDARRAY_LONG_I=func_instr(NULL,_FUNC_FINDARRAY_STRING_N,qbs_new_txt_len("#",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18660);}while(r); +S_21934:; +if ((*_FUNC_FINDARRAY_LONG_I)||new_error){ +if(qbevent){evnt(18660);if(r)goto S_21934;} +do{ +qbs_set(_FUNC_FINDARRAY_STRING_SC,qbs_right(_FUNC_FINDARRAY_STRING_N,_FUNC_FINDARRAY_STRING_N->len-*_FUNC_FINDARRAY_LONG_I+ 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18660);}while(r); +do{ +qbs_set(_FUNC_FINDARRAY_STRING_N,qbs_left(_FUNC_FINDARRAY_STRING_N,*_FUNC_FINDARRAY_LONG_I- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18660);}while(r); +do{ +goto LABEL_GOTSC2; +if(!qbevent)break;evnt(18660);}while(r); +} +do{ +*_FUNC_FINDARRAY_LONG_I=func_instr(NULL,_FUNC_FINDARRAY_STRING_N,qbs_new_txt_len("$",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18661);}while(r); +S_21940:; +if ((*_FUNC_FINDARRAY_LONG_I)||new_error){ +if(qbevent){evnt(18661);if(r)goto S_21940;} +do{ +qbs_set(_FUNC_FINDARRAY_STRING_SC,qbs_right(_FUNC_FINDARRAY_STRING_N,_FUNC_FINDARRAY_STRING_N->len-*_FUNC_FINDARRAY_LONG_I+ 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18661);}while(r); +do{ +qbs_set(_FUNC_FINDARRAY_STRING_N,qbs_left(_FUNC_FINDARRAY_STRING_N,*_FUNC_FINDARRAY_LONG_I- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18661);}while(r); +do{ +goto LABEL_GOTSC2; +if(!qbevent)break;evnt(18661);}while(r); +} +LABEL_GOTSC2:; +if(qbevent){evnt(18662);r=0;} +do{ +qbs_set(_FUNC_FINDARRAY_STRING_N2,qbs_add(_FUNC_FINDARRAY_STRING_N,_FUNC_FINDARRAY_STRING_SC)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18663);}while(r); +S_21946:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_FINDARRAY_STRING_SC,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(18665);if(r)goto S_21946;} +do{ +*_FUNC_FINDARRAY_LONG_TRY=FUNC_FINDID(_FUNC_FINDARRAY_STRING_N2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18668);}while(r); +S_21948:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(18668);if(r)goto S_21948;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18668);}while(r); +} +S_21951:; +while((*_FUNC_FINDARRAY_LONG_TRY)||new_error){ +if(qbevent){evnt(18669);if(r)goto S_21951;} +S_21952:; +if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ +if(qbevent){evnt(18670);if(r)goto S_21952;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18671);}while(r); +} +S_21955:; +if ((-(*_FUNC_FINDARRAY_LONG_TRY== 2 ))||new_error){ +if(qbevent){evnt(18673);if(r)goto S_21955;} +do{ +*__INTEGER_FINDANOTHERID= 1 ; +if(!qbevent)break;evnt(18673);}while(r); +do{ +*_FUNC_FINDARRAY_LONG_TRY=FUNC_FINDID(_FUNC_FINDARRAY_STRING_N2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18673);}while(r); +}else{ +do{ +*_FUNC_FINDARRAY_LONG_TRY= 0 ; +if(!qbevent)break;evnt(18673);}while(r); +} +S_21961:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(18674);if(r)goto S_21961;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18674);}while(r); +} +dl_continue_2767:; +} +dl_exit_2767:; +}else{ +do{ +*_FUNC_FINDARRAY_LONG_TRY=FUNC_FINDID(_FUNC_FINDARRAY_STRING_N2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18681);}while(r); +S_21967:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(18681);if(r)goto S_21967;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18681);}while(r); +} +S_21970:; +while((*_FUNC_FINDARRAY_LONG_TRY)||new_error){ +if(qbevent){evnt(18682);if(r)goto S_21970;} +S_21971:; +if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ +if(qbevent){evnt(18683);if(r)goto S_21971;} +S_21972:; +if ((-(*__LONG_SUBFUNCN== 0 ))||new_error){ +if(qbevent){evnt(18684);if(r)goto S_21972;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18684);}while(r); +} +S_21975:; +if ((-(*(int32*)(((char*)__UDT_ID)+(2641))==*__LONG_SUBFUNCN))||new_error){ +if(qbevent){evnt(18685);if(r)goto S_21975;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18685);}while(r); +} +} +S_21979:; +if ((-(*_FUNC_FINDARRAY_LONG_TRY== 2 ))||new_error){ +if(qbevent){evnt(18687);if(r)goto S_21979;} +do{ +*__INTEGER_FINDANOTHERID= 1 ; +if(!qbevent)break;evnt(18687);}while(r); +do{ +*_FUNC_FINDARRAY_LONG_TRY=FUNC_FINDID(_FUNC_FINDARRAY_STRING_N2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18687);}while(r); +}else{ +do{ +*_FUNC_FINDARRAY_LONG_TRY= 0 ; +if(!qbevent)break;evnt(18687);}while(r); +} +S_21985:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(18688);if(r)goto S_21985;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18688);}while(r); +} +dl_continue_2768:; +} +dl_exit_2768:; +do{ +*_FUNC_FINDARRAY_LONG_A=qbs_asc(qbs_ucase(_FUNC_FINDARRAY_STRING_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18692);}while(r); +S_21990:; +if ((-(*_FUNC_FINDARRAY_LONG_A== 95 ))||new_error){ +if(qbevent){evnt(18692);if(r)goto S_21990;} +do{ +*_FUNC_FINDARRAY_LONG_A= 91 ; +if(!qbevent)break;evnt(18692);}while(r); +} +do{ +*_FUNC_FINDARRAY_LONG_A=*_FUNC_FINDARRAY_LONG_A- 64 ; +if(!qbevent)break;evnt(18693);}while(r); +do{ +qbs_set(_FUNC_FINDARRAY_STRING_N2,qbs_add(_FUNC_FINDARRAY_STRING_N,((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEEXTAZ[0]))[array_check((*_FUNC_FINDARRAY_LONG_A)-__ARRAY_STRING_DEFINEEXTAZ[4],__ARRAY_STRING_DEFINEEXTAZ[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18694);}while(r); +do{ +*_FUNC_FINDARRAY_LONG_TRY=FUNC_FINDID(_FUNC_FINDARRAY_STRING_N2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18695);}while(r); +S_21996:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(18695);if(r)goto S_21996;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18695);}while(r); +} +S_21999:; +while((*_FUNC_FINDARRAY_LONG_TRY)||new_error){ +if(qbevent){evnt(18696);if(r)goto S_21999;} +S_22000:; +if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ +if(qbevent){evnt(18697);if(r)goto S_22000;} +S_22001:; +if ((-(*__LONG_SUBFUNCN== 0 ))||new_error){ +if(qbevent){evnt(18698);if(r)goto S_22001;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18698);}while(r); +} +S_22004:; +if ((-(*(int32*)(((char*)__UDT_ID)+(2641))==*__LONG_SUBFUNCN))||new_error){ +if(qbevent){evnt(18699);if(r)goto S_22004;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18699);}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18700);}while(r); +} +S_22009:; +if ((-(*_FUNC_FINDARRAY_LONG_TRY== 2 ))||new_error){ +if(qbevent){evnt(18702);if(r)goto S_22009;} +do{ +*__INTEGER_FINDANOTHERID= 1 ; +if(!qbevent)break;evnt(18702);}while(r); +do{ +*_FUNC_FINDARRAY_LONG_TRY=FUNC_FINDID(_FUNC_FINDARRAY_STRING_N2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18702);}while(r); +}else{ +do{ +*_FUNC_FINDARRAY_LONG_TRY= 0 ; +if(!qbevent)break;evnt(18702);}while(r); +} +S_22015:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(18703);if(r)goto S_22015;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18703);}while(r); +} +dl_continue_2769:; +} +dl_exit_2769:; +do{ +qbs_set(_FUNC_FINDARRAY_STRING_N2,_FUNC_FINDARRAY_STRING_N); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18707);}while(r); +do{ +*_FUNC_FINDARRAY_LONG_TRY=FUNC_FINDID(_FUNC_FINDARRAY_STRING_N2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18708);}while(r); +S_22021:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(18708);if(r)goto S_22021;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18708);}while(r); +} +S_22024:; +while((*_FUNC_FINDARRAY_LONG_TRY)||new_error){ +if(qbevent){evnt(18709);if(r)goto S_22024;} +S_22025:; +if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ +if(qbevent){evnt(18710);if(r)goto S_22025;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18711);}while(r); +} +S_22028:; +if ((-(*_FUNC_FINDARRAY_LONG_TRY== 2 ))||new_error){ +if(qbevent){evnt(18713);if(r)goto S_22028;} +do{ +*__INTEGER_FINDANOTHERID= 1 ; +if(!qbevent)break;evnt(18713);}while(r); +do{ +*_FUNC_FINDARRAY_LONG_TRY=FUNC_FINDID(_FUNC_FINDARRAY_STRING_N2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18713);}while(r); +}else{ +do{ +*_FUNC_FINDARRAY_LONG_TRY= 0 ; +if(!qbevent)break;evnt(18713);}while(r); +} +S_22034:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(18714);if(r)goto S_22034;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18714);}while(r); +} +dl_continue_2770:; +} +dl_exit_2770:; +do{ +*_FUNC_FINDARRAY_LONG_A=qbs_asc(qbs_ucase(_FUNC_FINDARRAY_STRING_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18718);}while(r); +S_22039:; +if ((-(*_FUNC_FINDARRAY_LONG_A== 95 ))||new_error){ +if(qbevent){evnt(18718);if(r)goto S_22039;} +do{ +*_FUNC_FINDARRAY_LONG_A= 91 ; +if(!qbevent)break;evnt(18718);}while(r); +} +do{ +*_FUNC_FINDARRAY_LONG_A=*_FUNC_FINDARRAY_LONG_A- 64 ; +if(!qbevent)break;evnt(18719);}while(r); +do{ +qbs_set(_FUNC_FINDARRAY_STRING_N2,qbs_add(_FUNC_FINDARRAY_STRING_N,((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEEXTAZ[0]))[array_check((*_FUNC_FINDARRAY_LONG_A)-__ARRAY_STRING_DEFINEEXTAZ[4],__ARRAY_STRING_DEFINEEXTAZ[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18720);}while(r); +do{ +*_FUNC_FINDARRAY_LONG_TRY=FUNC_FINDID(_FUNC_FINDARRAY_STRING_N2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18721);}while(r); +S_22045:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(18721);if(r)goto S_22045;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18721);}while(r); +} +S_22048:; +while((*_FUNC_FINDARRAY_LONG_TRY)||new_error){ +if(qbevent){evnt(18722);if(r)goto S_22048;} +S_22049:; +if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ +if(qbevent){evnt(18723);if(r)goto S_22049;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18724);}while(r); +} +S_22052:; +if ((-(*_FUNC_FINDARRAY_LONG_TRY== 2 ))||new_error){ +if(qbevent){evnt(18726);if(r)goto S_22052;} +do{ +*__INTEGER_FINDANOTHERID= 1 ; +if(!qbevent)break;evnt(18726);}while(r); +do{ +*_FUNC_FINDARRAY_LONG_TRY=FUNC_FINDID(_FUNC_FINDARRAY_STRING_N2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18726);}while(r); +}else{ +do{ +*_FUNC_FINDARRAY_LONG_TRY= 0 ; +if(!qbevent)break;evnt(18726);}while(r); +} +S_22058:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(18727);if(r)goto S_22058;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18727);}while(r); +} +dl_continue_2771:; +} +dl_exit_2771:; +} +do{ +*_FUNC_FINDARRAY_LONG_FINDARRAY= 0 ; +if(!qbevent)break;evnt(18731);}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free23.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +return *_FUNC_FINDARRAY_LONG_FINDARRAY; +} +qbs* FUNC_FIXOPERATIONORDER(qbs*_FUNC_FIXOPERATIONORDER_STRING_SAVEA){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data24.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +if(!qbevent)break;evnt(18739);}while(r); +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_STRING_SAVEA); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18741);}while(r); +S_22066:; +if (( 0 )||new_error){ +if(qbevent){evnt(18742);if(r)goto S_22066;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip2773; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("fixoperationorder:in:",21),_FUNC_FIXOPERATIONORDER_STRING_A), 0, 0, 1); +if (new_error) goto skip2773; +skip2773: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(18742);}while(r); +} +do{ +*__LONG_FOOINDWEL=*__LONG_FOOINDWEL+ 1 ; +if(!qbevent)break;evnt(18744);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_N=FUNC_NUMELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18746);}while(r); +S_22071:; +if ((-(*__LONG_FOOINDWEL== 1 ))||new_error){ +if(qbevent){evnt(18748);if(r)goto S_22071;} +do{ +*_FUNC_FIXOPERATIONORDER_BYTE_UBOUNDLBOUND= 0 ; +if(!qbevent)break;evnt(18749);}while(r); +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_UPPERCASEA,qbs_ucase(_FUNC_FIXOPERATIONORDER_STRING_A)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18752);}while(r); +S_22074:; +fornext_value2775= 1 ; +fornext_finalvalue2775=*_FUNC_FIXOPERATIONORDER_LONG_N- 1 ; +fornext_step2775= 1 ; +if (fornext_step2775<0) fornext_step_negative2775=1; else fornext_step_negative2775=0; +if (new_error) goto fornext_error2775; +goto fornext_entrylabel2775; +while(1){ +fornext_value2775=fornext_step2775+(*_FUNC_FIXOPERATIONORDER_LONG_I); +fornext_entrylabel2775: +*_FUNC_FIXOPERATIONORDER_LONG_I=fornext_value2775; +if (fornext_step_negative2775){ +if (fornext_value2775fornext_finalvalue2775) break; +} +fornext_error2775:; +if(qbevent){evnt(18753);if(r)goto S_22074;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_TEMP1,FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_UPPERCASEA,_FUNC_FIXOPERATIONORDER_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18754);}while(r); +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_TEMP2,FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_UPPERCASEA,&(pass2776=*_FUNC_FIXOPERATIONORDER_LONG_I+ 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18755);}while(r); +S_22077:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_TEMP1,qbs_new_txt_len("AND",3)))&(qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_TEMP2,qbs_new_txt_len("AND",3)))))||new_error){ +if(qbevent){evnt(18756);if(r)goto S_22077;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Error: AND AND",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18756);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18756);}while(r); +} +S_22081:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_TEMP1,qbs_new_txt_len("OR",2)))&(qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_TEMP2,qbs_new_txt_len("OR",2)))))||new_error){ +if(qbevent){evnt(18757);if(r)goto S_22081;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Error: OR OR",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18757);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18757);}while(r); +} +S_22085:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_TEMP1,qbs_new_txt_len("XOR",3)))&(qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_TEMP2,qbs_new_txt_len("XOR",3)))))||new_error){ +if(qbevent){evnt(18758);if(r)goto S_22085;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Error: XOR XOR",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18758);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18758);}while(r); +} +S_22089:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_TEMP1,qbs_new_txt_len("IMP",3)))&(qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_TEMP2,qbs_new_txt_len("IMP",3)))))||new_error){ +if(qbevent){evnt(18759);if(r)goto S_22089;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Error: IMP IMP",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18759);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18759);}while(r); +} +S_22093:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_TEMP1,qbs_new_txt_len("EQV",3)))&(qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_TEMP2,qbs_new_txt_len("EQV",3)))))||new_error){ +if(qbevent){evnt(18760);if(r)goto S_22093;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Error: EQV EQV",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18760);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18760);}while(r); +} +fornext_continue_2774:; +} +fornext_exit_2774:; +do{ +*_FUNC_FIXOPERATIONORDER_LONG_B= 0 ; +if(!qbevent)break;evnt(18764);}while(r); +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A2,qbs_add(qbs_add(__STRING1_SP,_FUNC_FIXOPERATIONORDER_STRING_A),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18765);}while(r); +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_B1,qbs_add(qbs_add(__STRING1_SP,qbs_new_txt_len("(",1)),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18766);}while(r); +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_B2,qbs_add(qbs_add(__STRING1_SP,qbs_new_txt_len(")",1)),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18767);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_I= 1 ; +if(!qbevent)break;evnt(18768);}while(r); +LABEL_FINDMMB:; +if(qbevent){evnt(18769);r=0;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_I1=func_instr(*_FUNC_FIXOPERATIONORDER_LONG_I,_FUNC_FIXOPERATIONORDER_STRING_A2,_FUNC_FIXOPERATIONORDER_STRING_B1,0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18770);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_I2=func_instr(*_FUNC_FIXOPERATIONORDER_LONG_I,_FUNC_FIXOPERATIONORDER_STRING_A2,_FUNC_FIXOPERATIONORDER_STRING_B2,0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18771);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_I3=*_FUNC_FIXOPERATIONORDER_LONG_I1; +if(!qbevent)break;evnt(18772);}while(r); +S_22106:; +if ((*_FUNC_FIXOPERATIONORDER_LONG_I2)||new_error){ +if(qbevent){evnt(18773);if(r)goto S_22106;} +S_22107:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_I1== 0 ))||new_error){ +if(qbevent){evnt(18774);if(r)goto S_22107;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_I3=*_FUNC_FIXOPERATIONORDER_LONG_I2; +if(!qbevent)break;evnt(18775);}while(r); +}else{ +S_22110:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_I2<*_FUNC_FIXOPERATIONORDER_LONG_I1))||new_error){ +if(qbevent){evnt(18777);if(r)goto S_22110;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_I3=*_FUNC_FIXOPERATIONORDER_LONG_I2; +if(!qbevent)break;evnt(18777);}while(r); +} +} +} +S_22115:; +if ((*_FUNC_FIXOPERATIONORDER_LONG_I3)||new_error){ +if(qbevent){evnt(18780);if(r)goto S_22115;} +S_22116:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_I3==*_FUNC_FIXOPERATIONORDER_LONG_I1))||new_error){ +if(qbevent){evnt(18781);if(r)goto S_22116;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_B=*_FUNC_FIXOPERATIONORDER_LONG_B+ 1 ; +if(!qbevent)break;evnt(18781);}while(r); +} +S_22119:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_I3==*_FUNC_FIXOPERATIONORDER_LONG_I2))||new_error){ +if(qbevent){evnt(18782);if(r)goto S_22119;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_B=*_FUNC_FIXOPERATIONORDER_LONG_B- 1 ; +if(!qbevent)break;evnt(18782);}while(r); +} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_I=*_FUNC_FIXOPERATIONORDER_LONG_I3+ 2 ; +if(!qbevent)break;evnt(18783);}while(r); +S_22123:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_B< 0 ))||new_error){ +if(qbevent){evnt(18784);if(r)goto S_22123;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Missing (",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18784);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18784);}while(r); +} +do{ +goto LABEL_FINDMMB; +if(!qbevent)break;evnt(18785);}while(r); +} +S_22129:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_B> 0 ))||new_error){ +if(qbevent){evnt(18787);if(r)goto S_22129;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Missing )",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18787);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18787);}while(r); +} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A2,qbs_add(qbs_add(__STRING1_SP,_FUNC_FIXOPERATIONORDER_STRING_A),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18791);}while(r); +LABEL_RULE1:; +if(qbevent){evnt(18794);r=0;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_I=func_instr(NULL,_FUNC_FIXOPERATIONORDER_STRING_A2,qbs_add(qbs_add(qbs_add(qbs_add(__STRING1_SP,qbs_new_txt_len("+",1)),__STRING1_SP),qbs_new_txt_len("+",1)),__STRING1_SP),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18795);}while(r); +S_22135:; +if ((*_FUNC_FIXOPERATIONORDER_LONG_I)||new_error){ +if(qbevent){evnt(18796);if(r)goto S_22135;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A2,qbs_add(qbs_left(_FUNC_FIXOPERATIONORDER_STRING_A2,*_FUNC_FIXOPERATIONORDER_LONG_I+ 2 ),qbs_right(_FUNC_FIXOPERATIONORDER_STRING_A2,_FUNC_FIXOPERATIONORDER_STRING_A2->len-*_FUNC_FIXOPERATIONORDER_LONG_I- 4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18797);}while(r); +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A,func_mid(_FUNC_FIXOPERATIONORDER_STRING_A2, 2 ,_FUNC_FIXOPERATIONORDER_STRING_A2->len- 2 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18798);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_N=*_FUNC_FIXOPERATIONORDER_LONG_N- 1 ; +if(!qbevent)break;evnt(18799);}while(r); +S_22139:; +if (( 0 )||new_error){ +if(qbevent){evnt(18800);if(r)goto S_22139;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip2779; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("fixoperationorder:+/-:",22),_FUNC_FIXOPERATIONORDER_STRING_A), 0, 0, 1); +if (new_error) goto skip2779; +skip2779: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(18800);}while(r); +} +do{ +goto LABEL_RULE1; +if(!qbevent)break;evnt(18801);}while(r); +} +LABEL_RULE2:; +if(qbevent){evnt(18805);r=0;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_I=func_instr(NULL,_FUNC_FIXOPERATIONORDER_STRING_A2,qbs_add(qbs_add(qbs_add(qbs_add(__STRING1_SP,qbs_new_txt_len("-",1)),__STRING1_SP),qbs_new_txt_len("+",1)),__STRING1_SP),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18806);}while(r); +S_22145:; +if ((*_FUNC_FIXOPERATIONORDER_LONG_I)||new_error){ +if(qbevent){evnt(18807);if(r)goto S_22145;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A2,qbs_add(qbs_left(_FUNC_FIXOPERATIONORDER_STRING_A2,*_FUNC_FIXOPERATIONORDER_LONG_I+ 2 ),qbs_right(_FUNC_FIXOPERATIONORDER_STRING_A2,_FUNC_FIXOPERATIONORDER_STRING_A2->len-*_FUNC_FIXOPERATIONORDER_LONG_I- 4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18808);}while(r); +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A,func_mid(_FUNC_FIXOPERATIONORDER_STRING_A2, 2 ,_FUNC_FIXOPERATIONORDER_STRING_A2->len- 2 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18809);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_N=*_FUNC_FIXOPERATIONORDER_LONG_N- 1 ; +if(!qbevent)break;evnt(18810);}while(r); +S_22149:; +if (( 0 )||new_error){ +if(qbevent){evnt(18811);if(r)goto S_22149;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip2782; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("fixoperationorder:+/-:",22),_FUNC_FIXOPERATIONORDER_STRING_A), 0, 0, 1); +if (new_error) goto skip2782; +skip2782: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(18811);}while(r); +} +do{ +goto LABEL_RULE2; +if(!qbevent)break;evnt(18812);}while(r); +} +LABEL_RULE3:; +if(qbevent){evnt(18816);r=0;} +S_22154:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_FIXOPERATIONORDER_STRING_A2,qbs_add(qbs_add(qbs_add(qbs_add(__STRING1_SP,qbs_new_txt_len("-",1)),__STRING1_SP),qbs_new_txt_len("-",1)),__STRING1_SP),0)))||new_error){ +if(qbevent){evnt(18817);if(r)goto S_22154;} +S_22155:; +fornext_value2784= 1 ; +fornext_finalvalue2784=*_FUNC_FIXOPERATIONORDER_LONG_N- 2 ; +fornext_step2784= 1 ; +if (fornext_step2784<0) fornext_step_negative2784=1; else fornext_step_negative2784=0; +if (new_error) goto fornext_error2784; +goto fornext_entrylabel2784; +while(1){ +fornext_value2784=fornext_step2784+(*_FUNC_FIXOPERATIONORDER_LONG_I); +fornext_entrylabel2784: +*_FUNC_FIXOPERATIONORDER_LONG_I=fornext_value2784; +if (fornext_step_negative2784){ +if (fornext_value2784fornext_finalvalue2784) break; +} +fornext_error2784:; +if(qbevent){evnt(18818);if(r)goto S_22155;} +S_22156:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_ISOPERATOR(FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I))))||new_error){ +if(qbevent){evnt(18819);if(r)goto S_22156;} +S_22157:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2785=*_FUNC_FIXOPERATIONORDER_LONG_I+ 1 )),qbs_new_txt_len("-",1))))||new_error){ +if(qbevent){evnt(18820);if(r)goto S_22157;} +S_22158:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2786=*_FUNC_FIXOPERATIONORDER_LONG_I+ 2 )),qbs_new_txt_len("-",1))))||new_error){ +if(qbevent){evnt(18821);if(r)goto S_22158;} +do{ +SUB_REMOVEELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2787=*_FUNC_FIXOPERATIONORDER_LONG_I+ 1 ),&(pass2788=*_FUNC_FIXOPERATIONORDER_LONG_I+ 2 ),&(pass2789= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18822);}while(r); +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A2,qbs_add(qbs_add(__STRING1_SP,_FUNC_FIXOPERATIONORDER_STRING_A),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18823);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_N=*_FUNC_FIXOPERATIONORDER_LONG_N- 2 ; +if(!qbevent)break;evnt(18824);}while(r); +S_22162:; +if (( 0 )||new_error){ +if(qbevent){evnt(18825);if(r)goto S_22162;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip2790; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("fixoperationorder:+/-:",22),_FUNC_FIXOPERATIONORDER_STRING_A), 0, 0, 1); +if (new_error) goto skip2790; +skip2790: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(18825);}while(r); +} +do{ +goto LABEL_RULE3; +if(!qbevent)break;evnt(18826);}while(r); +} +} +} +fornext_continue_2783:; +} +fornext_exit_2783:; +} +S_22171:; +fornext_value2792= 1 ; +fornext_finalvalue2792=*_FUNC_FIXOPERATIONORDER_LONG_N- 1 ; +fornext_step2792= 1 ; +if (fornext_step2792<0) fornext_step_negative2792=1; else fornext_step_negative2792=0; +if (new_error) goto fornext_error2792; +goto fornext_entrylabel2792; +while(1){ +fornext_value2792=fornext_step2792+(*_FUNC_FIXOPERATIONORDER_LONG_I); +fornext_entrylabel2792: +*_FUNC_FIXOPERATIONORDER_LONG_I=fornext_value2792; +if (fornext_step_negative2792){ +if (fornext_value2792fornext_finalvalue2792) break; +} +fornext_error2792:; +if(qbevent){evnt(18850);if(r)goto S_22171;} +S_22172:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_I>(*_FUNC_FIXOPERATIONORDER_LONG_N- 1 )))||new_error){ +if(qbevent){evnt(18851);if(r)goto S_22172;} +do{ +goto fornext_exit_2791; +if(!qbevent)break;evnt(18851);}while(r); +} +S_22175:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I))== 45 )))||new_error){ +if(qbevent){evnt(18853);if(r)goto S_22175;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_NEG= 0 ; +if(!qbevent)break;evnt(18855);}while(r); +S_22177:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_I== 1 ))||new_error){ +if(qbevent){evnt(18856);if(r)goto S_22177;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_NEG= 1 ; +if(!qbevent)break;evnt(18857);}while(r); +}else{ +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A2,FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2793=*_FUNC_FIXOPERATIONORDER_LONG_I- 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18859);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_C=qbs_asc(_FUNC_FIXOPERATIONORDER_STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18860);}while(r); +S_22182:; +if (((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 40 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_C== 44 )))||new_error){ +if(qbevent){evnt(18861);if(r)goto S_22182;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_NEG= 1 ; +if(!qbevent)break;evnt(18862);}while(r); +}else{ +S_22185:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_ISOPERATOR(_FUNC_FIXOPERATIONORDER_STRING_A2)))||new_error){ +if(qbevent){evnt(18864);if(r)goto S_22185;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_NEG= 1 ; +if(!qbevent)break;evnt(18864);}while(r); +} +} +} +S_22190:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_NEG== 1 ))||new_error){ +if(qbevent){evnt(18867);if(r)goto S_22190;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A2,FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2794=*_FUNC_FIXOPERATIONORDER_LONG_I+ 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18869);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_C=qbs_asc(_FUNC_FIXOPERATIONORDER_STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18870);}while(r); +S_22193:; +if (((-(*_FUNC_FIXOPERATIONORDER_LONG_C>= 48 ))&(-(*_FUNC_FIXOPERATIONORDER_LONG_C<= 57 )))||new_error){ +if(qbevent){evnt(18871);if(r)goto S_22193;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_C2= 0 ; +if(!qbevent)break;evnt(18872);}while(r); +S_22195:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_I<(*_FUNC_FIXOPERATIONORDER_LONG_N- 1 )))||new_error){ +if(qbevent){evnt(18872);if(r)goto S_22195;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_C2=qbs_asc(FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2795=*_FUNC_FIXOPERATIONORDER_LONG_I+ 2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18872);}while(r); +} +S_22198:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_C2!= 94 ))||new_error){ +if(qbevent){evnt(18873);if(r)goto S_22198;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_I2=func_instr(NULL,_FUNC_FIXOPERATIONORDER_STRING_A2,qbs_new_txt_len(",",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18875);}while(r); +S_22200:; +if ((qbs_cleanup(qbs_tmp_base,*_FUNC_FIXOPERATIONORDER_LONG_I2&(-(qbs_asc(_FUNC_FIXOPERATIONORDER_STRING_A2,*_FUNC_FIXOPERATIONORDER_LONG_I2+ 1 )!= 38 ))))||new_error){ +if(qbevent){evnt(18876);if(r)goto S_22200;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A2,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("-",1),qbs_left(_FUNC_FIXOPERATIONORDER_STRING_A2,*_FUNC_FIXOPERATIONORDER_LONG_I2)),qbs_new_txt_len("-",1)),qbs_right(_FUNC_FIXOPERATIONORDER_STRING_A2,_FUNC_FIXOPERATIONORDER_STRING_A2->len-*_FUNC_FIXOPERATIONORDER_LONG_I2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18877);}while(r); +}else{ +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A2,qbs_add(qbs_new_txt_len("-",1),_FUNC_FIXOPERATIONORDER_STRING_A2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18879);}while(r); +} +do{ +SUB_REMOVEELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I,&(pass2797=*_FUNC_FIXOPERATIONORDER_LONG_I+ 1 ),&(pass2798= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18881);}while(r); +do{ +SUB_INSERTELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2799=*_FUNC_FIXOPERATIONORDER_LONG_I- 1 ),_FUNC_FIXOPERATIONORDER_STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18882);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_N=*_FUNC_FIXOPERATIONORDER_LONG_N- 1 ; +if(!qbevent)break;evnt(18883);}while(r); +S_22208:; +if (( 0 )||new_error){ +if(qbevent){evnt(18884);if(r)goto S_22208;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip2800; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("fixoperationorder:negation:",27),_FUNC_FIXOPERATIONORDER_STRING_A), 0, 0, 1); +if (new_error) goto skip2800; +skip2800: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(18884);}while(r); +} +do{ +goto LABEL_NEGDONE; +if(!qbevent)break;evnt(18886);}while(r); +} +} +do{ +SUB_REMOVEELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I,_FUNC_FIXOPERATIONORDER_LONG_I,&(pass2801= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18893);}while(r); +do{ +SUB_INSERTELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2802=*_FUNC_FIXOPERATIONORDER_LONG_I- 1 ),func_chr( 241 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18894);}while(r); +S_22216:; +if (( 0 )||new_error){ +if(qbevent){evnt(18895);if(r)goto S_22216;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip2803; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("fixoperationorder:negation:",27),_FUNC_FIXOPERATIONORDER_STRING_A), 0, 0, 1); +if (new_error) goto skip2803; +skip2803: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(18895);}while(r); +} +} +} +LABEL_NEGDONE:; +if(qbevent){evnt(18899);r=0;} +fornext_continue_2791:; +} +fornext_exit_2791:; +} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_POWNEGUSED= 0 ; +if(!qbevent)break;evnt(18909);}while(r); +LABEL_POWNEG:; +if(qbevent){evnt(18910);r=0;} +S_22224:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_FIXOPERATIONORDER_STRING_A,qbs_add(qbs_add(qbs_new_txt_len("^",1),__STRING1_SP),func_chr( 241 )),0)))||new_error){ +if(qbevent){evnt(18911);if(r)goto S_22224;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_B= 0 ; +if(!qbevent)break;evnt(18912);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_B1= 0 ; +if(!qbevent)break;evnt(18913);}while(r); +S_22227:; +fornext_value2805= 1 ; +fornext_finalvalue2805=*_FUNC_FIXOPERATIONORDER_LONG_N; +fornext_step2805= 1 ; +if (fornext_step2805<0) fornext_step_negative2805=1; else fornext_step_negative2805=0; +if (new_error) goto fornext_error2805; +goto fornext_entrylabel2805; +while(1){ +fornext_value2805=fornext_step2805+(*_FUNC_FIXOPERATIONORDER_LONG_I); +fornext_entrylabel2805: +*_FUNC_FIXOPERATIONORDER_LONG_I=fornext_value2805; +if (fornext_step_negative2805){ +if (fornext_value2805fornext_finalvalue2805) break; +} +fornext_error2805:; +if(qbevent){evnt(18914);if(r)goto S_22227;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A2,FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18915);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_C=qbs_asc(_FUNC_FIXOPERATIONORDER_STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18916);}while(r); +S_22230:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 40 ))||new_error){ +if(qbevent){evnt(18917);if(r)goto S_22230;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_B=*_FUNC_FIXOPERATIONORDER_LONG_B+ 1 ; +if(!qbevent)break;evnt(18917);}while(r); +} +S_22233:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 41 ))||new_error){ +if(qbevent){evnt(18918);if(r)goto S_22233;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_B=*_FUNC_FIXOPERATIONORDER_LONG_B- 1 ; +if(!qbevent)break;evnt(18918);}while(r); +} +S_22236:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_B== 0 ))||new_error){ +if(qbevent){evnt(18919);if(r)goto S_22236;} +S_22237:; +if ((*_FUNC_FIXOPERATIONORDER_LONG_B1)||new_error){ +if(qbevent){evnt(18920);if(r)goto S_22237;} +S_22238:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_ISOPERATOR(_FUNC_FIXOPERATIONORDER_STRING_A2)))||new_error){ +if(qbevent){evnt(18921);if(r)goto S_22238;} +S_22239:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(_FUNC_FIXOPERATIONORDER_STRING_A2,qbs_new_txt_len("^",1)))&(qbs_notequal(_FUNC_FIXOPERATIONORDER_STRING_A2,func_chr( 241 )))))||new_error){ +if(qbevent){evnt(18922);if(r)goto S_22239;} +do{ +SUB_INSERTELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2806=*_FUNC_FIXOPERATIONORDER_LONG_I- 1 ),qbs_new_txt_len("}",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18923);}while(r); +do{ +SUB_INSERTELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_B1,qbs_new_txt_len("{",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18924);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_N=*_FUNC_FIXOPERATIONORDER_LONG_N+ 2 ; +if(!qbevent)break;evnt(18925);}while(r); +S_22243:; +if (( 0 )||new_error){ +if(qbevent){evnt(18926);if(r)goto S_22243;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip2807; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("fixoperationorder:^-:",21),_FUNC_FIXOPERATIONORDER_STRING_A), 0, 0, 1); +if (new_error) goto skip2807; +skip2807: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(18926);}while(r); +} +do{ +goto LABEL_POWNEG; +if(!qbevent)break;evnt(18927);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_POWNEGUSED= 1 ; +if(!qbevent)break;evnt(18928);}while(r); +} +} +} +S_22251:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 94 ))||new_error){ +if(qbevent){evnt(18932);if(r)goto S_22251;} +S_22252:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2808=*_FUNC_FIXOPERATIONORDER_LONG_I+ 1 )),func_chr( 241 ))))||new_error){ +if(qbevent){evnt(18933);if(r)goto S_22252;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_B1=*_FUNC_FIXOPERATIONORDER_LONG_I; +if(!qbevent)break;evnt(18933);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_I=*_FUNC_FIXOPERATIONORDER_LONG_I+ 1 ; +if(!qbevent)break;evnt(18933);}while(r); +} +} +} +fornext_continue_2804:; +} +fornext_exit_2804:; +S_22259:; +if ((*_FUNC_FIXOPERATIONORDER_LONG_B1)||new_error){ +if(qbevent){evnt(18937);if(r)goto S_22259;} +do{ +SUB_INSERTELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_B1,qbs_new_txt_len("{",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18938);}while(r); +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A,qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_A,__STRING1_SP),qbs_new_txt_len("}",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18939);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_N=*_FUNC_FIXOPERATIONORDER_LONG_N+ 2 ; +if(!qbevent)break;evnt(18940);}while(r); +S_22263:; +if (( 0 )||new_error){ +if(qbevent){evnt(18941);if(r)goto S_22263;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip2809; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("fixoperationorder:^-:",21),_FUNC_FIXOPERATIONORDER_STRING_A), 0, 0, 1); +if (new_error) goto skip2809; +skip2809: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(18941);}while(r); +} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_POWNEGUSED= 1 ; +if(!qbevent)break;evnt(18942);}while(r); +do{ +goto LABEL_POWNEG; +if(!qbevent)break;evnt(18943);}while(r); +} +} +LABEL_NOT_RECHECK:; +if(qbevent){evnt(18950);r=0;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_LCO= 255 ; +if(!qbevent)break;evnt(18951);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_HCO= 0 ; +if(!qbevent)break;evnt(18952);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_B= 0 ; +if(!qbevent)break;evnt(18953);}while(r); +S_22273:; +fornext_value2811= 1 ; +fornext_finalvalue2811=*_FUNC_FIXOPERATIONORDER_LONG_N; +fornext_step2811= 1 ; +if (fornext_step2811<0) fornext_step_negative2811=1; else fornext_step_negative2811=0; +if (new_error) goto fornext_error2811; +goto fornext_entrylabel2811; +while(1){ +fornext_value2811=fornext_step2811+(*_FUNC_FIXOPERATIONORDER_LONG_I); +fornext_entrylabel2811: +*_FUNC_FIXOPERATIONORDER_LONG_I=fornext_value2811; +if (fornext_step_negative2811){ +if (fornext_value2811fornext_finalvalue2811) break; +} +fornext_error2811:; +if(qbevent){evnt(18954);if(r)goto S_22273;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A2,FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18955);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_C=qbs_asc(_FUNC_FIXOPERATIONORDER_STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18956);}while(r); +S_22276:; +if (((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 40 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_C== 123 )))||new_error){ +if(qbevent){evnt(18957);if(r)goto S_22276;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_B=*_FUNC_FIXOPERATIONORDER_LONG_B+ 1 ; +if(!qbevent)break;evnt(18957);}while(r); +} +S_22279:; +if (((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 41 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_C== 125 )))||new_error){ +if(qbevent){evnt(18958);if(r)goto S_22279;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_B=*_FUNC_FIXOPERATIONORDER_LONG_B- 1 ; +if(!qbevent)break;evnt(18958);}while(r); +} +S_22282:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_B== 0 ))||new_error){ +if(qbevent){evnt(18959);if(r)goto S_22282;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_OP=FUNC_ISOPERATOR(_FUNC_FIXOPERATIONORDER_STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18960);}while(r); +S_22284:; +if ((*_FUNC_FIXOPERATIONORDER_LONG_OP)||new_error){ +if(qbevent){evnt(18961);if(r)goto S_22284;} +S_22285:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_OP<*_FUNC_FIXOPERATIONORDER_LONG_LCO))||new_error){ +if(qbevent){evnt(18962);if(r)goto S_22285;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_LCO=*_FUNC_FIXOPERATIONORDER_LONG_OP; +if(!qbevent)break;evnt(18962);}while(r); +} +S_22288:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_OP>*_FUNC_FIXOPERATIONORDER_LONG_HCO))||new_error){ +if(qbevent){evnt(18963);if(r)goto S_22288;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_HCO=*_FUNC_FIXOPERATIONORDER_LONG_OP; +if(!qbevent)break;evnt(18963);}while(r); +} +} +} +fornext_continue_2810:; +} +fornext_exit_2810:; +S_22294:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_HCO!= 0 ))||new_error){ +if(qbevent){evnt(18970);if(r)goto S_22294;} +S_22295:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_LCO!=*_FUNC_FIXOPERATIONORDER_LONG_HCO))||new_error){ +if(qbevent){evnt(18971);if(r)goto S_22295;} +S_22296:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_LCO== 6 ))||new_error){ +if(qbevent){evnt(18974);if(r)goto S_22296;} +S_22297:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_N== 1 ))||new_error){ +if(qbevent){evnt(18977);if(r)goto S_22297;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected NOT ...",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18977);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18977);}while(r); +} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_B= 0 ; +if(!qbevent)break;evnt(18978);}while(r); +S_22302:; +fornext_value2813= 1 ; +fornext_finalvalue2813=*_FUNC_FIXOPERATIONORDER_LONG_N; +fornext_step2813= 1 ; +if (fornext_step2813<0) fornext_step_negative2813=1; else fornext_step_negative2813=0; +if (new_error) goto fornext_error2813; +goto fornext_entrylabel2813; +while(1){ +fornext_value2813=fornext_step2813+(*_FUNC_FIXOPERATIONORDER_LONG_I); +fornext_entrylabel2813: +*_FUNC_FIXOPERATIONORDER_LONG_I=fornext_value2813; +if (fornext_step_negative2813){ +if (fornext_value2813fornext_finalvalue2813) break; +} +fornext_error2813:; +if(qbevent){evnt(18979);if(r)goto S_22302;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A2,FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18980);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_C=qbs_asc(_FUNC_FIXOPERATIONORDER_STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18981);}while(r); +S_22305:; +if (((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 40 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_C== 123 )))||new_error){ +if(qbevent){evnt(18982);if(r)goto S_22305;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_B=*_FUNC_FIXOPERATIONORDER_LONG_B+ 1 ; +if(!qbevent)break;evnt(18982);}while(r); +} +S_22308:; +if (((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 41 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_C== 125 )))||new_error){ +if(qbevent){evnt(18983);if(r)goto S_22308;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_B=*_FUNC_FIXOPERATIONORDER_LONG_B- 1 ; +if(!qbevent)break;evnt(18983);}while(r); +} +S_22311:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_B== 0 ))||new_error){ +if(qbevent){evnt(18984);if(r)goto S_22311;} +S_22312:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_FUNC_FIXOPERATIONORDER_STRING_A2),qbs_new_txt_len("NOT",3))))||new_error){ +if(qbevent){evnt(18985);if(r)goto S_22312;} +S_22313:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_I==*_FUNC_FIXOPERATIONORDER_LONG_N))||new_error){ +if(qbevent){evnt(18986);if(r)goto S_22313;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected NOT ...",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18986);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(18986);}while(r); +} +S_22317:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_I== 1 ))||new_error){ +if(qbevent){evnt(18987);if(r)goto S_22317;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("NOT",3),__STRING1_SP),qbs_new_txt_len("{",1)),__STRING1_SP),FUNC_GETELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2814= 2 ),_FUNC_FIXOPERATIONORDER_LONG_N)),__STRING1_SP),qbs_new_txt_len("}",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18987);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_N=*_FUNC_FIXOPERATIONORDER_LONG_N+ 2 ; +if(!qbevent)break;evnt(18987);}while(r); +do{ +goto LABEL_LCO_BRACKETTING_DONE; +if(!qbevent)break;evnt(18987);}while(r); +} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(FUNC_GETELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2815= 1 ),&(pass2816=*_FUNC_FIXOPERATIONORDER_LONG_I- 1 )),__STRING1_SP),qbs_new_txt_len("{",1)),__STRING1_SP),qbs_new_txt_len("NOT",3)),__STRING1_SP),qbs_new_txt_len("{",1)),__STRING1_SP),FUNC_GETELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2817=*_FUNC_FIXOPERATIONORDER_LONG_I+ 1 ),_FUNC_FIXOPERATIONORDER_LONG_N)),__STRING1_SP),qbs_new_txt_len("}",1)),__STRING1_SP),qbs_new_txt_len("}",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18988);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_N=*_FUNC_FIXOPERATIONORDER_LONG_N+ 4 ; +if(!qbevent)break;evnt(18989);}while(r); +do{ +goto LABEL_NOT_RECHECK; +if(!qbevent)break;evnt(18990);}while(r); +} +} +fornext_continue_2812:; +} +fornext_exit_2812:; +} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_N2=*_FUNC_FIXOPERATIONORDER_LONG_N; +if(!qbevent)break;evnt(18996);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_B= 0 ; +if(!qbevent)break;evnt(18997);}while(r); +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A3,qbs_new_txt_len("{",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(18998);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_N= 1 ; +if(!qbevent)break;evnt(18999);}while(r); +S_22333:; +fornext_value2819= 1 ; +fornext_finalvalue2819=*_FUNC_FIXOPERATIONORDER_LONG_N2; +fornext_step2819= 1 ; +if (fornext_step2819<0) fornext_step_negative2819=1; else fornext_step_negative2819=0; +if (new_error) goto fornext_error2819; +goto fornext_entrylabel2819; +while(1){ +fornext_value2819=fornext_step2819+(*_FUNC_FIXOPERATIONORDER_LONG_I); +fornext_entrylabel2819: +*_FUNC_FIXOPERATIONORDER_LONG_I=fornext_value2819; +if (fornext_step_negative2819){ +if (fornext_value2819fornext_finalvalue2819) break; +} +fornext_error2819:; +if(qbevent){evnt(19000);if(r)goto S_22333;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A2,FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19001);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_C=qbs_asc(_FUNC_FIXOPERATIONORDER_STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19002);}while(r); +S_22336:; +if (((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 40 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_C== 123 )))||new_error){ +if(qbevent){evnt(19003);if(r)goto S_22336;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_B=*_FUNC_FIXOPERATIONORDER_LONG_B+ 1 ; +if(!qbevent)break;evnt(19003);}while(r); +} +S_22339:; +if (((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 41 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_C== 125 )))||new_error){ +if(qbevent){evnt(19004);if(r)goto S_22339;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_B=*_FUNC_FIXOPERATIONORDER_LONG_B- 1 ; +if(!qbevent)break;evnt(19004);}while(r); +} +S_22342:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_B== 0 ))||new_error){ +if(qbevent){evnt(19005);if(r)goto S_22342;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_OP=FUNC_ISOPERATOR(_FUNC_FIXOPERATIONORDER_STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19006);}while(r); +S_22344:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_OP==*_FUNC_FIXOPERATIONORDER_LONG_LCO))||new_error){ +if(qbevent){evnt(19007);if(r)goto S_22344;} +S_22345:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_I== 1 ))||new_error){ +if(qbevent){evnt(19008);if(r)goto S_22345;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A3,qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_A2,__STRING1_SP),qbs_new_txt_len("{",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19009);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_N= 2 ; +if(!qbevent)break;evnt(19010);}while(r); +}else{ +S_22349:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_I==*_FUNC_FIXOPERATIONORDER_LONG_N2))||new_error){ +if(qbevent){evnt(19012);if(r)goto S_22349;} +do{ +SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Expected variable/value after '",31),qbs_ucase(_FUNC_FIXOPERATIONORDER_STRING_A2)),qbs_new_txt_len("'",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19012);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(19012);}while(r); +} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A3,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_A3,__STRING1_SP),qbs_new_txt_len("}",1)),__STRING1_SP),_FUNC_FIXOPERATIONORDER_STRING_A2),__STRING1_SP),qbs_new_txt_len("{",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19013);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_N=*_FUNC_FIXOPERATIONORDER_LONG_N+ 3 ; +if(!qbevent)break;evnt(19014);}while(r); +} +do{ +goto LABEL_FIXOP0; +if(!qbevent)break;evnt(19016);}while(r); +} +} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A3,qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_A3,__STRING1_SP),_FUNC_FIXOPERATIONORDER_STRING_A2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19020);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_N=*_FUNC_FIXOPERATIONORDER_LONG_N+ 1 ; +if(!qbevent)break;evnt(19021);}while(r); +LABEL_FIXOP0:; +if(qbevent){evnt(19022);r=0;} +fornext_continue_2818:; +} +fornext_exit_2818:; +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A3,qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_A3,__STRING1_SP),qbs_new_txt_len("}",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19024);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_N=*_FUNC_FIXOPERATIONORDER_LONG_N+ 1 ; +if(!qbevent)break;evnt(19025);}while(r); +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_STRING_A3); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19026);}while(r); +LABEL_LCO_BRACKETTING_DONE:; +if(qbevent){evnt(19028);r=0;} +S_22365:; +if (( 0 )||new_error){ +if(qbevent){evnt(19029);if(r)goto S_22365;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip2820; +sub_file_print(tmp_fileno,qbs_new_txt_len("fixoperationorder:lco bracketing[",33), 0, 0, 0); +if (new_error) goto skip2820; +sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_FIXOPERATIONORDER_LONG_LCO)), 1, 0, 0); +if (new_error) goto skip2820; +sub_file_print(tmp_fileno,qbs_new_txt_len(",",1), 0, 0, 0); +if (new_error) goto skip2820; +sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_FIXOPERATIONORDER_LONG_HCO)), 1, 0, 0); +if (new_error) goto skip2820; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("]:",2),_FUNC_FIXOPERATIONORDER_STRING_A), 0, 0, 1); +if (new_error) goto skip2820; +skip2820: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(19029);}while(r); +} +S_22368:; +if ((*_FUNC_FIXOPERATIONORDER_LONG_POWNEGUSED)||new_error){ +if(qbevent){evnt(19032);if(r)goto S_22368;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_B= 0 ; +if(!qbevent)break;evnt(19033);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_I= 0 ; +if(!qbevent)break;evnt(19034);}while(r); +S_22371:; +do{ +if(qbevent){evnt(19035);if(r)goto S_22371;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_I=*_FUNC_FIXOPERATIONORDER_LONG_I+ 1 ; +if(!qbevent)break;evnt(19036);}while(r); +S_22373:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_I>*_FUNC_FIXOPERATIONORDER_LONG_N))||new_error){ +if(qbevent){evnt(19037);if(r)goto S_22373;} +do{ +goto dl_exit_2821; +if(!qbevent)break;evnt(19037);}while(r); +} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_C=qbs_asc(FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19038);}while(r); +S_22377:; +if (((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 41 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_C== 125 )))||new_error){ +if(qbevent){evnt(19039);if(r)goto S_22377;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_B=*_FUNC_FIXOPERATIONORDER_LONG_B- 1 ; +if(!qbevent)break;evnt(19039);}while(r); +} +S_22380:; +if (((((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 123 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_C== 125 ))))&(-(*_FUNC_FIXOPERATIONORDER_LONG_B!= 0 )))||new_error){ +if(qbevent){evnt(19040);if(r)goto S_22380;} +do{ +SUB_REMOVEELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I,_FUNC_FIXOPERATIONORDER_LONG_I,&(pass2822= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19041);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_N=*_FUNC_FIXOPERATIONORDER_LONG_N- 1 ; +if(!qbevent)break;evnt(19042);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_I=*_FUNC_FIXOPERATIONORDER_LONG_I- 1 ; +if(!qbevent)break;evnt(19043);}while(r); +S_22384:; +if (( 0 )||new_error){ +if(qbevent){evnt(19044);if(r)goto S_22384;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip2823; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("fixoperationorder:^- {} removed:",32),_FUNC_FIXOPERATIONORDER_STRING_A), 0, 0, 1); +if (new_error) goto skip2823; +skip2823: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(19044);}while(r); +} +} +S_22388:; +if (((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 40 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_C== 123 )))||new_error){ +if(qbevent){evnt(19046);if(r)goto S_22388;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_B=*_FUNC_FIXOPERATIONORDER_LONG_B+ 1 ; +if(!qbevent)break;evnt(19046);}while(r); +} +dl_continue_2821:; +}while(1); +dl_exit_2821:; +} +} +} +S_22395:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal((qbs_left(_FUNC_FIXOPERATIONORDER_STRING_A, 4 )),(qbs_add(qbs_add(qbs_add(func_chr( 241 ),__STRING1_SP),func_chr( 241 )),__STRING1_SP)))))||new_error){ +if(qbevent){evnt(19054);if(r)goto S_22395;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(func_chr( 241 ),__STRING1_SP),qbs_new_txt_len("{",1)),__STRING1_SP),FUNC_GETELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2824= 2 ),_FUNC_FIXOPERATIONORDER_LONG_N)),__STRING1_SP),qbs_new_txt_len("}",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19055);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_N=*_FUNC_FIXOPERATIONORDER_LONG_N+ 2 ; +if(!qbevent)break;evnt(19055);}while(r); +} +S_22399:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal((qbs_ucase(qbs_left(_FUNC_FIXOPERATIONORDER_STRING_A, 8 ))),(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("NOT",3),__STRING1_SP),qbs_new_txt_len("NOT",3)),__STRING1_SP)))))||new_error){ +if(qbevent){evnt(19057);if(r)goto S_22399;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("NOT",3),__STRING1_SP),qbs_new_txt_len("{",1)),__STRING1_SP),FUNC_GETELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2825= 2 ),_FUNC_FIXOPERATIONORDER_LONG_N)),__STRING1_SP),qbs_new_txt_len("}",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19058);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_N=*_FUNC_FIXOPERATIONORDER_LONG_N+ 2 ; +if(!qbevent)break;evnt(19058);}while(r); +} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19067);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_B= 0 ; +if(!qbevent)break;evnt(19068);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_C= 0 ; +if(!qbevent)break;evnt(19069);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_LASTT= 0 ; +if(!qbevent)break;evnt(19070);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_LASTTI= 0 ; +if(!qbevent)break;evnt(19070);}while(r); +S_22408:; +fornext_value2827= 1 ; +fornext_finalvalue2827=*_FUNC_FIXOPERATIONORDER_LONG_N; +fornext_step2827= 1 ; +if (fornext_step2827<0) fornext_step_negative2827=1; else fornext_step_negative2827=0; +if (new_error) goto fornext_error2827; +goto fornext_entrylabel2827; +while(1){ +fornext_value2827=fornext_step2827+(*_FUNC_FIXOPERATIONORDER_LONG_I); +fornext_entrylabel2827: +*_FUNC_FIXOPERATIONORDER_LONG_I=fornext_value2827; +if (fornext_step_negative2827){ +if (fornext_value2827fornext_finalvalue2827) break; +} +fornext_error2827:; +if(qbevent){evnt(19071);if(r)goto S_22408;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F2,FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19072);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_LASTC=*_FUNC_FIXOPERATIONORDER_LONG_C; +if(!qbevent)break;evnt(19073);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_C=qbs_asc(_FUNC_FIXOPERATIONORDER_STRING_F2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19074);}while(r); +S_22412:; +if (((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 40 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_C== 123 )))||new_error){ +if(qbevent){evnt(19076);if(r)goto S_22412;} +S_22413:; +if (((-(*_FUNC_FIXOPERATIONORDER_LONG_C!= 40 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_B!= 0 )))||new_error){ +if(qbevent){evnt(19077);if(r)goto S_22413;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F2,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19077);}while(r); +} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_B=*_FUNC_FIXOPERATIONORDER_LONG_B+ 1 ; +if(!qbevent)break;evnt(19078);}while(r); +do{ +goto LABEL_CLASSDONE; +if(!qbevent)break;evnt(19079);}while(r); +} +S_22419:; +if (((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 41 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_C== 125 )))||new_error){ +if(qbevent){evnt(19081);if(r)goto S_22419;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_B=*_FUNC_FIXOPERATIONORDER_LONG_B- 1 ; +if(!qbevent)break;evnt(19083);}while(r); +S_22421:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_B== 0 ))||new_error){ +if(qbevent){evnt(19086);if(r)goto S_22421;} +S_22422:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 41 ))||new_error){ +if(qbevent){evnt(19087);if(r)goto S_22422;} +S_22423:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_LASTC== 40 ))||new_error){ +if(qbevent){evnt(19088);if(r)goto S_22423;} +S_22424:; +if (((-(*_FUNC_FIXOPERATIONORDER_LONG_LASTTI==(*_FUNC_FIXOPERATIONORDER_LONG_I- 2 )))|(-(*_FUNC_FIXOPERATIONORDER_LONG_LASTTI== 0 )))||new_error){ +if(qbevent){evnt(19089);if(r)goto S_22424;} +S_22425:; +if (((-(*_FUNC_FIXOPERATIONORDER_LONG_LASTT>= 0 ))&(-(*_FUNC_FIXOPERATIONORDER_LONG_LASTT<= 3 )))||new_error){ +if(qbevent){evnt(19090);if(r)goto S_22425;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Unexpected (",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19091);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(19091);}while(r); +} +} +} +} +} +S_22433:; +if (((-(*_FUNC_FIXOPERATIONORDER_LONG_C!= 41 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_B!= 0 )))||new_error){ +if(qbevent){evnt(19098);if(r)goto S_22433;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F2,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19098);}while(r); +} +do{ +goto LABEL_CLASSDONE; +if(!qbevent)break;evnt(19099);}while(r); +} +S_22438:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_B== 0 ))||new_error){ +if(qbevent){evnt(19102);if(r)goto S_22438;} +S_22439:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 34 ))||new_error){ +if(qbevent){evnt(19113);if(r)goto S_22439;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_LASTT= 1 ; +if(!qbevent)break;evnt(19114);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_LASTTI=*_FUNC_FIXOPERATIONORDER_LONG_I; +if(!qbevent)break;evnt(19114);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_X2= 1 ; +if(!qbevent)break;evnt(19118);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_X=func_instr(*_FUNC_FIXOPERATIONORDER_LONG_X2,_FUNC_FIXOPERATIONORDER_STRING_F2,qbs_new_txt_len("\\",1),0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19119);}while(r); +S_22444:; +while((*_FUNC_FIXOPERATIONORDER_LONG_X)||new_error){ +if(qbevent){evnt(19120);if(r)goto S_22444;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_C2=qbs_asc(_FUNC_FIXOPERATIONORDER_STRING_F2,*_FUNC_FIXOPERATIONORDER_LONG_X+ 1 ); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19121);}while(r); +S_22446:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_C2== 92 ))||new_error){ +if(qbevent){evnt(19122);if(r)goto S_22446;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F2,qbs_add(qbs_left(_FUNC_FIXOPERATIONORDER_STRING_F2,*_FUNC_FIXOPERATIONORDER_LONG_X),qbs_right(_FUNC_FIXOPERATIONORDER_STRING_F2,_FUNC_FIXOPERATIONORDER_STRING_F2->len-*_FUNC_FIXOPERATIONORDER_LONG_X- 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19123);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_X2=*_FUNC_FIXOPERATIONORDER_LONG_X+ 1 ; +if(!qbevent)break;evnt(19124);}while(r); +}else{ +do{ +*_FUNC_FIXOPERATIONORDER_LONG_C3=((qbs_asc(_FUNC_FIXOPERATIONORDER_STRING_F2,*_FUNC_FIXOPERATIONORDER_LONG_X+ 3 )- 48 ))+((qbs_asc(_FUNC_FIXOPERATIONORDER_STRING_F2,*_FUNC_FIXOPERATIONORDER_LONG_X+ 2 )- 48 )* 8 )+((qbs_asc(_FUNC_FIXOPERATIONORDER_STRING_F2,*_FUNC_FIXOPERATIONORDER_LONG_X+ 1 )- 48 )* 64 ); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19127);}while(r); +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F2,qbs_add(qbs_add(qbs_left(_FUNC_FIXOPERATIONORDER_STRING_F2,*_FUNC_FIXOPERATIONORDER_LONG_X- 1 ),func_chr(*_FUNC_FIXOPERATIONORDER_LONG_C3)),qbs_right(_FUNC_FIXOPERATIONORDER_STRING_F2,_FUNC_FIXOPERATIONORDER_STRING_F2->len-*_FUNC_FIXOPERATIONORDER_LONG_X- 3 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19128);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_X2=*_FUNC_FIXOPERATIONORDER_LONG_X+ 1 ; +if(!qbevent)break;evnt(19129);}while(r); +} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_X=func_instr(*_FUNC_FIXOPERATIONORDER_LONG_X2,_FUNC_FIXOPERATIONORDER_STRING_F2,qbs_new_txt_len("\\",1),0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19131);}while(r); +dl_continue_2828:; +} +dl_exit_2828:; +do{ +*_FUNC_FIXOPERATIONORDER_LONG_X=func_instr( 2 ,_FUNC_FIXOPERATIONORDER_STRING_F2,qbs_add(func_chr( 34 ),qbs_new_txt_len(",",1)),0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19134);}while(r); +S_22457:; +if ((*_FUNC_FIXOPERATIONORDER_LONG_X)||new_error){ +if(qbevent){evnt(19134);if(r)goto S_22457;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F2,qbs_left(_FUNC_FIXOPERATIONORDER_STRING_F2,*_FUNC_FIXOPERATIONORDER_LONG_X)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19134);}while(r); +} +do{ +goto LABEL_CLASSDONE; +if(!qbevent)break;evnt(19135);}while(r); +} +S_22462:; +if (((((-(*_FUNC_FIXOPERATIONORDER_LONG_C>= 48 ))&(-(*_FUNC_FIXOPERATIONORDER_LONG_C<= 57 ))))|(-(*_FUNC_FIXOPERATIONORDER_LONG_C== 45 )))||new_error){ +if(qbevent){evnt(19139);if(r)goto S_22462;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_LASTT= 2 ; +if(!qbevent)break;evnt(19140);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_LASTTI=*_FUNC_FIXOPERATIONORDER_LONG_I; +if(!qbevent)break;evnt(19140);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_X=func_instr(NULL,_FUNC_FIXOPERATIONORDER_STRING_F2,qbs_new_txt_len(",",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19142);}while(r); +S_22466:; +if ((*_FUNC_FIXOPERATIONORDER_LONG_X)||new_error){ +if(qbevent){evnt(19143);if(r)goto S_22466;} +do{ +SUB_REMOVEELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I,_FUNC_FIXOPERATIONORDER_LONG_I,&(pass2831= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19144);}while(r); +do{ +SUB_INSERTELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2832=*_FUNC_FIXOPERATIONORDER_LONG_I- 1 ),qbs_left(_FUNC_FIXOPERATIONORDER_STRING_F2,*_FUNC_FIXOPERATIONORDER_LONG_X- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19144);}while(r); +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F2,qbs_right(_FUNC_FIXOPERATIONORDER_STRING_F2,_FUNC_FIXOPERATIONORDER_STRING_F2->len-*_FUNC_FIXOPERATIONORDER_LONG_X)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19145);}while(r); +} +S_22471:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_X== 0 ))||new_error){ +if(qbevent){evnt(19148);if(r)goto S_22471;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_C2=qbs_asc(_FUNC_FIXOPERATIONORDER_STRING_F2,_FUNC_FIXOPERATIONORDER_STRING_F2->len); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19149);}while(r); +S_22473:; +if (((-(*_FUNC_FIXOPERATIONORDER_LONG_C2< 48 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_C2> 57 )))||new_error){ +if(qbevent){evnt(19150);if(r)goto S_22473;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_X= 1 ; +if(!qbevent)break;evnt(19151);}while(r); +}else{ +do{ +*_FUNC_FIXOPERATIONORDER_LONG_X=func_instr(NULL,_FUNC_FIXOPERATIONORDER_STRING_F2,qbs_new_txt_len("`",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19153);}while(r); +} +} +S_22479:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_X== 0 ))||new_error){ +if(qbevent){evnt(19158);if(r)goto S_22479;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F3,_FUNC_FIXOPERATIONORDER_STRING_F2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19159);}while(r); +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19160);}while(r); +S_22482:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 45 ))||new_error){ +if(qbevent){evnt(19161);if(r)goto S_22482;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,qbs_new_txt_len("&&",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19162);}while(r); +S_22484:; +if ((qbs_cleanup(qbs_tmp_base,(((qbs_lessthan(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_new_txt_len("-2147483648",11)))&(-(_FUNC_FIXOPERATIONORDER_STRING_F3->len== 11 ))))|(-(_FUNC_FIXOPERATIONORDER_STRING_F3->len< 11 ))))||new_error){ +if(qbevent){evnt(19163);if(r)goto S_22484;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,qbs_new_txt_len("&",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19163);}while(r); +} +S_22487:; +if ((qbs_cleanup(qbs_tmp_base,(((qbs_lessorequal(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_new_txt_len("-32768",6)))&(-(_FUNC_FIXOPERATIONORDER_STRING_F3->len== 6 ))))|(-(_FUNC_FIXOPERATIONORDER_STRING_F3->len< 6 ))))||new_error){ +if(qbevent){evnt(19164);if(r)goto S_22487;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,qbs_new_txt_len("%",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19164);}while(r); +} +}else{ +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,qbs_new_txt_len("~&&",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19166);}while(r); +S_22492:; +if ((qbs_cleanup(qbs_tmp_base,(((qbs_lessorequal(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_new_txt_len("9223372036854775807",19)))&(-(_FUNC_FIXOPERATIONORDER_STRING_F3->len== 19 ))))|(-(_FUNC_FIXOPERATIONORDER_STRING_F3->len< 19 ))))||new_error){ +if(qbevent){evnt(19167);if(r)goto S_22492;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,qbs_new_txt_len("&&",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19167);}while(r); +} +S_22495:; +if ((qbs_cleanup(qbs_tmp_base,(((qbs_lessorequal(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_new_txt_len("2147483647",10)))&(-(_FUNC_FIXOPERATIONORDER_STRING_F3->len== 10 ))))|(-(_FUNC_FIXOPERATIONORDER_STRING_F3->len< 10 ))))||new_error){ +if(qbevent){evnt(19168);if(r)goto S_22495;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,qbs_new_txt_len("&",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19168);}while(r); +} +S_22498:; +if ((qbs_cleanup(qbs_tmp_base,(((qbs_lessorequal(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_new_txt_len("32767",5)))&(-(_FUNC_FIXOPERATIONORDER_STRING_F3->len== 5 ))))|(-(_FUNC_FIXOPERATIONORDER_STRING_F3->len< 5 ))))||new_error){ +if(qbevent){evnt(19169);if(r)goto S_22498;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,qbs_new_txt_len("%",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19169);}while(r); +} +} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_add(_FUNC_FIXOPERATIONORDER_STRING_F3,_FUNC_FIXOPERATIONORDER_STRING_S)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19171);}while(r); +do{ +SUB_REMOVEELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I,_FUNC_FIXOPERATIONORDER_LONG_I,&(pass2845= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19172);}while(r); +do{ +SUB_INSERTELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2846=*_FUNC_FIXOPERATIONORDER_LONG_I- 1 ),_FUNC_FIXOPERATIONORDER_STRING_F3); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19172);}while(r); +} +do{ +goto LABEL_CLASSDONE; +if(!qbevent)break;evnt(19175);}while(r); +} +S_22508:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_ISOPERATOR(_FUNC_FIXOPERATIONORDER_STRING_F2)))||new_error){ +if(qbevent){evnt(19179);if(r)goto S_22508;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_LASTT= 3 ; +if(!qbevent)break;evnt(19180);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_LASTTI=*_FUNC_FIXOPERATIONORDER_LONG_I; +if(!qbevent)break;evnt(19180);}while(r); +S_22511:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_FIXOPERATIONORDER_STRING_F2->len> 1 )))||new_error){ +if(qbevent){evnt(19181);if(r)goto S_22511;} +S_22512:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_FIXOPERATIONORDER_STRING_F2,FUNC_SCASE2(_FUNC_FIXOPERATIONORDER_STRING_F2))))||new_error){ +if(qbevent){evnt(19182);if(r)goto S_22512;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F2,FUNC_SCASE2(_FUNC_FIXOPERATIONORDER_STRING_F2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19183);}while(r); +do{ +SUB_REMOVEELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I,_FUNC_FIXOPERATIONORDER_LONG_I,&(pass2848= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19184);}while(r); +do{ +SUB_INSERTELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2849=*_FUNC_FIXOPERATIONORDER_LONG_I- 1 ),_FUNC_FIXOPERATIONORDER_STRING_F2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19185);}while(r); +} +} +S_22518:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_F2,func_chr( 241 ))))||new_error){ +if(qbevent){evnt(19189);if(r)goto S_22518;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F,qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_F,__STRING1_SP),qbs_new_txt_len("-",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19189);}while(r); +do{ +goto LABEL_CLASSDONE_SPECIAL; +if(!qbevent)break;evnt(19189);}while(r); +} +do{ +goto LABEL_CLASSDONE; +if(!qbevent)break;evnt(19190);}while(r); +} +S_22524:; +if ((((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((*_FUNC_FIXOPERATIONORDER_LONG_C)-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])])||new_error){ +if(qbevent){evnt(19193);if(r)goto S_22524;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_LASTT= 4 ; +if(!qbevent)break;evnt(19194);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_LASTTI=*_FUNC_FIXOPERATIONORDER_LONG_I; +if(!qbevent)break;evnt(19194);}while(r); +S_22527:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_I<*_FUNC_FIXOPERATIONORDER_LONG_N))||new_error){ +if(qbevent){evnt(19196);if(r)goto S_22527;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_NEXTC=qbs_asc(FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2850=*_FUNC_FIXOPERATIONORDER_LONG_I+ 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19196);}while(r); +}else{ +do{ +*_FUNC_FIXOPERATIONORDER_LONG_NEXTC= 0 ; +if(!qbevent)break;evnt(19196);}while(r); +} +S_22532:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_NEXTC!= 40 ))||new_error){ +if(qbevent){evnt(19199);if(r)goto S_22532;} +S_22533:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_LASTC!= 46 ))||new_error){ +if(qbevent){evnt(19200);if(r)goto S_22533;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_E,qbs_ucase(_FUNC_FIXOPERATIONORDER_STRING_F2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19202);}while(r); +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_ES,FUNC_REMOVESYMBOL(_FUNC_FIXOPERATIONORDER_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19203);}while(r); +S_22536:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(19204);if(r)goto S_22536;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(19204);}while(r); +} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_HASHFOUND= 0 ; +if(!qbevent)break;evnt(19206);}while(r); +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_HASHNAME,_FUNC_FIXOPERATIONORDER_STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19207);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_HASHCHKFLAGS= 1024 ; +if(!qbevent)break;evnt(19208);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_HASHRES=FUNC_HASHFINDREV(_FUNC_FIXOPERATIONORDER_STRING_HASHNAME,_FUNC_FIXOPERATIONORDER_LONG_HASHCHKFLAGS,_FUNC_FIXOPERATIONORDER_LONG_HASHRESFLAGS,_FUNC_FIXOPERATIONORDER_LONG_HASHRESREF); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19209);}while(r); +S_22543:; +while((*_FUNC_FIXOPERATIONORDER_LONG_HASHRES)||new_error){ +if(qbevent){evnt(19210);if(r)goto S_22543;} +S_22544:; +if (((-(((int32*)(__ARRAY_LONG_CONSTSUBFUNC[0]))[array_check((*_FUNC_FIXOPERATIONORDER_LONG_HASHRESREF)-__ARRAY_LONG_CONSTSUBFUNC[4],__ARRAY_LONG_CONSTSUBFUNC[5])]==*__LONG_SUBFUNCN))|(-(((int32*)(__ARRAY_LONG_CONSTSUBFUNC[0]))[array_check((*_FUNC_FIXOPERATIONORDER_LONG_HASHRESREF)-__ARRAY_LONG_CONSTSUBFUNC[4],__ARRAY_LONG_CONSTSUBFUNC[5])]== 0 )))||new_error){ +if(qbevent){evnt(19211);if(r)goto S_22544;} +S_22545:; +if ((((int32*)(__ARRAY_LONG_CONSTDEFINED[0]))[array_check((*_FUNC_FIXOPERATIONORDER_LONG_HASHRESREF)-__ARRAY_LONG_CONSTDEFINED[4],__ARRAY_LONG_CONSTDEFINED[5])])||new_error){ +if(qbevent){evnt(19212);if(r)goto S_22545;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_HASHFOUND= 1 ; +if(!qbevent)break;evnt(19213);}while(r); +do{ +goto dl_exit_2851; +if(!qbevent)break;evnt(19214);}while(r); +} +} +S_22550:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_HASHRES!= 1 ))||new_error){ +if(qbevent){evnt(19217);if(r)goto S_22550;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_HASHRES=FUNC_HASHFINDCONT(_FUNC_FIXOPERATIONORDER_LONG_HASHRESFLAGS,_FUNC_FIXOPERATIONORDER_LONG_HASHRESREF); +if(!qbevent)break;evnt(19217);}while(r); +}else{ +do{ +*_FUNC_FIXOPERATIONORDER_LONG_HASHRES= 0 ; +if(!qbevent)break;evnt(19217);}while(r); +} +dl_continue_2851:; +} +dl_exit_2851:; +S_22556:; +if ((*_FUNC_FIXOPERATIONORDER_LONG_HASHFOUND)||new_error){ +if(qbevent){evnt(19220);if(r)goto S_22556;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_I2=*_FUNC_FIXOPERATIONORDER_LONG_HASHRESREF; +if(!qbevent)break;evnt(19221);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_STATICVARIABLE= 0 ; +if(!qbevent)break;evnt(19230);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_TRY=FUNC_FINDID(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_E,_FUNC_FIXOPERATIONORDER_STRING_ES)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19231);}while(r); +S_22560:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(19232);if(r)goto S_22560;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(19232);}while(r); +} +S_22563:; +while((*_FUNC_FIXOPERATIONORDER_LONG_TRY)||new_error){ +if(qbevent){evnt(19233);if(r)goto S_22563;} +S_22564:; +if ((-(*(int32*)(((char*)__UDT_ID)+(512))== 0 ))||new_error){ +if(qbevent){evnt(19234);if(r)goto S_22564;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_STATICVARIABLE= 1 ; +if(!qbevent)break;evnt(19234);}while(r); +do{ +goto dl_exit_2852; +if(!qbevent)break;evnt(19234);}while(r); +} +S_22568:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_TRY== 2 ))||new_error){ +if(qbevent){evnt(19235);if(r)goto S_22568;} +do{ +*__INTEGER_FINDANOTHERID= 1 ; +if(!qbevent)break;evnt(19235);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_TRY=FUNC_FINDID(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_E,_FUNC_FIXOPERATIONORDER_STRING_ES)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19235);}while(r); +}else{ +do{ +*_FUNC_FIXOPERATIONORDER_LONG_TRY= 0 ; +if(!qbevent)break;evnt(19235);}while(r); +} +S_22574:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(19236);if(r)goto S_22574;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(19236);}while(r); +} +dl_continue_2852:; +} +dl_exit_2852:; +S_22578:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_STATICVARIABLE== 0 ))||new_error){ +if(qbevent){evnt(19239);if(r)goto S_22578;} +S_22579:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_FIXOPERATIONORDER_STRING_ES->len== 0 )))||new_error){ +if(qbevent){evnt(19240);if(r)goto S_22579;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_A=qbs_asc(qbs_ucase(_FUNC_FIXOPERATIONORDER_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19241);}while(r); +S_22581:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_A== 95 ))||new_error){ +if(qbevent){evnt(19241);if(r)goto S_22581;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_A= 91 ; +if(!qbevent)break;evnt(19241);}while(r); +} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_A=*_FUNC_FIXOPERATIONORDER_LONG_A- 64 ; +if(!qbevent)break;evnt(19242);}while(r); +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_ES2,((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEEXTAZ[0]))[array_check((*_FUNC_FIXOPERATIONORDER_LONG_A)-__ARRAY_STRING_DEFINEEXTAZ[4],__ARRAY_STRING_DEFINEEXTAZ[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19243);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_TRY=FUNC_FINDID(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_E,_FUNC_FIXOPERATIONORDER_STRING_ES2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19244);}while(r); +S_22587:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(19245);if(r)goto S_22587;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(19245);}while(r); +} +S_22590:; +while((*_FUNC_FIXOPERATIONORDER_LONG_TRY)||new_error){ +if(qbevent){evnt(19246);if(r)goto S_22590;} +S_22591:; +if ((-(*(int32*)(((char*)__UDT_ID)+(512))== 0 ))||new_error){ +if(qbevent){evnt(19247);if(r)goto S_22591;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_STATICVARIABLE= 1 ; +if(!qbevent)break;evnt(19247);}while(r); +do{ +goto dl_exit_2854; +if(!qbevent)break;evnt(19247);}while(r); +} +S_22595:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_TRY== 2 ))||new_error){ +if(qbevent){evnt(19248);if(r)goto S_22595;} +do{ +*__INTEGER_FINDANOTHERID= 1 ; +if(!qbevent)break;evnt(19248);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_TRY=FUNC_FINDID(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_E,_FUNC_FIXOPERATIONORDER_STRING_ES2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19248);}while(r); +}else{ +do{ +*_FUNC_FIXOPERATIONORDER_LONG_TRY= 0 ; +if(!qbevent)break;evnt(19248);}while(r); +} +S_22601:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(19249);if(r)goto S_22601;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(19249);}while(r); +} +dl_continue_2854:; +} +dl_exit_2854:; +} +} +S_22607:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_STATICVARIABLE== 0 ))||new_error){ +if(qbevent){evnt(19254);if(r)goto S_22607;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_T=((int32*)(__ARRAY_LONG_CONSTTYPE[0]))[array_check((*_FUNC_FIXOPERATIONORDER_LONG_I2)-__ARRAY_LONG_CONSTTYPE[4],__ARRAY_LONG_CONSTTYPE[5])]; +if(!qbevent)break;evnt(19256);}while(r); +S_22609:; +if ((*_FUNC_FIXOPERATIONORDER_LONG_T&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(19257);if(r)goto S_22609;} +S_22610:; +if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_FIXOPERATIONORDER_STRING_ES->len> 0 ))&(qbs_notequal(_FUNC_FIXOPERATIONORDER_STRING_ES,qbs_new_txt_len("$",1)))))||new_error){ +if(qbevent){evnt(19258);if(r)goto S_22610;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Type mismatch",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19258);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(19258);}while(r); +} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_E,((qbs*)(((uint64*)(__ARRAY_STRING_CONSTSTRING[0]))[array_check((*_FUNC_FIXOPERATIONORDER_LONG_I2)-__ARRAY_STRING_CONSTSTRING[4],__ARRAY_STRING_CONSTSTRING[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19259);}while(r); +}else{ +S_22616:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_FIXOPERATIONORDER_STRING_ES->len))||new_error){ +if(qbevent){evnt(19261);if(r)goto S_22616;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_ET=FUNC_TYPNAME2TYP(_FUNC_FIXOPERATIONORDER_STRING_ES); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19261);}while(r); +}else{ +do{ +*_FUNC_FIXOPERATIONORDER_LONG_ET= 0 ; +if(!qbevent)break;evnt(19261);}while(r); +} +S_22621:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(19262);if(r)goto S_22621;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(19262);}while(r); +} +S_22624:; +if ((*_FUNC_FIXOPERATIONORDER_LONG_ET&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(19263);if(r)goto S_22624;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Type mismatch",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19263);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(19263);}while(r); +} +S_22628:; +if ((*_FUNC_FIXOPERATIONORDER_LONG_T&*__LONG_ISFLOAT)||new_error){ +if(qbevent){evnt(19265);if(r)goto S_22628;} +do{ +*_FUNC_FIXOPERATIONORDER_FLOAT_V=((long double*)(__ARRAY_FLOAT_CONSTFLOAT[0]))[array_check((*_FUNC_FIXOPERATIONORDER_LONG_I2)-__ARRAY_FLOAT_CONSTFLOAT[4],__ARRAY_FLOAT_CONSTFLOAT[5])]; +if(!qbevent)break;evnt(19266);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_INTEGER64_V=qbr(*_FUNC_FIXOPERATIONORDER_FLOAT_V); +if(!qbevent)break;evnt(19267);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_UINTEGER64_V=*_FUNC_FIXOPERATIONORDER_INTEGER64_V; +if(!qbevent)break;evnt(19268);}while(r); +}else{ +S_22633:; +if ((*_FUNC_FIXOPERATIONORDER_LONG_T&*__LONG_ISUNSIGNED)||new_error){ +if(qbevent){evnt(19270);if(r)goto S_22633;} +do{ +*_FUNC_FIXOPERATIONORDER_UINTEGER64_V=((uint64*)(__ARRAY_UINTEGER64_CONSTUINTEGER[0]))[array_check((*_FUNC_FIXOPERATIONORDER_LONG_I2)-__ARRAY_UINTEGER64_CONSTUINTEGER[4],__ARRAY_UINTEGER64_CONSTUINTEGER[5])]; +if(!qbevent)break;evnt(19271);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_INTEGER64_V=*_FUNC_FIXOPERATIONORDER_UINTEGER64_V; +if(!qbevent)break;evnt(19272);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_FLOAT_V=*_FUNC_FIXOPERATIONORDER_INTEGER64_V; +if(!qbevent)break;evnt(19273);}while(r); +}else{ +do{ +*_FUNC_FIXOPERATIONORDER_INTEGER64_V=((int64*)(__ARRAY_INTEGER64_CONSTINTEGER[0]))[array_check((*_FUNC_FIXOPERATIONORDER_LONG_I2)-__ARRAY_INTEGER64_CONSTINTEGER[4],__ARRAY_INTEGER64_CONSTINTEGER[5])]; +if(!qbevent)break;evnt(19275);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_FLOAT_V=*_FUNC_FIXOPERATIONORDER_INTEGER64_V; +if(!qbevent)break;evnt(19276);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_UINTEGER64_V=*_FUNC_FIXOPERATIONORDER_INTEGER64_V; +if(!qbevent)break;evnt(19277);}while(r); +} +} +S_22643:; +if ((*_FUNC_FIXOPERATIONORDER_LONG_ET)||new_error){ +if(qbevent){evnt(19281);if(r)goto S_22643;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_T=*_FUNC_FIXOPERATIONORDER_LONG_ET; +if(!qbevent)break;evnt(19281);}while(r); +} +S_22646:; +if ((*_FUNC_FIXOPERATIONORDER_LONG_T&*__LONG_ISFLOAT)||new_error){ +if(qbevent){evnt(19284);if(r)goto S_22646;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_E,qbs_ltrim(qbs_rtrim(qbs_str((long double)(*_FUNC_FIXOPERATIONORDER_FLOAT_V))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19285);}while(r); +}else{ +S_22649:; +if ((*_FUNC_FIXOPERATIONORDER_LONG_T&*__LONG_ISUNSIGNED)||new_error){ +if(qbevent){evnt(19287);if(r)goto S_22649;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_E,qbs_ltrim(qbs_rtrim(qbs_str((uint64)(*_FUNC_FIXOPERATIONORDER_UINTEGER64_V))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19288);}while(r); +}else{ +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_E,qbs_ltrim(qbs_rtrim(qbs_str((int64)(*_FUNC_FIXOPERATIONORDER_INTEGER64_V))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19290);}while(r); +} +} +S_22655:; +if ((*_FUNC_FIXOPERATIONORDER_LONG_T&*__LONG_ISFLOAT)||new_error){ +if(qbevent){evnt(19295);if(r)goto S_22655;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_T2=*_FUNC_FIXOPERATIONORDER_LONG_T& 511 ; +if(!qbevent)break;evnt(19296);}while(r); +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19298);}while(r); +S_22658:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_FIXOPERATIONORDER_STRING_E,qbs_new_txt_len("E",1),0)))||new_error){ +if(qbevent){evnt(19299);if(r)goto S_22658;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,qbs_new_txt_len("E",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19299);}while(r); +} +S_22661:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_FIXOPERATIONORDER_STRING_E,qbs_new_txt_len("D",1),0)))||new_error){ +if(qbevent){evnt(19300);if(r)goto S_22661;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,qbs_new_txt_len("D",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19300);}while(r); +} +S_22664:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_FIXOPERATIONORDER_STRING_E,qbs_new_txt_len("F",1),0)))||new_error){ +if(qbevent){evnt(19301);if(r)goto S_22664;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,qbs_new_txt_len("F",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19301);}while(r); +} +S_22667:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_FIXOPERATIONORDER_STRING_S->len))||new_error){ +if(qbevent){evnt(19302);if(r)goto S_22667;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_X=func_instr(NULL,_FUNC_FIXOPERATIONORDER_STRING_E,_FUNC_FIXOPERATIONORDER_STRING_S,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19304);}while(r); +S_22669:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_T2== 32 ))||new_error){ +if(qbevent){evnt(19306);if(r)goto S_22669;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,qbs_new_txt_len("E",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19306);}while(r); +} +S_22672:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_T2== 64 ))||new_error){ +if(qbevent){evnt(19307);if(r)goto S_22672;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,qbs_new_txt_len("D",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19307);}while(r); +} +S_22675:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_T2== 256 ))||new_error){ +if(qbevent){evnt(19308);if(r)goto S_22675;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,qbs_new_txt_len("F",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19308);}while(r); +} +do{ +sub_mid(_FUNC_FIXOPERATIONORDER_STRING_E,*_FUNC_FIXOPERATIONORDER_LONG_X, 1 ,_FUNC_FIXOPERATIONORDER_STRING_S,1); +if(!qbevent)break;evnt(19309);}while(r); +S_22679:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_FUNC_FIXOPERATIONORDER_STRING_E,qbs_new_txt_len(".",1),0)== 0 )))||new_error){ +if(qbevent){evnt(19310);if(r)goto S_22679;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_E,qbs_add(qbs_add(qbs_left(_FUNC_FIXOPERATIONORDER_STRING_E,*_FUNC_FIXOPERATIONORDER_LONG_X- 1 ),qbs_new_txt_len(".0",2)),qbs_right(_FUNC_FIXOPERATIONORDER_STRING_E,_FUNC_FIXOPERATIONORDER_STRING_E->len-*_FUNC_FIXOPERATIONORDER_LONG_X+ 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19310);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_X=*_FUNC_FIXOPERATIONORDER_LONG_X+ 2 ; +if(!qbevent)break;evnt(19310);}while(r); +} +S_22683:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_FIXOPERATIONORDER_STRING_E, 1 ),qbs_new_txt_len(".",1))))||new_error){ +if(qbevent){evnt(19311);if(r)goto S_22683;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_E,qbs_add(qbs_new_txt_len("0",1),_FUNC_FIXOPERATIONORDER_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19311);}while(r); +} +S_22686:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_FIXOPERATIONORDER_STRING_E, 2 ),qbs_new_txt_len("-.",2))))||new_error){ +if(qbevent){evnt(19312);if(r)goto S_22686;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_E,qbs_add(qbs_new_txt_len("-0",2),qbs_right(_FUNC_FIXOPERATIONORDER_STRING_E,_FUNC_FIXOPERATIONORDER_STRING_E->len- 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19312);}while(r); +} +S_22689:; +if ((qbs_cleanup(qbs_tmp_base,(-(func_instr(NULL,_FUNC_FIXOPERATIONORDER_STRING_E,qbs_new_txt_len("+",1),0)== 0 ))&(-(func_instr(NULL,_FUNC_FIXOPERATIONORDER_STRING_E,qbs_new_txt_len("-",1),0)== 0 ))))||new_error){ +if(qbevent){evnt(19313);if(r)goto S_22689;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_E,qbs_add(qbs_add(qbs_left(_FUNC_FIXOPERATIONORDER_STRING_E,*_FUNC_FIXOPERATIONORDER_LONG_X),qbs_new_txt_len("+",1)),qbs_right(_FUNC_FIXOPERATIONORDER_STRING_E,_FUNC_FIXOPERATIONORDER_STRING_E->len-*_FUNC_FIXOPERATIONORDER_LONG_X))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19314);}while(r); +} +}else{ +S_22693:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_FUNC_FIXOPERATIONORDER_STRING_E,qbs_new_txt_len(".",1),0)== 0 )))||new_error){ +if(qbevent){evnt(19318);if(r)goto S_22693;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_E,qbs_add(_FUNC_FIXOPERATIONORDER_STRING_E,qbs_new_txt_len(".0",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19318);}while(r); +} +S_22696:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_FIXOPERATIONORDER_STRING_E, 1 ),qbs_new_txt_len(".",1))))||new_error){ +if(qbevent){evnt(19319);if(r)goto S_22696;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_E,qbs_add(qbs_new_txt_len("0",1),_FUNC_FIXOPERATIONORDER_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19319);}while(r); +} +S_22699:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_FIXOPERATIONORDER_STRING_E, 2 ),qbs_new_txt_len("-.",2))))||new_error){ +if(qbevent){evnt(19320);if(r)goto S_22699;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_E,qbs_add(qbs_new_txt_len("-0",2),qbs_right(_FUNC_FIXOPERATIONORDER_STRING_E,_FUNC_FIXOPERATIONORDER_STRING_E->len- 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19320);}while(r); +} +S_22702:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_T2== 32 ))||new_error){ +if(qbevent){evnt(19321);if(r)goto S_22702;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_E,qbs_add(_FUNC_FIXOPERATIONORDER_STRING_E,qbs_new_txt_len("E+0",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19321);}while(r); +} +S_22705:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_T2== 64 ))||new_error){ +if(qbevent){evnt(19322);if(r)goto S_22705;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_E,qbs_add(_FUNC_FIXOPERATIONORDER_STRING_E,qbs_new_txt_len("D+0",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19322);}while(r); +} +S_22708:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_T2== 256 ))||new_error){ +if(qbevent){evnt(19323);if(r)goto S_22708;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_E,qbs_add(_FUNC_FIXOPERATIONORDER_STRING_E,qbs_new_txt_len("F+0",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19323);}while(r); +} +} +}else{ +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,FUNC_TYPEVALUE2SYMBOL(_FUNC_FIXOPERATIONORDER_LONG_T)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19326);}while(r); +S_22714:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(19327);if(r)goto S_22714;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(19327);}while(r); +} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_E,qbs_add(_FUNC_FIXOPERATIONORDER_STRING_E,_FUNC_FIXOPERATIONORDER_STRING_S)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19328);}while(r); +} +} +do{ +SUB_REMOVEELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I,_FUNC_FIXOPERATIONORDER_LONG_I,&(pass2862= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19333);}while(r); +do{ +SUB_INSERTELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2863=*_FUNC_FIXOPERATIONORDER_LONG_I- 1 ),_FUNC_FIXOPERATIONORDER_STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19334);}while(r); +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F2,qbs_add(((qbs*)(((uint64*)(__ARRAY_STRING_CONSTCNAME[0]))[array_check((*_FUNC_FIXOPERATIONORDER_LONG_I2)-__ARRAY_STRING_CONSTCNAME[4],__ARRAY_STRING_CONSTCNAME[5])])),_FUNC_FIXOPERATIONORDER_STRING_ES)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19336);}while(r); +do{ +goto LABEL_CLASSDONE; +if(!qbevent)break;evnt(19337);}while(r); +} +} +} +} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_U,_FUNC_FIXOPERATIONORDER_STRING_F2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19347);}while(r); +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_TRY_STRING,_FUNC_FIXOPERATIONORDER_STRING_F2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19349);}while(r); +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_TRY_STRING2,_FUNC_FIXOPERATIONORDER_STRING_TRY_STRING); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19350);}while(r); +S_22731:; +fornext_value2865= 1 ; +fornext_finalvalue2865= 4 ; +fornext_step2865= 1 ; +if (fornext_step2865<0) fornext_step_negative2865=1; else fornext_step_negative2865=0; +if (new_error) goto fornext_error2865; +goto fornext_entrylabel2865; +while(1){ +fornext_value2865=fornext_step2865+(*_FUNC_FIXOPERATIONORDER_LONG_TRY_METHOD); +fornext_entrylabel2865: +*_FUNC_FIXOPERATIONORDER_LONG_TRY_METHOD=fornext_value2865; +if (fornext_step_negative2865){ +if (fornext_value2865fornext_finalvalue2865) break; +} +fornext_error2865:; +if(qbevent){evnt(19352);if(r)goto S_22731;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_TRY_STRING,_FUNC_FIXOPERATIONORDER_STRING_TRY_STRING2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19353);}while(r); +S_22733:; +if (((-(*_FUNC_FIXOPERATIONORDER_LONG_TRY_METHOD== 2 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_TRY_METHOD== 4 )))||new_error){ +if(qbevent){evnt(19354);if(r)goto S_22733;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_DTYP,FUNC_REMOVESYMBOL(_FUNC_FIXOPERATIONORDER_STRING_TRY_STRING)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19355);}while(r); +S_22735:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_FIXOPERATIONORDER_STRING_DTYP->len== 0 )))||new_error){ +if(qbevent){evnt(19356);if(r)goto S_22735;} +S_22736:; +if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISOPERATOR(_FUNC_FIXOPERATIONORDER_STRING_TRY_STRING)== 0 )))||new_error){ +if(qbevent){evnt(19357);if(r)goto S_22736;} +S_22737:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_ISVALIDVARIABLE(_FUNC_FIXOPERATIONORDER_STRING_TRY_STRING)))||new_error){ +if(qbevent){evnt(19358);if(r)goto S_22737;} +S_22738:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_FIXOPERATIONORDER_STRING_TRY_STRING, 1 ),qbs_new_txt_len("_",1))))||new_error){ +if(qbevent){evnt(19359);if(r)goto S_22738;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_V= 27 ; +if(!qbevent)break;evnt(19359);}while(r); +}else{ +do{ +*_FUNC_FIXOPERATIONORDER_LONG_V=qbs_asc(qbs_ucase(_FUNC_FIXOPERATIONORDER_STRING_TRY_STRING))- 64 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19359);}while(r); +} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_TRY_STRING,qbs_add(_FUNC_FIXOPERATIONORDER_STRING_TRY_STRING,((qbs*)(((uint64*)(__ARRAY_STRING_DEFINEEXTAZ[0]))[array_check((*_FUNC_FIXOPERATIONORDER_LONG_V)-__ARRAY_STRING_DEFINEEXTAZ[4],__ARRAY_STRING_DEFINEEXTAZ[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19360);}while(r); +} +} +}else{ +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_TRY_STRING,_FUNC_FIXOPERATIONORDER_STRING_TRY_STRING2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19364);}while(r); +} +} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_TRY=FUNC_FINDID(_FUNC_FIXOPERATIONORDER_STRING_TRY_STRING); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19367);}while(r); +S_22751:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(19368);if(r)goto S_22751;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(19368);}while(r); +} +S_22754:; +while((*_FUNC_FIXOPERATIONORDER_LONG_TRY)||new_error){ +if(qbevent){evnt(19369);if(r)goto S_22754;} +S_22755:; +if (((((-(*__LONG_SUBFUNCN==*(int32*)(((char*)__UDT_ID)+(2641))))&(-(*_FUNC_FIXOPERATIONORDER_LONG_TRY_METHOD<= 2 ))))|(-(*_FUNC_FIXOPERATIONORDER_LONG_TRY_METHOD>= 3 )))||new_error){ +if(qbevent){evnt(19370);if(r)goto S_22755;} +S_22756:; +if (( 0 )||new_error){ +if(qbevent){evnt(19372);if(r)goto S_22756;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip2868; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("found id matching ",18),_FUNC_FIXOPERATIONORDER_STRING_F2), 0, 0, 1); +if (new_error) goto skip2868; +skip2868: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(19372);}while(r); +} +S_22759:; +if (((-(*_FUNC_FIXOPERATIONORDER_LONG_NEXTC== 40 ))|(-(*_FUNC_FIXOPERATIONORDER_BYTE_UBOUNDLBOUND!= 0 )))||new_error){ +if(qbevent){evnt(19374);if(r)goto S_22759;} +do{ +*_FUNC_FIXOPERATIONORDER_BYTE_UBOUNDLBOUND= 0 ; +if(!qbevent)break;evnt(19376);}while(r); +S_22761:; +if (((-(*(int32*)(((char*)__UDT_ID)+(512))!= 0 ))|(-(*(int16*)(((char*)__UDT_ID)+(544))== 1 )))||new_error){ +if(qbevent){evnt(19379);if(r)goto S_22761;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F3,_FUNC_FIXOPERATIONORDER_STRING_F2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19383);}while(r); +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,FUNC_REMOVESYMBOL(_FUNC_FIXOPERATIONORDER_STRING_F3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19384);}while(r); +S_22764:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(19385);if(r)goto S_22764;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(19385);}while(r); +} +S_22767:; +if ((*(int16*)(((char*)__UDT_ID)+(548)))||new_error){ +if(qbevent){evnt(19386);if(r)goto S_22767;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F2,qbs_add(FUNC_SCASE(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1))),_FUNC_FIXOPERATIONORDER_STRING_S)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19387);}while(r); +S_22769:; +if ((qbs_cleanup(qbs_tmp_base,((qbs_equal(qbs_ucase(_FUNC_FIXOPERATIONORDER_STRING_F2),qbs_new_txt_len("UBOUND",6)))|(qbs_equal(qbs_ucase(_FUNC_FIXOPERATIONORDER_STRING_F2),qbs_new_txt_len("LBOUND",6))))))||new_error){ +if(qbevent){evnt(19388);if(r)goto S_22769;} +do{ +*_FUNC_FIXOPERATIONORDER_BYTE_UBOUNDLBOUND= 2 ; +if(!qbevent)break;evnt(19389);}while(r); +} +}else{ +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F2,qbs_add(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1)),_FUNC_FIXOPERATIONORDER_STRING_S)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19392);}while(r); +} +do{ +SUB_REMOVEELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I,_FUNC_FIXOPERATIONORDER_LONG_I,&(pass2869= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19394);}while(r); +do{ +SUB_INSERTELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2870=*_FUNC_FIXOPERATIONORDER_LONG_I- 1 ),qbs_ucase(_FUNC_FIXOPERATIONORDER_STRING_F2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19395);}while(r); +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_F,_FUNC_FIXOPERATIONORDER_STRING_F2),__STRING1_SP),qbs_new_txt_len("(",1)),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19396);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_B2= 1 ; +if(!qbevent)break;evnt(19399);}while(r); +S_22779:; +fornext_value2872=*_FUNC_FIXOPERATIONORDER_LONG_I+ 2 ; +fornext_finalvalue2872=*_FUNC_FIXOPERATIONORDER_LONG_N; +fornext_step2872= 1 ; +if (fornext_step2872<0) fornext_step_negative2872=1; else fornext_step_negative2872=0; +if (new_error) goto fornext_error2872; +goto fornext_entrylabel2872; +while(1){ +fornext_value2872=fornext_step2872+(*_FUNC_FIXOPERATIONORDER_LONG_I2); +fornext_entrylabel2872: +*_FUNC_FIXOPERATIONORDER_LONG_I2=fornext_value2872; +if (fornext_step_negative2872){ +if (fornext_value2872fornext_finalvalue2872) break; +} +fornext_error2872:; +if(qbevent){evnt(19400);if(r)goto S_22779;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_C2=qbs_asc(FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19401);}while(r); +S_22781:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_C2== 40 ))||new_error){ +if(qbevent){evnt(19402);if(r)goto S_22781;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_B2=*_FUNC_FIXOPERATIONORDER_LONG_B2+ 1 ; +if(!qbevent)break;evnt(19402);}while(r); +} +S_22784:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_C2== 41 ))||new_error){ +if(qbevent){evnt(19403);if(r)goto S_22784;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_B2=*_FUNC_FIXOPERATIONORDER_LONG_B2- 1 ; +if(!qbevent)break;evnt(19403);}while(r); +} +S_22787:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_B2== 0 ))||new_error){ +if(qbevent){evnt(19404);if(r)goto S_22787;} +do{ +goto fornext_exit_2871; +if(!qbevent)break;evnt(19404);}while(r); +} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F,qbs_add(_FUNC_FIXOPERATIONORDER_STRING_F,__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19405);}while(r); +fornext_continue_2871:; +} +fornext_exit_2871:; +do{ +*_FUNC_FIXOPERATIONORDER_LONG_I=*_FUNC_FIXOPERATIONORDER_LONG_I2; +if(!qbevent)break;evnt(19409);}while(r); +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F,qbs_add(_FUNC_FIXOPERATIONORDER_STRING_F,qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19411);}while(r); +S_22794:; +if ((*(int32*)(((char*)__UDT_ID)+(512))&*__LONG_ISUDT)||new_error){ +if(qbevent){evnt(19414);if(r)goto S_22794;} +S_22795:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_I<*_FUNC_FIXOPERATIONORDER_LONG_N))||new_error){ +if(qbevent){evnt(19415);if(r)goto S_22795;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_NEXTC=qbs_asc(FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2873=*_FUNC_FIXOPERATIONORDER_LONG_I+ 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19415);}while(r); +}else{ +do{ +*_FUNC_FIXOPERATIONORDER_LONG_NEXTC= 0 ; +if(!qbevent)break;evnt(19415);}while(r); +} +S_22800:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_NEXTC== 46 ))||new_error){ +if(qbevent){evnt(19416);if(r)goto S_22800;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_T=*(int32*)(((char*)__UDT_ID)+(512)); +if(!qbevent)break;evnt(19416);}while(r); +do{ +goto LABEL_FOOUDT; +if(!qbevent)break;evnt(19416);}while(r); +} +} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F,qbs_add(_FUNC_FIXOPERATIONORDER_STRING_F,__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19419);}while(r); +do{ +goto LABEL_CLASSDONE_SPECIAL; +if(!qbevent)break;evnt(19420);}while(r); +} +} +S_22809:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_NEXTC!= 40 ))||new_error){ +if(qbevent){evnt(19424);if(r)goto S_22809;} +S_22810:; +if (((-(*(int32*)(((char*)__UDT_ID)+(536))!= 0 ))|(-(*(int16*)(((char*)__UDT_ID)+(544))== 1 )))||new_error){ +if(qbevent){evnt(19425);if(r)goto S_22810;} +S_22811:; +if ((*(int32*)(((char*)__UDT_ID)+(536))&*__LONG_ISUDT)||new_error){ +if(qbevent){evnt(19427);if(r)goto S_22811;} +S_22812:; +if ((*(int16*)(((char*)__UDT_ID)+(548)))||new_error){ +if(qbevent){evnt(19432);if(r)goto S_22812;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F2,qbs_add(FUNC_SCASE(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1))),FUNC_REMOVESYMBOL(_FUNC_FIXOPERATIONORDER_STRING_F2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19433);}while(r); +}else{ +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F2,qbs_add(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1)),FUNC_REMOVESYMBOL(_FUNC_FIXOPERATIONORDER_STRING_F2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19435);}while(r); +} +S_22817:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(19437);if(r)goto S_22817;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(19437);}while(r); +} +do{ +SUB_REMOVEELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I,_FUNC_FIXOPERATIONORDER_LONG_I,&(pass2874= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19438);}while(r); +do{ +SUB_INSERTELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2875=*_FUNC_FIXOPERATIONORDER_LONG_I- 1 ),qbs_ucase(_FUNC_FIXOPERATIONORDER_STRING_F2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19439);}while(r); +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F,qbs_add(_FUNC_FIXOPERATIONORDER_STRING_F,_FUNC_FIXOPERATIONORDER_STRING_F2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19440);}while(r); +S_22823:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_NEXTC!= 46 ))||new_error){ +if(qbevent){evnt(19444);if(r)goto S_22823;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F,qbs_add(_FUNC_FIXOPERATIONORDER_STRING_F,__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19444);}while(r); +do{ +goto LABEL_CLASSDONE_SPECIAL; +if(!qbevent)break;evnt(19444);}while(r); +} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_T=*(int32*)(((char*)__UDT_ID)+(536)); +if(!qbevent)break;evnt(19445);}while(r); +LABEL_FOOUDT:; +if(qbevent){evnt(19447);r=0;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F,qbs_add(qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_F,__STRING1_SP),qbs_new_txt_len(".",1)),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19449);}while(r); +do{ +*__LONG_E=((int32*)(__ARRAY_LONG_UDTXNEXT[0]))[array_check((*_FUNC_FIXOPERATIONORDER_LONG_T& 511 )-__ARRAY_LONG_UDTXNEXT[4],__ARRAY_LONG_UDTXNEXT[5])]; +if(!qbevent)break;evnt(19450);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_I=*_FUNC_FIXOPERATIONORDER_LONG_I+ 2 ; +if(!qbevent)break;evnt(19451);}while(r); +S_22831:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_I>*_FUNC_FIXOPERATIONORDER_LONG_N))||new_error){ +if(qbevent){evnt(19456);if(r)goto S_22831;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected .element",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19456);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(19456);}while(r); +} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F2,FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19457);}while(r); +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,FUNC_REMOVESYMBOL(_FUNC_FIXOPERATIONORDER_STRING_F2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19458);}while(r); +S_22837:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(19459);if(r)goto S_22837;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(19459);}while(r); +} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_U,qbs_add(qbs_ucase(_FUNC_FIXOPERATIONORDER_STRING_F2),func_space( 256 -_FUNC_FIXOPERATIONORDER_STRING_F2->len))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19460);}while(r); +LABEL_FOOUDTNEXTE:; +if(qbevent){evnt(19463);r=0;} +S_22841:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTENAME[0]))[(array_check((*__LONG_E)-__ARRAY_STRING256_UDTENAME[4],__ARRAY_STRING256_UDTENAME[5]))*256],256,1),_FUNC_FIXOPERATIONORDER_STRING_U)))||new_error){ +if(qbevent){evnt(19464);if(r)goto S_22841;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F2,qbs_add(qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTECNAME[0]))[(array_check((*__LONG_E)-__ARRAY_STRING256_UDTECNAME[4],__ARRAY_STRING256_UDTECNAME[5]))*256],256,1)),_FUNC_FIXOPERATIONORDER_STRING_S)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19469);}while(r); +do{ +SUB_REMOVEELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I,_FUNC_FIXOPERATIONORDER_LONG_I,&(pass2877= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19470);}while(r); +do{ +SUB_INSERTELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2878=*_FUNC_FIXOPERATIONORDER_LONG_I- 1 ),qbs_ucase(_FUNC_FIXOPERATIONORDER_STRING_F2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19471);}while(r); +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F,qbs_add(_FUNC_FIXOPERATIONORDER_STRING_F,_FUNC_FIXOPERATIONORDER_STRING_F2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19472);}while(r); +S_22846:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_I==*_FUNC_FIXOPERATIONORDER_LONG_N))||new_error){ +if(qbevent){evnt(19474);if(r)goto S_22846;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F,qbs_add(_FUNC_FIXOPERATIONORDER_STRING_F,__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19474);}while(r); +do{ +goto LABEL_CLASSDONE_SPECIAL; +if(!qbevent)break;evnt(19474);}while(r); +} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_NEXTC=qbs_asc(FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2879=*_FUNC_FIXOPERATIONORDER_LONG_I+ 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19475);}while(r); +S_22851:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_NEXTC!= 46 ))||new_error){ +if(qbevent){evnt(19476);if(r)goto S_22851;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F,qbs_add(_FUNC_FIXOPERATIONORDER_STRING_F,__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19476);}while(r); +do{ +goto LABEL_CLASSDONE_SPECIAL; +if(!qbevent)break;evnt(19476);}while(r); +} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_T=((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]; +if(!qbevent)break;evnt(19478);}while(r); +S_22856:; +if ((-((*_FUNC_FIXOPERATIONORDER_LONG_T&*__LONG_ISUDT)== 0 ))||new_error){ +if(qbevent){evnt(19479);if(r)goto S_22856;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Invalid . after element",23)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19479);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(19479);}while(r); +} +do{ +goto LABEL_FOOUDT; +if(!qbevent)break;evnt(19480);}while(r); +} +do{ +*__LONG_E=((int32*)(__ARRAY_LONG_UDTENEXT[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5])]; +if(!qbevent)break;evnt(19485);}while(r); +S_22863:; +if ((-(*__LONG_E== 0 ))||new_error){ +if(qbevent){evnt(19486);if(r)goto S_22863;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Element not defined",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19486);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(19486);}while(r); +} +do{ +goto LABEL_FOOUDTNEXTE; +if(!qbevent)break;evnt(19487);}while(r); +} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F3,_FUNC_FIXOPERATIONORDER_STRING_F2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19492);}while(r); +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_S,FUNC_REMOVESYMBOL(_FUNC_FIXOPERATIONORDER_STRING_F3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19493);}while(r); +S_22871:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(19494);if(r)goto S_22871;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(19494);}while(r); +} +S_22874:; +if ((*(int16*)(((char*)__UDT_ID)+(548)))||new_error){ +if(qbevent){evnt(19495);if(r)goto S_22874;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F2,qbs_add(FUNC_SCASE(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1))),_FUNC_FIXOPERATIONORDER_STRING_S)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19496);}while(r); +}else{ +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F2,qbs_add(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1)),_FUNC_FIXOPERATIONORDER_STRING_S)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19498);}while(r); +} +do{ +SUB_REMOVEELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I,_FUNC_FIXOPERATIONORDER_LONG_I,&(pass2880= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19501);}while(r); +do{ +SUB_INSERTELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2881=*_FUNC_FIXOPERATIONORDER_LONG_I- 1 ),qbs_ucase(_FUNC_FIXOPERATIONORDER_STRING_F2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19502);}while(r); +do{ +goto LABEL_COULDNOTCLASSIFY; +if(!qbevent)break;evnt(19503);}while(r); +} +} +} +S_22885:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_TRY== 2 ))||new_error){ +if(qbevent){evnt(19509);if(r)goto S_22885;} +do{ +*__INTEGER_FINDANOTHERID= 1 ; +if(!qbevent)break;evnt(19509);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_TRY=FUNC_FINDID(_FUNC_FIXOPERATIONORDER_STRING_TRY_STRING); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19509);}while(r); +}else{ +do{ +*_FUNC_FIXOPERATIONORDER_LONG_TRY= 0 ; +if(!qbevent)break;evnt(19509);}while(r); +} +S_22891:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(19510);if(r)goto S_22891;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(19510);}while(r); +} +dl_continue_2867:; +} +dl_exit_2867:; +fornext_continue_2864:; +} +fornext_exit_2864:; +LABEL_COULDNOTCLASSIFY:; +if(qbevent){evnt(19513);r=0;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_ucase(_FUNC_FIXOPERATIONORDER_STRING_F2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19516);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_INTERNALTYPE= 0 ; +if(!qbevent)break;evnt(19517);}while(r); +S_22898:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_new_txt_len("STRING",6))))||new_error){ +if(qbevent){evnt(19518);if(r)goto S_22898;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_INTERNALTYPE= 1 ; +if(!qbevent)break;evnt(19518);}while(r); +} +S_22901:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_new_txt_len("_UNSIGNED",9)))|(((qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_new_txt_len("UNSIGNED",8)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ +if(qbevent){evnt(19519);if(r)goto S_22901;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_INTERNALTYPE= 1 ; +if(!qbevent)break;evnt(19519);}while(r); +} +S_22904:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_new_txt_len("_BIT",4)))|(((qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_new_txt_len("BIT",3)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ +if(qbevent){evnt(19520);if(r)goto S_22904;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_INTERNALTYPE= 1 ; +if(!qbevent)break;evnt(19520);}while(r); +} +S_22907:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_new_txt_len("_BYTE",5)))|(((qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_new_txt_len("BYTE",4)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ +if(qbevent){evnt(19521);if(r)goto S_22907;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_INTERNALTYPE= 1 ; +if(!qbevent)break;evnt(19521);}while(r); +} +S_22910:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_new_txt_len("INTEGER",7))))||new_error){ +if(qbevent){evnt(19522);if(r)goto S_22910;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_INTERNALTYPE= 1 ; +if(!qbevent)break;evnt(19522);}while(r); +} +S_22913:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_new_txt_len("LONG",4))))||new_error){ +if(qbevent){evnt(19523);if(r)goto S_22913;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_INTERNALTYPE= 1 ; +if(!qbevent)break;evnt(19523);}while(r); +} +S_22916:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_new_txt_len("_INTEGER64",10)))|(((qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_new_txt_len("INTEGER64",9)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ +if(qbevent){evnt(19524);if(r)goto S_22916;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_INTERNALTYPE= 1 ; +if(!qbevent)break;evnt(19524);}while(r); +} +S_22919:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_new_txt_len("SINGLE",6))))||new_error){ +if(qbevent){evnt(19525);if(r)goto S_22919;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_INTERNALTYPE= 1 ; +if(!qbevent)break;evnt(19525);}while(r); +} +S_22922:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_new_txt_len("DOUBLE",6))))||new_error){ +if(qbevent){evnt(19526);if(r)goto S_22922;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_INTERNALTYPE= 1 ; +if(!qbevent)break;evnt(19526);}while(r); +} +S_22925:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_new_txt_len("_FLOAT",6)))|(((qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_new_txt_len("FLOAT",5)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ +if(qbevent){evnt(19527);if(r)goto S_22925;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_INTERNALTYPE= 1 ; +if(!qbevent)break;evnt(19527);}while(r); +} +S_22928:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_new_txt_len("_OFFSET",7)))|(((qbs_equal(_FUNC_FIXOPERATIONORDER_STRING_F3,qbs_new_txt_len("OFFSET",6)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ +if(qbevent){evnt(19528);if(r)goto S_22928;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_INTERNALTYPE= 1 ; +if(!qbevent)break;evnt(19528);}while(r); +} +S_22931:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_INTERNALTYPE== 1 ))||new_error){ +if(qbevent){evnt(19529);if(r)goto S_22931;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F2,FUNC_SCASE2(_FUNC_FIXOPERATIONORDER_STRING_F3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19530);}while(r); +do{ +SUB_REMOVEELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I,_FUNC_FIXOPERATIONORDER_LONG_I,&(pass2882= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19531);}while(r); +do{ +SUB_INSERTELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2883=*_FUNC_FIXOPERATIONORDER_LONG_I- 1 ),_FUNC_FIXOPERATIONORDER_STRING_F3); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19532);}while(r); +do{ +goto LABEL_CLASSDONE; +if(!qbevent)break;evnt(19533);}while(r); +} +do{ +goto LABEL_CLASSDONE; +if(!qbevent)break;evnt(19536);}while(r); +} +LABEL_CLASSDONE:; +if(qbevent){evnt(19539);r=0;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F,qbs_add(_FUNC_FIXOPERATIONORDER_STRING_F,_FUNC_FIXOPERATIONORDER_STRING_F2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19540);}while(r); +} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F,qbs_add(_FUNC_FIXOPERATIONORDER_STRING_F,__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19542);}while(r); +LABEL_CLASSDONE_SPECIAL:; +if(qbevent){evnt(19543);r=0;} +fornext_continue_2826:; +} +fornext_exit_2826:; +S_22943:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_FIXOPERATIONORDER_STRING_F->len))||new_error){ +if(qbevent){evnt(19546);if(r)goto S_22943;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F,qbs_left(_FUNC_FIXOPERATIONORDER_STRING_F,_FUNC_FIXOPERATIONORDER_STRING_F->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19546);}while(r); +} +S_22946:; +if (( 0 )||new_error){ +if(qbevent){evnt(19548);if(r)goto S_22946;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip2886; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("fixoperationorder:identification:",33),_FUNC_FIXOPERATIONORDER_STRING_A), 0, 1, 0); +if (new_error) goto skip2886; +sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_FIXOPERATIONORDER_LONG_N)), 1, 0, 1); +if (new_error) goto skip2886; +skip2886: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(19548);}while(r); +} +S_22949:; +if (( 0 )||new_error){ +if(qbevent){evnt(19549);if(r)goto S_22949;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip2887; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("fixoperationorder:identification(layout):",41),_FUNC_FIXOPERATIONORDER_STRING_F), 0, 1, 0); +if (new_error) goto skip2887; +sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_FIXOPERATIONORDER_LONG_N)), 1, 0, 1); +if (new_error) goto skip2887; +skip2887: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(19549);}while(r); +} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_FF,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19555);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_B= 0 ; +if(!qbevent)break;evnt(19556);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_B2= 0 ; +if(!qbevent)break;evnt(19557);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_P1= 0 ; +if(!qbevent)break;evnt(19558);}while(r); +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_AA,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19559);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_N=FUNC_NUMELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19560);}while(r); +S_22958:; +fornext_value2889= 1 ; +fornext_finalvalue2889=*_FUNC_FIXOPERATIONORDER_LONG_N; +fornext_step2889= 1 ; +if (fornext_step2889<0) fornext_step_negative2889=1; else fornext_step_negative2889=0; +if (new_error) goto fornext_error2889; +goto fornext_entrylabel2889; +while(1){ +fornext_value2889=fornext_step2889+(*_FUNC_FIXOPERATIONORDER_LONG_I); +fornext_entrylabel2889: +*_FUNC_FIXOPERATIONORDER_LONG_I=fornext_value2889; +if (fornext_step_negative2889){ +if (fornext_value2889fornext_finalvalue2889) break; +} +fornext_error2889:; +if(qbevent){evnt(19561);if(r)goto S_22958;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_OPENBRACKET= 0 ; +if(!qbevent)break;evnt(19563);}while(r); +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_A2,FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19565);}while(r); +do{ +*_FUNC_FIXOPERATIONORDER_LONG_C=qbs_asc(_FUNC_FIXOPERATIONORDER_STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19567);}while(r); +S_22962:; +if (((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 40 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_C== 123 )))||new_error){ +if(qbevent){evnt(19571);if(r)goto S_22962;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_B=*_FUNC_FIXOPERATIONORDER_LONG_B+ 1 ; +if(!qbevent)break;evnt(19572);}while(r); +S_22964:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_B== 1 ))||new_error){ +if(qbevent){evnt(19574);if(r)goto S_22964;} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_P1=*_FUNC_FIXOPERATIONORDER_LONG_I+ 1 ; +if(!qbevent)break;evnt(19579);}while(r); +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_AA,qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_AA,qbs_new_txt_len("(",1)),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19580);}while(r); +} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_OPENBRACKET= 1 ; +if(!qbevent)break;evnt(19584);}while(r); +do{ +goto LABEL_FOOPASS; +if(!qbevent)break;evnt(19586);}while(r); +} +S_22971:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 44 ))||new_error){ +if(qbevent){evnt(19590);if(r)goto S_22971;} +S_22972:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_B== 1 ))||new_error){ +if(qbevent){evnt(19591);if(r)goto S_22972;} +do{ +goto LABEL_FOOPASSIT; +if(!qbevent)break;evnt(19592);}while(r); +} +} +S_22976:; +if (((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 41 ))|(-(*_FUNC_FIXOPERATIONORDER_LONG_C== 125 )))||new_error){ +if(qbevent){evnt(19596);if(r)goto S_22976;} +S_22977:; +if ((*_FUNC_FIXOPERATIONORDER_BYTE_UBOUNDLBOUND)||new_error){ +if(qbevent){evnt(19597);if(r)goto S_22977;} +do{ +*_FUNC_FIXOPERATIONORDER_BYTE_UBOUNDLBOUND=*_FUNC_FIXOPERATIONORDER_BYTE_UBOUNDLBOUND- 1 ; +if(!qbevent)break;evnt(19597);}while(r); +} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_B=*_FUNC_FIXOPERATIONORDER_LONG_B- 1 ; +if(!qbevent)break;evnt(19598);}while(r); +S_22981:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_B== 0 ))||new_error){ +if(qbevent){evnt(19600);if(r)goto S_22981;} +LABEL_FOOPASSIT:; +if(qbevent){evnt(19601);r=0;} +S_22982:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_P1!=*_FUNC_FIXOPERATIONORDER_LONG_I))||new_error){ +if(qbevent){evnt(19602);if(r)goto S_22982;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_FOO,FUNC_FIXOPERATIONORDER(FUNC_GETELEMENTS(_FUNC_FIXOPERATIONORDER_STRING_A,_FUNC_FIXOPERATIONORDER_LONG_P1,&(pass2890=*_FUNC_FIXOPERATIONORDER_LONG_I- 1 )))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19603);}while(r); +S_22984:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(19604);if(r)goto S_22984;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(19604);}while(r); +} +S_22987:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_FIXOPERATIONORDER_STRING_FOO->len))||new_error){ +if(qbevent){evnt(19605);if(r)goto S_22987;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_AA,qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_AA,_FUNC_FIXOPERATIONORDER_STRING_FOO),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19606);}while(r); +S_22989:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 125 ))||new_error){ +if(qbevent){evnt(19607);if(r)goto S_22989;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_FF,qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_FF,__STRING_TLAYOUT),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19607);}while(r); +}else{ +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_FF,qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_FF,__STRING_TLAYOUT),__STRING1_SP2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19607);}while(r); +} +} +} +S_22996:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 44 ))||new_error){ +if(qbevent){evnt(19610);if(r)goto S_22996;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_AA,qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_AA,qbs_new_txt_len(",",1)),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19610);}while(r); +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_FF,qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_FF,qbs_new_txt_len(",",1)),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19610);}while(r); +}else{ +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_AA,qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_AA,qbs_new_txt_len(")",1)),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19610);}while(r); +} +do{ +*_FUNC_FIXOPERATIONORDER_LONG_P1=*_FUNC_FIXOPERATIONORDER_LONG_I+ 1 ; +if(!qbevent)break;evnt(19611);}while(r); +} +do{ +goto LABEL_FOOPASS; +if(!qbevent)break;evnt(19614);}while(r); +} +S_23006:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_B== 0 ))||new_error){ +if(qbevent){evnt(19620);if(r)goto S_23006;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_AA,qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_AA,_FUNC_FIXOPERATIONORDER_STRING_A2),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19620);}while(r); +} +LABEL_FOOPASS:; +if(qbevent){evnt(19623);r=0;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_F2,FUNC_GETELEMENTSPECIAL(_FUNC_FIXOPERATIONORDER_STRING_F,_FUNC_FIXOPERATIONORDER_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19625);}while(r); +S_23010:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(19626);if(r)goto S_23010;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(19626);}while(r); +} +S_23013:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_FIXOPERATIONORDER_STRING_F2->len))||new_error){ +if(qbevent){evnt(19627);if(r)goto S_23013;} +S_23014:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_C== 46 ))||new_error){ +if(qbevent){evnt(19630);if(r)goto S_23014;} +S_23015:; +if (((-(*_FUNC_FIXOPERATIONORDER_LONG_I> 1 ))&(-(*_FUNC_FIXOPERATIONORDER_LONG_I<*_FUNC_FIXOPERATIONORDER_LONG_N)))||new_error){ +if(qbevent){evnt(19631);if(r)goto S_23015;} +S_23016:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_FIXOPERATIONORDER_STRING_FF->len))||new_error){ +if(qbevent){evnt(19632);if(r)goto S_23016;} +do{ +sub_mid(_FUNC_FIXOPERATIONORDER_STRING_FF,_FUNC_FIXOPERATIONORDER_STRING_FF->len, 1 ,__STRING1_SP2,1); +if(!qbevent)break;evnt(19632);}while(r); +} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_FF,qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_FF,qbs_new_txt_len(".",1)),__STRING1_SP2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19633);}while(r); +do{ +goto LABEL_FOOLOOPNXT; +if(!qbevent)break;evnt(19634);}while(r); +} +} +S_23023:; +if ((*_FUNC_FIXOPERATIONORDER_LONG_OPENBRACKET)||new_error){ +if(qbevent){evnt(19639);if(r)goto S_23023;} +S_23024:; +if ((-(*_FUNC_FIXOPERATIONORDER_LONG_I!= 1 ))||new_error){ +if(qbevent){evnt(19642);if(r)goto S_23024;} +S_23025:; +if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISOPERATOR(FUNC_GETELEMENT(_FUNC_FIXOPERATIONORDER_STRING_A,&(pass2895=*_FUNC_FIXOPERATIONORDER_LONG_I- 1 )))== 0 )))||new_error){ +if(qbevent){evnt(19643);if(r)goto S_23025;} +do{ +sub_mid(_FUNC_FIXOPERATIONORDER_STRING_FF,_FUNC_FIXOPERATIONORDER_STRING_FF->len, 1 ,__STRING1_SP2,1); +if(!qbevent)break;evnt(19644);}while(r); +} +} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_FF,qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_FF,_FUNC_FIXOPERATIONORDER_STRING_F2),__STRING1_SP2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19647);}while(r); +}else{ +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_FF,qbs_add(qbs_add(_FUNC_FIXOPERATIONORDER_STRING_FF,_FUNC_FIXOPERATIONORDER_STRING_F2),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19649);}while(r); +} +} +LABEL_FOOLOOPNXT:; +if(qbevent){evnt(19654);r=0;} +fornext_continue_2888:; +} +fornext_exit_2888:; +S_23035:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_FIXOPERATIONORDER_STRING_AA->len))||new_error){ +if(qbevent){evnt(19658);if(r)goto S_23035;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_AA,qbs_left(_FUNC_FIXOPERATIONORDER_STRING_AA,_FUNC_FIXOPERATIONORDER_STRING_AA->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19658);}while(r); +} +S_23038:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_FIXOPERATIONORDER_STRING_FF->len))||new_error){ +if(qbevent){evnt(19659);if(r)goto S_23038;} +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_FF,qbs_left(_FUNC_FIXOPERATIONORDER_STRING_FF,_FUNC_FIXOPERATIONORDER_STRING_FF->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19659);}while(r); +} +S_23041:; +if (( 0 )||new_error){ +if(qbevent){evnt(19661);if(r)goto S_23041;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip2901; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("fixoperationorder:return:",25),_FUNC_FIXOPERATIONORDER_STRING_AA), 0, 0, 1); +if (new_error) goto skip2901; +skip2901: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(19661);}while(r); +} +S_23044:; +if (( 0 )||new_error){ +if(qbevent){evnt(19662);if(r)goto S_23044;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip2902; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("fixoperationorder:layout:",25),_FUNC_FIXOPERATIONORDER_STRING_FF), 0, 0, 1); +if (new_error) goto skip2902; +skip2902: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(19662);}while(r); +} +do{ +qbs_set(__STRING_TLAYOUT,_FUNC_FIXOPERATIONORDER_STRING_FF); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19663);}while(r); +do{ +qbs_set(_FUNC_FIXOPERATIONORDER_STRING_FIXOPERATIONORDER,_FUNC_FIXOPERATIONORDER_STRING_AA); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19664);}while(r); +do{ +*__LONG_FOOINDWEL=*__LONG_FOOINDWEL- 1 ; +if(!qbevent)break;evnt(19666);}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free24.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_FIXOPERATIONORDER_STRING_FIXOPERATIONORDER);return _FUNC_FIXOPERATIONORDER_STRING_FIXOPERATIONORDER; +} +qbs* FUNC_GETELEMENTSPECIAL(qbs*_FUNC_GETELEMENTSPECIAL_STRING_SAVEA,int32*_FUNC_GETELEMENTSPECIAL_LONG_ELENUM){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data25.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +qbs_set(_FUNC_GETELEMENTSPECIAL_STRING_A,_FUNC_GETELEMENTSPECIAL_STRING_SAVEA); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19673);}while(r); +S_23051:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GETELEMENTSPECIAL_STRING_A,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(19674);if(r)goto S_23051;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(19674);}while(r); +} +do{ +*_FUNC_GETELEMENTSPECIAL_LONG_N= 1 ; +if(!qbevent)break;evnt(19676);}while(r); +do{ +*_FUNC_GETELEMENTSPECIAL_LONG_P= 1 ; +if(!qbevent)break;evnt(19677);}while(r); +LABEL_GETELEMENTSPECIALNEXT:; +if(qbevent){evnt(19678);r=0;} +do{ +*_FUNC_GETELEMENTSPECIAL_LONG_I=func_instr(*_FUNC_GETELEMENTSPECIAL_LONG_P,_FUNC_GETELEMENTSPECIAL_STRING_A,__STRING1_SP,0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19679);}while(r); +do{ +*_FUNC_GETELEMENTSPECIAL_LONG_I2=func_instr(*_FUNC_GETELEMENTSPECIAL_LONG_P,_FUNC_GETELEMENTSPECIAL_STRING_A,func_chr( 34 ),0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19682);}while(r); +S_23058:; +if (((-(*_FUNC_GETELEMENTSPECIAL_LONG_I2<*_FUNC_GETELEMENTSPECIAL_LONG_I))&(-(*_FUNC_GETELEMENTSPECIAL_LONG_I2!= 0 )))||new_error){ +if(qbevent){evnt(19683);if(r)goto S_23058;} +do{ +*_FUNC_GETELEMENTSPECIAL_LONG_I3=func_instr(*_FUNC_GETELEMENTSPECIAL_LONG_I2+ 1 ,_FUNC_GETELEMENTSPECIAL_STRING_A,func_chr( 34 ),0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19684);}while(r); +S_23060:; +if ((-(*_FUNC_GETELEMENTSPECIAL_LONG_I3== 0 ))||new_error){ +if(qbevent){evnt(19684);if(r)goto S_23060;} +do{ +SUB_GIVE_ERROR(qbs_add(qbs_new_txt_len("Expected ",9),func_chr( 34 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19684);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(19684);}while(r); +} +do{ +*_FUNC_GETELEMENTSPECIAL_LONG_I=func_instr(*_FUNC_GETELEMENTSPECIAL_LONG_I3,_FUNC_GETELEMENTSPECIAL_STRING_A,__STRING1_SP,0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19685);}while(r); +} +S_23066:; +if ((-(*_FUNC_GETELEMENTSPECIAL_LONG_ELENUM==*_FUNC_GETELEMENTSPECIAL_LONG_N))||new_error){ +if(qbevent){evnt(19688);if(r)goto S_23066;} +S_23067:; +if ((*_FUNC_GETELEMENTSPECIAL_LONG_I)||new_error){ +if(qbevent){evnt(19689);if(r)goto S_23067;} +do{ +qbs_set(_FUNC_GETELEMENTSPECIAL_STRING_GETELEMENTSPECIAL,func_mid(_FUNC_GETELEMENTSPECIAL_STRING_A,*_FUNC_GETELEMENTSPECIAL_LONG_P,*_FUNC_GETELEMENTSPECIAL_LONG_I-*_FUNC_GETELEMENTSPECIAL_LONG_P,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19690);}while(r); +}else{ +do{ +qbs_set(_FUNC_GETELEMENTSPECIAL_STRING_GETELEMENTSPECIAL,qbs_right(_FUNC_GETELEMENTSPECIAL_STRING_A,_FUNC_GETELEMENTSPECIAL_STRING_A->len-*_FUNC_GETELEMENTSPECIAL_LONG_P+ 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19692);}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(19694);}while(r); +} +S_23074:; +if ((-(*_FUNC_GETELEMENTSPECIAL_LONG_I== 0 ))||new_error){ +if(qbevent){evnt(19697);if(r)goto S_23074;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(19697);}while(r); +} +do{ +*_FUNC_GETELEMENTSPECIAL_LONG_N=*_FUNC_GETELEMENTSPECIAL_LONG_N+ 1 ; +if(!qbevent)break;evnt(19698);}while(r); +do{ +*_FUNC_GETELEMENTSPECIAL_LONG_P=*_FUNC_GETELEMENTSPECIAL_LONG_I+ 1 ; +if(!qbevent)break;evnt(19699);}while(r); +do{ +goto LABEL_GETELEMENTSPECIALNEXT; +if(!qbevent)break;evnt(19700);}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free25.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_GETELEMENTSPECIAL_STRING_GETELEMENTSPECIAL);return _FUNC_GETELEMENTSPECIAL_STRING_GETELEMENTSPECIAL; +} +void SUB_GETID(int32*_SUB_GETID_LONG_I){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data26.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +S_23080:; +if ((-(*_SUB_GETID_LONG_I== -1 ))||new_error){ +if(qbevent){evnt(19705);if(r)goto S_23080;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("-1 passed to getid!",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19705);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(19705);}while(r); +} +do{ +memcpy((((char*)__UDT_ID)+(0)+ 0),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 0), 256); +memcpy((((char*)__UDT_ID)+(0)+ 256),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 256), 256); +memcpy((((char*)__UDT_ID)+(0)+ 512),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 512), 4); +memcpy((((char*)__UDT_ID)+(0)+ 516),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 516), 2); +memcpy((((char*)__UDT_ID)+(0)+ 518),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 518), 2); +memcpy((((char*)__UDT_ID)+(0)+ 520),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 520), 8); +memcpy((((char*)__UDT_ID)+(0)+ 528),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 528), 8); +memcpy((((char*)__UDT_ID)+(0)+ 536),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 536), 4); +memcpy((((char*)__UDT_ID)+(0)+ 540),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 540), 4); +memcpy((((char*)__UDT_ID)+(0)+ 544),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 544), 2); +memcpy((((char*)__UDT_ID)+(0)+ 546),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 546), 2); +memcpy((((char*)__UDT_ID)+(0)+ 548),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 548), 2); +memcpy((((char*)__UDT_ID)+(0)+ 550),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 550), 256); +memcpy((((char*)__UDT_ID)+(0)+ 806),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 806), 2); +memcpy((((char*)__UDT_ID)+(0)+ 808),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 808), 1); +memcpy((((char*)__UDT_ID)+(0)+ 809),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 809), 2); +memcpy((((char*)__UDT_ID)+(0)+ 811),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 811), 2); +memcpy((((char*)__UDT_ID)+(0)+ 813),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 813), 400); +memcpy((((char*)__UDT_ID)+(0)+ 1213),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 1213), 400); +memcpy((((char*)__UDT_ID)+(0)+ 1613),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 1613), 256); +memcpy((((char*)__UDT_ID)+(0)+ 1869),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 1869), 256); +memcpy((((char*)__UDT_ID)+(0)+ 2125),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2125), 256); +memcpy((((char*)__UDT_ID)+(0)+ 2381),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2381), 4); +memcpy((((char*)__UDT_ID)+(0)+ 2385),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2385), 256); +memcpy((((char*)__UDT_ID)+(0)+ 2641),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2641), 4); +memcpy((((char*)__UDT_ID)+(0)+ 2645),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2645), 2); +memcpy((((char*)__UDT_ID)+(0)+ 2647),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2647), 100); +memcpy((((char*)__UDT_ID)+(0)+ 2747),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2747), 100); +memcpy((((char*)__UDT_ID)+(0)+ 2847),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2847), 4); +memcpy((((char*)__UDT_ID)+(0)+ 2851),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2851), 2); +memcpy((((char*)__UDT_ID)+(0)+ 2853),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2853), 2); +memcpy((((char*)__UDT_ID)+(0)+ 2855),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2855), 4); +memcpy((((char*)__UDT_ID)+(0)+ 2859),(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2859), 2); +qbs_set(*(qbs**)(((char*)__UDT_ID)+(0)+ 2861), *(qbs**)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_GETID_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2861)); +if(!qbevent)break;evnt(19707);}while(r); +do{ +*__LONG_CURRENTID=*_SUB_GETID_LONG_I; +if(!qbevent)break;evnt(19709);}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free26.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +int32 FUNC_ISOPERATOR(qbs*_FUNC_ISOPERATOR_STRING_A2){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data27.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +qbs_set(_FUNC_ISOPERATOR_STRING_A,qbs_ucase(_FUNC_ISOPERATOR_STRING_A2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19713);}while(r); +do{ +*_FUNC_ISOPERATOR_LONG_L= 0 ; +if(!qbevent)break;evnt(19714);}while(r); +do{ +*_FUNC_ISOPERATOR_LONG_L=*_FUNC_ISOPERATOR_LONG_L+ 1 ; +if(!qbevent)break;evnt(19715);}while(r); +S_23089:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len("IMP",3))))||new_error){ +if(qbevent){evnt(19715);if(r)goto S_23089;} +do{ +goto LABEL_OPFOUND; +if(!qbevent)break;evnt(19715);}while(r); +} +do{ +*_FUNC_ISOPERATOR_LONG_L=*_FUNC_ISOPERATOR_LONG_L+ 1 ; +if(!qbevent)break;evnt(19716);}while(r); +S_23093:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len("EQV",3))))||new_error){ +if(qbevent){evnt(19716);if(r)goto S_23093;} +do{ +goto LABEL_OPFOUND; +if(!qbevent)break;evnt(19716);}while(r); +} +do{ +*_FUNC_ISOPERATOR_LONG_L=*_FUNC_ISOPERATOR_LONG_L+ 1 ; +if(!qbevent)break;evnt(19717);}while(r); +S_23097:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len("XOR",3))))||new_error){ +if(qbevent){evnt(19717);if(r)goto S_23097;} +do{ +goto LABEL_OPFOUND; +if(!qbevent)break;evnt(19717);}while(r); +} +do{ +*_FUNC_ISOPERATOR_LONG_L=*_FUNC_ISOPERATOR_LONG_L+ 1 ; +if(!qbevent)break;evnt(19718);}while(r); +S_23101:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len("OR",2))))||new_error){ +if(qbevent){evnt(19718);if(r)goto S_23101;} +do{ +goto LABEL_OPFOUND; +if(!qbevent)break;evnt(19718);}while(r); +} +do{ +*_FUNC_ISOPERATOR_LONG_L=*_FUNC_ISOPERATOR_LONG_L+ 1 ; +if(!qbevent)break;evnt(19719);}while(r); +S_23105:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len("AND",3))))||new_error){ +if(qbevent){evnt(19719);if(r)goto S_23105;} +do{ +goto LABEL_OPFOUND; +if(!qbevent)break;evnt(19719);}while(r); +} +do{ +*_FUNC_ISOPERATOR_LONG_L=*_FUNC_ISOPERATOR_LONG_L+ 1 ; +if(!qbevent)break;evnt(19720);}while(r); +S_23109:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len("NOT",3))))||new_error){ +if(qbevent){evnt(19720);if(r)goto S_23109;} +do{ +goto LABEL_OPFOUND; +if(!qbevent)break;evnt(19720);}while(r); +} +do{ +*_FUNC_ISOPERATOR_LONG_L=*_FUNC_ISOPERATOR_LONG_L+ 1 ; +if(!qbevent)break;evnt(19721);}while(r); +S_23113:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len("=",1))))||new_error){ +if(qbevent){evnt(19722);if(r)goto S_23113;} +do{ +goto LABEL_OPFOUND; +if(!qbevent)break;evnt(19722);}while(r); +} +S_23116:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len(">",1))))||new_error){ +if(qbevent){evnt(19723);if(r)goto S_23116;} +do{ +goto LABEL_OPFOUND; +if(!qbevent)break;evnt(19723);}while(r); +} +S_23119:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len("<",1))))||new_error){ +if(qbevent){evnt(19724);if(r)goto S_23119;} +do{ +goto LABEL_OPFOUND; +if(!qbevent)break;evnt(19724);}while(r); +} +S_23122:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len("<>",2))))||new_error){ +if(qbevent){evnt(19725);if(r)goto S_23122;} +do{ +goto LABEL_OPFOUND; +if(!qbevent)break;evnt(19725);}while(r); +} +S_23125:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len("<=",2))))||new_error){ +if(qbevent){evnt(19726);if(r)goto S_23125;} +do{ +goto LABEL_OPFOUND; +if(!qbevent)break;evnt(19726);}while(r); +} +S_23128:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len(">=",2))))||new_error){ +if(qbevent){evnt(19727);if(r)goto S_23128;} +do{ +goto LABEL_OPFOUND; +if(!qbevent)break;evnt(19727);}while(r); +} +do{ +*_FUNC_ISOPERATOR_LONG_L=*_FUNC_ISOPERATOR_LONG_L+ 1 ; +if(!qbevent)break;evnt(19728);}while(r); +S_23132:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len("+",1))))||new_error){ +if(qbevent){evnt(19729);if(r)goto S_23132;} +do{ +goto LABEL_OPFOUND; +if(!qbevent)break;evnt(19729);}while(r); +} +S_23135:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len("-",1))))||new_error){ +if(qbevent){evnt(19730);if(r)goto S_23135;} +do{ +goto LABEL_OPFOUND; +if(!qbevent)break;evnt(19730);}while(r); +} +do{ +*_FUNC_ISOPERATOR_LONG_L=*_FUNC_ISOPERATOR_LONG_L+ 1 ; +if(!qbevent)break;evnt(19731);}while(r); +S_23139:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len("MOD",3))))||new_error){ +if(qbevent){evnt(19731);if(r)goto S_23139;} +do{ +goto LABEL_OPFOUND; +if(!qbevent)break;evnt(19731);}while(r); +} +do{ +*_FUNC_ISOPERATOR_LONG_L=*_FUNC_ISOPERATOR_LONG_L+ 1 ; +if(!qbevent)break;evnt(19732);}while(r); +S_23143:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len("\\",1))))||new_error){ +if(qbevent){evnt(19732);if(r)goto S_23143;} +do{ +goto LABEL_OPFOUND; +if(!qbevent)break;evnt(19732);}while(r); +} +do{ +*_FUNC_ISOPERATOR_LONG_L=*_FUNC_ISOPERATOR_LONG_L+ 1 ; +if(!qbevent)break;evnt(19733);}while(r); +S_23147:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len("*",1))))||new_error){ +if(qbevent){evnt(19734);if(r)goto S_23147;} +do{ +goto LABEL_OPFOUND; +if(!qbevent)break;evnt(19734);}while(r); +} +S_23150:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len("/",1))))||new_error){ +if(qbevent){evnt(19735);if(r)goto S_23150;} +do{ +goto LABEL_OPFOUND; +if(!qbevent)break;evnt(19735);}while(r); +} +do{ +*_FUNC_ISOPERATOR_LONG_L=*_FUNC_ISOPERATOR_LONG_L+ 1 ; +if(!qbevent)break;evnt(19737);}while(r); +S_23154:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,func_chr( 241 ))))||new_error){ +if(qbevent){evnt(19737);if(r)goto S_23154;} +do{ +goto LABEL_OPFOUND; +if(!qbevent)break;evnt(19737);}while(r); +} +do{ +*_FUNC_ISOPERATOR_LONG_L=*_FUNC_ISOPERATOR_LONG_L+ 1 ; +if(!qbevent)break;evnt(19738);}while(r); +S_23158:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISOPERATOR_STRING_A,qbs_new_txt_len("^",1))))||new_error){ +if(qbevent){evnt(19738);if(r)goto S_23158;} +do{ +goto LABEL_OPFOUND; +if(!qbevent)break;evnt(19738);}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(19739);}while(r); +LABEL_OPFOUND:; +if(qbevent){evnt(19740);r=0;} +do{ +*_FUNC_ISOPERATOR_LONG_ISOPERATOR=*_FUNC_ISOPERATOR_LONG_L; +if(!qbevent)break;evnt(19741);}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free27.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +return *_FUNC_ISOPERATOR_LONG_ISOPERATOR; +} +int32 FUNC_ISUINTEGER(qbs*_FUNC_ISUINTEGER_STRING_I){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data28.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +S_23163:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_ISUINTEGER_STRING_I->len== 0 )))||new_error){ +if(qbevent){evnt(19745);if(r)goto S_23163;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(19745);}while(r); +} +S_23166:; +if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(_FUNC_ISUINTEGER_STRING_I, 1 )== 48 ))&(-(_FUNC_ISUINTEGER_STRING_I->len> 1 ))))||new_error){ +if(qbevent){evnt(19746);if(r)goto S_23166;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(19746);}while(r); +} +S_23169:; +fornext_value2910= 1 ; +fornext_finalvalue2910=_FUNC_ISUINTEGER_STRING_I->len; +fornext_step2910= 1 ; +if (fornext_step2910<0) fornext_step_negative2910=1; else fornext_step_negative2910=0; +if (new_error) goto fornext_error2910; +goto fornext_entrylabel2910; +while(1){ +fornext_value2910=fornext_step2910+(*_FUNC_ISUINTEGER_LONG_C); +fornext_entrylabel2910: +*_FUNC_ISUINTEGER_LONG_C=fornext_value2910; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative2910){ +if (fornext_value2910fornext_finalvalue2910) break; +} +fornext_error2910:; +if(qbevent){evnt(19747);if(r)goto S_23169;} +do{ +*_FUNC_ISUINTEGER_LONG_V=qbs_asc(_FUNC_ISUINTEGER_STRING_I,*_FUNC_ISUINTEGER_LONG_C); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19748);}while(r); +S_23171:; +if (((-(*_FUNC_ISUINTEGER_LONG_V< 48 ))|(-(*_FUNC_ISUINTEGER_LONG_V> 57 )))||new_error){ +if(qbevent){evnt(19749);if(r)goto S_23171;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(19749);}while(r); +} +fornext_continue_2909:; +} +fornext_exit_2909:; +do{ +*_FUNC_ISUINTEGER_LONG_ISUINTEGER= -1 ; +if(!qbevent)break;evnt(19751);}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free28.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +return *_FUNC_ISUINTEGER_LONG_ISUINTEGER; +} +int32 FUNC_ISVALIDVARIABLE(qbs*_FUNC_ISVALIDVARIABLE_STRING_A){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data29.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +S_23176:; +fornext_value2914= 1 ; +fornext_finalvalue2914=_FUNC_ISVALIDVARIABLE_STRING_A->len; +fornext_step2914= 1 ; +if (fornext_step2914<0) fornext_step_negative2914=1; else fornext_step_negative2914=0; +if (new_error) goto fornext_error2914; +goto fornext_entrylabel2914; +while(1){ +fornext_value2914=fornext_step2914+(*_FUNC_ISVALIDVARIABLE_LONG_I); +fornext_entrylabel2914: +*_FUNC_ISVALIDVARIABLE_LONG_I=fornext_value2914; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative2914){ +if (fornext_value2914fornext_finalvalue2914) break; +} +fornext_error2914:; +if(qbevent){evnt(19755);if(r)goto S_23176;} +do{ +*_FUNC_ISVALIDVARIABLE_LONG_C=qbs_asc(_FUNC_ISVALIDVARIABLE_STRING_A,*_FUNC_ISVALIDVARIABLE_LONG_I); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19756);}while(r); +do{ +*_FUNC_ISVALIDVARIABLE_LONG_T= 0 ; +if(!qbevent)break;evnt(19757);}while(r); +S_23179:; +if (((-(*_FUNC_ISVALIDVARIABLE_LONG_C>= 48 ))&(-(*_FUNC_ISVALIDVARIABLE_LONG_C<= 57 )))||new_error){ +if(qbevent){evnt(19758);if(r)goto S_23179;} +do{ +*_FUNC_ISVALIDVARIABLE_LONG_T= 1 ; +if(!qbevent)break;evnt(19758);}while(r); +} +S_23182:; +if (((-(*_FUNC_ISVALIDVARIABLE_LONG_C>= 65 ))&(-(*_FUNC_ISVALIDVARIABLE_LONG_C<= 90 )))||new_error){ +if(qbevent){evnt(19759);if(r)goto S_23182;} +do{ +*_FUNC_ISVALIDVARIABLE_LONG_T= 2 ; +if(!qbevent)break;evnt(19759);}while(r); +} +S_23185:; +if (((-(*_FUNC_ISVALIDVARIABLE_LONG_C>= 97 ))&(-(*_FUNC_ISVALIDVARIABLE_LONG_C<= 122 )))||new_error){ +if(qbevent){evnt(19760);if(r)goto S_23185;} +do{ +*_FUNC_ISVALIDVARIABLE_LONG_T= 2 ; +if(!qbevent)break;evnt(19760);}while(r); +} +S_23188:; +if ((-(*_FUNC_ISVALIDVARIABLE_LONG_C== 95 ))||new_error){ +if(qbevent){evnt(19761);if(r)goto S_23188;} +do{ +*_FUNC_ISVALIDVARIABLE_LONG_T= 2 ; +if(!qbevent)break;evnt(19761);}while(r); +} +S_23191:; +if (((-(*_FUNC_ISVALIDVARIABLE_LONG_T== 2 ))|(((-(*_FUNC_ISVALIDVARIABLE_LONG_T== 1 ))&(-(*_FUNC_ISVALIDVARIABLE_LONG_I> 1 )))))||new_error){ +if(qbevent){evnt(19762);if(r)goto S_23191;} +}else{ +S_23193:; +if ((-(*_FUNC_ISVALIDVARIABLE_LONG_I== 1 ))||new_error){ +if(qbevent){evnt(19765);if(r)goto S_23193;} +do{ +*_FUNC_ISVALIDVARIABLE_LONG_ISVALIDVARIABLE= 0 ; +if(!qbevent)break;evnt(19765);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(19765);}while(r); +} +do{ +goto fornext_exit_2913; +if(!qbevent)break;evnt(19766);}while(r); +} +fornext_continue_2913:; +} +fornext_exit_2913:; +do{ +*_FUNC_ISVALIDVARIABLE_LONG_ISVALIDVARIABLE= 1 ; +if(!qbevent)break;evnt(19770);}while(r); +S_23201:; +if ((-(*_FUNC_ISVALIDVARIABLE_LONG_I>*_FUNC_ISVALIDVARIABLE_LONG_N))||new_error){ +if(qbevent){evnt(19771);if(r)goto S_23201;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(19771);}while(r); +} +do{ +qbs_set(_FUNC_ISVALIDVARIABLE_STRING_E,qbs_right(_FUNC_ISVALIDVARIABLE_STRING_A,_FUNC_ISVALIDVARIABLE_STRING_A->len-*_FUNC_ISVALIDVARIABLE_LONG_I- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19772);}while(r); +S_23205:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_ISVALIDVARIABLE_STRING_E,qbs_new_txt_len("%%",2)))|(qbs_equal(_FUNC_ISVALIDVARIABLE_STRING_E,qbs_new_txt_len("~%%",3)))))||new_error){ +if(qbevent){evnt(19773);if(r)goto S_23205;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(19773);}while(r); +} +S_23208:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_ISVALIDVARIABLE_STRING_E,qbs_new_txt_len("%",1)))|(qbs_equal(_FUNC_ISVALIDVARIABLE_STRING_E,qbs_new_txt_len("~%",2)))))||new_error){ +if(qbevent){evnt(19774);if(r)goto S_23208;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(19774);}while(r); +} +S_23211:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_ISVALIDVARIABLE_STRING_E,qbs_new_txt_len("&",1)))|(qbs_equal(_FUNC_ISVALIDVARIABLE_STRING_E,qbs_new_txt_len("~&",2)))))||new_error){ +if(qbevent){evnt(19775);if(r)goto S_23211;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(19775);}while(r); +} +S_23214:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_ISVALIDVARIABLE_STRING_E,qbs_new_txt_len("&&",2)))|(qbs_equal(_FUNC_ISVALIDVARIABLE_STRING_E,qbs_new_txt_len("~&&",3)))))||new_error){ +if(qbevent){evnt(19776);if(r)goto S_23214;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(19776);}while(r); +} +S_23217:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_ISVALIDVARIABLE_STRING_E,qbs_new_txt_len("!",1)))|(qbs_equal(_FUNC_ISVALIDVARIABLE_STRING_E,qbs_new_txt_len("#",1)))|(qbs_equal(_FUNC_ISVALIDVARIABLE_STRING_E,qbs_new_txt_len("##",2)))))||new_error){ +if(qbevent){evnt(19777);if(r)goto S_23217;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(19777);}while(r); +} +S_23220:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISVALIDVARIABLE_STRING_E,qbs_new_txt_len("$",1))))||new_error){ +if(qbevent){evnt(19778);if(r)goto S_23220;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(19778);}while(r); +} +S_23223:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_ISVALIDVARIABLE_STRING_E,qbs_new_txt_len("`",1))))||new_error){ +if(qbevent){evnt(19779);if(r)goto S_23223;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(19779);}while(r); +} +S_23226:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(qbs_left(_FUNC_ISVALIDVARIABLE_STRING_E, 1 ),qbs_new_txt_len("$",1)))&(qbs_notequal(qbs_left(_FUNC_ISVALIDVARIABLE_STRING_E, 1 ),qbs_new_txt_len("`",1)))))||new_error){ +if(qbevent){evnt(19780);if(r)goto S_23226;} +do{ +*_FUNC_ISVALIDVARIABLE_LONG_ISVALIDVARIABLE= 0 ; +if(!qbevent)break;evnt(19780);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(19780);}while(r); +} +do{ +qbs_set(_FUNC_ISVALIDVARIABLE_STRING_E,qbs_right(_FUNC_ISVALIDVARIABLE_STRING_E,_FUNC_ISVALIDVARIABLE_STRING_E->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19781);}while(r); +S_23231:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_ISUINTEGER(_FUNC_ISVALIDVARIABLE_STRING_E)))||new_error){ +if(qbevent){evnt(19782);if(r)goto S_23231;} +do{ +*_FUNC_ISVALIDVARIABLE_LONG_ISVALIDVARIABLE= 1 ; +if(!qbevent)break;evnt(19782);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(19782);}while(r); +} +do{ +*_FUNC_ISVALIDVARIABLE_LONG_ISVALIDVARIABLE= 0 ; +if(!qbevent)break;evnt(19783);}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free29.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +return *_FUNC_ISVALIDVARIABLE_LONG_ISVALIDVARIABLE; +} +qbs* FUNC_LINEFORMAT(qbs*_FUNC_LINEFORMAT_STRING_A){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data30.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19790);}while(r); +do{ +*__LONG_LINECONTINUATION= 0 ; +if(!qbevent)break;evnt(19791);}while(r); +LABEL_CONTINUELINE:; +if(qbevent){evnt(19793);r=0;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_A,qbs_add(_FUNC_LINEFORMAT_STRING_A,qbs_new_txt_len(" ",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19795);}while(r); +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_CA,_FUNC_LINEFORMAT_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19797);}while(r); +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_A,qbs_ucase(_FUNC_LINEFORMAT_STRING_A)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19798);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_N=_FUNC_LINEFORMAT_STRING_A->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19800);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_I= 1 ; +if(!qbevent)break;evnt(19801);}while(r); +LABEL_LINEFORMATNEXT:; +if(qbevent){evnt(19802);r=0;} +S_23243:; +if ((-(*_FUNC_LINEFORMAT_LONG_I>=*_FUNC_LINEFORMAT_LONG_N))||new_error){ +if(qbevent){evnt(19803);if(r)goto S_23243;} +do{ +goto LABEL_LINEFORMATDONE; +if(!qbevent)break;evnt(19803);}while(r); +} +do{ +*_FUNC_LINEFORMAT_LONG_C=qbs_asc(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19805);}while(r); +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_C,func_chr(*_FUNC_LINEFORMAT_LONG_C)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19806);}while(r); +S_23248:; +if ((-(*_FUNC_LINEFORMAT_LONG_C== 34 ))||new_error){ +if(qbevent){evnt(19809);if(r)goto S_23248;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),func_chr( 34 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19810);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_P1=*_FUNC_LINEFORMAT_LONG_I+ 1 ; +if(!qbevent)break;evnt(19811);}while(r); +S_23251:; +fornext_value2921=*_FUNC_LINEFORMAT_LONG_I+ 1 ; +fornext_finalvalue2921=*_FUNC_LINEFORMAT_LONG_N- 2 ; +fornext_step2921= 1 ; +if (fornext_step2921<0) fornext_step_negative2921=1; else fornext_step_negative2921=0; +if (new_error) goto fornext_error2921; +goto fornext_entrylabel2921; +while(1){ +fornext_value2921=fornext_step2921+(*_FUNC_LINEFORMAT_LONG_I2); +fornext_entrylabel2921: +*_FUNC_LINEFORMAT_LONG_I2=fornext_value2921; +if (fornext_step_negative2921){ +if (fornext_value2921fornext_finalvalue2921) break; +} +fornext_error2921:; +if(qbevent){evnt(19812);if(r)goto S_23251;} +do{ +*_FUNC_LINEFORMAT_LONG_C2=qbs_asc(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19813);}while(r); +S_23253:; +if ((-(*_FUNC_LINEFORMAT_LONG_C2== 34 ))||new_error){ +if(qbevent){evnt(19815);if(r)goto S_23253;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,func_mid(_FUNC_LINEFORMAT_STRING_CA,*_FUNC_LINEFORMAT_LONG_P1,*_FUNC_LINEFORMAT_LONG_I2-*_FUNC_LINEFORMAT_LONG_P1+ 1 ,0|1)),qbs_new_txt_len(",",1)),FUNC_STR2(&(pass2922=*_FUNC_LINEFORMAT_LONG_I2-(*_FUNC_LINEFORMAT_LONG_I+ 1 ))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19816);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I2+ 1 ; +if(!qbevent)break;evnt(19817);}while(r); +do{ +goto fornext_exit_2920; +if(!qbevent)break;evnt(19818);}while(r); +} +S_23258:; +if ((-(*_FUNC_LINEFORMAT_LONG_C2== 92 ))||new_error){ +if(qbevent){evnt(19821);if(r)goto S_23258;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,func_mid(_FUNC_LINEFORMAT_STRING_CA,*_FUNC_LINEFORMAT_LONG_P1,*_FUNC_LINEFORMAT_LONG_I2-*_FUNC_LINEFORMAT_LONG_P1,0|1)),qbs_new_txt_len("\\\\",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19822);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_P1=*_FUNC_LINEFORMAT_LONG_I2+ 1 ; +if(!qbevent)break;evnt(19823);}while(r); +} +S_23262:; +if (((-(*_FUNC_LINEFORMAT_LONG_C2< 32 ))|(-(*_FUNC_LINEFORMAT_LONG_C2> 126 )))||new_error){ +if(qbevent){evnt(19826);if(r)goto S_23262;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_O,func_oct(*_FUNC_LINEFORMAT_LONG_C2,32)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19827);}while(r); +S_23264:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_LINEFORMAT_STRING_O->len< 3 )))||new_error){ +if(qbevent){evnt(19828);if(r)goto S_23264;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_O,qbs_add(qbs_new_txt_len("0",1),_FUNC_LINEFORMAT_STRING_O)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19829);}while(r); +S_23266:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_LINEFORMAT_STRING_O->len< 3 )))||new_error){ +if(qbevent){evnt(19830);if(r)goto S_23266;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_O,qbs_add(qbs_new_txt_len("0",1),_FUNC_LINEFORMAT_STRING_O)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19830);}while(r); +} +} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,func_mid(_FUNC_LINEFORMAT_STRING_CA,*_FUNC_LINEFORMAT_LONG_P1,*_FUNC_LINEFORMAT_LONG_I2-*_FUNC_LINEFORMAT_LONG_P1,0|1)),qbs_new_txt_len("\\",1)),_FUNC_LINEFORMAT_STRING_O)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19832);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_P1=*_FUNC_LINEFORMAT_LONG_I2+ 1 ; +if(!qbevent)break;evnt(19833);}while(r); +} +fornext_continue_2920:; +} +fornext_exit_2920:; +S_23274:; +if ((-(*_FUNC_LINEFORMAT_LONG_I2==(*_FUNC_LINEFORMAT_LONG_N- 1 )))||new_error){ +if(qbevent){evnt(19838);if(r)goto S_23274;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,func_mid(_FUNC_LINEFORMAT_STRING_CA,*_FUNC_LINEFORMAT_LONG_P1,(*_FUNC_LINEFORMAT_LONG_N- 2 )-*_FUNC_LINEFORMAT_LONG_P1+ 1 ,0|1)),func_chr( 34 )),qbs_new_txt_len(",",1)),FUNC_STR2(&(pass2925=(*_FUNC_LINEFORMAT_LONG_N- 2 )-(*_FUNC_LINEFORMAT_LONG_I+ 1 )+ 1 )))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19839);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_N- 1 ; +if(!qbevent)break;evnt(19840);}while(r); +} +do{ +goto LABEL_LINEFORMATNEXT; +if(!qbevent)break;evnt(19843);}while(r); +} +do{ +*_FUNC_LINEFORMAT_LONG_FIRSTI=*_FUNC_LINEFORMAT_LONG_I; +if(!qbevent)break;evnt(19848);}while(r); +S_23281:; +if ((-(*_FUNC_LINEFORMAT_LONG_C== 46 ))||new_error){ +if(qbevent){evnt(19849);if(r)goto S_23281;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_C2,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I+ 1 , 1 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19850);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_C2=qbs_asc(_FUNC_LINEFORMAT_STRING_C2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19850);}while(r); +S_23284:; +if ((((-(*_FUNC_LINEFORMAT_LONG_C2>= 48 ))&(-(*_FUNC_LINEFORMAT_LONG_C2<= 57 ))))||new_error){ +if(qbevent){evnt(19851);if(r)goto S_23284;} +do{ +goto LABEL_LFNUMBER; +if(!qbevent)break;evnt(19851);}while(r); +} +} +S_23288:; +if ((((-(*_FUNC_LINEFORMAT_LONG_C>= 48 ))&(-(*_FUNC_LINEFORMAT_LONG_C<= 57 ))))||new_error){ +if(qbevent){evnt(19853);if(r)goto S_23288;} +LABEL_LFNUMBER:; +if(qbevent){evnt(19854);r=0;} +S_23289:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal((qbs_right(_FUNC_LINEFORMAT_STRING_A2, 5 )),(qbs_add(__STRING1_SP,qbs_new_txt_len("ELSE",4))))))||new_error){ +if(qbevent){evnt(19857);if(r)goto S_23289;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),qbs_new_txt_len("GOTO",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19858);}while(r); +} +do{ +*_FUNC_LINEFORMAT_LONG_MODE= 0 ; +if(!qbevent)break;evnt(19866);}while(r); +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_WHOLE,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19867);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_DP= 0 ; +if(!qbevent)break;evnt(19868);}while(r); +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_FRAC,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19869);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_ED= 0 ; +if(!qbevent)break;evnt(19870);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_PM= 1 ; +if(!qbevent)break;evnt(19871);}while(r); +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_EX,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19872);}while(r); +LABEL_LFREADNUMBER:; +if(qbevent){evnt(19877);r=0;} +do{ +*_FUNC_LINEFORMAT_LONG_VALID= 0 ; +if(!qbevent)break;evnt(19878);}while(r); +S_23300:; +if ((-(*_FUNC_LINEFORMAT_LONG_C== 46 ))||new_error){ +if(qbevent){evnt(19880);if(r)goto S_23300;} +S_23301:; +if ((-(*_FUNC_LINEFORMAT_LONG_MODE== 0 ))||new_error){ +if(qbevent){evnt(19881);if(r)goto S_23301;} +do{ +*_FUNC_LINEFORMAT_LONG_VALID= 1 ; +if(!qbevent)break;evnt(19881);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_DP= 1 ; +if(!qbevent)break;evnt(19881);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_MODE= 1 ; +if(!qbevent)break;evnt(19881);}while(r); +} +} +S_23307:; +if (((-(*_FUNC_LINEFORMAT_LONG_C>= 48 ))&(-(*_FUNC_LINEFORMAT_LONG_C<= 57 )))||new_error){ +if(qbevent){evnt(19884);if(r)goto S_23307;} +do{ +*_FUNC_LINEFORMAT_LONG_VALID= 1 ; +if(!qbevent)break;evnt(19885);}while(r); +S_23309:; +if ((-(*_FUNC_LINEFORMAT_LONG_MODE== 0 ))||new_error){ +if(qbevent){evnt(19886);if(r)goto S_23309;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_WHOLE,qbs_add(_FUNC_LINEFORMAT_STRING_WHOLE,_FUNC_LINEFORMAT_STRING_C)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19886);}while(r); +} +S_23312:; +if ((-(*_FUNC_LINEFORMAT_LONG_MODE== 1 ))||new_error){ +if(qbevent){evnt(19887);if(r)goto S_23312;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_FRAC,qbs_add(_FUNC_LINEFORMAT_STRING_FRAC,_FUNC_LINEFORMAT_STRING_C)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19887);}while(r); +} +S_23315:; +if ((-(*_FUNC_LINEFORMAT_LONG_MODE== 2 ))||new_error){ +if(qbevent){evnt(19888);if(r)goto S_23315;} +do{ +*_FUNC_LINEFORMAT_LONG_MODE= 3 ; +if(!qbevent)break;evnt(19888);}while(r); +} +S_23318:; +if ((-(*_FUNC_LINEFORMAT_LONG_MODE== 3 ))||new_error){ +if(qbevent){evnt(19889);if(r)goto S_23318;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_EX,qbs_add(_FUNC_LINEFORMAT_STRING_EX,_FUNC_LINEFORMAT_STRING_C)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19889);}while(r); +} +} +S_23322:; +if (((-(*_FUNC_LINEFORMAT_LONG_C== 69 ))|(-(*_FUNC_LINEFORMAT_LONG_C== 68 ))|(-(*_FUNC_LINEFORMAT_LONG_C== 70 )))||new_error){ +if(qbevent){evnt(19892);if(r)goto S_23322;} +S_23323:; +if ((-(*_FUNC_LINEFORMAT_LONG_MODE< 2 ))||new_error){ +if(qbevent){evnt(19893);if(r)goto S_23323;} +do{ +*_FUNC_LINEFORMAT_LONG_VALID= 1 ; +if(!qbevent)break;evnt(19894);}while(r); +S_23325:; +if ((-(*_FUNC_LINEFORMAT_LONG_C== 69 ))||new_error){ +if(qbevent){evnt(19895);if(r)goto S_23325;} +do{ +*_FUNC_LINEFORMAT_LONG_ED= 1 ; +if(!qbevent)break;evnt(19895);}while(r); +} +S_23328:; +if ((-(*_FUNC_LINEFORMAT_LONG_C== 68 ))||new_error){ +if(qbevent){evnt(19896);if(r)goto S_23328;} +do{ +*_FUNC_LINEFORMAT_LONG_ED= 2 ; +if(!qbevent)break;evnt(19896);}while(r); +} +S_23331:; +if ((-(*_FUNC_LINEFORMAT_LONG_C== 70 ))||new_error){ +if(qbevent){evnt(19897);if(r)goto S_23331;} +do{ +*_FUNC_LINEFORMAT_LONG_ED= 3 ; +if(!qbevent)break;evnt(19897);}while(r); +} +do{ +*_FUNC_LINEFORMAT_LONG_MODE= 2 ; +if(!qbevent)break;evnt(19898);}while(r); +} +} +S_23337:; +if (((-(*_FUNC_LINEFORMAT_LONG_C== 43 ))|(-(*_FUNC_LINEFORMAT_LONG_C== 45 )))||new_error){ +if(qbevent){evnt(19902);if(r)goto S_23337;} +S_23338:; +if ((-(*_FUNC_LINEFORMAT_LONG_MODE== 2 ))||new_error){ +if(qbevent){evnt(19903);if(r)goto S_23338;} +do{ +*_FUNC_LINEFORMAT_LONG_VALID= 1 ; +if(!qbevent)break;evnt(19904);}while(r); +S_23340:; +if ((-(*_FUNC_LINEFORMAT_LONG_C== 45 ))||new_error){ +if(qbevent){evnt(19905);if(r)goto S_23340;} +do{ +*_FUNC_LINEFORMAT_LONG_PM= -1 ; +if(!qbevent)break;evnt(19905);}while(r); +} +do{ +*_FUNC_LINEFORMAT_LONG_MODE= 3 ; +if(!qbevent)break;evnt(19906);}while(r); +} +} +S_23346:; +if ((*_FUNC_LINEFORMAT_LONG_VALID)||new_error){ +if(qbevent){evnt(19910);if(r)goto S_23346;} +S_23347:; +if ((-(*_FUNC_LINEFORMAT_LONG_I<=*_FUNC_LINEFORMAT_LONG_N))||new_error){ +if(qbevent){evnt(19911);if(r)goto S_23347;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; +if(!qbevent)break;evnt(19911);}while(r); +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_C,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 1 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19911);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_C=qbs_asc(_FUNC_LINEFORMAT_STRING_C); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19911);}while(r); +do{ +goto LABEL_LFREADNUMBER; +if(!qbevent)break;evnt(19911);}while(r); +} +} +S_23354:; +while((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_LINEFORMAT_STRING_WHOLE, 1 ),qbs_new_txt_len("0",1))))||new_error){ +if(qbevent){evnt(19917);if(r)goto S_23354;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_WHOLE,qbs_right(_FUNC_LINEFORMAT_STRING_WHOLE,_FUNC_LINEFORMAT_STRING_WHOLE->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19917);}while(r); +dl_continue_2926:; +} +dl_exit_2926:; +S_23357:; +while((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_FUNC_LINEFORMAT_STRING_FRAC, 1 ),qbs_new_txt_len("0",1))))||new_error){ +if(qbevent){evnt(19919);if(r)goto S_23357;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_FRAC,qbs_left(_FUNC_LINEFORMAT_STRING_FRAC,_FUNC_LINEFORMAT_STRING_FRAC->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19919);}while(r); +dl_continue_2928:; +} +dl_exit_2928:; +S_23360:; +while((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_LINEFORMAT_STRING_EX, 1 ),qbs_new_txt_len("0",1))))||new_error){ +if(qbevent){evnt(19921);if(r)goto S_23360;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_EX,qbs_right(_FUNC_LINEFORMAT_STRING_EX,_FUNC_LINEFORMAT_STRING_EX->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19921);}while(r); +dl_continue_2930:; +} +dl_exit_2930:; +S_23363:; +if (((-(*_FUNC_LINEFORMAT_LONG_DP!= 0 ))|(-(*_FUNC_LINEFORMAT_LONG_ED!= 0 )))||new_error){ +if(qbevent){evnt(19923);if(r)goto S_23363;} +do{ +*_FUNC_LINEFORMAT_LONG_FLOAT= 1 ; +if(!qbevent)break;evnt(19923);}while(r); +}else{ +do{ +*_FUNC_LINEFORMAT_LONG_FLOAT= 0 ; +if(!qbevent)break;evnt(19923);}while(r); +} +do{ +*_FUNC_LINEFORMAT_LONG_EXTUSED= 1 ; +if(!qbevent)break;evnt(19925);}while(r); +S_23369:; +if ((*_FUNC_LINEFORMAT_LONG_ED)||new_error){ +if(qbevent){evnt(19927);if(r)goto S_23369;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19927);}while(r); +do{ +goto LABEL_LFFOUNDEXT; +if(!qbevent)break;evnt(19927);}while(r); +} +S_23373:; +if ((-(*_FUNC_LINEFORMAT_LONG_I<=(*_FUNC_LINEFORMAT_LONG_N- 2 )))||new_error){ +if(qbevent){evnt(19930);if(r)goto S_23373;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 3 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19931);}while(r); +S_23375:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~%%",3)))&(-(*_FUNC_LINEFORMAT_LONG_FLOAT== 0 ))))||new_error){ +if(qbevent){evnt(19932);if(r)goto S_23375;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 3 ; +if(!qbevent)break;evnt(19932);}while(r); +do{ +goto LABEL_LFFOUNDEXT; +if(!qbevent)break;evnt(19932);}while(r); +} +S_23379:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~&&",3)))&(-(*_FUNC_LINEFORMAT_LONG_FLOAT== 0 ))))||new_error){ +if(qbevent){evnt(19933);if(r)goto S_23379;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 3 ; +if(!qbevent)break;evnt(19933);}while(r); +do{ +goto LABEL_LFFOUNDEXT; +if(!qbevent)break;evnt(19933);}while(r); +} +S_23383:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~%&",3)))&(-(*_FUNC_LINEFORMAT_LONG_FLOAT== 0 ))))||new_error){ +if(qbevent){evnt(19934);if(r)goto S_23383;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Cannot use _OFFSET symbols after numbers",40)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19934);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(19934);}while(r); +} +} +S_23388:; +if ((-(*_FUNC_LINEFORMAT_LONG_I<=(*_FUNC_LINEFORMAT_LONG_N- 1 )))||new_error){ +if(qbevent){evnt(19937);if(r)goto S_23388;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 2 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19938);}while(r); +S_23390:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%%",2)))&(-(*_FUNC_LINEFORMAT_LONG_FLOAT== 0 ))))||new_error){ +if(qbevent){evnt(19939);if(r)goto S_23390;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; +if(!qbevent)break;evnt(19939);}while(r); +do{ +goto LABEL_LFFOUNDEXT; +if(!qbevent)break;evnt(19939);}while(r); +} +S_23394:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~%",2)))&(-(*_FUNC_LINEFORMAT_LONG_FLOAT== 0 ))))||new_error){ +if(qbevent){evnt(19940);if(r)goto S_23394;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; +if(!qbevent)break;evnt(19940);}while(r); +do{ +goto LABEL_LFFOUNDEXT; +if(!qbevent)break;evnt(19940);}while(r); +} +S_23398:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&&",2)))&(-(*_FUNC_LINEFORMAT_LONG_FLOAT== 0 ))))||new_error){ +if(qbevent){evnt(19941);if(r)goto S_23398;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; +if(!qbevent)break;evnt(19941);}while(r); +do{ +goto LABEL_LFFOUNDEXT; +if(!qbevent)break;evnt(19941);}while(r); +} +S_23402:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~&",2)))&(-(*_FUNC_LINEFORMAT_LONG_FLOAT== 0 ))))||new_error){ +if(qbevent){evnt(19942);if(r)goto S_23402;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; +if(!qbevent)break;evnt(19942);}while(r); +do{ +goto LABEL_LFFOUNDEXT; +if(!qbevent)break;evnt(19942);}while(r); +} +S_23406:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%&",2)))&(-(*_FUNC_LINEFORMAT_LONG_FLOAT== 0 ))))||new_error){ +if(qbevent){evnt(19943);if(r)goto S_23406;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Cannot use _OFFSET symbols after numbers",40)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19943);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(19943);}while(r); +} +S_23410:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("##",2))))||new_error){ +if(qbevent){evnt(19944);if(r)goto S_23410;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; +if(!qbevent)break;evnt(19945);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_ED= 3 ; +if(!qbevent)break;evnt(19946);}while(r); +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19947);}while(r); +do{ +goto LABEL_LFFOUNDEXT; +if(!qbevent)break;evnt(19948);}while(r); +} +S_23416:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~`",2))))||new_error){ +if(qbevent){evnt(19950);if(r)goto S_23416;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; +if(!qbevent)break;evnt(19951);}while(r); +do{ +goto LABEL_LFFOUNDBITEXT; +if(!qbevent)break;evnt(19952);}while(r); +} +} +S_23421:; +if ((-(*_FUNC_LINEFORMAT_LONG_I<=*_FUNC_LINEFORMAT_LONG_N))||new_error){ +if(qbevent){evnt(19956);if(r)goto S_23421;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 1 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19957);}while(r); +S_23423:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%",1)))&(-(*_FUNC_LINEFORMAT_LONG_FLOAT== 0 ))))||new_error){ +if(qbevent){evnt(19958);if(r)goto S_23423;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; +if(!qbevent)break;evnt(19958);}while(r); +do{ +goto LABEL_LFFOUNDEXT; +if(!qbevent)break;evnt(19958);}while(r); +} +S_23427:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&",1)))&(-(*_FUNC_LINEFORMAT_LONG_FLOAT== 0 ))))||new_error){ +if(qbevent){evnt(19959);if(r)goto S_23427;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; +if(!qbevent)break;evnt(19959);}while(r); +do{ +goto LABEL_LFFOUNDEXT; +if(!qbevent)break;evnt(19959);}while(r); +} +S_23431:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("!",1))))||new_error){ +if(qbevent){evnt(19960);if(r)goto S_23431;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; +if(!qbevent)break;evnt(19961);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_ED= 1 ; +if(!qbevent)break;evnt(19962);}while(r); +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19963);}while(r); +do{ +goto LABEL_LFFOUNDEXT; +if(!qbevent)break;evnt(19964);}while(r); +} +S_23437:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("#",1))))||new_error){ +if(qbevent){evnt(19966);if(r)goto S_23437;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; +if(!qbevent)break;evnt(19967);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_ED= 2 ; +if(!qbevent)break;evnt(19968);}while(r); +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19969);}while(r); +do{ +goto LABEL_LFFOUNDEXT; +if(!qbevent)break;evnt(19970);}while(r); +} +S_23443:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("`",1))))||new_error){ +if(qbevent){evnt(19972);if(r)goto S_23443;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; +if(!qbevent)break;evnt(19973);}while(r); +LABEL_LFFOUNDBITEXT:; +if(qbevent){evnt(19974);r=0;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19975);}while(r); +S_23446:; +while((-(*_FUNC_LINEFORMAT_LONG_I<=*_FUNC_LINEFORMAT_LONG_N))||new_error){ +if(qbevent){evnt(19976);if(r)goto S_23446;} +do{ +*_FUNC_LINEFORMAT_LONG_C2=qbs_asc(func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 1 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19977);}while(r); +S_23448:; +if (((-(*_FUNC_LINEFORMAT_LONG_C2>= 48 ))&(-(*_FUNC_LINEFORMAT_LONG_C2<= 57 )))||new_error){ +if(qbevent){evnt(19978);if(r)goto S_23448;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_add(_FUNC_LINEFORMAT_STRING_BITN,func_chr(*_FUNC_LINEFORMAT_LONG_C2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19979);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; +if(!qbevent)break;evnt(19980);}while(r); +}else{ +do{ +goto dl_exit_2932; +if(!qbevent)break;evnt(19982);}while(r); +} +dl_continue_2932:; +} +dl_exit_2932:; +S_23455:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_BITN,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(19985);if(r)goto S_23455;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_new_txt_len("1",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19985);}while(r); +} +S_23458:; +while((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_LINEFORMAT_STRING_BITN, 1 ),qbs_new_txt_len("0",1))))||new_error){ +if(qbevent){evnt(19987);if(r)goto S_23458;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_right(_FUNC_LINEFORMAT_STRING_BITN,_FUNC_LINEFORMAT_STRING_BITN->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19987);}while(r); +dl_continue_2933:; +} +dl_exit_2933:; +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_add(_FUNC_LINEFORMAT_STRING_E,_FUNC_LINEFORMAT_STRING_BITN)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19988);}while(r); +do{ +goto LABEL_LFFOUNDEXT; +if(!qbevent)break;evnt(19989);}while(r); +} +} +S_23465:; +if ((*_FUNC_LINEFORMAT_LONG_FLOAT)||new_error){ +if(qbevent){evnt(19993);if(r)goto S_23465;} +S_23466:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_LINEFORMAT_STRING_WHOLE,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(19995);if(r)goto S_23466;} +do{ +*_FUNC_LINEFORMAT_LONG_OFFSET=_FUNC_LINEFORMAT_STRING_WHOLE->len- 1 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19996);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_SIGDIGITS=_FUNC_LINEFORMAT_STRING_WHOLE->len+_FUNC_LINEFORMAT_STRING_FRAC->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(19997);}while(r); +}else{ +S_23470:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_LINEFORMAT_STRING_FRAC,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(19999);if(r)goto S_23470;} +do{ +*_FUNC_LINEFORMAT_LONG_OFFSET= -1 ; +if(!qbevent)break;evnt(20000);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_SIGDIGITS=_FUNC_LINEFORMAT_STRING_FRAC->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20001);}while(r); +S_23473:; +fornext_value2940= 1 ; +fornext_finalvalue2940=_FUNC_LINEFORMAT_STRING_FRAC->len; +fornext_step2940= 1 ; +if (fornext_step2940<0) fornext_step_negative2940=1; else fornext_step_negative2940=0; +if (new_error) goto fornext_error2940; +goto fornext_entrylabel2940; +while(1){ +fornext_value2940=fornext_step2940+(*_FUNC_LINEFORMAT_LONG_I2); +fornext_entrylabel2940: +*_FUNC_LINEFORMAT_LONG_I2=fornext_value2940; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative2940){ +if (fornext_value2940fornext_finalvalue2940) break; +} +fornext_error2940:; +if(qbevent){evnt(20002);if(r)goto S_23473;} +S_23474:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(func_mid(_FUNC_LINEFORMAT_STRING_FRAC,*_FUNC_LINEFORMAT_LONG_I2, 1 ,0|1),qbs_new_txt_len("0",1))))||new_error){ +if(qbevent){evnt(20003);if(r)goto S_23474;} +do{ +goto fornext_exit_2939; +if(!qbevent)break;evnt(20003);}while(r); +} +do{ +*_FUNC_LINEFORMAT_LONG_OFFSET=*_FUNC_LINEFORMAT_LONG_OFFSET- 1 ; +if(!qbevent)break;evnt(20004);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_SIGDIGITS=*_FUNC_LINEFORMAT_LONG_SIGDIGITS- 1 ; +if(!qbevent)break;evnt(20005);}while(r); +fornext_continue_2939:; +} +fornext_exit_2939:; +}else{ +do{ +*_FUNC_LINEFORMAT_LONG_OFFSET= 0 ; +if(!qbevent)break;evnt(20009);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_SIGDIGITS= 0 ; +if(!qbevent)break;evnt(20010);}while(r); +} +} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_SIGDIG,qbs_right(qbs_add(_FUNC_LINEFORMAT_STRING_WHOLE,_FUNC_LINEFORMAT_STRING_FRAC),*_FUNC_LINEFORMAT_LONG_SIGDIGITS)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20013);}while(r); +S_23486:; +if ((-(*_FUNC_LINEFORMAT_LONG_SIGDIGITS<= 7 ))||new_error){ +if(qbevent){evnt(20015);if(r)goto S_23486;} +S_23487:; +if (((-(*_FUNC_LINEFORMAT_LONG_OFFSET<= 38 ))&(-(*_FUNC_LINEFORMAT_LONG_OFFSET>= -38 )))||new_error){ +if(qbevent){evnt(20016);if(r)goto S_23487;} +S_23488:; +if ((-(*_FUNC_LINEFORMAT_LONG_OFFSET== 38 ))||new_error){ +if(qbevent){evnt(20017);if(r)goto S_23488;} +S_23489:; +if ((qbs_cleanup(qbs_tmp_base,qbs_greaterthan(_FUNC_LINEFORMAT_STRING_SIGDIG,qbs_new_txt_len("3402823",7))))||new_error){ +if(qbevent){evnt(20018);if(r)goto S_23489;} +do{ +goto LABEL_LFXSINGLE; +if(!qbevent)break;evnt(20018);}while(r); +} +} +S_23493:; +if ((-(*_FUNC_LINEFORMAT_LONG_OFFSET== -38 ))||new_error){ +if(qbevent){evnt(20020);if(r)goto S_23493;} +S_23494:; +if ((qbs_cleanup(qbs_tmp_base,qbs_lessthan(_FUNC_LINEFORMAT_STRING_SIGDIG,qbs_new_txt_len("1175494",7))))||new_error){ +if(qbevent){evnt(20021);if(r)goto S_23494;} +do{ +goto LABEL_LFXSINGLE; +if(!qbevent)break;evnt(20021);}while(r); +} +} +do{ +*_FUNC_LINEFORMAT_LONG_ED= 1 ; +if(!qbevent)break;evnt(20023);}while(r); +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20024);}while(r); +do{ +goto LABEL_LFFOUNDEXT; +if(!qbevent)break;evnt(20025);}while(r); +} +} +LABEL_LFXSINGLE:; +if(qbevent){evnt(20028);r=0;} +S_23503:; +if ((-(*_FUNC_LINEFORMAT_LONG_SIGDIGITS<= 16 ))||new_error){ +if(qbevent){evnt(20030);if(r)goto S_23503;} +S_23504:; +if (((-(*_FUNC_LINEFORMAT_LONG_OFFSET<= 308 ))&(-(*_FUNC_LINEFORMAT_LONG_OFFSET>= -308 )))||new_error){ +if(qbevent){evnt(20031);if(r)goto S_23504;} +S_23505:; +if ((-(*_FUNC_LINEFORMAT_LONG_OFFSET== 308 ))||new_error){ +if(qbevent){evnt(20032);if(r)goto S_23505;} +S_23506:; +if ((qbs_cleanup(qbs_tmp_base,qbs_greaterthan(_FUNC_LINEFORMAT_STRING_SIGDIG,qbs_new_txt_len("1797693134862315",16))))||new_error){ +if(qbevent){evnt(20033);if(r)goto S_23506;} +do{ +goto LABEL_LFXDOUBLE; +if(!qbevent)break;evnt(20033);}while(r); +} +} +S_23510:; +if ((-(*_FUNC_LINEFORMAT_LONG_OFFSET== -308 ))||new_error){ +if(qbevent){evnt(20035);if(r)goto S_23510;} +S_23511:; +if ((qbs_cleanup(qbs_tmp_base,qbs_lessthan(_FUNC_LINEFORMAT_STRING_SIGDIG,qbs_new_txt_len("2225073858507201",16))))||new_error){ +if(qbevent){evnt(20036);if(r)goto S_23511;} +do{ +goto LABEL_LFXDOUBLE; +if(!qbevent)break;evnt(20036);}while(r); +} +} +do{ +*_FUNC_LINEFORMAT_LONG_ED= 2 ; +if(!qbevent)break;evnt(20038);}while(r); +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20039);}while(r); +do{ +goto LABEL_LFFOUNDEXT; +if(!qbevent)break;evnt(20040);}while(r); +} +} +LABEL_LFXDOUBLE:; +if(qbevent){evnt(20043);r=0;} +do{ +*_FUNC_LINEFORMAT_LONG_ED= 3 ; +if(!qbevent)break;evnt(20045);}while(r); +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20046);}while(r); +do{ +goto LABEL_LFFOUNDEXT; +if(!qbevent)break;evnt(20046);}while(r); +} +do{ +*_FUNC_LINEFORMAT_LONG_EXTUSED= 0 ; +if(!qbevent)break;evnt(20049);}while(r); +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20050);}while(r); +LABEL_LFFOUNDEXT:; +if(qbevent){evnt(20051);r=0;} +S_23526:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_WHOLE,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(20054);if(r)goto S_23526;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_WHOLE,qbs_new_txt_len("0",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20054);}while(r); +} +S_23529:; +if ((*_FUNC_LINEFORMAT_LONG_FLOAT)||new_error){ +if(qbevent){evnt(20056);if(r)goto S_23529;} +do{ +*_FUNC_LINEFORMAT_LONG_DP= 1 ; +if(!qbevent)break;evnt(20057);}while(r); +S_23531:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_FRAC,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(20058);if(r)goto S_23531;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_FRAC,qbs_new_txt_len("0",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20058);}while(r); +} +} +S_23535:; +if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_LINEFORMAT_LONG_ED!= 0 ))&(qbs_equal(_FUNC_LINEFORMAT_STRING_EX,qbs_new_txt_len("",0)))))||new_error){ +if(qbevent){evnt(20061);if(r)goto S_23535;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_EX,qbs_new_txt_len("0",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20061);}while(r); +} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20063);}while(r); +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(_FUNC_LINEFORMAT_STRING_A2,_FUNC_LINEFORMAT_STRING_WHOLE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20064);}while(r); +S_23540:; +if ((*_FUNC_LINEFORMAT_LONG_DP)||new_error){ +if(qbevent){evnt(20065);if(r)goto S_23540;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,qbs_new_txt_len(".",1)),_FUNC_LINEFORMAT_STRING_FRAC)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20065);}while(r); +} +S_23543:; +if ((*_FUNC_LINEFORMAT_LONG_ED)||new_error){ +if(qbevent){evnt(20066);if(r)goto S_23543;} +S_23544:; +if ((-(*_FUNC_LINEFORMAT_LONG_ED== 1 ))||new_error){ +if(qbevent){evnt(20067);if(r)goto S_23544;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(_FUNC_LINEFORMAT_STRING_A2,qbs_new_txt_len("E",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20067);}while(r); +} +S_23547:; +if ((-(*_FUNC_LINEFORMAT_LONG_ED== 2 ))||new_error){ +if(qbevent){evnt(20068);if(r)goto S_23547;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(_FUNC_LINEFORMAT_STRING_A2,qbs_new_txt_len("D",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20068);}while(r); +} +S_23550:; +if ((-(*_FUNC_LINEFORMAT_LONG_ED== 3 ))||new_error){ +if(qbevent){evnt(20069);if(r)goto S_23550;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(_FUNC_LINEFORMAT_STRING_A2,qbs_new_txt_len("F",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20069);}while(r); +} +S_23553:; +if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_LINEFORMAT_LONG_PM== -1 ))&(qbs_notequal(_FUNC_LINEFORMAT_STRING_EX,qbs_new_txt_len("0",1)))))||new_error){ +if(qbevent){evnt(20070);if(r)goto S_23553;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(_FUNC_LINEFORMAT_STRING_A2,qbs_new_txt_len("-",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20070);}while(r); +}else{ +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(_FUNC_LINEFORMAT_STRING_A2,qbs_new_txt_len("+",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20070);}while(r); +} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(_FUNC_LINEFORMAT_STRING_A2,_FUNC_LINEFORMAT_STRING_EX)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20071);}while(r); +} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(_FUNC_LINEFORMAT_STRING_A2,_FUNC_LINEFORMAT_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20073);}while(r); +S_23561:; +if ((*_FUNC_LINEFORMAT_LONG_EXTUSED)||new_error){ +if(qbevent){evnt(20075);if(r)goto S_23561;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,qbs_new_txt_len(",",1)),func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_FIRSTI,*_FUNC_LINEFORMAT_LONG_I-*_FUNC_LINEFORMAT_LONG_FIRSTI,0|1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20075);}while(r); +} +do{ +goto LABEL_LINEFORMATNEXT; +if(!qbevent)break;evnt(20077);}while(r); +} +S_23566:; +if ((-(*_FUNC_LINEFORMAT_LONG_C== 38 ))||new_error){ +if(qbevent){evnt(20082);if(r)goto S_23566;} +S_23567:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I+ 1 , 1 ,0|1),qbs_new_txt_len("H",1))))||new_error){ +if(qbevent){evnt(20083);if(r)goto S_23567;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; +if(!qbevent)break;evnt(20084);}while(r); +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_HX,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20085);}while(r); +LABEL_LFREADHEX:; +if(qbevent){evnt(20086);r=0;} +S_23570:; +if ((-(*_FUNC_LINEFORMAT_LONG_I<=*_FUNC_LINEFORMAT_LONG_N))||new_error){ +if(qbevent){evnt(20087);if(r)goto S_23570;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_C,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 1 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20088);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_C=qbs_asc(_FUNC_LINEFORMAT_STRING_C); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20088);}while(r); +S_23573:; +if ((((-(*_FUNC_LINEFORMAT_LONG_C>= 48 ))&(-(*_FUNC_LINEFORMAT_LONG_C<= 57 )))|((-(*_FUNC_LINEFORMAT_LONG_C>= 65 ))&(-(*_FUNC_LINEFORMAT_LONG_C<= 70 ))))||new_error){ +if(qbevent){evnt(20089);if(r)goto S_23573;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_HX,qbs_add(_FUNC_LINEFORMAT_STRING_HX,_FUNC_LINEFORMAT_STRING_C)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20089);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; +if(!qbevent)break;evnt(20089);}while(r); +do{ +goto LABEL_LFREADHEX; +if(!qbevent)break;evnt(20089);}while(r); +} +} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_FULLHX,qbs_add(qbs_new_txt_len("&H",2),_FUNC_LINEFORMAT_STRING_HX)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20091);}while(r); +S_23580:; +while((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_LINEFORMAT_STRING_HX, 1 ),qbs_new_txt_len("0",1))))||new_error){ +if(qbevent){evnt(20094);if(r)goto S_23580;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_HX,qbs_right(_FUNC_LINEFORMAT_STRING_HX,_FUNC_LINEFORMAT_STRING_HX->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20094);}while(r); +dl_continue_2942:; +} +dl_exit_2942:; +S_23583:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_HX,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(20095);if(r)goto S_23583;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_HX,qbs_new_txt_len("0",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20095);}while(r); +} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20097);}while(r); +S_23587:; +if ((-(*_FUNC_LINEFORMAT_LONG_I<=(*_FUNC_LINEFORMAT_LONG_N- 2 )))||new_error){ +if(qbevent){evnt(20099);if(r)goto S_23587;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 3 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20100);}while(r); +S_23589:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~%%",3))))||new_error){ +if(qbevent){evnt(20101);if(r)goto S_23589;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 3 ; +if(!qbevent)break;evnt(20101);}while(r); +do{ +goto LABEL_LFHXEXT; +if(!qbevent)break;evnt(20101);}while(r); +} +S_23593:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~&&",3))))||new_error){ +if(qbevent){evnt(20102);if(r)goto S_23593;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 3 ; +if(!qbevent)break;evnt(20102);}while(r); +do{ +goto LABEL_LFHXEXT; +if(!qbevent)break;evnt(20102);}while(r); +} +S_23597:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~%&",3))))||new_error){ +if(qbevent){evnt(20103);if(r)goto S_23597;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Cannot use _OFFSET symbols after numbers",40)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20103);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20103);}while(r); +} +} +S_23602:; +if ((-(*_FUNC_LINEFORMAT_LONG_I<=(*_FUNC_LINEFORMAT_LONG_N- 1 )))||new_error){ +if(qbevent){evnt(20106);if(r)goto S_23602;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 2 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20107);}while(r); +S_23604:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%%",2))))||new_error){ +if(qbevent){evnt(20108);if(r)goto S_23604;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; +if(!qbevent)break;evnt(20108);}while(r); +do{ +goto LABEL_LFHXEXT; +if(!qbevent)break;evnt(20108);}while(r); +} +S_23608:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~%",2))))||new_error){ +if(qbevent){evnt(20109);if(r)goto S_23608;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; +if(!qbevent)break;evnt(20109);}while(r); +do{ +goto LABEL_LFHXEXT; +if(!qbevent)break;evnt(20109);}while(r); +} +S_23612:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&&",2))))||new_error){ +if(qbevent){evnt(20110);if(r)goto S_23612;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; +if(!qbevent)break;evnt(20110);}while(r); +do{ +goto LABEL_LFHXEXT; +if(!qbevent)break;evnt(20110);}while(r); +} +S_23616:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%&",2))))||new_error){ +if(qbevent){evnt(20111);if(r)goto S_23616;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Cannot use _OFFSET symbols after numbers",40)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20111);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20111);}while(r); +} +S_23620:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~&",2))))||new_error){ +if(qbevent){evnt(20112);if(r)goto S_23620;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; +if(!qbevent)break;evnt(20112);}while(r); +do{ +goto LABEL_LFHXEXT; +if(!qbevent)break;evnt(20112);}while(r); +} +S_23624:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~`",2))))||new_error){ +if(qbevent){evnt(20113);if(r)goto S_23624;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; +if(!qbevent)break;evnt(20114);}while(r); +do{ +goto LABEL_LFHXBITEXT; +if(!qbevent)break;evnt(20115);}while(r); +} +} +S_23629:; +if ((-(*_FUNC_LINEFORMAT_LONG_I<=*_FUNC_LINEFORMAT_LONG_N))||new_error){ +if(qbevent){evnt(20119);if(r)goto S_23629;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 1 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20120);}while(r); +S_23631:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%",1))))||new_error){ +if(qbevent){evnt(20121);if(r)goto S_23631;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; +if(!qbevent)break;evnt(20121);}while(r); +do{ +goto LABEL_LFHXEXT; +if(!qbevent)break;evnt(20121);}while(r); +} +S_23635:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&",1))))||new_error){ +if(qbevent){evnt(20122);if(r)goto S_23635;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; +if(!qbevent)break;evnt(20122);}while(r); +do{ +goto LABEL_LFHXEXT; +if(!qbevent)break;evnt(20122);}while(r); +} +S_23639:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("`",1))))||new_error){ +if(qbevent){evnt(20123);if(r)goto S_23639;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; +if(!qbevent)break;evnt(20124);}while(r); +LABEL_LFHXBITEXT:; +if(qbevent){evnt(20125);r=0;} +S_23641:; +while((-(*_FUNC_LINEFORMAT_LONG_I<=*_FUNC_LINEFORMAT_LONG_N))||new_error){ +if(qbevent){evnt(20126);if(r)goto S_23641;} +do{ +*_FUNC_LINEFORMAT_LONG_C2=qbs_asc(func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 1 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20127);}while(r); +S_23643:; +if (((-(*_FUNC_LINEFORMAT_LONG_C2>= 48 ))&(-(*_FUNC_LINEFORMAT_LONG_C2<= 57 )))||new_error){ +if(qbevent){evnt(20128);if(r)goto S_23643;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_add(_FUNC_LINEFORMAT_STRING_BITN,func_chr(*_FUNC_LINEFORMAT_LONG_C2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20129);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; +if(!qbevent)break;evnt(20130);}while(r); +}else{ +do{ +goto dl_exit_2944; +if(!qbevent)break;evnt(20132);}while(r); +} +dl_continue_2944:; +} +dl_exit_2944:; +S_23650:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_BITN,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(20135);if(r)goto S_23650;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_new_txt_len("1",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20135);}while(r); +} +S_23653:; +while((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_LINEFORMAT_STRING_BITN, 1 ),qbs_new_txt_len("0",1))))||new_error){ +if(qbevent){evnt(20137);if(r)goto S_23653;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_right(_FUNC_LINEFORMAT_STRING_BITN,_FUNC_LINEFORMAT_STRING_BITN->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20137);}while(r); +dl_continue_2945:; +} +dl_exit_2945:; +do{ +goto LABEL_LFHXEXT; +if(!qbevent)break;evnt(20138);}while(r); +} +} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&&",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20143);}while(r); +S_23660:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_LINEFORMAT_STRING_HX->len<= 8 )))||new_error){ +if(qbevent){evnt(20144);if(r)goto S_23660;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20144);}while(r); +} +S_23663:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_LINEFORMAT_STRING_HX->len<= 4 )))||new_error){ +if(qbevent){evnt(20145);if(r)goto S_23663;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20145);}while(r); +} +do{ +goto LABEL_LFHXEXT2; +if(!qbevent)break;evnt(20146);}while(r); +LABEL_LFHXEXT:; +if(qbevent){evnt(20147);r=0;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_FULLHX,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_FULLHX,_FUNC_LINEFORMAT_STRING_E),_FUNC_LINEFORMAT_STRING_BITN)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20148);}while(r); +LABEL_LFHXEXT2:; +if(qbevent){evnt(20149);r=0;} +S_23668:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_LINEFORMAT_STRING_HX->len> 16 )))||new_error){ +if(qbevent){evnt(20152);if(r)goto S_23668;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Overflow",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20152);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20152);}while(r); +} +do{ +*_FUNC_LINEFORMAT_UINTEGER64_V= 0 ; +if(!qbevent)break;evnt(20153);}while(r); +S_23673:; +fornext_value2951= 1 ; +fornext_finalvalue2951=_FUNC_LINEFORMAT_STRING_HX->len; +fornext_step2951= 1 ; +if (fornext_step2951<0) fornext_step_negative2951=1; else fornext_step_negative2951=0; +if (new_error) goto fornext_error2951; +goto fornext_entrylabel2951; +while(1){ +fornext_value2951=fornext_step2951+(*_FUNC_LINEFORMAT_LONG_I2); +fornext_entrylabel2951: +*_FUNC_LINEFORMAT_LONG_I2=fornext_value2951; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative2951){ +if (fornext_value2951fornext_finalvalue2951) break; +} +fornext_error2951:; +if(qbevent){evnt(20154);if(r)goto S_23673;} +do{ +*_FUNC_LINEFORMAT_LONG_V2=qbs_asc(func_mid(_FUNC_LINEFORMAT_STRING_HX,*_FUNC_LINEFORMAT_LONG_I2, 1 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20155);}while(r); +S_23675:; +if ((-(*_FUNC_LINEFORMAT_LONG_V2<= 57 ))||new_error){ +if(qbevent){evnt(20156);if(r)goto S_23675;} +do{ +*_FUNC_LINEFORMAT_LONG_V2=*_FUNC_LINEFORMAT_LONG_V2- 48 ; +if(!qbevent)break;evnt(20156);}while(r); +}else{ +do{ +*_FUNC_LINEFORMAT_LONG_V2=*_FUNC_LINEFORMAT_LONG_V2- 65 + 10 ; +if(!qbevent)break;evnt(20156);}while(r); +} +do{ +*_FUNC_LINEFORMAT_UINTEGER64_V=(*_FUNC_LINEFORMAT_UINTEGER64_V* 16 )+*_FUNC_LINEFORMAT_LONG_V2; +if(!qbevent)break;evnt(20157);}while(r); +fornext_continue_2950:; +} +fornext_exit_2950:; +LABEL_FINISHHEXOCTBIN:; +if(qbevent){evnt(20160);r=0;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_NUM,FUNC_STR2U64(_FUNC_LINEFORMAT_UINTEGER64_V)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20161);}while(r); +S_23683:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(_FUNC_LINEFORMAT_STRING_E, 1 ),qbs_new_txt_len("~",1))))||new_error){ +if(qbevent){evnt(20162);if(r)goto S_23683;} +S_23684:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%%",2))))||new_error){ +if(qbevent){evnt(20165);if(r)goto S_23684;} +S_23685:; +if ((-(*_FUNC_LINEFORMAT_UINTEGER64_V> 127 ))||new_error){ +if(qbevent){evnt(20166);if(r)goto S_23685;} +S_23686:; +if ((-(*_FUNC_LINEFORMAT_UINTEGER64_V> 255 ))||new_error){ +if(qbevent){evnt(20167);if(r)goto S_23686;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Overflow",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20167);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20167);}while(r); +} +do{ +*_FUNC_LINEFORMAT_UINTEGER64_V=((~(*_FUNC_LINEFORMAT_UINTEGER64_V))& 255 )+ 1 ; +if(!qbevent)break;evnt(20168);}while(r); +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_NUM,qbs_add(qbs_add(qbs_new_txt_len("-",1),__STRING1_SP),FUNC_STR2U64(_FUNC_LINEFORMAT_UINTEGER64_V))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20169);}while(r); +} +} +S_23694:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%",1))))||new_error){ +if(qbevent){evnt(20173);if(r)goto S_23694;} +S_23695:; +if ((-(*_FUNC_LINEFORMAT_UINTEGER64_V> 32767 ))||new_error){ +if(qbevent){evnt(20174);if(r)goto S_23695;} +S_23696:; +if ((-(*_FUNC_LINEFORMAT_UINTEGER64_V> 65535 ))||new_error){ +if(qbevent){evnt(20175);if(r)goto S_23696;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Overflow",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20175);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20175);}while(r); +} +do{ +*_FUNC_LINEFORMAT_UINTEGER64_V=((~(*_FUNC_LINEFORMAT_UINTEGER64_V))& 65535 )+ 1 ; +if(!qbevent)break;evnt(20176);}while(r); +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_NUM,qbs_add(qbs_add(qbs_new_txt_len("-",1),__STRING1_SP),FUNC_STR2U64(_FUNC_LINEFORMAT_UINTEGER64_V))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20177);}while(r); +} +} +S_23704:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&",1))))||new_error){ +if(qbevent){evnt(20181);if(r)goto S_23704;} +S_23705:; +if ((-(*_FUNC_LINEFORMAT_UINTEGER64_V> 2147483647 ))||new_error){ +if(qbevent){evnt(20182);if(r)goto S_23705;} +S_23706:; +if ((-(*_FUNC_LINEFORMAT_UINTEGER64_V> 4294967295ll ))||new_error){ +if(qbevent){evnt(20183);if(r)goto S_23706;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Overflow",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20183);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20183);}while(r); +} +do{ +*_FUNC_LINEFORMAT_UINTEGER64_V=((~(*_FUNC_LINEFORMAT_UINTEGER64_V))& 4294967295ll )+ 1 ; +if(!qbevent)break;evnt(20184);}while(r); +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_NUM,qbs_add(qbs_add(qbs_new_txt_len("-",1),__STRING1_SP),FUNC_STR2U64(_FUNC_LINEFORMAT_UINTEGER64_V))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20185);}while(r); +} +} +S_23714:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&&",2))))||new_error){ +if(qbevent){evnt(20189);if(r)goto S_23714;} +S_23715:; +if ((-(*_FUNC_LINEFORMAT_UINTEGER64_V> 9223372036854775807ll ))||new_error){ +if(qbevent){evnt(20190);if(r)goto S_23715;} +do{ +*_FUNC_LINEFORMAT_UINTEGER64_V=(~(*_FUNC_LINEFORMAT_UINTEGER64_V))+ 1 ; +if(!qbevent)break;evnt(20192);}while(r); +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_NUM,qbs_add(qbs_add(qbs_new_txt_len("-",1),__STRING1_SP),FUNC_STR2U64(_FUNC_LINEFORMAT_UINTEGER64_V))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20193);}while(r); +} +} +S_23720:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("`",1))))||new_error){ +if(qbevent){evnt(20197);if(r)goto S_23720;} +do{ +*_FUNC_LINEFORMAT_LONG_VBITN=qbr(func_val(_FUNC_LINEFORMAT_STRING_BITN)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20198);}while(r); +do{ +*_FUNC_LINEFORMAT_UINTEGER64_H= 1 ; +if(!qbevent)break;evnt(20199);}while(r); +S_23723:; +fornext_value2954= 1 ; +fornext_finalvalue2954=*_FUNC_LINEFORMAT_LONG_VBITN- 1 ; +fornext_step2954= 1 ; +if (fornext_step2954<0) fornext_step_negative2954=1; else fornext_step_negative2954=0; +if (new_error) goto fornext_error2954; +goto fornext_entrylabel2954; +while(1){ +fornext_value2954=fornext_step2954+(*_FUNC_LINEFORMAT_LONG_I2); +fornext_entrylabel2954: +*_FUNC_LINEFORMAT_LONG_I2=fornext_value2954; +if (fornext_step_negative2954){ +if (fornext_value2954fornext_finalvalue2954) break; +} +fornext_error2954:; +if(qbevent){evnt(20199);if(r)goto S_23723;} +do{ +*_FUNC_LINEFORMAT_UINTEGER64_H=*_FUNC_LINEFORMAT_UINTEGER64_H* 2 ; +if(!qbevent)break;evnt(20199);}while(r); +fornext_continue_2953:; +} +fornext_exit_2953:; +do{ +*_FUNC_LINEFORMAT_UINTEGER64_H=*_FUNC_LINEFORMAT_UINTEGER64_H- 1 ; +if(!qbevent)break;evnt(20199);}while(r); +S_23727:; +if ((-(*_FUNC_LINEFORMAT_UINTEGER64_V>*_FUNC_LINEFORMAT_UINTEGER64_H))||new_error){ +if(qbevent){evnt(20200);if(r)goto S_23727;} +do{ +*_FUNC_LINEFORMAT_UINTEGER64_H= 1 ; +if(!qbevent)break;evnt(20201);}while(r); +S_23729:; +fornext_value2956= 1 ; +fornext_finalvalue2956=*_FUNC_LINEFORMAT_LONG_VBITN; +fornext_step2956= 1 ; +if (fornext_step2956<0) fornext_step_negative2956=1; else fornext_step_negative2956=0; +if (new_error) goto fornext_error2956; +goto fornext_entrylabel2956; +while(1){ +fornext_value2956=fornext_step2956+(*_FUNC_LINEFORMAT_LONG_I2); +fornext_entrylabel2956: +*_FUNC_LINEFORMAT_LONG_I2=fornext_value2956; +if (fornext_step_negative2956){ +if (fornext_value2956fornext_finalvalue2956) break; +} +fornext_error2956:; +if(qbevent){evnt(20201);if(r)goto S_23729;} +do{ +*_FUNC_LINEFORMAT_UINTEGER64_H=*_FUNC_LINEFORMAT_UINTEGER64_H* 2 ; +if(!qbevent)break;evnt(20201);}while(r); +fornext_continue_2955:; +} +fornext_exit_2955:; +do{ +*_FUNC_LINEFORMAT_UINTEGER64_H=*_FUNC_LINEFORMAT_UINTEGER64_H- 1 ; +if(!qbevent)break;evnt(20201);}while(r); +S_23733:; +if ((-(*_FUNC_LINEFORMAT_UINTEGER64_V>*_FUNC_LINEFORMAT_UINTEGER64_H))||new_error){ +if(qbevent){evnt(20202);if(r)goto S_23733;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Overflow",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20202);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20202);}while(r); +} +do{ +*_FUNC_LINEFORMAT_UINTEGER64_V=((~(*_FUNC_LINEFORMAT_UINTEGER64_V))&*_FUNC_LINEFORMAT_UINTEGER64_H)+ 1 ; +if(!qbevent)break;evnt(20203);}while(r); +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_NUM,qbs_add(qbs_add(qbs_new_txt_len("-",1),__STRING1_SP),FUNC_STR2U64(_FUNC_LINEFORMAT_UINTEGER64_V))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20204);}while(r); +} +} +} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),_FUNC_LINEFORMAT_STRING_NUM),_FUNC_LINEFORMAT_STRING_E),_FUNC_LINEFORMAT_STRING_BITN),qbs_new_txt_len(",",1)),_FUNC_LINEFORMAT_STRING_FULLHX)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20210);}while(r); +do{ +goto LABEL_LINEFORMATNEXT; +if(!qbevent)break;evnt(20212);}while(r); +} +} +S_23746:; +if ((-(*_FUNC_LINEFORMAT_LONG_C== 38 ))||new_error){ +if(qbevent){evnt(20218);if(r)goto S_23746;} +S_23747:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I+ 1 , 1 ,0|1),qbs_new_txt_len("O",1))))||new_error){ +if(qbevent){evnt(20219);if(r)goto S_23747;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; +if(!qbevent)break;evnt(20220);}while(r); +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_HX,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20222);}while(r); +LABEL_LFREADOCT:; +if(qbevent){evnt(20223);r=0;} +S_23750:; +if ((-(*_FUNC_LINEFORMAT_LONG_I<=*_FUNC_LINEFORMAT_LONG_N))||new_error){ +if(qbevent){evnt(20224);if(r)goto S_23750;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_C,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 1 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20225);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_C=qbs_asc(_FUNC_LINEFORMAT_STRING_C); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20225);}while(r); +S_23753:; +if (((-(*_FUNC_LINEFORMAT_LONG_C>= 48 ))&(-(*_FUNC_LINEFORMAT_LONG_C<= 55 )))||new_error){ +if(qbevent){evnt(20226);if(r)goto S_23753;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_HX,qbs_add(_FUNC_LINEFORMAT_STRING_HX,_FUNC_LINEFORMAT_STRING_C)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20226);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; +if(!qbevent)break;evnt(20226);}while(r); +do{ +goto LABEL_LFREADOCT; +if(!qbevent)break;evnt(20226);}while(r); +} +} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_FULLHX,qbs_add(qbs_new_txt_len("&O",2),_FUNC_LINEFORMAT_STRING_HX)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20228);}while(r); +S_23760:; +while((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_LINEFORMAT_STRING_HX, 1 ),qbs_new_txt_len("0",1))))||new_error){ +if(qbevent){evnt(20231);if(r)goto S_23760;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_HX,qbs_right(_FUNC_LINEFORMAT_STRING_HX,_FUNC_LINEFORMAT_STRING_HX->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20231);}while(r); +dl_continue_2957:; +} +dl_exit_2957:; +S_23763:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_HX,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(20232);if(r)goto S_23763;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_HX,qbs_new_txt_len("0",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20232);}while(r); +} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20234);}while(r); +S_23767:; +if ((-(*_FUNC_LINEFORMAT_LONG_I<=(*_FUNC_LINEFORMAT_LONG_N- 2 )))||new_error){ +if(qbevent){evnt(20236);if(r)goto S_23767;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 3 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20237);}while(r); +S_23769:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~%%",3))))||new_error){ +if(qbevent){evnt(20238);if(r)goto S_23769;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 3 ; +if(!qbevent)break;evnt(20238);}while(r); +do{ +goto LABEL_LFOTEXT; +if(!qbevent)break;evnt(20238);}while(r); +} +S_23773:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~&&",3))))||new_error){ +if(qbevent){evnt(20239);if(r)goto S_23773;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 3 ; +if(!qbevent)break;evnt(20239);}while(r); +do{ +goto LABEL_LFOTEXT; +if(!qbevent)break;evnt(20239);}while(r); +} +S_23777:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~%&",3))))||new_error){ +if(qbevent){evnt(20240);if(r)goto S_23777;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Cannot use _OFFSET symbols after numbers",40)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20240);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20240);}while(r); +} +} +S_23782:; +if ((-(*_FUNC_LINEFORMAT_LONG_I<=(*_FUNC_LINEFORMAT_LONG_N- 1 )))||new_error){ +if(qbevent){evnt(20243);if(r)goto S_23782;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 2 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20244);}while(r); +S_23784:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%%",2))))||new_error){ +if(qbevent){evnt(20245);if(r)goto S_23784;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; +if(!qbevent)break;evnt(20245);}while(r); +do{ +goto LABEL_LFOTEXT; +if(!qbevent)break;evnt(20245);}while(r); +} +S_23788:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~%",2))))||new_error){ +if(qbevent){evnt(20246);if(r)goto S_23788;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; +if(!qbevent)break;evnt(20246);}while(r); +do{ +goto LABEL_LFOTEXT; +if(!qbevent)break;evnt(20246);}while(r); +} +S_23792:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&&",2))))||new_error){ +if(qbevent){evnt(20247);if(r)goto S_23792;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; +if(!qbevent)break;evnt(20247);}while(r); +do{ +goto LABEL_LFOTEXT; +if(!qbevent)break;evnt(20247);}while(r); +} +S_23796:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%&",2))))||new_error){ +if(qbevent){evnt(20248);if(r)goto S_23796;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Cannot use _OFFSET symbols after numbers",40)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20248);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20248);}while(r); +} +S_23800:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~&",2))))||new_error){ +if(qbevent){evnt(20249);if(r)goto S_23800;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; +if(!qbevent)break;evnt(20249);}while(r); +do{ +goto LABEL_LFOTEXT; +if(!qbevent)break;evnt(20249);}while(r); +} +S_23804:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~`",2))))||new_error){ +if(qbevent){evnt(20250);if(r)goto S_23804;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; +if(!qbevent)break;evnt(20251);}while(r); +do{ +goto LABEL_LFOTBITEXT; +if(!qbevent)break;evnt(20252);}while(r); +} +} +S_23809:; +if ((-(*_FUNC_LINEFORMAT_LONG_I<=*_FUNC_LINEFORMAT_LONG_N))||new_error){ +if(qbevent){evnt(20256);if(r)goto S_23809;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 1 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20257);}while(r); +S_23811:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%",1))))||new_error){ +if(qbevent){evnt(20258);if(r)goto S_23811;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; +if(!qbevent)break;evnt(20258);}while(r); +do{ +goto LABEL_LFOTEXT; +if(!qbevent)break;evnt(20258);}while(r); +} +S_23815:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&",1))))||new_error){ +if(qbevent){evnt(20259);if(r)goto S_23815;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; +if(!qbevent)break;evnt(20259);}while(r); +do{ +goto LABEL_LFOTEXT; +if(!qbevent)break;evnt(20259);}while(r); +} +S_23819:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("`",1))))||new_error){ +if(qbevent){evnt(20260);if(r)goto S_23819;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; +if(!qbevent)break;evnt(20261);}while(r); +LABEL_LFOTBITEXT:; +if(qbevent){evnt(20262);r=0;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20263);}while(r); +S_23822:; +while((-(*_FUNC_LINEFORMAT_LONG_I<=*_FUNC_LINEFORMAT_LONG_N))||new_error){ +if(qbevent){evnt(20264);if(r)goto S_23822;} +do{ +*_FUNC_LINEFORMAT_LONG_C2=qbs_asc(func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 1 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20265);}while(r); +S_23824:; +if (((-(*_FUNC_LINEFORMAT_LONG_C2>= 48 ))&(-(*_FUNC_LINEFORMAT_LONG_C2<= 57 )))||new_error){ +if(qbevent){evnt(20266);if(r)goto S_23824;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_add(_FUNC_LINEFORMAT_STRING_BITN,func_chr(*_FUNC_LINEFORMAT_LONG_C2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20267);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; +if(!qbevent)break;evnt(20268);}while(r); +}else{ +do{ +goto dl_exit_2959; +if(!qbevent)break;evnt(20270);}while(r); +} +dl_continue_2959:; +} +dl_exit_2959:; +S_23831:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_BITN,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(20273);if(r)goto S_23831;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_new_txt_len("1",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20273);}while(r); +} +S_23834:; +while((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_LINEFORMAT_STRING_BITN, 1 ),qbs_new_txt_len("0",1))))||new_error){ +if(qbevent){evnt(20275);if(r)goto S_23834;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_right(_FUNC_LINEFORMAT_STRING_BITN,_FUNC_LINEFORMAT_STRING_BITN->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20275);}while(r); +dl_continue_2960:; +} +dl_exit_2960:; +do{ +goto LABEL_LFOTEXT; +if(!qbevent)break;evnt(20276);}while(r); +} +} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&&",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20281);}while(r); +S_23841:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_LINEFORMAT_STRING_HX->len<= 11 )))||new_error){ +if(qbevent){evnt(20283);if(r)goto S_23841;} +S_23842:; +if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_LINEFORMAT_STRING_HX->len< 11 ))|(-(qbs_asc(qbs_left(_FUNC_LINEFORMAT_STRING_HX, 1 ))<= 51 ))))||new_error){ +if(qbevent){evnt(20284);if(r)goto S_23842;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20284);}while(r); +} +} +S_23846:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_LINEFORMAT_STRING_HX->len<= 6 )))||new_error){ +if(qbevent){evnt(20287);if(r)goto S_23846;} +S_23847:; +if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_LINEFORMAT_STRING_HX->len< 6 ))|(qbs_equal(qbs_left(_FUNC_LINEFORMAT_STRING_HX, 1 ),qbs_new_txt_len("1",1)))))||new_error){ +if(qbevent){evnt(20288);if(r)goto S_23847;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20288);}while(r); +} +} +do{ +goto LABEL_LFOTEXT2; +if(!qbevent)break;evnt(20291);}while(r); +LABEL_LFOTEXT:; +if(qbevent){evnt(20292);r=0;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_FULLHX,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_FULLHX,_FUNC_LINEFORMAT_STRING_E),_FUNC_LINEFORMAT_STRING_BITN)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20293);}while(r); +LABEL_LFOTEXT2:; +if(qbevent){evnt(20294);r=0;} +S_23853:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_LINEFORMAT_STRING_HX->len> 22 )))||new_error){ +if(qbevent){evnt(20298);if(r)goto S_23853;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Overflow",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20298);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20298);}while(r); +} +S_23857:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_LINEFORMAT_STRING_HX->len== 22 )))||new_error){ +if(qbevent){evnt(20299);if(r)goto S_23857;} +S_23858:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(_FUNC_LINEFORMAT_STRING_HX, 1 ),qbs_new_txt_len("1",1))))||new_error){ +if(qbevent){evnt(20300);if(r)goto S_23858;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Overflow",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20300);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20300);}while(r); +} +} +do{ +*_FUNC_LINEFORMAT_UINTEGER64_V= 0 ; +if(!qbevent)break;evnt(20303);}while(r); +S_23864:; +fornext_value2969= 1 ; +fornext_finalvalue2969=_FUNC_LINEFORMAT_STRING_HX->len; +fornext_step2969= 1 ; +if (fornext_step2969<0) fornext_step_negative2969=1; else fornext_step_negative2969=0; +if (new_error) goto fornext_error2969; +goto fornext_entrylabel2969; +while(1){ +fornext_value2969=fornext_step2969+(*_FUNC_LINEFORMAT_LONG_I2); +fornext_entrylabel2969: +*_FUNC_LINEFORMAT_LONG_I2=fornext_value2969; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative2969){ +if (fornext_value2969fornext_finalvalue2969) break; +} +fornext_error2969:; +if(qbevent){evnt(20304);if(r)goto S_23864;} +do{ +*_FUNC_LINEFORMAT_LONG_V2=qbs_asc(func_mid(_FUNC_LINEFORMAT_STRING_HX,*_FUNC_LINEFORMAT_LONG_I2, 1 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20305);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_V2=*_FUNC_LINEFORMAT_LONG_V2- 48 ; +if(!qbevent)break;evnt(20306);}while(r); +do{ +*_FUNC_LINEFORMAT_UINTEGER64_V=(*_FUNC_LINEFORMAT_UINTEGER64_V* 8 )+*_FUNC_LINEFORMAT_LONG_V2; +if(!qbevent)break;evnt(20307);}while(r); +fornext_continue_2968:; +} +fornext_exit_2968:; +do{ +goto LABEL_FINISHHEXOCTBIN; +if(!qbevent)break;evnt(20310);}while(r); +} +} +S_23872:; +if ((-(*_FUNC_LINEFORMAT_LONG_C== 38 ))||new_error){ +if(qbevent){evnt(20316);if(r)goto S_23872;} +S_23873:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I+ 1 , 1 ,0|1),qbs_new_txt_len("B",1))))||new_error){ +if(qbevent){evnt(20317);if(r)goto S_23873;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; +if(!qbevent)break;evnt(20318);}while(r); +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_HX,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20320);}while(r); +LABEL_LFREADBIN:; +if(qbevent){evnt(20321);r=0;} +S_23876:; +if ((-(*_FUNC_LINEFORMAT_LONG_I<=*_FUNC_LINEFORMAT_LONG_N))||new_error){ +if(qbevent){evnt(20322);if(r)goto S_23876;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_C,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 1 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20323);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_C=qbs_asc(_FUNC_LINEFORMAT_STRING_C); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20323);}while(r); +S_23879:; +if (((-(*_FUNC_LINEFORMAT_LONG_C>= 48 ))&(-(*_FUNC_LINEFORMAT_LONG_C<= 49 )))||new_error){ +if(qbevent){evnt(20324);if(r)goto S_23879;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_HX,qbs_add(_FUNC_LINEFORMAT_STRING_HX,_FUNC_LINEFORMAT_STRING_C)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20324);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; +if(!qbevent)break;evnt(20324);}while(r); +do{ +goto LABEL_LFREADBIN; +if(!qbevent)break;evnt(20324);}while(r); +} +} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_FULLHX,qbs_add(qbs_new_txt_len("&B",2),_FUNC_LINEFORMAT_STRING_HX)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20326);}while(r); +S_23886:; +while((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_LINEFORMAT_STRING_HX, 1 ),qbs_new_txt_len("0",1))))||new_error){ +if(qbevent){evnt(20329);if(r)goto S_23886;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_HX,qbs_right(_FUNC_LINEFORMAT_STRING_HX,_FUNC_LINEFORMAT_STRING_HX->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20329);}while(r); +dl_continue_2971:; +} +dl_exit_2971:; +S_23889:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_HX,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(20330);if(r)goto S_23889;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_HX,qbs_new_txt_len("0",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20330);}while(r); +} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20332);}while(r); +S_23893:; +if ((-(*_FUNC_LINEFORMAT_LONG_I<=(*_FUNC_LINEFORMAT_LONG_N- 2 )))||new_error){ +if(qbevent){evnt(20334);if(r)goto S_23893;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 3 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20335);}while(r); +S_23895:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~%%",3))))||new_error){ +if(qbevent){evnt(20336);if(r)goto S_23895;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 3 ; +if(!qbevent)break;evnt(20336);}while(r); +do{ +goto LABEL_LFBIEXT; +if(!qbevent)break;evnt(20336);}while(r); +} +S_23899:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~&&",3))))||new_error){ +if(qbevent){evnt(20337);if(r)goto S_23899;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 3 ; +if(!qbevent)break;evnt(20337);}while(r); +do{ +goto LABEL_LFBIEXT; +if(!qbevent)break;evnt(20337);}while(r); +} +S_23903:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~%&",3))))||new_error){ +if(qbevent){evnt(20338);if(r)goto S_23903;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Cannot use _OFFSET symbols after numbers",40)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20338);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20338);}while(r); +} +} +S_23908:; +if ((-(*_FUNC_LINEFORMAT_LONG_I<=(*_FUNC_LINEFORMAT_LONG_N- 1 )))||new_error){ +if(qbevent){evnt(20341);if(r)goto S_23908;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 2 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20342);}while(r); +S_23910:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%%",2))))||new_error){ +if(qbevent){evnt(20343);if(r)goto S_23910;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; +if(!qbevent)break;evnt(20343);}while(r); +do{ +goto LABEL_LFBIEXT; +if(!qbevent)break;evnt(20343);}while(r); +} +S_23914:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~%",2))))||new_error){ +if(qbevent){evnt(20344);if(r)goto S_23914;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; +if(!qbevent)break;evnt(20344);}while(r); +do{ +goto LABEL_LFBIEXT; +if(!qbevent)break;evnt(20344);}while(r); +} +S_23918:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&&",2))))||new_error){ +if(qbevent){evnt(20345);if(r)goto S_23918;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; +if(!qbevent)break;evnt(20345);}while(r); +do{ +goto LABEL_LFBIEXT; +if(!qbevent)break;evnt(20345);}while(r); +} +S_23922:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%&",2))))||new_error){ +if(qbevent){evnt(20346);if(r)goto S_23922;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Cannot use _OFFSET symbols after numbers",40)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20346);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20346);}while(r); +} +S_23926:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~&",2))))||new_error){ +if(qbevent){evnt(20347);if(r)goto S_23926;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; +if(!qbevent)break;evnt(20347);}while(r); +do{ +goto LABEL_LFBIEXT; +if(!qbevent)break;evnt(20347);}while(r); +} +S_23930:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("~`",2))))||new_error){ +if(qbevent){evnt(20348);if(r)goto S_23930;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 2 ; +if(!qbevent)break;evnt(20349);}while(r); +do{ +goto LABEL_LFBIBITEXT; +if(!qbevent)break;evnt(20350);}while(r); +} +} +S_23935:; +if ((-(*_FUNC_LINEFORMAT_LONG_I<=*_FUNC_LINEFORMAT_LONG_N))||new_error){ +if(qbevent){evnt(20356);if(r)goto S_23935;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 1 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20357);}while(r); +S_23937:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%",1))))||new_error){ +if(qbevent){evnt(20358);if(r)goto S_23937;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; +if(!qbevent)break;evnt(20358);}while(r); +do{ +goto LABEL_LFBIEXT; +if(!qbevent)break;evnt(20358);}while(r); +} +S_23941:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&",1))))||new_error){ +if(qbevent){evnt(20359);if(r)goto S_23941;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; +if(!qbevent)break;evnt(20359);}while(r); +do{ +goto LABEL_LFBIEXT; +if(!qbevent)break;evnt(20359);}while(r); +} +S_23945:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("`",1))))||new_error){ +if(qbevent){evnt(20360);if(r)goto S_23945;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; +if(!qbevent)break;evnt(20361);}while(r); +LABEL_LFBIBITEXT:; +if(qbevent){evnt(20362);r=0;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20363);}while(r); +S_23948:; +while((-(*_FUNC_LINEFORMAT_LONG_I<=*_FUNC_LINEFORMAT_LONG_N))||new_error){ +if(qbevent){evnt(20364);if(r)goto S_23948;} +do{ +*_FUNC_LINEFORMAT_LONG_C2=qbs_asc(func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I, 1 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20365);}while(r); +S_23950:; +if (((-(*_FUNC_LINEFORMAT_LONG_C2>= 48 ))&(-(*_FUNC_LINEFORMAT_LONG_C2<= 57 )))||new_error){ +if(qbevent){evnt(20366);if(r)goto S_23950;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_add(_FUNC_LINEFORMAT_STRING_BITN,func_chr(*_FUNC_LINEFORMAT_LONG_C2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20367);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; +if(!qbevent)break;evnt(20368);}while(r); +}else{ +do{ +goto dl_exit_2973; +if(!qbevent)break;evnt(20370);}while(r); +} +dl_continue_2973:; +} +dl_exit_2973:; +S_23957:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_BITN,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(20373);if(r)goto S_23957;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_new_txt_len("1",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20373);}while(r); +} +S_23960:; +while((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_LINEFORMAT_STRING_BITN, 1 ),qbs_new_txt_len("0",1))))||new_error){ +if(qbevent){evnt(20375);if(r)goto S_23960;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_BITN,qbs_right(_FUNC_LINEFORMAT_STRING_BITN,_FUNC_LINEFORMAT_STRING_BITN->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20375);}while(r); +dl_continue_2974:; +} +dl_exit_2974:; +do{ +goto LABEL_LFBIEXT; +if(!qbevent)break;evnt(20376);}while(r); +} +} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&&",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20381);}while(r); +S_23967:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_LINEFORMAT_STRING_HX->len<= 32 )))||new_error){ +if(qbevent){evnt(20382);if(r)goto S_23967;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("&",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20382);}while(r); +} +S_23970:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_LINEFORMAT_STRING_HX->len<= 16 )))||new_error){ +if(qbevent){evnt(20383);if(r)goto S_23970;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("%",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20383);}while(r); +} +do{ +goto LABEL_LFBIEXT2; +if(!qbevent)break;evnt(20385);}while(r); +LABEL_LFBIEXT:; +if(qbevent){evnt(20386);r=0;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_FULLHX,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_FULLHX,_FUNC_LINEFORMAT_STRING_E),_FUNC_LINEFORMAT_STRING_BITN)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20387);}while(r); +LABEL_LFBIEXT2:; +if(qbevent){evnt(20388);r=0;} +S_23975:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_LINEFORMAT_STRING_HX->len> 64 )))||new_error){ +if(qbevent){evnt(20391);if(r)goto S_23975;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Overflow",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20391);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20391);}while(r); +} +do{ +*_FUNC_LINEFORMAT_UINTEGER64_V= 0 ; +if(!qbevent)break;evnt(20393);}while(r); +S_23980:; +fornext_value2980= 1 ; +fornext_finalvalue2980=_FUNC_LINEFORMAT_STRING_HX->len; +fornext_step2980= 1 ; +if (fornext_step2980<0) fornext_step_negative2980=1; else fornext_step_negative2980=0; +if (new_error) goto fornext_error2980; +goto fornext_entrylabel2980; +while(1){ +fornext_value2980=fornext_step2980+(*_FUNC_LINEFORMAT_LONG_I2); +fornext_entrylabel2980: +*_FUNC_LINEFORMAT_LONG_I2=fornext_value2980; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative2980){ +if (fornext_value2980fornext_finalvalue2980) break; +} +fornext_error2980:; +if(qbevent){evnt(20394);if(r)goto S_23980;} +do{ +*_FUNC_LINEFORMAT_LONG_V2=qbs_asc(func_mid(_FUNC_LINEFORMAT_STRING_HX,*_FUNC_LINEFORMAT_LONG_I2, 1 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20395);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_V2=*_FUNC_LINEFORMAT_LONG_V2- 48 ; +if(!qbevent)break;evnt(20396);}while(r); +do{ +*_FUNC_LINEFORMAT_UINTEGER64_V=(*_FUNC_LINEFORMAT_UINTEGER64_V* 2 )+*_FUNC_LINEFORMAT_LONG_V2; +if(!qbevent)break;evnt(20397);}while(r); +fornext_continue_2979:; +} +fornext_exit_2979:; +do{ +goto LABEL_FINISHHEXOCTBIN; +if(!qbevent)break;evnt(20400);}while(r); +} +} +S_23988:; +if ((-(*_FUNC_LINEFORMAT_LONG_C== 38 ))||new_error){ +if(qbevent){evnt(20406);if(r)goto S_23988;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected &H... or &O...",23)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20406);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20406);}while(r); +} +S_23992:; +if (((((-(*_FUNC_LINEFORMAT_LONG_C>= 65 ))&(-(*_FUNC_LINEFORMAT_LONG_C<= 90 ))))|(-(*_FUNC_LINEFORMAT_LONG_C== 95 )))||new_error){ +if(qbevent){evnt(20410);if(r)goto S_23992;} +S_23993:; +if ((-(*_FUNC_LINEFORMAT_LONG_C== 95 ))||new_error){ +if(qbevent){evnt(20411);if(r)goto S_23993;} +do{ +*_FUNC_LINEFORMAT_LONG_P2= 0 ; +if(!qbevent)break;evnt(20411);}while(r); +}else{ +do{ +*_FUNC_LINEFORMAT_LONG_P2=*_FUNC_LINEFORMAT_LONG_I; +if(!qbevent)break;evnt(20411);}while(r); +} +S_23998:; +fornext_value2983=*_FUNC_LINEFORMAT_LONG_I+ 1 ; +fornext_finalvalue2983=*_FUNC_LINEFORMAT_LONG_N; +fornext_step2983= 1 ; +if (fornext_step2983<0) fornext_step_negative2983=1; else fornext_step_negative2983=0; +if (new_error) goto fornext_error2983; +goto fornext_entrylabel2983; +while(1){ +fornext_value2983=fornext_step2983+(*_FUNC_LINEFORMAT_LONG_I2); +fornext_entrylabel2983: +*_FUNC_LINEFORMAT_LONG_I2=fornext_value2983; +if (fornext_step_negative2983){ +if (fornext_value2983fornext_finalvalue2983) break; +} +fornext_error2983:; +if(qbevent){evnt(20412);if(r)goto S_23998;} +do{ +*_FUNC_LINEFORMAT_LONG_C2=qbs_asc(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20413);}while(r); +S_24000:; +if ((~(((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((*_FUNC_LINEFORMAT_LONG_C2)-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]))||new_error){ +if(qbevent){evnt(20414);if(r)goto S_24000;} +do{ +goto fornext_exit_2982; +if(!qbevent)break;evnt(20414);}while(r); +} +S_24003:; +if ((-(*_FUNC_LINEFORMAT_LONG_C2!= 95 ))||new_error){ +if(qbevent){evnt(20415);if(r)goto S_24003;} +do{ +*_FUNC_LINEFORMAT_LONG_P2=*_FUNC_LINEFORMAT_LONG_I2; +if(!qbevent)break;evnt(20415);}while(r); +} +fornext_continue_2982:; +} +fornext_exit_2982:; +S_24007:; +if ((*_FUNC_LINEFORMAT_LONG_P2)||new_error){ +if(qbevent){evnt(20417);if(r)goto S_24007;} +do{ +*_FUNC_LINEFORMAT_LONG_N2=*_FUNC_LINEFORMAT_LONG_P2-*_FUNC_LINEFORMAT_LONG_I+ 1 ; +if(!qbevent)break;evnt(20419);}while(r); +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_A3,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I,*_FUNC_LINEFORMAT_LONG_N2,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20420);}while(r); +S_24010:; +if ((-(*_FUNC_LINEFORMAT_LONG_N2== 3 ))||new_error){ +if(qbevent){evnt(20423);if(r)goto S_24010;} +S_24011:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_A3,qbs_new_txt_len("REM",3))))||new_error){ +if(qbevent){evnt(20424);if(r)goto S_24011;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+*_FUNC_LINEFORMAT_LONG_N2; +if(!qbevent)break;evnt(20425);}while(r); +S_24013:; +if ((-(*_FUNC_LINEFORMAT_LONG_I<*_FUNC_LINEFORMAT_LONG_N))||new_error){ +if(qbevent){evnt(20426);if(r)goto S_24013;} +do{ +*_FUNC_LINEFORMAT_LONG_C=qbs_asc(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20427);}while(r); +S_24015:; +if ((-(*_FUNC_LINEFORMAT_LONG_C== 46 ))||new_error){ +if(qbevent){evnt(20428);if(r)goto S_24015;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),func_mid(_FUNC_LINEFORMAT_STRING_CA,*_FUNC_LINEFORMAT_LONG_I-*_FUNC_LINEFORMAT_LONG_N2,*_FUNC_LINEFORMAT_LONG_N2,0|1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20428);}while(r); +do{ +goto LABEL_EXTCHECK; +if(!qbevent)break;evnt(20428);}while(r); +} +} +S_24020:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal((qbs_ucase(qbs_right(_FUNC_LINEFORMAT_STRING_A2, 5 ))),(qbs_add(__STRING1_SP,qbs_new_txt_len("THEN",4))))))||new_error){ +if(qbevent){evnt(20432);if(r)goto S_24020;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),qbs_new_txt_len("'",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20432);}while(r); +} +do{ +qbs_set(__STRING_LAYOUTCOMMENT,FUNC_SCASE(qbs_new_txt_len("Rem",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20433);}while(r); +do{ +goto LABEL_COMMENT; +if(!qbevent)break;evnt(20434);}while(r); +} +} +S_24027:; +if ((-(*_FUNC_LINEFORMAT_LONG_N2== 4 ))||new_error){ +if(qbevent){evnt(20439);if(r)goto S_24027;} +S_24028:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_A3,qbs_new_txt_len("DATA",4))))||new_error){ +if(qbevent){evnt(20440);if(r)goto S_24028;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_X,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20441);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+*_FUNC_LINEFORMAT_LONG_N2; +if(!qbevent)break;evnt(20442);}while(r); +S_24031:; +if ((-(*_FUNC_LINEFORMAT_LONG_I<*_FUNC_LINEFORMAT_LONG_N))||new_error){ +if(qbevent){evnt(20443);if(r)goto S_24031;} +do{ +*_FUNC_LINEFORMAT_LONG_C=qbs_asc(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20444);}while(r); +S_24033:; +if ((-(*_FUNC_LINEFORMAT_LONG_C== 46 ))||new_error){ +if(qbevent){evnt(20445);if(r)goto S_24033;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),func_mid(_FUNC_LINEFORMAT_STRING_CA,*_FUNC_LINEFORMAT_LONG_I-*_FUNC_LINEFORMAT_LONG_N2,*_FUNC_LINEFORMAT_LONG_N2,0|1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20445);}while(r); +do{ +goto LABEL_EXTCHECK; +if(!qbevent)break;evnt(20445);}while(r); +} +} +do{ +*_FUNC_LINEFORMAT_LONG_SCAN= 0 ; +if(!qbevent)break;evnt(20448);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_SPEECHMARKS= 0 ; +if(!qbevent)break;evnt(20449);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_COMMANEXT= 0 ; +if(!qbevent)break;evnt(20450);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_FINALDATA= 0 ; +if(!qbevent)break;evnt(20451);}while(r); +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20452);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_P1= 0 ; +if(!qbevent)break;evnt(20453);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_P2= 0 ; +if(!qbevent)break;evnt(20454);}while(r); +LABEL_NEXTDATACHR:; +if(qbevent){evnt(20455);r=0;} +S_24045:; +if ((-(*_FUNC_LINEFORMAT_LONG_I<*_FUNC_LINEFORMAT_LONG_N))||new_error){ +if(qbevent){evnt(20456);if(r)goto S_24045;} +do{ +*_FUNC_LINEFORMAT_LONG_C=qbs_asc(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20457);}while(r); +S_24047:; +if (((-(*_FUNC_LINEFORMAT_LONG_C== 9 ))|(-(*_FUNC_LINEFORMAT_LONG_C== 32 )))||new_error){ +if(qbevent){evnt(20458);if(r)goto S_24047;} +S_24048:; +if ((-(*_FUNC_LINEFORMAT_LONG_SCAN== 0 ))||new_error){ +if(qbevent){evnt(20459);if(r)goto S_24048;} +do{ +goto LABEL_SKIPWHITESPACE; +if(!qbevent)break;evnt(20459);}while(r); +} +} +S_24052:; +if ((-(*_FUNC_LINEFORMAT_LONG_C== 58 ))||new_error){ +if(qbevent){evnt(20462);if(r)goto S_24052;} +S_24053:; +if ((-(*_FUNC_LINEFORMAT_LONG_SPEECHMARKS== 0 ))||new_error){ +if(qbevent){evnt(20463);if(r)goto S_24053;} +do{ +*_FUNC_LINEFORMAT_LONG_FINALDATA= 1 ; +if(!qbevent)break;evnt(20463);}while(r); +do{ +goto LABEL_ADDDATA; +if(!qbevent)break;evnt(20463);}while(r); +} +} +S_24058:; +if ((-(*_FUNC_LINEFORMAT_LONG_C== 44 ))||new_error){ +if(qbevent){evnt(20466);if(r)goto S_24058;} +S_24059:; +if ((-(*_FUNC_LINEFORMAT_LONG_SPEECHMARKS== 0 ))||new_error){ +if(qbevent){evnt(20467);if(r)goto S_24059;} +LABEL_ADDDATA:; +if(qbevent){evnt(20468);r=0;} +S_24060:; +if ((-(*__LONG_PREPASS== 0 ))||new_error){ +if(qbevent){evnt(20469);if(r)goto S_24060;} +S_24061:; +if ((*_FUNC_LINEFORMAT_LONG_P1)||new_error){ +if(qbevent){evnt(20470);if(r)goto S_24061;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_X,qbs_add(_FUNC_LINEFORMAT_STRING_X,func_mid(_FUNC_LINEFORMAT_STRING_CA,*_FUNC_LINEFORMAT_LONG_P1,*_FUNC_LINEFORMAT_LONG_P2-*_FUNC_LINEFORMAT_LONG_P1+ 1 ,0|1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20474);}while(r); +} +S_24064:; +if ((*_FUNC_LINEFORMAT_LONG_SPEECHMARKS)||new_error){ +if(qbevent){evnt(20477);if(r)goto S_24064;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_X,qbs_add(_FUNC_LINEFORMAT_STRING_X,func_chr( 34 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20479);}while(r); +} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_X,qbs_add(_FUNC_LINEFORMAT_STRING_X,func_chr( 44 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20483);}while(r); +} +S_24069:; +if ((-(*_FUNC_LINEFORMAT_LONG_FINALDATA== 1 ))||new_error){ +if(qbevent){evnt(20485);if(r)goto S_24069;} +do{ +goto LABEL_FINISHEDDATA; +if(!qbevent)break;evnt(20485);}while(r); +} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20486);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_P1= 0 ; +if(!qbevent)break;evnt(20487);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_P2= 0 ; +if(!qbevent)break;evnt(20488);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_SPEECHMARKS= 0 ; +if(!qbevent)break;evnt(20489);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_SCAN= 0 ; +if(!qbevent)break;evnt(20490);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_COMMANEXT= 0 ; +if(!qbevent)break;evnt(20491);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; +if(!qbevent)break;evnt(20492);}while(r); +do{ +goto LABEL_NEXTDATACHR; +if(!qbevent)break;evnt(20493);}while(r); +} +} +S_24082:; +if ((-(*_FUNC_LINEFORMAT_LONG_COMMANEXT== 1 ))||new_error){ +if(qbevent){evnt(20497);if(r)goto S_24082;} +S_24083:; +if (((-(*_FUNC_LINEFORMAT_LONG_C!= 32 ))&(-(*_FUNC_LINEFORMAT_LONG_C!= 9 )))||new_error){ +if(qbevent){evnt(20498);if(r)goto S_24083;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected , after quoted string in DATA statement",48)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20498);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20498);}while(r); +} +} +S_24088:; +if ((-(*_FUNC_LINEFORMAT_LONG_C== 34 ))||new_error){ +if(qbevent){evnt(20501);if(r)goto S_24088;} +S_24089:; +if ((-(*_FUNC_LINEFORMAT_LONG_SPEECHMARKS== 1 ))||new_error){ +if(qbevent){evnt(20502);if(r)goto S_24089;} +do{ +*_FUNC_LINEFORMAT_LONG_COMMANEXT= 1 ; +if(!qbevent)break;evnt(20503);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_SPEECHMARKS= 0 ; +if(!qbevent)break;evnt(20504);}while(r); +} +S_24093:; +if ((-(*_FUNC_LINEFORMAT_LONG_SCAN== 0 ))||new_error){ +if(qbevent){evnt(20506);if(r)goto S_24093;} +do{ +*_FUNC_LINEFORMAT_LONG_SPEECHMARKS= 1 ; +if(!qbevent)break;evnt(20506);}while(r); +} +} +do{ +*_FUNC_LINEFORMAT_LONG_SCAN= 1 ; +if(!qbevent)break;evnt(20509);}while(r); +S_24098:; +if ((-(*_FUNC_LINEFORMAT_LONG_P1== 0 ))||new_error){ +if(qbevent){evnt(20511);if(r)goto S_24098;} +do{ +*_FUNC_LINEFORMAT_LONG_P1=*_FUNC_LINEFORMAT_LONG_I; +if(!qbevent)break;evnt(20511);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_P2=*_FUNC_LINEFORMAT_LONG_I; +if(!qbevent)break;evnt(20511);}while(r); +} +S_24102:; +if (((-(*_FUNC_LINEFORMAT_LONG_C!= 9 ))&(-(*_FUNC_LINEFORMAT_LONG_C!= 32 )))||new_error){ +if(qbevent){evnt(20512);if(r)goto S_24102;} +do{ +*_FUNC_LINEFORMAT_LONG_P2=*_FUNC_LINEFORMAT_LONG_I; +if(!qbevent)break;evnt(20512);}while(r); +} +LABEL_SKIPWHITESPACE:; +if(qbevent){evnt(20514);r=0;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; +if(!qbevent)break;evnt(20515);}while(r); +do{ +goto LABEL_NEXTDATACHR; +if(!qbevent)break;evnt(20515);}while(r); +} +do{ +*_FUNC_LINEFORMAT_LONG_FINALDATA= 1 ; +if(!qbevent)break;evnt(20517);}while(r); +do{ +goto LABEL_ADDDATA; +if(!qbevent)break;evnt(20517);}while(r); +LABEL_FINISHEDDATA:; +if(qbevent){evnt(20518);r=0;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20519);}while(r); +S_24111:; +if ((-(*__LONG_PREPASS== 0 ))||new_error){ +if(qbevent){evnt(20520);if(r)goto S_24111;} +do{ +SUB_WRITEBUFRAWDATA(&(pass2984=*__LONG_DATABINBUF),_FUNC_LINEFORMAT_STRING_X); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20521);}while(r); +do{ +*__LONG_DATAOFFSET=*__LONG_DATAOFFSET+_FUNC_LINEFORMAT_STRING_X->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20522);}while(r); +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E,func_space((_FUNC_LINEFORMAT_STRING_X->len- 1 )* 2 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20524);}while(r); +S_24115:; +fornext_value2988= 1 ; +fornext_finalvalue2988=_FUNC_LINEFORMAT_STRING_X->len- 1 ; +fornext_step2988= 1 ; +if (fornext_step2988<0) fornext_step_negative2988=1; else fornext_step_negative2988=0; +if (new_error) goto fornext_error2988; +goto fornext_entrylabel2988; +while(1){ +fornext_value2988=fornext_step2988+(*_FUNC_LINEFORMAT_LONG_EC); +fornext_entrylabel2988: +*_FUNC_LINEFORMAT_LONG_EC=fornext_value2988; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative2988){ +if (fornext_value2988fornext_finalvalue2988) break; +} +fornext_error2988:; +if(qbevent){evnt(20525);if(r)goto S_24115;} +do{ +*_FUNC_LINEFORMAT_LONG_V1=qbs_asc(_FUNC_LINEFORMAT_STRING_X,*_FUNC_LINEFORMAT_LONG_EC); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20527);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_V2=*_FUNC_LINEFORMAT_LONG_V1/ 16 ; +if(!qbevent)break;evnt(20528);}while(r); +S_24118:; +if ((-(*_FUNC_LINEFORMAT_LONG_V2<= 9 ))||new_error){ +if(qbevent){evnt(20528);if(r)goto S_24118;} +do{ +*_FUNC_LINEFORMAT_LONG_V2=*_FUNC_LINEFORMAT_LONG_V2+ 48 ; +if(!qbevent)break;evnt(20528);}while(r); +}else{ +do{ +*_FUNC_LINEFORMAT_LONG_V2=*_FUNC_LINEFORMAT_LONG_V2+ 55 ; +if(!qbevent)break;evnt(20528);}while(r); +} +do{ +*_FUNC_LINEFORMAT_LONG_V1=*_FUNC_LINEFORMAT_LONG_V1& 15 ; +if(!qbevent)break;evnt(20529);}while(r); +S_24124:; +if ((-(*_FUNC_LINEFORMAT_LONG_V1<= 9 ))||new_error){ +if(qbevent){evnt(20529);if(r)goto S_24124;} +do{ +*_FUNC_LINEFORMAT_LONG_V1=*_FUNC_LINEFORMAT_LONG_V1+ 48 ; +if(!qbevent)break;evnt(20529);}while(r); +}else{ +do{ +*_FUNC_LINEFORMAT_LONG_V1=*_FUNC_LINEFORMAT_LONG_V1+ 55 ; +if(!qbevent)break;evnt(20529);}while(r); +} +do{ +tqbs=_FUNC_LINEFORMAT_STRING_E; if (!new_error){ +tmp_fileno=(*_FUNC_LINEFORMAT_LONG_EC* 2 )-( 1 ); if (!new_error){ +tmp_long=*_FUNC_LINEFORMAT_LONG_V1; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(20530);}while(r); +do{ +tqbs=_FUNC_LINEFORMAT_STRING_E; if (!new_error){ +tmp_fileno=*_FUNC_LINEFORMAT_LONG_EC* 2 ; if (!new_error){ +tmp_long=*_FUNC_LINEFORMAT_LONG_V2; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(20531);}while(r); +fornext_continue_2987:; +} +fornext_exit_2987:; +} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),qbs_new_txt_len("DATA",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20536);}while(r); +S_24134:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_LINEFORMAT_STRING_E->len))||new_error){ +if(qbevent){evnt(20536);if(r)goto S_24134;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),qbs_new_txt_len("_",1)),_FUNC_LINEFORMAT_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20536);}while(r); +} +do{ +goto LABEL_LINEFORMATNEXT; +if(!qbevent)break;evnt(20537);}while(r); +} +} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),func_mid(_FUNC_LINEFORMAT_STRING_CA,*_FUNC_LINEFORMAT_LONG_I,*_FUNC_LINEFORMAT_LONG_N2,0|1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20541);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+*_FUNC_LINEFORMAT_LONG_N2; +if(!qbevent)break;evnt(20542);}while(r); +LABEL_EXTCHECK:; +if(qbevent){evnt(20545);r=0;} +S_24142:; +if ((-(*_FUNC_LINEFORMAT_LONG_N2> 40 ))||new_error){ +if(qbevent){evnt(20546);if(r)goto S_24142;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Identifier longer than 40 character limit",41)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20546);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20546);}while(r); +} +do{ +*_FUNC_LINEFORMAT_LONG_C3=qbs_asc(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20547);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_M= 0 ; +if(!qbevent)break;evnt(20548);}while(r); +S_24148:; +if ((-(*_FUNC_LINEFORMAT_LONG_C3== 126 ))||new_error){ +if(qbevent){evnt(20549);if(r)goto S_24148;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E2,func_mid(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I+ 1 , 2 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20550);}while(r); +S_24150:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("&&",2))))||new_error){ +if(qbevent){evnt(20551);if(r)goto S_24150;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("~&&",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20551);}while(r); +do{ +goto LABEL_LFGETVE; +if(!qbevent)break;evnt(20551);}while(r); +} +S_24154:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("%%",2))))||new_error){ +if(qbevent){evnt(20552);if(r)goto S_24154;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("~%%",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20552);}while(r); +do{ +goto LABEL_LFGETVE; +if(!qbevent)break;evnt(20552);}while(r); +} +S_24158:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("%&",2))))||new_error){ +if(qbevent){evnt(20553);if(r)goto S_24158;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("~%&",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20553);}while(r); +do{ +goto LABEL_LFGETVE; +if(!qbevent)break;evnt(20553);}while(r); +} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E2,func_chr(qbs_asc(_FUNC_LINEFORMAT_STRING_E2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20554);}while(r); +S_24163:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("&",1))))||new_error){ +if(qbevent){evnt(20555);if(r)goto S_24163;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("~&",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20555);}while(r); +do{ +goto LABEL_LFGETVE; +if(!qbevent)break;evnt(20555);}while(r); +} +S_24167:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("%",1))))||new_error){ +if(qbevent){evnt(20556);if(r)goto S_24167;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("~%",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20556);}while(r); +do{ +goto LABEL_LFGETVE; +if(!qbevent)break;evnt(20556);}while(r); +} +S_24171:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("`",1))))||new_error){ +if(qbevent){evnt(20557);if(r)goto S_24171;} +do{ +*_FUNC_LINEFORMAT_LONG_M= 1 ; +if(!qbevent)break;evnt(20557);}while(r); +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("~`",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20557);}while(r); +do{ +goto LABEL_LFGETVE; +if(!qbevent)break;evnt(20557);}while(r); +} +} +S_24177:; +if ((-(*_FUNC_LINEFORMAT_LONG_C3== 37 ))||new_error){ +if(qbevent){evnt(20559);if(r)goto S_24177;} +do{ +*_FUNC_LINEFORMAT_LONG_C4=qbs_asc(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I+ 1 ); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20560);}while(r); +S_24179:; +if ((-(*_FUNC_LINEFORMAT_LONG_C4== 37 ))||new_error){ +if(qbevent){evnt(20561);if(r)goto S_24179;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("%%",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20561);}while(r); +do{ +goto LABEL_LFGETVE; +if(!qbevent)break;evnt(20561);}while(r); +} +S_24183:; +if ((-(*_FUNC_LINEFORMAT_LONG_C4== 38 ))||new_error){ +if(qbevent){evnt(20562);if(r)goto S_24183;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("%&",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20562);}while(r); +do{ +goto LABEL_LFGETVE; +if(!qbevent)break;evnt(20562);}while(r); +} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("%",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20563);}while(r); +do{ +goto LABEL_LFGETVE; +if(!qbevent)break;evnt(20563);}while(r); +} +S_24190:; +if ((-(*_FUNC_LINEFORMAT_LONG_C3== 38 ))||new_error){ +if(qbevent){evnt(20565);if(r)goto S_24190;} +do{ +*_FUNC_LINEFORMAT_LONG_C4=qbs_asc(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I+ 1 ); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20566);}while(r); +S_24192:; +if ((-(*_FUNC_LINEFORMAT_LONG_C4== 38 ))||new_error){ +if(qbevent){evnt(20567);if(r)goto S_24192;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("&&",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20567);}while(r); +do{ +goto LABEL_LFGETVE; +if(!qbevent)break;evnt(20567);}while(r); +} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("&",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20568);}while(r); +do{ +goto LABEL_LFGETVE; +if(!qbevent)break;evnt(20568);}while(r); +} +S_24199:; +if ((-(*_FUNC_LINEFORMAT_LONG_C3== 33 ))||new_error){ +if(qbevent){evnt(20570);if(r)goto S_24199;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("!",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20570);}while(r); +do{ +goto LABEL_LFGETVE; +if(!qbevent)break;evnt(20570);}while(r); +} +S_24203:; +if ((-(*_FUNC_LINEFORMAT_LONG_C3== 35 ))||new_error){ +if(qbevent){evnt(20571);if(r)goto S_24203;} +do{ +*_FUNC_LINEFORMAT_LONG_C4=qbs_asc(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I+ 1 ); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20572);}while(r); +S_24205:; +if ((-(*_FUNC_LINEFORMAT_LONG_C4== 35 ))||new_error){ +if(qbevent){evnt(20573);if(r)goto S_24205;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("##",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20573);}while(r); +do{ +goto LABEL_LFGETVE; +if(!qbevent)break;evnt(20573);}while(r); +} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("#",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20574);}while(r); +do{ +goto LABEL_LFGETVE; +if(!qbevent)break;evnt(20574);}while(r); +} +S_24212:; +if ((-(*_FUNC_LINEFORMAT_LONG_C3== 36 ))||new_error){ +if(qbevent){evnt(20576);if(r)goto S_24212;} +do{ +*_FUNC_LINEFORMAT_LONG_M= 1 ; +if(!qbevent)break;evnt(20576);}while(r); +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20576);}while(r); +do{ +goto LABEL_LFGETVE; +if(!qbevent)break;evnt(20576);}while(r); +} +S_24217:; +if ((-(*_FUNC_LINEFORMAT_LONG_C3== 96 ))||new_error){ +if(qbevent){evnt(20577);if(r)goto S_24217;} +do{ +*_FUNC_LINEFORMAT_LONG_M= 1 ; +if(!qbevent)break;evnt(20577);}while(r); +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_E2,qbs_new_txt_len("`",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20577);}while(r); +do{ +goto LABEL_LFGETVE; +if(!qbevent)break;evnt(20577);}while(r); +} +S_24222:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I)== 46 )))||new_error){ +if(qbevent){evnt(20581);if(r)goto S_24222;} +do{ +*_FUNC_LINEFORMAT_LONG_C2=qbs_asc(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I+ 1 ); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20582);}while(r); +S_24224:; +if (((-(*_FUNC_LINEFORMAT_LONG_C2>= 48 ))&(-(*_FUNC_LINEFORMAT_LONG_C2<= 57 )))||new_error){ +if(qbevent){evnt(20583);if(r)goto S_24224;} +do{ +*_FUNC_LINEFORMAT_LONG_P2=*_FUNC_LINEFORMAT_LONG_I+ 1 ; +if(!qbevent)break;evnt(20585);}while(r); +S_24226:; +fornext_value2992=*_FUNC_LINEFORMAT_LONG_I+ 2 ; +fornext_finalvalue2992=*_FUNC_LINEFORMAT_LONG_N; +fornext_step2992= 1 ; +if (fornext_step2992<0) fornext_step_negative2992=1; else fornext_step_negative2992=0; +if (new_error) goto fornext_error2992; +goto fornext_entrylabel2992; +while(1){ +fornext_value2992=fornext_step2992+(*_FUNC_LINEFORMAT_LONG_I2); +fornext_entrylabel2992: +*_FUNC_LINEFORMAT_LONG_I2=fornext_value2992; +if (fornext_step_negative2992){ +if (fornext_value2992fornext_finalvalue2992) break; +} +fornext_error2992:; +if(qbevent){evnt(20586);if(r)goto S_24226;} +do{ +*_FUNC_LINEFORMAT_LONG_C=qbs_asc(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20587);}while(r); +S_24228:; +if ((~(((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((*_FUNC_LINEFORMAT_LONG_C)-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]))||new_error){ +if(qbevent){evnt(20589);if(r)goto S_24228;} +do{ +goto fornext_exit_2991; +if(!qbevent)break;evnt(20589);}while(r); +} +S_24231:; +if ((-(*_FUNC_LINEFORMAT_LONG_C!= 95 ))||new_error){ +if(qbevent){evnt(20590);if(r)goto S_24231;} +do{ +*_FUNC_LINEFORMAT_LONG_P2=*_FUNC_LINEFORMAT_LONG_I2; +if(!qbevent)break;evnt(20590);}while(r); +} +fornext_continue_2991:; +} +fornext_exit_2991:; +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),qbs_new_txt_len(".",1)),__STRING1_SP),func_mid(_FUNC_LINEFORMAT_STRING_CA,*_FUNC_LINEFORMAT_LONG_I+ 1 ,*_FUNC_LINEFORMAT_LONG_P2-(*_FUNC_LINEFORMAT_LONG_I+ 1 )+ 1 ,0|1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20592);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_N2=*_FUNC_LINEFORMAT_LONG_N2+ 1 +(*_FUNC_LINEFORMAT_LONG_P2-(*_FUNC_LINEFORMAT_LONG_I+ 1 )+ 1 ); +if(!qbevent)break;evnt(20593);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_P2+ 1 ; +if(!qbevent)break;evnt(20594);}while(r); +do{ +goto LABEL_EXTCHECK; +if(!qbevent)break;evnt(20595);}while(r); +} +} +do{ +goto LABEL_LINEFORMATNEXT; +if(!qbevent)break;evnt(20599);}while(r); +LABEL_LFGETVE:; +if(qbevent){evnt(20601);r=0;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+_FUNC_LINEFORMAT_STRING_E2->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20602);}while(r); +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(_FUNC_LINEFORMAT_STRING_A2,_FUNC_LINEFORMAT_STRING_E2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20603);}while(r); +S_24244:; +if ((*_FUNC_LINEFORMAT_LONG_M)||new_error){ +if(qbevent){evnt(20604);if(r)goto S_24244;} +LABEL_LFGETVD:; +if(qbevent){evnt(20605);r=0;} +S_24245:; +if ((-(*_FUNC_LINEFORMAT_LONG_I<*_FUNC_LINEFORMAT_LONG_N))||new_error){ +if(qbevent){evnt(20606);if(r)goto S_24245;} +do{ +*_FUNC_LINEFORMAT_LONG_C=qbs_asc(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20607);}while(r); +S_24247:; +if (((-(*_FUNC_LINEFORMAT_LONG_C>= 48 ))&(-(*_FUNC_LINEFORMAT_LONG_C<= 57 )))||new_error){ +if(qbevent){evnt(20608);if(r)goto S_24247;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(_FUNC_LINEFORMAT_STRING_A2,func_chr(*_FUNC_LINEFORMAT_LONG_C))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20608);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; +if(!qbevent)break;evnt(20608);}while(r); +do{ +goto LABEL_LFGETVD; +if(!qbevent)break;evnt(20608);}while(r); +} +} +} +do{ +goto LABEL_LINEFORMATNEXT; +if(!qbevent)break;evnt(20612);}while(r); +} +} +S_24257:; +if (((-(*_FUNC_LINEFORMAT_LONG_C== 32 ))|(-(*_FUNC_LINEFORMAT_LONG_C== 9 )))||new_error){ +if(qbevent){evnt(20619);if(r)goto S_24257;} +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; +if(!qbevent)break;evnt(20619);}while(r); +do{ +goto LABEL_LINEFORMATNEXT; +if(!qbevent)break;evnt(20619);}while(r); +} +S_24261:; +if ((((int32*)(__ARRAY_LONG_LFSINGLECHAR[0]))[array_check((*_FUNC_LINEFORMAT_LONG_C)-__ARRAY_LONG_LFSINGLECHAR[4],__ARRAY_LONG_LFSINGLECHAR[5])])||new_error){ +if(qbevent){evnt(20623);if(r)goto S_24261;} +S_24262:; +if (((-(*_FUNC_LINEFORMAT_LONG_C== 60 ))|(-(*_FUNC_LINEFORMAT_LONG_C== 61 ))|(-(*_FUNC_LINEFORMAT_LONG_C== 62 )))||new_error){ +if(qbevent){evnt(20624);if(r)goto S_24262;} +do{ +*_FUNC_LINEFORMAT_LONG_COUNT= 0 ; +if(!qbevent)break;evnt(20625);}while(r); +S_24264:; +do{ +if(qbevent){evnt(20626);if(r)goto S_24264;} +do{ +*_FUNC_LINEFORMAT_LONG_COUNT=*_FUNC_LINEFORMAT_LONG_COUNT+ 1 ; +if(!qbevent)break;evnt(20627);}while(r); +S_24266:; +if ((qbs_cleanup(qbs_tmp_base,-((*_FUNC_LINEFORMAT_LONG_I+*_FUNC_LINEFORMAT_LONG_COUNT)>=(_FUNC_LINEFORMAT_STRING_A->len- 2 ))))||new_error){ +if(qbevent){evnt(20628);if(r)goto S_24266;} +do{ +goto dl_exit_2994; +if(!qbevent)break;evnt(20628);}while(r); +} +S_24269:; +dl_continue_2994:; +}while((!(qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I+*_FUNC_LINEFORMAT_LONG_COUNT)!= 32 ))))&&(!new_error)); +dl_exit_2994:; +if(qbevent){evnt(20629);if(r)goto S_24269;} +do{ +*_FUNC_LINEFORMAT_LONG_C2=qbs_asc(_FUNC_LINEFORMAT_STRING_A,*_FUNC_LINEFORMAT_LONG_I+*_FUNC_LINEFORMAT_LONG_COUNT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20630);}while(r); +S_24271:; +if ((-(*_FUNC_LINEFORMAT_LONG_C== 60 ))||new_error){ +if(qbevent){evnt(20631);if(r)goto S_24271;} +S_24272:; +if ((-(*_FUNC_LINEFORMAT_LONG_C2== 61 ))||new_error){ +if(qbevent){evnt(20632);if(r)goto S_24272;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),qbs_new_txt_len("<=",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20632);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+*_FUNC_LINEFORMAT_LONG_COUNT+ 1 ; +if(!qbevent)break;evnt(20632);}while(r); +do{ +goto LABEL_LINEFORMATNEXT; +if(!qbevent)break;evnt(20632);}while(r); +} +S_24277:; +if ((-(*_FUNC_LINEFORMAT_LONG_C2== 62 ))||new_error){ +if(qbevent){evnt(20633);if(r)goto S_24277;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),qbs_new_txt_len("<>",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20633);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+*_FUNC_LINEFORMAT_LONG_COUNT+ 1 ; +if(!qbevent)break;evnt(20633);}while(r); +do{ +goto LABEL_LINEFORMATNEXT; +if(!qbevent)break;evnt(20633);}while(r); +} +S_24282:; +}else{ +if (-(*_FUNC_LINEFORMAT_LONG_C== 62 )){ +if(qbevent){evnt(20634);if(r)goto S_24282;} +S_24283:; +if ((-(*_FUNC_LINEFORMAT_LONG_C2== 61 ))||new_error){ +if(qbevent){evnt(20635);if(r)goto S_24283;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),qbs_new_txt_len(">=",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20635);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+*_FUNC_LINEFORMAT_LONG_COUNT+ 1 ; +if(!qbevent)break;evnt(20635);}while(r); +do{ +goto LABEL_LINEFORMATNEXT; +if(!qbevent)break;evnt(20635);}while(r); +} +S_24288:; +if ((-(*_FUNC_LINEFORMAT_LONG_C2== 60 ))||new_error){ +if(qbevent){evnt(20636);if(r)goto S_24288;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),qbs_new_txt_len("<>",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20636);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+*_FUNC_LINEFORMAT_LONG_COUNT+ 1 ; +if(!qbevent)break;evnt(20636);}while(r); +do{ +goto LABEL_LINEFORMATNEXT; +if(!qbevent)break;evnt(20636);}while(r); +} +S_24293:; +}else{ +if (-(*_FUNC_LINEFORMAT_LONG_C== 61 )){ +if(qbevent){evnt(20637);if(r)goto S_24293;} +S_24294:; +if ((-(*_FUNC_LINEFORMAT_LONG_C2== 62 ))||new_error){ +if(qbevent){evnt(20638);if(r)goto S_24294;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),qbs_new_txt_len(">=",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20638);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+*_FUNC_LINEFORMAT_LONG_COUNT+ 1 ; +if(!qbevent)break;evnt(20638);}while(r); +do{ +goto LABEL_LINEFORMATNEXT; +if(!qbevent)break;evnt(20638);}while(r); +} +S_24299:; +if ((-(*_FUNC_LINEFORMAT_LONG_C2== 60 ))||new_error){ +if(qbevent){evnt(20639);if(r)goto S_24299;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),qbs_new_txt_len("<=",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20639);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+*_FUNC_LINEFORMAT_LONG_COUNT+ 1 ; +if(!qbevent)break;evnt(20639);}while(r); +do{ +goto LABEL_LINEFORMATNEXT; +if(!qbevent)break;evnt(20639);}while(r); +} +} +} +} +} +S_24306:; +if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_LINEFORMAT_LONG_C== 36 ))&(_FUNC_LINEFORMAT_STRING_A2->len)))||new_error){ +if(qbevent){evnt(20643);if(r)goto S_24306;} +do{ +goto LABEL_BADUSAGE; +if(!qbevent)break;evnt(20643);}while(r); +} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),func_chr(*_FUNC_LINEFORMAT_LONG_C))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20646);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; +if(!qbevent)break;evnt(20647);}while(r); +do{ +goto LABEL_LINEFORMATNEXT; +if(!qbevent)break;evnt(20648);}while(r); +} +LABEL_BADUSAGE:; +if(qbevent){evnt(20650);r=0;} +S_24313:; +if ((-(*_FUNC_LINEFORMAT_LONG_C!= 39 ))||new_error){ +if(qbevent){evnt(20652);if(r)goto S_24313;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Unexpected character on line",28)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20652);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20652);}while(r); +} +do{ +qbs_set(__STRING_LAYOUTCOMMENT,qbs_new_txt_len("'",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20655);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_I=*_FUNC_LINEFORMAT_LONG_I+ 1 ; +if(!qbevent)break;evnt(20656);}while(r); +LABEL_COMMENT:; +if(qbevent){evnt(20657);r=0;} +S_24319:; +if ((-(*_FUNC_LINEFORMAT_LONG_I>=*_FUNC_LINEFORMAT_LONG_N))||new_error){ +if(qbevent){evnt(20658);if(r)goto S_24319;} +do{ +goto LABEL_LINEFORMATDONE2; +if(!qbevent)break;evnt(20658);}while(r); +} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_C,qbs_right(_FUNC_LINEFORMAT_STRING_A,_FUNC_LINEFORMAT_STRING_A->len-*_FUNC_LINEFORMAT_LONG_I+ 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20659);}while(r); +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_CC,qbs_right(_FUNC_LINEFORMAT_STRING_CA,_FUNC_LINEFORMAT_STRING_CA->len-*_FUNC_LINEFORMAT_LONG_I+ 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20660);}while(r); +S_24324:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_LINEFORMAT_STRING_C->len== 0 )))||new_error){ +if(qbevent){evnt(20661);if(r)goto S_24324;} +do{ +goto LABEL_LINEFORMATDONE2; +if(!qbevent)break;evnt(20661);}while(r); +} +do{ +qbs_set(__STRING_LAYOUTCOMMENT,qbs_rtrim(qbs_add(__STRING_LAYOUTCOMMENT,_FUNC_LINEFORMAT_STRING_CC))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20662);}while(r); +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_C,qbs_ltrim(_FUNC_LINEFORMAT_STRING_C)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20664);}while(r); +S_24329:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_LINEFORMAT_STRING_C->len== 0 )))||new_error){ +if(qbevent){evnt(20665);if(r)goto S_24329;} +do{ +goto LABEL_LINEFORMATDONE2; +if(!qbevent)break;evnt(20665);}while(r); +} +do{ +*_FUNC_LINEFORMAT_LONG_AC=qbs_asc(_FUNC_LINEFORMAT_STRING_C); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20666);}while(r); +S_24333:; +if ((-(*_FUNC_LINEFORMAT_LONG_AC!= 36 ))||new_error){ +if(qbevent){evnt(20671);if(r)goto S_24333;} +do{ +goto LABEL_LINEFORMATDONE2; +if(!qbevent)break;evnt(20671);}while(r); +} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_NOCASEC,qbs_ltrim(qbs_right(_FUNC_LINEFORMAT_STRING_CA,_FUNC_LINEFORMAT_STRING_CA->len-*_FUNC_LINEFORMAT_LONG_I+ 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20672);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_MEMMODE= 0 ; +if(!qbevent)break;evnt(20673);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_X= 1 ; +if(!qbevent)break;evnt(20674);}while(r); +S_24339:; +do{ +if(qbevent){evnt(20675);if(r)goto S_24339;} +S_24340:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_LINEFORMAT_STRING_C,*_FUNC_LINEFORMAT_LONG_X, 7 ,0|1),qbs_new_txt_len("$STATIC",7))))||new_error){ +if(qbevent){evnt(20682);if(r)goto S_24340;} +do{ +*_FUNC_LINEFORMAT_LONG_MEMMODE= 1 ; +if(!qbevent)break;evnt(20683);}while(r); +S_24342:; +}else{ +if (qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_LINEFORMAT_STRING_C,*_FUNC_LINEFORMAT_LONG_X, 8 ,0|1),qbs_new_txt_len("$DYNAMIC",8)))){ +if(qbevent){evnt(20684);if(r)goto S_24342;} +do{ +*_FUNC_LINEFORMAT_LONG_MEMMODE= 2 ; +if(!qbevent)break;evnt(20685);}while(r); +S_24344:; +}else{ +if (qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_LINEFORMAT_STRING_C,*_FUNC_LINEFORMAT_LONG_X, 8 ,0|1),qbs_new_txt_len("$INCLUDE",8)))){ +if(qbevent){evnt(20686);if(r)goto S_24344;} +S_24345:; +fornext_value3004=*_FUNC_LINEFORMAT_LONG_X+ 8 ; +fornext_finalvalue3004=_FUNC_LINEFORMAT_STRING_C->len; +fornext_step3004= 1 ; +if (fornext_step3004<0) fornext_step_negative3004=1; else fornext_step_negative3004=0; +if (new_error) goto fornext_error3004; +goto fornext_entrylabel3004; +while(1){ +fornext_value3004=fornext_step3004+(*_FUNC_LINEFORMAT_LONG_XX); +fornext_entrylabel3004: +*_FUNC_LINEFORMAT_LONG_XX=fornext_value3004; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative3004){ +if (fornext_value3004fornext_finalvalue3004) break; +} +fornext_error3004:; +if(qbevent){evnt(20689);if(r)goto S_24345;} +do{ +*_FUNC_LINEFORMAT_LONG_AC=qbs_asc(func_mid(_FUNC_LINEFORMAT_STRING_C,*_FUNC_LINEFORMAT_LONG_XX, 1 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20690);}while(r); +S_24347:; +if ((-(*_FUNC_LINEFORMAT_LONG_AC== 58 ))||new_error){ +if(qbevent){evnt(20691);if(r)goto S_24347;} +do{ +goto fornext_exit_3003; +if(!qbevent)break;evnt(20691);}while(r); +} +S_24350:; +if (((-(*_FUNC_LINEFORMAT_LONG_AC!= 32 ))&(-(*_FUNC_LINEFORMAT_LONG_AC!= 9 )))||new_error){ +if(qbevent){evnt(20692);if(r)goto S_24350;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected $INCLUDE:'filename'",28)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20692);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20692);}while(r); +} +fornext_continue_3003:; +} +fornext_exit_3003:; +do{ +*_FUNC_LINEFORMAT_LONG_X=*_FUNC_LINEFORMAT_LONG_XX; +if(!qbevent)break;evnt(20694);}while(r); +S_24356:; +fornext_value3007=*_FUNC_LINEFORMAT_LONG_X+ 1 ; +fornext_finalvalue3007=_FUNC_LINEFORMAT_STRING_C->len; +fornext_step3007= 1 ; +if (fornext_step3007<0) fornext_step_negative3007=1; else fornext_step_negative3007=0; +if (new_error) goto fornext_error3007; +goto fornext_entrylabel3007; +while(1){ +fornext_value3007=fornext_step3007+(*_FUNC_LINEFORMAT_LONG_XX); +fornext_entrylabel3007: +*_FUNC_LINEFORMAT_LONG_XX=fornext_value3007; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative3007){ +if (fornext_value3007fornext_finalvalue3007) break; +} +fornext_error3007:; +if(qbevent){evnt(20696);if(r)goto S_24356;} +do{ +*_FUNC_LINEFORMAT_LONG_AC=qbs_asc(func_mid(_FUNC_LINEFORMAT_STRING_C,*_FUNC_LINEFORMAT_LONG_XX, 1 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20697);}while(r); +S_24358:; +if ((-(*_FUNC_LINEFORMAT_LONG_AC== 39 ))||new_error){ +if(qbevent){evnt(20698);if(r)goto S_24358;} +do{ +goto fornext_exit_3006; +if(!qbevent)break;evnt(20698);}while(r); +} +S_24361:; +if (((-(*_FUNC_LINEFORMAT_LONG_AC!= 32 ))&(-(*_FUNC_LINEFORMAT_LONG_AC!= 9 )))||new_error){ +if(qbevent){evnt(20699);if(r)goto S_24361;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected $INCLUDE:'filename'",28)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20699);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20699);}while(r); +} +fornext_continue_3006:; +} +fornext_exit_3006:; +do{ +*_FUNC_LINEFORMAT_LONG_X=*_FUNC_LINEFORMAT_LONG_XX; +if(!qbevent)break;evnt(20701);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_XX=func_instr(*_FUNC_LINEFORMAT_LONG_X+ 1 ,_FUNC_LINEFORMAT_STRING_C,qbs_new_txt_len("'",1),0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20702);}while(r); +S_24368:; +if ((-(*_FUNC_LINEFORMAT_LONG_XX== 0 ))||new_error){ +if(qbevent){evnt(20703);if(r)goto S_24368;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected $INCLUDE:'filename'",28)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20703);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20703);}while(r); +} +do{ +qbs_set(__STRING_ADDMETAINCLUDE,func_mid(_FUNC_LINEFORMAT_STRING_NOCASEC,*_FUNC_LINEFORMAT_LONG_X+ 1 ,*_FUNC_LINEFORMAT_LONG_XX-*_FUNC_LINEFORMAT_LONG_X- 1 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20704);}while(r); +S_24373:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_ADDMETAINCLUDE,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(20705);if(r)goto S_24373;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected $INCLUDE:'filename'",28)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20705);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20705);}while(r); +} +} +} +} +do{ +*_FUNC_LINEFORMAT_LONG_X=func_instr(*_FUNC_LINEFORMAT_LONG_X+ 1 ,_FUNC_LINEFORMAT_STRING_C,qbs_new_txt_len("$",1),0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20708);}while(r); +S_24379:; +dl_continue_3002:; +}while((-(*_FUNC_LINEFORMAT_LONG_X!= 0 ))&&(!new_error)); +dl_exit_3002:; +if(qbevent){evnt(20709);if(r)goto S_24379;} +S_24380:; +if ((-(*_FUNC_LINEFORMAT_LONG_MEMMODE== 1 ))||new_error){ +if(qbevent){evnt(20711);if(r)goto S_24380;} +do{ +*__INTEGER_ADDMETASTATIC= 1 ; +if(!qbevent)break;evnt(20711);}while(r); +} +S_24383:; +if ((-(*_FUNC_LINEFORMAT_LONG_MEMMODE== 2 ))||new_error){ +if(qbevent){evnt(20712);if(r)goto S_24383;} +do{ +*__INTEGER_ADDMETADYNAMIC= 1 ; +if(!qbevent)break;evnt(20712);}while(r); +} +do{ +goto LABEL_LINEFORMATDONE2; +if(!qbevent)break;evnt(20714);}while(r); +LABEL_LINEFORMATDONE:; +if(qbevent){evnt(20718);r=0;} +S_24387:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_LINEFORMAT_STRING_A2->len))||new_error){ +if(qbevent){evnt(20722);if(r)goto S_24387;} +S_24388:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_FUNC_LINEFORMAT_STRING_A2, 1 ),qbs_new_txt_len("_",1))))||new_error){ +if(qbevent){evnt(20723);if(r)goto S_24388;} +do{ +*__LONG_LINECONTINUATION= 1 ; +if(!qbevent)break;evnt(20725);}while(r); +do{ +qbs_set(__STRING_LAYOUT,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20726);}while(r); +S_24391:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_LINEFORMAT_STRING_A2->len>= 2 )))||new_error){ +if(qbevent){evnt(20729);if(r)goto S_24391;} +S_24392:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal((qbs_right(_FUNC_LINEFORMAT_STRING_A2, 2 )),(qbs_add(__STRING1_SP,qbs_new_txt_len("_",1))))))||new_error){ +if(qbevent){evnt(20730);if(r)goto S_24392;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_left(_FUNC_LINEFORMAT_STRING_A2,_FUNC_LINEFORMAT_STRING_A2->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20730);}while(r); +} +} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_left(_FUNC_LINEFORMAT_STRING_A2,_FUNC_LINEFORMAT_STRING_A2->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20732);}while(r); +S_24397:; +if ((*__LONG_INCLEVEL)||new_error){ +if(qbevent){evnt(20734);if(r)goto S_24397;} +do{ +*_FUNC_LINEFORMAT_LONG_FH= 99 +*__LONG_INCLEVEL; +if(!qbevent)break;evnt(20735);}while(r); +S_24399:; +if ((func_eof(*_FUNC_LINEFORMAT_LONG_FH))||new_error){ +if(qbevent){evnt(20736);if(r)goto S_24399;} +do{ +goto LABEL_LINEFORMATDONE2; +if(!qbevent)break;evnt(20736);}while(r); +} +do{ +tmp_fileno=*_FUNC_LINEFORMAT_LONG_FH; +if (new_error) goto skip3013; +sub_file_line_input_string(tmp_fileno,_FUNC_LINEFORMAT_STRING_A); +if (new_error) goto skip3013; +skip3013: +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20737);}while(r); +do{ +tmp_long=array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5]); +if (!new_error) ((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(20738);}while(r); +do{ +goto LABEL_INCLUDECONT; +if(!qbevent)break;evnt(20739);}while(r); +} +S_24406:; +if ((*__LONG_IDEMODE)||new_error){ +if(qbevent){evnt(20742);if(r)goto S_24406;} +do{ +qbs_set(__STRING_IDECOMMAND,func_chr( 100 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20743);}while(r); +do{ +*_FUNC_LINEFORMAT_LONG_IGNORE=FUNC_IDE(&(pass3014= 0 )); +if(!qbevent)break;evnt(20744);}while(r); +do{ +*__LONG_IDEERROR= 0 ; +if(!qbevent)break;evnt(20745);}while(r); +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_A,__STRING_IDERETURN); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20746);}while(r); +S_24411:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_A,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(20747);if(r)goto S_24411;} +do{ +goto LABEL_LINEFORMATDONE2; +if(!qbevent)break;evnt(20747);}while(r); +} +}else{ +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_A,FUNC_LINEINPUT3()); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20749);}while(r); +S_24416:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_LINEFORMAT_STRING_A,func_chr( 13 ))))||new_error){ +if(qbevent){evnt(20750);if(r)goto S_24416;} +do{ +goto LABEL_LINEFORMATDONE2; +if(!qbevent)break;evnt(20750);}while(r); +} +} +do{ +*__LONG_LINENUMBER=*__LONG_LINENUMBER+ 1 ; +if(!qbevent)break;evnt(20753);}while(r); +LABEL_INCLUDECONT:; +if(qbevent){evnt(20755);r=0;} +do{ +*_FUNC_LINEFORMAT_LONG_CONTLINE= 1 ; +if(!qbevent)break;evnt(20757);}while(r); +do{ +goto LABEL_CONTINUELINE; +if(!qbevent)break;evnt(20758);}while(r); +} +} +LABEL_LINEFORMATDONE2:; +if(qbevent){evnt(20762);r=0;} +S_24425:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_LINEFORMAT_STRING_A2, 1 ),__STRING1_SP)))||new_error){ +if(qbevent){evnt(20763);if(r)goto S_24425;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_right(_FUNC_LINEFORMAT_STRING_A2,_FUNC_LINEFORMAT_STRING_A2->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20763);}while(r); +} +S_24428:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_FUNC_LINEFORMAT_STRING_A2, 1 ),qbs_new_txt_len(":",1))))||new_error){ +if(qbevent){evnt(20766);if(r)goto S_24428;} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_A2,qbs_add(qbs_add(_FUNC_LINEFORMAT_STRING_A2,__STRING1_SP),qbs_new_txt_len("'",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20766);}while(r); +} +S_24431:; +if (( 0 )||new_error){ +if(qbevent){evnt(20768);if(r)goto S_24431;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip3016; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("lineformat():return:",20),_FUNC_LINEFORMAT_STRING_A2), 0, 0, 1); +if (new_error) goto skip3016; +skip3016: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(20768);}while(r); +} +S_24434:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(20769);if(r)goto S_24434;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20769);}while(r); +} +do{ +qbs_set(_FUNC_LINEFORMAT_STRING_LINEFORMAT,_FUNC_LINEFORMAT_STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20770);}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free30.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_LINEFORMAT_STRING_LINEFORMAT);return _FUNC_LINEFORMAT_STRING_LINEFORMAT; +} +void SUB_MAKEIDREFER(qbs*_SUB_MAKEIDREFER_STRING_REF,int32*_SUB_MAKEIDREFER_LONG_TYP){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data31.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +qbs_set(_SUB_MAKEIDREFER_STRING_REF,FUNC_STR2(__LONG_CURRENTID)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20776);}while(r); +do{ +*_SUB_MAKEIDREFER_LONG_TYP=*(int32*)(((char*)__UDT_ID)+(536))+*__LONG_ISREFERENCE; +if(!qbevent)break;evnt(20777);}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free31.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +int32 FUNC_OPERATORUSAGE(qbs*_FUNC_OPERATORUSAGE_STRING_OPERATOR,int32*_FUNC_OPERATORUSAGE_LONG_TYP,qbs*_FUNC_OPERATORUSAGE_STRING_INFO,int32*_FUNC_OPERATORUSAGE_LONG_LHS,int32*_FUNC_OPERATORUSAGE_LONG_RHS,int32*_FUNC_OPERATORUSAGE_LONG_RESULT){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data32.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +*_FUNC_OPERATORUSAGE_LONG_LHS= 7 ; +if(!qbevent)break;evnt(20781);}while(r); +do{ +*_FUNC_OPERATORUSAGE_LONG_RHS= 7 ; +if(!qbevent)break;evnt(20781);}while(r); +do{ +*_FUNC_OPERATORUSAGE_LONG_RESULT= 0 ; +if(!qbevent)break;evnt(20781);}while(r); +S_24443:; +if (((*_FUNC_OPERATORUSAGE_LONG_TYP&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(20797);if(r)goto S_24443;} +do{ +*_FUNC_OPERATORUSAGE_LONG_LHS= 4 ; +if(!qbevent)break;evnt(20798);}while(r); +do{ +*_FUNC_OPERATORUSAGE_LONG_RHS= 4 ; +if(!qbevent)break;evnt(20798);}while(r); +do{ +*_FUNC_OPERATORUSAGE_LONG_RESULT= 4 ; +if(!qbevent)break;evnt(20799);}while(r); +S_24447:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("+",1))))||new_error){ +if(qbevent){evnt(20800);if(r)goto S_24447;} +do{ +qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("qbs_add",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20800);}while(r); +do{ +*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 2 ; +if(!qbevent)break;evnt(20800);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20800);}while(r); +} +do{ +*_FUNC_OPERATORUSAGE_LONG_RESULT= 8 ; +if(!qbevent)break;evnt(20801);}while(r); +S_24453:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("=",1))))||new_error){ +if(qbevent){evnt(20802);if(r)goto S_24453;} +do{ +qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("qbs_equal",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20802);}while(r); +do{ +*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 2 ; +if(!qbevent)break;evnt(20802);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20802);}while(r); +} +S_24458:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("<>",2))))||new_error){ +if(qbevent){evnt(20803);if(r)goto S_24458;} +do{ +qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("qbs_notequal",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20803);}while(r); +do{ +*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 2 ; +if(!qbevent)break;evnt(20803);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20803);}while(r); +} +S_24463:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len(">",1))))||new_error){ +if(qbevent){evnt(20804);if(r)goto S_24463;} +do{ +qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("qbs_greaterthan",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20804);}while(r); +do{ +*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 2 ; +if(!qbevent)break;evnt(20804);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20804);}while(r); +} +S_24468:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("<",1))))||new_error){ +if(qbevent){evnt(20805);if(r)goto S_24468;} +do{ +qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("qbs_lessthan",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20805);}while(r); +do{ +*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 2 ; +if(!qbevent)break;evnt(20805);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20805);}while(r); +} +S_24473:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len(">=",2))))||new_error){ +if(qbevent){evnt(20806);if(r)goto S_24473;} +do{ +qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("qbs_greaterorequal",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20806);}while(r); +do{ +*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 2 ; +if(!qbevent)break;evnt(20806);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20806);}while(r); +} +S_24478:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("<=",2))))||new_error){ +if(qbevent){evnt(20807);if(r)goto S_24478;} +do{ +qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("qbs_lessorequal",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20807);}while(r); +do{ +*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 2 ; +if(!qbevent)break;evnt(20807);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20807);}while(r); +} +S_24483:; +if (( 0 )||new_error){ +if(qbevent){evnt(20808);if(r)goto S_24483;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip3020; +sub_file_print(tmp_fileno,qbs_new_txt_len("INVALID STRING OPERATOR!",24), 0, 0, 1); +if (new_error) goto skip3020; +skip3020: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(20808);}while(r); +do{ +sub_end(); +if(!qbevent)break;evnt(20808);}while(r); +} +} +do{ +*_FUNC_OPERATORUSAGE_LONG_LHS= 1 + 2 ; +if(!qbevent)break;evnt(20812);}while(r); +do{ +*_FUNC_OPERATORUSAGE_LONG_RHS= 1 + 2 ; +if(!qbevent)break;evnt(20812);}while(r); +S_24490:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("^",1))))||new_error){ +if(qbevent){evnt(20813);if(r)goto S_24490;} +do{ +*_FUNC_OPERATORUSAGE_LONG_RESULT= 2 ; +if(!qbevent)break;evnt(20813);}while(r); +do{ +qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("pow2",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20813);}while(r); +do{ +*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 2 ; +if(!qbevent)break;evnt(20813);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20813);}while(r); +} +S_24496:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,func_chr( 241 ))))||new_error){ +if(qbevent){evnt(20814);if(r)goto S_24496;} +do{ +qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("-",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20814);}while(r); +do{ +*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 5 ; +if(!qbevent)break;evnt(20814);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20814);}while(r); +} +S_24501:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("/",1))))||new_error){ +if(qbevent){evnt(20815);if(r)goto S_24501;} +do{ +qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("/ ",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20816);}while(r); +do{ +*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 1 ; +if(!qbevent)break;evnt(20816);}while(r); +S_24504:; +if (((*_FUNC_OPERATORUSAGE_LONG_TYP&*__LONG_ISFLOAT))||new_error){ +if(qbevent){evnt(20819);if(r)goto S_24504;} +do{ +*_FUNC_OPERATORUSAGE_LONG_LHS= 2 ; +if(!qbevent)break;evnt(20821);}while(r); +do{ +*_FUNC_OPERATORUSAGE_LONG_RHS= 1 + 2 ; +if(!qbevent)break;evnt(20822);}while(r); +}else{ +do{ +*_FUNC_OPERATORUSAGE_LONG_LHS= 1 + 2 ; +if(!qbevent)break;evnt(20825);}while(r); +do{ +*_FUNC_OPERATORUSAGE_LONG_RHS= 2 ; +if(!qbevent)break;evnt(20826);}while(r); +} +do{ +*_FUNC_OPERATORUSAGE_LONG_RESULT= 2 ; +if(!qbevent)break;evnt(20828);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20829);}while(r); +} +S_24514:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("*",1))))||new_error){ +if(qbevent){evnt(20831);if(r)goto S_24514;} +do{ +qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("*",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20831);}while(r); +do{ +*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 1 ; +if(!qbevent)break;evnt(20831);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20831);}while(r); +} +S_24519:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("+",1))))||new_error){ +if(qbevent){evnt(20832);if(r)goto S_24519;} +do{ +qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("+",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20832);}while(r); +do{ +*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 1 ; +if(!qbevent)break;evnt(20832);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20832);}while(r); +} +S_24524:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("-",1))))||new_error){ +if(qbevent){evnt(20833);if(r)goto S_24524;} +do{ +qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("-",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20833);}while(r); +do{ +*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 1 ; +if(!qbevent)break;evnt(20833);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20833);}while(r); +} +do{ +*_FUNC_OPERATORUSAGE_LONG_RESULT= 8 ; +if(!qbevent)break;evnt(20835);}while(r); +S_24530:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("=",1))))||new_error){ +if(qbevent){evnt(20836);if(r)goto S_24530;} +do{ +qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("==",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20836);}while(r); +do{ +*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 3 ; +if(!qbevent)break;evnt(20836);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20836);}while(r); +} +S_24535:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len(">",1))))||new_error){ +if(qbevent){evnt(20837);if(r)goto S_24535;} +do{ +qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len(">",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20837);}while(r); +do{ +*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 3 ; +if(!qbevent)break;evnt(20837);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20837);}while(r); +} +S_24540:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("<",1))))||new_error){ +if(qbevent){evnt(20838);if(r)goto S_24540;} +do{ +qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("<",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20838);}while(r); +do{ +*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 3 ; +if(!qbevent)break;evnt(20838);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20838);}while(r); +} +S_24545:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("<>",2))))||new_error){ +if(qbevent){evnt(20839);if(r)goto S_24545;} +do{ +qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("!=",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20839);}while(r); +do{ +*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 3 ; +if(!qbevent)break;evnt(20839);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20839);}while(r); +} +S_24550:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("<=",2))))||new_error){ +if(qbevent){evnt(20840);if(r)goto S_24550;} +do{ +qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("<=",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20840);}while(r); +do{ +*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 3 ; +if(!qbevent)break;evnt(20840);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20840);}while(r); +} +S_24555:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len(">=",2))))||new_error){ +if(qbevent){evnt(20841);if(r)goto S_24555;} +do{ +qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len(">=",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20841);}while(r); +do{ +*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 3 ; +if(!qbevent)break;evnt(20841);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20841);}while(r); +} +do{ +*_FUNC_OPERATORUSAGE_LONG_LHS= 1 ; +if(!qbevent)break;evnt(20843);}while(r); +do{ +*_FUNC_OPERATORUSAGE_LONG_RHS= 1 ; +if(!qbevent)break;evnt(20843);}while(r); +do{ +*_FUNC_OPERATORUSAGE_LONG_RESULT= 1 ; +if(!qbevent)break;evnt(20843);}while(r); +do{ +qbs_set(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_ucase(_FUNC_OPERATORUSAGE_STRING_OPERATOR)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20844);}while(r); +S_24564:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("MOD",3))))||new_error){ +if(qbevent){evnt(20845);if(r)goto S_24564;} +do{ +qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("%",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20845);}while(r); +do{ +*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 1 ; +if(!qbevent)break;evnt(20845);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20845);}while(r); +} +S_24569:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("\\",1))))||new_error){ +if(qbevent){evnt(20846);if(r)goto S_24569;} +do{ +qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("/ ",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20846);}while(r); +do{ +*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 1 ; +if(!qbevent)break;evnt(20846);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20846);}while(r); +} +S_24574:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("IMP",3))))||new_error){ +if(qbevent){evnt(20847);if(r)goto S_24574;} +do{ +qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("|",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20847);}while(r); +do{ +*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 4 ; +if(!qbevent)break;evnt(20847);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20847);}while(r); +} +S_24579:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("EQV",3))))||new_error){ +if(qbevent){evnt(20848);if(r)goto S_24579;} +do{ +qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("^",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20848);}while(r); +do{ +*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 4 ; +if(!qbevent)break;evnt(20848);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20848);}while(r); +} +S_24584:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("XOR",3))))||new_error){ +if(qbevent){evnt(20849);if(r)goto S_24584;} +do{ +qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("^",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20849);}while(r); +do{ +*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 1 ; +if(!qbevent)break;evnt(20849);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20849);}while(r); +} +S_24589:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("OR",2))))||new_error){ +if(qbevent){evnt(20850);if(r)goto S_24589;} +do{ +qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("|",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20850);}while(r); +do{ +*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 1 ; +if(!qbevent)break;evnt(20850);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20850);}while(r); +} +S_24594:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("AND",3))))||new_error){ +if(qbevent){evnt(20851);if(r)goto S_24594;} +do{ +qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("&",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20851);}while(r); +do{ +*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 1 ; +if(!qbevent)break;evnt(20851);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20851);}while(r); +} +do{ +*_FUNC_OPERATORUSAGE_LONG_LHS= 7 ; +if(!qbevent)break;evnt(20853);}while(r); +S_24600:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPERATORUSAGE_STRING_OPERATOR,qbs_new_txt_len("NOT",3))))||new_error){ +if(qbevent){evnt(20854);if(r)goto S_24600;} +do{ +qbs_set(_FUNC_OPERATORUSAGE_STRING_INFO,qbs_new_txt_len("~",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20854);}while(r); +do{ +*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE= 5 ; +if(!qbevent)break;evnt(20854);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20854);}while(r); +} +S_24605:; +if (( 0 )||new_error){ +if(qbevent){evnt(20856);if(r)goto S_24605;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip3021; +sub_file_print(tmp_fileno,qbs_new_txt_len("INVALID NUMBERIC OPERATOR!",26), 0, 0, 1); +if (new_error) goto skip3021; +skip3021: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(20856);}while(r); +do{ +sub_end(); +if(!qbevent)break;evnt(20856);}while(r); +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free32.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +return *_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE; +} +qbs* FUNC_REFER(qbs*_FUNC_REFER_STRING_A2,int32*_FUNC_REFER_LONG_TYP,int32*_FUNC_REFER_LONG_METHOD){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data33.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +*_FUNC_REFER_LONG_TYPBAK=*_FUNC_REFER_LONG_TYP; +if(!qbevent)break;evnt(20861);}while(r); +do{ +qbs_set(_FUNC_REFER_STRING_A,_FUNC_REFER_STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20865);}while(r); +do{ +*_FUNC_REFER_LONG_I=func_instr(NULL,_FUNC_REFER_STRING_A,__STRING1_SP3,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20868);}while(r); +S_24612:; +if ((*_FUNC_REFER_LONG_I)||new_error){ +if(qbevent){evnt(20869);if(r)goto S_24612;} +do{ +*_FUNC_REFER_LONG_IDNUMBER=qbr(func_val(qbs_left(_FUNC_REFER_STRING_A,*_FUNC_REFER_LONG_I- 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20870);}while(r); +do{ +qbs_set(_FUNC_REFER_STRING_A,qbs_right(_FUNC_REFER_STRING_A,_FUNC_REFER_STRING_A->len-*_FUNC_REFER_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20870);}while(r); +}else{ +do{ +*_FUNC_REFER_LONG_IDNUMBER=qbr(func_val(_FUNC_REFER_STRING_A)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20872);}while(r); +} +do{ +SUB_GETID(_FUNC_REFER_LONG_IDNUMBER); +if(!qbevent)break;evnt(20874);}while(r); +S_24619:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(20875);if(r)goto S_24619;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20875);}while(r); +} +S_24622:; +if ((*_FUNC_REFER_LONG_TYP&*__LONG_ISUDT)||new_error){ +if(qbevent){evnt(20878);if(r)goto S_24622;} +S_24623:; +if ((-(*_FUNC_REFER_LONG_METHOD== 1 ))||new_error){ +if(qbevent){evnt(20879);if(r)goto S_24623;} +do{ +qbs_set(_FUNC_REFER_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(20880);}while(r); +S_24625:; +if ((-(*(int32*)(((char*)__UDT_ID)+(536))== 0 ))||new_error){ +if(qbevent){evnt(20881);if(r)goto S_24625;} +do{ +qbs_set(_FUNC_REFER_STRING_N,qbs_add(qbs_new_txt_len("ARRAY_",6),_FUNC_REFER_STRING_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20881);}while(r); +} +do{ +qbs_set(_FUNC_REFER_STRING_N,qbs_add(FUNC_SCOPE(),_FUNC_REFER_STRING_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20882);}while(r); +do{ +qbs_set(_FUNC_REFER_STRING_REFER,_FUNC_REFER_STRING_N); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20883);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20884);}while(r); +} +do{ +*_FUNC_REFER_LONG_U=qbr(func_val(_FUNC_REFER_STRING_A)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20889);}while(r); +do{ +*_FUNC_REFER_LONG_I=func_instr(NULL,_FUNC_REFER_STRING_A,__STRING1_SP3,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20890);}while(r); +do{ +qbs_set(_FUNC_REFER_STRING_A,qbs_right(_FUNC_REFER_STRING_A,_FUNC_REFER_STRING_A->len-*_FUNC_REFER_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20890);}while(r); +do{ +*__LONG_E=qbr(func_val(_FUNC_REFER_STRING_A)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20890);}while(r); +do{ +*_FUNC_REFER_LONG_I=func_instr(NULL,_FUNC_REFER_STRING_A,__STRING1_SP3,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20891);}while(r); +do{ +qbs_set(_FUNC_REFER_STRING_O,qbs_right(_FUNC_REFER_STRING_A,_FUNC_REFER_STRING_A->len-*_FUNC_REFER_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20891);}while(r); +do{ +qbs_set(_FUNC_REFER_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(20892);}while(r); +S_24639:; +if ((-(*(int32*)(((char*)__UDT_ID)+(536))== 0 ))||new_error){ +if(qbevent){evnt(20892);if(r)goto S_24639;} +do{ +qbs_set(_FUNC_REFER_STRING_N,qbs_add(qbs_add(qbs_new_txt_len("ARRAY_",6),_FUNC_REFER_STRING_N),qbs_new_txt_len("[0]",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20892);}while(r); +} +S_24642:; +if ((-(*__LONG_E== 0 ))||new_error){ +if(qbevent){evnt(20893);if(r)goto S_24642;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("User defined types in expressions are invalid",45)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20893);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20893);}while(r); +} +S_24646:; +if ((*_FUNC_REFER_LONG_TYP&*__LONG_ISOFFSETINBITS)||new_error){ +if(qbevent){evnt(20894);if(r)goto S_24646;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Cannot resolve bit-length variables inside user defined types",61)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20894);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20894);}while(r); +} +S_24650:; +if ((*_FUNC_REFER_LONG_TYP&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(20896);if(r)goto S_24650;} +S_24651:; +if ((*_FUNC_REFER_LONG_TYP&*__LONG_ISFIXEDLENGTH)||new_error){ +if(qbevent){evnt(20897);if(r)goto S_24651;} +do{ +qbs_set(_FUNC_REFER_STRING_O2,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(((uint8*)",10),FUNC_SCOPE()),_FUNC_REFER_STRING_N),qbs_new_txt_len(")+(",3)),_FUNC_REFER_STRING_O),qbs_new_txt_len("))",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20898);}while(r); +do{ +qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_new_fixed(",14),_FUNC_REFER_STRING_O2),qbs_new_txt_len(",",1)),FUNC_STR2((&(((int32*)(__ARRAY_LONG_UDTETYPESIZE[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTETYPESIZE[4],__ARRAY_LONG_UDTETYPESIZE[5])])))),qbs_new_txt_len(",1)",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20899);}while(r); +do{ +*_FUNC_REFER_LONG_TYP=*__LONG_STRINGTYPE+*__LONG_ISFIXEDLENGTH; +if(!qbevent)break;evnt(20900);}while(r); +}else{ +do{ +qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*((qbs**)((char*)",17),FUNC_SCOPE()),_FUNC_REFER_STRING_N),qbs_new_txt_len("+(",2)),_FUNC_REFER_STRING_O),qbs_new_txt_len(")))",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20902);}while(r); +do{ +*_FUNC_REFER_LONG_TYP=*__LONG_STRINGTYPE; +if(!qbevent)break;evnt(20903);}while(r); +} +}else{ +do{ +*_FUNC_REFER_LONG_TYP=*_FUNC_REFER_LONG_TYP-*__LONG_ISUDT-*__LONG_ISREFERENCE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(20906);}while(r); +S_24661:; +if ((*_FUNC_REFER_LONG_TYP&*__LONG_ISARRAY)||new_error){ +if(qbevent){evnt(20907);if(r)goto S_24661;} +do{ +*_FUNC_REFER_LONG_TYP=*_FUNC_REFER_LONG_TYP-*__LONG_ISARRAY; +if(!qbevent)break;evnt(20907);}while(r); +} +do{ +qbs_set(_FUNC_REFER_STRING_T,FUNC_TYP2CTYP(_FUNC_REFER_LONG_TYP,qbs_new_txt_len("",0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20908);}while(r); +S_24665:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(20909);if(r)goto S_24665;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20909);}while(r); +} +do{ +qbs_set(_FUNC_REFER_STRING_O2,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(((char*)",9),FUNC_SCOPE()),_FUNC_REFER_STRING_N),qbs_new_txt_len(")+(",3)),_FUNC_REFER_STRING_O),qbs_new_txt_len("))",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20910);}while(r); +do{ +qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),qbs_new_txt_len("(",1)),_FUNC_REFER_STRING_T),qbs_new_txt_len("*)",2)),_FUNC_REFER_STRING_O2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20911);}while(r); +} +do{ +qbs_set(_FUNC_REFER_STRING_REFER,_FUNC_REFER_STRING_R); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20915);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20916);}while(r); +} +S_24674:; +if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ +if(qbevent){evnt(20921);if(r)goto S_24674;} +do{ +qbs_set(_FUNC_REFER_STRING_N,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20923);}while(r); +S_24676:; +if ((-(*_FUNC_REFER_LONG_METHOD== 1 ))||new_error){ +if(qbevent){evnt(20924);if(r)goto S_24676;} +do{ +qbs_set(_FUNC_REFER_STRING_REFER,_FUNC_REFER_STRING_N); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20925);}while(r); +do{ +*_FUNC_REFER_LONG_TYP=*_FUNC_REFER_LONG_TYPBAK; +if(!qbevent)break;evnt(20926);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20927);}while(r); +} +do{ +*_FUNC_REFER_LONG_TYP=*_FUNC_REFER_LONG_TYP-*__LONG_ISPOINTER-*__LONG_ISREFERENCE; +if(!qbevent)break;evnt(20929);}while(r); +S_24682:; +if (((*_FUNC_REFER_LONG_TYP&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(20931);if(r)goto S_24682;} +S_24683:; +if (((*_FUNC_REFER_LONG_TYP&*__LONG_ISFIXEDLENGTH))||new_error){ +if(qbevent){evnt(20932);if(r)goto S_24683;} +do{ +qbs_set(_FUNC_REFER_STRING_OFFSET,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("&((uint8*)(",11),_FUNC_REFER_STRING_N),qbs_new_txt_len("[0]))[(",7)),_FUNC_REFER_STRING_A),qbs_new_txt_len(")*",2)),FUNC_STR2((int32*)(void*)( ((char*)(__UDT_ID)) + (540) ))),qbs_new_txt_len("]",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20933);}while(r); +do{ +qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_new_fixed(",14),_FUNC_REFER_STRING_OFFSET),qbs_new_txt_len(",",1)),FUNC_STR2((int32*)(void*)( ((char*)(__UDT_ID)) + (540) ))),qbs_new_txt_len(",1)",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20934);}while(r); +}else{ +do{ +qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("((qbs*)(((uint64*)(",19),_FUNC_REFER_STRING_N),qbs_new_txt_len("[0]))[",6)),_FUNC_REFER_STRING_A),qbs_new_txt_len("]))",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20936);}while(r); +} +do{ +*__INTEGER_STRINGPROCESSINGHAPPENED= 1 ; +if(!qbevent)break;evnt(20938);}while(r); +do{ +qbs_set(_FUNC_REFER_STRING_REFER,_FUNC_REFER_STRING_R); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20939);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20940);}while(r); +} +S_24693:; +if (((*_FUNC_REFER_LONG_TYP&*__LONG_ISOFFSETINBITS))||new_error){ +if(qbevent){evnt(20943);if(r)goto S_24693;} +S_24694:; +if (((*_FUNC_REFER_LONG_TYP&*__LONG_ISUNSIGNED))||new_error){ +if(qbevent){evnt(20946);if(r)goto S_24694;} +do{ +qbs_set(_FUNC_REFER_STRING_R,qbs_new_txt_len("getubits",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20946);}while(r); +}else{ +do{ +qbs_set(_FUNC_REFER_STRING_R,qbs_new_txt_len("getbits",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20946);}while(r); +} +do{ +qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(_FUNC_REFER_STRING_R,qbs_new_txt_len("(",1)),FUNC_STR2(&(pass3026=*_FUNC_REFER_LONG_TYP& 511 ))),qbs_new_txt_len(",",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20947);}while(r); +do{ +qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_REFER_STRING_R,qbs_new_txt_len("(uint8*)(",9)),_FUNC_REFER_STRING_N),qbs_new_txt_len("[0])",4)),qbs_new_txt_len(",",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20948);}while(r); +do{ +qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(_FUNC_REFER_STRING_R,_FUNC_REFER_STRING_A),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20949);}while(r); +do{ +qbs_set(_FUNC_REFER_STRING_REFER,_FUNC_REFER_STRING_R); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20950);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20951);}while(r); +}else{ +do{ +qbs_set(_FUNC_REFER_STRING_T,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20953);}while(r); +S_24706:; +if (((*_FUNC_REFER_LONG_TYP&*__LONG_ISFLOAT))||new_error){ +if(qbevent){evnt(20954);if(r)goto S_24706;} +S_24707:; +if ((-((*_FUNC_REFER_LONG_TYP& 511 )== 32 ))||new_error){ +if(qbevent){evnt(20955);if(r)goto S_24707;} +do{ +qbs_set(_FUNC_REFER_STRING_T,qbs_new_txt_len("float",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20955);}while(r); +} +S_24710:; +if ((-((*_FUNC_REFER_LONG_TYP& 511 )== 64 ))||new_error){ +if(qbevent){evnt(20956);if(r)goto S_24710;} +do{ +qbs_set(_FUNC_REFER_STRING_T,qbs_new_txt_len("double",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20956);}while(r); +} +S_24713:; +if ((-((*_FUNC_REFER_LONG_TYP& 511 )== 256 ))||new_error){ +if(qbevent){evnt(20957);if(r)goto S_24713;} +do{ +qbs_set(_FUNC_REFER_STRING_T,qbs_new_txt_len("long double",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20957);}while(r); +} +}else{ +S_24717:; +if (((*_FUNC_REFER_LONG_TYP&*__LONG_ISUNSIGNED))||new_error){ +if(qbevent){evnt(20959);if(r)goto S_24717;} +S_24718:; +if ((-((*_FUNC_REFER_LONG_TYP& 511 )== 8 ))||new_error){ +if(qbevent){evnt(20960);if(r)goto S_24718;} +do{ +qbs_set(_FUNC_REFER_STRING_T,qbs_new_txt_len("uint8",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20960);}while(r); +} +S_24721:; +if ((-((*_FUNC_REFER_LONG_TYP& 511 )== 16 ))||new_error){ +if(qbevent){evnt(20961);if(r)goto S_24721;} +do{ +qbs_set(_FUNC_REFER_STRING_T,qbs_new_txt_len("uint16",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20961);}while(r); +} +S_24724:; +if ((-((*_FUNC_REFER_LONG_TYP& 511 )== 32 ))||new_error){ +if(qbevent){evnt(20962);if(r)goto S_24724;} +do{ +qbs_set(_FUNC_REFER_STRING_T,qbs_new_txt_len("uint32",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20962);}while(r); +} +S_24727:; +if ((-((*_FUNC_REFER_LONG_TYP& 511 )== 64 ))||new_error){ +if(qbevent){evnt(20963);if(r)goto S_24727;} +do{ +qbs_set(_FUNC_REFER_STRING_T,qbs_new_txt_len("uint64",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20963);}while(r); +} +S_24730:; +if ((*_FUNC_REFER_LONG_TYP&*__LONG_ISOFFSET)||new_error){ +if(qbevent){evnt(20964);if(r)goto S_24730;} +do{ +qbs_set(_FUNC_REFER_STRING_T,qbs_new_txt_len("uptrszint",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20964);}while(r); +} +}else{ +S_24734:; +if ((-((*_FUNC_REFER_LONG_TYP& 511 )== 8 ))||new_error){ +if(qbevent){evnt(20966);if(r)goto S_24734;} +do{ +qbs_set(_FUNC_REFER_STRING_T,qbs_new_txt_len("int8",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20966);}while(r); +} +S_24737:; +if ((-((*_FUNC_REFER_LONG_TYP& 511 )== 16 ))||new_error){ +if(qbevent){evnt(20967);if(r)goto S_24737;} +do{ +qbs_set(_FUNC_REFER_STRING_T,qbs_new_txt_len("int16",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20967);}while(r); +} +S_24740:; +if ((-((*_FUNC_REFER_LONG_TYP& 511 )== 32 ))||new_error){ +if(qbevent){evnt(20968);if(r)goto S_24740;} +do{ +qbs_set(_FUNC_REFER_STRING_T,qbs_new_txt_len("int32",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20968);}while(r); +} +S_24743:; +if ((-((*_FUNC_REFER_LONG_TYP& 511 )== 64 ))||new_error){ +if(qbevent){evnt(20969);if(r)goto S_24743;} +do{ +qbs_set(_FUNC_REFER_STRING_T,qbs_new_txt_len("int64",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20969);}while(r); +} +S_24746:; +if ((*_FUNC_REFER_LONG_TYP&*__LONG_ISOFFSET)||new_error){ +if(qbevent){evnt(20970);if(r)goto S_24746;} +do{ +qbs_set(_FUNC_REFER_STRING_T,qbs_new_txt_len("ptrszint",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20970);}while(r); +} +} +} +} +S_24752:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_REFER_STRING_T,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(20974);if(r)goto S_24752;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Cannot find C type to return array data",39)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20974);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20974);}while(r); +} +do{ +qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("((",2),_FUNC_REFER_STRING_T),qbs_new_txt_len("*)(",3)),_FUNC_REFER_STRING_N),qbs_new_txt_len("[0]))[",6)),_FUNC_REFER_STRING_A),qbs_new_txt_len("]",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20975);}while(r); +do{ +qbs_set(_FUNC_REFER_STRING_REFER,_FUNC_REFER_STRING_R); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20976);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(20977);}while(r); +} +S_24760:; +if ((*(int32*)(((char*)__UDT_ID)+(536)))||new_error){ +if(qbevent){evnt(20981);if(r)goto S_24760;} +do{ +qbs_set(_FUNC_REFER_STRING_R,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20982);}while(r); +do{ +*_FUNC_REFER_LONG_T=*(int32*)(((char*)__UDT_ID)+(536)); +if(!qbevent)break;evnt(20983);}while(r); +S_24763:; +if (((*_FUNC_REFER_LONG_T&*__LONG_ISINCONVENTIONALMEMORY))||new_error){ +if(qbevent){evnt(20985);if(r)goto S_24763;} +do{ +*_FUNC_REFER_LONG_T=*_FUNC_REFER_LONG_T-*__LONG_ISINCONVENTIONALMEMORY; +if(!qbevent)break;evnt(20985);}while(r); +} +S_24766:; +if (((*_FUNC_REFER_LONG_T&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(20987);if(r)goto S_24766;} +S_24767:; +if (((*_FUNC_REFER_LONG_T&*__LONG_ISFIXEDLENGTH))||new_error){ +if(qbevent){evnt(20988);if(r)goto S_24767;} +do{ +qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(FUNC_SCOPE(),qbs_new_txt_len("STRING",6)),FUNC_STR2((int32*)(void*)( ((char*)(__UDT_ID)) + (540) ))),qbs_new_txt_len("_",1)),_FUNC_REFER_STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20989);}while(r); +do{ +goto LABEL_REF; +if(!qbevent)break;evnt(20989);}while(r); +} +do{ +qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(FUNC_SCOPE(),qbs_new_txt_len("STRING_",7)),_FUNC_REFER_STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20991);}while(r); +do{ +goto LABEL_REF; +if(!qbevent)break;evnt(20991);}while(r); +} +S_24774:; +if (((*_FUNC_REFER_LONG_T&*__LONG_ISOFFSETINBITS))||new_error){ +if(qbevent){evnt(20994);if(r)goto S_24774;} +S_24775:; +if (((*_FUNC_REFER_LONG_T&*__LONG_ISUNSIGNED))||new_error){ +if(qbevent){evnt(20995);if(r)goto S_24775;} +do{ +qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("UBIT",4)),FUNC_STR2(&(pass3027=*_FUNC_REFER_LONG_T& 511 ))),qbs_new_txt_len("_",1)),_FUNC_REFER_STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20996);}while(r); +}else{ +do{ +qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("BIT",3)),FUNC_STR2(&(pass3028=*_FUNC_REFER_LONG_T& 511 ))),qbs_new_txt_len("_",1)),_FUNC_REFER_STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(20998);}while(r); +} +do{ +goto LABEL_REF; +if(!qbevent)break;evnt(21000);}while(r); +} +S_24782:; +if ((-(*_FUNC_REFER_LONG_T==*__LONG_BYTETYPE))||new_error){ +if(qbevent){evnt(21002);if(r)goto S_24782;} +do{ +qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("BYTE_",5)),_FUNC_REFER_STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21002);}while(r); +do{ +goto LABEL_REF; +if(!qbevent)break;evnt(21002);}while(r); +} +S_24786:; +if ((-(*_FUNC_REFER_LONG_T==*__LONG_UBYTETYPE))||new_error){ +if(qbevent){evnt(21003);if(r)goto S_24786;} +do{ +qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("UBYTE_",6)),_FUNC_REFER_STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21003);}while(r); +do{ +goto LABEL_REF; +if(!qbevent)break;evnt(21003);}while(r); +} +S_24790:; +if ((-(*_FUNC_REFER_LONG_T==*__LONG_INTEGERTYPE))||new_error){ +if(qbevent){evnt(21004);if(r)goto S_24790;} +do{ +qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("INTEGER_",8)),_FUNC_REFER_STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21004);}while(r); +do{ +goto LABEL_REF; +if(!qbevent)break;evnt(21004);}while(r); +} +S_24794:; +if ((-(*_FUNC_REFER_LONG_T==*__LONG_UINTEGERTYPE))||new_error){ +if(qbevent){evnt(21005);if(r)goto S_24794;} +do{ +qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("UINTEGER_",9)),_FUNC_REFER_STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21005);}while(r); +do{ +goto LABEL_REF; +if(!qbevent)break;evnt(21005);}while(r); +} +S_24798:; +if ((-(*_FUNC_REFER_LONG_T==*__LONG_LONGTYPE))||new_error){ +if(qbevent){evnt(21006);if(r)goto S_24798;} +do{ +qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("LONG_",5)),_FUNC_REFER_STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21006);}while(r); +do{ +goto LABEL_REF; +if(!qbevent)break;evnt(21006);}while(r); +} +S_24802:; +if ((-(*_FUNC_REFER_LONG_T==*__LONG_ULONGTYPE))||new_error){ +if(qbevent){evnt(21007);if(r)goto S_24802;} +do{ +qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("ULONG_",6)),_FUNC_REFER_STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21007);}while(r); +do{ +goto LABEL_REF; +if(!qbevent)break;evnt(21007);}while(r); +} +S_24806:; +if ((-(*_FUNC_REFER_LONG_T==*__LONG_INTEGER64TYPE))||new_error){ +if(qbevent){evnt(21008);if(r)goto S_24806;} +do{ +qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("INTEGER64_",10)),_FUNC_REFER_STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21008);}while(r); +do{ +goto LABEL_REF; +if(!qbevent)break;evnt(21008);}while(r); +} +S_24810:; +if ((-(*_FUNC_REFER_LONG_T==*__LONG_UINTEGER64TYPE))||new_error){ +if(qbevent){evnt(21009);if(r)goto S_24810;} +do{ +qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("UINTEGER64_",11)),_FUNC_REFER_STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21009);}while(r); +do{ +goto LABEL_REF; +if(!qbevent)break;evnt(21009);}while(r); +} +S_24814:; +if ((-(*_FUNC_REFER_LONG_T==*__LONG_SINGLETYPE))||new_error){ +if(qbevent){evnt(21010);if(r)goto S_24814;} +do{ +qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("SINGLE_",7)),_FUNC_REFER_STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21010);}while(r); +do{ +goto LABEL_REF; +if(!qbevent)break;evnt(21010);}while(r); +} +S_24818:; +if ((-(*_FUNC_REFER_LONG_T==*__LONG_DOUBLETYPE))||new_error){ +if(qbevent){evnt(21011);if(r)goto S_24818;} +do{ +qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("DOUBLE_",7)),_FUNC_REFER_STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21011);}while(r); +do{ +goto LABEL_REF; +if(!qbevent)break;evnt(21011);}while(r); +} +S_24822:; +if ((-(*_FUNC_REFER_LONG_T==*__LONG_FLOATTYPE))||new_error){ +if(qbevent){evnt(21012);if(r)goto S_24822;} +do{ +qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("FLOAT_",6)),_FUNC_REFER_STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21012);}while(r); +do{ +goto LABEL_REF; +if(!qbevent)break;evnt(21012);}while(r); +} +S_24826:; +if ((-(*_FUNC_REFER_LONG_T==*__LONG_OFFSETTYPE))||new_error){ +if(qbevent){evnt(21013);if(r)goto S_24826;} +do{ +qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("OFFSET_",7)),_FUNC_REFER_STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21013);}while(r); +do{ +goto LABEL_REF; +if(!qbevent)break;evnt(21013);}while(r); +} +S_24830:; +if ((-(*_FUNC_REFER_LONG_T==*__LONG_UOFFSETTYPE))||new_error){ +if(qbevent){evnt(21014);if(r)goto S_24830;} +do{ +qbs_set(_FUNC_REFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("UOFFSET_",8)),_FUNC_REFER_STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21014);}while(r); +do{ +goto LABEL_REF; +if(!qbevent)break;evnt(21014);}while(r); +} +LABEL_REF:; +if(qbevent){evnt(21015);r=0;} +S_24834:; +if (((*_FUNC_REFER_LONG_T&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(21016);if(r)goto S_24834;} +do{ +*__INTEGER_STRINGPROCESSINGHAPPENED= 1 ; +if(!qbevent)break;evnt(21016);}while(r); +} +S_24837:; +if (((*_FUNC_REFER_LONG_T&*__LONG_ISPOINTER))||new_error){ +if(qbevent){evnt(21017);if(r)goto S_24837;} +do{ +*_FUNC_REFER_LONG_T=*_FUNC_REFER_LONG_T-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21017);}while(r); +} +do{ +*_FUNC_REFER_LONG_TYP=*_FUNC_REFER_LONG_T; +if(!qbevent)break;evnt(21018);}while(r); +S_24841:; +if ((-(*_FUNC_REFER_LONG_METHOD== 1 ))||new_error){ +if(qbevent){evnt(21019);if(r)goto S_24841;} +S_24842:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_REFER_STRING_R, 1 ),qbs_new_txt_len("*",1))))||new_error){ +if(qbevent){evnt(21020);if(r)goto S_24842;} +do{ +qbs_set(_FUNC_REFER_STRING_R,qbs_right(_FUNC_REFER_STRING_R,_FUNC_REFER_STRING_R->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21020);}while(r); +} +do{ +*_FUNC_REFER_LONG_TYP=*_FUNC_REFER_LONG_TYPBAK; +if(!qbevent)break;evnt(21021);}while(r); +} +do{ +qbs_set(_FUNC_REFER_STRING_REFER,_FUNC_REFER_STRING_R); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21023);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21024);}while(r); +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free33.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_REFER_STRING_REFER);return _FUNC_REFER_STRING_REFER; +} +void SUB_REGID(){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data34.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +*__LONG_IDN=*__LONG_IDN+ 1 ; +if(!qbevent)break;evnt(21032);}while(r); +S_24851:; +if ((-(*__LONG_IDN>*__LONG_IDS_MAX))||new_error){ +if(qbevent){evnt(21034);if(r)goto S_24851;} +do{ +*__LONG_IDS_MAX=*__LONG_IDS_MAX* 2 ; +if(!qbevent)break;evnt(21035);}while(r); +do{ if (__ARRAY_UDT_IDS[2]&2){ error(10); @@ -80169,9 +80169,9 @@ tmp_long=__ARRAY_UDT_IDS[5]; while(tmp_long--){ *(qbs**)(__ARRAY_UDT_IDS[0]+(22952/8+1-1)*tmp_long+ 2861)=qbs_new(0,0);} } -} -if(!qbevent)break;evnt(21036);}while(r); -do{ +} +if(!qbevent)break;evnt(21036);}while(r); +do{ if (__ARRAY_INTEGER_CMEMLIST[2]&2){ error(10); @@ -80209,9 +80209,9 @@ if (!__ARRAY_INTEGER_CMEMLIST[0]) error(257); } } __ARRAY_INTEGER_CMEMLIST[2]|=1; -} -if(!qbevent)break;evnt(21037);}while(r); -do{ +} +if(!qbevent)break;evnt(21037);}while(r); +do{ if (__ARRAY_STRING100_SFCMEMARGS[2]&2){ error(10); @@ -80249,9 +80249,9 @@ if (!__ARRAY_STRING100_SFCMEMARGS[0]) error(257); } } __ARRAY_STRING100_SFCMEMARGS[2]|=1; -} -if(!qbevent)break;evnt(21038);}while(r); -do{ +} +if(!qbevent)break;evnt(21038);}while(r); +do{ if (__ARRAY_INTEGER_ARRAYELEMENTSLIST[2]&2){ error(10); @@ -80289,15415 +80289,15415 @@ if (!__ARRAY_INTEGER_ARRAYELEMENTSLIST[0]) error(257); } } __ARRAY_INTEGER_ARRAYELEMENTSLIST[2]|=1; -} -if(!qbevent)break;evnt(21039);}while(r); -} -do{ -qbs_set(_SUB_REGID_STRING_N,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21042);}while(r); -S_24859:; -if ((-(*__LONG_REGINTERNALSUBFUNC== 0 ))||new_error){ -if(qbevent){evnt(21044);if(r)goto S_24859;} -S_24860:; -if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(_SUB_REGID_STRING_N)== 0 )))||new_error){ -if(qbevent){evnt(21045);if(r)goto S_24860;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Invalid name",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21045);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21045);}while(r); -} -} -S_24865:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1))== 32 )))||new_error){ -if(qbevent){evnt(21049);if(r)goto S_24865;} -do{ -qbs_set(_SUB_REGID_STRING_N,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21050);}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_ucase(_SUB_REGID_STRING_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21051);}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1),_SUB_REGID_STRING_N); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21052);}while(r); -} -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(2385)),256,1),__STRING_SUBFUNC); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21055);}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2641))=*__LONG_SUBFUNCN; -if(!qbevent)break;evnt(21056);}while(r); -S_24872:; -if ((*__INTEGER_DIMSHARED)||new_error){ -if(qbevent){evnt(21059);if(r)goto S_24872;} -do{ -*(int16*)(((char*)__UDT_ID)+(2645))=*__INTEGER_DIMSHARED; -if(!qbevent)break;evnt(21060);}while(r); -}else{ -S_24875:; -if ((*__LONG_DIMSTATIC)||new_error){ -if(qbevent){evnt(21062);if(r)goto S_24875;} -do{ -*(int16*)(((char*)__UDT_ID)+(2853))= 1 ; -if(!qbevent)break;evnt(21062);}while(r); -} -} -do{ -memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 0),(((char*)__UDT_ID)+(0)+ 0), 256); -memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 256),(((char*)__UDT_ID)+(0)+ 256), 256); -memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 512),(((char*)__UDT_ID)+(0)+ 512), 4); -memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 516),(((char*)__UDT_ID)+(0)+ 516), 2); -memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 518),(((char*)__UDT_ID)+(0)+ 518), 2); -memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 520),(((char*)__UDT_ID)+(0)+ 520), 8); -memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 528),(((char*)__UDT_ID)+(0)+ 528), 8); -memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 536),(((char*)__UDT_ID)+(0)+ 536), 4); -memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 540),(((char*)__UDT_ID)+(0)+ 540), 4); -memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 544),(((char*)__UDT_ID)+(0)+ 544), 2); -memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 546),(((char*)__UDT_ID)+(0)+ 546), 2); -memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 548),(((char*)__UDT_ID)+(0)+ 548), 2); -memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 550),(((char*)__UDT_ID)+(0)+ 550), 256); -memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 806),(((char*)__UDT_ID)+(0)+ 806), 2); -memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 808),(((char*)__UDT_ID)+(0)+ 808), 1); -memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 809),(((char*)__UDT_ID)+(0)+ 809), 2); -memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 811),(((char*)__UDT_ID)+(0)+ 811), 2); -memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 813),(((char*)__UDT_ID)+(0)+ 813), 400); -memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 1213),(((char*)__UDT_ID)+(0)+ 1213), 400); -memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 1613),(((char*)__UDT_ID)+(0)+ 1613), 256); -memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 1869),(((char*)__UDT_ID)+(0)+ 1869), 256); -memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2125),(((char*)__UDT_ID)+(0)+ 2125), 256); -memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2381),(((char*)__UDT_ID)+(0)+ 2381), 4); -memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2385),(((char*)__UDT_ID)+(0)+ 2385), 256); -memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2641),(((char*)__UDT_ID)+(0)+ 2641), 4); -memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2645),(((char*)__UDT_ID)+(0)+ 2645), 2); -memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2647),(((char*)__UDT_ID)+(0)+ 2647), 100); -memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2747),(((char*)__UDT_ID)+(0)+ 2747), 100); -memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2847),(((char*)__UDT_ID)+(0)+ 2847), 4); -memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2851),(((char*)__UDT_ID)+(0)+ 2851), 2); -memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2853),(((char*)__UDT_ID)+(0)+ 2853), 2); -memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2855),(((char*)__UDT_ID)+(0)+ 2855), 4); -memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2859),(((char*)__UDT_ID)+(0)+ 2859), 2); -qbs_set(*(qbs**)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2861), *(qbs**)(((char*)__UDT_ID)+(0)+ 2861)); -if(!qbevent)break;evnt(21065);}while(r); -do{ -*__LONG_CURRENTID=*__LONG_IDN; -if(!qbevent)break;evnt(21067);}while(r); -do{ -*_SUB_REGID_LONG_HASHFLAGS= 1 ; -if(!qbevent)break;evnt(21070);}while(r); -S_24882:; -if ((*(int16*)(((char*)__UDT_ID)+(544)))||new_error){ -if(qbevent){evnt(21074);if(r)goto S_24882;} -do{ -*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_CURRENTID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+548))=*__LONG_REGINTERNALSUBFUNC; -if(!qbevent)break;evnt(21075);}while(r); -S_24884:; -if ((-(*(int16*)(((char*)__UDT_ID)+(544))== 1 ))||new_error){ -if(qbevent){evnt(21076);if(r)goto S_24884;} -do{ -*_SUB_REGID_LONG_HASHFLAGS=*_SUB_REGID_LONG_HASHFLAGS+ 128 ; -if(!qbevent)break;evnt(21076);}while(r); -}else{ -do{ -*_SUB_REGID_LONG_HASHFLAGS=*_SUB_REGID_LONG_HASHFLAGS+ 64 ; -if(!qbevent)break;evnt(21076);}while(r); -} -S_24889:; -if ((-(*__LONG_REGINTERNALSUBFUNC== 0 ))||new_error){ -if(qbevent){evnt(21077);if(r)goto S_24889;} -do{ -*_SUB_REGID_LONG_HASHCHKFLAGS= 8 + 1024 ; -if(!qbevent)break;evnt(21078);}while(r); -S_24891:; -if ((-(*(int16*)(((char*)__UDT_ID)+(544))== 1 ))||new_error){ -if(qbevent){evnt(21079);if(r)goto S_24891;} -do{ -*_SUB_REGID_LONG_HASHCHKFLAGS=*_SUB_REGID_LONG_HASHCHKFLAGS+ 128 ; -if(!qbevent)break;evnt(21079);}while(r); -}else{ -do{ -*_SUB_REGID_LONG_HASHCHKFLAGS=*_SUB_REGID_LONG_HASHCHKFLAGS+ 64 ; -if(!qbevent)break;evnt(21079);}while(r); -} -do{ -*_SUB_REGID_LONG_HASHRES=FUNC_HASHFIND(_SUB_REGID_STRING_N,_SUB_REGID_LONG_HASHCHKFLAGS,_SUB_REGID_LONG_HASHRESFLAGS,_SUB_REGID_LONG_HASHRESREF); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21080);}while(r); -S_24897:; -while((*_SUB_REGID_LONG_HASHRES)||new_error){ -if(qbevent){evnt(21081);if(r)goto S_24897;} -S_24898:; -if ((*_SUB_REGID_LONG_HASHRES)||new_error){ -if(qbevent){evnt(21082);if(r)goto S_24898;} -do{ -*_SUB_REGID_LONG_ALLOW= 0 ; -if(!qbevent)break;evnt(21086);}while(r); -S_24900:; -if ((*_SUB_REGID_LONG_HASHRESFLAGS&( 128 + 64 ))||new_error){ -if(qbevent){evnt(21087);if(r)goto S_24900;} -S_24901:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+528)),8,1)),qbs_new_txt_len("$",1))))||new_error){ -if(qbevent){evnt(21088);if(r)goto S_24901;} -S_24902:; -if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_CURRENTID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+520)),8,1),qbs_new_txt_len("$",1),0)== 0 )))||new_error){ -if(qbevent){evnt(21089);if(r)goto S_24902;} -do{ -*_SUB_REGID_LONG_ALLOW= 1 ; -if(!qbevent)break;evnt(21089);}while(r); -} -} -} -S_24907:; -if ((-(*_SUB_REGID_LONG_ALLOW== 0 ))||new_error){ -if(qbevent){evnt(21092);if(r)goto S_24907;} -do{ -SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),_SUB_REGID_STRING_N),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21092);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21092);}while(r); -} -} -S_24912:; -if ((-(*_SUB_REGID_LONG_HASHRES!= 1 ))||new_error){ -if(qbevent){evnt(21094);if(r)goto S_24912;} -do{ -*_SUB_REGID_LONG_HASHRES=FUNC_HASHFINDCONT(_SUB_REGID_LONG_HASHRESFLAGS,_SUB_REGID_LONG_HASHRESREF); -if(!qbevent)break;evnt(21094);}while(r); -}else{ -do{ -*_SUB_REGID_LONG_HASHRES= 0 ; -if(!qbevent)break;evnt(21094);}while(r); -} -dl_continue_3030:; -} -dl_exit_3030:; -S_24918:; -if ((*__LONG_IDEMODE)||new_error){ -if(qbevent){evnt(21096);if(r)goto S_24918;} -S_24919:; -if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,__STRING_LISTOFCUSTOMKEYWORDS,qbs_add(qbs_add(qbs_new_txt_len("@",1),qbs_ucase(_SUB_REGID_STRING_N)),qbs_new_txt_len("@",1)),0)== 0 )))||new_error){ -if(qbevent){evnt(21097);if(r)goto S_24919;} -do{ -qbs_set(__STRING_LISTOFCUSTOMKEYWORDS,qbs_add(qbs_add(qbs_add(__STRING_LISTOFCUSTOMKEYWORDS,qbs_new_txt_len("@",1)),qbs_ucase(_SUB_REGID_STRING_N)),qbs_new_txt_len("@",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21098);}while(r); -} -} -} -} -S_24925:; -if ((*(int32*)(((char*)__UDT_ID)+(536)))||new_error){ -if(qbevent){evnt(21105);if(r)goto S_24925;} -do{ -*_SUB_REGID_LONG_HASHFLAGS=*_SUB_REGID_LONG_HASHFLAGS+ 2048 ; -if(!qbevent)break;evnt(21106);}while(r); -S_24927:; -if ((-(*__LONG_REGINTERNALVARIABLE== 0 ))||new_error){ -if(qbevent){evnt(21107);if(r)goto S_24927;} -do{ -*_SUB_REGID_LONG_ALLOW= 0 ; -if(!qbevent)break;evnt(21108);}while(r); -LABEL_VAR_RECHECK:; -if(qbevent){evnt(21109);r=0;} -S_24929:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1))== 32 )))||new_error){ -if(qbevent){evnt(21110);if(r)goto S_24929;} -do{ -*_SUB_REGID_LONG_ASTYPE2= 1 ; -if(!qbevent)break;evnt(21110);}while(r); -} -do{ -*_SUB_REGID_LONG_SCOPE2=*__LONG_SUBFUNCN; -if(!qbevent)break;evnt(21111);}while(r); -do{ -*_SUB_REGID_LONG_HASHCHKFLAGS= 8 + 64 + 128 + 1024 + 2048 ; -if(!qbevent)break;evnt(21112);}while(r); -do{ -*_SUB_REGID_LONG_HASHRES=FUNC_HASHFIND(_SUB_REGID_STRING_N,_SUB_REGID_LONG_HASHCHKFLAGS,_SUB_REGID_LONG_HASHRESFLAGS,_SUB_REGID_LONG_HASHRESREF); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21113);}while(r); -S_24935:; -while((*_SUB_REGID_LONG_HASHRES)||new_error){ -if(qbevent){evnt(21114);if(r)goto S_24935;} -S_24936:; -if ((*_SUB_REGID_LONG_HASHRESFLAGS& 8 )||new_error){ -if(qbevent){evnt(21117);if(r)goto S_24936;} -do{ -qbs_set(_SUB_REGID_STRING_MUSTHAVE,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21118);}while(r); -S_24938:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_REGID_STRING_MUSTHAVE,qbs_new_txt_len("$",1),0)))||new_error){ -if(qbevent){evnt(21119);if(r)goto S_24938;} -}else{ -do{ -SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),_SUB_REGID_STRING_N),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21123);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21123);}while(r); -} -} -S_24944:; -if ((*_SUB_REGID_LONG_HASHRESFLAGS&( 128 + 64 ))||new_error){ -if(qbevent){evnt(21128);if(r)goto S_24944;} -S_24945:; -if ((-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+548))== 0 ))||new_error){ -if(qbevent){evnt(21129);if(r)goto S_24945;} -do{ -SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),_SUB_REGID_STRING_N),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21129);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21129);}while(r); -} -S_24949:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1)),qbs_new_txt_len("WIDTH",5)))&(-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+544))== 2 ))))||new_error){ -if(qbevent){evnt(21130);if(r)goto S_24949;} -do{ -goto LABEL_VARNAME_EXCEPTION; -if(!qbevent)break;evnt(21130);}while(r); -} -do{ -qbs_set(_SUB_REGID_STRING_MUSTHAVE,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21131);}while(r); -S_24953:; -if ((qbs_cleanup(qbs_tmp_base,-(_SUB_REGID_STRING_MUSTHAVE->len== 0 )))||new_error){ -if(qbevent){evnt(21132);if(r)goto S_24953;} -S_24954:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+528)),8,1)),qbs_new_txt_len("$",1))))||new_error){ -if(qbevent){evnt(21133);if(r)goto S_24954;} -S_24955:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,qbs_new_fixed((((uint8*)__UDT_ID)+(520)),8,1),qbs_new_txt_len("$",1),0)))||new_error){ -if(qbevent){evnt(21135);if(r)goto S_24955;} -do{ -SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),_SUB_REGID_STRING_N),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21135);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21135);}while(r); -} -}else{ -do{ -SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),_SUB_REGID_STRING_N),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21137);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21137);}while(r); -} -} -S_24964:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_REGID_STRING_MUSTHAVE,qbs_new_txt_len("$",1),0)))||new_error){ -if(qbevent){evnt(21140);if(r)goto S_24964;} -S_24965:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+528)),8,1)),qbs_new_txt_len("$",1))))||new_error){ -if(qbevent){evnt(21141);if(r)goto S_24965;} -do{ -SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),_SUB_REGID_STRING_N),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21141);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21141);}while(r); -} -}else{ -S_24970:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+528)),8,1)),qbs_new_txt_len("$",1))))||new_error){ -if(qbevent){evnt(21144);if(r)goto S_24970;} -do{ -SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),_SUB_REGID_STRING_N),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21144);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21144);}while(r); -} -} -} -S_24976:; -if ((*_SUB_REGID_LONG_HASHRESFLAGS& 1024 )||new_error){ -if(qbevent){evnt(21149);if(r)goto S_24976;} -do{ -*_SUB_REGID_LONG_SCOPE1=((int32*)(__ARRAY_LONG_CONSTSUBFUNC[0]))[array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_LONG_CONSTSUBFUNC[4],__ARRAY_LONG_CONSTSUBFUNC[5])]; -if(!qbevent)break;evnt(21150);}while(r); -S_24978:; -if (((((-(*_SUB_REGID_LONG_SCOPE1== 0 ))&(-(*__LONG_ALLOWLOCALNAME== 0 ))))|(-(*_SUB_REGID_LONG_SCOPE1==*_SUB_REGID_LONG_SCOPE2)))||new_error){ -if(qbevent){evnt(21151);if(r)goto S_24978;} -do{ -SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),_SUB_REGID_STRING_N),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21151);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21151);}while(r); -} -} -S_24983:; -if ((*_SUB_REGID_LONG_HASHRESFLAGS& 2048 )||new_error){ -if(qbevent){evnt(21155);if(r)goto S_24983;} -do{ -*_SUB_REGID_LONG_ASTYPE1= 0 ; -if(!qbevent)break;evnt(21156);}while(r); -S_24985:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+528)),8,1))== 32 )))||new_error){ -if(qbevent){evnt(21156);if(r)goto S_24985;} -do{ -*_SUB_REGID_LONG_ASTYPE1= 1 ; -if(!qbevent)break;evnt(21156);}while(r); -} -do{ -*_SUB_REGID_LONG_SCOPE1=*(int32*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+2641)); -if(!qbevent)break;evnt(21157);}while(r); -S_24989:; -if (((-(*_SUB_REGID_LONG_ASTYPE1== 1 ))&(-(*_SUB_REGID_LONG_ASTYPE2== 1 )))||new_error){ -if(qbevent){evnt(21158);if(r)goto S_24989;} -S_24990:; -if ((-(*_SUB_REGID_LONG_SCOPE1==*_SUB_REGID_LONG_SCOPE2))||new_error){ -if(qbevent){evnt(21159);if(r)goto S_24990;} -do{ -SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),_SUB_REGID_STRING_N),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21159);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21159);}while(r); -} -} -S_24995:; -if ((-(*(int32*)(((char*)__UDT_ID)+(536))==*(int32*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+536))))||new_error){ -if(qbevent){evnt(21162);if(r)goto S_24995;} -S_24996:; -if ((-(*(int32*)(((char*)__UDT_ID)+(540))==*(int32*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+540))))||new_error){ -if(qbevent){evnt(21163);if(r)goto S_24996;} -S_24997:; -if ((-(*_SUB_REGID_LONG_SCOPE1==*_SUB_REGID_LONG_SCOPE2))||new_error){ -if(qbevent){evnt(21164);if(r)goto S_24997;} -do{ -SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),_SUB_REGID_STRING_N),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21164);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21164);}while(r); -} -} -} -S_25003:; -if ((*(int32*)(((char*)__UDT_ID)+(536))&*__LONG_ISFIXEDLENGTH)||new_error){ -if(qbevent){evnt(21168);if(r)goto S_25003;} -S_25004:; -if ((-(*_SUB_REGID_LONG_ASTYPE2== 1 ))||new_error){ -if(qbevent){evnt(21169);if(r)goto S_25004;} -S_25005:; -if ((*(int32*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+536))&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(21170);if(r)goto S_25005;} -S_25006:; -if ((-((*(int32*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+536))&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ -if(qbevent){evnt(21171);if(r)goto S_25006;} -S_25007:; -if ((-(*_SUB_REGID_LONG_SCOPE1==*_SUB_REGID_LONG_SCOPE2))||new_error){ -if(qbevent){evnt(21172);if(r)goto S_25007;} -do{ -SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),_SUB_REGID_STRING_N),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21172);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21172);}while(r); -} -} -} -} -} -} -LABEL_VARNAME_EXCEPTION:; -if(qbevent){evnt(21179);r=0;} -S_25016:; -if ((-(*_SUB_REGID_LONG_HASHRES!= 1 ))||new_error){ -if(qbevent){evnt(21180);if(r)goto S_25016;} -do{ -*_SUB_REGID_LONG_HASHRES=FUNC_HASHFINDCONT(_SUB_REGID_LONG_HASHRESFLAGS,_SUB_REGID_LONG_HASHRESREF); -if(!qbevent)break;evnt(21180);}while(r); -}else{ -do{ -*_SUB_REGID_LONG_HASHRES= 0 ; -if(!qbevent)break;evnt(21180);}while(r); -} -dl_continue_3031:; -} -dl_exit_3031:; -} -} -S_25024:; -if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ -if(qbevent){evnt(21186);if(r)goto S_25024;} -do{ -*_SUB_REGID_LONG_HASHFLAGS=*_SUB_REGID_LONG_HASHFLAGS+ 4096 ; -if(!qbevent)break;evnt(21187);}while(r); -do{ -*_SUB_REGID_LONG_ALLOW= 0 ; -if(!qbevent)break;evnt(21188);}while(r); -LABEL_ARY_RECHECK:; -if(qbevent){evnt(21189);r=0;} -do{ -*_SUB_REGID_LONG_SCOPE2=*__LONG_SUBFUNCN; -if(!qbevent)break;evnt(21190);}while(r); -S_25028:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1))== 32 )))||new_error){ -if(qbevent){evnt(21191);if(r)goto S_25028;} -do{ -*_SUB_REGID_LONG_ASTYPE2= 1 ; -if(!qbevent)break;evnt(21191);}while(r); -} -do{ -*_SUB_REGID_LONG_HASHCHKFLAGS= 8 + 64 + 128 + 4096 ; -if(!qbevent)break;evnt(21192);}while(r); -do{ -*_SUB_REGID_LONG_HASHRES=FUNC_HASHFIND(_SUB_REGID_STRING_N,_SUB_REGID_LONG_HASHCHKFLAGS,_SUB_REGID_LONG_HASHRESFLAGS,_SUB_REGID_LONG_HASHRESREF); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21193);}while(r); -S_25033:; -while((*_SUB_REGID_LONG_HASHRES)||new_error){ -if(qbevent){evnt(21194);if(r)goto S_25033;} -S_25034:; -if ((*_SUB_REGID_LONG_HASHRESFLAGS& 8 )||new_error){ -if(qbevent){evnt(21197);if(r)goto S_25034;} -do{ -qbs_set(_SUB_REGID_STRING_MUSTHAVE,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21198);}while(r); -S_25036:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_REGID_STRING_MUSTHAVE,qbs_new_txt_len("$",1),0)))||new_error){ -if(qbevent){evnt(21199);if(r)goto S_25036;} -}else{ -do{ -SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),_SUB_REGID_STRING_N),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21203);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21203);}while(r); -} -} -S_25042:; -if ((*_SUB_REGID_LONG_HASHRESFLAGS&( 128 + 64 ))||new_error){ -if(qbevent){evnt(21208);if(r)goto S_25042;} -S_25043:; -if ((-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+548))== 0 ))||new_error){ -if(qbevent){evnt(21209);if(r)goto S_25043;} -do{ -SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),_SUB_REGID_STRING_N),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21209);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21209);}while(r); -} -S_25047:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1)),qbs_new_txt_len("WIDTH",5)))&(-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+544))== 2 ))))||new_error){ -if(qbevent){evnt(21210);if(r)goto S_25047;} -do{ -goto LABEL_ARRAYNAME_EXCEPTION; -if(!qbevent)break;evnt(21210);}while(r); -} -do{ -qbs_set(_SUB_REGID_STRING_MUSTHAVE,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21211);}while(r); -S_25051:; -if ((qbs_cleanup(qbs_tmp_base,-(_SUB_REGID_STRING_MUSTHAVE->len== 0 )))||new_error){ -if(qbevent){evnt(21213);if(r)goto S_25051;} -S_25052:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+528)),8,1)),qbs_new_txt_len("$",1))))||new_error){ -if(qbevent){evnt(21214);if(r)goto S_25052;} -S_25053:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,qbs_new_fixed((((uint8*)__UDT_ID)+(520)),8,1),qbs_new_txt_len("$",1),0)))||new_error){ -if(qbevent){evnt(21216);if(r)goto S_25053;} -do{ -SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),_SUB_REGID_STRING_N),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21216);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21216);}while(r); -} -}else{ -do{ -SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),_SUB_REGID_STRING_N),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21218);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21218);}while(r); -} -} -S_25062:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_REGID_STRING_MUSTHAVE,qbs_new_txt_len("$",1),0)))||new_error){ -if(qbevent){evnt(21221);if(r)goto S_25062;} -S_25063:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+528)),8,1)),qbs_new_txt_len("$",1))))||new_error){ -if(qbevent){evnt(21222);if(r)goto S_25063;} -do{ -SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),_SUB_REGID_STRING_N),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21222);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21222);}while(r); -} -}else{ -S_25068:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+528)),8,1)),qbs_new_txt_len("$",1))))||new_error){ -if(qbevent){evnt(21225);if(r)goto S_25068;} -do{ -SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),_SUB_REGID_STRING_N),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21225);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21225);}while(r); -} -} -} -S_25074:; -if ((*_SUB_REGID_LONG_HASHRESFLAGS& 4096 )||new_error){ -if(qbevent){evnt(21230);if(r)goto S_25074;} -do{ -*_SUB_REGID_LONG_ASTYPE1= 0 ; -if(!qbevent)break;evnt(21231);}while(r); -S_25076:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+528)),8,1))== 32 )))||new_error){ -if(qbevent){evnt(21231);if(r)goto S_25076;} -do{ -*_SUB_REGID_LONG_ASTYPE1= 1 ; -if(!qbevent)break;evnt(21231);}while(r); -} -do{ -*_SUB_REGID_LONG_SCOPE1=*(int32*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+2641)); -if(!qbevent)break;evnt(21232);}while(r); -S_25080:; -if (((-(*_SUB_REGID_LONG_ASTYPE1== 1 ))&(-(*_SUB_REGID_LONG_ASTYPE2== 1 )))||new_error){ -if(qbevent){evnt(21233);if(r)goto S_25080;} -S_25081:; -if ((-(*_SUB_REGID_LONG_SCOPE1==*_SUB_REGID_LONG_SCOPE2))||new_error){ -if(qbevent){evnt(21234);if(r)goto S_25081;} -do{ -SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),_SUB_REGID_STRING_N),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21234);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21234);}while(r); -} -} -S_25086:; -if ((-(*(int32*)(((char*)__UDT_ID)+(512))==*(int32*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+512))))||new_error){ -if(qbevent){evnt(21237);if(r)goto S_25086;} -S_25087:; -if ((-(*(int32*)(((char*)__UDT_ID)+(540))==*(int32*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+540))))||new_error){ -if(qbevent){evnt(21238);if(r)goto S_25087;} -S_25088:; -if ((-(*_SUB_REGID_LONG_SCOPE1==*_SUB_REGID_LONG_SCOPE2))||new_error){ -if(qbevent){evnt(21239);if(r)goto S_25088;} -do{ -SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),_SUB_REGID_STRING_N),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21239);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21239);}while(r); -} -} -} -S_25094:; -if ((*(int32*)(((char*)__UDT_ID)+(512))&*__LONG_ISFIXEDLENGTH)||new_error){ -if(qbevent){evnt(21243);if(r)goto S_25094;} -S_25095:; -if ((-(*_SUB_REGID_LONG_ASTYPE2== 1 ))||new_error){ -if(qbevent){evnt(21244);if(r)goto S_25095;} -S_25096:; -if ((*(int32*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+512))&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(21245);if(r)goto S_25096;} -S_25097:; -if ((-((*(int32*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+512))&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ -if(qbevent){evnt(21246);if(r)goto S_25097;} -S_25098:; -if ((-(*_SUB_REGID_LONG_SCOPE1==*_SUB_REGID_LONG_SCOPE2))||new_error){ -if(qbevent){evnt(21247);if(r)goto S_25098;} -do{ -SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),_SUB_REGID_STRING_N),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21247);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21247);}while(r); -} -} -} -} -} -} -LABEL_ARRAYNAME_EXCEPTION:; -if(qbevent){evnt(21254);r=0;} -S_25107:; -if ((-(*_SUB_REGID_LONG_HASHRES!= 1 ))||new_error){ -if(qbevent){evnt(21255);if(r)goto S_25107;} -do{ -*_SUB_REGID_LONG_HASHRES=FUNC_HASHFINDCONT(_SUB_REGID_LONG_HASHRESFLAGS,_SUB_REGID_LONG_HASHRESREF); -if(!qbevent)break;evnt(21255);}while(r); -}else{ -do{ -*_SUB_REGID_LONG_HASHRES= 0 ; -if(!qbevent)break;evnt(21255);}while(r); -} -dl_continue_3033:; -} -dl_exit_3033:; -} -do{ -SUB_HASHADD(_SUB_REGID_STRING_N,_SUB_REGID_LONG_HASHFLAGS,__LONG_CURRENTID); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21260);}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free34.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -void SUB_REGINTERNAL(){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data35.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -*__LONG_REGINTERNALSUBFUNC= 1 ; -if(!qbevent)break;evnt(21265);}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,28,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Asc",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,29,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,29,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,29,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,29,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,30,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Asc",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,31,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,31,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,31,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,31,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,32,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("End",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,33,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,33,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,33,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,33,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,34,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("LSet",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,35,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,35,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,35,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,35,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,36,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("RSet",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,37,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,37,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,37,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,37,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,38,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Mid",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,39,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,39,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,39,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,39,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,39,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,40,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Print",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,41,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,41,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,41,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,41,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,42,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Option",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,43,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,43,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,43,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,43,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,44,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Swap",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,45,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,45,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,45,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,45,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,46,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("System",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,47,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,47,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,47,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,47,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,48,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Write",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,49,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,49,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,49,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,49,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,50,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Read",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,51,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,51,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,51,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,51,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,52,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Close",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,53,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,53,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,53,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,53,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,54,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Reset",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,55,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,55,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,55,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,55,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,56,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Input",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,57,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,57,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,57,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,57,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,59,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("TrOn",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,60,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,60,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,60,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,60,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,61,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("TrOff",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,62,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,62,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,62,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,62,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,63,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("List",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,64,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,64,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,64,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,64,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,65,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Def",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,66,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,66,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,66,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(2125)),256,1),qbs_new_txt_len("SEG",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,66,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,66,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,67,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("IoCtl",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,68,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,68,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,68,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,68,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,69,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("IoCtl",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,70,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,70,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_stub",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,70,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,70,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,70,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,70,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,70,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,70,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,71,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Fre",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,72,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,72,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_stub",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,72,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,72,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,72,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,72,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,72,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,73,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("SetMem",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,74,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,74,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_stub",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,74,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,74,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,74,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,74,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,74,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,75,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("FileAttr",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,76,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,76,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_stub",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,76,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(21266,76,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,76,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,76,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,76,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,77,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MemGet",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,78,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,78,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,78,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,78,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,79,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MemPut",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,80,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,80,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,80,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,80,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,81,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MemFill",7))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,82,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,82,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,82,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,82,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,83,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Continue",8))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,84,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,84,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,84,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,84,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,87,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Resize",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,88,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,89,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__resize",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,90,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(21266,91,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,92,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[{On|Off}][,{_Stretch|_Smooth}]",31)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,93,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_RESIZE [{ON|OFF}][, {_STRETCH|_SMOOTH}]",40)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,94,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,95,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,97,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Resize",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,98,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,99,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__resize",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,100,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,101,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_RESIZE",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,102,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,103,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,105,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ResizeWidth",11))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,106,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,107,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__resizewidth",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,108,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,109,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_RESIZEWIDTH",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,110,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,111,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,113,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ResizeHeight",12))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,114,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,115,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__resizeheight",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,116,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,117,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_RESIZEHEIGHT",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,118,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,119,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,121,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ScaledWidth",11))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,122,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,123,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__scaledwidth",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,124,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,125,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SCALEDWIDTH",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,126,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,127,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,129,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ScaledHeight",12))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,130,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,131,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__scaledheight",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,132,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,133,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SCALEDHEIGHT",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,134,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,135,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,138,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("GLRender",8))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,139,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,140,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__glrender",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,141,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,142,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,143,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("{_Behind|_OnTop|_Only}",22)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,144,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_GLRENDER {_Behind|_OnTop|_Only}",32)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,145,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,146,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,148,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("DisplayOrder",12))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,149,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,150,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__displayorder",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,151,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 4 ; -if(!qbevent)break;evnt(21266,152,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,153,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[{_Software|_Hardware|_Hardware1|_GLRender}[,{_Software|_Hardware|_Hardware1|_GLRender}[,{_Software|_Hardware|_Hardware1|_GLRender}[,{_Software|_Hardware|_Hardware1|_GLRender}]]]]",179)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,154,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_DISPLAYORDER {_Software|_Hardware|_Hardware1|_GLRender} (any combination/order)",80)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,155,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,156,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,158,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MemGet",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,159,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,160,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__memget",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,161,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 3 ; -if(!qbevent)break;evnt(21266,162,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_UDTTYPE+( 1 )),l2string(*__LONG_OFFSETTYPE-*__LONG_ISPOINTER)),l2string( -1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,163,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))= -1 ; -if(!qbevent)break;evnt(21266,164,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_MEMGET(block, offset, type)",28)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,165,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,166,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,168,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Mem",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,169,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,170,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__mem",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,171,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(21266,174,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_OFFSETTYPE-*__LONG_ISPOINTER),l2string(*__LONG_OFFSETTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,175,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,?]",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,176,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_ISUDT+( 1 ); -if(!qbevent)break;evnt(21266,177,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_MEM(referenceVariable) or _MEM(offset, byteSize)",49)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,178,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,179,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,182,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MemElement",10))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,183,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,184,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__mem",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,185,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,186,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string( -8 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,187,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_ISUDT+( 1 ); -if(!qbevent)break;evnt(21266,188,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_MEMELEMENT(referenceVariable)",30)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,189,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,190,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,195,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MemFree",7))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,196,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,197,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__memfree",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,198,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,199,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_UDTTYPE+( 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,200,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_MEMFREE memoryVariable",23)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,201,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,202,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,204,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MemExists",9))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,205,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,206,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__memexists",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,207,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,208,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_UDTTYPE+( 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,209,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,210,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_MEMEXISTS(memBlock)",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,211,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,212,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,214,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MemNew",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,215,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,216,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__memnew",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,217,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,218,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_OFFSETTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,219,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_ISUDT+( 1 ); -if(!qbevent)break;evnt(21266,220,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_MEMNEW(byteSize)",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,221,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,222,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,224,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MemImage",8))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,225,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,226,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__memimage",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,227,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,228,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,229,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,230,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_ISUDT+( 1 ); -if(!qbevent)break;evnt(21266,231,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_MEMIMAGE or _MEMIMAGE(imageHandle)",35)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,232,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,233,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,235,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MemSound",8))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,236,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 3 ; -if(!qbevent)break;evnt(21266,236,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,237,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__memsound",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,238,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(21266,239,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,240,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_ISUDT+( 1 ); -if(!qbevent)break;evnt(21266,241,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_MEMSOUND(soundHandle)",22)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,242,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,243,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,245,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MemCopy",7))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,246,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,247,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__memcopy",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,248,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 5 ; -if(!qbevent)break;evnt(21266,249,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(qbs_add(l2string(*__LONG_UDTTYPE+( 1 )),l2string(*__LONG_OFFSETTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_OFFSETTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_UDTTYPE+( 1 ))),l2string(*__LONG_OFFSETTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,250,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?,?,?{To}?,?",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,251,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_MEMCOPY sourceBlock, sourceBlock.OFFSET, sourceBlock.SIZE TO destBlock, destBlock.OFFSET",89)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,252,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,253,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,255,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ConsoleTitle",12))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,256,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,257,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__consoletitle",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,258,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,259,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,260,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_CONSOLETITLE title$",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,261,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,262,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,264,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ScreenShow",10))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,265,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,266,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__screenshow",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,267,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SCREENSHOW",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,268,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,269,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,271,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ScreenHide",10))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,272,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,273,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__screenhide",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,274,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SCREENHIDE",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,275,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,276,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,278,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ScreenHide",10))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,279,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,280,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__screenhide",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,281,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,282,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SCREENHIDE",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,283,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,284,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,287,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Console",7))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,288,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,289,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__console",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,290,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,291,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_CONSOLE",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,292,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,293,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,295,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Console",7))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,296,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,297,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__console",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,298,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,299,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,300,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("{On|Off}",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,301,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_CONSOLE {On|Off}",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,302,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,303,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,305,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ControlChr",10))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,306,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,307,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__controlchr",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,308,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,309,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,310,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("{On|Off}",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,311,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_CONTROLCHR {On|Off}",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,312,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,313,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,315,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Blink",5))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,316,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,317,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__blink",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,318,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,319,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,320,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("{On|Off}",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,321,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_BLINK {On|Off}",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,322,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,323,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,325,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Blink",5))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,326,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,327,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__blink",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,328,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,329,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_BLINK",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,330,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,331,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,333,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("FileExists",10))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,334,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,335,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__fileexists",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,336,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,337,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,338,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,339,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_FILEEXISTS(fileName$)",22)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,340,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,341,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,343,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("DirExists",9))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,344,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,345,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__direxists",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,346,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,347,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,348,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,349,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_DIREXISTS(path$)",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,350,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,351,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,355,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Stick",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,356,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 12 ; -if(!qbevent)break;evnt(21266,356,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,357,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_stick",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,358,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(21266,359,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,360,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,361,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,?]",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,362,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("STICK(direction%) or STICK(direction%, axis_number%)",52)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,363,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,364,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,366,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Strig",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,367,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 12 ; -if(!qbevent)break;evnt(21266,367,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,368,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_strig",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,369,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(21266,370,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,371,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,372,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,?]",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,373,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("STRIG(button_function%) or STRIG(button_function%, device_number%)",66)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,374,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,375,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,377,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Strig",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,378,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 12 ; -if(!qbevent)break;evnt(21266,378,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,379,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_strig",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,380,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 3 ; -if(!qbevent)break;evnt(21266,381,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,382,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[(?[,?])]{On|Off|Stop}",22)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,383,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("STRIG(button%) {On|Off|Stop}",28)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,385,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,386,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,390,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Devices",7))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,391,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 12 ; -if(!qbevent)break;evnt(21266,391,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,392,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__devices",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,393,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,394,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_DEVICES",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,395,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,396,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,398,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Device",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,399,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 12 ; -if(!qbevent)break;evnt(21266,399,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,400,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,401,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__device",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,402,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,403,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,404,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,405,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,406,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_DEVICE$(device_number)",23)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,407,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,408,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,410,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("DeviceInput",11))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,411,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 12 ; -if(!qbevent)break;evnt(21266,411,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,412,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__deviceinput",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,413,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,414,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,415,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,416,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,417,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_DEVICEINPUT or _DEVICEINPUT(device_number%)",44)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,418,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,419,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,421,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("LastButton",10))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,422,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 12 ; -if(!qbevent)break;evnt(21266,422,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,423,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__lastbutton",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,424,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,425,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,426,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,427,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,428,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_LASTBUTTON(deviceNumber)",25)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,429,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,430,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,432,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("LastAxis",8))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,433,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 12 ; -if(!qbevent)break;evnt(21266,433,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,434,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__lastaxis",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,435,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,436,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,437,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,438,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,439,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_LASTAXIS(deviceNumber)",23)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,440,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,441,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,443,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("LastWheel",9))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,444,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 12 ; -if(!qbevent)break;evnt(21266,444,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,445,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__lastwheel",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,446,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,447,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,448,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,449,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,450,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_LASTWHEEL(deviceNumber)",24)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,451,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,452,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,454,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Button",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,455,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 12 ; -if(!qbevent)break;evnt(21266,455,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,456,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__button",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,457,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,458,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,459,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,460,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,461,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_BUTTON(button_number%)",23)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,462,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,463,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,465,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ButtonChange",12))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,466,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 12 ; -if(!qbevent)break;evnt(21266,466,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,467,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__buttonchange",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,468,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,469,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,470,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,471,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,472,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_BUTTONCHANGE(button_number%)",29)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,473,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,474,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,476,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Axis",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,477,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 12 ; -if(!qbevent)break;evnt(21266,477,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,478,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__axis",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,479,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,480,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,481,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,482,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,483,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_AXIS(axis_number%)",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,484,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,485,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,488,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Wheel",5))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,489,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 12 ; -if(!qbevent)break;evnt(21266,489,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,490,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__wheel",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,491,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,492,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,493,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,494,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,495,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_WHEEL(wheelNumber%)",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,496,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,497,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,508,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Key",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,509,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,510,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_key",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,511,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(21266,512,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,513,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("(?){On|Off|Stop}",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,514,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("KEY(number) {On|Off|Stop}",25)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,515,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,516,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,518,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ScreenX",7))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,519,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,520,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__screenx",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,521,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,522,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SCREENX",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,523,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,524,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,526,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ScreenY",7))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,527,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,528,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__screeny",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,529,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,530,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SCREENY",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,531,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,532,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,534,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ScreenMove",10))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,535,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,536,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__screenmove",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,537,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(21266,538,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,539,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[{_Middle}][?,?]",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,540,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SCREENMOVE x, y or _SCREENMOVE _Middle",39)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,541,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,542,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,544,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MouseMove",9))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,545,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,546,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__mousemove",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,547,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(21266,548,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER),l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,549,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_MOUSEMOVE x, y",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,550,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,551,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,553,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("OS",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,554,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,555,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,556,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__os",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,557,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,558,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_OS$",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,559,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,560,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,562,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Title",5))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,563,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,564,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,565,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__title",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,566,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,567,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_TITLE$",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,568,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,569,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,571,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MapUnicode",10))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,572,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,573,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__mapunicode",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,574,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(21266,575,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,576,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?{To}?",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,577,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_MAPUNICODE unicode& TO asciiCode%",34)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,578,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,579,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,581,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MapUnicode",10))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,582,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,583,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__mapunicode",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,584,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,585,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,586,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,587,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_MAPUNICODE(asciiCode%)",23)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,588,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,589,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,591,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("KeyDown",7))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,592,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,593,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__keydown",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,594,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,595,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,596,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,597,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_KEYDOWN(code&)",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,598,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,599,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,601,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("KeyHit",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,602,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,603,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__keyhit",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,604,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,605,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_KEYHIT",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,606,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,607,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,609,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("WindowHandle",12))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,610,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,611,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__handle",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,612,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,613,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_WINDOWHANDLE",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,614,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,615,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,617,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Files",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,618,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,619,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_files",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,620,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,621,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,622,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,623,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("FILES fileSpec$",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,624,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,625,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,627,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("PrintImage",10))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,628,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 9 ; -if(!qbevent)break;evnt(21266,628,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,629,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__printimage",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,630,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,631,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,632,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_PRINTIMAGE imageHandle&",24)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,635,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,636,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,640,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ScreenClick",11))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,641,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,642,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__screenclick",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,643,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 3 ; -if(!qbevent)break;evnt(21266,644,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,645,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?,?[,?]",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,646,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SCREENCLICK x, y[, button%]",28)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,647,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,648,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,650,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ScreenPrint",11))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,651,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,652,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__screenprint",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,653,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,654,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,655,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SCREENPRINT text$",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,656,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,657,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,659,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ScreenImage",11))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,660,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 11 ; -if(!qbevent)break;evnt(21266,660,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,661,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__screenimage",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,662,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 4 ; -if(!qbevent)break;evnt(21266,663,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,664,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?,?,?,?]",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,665,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,666,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SCREENIMAGE(column1, row1, column2, row2)",42)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,667,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,668,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,674,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Lock",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,675,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,676,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_lock",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,677,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 3 ; -if(!qbevent)break;evnt(21266,678,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER)),l2string(*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,679,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[#]?[,[?][{To}?]]",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,680,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("LOCK #fileNumber%, record& or LOCK #fileNumber% firstRecord& TO lastRecord&",75)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,681,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,682,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,684,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Unlock",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,685,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,686,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_unlock",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,687,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 3 ; -if(!qbevent)break;evnt(21266,688,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER)),l2string(*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,689,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[#]?[,[?][{To}?]]",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,690,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("UNLOCK #fileNumber%, record& or UNLOCK #fileNumber% firstRecord& TO lastRecord&",79)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,691,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,692,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,694,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("FreeTimer",9))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,695,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,696,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__freetimer",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,697,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,698,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_FREETIMER",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,699,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,700,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,702,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Timer",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,703,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,704,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_timer",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,705,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(21266,706,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,707,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[(?)]{On|Off|Stop|Free}",23)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,708,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("TIMER[(number%)] {On|Off|Stop|Free}",35)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,709,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,710,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,712,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("FullScreen",10))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,713,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,714,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__fullscreen",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,715,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,716,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,717,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[{_Off|_Stretch|_SquarePixels|Off}][,{_Smooth}]",47)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,718,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_FULLSCREEN [{_Off|_Stretch|_SquarePixels|Off}][,{_Smooth}]",59)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,719,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,720,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,722,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("AllowFullScreen",15))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,723,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,724,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__allowfullscreen",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,725,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(21266,726,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,727,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[{_Stretch|_SquarePixels|_Off|_All|Off}][,{_Smooth|_Off|_All|Off}]",66)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,728,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_ALLOWFULLSCREEN [{_Stretch|_SquarePixels|_Off|_All|Off}][,{_Smooth|_Off|_All|Off}]",83)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,729,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,730,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,732,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("FullScreen",10))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,733,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,734,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__fullscreen",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,735,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,736,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_FULLSCREEN",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,737,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,738,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,740,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Smooth",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,741,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,742,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__fullscreensmooth",22)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,743,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,744,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SMOOTH",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,745,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,746,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,748,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("WindowHasFocus",14))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,749,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,750,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__hasfocus",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,751,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,752,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_WINDOWHASFOCUS",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,753,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,754,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,756,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Clipboard",9))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,757,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,758,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,759,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__clipboard",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,760,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,761,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,762,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("=?",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,763,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_CLIPBOARD$ = text$",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,764,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,765,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,767,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Clipboard",9))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,768,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,769,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,770,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__clipboard",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,771,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,772,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_CLIPBOARD$",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,773,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,774,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,776,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ClipboardImage",14))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,777,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 11 ; -if(!qbevent)break;evnt(21266,777,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,778,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__clipboardimage",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,779,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,780,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_CLIPBOARDIMAGE",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,781,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,782,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,784,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ClipboardImage",14))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,785,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 11 ; -if(!qbevent)break;evnt(21266,785,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,786,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__clipboardimage",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,787,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,788,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,789,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("=?",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,790,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_CLIPBOARDIMAGE = existingImageHandle&",38)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,791,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,792,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,794,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Exit",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,795,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,796,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__exit",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,797,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,798,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_EXIT",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,799,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,800,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,802,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("OpenHost",8))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,803,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 8 ; -if(!qbevent)break;evnt(21266,803,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,804,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__openhost",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,805,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,806,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,807,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,808,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("_OPENHOST(",10),func_chr( 34 )),qbs_new_txt_len("TCP/IP:portNumber",17)),func_chr( 34 )),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,809,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,810,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,812,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Connected",9))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,813,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,814,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__connected",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,815,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,816,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,817,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,818,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_CONNECTED(connectionHandle&)",29)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,819,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,820,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,822,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ConnectionAddress",17))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,823,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(520)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,824,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,825,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__connectionaddress",23)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,826,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,827,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,828,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,829,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_CONNECTIONADDRESS(connectionHandle&)",37)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,830,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,831,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,833,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("OpenConnection",14))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,834,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,835,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__openconnection",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,836,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,837,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,838,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,839,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_OPENCONNECTION(hostHandle)",27)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,840,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,841,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,843,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("OpenClient",10))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,844,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 8 ; -if(!qbevent)break;evnt(21266,844,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,845,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__openclient",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,846,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,847,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,848,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,849,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("_OPENCLIENT(",12),func_chr( 34 )),qbs_new_txt_len("TCP/IP:port:address",19)),func_chr( 34 )),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,850,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,851,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,854,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("EnvironCount",12))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,855,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,856,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__environcount",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,857,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,858,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_ENVIRONCOUNT",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,859,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,860,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,862,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Environ",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,863,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,864,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,865,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_environ",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,866,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,867,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,868,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,869,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("ENVIRON$(listIndex%) or ENVIRON$(systemID$)",43)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,870,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,871,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,873,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Environ",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,874,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,875,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_environ",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,876,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,877,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,878,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("ENVIRON stringExpression$",25)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,879,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,880,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,882,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ErrorLine",9))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,883,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,884,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__errorline",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,885,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,886,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_ERRORLINE",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,887,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,888,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,890,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("InclErrorLine",13))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,891,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,892,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__inclerrorline",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,893,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,894,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_INCLERRORLINE",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,895,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,896,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,898,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ErrorMessage",12))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,899,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,900,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,901,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__errormessage",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,902,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,903,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,904,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,905,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,906,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_ERRORMESSAGE$ or _ERRORMESSAGE$(errorCode%)",44)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,907,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,908,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,910,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Assert",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,911,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,912,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__assert",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,913,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(21266,914,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,?]",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,915,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_INTEGERTYPE-*__LONG_ISPOINTER),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,916,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_ASSERT condition[, errorMessage$]",34)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,917,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,918,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,920,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Display",7))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,921,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,922,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__display",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,923,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_DISPLAY",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,924,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,925,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,927,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("AutoDisplay",11))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,928,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,929,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__autodisplay",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,930,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_AUTODISPLAY",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,931,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,932,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,934,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Limit",5))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,935,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,936,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__limit",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,937,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,938,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,939,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_LIMIT framesPerSecond!",23)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,940,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,941,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,943,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("FPS",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,944,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,945,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__fps",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,946,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,947,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,948,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[{_Auto}][?]",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,949,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_FPS fps! or _FPS _Auto",23)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,950,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,951,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,953,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Delay",5))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,954,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,955,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__delay",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,956,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,957,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,958,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_DELAY seconds!",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,959,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,960,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,962,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Icon",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,963,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 10 ; -if(!qbevent)break;evnt(21266,963,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,964,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__icon",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,965,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(21266,966,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,967,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?[,?]]",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,968,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_ICON [mainImageHandle&[, smallImageHandle&]]",45)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,969,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,970,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,972,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Title",5))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,973,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,974,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__title",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,975,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,976,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,977,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_TITLE text$",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,978,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,979,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,981,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Echo",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,982,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,983,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__echo",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,984,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,985,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,986,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_ECHO text$",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,987,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,988,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,990,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("AcceptFileDrop",14))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,991,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,992,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__filedrop",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,993,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,994,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,995,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[{On|Off}]",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,996,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_ACCEPTFILEDROP [{On|Off}]",26)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,997,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,998,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1000,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("AcceptFileDrop",14))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1001,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,1002,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__filedrop",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1003,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,1004,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_ACCEPTFILEDROP",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1005,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1006,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1008,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("FinishDrop",10))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1009,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,1010,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__finishdrop",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1011,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_FINISHDROP",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1012,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1013,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1015,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("TotalDroppedFiles",17))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1016,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,1017,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__totaldroppedfiles",23)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1018,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,1019,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_TOTALDROPPEDFILES",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1020,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1021,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1023,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("DroppedFile",11))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1024,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(520)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1025,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,1026,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__droppedfile",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1027,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,1028,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,1029,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1030,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1031,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_DROPPEDFILE$ or _DROPPEDFILE$(index&)",38)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1032,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1033,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1035,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Clear",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1036,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,1037,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_clear",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1038,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 3 ; -if(!qbevent)break;evnt(21266,1039,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1040,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?][,[?][,?]]",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1041,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("CLEAR",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1042,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1043,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1047,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("NewImage",8))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1048,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,1049,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__newimage",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1050,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 3 ; -if(!qbevent)break;evnt(21266,1051,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1052,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?,?[,?]",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1053,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,1054,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_NEWIMAGE(width&, height&, mode)",32)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1055,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1056,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1058,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("LoadImage",9))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1059,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 6 ; -if(!qbevent)break;evnt(21266,1059,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,1060,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__loadimage",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1061,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 3 ; -if(!qbevent)break;evnt(21266,1062,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1063,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,[?][,?]]",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1064,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,1065,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_LOADIMAGE(fileName$[, [mode&][, requirements$]])",49)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1066,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1067,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1069,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("FreeImage",9))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1070,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,1071,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__freeimage",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1072,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,1073,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1074,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1075,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_FREEIMAGE handle&",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1076,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1077,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1079,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("CopyImage",9))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1080,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,1081,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__copyimage",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1082,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(21266,1083,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1084,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,?]",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1085,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,1086,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_COPYIMAGE(imageHandle&[, mode])",32)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1087,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1088,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1092,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Source",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1093,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,1094,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__source",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1095,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,1096,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1097,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1098,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SOURCE handle&",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1099,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1100,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1102,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Dest",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1103,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,1104,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__dest",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1105,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,1106,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1107,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1108,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_DEST imageHandle&",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1109,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1110,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1112,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Source",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1113,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,1114,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__source",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1115,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,1116,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SOURCE",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1117,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1118,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1120,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Dest",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1121,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,1122,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__dest",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1123,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,1124,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_DEST",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1125,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1126,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1128,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Display",7))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1129,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,1130,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__display",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1131,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,1132,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_DISPLAY",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1133,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1134,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1138,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Blend",5))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1139,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,1140,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__blend",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1141,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,1142,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1143,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1144,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_BLEND [imageHandle&]",21)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1145,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1146,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1148,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("DontBlend",9))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1149,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,1150,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__dontblend",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1151,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,1152,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1153,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1154,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_DONTBLEND [imageHandle&]",25)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1155,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1156,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1158,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ClearColor",10))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1159,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,1160,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__clearcolor",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1161,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(21266,1162,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1163,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[{_None}][?][,?]",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1164,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_CLEARCOLOR {color&|_None}[,dest_handle&]",41)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1165,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1166,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1170,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("PutImage",8))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1171,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,1172,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__putimage",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1173,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 10 ; -if(!qbevent)break;evnt(21266,1174,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER),l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1175,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[[{Step}](?,?)[-[{Step}](?,?)]][,[?][,[?][,[[{Step}](?,?)[-[{Step}](?,?)]][,{_Smooth}]]]]",89)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1176,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_PUTIMAGE [STEP] [(dx1, dy1)-[STEP][(dx2, dy2)]][, sourceHandle&][, destHandle&][, ][STEP][(sx1, sy1)[-STEP][(sx2, sy2)]][_SMOOTH]",130)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1177,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1178,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1180,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MapTriangle",11))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1181,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,1182,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__maptriangle",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1183,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 19 ; -if(!qbevent)break;evnt(21266,1184,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1185,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[{_Clockwise|_AntiClockwise}][{_Seamless}](?,?)-(?,?)-(?,?)[,?]{To}(?,?[,?])-(?,?[,?])-(?,?[,?])[,[?][,{_Smooth|_SmoothShrunk|_SmoothStretched}]]",145)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1186,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_MAPTRIANGLE [{_SEAMLESS}] (sx1, sy1)-(sx2, sy2)-(sx3, sy3), source& TO (dx1, dy1)-(dx2, dy2)-(dx3, dy3)[, destination&][{_SMOOTH|_SMOOTHSHRUNK|_SMOOTHSTRETCHED}]]",163)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1187,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1188,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1190,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("DepthBuffer",11))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1191,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,1192,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__depthbuffer",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1193,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(21266,1194,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1195,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("{On|Off|Lock|_Clear}[,?]",24)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1196,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_DEPTHBUFFER {On|Off|Lock|_Clear}[,handle&]",43)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1197,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1198,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1200,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("SetAlpha",8))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1201,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,1202,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__setalpha",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1203,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 4 ; -if(!qbevent)break;evnt(21266,1204,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1205,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,[?[{To}?]][,?]]",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1206,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SETALPHA alpha& or _SETALPHA color1& TO color2&[, imageHandle&]",64)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1207,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1208,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1212,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Width",5))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1213,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,1214,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__width",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1215,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,1216,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1217,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1218,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,1219,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_WIDTH(imageHandle&)",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1220,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1221,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1223,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Height",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1224,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,1225,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__height",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1226,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,1227,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1228,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1229,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,1230,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_HEIGHT(imageHandle&)",21)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1231,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1232,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1234,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("PixelSize",9))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1235,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,1236,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__pixelsize",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1237,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,1238,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1239,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1240,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,1241,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_PIXELSIZE[(imageHandle&)]",26)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1242,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1243,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1245,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ClearColor",10))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1246,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,1247,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__clearcolor",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1248,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,1249,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1250,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1251,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,1252,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_CLEARCOLOR[(sourceHandle&)]",28)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1253,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1254,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1256,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Blend",5))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1257,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,1258,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__blend",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1259,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,1260,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1261,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1262,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,1263,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_BLEND[(imageHandle&)]",22)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1264,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1265,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1267,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("DefaultColor",12))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1268,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,1269,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__defaultcolor",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1270,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,1271,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1272,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1273,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_ULONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,1274,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_DEFAULTCOLOR[(imageHandle&)]",29)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1275,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1276,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1278,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("BackgroundColor",15))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1279,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,1280,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__backgroundcolor",21)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1281,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,1282,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1283,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1284,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_ULONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,1285,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_BACKGROUNDCOLOR(imageHandle&)]",31)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1286,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1287,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1291,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("PaletteColor",12))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1292,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,1293,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__palettecolor",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1294,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(21266,1295,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1296,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,?]",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1297,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,1298,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_PALETTECOLOR(attributeNumber%, imgHandle&)",43)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1299,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1300,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1302,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("PaletteColor",12))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1303,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,1304,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__palettecolor",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1305,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 3 ; -if(!qbevent)break;evnt(21266,1306,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1307,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?,?[,?]",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1308,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_PALETTECOLOR attribute%, newColor&[, imgHandle&]",49)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1309,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1310,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1312,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("CopyPalette",11))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1313,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,1314,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__copypalette",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1315,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(21266,1316,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1317,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?][,?]",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1318,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_COPYPALETTE [sourceImageHandle&[, destinationImageHandle&]]",60)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1319,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1320,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1324,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("LoadFont",8))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1325,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 1 ; -if(!qbevent)break;evnt(21266,1325,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,1326,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__loadfont",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1327,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 3 ; -if(!qbevent)break;evnt(21266,1328,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1329,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?,?[,?]",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1330,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,1331,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("_LOADFONT(fileName$, size%[, ",29),func_chr( 34 )),qbs_new_txt_len("{MONOSPACE|, BOLD|, ITALIC|, UNDERLINE|, UNICODE|, DONTBLEND}",61)),func_chr( 34 )),qbs_new_txt_len("])",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1332,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1333,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1335,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Font",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1336,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,1337,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__font",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1338,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(21266,1339,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1340,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,?]",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1341,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_FONT fontHandle&[, imageHandle&]",33)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1342,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1343,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1345,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("FontWidth",9))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1346,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,1347,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__fontwidth",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1348,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,1349,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1350,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1351,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,1352,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_FONTWIDTH or _FONTWIDTH(fontHandle&)",37)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1353,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1354,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1356,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("FontHeight",10))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1357,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,1358,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__fontheight",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1359,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,1360,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1361,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1362,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,1363,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_FONTHEIGHT or _FONTHEIGHT(fontHandle&)",39)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1364,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1365,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1367,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Font",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1368,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,1369,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__font",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1370,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,1371,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1372,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1373,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,1374,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_FONT[(imageHandle&)]",21)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1375,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1376,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1378,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("PrintString",11))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1379,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,1380,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__printstring",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1381,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 4 ; -if(!qbevent)break;evnt(21266,1382,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER),l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1383,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[{Step}](?,?),?[,?]",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1384,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_PRINTSTRING(x, y), text$[, imageHandle&]",41)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1385,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1386,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1388,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("PrintWidth",10))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1389,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,1390,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__printwidth",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1391,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(21266,1392,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1393,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,?]",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1394,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,1395,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_PRINTWIDTH(textToPrint$[, destinationHandle&])",47)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1396,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1397,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1399,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("FreeFont",8))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1400,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,1401,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__freefont",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1402,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,1403,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1404,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1405,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_FREEFONT fontHandle&",21)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1406,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1407,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1409,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("PrintMode",9))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1410,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,1411,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__printmode",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1412,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(21266,1413,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1414,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("{_FillBackground|_KeepBackground|_OnlyBackground}[,?]",53)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1415,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_PRINTMODE {_FillBackground|_KeepBackground|_OnlyBackground}[, imageHandle&]",76)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1416,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1417,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1419,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("PrintMode",9))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1420,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,1421,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__printmode",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1422,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,1423,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1424,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1425,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,1426,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_PRINTMODE[(imageHandle&)]",26)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1427,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1428,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1432,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("RGBA",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1433,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,1434,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__rgba",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1435,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 5 ; -if(!qbevent)break;evnt(21266,1436,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1437,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?,?,?,?[,?]",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1438,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_ULONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,1439,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_RGBA(red&, green&, blue&, alpha&[, imageHandle&])",50)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1440,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1441,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1443,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("RGB",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1444,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,1445,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__rgb",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1446,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 4 ; -if(!qbevent)break;evnt(21266,1447,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1448,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?,?,?[,?]",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1449,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_ULONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,1450,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_RGB(red&, green&, blue&[, imageHandle&])",41)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1451,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1452,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1454,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Red",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1455,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,1456,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__red",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1457,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(21266,1458,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1459,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,?]",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1460,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,1461,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_RED(rgbaColorIndex&[, imageHandle&])",37)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1462,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1463,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1465,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Green",5))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1466,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,1467,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__green",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1468,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(21266,1469,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1470,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,?]",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1471,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,1472,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_GREEN(rgbaColorIndex&[, imageHandle&])",39)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1473,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1474,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1476,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Blue",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1477,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,1478,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__blue",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1479,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(21266,1480,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1481,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,?]",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1482,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,1483,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_BLUE(rgbaColorIndex&[, imageHandle&])",38)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1484,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1485,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1487,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Alpha",5))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1488,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,1489,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__alpha",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1490,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(21266,1491,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1492,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,?]",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1493,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,1494,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_ALPHA(color~&[, imageHandle&])",31)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1495,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1496,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1498,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("RGBA32",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1499,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,1500,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__rgba32",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1501,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 4 ; -if(!qbevent)break;evnt(21266,1502,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1503,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_ULONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,1504,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_RGBA32(red&, green&, blue&, alpha&)",36)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1505,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1506,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1508,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("RGB32",5))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1509,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,1510,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__rgb32",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1511,"subs_functions.bas");}while(r); -do{ -*(int8*)(((char*)__UDT_ID)+(808))= -1 ; -if(!qbevent)break;evnt(21266,1512,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(811))= 1 ; -if(!qbevent)break;evnt(21266,1513,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 4 ; -if(!qbevent)break;evnt(21266,1514,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1515,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_ULONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,1516,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_RGB32(red&, green&, blue&[, alpha&]) or _RGB32(intensity&[, alpha&])",69)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1517,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1518,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1520,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Red32",5))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1521,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,1522,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__red32",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1523,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,1524,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1525,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,1526,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_RED32(rgbaColor&)",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1527,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1528,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1530,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Green32",7))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1531,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,1532,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__green32",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1533,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,1534,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1535,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,1536,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_GREEN32(rgbaColor&)",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1537,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1538,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1540,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Blue32",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1541,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,1542,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__blue32",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1543,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,1544,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1545,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,1546,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_BLUE32(rgbaColor&)",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1547,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1548,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1550,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Alpha32",7))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1551,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,1552,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__alpha32",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1553,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,1554,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1555,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,1556,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_ALPHA32(rgbaColor&)",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1557,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1558,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1561,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Draw",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1562,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,1563,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_draw",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1564,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,1565,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1566,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("DRAW drawString$",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1567,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1568,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1570,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Play",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1571,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 4 ; -if(!qbevent)break;evnt(21266,1571,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,1572,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_play",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1573,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,1574,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1575,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("PLAY commandString$",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1576,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1577,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1579,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Play",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1580,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 4 ; -if(!qbevent)break;evnt(21266,1580,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,1581,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_play",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1582,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,1583,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1584,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,1585,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("PLAY",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1586,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1587,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1590,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MouseShow",9))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1591,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,1592,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__mouseshow",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1593,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,1594,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1595,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1596,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_MOUSESHOW [cursorShape$]",25)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1597,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1598,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1600,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MouseHide",9))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1601,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,1602,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__mousehide",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1603,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_MOUSEHIDE",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1604,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1605,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1607,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MouseInput",10))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1608,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,1609,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__mouseinput",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1610,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,1611,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,1612,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1613,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1614,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_MOUSEINPUT",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1615,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1616,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1618,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MouseX",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1619,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,1620,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__mousex",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1621,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,1622,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,1623,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1624,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1625,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_MOUSEX",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1626,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1627,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1629,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MouseY",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1630,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,1631,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__mousey",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1632,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,1633,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,1634,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1635,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1636,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_MOUSEY",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1637,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1638,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1640,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MouseMovementX",14))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1641,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,1642,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__mousemovementx",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1643,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,1644,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,1645,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1646,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1647,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_MOUSEMOVEMENTX",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1648,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1649,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1651,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MouseMovementY",14))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1652,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,1653,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__mousemovementy",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1654,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,1655,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,1656,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1657,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1658,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_MOUSEMOVEMENTY",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1659,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1660,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1662,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MouseButton",11))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1663,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,1664,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__mousebutton",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1665,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(21266,1666,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1667,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,1668,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,?]",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1669,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_MOUSEBUTTON(buttonNumber)",26)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1670,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1671,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1673,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MouseWheel",10))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1674,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,1675,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__mousewheel",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1676,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,1677,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,1678,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1679,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1680,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_MOUSEWHEEL",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1681,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1682,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1685,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MousePipeOpen",13))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1686,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,1687,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__mousepipeopen",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1688,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,1689,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_MOUSEPIPEOPEN",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1690,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1691,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1693,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MouseInputPipe",14))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1694,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,1695,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__mouseinputpipe",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1696,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,1697,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1698,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_MOUSEINPUTPIPE(context)",24)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1699,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1700,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1702,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MousePipeClose",14))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1703,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,1704,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__mousepipeclose",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1705,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,1706,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1707,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_MOUSEPIPECLOSE(context)",24)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1708,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1709,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1711,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("FreeFile",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1712,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,1713,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_freefile",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1714,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,1715,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_FREEFILE",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1716,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1717,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1719,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Name",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1720,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,1721,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_name",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1722,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(21266,1723,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1724,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?{As}?",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1725,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("NAME oldFileOrFolderName$ AS newFileOrFolderName$",49)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1726,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1727,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1729,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Kill",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1730,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,1731,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_kill",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1732,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,1733,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1734,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("KILL fileSpec$",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1735,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1736,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1738,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("ChDir",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1739,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,1740,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_chdir",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1741,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,1742,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1743,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("CHDIR path$",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1744,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1745,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1747,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("MkDir",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1748,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,1749,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_mkdir",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1750,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,1751,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1752,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("MKDIR pathSpec$",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1753,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1754,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1756,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("RmDir",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1757,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,1758,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_rmdir",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1759,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,1760,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1761,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("RMDIR path$",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1762,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1763,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1765,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Chain",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1766,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,1767,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_chain",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1768,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,1769,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1770,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("CHAIN moduleName$",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1771,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1772,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1775,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Shell",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1776,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,1777,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_shell2",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1778,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,1779,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1780,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("{_Hide}[{_DontWait}][?]",23)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1781,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1869)),256,1),qbs_new_txt_len("_Hide",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1782,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("SHELL [_DONTWAIT] [_HIDE] commandToRun$",39)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1783,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1784,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1786,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Shell",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1787,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,1788,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_shell3",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1789,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,1790,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1791,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("{_DontWait}[{_Hide}][?]",23)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1792,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1869)),256,1),qbs_new_txt_len("_DontWait",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1793,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("SHELL [_DONTWAIT] [_HIDE] commandToRun$",39)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1794,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1795,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1797,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Shell",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1798,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,1799,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_shell",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1800,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,1801,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1802,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1803,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("SHELL [_DONTWAIT] [_HIDE] commandToRun$",39)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1805,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1806,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1808,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Shell",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1809,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,1810,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_shell",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1811,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,1812,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1813,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,1814,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("SHELL(commandToRun$)",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1815,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1816,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1818,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ShellHide",9))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1819,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,1820,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__shellhide",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1821,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,1822,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1823,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,1824,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SHELLHIDE(commandToRun$)",25)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1825,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1826,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1828,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Command",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1829,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1830,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,1831,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_command",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1832,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,1833,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1834,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,1835,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1836,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("COMMAND$[(index%)]",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1837,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1838,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1840,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("CommandCount",12))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1841,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,1842,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__commandcount",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1843,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,1844,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_COMMANDCOUNT",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1845,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1846,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1851,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("SndRate",7))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1852,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 4 ; -if(!qbevent)break;evnt(21266,1852,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,1853,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__sndrate",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1854,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,1855,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SNDRATE",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1856,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1857,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1859,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("SndRaw",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1860,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 4 ; -if(!qbevent)break;evnt(21266,1860,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,1861,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__sndraw",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1862,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 3 ; -if(!qbevent)break;evnt(21266,1863,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER),l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1864,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,[?][,?]]",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1865,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SNDRAW leftSample[, rightSample][, pipeHandle&]",48)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1866,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1867,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1869,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("SndRawDone",10))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1870,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 4 ; -if(!qbevent)break;evnt(21266,1870,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,1871,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__sndrawdone",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1872,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,1873,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1874,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1875,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SNDRAWDONE [pipeHandle&]",25)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1876,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1877,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1879,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("SndOpenRaw",10))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1880,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 4 ; -if(!qbevent)break;evnt(21266,1880,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,1881,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__sndopenraw",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1882,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,1883,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SNDOPENRAW",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1884,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1885,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1887,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("SndRawLen",9))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1888,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 4 ; -if(!qbevent)break;evnt(21266,1888,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,1889,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__sndrawlen",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1890,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,1891,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1892,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1893,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,1894,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SNDRAWLEN [pipeHandle&]",24)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1895,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1896,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1898,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("SndLen",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1899,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 4 ; -if(!qbevent)break;evnt(21266,1899,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,1900,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__sndlen",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1901,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,1902,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1903,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,1904,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SNDLEN(handle&)",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1905,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1906,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1908,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("SndPaused",9))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1909,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 4 ; -if(!qbevent)break;evnt(21266,1909,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,1910,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__sndpaused",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1911,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,1912,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1913,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,1914,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SNDPAUSED(handle&)",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1915,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1916,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1918,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("SndPlayFile",11))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1919,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 3 ; -if(!qbevent)break;evnt(21266,1919,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,1920,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__sndplayfile",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1921,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 3 ; -if(!qbevent)break;evnt(21266,1922,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1923,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,[?][,?]]",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1924,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SNDPLAYFILE fileName$[, , volume!]",35)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1925,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1926,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1928,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("SndPlayCopy",11))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1929,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 4 ; -if(!qbevent)break;evnt(21266,1929,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,1930,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__sndplaycopy",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1931,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 5 ; -if(!qbevent)break;evnt(21266,1932,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(qbs_add(l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1933,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,[?][,[?][,[?][,[?]]]]]",25)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1934,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SNDPLAYCOPY handle&[, volume!][, x!][, y!][, z!]",49)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1935,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1936,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1938,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("SndStop",7))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1939,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 4 ; -if(!qbevent)break;evnt(21266,1939,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,1940,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__sndstop",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1941,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,1942,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1943,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SNDSTOP handle&",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1944,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1945,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1947,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("SndLoop",7))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1948,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 4 ; -if(!qbevent)break;evnt(21266,1948,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,1949,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__sndloop",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1950,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,1951,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1952,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SNDLOOP handle&",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1953,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1954,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1956,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("SndLimit",8))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1957,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 4 ; -if(!qbevent)break;evnt(21266,1957,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,1958,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__sndlimit",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1959,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(21266,1960,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1961,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SNDLIMIT handle&, numberOfSeconds!",35)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1962,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1963,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1965,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("SndOpen",7))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1966,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 3 ; -if(!qbevent)break;evnt(21266,1966,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,1967,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__sndopen",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1968,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(21266,1969,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1970,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,?]",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1971,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_ULONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,1972,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SNDOPEN(fileName$[, capabilities$])",36)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1973,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1974,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1976,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("SndSetPos",9))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1977,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 4 ; -if(!qbevent)break;evnt(21266,1977,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,1978,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__sndsetpos",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1979,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(21266,1980,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1981,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SNDSETPOS handle&, position!",29)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1982,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1983,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1985,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("SndGetPos",9))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1986,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 4 ; -if(!qbevent)break;evnt(21266,1986,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,1987,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__sndgetpos",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1988,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,1989,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1990,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,1991,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SNDGETPOS(handle&)",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1992,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,1993,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,1995,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("SndPlaying",10))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1996,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 4 ; -if(!qbevent)break;evnt(21266,1996,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,1997,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__sndplaying",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,1998,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,1999,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2000,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,2001,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SNDPLAYING(handle&)",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2002,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2003,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2005,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("SndPause",8))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2006,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 4 ; -if(!qbevent)break;evnt(21266,2006,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,2007,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__sndpause",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2008,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,2009,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2010,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SNDPAUSE handle&",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2011,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2012,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2014,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("SndBal",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2015,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 4 ; -if(!qbevent)break;evnt(21266,2015,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,2016,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__sndbal",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2017,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 5 ; -if(!qbevent)break;evnt(21266,2018,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(qbs_add(l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2019,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?,[?][,[?][,[?][,[?]]]]",23)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2020,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SNDBAL handle&[, x!][, y!][, z!][, channel&]",45)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2021,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2022,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2024,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("SndVol",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2025,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 4 ; -if(!qbevent)break;evnt(21266,2025,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,2026,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__sndvol",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2027,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(21266,2028,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2029,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SNDVOL handle&, volume!",24)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2030,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2031,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2033,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("SndPlay",7))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2034,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 4 ; -if(!qbevent)break;evnt(21266,2034,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,2035,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__sndplay",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2036,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,2037,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2038,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SNDPLAY handle&",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2039,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2040,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2042,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("SndCopy",7))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2043,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 4 ; -if(!qbevent)break;evnt(21266,2043,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,2044,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__sndcopy",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2045,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,2046,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2047,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_ULONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,2048,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SNDCOPY(handle&)",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2049,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2050,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2052,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("SndClose",8))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2053,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 4 ; -if(!qbevent)break;evnt(21266,2053,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,2054,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__sndclose",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2055,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,2056,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2057,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SNDCLOSE handle&",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2058,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2059,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2062,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("SndNew",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2063,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 4 ; -if(!qbevent)break;evnt(21266,2064,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,2065,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__sndnew",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2066,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 3 ; -if(!qbevent)break;evnt(21266,2067,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2068,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,2069,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SNDNEW(frames&, channels&, bits&)",34)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2070,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2071,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2074,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Input",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2075,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2076,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,2077,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_input",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2078,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(21266,2079,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2080,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,?]",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2081,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,2082,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("INPUT$(numberOfBytes%[, fileOrPortNumber])",42)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2083,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2084,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2086,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Seek",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2087,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,2088,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_seek",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2089,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(21266,2090,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2091,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[#]?,?",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2092,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("SEEK filenumber&, position",26)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2093,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2094,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2096,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Seek",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2097,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,2098,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_seek",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2099,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,2100,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2101,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,2102,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("SEEK(filenumber&)",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2103,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2104,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2106,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Loc",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2107,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,2108,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_loc",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2109,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,2110,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2111,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,2112,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("LOC(fileOrPortNumber%)",22)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2113,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2114,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2116,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("EOF",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2117,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,2118,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_eof",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2119,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,2120,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2121,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,2122,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("EOF(fileNumber&)",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2123,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2124,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2126,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("LOF",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2127,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,2128,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_lof",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2129,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,2130,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2131,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,2132,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("LOF(fileNumber&)",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2133,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2134,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2137,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Screen",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2138,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,2139,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_screen",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2140,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 3 ; -if(!qbevent)break;evnt(21266,2141,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2142,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?,?[,?]",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2143,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_ULONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,2144,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("SCREEN(x, y[, colorflag%])",26)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2145,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2146,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2148,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("PMap",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2149,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,2150,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_pmap",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2151,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(21266,2152,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2153,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,2154,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("PMAP(coordinate, function_number%)",34)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2155,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2156,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2159,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Point",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2160,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,2161,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_point",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2162,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(21266,2163,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER),l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2164,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,?]",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2165,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,2166,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("POINT(x, y) or POINT({0|1|2|3})",31)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2167,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2168,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2171,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Tab",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2172,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,2173,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_tab",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2174,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,2175,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2176,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,2177,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("TAB(column%)",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2178,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2179,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2181,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Spc",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2182,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,2183,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_spc",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2184,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,2185,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2186,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,2187,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("SPC(count%)",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2188,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2189,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2192,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Wait",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2193,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,2194,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_wait",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2195,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 3 ; -if(!qbevent)break;evnt(21266,2196,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2197,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?,?[,?]",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2198,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("WAIT port%, andMask%[, xorMask%]",32)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2199,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2200,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2202,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Inp",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2203,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,2204,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_inp",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2205,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,2206,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2207,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,2208,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("INP(address)",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2209,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2210,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2212,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Pos",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2213,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,2214,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_pos",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2215,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,2216,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2217,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,2218,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("POS(0)",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2219,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2220,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2222,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Sgn",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2223,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,2224,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_sgn",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2225,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,2226,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string( -1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2227,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,2228,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("SGN(value)",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2229,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2230,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2232,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("LBound",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2233,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,2234,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(21266,2235,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string( -1 ),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2236,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?,[?]",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2237,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,2238,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("LBOUND(arrayName[, dimension%])",31)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2239,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2240,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2242,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("UBound",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2243,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,2244,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(21266,2245,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string( -1 ),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2246,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?,[?]",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2247,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,2248,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("UBOUND(arrayName[, dimension%])",31)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2249,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2250,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2252,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Bin",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2253,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2254,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,2255,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,2256,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string( -1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2257,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,2258,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_BIN$(number)",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2259,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2260,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2262,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Oct",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2263,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2264,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,2265,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,2266,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string( -1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2267,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,2268,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("OCT$(number)",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2269,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2270,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2272,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Hex",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2273,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2274,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,2275,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,2276,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string( -1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2277,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,2278,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("HEX$(decimalNumber)",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2279,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2280,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2282,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Sleep",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2283,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,2284,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_sleep",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2285,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,2286,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2287,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2288,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("SLEEP seconds%",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2289,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2290,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2292,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Exp",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2293,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,2294,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,2295,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string( -1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2296,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))= -1 ; -if(!qbevent)break;evnt(21266,2297,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("EXP(numericExpression)",22)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2298,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2299,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2301,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Fix",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2302,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,2303,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,2304,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string( -1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2305,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))= -1 ; -if(!qbevent)break;evnt(21266,2306,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("FIX(expression)",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2307,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2308,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2310,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Int",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2311,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,2312,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,2313,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string( -1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2314,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))= -1 ; -if(!qbevent)break;evnt(21266,2315,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("INT(expression)",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2316,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2317,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2319,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("CDbl",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2320,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,2321,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,2322,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string( -1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2323,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,2324,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("CDBL(expression)",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2325,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2326,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2328,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("CSng",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2329,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,2330,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,2331,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string( -1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2332,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,2333,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("CSNG(expression)",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2334,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2335,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2337,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Round",5))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2338,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,2339,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,2340,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string( -1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2341,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,2342,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_ROUND(number)",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2343,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2344,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2346,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("CInt",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2347,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,2348,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,2349,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string( -1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2350,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_INTEGERTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,2351,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("CINT(expression)",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2352,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2353,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2355,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("CLng",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2356,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,2357,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,2358,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string( -1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2359,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_INTEGERTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,2360,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("CLNG(expression)",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2361,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2362,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2366,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Time",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2367,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2368,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,2369,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_time",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2370,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,2371,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2372,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("=?",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2373,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("TIME$ = timeToSet$",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2374,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2375,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2377,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Time",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2378,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2379,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,2380,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_time",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2381,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,2382,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("TIME$",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2383,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2384,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2388,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Date",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2389,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2390,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,2391,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_date",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2392,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,2393,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2394,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("=?",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2395,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("DATE$ = dateToSet$",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2396,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2397,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2399,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Date",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2400,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2401,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,2402,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_date",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2403,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,2404,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("DATE$",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2405,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2406,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2408,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("CsrLin",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2409,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,2410,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_csrlin",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2411,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,2412,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("CSRLIN",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2413,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2414,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2417,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Paint",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2418,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,2419,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_paint",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2420,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 5 ; -if(!qbevent)break;evnt(21266,2421,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(qbs_add(l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2422,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[{Step}](?,?)[,[?][,[?][,?]]]",29)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2423,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("PAINT [STEP] (x!, y!)[,[fillColor&] [,[bordercolor&] [,pattern$]]]",66)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2425,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2426,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2428,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Circle",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2429,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,2430,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_circle",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2431,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 7 ; -if(!qbevent)break;evnt(21266,2432,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2433,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[{Step}](?,?),?[,[?][,[?][,[?][,?]]]]",37)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2434,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("CIRCLE [STEP] (x!, y!), radius![, [color&] [, [start!] [, [end!] [, aspect!]]]]",79)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2436,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2437,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2439,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("BLoad",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2440,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,2441,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_bload",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2442,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(21266,2443,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2444,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,?]",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2445,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("BLOAD fileName$, VARPTR(imageArray%(index))",43)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2446,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2447,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2449,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("BSave",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2450,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,2451,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_bsave",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2452,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 3 ; -if(!qbevent)break;evnt(21266,2453,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2454,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("BSAVE saveFile$, VARPTR(array(index)), fileSize&",48)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2455,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2456,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2459,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Get",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2460,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,2461,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_graphics_get",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2462,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 6 ; -if(!qbevent)break;evnt(21266,2463,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string( -3 )),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2464,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[{Step}](?,?)-[{Step}](?,?),?[,?]",33)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2465,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1869)),256,1),qbs_new_txt_len("Step",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2466,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("GET [STEP] (column1, row1)-[STEP](column2, row2), array([index])[, offscreenColor]",82)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2467,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2468,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2470,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Get",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2471,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,2472,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_graphics_get",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2473,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 6 ; -if(!qbevent)break;evnt(21266,2474,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string( -3 )),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2475,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[{Step}](?,?)-[{Step}](?,?),?[,?]",33)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2476,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1869)),256,1),qbs_new_txt_len("(",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2477,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("GET [STEP] (column1, row1)-[STEP](column2, row2), array([index])[, offscreenColor]",82)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2478,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2479,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2482,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Put",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2483,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,2484,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_graphics_put",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2485,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 5 ; -if(!qbevent)break;evnt(21266,2486,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(qbs_add(l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string( -3 )),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2487,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[{Step}](?,?),?[,[{_Clip}][{PSet|PReset|And|Or|Xor}][,?]]",57)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2488,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1869)),256,1),qbs_new_txt_len("Step",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2491,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("PUT [STEP](column, row), Array([index])[,] [_CLIP] [{PSET|PRESET|AND|OR|XOR}]][, omitcolor]",92)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2492,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2493,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2494,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Put",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2495,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,2496,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_graphics_put",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2497,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 5 ; -if(!qbevent)break;evnt(21266,2498,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(qbs_add(l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string( -3 )),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2499,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[{Step}](?,?),?[,[{_Clip}][{PSet|PReset|And|Or|Xor}][,?]]",57)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2500,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1869)),256,1),qbs_new_txt_len("(",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2503,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("PUT [STEP](column, row), Array([index])[,] [_CLIP] [{PSET|PRESET|AND|OR|XOR}]][, omitcolor]",92)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2504,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2505,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2507,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Get",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2508,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,2509,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_get",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2510,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 3 ; -if(!qbevent)break;evnt(21266,2511,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string( -4 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2512,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[#]?[,[?][,?]]",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2514,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("GET #fileNumber&, [position][, targetVariable|targetArray()}]",61)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2515,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2516,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2518,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Put",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2519,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,2520,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_put",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2521,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 3 ; -if(!qbevent)break;evnt(21266,2522,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string( -4 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2523,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[#]?[,[?][,?]]",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2525,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("PUT #filenumber&, [position][, {holdingvariable|holdingarray()}]",64)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2526,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2527,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2529,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Open",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2530,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,2531,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_open",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2532,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 6 ; -if(!qbevent)break;evnt(21266,2533,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2534,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[{For Random|For Binary|For Input|For Output|For Append}][{Access Read Write|Access Read|Access Write}][{Shared|Lock Read Write|Lock Read|Lock Write}]{As}[#]?[{Len =}?]",169)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2535,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("OPEN fileName$ [FOR mode] [ACCESS|LOCK|SHARED [{READ|WRITE}] AS [#]fileNumber& [LEN = recordLength]",99)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2536,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2537,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2539,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Open",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2540,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,2541,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_open_gwbasic",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2542,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 4 ; -if(!qbevent)break;evnt(21266,2543,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2544,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?,[#]?,?[,?]",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2545,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("OPEN modeLetter$, [#]fileNumber&, fileName$[, recordLength]",59)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2546,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2547,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2549,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Val",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2550,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,2551,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_val",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2552,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,2553,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2554,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,2555,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("VAL(string_value$)",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2556,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2557,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2559,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("MKSMBF",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2560,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2561,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,2562,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_mksmbf",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2563,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,2564,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2565,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,2566,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("MKSMBF$(value!)",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2567,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2568,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2569,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("MKDMBF",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2570,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2571,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,2572,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_mkdmbf",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2573,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,2574,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2575,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,2576,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("MKDMBF$(value#)",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2577,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2578,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2580,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("MKI",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2581,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2582,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,2583,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2584,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,2585,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_INTEGERTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2586,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,2587,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("MKI$(integerVariableOrLiteral%)",31)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2588,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2589,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2590,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("MKL",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2591,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2592,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,2593,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2594,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,2595,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2596,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,2597,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("MKL$(longVariableOrLiteral&)",28)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2598,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2599,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2600,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("MKS",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2601,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2602,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,2603,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2604,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,2605,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2606,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,2607,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("MKS$(singlePrecisionVariableOrLiteral!)",39)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2608,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2609,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2610,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("MKD",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2611,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2612,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,2613,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2614,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,2615,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2616,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,2617,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("MKD$(doublePrecisionVariableOrLiteral#)",39)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2618,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2619,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2620,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MK",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2621,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2622,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,2623,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2624,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(21266,2625,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string( -1 ),l2string( -1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2626,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,2627,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_MK$(numericalType, numericalValue)",35)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2628,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2629,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2631,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("CVSMBF",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2632,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,2633,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_cvsmbf",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2634,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,2635,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2636,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,2637,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("CVSMBF(stringData$)",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2638,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2639,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2640,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("CVDMBF",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2641,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,2642,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_cvdmbf",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2643,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,2644,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2645,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,2646,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("CVDMBF(stringData$)",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2647,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2648,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2650,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("CVI",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2651,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,2652,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2653,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,2654,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2655,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_INTEGERTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,2656,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("CVI(stringData$)",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2657,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2658,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2659,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("CVL",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2660,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,2661,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2662,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,2663,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2664,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,2665,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("CVL(stringData$)",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2666,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2667,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2668,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("CVS",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2669,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,2670,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2671,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,2672,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2673,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,2674,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("CVS(stringData$)",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2675,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2676,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2677,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("CVD",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2678,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,2679,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2680,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,2681,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2682,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,2683,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("CVD(stringData$)",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2684,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2685,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2686,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("CV",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2687,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,2688,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2689,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(21266,2690,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string( -1 ),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2691,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))= -1 ; -if(!qbevent)break;evnt(21266,2692,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_CV(numericalType, MKstringValue$)",34)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2693,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2694,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2696,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("String",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2697,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2698,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,2699,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_string",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2700,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(21266,2701,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2702,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,2703,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("STRING$(count&, {character$ | ASCIIcode%})",42)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2704,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2705,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2707,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Space",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2708,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2709,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,2710,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_space",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2711,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,2712,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2713,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,2714,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("SPACE$(count&)",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2715,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2716,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2718,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("InStr",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2719,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,2720,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_instr",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2721,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 3 ; -if(!qbevent)break;evnt(21266,2722,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2723,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,2724,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?],?,?",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2725,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("INSTR([start%,] baseString$, searchString$)",43)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2726,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2727,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2729,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("InStrRev",8))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2730,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,2731,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__instrrev",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2732,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 3 ; -if(!qbevent)break;evnt(21266,2733,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2734,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,2735,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?],?,?",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2736,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_INSTRREV([start%,] baseString$, searchString$)",47)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2737,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2738,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2740,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Mid",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2741,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2742,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,2743,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_mid",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2744,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 3 ; -if(!qbevent)break;evnt(21266,2745,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2746,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,2747,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?,?,[?]",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2748,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("MID$(stringValue$, startPosition%[, bytes%])",44)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2749,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2750,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2752,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("SAdd",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2753,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,2754,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2755,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,2756,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string( -1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2757,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,2758,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("SADD(stringVariable$)",21)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2759,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2760,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2762,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Cls",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2763,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,2764,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_cls",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2765,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(21266,2766,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2767,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?][,?]",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2768,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("CLS [method%] [, bgColor&]",26)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2769,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2770,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2772,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Sqr",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2773,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,2774,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_sqr",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2775,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,2776,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2777,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,2778,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("SQR(value)",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2779,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2780,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2782,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Chr",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2783,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2784,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,2785,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_chr",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2786,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,2787,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2788,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,2789,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("CHR$(code%)",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2790,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2791,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2793,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("VarPtr",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2794,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,2795,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2796,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,2797,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string( -1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2798,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,2799,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2800,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("VARPTR(variable_name[(reference_index%)])",41)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2801,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2802,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2804,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("VarPtr",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2805,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,2806,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2807,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,2808,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string( -1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2809,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,2810,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("VARPTR(variable_name[(reference_index%)])",41)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2811,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2812,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2814,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Offset",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2815,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,2816,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2817,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,2818,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string( -1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2819,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_UOFFSETTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,2820,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_OFFSET(variable)",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2821,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2822,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2824,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("VarSeg",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2825,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,2826,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2827,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,2828,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string( -1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2829,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,2830,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("VARSEG(variable_name[(start_index)])",36)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2831,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2832,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2834,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Poke",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2835,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,2836,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_poke",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2837,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(21266,2838,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2839,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("POKE segment_offset, offset_value",33)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2840,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2841,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2843,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Peek",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2844,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,2845,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_peek",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2846,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,2847,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2848,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,2849,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("PEEK(segment_offset)",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2850,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2851,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2853,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Def",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2854,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,2855,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_defseg",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2856,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,2857,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2858,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("{Seg}[=?]",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2859,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1869)),256,1),qbs_new_txt_len("Seg",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2860,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("DEF SEG [=][{segment|VARSEG(variable}]",38)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2861,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2862,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2864,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Sin",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2865,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,2866,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sin",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2867,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,2868,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2869,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,2870,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("SIN(radian_angle!)",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2871,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2872,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2874,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Cos",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2875,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,2876,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("cos",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2877,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,2878,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2879,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,2880,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("COS(radian_angle!)",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2881,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2882,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2884,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Tan",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2885,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,2886,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("tan",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2887,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,2888,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2889,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,2890,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("TAN(radian_angle!)",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2891,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2892,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2894,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Atn",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2895,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,2896,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("atan",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2897,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,2898,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2899,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,2900,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("ATN(tangent!)",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2901,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2902,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2904,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Log",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2905,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,2906,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_log",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2907,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,2908,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2909,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,2910,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("LOG(value)",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2911,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2912,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2914,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Abs",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2915,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,2916,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_abs",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2917,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,2918,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string( -1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2919,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,2920,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("ABS(numericalValue)",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2921,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2922,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2924,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Erl",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2925,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,2926,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("get_error_erl",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2927,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 0 ; -if(!qbevent)break;evnt(21266,2928,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,2929,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("ERL",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2930,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2931,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2933,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Err",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2934,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,2935,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("get_error_err",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2936,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 0 ; -if(!qbevent)break;evnt(21266,2937,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_ULONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,2938,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("ERR",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2939,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2940,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2942,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Error",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2943,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,2944,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("error",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2945,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,2946,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2947,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("ERROR codeNumber%",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2948,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2949,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2951,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Line",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2952,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,2953,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_line",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2954,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 7 ; -if(!qbevent)break;evnt(21266,2955,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2956,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[[{Step}](?,?)]-[{Step}](?,?)[,[?][,[{B|BF}][,?]]]",50)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2957,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("LINE [STEP] [(column1, row1)]-[STEP] (column2, row2), color[, [{B|BF}], style%]",79)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2958,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2959,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2961,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Sound",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2962,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 4 ; -if(!qbevent)break;evnt(21266,2962,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,2963,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_sound",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2964,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(21266,2965,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER),l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2966,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("SOUND frequency, duration",25)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2967,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2968,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2970,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Beep",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2971,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 4 ; -if(!qbevent)break;evnt(21266,2971,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,2972,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_beep",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2973,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 0 ; -if(!qbevent)break;evnt(21266,2974,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("BEEP",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2975,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2976,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2978,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Timer",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2979,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,2980,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_timer",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2981,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,2982,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2983,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,2984,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2985,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("TIMER[(accuracy!)]",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2986,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2987,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,2989,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Rnd",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2990,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,2991,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_rnd",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2992,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,2993,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2994,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,2995,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2996,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("RND[(behavior)]",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,2997,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,2998,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3000,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Randomize",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3001,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,3002,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_randomize",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3003,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,3004,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3005,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[[{Using}]?]",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3006,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("RANDOMIZE [USING] {seednumber|TIMER}",36)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3007,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3008,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3010,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Out",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3011,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,3012,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_out",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3013,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(21266,3014,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3015,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("OUT registerAddress%, value%",28)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3016,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3017,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3019,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("PCopy",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3020,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,3021,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_pcopy",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3022,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(21266,3023,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3024,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("PCOPY sourcePage%, destinationPage%",35)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3025,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3026,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3028,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("View",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3029,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,3030,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("qbg_sub_view",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3031,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 6 ; -if(!qbevent)break;evnt(21266,3032,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3033,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[[{Screen}](?,?)-(?,?)[,[?][,?]]]",33)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3034,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(2125)),256,1),qbs_new_txt_len("Print",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3035,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("VIEW [SCREEN] (column1, row1)-(column2, row2)[, color][, border]",64)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3036,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3037,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3039,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("View",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3040,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,3041,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("qbg_sub_view_print",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3042,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(21266,3043,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3044,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("{Print}[?{To}?]",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3045,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1869)),256,1),qbs_new_txt_len("Print",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3046,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("VIEW PRINT [topRow% TO bottomRow%]",34)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3047,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3048,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3050,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Window",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3051,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,3052,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("qbg_sub_window",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3053,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 4 ; -if(!qbevent)break;evnt(21266,3054,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3055,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[[{Screen}](?,?)-(?,?)]",23)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3056,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("WINDOW [[SCREEN] (x1!, y1!) - (x2!, y2!)]",41)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3057,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3058,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3060,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Locate",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3061,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,3062,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("qbg_sub_locate",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3063,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 5 ; -if(!qbevent)break;evnt(21266,3064,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3065,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?][,[?][,[?][,[?][,?]]]]",25)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3066,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("LOCATE [row%][, column%] [, cursor%][, cursorStart%, cursorStop%]",65)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3067,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3068,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3070,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Color",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3071,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,3072,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("qbg_sub_color",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3073,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 3 ; -if(!qbevent)break;evnt(21266,3074,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3075,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?][,[?][,?]]",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3076,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("COLOR [foreground&][, background&]",34)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3077,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3078,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3080,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Palette",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3081,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,3082,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("qbg_palette",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3083,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(21266,3084,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3085,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?,?]",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3086,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("PALETTE [attribute%, red% + (green% * 256) + (blue% * 65536)] or PALETTE [existingAttribute%, newAttribute%]",108)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3087,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3088,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3090,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Width",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3091,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,3092,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("qbsub_width",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3093,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 5 ; -if(!qbevent)break;evnt(21266,3094,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3095,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[{#|LPrint}][?][,[?][,[?][,[?]]]]",33)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3096,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("WIDTH [columns%][, rows%] or WIDTH {file_number|device}, columnwidth%",69)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3098,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3099,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3102,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Screen",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3103,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,3104,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("qbg_screen",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3105,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 5 ; -if(!qbevent)break;evnt(21266,3106,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3107,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?][,[?][,[?][,[?][,[{_ManualDisplay}?]]]]]",43)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3111,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("SCREEN {mode%|imagehandle&} [, , active_page, visual_page]",58)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3112,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3113,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3115,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("PSet",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3116,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,3117,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_pset",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3118,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 3 ; -if(!qbevent)break;evnt(21266,3119,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3120,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[{Step}](?,?)[,?]",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3121,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("PSET [STEP](column%, row%)[, colorAttribute]",44)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3122,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3123,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3125,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("PReset",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3126,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,3127,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_preset",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3128,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 3 ; -if(!qbevent)break;evnt(21266,3129,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3130,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[{Step}](?,?)[,?]",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3131,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("PRESET [STEP](column%, row%)[, colorAttribute]",46)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3132,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3133,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3135,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Asc",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3136,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,3137,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("qbs_asc",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3138,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,3139,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3140,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,3141,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("ASC(text$[, position%])",23)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3142,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3143,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3145,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Len",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3146,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,3147,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3148,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,3149,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3150,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,3151,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("LEN(literalTextOrVariable$)",27)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3152,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3153,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3155,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("InKey",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3156,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3157,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,3158,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("qbs_inkey",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3159,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,3160,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("INKEY$",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3161,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3162,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3164,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Str",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3165,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3166,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,3167,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("qbs_str",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3168,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,3169,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string( -1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3170,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,3171,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("STR$(number)",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3172,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3173,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3175,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("UCase",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3176,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3177,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,3178,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("qbs_ucase",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3179,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,3180,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3181,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,3182,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("UCASE$(text$)",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3183,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3184,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3186,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("LCase",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3187,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3188,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,3189,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("qbs_lcase",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3190,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,3191,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3192,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,3193,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("LCASE$(text$)",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3194,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3195,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3197,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Left",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3198,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3199,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,3200,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("qbs_left",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3201,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(21266,3202,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3203,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,3204,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("LEFT$(stringValue$, numberOfCharacters%)",40)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3205,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3206,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3208,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Right",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3209,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3210,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,3211,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("qbs_right",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3212,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(21266,3213,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3214,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,3215,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("RIGHT$(stringValue$, numberOfCharacters%)",41)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3216,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3217,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3219,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("LTrim",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3220,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3221,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,3222,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("qbs_ltrim",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3223,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,3224,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3225,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,3226,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("LTRIM$(text$)",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3227,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3228,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3230,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("RTrim",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3231,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3232,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,3233,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("qbs_rtrim",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3234,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,3235,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3236,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,3237,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("RTRIM$(text$)",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3238,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3239,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3241,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Trim",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3242,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3243,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,3244,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("qbs__trim",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3245,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,3246,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3247,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,3248,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_TRIM$(text$)",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3249,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3250,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3252,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Print",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3253,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,3254,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("qbs_print",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3255,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,3256,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3257,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("PRINT [expression] [{;|,] [expression...]",41)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3258,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3259,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3261,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("LPrint",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3262,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 9 ; -if(!qbevent)break;evnt(21266,3262,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,3263,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("qbs_lprint",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3264,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,3265,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3266,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("LPRINT [expression] [{;|,}]",27)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3267,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3268,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3270,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("LPos",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3271,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 9 ; -if(!qbevent)break;evnt(21266,3271,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,3272,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_lpos",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3273,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,3274,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3275,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,3276,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("LPOS(index%)",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3277,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3278,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3281,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("CWD",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3282,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3283,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,3284,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__cwd",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3285,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,3286,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_CWD$",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3287,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3288,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3291,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("StartDir",8))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3292,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3293,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,3294,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__startdir",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3295,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,3296,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_STARTDIR$",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3297,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3298,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3301,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Dir",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3302,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3303,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,3304,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__dir",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3305,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,3306,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3307,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,3308,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("_DIR$(",6),func_chr( 34 )),qbs_new_txt_len("folderspecification",19)),func_chr( 34 )),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3309,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3310,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3313,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("InclErrorFile",13))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3314,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3315,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,3316,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__inclerrorfile",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3317,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,3318,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_INCLERRORFILE$",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3319,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3320,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3322,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("KeyClear",8))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3323,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,3324,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,3325,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3326,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3327,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__keyclear",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3328,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_KEYCLEAR buffer&",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3329,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3330,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3332,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("D2R",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3333,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,3334,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_deg2rad",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3335,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,3336,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3337,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,3338,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_D2R(angleInDegrees!)",21)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3339,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3340,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3342,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("D2G",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3343,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,3344,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_deg2grad",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3345,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,3346,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3347,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,3348,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_D2G(angleInDegrees!)",21)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3349,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3350,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3352,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("R2D",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3353,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,3354,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_rad2deg",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3355,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,3356,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3357,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,3358,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_R2D(angleInRadians!)",21)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3359,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3360,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3362,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("R2G",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3363,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,3364,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_rad2grad",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3365,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,3366,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3367,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,3368,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_R2G(angleInRadians!)",21)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3369,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3370,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3372,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("G2D",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3373,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,3374,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_grad2deg",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3375,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,3376,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3377,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,3378,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_G2D(gradient!)",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3379,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3380,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3382,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("G2R",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3383,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,3384,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_grad2rad",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3385,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,3386,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3387,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,3388,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_G2R(gradient!)",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3389,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3390,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3392,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Atan2",5))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3393,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,3394,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("atan2",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3395,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(21266,3396,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3397,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,3398,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_ATAN2(y, x)",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3399,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3400,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3402,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Hypot",5))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3403,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,3404,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("hypot",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3405,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(21266,3406,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3407,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,3408,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_HYPOT(x, y)",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3409,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3410,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3412,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Asin",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3413,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,3414,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("asin",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3415,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,3416,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3417,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,3418,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_ASIN(sine_value!)",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3419,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3420,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3422,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Acos",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3423,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,3424,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("acos",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3425,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,3426,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3427,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,3428,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_ACOS(cosine_value!)",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3429,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3430,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3432,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Sinh",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3433,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,3434,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sinh",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3435,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,3436,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3437,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,3438,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SINH(value)",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3439,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3440,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3442,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Cosh",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3443,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,3444,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("cosh",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3445,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,3446,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3447,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,3448,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_COSH(value)",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3449,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3450,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3452,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Tanh",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3453,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,3454,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("tanh",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3455,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,3456,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3457,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,3458,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_TANH(value)",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3459,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3460,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3462,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Asinh",5))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3463,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,3464,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("asinh",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3465,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,3466,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3467,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,3468,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_ASINH(value)",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3469,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3470,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3472,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Acosh",5))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3473,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,3474,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("acosh",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3475,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,3476,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3477,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,3478,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_ACOSH(value)",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3479,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3480,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3482,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Atanh",5))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3483,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,3484,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("atanh",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3485,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,3486,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3487,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,3488,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_ATANH(value)",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3489,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3490,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3492,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Ceil",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3493,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,3494,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("ceil",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3495,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,3496,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3497,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,3498,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_CEIL(expression)",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3499,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3500,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3502,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Pi",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3503,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,3504,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_pi",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3505,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,3506,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3507,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,3508,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3509,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_PI[(multiplier)]",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3510,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3511,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3513,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("DesktopHeight",13))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3514,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,3515,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_screenheight",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3516,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 0 ; -if(!qbevent)break;evnt(21266,3517,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,3518,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_DESKTOPHEIGHT",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3519,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3520,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3522,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("DesktopWidth",12))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3523,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,3524,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_screenwidth",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3525,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 0 ; -if(!qbevent)break;evnt(21266,3526,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,3527,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_DESKTOPWIDTH",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3528,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3529,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3531,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ScreenIcon",10))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3532,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,3533,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_screenicon",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3534,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SCREENICON",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3535,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3536,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3538,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ScreenExists",12))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3539,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,3540,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_windowexists",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3541,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SCREENEXISTS",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3542,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3543,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3545,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ControlChr",10))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3546,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,3547,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__controlchr",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3548,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 0 ; -if(!qbevent)break;evnt(21266,3549,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,3550,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_CONTROLCHR",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3551,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3552,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3554,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("StriCmp",7))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3555,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,3556,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__str_nc_compare",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3557,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(21266,3558,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3559,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,3560,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_STRICMP(string1$, string2$)",28)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3561,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3562,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3564,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("StrCmp",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3565,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,3566,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__str_compare",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3567,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(21266,3568,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3569,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,3570,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_STRCMP(string1$, string2$)",27)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3571,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3572,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3574,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Arcsec",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3575,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,3576,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_arcsec",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3577,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,3578,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3579,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,3580,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_ARCSEC(value)",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3581,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3582,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3584,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Arccsc",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3585,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,3586,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_arccsc",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3587,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,3588,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3589,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,3590,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_ARCCSC(value)",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3591,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3592,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3594,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Arccot",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3595,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,3596,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_arccot",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3597,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,3598,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3599,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,3600,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_ARCCOT(value)",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3601,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3602,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3604,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Sech",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3605,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,3606,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_sech",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3607,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,3608,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3609,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,3610,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SECH(value)",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3611,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3612,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3614,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Csch",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3615,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,3616,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_csch",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3617,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,3618,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3619,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,3620,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_CSCH(value)",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3621,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3622,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3624,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Coth",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3625,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,3626,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_coth",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3627,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,3628,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3629,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,3630,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_COTH(value)",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3631,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3632,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3634,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Sec",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3635,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,3636,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_sec",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3637,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,3638,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3639,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,3640,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SEC(value)",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3641,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3642,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3644,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Csc",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3645,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,3646,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_csc",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3647,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,3648,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3649,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,3650,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_CSC(value)",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3651,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3652,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3654,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Cot",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3655,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,3656,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_cot",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3657,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,3658,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3659,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,3660,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_COT(value)",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3661,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3662,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3664,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ScreenIcon",10))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3665,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,3666,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_screenicon",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3667,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 0 ; -if(!qbevent)break;evnt(21266,3668,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,3669,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SCREENICON",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3670,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3671,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3673,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("AutoDisplay",11))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3674,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,3675,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__autodisplay",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3676,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 0 ; -if(!qbevent)break;evnt(21266,3677,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,3678,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_AUTODISPLAY",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3679,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3680,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3682,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ShR",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3683,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,3684,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__shr",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3685,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(21266,3686,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3687,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,3688,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SHR(numericalVariable, numericalValue)",39)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3689,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3690,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3692,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ShL",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3693,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,3694,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__shl",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3695,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(21266,3696,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3697,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,3698,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SHL(numericalVariable, numericalValue)",39)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3699,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3700,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3703,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("RoL",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3704,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,3705,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(21266,3706,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3707,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,3708,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_ROL(numericalVariable, numericalValue)",39)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3709,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3710,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3712,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("RoR",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3713,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,3714,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(21266,3715,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3716,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,3717,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_ROR(numericalVariable, numericalValue)",39)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3718,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3719,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3722,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Deflate",7))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3723,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 13 ; -if(!qbevent)break;evnt(21266,3724,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3725,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,3726,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__deflate",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3727,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,3728,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3729,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,3730,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_DEFLATE$(stringToCompress$)",28)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3731,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3732,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3734,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Inflate",7))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3735,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(546))= 13 ; -if(!qbevent)break;evnt(21266,3736,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3737,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,3738,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__inflate",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3739,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(21266,3740,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3741,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,?]",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3742,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,3743,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_INFLATE$(stringToDecompress$[, originalSize&])",47)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3744,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3745,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3747,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("CInp",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3748,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,3749,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__cinp",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3750,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,3751,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3752,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3753,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,3754,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_CINP",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3755,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3756,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3758,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("CapsLock",8))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3759,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,3760,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__capslock",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3761,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 0 ; -if(!qbevent)break;evnt(21266,3762,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,3763,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_CAPSLOCK",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3764,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3765,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3767,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ScrollLock",10))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3768,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,3769,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__scrolllock",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3770,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 0 ; -if(!qbevent)break;evnt(21266,3771,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,3772,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SCROLLLOCK",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3773,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3774,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3776,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("NumLock",7))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3777,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,3778,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__numlock",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3779,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 0 ; -if(!qbevent)break;evnt(21266,3780,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,3781,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_NUMLOCK",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3782,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3783,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3785,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("CapsLock",8))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3786,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,3787,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__capslock",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3788,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3789,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,3790,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("{On|Off|_Toggle}",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3791,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_CAPSLOCK {On|Off|_Toggle}",26)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3792,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3793,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3795,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Scrolllock",10))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3796,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,3797,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__scrolllock",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3798,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3799,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,3800,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("{On|Off|_Toggle}",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3801,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SCROLLLOCK {On|Off|_Toggle}",28)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3802,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3803,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3805,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Numlock",7))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3806,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,3807,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__numlock",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3808,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3809,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21266,3810,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("{On|Off|_Toggle}",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3811,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_NUMLOCK {On|Off|_Toggle}",25)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3812,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3813,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3815,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ConsoleFont",11))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3816,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,3817,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__consolefont",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3818,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(21266,3819,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_INTEGERTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3820,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_CONSOLEFONT fontFile$",22)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3821,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3822,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3824,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ConsoleCursor",13))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3825,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,3826,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__console_cursor",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3827,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(21266,3828,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3829,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[{_Show|_Hide}][,?]",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3830,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_CONSOLECURSOR {_Show|_Hide}[, size%]",37)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3831,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3832,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3834,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ConsoleInput",12))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3835,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,3836,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__getconsoleinput",21)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3837,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 0 ; -if(!qbevent)break;evnt(21266,3838,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,3839,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_CONSOLEINPUT",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3840,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3841,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3843,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ReadBit",7))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3844,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,3845,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__readbit",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3846,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(21266,3847,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3848,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,3849,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_READBIT(numericalVariable, numericalValue)",43)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3850,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3851,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3853,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("SetBit",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3854,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,3855,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__setbit",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3856,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(21266,3857,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3858,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,3859,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SETBIT(numericalVariable, numericalValue)",42)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3860,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3861,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3863,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ResetBit",8))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3864,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,3865,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__resetbit",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3866,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(21266,3867,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3868,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,3869,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_RESETBIT(numericalVariable, numericalValue)",44)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3870,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3871,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3873,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ToggleBit",9))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3874,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,3875,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__togglebit",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3876,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(21266,3877,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3878,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,3879,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_TOGGLEBIT(numericalVariable, numericalValue)",45)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3880,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3881,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3884,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("NotifyPopup",11))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3885,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,3886,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__guiNotifyPopup",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3887,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 3 ; -if(!qbevent)break;evnt(21266,3888,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3889,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?][,[?][,?]]",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3890,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_NOTIFYPOPUP [title$][, message$][, iconType$]",46)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3891,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3893,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3894,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MessageBox",10))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3895,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(21266,3896,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__guiMessageBox",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3897,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 3 ; -if(!qbevent)break;evnt(21266,3898,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3899,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?][,[?][,?]]",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3900,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_MESSAGEBOX [title$][, message$][, iconType$]",45)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3901,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3902,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3904,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("SelectFolderDialog",18))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3905,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3906,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,3907,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__guiSelectFolderDialog",27)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3908,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(21266,3909,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3910,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,?]",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3911,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,3912,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SELECTFOLDERDIALOG$(title$[, defaultPath$])",44)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3913,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3914,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3916,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ColorChooserDialog",18))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3917,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,3918,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__guiColorChooserDialog",27)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3919,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 2 ; -if(!qbevent)break;evnt(21266,3920,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3921,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,?]",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3922,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_ULONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,3923,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_COLORCHOOSERDIALOG&(title$[, defaultRGB&])",43)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3924,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3925,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3927,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MessageBox",10))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3928,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,3929,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__guiMessageBox",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3930,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 5 ; -if(!qbevent)break;evnt(21266,3931,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(qbs_add(l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3932,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?,?,?,?[,?]",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3933,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,3934,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_MESSAGEBOX&(title$, message$, dialogType$, iconType$[, defaultButton&])",72)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3935,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3936,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3938,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("InputBox",8))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3939,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3940,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,3941,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__guiInputBox",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3942,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 3 ; -if(!qbevent)break;evnt(21266,3943,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3944,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?,?[,?]",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3945,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,3946,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_INPUTBOX$(title$, message$[, defaultInput$])",45)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3947,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3948,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3950,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("OpenFileDialog",14))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3951,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3952,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,3953,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__guiOpenFileDialog",23)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3954,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 5 ; -if(!qbevent)break;evnt(21266,3955,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(qbs_add(l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3956,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?,?,?,?[,?]",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3957,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,3958,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_OPENFILEDIALOG$(title$, defaultPathAndFile$, filterPatterns$, singleFilterDescription$[, allowMultipleSelects&])",113)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3959,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3960,"subs_functions.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21266,3962,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("SaveFileDialog",14))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3963,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3964,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21266,3965,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__guiSaveFileDialog",23)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3966,"subs_functions.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 4 ; -if(!qbevent)break;evnt(21266,3967,"subs_functions.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3968,"subs_functions.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21266,3969,"subs_functions.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SAVEFILEDIALOG$(title$, defaultPathAndFile$, filterPatterns$, singleFilterDescription$)",88)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21266,3970,"subs_functions.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21266,3971,"subs_functions.bas");}while(r); -do{ -*__LONG_REGINTERNALSUBFUNC= 0 ; -if(!qbevent)break;evnt(21267);}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free35.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -void SUB_REGUNSTABLEHTTP(){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data36.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -*__LONG_REGINTERNALSUBFUNC= 1 ; -if(!qbevent)break;evnt(21271);}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(21273);}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("StatusCode",10))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21274);}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 1 ; -if(!qbevent)break;evnt(21275);}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__statusCode",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21276);}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 1 ; -if(!qbevent)break;evnt(21277);}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21278);}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21279);}while(r); -do{ -qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_STATUSCODE(httpHandle&)",24)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21280);}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21281);}while(r); -S_28756:; -if ((*__LONG_QB64PREFIX_SET)||new_error){ -if(qbevent){evnt(21284);if(r)goto S_28756;} -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_StatusCode",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21285);}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(21286);}while(r); -} -do{ -*__LONG_REGINTERNALSUBFUNC= 0 ; -if(!qbevent)break;evnt(21289);}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free36.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -int32 FUNC_SYMBOLTYPE(qbs*_FUNC_SYMBOLTYPE_STRING_S){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data37.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -S_28761:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_SYMBOLTYPE_STRING_S->len== 0 )))||new_error){ -if(qbevent){evnt(21298);if(r)goto S_28761;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21298);}while(r); -} -do{ -*_FUNC_SYMBOLTYPE_LONG_A=qbs_asc(_FUNC_SYMBOLTYPE_STRING_S); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21300);}while(r); -do{ -*_FUNC_SYMBOLTYPE_LONG_L=_FUNC_SYMBOLTYPE_STRING_S->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21301);}while(r); -S_28766:; -if ((-(*_FUNC_SYMBOLTYPE_LONG_A== 37 ))||new_error){ -if(qbevent){evnt(21302);if(r)goto S_28766;} -S_28767:; -if ((-(*_FUNC_SYMBOLTYPE_LONG_L== 1 ))||new_error){ -if(qbevent){evnt(21303);if(r)goto S_28767;} -do{ -*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 16 ; -if(!qbevent)break;evnt(21303);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21303);}while(r); -} -S_28771:; -if ((-(*_FUNC_SYMBOLTYPE_LONG_L> 2 ))||new_error){ -if(qbevent){evnt(21304);if(r)goto S_28771;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21304);}while(r); -} -S_28774:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_SYMBOLTYPE_STRING_S, 2 )== 37 )))||new_error){ -if(qbevent){evnt(21305);if(r)goto S_28774;} -do{ -*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 8 ; -if(!qbevent)break;evnt(21305);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21305);}while(r); -} -S_28778:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_SYMBOLTYPE_STRING_S, 2 )== 38 )))||new_error){ -if(qbevent){evnt(21306);if(r)goto S_28778;} -do{ -*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21306);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21306);}while(r); -} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21307);}while(r); -} -S_28784:; -if ((-(*_FUNC_SYMBOLTYPE_LONG_A== 38 ))||new_error){ -if(qbevent){evnt(21309);if(r)goto S_28784;} -S_28785:; -if ((-(*_FUNC_SYMBOLTYPE_LONG_L== 1 ))||new_error){ -if(qbevent){evnt(21310);if(r)goto S_28785;} -do{ -*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 32 ; -if(!qbevent)break;evnt(21310);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21310);}while(r); -} -S_28789:; -if ((-(*_FUNC_SYMBOLTYPE_LONG_L> 2 ))||new_error){ -if(qbevent){evnt(21311);if(r)goto S_28789;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21311);}while(r); -} -S_28792:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_SYMBOLTYPE_STRING_S, 2 )== 38 )))||new_error){ -if(qbevent){evnt(21312);if(r)goto S_28792;} -do{ -*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 64 ; -if(!qbevent)break;evnt(21312);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21312);}while(r); -} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21313);}while(r); -} -S_28798:; -if ((-(*_FUNC_SYMBOLTYPE_LONG_A== 33 ))||new_error){ -if(qbevent){evnt(21315);if(r)goto S_28798;} -S_28799:; -if ((-(*_FUNC_SYMBOLTYPE_LONG_L== 1 ))||new_error){ -if(qbevent){evnt(21316);if(r)goto S_28799;} -do{ -*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 32 +*__LONG_ISFLOAT; -if(!qbevent)break;evnt(21316);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21316);}while(r); -} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21317);}while(r); -} -S_28805:; -if ((-(*_FUNC_SYMBOLTYPE_LONG_A== 35 ))||new_error){ -if(qbevent){evnt(21319);if(r)goto S_28805;} -S_28806:; -if ((-(*_FUNC_SYMBOLTYPE_LONG_L== 1 ))||new_error){ -if(qbevent){evnt(21320);if(r)goto S_28806;} -do{ -*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 64 +*__LONG_ISFLOAT; -if(!qbevent)break;evnt(21320);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21320);}while(r); -} -S_28810:; -if ((-(*_FUNC_SYMBOLTYPE_LONG_L> 2 ))||new_error){ -if(qbevent){evnt(21321);if(r)goto S_28810;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21321);}while(r); -} -S_28813:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_SYMBOLTYPE_STRING_S, 2 )== 35 )))||new_error){ -if(qbevent){evnt(21322);if(r)goto S_28813;} -do{ -*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 64 +*__LONG_ISFLOAT; -if(!qbevent)break;evnt(21322);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21322);}while(r); -} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21323);}while(r); -} -S_28819:; -if ((-(*_FUNC_SYMBOLTYPE_LONG_A== 36 ))||new_error){ -if(qbevent){evnt(21325);if(r)goto S_28819;} -S_28820:; -if ((-(*_FUNC_SYMBOLTYPE_LONG_L== 1 ))||new_error){ -if(qbevent){evnt(21326);if(r)goto S_28820;} -do{ -*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE=*__LONG_ISSTRING; -if(!qbevent)break;evnt(21326);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21326);}while(r); -} -S_28824:; -if ((qbs_cleanup(qbs_tmp_base,FUNC_ISUINTEGER(qbs_right(_FUNC_SYMBOLTYPE_STRING_S,*_FUNC_SYMBOLTYPE_LONG_L- 1 ))))||new_error){ -if(qbevent){evnt(21327);if(r)goto S_28824;} -S_28825:; -if ((-(*_FUNC_SYMBOLTYPE_LONG_L>=( 1 + 10 )))||new_error){ -if(qbevent){evnt(21328);if(r)goto S_28825;} -S_28826:; -if ((-(*_FUNC_SYMBOLTYPE_LONG_L>( 1 + 10 )))||new_error){ -if(qbevent){evnt(21329);if(r)goto S_28826;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21329);}while(r); -} -S_28829:; -if ((qbs_cleanup(qbs_tmp_base,qbs_greaterthan(_FUNC_SYMBOLTYPE_STRING_S,qbs_new_txt_len("$2147483647",11))))||new_error){ -if(qbevent){evnt(21330);if(r)goto S_28829;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21330);}while(r); -} -} -do{ -*__LONG_SYMBOLTYPE_SIZE=qbr(func_val(qbs_right(_FUNC_SYMBOLTYPE_STRING_S,*_FUNC_SYMBOLTYPE_LONG_L- 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21332);}while(r); -do{ -*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE=*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH; -if(!qbevent)break;evnt(21333);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21334);}while(r); -} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21336);}while(r); -} -S_28839:; -if ((-(*_FUNC_SYMBOLTYPE_LONG_A== 96 ))||new_error){ -if(qbevent){evnt(21338);if(r)goto S_28839;} -S_28840:; -if ((-(*_FUNC_SYMBOLTYPE_LONG_L== 1 ))||new_error){ -if(qbevent){evnt(21339);if(r)goto S_28840;} -do{ -*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 1 +*__LONG_ISOFFSETINBITS; -if(!qbevent)break;evnt(21339);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21339);}while(r); -} -S_28844:; -if ((qbs_cleanup(qbs_tmp_base,FUNC_ISUINTEGER(qbs_right(_FUNC_SYMBOLTYPE_STRING_S,*_FUNC_SYMBOLTYPE_LONG_L- 1 ))))||new_error){ -if(qbevent){evnt(21340);if(r)goto S_28844;} -S_28845:; -if ((-(*_FUNC_SYMBOLTYPE_LONG_L> 3 ))||new_error){ -if(qbevent){evnt(21341);if(r)goto S_28845;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21341);}while(r); -} -do{ -*_FUNC_SYMBOLTYPE_LONG_N=qbr(func_val(qbs_right(_FUNC_SYMBOLTYPE_STRING_S,*_FUNC_SYMBOLTYPE_LONG_L- 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21342);}while(r); -S_28849:; -if ((-(*_FUNC_SYMBOLTYPE_LONG_N> 64 ))||new_error){ -if(qbevent){evnt(21343);if(r)goto S_28849;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21343);}while(r); -} -do{ -*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE=*_FUNC_SYMBOLTYPE_LONG_N+*__LONG_ISOFFSETINBITS; -if(!qbevent)break;evnt(21344);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21344);}while(r); -} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21346);}while(r); -} -S_28857:; -if ((-(*_FUNC_SYMBOLTYPE_LONG_A== 126 ))||new_error){ -if(qbevent){evnt(21348);if(r)goto S_28857;} -S_28858:; -if ((-(*_FUNC_SYMBOLTYPE_LONG_L== 1 ))||new_error){ -if(qbevent){evnt(21349);if(r)goto S_28858;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21349);}while(r); -} -do{ -*_FUNC_SYMBOLTYPE_LONG_A=qbs_asc(_FUNC_SYMBOLTYPE_STRING_S, 2 ); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21350);}while(r); -S_28862:; -if ((-(*_FUNC_SYMBOLTYPE_LONG_A== 37 ))||new_error){ -if(qbevent){evnt(21351);if(r)goto S_28862;} -S_28863:; -if ((-(*_FUNC_SYMBOLTYPE_LONG_L== 2 ))||new_error){ -if(qbevent){evnt(21352);if(r)goto S_28863;} -do{ -*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 16 +*__LONG_ISUNSIGNED; -if(!qbevent)break;evnt(21352);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21352);}while(r); -} -S_28867:; -if ((-(*_FUNC_SYMBOLTYPE_LONG_L> 3 ))||new_error){ -if(qbevent){evnt(21353);if(r)goto S_28867;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21353);}while(r); -} -S_28870:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_SYMBOLTYPE_STRING_S, 3 )== 37 )))||new_error){ -if(qbevent){evnt(21354);if(r)goto S_28870;} -do{ -*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 8 +*__LONG_ISUNSIGNED; -if(!qbevent)break;evnt(21354);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21354);}while(r); -} -S_28874:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_SYMBOLTYPE_STRING_S, 3 )== 38 )))||new_error){ -if(qbevent){evnt(21355);if(r)goto S_28874;} -do{ -*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE=*__LONG_UOFFSETTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(21355);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21355);}while(r); -} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21356);}while(r); -} -S_28880:; -if ((-(*_FUNC_SYMBOLTYPE_LONG_A== 38 ))||new_error){ -if(qbevent){evnt(21358);if(r)goto S_28880;} -S_28881:; -if ((-(*_FUNC_SYMBOLTYPE_LONG_L== 2 ))||new_error){ -if(qbevent){evnt(21359);if(r)goto S_28881;} -do{ -*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 32 +*__LONG_ISUNSIGNED; -if(!qbevent)break;evnt(21359);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21359);}while(r); -} -S_28885:; -if ((-(*_FUNC_SYMBOLTYPE_LONG_L> 3 ))||new_error){ -if(qbevent){evnt(21360);if(r)goto S_28885;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21360);}while(r); -} -S_28888:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_SYMBOLTYPE_STRING_S, 3 )== 38 )))||new_error){ -if(qbevent){evnt(21361);if(r)goto S_28888;} -do{ -*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 64 +*__LONG_ISUNSIGNED; -if(!qbevent)break;evnt(21361);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21361);}while(r); -} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21362);}while(r); -} -S_28894:; -if ((-(*_FUNC_SYMBOLTYPE_LONG_A== 96 ))||new_error){ -if(qbevent){evnt(21364);if(r)goto S_28894;} -S_28895:; -if ((-(*_FUNC_SYMBOLTYPE_LONG_L== 2 ))||new_error){ -if(qbevent){evnt(21365);if(r)goto S_28895;} -do{ -*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 1 +*__LONG_ISOFFSETINBITS+*__LONG_ISUNSIGNED; -if(!qbevent)break;evnt(21365);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21365);}while(r); -} -S_28899:; -if ((qbs_cleanup(qbs_tmp_base,FUNC_ISUINTEGER(qbs_right(_FUNC_SYMBOLTYPE_STRING_S,*_FUNC_SYMBOLTYPE_LONG_L- 2 ))))||new_error){ -if(qbevent){evnt(21366);if(r)goto S_28899;} -S_28900:; -if ((-(*_FUNC_SYMBOLTYPE_LONG_L> 4 ))||new_error){ -if(qbevent){evnt(21367);if(r)goto S_28900;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21367);}while(r); -} -do{ -*_FUNC_SYMBOLTYPE_LONG_N=qbr(func_val(qbs_right(_FUNC_SYMBOLTYPE_STRING_S,*_FUNC_SYMBOLTYPE_LONG_L- 2 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21368);}while(r); -S_28904:; -if ((-(*_FUNC_SYMBOLTYPE_LONG_N> 64 ))||new_error){ -if(qbevent){evnt(21369);if(r)goto S_28904;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21369);}while(r); -} -do{ -*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE=*_FUNC_SYMBOLTYPE_LONG_N+*__LONG_ISOFFSETINBITS+*__LONG_ISUNSIGNED; -if(!qbevent)break;evnt(21370);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21370);}while(r); -} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21372);}while(r); -} -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free37.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -return *_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE; -} -qbs* FUNC_REMOVESYMBOL(qbs*_FUNC_REMOVESYMBOL_STRING_VARNAME){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data38.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -*_FUNC_REMOVESYMBOL_LONG_I=func_instr(NULL,_FUNC_REMOVESYMBOL_STRING_VARNAME,qbs_new_txt_len("~",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21378);}while(r); -S_28914:; -if ((*_FUNC_REMOVESYMBOL_LONG_I)||new_error){ -if(qbevent){evnt(21378);if(r)goto S_28914;} -do{ -goto LABEL_FOUNDSYMBOL; -if(!qbevent)break;evnt(21378);}while(r); -} -do{ -*_FUNC_REMOVESYMBOL_LONG_I=func_instr(NULL,_FUNC_REMOVESYMBOL_STRING_VARNAME,qbs_new_txt_len("`",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21379);}while(r); -S_28918:; -if ((*_FUNC_REMOVESYMBOL_LONG_I)||new_error){ -if(qbevent){evnt(21379);if(r)goto S_28918;} -do{ -goto LABEL_FOUNDSYMBOL; -if(!qbevent)break;evnt(21379);}while(r); -} -do{ -*_FUNC_REMOVESYMBOL_LONG_I=func_instr(NULL,_FUNC_REMOVESYMBOL_STRING_VARNAME,qbs_new_txt_len("%",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21380);}while(r); -S_28922:; -if ((*_FUNC_REMOVESYMBOL_LONG_I)||new_error){ -if(qbevent){evnt(21380);if(r)goto S_28922;} -do{ -goto LABEL_FOUNDSYMBOL; -if(!qbevent)break;evnt(21380);}while(r); -} -do{ -*_FUNC_REMOVESYMBOL_LONG_I=func_instr(NULL,_FUNC_REMOVESYMBOL_STRING_VARNAME,qbs_new_txt_len("&",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21381);}while(r); -S_28926:; -if ((*_FUNC_REMOVESYMBOL_LONG_I)||new_error){ -if(qbevent){evnt(21381);if(r)goto S_28926;} -do{ -goto LABEL_FOUNDSYMBOL; -if(!qbevent)break;evnt(21381);}while(r); -} -do{ -*_FUNC_REMOVESYMBOL_LONG_I=func_instr(NULL,_FUNC_REMOVESYMBOL_STRING_VARNAME,qbs_new_txt_len("!",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21382);}while(r); -S_28930:; -if ((*_FUNC_REMOVESYMBOL_LONG_I)||new_error){ -if(qbevent){evnt(21382);if(r)goto S_28930;} -do{ -goto LABEL_FOUNDSYMBOL; -if(!qbevent)break;evnt(21382);}while(r); -} -do{ -*_FUNC_REMOVESYMBOL_LONG_I=func_instr(NULL,_FUNC_REMOVESYMBOL_STRING_VARNAME,qbs_new_txt_len("#",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21383);}while(r); -S_28934:; -if ((*_FUNC_REMOVESYMBOL_LONG_I)||new_error){ -if(qbevent){evnt(21383);if(r)goto S_28934;} -do{ -goto LABEL_FOUNDSYMBOL; -if(!qbevent)break;evnt(21383);}while(r); -} -do{ -*_FUNC_REMOVESYMBOL_LONG_I=func_instr(NULL,_FUNC_REMOVESYMBOL_STRING_VARNAME,qbs_new_txt_len("$",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21384);}while(r); -S_28938:; -if ((*_FUNC_REMOVESYMBOL_LONG_I)||new_error){ -if(qbevent){evnt(21384);if(r)goto S_28938;} -do{ -goto LABEL_FOUNDSYMBOL; -if(!qbevent)break;evnt(21384);}while(r); -} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21385);}while(r); -LABEL_FOUNDSYMBOL:; -if(qbevent){evnt(21386);r=0;} -S_28942:; -if ((-(*_FUNC_REMOVESYMBOL_LONG_I== 1 ))||new_error){ -if(qbevent){evnt(21387);if(r)goto S_28942;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected variable name before symbol",36)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21387);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21387);}while(r); -} -do{ -qbs_set(_FUNC_REMOVESYMBOL_STRING_SYMBOL,qbs_right(_FUNC_REMOVESYMBOL_STRING_VARNAME,_FUNC_REMOVESYMBOL_STRING_VARNAME->len-*_FUNC_REMOVESYMBOL_LONG_I+ 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21388);}while(r); -S_28947:; -if ((qbs_cleanup(qbs_tmp_base,-(FUNC_SYMBOLTYPE(_FUNC_REMOVESYMBOL_STRING_SYMBOL)== 0 )))||new_error){ -if(qbevent){evnt(21389);if(r)goto S_28947;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Invalid symbol",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21389);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21389);}while(r); -} -do{ -qbs_set(_FUNC_REMOVESYMBOL_STRING_REMOVESYMBOL,_FUNC_REMOVESYMBOL_STRING_SYMBOL); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21390);}while(r); -do{ -qbs_set(_FUNC_REMOVESYMBOL_STRING_VARNAME,qbs_left(_FUNC_REMOVESYMBOL_STRING_VARNAME,*_FUNC_REMOVESYMBOL_LONG_I- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21391);}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free38.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_REMOVESYMBOL_STRING_REMOVESYMBOL);return _FUNC_REMOVESYMBOL_STRING_REMOVESYMBOL; -} -qbs* FUNC_SCOPE(){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data39.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -S_28953:; -if ((*(int16*)(((char*)__UDT_ID)+(2645)))||new_error){ -if(qbevent){evnt(21395);if(r)goto S_28953;} -do{ -qbs_set(_FUNC_SCOPE_STRING_SCOPE,qbs_add(__STRING_MODULE,qbs_new_txt_len("__",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21395);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21395);}while(r); -} -do{ -qbs_set(_FUNC_SCOPE_STRING_SCOPE,qbs_add(qbs_add(qbs_add(__STRING_MODULE,qbs_new_txt_len("_",1)),__STRING_SUBFUNC),qbs_new_txt_len("_",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21396);}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free39.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_SCOPE_STRING_SCOPE);return _FUNC_SCOPE_STRING_SCOPE; -} -int32 FUNC_SEPERATEARGS(qbs*_FUNC_SEPERATEARGS_STRING_A,qbs*_FUNC_SEPERATEARGS_STRING_CA,int32*_FUNC_SEPERATEARGS_LONG_PASS){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data40.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -*_FUNC_SEPERATEARGS_LONG_PASS= 0 ; -if(!qbevent)break;evnt(21400);}while(r); -S_28959:; -fornext_value3043= 1 ; -fornext_finalvalue3043=*__LONG_OPTMAX; -fornext_step3043= 1 ; -if (fornext_step3043<0) fornext_step_negative3043=1; else fornext_step_negative3043=0; -if (new_error) goto fornext_error3043; -goto fornext_entrylabel3043; -while(1){ -fornext_value3043=fornext_step3043+(*_FUNC_SEPERATEARGS_LONG_I); -fornext_entrylabel3043: -*_FUNC_SEPERATEARGS_LONG_I=fornext_value3043; -if (fornext_step_negative3043){ -if (fornext_value3043fornext_finalvalue3043) break; -} -fornext_error3043:; -if(qbevent){evnt(21402);if(r)goto S_28959;} -do{ -tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_STRING_SEPARGS[4],__ARRAY_STRING_SEPARGS[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS[0]))[tmp_long])),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21402);}while(r); -fornext_continue_3042:; -} -fornext_exit_3042:; -S_28962:; -fornext_value3045= 1 ; -fornext_finalvalue3045=*__LONG_OPTMAX+ 1 ; -fornext_step3045= 1 ; -if (fornext_step3045<0) fornext_step_negative3045=1; else fornext_step_negative3045=0; -if (new_error) goto fornext_error3045; -goto fornext_entrylabel3045; -while(1){ -fornext_value3045=fornext_step3045+(*_FUNC_SEPERATEARGS_LONG_I); -fornext_entrylabel3045: -*_FUNC_SEPERATEARGS_LONG_I=fornext_value3045; -if (fornext_step_negative3045){ -if (fornext_value3045fornext_finalvalue3045) break; -} -fornext_error3045:; -if(qbevent){evnt(21403);if(r)goto S_28962;} -do{ -tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_STRING_SEPARGSLAYOUT[4],__ARRAY_STRING_SEPARGSLAYOUT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT[0]))[tmp_long])),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21403);}while(r); -fornext_continue_3044:; -} -fornext_exit_3044:; -S_28965:; -fornext_value3047= 1 ; -fornext_finalvalue3047=*__LONG_OPTMAX; -fornext_step3047= 1 ; -if (fornext_step3047<0) fornext_step_negative3047=1; else fornext_step_negative3047=0; -if (new_error) goto fornext_error3047; -goto fornext_entrylabel3047; -while(1){ -fornext_value3047=fornext_step3047+(*_FUNC_SEPERATEARGS_LONG_I); -fornext_entrylabel3047: -*_FUNC_SEPERATEARGS_LONG_I=fornext_value3047; -if (fornext_step_negative3047){ -if (fornext_value3047fornext_finalvalue3047) break; -} -fornext_error3047:; -if(qbevent){evnt(21404);if(r)goto S_28965;} -do{ -tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_INTEGER_LEV[4],__ARRAY_INTEGER_LEV[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_LEV[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(21405);}while(r); -do{ -tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_INTEGER_ENTRYLEV[4],__ARRAY_INTEGER_ENTRYLEV[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_ENTRYLEV[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(21406);}while(r); -do{ -tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_INTEGER_DITCHLEV[4],__ARRAY_INTEGER_DITCHLEV[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_DITCHLEV[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(21407);}while(r); -do{ -tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_INTEGER_DONTPASS[4],__ARRAY_INTEGER_DONTPASS[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_DONTPASS[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(21408);}while(r); -do{ -tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_INTEGER_TEMPLIST[4],__ARRAY_INTEGER_TEMPLIST[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_TEMPLIST[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(21409);}while(r); -do{ -tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_LONG_PASSRULE[4],__ARRAY_LONG_PASSRULE[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_PASSRULE[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(21410);}while(r); -do{ -tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_LONG_LEVELENTERED[4],__ARRAY_LONG_LEVELENTERED[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_LEVELENTERED[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(21411);}while(r); -fornext_continue_3046:; -} -fornext_exit_3046:; -do{ -if(!qbevent)break;evnt(21414);}while(r); -do{ -memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 0),(((char*)__UDT_ID)+(0)+ 0), 256); -memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 256),(((char*)__UDT_ID)+(0)+ 256), 256); -memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 512),(((char*)__UDT_ID)+(0)+ 512), 4); -memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 516),(((char*)__UDT_ID)+(0)+ 516), 2); -memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 518),(((char*)__UDT_ID)+(0)+ 518), 2); -memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 520),(((char*)__UDT_ID)+(0)+ 520), 8); -memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 528),(((char*)__UDT_ID)+(0)+ 528), 8); -memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 536),(((char*)__UDT_ID)+(0)+ 536), 4); -memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 540),(((char*)__UDT_ID)+(0)+ 540), 4); -memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 544),(((char*)__UDT_ID)+(0)+ 544), 2); -memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 546),(((char*)__UDT_ID)+(0)+ 546), 2); -memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 548),(((char*)__UDT_ID)+(0)+ 548), 2); -memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 550),(((char*)__UDT_ID)+(0)+ 550), 256); -memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 806),(((char*)__UDT_ID)+(0)+ 806), 2); -memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 808),(((char*)__UDT_ID)+(0)+ 808), 1); -memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 809),(((char*)__UDT_ID)+(0)+ 809), 2); -memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 811),(((char*)__UDT_ID)+(0)+ 811), 2); -memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 813),(((char*)__UDT_ID)+(0)+ 813), 400); -memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 1213),(((char*)__UDT_ID)+(0)+ 1213), 400); -memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 1613),(((char*)__UDT_ID)+(0)+ 1613), 256); -memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 1869),(((char*)__UDT_ID)+(0)+ 1869), 256); -memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 2125),(((char*)__UDT_ID)+(0)+ 2125), 256); -memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 2381),(((char*)__UDT_ID)+(0)+ 2381), 4); -memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 2385),(((char*)__UDT_ID)+(0)+ 2385), 256); -memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 2641),(((char*)__UDT_ID)+(0)+ 2641), 4); -memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 2645),(((char*)__UDT_ID)+(0)+ 2645), 2); -memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 2647),(((char*)__UDT_ID)+(0)+ 2647), 100); -memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 2747),(((char*)__UDT_ID)+(0)+ 2747), 100); -memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 2847),(((char*)__UDT_ID)+(0)+ 2847), 4); -memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 2851),(((char*)__UDT_ID)+(0)+ 2851), 2); -memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 2853),(((char*)__UDT_ID)+(0)+ 2853), 2); -memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 2855),(((char*)__UDT_ID)+(0)+ 2855), 4); -memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 2859),(((char*)__UDT_ID)+(0)+ 2859), 2); -qbs_set(*(qbs**)(((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 2861), *(qbs**)(((char*)__UDT_ID)+(0)+ 2861)); -if(!qbevent)break;evnt(21416);}while(r); -S_28976:; -if ((-(*(int16*)(((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(809))== 0 ))||new_error){ -if(qbevent){evnt(21418);if(r)goto S_28976;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21418);}while(r); -} -do{ -qbs_set(_FUNC_SEPERATEARGS_STRING_S,qbs_new_fixed((((uint8*)_FUNC_SEPERATEARGS_UDT_ID2)+(1613)),256,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21421);}while(r); -do{ -qbs_set(_FUNC_SEPERATEARGS_STRING_S,qbs_rtrim(_FUNC_SEPERATEARGS_STRING_S)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21422);}while(r); -S_28981:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_SEPERATEARGS_STRING_S,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(21425);if(r)goto S_28981;} -S_28982:; -fornext_value3049= 1 ; -fornext_finalvalue3049=*(int16*)(((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(809)); -fornext_step3049= 1 ; -if (fornext_step3049<0) fornext_step_negative3049=1; else fornext_step_negative3049=0; -if (new_error) goto fornext_error3049; -goto fornext_entrylabel3049; -while(1){ -fornext_value3049=fornext_step3049+(*_FUNC_SEPERATEARGS_LONG_I); -fornext_entrylabel3049: -*_FUNC_SEPERATEARGS_LONG_I=fornext_value3049; -if (fornext_step_negative3049){ -if (fornext_value3049fornext_finalvalue3049) break; -} -fornext_error3049:; -if(qbevent){evnt(21426);if(r)goto S_28982;} -S_28983:; -if ((-(*_FUNC_SEPERATEARGS_LONG_I!= 1 ))||new_error){ -if(qbevent){evnt(21427);if(r)goto S_28983;} -do{ -qbs_set(_FUNC_SEPERATEARGS_STRING_S,qbs_add(_FUNC_SEPERATEARGS_STRING_S,qbs_new_txt_len(",?",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21427);}while(r); -}else{ -do{ -qbs_set(_FUNC_SEPERATEARGS_STRING_S,qbs_new_txt_len("?",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21427);}while(r); -} -fornext_continue_3048:; -} -fornext_exit_3048:; -} -do{ -*_FUNC_SEPERATEARGS_LONG_PASSFLAG= 1 ; -if(!qbevent)break;evnt(21433);}while(r); -do{ -*_FUNC_SEPERATEARGS_LONG_NEXTENTRYLEVEL= 0 ; -if(!qbevent)break;evnt(21434);}while(r); -do{ -*_FUNC_SEPERATEARGS_LONG_NEXTENTRYLEVELSET= 1 ; -if(!qbevent)break;evnt(21435);}while(r); -do{ -*_FUNC_SEPERATEARGS_LONG_LEVEL= 0 ; -if(!qbevent)break;evnt(21436);}while(r); -do{ -*_FUNC_SEPERATEARGS_LONG_LASTT= 0 ; -if(!qbevent)break;evnt(21437);}while(r); -do{ -*_FUNC_SEPERATEARGS_LONG_DITCHLEVEL= 0 ; -if(!qbevent)break;evnt(21438);}while(r); -S_28996:; -fornext_value3051= 1 ; -fornext_finalvalue3051=_FUNC_SEPERATEARGS_STRING_S->len; -fornext_step3051= 1 ; -if (fornext_step3051<0) fornext_step_negative3051=1; else fornext_step_negative3051=0; -if (new_error) goto fornext_error3051; -goto fornext_entrylabel3051; -while(1){ -fornext_value3051=fornext_step3051+(*_FUNC_SEPERATEARGS_LONG_I); -fornext_entrylabel3051: -*_FUNC_SEPERATEARGS_LONG_I=fornext_value3051; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative3051){ -if (fornext_value3051fornext_finalvalue3051) break; -} -fornext_error3051:; -if(qbevent){evnt(21439);if(r)goto S_28996;} -do{ -qbs_set(_FUNC_SEPERATEARGS_STRING_S2,func_mid(_FUNC_SEPERATEARGS_STRING_S,*_FUNC_SEPERATEARGS_LONG_I, 1 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21440);}while(r); -S_28998:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_SEPERATEARGS_STRING_S2,qbs_new_txt_len("[",1))))||new_error){ -if(qbevent){evnt(21442);if(r)goto S_28998;} -do{ -*_FUNC_SEPERATEARGS_LONG_LEVEL=*_FUNC_SEPERATEARGS_LONG_LEVEL+ 1 ; -if(!qbevent)break;evnt(21443);}while(r); -do{ -tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LEVEL)-__ARRAY_LONG_LEVELENTERED[4],__ARRAY_LONG_LEVELENTERED[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_LEVELENTERED[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(21444);}while(r); -do{ -goto LABEL_NEXTSYMBOL; -if(!qbevent)break;evnt(21445);}while(r); -} -S_29003:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_SEPERATEARGS_STRING_S2,qbs_new_txt_len("]",1))))||new_error){ -if(qbevent){evnt(21448);if(r)goto S_29003;} -do{ -*_FUNC_SEPERATEARGS_LONG_LEVEL=*_FUNC_SEPERATEARGS_LONG_LEVEL- 1 ; -if(!qbevent)break;evnt(21449);}while(r); -S_29005:; -if ((-(*_FUNC_SEPERATEARGS_LONG_LEVEL<*_FUNC_SEPERATEARGS_LONG_DITCHLEVEL))||new_error){ -if(qbevent){evnt(21450);if(r)goto S_29005;} -do{ -*_FUNC_SEPERATEARGS_LONG_DITCHLEVEL=*_FUNC_SEPERATEARGS_LONG_LEVEL; -if(!qbevent)break;evnt(21450);}while(r); -} -do{ -goto LABEL_NEXTSYMBOL; -if(!qbevent)break;evnt(21451);}while(r); -} -S_29010:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_SEPERATEARGS_STRING_S2,qbs_new_txt_len("{",1))))||new_error){ -if(qbevent){evnt(21454);if(r)goto S_29010;} -do{ -*_FUNC_SEPERATEARGS_LONG_LASTT=*_FUNC_SEPERATEARGS_LONG_LASTT+ 1 ; -if(!qbevent)break;evnt(21455);}while(r); -do{ -tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_INTEGER_LEV[4],__ARRAY_INTEGER_LEV[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_LEV[0]))[tmp_long]=*_FUNC_SEPERATEARGS_LONG_LEVEL; -if(!qbevent)break;evnt(21455);}while(r); -do{ -tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_LONG_PASSRULE[4],__ARRAY_LONG_PASSRULE[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_PASSRULE[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(21455);}while(r); -do{ -tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_INTEGER_DITCHLEV[4],__ARRAY_INTEGER_DITCHLEV[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_DITCHLEV[0]))[tmp_long]=*_FUNC_SEPERATEARGS_LONG_DITCHLEVEL; -if(!qbevent)break;evnt(21456);}while(r); -do{ -*_FUNC_SEPERATEARGS_LONG_DITCHLEVEL=*_FUNC_SEPERATEARGS_LONG_LEVEL; -if(!qbevent)break;evnt(21456);}while(r); -do{ -*_FUNC_SEPERATEARGS_LONG_I=*_FUNC_SEPERATEARGS_LONG_I+ 1 ; -if(!qbevent)break;evnt(21457);}while(r); -do{ -*_FUNC_SEPERATEARGS_LONG_I2=func_instr(*_FUNC_SEPERATEARGS_LONG_I,_FUNC_SEPERATEARGS_STRING_S,qbs_new_txt_len("}",1),0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21458);}while(r); -do{ -*_FUNC_SEPERATEARGS_LONG_NUMOPTS= 0 ; -if(!qbevent)break;evnt(21459);}while(r); -LABEL_NEXTOPT:; -if(qbevent){evnt(21460);r=0;} -do{ -*_FUNC_SEPERATEARGS_LONG_NUMOPTS=*_FUNC_SEPERATEARGS_LONG_NUMOPTS+ 1 ; -if(!qbevent)break;evnt(21461);}while(r); -do{ -*_FUNC_SEPERATEARGS_LONG_I3=func_instr(*_FUNC_SEPERATEARGS_LONG_I+ 1 ,_FUNC_SEPERATEARGS_STRING_S,qbs_new_txt_len("|",1),0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21462);}while(r); -S_29021:; -if (((-(*_FUNC_SEPERATEARGS_LONG_I3!= 0 ))&(-(*_FUNC_SEPERATEARGS_LONG_I3<*_FUNC_SEPERATEARGS_LONG_I2)))||new_error){ -if(qbevent){evnt(21463);if(r)goto S_29021;} -do{ -tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_STRING256_OPT[8],__ARRAY_STRING256_OPT[9])+array_check((*_FUNC_SEPERATEARGS_LONG_NUMOPTS)-__ARRAY_STRING256_OPT[4],__ARRAY_STRING256_OPT[5])*__ARRAY_STRING256_OPT[6]; -if (!new_error) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_OPT[0]))[tmp_long*256],256,1),func_mid(_FUNC_SEPERATEARGS_STRING_S,*_FUNC_SEPERATEARGS_LONG_I,*_FUNC_SEPERATEARGS_LONG_I3-*_FUNC_SEPERATEARGS_LONG_I,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21464);}while(r); -do{ -*_FUNC_SEPERATEARGS_LONG_I=*_FUNC_SEPERATEARGS_LONG_I3+ 1 ; -if(!qbevent)break;evnt(21465);}while(r); -do{ -goto LABEL_NEXTOPT; -if(!qbevent)break;evnt(21465);}while(r); -} -do{ -tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_STRING256_OPT[8],__ARRAY_STRING256_OPT[9])+array_check((*_FUNC_SEPERATEARGS_LONG_NUMOPTS)-__ARRAY_STRING256_OPT[4],__ARRAY_STRING256_OPT[5])*__ARRAY_STRING256_OPT[6]; -if (!new_error) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_OPT[0]))[tmp_long*256],256,1),func_mid(_FUNC_SEPERATEARGS_STRING_S,*_FUNC_SEPERATEARGS_LONG_I,*_FUNC_SEPERATEARGS_LONG_I2-*_FUNC_SEPERATEARGS_LONG_I,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21467);}while(r); -do{ -tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_INTEGER_T[4],__ARRAY_INTEGER_T[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_T[0]))[tmp_long]=*_FUNC_SEPERATEARGS_LONG_NUMOPTS; -if(!qbevent)break;evnt(21468);}while(r); -S_29028:; -fornext_value3054= 1 ; -fornext_finalvalue3054=((int16*)(__ARRAY_INTEGER_T[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_INTEGER_T[4],__ARRAY_INTEGER_T[5])]; -fornext_step3054= 1 ; -if (fornext_step3054<0) fornext_step_negative3054=1; else fornext_step_negative3054=0; -if (new_error) goto fornext_error3054; -goto fornext_entrylabel3054; -while(1){ -fornext_value3054=fornext_step3054+(*_FUNC_SEPERATEARGS_LONG_X); -fornext_entrylabel3054: -*_FUNC_SEPERATEARGS_LONG_X=fornext_value3054; -if (fornext_step_negative3054){ -if (fornext_value3054fornext_finalvalue3054) break; -} -fornext_error3054:; -if(qbevent){evnt(21470);if(r)goto S_29028;} -do{ -*_FUNC_SEPERATEARGS_LONG_W= 1 ; -if(!qbevent)break;evnt(21471);}while(r); -do{ -*_FUNC_SEPERATEARGS_LONG_X2= 1 ; -if(!qbevent)break;evnt(21472);}while(r); -LABEL_NEWWORD:; -if(qbevent){evnt(21473);r=0;} -S_29031:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(*_FUNC_SEPERATEARGS_LONG_X2,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_OPT[0]))[(array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_STRING256_OPT[8],__ARRAY_STRING256_OPT[9])+array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_STRING256_OPT[4],__ARRAY_STRING256_OPT[5])*__ARRAY_STRING256_OPT[6])*256],256,1)),qbs_new_txt_len(" ",1),0|1)))||new_error){ -if(qbevent){evnt(21474);if(r)goto S_29031;} -do{ -*_FUNC_SEPERATEARGS_LONG_W=*_FUNC_SEPERATEARGS_LONG_W+ 1 ; -if(!qbevent)break;evnt(21474);}while(r); -do{ -*_FUNC_SEPERATEARGS_LONG_X2=func_instr(*_FUNC_SEPERATEARGS_LONG_X2,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_OPT[0]))[(array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_STRING256_OPT[8],__ARRAY_STRING256_OPT[9])+array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_STRING256_OPT[4],__ARRAY_STRING256_OPT[5])*__ARRAY_STRING256_OPT[6])*256],256,1)),qbs_new_txt_len(" ",1),0|1)+ 1 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21474);}while(r); -do{ -goto LABEL_NEWWORD; -if(!qbevent)break;evnt(21474);}while(r); -} -do{ -tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_INTEGER_OPTWORDS[8],__ARRAY_INTEGER_OPTWORDS[9])+array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_INTEGER_OPTWORDS[4],__ARRAY_INTEGER_OPTWORDS[5])*__ARRAY_INTEGER_OPTWORDS[6]; -if (!new_error) ((int16*)(__ARRAY_INTEGER_OPTWORDS[0]))[tmp_long]=*_FUNC_SEPERATEARGS_LONG_W; -if(!qbevent)break;evnt(21475);}while(r); -fornext_continue_3053:; -} -fornext_exit_3053:; -do{ -*_FUNC_SEPERATEARGS_LONG_I=*_FUNC_SEPERATEARGS_LONG_I2; -if(!qbevent)break;evnt(21477);}while(r); -do{ -tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_INTEGER_ENTRYLEV[4],__ARRAY_INTEGER_ENTRYLEV[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_ENTRYLEV[0]))[tmp_long]=*_FUNC_SEPERATEARGS_LONG_LEVEL; -if(!qbevent)break;evnt(21480);}while(r); -S_29040:; -if ((-(((int32*)(__ARRAY_LONG_LEVELENTERED[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_LEVEL)-__ARRAY_LONG_LEVELENTERED[4],__ARRAY_LONG_LEVELENTERED[5])]== 0 ))||new_error){ -if(qbevent){evnt(21481);if(r)goto S_29040;} -do{ -tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_INTEGER_ENTRYLEV[4],__ARRAY_INTEGER_ENTRYLEV[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_ENTRYLEV[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(21482);}while(r); -S_29042:; -fornext_value3056= 1 ; -fornext_finalvalue3056=*_FUNC_SEPERATEARGS_LONG_LEVEL- 1 ; -fornext_step3056= 1 ; -if (fornext_step3056<0) fornext_step_negative3056=1; else fornext_step_negative3056=0; -if (new_error) goto fornext_error3056; -goto fornext_entrylabel3056; -while(1){ -fornext_value3056=fornext_step3056+(*_FUNC_SEPERATEARGS_LONG_I2); -fornext_entrylabel3056: -*_FUNC_SEPERATEARGS_LONG_I2=fornext_value3056; -if (fornext_step_negative3056){ -if (fornext_value3056fornext_finalvalue3056) break; -} -fornext_error3056:; -if(qbevent){evnt(21483);if(r)goto S_29042;} -S_29043:; -if ((-(((int32*)(__ARRAY_LONG_LEVELENTERED[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I2)-__ARRAY_LONG_LEVELENTERED[4],__ARRAY_LONG_LEVELENTERED[5])]== 1 ))||new_error){ -if(qbevent){evnt(21484);if(r)goto S_29043;} -do{ -tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_INTEGER_ENTRYLEV[4],__ARRAY_INTEGER_ENTRYLEV[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_ENTRYLEV[0]))[tmp_long]=*_FUNC_SEPERATEARGS_LONG_I2; -if(!qbevent)break;evnt(21484);}while(r); -} -fornext_continue_3055:; -} -fornext_exit_3055:; -} -do{ -tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LEVEL)-__ARRAY_LONG_LEVELENTERED[4],__ARRAY_LONG_LEVELENTERED[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_LEVELENTERED[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(21487);}while(r); -do{ -goto LABEL_NEXTSYMBOL; -if(!qbevent)break;evnt(21489);}while(r); -} -S_29051:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_SEPERATEARGS_STRING_S2,qbs_new_txt_len("?",1))))||new_error){ -if(qbevent){evnt(21492);if(r)goto S_29051;} -do{ -*_FUNC_SEPERATEARGS_LONG_LASTT=*_FUNC_SEPERATEARGS_LONG_LASTT+ 1 ; -if(!qbevent)break;evnt(21493);}while(r); -do{ -tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_INTEGER_LEV[4],__ARRAY_INTEGER_LEV[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_LEV[0]))[tmp_long]=*_FUNC_SEPERATEARGS_LONG_LEVEL; -if(!qbevent)break;evnt(21493);}while(r); -do{ -tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_LONG_PASSRULE[4],__ARRAY_LONG_PASSRULE[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_PASSRULE[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(21493);}while(r); -do{ -tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_INTEGER_DITCHLEV[4],__ARRAY_INTEGER_DITCHLEV[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_DITCHLEV[0]))[tmp_long]=*_FUNC_SEPERATEARGS_LONG_DITCHLEVEL; -if(!qbevent)break;evnt(21494);}while(r); -do{ -*_FUNC_SEPERATEARGS_LONG_DITCHLEVEL=*_FUNC_SEPERATEARGS_LONG_LEVEL; -if(!qbevent)break;evnt(21494);}while(r); -do{ -tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_INTEGER_T[4],__ARRAY_INTEGER_T[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_T[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(21495);}while(r); -do{ -tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_INTEGER_ENTRYLEV[4],__ARRAY_INTEGER_ENTRYLEV[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_ENTRYLEV[0]))[tmp_long]=*_FUNC_SEPERATEARGS_LONG_LEVEL; -if(!qbevent)break;evnt(21497);}while(r); -S_29059:; -if ((-(((int32*)(__ARRAY_LONG_LEVELENTERED[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_LEVEL)-__ARRAY_LONG_LEVELENTERED[4],__ARRAY_LONG_LEVELENTERED[5])]== 0 ))||new_error){ -if(qbevent){evnt(21498);if(r)goto S_29059;} -do{ -tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_INTEGER_ENTRYLEV[4],__ARRAY_INTEGER_ENTRYLEV[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_ENTRYLEV[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(21499);}while(r); -S_29061:; -fornext_value3058= 1 ; -fornext_finalvalue3058=*_FUNC_SEPERATEARGS_LONG_LEVEL- 1 ; -fornext_step3058= 1 ; -if (fornext_step3058<0) fornext_step_negative3058=1; else fornext_step_negative3058=0; -if (new_error) goto fornext_error3058; -goto fornext_entrylabel3058; -while(1){ -fornext_value3058=fornext_step3058+(*_FUNC_SEPERATEARGS_LONG_I2); -fornext_entrylabel3058: -*_FUNC_SEPERATEARGS_LONG_I2=fornext_value3058; -if (fornext_step_negative3058){ -if (fornext_value3058fornext_finalvalue3058) break; -} -fornext_error3058:; -if(qbevent){evnt(21500);if(r)goto S_29061;} -S_29062:; -if ((-(((int32*)(__ARRAY_LONG_LEVELENTERED[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I2)-__ARRAY_LONG_LEVELENTERED[4],__ARRAY_LONG_LEVELENTERED[5])]== 1 ))||new_error){ -if(qbevent){evnt(21501);if(r)goto S_29062;} -do{ -tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_INTEGER_ENTRYLEV[4],__ARRAY_INTEGER_ENTRYLEV[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_ENTRYLEV[0]))[tmp_long]=*_FUNC_SEPERATEARGS_LONG_I2; -if(!qbevent)break;evnt(21501);}while(r); -} -fornext_continue_3057:; -} -fornext_exit_3057:; -} -do{ -tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LEVEL)-__ARRAY_LONG_LEVELENTERED[4],__ARRAY_LONG_LEVELENTERED[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_LEVELENTERED[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(21504);}while(r); -do{ -goto LABEL_NEXTSYMBOL; -if(!qbevent)break;evnt(21506);}while(r); -} -do{ -*_FUNC_SEPERATEARGS_LONG_LASTT=*_FUNC_SEPERATEARGS_LONG_LASTT+ 1 ; -if(!qbevent)break;evnt(21510);}while(r); -do{ -tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_INTEGER_LEV[4],__ARRAY_INTEGER_LEV[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_LEV[0]))[tmp_long]=*_FUNC_SEPERATEARGS_LONG_LEVEL; -if(!qbevent)break;evnt(21510);}while(r); -do{ -tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_LONG_PASSRULE[4],__ARRAY_LONG_PASSRULE[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_PASSRULE[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(21510);}while(r); -do{ -tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_INTEGER_DITCHLEV[4],__ARRAY_INTEGER_DITCHLEV[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_DITCHLEV[0]))[tmp_long]=*_FUNC_SEPERATEARGS_LONG_DITCHLEVEL; -if(!qbevent)break;evnt(21511);}while(r); -do{ -*_FUNC_SEPERATEARGS_LONG_DITCHLEVEL=*_FUNC_SEPERATEARGS_LONG_LEVEL; -if(!qbevent)break;evnt(21511);}while(r); -do{ -tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_INTEGER_T[4],__ARRAY_INTEGER_T[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_T[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(21512);}while(r); -do{ -tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_STRING256_OPT[8],__ARRAY_STRING256_OPT[9])+array_check(( 1 )-__ARRAY_STRING256_OPT[4],__ARRAY_STRING256_OPT[5])*__ARRAY_STRING256_OPT[6]; -if (!new_error) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_OPT[0]))[tmp_long*256],256,1),_FUNC_SEPERATEARGS_STRING_S2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21512);}while(r); -do{ -tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_INTEGER_OPTWORDS[8],__ARRAY_INTEGER_OPTWORDS[9])+array_check(( 1 )-__ARRAY_INTEGER_OPTWORDS[4],__ARRAY_INTEGER_OPTWORDS[5])*__ARRAY_INTEGER_OPTWORDS[6]; -if (!new_error) ((int16*)(__ARRAY_INTEGER_OPTWORDS[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(21512);}while(r); -do{ -tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_INTEGER_DONTPASS[4],__ARRAY_INTEGER_DONTPASS[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_DONTPASS[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(21512);}while(r); -do{ -tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_INTEGER_ENTRYLEV[4],__ARRAY_INTEGER_ENTRYLEV[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_ENTRYLEV[0]))[tmp_long]=*_FUNC_SEPERATEARGS_LONG_LEVEL; -if(!qbevent)break;evnt(21515);}while(r); -S_29080:; -if ((-(((int32*)(__ARRAY_LONG_LEVELENTERED[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_LEVEL)-__ARRAY_LONG_LEVELENTERED[4],__ARRAY_LONG_LEVELENTERED[5])]== 0 ))||new_error){ -if(qbevent){evnt(21516);if(r)goto S_29080;} -do{ -tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_INTEGER_ENTRYLEV[4],__ARRAY_INTEGER_ENTRYLEV[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_ENTRYLEV[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(21517);}while(r); -S_29082:; -fornext_value3060= 1 ; -fornext_finalvalue3060=*_FUNC_SEPERATEARGS_LONG_LEVEL- 1 ; -fornext_step3060= 1 ; -if (fornext_step3060<0) fornext_step_negative3060=1; else fornext_step_negative3060=0; -if (new_error) goto fornext_error3060; -goto fornext_entrylabel3060; -while(1){ -fornext_value3060=fornext_step3060+(*_FUNC_SEPERATEARGS_LONG_I2); -fornext_entrylabel3060: -*_FUNC_SEPERATEARGS_LONG_I2=fornext_value3060; -if (fornext_step_negative3060){ -if (fornext_value3060fornext_finalvalue3060) break; -} -fornext_error3060:; -if(qbevent){evnt(21518);if(r)goto S_29082;} -S_29083:; -if ((-(((int32*)(__ARRAY_LONG_LEVELENTERED[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I2)-__ARRAY_LONG_LEVELENTERED[4],__ARRAY_LONG_LEVELENTERED[5])]== 1 ))||new_error){ -if(qbevent){evnt(21519);if(r)goto S_29083;} -do{ -tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_INTEGER_ENTRYLEV[4],__ARRAY_INTEGER_ENTRYLEV[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_ENTRYLEV[0]))[tmp_long]=*_FUNC_SEPERATEARGS_LONG_I2; -if(!qbevent)break;evnt(21519);}while(r); -} -fornext_continue_3059:; -} -fornext_exit_3059:; -} -do{ -tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LEVEL)-__ARRAY_LONG_LEVELENTERED[4],__ARRAY_LONG_LEVELENTERED[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_LEVELENTERED[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(21522);}while(r); -do{ -goto LABEL_NEXTSYMBOL; -if(!qbevent)break;evnt(21524);}while(r); -LABEL_NEXTSYMBOL:; -if(qbevent){evnt(21526);r=0;} -fornext_continue_3050:; -} -fornext_exit_3050:; -S_29091:; -if (( 0 )||new_error){ -if(qbevent){evnt(21530);if(r)goto S_29091;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip3061; -sub_file_print(tmp_fileno,qbs_new_txt_len("--------SEPERATE ARGUMENTS REPORT #1:1--------",46), 0, 0, 1); -if (new_error) goto skip3061; -skip3061: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(21531);}while(r); -S_29093:; -fornext_value3063= 1 ; -fornext_finalvalue3063=*_FUNC_SEPERATEARGS_LONG_LASTT; -fornext_step3063= 1 ; -if (fornext_step3063<0) fornext_step_negative3063=1; else fornext_step_negative3063=0; -if (new_error) goto fornext_error3063; -goto fornext_entrylabel3063; -while(1){ -fornext_value3063=fornext_step3063+(*_FUNC_SEPERATEARGS_LONG_I); -fornext_entrylabel3063: -*_FUNC_SEPERATEARGS_LONG_I=fornext_value3063; -if (fornext_step_negative3063){ -if (fornext_value3063fornext_finalvalue3063) break; -} -fornext_error3063:; -if(qbevent){evnt(21532);if(r)goto S_29093;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip3064; -sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_SEPERATEARGS_LONG_I)), 1, 1, 0); -if (new_error) goto skip3064; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("OPT=",4),func_chr( 34 )),qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_OPT[0]))[(array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_STRING256_OPT[8],__ARRAY_STRING256_OPT[9])+array_check(( 1 )-__ARRAY_STRING256_OPT[4],__ARRAY_STRING256_OPT[5])*__ARRAY_STRING256_OPT[6])*256],256,1))),func_chr( 34 )), 0, 0, 1); -if (new_error) goto skip3064; -skip3064: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(21533);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip3065; -sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_SEPERATEARGS_LONG_I)), 1, 1, 0); -if (new_error) goto skip3065; -sub_file_print(tmp_fileno,qbs_new_txt_len("OPTWORDS=",9), 0, 0, 0); -if (new_error) goto skip3065; -sub_file_print(tmp_fileno,qbs_str((int16)(((int16*)(__ARRAY_INTEGER_OPTWORDS[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_INTEGER_OPTWORDS[8],__ARRAY_INTEGER_OPTWORDS[9])+array_check(( 1 )-__ARRAY_INTEGER_OPTWORDS[4],__ARRAY_INTEGER_OPTWORDS[5])*__ARRAY_INTEGER_OPTWORDS[6]])), 1, 0, 1); -if (new_error) goto skip3065; -skip3065: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(21534);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip3066; -sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_SEPERATEARGS_LONG_I)), 1, 1, 0); -if (new_error) goto skip3066; -sub_file_print(tmp_fileno,qbs_new_txt_len("T=",2), 0, 0, 0); -if (new_error) goto skip3066; -sub_file_print(tmp_fileno,qbs_str((int16)(((int16*)(__ARRAY_INTEGER_T[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_INTEGER_T[4],__ARRAY_INTEGER_T[5])])), 1, 0, 1); -if (new_error) goto skip3066; -skip3066: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(21535);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip3067; -sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_SEPERATEARGS_LONG_I)), 1, 1, 0); -if (new_error) goto skip3067; -sub_file_print(tmp_fileno,qbs_new_txt_len("DONTPASS=",9), 0, 0, 0); -if (new_error) goto skip3067; -sub_file_print(tmp_fileno,qbs_str((int16)(((int16*)(__ARRAY_INTEGER_DONTPASS[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_INTEGER_DONTPASS[4],__ARRAY_INTEGER_DONTPASS[5])])), 1, 0, 1); -if (new_error) goto skip3067; -skip3067: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(21536);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip3068; -sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_SEPERATEARGS_LONG_I)), 1, 1, 0); -if (new_error) goto skip3068; -sub_file_print(tmp_fileno,qbs_new_txt_len("PASSRULE=",9), 0, 0, 0); -if (new_error) goto skip3068; -sub_file_print(tmp_fileno,qbs_str((int32)(((int32*)(__ARRAY_LONG_PASSRULE[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_LONG_PASSRULE[4],__ARRAY_LONG_PASSRULE[5])])), 1, 0, 1); -if (new_error) goto skip3068; -skip3068: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(21537);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip3069; -sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_SEPERATEARGS_LONG_I)), 1, 1, 0); -if (new_error) goto skip3069; -sub_file_print(tmp_fileno,qbs_new_txt_len("LEV=",4), 0, 0, 0); -if (new_error) goto skip3069; -sub_file_print(tmp_fileno,qbs_str((int16)(((int16*)(__ARRAY_INTEGER_LEV[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_INTEGER_LEV[4],__ARRAY_INTEGER_LEV[5])])), 1, 0, 1); -if (new_error) goto skip3069; -skip3069: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(21538);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip3070; -sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_SEPERATEARGS_LONG_I)), 1, 1, 0); -if (new_error) goto skip3070; -sub_file_print(tmp_fileno,qbs_new_txt_len("ENTRYLEV=",9), 0, 0, 0); -if (new_error) goto skip3070; -sub_file_print(tmp_fileno,qbs_str((int16)(((int16*)(__ARRAY_INTEGER_ENTRYLEV[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_INTEGER_ENTRYLEV[4],__ARRAY_INTEGER_ENTRYLEV[5])])), 1, 0, 1); -if (new_error) goto skip3070; -skip3070: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(21539);}while(r); -fornext_continue_3062:; -} -fornext_exit_3062:; -} -S_29103:; -fornext_value3072= 1 ; -fornext_finalvalue3072=*_FUNC_SEPERATEARGS_LONG_LASTT; -fornext_step3072= 1 ; -if (fornext_step3072<0) fornext_step_negative3072=1; else fornext_step_negative3072=0; -if (new_error) goto fornext_error3072; -goto fornext_entrylabel3072; -while(1){ -fornext_value3072=fornext_step3072+(*_FUNC_SEPERATEARGS_LONG_X); -fornext_entrylabel3072: -*_FUNC_SEPERATEARGS_LONG_X=fornext_value3072; -if (fornext_step_negative3072){ -if (fornext_value3072fornext_finalvalue3072) break; -} -fornext_error3072:; -if(qbevent){evnt(21547);if(r)goto S_29103;} -S_29104:; -if ((-(((int16*)(__ARRAY_INTEGER_LEV[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_INTEGER_LEV[4],__ARRAY_INTEGER_LEV[5])]== 0 ))||new_error){ -if(qbevent){evnt(21548);if(r)goto S_29104;} -S_29105:; -if ((-(((int16*)(__ARRAY_INTEGER_T[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_INTEGER_T[4],__ARRAY_INTEGER_T[5])]== 1 ))||new_error){ -if(qbevent){evnt(21549);if(r)goto S_29105;} -do{ -tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_INTEGER_DONTPASS[4],__ARRAY_INTEGER_DONTPASS[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_DONTPASS[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(21549);}while(r); -} -} -fornext_continue_3071:; -} -fornext_exit_3071:; -S_29110:; -if (( 0 )||new_error){ -if(qbevent){evnt(21553);if(r)goto S_29110;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip3073; -sub_file_print(tmp_fileno,qbs_new_txt_len("--------SEPERATE ARGUMENTS REPORT #1:2--------",46), 0, 0, 1); -if (new_error) goto skip3073; -skip3073: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(21554);}while(r); -S_29112:; -fornext_value3075= 1 ; -fornext_finalvalue3075=*_FUNC_SEPERATEARGS_LONG_LASTT; -fornext_step3075= 1 ; -if (fornext_step3075<0) fornext_step_negative3075=1; else fornext_step_negative3075=0; -if (new_error) goto fornext_error3075; -goto fornext_entrylabel3075; -while(1){ -fornext_value3075=fornext_step3075+(*_FUNC_SEPERATEARGS_LONG_I); -fornext_entrylabel3075: -*_FUNC_SEPERATEARGS_LONG_I=fornext_value3075; -if (fornext_step_negative3075){ -if (fornext_value3075fornext_finalvalue3075) break; -} -fornext_error3075:; -if(qbevent){evnt(21555);if(r)goto S_29112;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip3076; -sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_SEPERATEARGS_LONG_I)), 1, 1, 0); -if (new_error) goto skip3076; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("OPT=",4),func_chr( 34 )),qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_OPT[0]))[(array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_STRING256_OPT[8],__ARRAY_STRING256_OPT[9])+array_check(( 1 )-__ARRAY_STRING256_OPT[4],__ARRAY_STRING256_OPT[5])*__ARRAY_STRING256_OPT[6])*256],256,1))),func_chr( 34 )), 0, 0, 1); -if (new_error) goto skip3076; -skip3076: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(21556);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip3077; -sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_SEPERATEARGS_LONG_I)), 1, 1, 0); -if (new_error) goto skip3077; -sub_file_print(tmp_fileno,qbs_new_txt_len("OPTWORDS=",9), 0, 0, 0); -if (new_error) goto skip3077; -sub_file_print(tmp_fileno,qbs_str((int16)(((int16*)(__ARRAY_INTEGER_OPTWORDS[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_INTEGER_OPTWORDS[8],__ARRAY_INTEGER_OPTWORDS[9])+array_check(( 1 )-__ARRAY_INTEGER_OPTWORDS[4],__ARRAY_INTEGER_OPTWORDS[5])*__ARRAY_INTEGER_OPTWORDS[6]])), 1, 0, 1); -if (new_error) goto skip3077; -skip3077: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(21557);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip3078; -sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_SEPERATEARGS_LONG_I)), 1, 1, 0); -if (new_error) goto skip3078; -sub_file_print(tmp_fileno,qbs_new_txt_len("T=",2), 0, 0, 0); -if (new_error) goto skip3078; -sub_file_print(tmp_fileno,qbs_str((int16)(((int16*)(__ARRAY_INTEGER_T[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_INTEGER_T[4],__ARRAY_INTEGER_T[5])])), 1, 0, 1); -if (new_error) goto skip3078; -skip3078: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(21558);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip3079; -sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_SEPERATEARGS_LONG_I)), 1, 1, 0); -if (new_error) goto skip3079; -sub_file_print(tmp_fileno,qbs_new_txt_len("DONTPASS=",9), 0, 0, 0); -if (new_error) goto skip3079; -sub_file_print(tmp_fileno,qbs_str((int16)(((int16*)(__ARRAY_INTEGER_DONTPASS[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_INTEGER_DONTPASS[4],__ARRAY_INTEGER_DONTPASS[5])])), 1, 0, 1); -if (new_error) goto skip3079; -skip3079: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(21559);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip3080; -sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_SEPERATEARGS_LONG_I)), 1, 1, 0); -if (new_error) goto skip3080; -sub_file_print(tmp_fileno,qbs_new_txt_len("PASSRULE=",9), 0, 0, 0); -if (new_error) goto skip3080; -sub_file_print(tmp_fileno,qbs_str((int32)(((int32*)(__ARRAY_LONG_PASSRULE[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_LONG_PASSRULE[4],__ARRAY_LONG_PASSRULE[5])])), 1, 0, 1); -if (new_error) goto skip3080; -skip3080: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(21560);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip3081; -sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_SEPERATEARGS_LONG_I)), 1, 1, 0); -if (new_error) goto skip3081; -sub_file_print(tmp_fileno,qbs_new_txt_len("LEV=",4), 0, 0, 0); -if (new_error) goto skip3081; -sub_file_print(tmp_fileno,qbs_str((int16)(((int16*)(__ARRAY_INTEGER_LEV[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_INTEGER_LEV[4],__ARRAY_INTEGER_LEV[5])])), 1, 0, 1); -if (new_error) goto skip3081; -skip3081: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(21561);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip3082; -sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_SEPERATEARGS_LONG_I)), 1, 1, 0); -if (new_error) goto skip3082; -sub_file_print(tmp_fileno,qbs_new_txt_len("ENTRYLEV=",9), 0, 0, 0); -if (new_error) goto skip3082; -sub_file_print(tmp_fileno,qbs_str((int16)(((int16*)(__ARRAY_INTEGER_ENTRYLEV[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_INTEGER_ENTRYLEV[4],__ARRAY_INTEGER_ENTRYLEV[5])])), 1, 0, 1); -if (new_error) goto skip3082; -skip3082: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(21562);}while(r); -fornext_continue_3074:; -} -fornext_exit_3074:; -} -do{ -*_FUNC_SEPERATEARGS_LONG_X1= 0 ; -if(!qbevent)break;evnt(21569);}while(r); -do{ -*_FUNC_SEPERATEARGS_LONG_MUSTPASSOPT= 0 ; -if(!qbevent)break;evnt(21570);}while(r); -do{ -*_FUNC_SEPERATEARGS_LONG_MUSTPASSOPTNEEDSFLAG= 0 ; -if(!qbevent)break;evnt(21571);}while(r); -do{ -*_FUNC_SEPERATEARGS_LONG_TEMPLISTN= 0 ; -if(!qbevent)break;evnt(21576);}while(r); -S_29126:; -fornext_value3084= 1 ; -fornext_finalvalue3084= 32767 ; -fornext_step3084= 1 ; -if (fornext_step3084<0) fornext_step_negative3084=1; else fornext_step_negative3084=0; -if (new_error) goto fornext_error3084; -goto fornext_entrylabel3084; -while(1){ -fornext_value3084=fornext_step3084+(*_FUNC_SEPERATEARGS_LONG_L); -fornext_entrylabel3084: -*_FUNC_SEPERATEARGS_LONG_L=fornext_value3084; -if (fornext_step_negative3084){ -if (fornext_value3084fornext_finalvalue3084) break; -} -fornext_error3084:; -if(qbevent){evnt(21577);if(r)goto S_29126;} -do{ -*_FUNC_SEPERATEARGS_LONG_SCANNEXTLEVEL= 0 ; -if(!qbevent)break;evnt(21578);}while(r); -S_29128:; -fornext_value3086= 1 ; -fornext_finalvalue3086=*_FUNC_SEPERATEARGS_LONG_LASTT; -fornext_step3086= 1 ; -if (fornext_step3086<0) fornext_step_negative3086=1; else fornext_step_negative3086=0; -if (new_error) goto fornext_error3086; -goto fornext_entrylabel3086; -while(1){ -fornext_value3086=fornext_step3086+(*_FUNC_SEPERATEARGS_LONG_X); -fornext_entrylabel3086: -*_FUNC_SEPERATEARGS_LONG_X=fornext_value3086; -if (fornext_step_negative3086){ -if (fornext_value3086fornext_finalvalue3086) break; -} -fornext_error3086:; -if(qbevent){evnt(21579);if(r)goto S_29128;} -S_29129:; -if ((-(((int16*)(__ARRAY_INTEGER_LEV[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_INTEGER_LEV[4],__ARRAY_INTEGER_LEV[5])]>*_FUNC_SEPERATEARGS_LONG_L))||new_error){ -if(qbevent){evnt(21580);if(r)goto S_29129;} -do{ -*_FUNC_SEPERATEARGS_LONG_SCANNEXTLEVEL= 1 ; -if(!qbevent)break;evnt(21580);}while(r); -} -S_29132:; -if ((*_FUNC_SEPERATEARGS_LONG_X1)||new_error){ -if(qbevent){evnt(21582);if(r)goto S_29132;} -S_29133:; -if ((-(((int16*)(__ARRAY_INTEGER_ENTRYLEV[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_INTEGER_ENTRYLEV[4],__ARRAY_INTEGER_ENTRYLEV[5])]<*_FUNC_SEPERATEARGS_LONG_L))||new_error){ -if(qbevent){evnt(21583);if(r)goto S_29133;} -S_29134:; -if ((*_FUNC_SEPERATEARGS_LONG_MUSTPASSOPT)||new_error){ -if(qbevent){evnt(21584);if(r)goto S_29134;} -S_29135:; -if ((*_FUNC_SEPERATEARGS_LONG_MUSTPASSOPTNEEDSFLAG)||new_error){ -if(qbevent){evnt(21587);if(r)goto S_29135;} -S_29136:; -fornext_value3088= 1 ; -fornext_finalvalue3088=*_FUNC_SEPERATEARGS_LONG_TEMPLISTN; -fornext_step3088= 1 ; -if (fornext_step3088<0) fornext_step_negative3088=1; else fornext_step_negative3088=0; -if (new_error) goto fornext_error3088; -goto fornext_entrylabel3088; -while(1){ -fornext_value3088=fornext_step3088+(*_FUNC_SEPERATEARGS_LONG_X2); -fornext_entrylabel3088: -*_FUNC_SEPERATEARGS_LONG_X2=fornext_value3088; -if (fornext_step_negative3088){ -if (fornext_value3088fornext_finalvalue3088) break; -} -fornext_error3088:; -if(qbevent){evnt(21589);if(r)goto S_29136;} -do{ -tmp_long=array_check((((int16*)(__ARRAY_INTEGER_TEMPLIST[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X2)-__ARRAY_INTEGER_TEMPLIST[4],__ARRAY_INTEGER_TEMPLIST[5])])-__ARRAY_LONG_PASSRULE[4],__ARRAY_LONG_PASSRULE[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_PASSRULE[0]))[tmp_long]=*_FUNC_SEPERATEARGS_LONG_PASSFLAG; -if(!qbevent)break;evnt(21590);}while(r); -fornext_continue_3087:; -} -fornext_exit_3087:; -do{ -*_FUNC_SEPERATEARGS_LONG_PASSFLAG=*_FUNC_SEPERATEARGS_LONG_PASSFLAG* 2 ; -if(!qbevent)break;evnt(21592);}while(r); -}else{ -S_29141:; -fornext_value3090= 1 ; -fornext_finalvalue3090=*_FUNC_SEPERATEARGS_LONG_TEMPLISTN; -fornext_step3090= 1 ; -if (fornext_step3090<0) fornext_step_negative3090=1; else fornext_step_negative3090=0; -if (new_error) goto fornext_error3090; -goto fornext_entrylabel3090; -while(1){ -fornext_value3090=fornext_step3090+(*_FUNC_SEPERATEARGS_LONG_X2); -fornext_entrylabel3090: -*_FUNC_SEPERATEARGS_LONG_X2=fornext_value3090; -if (fornext_step_negative3090){ -if (fornext_value3090fornext_finalvalue3090) break; -} -fornext_error3090:; -if(qbevent){evnt(21596);if(r)goto S_29141;} -S_29142:; -if ((-(((int16*)(__ARRAY_INTEGER_TEMPLIST[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X2)-__ARRAY_INTEGER_TEMPLIST[4],__ARRAY_INTEGER_TEMPLIST[5])]!=*_FUNC_SEPERATEARGS_LONG_MUSTPASSOPT))||new_error){ -if(qbevent){evnt(21597);if(r)goto S_29142;} -do{ -tmp_long=array_check((((int16*)(__ARRAY_INTEGER_TEMPLIST[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X2)-__ARRAY_INTEGER_TEMPLIST[4],__ARRAY_INTEGER_TEMPLIST[5])])-__ARRAY_LONG_PASSRULE[4],__ARRAY_LONG_PASSRULE[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_PASSRULE[0]))[tmp_long]=-(*_FUNC_SEPERATEARGS_LONG_MUSTPASSOPT); -if(!qbevent)break;evnt(21597);}while(r); -} -fornext_continue_3089:; -} -fornext_exit_3089:; -} -}else{ -S_29148:; -fornext_value3092= 1 ; -fornext_finalvalue3092=*_FUNC_SEPERATEARGS_LONG_TEMPLISTN; -fornext_step3092= 1 ; -if (fornext_step3092<0) fornext_step_negative3092=1; else fornext_step_negative3092=0; -if (new_error) goto fornext_error3092; -goto fornext_entrylabel3092; -while(1){ -fornext_value3092=fornext_step3092+(*_FUNC_SEPERATEARGS_LONG_X2); -fornext_entrylabel3092: -*_FUNC_SEPERATEARGS_LONG_X2=fornext_value3092; -if (fornext_step_negative3092){ -if (fornext_value3092fornext_finalvalue3092) break; -} -fornext_error3092:; -if(qbevent){evnt(21602);if(r)goto S_29148;} -do{ -tmp_long=array_check((((int16*)(__ARRAY_INTEGER_TEMPLIST[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X2)-__ARRAY_INTEGER_TEMPLIST[4],__ARRAY_INTEGER_TEMPLIST[5])])-__ARRAY_LONG_PASSRULE[4],__ARRAY_LONG_PASSRULE[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_PASSRULE[0]))[tmp_long]=*_FUNC_SEPERATEARGS_LONG_PASSFLAG; -if(!qbevent)break;evnt(21602);}while(r); -fornext_continue_3091:; -} -fornext_exit_3091:; -S_29151:; -if ((-(*_FUNC_SEPERATEARGS_LONG_TEMPLISTN!= 0 ))||new_error){ -if(qbevent){evnt(21603);if(r)goto S_29151;} -do{ -*_FUNC_SEPERATEARGS_LONG_PASSFLAG=*_FUNC_SEPERATEARGS_LONG_PASSFLAG* 2 ; -if(!qbevent)break;evnt(21603);}while(r); -} -} -do{ -*_FUNC_SEPERATEARGS_LONG_X1= 0 ; -if(!qbevent)break;evnt(21605);}while(r); -} -} -S_29158:; -if ((-(((int16*)(__ARRAY_INTEGER_LEV[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_INTEGER_LEV[4],__ARRAY_INTEGER_LEV[5])]==*_FUNC_SEPERATEARGS_LONG_L))||new_error){ -if(qbevent){evnt(21610);if(r)goto S_29158;} -S_29159:; -if ((-(((int16*)(__ARRAY_INTEGER_ENTRYLEV[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_INTEGER_ENTRYLEV[4],__ARRAY_INTEGER_ENTRYLEV[5])]<*_FUNC_SEPERATEARGS_LONG_L))||new_error){ -if(qbevent){evnt(21611);if(r)goto S_29159;} -do{ -*_FUNC_SEPERATEARGS_LONG_X1=*_FUNC_SEPERATEARGS_LONG_X; -if(!qbevent)break;evnt(21612);}while(r); -do{ -*_FUNC_SEPERATEARGS_LONG_MUSTPASSOPT= 0 ; -if(!qbevent)break;evnt(21613);}while(r); -do{ -*_FUNC_SEPERATEARGS_LONG_TEMPLISTN= 0 ; -if(!qbevent)break;evnt(21614);}while(r); -} -} -S_29165:; -if ((*_FUNC_SEPERATEARGS_LONG_X1)||new_error){ -if(qbevent){evnt(21618);if(r)goto S_29165;} -S_29166:; -if ((-(((int16*)(__ARRAY_INTEGER_LEV[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_INTEGER_LEV[4],__ARRAY_INTEGER_LEV[5])]==*_FUNC_SEPERATEARGS_LONG_L))||new_error){ -if(qbevent){evnt(21619);if(r)goto S_29166;} -S_29167:; -if ((-(((int16*)(__ARRAY_INTEGER_T[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_INTEGER_T[4],__ARRAY_INTEGER_T[5])]!= 1 ))||new_error){ -if(qbevent){evnt(21621);if(r)goto S_29167;} -S_29168:; -if ((-(*_FUNC_SEPERATEARGS_LONG_MUSTPASSOPT== 0 ))||new_error){ -if(qbevent){evnt(21623);if(r)goto S_29168;} -do{ -*_FUNC_SEPERATEARGS_LONG_MUSTPASSOPT=*_FUNC_SEPERATEARGS_LONG_X; -if(!qbevent)break;evnt(21624);}while(r); -S_29170:; -if ((-(((int16*)(__ARRAY_INTEGER_T[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_INTEGER_T[4],__ARRAY_INTEGER_T[5])]== 0 ))||new_error){ -if(qbevent){evnt(21625);if(r)goto S_29170;} -do{ -*_FUNC_SEPERATEARGS_LONG_MUSTPASSOPTNEEDSFLAG= 1 ; -if(!qbevent)break;evnt(21625);}while(r); -}else{ -do{ -*_FUNC_SEPERATEARGS_LONG_MUSTPASSOPTNEEDSFLAG= 0 ; -if(!qbevent)break;evnt(21625);}while(r); -} -}else{ -S_29176:; -if ((-(*_FUNC_SEPERATEARGS_LONG_MUSTPASSOPTNEEDSFLAG== 1 ))||new_error){ -if(qbevent){evnt(21629);if(r)goto S_29176;} -S_29177:; -if ((-(((int16*)(__ARRAY_INTEGER_T[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_INTEGER_T[4],__ARRAY_INTEGER_T[5])]> 1 ))||new_error){ -if(qbevent){evnt(21630);if(r)goto S_29177;} -do{ -*_FUNC_SEPERATEARGS_LONG_MUSTPASSOPT=*_FUNC_SEPERATEARGS_LONG_X; -if(!qbevent)break;evnt(21631);}while(r); -do{ -*_FUNC_SEPERATEARGS_LONG_MUSTPASSOPTNEEDSFLAG= 0 ; -if(!qbevent)break;evnt(21631);}while(r); -} -} -} -do{ -*_FUNC_SEPERATEARGS_LONG_TEMPLISTN=*_FUNC_SEPERATEARGS_LONG_TEMPLISTN+ 1 ; -if(!qbevent)break;evnt(21636);}while(r); -do{ -tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_TEMPLISTN)-__ARRAY_INTEGER_TEMPLIST[4],__ARRAY_INTEGER_TEMPLIST[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_TEMPLIST[0]))[tmp_long]=*_FUNC_SEPERATEARGS_LONG_X; -if(!qbevent)break;evnt(21636);}while(r); -} -S_29186:; -if ((-(((int16*)(__ARRAY_INTEGER_T[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_INTEGER_T[4],__ARRAY_INTEGER_T[5])]== 1 ))||new_error){ -if(qbevent){evnt(21639);if(r)goto S_29186;} -S_29187:; -if ((-(((int16*)(__ARRAY_INTEGER_DONTPASS[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_INTEGER_DONTPASS[4],__ARRAY_INTEGER_DONTPASS[5])]== 0 ))||new_error){ -if(qbevent){evnt(21645);if(r)goto S_29187;} -do{ -*_FUNC_SEPERATEARGS_LONG_TEMPLISTN=*_FUNC_SEPERATEARGS_LONG_TEMPLISTN+ 1 ; -if(!qbevent)break;evnt(21645);}while(r); -do{ -tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_TEMPLISTN)-__ARRAY_INTEGER_TEMPLIST[4],__ARRAY_INTEGER_TEMPLIST[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_TEMPLIST[0]))[tmp_long]=*_FUNC_SEPERATEARGS_LONG_X; -if(!qbevent)break;evnt(21645);}while(r); -do{ -tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_INTEGER_DONTPASS[4],__ARRAY_INTEGER_DONTPASS[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_DONTPASS[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(21645);}while(r); -} -} -} -} -fornext_continue_3085:; -} -fornext_exit_3085:; -S_29196:; -if ((*_FUNC_SEPERATEARGS_LONG_X1)||new_error){ -if(qbevent){evnt(21654);if(r)goto S_29196;} -S_29197:; -if ((*_FUNC_SEPERATEARGS_LONG_MUSTPASSOPT)||new_error){ -if(qbevent){evnt(21655);if(r)goto S_29197;} -S_29198:; -if ((*_FUNC_SEPERATEARGS_LONG_MUSTPASSOPTNEEDSFLAG)||new_error){ -if(qbevent){evnt(21658);if(r)goto S_29198;} -S_29199:; -fornext_value3094= 1 ; -fornext_finalvalue3094=*_FUNC_SEPERATEARGS_LONG_TEMPLISTN; -fornext_step3094= 1 ; -if (fornext_step3094<0) fornext_step_negative3094=1; else fornext_step_negative3094=0; -if (new_error) goto fornext_error3094; -goto fornext_entrylabel3094; -while(1){ -fornext_value3094=fornext_step3094+(*_FUNC_SEPERATEARGS_LONG_X2); -fornext_entrylabel3094: -*_FUNC_SEPERATEARGS_LONG_X2=fornext_value3094; -if (fornext_step_negative3094){ -if (fornext_value3094fornext_finalvalue3094) break; -} -fornext_error3094:; -if(qbevent){evnt(21660);if(r)goto S_29199;} -do{ -tmp_long=array_check((((int16*)(__ARRAY_INTEGER_TEMPLIST[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X2)-__ARRAY_INTEGER_TEMPLIST[4],__ARRAY_INTEGER_TEMPLIST[5])])-__ARRAY_LONG_PASSRULE[4],__ARRAY_LONG_PASSRULE[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_PASSRULE[0]))[tmp_long]=*_FUNC_SEPERATEARGS_LONG_PASSFLAG; -if(!qbevent)break;evnt(21661);}while(r); -fornext_continue_3093:; -} -fornext_exit_3093:; -do{ -*_FUNC_SEPERATEARGS_LONG_PASSFLAG=*_FUNC_SEPERATEARGS_LONG_PASSFLAG* 2 ; -if(!qbevent)break;evnt(21663);}while(r); -}else{ -S_29204:; -fornext_value3096= 1 ; -fornext_finalvalue3096=*_FUNC_SEPERATEARGS_LONG_TEMPLISTN; -fornext_step3096= 1 ; -if (fornext_step3096<0) fornext_step_negative3096=1; else fornext_step_negative3096=0; -if (new_error) goto fornext_error3096; -goto fornext_entrylabel3096; -while(1){ -fornext_value3096=fornext_step3096+(*_FUNC_SEPERATEARGS_LONG_X2); -fornext_entrylabel3096: -*_FUNC_SEPERATEARGS_LONG_X2=fornext_value3096; -if (fornext_step_negative3096){ -if (fornext_value3096fornext_finalvalue3096) break; -} -fornext_error3096:; -if(qbevent){evnt(21667);if(r)goto S_29204;} -S_29205:; -if ((-(((int16*)(__ARRAY_INTEGER_TEMPLIST[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X2)-__ARRAY_INTEGER_TEMPLIST[4],__ARRAY_INTEGER_TEMPLIST[5])]!=*_FUNC_SEPERATEARGS_LONG_MUSTPASSOPT))||new_error){ -if(qbevent){evnt(21668);if(r)goto S_29205;} -do{ -tmp_long=array_check((((int16*)(__ARRAY_INTEGER_TEMPLIST[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X2)-__ARRAY_INTEGER_TEMPLIST[4],__ARRAY_INTEGER_TEMPLIST[5])])-__ARRAY_LONG_PASSRULE[4],__ARRAY_LONG_PASSRULE[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_PASSRULE[0]))[tmp_long]=-(*_FUNC_SEPERATEARGS_LONG_MUSTPASSOPT); -if(!qbevent)break;evnt(21668);}while(r); -} -fornext_continue_3095:; -} -fornext_exit_3095:; -} -}else{ -S_29211:; -fornext_value3098= 1 ; -fornext_finalvalue3098=*_FUNC_SEPERATEARGS_LONG_TEMPLISTN; -fornext_step3098= 1 ; -if (fornext_step3098<0) fornext_step_negative3098=1; else fornext_step_negative3098=0; -if (new_error) goto fornext_error3098; -goto fornext_entrylabel3098; -while(1){ -fornext_value3098=fornext_step3098+(*_FUNC_SEPERATEARGS_LONG_X2); -fornext_entrylabel3098: -*_FUNC_SEPERATEARGS_LONG_X2=fornext_value3098; -if (fornext_step_negative3098){ -if (fornext_value3098fornext_finalvalue3098) break; -} -fornext_error3098:; -if(qbevent){evnt(21673);if(r)goto S_29211;} -do{ -tmp_long=array_check((((int16*)(__ARRAY_INTEGER_TEMPLIST[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X2)-__ARRAY_INTEGER_TEMPLIST[4],__ARRAY_INTEGER_TEMPLIST[5])])-__ARRAY_LONG_PASSRULE[4],__ARRAY_LONG_PASSRULE[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_PASSRULE[0]))[tmp_long]=*_FUNC_SEPERATEARGS_LONG_PASSFLAG; -if(!qbevent)break;evnt(21673);}while(r); -fornext_continue_3097:; -} -fornext_exit_3097:; -S_29214:; -if ((-(*_FUNC_SEPERATEARGS_LONG_TEMPLISTN!= 0 ))||new_error){ -if(qbevent){evnt(21674);if(r)goto S_29214;} -do{ -*_FUNC_SEPERATEARGS_LONG_PASSFLAG=*_FUNC_SEPERATEARGS_LONG_PASSFLAG* 2 ; -if(!qbevent)break;evnt(21674);}while(r); -} -} -do{ -*_FUNC_SEPERATEARGS_LONG_X1= 0 ; -if(!qbevent)break;evnt(21676);}while(r); -} -S_29220:; -if ((-(*_FUNC_SEPERATEARGS_LONG_SCANNEXTLEVEL== 0 ))||new_error){ -if(qbevent){evnt(21679);if(r)goto S_29220;} -do{ -goto fornext_exit_3083; -if(!qbevent)break;evnt(21679);}while(r); -} -fornext_continue_3083:; -} -fornext_exit_3083:; -S_29224:; -if (( 0 )||new_error){ -if(qbevent){evnt(21682);if(r)goto S_29224;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip3099; -sub_file_print(tmp_fileno,qbs_new_txt_len("--------SEPERATE ARGUMENTS REPORT #1:3--------",46), 0, 0, 1); -if (new_error) goto skip3099; -skip3099: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(21683);}while(r); -S_29226:; -fornext_value3101= 1 ; -fornext_finalvalue3101=*_FUNC_SEPERATEARGS_LONG_LASTT; -fornext_step3101= 1 ; -if (fornext_step3101<0) fornext_step_negative3101=1; else fornext_step_negative3101=0; -if (new_error) goto fornext_error3101; -goto fornext_entrylabel3101; -while(1){ -fornext_value3101=fornext_step3101+(*_FUNC_SEPERATEARGS_LONG_I); -fornext_entrylabel3101: -*_FUNC_SEPERATEARGS_LONG_I=fornext_value3101; -if (fornext_step_negative3101){ -if (fornext_value3101fornext_finalvalue3101) break; -} -fornext_error3101:; -if(qbevent){evnt(21684);if(r)goto S_29226;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip3102; -sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_SEPERATEARGS_LONG_I)), 1, 1, 0); -if (new_error) goto skip3102; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("OPT=",4),func_chr( 34 )),qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_OPT[0]))[(array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_STRING256_OPT[8],__ARRAY_STRING256_OPT[9])+array_check(( 1 )-__ARRAY_STRING256_OPT[4],__ARRAY_STRING256_OPT[5])*__ARRAY_STRING256_OPT[6])*256],256,1))),func_chr( 34 )), 0, 0, 1); -if (new_error) goto skip3102; -skip3102: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(21685);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip3103; -sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_SEPERATEARGS_LONG_I)), 1, 1, 0); -if (new_error) goto skip3103; -sub_file_print(tmp_fileno,qbs_new_txt_len("OPTWORDS=",9), 0, 0, 0); -if (new_error) goto skip3103; -sub_file_print(tmp_fileno,qbs_str((int16)(((int16*)(__ARRAY_INTEGER_OPTWORDS[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_INTEGER_OPTWORDS[8],__ARRAY_INTEGER_OPTWORDS[9])+array_check(( 1 )-__ARRAY_INTEGER_OPTWORDS[4],__ARRAY_INTEGER_OPTWORDS[5])*__ARRAY_INTEGER_OPTWORDS[6]])), 1, 0, 1); -if (new_error) goto skip3103; -skip3103: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(21686);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip3104; -sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_SEPERATEARGS_LONG_I)), 1, 1, 0); -if (new_error) goto skip3104; -sub_file_print(tmp_fileno,qbs_new_txt_len("T=",2), 0, 0, 0); -if (new_error) goto skip3104; -sub_file_print(tmp_fileno,qbs_str((int16)(((int16*)(__ARRAY_INTEGER_T[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_INTEGER_T[4],__ARRAY_INTEGER_T[5])])), 1, 0, 1); -if (new_error) goto skip3104; -skip3104: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(21687);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip3105; -sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_SEPERATEARGS_LONG_I)), 1, 1, 0); -if (new_error) goto skip3105; -sub_file_print(tmp_fileno,qbs_new_txt_len("DONTPASS=",9), 0, 0, 0); -if (new_error) goto skip3105; -sub_file_print(tmp_fileno,qbs_str((int16)(((int16*)(__ARRAY_INTEGER_DONTPASS[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_INTEGER_DONTPASS[4],__ARRAY_INTEGER_DONTPASS[5])])), 1, 0, 1); -if (new_error) goto skip3105; -skip3105: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(21688);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip3106; -sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_SEPERATEARGS_LONG_I)), 1, 1, 0); -if (new_error) goto skip3106; -sub_file_print(tmp_fileno,qbs_new_txt_len("PASSRULE=",9), 0, 0, 0); -if (new_error) goto skip3106; -sub_file_print(tmp_fileno,qbs_str((int32)(((int32*)(__ARRAY_LONG_PASSRULE[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_LONG_PASSRULE[4],__ARRAY_LONG_PASSRULE[5])])), 1, 0, 1); -if (new_error) goto skip3106; -skip3106: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(21689);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip3107; -sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_SEPERATEARGS_LONG_I)), 1, 1, 0); -if (new_error) goto skip3107; -sub_file_print(tmp_fileno,qbs_new_txt_len("LEV=",4), 0, 0, 0); -if (new_error) goto skip3107; -sub_file_print(tmp_fileno,qbs_str((int16)(((int16*)(__ARRAY_INTEGER_LEV[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_INTEGER_LEV[4],__ARRAY_INTEGER_LEV[5])])), 1, 0, 1); -if (new_error) goto skip3107; -skip3107: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(21690);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip3108; -sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_SEPERATEARGS_LONG_I)), 1, 1, 0); -if (new_error) goto skip3108; -sub_file_print(tmp_fileno,qbs_new_txt_len("ENTRYLEV=",9), 0, 0, 0); -if (new_error) goto skip3108; -sub_file_print(tmp_fileno,qbs_str((int16)(((int16*)(__ARRAY_INTEGER_ENTRYLEV[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_INTEGER_ENTRYLEV[4],__ARRAY_INTEGER_ENTRYLEV[5])])), 1, 0, 1); -if (new_error) goto skip3108; -skip3108: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(21691);}while(r); -fornext_continue_3100:; -} -fornext_exit_3100:; -} -S_29236:; -fornext_value3110= 1 ; -fornext_finalvalue3110=*_FUNC_SEPERATEARGS_LONG_LASTT; -fornext_step3110= 1 ; -if (fornext_step3110<0) fornext_step_negative3110=1; else fornext_step_negative3110=0; -if (new_error) goto fornext_error3110; -goto fornext_entrylabel3110; -while(1){ -fornext_value3110=fornext_step3110+(*_FUNC_SEPERATEARGS_LONG_I); -fornext_entrylabel3110: -*_FUNC_SEPERATEARGS_LONG_I=fornext_value3110; -if (fornext_step_negative3110){ -if (fornext_value3110fornext_finalvalue3110) break; -} -fornext_error3110:; -if(qbevent){evnt(21697);if(r)goto S_29236;} -do{ -tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_STRING_SEPARGS[4],__ARRAY_STRING_SEPARGS[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS[0]))[tmp_long])),qbs_new_txt_len("n-ll",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21697);}while(r); -fornext_continue_3109:; -} -fornext_exit_3109:; -do{ -*_FUNC_SEPERATEARGS_LONG_BRANCHES= 0 ; -if(!qbevent)break;evnt(21715);}while(r); -do{ +} +if(!qbevent)break;evnt(21039);}while(r); +} +do{ +qbs_set(_SUB_REGID_STRING_N,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21042);}while(r); +S_24859:; +if ((-(*__LONG_REGINTERNALSUBFUNC== 0 ))||new_error){ +if(qbevent){evnt(21044);if(r)goto S_24859;} +S_24860:; +if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(_SUB_REGID_STRING_N)== 0 )))||new_error){ +if(qbevent){evnt(21045);if(r)goto S_24860;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Invalid name",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21045);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21045);}while(r); +} +} +S_24865:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1))== 32 )))||new_error){ +if(qbevent){evnt(21049);if(r)goto S_24865;} +do{ +qbs_set(_SUB_REGID_STRING_N,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21050);}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_ucase(_SUB_REGID_STRING_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21051);}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(256)),256,1),_SUB_REGID_STRING_N); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21052);}while(r); +} +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(2385)),256,1),__STRING_SUBFUNC); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21055);}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2641))=*__LONG_SUBFUNCN; +if(!qbevent)break;evnt(21056);}while(r); +S_24872:; +if ((*__INTEGER_DIMSHARED)||new_error){ +if(qbevent){evnt(21059);if(r)goto S_24872;} +do{ +*(int16*)(((char*)__UDT_ID)+(2645))=*__INTEGER_DIMSHARED; +if(!qbevent)break;evnt(21060);}while(r); +}else{ +S_24875:; +if ((*__LONG_DIMSTATIC)||new_error){ +if(qbevent){evnt(21062);if(r)goto S_24875;} +do{ +*(int16*)(((char*)__UDT_ID)+(2853))= 1 ; +if(!qbevent)break;evnt(21062);}while(r); +} +} +do{ +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 0),(((char*)__UDT_ID)+(0)+ 0), 256); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 256),(((char*)__UDT_ID)+(0)+ 256), 256); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 512),(((char*)__UDT_ID)+(0)+ 512), 4); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 516),(((char*)__UDT_ID)+(0)+ 516), 2); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 518),(((char*)__UDT_ID)+(0)+ 518), 2); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 520),(((char*)__UDT_ID)+(0)+ 520), 8); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 528),(((char*)__UDT_ID)+(0)+ 528), 8); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 536),(((char*)__UDT_ID)+(0)+ 536), 4); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 540),(((char*)__UDT_ID)+(0)+ 540), 4); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 544),(((char*)__UDT_ID)+(0)+ 544), 2); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 546),(((char*)__UDT_ID)+(0)+ 546), 2); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 548),(((char*)__UDT_ID)+(0)+ 548), 2); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 550),(((char*)__UDT_ID)+(0)+ 550), 256); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 806),(((char*)__UDT_ID)+(0)+ 806), 2); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 808),(((char*)__UDT_ID)+(0)+ 808), 1); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 809),(((char*)__UDT_ID)+(0)+ 809), 2); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 811),(((char*)__UDT_ID)+(0)+ 811), 2); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 813),(((char*)__UDT_ID)+(0)+ 813), 400); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 1213),(((char*)__UDT_ID)+(0)+ 1213), 400); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 1613),(((char*)__UDT_ID)+(0)+ 1613), 256); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 1869),(((char*)__UDT_ID)+(0)+ 1869), 256); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2125),(((char*)__UDT_ID)+(0)+ 2125), 256); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2381),(((char*)__UDT_ID)+(0)+ 2381), 4); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2385),(((char*)__UDT_ID)+(0)+ 2385), 256); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2641),(((char*)__UDT_ID)+(0)+ 2641), 4); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2645),(((char*)__UDT_ID)+(0)+ 2645), 2); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2647),(((char*)__UDT_ID)+(0)+ 2647), 100); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2747),(((char*)__UDT_ID)+(0)+ 2747), 100); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2847),(((char*)__UDT_ID)+(0)+ 2847), 4); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2851),(((char*)__UDT_ID)+(0)+ 2851), 2); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2853),(((char*)__UDT_ID)+(0)+ 2853), 2); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2855),(((char*)__UDT_ID)+(0)+ 2855), 4); +memcpy((((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2859),(((char*)__UDT_ID)+(0)+ 2859), 2); +qbs_set(*(qbs**)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_IDN)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)+ 2861), *(qbs**)(((char*)__UDT_ID)+(0)+ 2861)); +if(!qbevent)break;evnt(21065);}while(r); +do{ +*__LONG_CURRENTID=*__LONG_IDN; +if(!qbevent)break;evnt(21067);}while(r); +do{ +*_SUB_REGID_LONG_HASHFLAGS= 1 ; +if(!qbevent)break;evnt(21070);}while(r); +S_24882:; +if ((*(int16*)(((char*)__UDT_ID)+(544)))||new_error){ +if(qbevent){evnt(21074);if(r)goto S_24882;} +do{ +*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_CURRENTID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+548))=*__LONG_REGINTERNALSUBFUNC; +if(!qbevent)break;evnt(21075);}while(r); +S_24884:; +if ((-(*(int16*)(((char*)__UDT_ID)+(544))== 1 ))||new_error){ +if(qbevent){evnt(21076);if(r)goto S_24884;} +do{ +*_SUB_REGID_LONG_HASHFLAGS=*_SUB_REGID_LONG_HASHFLAGS+ 128 ; +if(!qbevent)break;evnt(21076);}while(r); +}else{ +do{ +*_SUB_REGID_LONG_HASHFLAGS=*_SUB_REGID_LONG_HASHFLAGS+ 64 ; +if(!qbevent)break;evnt(21076);}while(r); +} +S_24889:; +if ((-(*__LONG_REGINTERNALSUBFUNC== 0 ))||new_error){ +if(qbevent){evnt(21077);if(r)goto S_24889;} +do{ +*_SUB_REGID_LONG_HASHCHKFLAGS= 8 + 1024 ; +if(!qbevent)break;evnt(21078);}while(r); +S_24891:; +if ((-(*(int16*)(((char*)__UDT_ID)+(544))== 1 ))||new_error){ +if(qbevent){evnt(21079);if(r)goto S_24891;} +do{ +*_SUB_REGID_LONG_HASHCHKFLAGS=*_SUB_REGID_LONG_HASHCHKFLAGS+ 128 ; +if(!qbevent)break;evnt(21079);}while(r); +}else{ +do{ +*_SUB_REGID_LONG_HASHCHKFLAGS=*_SUB_REGID_LONG_HASHCHKFLAGS+ 64 ; +if(!qbevent)break;evnt(21079);}while(r); +} +do{ +*_SUB_REGID_LONG_HASHRES=FUNC_HASHFIND(_SUB_REGID_STRING_N,_SUB_REGID_LONG_HASHCHKFLAGS,_SUB_REGID_LONG_HASHRESFLAGS,_SUB_REGID_LONG_HASHRESREF); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21080);}while(r); +S_24897:; +while((*_SUB_REGID_LONG_HASHRES)||new_error){ +if(qbevent){evnt(21081);if(r)goto S_24897;} +S_24898:; +if ((*_SUB_REGID_LONG_HASHRES)||new_error){ +if(qbevent){evnt(21082);if(r)goto S_24898;} +do{ +*_SUB_REGID_LONG_ALLOW= 0 ; +if(!qbevent)break;evnt(21086);}while(r); +S_24900:; +if ((*_SUB_REGID_LONG_HASHRESFLAGS&( 128 + 64 ))||new_error){ +if(qbevent){evnt(21087);if(r)goto S_24900;} +S_24901:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+528)),8,1)),qbs_new_txt_len("$",1))))||new_error){ +if(qbevent){evnt(21088);if(r)goto S_24901;} +S_24902:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*__LONG_CURRENTID)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+520)),8,1),qbs_new_txt_len("$",1),0)== 0 )))||new_error){ +if(qbevent){evnt(21089);if(r)goto S_24902;} +do{ +*_SUB_REGID_LONG_ALLOW= 1 ; +if(!qbevent)break;evnt(21089);}while(r); +} +} +} +S_24907:; +if ((-(*_SUB_REGID_LONG_ALLOW== 0 ))||new_error){ +if(qbevent){evnt(21092);if(r)goto S_24907;} +do{ +SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),_SUB_REGID_STRING_N),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21092);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21092);}while(r); +} +} +S_24912:; +if ((-(*_SUB_REGID_LONG_HASHRES!= 1 ))||new_error){ +if(qbevent){evnt(21094);if(r)goto S_24912;} +do{ +*_SUB_REGID_LONG_HASHRES=FUNC_HASHFINDCONT(_SUB_REGID_LONG_HASHRESFLAGS,_SUB_REGID_LONG_HASHRESREF); +if(!qbevent)break;evnt(21094);}while(r); +}else{ +do{ +*_SUB_REGID_LONG_HASHRES= 0 ; +if(!qbevent)break;evnt(21094);}while(r); +} +dl_continue_3030:; +} +dl_exit_3030:; +S_24918:; +if ((*__LONG_IDEMODE)||new_error){ +if(qbevent){evnt(21096);if(r)goto S_24918;} +S_24919:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,__STRING_LISTOFCUSTOMKEYWORDS,qbs_add(qbs_add(qbs_new_txt_len("@",1),qbs_ucase(_SUB_REGID_STRING_N)),qbs_new_txt_len("@",1)),0)== 0 )))||new_error){ +if(qbevent){evnt(21097);if(r)goto S_24919;} +do{ +qbs_set(__STRING_LISTOFCUSTOMKEYWORDS,qbs_add(qbs_add(qbs_add(__STRING_LISTOFCUSTOMKEYWORDS,qbs_new_txt_len("@",1)),qbs_ucase(_SUB_REGID_STRING_N)),qbs_new_txt_len("@",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21098);}while(r); +} +} +} +} +S_24925:; +if ((*(int32*)(((char*)__UDT_ID)+(536)))||new_error){ +if(qbevent){evnt(21105);if(r)goto S_24925;} +do{ +*_SUB_REGID_LONG_HASHFLAGS=*_SUB_REGID_LONG_HASHFLAGS+ 2048 ; +if(!qbevent)break;evnt(21106);}while(r); +S_24927:; +if ((-(*__LONG_REGINTERNALVARIABLE== 0 ))||new_error){ +if(qbevent){evnt(21107);if(r)goto S_24927;} +do{ +*_SUB_REGID_LONG_ALLOW= 0 ; +if(!qbevent)break;evnt(21108);}while(r); +LABEL_VAR_RECHECK:; +if(qbevent){evnt(21109);r=0;} +S_24929:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1))== 32 )))||new_error){ +if(qbevent){evnt(21110);if(r)goto S_24929;} +do{ +*_SUB_REGID_LONG_ASTYPE2= 1 ; +if(!qbevent)break;evnt(21110);}while(r); +} +do{ +*_SUB_REGID_LONG_SCOPE2=*__LONG_SUBFUNCN; +if(!qbevent)break;evnt(21111);}while(r); +do{ +*_SUB_REGID_LONG_HASHCHKFLAGS= 8 + 64 + 128 + 1024 + 2048 ; +if(!qbevent)break;evnt(21112);}while(r); +do{ +*_SUB_REGID_LONG_HASHRES=FUNC_HASHFIND(_SUB_REGID_STRING_N,_SUB_REGID_LONG_HASHCHKFLAGS,_SUB_REGID_LONG_HASHRESFLAGS,_SUB_REGID_LONG_HASHRESREF); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21113);}while(r); +S_24935:; +while((*_SUB_REGID_LONG_HASHRES)||new_error){ +if(qbevent){evnt(21114);if(r)goto S_24935;} +S_24936:; +if ((*_SUB_REGID_LONG_HASHRESFLAGS& 8 )||new_error){ +if(qbevent){evnt(21117);if(r)goto S_24936;} +do{ +qbs_set(_SUB_REGID_STRING_MUSTHAVE,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21118);}while(r); +S_24938:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_REGID_STRING_MUSTHAVE,qbs_new_txt_len("$",1),0)))||new_error){ +if(qbevent){evnt(21119);if(r)goto S_24938;} +}else{ +do{ +SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),_SUB_REGID_STRING_N),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21123);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21123);}while(r); +} +} +S_24944:; +if ((*_SUB_REGID_LONG_HASHRESFLAGS&( 128 + 64 ))||new_error){ +if(qbevent){evnt(21128);if(r)goto S_24944;} +S_24945:; +if ((-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+548))== 0 ))||new_error){ +if(qbevent){evnt(21129);if(r)goto S_24945;} +do{ +SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),_SUB_REGID_STRING_N),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21129);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21129);}while(r); +} +S_24949:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1)),qbs_new_txt_len("WIDTH",5)))&(-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+544))== 2 ))))||new_error){ +if(qbevent){evnt(21130);if(r)goto S_24949;} +do{ +goto LABEL_VARNAME_EXCEPTION; +if(!qbevent)break;evnt(21130);}while(r); +} +do{ +qbs_set(_SUB_REGID_STRING_MUSTHAVE,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21131);}while(r); +S_24953:; +if ((qbs_cleanup(qbs_tmp_base,-(_SUB_REGID_STRING_MUSTHAVE->len== 0 )))||new_error){ +if(qbevent){evnt(21132);if(r)goto S_24953;} +S_24954:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+528)),8,1)),qbs_new_txt_len("$",1))))||new_error){ +if(qbevent){evnt(21133);if(r)goto S_24954;} +S_24955:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,qbs_new_fixed((((uint8*)__UDT_ID)+(520)),8,1),qbs_new_txt_len("$",1),0)))||new_error){ +if(qbevent){evnt(21135);if(r)goto S_24955;} +do{ +SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),_SUB_REGID_STRING_N),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21135);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21135);}while(r); +} +}else{ +do{ +SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),_SUB_REGID_STRING_N),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21137);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21137);}while(r); +} +} +S_24964:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_REGID_STRING_MUSTHAVE,qbs_new_txt_len("$",1),0)))||new_error){ +if(qbevent){evnt(21140);if(r)goto S_24964;} +S_24965:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+528)),8,1)),qbs_new_txt_len("$",1))))||new_error){ +if(qbevent){evnt(21141);if(r)goto S_24965;} +do{ +SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),_SUB_REGID_STRING_N),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21141);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21141);}while(r); +} +}else{ +S_24970:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+528)),8,1)),qbs_new_txt_len("$",1))))||new_error){ +if(qbevent){evnt(21144);if(r)goto S_24970;} +do{ +SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),_SUB_REGID_STRING_N),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21144);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21144);}while(r); +} +} +} +S_24976:; +if ((*_SUB_REGID_LONG_HASHRESFLAGS& 1024 )||new_error){ +if(qbevent){evnt(21149);if(r)goto S_24976;} +do{ +*_SUB_REGID_LONG_SCOPE1=((int32*)(__ARRAY_LONG_CONSTSUBFUNC[0]))[array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_LONG_CONSTSUBFUNC[4],__ARRAY_LONG_CONSTSUBFUNC[5])]; +if(!qbevent)break;evnt(21150);}while(r); +S_24978:; +if (((((-(*_SUB_REGID_LONG_SCOPE1== 0 ))&(-(*__LONG_ALLOWLOCALNAME== 0 ))))|(-(*_SUB_REGID_LONG_SCOPE1==*_SUB_REGID_LONG_SCOPE2)))||new_error){ +if(qbevent){evnt(21151);if(r)goto S_24978;} +do{ +SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),_SUB_REGID_STRING_N),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21151);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21151);}while(r); +} +} +S_24983:; +if ((*_SUB_REGID_LONG_HASHRESFLAGS& 2048 )||new_error){ +if(qbevent){evnt(21155);if(r)goto S_24983;} +do{ +*_SUB_REGID_LONG_ASTYPE1= 0 ; +if(!qbevent)break;evnt(21156);}while(r); +S_24985:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+528)),8,1))== 32 )))||new_error){ +if(qbevent){evnt(21156);if(r)goto S_24985;} +do{ +*_SUB_REGID_LONG_ASTYPE1= 1 ; +if(!qbevent)break;evnt(21156);}while(r); +} +do{ +*_SUB_REGID_LONG_SCOPE1=*(int32*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+2641)); +if(!qbevent)break;evnt(21157);}while(r); +S_24989:; +if (((-(*_SUB_REGID_LONG_ASTYPE1== 1 ))&(-(*_SUB_REGID_LONG_ASTYPE2== 1 )))||new_error){ +if(qbevent){evnt(21158);if(r)goto S_24989;} +S_24990:; +if ((-(*_SUB_REGID_LONG_SCOPE1==*_SUB_REGID_LONG_SCOPE2))||new_error){ +if(qbevent){evnt(21159);if(r)goto S_24990;} +do{ +SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),_SUB_REGID_STRING_N),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21159);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21159);}while(r); +} +} +S_24995:; +if ((-(*(int32*)(((char*)__UDT_ID)+(536))==*(int32*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+536))))||new_error){ +if(qbevent){evnt(21162);if(r)goto S_24995;} +S_24996:; +if ((-(*(int32*)(((char*)__UDT_ID)+(540))==*(int32*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+540))))||new_error){ +if(qbevent){evnt(21163);if(r)goto S_24996;} +S_24997:; +if ((-(*_SUB_REGID_LONG_SCOPE1==*_SUB_REGID_LONG_SCOPE2))||new_error){ +if(qbevent){evnt(21164);if(r)goto S_24997;} +do{ +SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),_SUB_REGID_STRING_N),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21164);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21164);}while(r); +} +} +} +S_25003:; +if ((*(int32*)(((char*)__UDT_ID)+(536))&*__LONG_ISFIXEDLENGTH)||new_error){ +if(qbevent){evnt(21168);if(r)goto S_25003;} +S_25004:; +if ((-(*_SUB_REGID_LONG_ASTYPE2== 1 ))||new_error){ +if(qbevent){evnt(21169);if(r)goto S_25004;} +S_25005:; +if ((*(int32*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+536))&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(21170);if(r)goto S_25005;} +S_25006:; +if ((-((*(int32*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+536))&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ +if(qbevent){evnt(21171);if(r)goto S_25006;} +S_25007:; +if ((-(*_SUB_REGID_LONG_SCOPE1==*_SUB_REGID_LONG_SCOPE2))||new_error){ +if(qbevent){evnt(21172);if(r)goto S_25007;} +do{ +SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),_SUB_REGID_STRING_N),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21172);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21172);}while(r); +} +} +} +} +} +} +LABEL_VARNAME_EXCEPTION:; +if(qbevent){evnt(21179);r=0;} +S_25016:; +if ((-(*_SUB_REGID_LONG_HASHRES!= 1 ))||new_error){ +if(qbevent){evnt(21180);if(r)goto S_25016;} +do{ +*_SUB_REGID_LONG_HASHRES=FUNC_HASHFINDCONT(_SUB_REGID_LONG_HASHRESFLAGS,_SUB_REGID_LONG_HASHRESREF); +if(!qbevent)break;evnt(21180);}while(r); +}else{ +do{ +*_SUB_REGID_LONG_HASHRES= 0 ; +if(!qbevent)break;evnt(21180);}while(r); +} +dl_continue_3031:; +} +dl_exit_3031:; +} +} +S_25024:; +if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ +if(qbevent){evnt(21186);if(r)goto S_25024;} +do{ +*_SUB_REGID_LONG_HASHFLAGS=*_SUB_REGID_LONG_HASHFLAGS+ 4096 ; +if(!qbevent)break;evnt(21187);}while(r); +do{ +*_SUB_REGID_LONG_ALLOW= 0 ; +if(!qbevent)break;evnt(21188);}while(r); +LABEL_ARY_RECHECK:; +if(qbevent){evnt(21189);r=0;} +do{ +*_SUB_REGID_LONG_SCOPE2=*__LONG_SUBFUNCN; +if(!qbevent)break;evnt(21190);}while(r); +S_25028:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1))== 32 )))||new_error){ +if(qbevent){evnt(21191);if(r)goto S_25028;} +do{ +*_SUB_REGID_LONG_ASTYPE2= 1 ; +if(!qbevent)break;evnt(21191);}while(r); +} +do{ +*_SUB_REGID_LONG_HASHCHKFLAGS= 8 + 64 + 128 + 4096 ; +if(!qbevent)break;evnt(21192);}while(r); +do{ +*_SUB_REGID_LONG_HASHRES=FUNC_HASHFIND(_SUB_REGID_STRING_N,_SUB_REGID_LONG_HASHCHKFLAGS,_SUB_REGID_LONG_HASHRESFLAGS,_SUB_REGID_LONG_HASHRESREF); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21193);}while(r); +S_25033:; +while((*_SUB_REGID_LONG_HASHRES)||new_error){ +if(qbevent){evnt(21194);if(r)goto S_25033;} +S_25034:; +if ((*_SUB_REGID_LONG_HASHRESFLAGS& 8 )||new_error){ +if(qbevent){evnt(21197);if(r)goto S_25034;} +do{ +qbs_set(_SUB_REGID_STRING_MUSTHAVE,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21198);}while(r); +S_25036:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_REGID_STRING_MUSTHAVE,qbs_new_txt_len("$",1),0)))||new_error){ +if(qbevent){evnt(21199);if(r)goto S_25036;} +}else{ +do{ +SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),_SUB_REGID_STRING_N),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21203);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21203);}while(r); +} +} +S_25042:; +if ((*_SUB_REGID_LONG_HASHRESFLAGS&( 128 + 64 ))||new_error){ +if(qbevent){evnt(21208);if(r)goto S_25042;} +S_25043:; +if ((-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+548))== 0 ))||new_error){ +if(qbevent){evnt(21209);if(r)goto S_25043;} +do{ +SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),_SUB_REGID_STRING_N),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21209);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21209);}while(r); +} +S_25047:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1)),qbs_new_txt_len("WIDTH",5)))&(-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+544))== 2 ))))||new_error){ +if(qbevent){evnt(21210);if(r)goto S_25047;} +do{ +goto LABEL_ARRAYNAME_EXCEPTION; +if(!qbevent)break;evnt(21210);}while(r); +} +do{ +qbs_set(_SUB_REGID_STRING_MUSTHAVE,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21211);}while(r); +S_25051:; +if ((qbs_cleanup(qbs_tmp_base,-(_SUB_REGID_STRING_MUSTHAVE->len== 0 )))||new_error){ +if(qbevent){evnt(21213);if(r)goto S_25051;} +S_25052:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+528)),8,1)),qbs_new_txt_len("$",1))))||new_error){ +if(qbevent){evnt(21214);if(r)goto S_25052;} +S_25053:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,qbs_new_fixed((((uint8*)__UDT_ID)+(520)),8,1),qbs_new_txt_len("$",1),0)))||new_error){ +if(qbevent){evnt(21216);if(r)goto S_25053;} +do{ +SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),_SUB_REGID_STRING_N),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21216);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21216);}while(r); +} +}else{ +do{ +SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),_SUB_REGID_STRING_N),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21218);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21218);}while(r); +} +} +S_25062:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_REGID_STRING_MUSTHAVE,qbs_new_txt_len("$",1),0)))||new_error){ +if(qbevent){evnt(21221);if(r)goto S_25062;} +S_25063:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+528)),8,1)),qbs_new_txt_len("$",1))))||new_error){ +if(qbevent){evnt(21222);if(r)goto S_25063;} +do{ +SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),_SUB_REGID_STRING_N),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21222);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21222);}while(r); +} +}else{ +S_25068:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+528)),8,1)),qbs_new_txt_len("$",1))))||new_error){ +if(qbevent){evnt(21225);if(r)goto S_25068;} +do{ +SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),_SUB_REGID_STRING_N),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21225);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21225);}while(r); +} +} +} +S_25074:; +if ((*_SUB_REGID_LONG_HASHRESFLAGS& 4096 )||new_error){ +if(qbevent){evnt(21230);if(r)goto S_25074;} +do{ +*_SUB_REGID_LONG_ASTYPE1= 0 ; +if(!qbevent)break;evnt(21231);}while(r); +S_25076:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+528)),8,1))== 32 )))||new_error){ +if(qbevent){evnt(21231);if(r)goto S_25076;} +do{ +*_SUB_REGID_LONG_ASTYPE1= 1 ; +if(!qbevent)break;evnt(21231);}while(r); +} +do{ +*_SUB_REGID_LONG_SCOPE1=*(int32*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+2641)); +if(!qbevent)break;evnt(21232);}while(r); +S_25080:; +if (((-(*_SUB_REGID_LONG_ASTYPE1== 1 ))&(-(*_SUB_REGID_LONG_ASTYPE2== 1 )))||new_error){ +if(qbevent){evnt(21233);if(r)goto S_25080;} +S_25081:; +if ((-(*_SUB_REGID_LONG_SCOPE1==*_SUB_REGID_LONG_SCOPE2))||new_error){ +if(qbevent){evnt(21234);if(r)goto S_25081;} +do{ +SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),_SUB_REGID_STRING_N),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21234);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21234);}while(r); +} +} +S_25086:; +if ((-(*(int32*)(((char*)__UDT_ID)+(512))==*(int32*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+512))))||new_error){ +if(qbevent){evnt(21237);if(r)goto S_25086;} +S_25087:; +if ((-(*(int32*)(((char*)__UDT_ID)+(540))==*(int32*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+540))))||new_error){ +if(qbevent){evnt(21238);if(r)goto S_25087;} +S_25088:; +if ((-(*_SUB_REGID_LONG_SCOPE1==*_SUB_REGID_LONG_SCOPE2))||new_error){ +if(qbevent){evnt(21239);if(r)goto S_25088;} +do{ +SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),_SUB_REGID_STRING_N),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21239);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21239);}while(r); +} +} +} +S_25094:; +if ((*(int32*)(((char*)__UDT_ID)+(512))&*__LONG_ISFIXEDLENGTH)||new_error){ +if(qbevent){evnt(21243);if(r)goto S_25094;} +S_25095:; +if ((-(*_SUB_REGID_LONG_ASTYPE2== 1 ))||new_error){ +if(qbevent){evnt(21244);if(r)goto S_25095;} +S_25096:; +if ((*(int32*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+512))&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(21245);if(r)goto S_25096;} +S_25097:; +if ((-((*(int32*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_REGID_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+512))&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ +if(qbevent){evnt(21246);if(r)goto S_25097;} +S_25098:; +if ((-(*_SUB_REGID_LONG_SCOPE1==*_SUB_REGID_LONG_SCOPE2))||new_error){ +if(qbevent){evnt(21247);if(r)goto S_25098;} +do{ +SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Name already in use (",21),_SUB_REGID_STRING_N),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21247);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21247);}while(r); +} +} +} +} +} +} +LABEL_ARRAYNAME_EXCEPTION:; +if(qbevent){evnt(21254);r=0;} +S_25107:; +if ((-(*_SUB_REGID_LONG_HASHRES!= 1 ))||new_error){ +if(qbevent){evnt(21255);if(r)goto S_25107;} +do{ +*_SUB_REGID_LONG_HASHRES=FUNC_HASHFINDCONT(_SUB_REGID_LONG_HASHRESFLAGS,_SUB_REGID_LONG_HASHRESREF); +if(!qbevent)break;evnt(21255);}while(r); +}else{ +do{ +*_SUB_REGID_LONG_HASHRES= 0 ; +if(!qbevent)break;evnt(21255);}while(r); +} +dl_continue_3033:; +} +dl_exit_3033:; +} +do{ +SUB_HASHADD(_SUB_REGID_STRING_N,_SUB_REGID_LONG_HASHFLAGS,__LONG_CURRENTID); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21260);}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free34.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +void SUB_REGINTERNAL(){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data35.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +*__LONG_REGINTERNALSUBFUNC= 1 ; +if(!qbevent)break;evnt(21265);}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,28,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Asc",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,29,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,29,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,29,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,29,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,30,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Asc",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,31,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,31,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,31,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,31,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,32,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("End",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,33,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,33,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,33,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,33,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,34,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("LSet",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,35,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,35,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,35,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,35,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,36,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("RSet",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,37,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,37,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,37,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,37,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,38,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Mid",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,39,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,39,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,39,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,39,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,39,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,40,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Print",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,41,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,41,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,41,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,41,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,42,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Option",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,43,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,43,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,43,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,43,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,44,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Swap",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,45,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,45,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,45,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,45,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,46,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("System",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,47,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,47,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,47,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,47,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,48,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Write",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,49,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,49,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,49,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,49,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,50,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Read",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,51,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,51,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,51,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,51,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,52,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Close",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,53,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,53,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,53,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,53,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,54,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Reset",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,55,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,55,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,55,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,55,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,56,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Input",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,57,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,57,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,57,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,57,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,59,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("TrOn",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,60,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,60,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,60,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,60,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,61,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("TrOff",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,62,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,62,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,62,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,62,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,63,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("List",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,64,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,64,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,64,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,64,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,65,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Def",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,66,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,66,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,66,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(2125)),256,1),qbs_new_txt_len("SEG",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,66,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,66,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,67,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("IoCtl",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,68,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,68,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,68,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,68,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,69,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("IoCtl",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,70,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,70,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_stub",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,70,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,70,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,70,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,70,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,70,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,70,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,71,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Fre",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,72,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,72,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_stub",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,72,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,72,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,72,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,72,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,72,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,73,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("SetMem",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,74,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,74,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_stub",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,74,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,74,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,74,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,74,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,74,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,75,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("FileAttr",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,76,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,76,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_stub",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,76,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21266,76,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,76,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,76,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,76,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,77,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MemGet",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,78,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,78,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,78,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,78,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,79,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MemPut",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,80,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,80,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,80,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,80,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,81,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MemFill",7))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,82,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,82,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,82,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,82,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,83,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Continue",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,84,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,84,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_stub",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,84,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,84,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,87,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Resize",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,88,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,89,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__resize",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,90,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21266,91,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,92,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[{On|Off}][,{_Stretch|_Smooth}]",31)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,93,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_RESIZE [{ON|OFF}][, {_STRETCH|_SMOOTH}]",40)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,94,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,95,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,97,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Resize",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,98,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,99,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__resize",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,100,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,101,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_RESIZE",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,102,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,103,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,105,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ResizeWidth",11))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,106,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,107,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__resizewidth",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,108,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,109,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_RESIZEWIDTH",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,110,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,111,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,113,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ResizeHeight",12))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,114,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,115,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__resizeheight",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,116,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,117,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_RESIZEHEIGHT",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,118,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,119,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,121,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ScaledWidth",11))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,122,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,123,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__scaledwidth",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,124,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,125,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SCALEDWIDTH",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,126,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,127,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,129,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ScaledHeight",12))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,130,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,131,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__scaledheight",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,132,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,133,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SCALEDHEIGHT",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,134,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,135,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,138,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("GLRender",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,139,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,140,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__glrender",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,141,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,142,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,143,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("{_Behind|_OnTop|_Only}",22)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,144,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_GLRENDER {_Behind|_OnTop|_Only}",32)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,145,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,146,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,148,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("DisplayOrder",12))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,149,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,150,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__displayorder",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,151,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 4 ; +if(!qbevent)break;evnt(21266,152,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,153,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[{_Software|_Hardware|_Hardware1|_GLRender}[,{_Software|_Hardware|_Hardware1|_GLRender}[,{_Software|_Hardware|_Hardware1|_GLRender}[,{_Software|_Hardware|_Hardware1|_GLRender}]]]]",179)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,154,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_DISPLAYORDER {_Software|_Hardware|_Hardware1|_GLRender} (any combination/order)",80)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,155,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,156,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,158,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MemGet",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,159,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,160,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__memget",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,161,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 3 ; +if(!qbevent)break;evnt(21266,162,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_UDTTYPE+( 1 )),l2string(*__LONG_OFFSETTYPE-*__LONG_ISPOINTER)),l2string( -1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,163,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))= -1 ; +if(!qbevent)break;evnt(21266,164,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_MEMGET(block, offset, type)",28)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,165,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,166,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,168,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Mem",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,169,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,170,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__mem",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,171,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21266,174,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_OFFSETTYPE-*__LONG_ISPOINTER),l2string(*__LONG_OFFSETTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,175,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,?]",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,176,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_ISUDT+( 1 ); +if(!qbevent)break;evnt(21266,177,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_MEM(referenceVariable) or _MEM(offset, byteSize)",49)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,178,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,179,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,182,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MemElement",10))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,183,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,184,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__mem",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,185,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,186,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string( -8 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,187,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_ISUDT+( 1 ); +if(!qbevent)break;evnt(21266,188,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_MEMELEMENT(referenceVariable)",30)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,189,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,190,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,195,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MemFree",7))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,196,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,197,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__memfree",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,198,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,199,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_UDTTYPE+( 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,200,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_MEMFREE memoryVariable",23)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,201,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,202,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,204,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MemExists",9))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,205,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,206,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__memexists",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,207,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,208,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_UDTTYPE+( 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,209,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,210,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_MEMEXISTS(memBlock)",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,211,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,212,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,214,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MemNew",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,215,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,216,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__memnew",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,217,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,218,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_OFFSETTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,219,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_ISUDT+( 1 ); +if(!qbevent)break;evnt(21266,220,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_MEMNEW(byteSize)",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,221,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,222,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,224,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MemImage",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,225,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,226,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__memimage",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,227,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,228,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,229,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,230,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_ISUDT+( 1 ); +if(!qbevent)break;evnt(21266,231,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_MEMIMAGE or _MEMIMAGE(imageHandle)",35)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,232,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,233,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,235,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MemSound",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,236,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 3 ; +if(!qbevent)break;evnt(21266,236,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,237,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__memsound",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,238,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21266,239,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,240,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_ISUDT+( 1 ); +if(!qbevent)break;evnt(21266,241,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_MEMSOUND(soundHandle)",22)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,242,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,243,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,245,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MemCopy",7))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,246,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,247,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__memcopy",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,248,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 5 ; +if(!qbevent)break;evnt(21266,249,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(qbs_add(l2string(*__LONG_UDTTYPE+( 1 )),l2string(*__LONG_OFFSETTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_OFFSETTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_UDTTYPE+( 1 ))),l2string(*__LONG_OFFSETTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,250,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?,?,?{To}?,?",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,251,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_MEMCOPY sourceBlock, sourceBlock.OFFSET, sourceBlock.SIZE TO destBlock, destBlock.OFFSET",89)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,252,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,253,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,255,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ConsoleTitle",12))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,256,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,257,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__consoletitle",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,258,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,259,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,260,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_CONSOLETITLE title$",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,261,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,262,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,264,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ScreenShow",10))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,265,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,266,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__screenshow",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,267,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SCREENSHOW",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,268,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,269,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,271,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ScreenHide",10))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,272,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,273,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__screenhide",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,274,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SCREENHIDE",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,275,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,276,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,278,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ScreenHide",10))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,279,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,280,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__screenhide",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,281,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,282,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SCREENHIDE",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,283,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,284,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,287,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Console",7))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,288,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,289,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__console",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,290,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,291,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_CONSOLE",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,292,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,293,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,295,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Console",7))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,296,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,297,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__console",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,298,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,299,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,300,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("{On|Off}",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,301,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_CONSOLE {On|Off}",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,302,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,303,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,305,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ControlChr",10))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,306,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,307,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__controlchr",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,308,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,309,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,310,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("{On|Off}",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,311,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_CONTROLCHR {On|Off}",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,312,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,313,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,315,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Blink",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,316,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,317,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__blink",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,318,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,319,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,320,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("{On|Off}",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,321,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_BLINK {On|Off}",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,322,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,323,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,325,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Blink",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,326,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,327,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__blink",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,328,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,329,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_BLINK",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,330,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,331,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,333,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("FileExists",10))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,334,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,335,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__fileexists",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,336,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,337,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,338,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,339,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_FILEEXISTS(fileName$)",22)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,340,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,341,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,343,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("DirExists",9))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,344,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,345,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__direxists",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,346,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,347,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,348,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,349,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_DIREXISTS(path$)",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,350,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,351,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,355,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Stick",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,356,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 12 ; +if(!qbevent)break;evnt(21266,356,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,357,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_stick",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,358,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21266,359,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,360,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,361,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,?]",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,362,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("STICK(direction%) or STICK(direction%, axis_number%)",52)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,363,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,364,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,366,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Strig",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,367,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 12 ; +if(!qbevent)break;evnt(21266,367,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,368,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_strig",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,369,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21266,370,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,371,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,372,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,?]",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,373,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("STRIG(button_function%) or STRIG(button_function%, device_number%)",66)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,374,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,375,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,377,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Strig",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,378,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 12 ; +if(!qbevent)break;evnt(21266,378,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,379,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_strig",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,380,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 3 ; +if(!qbevent)break;evnt(21266,381,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,382,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[(?[,?])]{On|Off|Stop}",22)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,383,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("STRIG(button%) {On|Off|Stop}",28)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,385,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,386,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,390,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Devices",7))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,391,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 12 ; +if(!qbevent)break;evnt(21266,391,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,392,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__devices",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,393,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,394,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_DEVICES",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,395,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,396,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,398,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Device",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,399,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 12 ; +if(!qbevent)break;evnt(21266,399,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,400,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,401,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__device",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,402,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,403,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,404,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,405,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,406,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_DEVICE$(device_number)",23)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,407,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,408,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,410,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("DeviceInput",11))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,411,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 12 ; +if(!qbevent)break;evnt(21266,411,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,412,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__deviceinput",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,413,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,414,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,415,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,416,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,417,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_DEVICEINPUT or _DEVICEINPUT(device_number%)",44)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,418,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,419,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,421,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("LastButton",10))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,422,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 12 ; +if(!qbevent)break;evnt(21266,422,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,423,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__lastbutton",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,424,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,425,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,426,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,427,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,428,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_LASTBUTTON(deviceNumber)",25)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,429,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,430,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,432,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("LastAxis",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,433,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 12 ; +if(!qbevent)break;evnt(21266,433,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,434,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__lastaxis",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,435,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,436,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,437,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,438,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,439,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_LASTAXIS(deviceNumber)",23)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,440,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,441,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,443,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("LastWheel",9))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,444,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 12 ; +if(!qbevent)break;evnt(21266,444,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,445,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__lastwheel",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,446,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,447,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,448,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,449,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,450,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_LASTWHEEL(deviceNumber)",24)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,451,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,452,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,454,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Button",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,455,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 12 ; +if(!qbevent)break;evnt(21266,455,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,456,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__button",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,457,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,458,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,459,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,460,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,461,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_BUTTON(button_number%)",23)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,462,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,463,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,465,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ButtonChange",12))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,466,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 12 ; +if(!qbevent)break;evnt(21266,466,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,467,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__buttonchange",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,468,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,469,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,470,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,471,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,472,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_BUTTONCHANGE(button_number%)",29)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,473,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,474,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,476,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Axis",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,477,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 12 ; +if(!qbevent)break;evnt(21266,477,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,478,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__axis",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,479,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,480,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,481,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,482,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,483,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_AXIS(axis_number%)",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,484,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,485,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,488,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Wheel",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,489,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 12 ; +if(!qbevent)break;evnt(21266,489,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,490,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__wheel",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,491,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,492,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,493,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,494,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,495,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_WHEEL(wheelNumber%)",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,496,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,497,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,508,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Key",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,509,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,510,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_key",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,511,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21266,512,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,513,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("(?){On|Off|Stop}",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,514,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("KEY(number) {On|Off|Stop}",25)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,515,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,516,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,518,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ScreenX",7))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,519,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,520,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__screenx",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,521,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,522,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SCREENX",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,523,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,524,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,526,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ScreenY",7))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,527,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,528,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__screeny",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,529,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,530,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SCREENY",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,531,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,532,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,534,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ScreenMove",10))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,535,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,536,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__screenmove",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,537,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21266,538,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,539,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[{_Middle}][?,?]",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,540,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SCREENMOVE x, y or _SCREENMOVE _Middle",39)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,541,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,542,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,544,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MouseMove",9))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,545,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,546,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__mousemove",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,547,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21266,548,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER),l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,549,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_MOUSEMOVE x, y",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,550,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,551,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,553,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("OS",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,554,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,555,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,556,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__os",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,557,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,558,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_OS$",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,559,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,560,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,562,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Title",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,563,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,564,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,565,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__title",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,566,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,567,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_TITLE$",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,568,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,569,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,571,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MapUnicode",10))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,572,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,573,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__mapunicode",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,574,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21266,575,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,576,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?{To}?",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,577,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_MAPUNICODE unicode& TO asciiCode%",34)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,578,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,579,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,581,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MapUnicode",10))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,582,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,583,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__mapunicode",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,584,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,585,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,586,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,587,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_MAPUNICODE(asciiCode%)",23)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,588,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,589,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,591,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("KeyDown",7))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,592,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,593,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__keydown",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,594,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,595,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,596,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,597,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_KEYDOWN(code&)",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,598,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,599,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,601,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("KeyHit",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,602,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,603,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__keyhit",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,604,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,605,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_KEYHIT",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,606,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,607,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,609,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("WindowHandle",12))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,610,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,611,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__handle",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,612,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,613,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_WINDOWHANDLE",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,614,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,615,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,617,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Files",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,618,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,619,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_files",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,620,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,621,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,622,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,623,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("FILES fileSpec$",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,624,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,625,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,627,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("PrintImage",10))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,628,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 9 ; +if(!qbevent)break;evnt(21266,628,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,629,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__printimage",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,630,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,631,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,632,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_PRINTIMAGE imageHandle&",24)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,635,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,636,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,640,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ScreenClick",11))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,641,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,642,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__screenclick",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,643,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 3 ; +if(!qbevent)break;evnt(21266,644,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,645,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?,?[,?]",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,646,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SCREENCLICK x, y[, button%]",28)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,647,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,648,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,650,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ScreenPrint",11))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,651,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,652,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__screenprint",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,653,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,654,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,655,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SCREENPRINT text$",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,656,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,657,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,659,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ScreenImage",11))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,660,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 11 ; +if(!qbevent)break;evnt(21266,660,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,661,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__screenimage",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,662,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 4 ; +if(!qbevent)break;evnt(21266,663,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,664,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?,?,?,?]",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,665,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,666,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SCREENIMAGE(column1, row1, column2, row2)",42)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,667,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,668,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,674,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Lock",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,675,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,676,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_lock",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,677,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 3 ; +if(!qbevent)break;evnt(21266,678,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER)),l2string(*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,679,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[#]?[,[?][{To}?]]",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,680,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("LOCK #fileNumber%, record& or LOCK #fileNumber% firstRecord& TO lastRecord&",75)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,681,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,682,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,684,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Unlock",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,685,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,686,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_unlock",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,687,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 3 ; +if(!qbevent)break;evnt(21266,688,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER)),l2string(*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,689,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[#]?[,[?][{To}?]]",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,690,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("UNLOCK #fileNumber%, record& or UNLOCK #fileNumber% firstRecord& TO lastRecord&",79)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,691,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,692,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,694,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("FreeTimer",9))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,695,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,696,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__freetimer",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,697,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,698,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_FREETIMER",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,699,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,700,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,702,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Timer",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,703,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,704,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_timer",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,705,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21266,706,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,707,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[(?)]{On|Off|Stop|Free}",23)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,708,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("TIMER[(number%)] {On|Off|Stop|Free}",35)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,709,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,710,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,712,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("FullScreen",10))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,713,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,714,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__fullscreen",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,715,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,716,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,717,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[{_Off|_Stretch|_SquarePixels|Off}][,{_Smooth}]",47)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,718,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_FULLSCREEN [{_Off|_Stretch|_SquarePixels|Off}][,{_Smooth}]",59)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,719,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,720,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,722,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("AllowFullScreen",15))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,723,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,724,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__allowfullscreen",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,725,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21266,726,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,727,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[{_Stretch|_SquarePixels|_Off|_All|Off}][,{_Smooth|_Off|_All|Off}]",66)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,728,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_ALLOWFULLSCREEN [{_Stretch|_SquarePixels|_Off|_All|Off}][,{_Smooth|_Off|_All|Off}]",83)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,729,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,730,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,732,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("FullScreen",10))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,733,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,734,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__fullscreen",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,735,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,736,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_FULLSCREEN",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,737,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,738,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,740,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Smooth",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,741,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,742,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__fullscreensmooth",22)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,743,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,744,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SMOOTH",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,745,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,746,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,748,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("WindowHasFocus",14))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,749,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,750,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__hasfocus",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,751,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,752,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_WINDOWHASFOCUS",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,753,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,754,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,756,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Clipboard",9))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,757,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,758,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,759,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__clipboard",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,760,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,761,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,762,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("=?",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,763,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_CLIPBOARD$ = text$",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,764,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,765,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,767,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Clipboard",9))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,768,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,769,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,770,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__clipboard",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,771,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,772,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_CLIPBOARD$",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,773,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,774,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,776,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ClipboardImage",14))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,777,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 11 ; +if(!qbevent)break;evnt(21266,777,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,778,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__clipboardimage",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,779,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,780,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_CLIPBOARDIMAGE",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,781,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,782,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,784,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ClipboardImage",14))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,785,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 11 ; +if(!qbevent)break;evnt(21266,785,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,786,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__clipboardimage",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,787,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,788,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,789,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("=?",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,790,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_CLIPBOARDIMAGE = existingImageHandle&",38)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,791,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,792,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,794,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Exit",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,795,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,796,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__exit",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,797,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,798,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_EXIT",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,799,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,800,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,802,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("OpenHost",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,803,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 8 ; +if(!qbevent)break;evnt(21266,803,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,804,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__openhost",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,805,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,806,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,807,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,808,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("_OPENHOST(",10),func_chr( 34 )),qbs_new_txt_len("TCP/IP:portNumber",17)),func_chr( 34 )),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,809,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,810,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,812,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Connected",9))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,813,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,814,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__connected",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,815,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,816,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,817,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,818,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_CONNECTED(connectionHandle&)",29)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,819,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,820,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,822,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ConnectionAddress",17))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,823,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(520)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,824,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,825,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__connectionaddress",23)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,826,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,827,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,828,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,829,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_CONNECTIONADDRESS(connectionHandle&)",37)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,830,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,831,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,833,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("OpenConnection",14))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,834,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,835,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__openconnection",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,836,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,837,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,838,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,839,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_OPENCONNECTION(hostHandle)",27)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,840,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,841,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,843,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("OpenClient",10))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,844,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 8 ; +if(!qbevent)break;evnt(21266,844,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,845,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__openclient",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,846,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,847,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,848,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,849,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("_OPENCLIENT(",12),func_chr( 34 )),qbs_new_txt_len("TCP/IP:port:address",19)),func_chr( 34 )),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,850,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,851,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,854,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("EnvironCount",12))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,855,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,856,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__environcount",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,857,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,858,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_ENVIRONCOUNT",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,859,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,860,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,862,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Environ",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,863,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,864,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,865,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_environ",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,866,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,867,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,868,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,869,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("ENVIRON$(listIndex%) or ENVIRON$(systemID$)",43)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,870,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,871,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,873,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Environ",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,874,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,875,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_environ",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,876,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,877,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,878,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("ENVIRON stringExpression$",25)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,879,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,880,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,882,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ErrorLine",9))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,883,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,884,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__errorline",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,885,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,886,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_ERRORLINE",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,887,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,888,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,890,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("InclErrorLine",13))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,891,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,892,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__inclerrorline",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,893,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,894,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_INCLERRORLINE",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,895,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,896,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,898,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ErrorMessage",12))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,899,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,900,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,901,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__errormessage",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,902,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,903,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,904,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,905,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,906,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_ERRORMESSAGE$ or _ERRORMESSAGE$(errorCode%)",44)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,907,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,908,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,910,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Assert",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,911,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,912,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__assert",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,913,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21266,914,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,?]",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,915,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_INTEGERTYPE-*__LONG_ISPOINTER),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,916,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_ASSERT condition[, errorMessage$]",34)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,917,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,918,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,920,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Display",7))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,921,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,922,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__display",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,923,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_DISPLAY",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,924,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,925,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,927,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("AutoDisplay",11))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,928,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,929,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__autodisplay",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,930,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_AUTODISPLAY",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,931,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,932,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,934,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Limit",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,935,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,936,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__limit",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,937,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,938,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,939,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_LIMIT framesPerSecond!",23)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,940,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,941,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,943,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("FPS",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,944,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,945,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__fps",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,946,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,947,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,948,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[{_Auto}][?]",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,949,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_FPS fps! or _FPS _Auto",23)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,950,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,951,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,953,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Delay",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,954,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,955,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__delay",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,956,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,957,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,958,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_DELAY seconds!",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,959,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,960,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,962,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Icon",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,963,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 10 ; +if(!qbevent)break;evnt(21266,963,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,964,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__icon",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,965,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21266,966,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,967,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?[,?]]",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,968,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_ICON [mainImageHandle&[, smallImageHandle&]]",45)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,969,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,970,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,972,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Title",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,973,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,974,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__title",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,975,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,976,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,977,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_TITLE text$",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,978,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,979,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,981,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Echo",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,982,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,983,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__echo",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,984,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,985,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,986,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_ECHO text$",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,987,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,988,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,990,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("AcceptFileDrop",14))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,991,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,992,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__filedrop",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,993,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,994,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,995,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[{On|Off}]",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,996,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_ACCEPTFILEDROP [{On|Off}]",26)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,997,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,998,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1000,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("AcceptFileDrop",14))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1001,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,1002,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__filedrop",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1003,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,1004,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_ACCEPTFILEDROP",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1005,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1006,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1008,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("FinishDrop",10))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1009,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,1010,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__finishdrop",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1011,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_FINISHDROP",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1012,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1013,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1015,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("TotalDroppedFiles",17))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1016,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,1017,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__totaldroppedfiles",23)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1018,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,1019,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_TOTALDROPPEDFILES",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1020,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1021,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1023,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("DroppedFile",11))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1024,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(520)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1025,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,1026,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__droppedfile",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1027,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,1028,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,1029,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1030,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1031,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_DROPPEDFILE$ or _DROPPEDFILE$(index&)",38)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1032,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1033,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1035,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Clear",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1036,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,1037,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_clear",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1038,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 3 ; +if(!qbevent)break;evnt(21266,1039,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1040,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?][,[?][,?]]",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1041,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("CLEAR",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1042,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1043,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1047,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("NewImage",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1048,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,1049,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__newimage",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1050,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 3 ; +if(!qbevent)break;evnt(21266,1051,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1052,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?,?[,?]",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1053,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,1054,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_NEWIMAGE(width&, height&, mode)",32)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1055,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1056,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1058,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("LoadImage",9))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1059,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 6 ; +if(!qbevent)break;evnt(21266,1059,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,1060,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__loadimage",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1061,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 3 ; +if(!qbevent)break;evnt(21266,1062,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1063,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,[?][,?]]",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1064,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,1065,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_LOADIMAGE(fileName$[, [mode&][, requirements$]])",49)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1066,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1067,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1069,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("FreeImage",9))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1070,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,1071,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__freeimage",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1072,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,1073,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1074,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1075,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_FREEIMAGE handle&",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1076,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1077,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1079,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("CopyImage",9))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1080,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,1081,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__copyimage",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1082,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21266,1083,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1084,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,?]",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1085,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,1086,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_COPYIMAGE(imageHandle&[, mode])",32)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1087,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1088,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1092,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Source",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1093,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,1094,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__source",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1095,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,1096,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1097,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1098,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SOURCE handle&",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1099,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1100,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1102,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Dest",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1103,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,1104,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__dest",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1105,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,1106,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1107,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1108,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_DEST imageHandle&",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1109,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1110,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1112,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Source",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1113,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,1114,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__source",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1115,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,1116,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SOURCE",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1117,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1118,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1120,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Dest",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1121,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,1122,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__dest",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1123,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,1124,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_DEST",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1125,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1126,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1128,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Display",7))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1129,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,1130,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__display",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1131,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,1132,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_DISPLAY",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1133,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1134,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1138,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Blend",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1139,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,1140,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__blend",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1141,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,1142,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1143,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1144,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_BLEND [imageHandle&]",21)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1145,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1146,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1148,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("DontBlend",9))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1149,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,1150,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__dontblend",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1151,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,1152,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1153,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1154,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_DONTBLEND [imageHandle&]",25)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1155,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1156,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1158,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ClearColor",10))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1159,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,1160,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__clearcolor",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1161,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21266,1162,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1163,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[{_None}][?][,?]",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1164,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_CLEARCOLOR {color&|_None}[,dest_handle&]",41)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1165,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1166,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1170,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("PutImage",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1171,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,1172,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__putimage",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1173,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 10 ; +if(!qbevent)break;evnt(21266,1174,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER),l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1175,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[[{Step}](?,?)[-[{Step}](?,?)]][,[?][,[?][,[[{Step}](?,?)[-[{Step}](?,?)]][,{_Smooth}]]]]",89)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1176,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_PUTIMAGE [STEP] [(dx1, dy1)-[STEP][(dx2, dy2)]][, sourceHandle&][, destHandle&][, ][STEP][(sx1, sy1)[-STEP][(sx2, sy2)]][_SMOOTH]",130)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1177,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1178,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1180,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MapTriangle",11))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1181,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,1182,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__maptriangle",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1183,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 19 ; +if(!qbevent)break;evnt(21266,1184,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1185,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[{_Clockwise|_AntiClockwise}][{_Seamless}](?,?)-(?,?)-(?,?)[,?]{To}(?,?[,?])-(?,?[,?])-(?,?[,?])[,[?][,{_Smooth|_SmoothShrunk|_SmoothStretched}]]",145)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1186,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_MAPTRIANGLE [{_SEAMLESS}] (sx1, sy1)-(sx2, sy2)-(sx3, sy3), source& TO (dx1, dy1)-(dx2, dy2)-(dx3, dy3)[, destination&][{_SMOOTH|_SMOOTHSHRUNK|_SMOOTHSTRETCHED}]]",163)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1187,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1188,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1190,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("DepthBuffer",11))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1191,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,1192,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__depthbuffer",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1193,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21266,1194,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1195,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("{On|Off|Lock|_Clear}[,?]",24)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1196,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_DEPTHBUFFER {On|Off|Lock|_Clear}[,handle&]",43)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1197,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1198,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1200,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("SetAlpha",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1201,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,1202,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__setalpha",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1203,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 4 ; +if(!qbevent)break;evnt(21266,1204,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1205,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,[?[{To}?]][,?]]",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1206,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SETALPHA alpha& or _SETALPHA color1& TO color2&[, imageHandle&]",64)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1207,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1208,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1212,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Width",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1213,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,1214,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__width",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1215,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,1216,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1217,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1218,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,1219,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_WIDTH(imageHandle&)",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1220,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1221,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1223,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Height",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1224,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,1225,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__height",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1226,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,1227,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1228,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1229,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,1230,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_HEIGHT(imageHandle&)",21)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1231,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1232,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1234,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("PixelSize",9))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1235,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,1236,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__pixelsize",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1237,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,1238,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1239,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1240,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,1241,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_PIXELSIZE[(imageHandle&)]",26)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1242,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1243,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1245,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ClearColor",10))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1246,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,1247,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__clearcolor",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1248,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,1249,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1250,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1251,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,1252,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_CLEARCOLOR[(sourceHandle&)]",28)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1253,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1254,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1256,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Blend",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1257,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,1258,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__blend",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1259,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,1260,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1261,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1262,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,1263,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_BLEND[(imageHandle&)]",22)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1264,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1265,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1267,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("DefaultColor",12))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1268,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,1269,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__defaultcolor",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1270,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,1271,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1272,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1273,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_ULONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,1274,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_DEFAULTCOLOR[(imageHandle&)]",29)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1275,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1276,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1278,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("BackgroundColor",15))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1279,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,1280,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__backgroundcolor",21)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1281,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,1282,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1283,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1284,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_ULONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,1285,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_BACKGROUNDCOLOR(imageHandle&)]",31)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1286,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1287,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1291,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("PaletteColor",12))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1292,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,1293,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__palettecolor",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1294,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21266,1295,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1296,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,?]",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1297,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,1298,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_PALETTECOLOR(attributeNumber%, imgHandle&)",43)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1299,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1300,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1302,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("PaletteColor",12))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1303,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,1304,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__palettecolor",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1305,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 3 ; +if(!qbevent)break;evnt(21266,1306,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1307,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?,?[,?]",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1308,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_PALETTECOLOR attribute%, newColor&[, imgHandle&]",49)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1309,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1310,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1312,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("CopyPalette",11))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1313,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,1314,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__copypalette",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1315,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21266,1316,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1317,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?][,?]",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1318,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_COPYPALETTE [sourceImageHandle&[, destinationImageHandle&]]",60)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1319,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1320,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1324,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("LoadFont",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1325,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 1 ; +if(!qbevent)break;evnt(21266,1325,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,1326,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__loadfont",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1327,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 4 ; +if(!qbevent)break;evnt(21266,1328,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1329,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?,?[,[?][,[?]]]",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1330,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,1331,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("_LOADFONT(fileName$, size&[, ",29),func_chr( 34 )),qbs_new_txt_len("{MONOSPACE|, UNICODE|, DONTBLEND|, MEMORY}",42)),func_chr( 34 )),qbs_new_txt_len("][, fontIndex])",15))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1332,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1333,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1335,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Font",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1336,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,1337,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__font",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1338,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21266,1339,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1340,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,?]",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1341,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_FONT fontHandle&[, imageHandle&]",33)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1342,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1343,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1345,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("FontWidth",9))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1346,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,1347,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__fontwidth",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1348,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,1349,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1350,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1351,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,1352,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_FONTWIDTH or _FONTWIDTH(fontHandle&)",37)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1353,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1354,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1356,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("FontHeight",10))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1357,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,1358,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__fontheight",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1359,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,1360,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1361,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1362,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,1363,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_FONTHEIGHT or _FONTHEIGHT(fontHandle&)",39)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1364,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1365,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1367,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Font",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1368,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,1369,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__font",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1370,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,1371,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1372,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1373,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,1374,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_FONT[(imageHandle&)]",21)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1375,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1376,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1378,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("PrintString",11))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1379,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,1380,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__printstring",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1381,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 4 ; +if(!qbevent)break;evnt(21266,1382,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER),l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1383,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[{Step}](?,?),?[,?]",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1384,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_PRINTSTRING(x, y), text$[, imageHandle&]",41)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1385,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1386,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1388,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("PrintWidth",10))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1389,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,1390,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__printwidth",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1391,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21266,1392,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1393,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,?]",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1394,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,1395,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_PRINTWIDTH(textToPrint$[, destinationHandle&])",47)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1396,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1397,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1399,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("FreeFont",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1400,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,1401,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__freefont",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1402,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,1403,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1404,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1405,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_FREEFONT fontHandle&",21)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1406,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1407,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1409,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("PrintMode",9))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1410,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,1411,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__printmode",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1412,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21266,1413,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1414,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("{_FillBackground|_KeepBackground|_OnlyBackground}[,?]",53)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1415,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_PRINTMODE {_FillBackground|_KeepBackground|_OnlyBackground}[, imageHandle&]",76)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1416,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1417,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1419,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("PrintMode",9))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1420,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,1421,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__printmode",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1422,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,1423,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1424,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1425,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,1426,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_PRINTMODE[(imageHandle&)]",26)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1427,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1428,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1432,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("RGBA",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1433,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,1434,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__rgba",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1435,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 5 ; +if(!qbevent)break;evnt(21266,1436,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1437,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?,?,?,?[,?]",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1438,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_ULONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,1439,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_RGBA(red&, green&, blue&, alpha&[, imageHandle&])",50)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1440,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1441,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1443,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("RGB",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1444,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,1445,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__rgb",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1446,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 4 ; +if(!qbevent)break;evnt(21266,1447,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1448,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?,?,?[,?]",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1449,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_ULONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,1450,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_RGB(red&, green&, blue&[, imageHandle&])",41)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1451,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1452,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1454,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Red",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1455,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,1456,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__red",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1457,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21266,1458,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1459,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,?]",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1460,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,1461,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_RED(rgbaColorIndex&[, imageHandle&])",37)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1462,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1463,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1465,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Green",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1466,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,1467,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__green",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1468,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21266,1469,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1470,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,?]",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1471,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,1472,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_GREEN(rgbaColorIndex&[, imageHandle&])",39)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1473,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1474,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1476,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Blue",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1477,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,1478,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__blue",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1479,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21266,1480,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1481,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,?]",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1482,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,1483,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_BLUE(rgbaColorIndex&[, imageHandle&])",38)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1484,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1485,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1487,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Alpha",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1488,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,1489,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__alpha",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1490,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21266,1491,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1492,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,?]",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1493,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,1494,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_ALPHA(color~&[, imageHandle&])",31)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1495,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1496,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1498,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("RGBA32",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1499,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,1500,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__rgba32",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1501,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 4 ; +if(!qbevent)break;evnt(21266,1502,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1503,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_ULONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,1504,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_RGBA32(red&, green&, blue&, alpha&)",36)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1505,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1506,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1508,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("RGB32",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1509,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,1510,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__rgb32",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1511,"subs_functions.bas");}while(r); +do{ +*(int8*)(((char*)__UDT_ID)+(808))= -1 ; +if(!qbevent)break;evnt(21266,1512,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(811))= 1 ; +if(!qbevent)break;evnt(21266,1513,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 4 ; +if(!qbevent)break;evnt(21266,1514,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1515,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_ULONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,1516,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_RGB32(red&, green&, blue&[, alpha&]) or _RGB32(intensity&[, alpha&])",69)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1517,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1518,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1520,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Red32",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1521,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,1522,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__red32",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1523,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,1524,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1525,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,1526,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_RED32(rgbaColor&)",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1527,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1528,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1530,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Green32",7))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1531,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,1532,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__green32",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1533,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,1534,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1535,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,1536,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_GREEN32(rgbaColor&)",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1537,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1538,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1540,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Blue32",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1541,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,1542,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__blue32",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1543,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,1544,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1545,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,1546,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_BLUE32(rgbaColor&)",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1547,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1548,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1550,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Alpha32",7))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1551,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,1552,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__alpha32",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1553,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,1554,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1555,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,1556,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_ALPHA32(rgbaColor&)",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1557,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1558,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1561,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Draw",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1562,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,1563,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_draw",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1564,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,1565,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1566,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("DRAW drawString$",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1567,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1568,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1570,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Play",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1571,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 4 ; +if(!qbevent)break;evnt(21266,1571,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,1572,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_play",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1573,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,1574,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1575,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("PLAY commandString$",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1576,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1577,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1579,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Play",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1580,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 4 ; +if(!qbevent)break;evnt(21266,1580,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,1581,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_play",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1582,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,1583,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1584,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,1585,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("PLAY",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1586,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1587,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1590,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MouseShow",9))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1591,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,1592,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__mouseshow",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1593,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,1594,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1595,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1596,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_MOUSESHOW [cursorShape$]",25)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1597,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1598,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1600,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MouseHide",9))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1601,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,1602,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__mousehide",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1603,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_MOUSEHIDE",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1604,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1605,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1607,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MouseInput",10))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1608,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,1609,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__mouseinput",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1610,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,1611,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,1612,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1613,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1614,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_MOUSEINPUT",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1615,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1616,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1618,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MouseX",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1619,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,1620,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__mousex",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1621,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,1622,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,1623,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1624,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1625,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_MOUSEX",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1626,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1627,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1629,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MouseY",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1630,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,1631,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__mousey",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1632,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,1633,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,1634,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1635,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1636,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_MOUSEY",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1637,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1638,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1640,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MouseMovementX",14))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1641,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,1642,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__mousemovementx",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1643,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,1644,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,1645,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1646,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1647,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_MOUSEMOVEMENTX",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1648,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1649,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1651,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MouseMovementY",14))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1652,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,1653,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__mousemovementy",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1654,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,1655,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,1656,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1657,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1658,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_MOUSEMOVEMENTY",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1659,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1660,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1662,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MouseButton",11))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1663,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,1664,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__mousebutton",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1665,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21266,1666,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1667,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,1668,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,?]",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1669,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_MOUSEBUTTON(buttonNumber)",26)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1670,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1671,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1673,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MouseWheel",10))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1674,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,1675,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__mousewheel",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1676,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,1677,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,1678,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1679,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1680,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_MOUSEWHEEL",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1681,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1682,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1685,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MousePipeOpen",13))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1686,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,1687,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__mousepipeopen",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1688,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,1689,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_MOUSEPIPEOPEN",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1690,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1691,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1693,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MouseInputPipe",14))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1694,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,1695,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__mouseinputpipe",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1696,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,1697,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1698,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_MOUSEINPUTPIPE(context)",24)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1699,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1700,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1702,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MousePipeClose",14))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1703,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,1704,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__mousepipeclose",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1705,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,1706,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1707,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_MOUSEPIPECLOSE(context)",24)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1708,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1709,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1711,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("FreeFile",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1712,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,1713,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_freefile",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1714,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,1715,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_FREEFILE",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1716,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1717,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1719,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Name",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1720,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,1721,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_name",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1722,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21266,1723,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1724,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?{As}?",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1725,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("NAME oldFileOrFolderName$ AS newFileOrFolderName$",49)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1726,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1727,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1729,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Kill",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1730,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,1731,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_kill",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1732,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,1733,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1734,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("KILL fileSpec$",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1735,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1736,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1738,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("ChDir",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1739,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,1740,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_chdir",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1741,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,1742,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1743,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("CHDIR path$",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1744,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1745,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1747,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("MkDir",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1748,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,1749,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_mkdir",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1750,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,1751,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1752,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("MKDIR pathSpec$",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1753,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1754,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1756,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("RmDir",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1757,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,1758,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_rmdir",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1759,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,1760,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1761,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("RMDIR path$",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1762,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1763,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1765,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Chain",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1766,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,1767,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_chain",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1768,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,1769,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1770,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("CHAIN moduleName$",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1771,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1772,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1775,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Shell",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1776,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,1777,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_shell2",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1778,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,1779,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1780,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("{_Hide}[{_DontWait}][?]",23)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1781,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1869)),256,1),qbs_new_txt_len("_Hide",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1782,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("SHELL [_DONTWAIT] [_HIDE] commandToRun$",39)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1783,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1784,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1786,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Shell",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1787,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,1788,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_shell3",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1789,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,1790,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1791,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("{_DontWait}[{_Hide}][?]",23)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1792,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1869)),256,1),qbs_new_txt_len("_DontWait",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1793,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("SHELL [_DONTWAIT] [_HIDE] commandToRun$",39)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1794,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1795,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1797,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Shell",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1798,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,1799,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_shell",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1800,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,1801,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1802,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1803,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("SHELL [_DONTWAIT] [_HIDE] commandToRun$",39)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1805,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1806,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1808,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Shell",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1809,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,1810,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_shell",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1811,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,1812,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1813,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,1814,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("SHELL(commandToRun$)",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1815,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1816,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1818,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ShellHide",9))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1819,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,1820,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__shellhide",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1821,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,1822,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1823,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,1824,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SHELLHIDE(commandToRun$)",25)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1825,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1826,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1828,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Command",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1829,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1830,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,1831,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_command",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1832,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,1833,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1834,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,1835,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1836,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("COMMAND$[(index%)]",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1837,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1838,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1840,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("CommandCount",12))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1841,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,1842,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__commandcount",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1843,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,1844,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_COMMANDCOUNT",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1845,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1846,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1851,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("SndRate",7))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1852,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 4 ; +if(!qbevent)break;evnt(21266,1852,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,1853,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__sndrate",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1854,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,1855,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SNDRATE",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1856,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1857,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1859,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("SndRaw",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1860,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 4 ; +if(!qbevent)break;evnt(21266,1860,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,1861,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__sndraw",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1862,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 3 ; +if(!qbevent)break;evnt(21266,1863,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER),l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1864,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,[?][,?]]",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1865,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SNDRAW leftSample[, rightSample][, pipeHandle&]",48)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1866,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1867,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1869,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("SndRawDone",10))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1870,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 4 ; +if(!qbevent)break;evnt(21266,1870,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,1871,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__sndrawdone",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1872,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,1873,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1874,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1875,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SNDRAWDONE [pipeHandle&]",25)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1876,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1877,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1879,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("SndOpenRaw",10))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1880,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 4 ; +if(!qbevent)break;evnt(21266,1880,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,1881,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__sndopenraw",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1882,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,1883,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SNDOPENRAW",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1884,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1885,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1887,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("SndRawLen",9))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1888,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 4 ; +if(!qbevent)break;evnt(21266,1888,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,1889,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__sndrawlen",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1890,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,1891,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1892,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1893,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,1894,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SNDRAWLEN [pipeHandle&]",24)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1895,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1896,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1898,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("SndLen",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1899,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 4 ; +if(!qbevent)break;evnt(21266,1899,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,1900,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__sndlen",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1901,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,1902,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1903,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,1904,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SNDLEN(handle&)",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1905,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1906,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1908,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("SndPaused",9))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1909,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 4 ; +if(!qbevent)break;evnt(21266,1909,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,1910,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__sndpaused",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1911,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,1912,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1913,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,1914,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SNDPAUSED(handle&)",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1915,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1916,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1918,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("SndPlayFile",11))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1919,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 3 ; +if(!qbevent)break;evnt(21266,1919,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,1920,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__sndplayfile",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1921,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 3 ; +if(!qbevent)break;evnt(21266,1922,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1923,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,[?][,?]]",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1924,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SNDPLAYFILE fileName$[, , volume!]",35)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1925,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1926,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1928,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("SndPlayCopy",11))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1929,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 4 ; +if(!qbevent)break;evnt(21266,1929,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,1930,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__sndplaycopy",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1931,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 5 ; +if(!qbevent)break;evnt(21266,1932,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(qbs_add(l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1933,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,[?][,[?][,[?][,[?]]]]]",25)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1934,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SNDPLAYCOPY handle&[, volume!][, x!][, y!][, z!]",49)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1935,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1936,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1938,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("SndStop",7))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1939,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 4 ; +if(!qbevent)break;evnt(21266,1939,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,1940,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__sndstop",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1941,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,1942,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1943,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SNDSTOP handle&",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1944,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1945,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1947,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("SndLoop",7))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1948,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 4 ; +if(!qbevent)break;evnt(21266,1948,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,1949,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__sndloop",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1950,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,1951,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1952,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SNDLOOP handle&",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1953,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1954,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1956,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("SndLimit",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1957,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 4 ; +if(!qbevent)break;evnt(21266,1957,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,1958,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__sndlimit",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1959,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21266,1960,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1961,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SNDLIMIT handle&, numberOfSeconds!",35)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1962,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1963,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1965,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("SndOpen",7))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1966,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 3 ; +if(!qbevent)break;evnt(21266,1966,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,1967,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__sndopen",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1968,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21266,1969,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1970,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,?]",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1971,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_ULONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,1972,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SNDOPEN(fileName$[, capabilities$])",36)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1973,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1974,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1976,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("SndSetPos",9))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1977,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 4 ; +if(!qbevent)break;evnt(21266,1977,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,1978,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__sndsetpos",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1979,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21266,1980,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1981,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SNDSETPOS handle&, position!",29)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1982,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1983,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1985,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("SndGetPos",9))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1986,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 4 ; +if(!qbevent)break;evnt(21266,1986,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,1987,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__sndgetpos",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1988,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,1989,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1990,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,1991,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SNDGETPOS(handle&)",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1992,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,1993,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,1995,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("SndPlaying",10))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1996,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 4 ; +if(!qbevent)break;evnt(21266,1996,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,1997,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__sndplaying",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,1998,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,1999,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2000,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,2001,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SNDPLAYING(handle&)",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2002,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2003,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2005,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("SndPause",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2006,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 4 ; +if(!qbevent)break;evnt(21266,2006,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,2007,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__sndpause",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2008,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,2009,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2010,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SNDPAUSE handle&",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2011,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2012,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2014,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("SndBal",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2015,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 4 ; +if(!qbevent)break;evnt(21266,2015,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,2016,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__sndbal",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2017,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 5 ; +if(!qbevent)break;evnt(21266,2018,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(qbs_add(l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2019,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?,[?][,[?][,[?][,[?]]]]",23)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2020,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SNDBAL handle&[, x!][, y!][, z!][, channel&]",45)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2021,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2022,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2024,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("SndVol",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2025,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 4 ; +if(!qbevent)break;evnt(21266,2025,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,2026,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__sndvol",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2027,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21266,2028,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2029,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SNDVOL handle&, volume!",24)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2030,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2031,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2033,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("SndPlay",7))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2034,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 4 ; +if(!qbevent)break;evnt(21266,2034,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,2035,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__sndplay",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2036,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,2037,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2038,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SNDPLAY handle&",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2039,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2040,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2042,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("SndCopy",7))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2043,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 4 ; +if(!qbevent)break;evnt(21266,2043,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,2044,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__sndcopy",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2045,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,2046,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2047,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_ULONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,2048,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SNDCOPY(handle&)",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2049,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2050,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2052,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("SndClose",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2053,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 4 ; +if(!qbevent)break;evnt(21266,2053,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,2054,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__sndclose",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2055,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,2056,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2057,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SNDCLOSE handle&",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2058,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2059,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2062,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("SndNew",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2063,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 4 ; +if(!qbevent)break;evnt(21266,2064,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,2065,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__sndnew",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2066,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 3 ; +if(!qbevent)break;evnt(21266,2067,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2068,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,2069,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SNDNEW(frames&, channels&, bits&)",34)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2070,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2071,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2074,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Input",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2075,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2076,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,2077,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_input",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2078,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21266,2079,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2080,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,?]",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2081,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,2082,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("INPUT$(numberOfBytes%[, fileOrPortNumber])",42)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2083,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2084,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2086,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Seek",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2087,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,2088,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_seek",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2089,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21266,2090,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2091,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[#]?,?",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2092,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("SEEK filenumber&, position",26)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2093,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2094,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2096,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Seek",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2097,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,2098,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_seek",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2099,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,2100,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2101,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,2102,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("SEEK(filenumber&)",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2103,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2104,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2106,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Loc",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2107,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,2108,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_loc",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2109,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,2110,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2111,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,2112,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("LOC(fileOrPortNumber%)",22)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2113,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2114,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2116,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("EOF",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2117,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,2118,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_eof",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2119,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,2120,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2121,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,2122,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("EOF(fileNumber&)",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2123,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2124,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2126,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("LOF",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2127,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,2128,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_lof",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2129,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,2130,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2131,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,2132,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("LOF(fileNumber&)",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2133,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2134,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2137,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Screen",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2138,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,2139,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_screen",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2140,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 3 ; +if(!qbevent)break;evnt(21266,2141,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2142,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?,?[,?]",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2143,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_ULONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,2144,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("SCREEN(x, y[, colorflag%])",26)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2145,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2146,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2148,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("PMap",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2149,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,2150,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_pmap",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2151,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21266,2152,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2153,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,2154,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("PMAP(coordinate, function_number%)",34)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2155,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2156,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2159,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Point",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2160,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,2161,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_point",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2162,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21266,2163,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER),l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2164,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,?]",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2165,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,2166,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("POINT(x, y) or POINT({0|1|2|3})",31)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2167,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2168,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2171,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Tab",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2172,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,2173,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_tab",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2174,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,2175,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2176,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,2177,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("TAB(column%)",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2178,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2179,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2181,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Spc",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2182,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,2183,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_spc",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2184,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,2185,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2186,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,2187,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("SPC(count%)",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2188,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2189,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2192,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Wait",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2193,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,2194,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_wait",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2195,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 3 ; +if(!qbevent)break;evnt(21266,2196,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2197,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?,?[,?]",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2198,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("WAIT port%, andMask%[, xorMask%]",32)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2199,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2200,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2202,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Inp",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2203,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,2204,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_inp",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2205,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,2206,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2207,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,2208,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("INP(address)",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2209,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2210,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2212,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Pos",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2213,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,2214,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_pos",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2215,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,2216,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2217,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,2218,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("POS(0)",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2219,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2220,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2222,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Sgn",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2223,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,2224,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_sgn",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2225,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,2226,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string( -1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2227,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,2228,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("SGN(value)",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2229,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2230,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2232,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("LBound",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2233,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,2234,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21266,2235,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string( -1 ),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2236,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?,[?]",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2237,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,2238,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("LBOUND(arrayName[, dimension%])",31)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2239,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2240,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2242,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("UBound",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2243,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,2244,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21266,2245,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string( -1 ),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2246,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?,[?]",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2247,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,2248,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("UBOUND(arrayName[, dimension%])",31)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2249,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2250,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2252,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Bin",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2253,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2254,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,2255,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,2256,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string( -1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2257,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,2258,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_BIN$(number)",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2259,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2260,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2262,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Oct",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2263,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2264,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,2265,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,2266,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string( -1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2267,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,2268,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("OCT$(number)",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2269,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2270,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2272,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Hex",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2273,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2274,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,2275,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,2276,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string( -1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2277,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,2278,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("HEX$(decimalNumber)",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2279,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2280,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2282,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Sleep",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2283,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,2284,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_sleep",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2285,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,2286,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2287,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2288,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("SLEEP seconds%",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2289,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2290,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2292,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Exp",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2293,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,2294,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,2295,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string( -1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2296,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))= -1 ; +if(!qbevent)break;evnt(21266,2297,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("EXP(numericExpression)",22)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2298,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2299,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2301,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Fix",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2302,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,2303,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,2304,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string( -1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2305,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))= -1 ; +if(!qbevent)break;evnt(21266,2306,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("FIX(expression)",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2307,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2308,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2310,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Int",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2311,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,2312,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,2313,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string( -1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2314,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))= -1 ; +if(!qbevent)break;evnt(21266,2315,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("INT(expression)",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2316,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2317,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2319,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("CDbl",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2320,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,2321,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,2322,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string( -1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2323,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,2324,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("CDBL(expression)",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2325,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2326,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2328,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("CSng",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2329,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,2330,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,2331,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string( -1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2332,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,2333,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("CSNG(expression)",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2334,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2335,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2337,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Round",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2338,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,2339,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,2340,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string( -1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2341,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,2342,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_ROUND(number)",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2343,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2344,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2346,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("CInt",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2347,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,2348,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,2349,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string( -1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2350,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_INTEGERTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,2351,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("CINT(expression)",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2352,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2353,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2355,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("CLng",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2356,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,2357,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,2358,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string( -1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2359,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_INTEGERTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,2360,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("CLNG(expression)",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2361,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2362,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2366,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Time",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2367,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2368,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,2369,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_time",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2370,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,2371,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2372,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("=?",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2373,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("TIME$ = timeToSet$",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2374,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2375,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2377,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Time",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2378,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2379,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,2380,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_time",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2381,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,2382,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("TIME$",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2383,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2384,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2388,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Date",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2389,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2390,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,2391,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_date",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2392,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,2393,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2394,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("=?",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2395,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("DATE$ = dateToSet$",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2396,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2397,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2399,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Date",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2400,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2401,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,2402,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_date",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2403,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,2404,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("DATE$",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2405,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2406,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2408,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("CsrLin",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2409,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,2410,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_csrlin",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2411,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,2412,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("CSRLIN",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2413,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2414,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2417,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Paint",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2418,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,2419,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_paint",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2420,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 5 ; +if(!qbevent)break;evnt(21266,2421,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(qbs_add(l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2422,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[{Step}](?,?)[,[?][,[?][,?]]]",29)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2423,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("PAINT [STEP] (x!, y!)[,[fillColor&] [,[bordercolor&] [,pattern$]]]",66)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2425,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2426,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2428,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Circle",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2429,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,2430,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_circle",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2431,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 7 ; +if(!qbevent)break;evnt(21266,2432,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2433,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[{Step}](?,?),?[,[?][,[?][,[?][,?]]]]",37)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2434,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("CIRCLE [STEP] (x!, y!), radius![, [color&] [, [start!] [, [end!] [, aspect!]]]]",79)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2436,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2437,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2439,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("BLoad",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2440,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,2441,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_bload",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2442,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21266,2443,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2444,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,?]",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2445,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("BLOAD fileName$, VARPTR(imageArray%(index))",43)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2446,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2447,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2449,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("BSave",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2450,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,2451,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_bsave",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2452,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 3 ; +if(!qbevent)break;evnt(21266,2453,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2454,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("BSAVE saveFile$, VARPTR(array(index)), fileSize&",48)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2455,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2456,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2459,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Get",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2460,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,2461,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_graphics_get",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2462,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 6 ; +if(!qbevent)break;evnt(21266,2463,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string( -3 )),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2464,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[{Step}](?,?)-[{Step}](?,?),?[,?]",33)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2465,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1869)),256,1),qbs_new_txt_len("Step",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2466,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("GET [STEP] (column1, row1)-[STEP](column2, row2), array([index])[, offscreenColor]",82)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2467,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2468,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2470,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Get",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2471,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,2472,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_graphics_get",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2473,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 6 ; +if(!qbevent)break;evnt(21266,2474,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string( -3 )),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2475,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[{Step}](?,?)-[{Step}](?,?),?[,?]",33)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2476,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1869)),256,1),qbs_new_txt_len("(",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2477,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("GET [STEP] (column1, row1)-[STEP](column2, row2), array([index])[, offscreenColor]",82)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2478,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2479,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2482,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Put",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2483,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,2484,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_graphics_put",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2485,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 5 ; +if(!qbevent)break;evnt(21266,2486,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(qbs_add(l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string( -3 )),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2487,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[{Step}](?,?),?[,[{_Clip}][{PSet|PReset|And|Or|Xor}][,?]]",57)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2488,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1869)),256,1),qbs_new_txt_len("Step",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2491,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("PUT [STEP](column, row), Array([index])[,] [_CLIP] [{PSET|PRESET|AND|OR|XOR}]][, omitcolor]",92)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2492,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2493,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2494,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Put",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2495,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,2496,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_graphics_put",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2497,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 5 ; +if(!qbevent)break;evnt(21266,2498,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(qbs_add(l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string( -3 )),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2499,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[{Step}](?,?),?[,[{_Clip}][{PSet|PReset|And|Or|Xor}][,?]]",57)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2500,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1869)),256,1),qbs_new_txt_len("(",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2503,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("PUT [STEP](column, row), Array([index])[,] [_CLIP] [{PSET|PRESET|AND|OR|XOR}]][, omitcolor]",92)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2504,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2505,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2507,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Get",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2508,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,2509,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_get",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2510,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 3 ; +if(!qbevent)break;evnt(21266,2511,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string( -4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2512,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[#]?[,[?][,?]]",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2514,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("GET #fileNumber&, [position][, targetVariable|targetArray()}]",61)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2515,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2516,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2518,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Put",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2519,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,2520,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_put",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2521,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 3 ; +if(!qbevent)break;evnt(21266,2522,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string( -4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2523,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[#]?[,[?][,?]]",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2525,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("PUT #filenumber&, [position][, {holdingvariable|holdingarray()}]",64)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2526,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2527,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2529,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Open",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2530,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,2531,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_open",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2532,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 6 ; +if(!qbevent)break;evnt(21266,2533,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2534,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[{For Random|For Binary|For Input|For Output|For Append}][{Access Read Write|Access Read|Access Write}][{Shared|Lock Read Write|Lock Read|Lock Write}]{As}[#]?[{Len =}?]",169)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2535,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("OPEN fileName$ [FOR mode] [ACCESS|LOCK|SHARED [{READ|WRITE}] AS [#]fileNumber& [LEN = recordLength]",99)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2536,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2537,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2539,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Open",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2540,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,2541,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_open_gwbasic",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2542,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 4 ; +if(!qbevent)break;evnt(21266,2543,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2544,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?,[#]?,?[,?]",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2545,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("OPEN modeLetter$, [#]fileNumber&, fileName$[, recordLength]",59)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2546,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2547,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2549,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Val",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2550,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,2551,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_val",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2552,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,2553,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2554,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,2555,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("VAL(string_value$)",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2556,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2557,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2559,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("MKSMBF",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2560,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2561,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,2562,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_mksmbf",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2563,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,2564,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2565,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,2566,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("MKSMBF$(value!)",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2567,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2568,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2569,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("MKDMBF",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2570,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2571,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,2572,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_mkdmbf",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2573,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,2574,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2575,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,2576,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("MKDMBF$(value#)",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2577,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2578,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2580,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("MKI",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2581,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2582,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,2583,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2584,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,2585,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_INTEGERTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2586,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,2587,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("MKI$(integerVariableOrLiteral%)",31)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2588,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2589,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2590,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("MKL",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2591,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2592,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,2593,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2594,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,2595,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2596,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,2597,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("MKL$(longVariableOrLiteral&)",28)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2598,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2599,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2600,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("MKS",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2601,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2602,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,2603,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2604,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,2605,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_SINGLETYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2606,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,2607,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("MKS$(singlePrecisionVariableOrLiteral!)",39)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2608,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2609,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2610,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("MKD",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2611,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2612,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,2613,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2614,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,2615,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2616,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,2617,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("MKD$(doublePrecisionVariableOrLiteral#)",39)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2618,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2619,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2620,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MK",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2621,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2622,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,2623,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2624,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21266,2625,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string( -1 ),l2string( -1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2626,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,2627,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_MK$(numericalType, numericalValue)",35)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2628,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2629,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2631,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("CVSMBF",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2632,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,2633,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_cvsmbf",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2634,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,2635,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2636,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,2637,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("CVSMBF(stringData$)",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2638,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2639,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2640,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("CVDMBF",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2641,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,2642,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_cvdmbf",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2643,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,2644,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2645,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,2646,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("CVDMBF(stringData$)",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2647,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2648,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2650,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("CVI",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2651,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,2652,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2653,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,2654,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2655,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_INTEGERTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,2656,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("CVI(stringData$)",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2657,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2658,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2659,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("CVL",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2660,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,2661,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2662,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,2663,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2664,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,2665,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("CVL(stringData$)",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2666,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2667,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2668,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("CVS",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2669,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,2670,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2671,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,2672,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2673,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,2674,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("CVS(stringData$)",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2675,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2676,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2677,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("CVD",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2678,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,2679,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2680,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,2681,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2682,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,2683,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("CVD(stringData$)",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2684,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2685,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2686,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("CV",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2687,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,2688,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2689,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21266,2690,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string( -1 ),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2691,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))= -1 ; +if(!qbevent)break;evnt(21266,2692,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_CV(numericalType, MKstringValue$)",34)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2693,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2694,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2696,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("String",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2697,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2698,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,2699,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_string",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2700,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21266,2701,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2702,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,2703,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("STRING$(count&, {character$ | ASCIIcode%})",42)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2704,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2705,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2707,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Space",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2708,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2709,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,2710,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_space",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2711,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,2712,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2713,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,2714,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("SPACE$(count&)",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2715,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2716,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2718,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("InStr",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2719,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,2720,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_instr",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2721,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 3 ; +if(!qbevent)break;evnt(21266,2722,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2723,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,2724,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?],?,?",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2725,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("INSTR([start%,] baseString$, searchString$)",43)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2726,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2727,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2729,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("InStrRev",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2730,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,2731,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__instrrev",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2732,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 3 ; +if(!qbevent)break;evnt(21266,2733,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2734,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,2735,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?],?,?",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2736,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_INSTRREV([start%,] baseString$, searchString$)",47)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2737,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2738,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2740,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Mid",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2741,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2742,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,2743,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_mid",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2744,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 3 ; +if(!qbevent)break;evnt(21266,2745,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2746,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,2747,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?,?,[?]",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2748,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("MID$(stringValue$, startPosition%[, bytes%])",44)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2749,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2750,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2752,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("SAdd",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2753,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,2754,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2755,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,2756,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string( -1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2757,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,2758,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("SADD(stringVariable$)",21)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2759,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2760,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2762,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Cls",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2763,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,2764,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_cls",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2765,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21266,2766,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2767,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?][,?]",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2768,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("CLS [method%] [, bgColor&]",26)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2769,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2770,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2772,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Sqr",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2773,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,2774,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_sqr",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2775,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,2776,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2777,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,2778,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("SQR(value)",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2779,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2780,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2782,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Chr",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2783,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2784,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,2785,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_chr",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2786,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,2787,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2788,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,2789,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("CHR$(code%)",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2790,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2791,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2793,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("VarPtr",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2794,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,2795,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2796,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,2797,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string( -1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2798,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,2799,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2800,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("VARPTR(variable_name[(reference_index%)])",41)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2801,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2802,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2804,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("VarPtr",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2805,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,2806,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2807,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,2808,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string( -1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2809,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,2810,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("VARPTR(variable_name[(reference_index%)])",41)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2811,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2812,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2814,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Offset",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2815,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,2816,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2817,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,2818,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string( -1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2819,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_UOFFSETTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,2820,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_OFFSET(variable)",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2821,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2822,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2824,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("VarSeg",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2825,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,2826,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2827,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,2828,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string( -1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2829,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,2830,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("VARSEG(variable_name[(start_index)])",36)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2831,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2832,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2834,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Poke",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2835,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,2836,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_poke",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2837,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21266,2838,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2839,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("POKE segment_offset, offset_value",33)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2840,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2841,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2843,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Peek",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2844,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,2845,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_peek",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2846,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,2847,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2848,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,2849,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("PEEK(segment_offset)",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2850,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2851,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2853,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Def",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2854,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,2855,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_defseg",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2856,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,2857,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2858,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("{Seg}[=?]",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2859,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1869)),256,1),qbs_new_txt_len("Seg",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2860,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("DEF SEG [=][{segment|VARSEG(variable}]",38)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2861,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2862,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2864,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Sin",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2865,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,2866,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sin",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2867,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,2868,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2869,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,2870,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("SIN(radian_angle!)",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2871,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2872,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2874,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Cos",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2875,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,2876,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("cos",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2877,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,2878,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2879,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,2880,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("COS(radian_angle!)",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2881,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2882,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2884,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Tan",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2885,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,2886,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("tan",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2887,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,2888,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2889,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,2890,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("TAN(radian_angle!)",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2891,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2892,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2894,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Atn",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2895,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,2896,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("atan",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2897,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,2898,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2899,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,2900,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("ATN(tangent!)",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2901,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2902,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2904,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Log",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2905,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,2906,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_log",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2907,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,2908,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2909,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,2910,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("LOG(value)",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2911,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2912,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2914,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Abs",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2915,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,2916,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_abs",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2917,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,2918,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string( -1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2919,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,2920,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("ABS(numericalValue)",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2921,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2922,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2924,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Erl",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2925,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,2926,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("get_error_erl",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2927,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 0 ; +if(!qbevent)break;evnt(21266,2928,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,2929,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("ERL",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2930,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2931,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2933,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Err",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2934,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,2935,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("get_error_err",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2936,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 0 ; +if(!qbevent)break;evnt(21266,2937,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_ULONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,2938,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("ERR",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2939,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2940,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2942,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Error",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2943,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,2944,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("error",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2945,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,2946,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2947,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("ERROR codeNumber%",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2948,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2949,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2951,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Line",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2952,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,2953,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_line",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2954,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 7 ; +if(!qbevent)break;evnt(21266,2955,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2956,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[[{Step}](?,?)]-[{Step}](?,?)[,[?][,[{B|BF}][,?]]]",50)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2957,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("LINE [STEP] [(column1, row1)]-[STEP] (column2, row2), color[, [{B|BF}], style%]",79)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2958,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2959,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2961,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Sound",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2962,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 4 ; +if(!qbevent)break;evnt(21266,2962,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,2963,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_sound",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2964,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21266,2965,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER),l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2966,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("SOUND frequency, duration",25)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2967,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2968,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2970,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Beep",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2971,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 4 ; +if(!qbevent)break;evnt(21266,2971,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,2972,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_beep",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2973,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 0 ; +if(!qbevent)break;evnt(21266,2974,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("BEEP",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2975,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2976,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2978,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Timer",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2979,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,2980,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_timer",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2981,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,2982,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2983,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,2984,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2985,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("TIMER[(accuracy!)]",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2986,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2987,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,2989,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Rnd",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2990,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,2991,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_rnd",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2992,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,2993,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2994,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,2995,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2996,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("RND[(behavior)]",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,2997,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,2998,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3000,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Randomize",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3001,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,3002,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_randomize",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3003,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,3004,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3005,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[[{Using}]?]",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3006,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("RANDOMIZE [USING] {seednumber|TIMER}",36)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3007,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3008,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3010,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Out",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3011,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,3012,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_out",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3013,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21266,3014,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3015,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("OUT registerAddress%, value%",28)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3016,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3017,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3019,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("PCopy",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3020,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,3021,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_pcopy",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3022,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21266,3023,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3024,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("PCOPY sourcePage%, destinationPage%",35)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3025,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3026,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3028,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("View",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3029,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,3030,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("qbg_sub_view",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3031,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 6 ; +if(!qbevent)break;evnt(21266,3032,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3033,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[[{Screen}](?,?)-(?,?)[,[?][,?]]]",33)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3034,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(2125)),256,1),qbs_new_txt_len("Print",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3035,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("VIEW [SCREEN] (column1, row1)-(column2, row2)[, color][, border]",64)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3036,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3037,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3039,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("View",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3040,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,3041,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("qbg_sub_view_print",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3042,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21266,3043,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3044,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("{Print}[?{To}?]",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3045,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1869)),256,1),qbs_new_txt_len("Print",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3046,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("VIEW PRINT [topRow% TO bottomRow%]",34)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3047,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3048,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3050,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Window",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3051,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,3052,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("qbg_sub_window",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3053,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 4 ; +if(!qbevent)break;evnt(21266,3054,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3055,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[[{Screen}](?,?)-(?,?)]",23)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3056,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("WINDOW [[SCREEN] (x1!, y1!) - (x2!, y2!)]",41)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3057,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3058,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3060,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Locate",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3061,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,3062,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("qbg_sub_locate",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3063,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 5 ; +if(!qbevent)break;evnt(21266,3064,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3065,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?][,[?][,[?][,[?][,?]]]]",25)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3066,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("LOCATE [row%][, column%] [, cursor%][, cursorStart%, cursorStop%]",65)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3067,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3068,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3070,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Color",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3071,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,3072,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("qbg_sub_color",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3073,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 3 ; +if(!qbevent)break;evnt(21266,3074,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3075,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?][,[?][,?]]",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3076,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("COLOR [foreground&][, background&]",34)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3077,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3078,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3080,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Palette",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3081,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,3082,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("qbg_palette",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3083,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21266,3084,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3085,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?,?]",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3086,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("PALETTE [attribute%, red% + (green% * 256) + (blue% * 65536)] or PALETTE [existingAttribute%, newAttribute%]",108)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3087,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3088,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3090,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Width",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3091,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,3092,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("qbsub_width",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3093,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 5 ; +if(!qbevent)break;evnt(21266,3094,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3095,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[{#|LPrint}][?][,[?][,[?][,[?]]]]",33)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3096,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("WIDTH [columns%][, rows%] or WIDTH {file_number|device}, columnwidth%",69)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3098,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3099,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3102,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Screen",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3103,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,3104,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("qbg_screen",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3105,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 5 ; +if(!qbevent)break;evnt(21266,3106,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3107,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?][,[?][,[?][,[?][,[{_ManualDisplay}?]]]]]",43)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3111,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("SCREEN {mode%|imagehandle&} [, , active_page, visual_page]",58)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3112,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3113,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3115,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("PSet",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3116,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,3117,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_pset",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3118,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 3 ; +if(!qbevent)break;evnt(21266,3119,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3120,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[{Step}](?,?)[,?]",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3121,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("PSET [STEP](column%, row%)[, colorAttribute]",44)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3122,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3123,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3125,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("PReset",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3126,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,3127,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_preset",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3128,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 3 ; +if(!qbevent)break;evnt(21266,3129,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3130,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[{Step}](?,?)[,?]",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3131,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("PRESET [STEP](column%, row%)[, colorAttribute]",46)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3132,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3133,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3135,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Asc",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3136,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,3137,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("qbs_asc",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3138,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,3139,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3140,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,3141,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("ASC(text$[, position%])",23)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3142,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3143,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3145,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Len",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3146,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,3147,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3148,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,3149,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3150,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,3151,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("LEN(literalTextOrVariable$)",27)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3152,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3153,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3155,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("InKey",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3156,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3157,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,3158,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("qbs_inkey",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3159,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,3160,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("INKEY$",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3161,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3162,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3164,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Str",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3165,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3166,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,3167,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("qbs_str",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3168,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,3169,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string( -1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3170,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,3171,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("STR$(number)",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3172,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3173,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3175,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("UCase",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3176,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3177,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,3178,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("qbs_ucase",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3179,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,3180,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3181,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,3182,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("UCASE$(text$)",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3183,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3184,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3186,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("LCase",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3187,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3188,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,3189,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("qbs_lcase",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3190,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,3191,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3192,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,3193,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("LCASE$(text$)",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3194,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3195,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3197,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Left",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3198,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3199,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,3200,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("qbs_left",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3201,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21266,3202,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3203,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,3204,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("LEFT$(stringValue$, numberOfCharacters%)",40)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3205,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3206,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3208,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Right",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3209,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3210,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,3211,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("qbs_right",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3212,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21266,3213,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3214,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,3215,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("RIGHT$(stringValue$, numberOfCharacters%)",41)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3216,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3217,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3219,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("LTrim",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3220,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3221,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,3222,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("qbs_ltrim",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3223,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,3224,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3225,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,3226,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("LTRIM$(text$)",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3227,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3228,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3230,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("RTrim",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3231,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3232,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,3233,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("qbs_rtrim",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3234,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,3235,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3236,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,3237,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("RTRIM$(text$)",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3238,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3239,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3241,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Trim",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3242,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3243,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,3244,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("qbs__trim",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3245,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,3246,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3247,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,3248,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_TRIM$(text$)",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3249,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3250,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3252,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("Print",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3253,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,3254,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("qbs_print",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3255,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,3256,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3257,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("PRINT [expression] [{;|,] [expression...]",41)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3258,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3259,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3261,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("LPrint",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3262,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 9 ; +if(!qbevent)break;evnt(21266,3262,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,3263,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("qbs_lprint",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3264,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,3265,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3266,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("LPRINT [expression] [{;|,}]",27)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3267,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3268,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3270,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("LPos",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3271,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 9 ; +if(!qbevent)break;evnt(21266,3271,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,3272,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_lpos",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3273,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,3274,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3275,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,3276,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("LPOS(index%)",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3277,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3278,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3281,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("CWD",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3282,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3283,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,3284,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__cwd",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3285,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,3286,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_CWD$",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3287,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3288,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3291,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("StartDir",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3292,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3293,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,3294,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__startdir",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3295,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,3296,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_STARTDIR$",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3297,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3298,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3301,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Dir",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3302,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3303,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,3304,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__dir",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3305,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,3306,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3307,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,3308,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("_DIR$(",6),func_chr( 34 )),qbs_new_txt_len("folderspecification",19)),func_chr( 34 )),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3309,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3310,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3313,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("InclErrorFile",13))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3314,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3315,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,3316,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__inclerrorfile",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3317,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,3318,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_INCLERRORFILE$",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3319,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3320,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3322,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("KeyClear",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3323,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,3324,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,3325,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3326,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3327,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__keyclear",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3328,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_KEYCLEAR buffer&",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3329,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3330,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3332,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("D2R",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3333,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,3334,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_deg2rad",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3335,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,3336,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3337,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,3338,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_D2R(angleInDegrees!)",21)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3339,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3340,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3342,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("D2G",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3343,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,3344,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_deg2grad",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3345,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,3346,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3347,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,3348,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_D2G(angleInDegrees!)",21)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3349,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3350,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3352,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("R2D",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3353,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,3354,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_rad2deg",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3355,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,3356,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3357,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,3358,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_R2D(angleInRadians!)",21)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3359,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3360,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3362,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("R2G",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3363,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,3364,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_rad2grad",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3365,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,3366,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3367,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,3368,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_R2G(angleInRadians!)",21)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3369,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3370,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3372,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("G2D",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3373,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,3374,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_grad2deg",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3375,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,3376,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3377,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,3378,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_G2D(gradient!)",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3379,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3380,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3382,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("G2R",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3383,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,3384,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_grad2rad",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3385,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,3386,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3387,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,3388,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_G2R(gradient!)",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3389,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3390,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3392,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Atan2",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3393,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,3394,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("atan2",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3395,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21266,3396,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3397,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,3398,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_ATAN2(y, x)",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3399,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3400,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3402,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Hypot",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3403,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,3404,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("hypot",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3405,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21266,3406,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3407,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,3408,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_HYPOT(x, y)",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3409,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3410,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3412,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Asin",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3413,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,3414,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("asin",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3415,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,3416,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3417,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,3418,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_ASIN(sine_value!)",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3419,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3420,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3422,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Acos",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3423,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,3424,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("acos",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3425,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,3426,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3427,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,3428,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_ACOS(cosine_value!)",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3429,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3430,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3432,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Sinh",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3433,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,3434,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sinh",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3435,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,3436,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3437,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,3438,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SINH(value)",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3439,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3440,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3442,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Cosh",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3443,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,3444,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("cosh",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3445,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,3446,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3447,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,3448,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_COSH(value)",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3449,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3450,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3452,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Tanh",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3453,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,3454,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("tanh",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3455,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,3456,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3457,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,3458,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_TANH(value)",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3459,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3460,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3462,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Asinh",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3463,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,3464,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("asinh",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3465,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,3466,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3467,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,3468,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_ASINH(value)",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3469,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3470,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3472,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Acosh",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3473,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,3474,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("acosh",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3475,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,3476,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3477,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,3478,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_ACOSH(value)",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3479,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3480,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3482,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Atanh",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3483,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,3484,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("atanh",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3485,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,3486,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3487,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,3488,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_ATANH(value)",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3489,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3490,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3492,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Ceil",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3493,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,3494,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("ceil",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3495,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,3496,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3497,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,3498,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_CEIL(expression)",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3499,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3500,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3502,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Pi",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3503,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,3504,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_pi",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3505,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,3506,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3507,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,3508,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3509,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_PI[(multiplier)]",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3510,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3511,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3513,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("DesktopHeight",13))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3514,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,3515,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_screenheight",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3516,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 0 ; +if(!qbevent)break;evnt(21266,3517,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,3518,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_DESKTOPHEIGHT",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3519,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3520,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3522,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("DesktopWidth",12))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3523,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,3524,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_screenwidth",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3525,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 0 ; +if(!qbevent)break;evnt(21266,3526,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,3527,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_DESKTOPWIDTH",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3528,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3529,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3531,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ScreenIcon",10))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3532,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,3533,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub_screenicon",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3534,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SCREENICON",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3535,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3536,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3538,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ScreenExists",12))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3539,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,3540,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_windowexists",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3541,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SCREENEXISTS",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3542,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3543,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3545,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ControlChr",10))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3546,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,3547,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__controlchr",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3548,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 0 ; +if(!qbevent)break;evnt(21266,3549,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,3550,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_CONTROLCHR",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3551,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3552,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3554,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("StriCmp",7))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3555,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,3556,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__str_nc_compare",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3557,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21266,3558,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3559,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,3560,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_STRICMP(string1$, string2$)",28)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3561,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3562,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3564,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("StrCmp",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3565,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,3566,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__str_compare",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3567,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21266,3568,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3569,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,3570,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_STRCMP(string1$, string2$)",27)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3571,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3572,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3574,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Arcsec",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3575,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,3576,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_arcsec",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3577,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,3578,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3579,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,3580,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_ARCSEC(value)",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3581,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3582,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3584,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Arccsc",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3585,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,3586,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_arccsc",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3587,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,3588,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3589,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,3590,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_ARCCSC(value)",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3591,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3592,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3594,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Arccot",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3595,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,3596,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_arccot",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3597,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,3598,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3599,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,3600,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_ARCCOT(value)",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3601,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3602,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3604,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Sech",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3605,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,3606,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_sech",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3607,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,3608,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3609,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,3610,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SECH(value)",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3611,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3612,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3614,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Csch",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3615,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,3616,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_csch",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3617,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,3618,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3619,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,3620,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_CSCH(value)",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3621,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3622,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3624,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Coth",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3625,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,3626,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_coth",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3627,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,3628,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3629,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,3630,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_COTH(value)",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3631,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3632,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3634,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Sec",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3635,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,3636,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_sec",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3637,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,3638,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3639,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,3640,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SEC(value)",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3641,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3642,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3644,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Csc",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3645,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,3646,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_csc",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3647,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,3648,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3649,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,3650,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_CSC(value)",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3651,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3652,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3654,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Cot",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3655,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,3656,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_cot",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3657,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,3658,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_FLOATTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3659,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,3660,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_COT(value)",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3661,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3662,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3664,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ScreenIcon",10))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3665,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,3666,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func_screenicon",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3667,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 0 ; +if(!qbevent)break;evnt(21266,3668,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,3669,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SCREENICON",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3670,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3671,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3673,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("AutoDisplay",11))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3674,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,3675,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__autodisplay",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3676,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 0 ; +if(!qbevent)break;evnt(21266,3677,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,3678,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_AUTODISPLAY",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3679,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3680,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3682,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ShR",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3683,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,3684,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__shr",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3685,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21266,3686,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3687,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,3688,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SHR(numericalVariable, numericalValue)",39)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3689,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3690,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3692,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ShL",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3693,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,3694,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__shl",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3695,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21266,3696,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3697,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,3698,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SHL(numericalVariable, numericalValue)",39)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3699,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3700,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3703,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("RoL",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3704,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,3705,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21266,3706,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3707,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,3708,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_ROL(numericalVariable, numericalValue)",39)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3709,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3710,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3712,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("RoR",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3713,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,3714,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21266,3715,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3716,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,3717,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_ROR(numericalVariable, numericalValue)",39)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3718,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3719,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3722,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Deflate",7))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3723,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 13 ; +if(!qbevent)break;evnt(21266,3724,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3725,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,3726,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__deflate",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3727,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,3728,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3729,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,3730,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_DEFLATE$(stringToCompress$)",28)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3731,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3732,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3734,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Inflate",7))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3735,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(546))= 13 ; +if(!qbevent)break;evnt(21266,3736,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3737,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,3738,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__inflate",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3739,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21266,3740,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3741,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,?]",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3742,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,3743,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_INFLATE$(stringToDecompress$[, originalSize&])",47)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3744,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3745,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3747,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("CInp",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3748,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,3749,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__cinp",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3750,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,3751,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3752,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?]",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3753,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,3754,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_CINP",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3755,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3756,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3758,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("CapsLock",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3759,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,3760,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__capslock",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3761,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 0 ; +if(!qbevent)break;evnt(21266,3762,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,3763,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_CAPSLOCK",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3764,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3765,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3767,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ScrollLock",10))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3768,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,3769,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__scrolllock",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3770,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 0 ; +if(!qbevent)break;evnt(21266,3771,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,3772,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SCROLLLOCK",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3773,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3774,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3776,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("NumLock",7))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3777,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,3778,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__numlock",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3779,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 0 ; +if(!qbevent)break;evnt(21266,3780,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,3781,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_NUMLOCK",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3782,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3783,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3785,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("CapsLock",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3786,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,3787,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__capslock",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3788,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3789,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,3790,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("{On|Off|_Toggle}",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3791,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_CAPSLOCK {On|Off|_Toggle}",26)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3792,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3793,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3795,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Scrolllock",10))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3796,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,3797,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__scrolllock",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3798,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3799,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,3800,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("{On|Off|_Toggle}",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3801,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SCROLLLOCK {On|Off|_Toggle}",28)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3802,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3803,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3805,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("Numlock",7))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3806,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,3807,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__numlock",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3808,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3809,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21266,3810,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("{On|Off|_Toggle}",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3811,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_NUMLOCK {On|Off|_Toggle}",25)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3812,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3813,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3815,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ConsoleFont",11))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3816,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,3817,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__consolefont",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3818,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21266,3819,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_INTEGERTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3820,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_CONSOLEFONT fontFile$",22)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3821,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3822,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3824,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ConsoleCursor",13))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3825,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,3826,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__console_cursor",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3827,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21266,3828,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3829,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[{_Show|_Hide}][,?]",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3830,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_CONSOLECURSOR {_Show|_Hide}[, size%]",37)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3831,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3832,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3834,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ConsoleInput",12))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3835,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,3836,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__getconsoleinput",21)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3837,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 0 ; +if(!qbevent)break;evnt(21266,3838,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,3839,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_CONSOLEINPUT",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3840,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3841,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3843,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ReadBit",7))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3844,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,3845,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__readbit",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3846,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21266,3847,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3848,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,3849,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_READBIT(numericalVariable, numericalValue)",43)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3850,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3851,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3853,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("SetBit",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3854,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,3855,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__setbit",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3856,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21266,3857,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3858,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,3859,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SETBIT(numericalVariable, numericalValue)",42)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3860,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3861,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3863,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ResetBit",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3864,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,3865,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__resetbit",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3866,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21266,3867,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3868,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,3869,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_RESETBIT(numericalVariable, numericalValue)",44)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3870,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3871,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3873,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ToggleBit",9))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3874,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,3875,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__togglebit",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3876,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21266,3877,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3878,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,3879,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_TOGGLEBIT(numericalVariable, numericalValue)",45)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3880,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3881,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3884,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("NotifyPopup",11))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3885,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,3886,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__guiNotifyPopup",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3887,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 3 ; +if(!qbevent)break;evnt(21266,3888,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3889,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?][,[?][,?]]",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3890,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_NOTIFYPOPUP [title$][, message$][, iconType$]",46)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3891,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3893,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3894,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MessageBox",10))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3895,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(21266,3896,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("sub__guiMessageBox",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3897,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 3 ; +if(!qbevent)break;evnt(21266,3898,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3899,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("[?][,[?][,?]]",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3900,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_MESSAGEBOX [title$][, message$][, iconType$]",45)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3901,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3902,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3904,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("SelectFolderDialog",18))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3905,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3906,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,3907,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__guiSelectFolderDialog",27)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3908,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21266,3909,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3910,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,?]",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3911,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,3912,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SELECTFOLDERDIALOG$(title$[, defaultPath$])",44)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3913,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3914,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3916,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("ColorChooserDialog",18))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3917,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,3918,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__guiColorChooserDialog",27)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3919,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 2 ; +if(!qbevent)break;evnt(21266,3920,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_ULONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3921,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?[,?]",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3922,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_ULONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,3923,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_COLORCHOOSERDIALOG&(title$[, defaultRGB&])",43)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3924,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3925,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3927,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("MessageBox",10))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3928,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,3929,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__guiMessageBox",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3930,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 5 ; +if(!qbevent)break;evnt(21266,3931,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(qbs_add(l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3932,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?,?,?,?[,?]",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3933,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,3934,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_MESSAGEBOX&(title$, message$, dialogType$, iconType$[, defaultButton&])",72)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3935,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3936,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3938,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("InputBox",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3939,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3940,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,3941,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__guiInputBox",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3942,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 3 ; +if(!qbevent)break;evnt(21266,3943,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3944,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?,?[,?]",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3945,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,3946,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_INPUTBOX$(title$, message$[, defaultInput$])",45)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3947,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3948,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3950,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("OpenFileDialog",14))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3951,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3952,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,3953,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__guiOpenFileDialog",23)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3954,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 5 ; +if(!qbevent)break;evnt(21266,3955,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(qbs_add(l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3956,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(1613)),256,1),qbs_new_txt_len("?,?,?,?[,?]",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3957,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,3958,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_OPENFILEDIALOG$(title$, defaultPathAndFile$, filterPatterns$, singleFilterDescription$[, allowMultipleSelects&])",113)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3959,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3960,"subs_functions.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21266,3962,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("SaveFileDialog",14))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3963,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1),qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3964,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21266,3965,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__guiSaveFileDialog",23)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3966,"subs_functions.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 4 ; +if(!qbevent)break;evnt(21266,3967,"subs_functions.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER)),l2string(*__LONG_STRINGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3968,"subs_functions.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21266,3969,"subs_functions.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_SAVEFILEDIALOG$(title$, defaultPathAndFile$, filterPatterns$, singleFilterDescription$)",88)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21266,3970,"subs_functions.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21266,3971,"subs_functions.bas");}while(r); +do{ +*__LONG_REGINTERNALSUBFUNC= 0 ; +if(!qbevent)break;evnt(21267);}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free35.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +void SUB_REGUNSTABLEHTTP(){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data36.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +*__LONG_REGINTERNALSUBFUNC= 1 ; +if(!qbevent)break;evnt(21271);}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(21273);}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("StatusCode",10))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21274);}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 1 ; +if(!qbevent)break;evnt(21275);}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("func__statusCode",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21276);}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 1 ; +if(!qbevent)break;evnt(21277);}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),l2string(*__LONG_LONGTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21278);}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21279);}while(r); +do{ +qbs_set(*((qbs**)((char*)(__UDT_ID)+(2861))),qbs_new_txt_len("_STATUSCODE(httpHandle&)",24)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21280);}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21281);}while(r); +S_28756:; +if ((*__LONG_QB64PREFIX_SET)||new_error){ +if(qbevent){evnt(21284);if(r)goto S_28756;} +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_new_txt_len("_StatusCode",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21285);}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(21286);}while(r); +} +do{ +*__LONG_REGINTERNALSUBFUNC= 0 ; +if(!qbevent)break;evnt(21289);}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free36.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +int32 FUNC_SYMBOLTYPE(qbs*_FUNC_SYMBOLTYPE_STRING_S){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data37.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +S_28761:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_SYMBOLTYPE_STRING_S->len== 0 )))||new_error){ +if(qbevent){evnt(21298);if(r)goto S_28761;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21298);}while(r); +} +do{ +*_FUNC_SYMBOLTYPE_LONG_A=qbs_asc(_FUNC_SYMBOLTYPE_STRING_S); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21300);}while(r); +do{ +*_FUNC_SYMBOLTYPE_LONG_L=_FUNC_SYMBOLTYPE_STRING_S->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21301);}while(r); +S_28766:; +if ((-(*_FUNC_SYMBOLTYPE_LONG_A== 37 ))||new_error){ +if(qbevent){evnt(21302);if(r)goto S_28766;} +S_28767:; +if ((-(*_FUNC_SYMBOLTYPE_LONG_L== 1 ))||new_error){ +if(qbevent){evnt(21303);if(r)goto S_28767;} +do{ +*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 16 ; +if(!qbevent)break;evnt(21303);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21303);}while(r); +} +S_28771:; +if ((-(*_FUNC_SYMBOLTYPE_LONG_L> 2 ))||new_error){ +if(qbevent){evnt(21304);if(r)goto S_28771;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21304);}while(r); +} +S_28774:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_SYMBOLTYPE_STRING_S, 2 )== 37 )))||new_error){ +if(qbevent){evnt(21305);if(r)goto S_28774;} +do{ +*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 8 ; +if(!qbevent)break;evnt(21305);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21305);}while(r); +} +S_28778:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_SYMBOLTYPE_STRING_S, 2 )== 38 )))||new_error){ +if(qbevent){evnt(21306);if(r)goto S_28778;} +do{ +*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21306);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21306);}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21307);}while(r); +} +S_28784:; +if ((-(*_FUNC_SYMBOLTYPE_LONG_A== 38 ))||new_error){ +if(qbevent){evnt(21309);if(r)goto S_28784;} +S_28785:; +if ((-(*_FUNC_SYMBOLTYPE_LONG_L== 1 ))||new_error){ +if(qbevent){evnt(21310);if(r)goto S_28785;} +do{ +*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 32 ; +if(!qbevent)break;evnt(21310);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21310);}while(r); +} +S_28789:; +if ((-(*_FUNC_SYMBOLTYPE_LONG_L> 2 ))||new_error){ +if(qbevent){evnt(21311);if(r)goto S_28789;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21311);}while(r); +} +S_28792:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_SYMBOLTYPE_STRING_S, 2 )== 38 )))||new_error){ +if(qbevent){evnt(21312);if(r)goto S_28792;} +do{ +*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 64 ; +if(!qbevent)break;evnt(21312);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21312);}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21313);}while(r); +} +S_28798:; +if ((-(*_FUNC_SYMBOLTYPE_LONG_A== 33 ))||new_error){ +if(qbevent){evnt(21315);if(r)goto S_28798;} +S_28799:; +if ((-(*_FUNC_SYMBOLTYPE_LONG_L== 1 ))||new_error){ +if(qbevent){evnt(21316);if(r)goto S_28799;} +do{ +*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 32 +*__LONG_ISFLOAT; +if(!qbevent)break;evnt(21316);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21316);}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21317);}while(r); +} +S_28805:; +if ((-(*_FUNC_SYMBOLTYPE_LONG_A== 35 ))||new_error){ +if(qbevent){evnt(21319);if(r)goto S_28805;} +S_28806:; +if ((-(*_FUNC_SYMBOLTYPE_LONG_L== 1 ))||new_error){ +if(qbevent){evnt(21320);if(r)goto S_28806;} +do{ +*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 64 +*__LONG_ISFLOAT; +if(!qbevent)break;evnt(21320);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21320);}while(r); +} +S_28810:; +if ((-(*_FUNC_SYMBOLTYPE_LONG_L> 2 ))||new_error){ +if(qbevent){evnt(21321);if(r)goto S_28810;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21321);}while(r); +} +S_28813:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_SYMBOLTYPE_STRING_S, 2 )== 35 )))||new_error){ +if(qbevent){evnt(21322);if(r)goto S_28813;} +do{ +*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 64 +*__LONG_ISFLOAT; +if(!qbevent)break;evnt(21322);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21322);}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21323);}while(r); +} +S_28819:; +if ((-(*_FUNC_SYMBOLTYPE_LONG_A== 36 ))||new_error){ +if(qbevent){evnt(21325);if(r)goto S_28819;} +S_28820:; +if ((-(*_FUNC_SYMBOLTYPE_LONG_L== 1 ))||new_error){ +if(qbevent){evnt(21326);if(r)goto S_28820;} +do{ +*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE=*__LONG_ISSTRING; +if(!qbevent)break;evnt(21326);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21326);}while(r); +} +S_28824:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_ISUINTEGER(qbs_right(_FUNC_SYMBOLTYPE_STRING_S,*_FUNC_SYMBOLTYPE_LONG_L- 1 ))))||new_error){ +if(qbevent){evnt(21327);if(r)goto S_28824;} +S_28825:; +if ((-(*_FUNC_SYMBOLTYPE_LONG_L>=( 1 + 10 )))||new_error){ +if(qbevent){evnt(21328);if(r)goto S_28825;} +S_28826:; +if ((-(*_FUNC_SYMBOLTYPE_LONG_L>( 1 + 10 )))||new_error){ +if(qbevent){evnt(21329);if(r)goto S_28826;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21329);}while(r); +} +S_28829:; +if ((qbs_cleanup(qbs_tmp_base,qbs_greaterthan(_FUNC_SYMBOLTYPE_STRING_S,qbs_new_txt_len("$2147483647",11))))||new_error){ +if(qbevent){evnt(21330);if(r)goto S_28829;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21330);}while(r); +} +} +do{ +*__LONG_SYMBOLTYPE_SIZE=qbr(func_val(qbs_right(_FUNC_SYMBOLTYPE_STRING_S,*_FUNC_SYMBOLTYPE_LONG_L- 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21332);}while(r); +do{ +*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE=*__LONG_ISSTRING+*__LONG_ISFIXEDLENGTH; +if(!qbevent)break;evnt(21333);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21334);}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21336);}while(r); +} +S_28839:; +if ((-(*_FUNC_SYMBOLTYPE_LONG_A== 96 ))||new_error){ +if(qbevent){evnt(21338);if(r)goto S_28839;} +S_28840:; +if ((-(*_FUNC_SYMBOLTYPE_LONG_L== 1 ))||new_error){ +if(qbevent){evnt(21339);if(r)goto S_28840;} +do{ +*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 1 +*__LONG_ISOFFSETINBITS; +if(!qbevent)break;evnt(21339);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21339);}while(r); +} +S_28844:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_ISUINTEGER(qbs_right(_FUNC_SYMBOLTYPE_STRING_S,*_FUNC_SYMBOLTYPE_LONG_L- 1 ))))||new_error){ +if(qbevent){evnt(21340);if(r)goto S_28844;} +S_28845:; +if ((-(*_FUNC_SYMBOLTYPE_LONG_L> 3 ))||new_error){ +if(qbevent){evnt(21341);if(r)goto S_28845;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21341);}while(r); +} +do{ +*_FUNC_SYMBOLTYPE_LONG_N=qbr(func_val(qbs_right(_FUNC_SYMBOLTYPE_STRING_S,*_FUNC_SYMBOLTYPE_LONG_L- 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21342);}while(r); +S_28849:; +if ((-(*_FUNC_SYMBOLTYPE_LONG_N> 64 ))||new_error){ +if(qbevent){evnt(21343);if(r)goto S_28849;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21343);}while(r); +} +do{ +*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE=*_FUNC_SYMBOLTYPE_LONG_N+*__LONG_ISOFFSETINBITS; +if(!qbevent)break;evnt(21344);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21344);}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21346);}while(r); +} +S_28857:; +if ((-(*_FUNC_SYMBOLTYPE_LONG_A== 126 ))||new_error){ +if(qbevent){evnt(21348);if(r)goto S_28857;} +S_28858:; +if ((-(*_FUNC_SYMBOLTYPE_LONG_L== 1 ))||new_error){ +if(qbevent){evnt(21349);if(r)goto S_28858;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21349);}while(r); +} +do{ +*_FUNC_SYMBOLTYPE_LONG_A=qbs_asc(_FUNC_SYMBOLTYPE_STRING_S, 2 ); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21350);}while(r); +S_28862:; +if ((-(*_FUNC_SYMBOLTYPE_LONG_A== 37 ))||new_error){ +if(qbevent){evnt(21351);if(r)goto S_28862;} +S_28863:; +if ((-(*_FUNC_SYMBOLTYPE_LONG_L== 2 ))||new_error){ +if(qbevent){evnt(21352);if(r)goto S_28863;} +do{ +*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 16 +*__LONG_ISUNSIGNED; +if(!qbevent)break;evnt(21352);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21352);}while(r); +} +S_28867:; +if ((-(*_FUNC_SYMBOLTYPE_LONG_L> 3 ))||new_error){ +if(qbevent){evnt(21353);if(r)goto S_28867;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21353);}while(r); +} +S_28870:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_SYMBOLTYPE_STRING_S, 3 )== 37 )))||new_error){ +if(qbevent){evnt(21354);if(r)goto S_28870;} +do{ +*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 8 +*__LONG_ISUNSIGNED; +if(!qbevent)break;evnt(21354);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21354);}while(r); +} +S_28874:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_SYMBOLTYPE_STRING_S, 3 )== 38 )))||new_error){ +if(qbevent){evnt(21355);if(r)goto S_28874;} +do{ +*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE=*__LONG_UOFFSETTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(21355);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21355);}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21356);}while(r); +} +S_28880:; +if ((-(*_FUNC_SYMBOLTYPE_LONG_A== 38 ))||new_error){ +if(qbevent){evnt(21358);if(r)goto S_28880;} +S_28881:; +if ((-(*_FUNC_SYMBOLTYPE_LONG_L== 2 ))||new_error){ +if(qbevent){evnt(21359);if(r)goto S_28881;} +do{ +*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 32 +*__LONG_ISUNSIGNED; +if(!qbevent)break;evnt(21359);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21359);}while(r); +} +S_28885:; +if ((-(*_FUNC_SYMBOLTYPE_LONG_L> 3 ))||new_error){ +if(qbevent){evnt(21360);if(r)goto S_28885;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21360);}while(r); +} +S_28888:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_SYMBOLTYPE_STRING_S, 3 )== 38 )))||new_error){ +if(qbevent){evnt(21361);if(r)goto S_28888;} +do{ +*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 64 +*__LONG_ISUNSIGNED; +if(!qbevent)break;evnt(21361);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21361);}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21362);}while(r); +} +S_28894:; +if ((-(*_FUNC_SYMBOLTYPE_LONG_A== 96 ))||new_error){ +if(qbevent){evnt(21364);if(r)goto S_28894;} +S_28895:; +if ((-(*_FUNC_SYMBOLTYPE_LONG_L== 2 ))||new_error){ +if(qbevent){evnt(21365);if(r)goto S_28895;} +do{ +*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE= 1 +*__LONG_ISOFFSETINBITS+*__LONG_ISUNSIGNED; +if(!qbevent)break;evnt(21365);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21365);}while(r); +} +S_28899:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_ISUINTEGER(qbs_right(_FUNC_SYMBOLTYPE_STRING_S,*_FUNC_SYMBOLTYPE_LONG_L- 2 ))))||new_error){ +if(qbevent){evnt(21366);if(r)goto S_28899;} +S_28900:; +if ((-(*_FUNC_SYMBOLTYPE_LONG_L> 4 ))||new_error){ +if(qbevent){evnt(21367);if(r)goto S_28900;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21367);}while(r); +} +do{ +*_FUNC_SYMBOLTYPE_LONG_N=qbr(func_val(qbs_right(_FUNC_SYMBOLTYPE_STRING_S,*_FUNC_SYMBOLTYPE_LONG_L- 2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21368);}while(r); +S_28904:; +if ((-(*_FUNC_SYMBOLTYPE_LONG_N> 64 ))||new_error){ +if(qbevent){evnt(21369);if(r)goto S_28904;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21369);}while(r); +} +do{ +*_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE=*_FUNC_SYMBOLTYPE_LONG_N+*__LONG_ISOFFSETINBITS+*__LONG_ISUNSIGNED; +if(!qbevent)break;evnt(21370);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21370);}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21372);}while(r); +} +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free37.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +return *_FUNC_SYMBOLTYPE_LONG_SYMBOLTYPE; +} +qbs* FUNC_REMOVESYMBOL(qbs*_FUNC_REMOVESYMBOL_STRING_VARNAME){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data38.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +*_FUNC_REMOVESYMBOL_LONG_I=func_instr(NULL,_FUNC_REMOVESYMBOL_STRING_VARNAME,qbs_new_txt_len("~",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21378);}while(r); +S_28914:; +if ((*_FUNC_REMOVESYMBOL_LONG_I)||new_error){ +if(qbevent){evnt(21378);if(r)goto S_28914;} +do{ +goto LABEL_FOUNDSYMBOL; +if(!qbevent)break;evnt(21378);}while(r); +} +do{ +*_FUNC_REMOVESYMBOL_LONG_I=func_instr(NULL,_FUNC_REMOVESYMBOL_STRING_VARNAME,qbs_new_txt_len("`",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21379);}while(r); +S_28918:; +if ((*_FUNC_REMOVESYMBOL_LONG_I)||new_error){ +if(qbevent){evnt(21379);if(r)goto S_28918;} +do{ +goto LABEL_FOUNDSYMBOL; +if(!qbevent)break;evnt(21379);}while(r); +} +do{ +*_FUNC_REMOVESYMBOL_LONG_I=func_instr(NULL,_FUNC_REMOVESYMBOL_STRING_VARNAME,qbs_new_txt_len("%",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21380);}while(r); +S_28922:; +if ((*_FUNC_REMOVESYMBOL_LONG_I)||new_error){ +if(qbevent){evnt(21380);if(r)goto S_28922;} +do{ +goto LABEL_FOUNDSYMBOL; +if(!qbevent)break;evnt(21380);}while(r); +} +do{ +*_FUNC_REMOVESYMBOL_LONG_I=func_instr(NULL,_FUNC_REMOVESYMBOL_STRING_VARNAME,qbs_new_txt_len("&",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21381);}while(r); +S_28926:; +if ((*_FUNC_REMOVESYMBOL_LONG_I)||new_error){ +if(qbevent){evnt(21381);if(r)goto S_28926;} +do{ +goto LABEL_FOUNDSYMBOL; +if(!qbevent)break;evnt(21381);}while(r); +} +do{ +*_FUNC_REMOVESYMBOL_LONG_I=func_instr(NULL,_FUNC_REMOVESYMBOL_STRING_VARNAME,qbs_new_txt_len("!",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21382);}while(r); +S_28930:; +if ((*_FUNC_REMOVESYMBOL_LONG_I)||new_error){ +if(qbevent){evnt(21382);if(r)goto S_28930;} +do{ +goto LABEL_FOUNDSYMBOL; +if(!qbevent)break;evnt(21382);}while(r); +} +do{ +*_FUNC_REMOVESYMBOL_LONG_I=func_instr(NULL,_FUNC_REMOVESYMBOL_STRING_VARNAME,qbs_new_txt_len("#",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21383);}while(r); +S_28934:; +if ((*_FUNC_REMOVESYMBOL_LONG_I)||new_error){ +if(qbevent){evnt(21383);if(r)goto S_28934;} +do{ +goto LABEL_FOUNDSYMBOL; +if(!qbevent)break;evnt(21383);}while(r); +} +do{ +*_FUNC_REMOVESYMBOL_LONG_I=func_instr(NULL,_FUNC_REMOVESYMBOL_STRING_VARNAME,qbs_new_txt_len("$",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21384);}while(r); +S_28938:; +if ((*_FUNC_REMOVESYMBOL_LONG_I)||new_error){ +if(qbevent){evnt(21384);if(r)goto S_28938;} +do{ +goto LABEL_FOUNDSYMBOL; +if(!qbevent)break;evnt(21384);}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21385);}while(r); +LABEL_FOUNDSYMBOL:; +if(qbevent){evnt(21386);r=0;} +S_28942:; +if ((-(*_FUNC_REMOVESYMBOL_LONG_I== 1 ))||new_error){ +if(qbevent){evnt(21387);if(r)goto S_28942;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected variable name before symbol",36)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21387);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21387);}while(r); +} +do{ +qbs_set(_FUNC_REMOVESYMBOL_STRING_SYMBOL,qbs_right(_FUNC_REMOVESYMBOL_STRING_VARNAME,_FUNC_REMOVESYMBOL_STRING_VARNAME->len-*_FUNC_REMOVESYMBOL_LONG_I+ 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21388);}while(r); +S_28947:; +if ((qbs_cleanup(qbs_tmp_base,-(FUNC_SYMBOLTYPE(_FUNC_REMOVESYMBOL_STRING_SYMBOL)== 0 )))||new_error){ +if(qbevent){evnt(21389);if(r)goto S_28947;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Invalid symbol",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21389);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21389);}while(r); +} +do{ +qbs_set(_FUNC_REMOVESYMBOL_STRING_REMOVESYMBOL,_FUNC_REMOVESYMBOL_STRING_SYMBOL); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21390);}while(r); +do{ +qbs_set(_FUNC_REMOVESYMBOL_STRING_VARNAME,qbs_left(_FUNC_REMOVESYMBOL_STRING_VARNAME,*_FUNC_REMOVESYMBOL_LONG_I- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21391);}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free38.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_REMOVESYMBOL_STRING_REMOVESYMBOL);return _FUNC_REMOVESYMBOL_STRING_REMOVESYMBOL; +} +qbs* FUNC_SCOPE(){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data39.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +S_28953:; +if ((*(int16*)(((char*)__UDT_ID)+(2645)))||new_error){ +if(qbevent){evnt(21395);if(r)goto S_28953;} +do{ +qbs_set(_FUNC_SCOPE_STRING_SCOPE,qbs_add(__STRING_MODULE,qbs_new_txt_len("__",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21395);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21395);}while(r); +} +do{ +qbs_set(_FUNC_SCOPE_STRING_SCOPE,qbs_add(qbs_add(qbs_add(__STRING_MODULE,qbs_new_txt_len("_",1)),__STRING_SUBFUNC),qbs_new_txt_len("_",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21396);}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free39.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_SCOPE_STRING_SCOPE);return _FUNC_SCOPE_STRING_SCOPE; +} +int32 FUNC_SEPERATEARGS(qbs*_FUNC_SEPERATEARGS_STRING_A,qbs*_FUNC_SEPERATEARGS_STRING_CA,int32*_FUNC_SEPERATEARGS_LONG_PASS){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data40.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +*_FUNC_SEPERATEARGS_LONG_PASS= 0 ; +if(!qbevent)break;evnt(21400);}while(r); +S_28959:; +fornext_value3043= 1 ; +fornext_finalvalue3043=*__LONG_OPTMAX; +fornext_step3043= 1 ; +if (fornext_step3043<0) fornext_step_negative3043=1; else fornext_step_negative3043=0; +if (new_error) goto fornext_error3043; +goto fornext_entrylabel3043; +while(1){ +fornext_value3043=fornext_step3043+(*_FUNC_SEPERATEARGS_LONG_I); +fornext_entrylabel3043: +*_FUNC_SEPERATEARGS_LONG_I=fornext_value3043; +if (fornext_step_negative3043){ +if (fornext_value3043fornext_finalvalue3043) break; +} +fornext_error3043:; +if(qbevent){evnt(21402);if(r)goto S_28959;} +do{ +tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_STRING_SEPARGS[4],__ARRAY_STRING_SEPARGS[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS[0]))[tmp_long])),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21402);}while(r); +fornext_continue_3042:; +} +fornext_exit_3042:; +S_28962:; +fornext_value3045= 1 ; +fornext_finalvalue3045=*__LONG_OPTMAX+ 1 ; +fornext_step3045= 1 ; +if (fornext_step3045<0) fornext_step_negative3045=1; else fornext_step_negative3045=0; +if (new_error) goto fornext_error3045; +goto fornext_entrylabel3045; +while(1){ +fornext_value3045=fornext_step3045+(*_FUNC_SEPERATEARGS_LONG_I); +fornext_entrylabel3045: +*_FUNC_SEPERATEARGS_LONG_I=fornext_value3045; +if (fornext_step_negative3045){ +if (fornext_value3045fornext_finalvalue3045) break; +} +fornext_error3045:; +if(qbevent){evnt(21403);if(r)goto S_28962;} +do{ +tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_STRING_SEPARGSLAYOUT[4],__ARRAY_STRING_SEPARGSLAYOUT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT[0]))[tmp_long])),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21403);}while(r); +fornext_continue_3044:; +} +fornext_exit_3044:; +S_28965:; +fornext_value3047= 1 ; +fornext_finalvalue3047=*__LONG_OPTMAX; +fornext_step3047= 1 ; +if (fornext_step3047<0) fornext_step_negative3047=1; else fornext_step_negative3047=0; +if (new_error) goto fornext_error3047; +goto fornext_entrylabel3047; +while(1){ +fornext_value3047=fornext_step3047+(*_FUNC_SEPERATEARGS_LONG_I); +fornext_entrylabel3047: +*_FUNC_SEPERATEARGS_LONG_I=fornext_value3047; +if (fornext_step_negative3047){ +if (fornext_value3047fornext_finalvalue3047) break; +} +fornext_error3047:; +if(qbevent){evnt(21404);if(r)goto S_28965;} +do{ +tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_INTEGER_LEV[4],__ARRAY_INTEGER_LEV[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_LEV[0]))[tmp_long]= 0 ; +if(!qbevent)break;evnt(21405);}while(r); +do{ +tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_INTEGER_ENTRYLEV[4],__ARRAY_INTEGER_ENTRYLEV[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_ENTRYLEV[0]))[tmp_long]= 0 ; +if(!qbevent)break;evnt(21406);}while(r); +do{ +tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_INTEGER_DITCHLEV[4],__ARRAY_INTEGER_DITCHLEV[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_DITCHLEV[0]))[tmp_long]= 0 ; +if(!qbevent)break;evnt(21407);}while(r); +do{ +tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_INTEGER_DONTPASS[4],__ARRAY_INTEGER_DONTPASS[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_DONTPASS[0]))[tmp_long]= 0 ; +if(!qbevent)break;evnt(21408);}while(r); +do{ +tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_INTEGER_TEMPLIST[4],__ARRAY_INTEGER_TEMPLIST[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_TEMPLIST[0]))[tmp_long]= 0 ; +if(!qbevent)break;evnt(21409);}while(r); +do{ +tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_LONG_PASSRULE[4],__ARRAY_LONG_PASSRULE[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_PASSRULE[0]))[tmp_long]= 0 ; +if(!qbevent)break;evnt(21410);}while(r); +do{ +tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_LONG_LEVELENTERED[4],__ARRAY_LONG_LEVELENTERED[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_LEVELENTERED[0]))[tmp_long]= 0 ; +if(!qbevent)break;evnt(21411);}while(r); +fornext_continue_3046:; +} +fornext_exit_3046:; +do{ +if(!qbevent)break;evnt(21414);}while(r); +do{ +memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 0),(((char*)__UDT_ID)+(0)+ 0), 256); +memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 256),(((char*)__UDT_ID)+(0)+ 256), 256); +memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 512),(((char*)__UDT_ID)+(0)+ 512), 4); +memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 516),(((char*)__UDT_ID)+(0)+ 516), 2); +memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 518),(((char*)__UDT_ID)+(0)+ 518), 2); +memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 520),(((char*)__UDT_ID)+(0)+ 520), 8); +memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 528),(((char*)__UDT_ID)+(0)+ 528), 8); +memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 536),(((char*)__UDT_ID)+(0)+ 536), 4); +memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 540),(((char*)__UDT_ID)+(0)+ 540), 4); +memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 544),(((char*)__UDT_ID)+(0)+ 544), 2); +memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 546),(((char*)__UDT_ID)+(0)+ 546), 2); +memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 548),(((char*)__UDT_ID)+(0)+ 548), 2); +memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 550),(((char*)__UDT_ID)+(0)+ 550), 256); +memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 806),(((char*)__UDT_ID)+(0)+ 806), 2); +memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 808),(((char*)__UDT_ID)+(0)+ 808), 1); +memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 809),(((char*)__UDT_ID)+(0)+ 809), 2); +memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 811),(((char*)__UDT_ID)+(0)+ 811), 2); +memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 813),(((char*)__UDT_ID)+(0)+ 813), 400); +memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 1213),(((char*)__UDT_ID)+(0)+ 1213), 400); +memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 1613),(((char*)__UDT_ID)+(0)+ 1613), 256); +memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 1869),(((char*)__UDT_ID)+(0)+ 1869), 256); +memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 2125),(((char*)__UDT_ID)+(0)+ 2125), 256); +memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 2381),(((char*)__UDT_ID)+(0)+ 2381), 4); +memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 2385),(((char*)__UDT_ID)+(0)+ 2385), 256); +memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 2641),(((char*)__UDT_ID)+(0)+ 2641), 4); +memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 2645),(((char*)__UDT_ID)+(0)+ 2645), 2); +memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 2647),(((char*)__UDT_ID)+(0)+ 2647), 100); +memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 2747),(((char*)__UDT_ID)+(0)+ 2747), 100); +memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 2847),(((char*)__UDT_ID)+(0)+ 2847), 4); +memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 2851),(((char*)__UDT_ID)+(0)+ 2851), 2); +memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 2853),(((char*)__UDT_ID)+(0)+ 2853), 2); +memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 2855),(((char*)__UDT_ID)+(0)+ 2855), 4); +memcpy((((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 2859),(((char*)__UDT_ID)+(0)+ 2859), 2); +qbs_set(*(qbs**)(((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(0)+ 2861), *(qbs**)(((char*)__UDT_ID)+(0)+ 2861)); +if(!qbevent)break;evnt(21416);}while(r); +S_28976:; +if ((-(*(int16*)(((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(809))== 0 ))||new_error){ +if(qbevent){evnt(21418);if(r)goto S_28976;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21418);}while(r); +} +do{ +qbs_set(_FUNC_SEPERATEARGS_STRING_S,qbs_new_fixed((((uint8*)_FUNC_SEPERATEARGS_UDT_ID2)+(1613)),256,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21421);}while(r); +do{ +qbs_set(_FUNC_SEPERATEARGS_STRING_S,qbs_rtrim(_FUNC_SEPERATEARGS_STRING_S)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21422);}while(r); +S_28981:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_SEPERATEARGS_STRING_S,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(21425);if(r)goto S_28981;} +S_28982:; +fornext_value3049= 1 ; +fornext_finalvalue3049=*(int16*)(((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(809)); +fornext_step3049= 1 ; +if (fornext_step3049<0) fornext_step_negative3049=1; else fornext_step_negative3049=0; +if (new_error) goto fornext_error3049; +goto fornext_entrylabel3049; +while(1){ +fornext_value3049=fornext_step3049+(*_FUNC_SEPERATEARGS_LONG_I); +fornext_entrylabel3049: +*_FUNC_SEPERATEARGS_LONG_I=fornext_value3049; +if (fornext_step_negative3049){ +if (fornext_value3049fornext_finalvalue3049) break; +} +fornext_error3049:; +if(qbevent){evnt(21426);if(r)goto S_28982;} +S_28983:; +if ((-(*_FUNC_SEPERATEARGS_LONG_I!= 1 ))||new_error){ +if(qbevent){evnt(21427);if(r)goto S_28983;} +do{ +qbs_set(_FUNC_SEPERATEARGS_STRING_S,qbs_add(_FUNC_SEPERATEARGS_STRING_S,qbs_new_txt_len(",?",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21427);}while(r); +}else{ +do{ +qbs_set(_FUNC_SEPERATEARGS_STRING_S,qbs_new_txt_len("?",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21427);}while(r); +} +fornext_continue_3048:; +} +fornext_exit_3048:; +} +do{ +*_FUNC_SEPERATEARGS_LONG_PASSFLAG= 1 ; +if(!qbevent)break;evnt(21433);}while(r); +do{ +*_FUNC_SEPERATEARGS_LONG_NEXTENTRYLEVEL= 0 ; +if(!qbevent)break;evnt(21434);}while(r); +do{ +*_FUNC_SEPERATEARGS_LONG_NEXTENTRYLEVELSET= 1 ; +if(!qbevent)break;evnt(21435);}while(r); +do{ +*_FUNC_SEPERATEARGS_LONG_LEVEL= 0 ; +if(!qbevent)break;evnt(21436);}while(r); +do{ +*_FUNC_SEPERATEARGS_LONG_LASTT= 0 ; +if(!qbevent)break;evnt(21437);}while(r); +do{ +*_FUNC_SEPERATEARGS_LONG_DITCHLEVEL= 0 ; +if(!qbevent)break;evnt(21438);}while(r); +S_28996:; +fornext_value3051= 1 ; +fornext_finalvalue3051=_FUNC_SEPERATEARGS_STRING_S->len; +fornext_step3051= 1 ; +if (fornext_step3051<0) fornext_step_negative3051=1; else fornext_step_negative3051=0; +if (new_error) goto fornext_error3051; +goto fornext_entrylabel3051; +while(1){ +fornext_value3051=fornext_step3051+(*_FUNC_SEPERATEARGS_LONG_I); +fornext_entrylabel3051: +*_FUNC_SEPERATEARGS_LONG_I=fornext_value3051; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative3051){ +if (fornext_value3051fornext_finalvalue3051) break; +} +fornext_error3051:; +if(qbevent){evnt(21439);if(r)goto S_28996;} +do{ +qbs_set(_FUNC_SEPERATEARGS_STRING_S2,func_mid(_FUNC_SEPERATEARGS_STRING_S,*_FUNC_SEPERATEARGS_LONG_I, 1 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21440);}while(r); +S_28998:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_SEPERATEARGS_STRING_S2,qbs_new_txt_len("[",1))))||new_error){ +if(qbevent){evnt(21442);if(r)goto S_28998;} +do{ +*_FUNC_SEPERATEARGS_LONG_LEVEL=*_FUNC_SEPERATEARGS_LONG_LEVEL+ 1 ; +if(!qbevent)break;evnt(21443);}while(r); +do{ +tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LEVEL)-__ARRAY_LONG_LEVELENTERED[4],__ARRAY_LONG_LEVELENTERED[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_LEVELENTERED[0]))[tmp_long]= 0 ; +if(!qbevent)break;evnt(21444);}while(r); +do{ +goto LABEL_NEXTSYMBOL; +if(!qbevent)break;evnt(21445);}while(r); +} +S_29003:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_SEPERATEARGS_STRING_S2,qbs_new_txt_len("]",1))))||new_error){ +if(qbevent){evnt(21448);if(r)goto S_29003;} +do{ +*_FUNC_SEPERATEARGS_LONG_LEVEL=*_FUNC_SEPERATEARGS_LONG_LEVEL- 1 ; +if(!qbevent)break;evnt(21449);}while(r); +S_29005:; +if ((-(*_FUNC_SEPERATEARGS_LONG_LEVEL<*_FUNC_SEPERATEARGS_LONG_DITCHLEVEL))||new_error){ +if(qbevent){evnt(21450);if(r)goto S_29005;} +do{ +*_FUNC_SEPERATEARGS_LONG_DITCHLEVEL=*_FUNC_SEPERATEARGS_LONG_LEVEL; +if(!qbevent)break;evnt(21450);}while(r); +} +do{ +goto LABEL_NEXTSYMBOL; +if(!qbevent)break;evnt(21451);}while(r); +} +S_29010:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_SEPERATEARGS_STRING_S2,qbs_new_txt_len("{",1))))||new_error){ +if(qbevent){evnt(21454);if(r)goto S_29010;} +do{ +*_FUNC_SEPERATEARGS_LONG_LASTT=*_FUNC_SEPERATEARGS_LONG_LASTT+ 1 ; +if(!qbevent)break;evnt(21455);}while(r); +do{ +tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_INTEGER_LEV[4],__ARRAY_INTEGER_LEV[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_LEV[0]))[tmp_long]=*_FUNC_SEPERATEARGS_LONG_LEVEL; +if(!qbevent)break;evnt(21455);}while(r); +do{ +tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_LONG_PASSRULE[4],__ARRAY_LONG_PASSRULE[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_PASSRULE[0]))[tmp_long]= 0 ; +if(!qbevent)break;evnt(21455);}while(r); +do{ +tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_INTEGER_DITCHLEV[4],__ARRAY_INTEGER_DITCHLEV[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_DITCHLEV[0]))[tmp_long]=*_FUNC_SEPERATEARGS_LONG_DITCHLEVEL; +if(!qbevent)break;evnt(21456);}while(r); +do{ +*_FUNC_SEPERATEARGS_LONG_DITCHLEVEL=*_FUNC_SEPERATEARGS_LONG_LEVEL; +if(!qbevent)break;evnt(21456);}while(r); +do{ +*_FUNC_SEPERATEARGS_LONG_I=*_FUNC_SEPERATEARGS_LONG_I+ 1 ; +if(!qbevent)break;evnt(21457);}while(r); +do{ +*_FUNC_SEPERATEARGS_LONG_I2=func_instr(*_FUNC_SEPERATEARGS_LONG_I,_FUNC_SEPERATEARGS_STRING_S,qbs_new_txt_len("}",1),0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21458);}while(r); +do{ +*_FUNC_SEPERATEARGS_LONG_NUMOPTS= 0 ; +if(!qbevent)break;evnt(21459);}while(r); +LABEL_NEXTOPT:; +if(qbevent){evnt(21460);r=0;} +do{ +*_FUNC_SEPERATEARGS_LONG_NUMOPTS=*_FUNC_SEPERATEARGS_LONG_NUMOPTS+ 1 ; +if(!qbevent)break;evnt(21461);}while(r); +do{ +*_FUNC_SEPERATEARGS_LONG_I3=func_instr(*_FUNC_SEPERATEARGS_LONG_I+ 1 ,_FUNC_SEPERATEARGS_STRING_S,qbs_new_txt_len("|",1),0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21462);}while(r); +S_29021:; +if (((-(*_FUNC_SEPERATEARGS_LONG_I3!= 0 ))&(-(*_FUNC_SEPERATEARGS_LONG_I3<*_FUNC_SEPERATEARGS_LONG_I2)))||new_error){ +if(qbevent){evnt(21463);if(r)goto S_29021;} +do{ +tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_STRING256_OPT[8],__ARRAY_STRING256_OPT[9])+array_check((*_FUNC_SEPERATEARGS_LONG_NUMOPTS)-__ARRAY_STRING256_OPT[4],__ARRAY_STRING256_OPT[5])*__ARRAY_STRING256_OPT[6]; +if (!new_error) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_OPT[0]))[tmp_long*256],256,1),func_mid(_FUNC_SEPERATEARGS_STRING_S,*_FUNC_SEPERATEARGS_LONG_I,*_FUNC_SEPERATEARGS_LONG_I3-*_FUNC_SEPERATEARGS_LONG_I,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21464);}while(r); +do{ +*_FUNC_SEPERATEARGS_LONG_I=*_FUNC_SEPERATEARGS_LONG_I3+ 1 ; +if(!qbevent)break;evnt(21465);}while(r); +do{ +goto LABEL_NEXTOPT; +if(!qbevent)break;evnt(21465);}while(r); +} +do{ +tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_STRING256_OPT[8],__ARRAY_STRING256_OPT[9])+array_check((*_FUNC_SEPERATEARGS_LONG_NUMOPTS)-__ARRAY_STRING256_OPT[4],__ARRAY_STRING256_OPT[5])*__ARRAY_STRING256_OPT[6]; +if (!new_error) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_OPT[0]))[tmp_long*256],256,1),func_mid(_FUNC_SEPERATEARGS_STRING_S,*_FUNC_SEPERATEARGS_LONG_I,*_FUNC_SEPERATEARGS_LONG_I2-*_FUNC_SEPERATEARGS_LONG_I,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21467);}while(r); +do{ +tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_INTEGER_T[4],__ARRAY_INTEGER_T[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_T[0]))[tmp_long]=*_FUNC_SEPERATEARGS_LONG_NUMOPTS; +if(!qbevent)break;evnt(21468);}while(r); +S_29028:; +fornext_value3054= 1 ; +fornext_finalvalue3054=((int16*)(__ARRAY_INTEGER_T[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_INTEGER_T[4],__ARRAY_INTEGER_T[5])]; +fornext_step3054= 1 ; +if (fornext_step3054<0) fornext_step_negative3054=1; else fornext_step_negative3054=0; +if (new_error) goto fornext_error3054; +goto fornext_entrylabel3054; +while(1){ +fornext_value3054=fornext_step3054+(*_FUNC_SEPERATEARGS_LONG_X); +fornext_entrylabel3054: +*_FUNC_SEPERATEARGS_LONG_X=fornext_value3054; +if (fornext_step_negative3054){ +if (fornext_value3054fornext_finalvalue3054) break; +} +fornext_error3054:; +if(qbevent){evnt(21470);if(r)goto S_29028;} +do{ +*_FUNC_SEPERATEARGS_LONG_W= 1 ; +if(!qbevent)break;evnt(21471);}while(r); +do{ +*_FUNC_SEPERATEARGS_LONG_X2= 1 ; +if(!qbevent)break;evnt(21472);}while(r); +LABEL_NEWWORD:; +if(qbevent){evnt(21473);r=0;} +S_29031:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(*_FUNC_SEPERATEARGS_LONG_X2,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_OPT[0]))[(array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_STRING256_OPT[8],__ARRAY_STRING256_OPT[9])+array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_STRING256_OPT[4],__ARRAY_STRING256_OPT[5])*__ARRAY_STRING256_OPT[6])*256],256,1)),qbs_new_txt_len(" ",1),0|1)))||new_error){ +if(qbevent){evnt(21474);if(r)goto S_29031;} +do{ +*_FUNC_SEPERATEARGS_LONG_W=*_FUNC_SEPERATEARGS_LONG_W+ 1 ; +if(!qbevent)break;evnt(21474);}while(r); +do{ +*_FUNC_SEPERATEARGS_LONG_X2=func_instr(*_FUNC_SEPERATEARGS_LONG_X2,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_OPT[0]))[(array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_STRING256_OPT[8],__ARRAY_STRING256_OPT[9])+array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_STRING256_OPT[4],__ARRAY_STRING256_OPT[5])*__ARRAY_STRING256_OPT[6])*256],256,1)),qbs_new_txt_len(" ",1),0|1)+ 1 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21474);}while(r); +do{ +goto LABEL_NEWWORD; +if(!qbevent)break;evnt(21474);}while(r); +} +do{ +tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_INTEGER_OPTWORDS[8],__ARRAY_INTEGER_OPTWORDS[9])+array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_INTEGER_OPTWORDS[4],__ARRAY_INTEGER_OPTWORDS[5])*__ARRAY_INTEGER_OPTWORDS[6]; +if (!new_error) ((int16*)(__ARRAY_INTEGER_OPTWORDS[0]))[tmp_long]=*_FUNC_SEPERATEARGS_LONG_W; +if(!qbevent)break;evnt(21475);}while(r); +fornext_continue_3053:; +} +fornext_exit_3053:; +do{ +*_FUNC_SEPERATEARGS_LONG_I=*_FUNC_SEPERATEARGS_LONG_I2; +if(!qbevent)break;evnt(21477);}while(r); +do{ +tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_INTEGER_ENTRYLEV[4],__ARRAY_INTEGER_ENTRYLEV[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_ENTRYLEV[0]))[tmp_long]=*_FUNC_SEPERATEARGS_LONG_LEVEL; +if(!qbevent)break;evnt(21480);}while(r); +S_29040:; +if ((-(((int32*)(__ARRAY_LONG_LEVELENTERED[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_LEVEL)-__ARRAY_LONG_LEVELENTERED[4],__ARRAY_LONG_LEVELENTERED[5])]== 0 ))||new_error){ +if(qbevent){evnt(21481);if(r)goto S_29040;} +do{ +tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_INTEGER_ENTRYLEV[4],__ARRAY_INTEGER_ENTRYLEV[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_ENTRYLEV[0]))[tmp_long]= 0 ; +if(!qbevent)break;evnt(21482);}while(r); +S_29042:; +fornext_value3056= 1 ; +fornext_finalvalue3056=*_FUNC_SEPERATEARGS_LONG_LEVEL- 1 ; +fornext_step3056= 1 ; +if (fornext_step3056<0) fornext_step_negative3056=1; else fornext_step_negative3056=0; +if (new_error) goto fornext_error3056; +goto fornext_entrylabel3056; +while(1){ +fornext_value3056=fornext_step3056+(*_FUNC_SEPERATEARGS_LONG_I2); +fornext_entrylabel3056: +*_FUNC_SEPERATEARGS_LONG_I2=fornext_value3056; +if (fornext_step_negative3056){ +if (fornext_value3056fornext_finalvalue3056) break; +} +fornext_error3056:; +if(qbevent){evnt(21483);if(r)goto S_29042;} +S_29043:; +if ((-(((int32*)(__ARRAY_LONG_LEVELENTERED[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I2)-__ARRAY_LONG_LEVELENTERED[4],__ARRAY_LONG_LEVELENTERED[5])]== 1 ))||new_error){ +if(qbevent){evnt(21484);if(r)goto S_29043;} +do{ +tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_INTEGER_ENTRYLEV[4],__ARRAY_INTEGER_ENTRYLEV[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_ENTRYLEV[0]))[tmp_long]=*_FUNC_SEPERATEARGS_LONG_I2; +if(!qbevent)break;evnt(21484);}while(r); +} +fornext_continue_3055:; +} +fornext_exit_3055:; +} +do{ +tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LEVEL)-__ARRAY_LONG_LEVELENTERED[4],__ARRAY_LONG_LEVELENTERED[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_LEVELENTERED[0]))[tmp_long]= 1 ; +if(!qbevent)break;evnt(21487);}while(r); +do{ +goto LABEL_NEXTSYMBOL; +if(!qbevent)break;evnt(21489);}while(r); +} +S_29051:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_SEPERATEARGS_STRING_S2,qbs_new_txt_len("?",1))))||new_error){ +if(qbevent){evnt(21492);if(r)goto S_29051;} +do{ +*_FUNC_SEPERATEARGS_LONG_LASTT=*_FUNC_SEPERATEARGS_LONG_LASTT+ 1 ; +if(!qbevent)break;evnt(21493);}while(r); +do{ +tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_INTEGER_LEV[4],__ARRAY_INTEGER_LEV[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_LEV[0]))[tmp_long]=*_FUNC_SEPERATEARGS_LONG_LEVEL; +if(!qbevent)break;evnt(21493);}while(r); +do{ +tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_LONG_PASSRULE[4],__ARRAY_LONG_PASSRULE[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_PASSRULE[0]))[tmp_long]= 0 ; +if(!qbevent)break;evnt(21493);}while(r); +do{ +tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_INTEGER_DITCHLEV[4],__ARRAY_INTEGER_DITCHLEV[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_DITCHLEV[0]))[tmp_long]=*_FUNC_SEPERATEARGS_LONG_DITCHLEVEL; +if(!qbevent)break;evnt(21494);}while(r); +do{ +*_FUNC_SEPERATEARGS_LONG_DITCHLEVEL=*_FUNC_SEPERATEARGS_LONG_LEVEL; +if(!qbevent)break;evnt(21494);}while(r); +do{ +tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_INTEGER_T[4],__ARRAY_INTEGER_T[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_T[0]))[tmp_long]= 0 ; +if(!qbevent)break;evnt(21495);}while(r); +do{ +tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_INTEGER_ENTRYLEV[4],__ARRAY_INTEGER_ENTRYLEV[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_ENTRYLEV[0]))[tmp_long]=*_FUNC_SEPERATEARGS_LONG_LEVEL; +if(!qbevent)break;evnt(21497);}while(r); +S_29059:; +if ((-(((int32*)(__ARRAY_LONG_LEVELENTERED[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_LEVEL)-__ARRAY_LONG_LEVELENTERED[4],__ARRAY_LONG_LEVELENTERED[5])]== 0 ))||new_error){ +if(qbevent){evnt(21498);if(r)goto S_29059;} +do{ +tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_INTEGER_ENTRYLEV[4],__ARRAY_INTEGER_ENTRYLEV[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_ENTRYLEV[0]))[tmp_long]= 0 ; +if(!qbevent)break;evnt(21499);}while(r); +S_29061:; +fornext_value3058= 1 ; +fornext_finalvalue3058=*_FUNC_SEPERATEARGS_LONG_LEVEL- 1 ; +fornext_step3058= 1 ; +if (fornext_step3058<0) fornext_step_negative3058=1; else fornext_step_negative3058=0; +if (new_error) goto fornext_error3058; +goto fornext_entrylabel3058; +while(1){ +fornext_value3058=fornext_step3058+(*_FUNC_SEPERATEARGS_LONG_I2); +fornext_entrylabel3058: +*_FUNC_SEPERATEARGS_LONG_I2=fornext_value3058; +if (fornext_step_negative3058){ +if (fornext_value3058fornext_finalvalue3058) break; +} +fornext_error3058:; +if(qbevent){evnt(21500);if(r)goto S_29061;} +S_29062:; +if ((-(((int32*)(__ARRAY_LONG_LEVELENTERED[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I2)-__ARRAY_LONG_LEVELENTERED[4],__ARRAY_LONG_LEVELENTERED[5])]== 1 ))||new_error){ +if(qbevent){evnt(21501);if(r)goto S_29062;} +do{ +tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_INTEGER_ENTRYLEV[4],__ARRAY_INTEGER_ENTRYLEV[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_ENTRYLEV[0]))[tmp_long]=*_FUNC_SEPERATEARGS_LONG_I2; +if(!qbevent)break;evnt(21501);}while(r); +} +fornext_continue_3057:; +} +fornext_exit_3057:; +} +do{ +tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LEVEL)-__ARRAY_LONG_LEVELENTERED[4],__ARRAY_LONG_LEVELENTERED[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_LEVELENTERED[0]))[tmp_long]= 1 ; +if(!qbevent)break;evnt(21504);}while(r); +do{ +goto LABEL_NEXTSYMBOL; +if(!qbevent)break;evnt(21506);}while(r); +} +do{ +*_FUNC_SEPERATEARGS_LONG_LASTT=*_FUNC_SEPERATEARGS_LONG_LASTT+ 1 ; +if(!qbevent)break;evnt(21510);}while(r); +do{ +tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_INTEGER_LEV[4],__ARRAY_INTEGER_LEV[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_LEV[0]))[tmp_long]=*_FUNC_SEPERATEARGS_LONG_LEVEL; +if(!qbevent)break;evnt(21510);}while(r); +do{ +tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_LONG_PASSRULE[4],__ARRAY_LONG_PASSRULE[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_PASSRULE[0]))[tmp_long]= 0 ; +if(!qbevent)break;evnt(21510);}while(r); +do{ +tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_INTEGER_DITCHLEV[4],__ARRAY_INTEGER_DITCHLEV[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_DITCHLEV[0]))[tmp_long]=*_FUNC_SEPERATEARGS_LONG_DITCHLEVEL; +if(!qbevent)break;evnt(21511);}while(r); +do{ +*_FUNC_SEPERATEARGS_LONG_DITCHLEVEL=*_FUNC_SEPERATEARGS_LONG_LEVEL; +if(!qbevent)break;evnt(21511);}while(r); +do{ +tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_INTEGER_T[4],__ARRAY_INTEGER_T[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_T[0]))[tmp_long]= 1 ; +if(!qbevent)break;evnt(21512);}while(r); +do{ +tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_STRING256_OPT[8],__ARRAY_STRING256_OPT[9])+array_check(( 1 )-__ARRAY_STRING256_OPT[4],__ARRAY_STRING256_OPT[5])*__ARRAY_STRING256_OPT[6]; +if (!new_error) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_OPT[0]))[tmp_long*256],256,1),_FUNC_SEPERATEARGS_STRING_S2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21512);}while(r); +do{ +tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_INTEGER_OPTWORDS[8],__ARRAY_INTEGER_OPTWORDS[9])+array_check(( 1 )-__ARRAY_INTEGER_OPTWORDS[4],__ARRAY_INTEGER_OPTWORDS[5])*__ARRAY_INTEGER_OPTWORDS[6]; +if (!new_error) ((int16*)(__ARRAY_INTEGER_OPTWORDS[0]))[tmp_long]= 1 ; +if(!qbevent)break;evnt(21512);}while(r); +do{ +tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_INTEGER_DONTPASS[4],__ARRAY_INTEGER_DONTPASS[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_DONTPASS[0]))[tmp_long]= 1 ; +if(!qbevent)break;evnt(21512);}while(r); +do{ +tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_INTEGER_ENTRYLEV[4],__ARRAY_INTEGER_ENTRYLEV[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_ENTRYLEV[0]))[tmp_long]=*_FUNC_SEPERATEARGS_LONG_LEVEL; +if(!qbevent)break;evnt(21515);}while(r); +S_29080:; +if ((-(((int32*)(__ARRAY_LONG_LEVELENTERED[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_LEVEL)-__ARRAY_LONG_LEVELENTERED[4],__ARRAY_LONG_LEVELENTERED[5])]== 0 ))||new_error){ +if(qbevent){evnt(21516);if(r)goto S_29080;} +do{ +tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_INTEGER_ENTRYLEV[4],__ARRAY_INTEGER_ENTRYLEV[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_ENTRYLEV[0]))[tmp_long]= 0 ; +if(!qbevent)break;evnt(21517);}while(r); +S_29082:; +fornext_value3060= 1 ; +fornext_finalvalue3060=*_FUNC_SEPERATEARGS_LONG_LEVEL- 1 ; +fornext_step3060= 1 ; +if (fornext_step3060<0) fornext_step_negative3060=1; else fornext_step_negative3060=0; +if (new_error) goto fornext_error3060; +goto fornext_entrylabel3060; +while(1){ +fornext_value3060=fornext_step3060+(*_FUNC_SEPERATEARGS_LONG_I2); +fornext_entrylabel3060: +*_FUNC_SEPERATEARGS_LONG_I2=fornext_value3060; +if (fornext_step_negative3060){ +if (fornext_value3060fornext_finalvalue3060) break; +} +fornext_error3060:; +if(qbevent){evnt(21518);if(r)goto S_29082;} +S_29083:; +if ((-(((int32*)(__ARRAY_LONG_LEVELENTERED[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I2)-__ARRAY_LONG_LEVELENTERED[4],__ARRAY_LONG_LEVELENTERED[5])]== 1 ))||new_error){ +if(qbevent){evnt(21519);if(r)goto S_29083;} +do{ +tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LASTT)-__ARRAY_INTEGER_ENTRYLEV[4],__ARRAY_INTEGER_ENTRYLEV[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_ENTRYLEV[0]))[tmp_long]=*_FUNC_SEPERATEARGS_LONG_I2; +if(!qbevent)break;evnt(21519);}while(r); +} +fornext_continue_3059:; +} +fornext_exit_3059:; +} +do{ +tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_LEVEL)-__ARRAY_LONG_LEVELENTERED[4],__ARRAY_LONG_LEVELENTERED[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_LEVELENTERED[0]))[tmp_long]= 1 ; +if(!qbevent)break;evnt(21522);}while(r); +do{ +goto LABEL_NEXTSYMBOL; +if(!qbevent)break;evnt(21524);}while(r); +LABEL_NEXTSYMBOL:; +if(qbevent){evnt(21526);r=0;} +fornext_continue_3050:; +} +fornext_exit_3050:; +S_29091:; +if (( 0 )||new_error){ +if(qbevent){evnt(21530);if(r)goto S_29091;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip3061; +sub_file_print(tmp_fileno,qbs_new_txt_len("--------SEPERATE ARGUMENTS REPORT #1:1--------",46), 0, 0, 1); +if (new_error) goto skip3061; +skip3061: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(21531);}while(r); +S_29093:; +fornext_value3063= 1 ; +fornext_finalvalue3063=*_FUNC_SEPERATEARGS_LONG_LASTT; +fornext_step3063= 1 ; +if (fornext_step3063<0) fornext_step_negative3063=1; else fornext_step_negative3063=0; +if (new_error) goto fornext_error3063; +goto fornext_entrylabel3063; +while(1){ +fornext_value3063=fornext_step3063+(*_FUNC_SEPERATEARGS_LONG_I); +fornext_entrylabel3063: +*_FUNC_SEPERATEARGS_LONG_I=fornext_value3063; +if (fornext_step_negative3063){ +if (fornext_value3063fornext_finalvalue3063) break; +} +fornext_error3063:; +if(qbevent){evnt(21532);if(r)goto S_29093;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip3064; +sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_SEPERATEARGS_LONG_I)), 1, 1, 0); +if (new_error) goto skip3064; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("OPT=",4),func_chr( 34 )),qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_OPT[0]))[(array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_STRING256_OPT[8],__ARRAY_STRING256_OPT[9])+array_check(( 1 )-__ARRAY_STRING256_OPT[4],__ARRAY_STRING256_OPT[5])*__ARRAY_STRING256_OPT[6])*256],256,1))),func_chr( 34 )), 0, 0, 1); +if (new_error) goto skip3064; +skip3064: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(21533);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip3065; +sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_SEPERATEARGS_LONG_I)), 1, 1, 0); +if (new_error) goto skip3065; +sub_file_print(tmp_fileno,qbs_new_txt_len("OPTWORDS=",9), 0, 0, 0); +if (new_error) goto skip3065; +sub_file_print(tmp_fileno,qbs_str((int16)(((int16*)(__ARRAY_INTEGER_OPTWORDS[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_INTEGER_OPTWORDS[8],__ARRAY_INTEGER_OPTWORDS[9])+array_check(( 1 )-__ARRAY_INTEGER_OPTWORDS[4],__ARRAY_INTEGER_OPTWORDS[5])*__ARRAY_INTEGER_OPTWORDS[6]])), 1, 0, 1); +if (new_error) goto skip3065; +skip3065: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(21534);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip3066; +sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_SEPERATEARGS_LONG_I)), 1, 1, 0); +if (new_error) goto skip3066; +sub_file_print(tmp_fileno,qbs_new_txt_len("T=",2), 0, 0, 0); +if (new_error) goto skip3066; +sub_file_print(tmp_fileno,qbs_str((int16)(((int16*)(__ARRAY_INTEGER_T[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_INTEGER_T[4],__ARRAY_INTEGER_T[5])])), 1, 0, 1); +if (new_error) goto skip3066; +skip3066: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(21535);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip3067; +sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_SEPERATEARGS_LONG_I)), 1, 1, 0); +if (new_error) goto skip3067; +sub_file_print(tmp_fileno,qbs_new_txt_len("DONTPASS=",9), 0, 0, 0); +if (new_error) goto skip3067; +sub_file_print(tmp_fileno,qbs_str((int16)(((int16*)(__ARRAY_INTEGER_DONTPASS[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_INTEGER_DONTPASS[4],__ARRAY_INTEGER_DONTPASS[5])])), 1, 0, 1); +if (new_error) goto skip3067; +skip3067: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(21536);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip3068; +sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_SEPERATEARGS_LONG_I)), 1, 1, 0); +if (new_error) goto skip3068; +sub_file_print(tmp_fileno,qbs_new_txt_len("PASSRULE=",9), 0, 0, 0); +if (new_error) goto skip3068; +sub_file_print(tmp_fileno,qbs_str((int32)(((int32*)(__ARRAY_LONG_PASSRULE[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_LONG_PASSRULE[4],__ARRAY_LONG_PASSRULE[5])])), 1, 0, 1); +if (new_error) goto skip3068; +skip3068: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(21537);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip3069; +sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_SEPERATEARGS_LONG_I)), 1, 1, 0); +if (new_error) goto skip3069; +sub_file_print(tmp_fileno,qbs_new_txt_len("LEV=",4), 0, 0, 0); +if (new_error) goto skip3069; +sub_file_print(tmp_fileno,qbs_str((int16)(((int16*)(__ARRAY_INTEGER_LEV[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_INTEGER_LEV[4],__ARRAY_INTEGER_LEV[5])])), 1, 0, 1); +if (new_error) goto skip3069; +skip3069: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(21538);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip3070; +sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_SEPERATEARGS_LONG_I)), 1, 1, 0); +if (new_error) goto skip3070; +sub_file_print(tmp_fileno,qbs_new_txt_len("ENTRYLEV=",9), 0, 0, 0); +if (new_error) goto skip3070; +sub_file_print(tmp_fileno,qbs_str((int16)(((int16*)(__ARRAY_INTEGER_ENTRYLEV[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_INTEGER_ENTRYLEV[4],__ARRAY_INTEGER_ENTRYLEV[5])])), 1, 0, 1); +if (new_error) goto skip3070; +skip3070: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(21539);}while(r); +fornext_continue_3062:; +} +fornext_exit_3062:; +} +S_29103:; +fornext_value3072= 1 ; +fornext_finalvalue3072=*_FUNC_SEPERATEARGS_LONG_LASTT; +fornext_step3072= 1 ; +if (fornext_step3072<0) fornext_step_negative3072=1; else fornext_step_negative3072=0; +if (new_error) goto fornext_error3072; +goto fornext_entrylabel3072; +while(1){ +fornext_value3072=fornext_step3072+(*_FUNC_SEPERATEARGS_LONG_X); +fornext_entrylabel3072: +*_FUNC_SEPERATEARGS_LONG_X=fornext_value3072; +if (fornext_step_negative3072){ +if (fornext_value3072fornext_finalvalue3072) break; +} +fornext_error3072:; +if(qbevent){evnt(21547);if(r)goto S_29103;} +S_29104:; +if ((-(((int16*)(__ARRAY_INTEGER_LEV[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_INTEGER_LEV[4],__ARRAY_INTEGER_LEV[5])]== 0 ))||new_error){ +if(qbevent){evnt(21548);if(r)goto S_29104;} +S_29105:; +if ((-(((int16*)(__ARRAY_INTEGER_T[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_INTEGER_T[4],__ARRAY_INTEGER_T[5])]== 1 ))||new_error){ +if(qbevent){evnt(21549);if(r)goto S_29105;} +do{ +tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_INTEGER_DONTPASS[4],__ARRAY_INTEGER_DONTPASS[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_DONTPASS[0]))[tmp_long]= 1 ; +if(!qbevent)break;evnt(21549);}while(r); +} +} +fornext_continue_3071:; +} +fornext_exit_3071:; +S_29110:; +if (( 0 )||new_error){ +if(qbevent){evnt(21553);if(r)goto S_29110;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip3073; +sub_file_print(tmp_fileno,qbs_new_txt_len("--------SEPERATE ARGUMENTS REPORT #1:2--------",46), 0, 0, 1); +if (new_error) goto skip3073; +skip3073: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(21554);}while(r); +S_29112:; +fornext_value3075= 1 ; +fornext_finalvalue3075=*_FUNC_SEPERATEARGS_LONG_LASTT; +fornext_step3075= 1 ; +if (fornext_step3075<0) fornext_step_negative3075=1; else fornext_step_negative3075=0; +if (new_error) goto fornext_error3075; +goto fornext_entrylabel3075; +while(1){ +fornext_value3075=fornext_step3075+(*_FUNC_SEPERATEARGS_LONG_I); +fornext_entrylabel3075: +*_FUNC_SEPERATEARGS_LONG_I=fornext_value3075; +if (fornext_step_negative3075){ +if (fornext_value3075fornext_finalvalue3075) break; +} +fornext_error3075:; +if(qbevent){evnt(21555);if(r)goto S_29112;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip3076; +sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_SEPERATEARGS_LONG_I)), 1, 1, 0); +if (new_error) goto skip3076; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("OPT=",4),func_chr( 34 )),qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_OPT[0]))[(array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_STRING256_OPT[8],__ARRAY_STRING256_OPT[9])+array_check(( 1 )-__ARRAY_STRING256_OPT[4],__ARRAY_STRING256_OPT[5])*__ARRAY_STRING256_OPT[6])*256],256,1))),func_chr( 34 )), 0, 0, 1); +if (new_error) goto skip3076; +skip3076: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(21556);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip3077; +sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_SEPERATEARGS_LONG_I)), 1, 1, 0); +if (new_error) goto skip3077; +sub_file_print(tmp_fileno,qbs_new_txt_len("OPTWORDS=",9), 0, 0, 0); +if (new_error) goto skip3077; +sub_file_print(tmp_fileno,qbs_str((int16)(((int16*)(__ARRAY_INTEGER_OPTWORDS[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_INTEGER_OPTWORDS[8],__ARRAY_INTEGER_OPTWORDS[9])+array_check(( 1 )-__ARRAY_INTEGER_OPTWORDS[4],__ARRAY_INTEGER_OPTWORDS[5])*__ARRAY_INTEGER_OPTWORDS[6]])), 1, 0, 1); +if (new_error) goto skip3077; +skip3077: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(21557);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip3078; +sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_SEPERATEARGS_LONG_I)), 1, 1, 0); +if (new_error) goto skip3078; +sub_file_print(tmp_fileno,qbs_new_txt_len("T=",2), 0, 0, 0); +if (new_error) goto skip3078; +sub_file_print(tmp_fileno,qbs_str((int16)(((int16*)(__ARRAY_INTEGER_T[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_INTEGER_T[4],__ARRAY_INTEGER_T[5])])), 1, 0, 1); +if (new_error) goto skip3078; +skip3078: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(21558);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip3079; +sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_SEPERATEARGS_LONG_I)), 1, 1, 0); +if (new_error) goto skip3079; +sub_file_print(tmp_fileno,qbs_new_txt_len("DONTPASS=",9), 0, 0, 0); +if (new_error) goto skip3079; +sub_file_print(tmp_fileno,qbs_str((int16)(((int16*)(__ARRAY_INTEGER_DONTPASS[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_INTEGER_DONTPASS[4],__ARRAY_INTEGER_DONTPASS[5])])), 1, 0, 1); +if (new_error) goto skip3079; +skip3079: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(21559);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip3080; +sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_SEPERATEARGS_LONG_I)), 1, 1, 0); +if (new_error) goto skip3080; +sub_file_print(tmp_fileno,qbs_new_txt_len("PASSRULE=",9), 0, 0, 0); +if (new_error) goto skip3080; +sub_file_print(tmp_fileno,qbs_str((int32)(((int32*)(__ARRAY_LONG_PASSRULE[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_LONG_PASSRULE[4],__ARRAY_LONG_PASSRULE[5])])), 1, 0, 1); +if (new_error) goto skip3080; +skip3080: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(21560);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip3081; +sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_SEPERATEARGS_LONG_I)), 1, 1, 0); +if (new_error) goto skip3081; +sub_file_print(tmp_fileno,qbs_new_txt_len("LEV=",4), 0, 0, 0); +if (new_error) goto skip3081; +sub_file_print(tmp_fileno,qbs_str((int16)(((int16*)(__ARRAY_INTEGER_LEV[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_INTEGER_LEV[4],__ARRAY_INTEGER_LEV[5])])), 1, 0, 1); +if (new_error) goto skip3081; +skip3081: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(21561);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip3082; +sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_SEPERATEARGS_LONG_I)), 1, 1, 0); +if (new_error) goto skip3082; +sub_file_print(tmp_fileno,qbs_new_txt_len("ENTRYLEV=",9), 0, 0, 0); +if (new_error) goto skip3082; +sub_file_print(tmp_fileno,qbs_str((int16)(((int16*)(__ARRAY_INTEGER_ENTRYLEV[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_INTEGER_ENTRYLEV[4],__ARRAY_INTEGER_ENTRYLEV[5])])), 1, 0, 1); +if (new_error) goto skip3082; +skip3082: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(21562);}while(r); +fornext_continue_3074:; +} +fornext_exit_3074:; +} +do{ +*_FUNC_SEPERATEARGS_LONG_X1= 0 ; +if(!qbevent)break;evnt(21569);}while(r); +do{ +*_FUNC_SEPERATEARGS_LONG_MUSTPASSOPT= 0 ; +if(!qbevent)break;evnt(21570);}while(r); +do{ +*_FUNC_SEPERATEARGS_LONG_MUSTPASSOPTNEEDSFLAG= 0 ; +if(!qbevent)break;evnt(21571);}while(r); +do{ +*_FUNC_SEPERATEARGS_LONG_TEMPLISTN= 0 ; +if(!qbevent)break;evnt(21576);}while(r); +S_29126:; +fornext_value3084= 1 ; +fornext_finalvalue3084= 32767 ; +fornext_step3084= 1 ; +if (fornext_step3084<0) fornext_step_negative3084=1; else fornext_step_negative3084=0; +if (new_error) goto fornext_error3084; +goto fornext_entrylabel3084; +while(1){ +fornext_value3084=fornext_step3084+(*_FUNC_SEPERATEARGS_LONG_L); +fornext_entrylabel3084: +*_FUNC_SEPERATEARGS_LONG_L=fornext_value3084; +if (fornext_step_negative3084){ +if (fornext_value3084fornext_finalvalue3084) break; +} +fornext_error3084:; +if(qbevent){evnt(21577);if(r)goto S_29126;} +do{ +*_FUNC_SEPERATEARGS_LONG_SCANNEXTLEVEL= 0 ; +if(!qbevent)break;evnt(21578);}while(r); +S_29128:; +fornext_value3086= 1 ; +fornext_finalvalue3086=*_FUNC_SEPERATEARGS_LONG_LASTT; +fornext_step3086= 1 ; +if (fornext_step3086<0) fornext_step_negative3086=1; else fornext_step_negative3086=0; +if (new_error) goto fornext_error3086; +goto fornext_entrylabel3086; +while(1){ +fornext_value3086=fornext_step3086+(*_FUNC_SEPERATEARGS_LONG_X); +fornext_entrylabel3086: +*_FUNC_SEPERATEARGS_LONG_X=fornext_value3086; +if (fornext_step_negative3086){ +if (fornext_value3086fornext_finalvalue3086) break; +} +fornext_error3086:; +if(qbevent){evnt(21579);if(r)goto S_29128;} +S_29129:; +if ((-(((int16*)(__ARRAY_INTEGER_LEV[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_INTEGER_LEV[4],__ARRAY_INTEGER_LEV[5])]>*_FUNC_SEPERATEARGS_LONG_L))||new_error){ +if(qbevent){evnt(21580);if(r)goto S_29129;} +do{ +*_FUNC_SEPERATEARGS_LONG_SCANNEXTLEVEL= 1 ; +if(!qbevent)break;evnt(21580);}while(r); +} +S_29132:; +if ((*_FUNC_SEPERATEARGS_LONG_X1)||new_error){ +if(qbevent){evnt(21582);if(r)goto S_29132;} +S_29133:; +if ((-(((int16*)(__ARRAY_INTEGER_ENTRYLEV[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_INTEGER_ENTRYLEV[4],__ARRAY_INTEGER_ENTRYLEV[5])]<*_FUNC_SEPERATEARGS_LONG_L))||new_error){ +if(qbevent){evnt(21583);if(r)goto S_29133;} +S_29134:; +if ((*_FUNC_SEPERATEARGS_LONG_MUSTPASSOPT)||new_error){ +if(qbevent){evnt(21584);if(r)goto S_29134;} +S_29135:; +if ((*_FUNC_SEPERATEARGS_LONG_MUSTPASSOPTNEEDSFLAG)||new_error){ +if(qbevent){evnt(21587);if(r)goto S_29135;} +S_29136:; +fornext_value3088= 1 ; +fornext_finalvalue3088=*_FUNC_SEPERATEARGS_LONG_TEMPLISTN; +fornext_step3088= 1 ; +if (fornext_step3088<0) fornext_step_negative3088=1; else fornext_step_negative3088=0; +if (new_error) goto fornext_error3088; +goto fornext_entrylabel3088; +while(1){ +fornext_value3088=fornext_step3088+(*_FUNC_SEPERATEARGS_LONG_X2); +fornext_entrylabel3088: +*_FUNC_SEPERATEARGS_LONG_X2=fornext_value3088; +if (fornext_step_negative3088){ +if (fornext_value3088fornext_finalvalue3088) break; +} +fornext_error3088:; +if(qbevent){evnt(21589);if(r)goto S_29136;} +do{ +tmp_long=array_check((((int16*)(__ARRAY_INTEGER_TEMPLIST[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X2)-__ARRAY_INTEGER_TEMPLIST[4],__ARRAY_INTEGER_TEMPLIST[5])])-__ARRAY_LONG_PASSRULE[4],__ARRAY_LONG_PASSRULE[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_PASSRULE[0]))[tmp_long]=*_FUNC_SEPERATEARGS_LONG_PASSFLAG; +if(!qbevent)break;evnt(21590);}while(r); +fornext_continue_3087:; +} +fornext_exit_3087:; +do{ +*_FUNC_SEPERATEARGS_LONG_PASSFLAG=*_FUNC_SEPERATEARGS_LONG_PASSFLAG* 2 ; +if(!qbevent)break;evnt(21592);}while(r); +}else{ +S_29141:; +fornext_value3090= 1 ; +fornext_finalvalue3090=*_FUNC_SEPERATEARGS_LONG_TEMPLISTN; +fornext_step3090= 1 ; +if (fornext_step3090<0) fornext_step_negative3090=1; else fornext_step_negative3090=0; +if (new_error) goto fornext_error3090; +goto fornext_entrylabel3090; +while(1){ +fornext_value3090=fornext_step3090+(*_FUNC_SEPERATEARGS_LONG_X2); +fornext_entrylabel3090: +*_FUNC_SEPERATEARGS_LONG_X2=fornext_value3090; +if (fornext_step_negative3090){ +if (fornext_value3090fornext_finalvalue3090) break; +} +fornext_error3090:; +if(qbevent){evnt(21596);if(r)goto S_29141;} +S_29142:; +if ((-(((int16*)(__ARRAY_INTEGER_TEMPLIST[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X2)-__ARRAY_INTEGER_TEMPLIST[4],__ARRAY_INTEGER_TEMPLIST[5])]!=*_FUNC_SEPERATEARGS_LONG_MUSTPASSOPT))||new_error){ +if(qbevent){evnt(21597);if(r)goto S_29142;} +do{ +tmp_long=array_check((((int16*)(__ARRAY_INTEGER_TEMPLIST[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X2)-__ARRAY_INTEGER_TEMPLIST[4],__ARRAY_INTEGER_TEMPLIST[5])])-__ARRAY_LONG_PASSRULE[4],__ARRAY_LONG_PASSRULE[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_PASSRULE[0]))[tmp_long]=-(*_FUNC_SEPERATEARGS_LONG_MUSTPASSOPT); +if(!qbevent)break;evnt(21597);}while(r); +} +fornext_continue_3089:; +} +fornext_exit_3089:; +} +}else{ +S_29148:; +fornext_value3092= 1 ; +fornext_finalvalue3092=*_FUNC_SEPERATEARGS_LONG_TEMPLISTN; +fornext_step3092= 1 ; +if (fornext_step3092<0) fornext_step_negative3092=1; else fornext_step_negative3092=0; +if (new_error) goto fornext_error3092; +goto fornext_entrylabel3092; +while(1){ +fornext_value3092=fornext_step3092+(*_FUNC_SEPERATEARGS_LONG_X2); +fornext_entrylabel3092: +*_FUNC_SEPERATEARGS_LONG_X2=fornext_value3092; +if (fornext_step_negative3092){ +if (fornext_value3092fornext_finalvalue3092) break; +} +fornext_error3092:; +if(qbevent){evnt(21602);if(r)goto S_29148;} +do{ +tmp_long=array_check((((int16*)(__ARRAY_INTEGER_TEMPLIST[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X2)-__ARRAY_INTEGER_TEMPLIST[4],__ARRAY_INTEGER_TEMPLIST[5])])-__ARRAY_LONG_PASSRULE[4],__ARRAY_LONG_PASSRULE[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_PASSRULE[0]))[tmp_long]=*_FUNC_SEPERATEARGS_LONG_PASSFLAG; +if(!qbevent)break;evnt(21602);}while(r); +fornext_continue_3091:; +} +fornext_exit_3091:; +S_29151:; +if ((-(*_FUNC_SEPERATEARGS_LONG_TEMPLISTN!= 0 ))||new_error){ +if(qbevent){evnt(21603);if(r)goto S_29151;} +do{ +*_FUNC_SEPERATEARGS_LONG_PASSFLAG=*_FUNC_SEPERATEARGS_LONG_PASSFLAG* 2 ; +if(!qbevent)break;evnt(21603);}while(r); +} +} +do{ +*_FUNC_SEPERATEARGS_LONG_X1= 0 ; +if(!qbevent)break;evnt(21605);}while(r); +} +} +S_29158:; +if ((-(((int16*)(__ARRAY_INTEGER_LEV[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_INTEGER_LEV[4],__ARRAY_INTEGER_LEV[5])]==*_FUNC_SEPERATEARGS_LONG_L))||new_error){ +if(qbevent){evnt(21610);if(r)goto S_29158;} +S_29159:; +if ((-(((int16*)(__ARRAY_INTEGER_ENTRYLEV[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_INTEGER_ENTRYLEV[4],__ARRAY_INTEGER_ENTRYLEV[5])]<*_FUNC_SEPERATEARGS_LONG_L))||new_error){ +if(qbevent){evnt(21611);if(r)goto S_29159;} +do{ +*_FUNC_SEPERATEARGS_LONG_X1=*_FUNC_SEPERATEARGS_LONG_X; +if(!qbevent)break;evnt(21612);}while(r); +do{ +*_FUNC_SEPERATEARGS_LONG_MUSTPASSOPT= 0 ; +if(!qbevent)break;evnt(21613);}while(r); +do{ +*_FUNC_SEPERATEARGS_LONG_TEMPLISTN= 0 ; +if(!qbevent)break;evnt(21614);}while(r); +} +} +S_29165:; +if ((*_FUNC_SEPERATEARGS_LONG_X1)||new_error){ +if(qbevent){evnt(21618);if(r)goto S_29165;} +S_29166:; +if ((-(((int16*)(__ARRAY_INTEGER_LEV[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_INTEGER_LEV[4],__ARRAY_INTEGER_LEV[5])]==*_FUNC_SEPERATEARGS_LONG_L))||new_error){ +if(qbevent){evnt(21619);if(r)goto S_29166;} +S_29167:; +if ((-(((int16*)(__ARRAY_INTEGER_T[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_INTEGER_T[4],__ARRAY_INTEGER_T[5])]!= 1 ))||new_error){ +if(qbevent){evnt(21621);if(r)goto S_29167;} +S_29168:; +if ((-(*_FUNC_SEPERATEARGS_LONG_MUSTPASSOPT== 0 ))||new_error){ +if(qbevent){evnt(21623);if(r)goto S_29168;} +do{ +*_FUNC_SEPERATEARGS_LONG_MUSTPASSOPT=*_FUNC_SEPERATEARGS_LONG_X; +if(!qbevent)break;evnt(21624);}while(r); +S_29170:; +if ((-(((int16*)(__ARRAY_INTEGER_T[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_INTEGER_T[4],__ARRAY_INTEGER_T[5])]== 0 ))||new_error){ +if(qbevent){evnt(21625);if(r)goto S_29170;} +do{ +*_FUNC_SEPERATEARGS_LONG_MUSTPASSOPTNEEDSFLAG= 1 ; +if(!qbevent)break;evnt(21625);}while(r); +}else{ +do{ +*_FUNC_SEPERATEARGS_LONG_MUSTPASSOPTNEEDSFLAG= 0 ; +if(!qbevent)break;evnt(21625);}while(r); +} +}else{ +S_29176:; +if ((-(*_FUNC_SEPERATEARGS_LONG_MUSTPASSOPTNEEDSFLAG== 1 ))||new_error){ +if(qbevent){evnt(21629);if(r)goto S_29176;} +S_29177:; +if ((-(((int16*)(__ARRAY_INTEGER_T[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_INTEGER_T[4],__ARRAY_INTEGER_T[5])]> 1 ))||new_error){ +if(qbevent){evnt(21630);if(r)goto S_29177;} +do{ +*_FUNC_SEPERATEARGS_LONG_MUSTPASSOPT=*_FUNC_SEPERATEARGS_LONG_X; +if(!qbevent)break;evnt(21631);}while(r); +do{ +*_FUNC_SEPERATEARGS_LONG_MUSTPASSOPTNEEDSFLAG= 0 ; +if(!qbevent)break;evnt(21631);}while(r); +} +} +} +do{ +*_FUNC_SEPERATEARGS_LONG_TEMPLISTN=*_FUNC_SEPERATEARGS_LONG_TEMPLISTN+ 1 ; +if(!qbevent)break;evnt(21636);}while(r); +do{ +tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_TEMPLISTN)-__ARRAY_INTEGER_TEMPLIST[4],__ARRAY_INTEGER_TEMPLIST[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_TEMPLIST[0]))[tmp_long]=*_FUNC_SEPERATEARGS_LONG_X; +if(!qbevent)break;evnt(21636);}while(r); +} +S_29186:; +if ((-(((int16*)(__ARRAY_INTEGER_T[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_INTEGER_T[4],__ARRAY_INTEGER_T[5])]== 1 ))||new_error){ +if(qbevent){evnt(21639);if(r)goto S_29186;} +S_29187:; +if ((-(((int16*)(__ARRAY_INTEGER_DONTPASS[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_INTEGER_DONTPASS[4],__ARRAY_INTEGER_DONTPASS[5])]== 0 ))||new_error){ +if(qbevent){evnt(21645);if(r)goto S_29187;} +do{ +*_FUNC_SEPERATEARGS_LONG_TEMPLISTN=*_FUNC_SEPERATEARGS_LONG_TEMPLISTN+ 1 ; +if(!qbevent)break;evnt(21645);}while(r); +do{ +tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_TEMPLISTN)-__ARRAY_INTEGER_TEMPLIST[4],__ARRAY_INTEGER_TEMPLIST[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_TEMPLIST[0]))[tmp_long]=*_FUNC_SEPERATEARGS_LONG_X; +if(!qbevent)break;evnt(21645);}while(r); +do{ +tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_INTEGER_DONTPASS[4],__ARRAY_INTEGER_DONTPASS[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_DONTPASS[0]))[tmp_long]= 1 ; +if(!qbevent)break;evnt(21645);}while(r); +} +} +} +} +fornext_continue_3085:; +} +fornext_exit_3085:; +S_29196:; +if ((*_FUNC_SEPERATEARGS_LONG_X1)||new_error){ +if(qbevent){evnt(21654);if(r)goto S_29196;} +S_29197:; +if ((*_FUNC_SEPERATEARGS_LONG_MUSTPASSOPT)||new_error){ +if(qbevent){evnt(21655);if(r)goto S_29197;} +S_29198:; +if ((*_FUNC_SEPERATEARGS_LONG_MUSTPASSOPTNEEDSFLAG)||new_error){ +if(qbevent){evnt(21658);if(r)goto S_29198;} +S_29199:; +fornext_value3094= 1 ; +fornext_finalvalue3094=*_FUNC_SEPERATEARGS_LONG_TEMPLISTN; +fornext_step3094= 1 ; +if (fornext_step3094<0) fornext_step_negative3094=1; else fornext_step_negative3094=0; +if (new_error) goto fornext_error3094; +goto fornext_entrylabel3094; +while(1){ +fornext_value3094=fornext_step3094+(*_FUNC_SEPERATEARGS_LONG_X2); +fornext_entrylabel3094: +*_FUNC_SEPERATEARGS_LONG_X2=fornext_value3094; +if (fornext_step_negative3094){ +if (fornext_value3094fornext_finalvalue3094) break; +} +fornext_error3094:; +if(qbevent){evnt(21660);if(r)goto S_29199;} +do{ +tmp_long=array_check((((int16*)(__ARRAY_INTEGER_TEMPLIST[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X2)-__ARRAY_INTEGER_TEMPLIST[4],__ARRAY_INTEGER_TEMPLIST[5])])-__ARRAY_LONG_PASSRULE[4],__ARRAY_LONG_PASSRULE[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_PASSRULE[0]))[tmp_long]=*_FUNC_SEPERATEARGS_LONG_PASSFLAG; +if(!qbevent)break;evnt(21661);}while(r); +fornext_continue_3093:; +} +fornext_exit_3093:; +do{ +*_FUNC_SEPERATEARGS_LONG_PASSFLAG=*_FUNC_SEPERATEARGS_LONG_PASSFLAG* 2 ; +if(!qbevent)break;evnt(21663);}while(r); +}else{ +S_29204:; +fornext_value3096= 1 ; +fornext_finalvalue3096=*_FUNC_SEPERATEARGS_LONG_TEMPLISTN; +fornext_step3096= 1 ; +if (fornext_step3096<0) fornext_step_negative3096=1; else fornext_step_negative3096=0; +if (new_error) goto fornext_error3096; +goto fornext_entrylabel3096; +while(1){ +fornext_value3096=fornext_step3096+(*_FUNC_SEPERATEARGS_LONG_X2); +fornext_entrylabel3096: +*_FUNC_SEPERATEARGS_LONG_X2=fornext_value3096; +if (fornext_step_negative3096){ +if (fornext_value3096fornext_finalvalue3096) break; +} +fornext_error3096:; +if(qbevent){evnt(21667);if(r)goto S_29204;} +S_29205:; +if ((-(((int16*)(__ARRAY_INTEGER_TEMPLIST[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X2)-__ARRAY_INTEGER_TEMPLIST[4],__ARRAY_INTEGER_TEMPLIST[5])]!=*_FUNC_SEPERATEARGS_LONG_MUSTPASSOPT))||new_error){ +if(qbevent){evnt(21668);if(r)goto S_29205;} +do{ +tmp_long=array_check((((int16*)(__ARRAY_INTEGER_TEMPLIST[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X2)-__ARRAY_INTEGER_TEMPLIST[4],__ARRAY_INTEGER_TEMPLIST[5])])-__ARRAY_LONG_PASSRULE[4],__ARRAY_LONG_PASSRULE[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_PASSRULE[0]))[tmp_long]=-(*_FUNC_SEPERATEARGS_LONG_MUSTPASSOPT); +if(!qbevent)break;evnt(21668);}while(r); +} +fornext_continue_3095:; +} +fornext_exit_3095:; +} +}else{ +S_29211:; +fornext_value3098= 1 ; +fornext_finalvalue3098=*_FUNC_SEPERATEARGS_LONG_TEMPLISTN; +fornext_step3098= 1 ; +if (fornext_step3098<0) fornext_step_negative3098=1; else fornext_step_negative3098=0; +if (new_error) goto fornext_error3098; +goto fornext_entrylabel3098; +while(1){ +fornext_value3098=fornext_step3098+(*_FUNC_SEPERATEARGS_LONG_X2); +fornext_entrylabel3098: +*_FUNC_SEPERATEARGS_LONG_X2=fornext_value3098; +if (fornext_step_negative3098){ +if (fornext_value3098fornext_finalvalue3098) break; +} +fornext_error3098:; +if(qbevent){evnt(21673);if(r)goto S_29211;} +do{ +tmp_long=array_check((((int16*)(__ARRAY_INTEGER_TEMPLIST[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X2)-__ARRAY_INTEGER_TEMPLIST[4],__ARRAY_INTEGER_TEMPLIST[5])])-__ARRAY_LONG_PASSRULE[4],__ARRAY_LONG_PASSRULE[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_PASSRULE[0]))[tmp_long]=*_FUNC_SEPERATEARGS_LONG_PASSFLAG; +if(!qbevent)break;evnt(21673);}while(r); +fornext_continue_3097:; +} +fornext_exit_3097:; +S_29214:; +if ((-(*_FUNC_SEPERATEARGS_LONG_TEMPLISTN!= 0 ))||new_error){ +if(qbevent){evnt(21674);if(r)goto S_29214;} +do{ +*_FUNC_SEPERATEARGS_LONG_PASSFLAG=*_FUNC_SEPERATEARGS_LONG_PASSFLAG* 2 ; +if(!qbevent)break;evnt(21674);}while(r); +} +} +do{ +*_FUNC_SEPERATEARGS_LONG_X1= 0 ; +if(!qbevent)break;evnt(21676);}while(r); +} +S_29220:; +if ((-(*_FUNC_SEPERATEARGS_LONG_SCANNEXTLEVEL== 0 ))||new_error){ +if(qbevent){evnt(21679);if(r)goto S_29220;} +do{ +goto fornext_exit_3083; +if(!qbevent)break;evnt(21679);}while(r); +} +fornext_continue_3083:; +} +fornext_exit_3083:; +S_29224:; +if (( 0 )||new_error){ +if(qbevent){evnt(21682);if(r)goto S_29224;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip3099; +sub_file_print(tmp_fileno,qbs_new_txt_len("--------SEPERATE ARGUMENTS REPORT #1:3--------",46), 0, 0, 1); +if (new_error) goto skip3099; +skip3099: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(21683);}while(r); +S_29226:; +fornext_value3101= 1 ; +fornext_finalvalue3101=*_FUNC_SEPERATEARGS_LONG_LASTT; +fornext_step3101= 1 ; +if (fornext_step3101<0) fornext_step_negative3101=1; else fornext_step_negative3101=0; +if (new_error) goto fornext_error3101; +goto fornext_entrylabel3101; +while(1){ +fornext_value3101=fornext_step3101+(*_FUNC_SEPERATEARGS_LONG_I); +fornext_entrylabel3101: +*_FUNC_SEPERATEARGS_LONG_I=fornext_value3101; +if (fornext_step_negative3101){ +if (fornext_value3101fornext_finalvalue3101) break; +} +fornext_error3101:; +if(qbevent){evnt(21684);if(r)goto S_29226;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip3102; +sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_SEPERATEARGS_LONG_I)), 1, 1, 0); +if (new_error) goto skip3102; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("OPT=",4),func_chr( 34 )),qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_OPT[0]))[(array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_STRING256_OPT[8],__ARRAY_STRING256_OPT[9])+array_check(( 1 )-__ARRAY_STRING256_OPT[4],__ARRAY_STRING256_OPT[5])*__ARRAY_STRING256_OPT[6])*256],256,1))),func_chr( 34 )), 0, 0, 1); +if (new_error) goto skip3102; +skip3102: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(21685);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip3103; +sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_SEPERATEARGS_LONG_I)), 1, 1, 0); +if (new_error) goto skip3103; +sub_file_print(tmp_fileno,qbs_new_txt_len("OPTWORDS=",9), 0, 0, 0); +if (new_error) goto skip3103; +sub_file_print(tmp_fileno,qbs_str((int16)(((int16*)(__ARRAY_INTEGER_OPTWORDS[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_INTEGER_OPTWORDS[8],__ARRAY_INTEGER_OPTWORDS[9])+array_check(( 1 )-__ARRAY_INTEGER_OPTWORDS[4],__ARRAY_INTEGER_OPTWORDS[5])*__ARRAY_INTEGER_OPTWORDS[6]])), 1, 0, 1); +if (new_error) goto skip3103; +skip3103: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(21686);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip3104; +sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_SEPERATEARGS_LONG_I)), 1, 1, 0); +if (new_error) goto skip3104; +sub_file_print(tmp_fileno,qbs_new_txt_len("T=",2), 0, 0, 0); +if (new_error) goto skip3104; +sub_file_print(tmp_fileno,qbs_str((int16)(((int16*)(__ARRAY_INTEGER_T[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_INTEGER_T[4],__ARRAY_INTEGER_T[5])])), 1, 0, 1); +if (new_error) goto skip3104; +skip3104: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(21687);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip3105; +sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_SEPERATEARGS_LONG_I)), 1, 1, 0); +if (new_error) goto skip3105; +sub_file_print(tmp_fileno,qbs_new_txt_len("DONTPASS=",9), 0, 0, 0); +if (new_error) goto skip3105; +sub_file_print(tmp_fileno,qbs_str((int16)(((int16*)(__ARRAY_INTEGER_DONTPASS[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_INTEGER_DONTPASS[4],__ARRAY_INTEGER_DONTPASS[5])])), 1, 0, 1); +if (new_error) goto skip3105; +skip3105: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(21688);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip3106; +sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_SEPERATEARGS_LONG_I)), 1, 1, 0); +if (new_error) goto skip3106; +sub_file_print(tmp_fileno,qbs_new_txt_len("PASSRULE=",9), 0, 0, 0); +if (new_error) goto skip3106; +sub_file_print(tmp_fileno,qbs_str((int32)(((int32*)(__ARRAY_LONG_PASSRULE[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_LONG_PASSRULE[4],__ARRAY_LONG_PASSRULE[5])])), 1, 0, 1); +if (new_error) goto skip3106; +skip3106: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(21689);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip3107; +sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_SEPERATEARGS_LONG_I)), 1, 1, 0); +if (new_error) goto skip3107; +sub_file_print(tmp_fileno,qbs_new_txt_len("LEV=",4), 0, 0, 0); +if (new_error) goto skip3107; +sub_file_print(tmp_fileno,qbs_str((int16)(((int16*)(__ARRAY_INTEGER_LEV[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_INTEGER_LEV[4],__ARRAY_INTEGER_LEV[5])])), 1, 0, 1); +if (new_error) goto skip3107; +skip3107: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(21690);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip3108; +sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_SEPERATEARGS_LONG_I)), 1, 1, 0); +if (new_error) goto skip3108; +sub_file_print(tmp_fileno,qbs_new_txt_len("ENTRYLEV=",9), 0, 0, 0); +if (new_error) goto skip3108; +sub_file_print(tmp_fileno,qbs_str((int16)(((int16*)(__ARRAY_INTEGER_ENTRYLEV[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_INTEGER_ENTRYLEV[4],__ARRAY_INTEGER_ENTRYLEV[5])])), 1, 0, 1); +if (new_error) goto skip3108; +skip3108: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(21691);}while(r); +fornext_continue_3100:; +} +fornext_exit_3100:; +} +S_29236:; +fornext_value3110= 1 ; +fornext_finalvalue3110=*_FUNC_SEPERATEARGS_LONG_LASTT; +fornext_step3110= 1 ; +if (fornext_step3110<0) fornext_step_negative3110=1; else fornext_step_negative3110=0; +if (new_error) goto fornext_error3110; +goto fornext_entrylabel3110; +while(1){ +fornext_value3110=fornext_step3110+(*_FUNC_SEPERATEARGS_LONG_I); +fornext_entrylabel3110: +*_FUNC_SEPERATEARGS_LONG_I=fornext_value3110; +if (fornext_step_negative3110){ +if (fornext_value3110fornext_finalvalue3110) break; +} +fornext_error3110:; +if(qbevent){evnt(21697);if(r)goto S_29236;} +do{ +tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_STRING_SEPARGS[4],__ARRAY_STRING_SEPARGS[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS[0]))[tmp_long])),qbs_new_txt_len("n-ll",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21697);}while(r); +fornext_continue_3109:; +} +fornext_exit_3109:; +do{ +*_FUNC_SEPERATEARGS_LONG_BRANCHES= 0 ; +if(!qbevent)break;evnt(21715);}while(r); +do{ if (_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHFORMATPOS[2]&2){ error(10); @@ -95717,9 +95717,9 @@ if (!_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHFORMATPOS[0]) error(257); } _FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHFORMATPOS[2]|=1; } -} -if(!qbevent)break;evnt(21716);}while(r); -do{ +} +if(!qbevent)break;evnt(21716);}while(r); +do{ if (_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN[2]&2){ error(10); @@ -95739,9 +95739,9 @@ if (!_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN[0]) error(257); } _FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN[2]|=1; } -} -if(!qbevent)break;evnt(21717);}while(r); -do{ +} +if(!qbevent)break;evnt(21717);}while(r); +do{ if (_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHINPUTPOS[2]&2){ error(10); @@ -95761,9 +95761,9 @@ if (!_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHINPUTPOS[0]) error(257); } _FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHINPUTPOS[2]|=1; } -} -if(!qbevent)break;evnt(21720);}while(r); -do{ +} +if(!qbevent)break;evnt(21720);}while(r); +do{ if (_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHWITHEXPRESSION[2]&2){ error(10); @@ -95783,9 +95783,9 @@ if (!_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHWITHEXPRESSION[0]) error(257); } _FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHWITHEXPRESSION[2]|=1; } -} -if(!qbevent)break;evnt(21721);}while(r); -do{ +} +if(!qbevent)break;evnt(21721);}while(r); +do{ if (_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHLEVEL[2]&2){ error(10); @@ -95805,5805 +95805,5805 @@ if (!_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHLEVEL[0]) error(257); } _FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHLEVEL[2]|=1; } -} -if(!qbevent)break;evnt(21724);}while(r); -do{ -*_FUNC_SEPERATEARGS_LONG_N=FUNC_NUMELEMENTS(_FUNC_SEPERATEARGS_STRING_CA); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21726);}while(r); -do{ -*_FUNC_SEPERATEARGS_LONG_I= 1 ; -if(!qbevent)break;evnt(21727);}while(r); -do{ -*_FUNC_SEPERATEARGS_LONG_LEVEL= 0 ; -if(!qbevent)break;evnt(21729);}while(r); -do{ -*_FUNC_SEPERATEARGS_LONG_EXPRESSION= 0 ; -if(!qbevent)break;evnt(21730);}while(r); -S_29249:; -fornext_value3112= 1 ; -fornext_finalvalue3112=*_FUNC_SEPERATEARGS_LONG_LASTT; -fornext_step3112= 1 ; -if (fornext_step3112<0) fornext_step_negative3112=1; else fornext_step_negative3112=0; -if (new_error) goto fornext_error3112; -goto fornext_entrylabel3112; -while(1){ -fornext_value3112=fornext_step3112+(*_FUNC_SEPERATEARGS_LONG_X); -fornext_entrylabel3112: -*_FUNC_SEPERATEARGS_LONG_X=fornext_value3112; -if (fornext_step_negative3112){ -if (fornext_value3112fornext_finalvalue3112) break; -} -fornext_error3112:; -if(qbevent){evnt(21731);if(r)goto S_29249;} -LABEL_CONTINUESCAN:; -if(qbevent){evnt(21733);r=0;} -S_29250:; -if ((-(((int16*)(__ARRAY_INTEGER_DITCHLEV[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_INTEGER_DITCHLEV[4],__ARRAY_INTEGER_DITCHLEV[5])]<*_FUNC_SEPERATEARGS_LONG_LEVEL))||new_error){ -if(qbevent){evnt(21735);if(r)goto S_29250;} -do{ -*_FUNC_SEPERATEARGS_LONG_LEVEL=((int16*)(__ARRAY_INTEGER_DITCHLEV[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_INTEGER_DITCHLEV[4],__ARRAY_INTEGER_DITCHLEV[5])]; -if(!qbevent)break;evnt(21737);}while(r); -} -S_29253:; -if ((-(((int16*)(__ARRAY_INTEGER_ENTRYLEV[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_INTEGER_ENTRYLEV[4],__ARRAY_INTEGER_ENTRYLEV[5])]<=*_FUNC_SEPERATEARGS_LONG_LEVEL))||new_error){ -if(qbevent){evnt(21740);if(r)goto S_29253;} -S_29254:; -if ((-(((int16*)(__ARRAY_INTEGER_ENTRYLEV[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_INTEGER_ENTRYLEV[4],__ARRAY_INTEGER_ENTRYLEV[5])]<((int16*)(__ARRAY_INTEGER_LEV[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_INTEGER_LEV[4],__ARRAY_INTEGER_LEV[5])]))||new_error){ -if(qbevent){evnt(21743);if(r)goto S_29254;} -do{ -*_FUNC_SEPERATEARGS_LONG_OPTIONAL= 1 ; -if(!qbevent)break;evnt(21744);}while(r); -S_29256:; -if ((-(*_FUNC_SEPERATEARGS_LONG_LEVEL>((int16*)(__ARRAY_INTEGER_ENTRYLEV[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_INTEGER_ENTRYLEV[4],__ARRAY_INTEGER_ENTRYLEV[5])]))||new_error){ -if(qbevent){evnt(21745);if(r)goto S_29256;} -do{ -*_FUNC_SEPERATEARGS_LONG_OPTIONAL= 0 ; -if(!qbevent)break;evnt(21745);}while(r); -} -}else{ -do{ -*_FUNC_SEPERATEARGS_LONG_OPTIONAL= 0 ; -if(!qbevent)break;evnt(21748);}while(r); -} -do{ -*_FUNC_SEPERATEARGS_LONG_T=((int16*)(__ARRAY_INTEGER_T[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_INTEGER_T[4],__ARRAY_INTEGER_T[5])]; -if(!qbevent)break;evnt(21751);}while(r); -S_29263:; -if ((-(*_FUNC_SEPERATEARGS_LONG_T== 0 ))||new_error){ -if(qbevent){evnt(21753);if(r)goto S_29263;} -S_29264:; -if ((*_FUNC_SEPERATEARGS_LONG_EXPRESSION)||new_error){ -if(qbevent){evnt(21754);if(r)goto S_29264;} -do{ -goto LABEL_BACKTRACK; -if(!qbevent)break;evnt(21757);}while(r); -} -S_29267:; -if ((*_FUNC_SEPERATEARGS_LONG_OPTIONAL)||new_error){ -if(qbevent){evnt(21760);if(r)goto S_29267;} -do{ -*_FUNC_SEPERATEARGS_LONG_BRANCHES=*_FUNC_SEPERATEARGS_LONG_BRANCHES+ 1 ; -if(!qbevent)break;evnt(21761);}while(r); -do{ -tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_BRANCHES)-_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHFORMATPOS[4],_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHFORMATPOS[5]); -if (!new_error) ((int32*)(_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHFORMATPOS[0]))[tmp_long]=*_FUNC_SEPERATEARGS_LONG_X; -if(!qbevent)break;evnt(21762);}while(r); -do{ -tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_BRANCHES)-_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN[4],_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN[5]); -if (!new_error) ((int32*)(_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(21763);}while(r); -do{ -tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_BRANCHES)-_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHINPUTPOS[4],_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHINPUTPOS[5]); -if (!new_error) ((int32*)(_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHINPUTPOS[0]))[tmp_long]=*_FUNC_SEPERATEARGS_LONG_I; -if(!qbevent)break;evnt(21764);}while(r); -do{ -tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_BRANCHES)-_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHWITHEXPRESSION[4],_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHWITHEXPRESSION[5]); -if (!new_error) ((int32*)(_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHWITHEXPRESSION[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(21765);}while(r); -do{ -tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_BRANCHES)-_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHLEVEL[4],_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHLEVEL[5]); -if (!new_error) ((int32*)(_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHLEVEL[0]))[tmp_long]=*_FUNC_SEPERATEARGS_LONG_LEVEL; -if(!qbevent)break;evnt(21766);}while(r); -do{ -*_FUNC_SEPERATEARGS_LONG_LEVEL=((int16*)(__ARRAY_INTEGER_LEV[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_INTEGER_LEV[4],__ARRAY_INTEGER_LEV[5])]; -if(!qbevent)break;evnt(21767);}while(r); -} -do{ -*_FUNC_SEPERATEARGS_LONG_EXPRESSION=*_FUNC_SEPERATEARGS_LONG_X; -if(!qbevent)break;evnt(21769);}while(r); -} -S_29278:; -if ((*_FUNC_SEPERATEARGS_LONG_T)||new_error){ -if(qbevent){evnt(21772);if(r)goto S_29278;} -do{ -*_FUNC_SEPERATEARGS_LONG_CURRENTLEV=*_FUNC_SEPERATEARGS_LONG_LEVEL; -if(!qbevent)break;evnt(21774);}while(r); -S_29280:; -if ((*_FUNC_SEPERATEARGS_LONG_OPTIONAL)||new_error){ -if(qbevent){evnt(21777);if(r)goto S_29280;} -do{ -*_FUNC_SEPERATEARGS_LONG_BRANCHES=*_FUNC_SEPERATEARGS_LONG_BRANCHES+ 1 ; -if(!qbevent)break;evnt(21778);}while(r); -do{ -tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_BRANCHES)-_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHFORMATPOS[4],_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHFORMATPOS[5]); -if (!new_error) ((int32*)(_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHFORMATPOS[0]))[tmp_long]=*_FUNC_SEPERATEARGS_LONG_X; -if(!qbevent)break;evnt(21779);}while(r); -do{ -tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_BRANCHES)-_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN[4],_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN[5]); -if (!new_error) ((int32*)(_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(21780);}while(r); -do{ -tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_BRANCHES)-_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHINPUTPOS[4],_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHINPUTPOS[5]); -if (!new_error) ((int32*)(_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHINPUTPOS[0]))[tmp_long]=*_FUNC_SEPERATEARGS_LONG_I; -if(!qbevent)break;evnt(21781);}while(r); -do{ -tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_BRANCHES)-_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHWITHEXPRESSION[4],_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHWITHEXPRESSION[5]); -if (!new_error) ((int32*)(_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHWITHEXPRESSION[0]))[tmp_long]=*_FUNC_SEPERATEARGS_LONG_EXPRESSION; -if(!qbevent)break;evnt(21782);}while(r); -do{ -tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_BRANCHES)-_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHLEVEL[4],_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHLEVEL[5]); -if (!new_error) ((int32*)(_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHLEVEL[0]))[tmp_long]=*_FUNC_SEPERATEARGS_LONG_LEVEL; -if(!qbevent)break;evnt(21783);}while(r); -} -do{ -*_FUNC_SEPERATEARGS_LONG_I1=*_FUNC_SEPERATEARGS_LONG_I; -if(!qbevent)break;evnt(21787);}while(r); -do{ -*_FUNC_SEPERATEARGS_LONG_I2=*_FUNC_SEPERATEARGS_LONG_I; -if(!qbevent)break;evnt(21787);}while(r); -S_29290:; -if ((*_FUNC_SEPERATEARGS_LONG_EXPRESSION)||new_error){ -if(qbevent){evnt(21788);if(r)goto S_29290;} -do{ -*_FUNC_SEPERATEARGS_LONG_I2=*_FUNC_SEPERATEARGS_LONG_N; -if(!qbevent)break;evnt(21788);}while(r); -} -do{ -*_FUNC_SEPERATEARGS_LONG_OUTOFRANGE= 2147483647 ; -if(!qbevent)break;evnt(21792);}while(r); -do{ -*_FUNC_SEPERATEARGS_LONG_POSITION=*_FUNC_SEPERATEARGS_LONG_OUTOFRANGE; -if(!qbevent)break;evnt(21793);}while(r); -do{ -*_FUNC_SEPERATEARGS_LONG_WHICH= 0 ; -if(!qbevent)break;evnt(21794);}while(r); -do{ -*_FUNC_SEPERATEARGS_LONG_REMOVEPREFIX= 0 ; -if(!qbevent)break;evnt(21795);}while(r); -S_29297:; -if ((-(*_FUNC_SEPERATEARGS_LONG_I<=*_FUNC_SEPERATEARGS_LONG_N))||new_error){ -if(qbevent){evnt(21796);if(r)goto S_29297;} -S_29298:; -fornext_value3114= 1 ; -fornext_finalvalue3114=*_FUNC_SEPERATEARGS_LONG_T; -fornext_step3114= 1 ; -if (fornext_step3114<0) fornext_step_negative3114=1; else fornext_step_negative3114=0; -if (new_error) goto fornext_error3114; -goto fornext_entrylabel3114; -while(1){ -fornext_value3114=fornext_step3114+(*_FUNC_SEPERATEARGS_LONG_O); -fornext_entrylabel3114: -*_FUNC_SEPERATEARGS_LONG_O=fornext_value3114; -if (fornext_step_negative3114){ -if (fornext_value3114fornext_finalvalue3114) break; -} -fornext_error3114:; -if(qbevent){evnt(21797);if(r)goto S_29298;} -do{ -*_FUNC_SEPERATEARGS_LONG_WORDS=((int16*)(__ARRAY_INTEGER_OPTWORDS[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_INTEGER_OPTWORDS[8],__ARRAY_INTEGER_OPTWORDS[9])+array_check((*_FUNC_SEPERATEARGS_LONG_O)-__ARRAY_INTEGER_OPTWORDS[4],__ARRAY_INTEGER_OPTWORDS[5])*__ARRAY_INTEGER_OPTWORDS[6]]; -if(!qbevent)break;evnt(21798);}while(r); -do{ -*_FUNC_SEPERATEARGS_LONG_B= 0 ; -if(!qbevent)break;evnt(21799);}while(r); -S_29301:; -fornext_value3116=*_FUNC_SEPERATEARGS_LONG_I1; -fornext_finalvalue3116=*_FUNC_SEPERATEARGS_LONG_I2; -fornext_step3116= 1 ; -if (fornext_step3116<0) fornext_step_negative3116=1; else fornext_step_negative3116=0; -if (new_error) goto fornext_error3116; -goto fornext_entrylabel3116; -while(1){ -fornext_value3116=fornext_step3116+(*_FUNC_SEPERATEARGS_LONG_I3); -fornext_entrylabel3116: -*_FUNC_SEPERATEARGS_LONG_I3=fornext_value3116; -if (fornext_step_negative3116){ -if (fornext_value3116fornext_finalvalue3116) break; -} -fornext_error3116:; -if(qbevent){evnt(21800);if(r)goto S_29301;} -S_29302:; -if ((-((*_FUNC_SEPERATEARGS_LONG_I3+*_FUNC_SEPERATEARGS_LONG_WORDS- 1 )<=*_FUNC_SEPERATEARGS_LONG_N))||new_error){ -if(qbevent){evnt(21801);if(r)goto S_29302;} -do{ -qbs_set(_FUNC_SEPERATEARGS_STRING_C,FUNC_GETELEMENT(_FUNC_SEPERATEARGS_STRING_A,_FUNC_SEPERATEARGS_LONG_I3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21802);}while(r); -S_29304:; -if ((-(*_FUNC_SEPERATEARGS_LONG_B== 0 ))||new_error){ -if(qbevent){evnt(21803);if(r)goto S_29304;} -S_29305:; -fornext_value3118= 2 ; -fornext_finalvalue3118=*_FUNC_SEPERATEARGS_LONG_WORDS; -fornext_step3118= 1 ; -if (fornext_step3118<0) fornext_step_negative3118=1; else fornext_step_negative3118=0; -if (new_error) goto fornext_error3118; -goto fornext_entrylabel3118; -while(1){ -fornext_value3118=fornext_step3118+(*_FUNC_SEPERATEARGS_LONG_W); -fornext_entrylabel3118: -*_FUNC_SEPERATEARGS_LONG_W=fornext_value3118; -if (fornext_step_negative3118){ -if (fornext_value3118fornext_finalvalue3118) break; -} -fornext_error3118:; -if(qbevent){evnt(21805);if(r)goto S_29305;} -do{ -qbs_set(_FUNC_SEPERATEARGS_STRING_C,qbs_add(qbs_add(_FUNC_SEPERATEARGS_STRING_C,qbs_new_txt_len(" ",1)),FUNC_GETELEMENT(_FUNC_SEPERATEARGS_STRING_A,&(pass3119=*_FUNC_SEPERATEARGS_LONG_I3+*_FUNC_SEPERATEARGS_LONG_W- 1 )))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21806);}while(r); -fornext_continue_3117:; -} -fornext_exit_3117:; -do{ -*_FUNC_SEPERATEARGS_LONG_NOPREFIXMATCH=(qbs_equal(qbs_left(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_OPT[0]))[(array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_STRING256_OPT[8],__ARRAY_STRING256_OPT[9])+array_check((*_FUNC_SEPERATEARGS_LONG_O)-__ARRAY_STRING256_OPT[4],__ARRAY_STRING256_OPT[5])*__ARRAY_STRING256_OPT[6])*256],256,1), 1 ),qbs_new_txt_len("_",1)))&(-(*__LONG_QB64PREFIX_SET== 1 ))&(qbs_equal(_FUNC_SEPERATEARGS_STRING_C,qbs_ucase(func_mid(qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_OPT[0]))[(array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_STRING256_OPT[8],__ARRAY_STRING256_OPT[9])+array_check((*_FUNC_SEPERATEARGS_LONG_O)-__ARRAY_STRING256_OPT[4],__ARRAY_STRING256_OPT[5])*__ARRAY_STRING256_OPT[6])*256],256,1)), 2 ,NULL,0)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21809);}while(r); -S_29309:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_SEPERATEARGS_STRING_C,qbs_ucase(qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_OPT[0]))[(array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_STRING256_OPT[8],__ARRAY_STRING256_OPT[9])+array_check((*_FUNC_SEPERATEARGS_LONG_O)-__ARRAY_STRING256_OPT[4],__ARRAY_STRING256_OPT[5])*__ARRAY_STRING256_OPT[6])*256],256,1)))))|*_FUNC_SEPERATEARGS_LONG_NOPREFIXMATCH))||new_error){ -if(qbevent){evnt(21810);if(r)goto S_29309;} -S_29310:; -if ((-(*_FUNC_SEPERATEARGS_LONG_I3<*_FUNC_SEPERATEARGS_LONG_POSITION))||new_error){ -if(qbevent){evnt(21812);if(r)goto S_29310;} -do{ -*_FUNC_SEPERATEARGS_LONG_POSITION=*_FUNC_SEPERATEARGS_LONG_I3; -if(!qbevent)break;evnt(21813);}while(r); -do{ -*_FUNC_SEPERATEARGS_LONG_WHICH=*_FUNC_SEPERATEARGS_LONG_O; -if(!qbevent)break;evnt(21814);}while(r); -S_29313:; -if ((*_FUNC_SEPERATEARGS_LONG_NOPREFIXMATCH)||new_error){ -if(qbevent){evnt(21815);if(r)goto S_29313;} -do{ -*_FUNC_SEPERATEARGS_LONG_REMOVEPREFIX= 1 ; -if(!qbevent)break;evnt(21815);}while(r); -} -do{ -*_FUNC_SEPERATEARGS_LONG_BVALUE=*_FUNC_SEPERATEARGS_LONG_B; -if(!qbevent)break;evnt(21816);}while(r); -do{ -goto fornext_exit_3115; -if(!qbevent)break;evnt(21817);}while(r); -} -} -} -S_29321:; -if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(_FUNC_SEPERATEARGS_STRING_C)== 44 ))&(-(*_FUNC_SEPERATEARGS_LONG_B== 0 ))))||new_error){ -if(qbevent){evnt(21822);if(r)goto S_29321;} -do{ -goto fornext_exit_3115; -if(!qbevent)break;evnt(21823);}while(r); -} -S_29324:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_SEPERATEARGS_STRING_C)== 40 )))||new_error){ -if(qbevent){evnt(21826);if(r)goto S_29324;} -do{ -*_FUNC_SEPERATEARGS_LONG_B=*_FUNC_SEPERATEARGS_LONG_B+ 1 ; -if(!qbevent)break;evnt(21827);}while(r); -} -S_29327:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_SEPERATEARGS_STRING_C)== 41 )))||new_error){ -if(qbevent){evnt(21829);if(r)goto S_29327;} -do{ -*_FUNC_SEPERATEARGS_LONG_B=*_FUNC_SEPERATEARGS_LONG_B- 1 ; -if(!qbevent)break;evnt(21830);}while(r); -S_29329:; -if ((-(*_FUNC_SEPERATEARGS_LONG_B== -1 ))||new_error){ -if(qbevent){evnt(21831);if(r)goto S_29329;} -do{ -goto fornext_exit_3115; -if(!qbevent)break;evnt(21831);}while(r); -} -} -} -fornext_continue_3115:; -} -fornext_exit_3115:; -fornext_continue_3113:; -} -fornext_exit_3113:; -} -S_29337:; -if ((-(*_FUNC_SEPERATEARGS_LONG_POSITION!=*_FUNC_SEPERATEARGS_LONG_OUTOFRANGE))||new_error){ -if(qbevent){evnt(21839);if(r)goto S_29337;} -do{ -*_FUNC_SEPERATEARGS_LONG_LEVEL=((int16*)(__ARRAY_INTEGER_LEV[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_INTEGER_LEV[4],__ARRAY_INTEGER_LEV[5])]; -if(!qbevent)break;evnt(21841);}while(r); -S_29339:; -if ((*_FUNC_SEPERATEARGS_LONG_EXPRESSION)||new_error){ -if(qbevent){evnt(21842);if(r)goto S_29339;} -S_29340:; -if (((-(*_FUNC_SEPERATEARGS_LONG_POSITION>*_FUNC_SEPERATEARGS_LONG_I))&(-(*_FUNC_SEPERATEARGS_LONG_BVALUE== 0 )))||new_error){ -if(qbevent){evnt(21845);if(r)goto S_29340;} -do{ -tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_EXPRESSION)-__ARRAY_STRING_SEPARGS[4],__ARRAY_STRING_SEPARGS[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS[0]))[tmp_long])),FUNC_GETELEMENTS(_FUNC_SEPERATEARGS_STRING_CA,_FUNC_SEPERATEARGS_LONG_I,&(pass3120=*_FUNC_SEPERATEARGS_LONG_POSITION- 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21847);}while(r); -do{ -*_FUNC_SEPERATEARGS_LONG_EXPRESSION= 0 ; -if(!qbevent)break;evnt(21848);}while(r); -do{ -*_FUNC_SEPERATEARGS_LONG_I=*_FUNC_SEPERATEARGS_LONG_POSITION; -if(!qbevent)break;evnt(21849);}while(r); -}else{ -do{ -goto LABEL_OPTCHECKBACKTRACK; -if(!qbevent)break;evnt(21853);}while(r); -} -} -do{ -*_FUNC_SEPERATEARGS_LONG_I=*_FUNC_SEPERATEARGS_LONG_I+((int16*)(__ARRAY_INTEGER_OPTWORDS[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_INTEGER_OPTWORDS[8],__ARRAY_INTEGER_OPTWORDS[9])+array_check((*_FUNC_SEPERATEARGS_LONG_WHICH)-__ARRAY_INTEGER_OPTWORDS[4],__ARRAY_INTEGER_OPTWORDS[5])*__ARRAY_INTEGER_OPTWORDS[6]]; -if(!qbevent)break;evnt(21857);}while(r); -do{ -tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_STRING_SEPARGSLAYOUT[4],__ARRAY_STRING_SEPARGSLAYOUT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT[0]))[tmp_long])),qbs_add(func_chr(((int32)(qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_OPT[0]))[(array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_STRING256_OPT[8],__ARRAY_STRING256_OPT[9])+array_check((*_FUNC_SEPERATEARGS_LONG_WHICH)-__ARRAY_STRING256_OPT[4],__ARRAY_STRING256_OPT[5])*__ARRAY_STRING256_OPT[6])*256],256,1)))->len)-*_FUNC_SEPERATEARGS_LONG_REMOVEPREFIX),FUNC_SCASE(func_mid(qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_OPT[0]))[(array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_STRING256_OPT[8],__ARRAY_STRING256_OPT[9])+array_check((*_FUNC_SEPERATEARGS_LONG_WHICH)-__ARRAY_STRING256_OPT[4],__ARRAY_STRING256_OPT[5])*__ARRAY_STRING256_OPT[6])*256],256,1)),*_FUNC_SEPERATEARGS_LONG_REMOVEPREFIX+ 1 ,NULL,0)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21858);}while(r); -do{ -tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_STRING_SEPARGS[4],__ARRAY_STRING_SEPARGS[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS[0]))[tmp_long])),qbs_add(func_chr( 0 ),FUNC_STR2(_FUNC_SEPERATEARGS_LONG_WHICH))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21859);}while(r); -}else{ -LABEL_OPTCHECKBACKTRACK:; -if(qbevent){evnt(21863);r=0;} -S_29352:; -if ((-(((int16*)(__ARRAY_INTEGER_LEV[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_INTEGER_LEV[4],__ARRAY_INTEGER_LEV[5])]>((int16*)(__ARRAY_INTEGER_ENTRYLEV[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_INTEGER_ENTRYLEV[4],__ARRAY_INTEGER_ENTRYLEV[5])]))||new_error){ -if(qbevent){evnt(21865);if(r)goto S_29352;} -do{ -tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_BRANCHES)-_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN[4],_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN[5]); -if (!new_error) ((int32*)(_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(21868);}while(r); -do{ -*_FUNC_SEPERATEARGS_LONG_LEVEL=*_FUNC_SEPERATEARGS_LONG_CURRENTLEV; -if(!qbevent)break;evnt(21869);}while(r); -}else{ -LABEL_BACKTRACK:; -if(qbevent){evnt(21871);r=0;} -S_29356:; -fornext_value3122=*_FUNC_SEPERATEARGS_LONG_BRANCHES; -fornext_finalvalue3122= 1 ; -fornext_step3122= -1 ; -if (fornext_step3122<0) fornext_step_negative3122=1; else fornext_step_negative3122=0; -if (new_error) goto fornext_error3122; -goto fornext_entrylabel3122; -while(1){ -fornext_value3122=fornext_step3122+(*_FUNC_SEPERATEARGS_LONG_BRANCH); -fornext_entrylabel3122: -*_FUNC_SEPERATEARGS_LONG_BRANCH=fornext_value3122; -if (fornext_step_negative3122){ -if (fornext_value3122fornext_finalvalue3122) break; -} -fornext_error3122:; -if(qbevent){evnt(21874);if(r)goto S_29356;} -S_29357:; -if ((((int32*)(_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_BRANCH)-_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN[4],_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN[5])])||new_error){ -if(qbevent){evnt(21875);if(r)goto S_29357;} -do{ -goto fornext_exit_3121; -if(!qbevent)break;evnt(21875);}while(r); -} -do{ -*_FUNC_SEPERATEARGS_LONG_BRANCHES=*_FUNC_SEPERATEARGS_LONG_BRANCHES- 1 ; -if(!qbevent)break;evnt(21876);}while(r); -fornext_continue_3121:; -} -fornext_exit_3121:; -S_29362:; -if ((-(*_FUNC_SEPERATEARGS_LONG_BRANCHES== 0 ))||new_error){ -if(qbevent){evnt(21878);if(r)goto S_29362;} -do{ -*__LONG_SEPERATEARGS_ERROR= 1 ; -if(!qbevent)break;evnt(21879);}while(r); -do{ -qbs_set(__STRING_SEPERATEARGS_ERROR_MESSAGE,qbs_new_txt_len("Syntax error",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21880);}while(r); -S_29365:; -if ((qbs_cleanup(qbs_tmp_base,-((*(qbs**)(((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(2861)))->len> 0 )))||new_error){ -if(qbevent){evnt(21881);if(r)goto S_29365;} -do{ -qbs_set(__STRING_SEPERATEARGS_ERROR_MESSAGE,qbs_add(qbs_add(__STRING_SEPERATEARGS_ERROR_MESSAGE,qbs_new_txt_len(" - Reference: ",14)),*((qbs**)((char*)_FUNC_SEPERATEARGS_UDT_ID2+(2861))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21881);}while(r); -} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(21882);}while(r); -} -do{ -tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_BRANCHES)-_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN[4],_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN[5]); -if (!new_error) ((int32*)(_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(21885);}while(r); -do{ -*_FUNC_SEPERATEARGS_LONG_EXPRESSION=((int32*)(_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHWITHEXPRESSION[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_BRANCHES)-_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHWITHEXPRESSION[4],_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHWITHEXPRESSION[5])]; -if(!qbevent)break;evnt(21886);}while(r); -do{ -*_FUNC_SEPERATEARGS_LONG_I=((int32*)(_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHINPUTPOS[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_BRANCHES)-_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHINPUTPOS[4],_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHINPUTPOS[5])]; -if(!qbevent)break;evnt(21887);}while(r); -do{ -*_FUNC_SEPERATEARGS_LONG_X=((int32*)(_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHFORMATPOS[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_BRANCHES)-_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHFORMATPOS[4],_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHFORMATPOS[5])]; -if(!qbevent)break;evnt(21888);}while(r); -do{ -*_FUNC_SEPERATEARGS_LONG_LEVEL=((int32*)(_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHLEVEL[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_BRANCHES)-_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHLEVEL[4],_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHLEVEL[5])]; -if(!qbevent)break;evnt(21889);}while(r); -S_29375:; -if ((*_FUNC_SEPERATEARGS_LONG_EXPRESSION)||new_error){ -if(qbevent){evnt(21891);if(r)goto S_29375;} -do{ -tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_EXPRESSION)-__ARRAY_STRING_SEPARGS[4],__ARRAY_STRING_SEPARGS[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS[0]))[tmp_long])),qbs_new_txt_len("n-ll",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21891);}while(r); -} -S_29378:; -fornext_value3124=*_FUNC_SEPERATEARGS_LONG_X; -fornext_finalvalue3124=*_FUNC_SEPERATEARGS_LONG_LASTT; -fornext_step3124= 1 ; -if (fornext_step3124<0) fornext_step_negative3124=1; else fornext_step_negative3124=0; -if (new_error) goto fornext_error3124; -goto fornext_entrylabel3124; -while(1){ -fornext_value3124=fornext_step3124+(*_FUNC_SEPERATEARGS_LONG_X2); -fornext_entrylabel3124: -*_FUNC_SEPERATEARGS_LONG_X2=fornext_value3124; -if (fornext_step_negative3124){ -if (fornext_value3124fornext_finalvalue3124) break; -} -fornext_error3124:; -if(qbevent){evnt(21892);if(r)goto S_29378;} -do{ -tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_X2)-__ARRAY_STRING_SEPARGS[4],__ARRAY_STRING_SEPARGS[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS[0]))[tmp_long])),qbs_new_txt_len("n-ll",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21893);}while(r); -do{ -tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_X2)-__ARRAY_STRING_SEPARGSLAYOUT[4],__ARRAY_STRING_SEPARGSLAYOUT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT[0]))[tmp_long])),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21894);}while(r); -fornext_continue_3123:; -} -fornext_exit_3123:; -} -} -} -} -fornext_continue_3111:; -} -fornext_exit_3111:; -S_29387:; -if ((*_FUNC_SEPERATEARGS_LONG_EXPRESSION)||new_error){ -if(qbevent){evnt(21908);if(r)goto S_29387;} -S_29388:; -if ((-(*_FUNC_SEPERATEARGS_LONG_I<=*_FUNC_SEPERATEARGS_LONG_N))||new_error){ -if(qbevent){evnt(21909);if(r)goto S_29388;} -do{ -tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_EXPRESSION)-__ARRAY_STRING_SEPARGS[4],__ARRAY_STRING_SEPARGS[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS[0]))[tmp_long])),FUNC_GETELEMENTS(_FUNC_SEPERATEARGS_STRING_CA,_FUNC_SEPERATEARGS_LONG_I,_FUNC_SEPERATEARGS_LONG_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21910);}while(r); -do{ -*_FUNC_SEPERATEARGS_LONG_B= 0 ; -if(!qbevent)break;evnt(21914);}while(r); -S_29391:; -fornext_value3126=*_FUNC_SEPERATEARGS_LONG_I; -fornext_finalvalue3126=*_FUNC_SEPERATEARGS_LONG_N; -fornext_step3126= 1 ; -if (fornext_step3126<0) fornext_step_negative3126=1; else fornext_step_negative3126=0; -if (new_error) goto fornext_error3126; -goto fornext_entrylabel3126; -while(1){ -fornext_value3126=fornext_step3126+(*_FUNC_SEPERATEARGS_LONG_I2); -fornext_entrylabel3126: -*_FUNC_SEPERATEARGS_LONG_I2=fornext_value3126; -if (fornext_step_negative3126){ -if (fornext_value3126fornext_finalvalue3126) break; -} -fornext_error3126:; -if(qbevent){evnt(21915);if(r)goto S_29391;} -do{ -qbs_set(_FUNC_SEPERATEARGS_STRING_C,FUNC_GETELEMENT(_FUNC_SEPERATEARGS_STRING_A,_FUNC_SEPERATEARGS_LONG_I2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21916);}while(r); -S_29393:; -if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(_FUNC_SEPERATEARGS_STRING_C)== 44 ))&(-(*_FUNC_SEPERATEARGS_LONG_B== 0 ))))||new_error){ -if(qbevent){evnt(21917);if(r)goto S_29393;} -do{ -goto LABEL_BACKTRACK; -if(!qbevent)break;evnt(21918);}while(r); -} -S_29396:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_SEPERATEARGS_STRING_C)== 40 )))||new_error){ -if(qbevent){evnt(21920);if(r)goto S_29396;} -do{ -*_FUNC_SEPERATEARGS_LONG_B=*_FUNC_SEPERATEARGS_LONG_B+ 1 ; -if(!qbevent)break;evnt(21921);}while(r); -} -S_29399:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_SEPERATEARGS_STRING_C)== 41 )))||new_error){ -if(qbevent){evnt(21923);if(r)goto S_29399;} -do{ -*_FUNC_SEPERATEARGS_LONG_B=*_FUNC_SEPERATEARGS_LONG_B- 1 ; -if(!qbevent)break;evnt(21924);}while(r); -S_29401:; -if ((-(*_FUNC_SEPERATEARGS_LONG_B== -1 ))||new_error){ -if(qbevent){evnt(21925);if(r)goto S_29401;} -do{ -goto LABEL_BACKTRACK; -if(!qbevent)break;evnt(21925);}while(r); -} -} -fornext_continue_3125:; -} -fornext_exit_3125:; -S_29406:; -if ((-(*_FUNC_SEPERATEARGS_LONG_B!= 0 ))||new_error){ -if(qbevent){evnt(21928);if(r)goto S_29406;} -do{ -goto LABEL_BACKTRACK; -if(!qbevent)break;evnt(21928);}while(r); -} -do{ -*_FUNC_SEPERATEARGS_LONG_I=*_FUNC_SEPERATEARGS_LONG_N+ 1 ; -if(!qbevent)break;evnt(21930);}while(r); -}else{ -do{ -goto LABEL_BACKTRACK; -if(!qbevent)break;evnt(21932);}while(r); -} -} -S_29414:; -if ((-(*_FUNC_SEPERATEARGS_LONG_I!=(*_FUNC_SEPERATEARGS_LONG_N+ 1 )))||new_error){ -if(qbevent){evnt(21936);if(r)goto S_29414;} -do{ -goto LABEL_BACKTRACK; -if(!qbevent)break;evnt(21936);}while(r); -} -S_29417:; -if (( 0 )||new_error){ -if(qbevent){evnt(21938);if(r)goto S_29417;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip3127; -sub_file_print(tmp_fileno,qbs_new_txt_len("--------SEPERATE ARGUMENTS REPORT #2--------",44), 0, 0, 1); -if (new_error) goto skip3127; -skip3127: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(21939);}while(r); -S_29419:; -fornext_value3129= 1 ; -fornext_finalvalue3129=*_FUNC_SEPERATEARGS_LONG_LASTT; -fornext_step3129= 1 ; -if (fornext_step3129<0) fornext_step_negative3129=1; else fornext_step_negative3129=0; -if (new_error) goto fornext_error3129; -goto fornext_entrylabel3129; -while(1){ -fornext_value3129=fornext_step3129+(*_FUNC_SEPERATEARGS_LONG_I); -fornext_entrylabel3129: -*_FUNC_SEPERATEARGS_LONG_I=fornext_value3129; -if (fornext_step_negative3129){ -if (fornext_value3129fornext_finalvalue3129) break; -} -fornext_error3129:; -if(qbevent){evnt(21940);if(r)goto S_29419;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip3130; -sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_SEPERATEARGS_LONG_I)), 1, 1, 0); -if (new_error) goto skip3130; -sub_file_print(tmp_fileno,((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_STRING_SEPARGS[4],__ARRAY_STRING_SEPARGS[5])])), 0, 0, 1); -if (new_error) goto skip3130; -skip3130: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(21941);}while(r); -fornext_continue_3128:; -} -fornext_exit_3128:; -} -S_29423:; -if ((-(*_FUNC_SEPERATEARGS_LONG_PASSFLAG!= 1 ))||new_error){ -if(qbevent){evnt(21952);if(r)goto S_29423;} -do{ -*_FUNC_SEPERATEARGS_LONG_SEPERATEARGS= 1 ; -if(!qbevent)break;evnt(21952);}while(r); -} -do{ -*_FUNC_SEPERATEARGS_LONG_PASS= 0 ; -if(!qbevent)break;evnt(21953);}while(r); -do{ -*_FUNC_SEPERATEARGS_LONG_X= 1 ; -if(!qbevent)break;evnt(21956);}while(r); -S_29428:; -fornext_value3132= 1 ; -fornext_finalvalue3132=*_FUNC_SEPERATEARGS_LONG_LASTT; -fornext_step3132= 1 ; -if (fornext_step3132<0) fornext_step_negative3132=1; else fornext_step_negative3132=0; -if (new_error) goto fornext_error3132; -goto fornext_entrylabel3132; -while(1){ -fornext_value3132=fornext_step3132+(*_FUNC_SEPERATEARGS_LONG_I); -fornext_entrylabel3132: -*_FUNC_SEPERATEARGS_LONG_I=fornext_value3132; -if (fornext_step_negative3132){ -if (fornext_value3132fornext_finalvalue3132) break; -} -fornext_error3132:; -if(qbevent){evnt(21958);if(r)goto S_29428;} -S_29429:; -if ((-(((int16*)(__ARRAY_INTEGER_DONTPASS[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_INTEGER_DONTPASS[4],__ARRAY_INTEGER_DONTPASS[5])]== 0 ))||new_error){ -if(qbevent){evnt(21960);if(r)goto S_29429;} -S_29430:; -if ((-(((int32*)(__ARRAY_LONG_PASSRULE[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_LONG_PASSRULE[4],__ARRAY_LONG_PASSRULE[5])]> 0 ))||new_error){ -if(qbevent){evnt(21962);if(r)goto S_29430;} -S_29431:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_STRING_SEPARGS[4],__ARRAY_STRING_SEPARGS[5])])),qbs_new_txt_len("n-ll",4))))||new_error){ -if(qbevent){evnt(21963);if(r)goto S_29431;} -do{ -*_FUNC_SEPERATEARGS_LONG_PASS=*_FUNC_SEPERATEARGS_LONG_PASS|((int32*)(__ARRAY_LONG_PASSRULE[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_LONG_PASSRULE[4],__ARRAY_LONG_PASSRULE[5])]; -if(!qbevent)break;evnt(21963);}while(r); -} -} -do{ -tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_STRING_SEPARGS[4],__ARRAY_STRING_SEPARGS[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS[0]))[tmp_long])),((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_STRING_SEPARGS[4],__ARRAY_STRING_SEPARGS[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21966);}while(r); -do{ -tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_STRING_SEPARGSLAYOUT[4],__ARRAY_STRING_SEPARGSLAYOUT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT[0]))[tmp_long])),((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_STRING_SEPARGSLAYOUT[4],__ARRAY_STRING_SEPARGSLAYOUT[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21967);}while(r); -S_29437:; -if ((qbs_cleanup(qbs_tmp_base,((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_STRING_SEPARGS[4],__ARRAY_STRING_SEPARGS[5])]))->len))||new_error){ -if(qbevent){evnt(21969);if(r)goto S_29437;} -S_29438:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_STRING_SEPARGS[4],__ARRAY_STRING_SEPARGS[5])])))== 0 )))||new_error){ -if(qbevent){evnt(21970);if(r)goto S_29438;} -do{ -tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_STRING_SEPARGS[4],__ARRAY_STRING_SEPARGS[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS[0]))[tmp_long])),qbs_right(((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_STRING_SEPARGS[4],__ARRAY_STRING_SEPARGS[5])])),((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_STRING_SEPARGS[4],__ARRAY_STRING_SEPARGS[5])]))->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21972);}while(r); -do{ -tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_STRING_SEPARGSLAYOUT[4],__ARRAY_STRING_SEPARGSLAYOUT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT[0]))[tmp_long])),qbs_add(((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_STRING_SEPARGSLAYOUT[4],__ARRAY_STRING_SEPARGSLAYOUT[5])])),func_chr( 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21973);}while(r); -} -} -S_29443:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_STRING_SEPARGS[4],__ARRAY_STRING_SEPARGS[5])])),qbs_new_txt_len("n-ll",4))))||new_error){ -if(qbevent){evnt(21977);if(r)goto S_29443;} -do{ -tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_STRING_SEPARGS[4],__ARRAY_STRING_SEPARGS[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS[0]))[tmp_long])),qbs_new_txt_len("N-LL",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21977);}while(r); -} -do{ -*_FUNC_SEPERATEARGS_LONG_X=*_FUNC_SEPERATEARGS_LONG_X+ 1 ; -if(!qbevent)break;evnt(21978);}while(r); -}else{ -S_29448:; -if ((-(((int32*)(__ARRAY_LONG_PASSRULE[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_LONG_PASSRULE[4],__ARRAY_LONG_PASSRULE[5])]> 0 ))||new_error){ -if(qbevent){evnt(21985);if(r)goto S_29448;} -S_29449:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_STRING_SEPARGS[4],__ARRAY_STRING_SEPARGS[5])])),qbs_new_txt_len("n-ll",4))))||new_error){ -if(qbevent){evnt(21986);if(r)goto S_29449;} -do{ -*_FUNC_SEPERATEARGS_LONG_PASS=*_FUNC_SEPERATEARGS_LONG_PASS|((int32*)(__ARRAY_LONG_PASSRULE[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_LONG_PASSRULE[4],__ARRAY_LONG_PASSRULE[5])]; -if(!qbevent)break;evnt(21986);}while(r); -} -} -do{ -tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_I+ 1 )-__ARRAY_STRING_SEPARGSLAYOUT[4],__ARRAY_STRING_SEPARGSLAYOUT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT[0]))[tmp_long])),qbs_add(((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_STRING_SEPARGSLAYOUT[4],__ARRAY_STRING_SEPARGSLAYOUT[5])])),((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I+ 1 )-__ARRAY_STRING_SEPARGSLAYOUT[4],__ARRAY_STRING_SEPARGSLAYOUT[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21989);}while(r); -} -fornext_continue_3131:; -} -fornext_exit_3131:; -do{ -tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_STRING_SEPARGSLAYOUT[4],__ARRAY_STRING_SEPARGSLAYOUT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT[0]))[tmp_long])),((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_STRING_SEPARGSLAYOUT[4],__ARRAY_STRING_SEPARGSLAYOUT[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(21993);}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free40.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -return *_FUNC_SEPERATEARGS_LONG_SEPERATEARGS; -} -void SUB_SETREFER(qbs*_SUB_SETREFER_STRING_A2,int32*_SUB_SETREFER_LONG_TYP2,qbs*_SUB_SETREFER_STRING_E2,int32*_SUB_SETREFER_LONG_METHOD){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data41.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -qbs_set(_SUB_SETREFER_STRING_A,_SUB_SETREFER_STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22003);}while(r); -do{ -*_SUB_SETREFER_LONG_TYP=*_SUB_SETREFER_LONG_TYP2; -if(!qbevent)break;evnt(22003);}while(r); -do{ -qbs_set(_SUB_SETREFER_STRING_E,_SUB_SETREFER_STRING_E2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22003);}while(r); -S_29460:; -if ((-(*_SUB_SETREFER_LONG_METHOD!= 1 ))||new_error){ -if(qbevent){evnt(22004);if(r)goto S_29460;} -do{ -qbs_set(_SUB_SETREFER_STRING_E,FUNC_FIXOPERATIONORDER(_SUB_SETREFER_STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22004);}while(r); -} -S_29463:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(22005);if(r)goto S_29463;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22005);}while(r); -} -do{ -qbs_set(_SUB_SETREFER_STRING_TL,__STRING_TLAYOUT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22006);}while(r); -do{ -*_SUB_SETREFER_LONG_I=func_instr(NULL,_SUB_SETREFER_STRING_A,__STRING1_SP3,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22014);}while(r); -S_29468:; -if ((*_SUB_SETREFER_LONG_I)||new_error){ -if(qbevent){evnt(22015);if(r)goto S_29468;} -do{ -*_SUB_SETREFER_LONG_IDNUMBER=qbr(func_val(qbs_left(_SUB_SETREFER_STRING_A,*_SUB_SETREFER_LONG_I- 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22016);}while(r); -do{ -qbs_set(_SUB_SETREFER_STRING_A,qbs_right(_SUB_SETREFER_STRING_A,_SUB_SETREFER_STRING_A->len-*_SUB_SETREFER_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22016);}while(r); -}else{ -do{ -*_SUB_SETREFER_LONG_IDNUMBER=qbr(func_val(_SUB_SETREFER_STRING_A)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22018);}while(r); -} -do{ -SUB_GETID(_SUB_SETREFER_LONG_IDNUMBER); -if(!qbevent)break;evnt(22020);}while(r); -S_29475:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(22021);if(r)goto S_29475;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22021);}while(r); -} -S_29478:; -if ((*_SUB_SETREFER_LONG_TYP&*__LONG_ISUDT)||new_error){ -if(qbevent){evnt(22024);if(r)goto S_29478;} -do{ -*_SUB_SETREFER_LONG_U=qbr(func_val(_SUB_SETREFER_STRING_A)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22027);}while(r); -do{ -*_SUB_SETREFER_LONG_I=func_instr(NULL,_SUB_SETREFER_STRING_A,__STRING1_SP3,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22028);}while(r); -do{ -qbs_set(_SUB_SETREFER_STRING_A,qbs_right(_SUB_SETREFER_STRING_A,_SUB_SETREFER_STRING_A->len-*_SUB_SETREFER_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22028);}while(r); -do{ -*__LONG_E=qbr(func_val(_SUB_SETREFER_STRING_A)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22028);}while(r); -do{ -*_SUB_SETREFER_LONG_I=func_instr(NULL,_SUB_SETREFER_STRING_A,__STRING1_SP3,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22029);}while(r); -do{ -qbs_set(_SUB_SETREFER_STRING_O,qbs_right(_SUB_SETREFER_STRING_A,_SUB_SETREFER_STRING_A->len-*_SUB_SETREFER_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22029);}while(r); -do{ -qbs_set(_SUB_SETREFER_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(22030);}while(r); -S_29486:; -if ((-(*(int32*)(((char*)__UDT_ID)+(536))== 0 ))||new_error){ -if(qbevent){evnt(22030);if(r)goto S_29486;} -do{ -qbs_set(_SUB_SETREFER_STRING_N,qbs_add(qbs_add(qbs_new_txt_len("ARRAY_",6),_SUB_SETREFER_STRING_N),qbs_new_txt_len("[0]",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22030);}while(r); -} -S_29489:; -if (((-(*__LONG_E!= 0 ))&(-(*_SUB_SETREFER_LONG_U== 1 )))||new_error){ -if(qbevent){evnt(22032);if(r)goto S_29489;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Cannot set read-only element of _MEM TYPE",41)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22033);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22033);}while(r); -} -S_29493:; -if ((-(*__LONG_E== 0 ))||new_error){ -if(qbevent){evnt(22036);if(r)goto S_29493;} -S_29494:; -if ((-(*_SUB_SETREFER_LONG_METHOD!= 0 ))||new_error){ -if(qbevent){evnt(22039);if(r)goto S_29494;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Unexpected internal code reference to UDT",41)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22039);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22039);}while(r); -} -do{ -qbs_set(_SUB_SETREFER_STRING_LHSSCOPE,FUNC_SCOPE()); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22040);}while(r); -do{ -qbs_set(_SUB_SETREFER_STRING_E,FUNC_EVALUATE(_SUB_SETREFER_STRING_E,_SUB_SETREFER_LONG_T2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22041);}while(r); -S_29500:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(22042);if(r)goto S_29500;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22042);}while(r); -} -S_29503:; -if ((-((*_SUB_SETREFER_LONG_T2&*__LONG_ISUDT)== 0 ))||new_error){ -if(qbevent){evnt(22043);if(r)goto S_29503;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected = similar user defined type",36)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22043);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22043);}while(r); -} -S_29507:; -if ((-((*_SUB_SETREFER_LONG_T2&*__LONG_ISREFERENCE)== 0 ))||new_error){ -if(qbevent){evnt(22045);if(r)goto S_29507;} -S_29508:; -if ((*_SUB_SETREFER_LONG_T2&*__LONG_ISPOINTER)||new_error){ -if(qbevent){evnt(22046);if(r)goto S_29508;} -do{ -qbs_set(_SUB_SETREFER_STRING_SRC,qbs_add(qbs_add(qbs_new_txt_len("((char*)",8),_SUB_SETREFER_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22047);}while(r); -do{ -*_SUB_SETREFER_LONG_E2= 0 ; -if(!qbevent)break;evnt(22048);}while(r); -do{ -*_SUB_SETREFER_LONG_U2=*_SUB_SETREFER_LONG_T2& 511 ; -if(!qbevent)break;evnt(22048);}while(r); -}else{ -do{ -qbs_set(_SUB_SETREFER_STRING_SRC,qbs_add(qbs_add(qbs_new_txt_len("((char*)&",9),_SUB_SETREFER_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22050);}while(r); -do{ -*_SUB_SETREFER_LONG_E2= 0 ; -if(!qbevent)break;evnt(22051);}while(r); -do{ -*_SUB_SETREFER_LONG_U2=*_SUB_SETREFER_LONG_T2& 511 ; -if(!qbevent)break;evnt(22051);}while(r); -} -do{ -goto LABEL_DIRECTUDT; -if(!qbevent)break;evnt(22053);}while(r); -} -do{ -*_SUB_SETREFER_LONG_IDNUMBER2=qbr(func_val(_SUB_SETREFER_STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22057);}while(r); -do{ -SUB_GETID(_SUB_SETREFER_LONG_IDNUMBER2); -if(!qbevent)break;evnt(22058);}while(r); -S_29521:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(22061);if(r)goto S_29521;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22061);}while(r); -} -do{ -qbs_set(_SUB_SETREFER_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(22062);}while(r); -S_29525:; -if ((-(*(int32*)(((char*)__UDT_ID)+(536))== 0 ))||new_error){ -if(qbevent){evnt(22062);if(r)goto S_29525;} -do{ -qbs_set(_SUB_SETREFER_STRING_N2,qbs_add(qbs_add(qbs_new_txt_len("ARRAY_",6),_SUB_SETREFER_STRING_N2),qbs_new_txt_len("[0]",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22062);}while(r); -} -do{ -*_SUB_SETREFER_LONG_I=func_instr(NULL,_SUB_SETREFER_STRING_E,__STRING1_SP3,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22063);}while(r); -do{ -qbs_set(_SUB_SETREFER_STRING_E,qbs_right(_SUB_SETREFER_STRING_E,_SUB_SETREFER_STRING_E->len-*_SUB_SETREFER_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22063);}while(r); -do{ -*_SUB_SETREFER_LONG_U2=qbr(func_val(_SUB_SETREFER_STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22063);}while(r); -do{ -*_SUB_SETREFER_LONG_I=func_instr(NULL,_SUB_SETREFER_STRING_E,__STRING1_SP3,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22064);}while(r); -do{ -qbs_set(_SUB_SETREFER_STRING_E,qbs_right(_SUB_SETREFER_STRING_E,_SUB_SETREFER_STRING_E->len-*_SUB_SETREFER_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22064);}while(r); -do{ -*_SUB_SETREFER_LONG_E2=qbr(func_val(_SUB_SETREFER_STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22064);}while(r); -do{ -*_SUB_SETREFER_LONG_I=func_instr(NULL,_SUB_SETREFER_STRING_E,__STRING1_SP3,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22065);}while(r); -do{ -qbs_set(_SUB_SETREFER_STRING_O2,qbs_right(_SUB_SETREFER_STRING_E,_SUB_SETREFER_STRING_E->len-*_SUB_SETREFER_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22065);}while(r); -do{ -qbs_set(_SUB_SETREFER_STRING_SRC,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("((char*)",8),FUNC_SCOPE()),_SUB_SETREFER_STRING_N2),qbs_new_txt_len(")+(",3)),_SUB_SETREFER_STRING_O2),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22070);}while(r); -LABEL_DIRECTUDT:; -if(qbevent){evnt(22071);r=0;} -S_29537:; -if (((-(*_SUB_SETREFER_LONG_U!=*_SUB_SETREFER_LONG_U2))|(-(*_SUB_SETREFER_LONG_E2!= 0 )))||new_error){ -if(qbevent){evnt(22072);if(r)goto S_29537;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected = similar user defined type",36)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22072);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22072);}while(r); -} -do{ -qbs_set(_SUB_SETREFER_STRING_DST,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("((char*)",8),_SUB_SETREFER_STRING_LHSSCOPE),_SUB_SETREFER_STRING_N),qbs_new_txt_len(")+(",3)),_SUB_SETREFER_STRING_O),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22073);}while(r); -do{ -SUB_COPY_FULL_UDT(_SUB_SETREFER_STRING_DST,_SUB_SETREFER_STRING_SRC,__LONG_MAINTXTBUF,&(pass3143= 0 ),_SUB_SETREFER_LONG_U); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22074);}while(r); -do{ -qbs_set(__STRING_TLAYOUT,_SUB_SETREFER_STRING_TL); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22078);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22079);}while(r); -} -S_29546:; -if ((*_SUB_SETREFER_LONG_TYP&*__LONG_ISOFFSETINBITS)||new_error){ -if(qbevent){evnt(22083);if(r)goto S_29546;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Cannot resolve bit-length variables inside user defined types",61)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22083);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22083);}while(r); -} -S_29550:; -if ((*_SUB_SETREFER_LONG_TYP&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(22084);if(r)goto S_29550;} -S_29551:; -if ((*_SUB_SETREFER_LONG_TYP&*__LONG_ISFIXEDLENGTH)||new_error){ -if(qbevent){evnt(22085);if(r)goto S_29551;} -do{ -qbs_set(_SUB_SETREFER_STRING_O2,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(((uint8*)",10),FUNC_SCOPE()),_SUB_SETREFER_STRING_N),qbs_new_txt_len(")+(",3)),_SUB_SETREFER_STRING_O),qbs_new_txt_len("))",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22086);}while(r); -do{ -qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_new_fixed(",14),_SUB_SETREFER_STRING_O2),qbs_new_txt_len(",",1)),FUNC_STR2((&(((int32*)(__ARRAY_LONG_UDTETYPESIZE[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTETYPESIZE[4],__ARRAY_LONG_UDTETYPESIZE[5])])))),qbs_new_txt_len(",1)",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22087);}while(r); -}else{ -do{ -qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*((qbs**)((char*)(",18),FUNC_SCOPE()),_SUB_SETREFER_STRING_N),qbs_new_txt_len(")+(",3)),_SUB_SETREFER_STRING_O),qbs_new_txt_len(")))",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22089);}while(r); -} -S_29557:; -if ((-(*_SUB_SETREFER_LONG_METHOD== 0 ))||new_error){ -if(qbevent){evnt(22091);if(r)goto S_29557;} -do{ -qbs_set(_SUB_SETREFER_STRING_E,FUNC_EVALUATETOTYP(_SUB_SETREFER_STRING_E,&(pass3144=*__LONG_STRINGTYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22091);}while(r); -} -S_29560:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(22092);if(r)goto S_29560;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22092);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass3145=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_set(",8),_SUB_SETREFER_STRING_R),qbs_new_txt_len(",",1)),_SUB_SETREFER_STRING_E),qbs_new_txt_len(");",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22093);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass3146=*__LONG_MAINTXTBUF),qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22094);}while(r); -}else{ -do{ -*_SUB_SETREFER_LONG_TYP=*_SUB_SETREFER_LONG_TYP-*__LONG_ISUDT-*__LONG_ISREFERENCE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(22096);}while(r); -S_29567:; -if ((*_SUB_SETREFER_LONG_TYP&*__LONG_ISARRAY)||new_error){ -if(qbevent){evnt(22097);if(r)goto S_29567;} -do{ -*_SUB_SETREFER_LONG_TYP=*_SUB_SETREFER_LONG_TYP-*__LONG_ISARRAY; -if(!qbevent)break;evnt(22097);}while(r); -} -do{ -qbs_set(_SUB_SETREFER_STRING_T,FUNC_TYP2CTYP(_SUB_SETREFER_LONG_TYP,qbs_new_txt_len("",0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22098);}while(r); -S_29571:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(22099);if(r)goto S_29571;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22099);}while(r); -} -do{ -qbs_set(_SUB_SETREFER_STRING_O2,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(((char*)",9),FUNC_SCOPE()),_SUB_SETREFER_STRING_N),qbs_new_txt_len(")+(",3)),_SUB_SETREFER_STRING_O),qbs_new_txt_len("))",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22100);}while(r); -do{ -qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),qbs_new_txt_len("(",1)),_SUB_SETREFER_STRING_T),qbs_new_txt_len("*)",2)),_SUB_SETREFER_STRING_O2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22101);}while(r); -S_29576:; -if ((-(*_SUB_SETREFER_LONG_METHOD== 0 ))||new_error){ -if(qbevent){evnt(22102);if(r)goto S_29576;} -do{ -qbs_set(_SUB_SETREFER_STRING_E,FUNC_EVALUATETOTYP(_SUB_SETREFER_STRING_E,_SUB_SETREFER_LONG_TYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22102);}while(r); -} -S_29579:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(22103);if(r)goto S_29579;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22103);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass3147=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(_SUB_SETREFER_STRING_R,qbs_new_txt_len("=",1)),_SUB_SETREFER_STRING_E),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22104);}while(r); -} -do{ -qbs_set(__STRING_TLAYOUT,_SUB_SETREFER_STRING_TL); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22108);}while(r); -S_29585:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_SETREFER_STRING_R, 1 ),qbs_new_txt_len("*",1))))||new_error){ -if(qbevent){evnt(22109);if(r)goto S_29585;} -do{ -qbs_set(_SUB_SETREFER_STRING_R,func_mid(_SUB_SETREFER_STRING_R, 2 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22109);}while(r); -} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22110);}while(r); -} -S_29590:; -if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ -if(qbevent){evnt(22115);if(r)goto S_29590;} -do{ -qbs_set(_SUB_SETREFER_STRING_N,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22116);}while(r); -do{ -*_SUB_SETREFER_LONG_TYP=*_SUB_SETREFER_LONG_TYP-*__LONG_ISPOINTER-*__LONG_ISREFERENCE; -if(!qbevent)break;evnt(22117);}while(r); -S_29593:; -if (((*_SUB_SETREFER_LONG_TYP&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(22119);if(r)goto S_29593;} -S_29594:; -if (((*_SUB_SETREFER_LONG_TYP&*__LONG_ISFIXEDLENGTH))||new_error){ -if(qbevent){evnt(22120);if(r)goto S_29594;} -do{ -qbs_set(_SUB_SETREFER_STRING_OFFSET,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("&((uint8*)(",11),_SUB_SETREFER_STRING_N),qbs_new_txt_len("[0]))[tmp_long*",15)),FUNC_STR2((int32*)(void*)( ((char*)(__UDT_ID)) + (540) ))),qbs_new_txt_len("]",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22121);}while(r); -do{ -qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_new_fixed(",14),_SUB_SETREFER_STRING_OFFSET),qbs_new_txt_len(",",1)),FUNC_STR2((int32*)(void*)( ((char*)(__UDT_ID)) + (540) ))),qbs_new_txt_len(",1)",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22122);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass3148=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("tmp_long=",9),_SUB_SETREFER_STRING_A),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22123);}while(r); -S_29598:; -if ((-(*_SUB_SETREFER_LONG_METHOD== 0 ))||new_error){ -if(qbevent){evnt(22124);if(r)goto S_29598;} -do{ -qbs_set(_SUB_SETREFER_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (!new_error) qbs_set(",24),_SUB_SETREFER_STRING_R),qbs_new_txt_len(",",1)),FUNC_EVALUATETOTYP(_SUB_SETREFER_STRING_E,_SUB_SETREFER_LONG_TYP)),qbs_new_txt_len(");",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22125);}while(r); -S_29600:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(22126);if(r)goto S_29600;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22126);}while(r); -} -}else{ -do{ -qbs_set(_SUB_SETREFER_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (!new_error) qbs_set(",24),_SUB_SETREFER_STRING_R),qbs_new_txt_len(",",1)),_SUB_SETREFER_STRING_E),qbs_new_txt_len(");",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22128);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass3149=*__LONG_MAINTXTBUF),_SUB_SETREFER_STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22130);}while(r); -}else{ -do{ -SUB_WRITEBUFLINE(&(pass3150=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("tmp_long=",9),_SUB_SETREFER_STRING_A),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22132);}while(r); -S_29609:; -if ((-(*_SUB_SETREFER_LONG_METHOD== 0 ))||new_error){ -if(qbevent){evnt(22133);if(r)goto S_29609;} -do{ -qbs_set(_SUB_SETREFER_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (!new_error) qbs_set( ((qbs*)(((uint64*)(",44),_SUB_SETREFER_STRING_N),qbs_new_txt_len("[0]))[tmp_long])),",18)),FUNC_EVALUATETOTYP(_SUB_SETREFER_STRING_E,_SUB_SETREFER_LONG_TYP)),qbs_new_txt_len(");",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22134);}while(r); -S_29611:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(22135);if(r)goto S_29611;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22135);}while(r); -} -}else{ -do{ -qbs_set(_SUB_SETREFER_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (!new_error) qbs_set( ((qbs*)(((uint64*)(",44),_SUB_SETREFER_STRING_N),qbs_new_txt_len("[0]))[tmp_long])),",18)),_SUB_SETREFER_STRING_E),qbs_new_txt_len(");",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22137);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass3151=*__LONG_MAINTXTBUF),_SUB_SETREFER_STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22139);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass3152=*__LONG_MAINTXTBUF),qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22141);}while(r); -do{ -qbs_set(__STRING_TLAYOUT,_SUB_SETREFER_STRING_TL); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22142);}while(r); -S_29621:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_SETREFER_STRING_R, 1 ),qbs_new_txt_len("*",1))))||new_error){ -if(qbevent){evnt(22143);if(r)goto S_29621;} -do{ -qbs_set(_SUB_SETREFER_STRING_R,func_mid(_SUB_SETREFER_STRING_R, 2 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22143);}while(r); -} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22144);}while(r); -} -S_29626:; -if (((*_SUB_SETREFER_LONG_TYP&*__LONG_ISOFFSETINBITS))||new_error){ -if(qbevent){evnt(22147);if(r)goto S_29626;} -do{ -qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_new_txt_len("setbits(",8),FUNC_STR2(&(pass3153=*_SUB_SETREFER_LONG_TYP& 511 ))),qbs_new_txt_len(",",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22149);}while(r); -do{ -qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(_SUB_SETREFER_STRING_R,qbs_new_txt_len("(uint8*)(",9)),_SUB_SETREFER_STRING_N),qbs_new_txt_len("[0])",4)),qbs_new_txt_len(",tmp_long,",10))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22150);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass3154=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("tmp_long=",9),_SUB_SETREFER_STRING_A),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22151);}while(r); -S_29630:; -if ((-(*_SUB_SETREFER_LONG_METHOD== 0 ))||new_error){ -if(qbevent){evnt(22152);if(r)goto S_29630;} -do{ -qbs_set(_SUB_SETREFER_STRING_L,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (!new_error) ",16),_SUB_SETREFER_STRING_R),FUNC_EVALUATETOTYP(_SUB_SETREFER_STRING_E,_SUB_SETREFER_LONG_TYP)),qbs_new_txt_len(");",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22153);}while(r); -S_29632:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(22154);if(r)goto S_29632;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22154);}while(r); -} -}else{ -do{ -qbs_set(_SUB_SETREFER_STRING_L,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (!new_error) ",16),_SUB_SETREFER_STRING_R),_SUB_SETREFER_STRING_E),qbs_new_txt_len(");",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22156);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass3155=*__LONG_MAINTXTBUF),_SUB_SETREFER_STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22158);}while(r); -do{ -qbs_set(__STRING_TLAYOUT,_SUB_SETREFER_STRING_TL); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22159);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22160);}while(r); -}else{ -do{ -qbs_set(_SUB_SETREFER_STRING_T,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22162);}while(r); -S_29643:; -if (((*_SUB_SETREFER_LONG_TYP&*__LONG_ISFLOAT))||new_error){ -if(qbevent){evnt(22163);if(r)goto S_29643;} -S_29644:; -if ((-((*_SUB_SETREFER_LONG_TYP& 511 )== 32 ))||new_error){ -if(qbevent){evnt(22164);if(r)goto S_29644;} -do{ -qbs_set(_SUB_SETREFER_STRING_T,qbs_new_txt_len("float",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22164);}while(r); -} -S_29647:; -if ((-((*_SUB_SETREFER_LONG_TYP& 511 )== 64 ))||new_error){ -if(qbevent){evnt(22165);if(r)goto S_29647;} -do{ -qbs_set(_SUB_SETREFER_STRING_T,qbs_new_txt_len("double",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22165);}while(r); -} -S_29650:; -if ((-((*_SUB_SETREFER_LONG_TYP& 511 )== 256 ))||new_error){ -if(qbevent){evnt(22166);if(r)goto S_29650;} -do{ -qbs_set(_SUB_SETREFER_STRING_T,qbs_new_txt_len("long double",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22166);}while(r); -} -}else{ -S_29654:; -if (((*_SUB_SETREFER_LONG_TYP&*__LONG_ISUNSIGNED))||new_error){ -if(qbevent){evnt(22168);if(r)goto S_29654;} -S_29655:; -if ((-((*_SUB_SETREFER_LONG_TYP& 511 )== 8 ))||new_error){ -if(qbevent){evnt(22169);if(r)goto S_29655;} -do{ -qbs_set(_SUB_SETREFER_STRING_T,qbs_new_txt_len("uint8",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22169);}while(r); -} -S_29658:; -if ((-((*_SUB_SETREFER_LONG_TYP& 511 )== 16 ))||new_error){ -if(qbevent){evnt(22170);if(r)goto S_29658;} -do{ -qbs_set(_SUB_SETREFER_STRING_T,qbs_new_txt_len("uint16",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22170);}while(r); -} -S_29661:; -if ((-((*_SUB_SETREFER_LONG_TYP& 511 )== 32 ))||new_error){ -if(qbevent){evnt(22171);if(r)goto S_29661;} -do{ -qbs_set(_SUB_SETREFER_STRING_T,qbs_new_txt_len("uint32",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22171);}while(r); -} -S_29664:; -if ((-((*_SUB_SETREFER_LONG_TYP& 511 )== 64 ))||new_error){ -if(qbevent){evnt(22172);if(r)goto S_29664;} -do{ -qbs_set(_SUB_SETREFER_STRING_T,qbs_new_txt_len("uint64",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22172);}while(r); -} -S_29667:; -if ((*_SUB_SETREFER_LONG_TYP&*__LONG_ISOFFSET)||new_error){ -if(qbevent){evnt(22173);if(r)goto S_29667;} -do{ -qbs_set(_SUB_SETREFER_STRING_T,qbs_new_txt_len("uptrszint",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22173);}while(r); -} -}else{ -S_29671:; -if ((-((*_SUB_SETREFER_LONG_TYP& 511 )== 8 ))||new_error){ -if(qbevent){evnt(22175);if(r)goto S_29671;} -do{ -qbs_set(_SUB_SETREFER_STRING_T,qbs_new_txt_len("int8",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22175);}while(r); -} -S_29674:; -if ((-((*_SUB_SETREFER_LONG_TYP& 511 )== 16 ))||new_error){ -if(qbevent){evnt(22176);if(r)goto S_29674;} -do{ -qbs_set(_SUB_SETREFER_STRING_T,qbs_new_txt_len("int16",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22176);}while(r); -} -S_29677:; -if ((-((*_SUB_SETREFER_LONG_TYP& 511 )== 32 ))||new_error){ -if(qbevent){evnt(22177);if(r)goto S_29677;} -do{ -qbs_set(_SUB_SETREFER_STRING_T,qbs_new_txt_len("int32",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22177);}while(r); -} -S_29680:; -if ((-((*_SUB_SETREFER_LONG_TYP& 511 )== 64 ))||new_error){ -if(qbevent){evnt(22178);if(r)goto S_29680;} -do{ -qbs_set(_SUB_SETREFER_STRING_T,qbs_new_txt_len("int64",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22178);}while(r); -} -S_29683:; -if ((*_SUB_SETREFER_LONG_TYP&*__LONG_ISOFFSET)||new_error){ -if(qbevent){evnt(22179);if(r)goto S_29683;} -do{ -qbs_set(_SUB_SETREFER_STRING_T,qbs_new_txt_len("ptrszint",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22179);}while(r); -} -} -} -} -S_29689:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_SETREFER_STRING_T,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(22183);if(r)goto S_29689;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Cannot find C type to return array data",39)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22183);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22183);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass3156=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("tmp_long=",9),_SUB_SETREFER_STRING_A),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22184);}while(r); -S_29694:; -if ((-(*_SUB_SETREFER_LONG_METHOD== 0 ))||new_error){ -if(qbevent){evnt(22185);if(r)goto S_29694;} -do{ -qbs_set(_SUB_SETREFER_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (!new_error) ((",18),_SUB_SETREFER_STRING_T),qbs_new_txt_len("*)(",3)),_SUB_SETREFER_STRING_N),qbs_new_txt_len("[0]))[tmp_long]=",16)),FUNC_EVALUATETOTYP(_SUB_SETREFER_STRING_E,_SUB_SETREFER_LONG_TYP)),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22186);}while(r); -S_29696:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(22187);if(r)goto S_29696;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22187);}while(r); -} -}else{ -do{ -qbs_set(_SUB_SETREFER_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (!new_error) ((",18),_SUB_SETREFER_STRING_T),qbs_new_txt_len("*)(",3)),_SUB_SETREFER_STRING_N),qbs_new_txt_len("[0]))[tmp_long]=",16)),_SUB_SETREFER_STRING_E),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22189);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass3157=*__LONG_MAINTXTBUF),_SUB_SETREFER_STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22192);}while(r); -do{ -qbs_set(__STRING_TLAYOUT,_SUB_SETREFER_STRING_TL); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22193);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22194);}while(r); -} -S_29706:; -if ((*(int32*)(((char*)__UDT_ID)+(536)))||new_error){ -if(qbevent){evnt(22198);if(r)goto S_29706;} -do{ -qbs_set(_SUB_SETREFER_STRING_R,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22199);}while(r); -do{ -*_SUB_SETREFER_LONG_T=*(int32*)(((char*)__UDT_ID)+(536)); -if(!qbevent)break;evnt(22200);}while(r); -S_29709:; -if (((*_SUB_SETREFER_LONG_T&*__LONG_ISINCONVENTIONALMEMORY))||new_error){ -if(qbevent){evnt(22202);if(r)goto S_29709;} -do{ -*_SUB_SETREFER_LONG_T=*_SUB_SETREFER_LONG_T-*__LONG_ISINCONVENTIONALMEMORY; -if(!qbevent)break;evnt(22202);}while(r); -} -do{ -*_SUB_SETREFER_LONG_TYP=*_SUB_SETREFER_LONG_T; -if(!qbevent)break;evnt(22203);}while(r); -S_29713:; -if (((*_SUB_SETREFER_LONG_T&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(22206);if(r)goto S_29713;} -S_29714:; -if (((*_SUB_SETREFER_LONG_T&*__LONG_ISFIXEDLENGTH))||new_error){ -if(qbevent){evnt(22207);if(r)goto S_29714;} -do{ -qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(FUNC_SCOPE(),qbs_new_txt_len("STRING",6)),FUNC_STR2((int32*)(void*)( ((char*)(__UDT_ID)) + (540) ))),qbs_new_txt_len("_",1)),_SUB_SETREFER_STRING_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22208);}while(r); -}else{ -do{ -qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(FUNC_SCOPE(),qbs_new_txt_len("STRING_",7)),_SUB_SETREFER_STRING_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22210);}while(r); -} -S_29719:; -if ((-(*_SUB_SETREFER_LONG_METHOD== 0 ))||new_error){ -if(qbevent){evnt(22212);if(r)goto S_29719;} -do{ -qbs_set(_SUB_SETREFER_STRING_E,FUNC_EVALUATETOTYP(_SUB_SETREFER_STRING_E,__LONG_ISSTRING)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22212);}while(r); -} -S_29722:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(22213);if(r)goto S_29722;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22213);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass3158=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_set(",8),_SUB_SETREFER_STRING_R),qbs_new_txt_len(",",1)),_SUB_SETREFER_STRING_E),qbs_new_txt_len(");",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22214);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass3159=*__LONG_MAINTXTBUF),qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22215);}while(r); -S_29727:; -if ((*__INTEGER_ARRAYPROCESSINGHAPPENED)||new_error){ -if(qbevent){evnt(22216);if(r)goto S_29727;} -do{ -*__INTEGER_ARRAYPROCESSINGHAPPENED= 0 ; -if(!qbevent)break;evnt(22216);}while(r); -} -do{ -qbs_set(__STRING_TLAYOUT,_SUB_SETREFER_STRING_TL); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22217);}while(r); -S_29731:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_SETREFER_STRING_R, 1 ),qbs_new_txt_len("*",1))))||new_error){ -if(qbevent){evnt(22218);if(r)goto S_29731;} -do{ -qbs_set(_SUB_SETREFER_STRING_R,func_mid(_SUB_SETREFER_STRING_R, 2 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22218);}while(r); -} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22219);}while(r); -} -S_29736:; -if (((*_SUB_SETREFER_LONG_T&*__LONG_ISOFFSETINBITS))||new_error){ -if(qbevent){evnt(22223);if(r)goto S_29736;} -do{ -*_SUB_SETREFER_LONG_B=*_SUB_SETREFER_LONG_T& 511 ; -if(!qbevent)break;evnt(22224);}while(r); -S_29738:; -if (((*_SUB_SETREFER_LONG_T&*__LONG_ISUNSIGNED))||new_error){ -if(qbevent){evnt(22225);if(r)goto S_29738;} -do{ -qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("UBIT",4)),FUNC_STR2(&(pass3160=*_SUB_SETREFER_LONG_T& 511 ))),qbs_new_txt_len("_",1)),_SUB_SETREFER_STRING_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22226);}while(r); -S_29740:; -if ((-(*_SUB_SETREFER_LONG_METHOD== 0 ))||new_error){ -if(qbevent){evnt(22227);if(r)goto S_29740;} -do{ -qbs_set(_SUB_SETREFER_STRING_E,FUNC_EVALUATETOTYP(_SUB_SETREFER_STRING_E,&(pass3161= 64 +*__LONG_ISUNSIGNED))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22227);}while(r); -} -S_29743:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(22228);if(r)goto S_29743;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22228);}while(r); -} -do{ -qbs_set(_SUB_SETREFER_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_SETREFER_STRING_R,qbs_new_txt_len("=(",2)),_SUB_SETREFER_STRING_E),qbs_new_txt_len(")&",2)),FUNC_STR2(&(pass3162=((int64*)(__ARRAY_INTEGER64_BITMASK[0]))[array_check((*_SUB_SETREFER_LONG_B)-__ARRAY_INTEGER64_BITMASK[4],__ARRAY_INTEGER64_BITMASK[5])]))),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22229);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass3163=*__LONG_MAINTXTBUF),_SUB_SETREFER_STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22230);}while(r); -}else{ -do{ -qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("BIT",3)),FUNC_STR2(&(pass3164=*_SUB_SETREFER_LONG_T& 511 ))),qbs_new_txt_len("_",1)),_SUB_SETREFER_STRING_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22232);}while(r); -S_29750:; -if ((-(*_SUB_SETREFER_LONG_METHOD== 0 ))||new_error){ -if(qbevent){evnt(22233);if(r)goto S_29750;} -do{ -qbs_set(_SUB_SETREFER_STRING_E,FUNC_EVALUATETOTYP(_SUB_SETREFER_STRING_E,&(pass3165= 64 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22233);}while(r); -} -S_29753:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(22234);if(r)goto S_29753;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22234);}while(r); -} -do{ -qbs_set(_SUB_SETREFER_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if ((",5),_SUB_SETREFER_STRING_R),qbs_new_txt_len("=",1)),_SUB_SETREFER_STRING_E),qbs_new_txt_len(")&",2)),FUNC_STR2(&(pass3166=qbr(pow2( 2 ,(*_SUB_SETREFER_LONG_B- 1 )))))),qbs_new_txt_len("){",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22235);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass3167=*__LONG_MAINTXTBUF),_SUB_SETREFER_STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22236);}while(r); -do{ -qbs_set(_SUB_SETREFER_STRING_L,qbs_add(qbs_add(qbs_add(_SUB_SETREFER_STRING_R,qbs_new_txt_len("|=",2)),FUNC_STR2(&(pass3168=((int64*)(__ARRAY_INTEGER64_BITMASKINV[0]))[array_check((*_SUB_SETREFER_LONG_B)-__ARRAY_INTEGER64_BITMASKINV[4],__ARRAY_INTEGER64_BITMASKINV[5])]))),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22238);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass3169=*__LONG_MAINTXTBUF),_SUB_SETREFER_STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22239);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass3170=*__LONG_MAINTXTBUF),qbs_new_txt_len("}else{",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22240);}while(r); -do{ -qbs_set(_SUB_SETREFER_STRING_L,qbs_add(qbs_add(qbs_add(_SUB_SETREFER_STRING_R,qbs_new_txt_len("&=",2)),FUNC_STR2(&(pass3171=((int64*)(__ARRAY_INTEGER64_BITMASK[0]))[array_check((*_SUB_SETREFER_LONG_B)-__ARRAY_INTEGER64_BITMASK[4],__ARRAY_INTEGER64_BITMASK[5])]))),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22242);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass3172=*__LONG_MAINTXTBUF),_SUB_SETREFER_STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22243);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass3173=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22244);}while(r); -} -S_29765:; -if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||new_error){ -if(qbevent){evnt(22246);if(r)goto S_29765;} -do{ -SUB_WRITEBUFLINE(&(pass3174=*__LONG_MAINTXTBUF),qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22246);}while(r); -do{ -*__INTEGER_STRINGPROCESSINGHAPPENED= 0 ; -if(!qbevent)break;evnt(22246);}while(r); -} -S_29769:; -if ((*__INTEGER_ARRAYPROCESSINGHAPPENED)||new_error){ -if(qbevent){evnt(22247);if(r)goto S_29769;} -do{ -*__INTEGER_ARRAYPROCESSINGHAPPENED= 0 ; -if(!qbevent)break;evnt(22247);}while(r); -} -do{ -qbs_set(__STRING_TLAYOUT,_SUB_SETREFER_STRING_TL); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22248);}while(r); -S_29773:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_SETREFER_STRING_R, 1 ),qbs_new_txt_len("*",1))))||new_error){ -if(qbevent){evnt(22249);if(r)goto S_29773;} -do{ -qbs_set(_SUB_SETREFER_STRING_R,func_mid(_SUB_SETREFER_STRING_R, 2 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22249);}while(r); -} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22250);}while(r); -} -S_29778:; -if ((-(*_SUB_SETREFER_LONG_T==*__LONG_BYTETYPE))||new_error){ -if(qbevent){evnt(22254);if(r)goto S_29778;} -do{ -qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("BYTE_",5)),_SUB_SETREFER_STRING_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22254);}while(r); -do{ -goto LABEL_SREF; -if(!qbevent)break;evnt(22254);}while(r); -} -S_29782:; -if ((-(*_SUB_SETREFER_LONG_T==*__LONG_UBYTETYPE))||new_error){ -if(qbevent){evnt(22255);if(r)goto S_29782;} -do{ -qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("UBYTE_",6)),_SUB_SETREFER_STRING_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22255);}while(r); -do{ -goto LABEL_SREF; -if(!qbevent)break;evnt(22255);}while(r); -} -S_29786:; -if ((-(*_SUB_SETREFER_LONG_T==*__LONG_INTEGERTYPE))||new_error){ -if(qbevent){evnt(22256);if(r)goto S_29786;} -do{ -qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("INTEGER_",8)),_SUB_SETREFER_STRING_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22256);}while(r); -do{ -goto LABEL_SREF; -if(!qbevent)break;evnt(22256);}while(r); -} -S_29790:; -if ((-(*_SUB_SETREFER_LONG_T==*__LONG_UINTEGERTYPE))||new_error){ -if(qbevent){evnt(22257);if(r)goto S_29790;} -do{ -qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("UINTEGER_",9)),_SUB_SETREFER_STRING_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22257);}while(r); -do{ -goto LABEL_SREF; -if(!qbevent)break;evnt(22257);}while(r); -} -S_29794:; -if ((-(*_SUB_SETREFER_LONG_T==*__LONG_LONGTYPE))||new_error){ -if(qbevent){evnt(22258);if(r)goto S_29794;} -do{ -qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("LONG_",5)),_SUB_SETREFER_STRING_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22258);}while(r); -do{ -goto LABEL_SREF; -if(!qbevent)break;evnt(22258);}while(r); -} -S_29798:; -if ((-(*_SUB_SETREFER_LONG_T==*__LONG_ULONGTYPE))||new_error){ -if(qbevent){evnt(22259);if(r)goto S_29798;} -do{ -qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("ULONG_",6)),_SUB_SETREFER_STRING_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22259);}while(r); -do{ -goto LABEL_SREF; -if(!qbevent)break;evnt(22259);}while(r); -} -S_29802:; -if ((-(*_SUB_SETREFER_LONG_T==*__LONG_INTEGER64TYPE))||new_error){ -if(qbevent){evnt(22260);if(r)goto S_29802;} -do{ -qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("INTEGER64_",10)),_SUB_SETREFER_STRING_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22260);}while(r); -do{ -goto LABEL_SREF; -if(!qbevent)break;evnt(22260);}while(r); -} -S_29806:; -if ((-(*_SUB_SETREFER_LONG_T==*__LONG_UINTEGER64TYPE))||new_error){ -if(qbevent){evnt(22261);if(r)goto S_29806;} -do{ -qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("UINTEGER64_",11)),_SUB_SETREFER_STRING_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22261);}while(r); -do{ -goto LABEL_SREF; -if(!qbevent)break;evnt(22261);}while(r); -} -S_29810:; -if ((-(*_SUB_SETREFER_LONG_T==*__LONG_SINGLETYPE))||new_error){ -if(qbevent){evnt(22262);if(r)goto S_29810;} -do{ -qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("SINGLE_",7)),_SUB_SETREFER_STRING_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22262);}while(r); -do{ -goto LABEL_SREF; -if(!qbevent)break;evnt(22262);}while(r); -} -S_29814:; -if ((-(*_SUB_SETREFER_LONG_T==*__LONG_DOUBLETYPE))||new_error){ -if(qbevent){evnt(22263);if(r)goto S_29814;} -do{ -qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("DOUBLE_",7)),_SUB_SETREFER_STRING_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22263);}while(r); -do{ -goto LABEL_SREF; -if(!qbevent)break;evnt(22263);}while(r); -} -S_29818:; -if ((-(*_SUB_SETREFER_LONG_T==*__LONG_FLOATTYPE))||new_error){ -if(qbevent){evnt(22264);if(r)goto S_29818;} -do{ -qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("FLOAT_",6)),_SUB_SETREFER_STRING_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22264);}while(r); -do{ -goto LABEL_SREF; -if(!qbevent)break;evnt(22264);}while(r); -} -S_29822:; -if ((-(*_SUB_SETREFER_LONG_T==*__LONG_OFFSETTYPE))||new_error){ -if(qbevent){evnt(22265);if(r)goto S_29822;} -do{ -qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("OFFSET_",7)),_SUB_SETREFER_STRING_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22265);}while(r); -do{ -goto LABEL_SREF; -if(!qbevent)break;evnt(22265);}while(r); -} -S_29826:; -if ((-(*_SUB_SETREFER_LONG_T==*__LONG_UOFFSETTYPE))||new_error){ -if(qbevent){evnt(22266);if(r)goto S_29826;} -do{ -qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("UOFFSET_",8)),_SUB_SETREFER_STRING_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22266);}while(r); -do{ -goto LABEL_SREF; -if(!qbevent)break;evnt(22266);}while(r); -} -LABEL_SREF:; -if(qbevent){evnt(22267);r=0;} -do{ -*_SUB_SETREFER_LONG_T2=*_SUB_SETREFER_LONG_T-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(22268);}while(r); -S_29831:; -if ((-(*_SUB_SETREFER_LONG_METHOD== 0 ))||new_error){ -if(qbevent){evnt(22269);if(r)goto S_29831;} -do{ -qbs_set(_SUB_SETREFER_STRING_E,FUNC_EVALUATETOTYP(_SUB_SETREFER_STRING_E,_SUB_SETREFER_LONG_T2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22269);}while(r); -} -S_29834:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(22270);if(r)goto S_29834;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22270);}while(r); -} -do{ -qbs_set(_SUB_SETREFER_STRING_L,qbs_add(qbs_add(qbs_add(_SUB_SETREFER_STRING_R,qbs_new_txt_len("=",1)),_SUB_SETREFER_STRING_E),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22271);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass3175=*__LONG_MAINTXTBUF),_SUB_SETREFER_STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22272);}while(r); -S_29839:; -if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||new_error){ -if(qbevent){evnt(22273);if(r)goto S_29839;} -do{ -SUB_WRITEBUFLINE(&(pass3176=*__LONG_MAINTXTBUF),qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22273);}while(r); -do{ -*__INTEGER_STRINGPROCESSINGHAPPENED= 0 ; -if(!qbevent)break;evnt(22273);}while(r); -} -S_29843:; -if ((*__INTEGER_ARRAYPROCESSINGHAPPENED)||new_error){ -if(qbevent){evnt(22274);if(r)goto S_29843;} -do{ -*__INTEGER_ARRAYPROCESSINGHAPPENED= 0 ; -if(!qbevent)break;evnt(22274);}while(r); -} -do{ -qbs_set(__STRING_TLAYOUT,_SUB_SETREFER_STRING_TL); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22275);}while(r); -S_29847:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_SETREFER_STRING_R, 1 ),qbs_new_txt_len("*",1))))||new_error){ -if(qbevent){evnt(22277);if(r)goto S_29847;} -do{ -qbs_set(_SUB_SETREFER_STRING_R,func_mid(_SUB_SETREFER_STRING_R, 2 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22277);}while(r); -} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22278);}while(r); -} -do{ -qbs_set(__STRING_TLAYOUT,_SUB_SETREFER_STRING_TL); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22281);}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free41.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -qbs* FUNC_STR2(int32*_FUNC_STR2_LONG_V){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data42.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -qbs_set(_FUNC_STR2_STRING_STR2,qbs__trim(qbs_str((int32)(*_FUNC_STR2_LONG_V)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22285);}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free42.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_STR2_STRING_STR2);return _FUNC_STR2_STRING_STR2; -} -qbs* FUNC_STR2U64(uint64*_FUNC_STR2U64_UINTEGER64_V){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data43.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -qbs_set(_FUNC_STR2U64_STRING_STR2U64,qbs_ltrim(qbs_rtrim(qbs_str((uint64)(*_FUNC_STR2U64_UINTEGER64_V))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22289);}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free43.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_STR2U64_STRING_STR2U64);return _FUNC_STR2U64_STRING_STR2U64; -} -qbs* FUNC_STR2I64(int64*_FUNC_STR2I64_INTEGER64_V){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data44.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -qbs_set(_FUNC_STR2I64_STRING_STR2I64,qbs_ltrim(qbs_rtrim(qbs_str((int64)(*_FUNC_STR2I64_INTEGER64_V))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22293);}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free44.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_STR2I64_STRING_STR2I64);return _FUNC_STR2I64_STRING_STR2I64; -} -qbs* FUNC_TYP2CTYP(int32*_FUNC_TYP2CTYP_LONG_T,qbs*_FUNC_TYP2CTYP_STRING_TSTR){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data45.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22297);}while(r); -S_29857:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYP2CTYP_STRING_TSTR,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(22302);if(r)goto S_29857;} -S_29858:; -if (((*_FUNC_TYP2CTYP_LONG_T&*__LONG_ISARRAY))||new_error){ -if(qbevent){evnt(22303);if(r)goto S_29858;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22303);}while(r); -} -S_29861:; -if (((*_FUNC_TYP2CTYP_LONG_T&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(22304);if(r)goto S_29861;} -do{ -qbs_set(_FUNC_TYP2CTYP_STRING_TYP2CTYP,qbs_new_txt_len("qbs",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22304);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22304);}while(r); -} -do{ -*_FUNC_TYP2CTYP_LONG_B=*_FUNC_TYP2CTYP_LONG_T& 511 ; -if(!qbevent)break;evnt(22305);}while(r); -S_29866:; -if (((*_FUNC_TYP2CTYP_LONG_T&*__LONG_ISUDT))||new_error){ -if(qbevent){evnt(22306);if(r)goto S_29866;} -do{ -qbs_set(_FUNC_TYP2CTYP_STRING_TYP2CTYP,qbs_new_txt_len("void",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22306);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22306);}while(r); -} -S_29870:; -if (((*_FUNC_TYP2CTYP_LONG_T&*__LONG_ISOFFSETINBITS))||new_error){ -if(qbevent){evnt(22307);if(r)goto S_29870;} -S_29871:; -if ((-(*_FUNC_TYP2CTYP_LONG_B<= 32 ))||new_error){ -if(qbevent){evnt(22308);if(r)goto S_29871;} -do{ -qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("int32",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22308);}while(r); -}else{ -do{ -qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("int64",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22308);}while(r); -} -S_29876:; -if (((*_FUNC_TYP2CTYP_LONG_T&*__LONG_ISUNSIGNED))||new_error){ -if(qbevent){evnt(22309);if(r)goto S_29876;} -do{ -qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_add(qbs_new_txt_len("u",1),_FUNC_TYP2CTYP_STRING_CTYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22309);}while(r); -} -do{ -qbs_set(_FUNC_TYP2CTYP_STRING_TYP2CTYP,_FUNC_TYP2CTYP_STRING_CTYP); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22310);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22310);}while(r); -} -S_29882:; -if (((*_FUNC_TYP2CTYP_LONG_T&*__LONG_ISFLOAT))||new_error){ -if(qbevent){evnt(22312);if(r)goto S_29882;} -S_29883:; -if ((-(*_FUNC_TYP2CTYP_LONG_B== 32 ))||new_error){ -if(qbevent){evnt(22313);if(r)goto S_29883;} -do{ -qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("float",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22313);}while(r); -} -S_29886:; -if ((-(*_FUNC_TYP2CTYP_LONG_B== 64 ))||new_error){ -if(qbevent){evnt(22314);if(r)goto S_29886;} -do{ -qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("double",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22314);}while(r); -} -S_29889:; -if ((-(*_FUNC_TYP2CTYP_LONG_B== 256 ))||new_error){ -if(qbevent){evnt(22315);if(r)goto S_29889;} -do{ -qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("long double",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22315);}while(r); -} -}else{ -S_29893:; -if ((-(*_FUNC_TYP2CTYP_LONG_B== 8 ))||new_error){ -if(qbevent){evnt(22317);if(r)goto S_29893;} -do{ -qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("int8",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22317);}while(r); -} -S_29896:; -if ((-(*_FUNC_TYP2CTYP_LONG_B== 16 ))||new_error){ -if(qbevent){evnt(22318);if(r)goto S_29896;} -do{ -qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("int16",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22318);}while(r); -} -S_29899:; -if ((-(*_FUNC_TYP2CTYP_LONG_B== 32 ))||new_error){ -if(qbevent){evnt(22319);if(r)goto S_29899;} -do{ -qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("int32",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22319);}while(r); -} -S_29902:; -if ((-(*_FUNC_TYP2CTYP_LONG_B== 64 ))||new_error){ -if(qbevent){evnt(22320);if(r)goto S_29902;} -do{ -qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("int64",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22320);}while(r); -} -S_29905:; -if ((*_FUNC_TYP2CTYP_LONG_T&*__LONG_ISOFFSET)||new_error){ -if(qbevent){evnt(22321);if(r)goto S_29905;} -do{ -qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("ptrszint",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22321);}while(r); -} -S_29908:; -if (((*_FUNC_TYP2CTYP_LONG_T&*__LONG_ISUNSIGNED))||new_error){ -if(qbevent){evnt(22322);if(r)goto S_29908;} -do{ -qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_add(qbs_new_txt_len("u",1),_FUNC_TYP2CTYP_STRING_CTYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22322);}while(r); -} -} -S_29912:; -if ((*_FUNC_TYP2CTYP_LONG_T&*__LONG_ISOFFSET)||new_error){ -if(qbevent){evnt(22324);if(r)goto S_29912;} -do{ -qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("ptrszint",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22325);}while(r); -S_29914:; -if (((*_FUNC_TYP2CTYP_LONG_T&*__LONG_ISUNSIGNED))||new_error){ -if(qbevent){evnt(22325);if(r)goto S_29914;} -do{ -qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("uptrszint",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22325);}while(r); -} -} -do{ -qbs_set(_FUNC_TYP2CTYP_STRING_TYP2CTYP,_FUNC_TYP2CTYP_STRING_CTYP); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22327);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22327);}while(r); -} -do{ -qbs_set(_FUNC_TYP2CTYP_STRING_TS,_FUNC_TYP2CTYP_STRING_TSTR); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22330);}while(r); -S_29922:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYP2CTYP_STRING_TS,qbs_new_txt_len("$",1))))||new_error){ -if(qbevent){evnt(22332);if(r)goto S_29922;} -do{ -qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("qbs",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22332);}while(r); -} -S_29925:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYP2CTYP_STRING_TS,qbs_new_txt_len("!",1))))||new_error){ -if(qbevent){evnt(22333);if(r)goto S_29925;} -do{ -qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("float",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22333);}while(r); -} -S_29928:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYP2CTYP_STRING_TS,qbs_new_txt_len("#",1))))||new_error){ -if(qbevent){evnt(22334);if(r)goto S_29928;} -do{ -qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("double",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22334);}while(r); -} -S_29931:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYP2CTYP_STRING_TS,qbs_new_txt_len("##",2))))||new_error){ -if(qbevent){evnt(22335);if(r)goto S_29931;} -do{ -qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("long double",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22335);}while(r); -} -S_29934:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_TYP2CTYP_STRING_TS, 1 ),qbs_new_txt_len("~",1))))||new_error){ -if(qbevent){evnt(22336);if(r)goto S_29934;} -do{ -*_FUNC_TYP2CTYP_LONG_UNSGN= 1 ; -if(!qbevent)break;evnt(22336);}while(r); -do{ -qbs_set(_FUNC_TYP2CTYP_STRING_TS,qbs_right(_FUNC_TYP2CTYP_STRING_TS,_FUNC_TYP2CTYP_STRING_TS->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22336);}while(r); -} -S_29938:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_TYP2CTYP_STRING_TS, 1 ),qbs_new_txt_len("`",1))))||new_error){ -if(qbevent){evnt(22337);if(r)goto S_29938;} -do{ -qbs_set(_FUNC_TYP2CTYP_STRING_N,qbs_right(_FUNC_TYP2CTYP_STRING_TS,_FUNC_TYP2CTYP_STRING_TS->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22338);}while(r); -do{ -*_FUNC_TYP2CTYP_LONG_B= 1 ; -if(!qbevent)break;evnt(22339);}while(r); -S_29941:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_TYP2CTYP_STRING_N,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(22340);if(r)goto S_29941;} -S_29942:; -if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISUINTEGER(_FUNC_TYP2CTYP_STRING_N)== 0 )))||new_error){ -if(qbevent){evnt(22341);if(r)goto S_29942;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Invalid index after _BIT type",29)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22341);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22341);}while(r); -} -do{ -*_FUNC_TYP2CTYP_LONG_B=qbr(func_val(_FUNC_TYP2CTYP_STRING_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22342);}while(r); -S_29947:; -if ((-(*_FUNC_TYP2CTYP_LONG_B> 64 ))||new_error){ -if(qbevent){evnt(22343);if(r)goto S_29947;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Invalid index after _BIT type",29)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22343);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22343);}while(r); -} -} -S_29952:; -if ((-(*_FUNC_TYP2CTYP_LONG_B<= 32 ))||new_error){ -if(qbevent){evnt(22345);if(r)goto S_29952;} -do{ -qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("int32",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22345);}while(r); -}else{ -do{ -qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("int64",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22345);}while(r); -} -S_29957:; -if ((*_FUNC_TYP2CTYP_LONG_UNSGN)||new_error){ -if(qbevent){evnt(22346);if(r)goto S_29957;} -do{ -qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_add(qbs_new_txt_len("u",1),_FUNC_TYP2CTYP_STRING_CTYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22346);}while(r); -} -do{ -qbs_set(_FUNC_TYP2CTYP_STRING_TYP2CTYP,_FUNC_TYP2CTYP_STRING_CTYP); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22347);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22347);}while(r); -} -S_29963:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYP2CTYP_STRING_TS,qbs_new_txt_len("%&",2))))||new_error){ -if(qbevent){evnt(22349);if(r)goto S_29963;} -do{ -qbs_set(_FUNC_TYP2CTYP_STRING_TYP2CTYP,qbs_new_txt_len("ptrszint",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22350);}while(r); -S_29965:; -if (((*_FUNC_TYP2CTYP_LONG_T&*__LONG_ISUNSIGNED))||new_error){ -if(qbevent){evnt(22350);if(r)goto S_29965;} -do{ -qbs_set(_FUNC_TYP2CTYP_STRING_TYP2CTYP,qbs_new_txt_len("uptrszint",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22350);}while(r); -} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22351);}while(r); -} -S_29970:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYP2CTYP_STRING_TS,qbs_new_txt_len("%%",2))))||new_error){ -if(qbevent){evnt(22353);if(r)goto S_29970;} -do{ -qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("int8",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22353);}while(r); -} -S_29973:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYP2CTYP_STRING_TS,qbs_new_txt_len("%",1))))||new_error){ -if(qbevent){evnt(22354);if(r)goto S_29973;} -do{ -qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("int16",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22354);}while(r); -} -S_29976:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYP2CTYP_STRING_TS,qbs_new_txt_len("&",1))))||new_error){ -if(qbevent){evnt(22355);if(r)goto S_29976;} -do{ -qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("int32",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22355);}while(r); -} -S_29979:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYP2CTYP_STRING_TS,qbs_new_txt_len("&&",2))))||new_error){ -if(qbevent){evnt(22356);if(r)goto S_29979;} -do{ -qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("int64",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22356);}while(r); -} -S_29982:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(22357);if(r)goto S_29982;} -S_29983:; -if ((*_FUNC_TYP2CTYP_LONG_UNSGN)||new_error){ -if(qbevent){evnt(22358);if(r)goto S_29983;} -do{ -qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_add(qbs_new_txt_len("u",1),_FUNC_TYP2CTYP_STRING_CTYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22358);}while(r); -} -do{ -qbs_set(_FUNC_TYP2CTYP_STRING_TYP2CTYP,_FUNC_TYP2CTYP_STRING_CTYP); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22359);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22359);}while(r); -} -do{ -qbs_set(_FUNC_TYP2CTYP_STRING_S,FUNC_TYPE2SYMBOL(_FUNC_TYP2CTYP_STRING_TSTR)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22362);}while(r); -S_29990:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(22363);if(r)goto S_29990;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22363);}while(r); -} -S_29993:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_TYP2CTYP_STRING_S->len))||new_error){ -if(qbevent){evnt(22364);if(r)goto S_29993;} -do{ -qbs_set(_FUNC_TYP2CTYP_STRING_TYP2CTYP,FUNC_TYP2CTYP(&(pass3181= 0 ),_FUNC_TYP2CTYP_STRING_S)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22365);}while(r); -S_29995:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(22366);if(r)goto S_29995;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22366);}while(r); -} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22367);}while(r); -} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Invalid type",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22370);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22370);}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free45.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_TYP2CTYP_STRING_TYP2CTYP);return _FUNC_TYP2CTYP_STRING_TYP2CTYP; -} -qbs* FUNC_TYPE2SYMBOL(qbs*_FUNC_TYPE2SYMBOL_STRING_TYP){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data46.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_TYP); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22375);}while(r); -S_30003:; -fornext_value3184= 1 ; -fornext_finalvalue3184=_FUNC_TYPE2SYMBOL_STRING_T->len; -fornext_step3184= 1 ; -if (fornext_step3184<0) fornext_step_negative3184=1; else fornext_step_negative3184=0; -if (new_error) goto fornext_error3184; -goto fornext_entrylabel3184; -while(1){ -fornext_value3184=fornext_step3184+(*_FUNC_TYPE2SYMBOL_LONG_I); -fornext_entrylabel3184: -*_FUNC_TYPE2SYMBOL_LONG_I=fornext_value3184; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative3184){ -if (fornext_value3184fornext_finalvalue3184) break; -} -fornext_error3184:; -if(qbevent){evnt(22376);if(r)goto S_30003;} -S_30004:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_TYPE2SYMBOL_STRING_T,*_FUNC_TYPE2SYMBOL_LONG_I, 1 ,0|1),__STRING1_SP)))||new_error){ -if(qbevent){evnt(22377);if(r)goto S_30004;} -do{ -sub_mid(_FUNC_TYPE2SYMBOL_STRING_T,*_FUNC_TYPE2SYMBOL_LONG_I, 1 ,qbs_new_txt_len(" ",1),1); -if(!qbevent)break;evnt(22377);}while(r); -} -fornext_continue_3183:; -} -fornext_exit_3183:; -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("Cannot convert type (",21),_FUNC_TYPE2SYMBOL_STRING_TYP),qbs_new_txt_len(") to symbol",11))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22379);}while(r); -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("INTEGER",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22381);}while(r); -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("%",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22381);}while(r); -S_30011:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2)))||new_error){ -if(qbevent){evnt(22381);if(r)goto S_30011;} -do{ -goto LABEL_T2SFOUND; -if(!qbevent)break;evnt(22381);}while(r); -} -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("LONG",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22382);}while(r); -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("&",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22382);}while(r); -S_30016:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2)))||new_error){ -if(qbevent){evnt(22382);if(r)goto S_30016;} -do{ -goto LABEL_T2SFOUND; -if(!qbevent)break;evnt(22382);}while(r); -} -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("SINGLE",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22383);}while(r); -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("!",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22383);}while(r); -S_30021:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2)))||new_error){ -if(qbevent){evnt(22383);if(r)goto S_30021;} -do{ -goto LABEL_T2SFOUND; -if(!qbevent)break;evnt(22383);}while(r); -} -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("DOUBLE",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22384);}while(r); -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("#",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22384);}while(r); -S_30026:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2)))||new_error){ -if(qbevent){evnt(22384);if(r)goto S_30026;} -do{ -goto LABEL_T2SFOUND; -if(!qbevent)break;evnt(22384);}while(r); -} -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("_BYTE",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22386);}while(r); -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("%%",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22386);}while(r); -S_30031:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2)))||new_error){ -if(qbevent){evnt(22386);if(r)goto S_30031;} -do{ -goto LABEL_T2SFOUND; -if(!qbevent)break;evnt(22386);}while(r); -} -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("BYTE",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22387);}while(r); -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("%%",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22387);}while(r); -S_30036:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_QB64PREFIX_SET== 1 ))&(qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2))))||new_error){ -if(qbevent){evnt(22387);if(r)goto S_30036;} -do{ -goto LABEL_T2SFOUND; -if(!qbevent)break;evnt(22387);}while(r); -} -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("_UNSIGNED LONG",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22389);}while(r); -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("~&",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22389);}while(r); -S_30041:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2)))||new_error){ -if(qbevent){evnt(22389);if(r)goto S_30041;} -do{ -goto LABEL_T2SFOUND; -if(!qbevent)break;evnt(22389);}while(r); -} -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("UNSIGNED LONG",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22390);}while(r); -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("~&",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22390);}while(r); -S_30046:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_QB64PREFIX_SET== 1 ))&(qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2))))||new_error){ -if(qbevent){evnt(22390);if(r)goto S_30046;} -do{ -goto LABEL_T2SFOUND; -if(!qbevent)break;evnt(22390);}while(r); -} -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("_UNSIGNED INTEGER",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22392);}while(r); -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("~%",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22392);}while(r); -S_30051:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2)))||new_error){ -if(qbevent){evnt(22392);if(r)goto S_30051;} -do{ -goto LABEL_T2SFOUND; -if(!qbevent)break;evnt(22392);}while(r); -} -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("UNSIGNED INTEGER",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22393);}while(r); -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("~%",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22393);}while(r); -S_30056:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_QB64PREFIX_SET== 1 ))&(qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2))))||new_error){ -if(qbevent){evnt(22393);if(r)goto S_30056;} -do{ -goto LABEL_T2SFOUND; -if(!qbevent)break;evnt(22393);}while(r); -} -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("_UNSIGNED _BYTE",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22395);}while(r); -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("~%%",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22395);}while(r); -S_30061:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2)))||new_error){ -if(qbevent){evnt(22395);if(r)goto S_30061;} -do{ -goto LABEL_T2SFOUND; -if(!qbevent)break;evnt(22395);}while(r); -} -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("_UNSIGNED BYTE",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22396);}while(r); -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("~%%",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22396);}while(r); -S_30066:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_QB64PREFIX_SET== 1 ))&(qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2))))||new_error){ -if(qbevent){evnt(22396);if(r)goto S_30066;} -do{ -goto LABEL_T2SFOUND; -if(!qbevent)break;evnt(22396);}while(r); -} -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("UNSIGNED _BYTE",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22397);}while(r); -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("~%%",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22397);}while(r); -S_30071:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_QB64PREFIX_SET== 1 ))&(qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2))))||new_error){ -if(qbevent){evnt(22397);if(r)goto S_30071;} -do{ -goto LABEL_T2SFOUND; -if(!qbevent)break;evnt(22397);}while(r); -} -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("UNSIGNED BYTE",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22398);}while(r); -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("~%%",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22398);}while(r); -S_30076:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_QB64PREFIX_SET== 1 ))&(qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2))))||new_error){ -if(qbevent){evnt(22398);if(r)goto S_30076;} -do{ -goto LABEL_T2SFOUND; -if(!qbevent)break;evnt(22398);}while(r); -} -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("_UNSIGNED _OFFSET",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22400);}while(r); -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("~%&",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22400);}while(r); -S_30081:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2)))||new_error){ -if(qbevent){evnt(22400);if(r)goto S_30081;} -do{ -goto LABEL_T2SFOUND; -if(!qbevent)break;evnt(22400);}while(r); -} -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("_UNSIGNED OFFSET",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22401);}while(r); -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("~%&",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22401);}while(r); -S_30086:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_QB64PREFIX_SET== 1 ))&(qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2))))||new_error){ -if(qbevent){evnt(22401);if(r)goto S_30086;} -do{ -goto LABEL_T2SFOUND; -if(!qbevent)break;evnt(22401);}while(r); -} -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("UNSIGNED _OFFSET",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22402);}while(r); -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("~%&",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22402);}while(r); -S_30091:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_QB64PREFIX_SET== 1 ))&(qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2))))||new_error){ -if(qbevent){evnt(22402);if(r)goto S_30091;} -do{ -goto LABEL_T2SFOUND; -if(!qbevent)break;evnt(22402);}while(r); -} -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("UNSIGNED OFFSET",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22403);}while(r); -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("~%&",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22403);}while(r); -S_30096:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_QB64PREFIX_SET== 1 ))&(qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2))))||new_error){ -if(qbevent){evnt(22403);if(r)goto S_30096;} -do{ -goto LABEL_T2SFOUND; -if(!qbevent)break;evnt(22403);}while(r); -} -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("_UNSIGNED _INTEGER64",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22405);}while(r); -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("~&&",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22405);}while(r); -S_30101:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2)))||new_error){ -if(qbevent){evnt(22405);if(r)goto S_30101;} -do{ -goto LABEL_T2SFOUND; -if(!qbevent)break;evnt(22405);}while(r); -} -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("_UNSIGNED INTEGER64",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22406);}while(r); -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("~&&",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22406);}while(r); -S_30106:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_QB64PREFIX_SET== 1 ))&(qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2))))||new_error){ -if(qbevent){evnt(22406);if(r)goto S_30106;} -do{ -goto LABEL_T2SFOUND; -if(!qbevent)break;evnt(22406);}while(r); -} -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("UNSIGNED _INTEGER64",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22407);}while(r); -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("~&&",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22407);}while(r); -S_30111:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_QB64PREFIX_SET== 1 ))&(qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2))))||new_error){ -if(qbevent){evnt(22407);if(r)goto S_30111;} -do{ -goto LABEL_T2SFOUND; -if(!qbevent)break;evnt(22407);}while(r); -} -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("UNSIGNED INTEGER64",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22408);}while(r); -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("~&&",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22408);}while(r); -S_30116:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_QB64PREFIX_SET== 1 ))&(qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2))))||new_error){ -if(qbevent){evnt(22408);if(r)goto S_30116;} -do{ -goto LABEL_T2SFOUND; -if(!qbevent)break;evnt(22408);}while(r); -} -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("_INTEGER64",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22410);}while(r); -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("&&",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22410);}while(r); -S_30121:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2)))||new_error){ -if(qbevent){evnt(22410);if(r)goto S_30121;} -do{ -goto LABEL_T2SFOUND; -if(!qbevent)break;evnt(22410);}while(r); -} -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("INTEGER64",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22411);}while(r); -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("&&",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22411);}while(r); -S_30126:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_QB64PREFIX_SET== 1 ))&(qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2))))||new_error){ -if(qbevent){evnt(22411);if(r)goto S_30126;} -do{ -goto LABEL_T2SFOUND; -if(!qbevent)break;evnt(22411);}while(r); -} -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("_OFFSET",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22413);}while(r); -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("%&",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22413);}while(r); -S_30131:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2)))||new_error){ -if(qbevent){evnt(22413);if(r)goto S_30131;} -do{ -goto LABEL_T2SFOUND; -if(!qbevent)break;evnt(22413);}while(r); -} -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("OFFSET",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22414);}while(r); -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("%&",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22414);}while(r); -S_30136:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_QB64PREFIX_SET== 1 ))&(qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2))))||new_error){ -if(qbevent){evnt(22414);if(r)goto S_30136;} -do{ -goto LABEL_T2SFOUND; -if(!qbevent)break;evnt(22414);}while(r); -} -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("_FLOAT",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22416);}while(r); -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("##",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22416);}while(r); -S_30141:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2)))||new_error){ -if(qbevent){evnt(22416);if(r)goto S_30141;} -do{ -goto LABEL_T2SFOUND; -if(!qbevent)break;evnt(22416);}while(r); -} -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("FLOAT",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22417);}while(r); -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("##",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22417);}while(r); -S_30146:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_QB64PREFIX_SET== 1 ))&(qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2))))||new_error){ -if(qbevent){evnt(22417);if(r)goto S_30146;} -do{ -goto LABEL_T2SFOUND; -if(!qbevent)break;evnt(22417);}while(r); -} -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("STRING",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22420);}while(r); -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22420);}while(r); -S_30151:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2->len),_FUNC_TYPE2SYMBOL_STRING_T2)))||new_error){ -if(qbevent){evnt(22420);if(r)goto S_30151;} -do{ -goto LABEL_T2SFOUND; -if(!qbevent)break;evnt(22420);}while(r); -} -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("_UNSIGNED _BIT",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22421);}while(r); -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("~`1",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22421);}while(r); -S_30156:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2->len),_FUNC_TYPE2SYMBOL_STRING_T2)))||new_error){ -if(qbevent){evnt(22421);if(r)goto S_30156;} -do{ -goto LABEL_T2SFOUND; -if(!qbevent)break;evnt(22421);}while(r); -} -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("_UNSIGNED BIT",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22422);}while(r); -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("~`1",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22422);}while(r); -S_30161:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_QB64PREFIX_SET== 1 ))&(qbs_equal(qbs_left(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2->len),_FUNC_TYPE2SYMBOL_STRING_T2))))||new_error){ -if(qbevent){evnt(22422);if(r)goto S_30161;} -do{ -goto LABEL_T2SFOUND; -if(!qbevent)break;evnt(22422);}while(r); -} -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("UNSIGNED _BIT",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22423);}while(r); -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("~`1",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22423);}while(r); -S_30166:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_QB64PREFIX_SET== 1 ))&(qbs_equal(qbs_left(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2->len),_FUNC_TYPE2SYMBOL_STRING_T2))))||new_error){ -if(qbevent){evnt(22423);if(r)goto S_30166;} -do{ -goto LABEL_T2SFOUND; -if(!qbevent)break;evnt(22423);}while(r); -} -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("UNSIGNED BIT",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22424);}while(r); -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("~`1",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22424);}while(r); -S_30171:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_QB64PREFIX_SET== 1 ))&(qbs_equal(qbs_left(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2->len),_FUNC_TYPE2SYMBOL_STRING_T2))))||new_error){ -if(qbevent){evnt(22424);if(r)goto S_30171;} -do{ -goto LABEL_T2SFOUND; -if(!qbevent)break;evnt(22424);}while(r); -} -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("_BIT",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22425);}while(r); -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("`1",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22425);}while(r); -S_30176:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2->len),_FUNC_TYPE2SYMBOL_STRING_T2)))||new_error){ -if(qbevent){evnt(22425);if(r)goto S_30176;} -do{ -goto LABEL_T2SFOUND; -if(!qbevent)break;evnt(22425);}while(r); -} -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("BIT",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22426);}while(r); -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("`1",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22426);}while(r); -S_30181:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_QB64PREFIX_SET== 1 ))&(qbs_equal(qbs_left(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2->len),_FUNC_TYPE2SYMBOL_STRING_T2))))||new_error){ -if(qbevent){evnt(22426);if(r)goto S_30181;} -do{ -goto LABEL_T2SFOUND; -if(!qbevent)break;evnt(22426);}while(r); -} -do{ -SUB_GIVE_ERROR(_FUNC_TYPE2SYMBOL_STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22428);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22428);}while(r); -LABEL_T2SFOUND:; -if(qbevent){evnt(22429);r=0;} -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_TYPE2SYMBOL,_FUNC_TYPE2SYMBOL_STRING_S); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22430);}while(r); -S_30187:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_TYPE2SYMBOL_STRING_T2->len!=_FUNC_TYPE2SYMBOL_STRING_T->len)))||new_error){ -if(qbevent){evnt(22431);if(r)goto S_30187;} -S_30188:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("$",1)))&(qbs_notequal(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("~`1",3)))&(qbs_notequal(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("`1",2)))))||new_error){ -if(qbevent){evnt(22432);if(r)goto S_30188;} -do{ -SUB_GIVE_ERROR(_FUNC_TYPE2SYMBOL_STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22432);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22432);}while(r); -} -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_T,qbs_right(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T->len-_FUNC_TYPE2SYMBOL_STRING_T2->len)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22433);}while(r); -S_30193:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(_FUNC_TYPE2SYMBOL_STRING_T, 3 ),qbs_new_txt_len(" * ",3))))||new_error){ -if(qbevent){evnt(22434);if(r)goto S_30193;} -do{ -SUB_GIVE_ERROR(_FUNC_TYPE2SYMBOL_STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22434);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22434);}while(r); -} -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_T,qbs_right(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T->len- 3 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22435);}while(r); -S_30198:; -if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISUINTEGER(_FUNC_TYPE2SYMBOL_STRING_T)== 0 )))||new_error){ -if(qbevent){evnt(22436);if(r)goto S_30198;} -do{ -SUB_GIVE_ERROR(_FUNC_TYPE2SYMBOL_STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22436);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22436);}while(r); -} -do{ -*_FUNC_TYPE2SYMBOL_LONG_V=qbr(func_val(_FUNC_TYPE2SYMBOL_STRING_T)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22437);}while(r); -S_30203:; -if ((-(*_FUNC_TYPE2SYMBOL_LONG_V== 0 ))||new_error){ -if(qbevent){evnt(22438);if(r)goto S_30203;} -do{ -SUB_GIVE_ERROR(_FUNC_TYPE2SYMBOL_STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22438);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22438);}while(r); -} -S_30207:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("$",1)))&(-(*_FUNC_TYPE2SYMBOL_LONG_V> 64 ))))||new_error){ -if(qbevent){evnt(22439);if(r)goto S_30207;} -do{ -SUB_GIVE_ERROR(_FUNC_TYPE2SYMBOL_STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22439);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22439);}while(r); -} -S_30211:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("$",1))))||new_error){ -if(qbevent){evnt(22440);if(r)goto S_30211;} -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_add(_FUNC_TYPE2SYMBOL_STRING_S,FUNC_STR2(_FUNC_TYPE2SYMBOL_LONG_V))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22441);}while(r); -}else{ -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_add(qbs_left(_FUNC_TYPE2SYMBOL_STRING_S,_FUNC_TYPE2SYMBOL_STRING_S->len- 1 ),FUNC_STR2(_FUNC_TYPE2SYMBOL_LONG_V))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22443);}while(r); -} -do{ -qbs_set(_FUNC_TYPE2SYMBOL_STRING_TYPE2SYMBOL,_FUNC_TYPE2SYMBOL_STRING_S); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22445);}while(r); -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free46.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_TYPE2SYMBOL_STRING_TYPE2SYMBOL);return _FUNC_TYPE2SYMBOL_STRING_TYPE2SYMBOL; -} -int32 FUNC_TYPECOMP(int32*_FUNC_TYPECOMP_LONG_TYP){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data47.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -*_FUNC_TYPECOMP_LONG_TYP2=*_FUNC_TYPECOMP_LONG_TYP; -if(!qbevent)break;evnt(22451);}while(r); -S_30219:; -if (((*_FUNC_TYPECOMP_LONG_TYP2&*__LONG_ISINCONVENTIONALMEMORY))||new_error){ -if(qbevent){evnt(22452);if(r)goto S_30219;} -do{ -*_FUNC_TYPECOMP_LONG_TYP2=*_FUNC_TYPECOMP_LONG_TYP2-*__LONG_ISINCONVENTIONALMEMORY; -if(!qbevent)break;evnt(22452);}while(r); -} -do{ -*_FUNC_TYPECOMP_LONG_TYPECOMP=*_FUNC_TYPECOMP_LONG_TYP2; -if(!qbevent)break;evnt(22453);}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free47.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -return *_FUNC_TYPECOMP_LONG_TYPECOMP; -} -int32 FUNC_TYPNAME2TYP(qbs*_FUNC_TYPNAME2TYP_STRING_T2){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data48.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -*__LONG_TYPNAME2TYPSIZE= 0 ; -if(!qbevent)break;evnt(22457);}while(r); -do{ -qbs_set(_FUNC_TYPNAME2TYP_STRING_T,_FUNC_TYPNAME2TYP_STRING_T2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22459);}while(r); -do{ -qbs_set(_FUNC_TYPNAME2TYP_STRING_TS,_FUNC_TYPNAME2TYP_STRING_T); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22462);}while(r); -S_30226:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_TS,qbs_new_txt_len("$",1))))||new_error){ -if(qbevent){evnt(22463);if(r)goto S_30226;} -do{ -*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_STRINGTYPE; -if(!qbevent)break;evnt(22463);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22463);}while(r); -} -S_30230:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_TS,qbs_new_txt_len("!",1))))||new_error){ -if(qbevent){evnt(22464);if(r)goto S_30230;} -do{ -*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_SINGLETYPE; -if(!qbevent)break;evnt(22464);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22464);}while(r); -} -S_30234:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_TS,qbs_new_txt_len("#",1))))||new_error){ -if(qbevent){evnt(22465);if(r)goto S_30234;} -do{ -*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_DOUBLETYPE; -if(!qbevent)break;evnt(22465);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22465);}while(r); -} -S_30238:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_TS,qbs_new_txt_len("##",2))))||new_error){ -if(qbevent){evnt(22466);if(r)goto S_30238;} -do{ -*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_FLOATTYPE; -if(!qbevent)break;evnt(22466);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22466);}while(r); -} -S_30242:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_TYPNAME2TYP_STRING_TS, 1 ),qbs_new_txt_len("$",1))))||new_error){ -if(qbevent){evnt(22469);if(r)goto S_30242;} -do{ -qbs_set(_FUNC_TYPNAME2TYP_STRING_N,qbs_right(_FUNC_TYPNAME2TYP_STRING_TS,_FUNC_TYPNAME2TYP_STRING_TS->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22470);}while(r); -S_30244:; -if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISUINTEGER(_FUNC_TYPNAME2TYP_STRING_N)== 0 )))||new_error){ -if(qbevent){evnt(22471);if(r)goto S_30244;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Invalid index after STRING * type",33)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22471);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22471);}while(r); -} -do{ -*_FUNC_TYPNAME2TYP_LONG_B=qbr(func_val(_FUNC_TYPNAME2TYP_STRING_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22472);}while(r); -S_30249:; -if ((-(*_FUNC_TYPNAME2TYP_LONG_B== 0 ))||new_error){ -if(qbevent){evnt(22473);if(r)goto S_30249;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Invalid index after STRING * type",33)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22473);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22473);}while(r); -} -do{ -*__LONG_TYPNAME2TYPSIZE=*_FUNC_TYPNAME2TYP_LONG_B; -if(!qbevent)break;evnt(22474);}while(r); -do{ -*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_STRINGTYPE+*__LONG_ISFIXEDLENGTH; -if(!qbevent)break;evnt(22475);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22476);}while(r); -} -S_30257:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_TYPNAME2TYP_STRING_TS, 1 ),qbs_new_txt_len("~",1))))||new_error){ -if(qbevent){evnt(22480);if(r)goto S_30257;} -do{ -*_FUNC_TYPNAME2TYP_LONG_UNSGN= 1 ; -if(!qbevent)break;evnt(22480);}while(r); -do{ -qbs_set(_FUNC_TYPNAME2TYP_STRING_TS,qbs_right(_FUNC_TYPNAME2TYP_STRING_TS,_FUNC_TYPNAME2TYP_STRING_TS->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22480);}while(r); -} -S_30261:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_TYPNAME2TYP_STRING_TS, 1 ),qbs_new_txt_len("`",1))))||new_error){ -if(qbevent){evnt(22483);if(r)goto S_30261;} -do{ -qbs_set(_FUNC_TYPNAME2TYP_STRING_N,qbs_right(_FUNC_TYPNAME2TYP_STRING_TS,_FUNC_TYPNAME2TYP_STRING_TS->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22484);}while(r); -do{ -*_FUNC_TYPNAME2TYP_LONG_B= 1 ; -if(!qbevent)break;evnt(22485);}while(r); -S_30264:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_TYPNAME2TYP_STRING_N,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(22486);if(r)goto S_30264;} -S_30265:; -if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISUINTEGER(_FUNC_TYPNAME2TYP_STRING_N)== 0 )))||new_error){ -if(qbevent){evnt(22487);if(r)goto S_30265;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Invalid index after _BIT type",29)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22487);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22487);}while(r); -} -do{ -*_FUNC_TYPNAME2TYP_LONG_B=qbr(func_val(_FUNC_TYPNAME2TYP_STRING_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22488);}while(r); -S_30270:; -if ((-(*_FUNC_TYPNAME2TYP_LONG_B> 64 ))||new_error){ -if(qbevent){evnt(22489);if(r)goto S_30270;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Invalid index after _BIT type",29)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22489);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22489);}while(r); -} -} -S_30275:; -if ((*_FUNC_TYPNAME2TYP_LONG_UNSGN)||new_error){ -if(qbevent){evnt(22491);if(r)goto S_30275;} -do{ -*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_UBITTYPE+(*_FUNC_TYPNAME2TYP_LONG_B- 1 ); -if(!qbevent)break;evnt(22491);}while(r); -}else{ -do{ -*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_BITTYPE+(*_FUNC_TYPNAME2TYP_LONG_B- 1 ); -if(!qbevent)break;evnt(22491);}while(r); -} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22492);}while(r); -} -do{ -*_FUNC_TYPNAME2TYP_LONG_T= 0 ; -if(!qbevent)break;evnt(22495);}while(r); -S_30283:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_TS,qbs_new_txt_len("%%",2))))||new_error){ -if(qbevent){evnt(22496);if(r)goto S_30283;} -do{ -*_FUNC_TYPNAME2TYP_LONG_T=*__LONG_BYTETYPE; -if(!qbevent)break;evnt(22496);}while(r); -} -S_30286:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_TS,qbs_new_txt_len("%",1))))||new_error){ -if(qbevent){evnt(22497);if(r)goto S_30286;} -do{ -*_FUNC_TYPNAME2TYP_LONG_T=*__LONG_INTEGERTYPE; -if(!qbevent)break;evnt(22497);}while(r); -} -S_30289:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_TS,qbs_new_txt_len("&",1))))||new_error){ -if(qbevent){evnt(22498);if(r)goto S_30289;} -do{ -*_FUNC_TYPNAME2TYP_LONG_T=*__LONG_LONGTYPE; -if(!qbevent)break;evnt(22498);}while(r); -} -S_30292:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_TS,qbs_new_txt_len("&&",2))))||new_error){ -if(qbevent){evnt(22499);if(r)goto S_30292;} -do{ -*_FUNC_TYPNAME2TYP_LONG_T=*__LONG_INTEGER64TYPE; -if(!qbevent)break;evnt(22499);}while(r); -} -S_30295:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_TS,qbs_new_txt_len("%&",2))))||new_error){ -if(qbevent){evnt(22500);if(r)goto S_30295;} -do{ -*_FUNC_TYPNAME2TYP_LONG_T=*__LONG_OFFSETTYPE; -if(!qbevent)break;evnt(22500);}while(r); -} -S_30298:; -if ((*_FUNC_TYPNAME2TYP_LONG_T)||new_error){ -if(qbevent){evnt(22502);if(r)goto S_30298;} -S_30299:; -if ((*_FUNC_TYPNAME2TYP_LONG_UNSGN)||new_error){ -if(qbevent){evnt(22503);if(r)goto S_30299;} -do{ -*_FUNC_TYPNAME2TYP_LONG_T=*_FUNC_TYPNAME2TYP_LONG_T+*__LONG_ISUNSIGNED; -if(!qbevent)break;evnt(22503);}while(r); -} -do{ -*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*_FUNC_TYPNAME2TYP_LONG_T; -if(!qbevent)break;evnt(22504);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22504);}while(r); -} -S_30305:; -fornext_value3204= 1 ; -fornext_finalvalue3204=_FUNC_TYPNAME2TYP_STRING_T->len; -fornext_step3204= 1 ; -if (fornext_step3204<0) fornext_step_negative3204=1; else fornext_step_negative3204=0; -if (new_error) goto fornext_error3204; -goto fornext_entrylabel3204; -while(1){ -fornext_value3204=fornext_step3204+(*_FUNC_TYPNAME2TYP_LONG_I); -fornext_entrylabel3204: -*_FUNC_TYPNAME2TYP_LONG_I=fornext_value3204; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative3204){ -if (fornext_value3204fornext_finalvalue3204) break; -} -fornext_error3204:; -if(qbevent){evnt(22509);if(r)goto S_30305;} -S_30306:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_TYPNAME2TYP_STRING_T,*_FUNC_TYPNAME2TYP_LONG_I, 1 ,0|1),__STRING1_SP)))||new_error){ -if(qbevent){evnt(22510);if(r)goto S_30306;} -do{ -sub_mid(_FUNC_TYPNAME2TYP_STRING_T,*_FUNC_TYPNAME2TYP_LONG_I, 1 ,qbs_new_txt_len(" ",1),1); -if(!qbevent)break;evnt(22510);}while(r); -} -fornext_continue_3203:; -} -fornext_exit_3203:; -S_30310:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("STRING",6))))||new_error){ -if(qbevent){evnt(22512);if(r)goto S_30310;} -do{ -*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_STRINGTYPE; -if(!qbevent)break;evnt(22512);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22512);}while(r); -} -S_30314:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_TYPNAME2TYP_STRING_T, 9 ),qbs_new_txt_len("STRING * ",9))))||new_error){ -if(qbevent){evnt(22514);if(r)goto S_30314;} -do{ -qbs_set(_FUNC_TYPNAME2TYP_STRING_N,qbs_right(_FUNC_TYPNAME2TYP_STRING_T,_FUNC_TYPNAME2TYP_STRING_T->len- 9 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22516);}while(r); -do{ -*_FUNC_TYPNAME2TYP_LONG_HASHFOUND= 0 ; -if(!qbevent)break;evnt(22519);}while(r); -do{ -qbs_set(_FUNC_TYPNAME2TYP_STRING_HASHNAME,_FUNC_TYPNAME2TYP_STRING_N); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22520);}while(r); -do{ -*_FUNC_TYPNAME2TYP_LONG_HASHCHKFLAGS= 1024 ; -if(!qbevent)break;evnt(22521);}while(r); -do{ -*_FUNC_TYPNAME2TYP_LONG_HASHRES=FUNC_HASHFINDREV(_FUNC_TYPNAME2TYP_STRING_HASHNAME,_FUNC_TYPNAME2TYP_LONG_HASHCHKFLAGS,_FUNC_TYPNAME2TYP_LONG_HASHRESFLAGS,_FUNC_TYPNAME2TYP_LONG_HASHRESREF); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22522);}while(r); -S_30320:; -while((*_FUNC_TYPNAME2TYP_LONG_HASHRES)||new_error){ -if(qbevent){evnt(22523);if(r)goto S_30320;} -S_30321:; -if (((-(((int32*)(__ARRAY_LONG_CONSTSUBFUNC[0]))[array_check((*_FUNC_TYPNAME2TYP_LONG_HASHRESREF)-__ARRAY_LONG_CONSTSUBFUNC[4],__ARRAY_LONG_CONSTSUBFUNC[5])]==*__LONG_SUBFUNCN))|(-(((int32*)(__ARRAY_LONG_CONSTSUBFUNC[0]))[array_check((*_FUNC_TYPNAME2TYP_LONG_HASHRESREF)-__ARRAY_LONG_CONSTSUBFUNC[4],__ARRAY_LONG_CONSTSUBFUNC[5])]== 0 )))||new_error){ -if(qbevent){evnt(22524);if(r)goto S_30321;} -S_30322:; -if ((((int32*)(__ARRAY_LONG_CONSTDEFINED[0]))[array_check((*_FUNC_TYPNAME2TYP_LONG_HASHRESREF)-__ARRAY_LONG_CONSTDEFINED[4],__ARRAY_LONG_CONSTDEFINED[5])])||new_error){ -if(qbevent){evnt(22525);if(r)goto S_30322;} -do{ -*_FUNC_TYPNAME2TYP_LONG_HASHFOUND= 1 ; -if(!qbevent)break;evnt(22526);}while(r); -do{ -goto dl_exit_3207; -if(!qbevent)break;evnt(22527);}while(r); -} -} -S_30327:; -if ((-(*_FUNC_TYPNAME2TYP_LONG_HASHRES!= 1 ))||new_error){ -if(qbevent){evnt(22530);if(r)goto S_30327;} -do{ -*_FUNC_TYPNAME2TYP_LONG_HASHRES=FUNC_HASHFINDCONT(_FUNC_TYPNAME2TYP_LONG_HASHRESFLAGS,_FUNC_TYPNAME2TYP_LONG_HASHRESREF); -if(!qbevent)break;evnt(22530);}while(r); -}else{ -do{ -*_FUNC_TYPNAME2TYP_LONG_HASHRES= 0 ; -if(!qbevent)break;evnt(22530);}while(r); -} -dl_continue_3207:; -} -dl_exit_3207:; -S_30333:; -if ((*_FUNC_TYPNAME2TYP_LONG_HASHFOUND)||new_error){ -if(qbevent){evnt(22532);if(r)goto S_30333;} -do{ -*_FUNC_TYPNAME2TYP_LONG_I2=*_FUNC_TYPNAME2TYP_LONG_HASHRESREF; -if(!qbevent)break;evnt(22533);}while(r); -do{ -*_FUNC_TYPNAME2TYP_LONG_T=((int32*)(__ARRAY_LONG_CONSTTYPE[0]))[array_check((*_FUNC_TYPNAME2TYP_LONG_I2)-__ARRAY_LONG_CONSTTYPE[4],__ARRAY_LONG_CONSTTYPE[5])]; -if(!qbevent)break;evnt(22534);}while(r); -S_30336:; -if ((*_FUNC_TYPNAME2TYP_LONG_T&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(22535);if(r)goto S_30336;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected STRING * numeric-constant",34)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22535);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22535);}while(r); -} -S_30340:; -if ((*_FUNC_TYPNAME2TYP_LONG_T&*__LONG_ISFLOAT)||new_error){ -if(qbevent){evnt(22537);if(r)goto S_30340;} -do{ -*_FUNC_TYPNAME2TYP_FLOAT_V=((long double*)(__ARRAY_FLOAT_CONSTFLOAT[0]))[array_check((*_FUNC_TYPNAME2TYP_LONG_I2)-__ARRAY_FLOAT_CONSTFLOAT[4],__ARRAY_FLOAT_CONSTFLOAT[5])]; -if(!qbevent)break;evnt(22538);}while(r); -do{ -*_FUNC_TYPNAME2TYP_INTEGER64_V=qbr(*_FUNC_TYPNAME2TYP_FLOAT_V); -if(!qbevent)break;evnt(22539);}while(r); -do{ -*_FUNC_TYPNAME2TYP_UINTEGER64_V=*_FUNC_TYPNAME2TYP_INTEGER64_V; -if(!qbevent)break;evnt(22540);}while(r); -}else{ -S_30345:; -if ((*_FUNC_TYPNAME2TYP_LONG_T&*__LONG_ISUNSIGNED)||new_error){ -if(qbevent){evnt(22542);if(r)goto S_30345;} -do{ -*_FUNC_TYPNAME2TYP_UINTEGER64_V=((uint64*)(__ARRAY_UINTEGER64_CONSTUINTEGER[0]))[array_check((*_FUNC_TYPNAME2TYP_LONG_I2)-__ARRAY_UINTEGER64_CONSTUINTEGER[4],__ARRAY_UINTEGER64_CONSTUINTEGER[5])]; -if(!qbevent)break;evnt(22543);}while(r); -do{ -*_FUNC_TYPNAME2TYP_INTEGER64_V=*_FUNC_TYPNAME2TYP_UINTEGER64_V; -if(!qbevent)break;evnt(22544);}while(r); -do{ -*_FUNC_TYPNAME2TYP_FLOAT_V=*_FUNC_TYPNAME2TYP_INTEGER64_V; -if(!qbevent)break;evnt(22545);}while(r); -}else{ -do{ -*_FUNC_TYPNAME2TYP_INTEGER64_V=((int64*)(__ARRAY_INTEGER64_CONSTINTEGER[0]))[array_check((*_FUNC_TYPNAME2TYP_LONG_I2)-__ARRAY_INTEGER64_CONSTINTEGER[4],__ARRAY_INTEGER64_CONSTINTEGER[5])]; -if(!qbevent)break;evnt(22547);}while(r); -do{ -*_FUNC_TYPNAME2TYP_FLOAT_V=*_FUNC_TYPNAME2TYP_INTEGER64_V; -if(!qbevent)break;evnt(22548);}while(r); -do{ -*_FUNC_TYPNAME2TYP_UINTEGER64_V=*_FUNC_TYPNAME2TYP_INTEGER64_V; -if(!qbevent)break;evnt(22549);}while(r); -} -} -S_30355:; -if (((-(*_FUNC_TYPNAME2TYP_INTEGER64_V< 1 ))|(-(*_FUNC_TYPNAME2TYP_INTEGER64_V> 9999999999ll )))||new_error){ -if(qbevent){evnt(22552);if(r)goto S_30355;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("STRING * out-of-range constant",30)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22552);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22552);}while(r); -} -do{ -*_FUNC_TYPNAME2TYP_LONG_B=*_FUNC_TYPNAME2TYP_INTEGER64_V; -if(!qbevent)break;evnt(22553);}while(r); -do{ -goto LABEL_CONSTANTLENSTR; -if(!qbevent)break;evnt(22554);}while(r); -} -S_30362:; -if ((qbs_cleanup(qbs_tmp_base,(-(FUNC_ISUINTEGER(_FUNC_TYPNAME2TYP_STRING_N)== 0 ))|(-(_FUNC_TYPNAME2TYP_STRING_N->len> 10 ))))||new_error){ -if(qbevent){evnt(22557);if(r)goto S_30362;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Invalid number/constant after STRING * type",43)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22557);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22557);}while(r); -} -do{ -*_FUNC_TYPNAME2TYP_LONG_B=qbr(func_val(_FUNC_TYPNAME2TYP_STRING_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22558);}while(r); -S_30367:; -if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_TYPNAME2TYP_LONG_B== 0 ))|(-(_FUNC_TYPNAME2TYP_STRING_N->len> 10 ))))||new_error){ -if(qbevent){evnt(22559);if(r)goto S_30367;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Invalid number after STRING * type",34)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22559);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22559);}while(r); -} -LABEL_CONSTANTLENSTR:; -if(qbevent){evnt(22560);r=0;} -do{ -*__LONG_TYPNAME2TYPSIZE=*_FUNC_TYPNAME2TYP_LONG_B; -if(!qbevent)break;evnt(22561);}while(r); -do{ -*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_STRINGTYPE+*__LONG_ISFIXEDLENGTH; -if(!qbevent)break;evnt(22562);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22563);}while(r); -} -S_30375:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("SINGLE",6))))||new_error){ -if(qbevent){evnt(22566);if(r)goto S_30375;} -do{ -*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_SINGLETYPE; -if(!qbevent)break;evnt(22566);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22566);}while(r); -} -S_30379:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("DOUBLE",6))))||new_error){ -if(qbevent){evnt(22567);if(r)goto S_30379;} -do{ -*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_DOUBLETYPE; -if(!qbevent)break;evnt(22567);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22567);}while(r); -} -S_30383:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("_FLOAT",6)))|(((qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("FLOAT",5)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ -if(qbevent){evnt(22568);if(r)goto S_30383;} -do{ -*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_FLOATTYPE; -if(!qbevent)break;evnt(22568);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22568);}while(r); -} -S_30387:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(_FUNC_TYPNAME2TYP_STRING_T, 10 ),qbs_new_txt_len("_UNSIGNED ",10)))|(((qbs_equal(qbs_left(_FUNC_TYPNAME2TYP_STRING_T, 9 ),qbs_new_txt_len("UNSIGNED ",9)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ -if(qbevent){evnt(22569);if(r)goto S_30387;} -do{ -*_FUNC_TYPNAME2TYP_LONG_U= 1 ; -if(!qbevent)break;evnt(22570);}while(r); -do{ -qbs_set(_FUNC_TYPNAME2TYP_STRING_T,func_mid(_FUNC_TYPNAME2TYP_STRING_T,func_instr(NULL,_FUNC_TYPNAME2TYP_STRING_T,func_chr( 32 ),0)+ 1 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22571);}while(r); -} -S_30391:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(_FUNC_TYPNAME2TYP_STRING_T, 4 ),qbs_new_txt_len("_BIT",4)))|(((qbs_equal(qbs_left(_FUNC_TYPNAME2TYP_STRING_T, 3 ),qbs_new_txt_len("BIT",3)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ -if(qbevent){evnt(22573);if(r)goto S_30391;} -S_30392:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("_BIT",4)))|(((qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("BIT",3)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ -if(qbevent){evnt(22574);if(r)goto S_30392;} -S_30393:; -if ((*_FUNC_TYPNAME2TYP_LONG_U)||new_error){ -if(qbevent){evnt(22575);if(r)goto S_30393;} -do{ -*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_UBITTYPE; -if(!qbevent)break;evnt(22575);}while(r); -}else{ -do{ -*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_BITTYPE; -if(!qbevent)break;evnt(22575);}while(r); -} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22576);}while(r); -} -S_30400:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(qbs_left(_FUNC_TYPNAME2TYP_STRING_T, 7 ),qbs_new_txt_len("_BIT * ",7)))&(qbs_notequal(qbs_left(_FUNC_TYPNAME2TYP_STRING_T, 6 ),qbs_new_txt_len("BIT * ",6)))))||new_error){ -if(qbevent){evnt(22579);if(r)goto S_30400;} -do{ -SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Expected ",9),__STRING_QB64PREFIX),qbs_new_txt_len("BIT * number",12))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22579);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22579);}while(r); -} -S_30404:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_TYPNAME2TYP_STRING_T, 4 ),qbs_new_txt_len("_BIT",4))))||new_error){ -if(qbevent){evnt(22581);if(r)goto S_30404;} -do{ -qbs_set(_FUNC_TYPNAME2TYP_STRING_N,qbs_right(_FUNC_TYPNAME2TYP_STRING_T,_FUNC_TYPNAME2TYP_STRING_T->len- 7 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22582);}while(r); -}else{ -do{ -qbs_set(_FUNC_TYPNAME2TYP_STRING_N,qbs_right(_FUNC_TYPNAME2TYP_STRING_T,_FUNC_TYPNAME2TYP_STRING_T->len- 6 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22584);}while(r); -} -S_30409:; -if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISUINTEGER(_FUNC_TYPNAME2TYP_STRING_N)== 0 )))||new_error){ -if(qbevent){evnt(22587);if(r)goto S_30409;} -do{ -SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Invalid size after ",19),__STRING_QB64PREFIX),qbs_new_txt_len("BIT *",5))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22587);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22587);}while(r); -} -do{ -*_FUNC_TYPNAME2TYP_LONG_B=qbr(func_val(_FUNC_TYPNAME2TYP_STRING_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22588);}while(r); -S_30414:; -if (((-(*_FUNC_TYPNAME2TYP_LONG_B== 0 ))|(-(*_FUNC_TYPNAME2TYP_LONG_B> 64 )))||new_error){ -if(qbevent){evnt(22589);if(r)goto S_30414;} -do{ -SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Invalid size after ",19),__STRING_QB64PREFIX),qbs_new_txt_len("BIT *",5))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22589);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22589);}while(r); -} -do{ -*_FUNC_TYPNAME2TYP_LONG_T=*__LONG_BITTYPE- 1 +*_FUNC_TYPNAME2TYP_LONG_B; -if(!qbevent)break;evnt(22590);}while(r); -S_30419:; -if ((*_FUNC_TYPNAME2TYP_LONG_U)||new_error){ -if(qbevent){evnt(22590);if(r)goto S_30419;} -do{ -*_FUNC_TYPNAME2TYP_LONG_T=*_FUNC_TYPNAME2TYP_LONG_T+*__LONG_ISUNSIGNED; -if(!qbevent)break;evnt(22590);}while(r); -} -do{ -*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*_FUNC_TYPNAME2TYP_LONG_T; -if(!qbevent)break;evnt(22591);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22592);}while(r); -} -do{ -*_FUNC_TYPNAME2TYP_LONG_T= 0 ; -if(!qbevent)break;evnt(22595);}while(r); -S_30426:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("_BYTE",5)))|(((qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("BYTE",4)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ -if(qbevent){evnt(22596);if(r)goto S_30426;} -do{ -*_FUNC_TYPNAME2TYP_LONG_T=*__LONG_BYTETYPE; -if(!qbevent)break;evnt(22596);}while(r); -} -S_30429:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("INTEGER",7))))||new_error){ -if(qbevent){evnt(22597);if(r)goto S_30429;} -do{ -*_FUNC_TYPNAME2TYP_LONG_T=*__LONG_INTEGERTYPE; -if(!qbevent)break;evnt(22597);}while(r); -} -S_30432:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("LONG",4))))||new_error){ -if(qbevent){evnt(22598);if(r)goto S_30432;} -do{ -*_FUNC_TYPNAME2TYP_LONG_T=*__LONG_LONGTYPE; -if(!qbevent)break;evnt(22598);}while(r); -} -S_30435:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("_INTEGER64",10)))|(((qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("INTEGER64",9)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ -if(qbevent){evnt(22599);if(r)goto S_30435;} -do{ -*_FUNC_TYPNAME2TYP_LONG_T=*__LONG_INTEGER64TYPE; -if(!qbevent)break;evnt(22599);}while(r); -} -S_30438:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("_OFFSET",7)))|(((qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("OFFSET",6)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ -if(qbevent){evnt(22600);if(r)goto S_30438;} -do{ -*_FUNC_TYPNAME2TYP_LONG_T=*__LONG_OFFSETTYPE; -if(!qbevent)break;evnt(22600);}while(r); -} -S_30441:; -if ((*_FUNC_TYPNAME2TYP_LONG_T)||new_error){ -if(qbevent){evnt(22601);if(r)goto S_30441;} -S_30442:; -if ((*_FUNC_TYPNAME2TYP_LONG_U)||new_error){ -if(qbevent){evnt(22602);if(r)goto S_30442;} -do{ -*_FUNC_TYPNAME2TYP_LONG_T=*_FUNC_TYPNAME2TYP_LONG_T+*__LONG_ISUNSIGNED; -if(!qbevent)break;evnt(22602);}while(r); -} -do{ -*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*_FUNC_TYPNAME2TYP_LONG_T; -if(!qbevent)break;evnt(22603);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22604);}while(r); -} -S_30448:; -if ((*_FUNC_TYPNAME2TYP_LONG_U)||new_error){ -if(qbevent){evnt(22606);if(r)goto S_30448;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22606);}while(r); -} -S_30451:; -fornext_value3213= 1 ; -fornext_finalvalue3213=*__LONG_LASTTYPE; -fornext_step3213= 1 ; -if (fornext_step3213<0) fornext_step_negative3213=1; else fornext_step_negative3213=0; -if (new_error) goto fornext_error3213; -goto fornext_entrylabel3213; -while(1){ -fornext_value3213=fornext_step3213+(*_FUNC_TYPNAME2TYP_LONG_I); -fornext_entrylabel3213: -*_FUNC_TYPNAME2TYP_LONG_I=fornext_value3213; -if (fornext_step_negative3213){ -if (fornext_value3213fornext_finalvalue3213) break; -} -fornext_error3213:; -if(qbevent){evnt(22609);if(r)goto S_30451;} -S_30452:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXNAME[0]))[(array_check((*_FUNC_TYPNAME2TYP_LONG_I)-__ARRAY_STRING256_UDTXNAME[4],__ARRAY_STRING256_UDTXNAME[5]))*256],256,1)))))||new_error){ -if(qbevent){evnt(22610);if(r)goto S_30452;} -do{ -*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_ISUDT+*__LONG_ISPOINTER+*_FUNC_TYPNAME2TYP_LONG_I; -if(!qbevent)break;evnt(22611);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22612);}while(r); -S_30455:; -}else{ -if (qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXNAME[0]))[(array_check((*_FUNC_TYPNAME2TYP_LONG_I)-__ARRAY_STRING256_UDTXNAME[4],__ARRAY_STRING256_UDTXNAME[5]))*256],256,1)),qbs_new_txt_len("_MEM",4)))&(qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("MEM",3)))&(-(*__LONG_QB64PREFIX_SET== 1 )))){ -if(qbevent){evnt(22613);if(r)goto S_30455;} -do{ -*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_ISUDT+*__LONG_ISPOINTER+*_FUNC_TYPNAME2TYP_LONG_I; -if(!qbevent)break;evnt(22614);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22615);}while(r); -} -} -fornext_continue_3212:; -} -fornext_exit_3212:; -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free48.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -return *_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP; -} -int32 FUNC_UNIQUENUMBER(){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data49.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -*__LONG_UNIQUENUMBERN=*__LONG_UNIQUENUMBERN+ 1 ; -if(!qbevent)break;evnt(22623);}while(r); -do{ -*_FUNC_UNIQUENUMBER_LONG_UNIQUENUMBER=*__LONG_UNIQUENUMBERN; -if(!qbevent)break;evnt(22624);}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free49.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -return *_FUNC_UNIQUENUMBER_LONG_UNIQUENUMBER; -} -int32 FUNC_VALIDLABEL(qbs*_FUNC_VALIDLABEL_STRING_LABEL2){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data50.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -*_FUNC_VALIDLABEL_LONG_CREATE=*__LONG_CREATINGLABEL; -if(!qbevent)break;evnt(22628);}while(r); -do{ -*__LONG_CREATINGLABEL= 0 ; -if(!qbevent)break;evnt(22628);}while(r); -do{ -*_FUNC_VALIDLABEL_LONG_VALIDLABEL= 0 ; -if(!qbevent)break;evnt(22629);}while(r); -S_30465:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_VALIDLABEL_STRING_LABEL2->len== 0 )))||new_error){ -if(qbevent){evnt(22630);if(r)goto S_30465;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22630);}while(r); -} -do{ -qbs_set(_FUNC_VALIDLABEL_STRING_CLABEL,_FUNC_VALIDLABEL_STRING_LABEL2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22631);}while(r); -do{ -qbs_set(_FUNC_VALIDLABEL_STRING_LABEL,qbs_ucase(_FUNC_VALIDLABEL_STRING_LABEL2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22632);}while(r); -do{ -*_FUNC_VALIDLABEL_LONG_N=FUNC_NUMELEMENTS(_FUNC_VALIDLABEL_STRING_LABEL); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22634);}while(r); -S_30471:; -if ((-(*_FUNC_VALIDLABEL_LONG_N== 1 ))||new_error){ -if(qbevent){evnt(22636);if(r)goto S_30471;} -do{ -*_FUNC_VALIDLABEL_LONG_HASHRES=FUNC_HASHFIND(_FUNC_VALIDLABEL_STRING_LABEL,&(pass3216= 8 + 64 + 128 ),_FUNC_VALIDLABEL_LONG_HASHRESFLAGS,_FUNC_VALIDLABEL_LONG_HASHRESREF); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22639);}while(r); -S_30473:; -while((*_FUNC_VALIDLABEL_LONG_HASHRES)||new_error){ -if(qbevent){evnt(22640);if(r)goto S_30473;} -S_30474:; -if ((*_FUNC_VALIDLABEL_LONG_HASHRESFLAGS&( 64 + 128 ))||new_error){ -if(qbevent){evnt(22641);if(r)goto S_30474;} -S_30475:; -if ((*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_VALIDLABEL_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+548)))||new_error){ -if(qbevent){evnt(22642);if(r)goto S_30475;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22642);}while(r); -} -S_30478:; -if ((*_FUNC_VALIDLABEL_LONG_HASHRESFLAGS& 64 )||new_error){ -if(qbevent){evnt(22644);if(r)goto S_30478;} -S_30479:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_VALIDLABEL_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+1613)),256,1))== 32 )))||new_error){ -if(qbevent){evnt(22647);if(r)goto S_30479;} -S_30480:; -if ((-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_VALIDLABEL_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+809))== 0 ))||new_error){ -if(qbevent){evnt(22648);if(r)goto S_30480;} -do{ -*_FUNC_VALIDLABEL_LONG_ONECOMMANDSUB= 1 ; -if(!qbevent)break;evnt(22648);}while(r); -}else{ -do{ -*_FUNC_VALIDLABEL_LONG_ONECOMMANDSUB= 0 ; -if(!qbevent)break;evnt(22648);}while(r); -} -}else{ -S_30486:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_VALIDLABEL_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+1613)),256,1))!= 91 )))||new_error){ -if(qbevent){evnt(22650);if(r)goto S_30486;} -do{ -*_FUNC_VALIDLABEL_LONG_ONECOMMANDSUB= 0 ; -if(!qbevent)break;evnt(22651);}while(r); -}else{ -do{ -*_FUNC_VALIDLABEL_LONG_ONECOMMANDSUB= 1 ; -if(!qbevent)break;evnt(22653);}while(r); -do{ -qbs_set(_FUNC_VALIDLABEL_STRING_A,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_VALIDLABEL_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+1613)),256,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22654);}while(r); -do{ -*_FUNC_VALIDLABEL_LONG_B= 1 ; -if(!qbevent)break;evnt(22655);}while(r); -S_30492:; -fornext_value3219= 2 ; -fornext_finalvalue3219=_FUNC_VALIDLABEL_STRING_A->len; -fornext_step3219= 1 ; -if (fornext_step3219<0) fornext_step_negative3219=1; else fornext_step_negative3219=0; -if (new_error) goto fornext_error3219; -goto fornext_entrylabel3219; -while(1){ -fornext_value3219=fornext_step3219+(*_FUNC_VALIDLABEL_LONG_X); -fornext_entrylabel3219: -*_FUNC_VALIDLABEL_LONG_X=fornext_value3219; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative3219){ -if (fornext_value3219fornext_finalvalue3219) break; -} -fornext_error3219:; -if(qbevent){evnt(22656);if(r)goto S_30492;} -do{ -*_FUNC_VALIDLABEL_LONG_A=qbs_asc(_FUNC_VALIDLABEL_STRING_A,*_FUNC_VALIDLABEL_LONG_X); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22657);}while(r); -S_30494:; -if ((-(*_FUNC_VALIDLABEL_LONG_A== 91 ))||new_error){ -if(qbevent){evnt(22658);if(r)goto S_30494;} -do{ -*_FUNC_VALIDLABEL_LONG_B=*_FUNC_VALIDLABEL_LONG_B+ 1 ; -if(!qbevent)break;evnt(22658);}while(r); -} -S_30497:; -if ((-(*_FUNC_VALIDLABEL_LONG_A== 93 ))||new_error){ -if(qbevent){evnt(22659);if(r)goto S_30497;} -do{ -*_FUNC_VALIDLABEL_LONG_B=*_FUNC_VALIDLABEL_LONG_B- 1 ; -if(!qbevent)break;evnt(22659);}while(r); -} -S_30500:; -if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_VALIDLABEL_LONG_B== 0 ))&(-(*_FUNC_VALIDLABEL_LONG_X!=_FUNC_VALIDLABEL_STRING_A->len))))||new_error){ -if(qbevent){evnt(22660);if(r)goto S_30500;} -do{ -*_FUNC_VALIDLABEL_LONG_ONECOMMANDSUB= 0 ; -if(!qbevent)break;evnt(22660);}while(r); -do{ -goto fornext_exit_3218; -if(!qbevent)break;evnt(22660);}while(r); -} -fornext_continue_3218:; -} -fornext_exit_3218:; -} -} -S_30507:; -if (((-(*_FUNC_VALIDLABEL_LONG_CREATE!= 0 ))&(-(*_FUNC_VALIDLABEL_LONG_ONECOMMANDSUB== 1 )))||new_error){ -if(qbevent){evnt(22664);if(r)goto S_30507;} -S_30508:; -if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,__STRING_SUBNAMELABELS,qbs_add(qbs_add(__STRING1_SP,qbs_ucase(_FUNC_VALIDLABEL_STRING_LABEL)),__STRING1_SP),0)== 0 )))||new_error){ -if(qbevent){evnt(22665);if(r)goto S_30508;} -do{ -qbs_set(__STRING_POSSIBLESUBNAMELABELS,qbs_add(qbs_add(__STRING_POSSIBLESUBNAMELABELS,qbs_ucase(_FUNC_VALIDLABEL_STRING_LABEL)),__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22665);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22665);}while(r); -} -} -} -}else{ -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22672);}while(r); -} -S_30517:; -if ((-(*_FUNC_VALIDLABEL_LONG_HASHRES!= 1 ))||new_error){ -if(qbevent){evnt(22674);if(r)goto S_30517;} -do{ -*_FUNC_VALIDLABEL_LONG_HASHRES=FUNC_HASHFINDCONT(_FUNC_VALIDLABEL_LONG_HASHRESFLAGS,_FUNC_VALIDLABEL_LONG_HASHRESREF); -if(!qbevent)break;evnt(22674);}while(r); -}else{ -do{ -*_FUNC_VALIDLABEL_LONG_HASHRES= 0 ; -if(!qbevent)break;evnt(22674);}while(r); -} -dl_continue_3217:; -} -dl_exit_3217:; -do{ -qbs_set(_FUNC_VALIDLABEL_STRING_T,_FUNC_VALIDLABEL_STRING_LABEL); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22681);}while(r); -do{ -*_FUNC_VALIDLABEL_LONG_A=qbs_asc(_FUNC_VALIDLABEL_STRING_T); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22683);}while(r); -S_30525:; -if (((((-(*_FUNC_VALIDLABEL_LONG_A>= 48 ))&(-(*_FUNC_VALIDLABEL_LONG_A<= 57 ))))|(-(*_FUNC_VALIDLABEL_LONG_A== 46 )))||new_error){ -if(qbevent){evnt(22684);if(r)goto S_30525;} -do{ -*_FUNC_VALIDLABEL_LONG_X=func_instr(NULL,_FUNC_VALIDLABEL_STRING_T,func_chr( 44 ),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22687);}while(r); -S_30527:; -if ((*_FUNC_VALIDLABEL_LONG_X)||new_error){ -if(qbevent){evnt(22688);if(r)goto S_30527;} -do{ -qbs_set(_FUNC_VALIDLABEL_STRING_T,qbs_right(_FUNC_VALIDLABEL_STRING_T,_FUNC_VALIDLABEL_STRING_T->len-*_FUNC_VALIDLABEL_LONG_X)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22689);}while(r); -} -do{ -qbs_set(_FUNC_VALIDLABEL_STRING_ADDSYMBOL,FUNC_REMOVESYMBOL(_FUNC_VALIDLABEL_STRING_T)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22694);}while(r); -S_30531:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(22695);if(r)goto S_30531;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22695);}while(r); -} -S_30534:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_VALIDLABEL_STRING_ADDSYMBOL->len))||new_error){ -if(qbevent){evnt(22696);if(r)goto S_30534;} -S_30535:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_VALIDLABEL_STRING_ADDSYMBOL,qbs_new_txt_len("$",1),0)))||new_error){ -if(qbevent){evnt(22697);if(r)goto S_30535;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22697);}while(r); -} -S_30538:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(_FUNC_VALIDLABEL_STRING_ADDSYMBOL,qbs_new_txt_len("#",1)))&(qbs_notequal(_FUNC_VALIDLABEL_STRING_ADDSYMBOL,qbs_new_txt_len("!",1)))))||new_error){ -if(qbevent){evnt(22698);if(r)goto S_30538;} -do{ -qbs_set(_FUNC_VALIDLABEL_STRING_ADDSYMBOL,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22698);}while(r); -} -} -S_30542:; -if ((-(*_FUNC_VALIDLABEL_LONG_A== 46 ))||new_error){ -if(qbevent){evnt(22701);if(r)goto S_30542;} -do{ -*_FUNC_VALIDLABEL_LONG_DP= 1 ; -if(!qbevent)break;evnt(22701);}while(r); -} -S_30545:; -fornext_value3225= 2 ; -fornext_finalvalue3225=_FUNC_VALIDLABEL_STRING_T->len; -fornext_step3225= 1 ; -if (fornext_step3225<0) fornext_step_negative3225=1; else fornext_step_negative3225=0; -if (new_error) goto fornext_error3225; -goto fornext_entrylabel3225; -while(1){ -fornext_value3225=fornext_step3225+(*_FUNC_VALIDLABEL_LONG_X); -fornext_entrylabel3225: -*_FUNC_VALIDLABEL_LONG_X=fornext_value3225; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative3225){ -if (fornext_value3225fornext_finalvalue3225) break; -} -fornext_error3225:; -if(qbevent){evnt(22702);if(r)goto S_30545;} -do{ -*_FUNC_VALIDLABEL_LONG_A=qbs_asc(func_mid(_FUNC_VALIDLABEL_STRING_T,*_FUNC_VALIDLABEL_LONG_X, 1 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22703);}while(r); -S_30547:; -if ((-(*_FUNC_VALIDLABEL_LONG_A== 46 ))||new_error){ -if(qbevent){evnt(22704);if(r)goto S_30547;} -do{ -*_FUNC_VALIDLABEL_LONG_DP=*_FUNC_VALIDLABEL_LONG_DP+ 1 ; -if(!qbevent)break;evnt(22704);}while(r); -} -S_30550:; -if (((((-(*_FUNC_VALIDLABEL_LONG_A< 48 ))|(-(*_FUNC_VALIDLABEL_LONG_A> 57 ))))&(-(*_FUNC_VALIDLABEL_LONG_A!= 46 )))||new_error){ -if(qbevent){evnt(22705);if(r)goto S_30550;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22705);}while(r); -} -fornext_continue_3224:; -} -fornext_exit_3224:; -S_30554:; -if ((-(*_FUNC_VALIDLABEL_LONG_DP> 1 ))||new_error){ -if(qbevent){evnt(22707);if(r)goto S_30554;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22707);}while(r); -} -S_30557:; -if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_VALIDLABEL_LONG_DP== 1 ))&(-(_FUNC_VALIDLABEL_STRING_T->len== 1 ))))||new_error){ -if(qbevent){evnt(22708);if(r)goto S_30557;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22708);}while(r); -} -do{ -qbs_set(__STRING_TLAYOUT,qbs_add(_FUNC_VALIDLABEL_STRING_T,_FUNC_VALIDLABEL_STRING_ADDSYMBOL)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22710);}while(r); -do{ -*_FUNC_VALIDLABEL_LONG_I=func_instr(NULL,_FUNC_VALIDLABEL_STRING_T,qbs_new_txt_len(".",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22712);}while(r); -S_30562:; -if ((*_FUNC_VALIDLABEL_LONG_I)||new_error){ -if(qbevent){evnt(22712);if(r)goto S_30562;} -do{ -sub_mid(_FUNC_VALIDLABEL_STRING_T,*_FUNC_VALIDLABEL_LONG_I, 1 ,qbs_new_txt_len("p",1),1); -if(!qbevent)break;evnt(22712);}while(r); -} -S_30565:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_VALIDLABEL_STRING_ADDSYMBOL,qbs_new_txt_len("#",1))))||new_error){ -if(qbevent){evnt(22713);if(r)goto S_30565;} -do{ -qbs_set(_FUNC_VALIDLABEL_STRING_T,qbs_add(_FUNC_VALIDLABEL_STRING_T,qbs_new_txt_len("d",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22713);}while(r); -} -S_30568:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_VALIDLABEL_STRING_ADDSYMBOL,qbs_new_txt_len("!",1))))||new_error){ -if(qbevent){evnt(22714);if(r)goto S_30568;} -do{ -qbs_set(_FUNC_VALIDLABEL_STRING_T,qbs_add(_FUNC_VALIDLABEL_STRING_T,qbs_new_txt_len("s",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22714);}while(r); -} -S_30571:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_VALIDLABEL_STRING_T->len> 40 )))||new_error){ -if(qbevent){evnt(22716);if(r)goto S_30571;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22716);}while(r); -} -do{ -qbs_set(_FUNC_VALIDLABEL_STRING_LABEL2,_FUNC_VALIDLABEL_STRING_T); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22718);}while(r); -do{ -*_FUNC_VALIDLABEL_LONG_VALIDLABEL= 1 ; -if(!qbevent)break;evnt(22719);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22720);}while(r); -} -} -S_30579:; -if ((-((*_FUNC_VALIDLABEL_LONG_N& 1 )== 0 ))||new_error){ -if(qbevent){evnt(22729);if(r)goto S_30579;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22729);}while(r); -} -S_30582:; -fornext_value3230= 2 ; -fornext_finalvalue3230=*_FUNC_VALIDLABEL_LONG_N- 1 ; -fornext_step3230= 2 ; -if (fornext_step3230<0) fornext_step_negative3230=1; else fornext_step_negative3230=0; -if (new_error) goto fornext_error3230; -goto fornext_entrylabel3230; -while(1){ -fornext_value3230=fornext_step3230+(*_FUNC_VALIDLABEL_LONG_NX); -fornext_entrylabel3230: -*_FUNC_VALIDLABEL_LONG_NX=fornext_value3230; -if (fornext_step_negative3230){ -if (fornext_value3230fornext_finalvalue3230) break; -} -fornext_error3230:; -if(qbevent){evnt(22730);if(r)goto S_30582;} -do{ -qbs_set(_FUNC_VALIDLABEL_STRING_A,FUNC_GETELEMENT(_FUNC_VALIDLABEL_STRING_LABEL2,_FUNC_VALIDLABEL_LONG_NX)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22731);}while(r); -S_30584:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_VALIDLABEL_STRING_A,qbs_new_txt_len(".",1))))||new_error){ -if(qbevent){evnt(22732);if(r)goto S_30584;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22732);}while(r); -} -fornext_continue_3229:; -} -fornext_exit_3229:; -do{ -*_FUNC_VALIDLABEL_LONG_C=qbs_asc(_FUNC_VALIDLABEL_STRING_CLABEL); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22736);}while(r); -S_30589:; -if (((-(*_FUNC_VALIDLABEL_LONG_C>= 48 ))&(-(*_FUNC_VALIDLABEL_LONG_C<= 57 )))||new_error){ -if(qbevent){evnt(22736);if(r)goto S_30589;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22736);}while(r); -} -do{ -qbs_set(_FUNC_VALIDLABEL_STRING_LABEL3,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22739);}while(r); -S_30593:; -fornext_value3232= 1 ; -fornext_finalvalue3232=*_FUNC_VALIDLABEL_LONG_N; -fornext_step3232= 2 ; -if (fornext_step3232<0) fornext_step_negative3232=1; else fornext_step_negative3232=0; -if (new_error) goto fornext_error3232; -goto fornext_entrylabel3232; -while(1){ -fornext_value3232=fornext_step3232+(*_FUNC_VALIDLABEL_LONG_NX); -fornext_entrylabel3232: -*_FUNC_VALIDLABEL_LONG_NX=fornext_value3232; -if (fornext_step_negative3232){ -if (fornext_value3232fornext_finalvalue3232) break; -} -fornext_error3232:; -if(qbevent){evnt(22740);if(r)goto S_30593;} -do{ -qbs_set(_FUNC_VALIDLABEL_STRING_LABEL,FUNC_GETELEMENT(_FUNC_VALIDLABEL_STRING_CLABEL,_FUNC_VALIDLABEL_LONG_NX)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22741);}while(r); -S_30595:; -fornext_value3234= 1 ; -fornext_finalvalue3234=_FUNC_VALIDLABEL_STRING_LABEL->len; -fornext_step3234= 1 ; -if (fornext_step3234<0) fornext_step_negative3234=1; else fornext_step_negative3234=0; -if (new_error) goto fornext_error3234; -goto fornext_entrylabel3234; -while(1){ -fornext_value3234=fornext_step3234+(*_FUNC_VALIDLABEL_LONG_X); -fornext_entrylabel3234: -*_FUNC_VALIDLABEL_LONG_X=fornext_value3234; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative3234){ -if (fornext_value3234fornext_finalvalue3234) break; -} -fornext_error3234:; -if(qbevent){evnt(22744);if(r)goto S_30595;} -S_30596:; -if ((qbs_cleanup(qbs_tmp_base,-(((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(_FUNC_VALIDLABEL_STRING_LABEL,*_FUNC_VALIDLABEL_LONG_X))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]== 0 )))||new_error){ -if(qbevent){evnt(22745);if(r)goto S_30596;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22745);}while(r); -} -fornext_continue_3233:; -} -fornext_exit_3233:; -S_30600:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_VALIDLABEL_STRING_LABEL3,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(22749);if(r)goto S_30600;} -do{ -qbs_set(_FUNC_VALIDLABEL_STRING_LABEL3,qbs_ucase(_FUNC_VALIDLABEL_STRING_LABEL)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22749);}while(r); -do{ -qbs_set(__STRING_TLAYOUT,_FUNC_VALIDLABEL_STRING_LABEL); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22749);}while(r); -}else{ -do{ -qbs_set(_FUNC_VALIDLABEL_STRING_LABEL3,qbs_add(qbs_add(_FUNC_VALIDLABEL_STRING_LABEL3,__STRING_FIX046),qbs_ucase(_FUNC_VALIDLABEL_STRING_LABEL))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22749);}while(r); -do{ -qbs_set(__STRING_TLAYOUT,qbs_add(qbs_add(__STRING_TLAYOUT,qbs_new_txt_len(".",1)),_FUNC_VALIDLABEL_STRING_LABEL)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22749);}while(r); -} -fornext_continue_3231:; -} -fornext_exit_3231:; -do{ -*_FUNC_VALIDLABEL_LONG_VALIDLABEL= 1 ; -if(!qbevent)break;evnt(22752);}while(r); -do{ -qbs_set(_FUNC_VALIDLABEL_STRING_LABEL2,_FUNC_VALIDLABEL_STRING_LABEL3); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22753);}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free50.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -return *_FUNC_VALIDLABEL_LONG_VALIDLABEL; -} -void SUB_XEND(){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data51.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -S_30610:; -if ((-(*__LONG_VWATCHON== 1 ))||new_error){ -if(qbevent){evnt(22758);if(r)goto S_30610;} -S_30611:; -if ((((-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 ))|(-(*__INTEGER_CLOSEDMAIN== 0 ))))||new_error){ -if(qbevent){evnt(22760);if(r)goto S_30611;} -do{ -SUB_VWATCHADDLABEL(&(pass3236= 0 ),&(pass3237= -1 )); -if(!qbevent)break;evnt(22760);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass3238=*__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(22761);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass3239=*__LONG_MAINTXTBUF),qbs_new_txt_len("sub_end();",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22763);}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free51.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -void SUB_XFILEPRINT(qbs*_SUB_XFILEPRINT_STRING_A,qbs*_SUB_XFILEPRINT_STRING_CA,int32*_SUB_XFILEPRINT_LONG_N){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data52.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -qbs_set(_SUB_XFILEPRINT_STRING_U,FUNC_STR2(&(pass3242=FUNC_UNIQUENUMBER()))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22767);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass3243=*__LONG_MAINTXTBUF),qbs_new_txt_len("tab_spc_cr_size=2;",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22768);}while(r); -S_30619:; -if ((-(*_SUB_XFILEPRINT_LONG_N== 2 ))||new_error){ -if(qbevent){evnt(22769);if(r)goto S_30619;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected # ... , ...",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22769);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22769);}while(r); -} -do{ -qbs_set(_SUB_XFILEPRINT_STRING_A3,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22770);}while(r); -do{ -*_SUB_XFILEPRINT_LONG_B= 0 ; -if(!qbevent)break;evnt(22771);}while(r); -S_30625:; -fornext_value3245= 3 ; -fornext_finalvalue3245=*_SUB_XFILEPRINT_LONG_N; -fornext_step3245= 1 ; -if (fornext_step3245<0) fornext_step_negative3245=1; else fornext_step_negative3245=0; -if (new_error) goto fornext_error3245; -goto fornext_entrylabel3245; -while(1){ -fornext_value3245=fornext_step3245+(*_SUB_XFILEPRINT_LONG_I); -fornext_entrylabel3245: -*_SUB_XFILEPRINT_LONG_I=fornext_value3245; -if (fornext_step_negative3245){ -if (fornext_value3245fornext_finalvalue3245) break; -} -fornext_error3245:; -if(qbevent){evnt(22772);if(r)goto S_30625;} -do{ -qbs_set(_SUB_XFILEPRINT_STRING_A2,FUNC_GETELEMENT(_SUB_XFILEPRINT_STRING_CA,_SUB_XFILEPRINT_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22773);}while(r); -S_30627:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(22774);if(r)goto S_30627;} -do{ -*_SUB_XFILEPRINT_LONG_B=*_SUB_XFILEPRINT_LONG_B+ 1 ; -if(!qbevent)break;evnt(22774);}while(r); -} -S_30630:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(22775);if(r)goto S_30630;} -do{ -*_SUB_XFILEPRINT_LONG_B=*_SUB_XFILEPRINT_LONG_B- 1 ; -if(!qbevent)break;evnt(22775);}while(r); -} -S_30633:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(",",1)))&(-(*_SUB_XFILEPRINT_LONG_B== 0 ))))||new_error){ -if(qbevent){evnt(22776);if(r)goto S_30633;} -S_30634:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A3,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(22777);if(r)goto S_30634;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected # ... , ...",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22777);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22777);}while(r); -} -do{ -goto LABEL_PRINTGOTFN; -if(!qbevent)break;evnt(22778);}while(r); -} -S_30640:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A3,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(22780);if(r)goto S_30640;} -do{ -qbs_set(_SUB_XFILEPRINT_STRING_A3,_SUB_XFILEPRINT_STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22780);}while(r); -}else{ -do{ -qbs_set(_SUB_XFILEPRINT_STRING_A3,qbs_add(qbs_add(_SUB_XFILEPRINT_STRING_A3,__STRING1_SP),_SUB_XFILEPRINT_STRING_A2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22780);}while(r); -} -fornext_continue_3244:; -} -fornext_exit_3244:; -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected # ... ,",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22782);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22782);}while(r); -LABEL_PRINTGOTFN:; -if(qbevent){evnt(22783);r=0;} -do{ -qbs_set(_SUB_XFILEPRINT_STRING_E,FUNC_FIXOPERATIONORDER(_SUB_XFILEPRINT_STRING_A3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22784);}while(r); -S_30649:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(22785);if(r)goto S_30649;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22785);}while(r); -} -do{ -qbs_set(_SUB_XFILEPRINT_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("Print",5)),__STRING1_SP),qbs_new_txt_len("#",1)),__STRING1_SP2),__STRING_TLAYOUT),__STRING1_SP2),qbs_new_txt_len(",",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22786);}while(r); -do{ -qbs_set(_SUB_XFILEPRINT_STRING_E,FUNC_EVALUATETOTYP(_SUB_XFILEPRINT_STRING_E,&(pass3246= 64 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22787);}while(r); -S_30654:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(22788);if(r)goto S_30654;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22788);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass3247=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("tab_fileno=tmp_fileno=",22),_SUB_XFILEPRINT_STRING_E),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22789);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass3248=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if (new_error) goto skip",24),_SUB_XFILEPRINT_STRING_U),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22790);}while(r); -do{ -*_SUB_XFILEPRINT_LONG_I=*_SUB_XFILEPRINT_LONG_I+ 1 ; -if(!qbevent)break;evnt(22791);}while(r); -S_30660:; -if ((-(*_SUB_XFILEPRINT_LONG_N>=*_SUB_XFILEPRINT_LONG_I))||new_error){ -if(qbevent){evnt(22794);if(r)goto S_30660;} -S_30661:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(_SUB_XFILEPRINT_STRING_A,_SUB_XFILEPRINT_LONG_I),qbs_new_txt_len("USING",5))))||new_error){ -if(qbevent){evnt(22795);if(r)goto S_30661;} -LABEL_FPUJUMP:; -if(qbevent){evnt(22797);r=0;} -do{ -qbs_set(_SUB_XFILEPRINT_STRING_L,qbs_add(qbs_add(_SUB_XFILEPRINT_STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("Using",5)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22798);}while(r); -do{ -qbs_set(_SUB_XFILEPRINT_STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22799);}while(r); -do{ -*_SUB_XFILEPRINT_LONG_B= 0 ; -if(!qbevent)break;evnt(22799);}while(r); -do{ -qbs_set(_SUB_XFILEPRINT_STRING_PUFORMAT,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22799);}while(r); -S_30666:; -fornext_value3250=*_SUB_XFILEPRINT_LONG_I+ 1 ; -fornext_finalvalue3250=*_SUB_XFILEPRINT_LONG_N; -fornext_step3250= 1 ; -if (fornext_step3250<0) fornext_step_negative3250=1; else fornext_step_negative3250=0; -if (new_error) goto fornext_error3250; -goto fornext_entrylabel3250; -while(1){ -fornext_value3250=fornext_step3250+(*_SUB_XFILEPRINT_LONG_I); -fornext_entrylabel3250: -*_SUB_XFILEPRINT_LONG_I=fornext_value3250; -if (fornext_step_negative3250){ -if (fornext_value3250fornext_finalvalue3250) break; -} -fornext_error3250:; -if(qbevent){evnt(22800);if(r)goto S_30666;} -do{ -qbs_set(_SUB_XFILEPRINT_STRING_A2,FUNC_GETELEMENT(_SUB_XFILEPRINT_STRING_CA,_SUB_XFILEPRINT_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22801);}while(r); -S_30668:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(22802);if(r)goto S_30668;} -do{ -*_SUB_XFILEPRINT_LONG_B=*_SUB_XFILEPRINT_LONG_B+ 1 ; -if(!qbevent)break;evnt(22802);}while(r); -} -S_30671:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(22803);if(r)goto S_30671;} -do{ -*_SUB_XFILEPRINT_LONG_B=*_SUB_XFILEPRINT_LONG_B- 1 ; -if(!qbevent)break;evnt(22803);}while(r); -} -S_30674:; -if ((-(*_SUB_XFILEPRINT_LONG_B== 0 ))||new_error){ -if(qbevent){evnt(22804);if(r)goto S_30674;} -S_30675:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(",",1))))||new_error){ -if(qbevent){evnt(22805);if(r)goto S_30675;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected PRINT USING #filenumber, formatstring ; ...",52)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22805);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22805);}while(r); -} -S_30679:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(";",1))))||new_error){ -if(qbevent){evnt(22806);if(r)goto S_30679;} -do{ -qbs_set(_SUB_XFILEPRINT_STRING_E,FUNC_FIXOPERATIONORDER(_SUB_XFILEPRINT_STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22807);}while(r); -S_30681:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(22808);if(r)goto S_30681;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22808);}while(r); -} -do{ -qbs_set(_SUB_XFILEPRINT_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(_SUB_XFILEPRINT_STRING_L,__STRING1_SP),__STRING_TLAYOUT),__STRING1_SP2),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22809);}while(r); -do{ -qbs_set(_SUB_XFILEPRINT_STRING_E,FUNC_EVALUATE(_SUB_XFILEPRINT_STRING_E,_SUB_XFILEPRINT_LONG_TYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22810);}while(r); -S_30686:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(22811);if(r)goto S_30686;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22811);}while(r); -} -S_30689:; -if (((*_SUB_XFILEPRINT_LONG_TYP&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(22812);if(r)goto S_30689;} -do{ -qbs_set(_SUB_XFILEPRINT_STRING_E,FUNC_REFER(_SUB_XFILEPRINT_STRING_E,_SUB_XFILEPRINT_LONG_TYP,&(pass3251= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22812);}while(r); -} -S_30692:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(22813);if(r)goto S_30692;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22813);}while(r); -} -S_30695:; -if ((-((*_SUB_XFILEPRINT_LONG_TYP&*__LONG_ISSTRING)== 0 ))||new_error){ -if(qbevent){evnt(22814);if(r)goto S_30695;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected PRINT USING #filenumber, formatstring ; ...",52)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22814);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22814);}while(r); -} -do{ -qbs_set(_SUB_XFILEPRINT_STRING_PUFORMAT,_SUB_XFILEPRINT_STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22815);}while(r); -do{ -goto fornext_exit_3249; -if(!qbevent)break;evnt(22816);}while(r); -} -} -S_30703:; -if ((qbs_cleanup(qbs_tmp_base,_SUB_XFILEPRINT_STRING_E->len))||new_error){ -if(qbevent){evnt(22819);if(r)goto S_30703;} -do{ -qbs_set(_SUB_XFILEPRINT_STRING_E,qbs_add(qbs_add(_SUB_XFILEPRINT_STRING_E,__STRING1_SP),_SUB_XFILEPRINT_STRING_A2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22819);}while(r); -}else{ -do{ -qbs_set(_SUB_XFILEPRINT_STRING_E,_SUB_XFILEPRINT_STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22819);}while(r); -} -fornext_continue_3249:; -} -fornext_exit_3249:; -S_30709:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_PUFORMAT,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(22821);if(r)goto S_30709;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected PRINT USING #filenumber, formatstring ; ...",52)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22821);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22821);}while(r); -} -S_30713:; -if ((-(*_SUB_XFILEPRINT_LONG_I==*_SUB_XFILEPRINT_LONG_N))||new_error){ -if(qbevent){evnt(22822);if(r)goto S_30713;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected PRINT USING #filenumber, formatstring ; ...",52)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22822);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22822);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass3253=*__LONG_MAINTXTBUF),qbs_new_txt_len("tqbs=qbs_new(0,0);",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22824);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass3254=*__LONG_MAINTXTBUF),qbs_new_txt_len("tmp_long=0;",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22826);}while(r); -do{ -qbs_set(_SUB_XFILEPRINT_STRING_PUF,qbs_add(qbs_new_txt_len("print_using_format",18),_SUB_XFILEPRINT_STRING_U)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22828);}while(r); -S_30720:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SUBFUNC,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(22829);if(r)goto S_30720;} -do{ -SUB_WRITEBUFLINE(&(pass3255=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("static qbs *",12),_SUB_XFILEPRINT_STRING_PUF),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22830);}while(r); -}else{ -do{ -SUB_WRITEBUFLINE(&(pass3256=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("qbs *",5),_SUB_XFILEPRINT_STRING_PUF),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22832);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass3257=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_XFILEPRINT_STRING_PUF,qbs_new_txt_len("=qbs_new(0,0); qbs_set(",23)),_SUB_XFILEPRINT_STRING_PUF),qbs_new_txt_len(",",1)),_SUB_XFILEPRINT_STRING_PUFORMAT),qbs_new_txt_len(");",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22834);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass3258=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if (new_error) goto skip",24),_SUB_XFILEPRINT_STRING_U),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22835);}while(r); -do{ -*_SUB_XFILEPRINT_LONG_B= 0 ; -if(!qbevent)break;evnt(22837);}while(r); -do{ -qbs_set(_SUB_XFILEPRINT_STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22838);}while(r); -do{ -*_SUB_XFILEPRINT_LONG_LAST= 0 ; -if(!qbevent)break;evnt(22839);}while(r); -S_30730:; -fornext_value3260=*_SUB_XFILEPRINT_LONG_I+ 1 ; -fornext_finalvalue3260=*_SUB_XFILEPRINT_LONG_N; -fornext_step3260= 1 ; -if (fornext_step3260<0) fornext_step_negative3260=1; else fornext_step_negative3260=0; -if (new_error) goto fornext_error3260; -goto fornext_entrylabel3260; -while(1){ -fornext_value3260=fornext_step3260+(*_SUB_XFILEPRINT_LONG_I); -fornext_entrylabel3260: -*_SUB_XFILEPRINT_LONG_I=fornext_value3260; -if (fornext_step_negative3260){ -if (fornext_value3260fornext_finalvalue3260) break; -} -fornext_error3260:; -if(qbevent){evnt(22840);if(r)goto S_30730;} -do{ -qbs_set(_SUB_XFILEPRINT_STRING_A2,FUNC_GETELEMENT(_SUB_XFILEPRINT_STRING_CA,_SUB_XFILEPRINT_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22841);}while(r); -S_30732:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(22842);if(r)goto S_30732;} -do{ -*_SUB_XFILEPRINT_LONG_B=*_SUB_XFILEPRINT_LONG_B+ 1 ; -if(!qbevent)break;evnt(22842);}while(r); -} -S_30735:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(22843);if(r)goto S_30735;} -do{ -*_SUB_XFILEPRINT_LONG_B=*_SUB_XFILEPRINT_LONG_B- 1 ; -if(!qbevent)break;evnt(22843);}while(r); -} -S_30738:; -if ((-(*_SUB_XFILEPRINT_LONG_B== 0 ))||new_error){ -if(qbevent){evnt(22844);if(r)goto S_30738;} -S_30739:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(";",1)))|(qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(",",1)))))||new_error){ -if(qbevent){evnt(22845);if(r)goto S_30739;} -LABEL_FPRINTULAST:; -if(qbevent){evnt(22846);r=0;} -do{ -qbs_set(_SUB_XFILEPRINT_STRING_E,FUNC_FIXOPERATIONORDER(_SUB_XFILEPRINT_STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22847);}while(r); -S_30741:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(22848);if(r)goto S_30741;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22848);}while(r); -} -S_30744:; -if ((*_SUB_XFILEPRINT_LONG_LAST)||new_error){ -if(qbevent){evnt(22849);if(r)goto S_30744;} -do{ -qbs_set(_SUB_XFILEPRINT_STRING_L,qbs_add(qbs_add(_SUB_XFILEPRINT_STRING_L,__STRING1_SP),__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22849);}while(r); -}else{ -do{ -qbs_set(_SUB_XFILEPRINT_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(_SUB_XFILEPRINT_STRING_L,__STRING1_SP),__STRING_TLAYOUT),__STRING1_SP2),_SUB_XFILEPRINT_STRING_A2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22849);}while(r); -} -do{ -qbs_set(_SUB_XFILEPRINT_STRING_E,FUNC_EVALUATE(_SUB_XFILEPRINT_STRING_E,_SUB_XFILEPRINT_LONG_TYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22850);}while(r); -S_30750:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(22851);if(r)goto S_30750;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22851);}while(r); -} -S_30753:; -if (((*_SUB_XFILEPRINT_LONG_TYP&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(22852);if(r)goto S_30753;} -do{ -qbs_set(_SUB_XFILEPRINT_STRING_E,FUNC_REFER(_SUB_XFILEPRINT_STRING_E,_SUB_XFILEPRINT_LONG_TYP,&(pass3261= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22852);}while(r); -} -S_30756:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(22853);if(r)goto S_30756;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22853);}while(r); -} -S_30759:; -if ((*_SUB_XFILEPRINT_LONG_TYP&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(22854);if(r)goto S_30759;} -S_30760:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(_SUB_XFILEPRINT_STRING_E, 9 ),qbs_new_txt_len("func_tab(",9)))|(qbs_equal(qbs_left(_SUB_XFILEPRINT_STRING_E, 9 ),qbs_new_txt_len("func_spc(",9)))))||new_error){ -if(qbevent){evnt(22856);if(r)goto S_30760;} -do{ -SUB_WRITEBUFLINE(&(pass3262=*__LONG_MAINTXTBUF),qbs_new_txt_len("sub_file_print(tmp_fileno,tqbs,0,0,0);",38)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22861);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass3263=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("qbs_set(tqbs,",13),_SUB_XFILEPRINT_STRING_E),qbs_new_txt_len(");",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22863);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass3264=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if (new_error) goto skip_pu",27),_SUB_XFILEPRINT_STRING_U),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22864);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass3265=*__LONG_MAINTXTBUF),qbs_new_txt_len("sub_file_print(tmp_fileno,tqbs,0,0,0);",38)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22865);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass3266=*__LONG_MAINTXTBUF),qbs_new_txt_len("tqbs->len=0;",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22867);}while(r); -}else{ -do{ -SUB_WRITEBUFLINE(&(pass3267=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("tmp_long=print_using(",21),_SUB_XFILEPRINT_STRING_PUF),qbs_new_txt_len(",tmp_long,tqbs,",15)),_SUB_XFILEPRINT_STRING_E),qbs_new_txt_len(");",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22872);}while(r); -} -}else{ -S_30770:; -if ((*_SUB_XFILEPRINT_LONG_TYP&*__LONG_ISFLOAT)||new_error){ -if(qbevent){evnt(22877);if(r)goto S_30770;} -S_30771:; -if ((-((*_SUB_XFILEPRINT_LONG_TYP& 511 )== 32 ))||new_error){ -if(qbevent){evnt(22878);if(r)goto S_30771;} -do{ -SUB_WRITEBUFLINE(&(pass3268=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("tmp_long=print_using_single(",28),_SUB_XFILEPRINT_STRING_PUF),qbs_new_txt_len(",",1)),_SUB_XFILEPRINT_STRING_E),qbs_new_txt_len(",tmp_long,tqbs);",16))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22878);}while(r); -} -S_30774:; -if ((-((*_SUB_XFILEPRINT_LONG_TYP& 511 )== 64 ))||new_error){ -if(qbevent){evnt(22879);if(r)goto S_30774;} -do{ -SUB_WRITEBUFLINE(&(pass3269=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("tmp_long=print_using_double(",28),_SUB_XFILEPRINT_STRING_PUF),qbs_new_txt_len(",",1)),_SUB_XFILEPRINT_STRING_E),qbs_new_txt_len(",tmp_long,tqbs);",16))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22879);}while(r); -} -S_30777:; -if ((-((*_SUB_XFILEPRINT_LONG_TYP& 511 )> 64 ))||new_error){ -if(qbevent){evnt(22880);if(r)goto S_30777;} -do{ -SUB_WRITEBUFLINE(&(pass3270=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("tmp_long=print_using_float(",27),_SUB_XFILEPRINT_STRING_PUF),qbs_new_txt_len(",",1)),_SUB_XFILEPRINT_STRING_E),qbs_new_txt_len(",tmp_long,tqbs);",16))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22880);}while(r); -} -}else{ -S_30781:; -if ((((-((*_SUB_XFILEPRINT_LONG_TYP& 511 )== 64 )))&(-((*_SUB_XFILEPRINT_LONG_TYP&*__LONG_ISUNSIGNED)!= 0 )))||new_error){ -if(qbevent){evnt(22882);if(r)goto S_30781;} -do{ -SUB_WRITEBUFLINE(&(pass3271=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("tmp_long=print_using_uinteger64(",32),_SUB_XFILEPRINT_STRING_PUF),qbs_new_txt_len(",",1)),_SUB_XFILEPRINT_STRING_E),qbs_new_txt_len(",tmp_long,tqbs);",16))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22883);}while(r); -}else{ -do{ -SUB_WRITEBUFLINE(&(pass3272=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("tmp_long=print_using_integer64(",31),_SUB_XFILEPRINT_STRING_PUF),qbs_new_txt_len(",",1)),_SUB_XFILEPRINT_STRING_E),qbs_new_txt_len(",tmp_long,tqbs);",16))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22885);}while(r); -} -} -} -do{ -SUB_WRITEBUFLINE(&(pass3273=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if (new_error) goto skip_pu",27),_SUB_XFILEPRINT_STRING_U),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22889);}while(r); -do{ -qbs_set(_SUB_XFILEPRINT_STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22890);}while(r); -S_30790:; -if ((*_SUB_XFILEPRINT_LONG_LAST)||new_error){ -if(qbevent){evnt(22891);if(r)goto S_30790;} -do{ -goto fornext_exit_3259; -if(!qbevent)break;evnt(22891);}while(r); -} -do{ -goto LABEL_FPRINTUNEXT; -if(!qbevent)break;evnt(22892);}while(r); -} -} -S_30796:; -if ((qbs_cleanup(qbs_tmp_base,_SUB_XFILEPRINT_STRING_E->len))||new_error){ -if(qbevent){evnt(22895);if(r)goto S_30796;} -do{ -qbs_set(_SUB_XFILEPRINT_STRING_E,qbs_add(qbs_add(_SUB_XFILEPRINT_STRING_E,__STRING1_SP),_SUB_XFILEPRINT_STRING_A2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22895);}while(r); -}else{ -do{ -qbs_set(_SUB_XFILEPRINT_STRING_E,_SUB_XFILEPRINT_STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22895);}while(r); -} -LABEL_FPRINTUNEXT:; -if(qbevent){evnt(22896);r=0;} -fornext_continue_3259:; -} -fornext_exit_3259:; -S_30802:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_XFILEPRINT_STRING_E,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(22898);if(r)goto S_30802;} -do{ -qbs_set(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22898);}while(r); -do{ -*_SUB_XFILEPRINT_LONG_LAST= 1 ; -if(!qbevent)break;evnt(22898);}while(r); -do{ -goto LABEL_FPRINTULAST; -if(!qbevent)break;evnt(22898);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass3275=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("skip_pu",7),_SUB_XFILEPRINT_STRING_U),qbs_new_txt_len(":",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22899);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass3276=*__LONG_MAINTXTBUF),qbs_new_txt_len("if (new_error){",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22901);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass3277=*__LONG_MAINTXTBUF),qbs_new_txt_len("g_tmp_long=new_error; new_error=0; sub_file_print(tmp_fileno,tqbs,0,0,0); new_error=g_tmp_long;",95)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22902);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass3278=*__LONG_MAINTXTBUF),qbs_new_txt_len("}else{",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22903);}while(r); -S_30811:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(",",1)))|(qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(";",1)))))||new_error){ -if(qbevent){evnt(22904);if(r)goto S_30811;} -do{ -*_SUB_XFILEPRINT_LONG_NL= 0 ; -if(!qbevent)break;evnt(22904);}while(r); -}else{ -do{ -*_SUB_XFILEPRINT_LONG_NL= 1 ; -if(!qbevent)break;evnt(22904);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass3279=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sub_file_print(tmp_fileno,tqbs,0,0,",35),FUNC_STR2(_SUB_XFILEPRINT_LONG_NL)),qbs_new_txt_len(");",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22905);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass3280=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22906);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass3281=*__LONG_MAINTXTBUF),qbs_new_txt_len("qbs_free(tqbs);",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22907);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass3282=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("qbs_free(",9),_SUB_XFILEPRINT_STRING_PUF),qbs_new_txt_len(");",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22908);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass3283=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("skip",4),_SUB_XFILEPRINT_STRING_U),qbs_new_txt_len(":",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22909);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass3284=*__LONG_MAINTXTBUF),qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22910);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass3285=*__LONG_MAINTXTBUF),qbs_new_txt_len("tab_spc_cr_size=1;",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22911);}while(r); -do{ -qbs_set(__STRING_TLAYOUT,_SUB_XFILEPRINT_STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22912);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22913);}while(r); -} -} -S_30827:; -if ((-(*_SUB_XFILEPRINT_LONG_I>*_SUB_XFILEPRINT_LONG_N))||new_error){ -if(qbevent){evnt(22918);if(r)goto S_30827;} -do{ -SUB_WRITEBUFLINE(&(pass3286=*__LONG_MAINTXTBUF),qbs_new_txt_len("sub_file_print(tmp_fileno,nothingstring,0,0,1);",47)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22919);}while(r); -do{ -goto LABEL_PRINTBLANKLINE; -if(!qbevent)break;evnt(22920);}while(r); -} -do{ -*_SUB_XFILEPRINT_LONG_B= 0 ; -if(!qbevent)break;evnt(22922);}while(r); -do{ -qbs_set(_SUB_XFILEPRINT_STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22923);}while(r); -do{ -*_SUB_XFILEPRINT_LONG_LAST= 0 ; -if(!qbevent)break;evnt(22924);}while(r); -S_30834:; -fornext_value3288=*_SUB_XFILEPRINT_LONG_I; -fornext_finalvalue3288=*_SUB_XFILEPRINT_LONG_N; -fornext_step3288= 1 ; -if (fornext_step3288<0) fornext_step_negative3288=1; else fornext_step_negative3288=0; -if (new_error) goto fornext_error3288; -goto fornext_entrylabel3288; -while(1){ -fornext_value3288=fornext_step3288+(*_SUB_XFILEPRINT_LONG_I); -fornext_entrylabel3288: -*_SUB_XFILEPRINT_LONG_I=fornext_value3288; -if (fornext_step_negative3288){ -if (fornext_value3288fornext_finalvalue3288) break; -} -fornext_error3288:; -if(qbevent){evnt(22925);if(r)goto S_30834;} -do{ -qbs_set(_SUB_XFILEPRINT_STRING_A2,FUNC_GETELEMENT(_SUB_XFILEPRINT_STRING_CA,_SUB_XFILEPRINT_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22926);}while(r); -S_30836:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(22927);if(r)goto S_30836;} -do{ -*_SUB_XFILEPRINT_LONG_B=*_SUB_XFILEPRINT_LONG_B+ 1 ; -if(!qbevent)break;evnt(22927);}while(r); -} -S_30839:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(22928);if(r)goto S_30839;} -do{ -*_SUB_XFILEPRINT_LONG_B=*_SUB_XFILEPRINT_LONG_B- 1 ; -if(!qbevent)break;evnt(22928);}while(r); -} -S_30842:; -if ((-(*_SUB_XFILEPRINT_LONG_B== 0 ))||new_error){ -if(qbevent){evnt(22929);if(r)goto S_30842;} -S_30843:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(";",1)))|(qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(",",1)))|(qbs_equal(qbs_ucase(_SUB_XFILEPRINT_STRING_A2),qbs_new_txt_len("USING",5)))))||new_error){ -if(qbevent){evnt(22930);if(r)goto S_30843;} -LABEL_PRINTFILELAST:; -if(qbevent){evnt(22931);r=0;} -S_30844:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_XFILEPRINT_STRING_A2),qbs_new_txt_len("USING",5))))||new_error){ -if(qbevent){evnt(22933);if(r)goto S_30844;} -S_30845:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_XFILEPRINT_STRING_E,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(22934);if(r)goto S_30845;} -do{ -*_SUB_XFILEPRINT_LONG_GOTOFPU= 1 ; -if(!qbevent)break;evnt(22934);}while(r); -}else{ -do{ -goto LABEL_FPUJUMP; -if(!qbevent)break;evnt(22934);}while(r); -} -} -S_30851:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(",",1))))||new_error){ -if(qbevent){evnt(22937);if(r)goto S_30851;} -do{ -*_SUB_XFILEPRINT_LONG_USETAB= 1 ; -if(!qbevent)break;evnt(22937);}while(r); -}else{ -do{ -*_SUB_XFILEPRINT_LONG_USETAB= 0 ; -if(!qbevent)break;evnt(22937);}while(r); -} -S_30856:; -if ((-(*_SUB_XFILEPRINT_LONG_LAST== 1 ))||new_error){ -if(qbevent){evnt(22938);if(r)goto S_30856;} -do{ -*_SUB_XFILEPRINT_LONG_NEWLINE= 1 ; -if(!qbevent)break;evnt(22938);}while(r); -}else{ -do{ -*_SUB_XFILEPRINT_LONG_NEWLINE= 0 ; -if(!qbevent)break;evnt(22938);}while(r); -} -do{ -*_SUB_XFILEPRINT_LONG_EXTRASPACE= 0 ; -if(!qbevent)break;evnt(22939);}while(r); -S_30862:; -if ((qbs_cleanup(qbs_tmp_base,_SUB_XFILEPRINT_STRING_E->len))||new_error){ -if(qbevent){evnt(22941);if(r)goto S_30862;} -do{ -qbs_set(_SUB_XFILEPRINT_STRING_EBAK,_SUB_XFILEPRINT_STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22942);}while(r); -do{ -*_SUB_XFILEPRINT_LONG_PNRTNUM= 0 ; -if(!qbevent)break;evnt(22943);}while(r); -LABEL_PRINTFILENUMBER:; -if(qbevent){evnt(22944);r=0;} -do{ -qbs_set(_SUB_XFILEPRINT_STRING_E,FUNC_FIXOPERATIONORDER(_SUB_XFILEPRINT_STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22945);}while(r); -S_30866:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(22946);if(r)goto S_30866;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22946);}while(r); -} -S_30869:; -if ((-(*_SUB_XFILEPRINT_LONG_PNRTNUM== 0 ))||new_error){ -if(qbevent){evnt(22947);if(r)goto S_30869;} -S_30870:; -if ((*_SUB_XFILEPRINT_LONG_LAST)||new_error){ -if(qbevent){evnt(22948);if(r)goto S_30870;} -do{ -qbs_set(_SUB_XFILEPRINT_STRING_L,qbs_add(qbs_add(_SUB_XFILEPRINT_STRING_L,__STRING1_SP),__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22948);}while(r); -}else{ -do{ -qbs_set(_SUB_XFILEPRINT_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(_SUB_XFILEPRINT_STRING_L,__STRING1_SP),__STRING_TLAYOUT),__STRING1_SP2),_SUB_XFILEPRINT_STRING_A2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22948);}while(r); -} -} -do{ -qbs_set(_SUB_XFILEPRINT_STRING_E,FUNC_EVALUATE(_SUB_XFILEPRINT_STRING_E,_SUB_XFILEPRINT_LONG_TYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22950);}while(r); -S_30877:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(22951);if(r)goto S_30877;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22951);}while(r); -} -S_30880:; -if ((-((*_SUB_XFILEPRINT_LONG_TYP&*__LONG_ISSTRING)== 0 ))||new_error){ -if(qbevent){evnt(22952);if(r)goto S_30880;} -do{ -qbs_set(_SUB_XFILEPRINT_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("STR$",4),__STRING1_SP),qbs_new_txt_len("(",1)),__STRING1_SP),_SUB_XFILEPRINT_STRING_EBAK),__STRING1_SP),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22953);}while(r); -do{ -*_SUB_XFILEPRINT_LONG_EXTRASPACE= 1 ; -if(!qbevent)break;evnt(22954);}while(r); -do{ -*_SUB_XFILEPRINT_LONG_PNRTNUM= 1 ; -if(!qbevent)break;evnt(22955);}while(r); -do{ -goto LABEL_PRINTFILENUMBER; -if(!qbevent)break;evnt(22956);}while(r); -} -S_30886:; -if (((*_SUB_XFILEPRINT_LONG_TYP&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(22958);if(r)goto S_30886;} -do{ -qbs_set(_SUB_XFILEPRINT_STRING_E,FUNC_REFER(_SUB_XFILEPRINT_STRING_E,_SUB_XFILEPRINT_LONG_TYP,&(pass3290= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22958);}while(r); -} -S_30889:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(22959);if(r)goto S_30889;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22959);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass3291=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("sub_file_print(tmp_fileno,",26),_SUB_XFILEPRINT_STRING_E),qbs_new_txt_len(",",1)),qbs_str((int32)(*_SUB_XFILEPRINT_LONG_EXTRASPACE))),qbs_new_txt_len(",",1)),qbs_str((int32)(*_SUB_XFILEPRINT_LONG_USETAB))),qbs_new_txt_len(",",1)),qbs_str((int32)(*_SUB_XFILEPRINT_LONG_NEWLINE))),qbs_new_txt_len(");",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22961);}while(r); -}else{ -S_30894:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(",",1))))||new_error){ -if(qbevent){evnt(22963);if(r)goto S_30894;} -do{ -qbs_set(_SUB_XFILEPRINT_STRING_L,qbs_add(qbs_add(_SUB_XFILEPRINT_STRING_L,__STRING1_SP),_SUB_XFILEPRINT_STRING_A2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22963);}while(r); -} -S_30897:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(";",1))))||new_error){ -if(qbevent){evnt(22964);if(r)goto S_30897;} -S_30898:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_right(_SUB_XFILEPRINT_STRING_L, 1 ),qbs_new_txt_len(";",1))))||new_error){ -if(qbevent){evnt(22965);if(r)goto S_30898;} -do{ -qbs_set(_SUB_XFILEPRINT_STRING_L,qbs_add(qbs_add(_SUB_XFILEPRINT_STRING_L,__STRING1_SP),_SUB_XFILEPRINT_STRING_A2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22965);}while(r); -} -} -S_30902:; -if ((*_SUB_XFILEPRINT_LONG_USETAB)||new_error){ -if(qbevent){evnt(22967);if(r)goto S_30902;} -do{ -SUB_WRITEBUFLINE(&(pass3292=*__LONG_MAINTXTBUF),qbs_new_txt_len("sub_file_print(tmp_fileno,nothingstring,0,1,0);",47)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22967);}while(r); -} -} -do{ -SUB_WRITEBUFLINE(&(pass3293=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if (new_error) goto skip",24),_SUB_XFILEPRINT_STRING_U),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22969);}while(r); -do{ -qbs_set(_SUB_XFILEPRINT_STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22971);}while(r); -S_30908:; -if ((*_SUB_XFILEPRINT_LONG_GOTOFPU)||new_error){ -if(qbevent){evnt(22972);if(r)goto S_30908;} -do{ -goto LABEL_FPUJUMP; -if(!qbevent)break;evnt(22972);}while(r); -} -S_30911:; -if ((*_SUB_XFILEPRINT_LONG_LAST)||new_error){ -if(qbevent){evnt(22973);if(r)goto S_30911;} -do{ -goto fornext_exit_3287; -if(!qbevent)break;evnt(22973);}while(r); -} -do{ -goto LABEL_PRINTFILENEXT; -if(!qbevent)break;evnt(22974);}while(r); -} -} -S_30917:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_XFILEPRINT_STRING_E,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(22977);if(r)goto S_30917;} -do{ -qbs_set(_SUB_XFILEPRINT_STRING_E,qbs_add(qbs_add(_SUB_XFILEPRINT_STRING_E,__STRING1_SP),_SUB_XFILEPRINT_STRING_A2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22977);}while(r); -}else{ -do{ -qbs_set(_SUB_XFILEPRINT_STRING_E,_SUB_XFILEPRINT_STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22977);}while(r); -} -LABEL_PRINTFILENEXT:; -if(qbevent){evnt(22978);r=0;} -fornext_continue_3287:; -} -fornext_exit_3287:; -S_30923:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_XFILEPRINT_STRING_E,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(22980);if(r)goto S_30923;} -do{ -qbs_set(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22980);}while(r); -do{ -*_SUB_XFILEPRINT_LONG_LAST= 1 ; -if(!qbevent)break;evnt(22980);}while(r); -do{ -goto LABEL_PRINTFILELAST; -if(!qbevent)break;evnt(22980);}while(r); -} -LABEL_PRINTBLANKLINE:; -if(qbevent){evnt(22981);r=0;} -do{ -SUB_WRITEBUFLINE(&(pass3294=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("skip",4),_SUB_XFILEPRINT_STRING_U),qbs_new_txt_len(":",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22982);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass3295=*__LONG_MAINTXTBUF),qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22983);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass3296=*__LONG_MAINTXTBUF),qbs_new_txt_len("tab_spc_cr_size=1;",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22984);}while(r); -do{ -qbs_set(__STRING_TLAYOUT,_SUB_XFILEPRINT_STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22985);}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free52.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -void SUB_XFILEWRITE(qbs*_SUB_XFILEWRITE_STRING_CA,int32*_SUB_XFILEWRITE_LONG_N){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data53.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -qbs_set(_SUB_XFILEWRITE_STRING_L,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("Write",5)),__STRING1_SP),qbs_new_txt_len("#",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22989);}while(r); -do{ -qbs_set(_SUB_XFILEWRITE_STRING_U,FUNC_STR2(&(pass3298=FUNC_UNIQUENUMBER()))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22990);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass3299=*__LONG_MAINTXTBUF),qbs_new_txt_len("tab_spc_cr_size=2;",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22991);}while(r); -S_30935:; -if ((-(*_SUB_XFILEWRITE_LONG_N== 2 ))||new_error){ -if(qbevent){evnt(22992);if(r)goto S_30935;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected # ...",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22992);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(22992);}while(r); -} -do{ -qbs_set(_SUB_XFILEWRITE_STRING_A3,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22993);}while(r); -do{ -*_SUB_XFILEWRITE_LONG_B= 0 ; -if(!qbevent)break;evnt(22994);}while(r); -S_30941:; -fornext_value3301= 3 ; -fornext_finalvalue3301=*_SUB_XFILEWRITE_LONG_N; -fornext_step3301= 1 ; -if (fornext_step3301<0) fornext_step_negative3301=1; else fornext_step_negative3301=0; -if (new_error) goto fornext_error3301; -goto fornext_entrylabel3301; -while(1){ -fornext_value3301=fornext_step3301+(*_SUB_XFILEWRITE_LONG_I); -fornext_entrylabel3301: -*_SUB_XFILEWRITE_LONG_I=fornext_value3301; -if (fornext_step_negative3301){ -if (fornext_value3301fornext_finalvalue3301) break; -} -fornext_error3301:; -if(qbevent){evnt(22995);if(r)goto S_30941;} -do{ -qbs_set(_SUB_XFILEWRITE_STRING_A2,FUNC_GETELEMENT(_SUB_XFILEWRITE_STRING_CA,_SUB_XFILEWRITE_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(22996);}while(r); -S_30943:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEWRITE_STRING_A2,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(22997);if(r)goto S_30943;} -do{ -*_SUB_XFILEWRITE_LONG_B=*_SUB_XFILEWRITE_LONG_B+ 1 ; -if(!qbevent)break;evnt(22997);}while(r); -} -S_30946:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEWRITE_STRING_A2,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(22998);if(r)goto S_30946;} -do{ -*_SUB_XFILEWRITE_LONG_B=*_SUB_XFILEWRITE_LONG_B- 1 ; -if(!qbevent)break;evnt(22998);}while(r); -} -S_30949:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_XFILEWRITE_STRING_A2,qbs_new_txt_len(",",1)))&(-(*_SUB_XFILEWRITE_LONG_B== 0 ))))||new_error){ -if(qbevent){evnt(22999);if(r)goto S_30949;} -S_30950:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEWRITE_STRING_A3,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(23000);if(r)goto S_30950;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected # ... , ...",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23000);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(23000);}while(r); -} -do{ -goto LABEL_WRITEGOTFN; -if(!qbevent)break;evnt(23001);}while(r); -} -S_30956:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEWRITE_STRING_A3,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(23003);if(r)goto S_30956;} -do{ -qbs_set(_SUB_XFILEWRITE_STRING_A3,_SUB_XFILEWRITE_STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23003);}while(r); -}else{ -do{ -qbs_set(_SUB_XFILEWRITE_STRING_A3,qbs_add(qbs_add(_SUB_XFILEWRITE_STRING_A3,__STRING1_SP),_SUB_XFILEWRITE_STRING_A2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23003);}while(r); -} -fornext_continue_3300:; -} -fornext_exit_3300:; -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected # ... ,",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23005);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(23005);}while(r); -LABEL_WRITEGOTFN:; -if(qbevent){evnt(23006);r=0;} -do{ -qbs_set(_SUB_XFILEWRITE_STRING_E,FUNC_FIXOPERATIONORDER(_SUB_XFILEWRITE_STRING_A3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23007);}while(r); -S_30965:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(23008);if(r)goto S_30965;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(23008);}while(r); -} -do{ -qbs_set(_SUB_XFILEWRITE_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(_SUB_XFILEWRITE_STRING_L,__STRING1_SP2),__STRING_TLAYOUT),__STRING1_SP2),qbs_new_txt_len(",",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23009);}while(r); -do{ -qbs_set(_SUB_XFILEWRITE_STRING_E,FUNC_EVALUATETOTYP(_SUB_XFILEWRITE_STRING_E,&(pass3302= 64 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23010);}while(r); -S_30970:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(23011);if(r)goto S_30970;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(23011);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass3303=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("tab_fileno=tmp_fileno=",22),_SUB_XFILEWRITE_STRING_E),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23012);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass3304=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if (new_error) goto skip",24),_SUB_XFILEWRITE_STRING_U),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23013);}while(r); -do{ -*_SUB_XFILEWRITE_LONG_I=*_SUB_XFILEWRITE_LONG_I+ 1 ; -if(!qbevent)break;evnt(23014);}while(r); -S_30976:; -if ((-(*_SUB_XFILEWRITE_LONG_I>*_SUB_XFILEWRITE_LONG_N))||new_error){ -if(qbevent){evnt(23015);if(r)goto S_30976;} -do{ -SUB_WRITEBUFLINE(&(pass3305=*__LONG_MAINTXTBUF),qbs_new_txt_len("sub_file_print(tmp_fileno,nothingstring,0,0,1);",47)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23016);}while(r); -do{ -goto LABEL_WRITEBLANKLINE; -if(!qbevent)break;evnt(23017);}while(r); -} -do{ -*_SUB_XFILEWRITE_LONG_B= 0 ; -if(!qbevent)break;evnt(23019);}while(r); -do{ -qbs_set(_SUB_XFILEWRITE_STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23020);}while(r); -do{ -*_SUB_XFILEWRITE_LONG_LAST= 0 ; -if(!qbevent)break;evnt(23021);}while(r); -S_30983:; -fornext_value3307=*_SUB_XFILEWRITE_LONG_I; -fornext_finalvalue3307=*_SUB_XFILEWRITE_LONG_N; -fornext_step3307= 1 ; -if (fornext_step3307<0) fornext_step_negative3307=1; else fornext_step_negative3307=0; -if (new_error) goto fornext_error3307; -goto fornext_entrylabel3307; -while(1){ -fornext_value3307=fornext_step3307+(*_SUB_XFILEWRITE_LONG_I); -fornext_entrylabel3307: -*_SUB_XFILEWRITE_LONG_I=fornext_value3307; -if (fornext_step_negative3307){ -if (fornext_value3307fornext_finalvalue3307) break; -} -fornext_error3307:; -if(qbevent){evnt(23022);if(r)goto S_30983;} -do{ -qbs_set(_SUB_XFILEWRITE_STRING_A2,FUNC_GETELEMENT(_SUB_XFILEWRITE_STRING_CA,_SUB_XFILEWRITE_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23023);}while(r); -S_30985:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEWRITE_STRING_A2,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(23024);if(r)goto S_30985;} -do{ -*_SUB_XFILEWRITE_LONG_B=*_SUB_XFILEWRITE_LONG_B+ 1 ; -if(!qbevent)break;evnt(23024);}while(r); -} -S_30988:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEWRITE_STRING_A2,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(23025);if(r)goto S_30988;} -do{ -*_SUB_XFILEWRITE_LONG_B=*_SUB_XFILEWRITE_LONG_B- 1 ; -if(!qbevent)break;evnt(23025);}while(r); -} -S_30991:; -if ((-(*_SUB_XFILEWRITE_LONG_B== 0 ))||new_error){ -if(qbevent){evnt(23026);if(r)goto S_30991;} -S_30992:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEWRITE_STRING_A2,qbs_new_txt_len(",",1))))||new_error){ -if(qbevent){evnt(23027);if(r)goto S_30992;} -LABEL_WRITEFILELAST:; -if(qbevent){evnt(23028);r=0;} -S_30993:; -if ((-(*_SUB_XFILEWRITE_LONG_LAST== 1 ))||new_error){ -if(qbevent){evnt(23029);if(r)goto S_30993;} -do{ -*_SUB_XFILEWRITE_LONG_NEWLINE= 1 ; -if(!qbevent)break;evnt(23029);}while(r); -}else{ -do{ -*_SUB_XFILEWRITE_LONG_NEWLINE= 0 ; -if(!qbevent)break;evnt(23029);}while(r); -} -do{ -qbs_set(_SUB_XFILEWRITE_STRING_EBAK,_SUB_XFILEWRITE_STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23030);}while(r); -do{ -*_SUB_XFILEWRITE_LONG_REEVALED= 0 ; -if(!qbevent)break;evnt(23031);}while(r); -LABEL_WRITEFILENUMBER:; -if(qbevent){evnt(23032);r=0;} -do{ -qbs_set(_SUB_XFILEWRITE_STRING_E,FUNC_FIXOPERATIONORDER(_SUB_XFILEWRITE_STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23033);}while(r); -S_31001:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(23034);if(r)goto S_31001;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(23034);}while(r); -} -S_31004:; -if ((-(*_SUB_XFILEWRITE_LONG_REEVALED== 0 ))||new_error){ -if(qbevent){evnt(23035);if(r)goto S_31004;} -do{ -qbs_set(_SUB_XFILEWRITE_STRING_L,qbs_add(qbs_add(_SUB_XFILEWRITE_STRING_L,__STRING1_SP),__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23036);}while(r); -S_31006:; -if ((-(*_SUB_XFILEWRITE_LONG_LAST== 0 ))||new_error){ -if(qbevent){evnt(23037);if(r)goto S_31006;} -do{ -qbs_set(_SUB_XFILEWRITE_STRING_L,qbs_add(qbs_add(_SUB_XFILEWRITE_STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23037);}while(r); -} -} -do{ -qbs_set(_SUB_XFILEWRITE_STRING_E,FUNC_EVALUATE(_SUB_XFILEWRITE_STRING_E,_SUB_XFILEWRITE_LONG_TYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23039);}while(r); -S_31011:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(23040);if(r)goto S_31011;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(23040);}while(r); -} -S_31014:; -if ((-(*_SUB_XFILEWRITE_LONG_REEVALED== 0 ))||new_error){ -if(qbevent){evnt(23041);if(r)goto S_31014;} -S_31015:; -if ((-((*_SUB_XFILEWRITE_LONG_TYP&*__LONG_ISSTRING)== 0 ))||new_error){ -if(qbevent){evnt(23042);if(r)goto S_31015;} -do{ -qbs_set(_SUB_XFILEWRITE_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("LTRIM$",6),__STRING1_SP),qbs_new_txt_len("(",1)),__STRING1_SP),qbs_new_txt_len("STR$",4)),__STRING1_SP),qbs_new_txt_len("(",1)),__STRING1_SP),_SUB_XFILEWRITE_STRING_EBAK),__STRING1_SP),qbs_new_txt_len(")",1)),__STRING1_SP),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23043);}while(r); -S_31017:; -if ((-(*_SUB_XFILEWRITE_LONG_LAST== 0 ))||new_error){ -if(qbevent){evnt(23044);if(r)goto S_31017;} -do{ -qbs_set(_SUB_XFILEWRITE_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_XFILEWRITE_STRING_E,__STRING1_SP),qbs_new_txt_len("+",1)),__STRING1_SP),func_chr( 34 )),qbs_new_txt_len(",",1)),func_chr( 34 )),qbs_new_txt_len(",1",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23044);}while(r); -} -do{ -*_SUB_XFILEWRITE_LONG_REEVALED= 1 ; -if(!qbevent)break;evnt(23045);}while(r); -do{ -goto LABEL_WRITEFILENUMBER; -if(!qbevent)break;evnt(23046);}while(r); -}else{ -do{ -qbs_set(_SUB_XFILEWRITE_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(func_chr( 34 ),qbs_new_txt_len("\\042",4)),func_chr( 34 )),qbs_new_txt_len(",1",2)),__STRING1_SP),qbs_new_txt_len("+",1)),__STRING1_SP),_SUB_XFILEWRITE_STRING_EBAK),__STRING1_SP),qbs_new_txt_len("+",1)),__STRING1_SP),func_chr( 34 )),qbs_new_txt_len("\\042",4)),func_chr( 34 )),qbs_new_txt_len(",1",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23048);}while(r); -S_31024:; -if ((-(*_SUB_XFILEWRITE_LONG_LAST== 0 ))||new_error){ -if(qbevent){evnt(23049);if(r)goto S_31024;} -do{ -qbs_set(_SUB_XFILEWRITE_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_XFILEWRITE_STRING_E,__STRING1_SP),qbs_new_txt_len("+",1)),__STRING1_SP),func_chr( 34 )),qbs_new_txt_len(",",1)),func_chr( 34 )),qbs_new_txt_len(",1",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23049);}while(r); -} -do{ -*_SUB_XFILEWRITE_LONG_REEVALED= 1 ; -if(!qbevent)break;evnt(23050);}while(r); -do{ -goto LABEL_WRITEFILENUMBER; -if(!qbevent)break;evnt(23051);}while(r); -} -} -S_31031:; -if (((*_SUB_XFILEWRITE_LONG_TYP&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(23054);if(r)goto S_31031;} -do{ -qbs_set(_SUB_XFILEWRITE_STRING_E,FUNC_REFER(_SUB_XFILEWRITE_STRING_E,_SUB_XFILEWRITE_LONG_TYP,&(pass3308= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23054);}while(r); -} -S_31034:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(23055);if(r)goto S_31034;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(23055);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass3309=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("sub_file_print(tmp_fileno,",26),_SUB_XFILEWRITE_STRING_E),qbs_new_txt_len(",0,0,",5)),qbs_str((int32)(*_SUB_XFILEWRITE_LONG_NEWLINE))),qbs_new_txt_len(");",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23057);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass3310=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if (new_error) goto skip",24),_SUB_XFILEWRITE_STRING_U),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23058);}while(r); -do{ -qbs_set(_SUB_XFILEWRITE_STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23059);}while(r); -S_31040:; -if ((*_SUB_XFILEWRITE_LONG_LAST)||new_error){ -if(qbevent){evnt(23060);if(r)goto S_31040;} -do{ -goto fornext_exit_3306; -if(!qbevent)break;evnt(23060);}while(r); -} -do{ -goto LABEL_WRITEFILENEXT; -if(!qbevent)break;evnt(23061);}while(r); -} -} -S_31046:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_XFILEWRITE_STRING_E,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(23064);if(r)goto S_31046;} -do{ -qbs_set(_SUB_XFILEWRITE_STRING_E,qbs_add(qbs_add(_SUB_XFILEWRITE_STRING_E,__STRING1_SP),_SUB_XFILEWRITE_STRING_A2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23064);}while(r); -}else{ -do{ -qbs_set(_SUB_XFILEWRITE_STRING_E,_SUB_XFILEWRITE_STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23064);}while(r); -} -LABEL_WRITEFILENEXT:; -if(qbevent){evnt(23065);r=0;} -fornext_continue_3306:; -} -fornext_exit_3306:; -S_31052:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_XFILEWRITE_STRING_E,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(23067);if(r)goto S_31052;} -do{ -qbs_set(_SUB_XFILEWRITE_STRING_A2,qbs_new_txt_len(",",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23067);}while(r); -do{ -*_SUB_XFILEWRITE_LONG_LAST= 1 ; -if(!qbevent)break;evnt(23067);}while(r); -do{ -goto LABEL_WRITEFILELAST; -if(!qbevent)break;evnt(23067);}while(r); -} -LABEL_WRITEBLANKLINE:; -if(qbevent){evnt(23068);r=0;} -do{ -SUB_WRITEBUFLINE(&(pass3311=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("skip",4),_SUB_XFILEWRITE_STRING_U),qbs_new_txt_len(":",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23070);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass3312=*__LONG_MAINTXTBUF),qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23071);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass3313=*__LONG_MAINTXTBUF),qbs_new_txt_len("tab_spc_cr_size=1;",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23072);}while(r); -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(23073);}while(r); -S_31061:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(23073);if(r)goto S_31061;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),_SUB_XFILEWRITE_STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23073);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,_SUB_XFILEWRITE_STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23073);}while(r); -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free53.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -void SUB_XGOSUB(qbs*_SUB_XGOSUB_STRING_CA){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data54.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -qbs_set(_SUB_XGOSUB_STRING_A2,FUNC_GETELEMENT(_SUB_XGOSUB_STRING_CA,&(pass3316= 2 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23077);}while(r); -S_31067:; -if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(_SUB_XGOSUB_STRING_A2)== 0 )))||new_error){ -if(qbevent){evnt(23078);if(r)goto S_31067;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Invalid label",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23078);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(23078);}while(r); -} -do{ -*_SUB_XGOSUB_LONG_V=FUNC_HASHFIND(_SUB_XGOSUB_STRING_A2,&(pass3317= 2 ),_SUB_XGOSUB_LONG_IGNORE,_SUB_XGOSUB_LONG_R); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23080);}while(r); -do{ -*_SUB_XGOSUB_LONG_X= 1 ; -if(!qbevent)break;evnt(23081);}while(r); -LABEL_LABCHK200:; -if(qbevent){evnt(23082);r=0;} -S_31073:; -if ((*_SUB_XGOSUB_LONG_V)||new_error){ -if(qbevent){evnt(23083);if(r)goto S_31073;} -do{ -*_SUB_XGOSUB_LONG_S=*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*_SUB_XGOSUB_LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)); -if(!qbevent)break;evnt(23084);}while(r); -S_31075:; -if (((-(*_SUB_XGOSUB_LONG_S==*__LONG_SUBFUNCN))|(-(*_SUB_XGOSUB_LONG_S== -1 )))||new_error){ -if(qbevent){evnt(23085);if(r)goto S_31075;} -S_31076:; -if ((-(*_SUB_XGOSUB_LONG_S== -1 ))||new_error){ -if(qbevent){evnt(23086);if(r)goto S_31076;} -do{ -*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*_SUB_XGOSUB_LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257))=*__LONG_SUBFUNCN; -if(!qbevent)break;evnt(23086);}while(r); -} -do{ -*_SUB_XGOSUB_LONG_X= 0 ; -if(!qbevent)break;evnt(23087);}while(r); -do{ -qbs_set(__STRING_TLAYOUT,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+((array_check((*_SUB_XGOSUB_LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1)),256,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23088);}while(r); -}else{ -S_31082:; -if ((-(*_SUB_XGOSUB_LONG_V== 2 ))||new_error){ -if(qbevent){evnt(23090);if(r)goto S_31082;} -do{ -*_SUB_XGOSUB_LONG_V=FUNC_HASHFINDCONT(_SUB_XGOSUB_LONG_IGNORE,_SUB_XGOSUB_LONG_R); -if(!qbevent)break;evnt(23090);}while(r); -do{ -goto LABEL_LABCHK200; -if(!qbevent)break;evnt(23090);}while(r); -} -} -} -S_31088:; -if ((*_SUB_XGOSUB_LONG_X)||new_error){ -if(qbevent){evnt(23093);if(r)goto S_31088;} -do{ -*__LONG_NLABELS=*__LONG_NLABELS+ 1 ; -if(!qbevent)break;evnt(23095);}while(r); -S_31090:; -if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||new_error){ -if(qbevent){evnt(23095);if(r)goto S_31090;} -do{ -*__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ; -if(!qbevent)break;evnt(23095);}while(r); -do{ +} +if(!qbevent)break;evnt(21724);}while(r); +do{ +*_FUNC_SEPERATEARGS_LONG_N=FUNC_NUMELEMENTS(_FUNC_SEPERATEARGS_STRING_CA); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21726);}while(r); +do{ +*_FUNC_SEPERATEARGS_LONG_I= 1 ; +if(!qbevent)break;evnt(21727);}while(r); +do{ +*_FUNC_SEPERATEARGS_LONG_LEVEL= 0 ; +if(!qbevent)break;evnt(21729);}while(r); +do{ +*_FUNC_SEPERATEARGS_LONG_EXPRESSION= 0 ; +if(!qbevent)break;evnt(21730);}while(r); +S_29249:; +fornext_value3112= 1 ; +fornext_finalvalue3112=*_FUNC_SEPERATEARGS_LONG_LASTT; +fornext_step3112= 1 ; +if (fornext_step3112<0) fornext_step_negative3112=1; else fornext_step_negative3112=0; +if (new_error) goto fornext_error3112; +goto fornext_entrylabel3112; +while(1){ +fornext_value3112=fornext_step3112+(*_FUNC_SEPERATEARGS_LONG_X); +fornext_entrylabel3112: +*_FUNC_SEPERATEARGS_LONG_X=fornext_value3112; +if (fornext_step_negative3112){ +if (fornext_value3112fornext_finalvalue3112) break; +} +fornext_error3112:; +if(qbevent){evnt(21731);if(r)goto S_29249;} +LABEL_CONTINUESCAN:; +if(qbevent){evnt(21733);r=0;} +S_29250:; +if ((-(((int16*)(__ARRAY_INTEGER_DITCHLEV[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_INTEGER_DITCHLEV[4],__ARRAY_INTEGER_DITCHLEV[5])]<*_FUNC_SEPERATEARGS_LONG_LEVEL))||new_error){ +if(qbevent){evnt(21735);if(r)goto S_29250;} +do{ +*_FUNC_SEPERATEARGS_LONG_LEVEL=((int16*)(__ARRAY_INTEGER_DITCHLEV[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_INTEGER_DITCHLEV[4],__ARRAY_INTEGER_DITCHLEV[5])]; +if(!qbevent)break;evnt(21737);}while(r); +} +S_29253:; +if ((-(((int16*)(__ARRAY_INTEGER_ENTRYLEV[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_INTEGER_ENTRYLEV[4],__ARRAY_INTEGER_ENTRYLEV[5])]<=*_FUNC_SEPERATEARGS_LONG_LEVEL))||new_error){ +if(qbevent){evnt(21740);if(r)goto S_29253;} +S_29254:; +if ((-(((int16*)(__ARRAY_INTEGER_ENTRYLEV[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_INTEGER_ENTRYLEV[4],__ARRAY_INTEGER_ENTRYLEV[5])]<((int16*)(__ARRAY_INTEGER_LEV[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_INTEGER_LEV[4],__ARRAY_INTEGER_LEV[5])]))||new_error){ +if(qbevent){evnt(21743);if(r)goto S_29254;} +do{ +*_FUNC_SEPERATEARGS_LONG_OPTIONAL= 1 ; +if(!qbevent)break;evnt(21744);}while(r); +S_29256:; +if ((-(*_FUNC_SEPERATEARGS_LONG_LEVEL>((int16*)(__ARRAY_INTEGER_ENTRYLEV[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_INTEGER_ENTRYLEV[4],__ARRAY_INTEGER_ENTRYLEV[5])]))||new_error){ +if(qbevent){evnt(21745);if(r)goto S_29256;} +do{ +*_FUNC_SEPERATEARGS_LONG_OPTIONAL= 0 ; +if(!qbevent)break;evnt(21745);}while(r); +} +}else{ +do{ +*_FUNC_SEPERATEARGS_LONG_OPTIONAL= 0 ; +if(!qbevent)break;evnt(21748);}while(r); +} +do{ +*_FUNC_SEPERATEARGS_LONG_T=((int16*)(__ARRAY_INTEGER_T[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_INTEGER_T[4],__ARRAY_INTEGER_T[5])]; +if(!qbevent)break;evnt(21751);}while(r); +S_29263:; +if ((-(*_FUNC_SEPERATEARGS_LONG_T== 0 ))||new_error){ +if(qbevent){evnt(21753);if(r)goto S_29263;} +S_29264:; +if ((*_FUNC_SEPERATEARGS_LONG_EXPRESSION)||new_error){ +if(qbevent){evnt(21754);if(r)goto S_29264;} +do{ +goto LABEL_BACKTRACK; +if(!qbevent)break;evnt(21757);}while(r); +} +S_29267:; +if ((*_FUNC_SEPERATEARGS_LONG_OPTIONAL)||new_error){ +if(qbevent){evnt(21760);if(r)goto S_29267;} +do{ +*_FUNC_SEPERATEARGS_LONG_BRANCHES=*_FUNC_SEPERATEARGS_LONG_BRANCHES+ 1 ; +if(!qbevent)break;evnt(21761);}while(r); +do{ +tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_BRANCHES)-_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHFORMATPOS[4],_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHFORMATPOS[5]); +if (!new_error) ((int32*)(_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHFORMATPOS[0]))[tmp_long]=*_FUNC_SEPERATEARGS_LONG_X; +if(!qbevent)break;evnt(21762);}while(r); +do{ +tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_BRANCHES)-_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN[4],_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN[5]); +if (!new_error) ((int32*)(_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN[0]))[tmp_long]= 1 ; +if(!qbevent)break;evnt(21763);}while(r); +do{ +tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_BRANCHES)-_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHINPUTPOS[4],_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHINPUTPOS[5]); +if (!new_error) ((int32*)(_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHINPUTPOS[0]))[tmp_long]=*_FUNC_SEPERATEARGS_LONG_I; +if(!qbevent)break;evnt(21764);}while(r); +do{ +tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_BRANCHES)-_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHWITHEXPRESSION[4],_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHWITHEXPRESSION[5]); +if (!new_error) ((int32*)(_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHWITHEXPRESSION[0]))[tmp_long]= 0 ; +if(!qbevent)break;evnt(21765);}while(r); +do{ +tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_BRANCHES)-_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHLEVEL[4],_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHLEVEL[5]); +if (!new_error) ((int32*)(_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHLEVEL[0]))[tmp_long]=*_FUNC_SEPERATEARGS_LONG_LEVEL; +if(!qbevent)break;evnt(21766);}while(r); +do{ +*_FUNC_SEPERATEARGS_LONG_LEVEL=((int16*)(__ARRAY_INTEGER_LEV[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_INTEGER_LEV[4],__ARRAY_INTEGER_LEV[5])]; +if(!qbevent)break;evnt(21767);}while(r); +} +do{ +*_FUNC_SEPERATEARGS_LONG_EXPRESSION=*_FUNC_SEPERATEARGS_LONG_X; +if(!qbevent)break;evnt(21769);}while(r); +} +S_29278:; +if ((*_FUNC_SEPERATEARGS_LONG_T)||new_error){ +if(qbevent){evnt(21772);if(r)goto S_29278;} +do{ +*_FUNC_SEPERATEARGS_LONG_CURRENTLEV=*_FUNC_SEPERATEARGS_LONG_LEVEL; +if(!qbevent)break;evnt(21774);}while(r); +S_29280:; +if ((*_FUNC_SEPERATEARGS_LONG_OPTIONAL)||new_error){ +if(qbevent){evnt(21777);if(r)goto S_29280;} +do{ +*_FUNC_SEPERATEARGS_LONG_BRANCHES=*_FUNC_SEPERATEARGS_LONG_BRANCHES+ 1 ; +if(!qbevent)break;evnt(21778);}while(r); +do{ +tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_BRANCHES)-_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHFORMATPOS[4],_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHFORMATPOS[5]); +if (!new_error) ((int32*)(_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHFORMATPOS[0]))[tmp_long]=*_FUNC_SEPERATEARGS_LONG_X; +if(!qbevent)break;evnt(21779);}while(r); +do{ +tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_BRANCHES)-_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN[4],_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN[5]); +if (!new_error) ((int32*)(_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN[0]))[tmp_long]= 1 ; +if(!qbevent)break;evnt(21780);}while(r); +do{ +tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_BRANCHES)-_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHINPUTPOS[4],_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHINPUTPOS[5]); +if (!new_error) ((int32*)(_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHINPUTPOS[0]))[tmp_long]=*_FUNC_SEPERATEARGS_LONG_I; +if(!qbevent)break;evnt(21781);}while(r); +do{ +tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_BRANCHES)-_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHWITHEXPRESSION[4],_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHWITHEXPRESSION[5]); +if (!new_error) ((int32*)(_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHWITHEXPRESSION[0]))[tmp_long]=*_FUNC_SEPERATEARGS_LONG_EXPRESSION; +if(!qbevent)break;evnt(21782);}while(r); +do{ +tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_BRANCHES)-_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHLEVEL[4],_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHLEVEL[5]); +if (!new_error) ((int32*)(_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHLEVEL[0]))[tmp_long]=*_FUNC_SEPERATEARGS_LONG_LEVEL; +if(!qbevent)break;evnt(21783);}while(r); +} +do{ +*_FUNC_SEPERATEARGS_LONG_I1=*_FUNC_SEPERATEARGS_LONG_I; +if(!qbevent)break;evnt(21787);}while(r); +do{ +*_FUNC_SEPERATEARGS_LONG_I2=*_FUNC_SEPERATEARGS_LONG_I; +if(!qbevent)break;evnt(21787);}while(r); +S_29290:; +if ((*_FUNC_SEPERATEARGS_LONG_EXPRESSION)||new_error){ +if(qbevent){evnt(21788);if(r)goto S_29290;} +do{ +*_FUNC_SEPERATEARGS_LONG_I2=*_FUNC_SEPERATEARGS_LONG_N; +if(!qbevent)break;evnt(21788);}while(r); +} +do{ +*_FUNC_SEPERATEARGS_LONG_OUTOFRANGE= 2147483647 ; +if(!qbevent)break;evnt(21792);}while(r); +do{ +*_FUNC_SEPERATEARGS_LONG_POSITION=*_FUNC_SEPERATEARGS_LONG_OUTOFRANGE; +if(!qbevent)break;evnt(21793);}while(r); +do{ +*_FUNC_SEPERATEARGS_LONG_WHICH= 0 ; +if(!qbevent)break;evnt(21794);}while(r); +do{ +*_FUNC_SEPERATEARGS_LONG_REMOVEPREFIX= 0 ; +if(!qbevent)break;evnt(21795);}while(r); +S_29297:; +if ((-(*_FUNC_SEPERATEARGS_LONG_I<=*_FUNC_SEPERATEARGS_LONG_N))||new_error){ +if(qbevent){evnt(21796);if(r)goto S_29297;} +S_29298:; +fornext_value3114= 1 ; +fornext_finalvalue3114=*_FUNC_SEPERATEARGS_LONG_T; +fornext_step3114= 1 ; +if (fornext_step3114<0) fornext_step_negative3114=1; else fornext_step_negative3114=0; +if (new_error) goto fornext_error3114; +goto fornext_entrylabel3114; +while(1){ +fornext_value3114=fornext_step3114+(*_FUNC_SEPERATEARGS_LONG_O); +fornext_entrylabel3114: +*_FUNC_SEPERATEARGS_LONG_O=fornext_value3114; +if (fornext_step_negative3114){ +if (fornext_value3114fornext_finalvalue3114) break; +} +fornext_error3114:; +if(qbevent){evnt(21797);if(r)goto S_29298;} +do{ +*_FUNC_SEPERATEARGS_LONG_WORDS=((int16*)(__ARRAY_INTEGER_OPTWORDS[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_INTEGER_OPTWORDS[8],__ARRAY_INTEGER_OPTWORDS[9])+array_check((*_FUNC_SEPERATEARGS_LONG_O)-__ARRAY_INTEGER_OPTWORDS[4],__ARRAY_INTEGER_OPTWORDS[5])*__ARRAY_INTEGER_OPTWORDS[6]]; +if(!qbevent)break;evnt(21798);}while(r); +do{ +*_FUNC_SEPERATEARGS_LONG_B= 0 ; +if(!qbevent)break;evnt(21799);}while(r); +S_29301:; +fornext_value3116=*_FUNC_SEPERATEARGS_LONG_I1; +fornext_finalvalue3116=*_FUNC_SEPERATEARGS_LONG_I2; +fornext_step3116= 1 ; +if (fornext_step3116<0) fornext_step_negative3116=1; else fornext_step_negative3116=0; +if (new_error) goto fornext_error3116; +goto fornext_entrylabel3116; +while(1){ +fornext_value3116=fornext_step3116+(*_FUNC_SEPERATEARGS_LONG_I3); +fornext_entrylabel3116: +*_FUNC_SEPERATEARGS_LONG_I3=fornext_value3116; +if (fornext_step_negative3116){ +if (fornext_value3116fornext_finalvalue3116) break; +} +fornext_error3116:; +if(qbevent){evnt(21800);if(r)goto S_29301;} +S_29302:; +if ((-((*_FUNC_SEPERATEARGS_LONG_I3+*_FUNC_SEPERATEARGS_LONG_WORDS- 1 )<=*_FUNC_SEPERATEARGS_LONG_N))||new_error){ +if(qbevent){evnt(21801);if(r)goto S_29302;} +do{ +qbs_set(_FUNC_SEPERATEARGS_STRING_C,FUNC_GETELEMENT(_FUNC_SEPERATEARGS_STRING_A,_FUNC_SEPERATEARGS_LONG_I3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21802);}while(r); +S_29304:; +if ((-(*_FUNC_SEPERATEARGS_LONG_B== 0 ))||new_error){ +if(qbevent){evnt(21803);if(r)goto S_29304;} +S_29305:; +fornext_value3118= 2 ; +fornext_finalvalue3118=*_FUNC_SEPERATEARGS_LONG_WORDS; +fornext_step3118= 1 ; +if (fornext_step3118<0) fornext_step_negative3118=1; else fornext_step_negative3118=0; +if (new_error) goto fornext_error3118; +goto fornext_entrylabel3118; +while(1){ +fornext_value3118=fornext_step3118+(*_FUNC_SEPERATEARGS_LONG_W); +fornext_entrylabel3118: +*_FUNC_SEPERATEARGS_LONG_W=fornext_value3118; +if (fornext_step_negative3118){ +if (fornext_value3118fornext_finalvalue3118) break; +} +fornext_error3118:; +if(qbevent){evnt(21805);if(r)goto S_29305;} +do{ +qbs_set(_FUNC_SEPERATEARGS_STRING_C,qbs_add(qbs_add(_FUNC_SEPERATEARGS_STRING_C,qbs_new_txt_len(" ",1)),FUNC_GETELEMENT(_FUNC_SEPERATEARGS_STRING_A,&(pass3119=*_FUNC_SEPERATEARGS_LONG_I3+*_FUNC_SEPERATEARGS_LONG_W- 1 )))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21806);}while(r); +fornext_continue_3117:; +} +fornext_exit_3117:; +do{ +*_FUNC_SEPERATEARGS_LONG_NOPREFIXMATCH=(qbs_equal(qbs_left(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_OPT[0]))[(array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_STRING256_OPT[8],__ARRAY_STRING256_OPT[9])+array_check((*_FUNC_SEPERATEARGS_LONG_O)-__ARRAY_STRING256_OPT[4],__ARRAY_STRING256_OPT[5])*__ARRAY_STRING256_OPT[6])*256],256,1), 1 ),qbs_new_txt_len("_",1)))&(-(*__LONG_QB64PREFIX_SET== 1 ))&(qbs_equal(_FUNC_SEPERATEARGS_STRING_C,qbs_ucase(func_mid(qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_OPT[0]))[(array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_STRING256_OPT[8],__ARRAY_STRING256_OPT[9])+array_check((*_FUNC_SEPERATEARGS_LONG_O)-__ARRAY_STRING256_OPT[4],__ARRAY_STRING256_OPT[5])*__ARRAY_STRING256_OPT[6])*256],256,1)), 2 ,NULL,0)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21809);}while(r); +S_29309:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_SEPERATEARGS_STRING_C,qbs_ucase(qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_OPT[0]))[(array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_STRING256_OPT[8],__ARRAY_STRING256_OPT[9])+array_check((*_FUNC_SEPERATEARGS_LONG_O)-__ARRAY_STRING256_OPT[4],__ARRAY_STRING256_OPT[5])*__ARRAY_STRING256_OPT[6])*256],256,1)))))|*_FUNC_SEPERATEARGS_LONG_NOPREFIXMATCH))||new_error){ +if(qbevent){evnt(21810);if(r)goto S_29309;} +S_29310:; +if ((-(*_FUNC_SEPERATEARGS_LONG_I3<*_FUNC_SEPERATEARGS_LONG_POSITION))||new_error){ +if(qbevent){evnt(21812);if(r)goto S_29310;} +do{ +*_FUNC_SEPERATEARGS_LONG_POSITION=*_FUNC_SEPERATEARGS_LONG_I3; +if(!qbevent)break;evnt(21813);}while(r); +do{ +*_FUNC_SEPERATEARGS_LONG_WHICH=*_FUNC_SEPERATEARGS_LONG_O; +if(!qbevent)break;evnt(21814);}while(r); +S_29313:; +if ((*_FUNC_SEPERATEARGS_LONG_NOPREFIXMATCH)||new_error){ +if(qbevent){evnt(21815);if(r)goto S_29313;} +do{ +*_FUNC_SEPERATEARGS_LONG_REMOVEPREFIX= 1 ; +if(!qbevent)break;evnt(21815);}while(r); +} +do{ +*_FUNC_SEPERATEARGS_LONG_BVALUE=*_FUNC_SEPERATEARGS_LONG_B; +if(!qbevent)break;evnt(21816);}while(r); +do{ +goto fornext_exit_3115; +if(!qbevent)break;evnt(21817);}while(r); +} +} +} +S_29321:; +if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(_FUNC_SEPERATEARGS_STRING_C)== 44 ))&(-(*_FUNC_SEPERATEARGS_LONG_B== 0 ))))||new_error){ +if(qbevent){evnt(21822);if(r)goto S_29321;} +do{ +goto fornext_exit_3115; +if(!qbevent)break;evnt(21823);}while(r); +} +S_29324:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_SEPERATEARGS_STRING_C)== 40 )))||new_error){ +if(qbevent){evnt(21826);if(r)goto S_29324;} +do{ +*_FUNC_SEPERATEARGS_LONG_B=*_FUNC_SEPERATEARGS_LONG_B+ 1 ; +if(!qbevent)break;evnt(21827);}while(r); +} +S_29327:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_SEPERATEARGS_STRING_C)== 41 )))||new_error){ +if(qbevent){evnt(21829);if(r)goto S_29327;} +do{ +*_FUNC_SEPERATEARGS_LONG_B=*_FUNC_SEPERATEARGS_LONG_B- 1 ; +if(!qbevent)break;evnt(21830);}while(r); +S_29329:; +if ((-(*_FUNC_SEPERATEARGS_LONG_B== -1 ))||new_error){ +if(qbevent){evnt(21831);if(r)goto S_29329;} +do{ +goto fornext_exit_3115; +if(!qbevent)break;evnt(21831);}while(r); +} +} +} +fornext_continue_3115:; +} +fornext_exit_3115:; +fornext_continue_3113:; +} +fornext_exit_3113:; +} +S_29337:; +if ((-(*_FUNC_SEPERATEARGS_LONG_POSITION!=*_FUNC_SEPERATEARGS_LONG_OUTOFRANGE))||new_error){ +if(qbevent){evnt(21839);if(r)goto S_29337;} +do{ +*_FUNC_SEPERATEARGS_LONG_LEVEL=((int16*)(__ARRAY_INTEGER_LEV[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_INTEGER_LEV[4],__ARRAY_INTEGER_LEV[5])]; +if(!qbevent)break;evnt(21841);}while(r); +S_29339:; +if ((*_FUNC_SEPERATEARGS_LONG_EXPRESSION)||new_error){ +if(qbevent){evnt(21842);if(r)goto S_29339;} +S_29340:; +if (((-(*_FUNC_SEPERATEARGS_LONG_POSITION>*_FUNC_SEPERATEARGS_LONG_I))&(-(*_FUNC_SEPERATEARGS_LONG_BVALUE== 0 )))||new_error){ +if(qbevent){evnt(21845);if(r)goto S_29340;} +do{ +tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_EXPRESSION)-__ARRAY_STRING_SEPARGS[4],__ARRAY_STRING_SEPARGS[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS[0]))[tmp_long])),FUNC_GETELEMENTS(_FUNC_SEPERATEARGS_STRING_CA,_FUNC_SEPERATEARGS_LONG_I,&(pass3120=*_FUNC_SEPERATEARGS_LONG_POSITION- 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21847);}while(r); +do{ +*_FUNC_SEPERATEARGS_LONG_EXPRESSION= 0 ; +if(!qbevent)break;evnt(21848);}while(r); +do{ +*_FUNC_SEPERATEARGS_LONG_I=*_FUNC_SEPERATEARGS_LONG_POSITION; +if(!qbevent)break;evnt(21849);}while(r); +}else{ +do{ +goto LABEL_OPTCHECKBACKTRACK; +if(!qbevent)break;evnt(21853);}while(r); +} +} +do{ +*_FUNC_SEPERATEARGS_LONG_I=*_FUNC_SEPERATEARGS_LONG_I+((int16*)(__ARRAY_INTEGER_OPTWORDS[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_INTEGER_OPTWORDS[8],__ARRAY_INTEGER_OPTWORDS[9])+array_check((*_FUNC_SEPERATEARGS_LONG_WHICH)-__ARRAY_INTEGER_OPTWORDS[4],__ARRAY_INTEGER_OPTWORDS[5])*__ARRAY_INTEGER_OPTWORDS[6]]; +if(!qbevent)break;evnt(21857);}while(r); +do{ +tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_STRING_SEPARGSLAYOUT[4],__ARRAY_STRING_SEPARGSLAYOUT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT[0]))[tmp_long])),qbs_add(func_chr(((int32)(qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_OPT[0]))[(array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_STRING256_OPT[8],__ARRAY_STRING256_OPT[9])+array_check((*_FUNC_SEPERATEARGS_LONG_WHICH)-__ARRAY_STRING256_OPT[4],__ARRAY_STRING256_OPT[5])*__ARRAY_STRING256_OPT[6])*256],256,1)))->len)-*_FUNC_SEPERATEARGS_LONG_REMOVEPREFIX),FUNC_SCASE(func_mid(qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_OPT[0]))[(array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_STRING256_OPT[8],__ARRAY_STRING256_OPT[9])+array_check((*_FUNC_SEPERATEARGS_LONG_WHICH)-__ARRAY_STRING256_OPT[4],__ARRAY_STRING256_OPT[5])*__ARRAY_STRING256_OPT[6])*256],256,1)),*_FUNC_SEPERATEARGS_LONG_REMOVEPREFIX+ 1 ,NULL,0)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21858);}while(r); +do{ +tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_STRING_SEPARGS[4],__ARRAY_STRING_SEPARGS[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS[0]))[tmp_long])),qbs_add(func_chr( 0 ),FUNC_STR2(_FUNC_SEPERATEARGS_LONG_WHICH))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21859);}while(r); +}else{ +LABEL_OPTCHECKBACKTRACK:; +if(qbevent){evnt(21863);r=0;} +S_29352:; +if ((-(((int16*)(__ARRAY_INTEGER_LEV[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_INTEGER_LEV[4],__ARRAY_INTEGER_LEV[5])]>((int16*)(__ARRAY_INTEGER_ENTRYLEV[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_INTEGER_ENTRYLEV[4],__ARRAY_INTEGER_ENTRYLEV[5])]))||new_error){ +if(qbevent){evnt(21865);if(r)goto S_29352;} +do{ +tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_BRANCHES)-_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN[4],_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN[5]); +if (!new_error) ((int32*)(_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN[0]))[tmp_long]= 0 ; +if(!qbevent)break;evnt(21868);}while(r); +do{ +*_FUNC_SEPERATEARGS_LONG_LEVEL=*_FUNC_SEPERATEARGS_LONG_CURRENTLEV; +if(!qbevent)break;evnt(21869);}while(r); +}else{ +LABEL_BACKTRACK:; +if(qbevent){evnt(21871);r=0;} +S_29356:; +fornext_value3122=*_FUNC_SEPERATEARGS_LONG_BRANCHES; +fornext_finalvalue3122= 1 ; +fornext_step3122= -1 ; +if (fornext_step3122<0) fornext_step_negative3122=1; else fornext_step_negative3122=0; +if (new_error) goto fornext_error3122; +goto fornext_entrylabel3122; +while(1){ +fornext_value3122=fornext_step3122+(*_FUNC_SEPERATEARGS_LONG_BRANCH); +fornext_entrylabel3122: +*_FUNC_SEPERATEARGS_LONG_BRANCH=fornext_value3122; +if (fornext_step_negative3122){ +if (fornext_value3122fornext_finalvalue3122) break; +} +fornext_error3122:; +if(qbevent){evnt(21874);if(r)goto S_29356;} +S_29357:; +if ((((int32*)(_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_BRANCH)-_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN[4],_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN[5])])||new_error){ +if(qbevent){evnt(21875);if(r)goto S_29357;} +do{ +goto fornext_exit_3121; +if(!qbevent)break;evnt(21875);}while(r); +} +do{ +*_FUNC_SEPERATEARGS_LONG_BRANCHES=*_FUNC_SEPERATEARGS_LONG_BRANCHES- 1 ; +if(!qbevent)break;evnt(21876);}while(r); +fornext_continue_3121:; +} +fornext_exit_3121:; +S_29362:; +if ((-(*_FUNC_SEPERATEARGS_LONG_BRANCHES== 0 ))||new_error){ +if(qbevent){evnt(21878);if(r)goto S_29362;} +do{ +*__LONG_SEPERATEARGS_ERROR= 1 ; +if(!qbevent)break;evnt(21879);}while(r); +do{ +qbs_set(__STRING_SEPERATEARGS_ERROR_MESSAGE,qbs_new_txt_len("Syntax error",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21880);}while(r); +S_29365:; +if ((qbs_cleanup(qbs_tmp_base,-((*(qbs**)(((char*)_FUNC_SEPERATEARGS_UDT_ID2)+(2861)))->len> 0 )))||new_error){ +if(qbevent){evnt(21881);if(r)goto S_29365;} +do{ +qbs_set(__STRING_SEPERATEARGS_ERROR_MESSAGE,qbs_add(qbs_add(__STRING_SEPERATEARGS_ERROR_MESSAGE,qbs_new_txt_len(" - Reference: ",14)),*((qbs**)((char*)_FUNC_SEPERATEARGS_UDT_ID2+(2861))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21881);}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(21882);}while(r); +} +do{ +tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_BRANCHES)-_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN[4],_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN[5]); +if (!new_error) ((int32*)(_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHTAKEN[0]))[tmp_long]= 0 ; +if(!qbevent)break;evnt(21885);}while(r); +do{ +*_FUNC_SEPERATEARGS_LONG_EXPRESSION=((int32*)(_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHWITHEXPRESSION[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_BRANCHES)-_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHWITHEXPRESSION[4],_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHWITHEXPRESSION[5])]; +if(!qbevent)break;evnt(21886);}while(r); +do{ +*_FUNC_SEPERATEARGS_LONG_I=((int32*)(_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHINPUTPOS[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_BRANCHES)-_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHINPUTPOS[4],_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHINPUTPOS[5])]; +if(!qbevent)break;evnt(21887);}while(r); +do{ +*_FUNC_SEPERATEARGS_LONG_X=((int32*)(_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHFORMATPOS[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_BRANCHES)-_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHFORMATPOS[4],_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHFORMATPOS[5])]; +if(!qbevent)break;evnt(21888);}while(r); +do{ +*_FUNC_SEPERATEARGS_LONG_LEVEL=((int32*)(_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHLEVEL[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_BRANCHES)-_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHLEVEL[4],_FUNC_SEPERATEARGS_ARRAY_LONG_BRANCHLEVEL[5])]; +if(!qbevent)break;evnt(21889);}while(r); +S_29375:; +if ((*_FUNC_SEPERATEARGS_LONG_EXPRESSION)||new_error){ +if(qbevent){evnt(21891);if(r)goto S_29375;} +do{ +tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_EXPRESSION)-__ARRAY_STRING_SEPARGS[4],__ARRAY_STRING_SEPARGS[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS[0]))[tmp_long])),qbs_new_txt_len("n-ll",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21891);}while(r); +} +S_29378:; +fornext_value3124=*_FUNC_SEPERATEARGS_LONG_X; +fornext_finalvalue3124=*_FUNC_SEPERATEARGS_LONG_LASTT; +fornext_step3124= 1 ; +if (fornext_step3124<0) fornext_step_negative3124=1; else fornext_step_negative3124=0; +if (new_error) goto fornext_error3124; +goto fornext_entrylabel3124; +while(1){ +fornext_value3124=fornext_step3124+(*_FUNC_SEPERATEARGS_LONG_X2); +fornext_entrylabel3124: +*_FUNC_SEPERATEARGS_LONG_X2=fornext_value3124; +if (fornext_step_negative3124){ +if (fornext_value3124fornext_finalvalue3124) break; +} +fornext_error3124:; +if(qbevent){evnt(21892);if(r)goto S_29378;} +do{ +tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_X2)-__ARRAY_STRING_SEPARGS[4],__ARRAY_STRING_SEPARGS[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS[0]))[tmp_long])),qbs_new_txt_len("n-ll",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21893);}while(r); +do{ +tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_X2)-__ARRAY_STRING_SEPARGSLAYOUT[4],__ARRAY_STRING_SEPARGSLAYOUT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT[0]))[tmp_long])),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21894);}while(r); +fornext_continue_3123:; +} +fornext_exit_3123:; +} +} +} +} +fornext_continue_3111:; +} +fornext_exit_3111:; +S_29387:; +if ((*_FUNC_SEPERATEARGS_LONG_EXPRESSION)||new_error){ +if(qbevent){evnt(21908);if(r)goto S_29387;} +S_29388:; +if ((-(*_FUNC_SEPERATEARGS_LONG_I<=*_FUNC_SEPERATEARGS_LONG_N))||new_error){ +if(qbevent){evnt(21909);if(r)goto S_29388;} +do{ +tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_EXPRESSION)-__ARRAY_STRING_SEPARGS[4],__ARRAY_STRING_SEPARGS[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS[0]))[tmp_long])),FUNC_GETELEMENTS(_FUNC_SEPERATEARGS_STRING_CA,_FUNC_SEPERATEARGS_LONG_I,_FUNC_SEPERATEARGS_LONG_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21910);}while(r); +do{ +*_FUNC_SEPERATEARGS_LONG_B= 0 ; +if(!qbevent)break;evnt(21914);}while(r); +S_29391:; +fornext_value3126=*_FUNC_SEPERATEARGS_LONG_I; +fornext_finalvalue3126=*_FUNC_SEPERATEARGS_LONG_N; +fornext_step3126= 1 ; +if (fornext_step3126<0) fornext_step_negative3126=1; else fornext_step_negative3126=0; +if (new_error) goto fornext_error3126; +goto fornext_entrylabel3126; +while(1){ +fornext_value3126=fornext_step3126+(*_FUNC_SEPERATEARGS_LONG_I2); +fornext_entrylabel3126: +*_FUNC_SEPERATEARGS_LONG_I2=fornext_value3126; +if (fornext_step_negative3126){ +if (fornext_value3126fornext_finalvalue3126) break; +} +fornext_error3126:; +if(qbevent){evnt(21915);if(r)goto S_29391;} +do{ +qbs_set(_FUNC_SEPERATEARGS_STRING_C,FUNC_GETELEMENT(_FUNC_SEPERATEARGS_STRING_A,_FUNC_SEPERATEARGS_LONG_I2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21916);}while(r); +S_29393:; +if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(_FUNC_SEPERATEARGS_STRING_C)== 44 ))&(-(*_FUNC_SEPERATEARGS_LONG_B== 0 ))))||new_error){ +if(qbevent){evnt(21917);if(r)goto S_29393;} +do{ +goto LABEL_BACKTRACK; +if(!qbevent)break;evnt(21918);}while(r); +} +S_29396:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_SEPERATEARGS_STRING_C)== 40 )))||new_error){ +if(qbevent){evnt(21920);if(r)goto S_29396;} +do{ +*_FUNC_SEPERATEARGS_LONG_B=*_FUNC_SEPERATEARGS_LONG_B+ 1 ; +if(!qbevent)break;evnt(21921);}while(r); +} +S_29399:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_SEPERATEARGS_STRING_C)== 41 )))||new_error){ +if(qbevent){evnt(21923);if(r)goto S_29399;} +do{ +*_FUNC_SEPERATEARGS_LONG_B=*_FUNC_SEPERATEARGS_LONG_B- 1 ; +if(!qbevent)break;evnt(21924);}while(r); +S_29401:; +if ((-(*_FUNC_SEPERATEARGS_LONG_B== -1 ))||new_error){ +if(qbevent){evnt(21925);if(r)goto S_29401;} +do{ +goto LABEL_BACKTRACK; +if(!qbevent)break;evnt(21925);}while(r); +} +} +fornext_continue_3125:; +} +fornext_exit_3125:; +S_29406:; +if ((-(*_FUNC_SEPERATEARGS_LONG_B!= 0 ))||new_error){ +if(qbevent){evnt(21928);if(r)goto S_29406;} +do{ +goto LABEL_BACKTRACK; +if(!qbevent)break;evnt(21928);}while(r); +} +do{ +*_FUNC_SEPERATEARGS_LONG_I=*_FUNC_SEPERATEARGS_LONG_N+ 1 ; +if(!qbevent)break;evnt(21930);}while(r); +}else{ +do{ +goto LABEL_BACKTRACK; +if(!qbevent)break;evnt(21932);}while(r); +} +} +S_29414:; +if ((-(*_FUNC_SEPERATEARGS_LONG_I!=(*_FUNC_SEPERATEARGS_LONG_N+ 1 )))||new_error){ +if(qbevent){evnt(21936);if(r)goto S_29414;} +do{ +goto LABEL_BACKTRACK; +if(!qbevent)break;evnt(21936);}while(r); +} +S_29417:; +if (( 0 )||new_error){ +if(qbevent){evnt(21938);if(r)goto S_29417;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip3127; +sub_file_print(tmp_fileno,qbs_new_txt_len("--------SEPERATE ARGUMENTS REPORT #2--------",44), 0, 0, 1); +if (new_error) goto skip3127; +skip3127: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(21939);}while(r); +S_29419:; +fornext_value3129= 1 ; +fornext_finalvalue3129=*_FUNC_SEPERATEARGS_LONG_LASTT; +fornext_step3129= 1 ; +if (fornext_step3129<0) fornext_step_negative3129=1; else fornext_step_negative3129=0; +if (new_error) goto fornext_error3129; +goto fornext_entrylabel3129; +while(1){ +fornext_value3129=fornext_step3129+(*_FUNC_SEPERATEARGS_LONG_I); +fornext_entrylabel3129: +*_FUNC_SEPERATEARGS_LONG_I=fornext_value3129; +if (fornext_step_negative3129){ +if (fornext_value3129fornext_finalvalue3129) break; +} +fornext_error3129:; +if(qbevent){evnt(21940);if(r)goto S_29419;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip3130; +sub_file_print(tmp_fileno,qbs_str((int32)(*_FUNC_SEPERATEARGS_LONG_I)), 1, 1, 0); +if (new_error) goto skip3130; +sub_file_print(tmp_fileno,((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_STRING_SEPARGS[4],__ARRAY_STRING_SEPARGS[5])])), 0, 0, 1); +if (new_error) goto skip3130; +skip3130: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(21941);}while(r); +fornext_continue_3128:; +} +fornext_exit_3128:; +} +S_29423:; +if ((-(*_FUNC_SEPERATEARGS_LONG_PASSFLAG!= 1 ))||new_error){ +if(qbevent){evnt(21952);if(r)goto S_29423;} +do{ +*_FUNC_SEPERATEARGS_LONG_SEPERATEARGS= 1 ; +if(!qbevent)break;evnt(21952);}while(r); +} +do{ +*_FUNC_SEPERATEARGS_LONG_PASS= 0 ; +if(!qbevent)break;evnt(21953);}while(r); +do{ +*_FUNC_SEPERATEARGS_LONG_X= 1 ; +if(!qbevent)break;evnt(21956);}while(r); +S_29428:; +fornext_value3132= 1 ; +fornext_finalvalue3132=*_FUNC_SEPERATEARGS_LONG_LASTT; +fornext_step3132= 1 ; +if (fornext_step3132<0) fornext_step_negative3132=1; else fornext_step_negative3132=0; +if (new_error) goto fornext_error3132; +goto fornext_entrylabel3132; +while(1){ +fornext_value3132=fornext_step3132+(*_FUNC_SEPERATEARGS_LONG_I); +fornext_entrylabel3132: +*_FUNC_SEPERATEARGS_LONG_I=fornext_value3132; +if (fornext_step_negative3132){ +if (fornext_value3132fornext_finalvalue3132) break; +} +fornext_error3132:; +if(qbevent){evnt(21958);if(r)goto S_29428;} +S_29429:; +if ((-(((int16*)(__ARRAY_INTEGER_DONTPASS[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_INTEGER_DONTPASS[4],__ARRAY_INTEGER_DONTPASS[5])]== 0 ))||new_error){ +if(qbevent){evnt(21960);if(r)goto S_29429;} +S_29430:; +if ((-(((int32*)(__ARRAY_LONG_PASSRULE[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_LONG_PASSRULE[4],__ARRAY_LONG_PASSRULE[5])]> 0 ))||new_error){ +if(qbevent){evnt(21962);if(r)goto S_29430;} +S_29431:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_STRING_SEPARGS[4],__ARRAY_STRING_SEPARGS[5])])),qbs_new_txt_len("n-ll",4))))||new_error){ +if(qbevent){evnt(21963);if(r)goto S_29431;} +do{ +*_FUNC_SEPERATEARGS_LONG_PASS=*_FUNC_SEPERATEARGS_LONG_PASS|((int32*)(__ARRAY_LONG_PASSRULE[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_LONG_PASSRULE[4],__ARRAY_LONG_PASSRULE[5])]; +if(!qbevent)break;evnt(21963);}while(r); +} +} +do{ +tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_STRING_SEPARGS[4],__ARRAY_STRING_SEPARGS[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS[0]))[tmp_long])),((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_STRING_SEPARGS[4],__ARRAY_STRING_SEPARGS[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21966);}while(r); +do{ +tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_STRING_SEPARGSLAYOUT[4],__ARRAY_STRING_SEPARGSLAYOUT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT[0]))[tmp_long])),((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_STRING_SEPARGSLAYOUT[4],__ARRAY_STRING_SEPARGSLAYOUT[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21967);}while(r); +S_29437:; +if ((qbs_cleanup(qbs_tmp_base,((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_STRING_SEPARGS[4],__ARRAY_STRING_SEPARGS[5])]))->len))||new_error){ +if(qbevent){evnt(21969);if(r)goto S_29437;} +S_29438:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_STRING_SEPARGS[4],__ARRAY_STRING_SEPARGS[5])])))== 0 )))||new_error){ +if(qbevent){evnt(21970);if(r)goto S_29438;} +do{ +tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_STRING_SEPARGS[4],__ARRAY_STRING_SEPARGS[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS[0]))[tmp_long])),qbs_right(((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_STRING_SEPARGS[4],__ARRAY_STRING_SEPARGS[5])])),((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_STRING_SEPARGS[4],__ARRAY_STRING_SEPARGS[5])]))->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21972);}while(r); +do{ +tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_STRING_SEPARGSLAYOUT[4],__ARRAY_STRING_SEPARGSLAYOUT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT[0]))[tmp_long])),qbs_add(((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_STRING_SEPARGSLAYOUT[4],__ARRAY_STRING_SEPARGSLAYOUT[5])])),func_chr( 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21973);}while(r); +} +} +S_29443:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_STRING_SEPARGS[4],__ARRAY_STRING_SEPARGS[5])])),qbs_new_txt_len("n-ll",4))))||new_error){ +if(qbevent){evnt(21977);if(r)goto S_29443;} +do{ +tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_STRING_SEPARGS[4],__ARRAY_STRING_SEPARGS[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS[0]))[tmp_long])),qbs_new_txt_len("N-LL",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21977);}while(r); +} +do{ +*_FUNC_SEPERATEARGS_LONG_X=*_FUNC_SEPERATEARGS_LONG_X+ 1 ; +if(!qbevent)break;evnt(21978);}while(r); +}else{ +S_29448:; +if ((-(((int32*)(__ARRAY_LONG_PASSRULE[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_LONG_PASSRULE[4],__ARRAY_LONG_PASSRULE[5])]> 0 ))||new_error){ +if(qbevent){evnt(21985);if(r)goto S_29448;} +S_29449:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGS[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_STRING_SEPARGS[4],__ARRAY_STRING_SEPARGS[5])])),qbs_new_txt_len("n-ll",4))))||new_error){ +if(qbevent){evnt(21986);if(r)goto S_29449;} +do{ +*_FUNC_SEPERATEARGS_LONG_PASS=*_FUNC_SEPERATEARGS_LONG_PASS|((int32*)(__ARRAY_LONG_PASSRULE[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_LONG_PASSRULE[4],__ARRAY_LONG_PASSRULE[5])]; +if(!qbevent)break;evnt(21986);}while(r); +} +} +do{ +tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_I+ 1 )-__ARRAY_STRING_SEPARGSLAYOUT[4],__ARRAY_STRING_SEPARGSLAYOUT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT[0]))[tmp_long])),qbs_add(((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_STRING_SEPARGSLAYOUT[4],__ARRAY_STRING_SEPARGSLAYOUT[5])])),((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I+ 1 )-__ARRAY_STRING_SEPARGSLAYOUT[4],__ARRAY_STRING_SEPARGSLAYOUT[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21989);}while(r); +} +fornext_continue_3131:; +} +fornext_exit_3131:; +do{ +tmp_long=array_check((*_FUNC_SEPERATEARGS_LONG_X)-__ARRAY_STRING_SEPARGSLAYOUT[4],__ARRAY_STRING_SEPARGSLAYOUT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT[0]))[tmp_long])),((qbs*)(((uint64*)(__ARRAY_STRING_SEPARGSLAYOUT[0]))[array_check((*_FUNC_SEPERATEARGS_LONG_I)-__ARRAY_STRING_SEPARGSLAYOUT[4],__ARRAY_STRING_SEPARGSLAYOUT[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(21993);}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free40.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +return *_FUNC_SEPERATEARGS_LONG_SEPERATEARGS; +} +void SUB_SETREFER(qbs*_SUB_SETREFER_STRING_A2,int32*_SUB_SETREFER_LONG_TYP2,qbs*_SUB_SETREFER_STRING_E2,int32*_SUB_SETREFER_LONG_METHOD){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data41.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +qbs_set(_SUB_SETREFER_STRING_A,_SUB_SETREFER_STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22003);}while(r); +do{ +*_SUB_SETREFER_LONG_TYP=*_SUB_SETREFER_LONG_TYP2; +if(!qbevent)break;evnt(22003);}while(r); +do{ +qbs_set(_SUB_SETREFER_STRING_E,_SUB_SETREFER_STRING_E2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22003);}while(r); +S_29460:; +if ((-(*_SUB_SETREFER_LONG_METHOD!= 1 ))||new_error){ +if(qbevent){evnt(22004);if(r)goto S_29460;} +do{ +qbs_set(_SUB_SETREFER_STRING_E,FUNC_FIXOPERATIONORDER(_SUB_SETREFER_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22004);}while(r); +} +S_29463:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(22005);if(r)goto S_29463;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22005);}while(r); +} +do{ +qbs_set(_SUB_SETREFER_STRING_TL,__STRING_TLAYOUT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22006);}while(r); +do{ +*_SUB_SETREFER_LONG_I=func_instr(NULL,_SUB_SETREFER_STRING_A,__STRING1_SP3,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22014);}while(r); +S_29468:; +if ((*_SUB_SETREFER_LONG_I)||new_error){ +if(qbevent){evnt(22015);if(r)goto S_29468;} +do{ +*_SUB_SETREFER_LONG_IDNUMBER=qbr(func_val(qbs_left(_SUB_SETREFER_STRING_A,*_SUB_SETREFER_LONG_I- 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22016);}while(r); +do{ +qbs_set(_SUB_SETREFER_STRING_A,qbs_right(_SUB_SETREFER_STRING_A,_SUB_SETREFER_STRING_A->len-*_SUB_SETREFER_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22016);}while(r); +}else{ +do{ +*_SUB_SETREFER_LONG_IDNUMBER=qbr(func_val(_SUB_SETREFER_STRING_A)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22018);}while(r); +} +do{ +SUB_GETID(_SUB_SETREFER_LONG_IDNUMBER); +if(!qbevent)break;evnt(22020);}while(r); +S_29475:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(22021);if(r)goto S_29475;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22021);}while(r); +} +S_29478:; +if ((*_SUB_SETREFER_LONG_TYP&*__LONG_ISUDT)||new_error){ +if(qbevent){evnt(22024);if(r)goto S_29478;} +do{ +*_SUB_SETREFER_LONG_U=qbr(func_val(_SUB_SETREFER_STRING_A)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22027);}while(r); +do{ +*_SUB_SETREFER_LONG_I=func_instr(NULL,_SUB_SETREFER_STRING_A,__STRING1_SP3,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22028);}while(r); +do{ +qbs_set(_SUB_SETREFER_STRING_A,qbs_right(_SUB_SETREFER_STRING_A,_SUB_SETREFER_STRING_A->len-*_SUB_SETREFER_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22028);}while(r); +do{ +*__LONG_E=qbr(func_val(_SUB_SETREFER_STRING_A)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22028);}while(r); +do{ +*_SUB_SETREFER_LONG_I=func_instr(NULL,_SUB_SETREFER_STRING_A,__STRING1_SP3,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22029);}while(r); +do{ +qbs_set(_SUB_SETREFER_STRING_O,qbs_right(_SUB_SETREFER_STRING_A,_SUB_SETREFER_STRING_A->len-*_SUB_SETREFER_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22029);}while(r); +do{ +qbs_set(_SUB_SETREFER_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(22030);}while(r); +S_29486:; +if ((-(*(int32*)(((char*)__UDT_ID)+(536))== 0 ))||new_error){ +if(qbevent){evnt(22030);if(r)goto S_29486;} +do{ +qbs_set(_SUB_SETREFER_STRING_N,qbs_add(qbs_add(qbs_new_txt_len("ARRAY_",6),_SUB_SETREFER_STRING_N),qbs_new_txt_len("[0]",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22030);}while(r); +} +S_29489:; +if (((-(*__LONG_E!= 0 ))&(-(*_SUB_SETREFER_LONG_U== 1 )))||new_error){ +if(qbevent){evnt(22032);if(r)goto S_29489;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Cannot set read-only element of _MEM TYPE",41)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22033);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22033);}while(r); +} +S_29493:; +if ((-(*__LONG_E== 0 ))||new_error){ +if(qbevent){evnt(22036);if(r)goto S_29493;} +S_29494:; +if ((-(*_SUB_SETREFER_LONG_METHOD!= 0 ))||new_error){ +if(qbevent){evnt(22039);if(r)goto S_29494;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Unexpected internal code reference to UDT",41)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22039);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22039);}while(r); +} +do{ +qbs_set(_SUB_SETREFER_STRING_LHSSCOPE,FUNC_SCOPE()); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22040);}while(r); +do{ +qbs_set(_SUB_SETREFER_STRING_E,FUNC_EVALUATE(_SUB_SETREFER_STRING_E,_SUB_SETREFER_LONG_T2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22041);}while(r); +S_29500:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(22042);if(r)goto S_29500;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22042);}while(r); +} +S_29503:; +if ((-((*_SUB_SETREFER_LONG_T2&*__LONG_ISUDT)== 0 ))||new_error){ +if(qbevent){evnt(22043);if(r)goto S_29503;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected = similar user defined type",36)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22043);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22043);}while(r); +} +S_29507:; +if ((-((*_SUB_SETREFER_LONG_T2&*__LONG_ISREFERENCE)== 0 ))||new_error){ +if(qbevent){evnt(22045);if(r)goto S_29507;} +S_29508:; +if ((*_SUB_SETREFER_LONG_T2&*__LONG_ISPOINTER)||new_error){ +if(qbevent){evnt(22046);if(r)goto S_29508;} +do{ +qbs_set(_SUB_SETREFER_STRING_SRC,qbs_add(qbs_add(qbs_new_txt_len("((char*)",8),_SUB_SETREFER_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22047);}while(r); +do{ +*_SUB_SETREFER_LONG_E2= 0 ; +if(!qbevent)break;evnt(22048);}while(r); +do{ +*_SUB_SETREFER_LONG_U2=*_SUB_SETREFER_LONG_T2& 511 ; +if(!qbevent)break;evnt(22048);}while(r); +}else{ +do{ +qbs_set(_SUB_SETREFER_STRING_SRC,qbs_add(qbs_add(qbs_new_txt_len("((char*)&",9),_SUB_SETREFER_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22050);}while(r); +do{ +*_SUB_SETREFER_LONG_E2= 0 ; +if(!qbevent)break;evnt(22051);}while(r); +do{ +*_SUB_SETREFER_LONG_U2=*_SUB_SETREFER_LONG_T2& 511 ; +if(!qbevent)break;evnt(22051);}while(r); +} +do{ +goto LABEL_DIRECTUDT; +if(!qbevent)break;evnt(22053);}while(r); +} +do{ +*_SUB_SETREFER_LONG_IDNUMBER2=qbr(func_val(_SUB_SETREFER_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22057);}while(r); +do{ +SUB_GETID(_SUB_SETREFER_LONG_IDNUMBER2); +if(!qbevent)break;evnt(22058);}while(r); +S_29521:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(22061);if(r)goto S_29521;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22061);}while(r); +} +do{ +qbs_set(_SUB_SETREFER_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(22062);}while(r); +S_29525:; +if ((-(*(int32*)(((char*)__UDT_ID)+(536))== 0 ))||new_error){ +if(qbevent){evnt(22062);if(r)goto S_29525;} +do{ +qbs_set(_SUB_SETREFER_STRING_N2,qbs_add(qbs_add(qbs_new_txt_len("ARRAY_",6),_SUB_SETREFER_STRING_N2),qbs_new_txt_len("[0]",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22062);}while(r); +} +do{ +*_SUB_SETREFER_LONG_I=func_instr(NULL,_SUB_SETREFER_STRING_E,__STRING1_SP3,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22063);}while(r); +do{ +qbs_set(_SUB_SETREFER_STRING_E,qbs_right(_SUB_SETREFER_STRING_E,_SUB_SETREFER_STRING_E->len-*_SUB_SETREFER_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22063);}while(r); +do{ +*_SUB_SETREFER_LONG_U2=qbr(func_val(_SUB_SETREFER_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22063);}while(r); +do{ +*_SUB_SETREFER_LONG_I=func_instr(NULL,_SUB_SETREFER_STRING_E,__STRING1_SP3,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22064);}while(r); +do{ +qbs_set(_SUB_SETREFER_STRING_E,qbs_right(_SUB_SETREFER_STRING_E,_SUB_SETREFER_STRING_E->len-*_SUB_SETREFER_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22064);}while(r); +do{ +*_SUB_SETREFER_LONG_E2=qbr(func_val(_SUB_SETREFER_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22064);}while(r); +do{ +*_SUB_SETREFER_LONG_I=func_instr(NULL,_SUB_SETREFER_STRING_E,__STRING1_SP3,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22065);}while(r); +do{ +qbs_set(_SUB_SETREFER_STRING_O2,qbs_right(_SUB_SETREFER_STRING_E,_SUB_SETREFER_STRING_E->len-*_SUB_SETREFER_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22065);}while(r); +do{ +qbs_set(_SUB_SETREFER_STRING_SRC,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("((char*)",8),FUNC_SCOPE()),_SUB_SETREFER_STRING_N2),qbs_new_txt_len(")+(",3)),_SUB_SETREFER_STRING_O2),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22070);}while(r); +LABEL_DIRECTUDT:; +if(qbevent){evnt(22071);r=0;} +S_29537:; +if (((-(*_SUB_SETREFER_LONG_U!=*_SUB_SETREFER_LONG_U2))|(-(*_SUB_SETREFER_LONG_E2!= 0 )))||new_error){ +if(qbevent){evnt(22072);if(r)goto S_29537;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected = similar user defined type",36)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22072);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22072);}while(r); +} +do{ +qbs_set(_SUB_SETREFER_STRING_DST,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("((char*)",8),_SUB_SETREFER_STRING_LHSSCOPE),_SUB_SETREFER_STRING_N),qbs_new_txt_len(")+(",3)),_SUB_SETREFER_STRING_O),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22073);}while(r); +do{ +SUB_COPY_FULL_UDT(_SUB_SETREFER_STRING_DST,_SUB_SETREFER_STRING_SRC,__LONG_MAINTXTBUF,&(pass3143= 0 ),_SUB_SETREFER_LONG_U); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22074);}while(r); +do{ +qbs_set(__STRING_TLAYOUT,_SUB_SETREFER_STRING_TL); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22078);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22079);}while(r); +} +S_29546:; +if ((*_SUB_SETREFER_LONG_TYP&*__LONG_ISOFFSETINBITS)||new_error){ +if(qbevent){evnt(22083);if(r)goto S_29546;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Cannot resolve bit-length variables inside user defined types",61)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22083);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22083);}while(r); +} +S_29550:; +if ((*_SUB_SETREFER_LONG_TYP&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(22084);if(r)goto S_29550;} +S_29551:; +if ((*_SUB_SETREFER_LONG_TYP&*__LONG_ISFIXEDLENGTH)||new_error){ +if(qbevent){evnt(22085);if(r)goto S_29551;} +do{ +qbs_set(_SUB_SETREFER_STRING_O2,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(((uint8*)",10),FUNC_SCOPE()),_SUB_SETREFER_STRING_N),qbs_new_txt_len(")+(",3)),_SUB_SETREFER_STRING_O),qbs_new_txt_len("))",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22086);}while(r); +do{ +qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_new_fixed(",14),_SUB_SETREFER_STRING_O2),qbs_new_txt_len(",",1)),FUNC_STR2((&(((int32*)(__ARRAY_LONG_UDTETYPESIZE[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTETYPESIZE[4],__ARRAY_LONG_UDTETYPESIZE[5])])))),qbs_new_txt_len(",1)",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22087);}while(r); +}else{ +do{ +qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*((qbs**)((char*)(",18),FUNC_SCOPE()),_SUB_SETREFER_STRING_N),qbs_new_txt_len(")+(",3)),_SUB_SETREFER_STRING_O),qbs_new_txt_len(")))",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22089);}while(r); +} +S_29557:; +if ((-(*_SUB_SETREFER_LONG_METHOD== 0 ))||new_error){ +if(qbevent){evnt(22091);if(r)goto S_29557;} +do{ +qbs_set(_SUB_SETREFER_STRING_E,FUNC_EVALUATETOTYP(_SUB_SETREFER_STRING_E,&(pass3144=*__LONG_STRINGTYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22091);}while(r); +} +S_29560:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(22092);if(r)goto S_29560;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22092);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass3145=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_set(",8),_SUB_SETREFER_STRING_R),qbs_new_txt_len(",",1)),_SUB_SETREFER_STRING_E),qbs_new_txt_len(");",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22093);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass3146=*__LONG_MAINTXTBUF),qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22094);}while(r); +}else{ +do{ +*_SUB_SETREFER_LONG_TYP=*_SUB_SETREFER_LONG_TYP-*__LONG_ISUDT-*__LONG_ISREFERENCE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(22096);}while(r); +S_29567:; +if ((*_SUB_SETREFER_LONG_TYP&*__LONG_ISARRAY)||new_error){ +if(qbevent){evnt(22097);if(r)goto S_29567;} +do{ +*_SUB_SETREFER_LONG_TYP=*_SUB_SETREFER_LONG_TYP-*__LONG_ISARRAY; +if(!qbevent)break;evnt(22097);}while(r); +} +do{ +qbs_set(_SUB_SETREFER_STRING_T,FUNC_TYP2CTYP(_SUB_SETREFER_LONG_TYP,qbs_new_txt_len("",0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22098);}while(r); +S_29571:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(22099);if(r)goto S_29571;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22099);}while(r); +} +do{ +qbs_set(_SUB_SETREFER_STRING_O2,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(((char*)",9),FUNC_SCOPE()),_SUB_SETREFER_STRING_N),qbs_new_txt_len(")+(",3)),_SUB_SETREFER_STRING_O),qbs_new_txt_len("))",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22100);}while(r); +do{ +qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),qbs_new_txt_len("(",1)),_SUB_SETREFER_STRING_T),qbs_new_txt_len("*)",2)),_SUB_SETREFER_STRING_O2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22101);}while(r); +S_29576:; +if ((-(*_SUB_SETREFER_LONG_METHOD== 0 ))||new_error){ +if(qbevent){evnt(22102);if(r)goto S_29576;} +do{ +qbs_set(_SUB_SETREFER_STRING_E,FUNC_EVALUATETOTYP(_SUB_SETREFER_STRING_E,_SUB_SETREFER_LONG_TYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22102);}while(r); +} +S_29579:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(22103);if(r)goto S_29579;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22103);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass3147=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(_SUB_SETREFER_STRING_R,qbs_new_txt_len("=",1)),_SUB_SETREFER_STRING_E),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22104);}while(r); +} +do{ +qbs_set(__STRING_TLAYOUT,_SUB_SETREFER_STRING_TL); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22108);}while(r); +S_29585:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_SETREFER_STRING_R, 1 ),qbs_new_txt_len("*",1))))||new_error){ +if(qbevent){evnt(22109);if(r)goto S_29585;} +do{ +qbs_set(_SUB_SETREFER_STRING_R,func_mid(_SUB_SETREFER_STRING_R, 2 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22109);}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22110);}while(r); +} +S_29590:; +if ((*(int32*)(((char*)__UDT_ID)+(512)))||new_error){ +if(qbevent){evnt(22115);if(r)goto S_29590;} +do{ +qbs_set(_SUB_SETREFER_STRING_N,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22116);}while(r); +do{ +*_SUB_SETREFER_LONG_TYP=*_SUB_SETREFER_LONG_TYP-*__LONG_ISPOINTER-*__LONG_ISREFERENCE; +if(!qbevent)break;evnt(22117);}while(r); +S_29593:; +if (((*_SUB_SETREFER_LONG_TYP&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(22119);if(r)goto S_29593;} +S_29594:; +if (((*_SUB_SETREFER_LONG_TYP&*__LONG_ISFIXEDLENGTH))||new_error){ +if(qbevent){evnt(22120);if(r)goto S_29594;} +do{ +qbs_set(_SUB_SETREFER_STRING_OFFSET,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("&((uint8*)(",11),_SUB_SETREFER_STRING_N),qbs_new_txt_len("[0]))[tmp_long*",15)),FUNC_STR2((int32*)(void*)( ((char*)(__UDT_ID)) + (540) ))),qbs_new_txt_len("]",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22121);}while(r); +do{ +qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_new_fixed(",14),_SUB_SETREFER_STRING_OFFSET),qbs_new_txt_len(",",1)),FUNC_STR2((int32*)(void*)( ((char*)(__UDT_ID)) + (540) ))),qbs_new_txt_len(",1)",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22122);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass3148=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("tmp_long=",9),_SUB_SETREFER_STRING_A),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22123);}while(r); +S_29598:; +if ((-(*_SUB_SETREFER_LONG_METHOD== 0 ))||new_error){ +if(qbevent){evnt(22124);if(r)goto S_29598;} +do{ +qbs_set(_SUB_SETREFER_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (!new_error) qbs_set(",24),_SUB_SETREFER_STRING_R),qbs_new_txt_len(",",1)),FUNC_EVALUATETOTYP(_SUB_SETREFER_STRING_E,_SUB_SETREFER_LONG_TYP)),qbs_new_txt_len(");",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22125);}while(r); +S_29600:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(22126);if(r)goto S_29600;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22126);}while(r); +} +}else{ +do{ +qbs_set(_SUB_SETREFER_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (!new_error) qbs_set(",24),_SUB_SETREFER_STRING_R),qbs_new_txt_len(",",1)),_SUB_SETREFER_STRING_E),qbs_new_txt_len(");",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22128);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass3149=*__LONG_MAINTXTBUF),_SUB_SETREFER_STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22130);}while(r); +}else{ +do{ +SUB_WRITEBUFLINE(&(pass3150=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("tmp_long=",9),_SUB_SETREFER_STRING_A),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22132);}while(r); +S_29609:; +if ((-(*_SUB_SETREFER_LONG_METHOD== 0 ))||new_error){ +if(qbevent){evnt(22133);if(r)goto S_29609;} +do{ +qbs_set(_SUB_SETREFER_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (!new_error) qbs_set( ((qbs*)(((uint64*)(",44),_SUB_SETREFER_STRING_N),qbs_new_txt_len("[0]))[tmp_long])),",18)),FUNC_EVALUATETOTYP(_SUB_SETREFER_STRING_E,_SUB_SETREFER_LONG_TYP)),qbs_new_txt_len(");",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22134);}while(r); +S_29611:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(22135);if(r)goto S_29611;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22135);}while(r); +} +}else{ +do{ +qbs_set(_SUB_SETREFER_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (!new_error) qbs_set( ((qbs*)(((uint64*)(",44),_SUB_SETREFER_STRING_N),qbs_new_txt_len("[0]))[tmp_long])),",18)),_SUB_SETREFER_STRING_E),qbs_new_txt_len(");",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22137);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass3151=*__LONG_MAINTXTBUF),_SUB_SETREFER_STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22139);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass3152=*__LONG_MAINTXTBUF),qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22141);}while(r); +do{ +qbs_set(__STRING_TLAYOUT,_SUB_SETREFER_STRING_TL); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22142);}while(r); +S_29621:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_SETREFER_STRING_R, 1 ),qbs_new_txt_len("*",1))))||new_error){ +if(qbevent){evnt(22143);if(r)goto S_29621;} +do{ +qbs_set(_SUB_SETREFER_STRING_R,func_mid(_SUB_SETREFER_STRING_R, 2 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22143);}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22144);}while(r); +} +S_29626:; +if (((*_SUB_SETREFER_LONG_TYP&*__LONG_ISOFFSETINBITS))||new_error){ +if(qbevent){evnt(22147);if(r)goto S_29626;} +do{ +qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_new_txt_len("setbits(",8),FUNC_STR2(&(pass3153=*_SUB_SETREFER_LONG_TYP& 511 ))),qbs_new_txt_len(",",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22149);}while(r); +do{ +qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(_SUB_SETREFER_STRING_R,qbs_new_txt_len("(uint8*)(",9)),_SUB_SETREFER_STRING_N),qbs_new_txt_len("[0])",4)),qbs_new_txt_len(",tmp_long,",10))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22150);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass3154=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("tmp_long=",9),_SUB_SETREFER_STRING_A),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22151);}while(r); +S_29630:; +if ((-(*_SUB_SETREFER_LONG_METHOD== 0 ))||new_error){ +if(qbevent){evnt(22152);if(r)goto S_29630;} +do{ +qbs_set(_SUB_SETREFER_STRING_L,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (!new_error) ",16),_SUB_SETREFER_STRING_R),FUNC_EVALUATETOTYP(_SUB_SETREFER_STRING_E,_SUB_SETREFER_LONG_TYP)),qbs_new_txt_len(");",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22153);}while(r); +S_29632:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(22154);if(r)goto S_29632;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22154);}while(r); +} +}else{ +do{ +qbs_set(_SUB_SETREFER_STRING_L,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (!new_error) ",16),_SUB_SETREFER_STRING_R),_SUB_SETREFER_STRING_E),qbs_new_txt_len(");",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22156);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass3155=*__LONG_MAINTXTBUF),_SUB_SETREFER_STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22158);}while(r); +do{ +qbs_set(__STRING_TLAYOUT,_SUB_SETREFER_STRING_TL); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22159);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22160);}while(r); +}else{ +do{ +qbs_set(_SUB_SETREFER_STRING_T,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22162);}while(r); +S_29643:; +if (((*_SUB_SETREFER_LONG_TYP&*__LONG_ISFLOAT))||new_error){ +if(qbevent){evnt(22163);if(r)goto S_29643;} +S_29644:; +if ((-((*_SUB_SETREFER_LONG_TYP& 511 )== 32 ))||new_error){ +if(qbevent){evnt(22164);if(r)goto S_29644;} +do{ +qbs_set(_SUB_SETREFER_STRING_T,qbs_new_txt_len("float",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22164);}while(r); +} +S_29647:; +if ((-((*_SUB_SETREFER_LONG_TYP& 511 )== 64 ))||new_error){ +if(qbevent){evnt(22165);if(r)goto S_29647;} +do{ +qbs_set(_SUB_SETREFER_STRING_T,qbs_new_txt_len("double",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22165);}while(r); +} +S_29650:; +if ((-((*_SUB_SETREFER_LONG_TYP& 511 )== 256 ))||new_error){ +if(qbevent){evnt(22166);if(r)goto S_29650;} +do{ +qbs_set(_SUB_SETREFER_STRING_T,qbs_new_txt_len("long double",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22166);}while(r); +} +}else{ +S_29654:; +if (((*_SUB_SETREFER_LONG_TYP&*__LONG_ISUNSIGNED))||new_error){ +if(qbevent){evnt(22168);if(r)goto S_29654;} +S_29655:; +if ((-((*_SUB_SETREFER_LONG_TYP& 511 )== 8 ))||new_error){ +if(qbevent){evnt(22169);if(r)goto S_29655;} +do{ +qbs_set(_SUB_SETREFER_STRING_T,qbs_new_txt_len("uint8",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22169);}while(r); +} +S_29658:; +if ((-((*_SUB_SETREFER_LONG_TYP& 511 )== 16 ))||new_error){ +if(qbevent){evnt(22170);if(r)goto S_29658;} +do{ +qbs_set(_SUB_SETREFER_STRING_T,qbs_new_txt_len("uint16",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22170);}while(r); +} +S_29661:; +if ((-((*_SUB_SETREFER_LONG_TYP& 511 )== 32 ))||new_error){ +if(qbevent){evnt(22171);if(r)goto S_29661;} +do{ +qbs_set(_SUB_SETREFER_STRING_T,qbs_new_txt_len("uint32",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22171);}while(r); +} +S_29664:; +if ((-((*_SUB_SETREFER_LONG_TYP& 511 )== 64 ))||new_error){ +if(qbevent){evnt(22172);if(r)goto S_29664;} +do{ +qbs_set(_SUB_SETREFER_STRING_T,qbs_new_txt_len("uint64",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22172);}while(r); +} +S_29667:; +if ((*_SUB_SETREFER_LONG_TYP&*__LONG_ISOFFSET)||new_error){ +if(qbevent){evnt(22173);if(r)goto S_29667;} +do{ +qbs_set(_SUB_SETREFER_STRING_T,qbs_new_txt_len("uptrszint",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22173);}while(r); +} +}else{ +S_29671:; +if ((-((*_SUB_SETREFER_LONG_TYP& 511 )== 8 ))||new_error){ +if(qbevent){evnt(22175);if(r)goto S_29671;} +do{ +qbs_set(_SUB_SETREFER_STRING_T,qbs_new_txt_len("int8",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22175);}while(r); +} +S_29674:; +if ((-((*_SUB_SETREFER_LONG_TYP& 511 )== 16 ))||new_error){ +if(qbevent){evnt(22176);if(r)goto S_29674;} +do{ +qbs_set(_SUB_SETREFER_STRING_T,qbs_new_txt_len("int16",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22176);}while(r); +} +S_29677:; +if ((-((*_SUB_SETREFER_LONG_TYP& 511 )== 32 ))||new_error){ +if(qbevent){evnt(22177);if(r)goto S_29677;} +do{ +qbs_set(_SUB_SETREFER_STRING_T,qbs_new_txt_len("int32",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22177);}while(r); +} +S_29680:; +if ((-((*_SUB_SETREFER_LONG_TYP& 511 )== 64 ))||new_error){ +if(qbevent){evnt(22178);if(r)goto S_29680;} +do{ +qbs_set(_SUB_SETREFER_STRING_T,qbs_new_txt_len("int64",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22178);}while(r); +} +S_29683:; +if ((*_SUB_SETREFER_LONG_TYP&*__LONG_ISOFFSET)||new_error){ +if(qbevent){evnt(22179);if(r)goto S_29683;} +do{ +qbs_set(_SUB_SETREFER_STRING_T,qbs_new_txt_len("ptrszint",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22179);}while(r); +} +} +} +} +S_29689:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_SETREFER_STRING_T,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(22183);if(r)goto S_29689;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Cannot find C type to return array data",39)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22183);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22183);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass3156=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("tmp_long=",9),_SUB_SETREFER_STRING_A),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22184);}while(r); +S_29694:; +if ((-(*_SUB_SETREFER_LONG_METHOD== 0 ))||new_error){ +if(qbevent){evnt(22185);if(r)goto S_29694;} +do{ +qbs_set(_SUB_SETREFER_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (!new_error) ((",18),_SUB_SETREFER_STRING_T),qbs_new_txt_len("*)(",3)),_SUB_SETREFER_STRING_N),qbs_new_txt_len("[0]))[tmp_long]=",16)),FUNC_EVALUATETOTYP(_SUB_SETREFER_STRING_E,_SUB_SETREFER_LONG_TYP)),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22186);}while(r); +S_29696:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(22187);if(r)goto S_29696;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22187);}while(r); +} +}else{ +do{ +qbs_set(_SUB_SETREFER_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (!new_error) ((",18),_SUB_SETREFER_STRING_T),qbs_new_txt_len("*)(",3)),_SUB_SETREFER_STRING_N),qbs_new_txt_len("[0]))[tmp_long]=",16)),_SUB_SETREFER_STRING_E),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22189);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass3157=*__LONG_MAINTXTBUF),_SUB_SETREFER_STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22192);}while(r); +do{ +qbs_set(__STRING_TLAYOUT,_SUB_SETREFER_STRING_TL); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22193);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22194);}while(r); +} +S_29706:; +if ((*(int32*)(((char*)__UDT_ID)+(536)))||new_error){ +if(qbevent){evnt(22198);if(r)goto S_29706;} +do{ +qbs_set(_SUB_SETREFER_STRING_R,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22199);}while(r); +do{ +*_SUB_SETREFER_LONG_T=*(int32*)(((char*)__UDT_ID)+(536)); +if(!qbevent)break;evnt(22200);}while(r); +S_29709:; +if (((*_SUB_SETREFER_LONG_T&*__LONG_ISINCONVENTIONALMEMORY))||new_error){ +if(qbevent){evnt(22202);if(r)goto S_29709;} +do{ +*_SUB_SETREFER_LONG_T=*_SUB_SETREFER_LONG_T-*__LONG_ISINCONVENTIONALMEMORY; +if(!qbevent)break;evnt(22202);}while(r); +} +do{ +*_SUB_SETREFER_LONG_TYP=*_SUB_SETREFER_LONG_T; +if(!qbevent)break;evnt(22203);}while(r); +S_29713:; +if (((*_SUB_SETREFER_LONG_T&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(22206);if(r)goto S_29713;} +S_29714:; +if (((*_SUB_SETREFER_LONG_T&*__LONG_ISFIXEDLENGTH))||new_error){ +if(qbevent){evnt(22207);if(r)goto S_29714;} +do{ +qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(FUNC_SCOPE(),qbs_new_txt_len("STRING",6)),FUNC_STR2((int32*)(void*)( ((char*)(__UDT_ID)) + (540) ))),qbs_new_txt_len("_",1)),_SUB_SETREFER_STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22208);}while(r); +}else{ +do{ +qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(FUNC_SCOPE(),qbs_new_txt_len("STRING_",7)),_SUB_SETREFER_STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22210);}while(r); +} +S_29719:; +if ((-(*_SUB_SETREFER_LONG_METHOD== 0 ))||new_error){ +if(qbevent){evnt(22212);if(r)goto S_29719;} +do{ +qbs_set(_SUB_SETREFER_STRING_E,FUNC_EVALUATETOTYP(_SUB_SETREFER_STRING_E,__LONG_ISSTRING)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22212);}while(r); +} +S_29722:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(22213);if(r)goto S_29722;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22213);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass3158=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_set(",8),_SUB_SETREFER_STRING_R),qbs_new_txt_len(",",1)),_SUB_SETREFER_STRING_E),qbs_new_txt_len(");",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22214);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass3159=*__LONG_MAINTXTBUF),qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22215);}while(r); +S_29727:; +if ((*__INTEGER_ARRAYPROCESSINGHAPPENED)||new_error){ +if(qbevent){evnt(22216);if(r)goto S_29727;} +do{ +*__INTEGER_ARRAYPROCESSINGHAPPENED= 0 ; +if(!qbevent)break;evnt(22216);}while(r); +} +do{ +qbs_set(__STRING_TLAYOUT,_SUB_SETREFER_STRING_TL); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22217);}while(r); +S_29731:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_SETREFER_STRING_R, 1 ),qbs_new_txt_len("*",1))))||new_error){ +if(qbevent){evnt(22218);if(r)goto S_29731;} +do{ +qbs_set(_SUB_SETREFER_STRING_R,func_mid(_SUB_SETREFER_STRING_R, 2 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22218);}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22219);}while(r); +} +S_29736:; +if (((*_SUB_SETREFER_LONG_T&*__LONG_ISOFFSETINBITS))||new_error){ +if(qbevent){evnt(22223);if(r)goto S_29736;} +do{ +*_SUB_SETREFER_LONG_B=*_SUB_SETREFER_LONG_T& 511 ; +if(!qbevent)break;evnt(22224);}while(r); +S_29738:; +if (((*_SUB_SETREFER_LONG_T&*__LONG_ISUNSIGNED))||new_error){ +if(qbevent){evnt(22225);if(r)goto S_29738;} +do{ +qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("UBIT",4)),FUNC_STR2(&(pass3160=*_SUB_SETREFER_LONG_T& 511 ))),qbs_new_txt_len("_",1)),_SUB_SETREFER_STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22226);}while(r); +S_29740:; +if ((-(*_SUB_SETREFER_LONG_METHOD== 0 ))||new_error){ +if(qbevent){evnt(22227);if(r)goto S_29740;} +do{ +qbs_set(_SUB_SETREFER_STRING_E,FUNC_EVALUATETOTYP(_SUB_SETREFER_STRING_E,&(pass3161= 64 +*__LONG_ISUNSIGNED))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22227);}while(r); +} +S_29743:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(22228);if(r)goto S_29743;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22228);}while(r); +} +do{ +qbs_set(_SUB_SETREFER_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_SETREFER_STRING_R,qbs_new_txt_len("=(",2)),_SUB_SETREFER_STRING_E),qbs_new_txt_len(")&",2)),FUNC_STR2(&(pass3162=((int64*)(__ARRAY_INTEGER64_BITMASK[0]))[array_check((*_SUB_SETREFER_LONG_B)-__ARRAY_INTEGER64_BITMASK[4],__ARRAY_INTEGER64_BITMASK[5])]))),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22229);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass3163=*__LONG_MAINTXTBUF),_SUB_SETREFER_STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22230);}while(r); +}else{ +do{ +qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("BIT",3)),FUNC_STR2(&(pass3164=*_SUB_SETREFER_LONG_T& 511 ))),qbs_new_txt_len("_",1)),_SUB_SETREFER_STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22232);}while(r); +S_29750:; +if ((-(*_SUB_SETREFER_LONG_METHOD== 0 ))||new_error){ +if(qbevent){evnt(22233);if(r)goto S_29750;} +do{ +qbs_set(_SUB_SETREFER_STRING_E,FUNC_EVALUATETOTYP(_SUB_SETREFER_STRING_E,&(pass3165= 64 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22233);}while(r); +} +S_29753:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(22234);if(r)goto S_29753;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22234);}while(r); +} +do{ +qbs_set(_SUB_SETREFER_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if ((",5),_SUB_SETREFER_STRING_R),qbs_new_txt_len("=",1)),_SUB_SETREFER_STRING_E),qbs_new_txt_len(")&",2)),FUNC_STR2(&(pass3166=qbr(pow2( 2 ,(*_SUB_SETREFER_LONG_B- 1 )))))),qbs_new_txt_len("){",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22235);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass3167=*__LONG_MAINTXTBUF),_SUB_SETREFER_STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22236);}while(r); +do{ +qbs_set(_SUB_SETREFER_STRING_L,qbs_add(qbs_add(qbs_add(_SUB_SETREFER_STRING_R,qbs_new_txt_len("|=",2)),FUNC_STR2(&(pass3168=((int64*)(__ARRAY_INTEGER64_BITMASKINV[0]))[array_check((*_SUB_SETREFER_LONG_B)-__ARRAY_INTEGER64_BITMASKINV[4],__ARRAY_INTEGER64_BITMASKINV[5])]))),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22238);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass3169=*__LONG_MAINTXTBUF),_SUB_SETREFER_STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22239);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass3170=*__LONG_MAINTXTBUF),qbs_new_txt_len("}else{",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22240);}while(r); +do{ +qbs_set(_SUB_SETREFER_STRING_L,qbs_add(qbs_add(qbs_add(_SUB_SETREFER_STRING_R,qbs_new_txt_len("&=",2)),FUNC_STR2(&(pass3171=((int64*)(__ARRAY_INTEGER64_BITMASK[0]))[array_check((*_SUB_SETREFER_LONG_B)-__ARRAY_INTEGER64_BITMASK[4],__ARRAY_INTEGER64_BITMASK[5])]))),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22242);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass3172=*__LONG_MAINTXTBUF),_SUB_SETREFER_STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22243);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass3173=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22244);}while(r); +} +S_29765:; +if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||new_error){ +if(qbevent){evnt(22246);if(r)goto S_29765;} +do{ +SUB_WRITEBUFLINE(&(pass3174=*__LONG_MAINTXTBUF),qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22246);}while(r); +do{ +*__INTEGER_STRINGPROCESSINGHAPPENED= 0 ; +if(!qbevent)break;evnt(22246);}while(r); +} +S_29769:; +if ((*__INTEGER_ARRAYPROCESSINGHAPPENED)||new_error){ +if(qbevent){evnt(22247);if(r)goto S_29769;} +do{ +*__INTEGER_ARRAYPROCESSINGHAPPENED= 0 ; +if(!qbevent)break;evnt(22247);}while(r); +} +do{ +qbs_set(__STRING_TLAYOUT,_SUB_SETREFER_STRING_TL); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22248);}while(r); +S_29773:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_SETREFER_STRING_R, 1 ),qbs_new_txt_len("*",1))))||new_error){ +if(qbevent){evnt(22249);if(r)goto S_29773;} +do{ +qbs_set(_SUB_SETREFER_STRING_R,func_mid(_SUB_SETREFER_STRING_R, 2 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22249);}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22250);}while(r); +} +S_29778:; +if ((-(*_SUB_SETREFER_LONG_T==*__LONG_BYTETYPE))||new_error){ +if(qbevent){evnt(22254);if(r)goto S_29778;} +do{ +qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("BYTE_",5)),_SUB_SETREFER_STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22254);}while(r); +do{ +goto LABEL_SREF; +if(!qbevent)break;evnt(22254);}while(r); +} +S_29782:; +if ((-(*_SUB_SETREFER_LONG_T==*__LONG_UBYTETYPE))||new_error){ +if(qbevent){evnt(22255);if(r)goto S_29782;} +do{ +qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("UBYTE_",6)),_SUB_SETREFER_STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22255);}while(r); +do{ +goto LABEL_SREF; +if(!qbevent)break;evnt(22255);}while(r); +} +S_29786:; +if ((-(*_SUB_SETREFER_LONG_T==*__LONG_INTEGERTYPE))||new_error){ +if(qbevent){evnt(22256);if(r)goto S_29786;} +do{ +qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("INTEGER_",8)),_SUB_SETREFER_STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22256);}while(r); +do{ +goto LABEL_SREF; +if(!qbevent)break;evnt(22256);}while(r); +} +S_29790:; +if ((-(*_SUB_SETREFER_LONG_T==*__LONG_UINTEGERTYPE))||new_error){ +if(qbevent){evnt(22257);if(r)goto S_29790;} +do{ +qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("UINTEGER_",9)),_SUB_SETREFER_STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22257);}while(r); +do{ +goto LABEL_SREF; +if(!qbevent)break;evnt(22257);}while(r); +} +S_29794:; +if ((-(*_SUB_SETREFER_LONG_T==*__LONG_LONGTYPE))||new_error){ +if(qbevent){evnt(22258);if(r)goto S_29794;} +do{ +qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("LONG_",5)),_SUB_SETREFER_STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22258);}while(r); +do{ +goto LABEL_SREF; +if(!qbevent)break;evnt(22258);}while(r); +} +S_29798:; +if ((-(*_SUB_SETREFER_LONG_T==*__LONG_ULONGTYPE))||new_error){ +if(qbevent){evnt(22259);if(r)goto S_29798;} +do{ +qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("ULONG_",6)),_SUB_SETREFER_STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22259);}while(r); +do{ +goto LABEL_SREF; +if(!qbevent)break;evnt(22259);}while(r); +} +S_29802:; +if ((-(*_SUB_SETREFER_LONG_T==*__LONG_INTEGER64TYPE))||new_error){ +if(qbevent){evnt(22260);if(r)goto S_29802;} +do{ +qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("INTEGER64_",10)),_SUB_SETREFER_STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22260);}while(r); +do{ +goto LABEL_SREF; +if(!qbevent)break;evnt(22260);}while(r); +} +S_29806:; +if ((-(*_SUB_SETREFER_LONG_T==*__LONG_UINTEGER64TYPE))||new_error){ +if(qbevent){evnt(22261);if(r)goto S_29806;} +do{ +qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("UINTEGER64_",11)),_SUB_SETREFER_STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22261);}while(r); +do{ +goto LABEL_SREF; +if(!qbevent)break;evnt(22261);}while(r); +} +S_29810:; +if ((-(*_SUB_SETREFER_LONG_T==*__LONG_SINGLETYPE))||new_error){ +if(qbevent){evnt(22262);if(r)goto S_29810;} +do{ +qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("SINGLE_",7)),_SUB_SETREFER_STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22262);}while(r); +do{ +goto LABEL_SREF; +if(!qbevent)break;evnt(22262);}while(r); +} +S_29814:; +if ((-(*_SUB_SETREFER_LONG_T==*__LONG_DOUBLETYPE))||new_error){ +if(qbevent){evnt(22263);if(r)goto S_29814;} +do{ +qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("DOUBLE_",7)),_SUB_SETREFER_STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22263);}while(r); +do{ +goto LABEL_SREF; +if(!qbevent)break;evnt(22263);}while(r); +} +S_29818:; +if ((-(*_SUB_SETREFER_LONG_T==*__LONG_FLOATTYPE))||new_error){ +if(qbevent){evnt(22264);if(r)goto S_29818;} +do{ +qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("FLOAT_",6)),_SUB_SETREFER_STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22264);}while(r); +do{ +goto LABEL_SREF; +if(!qbevent)break;evnt(22264);}while(r); +} +S_29822:; +if ((-(*_SUB_SETREFER_LONG_T==*__LONG_OFFSETTYPE))||new_error){ +if(qbevent){evnt(22265);if(r)goto S_29822;} +do{ +qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("OFFSET_",7)),_SUB_SETREFER_STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22265);}while(r); +do{ +goto LABEL_SREF; +if(!qbevent)break;evnt(22265);}while(r); +} +S_29826:; +if ((-(*_SUB_SETREFER_LONG_T==*__LONG_UOFFSETTYPE))||new_error){ +if(qbevent){evnt(22266);if(r)goto S_29826;} +do{ +qbs_set(_SUB_SETREFER_STRING_R,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*",1),FUNC_SCOPE()),qbs_new_txt_len("UOFFSET_",8)),_SUB_SETREFER_STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22266);}while(r); +do{ +goto LABEL_SREF; +if(!qbevent)break;evnt(22266);}while(r); +} +LABEL_SREF:; +if(qbevent){evnt(22267);r=0;} +do{ +*_SUB_SETREFER_LONG_T2=*_SUB_SETREFER_LONG_T-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(22268);}while(r); +S_29831:; +if ((-(*_SUB_SETREFER_LONG_METHOD== 0 ))||new_error){ +if(qbevent){evnt(22269);if(r)goto S_29831;} +do{ +qbs_set(_SUB_SETREFER_STRING_E,FUNC_EVALUATETOTYP(_SUB_SETREFER_STRING_E,_SUB_SETREFER_LONG_T2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22269);}while(r); +} +S_29834:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(22270);if(r)goto S_29834;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22270);}while(r); +} +do{ +qbs_set(_SUB_SETREFER_STRING_L,qbs_add(qbs_add(qbs_add(_SUB_SETREFER_STRING_R,qbs_new_txt_len("=",1)),_SUB_SETREFER_STRING_E),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22271);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass3175=*__LONG_MAINTXTBUF),_SUB_SETREFER_STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22272);}while(r); +S_29839:; +if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||new_error){ +if(qbevent){evnt(22273);if(r)goto S_29839;} +do{ +SUB_WRITEBUFLINE(&(pass3176=*__LONG_MAINTXTBUF),qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22273);}while(r); +do{ +*__INTEGER_STRINGPROCESSINGHAPPENED= 0 ; +if(!qbevent)break;evnt(22273);}while(r); +} +S_29843:; +if ((*__INTEGER_ARRAYPROCESSINGHAPPENED)||new_error){ +if(qbevent){evnt(22274);if(r)goto S_29843;} +do{ +*__INTEGER_ARRAYPROCESSINGHAPPENED= 0 ; +if(!qbevent)break;evnt(22274);}while(r); +} +do{ +qbs_set(__STRING_TLAYOUT,_SUB_SETREFER_STRING_TL); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22275);}while(r); +S_29847:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_SETREFER_STRING_R, 1 ),qbs_new_txt_len("*",1))))||new_error){ +if(qbevent){evnt(22277);if(r)goto S_29847;} +do{ +qbs_set(_SUB_SETREFER_STRING_R,func_mid(_SUB_SETREFER_STRING_R, 2 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22277);}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22278);}while(r); +} +do{ +qbs_set(__STRING_TLAYOUT,_SUB_SETREFER_STRING_TL); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22281);}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free41.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +qbs* FUNC_STR2(int32*_FUNC_STR2_LONG_V){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data42.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +qbs_set(_FUNC_STR2_STRING_STR2,qbs__trim(qbs_str((int32)(*_FUNC_STR2_LONG_V)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22285);}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free42.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_STR2_STRING_STR2);return _FUNC_STR2_STRING_STR2; +} +qbs* FUNC_STR2U64(uint64*_FUNC_STR2U64_UINTEGER64_V){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data43.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +qbs_set(_FUNC_STR2U64_STRING_STR2U64,qbs_ltrim(qbs_rtrim(qbs_str((uint64)(*_FUNC_STR2U64_UINTEGER64_V))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22289);}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free43.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_STR2U64_STRING_STR2U64);return _FUNC_STR2U64_STRING_STR2U64; +} +qbs* FUNC_STR2I64(int64*_FUNC_STR2I64_INTEGER64_V){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data44.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +qbs_set(_FUNC_STR2I64_STRING_STR2I64,qbs_ltrim(qbs_rtrim(qbs_str((int64)(*_FUNC_STR2I64_INTEGER64_V))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22293);}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free44.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_STR2I64_STRING_STR2I64);return _FUNC_STR2I64_STRING_STR2I64; +} +qbs* FUNC_TYP2CTYP(int32*_FUNC_TYP2CTYP_LONG_T,qbs*_FUNC_TYP2CTYP_STRING_TSTR){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data45.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22297);}while(r); +S_29857:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYP2CTYP_STRING_TSTR,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(22302);if(r)goto S_29857;} +S_29858:; +if (((*_FUNC_TYP2CTYP_LONG_T&*__LONG_ISARRAY))||new_error){ +if(qbevent){evnt(22303);if(r)goto S_29858;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22303);}while(r); +} +S_29861:; +if (((*_FUNC_TYP2CTYP_LONG_T&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(22304);if(r)goto S_29861;} +do{ +qbs_set(_FUNC_TYP2CTYP_STRING_TYP2CTYP,qbs_new_txt_len("qbs",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22304);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22304);}while(r); +} +do{ +*_FUNC_TYP2CTYP_LONG_B=*_FUNC_TYP2CTYP_LONG_T& 511 ; +if(!qbevent)break;evnt(22305);}while(r); +S_29866:; +if (((*_FUNC_TYP2CTYP_LONG_T&*__LONG_ISUDT))||new_error){ +if(qbevent){evnt(22306);if(r)goto S_29866;} +do{ +qbs_set(_FUNC_TYP2CTYP_STRING_TYP2CTYP,qbs_new_txt_len("void",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22306);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22306);}while(r); +} +S_29870:; +if (((*_FUNC_TYP2CTYP_LONG_T&*__LONG_ISOFFSETINBITS))||new_error){ +if(qbevent){evnt(22307);if(r)goto S_29870;} +S_29871:; +if ((-(*_FUNC_TYP2CTYP_LONG_B<= 32 ))||new_error){ +if(qbevent){evnt(22308);if(r)goto S_29871;} +do{ +qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("int32",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22308);}while(r); +}else{ +do{ +qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("int64",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22308);}while(r); +} +S_29876:; +if (((*_FUNC_TYP2CTYP_LONG_T&*__LONG_ISUNSIGNED))||new_error){ +if(qbevent){evnt(22309);if(r)goto S_29876;} +do{ +qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_add(qbs_new_txt_len("u",1),_FUNC_TYP2CTYP_STRING_CTYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22309);}while(r); +} +do{ +qbs_set(_FUNC_TYP2CTYP_STRING_TYP2CTYP,_FUNC_TYP2CTYP_STRING_CTYP); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22310);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22310);}while(r); +} +S_29882:; +if (((*_FUNC_TYP2CTYP_LONG_T&*__LONG_ISFLOAT))||new_error){ +if(qbevent){evnt(22312);if(r)goto S_29882;} +S_29883:; +if ((-(*_FUNC_TYP2CTYP_LONG_B== 32 ))||new_error){ +if(qbevent){evnt(22313);if(r)goto S_29883;} +do{ +qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("float",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22313);}while(r); +} +S_29886:; +if ((-(*_FUNC_TYP2CTYP_LONG_B== 64 ))||new_error){ +if(qbevent){evnt(22314);if(r)goto S_29886;} +do{ +qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("double",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22314);}while(r); +} +S_29889:; +if ((-(*_FUNC_TYP2CTYP_LONG_B== 256 ))||new_error){ +if(qbevent){evnt(22315);if(r)goto S_29889;} +do{ +qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("long double",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22315);}while(r); +} +}else{ +S_29893:; +if ((-(*_FUNC_TYP2CTYP_LONG_B== 8 ))||new_error){ +if(qbevent){evnt(22317);if(r)goto S_29893;} +do{ +qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("int8",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22317);}while(r); +} +S_29896:; +if ((-(*_FUNC_TYP2CTYP_LONG_B== 16 ))||new_error){ +if(qbevent){evnt(22318);if(r)goto S_29896;} +do{ +qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("int16",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22318);}while(r); +} +S_29899:; +if ((-(*_FUNC_TYP2CTYP_LONG_B== 32 ))||new_error){ +if(qbevent){evnt(22319);if(r)goto S_29899;} +do{ +qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("int32",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22319);}while(r); +} +S_29902:; +if ((-(*_FUNC_TYP2CTYP_LONG_B== 64 ))||new_error){ +if(qbevent){evnt(22320);if(r)goto S_29902;} +do{ +qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("int64",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22320);}while(r); +} +S_29905:; +if ((*_FUNC_TYP2CTYP_LONG_T&*__LONG_ISOFFSET)||new_error){ +if(qbevent){evnt(22321);if(r)goto S_29905;} +do{ +qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("ptrszint",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22321);}while(r); +} +S_29908:; +if (((*_FUNC_TYP2CTYP_LONG_T&*__LONG_ISUNSIGNED))||new_error){ +if(qbevent){evnt(22322);if(r)goto S_29908;} +do{ +qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_add(qbs_new_txt_len("u",1),_FUNC_TYP2CTYP_STRING_CTYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22322);}while(r); +} +} +S_29912:; +if ((*_FUNC_TYP2CTYP_LONG_T&*__LONG_ISOFFSET)||new_error){ +if(qbevent){evnt(22324);if(r)goto S_29912;} +do{ +qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("ptrszint",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22325);}while(r); +S_29914:; +if (((*_FUNC_TYP2CTYP_LONG_T&*__LONG_ISUNSIGNED))||new_error){ +if(qbevent){evnt(22325);if(r)goto S_29914;} +do{ +qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("uptrszint",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22325);}while(r); +} +} +do{ +qbs_set(_FUNC_TYP2CTYP_STRING_TYP2CTYP,_FUNC_TYP2CTYP_STRING_CTYP); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22327);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22327);}while(r); +} +do{ +qbs_set(_FUNC_TYP2CTYP_STRING_TS,_FUNC_TYP2CTYP_STRING_TSTR); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22330);}while(r); +S_29922:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYP2CTYP_STRING_TS,qbs_new_txt_len("$",1))))||new_error){ +if(qbevent){evnt(22332);if(r)goto S_29922;} +do{ +qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("qbs",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22332);}while(r); +} +S_29925:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYP2CTYP_STRING_TS,qbs_new_txt_len("!",1))))||new_error){ +if(qbevent){evnt(22333);if(r)goto S_29925;} +do{ +qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("float",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22333);}while(r); +} +S_29928:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYP2CTYP_STRING_TS,qbs_new_txt_len("#",1))))||new_error){ +if(qbevent){evnt(22334);if(r)goto S_29928;} +do{ +qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("double",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22334);}while(r); +} +S_29931:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYP2CTYP_STRING_TS,qbs_new_txt_len("##",2))))||new_error){ +if(qbevent){evnt(22335);if(r)goto S_29931;} +do{ +qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("long double",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22335);}while(r); +} +S_29934:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_TYP2CTYP_STRING_TS, 1 ),qbs_new_txt_len("~",1))))||new_error){ +if(qbevent){evnt(22336);if(r)goto S_29934;} +do{ +*_FUNC_TYP2CTYP_LONG_UNSGN= 1 ; +if(!qbevent)break;evnt(22336);}while(r); +do{ +qbs_set(_FUNC_TYP2CTYP_STRING_TS,qbs_right(_FUNC_TYP2CTYP_STRING_TS,_FUNC_TYP2CTYP_STRING_TS->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22336);}while(r); +} +S_29938:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_TYP2CTYP_STRING_TS, 1 ),qbs_new_txt_len("`",1))))||new_error){ +if(qbevent){evnt(22337);if(r)goto S_29938;} +do{ +qbs_set(_FUNC_TYP2CTYP_STRING_N,qbs_right(_FUNC_TYP2CTYP_STRING_TS,_FUNC_TYP2CTYP_STRING_TS->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22338);}while(r); +do{ +*_FUNC_TYP2CTYP_LONG_B= 1 ; +if(!qbevent)break;evnt(22339);}while(r); +S_29941:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_TYP2CTYP_STRING_N,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(22340);if(r)goto S_29941;} +S_29942:; +if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISUINTEGER(_FUNC_TYP2CTYP_STRING_N)== 0 )))||new_error){ +if(qbevent){evnt(22341);if(r)goto S_29942;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Invalid index after _BIT type",29)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22341);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22341);}while(r); +} +do{ +*_FUNC_TYP2CTYP_LONG_B=qbr(func_val(_FUNC_TYP2CTYP_STRING_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22342);}while(r); +S_29947:; +if ((-(*_FUNC_TYP2CTYP_LONG_B> 64 ))||new_error){ +if(qbevent){evnt(22343);if(r)goto S_29947;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Invalid index after _BIT type",29)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22343);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22343);}while(r); +} +} +S_29952:; +if ((-(*_FUNC_TYP2CTYP_LONG_B<= 32 ))||new_error){ +if(qbevent){evnt(22345);if(r)goto S_29952;} +do{ +qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("int32",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22345);}while(r); +}else{ +do{ +qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("int64",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22345);}while(r); +} +S_29957:; +if ((*_FUNC_TYP2CTYP_LONG_UNSGN)||new_error){ +if(qbevent){evnt(22346);if(r)goto S_29957;} +do{ +qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_add(qbs_new_txt_len("u",1),_FUNC_TYP2CTYP_STRING_CTYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22346);}while(r); +} +do{ +qbs_set(_FUNC_TYP2CTYP_STRING_TYP2CTYP,_FUNC_TYP2CTYP_STRING_CTYP); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22347);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22347);}while(r); +} +S_29963:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYP2CTYP_STRING_TS,qbs_new_txt_len("%&",2))))||new_error){ +if(qbevent){evnt(22349);if(r)goto S_29963;} +do{ +qbs_set(_FUNC_TYP2CTYP_STRING_TYP2CTYP,qbs_new_txt_len("ptrszint",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22350);}while(r); +S_29965:; +if (((*_FUNC_TYP2CTYP_LONG_T&*__LONG_ISUNSIGNED))||new_error){ +if(qbevent){evnt(22350);if(r)goto S_29965;} +do{ +qbs_set(_FUNC_TYP2CTYP_STRING_TYP2CTYP,qbs_new_txt_len("uptrszint",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22350);}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22351);}while(r); +} +S_29970:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYP2CTYP_STRING_TS,qbs_new_txt_len("%%",2))))||new_error){ +if(qbevent){evnt(22353);if(r)goto S_29970;} +do{ +qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("int8",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22353);}while(r); +} +S_29973:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYP2CTYP_STRING_TS,qbs_new_txt_len("%",1))))||new_error){ +if(qbevent){evnt(22354);if(r)goto S_29973;} +do{ +qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("int16",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22354);}while(r); +} +S_29976:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYP2CTYP_STRING_TS,qbs_new_txt_len("&",1))))||new_error){ +if(qbevent){evnt(22355);if(r)goto S_29976;} +do{ +qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("int32",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22355);}while(r); +} +S_29979:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYP2CTYP_STRING_TS,qbs_new_txt_len("&&",2))))||new_error){ +if(qbevent){evnt(22356);if(r)goto S_29979;} +do{ +qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("int64",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22356);}while(r); +} +S_29982:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_TYP2CTYP_STRING_CTYP,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(22357);if(r)goto S_29982;} +S_29983:; +if ((*_FUNC_TYP2CTYP_LONG_UNSGN)||new_error){ +if(qbevent){evnt(22358);if(r)goto S_29983;} +do{ +qbs_set(_FUNC_TYP2CTYP_STRING_CTYP,qbs_add(qbs_new_txt_len("u",1),_FUNC_TYP2CTYP_STRING_CTYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22358);}while(r); +} +do{ +qbs_set(_FUNC_TYP2CTYP_STRING_TYP2CTYP,_FUNC_TYP2CTYP_STRING_CTYP); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22359);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22359);}while(r); +} +do{ +qbs_set(_FUNC_TYP2CTYP_STRING_S,FUNC_TYPE2SYMBOL(_FUNC_TYP2CTYP_STRING_TSTR)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22362);}while(r); +S_29990:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(22363);if(r)goto S_29990;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22363);}while(r); +} +S_29993:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_TYP2CTYP_STRING_S->len))||new_error){ +if(qbevent){evnt(22364);if(r)goto S_29993;} +do{ +qbs_set(_FUNC_TYP2CTYP_STRING_TYP2CTYP,FUNC_TYP2CTYP(&(pass3181= 0 ),_FUNC_TYP2CTYP_STRING_S)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22365);}while(r); +S_29995:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(22366);if(r)goto S_29995;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22366);}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22367);}while(r); +} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Invalid type",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22370);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22370);}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free45.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_TYP2CTYP_STRING_TYP2CTYP);return _FUNC_TYP2CTYP_STRING_TYP2CTYP; +} +qbs* FUNC_TYPE2SYMBOL(qbs*_FUNC_TYPE2SYMBOL_STRING_TYP){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data46.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_TYP); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22375);}while(r); +S_30003:; +fornext_value3184= 1 ; +fornext_finalvalue3184=_FUNC_TYPE2SYMBOL_STRING_T->len; +fornext_step3184= 1 ; +if (fornext_step3184<0) fornext_step_negative3184=1; else fornext_step_negative3184=0; +if (new_error) goto fornext_error3184; +goto fornext_entrylabel3184; +while(1){ +fornext_value3184=fornext_step3184+(*_FUNC_TYPE2SYMBOL_LONG_I); +fornext_entrylabel3184: +*_FUNC_TYPE2SYMBOL_LONG_I=fornext_value3184; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative3184){ +if (fornext_value3184fornext_finalvalue3184) break; +} +fornext_error3184:; +if(qbevent){evnt(22376);if(r)goto S_30003;} +S_30004:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_TYPE2SYMBOL_STRING_T,*_FUNC_TYPE2SYMBOL_LONG_I, 1 ,0|1),__STRING1_SP)))||new_error){ +if(qbevent){evnt(22377);if(r)goto S_30004;} +do{ +sub_mid(_FUNC_TYPE2SYMBOL_STRING_T,*_FUNC_TYPE2SYMBOL_LONG_I, 1 ,qbs_new_txt_len(" ",1),1); +if(!qbevent)break;evnt(22377);}while(r); +} +fornext_continue_3183:; +} +fornext_exit_3183:; +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("Cannot convert type (",21),_FUNC_TYPE2SYMBOL_STRING_TYP),qbs_new_txt_len(") to symbol",11))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22379);}while(r); +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("INTEGER",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22381);}while(r); +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("%",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22381);}while(r); +S_30011:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2)))||new_error){ +if(qbevent){evnt(22381);if(r)goto S_30011;} +do{ +goto LABEL_T2SFOUND; +if(!qbevent)break;evnt(22381);}while(r); +} +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("LONG",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22382);}while(r); +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("&",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22382);}while(r); +S_30016:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2)))||new_error){ +if(qbevent){evnt(22382);if(r)goto S_30016;} +do{ +goto LABEL_T2SFOUND; +if(!qbevent)break;evnt(22382);}while(r); +} +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("SINGLE",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22383);}while(r); +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("!",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22383);}while(r); +S_30021:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2)))||new_error){ +if(qbevent){evnt(22383);if(r)goto S_30021;} +do{ +goto LABEL_T2SFOUND; +if(!qbevent)break;evnt(22383);}while(r); +} +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("DOUBLE",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22384);}while(r); +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("#",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22384);}while(r); +S_30026:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2)))||new_error){ +if(qbevent){evnt(22384);if(r)goto S_30026;} +do{ +goto LABEL_T2SFOUND; +if(!qbevent)break;evnt(22384);}while(r); +} +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("_BYTE",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22386);}while(r); +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("%%",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22386);}while(r); +S_30031:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2)))||new_error){ +if(qbevent){evnt(22386);if(r)goto S_30031;} +do{ +goto LABEL_T2SFOUND; +if(!qbevent)break;evnt(22386);}while(r); +} +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("BYTE",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22387);}while(r); +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("%%",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22387);}while(r); +S_30036:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_QB64PREFIX_SET== 1 ))&(qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2))))||new_error){ +if(qbevent){evnt(22387);if(r)goto S_30036;} +do{ +goto LABEL_T2SFOUND; +if(!qbevent)break;evnt(22387);}while(r); +} +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("_UNSIGNED LONG",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22389);}while(r); +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("~&",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22389);}while(r); +S_30041:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2)))||new_error){ +if(qbevent){evnt(22389);if(r)goto S_30041;} +do{ +goto LABEL_T2SFOUND; +if(!qbevent)break;evnt(22389);}while(r); +} +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("UNSIGNED LONG",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22390);}while(r); +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("~&",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22390);}while(r); +S_30046:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_QB64PREFIX_SET== 1 ))&(qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2))))||new_error){ +if(qbevent){evnt(22390);if(r)goto S_30046;} +do{ +goto LABEL_T2SFOUND; +if(!qbevent)break;evnt(22390);}while(r); +} +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("_UNSIGNED INTEGER",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22392);}while(r); +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("~%",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22392);}while(r); +S_30051:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2)))||new_error){ +if(qbevent){evnt(22392);if(r)goto S_30051;} +do{ +goto LABEL_T2SFOUND; +if(!qbevent)break;evnt(22392);}while(r); +} +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("UNSIGNED INTEGER",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22393);}while(r); +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("~%",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22393);}while(r); +S_30056:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_QB64PREFIX_SET== 1 ))&(qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2))))||new_error){ +if(qbevent){evnt(22393);if(r)goto S_30056;} +do{ +goto LABEL_T2SFOUND; +if(!qbevent)break;evnt(22393);}while(r); +} +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("_UNSIGNED _BYTE",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22395);}while(r); +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("~%%",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22395);}while(r); +S_30061:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2)))||new_error){ +if(qbevent){evnt(22395);if(r)goto S_30061;} +do{ +goto LABEL_T2SFOUND; +if(!qbevent)break;evnt(22395);}while(r); +} +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("_UNSIGNED BYTE",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22396);}while(r); +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("~%%",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22396);}while(r); +S_30066:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_QB64PREFIX_SET== 1 ))&(qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2))))||new_error){ +if(qbevent){evnt(22396);if(r)goto S_30066;} +do{ +goto LABEL_T2SFOUND; +if(!qbevent)break;evnt(22396);}while(r); +} +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("UNSIGNED _BYTE",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22397);}while(r); +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("~%%",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22397);}while(r); +S_30071:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_QB64PREFIX_SET== 1 ))&(qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2))))||new_error){ +if(qbevent){evnt(22397);if(r)goto S_30071;} +do{ +goto LABEL_T2SFOUND; +if(!qbevent)break;evnt(22397);}while(r); +} +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("UNSIGNED BYTE",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22398);}while(r); +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("~%%",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22398);}while(r); +S_30076:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_QB64PREFIX_SET== 1 ))&(qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2))))||new_error){ +if(qbevent){evnt(22398);if(r)goto S_30076;} +do{ +goto LABEL_T2SFOUND; +if(!qbevent)break;evnt(22398);}while(r); +} +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("_UNSIGNED _OFFSET",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22400);}while(r); +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("~%&",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22400);}while(r); +S_30081:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2)))||new_error){ +if(qbevent){evnt(22400);if(r)goto S_30081;} +do{ +goto LABEL_T2SFOUND; +if(!qbevent)break;evnt(22400);}while(r); +} +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("_UNSIGNED OFFSET",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22401);}while(r); +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("~%&",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22401);}while(r); +S_30086:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_QB64PREFIX_SET== 1 ))&(qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2))))||new_error){ +if(qbevent){evnt(22401);if(r)goto S_30086;} +do{ +goto LABEL_T2SFOUND; +if(!qbevent)break;evnt(22401);}while(r); +} +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("UNSIGNED _OFFSET",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22402);}while(r); +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("~%&",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22402);}while(r); +S_30091:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_QB64PREFIX_SET== 1 ))&(qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2))))||new_error){ +if(qbevent){evnt(22402);if(r)goto S_30091;} +do{ +goto LABEL_T2SFOUND; +if(!qbevent)break;evnt(22402);}while(r); +} +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("UNSIGNED OFFSET",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22403);}while(r); +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("~%&",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22403);}while(r); +S_30096:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_QB64PREFIX_SET== 1 ))&(qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2))))||new_error){ +if(qbevent){evnt(22403);if(r)goto S_30096;} +do{ +goto LABEL_T2SFOUND; +if(!qbevent)break;evnt(22403);}while(r); +} +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("_UNSIGNED _INTEGER64",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22405);}while(r); +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("~&&",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22405);}while(r); +S_30101:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2)))||new_error){ +if(qbevent){evnt(22405);if(r)goto S_30101;} +do{ +goto LABEL_T2SFOUND; +if(!qbevent)break;evnt(22405);}while(r); +} +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("_UNSIGNED INTEGER64",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22406);}while(r); +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("~&&",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22406);}while(r); +S_30106:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_QB64PREFIX_SET== 1 ))&(qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2))))||new_error){ +if(qbevent){evnt(22406);if(r)goto S_30106;} +do{ +goto LABEL_T2SFOUND; +if(!qbevent)break;evnt(22406);}while(r); +} +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("UNSIGNED _INTEGER64",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22407);}while(r); +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("~&&",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22407);}while(r); +S_30111:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_QB64PREFIX_SET== 1 ))&(qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2))))||new_error){ +if(qbevent){evnt(22407);if(r)goto S_30111;} +do{ +goto LABEL_T2SFOUND; +if(!qbevent)break;evnt(22407);}while(r); +} +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("UNSIGNED INTEGER64",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22408);}while(r); +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("~&&",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22408);}while(r); +S_30116:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_QB64PREFIX_SET== 1 ))&(qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2))))||new_error){ +if(qbevent){evnt(22408);if(r)goto S_30116;} +do{ +goto LABEL_T2SFOUND; +if(!qbevent)break;evnt(22408);}while(r); +} +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("_INTEGER64",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22410);}while(r); +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("&&",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22410);}while(r); +S_30121:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2)))||new_error){ +if(qbevent){evnt(22410);if(r)goto S_30121;} +do{ +goto LABEL_T2SFOUND; +if(!qbevent)break;evnt(22410);}while(r); +} +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("INTEGER64",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22411);}while(r); +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("&&",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22411);}while(r); +S_30126:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_QB64PREFIX_SET== 1 ))&(qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2))))||new_error){ +if(qbevent){evnt(22411);if(r)goto S_30126;} +do{ +goto LABEL_T2SFOUND; +if(!qbevent)break;evnt(22411);}while(r); +} +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("_OFFSET",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22413);}while(r); +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("%&",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22413);}while(r); +S_30131:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2)))||new_error){ +if(qbevent){evnt(22413);if(r)goto S_30131;} +do{ +goto LABEL_T2SFOUND; +if(!qbevent)break;evnt(22413);}while(r); +} +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("OFFSET",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22414);}while(r); +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("%&",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22414);}while(r); +S_30136:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_QB64PREFIX_SET== 1 ))&(qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2))))||new_error){ +if(qbevent){evnt(22414);if(r)goto S_30136;} +do{ +goto LABEL_T2SFOUND; +if(!qbevent)break;evnt(22414);}while(r); +} +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("_FLOAT",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22416);}while(r); +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("##",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22416);}while(r); +S_30141:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2)))||new_error){ +if(qbevent){evnt(22416);if(r)goto S_30141;} +do{ +goto LABEL_T2SFOUND; +if(!qbevent)break;evnt(22416);}while(r); +} +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("FLOAT",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22417);}while(r); +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("##",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22417);}while(r); +S_30146:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_QB64PREFIX_SET== 1 ))&(qbs_equal(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2))))||new_error){ +if(qbevent){evnt(22417);if(r)goto S_30146;} +do{ +goto LABEL_T2SFOUND; +if(!qbevent)break;evnt(22417);}while(r); +} +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("STRING",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22420);}while(r); +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22420);}while(r); +S_30151:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2->len),_FUNC_TYPE2SYMBOL_STRING_T2)))||new_error){ +if(qbevent){evnt(22420);if(r)goto S_30151;} +do{ +goto LABEL_T2SFOUND; +if(!qbevent)break;evnt(22420);}while(r); +} +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("_UNSIGNED _BIT",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22421);}while(r); +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("~`1",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22421);}while(r); +S_30156:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2->len),_FUNC_TYPE2SYMBOL_STRING_T2)))||new_error){ +if(qbevent){evnt(22421);if(r)goto S_30156;} +do{ +goto LABEL_T2SFOUND; +if(!qbevent)break;evnt(22421);}while(r); +} +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("_UNSIGNED BIT",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22422);}while(r); +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("~`1",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22422);}while(r); +S_30161:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_QB64PREFIX_SET== 1 ))&(qbs_equal(qbs_left(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2->len),_FUNC_TYPE2SYMBOL_STRING_T2))))||new_error){ +if(qbevent){evnt(22422);if(r)goto S_30161;} +do{ +goto LABEL_T2SFOUND; +if(!qbevent)break;evnt(22422);}while(r); +} +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("UNSIGNED _BIT",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22423);}while(r); +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("~`1",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22423);}while(r); +S_30166:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_QB64PREFIX_SET== 1 ))&(qbs_equal(qbs_left(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2->len),_FUNC_TYPE2SYMBOL_STRING_T2))))||new_error){ +if(qbevent){evnt(22423);if(r)goto S_30166;} +do{ +goto LABEL_T2SFOUND; +if(!qbevent)break;evnt(22423);}while(r); +} +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("UNSIGNED BIT",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22424);}while(r); +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("~`1",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22424);}while(r); +S_30171:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_QB64PREFIX_SET== 1 ))&(qbs_equal(qbs_left(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2->len),_FUNC_TYPE2SYMBOL_STRING_T2))))||new_error){ +if(qbevent){evnt(22424);if(r)goto S_30171;} +do{ +goto LABEL_T2SFOUND; +if(!qbevent)break;evnt(22424);}while(r); +} +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("_BIT",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22425);}while(r); +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("`1",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22425);}while(r); +S_30176:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2->len),_FUNC_TYPE2SYMBOL_STRING_T2)))||new_error){ +if(qbevent){evnt(22425);if(r)goto S_30176;} +do{ +goto LABEL_T2SFOUND; +if(!qbevent)break;evnt(22425);}while(r); +} +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_T2,qbs_new_txt_len("BIT",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22426);}while(r); +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("`1",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22426);}while(r); +S_30181:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_QB64PREFIX_SET== 1 ))&(qbs_equal(qbs_left(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T2->len),_FUNC_TYPE2SYMBOL_STRING_T2))))||new_error){ +if(qbevent){evnt(22426);if(r)goto S_30181;} +do{ +goto LABEL_T2SFOUND; +if(!qbevent)break;evnt(22426);}while(r); +} +do{ +SUB_GIVE_ERROR(_FUNC_TYPE2SYMBOL_STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22428);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22428);}while(r); +LABEL_T2SFOUND:; +if(qbevent){evnt(22429);r=0;} +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_TYPE2SYMBOL,_FUNC_TYPE2SYMBOL_STRING_S); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22430);}while(r); +S_30187:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_TYPE2SYMBOL_STRING_T2->len!=_FUNC_TYPE2SYMBOL_STRING_T->len)))||new_error){ +if(qbevent){evnt(22431);if(r)goto S_30187;} +S_30188:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("$",1)))&(qbs_notequal(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("~`1",3)))&(qbs_notequal(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("`1",2)))))||new_error){ +if(qbevent){evnt(22432);if(r)goto S_30188;} +do{ +SUB_GIVE_ERROR(_FUNC_TYPE2SYMBOL_STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22432);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22432);}while(r); +} +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_T,qbs_right(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T->len-_FUNC_TYPE2SYMBOL_STRING_T2->len)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22433);}while(r); +S_30193:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(_FUNC_TYPE2SYMBOL_STRING_T, 3 ),qbs_new_txt_len(" * ",3))))||new_error){ +if(qbevent){evnt(22434);if(r)goto S_30193;} +do{ +SUB_GIVE_ERROR(_FUNC_TYPE2SYMBOL_STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22434);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22434);}while(r); +} +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_T,qbs_right(_FUNC_TYPE2SYMBOL_STRING_T,_FUNC_TYPE2SYMBOL_STRING_T->len- 3 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22435);}while(r); +S_30198:; +if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISUINTEGER(_FUNC_TYPE2SYMBOL_STRING_T)== 0 )))||new_error){ +if(qbevent){evnt(22436);if(r)goto S_30198;} +do{ +SUB_GIVE_ERROR(_FUNC_TYPE2SYMBOL_STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22436);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22436);}while(r); +} +do{ +*_FUNC_TYPE2SYMBOL_LONG_V=qbr(func_val(_FUNC_TYPE2SYMBOL_STRING_T)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22437);}while(r); +S_30203:; +if ((-(*_FUNC_TYPE2SYMBOL_LONG_V== 0 ))||new_error){ +if(qbevent){evnt(22438);if(r)goto S_30203;} +do{ +SUB_GIVE_ERROR(_FUNC_TYPE2SYMBOL_STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22438);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22438);}while(r); +} +S_30207:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("$",1)))&(-(*_FUNC_TYPE2SYMBOL_LONG_V> 64 ))))||new_error){ +if(qbevent){evnt(22439);if(r)goto S_30207;} +do{ +SUB_GIVE_ERROR(_FUNC_TYPE2SYMBOL_STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22439);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22439);}while(r); +} +S_30211:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPE2SYMBOL_STRING_S,qbs_new_txt_len("$",1))))||new_error){ +if(qbevent){evnt(22440);if(r)goto S_30211;} +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_add(_FUNC_TYPE2SYMBOL_STRING_S,FUNC_STR2(_FUNC_TYPE2SYMBOL_LONG_V))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22441);}while(r); +}else{ +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_S,qbs_add(qbs_left(_FUNC_TYPE2SYMBOL_STRING_S,_FUNC_TYPE2SYMBOL_STRING_S->len- 1 ),FUNC_STR2(_FUNC_TYPE2SYMBOL_LONG_V))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22443);}while(r); +} +do{ +qbs_set(_FUNC_TYPE2SYMBOL_STRING_TYPE2SYMBOL,_FUNC_TYPE2SYMBOL_STRING_S); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22445);}while(r); +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free46.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_TYPE2SYMBOL_STRING_TYPE2SYMBOL);return _FUNC_TYPE2SYMBOL_STRING_TYPE2SYMBOL; +} +int32 FUNC_TYPECOMP(int32*_FUNC_TYPECOMP_LONG_TYP){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data47.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +*_FUNC_TYPECOMP_LONG_TYP2=*_FUNC_TYPECOMP_LONG_TYP; +if(!qbevent)break;evnt(22451);}while(r); +S_30219:; +if (((*_FUNC_TYPECOMP_LONG_TYP2&*__LONG_ISINCONVENTIONALMEMORY))||new_error){ +if(qbevent){evnt(22452);if(r)goto S_30219;} +do{ +*_FUNC_TYPECOMP_LONG_TYP2=*_FUNC_TYPECOMP_LONG_TYP2-*__LONG_ISINCONVENTIONALMEMORY; +if(!qbevent)break;evnt(22452);}while(r); +} +do{ +*_FUNC_TYPECOMP_LONG_TYPECOMP=*_FUNC_TYPECOMP_LONG_TYP2; +if(!qbevent)break;evnt(22453);}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free47.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +return *_FUNC_TYPECOMP_LONG_TYPECOMP; +} +int32 FUNC_TYPNAME2TYP(qbs*_FUNC_TYPNAME2TYP_STRING_T2){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data48.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +*__LONG_TYPNAME2TYPSIZE= 0 ; +if(!qbevent)break;evnt(22457);}while(r); +do{ +qbs_set(_FUNC_TYPNAME2TYP_STRING_T,_FUNC_TYPNAME2TYP_STRING_T2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22459);}while(r); +do{ +qbs_set(_FUNC_TYPNAME2TYP_STRING_TS,_FUNC_TYPNAME2TYP_STRING_T); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22462);}while(r); +S_30226:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_TS,qbs_new_txt_len("$",1))))||new_error){ +if(qbevent){evnt(22463);if(r)goto S_30226;} +do{ +*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_STRINGTYPE; +if(!qbevent)break;evnt(22463);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22463);}while(r); +} +S_30230:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_TS,qbs_new_txt_len("!",1))))||new_error){ +if(qbevent){evnt(22464);if(r)goto S_30230;} +do{ +*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_SINGLETYPE; +if(!qbevent)break;evnt(22464);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22464);}while(r); +} +S_30234:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_TS,qbs_new_txt_len("#",1))))||new_error){ +if(qbevent){evnt(22465);if(r)goto S_30234;} +do{ +*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_DOUBLETYPE; +if(!qbevent)break;evnt(22465);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22465);}while(r); +} +S_30238:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_TS,qbs_new_txt_len("##",2))))||new_error){ +if(qbevent){evnt(22466);if(r)goto S_30238;} +do{ +*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_FLOATTYPE; +if(!qbevent)break;evnt(22466);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22466);}while(r); +} +S_30242:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_TYPNAME2TYP_STRING_TS, 1 ),qbs_new_txt_len("$",1))))||new_error){ +if(qbevent){evnt(22469);if(r)goto S_30242;} +do{ +qbs_set(_FUNC_TYPNAME2TYP_STRING_N,qbs_right(_FUNC_TYPNAME2TYP_STRING_TS,_FUNC_TYPNAME2TYP_STRING_TS->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22470);}while(r); +S_30244:; +if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISUINTEGER(_FUNC_TYPNAME2TYP_STRING_N)== 0 )))||new_error){ +if(qbevent){evnt(22471);if(r)goto S_30244;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Invalid index after STRING * type",33)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22471);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22471);}while(r); +} +do{ +*_FUNC_TYPNAME2TYP_LONG_B=qbr(func_val(_FUNC_TYPNAME2TYP_STRING_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22472);}while(r); +S_30249:; +if ((-(*_FUNC_TYPNAME2TYP_LONG_B== 0 ))||new_error){ +if(qbevent){evnt(22473);if(r)goto S_30249;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Invalid index after STRING * type",33)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22473);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22473);}while(r); +} +do{ +*__LONG_TYPNAME2TYPSIZE=*_FUNC_TYPNAME2TYP_LONG_B; +if(!qbevent)break;evnt(22474);}while(r); +do{ +*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_STRINGTYPE+*__LONG_ISFIXEDLENGTH; +if(!qbevent)break;evnt(22475);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22476);}while(r); +} +S_30257:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_TYPNAME2TYP_STRING_TS, 1 ),qbs_new_txt_len("~",1))))||new_error){ +if(qbevent){evnt(22480);if(r)goto S_30257;} +do{ +*_FUNC_TYPNAME2TYP_LONG_UNSGN= 1 ; +if(!qbevent)break;evnt(22480);}while(r); +do{ +qbs_set(_FUNC_TYPNAME2TYP_STRING_TS,qbs_right(_FUNC_TYPNAME2TYP_STRING_TS,_FUNC_TYPNAME2TYP_STRING_TS->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22480);}while(r); +} +S_30261:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_TYPNAME2TYP_STRING_TS, 1 ),qbs_new_txt_len("`",1))))||new_error){ +if(qbevent){evnt(22483);if(r)goto S_30261;} +do{ +qbs_set(_FUNC_TYPNAME2TYP_STRING_N,qbs_right(_FUNC_TYPNAME2TYP_STRING_TS,_FUNC_TYPNAME2TYP_STRING_TS->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22484);}while(r); +do{ +*_FUNC_TYPNAME2TYP_LONG_B= 1 ; +if(!qbevent)break;evnt(22485);}while(r); +S_30264:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_TYPNAME2TYP_STRING_N,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(22486);if(r)goto S_30264;} +S_30265:; +if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISUINTEGER(_FUNC_TYPNAME2TYP_STRING_N)== 0 )))||new_error){ +if(qbevent){evnt(22487);if(r)goto S_30265;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Invalid index after _BIT type",29)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22487);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22487);}while(r); +} +do{ +*_FUNC_TYPNAME2TYP_LONG_B=qbr(func_val(_FUNC_TYPNAME2TYP_STRING_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22488);}while(r); +S_30270:; +if ((-(*_FUNC_TYPNAME2TYP_LONG_B> 64 ))||new_error){ +if(qbevent){evnt(22489);if(r)goto S_30270;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Invalid index after _BIT type",29)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22489);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22489);}while(r); +} +} +S_30275:; +if ((*_FUNC_TYPNAME2TYP_LONG_UNSGN)||new_error){ +if(qbevent){evnt(22491);if(r)goto S_30275;} +do{ +*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_UBITTYPE+(*_FUNC_TYPNAME2TYP_LONG_B- 1 ); +if(!qbevent)break;evnt(22491);}while(r); +}else{ +do{ +*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_BITTYPE+(*_FUNC_TYPNAME2TYP_LONG_B- 1 ); +if(!qbevent)break;evnt(22491);}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22492);}while(r); +} +do{ +*_FUNC_TYPNAME2TYP_LONG_T= 0 ; +if(!qbevent)break;evnt(22495);}while(r); +S_30283:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_TS,qbs_new_txt_len("%%",2))))||new_error){ +if(qbevent){evnt(22496);if(r)goto S_30283;} +do{ +*_FUNC_TYPNAME2TYP_LONG_T=*__LONG_BYTETYPE; +if(!qbevent)break;evnt(22496);}while(r); +} +S_30286:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_TS,qbs_new_txt_len("%",1))))||new_error){ +if(qbevent){evnt(22497);if(r)goto S_30286;} +do{ +*_FUNC_TYPNAME2TYP_LONG_T=*__LONG_INTEGERTYPE; +if(!qbevent)break;evnt(22497);}while(r); +} +S_30289:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_TS,qbs_new_txt_len("&",1))))||new_error){ +if(qbevent){evnt(22498);if(r)goto S_30289;} +do{ +*_FUNC_TYPNAME2TYP_LONG_T=*__LONG_LONGTYPE; +if(!qbevent)break;evnt(22498);}while(r); +} +S_30292:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_TS,qbs_new_txt_len("&&",2))))||new_error){ +if(qbevent){evnt(22499);if(r)goto S_30292;} +do{ +*_FUNC_TYPNAME2TYP_LONG_T=*__LONG_INTEGER64TYPE; +if(!qbevent)break;evnt(22499);}while(r); +} +S_30295:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_TS,qbs_new_txt_len("%&",2))))||new_error){ +if(qbevent){evnt(22500);if(r)goto S_30295;} +do{ +*_FUNC_TYPNAME2TYP_LONG_T=*__LONG_OFFSETTYPE; +if(!qbevent)break;evnt(22500);}while(r); +} +S_30298:; +if ((*_FUNC_TYPNAME2TYP_LONG_T)||new_error){ +if(qbevent){evnt(22502);if(r)goto S_30298;} +S_30299:; +if ((*_FUNC_TYPNAME2TYP_LONG_UNSGN)||new_error){ +if(qbevent){evnt(22503);if(r)goto S_30299;} +do{ +*_FUNC_TYPNAME2TYP_LONG_T=*_FUNC_TYPNAME2TYP_LONG_T+*__LONG_ISUNSIGNED; +if(!qbevent)break;evnt(22503);}while(r); +} +do{ +*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*_FUNC_TYPNAME2TYP_LONG_T; +if(!qbevent)break;evnt(22504);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22504);}while(r); +} +S_30305:; +fornext_value3204= 1 ; +fornext_finalvalue3204=_FUNC_TYPNAME2TYP_STRING_T->len; +fornext_step3204= 1 ; +if (fornext_step3204<0) fornext_step_negative3204=1; else fornext_step_negative3204=0; +if (new_error) goto fornext_error3204; +goto fornext_entrylabel3204; +while(1){ +fornext_value3204=fornext_step3204+(*_FUNC_TYPNAME2TYP_LONG_I); +fornext_entrylabel3204: +*_FUNC_TYPNAME2TYP_LONG_I=fornext_value3204; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative3204){ +if (fornext_value3204fornext_finalvalue3204) break; +} +fornext_error3204:; +if(qbevent){evnt(22509);if(r)goto S_30305;} +S_30306:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_TYPNAME2TYP_STRING_T,*_FUNC_TYPNAME2TYP_LONG_I, 1 ,0|1),__STRING1_SP)))||new_error){ +if(qbevent){evnt(22510);if(r)goto S_30306;} +do{ +sub_mid(_FUNC_TYPNAME2TYP_STRING_T,*_FUNC_TYPNAME2TYP_LONG_I, 1 ,qbs_new_txt_len(" ",1),1); +if(!qbevent)break;evnt(22510);}while(r); +} +fornext_continue_3203:; +} +fornext_exit_3203:; +S_30310:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("STRING",6))))||new_error){ +if(qbevent){evnt(22512);if(r)goto S_30310;} +do{ +*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_STRINGTYPE; +if(!qbevent)break;evnt(22512);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22512);}while(r); +} +S_30314:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_TYPNAME2TYP_STRING_T, 9 ),qbs_new_txt_len("STRING * ",9))))||new_error){ +if(qbevent){evnt(22514);if(r)goto S_30314;} +do{ +qbs_set(_FUNC_TYPNAME2TYP_STRING_N,qbs_right(_FUNC_TYPNAME2TYP_STRING_T,_FUNC_TYPNAME2TYP_STRING_T->len- 9 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22516);}while(r); +do{ +*_FUNC_TYPNAME2TYP_LONG_HASHFOUND= 0 ; +if(!qbevent)break;evnt(22519);}while(r); +do{ +qbs_set(_FUNC_TYPNAME2TYP_STRING_HASHNAME,_FUNC_TYPNAME2TYP_STRING_N); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22520);}while(r); +do{ +*_FUNC_TYPNAME2TYP_LONG_HASHCHKFLAGS= 1024 ; +if(!qbevent)break;evnt(22521);}while(r); +do{ +*_FUNC_TYPNAME2TYP_LONG_HASHRES=FUNC_HASHFINDREV(_FUNC_TYPNAME2TYP_STRING_HASHNAME,_FUNC_TYPNAME2TYP_LONG_HASHCHKFLAGS,_FUNC_TYPNAME2TYP_LONG_HASHRESFLAGS,_FUNC_TYPNAME2TYP_LONG_HASHRESREF); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22522);}while(r); +S_30320:; +while((*_FUNC_TYPNAME2TYP_LONG_HASHRES)||new_error){ +if(qbevent){evnt(22523);if(r)goto S_30320;} +S_30321:; +if (((-(((int32*)(__ARRAY_LONG_CONSTSUBFUNC[0]))[array_check((*_FUNC_TYPNAME2TYP_LONG_HASHRESREF)-__ARRAY_LONG_CONSTSUBFUNC[4],__ARRAY_LONG_CONSTSUBFUNC[5])]==*__LONG_SUBFUNCN))|(-(((int32*)(__ARRAY_LONG_CONSTSUBFUNC[0]))[array_check((*_FUNC_TYPNAME2TYP_LONG_HASHRESREF)-__ARRAY_LONG_CONSTSUBFUNC[4],__ARRAY_LONG_CONSTSUBFUNC[5])]== 0 )))||new_error){ +if(qbevent){evnt(22524);if(r)goto S_30321;} +S_30322:; +if ((((int32*)(__ARRAY_LONG_CONSTDEFINED[0]))[array_check((*_FUNC_TYPNAME2TYP_LONG_HASHRESREF)-__ARRAY_LONG_CONSTDEFINED[4],__ARRAY_LONG_CONSTDEFINED[5])])||new_error){ +if(qbevent){evnt(22525);if(r)goto S_30322;} +do{ +*_FUNC_TYPNAME2TYP_LONG_HASHFOUND= 1 ; +if(!qbevent)break;evnt(22526);}while(r); +do{ +goto dl_exit_3207; +if(!qbevent)break;evnt(22527);}while(r); +} +} +S_30327:; +if ((-(*_FUNC_TYPNAME2TYP_LONG_HASHRES!= 1 ))||new_error){ +if(qbevent){evnt(22530);if(r)goto S_30327;} +do{ +*_FUNC_TYPNAME2TYP_LONG_HASHRES=FUNC_HASHFINDCONT(_FUNC_TYPNAME2TYP_LONG_HASHRESFLAGS,_FUNC_TYPNAME2TYP_LONG_HASHRESREF); +if(!qbevent)break;evnt(22530);}while(r); +}else{ +do{ +*_FUNC_TYPNAME2TYP_LONG_HASHRES= 0 ; +if(!qbevent)break;evnt(22530);}while(r); +} +dl_continue_3207:; +} +dl_exit_3207:; +S_30333:; +if ((*_FUNC_TYPNAME2TYP_LONG_HASHFOUND)||new_error){ +if(qbevent){evnt(22532);if(r)goto S_30333;} +do{ +*_FUNC_TYPNAME2TYP_LONG_I2=*_FUNC_TYPNAME2TYP_LONG_HASHRESREF; +if(!qbevent)break;evnt(22533);}while(r); +do{ +*_FUNC_TYPNAME2TYP_LONG_T=((int32*)(__ARRAY_LONG_CONSTTYPE[0]))[array_check((*_FUNC_TYPNAME2TYP_LONG_I2)-__ARRAY_LONG_CONSTTYPE[4],__ARRAY_LONG_CONSTTYPE[5])]; +if(!qbevent)break;evnt(22534);}while(r); +S_30336:; +if ((*_FUNC_TYPNAME2TYP_LONG_T&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(22535);if(r)goto S_30336;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected STRING * numeric-constant",34)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22535);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22535);}while(r); +} +S_30340:; +if ((*_FUNC_TYPNAME2TYP_LONG_T&*__LONG_ISFLOAT)||new_error){ +if(qbevent){evnt(22537);if(r)goto S_30340;} +do{ +*_FUNC_TYPNAME2TYP_FLOAT_V=((long double*)(__ARRAY_FLOAT_CONSTFLOAT[0]))[array_check((*_FUNC_TYPNAME2TYP_LONG_I2)-__ARRAY_FLOAT_CONSTFLOAT[4],__ARRAY_FLOAT_CONSTFLOAT[5])]; +if(!qbevent)break;evnt(22538);}while(r); +do{ +*_FUNC_TYPNAME2TYP_INTEGER64_V=qbr(*_FUNC_TYPNAME2TYP_FLOAT_V); +if(!qbevent)break;evnt(22539);}while(r); +do{ +*_FUNC_TYPNAME2TYP_UINTEGER64_V=*_FUNC_TYPNAME2TYP_INTEGER64_V; +if(!qbevent)break;evnt(22540);}while(r); +}else{ +S_30345:; +if ((*_FUNC_TYPNAME2TYP_LONG_T&*__LONG_ISUNSIGNED)||new_error){ +if(qbevent){evnt(22542);if(r)goto S_30345;} +do{ +*_FUNC_TYPNAME2TYP_UINTEGER64_V=((uint64*)(__ARRAY_UINTEGER64_CONSTUINTEGER[0]))[array_check((*_FUNC_TYPNAME2TYP_LONG_I2)-__ARRAY_UINTEGER64_CONSTUINTEGER[4],__ARRAY_UINTEGER64_CONSTUINTEGER[5])]; +if(!qbevent)break;evnt(22543);}while(r); +do{ +*_FUNC_TYPNAME2TYP_INTEGER64_V=*_FUNC_TYPNAME2TYP_UINTEGER64_V; +if(!qbevent)break;evnt(22544);}while(r); +do{ +*_FUNC_TYPNAME2TYP_FLOAT_V=*_FUNC_TYPNAME2TYP_INTEGER64_V; +if(!qbevent)break;evnt(22545);}while(r); +}else{ +do{ +*_FUNC_TYPNAME2TYP_INTEGER64_V=((int64*)(__ARRAY_INTEGER64_CONSTINTEGER[0]))[array_check((*_FUNC_TYPNAME2TYP_LONG_I2)-__ARRAY_INTEGER64_CONSTINTEGER[4],__ARRAY_INTEGER64_CONSTINTEGER[5])]; +if(!qbevent)break;evnt(22547);}while(r); +do{ +*_FUNC_TYPNAME2TYP_FLOAT_V=*_FUNC_TYPNAME2TYP_INTEGER64_V; +if(!qbevent)break;evnt(22548);}while(r); +do{ +*_FUNC_TYPNAME2TYP_UINTEGER64_V=*_FUNC_TYPNAME2TYP_INTEGER64_V; +if(!qbevent)break;evnt(22549);}while(r); +} +} +S_30355:; +if (((-(*_FUNC_TYPNAME2TYP_INTEGER64_V< 1 ))|(-(*_FUNC_TYPNAME2TYP_INTEGER64_V> 9999999999ll )))||new_error){ +if(qbevent){evnt(22552);if(r)goto S_30355;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("STRING * out-of-range constant",30)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22552);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22552);}while(r); +} +do{ +*_FUNC_TYPNAME2TYP_LONG_B=*_FUNC_TYPNAME2TYP_INTEGER64_V; +if(!qbevent)break;evnt(22553);}while(r); +do{ +goto LABEL_CONSTANTLENSTR; +if(!qbevent)break;evnt(22554);}while(r); +} +S_30362:; +if ((qbs_cleanup(qbs_tmp_base,(-(FUNC_ISUINTEGER(_FUNC_TYPNAME2TYP_STRING_N)== 0 ))|(-(_FUNC_TYPNAME2TYP_STRING_N->len> 10 ))))||new_error){ +if(qbevent){evnt(22557);if(r)goto S_30362;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Invalid number/constant after STRING * type",43)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22557);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22557);}while(r); +} +do{ +*_FUNC_TYPNAME2TYP_LONG_B=qbr(func_val(_FUNC_TYPNAME2TYP_STRING_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22558);}while(r); +S_30367:; +if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_TYPNAME2TYP_LONG_B== 0 ))|(-(_FUNC_TYPNAME2TYP_STRING_N->len> 10 ))))||new_error){ +if(qbevent){evnt(22559);if(r)goto S_30367;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Invalid number after STRING * type",34)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22559);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22559);}while(r); +} +LABEL_CONSTANTLENSTR:; +if(qbevent){evnt(22560);r=0;} +do{ +*__LONG_TYPNAME2TYPSIZE=*_FUNC_TYPNAME2TYP_LONG_B; +if(!qbevent)break;evnt(22561);}while(r); +do{ +*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_STRINGTYPE+*__LONG_ISFIXEDLENGTH; +if(!qbevent)break;evnt(22562);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22563);}while(r); +} +S_30375:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("SINGLE",6))))||new_error){ +if(qbevent){evnt(22566);if(r)goto S_30375;} +do{ +*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_SINGLETYPE; +if(!qbevent)break;evnt(22566);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22566);}while(r); +} +S_30379:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("DOUBLE",6))))||new_error){ +if(qbevent){evnt(22567);if(r)goto S_30379;} +do{ +*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_DOUBLETYPE; +if(!qbevent)break;evnt(22567);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22567);}while(r); +} +S_30383:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("_FLOAT",6)))|(((qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("FLOAT",5)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ +if(qbevent){evnt(22568);if(r)goto S_30383;} +do{ +*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_FLOATTYPE; +if(!qbevent)break;evnt(22568);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22568);}while(r); +} +S_30387:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(_FUNC_TYPNAME2TYP_STRING_T, 10 ),qbs_new_txt_len("_UNSIGNED ",10)))|(((qbs_equal(qbs_left(_FUNC_TYPNAME2TYP_STRING_T, 9 ),qbs_new_txt_len("UNSIGNED ",9)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ +if(qbevent){evnt(22569);if(r)goto S_30387;} +do{ +*_FUNC_TYPNAME2TYP_LONG_U= 1 ; +if(!qbevent)break;evnt(22570);}while(r); +do{ +qbs_set(_FUNC_TYPNAME2TYP_STRING_T,func_mid(_FUNC_TYPNAME2TYP_STRING_T,func_instr(NULL,_FUNC_TYPNAME2TYP_STRING_T,func_chr( 32 ),0)+ 1 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22571);}while(r); +} +S_30391:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(_FUNC_TYPNAME2TYP_STRING_T, 4 ),qbs_new_txt_len("_BIT",4)))|(((qbs_equal(qbs_left(_FUNC_TYPNAME2TYP_STRING_T, 3 ),qbs_new_txt_len("BIT",3)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ +if(qbevent){evnt(22573);if(r)goto S_30391;} +S_30392:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("_BIT",4)))|(((qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("BIT",3)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ +if(qbevent){evnt(22574);if(r)goto S_30392;} +S_30393:; +if ((*_FUNC_TYPNAME2TYP_LONG_U)||new_error){ +if(qbevent){evnt(22575);if(r)goto S_30393;} +do{ +*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_UBITTYPE; +if(!qbevent)break;evnt(22575);}while(r); +}else{ +do{ +*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_BITTYPE; +if(!qbevent)break;evnt(22575);}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22576);}while(r); +} +S_30400:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(qbs_left(_FUNC_TYPNAME2TYP_STRING_T, 7 ),qbs_new_txt_len("_BIT * ",7)))&(qbs_notequal(qbs_left(_FUNC_TYPNAME2TYP_STRING_T, 6 ),qbs_new_txt_len("BIT * ",6)))))||new_error){ +if(qbevent){evnt(22579);if(r)goto S_30400;} +do{ +SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Expected ",9),__STRING_QB64PREFIX),qbs_new_txt_len("BIT * number",12))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22579);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22579);}while(r); +} +S_30404:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_TYPNAME2TYP_STRING_T, 4 ),qbs_new_txt_len("_BIT",4))))||new_error){ +if(qbevent){evnt(22581);if(r)goto S_30404;} +do{ +qbs_set(_FUNC_TYPNAME2TYP_STRING_N,qbs_right(_FUNC_TYPNAME2TYP_STRING_T,_FUNC_TYPNAME2TYP_STRING_T->len- 7 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22582);}while(r); +}else{ +do{ +qbs_set(_FUNC_TYPNAME2TYP_STRING_N,qbs_right(_FUNC_TYPNAME2TYP_STRING_T,_FUNC_TYPNAME2TYP_STRING_T->len- 6 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22584);}while(r); +} +S_30409:; +if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISUINTEGER(_FUNC_TYPNAME2TYP_STRING_N)== 0 )))||new_error){ +if(qbevent){evnt(22587);if(r)goto S_30409;} +do{ +SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Invalid size after ",19),__STRING_QB64PREFIX),qbs_new_txt_len("BIT *",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22587);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22587);}while(r); +} +do{ +*_FUNC_TYPNAME2TYP_LONG_B=qbr(func_val(_FUNC_TYPNAME2TYP_STRING_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22588);}while(r); +S_30414:; +if (((-(*_FUNC_TYPNAME2TYP_LONG_B== 0 ))|(-(*_FUNC_TYPNAME2TYP_LONG_B> 64 )))||new_error){ +if(qbevent){evnt(22589);if(r)goto S_30414;} +do{ +SUB_GIVE_ERROR(qbs_add(qbs_add(qbs_new_txt_len("Invalid size after ",19),__STRING_QB64PREFIX),qbs_new_txt_len("BIT *",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22589);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22589);}while(r); +} +do{ +*_FUNC_TYPNAME2TYP_LONG_T=*__LONG_BITTYPE- 1 +*_FUNC_TYPNAME2TYP_LONG_B; +if(!qbevent)break;evnt(22590);}while(r); +S_30419:; +if ((*_FUNC_TYPNAME2TYP_LONG_U)||new_error){ +if(qbevent){evnt(22590);if(r)goto S_30419;} +do{ +*_FUNC_TYPNAME2TYP_LONG_T=*_FUNC_TYPNAME2TYP_LONG_T+*__LONG_ISUNSIGNED; +if(!qbevent)break;evnt(22590);}while(r); +} +do{ +*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*_FUNC_TYPNAME2TYP_LONG_T; +if(!qbevent)break;evnt(22591);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22592);}while(r); +} +do{ +*_FUNC_TYPNAME2TYP_LONG_T= 0 ; +if(!qbevent)break;evnt(22595);}while(r); +S_30426:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("_BYTE",5)))|(((qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("BYTE",4)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ +if(qbevent){evnt(22596);if(r)goto S_30426;} +do{ +*_FUNC_TYPNAME2TYP_LONG_T=*__LONG_BYTETYPE; +if(!qbevent)break;evnt(22596);}while(r); +} +S_30429:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("INTEGER",7))))||new_error){ +if(qbevent){evnt(22597);if(r)goto S_30429;} +do{ +*_FUNC_TYPNAME2TYP_LONG_T=*__LONG_INTEGERTYPE; +if(!qbevent)break;evnt(22597);}while(r); +} +S_30432:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("LONG",4))))||new_error){ +if(qbevent){evnt(22598);if(r)goto S_30432;} +do{ +*_FUNC_TYPNAME2TYP_LONG_T=*__LONG_LONGTYPE; +if(!qbevent)break;evnt(22598);}while(r); +} +S_30435:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("_INTEGER64",10)))|(((qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("INTEGER64",9)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ +if(qbevent){evnt(22599);if(r)goto S_30435;} +do{ +*_FUNC_TYPNAME2TYP_LONG_T=*__LONG_INTEGER64TYPE; +if(!qbevent)break;evnt(22599);}while(r); +} +S_30438:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("_OFFSET",7)))|(((qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("OFFSET",6)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))))||new_error){ +if(qbevent){evnt(22600);if(r)goto S_30438;} +do{ +*_FUNC_TYPNAME2TYP_LONG_T=*__LONG_OFFSETTYPE; +if(!qbevent)break;evnt(22600);}while(r); +} +S_30441:; +if ((*_FUNC_TYPNAME2TYP_LONG_T)||new_error){ +if(qbevent){evnt(22601);if(r)goto S_30441;} +S_30442:; +if ((*_FUNC_TYPNAME2TYP_LONG_U)||new_error){ +if(qbevent){evnt(22602);if(r)goto S_30442;} +do{ +*_FUNC_TYPNAME2TYP_LONG_T=*_FUNC_TYPNAME2TYP_LONG_T+*__LONG_ISUNSIGNED; +if(!qbevent)break;evnt(22602);}while(r); +} +do{ +*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*_FUNC_TYPNAME2TYP_LONG_T; +if(!qbevent)break;evnt(22603);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22604);}while(r); +} +S_30448:; +if ((*_FUNC_TYPNAME2TYP_LONG_U)||new_error){ +if(qbevent){evnt(22606);if(r)goto S_30448;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22606);}while(r); +} +S_30451:; +fornext_value3213= 1 ; +fornext_finalvalue3213=*__LONG_LASTTYPE; +fornext_step3213= 1 ; +if (fornext_step3213<0) fornext_step_negative3213=1; else fornext_step_negative3213=0; +if (new_error) goto fornext_error3213; +goto fornext_entrylabel3213; +while(1){ +fornext_value3213=fornext_step3213+(*_FUNC_TYPNAME2TYP_LONG_I); +fornext_entrylabel3213: +*_FUNC_TYPNAME2TYP_LONG_I=fornext_value3213; +if (fornext_step_negative3213){ +if (fornext_value3213fornext_finalvalue3213) break; +} +fornext_error3213:; +if(qbevent){evnt(22609);if(r)goto S_30451;} +S_30452:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXNAME[0]))[(array_check((*_FUNC_TYPNAME2TYP_LONG_I)-__ARRAY_STRING256_UDTXNAME[4],__ARRAY_STRING256_UDTXNAME[5]))*256],256,1)))))||new_error){ +if(qbevent){evnt(22610);if(r)goto S_30452;} +do{ +*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_ISUDT+*__LONG_ISPOINTER+*_FUNC_TYPNAME2TYP_LONG_I; +if(!qbevent)break;evnt(22611);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22612);}while(r); +S_30455:; +}else{ +if (qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXNAME[0]))[(array_check((*_FUNC_TYPNAME2TYP_LONG_I)-__ARRAY_STRING256_UDTXNAME[4],__ARRAY_STRING256_UDTXNAME[5]))*256],256,1)),qbs_new_txt_len("_MEM",4)))&(qbs_equal(_FUNC_TYPNAME2TYP_STRING_T,qbs_new_txt_len("MEM",3)))&(-(*__LONG_QB64PREFIX_SET== 1 )))){ +if(qbevent){evnt(22613);if(r)goto S_30455;} +do{ +*_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP=*__LONG_ISUDT+*__LONG_ISPOINTER+*_FUNC_TYPNAME2TYP_LONG_I; +if(!qbevent)break;evnt(22614);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22615);}while(r); +} +} +fornext_continue_3212:; +} +fornext_exit_3212:; +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free48.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +return *_FUNC_TYPNAME2TYP_LONG_TYPNAME2TYP; +} +int32 FUNC_UNIQUENUMBER(){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data49.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +*__LONG_UNIQUENUMBERN=*__LONG_UNIQUENUMBERN+ 1 ; +if(!qbevent)break;evnt(22623);}while(r); +do{ +*_FUNC_UNIQUENUMBER_LONG_UNIQUENUMBER=*__LONG_UNIQUENUMBERN; +if(!qbevent)break;evnt(22624);}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free49.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +return *_FUNC_UNIQUENUMBER_LONG_UNIQUENUMBER; +} +int32 FUNC_VALIDLABEL(qbs*_FUNC_VALIDLABEL_STRING_LABEL2){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data50.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +*_FUNC_VALIDLABEL_LONG_CREATE=*__LONG_CREATINGLABEL; +if(!qbevent)break;evnt(22628);}while(r); +do{ +*__LONG_CREATINGLABEL= 0 ; +if(!qbevent)break;evnt(22628);}while(r); +do{ +*_FUNC_VALIDLABEL_LONG_VALIDLABEL= 0 ; +if(!qbevent)break;evnt(22629);}while(r); +S_30465:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_VALIDLABEL_STRING_LABEL2->len== 0 )))||new_error){ +if(qbevent){evnt(22630);if(r)goto S_30465;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22630);}while(r); +} +do{ +qbs_set(_FUNC_VALIDLABEL_STRING_CLABEL,_FUNC_VALIDLABEL_STRING_LABEL2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22631);}while(r); +do{ +qbs_set(_FUNC_VALIDLABEL_STRING_LABEL,qbs_ucase(_FUNC_VALIDLABEL_STRING_LABEL2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22632);}while(r); +do{ +*_FUNC_VALIDLABEL_LONG_N=FUNC_NUMELEMENTS(_FUNC_VALIDLABEL_STRING_LABEL); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22634);}while(r); +S_30471:; +if ((-(*_FUNC_VALIDLABEL_LONG_N== 1 ))||new_error){ +if(qbevent){evnt(22636);if(r)goto S_30471;} +do{ +*_FUNC_VALIDLABEL_LONG_HASHRES=FUNC_HASHFIND(_FUNC_VALIDLABEL_STRING_LABEL,&(pass3216= 8 + 64 + 128 ),_FUNC_VALIDLABEL_LONG_HASHRESFLAGS,_FUNC_VALIDLABEL_LONG_HASHRESREF); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22639);}while(r); +S_30473:; +while((*_FUNC_VALIDLABEL_LONG_HASHRES)||new_error){ +if(qbevent){evnt(22640);if(r)goto S_30473;} +S_30474:; +if ((*_FUNC_VALIDLABEL_LONG_HASHRESFLAGS&( 64 + 128 ))||new_error){ +if(qbevent){evnt(22641);if(r)goto S_30474;} +S_30475:; +if ((*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_VALIDLABEL_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+548)))||new_error){ +if(qbevent){evnt(22642);if(r)goto S_30475;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22642);}while(r); +} +S_30478:; +if ((*_FUNC_VALIDLABEL_LONG_HASHRESFLAGS& 64 )||new_error){ +if(qbevent){evnt(22644);if(r)goto S_30478;} +S_30479:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_VALIDLABEL_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+1613)),256,1))== 32 )))||new_error){ +if(qbevent){evnt(22647);if(r)goto S_30479;} +S_30480:; +if ((-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_VALIDLABEL_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+809))== 0 ))||new_error){ +if(qbevent){evnt(22648);if(r)goto S_30480;} +do{ +*_FUNC_VALIDLABEL_LONG_ONECOMMANDSUB= 1 ; +if(!qbevent)break;evnt(22648);}while(r); +}else{ +do{ +*_FUNC_VALIDLABEL_LONG_ONECOMMANDSUB= 0 ; +if(!qbevent)break;evnt(22648);}while(r); +} +}else{ +S_30486:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_VALIDLABEL_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+1613)),256,1))!= 91 )))||new_error){ +if(qbevent){evnt(22650);if(r)goto S_30486;} +do{ +*_FUNC_VALIDLABEL_LONG_ONECOMMANDSUB= 0 ; +if(!qbevent)break;evnt(22651);}while(r); +}else{ +do{ +*_FUNC_VALIDLABEL_LONG_ONECOMMANDSUB= 1 ; +if(!qbevent)break;evnt(22653);}while(r); +do{ +qbs_set(_FUNC_VALIDLABEL_STRING_A,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_FUNC_VALIDLABEL_LONG_HASHRESREF)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+1613)),256,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22654);}while(r); +do{ +*_FUNC_VALIDLABEL_LONG_B= 1 ; +if(!qbevent)break;evnt(22655);}while(r); +S_30492:; +fornext_value3219= 2 ; +fornext_finalvalue3219=_FUNC_VALIDLABEL_STRING_A->len; +fornext_step3219= 1 ; +if (fornext_step3219<0) fornext_step_negative3219=1; else fornext_step_negative3219=0; +if (new_error) goto fornext_error3219; +goto fornext_entrylabel3219; +while(1){ +fornext_value3219=fornext_step3219+(*_FUNC_VALIDLABEL_LONG_X); +fornext_entrylabel3219: +*_FUNC_VALIDLABEL_LONG_X=fornext_value3219; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative3219){ +if (fornext_value3219fornext_finalvalue3219) break; +} +fornext_error3219:; +if(qbevent){evnt(22656);if(r)goto S_30492;} +do{ +*_FUNC_VALIDLABEL_LONG_A=qbs_asc(_FUNC_VALIDLABEL_STRING_A,*_FUNC_VALIDLABEL_LONG_X); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22657);}while(r); +S_30494:; +if ((-(*_FUNC_VALIDLABEL_LONG_A== 91 ))||new_error){ +if(qbevent){evnt(22658);if(r)goto S_30494;} +do{ +*_FUNC_VALIDLABEL_LONG_B=*_FUNC_VALIDLABEL_LONG_B+ 1 ; +if(!qbevent)break;evnt(22658);}while(r); +} +S_30497:; +if ((-(*_FUNC_VALIDLABEL_LONG_A== 93 ))||new_error){ +if(qbevent){evnt(22659);if(r)goto S_30497;} +do{ +*_FUNC_VALIDLABEL_LONG_B=*_FUNC_VALIDLABEL_LONG_B- 1 ; +if(!qbevent)break;evnt(22659);}while(r); +} +S_30500:; +if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_VALIDLABEL_LONG_B== 0 ))&(-(*_FUNC_VALIDLABEL_LONG_X!=_FUNC_VALIDLABEL_STRING_A->len))))||new_error){ +if(qbevent){evnt(22660);if(r)goto S_30500;} +do{ +*_FUNC_VALIDLABEL_LONG_ONECOMMANDSUB= 0 ; +if(!qbevent)break;evnt(22660);}while(r); +do{ +goto fornext_exit_3218; +if(!qbevent)break;evnt(22660);}while(r); +} +fornext_continue_3218:; +} +fornext_exit_3218:; +} +} +S_30507:; +if (((-(*_FUNC_VALIDLABEL_LONG_CREATE!= 0 ))&(-(*_FUNC_VALIDLABEL_LONG_ONECOMMANDSUB== 1 )))||new_error){ +if(qbevent){evnt(22664);if(r)goto S_30507;} +S_30508:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,__STRING_SUBNAMELABELS,qbs_add(qbs_add(__STRING1_SP,qbs_ucase(_FUNC_VALIDLABEL_STRING_LABEL)),__STRING1_SP),0)== 0 )))||new_error){ +if(qbevent){evnt(22665);if(r)goto S_30508;} +do{ +qbs_set(__STRING_POSSIBLESUBNAMELABELS,qbs_add(qbs_add(__STRING_POSSIBLESUBNAMELABELS,qbs_ucase(_FUNC_VALIDLABEL_STRING_LABEL)),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22665);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22665);}while(r); +} +} +} +}else{ +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22672);}while(r); +} +S_30517:; +if ((-(*_FUNC_VALIDLABEL_LONG_HASHRES!= 1 ))||new_error){ +if(qbevent){evnt(22674);if(r)goto S_30517;} +do{ +*_FUNC_VALIDLABEL_LONG_HASHRES=FUNC_HASHFINDCONT(_FUNC_VALIDLABEL_LONG_HASHRESFLAGS,_FUNC_VALIDLABEL_LONG_HASHRESREF); +if(!qbevent)break;evnt(22674);}while(r); +}else{ +do{ +*_FUNC_VALIDLABEL_LONG_HASHRES= 0 ; +if(!qbevent)break;evnt(22674);}while(r); +} +dl_continue_3217:; +} +dl_exit_3217:; +do{ +qbs_set(_FUNC_VALIDLABEL_STRING_T,_FUNC_VALIDLABEL_STRING_LABEL); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22681);}while(r); +do{ +*_FUNC_VALIDLABEL_LONG_A=qbs_asc(_FUNC_VALIDLABEL_STRING_T); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22683);}while(r); +S_30525:; +if (((((-(*_FUNC_VALIDLABEL_LONG_A>= 48 ))&(-(*_FUNC_VALIDLABEL_LONG_A<= 57 ))))|(-(*_FUNC_VALIDLABEL_LONG_A== 46 )))||new_error){ +if(qbevent){evnt(22684);if(r)goto S_30525;} +do{ +*_FUNC_VALIDLABEL_LONG_X=func_instr(NULL,_FUNC_VALIDLABEL_STRING_T,func_chr( 44 ),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22687);}while(r); +S_30527:; +if ((*_FUNC_VALIDLABEL_LONG_X)||new_error){ +if(qbevent){evnt(22688);if(r)goto S_30527;} +do{ +qbs_set(_FUNC_VALIDLABEL_STRING_T,qbs_right(_FUNC_VALIDLABEL_STRING_T,_FUNC_VALIDLABEL_STRING_T->len-*_FUNC_VALIDLABEL_LONG_X)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22689);}while(r); +} +do{ +qbs_set(_FUNC_VALIDLABEL_STRING_ADDSYMBOL,FUNC_REMOVESYMBOL(_FUNC_VALIDLABEL_STRING_T)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22694);}while(r); +S_30531:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(22695);if(r)goto S_30531;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22695);}while(r); +} +S_30534:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_VALIDLABEL_STRING_ADDSYMBOL->len))||new_error){ +if(qbevent){evnt(22696);if(r)goto S_30534;} +S_30535:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_VALIDLABEL_STRING_ADDSYMBOL,qbs_new_txt_len("$",1),0)))||new_error){ +if(qbevent){evnt(22697);if(r)goto S_30535;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22697);}while(r); +} +S_30538:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(_FUNC_VALIDLABEL_STRING_ADDSYMBOL,qbs_new_txt_len("#",1)))&(qbs_notequal(_FUNC_VALIDLABEL_STRING_ADDSYMBOL,qbs_new_txt_len("!",1)))))||new_error){ +if(qbevent){evnt(22698);if(r)goto S_30538;} +do{ +qbs_set(_FUNC_VALIDLABEL_STRING_ADDSYMBOL,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22698);}while(r); +} +} +S_30542:; +if ((-(*_FUNC_VALIDLABEL_LONG_A== 46 ))||new_error){ +if(qbevent){evnt(22701);if(r)goto S_30542;} +do{ +*_FUNC_VALIDLABEL_LONG_DP= 1 ; +if(!qbevent)break;evnt(22701);}while(r); +} +S_30545:; +fornext_value3225= 2 ; +fornext_finalvalue3225=_FUNC_VALIDLABEL_STRING_T->len; +fornext_step3225= 1 ; +if (fornext_step3225<0) fornext_step_negative3225=1; else fornext_step_negative3225=0; +if (new_error) goto fornext_error3225; +goto fornext_entrylabel3225; +while(1){ +fornext_value3225=fornext_step3225+(*_FUNC_VALIDLABEL_LONG_X); +fornext_entrylabel3225: +*_FUNC_VALIDLABEL_LONG_X=fornext_value3225; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative3225){ +if (fornext_value3225fornext_finalvalue3225) break; +} +fornext_error3225:; +if(qbevent){evnt(22702);if(r)goto S_30545;} +do{ +*_FUNC_VALIDLABEL_LONG_A=qbs_asc(func_mid(_FUNC_VALIDLABEL_STRING_T,*_FUNC_VALIDLABEL_LONG_X, 1 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22703);}while(r); +S_30547:; +if ((-(*_FUNC_VALIDLABEL_LONG_A== 46 ))||new_error){ +if(qbevent){evnt(22704);if(r)goto S_30547;} +do{ +*_FUNC_VALIDLABEL_LONG_DP=*_FUNC_VALIDLABEL_LONG_DP+ 1 ; +if(!qbevent)break;evnt(22704);}while(r); +} +S_30550:; +if (((((-(*_FUNC_VALIDLABEL_LONG_A< 48 ))|(-(*_FUNC_VALIDLABEL_LONG_A> 57 ))))&(-(*_FUNC_VALIDLABEL_LONG_A!= 46 )))||new_error){ +if(qbevent){evnt(22705);if(r)goto S_30550;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22705);}while(r); +} +fornext_continue_3224:; +} +fornext_exit_3224:; +S_30554:; +if ((-(*_FUNC_VALIDLABEL_LONG_DP> 1 ))||new_error){ +if(qbevent){evnt(22707);if(r)goto S_30554;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22707);}while(r); +} +S_30557:; +if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_VALIDLABEL_LONG_DP== 1 ))&(-(_FUNC_VALIDLABEL_STRING_T->len== 1 ))))||new_error){ +if(qbevent){evnt(22708);if(r)goto S_30557;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22708);}while(r); +} +do{ +qbs_set(__STRING_TLAYOUT,qbs_add(_FUNC_VALIDLABEL_STRING_T,_FUNC_VALIDLABEL_STRING_ADDSYMBOL)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22710);}while(r); +do{ +*_FUNC_VALIDLABEL_LONG_I=func_instr(NULL,_FUNC_VALIDLABEL_STRING_T,qbs_new_txt_len(".",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22712);}while(r); +S_30562:; +if ((*_FUNC_VALIDLABEL_LONG_I)||new_error){ +if(qbevent){evnt(22712);if(r)goto S_30562;} +do{ +sub_mid(_FUNC_VALIDLABEL_STRING_T,*_FUNC_VALIDLABEL_LONG_I, 1 ,qbs_new_txt_len("p",1),1); +if(!qbevent)break;evnt(22712);}while(r); +} +S_30565:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_VALIDLABEL_STRING_ADDSYMBOL,qbs_new_txt_len("#",1))))||new_error){ +if(qbevent){evnt(22713);if(r)goto S_30565;} +do{ +qbs_set(_FUNC_VALIDLABEL_STRING_T,qbs_add(_FUNC_VALIDLABEL_STRING_T,qbs_new_txt_len("d",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22713);}while(r); +} +S_30568:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_VALIDLABEL_STRING_ADDSYMBOL,qbs_new_txt_len("!",1))))||new_error){ +if(qbevent){evnt(22714);if(r)goto S_30568;} +do{ +qbs_set(_FUNC_VALIDLABEL_STRING_T,qbs_add(_FUNC_VALIDLABEL_STRING_T,qbs_new_txt_len("s",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22714);}while(r); +} +S_30571:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_VALIDLABEL_STRING_T->len> 40 )))||new_error){ +if(qbevent){evnt(22716);if(r)goto S_30571;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22716);}while(r); +} +do{ +qbs_set(_FUNC_VALIDLABEL_STRING_LABEL2,_FUNC_VALIDLABEL_STRING_T); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22718);}while(r); +do{ +*_FUNC_VALIDLABEL_LONG_VALIDLABEL= 1 ; +if(!qbevent)break;evnt(22719);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22720);}while(r); +} +} +S_30579:; +if ((-((*_FUNC_VALIDLABEL_LONG_N& 1 )== 0 ))||new_error){ +if(qbevent){evnt(22729);if(r)goto S_30579;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22729);}while(r); +} +S_30582:; +fornext_value3230= 2 ; +fornext_finalvalue3230=*_FUNC_VALIDLABEL_LONG_N- 1 ; +fornext_step3230= 2 ; +if (fornext_step3230<0) fornext_step_negative3230=1; else fornext_step_negative3230=0; +if (new_error) goto fornext_error3230; +goto fornext_entrylabel3230; +while(1){ +fornext_value3230=fornext_step3230+(*_FUNC_VALIDLABEL_LONG_NX); +fornext_entrylabel3230: +*_FUNC_VALIDLABEL_LONG_NX=fornext_value3230; +if (fornext_step_negative3230){ +if (fornext_value3230fornext_finalvalue3230) break; +} +fornext_error3230:; +if(qbevent){evnt(22730);if(r)goto S_30582;} +do{ +qbs_set(_FUNC_VALIDLABEL_STRING_A,FUNC_GETELEMENT(_FUNC_VALIDLABEL_STRING_LABEL2,_FUNC_VALIDLABEL_LONG_NX)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22731);}while(r); +S_30584:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_VALIDLABEL_STRING_A,qbs_new_txt_len(".",1))))||new_error){ +if(qbevent){evnt(22732);if(r)goto S_30584;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22732);}while(r); +} +fornext_continue_3229:; +} +fornext_exit_3229:; +do{ +*_FUNC_VALIDLABEL_LONG_C=qbs_asc(_FUNC_VALIDLABEL_STRING_CLABEL); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22736);}while(r); +S_30589:; +if (((-(*_FUNC_VALIDLABEL_LONG_C>= 48 ))&(-(*_FUNC_VALIDLABEL_LONG_C<= 57 )))||new_error){ +if(qbevent){evnt(22736);if(r)goto S_30589;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22736);}while(r); +} +do{ +qbs_set(_FUNC_VALIDLABEL_STRING_LABEL3,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22739);}while(r); +S_30593:; +fornext_value3232= 1 ; +fornext_finalvalue3232=*_FUNC_VALIDLABEL_LONG_N; +fornext_step3232= 2 ; +if (fornext_step3232<0) fornext_step_negative3232=1; else fornext_step_negative3232=0; +if (new_error) goto fornext_error3232; +goto fornext_entrylabel3232; +while(1){ +fornext_value3232=fornext_step3232+(*_FUNC_VALIDLABEL_LONG_NX); +fornext_entrylabel3232: +*_FUNC_VALIDLABEL_LONG_NX=fornext_value3232; +if (fornext_step_negative3232){ +if (fornext_value3232fornext_finalvalue3232) break; +} +fornext_error3232:; +if(qbevent){evnt(22740);if(r)goto S_30593;} +do{ +qbs_set(_FUNC_VALIDLABEL_STRING_LABEL,FUNC_GETELEMENT(_FUNC_VALIDLABEL_STRING_CLABEL,_FUNC_VALIDLABEL_LONG_NX)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22741);}while(r); +S_30595:; +fornext_value3234= 1 ; +fornext_finalvalue3234=_FUNC_VALIDLABEL_STRING_LABEL->len; +fornext_step3234= 1 ; +if (fornext_step3234<0) fornext_step_negative3234=1; else fornext_step_negative3234=0; +if (new_error) goto fornext_error3234; +goto fornext_entrylabel3234; +while(1){ +fornext_value3234=fornext_step3234+(*_FUNC_VALIDLABEL_LONG_X); +fornext_entrylabel3234: +*_FUNC_VALIDLABEL_LONG_X=fornext_value3234; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative3234){ +if (fornext_value3234fornext_finalvalue3234) break; +} +fornext_error3234:; +if(qbevent){evnt(22744);if(r)goto S_30595;} +S_30596:; +if ((qbs_cleanup(qbs_tmp_base,-(((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(_FUNC_VALIDLABEL_STRING_LABEL,*_FUNC_VALIDLABEL_LONG_X))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]== 0 )))||new_error){ +if(qbevent){evnt(22745);if(r)goto S_30596;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22745);}while(r); +} +fornext_continue_3233:; +} +fornext_exit_3233:; +S_30600:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_VALIDLABEL_STRING_LABEL3,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(22749);if(r)goto S_30600;} +do{ +qbs_set(_FUNC_VALIDLABEL_STRING_LABEL3,qbs_ucase(_FUNC_VALIDLABEL_STRING_LABEL)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22749);}while(r); +do{ +qbs_set(__STRING_TLAYOUT,_FUNC_VALIDLABEL_STRING_LABEL); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22749);}while(r); +}else{ +do{ +qbs_set(_FUNC_VALIDLABEL_STRING_LABEL3,qbs_add(qbs_add(_FUNC_VALIDLABEL_STRING_LABEL3,__STRING_FIX046),qbs_ucase(_FUNC_VALIDLABEL_STRING_LABEL))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22749);}while(r); +do{ +qbs_set(__STRING_TLAYOUT,qbs_add(qbs_add(__STRING_TLAYOUT,qbs_new_txt_len(".",1)),_FUNC_VALIDLABEL_STRING_LABEL)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22749);}while(r); +} +fornext_continue_3231:; +} +fornext_exit_3231:; +do{ +*_FUNC_VALIDLABEL_LONG_VALIDLABEL= 1 ; +if(!qbevent)break;evnt(22752);}while(r); +do{ +qbs_set(_FUNC_VALIDLABEL_STRING_LABEL2,_FUNC_VALIDLABEL_STRING_LABEL3); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22753);}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free50.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +return *_FUNC_VALIDLABEL_LONG_VALIDLABEL; +} +void SUB_XEND(){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data51.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +S_30610:; +if ((-(*__LONG_VWATCHON== 1 ))||new_error){ +if(qbevent){evnt(22758);if(r)goto S_30610;} +S_30611:; +if ((((-(((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]== 0 ))|(-(*__INTEGER_CLOSEDMAIN== 0 ))))||new_error){ +if(qbevent){evnt(22760);if(r)goto S_30611;} +do{ +SUB_VWATCHADDLABEL(&(pass3236= 0 ),&(pass3237= -1 )); +if(!qbevent)break;evnt(22760);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass3238=*__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(22761);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass3239=*__LONG_MAINTXTBUF),qbs_new_txt_len("sub_end();",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22763);}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free51.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +void SUB_XFILEPRINT(qbs*_SUB_XFILEPRINT_STRING_A,qbs*_SUB_XFILEPRINT_STRING_CA,int32*_SUB_XFILEPRINT_LONG_N){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data52.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +qbs_set(_SUB_XFILEPRINT_STRING_U,FUNC_STR2(&(pass3242=FUNC_UNIQUENUMBER()))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22767);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass3243=*__LONG_MAINTXTBUF),qbs_new_txt_len("tab_spc_cr_size=2;",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22768);}while(r); +S_30619:; +if ((-(*_SUB_XFILEPRINT_LONG_N== 2 ))||new_error){ +if(qbevent){evnt(22769);if(r)goto S_30619;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected # ... , ...",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22769);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22769);}while(r); +} +do{ +qbs_set(_SUB_XFILEPRINT_STRING_A3,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22770);}while(r); +do{ +*_SUB_XFILEPRINT_LONG_B= 0 ; +if(!qbevent)break;evnt(22771);}while(r); +S_30625:; +fornext_value3245= 3 ; +fornext_finalvalue3245=*_SUB_XFILEPRINT_LONG_N; +fornext_step3245= 1 ; +if (fornext_step3245<0) fornext_step_negative3245=1; else fornext_step_negative3245=0; +if (new_error) goto fornext_error3245; +goto fornext_entrylabel3245; +while(1){ +fornext_value3245=fornext_step3245+(*_SUB_XFILEPRINT_LONG_I); +fornext_entrylabel3245: +*_SUB_XFILEPRINT_LONG_I=fornext_value3245; +if (fornext_step_negative3245){ +if (fornext_value3245fornext_finalvalue3245) break; +} +fornext_error3245:; +if(qbevent){evnt(22772);if(r)goto S_30625;} +do{ +qbs_set(_SUB_XFILEPRINT_STRING_A2,FUNC_GETELEMENT(_SUB_XFILEPRINT_STRING_CA,_SUB_XFILEPRINT_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22773);}while(r); +S_30627:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(22774);if(r)goto S_30627;} +do{ +*_SUB_XFILEPRINT_LONG_B=*_SUB_XFILEPRINT_LONG_B+ 1 ; +if(!qbevent)break;evnt(22774);}while(r); +} +S_30630:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(22775);if(r)goto S_30630;} +do{ +*_SUB_XFILEPRINT_LONG_B=*_SUB_XFILEPRINT_LONG_B- 1 ; +if(!qbevent)break;evnt(22775);}while(r); +} +S_30633:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(",",1)))&(-(*_SUB_XFILEPRINT_LONG_B== 0 ))))||new_error){ +if(qbevent){evnt(22776);if(r)goto S_30633;} +S_30634:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A3,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(22777);if(r)goto S_30634;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected # ... , ...",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22777);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22777);}while(r); +} +do{ +goto LABEL_PRINTGOTFN; +if(!qbevent)break;evnt(22778);}while(r); +} +S_30640:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A3,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(22780);if(r)goto S_30640;} +do{ +qbs_set(_SUB_XFILEPRINT_STRING_A3,_SUB_XFILEPRINT_STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22780);}while(r); +}else{ +do{ +qbs_set(_SUB_XFILEPRINT_STRING_A3,qbs_add(qbs_add(_SUB_XFILEPRINT_STRING_A3,__STRING1_SP),_SUB_XFILEPRINT_STRING_A2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22780);}while(r); +} +fornext_continue_3244:; +} +fornext_exit_3244:; +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected # ... ,",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22782);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22782);}while(r); +LABEL_PRINTGOTFN:; +if(qbevent){evnt(22783);r=0;} +do{ +qbs_set(_SUB_XFILEPRINT_STRING_E,FUNC_FIXOPERATIONORDER(_SUB_XFILEPRINT_STRING_A3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22784);}while(r); +S_30649:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(22785);if(r)goto S_30649;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22785);}while(r); +} +do{ +qbs_set(_SUB_XFILEPRINT_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("Print",5)),__STRING1_SP),qbs_new_txt_len("#",1)),__STRING1_SP2),__STRING_TLAYOUT),__STRING1_SP2),qbs_new_txt_len(",",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22786);}while(r); +do{ +qbs_set(_SUB_XFILEPRINT_STRING_E,FUNC_EVALUATETOTYP(_SUB_XFILEPRINT_STRING_E,&(pass3246= 64 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22787);}while(r); +S_30654:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(22788);if(r)goto S_30654;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22788);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass3247=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("tab_fileno=tmp_fileno=",22),_SUB_XFILEPRINT_STRING_E),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22789);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass3248=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if (new_error) goto skip",24),_SUB_XFILEPRINT_STRING_U),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22790);}while(r); +do{ +*_SUB_XFILEPRINT_LONG_I=*_SUB_XFILEPRINT_LONG_I+ 1 ; +if(!qbevent)break;evnt(22791);}while(r); +S_30660:; +if ((-(*_SUB_XFILEPRINT_LONG_N>=*_SUB_XFILEPRINT_LONG_I))||new_error){ +if(qbevent){evnt(22794);if(r)goto S_30660;} +S_30661:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(_SUB_XFILEPRINT_STRING_A,_SUB_XFILEPRINT_LONG_I),qbs_new_txt_len("USING",5))))||new_error){ +if(qbevent){evnt(22795);if(r)goto S_30661;} +LABEL_FPUJUMP:; +if(qbevent){evnt(22797);r=0;} +do{ +qbs_set(_SUB_XFILEPRINT_STRING_L,qbs_add(qbs_add(_SUB_XFILEPRINT_STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("Using",5)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22798);}while(r); +do{ +qbs_set(_SUB_XFILEPRINT_STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22799);}while(r); +do{ +*_SUB_XFILEPRINT_LONG_B= 0 ; +if(!qbevent)break;evnt(22799);}while(r); +do{ +qbs_set(_SUB_XFILEPRINT_STRING_PUFORMAT,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22799);}while(r); +S_30666:; +fornext_value3250=*_SUB_XFILEPRINT_LONG_I+ 1 ; +fornext_finalvalue3250=*_SUB_XFILEPRINT_LONG_N; +fornext_step3250= 1 ; +if (fornext_step3250<0) fornext_step_negative3250=1; else fornext_step_negative3250=0; +if (new_error) goto fornext_error3250; +goto fornext_entrylabel3250; +while(1){ +fornext_value3250=fornext_step3250+(*_SUB_XFILEPRINT_LONG_I); +fornext_entrylabel3250: +*_SUB_XFILEPRINT_LONG_I=fornext_value3250; +if (fornext_step_negative3250){ +if (fornext_value3250fornext_finalvalue3250) break; +} +fornext_error3250:; +if(qbevent){evnt(22800);if(r)goto S_30666;} +do{ +qbs_set(_SUB_XFILEPRINT_STRING_A2,FUNC_GETELEMENT(_SUB_XFILEPRINT_STRING_CA,_SUB_XFILEPRINT_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22801);}while(r); +S_30668:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(22802);if(r)goto S_30668;} +do{ +*_SUB_XFILEPRINT_LONG_B=*_SUB_XFILEPRINT_LONG_B+ 1 ; +if(!qbevent)break;evnt(22802);}while(r); +} +S_30671:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(22803);if(r)goto S_30671;} +do{ +*_SUB_XFILEPRINT_LONG_B=*_SUB_XFILEPRINT_LONG_B- 1 ; +if(!qbevent)break;evnt(22803);}while(r); +} +S_30674:; +if ((-(*_SUB_XFILEPRINT_LONG_B== 0 ))||new_error){ +if(qbevent){evnt(22804);if(r)goto S_30674;} +S_30675:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(",",1))))||new_error){ +if(qbevent){evnt(22805);if(r)goto S_30675;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected PRINT USING #filenumber, formatstring ; ...",52)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22805);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22805);}while(r); +} +S_30679:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(";",1))))||new_error){ +if(qbevent){evnt(22806);if(r)goto S_30679;} +do{ +qbs_set(_SUB_XFILEPRINT_STRING_E,FUNC_FIXOPERATIONORDER(_SUB_XFILEPRINT_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22807);}while(r); +S_30681:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(22808);if(r)goto S_30681;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22808);}while(r); +} +do{ +qbs_set(_SUB_XFILEPRINT_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(_SUB_XFILEPRINT_STRING_L,__STRING1_SP),__STRING_TLAYOUT),__STRING1_SP2),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22809);}while(r); +do{ +qbs_set(_SUB_XFILEPRINT_STRING_E,FUNC_EVALUATE(_SUB_XFILEPRINT_STRING_E,_SUB_XFILEPRINT_LONG_TYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22810);}while(r); +S_30686:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(22811);if(r)goto S_30686;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22811);}while(r); +} +S_30689:; +if (((*_SUB_XFILEPRINT_LONG_TYP&*__LONG_ISREFERENCE))||new_error){ +if(qbevent){evnt(22812);if(r)goto S_30689;} +do{ +qbs_set(_SUB_XFILEPRINT_STRING_E,FUNC_REFER(_SUB_XFILEPRINT_STRING_E,_SUB_XFILEPRINT_LONG_TYP,&(pass3251= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22812);}while(r); +} +S_30692:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(22813);if(r)goto S_30692;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22813);}while(r); +} +S_30695:; +if ((-((*_SUB_XFILEPRINT_LONG_TYP&*__LONG_ISSTRING)== 0 ))||new_error){ +if(qbevent){evnt(22814);if(r)goto S_30695;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected PRINT USING #filenumber, formatstring ; ...",52)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22814);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22814);}while(r); +} +do{ +qbs_set(_SUB_XFILEPRINT_STRING_PUFORMAT,_SUB_XFILEPRINT_STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22815);}while(r); +do{ +goto fornext_exit_3249; +if(!qbevent)break;evnt(22816);}while(r); +} +} +S_30703:; +if ((qbs_cleanup(qbs_tmp_base,_SUB_XFILEPRINT_STRING_E->len))||new_error){ +if(qbevent){evnt(22819);if(r)goto S_30703;} +do{ +qbs_set(_SUB_XFILEPRINT_STRING_E,qbs_add(qbs_add(_SUB_XFILEPRINT_STRING_E,__STRING1_SP),_SUB_XFILEPRINT_STRING_A2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22819);}while(r); +}else{ +do{ +qbs_set(_SUB_XFILEPRINT_STRING_E,_SUB_XFILEPRINT_STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22819);}while(r); +} +fornext_continue_3249:; +} +fornext_exit_3249:; +S_30709:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_PUFORMAT,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(22821);if(r)goto S_30709;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected PRINT USING #filenumber, formatstring ; ...",52)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22821);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22821);}while(r); +} +S_30713:; +if ((-(*_SUB_XFILEPRINT_LONG_I==*_SUB_XFILEPRINT_LONG_N))||new_error){ +if(qbevent){evnt(22822);if(r)goto S_30713;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected PRINT USING #filenumber, formatstring ; ...",52)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22822);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22822);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass3253=*__LONG_MAINTXTBUF),qbs_new_txt_len("tqbs=qbs_new(0,0);",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22824);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass3254=*__LONG_MAINTXTBUF),qbs_new_txt_len("tmp_long=0;",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22826);}while(r); +do{ +qbs_set(_SUB_XFILEPRINT_STRING_PUF,qbs_add(qbs_new_txt_len("print_using_format",18),_SUB_XFILEPRINT_STRING_U)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22828);}while(r); +S_30720:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SUBFUNC,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(22829);if(r)goto S_30720;} +do{ +SUB_WRITEBUFLINE(&(pass3255=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("static qbs *",12),_SUB_XFILEPRINT_STRING_PUF),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22830);}while(r); +}else{ +do{ +SUB_WRITEBUFLINE(&(pass3256=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("qbs *",5),_SUB_XFILEPRINT_STRING_PUF),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22832);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass3257=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_XFILEPRINT_STRING_PUF,qbs_new_txt_len("=qbs_new(0,0); qbs_set(",23)),_SUB_XFILEPRINT_STRING_PUF),qbs_new_txt_len(",",1)),_SUB_XFILEPRINT_STRING_PUFORMAT),qbs_new_txt_len(");",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22834);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass3258=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if (new_error) goto skip",24),_SUB_XFILEPRINT_STRING_U),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22835);}while(r); +do{ +*_SUB_XFILEPRINT_LONG_B= 0 ; +if(!qbevent)break;evnt(22837);}while(r); +do{ +qbs_set(_SUB_XFILEPRINT_STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22838);}while(r); +do{ +*_SUB_XFILEPRINT_LONG_LAST= 0 ; +if(!qbevent)break;evnt(22839);}while(r); +S_30730:; +fornext_value3260=*_SUB_XFILEPRINT_LONG_I+ 1 ; +fornext_finalvalue3260=*_SUB_XFILEPRINT_LONG_N; +fornext_step3260= 1 ; +if (fornext_step3260<0) fornext_step_negative3260=1; else fornext_step_negative3260=0; +if (new_error) goto fornext_error3260; +goto fornext_entrylabel3260; +while(1){ +fornext_value3260=fornext_step3260+(*_SUB_XFILEPRINT_LONG_I); +fornext_entrylabel3260: +*_SUB_XFILEPRINT_LONG_I=fornext_value3260; +if (fornext_step_negative3260){ +if (fornext_value3260fornext_finalvalue3260) break; +} +fornext_error3260:; +if(qbevent){evnt(22840);if(r)goto S_30730;} +do{ +qbs_set(_SUB_XFILEPRINT_STRING_A2,FUNC_GETELEMENT(_SUB_XFILEPRINT_STRING_CA,_SUB_XFILEPRINT_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22841);}while(r); +S_30732:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(22842);if(r)goto S_30732;} +do{ +*_SUB_XFILEPRINT_LONG_B=*_SUB_XFILEPRINT_LONG_B+ 1 ; +if(!qbevent)break;evnt(22842);}while(r); +} +S_30735:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(22843);if(r)goto S_30735;} +do{ +*_SUB_XFILEPRINT_LONG_B=*_SUB_XFILEPRINT_LONG_B- 1 ; +if(!qbevent)break;evnt(22843);}while(r); +} +S_30738:; +if ((-(*_SUB_XFILEPRINT_LONG_B== 0 ))||new_error){ +if(qbevent){evnt(22844);if(r)goto S_30738;} +S_30739:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(";",1)))|(qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(",",1)))))||new_error){ +if(qbevent){evnt(22845);if(r)goto S_30739;} +LABEL_FPRINTULAST:; +if(qbevent){evnt(22846);r=0;} +do{ +qbs_set(_SUB_XFILEPRINT_STRING_E,FUNC_FIXOPERATIONORDER(_SUB_XFILEPRINT_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22847);}while(r); +S_30741:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(22848);if(r)goto S_30741;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22848);}while(r); +} +S_30744:; +if ((*_SUB_XFILEPRINT_LONG_LAST)||new_error){ +if(qbevent){evnt(22849);if(r)goto S_30744;} +do{ +qbs_set(_SUB_XFILEPRINT_STRING_L,qbs_add(qbs_add(_SUB_XFILEPRINT_STRING_L,__STRING1_SP),__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22849);}while(r); +}else{ +do{ +qbs_set(_SUB_XFILEPRINT_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(_SUB_XFILEPRINT_STRING_L,__STRING1_SP),__STRING_TLAYOUT),__STRING1_SP2),_SUB_XFILEPRINT_STRING_A2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22849);}while(r); +} +do{ +qbs_set(_SUB_XFILEPRINT_STRING_E,FUNC_EVALUATE(_SUB_XFILEPRINT_STRING_E,_SUB_XFILEPRINT_LONG_TYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22850);}while(r); +S_30750:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(22851);if(r)goto S_30750;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22851);}while(r); +} +S_30753:; +if (((*_SUB_XFILEPRINT_LONG_TYP&*__LONG_ISREFERENCE))||new_error){ +if(qbevent){evnt(22852);if(r)goto S_30753;} +do{ +qbs_set(_SUB_XFILEPRINT_STRING_E,FUNC_REFER(_SUB_XFILEPRINT_STRING_E,_SUB_XFILEPRINT_LONG_TYP,&(pass3261= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22852);}while(r); +} +S_30756:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(22853);if(r)goto S_30756;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22853);}while(r); +} +S_30759:; +if ((*_SUB_XFILEPRINT_LONG_TYP&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(22854);if(r)goto S_30759;} +S_30760:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(_SUB_XFILEPRINT_STRING_E, 9 ),qbs_new_txt_len("func_tab(",9)))|(qbs_equal(qbs_left(_SUB_XFILEPRINT_STRING_E, 9 ),qbs_new_txt_len("func_spc(",9)))))||new_error){ +if(qbevent){evnt(22856);if(r)goto S_30760;} +do{ +SUB_WRITEBUFLINE(&(pass3262=*__LONG_MAINTXTBUF),qbs_new_txt_len("sub_file_print(tmp_fileno,tqbs,0,0,0);",38)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22861);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass3263=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("qbs_set(tqbs,",13),_SUB_XFILEPRINT_STRING_E),qbs_new_txt_len(");",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22863);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass3264=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if (new_error) goto skip_pu",27),_SUB_XFILEPRINT_STRING_U),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22864);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass3265=*__LONG_MAINTXTBUF),qbs_new_txt_len("sub_file_print(tmp_fileno,tqbs,0,0,0);",38)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22865);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass3266=*__LONG_MAINTXTBUF),qbs_new_txt_len("tqbs->len=0;",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22867);}while(r); +}else{ +do{ +SUB_WRITEBUFLINE(&(pass3267=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("tmp_long=print_using(",21),_SUB_XFILEPRINT_STRING_PUF),qbs_new_txt_len(",tmp_long,tqbs,",15)),_SUB_XFILEPRINT_STRING_E),qbs_new_txt_len(");",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22872);}while(r); +} +}else{ +S_30770:; +if ((*_SUB_XFILEPRINT_LONG_TYP&*__LONG_ISFLOAT)||new_error){ +if(qbevent){evnt(22877);if(r)goto S_30770;} +S_30771:; +if ((-((*_SUB_XFILEPRINT_LONG_TYP& 511 )== 32 ))||new_error){ +if(qbevent){evnt(22878);if(r)goto S_30771;} +do{ +SUB_WRITEBUFLINE(&(pass3268=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("tmp_long=print_using_single(",28),_SUB_XFILEPRINT_STRING_PUF),qbs_new_txt_len(",",1)),_SUB_XFILEPRINT_STRING_E),qbs_new_txt_len(",tmp_long,tqbs);",16))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22878);}while(r); +} +S_30774:; +if ((-((*_SUB_XFILEPRINT_LONG_TYP& 511 )== 64 ))||new_error){ +if(qbevent){evnt(22879);if(r)goto S_30774;} +do{ +SUB_WRITEBUFLINE(&(pass3269=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("tmp_long=print_using_double(",28),_SUB_XFILEPRINT_STRING_PUF),qbs_new_txt_len(",",1)),_SUB_XFILEPRINT_STRING_E),qbs_new_txt_len(",tmp_long,tqbs);",16))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22879);}while(r); +} +S_30777:; +if ((-((*_SUB_XFILEPRINT_LONG_TYP& 511 )> 64 ))||new_error){ +if(qbevent){evnt(22880);if(r)goto S_30777;} +do{ +SUB_WRITEBUFLINE(&(pass3270=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("tmp_long=print_using_float(",27),_SUB_XFILEPRINT_STRING_PUF),qbs_new_txt_len(",",1)),_SUB_XFILEPRINT_STRING_E),qbs_new_txt_len(",tmp_long,tqbs);",16))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22880);}while(r); +} +}else{ +S_30781:; +if ((((-((*_SUB_XFILEPRINT_LONG_TYP& 511 )== 64 )))&(-((*_SUB_XFILEPRINT_LONG_TYP&*__LONG_ISUNSIGNED)!= 0 )))||new_error){ +if(qbevent){evnt(22882);if(r)goto S_30781;} +do{ +SUB_WRITEBUFLINE(&(pass3271=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("tmp_long=print_using_uinteger64(",32),_SUB_XFILEPRINT_STRING_PUF),qbs_new_txt_len(",",1)),_SUB_XFILEPRINT_STRING_E),qbs_new_txt_len(",tmp_long,tqbs);",16))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22883);}while(r); +}else{ +do{ +SUB_WRITEBUFLINE(&(pass3272=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("tmp_long=print_using_integer64(",31),_SUB_XFILEPRINT_STRING_PUF),qbs_new_txt_len(",",1)),_SUB_XFILEPRINT_STRING_E),qbs_new_txt_len(",tmp_long,tqbs);",16))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22885);}while(r); +} +} +} +do{ +SUB_WRITEBUFLINE(&(pass3273=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if (new_error) goto skip_pu",27),_SUB_XFILEPRINT_STRING_U),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22889);}while(r); +do{ +qbs_set(_SUB_XFILEPRINT_STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22890);}while(r); +S_30790:; +if ((*_SUB_XFILEPRINT_LONG_LAST)||new_error){ +if(qbevent){evnt(22891);if(r)goto S_30790;} +do{ +goto fornext_exit_3259; +if(!qbevent)break;evnt(22891);}while(r); +} +do{ +goto LABEL_FPRINTUNEXT; +if(!qbevent)break;evnt(22892);}while(r); +} +} +S_30796:; +if ((qbs_cleanup(qbs_tmp_base,_SUB_XFILEPRINT_STRING_E->len))||new_error){ +if(qbevent){evnt(22895);if(r)goto S_30796;} +do{ +qbs_set(_SUB_XFILEPRINT_STRING_E,qbs_add(qbs_add(_SUB_XFILEPRINT_STRING_E,__STRING1_SP),_SUB_XFILEPRINT_STRING_A2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22895);}while(r); +}else{ +do{ +qbs_set(_SUB_XFILEPRINT_STRING_E,_SUB_XFILEPRINT_STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22895);}while(r); +} +LABEL_FPRINTUNEXT:; +if(qbevent){evnt(22896);r=0;} +fornext_continue_3259:; +} +fornext_exit_3259:; +S_30802:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_XFILEPRINT_STRING_E,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(22898);if(r)goto S_30802;} +do{ +qbs_set(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22898);}while(r); +do{ +*_SUB_XFILEPRINT_LONG_LAST= 1 ; +if(!qbevent)break;evnt(22898);}while(r); +do{ +goto LABEL_FPRINTULAST; +if(!qbevent)break;evnt(22898);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass3275=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("skip_pu",7),_SUB_XFILEPRINT_STRING_U),qbs_new_txt_len(":",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22899);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass3276=*__LONG_MAINTXTBUF),qbs_new_txt_len("if (new_error){",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22901);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass3277=*__LONG_MAINTXTBUF),qbs_new_txt_len("g_tmp_long=new_error; new_error=0; sub_file_print(tmp_fileno,tqbs,0,0,0); new_error=g_tmp_long;",95)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22902);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass3278=*__LONG_MAINTXTBUF),qbs_new_txt_len("}else{",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22903);}while(r); +S_30811:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(",",1)))|(qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(";",1)))))||new_error){ +if(qbevent){evnt(22904);if(r)goto S_30811;} +do{ +*_SUB_XFILEPRINT_LONG_NL= 0 ; +if(!qbevent)break;evnt(22904);}while(r); +}else{ +do{ +*_SUB_XFILEPRINT_LONG_NL= 1 ; +if(!qbevent)break;evnt(22904);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass3279=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sub_file_print(tmp_fileno,tqbs,0,0,",35),FUNC_STR2(_SUB_XFILEPRINT_LONG_NL)),qbs_new_txt_len(");",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22905);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass3280=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22906);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass3281=*__LONG_MAINTXTBUF),qbs_new_txt_len("qbs_free(tqbs);",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22907);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass3282=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("qbs_free(",9),_SUB_XFILEPRINT_STRING_PUF),qbs_new_txt_len(");",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22908);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass3283=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("skip",4),_SUB_XFILEPRINT_STRING_U),qbs_new_txt_len(":",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22909);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass3284=*__LONG_MAINTXTBUF),qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22910);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass3285=*__LONG_MAINTXTBUF),qbs_new_txt_len("tab_spc_cr_size=1;",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22911);}while(r); +do{ +qbs_set(__STRING_TLAYOUT,_SUB_XFILEPRINT_STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22912);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22913);}while(r); +} +} +S_30827:; +if ((-(*_SUB_XFILEPRINT_LONG_I>*_SUB_XFILEPRINT_LONG_N))||new_error){ +if(qbevent){evnt(22918);if(r)goto S_30827;} +do{ +SUB_WRITEBUFLINE(&(pass3286=*__LONG_MAINTXTBUF),qbs_new_txt_len("sub_file_print(tmp_fileno,nothingstring,0,0,1);",47)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22919);}while(r); +do{ +goto LABEL_PRINTBLANKLINE; +if(!qbevent)break;evnt(22920);}while(r); +} +do{ +*_SUB_XFILEPRINT_LONG_B= 0 ; +if(!qbevent)break;evnt(22922);}while(r); +do{ +qbs_set(_SUB_XFILEPRINT_STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22923);}while(r); +do{ +*_SUB_XFILEPRINT_LONG_LAST= 0 ; +if(!qbevent)break;evnt(22924);}while(r); +S_30834:; +fornext_value3288=*_SUB_XFILEPRINT_LONG_I; +fornext_finalvalue3288=*_SUB_XFILEPRINT_LONG_N; +fornext_step3288= 1 ; +if (fornext_step3288<0) fornext_step_negative3288=1; else fornext_step_negative3288=0; +if (new_error) goto fornext_error3288; +goto fornext_entrylabel3288; +while(1){ +fornext_value3288=fornext_step3288+(*_SUB_XFILEPRINT_LONG_I); +fornext_entrylabel3288: +*_SUB_XFILEPRINT_LONG_I=fornext_value3288; +if (fornext_step_negative3288){ +if (fornext_value3288fornext_finalvalue3288) break; +} +fornext_error3288:; +if(qbevent){evnt(22925);if(r)goto S_30834;} +do{ +qbs_set(_SUB_XFILEPRINT_STRING_A2,FUNC_GETELEMENT(_SUB_XFILEPRINT_STRING_CA,_SUB_XFILEPRINT_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22926);}while(r); +S_30836:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(22927);if(r)goto S_30836;} +do{ +*_SUB_XFILEPRINT_LONG_B=*_SUB_XFILEPRINT_LONG_B+ 1 ; +if(!qbevent)break;evnt(22927);}while(r); +} +S_30839:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(22928);if(r)goto S_30839;} +do{ +*_SUB_XFILEPRINT_LONG_B=*_SUB_XFILEPRINT_LONG_B- 1 ; +if(!qbevent)break;evnt(22928);}while(r); +} +S_30842:; +if ((-(*_SUB_XFILEPRINT_LONG_B== 0 ))||new_error){ +if(qbevent){evnt(22929);if(r)goto S_30842;} +S_30843:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(";",1)))|(qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(",",1)))|(qbs_equal(qbs_ucase(_SUB_XFILEPRINT_STRING_A2),qbs_new_txt_len("USING",5)))))||new_error){ +if(qbevent){evnt(22930);if(r)goto S_30843;} +LABEL_PRINTFILELAST:; +if(qbevent){evnt(22931);r=0;} +S_30844:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_XFILEPRINT_STRING_A2),qbs_new_txt_len("USING",5))))||new_error){ +if(qbevent){evnt(22933);if(r)goto S_30844;} +S_30845:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_XFILEPRINT_STRING_E,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(22934);if(r)goto S_30845;} +do{ +*_SUB_XFILEPRINT_LONG_GOTOFPU= 1 ; +if(!qbevent)break;evnt(22934);}while(r); +}else{ +do{ +goto LABEL_FPUJUMP; +if(!qbevent)break;evnt(22934);}while(r); +} +} +S_30851:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(",",1))))||new_error){ +if(qbevent){evnt(22937);if(r)goto S_30851;} +do{ +*_SUB_XFILEPRINT_LONG_USETAB= 1 ; +if(!qbevent)break;evnt(22937);}while(r); +}else{ +do{ +*_SUB_XFILEPRINT_LONG_USETAB= 0 ; +if(!qbevent)break;evnt(22937);}while(r); +} +S_30856:; +if ((-(*_SUB_XFILEPRINT_LONG_LAST== 1 ))||new_error){ +if(qbevent){evnt(22938);if(r)goto S_30856;} +do{ +*_SUB_XFILEPRINT_LONG_NEWLINE= 1 ; +if(!qbevent)break;evnt(22938);}while(r); +}else{ +do{ +*_SUB_XFILEPRINT_LONG_NEWLINE= 0 ; +if(!qbevent)break;evnt(22938);}while(r); +} +do{ +*_SUB_XFILEPRINT_LONG_EXTRASPACE= 0 ; +if(!qbevent)break;evnt(22939);}while(r); +S_30862:; +if ((qbs_cleanup(qbs_tmp_base,_SUB_XFILEPRINT_STRING_E->len))||new_error){ +if(qbevent){evnt(22941);if(r)goto S_30862;} +do{ +qbs_set(_SUB_XFILEPRINT_STRING_EBAK,_SUB_XFILEPRINT_STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22942);}while(r); +do{ +*_SUB_XFILEPRINT_LONG_PNRTNUM= 0 ; +if(!qbevent)break;evnt(22943);}while(r); +LABEL_PRINTFILENUMBER:; +if(qbevent){evnt(22944);r=0;} +do{ +qbs_set(_SUB_XFILEPRINT_STRING_E,FUNC_FIXOPERATIONORDER(_SUB_XFILEPRINT_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22945);}while(r); +S_30866:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(22946);if(r)goto S_30866;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22946);}while(r); +} +S_30869:; +if ((-(*_SUB_XFILEPRINT_LONG_PNRTNUM== 0 ))||new_error){ +if(qbevent){evnt(22947);if(r)goto S_30869;} +S_30870:; +if ((*_SUB_XFILEPRINT_LONG_LAST)||new_error){ +if(qbevent){evnt(22948);if(r)goto S_30870;} +do{ +qbs_set(_SUB_XFILEPRINT_STRING_L,qbs_add(qbs_add(_SUB_XFILEPRINT_STRING_L,__STRING1_SP),__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22948);}while(r); +}else{ +do{ +qbs_set(_SUB_XFILEPRINT_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(_SUB_XFILEPRINT_STRING_L,__STRING1_SP),__STRING_TLAYOUT),__STRING1_SP2),_SUB_XFILEPRINT_STRING_A2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22948);}while(r); +} +} +do{ +qbs_set(_SUB_XFILEPRINT_STRING_E,FUNC_EVALUATE(_SUB_XFILEPRINT_STRING_E,_SUB_XFILEPRINT_LONG_TYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22950);}while(r); +S_30877:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(22951);if(r)goto S_30877;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22951);}while(r); +} +S_30880:; +if ((-((*_SUB_XFILEPRINT_LONG_TYP&*__LONG_ISSTRING)== 0 ))||new_error){ +if(qbevent){evnt(22952);if(r)goto S_30880;} +do{ +qbs_set(_SUB_XFILEPRINT_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("STR$",4),__STRING1_SP),qbs_new_txt_len("(",1)),__STRING1_SP),_SUB_XFILEPRINT_STRING_EBAK),__STRING1_SP),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22953);}while(r); +do{ +*_SUB_XFILEPRINT_LONG_EXTRASPACE= 1 ; +if(!qbevent)break;evnt(22954);}while(r); +do{ +*_SUB_XFILEPRINT_LONG_PNRTNUM= 1 ; +if(!qbevent)break;evnt(22955);}while(r); +do{ +goto LABEL_PRINTFILENUMBER; +if(!qbevent)break;evnt(22956);}while(r); +} +S_30886:; +if (((*_SUB_XFILEPRINT_LONG_TYP&*__LONG_ISREFERENCE))||new_error){ +if(qbevent){evnt(22958);if(r)goto S_30886;} +do{ +qbs_set(_SUB_XFILEPRINT_STRING_E,FUNC_REFER(_SUB_XFILEPRINT_STRING_E,_SUB_XFILEPRINT_LONG_TYP,&(pass3290= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22958);}while(r); +} +S_30889:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(22959);if(r)goto S_30889;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22959);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass3291=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("sub_file_print(tmp_fileno,",26),_SUB_XFILEPRINT_STRING_E),qbs_new_txt_len(",",1)),qbs_str((int32)(*_SUB_XFILEPRINT_LONG_EXTRASPACE))),qbs_new_txt_len(",",1)),qbs_str((int32)(*_SUB_XFILEPRINT_LONG_USETAB))),qbs_new_txt_len(",",1)),qbs_str((int32)(*_SUB_XFILEPRINT_LONG_NEWLINE))),qbs_new_txt_len(");",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22961);}while(r); +}else{ +S_30894:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(",",1))))||new_error){ +if(qbevent){evnt(22963);if(r)goto S_30894;} +do{ +qbs_set(_SUB_XFILEPRINT_STRING_L,qbs_add(qbs_add(_SUB_XFILEPRINT_STRING_L,__STRING1_SP),_SUB_XFILEPRINT_STRING_A2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22963);}while(r); +} +S_30897:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len(";",1))))||new_error){ +if(qbevent){evnt(22964);if(r)goto S_30897;} +S_30898:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_right(_SUB_XFILEPRINT_STRING_L, 1 ),qbs_new_txt_len(";",1))))||new_error){ +if(qbevent){evnt(22965);if(r)goto S_30898;} +do{ +qbs_set(_SUB_XFILEPRINT_STRING_L,qbs_add(qbs_add(_SUB_XFILEPRINT_STRING_L,__STRING1_SP),_SUB_XFILEPRINT_STRING_A2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22965);}while(r); +} +} +S_30902:; +if ((*_SUB_XFILEPRINT_LONG_USETAB)||new_error){ +if(qbevent){evnt(22967);if(r)goto S_30902;} +do{ +SUB_WRITEBUFLINE(&(pass3292=*__LONG_MAINTXTBUF),qbs_new_txt_len("sub_file_print(tmp_fileno,nothingstring,0,1,0);",47)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22967);}while(r); +} +} +do{ +SUB_WRITEBUFLINE(&(pass3293=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if (new_error) goto skip",24),_SUB_XFILEPRINT_STRING_U),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22969);}while(r); +do{ +qbs_set(_SUB_XFILEPRINT_STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22971);}while(r); +S_30908:; +if ((*_SUB_XFILEPRINT_LONG_GOTOFPU)||new_error){ +if(qbevent){evnt(22972);if(r)goto S_30908;} +do{ +goto LABEL_FPUJUMP; +if(!qbevent)break;evnt(22972);}while(r); +} +S_30911:; +if ((*_SUB_XFILEPRINT_LONG_LAST)||new_error){ +if(qbevent){evnt(22973);if(r)goto S_30911;} +do{ +goto fornext_exit_3287; +if(!qbevent)break;evnt(22973);}while(r); +} +do{ +goto LABEL_PRINTFILENEXT; +if(!qbevent)break;evnt(22974);}while(r); +} +} +S_30917:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_XFILEPRINT_STRING_E,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(22977);if(r)goto S_30917;} +do{ +qbs_set(_SUB_XFILEPRINT_STRING_E,qbs_add(qbs_add(_SUB_XFILEPRINT_STRING_E,__STRING1_SP),_SUB_XFILEPRINT_STRING_A2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22977);}while(r); +}else{ +do{ +qbs_set(_SUB_XFILEPRINT_STRING_E,_SUB_XFILEPRINT_STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22977);}while(r); +} +LABEL_PRINTFILENEXT:; +if(qbevent){evnt(22978);r=0;} +fornext_continue_3287:; +} +fornext_exit_3287:; +S_30923:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_XFILEPRINT_STRING_E,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(22980);if(r)goto S_30923;} +do{ +qbs_set(_SUB_XFILEPRINT_STRING_A2,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22980);}while(r); +do{ +*_SUB_XFILEPRINT_LONG_LAST= 1 ; +if(!qbevent)break;evnt(22980);}while(r); +do{ +goto LABEL_PRINTFILELAST; +if(!qbevent)break;evnt(22980);}while(r); +} +LABEL_PRINTBLANKLINE:; +if(qbevent){evnt(22981);r=0;} +do{ +SUB_WRITEBUFLINE(&(pass3294=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("skip",4),_SUB_XFILEPRINT_STRING_U),qbs_new_txt_len(":",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22982);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass3295=*__LONG_MAINTXTBUF),qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22983);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass3296=*__LONG_MAINTXTBUF),qbs_new_txt_len("tab_spc_cr_size=1;",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22984);}while(r); +do{ +qbs_set(__STRING_TLAYOUT,_SUB_XFILEPRINT_STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22985);}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free52.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +void SUB_XFILEWRITE(qbs*_SUB_XFILEWRITE_STRING_CA,int32*_SUB_XFILEWRITE_LONG_N){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data53.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +qbs_set(_SUB_XFILEWRITE_STRING_L,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("Write",5)),__STRING1_SP),qbs_new_txt_len("#",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22989);}while(r); +do{ +qbs_set(_SUB_XFILEWRITE_STRING_U,FUNC_STR2(&(pass3298=FUNC_UNIQUENUMBER()))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22990);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass3299=*__LONG_MAINTXTBUF),qbs_new_txt_len("tab_spc_cr_size=2;",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22991);}while(r); +S_30935:; +if ((-(*_SUB_XFILEWRITE_LONG_N== 2 ))||new_error){ +if(qbevent){evnt(22992);if(r)goto S_30935;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected # ...",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22992);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(22992);}while(r); +} +do{ +qbs_set(_SUB_XFILEWRITE_STRING_A3,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22993);}while(r); +do{ +*_SUB_XFILEWRITE_LONG_B= 0 ; +if(!qbevent)break;evnt(22994);}while(r); +S_30941:; +fornext_value3301= 3 ; +fornext_finalvalue3301=*_SUB_XFILEWRITE_LONG_N; +fornext_step3301= 1 ; +if (fornext_step3301<0) fornext_step_negative3301=1; else fornext_step_negative3301=0; +if (new_error) goto fornext_error3301; +goto fornext_entrylabel3301; +while(1){ +fornext_value3301=fornext_step3301+(*_SUB_XFILEWRITE_LONG_I); +fornext_entrylabel3301: +*_SUB_XFILEWRITE_LONG_I=fornext_value3301; +if (fornext_step_negative3301){ +if (fornext_value3301fornext_finalvalue3301) break; +} +fornext_error3301:; +if(qbevent){evnt(22995);if(r)goto S_30941;} +do{ +qbs_set(_SUB_XFILEWRITE_STRING_A2,FUNC_GETELEMENT(_SUB_XFILEWRITE_STRING_CA,_SUB_XFILEWRITE_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(22996);}while(r); +S_30943:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEWRITE_STRING_A2,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(22997);if(r)goto S_30943;} +do{ +*_SUB_XFILEWRITE_LONG_B=*_SUB_XFILEWRITE_LONG_B+ 1 ; +if(!qbevent)break;evnt(22997);}while(r); +} +S_30946:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEWRITE_STRING_A2,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(22998);if(r)goto S_30946;} +do{ +*_SUB_XFILEWRITE_LONG_B=*_SUB_XFILEWRITE_LONG_B- 1 ; +if(!qbevent)break;evnt(22998);}while(r); +} +S_30949:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_XFILEWRITE_STRING_A2,qbs_new_txt_len(",",1)))&(-(*_SUB_XFILEWRITE_LONG_B== 0 ))))||new_error){ +if(qbevent){evnt(22999);if(r)goto S_30949;} +S_30950:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEWRITE_STRING_A3,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(23000);if(r)goto S_30950;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected # ... , ...",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23000);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23000);}while(r); +} +do{ +goto LABEL_WRITEGOTFN; +if(!qbevent)break;evnt(23001);}while(r); +} +S_30956:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEWRITE_STRING_A3,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(23003);if(r)goto S_30956;} +do{ +qbs_set(_SUB_XFILEWRITE_STRING_A3,_SUB_XFILEWRITE_STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23003);}while(r); +}else{ +do{ +qbs_set(_SUB_XFILEWRITE_STRING_A3,qbs_add(qbs_add(_SUB_XFILEWRITE_STRING_A3,__STRING1_SP),_SUB_XFILEWRITE_STRING_A2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23003);}while(r); +} +fornext_continue_3300:; +} +fornext_exit_3300:; +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected # ... ,",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23005);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23005);}while(r); +LABEL_WRITEGOTFN:; +if(qbevent){evnt(23006);r=0;} +do{ +qbs_set(_SUB_XFILEWRITE_STRING_E,FUNC_FIXOPERATIONORDER(_SUB_XFILEWRITE_STRING_A3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23007);}while(r); +S_30965:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(23008);if(r)goto S_30965;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23008);}while(r); +} +do{ +qbs_set(_SUB_XFILEWRITE_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(_SUB_XFILEWRITE_STRING_L,__STRING1_SP2),__STRING_TLAYOUT),__STRING1_SP2),qbs_new_txt_len(",",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23009);}while(r); +do{ +qbs_set(_SUB_XFILEWRITE_STRING_E,FUNC_EVALUATETOTYP(_SUB_XFILEWRITE_STRING_E,&(pass3302= 64 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23010);}while(r); +S_30970:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(23011);if(r)goto S_30970;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23011);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass3303=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("tab_fileno=tmp_fileno=",22),_SUB_XFILEWRITE_STRING_E),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23012);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass3304=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if (new_error) goto skip",24),_SUB_XFILEWRITE_STRING_U),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23013);}while(r); +do{ +*_SUB_XFILEWRITE_LONG_I=*_SUB_XFILEWRITE_LONG_I+ 1 ; +if(!qbevent)break;evnt(23014);}while(r); +S_30976:; +if ((-(*_SUB_XFILEWRITE_LONG_I>*_SUB_XFILEWRITE_LONG_N))||new_error){ +if(qbevent){evnt(23015);if(r)goto S_30976;} +do{ +SUB_WRITEBUFLINE(&(pass3305=*__LONG_MAINTXTBUF),qbs_new_txt_len("sub_file_print(tmp_fileno,nothingstring,0,0,1);",47)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23016);}while(r); +do{ +goto LABEL_WRITEBLANKLINE; +if(!qbevent)break;evnt(23017);}while(r); +} +do{ +*_SUB_XFILEWRITE_LONG_B= 0 ; +if(!qbevent)break;evnt(23019);}while(r); +do{ +qbs_set(_SUB_XFILEWRITE_STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23020);}while(r); +do{ +*_SUB_XFILEWRITE_LONG_LAST= 0 ; +if(!qbevent)break;evnt(23021);}while(r); +S_30983:; +fornext_value3307=*_SUB_XFILEWRITE_LONG_I; +fornext_finalvalue3307=*_SUB_XFILEWRITE_LONG_N; +fornext_step3307= 1 ; +if (fornext_step3307<0) fornext_step_negative3307=1; else fornext_step_negative3307=0; +if (new_error) goto fornext_error3307; +goto fornext_entrylabel3307; +while(1){ +fornext_value3307=fornext_step3307+(*_SUB_XFILEWRITE_LONG_I); +fornext_entrylabel3307: +*_SUB_XFILEWRITE_LONG_I=fornext_value3307; +if (fornext_step_negative3307){ +if (fornext_value3307fornext_finalvalue3307) break; +} +fornext_error3307:; +if(qbevent){evnt(23022);if(r)goto S_30983;} +do{ +qbs_set(_SUB_XFILEWRITE_STRING_A2,FUNC_GETELEMENT(_SUB_XFILEWRITE_STRING_CA,_SUB_XFILEWRITE_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23023);}while(r); +S_30985:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEWRITE_STRING_A2,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(23024);if(r)goto S_30985;} +do{ +*_SUB_XFILEWRITE_LONG_B=*_SUB_XFILEWRITE_LONG_B+ 1 ; +if(!qbevent)break;evnt(23024);}while(r); +} +S_30988:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEWRITE_STRING_A2,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(23025);if(r)goto S_30988;} +do{ +*_SUB_XFILEWRITE_LONG_B=*_SUB_XFILEWRITE_LONG_B- 1 ; +if(!qbevent)break;evnt(23025);}while(r); +} +S_30991:; +if ((-(*_SUB_XFILEWRITE_LONG_B== 0 ))||new_error){ +if(qbevent){evnt(23026);if(r)goto S_30991;} +S_30992:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XFILEWRITE_STRING_A2,qbs_new_txt_len(",",1))))||new_error){ +if(qbevent){evnt(23027);if(r)goto S_30992;} +LABEL_WRITEFILELAST:; +if(qbevent){evnt(23028);r=0;} +S_30993:; +if ((-(*_SUB_XFILEWRITE_LONG_LAST== 1 ))||new_error){ +if(qbevent){evnt(23029);if(r)goto S_30993;} +do{ +*_SUB_XFILEWRITE_LONG_NEWLINE= 1 ; +if(!qbevent)break;evnt(23029);}while(r); +}else{ +do{ +*_SUB_XFILEWRITE_LONG_NEWLINE= 0 ; +if(!qbevent)break;evnt(23029);}while(r); +} +do{ +qbs_set(_SUB_XFILEWRITE_STRING_EBAK,_SUB_XFILEWRITE_STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23030);}while(r); +do{ +*_SUB_XFILEWRITE_LONG_REEVALED= 0 ; +if(!qbevent)break;evnt(23031);}while(r); +LABEL_WRITEFILENUMBER:; +if(qbevent){evnt(23032);r=0;} +do{ +qbs_set(_SUB_XFILEWRITE_STRING_E,FUNC_FIXOPERATIONORDER(_SUB_XFILEWRITE_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23033);}while(r); +S_31001:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(23034);if(r)goto S_31001;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23034);}while(r); +} +S_31004:; +if ((-(*_SUB_XFILEWRITE_LONG_REEVALED== 0 ))||new_error){ +if(qbevent){evnt(23035);if(r)goto S_31004;} +do{ +qbs_set(_SUB_XFILEWRITE_STRING_L,qbs_add(qbs_add(_SUB_XFILEWRITE_STRING_L,__STRING1_SP),__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23036);}while(r); +S_31006:; +if ((-(*_SUB_XFILEWRITE_LONG_LAST== 0 ))||new_error){ +if(qbevent){evnt(23037);if(r)goto S_31006;} +do{ +qbs_set(_SUB_XFILEWRITE_STRING_L,qbs_add(qbs_add(_SUB_XFILEWRITE_STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23037);}while(r); +} +} +do{ +qbs_set(_SUB_XFILEWRITE_STRING_E,FUNC_EVALUATE(_SUB_XFILEWRITE_STRING_E,_SUB_XFILEWRITE_LONG_TYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23039);}while(r); +S_31011:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(23040);if(r)goto S_31011;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23040);}while(r); +} +S_31014:; +if ((-(*_SUB_XFILEWRITE_LONG_REEVALED== 0 ))||new_error){ +if(qbevent){evnt(23041);if(r)goto S_31014;} +S_31015:; +if ((-((*_SUB_XFILEWRITE_LONG_TYP&*__LONG_ISSTRING)== 0 ))||new_error){ +if(qbevent){evnt(23042);if(r)goto S_31015;} +do{ +qbs_set(_SUB_XFILEWRITE_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("LTRIM$",6),__STRING1_SP),qbs_new_txt_len("(",1)),__STRING1_SP),qbs_new_txt_len("STR$",4)),__STRING1_SP),qbs_new_txt_len("(",1)),__STRING1_SP),_SUB_XFILEWRITE_STRING_EBAK),__STRING1_SP),qbs_new_txt_len(")",1)),__STRING1_SP),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23043);}while(r); +S_31017:; +if ((-(*_SUB_XFILEWRITE_LONG_LAST== 0 ))||new_error){ +if(qbevent){evnt(23044);if(r)goto S_31017;} +do{ +qbs_set(_SUB_XFILEWRITE_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_XFILEWRITE_STRING_E,__STRING1_SP),qbs_new_txt_len("+",1)),__STRING1_SP),func_chr( 34 )),qbs_new_txt_len(",",1)),func_chr( 34 )),qbs_new_txt_len(",1",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23044);}while(r); +} +do{ +*_SUB_XFILEWRITE_LONG_REEVALED= 1 ; +if(!qbevent)break;evnt(23045);}while(r); +do{ +goto LABEL_WRITEFILENUMBER; +if(!qbevent)break;evnt(23046);}while(r); +}else{ +do{ +qbs_set(_SUB_XFILEWRITE_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(func_chr( 34 ),qbs_new_txt_len("\\042",4)),func_chr( 34 )),qbs_new_txt_len(",1",2)),__STRING1_SP),qbs_new_txt_len("+",1)),__STRING1_SP),_SUB_XFILEWRITE_STRING_EBAK),__STRING1_SP),qbs_new_txt_len("+",1)),__STRING1_SP),func_chr( 34 )),qbs_new_txt_len("\\042",4)),func_chr( 34 )),qbs_new_txt_len(",1",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23048);}while(r); +S_31024:; +if ((-(*_SUB_XFILEWRITE_LONG_LAST== 0 ))||new_error){ +if(qbevent){evnt(23049);if(r)goto S_31024;} +do{ +qbs_set(_SUB_XFILEWRITE_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_XFILEWRITE_STRING_E,__STRING1_SP),qbs_new_txt_len("+",1)),__STRING1_SP),func_chr( 34 )),qbs_new_txt_len(",",1)),func_chr( 34 )),qbs_new_txt_len(",1",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23049);}while(r); +} +do{ +*_SUB_XFILEWRITE_LONG_REEVALED= 1 ; +if(!qbevent)break;evnt(23050);}while(r); +do{ +goto LABEL_WRITEFILENUMBER; +if(!qbevent)break;evnt(23051);}while(r); +} +} +S_31031:; +if (((*_SUB_XFILEWRITE_LONG_TYP&*__LONG_ISREFERENCE))||new_error){ +if(qbevent){evnt(23054);if(r)goto S_31031;} +do{ +qbs_set(_SUB_XFILEWRITE_STRING_E,FUNC_REFER(_SUB_XFILEWRITE_STRING_E,_SUB_XFILEWRITE_LONG_TYP,&(pass3308= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23054);}while(r); +} +S_31034:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(23055);if(r)goto S_31034;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23055);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass3309=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("sub_file_print(tmp_fileno,",26),_SUB_XFILEWRITE_STRING_E),qbs_new_txt_len(",0,0,",5)),qbs_str((int32)(*_SUB_XFILEWRITE_LONG_NEWLINE))),qbs_new_txt_len(");",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23057);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass3310=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if (new_error) goto skip",24),_SUB_XFILEWRITE_STRING_U),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23058);}while(r); +do{ +qbs_set(_SUB_XFILEWRITE_STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23059);}while(r); +S_31040:; +if ((*_SUB_XFILEWRITE_LONG_LAST)||new_error){ +if(qbevent){evnt(23060);if(r)goto S_31040;} +do{ +goto fornext_exit_3306; +if(!qbevent)break;evnt(23060);}while(r); +} +do{ +goto LABEL_WRITEFILENEXT; +if(!qbevent)break;evnt(23061);}while(r); +} +} +S_31046:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_XFILEWRITE_STRING_E,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(23064);if(r)goto S_31046;} +do{ +qbs_set(_SUB_XFILEWRITE_STRING_E,qbs_add(qbs_add(_SUB_XFILEWRITE_STRING_E,__STRING1_SP),_SUB_XFILEWRITE_STRING_A2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23064);}while(r); +}else{ +do{ +qbs_set(_SUB_XFILEWRITE_STRING_E,_SUB_XFILEWRITE_STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23064);}while(r); +} +LABEL_WRITEFILENEXT:; +if(qbevent){evnt(23065);r=0;} +fornext_continue_3306:; +} +fornext_exit_3306:; +S_31052:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_XFILEWRITE_STRING_E,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(23067);if(r)goto S_31052;} +do{ +qbs_set(_SUB_XFILEWRITE_STRING_A2,qbs_new_txt_len(",",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23067);}while(r); +do{ +*_SUB_XFILEWRITE_LONG_LAST= 1 ; +if(!qbevent)break;evnt(23067);}while(r); +do{ +goto LABEL_WRITEFILELAST; +if(!qbevent)break;evnt(23067);}while(r); +} +LABEL_WRITEBLANKLINE:; +if(qbevent){evnt(23068);r=0;} +do{ +SUB_WRITEBUFLINE(&(pass3311=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("skip",4),_SUB_XFILEWRITE_STRING_U),qbs_new_txt_len(":",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23070);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass3312=*__LONG_MAINTXTBUF),qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23071);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass3313=*__LONG_MAINTXTBUF),qbs_new_txt_len("tab_spc_cr_size=1;",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23072);}while(r); +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(23073);}while(r); +S_31061:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(23073);if(r)goto S_31061;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),_SUB_XFILEWRITE_STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23073);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,_SUB_XFILEWRITE_STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23073);}while(r); +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free53.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +void SUB_XGOSUB(qbs*_SUB_XGOSUB_STRING_CA){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data54.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +qbs_set(_SUB_XGOSUB_STRING_A2,FUNC_GETELEMENT(_SUB_XGOSUB_STRING_CA,&(pass3316= 2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23077);}while(r); +S_31067:; +if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(_SUB_XGOSUB_STRING_A2)== 0 )))||new_error){ +if(qbevent){evnt(23078);if(r)goto S_31067;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Invalid label",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23078);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23078);}while(r); +} +do{ +*_SUB_XGOSUB_LONG_V=FUNC_HASHFIND(_SUB_XGOSUB_STRING_A2,&(pass3317= 2 ),_SUB_XGOSUB_LONG_IGNORE,_SUB_XGOSUB_LONG_R); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23080);}while(r); +do{ +*_SUB_XGOSUB_LONG_X= 1 ; +if(!qbevent)break;evnt(23081);}while(r); +LABEL_LABCHK200:; +if(qbevent){evnt(23082);r=0;} +S_31073:; +if ((*_SUB_XGOSUB_LONG_V)||new_error){ +if(qbevent){evnt(23083);if(r)goto S_31073;} +do{ +*_SUB_XGOSUB_LONG_S=*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*_SUB_XGOSUB_LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)); +if(!qbevent)break;evnt(23084);}while(r); +S_31075:; +if (((-(*_SUB_XGOSUB_LONG_S==*__LONG_SUBFUNCN))|(-(*_SUB_XGOSUB_LONG_S== -1 )))||new_error){ +if(qbevent){evnt(23085);if(r)goto S_31075;} +S_31076:; +if ((-(*_SUB_XGOSUB_LONG_S== -1 ))||new_error){ +if(qbevent){evnt(23086);if(r)goto S_31076;} +do{ +*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*_SUB_XGOSUB_LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257))=*__LONG_SUBFUNCN; +if(!qbevent)break;evnt(23086);}while(r); +} +do{ +*_SUB_XGOSUB_LONG_X= 0 ; +if(!qbevent)break;evnt(23087);}while(r); +do{ +qbs_set(__STRING_TLAYOUT,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+((array_check((*_SUB_XGOSUB_LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1)),256,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23088);}while(r); +}else{ +S_31082:; +if ((-(*_SUB_XGOSUB_LONG_V== 2 ))||new_error){ +if(qbevent){evnt(23090);if(r)goto S_31082;} +do{ +*_SUB_XGOSUB_LONG_V=FUNC_HASHFINDCONT(_SUB_XGOSUB_LONG_IGNORE,_SUB_XGOSUB_LONG_R); +if(!qbevent)break;evnt(23090);}while(r); +do{ +goto LABEL_LABCHK200; +if(!qbevent)break;evnt(23090);}while(r); +} +} +} +S_31088:; +if ((*_SUB_XGOSUB_LONG_X)||new_error){ +if(qbevent){evnt(23093);if(r)goto S_31088;} +do{ +*__LONG_NLABELS=*__LONG_NLABELS+ 1 ; +if(!qbevent)break;evnt(23095);}while(r); +S_31090:; +if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||new_error){ +if(qbevent){evnt(23095);if(r)goto S_31090;} +do{ +*__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ; +if(!qbevent)break;evnt(23095);}while(r); +do{ if (__ARRAY_UDT_LABELS[2]&2){ error(10); @@ -101641,401 +101641,401 @@ if (!__ARRAY_UDT_LABELS[0]) error(257); } } __ARRAY_UDT_LABELS[2]|=1; -} -if(!qbevent)break;evnt(23095);}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(23096);}while(r); -do{ -SUB_HASHADD(_SUB_XGOSUB_STRING_A2,&(pass3318= 2 ),__LONG_NLABELS); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23097);}while(r); -do{ -*_SUB_XGOSUB_LONG_R=*__LONG_NLABELS; -if(!qbevent)break;evnt(23098);}while(r); -do{ -*(uint8*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*_SUB_XGOSUB_LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282))= 0 ; -if(!qbevent)break;evnt(23099);}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+((array_check((*_SUB_XGOSUB_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(23100);}while(r); -do{ -*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*_SUB_XGOSUB_LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257))=*__LONG_SUBFUNCN; -if(!qbevent)break;evnt(23101);}while(r); -do{ -*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*_SUB_XGOSUB_LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+270))=*__LONG_LINENUMBER; -if(!qbevent)break;evnt(23102);}while(r); -} -do{ -qbs_set(_SUB_XGOSUB_STRING_L,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("GoSub",5)),__STRING1_SP),__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23105);}while(r); -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(23106);}while(r); -S_31104:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(23106);if(r)goto S_31104;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),_SUB_XGOSUB_STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23106);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,_SUB_XGOSUB_STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23106);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass3320=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("return_point[next_return_point++]=",34),FUNC_STR2(__LONG_GOSUBID)),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23109);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass3321=*__LONG_MAINTXTBUF),qbs_new_txt_len("if (next_return_point>=return_points) more_return_points();",59)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23110);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass3322=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("goto LABEL_",11),_SUB_XGOSUB_STRING_A2),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23111);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass3323=*__LONG_RETTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("case ",5),FUNC_STR2(__LONG_GOSUBID)),qbs_new_txt_len(":",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23113);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass3324=*__LONG_RETTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("goto RETURN_",12),FUNC_STR2(__LONG_GOSUBID)),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23114);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass3325=*__LONG_RETTXTBUF),qbs_new_txt_len("break;",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23115);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass3326=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("RETURN_",7),FUNC_STR2(__LONG_GOSUBID)),qbs_new_txt_len(":;",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23116);}while(r); -do{ -*__LONG_GOSUBID=*__LONG_GOSUBID+ 1 ; -if(!qbevent)break;evnt(23117);}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free54.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -void SUB_XONGOTOGOSUB(qbs*_SUB_XONGOTOGOSUB_STRING_A,qbs*_SUB_XONGOTOGOSUB_STRING_CA,int32*_SUB_XONGOTOGOSUB_LONG_N){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data55.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -S_31117:; -if ((-(*_SUB_XONGOTOGOSUB_LONG_N< 4 ))||new_error){ -if(qbevent){evnt(23121);if(r)goto S_31117;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected ON expression GOTO/GOSUB label,label,...",49)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23121);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(23121);}while(r); -} -do{ -qbs_set(_SUB_XONGOTOGOSUB_STRING_L,FUNC_SCASE(qbs_new_txt_len("On",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23122);}while(r); -do{ -*_SUB_XONGOTOGOSUB_LONG_B= 0 ; -if(!qbevent)break;evnt(23123);}while(r); -S_31123:; -fornext_value3330= 2 ; -fornext_finalvalue3330=*_SUB_XONGOTOGOSUB_LONG_N; -fornext_step3330= 1 ; -if (fornext_step3330<0) fornext_step_negative3330=1; else fornext_step_negative3330=0; -if (new_error) goto fornext_error3330; -goto fornext_entrylabel3330; -while(1){ -fornext_value3330=fornext_step3330+(*_SUB_XONGOTOGOSUB_LONG_I); -fornext_entrylabel3330: -*_SUB_XONGOTOGOSUB_LONG_I=fornext_value3330; -if (fornext_step_negative3330){ -if (fornext_value3330fornext_finalvalue3330) break; -} -fornext_error3330:; -if(qbevent){evnt(23124);if(r)goto S_31123;} -do{ -qbs_set(_SUB_XONGOTOGOSUB_STRING_E2,FUNC_GETELEMENT(_SUB_XONGOTOGOSUB_STRING_A,_SUB_XONGOTOGOSUB_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23125);}while(r); -S_31125:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XONGOTOGOSUB_STRING_E2,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(23126);if(r)goto S_31125;} -do{ -*_SUB_XONGOTOGOSUB_LONG_B=*_SUB_XONGOTOGOSUB_LONG_B+ 1 ; -if(!qbevent)break;evnt(23126);}while(r); -} -S_31128:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XONGOTOGOSUB_STRING_E2,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(23127);if(r)goto S_31128;} -do{ -*_SUB_XONGOTOGOSUB_LONG_B=*_SUB_XONGOTOGOSUB_LONG_B- 1 ; -if(!qbevent)break;evnt(23127);}while(r); -} -S_31131:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_XONGOTOGOSUB_STRING_E2,qbs_new_txt_len("GOTO",4)))|(qbs_equal(_SUB_XONGOTOGOSUB_STRING_E2,qbs_new_txt_len("GOSUB",5)))))||new_error){ -if(qbevent){evnt(23128);if(r)goto S_31131;} -do{ -goto fornext_exit_3329; -if(!qbevent)break;evnt(23128);}while(r); -} -fornext_continue_3329:; -} -fornext_exit_3329:; -S_31135:; -if (((-(*_SUB_XONGOTOGOSUB_LONG_I>=*_SUB_XONGOTOGOSUB_LONG_N))|(-(*_SUB_XONGOTOGOSUB_LONG_I== 2 )))||new_error){ -if(qbevent){evnt(23130);if(r)goto S_31135;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected ON expression GOTO/GOSUB label,label,...",49)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23130);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(23130);}while(r); -} -do{ -qbs_set(_SUB_XONGOTOGOSUB_STRING_E,FUNC_GETELEMENTS(_SUB_XONGOTOGOSUB_STRING_CA,&(pass3331= 2 ),&(pass3332=*_SUB_XONGOTOGOSUB_LONG_I- 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23131);}while(r); -do{ -*_SUB_XONGOTOGOSUB_LONG_G= 0 ; -if(!qbevent)break;evnt(23133);}while(r); -S_31141:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XONGOTOGOSUB_STRING_E2,qbs_new_txt_len("GOSUB",5))))||new_error){ -if(qbevent){evnt(23133);if(r)goto S_31141;} -do{ -*_SUB_XONGOTOGOSUB_LONG_G= 1 ; -if(!qbevent)break;evnt(23133);}while(r); -} -do{ -qbs_set(_SUB_XONGOTOGOSUB_STRING_E,FUNC_FIXOPERATIONORDER(_SUB_XONGOTOGOSUB_STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23134);}while(r); -S_31145:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(23135);if(r)goto S_31145;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(23135);}while(r); -} -do{ -qbs_set(_SUB_XONGOTOGOSUB_STRING_L,qbs_add(qbs_add(_SUB_XONGOTOGOSUB_STRING_L,__STRING1_SP),__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23136);}while(r); -do{ -qbs_set(_SUB_XONGOTOGOSUB_STRING_E,FUNC_EVALUATE(_SUB_XONGOTOGOSUB_STRING_E,_SUB_XONGOTOGOSUB_LONG_TYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23137);}while(r); -S_31150:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(23138);if(r)goto S_31150;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(23138);}while(r); -} -S_31153:; -if (((*_SUB_XONGOTOGOSUB_LONG_TYP&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(23139);if(r)goto S_31153;} -do{ -qbs_set(_SUB_XONGOTOGOSUB_STRING_E,FUNC_REFER(_SUB_XONGOTOGOSUB_STRING_E,_SUB_XONGOTOGOSUB_LONG_TYP,&(pass3333= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23139);}while(r); -} -S_31156:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(23140);if(r)goto S_31156;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(23140);}while(r); -} -S_31159:; -if (((*_SUB_XONGOTOGOSUB_LONG_TYP&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(23141);if(r)goto S_31159;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric expression",27)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23141);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(23141);}while(r); -} -S_31163:; -if (((*_SUB_XONGOTOGOSUB_LONG_TYP&*__LONG_ISFLOAT))||new_error){ -if(qbevent){evnt(23142);if(r)goto S_31163;} -do{ -qbs_set(_SUB_XONGOTOGOSUB_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("qbr_float_to_long(",18),_SUB_XONGOTOGOSUB_STRING_E),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23143);}while(r); -} -do{ -qbs_set(_SUB_XONGOTOGOSUB_STRING_L,qbs_add(qbs_add(_SUB_XONGOTOGOSUB_STRING_L,__STRING1_SP),_SUB_XONGOTOGOSUB_STRING_E2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23145);}while(r); -do{ -qbs_set(_SUB_XONGOTOGOSUB_STRING_U,FUNC_STR2(&(pass3334=FUNC_UNIQUENUMBER()))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23146);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass3335=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("static int32 ongo_",18),_SUB_XONGOTOGOSUB_STRING_U),qbs_new_txt_len("=0;",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23147);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass3336=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("ongo_",5),_SUB_XONGOTOGOSUB_STRING_U),qbs_new_txt_len("=",1)),_SUB_XONGOTOGOSUB_STRING_E),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23148);}while(r); -do{ -*_SUB_XONGOTOGOSUB_LONG_LN= 1 ; -if(!qbevent)break;evnt(23149);}while(r); -do{ -*_SUB_XONGOTOGOSUB_LONG_LABELWASLAST= 0 ; -if(!qbevent)break;evnt(23150);}while(r); -S_31172:; -fornext_value3338=*_SUB_XONGOTOGOSUB_LONG_I+ 1 ; -fornext_finalvalue3338=*_SUB_XONGOTOGOSUB_LONG_N; -fornext_step3338= 1 ; -if (fornext_step3338<0) fornext_step_negative3338=1; else fornext_step_negative3338=0; -if (new_error) goto fornext_error3338; -goto fornext_entrylabel3338; -while(1){ -fornext_value3338=fornext_step3338+(*_SUB_XONGOTOGOSUB_LONG_I); -fornext_entrylabel3338: -*_SUB_XONGOTOGOSUB_LONG_I=fornext_value3338; -if (fornext_step_negative3338){ -if (fornext_value3338fornext_finalvalue3338) break; -} -fornext_error3338:; -if(qbevent){evnt(23151);if(r)goto S_31172;} -do{ -qbs_set(_SUB_XONGOTOGOSUB_STRING_E,FUNC_GETELEMENT(_SUB_XONGOTOGOSUB_STRING_CA,_SUB_XONGOTOGOSUB_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23152);}while(r); -S_31174:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XONGOTOGOSUB_STRING_E,qbs_new_txt_len(",",1))))||new_error){ -if(qbevent){evnt(23153);if(r)goto S_31174;} -do{ -qbs_set(_SUB_XONGOTOGOSUB_STRING_L,qbs_add(qbs_add(_SUB_XONGOTOGOSUB_STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23154);}while(r); -S_31176:; -if ((-(*_SUB_XONGOTOGOSUB_LONG_I==*_SUB_XONGOTOGOSUB_LONG_N))||new_error){ -if(qbevent){evnt(23155);if(r)goto S_31176;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Trailing , invalid",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23155);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(23155);}while(r); -} -do{ -*_SUB_XONGOTOGOSUB_LONG_LN=*_SUB_XONGOTOGOSUB_LONG_LN+ 1 ; -if(!qbevent)break;evnt(23156);}while(r); -do{ -*_SUB_XONGOTOGOSUB_LONG_LABELWASLAST= 0 ; -if(!qbevent)break;evnt(23157);}while(r); -}else{ -S_31183:; -if ((*_SUB_XONGOTOGOSUB_LONG_LABELWASLAST)||new_error){ -if(qbevent){evnt(23159);if(r)goto S_31183;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected ,",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23159);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(23159);}while(r); -} -S_31187:; -if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(_SUB_XONGOTOGOSUB_STRING_E)== 0 )))||new_error){ -if(qbevent){evnt(23160);if(r)goto S_31187;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Invalid label!",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23160);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(23160);}while(r); -} -do{ -*_SUB_XONGOTOGOSUB_LONG_V=FUNC_HASHFIND(_SUB_XONGOTOGOSUB_STRING_E,&(pass3339= 2 ),_SUB_XONGOTOGOSUB_LONG_IGNORE,_SUB_XONGOTOGOSUB_LONG_R); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23162);}while(r); -do{ -*_SUB_XONGOTOGOSUB_LONG_X= 1 ; -if(!qbevent)break;evnt(23163);}while(r); -LABEL_LABCHK507:; -if(qbevent){evnt(23164);r=0;} -S_31193:; -if ((*_SUB_XONGOTOGOSUB_LONG_V)||new_error){ -if(qbevent){evnt(23165);if(r)goto S_31193;} -do{ -*_SUB_XONGOTOGOSUB_LONG_S=*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*_SUB_XONGOTOGOSUB_LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)); -if(!qbevent)break;evnt(23166);}while(r); -S_31195:; -if (((-(*_SUB_XONGOTOGOSUB_LONG_S==*__LONG_SUBFUNCN))|(-(*_SUB_XONGOTOGOSUB_LONG_S== -1 )))||new_error){ -if(qbevent){evnt(23167);if(r)goto S_31195;} -S_31196:; -if ((-(*_SUB_XONGOTOGOSUB_LONG_S== -1 ))||new_error){ -if(qbevent){evnt(23168);if(r)goto S_31196;} -do{ -*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*_SUB_XONGOTOGOSUB_LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257))=*__LONG_SUBFUNCN; -if(!qbevent)break;evnt(23168);}while(r); -} -do{ -*_SUB_XONGOTOGOSUB_LONG_X= 0 ; -if(!qbevent)break;evnt(23169);}while(r); -do{ -qbs_set(__STRING_TLAYOUT,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+((array_check((*_SUB_XONGOTOGOSUB_LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1)),256,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23170);}while(r); -}else{ -S_31202:; -if ((-(*_SUB_XONGOTOGOSUB_LONG_V== 2 ))||new_error){ -if(qbevent){evnt(23172);if(r)goto S_31202;} -do{ -*_SUB_XONGOTOGOSUB_LONG_V=FUNC_HASHFINDCONT(_SUB_XONGOTOGOSUB_LONG_IGNORE,_SUB_XONGOTOGOSUB_LONG_R); -if(!qbevent)break;evnt(23172);}while(r); -do{ -goto LABEL_LABCHK507; -if(!qbevent)break;evnt(23172);}while(r); -} -} -} -S_31208:; -if ((*_SUB_XONGOTOGOSUB_LONG_X)||new_error){ -if(qbevent){evnt(23175);if(r)goto S_31208;} -do{ -*__LONG_NLABELS=*__LONG_NLABELS+ 1 ; -if(!qbevent)break;evnt(23177);}while(r); -S_31210:; -if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||new_error){ -if(qbevent){evnt(23177);if(r)goto S_31210;} -do{ -*__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ; -if(!qbevent)break;evnt(23177);}while(r); -do{ +} +if(!qbevent)break;evnt(23095);}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(23096);}while(r); +do{ +SUB_HASHADD(_SUB_XGOSUB_STRING_A2,&(pass3318= 2 ),__LONG_NLABELS); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23097);}while(r); +do{ +*_SUB_XGOSUB_LONG_R=*__LONG_NLABELS; +if(!qbevent)break;evnt(23098);}while(r); +do{ +*(uint8*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*_SUB_XGOSUB_LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282))= 0 ; +if(!qbevent)break;evnt(23099);}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+((array_check((*_SUB_XGOSUB_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(23100);}while(r); +do{ +*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*_SUB_XGOSUB_LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257))=*__LONG_SUBFUNCN; +if(!qbevent)break;evnt(23101);}while(r); +do{ +*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*_SUB_XGOSUB_LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+270))=*__LONG_LINENUMBER; +if(!qbevent)break;evnt(23102);}while(r); +} +do{ +qbs_set(_SUB_XGOSUB_STRING_L,qbs_add(qbs_add(FUNC_SCASE(qbs_new_txt_len("GoSub",5)),__STRING1_SP),__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23105);}while(r); +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(23106);}while(r); +S_31104:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(23106);if(r)goto S_31104;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),_SUB_XGOSUB_STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23106);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,_SUB_XGOSUB_STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23106);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass3320=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("return_point[next_return_point++]=",34),FUNC_STR2(__LONG_GOSUBID)),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23109);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass3321=*__LONG_MAINTXTBUF),qbs_new_txt_len("if (next_return_point>=return_points) more_return_points();",59)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23110);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass3322=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("goto LABEL_",11),_SUB_XGOSUB_STRING_A2),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23111);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass3323=*__LONG_RETTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("case ",5),FUNC_STR2(__LONG_GOSUBID)),qbs_new_txt_len(":",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23113);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass3324=*__LONG_RETTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("goto RETURN_",12),FUNC_STR2(__LONG_GOSUBID)),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23114);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass3325=*__LONG_RETTXTBUF),qbs_new_txt_len("break;",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23115);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass3326=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("RETURN_",7),FUNC_STR2(__LONG_GOSUBID)),qbs_new_txt_len(":;",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23116);}while(r); +do{ +*__LONG_GOSUBID=*__LONG_GOSUBID+ 1 ; +if(!qbevent)break;evnt(23117);}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free54.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +void SUB_XONGOTOGOSUB(qbs*_SUB_XONGOTOGOSUB_STRING_A,qbs*_SUB_XONGOTOGOSUB_STRING_CA,int32*_SUB_XONGOTOGOSUB_LONG_N){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data55.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +S_31117:; +if ((-(*_SUB_XONGOTOGOSUB_LONG_N< 4 ))||new_error){ +if(qbevent){evnt(23121);if(r)goto S_31117;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected ON expression GOTO/GOSUB label,label,...",49)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23121);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23121);}while(r); +} +do{ +qbs_set(_SUB_XONGOTOGOSUB_STRING_L,FUNC_SCASE(qbs_new_txt_len("On",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23122);}while(r); +do{ +*_SUB_XONGOTOGOSUB_LONG_B= 0 ; +if(!qbevent)break;evnt(23123);}while(r); +S_31123:; +fornext_value3330= 2 ; +fornext_finalvalue3330=*_SUB_XONGOTOGOSUB_LONG_N; +fornext_step3330= 1 ; +if (fornext_step3330<0) fornext_step_negative3330=1; else fornext_step_negative3330=0; +if (new_error) goto fornext_error3330; +goto fornext_entrylabel3330; +while(1){ +fornext_value3330=fornext_step3330+(*_SUB_XONGOTOGOSUB_LONG_I); +fornext_entrylabel3330: +*_SUB_XONGOTOGOSUB_LONG_I=fornext_value3330; +if (fornext_step_negative3330){ +if (fornext_value3330fornext_finalvalue3330) break; +} +fornext_error3330:; +if(qbevent){evnt(23124);if(r)goto S_31123;} +do{ +qbs_set(_SUB_XONGOTOGOSUB_STRING_E2,FUNC_GETELEMENT(_SUB_XONGOTOGOSUB_STRING_A,_SUB_XONGOTOGOSUB_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23125);}while(r); +S_31125:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XONGOTOGOSUB_STRING_E2,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(23126);if(r)goto S_31125;} +do{ +*_SUB_XONGOTOGOSUB_LONG_B=*_SUB_XONGOTOGOSUB_LONG_B+ 1 ; +if(!qbevent)break;evnt(23126);}while(r); +} +S_31128:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XONGOTOGOSUB_STRING_E2,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(23127);if(r)goto S_31128;} +do{ +*_SUB_XONGOTOGOSUB_LONG_B=*_SUB_XONGOTOGOSUB_LONG_B- 1 ; +if(!qbevent)break;evnt(23127);}while(r); +} +S_31131:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_XONGOTOGOSUB_STRING_E2,qbs_new_txt_len("GOTO",4)))|(qbs_equal(_SUB_XONGOTOGOSUB_STRING_E2,qbs_new_txt_len("GOSUB",5)))))||new_error){ +if(qbevent){evnt(23128);if(r)goto S_31131;} +do{ +goto fornext_exit_3329; +if(!qbevent)break;evnt(23128);}while(r); +} +fornext_continue_3329:; +} +fornext_exit_3329:; +S_31135:; +if (((-(*_SUB_XONGOTOGOSUB_LONG_I>=*_SUB_XONGOTOGOSUB_LONG_N))|(-(*_SUB_XONGOTOGOSUB_LONG_I== 2 )))||new_error){ +if(qbevent){evnt(23130);if(r)goto S_31135;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected ON expression GOTO/GOSUB label,label,...",49)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23130);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23130);}while(r); +} +do{ +qbs_set(_SUB_XONGOTOGOSUB_STRING_E,FUNC_GETELEMENTS(_SUB_XONGOTOGOSUB_STRING_CA,&(pass3331= 2 ),&(pass3332=*_SUB_XONGOTOGOSUB_LONG_I- 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23131);}while(r); +do{ +*_SUB_XONGOTOGOSUB_LONG_G= 0 ; +if(!qbevent)break;evnt(23133);}while(r); +S_31141:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XONGOTOGOSUB_STRING_E2,qbs_new_txt_len("GOSUB",5))))||new_error){ +if(qbevent){evnt(23133);if(r)goto S_31141;} +do{ +*_SUB_XONGOTOGOSUB_LONG_G= 1 ; +if(!qbevent)break;evnt(23133);}while(r); +} +do{ +qbs_set(_SUB_XONGOTOGOSUB_STRING_E,FUNC_FIXOPERATIONORDER(_SUB_XONGOTOGOSUB_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23134);}while(r); +S_31145:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(23135);if(r)goto S_31145;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23135);}while(r); +} +do{ +qbs_set(_SUB_XONGOTOGOSUB_STRING_L,qbs_add(qbs_add(_SUB_XONGOTOGOSUB_STRING_L,__STRING1_SP),__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23136);}while(r); +do{ +qbs_set(_SUB_XONGOTOGOSUB_STRING_E,FUNC_EVALUATE(_SUB_XONGOTOGOSUB_STRING_E,_SUB_XONGOTOGOSUB_LONG_TYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23137);}while(r); +S_31150:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(23138);if(r)goto S_31150;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23138);}while(r); +} +S_31153:; +if (((*_SUB_XONGOTOGOSUB_LONG_TYP&*__LONG_ISREFERENCE))||new_error){ +if(qbevent){evnt(23139);if(r)goto S_31153;} +do{ +qbs_set(_SUB_XONGOTOGOSUB_STRING_E,FUNC_REFER(_SUB_XONGOTOGOSUB_STRING_E,_SUB_XONGOTOGOSUB_LONG_TYP,&(pass3333= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23139);}while(r); +} +S_31156:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(23140);if(r)goto S_31156;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23140);}while(r); +} +S_31159:; +if (((*_SUB_XONGOTOGOSUB_LONG_TYP&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(23141);if(r)goto S_31159;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected numeric expression",27)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23141);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23141);}while(r); +} +S_31163:; +if (((*_SUB_XONGOTOGOSUB_LONG_TYP&*__LONG_ISFLOAT))||new_error){ +if(qbevent){evnt(23142);if(r)goto S_31163;} +do{ +qbs_set(_SUB_XONGOTOGOSUB_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("qbr_float_to_long(",18),_SUB_XONGOTOGOSUB_STRING_E),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23143);}while(r); +} +do{ +qbs_set(_SUB_XONGOTOGOSUB_STRING_L,qbs_add(qbs_add(_SUB_XONGOTOGOSUB_STRING_L,__STRING1_SP),_SUB_XONGOTOGOSUB_STRING_E2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23145);}while(r); +do{ +qbs_set(_SUB_XONGOTOGOSUB_STRING_U,FUNC_STR2(&(pass3334=FUNC_UNIQUENUMBER()))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23146);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass3335=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("static int32 ongo_",18),_SUB_XONGOTOGOSUB_STRING_U),qbs_new_txt_len("=0;",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23147);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass3336=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("ongo_",5),_SUB_XONGOTOGOSUB_STRING_U),qbs_new_txt_len("=",1)),_SUB_XONGOTOGOSUB_STRING_E),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23148);}while(r); +do{ +*_SUB_XONGOTOGOSUB_LONG_LN= 1 ; +if(!qbevent)break;evnt(23149);}while(r); +do{ +*_SUB_XONGOTOGOSUB_LONG_LABELWASLAST= 0 ; +if(!qbevent)break;evnt(23150);}while(r); +S_31172:; +fornext_value3338=*_SUB_XONGOTOGOSUB_LONG_I+ 1 ; +fornext_finalvalue3338=*_SUB_XONGOTOGOSUB_LONG_N; +fornext_step3338= 1 ; +if (fornext_step3338<0) fornext_step_negative3338=1; else fornext_step_negative3338=0; +if (new_error) goto fornext_error3338; +goto fornext_entrylabel3338; +while(1){ +fornext_value3338=fornext_step3338+(*_SUB_XONGOTOGOSUB_LONG_I); +fornext_entrylabel3338: +*_SUB_XONGOTOGOSUB_LONG_I=fornext_value3338; +if (fornext_step_negative3338){ +if (fornext_value3338fornext_finalvalue3338) break; +} +fornext_error3338:; +if(qbevent){evnt(23151);if(r)goto S_31172;} +do{ +qbs_set(_SUB_XONGOTOGOSUB_STRING_E,FUNC_GETELEMENT(_SUB_XONGOTOGOSUB_STRING_CA,_SUB_XONGOTOGOSUB_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23152);}while(r); +S_31174:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XONGOTOGOSUB_STRING_E,qbs_new_txt_len(",",1))))||new_error){ +if(qbevent){evnt(23153);if(r)goto S_31174;} +do{ +qbs_set(_SUB_XONGOTOGOSUB_STRING_L,qbs_add(qbs_add(_SUB_XONGOTOGOSUB_STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23154);}while(r); +S_31176:; +if ((-(*_SUB_XONGOTOGOSUB_LONG_I==*_SUB_XONGOTOGOSUB_LONG_N))||new_error){ +if(qbevent){evnt(23155);if(r)goto S_31176;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Trailing , invalid",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23155);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23155);}while(r); +} +do{ +*_SUB_XONGOTOGOSUB_LONG_LN=*_SUB_XONGOTOGOSUB_LONG_LN+ 1 ; +if(!qbevent)break;evnt(23156);}while(r); +do{ +*_SUB_XONGOTOGOSUB_LONG_LABELWASLAST= 0 ; +if(!qbevent)break;evnt(23157);}while(r); +}else{ +S_31183:; +if ((*_SUB_XONGOTOGOSUB_LONG_LABELWASLAST)||new_error){ +if(qbevent){evnt(23159);if(r)goto S_31183;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected ,",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23159);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23159);}while(r); +} +S_31187:; +if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDLABEL(_SUB_XONGOTOGOSUB_STRING_E)== 0 )))||new_error){ +if(qbevent){evnt(23160);if(r)goto S_31187;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Invalid label!",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23160);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23160);}while(r); +} +do{ +*_SUB_XONGOTOGOSUB_LONG_V=FUNC_HASHFIND(_SUB_XONGOTOGOSUB_STRING_E,&(pass3339= 2 ),_SUB_XONGOTOGOSUB_LONG_IGNORE,_SUB_XONGOTOGOSUB_LONG_R); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23162);}while(r); +do{ +*_SUB_XONGOTOGOSUB_LONG_X= 1 ; +if(!qbevent)break;evnt(23163);}while(r); +LABEL_LABCHK507:; +if(qbevent){evnt(23164);r=0;} +S_31193:; +if ((*_SUB_XONGOTOGOSUB_LONG_V)||new_error){ +if(qbevent){evnt(23165);if(r)goto S_31193;} +do{ +*_SUB_XONGOTOGOSUB_LONG_S=*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*_SUB_XONGOTOGOSUB_LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257)); +if(!qbevent)break;evnt(23166);}while(r); +S_31195:; +if (((-(*_SUB_XONGOTOGOSUB_LONG_S==*__LONG_SUBFUNCN))|(-(*_SUB_XONGOTOGOSUB_LONG_S== -1 )))||new_error){ +if(qbevent){evnt(23167);if(r)goto S_31195;} +S_31196:; +if ((-(*_SUB_XONGOTOGOSUB_LONG_S== -1 ))||new_error){ +if(qbevent){evnt(23168);if(r)goto S_31196;} +do{ +*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*_SUB_XONGOTOGOSUB_LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257))=*__LONG_SUBFUNCN; +if(!qbevent)break;evnt(23168);}while(r); +} +do{ +*_SUB_XONGOTOGOSUB_LONG_X= 0 ; +if(!qbevent)break;evnt(23169);}while(r); +do{ +qbs_set(__STRING_TLAYOUT,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+((array_check((*_SUB_XONGOTOGOSUB_LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1)),256,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23170);}while(r); +}else{ +S_31202:; +if ((-(*_SUB_XONGOTOGOSUB_LONG_V== 2 ))||new_error){ +if(qbevent){evnt(23172);if(r)goto S_31202;} +do{ +*_SUB_XONGOTOGOSUB_LONG_V=FUNC_HASHFINDCONT(_SUB_XONGOTOGOSUB_LONG_IGNORE,_SUB_XONGOTOGOSUB_LONG_R); +if(!qbevent)break;evnt(23172);}while(r); +do{ +goto LABEL_LABCHK507; +if(!qbevent)break;evnt(23172);}while(r); +} +} +} +S_31208:; +if ((*_SUB_XONGOTOGOSUB_LONG_X)||new_error){ +if(qbevent){evnt(23175);if(r)goto S_31208;} +do{ +*__LONG_NLABELS=*__LONG_NLABELS+ 1 ; +if(!qbevent)break;evnt(23177);}while(r); +S_31210:; +if ((-(*__LONG_NLABELS>*__LONG_LABELS_UBOUND))||new_error){ +if(qbevent){evnt(23177);if(r)goto S_31210;} +do{ +*__LONG_LABELS_UBOUND=*__LONG_LABELS_UBOUND* 2 ; +if(!qbevent)break;evnt(23177);}while(r); +do{ if (__ARRAY_UDT_LABELS[2]&2){ error(10); @@ -102073,1654 +102073,1654 @@ if (!__ARRAY_UDT_LABELS[0]) error(257); } } __ARRAY_UDT_LABELS[2]|=1; -} -if(!qbevent)break;evnt(23177);}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(23178);}while(r); -do{ -SUB_HASHADD(_SUB_XONGOTOGOSUB_STRING_E,&(pass3340= 2 ),__LONG_NLABELS); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23179);}while(r); -do{ -*_SUB_XONGOTOGOSUB_LONG_R=*__LONG_NLABELS; -if(!qbevent)break;evnt(23180);}while(r); -do{ -*(uint8*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*_SUB_XONGOTOGOSUB_LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282))= 0 ; -if(!qbevent)break;evnt(23181);}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+((array_check((*_SUB_XONGOTOGOSUB_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(23182);}while(r); -do{ -*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*_SUB_XONGOTOGOSUB_LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257))=*__LONG_SUBFUNCN; -if(!qbevent)break;evnt(23183);}while(r); -do{ -*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*_SUB_XONGOTOGOSUB_LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+270))=*__LONG_LINENUMBER; -if(!qbevent)break;evnt(23184);}while(r); -} -do{ -qbs_set(_SUB_XONGOTOGOSUB_STRING_L,qbs_add(qbs_add(_SUB_XONGOTOGOSUB_STRING_L,__STRING1_SP),__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23187);}while(r); -S_31223:; -if ((*_SUB_XONGOTOGOSUB_LONG_G)||new_error){ -if(qbevent){evnt(23188);if(r)goto S_31223;} -do{ -qbs_set(_SUB_XONGOTOGOSUB_STRING_LB,_SUB_XONGOTOGOSUB_STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23189);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass3341=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (ongo_",9),_SUB_XONGOTOGOSUB_STRING_U),qbs_new_txt_len("==",2)),FUNC_STR2(_SUB_XONGOTOGOSUB_LONG_LN)),qbs_new_txt_len("){",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23190);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass3342=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("return_point[next_return_point++]=",34),FUNC_STR2(__LONG_GOSUBID)),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23193);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass3343=*__LONG_MAINTXTBUF),qbs_new_txt_len("if (next_return_point>=return_points) more_return_points();",59)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23194);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass3344=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("goto LABEL_",11),_SUB_XONGOTOGOSUB_STRING_LB),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23195);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass3345=*__LONG_RETTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("case ",5),FUNC_STR2(__LONG_GOSUBID)),qbs_new_txt_len(":",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23197);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass3346=*__LONG_RETTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("goto RETURN_",12),FUNC_STR2(__LONG_GOSUBID)),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23198);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass3347=*__LONG_RETTXTBUF),qbs_new_txt_len("break;",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23199);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass3348=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("RETURN_",7),FUNC_STR2(__LONG_GOSUBID)),qbs_new_txt_len(":;",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23200);}while(r); -do{ -*__LONG_GOSUBID=*__LONG_GOSUBID+ 1 ; -if(!qbevent)break;evnt(23201);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass3349=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("goto ongo_",10),_SUB_XONGOTOGOSUB_STRING_U),qbs_new_txt_len("_skip;",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23202);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass3350=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23203);}while(r); -}else{ -do{ -SUB_WRITEBUFLINE(&(pass3351=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (ongo_",9),_SUB_XONGOTOGOSUB_STRING_U),qbs_new_txt_len("==",2)),FUNC_STR2(_SUB_XONGOTOGOSUB_LONG_LN)),qbs_new_txt_len(") goto LABEL_",13)),_SUB_XONGOTOGOSUB_STRING_E),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23205);}while(r); -} -do{ -*_SUB_XONGOTOGOSUB_LONG_LABELWASLAST= 1 ; -if(!qbevent)break;evnt(23207);}while(r); -} -fornext_continue_3337:; -} -fornext_exit_3337:; -do{ -SUB_WRITEBUFLINE(&(pass3352=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if (ongo_",9),_SUB_XONGOTOGOSUB_STRING_U),qbs_new_txt_len("<0) error(5);",13))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23210);}while(r); -S_31243:; -if ((-(*_SUB_XONGOTOGOSUB_LONG_G== 1 ))||new_error){ -if(qbevent){evnt(23211);if(r)goto S_31243;} -do{ -SUB_WRITEBUFLINE(&(pass3353=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("ongo_",5),_SUB_XONGOTOGOSUB_STRING_U),qbs_new_txt_len("_skip:;",7))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23211);}while(r); -} -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(23212);}while(r); -S_31247:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(23212);if(r)goto S_31247;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),_SUB_XONGOTOGOSUB_STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23212);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,_SUB_XONGOTOGOSUB_STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23212);}while(r); -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free55.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -void SUB_XPRINT(qbs*_SUB_XPRINT_STRING_A,qbs*_SUB_XPRINT_STRING_CA,int32*_SUB_XPRINT_LONG_N){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data56.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -qbs_set(_SUB_XPRINT_STRING_U,FUNC_STR2(&(pass3357=FUNC_UNIQUENUMBER()))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23216);}while(r); -do{ -qbs_set(_SUB_XPRINT_STRING_L,FUNC_SCASE(qbs_new_txt_len("Print",5))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23218);}while(r); -S_31254:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_SUB_XPRINT_STRING_A)== 76 )))||new_error){ -if(qbevent){evnt(23219);if(r)goto S_31254;} -do{ -*_SUB_XPRINT_LONG_LP= 1 ; -if(!qbevent)break;evnt(23219);}while(r); -do{ -qbs_set(_SUB_XPRINT_STRING_LP,qbs_new_txt_len("l",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23219);}while(r); -do{ -qbs_set(_SUB_XPRINT_STRING_L,FUNC_SCASE(qbs_new_txt_len("LPrint",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23219);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass3358=*__LONG_MAINTXTBUF),qbs_new_txt_len("tab_LPRINT=1;",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23219);}while(r); -do{ -tmp_long=array_check(( 9 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(23219);}while(r); -} -S_31261:; -if ((-(*_SUB_XPRINT_LONG_N>= 2 ))||new_error){ -if(qbevent){evnt(23222);if(r)goto S_31261;} -S_31262:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(_SUB_XPRINT_STRING_A,&(pass3359= 2 )),qbs_new_txt_len("USING",5))))||new_error){ -if(qbevent){evnt(23223);if(r)goto S_31262;} -do{ -*_SUB_XPRINT_LONG_I= 3 ; -if(!qbevent)break;evnt(23225);}while(r); -LABEL_PUJUMP:; -if(qbevent){evnt(23226);r=0;} -do{ -qbs_set(_SUB_XPRINT_STRING_L,qbs_add(qbs_add(_SUB_XPRINT_STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("Using",5)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23227);}while(r); -do{ -qbs_set(_SUB_XPRINT_STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23228);}while(r); -do{ -*_SUB_XPRINT_LONG_B= 0 ; -if(!qbevent)break;evnt(23228);}while(r); -do{ -qbs_set(_SUB_XPRINT_STRING_PUFORMAT,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23228);}while(r); -S_31268:; -fornext_value3361=*_SUB_XPRINT_LONG_I; -fornext_finalvalue3361=*_SUB_XPRINT_LONG_N; -fornext_step3361= 1 ; -if (fornext_step3361<0) fornext_step_negative3361=1; else fornext_step_negative3361=0; -if (new_error) goto fornext_error3361; -goto fornext_entrylabel3361; -while(1){ -fornext_value3361=fornext_step3361+(*_SUB_XPRINT_LONG_I); -fornext_entrylabel3361: -*_SUB_XPRINT_LONG_I=fornext_value3361; -if (fornext_step_negative3361){ -if (fornext_value3361fornext_finalvalue3361) break; -} -fornext_error3361:; -if(qbevent){evnt(23229);if(r)goto S_31268;} -do{ -qbs_set(_SUB_XPRINT_STRING_A2,FUNC_GETELEMENT(_SUB_XPRINT_STRING_CA,_SUB_XPRINT_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23230);}while(r); -S_31270:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(23231);if(r)goto S_31270;} -do{ -*_SUB_XPRINT_LONG_B=*_SUB_XPRINT_LONG_B+ 1 ; -if(!qbevent)break;evnt(23231);}while(r); -} -S_31273:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(23232);if(r)goto S_31273;} -do{ -*_SUB_XPRINT_LONG_B=*_SUB_XPRINT_LONG_B- 1 ; -if(!qbevent)break;evnt(23232);}while(r); -} -S_31276:; -if ((-(*_SUB_XPRINT_LONG_B== 0 ))||new_error){ -if(qbevent){evnt(23233);if(r)goto S_31276;} -S_31277:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len(",",1))))||new_error){ -if(qbevent){evnt(23234);if(r)goto S_31277;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected PRINT USING formatstring ; ...",39)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23234);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(23234);}while(r); -} -S_31281:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len(";",1))))||new_error){ -if(qbevent){evnt(23235);if(r)goto S_31281;} -do{ -qbs_set(_SUB_XPRINT_STRING_E,FUNC_FIXOPERATIONORDER(_SUB_XPRINT_STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23236);}while(r); -S_31283:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(23237);if(r)goto S_31283;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(23237);}while(r); -} -do{ -qbs_set(_SUB_XPRINT_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(_SUB_XPRINT_STRING_L,__STRING1_SP),__STRING_TLAYOUT),__STRING1_SP2),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23238);}while(r); -do{ -qbs_set(_SUB_XPRINT_STRING_E,FUNC_EVALUATE(_SUB_XPRINT_STRING_E,_SUB_XPRINT_LONG_TYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23239);}while(r); -S_31288:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(23240);if(r)goto S_31288;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(23240);}while(r); -} -S_31291:; -if (((*_SUB_XPRINT_LONG_TYP&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(23241);if(r)goto S_31291;} -do{ -qbs_set(_SUB_XPRINT_STRING_E,FUNC_REFER(_SUB_XPRINT_STRING_E,_SUB_XPRINT_LONG_TYP,&(pass3362= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23241);}while(r); -} -S_31294:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(23242);if(r)goto S_31294;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(23242);}while(r); -} -S_31297:; -if ((-((*_SUB_XPRINT_LONG_TYP&*__LONG_ISSTRING)== 0 ))||new_error){ -if(qbevent){evnt(23243);if(r)goto S_31297;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected PRINT USING formatstring ; ...",39)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23243);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(23243);}while(r); -} -do{ -qbs_set(_SUB_XPRINT_STRING_PUFORMAT,_SUB_XPRINT_STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23244);}while(r); -do{ -goto fornext_exit_3360; -if(!qbevent)break;evnt(23245);}while(r); -} -} -S_31305:; -if ((qbs_cleanup(qbs_tmp_base,_SUB_XPRINT_STRING_E->len))||new_error){ -if(qbevent){evnt(23248);if(r)goto S_31305;} -do{ -qbs_set(_SUB_XPRINT_STRING_E,qbs_add(qbs_add(_SUB_XPRINT_STRING_E,__STRING1_SP),_SUB_XPRINT_STRING_A2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23248);}while(r); -}else{ -do{ -qbs_set(_SUB_XPRINT_STRING_E,_SUB_XPRINT_STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23248);}while(r); -} -fornext_continue_3360:; -} -fornext_exit_3360:; -S_31311:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XPRINT_STRING_PUFORMAT,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(23250);if(r)goto S_31311;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected PRINT USING formatstring ; ...",39)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23250);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(23250);}while(r); -} -S_31315:; -if ((-(*_SUB_XPRINT_LONG_I==*_SUB_XPRINT_LONG_N))||new_error){ -if(qbevent){evnt(23251);if(r)goto S_31315;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected PRINT USING formatstring ; ...",39)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23251);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(23251);}while(r); -} -S_31319:; -if ((-(*_SUB_XPRINT_LONG_TQBSSET== 0 ))||new_error){ -if(qbevent){evnt(23253);if(r)goto S_31319;} -do{ -SUB_WRITEBUFLINE(&(pass3364=*__LONG_MAINTXTBUF),qbs_new_txt_len("tqbs=qbs_new(0,0);",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23254);}while(r); -}else{ -do{ -SUB_WRITEBUFLINE(&(pass3365=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_set(tqbs,qbs_new_txt_len(",29),func_chr( 34 )),func_chr( 34 )),qbs_new_txt_len(",0));",5))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23256);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass3366=*__LONG_MAINTXTBUF),qbs_new_txt_len("tmp_long=0;",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23259);}while(r); -do{ -qbs_set(_SUB_XPRINT_STRING_PUF,qbs_add(qbs_new_txt_len("print_using_format",18),_SUB_XPRINT_STRING_U)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23263);}while(r); -S_31326:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SUBFUNC,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(23264);if(r)goto S_31326;} -do{ -SUB_WRITEBUFLINE(&(pass3367=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("static qbs *",12),_SUB_XPRINT_STRING_PUF),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23265);}while(r); -}else{ -do{ -SUB_WRITEBUFLINE(&(pass3368=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("qbs *",5),_SUB_XPRINT_STRING_PUF),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23267);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass3369=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_XPRINT_STRING_PUF,qbs_new_txt_len("=qbs_new(0,0); qbs_set(",23)),_SUB_XPRINT_STRING_PUF),qbs_new_txt_len(",",1)),_SUB_XPRINT_STRING_PUFORMAT),qbs_new_txt_len(");",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23269);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass3370=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if (new_error) goto skip_pu",27),_SUB_XPRINT_STRING_U),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23270);}while(r); -do{ -*_SUB_XPRINT_LONG_B= 0 ; -if(!qbevent)break;evnt(23273);}while(r); -do{ -qbs_set(_SUB_XPRINT_STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23274);}while(r); -do{ -*_SUB_XPRINT_LONG_LAST= 0 ; -if(!qbevent)break;evnt(23275);}while(r); -S_31336:; -fornext_value3372=*_SUB_XPRINT_LONG_I+ 1 ; -fornext_finalvalue3372=*_SUB_XPRINT_LONG_N; -fornext_step3372= 1 ; -if (fornext_step3372<0) fornext_step_negative3372=1; else fornext_step_negative3372=0; -if (new_error) goto fornext_error3372; -goto fornext_entrylabel3372; -while(1){ -fornext_value3372=fornext_step3372+(*_SUB_XPRINT_LONG_I); -fornext_entrylabel3372: -*_SUB_XPRINT_LONG_I=fornext_value3372; -if (fornext_step_negative3372){ -if (fornext_value3372fornext_finalvalue3372) break; -} -fornext_error3372:; -if(qbevent){evnt(23276);if(r)goto S_31336;} -do{ -qbs_set(_SUB_XPRINT_STRING_A2,FUNC_GETELEMENT(_SUB_XPRINT_STRING_CA,_SUB_XPRINT_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23277);}while(r); -S_31338:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(23278);if(r)goto S_31338;} -do{ -*_SUB_XPRINT_LONG_B=*_SUB_XPRINT_LONG_B+ 1 ; -if(!qbevent)break;evnt(23278);}while(r); -} -S_31341:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(23279);if(r)goto S_31341;} -do{ -*_SUB_XPRINT_LONG_B=*_SUB_XPRINT_LONG_B- 1 ; -if(!qbevent)break;evnt(23279);}while(r); -} -S_31344:; -if ((-(*_SUB_XPRINT_LONG_B== 0 ))||new_error){ -if(qbevent){evnt(23280);if(r)goto S_31344;} -S_31345:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len(";",1)))|(qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len(",",1)))))||new_error){ -if(qbevent){evnt(23281);if(r)goto S_31345;} -LABEL_PRINTULAST:; -if(qbevent){evnt(23282);r=0;} -do{ -qbs_set(_SUB_XPRINT_STRING_E,FUNC_FIXOPERATIONORDER(_SUB_XPRINT_STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23283);}while(r); -S_31347:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(23284);if(r)goto S_31347;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(23284);}while(r); -} -S_31350:; -if ((*_SUB_XPRINT_LONG_LAST)||new_error){ -if(qbevent){evnt(23285);if(r)goto S_31350;} -do{ -qbs_set(_SUB_XPRINT_STRING_L,qbs_add(qbs_add(_SUB_XPRINT_STRING_L,__STRING1_SP),__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23285);}while(r); -}else{ -do{ -qbs_set(_SUB_XPRINT_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(_SUB_XPRINT_STRING_L,__STRING1_SP),__STRING_TLAYOUT),__STRING1_SP2),_SUB_XPRINT_STRING_A2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23285);}while(r); -} -do{ -qbs_set(_SUB_XPRINT_STRING_E,FUNC_EVALUATE(_SUB_XPRINT_STRING_E,_SUB_XPRINT_LONG_TYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23286);}while(r); -S_31356:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(23287);if(r)goto S_31356;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(23287);}while(r); -} -S_31359:; -if (((*_SUB_XPRINT_LONG_TYP&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(23288);if(r)goto S_31359;} -do{ -qbs_set(_SUB_XPRINT_STRING_E,FUNC_REFER(_SUB_XPRINT_STRING_E,_SUB_XPRINT_LONG_TYP,&(pass3373= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23288);}while(r); -} -S_31362:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(23289);if(r)goto S_31362;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(23289);}while(r); -} -S_31365:; -if ((*_SUB_XPRINT_LONG_TYP&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(23290);if(r)goto S_31365;} -S_31366:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(_SUB_XPRINT_STRING_E, 9 ),qbs_new_txt_len("func_tab(",9)))|(qbs_equal(qbs_left(_SUB_XPRINT_STRING_E, 9 ),qbs_new_txt_len("func_spc(",9)))))||new_error){ -if(qbevent){evnt(23292);if(r)goto S_31366;} -do{ -SUB_WRITEBUFLINE(&(pass3374=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("qbs_",4),_SUB_XPRINT_STRING_LP),qbs_new_txt_len("print(tqbs,0);",14))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23297);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass3375=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("qbs_set(tqbs,",13),_SUB_XPRINT_STRING_E),qbs_new_txt_len(");",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23299);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass3376=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if (new_error) goto skip_pu",27),_SUB_XPRINT_STRING_U),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23300);}while(r); -S_31370:; -if ((*_SUB_XPRINT_LONG_LP)||new_error){ -if(qbevent){evnt(23301);if(r)goto S_31370;} -do{ -SUB_WRITEBUFLINE(&(pass3377=*__LONG_MAINTXTBUF),qbs_new_txt_len("lprint_makefit(tqbs);",21)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23301);}while(r); -}else{ -do{ -SUB_WRITEBUFLINE(&(pass3378=*__LONG_MAINTXTBUF),qbs_new_txt_len("makefit(tqbs);",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23301);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass3379=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("qbs_",4),_SUB_XPRINT_STRING_LP),qbs_new_txt_len("print(tqbs,0);",14))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23302);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass3380=*__LONG_MAINTXTBUF),qbs_new_txt_len("tqbs->len=0;",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23304);}while(r); -}else{ -do{ -SUB_WRITEBUFLINE(&(pass3381=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("tmp_long=print_using(",21),_SUB_XPRINT_STRING_PUF),qbs_new_txt_len(",tmp_long,tqbs,",15)),_SUB_XPRINT_STRING_E),qbs_new_txt_len(");",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23309);}while(r); -} -}else{ -S_31381:; -if ((*_SUB_XPRINT_LONG_TYP&*__LONG_ISFLOAT)||new_error){ -if(qbevent){evnt(23316);if(r)goto S_31381;} -S_31382:; -if ((-((*_SUB_XPRINT_LONG_TYP& 511 )== 32 ))||new_error){ -if(qbevent){evnt(23317);if(r)goto S_31382;} -do{ -SUB_WRITEBUFLINE(&(pass3382=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("tmp_long=print_using_single(",28),_SUB_XPRINT_STRING_PUF),qbs_new_txt_len(",",1)),_SUB_XPRINT_STRING_E),qbs_new_txt_len(",tmp_long,tqbs);",16))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23317);}while(r); -} -S_31385:; -if ((-((*_SUB_XPRINT_LONG_TYP& 511 )== 64 ))||new_error){ -if(qbevent){evnt(23318);if(r)goto S_31385;} -do{ -SUB_WRITEBUFLINE(&(pass3383=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("tmp_long=print_using_double(",28),_SUB_XPRINT_STRING_PUF),qbs_new_txt_len(",",1)),_SUB_XPRINT_STRING_E),qbs_new_txt_len(",tmp_long,tqbs);",16))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23318);}while(r); -} -S_31388:; -if ((-((*_SUB_XPRINT_LONG_TYP& 511 )> 64 ))||new_error){ -if(qbevent){evnt(23319);if(r)goto S_31388;} -do{ -SUB_WRITEBUFLINE(&(pass3384=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("tmp_long=print_using_float(",27),_SUB_XPRINT_STRING_PUF),qbs_new_txt_len(",",1)),_SUB_XPRINT_STRING_E),qbs_new_txt_len(",tmp_long,tqbs);",16))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23319);}while(r); -} -}else{ -S_31392:; -if ((((-((*_SUB_XPRINT_LONG_TYP& 511 )== 64 )))&(-((*_SUB_XPRINT_LONG_TYP&*__LONG_ISUNSIGNED)!= 0 )))||new_error){ -if(qbevent){evnt(23321);if(r)goto S_31392;} -do{ -SUB_WRITEBUFLINE(&(pass3385=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("tmp_long=print_using_uinteger64(",32),_SUB_XPRINT_STRING_PUF),qbs_new_txt_len(",",1)),_SUB_XPRINT_STRING_E),qbs_new_txt_len(",tmp_long,tqbs);",16))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23322);}while(r); -}else{ -do{ -SUB_WRITEBUFLINE(&(pass3386=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("tmp_long=print_using_integer64(",31),_SUB_XPRINT_STRING_PUF),qbs_new_txt_len(",",1)),_SUB_XPRINT_STRING_E),qbs_new_txt_len(",tmp_long,tqbs);",16))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23324);}while(r); -} -} -} -do{ -SUB_WRITEBUFLINE(&(pass3387=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if (new_error) goto skip_pu",27),_SUB_XPRINT_STRING_U),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23328);}while(r); -do{ -qbs_set(_SUB_XPRINT_STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23329);}while(r); -S_31401:; -if ((*_SUB_XPRINT_LONG_LAST)||new_error){ -if(qbevent){evnt(23330);if(r)goto S_31401;} -do{ -goto fornext_exit_3371; -if(!qbevent)break;evnt(23330);}while(r); -} -do{ -goto LABEL_PRINTUNEXT; -if(!qbevent)break;evnt(23331);}while(r); -} -} -S_31407:; -if ((qbs_cleanup(qbs_tmp_base,_SUB_XPRINT_STRING_E->len))||new_error){ -if(qbevent){evnt(23334);if(r)goto S_31407;} -do{ -qbs_set(_SUB_XPRINT_STRING_E,qbs_add(qbs_add(_SUB_XPRINT_STRING_E,__STRING1_SP),_SUB_XPRINT_STRING_A2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23334);}while(r); -}else{ -do{ -qbs_set(_SUB_XPRINT_STRING_E,_SUB_XPRINT_STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23334);}while(r); -} -LABEL_PRINTUNEXT:; -if(qbevent){evnt(23335);r=0;} -fornext_continue_3371:; -} -fornext_exit_3371:; -S_31413:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_XPRINT_STRING_E,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(23337);if(r)goto S_31413;} -do{ -qbs_set(_SUB_XPRINT_STRING_A2,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23337);}while(r); -do{ -*_SUB_XPRINT_LONG_LAST= 1 ; -if(!qbevent)break;evnt(23337);}while(r); -do{ -goto LABEL_PRINTULAST; -if(!qbevent)break;evnt(23337);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass3389=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("skip_pu",7),_SUB_XPRINT_STRING_U),qbs_new_txt_len(":",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23338);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass3390=*__LONG_MAINTXTBUF),qbs_new_txt_len("if (new_error){",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23340);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass3391=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("g_tmp_long=new_error; new_error=0; qbs_",39),_SUB_XPRINT_STRING_LP),qbs_new_txt_len("print(tqbs,0); new_error=g_tmp_long;",36))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23341);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass3392=*__LONG_MAINTXTBUF),qbs_new_txt_len("}else{",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23342);}while(r); -S_31422:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len(",",1)))|(qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len(";",1)))))||new_error){ -if(qbevent){evnt(23343);if(r)goto S_31422;} -do{ -*_SUB_XPRINT_LONG_NL= 0 ; -if(!qbevent)break;evnt(23343);}while(r); -}else{ -do{ -*_SUB_XPRINT_LONG_NL= 1 ; -if(!qbevent)break;evnt(23343);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass3393=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_",4),_SUB_XPRINT_STRING_LP),qbs_new_txt_len("print(tqbs,",11)),FUNC_STR2(_SUB_XPRINT_LONG_NL)),qbs_new_txt_len(");",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23344);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass3394=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23345);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass3395=*__LONG_MAINTXTBUF),qbs_new_txt_len("qbs_free(tqbs);",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23346);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass3396=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("qbs_free(",9),_SUB_XPRINT_STRING_PUF),qbs_new_txt_len(");",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23347);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass3397=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("skip",4),_SUB_XPRINT_STRING_U),qbs_new_txt_len(":",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23348);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass3398=*__LONG_MAINTXTBUF),qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23349);}while(r); -S_31433:; -if ((*_SUB_XPRINT_LONG_LP)||new_error){ -if(qbevent){evnt(23350);if(r)goto S_31433;} -do{ -SUB_WRITEBUFLINE(&(pass3399=*__LONG_MAINTXTBUF),qbs_new_txt_len("tab_LPRINT=0;",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23350);}while(r); -} -do{ -qbs_set(__STRING_TLAYOUT,_SUB_XPRINT_STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23351);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(23352);}while(r); -} -} -do{ -*_SUB_XPRINT_LONG_B= 0 ; -if(!qbevent)break;evnt(23357);}while(r); -do{ -qbs_set(_SUB_XPRINT_STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23358);}while(r); -do{ -*_SUB_XPRINT_LONG_LAST= 0 ; -if(!qbevent)break;evnt(23359);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass3400=*__LONG_MAINTXTBUF),qbs_new_txt_len("tqbs=qbs_new(0,0);",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23360);}while(r); -do{ -*_SUB_XPRINT_LONG_TQBSSET= -1 ; -if(!qbevent)break;evnt(23361);}while(r); -S_31445:; -fornext_value3402= 2 ; -fornext_finalvalue3402=*_SUB_XPRINT_LONG_N; -fornext_step3402= 1 ; -if (fornext_step3402<0) fornext_step_negative3402=1; else fornext_step_negative3402=0; -if (new_error) goto fornext_error3402; -goto fornext_entrylabel3402; -while(1){ -fornext_value3402=fornext_step3402+(*_SUB_XPRINT_LONG_I); -fornext_entrylabel3402: -*_SUB_XPRINT_LONG_I=fornext_value3402; -if (fornext_step_negative3402){ -if (fornext_value3402fornext_finalvalue3402) break; -} -fornext_error3402:; -if(qbevent){evnt(23362);if(r)goto S_31445;} -do{ -qbs_set(_SUB_XPRINT_STRING_A2,FUNC_GETELEMENT(_SUB_XPRINT_STRING_CA,_SUB_XPRINT_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23363);}while(r); -S_31447:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(23364);if(r)goto S_31447;} -do{ -*_SUB_XPRINT_LONG_B=*_SUB_XPRINT_LONG_B+ 1 ; -if(!qbevent)break;evnt(23364);}while(r); -} -S_31450:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(23365);if(r)goto S_31450;} -do{ -*_SUB_XPRINT_LONG_B=*_SUB_XPRINT_LONG_B- 1 ; -if(!qbevent)break;evnt(23365);}while(r); -} -S_31453:; -if ((-(*_SUB_XPRINT_LONG_B== 0 ))||new_error){ -if(qbevent){evnt(23366);if(r)goto S_31453;} -S_31454:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len(";",1)))|(qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len(",",1)))|(qbs_equal(qbs_ucase(_SUB_XPRINT_STRING_A2),qbs_new_txt_len("USING",5)))))||new_error){ -if(qbevent){evnt(23367);if(r)goto S_31454;} -LABEL_PRINTLAST:; -if(qbevent){evnt(23368);r=0;} -S_31455:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_XPRINT_STRING_A2),qbs_new_txt_len("USING",5))))||new_error){ -if(qbevent){evnt(23370);if(r)goto S_31455;} -S_31456:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_XPRINT_STRING_E,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(23371);if(r)goto S_31456;} -do{ -*_SUB_XPRINT_LONG_GOTOPU= 1 ; -if(!qbevent)break;evnt(23371);}while(r); -}else{ -do{ -*_SUB_XPRINT_LONG_I=*_SUB_XPRINT_LONG_I+ 1 ; -if(!qbevent)break;evnt(23371);}while(r); -do{ -goto LABEL_PUJUMP; -if(!qbevent)break;evnt(23371);}while(r); -} -} -S_31463:; -if ((qbs_cleanup(qbs_tmp_base,_SUB_XPRINT_STRING_E->len))||new_error){ -if(qbevent){evnt(23374);if(r)goto S_31463;} -do{ -qbs_set(_SUB_XPRINT_STRING_EBAK,_SUB_XPRINT_STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23375);}while(r); -do{ -*_SUB_XPRINT_LONG_PNRTNUM= 0 ; -if(!qbevent)break;evnt(23376);}while(r); -LABEL_PRINTNUMBER:; -if(qbevent){evnt(23377);r=0;} -do{ -qbs_set(_SUB_XPRINT_STRING_E,FUNC_FIXOPERATIONORDER(_SUB_XPRINT_STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23378);}while(r); -S_31467:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(23379);if(r)goto S_31467;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(23379);}while(r); -} -S_31470:; -if ((-(*_SUB_XPRINT_LONG_PNRTNUM== 0 ))||new_error){ -if(qbevent){evnt(23380);if(r)goto S_31470;} -S_31471:; -if ((*_SUB_XPRINT_LONG_LAST)||new_error){ -if(qbevent){evnt(23381);if(r)goto S_31471;} -do{ -qbs_set(_SUB_XPRINT_STRING_L,qbs_add(qbs_add(_SUB_XPRINT_STRING_L,__STRING1_SP),__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23381);}while(r); -}else{ -do{ -qbs_set(_SUB_XPRINT_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(_SUB_XPRINT_STRING_L,__STRING1_SP),__STRING_TLAYOUT),__STRING1_SP2),_SUB_XPRINT_STRING_A2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23381);}while(r); -} -} -do{ -qbs_set(_SUB_XPRINT_STRING_E,FUNC_EVALUATE(_SUB_XPRINT_STRING_E,_SUB_XPRINT_LONG_TYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23383);}while(r); -S_31478:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(23384);if(r)goto S_31478;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(23384);}while(r); -} -S_31481:; -if ((-((*_SUB_XPRINT_LONG_TYP&*__LONG_ISSTRING)== 0 ))||new_error){ -if(qbevent){evnt(23385);if(r)goto S_31481;} -do{ -qbs_set(_SUB_XPRINT_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("STR$",4),__STRING1_SP),qbs_new_txt_len("(",1)),__STRING1_SP),_SUB_XPRINT_STRING_EBAK),__STRING1_SP),qbs_new_txt_len(")",1)),__STRING1_SP),qbs_new_txt_len("+",1)),__STRING1_SP),func_chr( 34 )),qbs_new_txt_len(" ",1)),func_chr( 34 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23387);}while(r); -do{ -*_SUB_XPRINT_LONG_PNRTNUM= 1 ; -if(!qbevent)break;evnt(23388);}while(r); -do{ -goto LABEL_PRINTNUMBER; -if(!qbevent)break;evnt(23389);}while(r); -} -S_31486:; -if (((*_SUB_XPRINT_LONG_TYP&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(23391);if(r)goto S_31486;} -do{ -qbs_set(_SUB_XPRINT_STRING_E,FUNC_REFER(_SUB_XPRINT_STRING_E,_SUB_XPRINT_LONG_TYP,&(pass3404= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23391);}while(r); -} -S_31489:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(23392);if(r)goto S_31489;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(23392);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass3405=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("qbs_set(tqbs,",13),_SUB_XPRINT_STRING_E),qbs_new_txt_len(");",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23393);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass3406=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if (new_error) goto skip",24),_SUB_XPRINT_STRING_U),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23394);}while(r); -S_31494:; -if ((*_SUB_XPRINT_LONG_LP)||new_error){ -if(qbevent){evnt(23395);if(r)goto S_31494;} -do{ -SUB_WRITEBUFLINE(&(pass3407=*__LONG_MAINTXTBUF),qbs_new_txt_len("lprint_makefit(tqbs);",21)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23395);}while(r); -}else{ -do{ -SUB_WRITEBUFLINE(&(pass3408=*__LONG_MAINTXTBUF),qbs_new_txt_len("makefit(tqbs);",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23395);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass3409=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("qbs_",4),_SUB_XPRINT_STRING_LP),qbs_new_txt_len("print(tqbs,0);",14))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23396);}while(r); -}else{ -S_31501:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len(",",1))))||new_error){ -if(qbevent){evnt(23398);if(r)goto S_31501;} -do{ -qbs_set(_SUB_XPRINT_STRING_L,qbs_add(qbs_add(_SUB_XPRINT_STRING_L,__STRING1_SP),_SUB_XPRINT_STRING_A2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23398);}while(r); -} -S_31504:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len(";",1))))||new_error){ -if(qbevent){evnt(23399);if(r)goto S_31504;} -S_31505:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_right(_SUB_XPRINT_STRING_L, 1 ),qbs_new_txt_len(";",1))))||new_error){ -if(qbevent){evnt(23400);if(r)goto S_31505;} -do{ -qbs_set(_SUB_XPRINT_STRING_L,qbs_add(qbs_add(_SUB_XPRINT_STRING_L,__STRING1_SP),_SUB_XPRINT_STRING_A2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23400);}while(r); -} -} -} -S_31510:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len(",",1))))||new_error){ -if(qbevent){evnt(23403);if(r)goto S_31510;} -do{ -SUB_WRITEBUFLINE(&(pass3410=*__LONG_MAINTXTBUF),qbs_new_txt_len("tab();",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23403);}while(r); -} -do{ -qbs_set(_SUB_XPRINT_STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23404);}while(r); -S_31514:; -if ((*_SUB_XPRINT_LONG_GOTOPU)||new_error){ -if(qbevent){evnt(23406);if(r)goto S_31514;} -do{ -*_SUB_XPRINT_LONG_I=*_SUB_XPRINT_LONG_I+ 1 ; -if(!qbevent)break;evnt(23406);}while(r); -do{ -goto LABEL_PUJUMP; -if(!qbevent)break;evnt(23406);}while(r); -} -S_31518:; -if ((*_SUB_XPRINT_LONG_LAST)||new_error){ -if(qbevent){evnt(23408);if(r)goto S_31518;} -do{ -SUB_WRITEBUFLINE(&(pass3411=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("qbs_",4),_SUB_XPRINT_STRING_LP),qbs_new_txt_len("print(nothingstring,1);",23))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23409);}while(r); -do{ -goto fornext_exit_3401; -if(!qbevent)break;evnt(23410);}while(r); -} -do{ -goto LABEL_PRINTNEXT; -if(!qbevent)break;evnt(23413);}while(r); -} -} -S_31525:; -if ((qbs_cleanup(qbs_tmp_base,_SUB_XPRINT_STRING_E->len))||new_error){ -if(qbevent){evnt(23417);if(r)goto S_31525;} -do{ -qbs_set(_SUB_XPRINT_STRING_E,qbs_add(qbs_add(_SUB_XPRINT_STRING_E,__STRING1_SP),_SUB_XPRINT_STRING_A2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23417);}while(r); -}else{ -do{ -qbs_set(_SUB_XPRINT_STRING_E,_SUB_XPRINT_STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23417);}while(r); -} -LABEL_PRINTNEXT:; -if(qbevent){evnt(23418);r=0;} -fornext_continue_3401:; -} -fornext_exit_3401:; -S_31531:; -if ((qbs_cleanup(qbs_tmp_base,_SUB_XPRINT_STRING_E->len))||new_error){ -if(qbevent){evnt(23420);if(r)goto S_31531;} -do{ -qbs_set(_SUB_XPRINT_STRING_A2,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23420);}while(r); -do{ -*_SUB_XPRINT_LONG_LAST= 1 ; -if(!qbevent)break;evnt(23420);}while(r); -do{ -goto LABEL_PRINTLAST; -if(!qbevent)break;evnt(23420);}while(r); -} -S_31536:; -if ((-(*_SUB_XPRINT_LONG_N== 1 ))||new_error){ -if(qbevent){evnt(23421);if(r)goto S_31536;} -do{ -SUB_WRITEBUFLINE(&(pass3414=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("qbs_",4),_SUB_XPRINT_STRING_LP),qbs_new_txt_len("print(nothingstring,1);",23))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23421);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass3415=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("skip",4),_SUB_XPRINT_STRING_U),qbs_new_txt_len(":",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23422);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass3416=*__LONG_MAINTXTBUF),qbs_new_txt_len("qbs_free(tqbs);",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23423);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass3417=*__LONG_MAINTXTBUF),qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23424);}while(r); -S_31542:; -if ((*_SUB_XPRINT_LONG_LP)||new_error){ -if(qbevent){evnt(23425);if(r)goto S_31542;} -do{ -SUB_WRITEBUFLINE(&(pass3418=*__LONG_MAINTXTBUF),qbs_new_txt_len("tab_LPRINT=0;",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23425);}while(r); -} -do{ -qbs_set(__STRING_TLAYOUT,_SUB_XPRINT_STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23426);}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free56.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -void SUB_XREAD(qbs*_SUB_XREAD_STRING_CA,int32*_SUB_XREAD_LONG_N){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data57.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -qbs_set(_SUB_XREAD_STRING_L,FUNC_SCASE(qbs_new_txt_len("Read",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23433);}while(r); -S_31547:; -if ((-(*_SUB_XREAD_LONG_N== 1 ))||new_error){ -if(qbevent){evnt(23434);if(r)goto S_31547;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected variable",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23434);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(23434);}while(r); -} -do{ -*_SUB_XREAD_LONG_I= 2 ; -if(!qbevent)break;evnt(23435);}while(r); -S_31552:; -if ((-(*_SUB_XREAD_LONG_I>*_SUB_XREAD_LONG_N))||new_error){ -if(qbevent){evnt(23436);if(r)goto S_31552;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected , ...",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23436);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(23436);}while(r); -} -do{ -qbs_set(_SUB_XREAD_STRING_A3,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23437);}while(r); -do{ -*_SUB_XREAD_LONG_B= 0 ; -if(!qbevent)break;evnt(23438);}while(r); -S_31558:; -fornext_value3421=*_SUB_XREAD_LONG_I; -fornext_finalvalue3421=*_SUB_XREAD_LONG_N; -fornext_step3421= 1 ; -if (fornext_step3421<0) fornext_step_negative3421=1; else fornext_step_negative3421=0; -if (new_error) goto fornext_error3421; -goto fornext_entrylabel3421; -while(1){ -fornext_value3421=fornext_step3421+(*_SUB_XREAD_LONG_I); -fornext_entrylabel3421: -*_SUB_XREAD_LONG_I=fornext_value3421; -if (fornext_step_negative3421){ -if (fornext_value3421fornext_finalvalue3421) break; -} -fornext_error3421:; -if(qbevent){evnt(23439);if(r)goto S_31558;} -do{ -qbs_set(_SUB_XREAD_STRING_A2,FUNC_GETELEMENT(_SUB_XREAD_STRING_CA,_SUB_XREAD_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23440);}while(r); -S_31560:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XREAD_STRING_A2,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(23441);if(r)goto S_31560;} -do{ -*_SUB_XREAD_LONG_B=*_SUB_XREAD_LONG_B+ 1 ; -if(!qbevent)break;evnt(23441);}while(r); -} -S_31563:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XREAD_STRING_A2,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(23442);if(r)goto S_31563;} -do{ -*_SUB_XREAD_LONG_B=*_SUB_XREAD_LONG_B- 1 ; -if(!qbevent)break;evnt(23442);}while(r); -} -S_31566:; -if ((qbs_cleanup(qbs_tmp_base,(((qbs_equal(_SUB_XREAD_STRING_A2,qbs_new_txt_len(",",1)))&(-(*_SUB_XREAD_LONG_B== 0 ))))|(-(*_SUB_XREAD_LONG_I==*_SUB_XREAD_LONG_N))))||new_error){ -if(qbevent){evnt(23443);if(r)goto S_31566;} -S_31567:; -if ((-(*_SUB_XREAD_LONG_I==*_SUB_XREAD_LONG_N))||new_error){ -if(qbevent){evnt(23444);if(r)goto S_31567;} -S_31568:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XREAD_STRING_A3,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(23445);if(r)goto S_31568;} -do{ -qbs_set(_SUB_XREAD_STRING_A3,_SUB_XREAD_STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23445);}while(r); -}else{ -do{ -qbs_set(_SUB_XREAD_STRING_A3,qbs_add(qbs_add(_SUB_XREAD_STRING_A3,__STRING1_SP),_SUB_XREAD_STRING_A2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23445);}while(r); -} -} -S_31574:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XREAD_STRING_A3,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(23447);if(r)goto S_31574;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected , ...",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23447);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(23447);}while(r); -} -do{ -qbs_set(_SUB_XREAD_STRING_E,FUNC_FIXOPERATIONORDER(_SUB_XREAD_STRING_A3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23448);}while(r); -S_31579:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(23449);if(r)goto S_31579;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(23449);}while(r); -} -do{ -qbs_set(_SUB_XREAD_STRING_L,qbs_add(qbs_add(_SUB_XREAD_STRING_L,__STRING1_SP),__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23450);}while(r); -S_31583:; -if ((-(*_SUB_XREAD_LONG_I!=*_SUB_XREAD_LONG_N))||new_error){ -if(qbevent){evnt(23450);if(r)goto S_31583;} -do{ -qbs_set(_SUB_XREAD_STRING_L,qbs_add(qbs_add(_SUB_XREAD_STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23450);}while(r); -} -do{ -qbs_set(_SUB_XREAD_STRING_E,FUNC_EVALUATE(_SUB_XREAD_STRING_E,_SUB_XREAD_LONG_T)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23451);}while(r); -S_31587:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(23452);if(r)goto S_31587;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(23452);}while(r); -} -S_31590:; -if ((-((*_SUB_XREAD_LONG_T&*__LONG_ISREFERENCE)== 0 ))||new_error){ -if(qbevent){evnt(23453);if(r)goto S_31590;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected variable",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23453);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(23453);}while(r); -} -S_31594:; -if (((*_SUB_XREAD_LONG_T&*__LONG_ISSTRING))||new_error){ -if(qbevent){evnt(23455);if(r)goto S_31594;} -do{ -qbs_set(_SUB_XREAD_STRING_E,FUNC_REFER(_SUB_XREAD_STRING_E,_SUB_XREAD_LONG_T,&(pass3422= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23456);}while(r); -S_31596:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(23457);if(r)goto S_31596;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(23457);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass3423=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sub_read_string(data,&data_offset,data_size,",44),_SUB_XREAD_STRING_E),qbs_new_txt_len(");",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23458);}while(r); -do{ -*__INTEGER_STRINGPROCESSINGHAPPENED= 1 ; -if(!qbevent)break;evnt(23459);}while(r); -}else{ -S_31602:; -if (((-((*_SUB_XREAD_LONG_T&*__LONG_ISFLOAT)!= 0 ))|(-((*_SUB_XREAD_LONG_T& 511 )!= 64 )))||new_error){ -if(qbevent){evnt(23462);if(r)goto S_31602;} -S_31603:; -if (((*_SUB_XREAD_LONG_T&*__LONG_ISOFFSETINBITS))||new_error){ -if(qbevent){evnt(23463);if(r)goto S_31603;} -do{ -SUB_SETREFER(_SUB_XREAD_STRING_E,_SUB_XREAD_LONG_T,qbs_add(qbs_add(qbs_new_txt_len("((int64)func_read_float(data,&data_offset,data_size,",52),FUNC_STR2(_SUB_XREAD_LONG_T)),qbs_new_txt_len("))",2)),&(pass3424= 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23464);}while(r); -S_31605:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(23465);if(r)goto S_31605;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(23465);}while(r); -} -}else{ -do{ -SUB_SETREFER(_SUB_XREAD_STRING_E,_SUB_XREAD_LONG_T,qbs_add(qbs_add(qbs_new_txt_len("func_read_float(data,&data_offset,data_size,",44),FUNC_STR2(_SUB_XREAD_LONG_T)),qbs_new_txt_len(")",1)),&(pass3425= 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23467);}while(r); -S_31610:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(23468);if(r)goto S_31610;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(23468);}while(r); -} -} -}else{ -S_31615:; -if ((*_SUB_XREAD_LONG_T&*__LONG_ISUNSIGNED)||new_error){ -if(qbevent){evnt(23471);if(r)goto S_31615;} -do{ -SUB_SETREFER(_SUB_XREAD_STRING_E,_SUB_XREAD_LONG_T,qbs_new_txt_len("func_read_uint64(data,&data_offset,data_size)",45),&(pass3426= 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23472);}while(r); -S_31617:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(23473);if(r)goto S_31617;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(23473);}while(r); -} -}else{ -do{ -SUB_SETREFER(_SUB_XREAD_STRING_E,_SUB_XREAD_LONG_T,qbs_new_txt_len("func_read_int64(data,&data_offset,data_size)",44),&(pass3427= 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23475);}while(r); -S_31622:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(23476);if(r)goto S_31622;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(23476);}while(r); -} -} -} -} -S_31628:; -if ((-(*_SUB_XREAD_LONG_I==*_SUB_XREAD_LONG_N))||new_error){ -if(qbevent){evnt(23480);if(r)goto S_31628;} -do{ -goto fornext_exit_3420; -if(!qbevent)break;evnt(23480);}while(r); -} -do{ -qbs_set(_SUB_XREAD_STRING_A3,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23481);}while(r); -do{ -qbs_set(_SUB_XREAD_STRING_A2,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23481);}while(r); -} -S_31634:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XREAD_STRING_A3,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(23483);if(r)goto S_31634;} -do{ -qbs_set(_SUB_XREAD_STRING_A3,_SUB_XREAD_STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23483);}while(r); -}else{ -do{ -qbs_set(_SUB_XREAD_STRING_A3,qbs_add(qbs_add(_SUB_XREAD_STRING_A3,__STRING1_SP),_SUB_XREAD_STRING_A2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23483);}while(r); -} -fornext_continue_3420:; -} -fornext_exit_3420:; -S_31640:; -if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||new_error){ -if(qbevent){evnt(23485);if(r)goto S_31640;} -do{ -SUB_WRITEBUFLINE(&(pass3428=*__LONG_MAINTXTBUF),qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23485);}while(r); -} -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(23486);}while(r); -S_31644:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(23486);if(r)goto S_31644;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),_SUB_XREAD_STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23486);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,_SUB_XREAD_STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23486);}while(r); -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free57.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -void SUB_XWRITE(qbs*_SUB_XWRITE_STRING_CA,int32*_SUB_XWRITE_LONG_N){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data58.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -qbs_set(_SUB_XWRITE_STRING_L,FUNC_SCASE(qbs_new_txt_len("Write",5))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23490);}while(r); -do{ -qbs_set(_SUB_XWRITE_STRING_U,FUNC_STR2(&(pass3431=FUNC_UNIQUENUMBER()))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23491);}while(r); -S_31651:; -if ((-(*_SUB_XWRITE_LONG_N== 1 ))||new_error){ -if(qbevent){evnt(23492);if(r)goto S_31651;} -do{ -SUB_WRITEBUFLINE(&(pass3432=*__LONG_MAINTXTBUF),qbs_new_txt_len("qbs_print(nothingstring,1);",27)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23493);}while(r); -do{ -goto LABEL_WRITEBLANKLINE2; -if(!qbevent)break;evnt(23494);}while(r); -} -do{ -*_SUB_XWRITE_LONG_B= 0 ; -if(!qbevent)break;evnt(23496);}while(r); -do{ -qbs_set(_SUB_XWRITE_STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23497);}while(r); -do{ -*_SUB_XWRITE_LONG_LAST= 0 ; -if(!qbevent)break;evnt(23498);}while(r); -S_31658:; -fornext_value3434= 2 ; -fornext_finalvalue3434=*_SUB_XWRITE_LONG_N; -fornext_step3434= 1 ; -if (fornext_step3434<0) fornext_step_negative3434=1; else fornext_step_negative3434=0; -if (new_error) goto fornext_error3434; -goto fornext_entrylabel3434; -while(1){ -fornext_value3434=fornext_step3434+(*_SUB_XWRITE_LONG_I); -fornext_entrylabel3434: -*_SUB_XWRITE_LONG_I=fornext_value3434; -if (fornext_step_negative3434){ -if (fornext_value3434fornext_finalvalue3434) break; -} -fornext_error3434:; -if(qbevent){evnt(23499);if(r)goto S_31658;} -do{ -qbs_set(_SUB_XWRITE_STRING_A2,FUNC_GETELEMENT(_SUB_XWRITE_STRING_CA,_SUB_XWRITE_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23500);}while(r); -S_31660:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XWRITE_STRING_A2,qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(23501);if(r)goto S_31660;} -do{ -*_SUB_XWRITE_LONG_B=*_SUB_XWRITE_LONG_B+ 1 ; -if(!qbevent)break;evnt(23501);}while(r); -} -S_31663:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XWRITE_STRING_A2,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(23502);if(r)goto S_31663;} -do{ -*_SUB_XWRITE_LONG_B=*_SUB_XWRITE_LONG_B- 1 ; -if(!qbevent)break;evnt(23502);}while(r); -} -S_31666:; -if ((-(*_SUB_XWRITE_LONG_B== 0 ))||new_error){ -if(qbevent){evnt(23503);if(r)goto S_31666;} -S_31667:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XWRITE_STRING_A2,qbs_new_txt_len(",",1))))||new_error){ -if(qbevent){evnt(23504);if(r)goto S_31667;} -LABEL_WRITELAST:; -if(qbevent){evnt(23505);r=0;} -S_31668:; -if ((-(*_SUB_XWRITE_LONG_LAST== 1 ))||new_error){ -if(qbevent){evnt(23506);if(r)goto S_31668;} -do{ -*_SUB_XWRITE_LONG_NEWLINE= 1 ; -if(!qbevent)break;evnt(23506);}while(r); -}else{ -do{ -*_SUB_XWRITE_LONG_NEWLINE= 0 ; -if(!qbevent)break;evnt(23506);}while(r); -} -do{ -qbs_set(_SUB_XWRITE_STRING_EBAK,_SUB_XWRITE_STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23507);}while(r); -do{ -*_SUB_XWRITE_LONG_REEVALED= 0 ; -if(!qbevent)break;evnt(23508);}while(r); -LABEL_WRITECHECKED:; -if(qbevent){evnt(23509);r=0;} -do{ -qbs_set(_SUB_XWRITE_STRING_E,FUNC_FIXOPERATIONORDER(_SUB_XWRITE_STRING_E)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23510);}while(r); -S_31676:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(23511);if(r)goto S_31676;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(23511);}while(r); -} -S_31679:; -if ((-(*_SUB_XWRITE_LONG_REEVALED== 0 ))||new_error){ -if(qbevent){evnt(23512);if(r)goto S_31679;} -do{ -qbs_set(_SUB_XWRITE_STRING_L,qbs_add(qbs_add(_SUB_XWRITE_STRING_L,__STRING1_SP),__STRING_TLAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23513);}while(r); -S_31681:; -if ((-(*_SUB_XWRITE_LONG_LAST== 0 ))||new_error){ -if(qbevent){evnt(23514);if(r)goto S_31681;} -do{ -qbs_set(_SUB_XWRITE_STRING_L,qbs_add(qbs_add(_SUB_XWRITE_STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23514);}while(r); -} -} -do{ -qbs_set(_SUB_XWRITE_STRING_E,FUNC_EVALUATE(_SUB_XWRITE_STRING_E,_SUB_XWRITE_LONG_TYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23516);}while(r); -S_31686:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(23517);if(r)goto S_31686;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(23517);}while(r); -} -S_31689:; -if ((-(*_SUB_XWRITE_LONG_REEVALED== 0 ))||new_error){ -if(qbevent){evnt(23518);if(r)goto S_31689;} -S_31690:; -if ((-((*_SUB_XWRITE_LONG_TYP&*__LONG_ISSTRING)== 0 ))||new_error){ -if(qbevent){evnt(23519);if(r)goto S_31690;} -do{ -qbs_set(_SUB_XWRITE_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("LTRIM$",6),__STRING1_SP),qbs_new_txt_len("(",1)),__STRING1_SP),qbs_new_txt_len("STR$",4)),__STRING1_SP),qbs_new_txt_len("(",1)),__STRING1_SP),_SUB_XWRITE_STRING_EBAK),__STRING1_SP),qbs_new_txt_len(")",1)),__STRING1_SP),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23520);}while(r); -S_31692:; -if ((-(*_SUB_XWRITE_LONG_LAST== 0 ))||new_error){ -if(qbevent){evnt(23521);if(r)goto S_31692;} -do{ -qbs_set(_SUB_XWRITE_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_XWRITE_STRING_E,__STRING1_SP),qbs_new_txt_len("+",1)),__STRING1_SP),func_chr( 34 )),qbs_new_txt_len(",",1)),func_chr( 34 )),qbs_new_txt_len(",1",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23521);}while(r); -} -do{ -*_SUB_XWRITE_LONG_REEVALED= 1 ; -if(!qbevent)break;evnt(23522);}while(r); -do{ -goto LABEL_WRITECHECKED; -if(!qbevent)break;evnt(23523);}while(r); -}else{ -do{ -qbs_set(_SUB_XWRITE_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(func_chr( 34 ),qbs_new_txt_len("\\042",4)),func_chr( 34 )),qbs_new_txt_len(",1",2)),__STRING1_SP),qbs_new_txt_len("+",1)),__STRING1_SP),_SUB_XWRITE_STRING_EBAK),__STRING1_SP),qbs_new_txt_len("+",1)),__STRING1_SP),func_chr( 34 )),qbs_new_txt_len("\\042",4)),func_chr( 34 )),qbs_new_txt_len(",1",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23525);}while(r); -S_31699:; -if ((-(*_SUB_XWRITE_LONG_LAST== 0 ))||new_error){ -if(qbevent){evnt(23526);if(r)goto S_31699;} -do{ -qbs_set(_SUB_XWRITE_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_XWRITE_STRING_E,__STRING1_SP),qbs_new_txt_len("+",1)),__STRING1_SP),func_chr( 34 )),qbs_new_txt_len(",",1)),func_chr( 34 )),qbs_new_txt_len(",1",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23526);}while(r); -} -do{ -*_SUB_XWRITE_LONG_REEVALED= 1 ; -if(!qbevent)break;evnt(23527);}while(r); -do{ -goto LABEL_WRITECHECKED; -if(!qbevent)break;evnt(23528);}while(r); -} -} -S_31706:; -if (((*_SUB_XWRITE_LONG_TYP&*__LONG_ISREFERENCE))||new_error){ -if(qbevent){evnt(23531);if(r)goto S_31706;} -do{ -qbs_set(_SUB_XWRITE_STRING_E,FUNC_REFER(_SUB_XWRITE_STRING_E,_SUB_XWRITE_LONG_TYP,&(pass3435= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23531);}while(r); -} -S_31709:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(23532);if(r)goto S_31709;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(23532);}while(r); -} -do{ -SUB_WRITEBUFLINE(&(pass3436=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_print(",10),_SUB_XWRITE_STRING_E),qbs_new_txt_len(",",1)),qbs_str((int32)(*_SUB_XWRITE_LONG_NEWLINE))),qbs_new_txt_len(");",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23534);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass3437=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if (new_error) goto skip",24),_SUB_XWRITE_STRING_U),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23535);}while(r); -do{ -qbs_set(_SUB_XWRITE_STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23536);}while(r); -S_31715:; -if ((*_SUB_XWRITE_LONG_LAST)||new_error){ -if(qbevent){evnt(23537);if(r)goto S_31715;} -do{ -goto fornext_exit_3433; -if(!qbevent)break;evnt(23537);}while(r); -} -do{ -goto LABEL_WRITENEXT; -if(!qbevent)break;evnt(23538);}while(r); -} -} -S_31721:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_XWRITE_STRING_E,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(23541);if(r)goto S_31721;} -do{ -qbs_set(_SUB_XWRITE_STRING_E,qbs_add(qbs_add(_SUB_XWRITE_STRING_E,__STRING1_SP),_SUB_XWRITE_STRING_A2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23541);}while(r); -}else{ -do{ -qbs_set(_SUB_XWRITE_STRING_E,_SUB_XWRITE_STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23541);}while(r); -} -LABEL_WRITENEXT:; -if(qbevent){evnt(23542);r=0;} -fornext_continue_3433:; -} -fornext_exit_3433:; -S_31727:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_XWRITE_STRING_E,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(23544);if(r)goto S_31727;} -do{ -qbs_set(_SUB_XWRITE_STRING_A2,qbs_new_txt_len(",",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23544);}while(r); -do{ -*_SUB_XWRITE_LONG_LAST= 1 ; -if(!qbevent)break;evnt(23544);}while(r); -do{ -goto LABEL_WRITELAST; -if(!qbevent)break;evnt(23544);}while(r); -} -LABEL_WRITEBLANKLINE2:; -if(qbevent){evnt(23545);r=0;} -do{ -SUB_WRITEBUFLINE(&(pass3438=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("skip",4),_SUB_XWRITE_STRING_U),qbs_new_txt_len(":",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23546);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass3439=*__LONG_MAINTXTBUF),qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23547);}while(r); -do{ -*__LONG_LAYOUTDONE= 1 ; -if(!qbevent)break;evnt(23548);}while(r); -S_31735:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(23548);if(r)goto S_31735;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),_SUB_XWRITE_STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23548);}while(r); -}else{ -do{ -qbs_set(__STRING_LAYOUT,_SUB_XWRITE_STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23548);}while(r); -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free58.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -qbs* FUNC_EVALUATECONST(qbs*_FUNC_EVALUATECONST_STRING_A2,int32*_FUNC_EVALUATECONST_LONG_T){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data59.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -qbs_set(_FUNC_EVALUATECONST_STRING_A,_FUNC_EVALUATECONST_STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23552);}while(r); -S_31741:; -if (( 0 )||new_error){ -if(qbevent){evnt(23553);if(r)goto S_31741;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 9 ; -if (new_error) goto skip3442; -sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("evaluateconst:in:",17),_FUNC_EVALUATECONST_STRING_A), 0, 0, 1); -if (new_error) goto skip3442; -skip3442: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(23553);}while(r); -} -do{ +} +if(!qbevent)break;evnt(23177);}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(23178);}while(r); +do{ +SUB_HASHADD(_SUB_XONGOTOGOSUB_STRING_E,&(pass3340= 2 ),__LONG_NLABELS); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23179);}while(r); +do{ +*_SUB_XONGOTOGOSUB_LONG_R=*__LONG_NLABELS; +if(!qbevent)break;evnt(23180);}while(r); +do{ +*(uint8*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*_SUB_XONGOTOGOSUB_LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282))= 0 ; +if(!qbevent)break;evnt(23181);}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+((array_check((*_SUB_XONGOTOGOSUB_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(23182);}while(r); +do{ +*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*_SUB_XONGOTOGOSUB_LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+257))=*__LONG_SUBFUNCN; +if(!qbevent)break;evnt(23183);}while(r); +do{ +*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*_SUB_XONGOTOGOSUB_LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+270))=*__LONG_LINENUMBER; +if(!qbevent)break;evnt(23184);}while(r); +} +do{ +qbs_set(_SUB_XONGOTOGOSUB_STRING_L,qbs_add(qbs_add(_SUB_XONGOTOGOSUB_STRING_L,__STRING1_SP),__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23187);}while(r); +S_31223:; +if ((*_SUB_XONGOTOGOSUB_LONG_G)||new_error){ +if(qbevent){evnt(23188);if(r)goto S_31223;} +do{ +qbs_set(_SUB_XONGOTOGOSUB_STRING_LB,_SUB_XONGOTOGOSUB_STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23189);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass3341=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (ongo_",9),_SUB_XONGOTOGOSUB_STRING_U),qbs_new_txt_len("==",2)),FUNC_STR2(_SUB_XONGOTOGOSUB_LONG_LN)),qbs_new_txt_len("){",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23190);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass3342=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("return_point[next_return_point++]=",34),FUNC_STR2(__LONG_GOSUBID)),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23193);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass3343=*__LONG_MAINTXTBUF),qbs_new_txt_len("if (next_return_point>=return_points) more_return_points();",59)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23194);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass3344=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("goto LABEL_",11),_SUB_XONGOTOGOSUB_STRING_LB),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23195);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass3345=*__LONG_RETTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("case ",5),FUNC_STR2(__LONG_GOSUBID)),qbs_new_txt_len(":",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23197);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass3346=*__LONG_RETTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("goto RETURN_",12),FUNC_STR2(__LONG_GOSUBID)),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23198);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass3347=*__LONG_RETTXTBUF),qbs_new_txt_len("break;",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23199);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass3348=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("RETURN_",7),FUNC_STR2(__LONG_GOSUBID)),qbs_new_txt_len(":;",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23200);}while(r); +do{ +*__LONG_GOSUBID=*__LONG_GOSUBID+ 1 ; +if(!qbevent)break;evnt(23201);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass3349=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("goto ongo_",10),_SUB_XONGOTOGOSUB_STRING_U),qbs_new_txt_len("_skip;",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23202);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass3350=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23203);}while(r); +}else{ +do{ +SUB_WRITEBUFLINE(&(pass3351=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if (ongo_",9),_SUB_XONGOTOGOSUB_STRING_U),qbs_new_txt_len("==",2)),FUNC_STR2(_SUB_XONGOTOGOSUB_LONG_LN)),qbs_new_txt_len(") goto LABEL_",13)),_SUB_XONGOTOGOSUB_STRING_E),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23205);}while(r); +} +do{ +*_SUB_XONGOTOGOSUB_LONG_LABELWASLAST= 1 ; +if(!qbevent)break;evnt(23207);}while(r); +} +fornext_continue_3337:; +} +fornext_exit_3337:; +do{ +SUB_WRITEBUFLINE(&(pass3352=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if (ongo_",9),_SUB_XONGOTOGOSUB_STRING_U),qbs_new_txt_len("<0) error(5);",13))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23210);}while(r); +S_31243:; +if ((-(*_SUB_XONGOTOGOSUB_LONG_G== 1 ))||new_error){ +if(qbevent){evnt(23211);if(r)goto S_31243;} +do{ +SUB_WRITEBUFLINE(&(pass3353=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("ongo_",5),_SUB_XONGOTOGOSUB_STRING_U),qbs_new_txt_len("_skip:;",7))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23211);}while(r); +} +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(23212);}while(r); +S_31247:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(23212);if(r)goto S_31247;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),_SUB_XONGOTOGOSUB_STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23212);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,_SUB_XONGOTOGOSUB_STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23212);}while(r); +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free55.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +void SUB_XPRINT(qbs*_SUB_XPRINT_STRING_A,qbs*_SUB_XPRINT_STRING_CA,int32*_SUB_XPRINT_LONG_N){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data56.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +qbs_set(_SUB_XPRINT_STRING_U,FUNC_STR2(&(pass3357=FUNC_UNIQUENUMBER()))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23216);}while(r); +do{ +qbs_set(_SUB_XPRINT_STRING_L,FUNC_SCASE(qbs_new_txt_len("Print",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23218);}while(r); +S_31254:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_SUB_XPRINT_STRING_A)== 76 )))||new_error){ +if(qbevent){evnt(23219);if(r)goto S_31254;} +do{ +*_SUB_XPRINT_LONG_LP= 1 ; +if(!qbevent)break;evnt(23219);}while(r); +do{ +qbs_set(_SUB_XPRINT_STRING_LP,qbs_new_txt_len("l",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23219);}while(r); +do{ +qbs_set(_SUB_XPRINT_STRING_L,FUNC_SCASE(qbs_new_txt_len("LPrint",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23219);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass3358=*__LONG_MAINTXTBUF),qbs_new_txt_len("tab_LPRINT=1;",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23219);}while(r); +do{ +tmp_long=array_check(( 9 )-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[tmp_long]= 1 ; +if(!qbevent)break;evnt(23219);}while(r); +} +S_31261:; +if ((-(*_SUB_XPRINT_LONG_N>= 2 ))||new_error){ +if(qbevent){evnt(23222);if(r)goto S_31261;} +S_31262:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_GETELEMENT(_SUB_XPRINT_STRING_A,&(pass3359= 2 )),qbs_new_txt_len("USING",5))))||new_error){ +if(qbevent){evnt(23223);if(r)goto S_31262;} +do{ +*_SUB_XPRINT_LONG_I= 3 ; +if(!qbevent)break;evnt(23225);}while(r); +LABEL_PUJUMP:; +if(qbevent){evnt(23226);r=0;} +do{ +qbs_set(_SUB_XPRINT_STRING_L,qbs_add(qbs_add(_SUB_XPRINT_STRING_L,__STRING1_SP),FUNC_SCASE(qbs_new_txt_len("Using",5)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23227);}while(r); +do{ +qbs_set(_SUB_XPRINT_STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23228);}while(r); +do{ +*_SUB_XPRINT_LONG_B= 0 ; +if(!qbevent)break;evnt(23228);}while(r); +do{ +qbs_set(_SUB_XPRINT_STRING_PUFORMAT,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23228);}while(r); +S_31268:; +fornext_value3361=*_SUB_XPRINT_LONG_I; +fornext_finalvalue3361=*_SUB_XPRINT_LONG_N; +fornext_step3361= 1 ; +if (fornext_step3361<0) fornext_step_negative3361=1; else fornext_step_negative3361=0; +if (new_error) goto fornext_error3361; +goto fornext_entrylabel3361; +while(1){ +fornext_value3361=fornext_step3361+(*_SUB_XPRINT_LONG_I); +fornext_entrylabel3361: +*_SUB_XPRINT_LONG_I=fornext_value3361; +if (fornext_step_negative3361){ +if (fornext_value3361fornext_finalvalue3361) break; +} +fornext_error3361:; +if(qbevent){evnt(23229);if(r)goto S_31268;} +do{ +qbs_set(_SUB_XPRINT_STRING_A2,FUNC_GETELEMENT(_SUB_XPRINT_STRING_CA,_SUB_XPRINT_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23230);}while(r); +S_31270:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(23231);if(r)goto S_31270;} +do{ +*_SUB_XPRINT_LONG_B=*_SUB_XPRINT_LONG_B+ 1 ; +if(!qbevent)break;evnt(23231);}while(r); +} +S_31273:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(23232);if(r)goto S_31273;} +do{ +*_SUB_XPRINT_LONG_B=*_SUB_XPRINT_LONG_B- 1 ; +if(!qbevent)break;evnt(23232);}while(r); +} +S_31276:; +if ((-(*_SUB_XPRINT_LONG_B== 0 ))||new_error){ +if(qbevent){evnt(23233);if(r)goto S_31276;} +S_31277:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len(",",1))))||new_error){ +if(qbevent){evnt(23234);if(r)goto S_31277;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected PRINT USING formatstring ; ...",39)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23234);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23234);}while(r); +} +S_31281:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len(";",1))))||new_error){ +if(qbevent){evnt(23235);if(r)goto S_31281;} +do{ +qbs_set(_SUB_XPRINT_STRING_E,FUNC_FIXOPERATIONORDER(_SUB_XPRINT_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23236);}while(r); +S_31283:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(23237);if(r)goto S_31283;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23237);}while(r); +} +do{ +qbs_set(_SUB_XPRINT_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(_SUB_XPRINT_STRING_L,__STRING1_SP),__STRING_TLAYOUT),__STRING1_SP2),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23238);}while(r); +do{ +qbs_set(_SUB_XPRINT_STRING_E,FUNC_EVALUATE(_SUB_XPRINT_STRING_E,_SUB_XPRINT_LONG_TYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23239);}while(r); +S_31288:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(23240);if(r)goto S_31288;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23240);}while(r); +} +S_31291:; +if (((*_SUB_XPRINT_LONG_TYP&*__LONG_ISREFERENCE))||new_error){ +if(qbevent){evnt(23241);if(r)goto S_31291;} +do{ +qbs_set(_SUB_XPRINT_STRING_E,FUNC_REFER(_SUB_XPRINT_STRING_E,_SUB_XPRINT_LONG_TYP,&(pass3362= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23241);}while(r); +} +S_31294:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(23242);if(r)goto S_31294;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23242);}while(r); +} +S_31297:; +if ((-((*_SUB_XPRINT_LONG_TYP&*__LONG_ISSTRING)== 0 ))||new_error){ +if(qbevent){evnt(23243);if(r)goto S_31297;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected PRINT USING formatstring ; ...",39)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23243);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23243);}while(r); +} +do{ +qbs_set(_SUB_XPRINT_STRING_PUFORMAT,_SUB_XPRINT_STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23244);}while(r); +do{ +goto fornext_exit_3360; +if(!qbevent)break;evnt(23245);}while(r); +} +} +S_31305:; +if ((qbs_cleanup(qbs_tmp_base,_SUB_XPRINT_STRING_E->len))||new_error){ +if(qbevent){evnt(23248);if(r)goto S_31305;} +do{ +qbs_set(_SUB_XPRINT_STRING_E,qbs_add(qbs_add(_SUB_XPRINT_STRING_E,__STRING1_SP),_SUB_XPRINT_STRING_A2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23248);}while(r); +}else{ +do{ +qbs_set(_SUB_XPRINT_STRING_E,_SUB_XPRINT_STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23248);}while(r); +} +fornext_continue_3360:; +} +fornext_exit_3360:; +S_31311:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XPRINT_STRING_PUFORMAT,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(23250);if(r)goto S_31311;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected PRINT USING formatstring ; ...",39)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23250);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23250);}while(r); +} +S_31315:; +if ((-(*_SUB_XPRINT_LONG_I==*_SUB_XPRINT_LONG_N))||new_error){ +if(qbevent){evnt(23251);if(r)goto S_31315;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected PRINT USING formatstring ; ...",39)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23251);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23251);}while(r); +} +S_31319:; +if ((-(*_SUB_XPRINT_LONG_TQBSSET== 0 ))||new_error){ +if(qbevent){evnt(23253);if(r)goto S_31319;} +do{ +SUB_WRITEBUFLINE(&(pass3364=*__LONG_MAINTXTBUF),qbs_new_txt_len("tqbs=qbs_new(0,0);",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23254);}while(r); +}else{ +do{ +SUB_WRITEBUFLINE(&(pass3365=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_set(tqbs,qbs_new_txt_len(",29),func_chr( 34 )),func_chr( 34 )),qbs_new_txt_len(",0));",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23256);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass3366=*__LONG_MAINTXTBUF),qbs_new_txt_len("tmp_long=0;",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23259);}while(r); +do{ +qbs_set(_SUB_XPRINT_STRING_PUF,qbs_add(qbs_new_txt_len("print_using_format",18),_SUB_XPRINT_STRING_U)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23263);}while(r); +S_31326:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_SUBFUNC,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(23264);if(r)goto S_31326;} +do{ +SUB_WRITEBUFLINE(&(pass3367=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("static qbs *",12),_SUB_XPRINT_STRING_PUF),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23265);}while(r); +}else{ +do{ +SUB_WRITEBUFLINE(&(pass3368=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("qbs *",5),_SUB_XPRINT_STRING_PUF),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23267);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass3369=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_XPRINT_STRING_PUF,qbs_new_txt_len("=qbs_new(0,0); qbs_set(",23)),_SUB_XPRINT_STRING_PUF),qbs_new_txt_len(",",1)),_SUB_XPRINT_STRING_PUFORMAT),qbs_new_txt_len(");",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23269);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass3370=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if (new_error) goto skip_pu",27),_SUB_XPRINT_STRING_U),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23270);}while(r); +do{ +*_SUB_XPRINT_LONG_B= 0 ; +if(!qbevent)break;evnt(23273);}while(r); +do{ +qbs_set(_SUB_XPRINT_STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23274);}while(r); +do{ +*_SUB_XPRINT_LONG_LAST= 0 ; +if(!qbevent)break;evnt(23275);}while(r); +S_31336:; +fornext_value3372=*_SUB_XPRINT_LONG_I+ 1 ; +fornext_finalvalue3372=*_SUB_XPRINT_LONG_N; +fornext_step3372= 1 ; +if (fornext_step3372<0) fornext_step_negative3372=1; else fornext_step_negative3372=0; +if (new_error) goto fornext_error3372; +goto fornext_entrylabel3372; +while(1){ +fornext_value3372=fornext_step3372+(*_SUB_XPRINT_LONG_I); +fornext_entrylabel3372: +*_SUB_XPRINT_LONG_I=fornext_value3372; +if (fornext_step_negative3372){ +if (fornext_value3372fornext_finalvalue3372) break; +} +fornext_error3372:; +if(qbevent){evnt(23276);if(r)goto S_31336;} +do{ +qbs_set(_SUB_XPRINT_STRING_A2,FUNC_GETELEMENT(_SUB_XPRINT_STRING_CA,_SUB_XPRINT_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23277);}while(r); +S_31338:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(23278);if(r)goto S_31338;} +do{ +*_SUB_XPRINT_LONG_B=*_SUB_XPRINT_LONG_B+ 1 ; +if(!qbevent)break;evnt(23278);}while(r); +} +S_31341:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(23279);if(r)goto S_31341;} +do{ +*_SUB_XPRINT_LONG_B=*_SUB_XPRINT_LONG_B- 1 ; +if(!qbevent)break;evnt(23279);}while(r); +} +S_31344:; +if ((-(*_SUB_XPRINT_LONG_B== 0 ))||new_error){ +if(qbevent){evnt(23280);if(r)goto S_31344;} +S_31345:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len(";",1)))|(qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len(",",1)))))||new_error){ +if(qbevent){evnt(23281);if(r)goto S_31345;} +LABEL_PRINTULAST:; +if(qbevent){evnt(23282);r=0;} +do{ +qbs_set(_SUB_XPRINT_STRING_E,FUNC_FIXOPERATIONORDER(_SUB_XPRINT_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23283);}while(r); +S_31347:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(23284);if(r)goto S_31347;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23284);}while(r); +} +S_31350:; +if ((*_SUB_XPRINT_LONG_LAST)||new_error){ +if(qbevent){evnt(23285);if(r)goto S_31350;} +do{ +qbs_set(_SUB_XPRINT_STRING_L,qbs_add(qbs_add(_SUB_XPRINT_STRING_L,__STRING1_SP),__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23285);}while(r); +}else{ +do{ +qbs_set(_SUB_XPRINT_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(_SUB_XPRINT_STRING_L,__STRING1_SP),__STRING_TLAYOUT),__STRING1_SP2),_SUB_XPRINT_STRING_A2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23285);}while(r); +} +do{ +qbs_set(_SUB_XPRINT_STRING_E,FUNC_EVALUATE(_SUB_XPRINT_STRING_E,_SUB_XPRINT_LONG_TYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23286);}while(r); +S_31356:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(23287);if(r)goto S_31356;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23287);}while(r); +} +S_31359:; +if (((*_SUB_XPRINT_LONG_TYP&*__LONG_ISREFERENCE))||new_error){ +if(qbevent){evnt(23288);if(r)goto S_31359;} +do{ +qbs_set(_SUB_XPRINT_STRING_E,FUNC_REFER(_SUB_XPRINT_STRING_E,_SUB_XPRINT_LONG_TYP,&(pass3373= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23288);}while(r); +} +S_31362:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(23289);if(r)goto S_31362;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23289);}while(r); +} +S_31365:; +if ((*_SUB_XPRINT_LONG_TYP&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(23290);if(r)goto S_31365;} +S_31366:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(_SUB_XPRINT_STRING_E, 9 ),qbs_new_txt_len("func_tab(",9)))|(qbs_equal(qbs_left(_SUB_XPRINT_STRING_E, 9 ),qbs_new_txt_len("func_spc(",9)))))||new_error){ +if(qbevent){evnt(23292);if(r)goto S_31366;} +do{ +SUB_WRITEBUFLINE(&(pass3374=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("qbs_",4),_SUB_XPRINT_STRING_LP),qbs_new_txt_len("print(tqbs,0);",14))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23297);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass3375=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("qbs_set(tqbs,",13),_SUB_XPRINT_STRING_E),qbs_new_txt_len(");",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23299);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass3376=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if (new_error) goto skip_pu",27),_SUB_XPRINT_STRING_U),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23300);}while(r); +S_31370:; +if ((*_SUB_XPRINT_LONG_LP)||new_error){ +if(qbevent){evnt(23301);if(r)goto S_31370;} +do{ +SUB_WRITEBUFLINE(&(pass3377=*__LONG_MAINTXTBUF),qbs_new_txt_len("lprint_makefit(tqbs);",21)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23301);}while(r); +}else{ +do{ +SUB_WRITEBUFLINE(&(pass3378=*__LONG_MAINTXTBUF),qbs_new_txt_len("makefit(tqbs);",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23301);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass3379=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("qbs_",4),_SUB_XPRINT_STRING_LP),qbs_new_txt_len("print(tqbs,0);",14))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23302);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass3380=*__LONG_MAINTXTBUF),qbs_new_txt_len("tqbs->len=0;",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23304);}while(r); +}else{ +do{ +SUB_WRITEBUFLINE(&(pass3381=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("tmp_long=print_using(",21),_SUB_XPRINT_STRING_PUF),qbs_new_txt_len(",tmp_long,tqbs,",15)),_SUB_XPRINT_STRING_E),qbs_new_txt_len(");",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23309);}while(r); +} +}else{ +S_31381:; +if ((*_SUB_XPRINT_LONG_TYP&*__LONG_ISFLOAT)||new_error){ +if(qbevent){evnt(23316);if(r)goto S_31381;} +S_31382:; +if ((-((*_SUB_XPRINT_LONG_TYP& 511 )== 32 ))||new_error){ +if(qbevent){evnt(23317);if(r)goto S_31382;} +do{ +SUB_WRITEBUFLINE(&(pass3382=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("tmp_long=print_using_single(",28),_SUB_XPRINT_STRING_PUF),qbs_new_txt_len(",",1)),_SUB_XPRINT_STRING_E),qbs_new_txt_len(",tmp_long,tqbs);",16))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23317);}while(r); +} +S_31385:; +if ((-((*_SUB_XPRINT_LONG_TYP& 511 )== 64 ))||new_error){ +if(qbevent){evnt(23318);if(r)goto S_31385;} +do{ +SUB_WRITEBUFLINE(&(pass3383=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("tmp_long=print_using_double(",28),_SUB_XPRINT_STRING_PUF),qbs_new_txt_len(",",1)),_SUB_XPRINT_STRING_E),qbs_new_txt_len(",tmp_long,tqbs);",16))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23318);}while(r); +} +S_31388:; +if ((-((*_SUB_XPRINT_LONG_TYP& 511 )> 64 ))||new_error){ +if(qbevent){evnt(23319);if(r)goto S_31388;} +do{ +SUB_WRITEBUFLINE(&(pass3384=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("tmp_long=print_using_float(",27),_SUB_XPRINT_STRING_PUF),qbs_new_txt_len(",",1)),_SUB_XPRINT_STRING_E),qbs_new_txt_len(",tmp_long,tqbs);",16))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23319);}while(r); +} +}else{ +S_31392:; +if ((((-((*_SUB_XPRINT_LONG_TYP& 511 )== 64 )))&(-((*_SUB_XPRINT_LONG_TYP&*__LONG_ISUNSIGNED)!= 0 )))||new_error){ +if(qbevent){evnt(23321);if(r)goto S_31392;} +do{ +SUB_WRITEBUFLINE(&(pass3385=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("tmp_long=print_using_uinteger64(",32),_SUB_XPRINT_STRING_PUF),qbs_new_txt_len(",",1)),_SUB_XPRINT_STRING_E),qbs_new_txt_len(",tmp_long,tqbs);",16))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23322);}while(r); +}else{ +do{ +SUB_WRITEBUFLINE(&(pass3386=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("tmp_long=print_using_integer64(",31),_SUB_XPRINT_STRING_PUF),qbs_new_txt_len(",",1)),_SUB_XPRINT_STRING_E),qbs_new_txt_len(",tmp_long,tqbs);",16))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23324);}while(r); +} +} +} +do{ +SUB_WRITEBUFLINE(&(pass3387=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if (new_error) goto skip_pu",27),_SUB_XPRINT_STRING_U),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23328);}while(r); +do{ +qbs_set(_SUB_XPRINT_STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23329);}while(r); +S_31401:; +if ((*_SUB_XPRINT_LONG_LAST)||new_error){ +if(qbevent){evnt(23330);if(r)goto S_31401;} +do{ +goto fornext_exit_3371; +if(!qbevent)break;evnt(23330);}while(r); +} +do{ +goto LABEL_PRINTUNEXT; +if(!qbevent)break;evnt(23331);}while(r); +} +} +S_31407:; +if ((qbs_cleanup(qbs_tmp_base,_SUB_XPRINT_STRING_E->len))||new_error){ +if(qbevent){evnt(23334);if(r)goto S_31407;} +do{ +qbs_set(_SUB_XPRINT_STRING_E,qbs_add(qbs_add(_SUB_XPRINT_STRING_E,__STRING1_SP),_SUB_XPRINT_STRING_A2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23334);}while(r); +}else{ +do{ +qbs_set(_SUB_XPRINT_STRING_E,_SUB_XPRINT_STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23334);}while(r); +} +LABEL_PRINTUNEXT:; +if(qbevent){evnt(23335);r=0;} +fornext_continue_3371:; +} +fornext_exit_3371:; +S_31413:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_XPRINT_STRING_E,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(23337);if(r)goto S_31413;} +do{ +qbs_set(_SUB_XPRINT_STRING_A2,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23337);}while(r); +do{ +*_SUB_XPRINT_LONG_LAST= 1 ; +if(!qbevent)break;evnt(23337);}while(r); +do{ +goto LABEL_PRINTULAST; +if(!qbevent)break;evnt(23337);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass3389=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("skip_pu",7),_SUB_XPRINT_STRING_U),qbs_new_txt_len(":",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23338);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass3390=*__LONG_MAINTXTBUF),qbs_new_txt_len("if (new_error){",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23340);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass3391=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("g_tmp_long=new_error; new_error=0; qbs_",39),_SUB_XPRINT_STRING_LP),qbs_new_txt_len("print(tqbs,0); new_error=g_tmp_long;",36))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23341);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass3392=*__LONG_MAINTXTBUF),qbs_new_txt_len("}else{",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23342);}while(r); +S_31422:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len(",",1)))|(qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len(";",1)))))||new_error){ +if(qbevent){evnt(23343);if(r)goto S_31422;} +do{ +*_SUB_XPRINT_LONG_NL= 0 ; +if(!qbevent)break;evnt(23343);}while(r); +}else{ +do{ +*_SUB_XPRINT_LONG_NL= 1 ; +if(!qbevent)break;evnt(23343);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass3393=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_",4),_SUB_XPRINT_STRING_LP),qbs_new_txt_len("print(tqbs,",11)),FUNC_STR2(_SUB_XPRINT_LONG_NL)),qbs_new_txt_len(");",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23344);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass3394=*__LONG_MAINTXTBUF),qbs_new_txt_len("}",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23345);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass3395=*__LONG_MAINTXTBUF),qbs_new_txt_len("qbs_free(tqbs);",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23346);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass3396=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("qbs_free(",9),_SUB_XPRINT_STRING_PUF),qbs_new_txt_len(");",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23347);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass3397=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("skip",4),_SUB_XPRINT_STRING_U),qbs_new_txt_len(":",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23348);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass3398=*__LONG_MAINTXTBUF),qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23349);}while(r); +S_31433:; +if ((*_SUB_XPRINT_LONG_LP)||new_error){ +if(qbevent){evnt(23350);if(r)goto S_31433;} +do{ +SUB_WRITEBUFLINE(&(pass3399=*__LONG_MAINTXTBUF),qbs_new_txt_len("tab_LPRINT=0;",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23350);}while(r); +} +do{ +qbs_set(__STRING_TLAYOUT,_SUB_XPRINT_STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23351);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23352);}while(r); +} +} +do{ +*_SUB_XPRINT_LONG_B= 0 ; +if(!qbevent)break;evnt(23357);}while(r); +do{ +qbs_set(_SUB_XPRINT_STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23358);}while(r); +do{ +*_SUB_XPRINT_LONG_LAST= 0 ; +if(!qbevent)break;evnt(23359);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass3400=*__LONG_MAINTXTBUF),qbs_new_txt_len("tqbs=qbs_new(0,0);",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23360);}while(r); +do{ +*_SUB_XPRINT_LONG_TQBSSET= -1 ; +if(!qbevent)break;evnt(23361);}while(r); +S_31445:; +fornext_value3402= 2 ; +fornext_finalvalue3402=*_SUB_XPRINT_LONG_N; +fornext_step3402= 1 ; +if (fornext_step3402<0) fornext_step_negative3402=1; else fornext_step_negative3402=0; +if (new_error) goto fornext_error3402; +goto fornext_entrylabel3402; +while(1){ +fornext_value3402=fornext_step3402+(*_SUB_XPRINT_LONG_I); +fornext_entrylabel3402: +*_SUB_XPRINT_LONG_I=fornext_value3402; +if (fornext_step_negative3402){ +if (fornext_value3402fornext_finalvalue3402) break; +} +fornext_error3402:; +if(qbevent){evnt(23362);if(r)goto S_31445;} +do{ +qbs_set(_SUB_XPRINT_STRING_A2,FUNC_GETELEMENT(_SUB_XPRINT_STRING_CA,_SUB_XPRINT_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23363);}while(r); +S_31447:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(23364);if(r)goto S_31447;} +do{ +*_SUB_XPRINT_LONG_B=*_SUB_XPRINT_LONG_B+ 1 ; +if(!qbevent)break;evnt(23364);}while(r); +} +S_31450:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(23365);if(r)goto S_31450;} +do{ +*_SUB_XPRINT_LONG_B=*_SUB_XPRINT_LONG_B- 1 ; +if(!qbevent)break;evnt(23365);}while(r); +} +S_31453:; +if ((-(*_SUB_XPRINT_LONG_B== 0 ))||new_error){ +if(qbevent){evnt(23366);if(r)goto S_31453;} +S_31454:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len(";",1)))|(qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len(",",1)))|(qbs_equal(qbs_ucase(_SUB_XPRINT_STRING_A2),qbs_new_txt_len("USING",5)))))||new_error){ +if(qbevent){evnt(23367);if(r)goto S_31454;} +LABEL_PRINTLAST:; +if(qbevent){evnt(23368);r=0;} +S_31455:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_XPRINT_STRING_A2),qbs_new_txt_len("USING",5))))||new_error){ +if(qbevent){evnt(23370);if(r)goto S_31455;} +S_31456:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_XPRINT_STRING_E,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(23371);if(r)goto S_31456;} +do{ +*_SUB_XPRINT_LONG_GOTOPU= 1 ; +if(!qbevent)break;evnt(23371);}while(r); +}else{ +do{ +*_SUB_XPRINT_LONG_I=*_SUB_XPRINT_LONG_I+ 1 ; +if(!qbevent)break;evnt(23371);}while(r); +do{ +goto LABEL_PUJUMP; +if(!qbevent)break;evnt(23371);}while(r); +} +} +S_31463:; +if ((qbs_cleanup(qbs_tmp_base,_SUB_XPRINT_STRING_E->len))||new_error){ +if(qbevent){evnt(23374);if(r)goto S_31463;} +do{ +qbs_set(_SUB_XPRINT_STRING_EBAK,_SUB_XPRINT_STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23375);}while(r); +do{ +*_SUB_XPRINT_LONG_PNRTNUM= 0 ; +if(!qbevent)break;evnt(23376);}while(r); +LABEL_PRINTNUMBER:; +if(qbevent){evnt(23377);r=0;} +do{ +qbs_set(_SUB_XPRINT_STRING_E,FUNC_FIXOPERATIONORDER(_SUB_XPRINT_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23378);}while(r); +S_31467:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(23379);if(r)goto S_31467;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23379);}while(r); +} +S_31470:; +if ((-(*_SUB_XPRINT_LONG_PNRTNUM== 0 ))||new_error){ +if(qbevent){evnt(23380);if(r)goto S_31470;} +S_31471:; +if ((*_SUB_XPRINT_LONG_LAST)||new_error){ +if(qbevent){evnt(23381);if(r)goto S_31471;} +do{ +qbs_set(_SUB_XPRINT_STRING_L,qbs_add(qbs_add(_SUB_XPRINT_STRING_L,__STRING1_SP),__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23381);}while(r); +}else{ +do{ +qbs_set(_SUB_XPRINT_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(_SUB_XPRINT_STRING_L,__STRING1_SP),__STRING_TLAYOUT),__STRING1_SP2),_SUB_XPRINT_STRING_A2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23381);}while(r); +} +} +do{ +qbs_set(_SUB_XPRINT_STRING_E,FUNC_EVALUATE(_SUB_XPRINT_STRING_E,_SUB_XPRINT_LONG_TYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23383);}while(r); +S_31478:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(23384);if(r)goto S_31478;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23384);}while(r); +} +S_31481:; +if ((-((*_SUB_XPRINT_LONG_TYP&*__LONG_ISSTRING)== 0 ))||new_error){ +if(qbevent){evnt(23385);if(r)goto S_31481;} +do{ +qbs_set(_SUB_XPRINT_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("STR$",4),__STRING1_SP),qbs_new_txt_len("(",1)),__STRING1_SP),_SUB_XPRINT_STRING_EBAK),__STRING1_SP),qbs_new_txt_len(")",1)),__STRING1_SP),qbs_new_txt_len("+",1)),__STRING1_SP),func_chr( 34 )),qbs_new_txt_len(" ",1)),func_chr( 34 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23387);}while(r); +do{ +*_SUB_XPRINT_LONG_PNRTNUM= 1 ; +if(!qbevent)break;evnt(23388);}while(r); +do{ +goto LABEL_PRINTNUMBER; +if(!qbevent)break;evnt(23389);}while(r); +} +S_31486:; +if (((*_SUB_XPRINT_LONG_TYP&*__LONG_ISREFERENCE))||new_error){ +if(qbevent){evnt(23391);if(r)goto S_31486;} +do{ +qbs_set(_SUB_XPRINT_STRING_E,FUNC_REFER(_SUB_XPRINT_STRING_E,_SUB_XPRINT_LONG_TYP,&(pass3404= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23391);}while(r); +} +S_31489:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(23392);if(r)goto S_31489;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23392);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass3405=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("qbs_set(tqbs,",13),_SUB_XPRINT_STRING_E),qbs_new_txt_len(");",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23393);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass3406=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if (new_error) goto skip",24),_SUB_XPRINT_STRING_U),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23394);}while(r); +S_31494:; +if ((*_SUB_XPRINT_LONG_LP)||new_error){ +if(qbevent){evnt(23395);if(r)goto S_31494;} +do{ +SUB_WRITEBUFLINE(&(pass3407=*__LONG_MAINTXTBUF),qbs_new_txt_len("lprint_makefit(tqbs);",21)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23395);}while(r); +}else{ +do{ +SUB_WRITEBUFLINE(&(pass3408=*__LONG_MAINTXTBUF),qbs_new_txt_len("makefit(tqbs);",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23395);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass3409=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("qbs_",4),_SUB_XPRINT_STRING_LP),qbs_new_txt_len("print(tqbs,0);",14))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23396);}while(r); +}else{ +S_31501:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len(",",1))))||new_error){ +if(qbevent){evnt(23398);if(r)goto S_31501;} +do{ +qbs_set(_SUB_XPRINT_STRING_L,qbs_add(qbs_add(_SUB_XPRINT_STRING_L,__STRING1_SP),_SUB_XPRINT_STRING_A2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23398);}while(r); +} +S_31504:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len(";",1))))||new_error){ +if(qbevent){evnt(23399);if(r)goto S_31504;} +S_31505:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_right(_SUB_XPRINT_STRING_L, 1 ),qbs_new_txt_len(";",1))))||new_error){ +if(qbevent){evnt(23400);if(r)goto S_31505;} +do{ +qbs_set(_SUB_XPRINT_STRING_L,qbs_add(qbs_add(_SUB_XPRINT_STRING_L,__STRING1_SP),_SUB_XPRINT_STRING_A2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23400);}while(r); +} +} +} +S_31510:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XPRINT_STRING_A2,qbs_new_txt_len(",",1))))||new_error){ +if(qbevent){evnt(23403);if(r)goto S_31510;} +do{ +SUB_WRITEBUFLINE(&(pass3410=*__LONG_MAINTXTBUF),qbs_new_txt_len("tab();",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23403);}while(r); +} +do{ +qbs_set(_SUB_XPRINT_STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23404);}while(r); +S_31514:; +if ((*_SUB_XPRINT_LONG_GOTOPU)||new_error){ +if(qbevent){evnt(23406);if(r)goto S_31514;} +do{ +*_SUB_XPRINT_LONG_I=*_SUB_XPRINT_LONG_I+ 1 ; +if(!qbevent)break;evnt(23406);}while(r); +do{ +goto LABEL_PUJUMP; +if(!qbevent)break;evnt(23406);}while(r); +} +S_31518:; +if ((*_SUB_XPRINT_LONG_LAST)||new_error){ +if(qbevent){evnt(23408);if(r)goto S_31518;} +do{ +SUB_WRITEBUFLINE(&(pass3411=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("qbs_",4),_SUB_XPRINT_STRING_LP),qbs_new_txt_len("print(nothingstring,1);",23))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23409);}while(r); +do{ +goto fornext_exit_3401; +if(!qbevent)break;evnt(23410);}while(r); +} +do{ +goto LABEL_PRINTNEXT; +if(!qbevent)break;evnt(23413);}while(r); +} +} +S_31525:; +if ((qbs_cleanup(qbs_tmp_base,_SUB_XPRINT_STRING_E->len))||new_error){ +if(qbevent){evnt(23417);if(r)goto S_31525;} +do{ +qbs_set(_SUB_XPRINT_STRING_E,qbs_add(qbs_add(_SUB_XPRINT_STRING_E,__STRING1_SP),_SUB_XPRINT_STRING_A2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23417);}while(r); +}else{ +do{ +qbs_set(_SUB_XPRINT_STRING_E,_SUB_XPRINT_STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23417);}while(r); +} +LABEL_PRINTNEXT:; +if(qbevent){evnt(23418);r=0;} +fornext_continue_3401:; +} +fornext_exit_3401:; +S_31531:; +if ((qbs_cleanup(qbs_tmp_base,_SUB_XPRINT_STRING_E->len))||new_error){ +if(qbevent){evnt(23420);if(r)goto S_31531;} +do{ +qbs_set(_SUB_XPRINT_STRING_A2,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23420);}while(r); +do{ +*_SUB_XPRINT_LONG_LAST= 1 ; +if(!qbevent)break;evnt(23420);}while(r); +do{ +goto LABEL_PRINTLAST; +if(!qbevent)break;evnt(23420);}while(r); +} +S_31536:; +if ((-(*_SUB_XPRINT_LONG_N== 1 ))||new_error){ +if(qbevent){evnt(23421);if(r)goto S_31536;} +do{ +SUB_WRITEBUFLINE(&(pass3414=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("qbs_",4),_SUB_XPRINT_STRING_LP),qbs_new_txt_len("print(nothingstring,1);",23))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23421);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass3415=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("skip",4),_SUB_XPRINT_STRING_U),qbs_new_txt_len(":",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23422);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass3416=*__LONG_MAINTXTBUF),qbs_new_txt_len("qbs_free(tqbs);",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23423);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass3417=*__LONG_MAINTXTBUF),qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23424);}while(r); +S_31542:; +if ((*_SUB_XPRINT_LONG_LP)||new_error){ +if(qbevent){evnt(23425);if(r)goto S_31542;} +do{ +SUB_WRITEBUFLINE(&(pass3418=*__LONG_MAINTXTBUF),qbs_new_txt_len("tab_LPRINT=0;",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23425);}while(r); +} +do{ +qbs_set(__STRING_TLAYOUT,_SUB_XPRINT_STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23426);}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free56.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +void SUB_XREAD(qbs*_SUB_XREAD_STRING_CA,int32*_SUB_XREAD_LONG_N){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data57.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +qbs_set(_SUB_XREAD_STRING_L,FUNC_SCASE(qbs_new_txt_len("Read",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23433);}while(r); +S_31547:; +if ((-(*_SUB_XREAD_LONG_N== 1 ))||new_error){ +if(qbevent){evnt(23434);if(r)goto S_31547;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected variable",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23434);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23434);}while(r); +} +do{ +*_SUB_XREAD_LONG_I= 2 ; +if(!qbevent)break;evnt(23435);}while(r); +S_31552:; +if ((-(*_SUB_XREAD_LONG_I>*_SUB_XREAD_LONG_N))||new_error){ +if(qbevent){evnt(23436);if(r)goto S_31552;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected , ...",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23436);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23436);}while(r); +} +do{ +qbs_set(_SUB_XREAD_STRING_A3,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23437);}while(r); +do{ +*_SUB_XREAD_LONG_B= 0 ; +if(!qbevent)break;evnt(23438);}while(r); +S_31558:; +fornext_value3421=*_SUB_XREAD_LONG_I; +fornext_finalvalue3421=*_SUB_XREAD_LONG_N; +fornext_step3421= 1 ; +if (fornext_step3421<0) fornext_step_negative3421=1; else fornext_step_negative3421=0; +if (new_error) goto fornext_error3421; +goto fornext_entrylabel3421; +while(1){ +fornext_value3421=fornext_step3421+(*_SUB_XREAD_LONG_I); +fornext_entrylabel3421: +*_SUB_XREAD_LONG_I=fornext_value3421; +if (fornext_step_negative3421){ +if (fornext_value3421fornext_finalvalue3421) break; +} +fornext_error3421:; +if(qbevent){evnt(23439);if(r)goto S_31558;} +do{ +qbs_set(_SUB_XREAD_STRING_A2,FUNC_GETELEMENT(_SUB_XREAD_STRING_CA,_SUB_XREAD_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23440);}while(r); +S_31560:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XREAD_STRING_A2,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(23441);if(r)goto S_31560;} +do{ +*_SUB_XREAD_LONG_B=*_SUB_XREAD_LONG_B+ 1 ; +if(!qbevent)break;evnt(23441);}while(r); +} +S_31563:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XREAD_STRING_A2,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(23442);if(r)goto S_31563;} +do{ +*_SUB_XREAD_LONG_B=*_SUB_XREAD_LONG_B- 1 ; +if(!qbevent)break;evnt(23442);}while(r); +} +S_31566:; +if ((qbs_cleanup(qbs_tmp_base,(((qbs_equal(_SUB_XREAD_STRING_A2,qbs_new_txt_len(",",1)))&(-(*_SUB_XREAD_LONG_B== 0 ))))|(-(*_SUB_XREAD_LONG_I==*_SUB_XREAD_LONG_N))))||new_error){ +if(qbevent){evnt(23443);if(r)goto S_31566;} +S_31567:; +if ((-(*_SUB_XREAD_LONG_I==*_SUB_XREAD_LONG_N))||new_error){ +if(qbevent){evnt(23444);if(r)goto S_31567;} +S_31568:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XREAD_STRING_A3,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(23445);if(r)goto S_31568;} +do{ +qbs_set(_SUB_XREAD_STRING_A3,_SUB_XREAD_STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23445);}while(r); +}else{ +do{ +qbs_set(_SUB_XREAD_STRING_A3,qbs_add(qbs_add(_SUB_XREAD_STRING_A3,__STRING1_SP),_SUB_XREAD_STRING_A2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23445);}while(r); +} +} +S_31574:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XREAD_STRING_A3,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(23447);if(r)goto S_31574;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected , ...",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23447);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23447);}while(r); +} +do{ +qbs_set(_SUB_XREAD_STRING_E,FUNC_FIXOPERATIONORDER(_SUB_XREAD_STRING_A3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23448);}while(r); +S_31579:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(23449);if(r)goto S_31579;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23449);}while(r); +} +do{ +qbs_set(_SUB_XREAD_STRING_L,qbs_add(qbs_add(_SUB_XREAD_STRING_L,__STRING1_SP),__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23450);}while(r); +S_31583:; +if ((-(*_SUB_XREAD_LONG_I!=*_SUB_XREAD_LONG_N))||new_error){ +if(qbevent){evnt(23450);if(r)goto S_31583;} +do{ +qbs_set(_SUB_XREAD_STRING_L,qbs_add(qbs_add(_SUB_XREAD_STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23450);}while(r); +} +do{ +qbs_set(_SUB_XREAD_STRING_E,FUNC_EVALUATE(_SUB_XREAD_STRING_E,_SUB_XREAD_LONG_T)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23451);}while(r); +S_31587:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(23452);if(r)goto S_31587;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23452);}while(r); +} +S_31590:; +if ((-((*_SUB_XREAD_LONG_T&*__LONG_ISREFERENCE)== 0 ))||new_error){ +if(qbevent){evnt(23453);if(r)goto S_31590;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected variable",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23453);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23453);}while(r); +} +S_31594:; +if (((*_SUB_XREAD_LONG_T&*__LONG_ISSTRING))||new_error){ +if(qbevent){evnt(23455);if(r)goto S_31594;} +do{ +qbs_set(_SUB_XREAD_STRING_E,FUNC_REFER(_SUB_XREAD_STRING_E,_SUB_XREAD_LONG_T,&(pass3422= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23456);}while(r); +S_31596:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(23457);if(r)goto S_31596;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23457);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass3423=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("sub_read_string(data,&data_offset,data_size,",44),_SUB_XREAD_STRING_E),qbs_new_txt_len(");",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23458);}while(r); +do{ +*__INTEGER_STRINGPROCESSINGHAPPENED= 1 ; +if(!qbevent)break;evnt(23459);}while(r); +}else{ +S_31602:; +if (((-((*_SUB_XREAD_LONG_T&*__LONG_ISFLOAT)!= 0 ))|(-((*_SUB_XREAD_LONG_T& 511 )!= 64 )))||new_error){ +if(qbevent){evnt(23462);if(r)goto S_31602;} +S_31603:; +if (((*_SUB_XREAD_LONG_T&*__LONG_ISOFFSETINBITS))||new_error){ +if(qbevent){evnt(23463);if(r)goto S_31603;} +do{ +SUB_SETREFER(_SUB_XREAD_STRING_E,_SUB_XREAD_LONG_T,qbs_add(qbs_add(qbs_new_txt_len("((int64)func_read_float(data,&data_offset,data_size,",52),FUNC_STR2(_SUB_XREAD_LONG_T)),qbs_new_txt_len("))",2)),&(pass3424= 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23464);}while(r); +S_31605:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(23465);if(r)goto S_31605;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23465);}while(r); +} +}else{ +do{ +SUB_SETREFER(_SUB_XREAD_STRING_E,_SUB_XREAD_LONG_T,qbs_add(qbs_add(qbs_new_txt_len("func_read_float(data,&data_offset,data_size,",44),FUNC_STR2(_SUB_XREAD_LONG_T)),qbs_new_txt_len(")",1)),&(pass3425= 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23467);}while(r); +S_31610:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(23468);if(r)goto S_31610;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23468);}while(r); +} +} +}else{ +S_31615:; +if ((*_SUB_XREAD_LONG_T&*__LONG_ISUNSIGNED)||new_error){ +if(qbevent){evnt(23471);if(r)goto S_31615;} +do{ +SUB_SETREFER(_SUB_XREAD_STRING_E,_SUB_XREAD_LONG_T,qbs_new_txt_len("func_read_uint64(data,&data_offset,data_size)",45),&(pass3426= 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23472);}while(r); +S_31617:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(23473);if(r)goto S_31617;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23473);}while(r); +} +}else{ +do{ +SUB_SETREFER(_SUB_XREAD_STRING_E,_SUB_XREAD_LONG_T,qbs_new_txt_len("func_read_int64(data,&data_offset,data_size)",44),&(pass3427= 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23475);}while(r); +S_31622:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(23476);if(r)goto S_31622;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23476);}while(r); +} +} +} +} +S_31628:; +if ((-(*_SUB_XREAD_LONG_I==*_SUB_XREAD_LONG_N))||new_error){ +if(qbevent){evnt(23480);if(r)goto S_31628;} +do{ +goto fornext_exit_3420; +if(!qbevent)break;evnt(23480);}while(r); +} +do{ +qbs_set(_SUB_XREAD_STRING_A3,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23481);}while(r); +do{ +qbs_set(_SUB_XREAD_STRING_A2,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23481);}while(r); +} +S_31634:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XREAD_STRING_A3,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(23483);if(r)goto S_31634;} +do{ +qbs_set(_SUB_XREAD_STRING_A3,_SUB_XREAD_STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23483);}while(r); +}else{ +do{ +qbs_set(_SUB_XREAD_STRING_A3,qbs_add(qbs_add(_SUB_XREAD_STRING_A3,__STRING1_SP),_SUB_XREAD_STRING_A2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23483);}while(r); +} +fornext_continue_3420:; +} +fornext_exit_3420:; +S_31640:; +if ((*__INTEGER_STRINGPROCESSINGHAPPENED)||new_error){ +if(qbevent){evnt(23485);if(r)goto S_31640;} +do{ +SUB_WRITEBUFLINE(&(pass3428=*__LONG_MAINTXTBUF),qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23485);}while(r); +} +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(23486);}while(r); +S_31644:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(23486);if(r)goto S_31644;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),_SUB_XREAD_STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23486);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,_SUB_XREAD_STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23486);}while(r); +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free57.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +void SUB_XWRITE(qbs*_SUB_XWRITE_STRING_CA,int32*_SUB_XWRITE_LONG_N){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data58.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +qbs_set(_SUB_XWRITE_STRING_L,FUNC_SCASE(qbs_new_txt_len("Write",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23490);}while(r); +do{ +qbs_set(_SUB_XWRITE_STRING_U,FUNC_STR2(&(pass3431=FUNC_UNIQUENUMBER()))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23491);}while(r); +S_31651:; +if ((-(*_SUB_XWRITE_LONG_N== 1 ))||new_error){ +if(qbevent){evnt(23492);if(r)goto S_31651;} +do{ +SUB_WRITEBUFLINE(&(pass3432=*__LONG_MAINTXTBUF),qbs_new_txt_len("qbs_print(nothingstring,1);",27)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23493);}while(r); +do{ +goto LABEL_WRITEBLANKLINE2; +if(!qbevent)break;evnt(23494);}while(r); +} +do{ +*_SUB_XWRITE_LONG_B= 0 ; +if(!qbevent)break;evnt(23496);}while(r); +do{ +qbs_set(_SUB_XWRITE_STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23497);}while(r); +do{ +*_SUB_XWRITE_LONG_LAST= 0 ; +if(!qbevent)break;evnt(23498);}while(r); +S_31658:; +fornext_value3434= 2 ; +fornext_finalvalue3434=*_SUB_XWRITE_LONG_N; +fornext_step3434= 1 ; +if (fornext_step3434<0) fornext_step_negative3434=1; else fornext_step_negative3434=0; +if (new_error) goto fornext_error3434; +goto fornext_entrylabel3434; +while(1){ +fornext_value3434=fornext_step3434+(*_SUB_XWRITE_LONG_I); +fornext_entrylabel3434: +*_SUB_XWRITE_LONG_I=fornext_value3434; +if (fornext_step_negative3434){ +if (fornext_value3434fornext_finalvalue3434) break; +} +fornext_error3434:; +if(qbevent){evnt(23499);if(r)goto S_31658;} +do{ +qbs_set(_SUB_XWRITE_STRING_A2,FUNC_GETELEMENT(_SUB_XWRITE_STRING_CA,_SUB_XWRITE_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23500);}while(r); +S_31660:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XWRITE_STRING_A2,qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(23501);if(r)goto S_31660;} +do{ +*_SUB_XWRITE_LONG_B=*_SUB_XWRITE_LONG_B+ 1 ; +if(!qbevent)break;evnt(23501);}while(r); +} +S_31663:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XWRITE_STRING_A2,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(23502);if(r)goto S_31663;} +do{ +*_SUB_XWRITE_LONG_B=*_SUB_XWRITE_LONG_B- 1 ; +if(!qbevent)break;evnt(23502);}while(r); +} +S_31666:; +if ((-(*_SUB_XWRITE_LONG_B== 0 ))||new_error){ +if(qbevent){evnt(23503);if(r)goto S_31666;} +S_31667:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_XWRITE_STRING_A2,qbs_new_txt_len(",",1))))||new_error){ +if(qbevent){evnt(23504);if(r)goto S_31667;} +LABEL_WRITELAST:; +if(qbevent){evnt(23505);r=0;} +S_31668:; +if ((-(*_SUB_XWRITE_LONG_LAST== 1 ))||new_error){ +if(qbevent){evnt(23506);if(r)goto S_31668;} +do{ +*_SUB_XWRITE_LONG_NEWLINE= 1 ; +if(!qbevent)break;evnt(23506);}while(r); +}else{ +do{ +*_SUB_XWRITE_LONG_NEWLINE= 0 ; +if(!qbevent)break;evnt(23506);}while(r); +} +do{ +qbs_set(_SUB_XWRITE_STRING_EBAK,_SUB_XWRITE_STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23507);}while(r); +do{ +*_SUB_XWRITE_LONG_REEVALED= 0 ; +if(!qbevent)break;evnt(23508);}while(r); +LABEL_WRITECHECKED:; +if(qbevent){evnt(23509);r=0;} +do{ +qbs_set(_SUB_XWRITE_STRING_E,FUNC_FIXOPERATIONORDER(_SUB_XWRITE_STRING_E)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23510);}while(r); +S_31676:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(23511);if(r)goto S_31676;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23511);}while(r); +} +S_31679:; +if ((-(*_SUB_XWRITE_LONG_REEVALED== 0 ))||new_error){ +if(qbevent){evnt(23512);if(r)goto S_31679;} +do{ +qbs_set(_SUB_XWRITE_STRING_L,qbs_add(qbs_add(_SUB_XWRITE_STRING_L,__STRING1_SP),__STRING_TLAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23513);}while(r); +S_31681:; +if ((-(*_SUB_XWRITE_LONG_LAST== 0 ))||new_error){ +if(qbevent){evnt(23514);if(r)goto S_31681;} +do{ +qbs_set(_SUB_XWRITE_STRING_L,qbs_add(qbs_add(_SUB_XWRITE_STRING_L,__STRING1_SP2),qbs_new_txt_len(",",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23514);}while(r); +} +} +do{ +qbs_set(_SUB_XWRITE_STRING_E,FUNC_EVALUATE(_SUB_XWRITE_STRING_E,_SUB_XWRITE_LONG_TYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23516);}while(r); +S_31686:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(23517);if(r)goto S_31686;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23517);}while(r); +} +S_31689:; +if ((-(*_SUB_XWRITE_LONG_REEVALED== 0 ))||new_error){ +if(qbevent){evnt(23518);if(r)goto S_31689;} +S_31690:; +if ((-((*_SUB_XWRITE_LONG_TYP&*__LONG_ISSTRING)== 0 ))||new_error){ +if(qbevent){evnt(23519);if(r)goto S_31690;} +do{ +qbs_set(_SUB_XWRITE_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("LTRIM$",6),__STRING1_SP),qbs_new_txt_len("(",1)),__STRING1_SP),qbs_new_txt_len("STR$",4)),__STRING1_SP),qbs_new_txt_len("(",1)),__STRING1_SP),_SUB_XWRITE_STRING_EBAK),__STRING1_SP),qbs_new_txt_len(")",1)),__STRING1_SP),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23520);}while(r); +S_31692:; +if ((-(*_SUB_XWRITE_LONG_LAST== 0 ))||new_error){ +if(qbevent){evnt(23521);if(r)goto S_31692;} +do{ +qbs_set(_SUB_XWRITE_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_XWRITE_STRING_E,__STRING1_SP),qbs_new_txt_len("+",1)),__STRING1_SP),func_chr( 34 )),qbs_new_txt_len(",",1)),func_chr( 34 )),qbs_new_txt_len(",1",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23521);}while(r); +} +do{ +*_SUB_XWRITE_LONG_REEVALED= 1 ; +if(!qbevent)break;evnt(23522);}while(r); +do{ +goto LABEL_WRITECHECKED; +if(!qbevent)break;evnt(23523);}while(r); +}else{ +do{ +qbs_set(_SUB_XWRITE_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(func_chr( 34 ),qbs_new_txt_len("\\042",4)),func_chr( 34 )),qbs_new_txt_len(",1",2)),__STRING1_SP),qbs_new_txt_len("+",1)),__STRING1_SP),_SUB_XWRITE_STRING_EBAK),__STRING1_SP),qbs_new_txt_len("+",1)),__STRING1_SP),func_chr( 34 )),qbs_new_txt_len("\\042",4)),func_chr( 34 )),qbs_new_txt_len(",1",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23525);}while(r); +S_31699:; +if ((-(*_SUB_XWRITE_LONG_LAST== 0 ))||new_error){ +if(qbevent){evnt(23526);if(r)goto S_31699;} +do{ +qbs_set(_SUB_XWRITE_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_XWRITE_STRING_E,__STRING1_SP),qbs_new_txt_len("+",1)),__STRING1_SP),func_chr( 34 )),qbs_new_txt_len(",",1)),func_chr( 34 )),qbs_new_txt_len(",1",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23526);}while(r); +} +do{ +*_SUB_XWRITE_LONG_REEVALED= 1 ; +if(!qbevent)break;evnt(23527);}while(r); +do{ +goto LABEL_WRITECHECKED; +if(!qbevent)break;evnt(23528);}while(r); +} +} +S_31706:; +if (((*_SUB_XWRITE_LONG_TYP&*__LONG_ISREFERENCE))||new_error){ +if(qbevent){evnt(23531);if(r)goto S_31706;} +do{ +qbs_set(_SUB_XWRITE_STRING_E,FUNC_REFER(_SUB_XWRITE_STRING_E,_SUB_XWRITE_LONG_TYP,&(pass3435= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23531);}while(r); +} +S_31709:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(23532);if(r)goto S_31709;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23532);}while(r); +} +do{ +SUB_WRITEBUFLINE(&(pass3436=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_print(",10),_SUB_XWRITE_STRING_E),qbs_new_txt_len(",",1)),qbs_str((int32)(*_SUB_XWRITE_LONG_NEWLINE))),qbs_new_txt_len(");",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23534);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass3437=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if (new_error) goto skip",24),_SUB_XWRITE_STRING_U),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23535);}while(r); +do{ +qbs_set(_SUB_XWRITE_STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23536);}while(r); +S_31715:; +if ((*_SUB_XWRITE_LONG_LAST)||new_error){ +if(qbevent){evnt(23537);if(r)goto S_31715;} +do{ +goto fornext_exit_3433; +if(!qbevent)break;evnt(23537);}while(r); +} +do{ +goto LABEL_WRITENEXT; +if(!qbevent)break;evnt(23538);}while(r); +} +} +S_31721:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_XWRITE_STRING_E,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(23541);if(r)goto S_31721;} +do{ +qbs_set(_SUB_XWRITE_STRING_E,qbs_add(qbs_add(_SUB_XWRITE_STRING_E,__STRING1_SP),_SUB_XWRITE_STRING_A2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23541);}while(r); +}else{ +do{ +qbs_set(_SUB_XWRITE_STRING_E,_SUB_XWRITE_STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23541);}while(r); +} +LABEL_WRITENEXT:; +if(qbevent){evnt(23542);r=0;} +fornext_continue_3433:; +} +fornext_exit_3433:; +S_31727:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_XWRITE_STRING_E,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(23544);if(r)goto S_31727;} +do{ +qbs_set(_SUB_XWRITE_STRING_A2,qbs_new_txt_len(",",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23544);}while(r); +do{ +*_SUB_XWRITE_LONG_LAST= 1 ; +if(!qbevent)break;evnt(23544);}while(r); +do{ +goto LABEL_WRITELAST; +if(!qbevent)break;evnt(23544);}while(r); +} +LABEL_WRITEBLANKLINE2:; +if(qbevent){evnt(23545);r=0;} +do{ +SUB_WRITEBUFLINE(&(pass3438=*__LONG_MAINTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("skip",4),_SUB_XWRITE_STRING_U),qbs_new_txt_len(":",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23546);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass3439=*__LONG_MAINTXTBUF),qbs_add(__STRING_CLEANUPSTRINGPROCESSINGCALL,qbs_new_txt_len("0);",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23547);}while(r); +do{ +*__LONG_LAYOUTDONE= 1 ; +if(!qbevent)break;evnt(23548);}while(r); +S_31735:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(23548);if(r)goto S_31735;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_add(__STRING_LAYOUT,__STRING1_SP),_SUB_XWRITE_STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23548);}while(r); +}else{ +do{ +qbs_set(__STRING_LAYOUT,_SUB_XWRITE_STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23548);}while(r); +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free58.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +qbs* FUNC_EVALUATECONST(qbs*_FUNC_EVALUATECONST_STRING_A2,int32*_FUNC_EVALUATECONST_LONG_T){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data59.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +qbs_set(_FUNC_EVALUATECONST_STRING_A,_FUNC_EVALUATECONST_STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23552);}while(r); +S_31741:; +if (( 0 )||new_error){ +if(qbevent){evnt(23553);if(r)goto S_31741;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 9 ; +if (new_error) goto skip3442; +sub_file_print(tmp_fileno,qbs_add(qbs_new_txt_len("evaluateconst:in:",17),_FUNC_EVALUATECONST_STRING_A), 0, 0, 1); +if (new_error) goto skip3442; +skip3442: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(23553);}while(r); +} +do{ if (_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[2]&2){ error(10); @@ -103741,9 +103741,9 @@ while(tmp_long--) ((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[tmp_lon while(tmp_long--) ((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -} -if(!qbevent)break;evnt(23556);}while(r); -do{ +} +if(!qbevent)break;evnt(23556);}while(r); +do{ if (_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[2]&2){ error(10); @@ -103763,9 +103763,9 @@ if (!_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[0]) error(257); } _FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[2]|=1; } -} -if(!qbevent)break;evnt(23557);}while(r); -do{ +} +if(!qbevent)break;evnt(23557);}while(r); +do{ if (_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[2]&2){ error(10); @@ -103785,2780 +103785,2780 @@ if (!_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]) error(257); } _FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[2]|=1; } -} -if(!qbevent)break;evnt(23560);}while(r); -do{ -*_FUNC_EVALUATECONST_LONG_N=FUNC_NUMELEMENTS(_FUNC_EVALUATECONST_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23563);}while(r); -S_31748:; -fornext_value3444= 1 ; -fornext_finalvalue3444=*_FUNC_EVALUATECONST_LONG_N; -fornext_step3444= 1 ; -if (fornext_step3444<0) fornext_step_negative3444=1; else fornext_step_negative3444=0; -if (new_error) goto fornext_error3444; -goto fornext_entrylabel3444; -while(1){ -fornext_value3444=fornext_step3444+(*_FUNC_EVALUATECONST_LONG_I); -fornext_entrylabel3444: -*_FUNC_EVALUATECONST_LONG_I=fornext_value3444; -if (fornext_step_negative3444){ -if (fornext_value3444fornext_finalvalue3444) break; -} -fornext_error3444:; -if(qbevent){evnt(23564);if(r)goto S_31748;} -do{ -tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[tmp_long])),FUNC_GETELEMENT(_FUNC_EVALUATECONST_STRING_A,_FUNC_EVALUATECONST_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23565);}while(r); -fornext_continue_3443:; -} -fornext_exit_3443:; -LABEL_EVALCONSTEVALBRACK:; -if(qbevent){evnt(23568);r=0;} -do{ -*_FUNC_EVALUATECONST_LONG_L= 0 ; -if(!qbevent)break;evnt(23571);}while(r); -do{ -*_FUNC_EVALUATECONST_LONG_B= 0 ; -if(!qbevent)break;evnt(23572);}while(r); -S_31753:; -fornext_value3446= 1 ; -fornext_finalvalue3446=*_FUNC_EVALUATECONST_LONG_N; -fornext_step3446= 1 ; -if (fornext_step3446<0) fornext_step_negative3446=1; else fornext_step_negative3446=0; -if (new_error) goto fornext_error3446; -goto fornext_entrylabel3446; -while(1){ -fornext_value3446=fornext_step3446+(*_FUNC_EVALUATECONST_LONG_I); -fornext_entrylabel3446: -*_FUNC_EVALUATECONST_LONG_I=fornext_value3446; -if (fornext_step_negative3446){ -if (fornext_value3446fornext_finalvalue3446) break; -} -fornext_error3446:; -if(qbevent){evnt(23573);if(r)goto S_31753;} -S_31754:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])),qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(23574);if(r)goto S_31754;} -do{ -*_FUNC_EVALUATECONST_LONG_B=*_FUNC_EVALUATECONST_LONG_B+ 1 ; -if(!qbevent)break;evnt(23574);}while(r); -} -S_31757:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])),qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(23575);if(r)goto S_31757;} -do{ -*_FUNC_EVALUATECONST_LONG_B=*_FUNC_EVALUATECONST_LONG_B- 1 ; -if(!qbevent)break;evnt(23575);}while(r); -} -S_31760:; -if ((-(*_FUNC_EVALUATECONST_LONG_B>*_FUNC_EVALUATECONST_LONG_L))||new_error){ -if(qbevent){evnt(23576);if(r)goto S_31760;} -do{ -*_FUNC_EVALUATECONST_LONG_L=*_FUNC_EVALUATECONST_LONG_B; -if(!qbevent)break;evnt(23576);}while(r); -} -fornext_continue_3445:; -} -fornext_exit_3445:; -S_31764:; -if ((*_FUNC_EVALUATECONST_LONG_L)||new_error){ -if(qbevent){evnt(23580);if(r)goto S_31764;} -do{ -*_FUNC_EVALUATECONST_LONG_B= 0 ; -if(!qbevent)break;evnt(23582);}while(r); -do{ -qbs_set(_FUNC_EVALUATECONST_STRING_E,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23583);}while(r); -S_31767:; -fornext_value3448= 1 ; -fornext_finalvalue3448=*_FUNC_EVALUATECONST_LONG_N; -fornext_step3448= 1 ; -if (fornext_step3448<0) fornext_step_negative3448=1; else fornext_step_negative3448=0; -if (new_error) goto fornext_error3448; -goto fornext_entrylabel3448; -while(1){ -fornext_value3448=fornext_step3448+(*_FUNC_EVALUATECONST_LONG_I); -fornext_entrylabel3448: -*_FUNC_EVALUATECONST_LONG_I=fornext_value3448; -if (fornext_step_negative3448){ -if (fornext_value3448fornext_finalvalue3448) break; -} -fornext_error3448:; -if(qbevent){evnt(23584);if(r)goto S_31767;} -S_31768:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])),qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(23586);if(r)goto S_31768;} -S_31769:; -if ((-(*_FUNC_EVALUATECONST_LONG_B==*_FUNC_EVALUATECONST_LONG_L))||new_error){ -if(qbevent){evnt(23587);if(r)goto S_31769;} -do{ -tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23587);}while(r); -do{ -goto fornext_exit_3447; -if(!qbevent)break;evnt(23587);}while(r); -} -do{ -*_FUNC_EVALUATECONST_LONG_B=*_FUNC_EVALUATECONST_LONG_B- 1 ; -if(!qbevent)break;evnt(23588);}while(r); -} -S_31775:; -if ((-(*_FUNC_EVALUATECONST_LONG_B>=*_FUNC_EVALUATECONST_LONG_L))||new_error){ -if(qbevent){evnt(23591);if(r)goto S_31775;} -S_31776:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_EVALUATECONST_STRING_E->len== 0 )))||new_error){ -if(qbevent){evnt(23592);if(r)goto S_31776;} -do{ -qbs_set(_FUNC_EVALUATECONST_STRING_E,((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23592);}while(r); -}else{ -do{ -qbs_set(_FUNC_EVALUATECONST_STRING_E,qbs_add(qbs_add(_FUNC_EVALUATECONST_STRING_E,__STRING1_SP),((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23592);}while(r); -} -do{ -tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23593);}while(r); -} -S_31783:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])),qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(23596);if(r)goto S_31783;} -do{ -*_FUNC_EVALUATECONST_LONG_B=*_FUNC_EVALUATECONST_LONG_B+ 1 ; -if(!qbevent)break;evnt(23597);}while(r); -S_31785:; -if ((-(*_FUNC_EVALUATECONST_LONG_B==*_FUNC_EVALUATECONST_LONG_L))||new_error){ -if(qbevent){evnt(23598);if(r)goto S_31785;} -do{ -*_FUNC_EVALUATECONST_LONG_I2=*_FUNC_EVALUATECONST_LONG_I; -if(!qbevent)break;evnt(23598);}while(r); -do{ -tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23598);}while(r); -} -} -fornext_continue_3447:; -} -fornext_exit_3447:; -do{ -tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[4],_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[5]); -if (!new_error) ((int16*)(_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(23603);}while(r); -do{ -tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[tmp_long])),FUNC_EVALUATECONST(_FUNC_EVALUATECONST_STRING_E,(&(((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23604);}while(r); -S_31793:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(23605);if(r)goto S_31793;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(23605);}while(r); -} -do{ -goto LABEL_EVALCONSTEVALBRACK; -if(!qbevent)break;evnt(23606);}while(r); -} -S_31798:; -fornext_value3451= 1 ; -fornext_finalvalue3451=*_FUNC_EVALUATECONST_LONG_N; -fornext_step3451= 1 ; -if (fornext_step3451<0) fornext_step_negative3451=1; else fornext_step_negative3451=0; -if (new_error) goto fornext_error3451; -goto fornext_entrylabel3451; -while(1){ -fornext_value3451=fornext_step3451+(*_FUNC_EVALUATECONST_LONG_I); -fornext_entrylabel3451: -*_FUNC_EVALUATECONST_LONG_I=fornext_value3451; -if (fornext_step_negative3451){ -if (fornext_value3451fornext_finalvalue3451) break; -} -fornext_error3451:; -if(qbevent){evnt(23619);if(r)goto S_31798;} -S_31799:; -if ((-(((int16*)(_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[4],_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[5])]== 0 ))||new_error){ -if(qbevent){evnt(23620);if(r)goto S_31799;} -S_31800:; -if ((qbs_cleanup(qbs_tmp_base,((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])]))->len))||new_error){ -if(qbevent){evnt(23621);if(r)goto S_31800;} -do{ -*_FUNC_EVALUATECONST_LONG_A=qbs_asc(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23623);}while(r); -S_31802:; -if ((qbs_cleanup(qbs_tmp_base,((-(*_FUNC_EVALUATECONST_LONG_A== 45 ))&(-(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])]))->len> 1 )))|((-(*_FUNC_EVALUATECONST_LONG_A>= 48 ))&(-(*_FUNC_EVALUATECONST_LONG_A<= 57 )))))||new_error){ -if(qbevent){evnt(23624);if(r)goto S_31802;} -do{ -qbs_set(_FUNC_EVALUATECONST_STRING_E,qbs_right(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])), 3 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23627);}while(r); -S_31804:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_E,qbs_new_txt_len("~&&",3))))||new_error){ -if(qbevent){evnt(23628);if(r)goto S_31804;} -do{ -tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5]); -if (!new_error) ((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[tmp_long]=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(23628);}while(r); -do{ -goto LABEL_GOTCONSTBLKITYP; -if(!qbevent)break;evnt(23628);}while(r); -} -S_31808:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_E,qbs_new_txt_len("~%%",3))))||new_error){ -if(qbevent){evnt(23629);if(r)goto S_31808;} -do{ -tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5]); -if (!new_error) ((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[tmp_long]=*__LONG_UBYTETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(23629);}while(r); -do{ -goto LABEL_GOTCONSTBLKITYP; -if(!qbevent)break;evnt(23629);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATECONST_STRING_E,qbs_right(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])), 2 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23630);}while(r); -S_31813:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_E,qbs_new_txt_len("&&",2))))||new_error){ -if(qbevent){evnt(23631);if(r)goto S_31813;} -do{ -tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5]); -if (!new_error) ((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[tmp_long]=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(23631);}while(r); -do{ -goto LABEL_GOTCONSTBLKITYP; -if(!qbevent)break;evnt(23631);}while(r); -} -S_31817:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_E,qbs_new_txt_len("%%",2))))||new_error){ -if(qbevent){evnt(23632);if(r)goto S_31817;} -do{ -tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5]); -if (!new_error) ((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[tmp_long]=*__LONG_BYTETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(23632);}while(r); -do{ -goto LABEL_GOTCONSTBLKITYP; -if(!qbevent)break;evnt(23632);}while(r); -} -S_31821:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_E,qbs_new_txt_len("~%",2))))||new_error){ -if(qbevent){evnt(23633);if(r)goto S_31821;} -do{ -tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5]); -if (!new_error) ((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[tmp_long]=*__LONG_UINTEGERTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(23633);}while(r); -do{ -goto LABEL_GOTCONSTBLKITYP; -if(!qbevent)break;evnt(23633);}while(r); -} -S_31825:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_E,qbs_new_txt_len("~&",2))))||new_error){ -if(qbevent){evnt(23634);if(r)goto S_31825;} -do{ -tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5]); -if (!new_error) ((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[tmp_long]=*__LONG_ULONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(23634);}while(r); -do{ -goto LABEL_GOTCONSTBLKITYP; -if(!qbevent)break;evnt(23634);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATECONST_STRING_E,qbs_right(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])), 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23635);}while(r); -S_31830:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_E,qbs_new_txt_len("%",1))))||new_error){ -if(qbevent){evnt(23636);if(r)goto S_31830;} -do{ -tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5]); -if (!new_error) ((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[tmp_long]=*__LONG_INTEGERTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(23636);}while(r); -do{ -goto LABEL_GOTCONSTBLKITYP; -if(!qbevent)break;evnt(23636);}while(r); -} -S_31834:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_E,qbs_new_txt_len("&",1))))||new_error){ -if(qbevent){evnt(23637);if(r)goto S_31834;} -do{ -tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5]); -if (!new_error) ((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[tmp_long]=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(23637);}while(r); -do{ -goto LABEL_GOTCONSTBLKITYP; -if(!qbevent)break;evnt(23637);}while(r); -} -S_31838:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])),qbs_new_txt_len("~`",2),0)))||new_error){ -if(qbevent){evnt(23640);if(r)goto S_31838;} -do{ -*_FUNC_EVALUATECONST_LONG_X=func_instr(NULL,((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])),qbs_new_txt_len("~`",2),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23641);}while(r); -S_31840:; -if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_EVALUATECONST_LONG_X==(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])]))->len- 1 ))))||new_error){ -if(qbevent){evnt(23642);if(r)goto S_31840;} -do{ -tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_add(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])),qbs_new_txt_len("1",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23642);}while(r); -} -do{ -tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5]); -if (!new_error) ((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[tmp_long]=qbr(*__LONG_UBITTYPE-*__LONG_ISPOINTER- 1 +func_val(qbs_right(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])),((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])]))->len-*_FUNC_EVALUATECONST_LONG_X- 1 ))); -if(!qbevent)break;evnt(23643);}while(r); -do{ -tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[tmp_long])),i642string(qbr(func_val(qbs_left(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])),*_FUNC_EVALUATECONST_LONG_X- 1 ))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23644);}while(r); -do{ -tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[4],_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[5]); -if (!new_error) ((int16*)(_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(23645);}while(r); -do{ -goto LABEL_GOTCONSTBLKTYP; -if(!qbevent)break;evnt(23646);}while(r); -} -S_31848:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])),qbs_new_txt_len("`",1),0)))||new_error){ -if(qbevent){evnt(23650);if(r)goto S_31848;} -do{ -*_FUNC_EVALUATECONST_LONG_X=func_instr(NULL,((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])),qbs_new_txt_len("`",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23651);}while(r); -S_31850:; -if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_EVALUATECONST_LONG_X==((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])]))->len)))||new_error){ -if(qbevent){evnt(23652);if(r)goto S_31850;} -do{ -tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_add(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])),qbs_new_txt_len("1",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23652);}while(r); -} -do{ -tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5]); -if (!new_error) ((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[tmp_long]=qbr(*__LONG_BITTYPE-*__LONG_ISPOINTER- 1 +func_val(qbs_right(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])),((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])]))->len-*_FUNC_EVALUATECONST_LONG_X))); -if(!qbevent)break;evnt(23653);}while(r); -do{ -tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[tmp_long])),i642string(qbr(func_val(qbs_left(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])),*_FUNC_EVALUATECONST_LONG_X- 1 ))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23654);}while(r); -do{ -tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[4],_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[5]); -if (!new_error) ((int16*)(_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(23655);}while(r); -do{ -goto LABEL_GOTCONSTBLKTYP; -if(!qbevent)break;evnt(23656);}while(r); -} -S_31858:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])),qbs_new_txt_len("E",1),0)))||new_error){ -if(qbevent){evnt(23660);if(r)goto S_31858;} -do{ -tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[tmp_long])),f2string(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])]))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23661);}while(r); -do{ -tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5]); -if (!new_error) ((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[tmp_long]=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(23662);}while(r); -do{ -tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[4],_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[5]); -if (!new_error) ((int16*)(_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(23663);}while(r); -do{ -goto LABEL_GOTCONSTBLKTYP; -if(!qbevent)break;evnt(23664);}while(r); -} -S_31864:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])),qbs_new_txt_len("D",1),0)))||new_error){ -if(qbevent){evnt(23666);if(r)goto S_31864;} -do{ -tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[tmp_long])),f2string(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])]))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23667);}while(r); -do{ -tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5]); -if (!new_error) ((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[tmp_long]=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(23668);}while(r); -do{ -tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[4],_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[5]); -if (!new_error) ((int16*)(_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(23669);}while(r); -do{ -goto LABEL_GOTCONSTBLKTYP; -if(!qbevent)break;evnt(23670);}while(r); -} -S_31870:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])),qbs_new_txt_len("F",1),0)))||new_error){ -if(qbevent){evnt(23672);if(r)goto S_31870;} -do{ -tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[tmp_long])),f2string(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])]))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23673);}while(r); -do{ -tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5]); -if (!new_error) ((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[tmp_long]=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(23674);}while(r); -do{ -tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[4],_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[5]); -if (!new_error) ((int16*)(_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(23675);}while(r); -do{ -goto LABEL_GOTCONSTBLKTYP; -if(!qbevent)break;evnt(23676);}while(r); -} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Invalid CONST expression.1",26)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23679);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(23679);}while(r); -LABEL_GOTCONSTBLKITYP:; -if(qbevent){evnt(23681);r=0;} -do{ -tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_left(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])),((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])]))->len-_FUNC_EVALUATECONST_STRING_E->len)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23682);}while(r); -do{ -tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[tmp_long])),i642string(qbr(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23683);}while(r); -do{ -tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[4],_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[5]); -if (!new_error) ((int16*)(_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(23684);}while(r); -LABEL_GOTCONSTBLKTYP:; -if(qbevent){evnt(23685);r=0;} -} -S_31882:; -if ((-(*_FUNC_EVALUATECONST_LONG_A== 34 ))||new_error){ -if(qbevent){evnt(23689);if(r)goto S_31882;} -do{ -tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5]); -if (!new_error) ((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[tmp_long]=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(23691);}while(r); -do{ -tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[4],_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[5]); -if (!new_error) ((int16*)(_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(23692);}while(r); -} -} -} -fornext_continue_3450:; -} -fornext_exit_3450:; -do{ -*_FUNC_EVALUATECONST_LONG_N2= 0 ; -if(!qbevent)break;evnt(23700);}while(r); -S_31890:; -fornext_value3461= 1 ; -fornext_finalvalue3461=*_FUNC_EVALUATECONST_LONG_N; -fornext_step3461= 1 ; -if (fornext_step3461<0) fornext_step_negative3461=1; else fornext_step_negative3461=0; -if (new_error) goto fornext_error3461; -goto fornext_entrylabel3461; -while(1){ -fornext_value3461=fornext_step3461+(*_FUNC_EVALUATECONST_LONG_I); -fornext_entrylabel3461: -*_FUNC_EVALUATECONST_LONG_I=fornext_value3461; -if (fornext_step_negative3461){ -if (fornext_value3461fornext_finalvalue3461) break; -} -fornext_error3461:; -if(qbevent){evnt(23701);if(r)goto S_31890;} -S_31891:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])),qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(23702);if(r)goto S_31891;} -do{ -*_FUNC_EVALUATECONST_LONG_N2=*_FUNC_EVALUATECONST_LONG_N2+ 1 ; -if(!qbevent)break;evnt(23703);}while(r); -do{ -tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_N2)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[tmp_long])),((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23704);}while(r); -do{ -tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_N2)-_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[4],_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[5]); -if (!new_error) ((int16*)(_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[0]))[tmp_long]=((int16*)(_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[4],_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[5])]; -if(!qbevent)break;evnt(23705);}while(r); -do{ -tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_N2)-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5]); -if (!new_error) ((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[tmp_long]=((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5])]; -if(!qbevent)break;evnt(23706);}while(r); -} -fornext_continue_3460:; -} -fornext_exit_3460:; -do{ -*_FUNC_EVALUATECONST_LONG_N=*_FUNC_EVALUATECONST_LONG_N2; -if(!qbevent)break;evnt(23709);}while(r); -S_31899:; -if ((-(*_FUNC_EVALUATECONST_LONG_N== 1 ))||new_error){ -if(qbevent){evnt(23712);if(r)goto S_31899;} -S_31900:; -if ((-(((int16*)(_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[0]))[array_check(( 1 )-_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[4],_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[5])]== 0 ))||new_error){ -if(qbevent){evnt(23713);if(r)goto S_31900;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Invalid CONST expression.2",26)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23713);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(23713);}while(r); -} -do{ -*_FUNC_EVALUATECONST_LONG_T=((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[array_check(( 1 )-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5])]; -if(!qbevent)break;evnt(23714);}while(r); -do{ -qbs_set(_FUNC_EVALUATECONST_STRING_EVALUATECONST,((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check(( 1 )-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23715);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(23716);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATECONST_STRING_E,((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check(( 1 )-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23722);}while(r); -S_31909:; -if ((-(((int16*)(_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[0]))[array_check(( 1 )-_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[4],_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[5])]== 0 ))||new_error){ -if(qbevent){evnt(23723);if(r)goto S_31909;} -S_31910:; -if ((-(*_FUNC_EVALUATECONST_LONG_N!= 2 ))||new_error){ -if(qbevent){evnt(23724);if(r)goto S_31910;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Invalid CONST expression.4",26)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23724);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(23724);}while(r); -} -S_31914:; -if ((-(((int16*)(_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[0]))[array_check(( 2 )-_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[4],_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[5])]== 0 ))||new_error){ -if(qbevent){evnt(23725);if(r)goto S_31914;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Invalid CONST expression.5",26)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23725);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(23725);}while(r); -} -S_31918:; -if ((((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[array_check(( 2 )-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5])]&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(23726);if(r)goto S_31918;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Invalid CONST expression.6",26)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23726);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(23726);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATECONST_STRING_O,((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check(( 1 )-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23727);}while(r); -S_31923:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,func_chr( 241 ))))||new_error){ -if(qbevent){evnt(23729);if(r)goto S_31923;} -S_31924:; -if ((((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[array_check(( 2 )-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5])]&*__LONG_ISFLOAT)||new_error){ -if(qbevent){evnt(23730);if(r)goto S_31924;} -do{ -*_FUNC_EVALUATECONST_FLOAT_R=-(string2f(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check(( 2 )-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23731);}while(r); -do{ -qbs_set(_FUNC_EVALUATECONST_STRING_EVALUATECONST,f2string(*_FUNC_EVALUATECONST_FLOAT_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23732);}while(r); -}else{ -do{ -*_FUNC_EVALUATECONST_INTEGER64_R=-(string2i64(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check(( 2 )-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23734);}while(r); -do{ -qbs_set(_FUNC_EVALUATECONST_STRING_EVALUATECONST,i642string(*_FUNC_EVALUATECONST_INTEGER64_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23735);}while(r); -} -do{ -*_FUNC_EVALUATECONST_LONG_T=((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[array_check(( 2 )-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5])]; -if(!qbevent)break;evnt(23737);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(23738);}while(r); -} -S_31934:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_FUNC_EVALUATECONST_STRING_O),qbs_new_txt_len("NOT",3))))||new_error){ -if(qbevent){evnt(23741);if(r)goto S_31934;} -S_31935:; -if ((((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[array_check(( 2 )-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5])]&*__LONG_ISFLOAT)||new_error){ -if(qbevent){evnt(23742);if(r)goto S_31935;} -do{ -*_FUNC_EVALUATECONST_INTEGER64_R=qbr(string2f(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check(( 2 )-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23743);}while(r); -}else{ -do{ -*_FUNC_EVALUATECONST_INTEGER64_R=string2i64(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check(( 2 )-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23745);}while(r); -} -do{ -*_FUNC_EVALUATECONST_INTEGER64_R=~(*_FUNC_EVALUATECONST_INTEGER64_R); -if(!qbevent)break;evnt(23747);}while(r); -do{ -*_FUNC_EVALUATECONST_LONG_T=((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[array_check(( 2 )-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5])]; -if(!qbevent)break;evnt(23748);}while(r); -S_31942:; -if ((*_FUNC_EVALUATECONST_LONG_T&*__LONG_ISFLOAT)||new_error){ -if(qbevent){evnt(23749);if(r)goto S_31942;} -do{ -*_FUNC_EVALUATECONST_LONG_T=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(23749);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATECONST_STRING_EVALUATECONST,i642string(*_FUNC_EVALUATECONST_INTEGER64_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23750);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(23751);}while(r); -} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Invalid CONST expression.7",26)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23754);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(23754);}while(r); -} -do{ -*_FUNC_EVALUATECONST_LONG_ET=((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[array_check(( 1 )-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5])]; -if(!qbevent)break;evnt(23760);}while(r); -do{ -qbs_set(_FUNC_EVALUATECONST_STRING_EV,((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check(( 1 )-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23761);}while(r); -do{ -*_FUNC_EVALUATECONST_LONG_I= 2 ; -if(!qbevent)break;evnt(23763);}while(r); -LABEL_EVALCONSTEQU:; -if(qbevent){evnt(23765);r=0;} -S_31954:; -if ((-(*_FUNC_EVALUATECONST_LONG_I>=*_FUNC_EVALUATECONST_LONG_N))||new_error){ -if(qbevent){evnt(23768);if(r)goto S_31954;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Invalid CONST expression.8",26)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23768);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(23768);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATECONST_STRING_O,qbs_ucase(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23769);}while(r); -do{ -*_FUNC_EVALUATECONST_LONG_I=*_FUNC_EVALUATECONST_LONG_I+ 1 ; -if(!qbevent)break;evnt(23770);}while(r); -S_31960:; -if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISOPERATOR(_FUNC_EVALUATECONST_STRING_O)== 0 )))||new_error){ -if(qbevent){evnt(23771);if(r)goto S_31960;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Invalid CONST expression.9",26)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23771);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(23771);}while(r); -} -S_31964:; -if ((-(*_FUNC_EVALUATECONST_LONG_I>*_FUNC_EVALUATECONST_LONG_N))||new_error){ -if(qbevent){evnt(23772);if(r)goto S_31964;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Invalid CONST expression.10",27)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23772);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(23772);}while(r); -} -S_31968:; -if ((-((((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5])]&*__LONG_ISSTRING)!=(*_FUNC_EVALUATECONST_LONG_ET&*__LONG_ISSTRING)))||new_error){ -if(qbevent){evnt(23775);if(r)goto S_31968;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Invalid CONST expression.11",27)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23775);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(23775);}while(r); -} -S_31972:; -if ((-(*_FUNC_EVALUATECONST_LONG_ET== 0 ))||new_error){ -if(qbevent){evnt(23779);if(r)goto S_31972;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Invalid CONST expression.14",27)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23779);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(23779);}while(r); -} -S_31976:; -if ((-(((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5])]== 0 ))||new_error){ -if(qbevent){evnt(23780);if(r)goto S_31976;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Invalid CONST expression.15",27)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23780);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(23780);}while(r); -} -S_31980:; -if ((*_FUNC_EVALUATECONST_LONG_ET&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(23782);if(r)goto S_31980;} -S_31981:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("+",1))))||new_error){ -if(qbevent){evnt(23783);if(r)goto S_31981;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Invalid CONST expression.12",27)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23783);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(23783);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATECONST_STRING_S1,qbs_right(_FUNC_EVALUATECONST_STRING_EV,_FUNC_EVALUATECONST_STRING_EV->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23785);}while(r); -do{ -qbs_set(_FUNC_EVALUATECONST_STRING_S1,qbs_left(_FUNC_EVALUATECONST_STRING_S1,func_instr(NULL,_FUNC_EVALUATECONST_STRING_S1,func_chr( 34 ),0)- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23786);}while(r); -do{ -*_FUNC_EVALUATECONST_LONG_S1SIZE=qbr(func_val(qbs_right(_FUNC_EVALUATECONST_STRING_EV,_FUNC_EVALUATECONST_STRING_EV->len-_FUNC_EVALUATECONST_STRING_S1->len- 3 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23787);}while(r); -do{ -qbs_set(_FUNC_EVALUATECONST_STRING_S2,qbs_right(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])),((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])]))->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23788);}while(r); -do{ -qbs_set(_FUNC_EVALUATECONST_STRING_S2,qbs_left(_FUNC_EVALUATECONST_STRING_S2,func_instr(NULL,_FUNC_EVALUATECONST_STRING_S2,func_chr( 34 ),0)- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23789);}while(r); -do{ -*_FUNC_EVALUATECONST_LONG_S2SIZE=qbr(func_val(qbs_right(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])),((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])]))->len-_FUNC_EVALUATECONST_STRING_S2->len- 3 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23790);}while(r); -do{ -qbs_set(_FUNC_EVALUATECONST_STRING_EV,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(func_chr( 34 ),_FUNC_EVALUATECONST_STRING_S1),_FUNC_EVALUATECONST_STRING_S2),func_chr( 34 )),qbs_new_txt_len(",",1)),FUNC_STR2(&(pass3468=*_FUNC_EVALUATECONST_LONG_S1SIZE+*_FUNC_EVALUATECONST_LONG_S2SIZE)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23791);}while(r); -do{ -goto LABEL_ECONSTMARKEDUP; -if(!qbevent)break;evnt(23792);}while(r); -} -S_31994:; -if ((*_FUNC_EVALUATECONST_LONG_ET&*__LONG_ISFLOAT)||new_error){ -if(qbevent){evnt(23796);if(r)goto S_31994;} -do{ -*_FUNC_EVALUATECONST_LONG_LINTEGER= 0 ; -if(!qbevent)break;evnt(23797);}while(r); -do{ -*_FUNC_EVALUATECONST_FLOAT_L=string2f(_FUNC_EVALUATECONST_STRING_EV); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23798);}while(r); -do{ -*_FUNC_EVALUATECONST_INTEGER64_L=qbr(*_FUNC_EVALUATECONST_FLOAT_L); -if(!qbevent)break;evnt(23799);}while(r); -}else{ -do{ -*_FUNC_EVALUATECONST_LONG_LINTEGER= 1 ; -if(!qbevent)break;evnt(23801);}while(r); -do{ -*_FUNC_EVALUATECONST_INTEGER64_L=string2i64(_FUNC_EVALUATECONST_STRING_EV); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23802);}while(r); -do{ -*_FUNC_EVALUATECONST_FLOAT_L=*_FUNC_EVALUATECONST_INTEGER64_L; -if(!qbevent)break;evnt(23803);}while(r); -} -S_32003:; -if ((((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5])]&*__LONG_ISFLOAT)||new_error){ -if(qbevent){evnt(23805);if(r)goto S_32003;} -do{ -*_FUNC_EVALUATECONST_LONG_RINTEGER= 0 ; -if(!qbevent)break;evnt(23806);}while(r); -do{ -*_FUNC_EVALUATECONST_FLOAT_R=string2f(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23807);}while(r); -do{ -*_FUNC_EVALUATECONST_INTEGER64_R=qbr(*_FUNC_EVALUATECONST_FLOAT_R); -if(!qbevent)break;evnt(23808);}while(r); -}else{ -do{ -*_FUNC_EVALUATECONST_LONG_RINTEGER= 1 ; -if(!qbevent)break;evnt(23810);}while(r); -do{ -*_FUNC_EVALUATECONST_INTEGER64_R=string2i64(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23811);}while(r); -do{ -*_FUNC_EVALUATECONST_FLOAT_R=*_FUNC_EVALUATECONST_INTEGER64_R; -if(!qbevent)break;evnt(23812);}while(r); -} -S_32012:; -if (((-(*_FUNC_EVALUATECONST_LONG_LINTEGER== 1 ))&(-(*_FUNC_EVALUATECONST_LONG_RINTEGER== 1 )))||new_error){ -if(qbevent){evnt(23815);if(r)goto S_32012;} -S_32013:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("+",1))))||new_error){ -if(qbevent){evnt(23816);if(r)goto S_32013;} -do{ -*_FUNC_EVALUATECONST_INTEGER64_R=*_FUNC_EVALUATECONST_INTEGER64_L+*_FUNC_EVALUATECONST_INTEGER64_R; -if(!qbevent)break;evnt(23816);}while(r); -do{ -goto LABEL_ECONSTMARKUPI; -if(!qbevent)break;evnt(23816);}while(r); -} -S_32017:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("-",1))))||new_error){ -if(qbevent){evnt(23817);if(r)goto S_32017;} -do{ -*_FUNC_EVALUATECONST_INTEGER64_R=*_FUNC_EVALUATECONST_INTEGER64_L-*_FUNC_EVALUATECONST_INTEGER64_R; -if(!qbevent)break;evnt(23817);}while(r); -do{ -goto LABEL_ECONSTMARKUPI; -if(!qbevent)break;evnt(23817);}while(r); -} -S_32021:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("*",1))))||new_error){ -if(qbevent){evnt(23818);if(r)goto S_32021;} -do{ -*_FUNC_EVALUATECONST_INTEGER64_R=*_FUNC_EVALUATECONST_INTEGER64_L**_FUNC_EVALUATECONST_INTEGER64_R; -if(!qbevent)break;evnt(23818);}while(r); -do{ -goto LABEL_ECONSTMARKUPI; -if(!qbevent)break;evnt(23818);}while(r); -} -S_32025:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("^",1))))||new_error){ -if(qbevent){evnt(23819);if(r)goto S_32025;} -do{ -*_FUNC_EVALUATECONST_FLOAT_R=pow2(*_FUNC_EVALUATECONST_INTEGER64_L,*_FUNC_EVALUATECONST_INTEGER64_R); -if(!qbevent)break;evnt(23819);}while(r); -do{ -goto LABEL_ECONSTMARKUPF; -if(!qbevent)break;evnt(23819);}while(r); -} -S_32029:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("/",1))))||new_error){ -if(qbevent){evnt(23820);if(r)goto S_32029;} -do{ -*_FUNC_EVALUATECONST_FLOAT_R=*_FUNC_EVALUATECONST_INTEGER64_L/ ((long double)(*_FUNC_EVALUATECONST_INTEGER64_R)); -if(!qbevent)break;evnt(23820);}while(r); -do{ -goto LABEL_ECONSTMARKUPF; -if(!qbevent)break;evnt(23820);}while(r); -} -S_32033:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("\\",1))))||new_error){ -if(qbevent){evnt(23821);if(r)goto S_32033;} -do{ -*_FUNC_EVALUATECONST_INTEGER64_R=*_FUNC_EVALUATECONST_INTEGER64_L/ *_FUNC_EVALUATECONST_INTEGER64_R; -if(!qbevent)break;evnt(23821);}while(r); -do{ -goto LABEL_ECONSTMARKUPI; -if(!qbevent)break;evnt(23821);}while(r); -} -S_32037:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("MOD",3))))||new_error){ -if(qbevent){evnt(23822);if(r)goto S_32037;} -do{ -*_FUNC_EVALUATECONST_INTEGER64_R=*_FUNC_EVALUATECONST_INTEGER64_L%*_FUNC_EVALUATECONST_INTEGER64_R; -if(!qbevent)break;evnt(23822);}while(r); -do{ -goto LABEL_ECONSTMARKUPI; -if(!qbevent)break;evnt(23822);}while(r); -} -S_32041:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("=",1))))||new_error){ -if(qbevent){evnt(23823);if(r)goto S_32041;} -do{ -*_FUNC_EVALUATECONST_INTEGER64_R=-(*_FUNC_EVALUATECONST_INTEGER64_L==*_FUNC_EVALUATECONST_INTEGER64_R); -if(!qbevent)break;evnt(23823);}while(r); -do{ -goto LABEL_ECONSTMARKUPI16; -if(!qbevent)break;evnt(23823);}while(r); -} -S_32045:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len(">",1))))||new_error){ -if(qbevent){evnt(23824);if(r)goto S_32045;} -do{ -*_FUNC_EVALUATECONST_INTEGER64_R=-(*_FUNC_EVALUATECONST_INTEGER64_L>*_FUNC_EVALUATECONST_INTEGER64_R); -if(!qbevent)break;evnt(23824);}while(r); -do{ -goto LABEL_ECONSTMARKUPI16; -if(!qbevent)break;evnt(23824);}while(r); -} -S_32049:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("<",1))))||new_error){ -if(qbevent){evnt(23825);if(r)goto S_32049;} -do{ -*_FUNC_EVALUATECONST_INTEGER64_R=-(*_FUNC_EVALUATECONST_INTEGER64_L<*_FUNC_EVALUATECONST_INTEGER64_R); -if(!qbevent)break;evnt(23825);}while(r); -do{ -goto LABEL_ECONSTMARKUPI16; -if(!qbevent)break;evnt(23825);}while(r); -} -S_32053:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len(">=",2))))||new_error){ -if(qbevent){evnt(23826);if(r)goto S_32053;} -do{ -*_FUNC_EVALUATECONST_INTEGER64_R=-(*_FUNC_EVALUATECONST_INTEGER64_L>=*_FUNC_EVALUATECONST_INTEGER64_R); -if(!qbevent)break;evnt(23826);}while(r); -do{ -goto LABEL_ECONSTMARKUPI16; -if(!qbevent)break;evnt(23826);}while(r); -} -S_32057:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("<=",2))))||new_error){ -if(qbevent){evnt(23827);if(r)goto S_32057;} -do{ -*_FUNC_EVALUATECONST_INTEGER64_R=-(*_FUNC_EVALUATECONST_INTEGER64_L<=*_FUNC_EVALUATECONST_INTEGER64_R); -if(!qbevent)break;evnt(23827);}while(r); -do{ -goto LABEL_ECONSTMARKUPI16; -if(!qbevent)break;evnt(23827);}while(r); -} -S_32061:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("<>",2))))||new_error){ -if(qbevent){evnt(23828);if(r)goto S_32061;} -do{ -*_FUNC_EVALUATECONST_INTEGER64_R=-(*_FUNC_EVALUATECONST_INTEGER64_L!=*_FUNC_EVALUATECONST_INTEGER64_R); -if(!qbevent)break;evnt(23828);}while(r); -do{ -goto LABEL_ECONSTMARKUPI16; -if(!qbevent)break;evnt(23828);}while(r); -} -S_32065:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("IMP",3))))||new_error){ -if(qbevent){evnt(23829);if(r)goto S_32065;} -do{ -*_FUNC_EVALUATECONST_INTEGER64_R=~*_FUNC_EVALUATECONST_INTEGER64_L|*_FUNC_EVALUATECONST_INTEGER64_R; -if(!qbevent)break;evnt(23829);}while(r); -do{ -goto LABEL_ECONSTMARKUPI; -if(!qbevent)break;evnt(23829);}while(r); -} -S_32069:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("EQV",3))))||new_error){ -if(qbevent){evnt(23830);if(r)goto S_32069;} -do{ -*_FUNC_EVALUATECONST_INTEGER64_R=~*_FUNC_EVALUATECONST_INTEGER64_L^*_FUNC_EVALUATECONST_INTEGER64_R; -if(!qbevent)break;evnt(23830);}while(r); -do{ -goto LABEL_ECONSTMARKUPI; -if(!qbevent)break;evnt(23830);}while(r); -} -S_32073:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("XOR",3))))||new_error){ -if(qbevent){evnt(23831);if(r)goto S_32073;} -do{ -*_FUNC_EVALUATECONST_INTEGER64_R=*_FUNC_EVALUATECONST_INTEGER64_L^*_FUNC_EVALUATECONST_INTEGER64_R; -if(!qbevent)break;evnt(23831);}while(r); -do{ -goto LABEL_ECONSTMARKUPI; -if(!qbevent)break;evnt(23831);}while(r); -} -S_32077:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("OR",2))))||new_error){ -if(qbevent){evnt(23832);if(r)goto S_32077;} -do{ -*_FUNC_EVALUATECONST_INTEGER64_R=*_FUNC_EVALUATECONST_INTEGER64_L|*_FUNC_EVALUATECONST_INTEGER64_R; -if(!qbevent)break;evnt(23832);}while(r); -do{ -goto LABEL_ECONSTMARKUPI; -if(!qbevent)break;evnt(23832);}while(r); -} -S_32081:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("AND",3))))||new_error){ -if(qbevent){evnt(23833);if(r)goto S_32081;} -do{ -*_FUNC_EVALUATECONST_INTEGER64_R=*_FUNC_EVALUATECONST_INTEGER64_L&*_FUNC_EVALUATECONST_INTEGER64_R; -if(!qbevent)break;evnt(23833);}while(r); -do{ -goto LABEL_ECONSTMARKUPI; -if(!qbevent)break;evnt(23833);}while(r); -} -} -S_32086:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("+",1))))||new_error){ -if(qbevent){evnt(23836);if(r)goto S_32086;} -do{ -*_FUNC_EVALUATECONST_FLOAT_R=*_FUNC_EVALUATECONST_FLOAT_L+*_FUNC_EVALUATECONST_FLOAT_R; -if(!qbevent)break;evnt(23836);}while(r); -do{ -goto LABEL_ECONSTMARKUPF; -if(!qbevent)break;evnt(23836);}while(r); -} -S_32090:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("-",1))))||new_error){ -if(qbevent){evnt(23837);if(r)goto S_32090;} -do{ -*_FUNC_EVALUATECONST_FLOAT_R=*_FUNC_EVALUATECONST_FLOAT_L-*_FUNC_EVALUATECONST_FLOAT_R; -if(!qbevent)break;evnt(23837);}while(r); -do{ -goto LABEL_ECONSTMARKUPF; -if(!qbevent)break;evnt(23837);}while(r); -} -S_32094:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("*",1))))||new_error){ -if(qbevent){evnt(23838);if(r)goto S_32094;} -do{ -*_FUNC_EVALUATECONST_FLOAT_R=*_FUNC_EVALUATECONST_FLOAT_L**_FUNC_EVALUATECONST_FLOAT_R; -if(!qbevent)break;evnt(23838);}while(r); -do{ -goto LABEL_ECONSTMARKUPF; -if(!qbevent)break;evnt(23838);}while(r); -} -S_32098:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("^",1))))||new_error){ -if(qbevent){evnt(23839);if(r)goto S_32098;} -do{ -*_FUNC_EVALUATECONST_FLOAT_R=pow2(*_FUNC_EVALUATECONST_FLOAT_L,*_FUNC_EVALUATECONST_FLOAT_R); -if(!qbevent)break;evnt(23839);}while(r); -do{ -goto LABEL_ECONSTMARKUPF; -if(!qbevent)break;evnt(23839);}while(r); -} -S_32102:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("/",1))))||new_error){ -if(qbevent){evnt(23840);if(r)goto S_32102;} -do{ -*_FUNC_EVALUATECONST_FLOAT_R=*_FUNC_EVALUATECONST_FLOAT_L/ *_FUNC_EVALUATECONST_FLOAT_R; -if(!qbevent)break;evnt(23840);}while(r); -do{ -goto LABEL_ECONSTMARKUPF; -if(!qbevent)break;evnt(23840);}while(r); -} -S_32106:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("\\",1))))||new_error){ -if(qbevent){evnt(23841);if(r)goto S_32106;} -do{ -*_FUNC_EVALUATECONST_INTEGER64_R=qbr(*_FUNC_EVALUATECONST_FLOAT_L)/ qbr(*_FUNC_EVALUATECONST_FLOAT_R); -if(!qbevent)break;evnt(23841);}while(r); -do{ -goto LABEL_ECONSTMARKUPI32; -if(!qbevent)break;evnt(23841);}while(r); -} -S_32110:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("MOD",3))))||new_error){ -if(qbevent){evnt(23842);if(r)goto S_32110;} -do{ -*_FUNC_EVALUATECONST_INTEGER64_R=qbr(*_FUNC_EVALUATECONST_FLOAT_L)%qbr(*_FUNC_EVALUATECONST_FLOAT_R); -if(!qbevent)break;evnt(23842);}while(r); -do{ -goto LABEL_ECONSTMARKUPI32; -if(!qbevent)break;evnt(23842);}while(r); -} -S_32114:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("=",1))))||new_error){ -if(qbevent){evnt(23843);if(r)goto S_32114;} -do{ -*_FUNC_EVALUATECONST_INTEGER64_R=-(*_FUNC_EVALUATECONST_FLOAT_L==*_FUNC_EVALUATECONST_FLOAT_R); -if(!qbevent)break;evnt(23843);}while(r); -do{ -goto LABEL_ECONSTMARKUPI16; -if(!qbevent)break;evnt(23843);}while(r); -} -S_32118:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len(">",1))))||new_error){ -if(qbevent){evnt(23844);if(r)goto S_32118;} -do{ -*_FUNC_EVALUATECONST_INTEGER64_R=-(*_FUNC_EVALUATECONST_FLOAT_L>*_FUNC_EVALUATECONST_FLOAT_R); -if(!qbevent)break;evnt(23844);}while(r); -do{ -goto LABEL_ECONSTMARKUPI16; -if(!qbevent)break;evnt(23844);}while(r); -} -S_32122:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("<",1))))||new_error){ -if(qbevent){evnt(23845);if(r)goto S_32122;} -do{ -*_FUNC_EVALUATECONST_INTEGER64_R=-(*_FUNC_EVALUATECONST_FLOAT_L<*_FUNC_EVALUATECONST_FLOAT_R); -if(!qbevent)break;evnt(23845);}while(r); -do{ -goto LABEL_ECONSTMARKUPI16; -if(!qbevent)break;evnt(23845);}while(r); -} -S_32126:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len(">=",2))))||new_error){ -if(qbevent){evnt(23846);if(r)goto S_32126;} -do{ -*_FUNC_EVALUATECONST_INTEGER64_R=-(*_FUNC_EVALUATECONST_FLOAT_L>=*_FUNC_EVALUATECONST_FLOAT_R); -if(!qbevent)break;evnt(23846);}while(r); -do{ -goto LABEL_ECONSTMARKUPI16; -if(!qbevent)break;evnt(23846);}while(r); -} -S_32130:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("<=",2))))||new_error){ -if(qbevent){evnt(23847);if(r)goto S_32130;} -do{ -*_FUNC_EVALUATECONST_INTEGER64_R=-(*_FUNC_EVALUATECONST_FLOAT_L<=*_FUNC_EVALUATECONST_FLOAT_R); -if(!qbevent)break;evnt(23847);}while(r); -do{ -goto LABEL_ECONSTMARKUPI16; -if(!qbevent)break;evnt(23847);}while(r); -} -S_32134:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("<>",2))))||new_error){ -if(qbevent){evnt(23848);if(r)goto S_32134;} -do{ -*_FUNC_EVALUATECONST_INTEGER64_R=-(*_FUNC_EVALUATECONST_FLOAT_L!=*_FUNC_EVALUATECONST_FLOAT_R); -if(!qbevent)break;evnt(23848);}while(r); -do{ -goto LABEL_ECONSTMARKUPI16; -if(!qbevent)break;evnt(23848);}while(r); -} -S_32138:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("IMP",3))))||new_error){ -if(qbevent){evnt(23849);if(r)goto S_32138;} -do{ -*_FUNC_EVALUATECONST_INTEGER64_R=~qbr(*_FUNC_EVALUATECONST_FLOAT_L)|qbr(*_FUNC_EVALUATECONST_FLOAT_R); -if(!qbevent)break;evnt(23849);}while(r); -do{ -goto LABEL_ECONSTMARKUPI32; -if(!qbevent)break;evnt(23849);}while(r); -} -S_32142:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("EQV",3))))||new_error){ -if(qbevent){evnt(23850);if(r)goto S_32142;} -do{ -*_FUNC_EVALUATECONST_INTEGER64_R=~qbr(*_FUNC_EVALUATECONST_FLOAT_L)^qbr(*_FUNC_EVALUATECONST_FLOAT_R); -if(!qbevent)break;evnt(23850);}while(r); -do{ -goto LABEL_ECONSTMARKUPI32; -if(!qbevent)break;evnt(23850);}while(r); -} -S_32146:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("XOR",3))))||new_error){ -if(qbevent){evnt(23851);if(r)goto S_32146;} -do{ -*_FUNC_EVALUATECONST_INTEGER64_R=qbr(*_FUNC_EVALUATECONST_FLOAT_L)^qbr(*_FUNC_EVALUATECONST_FLOAT_R); -if(!qbevent)break;evnt(23851);}while(r); -do{ -goto LABEL_ECONSTMARKUPI32; -if(!qbevent)break;evnt(23851);}while(r); -} -S_32150:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("OR",2))))||new_error){ -if(qbevent){evnt(23852);if(r)goto S_32150;} -do{ -*_FUNC_EVALUATECONST_INTEGER64_R=qbr(*_FUNC_EVALUATECONST_FLOAT_L)|qbr(*_FUNC_EVALUATECONST_FLOAT_R); -if(!qbevent)break;evnt(23852);}while(r); -do{ -goto LABEL_ECONSTMARKUPI32; -if(!qbevent)break;evnt(23852);}while(r); -} -S_32154:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("AND",3))))||new_error){ -if(qbevent){evnt(23853);if(r)goto S_32154;} -do{ -*_FUNC_EVALUATECONST_INTEGER64_R=qbr(*_FUNC_EVALUATECONST_FLOAT_L)&qbr(*_FUNC_EVALUATECONST_FLOAT_R); -if(!qbevent)break;evnt(23853);}while(r); -do{ -goto LABEL_ECONSTMARKUPI32; -if(!qbevent)break;evnt(23853);}while(r); -} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Invalid CONST expression.13",27)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23855);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(23855);}while(r); -LABEL_ECONSTMARKUPI16:; -if(qbevent){evnt(23857);r=0;} -do{ -*_FUNC_EVALUATECONST_LONG_ET=*__LONG_INTEGERTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(23858);}while(r); -do{ -qbs_set(_FUNC_EVALUATECONST_STRING_EV,i642string(*_FUNC_EVALUATECONST_INTEGER64_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23859);}while(r); -do{ -goto LABEL_ECONSTMARKEDUP; -if(!qbevent)break;evnt(23860);}while(r); -LABEL_ECONSTMARKUPI32:; -if(qbevent){evnt(23862);r=0;} -do{ -*_FUNC_EVALUATECONST_LONG_ET=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(23863);}while(r); -do{ -qbs_set(_FUNC_EVALUATECONST_STRING_EV,i642string(*_FUNC_EVALUATECONST_INTEGER64_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23864);}while(r); -do{ -goto LABEL_ECONSTMARKEDUP; -if(!qbevent)break;evnt(23865);}while(r); -LABEL_ECONSTMARKUPI:; -if(qbevent){evnt(23867);r=0;} -S_32166:; -if ((-(*_FUNC_EVALUATECONST_LONG_ET!=((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5])]))||new_error){ -if(qbevent){evnt(23868);if(r)goto S_32166;} -do{ -*_FUNC_EVALUATECONST_LONG_U= 0 ; -if(!qbevent)break;evnt(23870);}while(r); -S_32168:; -if (((-((*_FUNC_EVALUATECONST_LONG_ET&*__LONG_ISUNSIGNED)!= 0 ))&(-((((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5])]&*__LONG_ISUNSIGNED)!= 0 )))||new_error){ -if(qbevent){evnt(23870);if(r)goto S_32168;} -do{ -*_FUNC_EVALUATECONST_LONG_U= 1 ; -if(!qbevent)break;evnt(23870);}while(r); -} -do{ -*_FUNC_EVALUATECONST_LONG_LB=*_FUNC_EVALUATECONST_LONG_ET& 511 ; -if(!qbevent)break;evnt(23871);}while(r); -do{ -*_FUNC_EVALUATECONST_LONG_RB=((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5])]& 511 ; -if(!qbevent)break;evnt(23871);}while(r); -do{ -*_FUNC_EVALUATECONST_LONG_OB= 0 ; -if(!qbevent)break;evnt(23872);}while(r); -S_32174:; -if ((-(*_FUNC_EVALUATECONST_LONG_LB==*_FUNC_EVALUATECONST_LONG_RB))||new_error){ -if(qbevent){evnt(23873);if(r)goto S_32174;} -S_32175:; -if (((-((*_FUNC_EVALUATECONST_LONG_ET&*__LONG_ISOFFSETINBITS)!= 0 ))&(-((((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5])]&*__LONG_ISOFFSETINBITS)!= 0 )))||new_error){ -if(qbevent){evnt(23874);if(r)goto S_32175;} -do{ -*_FUNC_EVALUATECONST_LONG_OB= 1 ; -if(!qbevent)break;evnt(23874);}while(r); -} -do{ -*_FUNC_EVALUATECONST_LONG_B=*_FUNC_EVALUATECONST_LONG_LB; -if(!qbevent)break;evnt(23875);}while(r); -} -S_32180:; -if ((-(*_FUNC_EVALUATECONST_LONG_LB>*_FUNC_EVALUATECONST_LONG_RB))||new_error){ -if(qbevent){evnt(23877);if(r)goto S_32180;} -S_32181:; -if ((-((*_FUNC_EVALUATECONST_LONG_ET&*__LONG_ISOFFSETINBITS)!= 0 ))||new_error){ -if(qbevent){evnt(23878);if(r)goto S_32181;} -do{ -*_FUNC_EVALUATECONST_LONG_OB= 1 ; -if(!qbevent)break;evnt(23878);}while(r); -} -do{ -*_FUNC_EVALUATECONST_LONG_B=*_FUNC_EVALUATECONST_LONG_LB; -if(!qbevent)break;evnt(23879);}while(r); -} -S_32186:; -if ((-(*_FUNC_EVALUATECONST_LONG_LB<*_FUNC_EVALUATECONST_LONG_RB))||new_error){ -if(qbevent){evnt(23881);if(r)goto S_32186;} -S_32187:; -if ((-((((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5])]&*__LONG_ISOFFSETINBITS)!= 0 ))||new_error){ -if(qbevent){evnt(23882);if(r)goto S_32187;} -do{ -*_FUNC_EVALUATECONST_LONG_OB= 1 ; -if(!qbevent)break;evnt(23882);}while(r); -} -do{ -*_FUNC_EVALUATECONST_LONG_B=*_FUNC_EVALUATECONST_LONG_RB; -if(!qbevent)break;evnt(23883);}while(r); -} -do{ -*_FUNC_EVALUATECONST_LONG_ET=*_FUNC_EVALUATECONST_LONG_B; -if(!qbevent)break;evnt(23885);}while(r); -S_32193:; -if ((*_FUNC_EVALUATECONST_LONG_OB)||new_error){ -if(qbevent){evnt(23886);if(r)goto S_32193;} -do{ -*_FUNC_EVALUATECONST_LONG_ET=*_FUNC_EVALUATECONST_LONG_ET+*__LONG_ISOFFSETINBITS; -if(!qbevent)break;evnt(23886);}while(r); -} -S_32196:; -if ((*_FUNC_EVALUATECONST_LONG_U)||new_error){ -if(qbevent){evnt(23887);if(r)goto S_32196;} -do{ -*_FUNC_EVALUATECONST_LONG_ET=*_FUNC_EVALUATECONST_LONG_ET+*__LONG_ISUNSIGNED; -if(!qbevent)break;evnt(23887);}while(r); -} -} -do{ -qbs_set(_FUNC_EVALUATECONST_STRING_EV,i642string(*_FUNC_EVALUATECONST_INTEGER64_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23889);}while(r); -do{ -goto LABEL_ECONSTMARKEDUP; -if(!qbevent)break;evnt(23890);}while(r); -LABEL_ECONSTMARKUPF:; -if(qbevent){evnt(23892);r=0;} -do{ -*_FUNC_EVALUATECONST_LONG_LFB= 0 ; -if(!qbevent)break;evnt(23893);}while(r); -do{ -*_FUNC_EVALUATECONST_LONG_RFB= 0 ; -if(!qbevent)break;evnt(23893);}while(r); -do{ -*_FUNC_EVALUATECONST_LONG_LIB= 0 ; -if(!qbevent)break;evnt(23894);}while(r); -do{ -*_FUNC_EVALUATECONST_LONG_RIB= 0 ; -if(!qbevent)break;evnt(23894);}while(r); -S_32206:; -if ((*_FUNC_EVALUATECONST_LONG_ET&*__LONG_ISFLOAT)||new_error){ -if(qbevent){evnt(23895);if(r)goto S_32206;} -do{ -*_FUNC_EVALUATECONST_LONG_LFB=*_FUNC_EVALUATECONST_LONG_ET& 511 ; -if(!qbevent)break;evnt(23895);}while(r); -}else{ -do{ -*_FUNC_EVALUATECONST_LONG_LIB=*_FUNC_EVALUATECONST_LONG_ET& 511 ; -if(!qbevent)break;evnt(23895);}while(r); -} -S_32211:; -if ((((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5])]&*__LONG_ISFLOAT)||new_error){ -if(qbevent){evnt(23896);if(r)goto S_32211;} -do{ -*_FUNC_EVALUATECONST_LONG_RFB=((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5])]& 511 ; -if(!qbevent)break;evnt(23896);}while(r); -}else{ -do{ -*_FUNC_EVALUATECONST_LONG_RIB=((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5])]& 511 ; -if(!qbevent)break;evnt(23896);}while(r); -} -do{ -*_FUNC_EVALUATECONST_LONG_F= 32 ; -if(!qbevent)break;evnt(23897);}while(r); -S_32217:; -if (((-(*_FUNC_EVALUATECONST_LONG_LIB> 16 ))|(-(*_FUNC_EVALUATECONST_LONG_RIB> 16 )))||new_error){ -if(qbevent){evnt(23898);if(r)goto S_32217;} -do{ -*_FUNC_EVALUATECONST_LONG_F= 64 ; -if(!qbevent)break;evnt(23898);}while(r); -} -S_32220:; -if (((-(*_FUNC_EVALUATECONST_LONG_LFB> 32 ))|(-(*_FUNC_EVALUATECONST_LONG_RFB> 32 )))||new_error){ -if(qbevent){evnt(23899);if(r)goto S_32220;} -do{ -*_FUNC_EVALUATECONST_LONG_F= 64 ; -if(!qbevent)break;evnt(23899);}while(r); -} -S_32223:; -if (((-(*_FUNC_EVALUATECONST_LONG_LIB> 32 ))|(-(*_FUNC_EVALUATECONST_LONG_RIB> 32 )))||new_error){ -if(qbevent){evnt(23900);if(r)goto S_32223;} -do{ -*_FUNC_EVALUATECONST_LONG_F= 256 ; -if(!qbevent)break;evnt(23900);}while(r); -} -S_32226:; -if (((-(*_FUNC_EVALUATECONST_LONG_LFB> 64 ))|(-(*_FUNC_EVALUATECONST_LONG_RFB> 64 )))||new_error){ -if(qbevent){evnt(23901);if(r)goto S_32226;} -do{ -*_FUNC_EVALUATECONST_LONG_F= 256 ; -if(!qbevent)break;evnt(23901);}while(r); -} -do{ -*_FUNC_EVALUATECONST_LONG_ET=*__LONG_ISFLOAT+*_FUNC_EVALUATECONST_LONG_F; -if(!qbevent)break;evnt(23902);}while(r); -do{ -qbs_set(_FUNC_EVALUATECONST_STRING_EV,f2string(*_FUNC_EVALUATECONST_FLOAT_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23903);}while(r); -LABEL_ECONSTMARKEDUP:; -if(qbevent){evnt(23905);r=0;} -do{ -*_FUNC_EVALUATECONST_LONG_I=*_FUNC_EVALUATECONST_LONG_I+ 1 ; -if(!qbevent)break;evnt(23907);}while(r); -S_32232:; -if ((-(*_FUNC_EVALUATECONST_LONG_I<=*_FUNC_EVALUATECONST_LONG_N))||new_error){ -if(qbevent){evnt(23909);if(r)goto S_32232;} -do{ -goto LABEL_EVALCONSTEQU; -if(!qbevent)break;evnt(23909);}while(r); -} -do{ -*_FUNC_EVALUATECONST_LONG_T=*_FUNC_EVALUATECONST_LONG_ET; -if(!qbevent)break;evnt(23911);}while(r); -do{ -qbs_set(_FUNC_EVALUATECONST_STRING_EVALUATECONST,_FUNC_EVALUATECONST_STRING_EV); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23912);}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free59.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_EVALUATECONST_STRING_EVALUATECONST);return _FUNC_EVALUATECONST_STRING_EVALUATECONST; -} -qbs* FUNC_TYPEVALUE2SYMBOL(int32*_FUNC_TYPEVALUE2SYMBOL_LONG_T){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data60.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -S_32237:; -if ((*_FUNC_TYPEVALUE2SYMBOL_LONG_T&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(23918);if(r)goto S_32237;} -S_32238:; -if ((*_FUNC_TYPEVALUE2SYMBOL_LONG_T&*__LONG_ISFIXEDLENGTH)||new_error){ -if(qbevent){evnt(23919);if(r)goto S_32238;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Cannot convert expression type to symbol",40)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23919);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(23919);}while(r); -} -do{ -qbs_set(_FUNC_TYPEVALUE2SYMBOL_STRING_TYPEVALUE2SYMBOL,qbs_new_txt_len("$",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23920);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(23921);}while(r); -} -do{ -qbs_set(_FUNC_TYPEVALUE2SYMBOL_STRING_S,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23924);}while(r); -S_32246:; -if ((*_FUNC_TYPEVALUE2SYMBOL_LONG_T&*__LONG_ISUNSIGNED)||new_error){ -if(qbevent){evnt(23926);if(r)goto S_32246;} -do{ -qbs_set(_FUNC_TYPEVALUE2SYMBOL_STRING_S,qbs_new_txt_len("~",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23926);}while(r); -} -do{ -*_FUNC_TYPEVALUE2SYMBOL_LONG_B=*_FUNC_TYPEVALUE2SYMBOL_LONG_T& 511 ; -if(!qbevent)break;evnt(23928);}while(r); -S_32250:; -if ((*_FUNC_TYPEVALUE2SYMBOL_LONG_T&*__LONG_ISOFFSETINBITS)||new_error){ -if(qbevent){evnt(23930);if(r)goto S_32250;} -S_32251:; -if ((-(*_FUNC_TYPEVALUE2SYMBOL_LONG_B> 1 ))||new_error){ -if(qbevent){evnt(23931);if(r)goto S_32251;} -do{ -qbs_set(_FUNC_TYPEVALUE2SYMBOL_STRING_S,qbs_add(qbs_add(_FUNC_TYPEVALUE2SYMBOL_STRING_S,qbs_new_txt_len("`",1)),FUNC_STR2(_FUNC_TYPEVALUE2SYMBOL_LONG_B))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23931);}while(r); -}else{ -do{ -qbs_set(_FUNC_TYPEVALUE2SYMBOL_STRING_S,qbs_add(_FUNC_TYPEVALUE2SYMBOL_STRING_S,qbs_new_txt_len("`",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23931);}while(r); -} -do{ -qbs_set(_FUNC_TYPEVALUE2SYMBOL_STRING_TYPEVALUE2SYMBOL,_FUNC_TYPEVALUE2SYMBOL_STRING_S); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23932);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(23933);}while(r); -} -S_32259:; -if ((*_FUNC_TYPEVALUE2SYMBOL_LONG_T&*__LONG_ISFLOAT)||new_error){ -if(qbevent){evnt(23936);if(r)goto S_32259;} -S_32260:; -if ((-(*_FUNC_TYPEVALUE2SYMBOL_LONG_B== 32 ))||new_error){ -if(qbevent){evnt(23937);if(r)goto S_32260;} -do{ -qbs_set(_FUNC_TYPEVALUE2SYMBOL_STRING_S,qbs_new_txt_len("!",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23937);}while(r); -} -S_32263:; -if ((-(*_FUNC_TYPEVALUE2SYMBOL_LONG_B== 64 ))||new_error){ -if(qbevent){evnt(23938);if(r)goto S_32263;} -do{ -qbs_set(_FUNC_TYPEVALUE2SYMBOL_STRING_S,qbs_new_txt_len("#",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23938);}while(r); -} -S_32266:; -if ((-(*_FUNC_TYPEVALUE2SYMBOL_LONG_B== 256 ))||new_error){ -if(qbevent){evnt(23939);if(r)goto S_32266;} -do{ -qbs_set(_FUNC_TYPEVALUE2SYMBOL_STRING_S,qbs_new_txt_len("##",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23939);}while(r); -} -do{ -qbs_set(_FUNC_TYPEVALUE2SYMBOL_STRING_TYPEVALUE2SYMBOL,_FUNC_TYPEVALUE2SYMBOL_STRING_S); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23940);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(23941);}while(r); -} -S_32272:; -if ((-(*_FUNC_TYPEVALUE2SYMBOL_LONG_B== 8 ))||new_error){ -if(qbevent){evnt(23944);if(r)goto S_32272;} -do{ -qbs_set(_FUNC_TYPEVALUE2SYMBOL_STRING_S,qbs_add(_FUNC_TYPEVALUE2SYMBOL_STRING_S,qbs_new_txt_len("%%",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23944);}while(r); -} -S_32275:; -if ((-(*_FUNC_TYPEVALUE2SYMBOL_LONG_B== 16 ))||new_error){ -if(qbevent){evnt(23945);if(r)goto S_32275;} -do{ -qbs_set(_FUNC_TYPEVALUE2SYMBOL_STRING_S,qbs_add(_FUNC_TYPEVALUE2SYMBOL_STRING_S,qbs_new_txt_len("%",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23945);}while(r); -} -S_32278:; -if ((-(*_FUNC_TYPEVALUE2SYMBOL_LONG_B== 32 ))||new_error){ -if(qbevent){evnt(23946);if(r)goto S_32278;} -do{ -qbs_set(_FUNC_TYPEVALUE2SYMBOL_STRING_S,qbs_add(_FUNC_TYPEVALUE2SYMBOL_STRING_S,qbs_new_txt_len("&",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23946);}while(r); -} -S_32281:; -if ((-(*_FUNC_TYPEVALUE2SYMBOL_LONG_B== 64 ))||new_error){ -if(qbevent){evnt(23947);if(r)goto S_32281;} -do{ -qbs_set(_FUNC_TYPEVALUE2SYMBOL_STRING_S,qbs_add(_FUNC_TYPEVALUE2SYMBOL_STRING_S,qbs_new_txt_len("&&",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23947);}while(r); -} -do{ -qbs_set(_FUNC_TYPEVALUE2SYMBOL_STRING_TYPEVALUE2SYMBOL,_FUNC_TYPEVALUE2SYMBOL_STRING_S); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23948);}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free60.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_TYPEVALUE2SYMBOL_STRING_TYPEVALUE2SYMBOL);return _FUNC_TYPEVALUE2SYMBOL_STRING_TYPEVALUE2SYMBOL; -} -qbs* FUNC_ID2FULLTYPENAME(){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data61.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -*_FUNC_ID2FULLTYPENAME_LONG_T=*(int32*)(((char*)__UDT_ID)+(536)); -if(!qbevent)break;evnt(23954);}while(r); -S_32286:; -if ((-(*_FUNC_ID2FULLTYPENAME_LONG_T== 0 ))||new_error){ -if(qbevent){evnt(23955);if(r)goto S_32286;} -do{ -*_FUNC_ID2FULLTYPENAME_LONG_T=*(int32*)(((char*)__UDT_ID)+(512)); -if(!qbevent)break;evnt(23955);}while(r); -} -do{ -*_FUNC_ID2FULLTYPENAME_LONG_SIZE=*(int32*)(((char*)__UDT_ID)+(540)); -if(!qbevent)break;evnt(23956);}while(r); -do{ -*_FUNC_ID2FULLTYPENAME_LONG_BITS=*_FUNC_ID2FULLTYPENAME_LONG_T& 511 ; -if(!qbevent)break;evnt(23957);}while(r); -S_32291:; -if ((*_FUNC_ID2FULLTYPENAME_LONG_T&*__LONG_ISUDT)||new_error){ -if(qbevent){evnt(23958);if(r)goto S_32291;} -do{ -qbs_set(_FUNC_ID2FULLTYPENAME_STRING_A,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[(array_check((*_FUNC_ID2FULLTYPENAME_LONG_T& 511 )-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]))*256],256,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23959);}while(r); -do{ -qbs_set(_FUNC_ID2FULLTYPENAME_STRING_ID2FULLTYPENAME,_FUNC_ID2FULLTYPENAME_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23960);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(23960);}while(r); -} -S_32296:; -if ((*_FUNC_ID2FULLTYPENAME_LONG_T&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(23962);if(r)goto S_32296;} -S_32297:; -if ((*_FUNC_ID2FULLTYPENAME_LONG_T&*__LONG_ISFIXEDLENGTH)||new_error){ -if(qbevent){evnt(23963);if(r)goto S_32297;} -do{ -qbs_set(_FUNC_ID2FULLTYPENAME_STRING_A,qbs_add(qbs_new_txt_len("STRING * ",9),FUNC_STR2(_FUNC_ID2FULLTYPENAME_LONG_SIZE))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23963);}while(r); -}else{ -do{ -qbs_set(_FUNC_ID2FULLTYPENAME_STRING_A,qbs_new_txt_len("STRING",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23963);}while(r); -} -do{ -qbs_set(_FUNC_ID2FULLTYPENAME_STRING_ID2FULLTYPENAME,_FUNC_ID2FULLTYPENAME_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23964);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(23964);}while(r); -} -S_32305:; -if ((*_FUNC_ID2FULLTYPENAME_LONG_T&*__LONG_ISOFFSETINBITS)||new_error){ -if(qbevent){evnt(23966);if(r)goto S_32305;} -S_32306:; -if ((-(*_FUNC_ID2FULLTYPENAME_LONG_BITS> 1 ))||new_error){ -if(qbevent){evnt(23967);if(r)goto S_32306;} -do{ -qbs_set(_FUNC_ID2FULLTYPENAME_STRING_A,qbs_add(qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("BIT * ",6)),FUNC_STR2(_FUNC_ID2FULLTYPENAME_LONG_BITS))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23967);}while(r); -}else{ -do{ -qbs_set(_FUNC_ID2FULLTYPENAME_STRING_A,qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("BIT",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23967);}while(r); -} -S_32311:; -if ((*_FUNC_ID2FULLTYPENAME_LONG_T&*__LONG_ISUNSIGNED)||new_error){ -if(qbevent){evnt(23968);if(r)goto S_32311;} -do{ -qbs_set(_FUNC_ID2FULLTYPENAME_STRING_A,qbs_add(qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("UNSIGNED ",9)),_FUNC_ID2FULLTYPENAME_STRING_A)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23968);}while(r); -} -do{ -qbs_set(_FUNC_ID2FULLTYPENAME_STRING_ID2FULLTYPENAME,_FUNC_ID2FULLTYPENAME_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23969);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(23969);}while(r); -} -S_32317:; -if ((*_FUNC_ID2FULLTYPENAME_LONG_T&*__LONG_ISFLOAT)||new_error){ -if(qbevent){evnt(23971);if(r)goto S_32317;} -S_32318:; -if ((-(*_FUNC_ID2FULLTYPENAME_LONG_BITS== 32 ))||new_error){ -if(qbevent){evnt(23972);if(r)goto S_32318;} -do{ -qbs_set(_FUNC_ID2FULLTYPENAME_STRING_A,qbs_new_txt_len("SINGLE",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23972);}while(r); -} -S_32321:; -if ((-(*_FUNC_ID2FULLTYPENAME_LONG_BITS== 64 ))||new_error){ -if(qbevent){evnt(23973);if(r)goto S_32321;} -do{ -qbs_set(_FUNC_ID2FULLTYPENAME_STRING_A,qbs_new_txt_len("DOUBLE",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23973);}while(r); -} -S_32324:; -if ((-(*_FUNC_ID2FULLTYPENAME_LONG_BITS== 256 ))||new_error){ -if(qbevent){evnt(23974);if(r)goto S_32324;} -do{ -qbs_set(_FUNC_ID2FULLTYPENAME_STRING_A,qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("FLOAT",5))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23974);}while(r); -} -}else{ -S_32328:; -if ((-(*_FUNC_ID2FULLTYPENAME_LONG_BITS== 8 ))||new_error){ -if(qbevent){evnt(23976);if(r)goto S_32328;} -do{ -qbs_set(_FUNC_ID2FULLTYPENAME_STRING_A,qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("BYTE",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23976);}while(r); -} -S_32331:; -if ((-(*_FUNC_ID2FULLTYPENAME_LONG_BITS== 16 ))||new_error){ -if(qbevent){evnt(23977);if(r)goto S_32331;} -do{ -qbs_set(_FUNC_ID2FULLTYPENAME_STRING_A,qbs_new_txt_len("INTEGER",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23977);}while(r); -} -S_32334:; -if ((-(*_FUNC_ID2FULLTYPENAME_LONG_BITS== 32 ))||new_error){ -if(qbevent){evnt(23978);if(r)goto S_32334;} -do{ -qbs_set(_FUNC_ID2FULLTYPENAME_STRING_A,qbs_new_txt_len("LONG",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23978);}while(r); -} -S_32337:; -if ((-(*_FUNC_ID2FULLTYPENAME_LONG_BITS== 64 ))||new_error){ -if(qbevent){evnt(23979);if(r)goto S_32337;} -do{ -qbs_set(_FUNC_ID2FULLTYPENAME_STRING_A,qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("INTEGER64",9))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23979);}while(r); -} -S_32340:; -if ((*_FUNC_ID2FULLTYPENAME_LONG_T&*__LONG_ISUNSIGNED)||new_error){ -if(qbevent){evnt(23980);if(r)goto S_32340;} -do{ -qbs_set(_FUNC_ID2FULLTYPENAME_STRING_A,qbs_add(qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("UNSIGNED ",9)),_FUNC_ID2FULLTYPENAME_STRING_A)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23980);}while(r); -} -} -S_32344:; -if ((*_FUNC_ID2FULLTYPENAME_LONG_T&*__LONG_ISOFFSET)||new_error){ -if(qbevent){evnt(23982);if(r)goto S_32344;} -do{ -qbs_set(_FUNC_ID2FULLTYPENAME_STRING_A,qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("OFFSET",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23983);}while(r); -S_32346:; -if ((*_FUNC_ID2FULLTYPENAME_LONG_T&*__LONG_ISUNSIGNED)||new_error){ -if(qbevent){evnt(23984);if(r)goto S_32346;} -do{ -qbs_set(_FUNC_ID2FULLTYPENAME_STRING_A,qbs_add(qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("UNSIGNED ",9)),_FUNC_ID2FULLTYPENAME_STRING_A)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23984);}while(r); -} -} -do{ -qbs_set(_FUNC_ID2FULLTYPENAME_STRING_ID2FULLTYPENAME,_FUNC_ID2FULLTYPENAME_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23986);}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free61.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_ID2FULLTYPENAME_STRING_ID2FULLTYPENAME);return _FUNC_ID2FULLTYPENAME_STRING_ID2FULLTYPENAME; -} -qbs* FUNC_ID2SHORTTYPENAME(){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data62.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -*_FUNC_ID2SHORTTYPENAME_LONG_T=*(int32*)(((char*)__UDT_ID)+(536)); -if(!qbevent)break;evnt(23990);}while(r); -S_32352:; -if ((-(*_FUNC_ID2SHORTTYPENAME_LONG_T== 0 ))||new_error){ -if(qbevent){evnt(23991);if(r)goto S_32352;} -do{ -*_FUNC_ID2SHORTTYPENAME_LONG_T=*(int32*)(((char*)__UDT_ID)+(512)); -if(!qbevent)break;evnt(23991);}while(r); -} -do{ -*_FUNC_ID2SHORTTYPENAME_LONG_SIZE=*(int32*)(((char*)__UDT_ID)+(540)); -if(!qbevent)break;evnt(23992);}while(r); -do{ -*_FUNC_ID2SHORTTYPENAME_LONG_BITS=*_FUNC_ID2SHORTTYPENAME_LONG_T& 511 ; -if(!qbevent)break;evnt(23993);}while(r); -S_32357:; -if ((*_FUNC_ID2SHORTTYPENAME_LONG_T&*__LONG_ISUDT)||new_error){ -if(qbevent){evnt(23994);if(r)goto S_32357;} -do{ -qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[(array_check((*_FUNC_ID2SHORTTYPENAME_LONG_T& 511 )-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]))*256],256,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23995);}while(r); -do{ -qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_ID2SHORTTYPENAME,_FUNC_ID2SHORTTYPENAME_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23996);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(23996);}while(r); -} -S_32362:; -if ((*_FUNC_ID2SHORTTYPENAME_LONG_T&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(23998);if(r)goto S_32362;} -S_32363:; -if ((*_FUNC_ID2SHORTTYPENAME_LONG_T&*__LONG_ISFIXEDLENGTH)||new_error){ -if(qbevent){evnt(23999);if(r)goto S_32363;} -do{ -qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_add(qbs_new_txt_len("STRING",6),FUNC_STR2(_FUNC_ID2SHORTTYPENAME_LONG_SIZE))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23999);}while(r); -}else{ -do{ -qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("STRING",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(23999);}while(r); -} -do{ -qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_ID2SHORTTYPENAME,_FUNC_ID2SHORTTYPENAME_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24000);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(24000);}while(r); -} -S_32371:; -if ((*_FUNC_ID2SHORTTYPENAME_LONG_T&*__LONG_ISOFFSETINBITS)||new_error){ -if(qbevent){evnt(24002);if(r)goto S_32371;} -S_32372:; -if ((*_FUNC_ID2SHORTTYPENAME_LONG_T&*__LONG_ISUNSIGNED)||new_error){ -if(qbevent){evnt(24003);if(r)goto S_32372;} -do{ -qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("_U",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24003);}while(r); -}else{ -do{ -qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("_",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24003);}while(r); -} -S_32377:; -if ((-(*_FUNC_ID2SHORTTYPENAME_LONG_BITS> 1 ))||new_error){ -if(qbevent){evnt(24004);if(r)goto S_32377;} -do{ -qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_add(qbs_add(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("BIT",3)),FUNC_STR2(_FUNC_ID2SHORTTYPENAME_LONG_BITS))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24004);}while(r); -}else{ -do{ -qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_add(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("BIT1",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24004);}while(r); -} -do{ -qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_ID2SHORTTYPENAME,_FUNC_ID2SHORTTYPENAME_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24005);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(24005);}while(r); -} -S_32385:; -if ((*_FUNC_ID2SHORTTYPENAME_LONG_T&*__LONG_ISFLOAT)||new_error){ -if(qbevent){evnt(24007);if(r)goto S_32385;} -S_32386:; -if ((-(*_FUNC_ID2SHORTTYPENAME_LONG_BITS== 32 ))||new_error){ -if(qbevent){evnt(24008);if(r)goto S_32386;} -do{ -qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("SINGLE",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24008);}while(r); -} -S_32389:; -if ((-(*_FUNC_ID2SHORTTYPENAME_LONG_BITS== 64 ))||new_error){ -if(qbevent){evnt(24009);if(r)goto S_32389;} -do{ -qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("DOUBLE",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24009);}while(r); -} -S_32392:; -if ((-(*_FUNC_ID2SHORTTYPENAME_LONG_BITS== 256 ))||new_error){ -if(qbevent){evnt(24010);if(r)goto S_32392;} -do{ -qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("_FLOAT",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24010);}while(r); -} -}else{ -S_32396:; -if ((-(*_FUNC_ID2SHORTTYPENAME_LONG_BITS== 8 ))||new_error){ -if(qbevent){evnt(24012);if(r)goto S_32396;} -S_32397:; -if (((*_FUNC_ID2SHORTTYPENAME_LONG_T&*__LONG_ISUNSIGNED))||new_error){ -if(qbevent){evnt(24013);if(r)goto S_32397;} -do{ -qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("_UBYTE",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24013);}while(r); -}else{ -do{ -qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("_BYTE",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24013);}while(r); -} -} -S_32403:; -if ((-(*_FUNC_ID2SHORTTYPENAME_LONG_BITS== 16 ))||new_error){ -if(qbevent){evnt(24015);if(r)goto S_32403;} -S_32404:; -if (((*_FUNC_ID2SHORTTYPENAME_LONG_T&*__LONG_ISUNSIGNED))||new_error){ -if(qbevent){evnt(24016);if(r)goto S_32404;} -do{ -qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("UINTEGER",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24016);}while(r); -}else{ -do{ -qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("INTEGER",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24016);}while(r); -} -} -S_32410:; -if ((-(*_FUNC_ID2SHORTTYPENAME_LONG_BITS== 32 ))||new_error){ -if(qbevent){evnt(24018);if(r)goto S_32410;} -S_32411:; -if (((*_FUNC_ID2SHORTTYPENAME_LONG_T&*__LONG_ISUNSIGNED))||new_error){ -if(qbevent){evnt(24019);if(r)goto S_32411;} -do{ -qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("ULONG",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24019);}while(r); -}else{ -do{ -qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("LONG",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24019);}while(r); -} -} -S_32417:; -if ((-(*_FUNC_ID2SHORTTYPENAME_LONG_BITS== 64 ))||new_error){ -if(qbevent){evnt(24021);if(r)goto S_32417;} -S_32418:; -if (((*_FUNC_ID2SHORTTYPENAME_LONG_T&*__LONG_ISUNSIGNED))||new_error){ -if(qbevent){evnt(24022);if(r)goto S_32418;} -do{ -qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("_UINTEGER64",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24022);}while(r); -}else{ -do{ -qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("_INTEGER64",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24022);}while(r); -} -} -} -do{ -qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_ID2SHORTTYPENAME,_FUNC_ID2SHORTTYPENAME_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24025);}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free62.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_ID2SHORTTYPENAME_STRING_ID2SHORTTYPENAME);return _FUNC_ID2SHORTTYPENAME_STRING_ID2SHORTTYPENAME; -} -qbs* FUNC_SYMBOL2FULLTYPENAME(qbs*_FUNC_SYMBOL2FULLTYPENAME_STRING_S2){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data63.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_S,_FUNC_SYMBOL2FULLTYPENAME_STRING_S2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24030);}while(r); -S_32427:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_SYMBOL2FULLTYPENAME_STRING_S, 1 ),qbs_new_txt_len("~",1))))||new_error){ -if(qbevent){evnt(24032);if(r)goto S_32427;} -do{ -*_FUNC_SYMBOL2FULLTYPENAME_LONG_U= 1 ; -if(!qbevent)break;evnt(24033);}while(r); -S_32429:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_SYMBOL2FULLTYPENAME_STRING_TYP->len== 1 )))||new_error){ -if(qbevent){evnt(24034);if(r)goto S_32429;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected ~...",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24034);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(24034);}while(r); -} -do{ -qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_S,qbs_right(_FUNC_SYMBOL2FULLTYPENAME_STRING_S,_FUNC_SYMBOL2FULLTYPENAME_STRING_S->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24035);}while(r); -do{ -qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_U,qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("UNSIGNED ",9))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24036);}while(r); -} -S_32436:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_SYMBOL2FULLTYPENAME_STRING_S,qbs_new_txt_len("%%",2))))||new_error){ -if(qbevent){evnt(24039);if(r)goto S_32436;} -do{ -qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_T,qbs_add(qbs_add(_FUNC_SYMBOL2FULLTYPENAME_STRING_U,__STRING_QB64PREFIX),qbs_new_txt_len("BYTE",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24039);}while(r); -do{ -goto LABEL_GOTSYM2TYP; -if(!qbevent)break;evnt(24039);}while(r); -} -S_32440:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_SYMBOL2FULLTYPENAME_STRING_S,qbs_new_txt_len("%",1))))||new_error){ -if(qbevent){evnt(24040);if(r)goto S_32440;} -do{ -qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_T,qbs_add(_FUNC_SYMBOL2FULLTYPENAME_STRING_U,qbs_new_txt_len("INTEGER",7))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24040);}while(r); -do{ -goto LABEL_GOTSYM2TYP; -if(!qbevent)break;evnt(24040);}while(r); -} -S_32444:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_SYMBOL2FULLTYPENAME_STRING_S,qbs_new_txt_len("&",1))))||new_error){ -if(qbevent){evnt(24041);if(r)goto S_32444;} -do{ -qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_T,qbs_add(_FUNC_SYMBOL2FULLTYPENAME_STRING_U,qbs_new_txt_len("LONG",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24041);}while(r); -do{ -goto LABEL_GOTSYM2TYP; -if(!qbevent)break;evnt(24041);}while(r); -} -S_32448:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_SYMBOL2FULLTYPENAME_STRING_S,qbs_new_txt_len("&&",2))))||new_error){ -if(qbevent){evnt(24042);if(r)goto S_32448;} -do{ -qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_T,qbs_add(qbs_add(_FUNC_SYMBOL2FULLTYPENAME_STRING_U,__STRING_QB64PREFIX),qbs_new_txt_len("INTEGER64",9))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24042);}while(r); -do{ -goto LABEL_GOTSYM2TYP; -if(!qbevent)break;evnt(24042);}while(r); -} -S_32452:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_SYMBOL2FULLTYPENAME_STRING_S,qbs_new_txt_len("%&",2))))||new_error){ -if(qbevent){evnt(24043);if(r)goto S_32452;} -do{ -qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_T,qbs_add(qbs_add(_FUNC_SYMBOL2FULLTYPENAME_STRING_U,__STRING_QB64PREFIX),qbs_new_txt_len("OFFSET",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24043);}while(r); -do{ -goto LABEL_GOTSYM2TYP; -if(!qbevent)break;evnt(24043);}while(r); -} -S_32456:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_SYMBOL2FULLTYPENAME_STRING_S, 1 ),qbs_new_txt_len("`",1))))||new_error){ -if(qbevent){evnt(24045);if(r)goto S_32456;} -S_32457:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_SYMBOL2FULLTYPENAME_STRING_S->len== 1 )))||new_error){ -if(qbevent){evnt(24046);if(r)goto S_32457;} -do{ -qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_T,qbs_add(qbs_add(_FUNC_SYMBOL2FULLTYPENAME_STRING_U,__STRING_QB64PREFIX),qbs_new_txt_len("BIT * 1",7))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24047);}while(r); -do{ -goto LABEL_GOTSYM2TYP; -if(!qbevent)break;evnt(24048);}while(r); -} -do{ -qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_N,qbs_right(_FUNC_SYMBOL2FULLTYPENAME_STRING_S,_FUNC_SYMBOL2FULLTYPENAME_STRING_S->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24050);}while(r); -S_32462:; -if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISUINTEGER(_FUNC_SYMBOL2FULLTYPENAME_STRING_N)== 0 )))||new_error){ -if(qbevent){evnt(24051);if(r)goto S_32462;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected number after symbol `",30)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24051);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(24051);}while(r); -} -do{ -qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_T,qbs_add(qbs_add(qbs_add(_FUNC_SYMBOL2FULLTYPENAME_STRING_U,__STRING_QB64PREFIX),qbs_new_txt_len("BIT * ",6)),_FUNC_SYMBOL2FULLTYPENAME_STRING_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24052);}while(r); -do{ -goto LABEL_GOTSYM2TYP; -if(!qbevent)break;evnt(24053);}while(r); -} -S_32469:; -if ((-(*_FUNC_SYMBOL2FULLTYPENAME_LONG_U== 1 ))||new_error){ -if(qbevent){evnt(24056);if(r)goto S_32469;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected type symbol after ~",28)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24056);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(24056);}while(r); -} -S_32473:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_SYMBOL2FULLTYPENAME_STRING_S,qbs_new_txt_len("!",1))))||new_error){ -if(qbevent){evnt(24058);if(r)goto S_32473;} -do{ -qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_T,qbs_new_txt_len("SINGLE",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24058);}while(r); -do{ -goto LABEL_GOTSYM2TYP; -if(!qbevent)break;evnt(24058);}while(r); -} -S_32477:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_SYMBOL2FULLTYPENAME_STRING_S,qbs_new_txt_len("#",1))))||new_error){ -if(qbevent){evnt(24059);if(r)goto S_32477;} -do{ -qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_T,qbs_new_txt_len("DOUBLE",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24059);}while(r); -do{ -goto LABEL_GOTSYM2TYP; -if(!qbevent)break;evnt(24059);}while(r); -} -S_32481:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_SYMBOL2FULLTYPENAME_STRING_S,qbs_new_txt_len("##",2))))||new_error){ -if(qbevent){evnt(24060);if(r)goto S_32481;} -do{ -qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_T,qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("FLOAT",5))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24060);}while(r); -do{ -goto LABEL_GOTSYM2TYP; -if(!qbevent)break;evnt(24060);}while(r); -} -S_32485:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_SYMBOL2FULLTYPENAME_STRING_S,qbs_new_txt_len("$",1))))||new_error){ -if(qbevent){evnt(24061);if(r)goto S_32485;} -do{ -qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_T,qbs_new_txt_len("STRING",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24061);}while(r); -do{ -goto LABEL_GOTSYM2TYP; -if(!qbevent)break;evnt(24061);}while(r); -} -S_32489:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_SYMBOL2FULLTYPENAME_STRING_S, 1 ),qbs_new_txt_len("$",1))))||new_error){ -if(qbevent){evnt(24063);if(r)goto S_32489;} -do{ -qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_N,qbs_right(_FUNC_SYMBOL2FULLTYPENAME_STRING_S,_FUNC_SYMBOL2FULLTYPENAME_STRING_S->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24064);}while(r); -S_32491:; -if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISUINTEGER(_FUNC_SYMBOL2FULLTYPENAME_STRING_N)== 0 )))||new_error){ -if(qbevent){evnt(24065);if(r)goto S_32491;} -do{ -SUB_GIVE_ERROR(qbs_new_txt_len("Expected number after symbol $",30)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24065);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(24065);}while(r); -} -do{ -qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_T,qbs_add(qbs_new_txt_len("STRING * ",9),_FUNC_SYMBOL2FULLTYPENAME_STRING_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24066);}while(r); -do{ -goto LABEL_GOTSYM2TYP; -if(!qbevent)break;evnt(24067);}while(r); -} -do{ -qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_T,_FUNC_SYMBOL2FULLTYPENAME_STRING_S); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24070);}while(r); -LABEL_GOTSYM2TYP:; -if(qbevent){evnt(24072);r=0;} -S_32499:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(qbs_add(qbs_new_txt_len(" ",1),_FUNC_SYMBOL2FULLTYPENAME_STRING_T), 5 ),qbs_new_txt_len(" _BIT",5))))||new_error){ -if(qbevent){evnt(24074);if(r)goto S_32499;} -do{ -qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_T,qbs_add(_FUNC_SYMBOL2FULLTYPENAME_STRING_T,qbs_new_txt_len(" * 1",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24074);}while(r); -} -S_32502:; -fornext_value3476= 1 ; -fornext_finalvalue3476=_FUNC_SYMBOL2FULLTYPENAME_STRING_T->len; -fornext_step3476= 1 ; -if (fornext_step3476<0) fornext_step_negative3476=1; else fornext_step_negative3476=0; -if (new_error) goto fornext_error3476; -goto fornext_entrylabel3476; -while(1){ -fornext_value3476=fornext_step3476+(*_FUNC_SYMBOL2FULLTYPENAME_LONG_I); -fornext_entrylabel3476: -*_FUNC_SYMBOL2FULLTYPENAME_LONG_I=fornext_value3476; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative3476){ -if (fornext_value3476fornext_finalvalue3476) break; -} -fornext_error3476:; -if(qbevent){evnt(24076);if(r)goto S_32502;} -S_32503:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_SYMBOL2FULLTYPENAME_STRING_T,*_FUNC_SYMBOL2FULLTYPENAME_LONG_I)==qbs_asc(__STRING1_SP))))||new_error){ -if(qbevent){evnt(24077);if(r)goto S_32503;} -do{ -tqbs=_FUNC_SYMBOL2FULLTYPENAME_STRING_T; if (!new_error){ -tmp_fileno=*_FUNC_SYMBOL2FULLTYPENAME_LONG_I; if (!new_error){ -tmp_long= 32 ; if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(24077);}while(r); -} -fornext_continue_3475:; -} -fornext_exit_3475:; -do{ -qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_SYMBOL2FULLTYPENAME,_FUNC_SYMBOL2FULLTYPENAME_STRING_T); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24080);}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free63.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_SYMBOL2FULLTYPENAME_STRING_SYMBOL2FULLTYPENAME);return _FUNC_SYMBOL2FULLTYPENAME_STRING_SYMBOL2FULLTYPENAME; -} -void SUB_LINEINPUT3LOAD(qbs*_SUB_LINEINPUT3LOAD_STRING_F){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data64.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -sub_open(_SUB_LINEINPUT3LOAD_STRING_F, 2 ,NULL,NULL, 1 ,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24085);}while(r); -do{ -*_SUB_LINEINPUT3LOAD_LONG_L=func_lof( 1 ); -if(!qbevent)break;evnt(24086);}while(r); -do{ -qbs_set(__STRING_LINEINPUT3BUFFER,func_space(*_SUB_LINEINPUT3LOAD_LONG_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24087);}while(r); -do{ -sub_get2( 1 ,NULL,__STRING_LINEINPUT3BUFFER,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24088);}while(r); -S_32512:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LINEINPUT3BUFFER->len))||new_error){ -if(qbevent){evnt(24089);if(r)goto S_32512;} -S_32513:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(__STRING_LINEINPUT3BUFFER, 1 ),func_chr( 26 ))))||new_error){ -if(qbevent){evnt(24089);if(r)goto S_32513;} -do{ -qbs_set(__STRING_LINEINPUT3BUFFER,qbs_left(__STRING_LINEINPUT3BUFFER,__STRING_LINEINPUT3BUFFER->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24089);}while(r); -} -} -do{ -sub_close( 1 ,1); -if(!qbevent)break;evnt(24090);}while(r); -do{ -*__LONG_LINEINPUT3INDEX= 1 ; -if(!qbevent)break;evnt(24091);}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free64.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -qbs* FUNC_LINEINPUT3(){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data65.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -*_FUNC_LINEINPUT3_LONG_L=__STRING_LINEINPUT3BUFFER->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24096);}while(r); -S_32520:; -if ((-(*__LONG_LINEINPUT3INDEX>*_FUNC_LINEINPUT3_LONG_L))||new_error){ -if(qbevent){evnt(24097);if(r)goto S_32520;} -do{ -qbs_set(_FUNC_LINEINPUT3_STRING_LINEINPUT3,func_chr( 13 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24097);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(24097);}while(r); -} -do{ -*_FUNC_LINEINPUT3_LONG_C13=func_instr(*__LONG_LINEINPUT3INDEX,__STRING_LINEINPUT3BUFFER,func_chr( 13 ),0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24098);}while(r); -do{ -*_FUNC_LINEINPUT3_LONG_C10=func_instr(*__LONG_LINEINPUT3INDEX,__STRING_LINEINPUT3BUFFER,func_chr( 10 ),0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24099);}while(r); -S_32526:; -if (((-(*_FUNC_LINEINPUT3_LONG_C10== 0 ))&(-(*_FUNC_LINEINPUT3_LONG_C13== 0 )))||new_error){ -if(qbevent){evnt(24100);if(r)goto S_32526;} -do{ -qbs_set(_FUNC_LINEINPUT3_STRING_LINEINPUT3,func_mid(__STRING_LINEINPUT3BUFFER,*__LONG_LINEINPUT3INDEX,*_FUNC_LINEINPUT3_LONG_L-*__LONG_LINEINPUT3INDEX+ 1 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24101);}while(r); -do{ -*__LONG_LINEINPUT3INDEX=*_FUNC_LINEINPUT3_LONG_L+ 1 ; -if(!qbevent)break;evnt(24102);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(24103);}while(r); -} -S_32531:; -if ((-(*_FUNC_LINEINPUT3_LONG_C10== 0 ))||new_error){ -if(qbevent){evnt(24105);if(r)goto S_32531;} -do{ -*_FUNC_LINEINPUT3_LONG_C10= 2147483647 ; -if(!qbevent)break;evnt(24105);}while(r); -} -S_32534:; -if ((-(*_FUNC_LINEINPUT3_LONG_C13== 0 ))||new_error){ -if(qbevent){evnt(24106);if(r)goto S_32534;} -do{ -*_FUNC_LINEINPUT3_LONG_C13= 2147483647 ; -if(!qbevent)break;evnt(24106);}while(r); -} -S_32537:; -if ((-(*_FUNC_LINEINPUT3_LONG_C10<*_FUNC_LINEINPUT3_LONG_C13))||new_error){ -if(qbevent){evnt(24107);if(r)goto S_32537;} -do{ -qbs_set(_FUNC_LINEINPUT3_STRING_LINEINPUT3,func_mid(__STRING_LINEINPUT3BUFFER,*__LONG_LINEINPUT3INDEX,*_FUNC_LINEINPUT3_LONG_C10-*__LONG_LINEINPUT3INDEX,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24109);}while(r); -do{ -*__LONG_LINEINPUT3INDEX=*_FUNC_LINEINPUT3_LONG_C10+ 1 ; -if(!qbevent)break;evnt(24110);}while(r); -S_32540:; -if ((-(*__LONG_LINEINPUT3INDEX<=*_FUNC_LINEINPUT3_LONG_L))||new_error){ -if(qbevent){evnt(24111);if(r)goto S_32540;} -S_32541:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(func_mid(__STRING_LINEINPUT3BUFFER,*__LONG_LINEINPUT3INDEX, 1 ,0|1))== 13 )))||new_error){ -if(qbevent){evnt(24112);if(r)goto S_32541;} -do{ -*__LONG_LINEINPUT3INDEX=*__LONG_LINEINPUT3INDEX+ 1 ; -if(!qbevent)break;evnt(24112);}while(r); -} -} -}else{ -do{ -qbs_set(_FUNC_LINEINPUT3_STRING_LINEINPUT3,func_mid(__STRING_LINEINPUT3BUFFER,*__LONG_LINEINPUT3INDEX,*_FUNC_LINEINPUT3_LONG_C13-*__LONG_LINEINPUT3INDEX,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24116);}while(r); -do{ -*__LONG_LINEINPUT3INDEX=*_FUNC_LINEINPUT3_LONG_C13+ 1 ; -if(!qbevent)break;evnt(24117);}while(r); -S_32548:; -if ((-(*__LONG_LINEINPUT3INDEX<=*_FUNC_LINEINPUT3_LONG_L))||new_error){ -if(qbevent){evnt(24118);if(r)goto S_32548;} -S_32549:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(func_mid(__STRING_LINEINPUT3BUFFER,*__LONG_LINEINPUT3INDEX, 1 ,0|1))== 10 )))||new_error){ -if(qbevent){evnt(24119);if(r)goto S_32549;} -do{ -*__LONG_LINEINPUT3INDEX=*__LONG_LINEINPUT3INDEX+ 1 ; -if(!qbevent)break;evnt(24119);}while(r); -} -} -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free65.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_LINEINPUT3_STRING_LINEINPUT3);return _FUNC_LINEINPUT3_STRING_LINEINPUT3; -} -qbs* FUNC_ELEUCASE(qbs*_FUNC_ELEUCASE_STRING_A){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data66.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -S_32554:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_ELEUCASE_STRING_A->len== 0 )))||new_error){ -if(qbevent){evnt(24127);if(r)goto S_32554;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(24127);}while(r); -} -do{ -*_FUNC_ELEUCASE_LONG_I= 1 ; -if(!qbevent)break;evnt(24128);}while(r); -S_32558:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_ELEUCASE_STRING_A)== 34 )))||new_error){ -if(qbevent){evnt(24129);if(r)goto S_32558;} -do{ -*_FUNC_ELEUCASE_LONG_I2=func_instr(NULL,_FUNC_ELEUCASE_STRING_A,__STRING1_SP,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24130);}while(r); -S_32560:; -if ((-(*_FUNC_ELEUCASE_LONG_I2== 0 ))||new_error){ -if(qbevent){evnt(24131);if(r)goto S_32560;} -do{ -qbs_set(_FUNC_ELEUCASE_STRING_ELEUCASE,_FUNC_ELEUCASE_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24131);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(24131);}while(r); -} -do{ -qbs_set(_FUNC_ELEUCASE_STRING_A2,qbs_left(_FUNC_ELEUCASE_STRING_A,*_FUNC_ELEUCASE_LONG_I2- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24132);}while(r); -do{ -*_FUNC_ELEUCASE_LONG_I=*_FUNC_ELEUCASE_LONG_I2; -if(!qbevent)break;evnt(24133);}while(r); -} -do{ -qbs_set(_FUNC_ELEUCASE_STRING_SP34,qbs_add(__STRING1_SP,func_chr( 34 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24136);}while(r); -S_32568:; -if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_ELEUCASE_LONG_I<_FUNC_ELEUCASE_STRING_A->len)))||new_error){ -if(qbevent){evnt(24137);if(r)goto S_32568;} -S_32569:; -while((qbs_cleanup(qbs_tmp_base,func_instr(*_FUNC_ELEUCASE_LONG_I,_FUNC_ELEUCASE_STRING_A,_FUNC_ELEUCASE_STRING_SP34,0|1)))||new_error){ -if(qbevent){evnt(24138);if(r)goto S_32569;} -do{ -*_FUNC_ELEUCASE_LONG_I2=func_instr(*_FUNC_ELEUCASE_LONG_I,_FUNC_ELEUCASE_STRING_A,_FUNC_ELEUCASE_STRING_SP34,0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24139);}while(r); -do{ -qbs_set(_FUNC_ELEUCASE_STRING_A2,qbs_add(_FUNC_ELEUCASE_STRING_A2,qbs_ucase(func_mid(_FUNC_ELEUCASE_STRING_A,*_FUNC_ELEUCASE_LONG_I,*_FUNC_ELEUCASE_LONG_I2-*_FUNC_ELEUCASE_LONG_I+ 1 ,0|1)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24140);}while(r); -do{ -*_FUNC_ELEUCASE_LONG_I3=func_instr(*_FUNC_ELEUCASE_LONG_I2+ 1 ,_FUNC_ELEUCASE_STRING_A,__STRING1_SP,0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24141);}while(r); -S_32573:; -if ((-(*_FUNC_ELEUCASE_LONG_I3== 0 ))||new_error){ -if(qbevent){evnt(24141);if(r)goto S_32573;} -do{ -*_FUNC_ELEUCASE_LONG_I3=_FUNC_ELEUCASE_STRING_A->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24141);}while(r); -}else{ -do{ -*_FUNC_ELEUCASE_LONG_I3=*_FUNC_ELEUCASE_LONG_I3- 1 ; -if(!qbevent)break;evnt(24141);}while(r); -} -do{ -qbs_set(_FUNC_ELEUCASE_STRING_A2,qbs_add(_FUNC_ELEUCASE_STRING_A2,func_mid(_FUNC_ELEUCASE_STRING_A,*_FUNC_ELEUCASE_LONG_I2+ 1 ,*_FUNC_ELEUCASE_LONG_I3-(*_FUNC_ELEUCASE_LONG_I2+ 1 )+ 1 ,0|1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24142);}while(r); -do{ -*_FUNC_ELEUCASE_LONG_I=*_FUNC_ELEUCASE_LONG_I3+ 1 ; -if(!qbevent)break;evnt(24143);}while(r); -S_32580:; -if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_ELEUCASE_LONG_I>_FUNC_ELEUCASE_STRING_A->len)))||new_error){ -if(qbevent){evnt(24144);if(r)goto S_32580;} -do{ -goto dl_exit_3485; -if(!qbevent)break;evnt(24144);}while(r); -} -dl_continue_3485:; -} -dl_exit_3485:; -} -do{ -qbs_set(_FUNC_ELEUCASE_STRING_A2,qbs_add(_FUNC_ELEUCASE_STRING_A2,qbs_ucase(func_mid(_FUNC_ELEUCASE_STRING_A,*_FUNC_ELEUCASE_LONG_I,_FUNC_ELEUCASE_STRING_A->len-*_FUNC_ELEUCASE_LONG_I+ 1 ,0|1)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24147);}while(r); -do{ -qbs_set(_FUNC_ELEUCASE_STRING_ELEUCASE,_FUNC_ELEUCASE_STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24148);}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free66.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_ELEUCASE_STRING_ELEUCASE);return _FUNC_ELEUCASE_STRING_ELEUCASE; -} -void SUB_SETDEPENDENCY(int32*_SUB_SETDEPENDENCY_LONG_REQUIREMENT){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data67.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -S_32587:; -if ((*_SUB_SETDEPENDENCY_LONG_REQUIREMENT)||new_error){ -if(qbevent){evnt(24153);if(r)goto S_32587;} -do{ -tmp_long=array_check((*_SUB_SETDEPENDENCY_LONG_REQUIREMENT)-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(24154);}while(r); -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free67.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -qbs* FUNC_EVALUATE_EXPRESSION(qbs*_FUNC_EVALUATE_EXPRESSION_STRING_E){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data68.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -qbs_set(_FUNC_EVALUATE_EXPRESSION_STRING_T,_FUNC_EVALUATE_EXPRESSION_STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24160);}while(r); -do{ -SUB_PREPARSE(_FUNC_EVALUATE_EXPRESSION_STRING_T); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24161);}while(r); -S_32592:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_EVALUATE_EXPRESSION_STRING_T, 5 ),qbs_new_txt_len("ERROR",5))))||new_error){ -if(qbevent){evnt(24164);if(r)goto S_32592;} -do{ -qbs_set(_FUNC_EVALUATE_EXPRESSION_STRING_EVALUATE_EXPRESSION,_FUNC_EVALUATE_EXPRESSION_STRING_T); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24164);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(24164);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATE_EXPRESSION_STRING_EXP,qbs_add(qbs_add(qbs_new_txt_len("(",1),_FUNC_EVALUATE_EXPRESSION_STRING_T),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24167);}while(r); -S_32597:; -do{ -if(qbevent){evnt(24169);if(r)goto S_32597;} -do{ -*_FUNC_EVALUATE_EXPRESSION_LONG_EVAL_E=func_instr(NULL,_FUNC_EVALUATE_EXPRESSION_STRING_EXP,qbs_new_txt_len(")",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24170);}while(r); -S_32599:; -if ((-(*_FUNC_EVALUATE_EXPRESSION_LONG_EVAL_E> 0 ))||new_error){ -if(qbevent){evnt(24171);if(r)goto S_32599;} -do{ -*_FUNC_EVALUATE_EXPRESSION_LONG_C= 0 ; -if(!qbevent)break;evnt(24172);}while(r); -S_32601:; -while((!(-((*_FUNC_EVALUATE_EXPRESSION_LONG_EVAL_E-*_FUNC_EVALUATE_EXPRESSION_LONG_C)<=( 0 ))))||new_error){ -if(qbevent){evnt(24173);if(r)goto S_32601;} -do{ -*_FUNC_EVALUATE_EXPRESSION_LONG_C=*_FUNC_EVALUATE_EXPRESSION_LONG_C+ 1 ; -if(!qbevent)break;evnt(24174);}while(r); -S_32603:; -if ((*_FUNC_EVALUATE_EXPRESSION_LONG_EVAL_E)||new_error){ -if(qbevent){evnt(24175);if(r)goto S_32603;} -S_32604:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_EVALUATE_EXPRESSION_STRING_EXP,*_FUNC_EVALUATE_EXPRESSION_LONG_EVAL_E-*_FUNC_EVALUATE_EXPRESSION_LONG_C, 1 ,0|1),qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(24176);if(r)goto S_32604;} -do{ -goto dl_exit_3491; -if(!qbevent)break;evnt(24176);}while(r); -} -} -dl_continue_3491:; -} -dl_exit_3491:; -do{ -*_FUNC_EVALUATE_EXPRESSION_LONG_S=*_FUNC_EVALUATE_EXPRESSION_LONG_EVAL_E-*_FUNC_EVALUATE_EXPRESSION_LONG_C+ 1 ; -if(!qbevent)break;evnt(24179);}while(r); -S_32610:; -if ((-(*_FUNC_EVALUATE_EXPRESSION_LONG_S< 1 ))||new_error){ -if(qbevent){evnt(24180);if(r)goto S_32610;} -do{ -qbs_set(_FUNC_EVALUATE_EXPRESSION_STRING_EVALUATE_EXPRESSION,qbs_new_txt_len("ERROR -- BAD () Count",21)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24180);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(24180);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATE_EXPRESSION_STRING_EVAL,qbs_add(qbs_add(qbs_new_txt_len(" ",1),func_mid(_FUNC_EVALUATE_EXPRESSION_STRING_EXP,*_FUNC_EVALUATE_EXPRESSION_LONG_S,*_FUNC_EVALUATE_EXPRESSION_LONG_EVAL_E-*_FUNC_EVALUATE_EXPRESSION_LONG_S,0|1)),qbs_new_txt_len(" ",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24181);}while(r); -do{ -SUB_PARSEEXPRESSION(_FUNC_EVALUATE_EXPRESSION_STRING_EVAL); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24183);}while(r); -do{ -qbs_set(_FUNC_EVALUATE_EXPRESSION_STRING_EVAL,qbs_ltrim(qbs_rtrim(_FUNC_EVALUATE_EXPRESSION_STRING_EVAL))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24184);}while(r); -S_32617:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_EVALUATE_EXPRESSION_STRING_EVAL, 5 ),qbs_new_txt_len("ERROR",5))))||new_error){ -if(qbevent){evnt(24185);if(r)goto S_32617;} -do{ -qbs_set(_FUNC_EVALUATE_EXPRESSION_STRING_EVALUATE_EXPRESSION,_FUNC_EVALUATE_EXPRESSION_STRING_EVAL); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24185);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(24185);}while(r); -} -do{ -qbs_set(_FUNC_EVALUATE_EXPRESSION_STRING_EXP,FUNC_DWD(qbs_add(qbs_add(qbs_left(_FUNC_EVALUATE_EXPRESSION_STRING_EXP,*_FUNC_EVALUATE_EXPRESSION_LONG_S- 2 ),_FUNC_EVALUATE_EXPRESSION_STRING_EVAL),func_mid(_FUNC_EVALUATE_EXPRESSION_STRING_EXP,*_FUNC_EVALUATE_EXPRESSION_LONG_EVAL_E+ 1 ,NULL,0)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24186);}while(r); -S_32622:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_EVALUATE_EXPRESSION_STRING_EXP, 1 , 1 ,0|1),qbs_new_txt_len("N",1))))||new_error){ -if(qbevent){evnt(24187);if(r)goto S_32622;} -do{ -sub_mid(_FUNC_EVALUATE_EXPRESSION_STRING_EXP, 1 ,0,qbs_new_txt_len("-",1),0); -if(!qbevent)break;evnt(24187);}while(r); -} -} -S_32626:; -dl_continue_3490:; -}while((!(-(*_FUNC_EVALUATE_EXPRESSION_LONG_EVAL_E== 0 )))&&(!new_error)); -dl_exit_3490:; -if(qbevent){evnt(24189);if(r)goto S_32626;} -do{ -*_FUNC_EVALUATE_EXPRESSION_LONG_C= 0 ; -if(!qbevent)break;evnt(24190);}while(r); -S_32628:; -do{ -if(qbevent){evnt(24191);if(r)goto S_32628;} -do{ -*_FUNC_EVALUATE_EXPRESSION_LONG_C=*_FUNC_EVALUATE_EXPRESSION_LONG_C+ 1 ; -if(!qbevent)break;evnt(24192);}while(r); -S_32630:; -qbs_set(sc_3493,func_mid(_FUNC_EVALUATE_EXPRESSION_STRING_EXP,*_FUNC_EVALUATE_EXPRESSION_LONG_C, 1 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(qbevent){evnt(24193);if(r)goto S_32630;} -S_32631:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_greaterorequal(sc_3493,qbs_new_txt_len("0",1))&&qbs_lessorequal(sc_3493,qbs_new_txt_len("9",1)))||qbs_equal(sc_3493,qbs_new_txt_len(".",1))||qbs_equal(sc_3493,qbs_new_txt_len("-",1))))||new_error){ -if(qbevent){evnt(24194);if(r)goto S_32631;} -sc_ec_77_end:; -goto sc_3493_end; -} -do{ -qbs_set(_FUNC_EVALUATE_EXPRESSION_STRING_EVALUATE_EXPRESSION,qbs_add(qbs_add(qbs_new_txt_len("ERROR - Unknown Diagnosis: (",28),_FUNC_EVALUATE_EXPRESSION_STRING_EXP),qbs_new_txt_len(") ",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24195);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(24195);}while(r); -sc_3493_end:; -S_32636:; -dl_continue_3492:; -}while((!(qbs_cleanup(qbs_tmp_base,-(*_FUNC_EVALUATE_EXPRESSION_LONG_C>=_FUNC_EVALUATE_EXPRESSION_STRING_EXP->len))))&&(!new_error)); -dl_exit_3492:; -if(qbevent){evnt(24197);if(r)goto S_32636;} -do{ -qbs_set(_FUNC_EVALUATE_EXPRESSION_STRING_EVALUATE_EXPRESSION,_FUNC_EVALUATE_EXPRESSION_STRING_EXP); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24199);}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free68.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_EVALUATE_EXPRESSION_STRING_EVALUATE_EXPRESSION);return _FUNC_EVALUATE_EXPRESSION_STRING_EVALUATE_EXPRESSION; -} -void SUB_PARSEEXPRESSION(qbs*_SUB_PARSEEXPRESSION_STRING_EXP){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data69.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ +} +if(!qbevent)break;evnt(23560);}while(r); +do{ +*_FUNC_EVALUATECONST_LONG_N=FUNC_NUMELEMENTS(_FUNC_EVALUATECONST_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23563);}while(r); +S_31748:; +fornext_value3444= 1 ; +fornext_finalvalue3444=*_FUNC_EVALUATECONST_LONG_N; +fornext_step3444= 1 ; +if (fornext_step3444<0) fornext_step_negative3444=1; else fornext_step_negative3444=0; +if (new_error) goto fornext_error3444; +goto fornext_entrylabel3444; +while(1){ +fornext_value3444=fornext_step3444+(*_FUNC_EVALUATECONST_LONG_I); +fornext_entrylabel3444: +*_FUNC_EVALUATECONST_LONG_I=fornext_value3444; +if (fornext_step_negative3444){ +if (fornext_value3444fornext_finalvalue3444) break; +} +fornext_error3444:; +if(qbevent){evnt(23564);if(r)goto S_31748;} +do{ +tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[tmp_long])),FUNC_GETELEMENT(_FUNC_EVALUATECONST_STRING_A,_FUNC_EVALUATECONST_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23565);}while(r); +fornext_continue_3443:; +} +fornext_exit_3443:; +LABEL_EVALCONSTEVALBRACK:; +if(qbevent){evnt(23568);r=0;} +do{ +*_FUNC_EVALUATECONST_LONG_L= 0 ; +if(!qbevent)break;evnt(23571);}while(r); +do{ +*_FUNC_EVALUATECONST_LONG_B= 0 ; +if(!qbevent)break;evnt(23572);}while(r); +S_31753:; +fornext_value3446= 1 ; +fornext_finalvalue3446=*_FUNC_EVALUATECONST_LONG_N; +fornext_step3446= 1 ; +if (fornext_step3446<0) fornext_step_negative3446=1; else fornext_step_negative3446=0; +if (new_error) goto fornext_error3446; +goto fornext_entrylabel3446; +while(1){ +fornext_value3446=fornext_step3446+(*_FUNC_EVALUATECONST_LONG_I); +fornext_entrylabel3446: +*_FUNC_EVALUATECONST_LONG_I=fornext_value3446; +if (fornext_step_negative3446){ +if (fornext_value3446fornext_finalvalue3446) break; +} +fornext_error3446:; +if(qbevent){evnt(23573);if(r)goto S_31753;} +S_31754:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])),qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(23574);if(r)goto S_31754;} +do{ +*_FUNC_EVALUATECONST_LONG_B=*_FUNC_EVALUATECONST_LONG_B+ 1 ; +if(!qbevent)break;evnt(23574);}while(r); +} +S_31757:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])),qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(23575);if(r)goto S_31757;} +do{ +*_FUNC_EVALUATECONST_LONG_B=*_FUNC_EVALUATECONST_LONG_B- 1 ; +if(!qbevent)break;evnt(23575);}while(r); +} +S_31760:; +if ((-(*_FUNC_EVALUATECONST_LONG_B>*_FUNC_EVALUATECONST_LONG_L))||new_error){ +if(qbevent){evnt(23576);if(r)goto S_31760;} +do{ +*_FUNC_EVALUATECONST_LONG_L=*_FUNC_EVALUATECONST_LONG_B; +if(!qbevent)break;evnt(23576);}while(r); +} +fornext_continue_3445:; +} +fornext_exit_3445:; +S_31764:; +if ((*_FUNC_EVALUATECONST_LONG_L)||new_error){ +if(qbevent){evnt(23580);if(r)goto S_31764;} +do{ +*_FUNC_EVALUATECONST_LONG_B= 0 ; +if(!qbevent)break;evnt(23582);}while(r); +do{ +qbs_set(_FUNC_EVALUATECONST_STRING_E,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23583);}while(r); +S_31767:; +fornext_value3448= 1 ; +fornext_finalvalue3448=*_FUNC_EVALUATECONST_LONG_N; +fornext_step3448= 1 ; +if (fornext_step3448<0) fornext_step_negative3448=1; else fornext_step_negative3448=0; +if (new_error) goto fornext_error3448; +goto fornext_entrylabel3448; +while(1){ +fornext_value3448=fornext_step3448+(*_FUNC_EVALUATECONST_LONG_I); +fornext_entrylabel3448: +*_FUNC_EVALUATECONST_LONG_I=fornext_value3448; +if (fornext_step_negative3448){ +if (fornext_value3448fornext_finalvalue3448) break; +} +fornext_error3448:; +if(qbevent){evnt(23584);if(r)goto S_31767;} +S_31768:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])),qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(23586);if(r)goto S_31768;} +S_31769:; +if ((-(*_FUNC_EVALUATECONST_LONG_B==*_FUNC_EVALUATECONST_LONG_L))||new_error){ +if(qbevent){evnt(23587);if(r)goto S_31769;} +do{ +tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23587);}while(r); +do{ +goto fornext_exit_3447; +if(!qbevent)break;evnt(23587);}while(r); +} +do{ +*_FUNC_EVALUATECONST_LONG_B=*_FUNC_EVALUATECONST_LONG_B- 1 ; +if(!qbevent)break;evnt(23588);}while(r); +} +S_31775:; +if ((-(*_FUNC_EVALUATECONST_LONG_B>=*_FUNC_EVALUATECONST_LONG_L))||new_error){ +if(qbevent){evnt(23591);if(r)goto S_31775;} +S_31776:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_EVALUATECONST_STRING_E->len== 0 )))||new_error){ +if(qbevent){evnt(23592);if(r)goto S_31776;} +do{ +qbs_set(_FUNC_EVALUATECONST_STRING_E,((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23592);}while(r); +}else{ +do{ +qbs_set(_FUNC_EVALUATECONST_STRING_E,qbs_add(qbs_add(_FUNC_EVALUATECONST_STRING_E,__STRING1_SP),((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23592);}while(r); +} +do{ +tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23593);}while(r); +} +S_31783:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])),qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(23596);if(r)goto S_31783;} +do{ +*_FUNC_EVALUATECONST_LONG_B=*_FUNC_EVALUATECONST_LONG_B+ 1 ; +if(!qbevent)break;evnt(23597);}while(r); +S_31785:; +if ((-(*_FUNC_EVALUATECONST_LONG_B==*_FUNC_EVALUATECONST_LONG_L))||new_error){ +if(qbevent){evnt(23598);if(r)goto S_31785;} +do{ +*_FUNC_EVALUATECONST_LONG_I2=*_FUNC_EVALUATECONST_LONG_I; +if(!qbevent)break;evnt(23598);}while(r); +do{ +tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23598);}while(r); +} +} +fornext_continue_3447:; +} +fornext_exit_3447:; +do{ +tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[4],_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[5]); +if (!new_error) ((int16*)(_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[0]))[tmp_long]= 1 ; +if(!qbevent)break;evnt(23603);}while(r); +do{ +tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[tmp_long])),FUNC_EVALUATECONST(_FUNC_EVALUATECONST_STRING_E,(&(((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23604);}while(r); +S_31793:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(23605);if(r)goto S_31793;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23605);}while(r); +} +do{ +goto LABEL_EVALCONSTEVALBRACK; +if(!qbevent)break;evnt(23606);}while(r); +} +S_31798:; +fornext_value3451= 1 ; +fornext_finalvalue3451=*_FUNC_EVALUATECONST_LONG_N; +fornext_step3451= 1 ; +if (fornext_step3451<0) fornext_step_negative3451=1; else fornext_step_negative3451=0; +if (new_error) goto fornext_error3451; +goto fornext_entrylabel3451; +while(1){ +fornext_value3451=fornext_step3451+(*_FUNC_EVALUATECONST_LONG_I); +fornext_entrylabel3451: +*_FUNC_EVALUATECONST_LONG_I=fornext_value3451; +if (fornext_step_negative3451){ +if (fornext_value3451fornext_finalvalue3451) break; +} +fornext_error3451:; +if(qbevent){evnt(23619);if(r)goto S_31798;} +S_31799:; +if ((-(((int16*)(_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[4],_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[5])]== 0 ))||new_error){ +if(qbevent){evnt(23620);if(r)goto S_31799;} +S_31800:; +if ((qbs_cleanup(qbs_tmp_base,((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])]))->len))||new_error){ +if(qbevent){evnt(23621);if(r)goto S_31800;} +do{ +*_FUNC_EVALUATECONST_LONG_A=qbs_asc(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23623);}while(r); +S_31802:; +if ((qbs_cleanup(qbs_tmp_base,((-(*_FUNC_EVALUATECONST_LONG_A== 45 ))&(-(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])]))->len> 1 )))|((-(*_FUNC_EVALUATECONST_LONG_A>= 48 ))&(-(*_FUNC_EVALUATECONST_LONG_A<= 57 )))))||new_error){ +if(qbevent){evnt(23624);if(r)goto S_31802;} +do{ +qbs_set(_FUNC_EVALUATECONST_STRING_E,qbs_right(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])), 3 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23627);}while(r); +S_31804:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_E,qbs_new_txt_len("~&&",3))))||new_error){ +if(qbevent){evnt(23628);if(r)goto S_31804;} +do{ +tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5]); +if (!new_error) ((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[tmp_long]=*__LONG_UINTEGER64TYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(23628);}while(r); +do{ +goto LABEL_GOTCONSTBLKITYP; +if(!qbevent)break;evnt(23628);}while(r); +} +S_31808:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_E,qbs_new_txt_len("~%%",3))))||new_error){ +if(qbevent){evnt(23629);if(r)goto S_31808;} +do{ +tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5]); +if (!new_error) ((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[tmp_long]=*__LONG_UBYTETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(23629);}while(r); +do{ +goto LABEL_GOTCONSTBLKITYP; +if(!qbevent)break;evnt(23629);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATECONST_STRING_E,qbs_right(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])), 2 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23630);}while(r); +S_31813:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_E,qbs_new_txt_len("&&",2))))||new_error){ +if(qbevent){evnt(23631);if(r)goto S_31813;} +do{ +tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5]); +if (!new_error) ((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[tmp_long]=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(23631);}while(r); +do{ +goto LABEL_GOTCONSTBLKITYP; +if(!qbevent)break;evnt(23631);}while(r); +} +S_31817:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_E,qbs_new_txt_len("%%",2))))||new_error){ +if(qbevent){evnt(23632);if(r)goto S_31817;} +do{ +tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5]); +if (!new_error) ((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[tmp_long]=*__LONG_BYTETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(23632);}while(r); +do{ +goto LABEL_GOTCONSTBLKITYP; +if(!qbevent)break;evnt(23632);}while(r); +} +S_31821:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_E,qbs_new_txt_len("~%",2))))||new_error){ +if(qbevent){evnt(23633);if(r)goto S_31821;} +do{ +tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5]); +if (!new_error) ((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[tmp_long]=*__LONG_UINTEGERTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(23633);}while(r); +do{ +goto LABEL_GOTCONSTBLKITYP; +if(!qbevent)break;evnt(23633);}while(r); +} +S_31825:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_E,qbs_new_txt_len("~&",2))))||new_error){ +if(qbevent){evnt(23634);if(r)goto S_31825;} +do{ +tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5]); +if (!new_error) ((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[tmp_long]=*__LONG_ULONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(23634);}while(r); +do{ +goto LABEL_GOTCONSTBLKITYP; +if(!qbevent)break;evnt(23634);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATECONST_STRING_E,qbs_right(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])), 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23635);}while(r); +S_31830:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_E,qbs_new_txt_len("%",1))))||new_error){ +if(qbevent){evnt(23636);if(r)goto S_31830;} +do{ +tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5]); +if (!new_error) ((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[tmp_long]=*__LONG_INTEGERTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(23636);}while(r); +do{ +goto LABEL_GOTCONSTBLKITYP; +if(!qbevent)break;evnt(23636);}while(r); +} +S_31834:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_E,qbs_new_txt_len("&",1))))||new_error){ +if(qbevent){evnt(23637);if(r)goto S_31834;} +do{ +tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5]); +if (!new_error) ((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[tmp_long]=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(23637);}while(r); +do{ +goto LABEL_GOTCONSTBLKITYP; +if(!qbevent)break;evnt(23637);}while(r); +} +S_31838:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])),qbs_new_txt_len("~`",2),0)))||new_error){ +if(qbevent){evnt(23640);if(r)goto S_31838;} +do{ +*_FUNC_EVALUATECONST_LONG_X=func_instr(NULL,((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])),qbs_new_txt_len("~`",2),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23641);}while(r); +S_31840:; +if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_EVALUATECONST_LONG_X==(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])]))->len- 1 ))))||new_error){ +if(qbevent){evnt(23642);if(r)goto S_31840;} +do{ +tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_add(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])),qbs_new_txt_len("1",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23642);}while(r); +} +do{ +tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5]); +if (!new_error) ((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[tmp_long]=qbr(*__LONG_UBITTYPE-*__LONG_ISPOINTER- 1 +func_val(qbs_right(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])),((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])]))->len-*_FUNC_EVALUATECONST_LONG_X- 1 ))); +if(!qbevent)break;evnt(23643);}while(r); +do{ +tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[tmp_long])),i642string(qbr(func_val(qbs_left(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])),*_FUNC_EVALUATECONST_LONG_X- 1 ))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23644);}while(r); +do{ +tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[4],_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[5]); +if (!new_error) ((int16*)(_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[0]))[tmp_long]= 1 ; +if(!qbevent)break;evnt(23645);}while(r); +do{ +goto LABEL_GOTCONSTBLKTYP; +if(!qbevent)break;evnt(23646);}while(r); +} +S_31848:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])),qbs_new_txt_len("`",1),0)))||new_error){ +if(qbevent){evnt(23650);if(r)goto S_31848;} +do{ +*_FUNC_EVALUATECONST_LONG_X=func_instr(NULL,((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])),qbs_new_txt_len("`",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23651);}while(r); +S_31850:; +if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_EVALUATECONST_LONG_X==((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])]))->len)))||new_error){ +if(qbevent){evnt(23652);if(r)goto S_31850;} +do{ +tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_add(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])),qbs_new_txt_len("1",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23652);}while(r); +} +do{ +tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5]); +if (!new_error) ((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[tmp_long]=qbr(*__LONG_BITTYPE-*__LONG_ISPOINTER- 1 +func_val(qbs_right(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])),((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])]))->len-*_FUNC_EVALUATECONST_LONG_X))); +if(!qbevent)break;evnt(23653);}while(r); +do{ +tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[tmp_long])),i642string(qbr(func_val(qbs_left(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])),*_FUNC_EVALUATECONST_LONG_X- 1 ))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23654);}while(r); +do{ +tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[4],_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[5]); +if (!new_error) ((int16*)(_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[0]))[tmp_long]= 1 ; +if(!qbevent)break;evnt(23655);}while(r); +do{ +goto LABEL_GOTCONSTBLKTYP; +if(!qbevent)break;evnt(23656);}while(r); +} +S_31858:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])),qbs_new_txt_len("E",1),0)))||new_error){ +if(qbevent){evnt(23660);if(r)goto S_31858;} +do{ +tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[tmp_long])),f2string(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])]))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23661);}while(r); +do{ +tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5]); +if (!new_error) ((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[tmp_long]=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(23662);}while(r); +do{ +tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[4],_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[5]); +if (!new_error) ((int16*)(_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[0]))[tmp_long]= 1 ; +if(!qbevent)break;evnt(23663);}while(r); +do{ +goto LABEL_GOTCONSTBLKTYP; +if(!qbevent)break;evnt(23664);}while(r); +} +S_31864:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])),qbs_new_txt_len("D",1),0)))||new_error){ +if(qbevent){evnt(23666);if(r)goto S_31864;} +do{ +tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[tmp_long])),f2string(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])]))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23667);}while(r); +do{ +tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5]); +if (!new_error) ((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[tmp_long]=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(23668);}while(r); +do{ +tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[4],_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[5]); +if (!new_error) ((int16*)(_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[0]))[tmp_long]= 1 ; +if(!qbevent)break;evnt(23669);}while(r); +do{ +goto LABEL_GOTCONSTBLKTYP; +if(!qbevent)break;evnt(23670);}while(r); +} +S_31870:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])),qbs_new_txt_len("F",1),0)))||new_error){ +if(qbevent){evnt(23672);if(r)goto S_31870;} +do{ +tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[tmp_long])),f2string(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])]))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23673);}while(r); +do{ +tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5]); +if (!new_error) ((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[tmp_long]=*__LONG_FLOATTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(23674);}while(r); +do{ +tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[4],_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[5]); +if (!new_error) ((int16*)(_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[0]))[tmp_long]= 1 ; +if(!qbevent)break;evnt(23675);}while(r); +do{ +goto LABEL_GOTCONSTBLKTYP; +if(!qbevent)break;evnt(23676);}while(r); +} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Invalid CONST expression.1",26)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23679);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23679);}while(r); +LABEL_GOTCONSTBLKITYP:; +if(qbevent){evnt(23681);r=0;} +do{ +tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[tmp_long])),qbs_left(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])),((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])]))->len-_FUNC_EVALUATECONST_STRING_E->len)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23682);}while(r); +do{ +tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[tmp_long])),i642string(qbr(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23683);}while(r); +do{ +tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[4],_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[5]); +if (!new_error) ((int16*)(_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[0]))[tmp_long]= 1 ; +if(!qbevent)break;evnt(23684);}while(r); +LABEL_GOTCONSTBLKTYP:; +if(qbevent){evnt(23685);r=0;} +} +S_31882:; +if ((-(*_FUNC_EVALUATECONST_LONG_A== 34 ))||new_error){ +if(qbevent){evnt(23689);if(r)goto S_31882;} +do{ +tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5]); +if (!new_error) ((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[tmp_long]=*__LONG_STRINGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(23691);}while(r); +do{ +tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[4],_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[5]); +if (!new_error) ((int16*)(_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[0]))[tmp_long]= 1 ; +if(!qbevent)break;evnt(23692);}while(r); +} +} +} +fornext_continue_3450:; +} +fornext_exit_3450:; +do{ +*_FUNC_EVALUATECONST_LONG_N2= 0 ; +if(!qbevent)break;evnt(23700);}while(r); +S_31890:; +fornext_value3461= 1 ; +fornext_finalvalue3461=*_FUNC_EVALUATECONST_LONG_N; +fornext_step3461= 1 ; +if (fornext_step3461<0) fornext_step_negative3461=1; else fornext_step_negative3461=0; +if (new_error) goto fornext_error3461; +goto fornext_entrylabel3461; +while(1){ +fornext_value3461=fornext_step3461+(*_FUNC_EVALUATECONST_LONG_I); +fornext_entrylabel3461: +*_FUNC_EVALUATECONST_LONG_I=fornext_value3461; +if (fornext_step_negative3461){ +if (fornext_value3461fornext_finalvalue3461) break; +} +fornext_error3461:; +if(qbevent){evnt(23701);if(r)goto S_31890;} +S_31891:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])),qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(23702);if(r)goto S_31891;} +do{ +*_FUNC_EVALUATECONST_LONG_N2=*_FUNC_EVALUATECONST_LONG_N2+ 1 ; +if(!qbevent)break;evnt(23703);}while(r); +do{ +tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_N2)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[tmp_long])),((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23704);}while(r); +do{ +tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_N2)-_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[4],_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[5]); +if (!new_error) ((int16*)(_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[0]))[tmp_long]=((int16*)(_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[4],_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[5])]; +if(!qbevent)break;evnt(23705);}while(r); +do{ +tmp_long=array_check((*_FUNC_EVALUATECONST_LONG_N2)-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5]); +if (!new_error) ((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[tmp_long]=((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5])]; +if(!qbevent)break;evnt(23706);}while(r); +} +fornext_continue_3460:; +} +fornext_exit_3460:; +do{ +*_FUNC_EVALUATECONST_LONG_N=*_FUNC_EVALUATECONST_LONG_N2; +if(!qbevent)break;evnt(23709);}while(r); +S_31899:; +if ((-(*_FUNC_EVALUATECONST_LONG_N== 1 ))||new_error){ +if(qbevent){evnt(23712);if(r)goto S_31899;} +S_31900:; +if ((-(((int16*)(_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[0]))[array_check(( 1 )-_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[4],_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[5])]== 0 ))||new_error){ +if(qbevent){evnt(23713);if(r)goto S_31900;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Invalid CONST expression.2",26)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23713);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23713);}while(r); +} +do{ +*_FUNC_EVALUATECONST_LONG_T=((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[array_check(( 1 )-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5])]; +if(!qbevent)break;evnt(23714);}while(r); +do{ +qbs_set(_FUNC_EVALUATECONST_STRING_EVALUATECONST,((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check(( 1 )-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23715);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23716);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATECONST_STRING_E,((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check(( 1 )-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23722);}while(r); +S_31909:; +if ((-(((int16*)(_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[0]))[array_check(( 1 )-_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[4],_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[5])]== 0 ))||new_error){ +if(qbevent){evnt(23723);if(r)goto S_31909;} +S_31910:; +if ((-(*_FUNC_EVALUATECONST_LONG_N!= 2 ))||new_error){ +if(qbevent){evnt(23724);if(r)goto S_31910;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Invalid CONST expression.4",26)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23724);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23724);}while(r); +} +S_31914:; +if ((-(((int16*)(_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[0]))[array_check(( 2 )-_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[4],_FUNC_EVALUATECONST_ARRAY_INTEGER_STATUS[5])]== 0 ))||new_error){ +if(qbevent){evnt(23725);if(r)goto S_31914;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Invalid CONST expression.5",26)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23725);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23725);}while(r); +} +S_31918:; +if ((((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[array_check(( 2 )-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5])]&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(23726);if(r)goto S_31918;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Invalid CONST expression.6",26)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23726);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23726);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATECONST_STRING_O,((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check(( 1 )-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23727);}while(r); +S_31923:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,func_chr( 241 ))))||new_error){ +if(qbevent){evnt(23729);if(r)goto S_31923;} +S_31924:; +if ((((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[array_check(( 2 )-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5])]&*__LONG_ISFLOAT)||new_error){ +if(qbevent){evnt(23730);if(r)goto S_31924;} +do{ +*_FUNC_EVALUATECONST_FLOAT_R=-(string2f(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check(( 2 )-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23731);}while(r); +do{ +qbs_set(_FUNC_EVALUATECONST_STRING_EVALUATECONST,f2string(*_FUNC_EVALUATECONST_FLOAT_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23732);}while(r); +}else{ +do{ +*_FUNC_EVALUATECONST_INTEGER64_R=-(string2i64(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check(( 2 )-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23734);}while(r); +do{ +qbs_set(_FUNC_EVALUATECONST_STRING_EVALUATECONST,i642string(*_FUNC_EVALUATECONST_INTEGER64_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23735);}while(r); +} +do{ +*_FUNC_EVALUATECONST_LONG_T=((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[array_check(( 2 )-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5])]; +if(!qbevent)break;evnt(23737);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23738);}while(r); +} +S_31934:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_FUNC_EVALUATECONST_STRING_O),qbs_new_txt_len("NOT",3))))||new_error){ +if(qbevent){evnt(23741);if(r)goto S_31934;} +S_31935:; +if ((((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[array_check(( 2 )-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5])]&*__LONG_ISFLOAT)||new_error){ +if(qbevent){evnt(23742);if(r)goto S_31935;} +do{ +*_FUNC_EVALUATECONST_INTEGER64_R=qbr(string2f(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check(( 2 )-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23743);}while(r); +}else{ +do{ +*_FUNC_EVALUATECONST_INTEGER64_R=string2i64(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check(( 2 )-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23745);}while(r); +} +do{ +*_FUNC_EVALUATECONST_INTEGER64_R=~(*_FUNC_EVALUATECONST_INTEGER64_R); +if(!qbevent)break;evnt(23747);}while(r); +do{ +*_FUNC_EVALUATECONST_LONG_T=((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[array_check(( 2 )-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5])]; +if(!qbevent)break;evnt(23748);}while(r); +S_31942:; +if ((*_FUNC_EVALUATECONST_LONG_T&*__LONG_ISFLOAT)||new_error){ +if(qbevent){evnt(23749);if(r)goto S_31942;} +do{ +*_FUNC_EVALUATECONST_LONG_T=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(23749);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATECONST_STRING_EVALUATECONST,i642string(*_FUNC_EVALUATECONST_INTEGER64_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23750);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23751);}while(r); +} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Invalid CONST expression.7",26)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23754);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23754);}while(r); +} +do{ +*_FUNC_EVALUATECONST_LONG_ET=((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[array_check(( 1 )-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5])]; +if(!qbevent)break;evnt(23760);}while(r); +do{ +qbs_set(_FUNC_EVALUATECONST_STRING_EV,((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check(( 1 )-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23761);}while(r); +do{ +*_FUNC_EVALUATECONST_LONG_I= 2 ; +if(!qbevent)break;evnt(23763);}while(r); +LABEL_EVALCONSTEQU:; +if(qbevent){evnt(23765);r=0;} +S_31954:; +if ((-(*_FUNC_EVALUATECONST_LONG_I>=*_FUNC_EVALUATECONST_LONG_N))||new_error){ +if(qbevent){evnt(23768);if(r)goto S_31954;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Invalid CONST expression.8",26)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23768);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23768);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATECONST_STRING_O,qbs_ucase(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23769);}while(r); +do{ +*_FUNC_EVALUATECONST_LONG_I=*_FUNC_EVALUATECONST_LONG_I+ 1 ; +if(!qbevent)break;evnt(23770);}while(r); +S_31960:; +if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISOPERATOR(_FUNC_EVALUATECONST_STRING_O)== 0 )))||new_error){ +if(qbevent){evnt(23771);if(r)goto S_31960;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Invalid CONST expression.9",26)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23771);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23771);}while(r); +} +S_31964:; +if ((-(*_FUNC_EVALUATECONST_LONG_I>*_FUNC_EVALUATECONST_LONG_N))||new_error){ +if(qbevent){evnt(23772);if(r)goto S_31964;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Invalid CONST expression.10",27)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23772);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23772);}while(r); +} +S_31968:; +if ((-((((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5])]&*__LONG_ISSTRING)!=(*_FUNC_EVALUATECONST_LONG_ET&*__LONG_ISSTRING)))||new_error){ +if(qbevent){evnt(23775);if(r)goto S_31968;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Invalid CONST expression.11",27)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23775);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23775);}while(r); +} +S_31972:; +if ((-(*_FUNC_EVALUATECONST_LONG_ET== 0 ))||new_error){ +if(qbevent){evnt(23779);if(r)goto S_31972;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Invalid CONST expression.14",27)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23779);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23779);}while(r); +} +S_31976:; +if ((-(((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5])]== 0 ))||new_error){ +if(qbevent){evnt(23780);if(r)goto S_31976;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Invalid CONST expression.15",27)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23780);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23780);}while(r); +} +S_31980:; +if ((*_FUNC_EVALUATECONST_LONG_ET&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(23782);if(r)goto S_31980;} +S_31981:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("+",1))))||new_error){ +if(qbevent){evnt(23783);if(r)goto S_31981;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Invalid CONST expression.12",27)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23783);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23783);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATECONST_STRING_S1,qbs_right(_FUNC_EVALUATECONST_STRING_EV,_FUNC_EVALUATECONST_STRING_EV->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23785);}while(r); +do{ +qbs_set(_FUNC_EVALUATECONST_STRING_S1,qbs_left(_FUNC_EVALUATECONST_STRING_S1,func_instr(NULL,_FUNC_EVALUATECONST_STRING_S1,func_chr( 34 ),0)- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23786);}while(r); +do{ +*_FUNC_EVALUATECONST_LONG_S1SIZE=qbr(func_val(qbs_right(_FUNC_EVALUATECONST_STRING_EV,_FUNC_EVALUATECONST_STRING_EV->len-_FUNC_EVALUATECONST_STRING_S1->len- 3 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23787);}while(r); +do{ +qbs_set(_FUNC_EVALUATECONST_STRING_S2,qbs_right(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])),((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])]))->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23788);}while(r); +do{ +qbs_set(_FUNC_EVALUATECONST_STRING_S2,qbs_left(_FUNC_EVALUATECONST_STRING_S2,func_instr(NULL,_FUNC_EVALUATECONST_STRING_S2,func_chr( 34 ),0)- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23789);}while(r); +do{ +*_FUNC_EVALUATECONST_LONG_S2SIZE=qbr(func_val(qbs_right(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])])),((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])]))->len-_FUNC_EVALUATECONST_STRING_S2->len- 3 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23790);}while(r); +do{ +qbs_set(_FUNC_EVALUATECONST_STRING_EV,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(func_chr( 34 ),_FUNC_EVALUATECONST_STRING_S1),_FUNC_EVALUATECONST_STRING_S2),func_chr( 34 )),qbs_new_txt_len(",",1)),FUNC_STR2(&(pass3468=*_FUNC_EVALUATECONST_LONG_S1SIZE+*_FUNC_EVALUATECONST_LONG_S2SIZE)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23791);}while(r); +do{ +goto LABEL_ECONSTMARKEDUP; +if(!qbevent)break;evnt(23792);}while(r); +} +S_31994:; +if ((*_FUNC_EVALUATECONST_LONG_ET&*__LONG_ISFLOAT)||new_error){ +if(qbevent){evnt(23796);if(r)goto S_31994;} +do{ +*_FUNC_EVALUATECONST_LONG_LINTEGER= 0 ; +if(!qbevent)break;evnt(23797);}while(r); +do{ +*_FUNC_EVALUATECONST_FLOAT_L=string2f(_FUNC_EVALUATECONST_STRING_EV); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23798);}while(r); +do{ +*_FUNC_EVALUATECONST_INTEGER64_L=qbr(*_FUNC_EVALUATECONST_FLOAT_L); +if(!qbevent)break;evnt(23799);}while(r); +}else{ +do{ +*_FUNC_EVALUATECONST_LONG_LINTEGER= 1 ; +if(!qbevent)break;evnt(23801);}while(r); +do{ +*_FUNC_EVALUATECONST_INTEGER64_L=string2i64(_FUNC_EVALUATECONST_STRING_EV); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23802);}while(r); +do{ +*_FUNC_EVALUATECONST_FLOAT_L=*_FUNC_EVALUATECONST_INTEGER64_L; +if(!qbevent)break;evnt(23803);}while(r); +} +S_32003:; +if ((((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5])]&*__LONG_ISFLOAT)||new_error){ +if(qbevent){evnt(23805);if(r)goto S_32003;} +do{ +*_FUNC_EVALUATECONST_LONG_RINTEGER= 0 ; +if(!qbevent)break;evnt(23806);}while(r); +do{ +*_FUNC_EVALUATECONST_FLOAT_R=string2f(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23807);}while(r); +do{ +*_FUNC_EVALUATECONST_INTEGER64_R=qbr(*_FUNC_EVALUATECONST_FLOAT_R); +if(!qbevent)break;evnt(23808);}while(r); +}else{ +do{ +*_FUNC_EVALUATECONST_LONG_RINTEGER= 1 ; +if(!qbevent)break;evnt(23810);}while(r); +do{ +*_FUNC_EVALUATECONST_INTEGER64_R=string2i64(((qbs*)(((uint64*)(_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[4],_FUNC_EVALUATECONST_ARRAY_STRING_BLOCK[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23811);}while(r); +do{ +*_FUNC_EVALUATECONST_FLOAT_R=*_FUNC_EVALUATECONST_INTEGER64_R; +if(!qbevent)break;evnt(23812);}while(r); +} +S_32012:; +if (((-(*_FUNC_EVALUATECONST_LONG_LINTEGER== 1 ))&(-(*_FUNC_EVALUATECONST_LONG_RINTEGER== 1 )))||new_error){ +if(qbevent){evnt(23815);if(r)goto S_32012;} +S_32013:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("+",1))))||new_error){ +if(qbevent){evnt(23816);if(r)goto S_32013;} +do{ +*_FUNC_EVALUATECONST_INTEGER64_R=*_FUNC_EVALUATECONST_INTEGER64_L+*_FUNC_EVALUATECONST_INTEGER64_R; +if(!qbevent)break;evnt(23816);}while(r); +do{ +goto LABEL_ECONSTMARKUPI; +if(!qbevent)break;evnt(23816);}while(r); +} +S_32017:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("-",1))))||new_error){ +if(qbevent){evnt(23817);if(r)goto S_32017;} +do{ +*_FUNC_EVALUATECONST_INTEGER64_R=*_FUNC_EVALUATECONST_INTEGER64_L-*_FUNC_EVALUATECONST_INTEGER64_R; +if(!qbevent)break;evnt(23817);}while(r); +do{ +goto LABEL_ECONSTMARKUPI; +if(!qbevent)break;evnt(23817);}while(r); +} +S_32021:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("*",1))))||new_error){ +if(qbevent){evnt(23818);if(r)goto S_32021;} +do{ +*_FUNC_EVALUATECONST_INTEGER64_R=*_FUNC_EVALUATECONST_INTEGER64_L**_FUNC_EVALUATECONST_INTEGER64_R; +if(!qbevent)break;evnt(23818);}while(r); +do{ +goto LABEL_ECONSTMARKUPI; +if(!qbevent)break;evnt(23818);}while(r); +} +S_32025:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("^",1))))||new_error){ +if(qbevent){evnt(23819);if(r)goto S_32025;} +do{ +*_FUNC_EVALUATECONST_FLOAT_R=pow2(*_FUNC_EVALUATECONST_INTEGER64_L,*_FUNC_EVALUATECONST_INTEGER64_R); +if(!qbevent)break;evnt(23819);}while(r); +do{ +goto LABEL_ECONSTMARKUPF; +if(!qbevent)break;evnt(23819);}while(r); +} +S_32029:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("/",1))))||new_error){ +if(qbevent){evnt(23820);if(r)goto S_32029;} +do{ +*_FUNC_EVALUATECONST_FLOAT_R=*_FUNC_EVALUATECONST_INTEGER64_L/ ((long double)(*_FUNC_EVALUATECONST_INTEGER64_R)); +if(!qbevent)break;evnt(23820);}while(r); +do{ +goto LABEL_ECONSTMARKUPF; +if(!qbevent)break;evnt(23820);}while(r); +} +S_32033:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("\\",1))))||new_error){ +if(qbevent){evnt(23821);if(r)goto S_32033;} +do{ +*_FUNC_EVALUATECONST_INTEGER64_R=*_FUNC_EVALUATECONST_INTEGER64_L/ *_FUNC_EVALUATECONST_INTEGER64_R; +if(!qbevent)break;evnt(23821);}while(r); +do{ +goto LABEL_ECONSTMARKUPI; +if(!qbevent)break;evnt(23821);}while(r); +} +S_32037:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("MOD",3))))||new_error){ +if(qbevent){evnt(23822);if(r)goto S_32037;} +do{ +*_FUNC_EVALUATECONST_INTEGER64_R=*_FUNC_EVALUATECONST_INTEGER64_L%*_FUNC_EVALUATECONST_INTEGER64_R; +if(!qbevent)break;evnt(23822);}while(r); +do{ +goto LABEL_ECONSTMARKUPI; +if(!qbevent)break;evnt(23822);}while(r); +} +S_32041:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("=",1))))||new_error){ +if(qbevent){evnt(23823);if(r)goto S_32041;} +do{ +*_FUNC_EVALUATECONST_INTEGER64_R=-(*_FUNC_EVALUATECONST_INTEGER64_L==*_FUNC_EVALUATECONST_INTEGER64_R); +if(!qbevent)break;evnt(23823);}while(r); +do{ +goto LABEL_ECONSTMARKUPI16; +if(!qbevent)break;evnt(23823);}while(r); +} +S_32045:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len(">",1))))||new_error){ +if(qbevent){evnt(23824);if(r)goto S_32045;} +do{ +*_FUNC_EVALUATECONST_INTEGER64_R=-(*_FUNC_EVALUATECONST_INTEGER64_L>*_FUNC_EVALUATECONST_INTEGER64_R); +if(!qbevent)break;evnt(23824);}while(r); +do{ +goto LABEL_ECONSTMARKUPI16; +if(!qbevent)break;evnt(23824);}while(r); +} +S_32049:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("<",1))))||new_error){ +if(qbevent){evnt(23825);if(r)goto S_32049;} +do{ +*_FUNC_EVALUATECONST_INTEGER64_R=-(*_FUNC_EVALUATECONST_INTEGER64_L<*_FUNC_EVALUATECONST_INTEGER64_R); +if(!qbevent)break;evnt(23825);}while(r); +do{ +goto LABEL_ECONSTMARKUPI16; +if(!qbevent)break;evnt(23825);}while(r); +} +S_32053:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len(">=",2))))||new_error){ +if(qbevent){evnt(23826);if(r)goto S_32053;} +do{ +*_FUNC_EVALUATECONST_INTEGER64_R=-(*_FUNC_EVALUATECONST_INTEGER64_L>=*_FUNC_EVALUATECONST_INTEGER64_R); +if(!qbevent)break;evnt(23826);}while(r); +do{ +goto LABEL_ECONSTMARKUPI16; +if(!qbevent)break;evnt(23826);}while(r); +} +S_32057:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("<=",2))))||new_error){ +if(qbevent){evnt(23827);if(r)goto S_32057;} +do{ +*_FUNC_EVALUATECONST_INTEGER64_R=-(*_FUNC_EVALUATECONST_INTEGER64_L<=*_FUNC_EVALUATECONST_INTEGER64_R); +if(!qbevent)break;evnt(23827);}while(r); +do{ +goto LABEL_ECONSTMARKUPI16; +if(!qbevent)break;evnt(23827);}while(r); +} +S_32061:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("<>",2))))||new_error){ +if(qbevent){evnt(23828);if(r)goto S_32061;} +do{ +*_FUNC_EVALUATECONST_INTEGER64_R=-(*_FUNC_EVALUATECONST_INTEGER64_L!=*_FUNC_EVALUATECONST_INTEGER64_R); +if(!qbevent)break;evnt(23828);}while(r); +do{ +goto LABEL_ECONSTMARKUPI16; +if(!qbevent)break;evnt(23828);}while(r); +} +S_32065:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("IMP",3))))||new_error){ +if(qbevent){evnt(23829);if(r)goto S_32065;} +do{ +*_FUNC_EVALUATECONST_INTEGER64_R=~*_FUNC_EVALUATECONST_INTEGER64_L|*_FUNC_EVALUATECONST_INTEGER64_R; +if(!qbevent)break;evnt(23829);}while(r); +do{ +goto LABEL_ECONSTMARKUPI; +if(!qbevent)break;evnt(23829);}while(r); +} +S_32069:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("EQV",3))))||new_error){ +if(qbevent){evnt(23830);if(r)goto S_32069;} +do{ +*_FUNC_EVALUATECONST_INTEGER64_R=~*_FUNC_EVALUATECONST_INTEGER64_L^*_FUNC_EVALUATECONST_INTEGER64_R; +if(!qbevent)break;evnt(23830);}while(r); +do{ +goto LABEL_ECONSTMARKUPI; +if(!qbevent)break;evnt(23830);}while(r); +} +S_32073:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("XOR",3))))||new_error){ +if(qbevent){evnt(23831);if(r)goto S_32073;} +do{ +*_FUNC_EVALUATECONST_INTEGER64_R=*_FUNC_EVALUATECONST_INTEGER64_L^*_FUNC_EVALUATECONST_INTEGER64_R; +if(!qbevent)break;evnt(23831);}while(r); +do{ +goto LABEL_ECONSTMARKUPI; +if(!qbevent)break;evnt(23831);}while(r); +} +S_32077:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("OR",2))))||new_error){ +if(qbevent){evnt(23832);if(r)goto S_32077;} +do{ +*_FUNC_EVALUATECONST_INTEGER64_R=*_FUNC_EVALUATECONST_INTEGER64_L|*_FUNC_EVALUATECONST_INTEGER64_R; +if(!qbevent)break;evnt(23832);}while(r); +do{ +goto LABEL_ECONSTMARKUPI; +if(!qbevent)break;evnt(23832);}while(r); +} +S_32081:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("AND",3))))||new_error){ +if(qbevent){evnt(23833);if(r)goto S_32081;} +do{ +*_FUNC_EVALUATECONST_INTEGER64_R=*_FUNC_EVALUATECONST_INTEGER64_L&*_FUNC_EVALUATECONST_INTEGER64_R; +if(!qbevent)break;evnt(23833);}while(r); +do{ +goto LABEL_ECONSTMARKUPI; +if(!qbevent)break;evnt(23833);}while(r); +} +} +S_32086:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("+",1))))||new_error){ +if(qbevent){evnt(23836);if(r)goto S_32086;} +do{ +*_FUNC_EVALUATECONST_FLOAT_R=*_FUNC_EVALUATECONST_FLOAT_L+*_FUNC_EVALUATECONST_FLOAT_R; +if(!qbevent)break;evnt(23836);}while(r); +do{ +goto LABEL_ECONSTMARKUPF; +if(!qbevent)break;evnt(23836);}while(r); +} +S_32090:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("-",1))))||new_error){ +if(qbevent){evnt(23837);if(r)goto S_32090;} +do{ +*_FUNC_EVALUATECONST_FLOAT_R=*_FUNC_EVALUATECONST_FLOAT_L-*_FUNC_EVALUATECONST_FLOAT_R; +if(!qbevent)break;evnt(23837);}while(r); +do{ +goto LABEL_ECONSTMARKUPF; +if(!qbevent)break;evnt(23837);}while(r); +} +S_32094:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("*",1))))||new_error){ +if(qbevent){evnt(23838);if(r)goto S_32094;} +do{ +*_FUNC_EVALUATECONST_FLOAT_R=*_FUNC_EVALUATECONST_FLOAT_L**_FUNC_EVALUATECONST_FLOAT_R; +if(!qbevent)break;evnt(23838);}while(r); +do{ +goto LABEL_ECONSTMARKUPF; +if(!qbevent)break;evnt(23838);}while(r); +} +S_32098:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("^",1))))||new_error){ +if(qbevent){evnt(23839);if(r)goto S_32098;} +do{ +*_FUNC_EVALUATECONST_FLOAT_R=pow2(*_FUNC_EVALUATECONST_FLOAT_L,*_FUNC_EVALUATECONST_FLOAT_R); +if(!qbevent)break;evnt(23839);}while(r); +do{ +goto LABEL_ECONSTMARKUPF; +if(!qbevent)break;evnt(23839);}while(r); +} +S_32102:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("/",1))))||new_error){ +if(qbevent){evnt(23840);if(r)goto S_32102;} +do{ +*_FUNC_EVALUATECONST_FLOAT_R=*_FUNC_EVALUATECONST_FLOAT_L/ *_FUNC_EVALUATECONST_FLOAT_R; +if(!qbevent)break;evnt(23840);}while(r); +do{ +goto LABEL_ECONSTMARKUPF; +if(!qbevent)break;evnt(23840);}while(r); +} +S_32106:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("\\",1))))||new_error){ +if(qbevent){evnt(23841);if(r)goto S_32106;} +do{ +*_FUNC_EVALUATECONST_INTEGER64_R=qbr(*_FUNC_EVALUATECONST_FLOAT_L)/ qbr(*_FUNC_EVALUATECONST_FLOAT_R); +if(!qbevent)break;evnt(23841);}while(r); +do{ +goto LABEL_ECONSTMARKUPI32; +if(!qbevent)break;evnt(23841);}while(r); +} +S_32110:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("MOD",3))))||new_error){ +if(qbevent){evnt(23842);if(r)goto S_32110;} +do{ +*_FUNC_EVALUATECONST_INTEGER64_R=qbr(*_FUNC_EVALUATECONST_FLOAT_L)%qbr(*_FUNC_EVALUATECONST_FLOAT_R); +if(!qbevent)break;evnt(23842);}while(r); +do{ +goto LABEL_ECONSTMARKUPI32; +if(!qbevent)break;evnt(23842);}while(r); +} +S_32114:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("=",1))))||new_error){ +if(qbevent){evnt(23843);if(r)goto S_32114;} +do{ +*_FUNC_EVALUATECONST_INTEGER64_R=-(*_FUNC_EVALUATECONST_FLOAT_L==*_FUNC_EVALUATECONST_FLOAT_R); +if(!qbevent)break;evnt(23843);}while(r); +do{ +goto LABEL_ECONSTMARKUPI16; +if(!qbevent)break;evnt(23843);}while(r); +} +S_32118:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len(">",1))))||new_error){ +if(qbevent){evnt(23844);if(r)goto S_32118;} +do{ +*_FUNC_EVALUATECONST_INTEGER64_R=-(*_FUNC_EVALUATECONST_FLOAT_L>*_FUNC_EVALUATECONST_FLOAT_R); +if(!qbevent)break;evnt(23844);}while(r); +do{ +goto LABEL_ECONSTMARKUPI16; +if(!qbevent)break;evnt(23844);}while(r); +} +S_32122:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("<",1))))||new_error){ +if(qbevent){evnt(23845);if(r)goto S_32122;} +do{ +*_FUNC_EVALUATECONST_INTEGER64_R=-(*_FUNC_EVALUATECONST_FLOAT_L<*_FUNC_EVALUATECONST_FLOAT_R); +if(!qbevent)break;evnt(23845);}while(r); +do{ +goto LABEL_ECONSTMARKUPI16; +if(!qbevent)break;evnt(23845);}while(r); +} +S_32126:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len(">=",2))))||new_error){ +if(qbevent){evnt(23846);if(r)goto S_32126;} +do{ +*_FUNC_EVALUATECONST_INTEGER64_R=-(*_FUNC_EVALUATECONST_FLOAT_L>=*_FUNC_EVALUATECONST_FLOAT_R); +if(!qbevent)break;evnt(23846);}while(r); +do{ +goto LABEL_ECONSTMARKUPI16; +if(!qbevent)break;evnt(23846);}while(r); +} +S_32130:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("<=",2))))||new_error){ +if(qbevent){evnt(23847);if(r)goto S_32130;} +do{ +*_FUNC_EVALUATECONST_INTEGER64_R=-(*_FUNC_EVALUATECONST_FLOAT_L<=*_FUNC_EVALUATECONST_FLOAT_R); +if(!qbevent)break;evnt(23847);}while(r); +do{ +goto LABEL_ECONSTMARKUPI16; +if(!qbevent)break;evnt(23847);}while(r); +} +S_32134:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("<>",2))))||new_error){ +if(qbevent){evnt(23848);if(r)goto S_32134;} +do{ +*_FUNC_EVALUATECONST_INTEGER64_R=-(*_FUNC_EVALUATECONST_FLOAT_L!=*_FUNC_EVALUATECONST_FLOAT_R); +if(!qbevent)break;evnt(23848);}while(r); +do{ +goto LABEL_ECONSTMARKUPI16; +if(!qbevent)break;evnt(23848);}while(r); +} +S_32138:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("IMP",3))))||new_error){ +if(qbevent){evnt(23849);if(r)goto S_32138;} +do{ +*_FUNC_EVALUATECONST_INTEGER64_R=~qbr(*_FUNC_EVALUATECONST_FLOAT_L)|qbr(*_FUNC_EVALUATECONST_FLOAT_R); +if(!qbevent)break;evnt(23849);}while(r); +do{ +goto LABEL_ECONSTMARKUPI32; +if(!qbevent)break;evnt(23849);}while(r); +} +S_32142:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("EQV",3))))||new_error){ +if(qbevent){evnt(23850);if(r)goto S_32142;} +do{ +*_FUNC_EVALUATECONST_INTEGER64_R=~qbr(*_FUNC_EVALUATECONST_FLOAT_L)^qbr(*_FUNC_EVALUATECONST_FLOAT_R); +if(!qbevent)break;evnt(23850);}while(r); +do{ +goto LABEL_ECONSTMARKUPI32; +if(!qbevent)break;evnt(23850);}while(r); +} +S_32146:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("XOR",3))))||new_error){ +if(qbevent){evnt(23851);if(r)goto S_32146;} +do{ +*_FUNC_EVALUATECONST_INTEGER64_R=qbr(*_FUNC_EVALUATECONST_FLOAT_L)^qbr(*_FUNC_EVALUATECONST_FLOAT_R); +if(!qbevent)break;evnt(23851);}while(r); +do{ +goto LABEL_ECONSTMARKUPI32; +if(!qbevent)break;evnt(23851);}while(r); +} +S_32150:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("OR",2))))||new_error){ +if(qbevent){evnt(23852);if(r)goto S_32150;} +do{ +*_FUNC_EVALUATECONST_INTEGER64_R=qbr(*_FUNC_EVALUATECONST_FLOAT_L)|qbr(*_FUNC_EVALUATECONST_FLOAT_R); +if(!qbevent)break;evnt(23852);}while(r); +do{ +goto LABEL_ECONSTMARKUPI32; +if(!qbevent)break;evnt(23852);}while(r); +} +S_32154:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATECONST_STRING_O,qbs_new_txt_len("AND",3))))||new_error){ +if(qbevent){evnt(23853);if(r)goto S_32154;} +do{ +*_FUNC_EVALUATECONST_INTEGER64_R=qbr(*_FUNC_EVALUATECONST_FLOAT_L)&qbr(*_FUNC_EVALUATECONST_FLOAT_R); +if(!qbevent)break;evnt(23853);}while(r); +do{ +goto LABEL_ECONSTMARKUPI32; +if(!qbevent)break;evnt(23853);}while(r); +} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Invalid CONST expression.13",27)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23855);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23855);}while(r); +LABEL_ECONSTMARKUPI16:; +if(qbevent){evnt(23857);r=0;} +do{ +*_FUNC_EVALUATECONST_LONG_ET=*__LONG_INTEGERTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(23858);}while(r); +do{ +qbs_set(_FUNC_EVALUATECONST_STRING_EV,i642string(*_FUNC_EVALUATECONST_INTEGER64_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23859);}while(r); +do{ +goto LABEL_ECONSTMARKEDUP; +if(!qbevent)break;evnt(23860);}while(r); +LABEL_ECONSTMARKUPI32:; +if(qbevent){evnt(23862);r=0;} +do{ +*_FUNC_EVALUATECONST_LONG_ET=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(23863);}while(r); +do{ +qbs_set(_FUNC_EVALUATECONST_STRING_EV,i642string(*_FUNC_EVALUATECONST_INTEGER64_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23864);}while(r); +do{ +goto LABEL_ECONSTMARKEDUP; +if(!qbevent)break;evnt(23865);}while(r); +LABEL_ECONSTMARKUPI:; +if(qbevent){evnt(23867);r=0;} +S_32166:; +if ((-(*_FUNC_EVALUATECONST_LONG_ET!=((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5])]))||new_error){ +if(qbevent){evnt(23868);if(r)goto S_32166;} +do{ +*_FUNC_EVALUATECONST_LONG_U= 0 ; +if(!qbevent)break;evnt(23870);}while(r); +S_32168:; +if (((-((*_FUNC_EVALUATECONST_LONG_ET&*__LONG_ISUNSIGNED)!= 0 ))&(-((((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5])]&*__LONG_ISUNSIGNED)!= 0 )))||new_error){ +if(qbevent){evnt(23870);if(r)goto S_32168;} +do{ +*_FUNC_EVALUATECONST_LONG_U= 1 ; +if(!qbevent)break;evnt(23870);}while(r); +} +do{ +*_FUNC_EVALUATECONST_LONG_LB=*_FUNC_EVALUATECONST_LONG_ET& 511 ; +if(!qbevent)break;evnt(23871);}while(r); +do{ +*_FUNC_EVALUATECONST_LONG_RB=((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5])]& 511 ; +if(!qbevent)break;evnt(23871);}while(r); +do{ +*_FUNC_EVALUATECONST_LONG_OB= 0 ; +if(!qbevent)break;evnt(23872);}while(r); +S_32174:; +if ((-(*_FUNC_EVALUATECONST_LONG_LB==*_FUNC_EVALUATECONST_LONG_RB))||new_error){ +if(qbevent){evnt(23873);if(r)goto S_32174;} +S_32175:; +if (((-((*_FUNC_EVALUATECONST_LONG_ET&*__LONG_ISOFFSETINBITS)!= 0 ))&(-((((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5])]&*__LONG_ISOFFSETINBITS)!= 0 )))||new_error){ +if(qbevent){evnt(23874);if(r)goto S_32175;} +do{ +*_FUNC_EVALUATECONST_LONG_OB= 1 ; +if(!qbevent)break;evnt(23874);}while(r); +} +do{ +*_FUNC_EVALUATECONST_LONG_B=*_FUNC_EVALUATECONST_LONG_LB; +if(!qbevent)break;evnt(23875);}while(r); +} +S_32180:; +if ((-(*_FUNC_EVALUATECONST_LONG_LB>*_FUNC_EVALUATECONST_LONG_RB))||new_error){ +if(qbevent){evnt(23877);if(r)goto S_32180;} +S_32181:; +if ((-((*_FUNC_EVALUATECONST_LONG_ET&*__LONG_ISOFFSETINBITS)!= 0 ))||new_error){ +if(qbevent){evnt(23878);if(r)goto S_32181;} +do{ +*_FUNC_EVALUATECONST_LONG_OB= 1 ; +if(!qbevent)break;evnt(23878);}while(r); +} +do{ +*_FUNC_EVALUATECONST_LONG_B=*_FUNC_EVALUATECONST_LONG_LB; +if(!qbevent)break;evnt(23879);}while(r); +} +S_32186:; +if ((-(*_FUNC_EVALUATECONST_LONG_LB<*_FUNC_EVALUATECONST_LONG_RB))||new_error){ +if(qbevent){evnt(23881);if(r)goto S_32186;} +S_32187:; +if ((-((((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5])]&*__LONG_ISOFFSETINBITS)!= 0 ))||new_error){ +if(qbevent){evnt(23882);if(r)goto S_32187;} +do{ +*_FUNC_EVALUATECONST_LONG_OB= 1 ; +if(!qbevent)break;evnt(23882);}while(r); +} +do{ +*_FUNC_EVALUATECONST_LONG_B=*_FUNC_EVALUATECONST_LONG_RB; +if(!qbevent)break;evnt(23883);}while(r); +} +do{ +*_FUNC_EVALUATECONST_LONG_ET=*_FUNC_EVALUATECONST_LONG_B; +if(!qbevent)break;evnt(23885);}while(r); +S_32193:; +if ((*_FUNC_EVALUATECONST_LONG_OB)||new_error){ +if(qbevent){evnt(23886);if(r)goto S_32193;} +do{ +*_FUNC_EVALUATECONST_LONG_ET=*_FUNC_EVALUATECONST_LONG_ET+*__LONG_ISOFFSETINBITS; +if(!qbevent)break;evnt(23886);}while(r); +} +S_32196:; +if ((*_FUNC_EVALUATECONST_LONG_U)||new_error){ +if(qbevent){evnt(23887);if(r)goto S_32196;} +do{ +*_FUNC_EVALUATECONST_LONG_ET=*_FUNC_EVALUATECONST_LONG_ET+*__LONG_ISUNSIGNED; +if(!qbevent)break;evnt(23887);}while(r); +} +} +do{ +qbs_set(_FUNC_EVALUATECONST_STRING_EV,i642string(*_FUNC_EVALUATECONST_INTEGER64_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23889);}while(r); +do{ +goto LABEL_ECONSTMARKEDUP; +if(!qbevent)break;evnt(23890);}while(r); +LABEL_ECONSTMARKUPF:; +if(qbevent){evnt(23892);r=0;} +do{ +*_FUNC_EVALUATECONST_LONG_LFB= 0 ; +if(!qbevent)break;evnt(23893);}while(r); +do{ +*_FUNC_EVALUATECONST_LONG_RFB= 0 ; +if(!qbevent)break;evnt(23893);}while(r); +do{ +*_FUNC_EVALUATECONST_LONG_LIB= 0 ; +if(!qbevent)break;evnt(23894);}while(r); +do{ +*_FUNC_EVALUATECONST_LONG_RIB= 0 ; +if(!qbevent)break;evnt(23894);}while(r); +S_32206:; +if ((*_FUNC_EVALUATECONST_LONG_ET&*__LONG_ISFLOAT)||new_error){ +if(qbevent){evnt(23895);if(r)goto S_32206;} +do{ +*_FUNC_EVALUATECONST_LONG_LFB=*_FUNC_EVALUATECONST_LONG_ET& 511 ; +if(!qbevent)break;evnt(23895);}while(r); +}else{ +do{ +*_FUNC_EVALUATECONST_LONG_LIB=*_FUNC_EVALUATECONST_LONG_ET& 511 ; +if(!qbevent)break;evnt(23895);}while(r); +} +S_32211:; +if ((((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5])]&*__LONG_ISFLOAT)||new_error){ +if(qbevent){evnt(23896);if(r)goto S_32211;} +do{ +*_FUNC_EVALUATECONST_LONG_RFB=((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5])]& 511 ; +if(!qbevent)break;evnt(23896);}while(r); +}else{ +do{ +*_FUNC_EVALUATECONST_LONG_RIB=((int32*)(_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[0]))[array_check((*_FUNC_EVALUATECONST_LONG_I)-_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[4],_FUNC_EVALUATECONST_ARRAY_LONG_BTYPE[5])]& 511 ; +if(!qbevent)break;evnt(23896);}while(r); +} +do{ +*_FUNC_EVALUATECONST_LONG_F= 32 ; +if(!qbevent)break;evnt(23897);}while(r); +S_32217:; +if (((-(*_FUNC_EVALUATECONST_LONG_LIB> 16 ))|(-(*_FUNC_EVALUATECONST_LONG_RIB> 16 )))||new_error){ +if(qbevent){evnt(23898);if(r)goto S_32217;} +do{ +*_FUNC_EVALUATECONST_LONG_F= 64 ; +if(!qbevent)break;evnt(23898);}while(r); +} +S_32220:; +if (((-(*_FUNC_EVALUATECONST_LONG_LFB> 32 ))|(-(*_FUNC_EVALUATECONST_LONG_RFB> 32 )))||new_error){ +if(qbevent){evnt(23899);if(r)goto S_32220;} +do{ +*_FUNC_EVALUATECONST_LONG_F= 64 ; +if(!qbevent)break;evnt(23899);}while(r); +} +S_32223:; +if (((-(*_FUNC_EVALUATECONST_LONG_LIB> 32 ))|(-(*_FUNC_EVALUATECONST_LONG_RIB> 32 )))||new_error){ +if(qbevent){evnt(23900);if(r)goto S_32223;} +do{ +*_FUNC_EVALUATECONST_LONG_F= 256 ; +if(!qbevent)break;evnt(23900);}while(r); +} +S_32226:; +if (((-(*_FUNC_EVALUATECONST_LONG_LFB> 64 ))|(-(*_FUNC_EVALUATECONST_LONG_RFB> 64 )))||new_error){ +if(qbevent){evnt(23901);if(r)goto S_32226;} +do{ +*_FUNC_EVALUATECONST_LONG_F= 256 ; +if(!qbevent)break;evnt(23901);}while(r); +} +do{ +*_FUNC_EVALUATECONST_LONG_ET=*__LONG_ISFLOAT+*_FUNC_EVALUATECONST_LONG_F; +if(!qbevent)break;evnt(23902);}while(r); +do{ +qbs_set(_FUNC_EVALUATECONST_STRING_EV,f2string(*_FUNC_EVALUATECONST_FLOAT_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23903);}while(r); +LABEL_ECONSTMARKEDUP:; +if(qbevent){evnt(23905);r=0;} +do{ +*_FUNC_EVALUATECONST_LONG_I=*_FUNC_EVALUATECONST_LONG_I+ 1 ; +if(!qbevent)break;evnt(23907);}while(r); +S_32232:; +if ((-(*_FUNC_EVALUATECONST_LONG_I<=*_FUNC_EVALUATECONST_LONG_N))||new_error){ +if(qbevent){evnt(23909);if(r)goto S_32232;} +do{ +goto LABEL_EVALCONSTEQU; +if(!qbevent)break;evnt(23909);}while(r); +} +do{ +*_FUNC_EVALUATECONST_LONG_T=*_FUNC_EVALUATECONST_LONG_ET; +if(!qbevent)break;evnt(23911);}while(r); +do{ +qbs_set(_FUNC_EVALUATECONST_STRING_EVALUATECONST,_FUNC_EVALUATECONST_STRING_EV); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23912);}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free59.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_EVALUATECONST_STRING_EVALUATECONST);return _FUNC_EVALUATECONST_STRING_EVALUATECONST; +} +qbs* FUNC_TYPEVALUE2SYMBOL(int32*_FUNC_TYPEVALUE2SYMBOL_LONG_T){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data60.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +S_32237:; +if ((*_FUNC_TYPEVALUE2SYMBOL_LONG_T&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(23918);if(r)goto S_32237;} +S_32238:; +if ((*_FUNC_TYPEVALUE2SYMBOL_LONG_T&*__LONG_ISFIXEDLENGTH)||new_error){ +if(qbevent){evnt(23919);if(r)goto S_32238;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Cannot convert expression type to symbol",40)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23919);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23919);}while(r); +} +do{ +qbs_set(_FUNC_TYPEVALUE2SYMBOL_STRING_TYPEVALUE2SYMBOL,qbs_new_txt_len("$",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23920);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23921);}while(r); +} +do{ +qbs_set(_FUNC_TYPEVALUE2SYMBOL_STRING_S,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23924);}while(r); +S_32246:; +if ((*_FUNC_TYPEVALUE2SYMBOL_LONG_T&*__LONG_ISUNSIGNED)||new_error){ +if(qbevent){evnt(23926);if(r)goto S_32246;} +do{ +qbs_set(_FUNC_TYPEVALUE2SYMBOL_STRING_S,qbs_new_txt_len("~",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23926);}while(r); +} +do{ +*_FUNC_TYPEVALUE2SYMBOL_LONG_B=*_FUNC_TYPEVALUE2SYMBOL_LONG_T& 511 ; +if(!qbevent)break;evnt(23928);}while(r); +S_32250:; +if ((*_FUNC_TYPEVALUE2SYMBOL_LONG_T&*__LONG_ISOFFSETINBITS)||new_error){ +if(qbevent){evnt(23930);if(r)goto S_32250;} +S_32251:; +if ((-(*_FUNC_TYPEVALUE2SYMBOL_LONG_B> 1 ))||new_error){ +if(qbevent){evnt(23931);if(r)goto S_32251;} +do{ +qbs_set(_FUNC_TYPEVALUE2SYMBOL_STRING_S,qbs_add(qbs_add(_FUNC_TYPEVALUE2SYMBOL_STRING_S,qbs_new_txt_len("`",1)),FUNC_STR2(_FUNC_TYPEVALUE2SYMBOL_LONG_B))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23931);}while(r); +}else{ +do{ +qbs_set(_FUNC_TYPEVALUE2SYMBOL_STRING_S,qbs_add(_FUNC_TYPEVALUE2SYMBOL_STRING_S,qbs_new_txt_len("`",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23931);}while(r); +} +do{ +qbs_set(_FUNC_TYPEVALUE2SYMBOL_STRING_TYPEVALUE2SYMBOL,_FUNC_TYPEVALUE2SYMBOL_STRING_S); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23932);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23933);}while(r); +} +S_32259:; +if ((*_FUNC_TYPEVALUE2SYMBOL_LONG_T&*__LONG_ISFLOAT)||new_error){ +if(qbevent){evnt(23936);if(r)goto S_32259;} +S_32260:; +if ((-(*_FUNC_TYPEVALUE2SYMBOL_LONG_B== 32 ))||new_error){ +if(qbevent){evnt(23937);if(r)goto S_32260;} +do{ +qbs_set(_FUNC_TYPEVALUE2SYMBOL_STRING_S,qbs_new_txt_len("!",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23937);}while(r); +} +S_32263:; +if ((-(*_FUNC_TYPEVALUE2SYMBOL_LONG_B== 64 ))||new_error){ +if(qbevent){evnt(23938);if(r)goto S_32263;} +do{ +qbs_set(_FUNC_TYPEVALUE2SYMBOL_STRING_S,qbs_new_txt_len("#",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23938);}while(r); +} +S_32266:; +if ((-(*_FUNC_TYPEVALUE2SYMBOL_LONG_B== 256 ))||new_error){ +if(qbevent){evnt(23939);if(r)goto S_32266;} +do{ +qbs_set(_FUNC_TYPEVALUE2SYMBOL_STRING_S,qbs_new_txt_len("##",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23939);}while(r); +} +do{ +qbs_set(_FUNC_TYPEVALUE2SYMBOL_STRING_TYPEVALUE2SYMBOL,_FUNC_TYPEVALUE2SYMBOL_STRING_S); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23940);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23941);}while(r); +} +S_32272:; +if ((-(*_FUNC_TYPEVALUE2SYMBOL_LONG_B== 8 ))||new_error){ +if(qbevent){evnt(23944);if(r)goto S_32272;} +do{ +qbs_set(_FUNC_TYPEVALUE2SYMBOL_STRING_S,qbs_add(_FUNC_TYPEVALUE2SYMBOL_STRING_S,qbs_new_txt_len("%%",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23944);}while(r); +} +S_32275:; +if ((-(*_FUNC_TYPEVALUE2SYMBOL_LONG_B== 16 ))||new_error){ +if(qbevent){evnt(23945);if(r)goto S_32275;} +do{ +qbs_set(_FUNC_TYPEVALUE2SYMBOL_STRING_S,qbs_add(_FUNC_TYPEVALUE2SYMBOL_STRING_S,qbs_new_txt_len("%",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23945);}while(r); +} +S_32278:; +if ((-(*_FUNC_TYPEVALUE2SYMBOL_LONG_B== 32 ))||new_error){ +if(qbevent){evnt(23946);if(r)goto S_32278;} +do{ +qbs_set(_FUNC_TYPEVALUE2SYMBOL_STRING_S,qbs_add(_FUNC_TYPEVALUE2SYMBOL_STRING_S,qbs_new_txt_len("&",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23946);}while(r); +} +S_32281:; +if ((-(*_FUNC_TYPEVALUE2SYMBOL_LONG_B== 64 ))||new_error){ +if(qbevent){evnt(23947);if(r)goto S_32281;} +do{ +qbs_set(_FUNC_TYPEVALUE2SYMBOL_STRING_S,qbs_add(_FUNC_TYPEVALUE2SYMBOL_STRING_S,qbs_new_txt_len("&&",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23947);}while(r); +} +do{ +qbs_set(_FUNC_TYPEVALUE2SYMBOL_STRING_TYPEVALUE2SYMBOL,_FUNC_TYPEVALUE2SYMBOL_STRING_S); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23948);}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free60.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_TYPEVALUE2SYMBOL_STRING_TYPEVALUE2SYMBOL);return _FUNC_TYPEVALUE2SYMBOL_STRING_TYPEVALUE2SYMBOL; +} +qbs* FUNC_ID2FULLTYPENAME(){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data61.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +*_FUNC_ID2FULLTYPENAME_LONG_T=*(int32*)(((char*)__UDT_ID)+(536)); +if(!qbevent)break;evnt(23954);}while(r); +S_32286:; +if ((-(*_FUNC_ID2FULLTYPENAME_LONG_T== 0 ))||new_error){ +if(qbevent){evnt(23955);if(r)goto S_32286;} +do{ +*_FUNC_ID2FULLTYPENAME_LONG_T=*(int32*)(((char*)__UDT_ID)+(512)); +if(!qbevent)break;evnt(23955);}while(r); +} +do{ +*_FUNC_ID2FULLTYPENAME_LONG_SIZE=*(int32*)(((char*)__UDT_ID)+(540)); +if(!qbevent)break;evnt(23956);}while(r); +do{ +*_FUNC_ID2FULLTYPENAME_LONG_BITS=*_FUNC_ID2FULLTYPENAME_LONG_T& 511 ; +if(!qbevent)break;evnt(23957);}while(r); +S_32291:; +if ((*_FUNC_ID2FULLTYPENAME_LONG_T&*__LONG_ISUDT)||new_error){ +if(qbevent){evnt(23958);if(r)goto S_32291;} +do{ +qbs_set(_FUNC_ID2FULLTYPENAME_STRING_A,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[(array_check((*_FUNC_ID2FULLTYPENAME_LONG_T& 511 )-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]))*256],256,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23959);}while(r); +do{ +qbs_set(_FUNC_ID2FULLTYPENAME_STRING_ID2FULLTYPENAME,_FUNC_ID2FULLTYPENAME_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23960);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23960);}while(r); +} +S_32296:; +if ((*_FUNC_ID2FULLTYPENAME_LONG_T&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(23962);if(r)goto S_32296;} +S_32297:; +if ((*_FUNC_ID2FULLTYPENAME_LONG_T&*__LONG_ISFIXEDLENGTH)||new_error){ +if(qbevent){evnt(23963);if(r)goto S_32297;} +do{ +qbs_set(_FUNC_ID2FULLTYPENAME_STRING_A,qbs_add(qbs_new_txt_len("STRING * ",9),FUNC_STR2(_FUNC_ID2FULLTYPENAME_LONG_SIZE))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23963);}while(r); +}else{ +do{ +qbs_set(_FUNC_ID2FULLTYPENAME_STRING_A,qbs_new_txt_len("STRING",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23963);}while(r); +} +do{ +qbs_set(_FUNC_ID2FULLTYPENAME_STRING_ID2FULLTYPENAME,_FUNC_ID2FULLTYPENAME_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23964);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23964);}while(r); +} +S_32305:; +if ((*_FUNC_ID2FULLTYPENAME_LONG_T&*__LONG_ISOFFSETINBITS)||new_error){ +if(qbevent){evnt(23966);if(r)goto S_32305;} +S_32306:; +if ((-(*_FUNC_ID2FULLTYPENAME_LONG_BITS> 1 ))||new_error){ +if(qbevent){evnt(23967);if(r)goto S_32306;} +do{ +qbs_set(_FUNC_ID2FULLTYPENAME_STRING_A,qbs_add(qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("BIT * ",6)),FUNC_STR2(_FUNC_ID2FULLTYPENAME_LONG_BITS))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23967);}while(r); +}else{ +do{ +qbs_set(_FUNC_ID2FULLTYPENAME_STRING_A,qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("BIT",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23967);}while(r); +} +S_32311:; +if ((*_FUNC_ID2FULLTYPENAME_LONG_T&*__LONG_ISUNSIGNED)||new_error){ +if(qbevent){evnt(23968);if(r)goto S_32311;} +do{ +qbs_set(_FUNC_ID2FULLTYPENAME_STRING_A,qbs_add(qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("UNSIGNED ",9)),_FUNC_ID2FULLTYPENAME_STRING_A)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23968);}while(r); +} +do{ +qbs_set(_FUNC_ID2FULLTYPENAME_STRING_ID2FULLTYPENAME,_FUNC_ID2FULLTYPENAME_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23969);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23969);}while(r); +} +S_32317:; +if ((*_FUNC_ID2FULLTYPENAME_LONG_T&*__LONG_ISFLOAT)||new_error){ +if(qbevent){evnt(23971);if(r)goto S_32317;} +S_32318:; +if ((-(*_FUNC_ID2FULLTYPENAME_LONG_BITS== 32 ))||new_error){ +if(qbevent){evnt(23972);if(r)goto S_32318;} +do{ +qbs_set(_FUNC_ID2FULLTYPENAME_STRING_A,qbs_new_txt_len("SINGLE",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23972);}while(r); +} +S_32321:; +if ((-(*_FUNC_ID2FULLTYPENAME_LONG_BITS== 64 ))||new_error){ +if(qbevent){evnt(23973);if(r)goto S_32321;} +do{ +qbs_set(_FUNC_ID2FULLTYPENAME_STRING_A,qbs_new_txt_len("DOUBLE",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23973);}while(r); +} +S_32324:; +if ((-(*_FUNC_ID2FULLTYPENAME_LONG_BITS== 256 ))||new_error){ +if(qbevent){evnt(23974);if(r)goto S_32324;} +do{ +qbs_set(_FUNC_ID2FULLTYPENAME_STRING_A,qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("FLOAT",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23974);}while(r); +} +}else{ +S_32328:; +if ((-(*_FUNC_ID2FULLTYPENAME_LONG_BITS== 8 ))||new_error){ +if(qbevent){evnt(23976);if(r)goto S_32328;} +do{ +qbs_set(_FUNC_ID2FULLTYPENAME_STRING_A,qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("BYTE",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23976);}while(r); +} +S_32331:; +if ((-(*_FUNC_ID2FULLTYPENAME_LONG_BITS== 16 ))||new_error){ +if(qbevent){evnt(23977);if(r)goto S_32331;} +do{ +qbs_set(_FUNC_ID2FULLTYPENAME_STRING_A,qbs_new_txt_len("INTEGER",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23977);}while(r); +} +S_32334:; +if ((-(*_FUNC_ID2FULLTYPENAME_LONG_BITS== 32 ))||new_error){ +if(qbevent){evnt(23978);if(r)goto S_32334;} +do{ +qbs_set(_FUNC_ID2FULLTYPENAME_STRING_A,qbs_new_txt_len("LONG",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23978);}while(r); +} +S_32337:; +if ((-(*_FUNC_ID2FULLTYPENAME_LONG_BITS== 64 ))||new_error){ +if(qbevent){evnt(23979);if(r)goto S_32337;} +do{ +qbs_set(_FUNC_ID2FULLTYPENAME_STRING_A,qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("INTEGER64",9))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23979);}while(r); +} +S_32340:; +if ((*_FUNC_ID2FULLTYPENAME_LONG_T&*__LONG_ISUNSIGNED)||new_error){ +if(qbevent){evnt(23980);if(r)goto S_32340;} +do{ +qbs_set(_FUNC_ID2FULLTYPENAME_STRING_A,qbs_add(qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("UNSIGNED ",9)),_FUNC_ID2FULLTYPENAME_STRING_A)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23980);}while(r); +} +} +S_32344:; +if ((*_FUNC_ID2FULLTYPENAME_LONG_T&*__LONG_ISOFFSET)||new_error){ +if(qbevent){evnt(23982);if(r)goto S_32344;} +do{ +qbs_set(_FUNC_ID2FULLTYPENAME_STRING_A,qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("OFFSET",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23983);}while(r); +S_32346:; +if ((*_FUNC_ID2FULLTYPENAME_LONG_T&*__LONG_ISUNSIGNED)||new_error){ +if(qbevent){evnt(23984);if(r)goto S_32346;} +do{ +qbs_set(_FUNC_ID2FULLTYPENAME_STRING_A,qbs_add(qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("UNSIGNED ",9)),_FUNC_ID2FULLTYPENAME_STRING_A)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23984);}while(r); +} +} +do{ +qbs_set(_FUNC_ID2FULLTYPENAME_STRING_ID2FULLTYPENAME,_FUNC_ID2FULLTYPENAME_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23986);}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free61.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_ID2FULLTYPENAME_STRING_ID2FULLTYPENAME);return _FUNC_ID2FULLTYPENAME_STRING_ID2FULLTYPENAME; +} +qbs* FUNC_ID2SHORTTYPENAME(){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data62.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +*_FUNC_ID2SHORTTYPENAME_LONG_T=*(int32*)(((char*)__UDT_ID)+(536)); +if(!qbevent)break;evnt(23990);}while(r); +S_32352:; +if ((-(*_FUNC_ID2SHORTTYPENAME_LONG_T== 0 ))||new_error){ +if(qbevent){evnt(23991);if(r)goto S_32352;} +do{ +*_FUNC_ID2SHORTTYPENAME_LONG_T=*(int32*)(((char*)__UDT_ID)+(512)); +if(!qbevent)break;evnt(23991);}while(r); +} +do{ +*_FUNC_ID2SHORTTYPENAME_LONG_SIZE=*(int32*)(((char*)__UDT_ID)+(540)); +if(!qbevent)break;evnt(23992);}while(r); +do{ +*_FUNC_ID2SHORTTYPENAME_LONG_BITS=*_FUNC_ID2SHORTTYPENAME_LONG_T& 511 ; +if(!qbevent)break;evnt(23993);}while(r); +S_32357:; +if ((*_FUNC_ID2SHORTTYPENAME_LONG_T&*__LONG_ISUDT)||new_error){ +if(qbevent){evnt(23994);if(r)goto S_32357;} +do{ +qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[(array_check((*_FUNC_ID2SHORTTYPENAME_LONG_T& 511 )-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]))*256],256,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23995);}while(r); +do{ +qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_ID2SHORTTYPENAME,_FUNC_ID2SHORTTYPENAME_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23996);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(23996);}while(r); +} +S_32362:; +if ((*_FUNC_ID2SHORTTYPENAME_LONG_T&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(23998);if(r)goto S_32362;} +S_32363:; +if ((*_FUNC_ID2SHORTTYPENAME_LONG_T&*__LONG_ISFIXEDLENGTH)||new_error){ +if(qbevent){evnt(23999);if(r)goto S_32363;} +do{ +qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_add(qbs_new_txt_len("STRING",6),FUNC_STR2(_FUNC_ID2SHORTTYPENAME_LONG_SIZE))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23999);}while(r); +}else{ +do{ +qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("STRING",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(23999);}while(r); +} +do{ +qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_ID2SHORTTYPENAME,_FUNC_ID2SHORTTYPENAME_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24000);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(24000);}while(r); +} +S_32371:; +if ((*_FUNC_ID2SHORTTYPENAME_LONG_T&*__LONG_ISOFFSETINBITS)||new_error){ +if(qbevent){evnt(24002);if(r)goto S_32371;} +S_32372:; +if ((*_FUNC_ID2SHORTTYPENAME_LONG_T&*__LONG_ISUNSIGNED)||new_error){ +if(qbevent){evnt(24003);if(r)goto S_32372;} +do{ +qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("_U",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24003);}while(r); +}else{ +do{ +qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("_",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24003);}while(r); +} +S_32377:; +if ((-(*_FUNC_ID2SHORTTYPENAME_LONG_BITS> 1 ))||new_error){ +if(qbevent){evnt(24004);if(r)goto S_32377;} +do{ +qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_add(qbs_add(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("BIT",3)),FUNC_STR2(_FUNC_ID2SHORTTYPENAME_LONG_BITS))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24004);}while(r); +}else{ +do{ +qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_add(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("BIT1",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24004);}while(r); +} +do{ +qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_ID2SHORTTYPENAME,_FUNC_ID2SHORTTYPENAME_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24005);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(24005);}while(r); +} +S_32385:; +if ((*_FUNC_ID2SHORTTYPENAME_LONG_T&*__LONG_ISFLOAT)||new_error){ +if(qbevent){evnt(24007);if(r)goto S_32385;} +S_32386:; +if ((-(*_FUNC_ID2SHORTTYPENAME_LONG_BITS== 32 ))||new_error){ +if(qbevent){evnt(24008);if(r)goto S_32386;} +do{ +qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("SINGLE",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24008);}while(r); +} +S_32389:; +if ((-(*_FUNC_ID2SHORTTYPENAME_LONG_BITS== 64 ))||new_error){ +if(qbevent){evnt(24009);if(r)goto S_32389;} +do{ +qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("DOUBLE",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24009);}while(r); +} +S_32392:; +if ((-(*_FUNC_ID2SHORTTYPENAME_LONG_BITS== 256 ))||new_error){ +if(qbevent){evnt(24010);if(r)goto S_32392;} +do{ +qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("_FLOAT",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24010);}while(r); +} +}else{ +S_32396:; +if ((-(*_FUNC_ID2SHORTTYPENAME_LONG_BITS== 8 ))||new_error){ +if(qbevent){evnt(24012);if(r)goto S_32396;} +S_32397:; +if (((*_FUNC_ID2SHORTTYPENAME_LONG_T&*__LONG_ISUNSIGNED))||new_error){ +if(qbevent){evnt(24013);if(r)goto S_32397;} +do{ +qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("_UBYTE",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24013);}while(r); +}else{ +do{ +qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("_BYTE",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24013);}while(r); +} +} +S_32403:; +if ((-(*_FUNC_ID2SHORTTYPENAME_LONG_BITS== 16 ))||new_error){ +if(qbevent){evnt(24015);if(r)goto S_32403;} +S_32404:; +if (((*_FUNC_ID2SHORTTYPENAME_LONG_T&*__LONG_ISUNSIGNED))||new_error){ +if(qbevent){evnt(24016);if(r)goto S_32404;} +do{ +qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("UINTEGER",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24016);}while(r); +}else{ +do{ +qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("INTEGER",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24016);}while(r); +} +} +S_32410:; +if ((-(*_FUNC_ID2SHORTTYPENAME_LONG_BITS== 32 ))||new_error){ +if(qbevent){evnt(24018);if(r)goto S_32410;} +S_32411:; +if (((*_FUNC_ID2SHORTTYPENAME_LONG_T&*__LONG_ISUNSIGNED))||new_error){ +if(qbevent){evnt(24019);if(r)goto S_32411;} +do{ +qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("ULONG",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24019);}while(r); +}else{ +do{ +qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("LONG",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24019);}while(r); +} +} +S_32417:; +if ((-(*_FUNC_ID2SHORTTYPENAME_LONG_BITS== 64 ))||new_error){ +if(qbevent){evnt(24021);if(r)goto S_32417;} +S_32418:; +if (((*_FUNC_ID2SHORTTYPENAME_LONG_T&*__LONG_ISUNSIGNED))||new_error){ +if(qbevent){evnt(24022);if(r)goto S_32418;} +do{ +qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("_UINTEGER64",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24022);}while(r); +}else{ +do{ +qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_A,qbs_new_txt_len("_INTEGER64",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24022);}while(r); +} +} +} +do{ +qbs_set(_FUNC_ID2SHORTTYPENAME_STRING_ID2SHORTTYPENAME,_FUNC_ID2SHORTTYPENAME_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24025);}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free62.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_ID2SHORTTYPENAME_STRING_ID2SHORTTYPENAME);return _FUNC_ID2SHORTTYPENAME_STRING_ID2SHORTTYPENAME; +} +qbs* FUNC_SYMBOL2FULLTYPENAME(qbs*_FUNC_SYMBOL2FULLTYPENAME_STRING_S2){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data63.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_S,_FUNC_SYMBOL2FULLTYPENAME_STRING_S2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24030);}while(r); +S_32427:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_SYMBOL2FULLTYPENAME_STRING_S, 1 ),qbs_new_txt_len("~",1))))||new_error){ +if(qbevent){evnt(24032);if(r)goto S_32427;} +do{ +*_FUNC_SYMBOL2FULLTYPENAME_LONG_U= 1 ; +if(!qbevent)break;evnt(24033);}while(r); +S_32429:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_SYMBOL2FULLTYPENAME_STRING_TYP->len== 1 )))||new_error){ +if(qbevent){evnt(24034);if(r)goto S_32429;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected ~...",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24034);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(24034);}while(r); +} +do{ +qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_S,qbs_right(_FUNC_SYMBOL2FULLTYPENAME_STRING_S,_FUNC_SYMBOL2FULLTYPENAME_STRING_S->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24035);}while(r); +do{ +qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_U,qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("UNSIGNED ",9))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24036);}while(r); +} +S_32436:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_SYMBOL2FULLTYPENAME_STRING_S,qbs_new_txt_len("%%",2))))||new_error){ +if(qbevent){evnt(24039);if(r)goto S_32436;} +do{ +qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_T,qbs_add(qbs_add(_FUNC_SYMBOL2FULLTYPENAME_STRING_U,__STRING_QB64PREFIX),qbs_new_txt_len("BYTE",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24039);}while(r); +do{ +goto LABEL_GOTSYM2TYP; +if(!qbevent)break;evnt(24039);}while(r); +} +S_32440:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_SYMBOL2FULLTYPENAME_STRING_S,qbs_new_txt_len("%",1))))||new_error){ +if(qbevent){evnt(24040);if(r)goto S_32440;} +do{ +qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_T,qbs_add(_FUNC_SYMBOL2FULLTYPENAME_STRING_U,qbs_new_txt_len("INTEGER",7))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24040);}while(r); +do{ +goto LABEL_GOTSYM2TYP; +if(!qbevent)break;evnt(24040);}while(r); +} +S_32444:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_SYMBOL2FULLTYPENAME_STRING_S,qbs_new_txt_len("&",1))))||new_error){ +if(qbevent){evnt(24041);if(r)goto S_32444;} +do{ +qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_T,qbs_add(_FUNC_SYMBOL2FULLTYPENAME_STRING_U,qbs_new_txt_len("LONG",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24041);}while(r); +do{ +goto LABEL_GOTSYM2TYP; +if(!qbevent)break;evnt(24041);}while(r); +} +S_32448:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_SYMBOL2FULLTYPENAME_STRING_S,qbs_new_txt_len("&&",2))))||new_error){ +if(qbevent){evnt(24042);if(r)goto S_32448;} +do{ +qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_T,qbs_add(qbs_add(_FUNC_SYMBOL2FULLTYPENAME_STRING_U,__STRING_QB64PREFIX),qbs_new_txt_len("INTEGER64",9))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24042);}while(r); +do{ +goto LABEL_GOTSYM2TYP; +if(!qbevent)break;evnt(24042);}while(r); +} +S_32452:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_SYMBOL2FULLTYPENAME_STRING_S,qbs_new_txt_len("%&",2))))||new_error){ +if(qbevent){evnt(24043);if(r)goto S_32452;} +do{ +qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_T,qbs_add(qbs_add(_FUNC_SYMBOL2FULLTYPENAME_STRING_U,__STRING_QB64PREFIX),qbs_new_txt_len("OFFSET",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24043);}while(r); +do{ +goto LABEL_GOTSYM2TYP; +if(!qbevent)break;evnt(24043);}while(r); +} +S_32456:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_SYMBOL2FULLTYPENAME_STRING_S, 1 ),qbs_new_txt_len("`",1))))||new_error){ +if(qbevent){evnt(24045);if(r)goto S_32456;} +S_32457:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_SYMBOL2FULLTYPENAME_STRING_S->len== 1 )))||new_error){ +if(qbevent){evnt(24046);if(r)goto S_32457;} +do{ +qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_T,qbs_add(qbs_add(_FUNC_SYMBOL2FULLTYPENAME_STRING_U,__STRING_QB64PREFIX),qbs_new_txt_len("BIT * 1",7))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24047);}while(r); +do{ +goto LABEL_GOTSYM2TYP; +if(!qbevent)break;evnt(24048);}while(r); +} +do{ +qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_N,qbs_right(_FUNC_SYMBOL2FULLTYPENAME_STRING_S,_FUNC_SYMBOL2FULLTYPENAME_STRING_S->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24050);}while(r); +S_32462:; +if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISUINTEGER(_FUNC_SYMBOL2FULLTYPENAME_STRING_N)== 0 )))||new_error){ +if(qbevent){evnt(24051);if(r)goto S_32462;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected number after symbol `",30)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24051);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(24051);}while(r); +} +do{ +qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_T,qbs_add(qbs_add(qbs_add(_FUNC_SYMBOL2FULLTYPENAME_STRING_U,__STRING_QB64PREFIX),qbs_new_txt_len("BIT * ",6)),_FUNC_SYMBOL2FULLTYPENAME_STRING_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24052);}while(r); +do{ +goto LABEL_GOTSYM2TYP; +if(!qbevent)break;evnt(24053);}while(r); +} +S_32469:; +if ((-(*_FUNC_SYMBOL2FULLTYPENAME_LONG_U== 1 ))||new_error){ +if(qbevent){evnt(24056);if(r)goto S_32469;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected type symbol after ~",28)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24056);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(24056);}while(r); +} +S_32473:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_SYMBOL2FULLTYPENAME_STRING_S,qbs_new_txt_len("!",1))))||new_error){ +if(qbevent){evnt(24058);if(r)goto S_32473;} +do{ +qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_T,qbs_new_txt_len("SINGLE",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24058);}while(r); +do{ +goto LABEL_GOTSYM2TYP; +if(!qbevent)break;evnt(24058);}while(r); +} +S_32477:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_SYMBOL2FULLTYPENAME_STRING_S,qbs_new_txt_len("#",1))))||new_error){ +if(qbevent){evnt(24059);if(r)goto S_32477;} +do{ +qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_T,qbs_new_txt_len("DOUBLE",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24059);}while(r); +do{ +goto LABEL_GOTSYM2TYP; +if(!qbevent)break;evnt(24059);}while(r); +} +S_32481:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_SYMBOL2FULLTYPENAME_STRING_S,qbs_new_txt_len("##",2))))||new_error){ +if(qbevent){evnt(24060);if(r)goto S_32481;} +do{ +qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_T,qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("FLOAT",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24060);}while(r); +do{ +goto LABEL_GOTSYM2TYP; +if(!qbevent)break;evnt(24060);}while(r); +} +S_32485:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_SYMBOL2FULLTYPENAME_STRING_S,qbs_new_txt_len("$",1))))||new_error){ +if(qbevent){evnt(24061);if(r)goto S_32485;} +do{ +qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_T,qbs_new_txt_len("STRING",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24061);}while(r); +do{ +goto LABEL_GOTSYM2TYP; +if(!qbevent)break;evnt(24061);}while(r); +} +S_32489:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_SYMBOL2FULLTYPENAME_STRING_S, 1 ),qbs_new_txt_len("$",1))))||new_error){ +if(qbevent){evnt(24063);if(r)goto S_32489;} +do{ +qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_N,qbs_right(_FUNC_SYMBOL2FULLTYPENAME_STRING_S,_FUNC_SYMBOL2FULLTYPENAME_STRING_S->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24064);}while(r); +S_32491:; +if ((qbs_cleanup(qbs_tmp_base,-(FUNC_ISUINTEGER(_FUNC_SYMBOL2FULLTYPENAME_STRING_N)== 0 )))||new_error){ +if(qbevent){evnt(24065);if(r)goto S_32491;} +do{ +SUB_GIVE_ERROR(qbs_new_txt_len("Expected number after symbol $",30)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24065);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(24065);}while(r); +} +do{ +qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_T,qbs_add(qbs_new_txt_len("STRING * ",9),_FUNC_SYMBOL2FULLTYPENAME_STRING_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24066);}while(r); +do{ +goto LABEL_GOTSYM2TYP; +if(!qbevent)break;evnt(24067);}while(r); +} +do{ +qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_T,_FUNC_SYMBOL2FULLTYPENAME_STRING_S); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24070);}while(r); +LABEL_GOTSYM2TYP:; +if(qbevent){evnt(24072);r=0;} +S_32499:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(qbs_add(qbs_new_txt_len(" ",1),_FUNC_SYMBOL2FULLTYPENAME_STRING_T), 5 ),qbs_new_txt_len(" _BIT",5))))||new_error){ +if(qbevent){evnt(24074);if(r)goto S_32499;} +do{ +qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_T,qbs_add(_FUNC_SYMBOL2FULLTYPENAME_STRING_T,qbs_new_txt_len(" * 1",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24074);}while(r); +} +S_32502:; +fornext_value3476= 1 ; +fornext_finalvalue3476=_FUNC_SYMBOL2FULLTYPENAME_STRING_T->len; +fornext_step3476= 1 ; +if (fornext_step3476<0) fornext_step_negative3476=1; else fornext_step_negative3476=0; +if (new_error) goto fornext_error3476; +goto fornext_entrylabel3476; +while(1){ +fornext_value3476=fornext_step3476+(*_FUNC_SYMBOL2FULLTYPENAME_LONG_I); +fornext_entrylabel3476: +*_FUNC_SYMBOL2FULLTYPENAME_LONG_I=fornext_value3476; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative3476){ +if (fornext_value3476fornext_finalvalue3476) break; +} +fornext_error3476:; +if(qbevent){evnt(24076);if(r)goto S_32502;} +S_32503:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_SYMBOL2FULLTYPENAME_STRING_T,*_FUNC_SYMBOL2FULLTYPENAME_LONG_I)==qbs_asc(__STRING1_SP))))||new_error){ +if(qbevent){evnt(24077);if(r)goto S_32503;} +do{ +tqbs=_FUNC_SYMBOL2FULLTYPENAME_STRING_T; if (!new_error){ +tmp_fileno=*_FUNC_SYMBOL2FULLTYPENAME_LONG_I; if (!new_error){ +tmp_long= 32 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(24077);}while(r); +} +fornext_continue_3475:; +} +fornext_exit_3475:; +do{ +qbs_set(_FUNC_SYMBOL2FULLTYPENAME_STRING_SYMBOL2FULLTYPENAME,_FUNC_SYMBOL2FULLTYPENAME_STRING_T); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24080);}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free63.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_SYMBOL2FULLTYPENAME_STRING_SYMBOL2FULLTYPENAME);return _FUNC_SYMBOL2FULLTYPENAME_STRING_SYMBOL2FULLTYPENAME; +} +void SUB_LINEINPUT3LOAD(qbs*_SUB_LINEINPUT3LOAD_STRING_F){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data64.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +sub_open(_SUB_LINEINPUT3LOAD_STRING_F, 2 ,NULL,NULL, 1 ,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24085);}while(r); +do{ +*_SUB_LINEINPUT3LOAD_LONG_L=func_lof( 1 ); +if(!qbevent)break;evnt(24086);}while(r); +do{ +qbs_set(__STRING_LINEINPUT3BUFFER,func_space(*_SUB_LINEINPUT3LOAD_LONG_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24087);}while(r); +do{ +sub_get2( 1 ,NULL,__STRING_LINEINPUT3BUFFER,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24088);}while(r); +S_32512:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LINEINPUT3BUFFER->len))||new_error){ +if(qbevent){evnt(24089);if(r)goto S_32512;} +S_32513:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(__STRING_LINEINPUT3BUFFER, 1 ),func_chr( 26 ))))||new_error){ +if(qbevent){evnt(24089);if(r)goto S_32513;} +do{ +qbs_set(__STRING_LINEINPUT3BUFFER,qbs_left(__STRING_LINEINPUT3BUFFER,__STRING_LINEINPUT3BUFFER->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24089);}while(r); +} +} +do{ +sub_close( 1 ,1); +if(!qbevent)break;evnt(24090);}while(r); +do{ +*__LONG_LINEINPUT3INDEX= 1 ; +if(!qbevent)break;evnt(24091);}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free64.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +qbs* FUNC_LINEINPUT3(){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data65.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +*_FUNC_LINEINPUT3_LONG_L=__STRING_LINEINPUT3BUFFER->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24096);}while(r); +S_32520:; +if ((-(*__LONG_LINEINPUT3INDEX>*_FUNC_LINEINPUT3_LONG_L))||new_error){ +if(qbevent){evnt(24097);if(r)goto S_32520;} +do{ +qbs_set(_FUNC_LINEINPUT3_STRING_LINEINPUT3,func_chr( 13 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24097);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(24097);}while(r); +} +do{ +*_FUNC_LINEINPUT3_LONG_C13=func_instr(*__LONG_LINEINPUT3INDEX,__STRING_LINEINPUT3BUFFER,func_chr( 13 ),0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24098);}while(r); +do{ +*_FUNC_LINEINPUT3_LONG_C10=func_instr(*__LONG_LINEINPUT3INDEX,__STRING_LINEINPUT3BUFFER,func_chr( 10 ),0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24099);}while(r); +S_32526:; +if (((-(*_FUNC_LINEINPUT3_LONG_C10== 0 ))&(-(*_FUNC_LINEINPUT3_LONG_C13== 0 )))||new_error){ +if(qbevent){evnt(24100);if(r)goto S_32526;} +do{ +qbs_set(_FUNC_LINEINPUT3_STRING_LINEINPUT3,func_mid(__STRING_LINEINPUT3BUFFER,*__LONG_LINEINPUT3INDEX,*_FUNC_LINEINPUT3_LONG_L-*__LONG_LINEINPUT3INDEX+ 1 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24101);}while(r); +do{ +*__LONG_LINEINPUT3INDEX=*_FUNC_LINEINPUT3_LONG_L+ 1 ; +if(!qbevent)break;evnt(24102);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(24103);}while(r); +} +S_32531:; +if ((-(*_FUNC_LINEINPUT3_LONG_C10== 0 ))||new_error){ +if(qbevent){evnt(24105);if(r)goto S_32531;} +do{ +*_FUNC_LINEINPUT3_LONG_C10= 2147483647 ; +if(!qbevent)break;evnt(24105);}while(r); +} +S_32534:; +if ((-(*_FUNC_LINEINPUT3_LONG_C13== 0 ))||new_error){ +if(qbevent){evnt(24106);if(r)goto S_32534;} +do{ +*_FUNC_LINEINPUT3_LONG_C13= 2147483647 ; +if(!qbevent)break;evnt(24106);}while(r); +} +S_32537:; +if ((-(*_FUNC_LINEINPUT3_LONG_C10<*_FUNC_LINEINPUT3_LONG_C13))||new_error){ +if(qbevent){evnt(24107);if(r)goto S_32537;} +do{ +qbs_set(_FUNC_LINEINPUT3_STRING_LINEINPUT3,func_mid(__STRING_LINEINPUT3BUFFER,*__LONG_LINEINPUT3INDEX,*_FUNC_LINEINPUT3_LONG_C10-*__LONG_LINEINPUT3INDEX,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24109);}while(r); +do{ +*__LONG_LINEINPUT3INDEX=*_FUNC_LINEINPUT3_LONG_C10+ 1 ; +if(!qbevent)break;evnt(24110);}while(r); +S_32540:; +if ((-(*__LONG_LINEINPUT3INDEX<=*_FUNC_LINEINPUT3_LONG_L))||new_error){ +if(qbevent){evnt(24111);if(r)goto S_32540;} +S_32541:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(func_mid(__STRING_LINEINPUT3BUFFER,*__LONG_LINEINPUT3INDEX, 1 ,0|1))== 13 )))||new_error){ +if(qbevent){evnt(24112);if(r)goto S_32541;} +do{ +*__LONG_LINEINPUT3INDEX=*__LONG_LINEINPUT3INDEX+ 1 ; +if(!qbevent)break;evnt(24112);}while(r); +} +} +}else{ +do{ +qbs_set(_FUNC_LINEINPUT3_STRING_LINEINPUT3,func_mid(__STRING_LINEINPUT3BUFFER,*__LONG_LINEINPUT3INDEX,*_FUNC_LINEINPUT3_LONG_C13-*__LONG_LINEINPUT3INDEX,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24116);}while(r); +do{ +*__LONG_LINEINPUT3INDEX=*_FUNC_LINEINPUT3_LONG_C13+ 1 ; +if(!qbevent)break;evnt(24117);}while(r); +S_32548:; +if ((-(*__LONG_LINEINPUT3INDEX<=*_FUNC_LINEINPUT3_LONG_L))||new_error){ +if(qbevent){evnt(24118);if(r)goto S_32548;} +S_32549:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(func_mid(__STRING_LINEINPUT3BUFFER,*__LONG_LINEINPUT3INDEX, 1 ,0|1))== 10 )))||new_error){ +if(qbevent){evnt(24119);if(r)goto S_32549;} +do{ +*__LONG_LINEINPUT3INDEX=*__LONG_LINEINPUT3INDEX+ 1 ; +if(!qbevent)break;evnt(24119);}while(r); +} +} +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free65.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_LINEINPUT3_STRING_LINEINPUT3);return _FUNC_LINEINPUT3_STRING_LINEINPUT3; +} +qbs* FUNC_ELEUCASE(qbs*_FUNC_ELEUCASE_STRING_A){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data66.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +S_32554:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_ELEUCASE_STRING_A->len== 0 )))||new_error){ +if(qbevent){evnt(24127);if(r)goto S_32554;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(24127);}while(r); +} +do{ +*_FUNC_ELEUCASE_LONG_I= 1 ; +if(!qbevent)break;evnt(24128);}while(r); +S_32558:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_ELEUCASE_STRING_A)== 34 )))||new_error){ +if(qbevent){evnt(24129);if(r)goto S_32558;} +do{ +*_FUNC_ELEUCASE_LONG_I2=func_instr(NULL,_FUNC_ELEUCASE_STRING_A,__STRING1_SP,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24130);}while(r); +S_32560:; +if ((-(*_FUNC_ELEUCASE_LONG_I2== 0 ))||new_error){ +if(qbevent){evnt(24131);if(r)goto S_32560;} +do{ +qbs_set(_FUNC_ELEUCASE_STRING_ELEUCASE,_FUNC_ELEUCASE_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24131);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(24131);}while(r); +} +do{ +qbs_set(_FUNC_ELEUCASE_STRING_A2,qbs_left(_FUNC_ELEUCASE_STRING_A,*_FUNC_ELEUCASE_LONG_I2- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24132);}while(r); +do{ +*_FUNC_ELEUCASE_LONG_I=*_FUNC_ELEUCASE_LONG_I2; +if(!qbevent)break;evnt(24133);}while(r); +} +do{ +qbs_set(_FUNC_ELEUCASE_STRING_SP34,qbs_add(__STRING1_SP,func_chr( 34 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24136);}while(r); +S_32568:; +if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_ELEUCASE_LONG_I<_FUNC_ELEUCASE_STRING_A->len)))||new_error){ +if(qbevent){evnt(24137);if(r)goto S_32568;} +S_32569:; +while((qbs_cleanup(qbs_tmp_base,func_instr(*_FUNC_ELEUCASE_LONG_I,_FUNC_ELEUCASE_STRING_A,_FUNC_ELEUCASE_STRING_SP34,0|1)))||new_error){ +if(qbevent){evnt(24138);if(r)goto S_32569;} +do{ +*_FUNC_ELEUCASE_LONG_I2=func_instr(*_FUNC_ELEUCASE_LONG_I,_FUNC_ELEUCASE_STRING_A,_FUNC_ELEUCASE_STRING_SP34,0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24139);}while(r); +do{ +qbs_set(_FUNC_ELEUCASE_STRING_A2,qbs_add(_FUNC_ELEUCASE_STRING_A2,qbs_ucase(func_mid(_FUNC_ELEUCASE_STRING_A,*_FUNC_ELEUCASE_LONG_I,*_FUNC_ELEUCASE_LONG_I2-*_FUNC_ELEUCASE_LONG_I+ 1 ,0|1)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24140);}while(r); +do{ +*_FUNC_ELEUCASE_LONG_I3=func_instr(*_FUNC_ELEUCASE_LONG_I2+ 1 ,_FUNC_ELEUCASE_STRING_A,__STRING1_SP,0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24141);}while(r); +S_32573:; +if ((-(*_FUNC_ELEUCASE_LONG_I3== 0 ))||new_error){ +if(qbevent){evnt(24141);if(r)goto S_32573;} +do{ +*_FUNC_ELEUCASE_LONG_I3=_FUNC_ELEUCASE_STRING_A->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24141);}while(r); +}else{ +do{ +*_FUNC_ELEUCASE_LONG_I3=*_FUNC_ELEUCASE_LONG_I3- 1 ; +if(!qbevent)break;evnt(24141);}while(r); +} +do{ +qbs_set(_FUNC_ELEUCASE_STRING_A2,qbs_add(_FUNC_ELEUCASE_STRING_A2,func_mid(_FUNC_ELEUCASE_STRING_A,*_FUNC_ELEUCASE_LONG_I2+ 1 ,*_FUNC_ELEUCASE_LONG_I3-(*_FUNC_ELEUCASE_LONG_I2+ 1 )+ 1 ,0|1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24142);}while(r); +do{ +*_FUNC_ELEUCASE_LONG_I=*_FUNC_ELEUCASE_LONG_I3+ 1 ; +if(!qbevent)break;evnt(24143);}while(r); +S_32580:; +if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_ELEUCASE_LONG_I>_FUNC_ELEUCASE_STRING_A->len)))||new_error){ +if(qbevent){evnt(24144);if(r)goto S_32580;} +do{ +goto dl_exit_3485; +if(!qbevent)break;evnt(24144);}while(r); +} +dl_continue_3485:; +} +dl_exit_3485:; +} +do{ +qbs_set(_FUNC_ELEUCASE_STRING_A2,qbs_add(_FUNC_ELEUCASE_STRING_A2,qbs_ucase(func_mid(_FUNC_ELEUCASE_STRING_A,*_FUNC_ELEUCASE_LONG_I,_FUNC_ELEUCASE_STRING_A->len-*_FUNC_ELEUCASE_LONG_I+ 1 ,0|1)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24147);}while(r); +do{ +qbs_set(_FUNC_ELEUCASE_STRING_ELEUCASE,_FUNC_ELEUCASE_STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24148);}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free66.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_ELEUCASE_STRING_ELEUCASE);return _FUNC_ELEUCASE_STRING_ELEUCASE; +} +void SUB_SETDEPENDENCY(int32*_SUB_SETDEPENDENCY_LONG_REQUIREMENT){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data67.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +S_32587:; +if ((*_SUB_SETDEPENDENCY_LONG_REQUIREMENT)||new_error){ +if(qbevent){evnt(24153);if(r)goto S_32587;} +do{ +tmp_long=array_check((*_SUB_SETDEPENDENCY_LONG_REQUIREMENT)-__ARRAY_LONG_DEPENDENCY[4],__ARRAY_LONG_DEPENDENCY[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_DEPENDENCY[0]))[tmp_long]= 1 ; +if(!qbevent)break;evnt(24154);}while(r); +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free67.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +qbs* FUNC_EVALUATE_EXPRESSION(qbs*_FUNC_EVALUATE_EXPRESSION_STRING_E){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data68.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +qbs_set(_FUNC_EVALUATE_EXPRESSION_STRING_T,_FUNC_EVALUATE_EXPRESSION_STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24160);}while(r); +do{ +SUB_PREPARSE(_FUNC_EVALUATE_EXPRESSION_STRING_T); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24161);}while(r); +S_32592:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_EVALUATE_EXPRESSION_STRING_T, 5 ),qbs_new_txt_len("ERROR",5))))||new_error){ +if(qbevent){evnt(24164);if(r)goto S_32592;} +do{ +qbs_set(_FUNC_EVALUATE_EXPRESSION_STRING_EVALUATE_EXPRESSION,_FUNC_EVALUATE_EXPRESSION_STRING_T); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24164);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(24164);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATE_EXPRESSION_STRING_EXP,qbs_add(qbs_add(qbs_new_txt_len("(",1),_FUNC_EVALUATE_EXPRESSION_STRING_T),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24167);}while(r); +S_32597:; +do{ +if(qbevent){evnt(24169);if(r)goto S_32597;} +do{ +*_FUNC_EVALUATE_EXPRESSION_LONG_EVAL_E=func_instr(NULL,_FUNC_EVALUATE_EXPRESSION_STRING_EXP,qbs_new_txt_len(")",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24170);}while(r); +S_32599:; +if ((-(*_FUNC_EVALUATE_EXPRESSION_LONG_EVAL_E> 0 ))||new_error){ +if(qbevent){evnt(24171);if(r)goto S_32599;} +do{ +*_FUNC_EVALUATE_EXPRESSION_LONG_C= 0 ; +if(!qbevent)break;evnt(24172);}while(r); +S_32601:; +while((!(-((*_FUNC_EVALUATE_EXPRESSION_LONG_EVAL_E-*_FUNC_EVALUATE_EXPRESSION_LONG_C)<=( 0 ))))||new_error){ +if(qbevent){evnt(24173);if(r)goto S_32601;} +do{ +*_FUNC_EVALUATE_EXPRESSION_LONG_C=*_FUNC_EVALUATE_EXPRESSION_LONG_C+ 1 ; +if(!qbevent)break;evnt(24174);}while(r); +S_32603:; +if ((*_FUNC_EVALUATE_EXPRESSION_LONG_EVAL_E)||new_error){ +if(qbevent){evnt(24175);if(r)goto S_32603;} +S_32604:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_EVALUATE_EXPRESSION_STRING_EXP,*_FUNC_EVALUATE_EXPRESSION_LONG_EVAL_E-*_FUNC_EVALUATE_EXPRESSION_LONG_C, 1 ,0|1),qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(24176);if(r)goto S_32604;} +do{ +goto dl_exit_3491; +if(!qbevent)break;evnt(24176);}while(r); +} +} +dl_continue_3491:; +} +dl_exit_3491:; +do{ +*_FUNC_EVALUATE_EXPRESSION_LONG_S=*_FUNC_EVALUATE_EXPRESSION_LONG_EVAL_E-*_FUNC_EVALUATE_EXPRESSION_LONG_C+ 1 ; +if(!qbevent)break;evnt(24179);}while(r); +S_32610:; +if ((-(*_FUNC_EVALUATE_EXPRESSION_LONG_S< 1 ))||new_error){ +if(qbevent){evnt(24180);if(r)goto S_32610;} +do{ +qbs_set(_FUNC_EVALUATE_EXPRESSION_STRING_EVALUATE_EXPRESSION,qbs_new_txt_len("ERROR -- BAD () Count",21)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24180);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(24180);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATE_EXPRESSION_STRING_EVAL,qbs_add(qbs_add(qbs_new_txt_len(" ",1),func_mid(_FUNC_EVALUATE_EXPRESSION_STRING_EXP,*_FUNC_EVALUATE_EXPRESSION_LONG_S,*_FUNC_EVALUATE_EXPRESSION_LONG_EVAL_E-*_FUNC_EVALUATE_EXPRESSION_LONG_S,0|1)),qbs_new_txt_len(" ",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24181);}while(r); +do{ +SUB_PARSEEXPRESSION(_FUNC_EVALUATE_EXPRESSION_STRING_EVAL); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24183);}while(r); +do{ +qbs_set(_FUNC_EVALUATE_EXPRESSION_STRING_EVAL,qbs_ltrim(qbs_rtrim(_FUNC_EVALUATE_EXPRESSION_STRING_EVAL))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24184);}while(r); +S_32617:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_EVALUATE_EXPRESSION_STRING_EVAL, 5 ),qbs_new_txt_len("ERROR",5))))||new_error){ +if(qbevent){evnt(24185);if(r)goto S_32617;} +do{ +qbs_set(_FUNC_EVALUATE_EXPRESSION_STRING_EVALUATE_EXPRESSION,_FUNC_EVALUATE_EXPRESSION_STRING_EVAL); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24185);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(24185);}while(r); +} +do{ +qbs_set(_FUNC_EVALUATE_EXPRESSION_STRING_EXP,FUNC_DWD(qbs_add(qbs_add(qbs_left(_FUNC_EVALUATE_EXPRESSION_STRING_EXP,*_FUNC_EVALUATE_EXPRESSION_LONG_S- 2 ),_FUNC_EVALUATE_EXPRESSION_STRING_EVAL),func_mid(_FUNC_EVALUATE_EXPRESSION_STRING_EXP,*_FUNC_EVALUATE_EXPRESSION_LONG_EVAL_E+ 1 ,NULL,0)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24186);}while(r); +S_32622:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_EVALUATE_EXPRESSION_STRING_EXP, 1 , 1 ,0|1),qbs_new_txt_len("N",1))))||new_error){ +if(qbevent){evnt(24187);if(r)goto S_32622;} +do{ +sub_mid(_FUNC_EVALUATE_EXPRESSION_STRING_EXP, 1 ,0,qbs_new_txt_len("-",1),0); +if(!qbevent)break;evnt(24187);}while(r); +} +} +S_32626:; +dl_continue_3490:; +}while((!(-(*_FUNC_EVALUATE_EXPRESSION_LONG_EVAL_E== 0 )))&&(!new_error)); +dl_exit_3490:; +if(qbevent){evnt(24189);if(r)goto S_32626;} +do{ +*_FUNC_EVALUATE_EXPRESSION_LONG_C= 0 ; +if(!qbevent)break;evnt(24190);}while(r); +S_32628:; +do{ +if(qbevent){evnt(24191);if(r)goto S_32628;} +do{ +*_FUNC_EVALUATE_EXPRESSION_LONG_C=*_FUNC_EVALUATE_EXPRESSION_LONG_C+ 1 ; +if(!qbevent)break;evnt(24192);}while(r); +S_32630:; +qbs_set(sc_3493,func_mid(_FUNC_EVALUATE_EXPRESSION_STRING_EXP,*_FUNC_EVALUATE_EXPRESSION_LONG_C, 1 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(qbevent){evnt(24193);if(r)goto S_32630;} +S_32631:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_greaterorequal(sc_3493,qbs_new_txt_len("0",1))&&qbs_lessorequal(sc_3493,qbs_new_txt_len("9",1)))||qbs_equal(sc_3493,qbs_new_txt_len(".",1))||qbs_equal(sc_3493,qbs_new_txt_len("-",1))))||new_error){ +if(qbevent){evnt(24194);if(r)goto S_32631;} +sc_ec_77_end:; +goto sc_3493_end; +} +do{ +qbs_set(_FUNC_EVALUATE_EXPRESSION_STRING_EVALUATE_EXPRESSION,qbs_add(qbs_add(qbs_new_txt_len("ERROR - Unknown Diagnosis: (",28),_FUNC_EVALUATE_EXPRESSION_STRING_EXP),qbs_new_txt_len(") ",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24195);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(24195);}while(r); +sc_3493_end:; +S_32636:; +dl_continue_3492:; +}while((!(qbs_cleanup(qbs_tmp_base,-(*_FUNC_EVALUATE_EXPRESSION_LONG_C>=_FUNC_EVALUATE_EXPRESSION_STRING_EXP->len))))&&(!new_error)); +dl_exit_3492:; +if(qbevent){evnt(24197);if(r)goto S_32636;} +do{ +qbs_set(_FUNC_EVALUATE_EXPRESSION_STRING_EVALUATE_EXPRESSION,_FUNC_EVALUATE_EXPRESSION_STRING_EXP); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24199);}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free68.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_EVALUATE_EXPRESSION_STRING_EVALUATE_EXPRESSION);return _FUNC_EVALUATE_EXPRESSION_STRING_EVALUATE_EXPRESSION; +} +void SUB_PARSEEXPRESSION(qbs*_SUB_PARSEEXPRESSION_STRING_EXP){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data69.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ if (_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[2]&2){ error(10); @@ -106579,392 +106579,392 @@ while(tmp_long--) ((uint64*)(_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[0]))[tmp_long while(tmp_long--) ((uint64*)(_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -} -if(!qbevent)break;evnt(24205);}while(r); -do{ -qbs_set(_SUB_PARSEEXPRESSION_STRING_EXP,FUNC_DWD(_SUB_PARSEEXPRESSION_STRING_EXP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24207);}while(r); -S_32640:; -fornext_value3497= 1 ; -fornext_finalvalue3497= 250 ; -fornext_step3497= 1 ; -if (fornext_step3497<0) fornext_step_negative3497=1; else fornext_step_negative3497=0; -if (new_error) goto fornext_error3497; -goto fornext_entrylabel3497; -while(1){ -fornext_value3497=fornext_step3497+(*_SUB_PARSEEXPRESSION_LONG_J); -fornext_entrylabel3497: -*_SUB_PARSEEXPRESSION_LONG_J=fornext_value3497; -if (fornext_step_negative3497){ -if (fornext_value3497fornext_finalvalue3497) break; -} -fornext_error3497:; -if(qbevent){evnt(24210);if(r)goto S_32640;} -do{ -*_SUB_PARSEEXPRESSION_LONG_LOWEST= 0 ; -if(!qbevent)break;evnt(24211);}while(r); -S_32642:; -while((!(qbs_cleanup(qbs_tmp_base,-(*_SUB_PARSEEXPRESSION_LONG_LOWEST==_SUB_PARSEEXPRESSION_STRING_EXP->len))))||new_error){ -if(qbevent){evnt(24212);if(r)goto S_32642;} -do{ -*_SUB_PARSEEXPRESSION_LONG_LOWEST=_SUB_PARSEEXPRESSION_STRING_EXP->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24213);}while(r); -do{ -*_SUB_PARSEEXPRESSION_LONG_OPON= 0 ; -if(!qbevent)break;evnt(24213);}while(r); -S_32645:; -fornext_value3502= 1 ; -fornext_finalvalue3502=func_ubound(__ARRAY_STRING_ONAME,1,1); -fornext_step3502= 1 ; -if (fornext_step3502<0) fornext_step_negative3502=1; else fornext_step_negative3502=0; -if (new_error) goto fornext_error3502; -goto fornext_entrylabel3502; -while(1){ -fornext_value3502=fornext_step3502+(*_SUB_PARSEEXPRESSION_LONG_P); -fornext_entrylabel3502: -*_SUB_PARSEEXPRESSION_LONG_P=fornext_value3502; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative3502){ -if (fornext_value3502fornext_finalvalue3502) break; -} -fornext_error3502:; -if(qbevent){evnt(24214);if(r)goto S_32645;} -S_32646:; -if ((-(*_SUB_PARSEEXPRESSION_LONG_J==((int16*)(__ARRAY_INTEGER_PL[0]))[array_check((*_SUB_PARSEEXPRESSION_LONG_P)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5])]))||new_error){ -if(qbevent){evnt(24216);if(r)goto S_32646;} -S_32647:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_PARSEEXPRESSION_STRING_EXP, 1 ),qbs_new_txt_len("-",1))))||new_error){ -if(qbevent){evnt(24217);if(r)goto S_32647;} -do{ -*_SUB_PARSEEXPRESSION_LONG_STARTAT= 2 ; -if(!qbevent)break;evnt(24217);}while(r); -}else{ -do{ -*_SUB_PARSEEXPRESSION_LONG_STARTAT= 1 ; -if(!qbevent)break;evnt(24217);}while(r); -} -do{ -*_SUB_PARSEEXPRESSION_LONG_OP=func_instr(*_SUB_PARSEEXPRESSION_LONG_STARTAT,_SUB_PARSEEXPRESSION_STRING_EXP,((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_PARSEEXPRESSION_LONG_P)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])])),0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24218);}while(r); -S_32653:; -if ((qbs_cleanup(qbs_tmp_base,(-(*_SUB_PARSEEXPRESSION_LONG_OP== 0 ))&(qbs_equal(qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_PARSEEXPRESSION_LONG_P)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])])), 1 ),qbs_new_txt_len("_",1)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))||new_error){ -if(qbevent){evnt(24219);if(r)goto S_32653;} -do{ -*_SUB_PARSEEXPRESSION_LONG_OP=func_instr(*_SUB_PARSEEXPRESSION_LONG_STARTAT,_SUB_PARSEEXPRESSION_STRING_EXP,func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_PARSEEXPRESSION_LONG_P)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])])), 2 ,NULL,0),0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24221);}while(r); -S_32655:; -if ((-(*_SUB_PARSEEXPRESSION_LONG_OP> 0 ))||new_error){ -if(qbevent){evnt(24222);if(r)goto S_32655;} -do{ -qbs_set(_SUB_PARSEEXPRESSION_STRING_EXP,qbs_add(qbs_add(qbs_left(_SUB_PARSEEXPRESSION_STRING_EXP,*_SUB_PARSEEXPRESSION_LONG_OP- 1 ),qbs_new_txt_len("_",1)),func_mid(_SUB_PARSEEXPRESSION_STRING_EXP,*_SUB_PARSEEXPRESSION_LONG_OP,NULL,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24223);}while(r); -do{ -*_SUB_PARSEEXPRESSION_LONG_LOWEST=*_SUB_PARSEEXPRESSION_LONG_LOWEST+ 1 ; -if(!qbevent)break;evnt(24224);}while(r); -} -} -S_32660:; -if (((-(*_SUB_PARSEEXPRESSION_LONG_OP> 0 ))&(-(*_SUB_PARSEEXPRESSION_LONG_OP<*_SUB_PARSEEXPRESSION_LONG_LOWEST)))||new_error){ -if(qbevent){evnt(24227);if(r)goto S_32660;} -do{ -*_SUB_PARSEEXPRESSION_LONG_LOWEST=*_SUB_PARSEEXPRESSION_LONG_OP; -if(!qbevent)break;evnt(24227);}while(r); -do{ -*_SUB_PARSEEXPRESSION_LONG_OPON=*_SUB_PARSEEXPRESSION_LONG_P; -if(!qbevent)break;evnt(24227);}while(r); -} -} -fornext_continue_3501:; -} -fornext_exit_3501:; -S_32666:; -if ((-(*_SUB_PARSEEXPRESSION_LONG_OPON== 0 ))||new_error){ -if(qbevent){evnt(24230);if(r)goto S_32666;} -do{ -goto dl_exit_3499; -if(!qbevent)break;evnt(24230);}while(r); -} -S_32669:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_PARSEEXPRESSION_STRING_EXP, 1 ),qbs_new_txt_len("-",1))))||new_error){ -if(qbevent){evnt(24231);if(r)goto S_32669;} -do{ -*_SUB_PARSEEXPRESSION_LONG_STARTAT= 2 ; -if(!qbevent)break;evnt(24231);}while(r); -}else{ -do{ -*_SUB_PARSEEXPRESSION_LONG_STARTAT= 1 ; -if(!qbevent)break;evnt(24231);}while(r); -} -do{ -*_SUB_PARSEEXPRESSION_LONG_OP=func_instr(*_SUB_PARSEEXPRESSION_LONG_STARTAT,_SUB_PARSEEXPRESSION_STRING_EXP,((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_PARSEEXPRESSION_LONG_OPON)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])])),0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24232);}while(r); -do{ -*_SUB_PARSEEXPRESSION_LONG_NUMSET= 0 ; -if(!qbevent)break;evnt(24234);}while(r); -S_32676:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_PARSEEXPRESSION_LONG_OPON)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])])),qbs_new_txt_len("-",1))))||new_error){ -if(qbevent){evnt(24237);if(r)goto S_32676;} -S_32677:; -qbs_set(sc_3503,func_mid(_SUB_PARSEEXPRESSION_STRING_EXP,*_SUB_PARSEEXPRESSION_LONG_OP- 3 , 3 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(qbevent){evnt(24238);if(r)goto S_32677;} -S_32678:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3503,qbs_new_txt_len("NOT",3))||qbs_equal(sc_3503,qbs_new_txt_len("XOR",3))||qbs_equal(sc_3503,qbs_new_txt_len("AND",3))||qbs_equal(sc_3503,qbs_new_txt_len("EQV",3))||qbs_equal(sc_3503,qbs_new_txt_len("IMP",3))))||new_error){ -if(qbevent){evnt(24239);if(r)goto S_32678;} -do{ -goto dl_exit_3499; -if(!qbevent)break;evnt(24240);}while(r); -sc_ec_78_end:; -goto sc_3503_end; -} -sc_3503_end:; -S_32681:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_SUB_PARSEEXPRESSION_STRING_EXP,*_SUB_PARSEEXPRESSION_LONG_OP- 3 , 2 ,0|1),qbs_new_txt_len("OR",2))))||new_error){ -if(qbevent){evnt(24242);if(r)goto S_32681;} -do{ -goto dl_exit_3499; -if(!qbevent)break;evnt(24242);}while(r); -} -} -S_32685:; -if ((*_SUB_PARSEEXPRESSION_LONG_OP)||new_error){ -if(qbevent){evnt(24245);if(r)goto S_32685;} -do{ -*_SUB_PARSEEXPRESSION_LONG_C=((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_PARSEEXPRESSION_LONG_OPON)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])]))->len- 1 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24246);}while(r); -S_32687:; -do{ -if(qbevent){evnt(24247);if(r)goto S_32687;} -S_32688:; -qbs_set(sc_3506,func_mid(_SUB_PARSEEXPRESSION_STRING_EXP,*_SUB_PARSEEXPRESSION_LONG_OP+*_SUB_PARSEEXPRESSION_LONG_C+ 1 , 1 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(qbevent){evnt(24248);if(r)goto S_32688;} -S_32689:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3506,qbs_new_txt_len("0",1))||qbs_equal(sc_3506,qbs_new_txt_len("1",1))||qbs_equal(sc_3506,qbs_new_txt_len("2",1))||qbs_equal(sc_3506,qbs_new_txt_len("3",1))||qbs_equal(sc_3506,qbs_new_txt_len("4",1))||qbs_equal(sc_3506,qbs_new_txt_len("5",1))||qbs_equal(sc_3506,qbs_new_txt_len("6",1))||qbs_equal(sc_3506,qbs_new_txt_len("7",1))||qbs_equal(sc_3506,qbs_new_txt_len("8",1))||qbs_equal(sc_3506,qbs_new_txt_len("9",1))||qbs_equal(sc_3506,qbs_new_txt_len(".",1))||qbs_equal(sc_3506,qbs_new_txt_len("N",1))))||new_error){ -if(qbevent){evnt(24249);if(r)goto S_32689;} -do{ -*_SUB_PARSEEXPRESSION_LONG_NUMSET= -1 ; -if(!qbevent)break;evnt(24249);}while(r); -sc_ec_79_end:; -goto sc_3506_end; -} -S_32691:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3506,qbs_new_txt_len("-",1))))||new_error){ -if(qbevent){evnt(24250);if(r)goto S_32691;} -S_32692:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_PARSEEXPRESSION_LONG_OPON)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])])),qbs_new_txt_len("_PI",3)))|*_SUB_PARSEEXPRESSION_LONG_NUMSET))||new_error){ -if(qbevent){evnt(24251);if(r)goto S_32692;} -do{ -goto dl_exit_3505; -if(!qbevent)break;evnt(24251);}while(r); -} -sc_ec_80_end:; -goto sc_3506_end; -} -S_32695:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3506,qbs_new_txt_len(",",1))))||new_error){ -if(qbevent){evnt(24252);if(r)goto S_32695;} -do{ -*_SUB_PARSEEXPRESSION_LONG_NUMSET= 0 ; -if(!qbevent)break;evnt(24252);}while(r); -sc_ec_81_end:; -goto sc_3506_end; -} -do{ -goto dl_exit_3505; -if(!qbevent)break;evnt(24254);}while(r); -sc_3506_end:; -do{ -*_SUB_PARSEEXPRESSION_LONG_C=*_SUB_PARSEEXPRESSION_LONG_C+ 1 ; -if(!qbevent)break;evnt(24256);}while(r); -S_32701:; -dl_continue_3505:; -}while((!(qbs_cleanup(qbs_tmp_base,-((*_SUB_PARSEEXPRESSION_LONG_OP+*_SUB_PARSEEXPRESSION_LONG_C)>=(_SUB_PARSEEXPRESSION_STRING_EXP->len)))))&&(!new_error)); -dl_exit_3505:; -if(qbevent){evnt(24257);if(r)goto S_32701;} -do{ -*__LONG_E=*_SUB_PARSEEXPRESSION_LONG_OP+*_SUB_PARSEEXPRESSION_LONG_C; -if(!qbevent)break;evnt(24258);}while(r); -do{ -*_SUB_PARSEEXPRESSION_LONG_C= 0 ; -if(!qbevent)break;evnt(24260);}while(r); -S_32704:; -do{ -if(qbevent){evnt(24261);if(r)goto S_32704;} -do{ -*_SUB_PARSEEXPRESSION_LONG_C=*_SUB_PARSEEXPRESSION_LONG_C+ 1 ; -if(!qbevent)break;evnt(24262);}while(r); -S_32706:; -qbs_set(sc_3509,func_mid(_SUB_PARSEEXPRESSION_STRING_EXP,*_SUB_PARSEEXPRESSION_LONG_OP-*_SUB_PARSEEXPRESSION_LONG_C, 1 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(qbevent){evnt(24263);if(r)goto S_32706;} -S_32707:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3509,qbs_new_txt_len("0",1))||qbs_equal(sc_3509,qbs_new_txt_len("1",1))||qbs_equal(sc_3509,qbs_new_txt_len("2",1))||qbs_equal(sc_3509,qbs_new_txt_len("3",1))||qbs_equal(sc_3509,qbs_new_txt_len("4",1))||qbs_equal(sc_3509,qbs_new_txt_len("5",1))||qbs_equal(sc_3509,qbs_new_txt_len("6",1))||qbs_equal(sc_3509,qbs_new_txt_len("7",1))||qbs_equal(sc_3509,qbs_new_txt_len("8",1))||qbs_equal(sc_3509,qbs_new_txt_len("9",1))||qbs_equal(sc_3509,qbs_new_txt_len(".",1))||qbs_equal(sc_3509,qbs_new_txt_len("N",1))))||new_error){ -if(qbevent){evnt(24264);if(r)goto S_32707;} -sc_ec_82_end:; -goto sc_3509_end; -} -S_32708:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3509,qbs_new_txt_len("-",1))))||new_error){ -if(qbevent){evnt(24265);if(r)goto S_32708;} -do{ -*_SUB_PARSEEXPRESSION_LONG_C1=*_SUB_PARSEEXPRESSION_LONG_C; -if(!qbevent)break;evnt(24266);}while(r); -do{ -*_SUB_PARSEEXPRESSION_LONG_BAD= 0 ; -if(!qbevent)break;evnt(24267);}while(r); -S_32711:; -do{ -if(qbevent){evnt(24268);if(r)goto S_32711;} -do{ -*_SUB_PARSEEXPRESSION_LONG_C1=*_SUB_PARSEEXPRESSION_LONG_C1+ 1 ; -if(!qbevent)break;evnt(24269);}while(r); -S_32713:; -qbs_set(sc_3511,func_mid(_SUB_PARSEEXPRESSION_STRING_EXP,*_SUB_PARSEEXPRESSION_LONG_OP-*_SUB_PARSEEXPRESSION_LONG_C1, 1 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(qbevent){evnt(24270);if(r)goto S_32713;} -S_32714:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3511,qbs_new_txt_len("0",1))||qbs_equal(sc_3511,qbs_new_txt_len("1",1))||qbs_equal(sc_3511,qbs_new_txt_len("2",1))||qbs_equal(sc_3511,qbs_new_txt_len("3",1))||qbs_equal(sc_3511,qbs_new_txt_len("4",1))||qbs_equal(sc_3511,qbs_new_txt_len("5",1))||qbs_equal(sc_3511,qbs_new_txt_len("6",1))||qbs_equal(sc_3511,qbs_new_txt_len("7",1))||qbs_equal(sc_3511,qbs_new_txt_len("8",1))||qbs_equal(sc_3511,qbs_new_txt_len("9",1))||qbs_equal(sc_3511,qbs_new_txt_len(".",1))))||new_error){ -if(qbevent){evnt(24271);if(r)goto S_32714;} -do{ -*_SUB_PARSEEXPRESSION_LONG_BAD= -1 ; -if(!qbevent)break;evnt(24272);}while(r); -do{ -goto dl_exit_3510; -if(!qbevent)break;evnt(24273);}while(r); -sc_ec_83_end:; -goto sc_3511_end; -} -sc_3511_end:; -S_32719:; -dl_continue_3510:; -}while((!(-((*_SUB_PARSEEXPRESSION_LONG_OP-*_SUB_PARSEEXPRESSION_LONG_C1)<=( 0 ))))&&(!new_error)); -dl_exit_3510:; -if(qbevent){evnt(24277);if(r)goto S_32719;} -S_32720:; -if ((*_SUB_PARSEEXPRESSION_LONG_BAD)||new_error){ -if(qbevent){evnt(24278);if(r)goto S_32720;} -do{ -goto dl_exit_3508; -if(!qbevent)break;evnt(24278);}while(r); -} -sc_ec_84_end:; -goto sc_3509_end; -} -do{ -goto dl_exit_3508; -if(!qbevent)break;evnt(24280);}while(r); -sc_3509_end:; -S_32726:; -dl_continue_3508:; -}while((!(-((*_SUB_PARSEEXPRESSION_LONG_OP-*_SUB_PARSEEXPRESSION_LONG_C)<=( 0 ))))&&(!new_error)); -dl_exit_3508:; -if(qbevent){evnt(24282);if(r)goto S_32726;} -do{ -*_SUB_PARSEEXPRESSION_LONG_S=*_SUB_PARSEEXPRESSION_LONG_OP-*_SUB_PARSEEXPRESSION_LONG_C; -if(!qbevent)break;evnt(24283);}while(r); -do{ -tmp_long=array_check(( 1 )-_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[4],_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[0]))[tmp_long])),func_mid(_SUB_PARSEEXPRESSION_STRING_EXP,*_SUB_PARSEEXPRESSION_LONG_S+ 1 ,*_SUB_PARSEEXPRESSION_LONG_OP-*_SUB_PARSEEXPRESSION_LONG_S- 1 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24284);}while(r); -do{ -tmp_long=array_check(( 2 )-_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[4],_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[0]))[tmp_long])),func_mid(_SUB_PARSEEXPRESSION_STRING_EXP,*_SUB_PARSEEXPRESSION_LONG_OP+((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_PARSEEXPRESSION_LONG_OPON)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])]))->len,*__LONG_E-*_SUB_PARSEEXPRESSION_LONG_OP-((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_PARSEEXPRESSION_LONG_OPON)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])]))->len+ 1 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24285);}while(r); -S_32730:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(((qbs*)(((uint64*)(_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[4],_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[5])])), 1 , 1 ,0|1),qbs_new_txt_len("N",1))))||new_error){ -if(qbevent){evnt(24286);if(r)goto S_32730;} -do{ -sub_mid(((qbs*)(((uint64*)(_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[4],_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[5])])), 1 ,0,qbs_new_txt_len("-",1),0); -if(!qbevent)break;evnt(24286);}while(r); -} -S_32733:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(((qbs*)(((uint64*)(_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[4],_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[5])])), 1 , 1 ,0|1),qbs_new_txt_len("N",1))))||new_error){ -if(qbevent){evnt(24287);if(r)goto S_32733;} -do{ -sub_mid(((qbs*)(((uint64*)(_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[4],_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[5])])), 1 ,0,qbs_new_txt_len("-",1),0); -if(!qbevent)break;evnt(24287);}while(r); -} -S_32736:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[4],_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[5])])),qbs_new_txt_len("-",1))))||new_error){ -if(qbevent){evnt(24288);if(r)goto S_32736;} -do{ -tmp_long=array_check(( 3 )-_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[4],_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[0]))[tmp_long])),qbs_add(qbs_new_txt_len("N",1),FUNC_EVALUATENUMBERS(_SUB_PARSEEXPRESSION_LONG_OPON,_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24289);}while(r); -}else{ -do{ -tmp_long=array_check(( 3 )-_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[4],_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[0]))[tmp_long])),FUNC_EVALUATENUMBERS(_SUB_PARSEEXPRESSION_LONG_OPON,_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24291);}while(r); -} -S_32741:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(((qbs*)(((uint64*)(_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[0]))[array_check(( 3 )-_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[4],_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[5])])), 1 , 1 ,0|1),qbs_new_txt_len("-",1))))||new_error){ -if(qbevent){evnt(24293);if(r)goto S_32741;} -do{ -sub_mid(((qbs*)(((uint64*)(_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[0]))[array_check(( 3 )-_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[4],_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[5])])), 1 ,0,qbs_new_txt_len("N",1),0); -if(!qbevent)break;evnt(24293);}while(r); -} -S_32744:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(((qbs*)(((uint64*)(_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[0]))[array_check(( 3 )-_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[4],_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[5])])), 5 ),qbs_new_txt_len("ERROR",5))))||new_error){ -if(qbevent){evnt(24294);if(r)goto S_32744;} -do{ -qbs_set(_SUB_PARSEEXPRESSION_STRING_EXP,((qbs*)(((uint64*)(_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[0]))[array_check(( 3 )-_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[4],_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24294);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(24294);}while(r); -} -do{ -qbs_set(_SUB_PARSEEXPRESSION_STRING_EXP,qbs_ltrim(FUNC_N2S(FUNC_DWD(qbs_add(qbs_add(qbs_left(_SUB_PARSEEXPRESSION_STRING_EXP,*_SUB_PARSEEXPRESSION_LONG_S),qbs_rtrim(qbs_ltrim(((qbs*)(((uint64*)(_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[0]))[array_check(( 3 )-_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[4],_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[5])]))))),func_mid(_SUB_PARSEEXPRESSION_STRING_EXP,*__LONG_E+ 1 ,NULL,0)))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24295);}while(r); -} -do{ -*_SUB_PARSEEXPRESSION_LONG_OP= 0 ; -if(!qbevent)break;evnt(24297);}while(r); -dl_continue_3499:; -} -dl_exit_3499:; -fornext_continue_3496:; -} -fornext_exit_3496:; -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free69.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -void SUB_SET_ORDEROFOPERATIONS(){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data70.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ +} +if(!qbevent)break;evnt(24205);}while(r); +do{ +qbs_set(_SUB_PARSEEXPRESSION_STRING_EXP,FUNC_DWD(_SUB_PARSEEXPRESSION_STRING_EXP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24207);}while(r); +S_32640:; +fornext_value3497= 1 ; +fornext_finalvalue3497= 250 ; +fornext_step3497= 1 ; +if (fornext_step3497<0) fornext_step_negative3497=1; else fornext_step_negative3497=0; +if (new_error) goto fornext_error3497; +goto fornext_entrylabel3497; +while(1){ +fornext_value3497=fornext_step3497+(*_SUB_PARSEEXPRESSION_LONG_J); +fornext_entrylabel3497: +*_SUB_PARSEEXPRESSION_LONG_J=fornext_value3497; +if (fornext_step_negative3497){ +if (fornext_value3497fornext_finalvalue3497) break; +} +fornext_error3497:; +if(qbevent){evnt(24210);if(r)goto S_32640;} +do{ +*_SUB_PARSEEXPRESSION_LONG_LOWEST= 0 ; +if(!qbevent)break;evnt(24211);}while(r); +S_32642:; +while((!(qbs_cleanup(qbs_tmp_base,-(*_SUB_PARSEEXPRESSION_LONG_LOWEST==_SUB_PARSEEXPRESSION_STRING_EXP->len))))||new_error){ +if(qbevent){evnt(24212);if(r)goto S_32642;} +do{ +*_SUB_PARSEEXPRESSION_LONG_LOWEST=_SUB_PARSEEXPRESSION_STRING_EXP->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24213);}while(r); +do{ +*_SUB_PARSEEXPRESSION_LONG_OPON= 0 ; +if(!qbevent)break;evnt(24213);}while(r); +S_32645:; +fornext_value3502= 1 ; +fornext_finalvalue3502=func_ubound(__ARRAY_STRING_ONAME,1,1); +fornext_step3502= 1 ; +if (fornext_step3502<0) fornext_step_negative3502=1; else fornext_step_negative3502=0; +if (new_error) goto fornext_error3502; +goto fornext_entrylabel3502; +while(1){ +fornext_value3502=fornext_step3502+(*_SUB_PARSEEXPRESSION_LONG_P); +fornext_entrylabel3502: +*_SUB_PARSEEXPRESSION_LONG_P=fornext_value3502; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative3502){ +if (fornext_value3502fornext_finalvalue3502) break; +} +fornext_error3502:; +if(qbevent){evnt(24214);if(r)goto S_32645;} +S_32646:; +if ((-(*_SUB_PARSEEXPRESSION_LONG_J==((int16*)(__ARRAY_INTEGER_PL[0]))[array_check((*_SUB_PARSEEXPRESSION_LONG_P)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5])]))||new_error){ +if(qbevent){evnt(24216);if(r)goto S_32646;} +S_32647:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_PARSEEXPRESSION_STRING_EXP, 1 ),qbs_new_txt_len("-",1))))||new_error){ +if(qbevent){evnt(24217);if(r)goto S_32647;} +do{ +*_SUB_PARSEEXPRESSION_LONG_STARTAT= 2 ; +if(!qbevent)break;evnt(24217);}while(r); +}else{ +do{ +*_SUB_PARSEEXPRESSION_LONG_STARTAT= 1 ; +if(!qbevent)break;evnt(24217);}while(r); +} +do{ +*_SUB_PARSEEXPRESSION_LONG_OP=func_instr(*_SUB_PARSEEXPRESSION_LONG_STARTAT,_SUB_PARSEEXPRESSION_STRING_EXP,((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_PARSEEXPRESSION_LONG_P)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])])),0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24218);}while(r); +S_32653:; +if ((qbs_cleanup(qbs_tmp_base,(-(*_SUB_PARSEEXPRESSION_LONG_OP== 0 ))&(qbs_equal(qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_PARSEEXPRESSION_LONG_P)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])])), 1 ),qbs_new_txt_len("_",1)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))||new_error){ +if(qbevent){evnt(24219);if(r)goto S_32653;} +do{ +*_SUB_PARSEEXPRESSION_LONG_OP=func_instr(*_SUB_PARSEEXPRESSION_LONG_STARTAT,_SUB_PARSEEXPRESSION_STRING_EXP,func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_PARSEEXPRESSION_LONG_P)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])])), 2 ,NULL,0),0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24221);}while(r); +S_32655:; +if ((-(*_SUB_PARSEEXPRESSION_LONG_OP> 0 ))||new_error){ +if(qbevent){evnt(24222);if(r)goto S_32655;} +do{ +qbs_set(_SUB_PARSEEXPRESSION_STRING_EXP,qbs_add(qbs_add(qbs_left(_SUB_PARSEEXPRESSION_STRING_EXP,*_SUB_PARSEEXPRESSION_LONG_OP- 1 ),qbs_new_txt_len("_",1)),func_mid(_SUB_PARSEEXPRESSION_STRING_EXP,*_SUB_PARSEEXPRESSION_LONG_OP,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24223);}while(r); +do{ +*_SUB_PARSEEXPRESSION_LONG_LOWEST=*_SUB_PARSEEXPRESSION_LONG_LOWEST+ 1 ; +if(!qbevent)break;evnt(24224);}while(r); +} +} +S_32660:; +if (((-(*_SUB_PARSEEXPRESSION_LONG_OP> 0 ))&(-(*_SUB_PARSEEXPRESSION_LONG_OP<*_SUB_PARSEEXPRESSION_LONG_LOWEST)))||new_error){ +if(qbevent){evnt(24227);if(r)goto S_32660;} +do{ +*_SUB_PARSEEXPRESSION_LONG_LOWEST=*_SUB_PARSEEXPRESSION_LONG_OP; +if(!qbevent)break;evnt(24227);}while(r); +do{ +*_SUB_PARSEEXPRESSION_LONG_OPON=*_SUB_PARSEEXPRESSION_LONG_P; +if(!qbevent)break;evnt(24227);}while(r); +} +} +fornext_continue_3501:; +} +fornext_exit_3501:; +S_32666:; +if ((-(*_SUB_PARSEEXPRESSION_LONG_OPON== 0 ))||new_error){ +if(qbevent){evnt(24230);if(r)goto S_32666;} +do{ +goto dl_exit_3499; +if(!qbevent)break;evnt(24230);}while(r); +} +S_32669:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_PARSEEXPRESSION_STRING_EXP, 1 ),qbs_new_txt_len("-",1))))||new_error){ +if(qbevent){evnt(24231);if(r)goto S_32669;} +do{ +*_SUB_PARSEEXPRESSION_LONG_STARTAT= 2 ; +if(!qbevent)break;evnt(24231);}while(r); +}else{ +do{ +*_SUB_PARSEEXPRESSION_LONG_STARTAT= 1 ; +if(!qbevent)break;evnt(24231);}while(r); +} +do{ +*_SUB_PARSEEXPRESSION_LONG_OP=func_instr(*_SUB_PARSEEXPRESSION_LONG_STARTAT,_SUB_PARSEEXPRESSION_STRING_EXP,((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_PARSEEXPRESSION_LONG_OPON)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])])),0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24232);}while(r); +do{ +*_SUB_PARSEEXPRESSION_LONG_NUMSET= 0 ; +if(!qbevent)break;evnt(24234);}while(r); +S_32676:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_PARSEEXPRESSION_LONG_OPON)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])])),qbs_new_txt_len("-",1))))||new_error){ +if(qbevent){evnt(24237);if(r)goto S_32676;} +S_32677:; +qbs_set(sc_3503,func_mid(_SUB_PARSEEXPRESSION_STRING_EXP,*_SUB_PARSEEXPRESSION_LONG_OP- 3 , 3 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(qbevent){evnt(24238);if(r)goto S_32677;} +S_32678:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3503,qbs_new_txt_len("NOT",3))||qbs_equal(sc_3503,qbs_new_txt_len("XOR",3))||qbs_equal(sc_3503,qbs_new_txt_len("AND",3))||qbs_equal(sc_3503,qbs_new_txt_len("EQV",3))||qbs_equal(sc_3503,qbs_new_txt_len("IMP",3))))||new_error){ +if(qbevent){evnt(24239);if(r)goto S_32678;} +do{ +goto dl_exit_3499; +if(!qbevent)break;evnt(24240);}while(r); +sc_ec_78_end:; +goto sc_3503_end; +} +sc_3503_end:; +S_32681:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_SUB_PARSEEXPRESSION_STRING_EXP,*_SUB_PARSEEXPRESSION_LONG_OP- 3 , 2 ,0|1),qbs_new_txt_len("OR",2))))||new_error){ +if(qbevent){evnt(24242);if(r)goto S_32681;} +do{ +goto dl_exit_3499; +if(!qbevent)break;evnt(24242);}while(r); +} +} +S_32685:; +if ((*_SUB_PARSEEXPRESSION_LONG_OP)||new_error){ +if(qbevent){evnt(24245);if(r)goto S_32685;} +do{ +*_SUB_PARSEEXPRESSION_LONG_C=((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_PARSEEXPRESSION_LONG_OPON)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])]))->len- 1 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24246);}while(r); +S_32687:; +do{ +if(qbevent){evnt(24247);if(r)goto S_32687;} +S_32688:; +qbs_set(sc_3506,func_mid(_SUB_PARSEEXPRESSION_STRING_EXP,*_SUB_PARSEEXPRESSION_LONG_OP+*_SUB_PARSEEXPRESSION_LONG_C+ 1 , 1 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(qbevent){evnt(24248);if(r)goto S_32688;} +S_32689:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3506,qbs_new_txt_len("0",1))||qbs_equal(sc_3506,qbs_new_txt_len("1",1))||qbs_equal(sc_3506,qbs_new_txt_len("2",1))||qbs_equal(sc_3506,qbs_new_txt_len("3",1))||qbs_equal(sc_3506,qbs_new_txt_len("4",1))||qbs_equal(sc_3506,qbs_new_txt_len("5",1))||qbs_equal(sc_3506,qbs_new_txt_len("6",1))||qbs_equal(sc_3506,qbs_new_txt_len("7",1))||qbs_equal(sc_3506,qbs_new_txt_len("8",1))||qbs_equal(sc_3506,qbs_new_txt_len("9",1))||qbs_equal(sc_3506,qbs_new_txt_len(".",1))||qbs_equal(sc_3506,qbs_new_txt_len("N",1))))||new_error){ +if(qbevent){evnt(24249);if(r)goto S_32689;} +do{ +*_SUB_PARSEEXPRESSION_LONG_NUMSET= -1 ; +if(!qbevent)break;evnt(24249);}while(r); +sc_ec_79_end:; +goto sc_3506_end; +} +S_32691:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3506,qbs_new_txt_len("-",1))))||new_error){ +if(qbevent){evnt(24250);if(r)goto S_32691;} +S_32692:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_PARSEEXPRESSION_LONG_OPON)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])])),qbs_new_txt_len("_PI",3)))|*_SUB_PARSEEXPRESSION_LONG_NUMSET))||new_error){ +if(qbevent){evnt(24251);if(r)goto S_32692;} +do{ +goto dl_exit_3505; +if(!qbevent)break;evnt(24251);}while(r); +} +sc_ec_80_end:; +goto sc_3506_end; +} +S_32695:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3506,qbs_new_txt_len(",",1))))||new_error){ +if(qbevent){evnt(24252);if(r)goto S_32695;} +do{ +*_SUB_PARSEEXPRESSION_LONG_NUMSET= 0 ; +if(!qbevent)break;evnt(24252);}while(r); +sc_ec_81_end:; +goto sc_3506_end; +} +do{ +goto dl_exit_3505; +if(!qbevent)break;evnt(24254);}while(r); +sc_3506_end:; +do{ +*_SUB_PARSEEXPRESSION_LONG_C=*_SUB_PARSEEXPRESSION_LONG_C+ 1 ; +if(!qbevent)break;evnt(24256);}while(r); +S_32701:; +dl_continue_3505:; +}while((!(qbs_cleanup(qbs_tmp_base,-((*_SUB_PARSEEXPRESSION_LONG_OP+*_SUB_PARSEEXPRESSION_LONG_C)>=(_SUB_PARSEEXPRESSION_STRING_EXP->len)))))&&(!new_error)); +dl_exit_3505:; +if(qbevent){evnt(24257);if(r)goto S_32701;} +do{ +*__LONG_E=*_SUB_PARSEEXPRESSION_LONG_OP+*_SUB_PARSEEXPRESSION_LONG_C; +if(!qbevent)break;evnt(24258);}while(r); +do{ +*_SUB_PARSEEXPRESSION_LONG_C= 0 ; +if(!qbevent)break;evnt(24260);}while(r); +S_32704:; +do{ +if(qbevent){evnt(24261);if(r)goto S_32704;} +do{ +*_SUB_PARSEEXPRESSION_LONG_C=*_SUB_PARSEEXPRESSION_LONG_C+ 1 ; +if(!qbevent)break;evnt(24262);}while(r); +S_32706:; +qbs_set(sc_3509,func_mid(_SUB_PARSEEXPRESSION_STRING_EXP,*_SUB_PARSEEXPRESSION_LONG_OP-*_SUB_PARSEEXPRESSION_LONG_C, 1 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(qbevent){evnt(24263);if(r)goto S_32706;} +S_32707:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3509,qbs_new_txt_len("0",1))||qbs_equal(sc_3509,qbs_new_txt_len("1",1))||qbs_equal(sc_3509,qbs_new_txt_len("2",1))||qbs_equal(sc_3509,qbs_new_txt_len("3",1))||qbs_equal(sc_3509,qbs_new_txt_len("4",1))||qbs_equal(sc_3509,qbs_new_txt_len("5",1))||qbs_equal(sc_3509,qbs_new_txt_len("6",1))||qbs_equal(sc_3509,qbs_new_txt_len("7",1))||qbs_equal(sc_3509,qbs_new_txt_len("8",1))||qbs_equal(sc_3509,qbs_new_txt_len("9",1))||qbs_equal(sc_3509,qbs_new_txt_len(".",1))||qbs_equal(sc_3509,qbs_new_txt_len("N",1))))||new_error){ +if(qbevent){evnt(24264);if(r)goto S_32707;} +sc_ec_82_end:; +goto sc_3509_end; +} +S_32708:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3509,qbs_new_txt_len("-",1))))||new_error){ +if(qbevent){evnt(24265);if(r)goto S_32708;} +do{ +*_SUB_PARSEEXPRESSION_LONG_C1=*_SUB_PARSEEXPRESSION_LONG_C; +if(!qbevent)break;evnt(24266);}while(r); +do{ +*_SUB_PARSEEXPRESSION_LONG_BAD= 0 ; +if(!qbevent)break;evnt(24267);}while(r); +S_32711:; +do{ +if(qbevent){evnt(24268);if(r)goto S_32711;} +do{ +*_SUB_PARSEEXPRESSION_LONG_C1=*_SUB_PARSEEXPRESSION_LONG_C1+ 1 ; +if(!qbevent)break;evnt(24269);}while(r); +S_32713:; +qbs_set(sc_3511,func_mid(_SUB_PARSEEXPRESSION_STRING_EXP,*_SUB_PARSEEXPRESSION_LONG_OP-*_SUB_PARSEEXPRESSION_LONG_C1, 1 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(qbevent){evnt(24270);if(r)goto S_32713;} +S_32714:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3511,qbs_new_txt_len("0",1))||qbs_equal(sc_3511,qbs_new_txt_len("1",1))||qbs_equal(sc_3511,qbs_new_txt_len("2",1))||qbs_equal(sc_3511,qbs_new_txt_len("3",1))||qbs_equal(sc_3511,qbs_new_txt_len("4",1))||qbs_equal(sc_3511,qbs_new_txt_len("5",1))||qbs_equal(sc_3511,qbs_new_txt_len("6",1))||qbs_equal(sc_3511,qbs_new_txt_len("7",1))||qbs_equal(sc_3511,qbs_new_txt_len("8",1))||qbs_equal(sc_3511,qbs_new_txt_len("9",1))||qbs_equal(sc_3511,qbs_new_txt_len(".",1))))||new_error){ +if(qbevent){evnt(24271);if(r)goto S_32714;} +do{ +*_SUB_PARSEEXPRESSION_LONG_BAD= -1 ; +if(!qbevent)break;evnt(24272);}while(r); +do{ +goto dl_exit_3510; +if(!qbevent)break;evnt(24273);}while(r); +sc_ec_83_end:; +goto sc_3511_end; +} +sc_3511_end:; +S_32719:; +dl_continue_3510:; +}while((!(-((*_SUB_PARSEEXPRESSION_LONG_OP-*_SUB_PARSEEXPRESSION_LONG_C1)<=( 0 ))))&&(!new_error)); +dl_exit_3510:; +if(qbevent){evnt(24277);if(r)goto S_32719;} +S_32720:; +if ((*_SUB_PARSEEXPRESSION_LONG_BAD)||new_error){ +if(qbevent){evnt(24278);if(r)goto S_32720;} +do{ +goto dl_exit_3508; +if(!qbevent)break;evnt(24278);}while(r); +} +sc_ec_84_end:; +goto sc_3509_end; +} +do{ +goto dl_exit_3508; +if(!qbevent)break;evnt(24280);}while(r); +sc_3509_end:; +S_32726:; +dl_continue_3508:; +}while((!(-((*_SUB_PARSEEXPRESSION_LONG_OP-*_SUB_PARSEEXPRESSION_LONG_C)<=( 0 ))))&&(!new_error)); +dl_exit_3508:; +if(qbevent){evnt(24282);if(r)goto S_32726;} +do{ +*_SUB_PARSEEXPRESSION_LONG_S=*_SUB_PARSEEXPRESSION_LONG_OP-*_SUB_PARSEEXPRESSION_LONG_C; +if(!qbevent)break;evnt(24283);}while(r); +do{ +tmp_long=array_check(( 1 )-_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[4],_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[0]))[tmp_long])),func_mid(_SUB_PARSEEXPRESSION_STRING_EXP,*_SUB_PARSEEXPRESSION_LONG_S+ 1 ,*_SUB_PARSEEXPRESSION_LONG_OP-*_SUB_PARSEEXPRESSION_LONG_S- 1 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24284);}while(r); +do{ +tmp_long=array_check(( 2 )-_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[4],_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[0]))[tmp_long])),func_mid(_SUB_PARSEEXPRESSION_STRING_EXP,*_SUB_PARSEEXPRESSION_LONG_OP+((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_PARSEEXPRESSION_LONG_OPON)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])]))->len,*__LONG_E-*_SUB_PARSEEXPRESSION_LONG_OP-((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_PARSEEXPRESSION_LONG_OPON)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])]))->len+ 1 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24285);}while(r); +S_32730:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(((qbs*)(((uint64*)(_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[4],_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[5])])), 1 , 1 ,0|1),qbs_new_txt_len("N",1))))||new_error){ +if(qbevent){evnt(24286);if(r)goto S_32730;} +do{ +sub_mid(((qbs*)(((uint64*)(_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[4],_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[5])])), 1 ,0,qbs_new_txt_len("-",1),0); +if(!qbevent)break;evnt(24286);}while(r); +} +S_32733:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(((qbs*)(((uint64*)(_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[4],_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[5])])), 1 , 1 ,0|1),qbs_new_txt_len("N",1))))||new_error){ +if(qbevent){evnt(24287);if(r)goto S_32733;} +do{ +sub_mid(((qbs*)(((uint64*)(_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[4],_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[5])])), 1 ,0,qbs_new_txt_len("-",1),0); +if(!qbevent)break;evnt(24287);}while(r); +} +S_32736:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[4],_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[5])])),qbs_new_txt_len("-",1))))||new_error){ +if(qbevent){evnt(24288);if(r)goto S_32736;} +do{ +tmp_long=array_check(( 3 )-_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[4],_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[0]))[tmp_long])),qbs_add(qbs_new_txt_len("N",1),FUNC_EVALUATENUMBERS(_SUB_PARSEEXPRESSION_LONG_OPON,_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24289);}while(r); +}else{ +do{ +tmp_long=array_check(( 3 )-_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[4],_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[0]))[tmp_long])),FUNC_EVALUATENUMBERS(_SUB_PARSEEXPRESSION_LONG_OPON,_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24291);}while(r); +} +S_32741:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(((qbs*)(((uint64*)(_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[0]))[array_check(( 3 )-_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[4],_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[5])])), 1 , 1 ,0|1),qbs_new_txt_len("-",1))))||new_error){ +if(qbevent){evnt(24293);if(r)goto S_32741;} +do{ +sub_mid(((qbs*)(((uint64*)(_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[0]))[array_check(( 3 )-_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[4],_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[5])])), 1 ,0,qbs_new_txt_len("N",1),0); +if(!qbevent)break;evnt(24293);}while(r); +} +S_32744:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(((qbs*)(((uint64*)(_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[0]))[array_check(( 3 )-_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[4],_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[5])])), 5 ),qbs_new_txt_len("ERROR",5))))||new_error){ +if(qbevent){evnt(24294);if(r)goto S_32744;} +do{ +qbs_set(_SUB_PARSEEXPRESSION_STRING_EXP,((qbs*)(((uint64*)(_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[0]))[array_check(( 3 )-_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[4],_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24294);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(24294);}while(r); +} +do{ +qbs_set(_SUB_PARSEEXPRESSION_STRING_EXP,qbs_ltrim(FUNC_N2S(FUNC_DWD(qbs_add(qbs_add(qbs_left(_SUB_PARSEEXPRESSION_STRING_EXP,*_SUB_PARSEEXPRESSION_LONG_S),qbs_rtrim(qbs_ltrim(((qbs*)(((uint64*)(_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[0]))[array_check(( 3 )-_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[4],_SUB_PARSEEXPRESSION_ARRAY_STRING_NUM[5])]))))),func_mid(_SUB_PARSEEXPRESSION_STRING_EXP,*__LONG_E+ 1 ,NULL,0)))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24295);}while(r); +} +do{ +*_SUB_PARSEEXPRESSION_LONG_OP= 0 ; +if(!qbevent)break;evnt(24297);}while(r); +dl_continue_3499:; +} +dl_exit_3499:; +fornext_continue_3496:; +} +fornext_exit_3496:; +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free69.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +void SUB_SET_ORDEROFOPERATIONS(){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data70.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ if (__ARRAY_STRING_ONAME[2]&2){ error(10); @@ -106987,7 +106987,7 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long]=(uint64)qbs_new }else{ while(tmp_long--) ((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long]=(uint64)qbs_new(0,0); } -} +} if (__ARRAY_INTEGER_PL[2]&2){ error(10); @@ -107011,1005 +107011,1005 @@ __ARRAY_INTEGER_PL[0]=(ptrszint)calloc(__ARRAY_INTEGER_PL[5]*2,1); if (!__ARRAY_INTEGER_PL[0]) error(257); } __ARRAY_INTEGER_PL[2]|=1; -} -if(!qbevent)break;evnt(24309);}while(r); -do{ -*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; -if(!qbevent)break;evnt(24312);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("C_UOF",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24312);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 5 ; -if(!qbevent)break;evnt(24312);}while(r); -do{ -*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; -if(!qbevent)break;evnt(24313);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("C_OF",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24313);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 5 ; -if(!qbevent)break;evnt(24313);}while(r); -do{ -*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; -if(!qbevent)break;evnt(24314);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("C_UBY",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24314);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 5 ; -if(!qbevent)break;evnt(24314);}while(r); -do{ -*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; -if(!qbevent)break;evnt(24315);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("C_BY",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24315);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 5 ; -if(!qbevent)break;evnt(24315);}while(r); -do{ -*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; -if(!qbevent)break;evnt(24316);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("C_UIN",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24316);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 5 ; -if(!qbevent)break;evnt(24316);}while(r); -do{ -*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; -if(!qbevent)break;evnt(24317);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("C_IN",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24317);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 5 ; -if(!qbevent)break;evnt(24317);}while(r); -do{ -*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; -if(!qbevent)break;evnt(24318);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("C_UIF",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24318);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 5 ; -if(!qbevent)break;evnt(24318);}while(r); -do{ -*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; -if(!qbevent)break;evnt(24319);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("C_IF",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24319);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 5 ; -if(!qbevent)break;evnt(24319);}while(r); -do{ -*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; -if(!qbevent)break;evnt(24320);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("C_ULO",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24320);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 5 ; -if(!qbevent)break;evnt(24320);}while(r); -do{ -*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; -if(!qbevent)break;evnt(24321);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("C_LO",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24321);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 5 ; -if(!qbevent)break;evnt(24321);}while(r); -do{ -*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; -if(!qbevent)break;evnt(24322);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("C_SI",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24322);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 5 ; -if(!qbevent)break;evnt(24322);}while(r); -do{ -*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; -if(!qbevent)break;evnt(24323);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("C_FL",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24323);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 5 ; -if(!qbevent)break;evnt(24323);}while(r); -do{ -*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; -if(!qbevent)break;evnt(24324);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("C_DO",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24324);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 5 ; -if(!qbevent)break;evnt(24324);}while(r); -do{ -*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; -if(!qbevent)break;evnt(24325);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("C_UBI",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24325);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 5 ; -if(!qbevent)break;evnt(24325);}while(r); -do{ -*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; -if(!qbevent)break;evnt(24326);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("C_BI",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24326);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 5 ; -if(!qbevent)break;evnt(24326);}while(r); -do{ -*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; -if(!qbevent)break;evnt(24329);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("_PI",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24329);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 10 ; -if(!qbevent)break;evnt(24329);}while(r); -do{ -*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; -if(!qbevent)break;evnt(24330);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("_ACOS",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24330);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 10 ; -if(!qbevent)break;evnt(24330);}while(r); -do{ -*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; -if(!qbevent)break;evnt(24331);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("_ASIN",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24331);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 10 ; -if(!qbevent)break;evnt(24331);}while(r); -do{ -*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; -if(!qbevent)break;evnt(24332);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("_ARCSEC",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24332);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 10 ; -if(!qbevent)break;evnt(24332);}while(r); -do{ -*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; -if(!qbevent)break;evnt(24333);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("_ARCCSC",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24333);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 10 ; -if(!qbevent)break;evnt(24333);}while(r); -do{ -*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; -if(!qbevent)break;evnt(24334);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("_ARCCOT",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24334);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 10 ; -if(!qbevent)break;evnt(24334);}while(r); -do{ -*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; -if(!qbevent)break;evnt(24335);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("_SECH",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24335);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 10 ; -if(!qbevent)break;evnt(24335);}while(r); -do{ -*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; -if(!qbevent)break;evnt(24336);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("_CSCH",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24336);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 10 ; -if(!qbevent)break;evnt(24336);}while(r); -do{ -*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; -if(!qbevent)break;evnt(24337);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("_COTH",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24337);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 10 ; -if(!qbevent)break;evnt(24337);}while(r); -do{ -*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; -if(!qbevent)break;evnt(24338);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("COS",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24338);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 10 ; -if(!qbevent)break;evnt(24338);}while(r); -do{ -*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; -if(!qbevent)break;evnt(24339);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("SIN",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24339);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 10 ; -if(!qbevent)break;evnt(24339);}while(r); -do{ -*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; -if(!qbevent)break;evnt(24340);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("TAN",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24340);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 10 ; -if(!qbevent)break;evnt(24340);}while(r); -do{ -*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; -if(!qbevent)break;evnt(24341);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("LOG",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24341);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 10 ; -if(!qbevent)break;evnt(24341);}while(r); -do{ -*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; -if(!qbevent)break;evnt(24342);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("EXP",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24342);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 10 ; -if(!qbevent)break;evnt(24342);}while(r); -do{ -*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; -if(!qbevent)break;evnt(24343);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("ATN",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24343);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 10 ; -if(!qbevent)break;evnt(24343);}while(r); -do{ -*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; -if(!qbevent)break;evnt(24344);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("_D2R",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24344);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 10 ; -if(!qbevent)break;evnt(24344);}while(r); -do{ -*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; -if(!qbevent)break;evnt(24345);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("_D2G",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24345);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 10 ; -if(!qbevent)break;evnt(24345);}while(r); -do{ -*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; -if(!qbevent)break;evnt(24346);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("_R2D",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24346);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 10 ; -if(!qbevent)break;evnt(24346);}while(r); -do{ -*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; -if(!qbevent)break;evnt(24347);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("_R2G",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24347);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 10 ; -if(!qbevent)break;evnt(24347);}while(r); -do{ -*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; -if(!qbevent)break;evnt(24348);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("_G2D",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24348);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 10 ; -if(!qbevent)break;evnt(24348);}while(r); -do{ -*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; -if(!qbevent)break;evnt(24349);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("_G2R",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24349);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 10 ; -if(!qbevent)break;evnt(24349);}while(r); -do{ -*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; -if(!qbevent)break;evnt(24350);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("ABS",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24350);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 10 ; -if(!qbevent)break;evnt(24350);}while(r); -do{ -*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; -if(!qbevent)break;evnt(24351);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("SGN",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24351);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 10 ; -if(!qbevent)break;evnt(24351);}while(r); -do{ -*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; -if(!qbevent)break;evnt(24352);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("INT",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24352);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 10 ; -if(!qbevent)break;evnt(24352);}while(r); -do{ -*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; -if(!qbevent)break;evnt(24353);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("_ROUND",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24353);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 10 ; -if(!qbevent)break;evnt(24353);}while(r); -do{ -*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; -if(!qbevent)break;evnt(24354);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("_CEIL",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24354);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 10 ; -if(!qbevent)break;evnt(24354);}while(r); -do{ -*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; -if(!qbevent)break;evnt(24355);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("FIX",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24355);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 10 ; -if(!qbevent)break;evnt(24355);}while(r); -do{ -*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; -if(!qbevent)break;evnt(24356);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("_SEC",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24356);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 10 ; -if(!qbevent)break;evnt(24356);}while(r); -do{ -*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; -if(!qbevent)break;evnt(24357);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("_CSC",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24357);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 10 ; -if(!qbevent)break;evnt(24357);}while(r); -do{ -*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; -if(!qbevent)break;evnt(24358);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("_COT",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24358);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 10 ; -if(!qbevent)break;evnt(24358);}while(r); -do{ -*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; -if(!qbevent)break;evnt(24359);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("ASC",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24359);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 10 ; -if(!qbevent)break;evnt(24359);}while(r); -do{ -*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; -if(!qbevent)break;evnt(24360);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("C_RG",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24360);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 10 ; -if(!qbevent)break;evnt(24360);}while(r); -do{ -*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; -if(!qbevent)break;evnt(24361);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("C_RA",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24361);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 10 ; -if(!qbevent)break;evnt(24361);}while(r); -do{ -*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; -if(!qbevent)break;evnt(24362);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("_RGBA",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24362);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 10 ; -if(!qbevent)break;evnt(24362);}while(r); -do{ -*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; -if(!qbevent)break;evnt(24363);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("_RGB",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24363);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 10 ; -if(!qbevent)break;evnt(24363);}while(r); -do{ -*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; -if(!qbevent)break;evnt(24364);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("C_RX",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24364);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 10 ; -if(!qbevent)break;evnt(24364);}while(r); -do{ -*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; -if(!qbevent)break;evnt(24365);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("C_GR",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24365);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 10 ; -if(!qbevent)break;evnt(24365);}while(r); -do{ -*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; -if(!qbevent)break;evnt(24366);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("C_BL",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24366);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 10 ; -if(!qbevent)break;evnt(24366);}while(r); -do{ -*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; -if(!qbevent)break;evnt(24367);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("C_AL",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24367);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 10 ; -if(!qbevent)break;evnt(24367);}while(r); -do{ -*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; -if(!qbevent)break;evnt(24368);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("_RED",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24368);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 10 ; -if(!qbevent)break;evnt(24368);}while(r); -do{ -*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; -if(!qbevent)break;evnt(24369);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("_GREEN",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24369);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 10 ; -if(!qbevent)break;evnt(24369);}while(r); -do{ -*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; -if(!qbevent)break;evnt(24370);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("_BLUE",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24370);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 10 ; -if(!qbevent)break;evnt(24370);}while(r); -do{ -*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; -if(!qbevent)break;evnt(24371);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("_ALPHA",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24371);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 10 ; -if(!qbevent)break;evnt(24371);}while(r); -do{ -*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; -if(!qbevent)break;evnt(24374);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("^",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24374);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 20 ; -if(!qbevent)break;evnt(24374);}while(r); -do{ -*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; -if(!qbevent)break;evnt(24375);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("SQR",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24375);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 20 ; -if(!qbevent)break;evnt(24375);}while(r); -do{ -*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; -if(!qbevent)break;evnt(24376);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("ROOT",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24376);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 20 ; -if(!qbevent)break;evnt(24376);}while(r); -do{ -*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; -if(!qbevent)break;evnt(24378);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("*",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24378);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 30 ; -if(!qbevent)break;evnt(24378);}while(r); -do{ -*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; -if(!qbevent)break;evnt(24379);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("/",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24379);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 30 ; -if(!qbevent)break;evnt(24379);}while(r); -do{ -*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; -if(!qbevent)break;evnt(24381);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("\\",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24381);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 40 ; -if(!qbevent)break;evnt(24381);}while(r); -do{ -*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; -if(!qbevent)break;evnt(24383);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("MOD",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24383);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 50 ; -if(!qbevent)break;evnt(24383);}while(r); -do{ -*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; -if(!qbevent)break;evnt(24385);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("+",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24385);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 60 ; -if(!qbevent)break;evnt(24385);}while(r); -do{ -*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; -if(!qbevent)break;evnt(24386);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("-",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24386);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 60 ; -if(!qbevent)break;evnt(24386);}while(r); -do{ -*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; -if(!qbevent)break;evnt(24389);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("<>",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24389);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 70 ; -if(!qbevent)break;evnt(24389);}while(r); -do{ -*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; -if(!qbevent)break;evnt(24390);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("><",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24390);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 70 ; -if(!qbevent)break;evnt(24390);}while(r); -do{ -*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; -if(!qbevent)break;evnt(24391);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("<=",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24391);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 70 ; -if(!qbevent)break;evnt(24391);}while(r); -do{ -*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; -if(!qbevent)break;evnt(24392);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len(">=",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24392);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 70 ; -if(!qbevent)break;evnt(24392);}while(r); -do{ -*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; -if(!qbevent)break;evnt(24393);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("=<",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24393);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 70 ; -if(!qbevent)break;evnt(24393);}while(r); -do{ -*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; -if(!qbevent)break;evnt(24394);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("=>",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24394);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 70 ; -if(!qbevent)break;evnt(24394);}while(r); -do{ -*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; -if(!qbevent)break;evnt(24395);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len(">",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24395);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 70 ; -if(!qbevent)break;evnt(24395);}while(r); -do{ -*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; -if(!qbevent)break;evnt(24396);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("<",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24396);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 70 ; -if(!qbevent)break;evnt(24396);}while(r); -do{ -*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; -if(!qbevent)break;evnt(24397);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("=",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24397);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 70 ; -if(!qbevent)break;evnt(24397);}while(r); -do{ -*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; -if(!qbevent)break;evnt(24399);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("NOT",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24399);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 80 ; -if(!qbevent)break;evnt(24399);}while(r); -do{ -*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; -if(!qbevent)break;evnt(24400);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("AND",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24400);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 90 ; -if(!qbevent)break;evnt(24400);}while(r); -do{ -*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; -if(!qbevent)break;evnt(24401);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("OR",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24401);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 100 ; -if(!qbevent)break;evnt(24401);}while(r); -do{ -*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; -if(!qbevent)break;evnt(24402);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("XOR",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24402);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 110 ; -if(!qbevent)break;evnt(24402);}while(r); -do{ -*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; -if(!qbevent)break;evnt(24403);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("EQV",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24403);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 120 ; -if(!qbevent)break;evnt(24403);}while(r); -do{ -*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; -if(!qbevent)break;evnt(24404);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("IMP",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24404);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 130 ; -if(!qbevent)break;evnt(24404);}while(r); -do{ -*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; -if(!qbevent)break;evnt(24405);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len(",",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24405);}while(r); -do{ -tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); -if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 1000 ; -if(!qbevent)break;evnt(24405);}while(r); -do{ +} +if(!qbevent)break;evnt(24309);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24312);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("C_UOF",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24312);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 5 ; +if(!qbevent)break;evnt(24312);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24313);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("C_OF",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24313);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 5 ; +if(!qbevent)break;evnt(24313);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24314);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("C_UBY",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24314);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 5 ; +if(!qbevent)break;evnt(24314);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24315);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("C_BY",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24315);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 5 ; +if(!qbevent)break;evnt(24315);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24316);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("C_UIN",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24316);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 5 ; +if(!qbevent)break;evnt(24316);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24317);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("C_IN",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24317);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 5 ; +if(!qbevent)break;evnt(24317);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24318);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("C_UIF",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24318);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 5 ; +if(!qbevent)break;evnt(24318);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24319);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("C_IF",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24319);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 5 ; +if(!qbevent)break;evnt(24319);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24320);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("C_ULO",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24320);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 5 ; +if(!qbevent)break;evnt(24320);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24321);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("C_LO",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24321);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 5 ; +if(!qbevent)break;evnt(24321);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24322);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("C_SI",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24322);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 5 ; +if(!qbevent)break;evnt(24322);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24323);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("C_FL",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24323);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 5 ; +if(!qbevent)break;evnt(24323);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24324);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("C_DO",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24324);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 5 ; +if(!qbevent)break;evnt(24324);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24325);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("C_UBI",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24325);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 5 ; +if(!qbevent)break;evnt(24325);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24326);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("C_BI",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24326);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 5 ; +if(!qbevent)break;evnt(24326);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24329);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("_PI",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24329);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 10 ; +if(!qbevent)break;evnt(24329);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24330);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("_ACOS",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24330);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 10 ; +if(!qbevent)break;evnt(24330);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24331);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("_ASIN",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24331);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 10 ; +if(!qbevent)break;evnt(24331);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24332);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("_ARCSEC",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24332);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 10 ; +if(!qbevent)break;evnt(24332);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24333);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("_ARCCSC",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24333);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 10 ; +if(!qbevent)break;evnt(24333);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24334);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("_ARCCOT",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24334);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 10 ; +if(!qbevent)break;evnt(24334);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24335);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("_SECH",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24335);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 10 ; +if(!qbevent)break;evnt(24335);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24336);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("_CSCH",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24336);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 10 ; +if(!qbevent)break;evnt(24336);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24337);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("_COTH",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24337);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 10 ; +if(!qbevent)break;evnt(24337);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24338);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("COS",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24338);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 10 ; +if(!qbevent)break;evnt(24338);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24339);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("SIN",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24339);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 10 ; +if(!qbevent)break;evnt(24339);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24340);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("TAN",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24340);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 10 ; +if(!qbevent)break;evnt(24340);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24341);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("LOG",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24341);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 10 ; +if(!qbevent)break;evnt(24341);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24342);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("EXP",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24342);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 10 ; +if(!qbevent)break;evnt(24342);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24343);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("ATN",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24343);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 10 ; +if(!qbevent)break;evnt(24343);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24344);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("_D2R",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24344);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 10 ; +if(!qbevent)break;evnt(24344);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24345);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("_D2G",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24345);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 10 ; +if(!qbevent)break;evnt(24345);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24346);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("_R2D",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24346);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 10 ; +if(!qbevent)break;evnt(24346);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24347);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("_R2G",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24347);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 10 ; +if(!qbevent)break;evnt(24347);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24348);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("_G2D",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24348);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 10 ; +if(!qbevent)break;evnt(24348);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24349);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("_G2R",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24349);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 10 ; +if(!qbevent)break;evnt(24349);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24350);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("ABS",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24350);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 10 ; +if(!qbevent)break;evnt(24350);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24351);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("SGN",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24351);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 10 ; +if(!qbevent)break;evnt(24351);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24352);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("INT",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24352);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 10 ; +if(!qbevent)break;evnt(24352);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24353);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("_ROUND",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24353);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 10 ; +if(!qbevent)break;evnt(24353);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24354);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("_CEIL",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24354);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 10 ; +if(!qbevent)break;evnt(24354);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24355);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("FIX",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24355);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 10 ; +if(!qbevent)break;evnt(24355);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24356);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("_SEC",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24356);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 10 ; +if(!qbevent)break;evnt(24356);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24357);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("_CSC",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24357);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 10 ; +if(!qbevent)break;evnt(24357);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24358);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("_COT",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24358);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 10 ; +if(!qbevent)break;evnt(24358);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24359);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("ASC",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24359);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 10 ; +if(!qbevent)break;evnt(24359);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24360);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("C_RG",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24360);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 10 ; +if(!qbevent)break;evnt(24360);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24361);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("C_RA",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24361);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 10 ; +if(!qbevent)break;evnt(24361);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24362);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("_RGBA",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24362);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 10 ; +if(!qbevent)break;evnt(24362);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24363);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("_RGB",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24363);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 10 ; +if(!qbevent)break;evnt(24363);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24364);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("C_RX",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24364);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 10 ; +if(!qbevent)break;evnt(24364);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24365);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("C_GR",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24365);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 10 ; +if(!qbevent)break;evnt(24365);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24366);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("C_BL",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24366);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 10 ; +if(!qbevent)break;evnt(24366);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24367);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("C_AL",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24367);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 10 ; +if(!qbevent)break;evnt(24367);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24368);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("_RED",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24368);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 10 ; +if(!qbevent)break;evnt(24368);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24369);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("_GREEN",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24369);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 10 ; +if(!qbevent)break;evnt(24369);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24370);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("_BLUE",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24370);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 10 ; +if(!qbevent)break;evnt(24370);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24371);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("_ALPHA",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24371);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 10 ; +if(!qbevent)break;evnt(24371);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24374);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("^",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24374);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 20 ; +if(!qbevent)break;evnt(24374);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24375);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("SQR",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24375);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 20 ; +if(!qbevent)break;evnt(24375);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24376);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("ROOT",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24376);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 20 ; +if(!qbevent)break;evnt(24376);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24378);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("*",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24378);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 30 ; +if(!qbevent)break;evnt(24378);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24379);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("/",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24379);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 30 ; +if(!qbevent)break;evnt(24379);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24381);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("\\",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24381);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 40 ; +if(!qbevent)break;evnt(24381);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24383);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("MOD",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24383);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 50 ; +if(!qbevent)break;evnt(24383);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24385);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("+",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24385);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 60 ; +if(!qbevent)break;evnt(24385);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24386);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("-",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24386);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 60 ; +if(!qbevent)break;evnt(24386);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24389);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("<>",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24389);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 70 ; +if(!qbevent)break;evnt(24389);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24390);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("><",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24390);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 70 ; +if(!qbevent)break;evnt(24390);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24391);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("<=",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24391);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 70 ; +if(!qbevent)break;evnt(24391);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24392);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len(">=",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24392);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 70 ; +if(!qbevent)break;evnt(24392);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24393);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("=<",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24393);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 70 ; +if(!qbevent)break;evnt(24393);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24394);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("=>",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24394);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 70 ; +if(!qbevent)break;evnt(24394);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24395);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len(">",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24395);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 70 ; +if(!qbevent)break;evnt(24395);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24396);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("<",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24396);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 70 ; +if(!qbevent)break;evnt(24396);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24397);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("=",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24397);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 70 ; +if(!qbevent)break;evnt(24397);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24399);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("NOT",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24399);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 80 ; +if(!qbevent)break;evnt(24399);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24400);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("AND",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24400);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 90 ; +if(!qbevent)break;evnt(24400);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24401);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("OR",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24401);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 100 ; +if(!qbevent)break;evnt(24401);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24402);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("XOR",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24402);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 110 ; +if(!qbevent)break;evnt(24402);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24403);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("EQV",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24403);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 120 ; +if(!qbevent)break;evnt(24403);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24404);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len("IMP",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24404);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 130 ; +if(!qbevent)break;evnt(24404);}while(r); +do{ +*_SUB_SET_ORDEROFOPERATIONS_LONG_I=*_SUB_SET_ORDEROFOPERATIONS_LONG_I+ 1 ; +if(!qbevent)break;evnt(24405);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long])),qbs_new_txt_len(",",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24405);}while(r); +do{ +tmp_long=array_check((*_SUB_SET_ORDEROFOPERATIONS_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5]); +if (!new_error) ((int16*)(__ARRAY_INTEGER_PL[0]))[tmp_long]= 1000 ; +if(!qbevent)break;evnt(24405);}while(r); +do{ if (__ARRAY_STRING_ONAME[2]&2){ error(10); @@ -108052,7 +108052,7 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long]=(uint64)qbs_new while(tmp_long--) ((uint64*)(__ARRAY_STRING_ONAME[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -} +} if (__ARRAY_INTEGER_PL[2]&2){ error(10); @@ -108090,1730 +108090,1730 @@ if (!__ARRAY_INTEGER_PL[0]) error(257); } } __ARRAY_INTEGER_PL[2]|=1; -} -if(!qbevent)break;evnt(24407);}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free70.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -qbs* FUNC_EVALUATENUMBERS(int32*_FUNC_EVALUATENUMBERS_LONG_P,ptrszint*_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data71.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -if(!qbevent)break;evnt(24411);}while(r); -S_33005:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs__trim(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))),qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(24414);if(r)goto S_33005;} -do{ -tmp_long=array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[tmp_long])),qbs_new_txt_len("0",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24414);}while(r); -} -S_33008:; -if ((qbs_cleanup(qbs_tmp_base,(-(((int16*)(__ARRAY_INTEGER_PL[0]))[array_check((*_FUNC_EVALUATENUMBERS_LONG_P)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5])]>= 20 ))&(((-(((int32)(qbs__trim(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))))->len)== 0 ))|(-(((int32)(qbs__trim(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))))->len)== 0 ))))))||new_error){ -if(qbevent){evnt(24416);if(r)goto S_33008;} -do{ -qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_new_txt_len("ERROR - Missing operand",23)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24417);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(24417);}while(r); -} -S_33012:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])),qbs_new_txt_len(",",1),0)))||new_error){ -if(qbevent){evnt(24420);if(r)goto S_33012;} -do{ -qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_add(qbs_add(qbs_new_txt_len("ERROR - Invalid comma (",23),((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24421);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(24421);}while(r); -} -do{ -*_FUNC_EVALUATENUMBERS_LONG_L2=func_instr(NULL,((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])),qbs_new_txt_len(",",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24423);}while(r); -S_33017:; -if ((*_FUNC_EVALUATENUMBERS_LONG_L2)||new_error){ -if(qbevent){evnt(24424);if(r)goto S_33017;} -S_33018:; -qbs_set(sc_3514,((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_FUNC_EVALUATENUMBERS_LONG_P)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(qbevent){evnt(24425);if(r)goto S_33018;} -S_33019:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3514,qbs_new_txt_len("C_RG",4))||qbs_equal(sc_3514,qbs_new_txt_len("C_RA",4))||qbs_equal(sc_3514,qbs_new_txt_len("_RGB",4))||qbs_equal(sc_3514,qbs_new_txt_len("_RGBA",5))||qbs_equal(sc_3514,qbs_new_txt_len("_RED",4))||qbs_equal(sc_3514,qbs_new_txt_len("_GREEN",6))||qbs_equal(sc_3514,qbs_new_txt_len("_BLUE",5))||qbs_equal(sc_3514,qbs_new_txt_len("C_BL",4))||qbs_equal(sc_3514,qbs_new_txt_len("_ALPHA",6))))||new_error){ -if(qbevent){evnt(24426);if(r)goto S_33019;} -sc_ec_85_end:; -goto sc_3514_end; -} -do{ -qbs_set(_FUNC_EVALUATENUMBERS_STRING_C,func_mid(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])),*_FUNC_EVALUATENUMBERS_LONG_L2,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24428);}while(r); -do{ -tmp_long=array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[tmp_long])),qbs_left(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])),*_FUNC_EVALUATENUMBERS_LONG_L2- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24429);}while(r); -sc_3514_end:; -} -S_33025:; -sc_3515=((int16*)(__ARRAY_INTEGER_PL[0]))[array_check((*_FUNC_EVALUATENUMBERS_LONG_P)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5])]; -if(qbevent){evnt(24433);if(r)goto S_33025;} -S_33026:; -if (((sc_3515==( 5 )))||new_error){ -if(qbevent){evnt(24434);if(r)goto S_33026;} -S_33027:; -qbs_set(sc_3516,((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_FUNC_EVALUATENUMBERS_LONG_P)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(qbevent){evnt(24436);if(r)goto S_33027;} -S_33028:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3516,qbs_new_txt_len("C_UOF",5))))||new_error){ -if(qbevent){evnt(24437);if(r)goto S_33028;} -do{ -*_FUNC_EVALUATENUMBERS_UOFFSET_N1=qbr(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24437);}while(r); -do{ -qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_rtrim(qbs_ltrim(qbs_str((uint64)(*_FUNC_EVALUATENUMBERS_UOFFSET_N1))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24437);}while(r); -sc_ec_86_end:; -goto sc_3516_end; -} -S_33031:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3516,qbs_new_txt_len("C_ULO",5))))||new_error){ -if(qbevent){evnt(24438);if(r)goto S_33031;} -do{ -*_FUNC_EVALUATENUMBERS_OFFSET_N1=qbr(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24438);}while(r); -do{ -qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_rtrim(qbs_ltrim(qbs_str((int64)(*_FUNC_EVALUATENUMBERS_OFFSET_N1))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24438);}while(r); -sc_ec_87_end:; -goto sc_3516_end; -} -S_33034:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3516,qbs_new_txt_len("C_UBY",5))))||new_error){ -if(qbevent){evnt(24439);if(r)goto S_33034;} -do{ -*_FUNC_EVALUATENUMBERS_UBYTE_N1=qbr_float_to_long(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24439);}while(r); -do{ -qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_rtrim(qbs_ltrim(qbs_str((uint8)(*_FUNC_EVALUATENUMBERS_UBYTE_N1))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24439);}while(r); -sc_ec_88_end:; -goto sc_3516_end; -} -S_33037:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3516,qbs_new_txt_len("C_UIN",5))))||new_error){ -if(qbevent){evnt(24440);if(r)goto S_33037;} -do{ -*_FUNC_EVALUATENUMBERS_UINTEGER_N1=qbr_float_to_long(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24440);}while(r); -do{ -qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_rtrim(qbs_ltrim(qbs_str((uint16)(*_FUNC_EVALUATENUMBERS_UINTEGER_N1))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24440);}while(r); -sc_ec_89_end:; -goto sc_3516_end; -} -S_33040:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3516,qbs_new_txt_len("C_BY",4))))||new_error){ -if(qbevent){evnt(24441);if(r)goto S_33040;} -do{ -*_FUNC_EVALUATENUMBERS_BYTE_N1=qbr_float_to_long(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24441);}while(r); -do{ -qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_rtrim(qbs_ltrim(qbs_str((int8)(*_FUNC_EVALUATENUMBERS_BYTE_N1))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24441);}while(r); -sc_ec_90_end:; -goto sc_3516_end; -} -S_33043:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3516,qbs_new_txt_len("C_IN",4))))||new_error){ -if(qbevent){evnt(24442);if(r)goto S_33043;} -do{ -*_FUNC_EVALUATENUMBERS_INTEGER_N1=qbr_float_to_long(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24442);}while(r); -do{ -qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_rtrim(qbs_ltrim(qbs_str((int16)(*_FUNC_EVALUATENUMBERS_INTEGER_N1))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24442);}while(r); -sc_ec_91_end:; -goto sc_3516_end; -} -S_33046:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3516,qbs_new_txt_len("C_UIF",5))))||new_error){ -if(qbevent){evnt(24443);if(r)goto S_33046;} -do{ -*_FUNC_EVALUATENUMBERS_UINTEGER64_N1=qbr(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24443);}while(r); -do{ -qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_rtrim(qbs_ltrim(qbs_str((uint64)(*_FUNC_EVALUATENUMBERS_UINTEGER64_N1))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24443);}while(r); -sc_ec_92_end:; -goto sc_3516_end; -} -S_33049:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3516,qbs_new_txt_len("C_OF",4))))||new_error){ -if(qbevent){evnt(24444);if(r)goto S_33049;} -do{ -*_FUNC_EVALUATENUMBERS_ULONG_N1=qbr(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24444);}while(r); -do{ -qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_rtrim(qbs_ltrim(qbs_str((uint32)(*_FUNC_EVALUATENUMBERS_ULONG_N1))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24444);}while(r); -sc_ec_93_end:; -goto sc_3516_end; -} -S_33052:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3516,qbs_new_txt_len("C_IF",4))))||new_error){ -if(qbevent){evnt(24445);if(r)goto S_33052;} -do{ -*_FUNC_EVALUATENUMBERS_INTEGER64_N1=qbr(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24445);}while(r); -do{ -qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_rtrim(qbs_ltrim(qbs_str((int64)(*_FUNC_EVALUATENUMBERS_INTEGER64_N1))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24445);}while(r); -sc_ec_94_end:; -goto sc_3516_end; -} -S_33055:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3516,qbs_new_txt_len("C_LO",4))))||new_error){ -if(qbevent){evnt(24446);if(r)goto S_33055;} -do{ -*_FUNC_EVALUATENUMBERS_LONG_N1=qbr(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24446);}while(r); -do{ -qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_rtrim(qbs_ltrim(qbs_str((int32)(*_FUNC_EVALUATENUMBERS_LONG_N1))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24446);}while(r); -sc_ec_95_end:; -goto sc_3516_end; -} -S_33058:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3516,qbs_new_txt_len("C_UBI",5))))||new_error){ -if(qbevent){evnt(24447);if(r)goto S_33058;} -do{ -*_FUNC_EVALUATENUMBERS_UBIT1_N1=(qbr(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))))&1; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24447);}while(r); -do{ -qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_rtrim(qbs_ltrim(qbs_str((int64)(*_FUNC_EVALUATENUMBERS_UBIT1_N1))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24447);}while(r); -sc_ec_96_end:; -goto sc_3516_end; -} -S_33061:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3516,qbs_new_txt_len("C_BI",4))))||new_error){ -if(qbevent){evnt(24448);if(r)goto S_33061;} -do{ -if ((*_FUNC_EVALUATENUMBERS_BIT1_N1=qbr(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))))&1){ -*_FUNC_EVALUATENUMBERS_BIT1_N1|=-2; -}else{ -*_FUNC_EVALUATENUMBERS_BIT1_N1&=1; -} -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24448);}while(r); -do{ -qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_rtrim(qbs_ltrim(qbs_str((int64)(*_FUNC_EVALUATENUMBERS_BIT1_N1))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24448);}while(r); -sc_ec_97_end:; -goto sc_3516_end; -} -S_33064:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3516,qbs_new_txt_len("C_FL",4))))||new_error){ -if(qbevent){evnt(24449);if(r)goto S_33064;} -do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24449);}while(r); -do{ -qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_rtrim(qbs_ltrim(qbs_str((long double)(*_FUNC_EVALUATENUMBERS_FLOAT_N1))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24449);}while(r); -sc_ec_98_end:; -goto sc_3516_end; -} -S_33067:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3516,qbs_new_txt_len("C_DO",4))))||new_error){ -if(qbevent){evnt(24450);if(r)goto S_33067;} -do{ -*_FUNC_EVALUATENUMBERS_DOUBLE_N1=func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24450);}while(r); -do{ -qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_rtrim(qbs_ltrim(qbs_str((double)(*_FUNC_EVALUATENUMBERS_DOUBLE_N1))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24450);}while(r); -sc_ec_99_end:; -goto sc_3516_end; -} -S_33070:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3516,qbs_new_txt_len("C_SI",4))))||new_error){ -if(qbevent){evnt(24451);if(r)goto S_33070;} -do{ -*_FUNC_EVALUATENUMBERS_SINGLE_N1=func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24451);}while(r); -do{ -qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_rtrim(qbs_ltrim(qbs_str((float)(*_FUNC_EVALUATENUMBERS_SINGLE_N1))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24451);}while(r); -sc_ec_100_end:; -goto sc_3516_end; -} -sc_3516_end:; -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(24453);}while(r); -sc_ec_101_end:; -goto sc_3515_end; -} -S_33075:; -if (((sc_3515==( 10 )))||new_error){ -if(qbevent){evnt(24454);if(r)goto S_33075;} -S_33076:; -qbs_set(sc_3517,((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_FUNC_EVALUATENUMBERS_LONG_P)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(qbevent){evnt(24455);if(r)goto S_33076;} -S_33077:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3517,qbs_new_txt_len("_PI",3))))||new_error){ -if(qbevent){evnt(24456);if(r)goto S_33077;} -do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1= 3.14159265358979323846264338327950288E+0L ; -if(!qbevent)break;evnt(24457);}while(r); -S_33079:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])),qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(24458);if(r)goto S_33079;} -do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=*_FUNC_EVALUATENUMBERS_FLOAT_N1*func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24458);}while(r); -} -sc_ec_102_end:; -goto sc_3517_end; -} -S_33082:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3517,qbs_new_txt_len("_ACOS",5))))||new_error){ -if(qbevent){evnt(24459);if(r)goto S_33082;} -do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=acos(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24459);}while(r); -sc_ec_103_end:; -goto sc_3517_end; -} -S_33084:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3517,qbs_new_txt_len("_ASIN",5))))||new_error){ -if(qbevent){evnt(24460);if(r)goto S_33084;} -do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=asin(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24460);}while(r); -sc_ec_104_end:; -goto sc_3517_end; -} -S_33086:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3517,qbs_new_txt_len("_ARCSEC",7))))||new_error){ -if(qbevent){evnt(24461);if(r)goto S_33086;} -do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=func_arcsec(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24461);}while(r); -sc_ec_105_end:; -goto sc_3517_end; -} -S_33088:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3517,qbs_new_txt_len("_ARCCSC",7))))||new_error){ -if(qbevent){evnt(24462);if(r)goto S_33088;} -do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=func_arccsc(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24462);}while(r); -sc_ec_106_end:; -goto sc_3517_end; -} -S_33090:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3517,qbs_new_txt_len("_ARCCOT",7))))||new_error){ -if(qbevent){evnt(24463);if(r)goto S_33090;} -do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=func_arccot(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24463);}while(r); -sc_ec_107_end:; -goto sc_3517_end; -} -S_33092:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3517,qbs_new_txt_len("_SECH",5))))||new_error){ -if(qbevent){evnt(24464);if(r)goto S_33092;} -do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=func_sech(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24464);}while(r); -sc_ec_108_end:; -goto sc_3517_end; -} -S_33094:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3517,qbs_new_txt_len("_CSCH",5))))||new_error){ -if(qbevent){evnt(24465);if(r)goto S_33094;} -do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=func_csch(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24465);}while(r); -sc_ec_109_end:; -goto sc_3517_end; -} -S_33096:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3517,qbs_new_txt_len("_COTH",5))))||new_error){ -if(qbevent){evnt(24466);if(r)goto S_33096;} -do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=func_coth(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24466);}while(r); -sc_ec_110_end:; -goto sc_3517_end; -} -S_33098:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3517,qbs_new_txt_len("C_RG",4))))||new_error){ -if(qbevent){evnt(24467);if(r)goto S_33098;} -do{ -qbs_set(_FUNC_EVALUATENUMBERS_STRING_N,((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24468);}while(r); -S_33100:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(24469);if(r)goto S_33100;} -do{ -qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_new_txt_len("ERROR - Invalid null _RGB32",27)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24469);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(24469);}while(r); -} -do{ -*_FUNC_EVALUATENUMBERS_LONG_C1=func_instr(NULL,_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len(",",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24470);}while(r); -S_33105:; -if ((*_FUNC_EVALUATENUMBERS_LONG_C1)||new_error){ -if(qbevent){evnt(24471);if(r)goto S_33105;} -do{ -*_FUNC_EVALUATENUMBERS_LONG_C2=func_instr(*_FUNC_EVALUATENUMBERS_LONG_C1+ 1 ,_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len(",",1),0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24471);}while(r); -} -S_33108:; -if ((*_FUNC_EVALUATENUMBERS_LONG_C2)||new_error){ -if(qbevent){evnt(24472);if(r)goto S_33108;} -do{ -*_FUNC_EVALUATENUMBERS_LONG_C3=func_instr(*_FUNC_EVALUATENUMBERS_LONG_C2+ 1 ,_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len(",",1),0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24472);}while(r); -} -S_33111:; -if ((*_FUNC_EVALUATENUMBERS_LONG_C3)||new_error){ -if(qbevent){evnt(24473);if(r)goto S_33111;} -do{ -*_FUNC_EVALUATENUMBERS_LONG_C4=func_instr(*_FUNC_EVALUATENUMBERS_LONG_C3+ 1 ,_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len(",",1),0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24473);}while(r); -} -S_33114:; -if ((-(*_FUNC_EVALUATENUMBERS_LONG_C1== 0 ))||new_error){ -if(qbevent){evnt(24474);if(r)goto S_33114;} -do{ -*_FUNC_EVALUATENUMBERS_LONG_N=qbr(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24475);}while(r); -do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=func__rgb32(*_FUNC_EVALUATENUMBERS_LONG_N,*_FUNC_EVALUATENUMBERS_LONG_N,*_FUNC_EVALUATENUMBERS_LONG_N); -if(!qbevent)break;evnt(24476);}while(r); -S_33117:; -}else{ -if (-(*_FUNC_EVALUATENUMBERS_LONG_C2== 0 )){ -if(qbevent){evnt(24477);if(r)goto S_33117;} -do{ -*_FUNC_EVALUATENUMBERS_LONG_N=qbr(func_val(qbs_left(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])),*_FUNC_EVALUATENUMBERS_LONG_C1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24478);}while(r); -do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N2=func_val(func_mid(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])),*_FUNC_EVALUATENUMBERS_LONG_C1+ 1 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24479);}while(r); -do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=func__rgba32(*_FUNC_EVALUATENUMBERS_LONG_N,*_FUNC_EVALUATENUMBERS_LONG_N,*_FUNC_EVALUATENUMBERS_LONG_N,qbr(*_FUNC_EVALUATENUMBERS_FLOAT_N2)); -if(!qbevent)break;evnt(24480);}while(r); -S_33121:; -}else{ -if (-(*_FUNC_EVALUATENUMBERS_LONG_C3== 0 )){ -if(qbevent){evnt(24481);if(r)goto S_33121;} -do{ -*_FUNC_EVALUATENUMBERS_LONG_N=qbr(func_val(qbs_left(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])),*_FUNC_EVALUATENUMBERS_LONG_C1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24482);}while(r); -do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N2=func_val(func_mid(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])),*_FUNC_EVALUATENUMBERS_LONG_C1+ 1 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24483);}while(r); -do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N3=func_val(func_mid(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])),*_FUNC_EVALUATENUMBERS_LONG_C2+ 1 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24484);}while(r); -do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=func__rgb32(*_FUNC_EVALUATENUMBERS_LONG_N,qbr(*_FUNC_EVALUATENUMBERS_FLOAT_N2),qbr(*_FUNC_EVALUATENUMBERS_FLOAT_N3)); -if(!qbevent)break;evnt(24485);}while(r); -S_33126:; -}else{ -if (-(*_FUNC_EVALUATENUMBERS_LONG_C4== 0 )){ -if(qbevent){evnt(24486);if(r)goto S_33126;} -do{ -*_FUNC_EVALUATENUMBERS_LONG_N=qbr(func_val(qbs_left(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])),*_FUNC_EVALUATENUMBERS_LONG_C1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24487);}while(r); -do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N2=func_val(func_mid(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])),*_FUNC_EVALUATENUMBERS_LONG_C1+ 1 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24488);}while(r); -do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N3=func_val(func_mid(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])),*_FUNC_EVALUATENUMBERS_LONG_C2+ 1 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24489);}while(r); -do{ -*_FUNC_EVALUATENUMBERS_LONG_N4=qbr(func_val(func_mid(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])),*_FUNC_EVALUATENUMBERS_LONG_C3+ 1 ,NULL,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24490);}while(r); -do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=func__rgba32(*_FUNC_EVALUATENUMBERS_LONG_N,qbr(*_FUNC_EVALUATENUMBERS_FLOAT_N2),qbr(*_FUNC_EVALUATENUMBERS_FLOAT_N3),*_FUNC_EVALUATENUMBERS_LONG_N4); -if(!qbevent)break;evnt(24491);}while(r); -}else{ -do{ -qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_add(qbs_add(qbs_new_txt_len("ERROR - Invalid comma count (",29),((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24493);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(24493);}while(r); -} -} -} -} -sc_ec_111_end:; -goto sc_3517_end; -} -S_33136:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3517,qbs_new_txt_len("C_RA",4))))||new_error){ -if(qbevent){evnt(24495);if(r)goto S_33136;} -do{ -qbs_set(_FUNC_EVALUATENUMBERS_STRING_N,((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24496);}while(r); -S_33138:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(24497);if(r)goto S_33138;} -do{ -qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_new_txt_len("ERROR - Invalid null _RGBA32",28)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24497);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(24497);}while(r); -} -do{ -*_FUNC_EVALUATENUMBERS_LONG_C1=func_instr(NULL,_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len(",",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24498);}while(r); -S_33143:; -if ((*_FUNC_EVALUATENUMBERS_LONG_C1)||new_error){ -if(qbevent){evnt(24499);if(r)goto S_33143;} -do{ -*_FUNC_EVALUATENUMBERS_LONG_C2=func_instr(*_FUNC_EVALUATENUMBERS_LONG_C1+ 1 ,_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len(",",1),0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24499);}while(r); -} -S_33146:; -if ((*_FUNC_EVALUATENUMBERS_LONG_C2)||new_error){ -if(qbevent){evnt(24500);if(r)goto S_33146;} -do{ -*_FUNC_EVALUATENUMBERS_LONG_C3=func_instr(*_FUNC_EVALUATENUMBERS_LONG_C2+ 1 ,_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len(",",1),0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24500);}while(r); -} -S_33149:; -if ((*_FUNC_EVALUATENUMBERS_LONG_C3)||new_error){ -if(qbevent){evnt(24501);if(r)goto S_33149;} -do{ -*_FUNC_EVALUATENUMBERS_LONG_C4=func_instr(*_FUNC_EVALUATENUMBERS_LONG_C3+ 1 ,_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len(",",1),0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24501);}while(r); -} -S_33152:; -if (((-(*_FUNC_EVALUATENUMBERS_LONG_C3== 0 ))|(-(*_FUNC_EVALUATENUMBERS_LONG_C4!= 0 )))||new_error){ -if(qbevent){evnt(24502);if(r)goto S_33152;} -do{ -qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_add(qbs_add(qbs_new_txt_len("ERROR - Invalid comma count (",29),((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24502);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(24502);}while(r); -} -do{ -*_FUNC_EVALUATENUMBERS_LONG_N=qbr(func_val(qbs_left(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])),*_FUNC_EVALUATENUMBERS_LONG_C1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24504);}while(r); -do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N2=func_val(func_mid(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])),*_FUNC_EVALUATENUMBERS_LONG_C1+ 1 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24505);}while(r); -do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N3=func_val(func_mid(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])),*_FUNC_EVALUATENUMBERS_LONG_C2+ 1 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24506);}while(r); -do{ -*_FUNC_EVALUATENUMBERS_LONG_N4=qbr(func_val(func_mid(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])),*_FUNC_EVALUATENUMBERS_LONG_C3+ 1 ,NULL,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24507);}while(r); -do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=func__rgba32(*_FUNC_EVALUATENUMBERS_LONG_N,qbr(*_FUNC_EVALUATENUMBERS_FLOAT_N2),qbr(*_FUNC_EVALUATENUMBERS_FLOAT_N3),*_FUNC_EVALUATENUMBERS_LONG_N4); -if(!qbevent)break;evnt(24508);}while(r); -sc_ec_112_end:; -goto sc_3517_end; -} -S_33161:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3517,qbs_new_txt_len("_RGB",4))))||new_error){ -if(qbevent){evnt(24509);if(r)goto S_33161;} -do{ -qbs_set(_FUNC_EVALUATENUMBERS_STRING_N,((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24510);}while(r); -S_33163:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(24511);if(r)goto S_33163;} -do{ -qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_new_txt_len("ERROR - Invalid null _RGB",25)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24511);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(24511);}while(r); -} -do{ -*_FUNC_EVALUATENUMBERS_LONG_C1=func_instr(NULL,_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len(",",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24512);}while(r); -S_33168:; -if ((*_FUNC_EVALUATENUMBERS_LONG_C1)||new_error){ -if(qbevent){evnt(24513);if(r)goto S_33168;} -do{ -*_FUNC_EVALUATENUMBERS_LONG_C2=func_instr(*_FUNC_EVALUATENUMBERS_LONG_C1+ 1 ,_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len(",",1),0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24513);}while(r); -} -S_33171:; -if ((*_FUNC_EVALUATENUMBERS_LONG_C2)||new_error){ -if(qbevent){evnt(24514);if(r)goto S_33171;} -do{ -*_FUNC_EVALUATENUMBERS_LONG_C3=func_instr(*_FUNC_EVALUATENUMBERS_LONG_C2+ 1 ,_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len(",",1),0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24514);}while(r); -} -S_33174:; -if ((*_FUNC_EVALUATENUMBERS_LONG_C3)||new_error){ -if(qbevent){evnt(24515);if(r)goto S_33174;} -do{ -*_FUNC_EVALUATENUMBERS_LONG_C4=func_instr(*_FUNC_EVALUATENUMBERS_LONG_C3+ 1 ,_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len(",",1),0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24515);}while(r); -} -S_33177:; -if (((-(*_FUNC_EVALUATENUMBERS_LONG_C3== 0 ))|(-(*_FUNC_EVALUATENUMBERS_LONG_C4!= 0 )))||new_error){ -if(qbevent){evnt(24516);if(r)goto S_33177;} -do{ -qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_add(qbs_add(qbs_new_txt_len("ERROR - Invalid comma count (",29),((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))),qbs_new_txt_len("). _RGB requires 4 parameters for Red, Green, Blue, ScreenMode.",63))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24516);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(24516);}while(r); -} -do{ -*_FUNC_EVALUATENUMBERS_LONG_N=qbr(func_val(qbs_left(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])),*_FUNC_EVALUATENUMBERS_LONG_C1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24518);}while(r); -do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N2=func_val(func_mid(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])),*_FUNC_EVALUATENUMBERS_LONG_C1+ 1 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24519);}while(r); -do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N3=func_val(func_mid(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])),*_FUNC_EVALUATENUMBERS_LONG_C2+ 1 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24520);}while(r); -do{ -*_FUNC_EVALUATENUMBERS_LONG_N4=qbr(func_val(func_mid(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])),*_FUNC_EVALUATENUMBERS_LONG_C3+ 1 ,NULL,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24521);}while(r); -S_33185:; -if(qbevent){evnt(24522);if(r)goto S_33185;} -S_33186:; -if ((((*_FUNC_EVALUATENUMBERS_LONG_N4>=( 0 ))&&(*_FUNC_EVALUATENUMBERS_LONG_N4<=( 2 )))||((*_FUNC_EVALUATENUMBERS_LONG_N4>=( 7 ))&&(*_FUNC_EVALUATENUMBERS_LONG_N4<=( 13 )))||(*_FUNC_EVALUATENUMBERS_LONG_N4==( 256 ))||(*_FUNC_EVALUATENUMBERS_LONG_N4==( 32 )))||new_error){ -if(qbevent){evnt(24523);if(r)goto S_33186;} -sc_ec_113_end:; -goto sc_3518_end; -} -do{ -qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_add(qbs_add(qbs_new_txt_len("ERROR - Invalid Screen Mode (",29),qbs_str((int32)(*_FUNC_EVALUATENUMBERS_LONG_N4))),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24525);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(24525);}while(r); -sc_3518_end:; -do{ -*_FUNC_EVALUATENUMBERS_LONG_T=func__newimage( 1 , 1 ,*_FUNC_EVALUATENUMBERS_LONG_N4,0|1); -if(!qbevent)break;evnt(24527);}while(r); -do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=func__rgb(*_FUNC_EVALUATENUMBERS_LONG_N,qbr(*_FUNC_EVALUATENUMBERS_FLOAT_N2),qbr(*_FUNC_EVALUATENUMBERS_FLOAT_N3),*_FUNC_EVALUATENUMBERS_LONG_T,0|1); -if(!qbevent)break;evnt(24528);}while(r); -do{ -sub__freeimage(*_FUNC_EVALUATENUMBERS_LONG_T,1); -if(!qbevent)break;evnt(24529);}while(r); -sc_ec_114_end:; -goto sc_3517_end; -} -S_33194:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3517,qbs_new_txt_len("_RGBA",5))))||new_error){ -if(qbevent){evnt(24530);if(r)goto S_33194;} -do{ -qbs_set(_FUNC_EVALUATENUMBERS_STRING_N,((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24531);}while(r); -S_33196:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(24532);if(r)goto S_33196;} -do{ -qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_new_txt_len("ERROR - Invalid null _RGBA",26)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24532);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(24532);}while(r); -} -do{ -*_FUNC_EVALUATENUMBERS_LONG_C1=func_instr(NULL,_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len(",",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24533);}while(r); -S_33201:; -if ((*_FUNC_EVALUATENUMBERS_LONG_C1)||new_error){ -if(qbevent){evnt(24534);if(r)goto S_33201;} -do{ -*_FUNC_EVALUATENUMBERS_LONG_C2=func_instr(*_FUNC_EVALUATENUMBERS_LONG_C1+ 1 ,_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len(",",1),0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24534);}while(r); -} -S_33204:; -if ((*_FUNC_EVALUATENUMBERS_LONG_C2)||new_error){ -if(qbevent){evnt(24535);if(r)goto S_33204;} -do{ -*_FUNC_EVALUATENUMBERS_LONG_C3=func_instr(*_FUNC_EVALUATENUMBERS_LONG_C2+ 1 ,_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len(",",1),0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24535);}while(r); -} -S_33207:; -if ((*_FUNC_EVALUATENUMBERS_LONG_C3)||new_error){ -if(qbevent){evnt(24536);if(r)goto S_33207;} -do{ -*_FUNC_EVALUATENUMBERS_LONG_C4=func_instr(*_FUNC_EVALUATENUMBERS_LONG_C3+ 1 ,_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len(",",1),0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24536);}while(r); -} -S_33210:; -if ((*_FUNC_EVALUATENUMBERS_LONG_C4)||new_error){ -if(qbevent){evnt(24537);if(r)goto S_33210;} -do{ -*_FUNC_EVALUATENUMBERS_LONG_C5=func_instr(*_FUNC_EVALUATENUMBERS_LONG_C4+ 1 ,_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len(",",1),0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24537);}while(r); -} -S_33213:; -if (((-(*_FUNC_EVALUATENUMBERS_LONG_C4== 0 ))|(-(*_FUNC_EVALUATENUMBERS_LONG_C5!= 0 )))||new_error){ -if(qbevent){evnt(24538);if(r)goto S_33213;} -do{ -qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_add(qbs_add(qbs_new_txt_len("ERROR - Invalid comma count (",29),((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))),qbs_new_txt_len("). _RGBA requires 5 parameters for Red, Green, Blue, Alpha, ScreenMode.",71))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24538);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(24538);}while(r); -} -do{ -*_FUNC_EVALUATENUMBERS_LONG_N=qbr(func_val(qbs_left(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])),*_FUNC_EVALUATENUMBERS_LONG_C1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24540);}while(r); -do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N2=func_val(func_mid(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])),*_FUNC_EVALUATENUMBERS_LONG_C1+ 1 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24541);}while(r); -do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N3=func_val(func_mid(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])),*_FUNC_EVALUATENUMBERS_LONG_C2+ 1 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24542);}while(r); -do{ -*_FUNC_EVALUATENUMBERS_LONG_N4=qbr(func_val(func_mid(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])),*_FUNC_EVALUATENUMBERS_LONG_C3+ 1 ,NULL,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24543);}while(r); -do{ -*_FUNC_EVALUATENUMBERS_LONG_N5=qbr(func_val(func_mid(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])),*_FUNC_EVALUATENUMBERS_LONG_C4+ 1 ,NULL,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24544);}while(r); -S_33222:; -if(qbevent){evnt(24545);if(r)goto S_33222;} -S_33223:; -if ((((*_FUNC_EVALUATENUMBERS_LONG_N5>=( 0 ))&&(*_FUNC_EVALUATENUMBERS_LONG_N5<=( 2 )))||((*_FUNC_EVALUATENUMBERS_LONG_N5>=( 7 ))&&(*_FUNC_EVALUATENUMBERS_LONG_N5<=( 13 )))||(*_FUNC_EVALUATENUMBERS_LONG_N5==( 256 ))||(*_FUNC_EVALUATENUMBERS_LONG_N5==( 32 )))||new_error){ -if(qbevent){evnt(24546);if(r)goto S_33223;} -sc_ec_115_end:; -goto sc_3519_end; -} -do{ -qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_add(qbs_add(qbs_new_txt_len("ERROR - Invalid Screen Mode (",29),qbs_str((int32)(*_FUNC_EVALUATENUMBERS_LONG_N5))),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24548);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(24548);}while(r); -sc_3519_end:; -do{ -*_FUNC_EVALUATENUMBERS_LONG_T=func__newimage( 1 , 1 ,*_FUNC_EVALUATENUMBERS_LONG_N5,0|1); -if(!qbevent)break;evnt(24550);}while(r); -do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=func__rgba(*_FUNC_EVALUATENUMBERS_LONG_N,qbr(*_FUNC_EVALUATENUMBERS_FLOAT_N2),qbr(*_FUNC_EVALUATENUMBERS_FLOAT_N3),*_FUNC_EVALUATENUMBERS_LONG_N4,*_FUNC_EVALUATENUMBERS_LONG_T,0|1); -if(!qbevent)break;evnt(24551);}while(r); -do{ -sub__freeimage(*_FUNC_EVALUATENUMBERS_LONG_T,1); -if(!qbevent)break;evnt(24552);}while(r); -sc_ec_116_end:; -goto sc_3517_end; -} -S_33231:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3517,qbs_new_txt_len("_RED",4))||qbs_equal(sc_3517,qbs_new_txt_len("_GREEN",6))||qbs_equal(sc_3517,qbs_new_txt_len("_BLUE",5))||qbs_equal(sc_3517,qbs_new_txt_len("_ALPHA",6))))||new_error){ -if(qbevent){evnt(24553);if(r)goto S_33231;} -do{ -qbs_set(_FUNC_EVALUATENUMBERS_STRING_N,((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24554);}while(r); -S_33233:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(24555);if(r)goto S_33233;} -do{ -qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_add(qbs_new_txt_len("ERROR - Invalid null ",21),((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_FUNC_EVALUATENUMBERS_LONG_P)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24555);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(24555);}while(r); -} -do{ -*_FUNC_EVALUATENUMBERS_LONG_C1=func_instr(NULL,_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len(",",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24556);}while(r); -S_33238:; -if ((-(*_FUNC_EVALUATENUMBERS_LONG_C1== 0 ))||new_error){ -if(qbevent){evnt(24557);if(r)goto S_33238;} -do{ -qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_add(qbs_add(qbs_new_txt_len("ERROR - ",8),((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_FUNC_EVALUATENUMBERS_LONG_P)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])]))),qbs_new_txt_len(" requires 2 parameters for Color, ScreenMode.",45))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24557);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(24557);}while(r); -} -S_33242:; -if ((*_FUNC_EVALUATENUMBERS_LONG_C1)||new_error){ -if(qbevent){evnt(24558);if(r)goto S_33242;} -do{ -*_FUNC_EVALUATENUMBERS_LONG_C2=func_instr(*_FUNC_EVALUATENUMBERS_LONG_C1+ 1 ,_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len(",",1),0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24558);}while(r); -} -S_33245:; -if ((*_FUNC_EVALUATENUMBERS_LONG_C2)||new_error){ -if(qbevent){evnt(24559);if(r)goto S_33245;} -do{ -qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_add(qbs_add(qbs_new_txt_len("ERROR - ",8),((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_FUNC_EVALUATENUMBERS_LONG_P)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])]))),qbs_new_txt_len(" requires 2 parameters for Color, ScreenMode.",45))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24559);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(24559);}while(r); -} -do{ -*_FUNC_EVALUATENUMBERS_LONG_N=qbr(func_val(qbs_left(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])),*_FUNC_EVALUATENUMBERS_LONG_C1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24560);}while(r); -do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N2=func_val(func_mid(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])),*_FUNC_EVALUATENUMBERS_LONG_C1+ 1 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24561);}while(r); -S_33251:; -if(qbevent){evnt(24562);if(r)goto S_33251;} -S_33252:; -if ((((*_FUNC_EVALUATENUMBERS_FLOAT_N2>=( 0 ))&&(*_FUNC_EVALUATENUMBERS_FLOAT_N2<=( 2 )))||((*_FUNC_EVALUATENUMBERS_FLOAT_N2>=( 7 ))&&(*_FUNC_EVALUATENUMBERS_FLOAT_N2<=( 13 )))||(*_FUNC_EVALUATENUMBERS_FLOAT_N2==( 256 ))||(*_FUNC_EVALUATENUMBERS_FLOAT_N2==( 32 )))||new_error){ -if(qbevent){evnt(24563);if(r)goto S_33252;} -sc_ec_117_end:; -goto sc_3520_end; -} -do{ -qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_add(qbs_add(qbs_new_txt_len("ERROR - Invalid Screen Mode (",29),qbs_str((long double)(*_FUNC_EVALUATENUMBERS_FLOAT_N2))),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24565);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(24565);}while(r); -sc_3520_end:; -do{ -*_FUNC_EVALUATENUMBERS_LONG_T=func__newimage( 1 , 1 ,*_FUNC_EVALUATENUMBERS_LONG_N4,0|1); -if(!qbevent)break;evnt(24567);}while(r); -S_33258:; -qbs_set(sc_3521,((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_FUNC_EVALUATENUMBERS_LONG_P)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(qbevent){evnt(24568);if(r)goto S_33258;} -S_33259:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3521,qbs_new_txt_len("_RED",4))))||new_error){ -if(qbevent){evnt(24569);if(r)goto S_33259;} -do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=func__red(*_FUNC_EVALUATENUMBERS_LONG_N,*_FUNC_EVALUATENUMBERS_LONG_T,0|1); -if(!qbevent)break;evnt(24569);}while(r); -sc_ec_118_end:; -goto sc_3521_end; -} -S_33261:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3521,qbs_new_txt_len("_BLUE",5))))||new_error){ -if(qbevent){evnt(24570);if(r)goto S_33261;} -do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=func__blue(*_FUNC_EVALUATENUMBERS_LONG_N,*_FUNC_EVALUATENUMBERS_LONG_T,0|1); -if(!qbevent)break;evnt(24570);}while(r); -sc_ec_119_end:; -goto sc_3521_end; -} -S_33263:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3521,qbs_new_txt_len("_GREEN",6))))||new_error){ -if(qbevent){evnt(24571);if(r)goto S_33263;} -do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=func__green(*_FUNC_EVALUATENUMBERS_LONG_N,*_FUNC_EVALUATENUMBERS_LONG_T,0|1); -if(!qbevent)break;evnt(24571);}while(r); -sc_ec_120_end:; -goto sc_3521_end; -} -S_33265:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3521,qbs_new_txt_len("_ALPHA",6))))||new_error){ -if(qbevent){evnt(24572);if(r)goto S_33265;} -do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=func__alpha(*_FUNC_EVALUATENUMBERS_LONG_N,*_FUNC_EVALUATENUMBERS_LONG_T,0|1); -if(!qbevent)break;evnt(24572);}while(r); -sc_ec_121_end:; -goto sc_3521_end; -} -sc_3521_end:; -do{ -sub__freeimage(*_FUNC_EVALUATENUMBERS_LONG_T,1); -if(!qbevent)break;evnt(24574);}while(r); -sc_ec_122_end:; -goto sc_3517_end; -} -S_33269:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3517,qbs_new_txt_len("C_RX",4))||qbs_equal(sc_3517,qbs_new_txt_len("C_GR",4))||qbs_equal(sc_3517,qbs_new_txt_len("C_BL",4))||qbs_equal(sc_3517,qbs_new_txt_len("C_AL",4))))||new_error){ -if(qbevent){evnt(24575);if(r)goto S_33269;} -do{ -qbs_set(_FUNC_EVALUATENUMBERS_STRING_N,((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24576);}while(r); -S_33271:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(24577);if(r)goto S_33271;} -do{ -qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_add(qbs_new_txt_len("ERROR - Invalid null ",21),((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_FUNC_EVALUATENUMBERS_LONG_P)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24577);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(24577);}while(r); -} -do{ -*_FUNC_EVALUATENUMBERS_LONG_N=qbr(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24578);}while(r); -S_33276:; -qbs_set(sc_3522,((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_FUNC_EVALUATENUMBERS_LONG_P)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(qbevent){evnt(24579);if(r)goto S_33276;} -S_33277:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3522,qbs_new_txt_len("C_RX",4))))||new_error){ -if(qbevent){evnt(24580);if(r)goto S_33277;} -do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=func__red32(*_FUNC_EVALUATENUMBERS_LONG_N); -if(!qbevent)break;evnt(24580);}while(r); -sc_ec_123_end:; -goto sc_3522_end; -} -S_33279:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3522,qbs_new_txt_len("C_BL",4))))||new_error){ -if(qbevent){evnt(24581);if(r)goto S_33279;} -do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=func__blue32(*_FUNC_EVALUATENUMBERS_LONG_N); -if(!qbevent)break;evnt(24581);}while(r); -sc_ec_124_end:; -goto sc_3522_end; -} -S_33281:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3522,qbs_new_txt_len("C_GR",4))))||new_error){ -if(qbevent){evnt(24582);if(r)goto S_33281;} -do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=func__green32(*_FUNC_EVALUATENUMBERS_LONG_N); -if(!qbevent)break;evnt(24582);}while(r); -sc_ec_125_end:; -goto sc_3522_end; -} -S_33283:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3522,qbs_new_txt_len("C_AL",4))))||new_error){ -if(qbevent){evnt(24583);if(r)goto S_33283;} -do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=func__alpha32(*_FUNC_EVALUATENUMBERS_LONG_N); -if(!qbevent)break;evnt(24583);}while(r); -sc_ec_126_end:; -goto sc_3522_end; -} -sc_3522_end:; -sc_ec_127_end:; -goto sc_3517_end; -} -S_33286:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3517,qbs_new_txt_len("COS",3))))||new_error){ -if(qbevent){evnt(24585);if(r)goto S_33286;} -do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=cos(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24585);}while(r); -sc_ec_128_end:; -goto sc_3517_end; -} -S_33288:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3517,qbs_new_txt_len("SIN",3))))||new_error){ -if(qbevent){evnt(24586);if(r)goto S_33288;} -do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=sin(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24586);}while(r); -sc_ec_129_end:; -goto sc_3517_end; -} -S_33290:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3517,qbs_new_txt_len("TAN",3))))||new_error){ -if(qbevent){evnt(24587);if(r)goto S_33290;} -do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=tan(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24587);}while(r); -sc_ec_130_end:; -goto sc_3517_end; -} -S_33292:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3517,qbs_new_txt_len("LOG",3))))||new_error){ -if(qbevent){evnt(24588);if(r)goto S_33292;} -do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=func_log(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24588);}while(r); -sc_ec_131_end:; -goto sc_3517_end; -} -S_33294:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3517,qbs_new_txt_len("EXP",3))))||new_error){ -if(qbevent){evnt(24589);if(r)goto S_33294;} -do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=func_exp_float(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24589);}while(r); -sc_ec_132_end:; -goto sc_3517_end; -} -S_33296:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3517,qbs_new_txt_len("ATN",3))))||new_error){ -if(qbevent){evnt(24590);if(r)goto S_33296;} -do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=atan(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24590);}while(r); -sc_ec_133_end:; -goto sc_3517_end; -} -S_33298:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3517,qbs_new_txt_len("_D2R",4))))||new_error){ -if(qbevent){evnt(24591);if(r)goto S_33298;} -do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1= 0.0174532925E+0 *(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24591);}while(r); -sc_ec_134_end:; -goto sc_3517_end; -} -S_33300:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3517,qbs_new_txt_len("_D2G",4))))||new_error){ -if(qbevent){evnt(24592);if(r)goto S_33300;} -do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1= 1.1111111111E+0 *(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24592);}while(r); -sc_ec_135_end:; -goto sc_3517_end; -} -S_33302:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3517,qbs_new_txt_len("_R2D",4))))||new_error){ -if(qbevent){evnt(24593);if(r)goto S_33302;} -do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1= 57.2957795E+0 *(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24593);}while(r); -sc_ec_136_end:; -goto sc_3517_end; -} -S_33304:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3517,qbs_new_txt_len("_R2G",4))))||new_error){ -if(qbevent){evnt(24594);if(r)goto S_33304;} -do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1= 0.015707963E+0 *(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24594);}while(r); -sc_ec_137_end:; -goto sc_3517_end; -} -S_33306:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3517,qbs_new_txt_len("_G2D",4))))||new_error){ -if(qbevent){evnt(24595);if(r)goto S_33306;} -do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1= 0.9E+0 *(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24595);}while(r); -sc_ec_138_end:; -goto sc_3517_end; -} -S_33308:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3517,qbs_new_txt_len("_G2R",4))))||new_error){ -if(qbevent){evnt(24596);if(r)goto S_33308;} -do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1= 63.661977237E+0 *(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24596);}while(r); -sc_ec_139_end:; -goto sc_3517_end; -} -S_33310:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3517,qbs_new_txt_len("ABS",3))))||new_error){ -if(qbevent){evnt(24597);if(r)goto S_33310;} -do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=func_abs((long double)(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24597);}while(r); -sc_ec_140_end:; -goto sc_3517_end; -} -S_33312:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3517,qbs_new_txt_len("SGN",3))))||new_error){ -if(qbevent){evnt(24598);if(r)goto S_33312;} -do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=func_sgn((long double)(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24598);}while(r); -sc_ec_141_end:; -goto sc_3517_end; -} -S_33314:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3517,qbs_new_txt_len("INT",3))))||new_error){ -if(qbevent){evnt(24599);if(r)goto S_33314;} -do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=floor(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24599);}while(r); -sc_ec_142_end:; -goto sc_3517_end; -} -S_33316:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3517,qbs_new_txt_len("_ROUND",6))))||new_error){ -if(qbevent){evnt(24600);if(r)goto S_33316;} -do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=func_round_float(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24600);}while(r); -sc_ec_143_end:; -goto sc_3517_end; -} -S_33318:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3517,qbs_new_txt_len("_CEIL",5))))||new_error){ -if(qbevent){evnt(24601);if(r)goto S_33318;} -do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=ceil(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24601);}while(r); -sc_ec_144_end:; -goto sc_3517_end; -} -S_33320:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3517,qbs_new_txt_len("FIX",3))))||new_error){ -if(qbevent){evnt(24602);if(r)goto S_33320;} -do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=func_fix_float(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24602);}while(r); -sc_ec_145_end:; -goto sc_3517_end; -} -S_33322:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3517,qbs_new_txt_len("_SEC",4))))||new_error){ -if(qbevent){evnt(24603);if(r)goto S_33322;} -do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=func_sec(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24603);}while(r); -sc_ec_146_end:; -goto sc_3517_end; -} -S_33324:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3517,qbs_new_txt_len("_CSC",4))))||new_error){ -if(qbevent){evnt(24604);if(r)goto S_33324;} -do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=func_csc(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24604);}while(r); -sc_ec_147_end:; -goto sc_3517_end; -} -S_33326:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3517,qbs_new_txt_len("_COT",4))))||new_error){ -if(qbevent){evnt(24605);if(r)goto S_33326;} -do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=func_cot(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24605);}while(r); -sc_ec_148_end:; -goto sc_3517_end; -} -sc_3517_end:; -sc_ec_149_end:; -goto sc_3515_end; -} -S_33329:; -if ((((sc_3515>=( 20 ))&&(sc_3515<=( 60 ))))||new_error){ -if(qbevent){evnt(24607);if(r)goto S_33329;} -S_33330:; -qbs_set(sc_3523,((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_FUNC_EVALUATENUMBERS_LONG_P)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(qbevent){evnt(24608);if(r)goto S_33330;} -S_33331:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3523,qbs_new_txt_len("^",1))))||new_error){ -if(qbevent){evnt(24609);if(r)goto S_33331;} -do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=pow2(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))),func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24609);}while(r); -sc_ec_150_end:; -goto sc_3523_end; -} -S_33333:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3523,qbs_new_txt_len("SQR",3))))||new_error){ -if(qbevent){evnt(24610);if(r)goto S_33333;} -do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=func_sqr(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24610);}while(r); -sc_ec_151_end:; -goto sc_3523_end; -} -S_33335:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3523,qbs_new_txt_len("ROOT",4))))||new_error){ -if(qbevent){evnt(24611);if(r)goto S_33335;} -do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24612);}while(r); -do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N2=func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24612);}while(r); -S_33338:; -if ((-(*_FUNC_EVALUATENUMBERS_FLOAT_N2== 1 ))||new_error){ -if(qbevent){evnt(24613);if(r)goto S_33338;} -do{ -qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_rtrim(qbs_ltrim(qbs_str((long double)(*_FUNC_EVALUATENUMBERS_FLOAT_N1))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24613);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(24613);}while(r); -} -S_33342:; -if (((-(*_FUNC_EVALUATENUMBERS_FLOAT_N1< 0 ))&(-(*_FUNC_EVALUATENUMBERS_FLOAT_N2>= 1 )))||new_error){ -if(qbevent){evnt(24614);if(r)goto S_33342;} -do{ -*_FUNC_EVALUATENUMBERS_LONG_SIGN= -1 ; -if(!qbevent)break;evnt(24614);}while(r); -do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=-(*_FUNC_EVALUATENUMBERS_FLOAT_N1); -if(!qbevent)break;evnt(24614);}while(r); -}else{ -do{ -*_FUNC_EVALUATENUMBERS_LONG_SIGN= 1 ; -if(!qbevent)break;evnt(24614);}while(r); -} -do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N3= 1E+0L / *_FUNC_EVALUATENUMBERS_FLOAT_N2; -if(!qbevent)break;evnt(24615);}while(r); -S_33349:; -if (((-(*_FUNC_EVALUATENUMBERS_FLOAT_N3!=floor(*_FUNC_EVALUATENUMBERS_FLOAT_N3)))&(-(*_FUNC_EVALUATENUMBERS_FLOAT_N2< 1 )))||new_error){ -if(qbevent){evnt(24616);if(r)goto S_33349;} -do{ -*_FUNC_EVALUATENUMBERS_LONG_SIGN=func_sgn((long double)(*_FUNC_EVALUATENUMBERS_FLOAT_N1)); -if(!qbevent)break;evnt(24616);}while(r); -do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=func_abs((long double)(*_FUNC_EVALUATENUMBERS_FLOAT_N1)); -if(!qbevent)break;evnt(24616);}while(r); -} -do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=*_FUNC_EVALUATENUMBERS_LONG_SIGN*(pow2(*_FUNC_EVALUATENUMBERS_FLOAT_N1,*_FUNC_EVALUATENUMBERS_FLOAT_N3)); -if(!qbevent)break;evnt(24617);}while(r); -sc_ec_152_end:; -goto sc_3523_end; -} -S_33354:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3523,qbs_new_txt_len("*",1))))||new_error){ -if(qbevent){evnt(24618);if(r)goto S_33354;} -do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))*func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24618);}while(r); -sc_ec_153_end:; -goto sc_3523_end; -} -S_33356:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3523,qbs_new_txt_len("/",1))))||new_error){ -if(qbevent){evnt(24619);if(r)goto S_33356;} -S_33357:; -if ((qbs_cleanup(qbs_tmp_base,-(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))!= 0 )))||new_error){ -if(qbevent){evnt(24620);if(r)goto S_33357;} -do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))/ func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24621);}while(r); -}else{ -do{ -qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_new_txt_len("ERROR - Division By Zero",24)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24623);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(24624);}while(r); -} -sc_ec_154_end:; -goto sc_3523_end; -} -S_33363:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3523,qbs_new_txt_len("\\",1))))||new_error){ -if(qbevent){evnt(24626);if(r)goto S_33363;} -S_33364:; -if ((qbs_cleanup(qbs_tmp_base,-(func_fix_float(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))))== 0 )))||new_error){ -if(qbevent){evnt(24627);if(r)goto S_33364;} -do{ -qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_new_txt_len("ERROR - Division By Zero",24)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24628);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(24629);}while(r); -} -do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=qbr(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))))/ qbr(func_fix_float(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24632);}while(r); -sc_ec_155_end:; -goto sc_3523_end; -} -S_33369:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3523,qbs_new_txt_len("MOD",3))))||new_error){ -if(qbevent){evnt(24633);if(r)goto S_33369;} -S_33370:; -if ((qbs_cleanup(qbs_tmp_base,-(func_fix_float(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))))== 0 )))||new_error){ -if(qbevent){evnt(24634);if(r)goto S_33370;} -do{ -qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_new_txt_len("ERROR - Division By Zero",24)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24635);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(24636);}while(r); -} -do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=qbr(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))))%qbr(func_fix_float(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24639);}while(r); -sc_ec_156_end:; -goto sc_3523_end; -} -S_33375:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3523,qbs_new_txt_len("+",1))))||new_error){ -if(qbevent){evnt(24641);if(r)goto S_33375;} -do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))+func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24641);}while(r); -sc_ec_157_end:; -goto sc_3523_end; -} -S_33377:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3523,qbs_new_txt_len("-",1))))||new_error){ -if(qbevent){evnt(24642);if(r)goto S_33377;} -do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))-func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24643);}while(r); -sc_ec_158_end:; -goto sc_3523_end; -} -sc_3523_end:; -sc_ec_159_end:; -goto sc_3515_end; -} -S_33380:; -if (((sc_3515==( 70 )))||new_error){ -if(qbevent){evnt(24645);if(r)goto S_33380;} -S_33381:; -qbs_set(sc_3524,((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_FUNC_EVALUATENUMBERS_LONG_P)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(qbevent){evnt(24646);if(r)goto S_33381;} -S_33382:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3524,qbs_new_txt_len("=",1))))||new_error){ -if(qbevent){evnt(24647);if(r)goto S_33382;} -do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=-(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))==func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24647);}while(r); -sc_ec_160_end:; -goto sc_3524_end; -} -S_33384:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3524,qbs_new_txt_len(">",1))))||new_error){ -if(qbevent){evnt(24648);if(r)goto S_33384;} -do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=-(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))>func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24648);}while(r); -sc_ec_161_end:; -goto sc_3524_end; -} -S_33386:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3524,qbs_new_txt_len("<",1))))||new_error){ -if(qbevent){evnt(24649);if(r)goto S_33386;} -do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=-(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))",2))||qbs_equal(sc_3524,qbs_new_txt_len("><",2))))||new_error){ -if(qbevent){evnt(24650);if(r)goto S_33388;} -do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=-(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))!=func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24650);}while(r); -sc_ec_163_end:; -goto sc_3524_end; -} -S_33390:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3524,qbs_new_txt_len("<=",2))||qbs_equal(sc_3524,qbs_new_txt_len("=<",2))))||new_error){ -if(qbevent){evnt(24651);if(r)goto S_33390;} -do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=-(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))<=func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24651);}while(r); -sc_ec_164_end:; -goto sc_3524_end; -} -S_33392:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3524,qbs_new_txt_len(">=",2))||qbs_equal(sc_3524,qbs_new_txt_len("=>",2))))||new_error){ -if(qbevent){evnt(24652);if(r)goto S_33392;} -do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=-(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))>=func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24652);}while(r); -sc_ec_165_end:; -goto sc_3524_end; -} -sc_3524_end:; -sc_ec_166_end:; -goto sc_3515_end; -} -S_33396:; -qbs_set(sc_3525,((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_FUNC_EVALUATENUMBERS_LONG_P)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(qbevent){evnt(24655);if(r)goto S_33396;} -S_33397:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3525,qbs_new_txt_len("NOT",3))))||new_error){ -if(qbevent){evnt(24656);if(r)goto S_33397;} -do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=~(qbr(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24656);}while(r); -sc_ec_167_end:; -goto sc_3525_end; -} -S_33399:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3525,qbs_new_txt_len("AND",3))))||new_error){ -if(qbevent){evnt(24657);if(r)goto S_33399;} -do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=qbr(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))))&qbr(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24657);}while(r); -sc_ec_168_end:; -goto sc_3525_end; -} -S_33401:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3525,qbs_new_txt_len("OR",2))))||new_error){ -if(qbevent){evnt(24658);if(r)goto S_33401;} -do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=qbr(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))))|qbr(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24658);}while(r); -sc_ec_169_end:; -goto sc_3525_end; -} -S_33403:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3525,qbs_new_txt_len("XOR",3))))||new_error){ -if(qbevent){evnt(24659);if(r)goto S_33403;} -do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=qbr(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))))^qbr(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24659);}while(r); -sc_ec_170_end:; -goto sc_3525_end; -} -S_33405:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3525,qbs_new_txt_len("EQV",3))))||new_error){ -if(qbevent){evnt(24660);if(r)goto S_33405;} -do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=~qbr(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))))^qbr(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24660);}while(r); -sc_ec_171_end:; -goto sc_3525_end; -} -S_33407:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3525,qbs_new_txt_len("IMP",3))))||new_error){ -if(qbevent){evnt(24661);if(r)goto S_33407;} -do{ -*_FUNC_EVALUATENUMBERS_FLOAT_N1=~qbr(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))))|qbr(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24661);}while(r); -sc_ec_172_end:; -goto sc_3525_end; -} -sc_3525_end:; -sc_3515_end:; -do{ -qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_add(qbs_rtrim(qbs_ltrim(qbs_str((long double)(*_FUNC_EVALUATENUMBERS_FLOAT_N1)))),_FUNC_EVALUATENUMBERS_STRING_C)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24665);}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free71.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS);return _FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS; -} -qbs* FUNC_DWD(qbs*_FUNC_DWD_STRING_EXP){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data72.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -qbs_set(_FUNC_DWD_STRING_T,_FUNC_DWD_STRING_EXP); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24674);}while(r); -S_33413:; -do{ -if(qbevent){evnt(24675);if(r)goto S_33413;} -do{ -*_FUNC_DWD_LONG_BAD= 0 ; -if(!qbevent)break;evnt(24676);}while(r); -S_33415:; -do{ -if(qbevent){evnt(24677);if(r)goto S_33415;} -do{ -*_FUNC_DWD_LONG_L=func_instr(NULL,_FUNC_DWD_STRING_T,qbs_new_txt_len("++",2),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24678);}while(r); -S_33417:; -if ((*_FUNC_DWD_LONG_L)||new_error){ -if(qbevent){evnt(24679);if(r)goto S_33417;} -do{ -qbs_set(_FUNC_DWD_STRING_T,qbs_add(qbs_add(qbs_left(_FUNC_DWD_STRING_T,*_FUNC_DWD_LONG_L- 1 ),qbs_new_txt_len("+",1)),func_mid(_FUNC_DWD_STRING_T,*_FUNC_DWD_LONG_L+ 2 ,NULL,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24679);}while(r); -do{ -*_FUNC_DWD_LONG_BAD= -1 ; -if(!qbevent)break;evnt(24679);}while(r); -} -S_33421:; -dl_continue_3528:; -}while((!(-(*_FUNC_DWD_LONG_L== 0 )))&&(!new_error)); -dl_exit_3528:; -if(qbevent){evnt(24680);if(r)goto S_33421;} -S_33422:; -do{ -if(qbevent){evnt(24681);if(r)goto S_33422;} -do{ -*_FUNC_DWD_LONG_L=func_instr(NULL,_FUNC_DWD_STRING_T,qbs_new_txt_len("+-",2),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24682);}while(r); -S_33424:; -if ((*_FUNC_DWD_LONG_L)||new_error){ -if(qbevent){evnt(24683);if(r)goto S_33424;} -do{ -qbs_set(_FUNC_DWD_STRING_T,qbs_add(qbs_add(qbs_left(_FUNC_DWD_STRING_T,*_FUNC_DWD_LONG_L- 1 ),qbs_new_txt_len("-",1)),func_mid(_FUNC_DWD_STRING_T,*_FUNC_DWD_LONG_L+ 2 ,NULL,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24683);}while(r); -do{ -*_FUNC_DWD_LONG_BAD= -1 ; -if(!qbevent)break;evnt(24683);}while(r); -} -S_33428:; -dl_continue_3529:; -}while((!(-(*_FUNC_DWD_LONG_L== 0 )))&&(!new_error)); -dl_exit_3529:; -if(qbevent){evnt(24684);if(r)goto S_33428;} -S_33429:; -do{ -if(qbevent){evnt(24685);if(r)goto S_33429;} -do{ -*_FUNC_DWD_LONG_L=func_instr(NULL,_FUNC_DWD_STRING_T,qbs_new_txt_len("-+",2),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24686);}while(r); -S_33431:; -if ((*_FUNC_DWD_LONG_L)||new_error){ -if(qbevent){evnt(24687);if(r)goto S_33431;} -do{ -qbs_set(_FUNC_DWD_STRING_T,qbs_add(qbs_add(qbs_left(_FUNC_DWD_STRING_T,*_FUNC_DWD_LONG_L- 1 ),qbs_new_txt_len("-",1)),func_mid(_FUNC_DWD_STRING_T,*_FUNC_DWD_LONG_L+ 2 ,NULL,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24687);}while(r); -do{ -*_FUNC_DWD_LONG_BAD= -1 ; -if(!qbevent)break;evnt(24687);}while(r); -} -S_33435:; -dl_continue_3530:; -}while((!(-(*_FUNC_DWD_LONG_L== 0 )))&&(!new_error)); -dl_exit_3530:; -if(qbevent){evnt(24688);if(r)goto S_33435;} -S_33436:; -do{ -if(qbevent){evnt(24689);if(r)goto S_33436;} -do{ -*_FUNC_DWD_LONG_L=func_instr(NULL,_FUNC_DWD_STRING_T,qbs_new_txt_len("--",2),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24690);}while(r); -S_33438:; -if ((*_FUNC_DWD_LONG_L)||new_error){ -if(qbevent){evnt(24691);if(r)goto S_33438;} -do{ -qbs_set(_FUNC_DWD_STRING_T,qbs_add(qbs_add(qbs_left(_FUNC_DWD_STRING_T,*_FUNC_DWD_LONG_L- 1 ),qbs_new_txt_len("+",1)),func_mid(_FUNC_DWD_STRING_T,*_FUNC_DWD_LONG_L+ 2 ,NULL,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24691);}while(r); -do{ -*_FUNC_DWD_LONG_BAD= -1 ; -if(!qbevent)break;evnt(24691);}while(r); -} -S_33442:; -dl_continue_3531:; -}while((!(-(*_FUNC_DWD_LONG_L== 0 )))&&(!new_error)); -dl_exit_3531:; -if(qbevent){evnt(24692);if(r)goto S_33442;} -S_33443:; -dl_continue_3527:; -}while((!(~(*_FUNC_DWD_LONG_BAD)))&&(!new_error)); -dl_exit_3527:; -if(qbevent){evnt(24693);if(r)goto S_33443;} -do{ -qbs_set(_FUNC_DWD_STRING_DWD,_FUNC_DWD_STRING_T); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24694);}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free72.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_DWD_STRING_DWD);return _FUNC_DWD_STRING_DWD; -} -void SUB_PREPARSE(qbs*_SUB_PREPARSE_STRING_E){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data73.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -if(!qbevent)break;evnt(24698);}while(r); -do{ -if(!qbevent)break;evnt(24699);}while(r); -S_33447:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[array_check(( 0 )-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5])])),qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(24701);if(r)goto S_33447;} -do{ +} +if(!qbevent)break;evnt(24407);}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free70.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +qbs* FUNC_EVALUATENUMBERS(int32*_FUNC_EVALUATENUMBERS_LONG_P,ptrszint*_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data71.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +if(!qbevent)break;evnt(24411);}while(r); +S_33005:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs__trim(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))),qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(24414);if(r)goto S_33005;} +do{ +tmp_long=array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[tmp_long])),qbs_new_txt_len("0",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24414);}while(r); +} +S_33008:; +if ((qbs_cleanup(qbs_tmp_base,(-(((int16*)(__ARRAY_INTEGER_PL[0]))[array_check((*_FUNC_EVALUATENUMBERS_LONG_P)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5])]>= 20 ))&(((-(((int32)(qbs__trim(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))))->len)== 0 ))|(-(((int32)(qbs__trim(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))))->len)== 0 ))))))||new_error){ +if(qbevent){evnt(24416);if(r)goto S_33008;} +do{ +qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_new_txt_len("ERROR - Missing operand",23)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24417);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(24417);}while(r); +} +S_33012:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])),qbs_new_txt_len(",",1),0)))||new_error){ +if(qbevent){evnt(24420);if(r)goto S_33012;} +do{ +qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_add(qbs_add(qbs_new_txt_len("ERROR - Invalid comma (",23),((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24421);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(24421);}while(r); +} +do{ +*_FUNC_EVALUATENUMBERS_LONG_L2=func_instr(NULL,((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])),qbs_new_txt_len(",",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24423);}while(r); +S_33017:; +if ((*_FUNC_EVALUATENUMBERS_LONG_L2)||new_error){ +if(qbevent){evnt(24424);if(r)goto S_33017;} +S_33018:; +qbs_set(sc_3514,((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_FUNC_EVALUATENUMBERS_LONG_P)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(qbevent){evnt(24425);if(r)goto S_33018;} +S_33019:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3514,qbs_new_txt_len("C_RG",4))||qbs_equal(sc_3514,qbs_new_txt_len("C_RA",4))||qbs_equal(sc_3514,qbs_new_txt_len("_RGB",4))||qbs_equal(sc_3514,qbs_new_txt_len("_RGBA",5))||qbs_equal(sc_3514,qbs_new_txt_len("_RED",4))||qbs_equal(sc_3514,qbs_new_txt_len("_GREEN",6))||qbs_equal(sc_3514,qbs_new_txt_len("_BLUE",5))||qbs_equal(sc_3514,qbs_new_txt_len("C_BL",4))||qbs_equal(sc_3514,qbs_new_txt_len("_ALPHA",6))))||new_error){ +if(qbevent){evnt(24426);if(r)goto S_33019;} +sc_ec_85_end:; +goto sc_3514_end; +} +do{ +qbs_set(_FUNC_EVALUATENUMBERS_STRING_C,func_mid(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])),*_FUNC_EVALUATENUMBERS_LONG_L2,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24428);}while(r); +do{ +tmp_long=array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[tmp_long])),qbs_left(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])),*_FUNC_EVALUATENUMBERS_LONG_L2- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24429);}while(r); +sc_3514_end:; +} +S_33025:; +sc_3515=((int16*)(__ARRAY_INTEGER_PL[0]))[array_check((*_FUNC_EVALUATENUMBERS_LONG_P)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5])]; +if(qbevent){evnt(24433);if(r)goto S_33025;} +S_33026:; +if (((sc_3515==( 5 )))||new_error){ +if(qbevent){evnt(24434);if(r)goto S_33026;} +S_33027:; +qbs_set(sc_3516,((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_FUNC_EVALUATENUMBERS_LONG_P)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(qbevent){evnt(24436);if(r)goto S_33027;} +S_33028:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3516,qbs_new_txt_len("C_UOF",5))))||new_error){ +if(qbevent){evnt(24437);if(r)goto S_33028;} +do{ +*_FUNC_EVALUATENUMBERS_UOFFSET_N1=qbr(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24437);}while(r); +do{ +qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_rtrim(qbs_ltrim(qbs_str((uint64)(*_FUNC_EVALUATENUMBERS_UOFFSET_N1))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24437);}while(r); +sc_ec_86_end:; +goto sc_3516_end; +} +S_33031:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3516,qbs_new_txt_len("C_ULO",5))))||new_error){ +if(qbevent){evnt(24438);if(r)goto S_33031;} +do{ +*_FUNC_EVALUATENUMBERS_OFFSET_N1=qbr(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24438);}while(r); +do{ +qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_rtrim(qbs_ltrim(qbs_str((int64)(*_FUNC_EVALUATENUMBERS_OFFSET_N1))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24438);}while(r); +sc_ec_87_end:; +goto sc_3516_end; +} +S_33034:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3516,qbs_new_txt_len("C_UBY",5))))||new_error){ +if(qbevent){evnt(24439);if(r)goto S_33034;} +do{ +*_FUNC_EVALUATENUMBERS_UBYTE_N1=qbr_float_to_long(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24439);}while(r); +do{ +qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_rtrim(qbs_ltrim(qbs_str((uint8)(*_FUNC_EVALUATENUMBERS_UBYTE_N1))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24439);}while(r); +sc_ec_88_end:; +goto sc_3516_end; +} +S_33037:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3516,qbs_new_txt_len("C_UIN",5))))||new_error){ +if(qbevent){evnt(24440);if(r)goto S_33037;} +do{ +*_FUNC_EVALUATENUMBERS_UINTEGER_N1=qbr_float_to_long(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24440);}while(r); +do{ +qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_rtrim(qbs_ltrim(qbs_str((uint16)(*_FUNC_EVALUATENUMBERS_UINTEGER_N1))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24440);}while(r); +sc_ec_89_end:; +goto sc_3516_end; +} +S_33040:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3516,qbs_new_txt_len("C_BY",4))))||new_error){ +if(qbevent){evnt(24441);if(r)goto S_33040;} +do{ +*_FUNC_EVALUATENUMBERS_BYTE_N1=qbr_float_to_long(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24441);}while(r); +do{ +qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_rtrim(qbs_ltrim(qbs_str((int8)(*_FUNC_EVALUATENUMBERS_BYTE_N1))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24441);}while(r); +sc_ec_90_end:; +goto sc_3516_end; +} +S_33043:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3516,qbs_new_txt_len("C_IN",4))))||new_error){ +if(qbevent){evnt(24442);if(r)goto S_33043;} +do{ +*_FUNC_EVALUATENUMBERS_INTEGER_N1=qbr_float_to_long(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24442);}while(r); +do{ +qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_rtrim(qbs_ltrim(qbs_str((int16)(*_FUNC_EVALUATENUMBERS_INTEGER_N1))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24442);}while(r); +sc_ec_91_end:; +goto sc_3516_end; +} +S_33046:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3516,qbs_new_txt_len("C_UIF",5))))||new_error){ +if(qbevent){evnt(24443);if(r)goto S_33046;} +do{ +*_FUNC_EVALUATENUMBERS_UINTEGER64_N1=qbr(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24443);}while(r); +do{ +qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_rtrim(qbs_ltrim(qbs_str((uint64)(*_FUNC_EVALUATENUMBERS_UINTEGER64_N1))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24443);}while(r); +sc_ec_92_end:; +goto sc_3516_end; +} +S_33049:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3516,qbs_new_txt_len("C_OF",4))))||new_error){ +if(qbevent){evnt(24444);if(r)goto S_33049;} +do{ +*_FUNC_EVALUATENUMBERS_ULONG_N1=qbr(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24444);}while(r); +do{ +qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_rtrim(qbs_ltrim(qbs_str((uint32)(*_FUNC_EVALUATENUMBERS_ULONG_N1))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24444);}while(r); +sc_ec_93_end:; +goto sc_3516_end; +} +S_33052:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3516,qbs_new_txt_len("C_IF",4))))||new_error){ +if(qbevent){evnt(24445);if(r)goto S_33052;} +do{ +*_FUNC_EVALUATENUMBERS_INTEGER64_N1=qbr(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24445);}while(r); +do{ +qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_rtrim(qbs_ltrim(qbs_str((int64)(*_FUNC_EVALUATENUMBERS_INTEGER64_N1))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24445);}while(r); +sc_ec_94_end:; +goto sc_3516_end; +} +S_33055:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3516,qbs_new_txt_len("C_LO",4))))||new_error){ +if(qbevent){evnt(24446);if(r)goto S_33055;} +do{ +*_FUNC_EVALUATENUMBERS_LONG_N1=qbr(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24446);}while(r); +do{ +qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_rtrim(qbs_ltrim(qbs_str((int32)(*_FUNC_EVALUATENUMBERS_LONG_N1))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24446);}while(r); +sc_ec_95_end:; +goto sc_3516_end; +} +S_33058:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3516,qbs_new_txt_len("C_UBI",5))))||new_error){ +if(qbevent){evnt(24447);if(r)goto S_33058;} +do{ +*_FUNC_EVALUATENUMBERS_UBIT1_N1=(qbr(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))))&1; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24447);}while(r); +do{ +qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_rtrim(qbs_ltrim(qbs_str((int64)(*_FUNC_EVALUATENUMBERS_UBIT1_N1))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24447);}while(r); +sc_ec_96_end:; +goto sc_3516_end; +} +S_33061:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3516,qbs_new_txt_len("C_BI",4))))||new_error){ +if(qbevent){evnt(24448);if(r)goto S_33061;} +do{ +if ((*_FUNC_EVALUATENUMBERS_BIT1_N1=qbr(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))))&1){ +*_FUNC_EVALUATENUMBERS_BIT1_N1|=-2; +}else{ +*_FUNC_EVALUATENUMBERS_BIT1_N1&=1; +} +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24448);}while(r); +do{ +qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_rtrim(qbs_ltrim(qbs_str((int64)(*_FUNC_EVALUATENUMBERS_BIT1_N1))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24448);}while(r); +sc_ec_97_end:; +goto sc_3516_end; +} +S_33064:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3516,qbs_new_txt_len("C_FL",4))))||new_error){ +if(qbevent){evnt(24449);if(r)goto S_33064;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24449);}while(r); +do{ +qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_rtrim(qbs_ltrim(qbs_str((long double)(*_FUNC_EVALUATENUMBERS_FLOAT_N1))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24449);}while(r); +sc_ec_98_end:; +goto sc_3516_end; +} +S_33067:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3516,qbs_new_txt_len("C_DO",4))))||new_error){ +if(qbevent){evnt(24450);if(r)goto S_33067;} +do{ +*_FUNC_EVALUATENUMBERS_DOUBLE_N1=func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24450);}while(r); +do{ +qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_rtrim(qbs_ltrim(qbs_str((double)(*_FUNC_EVALUATENUMBERS_DOUBLE_N1))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24450);}while(r); +sc_ec_99_end:; +goto sc_3516_end; +} +S_33070:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3516,qbs_new_txt_len("C_SI",4))))||new_error){ +if(qbevent){evnt(24451);if(r)goto S_33070;} +do{ +*_FUNC_EVALUATENUMBERS_SINGLE_N1=func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24451);}while(r); +do{ +qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_rtrim(qbs_ltrim(qbs_str((float)(*_FUNC_EVALUATENUMBERS_SINGLE_N1))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24451);}while(r); +sc_ec_100_end:; +goto sc_3516_end; +} +sc_3516_end:; +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(24453);}while(r); +sc_ec_101_end:; +goto sc_3515_end; +} +S_33075:; +if (((sc_3515==( 10 )))||new_error){ +if(qbevent){evnt(24454);if(r)goto S_33075;} +S_33076:; +qbs_set(sc_3517,((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_FUNC_EVALUATENUMBERS_LONG_P)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(qbevent){evnt(24455);if(r)goto S_33076;} +S_33077:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3517,qbs_new_txt_len("_PI",3))))||new_error){ +if(qbevent){evnt(24456);if(r)goto S_33077;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1= 3.14159265358979323846264338327950288E+0L ; +if(!qbevent)break;evnt(24457);}while(r); +S_33079:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])),qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(24458);if(r)goto S_33079;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=*_FUNC_EVALUATENUMBERS_FLOAT_N1*func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24458);}while(r); +} +sc_ec_102_end:; +goto sc_3517_end; +} +S_33082:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3517,qbs_new_txt_len("_ACOS",5))))||new_error){ +if(qbevent){evnt(24459);if(r)goto S_33082;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=acos(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24459);}while(r); +sc_ec_103_end:; +goto sc_3517_end; +} +S_33084:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3517,qbs_new_txt_len("_ASIN",5))))||new_error){ +if(qbevent){evnt(24460);if(r)goto S_33084;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=asin(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24460);}while(r); +sc_ec_104_end:; +goto sc_3517_end; +} +S_33086:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3517,qbs_new_txt_len("_ARCSEC",7))))||new_error){ +if(qbevent){evnt(24461);if(r)goto S_33086;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=func_arcsec(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24461);}while(r); +sc_ec_105_end:; +goto sc_3517_end; +} +S_33088:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3517,qbs_new_txt_len("_ARCCSC",7))))||new_error){ +if(qbevent){evnt(24462);if(r)goto S_33088;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=func_arccsc(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24462);}while(r); +sc_ec_106_end:; +goto sc_3517_end; +} +S_33090:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3517,qbs_new_txt_len("_ARCCOT",7))))||new_error){ +if(qbevent){evnt(24463);if(r)goto S_33090;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=func_arccot(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24463);}while(r); +sc_ec_107_end:; +goto sc_3517_end; +} +S_33092:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3517,qbs_new_txt_len("_SECH",5))))||new_error){ +if(qbevent){evnt(24464);if(r)goto S_33092;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=func_sech(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24464);}while(r); +sc_ec_108_end:; +goto sc_3517_end; +} +S_33094:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3517,qbs_new_txt_len("_CSCH",5))))||new_error){ +if(qbevent){evnt(24465);if(r)goto S_33094;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=func_csch(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24465);}while(r); +sc_ec_109_end:; +goto sc_3517_end; +} +S_33096:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3517,qbs_new_txt_len("_COTH",5))))||new_error){ +if(qbevent){evnt(24466);if(r)goto S_33096;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=func_coth(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24466);}while(r); +sc_ec_110_end:; +goto sc_3517_end; +} +S_33098:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3517,qbs_new_txt_len("C_RG",4))))||new_error){ +if(qbevent){evnt(24467);if(r)goto S_33098;} +do{ +qbs_set(_FUNC_EVALUATENUMBERS_STRING_N,((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24468);}while(r); +S_33100:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(24469);if(r)goto S_33100;} +do{ +qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_new_txt_len("ERROR - Invalid null _RGB32",27)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24469);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(24469);}while(r); +} +do{ +*_FUNC_EVALUATENUMBERS_LONG_C1=func_instr(NULL,_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len(",",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24470);}while(r); +S_33105:; +if ((*_FUNC_EVALUATENUMBERS_LONG_C1)||new_error){ +if(qbevent){evnt(24471);if(r)goto S_33105;} +do{ +*_FUNC_EVALUATENUMBERS_LONG_C2=func_instr(*_FUNC_EVALUATENUMBERS_LONG_C1+ 1 ,_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len(",",1),0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24471);}while(r); +} +S_33108:; +if ((*_FUNC_EVALUATENUMBERS_LONG_C2)||new_error){ +if(qbevent){evnt(24472);if(r)goto S_33108;} +do{ +*_FUNC_EVALUATENUMBERS_LONG_C3=func_instr(*_FUNC_EVALUATENUMBERS_LONG_C2+ 1 ,_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len(",",1),0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24472);}while(r); +} +S_33111:; +if ((*_FUNC_EVALUATENUMBERS_LONG_C3)||new_error){ +if(qbevent){evnt(24473);if(r)goto S_33111;} +do{ +*_FUNC_EVALUATENUMBERS_LONG_C4=func_instr(*_FUNC_EVALUATENUMBERS_LONG_C3+ 1 ,_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len(",",1),0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24473);}while(r); +} +S_33114:; +if ((-(*_FUNC_EVALUATENUMBERS_LONG_C1== 0 ))||new_error){ +if(qbevent){evnt(24474);if(r)goto S_33114;} +do{ +*_FUNC_EVALUATENUMBERS_LONG_N=qbr(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24475);}while(r); +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=func__rgb32(*_FUNC_EVALUATENUMBERS_LONG_N,*_FUNC_EVALUATENUMBERS_LONG_N,*_FUNC_EVALUATENUMBERS_LONG_N); +if(!qbevent)break;evnt(24476);}while(r); +S_33117:; +}else{ +if (-(*_FUNC_EVALUATENUMBERS_LONG_C2== 0 )){ +if(qbevent){evnt(24477);if(r)goto S_33117;} +do{ +*_FUNC_EVALUATENUMBERS_LONG_N=qbr(func_val(qbs_left(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])),*_FUNC_EVALUATENUMBERS_LONG_C1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24478);}while(r); +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N2=func_val(func_mid(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])),*_FUNC_EVALUATENUMBERS_LONG_C1+ 1 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24479);}while(r); +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=func__rgba32(*_FUNC_EVALUATENUMBERS_LONG_N,*_FUNC_EVALUATENUMBERS_LONG_N,*_FUNC_EVALUATENUMBERS_LONG_N,qbr(*_FUNC_EVALUATENUMBERS_FLOAT_N2)); +if(!qbevent)break;evnt(24480);}while(r); +S_33121:; +}else{ +if (-(*_FUNC_EVALUATENUMBERS_LONG_C3== 0 )){ +if(qbevent){evnt(24481);if(r)goto S_33121;} +do{ +*_FUNC_EVALUATENUMBERS_LONG_N=qbr(func_val(qbs_left(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])),*_FUNC_EVALUATENUMBERS_LONG_C1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24482);}while(r); +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N2=func_val(func_mid(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])),*_FUNC_EVALUATENUMBERS_LONG_C1+ 1 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24483);}while(r); +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N3=func_val(func_mid(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])),*_FUNC_EVALUATENUMBERS_LONG_C2+ 1 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24484);}while(r); +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=func__rgb32(*_FUNC_EVALUATENUMBERS_LONG_N,qbr(*_FUNC_EVALUATENUMBERS_FLOAT_N2),qbr(*_FUNC_EVALUATENUMBERS_FLOAT_N3)); +if(!qbevent)break;evnt(24485);}while(r); +S_33126:; +}else{ +if (-(*_FUNC_EVALUATENUMBERS_LONG_C4== 0 )){ +if(qbevent){evnt(24486);if(r)goto S_33126;} +do{ +*_FUNC_EVALUATENUMBERS_LONG_N=qbr(func_val(qbs_left(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])),*_FUNC_EVALUATENUMBERS_LONG_C1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24487);}while(r); +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N2=func_val(func_mid(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])),*_FUNC_EVALUATENUMBERS_LONG_C1+ 1 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24488);}while(r); +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N3=func_val(func_mid(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])),*_FUNC_EVALUATENUMBERS_LONG_C2+ 1 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24489);}while(r); +do{ +*_FUNC_EVALUATENUMBERS_LONG_N4=qbr(func_val(func_mid(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])),*_FUNC_EVALUATENUMBERS_LONG_C3+ 1 ,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24490);}while(r); +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=func__rgba32(*_FUNC_EVALUATENUMBERS_LONG_N,qbr(*_FUNC_EVALUATENUMBERS_FLOAT_N2),qbr(*_FUNC_EVALUATENUMBERS_FLOAT_N3),*_FUNC_EVALUATENUMBERS_LONG_N4); +if(!qbevent)break;evnt(24491);}while(r); +}else{ +do{ +qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_add(qbs_add(qbs_new_txt_len("ERROR - Invalid comma count (",29),((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24493);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(24493);}while(r); +} +} +} +} +sc_ec_111_end:; +goto sc_3517_end; +} +S_33136:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3517,qbs_new_txt_len("C_RA",4))))||new_error){ +if(qbevent){evnt(24495);if(r)goto S_33136;} +do{ +qbs_set(_FUNC_EVALUATENUMBERS_STRING_N,((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24496);}while(r); +S_33138:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(24497);if(r)goto S_33138;} +do{ +qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_new_txt_len("ERROR - Invalid null _RGBA32",28)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24497);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(24497);}while(r); +} +do{ +*_FUNC_EVALUATENUMBERS_LONG_C1=func_instr(NULL,_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len(",",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24498);}while(r); +S_33143:; +if ((*_FUNC_EVALUATENUMBERS_LONG_C1)||new_error){ +if(qbevent){evnt(24499);if(r)goto S_33143;} +do{ +*_FUNC_EVALUATENUMBERS_LONG_C2=func_instr(*_FUNC_EVALUATENUMBERS_LONG_C1+ 1 ,_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len(",",1),0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24499);}while(r); +} +S_33146:; +if ((*_FUNC_EVALUATENUMBERS_LONG_C2)||new_error){ +if(qbevent){evnt(24500);if(r)goto S_33146;} +do{ +*_FUNC_EVALUATENUMBERS_LONG_C3=func_instr(*_FUNC_EVALUATENUMBERS_LONG_C2+ 1 ,_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len(",",1),0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24500);}while(r); +} +S_33149:; +if ((*_FUNC_EVALUATENUMBERS_LONG_C3)||new_error){ +if(qbevent){evnt(24501);if(r)goto S_33149;} +do{ +*_FUNC_EVALUATENUMBERS_LONG_C4=func_instr(*_FUNC_EVALUATENUMBERS_LONG_C3+ 1 ,_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len(",",1),0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24501);}while(r); +} +S_33152:; +if (((-(*_FUNC_EVALUATENUMBERS_LONG_C3== 0 ))|(-(*_FUNC_EVALUATENUMBERS_LONG_C4!= 0 )))||new_error){ +if(qbevent){evnt(24502);if(r)goto S_33152;} +do{ +qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_add(qbs_add(qbs_new_txt_len("ERROR - Invalid comma count (",29),((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24502);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(24502);}while(r); +} +do{ +*_FUNC_EVALUATENUMBERS_LONG_N=qbr(func_val(qbs_left(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])),*_FUNC_EVALUATENUMBERS_LONG_C1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24504);}while(r); +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N2=func_val(func_mid(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])),*_FUNC_EVALUATENUMBERS_LONG_C1+ 1 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24505);}while(r); +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N3=func_val(func_mid(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])),*_FUNC_EVALUATENUMBERS_LONG_C2+ 1 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24506);}while(r); +do{ +*_FUNC_EVALUATENUMBERS_LONG_N4=qbr(func_val(func_mid(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])),*_FUNC_EVALUATENUMBERS_LONG_C3+ 1 ,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24507);}while(r); +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=func__rgba32(*_FUNC_EVALUATENUMBERS_LONG_N,qbr(*_FUNC_EVALUATENUMBERS_FLOAT_N2),qbr(*_FUNC_EVALUATENUMBERS_FLOAT_N3),*_FUNC_EVALUATENUMBERS_LONG_N4); +if(!qbevent)break;evnt(24508);}while(r); +sc_ec_112_end:; +goto sc_3517_end; +} +S_33161:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3517,qbs_new_txt_len("_RGB",4))))||new_error){ +if(qbevent){evnt(24509);if(r)goto S_33161;} +do{ +qbs_set(_FUNC_EVALUATENUMBERS_STRING_N,((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24510);}while(r); +S_33163:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(24511);if(r)goto S_33163;} +do{ +qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_new_txt_len("ERROR - Invalid null _RGB",25)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24511);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(24511);}while(r); +} +do{ +*_FUNC_EVALUATENUMBERS_LONG_C1=func_instr(NULL,_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len(",",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24512);}while(r); +S_33168:; +if ((*_FUNC_EVALUATENUMBERS_LONG_C1)||new_error){ +if(qbevent){evnt(24513);if(r)goto S_33168;} +do{ +*_FUNC_EVALUATENUMBERS_LONG_C2=func_instr(*_FUNC_EVALUATENUMBERS_LONG_C1+ 1 ,_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len(",",1),0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24513);}while(r); +} +S_33171:; +if ((*_FUNC_EVALUATENUMBERS_LONG_C2)||new_error){ +if(qbevent){evnt(24514);if(r)goto S_33171;} +do{ +*_FUNC_EVALUATENUMBERS_LONG_C3=func_instr(*_FUNC_EVALUATENUMBERS_LONG_C2+ 1 ,_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len(",",1),0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24514);}while(r); +} +S_33174:; +if ((*_FUNC_EVALUATENUMBERS_LONG_C3)||new_error){ +if(qbevent){evnt(24515);if(r)goto S_33174;} +do{ +*_FUNC_EVALUATENUMBERS_LONG_C4=func_instr(*_FUNC_EVALUATENUMBERS_LONG_C3+ 1 ,_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len(",",1),0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24515);}while(r); +} +S_33177:; +if (((-(*_FUNC_EVALUATENUMBERS_LONG_C3== 0 ))|(-(*_FUNC_EVALUATENUMBERS_LONG_C4!= 0 )))||new_error){ +if(qbevent){evnt(24516);if(r)goto S_33177;} +do{ +qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_add(qbs_add(qbs_new_txt_len("ERROR - Invalid comma count (",29),((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))),qbs_new_txt_len("). _RGB requires 4 parameters for Red, Green, Blue, ScreenMode.",63))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24516);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(24516);}while(r); +} +do{ +*_FUNC_EVALUATENUMBERS_LONG_N=qbr(func_val(qbs_left(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])),*_FUNC_EVALUATENUMBERS_LONG_C1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24518);}while(r); +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N2=func_val(func_mid(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])),*_FUNC_EVALUATENUMBERS_LONG_C1+ 1 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24519);}while(r); +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N3=func_val(func_mid(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])),*_FUNC_EVALUATENUMBERS_LONG_C2+ 1 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24520);}while(r); +do{ +*_FUNC_EVALUATENUMBERS_LONG_N4=qbr(func_val(func_mid(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])),*_FUNC_EVALUATENUMBERS_LONG_C3+ 1 ,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24521);}while(r); +S_33185:; +if(qbevent){evnt(24522);if(r)goto S_33185;} +S_33186:; +if ((((*_FUNC_EVALUATENUMBERS_LONG_N4>=( 0 ))&&(*_FUNC_EVALUATENUMBERS_LONG_N4<=( 2 )))||((*_FUNC_EVALUATENUMBERS_LONG_N4>=( 7 ))&&(*_FUNC_EVALUATENUMBERS_LONG_N4<=( 13 )))||(*_FUNC_EVALUATENUMBERS_LONG_N4==( 256 ))||(*_FUNC_EVALUATENUMBERS_LONG_N4==( 32 )))||new_error){ +if(qbevent){evnt(24523);if(r)goto S_33186;} +sc_ec_113_end:; +goto sc_3518_end; +} +do{ +qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_add(qbs_add(qbs_new_txt_len("ERROR - Invalid Screen Mode (",29),qbs_str((int32)(*_FUNC_EVALUATENUMBERS_LONG_N4))),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24525);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(24525);}while(r); +sc_3518_end:; +do{ +*_FUNC_EVALUATENUMBERS_LONG_T=func__newimage( 1 , 1 ,*_FUNC_EVALUATENUMBERS_LONG_N4,0|1); +if(!qbevent)break;evnt(24527);}while(r); +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=func__rgb(*_FUNC_EVALUATENUMBERS_LONG_N,qbr(*_FUNC_EVALUATENUMBERS_FLOAT_N2),qbr(*_FUNC_EVALUATENUMBERS_FLOAT_N3),*_FUNC_EVALUATENUMBERS_LONG_T,0|1); +if(!qbevent)break;evnt(24528);}while(r); +do{ +sub__freeimage(*_FUNC_EVALUATENUMBERS_LONG_T,1); +if(!qbevent)break;evnt(24529);}while(r); +sc_ec_114_end:; +goto sc_3517_end; +} +S_33194:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3517,qbs_new_txt_len("_RGBA",5))))||new_error){ +if(qbevent){evnt(24530);if(r)goto S_33194;} +do{ +qbs_set(_FUNC_EVALUATENUMBERS_STRING_N,((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24531);}while(r); +S_33196:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(24532);if(r)goto S_33196;} +do{ +qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_new_txt_len("ERROR - Invalid null _RGBA",26)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24532);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(24532);}while(r); +} +do{ +*_FUNC_EVALUATENUMBERS_LONG_C1=func_instr(NULL,_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len(",",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24533);}while(r); +S_33201:; +if ((*_FUNC_EVALUATENUMBERS_LONG_C1)||new_error){ +if(qbevent){evnt(24534);if(r)goto S_33201;} +do{ +*_FUNC_EVALUATENUMBERS_LONG_C2=func_instr(*_FUNC_EVALUATENUMBERS_LONG_C1+ 1 ,_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len(",",1),0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24534);}while(r); +} +S_33204:; +if ((*_FUNC_EVALUATENUMBERS_LONG_C2)||new_error){ +if(qbevent){evnt(24535);if(r)goto S_33204;} +do{ +*_FUNC_EVALUATENUMBERS_LONG_C3=func_instr(*_FUNC_EVALUATENUMBERS_LONG_C2+ 1 ,_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len(",",1),0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24535);}while(r); +} +S_33207:; +if ((*_FUNC_EVALUATENUMBERS_LONG_C3)||new_error){ +if(qbevent){evnt(24536);if(r)goto S_33207;} +do{ +*_FUNC_EVALUATENUMBERS_LONG_C4=func_instr(*_FUNC_EVALUATENUMBERS_LONG_C3+ 1 ,_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len(",",1),0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24536);}while(r); +} +S_33210:; +if ((*_FUNC_EVALUATENUMBERS_LONG_C4)||new_error){ +if(qbevent){evnt(24537);if(r)goto S_33210;} +do{ +*_FUNC_EVALUATENUMBERS_LONG_C5=func_instr(*_FUNC_EVALUATENUMBERS_LONG_C4+ 1 ,_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len(",",1),0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24537);}while(r); +} +S_33213:; +if (((-(*_FUNC_EVALUATENUMBERS_LONG_C4== 0 ))|(-(*_FUNC_EVALUATENUMBERS_LONG_C5!= 0 )))||new_error){ +if(qbevent){evnt(24538);if(r)goto S_33213;} +do{ +qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_add(qbs_add(qbs_new_txt_len("ERROR - Invalid comma count (",29),((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))),qbs_new_txt_len("). _RGBA requires 5 parameters for Red, Green, Blue, Alpha, ScreenMode.",71))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24538);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(24538);}while(r); +} +do{ +*_FUNC_EVALUATENUMBERS_LONG_N=qbr(func_val(qbs_left(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])),*_FUNC_EVALUATENUMBERS_LONG_C1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24540);}while(r); +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N2=func_val(func_mid(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])),*_FUNC_EVALUATENUMBERS_LONG_C1+ 1 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24541);}while(r); +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N3=func_val(func_mid(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])),*_FUNC_EVALUATENUMBERS_LONG_C2+ 1 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24542);}while(r); +do{ +*_FUNC_EVALUATENUMBERS_LONG_N4=qbr(func_val(func_mid(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])),*_FUNC_EVALUATENUMBERS_LONG_C3+ 1 ,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24543);}while(r); +do{ +*_FUNC_EVALUATENUMBERS_LONG_N5=qbr(func_val(func_mid(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])),*_FUNC_EVALUATENUMBERS_LONG_C4+ 1 ,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24544);}while(r); +S_33222:; +if(qbevent){evnt(24545);if(r)goto S_33222;} +S_33223:; +if ((((*_FUNC_EVALUATENUMBERS_LONG_N5>=( 0 ))&&(*_FUNC_EVALUATENUMBERS_LONG_N5<=( 2 )))||((*_FUNC_EVALUATENUMBERS_LONG_N5>=( 7 ))&&(*_FUNC_EVALUATENUMBERS_LONG_N5<=( 13 )))||(*_FUNC_EVALUATENUMBERS_LONG_N5==( 256 ))||(*_FUNC_EVALUATENUMBERS_LONG_N5==( 32 )))||new_error){ +if(qbevent){evnt(24546);if(r)goto S_33223;} +sc_ec_115_end:; +goto sc_3519_end; +} +do{ +qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_add(qbs_add(qbs_new_txt_len("ERROR - Invalid Screen Mode (",29),qbs_str((int32)(*_FUNC_EVALUATENUMBERS_LONG_N5))),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24548);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(24548);}while(r); +sc_3519_end:; +do{ +*_FUNC_EVALUATENUMBERS_LONG_T=func__newimage( 1 , 1 ,*_FUNC_EVALUATENUMBERS_LONG_N5,0|1); +if(!qbevent)break;evnt(24550);}while(r); +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=func__rgba(*_FUNC_EVALUATENUMBERS_LONG_N,qbr(*_FUNC_EVALUATENUMBERS_FLOAT_N2),qbr(*_FUNC_EVALUATENUMBERS_FLOAT_N3),*_FUNC_EVALUATENUMBERS_LONG_N4,*_FUNC_EVALUATENUMBERS_LONG_T,0|1); +if(!qbevent)break;evnt(24551);}while(r); +do{ +sub__freeimage(*_FUNC_EVALUATENUMBERS_LONG_T,1); +if(!qbevent)break;evnt(24552);}while(r); +sc_ec_116_end:; +goto sc_3517_end; +} +S_33231:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3517,qbs_new_txt_len("_RED",4))||qbs_equal(sc_3517,qbs_new_txt_len("_GREEN",6))||qbs_equal(sc_3517,qbs_new_txt_len("_BLUE",5))||qbs_equal(sc_3517,qbs_new_txt_len("_ALPHA",6))))||new_error){ +if(qbevent){evnt(24553);if(r)goto S_33231;} +do{ +qbs_set(_FUNC_EVALUATENUMBERS_STRING_N,((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24554);}while(r); +S_33233:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(24555);if(r)goto S_33233;} +do{ +qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_add(qbs_new_txt_len("ERROR - Invalid null ",21),((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_FUNC_EVALUATENUMBERS_LONG_P)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24555);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(24555);}while(r); +} +do{ +*_FUNC_EVALUATENUMBERS_LONG_C1=func_instr(NULL,_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len(",",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24556);}while(r); +S_33238:; +if ((-(*_FUNC_EVALUATENUMBERS_LONG_C1== 0 ))||new_error){ +if(qbevent){evnt(24557);if(r)goto S_33238;} +do{ +qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_add(qbs_add(qbs_new_txt_len("ERROR - ",8),((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_FUNC_EVALUATENUMBERS_LONG_P)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])]))),qbs_new_txt_len(" requires 2 parameters for Color, ScreenMode.",45))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24557);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(24557);}while(r); +} +S_33242:; +if ((*_FUNC_EVALUATENUMBERS_LONG_C1)||new_error){ +if(qbevent){evnt(24558);if(r)goto S_33242;} +do{ +*_FUNC_EVALUATENUMBERS_LONG_C2=func_instr(*_FUNC_EVALUATENUMBERS_LONG_C1+ 1 ,_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len(",",1),0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24558);}while(r); +} +S_33245:; +if ((*_FUNC_EVALUATENUMBERS_LONG_C2)||new_error){ +if(qbevent){evnt(24559);if(r)goto S_33245;} +do{ +qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_add(qbs_add(qbs_new_txt_len("ERROR - ",8),((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_FUNC_EVALUATENUMBERS_LONG_P)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])]))),qbs_new_txt_len(" requires 2 parameters for Color, ScreenMode.",45))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24559);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(24559);}while(r); +} +do{ +*_FUNC_EVALUATENUMBERS_LONG_N=qbr(func_val(qbs_left(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])),*_FUNC_EVALUATENUMBERS_LONG_C1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24560);}while(r); +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N2=func_val(func_mid(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])),*_FUNC_EVALUATENUMBERS_LONG_C1+ 1 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24561);}while(r); +S_33251:; +if(qbevent){evnt(24562);if(r)goto S_33251;} +S_33252:; +if ((((*_FUNC_EVALUATENUMBERS_FLOAT_N2>=( 0 ))&&(*_FUNC_EVALUATENUMBERS_FLOAT_N2<=( 2 )))||((*_FUNC_EVALUATENUMBERS_FLOAT_N2>=( 7 ))&&(*_FUNC_EVALUATENUMBERS_FLOAT_N2<=( 13 )))||(*_FUNC_EVALUATENUMBERS_FLOAT_N2==( 256 ))||(*_FUNC_EVALUATENUMBERS_FLOAT_N2==( 32 )))||new_error){ +if(qbevent){evnt(24563);if(r)goto S_33252;} +sc_ec_117_end:; +goto sc_3520_end; +} +do{ +qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_add(qbs_add(qbs_new_txt_len("ERROR - Invalid Screen Mode (",29),qbs_str((long double)(*_FUNC_EVALUATENUMBERS_FLOAT_N2))),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24565);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(24565);}while(r); +sc_3520_end:; +do{ +*_FUNC_EVALUATENUMBERS_LONG_T=func__newimage( 1 , 1 ,*_FUNC_EVALUATENUMBERS_LONG_N4,0|1); +if(!qbevent)break;evnt(24567);}while(r); +S_33258:; +qbs_set(sc_3521,((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_FUNC_EVALUATENUMBERS_LONG_P)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(qbevent){evnt(24568);if(r)goto S_33258;} +S_33259:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3521,qbs_new_txt_len("_RED",4))))||new_error){ +if(qbevent){evnt(24569);if(r)goto S_33259;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=func__red(*_FUNC_EVALUATENUMBERS_LONG_N,*_FUNC_EVALUATENUMBERS_LONG_T,0|1); +if(!qbevent)break;evnt(24569);}while(r); +sc_ec_118_end:; +goto sc_3521_end; +} +S_33261:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3521,qbs_new_txt_len("_BLUE",5))))||new_error){ +if(qbevent){evnt(24570);if(r)goto S_33261;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=func__blue(*_FUNC_EVALUATENUMBERS_LONG_N,*_FUNC_EVALUATENUMBERS_LONG_T,0|1); +if(!qbevent)break;evnt(24570);}while(r); +sc_ec_119_end:; +goto sc_3521_end; +} +S_33263:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3521,qbs_new_txt_len("_GREEN",6))))||new_error){ +if(qbevent){evnt(24571);if(r)goto S_33263;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=func__green(*_FUNC_EVALUATENUMBERS_LONG_N,*_FUNC_EVALUATENUMBERS_LONG_T,0|1); +if(!qbevent)break;evnt(24571);}while(r); +sc_ec_120_end:; +goto sc_3521_end; +} +S_33265:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3521,qbs_new_txt_len("_ALPHA",6))))||new_error){ +if(qbevent){evnt(24572);if(r)goto S_33265;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=func__alpha(*_FUNC_EVALUATENUMBERS_LONG_N,*_FUNC_EVALUATENUMBERS_LONG_T,0|1); +if(!qbevent)break;evnt(24572);}while(r); +sc_ec_121_end:; +goto sc_3521_end; +} +sc_3521_end:; +do{ +sub__freeimage(*_FUNC_EVALUATENUMBERS_LONG_T,1); +if(!qbevent)break;evnt(24574);}while(r); +sc_ec_122_end:; +goto sc_3517_end; +} +S_33269:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3517,qbs_new_txt_len("C_RX",4))||qbs_equal(sc_3517,qbs_new_txt_len("C_GR",4))||qbs_equal(sc_3517,qbs_new_txt_len("C_BL",4))||qbs_equal(sc_3517,qbs_new_txt_len("C_AL",4))))||new_error){ +if(qbevent){evnt(24575);if(r)goto S_33269;} +do{ +qbs_set(_FUNC_EVALUATENUMBERS_STRING_N,((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24576);}while(r); +S_33271:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALUATENUMBERS_STRING_N,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(24577);if(r)goto S_33271;} +do{ +qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_add(qbs_new_txt_len("ERROR - Invalid null ",21),((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_FUNC_EVALUATENUMBERS_LONG_P)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24577);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(24577);}while(r); +} +do{ +*_FUNC_EVALUATENUMBERS_LONG_N=qbr(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24578);}while(r); +S_33276:; +qbs_set(sc_3522,((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_FUNC_EVALUATENUMBERS_LONG_P)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(qbevent){evnt(24579);if(r)goto S_33276;} +S_33277:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3522,qbs_new_txt_len("C_RX",4))))||new_error){ +if(qbevent){evnt(24580);if(r)goto S_33277;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=func__red32(*_FUNC_EVALUATENUMBERS_LONG_N); +if(!qbevent)break;evnt(24580);}while(r); +sc_ec_123_end:; +goto sc_3522_end; +} +S_33279:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3522,qbs_new_txt_len("C_BL",4))))||new_error){ +if(qbevent){evnt(24581);if(r)goto S_33279;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=func__blue32(*_FUNC_EVALUATENUMBERS_LONG_N); +if(!qbevent)break;evnt(24581);}while(r); +sc_ec_124_end:; +goto sc_3522_end; +} +S_33281:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3522,qbs_new_txt_len("C_GR",4))))||new_error){ +if(qbevent){evnt(24582);if(r)goto S_33281;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=func__green32(*_FUNC_EVALUATENUMBERS_LONG_N); +if(!qbevent)break;evnt(24582);}while(r); +sc_ec_125_end:; +goto sc_3522_end; +} +S_33283:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3522,qbs_new_txt_len("C_AL",4))))||new_error){ +if(qbevent){evnt(24583);if(r)goto S_33283;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=func__alpha32(*_FUNC_EVALUATENUMBERS_LONG_N); +if(!qbevent)break;evnt(24583);}while(r); +sc_ec_126_end:; +goto sc_3522_end; +} +sc_3522_end:; +sc_ec_127_end:; +goto sc_3517_end; +} +S_33286:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3517,qbs_new_txt_len("COS",3))))||new_error){ +if(qbevent){evnt(24585);if(r)goto S_33286;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=cos(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24585);}while(r); +sc_ec_128_end:; +goto sc_3517_end; +} +S_33288:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3517,qbs_new_txt_len("SIN",3))))||new_error){ +if(qbevent){evnt(24586);if(r)goto S_33288;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=sin(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24586);}while(r); +sc_ec_129_end:; +goto sc_3517_end; +} +S_33290:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3517,qbs_new_txt_len("TAN",3))))||new_error){ +if(qbevent){evnt(24587);if(r)goto S_33290;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=tan(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24587);}while(r); +sc_ec_130_end:; +goto sc_3517_end; +} +S_33292:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3517,qbs_new_txt_len("LOG",3))))||new_error){ +if(qbevent){evnt(24588);if(r)goto S_33292;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=func_log(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24588);}while(r); +sc_ec_131_end:; +goto sc_3517_end; +} +S_33294:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3517,qbs_new_txt_len("EXP",3))))||new_error){ +if(qbevent){evnt(24589);if(r)goto S_33294;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=func_exp_float(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24589);}while(r); +sc_ec_132_end:; +goto sc_3517_end; +} +S_33296:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3517,qbs_new_txt_len("ATN",3))))||new_error){ +if(qbevent){evnt(24590);if(r)goto S_33296;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=atan(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24590);}while(r); +sc_ec_133_end:; +goto sc_3517_end; +} +S_33298:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3517,qbs_new_txt_len("_D2R",4))))||new_error){ +if(qbevent){evnt(24591);if(r)goto S_33298;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1= 0.0174532925E+0 *(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24591);}while(r); +sc_ec_134_end:; +goto sc_3517_end; +} +S_33300:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3517,qbs_new_txt_len("_D2G",4))))||new_error){ +if(qbevent){evnt(24592);if(r)goto S_33300;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1= 1.1111111111E+0 *(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24592);}while(r); +sc_ec_135_end:; +goto sc_3517_end; +} +S_33302:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3517,qbs_new_txt_len("_R2D",4))))||new_error){ +if(qbevent){evnt(24593);if(r)goto S_33302;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1= 57.2957795E+0 *(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24593);}while(r); +sc_ec_136_end:; +goto sc_3517_end; +} +S_33304:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3517,qbs_new_txt_len("_R2G",4))))||new_error){ +if(qbevent){evnt(24594);if(r)goto S_33304;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1= 0.015707963E+0 *(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24594);}while(r); +sc_ec_137_end:; +goto sc_3517_end; +} +S_33306:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3517,qbs_new_txt_len("_G2D",4))))||new_error){ +if(qbevent){evnt(24595);if(r)goto S_33306;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1= 0.9E+0 *(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24595);}while(r); +sc_ec_138_end:; +goto sc_3517_end; +} +S_33308:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3517,qbs_new_txt_len("_G2R",4))))||new_error){ +if(qbevent){evnt(24596);if(r)goto S_33308;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1= 63.661977237E+0 *(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24596);}while(r); +sc_ec_139_end:; +goto sc_3517_end; +} +S_33310:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3517,qbs_new_txt_len("ABS",3))))||new_error){ +if(qbevent){evnt(24597);if(r)goto S_33310;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=func_abs((long double)(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24597);}while(r); +sc_ec_140_end:; +goto sc_3517_end; +} +S_33312:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3517,qbs_new_txt_len("SGN",3))))||new_error){ +if(qbevent){evnt(24598);if(r)goto S_33312;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=func_sgn((long double)(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24598);}while(r); +sc_ec_141_end:; +goto sc_3517_end; +} +S_33314:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3517,qbs_new_txt_len("INT",3))))||new_error){ +if(qbevent){evnt(24599);if(r)goto S_33314;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=floor(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24599);}while(r); +sc_ec_142_end:; +goto sc_3517_end; +} +S_33316:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3517,qbs_new_txt_len("_ROUND",6))))||new_error){ +if(qbevent){evnt(24600);if(r)goto S_33316;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=func_round_float(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24600);}while(r); +sc_ec_143_end:; +goto sc_3517_end; +} +S_33318:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3517,qbs_new_txt_len("_CEIL",5))))||new_error){ +if(qbevent){evnt(24601);if(r)goto S_33318;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=ceil(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24601);}while(r); +sc_ec_144_end:; +goto sc_3517_end; +} +S_33320:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3517,qbs_new_txt_len("FIX",3))))||new_error){ +if(qbevent){evnt(24602);if(r)goto S_33320;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=func_fix_float(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24602);}while(r); +sc_ec_145_end:; +goto sc_3517_end; +} +S_33322:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3517,qbs_new_txt_len("_SEC",4))))||new_error){ +if(qbevent){evnt(24603);if(r)goto S_33322;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=func_sec(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24603);}while(r); +sc_ec_146_end:; +goto sc_3517_end; +} +S_33324:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3517,qbs_new_txt_len("_CSC",4))))||new_error){ +if(qbevent){evnt(24604);if(r)goto S_33324;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=func_csc(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24604);}while(r); +sc_ec_147_end:; +goto sc_3517_end; +} +S_33326:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3517,qbs_new_txt_len("_COT",4))))||new_error){ +if(qbevent){evnt(24605);if(r)goto S_33326;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=func_cot(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24605);}while(r); +sc_ec_148_end:; +goto sc_3517_end; +} +sc_3517_end:; +sc_ec_149_end:; +goto sc_3515_end; +} +S_33329:; +if ((((sc_3515>=( 20 ))&&(sc_3515<=( 60 ))))||new_error){ +if(qbevent){evnt(24607);if(r)goto S_33329;} +S_33330:; +qbs_set(sc_3523,((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_FUNC_EVALUATENUMBERS_LONG_P)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(qbevent){evnt(24608);if(r)goto S_33330;} +S_33331:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3523,qbs_new_txt_len("^",1))))||new_error){ +if(qbevent){evnt(24609);if(r)goto S_33331;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=pow2(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))),func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24609);}while(r); +sc_ec_150_end:; +goto sc_3523_end; +} +S_33333:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3523,qbs_new_txt_len("SQR",3))))||new_error){ +if(qbevent){evnt(24610);if(r)goto S_33333;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=func_sqr(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24610);}while(r); +sc_ec_151_end:; +goto sc_3523_end; +} +S_33335:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3523,qbs_new_txt_len("ROOT",4))))||new_error){ +if(qbevent){evnt(24611);if(r)goto S_33335;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24612);}while(r); +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N2=func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24612);}while(r); +S_33338:; +if ((-(*_FUNC_EVALUATENUMBERS_FLOAT_N2== 1 ))||new_error){ +if(qbevent){evnt(24613);if(r)goto S_33338;} +do{ +qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_rtrim(qbs_ltrim(qbs_str((long double)(*_FUNC_EVALUATENUMBERS_FLOAT_N1))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24613);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(24613);}while(r); +} +S_33342:; +if (((-(*_FUNC_EVALUATENUMBERS_FLOAT_N1< 0 ))&(-(*_FUNC_EVALUATENUMBERS_FLOAT_N2>= 1 )))||new_error){ +if(qbevent){evnt(24614);if(r)goto S_33342;} +do{ +*_FUNC_EVALUATENUMBERS_LONG_SIGN= -1 ; +if(!qbevent)break;evnt(24614);}while(r); +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=-(*_FUNC_EVALUATENUMBERS_FLOAT_N1); +if(!qbevent)break;evnt(24614);}while(r); +}else{ +do{ +*_FUNC_EVALUATENUMBERS_LONG_SIGN= 1 ; +if(!qbevent)break;evnt(24614);}while(r); +} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N3= 1E+0L / *_FUNC_EVALUATENUMBERS_FLOAT_N2; +if(!qbevent)break;evnt(24615);}while(r); +S_33349:; +if (((-(*_FUNC_EVALUATENUMBERS_FLOAT_N3!=floor(*_FUNC_EVALUATENUMBERS_FLOAT_N3)))&(-(*_FUNC_EVALUATENUMBERS_FLOAT_N2< 1 )))||new_error){ +if(qbevent){evnt(24616);if(r)goto S_33349;} +do{ +*_FUNC_EVALUATENUMBERS_LONG_SIGN=func_sgn((long double)(*_FUNC_EVALUATENUMBERS_FLOAT_N1)); +if(!qbevent)break;evnt(24616);}while(r); +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=func_abs((long double)(*_FUNC_EVALUATENUMBERS_FLOAT_N1)); +if(!qbevent)break;evnt(24616);}while(r); +} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=*_FUNC_EVALUATENUMBERS_LONG_SIGN*(pow2(*_FUNC_EVALUATENUMBERS_FLOAT_N1,*_FUNC_EVALUATENUMBERS_FLOAT_N3)); +if(!qbevent)break;evnt(24617);}while(r); +sc_ec_152_end:; +goto sc_3523_end; +} +S_33354:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3523,qbs_new_txt_len("*",1))))||new_error){ +if(qbevent){evnt(24618);if(r)goto S_33354;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))*func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24618);}while(r); +sc_ec_153_end:; +goto sc_3523_end; +} +S_33356:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3523,qbs_new_txt_len("/",1))))||new_error){ +if(qbevent){evnt(24619);if(r)goto S_33356;} +S_33357:; +if ((qbs_cleanup(qbs_tmp_base,-(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))!= 0 )))||new_error){ +if(qbevent){evnt(24620);if(r)goto S_33357;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))/ func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24621);}while(r); +}else{ +do{ +qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_new_txt_len("ERROR - Division By Zero",24)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24623);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(24624);}while(r); +} +sc_ec_154_end:; +goto sc_3523_end; +} +S_33363:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3523,qbs_new_txt_len("\\",1))))||new_error){ +if(qbevent){evnt(24626);if(r)goto S_33363;} +S_33364:; +if ((qbs_cleanup(qbs_tmp_base,-(func_fix_float(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))))== 0 )))||new_error){ +if(qbevent){evnt(24627);if(r)goto S_33364;} +do{ +qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_new_txt_len("ERROR - Division By Zero",24)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24628);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(24629);}while(r); +} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=qbr(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))))/ qbr(func_fix_float(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24632);}while(r); +sc_ec_155_end:; +goto sc_3523_end; +} +S_33369:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3523,qbs_new_txt_len("MOD",3))))||new_error){ +if(qbevent){evnt(24633);if(r)goto S_33369;} +S_33370:; +if ((qbs_cleanup(qbs_tmp_base,-(func_fix_float(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))))== 0 )))||new_error){ +if(qbevent){evnt(24634);if(r)goto S_33370;} +do{ +qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_new_txt_len("ERROR - Division By Zero",24)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24635);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(24636);}while(r); +} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=qbr(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))))%qbr(func_fix_float(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24639);}while(r); +sc_ec_156_end:; +goto sc_3523_end; +} +S_33375:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3523,qbs_new_txt_len("+",1))))||new_error){ +if(qbevent){evnt(24641);if(r)goto S_33375;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))+func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24641);}while(r); +sc_ec_157_end:; +goto sc_3523_end; +} +S_33377:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3523,qbs_new_txt_len("-",1))))||new_error){ +if(qbevent){evnt(24642);if(r)goto S_33377;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))-func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24643);}while(r); +sc_ec_158_end:; +goto sc_3523_end; +} +sc_3523_end:; +sc_ec_159_end:; +goto sc_3515_end; +} +S_33380:; +if (((sc_3515==( 70 )))||new_error){ +if(qbevent){evnt(24645);if(r)goto S_33380;} +S_33381:; +qbs_set(sc_3524,((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_FUNC_EVALUATENUMBERS_LONG_P)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(qbevent){evnt(24646);if(r)goto S_33381;} +S_33382:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3524,qbs_new_txt_len("=",1))))||new_error){ +if(qbevent){evnt(24647);if(r)goto S_33382;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=-(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))==func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24647);}while(r); +sc_ec_160_end:; +goto sc_3524_end; +} +S_33384:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3524,qbs_new_txt_len(">",1))))||new_error){ +if(qbevent){evnt(24648);if(r)goto S_33384;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=-(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))>func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24648);}while(r); +sc_ec_161_end:; +goto sc_3524_end; +} +S_33386:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3524,qbs_new_txt_len("<",1))))||new_error){ +if(qbevent){evnt(24649);if(r)goto S_33386;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=-(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))",2))||qbs_equal(sc_3524,qbs_new_txt_len("><",2))))||new_error){ +if(qbevent){evnt(24650);if(r)goto S_33388;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=-(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))!=func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24650);}while(r); +sc_ec_163_end:; +goto sc_3524_end; +} +S_33390:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3524,qbs_new_txt_len("<=",2))||qbs_equal(sc_3524,qbs_new_txt_len("=<",2))))||new_error){ +if(qbevent){evnt(24651);if(r)goto S_33390;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=-(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))<=func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24651);}while(r); +sc_ec_164_end:; +goto sc_3524_end; +} +S_33392:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3524,qbs_new_txt_len(">=",2))||qbs_equal(sc_3524,qbs_new_txt_len("=>",2))))||new_error){ +if(qbevent){evnt(24652);if(r)goto S_33392;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=-(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))>=func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24652);}while(r); +sc_ec_165_end:; +goto sc_3524_end; +} +sc_3524_end:; +sc_ec_166_end:; +goto sc_3515_end; +} +S_33396:; +qbs_set(sc_3525,((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_FUNC_EVALUATENUMBERS_LONG_P)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(qbevent){evnt(24655);if(r)goto S_33396;} +S_33397:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3525,qbs_new_txt_len("NOT",3))))||new_error){ +if(qbevent){evnt(24656);if(r)goto S_33397;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=~(qbr(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24656);}while(r); +sc_ec_167_end:; +goto sc_3525_end; +} +S_33399:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3525,qbs_new_txt_len("AND",3))))||new_error){ +if(qbevent){evnt(24657);if(r)goto S_33399;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=qbr(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))))&qbr(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24657);}while(r); +sc_ec_168_end:; +goto sc_3525_end; +} +S_33401:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3525,qbs_new_txt_len("OR",2))))||new_error){ +if(qbevent){evnt(24658);if(r)goto S_33401;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=qbr(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))))|qbr(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24658);}while(r); +sc_ec_169_end:; +goto sc_3525_end; +} +S_33403:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3525,qbs_new_txt_len("XOR",3))))||new_error){ +if(qbevent){evnt(24659);if(r)goto S_33403;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=qbr(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))))^qbr(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24659);}while(r); +sc_ec_170_end:; +goto sc_3525_end; +} +S_33405:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3525,qbs_new_txt_len("EQV",3))))||new_error){ +if(qbevent){evnt(24660);if(r)goto S_33405;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=~qbr(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))))^qbr(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24660);}while(r); +sc_ec_171_end:; +goto sc_3525_end; +} +S_33407:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3525,qbs_new_txt_len("IMP",3))))||new_error){ +if(qbevent){evnt(24661);if(r)goto S_33407;} +do{ +*_FUNC_EVALUATENUMBERS_FLOAT_N1=~qbr(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 1 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])]))))|qbr(func_val(((qbs*)(((uint64*)(_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[0]))[array_check(( 2 )-_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[4],_FUNC_EVALUATENUMBERS_ARRAY_STRING_NUM[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24661);}while(r); +sc_ec_172_end:; +goto sc_3525_end; +} +sc_3525_end:; +sc_3515_end:; +do{ +qbs_set(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS,qbs_add(qbs_rtrim(qbs_ltrim(qbs_str((long double)(*_FUNC_EVALUATENUMBERS_FLOAT_N1)))),_FUNC_EVALUATENUMBERS_STRING_C)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24665);}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free71.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS);return _FUNC_EVALUATENUMBERS_STRING_EVALUATENUMBERS; +} +qbs* FUNC_DWD(qbs*_FUNC_DWD_STRING_EXP){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data72.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +qbs_set(_FUNC_DWD_STRING_T,_FUNC_DWD_STRING_EXP); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24674);}while(r); +S_33413:; +do{ +if(qbevent){evnt(24675);if(r)goto S_33413;} +do{ +*_FUNC_DWD_LONG_BAD= 0 ; +if(!qbevent)break;evnt(24676);}while(r); +S_33415:; +do{ +if(qbevent){evnt(24677);if(r)goto S_33415;} +do{ +*_FUNC_DWD_LONG_L=func_instr(NULL,_FUNC_DWD_STRING_T,qbs_new_txt_len("++",2),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24678);}while(r); +S_33417:; +if ((*_FUNC_DWD_LONG_L)||new_error){ +if(qbevent){evnt(24679);if(r)goto S_33417;} +do{ +qbs_set(_FUNC_DWD_STRING_T,qbs_add(qbs_add(qbs_left(_FUNC_DWD_STRING_T,*_FUNC_DWD_LONG_L- 1 ),qbs_new_txt_len("+",1)),func_mid(_FUNC_DWD_STRING_T,*_FUNC_DWD_LONG_L+ 2 ,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24679);}while(r); +do{ +*_FUNC_DWD_LONG_BAD= -1 ; +if(!qbevent)break;evnt(24679);}while(r); +} +S_33421:; +dl_continue_3528:; +}while((!(-(*_FUNC_DWD_LONG_L== 0 )))&&(!new_error)); +dl_exit_3528:; +if(qbevent){evnt(24680);if(r)goto S_33421;} +S_33422:; +do{ +if(qbevent){evnt(24681);if(r)goto S_33422;} +do{ +*_FUNC_DWD_LONG_L=func_instr(NULL,_FUNC_DWD_STRING_T,qbs_new_txt_len("+-",2),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24682);}while(r); +S_33424:; +if ((*_FUNC_DWD_LONG_L)||new_error){ +if(qbevent){evnt(24683);if(r)goto S_33424;} +do{ +qbs_set(_FUNC_DWD_STRING_T,qbs_add(qbs_add(qbs_left(_FUNC_DWD_STRING_T,*_FUNC_DWD_LONG_L- 1 ),qbs_new_txt_len("-",1)),func_mid(_FUNC_DWD_STRING_T,*_FUNC_DWD_LONG_L+ 2 ,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24683);}while(r); +do{ +*_FUNC_DWD_LONG_BAD= -1 ; +if(!qbevent)break;evnt(24683);}while(r); +} +S_33428:; +dl_continue_3529:; +}while((!(-(*_FUNC_DWD_LONG_L== 0 )))&&(!new_error)); +dl_exit_3529:; +if(qbevent){evnt(24684);if(r)goto S_33428;} +S_33429:; +do{ +if(qbevent){evnt(24685);if(r)goto S_33429;} +do{ +*_FUNC_DWD_LONG_L=func_instr(NULL,_FUNC_DWD_STRING_T,qbs_new_txt_len("-+",2),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24686);}while(r); +S_33431:; +if ((*_FUNC_DWD_LONG_L)||new_error){ +if(qbevent){evnt(24687);if(r)goto S_33431;} +do{ +qbs_set(_FUNC_DWD_STRING_T,qbs_add(qbs_add(qbs_left(_FUNC_DWD_STRING_T,*_FUNC_DWD_LONG_L- 1 ),qbs_new_txt_len("-",1)),func_mid(_FUNC_DWD_STRING_T,*_FUNC_DWD_LONG_L+ 2 ,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24687);}while(r); +do{ +*_FUNC_DWD_LONG_BAD= -1 ; +if(!qbevent)break;evnt(24687);}while(r); +} +S_33435:; +dl_continue_3530:; +}while((!(-(*_FUNC_DWD_LONG_L== 0 )))&&(!new_error)); +dl_exit_3530:; +if(qbevent){evnt(24688);if(r)goto S_33435;} +S_33436:; +do{ +if(qbevent){evnt(24689);if(r)goto S_33436;} +do{ +*_FUNC_DWD_LONG_L=func_instr(NULL,_FUNC_DWD_STRING_T,qbs_new_txt_len("--",2),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24690);}while(r); +S_33438:; +if ((*_FUNC_DWD_LONG_L)||new_error){ +if(qbevent){evnt(24691);if(r)goto S_33438;} +do{ +qbs_set(_FUNC_DWD_STRING_T,qbs_add(qbs_add(qbs_left(_FUNC_DWD_STRING_T,*_FUNC_DWD_LONG_L- 1 ),qbs_new_txt_len("+",1)),func_mid(_FUNC_DWD_STRING_T,*_FUNC_DWD_LONG_L+ 2 ,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24691);}while(r); +do{ +*_FUNC_DWD_LONG_BAD= -1 ; +if(!qbevent)break;evnt(24691);}while(r); +} +S_33442:; +dl_continue_3531:; +}while((!(-(*_FUNC_DWD_LONG_L== 0 )))&&(!new_error)); +dl_exit_3531:; +if(qbevent){evnt(24692);if(r)goto S_33442;} +S_33443:; +dl_continue_3527:; +}while((!(~(*_FUNC_DWD_LONG_BAD)))&&(!new_error)); +dl_exit_3527:; +if(qbevent){evnt(24693);if(r)goto S_33443;} +do{ +qbs_set(_FUNC_DWD_STRING_DWD,_FUNC_DWD_STRING_T); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24694);}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free72.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_DWD_STRING_DWD);return _FUNC_DWD_STRING_DWD; +} +void SUB_PREPARSE(qbs*_SUB_PREPARSE_STRING_E){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data73.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +if(!qbevent)break;evnt(24698);}while(r); +do{ +if(!qbevent)break;evnt(24699);}while(r); +S_33447:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[array_check(( 0 )-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5])])),qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(24701);if(r)goto S_33447;} +do{ if (__ARRAY_STRING_PP_TYPEMOD[2]&2){ error(10); @@ -109836,7 +109836,7 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long]=(uint64)qb }else{ while(tmp_long--) ((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long]=(uint64)qbs_new(0,0); } -} +} if (__ARRAY_STRING_PP_CONVERTEDMOD[2]&2){ error(10); @@ -109859,371 +109859,371 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long]=(uint }else{ while(tmp_long--) ((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long]=(uint64)qbs_new(0,0); } -} -if(!qbevent)break;evnt(24702);}while(r); -do{ -tmp_long=array_check(( 0 )-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long])),qbs_new_txt_len("Initialized",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24703);}while(r); -do{ -*_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; -if(!qbevent)break;evnt(24705);}while(r); -do{ -tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long])),qbs_new_txt_len("~`",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24705);}while(r); -do{ -tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_CONVERTEDMOD[4],__ARRAY_STRING_PP_CONVERTEDMOD[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long])),qbs_new_txt_len("C_UBI",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24705);}while(r); -do{ -*_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; -if(!qbevent)break;evnt(24706);}while(r); -do{ -tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long])),qbs_new_txt_len("~%%",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24706);}while(r); -do{ -tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_CONVERTEDMOD[4],__ARRAY_STRING_PP_CONVERTEDMOD[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long])),qbs_new_txt_len("C_UBY",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24706);}while(r); -do{ -*_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; -if(!qbevent)break;evnt(24707);}while(r); -do{ -tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long])),qbs_new_txt_len("~%&",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24707);}while(r); -do{ -tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_CONVERTEDMOD[4],__ARRAY_STRING_PP_CONVERTEDMOD[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long])),qbs_new_txt_len("C_UOF",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24707);}while(r); -do{ -*_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; -if(!qbevent)break;evnt(24708);}while(r); -do{ -tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long])),qbs_new_txt_len("~%",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24708);}while(r); -do{ -tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_CONVERTEDMOD[4],__ARRAY_STRING_PP_CONVERTEDMOD[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long])),qbs_new_txt_len("C_UIN",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24708);}while(r); -do{ -*_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; -if(!qbevent)break;evnt(24709);}while(r); -do{ -tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long])),qbs_new_txt_len("~&&",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24709);}while(r); -do{ -tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_CONVERTEDMOD[4],__ARRAY_STRING_PP_CONVERTEDMOD[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long])),qbs_new_txt_len("C_UIF",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24709);}while(r); -do{ -*_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; -if(!qbevent)break;evnt(24710);}while(r); -do{ -tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long])),qbs_new_txt_len("~&",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24710);}while(r); -do{ -tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_CONVERTEDMOD[4],__ARRAY_STRING_PP_CONVERTEDMOD[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long])),qbs_new_txt_len("C_ULO",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24710);}while(r); -do{ -*_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; -if(!qbevent)break;evnt(24711);}while(r); -do{ -tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long])),qbs_new_txt_len("`",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24711);}while(r); -do{ -tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_CONVERTEDMOD[4],__ARRAY_STRING_PP_CONVERTEDMOD[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long])),qbs_new_txt_len("C_BI",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24711);}while(r); -do{ -*_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; -if(!qbevent)break;evnt(24712);}while(r); -do{ -tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long])),qbs_new_txt_len("%%",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24712);}while(r); -do{ -tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_CONVERTEDMOD[4],__ARRAY_STRING_PP_CONVERTEDMOD[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long])),qbs_new_txt_len("C_BY",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24712);}while(r); -do{ -*_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; -if(!qbevent)break;evnt(24713);}while(r); -do{ -tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long])),qbs_new_txt_len("%&",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24713);}while(r); -do{ -tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_CONVERTEDMOD[4],__ARRAY_STRING_PP_CONVERTEDMOD[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long])),qbs_new_txt_len("C_OF",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24713);}while(r); -do{ -*_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; -if(!qbevent)break;evnt(24714);}while(r); -do{ -tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long])),qbs_new_txt_len("%",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24714);}while(r); -do{ -tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_CONVERTEDMOD[4],__ARRAY_STRING_PP_CONVERTEDMOD[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long])),qbs_new_txt_len("C_IN",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24714);}while(r); -do{ -*_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; -if(!qbevent)break;evnt(24715);}while(r); -do{ -tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long])),qbs_new_txt_len("&&",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24715);}while(r); -do{ -tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_CONVERTEDMOD[4],__ARRAY_STRING_PP_CONVERTEDMOD[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long])),qbs_new_txt_len("C_IF",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24715);}while(r); -do{ -*_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; -if(!qbevent)break;evnt(24716);}while(r); -do{ -tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long])),qbs_new_txt_len("&",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24716);}while(r); -do{ -tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_CONVERTEDMOD[4],__ARRAY_STRING_PP_CONVERTEDMOD[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long])),qbs_new_txt_len("C_LO",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24716);}while(r); -do{ -*_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; -if(!qbevent)break;evnt(24717);}while(r); -do{ -tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long])),qbs_new_txt_len("!",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24717);}while(r); -do{ -tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_CONVERTEDMOD[4],__ARRAY_STRING_PP_CONVERTEDMOD[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long])),qbs_new_txt_len("C_SI",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24717);}while(r); -do{ -*_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; -if(!qbevent)break;evnt(24718);}while(r); -do{ -tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long])),qbs_new_txt_len("##",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24718);}while(r); -do{ -tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_CONVERTEDMOD[4],__ARRAY_STRING_PP_CONVERTEDMOD[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long])),qbs_new_txt_len("C_FL",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24718);}while(r); -do{ -*_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; -if(!qbevent)break;evnt(24719);}while(r); -do{ -tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long])),qbs_new_txt_len("#",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24719);}while(r); -do{ -tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_CONVERTEDMOD[4],__ARRAY_STRING_PP_CONVERTEDMOD[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long])),qbs_new_txt_len("C_DO",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24719);}while(r); -do{ -*_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; -if(!qbevent)break;evnt(24720);}while(r); -do{ -tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long])),qbs_new_txt_len("_RGB32",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24720);}while(r); -do{ -tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_CONVERTEDMOD[4],__ARRAY_STRING_PP_CONVERTEDMOD[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long])),qbs_new_txt_len("C_RG",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24720);}while(r); -do{ -*_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; -if(!qbevent)break;evnt(24721);}while(r); -do{ -tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long])),qbs_new_txt_len("_RGBA32",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24721);}while(r); -do{ -tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_CONVERTEDMOD[4],__ARRAY_STRING_PP_CONVERTEDMOD[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long])),qbs_new_txt_len("C_RA",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24721);}while(r); -do{ -*_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; -if(!qbevent)break;evnt(24722);}while(r); -do{ -tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long])),qbs_new_txt_len("_RED32",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24722);}while(r); -do{ -tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_CONVERTEDMOD[4],__ARRAY_STRING_PP_CONVERTEDMOD[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long])),qbs_new_txt_len("C_RX",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24722);}while(r); -do{ -*_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; -if(!qbevent)break;evnt(24723);}while(r); -do{ -tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long])),qbs_new_txt_len("_GREEN32",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24723);}while(r); -do{ -tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_CONVERTEDMOD[4],__ARRAY_STRING_PP_CONVERTEDMOD[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long])),qbs_new_txt_len("C_GR",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24723);}while(r); -do{ -*_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; -if(!qbevent)break;evnt(24724);}while(r); -do{ -tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long])),qbs_new_txt_len("_BLUE32",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24724);}while(r); -do{ -tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_CONVERTEDMOD[4],__ARRAY_STRING_PP_CONVERTEDMOD[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long])),qbs_new_txt_len("C_BL",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24724);}while(r); -do{ -*_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; -if(!qbevent)break;evnt(24725);}while(r); -do{ -tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long])),qbs_new_txt_len("_ALPHA32",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24725);}while(r); -do{ -tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_CONVERTEDMOD[4],__ARRAY_STRING_PP_CONVERTEDMOD[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long])),qbs_new_txt_len("C_AL",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24725);}while(r); -do{ -*_SUB_PREPARSE_LONG_TOTALPREFIXEDPP_TYPEMOD=*_SUB_PREPARSE_LONG_I; -if(!qbevent)break;evnt(24726);}while(r); -do{ -*_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; -if(!qbevent)break;evnt(24727);}while(r); -do{ -tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long])),qbs_new_txt_len("RGB32",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24727);}while(r); -do{ -tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_CONVERTEDMOD[4],__ARRAY_STRING_PP_CONVERTEDMOD[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long])),qbs_new_txt_len("C_RG",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24727);}while(r); -do{ -*_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; -if(!qbevent)break;evnt(24728);}while(r); -do{ -tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long])),qbs_new_txt_len("RGBA32",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24728);}while(r); -do{ -tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_CONVERTEDMOD[4],__ARRAY_STRING_PP_CONVERTEDMOD[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long])),qbs_new_txt_len("C_RA",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24728);}while(r); -do{ -*_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; -if(!qbevent)break;evnt(24729);}while(r); -do{ -tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long])),qbs_new_txt_len("RED32",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24729);}while(r); -do{ -tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_CONVERTEDMOD[4],__ARRAY_STRING_PP_CONVERTEDMOD[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long])),qbs_new_txt_len("C_RX",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24729);}while(r); -do{ -*_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; -if(!qbevent)break;evnt(24730);}while(r); -do{ -tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long])),qbs_new_txt_len("GREEN32",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24730);}while(r); -do{ -tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_CONVERTEDMOD[4],__ARRAY_STRING_PP_CONVERTEDMOD[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long])),qbs_new_txt_len("C_GR",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24730);}while(r); -do{ -*_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; -if(!qbevent)break;evnt(24731);}while(r); -do{ -tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long])),qbs_new_txt_len("BLUE32",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24731);}while(r); -do{ -tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_CONVERTEDMOD[4],__ARRAY_STRING_PP_CONVERTEDMOD[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long])),qbs_new_txt_len("C_BL",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24731);}while(r); -do{ -*_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; -if(!qbevent)break;evnt(24732);}while(r); -do{ -tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long])),qbs_new_txt_len("ALPHA32",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24732);}while(r); -do{ -tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_CONVERTEDMOD[4],__ARRAY_STRING_PP_CONVERTEDMOD[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long])),qbs_new_txt_len("C_AL",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24732);}while(r); -do{ -*_SUB_PREPARSE_LONG_TOTALPP_TYPEMOD=*_SUB_PREPARSE_LONG_I; -if(!qbevent)break;evnt(24733);}while(r); -do{ +} +if(!qbevent)break;evnt(24702);}while(r); +do{ +tmp_long=array_check(( 0 )-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long])),qbs_new_txt_len("Initialized",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24703);}while(r); +do{ +*_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; +if(!qbevent)break;evnt(24705);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long])),qbs_new_txt_len("~`",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24705);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_CONVERTEDMOD[4],__ARRAY_STRING_PP_CONVERTEDMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long])),qbs_new_txt_len("C_UBI",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24705);}while(r); +do{ +*_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; +if(!qbevent)break;evnt(24706);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long])),qbs_new_txt_len("~%%",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24706);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_CONVERTEDMOD[4],__ARRAY_STRING_PP_CONVERTEDMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long])),qbs_new_txt_len("C_UBY",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24706);}while(r); +do{ +*_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; +if(!qbevent)break;evnt(24707);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long])),qbs_new_txt_len("~%&",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24707);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_CONVERTEDMOD[4],__ARRAY_STRING_PP_CONVERTEDMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long])),qbs_new_txt_len("C_UOF",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24707);}while(r); +do{ +*_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; +if(!qbevent)break;evnt(24708);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long])),qbs_new_txt_len("~%",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24708);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_CONVERTEDMOD[4],__ARRAY_STRING_PP_CONVERTEDMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long])),qbs_new_txt_len("C_UIN",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24708);}while(r); +do{ +*_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; +if(!qbevent)break;evnt(24709);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long])),qbs_new_txt_len("~&&",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24709);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_CONVERTEDMOD[4],__ARRAY_STRING_PP_CONVERTEDMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long])),qbs_new_txt_len("C_UIF",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24709);}while(r); +do{ +*_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; +if(!qbevent)break;evnt(24710);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long])),qbs_new_txt_len("~&",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24710);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_CONVERTEDMOD[4],__ARRAY_STRING_PP_CONVERTEDMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long])),qbs_new_txt_len("C_ULO",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24710);}while(r); +do{ +*_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; +if(!qbevent)break;evnt(24711);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long])),qbs_new_txt_len("`",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24711);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_CONVERTEDMOD[4],__ARRAY_STRING_PP_CONVERTEDMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long])),qbs_new_txt_len("C_BI",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24711);}while(r); +do{ +*_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; +if(!qbevent)break;evnt(24712);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long])),qbs_new_txt_len("%%",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24712);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_CONVERTEDMOD[4],__ARRAY_STRING_PP_CONVERTEDMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long])),qbs_new_txt_len("C_BY",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24712);}while(r); +do{ +*_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; +if(!qbevent)break;evnt(24713);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long])),qbs_new_txt_len("%&",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24713);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_CONVERTEDMOD[4],__ARRAY_STRING_PP_CONVERTEDMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long])),qbs_new_txt_len("C_OF",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24713);}while(r); +do{ +*_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; +if(!qbevent)break;evnt(24714);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long])),qbs_new_txt_len("%",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24714);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_CONVERTEDMOD[4],__ARRAY_STRING_PP_CONVERTEDMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long])),qbs_new_txt_len("C_IN",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24714);}while(r); +do{ +*_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; +if(!qbevent)break;evnt(24715);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long])),qbs_new_txt_len("&&",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24715);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_CONVERTEDMOD[4],__ARRAY_STRING_PP_CONVERTEDMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long])),qbs_new_txt_len("C_IF",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24715);}while(r); +do{ +*_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; +if(!qbevent)break;evnt(24716);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long])),qbs_new_txt_len("&",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24716);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_CONVERTEDMOD[4],__ARRAY_STRING_PP_CONVERTEDMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long])),qbs_new_txt_len("C_LO",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24716);}while(r); +do{ +*_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; +if(!qbevent)break;evnt(24717);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long])),qbs_new_txt_len("!",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24717);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_CONVERTEDMOD[4],__ARRAY_STRING_PP_CONVERTEDMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long])),qbs_new_txt_len("C_SI",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24717);}while(r); +do{ +*_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; +if(!qbevent)break;evnt(24718);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long])),qbs_new_txt_len("##",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24718);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_CONVERTEDMOD[4],__ARRAY_STRING_PP_CONVERTEDMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long])),qbs_new_txt_len("C_FL",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24718);}while(r); +do{ +*_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; +if(!qbevent)break;evnt(24719);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long])),qbs_new_txt_len("#",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24719);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_CONVERTEDMOD[4],__ARRAY_STRING_PP_CONVERTEDMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long])),qbs_new_txt_len("C_DO",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24719);}while(r); +do{ +*_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; +if(!qbevent)break;evnt(24720);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long])),qbs_new_txt_len("_RGB32",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24720);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_CONVERTEDMOD[4],__ARRAY_STRING_PP_CONVERTEDMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long])),qbs_new_txt_len("C_RG",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24720);}while(r); +do{ +*_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; +if(!qbevent)break;evnt(24721);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long])),qbs_new_txt_len("_RGBA32",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24721);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_CONVERTEDMOD[4],__ARRAY_STRING_PP_CONVERTEDMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long])),qbs_new_txt_len("C_RA",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24721);}while(r); +do{ +*_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; +if(!qbevent)break;evnt(24722);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long])),qbs_new_txt_len("_RED32",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24722);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_CONVERTEDMOD[4],__ARRAY_STRING_PP_CONVERTEDMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long])),qbs_new_txt_len("C_RX",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24722);}while(r); +do{ +*_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; +if(!qbevent)break;evnt(24723);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long])),qbs_new_txt_len("_GREEN32",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24723);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_CONVERTEDMOD[4],__ARRAY_STRING_PP_CONVERTEDMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long])),qbs_new_txt_len("C_GR",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24723);}while(r); +do{ +*_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; +if(!qbevent)break;evnt(24724);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long])),qbs_new_txt_len("_BLUE32",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24724);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_CONVERTEDMOD[4],__ARRAY_STRING_PP_CONVERTEDMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long])),qbs_new_txt_len("C_BL",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24724);}while(r); +do{ +*_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; +if(!qbevent)break;evnt(24725);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long])),qbs_new_txt_len("_ALPHA32",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24725);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_CONVERTEDMOD[4],__ARRAY_STRING_PP_CONVERTEDMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long])),qbs_new_txt_len("C_AL",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24725);}while(r); +do{ +*_SUB_PREPARSE_LONG_TOTALPREFIXEDPP_TYPEMOD=*_SUB_PREPARSE_LONG_I; +if(!qbevent)break;evnt(24726);}while(r); +do{ +*_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; +if(!qbevent)break;evnt(24727);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long])),qbs_new_txt_len("RGB32",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24727);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_CONVERTEDMOD[4],__ARRAY_STRING_PP_CONVERTEDMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long])),qbs_new_txt_len("C_RG",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24727);}while(r); +do{ +*_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; +if(!qbevent)break;evnt(24728);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long])),qbs_new_txt_len("RGBA32",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24728);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_CONVERTEDMOD[4],__ARRAY_STRING_PP_CONVERTEDMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long])),qbs_new_txt_len("C_RA",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24728);}while(r); +do{ +*_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; +if(!qbevent)break;evnt(24729);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long])),qbs_new_txt_len("RED32",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24729);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_CONVERTEDMOD[4],__ARRAY_STRING_PP_CONVERTEDMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long])),qbs_new_txt_len("C_RX",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24729);}while(r); +do{ +*_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; +if(!qbevent)break;evnt(24730);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long])),qbs_new_txt_len("GREEN32",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24730);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_CONVERTEDMOD[4],__ARRAY_STRING_PP_CONVERTEDMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long])),qbs_new_txt_len("C_GR",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24730);}while(r); +do{ +*_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; +if(!qbevent)break;evnt(24731);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long])),qbs_new_txt_len("BLUE32",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24731);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_CONVERTEDMOD[4],__ARRAY_STRING_PP_CONVERTEDMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long])),qbs_new_txt_len("C_BL",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24731);}while(r); +do{ +*_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+ 1 ; +if(!qbevent)break;evnt(24732);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long])),qbs_new_txt_len("ALPHA32",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24732);}while(r); +do{ +tmp_long=array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_PP_CONVERTEDMOD[4],__ARRAY_STRING_PP_CONVERTEDMOD[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long])),qbs_new_txt_len("C_AL",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24732);}while(r); +do{ +*_SUB_PREPARSE_LONG_TOTALPP_TYPEMOD=*_SUB_PREPARSE_LONG_I; +if(!qbevent)break;evnt(24733);}while(r); +do{ if (__ARRAY_STRING_PP_TYPEMOD[2]&2){ error(10); @@ -110266,7 +110266,7 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long]=(uint64)qb while(tmp_long--) ((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -} +} if (__ARRAY_STRING_PP_CONVERTEDMOD[2]&2){ error(10); @@ -110309,1446 +110309,1446 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long]=(uint while(tmp_long--) ((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -} -if(!qbevent)break;evnt(24734);}while(r); -} -do{ -qbs_set(_SUB_PREPARSE_STRING_T,_SUB_PREPARSE_STRING_E); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24736);}while(r); -do{ -qbs_set(_SUB_PREPARSE_STRING_T,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24739);}while(r); -S_33537:; -fornext_value3534= 1 ; -fornext_finalvalue3534=_SUB_PREPARSE_STRING_E->len; -fornext_step3534= 1 ; -if (fornext_step3534<0) fornext_step_negative3534=1; else fornext_step_negative3534=0; -if (new_error) goto fornext_error3534; -goto fornext_entrylabel3534; -while(1){ -fornext_value3534=fornext_step3534+(*_SUB_PREPARSE_LONG_I); -fornext_entrylabel3534: -*_SUB_PREPARSE_LONG_I=fornext_value3534; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative3534){ -if (fornext_value3534fornext_finalvalue3534) break; -} -fornext_error3534:; -if(qbevent){evnt(24740);if(r)goto S_33537;} -S_33538:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(func_mid(_SUB_PREPARSE_STRING_E,*_SUB_PREPARSE_LONG_I, 1 ,0|1),qbs_new_txt_len(" ",1))))||new_error){ -if(qbevent){evnt(24741);if(r)goto S_33538;} -do{ -qbs_set(_SUB_PREPARSE_STRING_T,qbs_add(_SUB_PREPARSE_STRING_T,func_mid(_SUB_PREPARSE_STRING_E,*_SUB_PREPARSE_LONG_I, 1 ,0|1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24741);}while(r); -} -fornext_continue_3533:; -} -fornext_exit_3533:; -do{ -qbs_set(_SUB_PREPARSE_STRING_T,qbs_ucase(_SUB_PREPARSE_STRING_T)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24744);}while(r); -S_33543:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_PREPARSE_STRING_T,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(24745);if(r)goto S_33543;} -do{ -qbs_set(_SUB_PREPARSE_STRING_E,qbs_new_txt_len("ERROR -- NULL string; nothing to evaluate",41)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24745);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(24745);}while(r); -} -do{ -*_SUB_PREPARSE_LONG_L= 0 ; -if(!qbevent)break;evnt(24748);}while(r); -S_33548:; -do{ -if(qbevent){evnt(24749);if(r)goto S_33548;} -do{ -*_SUB_PREPARSE_LONG_L=func_instr(*_SUB_PREPARSE_LONG_L+ 1 ,_SUB_PREPARSE_STRING_T,qbs_new_txt_len("(",1),0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24750);}while(r); -S_33550:; -if ((*_SUB_PREPARSE_LONG_L)||new_error){ -if(qbevent){evnt(24750);if(r)goto S_33550;} -do{ -*_SUB_PREPARSE_LONG_C=*_SUB_PREPARSE_LONG_C+ 1 ; -if(!qbevent)break;evnt(24750);}while(r); -} -S_33553:; -dl_continue_3536:; -}while((!(-(*_SUB_PREPARSE_LONG_L== 0 )))&&(!new_error)); -dl_exit_3536:; -if(qbevent){evnt(24751);if(r)goto S_33553;} -do{ -*_SUB_PREPARSE_LONG_L= 0 ; -if(!qbevent)break;evnt(24752);}while(r); -S_33555:; -do{ -if(qbevent){evnt(24753);if(r)goto S_33555;} -do{ -*_SUB_PREPARSE_LONG_L=func_instr(*_SUB_PREPARSE_LONG_L+ 1 ,_SUB_PREPARSE_STRING_T,qbs_new_txt_len(")",1),0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24754);}while(r); -S_33557:; -if ((*_SUB_PREPARSE_LONG_L)||new_error){ -if(qbevent){evnt(24754);if(r)goto S_33557;} -do{ -*_SUB_PREPARSE_LONG_C1=*_SUB_PREPARSE_LONG_C1+ 1 ; -if(!qbevent)break;evnt(24754);}while(r); -} -S_33560:; -dl_continue_3537:; -}while((!(-(*_SUB_PREPARSE_LONG_L== 0 )))&&(!new_error)); -dl_exit_3537:; -if(qbevent){evnt(24755);if(r)goto S_33560;} -S_33561:; -if ((-(*_SUB_PREPARSE_LONG_C!=*_SUB_PREPARSE_LONG_C1))||new_error){ -if(qbevent){evnt(24756);if(r)goto S_33561;} -do{ -qbs_set(_SUB_PREPARSE_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("ERROR -- Bad Parenthesis:",25),qbs_str((int32)(*_SUB_PREPARSE_LONG_C))),qbs_new_txt_len("( vs",4)),qbs_str((int32)(*_SUB_PREPARSE_LONG_C1))),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24756);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(24756);}while(r); -} -do{ -qbs_set(_SUB_PREPARSE_STRING_SEP,qbs_new_txt_len("()+-*/\\><=^",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24759);}while(r); -S_33566:; -fornext_value3539= 0 ; -fornext_finalvalue3539=*__LONG_CONSTLAST; -fornext_step3539= 1 ; -if (fornext_step3539<0) fornext_step_negative3539=1; else fornext_step_negative3539=0; -if (new_error) goto fornext_error3539; -goto fornext_entrylabel3539; -while(1){ -fornext_value3539=fornext_step3539+(*_SUB_PREPARSE_LONG_I2); -fornext_entrylabel3539: -*_SUB_PREPARSE_LONG_I2=fornext_value3539; -if (fornext_step_negative3539){ -if (fornext_value3539fornext_finalvalue3539) break; -} -fornext_error3539:; -if(qbevent){evnt(24760);if(r)goto S_33566;} -do{ -qbs_set(_SUB_PREPARSE_STRING_THISCONSTNAME,((qbs*)(((uint64*)(__ARRAY_STRING_CONSTNAME[0]))[array_check((*_SUB_PREPARSE_LONG_I2)-__ARRAY_STRING_CONSTNAME[4],__ARRAY_STRING_CONSTNAME[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24761);}while(r); -S_33568:; -fornext_value3541= 1 ; -fornext_finalvalue3541= 2 ; -fornext_step3541= 1 ; -if (fornext_step3541<0) fornext_step_negative3541=1; else fornext_step_negative3541=0; -if (new_error) goto fornext_error3541; -goto fornext_entrylabel3541; -while(1){ -fornext_value3541=fornext_step3541+(*_SUB_PREPARSE_LONG_REPLACECONSTPASS); -fornext_entrylabel3541: -*_SUB_PREPARSE_LONG_REPLACECONSTPASS=fornext_value3541; -if (fornext_step_negative3541){ -if (fornext_value3541fornext_finalvalue3541) break; -} -fornext_error3541:; -if(qbevent){evnt(24762);if(r)goto S_33568;} -do{ -*_SUB_PREPARSE_LONG_FOUND= 0 ; -if(!qbevent)break;evnt(24763);}while(r); -S_33570:; -do{ -if(qbevent){evnt(24764);if(r)goto S_33570;} -do{ -*_SUB_PREPARSE_LONG_FOUND=func_instr(*_SUB_PREPARSE_LONG_FOUND+ 1 ,qbs_ucase(_SUB_PREPARSE_STRING_T),_SUB_PREPARSE_STRING_THISCONSTNAME,0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24765);}while(r); -S_33572:; -if ((*_SUB_PREPARSE_LONG_FOUND)||new_error){ -if(qbevent){evnt(24766);if(r)goto S_33572;} -S_33573:; -if ((-(*_SUB_PREPARSE_LONG_FOUND> 1 ))||new_error){ -if(qbevent){evnt(24767);if(r)goto S_33573;} -S_33574:; -if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_SUB_PREPARSE_STRING_SEP,func_mid(_SUB_PREPARSE_STRING_T,*_SUB_PREPARSE_LONG_FOUND- 1 , 1 ,0|1),0)== 0 )))||new_error){ -if(qbevent){evnt(24768);if(r)goto S_33574;} -do{ -goto dl_continue_3542; -if(!qbevent)break;evnt(24768);}while(r); -} -} -S_33578:; -if ((qbs_cleanup(qbs_tmp_base,-((*_SUB_PREPARSE_LONG_FOUND+_SUB_PREPARSE_STRING_THISCONSTNAME->len)<=(_SUB_PREPARSE_STRING_T->len))))||new_error){ -if(qbevent){evnt(24770);if(r)goto S_33578;} -S_33579:; -if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_SUB_PREPARSE_STRING_SEP,func_mid(_SUB_PREPARSE_STRING_T,*_SUB_PREPARSE_LONG_FOUND+_SUB_PREPARSE_STRING_THISCONSTNAME->len, 1 ,0|1),0)== 0 )))||new_error){ -if(qbevent){evnt(24771);if(r)goto S_33579;} -do{ -goto dl_continue_3542; -if(!qbevent)break;evnt(24771);}while(r); -} -} -do{ -*_SUB_PREPARSE_LONG_T=((int32*)(__ARRAY_LONG_CONSTTYPE[0]))[array_check((*_SUB_PREPARSE_LONG_I2)-__ARRAY_LONG_CONSTTYPE[4],__ARRAY_LONG_CONSTTYPE[5])]; -if(!qbevent)break;evnt(24773);}while(r); -S_33584:; -if ((*_SUB_PREPARSE_LONG_T&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(24774);if(r)goto S_33584;} -do{ -qbs_set(_SUB_PREPARSE_STRING_R,((qbs*)(((uint64*)(__ARRAY_STRING_CONSTSTRING[0]))[array_check((*_SUB_PREPARSE_LONG_I2)-__ARRAY_STRING_CONSTSTRING[4],__ARRAY_STRING_CONSTSTRING[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24775);}while(r); -do{ -*_SUB_PREPARSE_LONG_I4=func__instrrev(NULL,_SUB_PREPARSE_STRING_R,qbs_new_txt_len(",",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24776);}while(r); -do{ -qbs_set(_SUB_PREPARSE_STRING_R,qbs_left(_SUB_PREPARSE_STRING_R,*_SUB_PREPARSE_LONG_I4- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24777);}while(r); -}else{ -S_33589:; -if ((*_SUB_PREPARSE_LONG_T&*__LONG_ISFLOAT)||new_error){ -if(qbevent){evnt(24779);if(r)goto S_33589;} -do{ -qbs_set(_SUB_PREPARSE_STRING_R,qbs_str((long double)(((long double*)(__ARRAY_FLOAT_CONSTFLOAT[0]))[array_check((*_SUB_PREPARSE_LONG_I2)-__ARRAY_FLOAT_CONSTFLOAT[4],__ARRAY_FLOAT_CONSTFLOAT[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24780);}while(r); -do{ -qbs_set(_SUB_PREPARSE_STRING_R,FUNC_N2S(_SUB_PREPARSE_STRING_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24781);}while(r); -}else{ -S_33593:; -if ((*_SUB_PREPARSE_LONG_T&*__LONG_ISUNSIGNED)||new_error){ -if(qbevent){evnt(24783);if(r)goto S_33593;} -do{ -qbs_set(_SUB_PREPARSE_STRING_R,qbs_str((uint64)(((uint64*)(__ARRAY_UINTEGER64_CONSTUINTEGER[0]))[array_check((*_SUB_PREPARSE_LONG_I2)-__ARRAY_UINTEGER64_CONSTUINTEGER[4],__ARRAY_UINTEGER64_CONSTUINTEGER[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24783);}while(r); -}else{ -do{ -qbs_set(_SUB_PREPARSE_STRING_R,qbs_str((int64)(((int64*)(__ARRAY_INTEGER64_CONSTINTEGER[0]))[array_check((*_SUB_PREPARSE_LONG_I2)-__ARRAY_INTEGER64_CONSTINTEGER[4],__ARRAY_INTEGER64_CONSTINTEGER[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24783);}while(r); -} -} -} -do{ -qbs_set(_SUB_PREPARSE_STRING_T,qbs_add(qbs_add(qbs_left(_SUB_PREPARSE_STRING_T,*_SUB_PREPARSE_LONG_FOUND- 1 ),qbs__trim(_SUB_PREPARSE_STRING_R)),func_mid(_SUB_PREPARSE_STRING_T,*_SUB_PREPARSE_LONG_FOUND+_SUB_PREPARSE_STRING_THISCONSTNAME->len,NULL,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24786);}while(r); -} -S_33602:; -dl_continue_3542:; -}while((!(-(*_SUB_PREPARSE_LONG_FOUND== 0 )))&&(!new_error)); -dl_exit_3542:; -if(qbevent){evnt(24788);if(r)goto S_33602;} -do{ -qbs_set(_SUB_PREPARSE_STRING_THISCONSTNAME,qbs_add(((qbs*)(((uint64*)(__ARRAY_STRING_CONSTNAME[0]))[array_check((*_SUB_PREPARSE_LONG_I2)-__ARRAY_STRING_CONSTNAME[4],__ARRAY_STRING_CONSTNAME[5])])),((qbs*)(((uint64*)(__ARRAY_STRING_CONSTNAMESYMBOL[0]))[array_check((*_SUB_PREPARSE_LONG_I2)-__ARRAY_STRING_CONSTNAMESYMBOL[4],__ARRAY_STRING_CONSTNAMESYMBOL[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24789);}while(r); -fornext_continue_3540:; -} -fornext_exit_3540:; -fornext_continue_3538:; -} -fornext_exit_3538:; -do{ -*_SUB_PREPARSE_LONG_L= 0 ; -if(!qbevent)break;evnt(24794);}while(r); -S_33607:; -do{ -if(qbevent){evnt(24795);if(r)goto S_33607;} -do{ -*_SUB_PREPARSE_LONG_L=func_instr(*_SUB_PREPARSE_LONG_L+ 1 ,_SUB_PREPARSE_STRING_T,qbs_new_txt_len("NOT ",4),0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24796);}while(r); -S_33609:; -if ((*_SUB_PREPARSE_LONG_L)||new_error){ -if(qbevent){evnt(24797);if(r)goto S_33609;} -do{ -*_SUB_PREPARSE_LONG_L1=func_instr(*_SUB_PREPARSE_LONG_L+ 1 ,_SUB_PREPARSE_STRING_T,qbs_new_txt_len("AND",3),0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24801);}while(r); -S_33611:; -if ((qbs_cleanup(qbs_tmp_base,(-(*_SUB_PREPARSE_LONG_L1== 0 ))|(((-(func_instr(*_SUB_PREPARSE_LONG_L+ 1 ,_SUB_PREPARSE_STRING_T,qbs_new_txt_len("OR",2),0|1)> 0 ))&(-(func_instr(*_SUB_PREPARSE_LONG_L+ 1 ,_SUB_PREPARSE_STRING_T,qbs_new_txt_len("OR",2),0|1)<*_SUB_PREPARSE_LONG_L1))))))||new_error){ -if(qbevent){evnt(24802);if(r)goto S_33611;} -do{ -*_SUB_PREPARSE_LONG_L1=func_instr(*_SUB_PREPARSE_LONG_L+ 1 ,_SUB_PREPARSE_STRING_T,qbs_new_txt_len("OR",2),0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24802);}while(r); -} -S_33614:; -if ((qbs_cleanup(qbs_tmp_base,(-(*_SUB_PREPARSE_LONG_L1== 0 ))|(((-(func_instr(*_SUB_PREPARSE_LONG_L+ 1 ,_SUB_PREPARSE_STRING_T,qbs_new_txt_len("XOR",3),0|1)> 0 ))&(-(func_instr(*_SUB_PREPARSE_LONG_L+ 1 ,_SUB_PREPARSE_STRING_T,qbs_new_txt_len("XOR",3),0|1)<*_SUB_PREPARSE_LONG_L1))))))||new_error){ -if(qbevent){evnt(24803);if(r)goto S_33614;} -do{ -*_SUB_PREPARSE_LONG_L1=func_instr(*_SUB_PREPARSE_LONG_L+ 1 ,_SUB_PREPARSE_STRING_T,qbs_new_txt_len("XOR",3),0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24803);}while(r); -} -S_33617:; -if ((qbs_cleanup(qbs_tmp_base,(-(*_SUB_PREPARSE_LONG_L1== 0 ))|(((-(func_instr(*_SUB_PREPARSE_LONG_L+ 1 ,_SUB_PREPARSE_STRING_T,qbs_new_txt_len("EQV",3),0|1)> 0 ))&(-(func_instr(*_SUB_PREPARSE_LONG_L+ 1 ,_SUB_PREPARSE_STRING_T,qbs_new_txt_len("EQV",3),0|1)<*_SUB_PREPARSE_LONG_L1))))))||new_error){ -if(qbevent){evnt(24804);if(r)goto S_33617;} -do{ -*_SUB_PREPARSE_LONG_L1=func_instr(*_SUB_PREPARSE_LONG_L+ 1 ,_SUB_PREPARSE_STRING_T,qbs_new_txt_len("EQV",3),0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24804);}while(r); -} -S_33620:; -if ((qbs_cleanup(qbs_tmp_base,(-(*_SUB_PREPARSE_LONG_L1== 0 ))|(((-(func_instr(*_SUB_PREPARSE_LONG_L+ 1 ,_SUB_PREPARSE_STRING_T,qbs_new_txt_len("IMP",3),0|1)> 0 ))&(-(func_instr(*_SUB_PREPARSE_LONG_L+ 1 ,_SUB_PREPARSE_STRING_T,qbs_new_txt_len("IMP",3),0|1)<*_SUB_PREPARSE_LONG_L1))))))||new_error){ -if(qbevent){evnt(24805);if(r)goto S_33620;} -do{ -*_SUB_PREPARSE_LONG_L1=func_instr(*_SUB_PREPARSE_LONG_L+ 1 ,_SUB_PREPARSE_STRING_T,qbs_new_txt_len("IMP",3),0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24805);}while(r); -} -S_33623:; -if ((-(*_SUB_PREPARSE_LONG_L1== 0 ))||new_error){ -if(qbevent){evnt(24806);if(r)goto S_33623;} -do{ -*_SUB_PREPARSE_LONG_L1=_SUB_PREPARSE_STRING_T->len+ 1 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24806);}while(r); -} -do{ -qbs_set(_SUB_PREPARSE_STRING_T,qbs_add(qbs_add(qbs_add(qbs_add(qbs_left(_SUB_PREPARSE_STRING_T,*_SUB_PREPARSE_LONG_L- 1 ),qbs_new_txt_len("(",1)),func_mid(_SUB_PREPARSE_STRING_T,*_SUB_PREPARSE_LONG_L,*_SUB_PREPARSE_LONG_L1-*_SUB_PREPARSE_LONG_L,0|1)),qbs_new_txt_len(")",1)),func_mid(_SUB_PREPARSE_STRING_T,*_SUB_PREPARSE_LONG_L+*_SUB_PREPARSE_LONG_L1-*_SUB_PREPARSE_LONG_L,NULL,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24807);}while(r); -do{ -*_SUB_PREPARSE_LONG_L=*_SUB_PREPARSE_LONG_L+ 3 ; -if(!qbevent)break;evnt(24808);}while(r); -} -S_33629:; -dl_continue_3547:; -}while((!(-(*_SUB_PREPARSE_LONG_L== 0 )))&&(!new_error)); -dl_exit_3547:; -if(qbevent){evnt(24811);if(r)goto S_33629;} -do{ -*_SUB_PREPARSE_LONG_UBOUNDPP_TYPEMOD=*_SUB_PREPARSE_LONG_TOTALPREFIXEDPP_TYPEMOD; -if(!qbevent)break;evnt(24813);}while(r); -S_33631:; -if ((-(*__LONG_QB64PREFIX_SET== 1 ))||new_error){ -if(qbevent){evnt(24814);if(r)goto S_33631;} -do{ -*_SUB_PREPARSE_LONG_UBOUNDPP_TYPEMOD=*_SUB_PREPARSE_LONG_TOTALPP_TYPEMOD; -if(!qbevent)break;evnt(24814);}while(r); -} -S_33634:; -fornext_value3550= 1 ; -fornext_finalvalue3550=*_SUB_PREPARSE_LONG_UBOUNDPP_TYPEMOD; -fornext_step3550= 1 ; -if (fornext_step3550<0) fornext_step_negative3550=1; else fornext_step_negative3550=0; -if (new_error) goto fornext_error3550; -goto fornext_entrylabel3550; -while(1){ -fornext_value3550=fornext_step3550+(*_SUB_PREPARSE_LONG_J); -fornext_entrylabel3550: -*_SUB_PREPARSE_LONG_J=fornext_value3550; -if (fornext_step_negative3550){ -if (fornext_value3550fornext_finalvalue3550) break; -} -fornext_error3550:; -if(qbevent){evnt(24815);if(r)goto S_33634;} -do{ -*_SUB_PREPARSE_LONG_L= 0 ; -if(!qbevent)break;evnt(24816);}while(r); -S_33636:; -do{ -if(qbevent){evnt(24817);if(r)goto S_33636;} -do{ -*_SUB_PREPARSE_LONG_L=func_instr(*_SUB_PREPARSE_LONG_L+ 1 ,_SUB_PREPARSE_STRING_T,((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[array_check((*_SUB_PREPARSE_LONG_J)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5])])),0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24818);}while(r); -S_33638:; -if ((-(*_SUB_PREPARSE_LONG_L== 0 ))||new_error){ -if(qbevent){evnt(24819);if(r)goto S_33638;} -do{ -goto dl_exit_3551; -if(!qbevent)break;evnt(24819);}while(r); -} -do{ -*_SUB_PREPARSE_LONG_I= 0 ; -if(!qbevent)break;evnt(24820);}while(r); -do{ -*_SUB_PREPARSE_LONG_L1= 0 ; -if(!qbevent)break;evnt(24820);}while(r); -do{ -*_SUB_PREPARSE_LONG_L2= 0 ; -if(!qbevent)break;evnt(24820);}while(r); -do{ -*_SUB_PREPARSE_LONG_LO=((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[array_check((*_SUB_PREPARSE_LONG_J)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5])]))->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24820);}while(r); -S_33645:; -do{ -if(qbevent){evnt(24821);if(r)goto S_33645;} -S_33646:; -if ((-(((int16*)(__ARRAY_INTEGER_PL[0]))[array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5])]> 10 ))||new_error){ -if(qbevent){evnt(24822);if(r)goto S_33646;} -do{ -*_SUB_PREPARSE_LONG_L2=func__instrrev(*_SUB_PREPARSE_LONG_L,_SUB_PREPARSE_STRING_T,((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])])),0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24823);}while(r); -S_33648:; -if (((-(*_SUB_PREPARSE_LONG_L2> 0 ))&(-(*_SUB_PREPARSE_LONG_L2>*_SUB_PREPARSE_LONG_L1)))||new_error){ -if(qbevent){evnt(24824);if(r)goto S_33648;} -do{ -*_SUB_PREPARSE_LONG_L1=*_SUB_PREPARSE_LONG_L2; -if(!qbevent)break;evnt(24824);}while(r); -} -} -do{ -*_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+*_SUB_PREPARSE_LONG_LO; -if(!qbevent)break;evnt(24826);}while(r); -S_33653:; -dl_continue_3553:; -}while((!(-(*_SUB_PREPARSE_LONG_I>func_ubound(__ARRAY_INTEGER_PL,1,1))))&&(!new_error)); -dl_exit_3553:; -if(qbevent){evnt(24827);if(r)goto S_33653;} -do{ -qbs_set(_SUB_PREPARSE_STRING_L,qbs_left(_SUB_PREPARSE_STRING_T,*_SUB_PREPARSE_LONG_L1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24828);}while(r); -do{ -qbs_set(_SUB_PREPARSE_STRING_M,func_mid(_SUB_PREPARSE_STRING_T,*_SUB_PREPARSE_LONG_L1+ 1 ,*_SUB_PREPARSE_LONG_L-*_SUB_PREPARSE_LONG_L1- 1 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24829);}while(r); -do{ -qbs_set(_SUB_PREPARSE_STRING_R,qbs_add(((qbs*)(((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[array_check((*_SUB_PREPARSE_LONG_J)-__ARRAY_STRING_PP_CONVERTEDMOD[4],__ARRAY_STRING_PP_CONVERTEDMOD[5])])),func_mid(_SUB_PREPARSE_STRING_T,*_SUB_PREPARSE_LONG_L+*_SUB_PREPARSE_LONG_LO,NULL,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24830);}while(r); -S_33657:; -if ((-(*_SUB_PREPARSE_LONG_J> 15 ))||new_error){ -if(qbevent){evnt(24831);if(r)goto S_33657;} -do{ -qbs_set(_SUB_PREPARSE_STRING_T,qbs_add(qbs_add(_SUB_PREPARSE_STRING_L,_SUB_PREPARSE_STRING_M),_SUB_PREPARSE_STRING_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24832);}while(r); -}else{ -do{ -qbs_set(_SUB_PREPARSE_STRING_T,qbs_add(qbs_add(qbs_add(qbs_add(_SUB_PREPARSE_STRING_L,qbs_new_txt_len("(",1)),_SUB_PREPARSE_STRING_M),qbs_new_txt_len(")",1)),_SUB_PREPARSE_STRING_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24835);}while(r); -} -do{ -*_SUB_PREPARSE_LONG_L=*_SUB_PREPARSE_LONG_L+ 2 +((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[array_check((*_SUB_PREPARSE_LONG_J)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5])]))->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24837);}while(r); -dl_continue_3551:; -}while(1); -dl_exit_3551:; -fornext_continue_3549:; -} -fornext_exit_3549:; -do{ -*_SUB_PREPARSE_LONG_L= 0 ; -if(!qbevent)break;evnt(24842);}while(r); -S_33666:; -do{ -if(qbevent){evnt(24843);if(r)goto S_33666;} -do{ -*_SUB_PREPARSE_LONG_L=func_instr(*_SUB_PREPARSE_LONG_L+ 1 ,_SUB_PREPARSE_STRING_T,qbs_new_txt_len("(",1),0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24844);}while(r); -S_33668:; -if (((-(*_SUB_PREPARSE_LONG_L> 0 ))&(-(*_SUB_PREPARSE_LONG_L> 2 )))||new_error){ -if(qbevent){evnt(24845);if(r)goto S_33668;} -do{ -*_SUB_PREPARSE_LONG_GOOD= 0 ; -if(!qbevent)break;evnt(24846);}while(r); -S_33670:; -fornext_value3557= 1 ; -fornext_finalvalue3557=func_ubound(__ARRAY_STRING_ONAME,1,1); -fornext_step3557= 1 ; -if (fornext_step3557<0) fornext_step_negative3557=1; else fornext_step_negative3557=0; -if (new_error) goto fornext_error3557; -goto fornext_entrylabel3557; -while(1){ -fornext_value3557=fornext_step3557+(*_SUB_PREPARSE_LONG_I); -fornext_entrylabel3557: -*_SUB_PREPARSE_LONG_I=fornext_value3557; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative3557){ -if (fornext_value3557fornext_finalvalue3557) break; -} -fornext_error3557:; -if(qbevent){evnt(24847);if(r)goto S_33670;} -do{ -qbs_set(_SUB_PREPARSE_STRING_M,func_mid(_SUB_PREPARSE_STRING_T,*_SUB_PREPARSE_LONG_L-((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])]))->len,((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])]))->len,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24848);}while(r); -S_33672:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_PREPARSE_STRING_M,((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])])))))||new_error){ -if(qbevent){evnt(24849);if(r)goto S_33672;} -do{ -*_SUB_PREPARSE_LONG_GOOD= -1 ; -if(!qbevent)break;evnt(24850);}while(r); -do{ -goto fornext_exit_3556; -if(!qbevent)break;evnt(24850);}while(r); -}else{ -S_33676:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])])), 1 ),qbs_new_txt_len("_",1)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))||new_error){ -if(qbevent){evnt(24852);if(r)goto S_33676;} -do{ -qbs_set(_SUB_PREPARSE_STRING_M,func_mid(_SUB_PREPARSE_STRING_T,*_SUB_PREPARSE_LONG_L-(((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])]))->len- 1 ),((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])]))->len- 1 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24854);}while(r); -S_33678:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_PREPARSE_STRING_M,func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])])), 2 ,NULL,0))))||new_error){ -if(qbevent){evnt(24855);if(r)goto S_33678;} -do{ -*_SUB_PREPARSE_LONG_GOOD= -1 ; -if(!qbevent)break;evnt(24855);}while(r); -do{ -goto fornext_exit_3556; -if(!qbevent)break;evnt(24855);}while(r); -} -} -} -fornext_continue_3556:; -} -fornext_exit_3556:; -S_33685:; -if ((~(*_SUB_PREPARSE_LONG_GOOD))||new_error){ -if(qbevent){evnt(24859);if(r)goto S_33685;} -do{ -qbs_set(_SUB_PREPARSE_STRING_E,qbs_new_txt_len("ERROR - Improper operations before (.",37)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24859);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(24859);}while(r); -} -do{ -*_SUB_PREPARSE_LONG_L=*_SUB_PREPARSE_LONG_L+ 1 ; -if(!qbevent)break;evnt(24860);}while(r); -} -S_33691:; -dl_continue_3555:; -}while((!(-(*_SUB_PREPARSE_LONG_L== 0 )))&&(!new_error)); -dl_exit_3555:; -if(qbevent){evnt(24862);if(r)goto S_33691;} -do{ -*_SUB_PREPARSE_LONG_L= 0 ; -if(!qbevent)break;evnt(24865);}while(r); -S_33693:; -do{ -if(qbevent){evnt(24866);if(r)goto S_33693;} -do{ -*_SUB_PREPARSE_LONG_L=func_instr(*_SUB_PREPARSE_LONG_L+ 1 ,_SUB_PREPARSE_STRING_T,qbs_new_txt_len(")",1),0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24867);}while(r); -S_33695:; -if ((qbs_cleanup(qbs_tmp_base,(-(*_SUB_PREPARSE_LONG_L> 0 ))&(-(*_SUB_PREPARSE_LONG_L<_SUB_PREPARSE_STRING_T->len))))||new_error){ -if(qbevent){evnt(24868);if(r)goto S_33695;} -do{ -*_SUB_PREPARSE_LONG_GOOD= 0 ; -if(!qbevent)break;evnt(24869);}while(r); -S_33697:; -fornext_value3565= 1 ; -fornext_finalvalue3565=func_ubound(__ARRAY_STRING_ONAME,1,1); -fornext_step3565= 1 ; -if (fornext_step3565<0) fornext_step_negative3565=1; else fornext_step_negative3565=0; -if (new_error) goto fornext_error3565; -goto fornext_entrylabel3565; -while(1){ -fornext_value3565=fornext_step3565+(*_SUB_PREPARSE_LONG_I); -fornext_entrylabel3565: -*_SUB_PREPARSE_LONG_I=fornext_value3565; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative3565){ -if (fornext_value3565fornext_finalvalue3565) break; -} -fornext_error3565:; -if(qbevent){evnt(24870);if(r)goto S_33697;} -do{ -qbs_set(_SUB_PREPARSE_STRING_M,func_mid(_SUB_PREPARSE_STRING_T,*_SUB_PREPARSE_LONG_L+ 1 ,((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])]))->len,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24871);}while(r); -S_33699:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_PREPARSE_STRING_M,((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])])))))||new_error){ -if(qbevent){evnt(24872);if(r)goto S_33699;} -do{ -*_SUB_PREPARSE_LONG_GOOD= -1 ; -if(!qbevent)break;evnt(24873);}while(r); -do{ -goto fornext_exit_3564; -if(!qbevent)break;evnt(24873);}while(r); -}else{ -S_33703:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])])), 1 ),qbs_new_txt_len("_",1)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))||new_error){ -if(qbevent){evnt(24875);if(r)goto S_33703;} -do{ -qbs_set(_SUB_PREPARSE_STRING_M,func_mid(_SUB_PREPARSE_STRING_T,*_SUB_PREPARSE_LONG_L+ 1 ,((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])]))->len- 1 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24877);}while(r); -S_33705:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_PREPARSE_STRING_M,func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])])), 2 ,NULL,0))))||new_error){ -if(qbevent){evnt(24878);if(r)goto S_33705;} -do{ -*_SUB_PREPARSE_LONG_GOOD= -1 ; -if(!qbevent)break;evnt(24878);}while(r); -do{ -goto fornext_exit_3564; -if(!qbevent)break;evnt(24878);}while(r); -} -} -} -fornext_continue_3564:; -} -fornext_exit_3564:; -S_33712:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_SUB_PREPARSE_STRING_T,*_SUB_PREPARSE_LONG_L+ 1 , 1 ,0|1),qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(24882);if(r)goto S_33712;} -do{ -*_SUB_PREPARSE_LONG_GOOD= -1 ; -if(!qbevent)break;evnt(24882);}while(r); -} -S_33715:; -if ((~(*_SUB_PREPARSE_LONG_GOOD))||new_error){ -if(qbevent){evnt(24883);if(r)goto S_33715;} -do{ -qbs_set(_SUB_PREPARSE_STRING_E,qbs_new_txt_len("ERROR - Improper operations after ).",36)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24883);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(24883);}while(r); -} -do{ -*_SUB_PREPARSE_LONG_L=*_SUB_PREPARSE_LONG_L+ 1 ; -if(!qbevent)break;evnt(24884);}while(r); -} -S_33721:; -dl_continue_3562:; -}while((!(qbs_cleanup(qbs_tmp_base,(-(*_SUB_PREPARSE_LONG_L== 0 ))|(-(*_SUB_PREPARSE_LONG_L==_SUB_PREPARSE_STRING_T->len)))))&&(!new_error)); -dl_exit_3562:; -if(qbevent){evnt(24886);if(r)goto S_33721;} -do{ -*_SUB_PREPARSE_LONG_L= 0 ; -if(!qbevent)break;evnt(24889);}while(r); -S_33723:; -do{ -if(qbevent){evnt(24890);if(r)goto S_33723;} -do{ -*_SUB_PREPARSE_LONG_L=func_instr(NULL,_SUB_PREPARSE_STRING_T,qbs_new_txt_len("&H",2),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24891);}while(r); -S_33725:; -if ((*_SUB_PREPARSE_LONG_L)||new_error){ -if(qbevent){evnt(24892);if(r)goto S_33725;} -do{ -*__LONG_E=*_SUB_PREPARSE_LONG_L+ 1 ; -if(!qbevent)break;evnt(24893);}while(r); -do{ -*_SUB_PREPARSE_LONG_FINISHED= 0 ; -if(!qbevent)break;evnt(24893);}while(r); -S_33728:; -do{ -if(qbevent){evnt(24894);if(r)goto S_33728;} -do{ -*__LONG_E=*__LONG_E+ 1 ; -if(!qbevent)break;evnt(24895);}while(r); -do{ -qbs_set(_SUB_PREPARSE_STRING_COMP,func_mid(_SUB_PREPARSE_STRING_T,*__LONG_E, 1 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24896);}while(r); -S_33731:; -if(qbevent){evnt(24897);if(r)goto S_33731;} -S_33732:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_greaterorequal(_SUB_PREPARSE_STRING_COMP,qbs_new_txt_len("0",1))&&qbs_lessorequal(_SUB_PREPARSE_STRING_COMP,qbs_new_txt_len("9",1)))||(qbs_greaterorequal(_SUB_PREPARSE_STRING_COMP,qbs_new_txt_len("A",1))&&qbs_lessorequal(_SUB_PREPARSE_STRING_COMP,qbs_new_txt_len("F",1)))))||new_error){ -if(qbevent){evnt(24898);if(r)goto S_33732;} -sc_ec_173_end:; -goto sc_3571_end; -} -do{ -*_SUB_PREPARSE_LONG_GOOD= 0 ; -if(!qbevent)break;evnt(24900);}while(r); -S_33735:; -fornext_value3573= 1 ; -fornext_finalvalue3573=func_ubound(__ARRAY_STRING_ONAME,1,1); -fornext_step3573= 1 ; -if (fornext_step3573<0) fornext_step_negative3573=1; else fornext_step_negative3573=0; -if (new_error) goto fornext_error3573; -goto fornext_entrylabel3573; -while(1){ -fornext_value3573=fornext_step3573+(*_SUB_PREPARSE_LONG_I); -fornext_entrylabel3573: -*_SUB_PREPARSE_LONG_I=fornext_value3573; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative3573){ -if (fornext_value3573fornext_finalvalue3573) break; -} -fornext_error3573:; -if(qbevent){evnt(24901);if(r)goto S_33735;} -S_33736:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(func_mid(_SUB_PREPARSE_STRING_T,*__LONG_E,((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])]))->len,0|1),((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])]))))&(-(((int16*)(__ARRAY_INTEGER_PL[0]))[array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5])]> 1 ))&(-(((int16*)(__ARRAY_INTEGER_PL[0]))[array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5])]<= 250 ))))||new_error){ -if(qbevent){evnt(24902);if(r)goto S_33736;} -do{ -*_SUB_PREPARSE_LONG_GOOD= -1 ; -if(!qbevent)break;evnt(24902);}while(r); -do{ -goto fornext_exit_3572; -if(!qbevent)break;evnt(24902);}while(r); -} -fornext_continue_3572:; -} -fornext_exit_3572:; -S_33741:; -if ((~(*_SUB_PREPARSE_LONG_GOOD))||new_error){ -if(qbevent){evnt(24904);if(r)goto S_33741;} -do{ -qbs_set(_SUB_PREPARSE_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("ERROR - Improper &H value. (",28),_SUB_PREPARSE_STRING_COMP),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24904);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(24904);}while(r); -} -do{ -*__LONG_E=*__LONG_E- 1 ; -if(!qbevent)break;evnt(24905);}while(r); -do{ -*_SUB_PREPARSE_LONG_FINISHED= -1 ; -if(!qbevent)break;evnt(24906);}while(r); -sc_3571_end:; -S_33748:; -dl_continue_3570:; -}while((!(qbs_cleanup(qbs_tmp_base,*_SUB_PREPARSE_LONG_FINISHED|(-(*__LONG_E==_SUB_PREPARSE_STRING_T->len)))))&&(!new_error)); -dl_exit_3570:; -if(qbevent){evnt(24908);if(r)goto S_33748;} -do{ -qbs_set(_SUB_PREPARSE_STRING_T,qbs_add(qbs_add(qbs_left(_SUB_PREPARSE_STRING_T,*_SUB_PREPARSE_LONG_L- 1 ),qbs_ltrim(qbs_rtrim(qbs_str((long double)(func_val(func_mid(_SUB_PREPARSE_STRING_T,*_SUB_PREPARSE_LONG_L,*__LONG_E-*_SUB_PREPARSE_LONG_L+ 1 ,0|1))))))),func_mid(_SUB_PREPARSE_STRING_T,*__LONG_E+ 1 ,NULL,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24909);}while(r); -} -S_33751:; -dl_continue_3569:; -}while((!(-(*_SUB_PREPARSE_LONG_L== 0 )))&&(!new_error)); -dl_exit_3569:; -if(qbevent){evnt(24911);if(r)goto S_33751;} -do{ -*_SUB_PREPARSE_LONG_L= 0 ; -if(!qbevent)break;evnt(24914);}while(r); -S_33753:; -do{ -if(qbevent){evnt(24915);if(r)goto S_33753;} -do{ -*_SUB_PREPARSE_LONG_L=func_instr(NULL,_SUB_PREPARSE_STRING_T,qbs_new_txt_len("&B",2),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24916);}while(r); -S_33755:; -if ((*_SUB_PREPARSE_LONG_L)||new_error){ -if(qbevent){evnt(24917);if(r)goto S_33755;} -do{ -*__LONG_E=*_SUB_PREPARSE_LONG_L+ 1 ; -if(!qbevent)break;evnt(24918);}while(r); -do{ -*_SUB_PREPARSE_LONG_FINISHED= 0 ; -if(!qbevent)break;evnt(24918);}while(r); -S_33758:; -do{ -if(qbevent){evnt(24919);if(r)goto S_33758;} -do{ -*__LONG_E=*__LONG_E+ 1 ; -if(!qbevent)break;evnt(24920);}while(r); -do{ -qbs_set(_SUB_PREPARSE_STRING_COMP,func_mid(_SUB_PREPARSE_STRING_T,*__LONG_E, 1 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24921);}while(r); -S_33761:; -if(qbevent){evnt(24922);if(r)goto S_33761;} -S_33762:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_PREPARSE_STRING_COMP,qbs_new_txt_len("0",1))||qbs_equal(_SUB_PREPARSE_STRING_COMP,qbs_new_txt_len("1",1))))||new_error){ -if(qbevent){evnt(24923);if(r)goto S_33762;} -sc_ec_174_end:; -goto sc_3578_end; -} -do{ -*_SUB_PREPARSE_LONG_GOOD= 0 ; -if(!qbevent)break;evnt(24925);}while(r); -S_33765:; -fornext_value3580= 1 ; -fornext_finalvalue3580=func_ubound(__ARRAY_STRING_ONAME,1,1); -fornext_step3580= 1 ; -if (fornext_step3580<0) fornext_step_negative3580=1; else fornext_step_negative3580=0; -if (new_error) goto fornext_error3580; -goto fornext_entrylabel3580; -while(1){ -fornext_value3580=fornext_step3580+(*_SUB_PREPARSE_LONG_I); -fornext_entrylabel3580: -*_SUB_PREPARSE_LONG_I=fornext_value3580; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative3580){ -if (fornext_value3580fornext_finalvalue3580) break; -} -fornext_error3580:; -if(qbevent){evnt(24926);if(r)goto S_33765;} -S_33766:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(func_mid(_SUB_PREPARSE_STRING_T,*__LONG_E,((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])]))->len,0|1),((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])]))))&(-(((int16*)(__ARRAY_INTEGER_PL[0]))[array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5])]> 1 ))&(-(((int16*)(__ARRAY_INTEGER_PL[0]))[array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5])]<= 250 ))))||new_error){ -if(qbevent){evnt(24927);if(r)goto S_33766;} -do{ -*_SUB_PREPARSE_LONG_GOOD= -1 ; -if(!qbevent)break;evnt(24927);}while(r); -do{ -goto fornext_exit_3579; -if(!qbevent)break;evnt(24927);}while(r); -} -fornext_continue_3579:; -} -fornext_exit_3579:; -S_33771:; -if ((~(*_SUB_PREPARSE_LONG_GOOD))||new_error){ -if(qbevent){evnt(24929);if(r)goto S_33771;} -do{ -qbs_set(_SUB_PREPARSE_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("ERROR - Improper &B value. (",28),_SUB_PREPARSE_STRING_COMP),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24929);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(24929);}while(r); -} -do{ -*__LONG_E=*__LONG_E- 1 ; -if(!qbevent)break;evnt(24930);}while(r); -do{ -*_SUB_PREPARSE_LONG_FINISHED= -1 ; -if(!qbevent)break;evnt(24931);}while(r); -sc_3578_end:; -S_33778:; -dl_continue_3577:; -}while((!(qbs_cleanup(qbs_tmp_base,*_SUB_PREPARSE_LONG_FINISHED|(-(*__LONG_E==_SUB_PREPARSE_STRING_T->len)))))&&(!new_error)); -dl_exit_3577:; -if(qbevent){evnt(24933);if(r)goto S_33778;} -do{ -qbs_set(_SUB_PREPARSE_STRING_BIN,func_mid(_SUB_PREPARSE_STRING_T,*_SUB_PREPARSE_LONG_L+ 2 ,*__LONG_E-*_SUB_PREPARSE_LONG_L- 1 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24934);}while(r); -S_33780:; -fornext_value3584= 1 ; -fornext_finalvalue3584=_SUB_PREPARSE_STRING_BIN->len; -fornext_step3584= 1 ; -if (fornext_step3584<0) fornext_step_negative3584=1; else fornext_step_negative3584=0; -if (new_error) goto fornext_error3584; -goto fornext_entrylabel3584; -while(1){ -fornext_value3584=fornext_step3584+(*_SUB_PREPARSE_LONG_I); -fornext_entrylabel3584: -*_SUB_PREPARSE_LONG_I=fornext_value3584; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative3584){ -if (fornext_value3584fornext_finalvalue3584) break; -} -fornext_error3584:; -if(qbevent){evnt(24935);if(r)goto S_33780;} -S_33781:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_SUB_PREPARSE_STRING_BIN,*_SUB_PREPARSE_LONG_I, 1 ,0|1),qbs_new_txt_len("1",1))))||new_error){ -if(qbevent){evnt(24936);if(r)goto S_33781;} -do{ -*_SUB_PREPARSE_FLOAT_F=*_SUB_PREPARSE_FLOAT_F+(pow2( 2 ,(_SUB_PREPARSE_STRING_BIN->len-*_SUB_PREPARSE_LONG_I))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24936);}while(r); -} -fornext_continue_3583:; -} -fornext_exit_3583:; -do{ -qbs_set(_SUB_PREPARSE_STRING_T,qbs_add(qbs_add(qbs_left(_SUB_PREPARSE_STRING_T,*_SUB_PREPARSE_LONG_L- 1 ),qbs_ltrim(qbs_rtrim(qbs_str((long double)(*_SUB_PREPARSE_FLOAT_F))))),func_mid(_SUB_PREPARSE_STRING_T,*__LONG_E+ 1 ,NULL,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24938);}while(r); -} -S_33787:; -dl_continue_3576:; -}while((!(-(*_SUB_PREPARSE_LONG_L== 0 )))&&(!new_error)); -dl_exit_3576:; -if(qbevent){evnt(24940);if(r)goto S_33787;} -do{ -SUB_VERIFYSTRING(_SUB_PREPARSE_STRING_T); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24944);}while(r); -do{ -qbs_set(_SUB_PREPARSE_STRING_E,_SUB_PREPARSE_STRING_T); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24945);}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free73.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -void SUB_VERIFYSTRING(qbs*_SUB_VERIFYSTRING_STRING_T){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data74.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -*_SUB_VERIFYSTRING_LONG_J= 1 ; -if(!qbevent)break;evnt(24952);}while(r); -S_33791:; -do{ -if(qbevent){evnt(24953);if(r)goto S_33791;} -do{ -qbs_set(_SUB_VERIFYSTRING_STRING_COMP,func_mid(_SUB_VERIFYSTRING_STRING_T,*_SUB_VERIFYSTRING_LONG_J, 1 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24954);}while(r); -S_33793:; -if(qbevent){evnt(24955);if(r)goto S_33793;} -S_33794:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_greaterorequal(_SUB_VERIFYSTRING_STRING_COMP,qbs_new_txt_len("0",1))&&qbs_lessorequal(_SUB_VERIFYSTRING_STRING_COMP,qbs_new_txt_len("9",1)))||qbs_equal(_SUB_VERIFYSTRING_STRING_COMP,qbs_new_txt_len(".",1))||qbs_equal(_SUB_VERIFYSTRING_STRING_COMP,qbs_new_txt_len("(",1))||qbs_equal(_SUB_VERIFYSTRING_STRING_COMP,qbs_new_txt_len(")",1))||qbs_equal(_SUB_VERIFYSTRING_STRING_COMP,qbs_new_txt_len(",",1))))||new_error){ -if(qbevent){evnt(24956);if(r)goto S_33794;} -do{ -*_SUB_VERIFYSTRING_LONG_J=*_SUB_VERIFYSTRING_LONG_J+ 1 ; -if(!qbevent)break;evnt(24956);}while(r); -sc_ec_175_end:; -goto sc_3589_end; -} -do{ -*_SUB_VERIFYSTRING_LONG_GOOD= 0 ; -if(!qbevent)break;evnt(24958);}while(r); -do{ -*_SUB_VERIFYSTRING_LONG_EXTRACHAR= 0 ; -if(!qbevent)break;evnt(24959);}while(r); -S_33799:; -fornext_value3591= 1 ; -fornext_finalvalue3591=func_ubound(__ARRAY_STRING_ONAME,1,1); -fornext_step3591= 1 ; -if (fornext_step3591<0) fornext_step_negative3591=1; else fornext_step_negative3591=0; -if (new_error) goto fornext_error3591; -goto fornext_entrylabel3591; -while(1){ -fornext_value3591=fornext_step3591+(*_SUB_VERIFYSTRING_LONG_I); -fornext_entrylabel3591: -*_SUB_VERIFYSTRING_LONG_I=fornext_value3591; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative3591){ -if (fornext_value3591fornext_finalvalue3591) break; -} -fornext_error3591:; -if(qbevent){evnt(24960);if(r)goto S_33799;} -S_33800:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_SUB_VERIFYSTRING_STRING_T,*_SUB_VERIFYSTRING_LONG_J,((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_VERIFYSTRING_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])]))->len,0|1),((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_VERIFYSTRING_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])])))))||new_error){ -if(qbevent){evnt(24961);if(r)goto S_33800;} -do{ -*_SUB_VERIFYSTRING_LONG_GOOD= -1 ; -if(!qbevent)break;evnt(24962);}while(r); -do{ -goto fornext_exit_3590; -if(!qbevent)break;evnt(24962);}while(r); -}else{ -S_33804:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_VERIFYSTRING_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])])), 1 ),qbs_new_txt_len("_",1)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))||new_error){ -if(qbevent){evnt(24964);if(r)goto S_33804;} -S_33805:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_SUB_VERIFYSTRING_STRING_T,*_SUB_VERIFYSTRING_LONG_J,((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_VERIFYSTRING_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])]))->len- 1 ,0|1),func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_VERIFYSTRING_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])])), 2 ,NULL,0))))||new_error){ -if(qbevent){evnt(24966);if(r)goto S_33805;} -do{ -*_SUB_VERIFYSTRING_LONG_GOOD= -1 ; -if(!qbevent)break;evnt(24967);}while(r); -do{ -*_SUB_VERIFYSTRING_LONG_EXTRACHAR= 1 ; -if(!qbevent)break;evnt(24967);}while(r); -do{ -goto fornext_exit_3590; -if(!qbevent)break;evnt(24967);}while(r); -} -} -} -fornext_continue_3590:; -} -fornext_exit_3590:; -S_33813:; -if ((~(*_SUB_VERIFYSTRING_LONG_GOOD))||new_error){ -if(qbevent){evnt(24972);if(r)goto S_33813;} -do{ -qbs_set(_SUB_VERIFYSTRING_STRING_T,qbs_add(qbs_add(qbs_new_txt_len("ERROR - Bad Operational value. (",32),_SUB_VERIFYSTRING_STRING_COMP),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24972);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(24972);}while(r); -} -do{ -*_SUB_VERIFYSTRING_LONG_J=*_SUB_VERIFYSTRING_LONG_J+(((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_VERIFYSTRING_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])]))->len-*_SUB_VERIFYSTRING_LONG_EXTRACHAR); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24973);}while(r); -sc_3589_end:; -S_33819:; -dl_continue_3588:; -}while((!(qbs_cleanup(qbs_tmp_base,-(*_SUB_VERIFYSTRING_LONG_J>_SUB_VERIFYSTRING_STRING_T->len))))&&(!new_error)); -dl_exit_3588:; -if(qbevent){evnt(24975);if(r)goto S_33819;} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free74.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -qbs* FUNC_N2S(qbs*_FUNC_N2S_STRING_EXP){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data75.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -qbs_set(_FUNC_N2S_STRING_T,qbs_ltrim(qbs_rtrim(_FUNC_N2S_STRING_EXP))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24980);}while(r); -S_33821:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(_FUNC_N2S_STRING_T, 1 ),qbs_new_txt_len("-",1)))|(qbs_equal(qbs_left(_FUNC_N2S_STRING_T, 1 ),qbs_new_txt_len("N",1)))))||new_error){ -if(qbevent){evnt(24981);if(r)goto S_33821;} -do{ -qbs_set(_FUNC_N2S_STRING_SIGN,qbs_new_txt_len("-",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24981);}while(r); -do{ -qbs_set(_FUNC_N2S_STRING_T,func_mid(_FUNC_N2S_STRING_T, 2 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24981);}while(r); -} -do{ -*_FUNC_N2S_LONG_DP=func_instr(NULL,_FUNC_N2S_STRING_T,qbs_new_txt_len("D+",2),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24983);}while(r); -do{ -*_FUNC_N2S_LONG_DM=func_instr(NULL,_FUNC_N2S_STRING_T,qbs_new_txt_len("D-",2),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24983);}while(r); -do{ -*_FUNC_N2S_LONG_EP=func_instr(NULL,_FUNC_N2S_STRING_T,qbs_new_txt_len("E+",2),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24984);}while(r); -do{ -*_FUNC_N2S_LONG_EM=func_instr(NULL,_FUNC_N2S_STRING_T,qbs_new_txt_len("E-",2),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24984);}while(r); -do{ -*_FUNC_N2S_LONG_CHECK1=func_sgn((int32)(*_FUNC_N2S_LONG_DP))+func_sgn((int32)(*_FUNC_N2S_LONG_DM))+func_sgn((int32)(*_FUNC_N2S_LONG_EP))+func_sgn((int32)(*_FUNC_N2S_LONG_EM)); -if(!qbevent)break;evnt(24985);}while(r); -S_33830:; -if (((-(*_FUNC_N2S_LONG_CHECK1< 1 ))|(-(*_FUNC_N2S_LONG_CHECK1> 1 )))||new_error){ -if(qbevent){evnt(24986);if(r)goto S_33830;} -do{ -qbs_set(_FUNC_N2S_STRING_N2S,_FUNC_N2S_STRING_EXP); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24986);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(24986);}while(r); -} -S_33834:; -if(qbevent){evnt(24988);if(r)goto S_33834;} -S_33835:; -if (((*_FUNC_N2S_LONG_L<(*_FUNC_N2S_LONG_DP)))||new_error){ -if(qbevent){evnt(24989);if(r)goto S_33835;} -do{ -*_FUNC_N2S_LONG_L=*_FUNC_N2S_LONG_DP; -if(!qbevent)break;evnt(24989);}while(r); -sc_ec_176_end:; -goto sc_3597_end; -} -S_33837:; -if (((*_FUNC_N2S_LONG_L<(*_FUNC_N2S_LONG_DM)))||new_error){ -if(qbevent){evnt(24990);if(r)goto S_33837;} -do{ -*_FUNC_N2S_LONG_L=*_FUNC_N2S_LONG_DM; -if(!qbevent)break;evnt(24990);}while(r); -sc_ec_177_end:; -goto sc_3597_end; -} -S_33839:; -if (((*_FUNC_N2S_LONG_L<(*_FUNC_N2S_LONG_EP)))||new_error){ -if(qbevent){evnt(24991);if(r)goto S_33839;} -do{ -*_FUNC_N2S_LONG_L=*_FUNC_N2S_LONG_EP; -if(!qbevent)break;evnt(24991);}while(r); -sc_ec_178_end:; -goto sc_3597_end; -} -S_33841:; -if (((*_FUNC_N2S_LONG_L<(*_FUNC_N2S_LONG_EM)))||new_error){ -if(qbevent){evnt(24992);if(r)goto S_33841;} -do{ -*_FUNC_N2S_LONG_L=*_FUNC_N2S_LONG_EM; -if(!qbevent)break;evnt(24992);}while(r); -sc_ec_179_end:; -goto sc_3597_end; -} -sc_3597_end:; -do{ -qbs_set(_FUNC_N2S_STRING_L,qbs_left(_FUNC_N2S_STRING_T,*_FUNC_N2S_LONG_L- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24995);}while(r); -do{ -qbs_set(_FUNC_N2S_STRING_R,func_mid(_FUNC_N2S_STRING_T,*_FUNC_N2S_LONG_L+ 1 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24996);}while(r); -do{ -*_FUNC_N2S_INTEGER64_R=qbr(func_val(_FUNC_N2S_STRING_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(24996);}while(r); -S_33847:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_N2S_STRING_L,qbs_new_txt_len(".",1),0)))||new_error){ -if(qbevent){evnt(24999);if(r)goto S_33847;} -S_33848:; -if ((-(*_FUNC_N2S_INTEGER64_R> 0 ))||new_error){ -if(qbevent){evnt(25000);if(r)goto S_33848;} -do{ -*_FUNC_N2S_INTEGER64_R=*_FUNC_N2S_INTEGER64_R-_FUNC_N2S_STRING_L->len+ 2 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25001);}while(r); -}else{ -do{ -*_FUNC_N2S_INTEGER64_R=*_FUNC_N2S_INTEGER64_R+ 1 ; -if(!qbevent)break;evnt(25003);}while(r); -} -do{ -qbs_set(_FUNC_N2S_STRING_L,qbs_add(qbs_left(_FUNC_N2S_STRING_L, 1 ),func_mid(_FUNC_N2S_STRING_L, 3 ,NULL,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25005);}while(r); -} -S_33855:; -if(qbevent){evnt(25008);if(r)goto S_33855;} -S_33856:; -if (((*_FUNC_N2S_INTEGER64_R==( 0 )))||new_error){ -if(qbevent){evnt(25009);if(r)goto S_33856;} -sc_ec_180_end:; -goto sc_3599_end; -} -S_33857:; -if (((*_FUNC_N2S_INTEGER64_R<( 0 )))||new_error){ -if(qbevent){evnt(25011);if(r)goto S_33857;} -S_33858:; -fornext_value3601= 1 ; -fornext_finalvalue3601=-(*_FUNC_N2S_INTEGER64_R); -fornext_step3601= 1 ; -if (fornext_step3601<0) fornext_step_negative3601=1; else fornext_step_negative3601=0; -if (new_error) goto fornext_error3601; -goto fornext_entrylabel3601; -while(1){ -fornext_value3601=fornext_step3601+(*_FUNC_N2S_LONG_I); -fornext_entrylabel3601: -*_FUNC_N2S_LONG_I=fornext_value3601; -if (fornext_step_negative3601){ -if (fornext_value3601fornext_finalvalue3601) break; -} -fornext_error3601:; -if(qbevent){evnt(25012);if(r)goto S_33858;} -do{ -qbs_set(_FUNC_N2S_STRING_L,qbs_add(qbs_new_txt_len("0",1),_FUNC_N2S_STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25013);}while(r); -fornext_continue_3600:; -} -fornext_exit_3600:; -do{ -qbs_set(_FUNC_N2S_STRING_L,qbs_add(qbs_new_txt_len("0.",2),_FUNC_N2S_STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25015);}while(r); -sc_ec_181_end:; -goto sc_3599_end; -} -S_33863:; -fornext_value3603= 1 ; -fornext_finalvalue3603=*_FUNC_N2S_INTEGER64_R; -fornext_step3603= 1 ; -if (fornext_step3603<0) fornext_step_negative3603=1; else fornext_step_negative3603=0; -if (new_error) goto fornext_error3603; -goto fornext_entrylabel3603; -while(1){ -fornext_value3603=fornext_step3603+(*_FUNC_N2S_LONG_I); -fornext_entrylabel3603: -*_FUNC_N2S_LONG_I=fornext_value3603; -if (fornext_step_negative3603){ -if (fornext_value3603fornext_finalvalue3603) break; -} -fornext_error3603:; -if(qbevent){evnt(25017);if(r)goto S_33863;} -do{ -qbs_set(_FUNC_N2S_STRING_L,qbs_add(_FUNC_N2S_STRING_L,qbs_new_txt_len("0",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25018);}while(r); -fornext_continue_3602:; -} -fornext_exit_3602:; -sc_3599_end:; -do{ -qbs_set(_FUNC_N2S_STRING_N2S,qbs_add(_FUNC_N2S_STRING_SIGN,_FUNC_N2S_STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25022);}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free75.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_N2S_STRING_N2S);return _FUNC_N2S_STRING_N2S; -} -qbs* FUNC_QUOTEDFILENAME(qbs*_FUNC_QUOTEDFILENAME_STRING_F){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data76.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -S_33868:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ -if(qbevent){evnt(25028);if(r)goto S_33868;} -do{ -qbs_set(_FUNC_QUOTEDFILENAME_STRING_QUOTEDFILENAME,qbs_add(qbs_add(func_chr( 34 ),_FUNC_QUOTEDFILENAME_STRING_F),func_chr( 34 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25029);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25030);}while(r); -} -S_33872:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ -if(qbevent){evnt(25033);if(r)goto S_33872;} -do{ -qbs_set(_FUNC_QUOTEDFILENAME_STRING_QUOTEDFILENAME,qbs_add(qbs_add(qbs_new_txt_len("'",1),_FUNC_QUOTEDFILENAME_STRING_F),qbs_new_txt_len("'",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25034);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25035);}while(r); -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free76.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_QUOTEDFILENAME_STRING_QUOTEDFILENAME);return _FUNC_QUOTEDFILENAME_STRING_QUOTEDFILENAME; -} -int32 FUNC_HASHVALUE(qbs*_FUNC_HASHVALUE_STRING_A){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data77.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -*_FUNC_HASHVALUE_LONG_L=_FUNC_HASHVALUE_STRING_A->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25043);}while(r); -S_33877:; -if ((-(*_FUNC_HASHVALUE_LONG_L== 0 ))||new_error){ -if(qbevent){evnt(25044);if(r)goto S_33877;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25044);}while(r); -} -do{ -*_FUNC_HASHVALUE_LONG_A=qbs_asc(_FUNC_HASHVALUE_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25045);}while(r); -S_33881:; -if ((-(*_FUNC_HASHVALUE_LONG_A!= 95 ))||new_error){ -if(qbevent){evnt(25046);if(r)goto S_33881;} -S_33882:; -if(qbevent){evnt(25047);if(r)goto S_33882;} -S_33883:; -if (((*_FUNC_HASHVALUE_LONG_L==( 1 )))||new_error){ -if(qbevent){evnt(25048);if(r)goto S_33883;} -do{ -*_FUNC_HASHVALUE_LONG_HASHVALUE=((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[array_check((*_FUNC_HASHVALUE_LONG_A)-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5])]+ 1048576 ; -if(!qbevent)break;evnt(25049);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25050);}while(r); -sc_ec_182_end:; -goto sc_3607_end; -} -S_33886:; -if (((*_FUNC_HASHVALUE_LONG_L==( 2 )))||new_error){ -if(qbevent){evnt(25051);if(r)goto S_33886;} -do{ -*_FUNC_HASHVALUE_LONG_HASHVALUE=((int16*)(__ARRAY_INTEGER_HASH2CHAR[0]))[array_check((string2i(_FUNC_HASHVALUE_STRING_A))-__ARRAY_INTEGER_HASH2CHAR[4],__ARRAY_INTEGER_HASH2CHAR[5])]+ 2097152 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25052);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25053);}while(r); -sc_ec_183_end:; -goto sc_3607_end; -} -S_33889:; -if (((*_FUNC_HASHVALUE_LONG_L==( 3 )))||new_error){ -if(qbevent){evnt(25054);if(r)goto S_33889;} -do{ -*_FUNC_HASHVALUE_LONG_HASHVALUE=((int16*)(__ARRAY_INTEGER_HASH2CHAR[0]))[array_check((string2i(_FUNC_HASHVALUE_STRING_A))-__ARRAY_INTEGER_HASH2CHAR[4],__ARRAY_INTEGER_HASH2CHAR[5])]+(((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[array_check((qbs_asc(_FUNC_HASHVALUE_STRING_A, 3 ))-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5])]* 1024 )+( 3145728 ); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25055);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25056);}while(r); -sc_ec_184_end:; -goto sc_3607_end; -} -do{ -*_FUNC_HASHVALUE_LONG_HASHVALUE=((int16*)(__ARRAY_INTEGER_HASH2CHAR[0]))[array_check((string2i(_FUNC_HASHVALUE_STRING_A))-__ARRAY_INTEGER_HASH2CHAR[4],__ARRAY_INTEGER_HASH2CHAR[5])]+(((int16*)(__ARRAY_INTEGER_HASH2CHAR[0]))[array_check(((qbs_asc(_FUNC_HASHVALUE_STRING_A,*_FUNC_HASHVALUE_LONG_L))+(qbs_asc(_FUNC_HASHVALUE_STRING_A,*_FUNC_HASHVALUE_LONG_L- 1 )* 256 ))-__ARRAY_INTEGER_HASH2CHAR[4],__ARRAY_INTEGER_HASH2CHAR[5])]* 1024 )+((*_FUNC_HASHVALUE_LONG_L& 7 )* 1048576 ); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25058);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25059);}while(r); -sc_3607_end:; -}else{ -S_33897:; -if(qbevent){evnt(25062);if(r)goto S_33897;} -S_33898:; -if (((*_FUNC_HASHVALUE_LONG_L==( 1 )))||new_error){ -if(qbevent){evnt(25063);if(r)goto S_33898;} -do{ -*_FUNC_HASHVALUE_LONG_HASHVALUE=( 1048576 + 8388608 ); -if(!qbevent)break;evnt(25064);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25064);}while(r); -sc_ec_185_end:; -goto sc_3608_end; -} -S_33901:; -if (((*_FUNC_HASHVALUE_LONG_L==( 2 )))||new_error){ -if(qbevent){evnt(25065);if(r)goto S_33901;} -do{ -*_FUNC_HASHVALUE_LONG_HASHVALUE=((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[array_check((qbs_asc(_FUNC_HASHVALUE_STRING_A, 2 ))-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5])]+( 2097152 + 8388608 ); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25066);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25067);}while(r); -sc_ec_186_end:; -goto sc_3608_end; -} -S_33904:; -if (((*_FUNC_HASHVALUE_LONG_L==( 3 )))||new_error){ -if(qbevent){evnt(25068);if(r)goto S_33904;} -do{ -*_FUNC_HASHVALUE_LONG_HASHVALUE=((int16*)(__ARRAY_INTEGER_HASH2CHAR[0]))[array_check(((qbs_asc(_FUNC_HASHVALUE_STRING_A, 2 ))+(qbs_asc(_FUNC_HASHVALUE_STRING_A, 3 )* 256 ))-__ARRAY_INTEGER_HASH2CHAR[4],__ARRAY_INTEGER_HASH2CHAR[5])]+( 3145728 + 8388608 ); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25069);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25070);}while(r); -sc_ec_187_end:; -goto sc_3608_end; -} -S_33907:; -if (((*_FUNC_HASHVALUE_LONG_L==( 4 )))||new_error){ -if(qbevent){evnt(25071);if(r)goto S_33907;} -do{ -*_FUNC_HASHVALUE_LONG_HASHVALUE=((int16*)(__ARRAY_INTEGER_HASH2CHAR[0]))[array_check(((string2l(_FUNC_HASHVALUE_STRING_A)& 16776960 )/ 256 )-__ARRAY_INTEGER_HASH2CHAR[4],__ARRAY_INTEGER_HASH2CHAR[5])]+(((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[array_check((qbs_asc(_FUNC_HASHVALUE_STRING_A, 4 ))-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5])]* 1024 )+(( 4194304 + 8388608 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25072);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25073);}while(r); -sc_ec_188_end:; -goto sc_3608_end; -} -do{ -*_FUNC_HASHVALUE_LONG_HASHVALUE=((int16*)(__ARRAY_INTEGER_HASH2CHAR[0]))[array_check(((string2l(_FUNC_HASHVALUE_STRING_A)& 16776960 )/ 256 )-__ARRAY_INTEGER_HASH2CHAR[4],__ARRAY_INTEGER_HASH2CHAR[5])]+(((int16*)(__ARRAY_INTEGER_HASH2CHAR[0]))[array_check(((qbs_asc(_FUNC_HASHVALUE_STRING_A,*_FUNC_HASHVALUE_LONG_L))+(qbs_asc(_FUNC_HASHVALUE_STRING_A,*_FUNC_HASHVALUE_LONG_L- 1 )* 256 ))-__ARRAY_INTEGER_HASH2CHAR[4],__ARRAY_INTEGER_HASH2CHAR[5])]* 1024 )+((*_FUNC_HASHVALUE_LONG_L& 7 )* 1048576 )+( 8388608 ); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25075);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25076);}while(r); -sc_3608_end:; -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free77.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -return *_FUNC_HASHVALUE_LONG_HASHVALUE; -} -void SUB_HASHADD(qbs*_SUB_HASHADD_STRING_A,int32*_SUB_HASHADD_LONG_FLAGS,int32*_SUB_HASHADD_LONG_REFERENCE){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data78.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -S_33915:; -if ((-(*__LONG_HASHLISTFREELAST> 0 ))||new_error){ -if(qbevent){evnt(25084);if(r)goto S_33915;} -do{ -*_SUB_HASHADD_LONG_I=((int32*)(__ARRAY_LONG_HASHLISTFREE[0]))[array_check((*__LONG_HASHLISTFREELAST)-__ARRAY_LONG_HASHLISTFREE[4],__ARRAY_LONG_HASHLISTFREE[5])]; -if(!qbevent)break;evnt(25086);}while(r); -do{ -*__LONG_HASHLISTFREELAST=*__LONG_HASHLISTFREELAST- 1 ; -if(!qbevent)break;evnt(25087);}while(r); -}else{ -S_33919:; -if ((-(*__LONG_HASHLISTNEXT>*__LONG_HASHLISTSIZE))||new_error){ -if(qbevent){evnt(25089);if(r)goto S_33919;} -do{ -*__LONG_HASHLISTSIZE=*__LONG_HASHLISTSIZE* 2 ; -if(!qbevent)break;evnt(25091);}while(r); -do{ +} +if(!qbevent)break;evnt(24734);}while(r); +} +do{ +qbs_set(_SUB_PREPARSE_STRING_T,_SUB_PREPARSE_STRING_E); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24736);}while(r); +do{ +qbs_set(_SUB_PREPARSE_STRING_T,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24739);}while(r); +S_33537:; +fornext_value3534= 1 ; +fornext_finalvalue3534=_SUB_PREPARSE_STRING_E->len; +fornext_step3534= 1 ; +if (fornext_step3534<0) fornext_step_negative3534=1; else fornext_step_negative3534=0; +if (new_error) goto fornext_error3534; +goto fornext_entrylabel3534; +while(1){ +fornext_value3534=fornext_step3534+(*_SUB_PREPARSE_LONG_I); +fornext_entrylabel3534: +*_SUB_PREPARSE_LONG_I=fornext_value3534; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative3534){ +if (fornext_value3534fornext_finalvalue3534) break; +} +fornext_error3534:; +if(qbevent){evnt(24740);if(r)goto S_33537;} +S_33538:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(func_mid(_SUB_PREPARSE_STRING_E,*_SUB_PREPARSE_LONG_I, 1 ,0|1),qbs_new_txt_len(" ",1))))||new_error){ +if(qbevent){evnt(24741);if(r)goto S_33538;} +do{ +qbs_set(_SUB_PREPARSE_STRING_T,qbs_add(_SUB_PREPARSE_STRING_T,func_mid(_SUB_PREPARSE_STRING_E,*_SUB_PREPARSE_LONG_I, 1 ,0|1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24741);}while(r); +} +fornext_continue_3533:; +} +fornext_exit_3533:; +do{ +qbs_set(_SUB_PREPARSE_STRING_T,qbs_ucase(_SUB_PREPARSE_STRING_T)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24744);}while(r); +S_33543:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_PREPARSE_STRING_T,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(24745);if(r)goto S_33543;} +do{ +qbs_set(_SUB_PREPARSE_STRING_E,qbs_new_txt_len("ERROR -- NULL string; nothing to evaluate",41)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24745);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(24745);}while(r); +} +do{ +*_SUB_PREPARSE_LONG_L= 0 ; +if(!qbevent)break;evnt(24748);}while(r); +S_33548:; +do{ +if(qbevent){evnt(24749);if(r)goto S_33548;} +do{ +*_SUB_PREPARSE_LONG_L=func_instr(*_SUB_PREPARSE_LONG_L+ 1 ,_SUB_PREPARSE_STRING_T,qbs_new_txt_len("(",1),0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24750);}while(r); +S_33550:; +if ((*_SUB_PREPARSE_LONG_L)||new_error){ +if(qbevent){evnt(24750);if(r)goto S_33550;} +do{ +*_SUB_PREPARSE_LONG_C=*_SUB_PREPARSE_LONG_C+ 1 ; +if(!qbevent)break;evnt(24750);}while(r); +} +S_33553:; +dl_continue_3536:; +}while((!(-(*_SUB_PREPARSE_LONG_L== 0 )))&&(!new_error)); +dl_exit_3536:; +if(qbevent){evnt(24751);if(r)goto S_33553;} +do{ +*_SUB_PREPARSE_LONG_L= 0 ; +if(!qbevent)break;evnt(24752);}while(r); +S_33555:; +do{ +if(qbevent){evnt(24753);if(r)goto S_33555;} +do{ +*_SUB_PREPARSE_LONG_L=func_instr(*_SUB_PREPARSE_LONG_L+ 1 ,_SUB_PREPARSE_STRING_T,qbs_new_txt_len(")",1),0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24754);}while(r); +S_33557:; +if ((*_SUB_PREPARSE_LONG_L)||new_error){ +if(qbevent){evnt(24754);if(r)goto S_33557;} +do{ +*_SUB_PREPARSE_LONG_C1=*_SUB_PREPARSE_LONG_C1+ 1 ; +if(!qbevent)break;evnt(24754);}while(r); +} +S_33560:; +dl_continue_3537:; +}while((!(-(*_SUB_PREPARSE_LONG_L== 0 )))&&(!new_error)); +dl_exit_3537:; +if(qbevent){evnt(24755);if(r)goto S_33560;} +S_33561:; +if ((-(*_SUB_PREPARSE_LONG_C!=*_SUB_PREPARSE_LONG_C1))||new_error){ +if(qbevent){evnt(24756);if(r)goto S_33561;} +do{ +qbs_set(_SUB_PREPARSE_STRING_E,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("ERROR -- Bad Parenthesis:",25),qbs_str((int32)(*_SUB_PREPARSE_LONG_C))),qbs_new_txt_len("( vs",4)),qbs_str((int32)(*_SUB_PREPARSE_LONG_C1))),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24756);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(24756);}while(r); +} +do{ +qbs_set(_SUB_PREPARSE_STRING_SEP,qbs_new_txt_len("()+-*/\\><=^",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24759);}while(r); +S_33566:; +fornext_value3539= 0 ; +fornext_finalvalue3539=*__LONG_CONSTLAST; +fornext_step3539= 1 ; +if (fornext_step3539<0) fornext_step_negative3539=1; else fornext_step_negative3539=0; +if (new_error) goto fornext_error3539; +goto fornext_entrylabel3539; +while(1){ +fornext_value3539=fornext_step3539+(*_SUB_PREPARSE_LONG_I2); +fornext_entrylabel3539: +*_SUB_PREPARSE_LONG_I2=fornext_value3539; +if (fornext_step_negative3539){ +if (fornext_value3539fornext_finalvalue3539) break; +} +fornext_error3539:; +if(qbevent){evnt(24760);if(r)goto S_33566;} +do{ +qbs_set(_SUB_PREPARSE_STRING_THISCONSTNAME,((qbs*)(((uint64*)(__ARRAY_STRING_CONSTNAME[0]))[array_check((*_SUB_PREPARSE_LONG_I2)-__ARRAY_STRING_CONSTNAME[4],__ARRAY_STRING_CONSTNAME[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24761);}while(r); +S_33568:; +fornext_value3541= 1 ; +fornext_finalvalue3541= 2 ; +fornext_step3541= 1 ; +if (fornext_step3541<0) fornext_step_negative3541=1; else fornext_step_negative3541=0; +if (new_error) goto fornext_error3541; +goto fornext_entrylabel3541; +while(1){ +fornext_value3541=fornext_step3541+(*_SUB_PREPARSE_LONG_REPLACECONSTPASS); +fornext_entrylabel3541: +*_SUB_PREPARSE_LONG_REPLACECONSTPASS=fornext_value3541; +if (fornext_step_negative3541){ +if (fornext_value3541fornext_finalvalue3541) break; +} +fornext_error3541:; +if(qbevent){evnt(24762);if(r)goto S_33568;} +do{ +*_SUB_PREPARSE_LONG_FOUND= 0 ; +if(!qbevent)break;evnt(24763);}while(r); +S_33570:; +do{ +if(qbevent){evnt(24764);if(r)goto S_33570;} +do{ +*_SUB_PREPARSE_LONG_FOUND=func_instr(*_SUB_PREPARSE_LONG_FOUND+ 1 ,qbs_ucase(_SUB_PREPARSE_STRING_T),_SUB_PREPARSE_STRING_THISCONSTNAME,0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24765);}while(r); +S_33572:; +if ((*_SUB_PREPARSE_LONG_FOUND)||new_error){ +if(qbevent){evnt(24766);if(r)goto S_33572;} +S_33573:; +if ((-(*_SUB_PREPARSE_LONG_FOUND> 1 ))||new_error){ +if(qbevent){evnt(24767);if(r)goto S_33573;} +S_33574:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_SUB_PREPARSE_STRING_SEP,func_mid(_SUB_PREPARSE_STRING_T,*_SUB_PREPARSE_LONG_FOUND- 1 , 1 ,0|1),0)== 0 )))||new_error){ +if(qbevent){evnt(24768);if(r)goto S_33574;} +do{ +goto dl_continue_3542; +if(!qbevent)break;evnt(24768);}while(r); +} +} +S_33578:; +if ((qbs_cleanup(qbs_tmp_base,-((*_SUB_PREPARSE_LONG_FOUND+_SUB_PREPARSE_STRING_THISCONSTNAME->len)<=(_SUB_PREPARSE_STRING_T->len))))||new_error){ +if(qbevent){evnt(24770);if(r)goto S_33578;} +S_33579:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_SUB_PREPARSE_STRING_SEP,func_mid(_SUB_PREPARSE_STRING_T,*_SUB_PREPARSE_LONG_FOUND+_SUB_PREPARSE_STRING_THISCONSTNAME->len, 1 ,0|1),0)== 0 )))||new_error){ +if(qbevent){evnt(24771);if(r)goto S_33579;} +do{ +goto dl_continue_3542; +if(!qbevent)break;evnt(24771);}while(r); +} +} +do{ +*_SUB_PREPARSE_LONG_T=((int32*)(__ARRAY_LONG_CONSTTYPE[0]))[array_check((*_SUB_PREPARSE_LONG_I2)-__ARRAY_LONG_CONSTTYPE[4],__ARRAY_LONG_CONSTTYPE[5])]; +if(!qbevent)break;evnt(24773);}while(r); +S_33584:; +if ((*_SUB_PREPARSE_LONG_T&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(24774);if(r)goto S_33584;} +do{ +qbs_set(_SUB_PREPARSE_STRING_R,((qbs*)(((uint64*)(__ARRAY_STRING_CONSTSTRING[0]))[array_check((*_SUB_PREPARSE_LONG_I2)-__ARRAY_STRING_CONSTSTRING[4],__ARRAY_STRING_CONSTSTRING[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24775);}while(r); +do{ +*_SUB_PREPARSE_LONG_I4=func__instrrev(NULL,_SUB_PREPARSE_STRING_R,qbs_new_txt_len(",",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24776);}while(r); +do{ +qbs_set(_SUB_PREPARSE_STRING_R,qbs_left(_SUB_PREPARSE_STRING_R,*_SUB_PREPARSE_LONG_I4- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24777);}while(r); +}else{ +S_33589:; +if ((*_SUB_PREPARSE_LONG_T&*__LONG_ISFLOAT)||new_error){ +if(qbevent){evnt(24779);if(r)goto S_33589;} +do{ +qbs_set(_SUB_PREPARSE_STRING_R,qbs_str((long double)(((long double*)(__ARRAY_FLOAT_CONSTFLOAT[0]))[array_check((*_SUB_PREPARSE_LONG_I2)-__ARRAY_FLOAT_CONSTFLOAT[4],__ARRAY_FLOAT_CONSTFLOAT[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24780);}while(r); +do{ +qbs_set(_SUB_PREPARSE_STRING_R,FUNC_N2S(_SUB_PREPARSE_STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24781);}while(r); +}else{ +S_33593:; +if ((*_SUB_PREPARSE_LONG_T&*__LONG_ISUNSIGNED)||new_error){ +if(qbevent){evnt(24783);if(r)goto S_33593;} +do{ +qbs_set(_SUB_PREPARSE_STRING_R,qbs_str((uint64)(((uint64*)(__ARRAY_UINTEGER64_CONSTUINTEGER[0]))[array_check((*_SUB_PREPARSE_LONG_I2)-__ARRAY_UINTEGER64_CONSTUINTEGER[4],__ARRAY_UINTEGER64_CONSTUINTEGER[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24783);}while(r); +}else{ +do{ +qbs_set(_SUB_PREPARSE_STRING_R,qbs_str((int64)(((int64*)(__ARRAY_INTEGER64_CONSTINTEGER[0]))[array_check((*_SUB_PREPARSE_LONG_I2)-__ARRAY_INTEGER64_CONSTINTEGER[4],__ARRAY_INTEGER64_CONSTINTEGER[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24783);}while(r); +} +} +} +do{ +qbs_set(_SUB_PREPARSE_STRING_T,qbs_add(qbs_add(qbs_left(_SUB_PREPARSE_STRING_T,*_SUB_PREPARSE_LONG_FOUND- 1 ),qbs__trim(_SUB_PREPARSE_STRING_R)),func_mid(_SUB_PREPARSE_STRING_T,*_SUB_PREPARSE_LONG_FOUND+_SUB_PREPARSE_STRING_THISCONSTNAME->len,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24786);}while(r); +} +S_33602:; +dl_continue_3542:; +}while((!(-(*_SUB_PREPARSE_LONG_FOUND== 0 )))&&(!new_error)); +dl_exit_3542:; +if(qbevent){evnt(24788);if(r)goto S_33602;} +do{ +qbs_set(_SUB_PREPARSE_STRING_THISCONSTNAME,qbs_add(((qbs*)(((uint64*)(__ARRAY_STRING_CONSTNAME[0]))[array_check((*_SUB_PREPARSE_LONG_I2)-__ARRAY_STRING_CONSTNAME[4],__ARRAY_STRING_CONSTNAME[5])])),((qbs*)(((uint64*)(__ARRAY_STRING_CONSTNAMESYMBOL[0]))[array_check((*_SUB_PREPARSE_LONG_I2)-__ARRAY_STRING_CONSTNAMESYMBOL[4],__ARRAY_STRING_CONSTNAMESYMBOL[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24789);}while(r); +fornext_continue_3540:; +} +fornext_exit_3540:; +fornext_continue_3538:; +} +fornext_exit_3538:; +do{ +*_SUB_PREPARSE_LONG_L= 0 ; +if(!qbevent)break;evnt(24794);}while(r); +S_33607:; +do{ +if(qbevent){evnt(24795);if(r)goto S_33607;} +do{ +*_SUB_PREPARSE_LONG_L=func_instr(*_SUB_PREPARSE_LONG_L+ 1 ,_SUB_PREPARSE_STRING_T,qbs_new_txt_len("NOT ",4),0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24796);}while(r); +S_33609:; +if ((*_SUB_PREPARSE_LONG_L)||new_error){ +if(qbevent){evnt(24797);if(r)goto S_33609;} +do{ +*_SUB_PREPARSE_LONG_L1=func_instr(*_SUB_PREPARSE_LONG_L+ 1 ,_SUB_PREPARSE_STRING_T,qbs_new_txt_len("AND",3),0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24801);}while(r); +S_33611:; +if ((qbs_cleanup(qbs_tmp_base,(-(*_SUB_PREPARSE_LONG_L1== 0 ))|(((-(func_instr(*_SUB_PREPARSE_LONG_L+ 1 ,_SUB_PREPARSE_STRING_T,qbs_new_txt_len("OR",2),0|1)> 0 ))&(-(func_instr(*_SUB_PREPARSE_LONG_L+ 1 ,_SUB_PREPARSE_STRING_T,qbs_new_txt_len("OR",2),0|1)<*_SUB_PREPARSE_LONG_L1))))))||new_error){ +if(qbevent){evnt(24802);if(r)goto S_33611;} +do{ +*_SUB_PREPARSE_LONG_L1=func_instr(*_SUB_PREPARSE_LONG_L+ 1 ,_SUB_PREPARSE_STRING_T,qbs_new_txt_len("OR",2),0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24802);}while(r); +} +S_33614:; +if ((qbs_cleanup(qbs_tmp_base,(-(*_SUB_PREPARSE_LONG_L1== 0 ))|(((-(func_instr(*_SUB_PREPARSE_LONG_L+ 1 ,_SUB_PREPARSE_STRING_T,qbs_new_txt_len("XOR",3),0|1)> 0 ))&(-(func_instr(*_SUB_PREPARSE_LONG_L+ 1 ,_SUB_PREPARSE_STRING_T,qbs_new_txt_len("XOR",3),0|1)<*_SUB_PREPARSE_LONG_L1))))))||new_error){ +if(qbevent){evnt(24803);if(r)goto S_33614;} +do{ +*_SUB_PREPARSE_LONG_L1=func_instr(*_SUB_PREPARSE_LONG_L+ 1 ,_SUB_PREPARSE_STRING_T,qbs_new_txt_len("XOR",3),0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24803);}while(r); +} +S_33617:; +if ((qbs_cleanup(qbs_tmp_base,(-(*_SUB_PREPARSE_LONG_L1== 0 ))|(((-(func_instr(*_SUB_PREPARSE_LONG_L+ 1 ,_SUB_PREPARSE_STRING_T,qbs_new_txt_len("EQV",3),0|1)> 0 ))&(-(func_instr(*_SUB_PREPARSE_LONG_L+ 1 ,_SUB_PREPARSE_STRING_T,qbs_new_txt_len("EQV",3),0|1)<*_SUB_PREPARSE_LONG_L1))))))||new_error){ +if(qbevent){evnt(24804);if(r)goto S_33617;} +do{ +*_SUB_PREPARSE_LONG_L1=func_instr(*_SUB_PREPARSE_LONG_L+ 1 ,_SUB_PREPARSE_STRING_T,qbs_new_txt_len("EQV",3),0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24804);}while(r); +} +S_33620:; +if ((qbs_cleanup(qbs_tmp_base,(-(*_SUB_PREPARSE_LONG_L1== 0 ))|(((-(func_instr(*_SUB_PREPARSE_LONG_L+ 1 ,_SUB_PREPARSE_STRING_T,qbs_new_txt_len("IMP",3),0|1)> 0 ))&(-(func_instr(*_SUB_PREPARSE_LONG_L+ 1 ,_SUB_PREPARSE_STRING_T,qbs_new_txt_len("IMP",3),0|1)<*_SUB_PREPARSE_LONG_L1))))))||new_error){ +if(qbevent){evnt(24805);if(r)goto S_33620;} +do{ +*_SUB_PREPARSE_LONG_L1=func_instr(*_SUB_PREPARSE_LONG_L+ 1 ,_SUB_PREPARSE_STRING_T,qbs_new_txt_len("IMP",3),0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24805);}while(r); +} +S_33623:; +if ((-(*_SUB_PREPARSE_LONG_L1== 0 ))||new_error){ +if(qbevent){evnt(24806);if(r)goto S_33623;} +do{ +*_SUB_PREPARSE_LONG_L1=_SUB_PREPARSE_STRING_T->len+ 1 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24806);}while(r); +} +do{ +qbs_set(_SUB_PREPARSE_STRING_T,qbs_add(qbs_add(qbs_add(qbs_add(qbs_left(_SUB_PREPARSE_STRING_T,*_SUB_PREPARSE_LONG_L- 1 ),qbs_new_txt_len("(",1)),func_mid(_SUB_PREPARSE_STRING_T,*_SUB_PREPARSE_LONG_L,*_SUB_PREPARSE_LONG_L1-*_SUB_PREPARSE_LONG_L,0|1)),qbs_new_txt_len(")",1)),func_mid(_SUB_PREPARSE_STRING_T,*_SUB_PREPARSE_LONG_L+*_SUB_PREPARSE_LONG_L1-*_SUB_PREPARSE_LONG_L,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24807);}while(r); +do{ +*_SUB_PREPARSE_LONG_L=*_SUB_PREPARSE_LONG_L+ 3 ; +if(!qbevent)break;evnt(24808);}while(r); +} +S_33629:; +dl_continue_3547:; +}while((!(-(*_SUB_PREPARSE_LONG_L== 0 )))&&(!new_error)); +dl_exit_3547:; +if(qbevent){evnt(24811);if(r)goto S_33629;} +do{ +*_SUB_PREPARSE_LONG_UBOUNDPP_TYPEMOD=*_SUB_PREPARSE_LONG_TOTALPREFIXEDPP_TYPEMOD; +if(!qbevent)break;evnt(24813);}while(r); +S_33631:; +if ((-(*__LONG_QB64PREFIX_SET== 1 ))||new_error){ +if(qbevent){evnt(24814);if(r)goto S_33631;} +do{ +*_SUB_PREPARSE_LONG_UBOUNDPP_TYPEMOD=*_SUB_PREPARSE_LONG_TOTALPP_TYPEMOD; +if(!qbevent)break;evnt(24814);}while(r); +} +S_33634:; +fornext_value3550= 1 ; +fornext_finalvalue3550=*_SUB_PREPARSE_LONG_UBOUNDPP_TYPEMOD; +fornext_step3550= 1 ; +if (fornext_step3550<0) fornext_step_negative3550=1; else fornext_step_negative3550=0; +if (new_error) goto fornext_error3550; +goto fornext_entrylabel3550; +while(1){ +fornext_value3550=fornext_step3550+(*_SUB_PREPARSE_LONG_J); +fornext_entrylabel3550: +*_SUB_PREPARSE_LONG_J=fornext_value3550; +if (fornext_step_negative3550){ +if (fornext_value3550fornext_finalvalue3550) break; +} +fornext_error3550:; +if(qbevent){evnt(24815);if(r)goto S_33634;} +do{ +*_SUB_PREPARSE_LONG_L= 0 ; +if(!qbevent)break;evnt(24816);}while(r); +S_33636:; +do{ +if(qbevent){evnt(24817);if(r)goto S_33636;} +do{ +*_SUB_PREPARSE_LONG_L=func_instr(*_SUB_PREPARSE_LONG_L+ 1 ,_SUB_PREPARSE_STRING_T,((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[array_check((*_SUB_PREPARSE_LONG_J)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5])])),0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24818);}while(r); +S_33638:; +if ((-(*_SUB_PREPARSE_LONG_L== 0 ))||new_error){ +if(qbevent){evnt(24819);if(r)goto S_33638;} +do{ +goto dl_exit_3551; +if(!qbevent)break;evnt(24819);}while(r); +} +do{ +*_SUB_PREPARSE_LONG_I= 0 ; +if(!qbevent)break;evnt(24820);}while(r); +do{ +*_SUB_PREPARSE_LONG_L1= 0 ; +if(!qbevent)break;evnt(24820);}while(r); +do{ +*_SUB_PREPARSE_LONG_L2= 0 ; +if(!qbevent)break;evnt(24820);}while(r); +do{ +*_SUB_PREPARSE_LONG_LO=((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[array_check((*_SUB_PREPARSE_LONG_J)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5])]))->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24820);}while(r); +S_33645:; +do{ +if(qbevent){evnt(24821);if(r)goto S_33645;} +S_33646:; +if ((-(((int16*)(__ARRAY_INTEGER_PL[0]))[array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5])]> 10 ))||new_error){ +if(qbevent){evnt(24822);if(r)goto S_33646;} +do{ +*_SUB_PREPARSE_LONG_L2=func__instrrev(*_SUB_PREPARSE_LONG_L,_SUB_PREPARSE_STRING_T,((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])])),0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24823);}while(r); +S_33648:; +if (((-(*_SUB_PREPARSE_LONG_L2> 0 ))&(-(*_SUB_PREPARSE_LONG_L2>*_SUB_PREPARSE_LONG_L1)))||new_error){ +if(qbevent){evnt(24824);if(r)goto S_33648;} +do{ +*_SUB_PREPARSE_LONG_L1=*_SUB_PREPARSE_LONG_L2; +if(!qbevent)break;evnt(24824);}while(r); +} +} +do{ +*_SUB_PREPARSE_LONG_I=*_SUB_PREPARSE_LONG_I+*_SUB_PREPARSE_LONG_LO; +if(!qbevent)break;evnt(24826);}while(r); +S_33653:; +dl_continue_3553:; +}while((!(-(*_SUB_PREPARSE_LONG_I>func_ubound(__ARRAY_INTEGER_PL,1,1))))&&(!new_error)); +dl_exit_3553:; +if(qbevent){evnt(24827);if(r)goto S_33653;} +do{ +qbs_set(_SUB_PREPARSE_STRING_L,qbs_left(_SUB_PREPARSE_STRING_T,*_SUB_PREPARSE_LONG_L1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24828);}while(r); +do{ +qbs_set(_SUB_PREPARSE_STRING_M,func_mid(_SUB_PREPARSE_STRING_T,*_SUB_PREPARSE_LONG_L1+ 1 ,*_SUB_PREPARSE_LONG_L-*_SUB_PREPARSE_LONG_L1- 1 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24829);}while(r); +do{ +qbs_set(_SUB_PREPARSE_STRING_R,qbs_add(((qbs*)(((uint64*)(__ARRAY_STRING_PP_CONVERTEDMOD[0]))[array_check((*_SUB_PREPARSE_LONG_J)-__ARRAY_STRING_PP_CONVERTEDMOD[4],__ARRAY_STRING_PP_CONVERTEDMOD[5])])),func_mid(_SUB_PREPARSE_STRING_T,*_SUB_PREPARSE_LONG_L+*_SUB_PREPARSE_LONG_LO,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24830);}while(r); +S_33657:; +if ((-(*_SUB_PREPARSE_LONG_J> 15 ))||new_error){ +if(qbevent){evnt(24831);if(r)goto S_33657;} +do{ +qbs_set(_SUB_PREPARSE_STRING_T,qbs_add(qbs_add(_SUB_PREPARSE_STRING_L,_SUB_PREPARSE_STRING_M),_SUB_PREPARSE_STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24832);}while(r); +}else{ +do{ +qbs_set(_SUB_PREPARSE_STRING_T,qbs_add(qbs_add(qbs_add(qbs_add(_SUB_PREPARSE_STRING_L,qbs_new_txt_len("(",1)),_SUB_PREPARSE_STRING_M),qbs_new_txt_len(")",1)),_SUB_PREPARSE_STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24835);}while(r); +} +do{ +*_SUB_PREPARSE_LONG_L=*_SUB_PREPARSE_LONG_L+ 2 +((qbs*)(((uint64*)(__ARRAY_STRING_PP_TYPEMOD[0]))[array_check((*_SUB_PREPARSE_LONG_J)-__ARRAY_STRING_PP_TYPEMOD[4],__ARRAY_STRING_PP_TYPEMOD[5])]))->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24837);}while(r); +dl_continue_3551:; +}while(1); +dl_exit_3551:; +fornext_continue_3549:; +} +fornext_exit_3549:; +do{ +*_SUB_PREPARSE_LONG_L= 0 ; +if(!qbevent)break;evnt(24842);}while(r); +S_33666:; +do{ +if(qbevent){evnt(24843);if(r)goto S_33666;} +do{ +*_SUB_PREPARSE_LONG_L=func_instr(*_SUB_PREPARSE_LONG_L+ 1 ,_SUB_PREPARSE_STRING_T,qbs_new_txt_len("(",1),0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24844);}while(r); +S_33668:; +if (((-(*_SUB_PREPARSE_LONG_L> 0 ))&(-(*_SUB_PREPARSE_LONG_L> 2 )))||new_error){ +if(qbevent){evnt(24845);if(r)goto S_33668;} +do{ +*_SUB_PREPARSE_LONG_GOOD= 0 ; +if(!qbevent)break;evnt(24846);}while(r); +S_33670:; +fornext_value3557= 1 ; +fornext_finalvalue3557=func_ubound(__ARRAY_STRING_ONAME,1,1); +fornext_step3557= 1 ; +if (fornext_step3557<0) fornext_step_negative3557=1; else fornext_step_negative3557=0; +if (new_error) goto fornext_error3557; +goto fornext_entrylabel3557; +while(1){ +fornext_value3557=fornext_step3557+(*_SUB_PREPARSE_LONG_I); +fornext_entrylabel3557: +*_SUB_PREPARSE_LONG_I=fornext_value3557; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative3557){ +if (fornext_value3557fornext_finalvalue3557) break; +} +fornext_error3557:; +if(qbevent){evnt(24847);if(r)goto S_33670;} +do{ +qbs_set(_SUB_PREPARSE_STRING_M,func_mid(_SUB_PREPARSE_STRING_T,*_SUB_PREPARSE_LONG_L-((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])]))->len,((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])]))->len,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24848);}while(r); +S_33672:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_PREPARSE_STRING_M,((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])])))))||new_error){ +if(qbevent){evnt(24849);if(r)goto S_33672;} +do{ +*_SUB_PREPARSE_LONG_GOOD= -1 ; +if(!qbevent)break;evnt(24850);}while(r); +do{ +goto fornext_exit_3556; +if(!qbevent)break;evnt(24850);}while(r); +}else{ +S_33676:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])])), 1 ),qbs_new_txt_len("_",1)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))||new_error){ +if(qbevent){evnt(24852);if(r)goto S_33676;} +do{ +qbs_set(_SUB_PREPARSE_STRING_M,func_mid(_SUB_PREPARSE_STRING_T,*_SUB_PREPARSE_LONG_L-(((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])]))->len- 1 ),((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])]))->len- 1 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24854);}while(r); +S_33678:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_PREPARSE_STRING_M,func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])])), 2 ,NULL,0))))||new_error){ +if(qbevent){evnt(24855);if(r)goto S_33678;} +do{ +*_SUB_PREPARSE_LONG_GOOD= -1 ; +if(!qbevent)break;evnt(24855);}while(r); +do{ +goto fornext_exit_3556; +if(!qbevent)break;evnt(24855);}while(r); +} +} +} +fornext_continue_3556:; +} +fornext_exit_3556:; +S_33685:; +if ((~(*_SUB_PREPARSE_LONG_GOOD))||new_error){ +if(qbevent){evnt(24859);if(r)goto S_33685;} +do{ +qbs_set(_SUB_PREPARSE_STRING_E,qbs_new_txt_len("ERROR - Improper operations before (.",37)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24859);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(24859);}while(r); +} +do{ +*_SUB_PREPARSE_LONG_L=*_SUB_PREPARSE_LONG_L+ 1 ; +if(!qbevent)break;evnt(24860);}while(r); +} +S_33691:; +dl_continue_3555:; +}while((!(-(*_SUB_PREPARSE_LONG_L== 0 )))&&(!new_error)); +dl_exit_3555:; +if(qbevent){evnt(24862);if(r)goto S_33691;} +do{ +*_SUB_PREPARSE_LONG_L= 0 ; +if(!qbevent)break;evnt(24865);}while(r); +S_33693:; +do{ +if(qbevent){evnt(24866);if(r)goto S_33693;} +do{ +*_SUB_PREPARSE_LONG_L=func_instr(*_SUB_PREPARSE_LONG_L+ 1 ,_SUB_PREPARSE_STRING_T,qbs_new_txt_len(")",1),0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24867);}while(r); +S_33695:; +if ((qbs_cleanup(qbs_tmp_base,(-(*_SUB_PREPARSE_LONG_L> 0 ))&(-(*_SUB_PREPARSE_LONG_L<_SUB_PREPARSE_STRING_T->len))))||new_error){ +if(qbevent){evnt(24868);if(r)goto S_33695;} +do{ +*_SUB_PREPARSE_LONG_GOOD= 0 ; +if(!qbevent)break;evnt(24869);}while(r); +S_33697:; +fornext_value3565= 1 ; +fornext_finalvalue3565=func_ubound(__ARRAY_STRING_ONAME,1,1); +fornext_step3565= 1 ; +if (fornext_step3565<0) fornext_step_negative3565=1; else fornext_step_negative3565=0; +if (new_error) goto fornext_error3565; +goto fornext_entrylabel3565; +while(1){ +fornext_value3565=fornext_step3565+(*_SUB_PREPARSE_LONG_I); +fornext_entrylabel3565: +*_SUB_PREPARSE_LONG_I=fornext_value3565; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative3565){ +if (fornext_value3565fornext_finalvalue3565) break; +} +fornext_error3565:; +if(qbevent){evnt(24870);if(r)goto S_33697;} +do{ +qbs_set(_SUB_PREPARSE_STRING_M,func_mid(_SUB_PREPARSE_STRING_T,*_SUB_PREPARSE_LONG_L+ 1 ,((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])]))->len,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24871);}while(r); +S_33699:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_PREPARSE_STRING_M,((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])])))))||new_error){ +if(qbevent){evnt(24872);if(r)goto S_33699;} +do{ +*_SUB_PREPARSE_LONG_GOOD= -1 ; +if(!qbevent)break;evnt(24873);}while(r); +do{ +goto fornext_exit_3564; +if(!qbevent)break;evnt(24873);}while(r); +}else{ +S_33703:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])])), 1 ),qbs_new_txt_len("_",1)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))||new_error){ +if(qbevent){evnt(24875);if(r)goto S_33703;} +do{ +qbs_set(_SUB_PREPARSE_STRING_M,func_mid(_SUB_PREPARSE_STRING_T,*_SUB_PREPARSE_LONG_L+ 1 ,((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])]))->len- 1 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24877);}while(r); +S_33705:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_PREPARSE_STRING_M,func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])])), 2 ,NULL,0))))||new_error){ +if(qbevent){evnt(24878);if(r)goto S_33705;} +do{ +*_SUB_PREPARSE_LONG_GOOD= -1 ; +if(!qbevent)break;evnt(24878);}while(r); +do{ +goto fornext_exit_3564; +if(!qbevent)break;evnt(24878);}while(r); +} +} +} +fornext_continue_3564:; +} +fornext_exit_3564:; +S_33712:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_SUB_PREPARSE_STRING_T,*_SUB_PREPARSE_LONG_L+ 1 , 1 ,0|1),qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(24882);if(r)goto S_33712;} +do{ +*_SUB_PREPARSE_LONG_GOOD= -1 ; +if(!qbevent)break;evnt(24882);}while(r); +} +S_33715:; +if ((~(*_SUB_PREPARSE_LONG_GOOD))||new_error){ +if(qbevent){evnt(24883);if(r)goto S_33715;} +do{ +qbs_set(_SUB_PREPARSE_STRING_E,qbs_new_txt_len("ERROR - Improper operations after ).",36)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24883);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(24883);}while(r); +} +do{ +*_SUB_PREPARSE_LONG_L=*_SUB_PREPARSE_LONG_L+ 1 ; +if(!qbevent)break;evnt(24884);}while(r); +} +S_33721:; +dl_continue_3562:; +}while((!(qbs_cleanup(qbs_tmp_base,(-(*_SUB_PREPARSE_LONG_L== 0 ))|(-(*_SUB_PREPARSE_LONG_L==_SUB_PREPARSE_STRING_T->len)))))&&(!new_error)); +dl_exit_3562:; +if(qbevent){evnt(24886);if(r)goto S_33721;} +do{ +*_SUB_PREPARSE_LONG_L= 0 ; +if(!qbevent)break;evnt(24889);}while(r); +S_33723:; +do{ +if(qbevent){evnt(24890);if(r)goto S_33723;} +do{ +*_SUB_PREPARSE_LONG_L=func_instr(NULL,_SUB_PREPARSE_STRING_T,qbs_new_txt_len("&H",2),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24891);}while(r); +S_33725:; +if ((*_SUB_PREPARSE_LONG_L)||new_error){ +if(qbevent){evnt(24892);if(r)goto S_33725;} +do{ +*__LONG_E=*_SUB_PREPARSE_LONG_L+ 1 ; +if(!qbevent)break;evnt(24893);}while(r); +do{ +*_SUB_PREPARSE_LONG_FINISHED= 0 ; +if(!qbevent)break;evnt(24893);}while(r); +S_33728:; +do{ +if(qbevent){evnt(24894);if(r)goto S_33728;} +do{ +*__LONG_E=*__LONG_E+ 1 ; +if(!qbevent)break;evnt(24895);}while(r); +do{ +qbs_set(_SUB_PREPARSE_STRING_COMP,func_mid(_SUB_PREPARSE_STRING_T,*__LONG_E, 1 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24896);}while(r); +S_33731:; +if(qbevent){evnt(24897);if(r)goto S_33731;} +S_33732:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_greaterorequal(_SUB_PREPARSE_STRING_COMP,qbs_new_txt_len("0",1))&&qbs_lessorequal(_SUB_PREPARSE_STRING_COMP,qbs_new_txt_len("9",1)))||(qbs_greaterorequal(_SUB_PREPARSE_STRING_COMP,qbs_new_txt_len("A",1))&&qbs_lessorequal(_SUB_PREPARSE_STRING_COMP,qbs_new_txt_len("F",1)))))||new_error){ +if(qbevent){evnt(24898);if(r)goto S_33732;} +sc_ec_173_end:; +goto sc_3571_end; +} +do{ +*_SUB_PREPARSE_LONG_GOOD= 0 ; +if(!qbevent)break;evnt(24900);}while(r); +S_33735:; +fornext_value3573= 1 ; +fornext_finalvalue3573=func_ubound(__ARRAY_STRING_ONAME,1,1); +fornext_step3573= 1 ; +if (fornext_step3573<0) fornext_step_negative3573=1; else fornext_step_negative3573=0; +if (new_error) goto fornext_error3573; +goto fornext_entrylabel3573; +while(1){ +fornext_value3573=fornext_step3573+(*_SUB_PREPARSE_LONG_I); +fornext_entrylabel3573: +*_SUB_PREPARSE_LONG_I=fornext_value3573; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative3573){ +if (fornext_value3573fornext_finalvalue3573) break; +} +fornext_error3573:; +if(qbevent){evnt(24901);if(r)goto S_33735;} +S_33736:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(func_mid(_SUB_PREPARSE_STRING_T,*__LONG_E,((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])]))->len,0|1),((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])]))))&(-(((int16*)(__ARRAY_INTEGER_PL[0]))[array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5])]> 1 ))&(-(((int16*)(__ARRAY_INTEGER_PL[0]))[array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5])]<= 250 ))))||new_error){ +if(qbevent){evnt(24902);if(r)goto S_33736;} +do{ +*_SUB_PREPARSE_LONG_GOOD= -1 ; +if(!qbevent)break;evnt(24902);}while(r); +do{ +goto fornext_exit_3572; +if(!qbevent)break;evnt(24902);}while(r); +} +fornext_continue_3572:; +} +fornext_exit_3572:; +S_33741:; +if ((~(*_SUB_PREPARSE_LONG_GOOD))||new_error){ +if(qbevent){evnt(24904);if(r)goto S_33741;} +do{ +qbs_set(_SUB_PREPARSE_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("ERROR - Improper &H value. (",28),_SUB_PREPARSE_STRING_COMP),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24904);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(24904);}while(r); +} +do{ +*__LONG_E=*__LONG_E- 1 ; +if(!qbevent)break;evnt(24905);}while(r); +do{ +*_SUB_PREPARSE_LONG_FINISHED= -1 ; +if(!qbevent)break;evnt(24906);}while(r); +sc_3571_end:; +S_33748:; +dl_continue_3570:; +}while((!(qbs_cleanup(qbs_tmp_base,*_SUB_PREPARSE_LONG_FINISHED|(-(*__LONG_E==_SUB_PREPARSE_STRING_T->len)))))&&(!new_error)); +dl_exit_3570:; +if(qbevent){evnt(24908);if(r)goto S_33748;} +do{ +qbs_set(_SUB_PREPARSE_STRING_T,qbs_add(qbs_add(qbs_left(_SUB_PREPARSE_STRING_T,*_SUB_PREPARSE_LONG_L- 1 ),qbs_ltrim(qbs_rtrim(qbs_str((long double)(func_val(func_mid(_SUB_PREPARSE_STRING_T,*_SUB_PREPARSE_LONG_L,*__LONG_E-*_SUB_PREPARSE_LONG_L+ 1 ,0|1))))))),func_mid(_SUB_PREPARSE_STRING_T,*__LONG_E+ 1 ,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24909);}while(r); +} +S_33751:; +dl_continue_3569:; +}while((!(-(*_SUB_PREPARSE_LONG_L== 0 )))&&(!new_error)); +dl_exit_3569:; +if(qbevent){evnt(24911);if(r)goto S_33751;} +do{ +*_SUB_PREPARSE_LONG_L= 0 ; +if(!qbevent)break;evnt(24914);}while(r); +S_33753:; +do{ +if(qbevent){evnt(24915);if(r)goto S_33753;} +do{ +*_SUB_PREPARSE_LONG_L=func_instr(NULL,_SUB_PREPARSE_STRING_T,qbs_new_txt_len("&B",2),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24916);}while(r); +S_33755:; +if ((*_SUB_PREPARSE_LONG_L)||new_error){ +if(qbevent){evnt(24917);if(r)goto S_33755;} +do{ +*__LONG_E=*_SUB_PREPARSE_LONG_L+ 1 ; +if(!qbevent)break;evnt(24918);}while(r); +do{ +*_SUB_PREPARSE_LONG_FINISHED= 0 ; +if(!qbevent)break;evnt(24918);}while(r); +S_33758:; +do{ +if(qbevent){evnt(24919);if(r)goto S_33758;} +do{ +*__LONG_E=*__LONG_E+ 1 ; +if(!qbevent)break;evnt(24920);}while(r); +do{ +qbs_set(_SUB_PREPARSE_STRING_COMP,func_mid(_SUB_PREPARSE_STRING_T,*__LONG_E, 1 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24921);}while(r); +S_33761:; +if(qbevent){evnt(24922);if(r)goto S_33761;} +S_33762:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_PREPARSE_STRING_COMP,qbs_new_txt_len("0",1))||qbs_equal(_SUB_PREPARSE_STRING_COMP,qbs_new_txt_len("1",1))))||new_error){ +if(qbevent){evnt(24923);if(r)goto S_33762;} +sc_ec_174_end:; +goto sc_3578_end; +} +do{ +*_SUB_PREPARSE_LONG_GOOD= 0 ; +if(!qbevent)break;evnt(24925);}while(r); +S_33765:; +fornext_value3580= 1 ; +fornext_finalvalue3580=func_ubound(__ARRAY_STRING_ONAME,1,1); +fornext_step3580= 1 ; +if (fornext_step3580<0) fornext_step_negative3580=1; else fornext_step_negative3580=0; +if (new_error) goto fornext_error3580; +goto fornext_entrylabel3580; +while(1){ +fornext_value3580=fornext_step3580+(*_SUB_PREPARSE_LONG_I); +fornext_entrylabel3580: +*_SUB_PREPARSE_LONG_I=fornext_value3580; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative3580){ +if (fornext_value3580fornext_finalvalue3580) break; +} +fornext_error3580:; +if(qbevent){evnt(24926);if(r)goto S_33765;} +S_33766:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(func_mid(_SUB_PREPARSE_STRING_T,*__LONG_E,((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])]))->len,0|1),((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])]))))&(-(((int16*)(__ARRAY_INTEGER_PL[0]))[array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5])]> 1 ))&(-(((int16*)(__ARRAY_INTEGER_PL[0]))[array_check((*_SUB_PREPARSE_LONG_I)-__ARRAY_INTEGER_PL[4],__ARRAY_INTEGER_PL[5])]<= 250 ))))||new_error){ +if(qbevent){evnt(24927);if(r)goto S_33766;} +do{ +*_SUB_PREPARSE_LONG_GOOD= -1 ; +if(!qbevent)break;evnt(24927);}while(r); +do{ +goto fornext_exit_3579; +if(!qbevent)break;evnt(24927);}while(r); +} +fornext_continue_3579:; +} +fornext_exit_3579:; +S_33771:; +if ((~(*_SUB_PREPARSE_LONG_GOOD))||new_error){ +if(qbevent){evnt(24929);if(r)goto S_33771;} +do{ +qbs_set(_SUB_PREPARSE_STRING_E,qbs_add(qbs_add(qbs_new_txt_len("ERROR - Improper &B value. (",28),_SUB_PREPARSE_STRING_COMP),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24929);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(24929);}while(r); +} +do{ +*__LONG_E=*__LONG_E- 1 ; +if(!qbevent)break;evnt(24930);}while(r); +do{ +*_SUB_PREPARSE_LONG_FINISHED= -1 ; +if(!qbevent)break;evnt(24931);}while(r); +sc_3578_end:; +S_33778:; +dl_continue_3577:; +}while((!(qbs_cleanup(qbs_tmp_base,*_SUB_PREPARSE_LONG_FINISHED|(-(*__LONG_E==_SUB_PREPARSE_STRING_T->len)))))&&(!new_error)); +dl_exit_3577:; +if(qbevent){evnt(24933);if(r)goto S_33778;} +do{ +qbs_set(_SUB_PREPARSE_STRING_BIN,func_mid(_SUB_PREPARSE_STRING_T,*_SUB_PREPARSE_LONG_L+ 2 ,*__LONG_E-*_SUB_PREPARSE_LONG_L- 1 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24934);}while(r); +S_33780:; +fornext_value3584= 1 ; +fornext_finalvalue3584=_SUB_PREPARSE_STRING_BIN->len; +fornext_step3584= 1 ; +if (fornext_step3584<0) fornext_step_negative3584=1; else fornext_step_negative3584=0; +if (new_error) goto fornext_error3584; +goto fornext_entrylabel3584; +while(1){ +fornext_value3584=fornext_step3584+(*_SUB_PREPARSE_LONG_I); +fornext_entrylabel3584: +*_SUB_PREPARSE_LONG_I=fornext_value3584; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative3584){ +if (fornext_value3584fornext_finalvalue3584) break; +} +fornext_error3584:; +if(qbevent){evnt(24935);if(r)goto S_33780;} +S_33781:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_SUB_PREPARSE_STRING_BIN,*_SUB_PREPARSE_LONG_I, 1 ,0|1),qbs_new_txt_len("1",1))))||new_error){ +if(qbevent){evnt(24936);if(r)goto S_33781;} +do{ +*_SUB_PREPARSE_FLOAT_F=*_SUB_PREPARSE_FLOAT_F+(pow2( 2 ,(_SUB_PREPARSE_STRING_BIN->len-*_SUB_PREPARSE_LONG_I))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24936);}while(r); +} +fornext_continue_3583:; +} +fornext_exit_3583:; +do{ +qbs_set(_SUB_PREPARSE_STRING_T,qbs_add(qbs_add(qbs_left(_SUB_PREPARSE_STRING_T,*_SUB_PREPARSE_LONG_L- 1 ),qbs_ltrim(qbs_rtrim(qbs_str((long double)(*_SUB_PREPARSE_FLOAT_F))))),func_mid(_SUB_PREPARSE_STRING_T,*__LONG_E+ 1 ,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24938);}while(r); +} +S_33787:; +dl_continue_3576:; +}while((!(-(*_SUB_PREPARSE_LONG_L== 0 )))&&(!new_error)); +dl_exit_3576:; +if(qbevent){evnt(24940);if(r)goto S_33787;} +do{ +SUB_VERIFYSTRING(_SUB_PREPARSE_STRING_T); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24944);}while(r); +do{ +qbs_set(_SUB_PREPARSE_STRING_E,_SUB_PREPARSE_STRING_T); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24945);}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free73.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +void SUB_VERIFYSTRING(qbs*_SUB_VERIFYSTRING_STRING_T){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data74.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +*_SUB_VERIFYSTRING_LONG_J= 1 ; +if(!qbevent)break;evnt(24952);}while(r); +S_33791:; +do{ +if(qbevent){evnt(24953);if(r)goto S_33791;} +do{ +qbs_set(_SUB_VERIFYSTRING_STRING_COMP,func_mid(_SUB_VERIFYSTRING_STRING_T,*_SUB_VERIFYSTRING_LONG_J, 1 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24954);}while(r); +S_33793:; +if(qbevent){evnt(24955);if(r)goto S_33793;} +S_33794:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_greaterorequal(_SUB_VERIFYSTRING_STRING_COMP,qbs_new_txt_len("0",1))&&qbs_lessorequal(_SUB_VERIFYSTRING_STRING_COMP,qbs_new_txt_len("9",1)))||qbs_equal(_SUB_VERIFYSTRING_STRING_COMP,qbs_new_txt_len(".",1))||qbs_equal(_SUB_VERIFYSTRING_STRING_COMP,qbs_new_txt_len("(",1))||qbs_equal(_SUB_VERIFYSTRING_STRING_COMP,qbs_new_txt_len(")",1))||qbs_equal(_SUB_VERIFYSTRING_STRING_COMP,qbs_new_txt_len(",",1))))||new_error){ +if(qbevent){evnt(24956);if(r)goto S_33794;} +do{ +*_SUB_VERIFYSTRING_LONG_J=*_SUB_VERIFYSTRING_LONG_J+ 1 ; +if(!qbevent)break;evnt(24956);}while(r); +sc_ec_175_end:; +goto sc_3589_end; +} +do{ +*_SUB_VERIFYSTRING_LONG_GOOD= 0 ; +if(!qbevent)break;evnt(24958);}while(r); +do{ +*_SUB_VERIFYSTRING_LONG_EXTRACHAR= 0 ; +if(!qbevent)break;evnt(24959);}while(r); +S_33799:; +fornext_value3591= 1 ; +fornext_finalvalue3591=func_ubound(__ARRAY_STRING_ONAME,1,1); +fornext_step3591= 1 ; +if (fornext_step3591<0) fornext_step_negative3591=1; else fornext_step_negative3591=0; +if (new_error) goto fornext_error3591; +goto fornext_entrylabel3591; +while(1){ +fornext_value3591=fornext_step3591+(*_SUB_VERIFYSTRING_LONG_I); +fornext_entrylabel3591: +*_SUB_VERIFYSTRING_LONG_I=fornext_value3591; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative3591){ +if (fornext_value3591fornext_finalvalue3591) break; +} +fornext_error3591:; +if(qbevent){evnt(24960);if(r)goto S_33799;} +S_33800:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_SUB_VERIFYSTRING_STRING_T,*_SUB_VERIFYSTRING_LONG_J,((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_VERIFYSTRING_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])]))->len,0|1),((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_VERIFYSTRING_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])])))))||new_error){ +if(qbevent){evnt(24961);if(r)goto S_33800;} +do{ +*_SUB_VERIFYSTRING_LONG_GOOD= -1 ; +if(!qbevent)break;evnt(24962);}while(r); +do{ +goto fornext_exit_3590; +if(!qbevent)break;evnt(24962);}while(r); +}else{ +S_33804:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_VERIFYSTRING_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])])), 1 ),qbs_new_txt_len("_",1)))&(-(*__LONG_QB64PREFIX_SET== 1 ))))||new_error){ +if(qbevent){evnt(24964);if(r)goto S_33804;} +S_33805:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_SUB_VERIFYSTRING_STRING_T,*_SUB_VERIFYSTRING_LONG_J,((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_VERIFYSTRING_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])]))->len- 1 ,0|1),func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_VERIFYSTRING_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])])), 2 ,NULL,0))))||new_error){ +if(qbevent){evnt(24966);if(r)goto S_33805;} +do{ +*_SUB_VERIFYSTRING_LONG_GOOD= -1 ; +if(!qbevent)break;evnt(24967);}while(r); +do{ +*_SUB_VERIFYSTRING_LONG_EXTRACHAR= 1 ; +if(!qbevent)break;evnt(24967);}while(r); +do{ +goto fornext_exit_3590; +if(!qbevent)break;evnt(24967);}while(r); +} +} +} +fornext_continue_3590:; +} +fornext_exit_3590:; +S_33813:; +if ((~(*_SUB_VERIFYSTRING_LONG_GOOD))||new_error){ +if(qbevent){evnt(24972);if(r)goto S_33813;} +do{ +qbs_set(_SUB_VERIFYSTRING_STRING_T,qbs_add(qbs_add(qbs_new_txt_len("ERROR - Bad Operational value. (",32),_SUB_VERIFYSTRING_STRING_COMP),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24972);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(24972);}while(r); +} +do{ +*_SUB_VERIFYSTRING_LONG_J=*_SUB_VERIFYSTRING_LONG_J+(((qbs*)(((uint64*)(__ARRAY_STRING_ONAME[0]))[array_check((*_SUB_VERIFYSTRING_LONG_I)-__ARRAY_STRING_ONAME[4],__ARRAY_STRING_ONAME[5])]))->len-*_SUB_VERIFYSTRING_LONG_EXTRACHAR); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24973);}while(r); +sc_3589_end:; +S_33819:; +dl_continue_3588:; +}while((!(qbs_cleanup(qbs_tmp_base,-(*_SUB_VERIFYSTRING_LONG_J>_SUB_VERIFYSTRING_STRING_T->len))))&&(!new_error)); +dl_exit_3588:; +if(qbevent){evnt(24975);if(r)goto S_33819;} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free74.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +qbs* FUNC_N2S(qbs*_FUNC_N2S_STRING_EXP){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data75.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +qbs_set(_FUNC_N2S_STRING_T,qbs_ltrim(qbs_rtrim(_FUNC_N2S_STRING_EXP))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24980);}while(r); +S_33821:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(_FUNC_N2S_STRING_T, 1 ),qbs_new_txt_len("-",1)))|(qbs_equal(qbs_left(_FUNC_N2S_STRING_T, 1 ),qbs_new_txt_len("N",1)))))||new_error){ +if(qbevent){evnt(24981);if(r)goto S_33821;} +do{ +qbs_set(_FUNC_N2S_STRING_SIGN,qbs_new_txt_len("-",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24981);}while(r); +do{ +qbs_set(_FUNC_N2S_STRING_T,func_mid(_FUNC_N2S_STRING_T, 2 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24981);}while(r); +} +do{ +*_FUNC_N2S_LONG_DP=func_instr(NULL,_FUNC_N2S_STRING_T,qbs_new_txt_len("D+",2),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24983);}while(r); +do{ +*_FUNC_N2S_LONG_DM=func_instr(NULL,_FUNC_N2S_STRING_T,qbs_new_txt_len("D-",2),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24983);}while(r); +do{ +*_FUNC_N2S_LONG_EP=func_instr(NULL,_FUNC_N2S_STRING_T,qbs_new_txt_len("E+",2),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24984);}while(r); +do{ +*_FUNC_N2S_LONG_EM=func_instr(NULL,_FUNC_N2S_STRING_T,qbs_new_txt_len("E-",2),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24984);}while(r); +do{ +*_FUNC_N2S_LONG_CHECK1=func_sgn((int32)(*_FUNC_N2S_LONG_DP))+func_sgn((int32)(*_FUNC_N2S_LONG_DM))+func_sgn((int32)(*_FUNC_N2S_LONG_EP))+func_sgn((int32)(*_FUNC_N2S_LONG_EM)); +if(!qbevent)break;evnt(24985);}while(r); +S_33830:; +if (((-(*_FUNC_N2S_LONG_CHECK1< 1 ))|(-(*_FUNC_N2S_LONG_CHECK1> 1 )))||new_error){ +if(qbevent){evnt(24986);if(r)goto S_33830;} +do{ +qbs_set(_FUNC_N2S_STRING_N2S,_FUNC_N2S_STRING_EXP); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24986);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(24986);}while(r); +} +S_33834:; +if(qbevent){evnt(24988);if(r)goto S_33834;} +S_33835:; +if (((*_FUNC_N2S_LONG_L<(*_FUNC_N2S_LONG_DP)))||new_error){ +if(qbevent){evnt(24989);if(r)goto S_33835;} +do{ +*_FUNC_N2S_LONG_L=*_FUNC_N2S_LONG_DP; +if(!qbevent)break;evnt(24989);}while(r); +sc_ec_176_end:; +goto sc_3597_end; +} +S_33837:; +if (((*_FUNC_N2S_LONG_L<(*_FUNC_N2S_LONG_DM)))||new_error){ +if(qbevent){evnt(24990);if(r)goto S_33837;} +do{ +*_FUNC_N2S_LONG_L=*_FUNC_N2S_LONG_DM; +if(!qbevent)break;evnt(24990);}while(r); +sc_ec_177_end:; +goto sc_3597_end; +} +S_33839:; +if (((*_FUNC_N2S_LONG_L<(*_FUNC_N2S_LONG_EP)))||new_error){ +if(qbevent){evnt(24991);if(r)goto S_33839;} +do{ +*_FUNC_N2S_LONG_L=*_FUNC_N2S_LONG_EP; +if(!qbevent)break;evnt(24991);}while(r); +sc_ec_178_end:; +goto sc_3597_end; +} +S_33841:; +if (((*_FUNC_N2S_LONG_L<(*_FUNC_N2S_LONG_EM)))||new_error){ +if(qbevent){evnt(24992);if(r)goto S_33841;} +do{ +*_FUNC_N2S_LONG_L=*_FUNC_N2S_LONG_EM; +if(!qbevent)break;evnt(24992);}while(r); +sc_ec_179_end:; +goto sc_3597_end; +} +sc_3597_end:; +do{ +qbs_set(_FUNC_N2S_STRING_L,qbs_left(_FUNC_N2S_STRING_T,*_FUNC_N2S_LONG_L- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24995);}while(r); +do{ +qbs_set(_FUNC_N2S_STRING_R,func_mid(_FUNC_N2S_STRING_T,*_FUNC_N2S_LONG_L+ 1 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24996);}while(r); +do{ +*_FUNC_N2S_INTEGER64_R=qbr(func_val(_FUNC_N2S_STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(24996);}while(r); +S_33847:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_N2S_STRING_L,qbs_new_txt_len(".",1),0)))||new_error){ +if(qbevent){evnt(24999);if(r)goto S_33847;} +S_33848:; +if ((-(*_FUNC_N2S_INTEGER64_R> 0 ))||new_error){ +if(qbevent){evnt(25000);if(r)goto S_33848;} +do{ +*_FUNC_N2S_INTEGER64_R=*_FUNC_N2S_INTEGER64_R-_FUNC_N2S_STRING_L->len+ 2 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25001);}while(r); +}else{ +do{ +*_FUNC_N2S_INTEGER64_R=*_FUNC_N2S_INTEGER64_R+ 1 ; +if(!qbevent)break;evnt(25003);}while(r); +} +do{ +qbs_set(_FUNC_N2S_STRING_L,qbs_add(qbs_left(_FUNC_N2S_STRING_L, 1 ),func_mid(_FUNC_N2S_STRING_L, 3 ,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25005);}while(r); +} +S_33855:; +if(qbevent){evnt(25008);if(r)goto S_33855;} +S_33856:; +if (((*_FUNC_N2S_INTEGER64_R==( 0 )))||new_error){ +if(qbevent){evnt(25009);if(r)goto S_33856;} +sc_ec_180_end:; +goto sc_3599_end; +} +S_33857:; +if (((*_FUNC_N2S_INTEGER64_R<( 0 )))||new_error){ +if(qbevent){evnt(25011);if(r)goto S_33857;} +S_33858:; +fornext_value3601= 1 ; +fornext_finalvalue3601=-(*_FUNC_N2S_INTEGER64_R); +fornext_step3601= 1 ; +if (fornext_step3601<0) fornext_step_negative3601=1; else fornext_step_negative3601=0; +if (new_error) goto fornext_error3601; +goto fornext_entrylabel3601; +while(1){ +fornext_value3601=fornext_step3601+(*_FUNC_N2S_LONG_I); +fornext_entrylabel3601: +*_FUNC_N2S_LONG_I=fornext_value3601; +if (fornext_step_negative3601){ +if (fornext_value3601fornext_finalvalue3601) break; +} +fornext_error3601:; +if(qbevent){evnt(25012);if(r)goto S_33858;} +do{ +qbs_set(_FUNC_N2S_STRING_L,qbs_add(qbs_new_txt_len("0",1),_FUNC_N2S_STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25013);}while(r); +fornext_continue_3600:; +} +fornext_exit_3600:; +do{ +qbs_set(_FUNC_N2S_STRING_L,qbs_add(qbs_new_txt_len("0.",2),_FUNC_N2S_STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25015);}while(r); +sc_ec_181_end:; +goto sc_3599_end; +} +S_33863:; +fornext_value3603= 1 ; +fornext_finalvalue3603=*_FUNC_N2S_INTEGER64_R; +fornext_step3603= 1 ; +if (fornext_step3603<0) fornext_step_negative3603=1; else fornext_step_negative3603=0; +if (new_error) goto fornext_error3603; +goto fornext_entrylabel3603; +while(1){ +fornext_value3603=fornext_step3603+(*_FUNC_N2S_LONG_I); +fornext_entrylabel3603: +*_FUNC_N2S_LONG_I=fornext_value3603; +if (fornext_step_negative3603){ +if (fornext_value3603fornext_finalvalue3603) break; +} +fornext_error3603:; +if(qbevent){evnt(25017);if(r)goto S_33863;} +do{ +qbs_set(_FUNC_N2S_STRING_L,qbs_add(_FUNC_N2S_STRING_L,qbs_new_txt_len("0",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25018);}while(r); +fornext_continue_3602:; +} +fornext_exit_3602:; +sc_3599_end:; +do{ +qbs_set(_FUNC_N2S_STRING_N2S,qbs_add(_FUNC_N2S_STRING_SIGN,_FUNC_N2S_STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25022);}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free75.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_N2S_STRING_N2S);return _FUNC_N2S_STRING_N2S; +} +qbs* FUNC_QUOTEDFILENAME(qbs*_FUNC_QUOTEDFILENAME_STRING_F){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data76.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +S_33868:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ +if(qbevent){evnt(25028);if(r)goto S_33868;} +do{ +qbs_set(_FUNC_QUOTEDFILENAME_STRING_QUOTEDFILENAME,qbs_add(qbs_add(func_chr( 34 ),_FUNC_QUOTEDFILENAME_STRING_F),func_chr( 34 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25029);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(25030);}while(r); +} +S_33872:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ +if(qbevent){evnt(25033);if(r)goto S_33872;} +do{ +qbs_set(_FUNC_QUOTEDFILENAME_STRING_QUOTEDFILENAME,qbs_add(qbs_add(qbs_new_txt_len("'",1),_FUNC_QUOTEDFILENAME_STRING_F),qbs_new_txt_len("'",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25034);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(25035);}while(r); +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free76.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_QUOTEDFILENAME_STRING_QUOTEDFILENAME);return _FUNC_QUOTEDFILENAME_STRING_QUOTEDFILENAME; +} +int32 FUNC_HASHVALUE(qbs*_FUNC_HASHVALUE_STRING_A){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data77.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +*_FUNC_HASHVALUE_LONG_L=_FUNC_HASHVALUE_STRING_A->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25043);}while(r); +S_33877:; +if ((-(*_FUNC_HASHVALUE_LONG_L== 0 ))||new_error){ +if(qbevent){evnt(25044);if(r)goto S_33877;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(25044);}while(r); +} +do{ +*_FUNC_HASHVALUE_LONG_A=qbs_asc(_FUNC_HASHVALUE_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25045);}while(r); +S_33881:; +if ((-(*_FUNC_HASHVALUE_LONG_A!= 95 ))||new_error){ +if(qbevent){evnt(25046);if(r)goto S_33881;} +S_33882:; +if(qbevent){evnt(25047);if(r)goto S_33882;} +S_33883:; +if (((*_FUNC_HASHVALUE_LONG_L==( 1 )))||new_error){ +if(qbevent){evnt(25048);if(r)goto S_33883;} +do{ +*_FUNC_HASHVALUE_LONG_HASHVALUE=((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[array_check((*_FUNC_HASHVALUE_LONG_A)-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5])]+ 1048576 ; +if(!qbevent)break;evnt(25049);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(25050);}while(r); +sc_ec_182_end:; +goto sc_3607_end; +} +S_33886:; +if (((*_FUNC_HASHVALUE_LONG_L==( 2 )))||new_error){ +if(qbevent){evnt(25051);if(r)goto S_33886;} +do{ +*_FUNC_HASHVALUE_LONG_HASHVALUE=((int16*)(__ARRAY_INTEGER_HASH2CHAR[0]))[array_check((string2i(_FUNC_HASHVALUE_STRING_A))-__ARRAY_INTEGER_HASH2CHAR[4],__ARRAY_INTEGER_HASH2CHAR[5])]+ 2097152 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25052);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(25053);}while(r); +sc_ec_183_end:; +goto sc_3607_end; +} +S_33889:; +if (((*_FUNC_HASHVALUE_LONG_L==( 3 )))||new_error){ +if(qbevent){evnt(25054);if(r)goto S_33889;} +do{ +*_FUNC_HASHVALUE_LONG_HASHVALUE=((int16*)(__ARRAY_INTEGER_HASH2CHAR[0]))[array_check((string2i(_FUNC_HASHVALUE_STRING_A))-__ARRAY_INTEGER_HASH2CHAR[4],__ARRAY_INTEGER_HASH2CHAR[5])]+(((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[array_check((qbs_asc(_FUNC_HASHVALUE_STRING_A, 3 ))-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5])]* 1024 )+( 3145728 ); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25055);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(25056);}while(r); +sc_ec_184_end:; +goto sc_3607_end; +} +do{ +*_FUNC_HASHVALUE_LONG_HASHVALUE=((int16*)(__ARRAY_INTEGER_HASH2CHAR[0]))[array_check((string2i(_FUNC_HASHVALUE_STRING_A))-__ARRAY_INTEGER_HASH2CHAR[4],__ARRAY_INTEGER_HASH2CHAR[5])]+(((int16*)(__ARRAY_INTEGER_HASH2CHAR[0]))[array_check(((qbs_asc(_FUNC_HASHVALUE_STRING_A,*_FUNC_HASHVALUE_LONG_L))+(qbs_asc(_FUNC_HASHVALUE_STRING_A,*_FUNC_HASHVALUE_LONG_L- 1 )* 256 ))-__ARRAY_INTEGER_HASH2CHAR[4],__ARRAY_INTEGER_HASH2CHAR[5])]* 1024 )+((*_FUNC_HASHVALUE_LONG_L& 7 )* 1048576 ); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25058);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(25059);}while(r); +sc_3607_end:; +}else{ +S_33897:; +if(qbevent){evnt(25062);if(r)goto S_33897;} +S_33898:; +if (((*_FUNC_HASHVALUE_LONG_L==( 1 )))||new_error){ +if(qbevent){evnt(25063);if(r)goto S_33898;} +do{ +*_FUNC_HASHVALUE_LONG_HASHVALUE=( 1048576 + 8388608 ); +if(!qbevent)break;evnt(25064);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(25064);}while(r); +sc_ec_185_end:; +goto sc_3608_end; +} +S_33901:; +if (((*_FUNC_HASHVALUE_LONG_L==( 2 )))||new_error){ +if(qbevent){evnt(25065);if(r)goto S_33901;} +do{ +*_FUNC_HASHVALUE_LONG_HASHVALUE=((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[array_check((qbs_asc(_FUNC_HASHVALUE_STRING_A, 2 ))-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5])]+( 2097152 + 8388608 ); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25066);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(25067);}while(r); +sc_ec_186_end:; +goto sc_3608_end; +} +S_33904:; +if (((*_FUNC_HASHVALUE_LONG_L==( 3 )))||new_error){ +if(qbevent){evnt(25068);if(r)goto S_33904;} +do{ +*_FUNC_HASHVALUE_LONG_HASHVALUE=((int16*)(__ARRAY_INTEGER_HASH2CHAR[0]))[array_check(((qbs_asc(_FUNC_HASHVALUE_STRING_A, 2 ))+(qbs_asc(_FUNC_HASHVALUE_STRING_A, 3 )* 256 ))-__ARRAY_INTEGER_HASH2CHAR[4],__ARRAY_INTEGER_HASH2CHAR[5])]+( 3145728 + 8388608 ); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25069);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(25070);}while(r); +sc_ec_187_end:; +goto sc_3608_end; +} +S_33907:; +if (((*_FUNC_HASHVALUE_LONG_L==( 4 )))||new_error){ +if(qbevent){evnt(25071);if(r)goto S_33907;} +do{ +*_FUNC_HASHVALUE_LONG_HASHVALUE=((int16*)(__ARRAY_INTEGER_HASH2CHAR[0]))[array_check(((string2l(_FUNC_HASHVALUE_STRING_A)& 16776960 )/ 256 )-__ARRAY_INTEGER_HASH2CHAR[4],__ARRAY_INTEGER_HASH2CHAR[5])]+(((int16*)(__ARRAY_INTEGER_HASH1CHAR[0]))[array_check((qbs_asc(_FUNC_HASHVALUE_STRING_A, 4 ))-__ARRAY_INTEGER_HASH1CHAR[4],__ARRAY_INTEGER_HASH1CHAR[5])]* 1024 )+(( 4194304 + 8388608 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25072);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(25073);}while(r); +sc_ec_188_end:; +goto sc_3608_end; +} +do{ +*_FUNC_HASHVALUE_LONG_HASHVALUE=((int16*)(__ARRAY_INTEGER_HASH2CHAR[0]))[array_check(((string2l(_FUNC_HASHVALUE_STRING_A)& 16776960 )/ 256 )-__ARRAY_INTEGER_HASH2CHAR[4],__ARRAY_INTEGER_HASH2CHAR[5])]+(((int16*)(__ARRAY_INTEGER_HASH2CHAR[0]))[array_check(((qbs_asc(_FUNC_HASHVALUE_STRING_A,*_FUNC_HASHVALUE_LONG_L))+(qbs_asc(_FUNC_HASHVALUE_STRING_A,*_FUNC_HASHVALUE_LONG_L- 1 )* 256 ))-__ARRAY_INTEGER_HASH2CHAR[4],__ARRAY_INTEGER_HASH2CHAR[5])]* 1024 )+((*_FUNC_HASHVALUE_LONG_L& 7 )* 1048576 )+( 8388608 ); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25075);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(25076);}while(r); +sc_3608_end:; +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free77.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +return *_FUNC_HASHVALUE_LONG_HASHVALUE; +} +void SUB_HASHADD(qbs*_SUB_HASHADD_STRING_A,int32*_SUB_HASHADD_LONG_FLAGS,int32*_SUB_HASHADD_LONG_REFERENCE){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data78.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +S_33915:; +if ((-(*__LONG_HASHLISTFREELAST> 0 ))||new_error){ +if(qbevent){evnt(25084);if(r)goto S_33915;} +do{ +*_SUB_HASHADD_LONG_I=((int32*)(__ARRAY_LONG_HASHLISTFREE[0]))[array_check((*__LONG_HASHLISTFREELAST)-__ARRAY_LONG_HASHLISTFREE[4],__ARRAY_LONG_HASHLISTFREE[5])]; +if(!qbevent)break;evnt(25086);}while(r); +do{ +*__LONG_HASHLISTFREELAST=*__LONG_HASHLISTFREELAST- 1 ; +if(!qbevent)break;evnt(25087);}while(r); +}else{ +S_33919:; +if ((-(*__LONG_HASHLISTNEXT>*__LONG_HASHLISTSIZE))||new_error){ +if(qbevent){evnt(25089);if(r)goto S_33919;} +do{ +*__LONG_HASHLISTSIZE=*__LONG_HASHLISTSIZE* 2 ; +if(!qbevent)break;evnt(25091);}while(r); +do{ if (__ARRAY_UDT_HASHLIST[2]&2){ error(10); @@ -111786,9 +111786,9 @@ if (!__ARRAY_UDT_HASHLIST[0]) error(257); } } __ARRAY_UDT_HASHLIST[2]|=1; -} -if(!qbevent)break;evnt(25092);}while(r); -do{ +} +if(!qbevent)break;evnt(25092);}while(r); +do{ if (__ARRAY_STRING256_HASHLISTNAME[2]&2){ error(10); @@ -111826,452 +111826,452 @@ if (!__ARRAY_STRING256_HASHLISTNAME[0]) error(257); } } __ARRAY_STRING256_HASHLISTNAME[2]|=1; -} -if(!qbevent)break;evnt(25093);}while(r); -} -do{ -*_SUB_HASHADD_LONG_I=*__LONG_HASHLISTNEXT; -if(!qbevent)break;evnt(25095);}while(r); -do{ -*__LONG_HASHLISTNEXT=*__LONG_HASHLISTNEXT+ 1 ; -if(!qbevent)break;evnt(25096);}while(r); -} -do{ -*_SUB_HASHADD_LONG_X=FUNC_HASHVALUE(_SUB_HASHADD_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25100);}while(r); -do{ -*_SUB_HASHADD_LONG_I2=((int32*)(__ARRAY_LONG_HASHTABLE[0]))[array_check((*_SUB_HASHADD_LONG_X)-__ARRAY_LONG_HASHTABLE[4],__ARRAY_LONG_HASHTABLE[5])]; -if(!qbevent)break;evnt(25101);}while(r); -S_33929:; -if ((*_SUB_HASHADD_LONG_I2)||new_error){ -if(qbevent){evnt(25102);if(r)goto S_33929;} -do{ -*_SUB_HASHADD_LONG_I3=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHADD_LONG_I2)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+16)); -if(!qbevent)break;evnt(25103);}while(r); -do{ -*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHADD_LONG_I2)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+16))=*_SUB_HASHADD_LONG_I; -if(!qbevent)break;evnt(25104);}while(r); -do{ -*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHADD_LONG_I3)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+8))=*_SUB_HASHADD_LONG_I; -if(!qbevent)break;evnt(25105);}while(r); -do{ -*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHADD_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+12))=*_SUB_HASHADD_LONG_I3; -if(!qbevent)break;evnt(25106);}while(r); -}else{ -do{ -tmp_long=array_check((*_SUB_HASHADD_LONG_X)-__ARRAY_LONG_HASHTABLE[4],__ARRAY_LONG_HASHTABLE[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_HASHTABLE[0]))[tmp_long]=*_SUB_HASHADD_LONG_I; -if(!qbevent)break;evnt(25108);}while(r); -do{ -*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHADD_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+12))= 0 ; -if(!qbevent)break;evnt(25109);}while(r); -do{ -*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHADD_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+16))=*_SUB_HASHADD_LONG_I; -if(!qbevent)break;evnt(25110);}while(r); -} -do{ -*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHADD_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+8))= 0 ; -if(!qbevent)break;evnt(25112);}while(r); -do{ -*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHADD_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20))=*_SUB_HASHADD_LONG_FLAGS; -if(!qbevent)break;evnt(25115);}while(r); -do{ -*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHADD_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+4))=*_SUB_HASHADD_LONG_REFERENCE; -if(!qbevent)break;evnt(25116);}while(r); -do{ -tmp_long=array_check((*_SUB_HASHADD_LONG_I)-__ARRAY_STRING256_HASHLISTNAME[4],__ARRAY_STRING256_HASHLISTNAME[5]); -if (!new_error) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_HASHLISTNAME[0]))[tmp_long*256],256,1),qbs_ucase(_SUB_HASHADD_STRING_A)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25117);}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free78.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -int32 FUNC_HASHFIND(qbs*_FUNC_HASHFIND_STRING_A,int32*_FUNC_HASHFIND_LONG_SEARCHFLAGS,int32*_FUNC_HASHFIND_LONG_RESULTFLAGS,int32*_FUNC_HASHFIND_LONG_RESULTREFERENCE){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data79.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -*_FUNC_HASHFIND_LONG_I=((int32*)(__ARRAY_LONG_HASHTABLE[0]))[array_check((FUNC_HASHVALUE(_FUNC_HASHFIND_STRING_A))-__ARRAY_LONG_HASHTABLE[4],__ARRAY_LONG_HASHTABLE[5])]; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25126);}while(r); -S_33944:; -if ((*_FUNC_HASHFIND_LONG_I)||new_error){ -if(qbevent){evnt(25127);if(r)goto S_33944;} -do{ -qbs_set(_FUNC_HASHFIND_STRING_UA,qbs_add(qbs_ucase(_FUNC_HASHFIND_STRING_A),func_space( 256 -_FUNC_HASHFIND_STRING_A->len))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25128);}while(r); -LABEL_HASHFIND_NEXT:; -if(qbevent){evnt(25129);r=0;} -do{ -*_FUNC_HASHFIND_LONG_F=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_FUNC_HASHFIND_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20)); -if(!qbevent)break;evnt(25130);}while(r); -S_33947:; -if ((*_FUNC_HASHFIND_LONG_SEARCHFLAGS&*_FUNC_HASHFIND_LONG_F)||new_error){ -if(qbevent){evnt(25131);if(r)goto S_33947;} -S_33948:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_HASHLISTNAME[0]))[(array_check((*_FUNC_HASHFIND_LONG_I)-__ARRAY_STRING256_HASHLISTNAME[4],__ARRAY_STRING256_HASHLISTNAME[5]))*256],256,1),_FUNC_HASHFIND_STRING_UA)))||new_error){ -if(qbevent){evnt(25132);if(r)goto S_33948;} -do{ -*_FUNC_HASHFIND_LONG_RESULTFLAGS=*_FUNC_HASHFIND_LONG_F; -if(!qbevent)break;evnt(25133);}while(r); -do{ -*_FUNC_HASHFIND_LONG_RESULTREFERENCE=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_FUNC_HASHFIND_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+4)); -if(!qbevent)break;evnt(25134);}while(r); -do{ -*_FUNC_HASHFIND_LONG_I2=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_FUNC_HASHFIND_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+8)); -if(!qbevent)break;evnt(25135);}while(r); -S_33952:; -if ((*_FUNC_HASHFIND_LONG_I2)||new_error){ -if(qbevent){evnt(25136);if(r)goto S_33952;} -do{ -*_FUNC_HASHFIND_LONG_HASHFIND= 2 ; -if(!qbevent)break;evnt(25137);}while(r); -do{ -*__LONG_HASHFIND_NEXTLISTITEM=*_FUNC_HASHFIND_LONG_I2; -if(!qbevent)break;evnt(25138);}while(r); -do{ -*__LONG_HASHFIND_REVERSE= 0 ; -if(!qbevent)break;evnt(25139);}while(r); -do{ -*__LONG_HASHFIND_SEARCHFLAGS=*_FUNC_HASHFIND_LONG_SEARCHFLAGS; -if(!qbevent)break;evnt(25140);}while(r); -do{ -qbs_set(__STRING_HASHFIND_NAME,_FUNC_HASHFIND_STRING_UA); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25141);}while(r); -do{ -*__LONG_HASHREMOVE_LASTFOUND=*_FUNC_HASHFIND_LONG_I; -if(!qbevent)break;evnt(25142);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25143);}while(r); -}else{ -do{ -*_FUNC_HASHFIND_LONG_HASHFIND= 1 ; -if(!qbevent)break;evnt(25145);}while(r); -do{ -*__LONG_HASHREMOVE_LASTFOUND=*_FUNC_HASHFIND_LONG_I; -if(!qbevent)break;evnt(25146);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25147);}while(r); -} -} -} -do{ -*_FUNC_HASHFIND_LONG_I=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_FUNC_HASHFIND_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+8)); -if(!qbevent)break;evnt(25151);}while(r); -S_33968:; -if ((*_FUNC_HASHFIND_LONG_I)||new_error){ -if(qbevent){evnt(25152);if(r)goto S_33968;} -do{ -goto LABEL_HASHFIND_NEXT; -if(!qbevent)break;evnt(25152);}while(r); -} -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free79.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -return *_FUNC_HASHFIND_LONG_HASHFIND; -} -int32 FUNC_HASHFINDREV(qbs*_FUNC_HASHFINDREV_STRING_A,int32*_FUNC_HASHFINDREV_LONG_SEARCHFLAGS,int32*_FUNC_HASHFINDREV_LONG_RESULTFLAGS,int32*_FUNC_HASHFINDREV_LONG_RESULTREFERENCE){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data80.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -*_FUNC_HASHFINDREV_LONG_I=((int32*)(__ARRAY_LONG_HASHTABLE[0]))[array_check((FUNC_HASHVALUE(_FUNC_HASHFINDREV_STRING_A))-__ARRAY_LONG_HASHTABLE[4],__ARRAY_LONG_HASHTABLE[5])]; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25161);}while(r); -S_33973:; -if ((*_FUNC_HASHFINDREV_LONG_I)||new_error){ -if(qbevent){evnt(25162);if(r)goto S_33973;} -do{ -*_FUNC_HASHFINDREV_LONG_I=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_FUNC_HASHFINDREV_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+16)); -if(!qbevent)break;evnt(25163);}while(r); -do{ -qbs_set(_FUNC_HASHFINDREV_STRING_UA,qbs_add(qbs_ucase(_FUNC_HASHFINDREV_STRING_A),func_space( 256 -_FUNC_HASHFINDREV_STRING_A->len))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25164);}while(r); -LABEL_HASHFINDREV_NEXT:; -if(qbevent){evnt(25165);r=0;} -do{ -*_FUNC_HASHFINDREV_LONG_F=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_FUNC_HASHFINDREV_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20)); -if(!qbevent)break;evnt(25166);}while(r); -S_33977:; -if ((*_FUNC_HASHFINDREV_LONG_SEARCHFLAGS&*_FUNC_HASHFINDREV_LONG_F)||new_error){ -if(qbevent){evnt(25167);if(r)goto S_33977;} -S_33978:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_HASHLISTNAME[0]))[(array_check((*_FUNC_HASHFINDREV_LONG_I)-__ARRAY_STRING256_HASHLISTNAME[4],__ARRAY_STRING256_HASHLISTNAME[5]))*256],256,1),_FUNC_HASHFINDREV_STRING_UA)))||new_error){ -if(qbevent){evnt(25168);if(r)goto S_33978;} -do{ -*_FUNC_HASHFINDREV_LONG_RESULTFLAGS=*_FUNC_HASHFINDREV_LONG_F; -if(!qbevent)break;evnt(25169);}while(r); -do{ -*_FUNC_HASHFINDREV_LONG_RESULTREFERENCE=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_FUNC_HASHFINDREV_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+4)); -if(!qbevent)break;evnt(25170);}while(r); -do{ -*_FUNC_HASHFINDREV_LONG_I2=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_FUNC_HASHFINDREV_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+12)); -if(!qbevent)break;evnt(25171);}while(r); -S_33982:; -if ((*_FUNC_HASHFINDREV_LONG_I2)||new_error){ -if(qbevent){evnt(25172);if(r)goto S_33982;} -do{ -*_FUNC_HASHFINDREV_LONG_HASHFINDREV= 2 ; -if(!qbevent)break;evnt(25173);}while(r); -do{ -*__LONG_HASHFIND_NEXTLISTITEM=*_FUNC_HASHFINDREV_LONG_I2; -if(!qbevent)break;evnt(25174);}while(r); -do{ -*__LONG_HASHFIND_REVERSE= 1 ; -if(!qbevent)break;evnt(25175);}while(r); -do{ -*__LONG_HASHFIND_SEARCHFLAGS=*_FUNC_HASHFINDREV_LONG_SEARCHFLAGS; -if(!qbevent)break;evnt(25176);}while(r); -do{ -qbs_set(__STRING_HASHFIND_NAME,_FUNC_HASHFINDREV_STRING_UA); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25177);}while(r); -do{ -*__LONG_HASHREMOVE_LASTFOUND=*_FUNC_HASHFINDREV_LONG_I; -if(!qbevent)break;evnt(25178);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25179);}while(r); -}else{ -do{ -*_FUNC_HASHFINDREV_LONG_HASHFINDREV= 1 ; -if(!qbevent)break;evnt(25181);}while(r); -do{ -*__LONG_HASHREMOVE_LASTFOUND=*_FUNC_HASHFINDREV_LONG_I; -if(!qbevent)break;evnt(25182);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25183);}while(r); -} -} -} -do{ -*_FUNC_HASHFINDREV_LONG_I=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_FUNC_HASHFINDREV_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+12)); -if(!qbevent)break;evnt(25187);}while(r); -S_33998:; -if ((*_FUNC_HASHFINDREV_LONG_I)||new_error){ -if(qbevent){evnt(25188);if(r)goto S_33998;} -do{ -goto LABEL_HASHFINDREV_NEXT; -if(!qbevent)break;evnt(25188);}while(r); -} -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free80.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -return *_FUNC_HASHFINDREV_LONG_HASHFINDREV; -} -int32 FUNC_HASHFINDCONT(int32*_FUNC_HASHFINDCONT_LONG_RESULTFLAGS,int32*_FUNC_HASHFINDCONT_LONG_RESULTREFERENCE){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data81.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -S_34002:; -if ((*__LONG_HASHFIND_REVERSE)||new_error){ -if(qbevent){evnt(25197);if(r)goto S_34002;} -do{ -*_FUNC_HASHFINDCONT_LONG_I=*__LONG_HASHFIND_NEXTLISTITEM; -if(!qbevent)break;evnt(25199);}while(r); -LABEL_HASHFINDREVC_NEXT:; -if(qbevent){evnt(25200);r=0;} -do{ -*_FUNC_HASHFINDCONT_LONG_F=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_FUNC_HASHFINDCONT_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20)); -if(!qbevent)break;evnt(25201);}while(r); -S_34005:; -if ((*__LONG_HASHFIND_SEARCHFLAGS&*_FUNC_HASHFINDCONT_LONG_F)||new_error){ -if(qbevent){evnt(25202);if(r)goto S_34005;} -S_34006:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_HASHLISTNAME[0]))[(array_check((*_FUNC_HASHFINDCONT_LONG_I)-__ARRAY_STRING256_HASHLISTNAME[4],__ARRAY_STRING256_HASHLISTNAME[5]))*256],256,1),__STRING_HASHFIND_NAME)))||new_error){ -if(qbevent){evnt(25203);if(r)goto S_34006;} -do{ -*_FUNC_HASHFINDCONT_LONG_RESULTFLAGS=*_FUNC_HASHFINDCONT_LONG_F; -if(!qbevent)break;evnt(25204);}while(r); -do{ -*_FUNC_HASHFINDCONT_LONG_RESULTREFERENCE=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_FUNC_HASHFINDCONT_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+4)); -if(!qbevent)break;evnt(25205);}while(r); -do{ -*_FUNC_HASHFINDCONT_LONG_I2=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_FUNC_HASHFINDCONT_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+12)); -if(!qbevent)break;evnt(25206);}while(r); -S_34010:; -if ((*_FUNC_HASHFINDCONT_LONG_I2)||new_error){ -if(qbevent){evnt(25207);if(r)goto S_34010;} -do{ -*_FUNC_HASHFINDCONT_LONG_HASHFINDCONT= 2 ; -if(!qbevent)break;evnt(25208);}while(r); -do{ -*__LONG_HASHFIND_NEXTLISTITEM=*_FUNC_HASHFINDCONT_LONG_I2; -if(!qbevent)break;evnt(25209);}while(r); -do{ -*__LONG_HASHREMOVE_LASTFOUND=*_FUNC_HASHFINDCONT_LONG_I; -if(!qbevent)break;evnt(25210);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25211);}while(r); -}else{ -do{ -*_FUNC_HASHFINDCONT_LONG_HASHFINDCONT= 1 ; -if(!qbevent)break;evnt(25213);}while(r); -do{ -*__LONG_HASHREMOVE_LASTFOUND=*_FUNC_HASHFINDCONT_LONG_I; -if(!qbevent)break;evnt(25214);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25215);}while(r); -} -} -} -do{ -*_FUNC_HASHFINDCONT_LONG_I=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_FUNC_HASHFINDCONT_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+12)); -if(!qbevent)break;evnt(25219);}while(r); -S_34023:; -if ((*_FUNC_HASHFINDCONT_LONG_I)||new_error){ -if(qbevent){evnt(25220);if(r)goto S_34023;} -do{ -goto LABEL_HASHFINDREVC_NEXT; -if(!qbevent)break;evnt(25220);}while(r); -} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25221);}while(r); -}else{ -do{ -*_FUNC_HASHFINDCONT_LONG_I=*__LONG_HASHFIND_NEXTLISTITEM; -if(!qbevent)break;evnt(25225);}while(r); -LABEL_HASHFINDC_NEXT:; -if(qbevent){evnt(25226);r=0;} -do{ -*_FUNC_HASHFINDCONT_LONG_F=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_FUNC_HASHFINDCONT_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20)); -if(!qbevent)break;evnt(25227);}while(r); -S_34030:; -if ((*__LONG_HASHFIND_SEARCHFLAGS&*_FUNC_HASHFINDCONT_LONG_F)||new_error){ -if(qbevent){evnt(25228);if(r)goto S_34030;} -S_34031:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_HASHLISTNAME[0]))[(array_check((*_FUNC_HASHFINDCONT_LONG_I)-__ARRAY_STRING256_HASHLISTNAME[4],__ARRAY_STRING256_HASHLISTNAME[5]))*256],256,1),__STRING_HASHFIND_NAME)))||new_error){ -if(qbevent){evnt(25229);if(r)goto S_34031;} -do{ -*_FUNC_HASHFINDCONT_LONG_RESULTFLAGS=*_FUNC_HASHFINDCONT_LONG_F; -if(!qbevent)break;evnt(25230);}while(r); -do{ -*_FUNC_HASHFINDCONT_LONG_RESULTREFERENCE=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_FUNC_HASHFINDCONT_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+4)); -if(!qbevent)break;evnt(25231);}while(r); -do{ -*_FUNC_HASHFINDCONT_LONG_I2=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_FUNC_HASHFINDCONT_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+8)); -if(!qbevent)break;evnt(25232);}while(r); -S_34035:; -if ((*_FUNC_HASHFINDCONT_LONG_I2)||new_error){ -if(qbevent){evnt(25233);if(r)goto S_34035;} -do{ -*_FUNC_HASHFINDCONT_LONG_HASHFINDCONT= 2 ; -if(!qbevent)break;evnt(25234);}while(r); -do{ -*__LONG_HASHFIND_NEXTLISTITEM=*_FUNC_HASHFINDCONT_LONG_I2; -if(!qbevent)break;evnt(25235);}while(r); -do{ -*__LONG_HASHREMOVE_LASTFOUND=*_FUNC_HASHFINDCONT_LONG_I; -if(!qbevent)break;evnt(25236);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25237);}while(r); -}else{ -do{ -*_FUNC_HASHFINDCONT_LONG_HASHFINDCONT= 1 ; -if(!qbevent)break;evnt(25239);}while(r); -do{ -*__LONG_HASHREMOVE_LASTFOUND=*_FUNC_HASHFINDCONT_LONG_I; -if(!qbevent)break;evnt(25240);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25241);}while(r); -} -} -} -do{ -*_FUNC_HASHFINDCONT_LONG_I=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_FUNC_HASHFINDCONT_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+8)); -if(!qbevent)break;evnt(25245);}while(r); -S_34048:; -if ((*_FUNC_HASHFINDCONT_LONG_I)||new_error){ -if(qbevent){evnt(25246);if(r)goto S_34048;} -do{ -goto LABEL_HASHFINDC_NEXT; -if(!qbevent)break;evnt(25246);}while(r); -} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25247);}while(r); -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free81.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -return *_FUNC_HASHFINDCONT_LONG_HASHFINDCONT; -} -void SUB_HASHREMOVE(){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data82.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -*_SUB_HASHREMOVE_LONG_I=*__LONG_HASHREMOVE_LASTFOUND; -if(!qbevent)break;evnt(25254);}while(r); -do{ -*__LONG_HASHLISTFREELAST=*__LONG_HASHLISTFREELAST+ 1 ; -if(!qbevent)break;evnt(25257);}while(r); -S_34055:; -if ((-(*__LONG_HASHLISTFREELAST>*__LONG_HASHLISTFREESIZE))||new_error){ -if(qbevent){evnt(25258);if(r)goto S_34055;} -do{ -*__LONG_HASHLISTFREESIZE=*__LONG_HASHLISTFREESIZE* 2 ; -if(!qbevent)break;evnt(25259);}while(r); -do{ +} +if(!qbevent)break;evnt(25093);}while(r); +} +do{ +*_SUB_HASHADD_LONG_I=*__LONG_HASHLISTNEXT; +if(!qbevent)break;evnt(25095);}while(r); +do{ +*__LONG_HASHLISTNEXT=*__LONG_HASHLISTNEXT+ 1 ; +if(!qbevent)break;evnt(25096);}while(r); +} +do{ +*_SUB_HASHADD_LONG_X=FUNC_HASHVALUE(_SUB_HASHADD_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25100);}while(r); +do{ +*_SUB_HASHADD_LONG_I2=((int32*)(__ARRAY_LONG_HASHTABLE[0]))[array_check((*_SUB_HASHADD_LONG_X)-__ARRAY_LONG_HASHTABLE[4],__ARRAY_LONG_HASHTABLE[5])]; +if(!qbevent)break;evnt(25101);}while(r); +S_33929:; +if ((*_SUB_HASHADD_LONG_I2)||new_error){ +if(qbevent){evnt(25102);if(r)goto S_33929;} +do{ +*_SUB_HASHADD_LONG_I3=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHADD_LONG_I2)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+16)); +if(!qbevent)break;evnt(25103);}while(r); +do{ +*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHADD_LONG_I2)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+16))=*_SUB_HASHADD_LONG_I; +if(!qbevent)break;evnt(25104);}while(r); +do{ +*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHADD_LONG_I3)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+8))=*_SUB_HASHADD_LONG_I; +if(!qbevent)break;evnt(25105);}while(r); +do{ +*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHADD_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+12))=*_SUB_HASHADD_LONG_I3; +if(!qbevent)break;evnt(25106);}while(r); +}else{ +do{ +tmp_long=array_check((*_SUB_HASHADD_LONG_X)-__ARRAY_LONG_HASHTABLE[4],__ARRAY_LONG_HASHTABLE[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_HASHTABLE[0]))[tmp_long]=*_SUB_HASHADD_LONG_I; +if(!qbevent)break;evnt(25108);}while(r); +do{ +*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHADD_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+12))= 0 ; +if(!qbevent)break;evnt(25109);}while(r); +do{ +*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHADD_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+16))=*_SUB_HASHADD_LONG_I; +if(!qbevent)break;evnt(25110);}while(r); +} +do{ +*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHADD_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+8))= 0 ; +if(!qbevent)break;evnt(25112);}while(r); +do{ +*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHADD_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20))=*_SUB_HASHADD_LONG_FLAGS; +if(!qbevent)break;evnt(25115);}while(r); +do{ +*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHADD_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+4))=*_SUB_HASHADD_LONG_REFERENCE; +if(!qbevent)break;evnt(25116);}while(r); +do{ +tmp_long=array_check((*_SUB_HASHADD_LONG_I)-__ARRAY_STRING256_HASHLISTNAME[4],__ARRAY_STRING256_HASHLISTNAME[5]); +if (!new_error) qbs_set(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_HASHLISTNAME[0]))[tmp_long*256],256,1),qbs_ucase(_SUB_HASHADD_STRING_A)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25117);}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free78.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +int32 FUNC_HASHFIND(qbs*_FUNC_HASHFIND_STRING_A,int32*_FUNC_HASHFIND_LONG_SEARCHFLAGS,int32*_FUNC_HASHFIND_LONG_RESULTFLAGS,int32*_FUNC_HASHFIND_LONG_RESULTREFERENCE){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data79.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +*_FUNC_HASHFIND_LONG_I=((int32*)(__ARRAY_LONG_HASHTABLE[0]))[array_check((FUNC_HASHVALUE(_FUNC_HASHFIND_STRING_A))-__ARRAY_LONG_HASHTABLE[4],__ARRAY_LONG_HASHTABLE[5])]; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25126);}while(r); +S_33944:; +if ((*_FUNC_HASHFIND_LONG_I)||new_error){ +if(qbevent){evnt(25127);if(r)goto S_33944;} +do{ +qbs_set(_FUNC_HASHFIND_STRING_UA,qbs_add(qbs_ucase(_FUNC_HASHFIND_STRING_A),func_space( 256 -_FUNC_HASHFIND_STRING_A->len))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25128);}while(r); +LABEL_HASHFIND_NEXT:; +if(qbevent){evnt(25129);r=0;} +do{ +*_FUNC_HASHFIND_LONG_F=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_FUNC_HASHFIND_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20)); +if(!qbevent)break;evnt(25130);}while(r); +S_33947:; +if ((*_FUNC_HASHFIND_LONG_SEARCHFLAGS&*_FUNC_HASHFIND_LONG_F)||new_error){ +if(qbevent){evnt(25131);if(r)goto S_33947;} +S_33948:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_HASHLISTNAME[0]))[(array_check((*_FUNC_HASHFIND_LONG_I)-__ARRAY_STRING256_HASHLISTNAME[4],__ARRAY_STRING256_HASHLISTNAME[5]))*256],256,1),_FUNC_HASHFIND_STRING_UA)))||new_error){ +if(qbevent){evnt(25132);if(r)goto S_33948;} +do{ +*_FUNC_HASHFIND_LONG_RESULTFLAGS=*_FUNC_HASHFIND_LONG_F; +if(!qbevent)break;evnt(25133);}while(r); +do{ +*_FUNC_HASHFIND_LONG_RESULTREFERENCE=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_FUNC_HASHFIND_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+4)); +if(!qbevent)break;evnt(25134);}while(r); +do{ +*_FUNC_HASHFIND_LONG_I2=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_FUNC_HASHFIND_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+8)); +if(!qbevent)break;evnt(25135);}while(r); +S_33952:; +if ((*_FUNC_HASHFIND_LONG_I2)||new_error){ +if(qbevent){evnt(25136);if(r)goto S_33952;} +do{ +*_FUNC_HASHFIND_LONG_HASHFIND= 2 ; +if(!qbevent)break;evnt(25137);}while(r); +do{ +*__LONG_HASHFIND_NEXTLISTITEM=*_FUNC_HASHFIND_LONG_I2; +if(!qbevent)break;evnt(25138);}while(r); +do{ +*__LONG_HASHFIND_REVERSE= 0 ; +if(!qbevent)break;evnt(25139);}while(r); +do{ +*__LONG_HASHFIND_SEARCHFLAGS=*_FUNC_HASHFIND_LONG_SEARCHFLAGS; +if(!qbevent)break;evnt(25140);}while(r); +do{ +qbs_set(__STRING_HASHFIND_NAME,_FUNC_HASHFIND_STRING_UA); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25141);}while(r); +do{ +*__LONG_HASHREMOVE_LASTFOUND=*_FUNC_HASHFIND_LONG_I; +if(!qbevent)break;evnt(25142);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(25143);}while(r); +}else{ +do{ +*_FUNC_HASHFIND_LONG_HASHFIND= 1 ; +if(!qbevent)break;evnt(25145);}while(r); +do{ +*__LONG_HASHREMOVE_LASTFOUND=*_FUNC_HASHFIND_LONG_I; +if(!qbevent)break;evnt(25146);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(25147);}while(r); +} +} +} +do{ +*_FUNC_HASHFIND_LONG_I=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_FUNC_HASHFIND_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+8)); +if(!qbevent)break;evnt(25151);}while(r); +S_33968:; +if ((*_FUNC_HASHFIND_LONG_I)||new_error){ +if(qbevent){evnt(25152);if(r)goto S_33968;} +do{ +goto LABEL_HASHFIND_NEXT; +if(!qbevent)break;evnt(25152);}while(r); +} +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free79.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +return *_FUNC_HASHFIND_LONG_HASHFIND; +} +int32 FUNC_HASHFINDREV(qbs*_FUNC_HASHFINDREV_STRING_A,int32*_FUNC_HASHFINDREV_LONG_SEARCHFLAGS,int32*_FUNC_HASHFINDREV_LONG_RESULTFLAGS,int32*_FUNC_HASHFINDREV_LONG_RESULTREFERENCE){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data80.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +*_FUNC_HASHFINDREV_LONG_I=((int32*)(__ARRAY_LONG_HASHTABLE[0]))[array_check((FUNC_HASHVALUE(_FUNC_HASHFINDREV_STRING_A))-__ARRAY_LONG_HASHTABLE[4],__ARRAY_LONG_HASHTABLE[5])]; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25161);}while(r); +S_33973:; +if ((*_FUNC_HASHFINDREV_LONG_I)||new_error){ +if(qbevent){evnt(25162);if(r)goto S_33973;} +do{ +*_FUNC_HASHFINDREV_LONG_I=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_FUNC_HASHFINDREV_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+16)); +if(!qbevent)break;evnt(25163);}while(r); +do{ +qbs_set(_FUNC_HASHFINDREV_STRING_UA,qbs_add(qbs_ucase(_FUNC_HASHFINDREV_STRING_A),func_space( 256 -_FUNC_HASHFINDREV_STRING_A->len))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25164);}while(r); +LABEL_HASHFINDREV_NEXT:; +if(qbevent){evnt(25165);r=0;} +do{ +*_FUNC_HASHFINDREV_LONG_F=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_FUNC_HASHFINDREV_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20)); +if(!qbevent)break;evnt(25166);}while(r); +S_33977:; +if ((*_FUNC_HASHFINDREV_LONG_SEARCHFLAGS&*_FUNC_HASHFINDREV_LONG_F)||new_error){ +if(qbevent){evnt(25167);if(r)goto S_33977;} +S_33978:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_HASHLISTNAME[0]))[(array_check((*_FUNC_HASHFINDREV_LONG_I)-__ARRAY_STRING256_HASHLISTNAME[4],__ARRAY_STRING256_HASHLISTNAME[5]))*256],256,1),_FUNC_HASHFINDREV_STRING_UA)))||new_error){ +if(qbevent){evnt(25168);if(r)goto S_33978;} +do{ +*_FUNC_HASHFINDREV_LONG_RESULTFLAGS=*_FUNC_HASHFINDREV_LONG_F; +if(!qbevent)break;evnt(25169);}while(r); +do{ +*_FUNC_HASHFINDREV_LONG_RESULTREFERENCE=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_FUNC_HASHFINDREV_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+4)); +if(!qbevent)break;evnt(25170);}while(r); +do{ +*_FUNC_HASHFINDREV_LONG_I2=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_FUNC_HASHFINDREV_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+12)); +if(!qbevent)break;evnt(25171);}while(r); +S_33982:; +if ((*_FUNC_HASHFINDREV_LONG_I2)||new_error){ +if(qbevent){evnt(25172);if(r)goto S_33982;} +do{ +*_FUNC_HASHFINDREV_LONG_HASHFINDREV= 2 ; +if(!qbevent)break;evnt(25173);}while(r); +do{ +*__LONG_HASHFIND_NEXTLISTITEM=*_FUNC_HASHFINDREV_LONG_I2; +if(!qbevent)break;evnt(25174);}while(r); +do{ +*__LONG_HASHFIND_REVERSE= 1 ; +if(!qbevent)break;evnt(25175);}while(r); +do{ +*__LONG_HASHFIND_SEARCHFLAGS=*_FUNC_HASHFINDREV_LONG_SEARCHFLAGS; +if(!qbevent)break;evnt(25176);}while(r); +do{ +qbs_set(__STRING_HASHFIND_NAME,_FUNC_HASHFINDREV_STRING_UA); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25177);}while(r); +do{ +*__LONG_HASHREMOVE_LASTFOUND=*_FUNC_HASHFINDREV_LONG_I; +if(!qbevent)break;evnt(25178);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(25179);}while(r); +}else{ +do{ +*_FUNC_HASHFINDREV_LONG_HASHFINDREV= 1 ; +if(!qbevent)break;evnt(25181);}while(r); +do{ +*__LONG_HASHREMOVE_LASTFOUND=*_FUNC_HASHFINDREV_LONG_I; +if(!qbevent)break;evnt(25182);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(25183);}while(r); +} +} +} +do{ +*_FUNC_HASHFINDREV_LONG_I=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_FUNC_HASHFINDREV_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+12)); +if(!qbevent)break;evnt(25187);}while(r); +S_33998:; +if ((*_FUNC_HASHFINDREV_LONG_I)||new_error){ +if(qbevent){evnt(25188);if(r)goto S_33998;} +do{ +goto LABEL_HASHFINDREV_NEXT; +if(!qbevent)break;evnt(25188);}while(r); +} +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free80.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +return *_FUNC_HASHFINDREV_LONG_HASHFINDREV; +} +int32 FUNC_HASHFINDCONT(int32*_FUNC_HASHFINDCONT_LONG_RESULTFLAGS,int32*_FUNC_HASHFINDCONT_LONG_RESULTREFERENCE){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data81.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +S_34002:; +if ((*__LONG_HASHFIND_REVERSE)||new_error){ +if(qbevent){evnt(25197);if(r)goto S_34002;} +do{ +*_FUNC_HASHFINDCONT_LONG_I=*__LONG_HASHFIND_NEXTLISTITEM; +if(!qbevent)break;evnt(25199);}while(r); +LABEL_HASHFINDREVC_NEXT:; +if(qbevent){evnt(25200);r=0;} +do{ +*_FUNC_HASHFINDCONT_LONG_F=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_FUNC_HASHFINDCONT_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20)); +if(!qbevent)break;evnt(25201);}while(r); +S_34005:; +if ((*__LONG_HASHFIND_SEARCHFLAGS&*_FUNC_HASHFINDCONT_LONG_F)||new_error){ +if(qbevent){evnt(25202);if(r)goto S_34005;} +S_34006:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_HASHLISTNAME[0]))[(array_check((*_FUNC_HASHFINDCONT_LONG_I)-__ARRAY_STRING256_HASHLISTNAME[4],__ARRAY_STRING256_HASHLISTNAME[5]))*256],256,1),__STRING_HASHFIND_NAME)))||new_error){ +if(qbevent){evnt(25203);if(r)goto S_34006;} +do{ +*_FUNC_HASHFINDCONT_LONG_RESULTFLAGS=*_FUNC_HASHFINDCONT_LONG_F; +if(!qbevent)break;evnt(25204);}while(r); +do{ +*_FUNC_HASHFINDCONT_LONG_RESULTREFERENCE=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_FUNC_HASHFINDCONT_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+4)); +if(!qbevent)break;evnt(25205);}while(r); +do{ +*_FUNC_HASHFINDCONT_LONG_I2=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_FUNC_HASHFINDCONT_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+12)); +if(!qbevent)break;evnt(25206);}while(r); +S_34010:; +if ((*_FUNC_HASHFINDCONT_LONG_I2)||new_error){ +if(qbevent){evnt(25207);if(r)goto S_34010;} +do{ +*_FUNC_HASHFINDCONT_LONG_HASHFINDCONT= 2 ; +if(!qbevent)break;evnt(25208);}while(r); +do{ +*__LONG_HASHFIND_NEXTLISTITEM=*_FUNC_HASHFINDCONT_LONG_I2; +if(!qbevent)break;evnt(25209);}while(r); +do{ +*__LONG_HASHREMOVE_LASTFOUND=*_FUNC_HASHFINDCONT_LONG_I; +if(!qbevent)break;evnt(25210);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(25211);}while(r); +}else{ +do{ +*_FUNC_HASHFINDCONT_LONG_HASHFINDCONT= 1 ; +if(!qbevent)break;evnt(25213);}while(r); +do{ +*__LONG_HASHREMOVE_LASTFOUND=*_FUNC_HASHFINDCONT_LONG_I; +if(!qbevent)break;evnt(25214);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(25215);}while(r); +} +} +} +do{ +*_FUNC_HASHFINDCONT_LONG_I=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_FUNC_HASHFINDCONT_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+12)); +if(!qbevent)break;evnt(25219);}while(r); +S_34023:; +if ((*_FUNC_HASHFINDCONT_LONG_I)||new_error){ +if(qbevent){evnt(25220);if(r)goto S_34023;} +do{ +goto LABEL_HASHFINDREVC_NEXT; +if(!qbevent)break;evnt(25220);}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(25221);}while(r); +}else{ +do{ +*_FUNC_HASHFINDCONT_LONG_I=*__LONG_HASHFIND_NEXTLISTITEM; +if(!qbevent)break;evnt(25225);}while(r); +LABEL_HASHFINDC_NEXT:; +if(qbevent){evnt(25226);r=0;} +do{ +*_FUNC_HASHFINDCONT_LONG_F=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_FUNC_HASHFINDCONT_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20)); +if(!qbevent)break;evnt(25227);}while(r); +S_34030:; +if ((*__LONG_HASHFIND_SEARCHFLAGS&*_FUNC_HASHFINDCONT_LONG_F)||new_error){ +if(qbevent){evnt(25228);if(r)goto S_34030;} +S_34031:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_HASHLISTNAME[0]))[(array_check((*_FUNC_HASHFINDCONT_LONG_I)-__ARRAY_STRING256_HASHLISTNAME[4],__ARRAY_STRING256_HASHLISTNAME[5]))*256],256,1),__STRING_HASHFIND_NAME)))||new_error){ +if(qbevent){evnt(25229);if(r)goto S_34031;} +do{ +*_FUNC_HASHFINDCONT_LONG_RESULTFLAGS=*_FUNC_HASHFINDCONT_LONG_F; +if(!qbevent)break;evnt(25230);}while(r); +do{ +*_FUNC_HASHFINDCONT_LONG_RESULTREFERENCE=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_FUNC_HASHFINDCONT_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+4)); +if(!qbevent)break;evnt(25231);}while(r); +do{ +*_FUNC_HASHFINDCONT_LONG_I2=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_FUNC_HASHFINDCONT_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+8)); +if(!qbevent)break;evnt(25232);}while(r); +S_34035:; +if ((*_FUNC_HASHFINDCONT_LONG_I2)||new_error){ +if(qbevent){evnt(25233);if(r)goto S_34035;} +do{ +*_FUNC_HASHFINDCONT_LONG_HASHFINDCONT= 2 ; +if(!qbevent)break;evnt(25234);}while(r); +do{ +*__LONG_HASHFIND_NEXTLISTITEM=*_FUNC_HASHFINDCONT_LONG_I2; +if(!qbevent)break;evnt(25235);}while(r); +do{ +*__LONG_HASHREMOVE_LASTFOUND=*_FUNC_HASHFINDCONT_LONG_I; +if(!qbevent)break;evnt(25236);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(25237);}while(r); +}else{ +do{ +*_FUNC_HASHFINDCONT_LONG_HASHFINDCONT= 1 ; +if(!qbevent)break;evnt(25239);}while(r); +do{ +*__LONG_HASHREMOVE_LASTFOUND=*_FUNC_HASHFINDCONT_LONG_I; +if(!qbevent)break;evnt(25240);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(25241);}while(r); +} +} +} +do{ +*_FUNC_HASHFINDCONT_LONG_I=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_FUNC_HASHFINDCONT_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+8)); +if(!qbevent)break;evnt(25245);}while(r); +S_34048:; +if ((*_FUNC_HASHFINDCONT_LONG_I)||new_error){ +if(qbevent){evnt(25246);if(r)goto S_34048;} +do{ +goto LABEL_HASHFINDC_NEXT; +if(!qbevent)break;evnt(25246);}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(25247);}while(r); +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free81.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +return *_FUNC_HASHFINDCONT_LONG_HASHFINDCONT; +} +void SUB_HASHREMOVE(){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data82.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +*_SUB_HASHREMOVE_LONG_I=*__LONG_HASHREMOVE_LASTFOUND; +if(!qbevent)break;evnt(25254);}while(r); +do{ +*__LONG_HASHLISTFREELAST=*__LONG_HASHLISTFREELAST+ 1 ; +if(!qbevent)break;evnt(25257);}while(r); +S_34055:; +if ((-(*__LONG_HASHLISTFREELAST>*__LONG_HASHLISTFREESIZE))||new_error){ +if(qbevent){evnt(25258);if(r)goto S_34055;} +do{ +*__LONG_HASHLISTFREESIZE=*__LONG_HASHLISTFREESIZE* 2 ; +if(!qbevent)break;evnt(25259);}while(r); +do{ if (__ARRAY_LONG_HASHLISTFREE[2]&2){ error(10); @@ -112309,347 +112309,347 @@ if (!__ARRAY_LONG_HASHLISTFREE[0]) error(257); } } __ARRAY_LONG_HASHLISTFREE[2]|=1; -} -if(!qbevent)break;evnt(25260);}while(r); -} -do{ -tmp_long=array_check((*__LONG_HASHLISTFREELAST)-__ARRAY_LONG_HASHLISTFREE[4],__ARRAY_LONG_HASHLISTFREE[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_HASHLISTFREE[0]))[tmp_long]=*_SUB_HASHREMOVE_LONG_I; -if(!qbevent)break;evnt(25262);}while(r); -do{ -*_SUB_HASHREMOVE_LONG_I1=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHREMOVE_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+12)); -if(!qbevent)break;evnt(25265);}while(r); -S_34061:; -if ((*_SUB_HASHREMOVE_LONG_I1)||new_error){ -if(qbevent){evnt(25266);if(r)goto S_34061;} -do{ -*_SUB_HASHREMOVE_LONG_I2=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHREMOVE_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+8)); -if(!qbevent)break;evnt(25268);}while(r); -S_34063:; -if ((*_SUB_HASHREMOVE_LONG_I2)||new_error){ -if(qbevent){evnt(25269);if(r)goto S_34063;} -do{ -*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHREMOVE_LONG_I1)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+8))=*_SUB_HASHREMOVE_LONG_I2; -if(!qbevent)break;evnt(25271);}while(r); -do{ -*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHREMOVE_LONG_I2)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+16))=*_SUB_HASHREMOVE_LONG_I1; -if(!qbevent)break;evnt(25272);}while(r); -}else{ -do{ -*_SUB_HASHREMOVE_LONG_X=((int32*)(__ARRAY_LONG_HASHTABLE[0]))[array_check((FUNC_HASHVALUE(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_HASHLISTNAME[0]))[(array_check((*_SUB_HASHREMOVE_LONG_I)-__ARRAY_STRING256_HASHLISTNAME[4],__ARRAY_STRING256_HASHLISTNAME[5]))*256],256,1)))-__ARRAY_LONG_HASHTABLE[4],__ARRAY_LONG_HASHTABLE[5])]; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25275);}while(r); -do{ -*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHREMOVE_LONG_X)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+16))=*_SUB_HASHREMOVE_LONG_I1; -if(!qbevent)break;evnt(25276);}while(r); -do{ -*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHREMOVE_LONG_I1)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+8))= 0 ; -if(!qbevent)break;evnt(25277);}while(r); -} -}else{ -do{ -*_SUB_HASHREMOVE_LONG_X=((int32*)(__ARRAY_LONG_HASHTABLE[0]))[array_check((FUNC_HASHVALUE(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_HASHLISTNAME[0]))[(array_check((*_SUB_HASHREMOVE_LONG_I)-__ARRAY_STRING256_HASHLISTNAME[4],__ARRAY_STRING256_HASHLISTNAME[5]))*256],256,1)))-__ARRAY_LONG_HASHTABLE[4],__ARRAY_LONG_HASHTABLE[5])]; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25281);}while(r); -do{ -*_SUB_HASHREMOVE_LONG_I2=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHREMOVE_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+8)); -if(!qbevent)break;evnt(25282);}while(r); -S_34074:; -if ((*_SUB_HASHREMOVE_LONG_I2)||new_error){ -if(qbevent){evnt(25283);if(r)goto S_34074;} -do{ -tmp_long=array_check((*_SUB_HASHREMOVE_LONG_X)-__ARRAY_LONG_HASHTABLE[4],__ARRAY_LONG_HASHTABLE[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_HASHTABLE[0]))[tmp_long]=*_SUB_HASHREMOVE_LONG_I2; -if(!qbevent)break;evnt(25285);}while(r); -do{ -*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHREMOVE_LONG_I2)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+12))= 0 ; -if(!qbevent)break;evnt(25286);}while(r); -do{ -*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHREMOVE_LONG_I2)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+16))=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHREMOVE_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+16)); -if(!qbevent)break;evnt(25287);}while(r); -}else{ -do{ -tmp_long=array_check((*_SUB_HASHREMOVE_LONG_X)-__ARRAY_LONG_HASHTABLE[4],__ARRAY_LONG_HASHTABLE[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_HASHTABLE[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(25290);}while(r); -} -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free82.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -void SUB_HASHDUMP(){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data83.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -*_SUB_HASHDUMP_LONG_FH=func_freefile(); -if(!qbevent)break;evnt(25297);}while(r); -do{ -sub_open(qbs_new_txt_len("hashdump.txt",12), 4 ,NULL,NULL,*_SUB_HASHDUMP_LONG_FH,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25298);}while(r); -do{ -qbs_set(_SUB_HASHDUMP_STRING_B,qbs_new_txt_len("12345678901234567890123456789012}",33)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25299);}while(r); -S_34085:; -fornext_value3615= 0 ; -fornext_finalvalue3615= 16777215 ; -fornext_step3615= 1 ; -if (fornext_step3615<0) fornext_step_negative3615=1; else fornext_step_negative3615=0; -if (new_error) goto fornext_error3615; -goto fornext_entrylabel3615; -while(1){ -fornext_value3615=fornext_step3615+(*_SUB_HASHDUMP_LONG_X); -fornext_entrylabel3615: -*_SUB_HASHDUMP_LONG_X=fornext_value3615; -if (fornext_step_negative3615){ -if (fornext_value3615fornext_finalvalue3615) break; -} -fornext_error3615:; -if(qbevent){evnt(25300);if(r)goto S_34085;} -S_34086:; -if ((((int32*)(__ARRAY_LONG_HASHTABLE[0]))[array_check((*_SUB_HASHDUMP_LONG_X)-__ARRAY_LONG_HASHTABLE[4],__ARRAY_LONG_HASHTABLE[5])])||new_error){ -if(qbevent){evnt(25301);if(r)goto S_34086;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*_SUB_HASHDUMP_LONG_FH; -if (new_error) goto skip3616; -sub_file_print(tmp_fileno,qbs_new_txt_len("START HashTable(",16), 0, 0, 0); -if (new_error) goto skip3616; -sub_file_print(tmp_fileno,qbs_str((int32)(*_SUB_HASHDUMP_LONG_X)), 1, 0, 0); -if (new_error) goto skip3616; -sub_file_print(tmp_fileno,qbs_new_txt_len("):",2), 0, 0, 1); -if (new_error) goto skip3616; -skip3616: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(25303);}while(r); -do{ -*_SUB_HASHDUMP_LONG_I=((int32*)(__ARRAY_LONG_HASHTABLE[0]))[array_check((*_SUB_HASHDUMP_LONG_X)-__ARRAY_LONG_HASHTABLE[4],__ARRAY_LONG_HASHTABLE[5])]; -if(!qbevent)break;evnt(25304);}while(r); -do{ -*_SUB_HASHDUMP_LONG_LASTI=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHDUMP_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+16)); -if(!qbevent)break;evnt(25307);}while(r); -S_34090:; -if ((qbs_cleanup(qbs_tmp_base,(-(*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHDUMP_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+16))== 0 ))|(-(*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHDUMP_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+12))!= 0 ))|(-(FUNC_HASHVALUE(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_HASHLISTNAME[0]))[(array_check((*_SUB_HASHDUMP_LONG_I)-__ARRAY_STRING256_HASHLISTNAME[4],__ARRAY_STRING256_HASHLISTNAME[5]))*256],256,1))!=*_SUB_HASHDUMP_LONG_X))))||new_error){ -if(qbevent){evnt(25308);if(r)goto S_34090;} -do{ -goto LABEL_CORRUPT; -if(!qbevent)break;evnt(25308);}while(r); -} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*_SUB_HASHDUMP_LONG_FH; -if (new_error) goto skip3617; -sub_file_print(tmp_fileno,qbs_new_txt_len(" HashList(",11), 0, 0, 0); -if (new_error) goto skip3617; -sub_file_print(tmp_fileno,qbs_str((int32)(*_SUB_HASHDUMP_LONG_I)), 1, 0, 0); -if (new_error) goto skip3617; -sub_file_print(tmp_fileno,qbs_new_txt_len(").LastItem=",11), 0, 0, 0); -if (new_error) goto skip3617; -sub_file_print(tmp_fileno,qbs_str((int32)(*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHDUMP_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+16)))), 1, 0, 1); -if (new_error) goto skip3617; -skip3617: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(25310);}while(r); -LABEL_HASHDUMPNEXTITEM:; -if(qbevent){evnt(25311);r=0;} -do{ -qbs_set(_SUB_HASHDUMP_STRING_X,qbs_add(qbs_add(qbs_add(qbs_new_txt_len(" [",3),qbs_str((int32)(*_SUB_HASHDUMP_LONG_I))),qbs_new_txt_len("]",1)),qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_HASHLISTNAME[0]))[(array_check((*_SUB_HASHDUMP_LONG_I)-__ARRAY_STRING256_HASHLISTNAME[4],__ARRAY_STRING256_HASHLISTNAME[5]))*256],256,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25312);}while(r); -do{ -*_SUB_HASHDUMP_LONG_F=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHDUMP_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20)); -if(!qbevent)break;evnt(25314);}while(r); -do{ -qbs_set(_SUB_HASHDUMP_STRING_X,qbs_add(qbs_add(qbs_add(_SUB_HASHDUMP_STRING_X,qbs_new_txt_len(",.Flags=",8)),qbs_str((int32)(*_SUB_HASHDUMP_LONG_F))),qbs_new_txt_len("{",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25315);}while(r); -S_34097:; -fornext_value3619= 1 ; -fornext_finalvalue3619= 32 ; -fornext_step3619= 1 ; -if (fornext_step3619<0) fornext_step_negative3619=1; else fornext_step_negative3619=0; -if (new_error) goto fornext_error3619; -goto fornext_entrylabel3619; -while(1){ -fornext_value3619=fornext_step3619+(*_SUB_HASHDUMP_LONG_Z); -fornext_entrylabel3619: -*_SUB_HASHDUMP_LONG_Z=fornext_value3619; -if (fornext_step_negative3619){ -if (fornext_value3619fornext_finalvalue3619) break; -} -fornext_error3619:; -if(qbevent){evnt(25316);if(r)goto S_34097;} -do{ -tqbs=_SUB_HASHDUMP_STRING_B; if (!new_error){ -tmp_fileno=*_SUB_HASHDUMP_LONG_Z; if (!new_error){ -tmp_long=(*_SUB_HASHDUMP_LONG_F& 1 )+ 48 ; if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(25317);}while(r); -do{ -*_SUB_HASHDUMP_LONG_F=*_SUB_HASHDUMP_LONG_F/ 2 ; -if(!qbevent)break;evnt(25318);}while(r); -fornext_continue_3618:; -} -fornext_exit_3618:; -do{ -qbs_set(_SUB_HASHDUMP_STRING_X,qbs_add(_SUB_HASHDUMP_STRING_X,_SUB_HASHDUMP_STRING_B)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25320);}while(r); -do{ -qbs_set(_SUB_HASHDUMP_STRING_X,qbs_add(qbs_add(_SUB_HASHDUMP_STRING_X,qbs_new_txt_len(",.Reference=",12)),qbs_str((int32)(*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHDUMP_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+4)))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25322);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*_SUB_HASHDUMP_LONG_FH; -if (new_error) goto skip3620; -sub_file_print(tmp_fileno,_SUB_HASHDUMP_STRING_X, 0, 0, 1); -if (new_error) goto skip3620; -skip3620: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(25324);}while(r); -do{ -*_SUB_HASHDUMP_LONG_I1=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHDUMP_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+12)); -if(!qbevent)break;evnt(25327);}while(r); -do{ -*_SUB_HASHDUMP_LONG_I2=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHDUMP_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+8)); -if(!qbevent)break;evnt(25328);}while(r); -S_34106:; -if ((*_SUB_HASHDUMP_LONG_I1)||new_error){ -if(qbevent){evnt(25329);if(r)goto S_34106;} -S_34107:; -if ((-(*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHDUMP_LONG_I1)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+8))!=*_SUB_HASHDUMP_LONG_I))||new_error){ -if(qbevent){evnt(25330);if(r)goto S_34107;} -do{ -goto LABEL_CORRUPT; -if(!qbevent)break;evnt(25330);}while(r); -} -} -S_34111:; -if ((*_SUB_HASHDUMP_LONG_I2)||new_error){ -if(qbevent){evnt(25332);if(r)goto S_34111;} -S_34112:; -if ((-(*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHDUMP_LONG_I2)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+12))!=*_SUB_HASHDUMP_LONG_I))||new_error){ -if(qbevent){evnt(25333);if(r)goto S_34112;} -do{ -goto LABEL_CORRUPT; -if(!qbevent)break;evnt(25333);}while(r); -} -} -S_34116:; -if ((-(*_SUB_HASHDUMP_LONG_I2== 0 ))||new_error){ -if(qbevent){evnt(25335);if(r)goto S_34116;} -S_34117:; -if ((-(*_SUB_HASHDUMP_LONG_LASTI!=*_SUB_HASHDUMP_LONG_I))||new_error){ -if(qbevent){evnt(25336);if(r)goto S_34117;} -do{ -goto LABEL_CORRUPT; -if(!qbevent)break;evnt(25336);}while(r); -} -} -do{ -*_SUB_HASHDUMP_LONG_I=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHDUMP_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+8)); -if(!qbevent)break;evnt(25339);}while(r); -S_34122:; -if ((*_SUB_HASHDUMP_LONG_I)||new_error){ -if(qbevent){evnt(25340);if(r)goto S_34122;} -do{ -goto LABEL_HASHDUMPNEXTITEM; -if(!qbevent)break;evnt(25340);}while(r); -} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*_SUB_HASHDUMP_LONG_FH; -if (new_error) goto skip3621; -sub_file_print(tmp_fileno,qbs_new_txt_len("END HashTable(",14), 0, 0, 0); -if (new_error) goto skip3621; -sub_file_print(tmp_fileno,qbs_str((int32)(*_SUB_HASHDUMP_LONG_X)), 1, 0, 0); -if (new_error) goto skip3621; -sub_file_print(tmp_fileno,qbs_new_txt_len(")",1), 0, 0, 1); -if (new_error) goto skip3621; -skip3621: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(25342);}while(r); -} -fornext_continue_3614:; -} -fornext_exit_3614:; -do{ -sub_close(*_SUB_HASHDUMP_LONG_FH,1); -if(!qbevent)break;evnt(25345);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25347);}while(r); -LABEL_CORRUPT:; -if(qbevent){evnt(25348);r=0;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*_SUB_HASHDUMP_LONG_FH; -if (new_error) goto skip3622; -sub_file_print(tmp_fileno,qbs_new_txt_len("HASH TABLE CORRUPT!",19), 0, 0, 1); -if (new_error) goto skip3622; -skip3622: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(25349);}while(r); -do{ -sub_close(*_SUB_HASHDUMP_LONG_FH,1); -if(!qbevent)break;evnt(25350);}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free83.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -void SUB_HASHCLEAR(){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data84.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -*__LONG_HASHLISTSIZE= 65536 ; -if(!qbevent)break;evnt(25356);}while(r); -do{ -*__LONG_HASHLISTNEXT= 1 ; -if(!qbevent)break;evnt(25357);}while(r); -do{ -*__LONG_HASHLISTFREESIZE= 1024 ; -if(!qbevent)break;evnt(25358);}while(r); -do{ -*__LONG_HASHLISTFREELAST= 0 ; -if(!qbevent)break;evnt(25359);}while(r); -do{ +} +if(!qbevent)break;evnt(25260);}while(r); +} +do{ +tmp_long=array_check((*__LONG_HASHLISTFREELAST)-__ARRAY_LONG_HASHLISTFREE[4],__ARRAY_LONG_HASHLISTFREE[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_HASHLISTFREE[0]))[tmp_long]=*_SUB_HASHREMOVE_LONG_I; +if(!qbevent)break;evnt(25262);}while(r); +do{ +*_SUB_HASHREMOVE_LONG_I1=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHREMOVE_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+12)); +if(!qbevent)break;evnt(25265);}while(r); +S_34061:; +if ((*_SUB_HASHREMOVE_LONG_I1)||new_error){ +if(qbevent){evnt(25266);if(r)goto S_34061;} +do{ +*_SUB_HASHREMOVE_LONG_I2=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHREMOVE_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+8)); +if(!qbevent)break;evnt(25268);}while(r); +S_34063:; +if ((*_SUB_HASHREMOVE_LONG_I2)||new_error){ +if(qbevent){evnt(25269);if(r)goto S_34063;} +do{ +*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHREMOVE_LONG_I1)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+8))=*_SUB_HASHREMOVE_LONG_I2; +if(!qbevent)break;evnt(25271);}while(r); +do{ +*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHREMOVE_LONG_I2)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+16))=*_SUB_HASHREMOVE_LONG_I1; +if(!qbevent)break;evnt(25272);}while(r); +}else{ +do{ +*_SUB_HASHREMOVE_LONG_X=((int32*)(__ARRAY_LONG_HASHTABLE[0]))[array_check((FUNC_HASHVALUE(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_HASHLISTNAME[0]))[(array_check((*_SUB_HASHREMOVE_LONG_I)-__ARRAY_STRING256_HASHLISTNAME[4],__ARRAY_STRING256_HASHLISTNAME[5]))*256],256,1)))-__ARRAY_LONG_HASHTABLE[4],__ARRAY_LONG_HASHTABLE[5])]; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25275);}while(r); +do{ +*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHREMOVE_LONG_X)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+16))=*_SUB_HASHREMOVE_LONG_I1; +if(!qbevent)break;evnt(25276);}while(r); +do{ +*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHREMOVE_LONG_I1)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+8))= 0 ; +if(!qbevent)break;evnt(25277);}while(r); +} +}else{ +do{ +*_SUB_HASHREMOVE_LONG_X=((int32*)(__ARRAY_LONG_HASHTABLE[0]))[array_check((FUNC_HASHVALUE(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_HASHLISTNAME[0]))[(array_check((*_SUB_HASHREMOVE_LONG_I)-__ARRAY_STRING256_HASHLISTNAME[4],__ARRAY_STRING256_HASHLISTNAME[5]))*256],256,1)))-__ARRAY_LONG_HASHTABLE[4],__ARRAY_LONG_HASHTABLE[5])]; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25281);}while(r); +do{ +*_SUB_HASHREMOVE_LONG_I2=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHREMOVE_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+8)); +if(!qbevent)break;evnt(25282);}while(r); +S_34074:; +if ((*_SUB_HASHREMOVE_LONG_I2)||new_error){ +if(qbevent){evnt(25283);if(r)goto S_34074;} +do{ +tmp_long=array_check((*_SUB_HASHREMOVE_LONG_X)-__ARRAY_LONG_HASHTABLE[4],__ARRAY_LONG_HASHTABLE[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_HASHTABLE[0]))[tmp_long]=*_SUB_HASHREMOVE_LONG_I2; +if(!qbevent)break;evnt(25285);}while(r); +do{ +*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHREMOVE_LONG_I2)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+12))= 0 ; +if(!qbevent)break;evnt(25286);}while(r); +do{ +*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHREMOVE_LONG_I2)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+16))=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHREMOVE_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+16)); +if(!qbevent)break;evnt(25287);}while(r); +}else{ +do{ +tmp_long=array_check((*_SUB_HASHREMOVE_LONG_X)-__ARRAY_LONG_HASHTABLE[4],__ARRAY_LONG_HASHTABLE[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_HASHTABLE[0]))[tmp_long]= 0 ; +if(!qbevent)break;evnt(25290);}while(r); +} +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free82.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +void SUB_HASHDUMP(){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data83.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +*_SUB_HASHDUMP_LONG_FH=func_freefile(); +if(!qbevent)break;evnt(25297);}while(r); +do{ +sub_open(qbs_new_txt_len("hashdump.txt",12), 4 ,NULL,NULL,*_SUB_HASHDUMP_LONG_FH,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25298);}while(r); +do{ +qbs_set(_SUB_HASHDUMP_STRING_B,qbs_new_txt_len("12345678901234567890123456789012}",33)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25299);}while(r); +S_34085:; +fornext_value3615= 0 ; +fornext_finalvalue3615= 16777215 ; +fornext_step3615= 1 ; +if (fornext_step3615<0) fornext_step_negative3615=1; else fornext_step_negative3615=0; +if (new_error) goto fornext_error3615; +goto fornext_entrylabel3615; +while(1){ +fornext_value3615=fornext_step3615+(*_SUB_HASHDUMP_LONG_X); +fornext_entrylabel3615: +*_SUB_HASHDUMP_LONG_X=fornext_value3615; +if (fornext_step_negative3615){ +if (fornext_value3615fornext_finalvalue3615) break; +} +fornext_error3615:; +if(qbevent){evnt(25300);if(r)goto S_34085;} +S_34086:; +if ((((int32*)(__ARRAY_LONG_HASHTABLE[0]))[array_check((*_SUB_HASHDUMP_LONG_X)-__ARRAY_LONG_HASHTABLE[4],__ARRAY_LONG_HASHTABLE[5])])||new_error){ +if(qbevent){evnt(25301);if(r)goto S_34086;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*_SUB_HASHDUMP_LONG_FH; +if (new_error) goto skip3616; +sub_file_print(tmp_fileno,qbs_new_txt_len("START HashTable(",16), 0, 0, 0); +if (new_error) goto skip3616; +sub_file_print(tmp_fileno,qbs_str((int32)(*_SUB_HASHDUMP_LONG_X)), 1, 0, 0); +if (new_error) goto skip3616; +sub_file_print(tmp_fileno,qbs_new_txt_len("):",2), 0, 0, 1); +if (new_error) goto skip3616; +skip3616: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(25303);}while(r); +do{ +*_SUB_HASHDUMP_LONG_I=((int32*)(__ARRAY_LONG_HASHTABLE[0]))[array_check((*_SUB_HASHDUMP_LONG_X)-__ARRAY_LONG_HASHTABLE[4],__ARRAY_LONG_HASHTABLE[5])]; +if(!qbevent)break;evnt(25304);}while(r); +do{ +*_SUB_HASHDUMP_LONG_LASTI=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHDUMP_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+16)); +if(!qbevent)break;evnt(25307);}while(r); +S_34090:; +if ((qbs_cleanup(qbs_tmp_base,(-(*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHDUMP_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+16))== 0 ))|(-(*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHDUMP_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+12))!= 0 ))|(-(FUNC_HASHVALUE(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_HASHLISTNAME[0]))[(array_check((*_SUB_HASHDUMP_LONG_I)-__ARRAY_STRING256_HASHLISTNAME[4],__ARRAY_STRING256_HASHLISTNAME[5]))*256],256,1))!=*_SUB_HASHDUMP_LONG_X))))||new_error){ +if(qbevent){evnt(25308);if(r)goto S_34090;} +do{ +goto LABEL_CORRUPT; +if(!qbevent)break;evnt(25308);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*_SUB_HASHDUMP_LONG_FH; +if (new_error) goto skip3617; +sub_file_print(tmp_fileno,qbs_new_txt_len(" HashList(",11), 0, 0, 0); +if (new_error) goto skip3617; +sub_file_print(tmp_fileno,qbs_str((int32)(*_SUB_HASHDUMP_LONG_I)), 1, 0, 0); +if (new_error) goto skip3617; +sub_file_print(tmp_fileno,qbs_new_txt_len(").LastItem=",11), 0, 0, 0); +if (new_error) goto skip3617; +sub_file_print(tmp_fileno,qbs_str((int32)(*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHDUMP_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+16)))), 1, 0, 1); +if (new_error) goto skip3617; +skip3617: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(25310);}while(r); +LABEL_HASHDUMPNEXTITEM:; +if(qbevent){evnt(25311);r=0;} +do{ +qbs_set(_SUB_HASHDUMP_STRING_X,qbs_add(qbs_add(qbs_add(qbs_new_txt_len(" [",3),qbs_str((int32)(*_SUB_HASHDUMP_LONG_I))),qbs_new_txt_len("]",1)),qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_HASHLISTNAME[0]))[(array_check((*_SUB_HASHDUMP_LONG_I)-__ARRAY_STRING256_HASHLISTNAME[4],__ARRAY_STRING256_HASHLISTNAME[5]))*256],256,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25312);}while(r); +do{ +*_SUB_HASHDUMP_LONG_F=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHDUMP_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20)); +if(!qbevent)break;evnt(25314);}while(r); +do{ +qbs_set(_SUB_HASHDUMP_STRING_X,qbs_add(qbs_add(qbs_add(_SUB_HASHDUMP_STRING_X,qbs_new_txt_len(",.Flags=",8)),qbs_str((int32)(*_SUB_HASHDUMP_LONG_F))),qbs_new_txt_len("{",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25315);}while(r); +S_34097:; +fornext_value3619= 1 ; +fornext_finalvalue3619= 32 ; +fornext_step3619= 1 ; +if (fornext_step3619<0) fornext_step_negative3619=1; else fornext_step_negative3619=0; +if (new_error) goto fornext_error3619; +goto fornext_entrylabel3619; +while(1){ +fornext_value3619=fornext_step3619+(*_SUB_HASHDUMP_LONG_Z); +fornext_entrylabel3619: +*_SUB_HASHDUMP_LONG_Z=fornext_value3619; +if (fornext_step_negative3619){ +if (fornext_value3619fornext_finalvalue3619) break; +} +fornext_error3619:; +if(qbevent){evnt(25316);if(r)goto S_34097;} +do{ +tqbs=_SUB_HASHDUMP_STRING_B; if (!new_error){ +tmp_fileno=*_SUB_HASHDUMP_LONG_Z; if (!new_error){ +tmp_long=(*_SUB_HASHDUMP_LONG_F& 1 )+ 48 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(25317);}while(r); +do{ +*_SUB_HASHDUMP_LONG_F=*_SUB_HASHDUMP_LONG_F/ 2 ; +if(!qbevent)break;evnt(25318);}while(r); +fornext_continue_3618:; +} +fornext_exit_3618:; +do{ +qbs_set(_SUB_HASHDUMP_STRING_X,qbs_add(_SUB_HASHDUMP_STRING_X,_SUB_HASHDUMP_STRING_B)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25320);}while(r); +do{ +qbs_set(_SUB_HASHDUMP_STRING_X,qbs_add(qbs_add(_SUB_HASHDUMP_STRING_X,qbs_new_txt_len(",.Reference=",12)),qbs_str((int32)(*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHDUMP_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+4)))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25322);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*_SUB_HASHDUMP_LONG_FH; +if (new_error) goto skip3620; +sub_file_print(tmp_fileno,_SUB_HASHDUMP_STRING_X, 0, 0, 1); +if (new_error) goto skip3620; +skip3620: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(25324);}while(r); +do{ +*_SUB_HASHDUMP_LONG_I1=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHDUMP_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+12)); +if(!qbevent)break;evnt(25327);}while(r); +do{ +*_SUB_HASHDUMP_LONG_I2=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHDUMP_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+8)); +if(!qbevent)break;evnt(25328);}while(r); +S_34106:; +if ((*_SUB_HASHDUMP_LONG_I1)||new_error){ +if(qbevent){evnt(25329);if(r)goto S_34106;} +S_34107:; +if ((-(*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHDUMP_LONG_I1)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+8))!=*_SUB_HASHDUMP_LONG_I))||new_error){ +if(qbevent){evnt(25330);if(r)goto S_34107;} +do{ +goto LABEL_CORRUPT; +if(!qbevent)break;evnt(25330);}while(r); +} +} +S_34111:; +if ((*_SUB_HASHDUMP_LONG_I2)||new_error){ +if(qbevent){evnt(25332);if(r)goto S_34111;} +S_34112:; +if ((-(*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHDUMP_LONG_I2)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+12))!=*_SUB_HASHDUMP_LONG_I))||new_error){ +if(qbevent){evnt(25333);if(r)goto S_34112;} +do{ +goto LABEL_CORRUPT; +if(!qbevent)break;evnt(25333);}while(r); +} +} +S_34116:; +if ((-(*_SUB_HASHDUMP_LONG_I2== 0 ))||new_error){ +if(qbevent){evnt(25335);if(r)goto S_34116;} +S_34117:; +if ((-(*_SUB_HASHDUMP_LONG_LASTI!=*_SUB_HASHDUMP_LONG_I))||new_error){ +if(qbevent){evnt(25336);if(r)goto S_34117;} +do{ +goto LABEL_CORRUPT; +if(!qbevent)break;evnt(25336);}while(r); +} +} +do{ +*_SUB_HASHDUMP_LONG_I=*(int32*)(((char*)__ARRAY_UDT_HASHLIST[0])+((array_check((*_SUB_HASHDUMP_LONG_I)-__ARRAY_UDT_HASHLIST[4],__ARRAY_UDT_HASHLIST[5]))*20+8)); +if(!qbevent)break;evnt(25339);}while(r); +S_34122:; +if ((*_SUB_HASHDUMP_LONG_I)||new_error){ +if(qbevent){evnt(25340);if(r)goto S_34122;} +do{ +goto LABEL_HASHDUMPNEXTITEM; +if(!qbevent)break;evnt(25340);}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*_SUB_HASHDUMP_LONG_FH; +if (new_error) goto skip3621; +sub_file_print(tmp_fileno,qbs_new_txt_len("END HashTable(",14), 0, 0, 0); +if (new_error) goto skip3621; +sub_file_print(tmp_fileno,qbs_str((int32)(*_SUB_HASHDUMP_LONG_X)), 1, 0, 0); +if (new_error) goto skip3621; +sub_file_print(tmp_fileno,qbs_new_txt_len(")",1), 0, 0, 1); +if (new_error) goto skip3621; +skip3621: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(25342);}while(r); +} +fornext_continue_3614:; +} +fornext_exit_3614:; +do{ +sub_close(*_SUB_HASHDUMP_LONG_FH,1); +if(!qbevent)break;evnt(25345);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(25347);}while(r); +LABEL_CORRUPT:; +if(qbevent){evnt(25348);r=0;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*_SUB_HASHDUMP_LONG_FH; +if (new_error) goto skip3622; +sub_file_print(tmp_fileno,qbs_new_txt_len("HASH TABLE CORRUPT!",19), 0, 0, 1); +if (new_error) goto skip3622; +skip3622: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(25349);}while(r); +do{ +sub_close(*_SUB_HASHDUMP_LONG_FH,1); +if(!qbevent)break;evnt(25350);}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free83.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +void SUB_HASHCLEAR(){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data84.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +*__LONG_HASHLISTSIZE= 65536 ; +if(!qbevent)break;evnt(25356);}while(r); +do{ +*__LONG_HASHLISTNEXT= 1 ; +if(!qbevent)break;evnt(25357);}while(r); +do{ +*__LONG_HASHLISTFREESIZE= 1024 ; +if(!qbevent)break;evnt(25358);}while(r); +do{ +*__LONG_HASHLISTFREELAST= 0 ; +if(!qbevent)break;evnt(25359);}while(r); +do{ if (__ARRAY_UDT_HASHLIST[2]&2){ error(10); @@ -112673,9 +112673,9 @@ __ARRAY_UDT_HASHLIST[0]=(ptrszint)calloc(__ARRAY_UDT_HASHLIST[5]*160/8+1,1); if (!__ARRAY_UDT_HASHLIST[0]) error(257); } __ARRAY_UDT_HASHLIST[2]|=1; -} -if(!qbevent)break;evnt(25360);}while(r); -do{ +} +if(!qbevent)break;evnt(25360);}while(r); +do{ if (__ARRAY_STRING256_HASHLISTNAME[2]&2){ error(10); @@ -112699,9 +112699,9 @@ __ARRAY_STRING256_HASHLISTNAME[0]=(ptrszint)calloc(__ARRAY_STRING256_HASHLISTNAM if (!__ARRAY_STRING256_HASHLISTNAME[0]) error(257); } __ARRAY_STRING256_HASHLISTNAME[2]|=1; -} -if(!qbevent)break;evnt(25361);}while(r); -do{ +} +if(!qbevent)break;evnt(25361);}while(r); +do{ if (__ARRAY_LONG_HASHLISTFREE[2]&2){ error(10); @@ -112725,9 +112725,9 @@ __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(25362);}while(r); -do{ +} +if(!qbevent)break;evnt(25362);}while(r); +do{ if (__ARRAY_LONG_HASHTABLE[2]&2){ error(10); @@ -112751,552 +112751,552 @@ __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(25363);}while(r); -do{ -*__LONG_HASHFIND_NEXTLISTITEM= 0 ; -if(!qbevent)break;evnt(25365);}while(r); -do{ -*__LONG_HASHFIND_REVERSE= 0 ; -if(!qbevent)break;evnt(25366);}while(r); -do{ -*__LONG_HASHFIND_SEARCHFLAGS= 0 ; -if(!qbevent)break;evnt(25367);}while(r); -do{ -qbs_set(__STRING_HASHFIND_NAME,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25368);}while(r); -do{ -*__LONG_HASHREMOVE_LASTFOUND= 0 ; -if(!qbevent)break;evnt(25369);}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free84.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -qbs* FUNC_REMOVECAST(qbs*_FUNC_REMOVECAST_STRING_A){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data85.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -qbs_set(_FUNC_REMOVECAST_STRING_REMOVECAST,_FUNC_REMOVECAST_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25374);}while(r); -S_34146:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_REMOVECAST_STRING_A,qbs_new_txt_len(" )",3),0)))||new_error){ -if(qbevent){evnt(25375);if(r)goto S_34146;} -do{ -qbs_set(_FUNC_REMOVECAST_STRING_REMOVECAST,qbs_right(_FUNC_REMOVECAST_STRING_A,_FUNC_REMOVECAST_STRING_A->len-func_instr(NULL,_FUNC_REMOVECAST_STRING_A,qbs_new_txt_len(" )",3),0)- 2 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25376);}while(r); -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free85.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_REMOVECAST_STRING_REMOVECAST);return _FUNC_REMOVECAST_STRING_REMOVECAST; -} -qbs* FUNC_CONVERTTABS(qbs*_FUNC_CONVERTTABS_STRING_A2){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data86.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -S_34149:; -if ((*__LONG_IDEAUTOINDENT)||new_error){ -if(qbevent){evnt(25381);if(r)goto S_34149;} -do{ -*_FUNC_CONVERTTABS_LONG_S=*__LONG_IDEAUTOINDENTSIZE; -if(!qbevent)break;evnt(25381);}while(r); -}else{ -do{ -*_FUNC_CONVERTTABS_LONG_S= 4 ; -if(!qbevent)break;evnt(25381);}while(r); -} -do{ -qbs_set(_FUNC_CONVERTTABS_STRING_A,_FUNC_CONVERTTABS_STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25382);}while(r); -S_34155:; -while((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_CONVERTTABS_STRING_A,__STRING_CHR_TAB,0)))||new_error){ -if(qbevent){evnt(25383);if(r)goto S_34155;} -do{ -*_FUNC_CONVERTTABS_LONG_X=func_instr(NULL,_FUNC_CONVERTTABS_STRING_A,__STRING_CHR_TAB,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25384);}while(r); -do{ -qbs_set(_FUNC_CONVERTTABS_STRING_A,qbs_add(qbs_add(qbs_left(_FUNC_CONVERTTABS_STRING_A,*_FUNC_CONVERTTABS_LONG_X- 1 ),func_space(*_FUNC_CONVERTTABS_LONG_S-((*_FUNC_CONVERTTABS_LONG_X- 1 )%*_FUNC_CONVERTTABS_LONG_S))),qbs_right(_FUNC_CONVERTTABS_STRING_A,_FUNC_CONVERTTABS_STRING_A->len-*_FUNC_CONVERTTABS_LONG_X))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25385);}while(r); -dl_continue_3626:; -} -dl_exit_3626:; -do{ -qbs_set(_FUNC_CONVERTTABS_STRING_CONVERTTABS,_FUNC_CONVERTTABS_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25387);}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free86.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_CONVERTTABS_STRING_CONVERTTABS);return _FUNC_CONVERTTABS_STRING_CONVERTTABS; -} -qbs* FUNC_NEWBYTEELEMENT(){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data87.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -qbs_set(_FUNC_NEWBYTEELEMENT_STRING_A,qbs_add(qbs_new_txt_len("byte_element_",13),FUNC_STR2(&(pass3628=FUNC_UNIQUENUMBER())))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25392);}while(r); -do{ -qbs_set(_FUNC_NEWBYTEELEMENT_STRING_NEWBYTEELEMENT,_FUNC_NEWBYTEELEMENT_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25393);}while(r); -S_34162:; -if ((*__LONG_USE_GLOBAL_BYTE_ELEMENTS)||new_error){ -if(qbevent){evnt(25394);if(r)goto S_34162;} -do{ -SUB_WRITEBUFLINE(&(pass3629=*__LONG_GLOBTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("byte_element_struct *",21),_FUNC_NEWBYTEELEMENT_STRING_A),qbs_new_txt_len("=(byte_element_struct*)malloc(12);",34))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25395);}while(r); -}else{ -do{ -SUB_WRITEBUFLINE(&(pass3630=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("byte_element_struct *",21),_FUNC_NEWBYTEELEMENT_STRING_A),qbs_new_txt_len("=NULL;",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25397);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass3631=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if (!",5),_FUNC_NEWBYTEELEMENT_STRING_A),qbs_new_txt_len("){",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25398);}while(r); -do{ -SUB_WRITEBUFLINE(&(pass3632=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if ((mem_static_pointer+=12)=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_NEWBYTEELEMENT_STRING_NEWBYTEELEMENT);return _FUNC_NEWBYTEELEMENT_STRING_NEWBYTEELEMENT; -} -int32 FUNC_VALIDNAME(qbs*_FUNC_VALIDNAME_STRING_A){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data88.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -*_FUNC_VALIDNAME_LONG_L=_FUNC_VALIDNAME_STRING_A->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25410);}while(r); -S_34171:; -if (((-(*_FUNC_VALIDNAME_LONG_L== 0 ))|(-(*_FUNC_VALIDNAME_LONG_L> 40 )))||new_error){ -if(qbevent){evnt(25412);if(r)goto S_34171;} -S_34172:; -if ((-(*_FUNC_VALIDNAME_LONG_L== 0 ))||new_error){ -if(qbevent){evnt(25413);if(r)goto S_34172;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25413);}while(r); -} -do{ -*_FUNC_VALIDNAME_LONG_I=func_instr(NULL,_FUNC_VALIDNAME_STRING_A,__STRING_FIX046,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25415);}while(r); -S_34176:; -while((*_FUNC_VALIDNAME_LONG_I)||new_error){ -if(qbevent){evnt(25416);if(r)goto S_34176;} -do{ -*_FUNC_VALIDNAME_LONG_L=*_FUNC_VALIDNAME_LONG_L-__STRING_FIX046->len+ 1 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25417);}while(r); -do{ -*_FUNC_VALIDNAME_LONG_I=func_instr(*_FUNC_VALIDNAME_LONG_I+ 1 ,_FUNC_VALIDNAME_STRING_A,__STRING_FIX046,0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25418);}while(r); -dl_continue_3636:; -} -dl_exit_3636:; -S_34180:; -if ((-(*_FUNC_VALIDNAME_LONG_L> 40 ))||new_error){ -if(qbevent){evnt(25420);if(r)goto S_34180;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25420);}while(r); -} -do{ -*_FUNC_VALIDNAME_LONG_L=_FUNC_VALIDNAME_STRING_A->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25421);}while(r); -} -S_34185:; -if ((-(*_FUNC_VALIDNAME_LONG_L>= 2 ))||new_error){ -if(qbevent){evnt(25425);if(r)goto S_34185;} -S_34186:; -if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(_FUNC_VALIDNAME_STRING_A, 1 )== 95 ))&(-(qbs_asc(_FUNC_VALIDNAME_STRING_A, 2 )!= 95 ))))||new_error){ -if(qbevent){evnt(25426);if(r)goto S_34186;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25426);}while(r); -} -} -S_34190:; -fornext_value3640= 1 ; -fornext_finalvalue3640=*_FUNC_VALIDNAME_LONG_L; -fornext_step3640= 1 ; -if (fornext_step3640<0) fornext_step_negative3640=1; else fornext_step_negative3640=0; -if (new_error) goto fornext_error3640; -goto fornext_entrylabel3640; -while(1){ -fornext_value3640=fornext_step3640+(*_FUNC_VALIDNAME_LONG_I); -fornext_entrylabel3640: -*_FUNC_VALIDNAME_LONG_I=fornext_value3640; -if (fornext_step_negative3640){ -if (fornext_value3640fornext_finalvalue3640) break; -} -fornext_error3640:; -if(qbevent){evnt(25429);if(r)goto S_34190;} -do{ -*_FUNC_VALIDNAME_LONG_A=qbs_asc(_FUNC_VALIDNAME_STRING_A,*_FUNC_VALIDNAME_LONG_I); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25430);}while(r); -S_34192:; -if ((-(((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((*_FUNC_VALIDNAME_LONG_A)-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]== 0 ))||new_error){ -if(qbevent){evnt(25431);if(r)goto S_34192;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25431);}while(r); -} -S_34195:; -if ((((int32*)(__ARRAY_LONG_ISNUMERIC[0]))[array_check((*_FUNC_VALIDNAME_LONG_A)-__ARRAY_LONG_ISNUMERIC[4],__ARRAY_LONG_ISNUMERIC[5])])||new_error){ -if(qbevent){evnt(25432);if(r)goto S_34195;} -do{ -*_FUNC_VALIDNAME_LONG_TRAILINGUNDERSCORE= 0 ; -if(!qbevent)break;evnt(25433);}while(r); -S_34197:; -if ((-(*_FUNC_VALIDNAME_LONG_ALPHABETLETTER== 0 ))||new_error){ -if(qbevent){evnt(25434);if(r)goto S_34197;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25434);}while(r); -} -}else{ -S_34201:; -if ((-(*_FUNC_VALIDNAME_LONG_A== 95 ))||new_error){ -if(qbevent){evnt(25436);if(r)goto S_34201;} -do{ -*_FUNC_VALIDNAME_LONG_TRAILINGUNDERSCORE= 1 ; -if(!qbevent)break;evnt(25437);}while(r); -}else{ -do{ -*_FUNC_VALIDNAME_LONG_ALPHABETLETTER= 1 ; -if(!qbevent)break;evnt(25439);}while(r); -do{ -*_FUNC_VALIDNAME_LONG_TRAILINGUNDERSCORE= 0 ; -if(!qbevent)break;evnt(25440);}while(r); -} -} -fornext_continue_3639:; -} -fornext_exit_3639:; -S_34209:; -if ((*_FUNC_VALIDNAME_LONG_TRAILINGUNDERSCORE)||new_error){ -if(qbevent){evnt(25444);if(r)goto S_34209;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25444);}while(r); -} -do{ -*_FUNC_VALIDNAME_LONG_VALIDNAME= 1 ; -if(!qbevent)break;evnt(25445);}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free88.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -return *_FUNC_VALIDNAME_LONG_VALIDNAME; -} -qbs* FUNC_STR_NTH(int32*_FUNC_STR_NTH_LONG_X){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data89.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -S_34213:; -if ((-(*_FUNC_STR_NTH_LONG_X== 1 ))||new_error){ -if(qbevent){evnt(25449);if(r)goto S_34213;} -do{ -qbs_set(_FUNC_STR_NTH_STRING_STR_NTH,qbs_new_txt_len("1st",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25449);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25449);}while(r); -} -S_34217:; -if ((-(*_FUNC_STR_NTH_LONG_X== 2 ))||new_error){ -if(qbevent){evnt(25450);if(r)goto S_34217;} -do{ -qbs_set(_FUNC_STR_NTH_STRING_STR_NTH,qbs_new_txt_len("2nd",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25450);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25450);}while(r); -} -S_34221:; -if ((-(*_FUNC_STR_NTH_LONG_X== 3 ))||new_error){ -if(qbevent){evnt(25451);if(r)goto S_34221;} -do{ -qbs_set(_FUNC_STR_NTH_STRING_STR_NTH,qbs_new_txt_len("3rd",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25451);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25451);}while(r); -} -do{ -qbs_set(_FUNC_STR_NTH_STRING_STR_NTH,qbs_add(FUNC_STR2(_FUNC_STR_NTH_LONG_X),qbs_new_txt_len("th",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25452);}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free89.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_STR_NTH_STRING_STR_NTH);return _FUNC_STR_NTH_STRING_STR_NTH; -} -void SUB_GIVE_ERROR(qbs*_SUB_GIVE_ERROR_STRING_A){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data90.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -*__LONG_ERROR_HAPPENED= 1 ; -if(!qbevent)break;evnt(25456);}while(r); -do{ -qbs_set(__STRING_ERROR_MESSAGE,_SUB_GIVE_ERROR_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25457);}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free90.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -void SUB_WRITECONFIGSETTING(qbs*_SUB_WRITECONFIGSETTING_STRING_SECTION,qbs*_SUB_WRITECONFIGSETTING_STRING_ITEM,qbs*_SUB_WRITECONFIGSETTING_STRING_VALUE){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data91.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -SUB_WRITESETTING(__STRING_CONFIGFILE,_SUB_WRITECONFIGSETTING_STRING_SECTION,_SUB_WRITECONFIGSETTING_STRING_ITEM,_SUB_WRITECONFIGSETTING_STRING_VALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25461);}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free91.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -int32 FUNC_READCONFIGSETTING(qbs*_FUNC_READCONFIGSETTING_STRING_SECTION,qbs*_FUNC_READCONFIGSETTING_STRING_ITEM,qbs*_FUNC_READCONFIGSETTING_STRING_VALUE){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data92.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -qbs_set(_FUNC_READCONFIGSETTING_STRING_VALUE,FUNC_READSETTING(__STRING_CONFIGFILE,_FUNC_READCONFIGSETTING_STRING_SECTION,_FUNC_READCONFIGSETTING_STRING_ITEM)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25465);}while(r); -do{ -*_FUNC_READCONFIGSETTING_LONG_READCONFIGSETTING=(-(_FUNC_READCONFIGSETTING_STRING_VALUE->len> 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25466);}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free92.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -return *_FUNC_READCONFIGSETTING_LONG_READCONFIGSETTING; -} -uint32 FUNC_VRGBS(qbs*_FUNC_VRGBS_STRING_TEXT,uint32*_FUNC_VRGBS_ULONG_DEFAULTCOLOR){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data93.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -*_FUNC_VRGBS_ULONG_VRGBS=*_FUNC_VRGBS_ULONG_DEFAULTCOLOR; -if(!qbevent)break;evnt(25475);}while(r); -S_34232:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(_FUNC_VRGBS_STRING_TEXT, 4 )),qbs_new_txt_len("_RGB",4))))||new_error){ -if(qbevent){evnt(25476);if(r)goto S_34232;} -do{ -*_FUNC_VRGBS_LONG_RPOS=func_instr(NULL,_FUNC_VRGBS_STRING_TEXT,qbs_new_txt_len("(",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25477);}while(r); -do{ -*_FUNC_VRGBS_LONG_GPOS=func_instr(*_FUNC_VRGBS_LONG_RPOS,_FUNC_VRGBS_STRING_TEXT,qbs_new_txt_len(",",1),0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25478);}while(r); -do{ -*_FUNC_VRGBS_LONG_BPOS=func_instr(*_FUNC_VRGBS_LONG_GPOS+ 1 ,_FUNC_VRGBS_STRING_TEXT,qbs_new_txt_len(",",1),0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25479);}while(r); -S_34236:; -if (((-(*_FUNC_VRGBS_LONG_RPOS!= 0 ))&(-(*_FUNC_VRGBS_LONG_BPOS!= 0 ))&(-(*_FUNC_VRGBS_LONG_GPOS!= 0 )))||new_error){ -if(qbevent){evnt(25480);if(r)goto S_34236;} -do{ -*_FUNC_VRGBS_LONG_RED=qbr(func_val(qbs__trim(func_mid(_FUNC_VRGBS_STRING_TEXT,*_FUNC_VRGBS_LONG_RPOS+ 1 ,NULL,0)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25481);}while(r); -do{ -*_FUNC_VRGBS_LONG_GREEN=qbr(func_val(qbs__trim(func_mid(_FUNC_VRGBS_STRING_TEXT,*_FUNC_VRGBS_LONG_GPOS+ 1 ,NULL,0)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25482);}while(r); -do{ -*_FUNC_VRGBS_LONG_BLUE=qbr(func_val(qbs__trim(func_mid(_FUNC_VRGBS_STRING_TEXT,*_FUNC_VRGBS_LONG_BPOS+ 1 ,NULL,0)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25483);}while(r); -do{ -*_FUNC_VRGBS_ULONG_VRGBS=func__rgb32(*_FUNC_VRGBS_LONG_RED,*_FUNC_VRGBS_LONG_GREEN,*_FUNC_VRGBS_LONG_BLUE); -if(!qbevent)break;evnt(25484);}while(r); -} -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free93.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -return *_FUNC_VRGBS_ULONG_VRGBS; -} -qbs* FUNC_RGBS(uint32*_FUNC_RGBS_ULONG_C){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data94.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -qbs_set(_FUNC_RGBS_STRING_RGBS,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("_RGB32(",7),qbs__trim(qbs_str((int32)(func__red32(*_FUNC_RGBS_ULONG_C))))),qbs_new_txt_len(", ",2)),qbs__trim(qbs_str((int32)(func__green32(*_FUNC_RGBS_ULONG_C))))),qbs_new_txt_len(", ",2)),qbs__trim(qbs_str((int32)(func__blue32(*_FUNC_RGBS_ULONG_C))))),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25490);}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free94.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_RGBS_STRING_RGBS);return _FUNC_RGBS_STRING_RGBS; -} -int32 FUNC_EVALPREIF(qbs*_FUNC_EVALPREIF_STRING_TEXT,qbs*_FUNC_EVALPREIF_STRING_ERR){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data95.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -qbs_set(_FUNC_EVALPREIF_STRING_TEMP,_FUNC_EVALPREIF_STRING_TEXT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25494);}while(r); -do{ -qbs_set(_FUNC_EVALPREIF_STRING_ERR,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25495);}while(r); -do{ +} +if(!qbevent)break;evnt(25363);}while(r); +do{ +*__LONG_HASHFIND_NEXTLISTITEM= 0 ; +if(!qbevent)break;evnt(25365);}while(r); +do{ +*__LONG_HASHFIND_REVERSE= 0 ; +if(!qbevent)break;evnt(25366);}while(r); +do{ +*__LONG_HASHFIND_SEARCHFLAGS= 0 ; +if(!qbevent)break;evnt(25367);}while(r); +do{ +qbs_set(__STRING_HASHFIND_NAME,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25368);}while(r); +do{ +*__LONG_HASHREMOVE_LASTFOUND= 0 ; +if(!qbevent)break;evnt(25369);}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free84.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +qbs* FUNC_REMOVECAST(qbs*_FUNC_REMOVECAST_STRING_A){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data85.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +qbs_set(_FUNC_REMOVECAST_STRING_REMOVECAST,_FUNC_REMOVECAST_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25374);}while(r); +S_34146:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_REMOVECAST_STRING_A,qbs_new_txt_len(" )",3),0)))||new_error){ +if(qbevent){evnt(25375);if(r)goto S_34146;} +do{ +qbs_set(_FUNC_REMOVECAST_STRING_REMOVECAST,qbs_right(_FUNC_REMOVECAST_STRING_A,_FUNC_REMOVECAST_STRING_A->len-func_instr(NULL,_FUNC_REMOVECAST_STRING_A,qbs_new_txt_len(" )",3),0)- 2 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25376);}while(r); +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free85.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_REMOVECAST_STRING_REMOVECAST);return _FUNC_REMOVECAST_STRING_REMOVECAST; +} +qbs* FUNC_CONVERTTABS(qbs*_FUNC_CONVERTTABS_STRING_A2){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data86.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +S_34149:; +if ((*__LONG_IDEAUTOINDENT)||new_error){ +if(qbevent){evnt(25381);if(r)goto S_34149;} +do{ +*_FUNC_CONVERTTABS_LONG_S=*__LONG_IDEAUTOINDENTSIZE; +if(!qbevent)break;evnt(25381);}while(r); +}else{ +do{ +*_FUNC_CONVERTTABS_LONG_S= 4 ; +if(!qbevent)break;evnt(25381);}while(r); +} +do{ +qbs_set(_FUNC_CONVERTTABS_STRING_A,_FUNC_CONVERTTABS_STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25382);}while(r); +S_34155:; +while((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_CONVERTTABS_STRING_A,__STRING_CHR_TAB,0)))||new_error){ +if(qbevent){evnt(25383);if(r)goto S_34155;} +do{ +*_FUNC_CONVERTTABS_LONG_X=func_instr(NULL,_FUNC_CONVERTTABS_STRING_A,__STRING_CHR_TAB,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25384);}while(r); +do{ +qbs_set(_FUNC_CONVERTTABS_STRING_A,qbs_add(qbs_add(qbs_left(_FUNC_CONVERTTABS_STRING_A,*_FUNC_CONVERTTABS_LONG_X- 1 ),func_space(*_FUNC_CONVERTTABS_LONG_S-((*_FUNC_CONVERTTABS_LONG_X- 1 )%*_FUNC_CONVERTTABS_LONG_S))),qbs_right(_FUNC_CONVERTTABS_STRING_A,_FUNC_CONVERTTABS_STRING_A->len-*_FUNC_CONVERTTABS_LONG_X))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25385);}while(r); +dl_continue_3626:; +} +dl_exit_3626:; +do{ +qbs_set(_FUNC_CONVERTTABS_STRING_CONVERTTABS,_FUNC_CONVERTTABS_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25387);}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free86.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_CONVERTTABS_STRING_CONVERTTABS);return _FUNC_CONVERTTABS_STRING_CONVERTTABS; +} +qbs* FUNC_NEWBYTEELEMENT(){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data87.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +qbs_set(_FUNC_NEWBYTEELEMENT_STRING_A,qbs_add(qbs_new_txt_len("byte_element_",13),FUNC_STR2(&(pass3628=FUNC_UNIQUENUMBER())))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25392);}while(r); +do{ +qbs_set(_FUNC_NEWBYTEELEMENT_STRING_NEWBYTEELEMENT,_FUNC_NEWBYTEELEMENT_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25393);}while(r); +S_34162:; +if ((*__LONG_USE_GLOBAL_BYTE_ELEMENTS)||new_error){ +if(qbevent){evnt(25394);if(r)goto S_34162;} +do{ +SUB_WRITEBUFLINE(&(pass3629=*__LONG_GLOBTXTBUF),qbs_add(qbs_add(qbs_new_txt_len("byte_element_struct *",21),_FUNC_NEWBYTEELEMENT_STRING_A),qbs_new_txt_len("=(byte_element_struct*)malloc(12);",34))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25395);}while(r); +}else{ +do{ +SUB_WRITEBUFLINE(&(pass3630=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("byte_element_struct *",21),_FUNC_NEWBYTEELEMENT_STRING_A),qbs_new_txt_len("=NULL;",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25397);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass3631=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_new_txt_len("if (!",5),_FUNC_NEWBYTEELEMENT_STRING_A),qbs_new_txt_len("){",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25398);}while(r); +do{ +SUB_WRITEBUFLINE(&(pass3632=*__LONG_DATATXTBUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("if ((mem_static_pointer+=12)=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_NEWBYTEELEMENT_STRING_NEWBYTEELEMENT);return _FUNC_NEWBYTEELEMENT_STRING_NEWBYTEELEMENT; +} +int32 FUNC_VALIDNAME(qbs*_FUNC_VALIDNAME_STRING_A){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data88.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +*_FUNC_VALIDNAME_LONG_L=_FUNC_VALIDNAME_STRING_A->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25410);}while(r); +S_34171:; +if (((-(*_FUNC_VALIDNAME_LONG_L== 0 ))|(-(*_FUNC_VALIDNAME_LONG_L> 40 )))||new_error){ +if(qbevent){evnt(25412);if(r)goto S_34171;} +S_34172:; +if ((-(*_FUNC_VALIDNAME_LONG_L== 0 ))||new_error){ +if(qbevent){evnt(25413);if(r)goto S_34172;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(25413);}while(r); +} +do{ +*_FUNC_VALIDNAME_LONG_I=func_instr(NULL,_FUNC_VALIDNAME_STRING_A,__STRING_FIX046,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25415);}while(r); +S_34176:; +while((*_FUNC_VALIDNAME_LONG_I)||new_error){ +if(qbevent){evnt(25416);if(r)goto S_34176;} +do{ +*_FUNC_VALIDNAME_LONG_L=*_FUNC_VALIDNAME_LONG_L-__STRING_FIX046->len+ 1 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25417);}while(r); +do{ +*_FUNC_VALIDNAME_LONG_I=func_instr(*_FUNC_VALIDNAME_LONG_I+ 1 ,_FUNC_VALIDNAME_STRING_A,__STRING_FIX046,0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25418);}while(r); +dl_continue_3636:; +} +dl_exit_3636:; +S_34180:; +if ((-(*_FUNC_VALIDNAME_LONG_L> 40 ))||new_error){ +if(qbevent){evnt(25420);if(r)goto S_34180;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(25420);}while(r); +} +do{ +*_FUNC_VALIDNAME_LONG_L=_FUNC_VALIDNAME_STRING_A->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25421);}while(r); +} +S_34185:; +if ((-(*_FUNC_VALIDNAME_LONG_L>= 2 ))||new_error){ +if(qbevent){evnt(25425);if(r)goto S_34185;} +S_34186:; +if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(_FUNC_VALIDNAME_STRING_A, 1 )== 95 ))&(-(qbs_asc(_FUNC_VALIDNAME_STRING_A, 2 )!= 95 ))))||new_error){ +if(qbevent){evnt(25426);if(r)goto S_34186;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(25426);}while(r); +} +} +S_34190:; +fornext_value3640= 1 ; +fornext_finalvalue3640=*_FUNC_VALIDNAME_LONG_L; +fornext_step3640= 1 ; +if (fornext_step3640<0) fornext_step_negative3640=1; else fornext_step_negative3640=0; +if (new_error) goto fornext_error3640; +goto fornext_entrylabel3640; +while(1){ +fornext_value3640=fornext_step3640+(*_FUNC_VALIDNAME_LONG_I); +fornext_entrylabel3640: +*_FUNC_VALIDNAME_LONG_I=fornext_value3640; +if (fornext_step_negative3640){ +if (fornext_value3640fornext_finalvalue3640) break; +} +fornext_error3640:; +if(qbevent){evnt(25429);if(r)goto S_34190;} +do{ +*_FUNC_VALIDNAME_LONG_A=qbs_asc(_FUNC_VALIDNAME_STRING_A,*_FUNC_VALIDNAME_LONG_I); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25430);}while(r); +S_34192:; +if ((-(((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((*_FUNC_VALIDNAME_LONG_A)-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]== 0 ))||new_error){ +if(qbevent){evnt(25431);if(r)goto S_34192;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(25431);}while(r); +} +S_34195:; +if ((((int32*)(__ARRAY_LONG_ISNUMERIC[0]))[array_check((*_FUNC_VALIDNAME_LONG_A)-__ARRAY_LONG_ISNUMERIC[4],__ARRAY_LONG_ISNUMERIC[5])])||new_error){ +if(qbevent){evnt(25432);if(r)goto S_34195;} +do{ +*_FUNC_VALIDNAME_LONG_TRAILINGUNDERSCORE= 0 ; +if(!qbevent)break;evnt(25433);}while(r); +S_34197:; +if ((-(*_FUNC_VALIDNAME_LONG_ALPHABETLETTER== 0 ))||new_error){ +if(qbevent){evnt(25434);if(r)goto S_34197;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(25434);}while(r); +} +}else{ +S_34201:; +if ((-(*_FUNC_VALIDNAME_LONG_A== 95 ))||new_error){ +if(qbevent){evnt(25436);if(r)goto S_34201;} +do{ +*_FUNC_VALIDNAME_LONG_TRAILINGUNDERSCORE= 1 ; +if(!qbevent)break;evnt(25437);}while(r); +}else{ +do{ +*_FUNC_VALIDNAME_LONG_ALPHABETLETTER= 1 ; +if(!qbevent)break;evnt(25439);}while(r); +do{ +*_FUNC_VALIDNAME_LONG_TRAILINGUNDERSCORE= 0 ; +if(!qbevent)break;evnt(25440);}while(r); +} +} +fornext_continue_3639:; +} +fornext_exit_3639:; +S_34209:; +if ((*_FUNC_VALIDNAME_LONG_TRAILINGUNDERSCORE)||new_error){ +if(qbevent){evnt(25444);if(r)goto S_34209;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(25444);}while(r); +} +do{ +*_FUNC_VALIDNAME_LONG_VALIDNAME= 1 ; +if(!qbevent)break;evnt(25445);}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free88.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +return *_FUNC_VALIDNAME_LONG_VALIDNAME; +} +qbs* FUNC_STR_NTH(int32*_FUNC_STR_NTH_LONG_X){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data89.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +S_34213:; +if ((-(*_FUNC_STR_NTH_LONG_X== 1 ))||new_error){ +if(qbevent){evnt(25449);if(r)goto S_34213;} +do{ +qbs_set(_FUNC_STR_NTH_STRING_STR_NTH,qbs_new_txt_len("1st",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25449);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(25449);}while(r); +} +S_34217:; +if ((-(*_FUNC_STR_NTH_LONG_X== 2 ))||new_error){ +if(qbevent){evnt(25450);if(r)goto S_34217;} +do{ +qbs_set(_FUNC_STR_NTH_STRING_STR_NTH,qbs_new_txt_len("2nd",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25450);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(25450);}while(r); +} +S_34221:; +if ((-(*_FUNC_STR_NTH_LONG_X== 3 ))||new_error){ +if(qbevent){evnt(25451);if(r)goto S_34221;} +do{ +qbs_set(_FUNC_STR_NTH_STRING_STR_NTH,qbs_new_txt_len("3rd",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25451);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(25451);}while(r); +} +do{ +qbs_set(_FUNC_STR_NTH_STRING_STR_NTH,qbs_add(FUNC_STR2(_FUNC_STR_NTH_LONG_X),qbs_new_txt_len("th",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25452);}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free89.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_STR_NTH_STRING_STR_NTH);return _FUNC_STR_NTH_STRING_STR_NTH; +} +void SUB_GIVE_ERROR(qbs*_SUB_GIVE_ERROR_STRING_A){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data90.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +*__LONG_ERROR_HAPPENED= 1 ; +if(!qbevent)break;evnt(25456);}while(r); +do{ +qbs_set(__STRING_ERROR_MESSAGE,_SUB_GIVE_ERROR_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25457);}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free90.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +void SUB_WRITECONFIGSETTING(qbs*_SUB_WRITECONFIGSETTING_STRING_SECTION,qbs*_SUB_WRITECONFIGSETTING_STRING_ITEM,qbs*_SUB_WRITECONFIGSETTING_STRING_VALUE){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data91.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +SUB_WRITESETTING(__STRING_CONFIGFILE,_SUB_WRITECONFIGSETTING_STRING_SECTION,_SUB_WRITECONFIGSETTING_STRING_ITEM,_SUB_WRITECONFIGSETTING_STRING_VALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25461);}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free91.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +int32 FUNC_READCONFIGSETTING(qbs*_FUNC_READCONFIGSETTING_STRING_SECTION,qbs*_FUNC_READCONFIGSETTING_STRING_ITEM,qbs*_FUNC_READCONFIGSETTING_STRING_VALUE){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data92.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +qbs_set(_FUNC_READCONFIGSETTING_STRING_VALUE,FUNC_READSETTING(__STRING_CONFIGFILE,_FUNC_READCONFIGSETTING_STRING_SECTION,_FUNC_READCONFIGSETTING_STRING_ITEM)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25465);}while(r); +do{ +*_FUNC_READCONFIGSETTING_LONG_READCONFIGSETTING=(-(_FUNC_READCONFIGSETTING_STRING_VALUE->len> 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25466);}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free92.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +return *_FUNC_READCONFIGSETTING_LONG_READCONFIGSETTING; +} +uint32 FUNC_VRGBS(qbs*_FUNC_VRGBS_STRING_TEXT,uint32*_FUNC_VRGBS_ULONG_DEFAULTCOLOR){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data93.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +*_FUNC_VRGBS_ULONG_VRGBS=*_FUNC_VRGBS_ULONG_DEFAULTCOLOR; +if(!qbevent)break;evnt(25475);}while(r); +S_34232:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(_FUNC_VRGBS_STRING_TEXT, 4 )),qbs_new_txt_len("_RGB",4))))||new_error){ +if(qbevent){evnt(25476);if(r)goto S_34232;} +do{ +*_FUNC_VRGBS_LONG_RPOS=func_instr(NULL,_FUNC_VRGBS_STRING_TEXT,qbs_new_txt_len("(",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25477);}while(r); +do{ +*_FUNC_VRGBS_LONG_GPOS=func_instr(*_FUNC_VRGBS_LONG_RPOS,_FUNC_VRGBS_STRING_TEXT,qbs_new_txt_len(",",1),0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25478);}while(r); +do{ +*_FUNC_VRGBS_LONG_BPOS=func_instr(*_FUNC_VRGBS_LONG_GPOS+ 1 ,_FUNC_VRGBS_STRING_TEXT,qbs_new_txt_len(",",1),0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25479);}while(r); +S_34236:; +if (((-(*_FUNC_VRGBS_LONG_RPOS!= 0 ))&(-(*_FUNC_VRGBS_LONG_BPOS!= 0 ))&(-(*_FUNC_VRGBS_LONG_GPOS!= 0 )))||new_error){ +if(qbevent){evnt(25480);if(r)goto S_34236;} +do{ +*_FUNC_VRGBS_LONG_RED=qbr(func_val(qbs__trim(func_mid(_FUNC_VRGBS_STRING_TEXT,*_FUNC_VRGBS_LONG_RPOS+ 1 ,NULL,0)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25481);}while(r); +do{ +*_FUNC_VRGBS_LONG_GREEN=qbr(func_val(qbs__trim(func_mid(_FUNC_VRGBS_STRING_TEXT,*_FUNC_VRGBS_LONG_GPOS+ 1 ,NULL,0)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25482);}while(r); +do{ +*_FUNC_VRGBS_LONG_BLUE=qbr(func_val(qbs__trim(func_mid(_FUNC_VRGBS_STRING_TEXT,*_FUNC_VRGBS_LONG_BPOS+ 1 ,NULL,0)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25483);}while(r); +do{ +*_FUNC_VRGBS_ULONG_VRGBS=func__rgb32(*_FUNC_VRGBS_LONG_RED,*_FUNC_VRGBS_LONG_GREEN,*_FUNC_VRGBS_LONG_BLUE); +if(!qbevent)break;evnt(25484);}while(r); +} +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free93.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +return *_FUNC_VRGBS_ULONG_VRGBS; +} +qbs* FUNC_RGBS(uint32*_FUNC_RGBS_ULONG_C){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data94.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +qbs_set(_FUNC_RGBS_STRING_RGBS,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("_RGB32(",7),qbs__trim(qbs_str((int32)(func__red32(*_FUNC_RGBS_ULONG_C))))),qbs_new_txt_len(", ",2)),qbs__trim(qbs_str((int32)(func__green32(*_FUNC_RGBS_ULONG_C))))),qbs_new_txt_len(", ",2)),qbs__trim(qbs_str((int32)(func__blue32(*_FUNC_RGBS_ULONG_C))))),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25490);}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free94.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_RGBS_STRING_RGBS);return _FUNC_RGBS_STRING_RGBS; +} +int32 FUNC_EVALPREIF(qbs*_FUNC_EVALPREIF_STRING_TEXT,qbs*_FUNC_EVALPREIF_STRING_ERR){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data95.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +qbs_set(_FUNC_EVALPREIF_STRING_TEMP,_FUNC_EVALPREIF_STRING_TEXT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25494);}while(r); +do{ +qbs_set(_FUNC_EVALPREIF_STRING_ERR,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25495);}while(r); +do{ if (_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[2]&2){ error(10); @@ -113317,1613 +113317,1613 @@ while(tmp_long--) ((uint64*)(_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[0]))[tmp_long]=( while(tmp_long--) ((uint64*)(_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -} -if(!qbevent)break;evnt(25497);}while(r); -do{ -tmp_long=array_check(( 1 )-_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[4],_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[0]))[tmp_long])),qbs_new_txt_len("=",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25498);}while(r); -do{ -tmp_long=array_check(( 2 )-_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[4],_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[0]))[tmp_long])),qbs_new_txt_len("<",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25499);}while(r); -do{ -tmp_long=array_check(( 3 )-_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[4],_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[0]))[tmp_long])),qbs_new_txt_len(">",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25500);}while(r); -S_34250:; -do{ -if(qbevent){evnt(25501);if(r)goto S_34250;} -do{ -qbs_set(_FUNC_EVALPREIF_STRING_FIRSTSYMBOL,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25503);}while(r); -do{ -*_FUNC_EVALPREIF_LONG_FIRST= 0 ; -if(!qbevent)break;evnt(25503);}while(r); -S_34253:; -fornext_value3654= 1 ; -fornext_finalvalue3654=func_ubound(_FUNC_EVALPREIF_ARRAY_STRING_PC_OP,1,1); -fornext_step3654= 1 ; -if (fornext_step3654<0) fornext_step_negative3654=1; else fornext_step_negative3654=0; -if (new_error) goto fornext_error3654; -goto fornext_entrylabel3654; -while(1){ -fornext_value3654=fornext_step3654+(*_FUNC_EVALPREIF_LONG_I); -fornext_entrylabel3654: -*_FUNC_EVALPREIF_LONG_I=fornext_value3654; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative3654){ -if (fornext_value3654fornext_finalvalue3654) break; -} -fornext_error3654:; -if(qbevent){evnt(25504);if(r)goto S_34253;} -do{ -*_FUNC_EVALPREIF_LONG_TEMP=func_instr(NULL,_FUNC_EVALPREIF_STRING_TEMP,((qbs*)(((uint64*)(_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[0]))[array_check((*_FUNC_EVALPREIF_LONG_I)-_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[4],_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[5])])),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25505);}while(r); -S_34255:; -if ((-(*_FUNC_EVALPREIF_LONG_FIRST== 0 ))||new_error){ -if(qbevent){evnt(25506);if(r)goto S_34255;} -do{ -*_FUNC_EVALPREIF_LONG_FIRST=*_FUNC_EVALPREIF_LONG_TEMP; -if(!qbevent)break;evnt(25506);}while(r); -do{ -qbs_set(_FUNC_EVALPREIF_STRING_FIRSTSYMBOL,((qbs*)(((uint64*)(_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[0]))[array_check((*_FUNC_EVALPREIF_LONG_I)-_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[4],_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25506);}while(r); -} -S_34259:; -if (((-(*_FUNC_EVALPREIF_LONG_TEMP!= 0 ))&(-(*_FUNC_EVALPREIF_LONG_TEMP<*_FUNC_EVALPREIF_LONG_FIRST)))||new_error){ -if(qbevent){evnt(25507);if(r)goto S_34259;} -do{ -*_FUNC_EVALPREIF_LONG_FIRST=*_FUNC_EVALPREIF_LONG_TEMP; -if(!qbevent)break;evnt(25507);}while(r); -do{ -qbs_set(_FUNC_EVALPREIF_STRING_FIRSTSYMBOL,((qbs*)(((uint64*)(_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[0]))[array_check((*_FUNC_EVALPREIF_LONG_I)-_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[4],_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25507);}while(r); -} -fornext_continue_3653:; -} -fornext_exit_3653:; -S_34264:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_EVALPREIF_STRING_FIRSTSYMBOL,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25509);if(r)goto S_34264;} -do{ -*_FUNC_EVALPREIF_LONG_SECONDSYMBOL= 0 ; -if(!qbevent)break;evnt(25510);}while(r); -do{ -*_FUNC_EVALPREIF_LONG_SECOND= 0 ; -if(!qbevent)break;evnt(25510);}while(r); -S_34267:; -fornext_value3656=*_FUNC_EVALPREIF_LONG_FIRST+ 1 ; -fornext_finalvalue3656=_FUNC_EVALPREIF_STRING_TEMP->len; -fornext_step3656= 1 ; -if (fornext_step3656<0) fornext_step_negative3656=1; else fornext_step_negative3656=0; -if (new_error) goto fornext_error3656; -goto fornext_entrylabel3656; -while(1){ -fornext_value3656=fornext_step3656+(*_FUNC_EVALPREIF_LONG_I); -fornext_entrylabel3656: -*_FUNC_EVALPREIF_LONG_I=fornext_value3656; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative3656){ -if (fornext_value3656fornext_finalvalue3656) break; -} -fornext_error3656:; -if(qbevent){evnt(25511);if(r)goto S_34267;} -do{ -qbs_set(_FUNC_EVALPREIF_STRING_A,func_mid(_FUNC_EVALPREIF_STRING_TEMP,*_FUNC_EVALPREIF_LONG_I, 1 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25512);}while(r); -S_34269:; -if(qbevent){evnt(25513);if(r)goto S_34269;} -S_34270:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALPREIF_STRING_A,qbs_new_txt_len(" ",1))))||new_error){ -if(qbevent){evnt(25514);if(r)goto S_34270;} -sc_ec_189_end:; -goto sc_3658_end; -} -S_34271:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALPREIF_STRING_A,qbs_new_txt_len("=",1))||qbs_equal(_FUNC_EVALPREIF_STRING_A,qbs_new_txt_len("<",1))||qbs_equal(_FUNC_EVALPREIF_STRING_A,qbs_new_txt_len(">",1))))||new_error){ -if(qbevent){evnt(25515);if(r)goto S_34271;} -S_34272:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALPREIF_STRING_A,_FUNC_EVALPREIF_STRING_FIRSTSYMBOL)))||new_error){ -if(qbevent){evnt(25516);if(r)goto S_34272;} -do{ -qbs_set(_FUNC_EVALPREIF_STRING_ERR,qbs_add(qbs_add(qbs_new_txt_len("Duplicate operator (",20),_FUNC_EVALPREIF_STRING_A),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25516);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25516);}while(r); -} -do{ -*_FUNC_EVALPREIF_LONG_SECOND=*_FUNC_EVALPREIF_LONG_I; -if(!qbevent)break;evnt(25517);}while(r); -do{ -qbs_set(_FUNC_EVALPREIF_STRING_SECONDSYMBOL,_FUNC_EVALPREIF_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25517);}while(r); -sc_ec_190_end:; -goto sc_3658_end; -} -do{ -goto fornext_exit_3655; -if(!qbevent)break;evnt(25519);}while(r); -sc_3658_end:; -fornext_continue_3655:; -} -fornext_exit_3655:; -} -S_34283:; -if ((*_FUNC_EVALPREIF_LONG_FIRST)||new_error){ -if(qbevent){evnt(25523);if(r)goto S_34283;} -do{ -qbs_set(_FUNC_EVALPREIF_STRING_L,qbs_rtrim(qbs_left(_FUNC_EVALPREIF_STRING_TEMP,*_FUNC_EVALPREIF_LONG_FIRST- 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25524);}while(r); -S_34285:; -if ((*_FUNC_EVALPREIF_LONG_SECOND)||new_error){ -if(qbevent){evnt(25525);if(r)goto S_34285;} -do{ -*_FUNC_EVALPREIF_LONG_RIGHTSTART=*_FUNC_EVALPREIF_LONG_SECOND+ 1 ; -if(!qbevent)break;evnt(25525);}while(r); -}else{ -do{ -*_FUNC_EVALPREIF_LONG_RIGHTSTART=*_FUNC_EVALPREIF_LONG_FIRST+ 1 ; -if(!qbevent)break;evnt(25525);}while(r); -} -do{ -qbs_set(_FUNC_EVALPREIF_STRING_R,qbs_ltrim(func_mid(_FUNC_EVALPREIF_STRING_TEMP,*_FUNC_EVALPREIF_LONG_RIGHTSTART,NULL,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25527);}while(r); -do{ -qbs_set(_FUNC_EVALPREIF_STRING_SYMBOL,qbs_add(func_mid(_FUNC_EVALPREIF_STRING_TEMP,*_FUNC_EVALPREIF_LONG_FIRST, 1 ,0|1),func_mid(_FUNC_EVALPREIF_STRING_TEMP,*_FUNC_EVALPREIF_LONG_SECOND, 1 ,0|1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25528);}while(r); -S_34292:; -fornext_value3660=_FUNC_EVALPREIF_STRING_L->len; -fornext_finalvalue3660= 1 ; -fornext_step3660= -1 ; -if (fornext_step3660<0) fornext_step_negative3660=1; else fornext_step_negative3660=0; -if (new_error) goto fornext_error3660; -goto fornext_entrylabel3660; -while(1){ -fornext_value3660=fornext_step3660+(*_FUNC_EVALPREIF_LONG_I); -fornext_entrylabel3660: -*_FUNC_EVALPREIF_LONG_I=fornext_value3660; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative3660){ -if (fornext_value3660fornext_finalvalue3660) break; -} -fornext_error3660:; -if(qbevent){evnt(25530);if(r)goto S_34292;} -S_34293:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_EVALPREIF_STRING_L,*_FUNC_EVALPREIF_LONG_I)== 32 )))||new_error){ -if(qbevent){evnt(25531);if(r)goto S_34293;} -do{ -goto fornext_exit_3659; -if(!qbevent)break;evnt(25531);}while(r); -} -fornext_continue_3659:; -} -fornext_exit_3659:; -do{ -qbs_set(_FUNC_EVALPREIF_STRING_LEFTSIDE,qbs_rtrim(qbs_left(_FUNC_EVALPREIF_STRING_TEMP,*_FUNC_EVALPREIF_LONG_I))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25533);}while(r); -do{ -qbs_set(_FUNC_EVALPREIF_STRING_L,qbs_ltrim(qbs_rtrim(func_mid(_FUNC_EVALPREIF_STRING_TEMP,*_FUNC_EVALPREIF_LONG_I+ 1 ,_FUNC_EVALPREIF_STRING_L->len-*_FUNC_EVALPREIF_LONG_I,0|1)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25534);}while(r); -S_34299:; -if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(_FUNC_EVALPREIF_STRING_L)== 0 )))||new_error){ -if(qbevent){evnt(25535);if(r)goto S_34299;} -do{ -qbs_set(_FUNC_EVALPREIF_STRING_ERR,qbs_new_txt_len("Invalid flag name",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25535);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25535);}while(r); -} -do{ -*_FUNC_EVALPREIF_LONG_RIGHTSTOP=_FUNC_EVALPREIF_STRING_R->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25536);}while(r); -S_34304:; -fornext_value3665= 1 ; -fornext_finalvalue3665=_FUNC_EVALPREIF_STRING_R->len; -fornext_step3665= 1 ; -if (fornext_step3665<0) fornext_step_negative3665=1; else fornext_step_negative3665=0; -if (new_error) goto fornext_error3665; -goto fornext_entrylabel3665; -while(1){ -fornext_value3665=fornext_step3665+(*_FUNC_EVALPREIF_LONG_I); -fornext_entrylabel3665: -*_FUNC_EVALPREIF_LONG_I=fornext_value3665; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative3665){ -if (fornext_value3665fornext_finalvalue3665) break; -} -fornext_error3665:; -if(qbevent){evnt(25537);if(r)goto S_34304;} -S_34305:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_EVALPREIF_STRING_R,*_FUNC_EVALPREIF_LONG_I)== 32 )))||new_error){ -if(qbevent){evnt(25538);if(r)goto S_34305;} -do{ -goto fornext_exit_3664; -if(!qbevent)break;evnt(25538);}while(r); -} -fornext_continue_3664:; -} -fornext_exit_3664:; -do{ -qbs_set(_FUNC_EVALPREIF_STRING_RIGHTSIDE,qbs_ltrim(func_mid(_FUNC_EVALPREIF_STRING_R,*_FUNC_EVALPREIF_LONG_I+ 1 ,NULL,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25540);}while(r); -do{ -qbs_set(_FUNC_EVALPREIF_STRING_R,qbs_ltrim(qbs_rtrim(qbs_left(_FUNC_EVALPREIF_STRING_R,*_FUNC_EVALPREIF_LONG_I- 1 )))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25541);}while(r); -S_34311:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALPREIF_STRING_SYMBOL,qbs_new_txt_len("=<",2))))||new_error){ -if(qbevent){evnt(25542);if(r)goto S_34311;} -do{ -qbs_set(_FUNC_EVALPREIF_STRING_SYMBOL,qbs_new_txt_len("<=",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25542);}while(r); -} -S_34314:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALPREIF_STRING_SYMBOL,qbs_new_txt_len("=>",2))))||new_error){ -if(qbevent){evnt(25543);if(r)goto S_34314;} -do{ -qbs_set(_FUNC_EVALPREIF_STRING_SYMBOL,qbs_new_txt_len(">=",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25543);}while(r); -} -S_34317:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALPREIF_STRING_SYMBOL,qbs_new_txt_len("><",2))))||new_error){ -if(qbevent){evnt(25544);if(r)goto S_34317;} -do{ -qbs_set(_FUNC_EVALPREIF_STRING_SYMBOL,qbs_new_txt_len("<>",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25544);}while(r); -} -do{ -qbs_set(_FUNC_EVALPREIF_STRING_RESULT,qbs_new_txt_len(" 0 ",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25545);}while(r); -S_34321:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALPREIF_STRING_SYMBOL,qbs_new_txt_len("<>",2))))||new_error){ -if(qbevent){evnt(25546);if(r)goto S_34321;} -S_34322:; -fornext_value3668= 0 ; -fornext_finalvalue3668=*__INTEGER_USERDEFINECOUNT; -fornext_step3668= 1 ; -if (fornext_step3668<0) fornext_step_negative3668=1; else fornext_step_negative3668=0; -if (new_error) goto fornext_error3668; -goto fornext_entrylabel3668; -while(1){ -fornext_value3668=fornext_step3668+(*_FUNC_EVALPREIF_LONG_I); -fornext_entrylabel3668: -*_FUNC_EVALPREIF_LONG_I=fornext_value3668; -if (fornext_step_negative3668){ -if (fornext_value3668fornext_finalvalue3668) break; -} -fornext_error3668:; -if(qbevent){evnt(25547);if(r)goto S_34322;} -S_34323:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[array_check(( 0 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*_FUNC_EVALPREIF_LONG_I)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]])),_FUNC_EVALPREIF_STRING_L))&(qbs_notequal(((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*_FUNC_EVALPREIF_LONG_I)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]])),_FUNC_EVALPREIF_STRING_R))))||new_error){ -if(qbevent){evnt(25548);if(r)goto S_34323;} -do{ -qbs_set(_FUNC_EVALPREIF_STRING_RESULT,qbs_new_txt_len(" -1 ",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25548);}while(r); -do{ -goto LABEL_FINISHEDCHECK; -if(!qbevent)break;evnt(25548);}while(r); -} -fornext_continue_3667:; -} -fornext_exit_3667:; -} -S_34329:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_EVALPREIF_STRING_SYMBOL,qbs_new_txt_len("=",1),0)))||new_error){ -if(qbevent){evnt(25551);if(r)goto S_34329;} -do{ -*_FUNC_EVALPREIF_LONG_USERFOUND= 0 ; -if(!qbevent)break;evnt(25552);}while(r); -S_34331:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALPREIF_STRING_L,((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[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]])))))||new_error){ -if(qbevent){evnt(25553);if(r)goto S_34331;} -do{ -*_FUNC_EVALPREIF_LONG_RESULT=FUNC_COMPAREVERSIONS(__STRING_VERSION,_FUNC_EVALPREIF_STRING_R); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25554);}while(r); -S_34333:; -if ((-(*_FUNC_EVALPREIF_LONG_RESULT== 0 ))||new_error){ -if(qbevent){evnt(25555);if(r)goto S_34333;} -do{ -qbs_set(_FUNC_EVALPREIF_STRING_RESULT,qbs_new_txt_len(" -1 ",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25555);}while(r); -do{ -goto LABEL_FINISHEDCHECK; -if(!qbevent)break;evnt(25555);}while(r); -} -} -S_34338:; -fornext_value3670= 0 ; -fornext_finalvalue3670=*__INTEGER_USERDEFINECOUNT; -fornext_step3670= 1 ; -if (fornext_step3670<0) fornext_step_negative3670=1; else fornext_step_negative3670=0; -if (new_error) goto fornext_error3670; -goto fornext_entrylabel3670; -while(1){ -fornext_value3670=fornext_step3670+(*_FUNC_EVALPREIF_LONG_I); -fornext_entrylabel3670: -*_FUNC_EVALPREIF_LONG_I=fornext_value3670; -if (fornext_step_negative3670){ -if (fornext_value3670fornext_finalvalue3670) break; -} -fornext_error3670:; -if(qbevent){evnt(25557);if(r)goto S_34338;} -S_34339:; -if ((-(*_FUNC_EVALPREIF_LONG_I== 7 ))||new_error){ -if(qbevent){evnt(25558);if(r)goto S_34339;} -do{ -goto fornext_continue_3669; -if(!qbevent)break;evnt(25558);}while(r); -} -S_34342:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[array_check(( 0 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*_FUNC_EVALPREIF_LONG_I)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]])),_FUNC_EVALPREIF_STRING_L)))||new_error){ -if(qbevent){evnt(25559);if(r)goto S_34342;} -do{ -*_FUNC_EVALPREIF_LONG_USERFOUND= -1 ; -if(!qbevent)break;evnt(25560);}while(r); -S_34344:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*_FUNC_EVALPREIF_LONG_I)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]])),_FUNC_EVALPREIF_STRING_R)))||new_error){ -if(qbevent){evnt(25561);if(r)goto S_34344;} -do{ -qbs_set(_FUNC_EVALPREIF_STRING_RESULT,qbs_new_txt_len(" -1 ",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25561);}while(r); -do{ -goto LABEL_FINISHEDCHECK; -if(!qbevent)break;evnt(25561);}while(r); -} -} -fornext_continue_3669:; -} -fornext_exit_3669:; -S_34350:; -if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_EVALPREIF_LONG_USERFOUND== 0 ))&(qbs_equal(qbs_ltrim(qbs_rtrim(_FUNC_EVALPREIF_STRING_R)),qbs_new_txt_len("UNDEFINED",9)))))||new_error){ -if(qbevent){evnt(25564);if(r)goto S_34350;} -do{ -qbs_set(_FUNC_EVALPREIF_STRING_RESULT,qbs_new_txt_len(" -1 ",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25564);}while(r); -do{ -goto LABEL_FINISHEDCHECK; -if(!qbevent)break;evnt(25564);}while(r); -} -S_34354:; -if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_EVALPREIF_LONG_USERFOUND== -1 ))&(qbs_equal(qbs_ltrim(qbs_rtrim(_FUNC_EVALPREIF_STRING_R)),qbs_new_txt_len("DEFINED",7)))))||new_error){ -if(qbevent){evnt(25565);if(r)goto S_34354;} -do{ -qbs_set(_FUNC_EVALPREIF_STRING_RESULT,qbs_new_txt_len(" -1 ",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25565);}while(r); -do{ -goto LABEL_FINISHEDCHECK; -if(!qbevent)break;evnt(25565);}while(r); -} -} -S_34359:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_EVALPREIF_STRING_SYMBOL,qbs_new_txt_len(">",1),0)))||new_error){ -if(qbevent){evnt(25568);if(r)goto S_34359;} -S_34360:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALPREIF_STRING_L,((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[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]])))))||new_error){ -if(qbevent){evnt(25569);if(r)goto S_34360;} -do{ -*_FUNC_EVALPREIF_LONG_RESULT=FUNC_COMPAREVERSIONS(__STRING_VERSION,_FUNC_EVALPREIF_STRING_R); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25570);}while(r); -S_34362:; -if ((-(*_FUNC_EVALPREIF_LONG_RESULT== 1 ))||new_error){ -if(qbevent){evnt(25571);if(r)goto S_34362;} -do{ -qbs_set(_FUNC_EVALPREIF_STRING_RESULT,qbs_new_txt_len(" -1 ",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25571);}while(r); -do{ -goto LABEL_FINISHEDCHECK; -if(!qbevent)break;evnt(25571);}while(r); -} -} -S_34367:; -fornext_value3672= 0 ; -fornext_finalvalue3672=*__INTEGER_USERDEFINECOUNT; -fornext_step3672= 1 ; -if (fornext_step3672<0) fornext_step_negative3672=1; else fornext_step_negative3672=0; -if (new_error) goto fornext_error3672; -goto fornext_entrylabel3672; -while(1){ -fornext_value3672=fornext_step3672+(*_FUNC_EVALPREIF_LONG_I); -fornext_entrylabel3672: -*_FUNC_EVALPREIF_LONG_I=fornext_value3672; -if (fornext_step_negative3672){ -if (fornext_value3672fornext_finalvalue3672) break; -} -fornext_error3672:; -if(qbevent){evnt(25573);if(r)goto S_34367;} -S_34368:; -if ((-(*_FUNC_EVALPREIF_LONG_I== 7 ))||new_error){ -if(qbevent){evnt(25574);if(r)goto S_34368;} -do{ -goto fornext_continue_3671; -if(!qbevent)break;evnt(25574);}while(r); -} -S_34371:; -if ((qbs_cleanup(qbs_tmp_base,FUNC_VERIFYNUMBER(_FUNC_EVALPREIF_STRING_R)&FUNC_VERIFYNUMBER(((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*_FUNC_EVALPREIF_LONG_I)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]])))))||new_error){ -if(qbevent){evnt(25575);if(r)goto S_34371;} -S_34372:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[array_check(( 0 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*_FUNC_EVALPREIF_LONG_I)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]])),_FUNC_EVALPREIF_STRING_L))&(-(func_val(((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*_FUNC_EVALPREIF_LONG_I)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]])))>func_val(_FUNC_EVALPREIF_STRING_R)))))||new_error){ -if(qbevent){evnt(25576);if(r)goto S_34372;} -do{ -qbs_set(_FUNC_EVALPREIF_STRING_RESULT,qbs_new_txt_len(" -1 ",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25576);}while(r); -do{ -goto LABEL_FINISHEDCHECK; -if(!qbevent)break;evnt(25576);}while(r); -} -}else{ -S_34377:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[array_check(( 0 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*_FUNC_EVALPREIF_LONG_I)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]])),_FUNC_EVALPREIF_STRING_L))&(qbs_greaterthan(((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*_FUNC_EVALPREIF_LONG_I)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]])),_FUNC_EVALPREIF_STRING_R))))||new_error){ -if(qbevent){evnt(25578);if(r)goto S_34377;} -do{ -qbs_set(_FUNC_EVALPREIF_STRING_RESULT,qbs_new_txt_len(" -1 ",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25578);}while(r); -do{ -goto LABEL_FINISHEDCHECK; -if(!qbevent)break;evnt(25578);}while(r); -} -} -fornext_continue_3671:; -} -fornext_exit_3671:; -} -S_34384:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_EVALPREIF_STRING_SYMBOL,qbs_new_txt_len("<",1),0)))||new_error){ -if(qbevent){evnt(25583);if(r)goto S_34384;} -S_34385:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALPREIF_STRING_L,((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[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]])))))||new_error){ -if(qbevent){evnt(25584);if(r)goto S_34385;} -do{ -*_FUNC_EVALPREIF_LONG_RESULT=FUNC_COMPAREVERSIONS(__STRING_VERSION,_FUNC_EVALPREIF_STRING_R); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25585);}while(r); -S_34387:; -if ((-(*_FUNC_EVALPREIF_LONG_RESULT== -1 ))||new_error){ -if(qbevent){evnt(25586);if(r)goto S_34387;} -do{ -qbs_set(_FUNC_EVALPREIF_STRING_RESULT,qbs_new_txt_len(" -1 ",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25586);}while(r); -do{ -goto LABEL_FINISHEDCHECK; -if(!qbevent)break;evnt(25586);}while(r); -} -} -S_34392:; -fornext_value3674= 0 ; -fornext_finalvalue3674=*__INTEGER_USERDEFINECOUNT; -fornext_step3674= 1 ; -if (fornext_step3674<0) fornext_step_negative3674=1; else fornext_step_negative3674=0; -if (new_error) goto fornext_error3674; -goto fornext_entrylabel3674; -while(1){ -fornext_value3674=fornext_step3674+(*_FUNC_EVALPREIF_LONG_I); -fornext_entrylabel3674: -*_FUNC_EVALPREIF_LONG_I=fornext_value3674; -if (fornext_step_negative3674){ -if (fornext_value3674fornext_finalvalue3674) break; -} -fornext_error3674:; -if(qbevent){evnt(25588);if(r)goto S_34392;} -S_34393:; -if ((-(*_FUNC_EVALPREIF_LONG_I== 7 ))||new_error){ -if(qbevent){evnt(25589);if(r)goto S_34393;} -do{ -goto fornext_continue_3673; -if(!qbevent)break;evnt(25589);}while(r); -} -S_34396:; -if ((qbs_cleanup(qbs_tmp_base,FUNC_VERIFYNUMBER(_FUNC_EVALPREIF_STRING_R)&FUNC_VERIFYNUMBER(((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*_FUNC_EVALPREIF_LONG_I)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]])))))||new_error){ -if(qbevent){evnt(25590);if(r)goto S_34396;} -S_34397:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[array_check(( 0 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*_FUNC_EVALPREIF_LONG_I)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]])),_FUNC_EVALPREIF_STRING_L))&(-(func_val(((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*_FUNC_EVALPREIF_LONG_I)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]])))fornext_finalvalue3677) break; -} -fornext_error3677:; -if(qbevent){evnt(25611);if(r)goto S_34417;} -S_34418:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(((qbs*)(((uint64*)(_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[0]))[array_check((*_FUNC_EVALPREIF_LONG_I)-_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[4],_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[5])])),qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(25612);if(r)goto S_34418;} -do{ -*_FUNC_EVALPREIF_LONG_T=func_instr(NULL,_FUNC_EVALPREIF_STRING_TEMP,((qbs*)(((uint64*)(_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[0]))[array_check((*_FUNC_EVALPREIF_LONG_I)-_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[4],_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[5])])),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25613);}while(r); -S_34420:; -if ((-(*_FUNC_EVALPREIF_LONG_FIRST!= 0 ))||new_error){ -if(qbevent){evnt(25614);if(r)goto S_34420;} -S_34421:; -if (((-(*_FUNC_EVALPREIF_LONG_T<*_FUNC_EVALPREIF_LONG_FIRST))&(-(*_FUNC_EVALPREIF_LONG_T!= 0 )))||new_error){ -if(qbevent){evnt(25615);if(r)goto S_34421;} -do{ -*_FUNC_EVALPREIF_LONG_FIRST=*_FUNC_EVALPREIF_LONG_T; -if(!qbevent)break;evnt(25615);}while(r); -do{ -*_FUNC_EVALPREIF_LONG_FIRSTSYMBOL=*_FUNC_EVALPREIF_LONG_I; -if(!qbevent)break;evnt(25615);}while(r); -} -}else{ -do{ -*_FUNC_EVALPREIF_LONG_FIRST=*_FUNC_EVALPREIF_LONG_T; -if(!qbevent)break;evnt(25617);}while(r); -do{ -*_FUNC_EVALPREIF_LONG_FIRSTSYMBOL=*_FUNC_EVALPREIF_LONG_I; -if(!qbevent)break;evnt(25617);}while(r); -} -} -fornext_continue_3676:; -} -fornext_exit_3676:; -S_34431:; -if ((-(*_FUNC_EVALPREIF_LONG_FIRST== 0 ))||new_error){ -if(qbevent){evnt(25621);if(r)goto S_34431;} -do{ -goto dl_exit_3675; -if(!qbevent)break;evnt(25621);}while(r); -} -do{ -qbs_set(_FUNC_EVALPREIF_STRING_LEFTSIDE,qbs_rtrim(qbs_left(_FUNC_EVALPREIF_STRING_TEMP,*_FUNC_EVALPREIF_LONG_FIRST- 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25622);}while(r); -do{ -qbs_set(_FUNC_EVALPREIF_STRING_SYMBOL,func_mid(_FUNC_EVALPREIF_STRING_TEMP,*_FUNC_EVALPREIF_LONG_FIRST,((qbs*)(((uint64*)(_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[0]))[array_check((*_FUNC_EVALPREIF_LONG_FIRSTSYMBOL)-_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[4],_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[5])]))->len,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25623);}while(r); -do{ -qbs_set(_FUNC_EVALPREIF_STRING_T,func_mid(_FUNC_EVALPREIF_STRING_TEMP,*_FUNC_EVALPREIF_LONG_FIRST+((qbs*)(((uint64*)(_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[0]))[array_check((*_FUNC_EVALPREIF_LONG_FIRSTSYMBOL)-_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[4],_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[5])]))->len,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25624);}while(r); -do{ -*_FUNC_EVALPREIF_LONG_T=func_instr(NULL,_FUNC_EVALPREIF_STRING_T,qbs_new_txt_len(" ",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25625);}while(r); -S_34438:; -if ((*_FUNC_EVALPREIF_LONG_T)||new_error){ -if(qbevent){evnt(25626);if(r)goto S_34438;} -do{ -qbs_set(_FUNC_EVALPREIF_STRING_M,qbs_ltrim(qbs_rtrim(qbs_left(_FUNC_EVALPREIF_STRING_T,*_FUNC_EVALPREIF_LONG_T- 1 )))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25627);}while(r); -do{ -qbs_set(_FUNC_EVALPREIF_STRING_RIGHTSIDE,qbs_ltrim(func_mid(_FUNC_EVALPREIF_STRING_T,*_FUNC_EVALPREIF_LONG_T,NULL,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25628);}while(r); -}else{ -do{ -qbs_set(_FUNC_EVALPREIF_STRING_M,qbs_ltrim(func_mid(_FUNC_EVALPREIF_STRING_T,*_FUNC_EVALPREIF_LONG_T,NULL,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25630);}while(r); -do{ -qbs_set(_FUNC_EVALPREIF_STRING_RIGHTSIDE,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25631);}while(r); -} -do{ -*_FUNC_EVALPREIF_LONG_LEFTRESULT= 0 ; -if(!qbevent)break;evnt(25633);}while(r); -S_34446:; -if ((qbs_cleanup(qbs_tmp_base,FUNC_VERIFYNUMBER(_FUNC_EVALPREIF_STRING_LEFTSIDE)))||new_error){ -if(qbevent){evnt(25634);if(r)goto S_34446;} -S_34447:; -if ((qbs_cleanup(qbs_tmp_base,-(func_val(_FUNC_EVALPREIF_STRING_LEFTSIDE)!= 0 )))||new_error){ -if(qbevent){evnt(25635);if(r)goto S_34447;} -do{ -*_FUNC_EVALPREIF_LONG_LEFTRESULT= -1 ; -if(!qbevent)break;evnt(25635);}while(r); -} -}else{ -S_34451:; -fornext_value3681= 0 ; -fornext_finalvalue3681=*__INTEGER_USERDEFINECOUNT; -fornext_step3681= 1 ; -if (fornext_step3681<0) fornext_step_negative3681=1; else fornext_step_negative3681=0; -if (new_error) goto fornext_error3681; -goto fornext_entrylabel3681; -while(1){ -fornext_value3681=fornext_step3681+(*_FUNC_EVALPREIF_LONG_I); -fornext_entrylabel3681: -*_FUNC_EVALPREIF_LONG_I=fornext_value3681; -if (fornext_step_negative3681){ -if (fornext_value3681fornext_finalvalue3681) break; -} -fornext_error3681:; -if(qbevent){evnt(25637);if(r)goto S_34451;} -S_34452:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[array_check(( 0 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*_FUNC_EVALPREIF_LONG_I)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]])),_FUNC_EVALPREIF_STRING_LEFTSIDE)))||new_error){ -if(qbevent){evnt(25638);if(r)goto S_34452;} -do{ -qbs_set(_FUNC_EVALPREIF_STRING_T,qbs_ltrim(qbs_rtrim(((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*_FUNC_EVALPREIF_LONG_I)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]]))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25639);}while(r); -S_34454:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(_FUNC_EVALPREIF_STRING_T,qbs_new_txt_len("0",1)))&(qbs_notequal(_FUNC_EVALPREIF_STRING_T,qbs_new_txt_len("",0)))))||new_error){ -if(qbevent){evnt(25640);if(r)goto S_34454;} -do{ -*_FUNC_EVALPREIF_LONG_LEFTRESULT= -1 ; -if(!qbevent)break;evnt(25640);}while(r); -do{ -goto fornext_exit_3680; -if(!qbevent)break;evnt(25640);}while(r); -} -} -fornext_continue_3680:; -} -fornext_exit_3680:; -} -do{ -*_FUNC_EVALPREIF_LONG_RIGHTRESULT= 0 ; -if(!qbevent)break;evnt(25644);}while(r); -S_34462:; -if ((qbs_cleanup(qbs_tmp_base,FUNC_VERIFYNUMBER(_FUNC_EVALPREIF_STRING_M)))||new_error){ -if(qbevent){evnt(25645);if(r)goto S_34462;} -S_34463:; -if ((qbs_cleanup(qbs_tmp_base,-(func_val(_FUNC_EVALPREIF_STRING_M)!= 0 )))||new_error){ -if(qbevent){evnt(25646);if(r)goto S_34463;} -do{ -*_FUNC_EVALPREIF_LONG_RIGHTRESULT= -1 ; -if(!qbevent)break;evnt(25646);}while(r); -} -}else{ -S_34467:; -fornext_value3683= 0 ; -fornext_finalvalue3683=*__INTEGER_USERDEFINECOUNT; -fornext_step3683= 1 ; -if (fornext_step3683<0) fornext_step_negative3683=1; else fornext_step_negative3683=0; -if (new_error) goto fornext_error3683; -goto fornext_entrylabel3683; -while(1){ -fornext_value3683=fornext_step3683+(*_FUNC_EVALPREIF_LONG_I); -fornext_entrylabel3683: -*_FUNC_EVALPREIF_LONG_I=fornext_value3683; -if (fornext_step_negative3683){ -if (fornext_value3683fornext_finalvalue3683) break; -} -fornext_error3683:; -if(qbevent){evnt(25648);if(r)goto S_34467;} -S_34468:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[array_check(( 0 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*_FUNC_EVALPREIF_LONG_I)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]])),_FUNC_EVALPREIF_STRING_M)))||new_error){ -if(qbevent){evnt(25649);if(r)goto S_34468;} -do{ -qbs_set(_FUNC_EVALPREIF_STRING_T,qbs_ltrim(qbs_rtrim(((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*_FUNC_EVALPREIF_LONG_I)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]]))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25650);}while(r); -S_34470:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(_FUNC_EVALPREIF_STRING_T,qbs_new_txt_len("0",1)))&(qbs_notequal(_FUNC_EVALPREIF_STRING_T,qbs_new_txt_len("",0)))))||new_error){ -if(qbevent){evnt(25651);if(r)goto S_34470;} -do{ -*_FUNC_EVALPREIF_LONG_RIGHTRESULT= -1 ; -if(!qbevent)break;evnt(25651);}while(r); -do{ -goto fornext_exit_3682; -if(!qbevent)break;evnt(25651);}while(r); -} -} -fornext_continue_3682:; -} -fornext_exit_3682:; -} -S_34477:; -qbs_set(sc_3684,qbs_ltrim(qbs_rtrim(_FUNC_EVALPREIF_STRING_SYMBOL))); -qbs_cleanup(qbs_tmp_base,0); -if(qbevent){evnt(25655);if(r)goto S_34477;} -S_34478:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3684,qbs_new_txt_len("AND",3))))||new_error){ -if(qbevent){evnt(25656);if(r)goto S_34478;} -S_34479:; -if (((-(*_FUNC_EVALPREIF_LONG_LEFTRESULT!= 0 ))&(-(*_FUNC_EVALPREIF_LONG_RIGHTRESULT!= 0 )))||new_error){ -if(qbevent){evnt(25657);if(r)goto S_34479;} -do{ -qbs_set(_FUNC_EVALPREIF_STRING_RESULT,qbs_new_txt_len(" -1 ",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25657);}while(r); -}else{ -do{ -qbs_set(_FUNC_EVALPREIF_STRING_RESULT,qbs_new_txt_len(" 0 ",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25657);}while(r); -} -sc_ec_191_end:; -goto sc_3684_end; -} -S_34484:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3684,qbs_new_txt_len("OR",2))))||new_error){ -if(qbevent){evnt(25658);if(r)goto S_34484;} -S_34485:; -if (((-(*_FUNC_EVALPREIF_LONG_LEFTRESULT!= 0 ))|(-(*_FUNC_EVALPREIF_LONG_RIGHTRESULT!= 0 )))||new_error){ -if(qbevent){evnt(25659);if(r)goto S_34485;} -do{ -qbs_set(_FUNC_EVALPREIF_STRING_RESULT,qbs_new_txt_len(" -1 ",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25659);}while(r); -}else{ -do{ -qbs_set(_FUNC_EVALPREIF_STRING_RESULT,qbs_new_txt_len(" 0 ",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25659);}while(r); -} -sc_ec_192_end:; -goto sc_3684_end; -} -S_34490:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3684,qbs_new_txt_len("XOR",3))))||new_error){ -if(qbevent){evnt(25660);if(r)goto S_34490;} -S_34491:; -if ((-(*_FUNC_EVALPREIF_LONG_LEFTRESULT!=*_FUNC_EVALPREIF_LONG_RIGHTRESULT))||new_error){ -if(qbevent){evnt(25661);if(r)goto S_34491;} -do{ -qbs_set(_FUNC_EVALPREIF_STRING_RESULT,qbs_new_txt_len(" -1 ",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25661);}while(r); -}else{ -do{ -qbs_set(_FUNC_EVALPREIF_STRING_RESULT,qbs_new_txt_len(" 0 ",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25661);}while(r); -} -sc_ec_193_end:; -goto sc_3684_end; -} -sc_3684_end:; -do{ -qbs_set(_FUNC_EVALPREIF_STRING_TEMP,qbs_add(_FUNC_EVALPREIF_STRING_RESULT,_FUNC_EVALPREIF_STRING_RIGHTSIDE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25663);}while(r); -dl_continue_3675:; -}while(1); -dl_exit_3675:; -S_34499:; -if ((qbs_cleanup(qbs_tmp_base,FUNC_VERIFYNUMBER(_FUNC_EVALPREIF_STRING_TEMP)))||new_error){ -if(qbevent){evnt(25666);if(r)goto S_34499;} -do{ -*_FUNC_EVALPREIF_LONG_EVALPREIF=qbr(func_val(_FUNC_EVALPREIF_STRING_TEMP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25667);}while(r); -}else{ -S_34502:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_EVALPREIF_STRING_TEMP,qbs_new_txt_len(" ",1),0)))||new_error){ -if(qbevent){evnt(25669);if(r)goto S_34502;} -do{ -qbs_set(_FUNC_EVALPREIF_STRING_ERR,qbs_new_txt_len("Invalid Resolution of $IF; check statements",43)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25669);}while(r); -} -S_34505:; -fornext_value3686= 0 ; -fornext_finalvalue3686=*__INTEGER_USERDEFINECOUNT; -fornext_step3686= 1 ; -if (fornext_step3686<0) fornext_step_negative3686=1; else fornext_step_negative3686=0; -if (new_error) goto fornext_error3686; -goto fornext_entrylabel3686; -while(1){ -fornext_value3686=fornext_step3686+(*_FUNC_EVALPREIF_LONG_I); -fornext_entrylabel3686: -*_FUNC_EVALPREIF_LONG_I=fornext_value3686; -if (fornext_step_negative3686){ -if (fornext_value3686fornext_finalvalue3686) break; -} -fornext_error3686:; -if(qbevent){evnt(25670);if(r)goto S_34505;} -S_34506:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[array_check(( 0 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*_FUNC_EVALPREIF_LONG_I)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]])),_FUNC_EVALPREIF_STRING_TEMP)))||new_error){ -if(qbevent){evnt(25671);if(r)goto S_34506;} -do{ -qbs_set(_FUNC_EVALPREIF_STRING_T,qbs_ltrim(qbs_rtrim(((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*_FUNC_EVALPREIF_LONG_I)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]]))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25672);}while(r); -S_34508:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(_FUNC_EVALPREIF_STRING_T,qbs_new_txt_len("0",1)))&(qbs_notequal(_FUNC_EVALPREIF_STRING_T,qbs_new_txt_len("",0)))))||new_error){ -if(qbevent){evnt(25673);if(r)goto S_34508;} -do{ -*_FUNC_EVALPREIF_LONG_EVALPREIF= -1 ; -if(!qbevent)break;evnt(25673);}while(r); -do{ -goto fornext_exit_3685; -if(!qbevent)break;evnt(25673);}while(r); -} -} -fornext_continue_3685:; -} -fornext_exit_3685:; -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free95.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -return *_FUNC_EVALPREIF_LONG_EVALPREIF; -} -int32 FUNC_VERIFYNUMBER(qbs*_FUNC_VERIFYNUMBER_STRING_TEXT){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data96.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -qbs_set(_FUNC_VERIFYNUMBER_STRING_T,qbs_ltrim(qbs_rtrim(_FUNC_VERIFYNUMBER_STRING_TEXT))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25681);}while(r); -do{ -*_FUNC_VERIFYNUMBER_LONG_V=qbr(func_val(_FUNC_VERIFYNUMBER_STRING_T)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25682);}while(r); -do{ -qbs_set(_FUNC_VERIFYNUMBER_STRING_T1,qbs_ltrim(qbs_str((int32)(*_FUNC_VERIFYNUMBER_LONG_V)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25683);}while(r); -S_34518:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_VERIFYNUMBER_STRING_T,_FUNC_VERIFYNUMBER_STRING_T1)))||new_error){ -if(qbevent){evnt(25684);if(r)goto S_34518;} -do{ -*_FUNC_VERIFYNUMBER_LONG_VERIFYNUMBER= -1 ; -if(!qbevent)break;evnt(25684);}while(r); -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free96.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -return *_FUNC_VERIFYNUMBER_LONG_VERIFYNUMBER; -} -void SUB_INITIALISE_UDT_VARSTRINGS(qbs*_SUB_INITIALISE_UDT_VARSTRINGS_STRING_N,int32*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_UDT,int32*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_BUF,int32*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_BASE_OFFSET){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data97.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -S_34521:; -if ((~(((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_UDT)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])]))||new_error){ -if(qbevent){evnt(25688);if(r)goto S_34521;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25688);}while(r); -} -do{ -*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_ELEMENT=((int32*)(__ARRAY_LONG_UDTXNEXT[0]))[array_check((*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_UDT)-__ARRAY_LONG_UDTXNEXT[4],__ARRAY_LONG_UDTXNEXT[5])]; -if(!qbevent)break;evnt(25689);}while(r); -do{ -*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_OFFSET= 0 ; -if(!qbevent)break;evnt(25690);}while(r); -S_34526:; -while((*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_ELEMENT)||new_error){ -if(qbevent){evnt(25691);if(r)goto S_34526;} -S_34527:; -if ((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(25692);if(r)goto S_34527;} -S_34528:; -if ((-((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ -if(qbevent){evnt(25693);if(r)goto S_34528;} -do{ -SUB_WRITEBUFLINE(&(pass3690=*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_BUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*(qbs**)(((char*)",17),_SUB_INITIALISE_UDT_VARSTRINGS_STRING_N),qbs_new_txt_len(")+",2)),qbs_str((int64)(*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_BASE_OFFSET+*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_OFFSET))),qbs_new_txt_len(") = qbs_new(0,0);",17))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25694);}while(r); -} -S_34531:; -}else{ -if (((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISUDT){ -if(qbevent){evnt(25696);if(r)goto S_34531;} -do{ -SUB_INITIALISE_UDT_VARSTRINGS(_SUB_INITIALISE_UDT_VARSTRINGS_STRING_N,&(pass3691=((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]& 511 ),_SUB_INITIALISE_UDT_VARSTRINGS_LONG_BUF,_SUB_INITIALISE_UDT_VARSTRINGS_LONG_OFFSET); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25697);}while(r); -} -} -do{ -*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_OFFSET=*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_OFFSET+(((int32*)(__ARRAY_LONG_UDTESIZE[0]))[array_check((*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5])]/ 8 ); -if(!qbevent)break;evnt(25699);}while(r); -do{ -*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_ELEMENT=((int32*)(__ARRAY_LONG_UDTENEXT[0]))[array_check((*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5])]; -if(!qbevent)break;evnt(25700);}while(r); -dl_continue_3689:; -} -dl_exit_3689:; -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free97.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -void SUB_FREE_UDT_VARSTRINGS(qbs*_SUB_FREE_UDT_VARSTRINGS_STRING_N,int32*_SUB_FREE_UDT_VARSTRINGS_LONG_UDT,int32*_SUB_FREE_UDT_VARSTRINGS_LONG_BUF,int32*_SUB_FREE_UDT_VARSTRINGS_LONG_BASE_OFFSET){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data98.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -S_34537:; -if ((~(((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*_SUB_FREE_UDT_VARSTRINGS_LONG_UDT)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])]))||new_error){ -if(qbevent){evnt(25705);if(r)goto S_34537;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25705);}while(r); -} -do{ -*_SUB_FREE_UDT_VARSTRINGS_LONG_ELEMENT=((int32*)(__ARRAY_LONG_UDTXNEXT[0]))[array_check((*_SUB_FREE_UDT_VARSTRINGS_LONG_UDT)-__ARRAY_LONG_UDTXNEXT[4],__ARRAY_LONG_UDTXNEXT[5])]; -if(!qbevent)break;evnt(25706);}while(r); -do{ -*_SUB_FREE_UDT_VARSTRINGS_LONG_OFFSET= 0 ; -if(!qbevent)break;evnt(25707);}while(r); -S_34542:; -while((*_SUB_FREE_UDT_VARSTRINGS_LONG_ELEMENT)||new_error){ -if(qbevent){evnt(25708);if(r)goto S_34542;} -S_34543:; -if ((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_FREE_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(25709);if(r)goto S_34543;} -S_34544:; -if ((-((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_FREE_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ -if(qbevent){evnt(25710);if(r)goto S_34544;} -do{ -SUB_WRITEBUFLINE(&(pass3694=*_SUB_FREE_UDT_VARSTRINGS_LONG_BUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_free(*((qbs**)(((char*)",27),_SUB_FREE_UDT_VARSTRINGS_STRING_N),qbs_new_txt_len(")+",2)),qbs_str((int64)(*_SUB_FREE_UDT_VARSTRINGS_LONG_BASE_OFFSET+*_SUB_FREE_UDT_VARSTRINGS_LONG_OFFSET))),qbs_new_txt_len(")));",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25711);}while(r); -} -S_34547:; -}else{ -if (((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_FREE_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISUDT){ -if(qbevent){evnt(25713);if(r)goto S_34547;} -do{ -SUB_INITIALISE_UDT_VARSTRINGS(_SUB_FREE_UDT_VARSTRINGS_STRING_N,&(pass3695=((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_FREE_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]& 511 ),_SUB_FREE_UDT_VARSTRINGS_LONG_BUF,_SUB_FREE_UDT_VARSTRINGS_LONG_OFFSET); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25714);}while(r); -} -} -do{ -*_SUB_FREE_UDT_VARSTRINGS_LONG_OFFSET=*_SUB_FREE_UDT_VARSTRINGS_LONG_OFFSET+(((int32*)(__ARRAY_LONG_UDTESIZE[0]))[array_check((*_SUB_FREE_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5])]/ 8 ); -if(!qbevent)break;evnt(25716);}while(r); -do{ -*_SUB_FREE_UDT_VARSTRINGS_LONG_ELEMENT=((int32*)(__ARRAY_LONG_UDTENEXT[0]))[array_check((*_SUB_FREE_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5])]; -if(!qbevent)break;evnt(25717);}while(r); -dl_continue_3693:; -} -dl_exit_3693:; -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free98.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -void SUB_CLEAR_UDT_WITH_VARSTRINGS(qbs*_SUB_CLEAR_UDT_WITH_VARSTRINGS_STRING_N,int32*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_UDT,int32*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_BUF,int32*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_BASE_OFFSET){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data99.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -S_34553:; -if ((~(((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_UDT)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])]))||new_error){ -if(qbevent){evnt(25722);if(r)goto S_34553;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25722);}while(r); -} -do{ -*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_ELEMENT=((int32*)(__ARRAY_LONG_UDTXNEXT[0]))[array_check((*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_UDT)-__ARRAY_LONG_UDTXNEXT[4],__ARRAY_LONG_UDTXNEXT[5])]; -if(!qbevent)break;evnt(25723);}while(r); -do{ -*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_OFFSET= 0 ; -if(!qbevent)break;evnt(25724);}while(r); -S_34558:; -while((*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_ELEMENT)||new_error){ -if(qbevent){evnt(25725);if(r)goto S_34558;} -S_34559:; -if ((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(25726);if(r)goto S_34559;} -S_34560:; -if ((-((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ -if(qbevent){evnt(25727);if(r)goto S_34560;} -do{ -SUB_WRITEBUFLINE(&(pass3698=*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_BUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(*(qbs**)(((char*)",18),_SUB_CLEAR_UDT_WITH_VARSTRINGS_STRING_N),qbs_new_txt_len(")+",2)),qbs_str((int64)(*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_BASE_OFFSET+*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_OFFSET))),qbs_new_txt_len("))->len=0;",10))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25728);}while(r); -}else{ -do{ -SUB_WRITEBUFLINE(&(pass3699=*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_BUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("memset((char*)",14),_SUB_CLEAR_UDT_WITH_VARSTRINGS_STRING_N),qbs_new_txt_len("+",1)),qbs_str((int64)(*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_BASE_OFFSET+*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_OFFSET))),qbs_new_txt_len(",0,",3)),qbs_str((int64)(((int32*)(__ARRAY_LONG_UDTESIZE[0]))[array_check((*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5])]/ 8 ))),qbs_new_txt_len(");",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25730);}while(r); -} -}else{ -S_34566:; -if ((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISUDT)||new_error){ -if(qbevent){evnt(25733);if(r)goto S_34566;} -do{ -SUB_CLEAR_UDT_WITH_VARSTRINGS(_SUB_CLEAR_UDT_WITH_VARSTRINGS_STRING_N,&(pass3700=((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]& 511 ),_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_BUF,&(pass3701=*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_BASE_OFFSET+*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_OFFSET)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25734);}while(r); -}else{ -do{ -SUB_WRITEBUFLINE(&(pass3702=*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_BUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("memset((char*)",14),_SUB_CLEAR_UDT_WITH_VARSTRINGS_STRING_N),qbs_new_txt_len("+",1)),qbs_str((int64)(*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_BASE_OFFSET+*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_OFFSET))),qbs_new_txt_len(",0,",3)),qbs_str((int64)(((int32*)(__ARRAY_LONG_UDTESIZE[0]))[array_check((*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5])]/ 8 ))),qbs_new_txt_len(");",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25736);}while(r); -} -} -do{ -*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_OFFSET=*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_OFFSET+(((int32*)(__ARRAY_LONG_UDTESIZE[0]))[array_check((*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5])]/ 8 ); -if(!qbevent)break;evnt(25739);}while(r); -do{ -*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_ELEMENT=((int32*)(__ARRAY_LONG_UDTENEXT[0]))[array_check((*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5])]; -if(!qbevent)break;evnt(25740);}while(r); -dl_continue_3697:; -} -dl_exit_3697:; -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free99.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -void SUB_INITIALISE_ARRAY_UDT_VARSTRINGS(qbs*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_N,int32*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_UDT,int32*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_BASE_OFFSET,qbs*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_BYTESPERELEMENT,qbs*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_ACC){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data100.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -S_34575:; -if ((~(((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_UDT)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])]))||new_error){ -if(qbevent){evnt(25746);if(r)goto S_34575;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25746);}while(r); -} -do{ -*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_OFFSET=*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_BASE_OFFSET; -if(!qbevent)break;evnt(25747);}while(r); -do{ -*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT=((int32*)(__ARRAY_LONG_UDTXNEXT[0]))[array_check((*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_UDT)-__ARRAY_LONG_UDTXNEXT[4],__ARRAY_LONG_UDTXNEXT[5])]; -if(!qbevent)break;evnt(25748);}while(r); -S_34580:; -while((*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT)||new_error){ -if(qbevent){evnt(25749);if(r)goto S_34580;} -S_34581:; -if ((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(25750);if(r)goto S_34581;} -S_34582:; -if ((-((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ -if(qbevent){evnt(25751);if(r)goto S_34582;} -do{ -qbs_set(_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_ACC,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_ACC,func_chr( 13 )),func_chr( 10 )),qbs_new_txt_len("*(qbs**)(",9)),_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_N),qbs_new_txt_len("[0]+(",5)),_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_BYTESPERELEMENT),qbs_new_txt_len("-1)*tmp_long+",13)),qbs_str((int32)(*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_OFFSET))),qbs_new_txt_len(")=qbs_new(0,0);",15))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25752);}while(r); -} -S_34585:; -}else{ -if (((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISUDT){ -if(qbevent){evnt(25754);if(r)goto S_34585;} -do{ -SUB_INITIALISE_ARRAY_UDT_VARSTRINGS(_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_N,&(pass3707=((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]& 511 ),_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_OFFSET,_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_BYTESPERELEMENT,_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_ACC); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25755);}while(r); -} -} -do{ -*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_OFFSET=*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_OFFSET+(((int32*)(__ARRAY_LONG_UDTESIZE[0]))[array_check((*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5])]/ 8 ); -if(!qbevent)break;evnt(25757);}while(r); -do{ -*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT=((int32*)(__ARRAY_LONG_UDTENEXT[0]))[array_check((*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5])]; -if(!qbevent)break;evnt(25758);}while(r); -dl_continue_3706:; -} -dl_exit_3706:; -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free100.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -void SUB_FREE_ARRAY_UDT_VARSTRINGS(qbs*_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_N,int32*_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_UDT,int32*_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_BASE_OFFSET,qbs*_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_BYTESPERELEMENT,qbs*_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_ACC){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data101.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -S_34591:; -if ((~(((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_UDT)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])]))||new_error){ -if(qbevent){evnt(25763);if(r)goto S_34591;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25763);}while(r); -} -do{ -*_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_OFFSET=*_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_BASE_OFFSET; -if(!qbevent)break;evnt(25764);}while(r); -do{ -*_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT=((int32*)(__ARRAY_LONG_UDTXNEXT[0]))[array_check((*_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_UDT)-__ARRAY_LONG_UDTXNEXT[4],__ARRAY_LONG_UDTXNEXT[5])]; -if(!qbevent)break;evnt(25765);}while(r); -S_34596:; -while((*_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT)||new_error){ -if(qbevent){evnt(25766);if(r)goto S_34596;} -S_34597:; -if ((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(25767);if(r)goto S_34597;} -S_34598:; -if ((-((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ -if(qbevent){evnt(25768);if(r)goto S_34598;} -do{ -qbs_set(_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_ACC,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_ACC,func_chr( 13 )),func_chr( 10 )),qbs_new_txt_len("qbs_free(*(qbs**)(",18)),_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_N),qbs_new_txt_len("[0]+(",5)),_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_BYTESPERELEMENT),qbs_new_txt_len("-1)*tmp_long+",13)),qbs_str((int32)(*_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_OFFSET))),qbs_new_txt_len("));",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25769);}while(r); -} -S_34601:; -}else{ -if (((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISUDT){ -if(qbevent){evnt(25771);if(r)goto S_34601;} -do{ -SUB_FREE_ARRAY_UDT_VARSTRINGS(_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_N,&(pass3712=((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]& 511 ),_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_OFFSET,_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_BYTESPERELEMENT,_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_ACC); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25772);}while(r); -} -} -do{ -*_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_OFFSET=*_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_OFFSET+(((int32*)(__ARRAY_LONG_UDTESIZE[0]))[array_check((*_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5])]/ 8 ); -if(!qbevent)break;evnt(25774);}while(r); -do{ -*_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT=((int32*)(__ARRAY_LONG_UDTENEXT[0]))[array_check((*_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5])]; -if(!qbevent)break;evnt(25775);}while(r); -dl_continue_3711:; -} -dl_exit_3711:; -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free101.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -void SUB_COPY_FULL_UDT(qbs*_SUB_COPY_FULL_UDT_STRING_DST,qbs*_SUB_COPY_FULL_UDT_STRING_SRC,int32*_SUB_COPY_FULL_UDT_LONG_BUF,int32*_SUB_COPY_FULL_UDT_LONG_BASE_OFFSET,int32*_SUB_COPY_FULL_UDT_LONG_UDT){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data102.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -S_34607:; -if ((~(((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*_SUB_COPY_FULL_UDT_LONG_UDT)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])]))||new_error){ -if(qbevent){evnt(25780);if(r)goto S_34607;} -do{ -SUB_WRITEBUFLINE(&(pass3715=*_SUB_COPY_FULL_UDT_LONG_BUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("memcpy(",7),_SUB_COPY_FULL_UDT_STRING_DST),qbs_new_txt_len("+",1)),qbs_str((int32)(*_SUB_COPY_FULL_UDT_LONG_BASE_OFFSET))),qbs_new_txt_len(",",1)),_SUB_COPY_FULL_UDT_STRING_SRC),qbs_new_txt_len("+",1)),qbs_str((int32)(*_SUB_COPY_FULL_UDT_LONG_BASE_OFFSET))),qbs_new_txt_len(",",1)),qbs_str((int64)(((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*_SUB_COPY_FULL_UDT_LONG_UDT)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])]/ 8 ))),qbs_new_txt_len(");",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25781);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25782);}while(r); -} -do{ -*_SUB_COPY_FULL_UDT_LONG_OFFSET=*_SUB_COPY_FULL_UDT_LONG_BASE_OFFSET; -if(!qbevent)break;evnt(25784);}while(r); -do{ -*_SUB_COPY_FULL_UDT_LONG_ELEMENT=((int32*)(__ARRAY_LONG_UDTXNEXT[0]))[array_check((*_SUB_COPY_FULL_UDT_LONG_UDT)-__ARRAY_LONG_UDTXNEXT[4],__ARRAY_LONG_UDTXNEXT[5])]; -if(!qbevent)break;evnt(25785);}while(r); -S_34613:; -while((*_SUB_COPY_FULL_UDT_LONG_ELEMENT)||new_error){ -if(qbevent){evnt(25786);if(r)goto S_34613;} -S_34614:; -if ((((-((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_COPY_FULL_UDT_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISSTRING)> 0 )))&(-((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_COPY_FULL_UDT_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISFIXEDLENGTH)== 0 )))||new_error){ -if(qbevent){evnt(25787);if(r)goto S_34614;} -do{ -SUB_WRITEBUFLINE(&(pass3717=*_SUB_COPY_FULL_UDT_LONG_BUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_set(*(qbs**)(",17),_SUB_COPY_FULL_UDT_STRING_DST),qbs_new_txt_len("+",1)),qbs_str((int32)(*_SUB_COPY_FULL_UDT_LONG_OFFSET))),qbs_new_txt_len("), *(qbs**)(",12)),_SUB_COPY_FULL_UDT_STRING_SRC),qbs_new_txt_len("+",1)),qbs_str((int32)(*_SUB_COPY_FULL_UDT_LONG_OFFSET))),qbs_new_txt_len("));",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25788);}while(r); -S_34616:; -}else{ -if ((-((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_COPY_FULL_UDT_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISUDT)> 0 ))){ -if(qbevent){evnt(25789);if(r)goto S_34616;} -do{ -SUB_COPY_FULL_UDT(_SUB_COPY_FULL_UDT_STRING_DST,_SUB_COPY_FULL_UDT_STRING_SRC,__LONG_MAINTXTBUF,_SUB_COPY_FULL_UDT_LONG_OFFSET,&(pass3718=((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_COPY_FULL_UDT_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]& 511 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25790);}while(r); -}else{ -do{ -SUB_WRITEBUFLINE(&(pass3719=*_SUB_COPY_FULL_UDT_LONG_BUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("memcpy((",8),_SUB_COPY_FULL_UDT_STRING_DST),qbs_new_txt_len("+",1)),qbs_str((int32)(*_SUB_COPY_FULL_UDT_LONG_OFFSET))),qbs_new_txt_len("),(",3)),_SUB_COPY_FULL_UDT_STRING_SRC),qbs_new_txt_len("+",1)),qbs_str((int32)(*_SUB_COPY_FULL_UDT_LONG_OFFSET))),qbs_new_txt_len("),",2)),qbs_str((int64)(((int32*)(__ARRAY_LONG_UDTESIZE[0]))[array_check((*_SUB_COPY_FULL_UDT_LONG_ELEMENT)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5])]/ 8 ))),qbs_new_txt_len(");",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25792);}while(r); -} -} -do{ -*_SUB_COPY_FULL_UDT_LONG_OFFSET=*_SUB_COPY_FULL_UDT_LONG_OFFSET+(((int32*)(__ARRAY_LONG_UDTESIZE[0]))[array_check((*_SUB_COPY_FULL_UDT_LONG_ELEMENT)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5])]/ 8 ); -if(!qbevent)break;evnt(25794);}while(r); -do{ -*_SUB_COPY_FULL_UDT_LONG_ELEMENT=((int32*)(__ARRAY_LONG_UDTENEXT[0]))[array_check((*_SUB_COPY_FULL_UDT_LONG_ELEMENT)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5])]; -if(!qbevent)break;evnt(25795);}while(r); -dl_continue_3716:; -} -dl_exit_3716:; -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free102.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -void SUB_DUMP_UDTS(){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data103.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -*_SUB_DUMP_UDTS_LONG_FH=func_freefile(); -if(!qbevent)break;evnt(25800);}while(r); -do{ -sub_open(qbs_new_txt_len("types.txt",9), 4 ,NULL,NULL,*_SUB_DUMP_UDTS_LONG_FH,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25801);}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*_SUB_DUMP_UDTS_LONG_FH; -if (new_error) goto skip3720; -sub_file_print(tmp_fileno,qbs_new_txt_len("Name Size Align? Next Var?",32), 0, 0, 1); -if (new_error) goto skip3720; -skip3720: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(25802);}while(r); -S_34627:; -fornext_value3722= 1 ; -fornext_finalvalue3722=*__LONG_LASTTYPE; -fornext_step3722= 1 ; -if (fornext_step3722<0) fornext_step_negative3722=1; else fornext_step_negative3722=0; -if (new_error) goto fornext_error3722; -goto fornext_entrylabel3722; -while(1){ -fornext_value3722=fornext_step3722+(*_SUB_DUMP_UDTS_LONG_I); -fornext_entrylabel3722: -*_SUB_DUMP_UDTS_LONG_I=fornext_value3722; -if (fornext_step_negative3722){ -if (fornext_value3722fornext_finalvalue3722) break; -} -fornext_error3722:; -if(qbevent){evnt(25803);if(r)goto S_34627;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*_SUB_DUMP_UDTS_LONG_FH; -if (new_error) goto skip3723; -sub_file_print(tmp_fileno,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXNAME[0]))[(array_check((*_SUB_DUMP_UDTS_LONG_I)-__ARRAY_STRING256_UDTXNAME[4],__ARRAY_STRING256_UDTXNAME[5]))*256],256,1)), 0, 1, 0); -if (new_error) goto skip3723; -sub_file_print(tmp_fileno,qbs_str((int32)(((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*_SUB_DUMP_UDTS_LONG_I)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])])), 1, 1, 0); -if (new_error) goto skip3723; -sub_file_print(tmp_fileno,qbs_str((int16)(((int16*)(__ARRAY_INTEGER_UDTXBYTEALIGN[0]))[array_check((*_SUB_DUMP_UDTS_LONG_I)-__ARRAY_INTEGER_UDTXBYTEALIGN[4],__ARRAY_INTEGER_UDTXBYTEALIGN[5])])), 1, 1, 0); -if (new_error) goto skip3723; -sub_file_print(tmp_fileno,qbs_str((int32)(((int32*)(__ARRAY_LONG_UDTXNEXT[0]))[array_check((*_SUB_DUMP_UDTS_LONG_I)-__ARRAY_LONG_UDTXNEXT[4],__ARRAY_LONG_UDTXNEXT[5])])), 1, 1, 0); -if (new_error) goto skip3723; -sub_file_print(tmp_fileno,qbs_str((int16)(((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*_SUB_DUMP_UDTS_LONG_I)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])])), 1, 0, 1); -if (new_error) goto skip3723; -skip3723: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(25804);}while(r); -fornext_continue_3721:; -} -fornext_exit_3721:; -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*_SUB_DUMP_UDTS_LONG_FH; -if (new_error) goto skip3724; -sub_file_print(tmp_fileno,qbs_new_txt_len("Name Size Align? Next Type Tsize Arr",45), 0, 0, 1); -if (new_error) goto skip3724; -skip3724: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(25806);}while(r); -S_34631:; -fornext_value3726= 1 ; -fornext_finalvalue3726=*__LONG_LASTTYPEELEMENT; -fornext_step3726= 1 ; -if (fornext_step3726<0) fornext_step_negative3726=1; else fornext_step_negative3726=0; -if (new_error) goto fornext_error3726; -goto fornext_entrylabel3726; -while(1){ -fornext_value3726=fornext_step3726+(*_SUB_DUMP_UDTS_LONG_I); -fornext_entrylabel3726: -*_SUB_DUMP_UDTS_LONG_I=fornext_value3726; -if (fornext_step_negative3726){ -if (fornext_value3726fornext_finalvalue3726) break; -} -fornext_error3726:; -if(qbevent){evnt(25807);if(r)goto S_34631;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*_SUB_DUMP_UDTS_LONG_FH; -if (new_error) goto skip3727; -sub_file_print(tmp_fileno,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTENAME[0]))[(array_check((*_SUB_DUMP_UDTS_LONG_I)-__ARRAY_STRING256_UDTENAME[4],__ARRAY_STRING256_UDTENAME[5]))*256],256,1)), 0, 1, 0); -if (new_error) goto skip3727; -sub_file_print(tmp_fileno,qbs_str((int32)(((int32*)(__ARRAY_LONG_UDTESIZE[0]))[array_check((*_SUB_DUMP_UDTS_LONG_I)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5])])), 1, 1, 0); -if (new_error) goto skip3727; -sub_file_print(tmp_fileno,qbs_str((int16)(((int16*)(__ARRAY_INTEGER_UDTEBYTEALIGN[0]))[array_check((*_SUB_DUMP_UDTS_LONG_I)-__ARRAY_INTEGER_UDTEBYTEALIGN[4],__ARRAY_INTEGER_UDTEBYTEALIGN[5])])), 1, 1, 0); -if (new_error) goto skip3727; -sub_file_print(tmp_fileno,qbs_str((int32)(((int32*)(__ARRAY_LONG_UDTENEXT[0]))[array_check((*_SUB_DUMP_UDTS_LONG_I)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5])])), 1, 1, 0); -if (new_error) goto skip3727; -sub_file_print(tmp_fileno,qbs_str((int32)(((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_DUMP_UDTS_LONG_I)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])])), 1, 1, 0); -if (new_error) goto skip3727; -sub_file_print(tmp_fileno,qbs_str((int32)(((int32*)(__ARRAY_LONG_UDTETYPESIZE[0]))[array_check((*_SUB_DUMP_UDTS_LONG_I)-__ARRAY_LONG_UDTETYPESIZE[4],__ARRAY_LONG_UDTETYPESIZE[5])])), 1, 1, 0); -if (new_error) goto skip3727; -sub_file_print(tmp_fileno,qbs_str((int32)(((int32*)(__ARRAY_LONG_UDTEARRAYELEMENTS[0]))[array_check((*_SUB_DUMP_UDTS_LONG_I)-__ARRAY_LONG_UDTEARRAYELEMENTS[4],__ARRAY_LONG_UDTEARRAYELEMENTS[5])])), 1, 0, 1); -if (new_error) goto skip3727; -skip3727: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(25808);}while(r); -fornext_continue_3725:; -} -fornext_exit_3725:; -do{ -sub_close(*_SUB_DUMP_UDTS_LONG_FH,1); -if(!qbevent)break;evnt(25810);}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free103.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -void SUB_MANAGEVARIABLELIST(qbs*_SUB_MANAGEVARIABLELIST_STRING___NAME,qbs*_SUB_MANAGEVARIABLELIST_STRING___CNAME,int32*_SUB_MANAGEVARIABLELIST_LONG_LOCALINDEX,int8*_SUB_MANAGEVARIABLELIST_BYTE_ACTION){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data104.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -if(!qbevent)break;evnt(25814);}while(r); -do{ -qbs_set(_SUB_MANAGEVARIABLELIST_STRING_NAME,qbs_rtrim(_SUB_MANAGEVARIABLELIST_STRING___NAME)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25815);}while(r); -do{ -qbs_set(_SUB_MANAGEVARIABLELIST_STRING_CNAME,qbs_rtrim(_SUB_MANAGEVARIABLELIST_STRING___CNAME)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25816);}while(r); -S_34638:; -if ((qbs_cleanup(qbs_tmp_base,-(_SUB_MANAGEVARIABLELIST_STRING_CNAME->len== 0 )))||new_error){ -if(qbevent){evnt(25818);if(r)goto S_34638;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25818);}while(r); -} -do{ -*_SUB_MANAGEVARIABLELIST_LONG_FINDITEM=func_instr(NULL,_SUB_MANAGEVARIABLELIST_STRING_CNAME,qbs_new_txt_len("[",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25820);}while(r); -S_34642:; -if ((*_SUB_MANAGEVARIABLELIST_LONG_FINDITEM)||new_error){ -if(qbevent){evnt(25821);if(r)goto S_34642;} -do{ -qbs_set(_SUB_MANAGEVARIABLELIST_STRING_CNAME,qbs_left(_SUB_MANAGEVARIABLELIST_STRING_CNAME,*_SUB_MANAGEVARIABLELIST_LONG_FINDITEM- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25822);}while(r); -} -do{ -*_SUB_MANAGEVARIABLELIST_LONG_FOUND= 0 ; -if(!qbevent)break;evnt(25825);}while(r); -S_34646:; -fornext_value3732= 1 ; -fornext_finalvalue3732=*__LONG_TOTALVARIABLESCREATED; -fornext_step3732= 1 ; -if (fornext_step3732<0) fornext_step_negative3732=1; else fornext_step_negative3732=0; -if (new_error) goto fornext_error3732; -goto fornext_entrylabel3732; -while(1){ -fornext_value3732=fornext_step3732+(*_SUB_MANAGEVARIABLELIST_LONG_I); -fornext_entrylabel3732: -*_SUB_MANAGEVARIABLELIST_LONG_I=fornext_value3732; -if (fornext_step_negative3732){ -if (fornext_value3732fornext_finalvalue3732) break; -} -fornext_error3732:; -if(qbevent){evnt(25826);if(r)goto S_34646;} -S_34647:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+40))),_SUB_MANAGEVARIABLELIST_STRING_CNAME)))||new_error){ -if(qbevent){evnt(25827);if(r)goto S_34647;} -do{ -*_SUB_MANAGEVARIABLELIST_LONG_FOUND= -1 ; -if(!qbevent)break;evnt(25827);}while(r); -do{ -goto fornext_exit_3731; -if(!qbevent)break;evnt(25827);}while(r); -} -fornext_continue_3731:; -} -fornext_exit_3731:; -S_34652:; -if(qbevent){evnt(25830);if(r)goto S_34652;} -S_34653:; -if (((*_SUB_MANAGEVARIABLELIST_BYTE_ACTION==( 0 )))||new_error){ -if(qbevent){evnt(25831);if(r)goto S_34653;} -S_34654:; -if ((-(*_SUB_MANAGEVARIABLELIST_LONG_FOUND== 0 ))||new_error){ -if(qbevent){evnt(25832);if(r)goto S_34654;} -S_34655:; -if ((-(*_SUB_MANAGEVARIABLELIST_LONG_I>func_ubound(__ARRAY_UDT_USEDVARIABLELIST,1,1)))||new_error){ -if(qbevent){evnt(25833);if(r)goto S_34655;} -do{ +} +if(!qbevent)break;evnt(25497);}while(r); +do{ +tmp_long=array_check(( 1 )-_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[4],_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[0]))[tmp_long])),qbs_new_txt_len("=",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25498);}while(r); +do{ +tmp_long=array_check(( 2 )-_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[4],_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[0]))[tmp_long])),qbs_new_txt_len("<",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25499);}while(r); +do{ +tmp_long=array_check(( 3 )-_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[4],_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[0]))[tmp_long])),qbs_new_txt_len(">",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25500);}while(r); +S_34250:; +do{ +if(qbevent){evnt(25501);if(r)goto S_34250;} +do{ +qbs_set(_FUNC_EVALPREIF_STRING_FIRSTSYMBOL,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25503);}while(r); +do{ +*_FUNC_EVALPREIF_LONG_FIRST= 0 ; +if(!qbevent)break;evnt(25503);}while(r); +S_34253:; +fornext_value3654= 1 ; +fornext_finalvalue3654=func_ubound(_FUNC_EVALPREIF_ARRAY_STRING_PC_OP,1,1); +fornext_step3654= 1 ; +if (fornext_step3654<0) fornext_step_negative3654=1; else fornext_step_negative3654=0; +if (new_error) goto fornext_error3654; +goto fornext_entrylabel3654; +while(1){ +fornext_value3654=fornext_step3654+(*_FUNC_EVALPREIF_LONG_I); +fornext_entrylabel3654: +*_FUNC_EVALPREIF_LONG_I=fornext_value3654; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative3654){ +if (fornext_value3654fornext_finalvalue3654) break; +} +fornext_error3654:; +if(qbevent){evnt(25504);if(r)goto S_34253;} +do{ +*_FUNC_EVALPREIF_LONG_TEMP=func_instr(NULL,_FUNC_EVALPREIF_STRING_TEMP,((qbs*)(((uint64*)(_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[0]))[array_check((*_FUNC_EVALPREIF_LONG_I)-_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[4],_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[5])])),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25505);}while(r); +S_34255:; +if ((-(*_FUNC_EVALPREIF_LONG_FIRST== 0 ))||new_error){ +if(qbevent){evnt(25506);if(r)goto S_34255;} +do{ +*_FUNC_EVALPREIF_LONG_FIRST=*_FUNC_EVALPREIF_LONG_TEMP; +if(!qbevent)break;evnt(25506);}while(r); +do{ +qbs_set(_FUNC_EVALPREIF_STRING_FIRSTSYMBOL,((qbs*)(((uint64*)(_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[0]))[array_check((*_FUNC_EVALPREIF_LONG_I)-_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[4],_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25506);}while(r); +} +S_34259:; +if (((-(*_FUNC_EVALPREIF_LONG_TEMP!= 0 ))&(-(*_FUNC_EVALPREIF_LONG_TEMP<*_FUNC_EVALPREIF_LONG_FIRST)))||new_error){ +if(qbevent){evnt(25507);if(r)goto S_34259;} +do{ +*_FUNC_EVALPREIF_LONG_FIRST=*_FUNC_EVALPREIF_LONG_TEMP; +if(!qbevent)break;evnt(25507);}while(r); +do{ +qbs_set(_FUNC_EVALPREIF_STRING_FIRSTSYMBOL,((qbs*)(((uint64*)(_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[0]))[array_check((*_FUNC_EVALPREIF_LONG_I)-_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[4],_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25507);}while(r); +} +fornext_continue_3653:; +} +fornext_exit_3653:; +S_34264:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_EVALPREIF_STRING_FIRSTSYMBOL,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(25509);if(r)goto S_34264;} +do{ +*_FUNC_EVALPREIF_LONG_SECONDSYMBOL= 0 ; +if(!qbevent)break;evnt(25510);}while(r); +do{ +*_FUNC_EVALPREIF_LONG_SECOND= 0 ; +if(!qbevent)break;evnt(25510);}while(r); +S_34267:; +fornext_value3656=*_FUNC_EVALPREIF_LONG_FIRST+ 1 ; +fornext_finalvalue3656=_FUNC_EVALPREIF_STRING_TEMP->len; +fornext_step3656= 1 ; +if (fornext_step3656<0) fornext_step_negative3656=1; else fornext_step_negative3656=0; +if (new_error) goto fornext_error3656; +goto fornext_entrylabel3656; +while(1){ +fornext_value3656=fornext_step3656+(*_FUNC_EVALPREIF_LONG_I); +fornext_entrylabel3656: +*_FUNC_EVALPREIF_LONG_I=fornext_value3656; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative3656){ +if (fornext_value3656fornext_finalvalue3656) break; +} +fornext_error3656:; +if(qbevent){evnt(25511);if(r)goto S_34267;} +do{ +qbs_set(_FUNC_EVALPREIF_STRING_A,func_mid(_FUNC_EVALPREIF_STRING_TEMP,*_FUNC_EVALPREIF_LONG_I, 1 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25512);}while(r); +S_34269:; +if(qbevent){evnt(25513);if(r)goto S_34269;} +S_34270:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALPREIF_STRING_A,qbs_new_txt_len(" ",1))))||new_error){ +if(qbevent){evnt(25514);if(r)goto S_34270;} +sc_ec_189_end:; +goto sc_3658_end; +} +S_34271:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALPREIF_STRING_A,qbs_new_txt_len("=",1))||qbs_equal(_FUNC_EVALPREIF_STRING_A,qbs_new_txt_len("<",1))||qbs_equal(_FUNC_EVALPREIF_STRING_A,qbs_new_txt_len(">",1))))||new_error){ +if(qbevent){evnt(25515);if(r)goto S_34271;} +S_34272:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALPREIF_STRING_A,_FUNC_EVALPREIF_STRING_FIRSTSYMBOL)))||new_error){ +if(qbevent){evnt(25516);if(r)goto S_34272;} +do{ +qbs_set(_FUNC_EVALPREIF_STRING_ERR,qbs_add(qbs_add(qbs_new_txt_len("Duplicate operator (",20),_FUNC_EVALPREIF_STRING_A),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25516);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(25516);}while(r); +} +do{ +*_FUNC_EVALPREIF_LONG_SECOND=*_FUNC_EVALPREIF_LONG_I; +if(!qbevent)break;evnt(25517);}while(r); +do{ +qbs_set(_FUNC_EVALPREIF_STRING_SECONDSYMBOL,_FUNC_EVALPREIF_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25517);}while(r); +sc_ec_190_end:; +goto sc_3658_end; +} +do{ +goto fornext_exit_3655; +if(!qbevent)break;evnt(25519);}while(r); +sc_3658_end:; +fornext_continue_3655:; +} +fornext_exit_3655:; +} +S_34283:; +if ((*_FUNC_EVALPREIF_LONG_FIRST)||new_error){ +if(qbevent){evnt(25523);if(r)goto S_34283;} +do{ +qbs_set(_FUNC_EVALPREIF_STRING_L,qbs_rtrim(qbs_left(_FUNC_EVALPREIF_STRING_TEMP,*_FUNC_EVALPREIF_LONG_FIRST- 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25524);}while(r); +S_34285:; +if ((*_FUNC_EVALPREIF_LONG_SECOND)||new_error){ +if(qbevent){evnt(25525);if(r)goto S_34285;} +do{ +*_FUNC_EVALPREIF_LONG_RIGHTSTART=*_FUNC_EVALPREIF_LONG_SECOND+ 1 ; +if(!qbevent)break;evnt(25525);}while(r); +}else{ +do{ +*_FUNC_EVALPREIF_LONG_RIGHTSTART=*_FUNC_EVALPREIF_LONG_FIRST+ 1 ; +if(!qbevent)break;evnt(25525);}while(r); +} +do{ +qbs_set(_FUNC_EVALPREIF_STRING_R,qbs_ltrim(func_mid(_FUNC_EVALPREIF_STRING_TEMP,*_FUNC_EVALPREIF_LONG_RIGHTSTART,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25527);}while(r); +do{ +qbs_set(_FUNC_EVALPREIF_STRING_SYMBOL,qbs_add(func_mid(_FUNC_EVALPREIF_STRING_TEMP,*_FUNC_EVALPREIF_LONG_FIRST, 1 ,0|1),func_mid(_FUNC_EVALPREIF_STRING_TEMP,*_FUNC_EVALPREIF_LONG_SECOND, 1 ,0|1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25528);}while(r); +S_34292:; +fornext_value3660=_FUNC_EVALPREIF_STRING_L->len; +fornext_finalvalue3660= 1 ; +fornext_step3660= -1 ; +if (fornext_step3660<0) fornext_step_negative3660=1; else fornext_step_negative3660=0; +if (new_error) goto fornext_error3660; +goto fornext_entrylabel3660; +while(1){ +fornext_value3660=fornext_step3660+(*_FUNC_EVALPREIF_LONG_I); +fornext_entrylabel3660: +*_FUNC_EVALPREIF_LONG_I=fornext_value3660; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative3660){ +if (fornext_value3660fornext_finalvalue3660) break; +} +fornext_error3660:; +if(qbevent){evnt(25530);if(r)goto S_34292;} +S_34293:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_EVALPREIF_STRING_L,*_FUNC_EVALPREIF_LONG_I)== 32 )))||new_error){ +if(qbevent){evnt(25531);if(r)goto S_34293;} +do{ +goto fornext_exit_3659; +if(!qbevent)break;evnt(25531);}while(r); +} +fornext_continue_3659:; +} +fornext_exit_3659:; +do{ +qbs_set(_FUNC_EVALPREIF_STRING_LEFTSIDE,qbs_rtrim(qbs_left(_FUNC_EVALPREIF_STRING_TEMP,*_FUNC_EVALPREIF_LONG_I))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25533);}while(r); +do{ +qbs_set(_FUNC_EVALPREIF_STRING_L,qbs_ltrim(qbs_rtrim(func_mid(_FUNC_EVALPREIF_STRING_TEMP,*_FUNC_EVALPREIF_LONG_I+ 1 ,_FUNC_EVALPREIF_STRING_L->len-*_FUNC_EVALPREIF_LONG_I,0|1)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25534);}while(r); +S_34299:; +if ((qbs_cleanup(qbs_tmp_base,-(FUNC_VALIDNAME(_FUNC_EVALPREIF_STRING_L)== 0 )))||new_error){ +if(qbevent){evnt(25535);if(r)goto S_34299;} +do{ +qbs_set(_FUNC_EVALPREIF_STRING_ERR,qbs_new_txt_len("Invalid flag name",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25535);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(25535);}while(r); +} +do{ +*_FUNC_EVALPREIF_LONG_RIGHTSTOP=_FUNC_EVALPREIF_STRING_R->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25536);}while(r); +S_34304:; +fornext_value3665= 1 ; +fornext_finalvalue3665=_FUNC_EVALPREIF_STRING_R->len; +fornext_step3665= 1 ; +if (fornext_step3665<0) fornext_step_negative3665=1; else fornext_step_negative3665=0; +if (new_error) goto fornext_error3665; +goto fornext_entrylabel3665; +while(1){ +fornext_value3665=fornext_step3665+(*_FUNC_EVALPREIF_LONG_I); +fornext_entrylabel3665: +*_FUNC_EVALPREIF_LONG_I=fornext_value3665; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative3665){ +if (fornext_value3665fornext_finalvalue3665) break; +} +fornext_error3665:; +if(qbevent){evnt(25537);if(r)goto S_34304;} +S_34305:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_EVALPREIF_STRING_R,*_FUNC_EVALPREIF_LONG_I)== 32 )))||new_error){ +if(qbevent){evnt(25538);if(r)goto S_34305;} +do{ +goto fornext_exit_3664; +if(!qbevent)break;evnt(25538);}while(r); +} +fornext_continue_3664:; +} +fornext_exit_3664:; +do{ +qbs_set(_FUNC_EVALPREIF_STRING_RIGHTSIDE,qbs_ltrim(func_mid(_FUNC_EVALPREIF_STRING_R,*_FUNC_EVALPREIF_LONG_I+ 1 ,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25540);}while(r); +do{ +qbs_set(_FUNC_EVALPREIF_STRING_R,qbs_ltrim(qbs_rtrim(qbs_left(_FUNC_EVALPREIF_STRING_R,*_FUNC_EVALPREIF_LONG_I- 1 )))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25541);}while(r); +S_34311:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALPREIF_STRING_SYMBOL,qbs_new_txt_len("=<",2))))||new_error){ +if(qbevent){evnt(25542);if(r)goto S_34311;} +do{ +qbs_set(_FUNC_EVALPREIF_STRING_SYMBOL,qbs_new_txt_len("<=",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25542);}while(r); +} +S_34314:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALPREIF_STRING_SYMBOL,qbs_new_txt_len("=>",2))))||new_error){ +if(qbevent){evnt(25543);if(r)goto S_34314;} +do{ +qbs_set(_FUNC_EVALPREIF_STRING_SYMBOL,qbs_new_txt_len(">=",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25543);}while(r); +} +S_34317:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALPREIF_STRING_SYMBOL,qbs_new_txt_len("><",2))))||new_error){ +if(qbevent){evnt(25544);if(r)goto S_34317;} +do{ +qbs_set(_FUNC_EVALPREIF_STRING_SYMBOL,qbs_new_txt_len("<>",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25544);}while(r); +} +do{ +qbs_set(_FUNC_EVALPREIF_STRING_RESULT,qbs_new_txt_len(" 0 ",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25545);}while(r); +S_34321:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALPREIF_STRING_SYMBOL,qbs_new_txt_len("<>",2))))||new_error){ +if(qbevent){evnt(25546);if(r)goto S_34321;} +S_34322:; +fornext_value3668= 0 ; +fornext_finalvalue3668=*__INTEGER_USERDEFINECOUNT; +fornext_step3668= 1 ; +if (fornext_step3668<0) fornext_step_negative3668=1; else fornext_step_negative3668=0; +if (new_error) goto fornext_error3668; +goto fornext_entrylabel3668; +while(1){ +fornext_value3668=fornext_step3668+(*_FUNC_EVALPREIF_LONG_I); +fornext_entrylabel3668: +*_FUNC_EVALPREIF_LONG_I=fornext_value3668; +if (fornext_step_negative3668){ +if (fornext_value3668fornext_finalvalue3668) break; +} +fornext_error3668:; +if(qbevent){evnt(25547);if(r)goto S_34322;} +S_34323:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[array_check(( 0 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*_FUNC_EVALPREIF_LONG_I)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]])),_FUNC_EVALPREIF_STRING_L))&(qbs_notequal(((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*_FUNC_EVALPREIF_LONG_I)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]])),_FUNC_EVALPREIF_STRING_R))))||new_error){ +if(qbevent){evnt(25548);if(r)goto S_34323;} +do{ +qbs_set(_FUNC_EVALPREIF_STRING_RESULT,qbs_new_txt_len(" -1 ",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25548);}while(r); +do{ +goto LABEL_FINISHEDCHECK; +if(!qbevent)break;evnt(25548);}while(r); +} +fornext_continue_3667:; +} +fornext_exit_3667:; +} +S_34329:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_EVALPREIF_STRING_SYMBOL,qbs_new_txt_len("=",1),0)))||new_error){ +if(qbevent){evnt(25551);if(r)goto S_34329;} +do{ +*_FUNC_EVALPREIF_LONG_USERFOUND= 0 ; +if(!qbevent)break;evnt(25552);}while(r); +S_34331:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALPREIF_STRING_L,((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[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]])))))||new_error){ +if(qbevent){evnt(25553);if(r)goto S_34331;} +do{ +*_FUNC_EVALPREIF_LONG_RESULT=FUNC_COMPAREVERSIONS(__STRING_VERSION,_FUNC_EVALPREIF_STRING_R); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25554);}while(r); +S_34333:; +if ((-(*_FUNC_EVALPREIF_LONG_RESULT== 0 ))||new_error){ +if(qbevent){evnt(25555);if(r)goto S_34333;} +do{ +qbs_set(_FUNC_EVALPREIF_STRING_RESULT,qbs_new_txt_len(" -1 ",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25555);}while(r); +do{ +goto LABEL_FINISHEDCHECK; +if(!qbevent)break;evnt(25555);}while(r); +} +} +S_34338:; +fornext_value3670= 0 ; +fornext_finalvalue3670=*__INTEGER_USERDEFINECOUNT; +fornext_step3670= 1 ; +if (fornext_step3670<0) fornext_step_negative3670=1; else fornext_step_negative3670=0; +if (new_error) goto fornext_error3670; +goto fornext_entrylabel3670; +while(1){ +fornext_value3670=fornext_step3670+(*_FUNC_EVALPREIF_LONG_I); +fornext_entrylabel3670: +*_FUNC_EVALPREIF_LONG_I=fornext_value3670; +if (fornext_step_negative3670){ +if (fornext_value3670fornext_finalvalue3670) break; +} +fornext_error3670:; +if(qbevent){evnt(25557);if(r)goto S_34338;} +S_34339:; +if ((-(*_FUNC_EVALPREIF_LONG_I== 7 ))||new_error){ +if(qbevent){evnt(25558);if(r)goto S_34339;} +do{ +goto fornext_continue_3669; +if(!qbevent)break;evnt(25558);}while(r); +} +S_34342:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[array_check(( 0 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*_FUNC_EVALPREIF_LONG_I)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]])),_FUNC_EVALPREIF_STRING_L)))||new_error){ +if(qbevent){evnt(25559);if(r)goto S_34342;} +do{ +*_FUNC_EVALPREIF_LONG_USERFOUND= -1 ; +if(!qbevent)break;evnt(25560);}while(r); +S_34344:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*_FUNC_EVALPREIF_LONG_I)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]])),_FUNC_EVALPREIF_STRING_R)))||new_error){ +if(qbevent){evnt(25561);if(r)goto S_34344;} +do{ +qbs_set(_FUNC_EVALPREIF_STRING_RESULT,qbs_new_txt_len(" -1 ",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25561);}while(r); +do{ +goto LABEL_FINISHEDCHECK; +if(!qbevent)break;evnt(25561);}while(r); +} +} +fornext_continue_3669:; +} +fornext_exit_3669:; +S_34350:; +if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_EVALPREIF_LONG_USERFOUND== 0 ))&(qbs_equal(qbs_ltrim(qbs_rtrim(_FUNC_EVALPREIF_STRING_R)),qbs_new_txt_len("UNDEFINED",9)))))||new_error){ +if(qbevent){evnt(25564);if(r)goto S_34350;} +do{ +qbs_set(_FUNC_EVALPREIF_STRING_RESULT,qbs_new_txt_len(" -1 ",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25564);}while(r); +do{ +goto LABEL_FINISHEDCHECK; +if(!qbevent)break;evnt(25564);}while(r); +} +S_34354:; +if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_EVALPREIF_LONG_USERFOUND== -1 ))&(qbs_equal(qbs_ltrim(qbs_rtrim(_FUNC_EVALPREIF_STRING_R)),qbs_new_txt_len("DEFINED",7)))))||new_error){ +if(qbevent){evnt(25565);if(r)goto S_34354;} +do{ +qbs_set(_FUNC_EVALPREIF_STRING_RESULT,qbs_new_txt_len(" -1 ",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25565);}while(r); +do{ +goto LABEL_FINISHEDCHECK; +if(!qbevent)break;evnt(25565);}while(r); +} +} +S_34359:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_EVALPREIF_STRING_SYMBOL,qbs_new_txt_len(">",1),0)))||new_error){ +if(qbevent){evnt(25568);if(r)goto S_34359;} +S_34360:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALPREIF_STRING_L,((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[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]])))))||new_error){ +if(qbevent){evnt(25569);if(r)goto S_34360;} +do{ +*_FUNC_EVALPREIF_LONG_RESULT=FUNC_COMPAREVERSIONS(__STRING_VERSION,_FUNC_EVALPREIF_STRING_R); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25570);}while(r); +S_34362:; +if ((-(*_FUNC_EVALPREIF_LONG_RESULT== 1 ))||new_error){ +if(qbevent){evnt(25571);if(r)goto S_34362;} +do{ +qbs_set(_FUNC_EVALPREIF_STRING_RESULT,qbs_new_txt_len(" -1 ",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25571);}while(r); +do{ +goto LABEL_FINISHEDCHECK; +if(!qbevent)break;evnt(25571);}while(r); +} +} +S_34367:; +fornext_value3672= 0 ; +fornext_finalvalue3672=*__INTEGER_USERDEFINECOUNT; +fornext_step3672= 1 ; +if (fornext_step3672<0) fornext_step_negative3672=1; else fornext_step_negative3672=0; +if (new_error) goto fornext_error3672; +goto fornext_entrylabel3672; +while(1){ +fornext_value3672=fornext_step3672+(*_FUNC_EVALPREIF_LONG_I); +fornext_entrylabel3672: +*_FUNC_EVALPREIF_LONG_I=fornext_value3672; +if (fornext_step_negative3672){ +if (fornext_value3672fornext_finalvalue3672) break; +} +fornext_error3672:; +if(qbevent){evnt(25573);if(r)goto S_34367;} +S_34368:; +if ((-(*_FUNC_EVALPREIF_LONG_I== 7 ))||new_error){ +if(qbevent){evnt(25574);if(r)goto S_34368;} +do{ +goto fornext_continue_3671; +if(!qbevent)break;evnt(25574);}while(r); +} +S_34371:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_VERIFYNUMBER(_FUNC_EVALPREIF_STRING_R)&FUNC_VERIFYNUMBER(((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*_FUNC_EVALPREIF_LONG_I)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]])))))||new_error){ +if(qbevent){evnt(25575);if(r)goto S_34371;} +S_34372:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[array_check(( 0 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*_FUNC_EVALPREIF_LONG_I)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]])),_FUNC_EVALPREIF_STRING_L))&(-(func_val(((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*_FUNC_EVALPREIF_LONG_I)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]])))>func_val(_FUNC_EVALPREIF_STRING_R)))))||new_error){ +if(qbevent){evnt(25576);if(r)goto S_34372;} +do{ +qbs_set(_FUNC_EVALPREIF_STRING_RESULT,qbs_new_txt_len(" -1 ",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25576);}while(r); +do{ +goto LABEL_FINISHEDCHECK; +if(!qbevent)break;evnt(25576);}while(r); +} +}else{ +S_34377:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[array_check(( 0 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*_FUNC_EVALPREIF_LONG_I)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]])),_FUNC_EVALPREIF_STRING_L))&(qbs_greaterthan(((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*_FUNC_EVALPREIF_LONG_I)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]])),_FUNC_EVALPREIF_STRING_R))))||new_error){ +if(qbevent){evnt(25578);if(r)goto S_34377;} +do{ +qbs_set(_FUNC_EVALPREIF_STRING_RESULT,qbs_new_txt_len(" -1 ",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25578);}while(r); +do{ +goto LABEL_FINISHEDCHECK; +if(!qbevent)break;evnt(25578);}while(r); +} +} +fornext_continue_3671:; +} +fornext_exit_3671:; +} +S_34384:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_EVALPREIF_STRING_SYMBOL,qbs_new_txt_len("<",1),0)))||new_error){ +if(qbevent){evnt(25583);if(r)goto S_34384;} +S_34385:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_EVALPREIF_STRING_L,((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[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]])))))||new_error){ +if(qbevent){evnt(25584);if(r)goto S_34385;} +do{ +*_FUNC_EVALPREIF_LONG_RESULT=FUNC_COMPAREVERSIONS(__STRING_VERSION,_FUNC_EVALPREIF_STRING_R); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25585);}while(r); +S_34387:; +if ((-(*_FUNC_EVALPREIF_LONG_RESULT== -1 ))||new_error){ +if(qbevent){evnt(25586);if(r)goto S_34387;} +do{ +qbs_set(_FUNC_EVALPREIF_STRING_RESULT,qbs_new_txt_len(" -1 ",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25586);}while(r); +do{ +goto LABEL_FINISHEDCHECK; +if(!qbevent)break;evnt(25586);}while(r); +} +} +S_34392:; +fornext_value3674= 0 ; +fornext_finalvalue3674=*__INTEGER_USERDEFINECOUNT; +fornext_step3674= 1 ; +if (fornext_step3674<0) fornext_step_negative3674=1; else fornext_step_negative3674=0; +if (new_error) goto fornext_error3674; +goto fornext_entrylabel3674; +while(1){ +fornext_value3674=fornext_step3674+(*_FUNC_EVALPREIF_LONG_I); +fornext_entrylabel3674: +*_FUNC_EVALPREIF_LONG_I=fornext_value3674; +if (fornext_step_negative3674){ +if (fornext_value3674fornext_finalvalue3674) break; +} +fornext_error3674:; +if(qbevent){evnt(25588);if(r)goto S_34392;} +S_34393:; +if ((-(*_FUNC_EVALPREIF_LONG_I== 7 ))||new_error){ +if(qbevent){evnt(25589);if(r)goto S_34393;} +do{ +goto fornext_continue_3673; +if(!qbevent)break;evnt(25589);}while(r); +} +S_34396:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_VERIFYNUMBER(_FUNC_EVALPREIF_STRING_R)&FUNC_VERIFYNUMBER(((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*_FUNC_EVALPREIF_LONG_I)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]])))))||new_error){ +if(qbevent){evnt(25590);if(r)goto S_34396;} +S_34397:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[array_check(( 0 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*_FUNC_EVALPREIF_LONG_I)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]])),_FUNC_EVALPREIF_STRING_L))&(-(func_val(((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*_FUNC_EVALPREIF_LONG_I)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]])))fornext_finalvalue3677) break; +} +fornext_error3677:; +if(qbevent){evnt(25611);if(r)goto S_34417;} +S_34418:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(((qbs*)(((uint64*)(_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[0]))[array_check((*_FUNC_EVALPREIF_LONG_I)-_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[4],_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[5])])),qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(25612);if(r)goto S_34418;} +do{ +*_FUNC_EVALPREIF_LONG_T=func_instr(NULL,_FUNC_EVALPREIF_STRING_TEMP,((qbs*)(((uint64*)(_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[0]))[array_check((*_FUNC_EVALPREIF_LONG_I)-_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[4],_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[5])])),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25613);}while(r); +S_34420:; +if ((-(*_FUNC_EVALPREIF_LONG_FIRST!= 0 ))||new_error){ +if(qbevent){evnt(25614);if(r)goto S_34420;} +S_34421:; +if (((-(*_FUNC_EVALPREIF_LONG_T<*_FUNC_EVALPREIF_LONG_FIRST))&(-(*_FUNC_EVALPREIF_LONG_T!= 0 )))||new_error){ +if(qbevent){evnt(25615);if(r)goto S_34421;} +do{ +*_FUNC_EVALPREIF_LONG_FIRST=*_FUNC_EVALPREIF_LONG_T; +if(!qbevent)break;evnt(25615);}while(r); +do{ +*_FUNC_EVALPREIF_LONG_FIRSTSYMBOL=*_FUNC_EVALPREIF_LONG_I; +if(!qbevent)break;evnt(25615);}while(r); +} +}else{ +do{ +*_FUNC_EVALPREIF_LONG_FIRST=*_FUNC_EVALPREIF_LONG_T; +if(!qbevent)break;evnt(25617);}while(r); +do{ +*_FUNC_EVALPREIF_LONG_FIRSTSYMBOL=*_FUNC_EVALPREIF_LONG_I; +if(!qbevent)break;evnt(25617);}while(r); +} +} +fornext_continue_3676:; +} +fornext_exit_3676:; +S_34431:; +if ((-(*_FUNC_EVALPREIF_LONG_FIRST== 0 ))||new_error){ +if(qbevent){evnt(25621);if(r)goto S_34431;} +do{ +goto dl_exit_3675; +if(!qbevent)break;evnt(25621);}while(r); +} +do{ +qbs_set(_FUNC_EVALPREIF_STRING_LEFTSIDE,qbs_rtrim(qbs_left(_FUNC_EVALPREIF_STRING_TEMP,*_FUNC_EVALPREIF_LONG_FIRST- 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25622);}while(r); +do{ +qbs_set(_FUNC_EVALPREIF_STRING_SYMBOL,func_mid(_FUNC_EVALPREIF_STRING_TEMP,*_FUNC_EVALPREIF_LONG_FIRST,((qbs*)(((uint64*)(_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[0]))[array_check((*_FUNC_EVALPREIF_LONG_FIRSTSYMBOL)-_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[4],_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[5])]))->len,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25623);}while(r); +do{ +qbs_set(_FUNC_EVALPREIF_STRING_T,func_mid(_FUNC_EVALPREIF_STRING_TEMP,*_FUNC_EVALPREIF_LONG_FIRST+((qbs*)(((uint64*)(_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[0]))[array_check((*_FUNC_EVALPREIF_LONG_FIRSTSYMBOL)-_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[4],_FUNC_EVALPREIF_ARRAY_STRING_PC_OP[5])]))->len,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25624);}while(r); +do{ +*_FUNC_EVALPREIF_LONG_T=func_instr(NULL,_FUNC_EVALPREIF_STRING_T,qbs_new_txt_len(" ",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25625);}while(r); +S_34438:; +if ((*_FUNC_EVALPREIF_LONG_T)||new_error){ +if(qbevent){evnt(25626);if(r)goto S_34438;} +do{ +qbs_set(_FUNC_EVALPREIF_STRING_M,qbs_ltrim(qbs_rtrim(qbs_left(_FUNC_EVALPREIF_STRING_T,*_FUNC_EVALPREIF_LONG_T- 1 )))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25627);}while(r); +do{ +qbs_set(_FUNC_EVALPREIF_STRING_RIGHTSIDE,qbs_ltrim(func_mid(_FUNC_EVALPREIF_STRING_T,*_FUNC_EVALPREIF_LONG_T,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25628);}while(r); +}else{ +do{ +qbs_set(_FUNC_EVALPREIF_STRING_M,qbs_ltrim(func_mid(_FUNC_EVALPREIF_STRING_T,*_FUNC_EVALPREIF_LONG_T,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25630);}while(r); +do{ +qbs_set(_FUNC_EVALPREIF_STRING_RIGHTSIDE,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25631);}while(r); +} +do{ +*_FUNC_EVALPREIF_LONG_LEFTRESULT= 0 ; +if(!qbevent)break;evnt(25633);}while(r); +S_34446:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_VERIFYNUMBER(_FUNC_EVALPREIF_STRING_LEFTSIDE)))||new_error){ +if(qbevent){evnt(25634);if(r)goto S_34446;} +S_34447:; +if ((qbs_cleanup(qbs_tmp_base,-(func_val(_FUNC_EVALPREIF_STRING_LEFTSIDE)!= 0 )))||new_error){ +if(qbevent){evnt(25635);if(r)goto S_34447;} +do{ +*_FUNC_EVALPREIF_LONG_LEFTRESULT= -1 ; +if(!qbevent)break;evnt(25635);}while(r); +} +}else{ +S_34451:; +fornext_value3681= 0 ; +fornext_finalvalue3681=*__INTEGER_USERDEFINECOUNT; +fornext_step3681= 1 ; +if (fornext_step3681<0) fornext_step_negative3681=1; else fornext_step_negative3681=0; +if (new_error) goto fornext_error3681; +goto fornext_entrylabel3681; +while(1){ +fornext_value3681=fornext_step3681+(*_FUNC_EVALPREIF_LONG_I); +fornext_entrylabel3681: +*_FUNC_EVALPREIF_LONG_I=fornext_value3681; +if (fornext_step_negative3681){ +if (fornext_value3681fornext_finalvalue3681) break; +} +fornext_error3681:; +if(qbevent){evnt(25637);if(r)goto S_34451;} +S_34452:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[array_check(( 0 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*_FUNC_EVALPREIF_LONG_I)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]])),_FUNC_EVALPREIF_STRING_LEFTSIDE)))||new_error){ +if(qbevent){evnt(25638);if(r)goto S_34452;} +do{ +qbs_set(_FUNC_EVALPREIF_STRING_T,qbs_ltrim(qbs_rtrim(((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*_FUNC_EVALPREIF_LONG_I)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]]))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25639);}while(r); +S_34454:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(_FUNC_EVALPREIF_STRING_T,qbs_new_txt_len("0",1)))&(qbs_notequal(_FUNC_EVALPREIF_STRING_T,qbs_new_txt_len("",0)))))||new_error){ +if(qbevent){evnt(25640);if(r)goto S_34454;} +do{ +*_FUNC_EVALPREIF_LONG_LEFTRESULT= -1 ; +if(!qbevent)break;evnt(25640);}while(r); +do{ +goto fornext_exit_3680; +if(!qbevent)break;evnt(25640);}while(r); +} +} +fornext_continue_3680:; +} +fornext_exit_3680:; +} +do{ +*_FUNC_EVALPREIF_LONG_RIGHTRESULT= 0 ; +if(!qbevent)break;evnt(25644);}while(r); +S_34462:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_VERIFYNUMBER(_FUNC_EVALPREIF_STRING_M)))||new_error){ +if(qbevent){evnt(25645);if(r)goto S_34462;} +S_34463:; +if ((qbs_cleanup(qbs_tmp_base,-(func_val(_FUNC_EVALPREIF_STRING_M)!= 0 )))||new_error){ +if(qbevent){evnt(25646);if(r)goto S_34463;} +do{ +*_FUNC_EVALPREIF_LONG_RIGHTRESULT= -1 ; +if(!qbevent)break;evnt(25646);}while(r); +} +}else{ +S_34467:; +fornext_value3683= 0 ; +fornext_finalvalue3683=*__INTEGER_USERDEFINECOUNT; +fornext_step3683= 1 ; +if (fornext_step3683<0) fornext_step_negative3683=1; else fornext_step_negative3683=0; +if (new_error) goto fornext_error3683; +goto fornext_entrylabel3683; +while(1){ +fornext_value3683=fornext_step3683+(*_FUNC_EVALPREIF_LONG_I); +fornext_entrylabel3683: +*_FUNC_EVALPREIF_LONG_I=fornext_value3683; +if (fornext_step_negative3683){ +if (fornext_value3683fornext_finalvalue3683) break; +} +fornext_error3683:; +if(qbevent){evnt(25648);if(r)goto S_34467;} +S_34468:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[array_check(( 0 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*_FUNC_EVALPREIF_LONG_I)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]])),_FUNC_EVALPREIF_STRING_M)))||new_error){ +if(qbevent){evnt(25649);if(r)goto S_34468;} +do{ +qbs_set(_FUNC_EVALPREIF_STRING_T,qbs_ltrim(qbs_rtrim(((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*_FUNC_EVALPREIF_LONG_I)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]]))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25650);}while(r); +S_34470:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(_FUNC_EVALPREIF_STRING_T,qbs_new_txt_len("0",1)))&(qbs_notequal(_FUNC_EVALPREIF_STRING_T,qbs_new_txt_len("",0)))))||new_error){ +if(qbevent){evnt(25651);if(r)goto S_34470;} +do{ +*_FUNC_EVALPREIF_LONG_RIGHTRESULT= -1 ; +if(!qbevent)break;evnt(25651);}while(r); +do{ +goto fornext_exit_3682; +if(!qbevent)break;evnt(25651);}while(r); +} +} +fornext_continue_3682:; +} +fornext_exit_3682:; +} +S_34477:; +qbs_set(sc_3684,qbs_ltrim(qbs_rtrim(_FUNC_EVALPREIF_STRING_SYMBOL))); +qbs_cleanup(qbs_tmp_base,0); +if(qbevent){evnt(25655);if(r)goto S_34477;} +S_34478:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3684,qbs_new_txt_len("AND",3))))||new_error){ +if(qbevent){evnt(25656);if(r)goto S_34478;} +S_34479:; +if (((-(*_FUNC_EVALPREIF_LONG_LEFTRESULT!= 0 ))&(-(*_FUNC_EVALPREIF_LONG_RIGHTRESULT!= 0 )))||new_error){ +if(qbevent){evnt(25657);if(r)goto S_34479;} +do{ +qbs_set(_FUNC_EVALPREIF_STRING_RESULT,qbs_new_txt_len(" -1 ",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25657);}while(r); +}else{ +do{ +qbs_set(_FUNC_EVALPREIF_STRING_RESULT,qbs_new_txt_len(" 0 ",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25657);}while(r); +} +sc_ec_191_end:; +goto sc_3684_end; +} +S_34484:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3684,qbs_new_txt_len("OR",2))))||new_error){ +if(qbevent){evnt(25658);if(r)goto S_34484;} +S_34485:; +if (((-(*_FUNC_EVALPREIF_LONG_LEFTRESULT!= 0 ))|(-(*_FUNC_EVALPREIF_LONG_RIGHTRESULT!= 0 )))||new_error){ +if(qbevent){evnt(25659);if(r)goto S_34485;} +do{ +qbs_set(_FUNC_EVALPREIF_STRING_RESULT,qbs_new_txt_len(" -1 ",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25659);}while(r); +}else{ +do{ +qbs_set(_FUNC_EVALPREIF_STRING_RESULT,qbs_new_txt_len(" 0 ",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25659);}while(r); +} +sc_ec_192_end:; +goto sc_3684_end; +} +S_34490:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3684,qbs_new_txt_len("XOR",3))))||new_error){ +if(qbevent){evnt(25660);if(r)goto S_34490;} +S_34491:; +if ((-(*_FUNC_EVALPREIF_LONG_LEFTRESULT!=*_FUNC_EVALPREIF_LONG_RIGHTRESULT))||new_error){ +if(qbevent){evnt(25661);if(r)goto S_34491;} +do{ +qbs_set(_FUNC_EVALPREIF_STRING_RESULT,qbs_new_txt_len(" -1 ",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25661);}while(r); +}else{ +do{ +qbs_set(_FUNC_EVALPREIF_STRING_RESULT,qbs_new_txt_len(" 0 ",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25661);}while(r); +} +sc_ec_193_end:; +goto sc_3684_end; +} +sc_3684_end:; +do{ +qbs_set(_FUNC_EVALPREIF_STRING_TEMP,qbs_add(_FUNC_EVALPREIF_STRING_RESULT,_FUNC_EVALPREIF_STRING_RIGHTSIDE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25663);}while(r); +dl_continue_3675:; +}while(1); +dl_exit_3675:; +S_34499:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_VERIFYNUMBER(_FUNC_EVALPREIF_STRING_TEMP)))||new_error){ +if(qbevent){evnt(25666);if(r)goto S_34499;} +do{ +*_FUNC_EVALPREIF_LONG_EVALPREIF=qbr(func_val(_FUNC_EVALPREIF_STRING_TEMP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25667);}while(r); +}else{ +S_34502:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_EVALPREIF_STRING_TEMP,qbs_new_txt_len(" ",1),0)))||new_error){ +if(qbevent){evnt(25669);if(r)goto S_34502;} +do{ +qbs_set(_FUNC_EVALPREIF_STRING_ERR,qbs_new_txt_len("Invalid Resolution of $IF; check statements",43)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25669);}while(r); +} +S_34505:; +fornext_value3686= 0 ; +fornext_finalvalue3686=*__INTEGER_USERDEFINECOUNT; +fornext_step3686= 1 ; +if (fornext_step3686<0) fornext_step_negative3686=1; else fornext_step_negative3686=0; +if (new_error) goto fornext_error3686; +goto fornext_entrylabel3686; +while(1){ +fornext_value3686=fornext_step3686+(*_FUNC_EVALPREIF_LONG_I); +fornext_entrylabel3686: +*_FUNC_EVALPREIF_LONG_I=fornext_value3686; +if (fornext_step_negative3686){ +if (fornext_value3686fornext_finalvalue3686) break; +} +fornext_error3686:; +if(qbevent){evnt(25670);if(r)goto S_34505;} +S_34506:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[array_check(( 0 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*_FUNC_EVALPREIF_LONG_I)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]])),_FUNC_EVALPREIF_STRING_TEMP)))||new_error){ +if(qbevent){evnt(25671);if(r)goto S_34506;} +do{ +qbs_set(_FUNC_EVALPREIF_STRING_T,qbs_ltrim(qbs_rtrim(((qbs*)(((uint64*)(__ARRAY_STRING_USERDEFINE[0]))[array_check(( 1 )-__ARRAY_STRING_USERDEFINE[8],__ARRAY_STRING_USERDEFINE[9])+array_check((*_FUNC_EVALPREIF_LONG_I)-__ARRAY_STRING_USERDEFINE[4],__ARRAY_STRING_USERDEFINE[5])*__ARRAY_STRING_USERDEFINE[6]]))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25672);}while(r); +S_34508:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(_FUNC_EVALPREIF_STRING_T,qbs_new_txt_len("0",1)))&(qbs_notequal(_FUNC_EVALPREIF_STRING_T,qbs_new_txt_len("",0)))))||new_error){ +if(qbevent){evnt(25673);if(r)goto S_34508;} +do{ +*_FUNC_EVALPREIF_LONG_EVALPREIF= -1 ; +if(!qbevent)break;evnt(25673);}while(r); +do{ +goto fornext_exit_3685; +if(!qbevent)break;evnt(25673);}while(r); +} +} +fornext_continue_3685:; +} +fornext_exit_3685:; +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free95.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +return *_FUNC_EVALPREIF_LONG_EVALPREIF; +} +int32 FUNC_VERIFYNUMBER(qbs*_FUNC_VERIFYNUMBER_STRING_TEXT){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data96.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +qbs_set(_FUNC_VERIFYNUMBER_STRING_T,qbs_ltrim(qbs_rtrim(_FUNC_VERIFYNUMBER_STRING_TEXT))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25681);}while(r); +do{ +*_FUNC_VERIFYNUMBER_LONG_V=qbr(func_val(_FUNC_VERIFYNUMBER_STRING_T)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25682);}while(r); +do{ +qbs_set(_FUNC_VERIFYNUMBER_STRING_T1,qbs_ltrim(qbs_str((int32)(*_FUNC_VERIFYNUMBER_LONG_V)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25683);}while(r); +S_34518:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_VERIFYNUMBER_STRING_T,_FUNC_VERIFYNUMBER_STRING_T1)))||new_error){ +if(qbevent){evnt(25684);if(r)goto S_34518;} +do{ +*_FUNC_VERIFYNUMBER_LONG_VERIFYNUMBER= -1 ; +if(!qbevent)break;evnt(25684);}while(r); +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free96.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +return *_FUNC_VERIFYNUMBER_LONG_VERIFYNUMBER; +} +void SUB_INITIALISE_UDT_VARSTRINGS(qbs*_SUB_INITIALISE_UDT_VARSTRINGS_STRING_N,int32*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_UDT,int32*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_BUF,int32*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_BASE_OFFSET){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data97.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +S_34521:; +if ((~(((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_UDT)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])]))||new_error){ +if(qbevent){evnt(25688);if(r)goto S_34521;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(25688);}while(r); +} +do{ +*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_ELEMENT=((int32*)(__ARRAY_LONG_UDTXNEXT[0]))[array_check((*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_UDT)-__ARRAY_LONG_UDTXNEXT[4],__ARRAY_LONG_UDTXNEXT[5])]; +if(!qbevent)break;evnt(25689);}while(r); +do{ +*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_OFFSET= 0 ; +if(!qbevent)break;evnt(25690);}while(r); +S_34526:; +while((*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_ELEMENT)||new_error){ +if(qbevent){evnt(25691);if(r)goto S_34526;} +S_34527:; +if ((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(25692);if(r)goto S_34527;} +S_34528:; +if ((-((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ +if(qbevent){evnt(25693);if(r)goto S_34528;} +do{ +SUB_WRITEBUFLINE(&(pass3690=*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_BUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("*(qbs**)(((char*)",17),_SUB_INITIALISE_UDT_VARSTRINGS_STRING_N),qbs_new_txt_len(")+",2)),qbs_str((int64)(*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_BASE_OFFSET+*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_OFFSET))),qbs_new_txt_len(") = qbs_new(0,0);",17))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25694);}while(r); +} +S_34531:; +}else{ +if (((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISUDT){ +if(qbevent){evnt(25696);if(r)goto S_34531;} +do{ +SUB_INITIALISE_UDT_VARSTRINGS(_SUB_INITIALISE_UDT_VARSTRINGS_STRING_N,&(pass3691=((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]& 511 ),_SUB_INITIALISE_UDT_VARSTRINGS_LONG_BUF,_SUB_INITIALISE_UDT_VARSTRINGS_LONG_OFFSET); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25697);}while(r); +} +} +do{ +*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_OFFSET=*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_OFFSET+(((int32*)(__ARRAY_LONG_UDTESIZE[0]))[array_check((*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5])]/ 8 ); +if(!qbevent)break;evnt(25699);}while(r); +do{ +*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_ELEMENT=((int32*)(__ARRAY_LONG_UDTENEXT[0]))[array_check((*_SUB_INITIALISE_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5])]; +if(!qbevent)break;evnt(25700);}while(r); +dl_continue_3689:; +} +dl_exit_3689:; +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free97.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +void SUB_FREE_UDT_VARSTRINGS(qbs*_SUB_FREE_UDT_VARSTRINGS_STRING_N,int32*_SUB_FREE_UDT_VARSTRINGS_LONG_UDT,int32*_SUB_FREE_UDT_VARSTRINGS_LONG_BUF,int32*_SUB_FREE_UDT_VARSTRINGS_LONG_BASE_OFFSET){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data98.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +S_34537:; +if ((~(((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*_SUB_FREE_UDT_VARSTRINGS_LONG_UDT)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])]))||new_error){ +if(qbevent){evnt(25705);if(r)goto S_34537;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(25705);}while(r); +} +do{ +*_SUB_FREE_UDT_VARSTRINGS_LONG_ELEMENT=((int32*)(__ARRAY_LONG_UDTXNEXT[0]))[array_check((*_SUB_FREE_UDT_VARSTRINGS_LONG_UDT)-__ARRAY_LONG_UDTXNEXT[4],__ARRAY_LONG_UDTXNEXT[5])]; +if(!qbevent)break;evnt(25706);}while(r); +do{ +*_SUB_FREE_UDT_VARSTRINGS_LONG_OFFSET= 0 ; +if(!qbevent)break;evnt(25707);}while(r); +S_34542:; +while((*_SUB_FREE_UDT_VARSTRINGS_LONG_ELEMENT)||new_error){ +if(qbevent){evnt(25708);if(r)goto S_34542;} +S_34543:; +if ((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_FREE_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(25709);if(r)goto S_34543;} +S_34544:; +if ((-((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_FREE_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ +if(qbevent){evnt(25710);if(r)goto S_34544;} +do{ +SUB_WRITEBUFLINE(&(pass3694=*_SUB_FREE_UDT_VARSTRINGS_LONG_BUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_free(*((qbs**)(((char*)",27),_SUB_FREE_UDT_VARSTRINGS_STRING_N),qbs_new_txt_len(")+",2)),qbs_str((int64)(*_SUB_FREE_UDT_VARSTRINGS_LONG_BASE_OFFSET+*_SUB_FREE_UDT_VARSTRINGS_LONG_OFFSET))),qbs_new_txt_len(")));",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25711);}while(r); +} +S_34547:; +}else{ +if (((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_FREE_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISUDT){ +if(qbevent){evnt(25713);if(r)goto S_34547;} +do{ +SUB_INITIALISE_UDT_VARSTRINGS(_SUB_FREE_UDT_VARSTRINGS_STRING_N,&(pass3695=((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_FREE_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]& 511 ),_SUB_FREE_UDT_VARSTRINGS_LONG_BUF,_SUB_FREE_UDT_VARSTRINGS_LONG_OFFSET); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25714);}while(r); +} +} +do{ +*_SUB_FREE_UDT_VARSTRINGS_LONG_OFFSET=*_SUB_FREE_UDT_VARSTRINGS_LONG_OFFSET+(((int32*)(__ARRAY_LONG_UDTESIZE[0]))[array_check((*_SUB_FREE_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5])]/ 8 ); +if(!qbevent)break;evnt(25716);}while(r); +do{ +*_SUB_FREE_UDT_VARSTRINGS_LONG_ELEMENT=((int32*)(__ARRAY_LONG_UDTENEXT[0]))[array_check((*_SUB_FREE_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5])]; +if(!qbevent)break;evnt(25717);}while(r); +dl_continue_3693:; +} +dl_exit_3693:; +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free98.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +void SUB_CLEAR_UDT_WITH_VARSTRINGS(qbs*_SUB_CLEAR_UDT_WITH_VARSTRINGS_STRING_N,int32*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_UDT,int32*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_BUF,int32*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_BASE_OFFSET){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data99.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +S_34553:; +if ((~(((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_UDT)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])]))||new_error){ +if(qbevent){evnt(25722);if(r)goto S_34553;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(25722);}while(r); +} +do{ +*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_ELEMENT=((int32*)(__ARRAY_LONG_UDTXNEXT[0]))[array_check((*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_UDT)-__ARRAY_LONG_UDTXNEXT[4],__ARRAY_LONG_UDTXNEXT[5])]; +if(!qbevent)break;evnt(25723);}while(r); +do{ +*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_OFFSET= 0 ; +if(!qbevent)break;evnt(25724);}while(r); +S_34558:; +while((*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_ELEMENT)||new_error){ +if(qbevent){evnt(25725);if(r)goto S_34558;} +S_34559:; +if ((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(25726);if(r)goto S_34559;} +S_34560:; +if ((-((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ +if(qbevent){evnt(25727);if(r)goto S_34560;} +do{ +SUB_WRITEBUFLINE(&(pass3698=*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_BUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("(*(qbs**)(((char*)",18),_SUB_CLEAR_UDT_WITH_VARSTRINGS_STRING_N),qbs_new_txt_len(")+",2)),qbs_str((int64)(*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_BASE_OFFSET+*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_OFFSET))),qbs_new_txt_len("))->len=0;",10))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25728);}while(r); +}else{ +do{ +SUB_WRITEBUFLINE(&(pass3699=*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_BUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("memset((char*)",14),_SUB_CLEAR_UDT_WITH_VARSTRINGS_STRING_N),qbs_new_txt_len("+",1)),qbs_str((int64)(*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_BASE_OFFSET+*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_OFFSET))),qbs_new_txt_len(",0,",3)),qbs_str((int64)(((int32*)(__ARRAY_LONG_UDTESIZE[0]))[array_check((*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5])]/ 8 ))),qbs_new_txt_len(");",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25730);}while(r); +} +}else{ +S_34566:; +if ((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISUDT)||new_error){ +if(qbevent){evnt(25733);if(r)goto S_34566;} +do{ +SUB_CLEAR_UDT_WITH_VARSTRINGS(_SUB_CLEAR_UDT_WITH_VARSTRINGS_STRING_N,&(pass3700=((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]& 511 ),_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_BUF,&(pass3701=*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_BASE_OFFSET+*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_OFFSET)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25734);}while(r); +}else{ +do{ +SUB_WRITEBUFLINE(&(pass3702=*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_BUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("memset((char*)",14),_SUB_CLEAR_UDT_WITH_VARSTRINGS_STRING_N),qbs_new_txt_len("+",1)),qbs_str((int64)(*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_BASE_OFFSET+*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_OFFSET))),qbs_new_txt_len(",0,",3)),qbs_str((int64)(((int32*)(__ARRAY_LONG_UDTESIZE[0]))[array_check((*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5])]/ 8 ))),qbs_new_txt_len(");",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25736);}while(r); +} +} +do{ +*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_OFFSET=*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_OFFSET+(((int32*)(__ARRAY_LONG_UDTESIZE[0]))[array_check((*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5])]/ 8 ); +if(!qbevent)break;evnt(25739);}while(r); +do{ +*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_ELEMENT=((int32*)(__ARRAY_LONG_UDTENEXT[0]))[array_check((*_SUB_CLEAR_UDT_WITH_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5])]; +if(!qbevent)break;evnt(25740);}while(r); +dl_continue_3697:; +} +dl_exit_3697:; +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free99.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +void SUB_INITIALISE_ARRAY_UDT_VARSTRINGS(qbs*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_N,int32*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_UDT,int32*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_BASE_OFFSET,qbs*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_BYTESPERELEMENT,qbs*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_ACC){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data100.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +S_34575:; +if ((~(((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_UDT)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])]))||new_error){ +if(qbevent){evnt(25746);if(r)goto S_34575;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(25746);}while(r); +} +do{ +*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_OFFSET=*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_BASE_OFFSET; +if(!qbevent)break;evnt(25747);}while(r); +do{ +*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT=((int32*)(__ARRAY_LONG_UDTXNEXT[0]))[array_check((*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_UDT)-__ARRAY_LONG_UDTXNEXT[4],__ARRAY_LONG_UDTXNEXT[5])]; +if(!qbevent)break;evnt(25748);}while(r); +S_34580:; +while((*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT)||new_error){ +if(qbevent){evnt(25749);if(r)goto S_34580;} +S_34581:; +if ((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(25750);if(r)goto S_34581;} +S_34582:; +if ((-((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ +if(qbevent){evnt(25751);if(r)goto S_34582;} +do{ +qbs_set(_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_ACC,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_ACC,func_chr( 13 )),func_chr( 10 )),qbs_new_txt_len("*(qbs**)(",9)),_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_N),qbs_new_txt_len("[0]+(",5)),_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_BYTESPERELEMENT),qbs_new_txt_len("-1)*tmp_long+",13)),qbs_str((int32)(*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_OFFSET))),qbs_new_txt_len(")=qbs_new(0,0);",15))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25752);}while(r); +} +S_34585:; +}else{ +if (((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISUDT){ +if(qbevent){evnt(25754);if(r)goto S_34585;} +do{ +SUB_INITIALISE_ARRAY_UDT_VARSTRINGS(_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_N,&(pass3707=((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]& 511 ),_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_OFFSET,_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_BYTESPERELEMENT,_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_STRING_ACC); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25755);}while(r); +} +} +do{ +*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_OFFSET=*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_OFFSET+(((int32*)(__ARRAY_LONG_UDTESIZE[0]))[array_check((*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5])]/ 8 ); +if(!qbevent)break;evnt(25757);}while(r); +do{ +*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT=((int32*)(__ARRAY_LONG_UDTENEXT[0]))[array_check((*_SUB_INITIALISE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5])]; +if(!qbevent)break;evnt(25758);}while(r); +dl_continue_3706:; +} +dl_exit_3706:; +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free100.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +void SUB_FREE_ARRAY_UDT_VARSTRINGS(qbs*_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_N,int32*_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_UDT,int32*_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_BASE_OFFSET,qbs*_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_BYTESPERELEMENT,qbs*_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_ACC){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data101.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +S_34591:; +if ((~(((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_UDT)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])]))||new_error){ +if(qbevent){evnt(25763);if(r)goto S_34591;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(25763);}while(r); +} +do{ +*_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_OFFSET=*_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_BASE_OFFSET; +if(!qbevent)break;evnt(25764);}while(r); +do{ +*_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT=((int32*)(__ARRAY_LONG_UDTXNEXT[0]))[array_check((*_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_UDT)-__ARRAY_LONG_UDTXNEXT[4],__ARRAY_LONG_UDTXNEXT[5])]; +if(!qbevent)break;evnt(25765);}while(r); +S_34596:; +while((*_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT)||new_error){ +if(qbevent){evnt(25766);if(r)goto S_34596;} +S_34597:; +if ((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(25767);if(r)goto S_34597;} +S_34598:; +if ((-((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ +if(qbevent){evnt(25768);if(r)goto S_34598;} +do{ +qbs_set(_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_ACC,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_ACC,func_chr( 13 )),func_chr( 10 )),qbs_new_txt_len("qbs_free(*(qbs**)(",18)),_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_N),qbs_new_txt_len("[0]+(",5)),_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_BYTESPERELEMENT),qbs_new_txt_len("-1)*tmp_long+",13)),qbs_str((int32)(*_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_OFFSET))),qbs_new_txt_len("));",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25769);}while(r); +} +S_34601:; +}else{ +if (((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISUDT){ +if(qbevent){evnt(25771);if(r)goto S_34601;} +do{ +SUB_FREE_ARRAY_UDT_VARSTRINGS(_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_N,&(pass3712=((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]& 511 ),_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_OFFSET,_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_BYTESPERELEMENT,_SUB_FREE_ARRAY_UDT_VARSTRINGS_STRING_ACC); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25772);}while(r); +} +} +do{ +*_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_OFFSET=*_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_OFFSET+(((int32*)(__ARRAY_LONG_UDTESIZE[0]))[array_check((*_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5])]/ 8 ); +if(!qbevent)break;evnt(25774);}while(r); +do{ +*_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT=((int32*)(__ARRAY_LONG_UDTENEXT[0]))[array_check((*_SUB_FREE_ARRAY_UDT_VARSTRINGS_LONG_ELEMENT)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5])]; +if(!qbevent)break;evnt(25775);}while(r); +dl_continue_3711:; +} +dl_exit_3711:; +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free101.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +void SUB_COPY_FULL_UDT(qbs*_SUB_COPY_FULL_UDT_STRING_DST,qbs*_SUB_COPY_FULL_UDT_STRING_SRC,int32*_SUB_COPY_FULL_UDT_LONG_BUF,int32*_SUB_COPY_FULL_UDT_LONG_BASE_OFFSET,int32*_SUB_COPY_FULL_UDT_LONG_UDT){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data102.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +S_34607:; +if ((~(((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*_SUB_COPY_FULL_UDT_LONG_UDT)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])]))||new_error){ +if(qbevent){evnt(25780);if(r)goto S_34607;} +do{ +SUB_WRITEBUFLINE(&(pass3715=*_SUB_COPY_FULL_UDT_LONG_BUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("memcpy(",7),_SUB_COPY_FULL_UDT_STRING_DST),qbs_new_txt_len("+",1)),qbs_str((int32)(*_SUB_COPY_FULL_UDT_LONG_BASE_OFFSET))),qbs_new_txt_len(",",1)),_SUB_COPY_FULL_UDT_STRING_SRC),qbs_new_txt_len("+",1)),qbs_str((int32)(*_SUB_COPY_FULL_UDT_LONG_BASE_OFFSET))),qbs_new_txt_len(",",1)),qbs_str((int64)(((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*_SUB_COPY_FULL_UDT_LONG_UDT)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])]/ 8 ))),qbs_new_txt_len(");",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25781);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(25782);}while(r); +} +do{ +*_SUB_COPY_FULL_UDT_LONG_OFFSET=*_SUB_COPY_FULL_UDT_LONG_BASE_OFFSET; +if(!qbevent)break;evnt(25784);}while(r); +do{ +*_SUB_COPY_FULL_UDT_LONG_ELEMENT=((int32*)(__ARRAY_LONG_UDTXNEXT[0]))[array_check((*_SUB_COPY_FULL_UDT_LONG_UDT)-__ARRAY_LONG_UDTXNEXT[4],__ARRAY_LONG_UDTXNEXT[5])]; +if(!qbevent)break;evnt(25785);}while(r); +S_34613:; +while((*_SUB_COPY_FULL_UDT_LONG_ELEMENT)||new_error){ +if(qbevent){evnt(25786);if(r)goto S_34613;} +S_34614:; +if ((((-((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_COPY_FULL_UDT_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISSTRING)> 0 )))&(-((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_COPY_FULL_UDT_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISFIXEDLENGTH)== 0 )))||new_error){ +if(qbevent){evnt(25787);if(r)goto S_34614;} +do{ +SUB_WRITEBUFLINE(&(pass3717=*_SUB_COPY_FULL_UDT_LONG_BUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("qbs_set(*(qbs**)(",17),_SUB_COPY_FULL_UDT_STRING_DST),qbs_new_txt_len("+",1)),qbs_str((int32)(*_SUB_COPY_FULL_UDT_LONG_OFFSET))),qbs_new_txt_len("), *(qbs**)(",12)),_SUB_COPY_FULL_UDT_STRING_SRC),qbs_new_txt_len("+",1)),qbs_str((int32)(*_SUB_COPY_FULL_UDT_LONG_OFFSET))),qbs_new_txt_len("));",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25788);}while(r); +S_34616:; +}else{ +if ((-((((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_COPY_FULL_UDT_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]&*__LONG_ISUDT)> 0 ))){ +if(qbevent){evnt(25789);if(r)goto S_34616;} +do{ +SUB_COPY_FULL_UDT(_SUB_COPY_FULL_UDT_STRING_DST,_SUB_COPY_FULL_UDT_STRING_SRC,__LONG_MAINTXTBUF,_SUB_COPY_FULL_UDT_LONG_OFFSET,&(pass3718=((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_COPY_FULL_UDT_LONG_ELEMENT)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]& 511 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25790);}while(r); +}else{ +do{ +SUB_WRITEBUFLINE(&(pass3719=*_SUB_COPY_FULL_UDT_LONG_BUF),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("memcpy((",8),_SUB_COPY_FULL_UDT_STRING_DST),qbs_new_txt_len("+",1)),qbs_str((int32)(*_SUB_COPY_FULL_UDT_LONG_OFFSET))),qbs_new_txt_len("),(",3)),_SUB_COPY_FULL_UDT_STRING_SRC),qbs_new_txt_len("+",1)),qbs_str((int32)(*_SUB_COPY_FULL_UDT_LONG_OFFSET))),qbs_new_txt_len("),",2)),qbs_str((int64)(((int32*)(__ARRAY_LONG_UDTESIZE[0]))[array_check((*_SUB_COPY_FULL_UDT_LONG_ELEMENT)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5])]/ 8 ))),qbs_new_txt_len(");",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25792);}while(r); +} +} +do{ +*_SUB_COPY_FULL_UDT_LONG_OFFSET=*_SUB_COPY_FULL_UDT_LONG_OFFSET+(((int32*)(__ARRAY_LONG_UDTESIZE[0]))[array_check((*_SUB_COPY_FULL_UDT_LONG_ELEMENT)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5])]/ 8 ); +if(!qbevent)break;evnt(25794);}while(r); +do{ +*_SUB_COPY_FULL_UDT_LONG_ELEMENT=((int32*)(__ARRAY_LONG_UDTENEXT[0]))[array_check((*_SUB_COPY_FULL_UDT_LONG_ELEMENT)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5])]; +if(!qbevent)break;evnt(25795);}while(r); +dl_continue_3716:; +} +dl_exit_3716:; +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free102.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +void SUB_DUMP_UDTS(){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data103.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +*_SUB_DUMP_UDTS_LONG_FH=func_freefile(); +if(!qbevent)break;evnt(25800);}while(r); +do{ +sub_open(qbs_new_txt_len("types.txt",9), 4 ,NULL,NULL,*_SUB_DUMP_UDTS_LONG_FH,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25801);}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*_SUB_DUMP_UDTS_LONG_FH; +if (new_error) goto skip3720; +sub_file_print(tmp_fileno,qbs_new_txt_len("Name Size Align? Next Var?",32), 0, 0, 1); +if (new_error) goto skip3720; +skip3720: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(25802);}while(r); +S_34627:; +fornext_value3722= 1 ; +fornext_finalvalue3722=*__LONG_LASTTYPE; +fornext_step3722= 1 ; +if (fornext_step3722<0) fornext_step_negative3722=1; else fornext_step_negative3722=0; +if (new_error) goto fornext_error3722; +goto fornext_entrylabel3722; +while(1){ +fornext_value3722=fornext_step3722+(*_SUB_DUMP_UDTS_LONG_I); +fornext_entrylabel3722: +*_SUB_DUMP_UDTS_LONG_I=fornext_value3722; +if (fornext_step_negative3722){ +if (fornext_value3722fornext_finalvalue3722) break; +} +fornext_error3722:; +if(qbevent){evnt(25803);if(r)goto S_34627;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*_SUB_DUMP_UDTS_LONG_FH; +if (new_error) goto skip3723; +sub_file_print(tmp_fileno,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXNAME[0]))[(array_check((*_SUB_DUMP_UDTS_LONG_I)-__ARRAY_STRING256_UDTXNAME[4],__ARRAY_STRING256_UDTXNAME[5]))*256],256,1)), 0, 1, 0); +if (new_error) goto skip3723; +sub_file_print(tmp_fileno,qbs_str((int32)(((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*_SUB_DUMP_UDTS_LONG_I)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])])), 1, 1, 0); +if (new_error) goto skip3723; +sub_file_print(tmp_fileno,qbs_str((int16)(((int16*)(__ARRAY_INTEGER_UDTXBYTEALIGN[0]))[array_check((*_SUB_DUMP_UDTS_LONG_I)-__ARRAY_INTEGER_UDTXBYTEALIGN[4],__ARRAY_INTEGER_UDTXBYTEALIGN[5])])), 1, 1, 0); +if (new_error) goto skip3723; +sub_file_print(tmp_fileno,qbs_str((int32)(((int32*)(__ARRAY_LONG_UDTXNEXT[0]))[array_check((*_SUB_DUMP_UDTS_LONG_I)-__ARRAY_LONG_UDTXNEXT[4],__ARRAY_LONG_UDTXNEXT[5])])), 1, 1, 0); +if (new_error) goto skip3723; +sub_file_print(tmp_fileno,qbs_str((int16)(((int16*)(__ARRAY_INTEGER_UDTXVARIABLE[0]))[array_check((*_SUB_DUMP_UDTS_LONG_I)-__ARRAY_INTEGER_UDTXVARIABLE[4],__ARRAY_INTEGER_UDTXVARIABLE[5])])), 1, 0, 1); +if (new_error) goto skip3723; +skip3723: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(25804);}while(r); +fornext_continue_3721:; +} +fornext_exit_3721:; +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*_SUB_DUMP_UDTS_LONG_FH; +if (new_error) goto skip3724; +sub_file_print(tmp_fileno,qbs_new_txt_len("Name Size Align? Next Type Tsize Arr",45), 0, 0, 1); +if (new_error) goto skip3724; +skip3724: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(25806);}while(r); +S_34631:; +fornext_value3726= 1 ; +fornext_finalvalue3726=*__LONG_LASTTYPEELEMENT; +fornext_step3726= 1 ; +if (fornext_step3726<0) fornext_step_negative3726=1; else fornext_step_negative3726=0; +if (new_error) goto fornext_error3726; +goto fornext_entrylabel3726; +while(1){ +fornext_value3726=fornext_step3726+(*_SUB_DUMP_UDTS_LONG_I); +fornext_entrylabel3726: +*_SUB_DUMP_UDTS_LONG_I=fornext_value3726; +if (fornext_step_negative3726){ +if (fornext_value3726fornext_finalvalue3726) break; +} +fornext_error3726:; +if(qbevent){evnt(25807);if(r)goto S_34631;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*_SUB_DUMP_UDTS_LONG_FH; +if (new_error) goto skip3727; +sub_file_print(tmp_fileno,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTENAME[0]))[(array_check((*_SUB_DUMP_UDTS_LONG_I)-__ARRAY_STRING256_UDTENAME[4],__ARRAY_STRING256_UDTENAME[5]))*256],256,1)), 0, 1, 0); +if (new_error) goto skip3727; +sub_file_print(tmp_fileno,qbs_str((int32)(((int32*)(__ARRAY_LONG_UDTESIZE[0]))[array_check((*_SUB_DUMP_UDTS_LONG_I)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5])])), 1, 1, 0); +if (new_error) goto skip3727; +sub_file_print(tmp_fileno,qbs_str((int16)(((int16*)(__ARRAY_INTEGER_UDTEBYTEALIGN[0]))[array_check((*_SUB_DUMP_UDTS_LONG_I)-__ARRAY_INTEGER_UDTEBYTEALIGN[4],__ARRAY_INTEGER_UDTEBYTEALIGN[5])])), 1, 1, 0); +if (new_error) goto skip3727; +sub_file_print(tmp_fileno,qbs_str((int32)(((int32*)(__ARRAY_LONG_UDTENEXT[0]))[array_check((*_SUB_DUMP_UDTS_LONG_I)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5])])), 1, 1, 0); +if (new_error) goto skip3727; +sub_file_print(tmp_fileno,qbs_str((int32)(((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_SUB_DUMP_UDTS_LONG_I)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])])), 1, 1, 0); +if (new_error) goto skip3727; +sub_file_print(tmp_fileno,qbs_str((int32)(((int32*)(__ARRAY_LONG_UDTETYPESIZE[0]))[array_check((*_SUB_DUMP_UDTS_LONG_I)-__ARRAY_LONG_UDTETYPESIZE[4],__ARRAY_LONG_UDTETYPESIZE[5])])), 1, 1, 0); +if (new_error) goto skip3727; +sub_file_print(tmp_fileno,qbs_str((int32)(((int32*)(__ARRAY_LONG_UDTEARRAYELEMENTS[0]))[array_check((*_SUB_DUMP_UDTS_LONG_I)-__ARRAY_LONG_UDTEARRAYELEMENTS[4],__ARRAY_LONG_UDTEARRAYELEMENTS[5])])), 1, 0, 1); +if (new_error) goto skip3727; +skip3727: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(25808);}while(r); +fornext_continue_3725:; +} +fornext_exit_3725:; +do{ +sub_close(*_SUB_DUMP_UDTS_LONG_FH,1); +if(!qbevent)break;evnt(25810);}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free103.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +void SUB_MANAGEVARIABLELIST(qbs*_SUB_MANAGEVARIABLELIST_STRING___NAME,qbs*_SUB_MANAGEVARIABLELIST_STRING___CNAME,int32*_SUB_MANAGEVARIABLELIST_LONG_LOCALINDEX,int8*_SUB_MANAGEVARIABLELIST_BYTE_ACTION){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data104.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +if(!qbevent)break;evnt(25814);}while(r); +do{ +qbs_set(_SUB_MANAGEVARIABLELIST_STRING_NAME,qbs_rtrim(_SUB_MANAGEVARIABLELIST_STRING___NAME)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25815);}while(r); +do{ +qbs_set(_SUB_MANAGEVARIABLELIST_STRING_CNAME,qbs_rtrim(_SUB_MANAGEVARIABLELIST_STRING___CNAME)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25816);}while(r); +S_34638:; +if ((qbs_cleanup(qbs_tmp_base,-(_SUB_MANAGEVARIABLELIST_STRING_CNAME->len== 0 )))||new_error){ +if(qbevent){evnt(25818);if(r)goto S_34638;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(25818);}while(r); +} +do{ +*_SUB_MANAGEVARIABLELIST_LONG_FINDITEM=func_instr(NULL,_SUB_MANAGEVARIABLELIST_STRING_CNAME,qbs_new_txt_len("[",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25820);}while(r); +S_34642:; +if ((*_SUB_MANAGEVARIABLELIST_LONG_FINDITEM)||new_error){ +if(qbevent){evnt(25821);if(r)goto S_34642;} +do{ +qbs_set(_SUB_MANAGEVARIABLELIST_STRING_CNAME,qbs_left(_SUB_MANAGEVARIABLELIST_STRING_CNAME,*_SUB_MANAGEVARIABLELIST_LONG_FINDITEM- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25822);}while(r); +} +do{ +*_SUB_MANAGEVARIABLELIST_LONG_FOUND= 0 ; +if(!qbevent)break;evnt(25825);}while(r); +S_34646:; +fornext_value3732= 1 ; +fornext_finalvalue3732=*__LONG_TOTALVARIABLESCREATED; +fornext_step3732= 1 ; +if (fornext_step3732<0) fornext_step_negative3732=1; else fornext_step_negative3732=0; +if (new_error) goto fornext_error3732; +goto fornext_entrylabel3732; +while(1){ +fornext_value3732=fornext_step3732+(*_SUB_MANAGEVARIABLELIST_LONG_I); +fornext_entrylabel3732: +*_SUB_MANAGEVARIABLELIST_LONG_I=fornext_value3732; +if (fornext_step_negative3732){ +if (fornext_value3732fornext_finalvalue3732) break; +} +fornext_error3732:; +if(qbevent){evnt(25826);if(r)goto S_34646;} +S_34647:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+40))),_SUB_MANAGEVARIABLELIST_STRING_CNAME)))||new_error){ +if(qbevent){evnt(25827);if(r)goto S_34647;} +do{ +*_SUB_MANAGEVARIABLELIST_LONG_FOUND= -1 ; +if(!qbevent)break;evnt(25827);}while(r); +do{ +goto fornext_exit_3731; +if(!qbevent)break;evnt(25827);}while(r); +} +fornext_continue_3731:; +} +fornext_exit_3731:; +S_34652:; +if(qbevent){evnt(25830);if(r)goto S_34652;} +S_34653:; +if (((*_SUB_MANAGEVARIABLELIST_BYTE_ACTION==( 0 )))||new_error){ +if(qbevent){evnt(25831);if(r)goto S_34653;} +S_34654:; +if ((-(*_SUB_MANAGEVARIABLELIST_LONG_FOUND== 0 ))||new_error){ +if(qbevent){evnt(25832);if(r)goto S_34654;} +S_34655:; +if ((-(*_SUB_MANAGEVARIABLELIST_LONG_I>func_ubound(__ARRAY_UDT_USEDVARIABLELIST,1,1)))||new_error){ +if(qbevent){evnt(25833);if(r)goto S_34655;} +do{ if (__ARRAY_UDT_USEDVARIABLELIST[2]&2){ error(10); @@ -114989,492 +114989,492 @@ while(tmp_long--){ *(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 104)=qbs_new(0,0); *(qbs**)(__ARRAY_UDT_USEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 112)=qbs_new(0,0);} } -} -if(!qbevent)break;evnt(25834);}while(r); -} -do{ -*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120))=*__LONG_CURRENTID; -if(!qbevent)break;evnt(25837);}while(r); -do{ -*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+28))= 0 ; -if(!qbevent)break;evnt(25838);}while(r); -do{ -*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+29))= 0 ; -if(!qbevent)break;evnt(25839);}while(r); -do{ -*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+31))= 0 ; -if(!qbevent)break;evnt(25840);}while(r); -do{ -qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+112))),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25841);}while(r); -do{ -*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+4))=*__LONG_LINENUMBER; -if(!qbevent)break;evnt(25842);}while(r); -do{ -*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+8))=*__LONG_INCLEVEL; -if(!qbevent)break;evnt(25843);}while(r); -S_34665:; -if ((-(*__LONG_INCLEVEL> 0 ))||new_error){ -if(qbevent){evnt(25844);if(r)goto S_34665;} -do{ -*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+12))=((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]; -if(!qbevent)break;evnt(25845);}while(r); -do{ -qbs_set(_SUB_MANAGEVARIABLELIST_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(25846);}while(r); -do{ -qbs_set(_SUB_MANAGEVARIABLELIST_STRING_THISINCNAME,func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])])),_SUB_MANAGEVARIABLELIST_STRING_THISINCNAME->len+ 1 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25847);}while(r); -do{ -qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+56))),_SUB_MANAGEVARIABLELIST_STRING_THISINCNAME); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25848);}while(r); -}else{ -do{ -*__LONG_TOTALMAINVARIABLESCREATED=*__LONG_TOTALMAINVARIABLESCREATED+ 1 ; -if(!qbevent)break;evnt(25850);}while(r); -do{ -*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+12))= 0 ; -if(!qbevent)break;evnt(25851);}while(r); -do{ -qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+56))),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25852);}while(r); -} -do{ -*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+16))=*__LONG_SUBFUNCN; -if(!qbevent)break;evnt(25854);}while(r); -do{ -qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+64))),__STRING_SUBFUNC); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25855);}while(r); -do{ -qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+48))),FUNC_ID2FULLTYPENAME()); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25856);}while(r); -do{ -qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+40))),_SUB_MANAGEVARIABLELIST_STRING_CNAME); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25857);}while(r); -do{ -*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+20))=*_SUB_MANAGEVARIABLELIST_LONG_LOCALINDEX; -if(!qbevent)break;evnt(25858);}while(r); -S_34680:; -while((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_MANAGEVARIABLELIST_STRING_NAME,__STRING_FIX046,0)))||new_error){ -if(qbevent){evnt(25861);if(r)goto S_34680;} -do{ -*_SUB_MANAGEVARIABLELIST_LONG_X=func_instr(NULL,_SUB_MANAGEVARIABLELIST_STRING_NAME,__STRING_FIX046,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25862);}while(r); -do{ -qbs_set(_SUB_MANAGEVARIABLELIST_STRING_NAME,qbs_add(qbs_add(qbs_left(_SUB_MANAGEVARIABLELIST_STRING_NAME,*_SUB_MANAGEVARIABLELIST_LONG_X- 1 ),qbs_new_txt_len(".",1)),qbs_right(_SUB_MANAGEVARIABLELIST_STRING_NAME,_SUB_MANAGEVARIABLELIST_STRING_NAME->len-*_SUB_MANAGEVARIABLELIST_LONG_X+ 1 -__STRING_FIX046->len))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25862);}while(r); -dl_continue_3735:; -} -dl_exit_3735:; -S_34684:; -if ((qbs_cleanup(qbs_tmp_base,-(((int32)(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1)))->len)> 0 )))||new_error){ -if(qbevent){evnt(25865);if(r)goto S_34684;} -do{ -qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+32))),qbs_add(_SUB_MANAGEVARIABLELIST_STRING_NAME,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25866);}while(r); -S_34686:; -}else{ -if (qbs_cleanup(qbs_tmp_base,-(((int32)(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(520)),8,1)))->len)> 0 ))){ -if(qbevent){evnt(25867);if(r)goto S_34686;} -do{ -qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+32))),qbs_add(_SUB_MANAGEVARIABLELIST_STRING_NAME,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(520)),8,1)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25868);}while(r); -}else{ -do{ -qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+32))),_SUB_MANAGEVARIABLELIST_STRING_NAME); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25870);}while(r); -} -} -S_34691:; -if (((-(*(int16*)(((char*)__UDT_ID)+(516))> 0 )))||new_error){ -if(qbevent){evnt(25873);if(r)goto S_34691;} -do{ -*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+30))= -1 ; -if(!qbevent)break;evnt(25874);}while(r); -do{ -qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+32))),qbs_add(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+32))),qbs_new_txt_len("()",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25875);}while(r); -}else{ -do{ -*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+30))= 0 ; -if(!qbevent)break;evnt(25877);}while(r); -} -do{ -qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+72))),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25879);}while(r); -do{ -*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+24))= 0 ; -if(!qbevent)break;evnt(25880);}while(r); -do{ -qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+80))),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25881);}while(r); -do{ -qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+88))),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25882);}while(r); -do{ -qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25883);}while(r); -do{ -qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+104))),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25884);}while(r); -do{ -*__LONG_TOTALVARIABLESCREATED=*__LONG_TOTALVARIABLESCREATED+ 1 ; -if(!qbevent)break;evnt(25885);}while(r); -do{ -qbs_set(_SUB_MANAGEVARIABLELIST_STRING_TEMP,qbs_add(qbs_add(l2string( -1 ),l2string(_SUB_MANAGEVARIABLELIST_STRING_CNAME->len)),_SUB_MANAGEVARIABLELIST_STRING_CNAME)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25887);}while(r); -do{ -*_SUB_MANAGEVARIABLELIST_LONG_FOUND=func_instr(NULL,__STRING_BACKUPVARIABLEWATCHLIST,_SUB_MANAGEVARIABLELIST_STRING_TEMP,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25888);}while(r); -S_34706:; -if ((*_SUB_MANAGEVARIABLELIST_LONG_FOUND)||new_error){ -if(qbevent){evnt(25889);if(r)goto S_34706;} -do{ -*_SUB_MANAGEVARIABLELIST_LONG_J=string2l(func_mid(__STRING_BACKUPVARIABLEWATCHLIST,*_SUB_MANAGEVARIABLELIST_LONG_FOUND+_SUB_MANAGEVARIABLELIST_STRING_TEMP->len, 4 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25892);}while(r); -S_34708:; -if ((qbs_cleanup(qbs_tmp_base,((-((*(qbs**)(((char*)__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_J)-__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4],__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]))*120+88)))->len> 0 ))&(qbs_equal(__STRING_BACKUPTYPEDEFINITIONS,__STRING_TYPEDEFINITIONS)))|(-((*(qbs**)(((char*)__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_J)-__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4],__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]))*120+88)))->len== 0 ))))||new_error){ -if(qbevent){evnt(25896);if(r)goto S_34708;} -do{ -*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+29))=*(int8*)(((char*)__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_J)-__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4],__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]))*120+29)); -if(!qbevent)break;evnt(25897);}while(r); -do{ -qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+72))),*((qbs**)((char*)__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_J)-__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4],__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]))*120+72)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25898);}while(r); -do{ -qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+80))),*((qbs**)((char*)__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_J)-__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4],__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]))*120+80)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25899);}while(r); -do{ -*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+31))=*(int8*)(((char*)__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_J)-__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4],__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]))*120+31)); -if(!qbevent)break;evnt(25900);}while(r); -do{ -qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+88))),*((qbs**)((char*)__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_J)-__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4],__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]))*120+88)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25901);}while(r); -do{ -qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),*((qbs**)((char*)__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_J)-__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4],__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]))*120+96)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25902);}while(r); -do{ -qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+104))),*((qbs**)((char*)__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_J)-__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4],__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]))*120+104)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25903);}while(r); -} -} -} -sc_ec_194_end:; -goto sc_3733_end; -} -S_34720:; -if ((*_SUB_MANAGEVARIABLELIST_LONG_FOUND)||new_error){ -if(qbevent){evnt(25908);if(r)goto S_34720;} -do{ -*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+28))= -1 ; -if(!qbevent)break;evnt(25909);}while(r); -} -sc_3733_end:; -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free104.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -void SUB_ADDWARNING(int32*_SUB_ADDWARNING_LONG_WHICHLINENUMBER,int32*_SUB_ADDWARNING_LONG_INCLUDELEVEL,int32*_SUB_ADDWARNING_LONG_INCLINENUMBER,qbs*_SUB_ADDWARNING_STRING_INCFILENAME,qbs*_SUB_ADDWARNING_STRING_HEADER,qbs*_SUB_ADDWARNING_STRING_TEXT){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data105.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -*__BYTE_WARNINGSISSUED= -1 ; -if(!qbevent)break;evnt(25915);}while(r); -do{ -*__LONG_TOTALWARNINGS=*__LONG_TOTALWARNINGS+ 1 ; -if(!qbevent)break;evnt(25916);}while(r); -S_34726:; -if (((-(*__LONG_IDEMODE== 0 ))&*__BYTE_SHOWWARNINGS)||new_error){ -if(qbevent){evnt(25918);if(r)goto S_34726;} -do{ -qbs_set(_SUB_ADDWARNING_STRING_THISSOURCE,FUNC_GETFILEPATH(__STRING_CMDLINEFILE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25919);}while(r); -do{ -qbs_set(_SUB_ADDWARNING_STRING_THISSOURCE,func_mid(__STRING_CMDLINEFILE,_SUB_ADDWARNING_STRING_THISSOURCE->len+ 1 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25920);}while(r); -do{ -qbs_set(_SUB_ADDWARNING_STRING_THISINCNAME,FUNC_GETFILEPATH(_SUB_ADDWARNING_STRING_INCFILENAME)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25921);}while(r); -do{ -qbs_set(_SUB_ADDWARNING_STRING_THISINCNAME,func_mid(_SUB_ADDWARNING_STRING_INCFILENAME,_SUB_ADDWARNING_STRING_THISINCNAME->len+ 1 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25922);}while(r); -S_34731:; -if ((~(*__BYTE_MONOCHROMELOGGINGMODE))||new_error){ -if(qbevent){evnt(25924);if(r)goto S_34731;} -do{ -qbg_sub_color( 15 ,NULL,NULL,1); -if(!qbevent)break;evnt(25924);}while(r); -} -S_34734:; -if (((-(*_SUB_ADDWARNING_LONG_INCLUDELEVEL> 0 ))&(-(*_SUB_ADDWARNING_LONG_INCLINENUMBER> 0 )))||new_error){ -if(qbevent){evnt(25925);if(r)goto S_34734;} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,_SUB_ADDWARNING_STRING_THISINCNAME); -if (new_error) goto skip3745; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_set(tqbs,qbs_new_txt_len(":",1)); -if (new_error) goto skip3745; -makefit(tqbs); -qbs_print(tqbs,0); -skip3745: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25926);}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,FUNC_STR2(_SUB_ADDWARNING_LONG_INCLINENUMBER)); -if (new_error) goto skip3746; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_set(tqbs,qbs_new_txt_len(": ",2)); -if (new_error) goto skip3746; -makefit(tqbs); -qbs_print(tqbs,0); -skip3746: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25927);}while(r); -}else{ -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,_SUB_ADDWARNING_STRING_THISSOURCE); -if (new_error) goto skip3747; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_set(tqbs,qbs_new_txt_len(":",1)); -if (new_error) goto skip3747; -makefit(tqbs); -qbs_print(tqbs,0); -skip3747: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25929);}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,FUNC_STR2(_SUB_ADDWARNING_LONG_WHICHLINENUMBER)); -if (new_error) goto skip3748; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_set(tqbs,qbs_new_txt_len(": ",2)); -if (new_error) goto skip3748; -makefit(tqbs); -qbs_print(tqbs,0); -skip3748: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25930);}while(r); -} -S_34741:; -if ((~(*__BYTE_MONOCHROMELOGGINGMODE))||new_error){ -if(qbevent){evnt(25933);if(r)goto S_34741;} -do{ -qbg_sub_color( 13 ,NULL,NULL,1); -if(!qbevent)break;evnt(25933);}while(r); -} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("warning: ",9)); -if (new_error) goto skip3749; -makefit(tqbs); -qbs_print(tqbs,0); -skip3749: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25934);}while(r); -S_34745:; -if ((~(*__BYTE_MONOCHROMELOGGINGMODE))||new_error){ -if(qbevent){evnt(25935);if(r)goto S_34745;} -do{ -qbg_sub_color( 7 ,NULL,NULL,1); -if(!qbevent)break;evnt(25935);}while(r); -} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,_SUB_ADDWARNING_STRING_HEADER); -if (new_error) goto skip3750; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip3750: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25936);}while(r); -S_34749:; -if ((qbs_cleanup(qbs_tmp_base,-(_SUB_ADDWARNING_STRING_TEXT->len> 0 )))||new_error){ -if(qbevent){evnt(25938);if(r)goto S_34749;} -S_34750:; -if ((~(*__BYTE_MONOCHROMELOGGINGMODE))||new_error){ -if(qbevent){evnt(25939);if(r)goto S_34750;} -do{ -qbg_sub_color( 2 ,NULL,NULL,1); -if(!qbevent)break;evnt(25939);}while(r); -} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_space( 4 )); -if (new_error) goto skip3752; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_set(tqbs,_SUB_ADDWARNING_STRING_TEXT); -if (new_error) goto skip3752; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip3752: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25940);}while(r); -S_34754:; -if ((~(*__BYTE_MONOCHROMELOGGINGMODE))||new_error){ -if(qbevent){evnt(25941);if(r)goto S_34754;} -do{ -qbg_sub_color( 7 ,NULL,NULL,1); -if(!qbevent)break;evnt(25941);}while(r); -} -} -S_34758:; -}else{ -if (*__LONG_IDEMODE){ -if(qbevent){evnt(25943);if(r)goto S_34758;} -S_34759:; -if ((~(*__BYTE_IGNOREWARNINGS))||new_error){ -if(qbevent){evnt(25944);if(r)goto S_34759;} -S_34760:; -if ((-(*_SUB_ADDWARNING_LONG_WHICHLINENUMBER>*__LONG_MAXLINENUMBER))||new_error){ -if(qbevent){evnt(25945);if(r)goto S_34760;} -do{ -*__LONG_MAXLINENUMBER=*_SUB_ADDWARNING_LONG_WHICHLINENUMBER; -if(!qbevent)break;evnt(25945);}while(r); -} -S_34763:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_LASTWARNINGHEADER,_SUB_ADDWARNING_STRING_HEADER)))||new_error){ -if(qbevent){evnt(25946);if(r)goto S_34763;} -do{ -qbs_set(__STRING_LASTWARNINGHEADER,_SUB_ADDWARNING_STRING_HEADER); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25947);}while(r); -do{ -return_point[next_return_point++]=6; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_INCREASEWARNINGCOUNT; -RETURN_6:; -if(!qbevent)break;evnt(25948);}while(r); -do{ -tmp_long=array_check((*__LONG_WARNINGLISTITEMS)-__ARRAY_STRING_WARNING[4],__ARRAY_STRING_WARNING[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_WARNING[0]))[tmp_long])),_SUB_ADDWARNING_STRING_HEADER); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25949);}while(r); -do{ -tmp_long=array_check((*__LONG_WARNINGLISTITEMS)-__ARRAY_LONG_WARNINGLINES[4],__ARRAY_LONG_WARNINGLINES[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_WARNINGLINES[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(25950);}while(r); -} -do{ -return_point[next_return_point++]=7; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_INCREASEWARNINGCOUNT; -RETURN_7:; -if(!qbevent)break;evnt(25953);}while(r); -do{ -tmp_long=array_check((*__LONG_WARNINGLISTITEMS)-__ARRAY_STRING_WARNING[4],__ARRAY_STRING_WARNING[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_WARNING[0]))[tmp_long])),_SUB_ADDWARNING_STRING_TEXT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25954);}while(r); -do{ -tmp_long=array_check((*__LONG_WARNINGLISTITEMS)-__ARRAY_LONG_WARNINGLINES[4],__ARRAY_LONG_WARNINGLINES[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_WARNINGLINES[0]))[tmp_long]=*_SUB_ADDWARNING_LONG_WHICHLINENUMBER; -if(!qbevent)break;evnt(25955);}while(r); -S_34772:; -if ((-(*_SUB_ADDWARNING_LONG_INCLUDELEVEL> 0 ))||new_error){ -if(qbevent){evnt(25956);if(r)goto S_34772;} -do{ -qbs_set(_SUB_ADDWARNING_STRING_THISINCNAME,FUNC_GETFILEPATH(_SUB_ADDWARNING_STRING_INCFILENAME)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25957);}while(r); -do{ -qbs_set(_SUB_ADDWARNING_STRING_THISINCNAME,func_mid(_SUB_ADDWARNING_STRING_INCFILENAME,_SUB_ADDWARNING_STRING_THISINCNAME->len+ 1 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25958);}while(r); -do{ -tmp_long=array_check((*__LONG_WARNINGLISTITEMS)-__ARRAY_LONG_WARNINGINCLINES[4],__ARRAY_LONG_WARNINGINCLINES[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_WARNINGINCLINES[0]))[tmp_long]=*_SUB_ADDWARNING_LONG_INCLINENUMBER; -if(!qbevent)break;evnt(25959);}while(r); -do{ -tmp_long=array_check((*__LONG_WARNINGLISTITEMS)-__ARRAY_STRING_WARNINGINCFILES[4],__ARRAY_STRING_WARNINGINCFILES[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_WARNINGINCFILES[0]))[tmp_long])),_SUB_ADDWARNING_STRING_THISINCNAME); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25960);}while(r); -}else{ -do{ -tmp_long=array_check((*__LONG_WARNINGLISTITEMS)-__ARRAY_LONG_WARNINGINCLINES[4],__ARRAY_LONG_WARNINGINCLINES[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_WARNINGINCLINES[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(25962);}while(r); -do{ -tmp_long=array_check((*__LONG_WARNINGLISTITEMS)-__ARRAY_STRING_WARNINGINCFILES[4],__ARRAY_STRING_WARNINGINCFILES[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_WARNINGINCFILES[0]))[tmp_long])),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25963);}while(r); -} -} -} -} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(25967);}while(r); -LABEL_INCREASEWARNINGCOUNT:; -if(qbevent){evnt(25968);r=0;} -do{ -*__LONG_WARNINGLISTITEMS=*__LONG_WARNINGLISTITEMS+ 1 ; -if(!qbevent)break;evnt(25969);}while(r); -S_34785:; -if ((qbs_cleanup(qbs_tmp_base,-(*__LONG_WARNINGLISTITEMS>func_ubound(__ARRAY_STRING_WARNING,1,1))))||new_error){ -if(qbevent){evnt(25970);if(r)goto S_34785;} -do{ +} +if(!qbevent)break;evnt(25834);}while(r); +} +do{ +*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120))=*__LONG_CURRENTID; +if(!qbevent)break;evnt(25837);}while(r); +do{ +*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+28))= 0 ; +if(!qbevent)break;evnt(25838);}while(r); +do{ +*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+29))= 0 ; +if(!qbevent)break;evnt(25839);}while(r); +do{ +*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+31))= 0 ; +if(!qbevent)break;evnt(25840);}while(r); +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+112))),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25841);}while(r); +do{ +*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+4))=*__LONG_LINENUMBER; +if(!qbevent)break;evnt(25842);}while(r); +do{ +*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+8))=*__LONG_INCLEVEL; +if(!qbevent)break;evnt(25843);}while(r); +S_34665:; +if ((-(*__LONG_INCLEVEL> 0 ))||new_error){ +if(qbevent){evnt(25844);if(r)goto S_34665;} +do{ +*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+12))=((int32*)(__ARRAY_LONG_INCLINENUMBER[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_LONG_INCLINENUMBER[4],__ARRAY_LONG_INCLINENUMBER[5])]; +if(!qbevent)break;evnt(25845);}while(r); +do{ +qbs_set(_SUB_MANAGEVARIABLELIST_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(25846);}while(r); +do{ +qbs_set(_SUB_MANAGEVARIABLELIST_STRING_THISINCNAME,func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_INCNAME[0]))[array_check((*__LONG_INCLEVEL)-__ARRAY_STRING_INCNAME[4],__ARRAY_STRING_INCNAME[5])])),_SUB_MANAGEVARIABLELIST_STRING_THISINCNAME->len+ 1 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25847);}while(r); +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+56))),_SUB_MANAGEVARIABLELIST_STRING_THISINCNAME); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25848);}while(r); +}else{ +do{ +*__LONG_TOTALMAINVARIABLESCREATED=*__LONG_TOTALMAINVARIABLESCREATED+ 1 ; +if(!qbevent)break;evnt(25850);}while(r); +do{ +*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+12))= 0 ; +if(!qbevent)break;evnt(25851);}while(r); +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+56))),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25852);}while(r); +} +do{ +*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+16))=*__LONG_SUBFUNCN; +if(!qbevent)break;evnt(25854);}while(r); +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+64))),__STRING_SUBFUNC); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25855);}while(r); +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+48))),FUNC_ID2FULLTYPENAME()); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25856);}while(r); +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+40))),_SUB_MANAGEVARIABLELIST_STRING_CNAME); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25857);}while(r); +do{ +*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+20))=*_SUB_MANAGEVARIABLELIST_LONG_LOCALINDEX; +if(!qbevent)break;evnt(25858);}while(r); +S_34680:; +while((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_MANAGEVARIABLELIST_STRING_NAME,__STRING_FIX046,0)))||new_error){ +if(qbevent){evnt(25861);if(r)goto S_34680;} +do{ +*_SUB_MANAGEVARIABLELIST_LONG_X=func_instr(NULL,_SUB_MANAGEVARIABLELIST_STRING_NAME,__STRING_FIX046,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25862);}while(r); +do{ +qbs_set(_SUB_MANAGEVARIABLELIST_STRING_NAME,qbs_add(qbs_add(qbs_left(_SUB_MANAGEVARIABLELIST_STRING_NAME,*_SUB_MANAGEVARIABLELIST_LONG_X- 1 ),qbs_new_txt_len(".",1)),qbs_right(_SUB_MANAGEVARIABLELIST_STRING_NAME,_SUB_MANAGEVARIABLELIST_STRING_NAME->len-*_SUB_MANAGEVARIABLELIST_LONG_X+ 1 -__STRING_FIX046->len))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25862);}while(r); +dl_continue_3735:; +} +dl_exit_3735:; +S_34684:; +if ((qbs_cleanup(qbs_tmp_base,-(((int32)(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1)))->len)> 0 )))||new_error){ +if(qbevent){evnt(25865);if(r)goto S_34684;} +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+32))),qbs_add(_SUB_MANAGEVARIABLELIST_STRING_NAME,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(528)),8,1)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25866);}while(r); +S_34686:; +}else{ +if (qbs_cleanup(qbs_tmp_base,-(((int32)(qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(520)),8,1)))->len)> 0 ))){ +if(qbevent){evnt(25867);if(r)goto S_34686;} +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+32))),qbs_add(_SUB_MANAGEVARIABLELIST_STRING_NAME,qbs_rtrim(qbs_new_fixed((((uint8*)__UDT_ID)+(520)),8,1)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25868);}while(r); +}else{ +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+32))),_SUB_MANAGEVARIABLELIST_STRING_NAME); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25870);}while(r); +} +} +S_34691:; +if (((-(*(int16*)(((char*)__UDT_ID)+(516))> 0 )))||new_error){ +if(qbevent){evnt(25873);if(r)goto S_34691;} +do{ +*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+30))= -1 ; +if(!qbevent)break;evnt(25874);}while(r); +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+32))),qbs_add(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+32))),qbs_new_txt_len("()",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25875);}while(r); +}else{ +do{ +*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+30))= 0 ; +if(!qbevent)break;evnt(25877);}while(r); +} +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+72))),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25879);}while(r); +do{ +*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+24))= 0 ; +if(!qbevent)break;evnt(25880);}while(r); +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+80))),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25881);}while(r); +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+88))),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25882);}while(r); +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25883);}while(r); +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+104))),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25884);}while(r); +do{ +*__LONG_TOTALVARIABLESCREATED=*__LONG_TOTALVARIABLESCREATED+ 1 ; +if(!qbevent)break;evnt(25885);}while(r); +do{ +qbs_set(_SUB_MANAGEVARIABLELIST_STRING_TEMP,qbs_add(qbs_add(l2string( -1 ),l2string(_SUB_MANAGEVARIABLELIST_STRING_CNAME->len)),_SUB_MANAGEVARIABLELIST_STRING_CNAME)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25887);}while(r); +do{ +*_SUB_MANAGEVARIABLELIST_LONG_FOUND=func_instr(NULL,__STRING_BACKUPVARIABLEWATCHLIST,_SUB_MANAGEVARIABLELIST_STRING_TEMP,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25888);}while(r); +S_34706:; +if ((*_SUB_MANAGEVARIABLELIST_LONG_FOUND)||new_error){ +if(qbevent){evnt(25889);if(r)goto S_34706;} +do{ +*_SUB_MANAGEVARIABLELIST_LONG_J=string2l(func_mid(__STRING_BACKUPVARIABLEWATCHLIST,*_SUB_MANAGEVARIABLELIST_LONG_FOUND+_SUB_MANAGEVARIABLELIST_STRING_TEMP->len, 4 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25892);}while(r); +S_34708:; +if ((qbs_cleanup(qbs_tmp_base,((-((*(qbs**)(((char*)__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_J)-__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4],__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]))*120+88)))->len> 0 ))&(qbs_equal(__STRING_BACKUPTYPEDEFINITIONS,__STRING_TYPEDEFINITIONS)))|(-((*(qbs**)(((char*)__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_J)-__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4],__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]))*120+88)))->len== 0 ))))||new_error){ +if(qbevent){evnt(25896);if(r)goto S_34708;} +do{ +*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+29))=*(int8*)(((char*)__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_J)-__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4],__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]))*120+29)); +if(!qbevent)break;evnt(25897);}while(r); +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+72))),*((qbs**)((char*)__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_J)-__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4],__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]))*120+72)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25898);}while(r); +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+80))),*((qbs**)((char*)__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_J)-__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4],__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]))*120+80)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25899);}while(r); +do{ +*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+31))=*(int8*)(((char*)__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_J)-__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4],__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]))*120+31)); +if(!qbevent)break;evnt(25900);}while(r); +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+88))),*((qbs**)((char*)__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_J)-__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4],__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]))*120+88)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25901);}while(r); +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),*((qbs**)((char*)__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_J)-__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4],__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]))*120+96)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25902);}while(r); +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+104))),*((qbs**)((char*)__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_J)-__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4],__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]))*120+104)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25903);}while(r); +} +} +} +sc_ec_194_end:; +goto sc_3733_end; +} +S_34720:; +if ((*_SUB_MANAGEVARIABLELIST_LONG_FOUND)||new_error){ +if(qbevent){evnt(25908);if(r)goto S_34720;} +do{ +*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_MANAGEVARIABLELIST_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+28))= -1 ; +if(!qbevent)break;evnt(25909);}while(r); +} +sc_3733_end:; +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free104.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +void SUB_ADDWARNING(int32*_SUB_ADDWARNING_LONG_WHICHLINENUMBER,int32*_SUB_ADDWARNING_LONG_INCLUDELEVEL,int32*_SUB_ADDWARNING_LONG_INCLINENUMBER,qbs*_SUB_ADDWARNING_STRING_INCFILENAME,qbs*_SUB_ADDWARNING_STRING_HEADER,qbs*_SUB_ADDWARNING_STRING_TEXT){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data105.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +*__BYTE_WARNINGSISSUED= -1 ; +if(!qbevent)break;evnt(25915);}while(r); +do{ +*__LONG_TOTALWARNINGS=*__LONG_TOTALWARNINGS+ 1 ; +if(!qbevent)break;evnt(25916);}while(r); +S_34726:; +if (((-(*__LONG_IDEMODE== 0 ))&*__BYTE_SHOWWARNINGS)||new_error){ +if(qbevent){evnt(25918);if(r)goto S_34726;} +do{ +qbs_set(_SUB_ADDWARNING_STRING_THISSOURCE,FUNC_GETFILEPATH(__STRING_CMDLINEFILE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25919);}while(r); +do{ +qbs_set(_SUB_ADDWARNING_STRING_THISSOURCE,func_mid(__STRING_CMDLINEFILE,_SUB_ADDWARNING_STRING_THISSOURCE->len+ 1 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25920);}while(r); +do{ +qbs_set(_SUB_ADDWARNING_STRING_THISINCNAME,FUNC_GETFILEPATH(_SUB_ADDWARNING_STRING_INCFILENAME)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25921);}while(r); +do{ +qbs_set(_SUB_ADDWARNING_STRING_THISINCNAME,func_mid(_SUB_ADDWARNING_STRING_INCFILENAME,_SUB_ADDWARNING_STRING_THISINCNAME->len+ 1 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25922);}while(r); +S_34731:; +if ((~(*__BYTE_MONOCHROMELOGGINGMODE))||new_error){ +if(qbevent){evnt(25924);if(r)goto S_34731;} +do{ +qbg_sub_color( 15 ,NULL,NULL,1); +if(!qbevent)break;evnt(25924);}while(r); +} +S_34734:; +if (((-(*_SUB_ADDWARNING_LONG_INCLUDELEVEL> 0 ))&(-(*_SUB_ADDWARNING_LONG_INCLINENUMBER> 0 )))||new_error){ +if(qbevent){evnt(25925);if(r)goto S_34734;} +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,_SUB_ADDWARNING_STRING_THISINCNAME); +if (new_error) goto skip3745; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_set(tqbs,qbs_new_txt_len(":",1)); +if (new_error) goto skip3745; +makefit(tqbs); +qbs_print(tqbs,0); +skip3745: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25926);}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,FUNC_STR2(_SUB_ADDWARNING_LONG_INCLINENUMBER)); +if (new_error) goto skip3746; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_set(tqbs,qbs_new_txt_len(": ",2)); +if (new_error) goto skip3746; +makefit(tqbs); +qbs_print(tqbs,0); +skip3746: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25927);}while(r); +}else{ +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,_SUB_ADDWARNING_STRING_THISSOURCE); +if (new_error) goto skip3747; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_set(tqbs,qbs_new_txt_len(":",1)); +if (new_error) goto skip3747; +makefit(tqbs); +qbs_print(tqbs,0); +skip3747: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25929);}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,FUNC_STR2(_SUB_ADDWARNING_LONG_WHICHLINENUMBER)); +if (new_error) goto skip3748; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_set(tqbs,qbs_new_txt_len(": ",2)); +if (new_error) goto skip3748; +makefit(tqbs); +qbs_print(tqbs,0); +skip3748: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25930);}while(r); +} +S_34741:; +if ((~(*__BYTE_MONOCHROMELOGGINGMODE))||new_error){ +if(qbevent){evnt(25933);if(r)goto S_34741;} +do{ +qbg_sub_color( 13 ,NULL,NULL,1); +if(!qbevent)break;evnt(25933);}while(r); +} +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("warning: ",9)); +if (new_error) goto skip3749; +makefit(tqbs); +qbs_print(tqbs,0); +skip3749: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25934);}while(r); +S_34745:; +if ((~(*__BYTE_MONOCHROMELOGGINGMODE))||new_error){ +if(qbevent){evnt(25935);if(r)goto S_34745;} +do{ +qbg_sub_color( 7 ,NULL,NULL,1); +if(!qbevent)break;evnt(25935);}while(r); +} +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,_SUB_ADDWARNING_STRING_HEADER); +if (new_error) goto skip3750; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip3750: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25936);}while(r); +S_34749:; +if ((qbs_cleanup(qbs_tmp_base,-(_SUB_ADDWARNING_STRING_TEXT->len> 0 )))||new_error){ +if(qbevent){evnt(25938);if(r)goto S_34749;} +S_34750:; +if ((~(*__BYTE_MONOCHROMELOGGINGMODE))||new_error){ +if(qbevent){evnt(25939);if(r)goto S_34750;} +do{ +qbg_sub_color( 2 ,NULL,NULL,1); +if(!qbevent)break;evnt(25939);}while(r); +} +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,func_space( 4 )); +if (new_error) goto skip3752; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_set(tqbs,_SUB_ADDWARNING_STRING_TEXT); +if (new_error) goto skip3752; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip3752: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25940);}while(r); +S_34754:; +if ((~(*__BYTE_MONOCHROMELOGGINGMODE))||new_error){ +if(qbevent){evnt(25941);if(r)goto S_34754;} +do{ +qbg_sub_color( 7 ,NULL,NULL,1); +if(!qbevent)break;evnt(25941);}while(r); +} +} +S_34758:; +}else{ +if (*__LONG_IDEMODE){ +if(qbevent){evnt(25943);if(r)goto S_34758;} +S_34759:; +if ((~(*__BYTE_IGNOREWARNINGS))||new_error){ +if(qbevent){evnt(25944);if(r)goto S_34759;} +S_34760:; +if ((-(*_SUB_ADDWARNING_LONG_WHICHLINENUMBER>*__LONG_MAXLINENUMBER))||new_error){ +if(qbevent){evnt(25945);if(r)goto S_34760;} +do{ +*__LONG_MAXLINENUMBER=*_SUB_ADDWARNING_LONG_WHICHLINENUMBER; +if(!qbevent)break;evnt(25945);}while(r); +} +S_34763:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_LASTWARNINGHEADER,_SUB_ADDWARNING_STRING_HEADER)))||new_error){ +if(qbevent){evnt(25946);if(r)goto S_34763;} +do{ +qbs_set(__STRING_LASTWARNINGHEADER,_SUB_ADDWARNING_STRING_HEADER); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25947);}while(r); +do{ +return_point[next_return_point++]=6; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_INCREASEWARNINGCOUNT; +RETURN_6:; +if(!qbevent)break;evnt(25948);}while(r); +do{ +tmp_long=array_check((*__LONG_WARNINGLISTITEMS)-__ARRAY_STRING_WARNING[4],__ARRAY_STRING_WARNING[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_WARNING[0]))[tmp_long])),_SUB_ADDWARNING_STRING_HEADER); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25949);}while(r); +do{ +tmp_long=array_check((*__LONG_WARNINGLISTITEMS)-__ARRAY_LONG_WARNINGLINES[4],__ARRAY_LONG_WARNINGLINES[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_WARNINGLINES[0]))[tmp_long]= 0 ; +if(!qbevent)break;evnt(25950);}while(r); +} +do{ +return_point[next_return_point++]=7; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_INCREASEWARNINGCOUNT; +RETURN_7:; +if(!qbevent)break;evnt(25953);}while(r); +do{ +tmp_long=array_check((*__LONG_WARNINGLISTITEMS)-__ARRAY_STRING_WARNING[4],__ARRAY_STRING_WARNING[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_WARNING[0]))[tmp_long])),_SUB_ADDWARNING_STRING_TEXT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25954);}while(r); +do{ +tmp_long=array_check((*__LONG_WARNINGLISTITEMS)-__ARRAY_LONG_WARNINGLINES[4],__ARRAY_LONG_WARNINGLINES[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_WARNINGLINES[0]))[tmp_long]=*_SUB_ADDWARNING_LONG_WHICHLINENUMBER; +if(!qbevent)break;evnt(25955);}while(r); +S_34772:; +if ((-(*_SUB_ADDWARNING_LONG_INCLUDELEVEL> 0 ))||new_error){ +if(qbevent){evnt(25956);if(r)goto S_34772;} +do{ +qbs_set(_SUB_ADDWARNING_STRING_THISINCNAME,FUNC_GETFILEPATH(_SUB_ADDWARNING_STRING_INCFILENAME)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25957);}while(r); +do{ +qbs_set(_SUB_ADDWARNING_STRING_THISINCNAME,func_mid(_SUB_ADDWARNING_STRING_INCFILENAME,_SUB_ADDWARNING_STRING_THISINCNAME->len+ 1 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25958);}while(r); +do{ +tmp_long=array_check((*__LONG_WARNINGLISTITEMS)-__ARRAY_LONG_WARNINGINCLINES[4],__ARRAY_LONG_WARNINGINCLINES[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_WARNINGINCLINES[0]))[tmp_long]=*_SUB_ADDWARNING_LONG_INCLINENUMBER; +if(!qbevent)break;evnt(25959);}while(r); +do{ +tmp_long=array_check((*__LONG_WARNINGLISTITEMS)-__ARRAY_STRING_WARNINGINCFILES[4],__ARRAY_STRING_WARNINGINCFILES[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_WARNINGINCFILES[0]))[tmp_long])),_SUB_ADDWARNING_STRING_THISINCNAME); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25960);}while(r); +}else{ +do{ +tmp_long=array_check((*__LONG_WARNINGLISTITEMS)-__ARRAY_LONG_WARNINGINCLINES[4],__ARRAY_LONG_WARNINGINCLINES[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_WARNINGINCLINES[0]))[tmp_long]= 0 ; +if(!qbevent)break;evnt(25962);}while(r); +do{ +tmp_long=array_check((*__LONG_WARNINGLISTITEMS)-__ARRAY_STRING_WARNINGINCFILES[4],__ARRAY_STRING_WARNINGINCFILES[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_WARNINGINCFILES[0]))[tmp_long])),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25963);}while(r); +} +} +} +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(25967);}while(r); +LABEL_INCREASEWARNINGCOUNT:; +if(qbevent){evnt(25968);r=0;} +do{ +*__LONG_WARNINGLISTITEMS=*__LONG_WARNINGLISTITEMS+ 1 ; +if(!qbevent)break;evnt(25969);}while(r); +S_34785:; +if ((qbs_cleanup(qbs_tmp_base,-(*__LONG_WARNINGLISTITEMS>func_ubound(__ARRAY_STRING_WARNING,1,1))))||new_error){ +if(qbevent){evnt(25970);if(r)goto S_34785;} +do{ if (__ARRAY_STRING_WARNING[2]&2){ error(10); @@ -115517,9 +115517,9 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_WARNING[0]))[tmp_long]=(uint64)qbs_n while(tmp_long--) ((uint64*)(__ARRAY_STRING_WARNING[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -} -if(!qbevent)break;evnt(25971);}while(r); -do{ +} +if(!qbevent)break;evnt(25971);}while(r); +do{ if (__ARRAY_LONG_WARNINGLINES[2]&2){ error(10); @@ -115557,9 +115557,9 @@ if (!__ARRAY_LONG_WARNINGLINES[0]) error(257); } } __ARRAY_LONG_WARNINGLINES[2]|=1; -} -if(!qbevent)break;evnt(25972);}while(r); -do{ +} +if(!qbevent)break;evnt(25972);}while(r); +do{ if (__ARRAY_LONG_WARNINGINCLINES[2]&2){ error(10); @@ -115597,9 +115597,9 @@ if (!__ARRAY_LONG_WARNINGINCLINES[0]) error(257); } } __ARRAY_LONG_WARNINGINCLINES[2]|=1; -} -if(!qbevent)break;evnt(25973);}while(r); -do{ +} +if(!qbevent)break;evnt(25973);}while(r); +do{ if (__ARRAY_STRING_WARNINGINCFILES[2]&2){ error(10); @@ -115642,176 +115642,176 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_WARNINGINCFILES[0]))[tmp_long]=(uint while(tmp_long--) ((uint64*)(__ARRAY_STRING_WARNINGINCFILES[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -} -if(!qbevent)break;evnt(25974);}while(r); -} -do{ -#include "ret105.txt" -if(!qbevent)break;evnt(25976);}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free105.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -qbs* FUNC_SCASE(qbs*_FUNC_SCASE_STRING_T){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data106.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -S_34792:; -if ((*__BYTE_IDEAUTOLAYOUTKWCAPITALS)||new_error){ -if(qbevent){evnt(25980);if(r)goto S_34792;} -do{ -qbs_set(_FUNC_SCASE_STRING_SCASE,qbs_ucase(_FUNC_SCASE_STRING_T)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25980);}while(r); -}else{ -do{ -qbs_set(_FUNC_SCASE_STRING_SCASE,_FUNC_SCASE_STRING_T); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25980);}while(r); -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free106.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_SCASE_STRING_SCASE);return _FUNC_SCASE_STRING_SCASE; -} -qbs* FUNC_SCASE2(qbs*_FUNC_SCASE2_STRING_T){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data107.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -qbs_set(_FUNC_SCASE2_STRING_SEPARATOR,__STRING1_SP); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25984);}while(r); -S_34798:; -if ((*__BYTE_IDEAUTOLAYOUTKWCAPITALS)||new_error){ -if(qbevent){evnt(25985);if(r)goto S_34798;} -do{ -qbs_set(_FUNC_SCASE2_STRING_SCASE2,qbs_ucase(_FUNC_SCASE2_STRING_T)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25986);}while(r); -}else{ -do{ -*_FUNC_SCASE2_LONG_NEWWORD= -1 ; -if(!qbevent)break;evnt(25988);}while(r); -do{ -qbs_set(_FUNC_SCASE2_STRING_TEMP,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25989);}while(r); -S_34803:; -fornext_value3757= 1 ; -fornext_finalvalue3757=_FUNC_SCASE2_STRING_T->len; -fornext_step3757= 1 ; -if (fornext_step3757<0) fornext_step_negative3757=1; else fornext_step_negative3757=0; -if (new_error) goto fornext_error3757; -goto fornext_entrylabel3757; -while(1){ -fornext_value3757=fornext_step3757+(*_FUNC_SCASE2_LONG_I); -fornext_entrylabel3757: -*_FUNC_SCASE2_LONG_I=fornext_value3757; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative3757){ -if (fornext_value3757fornext_finalvalue3757) break; -} -fornext_error3757:; -if(qbevent){evnt(25990);if(r)goto S_34803;} -do{ -qbs_set(_FUNC_SCASE2_STRING_S,func_mid(_FUNC_SCASE2_STRING_T,*_FUNC_SCASE2_LONG_I, 1 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25991);}while(r); -S_34805:; -if ((*_FUNC_SCASE2_LONG_NEWWORD)||new_error){ -if(qbevent){evnt(25992);if(r)goto S_34805;} -S_34806:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_SCASE2_STRING_S,qbs_new_txt_len("_",1)))|(qbs_equal(_FUNC_SCASE2_STRING_S,_FUNC_SCASE2_STRING_SEPARATOR))))||new_error){ -if(qbevent){evnt(25993);if(r)goto S_34806;} -do{ -qbs_set(_FUNC_SCASE2_STRING_TEMP,qbs_add(_FUNC_SCASE2_STRING_TEMP,_FUNC_SCASE2_STRING_S)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25994);}while(r); -}else{ -do{ -qbs_set(_FUNC_SCASE2_STRING_TEMP,qbs_add(_FUNC_SCASE2_STRING_TEMP,qbs_ucase(_FUNC_SCASE2_STRING_S))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(25996);}while(r); -do{ -*_FUNC_SCASE2_LONG_NEWWORD= 0 ; -if(!qbevent)break;evnt(25997);}while(r); -} -}else{ -S_34813:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_SCASE2_STRING_S,_FUNC_SCASE2_STRING_SEPARATOR)))||new_error){ -if(qbevent){evnt(26000);if(r)goto S_34813;} -do{ -qbs_set(_FUNC_SCASE2_STRING_TEMP,qbs_add(_FUNC_SCASE2_STRING_TEMP,_FUNC_SCASE2_STRING_SEPARATOR)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26001);}while(r); -do{ -*_FUNC_SCASE2_LONG_NEWWORD= -1 ; -if(!qbevent)break;evnt(26002);}while(r); -}else{ -do{ -qbs_set(_FUNC_SCASE2_STRING_TEMP,qbs_add(_FUNC_SCASE2_STRING_TEMP,qbs_lcase(_FUNC_SCASE2_STRING_S))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26004);}while(r); -} -} -fornext_continue_3756:; -} -fornext_exit_3756:; -do{ -qbs_set(_FUNC_SCASE2_STRING_SCASE2,_FUNC_SCASE2_STRING_TEMP); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26008);}while(r); -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free107.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_SCASE2_STRING_SCASE2);return _FUNC_SCASE2_STRING_SCASE2; -} -void SUB_INCREASEUDTARRAYS(){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data108.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -*_SUB_INCREASEUDTARRAYS_LONG_X=func_ubound(__ARRAY_STRING256_UDTXNAME,1,1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26013);}while(r); -do{ +} +if(!qbevent)break;evnt(25974);}while(r); +} +do{ +#include "ret105.txt" +if(!qbevent)break;evnt(25976);}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free105.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +qbs* FUNC_SCASE(qbs*_FUNC_SCASE_STRING_T){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data106.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +S_34792:; +if ((*__BYTE_IDEAUTOLAYOUTKWCAPITALS)||new_error){ +if(qbevent){evnt(25980);if(r)goto S_34792;} +do{ +qbs_set(_FUNC_SCASE_STRING_SCASE,qbs_ucase(_FUNC_SCASE_STRING_T)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25980);}while(r); +}else{ +do{ +qbs_set(_FUNC_SCASE_STRING_SCASE,_FUNC_SCASE_STRING_T); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25980);}while(r); +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free106.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_SCASE_STRING_SCASE);return _FUNC_SCASE_STRING_SCASE; +} +qbs* FUNC_SCASE2(qbs*_FUNC_SCASE2_STRING_T){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data107.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +qbs_set(_FUNC_SCASE2_STRING_SEPARATOR,__STRING1_SP); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25984);}while(r); +S_34798:; +if ((*__BYTE_IDEAUTOLAYOUTKWCAPITALS)||new_error){ +if(qbevent){evnt(25985);if(r)goto S_34798;} +do{ +qbs_set(_FUNC_SCASE2_STRING_SCASE2,qbs_ucase(_FUNC_SCASE2_STRING_T)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25986);}while(r); +}else{ +do{ +*_FUNC_SCASE2_LONG_NEWWORD= -1 ; +if(!qbevent)break;evnt(25988);}while(r); +do{ +qbs_set(_FUNC_SCASE2_STRING_TEMP,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25989);}while(r); +S_34803:; +fornext_value3757= 1 ; +fornext_finalvalue3757=_FUNC_SCASE2_STRING_T->len; +fornext_step3757= 1 ; +if (fornext_step3757<0) fornext_step_negative3757=1; else fornext_step_negative3757=0; +if (new_error) goto fornext_error3757; +goto fornext_entrylabel3757; +while(1){ +fornext_value3757=fornext_step3757+(*_FUNC_SCASE2_LONG_I); +fornext_entrylabel3757: +*_FUNC_SCASE2_LONG_I=fornext_value3757; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative3757){ +if (fornext_value3757fornext_finalvalue3757) break; +} +fornext_error3757:; +if(qbevent){evnt(25990);if(r)goto S_34803;} +do{ +qbs_set(_FUNC_SCASE2_STRING_S,func_mid(_FUNC_SCASE2_STRING_T,*_FUNC_SCASE2_LONG_I, 1 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25991);}while(r); +S_34805:; +if ((*_FUNC_SCASE2_LONG_NEWWORD)||new_error){ +if(qbevent){evnt(25992);if(r)goto S_34805;} +S_34806:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_SCASE2_STRING_S,qbs_new_txt_len("_",1)))|(qbs_equal(_FUNC_SCASE2_STRING_S,_FUNC_SCASE2_STRING_SEPARATOR))))||new_error){ +if(qbevent){evnt(25993);if(r)goto S_34806;} +do{ +qbs_set(_FUNC_SCASE2_STRING_TEMP,qbs_add(_FUNC_SCASE2_STRING_TEMP,_FUNC_SCASE2_STRING_S)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25994);}while(r); +}else{ +do{ +qbs_set(_FUNC_SCASE2_STRING_TEMP,qbs_add(_FUNC_SCASE2_STRING_TEMP,qbs_ucase(_FUNC_SCASE2_STRING_S))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(25996);}while(r); +do{ +*_FUNC_SCASE2_LONG_NEWWORD= 0 ; +if(!qbevent)break;evnt(25997);}while(r); +} +}else{ +S_34813:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_SCASE2_STRING_S,_FUNC_SCASE2_STRING_SEPARATOR)))||new_error){ +if(qbevent){evnt(26000);if(r)goto S_34813;} +do{ +qbs_set(_FUNC_SCASE2_STRING_TEMP,qbs_add(_FUNC_SCASE2_STRING_TEMP,_FUNC_SCASE2_STRING_SEPARATOR)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26001);}while(r); +do{ +*_FUNC_SCASE2_LONG_NEWWORD= -1 ; +if(!qbevent)break;evnt(26002);}while(r); +}else{ +do{ +qbs_set(_FUNC_SCASE2_STRING_TEMP,qbs_add(_FUNC_SCASE2_STRING_TEMP,qbs_lcase(_FUNC_SCASE2_STRING_S))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26004);}while(r); +} +} +fornext_continue_3756:; +} +fornext_exit_3756:; +do{ +qbs_set(_FUNC_SCASE2_STRING_SCASE2,_FUNC_SCASE2_STRING_TEMP); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26008);}while(r); +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free107.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_SCASE2_STRING_SCASE2);return _FUNC_SCASE2_STRING_SCASE2; +} +void SUB_INCREASEUDTARRAYS(){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data108.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +*_SUB_INCREASEUDTARRAYS_LONG_X=func_ubound(__ARRAY_STRING256_UDTXNAME,1,1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26013);}while(r); +do{ if (__ARRAY_STRING256_UDTXNAME[2]&2){ error(10); @@ -115849,9 +115849,9 @@ if (!__ARRAY_STRING256_UDTXNAME[0]) error(257); } } __ARRAY_STRING256_UDTXNAME[2]|=1; -} -if(!qbevent)break;evnt(26014);}while(r); -do{ +} +if(!qbevent)break;evnt(26014);}while(r); +do{ if (__ARRAY_STRING256_UDTXCNAME[2]&2){ error(10); @@ -115889,9 +115889,9 @@ if (!__ARRAY_STRING256_UDTXCNAME[0]) error(257); } } __ARRAY_STRING256_UDTXCNAME[2]|=1; -} -if(!qbevent)break;evnt(26015);}while(r); -do{ +} +if(!qbevent)break;evnt(26015);}while(r); +do{ if (__ARRAY_LONG_UDTXSIZE[2]&2){ error(10); @@ -115929,9 +115929,9 @@ if (!__ARRAY_LONG_UDTXSIZE[0]) error(257); } } __ARRAY_LONG_UDTXSIZE[2]|=1; -} -if(!qbevent)break;evnt(26016);}while(r); -do{ +} +if(!qbevent)break;evnt(26016);}while(r); +do{ if (__ARRAY_INTEGER_UDTXBYTEALIGN[2]&2){ error(10); @@ -115969,9 +115969,9 @@ if (!__ARRAY_INTEGER_UDTXBYTEALIGN[0]) error(257); } } __ARRAY_INTEGER_UDTXBYTEALIGN[2]|=1; -} -if(!qbevent)break;evnt(26017);}while(r); -do{ +} +if(!qbevent)break;evnt(26017);}while(r); +do{ if (__ARRAY_LONG_UDTXNEXT[2]&2){ error(10); @@ -116009,9 +116009,9 @@ if (!__ARRAY_LONG_UDTXNEXT[0]) error(257); } } __ARRAY_LONG_UDTXNEXT[2]|=1; -} -if(!qbevent)break;evnt(26018);}while(r); -do{ +} +if(!qbevent)break;evnt(26018);}while(r); +do{ if (__ARRAY_INTEGER_UDTXVARIABLE[2]&2){ error(10); @@ -116049,9 +116049,9 @@ if (!__ARRAY_INTEGER_UDTXVARIABLE[0]) error(257); } } __ARRAY_INTEGER_UDTXVARIABLE[2]|=1; -} -if(!qbevent)break;evnt(26019);}while(r); -do{ +} +if(!qbevent)break;evnt(26019);}while(r); +do{ if (__ARRAY_STRING256_UDTENAME[2]&2){ error(10); @@ -116089,9 +116089,9 @@ if (!__ARRAY_STRING256_UDTENAME[0]) error(257); } } __ARRAY_STRING256_UDTENAME[2]|=1; -} -if(!qbevent)break;evnt(26021);}while(r); -do{ +} +if(!qbevent)break;evnt(26021);}while(r); +do{ if (__ARRAY_STRING256_UDTECNAME[2]&2){ error(10); @@ -116129,9 +116129,9 @@ if (!__ARRAY_STRING256_UDTECNAME[0]) error(257); } } __ARRAY_STRING256_UDTECNAME[2]|=1; -} -if(!qbevent)break;evnt(26022);}while(r); -do{ +} +if(!qbevent)break;evnt(26022);}while(r); +do{ if (__ARRAY_INTEGER_UDTEBYTEALIGN[2]&2){ error(10); @@ -116169,9 +116169,9 @@ if (!__ARRAY_INTEGER_UDTEBYTEALIGN[0]) error(257); } } __ARRAY_INTEGER_UDTEBYTEALIGN[2]|=1; -} -if(!qbevent)break;evnt(26023);}while(r); -do{ +} +if(!qbevent)break;evnt(26023);}while(r); +do{ if (__ARRAY_LONG_UDTESIZE[2]&2){ error(10); @@ -116209,9 +116209,9 @@ if (!__ARRAY_LONG_UDTESIZE[0]) error(257); } } __ARRAY_LONG_UDTESIZE[2]|=1; -} -if(!qbevent)break;evnt(26024);}while(r); -do{ +} +if(!qbevent)break;evnt(26024);}while(r); +do{ if (__ARRAY_LONG_UDTETYPE[2]&2){ error(10); @@ -116249,9 +116249,9 @@ if (!__ARRAY_LONG_UDTETYPE[0]) error(257); } } __ARRAY_LONG_UDTETYPE[2]|=1; -} -if(!qbevent)break;evnt(26025);}while(r); -do{ +} +if(!qbevent)break;evnt(26025);}while(r); +do{ if (__ARRAY_LONG_UDTETYPESIZE[2]&2){ error(10); @@ -116289,9 +116289,9 @@ if (!__ARRAY_LONG_UDTETYPESIZE[0]) error(257); } } __ARRAY_LONG_UDTETYPESIZE[2]|=1; -} -if(!qbevent)break;evnt(26026);}while(r); -do{ +} +if(!qbevent)break;evnt(26026);}while(r); +do{ if (__ARRAY_LONG_UDTEARRAYELEMENTS[2]&2){ error(10); @@ -116329,9 +116329,9 @@ if (!__ARRAY_LONG_UDTEARRAYELEMENTS[0]) error(257); } } __ARRAY_LONG_UDTEARRAYELEMENTS[2]|=1; -} -if(!qbevent)break;evnt(26027);}while(r); -do{ +} +if(!qbevent)break;evnt(26027);}while(r); +do{ if (__ARRAY_LONG_UDTENEXT[2]&2){ error(10); @@ -116369,1854 +116369,1854 @@ if (!__ARRAY_LONG_UDTENEXT[0]) error(257); } } __ARRAY_LONG_UDTENEXT[2]|=1; -} -if(!qbevent)break;evnt(26028);}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free108.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -int32 FUNC_COMPAREVERSIONS(qbs*_FUNC_COMPAREVERSIONS_STRING_V,qbs*_FUNC_COMPAREVERSIONS_STRING_V1){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data109.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -qbs_set(_FUNC_COMPAREVERSIONS_STRING_T,_FUNC_COMPAREVERSIONS_STRING_V); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26032);}while(r); -do{ -qbs_set(_FUNC_COMPAREVERSIONS_STRING_T1,_FUNC_COMPAREVERSIONS_STRING_V1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26032);}while(r); -S_34840:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_FUNC_COMPAREVERSIONS_STRING_T, 8 ),qbs_new_txt_len("-UNKNOWN",8))))||new_error){ -if(qbevent){evnt(26033);if(r)goto S_34840;} -do{ -qbs_set(_FUNC_COMPAREVERSIONS_STRING_T,qbs_left(_FUNC_COMPAREVERSIONS_STRING_T,_FUNC_COMPAREVERSIONS_STRING_T->len- 8 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26033);}while(r); -} -S_34843:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_FUNC_COMPAREVERSIONS_STRING_T1, 8 ),qbs_new_txt_len("-UNKNOWN",8))))||new_error){ -if(qbevent){evnt(26034);if(r)goto S_34843;} -do{ -qbs_set(_FUNC_COMPAREVERSIONS_STRING_T1,qbs_left(_FUNC_COMPAREVERSIONS_STRING_T1,_FUNC_COMPAREVERSIONS_STRING_T1->len- 8 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26034);}while(r); -} -S_34846:; -do{ -if(qbevent){evnt(26035);if(r)goto S_34846;} -do{ -*_FUNC_COMPAREVERSIONS_LONG_L=func_instr(NULL,_FUNC_COMPAREVERSIONS_STRING_T,qbs_new_txt_len(".",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26036);}while(r); -do{ -*_FUNC_COMPAREVERSIONS_LONG_L1=func_instr(NULL,_FUNC_COMPAREVERSIONS_STRING_T1,qbs_new_txt_len(".",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26036);}while(r); -S_34849:; -if ((*_FUNC_COMPAREVERSIONS_LONG_L)||new_error){ -if(qbevent){evnt(26037);if(r)goto S_34849;} -do{ -*_FUNC_COMPAREVERSIONS_LONG_V=qbr(func_val(qbs_left(_FUNC_COMPAREVERSIONS_STRING_T,*_FUNC_COMPAREVERSIONS_LONG_L- 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26038);}while(r); -do{ -qbs_set(_FUNC_COMPAREVERSIONS_STRING_T,func_mid(_FUNC_COMPAREVERSIONS_STRING_T,*_FUNC_COMPAREVERSIONS_LONG_L+ 1 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26039);}while(r); -}else{ -do{ -*_FUNC_COMPAREVERSIONS_LONG_V=qbr(func_val(_FUNC_COMPAREVERSIONS_STRING_T)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26041);}while(r); -do{ -qbs_set(_FUNC_COMPAREVERSIONS_STRING_T,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26042);}while(r); -} -S_34856:; -if ((*_FUNC_COMPAREVERSIONS_LONG_L1)||new_error){ -if(qbevent){evnt(26044);if(r)goto S_34856;} -do{ -*_FUNC_COMPAREVERSIONS_LONG_V1=qbr(func_val(qbs_left(_FUNC_COMPAREVERSIONS_STRING_T1,*_FUNC_COMPAREVERSIONS_LONG_L1- 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26045);}while(r); -do{ -qbs_set(_FUNC_COMPAREVERSIONS_STRING_T1,func_mid(_FUNC_COMPAREVERSIONS_STRING_T1,*_FUNC_COMPAREVERSIONS_LONG_L1+ 1 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26046);}while(r); -}else{ -do{ -*_FUNC_COMPAREVERSIONS_LONG_V1=qbr(func_val(_FUNC_COMPAREVERSIONS_STRING_T1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26048);}while(r); -do{ -qbs_set(_FUNC_COMPAREVERSIONS_STRING_T1,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26049);}while(r); -} -S_34863:; -if ((-(*_FUNC_COMPAREVERSIONS_LONG_V<*_FUNC_COMPAREVERSIONS_LONG_V1))||new_error){ -if(qbevent){evnt(26051);if(r)goto S_34863;} -do{ -*_FUNC_COMPAREVERSIONS_LONG_COMPAREVERSIONS= -1 ; -if(!qbevent)break;evnt(26051);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26051);}while(r); -} -S_34867:; -if ((-(*_FUNC_COMPAREVERSIONS_LONG_V>*_FUNC_COMPAREVERSIONS_LONG_V1))||new_error){ -if(qbevent){evnt(26052);if(r)goto S_34867;} -do{ -*_FUNC_COMPAREVERSIONS_LONG_COMPAREVERSIONS= 1 ; -if(!qbevent)break;evnt(26052);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26052);}while(r); -} -S_34871:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_COMPAREVERSIONS_STRING_T,qbs_new_txt_len("",0)))&(qbs_equal(_FUNC_COMPAREVERSIONS_STRING_T1,qbs_new_txt_len("",0)))))||new_error){ -if(qbevent){evnt(26053);if(r)goto S_34871;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26053);}while(r); -} -S_34874:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_COMPAREVERSIONS_STRING_T,qbs_new_txt_len("",0)))&(qbs_notequal(_FUNC_COMPAREVERSIONS_STRING_T1,qbs_new_txt_len("",0)))))||new_error){ -if(qbevent){evnt(26054);if(r)goto S_34874;} -do{ -*_FUNC_COMPAREVERSIONS_LONG_COMPAREVERSIONS= -1 ; -if(!qbevent)break;evnt(26054);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26054);}while(r); -} -S_34878:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_COMPAREVERSIONS_STRING_T1,qbs_new_txt_len("",0)))&(qbs_notequal(_FUNC_COMPAREVERSIONS_STRING_T,qbs_new_txt_len("",0)))))||new_error){ -if(qbevent){evnt(26055);if(r)goto S_34878;} -do{ -*_FUNC_COMPAREVERSIONS_LONG_COMPAREVERSIONS= 1 ; -if(!qbevent)break;evnt(26055);}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26055);}while(r); -} -dl_continue_3763:; -}while(1); -dl_exit_3763:; -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free109.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -return *_FUNC_COMPAREVERSIONS_LONG_COMPAREVERSIONS; -} -qbs* FUNC_STRREMOVE(qbs*_FUNC_STRREMOVE_STRING_MYSTRING,qbs*_FUNC_STRREMOVE_STRING_WHATTOREMOVE){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data110.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -if(!qbevent)break;evnt(26059,6,"strings.bas");}while(r); -do{ -if(!qbevent)break;evnt(26059,7,"strings.bas");}while(r); -do{ -qbs_set(_FUNC_STRREMOVE_STRING_A,_FUNC_STRREMOVE_STRING_MYSTRING); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26059,9,"strings.bas");}while(r); -do{ -qbs_set(_FUNC_STRREMOVE_STRING_B,qbs_lcase(_FUNC_STRREMOVE_STRING_WHATTOREMOVE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26059,10,"strings.bas");}while(r); -do{ -*_FUNC_STRREMOVE_LONG_I=func_instr(NULL,qbs_lcase(_FUNC_STRREMOVE_STRING_A),_FUNC_STRREMOVE_STRING_B,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26059,11,"strings.bas");}while(r); -S_34888:; -while((*_FUNC_STRREMOVE_LONG_I)||new_error){ -if(qbevent){evnt(26059,12,"strings.bas");if(r)goto S_34888;} -do{ -qbs_set(_FUNC_STRREMOVE_STRING_A,qbs_add(qbs_left(_FUNC_STRREMOVE_STRING_A,*_FUNC_STRREMOVE_LONG_I- 1 ),qbs_right(_FUNC_STRREMOVE_STRING_A,_FUNC_STRREMOVE_STRING_A->len-*_FUNC_STRREMOVE_LONG_I-_FUNC_STRREMOVE_STRING_B->len+ 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26059,13,"strings.bas");}while(r); -do{ -*_FUNC_STRREMOVE_LONG_I=func_instr(NULL,qbs_lcase(_FUNC_STRREMOVE_STRING_A),_FUNC_STRREMOVE_STRING_B,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26059,14,"strings.bas");}while(r); -dl_continue_3766:; -} -dl_exit_3766:; -do{ -qbs_set(_FUNC_STRREMOVE_STRING_STRREMOVE,_FUNC_STRREMOVE_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26059,16,"strings.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free110.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_STRREMOVE_STRING_STRREMOVE);return _FUNC_STRREMOVE_STRING_STRREMOVE; -} -qbs* FUNC_STRREPLACE(qbs*_FUNC_STRREPLACE_STRING_MYSTRING,qbs*_FUNC_STRREPLACE_STRING_FIND,qbs*_FUNC_STRREPLACE_STRING_REPLACEWITH){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data111.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -if(!qbevent)break;evnt(26059,20,"strings.bas");}while(r); -do{ -if(!qbevent)break;evnt(26059,21,"strings.bas");}while(r); -S_34895:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_STRREPLACE_STRING_MYSTRING->len== 0 )))||new_error){ -if(qbevent){evnt(26059,22,"strings.bas");if(r)goto S_34895;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26059,22,"strings.bas");}while(r); -} -do{ -qbs_set(_FUNC_STRREPLACE_STRING_A,_FUNC_STRREPLACE_STRING_MYSTRING); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26059,23,"strings.bas");}while(r); -do{ -qbs_set(_FUNC_STRREPLACE_STRING_B,qbs_lcase(_FUNC_STRREPLACE_STRING_FIND)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26059,24,"strings.bas");}while(r); -do{ -*_FUNC_STRREPLACE_LONG_BASEI= 1 ; -if(!qbevent)break;evnt(26059,25,"strings.bas");}while(r); -do{ -*_FUNC_STRREPLACE_LONG_I=func_instr(*_FUNC_STRREPLACE_LONG_BASEI,qbs_lcase(_FUNC_STRREPLACE_STRING_A),_FUNC_STRREPLACE_STRING_B,0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26059,26,"strings.bas");}while(r); -S_34902:; -while((*_FUNC_STRREPLACE_LONG_I)||new_error){ -if(qbevent){evnt(26059,27,"strings.bas");if(r)goto S_34902;} -do{ -qbs_set(_FUNC_STRREPLACE_STRING_A,qbs_add(qbs_add(qbs_left(_FUNC_STRREPLACE_STRING_A,*_FUNC_STRREPLACE_LONG_I- 1 ),_FUNC_STRREPLACE_STRING_REPLACEWITH),qbs_right(_FUNC_STRREPLACE_STRING_A,_FUNC_STRREPLACE_STRING_A->len-*_FUNC_STRREPLACE_LONG_I-_FUNC_STRREPLACE_STRING_B->len+ 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26059,28,"strings.bas");}while(r); -do{ -*_FUNC_STRREPLACE_LONG_BASEI=*_FUNC_STRREPLACE_LONG_I+_FUNC_STRREPLACE_STRING_REPLACEWITH->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26059,29,"strings.bas");}while(r); -do{ -*_FUNC_STRREPLACE_LONG_I=func_instr(*_FUNC_STRREPLACE_LONG_BASEI,qbs_lcase(_FUNC_STRREPLACE_STRING_A),_FUNC_STRREPLACE_STRING_B,0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26059,30,"strings.bas");}while(r); -dl_continue_3773:; -} -dl_exit_3773:; -do{ -qbs_set(_FUNC_STRREPLACE_STRING_STRREPLACE,_FUNC_STRREPLACE_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26059,32,"strings.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free111.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_STRREPLACE_STRING_STRREPLACE);return _FUNC_STRREPLACE_STRING_STRREPLACE; -} -qbs* FUNC_ADDQUOTES(qbs*_FUNC_ADDQUOTES_STRING_S){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data112.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -qbs_set(_FUNC_ADDQUOTES_STRING_ADDQUOTES,qbs_add(qbs_add(func_chr( 34 ),_FUNC_ADDQUOTES_STRING_S),func_chr( 34 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26059,36,"strings.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free112.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_ADDQUOTES_STRING_ADDQUOTES);return _FUNC_ADDQUOTES_STRING_ADDQUOTES; -} -qbs* FUNC_BOOLTOTFSTRING(int32*_FUNC_BOOLTOTFSTRING_LONG_B){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data113.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -S_34909:; -if ((*_FUNC_BOOLTOTFSTRING_LONG_B)||new_error){ -if(qbevent){evnt(26059,43,"strings.bas");if(r)goto S_34909;} -do{ -qbs_set(_FUNC_BOOLTOTFSTRING_STRING_BOOLTOTFSTRING,qbs_new_txt_len("True",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26059,44,"strings.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_BOOLTOTFSTRING_STRING_BOOLTOTFSTRING,qbs_new_txt_len("False",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26059,46,"strings.bas");}while(r); -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free113.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_BOOLTOTFSTRING_STRING_BOOLTOTFSTRING);return _FUNC_BOOLTOTFSTRING_STRING_BOOLTOTFSTRING; -} -int16 FUNC_TFSTRINGTOBOOL(qbs*_FUNC_TFSTRINGTOBOOL_STRING_S){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data114.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -if(!qbevent)break;evnt(26059,56,"strings.bas");}while(r); -do{ -qbs_set(_FUNC_TFSTRINGTOBOOL_STRING_S2,qbs__trim(qbs_ucase(_FUNC_TFSTRINGTOBOOL_STRING_S))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26059,57,"strings.bas");}while(r); -S_34916:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TFSTRINGTOBOOL_STRING_S2,qbs_new_txt_len("TRUE",4))))||new_error){ -if(qbevent){evnt(26059,59,"strings.bas");if(r)goto S_34916;} -do{ -*_FUNC_TFSTRINGTOBOOL_INTEGER_TFSTRINGTOBOOL= -1 ; -if(!qbevent)break;evnt(26059,60,"strings.bas");}while(r); -S_34918:; -}else{ -if (qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TFSTRINGTOBOOL_STRING_S2,qbs_new_txt_len("FALSE",5)))){ -if(qbevent){evnt(26059,61,"strings.bas");if(r)goto S_34918;} -do{ -*_FUNC_TFSTRINGTOBOOL_INTEGER_TFSTRINGTOBOOL= 0 ; -if(!qbevent)break;evnt(26059,62,"strings.bas");}while(r); -}else{ -do{ -*_FUNC_TFSTRINGTOBOOL_INTEGER_TFSTRINGTOBOOL= -2 ; -if(!qbevent)break;evnt(26059,64,"strings.bas");}while(r); -} -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free114.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -return *_FUNC_TFSTRINGTOBOOL_INTEGER_TFSTRINGTOBOOL; -} -int16 FUNC_READWRITEBOOLEANSETTINGVALUE(qbs*_FUNC_READWRITEBOOLEANSETTINGVALUE_STRING_SECTION,qbs*_FUNC_READWRITEBOOLEANSETTINGVALUE_STRING_SETTING,int16*_FUNC_READWRITEBOOLEANSETTINGVALUE_INTEGER_DEFAULT){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data115.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -if(!qbevent)break;evnt(26059,72,"strings.bas");}while(r); -do{ -if(!qbevent)break;evnt(26059,73,"strings.bas");}while(r); -do{ -if(!qbevent)break;evnt(26059,74,"strings.bas");}while(r); -do{ -*_FUNC_READWRITEBOOLEANSETTINGVALUE_INTEGER_RESULT=FUNC_READCONFIGSETTING(_FUNC_READWRITEBOOLEANSETTINGVALUE_STRING_SECTION,_FUNC_READWRITEBOOLEANSETTINGVALUE_STRING_SETTING,_FUNC_READWRITEBOOLEANSETTINGVALUE_STRING_VALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26059,76,"strings.bas");}while(r); -do{ -*_FUNC_READWRITEBOOLEANSETTINGVALUE_INTEGER_CHECKRESULT=FUNC_TFSTRINGTOBOOL(_FUNC_READWRITEBOOLEANSETTINGVALUE_STRING_VALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26059,78,"strings.bas");}while(r); -S_34928:; -if ((-(*_FUNC_READWRITEBOOLEANSETTINGVALUE_INTEGER_CHECKRESULT== -2 ))||new_error){ -if(qbevent){evnt(26059,80,"strings.bas");if(r)goto S_34928;} -do{ -SUB_WRITECONFIGSETTING(_FUNC_READWRITEBOOLEANSETTINGVALUE_STRING_SECTION,_FUNC_READWRITEBOOLEANSETTINGVALUE_STRING_SETTING,FUNC_BOOLTOTFSTRING(&(pass3781=*_FUNC_READWRITEBOOLEANSETTINGVALUE_INTEGER_DEFAULT))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26059,81,"strings.bas");}while(r); -do{ -*_FUNC_READWRITEBOOLEANSETTINGVALUE_INTEGER_READWRITEBOOLEANSETTINGVALUE=*_FUNC_READWRITEBOOLEANSETTINGVALUE_INTEGER_DEFAULT; -if(!qbevent)break;evnt(26059,82,"strings.bas");}while(r); -}else{ -do{ -*_FUNC_READWRITEBOOLEANSETTINGVALUE_INTEGER_READWRITEBOOLEANSETTINGVALUE=*_FUNC_READWRITEBOOLEANSETTINGVALUE_INTEGER_CHECKRESULT; -if(!qbevent)break;evnt(26059,84,"strings.bas");}while(r); -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free115.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -return *_FUNC_READWRITEBOOLEANSETTINGVALUE_INTEGER_READWRITEBOOLEANSETTINGVALUE; -} -qbs* FUNC_READWRITESTRINGSETTINGVALUE(qbs*_FUNC_READWRITESTRINGSETTINGVALUE_STRING_SECTION,qbs*_FUNC_READWRITESTRINGSETTINGVALUE_STRING_SETTING,qbs*_FUNC_READWRITESTRINGSETTINGVALUE_STRING_DEFAULT){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data116.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -if(!qbevent)break;evnt(26059,92,"strings.bas");}while(r); -do{ -if(!qbevent)break;evnt(26059,93,"strings.bas");}while(r); -do{ -*_FUNC_READWRITESTRINGSETTINGVALUE_INTEGER_RESULT=FUNC_READCONFIGSETTING(_FUNC_READWRITESTRINGSETTINGVALUE_STRING_SECTION,_FUNC_READWRITESTRINGSETTINGVALUE_STRING_SETTING,_FUNC_READWRITESTRINGSETTINGVALUE_STRING_VALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26059,95,"strings.bas");}while(r); -S_34937:; -if ((-(*_FUNC_READWRITESTRINGSETTINGVALUE_INTEGER_RESULT== 0 ))||new_error){ -if(qbevent){evnt(26059,97,"strings.bas");if(r)goto S_34937;} -do{ -SUB_WRITECONFIGSETTING(_FUNC_READWRITESTRINGSETTINGVALUE_STRING_SECTION,_FUNC_READWRITESTRINGSETTINGVALUE_STRING_SETTING,_FUNC_READWRITESTRINGSETTINGVALUE_STRING_DEFAULT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26059,98,"strings.bas");}while(r); -do{ -qbs_set(_FUNC_READWRITESTRINGSETTINGVALUE_STRING_READWRITESTRINGSETTINGVALUE,_FUNC_READWRITESTRINGSETTINGVALUE_STRING_DEFAULT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26059,99,"strings.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_READWRITESTRINGSETTINGVALUE_STRING_READWRITESTRINGSETTINGVALUE,_FUNC_READWRITESTRINGSETTINGVALUE_STRING_VALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26059,101,"strings.bas");}while(r); -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free116.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_READWRITESTRINGSETTINGVALUE_STRING_READWRITESTRINGSETTINGVALUE);return _FUNC_READWRITESTRINGSETTINGVALUE_STRING_READWRITESTRINGSETTINGVALUE; -} -int32 FUNC_READWRITELONGSETTINGVALUE(qbs*_FUNC_READWRITELONGSETTINGVALUE_STRING_SECTION,qbs*_FUNC_READWRITELONGSETTINGVALUE_STRING_SETTING,int32*_FUNC_READWRITELONGSETTINGVALUE_LONG_DEFAULT){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data117.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -if(!qbevent)break;evnt(26059,111,"strings.bas");}while(r); -do{ -if(!qbevent)break;evnt(26059,112,"strings.bas");}while(r); -do{ -if(!qbevent)break;evnt(26059,113,"strings.bas");}while(r); -do{ -*_FUNC_READWRITELONGSETTINGVALUE_INTEGER_RESULT=FUNC_READCONFIGSETTING(_FUNC_READWRITELONGSETTINGVALUE_STRING_SECTION,_FUNC_READWRITELONGSETTINGVALUE_STRING_SETTING,_FUNC_READWRITELONGSETTINGVALUE_STRING_VALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26059,115,"strings.bas");}while(r); -do{ -*_FUNC_READWRITELONGSETTINGVALUE_LONG_CHECKRESULT=qbr(func_val(_FUNC_READWRITELONGSETTINGVALUE_STRING_VALUE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26059,117,"strings.bas");}while(r); -S_34948:; -if (((-(*_FUNC_READWRITELONGSETTINGVALUE_INTEGER_RESULT== 0 ))|(-(*_FUNC_READWRITELONGSETTINGVALUE_LONG_CHECKRESULT<= 0 )))||new_error){ -if(qbevent){evnt(26059,119,"strings.bas");if(r)goto S_34948;} -do{ -SUB_WRITECONFIGSETTING(_FUNC_READWRITELONGSETTINGVALUE_STRING_SECTION,_FUNC_READWRITELONGSETTINGVALUE_STRING_SETTING,FUNC_STR2(_FUNC_READWRITELONGSETTINGVALUE_LONG_DEFAULT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26059,120,"strings.bas");}while(r); -do{ -*_FUNC_READWRITELONGSETTINGVALUE_LONG_READWRITELONGSETTINGVALUE=*_FUNC_READWRITELONGSETTINGVALUE_LONG_DEFAULT; -if(!qbevent)break;evnt(26059,121,"strings.bas");}while(r); -}else{ -do{ -*_FUNC_READWRITELONGSETTINGVALUE_LONG_READWRITELONGSETTINGVALUE=*_FUNC_READWRITELONGSETTINGVALUE_LONG_CHECKRESULT; -if(!qbevent)break;evnt(26059,123,"strings.bas");}while(r); -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free117.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -return *_FUNC_READWRITELONGSETTINGVALUE_LONG_READWRITELONGSETTINGVALUE; -} -int32 FUNC_COPYFILE(qbs*_FUNC_COPYFILE_STRING_SOURCEFILE,qbs*_FUNC_COPYFILE_STRING_DESTFILE){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data118.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -if(!qbevent)break;evnt(26060,7,"file.bas");}while(r); -do{ -if(!qbevent)break;evnt(26060,8,"file.bas");}while(r); -do{ -*__LONG_E= 0 ; -if(!qbevent)break;evnt(26060,10,"file.bas");}while(r); -do{ -*_FUNC_COPYFILE_LONG_SOURCEFILENO=func_freefile(); -if(!qbevent)break;evnt(26060,11,"file.bas");}while(r); -do{ -sub_open(_FUNC_COPYFILE_STRING_SOURCEFILE, 2 ,NULL,NULL,*_FUNC_COPYFILE_LONG_SOURCEFILENO,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26060,12,"file.bas");}while(r); -S_34959:; -if ((-(*__LONG_E== 1 ))||new_error){ -if(qbevent){evnt(26060,13,"file.bas");if(r)goto S_34959;} -do{ -goto LABEL_ERRORCLEANUP; -if(!qbevent)break;evnt(26060,13,"file.bas");}while(r); -} -do{ -*_FUNC_COPYFILE_INTEGER64_FILELENGTH=func_lof(*_FUNC_COPYFILE_LONG_SOURCEFILENO); -if(!qbevent)break;evnt(26060,15,"file.bas");}while(r); -do{ -*_FUNC_COPYFILE_LONG_DESTFILENO=func_freefile(); -if(!qbevent)break;evnt(26060,17,"file.bas");}while(r); -do{ -sub_open(_FUNC_COPYFILE_STRING_DESTFILE, 2 ,NULL,NULL,*_FUNC_COPYFILE_LONG_DESTFILENO,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26060,18,"file.bas");}while(r); -S_34965:; -if ((-(*__LONG_E== 1 ))||new_error){ -if(qbevent){evnt(26060,19,"file.bas");if(r)goto S_34965;} -do{ -goto LABEL_ERRORCLEANUP; -if(!qbevent)break;evnt(26060,19,"file.bas");}while(r); -} -do{ -qbs_set(_FUNC_COPYFILE_STRING_BUFFER,func_space(*_FUNC_COPYFILE_INTEGER64_FILELENGTH)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26060,22,"file.bas");}while(r); -do{ -sub_get2(*_FUNC_COPYFILE_LONG_SOURCEFILENO,NULL,_FUNC_COPYFILE_STRING_BUFFER,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26060,24,"file.bas");}while(r); -do{ -sub_put2(*_FUNC_COPYFILE_LONG_DESTFILENO,NULL,byte_element((uint64)_FUNC_COPYFILE_STRING_BUFFER->chr,_FUNC_COPYFILE_STRING_BUFFER->len,byte_element_3789),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26060,25,"file.bas");}while(r); -LABEL_ERRORCLEANUP:; -if(qbevent){evnt(26060,27,"file.bas");r=0;} -S_34971:; -if ((-(*_FUNC_COPYFILE_LONG_SOURCEFILENO!= 0 ))||new_error){ -if(qbevent){evnt(26060,28,"file.bas");if(r)goto S_34971;} -do{ -sub_close(*_FUNC_COPYFILE_LONG_SOURCEFILENO,1); -if(!qbevent)break;evnt(26060,28,"file.bas");}while(r); -} -S_34974:; -if ((-(*_FUNC_COPYFILE_LONG_DESTFILENO!= 0 ))||new_error){ -if(qbevent){evnt(26060,29,"file.bas");if(r)goto S_34974;} -do{ -sub_close(*_FUNC_COPYFILE_LONG_DESTFILENO,1); -if(!qbevent)break;evnt(26060,29,"file.bas");}while(r); -} -do{ -*_FUNC_COPYFILE_LONG_COPYFILE=*__LONG_E; -if(!qbevent)break;evnt(26060,31,"file.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free118.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -return *_FUNC_COPYFILE_LONG_COPYFILE; -} -qbs* FUNC_GETFILEPATH(qbs*_FUNC_GETFILEPATH_STRING_F){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data119.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -S_34978:; -fornext_value3792=_FUNC_GETFILEPATH_STRING_F->len; -fornext_finalvalue3792= 1 ; -fornext_step3792= -1 ; -if (fornext_step3792<0) fornext_step_negative3792=1; else fornext_step_negative3792=0; -if (new_error) goto fornext_error3792; -goto fornext_entrylabel3792; -while(1){ -fornext_value3792=fornext_step3792+(*_FUNC_GETFILEPATH_LONG_I); -fornext_entrylabel3792: -*_FUNC_GETFILEPATH_LONG_I=fornext_value3792; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative3792){ -if (fornext_value3792fornext_finalvalue3792) break; -} -fornext_error3792:; -if(qbevent){evnt(26060,39,"file.bas");if(r)goto S_34978;} -do{ -qbs_set(_FUNC_GETFILEPATH_STRING_A,func_mid(_FUNC_GETFILEPATH_STRING_F,*_FUNC_GETFILEPATH_LONG_I, 1 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26060,40,"file.bas");}while(r); -S_34980:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_GETFILEPATH_STRING_A,qbs_new_txt_len("/",1)))|(qbs_equal(_FUNC_GETFILEPATH_STRING_A,qbs_new_txt_len("\\",1)))))||new_error){ -if(qbevent){evnt(26060,41,"file.bas");if(r)goto S_34980;} -do{ -qbs_set(_FUNC_GETFILEPATH_STRING_GETFILEPATH,qbs_left(_FUNC_GETFILEPATH_STRING_F,*_FUNC_GETFILEPATH_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26060,42,"file.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26060,43,"file.bas");}while(r); -} -fornext_continue_3791:; -} -fornext_exit_3791:; -do{ -qbs_set(_FUNC_GETFILEPATH_STRING_GETFILEPATH,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26060,46,"file.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free119.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_GETFILEPATH_STRING_GETFILEPATH);return _FUNC_GETFILEPATH_STRING_GETFILEPATH; -} -int32 FUNC_FILEHASEXTENSION(qbs*_FUNC_FILEHASEXTENSION_STRING_F){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data120.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -S_34986:; -fornext_value3796=_FUNC_FILEHASEXTENSION_STRING_F->len; -fornext_finalvalue3796= 1 ; -fornext_step3796= -1 ; -if (fornext_step3796<0) fornext_step_negative3796=1; else fornext_step_negative3796=0; -if (new_error) goto fornext_error3796; -goto fornext_entrylabel3796; -while(1){ -fornext_value3796=fornext_step3796+(*_FUNC_FILEHASEXTENSION_LONG_I); -fornext_entrylabel3796: -*_FUNC_FILEHASEXTENSION_LONG_I=fornext_value3796; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative3796){ -if (fornext_value3796fornext_finalvalue3796) break; -} -fornext_error3796:; -if(qbevent){evnt(26060,54,"file.bas");if(r)goto S_34986;} -do{ -*_FUNC_FILEHASEXTENSION_LONG_A=qbs_asc(_FUNC_FILEHASEXTENSION_STRING_F,*_FUNC_FILEHASEXTENSION_LONG_I); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26060,55,"file.bas");}while(r); -S_34988:; -if (((-(*_FUNC_FILEHASEXTENSION_LONG_A== 47 ))|(-(*_FUNC_FILEHASEXTENSION_LONG_A== 92 )))||new_error){ -if(qbevent){evnt(26060,56,"file.bas");if(r)goto S_34988;} -do{ -goto fornext_exit_3795; -if(!qbevent)break;evnt(26060,56,"file.bas");}while(r); -} -S_34991:; -if ((-(*_FUNC_FILEHASEXTENSION_LONG_A== 46 ))||new_error){ -if(qbevent){evnt(26060,57,"file.bas");if(r)goto S_34991;} -do{ -*_FUNC_FILEHASEXTENSION_LONG_FILEHASEXTENSION= -1 ; -if(!qbevent)break;evnt(26060,57,"file.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26060,57,"file.bas");}while(r); -} -fornext_continue_3795:; -} -fornext_exit_3795:; -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free120.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -return *_FUNC_FILEHASEXTENSION_LONG_FILEHASEXTENSION; -} -qbs* FUNC_REMOVEFILEEXTENSION(qbs*_FUNC_REMOVEFILEEXTENSION_STRING_F){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data121.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -S_34996:; -fornext_value3800=_FUNC_REMOVEFILEEXTENSION_STRING_F->len; -fornext_finalvalue3800= 1 ; -fornext_step3800= -1 ; -if (fornext_step3800<0) fornext_step_negative3800=1; else fornext_step_negative3800=0; -if (new_error) goto fornext_error3800; -goto fornext_entrylabel3800; -while(1){ -fornext_value3800=fornext_step3800+(*_FUNC_REMOVEFILEEXTENSION_LONG_I); -fornext_entrylabel3800: -*_FUNC_REMOVEFILEEXTENSION_LONG_I=fornext_value3800; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative3800){ -if (fornext_value3800fornext_finalvalue3800) break; -} -fornext_error3800:; -if(qbevent){evnt(26060,66,"file.bas");if(r)goto S_34996;} -do{ -*_FUNC_REMOVEFILEEXTENSION_LONG_A=qbs_asc(_FUNC_REMOVEFILEEXTENSION_STRING_F,*_FUNC_REMOVEFILEEXTENSION_LONG_I); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26060,67,"file.bas");}while(r); -S_34998:; -if (((-(*_FUNC_REMOVEFILEEXTENSION_LONG_A== 47 ))|(-(*_FUNC_REMOVEFILEEXTENSION_LONG_A== 92 )))||new_error){ -if(qbevent){evnt(26060,68,"file.bas");if(r)goto S_34998;} -do{ -goto fornext_exit_3799; -if(!qbevent)break;evnt(26060,68,"file.bas");}while(r); -} -S_35001:; -if ((-(*_FUNC_REMOVEFILEEXTENSION_LONG_A== 46 ))||new_error){ -if(qbevent){evnt(26060,69,"file.bas");if(r)goto S_35001;} -do{ -qbs_set(_FUNC_REMOVEFILEEXTENSION_STRING_REMOVEFILEEXTENSION,qbs_left(_FUNC_REMOVEFILEEXTENSION_STRING_F,*_FUNC_REMOVEFILEEXTENSION_LONG_I- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26060,69,"file.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26060,69,"file.bas");}while(r); -} -fornext_continue_3799:; -} -fornext_exit_3799:; -do{ -qbs_set(_FUNC_REMOVEFILEEXTENSION_STRING_REMOVEFILEEXTENSION,_FUNC_REMOVEFILEEXTENSION_STRING_F); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26060,71,"file.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free121.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_REMOVEFILEEXTENSION_STRING_REMOVEFILEEXTENSION);return _FUNC_REMOVEFILEEXTENSION_STRING_REMOVEFILEEXTENSION; -} -qbs* FUNC_GETFILEEXTENSION(qbs*_FUNC_GETFILEEXTENSION_STRING_F){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data122.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -S_35007:; -fornext_value3804=_FUNC_GETFILEEXTENSION_STRING_F->len; -fornext_finalvalue3804= 1 ; -fornext_step3804= -1 ; -if (fornext_step3804<0) fornext_step_negative3804=1; else fornext_step_negative3804=0; -if (new_error) goto fornext_error3804; -goto fornext_entrylabel3804; -while(1){ -fornext_value3804=fornext_step3804+(*_FUNC_GETFILEEXTENSION_LONG_I); -fornext_entrylabel3804: -*_FUNC_GETFILEEXTENSION_LONG_I=fornext_value3804; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative3804){ -if (fornext_value3804fornext_finalvalue3804) break; -} -fornext_error3804:; -if(qbevent){evnt(26060,80,"file.bas");if(r)goto S_35007;} -do{ -*_FUNC_GETFILEEXTENSION_LONG_A=qbs_asc(_FUNC_GETFILEEXTENSION_STRING_F,*_FUNC_GETFILEEXTENSION_LONG_I); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26060,81,"file.bas");}while(r); -S_35009:; -if (((-(*_FUNC_GETFILEEXTENSION_LONG_A== 47 ))|(-(*_FUNC_GETFILEEXTENSION_LONG_A== 92 )))||new_error){ -if(qbevent){evnt(26060,82,"file.bas");if(r)goto S_35009;} -do{ -goto fornext_exit_3803; -if(!qbevent)break;evnt(26060,82,"file.bas");}while(r); -} -S_35012:; -if ((-(*_FUNC_GETFILEEXTENSION_LONG_A== 46 ))||new_error){ -if(qbevent){evnt(26060,83,"file.bas");if(r)goto S_35012;} -do{ -qbs_set(_FUNC_GETFILEEXTENSION_STRING_GETFILEEXTENSION,func_mid(_FUNC_GETFILEEXTENSION_STRING_F,*_FUNC_GETFILEEXTENSION_LONG_I+ 1 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26060,83,"file.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26060,83,"file.bas");}while(r); -} -fornext_continue_3803:; -} -fornext_exit_3803:; -do{ -qbs_set(_FUNC_GETFILEEXTENSION_STRING_GETFILEEXTENSION,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26060,85,"file.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free122.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_GETFILEEXTENSION_STRING_GETFILEEXTENSION);return _FUNC_GETFILEEXTENSION_STRING_GETFILEEXTENSION; -} -void SUB_PATH_SLASH_CORRECT(qbs*_SUB_PATH_SLASH_CORRECT_STRING_A){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data123.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -S_35018:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ -if(qbevent){evnt(26060,92,"file.bas");if(r)goto S_35018;} -S_35019:; -fornext_value3808= 1 ; -fornext_finalvalue3808=_SUB_PATH_SLASH_CORRECT_STRING_A->len; -fornext_step3808= 1 ; -if (fornext_step3808<0) fornext_step_negative3808=1; else fornext_step_negative3808=0; -if (new_error) goto fornext_error3808; -goto fornext_entrylabel3808; -while(1){ -fornext_value3808=fornext_step3808+(*_SUB_PATH_SLASH_CORRECT_LONG_X); -fornext_entrylabel3808: -*_SUB_PATH_SLASH_CORRECT_LONG_X=fornext_value3808; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative3808){ -if (fornext_value3808fornext_finalvalue3808) break; -} -fornext_error3808:; -if(qbevent){evnt(26060,93,"file.bas");if(r)goto S_35019;} -S_35020:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_SUB_PATH_SLASH_CORRECT_STRING_A,*_SUB_PATH_SLASH_CORRECT_LONG_X)== 47 )))||new_error){ -if(qbevent){evnt(26060,94,"file.bas");if(r)goto S_35020;} -do{ -tqbs=_SUB_PATH_SLASH_CORRECT_STRING_A; if (!new_error){ -tmp_fileno=*_SUB_PATH_SLASH_CORRECT_LONG_X; if (!new_error){ -tmp_long= 92 ; if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(26060,94,"file.bas");}while(r); -} -fornext_continue_3807:; -} -fornext_exit_3807:; -}else{ -S_35025:; -fornext_value3811= 1 ; -fornext_finalvalue3811=_SUB_PATH_SLASH_CORRECT_STRING_A->len; -fornext_step3811= 1 ; -if (fornext_step3811<0) fornext_step_negative3811=1; else fornext_step_negative3811=0; -if (new_error) goto fornext_error3811; -goto fornext_entrylabel3811; -while(1){ -fornext_value3811=fornext_step3811+(*_SUB_PATH_SLASH_CORRECT_LONG_X); -fornext_entrylabel3811: -*_SUB_PATH_SLASH_CORRECT_LONG_X=fornext_value3811; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative3811){ -if (fornext_value3811fornext_finalvalue3811) break; -} -fornext_error3811:; -if(qbevent){evnt(26060,97,"file.bas");if(r)goto S_35025;} -S_35026:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_SUB_PATH_SLASH_CORRECT_STRING_A,*_SUB_PATH_SLASH_CORRECT_LONG_X)== 92 )))||new_error){ -if(qbevent){evnt(26060,98,"file.bas");if(r)goto S_35026;} -do{ -tqbs=_SUB_PATH_SLASH_CORRECT_STRING_A; if (!new_error){ -tmp_fileno=*_SUB_PATH_SLASH_CORRECT_LONG_X; if (!new_error){ -tmp_long= 47 ; if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(26060,98,"file.bas");}while(r); -} -fornext_continue_3810:; -} -fornext_exit_3810:; -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free123.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -qbs* FUNC_GETESCAPEDPATH(qbs*_FUNC_GETESCAPEDPATH_STRING_PATH_NAME){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data124.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -if(!qbevent)break;evnt(26060,105,"file.bas");}while(r); -S_35032:; -fornext_value3815= 1 ; -fornext_finalvalue3815=_FUNC_GETESCAPEDPATH_STRING_PATH_NAME->len; -fornext_step3815= 1 ; -if (fornext_step3815<0) fornext_step_negative3815=1; else fornext_step_negative3815=0; -if (new_error) goto fornext_error3815; -goto fornext_entrylabel3815; -while(1){ -fornext_value3815=fornext_step3815+(*_FUNC_GETESCAPEDPATH_ULONG_Z); -fornext_entrylabel3815: -*_FUNC_GETESCAPEDPATH_ULONG_Z=fornext_value3815; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative3815){ -if (fornext_value3815fornext_finalvalue3815) break; -} -fornext_error3815:; -if(qbevent){evnt(26060,107,"file.bas");if(r)goto S_35032;} -do{ -*_FUNC_GETESCAPEDPATH_UBYTE_A=qbs_asc(_FUNC_GETESCAPEDPATH_STRING_PATH_NAME,*_FUNC_GETESCAPEDPATH_ULONG_Z); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26060,108,"file.bas");}while(r); -do{ -qbs_set(_FUNC_GETESCAPEDPATH_STRING_BUF,qbs_add(_FUNC_GETESCAPEDPATH_STRING_BUF,func_chr(*_FUNC_GETESCAPEDPATH_UBYTE_A))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26060,109,"file.bas");}while(r); -S_35035:; -if ((-(*_FUNC_GETESCAPEDPATH_UBYTE_A== 92 ))||new_error){ -if(qbevent){evnt(26060,110,"file.bas");if(r)goto S_35035;} -do{ -qbs_set(_FUNC_GETESCAPEDPATH_STRING_BUF,qbs_add(_FUNC_GETESCAPEDPATH_STRING_BUF,qbs_new_txt_len("\\",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26060,110,"file.bas");}while(r); -} -fornext_continue_3814:; -} -fornext_exit_3814:; -do{ -qbs_set(_FUNC_GETESCAPEDPATH_STRING_GETESCAPEDPATH,_FUNC_GETESCAPEDPATH_STRING_BUF); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26060,113,"file.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free124.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_GETESCAPEDPATH_STRING_GETESCAPEDPATH);return _FUNC_GETESCAPEDPATH_STRING_GETESCAPEDPATH; -} -qbs* FUNC_FIXDIRECTORYNAME(qbs*_FUNC_FIXDIRECTORYNAME_STRING_DIR_NAME){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data125.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -S_35040:; -if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_FIXDIRECTORYNAME_STRING_DIR_NAME->len> 0 ))&(qbs_notequal(qbs_right(_FUNC_FIXDIRECTORYNAME_STRING_DIR_NAME, 1 ),__STRING1_PATHSEP))))||new_error){ -if(qbevent){evnt(26060,118,"file.bas");if(r)goto S_35040;} -do{ -qbs_set(_FUNC_FIXDIRECTORYNAME_STRING_FIXDIRECTORYNAME,qbs_add(_FUNC_FIXDIRECTORYNAME_STRING_DIR_NAME,__STRING1_PATHSEP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26060,119,"file.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_FIXDIRECTORYNAME_STRING_FIXDIRECTORYNAME,_FUNC_FIXDIRECTORYNAME_STRING_DIR_NAME); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26060,121,"file.bas");}while(r); -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free125.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_FIXDIRECTORYNAME_STRING_FIXDIRECTORYNAME);return _FUNC_FIXDIRECTORYNAME_STRING_FIXDIRECTORYNAME; -} -void SUB_PURGETEMPORARYBUILDFILES(qbs*_SUB_PURGETEMPORARYBUILDFILES_STRING_OS,int32*_SUB_PURGETEMPORARYBUILDFILES_LONG_MAC){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data126.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -qbs_set(_SUB_PURGETEMPORARYBUILDFILES_STRING_MAKE,FUNC_GETMAKEEXECUTABLE()); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26061,6,"build.bas");}while(r); -S_35046:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_PURGETEMPORARYBUILDFILES_STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ -if(qbevent){evnt(26061,8,"build.bas");if(r)goto S_35046;} -do{ -sub_shell2(qbs_add(qbs_add(qbs_new_txt_len("cmd /c ",7),_SUB_PURGETEMPORARYBUILDFILES_STRING_MAKE),qbs_new_txt_len(" OS=win clean",13)),2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26061,9,"build.bas");}while(r); -S_35048:; -}else{ -if (qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_PURGETEMPORARYBUILDFILES_STRING_OS,qbs_new_txt_len("LNX",3)))){ -if(qbevent){evnt(26061,10,"build.bas");if(r)goto S_35048;} -S_35049:; -if ((*_SUB_PURGETEMPORARYBUILDFILES_LONG_MAC)||new_error){ -if(qbevent){evnt(26061,11,"build.bas");if(r)goto S_35049;} -do{ -sub_shell2(qbs_add(_SUB_PURGETEMPORARYBUILDFILES_STRING_MAKE,qbs_new_txt_len(" OS=osx clean",13)),2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26061,12,"build.bas");}while(r); -}else{ -do{ -sub_shell2(qbs_add(_SUB_PURGETEMPORARYBUILDFILES_STRING_MAKE,qbs_new_txt_len(" OS=lnx clean",13)),2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26061,14,"build.bas");}while(r); -} -} -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free126.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -qbs* FUNC_GETMAKEEXECUTABLE(){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data127.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -S_35055:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ -if(qbevent){evnt(26061,23,"build.bas");if(r)goto S_35055;} -do{ -qbs_set(_FUNC_GETMAKEEXECUTABLE_STRING_GETMAKEEXECUTABLE,qbs_new_txt_len("internal\\c\\c_compiler\\bin\\mingw32-make.exe",42)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26061,24,"build.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_GETMAKEEXECUTABLE_STRING_GETMAKEEXECUTABLE,qbs_new_txt_len("make",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26061,26,"build.bas");}while(r); -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free127.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_GETMAKEEXECUTABLE_STRING_GETMAKEEXECUTABLE);return _FUNC_GETMAKEEXECUTABLE_STRING_GETMAKEEXECUTABLE; -} -qbs* FUNC_MAKENMOUTPUTFILENAME(qbs*_FUNC_MAKENMOUTPUTFILENAME_STRING_LIBFILE,int32*_FUNC_MAKENMOUTPUTFILENAME_LONG_DYNAMIC){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data128.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -S_35060:; -if ((*_FUNC_MAKENMOUTPUTFILENAME_LONG_DYNAMIC)||new_error){ -if(qbevent){evnt(26061,31,"build.bas");if(r)goto S_35060;} -do{ -qbs_set(_FUNC_MAKENMOUTPUTFILENAME_STRING_DYN,qbs_new_txt_len("_dynamic",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26061,31,"build.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_MAKENMOUTPUTFILENAME_STRING_DYN,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26061,31,"build.bas");}while(r); -} -do{ -qbs_set(_FUNC_MAKENMOUTPUTFILENAME_STRING_MAKENMOUTPUTFILENAME,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("nm_output_",10)),FUNC_STRREPLACE(FUNC_STRREPLACE(_FUNC_MAKENMOUTPUTFILENAME_STRING_LIBFILE,__STRING1_PATHSEP,qbs_new_txt_len(".",1)),qbs_new_txt_len(":",1),qbs_new_txt_len(".",1))),_FUNC_MAKENMOUTPUTFILENAME_STRING_DYN),qbs_new_txt_len(".txt",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26061,33,"build.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free128.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_MAKENMOUTPUTFILENAME_STRING_MAKENMOUTPUTFILENAME);return _FUNC_MAKENMOUTPUTFILENAME_STRING_MAKENMOUTPUTFILENAME; -} -qbs* FUNC_GETELEMENT(qbs*_FUNC_GETELEMENT_STRING_A,int32*_FUNC_GETELEMENT_LONG_ELENUM){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data129.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -if(!qbevent)break;evnt(26062,3,"elements.bas");}while(r); -S_35067:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GETELEMENT_STRING_A,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26062,5,"elements.bas");if(r)goto S_35067;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26062,5,"elements.bas");}while(r); -} -do{ -*_FUNC_GETELEMENT_LONG_N= 1 ; -if(!qbevent)break;evnt(26062,7,"elements.bas");}while(r); -do{ -*_FUNC_GETELEMENT_LONG_P= 1 ; -if(!qbevent)break;evnt(26062,8,"elements.bas");}while(r); -LABEL_GETELEMENTNEXT:; -if(qbevent){evnt(26062,9,"elements.bas");r=0;} -do{ -*_FUNC_GETELEMENT_LONG_I=func_instr(*_FUNC_GETELEMENT_LONG_P,_FUNC_GETELEMENT_STRING_A,__STRING1_SP,0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26062,10,"elements.bas");}while(r); -S_35073:; -if ((-(*_FUNC_GETELEMENT_LONG_ELENUM==*_FUNC_GETELEMENT_LONG_N))||new_error){ -if(qbevent){evnt(26062,12,"elements.bas");if(r)goto S_35073;} -S_35074:; -if ((*_FUNC_GETELEMENT_LONG_I)||new_error){ -if(qbevent){evnt(26062,13,"elements.bas");if(r)goto S_35074;} -do{ -qbs_set(_FUNC_GETELEMENT_STRING_GETELEMENT,func_mid(_FUNC_GETELEMENT_STRING_A,*_FUNC_GETELEMENT_LONG_P,*_FUNC_GETELEMENT_LONG_I-*_FUNC_GETELEMENT_LONG_P,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26062,14,"elements.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_GETELEMENT_STRING_GETELEMENT,qbs_right(_FUNC_GETELEMENT_STRING_A,_FUNC_GETELEMENT_STRING_A->len-*_FUNC_GETELEMENT_LONG_P+ 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26062,16,"elements.bas");}while(r); -} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26062,18,"elements.bas");}while(r); -} -S_35081:; -if ((-(*_FUNC_GETELEMENT_LONG_I== 0 ))||new_error){ -if(qbevent){evnt(26062,21,"elements.bas");if(r)goto S_35081;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26062,21,"elements.bas");}while(r); -} -do{ -*_FUNC_GETELEMENT_LONG_N=*_FUNC_GETELEMENT_LONG_N+ 1 ; -if(!qbevent)break;evnt(26062,22,"elements.bas");}while(r); -do{ -*_FUNC_GETELEMENT_LONG_P=*_FUNC_GETELEMENT_LONG_I+ 1 ; -if(!qbevent)break;evnt(26062,23,"elements.bas");}while(r); -do{ -goto LABEL_GETELEMENTNEXT; -if(!qbevent)break;evnt(26062,24,"elements.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free129.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_GETELEMENT_STRING_GETELEMENT);return _FUNC_GETELEMENT_STRING_GETELEMENT; -} -qbs* FUNC_GETELEMENTS(qbs*_FUNC_GETELEMENTS_STRING_A,int32*_FUNC_GETELEMENTS_LONG_I1,int32*_FUNC_GETELEMENTS_LONG_I2){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data130.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -if(!qbevent)break;evnt(26062,28,"elements.bas");}while(r); -S_35088:; -if ((-(*_FUNC_GETELEMENTS_LONG_I2<*_FUNC_GETELEMENTS_LONG_I1))||new_error){ -if(qbevent){evnt(26062,30,"elements.bas");if(r)goto S_35088;} -do{ -qbs_set(_FUNC_GETELEMENTS_STRING_GETELEMENTS,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26062,30,"elements.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26062,30,"elements.bas");}while(r); -} -do{ -*_FUNC_GETELEMENTS_LONG_N= 1 ; -if(!qbevent)break;evnt(26062,31,"elements.bas");}while(r); -do{ -*_FUNC_GETELEMENTS_LONG_P= 1 ; -if(!qbevent)break;evnt(26062,32,"elements.bas");}while(r); -LABEL_GETELEMENTSNEXT:; -if(qbevent){evnt(26062,33,"elements.bas");r=0;} -do{ -*_FUNC_GETELEMENTS_LONG_I=func_instr(*_FUNC_GETELEMENTS_LONG_P,_FUNC_GETELEMENTS_STRING_A,__STRING1_SP,0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26062,34,"elements.bas");}while(r); -S_35095:; -if ((-(*_FUNC_GETELEMENTS_LONG_N==*_FUNC_GETELEMENTS_LONG_I1))||new_error){ -if(qbevent){evnt(26062,35,"elements.bas");if(r)goto S_35095;} -do{ -*_FUNC_GETELEMENTS_LONG_I1POS=*_FUNC_GETELEMENTS_LONG_P; -if(!qbevent)break;evnt(26062,36,"elements.bas");}while(r); -} -S_35098:; -if ((-(*_FUNC_GETELEMENTS_LONG_N==*_FUNC_GETELEMENTS_LONG_I2))||new_error){ -if(qbevent){evnt(26062,38,"elements.bas");if(r)goto S_35098;} -S_35099:; -if ((*_FUNC_GETELEMENTS_LONG_I)||new_error){ -if(qbevent){evnt(26062,39,"elements.bas");if(r)goto S_35099;} -do{ -qbs_set(_FUNC_GETELEMENTS_STRING_GETELEMENTS,func_mid(_FUNC_GETELEMENTS_STRING_A,*_FUNC_GETELEMENTS_LONG_I1POS,*_FUNC_GETELEMENTS_LONG_I-*_FUNC_GETELEMENTS_LONG_I1POS,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26062,40,"elements.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_GETELEMENTS_STRING_GETELEMENTS,qbs_right(_FUNC_GETELEMENTS_STRING_A,_FUNC_GETELEMENTS_STRING_A->len-*_FUNC_GETELEMENTS_LONG_I1POS+ 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26062,42,"elements.bas");}while(r); -} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26062,44,"elements.bas");}while(r); -} -do{ -*_FUNC_GETELEMENTS_LONG_N=*_FUNC_GETELEMENTS_LONG_N+ 1 ; -if(!qbevent)break;evnt(26062,46,"elements.bas");}while(r); -do{ -*_FUNC_GETELEMENTS_LONG_P=*_FUNC_GETELEMENTS_LONG_I+ 1 ; -if(!qbevent)break;evnt(26062,47,"elements.bas");}while(r); -do{ -goto LABEL_GETELEMENTSNEXT; -if(!qbevent)break;evnt(26062,48,"elements.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free130.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_GETELEMENTS_STRING_GETELEMENTS);return _FUNC_GETELEMENTS_STRING_GETELEMENTS; -} -void SUB_INSERTELEMENTS(qbs*_SUB_INSERTELEMENTS_STRING_A,int32*_SUB_INSERTELEMENTS_LONG_I,qbs*_SUB_INSERTELEMENTS_STRING_ELEMENTS){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data131.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -if(!qbevent)break;evnt(26062,52,"elements.bas");}while(r); -S_35110:; -if ((-(*_SUB_INSERTELEMENTS_LONG_I== 0 ))||new_error){ -if(qbevent){evnt(26062,54,"elements.bas");if(r)goto S_35110;} -S_35111:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_INSERTELEMENTS_STRING_A,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26062,55,"elements.bas");if(r)goto S_35111;} -do{ -qbs_set(_SUB_INSERTELEMENTS_STRING_A,_SUB_INSERTELEMENTS_STRING_ELEMENTS); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26062,56,"elements.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26062,57,"elements.bas");}while(r); -} -do{ -qbs_set(_SUB_INSERTELEMENTS_STRING_A,qbs_add(qbs_add(_SUB_INSERTELEMENTS_STRING_ELEMENTS,__STRING1_SP),_SUB_INSERTELEMENTS_STRING_A)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26062,59,"elements.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26062,60,"elements.bas");}while(r); -} -do{ -qbs_set(_SUB_INSERTELEMENTS_STRING_A2,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26062,63,"elements.bas");}while(r); -do{ -*_SUB_INSERTELEMENTS_LONG_N=FUNC_NUMELEMENTS(_SUB_INSERTELEMENTS_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26062,64,"elements.bas");}while(r); -S_35120:; -fornext_value3828= 1 ; -fornext_finalvalue3828=*_SUB_INSERTELEMENTS_LONG_N; -fornext_step3828= 1 ; -if (fornext_step3828<0) fornext_step_negative3828=1; else fornext_step_negative3828=0; -if (new_error) goto fornext_error3828; -goto fornext_entrylabel3828; -while(1){ -fornext_value3828=fornext_step3828+(*_SUB_INSERTELEMENTS_LONG_I2); -fornext_entrylabel3828: -*_SUB_INSERTELEMENTS_LONG_I2=fornext_value3828; -if (fornext_step_negative3828){ -if (fornext_value3828fornext_finalvalue3828) break; -} -fornext_error3828:; -if(qbevent){evnt(26062,66,"elements.bas");if(r)goto S_35120;} -S_35121:; -if ((-(*_SUB_INSERTELEMENTS_LONG_I2> 1 ))||new_error){ -if(qbevent){evnt(26062,67,"elements.bas");if(r)goto S_35121;} -do{ -qbs_set(_SUB_INSERTELEMENTS_STRING_A2,qbs_add(_SUB_INSERTELEMENTS_STRING_A2,__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26062,67,"elements.bas");}while(r); -} -do{ -qbs_set(_SUB_INSERTELEMENTS_STRING_A2,qbs_add(_SUB_INSERTELEMENTS_STRING_A2,FUNC_GETELEMENT(_SUB_INSERTELEMENTS_STRING_A,_SUB_INSERTELEMENTS_LONG_I2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26062,68,"elements.bas");}while(r); -S_35125:; -if ((-(*_SUB_INSERTELEMENTS_LONG_I==*_SUB_INSERTELEMENTS_LONG_I2))||new_error){ -if(qbevent){evnt(26062,69,"elements.bas");if(r)goto S_35125;} -do{ -qbs_set(_SUB_INSERTELEMENTS_STRING_A2,qbs_add(qbs_add(_SUB_INSERTELEMENTS_STRING_A2,__STRING1_SP),_SUB_INSERTELEMENTS_STRING_ELEMENTS)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26062,69,"elements.bas");}while(r); -} -fornext_continue_3827:; -} -fornext_exit_3827:; -do{ -qbs_set(_SUB_INSERTELEMENTS_STRING_A,_SUB_INSERTELEMENTS_STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26062,72,"elements.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free131.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -int32 FUNC_NUMELEMENTS(qbs*_FUNC_NUMELEMENTS_STRING_A){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data132.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -if(!qbevent)break;evnt(26062,77,"elements.bas");}while(r); -S_35131:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_NUMELEMENTS_STRING_A,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26062,79,"elements.bas");if(r)goto S_35131;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26062,79,"elements.bas");}while(r); -} -do{ -*_FUNC_NUMELEMENTS_LONG_N= 1 ; -if(!qbevent)break;evnt(26062,80,"elements.bas");}while(r); -do{ -*_FUNC_NUMELEMENTS_LONG_P= 1 ; -if(!qbevent)break;evnt(26062,81,"elements.bas");}while(r); -LABEL_NUMELEMENTSNEXT:; -if(qbevent){evnt(26062,82,"elements.bas");r=0;} -do{ -*_FUNC_NUMELEMENTS_LONG_I=func_instr(*_FUNC_NUMELEMENTS_LONG_P,_FUNC_NUMELEMENTS_STRING_A,__STRING1_SP,0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26062,83,"elements.bas");}while(r); -S_35137:; -if ((-(*_FUNC_NUMELEMENTS_LONG_I== 0 ))||new_error){ -if(qbevent){evnt(26062,84,"elements.bas");if(r)goto S_35137;} -do{ -*_FUNC_NUMELEMENTS_LONG_NUMELEMENTS=*_FUNC_NUMELEMENTS_LONG_N; -if(!qbevent)break;evnt(26062,84,"elements.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26062,84,"elements.bas");}while(r); -} -do{ -*_FUNC_NUMELEMENTS_LONG_N=*_FUNC_NUMELEMENTS_LONG_N+ 1 ; -if(!qbevent)break;evnt(26062,85,"elements.bas");}while(r); -do{ -*_FUNC_NUMELEMENTS_LONG_P=*_FUNC_NUMELEMENTS_LONG_I+ 1 ; -if(!qbevent)break;evnt(26062,86,"elements.bas");}while(r); -do{ -goto LABEL_NUMELEMENTSNEXT; -if(!qbevent)break;evnt(26062,87,"elements.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free132.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -return *_FUNC_NUMELEMENTS_LONG_NUMELEMENTS; -} -void SUB_REMOVEELEMENTS(qbs*_SUB_REMOVEELEMENTS_STRING_A,int32*_SUB_REMOVEELEMENTS_LONG_FIRST,int32*_SUB_REMOVEELEMENTS_LONG_LAST,int32*_SUB_REMOVEELEMENTS_LONG_KEEPINDEXING){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data133.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -if(!qbevent)break;evnt(26062,91,"elements.bas");}while(r); -do{ -qbs_set(_SUB_REMOVEELEMENTS_STRING_A2,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26062,93,"elements.bas");}while(r); -do{ -*_SUB_REMOVEELEMENTS_LONG_N=FUNC_NUMELEMENTS(_SUB_REMOVEELEMENTS_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26062,98,"elements.bas");}while(r); -S_35147:; -fornext_value3832= 1 ; -fornext_finalvalue3832=*_SUB_REMOVEELEMENTS_LONG_N; -fornext_step3832= 1 ; -if (fornext_step3832<0) fornext_step_negative3832=1; else fornext_step_negative3832=0; -if (new_error) goto fornext_error3832; -goto fornext_entrylabel3832; -while(1){ -fornext_value3832=fornext_step3832+(*_SUB_REMOVEELEMENTS_LONG_I); -fornext_entrylabel3832: -*_SUB_REMOVEELEMENTS_LONG_I=fornext_value3832; -if (fornext_step_negative3832){ -if (fornext_value3832fornext_finalvalue3832) break; -} -fornext_error3832:; -if(qbevent){evnt(26062,99,"elements.bas");if(r)goto S_35147;} -S_35148:; -if (((-(*_SUB_REMOVEELEMENTS_LONG_I<*_SUB_REMOVEELEMENTS_LONG_FIRST))|(-(*_SUB_REMOVEELEMENTS_LONG_I>*_SUB_REMOVEELEMENTS_LONG_LAST)))||new_error){ -if(qbevent){evnt(26062,100,"elements.bas");if(r)goto S_35148;} -do{ -qbs_set(_SUB_REMOVEELEMENTS_STRING_A2,qbs_add(qbs_add(_SUB_REMOVEELEMENTS_STRING_A2,__STRING1_SP),FUNC_GETELEMENT(_SUB_REMOVEELEMENTS_STRING_A,_SUB_REMOVEELEMENTS_LONG_I))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26062,101,"elements.bas");}while(r); -}else{ -S_35151:; -if ((*_SUB_REMOVEELEMENTS_LONG_KEEPINDEXING)||new_error){ -if(qbevent){evnt(26062,103,"elements.bas");if(r)goto S_35151;} -do{ -qbs_set(_SUB_REMOVEELEMENTS_STRING_A2,qbs_add(_SUB_REMOVEELEMENTS_STRING_A2,__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26062,103,"elements.bas");}while(r); -} -} -fornext_continue_3831:; -} -fornext_exit_3831:; -S_35156:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_REMOVEELEMENTS_STRING_A2, 1 ),__STRING1_SP)))||new_error){ -if(qbevent){evnt(26062,106,"elements.bas");if(r)goto S_35156;} -do{ -qbs_set(_SUB_REMOVEELEMENTS_STRING_A2,qbs_right(_SUB_REMOVEELEMENTS_STRING_A2,_SUB_REMOVEELEMENTS_STRING_A2->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26062,106,"elements.bas");}while(r); -} -do{ -qbs_set(_SUB_REMOVEELEMENTS_STRING_A,_SUB_REMOVEELEMENTS_STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26062,108,"elements.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free133.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -int32 FUNC_COUNTFUNCTIONELEMENTS(qbs*_FUNC_COUNTFUNCTIONELEMENTS_STRING_A){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data134.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -if(!qbevent)break;evnt(26062,115,"elements.bas");}while(r); -do{ -*_FUNC_COUNTFUNCTIONELEMENTS_LONG_P= 1 ; -if(!qbevent)break;evnt(26062,116,"elements.bas");}while(r); -do{ -*_FUNC_COUNTFUNCTIONELEMENTS_LONG_LVL= 1 ; -if(!qbevent)break;evnt(26062,117,"elements.bas");}while(r); -do{ -*_FUNC_COUNTFUNCTIONELEMENTS_LONG_I= 0 ; -if(!qbevent)break;evnt(26062,118,"elements.bas");}while(r); -S_35164:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_COUNTFUNCTIONELEMENTS_STRING_A->len== 0 )))||new_error){ -if(qbevent){evnt(26062,120,"elements.bas");if(r)goto S_35164;} -do{ -*_FUNC_COUNTFUNCTIONELEMENTS_LONG_COUNTFUNCTIONELEMENTS= 0 ; -if(!qbevent)break;evnt(26062,121,"elements.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26062,122,"elements.bas");}while(r); -} -S_35168:; -do{ -if(qbevent){evnt(26062,125,"elements.bas");if(r)goto S_35168;} -S_35169:; -sc_3837=qbs_asc(_FUNC_COUNTFUNCTIONELEMENTS_STRING_A,*_FUNC_COUNTFUNCTIONELEMENTS_LONG_I+ 1 ); -qbs_cleanup(qbs_tmp_base,0); -if(qbevent){evnt(26062,126,"elements.bas");if(r)goto S_35169;} -S_35170:; -if ((qbs_cleanup(qbs_tmp_base,(sc_3837==(qbs_asc(qbs_new_txt_len("(",1))))))||new_error){ -if(qbevent){evnt(26062,127,"elements.bas");if(r)goto S_35170;} -do{ -*_FUNC_COUNTFUNCTIONELEMENTS_LONG_LVL=*_FUNC_COUNTFUNCTIONELEMENTS_LONG_LVL+ 1 ; -if(!qbevent)break;evnt(26062,128,"elements.bas");}while(r); -sc_ec_195_end:; -goto sc_3837_end; -} -S_35172:; -if ((qbs_cleanup(qbs_tmp_base,(sc_3837==(qbs_asc(qbs_new_txt_len(")",1))))))||new_error){ -if(qbevent){evnt(26062,130,"elements.bas");if(r)goto S_35172;} -do{ -*_FUNC_COUNTFUNCTIONELEMENTS_LONG_LVL=*_FUNC_COUNTFUNCTIONELEMENTS_LONG_LVL- 1 ; -if(!qbevent)break;evnt(26062,131,"elements.bas");}while(r); -sc_ec_196_end:; -goto sc_3837_end; -} -S_35174:; -if ((qbs_cleanup(qbs_tmp_base,(sc_3837==(qbs_asc(qbs_new_txt_len(",",1))))))||new_error){ -if(qbevent){evnt(26062,133,"elements.bas");if(r)goto S_35174;} -S_35175:; -if ((-(*_FUNC_COUNTFUNCTIONELEMENTS_LONG_LVL== 1 ))||new_error){ -if(qbevent){evnt(26062,134,"elements.bas");if(r)goto S_35175;} -do{ -*_FUNC_COUNTFUNCTIONELEMENTS_LONG_COUNT=*_FUNC_COUNTFUNCTIONELEMENTS_LONG_COUNT+ 1 ; -if(!qbevent)break;evnt(26062,135,"elements.bas");}while(r); -} -sc_ec_197_end:; -goto sc_3837_end; -} -sc_3837_end:; -do{ -*_FUNC_COUNTFUNCTIONELEMENTS_LONG_I=func_instr(*_FUNC_COUNTFUNCTIONELEMENTS_LONG_P,_FUNC_COUNTFUNCTIONELEMENTS_STRING_A,__STRING1_SP,0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26062,140,"elements.bas");}while(r); -S_35180:; -if ((-(*_FUNC_COUNTFUNCTIONELEMENTS_LONG_I== 0 ))||new_error){ -if(qbevent){evnt(26062,141,"elements.bas");if(r)goto S_35180;} -do{ -goto dl_exit_3836; -if(!qbevent)break;evnt(26062,142,"elements.bas");}while(r); -} -do{ -*_FUNC_COUNTFUNCTIONELEMENTS_LONG_P=*_FUNC_COUNTFUNCTIONELEMENTS_LONG_I+ 1 ; -if(!qbevent)break;evnt(26062,145,"elements.bas");}while(r); -dl_continue_3836:; -}while(1); -dl_exit_3836:; -do{ -*_FUNC_COUNTFUNCTIONELEMENTS_LONG_COUNTFUNCTIONELEMENTS=*_FUNC_COUNTFUNCTIONELEMENTS_LONG_COUNT+ 1 ; -if(!qbevent)break;evnt(26062,149,"elements.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free134.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -return *_FUNC_COUNTFUNCTIONELEMENTS_LONG_COUNTFUNCTIONELEMENTS; -} -int32 FUNC_HASFUNCTIONELEMENT(qbs*_FUNC_HASFUNCTIONELEMENT_STRING_A,int32*_FUNC_HASFUNCTIONELEMENT_LONG_ELEMENT){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data135.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -if(!qbevent)break;evnt(26062,155,"elements.bas");}while(r); -do{ -*_FUNC_HASFUNCTIONELEMENT_LONG_START= 0 ; -if(!qbevent)break;evnt(26062,156,"elements.bas");}while(r); -do{ -*_FUNC_HASFUNCTIONELEMENT_LONG_P= 1 ; -if(!qbevent)break;evnt(26062,157,"elements.bas");}while(r); -do{ -*_FUNC_HASFUNCTIONELEMENT_LONG_LVL= 1 ; -if(!qbevent)break;evnt(26062,158,"elements.bas");}while(r); -do{ -*_FUNC_HASFUNCTIONELEMENT_LONG_I= 1 ; -if(!qbevent)break;evnt(26062,159,"elements.bas");}while(r); -S_35191:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_HASFUNCTIONELEMENT_STRING_A->len== 0 )))||new_error){ -if(qbevent){evnt(26062,161,"elements.bas");if(r)goto S_35191;} -do{ -*_FUNC_HASFUNCTIONELEMENT_LONG_HASFUNCTIONELEMENT= 0 ; -if(!qbevent)break;evnt(26062,162,"elements.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26062,163,"elements.bas");}while(r); -} -S_35195:; -if ((qbs_cleanup(qbs_tmp_base,(-(func_instr(NULL,_FUNC_HASFUNCTIONELEMENT_STRING_A,__STRING1_SP,0)== 0 ))&(-(_FUNC_HASFUNCTIONELEMENT_STRING_A->len!= 0 ))))||new_error){ -if(qbevent){evnt(26062,167,"elements.bas");if(r)goto S_35195;} -do{ -*_FUNC_HASFUNCTIONELEMENT_LONG_HASFUNCTIONELEMENT=-(*_FUNC_HASFUNCTIONELEMENT_LONG_ELEMENT== 1 ); -if(!qbevent)break;evnt(26062,168,"elements.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26062,169,"elements.bas");}while(r); -} -S_35199:; -do{ -if(qbevent){evnt(26062,172,"elements.bas");if(r)goto S_35199;} -S_35200:; -if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_HASFUNCTIONELEMENT_LONG_I>_FUNC_HASFUNCTIONELEMENT_STRING_A->len)))||new_error){ -if(qbevent){evnt(26062,173,"elements.bas");if(r)goto S_35200;} -do{ -goto dl_exit_3841; -if(!qbevent)break;evnt(26062,174,"elements.bas");}while(r); -} -S_35203:; -sc_3843=qbs_asc(_FUNC_HASFUNCTIONELEMENT_STRING_A,*_FUNC_HASFUNCTIONELEMENT_LONG_I); -qbs_cleanup(qbs_tmp_base,0); -if(qbevent){evnt(26062,177,"elements.bas");if(r)goto S_35203;} -S_35204:; -if ((qbs_cleanup(qbs_tmp_base,(sc_3843==(qbs_asc(qbs_new_txt_len("(",1))))))||new_error){ -if(qbevent){evnt(26062,178,"elements.bas");if(r)goto S_35204;} -do{ -*_FUNC_HASFUNCTIONELEMENT_LONG_LVL=*_FUNC_HASFUNCTIONELEMENT_LONG_LVL+ 1 ; -if(!qbevent)break;evnt(26062,179,"elements.bas");}while(r); -sc_ec_198_end:; -goto sc_3843_end; -} -S_35206:; -if ((qbs_cleanup(qbs_tmp_base,(sc_3843==(qbs_asc(qbs_new_txt_len(")",1))))))||new_error){ -if(qbevent){evnt(26062,181,"elements.bas");if(r)goto S_35206;} -do{ -*_FUNC_HASFUNCTIONELEMENT_LONG_LVL=*_FUNC_HASFUNCTIONELEMENT_LONG_LVL- 1 ; -if(!qbevent)break;evnt(26062,182,"elements.bas");}while(r); -sc_ec_199_end:; -goto sc_3843_end; -} -S_35208:; -if ((qbs_cleanup(qbs_tmp_base,(sc_3843==(qbs_asc(qbs_new_txt_len(",",1))))))||new_error){ -if(qbevent){evnt(26062,184,"elements.bas");if(r)goto S_35208;} -S_35209:; -if ((-(*_FUNC_HASFUNCTIONELEMENT_LONG_LVL== 1 ))||new_error){ -if(qbevent){evnt(26062,185,"elements.bas");if(r)goto S_35209;} -do{ -*_FUNC_HASFUNCTIONELEMENT_LONG_COUNT=*_FUNC_HASFUNCTIONELEMENT_LONG_COUNT+ 1 ; -if(!qbevent)break;evnt(26062,186,"elements.bas");}while(r); -S_35211:; -if ((-(*_FUNC_HASFUNCTIONELEMENT_LONG_ELEMENT==*_FUNC_HASFUNCTIONELEMENT_LONG_COUNT))||new_error){ -if(qbevent){evnt(26062,188,"elements.bas");if(r)goto S_35211;} -do{ -*_FUNC_HASFUNCTIONELEMENT_LONG_HASFUNCTIONELEMENT=(-(*_FUNC_HASFUNCTIONELEMENT_LONG_I!= 1 ))&(-((*_FUNC_HASFUNCTIONELEMENT_LONG_I- 2 )!=*_FUNC_HASFUNCTIONELEMENT_LONG_START)); -if(!qbevent)break;evnt(26062,191,"elements.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26062,192,"elements.bas");}while(r); -} -do{ -*_FUNC_HASFUNCTIONELEMENT_LONG_START=*_FUNC_HASFUNCTIONELEMENT_LONG_I; -if(!qbevent)break;evnt(26062,195,"elements.bas");}while(r); -} -sc_ec_200_end:; -goto sc_3843_end; -} -sc_3843_end:; -do{ -*_FUNC_HASFUNCTIONELEMENT_LONG_P=*_FUNC_HASFUNCTIONELEMENT_LONG_I; -if(!qbevent)break;evnt(26062,199,"elements.bas");}while(r); -do{ -*_FUNC_HASFUNCTIONELEMENT_LONG_I=func_instr(*_FUNC_HASFUNCTIONELEMENT_LONG_I,_FUNC_HASFUNCTIONELEMENT_STRING_A,__STRING1_SP,0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26062,200,"elements.bas");}while(r); -S_35220:; -if ((-(*_FUNC_HASFUNCTIONELEMENT_LONG_I== 0 ))||new_error){ -if(qbevent){evnt(26062,202,"elements.bas");if(r)goto S_35220;} -do{ -goto dl_exit_3841; -if(!qbevent)break;evnt(26062,203,"elements.bas");}while(r); -} -do{ -*_FUNC_HASFUNCTIONELEMENT_LONG_I=*_FUNC_HASFUNCTIONELEMENT_LONG_I+ 1 ; -if(!qbevent)break;evnt(26062,206,"elements.bas");}while(r); -dl_continue_3841:; -}while(1); -dl_exit_3841:; -S_35225:; -if ((-(*_FUNC_HASFUNCTIONELEMENT_LONG_ELEMENT>(*_FUNC_HASFUNCTIONELEMENT_LONG_COUNT+ 1 )))||new_error){ -if(qbevent){evnt(26062,209,"elements.bas");if(r)goto S_35225;} -do{ -*_FUNC_HASFUNCTIONELEMENT_LONG_HASFUNCTIONELEMENT= 0 ; -if(!qbevent)break;evnt(26062,210,"elements.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26062,211,"elements.bas");}while(r); -} -S_35229:; -if ((-(*_FUNC_HASFUNCTIONELEMENT_LONG_P> 0 ))||new_error){ -if(qbevent){evnt(26062,218,"elements.bas");if(r)goto S_35229;} -S_35230:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_HASFUNCTIONELEMENT_STRING_A,*_FUNC_HASFUNCTIONELEMENT_LONG_P)!=qbs_asc(qbs_new_txt_len(",",1)))))||new_error){ -if(qbevent){evnt(26062,219,"elements.bas");if(r)goto S_35230;} -do{ -*_FUNC_HASFUNCTIONELEMENT_LONG_HASFUNCTIONELEMENT= -1 ; -if(!qbevent)break;evnt(26062,220,"elements.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26062,221,"elements.bas");}while(r); -} -} -do{ -*_FUNC_HASFUNCTIONELEMENT_LONG_HASFUNCTIONELEMENT= 0 ; -if(!qbevent)break;evnt(26062,225,"elements.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free135.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -return *_FUNC_HASFUNCTIONELEMENT_LONG_HASFUNCTIONELEMENT; -} -int32 FUNC_ISVALIDARGSET(qbs*_FUNC_ISVALIDARGSET_STRING_FORMAT,ptrszint*_FUNC_ISVALIDARGSET_ARRAY_LONG_PROVIDEDARGS,int32*_FUNC_ISVALIDARGSET_LONG_FIRSTOPTIONALARGUMENT){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data136.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -if(!qbevent)break;evnt(26062,231,"elements.bas");}while(r); -do{ -if(!qbevent)break;evnt(26062,232,"elements.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26028);}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free108.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +int32 FUNC_COMPAREVERSIONS(qbs*_FUNC_COMPAREVERSIONS_STRING_V,qbs*_FUNC_COMPAREVERSIONS_STRING_V1){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data109.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +qbs_set(_FUNC_COMPAREVERSIONS_STRING_T,_FUNC_COMPAREVERSIONS_STRING_V); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26032);}while(r); +do{ +qbs_set(_FUNC_COMPAREVERSIONS_STRING_T1,_FUNC_COMPAREVERSIONS_STRING_V1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26032);}while(r); +S_34840:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_FUNC_COMPAREVERSIONS_STRING_T, 8 ),qbs_new_txt_len("-UNKNOWN",8))))||new_error){ +if(qbevent){evnt(26033);if(r)goto S_34840;} +do{ +qbs_set(_FUNC_COMPAREVERSIONS_STRING_T,qbs_left(_FUNC_COMPAREVERSIONS_STRING_T,_FUNC_COMPAREVERSIONS_STRING_T->len- 8 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26033);}while(r); +} +S_34843:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_FUNC_COMPAREVERSIONS_STRING_T1, 8 ),qbs_new_txt_len("-UNKNOWN",8))))||new_error){ +if(qbevent){evnt(26034);if(r)goto S_34843;} +do{ +qbs_set(_FUNC_COMPAREVERSIONS_STRING_T1,qbs_left(_FUNC_COMPAREVERSIONS_STRING_T1,_FUNC_COMPAREVERSIONS_STRING_T1->len- 8 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26034);}while(r); +} +S_34846:; +do{ +if(qbevent){evnt(26035);if(r)goto S_34846;} +do{ +*_FUNC_COMPAREVERSIONS_LONG_L=func_instr(NULL,_FUNC_COMPAREVERSIONS_STRING_T,qbs_new_txt_len(".",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26036);}while(r); +do{ +*_FUNC_COMPAREVERSIONS_LONG_L1=func_instr(NULL,_FUNC_COMPAREVERSIONS_STRING_T1,qbs_new_txt_len(".",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26036);}while(r); +S_34849:; +if ((*_FUNC_COMPAREVERSIONS_LONG_L)||new_error){ +if(qbevent){evnt(26037);if(r)goto S_34849;} +do{ +*_FUNC_COMPAREVERSIONS_LONG_V=qbr(func_val(qbs_left(_FUNC_COMPAREVERSIONS_STRING_T,*_FUNC_COMPAREVERSIONS_LONG_L- 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26038);}while(r); +do{ +qbs_set(_FUNC_COMPAREVERSIONS_STRING_T,func_mid(_FUNC_COMPAREVERSIONS_STRING_T,*_FUNC_COMPAREVERSIONS_LONG_L+ 1 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26039);}while(r); +}else{ +do{ +*_FUNC_COMPAREVERSIONS_LONG_V=qbr(func_val(_FUNC_COMPAREVERSIONS_STRING_T)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26041);}while(r); +do{ +qbs_set(_FUNC_COMPAREVERSIONS_STRING_T,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26042);}while(r); +} +S_34856:; +if ((*_FUNC_COMPAREVERSIONS_LONG_L1)||new_error){ +if(qbevent){evnt(26044);if(r)goto S_34856;} +do{ +*_FUNC_COMPAREVERSIONS_LONG_V1=qbr(func_val(qbs_left(_FUNC_COMPAREVERSIONS_STRING_T1,*_FUNC_COMPAREVERSIONS_LONG_L1- 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26045);}while(r); +do{ +qbs_set(_FUNC_COMPAREVERSIONS_STRING_T1,func_mid(_FUNC_COMPAREVERSIONS_STRING_T1,*_FUNC_COMPAREVERSIONS_LONG_L1+ 1 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26046);}while(r); +}else{ +do{ +*_FUNC_COMPAREVERSIONS_LONG_V1=qbr(func_val(_FUNC_COMPAREVERSIONS_STRING_T1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26048);}while(r); +do{ +qbs_set(_FUNC_COMPAREVERSIONS_STRING_T1,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26049);}while(r); +} +S_34863:; +if ((-(*_FUNC_COMPAREVERSIONS_LONG_V<*_FUNC_COMPAREVERSIONS_LONG_V1))||new_error){ +if(qbevent){evnt(26051);if(r)goto S_34863;} +do{ +*_FUNC_COMPAREVERSIONS_LONG_COMPAREVERSIONS= -1 ; +if(!qbevent)break;evnt(26051);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26051);}while(r); +} +S_34867:; +if ((-(*_FUNC_COMPAREVERSIONS_LONG_V>*_FUNC_COMPAREVERSIONS_LONG_V1))||new_error){ +if(qbevent){evnt(26052);if(r)goto S_34867;} +do{ +*_FUNC_COMPAREVERSIONS_LONG_COMPAREVERSIONS= 1 ; +if(!qbevent)break;evnt(26052);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26052);}while(r); +} +S_34871:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_COMPAREVERSIONS_STRING_T,qbs_new_txt_len("",0)))&(qbs_equal(_FUNC_COMPAREVERSIONS_STRING_T1,qbs_new_txt_len("",0)))))||new_error){ +if(qbevent){evnt(26053);if(r)goto S_34871;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26053);}while(r); +} +S_34874:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_COMPAREVERSIONS_STRING_T,qbs_new_txt_len("",0)))&(qbs_notequal(_FUNC_COMPAREVERSIONS_STRING_T1,qbs_new_txt_len("",0)))))||new_error){ +if(qbevent){evnt(26054);if(r)goto S_34874;} +do{ +*_FUNC_COMPAREVERSIONS_LONG_COMPAREVERSIONS= -1 ; +if(!qbevent)break;evnt(26054);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26054);}while(r); +} +S_34878:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_COMPAREVERSIONS_STRING_T1,qbs_new_txt_len("",0)))&(qbs_notequal(_FUNC_COMPAREVERSIONS_STRING_T,qbs_new_txt_len("",0)))))||new_error){ +if(qbevent){evnt(26055);if(r)goto S_34878;} +do{ +*_FUNC_COMPAREVERSIONS_LONG_COMPAREVERSIONS= 1 ; +if(!qbevent)break;evnt(26055);}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26055);}while(r); +} +dl_continue_3763:; +}while(1); +dl_exit_3763:; +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free109.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +return *_FUNC_COMPAREVERSIONS_LONG_COMPAREVERSIONS; +} +qbs* FUNC_STRREMOVE(qbs*_FUNC_STRREMOVE_STRING_MYSTRING,qbs*_FUNC_STRREMOVE_STRING_WHATTOREMOVE){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data110.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +if(!qbevent)break;evnt(26059,6,"strings.bas");}while(r); +do{ +if(!qbevent)break;evnt(26059,7,"strings.bas");}while(r); +do{ +qbs_set(_FUNC_STRREMOVE_STRING_A,_FUNC_STRREMOVE_STRING_MYSTRING); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26059,9,"strings.bas");}while(r); +do{ +qbs_set(_FUNC_STRREMOVE_STRING_B,qbs_lcase(_FUNC_STRREMOVE_STRING_WHATTOREMOVE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26059,10,"strings.bas");}while(r); +do{ +*_FUNC_STRREMOVE_LONG_I=func_instr(NULL,qbs_lcase(_FUNC_STRREMOVE_STRING_A),_FUNC_STRREMOVE_STRING_B,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26059,11,"strings.bas");}while(r); +S_34888:; +while((*_FUNC_STRREMOVE_LONG_I)||new_error){ +if(qbevent){evnt(26059,12,"strings.bas");if(r)goto S_34888;} +do{ +qbs_set(_FUNC_STRREMOVE_STRING_A,qbs_add(qbs_left(_FUNC_STRREMOVE_STRING_A,*_FUNC_STRREMOVE_LONG_I- 1 ),qbs_right(_FUNC_STRREMOVE_STRING_A,_FUNC_STRREMOVE_STRING_A->len-*_FUNC_STRREMOVE_LONG_I-_FUNC_STRREMOVE_STRING_B->len+ 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26059,13,"strings.bas");}while(r); +do{ +*_FUNC_STRREMOVE_LONG_I=func_instr(NULL,qbs_lcase(_FUNC_STRREMOVE_STRING_A),_FUNC_STRREMOVE_STRING_B,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26059,14,"strings.bas");}while(r); +dl_continue_3766:; +} +dl_exit_3766:; +do{ +qbs_set(_FUNC_STRREMOVE_STRING_STRREMOVE,_FUNC_STRREMOVE_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26059,16,"strings.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free110.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_STRREMOVE_STRING_STRREMOVE);return _FUNC_STRREMOVE_STRING_STRREMOVE; +} +qbs* FUNC_STRREPLACE(qbs*_FUNC_STRREPLACE_STRING_MYSTRING,qbs*_FUNC_STRREPLACE_STRING_FIND,qbs*_FUNC_STRREPLACE_STRING_REPLACEWITH){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data111.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +if(!qbevent)break;evnt(26059,20,"strings.bas");}while(r); +do{ +if(!qbevent)break;evnt(26059,21,"strings.bas");}while(r); +S_34895:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_STRREPLACE_STRING_MYSTRING->len== 0 )))||new_error){ +if(qbevent){evnt(26059,22,"strings.bas");if(r)goto S_34895;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26059,22,"strings.bas");}while(r); +} +do{ +qbs_set(_FUNC_STRREPLACE_STRING_A,_FUNC_STRREPLACE_STRING_MYSTRING); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26059,23,"strings.bas");}while(r); +do{ +qbs_set(_FUNC_STRREPLACE_STRING_B,qbs_lcase(_FUNC_STRREPLACE_STRING_FIND)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26059,24,"strings.bas");}while(r); +do{ +*_FUNC_STRREPLACE_LONG_BASEI= 1 ; +if(!qbevent)break;evnt(26059,25,"strings.bas");}while(r); +do{ +*_FUNC_STRREPLACE_LONG_I=func_instr(*_FUNC_STRREPLACE_LONG_BASEI,qbs_lcase(_FUNC_STRREPLACE_STRING_A),_FUNC_STRREPLACE_STRING_B,0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26059,26,"strings.bas");}while(r); +S_34902:; +while((*_FUNC_STRREPLACE_LONG_I)||new_error){ +if(qbevent){evnt(26059,27,"strings.bas");if(r)goto S_34902;} +do{ +qbs_set(_FUNC_STRREPLACE_STRING_A,qbs_add(qbs_add(qbs_left(_FUNC_STRREPLACE_STRING_A,*_FUNC_STRREPLACE_LONG_I- 1 ),_FUNC_STRREPLACE_STRING_REPLACEWITH),qbs_right(_FUNC_STRREPLACE_STRING_A,_FUNC_STRREPLACE_STRING_A->len-*_FUNC_STRREPLACE_LONG_I-_FUNC_STRREPLACE_STRING_B->len+ 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26059,28,"strings.bas");}while(r); +do{ +*_FUNC_STRREPLACE_LONG_BASEI=*_FUNC_STRREPLACE_LONG_I+_FUNC_STRREPLACE_STRING_REPLACEWITH->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26059,29,"strings.bas");}while(r); +do{ +*_FUNC_STRREPLACE_LONG_I=func_instr(*_FUNC_STRREPLACE_LONG_BASEI,qbs_lcase(_FUNC_STRREPLACE_STRING_A),_FUNC_STRREPLACE_STRING_B,0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26059,30,"strings.bas");}while(r); +dl_continue_3773:; +} +dl_exit_3773:; +do{ +qbs_set(_FUNC_STRREPLACE_STRING_STRREPLACE,_FUNC_STRREPLACE_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26059,32,"strings.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free111.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_STRREPLACE_STRING_STRREPLACE);return _FUNC_STRREPLACE_STRING_STRREPLACE; +} +qbs* FUNC_ADDQUOTES(qbs*_FUNC_ADDQUOTES_STRING_S){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data112.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +qbs_set(_FUNC_ADDQUOTES_STRING_ADDQUOTES,qbs_add(qbs_add(func_chr( 34 ),_FUNC_ADDQUOTES_STRING_S),func_chr( 34 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26059,36,"strings.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free112.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_ADDQUOTES_STRING_ADDQUOTES);return _FUNC_ADDQUOTES_STRING_ADDQUOTES; +} +qbs* FUNC_BOOLTOTFSTRING(int32*_FUNC_BOOLTOTFSTRING_LONG_B){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data113.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +S_34909:; +if ((*_FUNC_BOOLTOTFSTRING_LONG_B)||new_error){ +if(qbevent){evnt(26059,43,"strings.bas");if(r)goto S_34909;} +do{ +qbs_set(_FUNC_BOOLTOTFSTRING_STRING_BOOLTOTFSTRING,qbs_new_txt_len("True",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26059,44,"strings.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_BOOLTOTFSTRING_STRING_BOOLTOTFSTRING,qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26059,46,"strings.bas");}while(r); +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free113.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_BOOLTOTFSTRING_STRING_BOOLTOTFSTRING);return _FUNC_BOOLTOTFSTRING_STRING_BOOLTOTFSTRING; +} +int16 FUNC_TFSTRINGTOBOOL(qbs*_FUNC_TFSTRINGTOBOOL_STRING_S){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data114.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +if(!qbevent)break;evnt(26059,56,"strings.bas");}while(r); +do{ +qbs_set(_FUNC_TFSTRINGTOBOOL_STRING_S2,qbs__trim(qbs_ucase(_FUNC_TFSTRINGTOBOOL_STRING_S))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26059,57,"strings.bas");}while(r); +S_34916:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TFSTRINGTOBOOL_STRING_S2,qbs_new_txt_len("TRUE",4))))||new_error){ +if(qbevent){evnt(26059,59,"strings.bas");if(r)goto S_34916;} +do{ +*_FUNC_TFSTRINGTOBOOL_INTEGER_TFSTRINGTOBOOL= -1 ; +if(!qbevent)break;evnt(26059,60,"strings.bas");}while(r); +S_34918:; +}else{ +if (qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_TFSTRINGTOBOOL_STRING_S2,qbs_new_txt_len("FALSE",5)))){ +if(qbevent){evnt(26059,61,"strings.bas");if(r)goto S_34918;} +do{ +*_FUNC_TFSTRINGTOBOOL_INTEGER_TFSTRINGTOBOOL= 0 ; +if(!qbevent)break;evnt(26059,62,"strings.bas");}while(r); +}else{ +do{ +*_FUNC_TFSTRINGTOBOOL_INTEGER_TFSTRINGTOBOOL= -2 ; +if(!qbevent)break;evnt(26059,64,"strings.bas");}while(r); +} +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free114.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +return *_FUNC_TFSTRINGTOBOOL_INTEGER_TFSTRINGTOBOOL; +} +int16 FUNC_READWRITEBOOLEANSETTINGVALUE(qbs*_FUNC_READWRITEBOOLEANSETTINGVALUE_STRING_SECTION,qbs*_FUNC_READWRITEBOOLEANSETTINGVALUE_STRING_SETTING,int16*_FUNC_READWRITEBOOLEANSETTINGVALUE_INTEGER_DEFAULT){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data115.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +if(!qbevent)break;evnt(26059,72,"strings.bas");}while(r); +do{ +if(!qbevent)break;evnt(26059,73,"strings.bas");}while(r); +do{ +if(!qbevent)break;evnt(26059,74,"strings.bas");}while(r); +do{ +*_FUNC_READWRITEBOOLEANSETTINGVALUE_INTEGER_RESULT=FUNC_READCONFIGSETTING(_FUNC_READWRITEBOOLEANSETTINGVALUE_STRING_SECTION,_FUNC_READWRITEBOOLEANSETTINGVALUE_STRING_SETTING,_FUNC_READWRITEBOOLEANSETTINGVALUE_STRING_VALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26059,76,"strings.bas");}while(r); +do{ +*_FUNC_READWRITEBOOLEANSETTINGVALUE_INTEGER_CHECKRESULT=FUNC_TFSTRINGTOBOOL(_FUNC_READWRITEBOOLEANSETTINGVALUE_STRING_VALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26059,78,"strings.bas");}while(r); +S_34928:; +if ((-(*_FUNC_READWRITEBOOLEANSETTINGVALUE_INTEGER_CHECKRESULT== -2 ))||new_error){ +if(qbevent){evnt(26059,80,"strings.bas");if(r)goto S_34928;} +do{ +SUB_WRITECONFIGSETTING(_FUNC_READWRITEBOOLEANSETTINGVALUE_STRING_SECTION,_FUNC_READWRITEBOOLEANSETTINGVALUE_STRING_SETTING,FUNC_BOOLTOTFSTRING(&(pass3781=*_FUNC_READWRITEBOOLEANSETTINGVALUE_INTEGER_DEFAULT))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26059,81,"strings.bas");}while(r); +do{ +*_FUNC_READWRITEBOOLEANSETTINGVALUE_INTEGER_READWRITEBOOLEANSETTINGVALUE=*_FUNC_READWRITEBOOLEANSETTINGVALUE_INTEGER_DEFAULT; +if(!qbevent)break;evnt(26059,82,"strings.bas");}while(r); +}else{ +do{ +*_FUNC_READWRITEBOOLEANSETTINGVALUE_INTEGER_READWRITEBOOLEANSETTINGVALUE=*_FUNC_READWRITEBOOLEANSETTINGVALUE_INTEGER_CHECKRESULT; +if(!qbevent)break;evnt(26059,84,"strings.bas");}while(r); +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free115.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +return *_FUNC_READWRITEBOOLEANSETTINGVALUE_INTEGER_READWRITEBOOLEANSETTINGVALUE; +} +qbs* FUNC_READWRITESTRINGSETTINGVALUE(qbs*_FUNC_READWRITESTRINGSETTINGVALUE_STRING_SECTION,qbs*_FUNC_READWRITESTRINGSETTINGVALUE_STRING_SETTING,qbs*_FUNC_READWRITESTRINGSETTINGVALUE_STRING_DEFAULT){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data116.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +if(!qbevent)break;evnt(26059,92,"strings.bas");}while(r); +do{ +if(!qbevent)break;evnt(26059,93,"strings.bas");}while(r); +do{ +*_FUNC_READWRITESTRINGSETTINGVALUE_INTEGER_RESULT=FUNC_READCONFIGSETTING(_FUNC_READWRITESTRINGSETTINGVALUE_STRING_SECTION,_FUNC_READWRITESTRINGSETTINGVALUE_STRING_SETTING,_FUNC_READWRITESTRINGSETTINGVALUE_STRING_VALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26059,95,"strings.bas");}while(r); +S_34937:; +if ((-(*_FUNC_READWRITESTRINGSETTINGVALUE_INTEGER_RESULT== 0 ))||new_error){ +if(qbevent){evnt(26059,97,"strings.bas");if(r)goto S_34937;} +do{ +SUB_WRITECONFIGSETTING(_FUNC_READWRITESTRINGSETTINGVALUE_STRING_SECTION,_FUNC_READWRITESTRINGSETTINGVALUE_STRING_SETTING,_FUNC_READWRITESTRINGSETTINGVALUE_STRING_DEFAULT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26059,98,"strings.bas");}while(r); +do{ +qbs_set(_FUNC_READWRITESTRINGSETTINGVALUE_STRING_READWRITESTRINGSETTINGVALUE,_FUNC_READWRITESTRINGSETTINGVALUE_STRING_DEFAULT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26059,99,"strings.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_READWRITESTRINGSETTINGVALUE_STRING_READWRITESTRINGSETTINGVALUE,_FUNC_READWRITESTRINGSETTINGVALUE_STRING_VALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26059,101,"strings.bas");}while(r); +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free116.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_READWRITESTRINGSETTINGVALUE_STRING_READWRITESTRINGSETTINGVALUE);return _FUNC_READWRITESTRINGSETTINGVALUE_STRING_READWRITESTRINGSETTINGVALUE; +} +int32 FUNC_READWRITELONGSETTINGVALUE(qbs*_FUNC_READWRITELONGSETTINGVALUE_STRING_SECTION,qbs*_FUNC_READWRITELONGSETTINGVALUE_STRING_SETTING,int32*_FUNC_READWRITELONGSETTINGVALUE_LONG_DEFAULT){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data117.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +if(!qbevent)break;evnt(26059,111,"strings.bas");}while(r); +do{ +if(!qbevent)break;evnt(26059,112,"strings.bas");}while(r); +do{ +if(!qbevent)break;evnt(26059,113,"strings.bas");}while(r); +do{ +*_FUNC_READWRITELONGSETTINGVALUE_INTEGER_RESULT=FUNC_READCONFIGSETTING(_FUNC_READWRITELONGSETTINGVALUE_STRING_SECTION,_FUNC_READWRITELONGSETTINGVALUE_STRING_SETTING,_FUNC_READWRITELONGSETTINGVALUE_STRING_VALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26059,115,"strings.bas");}while(r); +do{ +*_FUNC_READWRITELONGSETTINGVALUE_LONG_CHECKRESULT=qbr(func_val(_FUNC_READWRITELONGSETTINGVALUE_STRING_VALUE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26059,117,"strings.bas");}while(r); +S_34948:; +if (((-(*_FUNC_READWRITELONGSETTINGVALUE_INTEGER_RESULT== 0 ))|(-(*_FUNC_READWRITELONGSETTINGVALUE_LONG_CHECKRESULT<= 0 )))||new_error){ +if(qbevent){evnt(26059,119,"strings.bas");if(r)goto S_34948;} +do{ +SUB_WRITECONFIGSETTING(_FUNC_READWRITELONGSETTINGVALUE_STRING_SECTION,_FUNC_READWRITELONGSETTINGVALUE_STRING_SETTING,FUNC_STR2(_FUNC_READWRITELONGSETTINGVALUE_LONG_DEFAULT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26059,120,"strings.bas");}while(r); +do{ +*_FUNC_READWRITELONGSETTINGVALUE_LONG_READWRITELONGSETTINGVALUE=*_FUNC_READWRITELONGSETTINGVALUE_LONG_DEFAULT; +if(!qbevent)break;evnt(26059,121,"strings.bas");}while(r); +}else{ +do{ +*_FUNC_READWRITELONGSETTINGVALUE_LONG_READWRITELONGSETTINGVALUE=*_FUNC_READWRITELONGSETTINGVALUE_LONG_CHECKRESULT; +if(!qbevent)break;evnt(26059,123,"strings.bas");}while(r); +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free117.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +return *_FUNC_READWRITELONGSETTINGVALUE_LONG_READWRITELONGSETTINGVALUE; +} +int32 FUNC_COPYFILE(qbs*_FUNC_COPYFILE_STRING_SOURCEFILE,qbs*_FUNC_COPYFILE_STRING_DESTFILE){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data118.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +if(!qbevent)break;evnt(26060,7,"file.bas");}while(r); +do{ +if(!qbevent)break;evnt(26060,8,"file.bas");}while(r); +do{ +*__LONG_E= 0 ; +if(!qbevent)break;evnt(26060,10,"file.bas");}while(r); +do{ +*_FUNC_COPYFILE_LONG_SOURCEFILENO=func_freefile(); +if(!qbevent)break;evnt(26060,11,"file.bas");}while(r); +do{ +sub_open(_FUNC_COPYFILE_STRING_SOURCEFILE, 2 ,NULL,NULL,*_FUNC_COPYFILE_LONG_SOURCEFILENO,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26060,12,"file.bas");}while(r); +S_34959:; +if ((-(*__LONG_E== 1 ))||new_error){ +if(qbevent){evnt(26060,13,"file.bas");if(r)goto S_34959;} +do{ +goto LABEL_ERRORCLEANUP; +if(!qbevent)break;evnt(26060,13,"file.bas");}while(r); +} +do{ +*_FUNC_COPYFILE_INTEGER64_FILELENGTH=func_lof(*_FUNC_COPYFILE_LONG_SOURCEFILENO); +if(!qbevent)break;evnt(26060,15,"file.bas");}while(r); +do{ +*_FUNC_COPYFILE_LONG_DESTFILENO=func_freefile(); +if(!qbevent)break;evnt(26060,17,"file.bas");}while(r); +do{ +sub_open(_FUNC_COPYFILE_STRING_DESTFILE, 2 ,NULL,NULL,*_FUNC_COPYFILE_LONG_DESTFILENO,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26060,18,"file.bas");}while(r); +S_34965:; +if ((-(*__LONG_E== 1 ))||new_error){ +if(qbevent){evnt(26060,19,"file.bas");if(r)goto S_34965;} +do{ +goto LABEL_ERRORCLEANUP; +if(!qbevent)break;evnt(26060,19,"file.bas");}while(r); +} +do{ +qbs_set(_FUNC_COPYFILE_STRING_BUFFER,func_space(*_FUNC_COPYFILE_INTEGER64_FILELENGTH)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26060,22,"file.bas");}while(r); +do{ +sub_get2(*_FUNC_COPYFILE_LONG_SOURCEFILENO,NULL,_FUNC_COPYFILE_STRING_BUFFER,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26060,24,"file.bas");}while(r); +do{ +sub_put2(*_FUNC_COPYFILE_LONG_DESTFILENO,NULL,byte_element((uint64)_FUNC_COPYFILE_STRING_BUFFER->chr,_FUNC_COPYFILE_STRING_BUFFER->len,byte_element_3789),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26060,25,"file.bas");}while(r); +LABEL_ERRORCLEANUP:; +if(qbevent){evnt(26060,27,"file.bas");r=0;} +S_34971:; +if ((-(*_FUNC_COPYFILE_LONG_SOURCEFILENO!= 0 ))||new_error){ +if(qbevent){evnt(26060,28,"file.bas");if(r)goto S_34971;} +do{ +sub_close(*_FUNC_COPYFILE_LONG_SOURCEFILENO,1); +if(!qbevent)break;evnt(26060,28,"file.bas");}while(r); +} +S_34974:; +if ((-(*_FUNC_COPYFILE_LONG_DESTFILENO!= 0 ))||new_error){ +if(qbevent){evnt(26060,29,"file.bas");if(r)goto S_34974;} +do{ +sub_close(*_FUNC_COPYFILE_LONG_DESTFILENO,1); +if(!qbevent)break;evnt(26060,29,"file.bas");}while(r); +} +do{ +*_FUNC_COPYFILE_LONG_COPYFILE=*__LONG_E; +if(!qbevent)break;evnt(26060,31,"file.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free118.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +return *_FUNC_COPYFILE_LONG_COPYFILE; +} +qbs* FUNC_GETFILEPATH(qbs*_FUNC_GETFILEPATH_STRING_F){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data119.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +S_34978:; +fornext_value3792=_FUNC_GETFILEPATH_STRING_F->len; +fornext_finalvalue3792= 1 ; +fornext_step3792= -1 ; +if (fornext_step3792<0) fornext_step_negative3792=1; else fornext_step_negative3792=0; +if (new_error) goto fornext_error3792; +goto fornext_entrylabel3792; +while(1){ +fornext_value3792=fornext_step3792+(*_FUNC_GETFILEPATH_LONG_I); +fornext_entrylabel3792: +*_FUNC_GETFILEPATH_LONG_I=fornext_value3792; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative3792){ +if (fornext_value3792fornext_finalvalue3792) break; +} +fornext_error3792:; +if(qbevent){evnt(26060,39,"file.bas");if(r)goto S_34978;} +do{ +qbs_set(_FUNC_GETFILEPATH_STRING_A,func_mid(_FUNC_GETFILEPATH_STRING_F,*_FUNC_GETFILEPATH_LONG_I, 1 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26060,40,"file.bas");}while(r); +S_34980:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_GETFILEPATH_STRING_A,qbs_new_txt_len("/",1)))|(qbs_equal(_FUNC_GETFILEPATH_STRING_A,qbs_new_txt_len("\\",1)))))||new_error){ +if(qbevent){evnt(26060,41,"file.bas");if(r)goto S_34980;} +do{ +qbs_set(_FUNC_GETFILEPATH_STRING_GETFILEPATH,qbs_left(_FUNC_GETFILEPATH_STRING_F,*_FUNC_GETFILEPATH_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26060,42,"file.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26060,43,"file.bas");}while(r); +} +fornext_continue_3791:; +} +fornext_exit_3791:; +do{ +qbs_set(_FUNC_GETFILEPATH_STRING_GETFILEPATH,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26060,46,"file.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free119.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_GETFILEPATH_STRING_GETFILEPATH);return _FUNC_GETFILEPATH_STRING_GETFILEPATH; +} +int32 FUNC_FILEHASEXTENSION(qbs*_FUNC_FILEHASEXTENSION_STRING_F){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data120.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +S_34986:; +fornext_value3796=_FUNC_FILEHASEXTENSION_STRING_F->len; +fornext_finalvalue3796= 1 ; +fornext_step3796= -1 ; +if (fornext_step3796<0) fornext_step_negative3796=1; else fornext_step_negative3796=0; +if (new_error) goto fornext_error3796; +goto fornext_entrylabel3796; +while(1){ +fornext_value3796=fornext_step3796+(*_FUNC_FILEHASEXTENSION_LONG_I); +fornext_entrylabel3796: +*_FUNC_FILEHASEXTENSION_LONG_I=fornext_value3796; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative3796){ +if (fornext_value3796fornext_finalvalue3796) break; +} +fornext_error3796:; +if(qbevent){evnt(26060,54,"file.bas");if(r)goto S_34986;} +do{ +*_FUNC_FILEHASEXTENSION_LONG_A=qbs_asc(_FUNC_FILEHASEXTENSION_STRING_F,*_FUNC_FILEHASEXTENSION_LONG_I); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26060,55,"file.bas");}while(r); +S_34988:; +if (((-(*_FUNC_FILEHASEXTENSION_LONG_A== 47 ))|(-(*_FUNC_FILEHASEXTENSION_LONG_A== 92 )))||new_error){ +if(qbevent){evnt(26060,56,"file.bas");if(r)goto S_34988;} +do{ +goto fornext_exit_3795; +if(!qbevent)break;evnt(26060,56,"file.bas");}while(r); +} +S_34991:; +if ((-(*_FUNC_FILEHASEXTENSION_LONG_A== 46 ))||new_error){ +if(qbevent){evnt(26060,57,"file.bas");if(r)goto S_34991;} +do{ +*_FUNC_FILEHASEXTENSION_LONG_FILEHASEXTENSION= -1 ; +if(!qbevent)break;evnt(26060,57,"file.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26060,57,"file.bas");}while(r); +} +fornext_continue_3795:; +} +fornext_exit_3795:; +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free120.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +return *_FUNC_FILEHASEXTENSION_LONG_FILEHASEXTENSION; +} +qbs* FUNC_REMOVEFILEEXTENSION(qbs*_FUNC_REMOVEFILEEXTENSION_STRING_F){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data121.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +S_34996:; +fornext_value3800=_FUNC_REMOVEFILEEXTENSION_STRING_F->len; +fornext_finalvalue3800= 1 ; +fornext_step3800= -1 ; +if (fornext_step3800<0) fornext_step_negative3800=1; else fornext_step_negative3800=0; +if (new_error) goto fornext_error3800; +goto fornext_entrylabel3800; +while(1){ +fornext_value3800=fornext_step3800+(*_FUNC_REMOVEFILEEXTENSION_LONG_I); +fornext_entrylabel3800: +*_FUNC_REMOVEFILEEXTENSION_LONG_I=fornext_value3800; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative3800){ +if (fornext_value3800fornext_finalvalue3800) break; +} +fornext_error3800:; +if(qbevent){evnt(26060,66,"file.bas");if(r)goto S_34996;} +do{ +*_FUNC_REMOVEFILEEXTENSION_LONG_A=qbs_asc(_FUNC_REMOVEFILEEXTENSION_STRING_F,*_FUNC_REMOVEFILEEXTENSION_LONG_I); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26060,67,"file.bas");}while(r); +S_34998:; +if (((-(*_FUNC_REMOVEFILEEXTENSION_LONG_A== 47 ))|(-(*_FUNC_REMOVEFILEEXTENSION_LONG_A== 92 )))||new_error){ +if(qbevent){evnt(26060,68,"file.bas");if(r)goto S_34998;} +do{ +goto fornext_exit_3799; +if(!qbevent)break;evnt(26060,68,"file.bas");}while(r); +} +S_35001:; +if ((-(*_FUNC_REMOVEFILEEXTENSION_LONG_A== 46 ))||new_error){ +if(qbevent){evnt(26060,69,"file.bas");if(r)goto S_35001;} +do{ +qbs_set(_FUNC_REMOVEFILEEXTENSION_STRING_REMOVEFILEEXTENSION,qbs_left(_FUNC_REMOVEFILEEXTENSION_STRING_F,*_FUNC_REMOVEFILEEXTENSION_LONG_I- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26060,69,"file.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26060,69,"file.bas");}while(r); +} +fornext_continue_3799:; +} +fornext_exit_3799:; +do{ +qbs_set(_FUNC_REMOVEFILEEXTENSION_STRING_REMOVEFILEEXTENSION,_FUNC_REMOVEFILEEXTENSION_STRING_F); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26060,71,"file.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free121.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_REMOVEFILEEXTENSION_STRING_REMOVEFILEEXTENSION);return _FUNC_REMOVEFILEEXTENSION_STRING_REMOVEFILEEXTENSION; +} +qbs* FUNC_GETFILEEXTENSION(qbs*_FUNC_GETFILEEXTENSION_STRING_F){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data122.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +S_35007:; +fornext_value3804=_FUNC_GETFILEEXTENSION_STRING_F->len; +fornext_finalvalue3804= 1 ; +fornext_step3804= -1 ; +if (fornext_step3804<0) fornext_step_negative3804=1; else fornext_step_negative3804=0; +if (new_error) goto fornext_error3804; +goto fornext_entrylabel3804; +while(1){ +fornext_value3804=fornext_step3804+(*_FUNC_GETFILEEXTENSION_LONG_I); +fornext_entrylabel3804: +*_FUNC_GETFILEEXTENSION_LONG_I=fornext_value3804; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative3804){ +if (fornext_value3804fornext_finalvalue3804) break; +} +fornext_error3804:; +if(qbevent){evnt(26060,80,"file.bas");if(r)goto S_35007;} +do{ +*_FUNC_GETFILEEXTENSION_LONG_A=qbs_asc(_FUNC_GETFILEEXTENSION_STRING_F,*_FUNC_GETFILEEXTENSION_LONG_I); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26060,81,"file.bas");}while(r); +S_35009:; +if (((-(*_FUNC_GETFILEEXTENSION_LONG_A== 47 ))|(-(*_FUNC_GETFILEEXTENSION_LONG_A== 92 )))||new_error){ +if(qbevent){evnt(26060,82,"file.bas");if(r)goto S_35009;} +do{ +goto fornext_exit_3803; +if(!qbevent)break;evnt(26060,82,"file.bas");}while(r); +} +S_35012:; +if ((-(*_FUNC_GETFILEEXTENSION_LONG_A== 46 ))||new_error){ +if(qbevent){evnt(26060,83,"file.bas");if(r)goto S_35012;} +do{ +qbs_set(_FUNC_GETFILEEXTENSION_STRING_GETFILEEXTENSION,func_mid(_FUNC_GETFILEEXTENSION_STRING_F,*_FUNC_GETFILEEXTENSION_LONG_I+ 1 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26060,83,"file.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26060,83,"file.bas");}while(r); +} +fornext_continue_3803:; +} +fornext_exit_3803:; +do{ +qbs_set(_FUNC_GETFILEEXTENSION_STRING_GETFILEEXTENSION,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26060,85,"file.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free122.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_GETFILEEXTENSION_STRING_GETFILEEXTENSION);return _FUNC_GETFILEEXTENSION_STRING_GETFILEEXTENSION; +} +void SUB_PATH_SLASH_CORRECT(qbs*_SUB_PATH_SLASH_CORRECT_STRING_A){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data123.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +S_35018:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ +if(qbevent){evnt(26060,92,"file.bas");if(r)goto S_35018;} +S_35019:; +fornext_value3808= 1 ; +fornext_finalvalue3808=_SUB_PATH_SLASH_CORRECT_STRING_A->len; +fornext_step3808= 1 ; +if (fornext_step3808<0) fornext_step_negative3808=1; else fornext_step_negative3808=0; +if (new_error) goto fornext_error3808; +goto fornext_entrylabel3808; +while(1){ +fornext_value3808=fornext_step3808+(*_SUB_PATH_SLASH_CORRECT_LONG_X); +fornext_entrylabel3808: +*_SUB_PATH_SLASH_CORRECT_LONG_X=fornext_value3808; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative3808){ +if (fornext_value3808fornext_finalvalue3808) break; +} +fornext_error3808:; +if(qbevent){evnt(26060,93,"file.bas");if(r)goto S_35019;} +S_35020:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_SUB_PATH_SLASH_CORRECT_STRING_A,*_SUB_PATH_SLASH_CORRECT_LONG_X)== 47 )))||new_error){ +if(qbevent){evnt(26060,94,"file.bas");if(r)goto S_35020;} +do{ +tqbs=_SUB_PATH_SLASH_CORRECT_STRING_A; if (!new_error){ +tmp_fileno=*_SUB_PATH_SLASH_CORRECT_LONG_X; if (!new_error){ +tmp_long= 92 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26060,94,"file.bas");}while(r); +} +fornext_continue_3807:; +} +fornext_exit_3807:; +}else{ +S_35025:; +fornext_value3811= 1 ; +fornext_finalvalue3811=_SUB_PATH_SLASH_CORRECT_STRING_A->len; +fornext_step3811= 1 ; +if (fornext_step3811<0) fornext_step_negative3811=1; else fornext_step_negative3811=0; +if (new_error) goto fornext_error3811; +goto fornext_entrylabel3811; +while(1){ +fornext_value3811=fornext_step3811+(*_SUB_PATH_SLASH_CORRECT_LONG_X); +fornext_entrylabel3811: +*_SUB_PATH_SLASH_CORRECT_LONG_X=fornext_value3811; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative3811){ +if (fornext_value3811fornext_finalvalue3811) break; +} +fornext_error3811:; +if(qbevent){evnt(26060,97,"file.bas");if(r)goto S_35025;} +S_35026:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_SUB_PATH_SLASH_CORRECT_STRING_A,*_SUB_PATH_SLASH_CORRECT_LONG_X)== 92 )))||new_error){ +if(qbevent){evnt(26060,98,"file.bas");if(r)goto S_35026;} +do{ +tqbs=_SUB_PATH_SLASH_CORRECT_STRING_A; if (!new_error){ +tmp_fileno=*_SUB_PATH_SLASH_CORRECT_LONG_X; if (!new_error){ +tmp_long= 47 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26060,98,"file.bas");}while(r); +} +fornext_continue_3810:; +} +fornext_exit_3810:; +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free123.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +qbs* FUNC_GETESCAPEDPATH(qbs*_FUNC_GETESCAPEDPATH_STRING_PATH_NAME){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data124.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +if(!qbevent)break;evnt(26060,105,"file.bas");}while(r); +S_35032:; +fornext_value3815= 1 ; +fornext_finalvalue3815=_FUNC_GETESCAPEDPATH_STRING_PATH_NAME->len; +fornext_step3815= 1 ; +if (fornext_step3815<0) fornext_step_negative3815=1; else fornext_step_negative3815=0; +if (new_error) goto fornext_error3815; +goto fornext_entrylabel3815; +while(1){ +fornext_value3815=fornext_step3815+(*_FUNC_GETESCAPEDPATH_ULONG_Z); +fornext_entrylabel3815: +*_FUNC_GETESCAPEDPATH_ULONG_Z=fornext_value3815; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative3815){ +if (fornext_value3815fornext_finalvalue3815) break; +} +fornext_error3815:; +if(qbevent){evnt(26060,107,"file.bas");if(r)goto S_35032;} +do{ +*_FUNC_GETESCAPEDPATH_UBYTE_A=qbs_asc(_FUNC_GETESCAPEDPATH_STRING_PATH_NAME,*_FUNC_GETESCAPEDPATH_ULONG_Z); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26060,108,"file.bas");}while(r); +do{ +qbs_set(_FUNC_GETESCAPEDPATH_STRING_BUF,qbs_add(_FUNC_GETESCAPEDPATH_STRING_BUF,func_chr(*_FUNC_GETESCAPEDPATH_UBYTE_A))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26060,109,"file.bas");}while(r); +S_35035:; +if ((-(*_FUNC_GETESCAPEDPATH_UBYTE_A== 92 ))||new_error){ +if(qbevent){evnt(26060,110,"file.bas");if(r)goto S_35035;} +do{ +qbs_set(_FUNC_GETESCAPEDPATH_STRING_BUF,qbs_add(_FUNC_GETESCAPEDPATH_STRING_BUF,qbs_new_txt_len("\\",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26060,110,"file.bas");}while(r); +} +fornext_continue_3814:; +} +fornext_exit_3814:; +do{ +qbs_set(_FUNC_GETESCAPEDPATH_STRING_GETESCAPEDPATH,_FUNC_GETESCAPEDPATH_STRING_BUF); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26060,113,"file.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free124.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_GETESCAPEDPATH_STRING_GETESCAPEDPATH);return _FUNC_GETESCAPEDPATH_STRING_GETESCAPEDPATH; +} +qbs* FUNC_FIXDIRECTORYNAME(qbs*_FUNC_FIXDIRECTORYNAME_STRING_DIR_NAME){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data125.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +S_35040:; +if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_FIXDIRECTORYNAME_STRING_DIR_NAME->len> 0 ))&(qbs_notequal(qbs_right(_FUNC_FIXDIRECTORYNAME_STRING_DIR_NAME, 1 ),__STRING1_PATHSEP))))||new_error){ +if(qbevent){evnt(26060,118,"file.bas");if(r)goto S_35040;} +do{ +qbs_set(_FUNC_FIXDIRECTORYNAME_STRING_FIXDIRECTORYNAME,qbs_add(_FUNC_FIXDIRECTORYNAME_STRING_DIR_NAME,__STRING1_PATHSEP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26060,119,"file.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_FIXDIRECTORYNAME_STRING_FIXDIRECTORYNAME,_FUNC_FIXDIRECTORYNAME_STRING_DIR_NAME); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26060,121,"file.bas");}while(r); +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free125.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_FIXDIRECTORYNAME_STRING_FIXDIRECTORYNAME);return _FUNC_FIXDIRECTORYNAME_STRING_FIXDIRECTORYNAME; +} +void SUB_PURGETEMPORARYBUILDFILES(qbs*_SUB_PURGETEMPORARYBUILDFILES_STRING_OS,int32*_SUB_PURGETEMPORARYBUILDFILES_LONG_MAC){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data126.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +qbs_set(_SUB_PURGETEMPORARYBUILDFILES_STRING_MAKE,FUNC_GETMAKEEXECUTABLE()); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26061,6,"build.bas");}while(r); +S_35046:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_PURGETEMPORARYBUILDFILES_STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ +if(qbevent){evnt(26061,8,"build.bas");if(r)goto S_35046;} +do{ +sub_shell2(qbs_add(qbs_add(qbs_new_txt_len("cmd /c ",7),_SUB_PURGETEMPORARYBUILDFILES_STRING_MAKE),qbs_new_txt_len(" OS=win clean",13)),2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26061,9,"build.bas");}while(r); +S_35048:; +}else{ +if (qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_PURGETEMPORARYBUILDFILES_STRING_OS,qbs_new_txt_len("LNX",3)))){ +if(qbevent){evnt(26061,10,"build.bas");if(r)goto S_35048;} +S_35049:; +if ((*_SUB_PURGETEMPORARYBUILDFILES_LONG_MAC)||new_error){ +if(qbevent){evnt(26061,11,"build.bas");if(r)goto S_35049;} +do{ +sub_shell2(qbs_add(_SUB_PURGETEMPORARYBUILDFILES_STRING_MAKE,qbs_new_txt_len(" OS=osx clean",13)),2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26061,12,"build.bas");}while(r); +}else{ +do{ +sub_shell2(qbs_add(_SUB_PURGETEMPORARYBUILDFILES_STRING_MAKE,qbs_new_txt_len(" OS=lnx clean",13)),2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26061,14,"build.bas");}while(r); +} +} +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free126.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +qbs* FUNC_GETMAKEEXECUTABLE(){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data127.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +S_35055:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ +if(qbevent){evnt(26061,23,"build.bas");if(r)goto S_35055;} +do{ +qbs_set(_FUNC_GETMAKEEXECUTABLE_STRING_GETMAKEEXECUTABLE,qbs_new_txt_len("internal\\c\\c_compiler\\bin\\mingw32-make.exe",42)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26061,24,"build.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_GETMAKEEXECUTABLE_STRING_GETMAKEEXECUTABLE,qbs_new_txt_len("make",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26061,26,"build.bas");}while(r); +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free127.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_GETMAKEEXECUTABLE_STRING_GETMAKEEXECUTABLE);return _FUNC_GETMAKEEXECUTABLE_STRING_GETMAKEEXECUTABLE; +} +qbs* FUNC_MAKENMOUTPUTFILENAME(qbs*_FUNC_MAKENMOUTPUTFILENAME_STRING_LIBFILE,int32*_FUNC_MAKENMOUTPUTFILENAME_LONG_DYNAMIC){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data128.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +S_35060:; +if ((*_FUNC_MAKENMOUTPUTFILENAME_LONG_DYNAMIC)||new_error){ +if(qbevent){evnt(26061,31,"build.bas");if(r)goto S_35060;} +do{ +qbs_set(_FUNC_MAKENMOUTPUTFILENAME_STRING_DYN,qbs_new_txt_len("_dynamic",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26061,31,"build.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_MAKENMOUTPUTFILENAME_STRING_DYN,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26061,31,"build.bas");}while(r); +} +do{ +qbs_set(_FUNC_MAKENMOUTPUTFILENAME_STRING_MAKENMOUTPUTFILENAME,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("nm_output_",10)),FUNC_STRREPLACE(FUNC_STRREPLACE(_FUNC_MAKENMOUTPUTFILENAME_STRING_LIBFILE,__STRING1_PATHSEP,qbs_new_txt_len(".",1)),qbs_new_txt_len(":",1),qbs_new_txt_len(".",1))),_FUNC_MAKENMOUTPUTFILENAME_STRING_DYN),qbs_new_txt_len(".txt",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26061,33,"build.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free128.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_MAKENMOUTPUTFILENAME_STRING_MAKENMOUTPUTFILENAME);return _FUNC_MAKENMOUTPUTFILENAME_STRING_MAKENMOUTPUTFILENAME; +} +qbs* FUNC_GETELEMENT(qbs*_FUNC_GETELEMENT_STRING_A,int32*_FUNC_GETELEMENT_LONG_ELENUM){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data129.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +if(!qbevent)break;evnt(26062,3,"elements.bas");}while(r); +S_35067:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GETELEMENT_STRING_A,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26062,5,"elements.bas");if(r)goto S_35067;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26062,5,"elements.bas");}while(r); +} +do{ +*_FUNC_GETELEMENT_LONG_N= 1 ; +if(!qbevent)break;evnt(26062,7,"elements.bas");}while(r); +do{ +*_FUNC_GETELEMENT_LONG_P= 1 ; +if(!qbevent)break;evnt(26062,8,"elements.bas");}while(r); +LABEL_GETELEMENTNEXT:; +if(qbevent){evnt(26062,9,"elements.bas");r=0;} +do{ +*_FUNC_GETELEMENT_LONG_I=func_instr(*_FUNC_GETELEMENT_LONG_P,_FUNC_GETELEMENT_STRING_A,__STRING1_SP,0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26062,10,"elements.bas");}while(r); +S_35073:; +if ((-(*_FUNC_GETELEMENT_LONG_ELENUM==*_FUNC_GETELEMENT_LONG_N))||new_error){ +if(qbevent){evnt(26062,12,"elements.bas");if(r)goto S_35073;} +S_35074:; +if ((*_FUNC_GETELEMENT_LONG_I)||new_error){ +if(qbevent){evnt(26062,13,"elements.bas");if(r)goto S_35074;} +do{ +qbs_set(_FUNC_GETELEMENT_STRING_GETELEMENT,func_mid(_FUNC_GETELEMENT_STRING_A,*_FUNC_GETELEMENT_LONG_P,*_FUNC_GETELEMENT_LONG_I-*_FUNC_GETELEMENT_LONG_P,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26062,14,"elements.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_GETELEMENT_STRING_GETELEMENT,qbs_right(_FUNC_GETELEMENT_STRING_A,_FUNC_GETELEMENT_STRING_A->len-*_FUNC_GETELEMENT_LONG_P+ 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26062,16,"elements.bas");}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26062,18,"elements.bas");}while(r); +} +S_35081:; +if ((-(*_FUNC_GETELEMENT_LONG_I== 0 ))||new_error){ +if(qbevent){evnt(26062,21,"elements.bas");if(r)goto S_35081;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26062,21,"elements.bas");}while(r); +} +do{ +*_FUNC_GETELEMENT_LONG_N=*_FUNC_GETELEMENT_LONG_N+ 1 ; +if(!qbevent)break;evnt(26062,22,"elements.bas");}while(r); +do{ +*_FUNC_GETELEMENT_LONG_P=*_FUNC_GETELEMENT_LONG_I+ 1 ; +if(!qbevent)break;evnt(26062,23,"elements.bas");}while(r); +do{ +goto LABEL_GETELEMENTNEXT; +if(!qbevent)break;evnt(26062,24,"elements.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free129.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_GETELEMENT_STRING_GETELEMENT);return _FUNC_GETELEMENT_STRING_GETELEMENT; +} +qbs* FUNC_GETELEMENTS(qbs*_FUNC_GETELEMENTS_STRING_A,int32*_FUNC_GETELEMENTS_LONG_I1,int32*_FUNC_GETELEMENTS_LONG_I2){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data130.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +if(!qbevent)break;evnt(26062,28,"elements.bas");}while(r); +S_35088:; +if ((-(*_FUNC_GETELEMENTS_LONG_I2<*_FUNC_GETELEMENTS_LONG_I1))||new_error){ +if(qbevent){evnt(26062,30,"elements.bas");if(r)goto S_35088;} +do{ +qbs_set(_FUNC_GETELEMENTS_STRING_GETELEMENTS,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26062,30,"elements.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26062,30,"elements.bas");}while(r); +} +do{ +*_FUNC_GETELEMENTS_LONG_N= 1 ; +if(!qbevent)break;evnt(26062,31,"elements.bas");}while(r); +do{ +*_FUNC_GETELEMENTS_LONG_P= 1 ; +if(!qbevent)break;evnt(26062,32,"elements.bas");}while(r); +LABEL_GETELEMENTSNEXT:; +if(qbevent){evnt(26062,33,"elements.bas");r=0;} +do{ +*_FUNC_GETELEMENTS_LONG_I=func_instr(*_FUNC_GETELEMENTS_LONG_P,_FUNC_GETELEMENTS_STRING_A,__STRING1_SP,0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26062,34,"elements.bas");}while(r); +S_35095:; +if ((-(*_FUNC_GETELEMENTS_LONG_N==*_FUNC_GETELEMENTS_LONG_I1))||new_error){ +if(qbevent){evnt(26062,35,"elements.bas");if(r)goto S_35095;} +do{ +*_FUNC_GETELEMENTS_LONG_I1POS=*_FUNC_GETELEMENTS_LONG_P; +if(!qbevent)break;evnt(26062,36,"elements.bas");}while(r); +} +S_35098:; +if ((-(*_FUNC_GETELEMENTS_LONG_N==*_FUNC_GETELEMENTS_LONG_I2))||new_error){ +if(qbevent){evnt(26062,38,"elements.bas");if(r)goto S_35098;} +S_35099:; +if ((*_FUNC_GETELEMENTS_LONG_I)||new_error){ +if(qbevent){evnt(26062,39,"elements.bas");if(r)goto S_35099;} +do{ +qbs_set(_FUNC_GETELEMENTS_STRING_GETELEMENTS,func_mid(_FUNC_GETELEMENTS_STRING_A,*_FUNC_GETELEMENTS_LONG_I1POS,*_FUNC_GETELEMENTS_LONG_I-*_FUNC_GETELEMENTS_LONG_I1POS,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26062,40,"elements.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_GETELEMENTS_STRING_GETELEMENTS,qbs_right(_FUNC_GETELEMENTS_STRING_A,_FUNC_GETELEMENTS_STRING_A->len-*_FUNC_GETELEMENTS_LONG_I1POS+ 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26062,42,"elements.bas");}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26062,44,"elements.bas");}while(r); +} +do{ +*_FUNC_GETELEMENTS_LONG_N=*_FUNC_GETELEMENTS_LONG_N+ 1 ; +if(!qbevent)break;evnt(26062,46,"elements.bas");}while(r); +do{ +*_FUNC_GETELEMENTS_LONG_P=*_FUNC_GETELEMENTS_LONG_I+ 1 ; +if(!qbevent)break;evnt(26062,47,"elements.bas");}while(r); +do{ +goto LABEL_GETELEMENTSNEXT; +if(!qbevent)break;evnt(26062,48,"elements.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free130.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_GETELEMENTS_STRING_GETELEMENTS);return _FUNC_GETELEMENTS_STRING_GETELEMENTS; +} +void SUB_INSERTELEMENTS(qbs*_SUB_INSERTELEMENTS_STRING_A,int32*_SUB_INSERTELEMENTS_LONG_I,qbs*_SUB_INSERTELEMENTS_STRING_ELEMENTS){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data131.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +if(!qbevent)break;evnt(26062,52,"elements.bas");}while(r); +S_35110:; +if ((-(*_SUB_INSERTELEMENTS_LONG_I== 0 ))||new_error){ +if(qbevent){evnt(26062,54,"elements.bas");if(r)goto S_35110;} +S_35111:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_INSERTELEMENTS_STRING_A,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26062,55,"elements.bas");if(r)goto S_35111;} +do{ +qbs_set(_SUB_INSERTELEMENTS_STRING_A,_SUB_INSERTELEMENTS_STRING_ELEMENTS); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26062,56,"elements.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26062,57,"elements.bas");}while(r); +} +do{ +qbs_set(_SUB_INSERTELEMENTS_STRING_A,qbs_add(qbs_add(_SUB_INSERTELEMENTS_STRING_ELEMENTS,__STRING1_SP),_SUB_INSERTELEMENTS_STRING_A)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26062,59,"elements.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26062,60,"elements.bas");}while(r); +} +do{ +qbs_set(_SUB_INSERTELEMENTS_STRING_A2,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26062,63,"elements.bas");}while(r); +do{ +*_SUB_INSERTELEMENTS_LONG_N=FUNC_NUMELEMENTS(_SUB_INSERTELEMENTS_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26062,64,"elements.bas");}while(r); +S_35120:; +fornext_value3828= 1 ; +fornext_finalvalue3828=*_SUB_INSERTELEMENTS_LONG_N; +fornext_step3828= 1 ; +if (fornext_step3828<0) fornext_step_negative3828=1; else fornext_step_negative3828=0; +if (new_error) goto fornext_error3828; +goto fornext_entrylabel3828; +while(1){ +fornext_value3828=fornext_step3828+(*_SUB_INSERTELEMENTS_LONG_I2); +fornext_entrylabel3828: +*_SUB_INSERTELEMENTS_LONG_I2=fornext_value3828; +if (fornext_step_negative3828){ +if (fornext_value3828fornext_finalvalue3828) break; +} +fornext_error3828:; +if(qbevent){evnt(26062,66,"elements.bas");if(r)goto S_35120;} +S_35121:; +if ((-(*_SUB_INSERTELEMENTS_LONG_I2> 1 ))||new_error){ +if(qbevent){evnt(26062,67,"elements.bas");if(r)goto S_35121;} +do{ +qbs_set(_SUB_INSERTELEMENTS_STRING_A2,qbs_add(_SUB_INSERTELEMENTS_STRING_A2,__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26062,67,"elements.bas");}while(r); +} +do{ +qbs_set(_SUB_INSERTELEMENTS_STRING_A2,qbs_add(_SUB_INSERTELEMENTS_STRING_A2,FUNC_GETELEMENT(_SUB_INSERTELEMENTS_STRING_A,_SUB_INSERTELEMENTS_LONG_I2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26062,68,"elements.bas");}while(r); +S_35125:; +if ((-(*_SUB_INSERTELEMENTS_LONG_I==*_SUB_INSERTELEMENTS_LONG_I2))||new_error){ +if(qbevent){evnt(26062,69,"elements.bas");if(r)goto S_35125;} +do{ +qbs_set(_SUB_INSERTELEMENTS_STRING_A2,qbs_add(qbs_add(_SUB_INSERTELEMENTS_STRING_A2,__STRING1_SP),_SUB_INSERTELEMENTS_STRING_ELEMENTS)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26062,69,"elements.bas");}while(r); +} +fornext_continue_3827:; +} +fornext_exit_3827:; +do{ +qbs_set(_SUB_INSERTELEMENTS_STRING_A,_SUB_INSERTELEMENTS_STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26062,72,"elements.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free131.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +int32 FUNC_NUMELEMENTS(qbs*_FUNC_NUMELEMENTS_STRING_A){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data132.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +if(!qbevent)break;evnt(26062,77,"elements.bas");}while(r); +S_35131:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_NUMELEMENTS_STRING_A,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26062,79,"elements.bas");if(r)goto S_35131;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26062,79,"elements.bas");}while(r); +} +do{ +*_FUNC_NUMELEMENTS_LONG_N= 1 ; +if(!qbevent)break;evnt(26062,80,"elements.bas");}while(r); +do{ +*_FUNC_NUMELEMENTS_LONG_P= 1 ; +if(!qbevent)break;evnt(26062,81,"elements.bas");}while(r); +LABEL_NUMELEMENTSNEXT:; +if(qbevent){evnt(26062,82,"elements.bas");r=0;} +do{ +*_FUNC_NUMELEMENTS_LONG_I=func_instr(*_FUNC_NUMELEMENTS_LONG_P,_FUNC_NUMELEMENTS_STRING_A,__STRING1_SP,0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26062,83,"elements.bas");}while(r); +S_35137:; +if ((-(*_FUNC_NUMELEMENTS_LONG_I== 0 ))||new_error){ +if(qbevent){evnt(26062,84,"elements.bas");if(r)goto S_35137;} +do{ +*_FUNC_NUMELEMENTS_LONG_NUMELEMENTS=*_FUNC_NUMELEMENTS_LONG_N; +if(!qbevent)break;evnt(26062,84,"elements.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26062,84,"elements.bas");}while(r); +} +do{ +*_FUNC_NUMELEMENTS_LONG_N=*_FUNC_NUMELEMENTS_LONG_N+ 1 ; +if(!qbevent)break;evnt(26062,85,"elements.bas");}while(r); +do{ +*_FUNC_NUMELEMENTS_LONG_P=*_FUNC_NUMELEMENTS_LONG_I+ 1 ; +if(!qbevent)break;evnt(26062,86,"elements.bas");}while(r); +do{ +goto LABEL_NUMELEMENTSNEXT; +if(!qbevent)break;evnt(26062,87,"elements.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free132.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +return *_FUNC_NUMELEMENTS_LONG_NUMELEMENTS; +} +void SUB_REMOVEELEMENTS(qbs*_SUB_REMOVEELEMENTS_STRING_A,int32*_SUB_REMOVEELEMENTS_LONG_FIRST,int32*_SUB_REMOVEELEMENTS_LONG_LAST,int32*_SUB_REMOVEELEMENTS_LONG_KEEPINDEXING){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data133.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +if(!qbevent)break;evnt(26062,91,"elements.bas");}while(r); +do{ +qbs_set(_SUB_REMOVEELEMENTS_STRING_A2,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26062,93,"elements.bas");}while(r); +do{ +*_SUB_REMOVEELEMENTS_LONG_N=FUNC_NUMELEMENTS(_SUB_REMOVEELEMENTS_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26062,98,"elements.bas");}while(r); +S_35147:; +fornext_value3832= 1 ; +fornext_finalvalue3832=*_SUB_REMOVEELEMENTS_LONG_N; +fornext_step3832= 1 ; +if (fornext_step3832<0) fornext_step_negative3832=1; else fornext_step_negative3832=0; +if (new_error) goto fornext_error3832; +goto fornext_entrylabel3832; +while(1){ +fornext_value3832=fornext_step3832+(*_SUB_REMOVEELEMENTS_LONG_I); +fornext_entrylabel3832: +*_SUB_REMOVEELEMENTS_LONG_I=fornext_value3832; +if (fornext_step_negative3832){ +if (fornext_value3832fornext_finalvalue3832) break; +} +fornext_error3832:; +if(qbevent){evnt(26062,99,"elements.bas");if(r)goto S_35147;} +S_35148:; +if (((-(*_SUB_REMOVEELEMENTS_LONG_I<*_SUB_REMOVEELEMENTS_LONG_FIRST))|(-(*_SUB_REMOVEELEMENTS_LONG_I>*_SUB_REMOVEELEMENTS_LONG_LAST)))||new_error){ +if(qbevent){evnt(26062,100,"elements.bas");if(r)goto S_35148;} +do{ +qbs_set(_SUB_REMOVEELEMENTS_STRING_A2,qbs_add(qbs_add(_SUB_REMOVEELEMENTS_STRING_A2,__STRING1_SP),FUNC_GETELEMENT(_SUB_REMOVEELEMENTS_STRING_A,_SUB_REMOVEELEMENTS_LONG_I))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26062,101,"elements.bas");}while(r); +}else{ +S_35151:; +if ((*_SUB_REMOVEELEMENTS_LONG_KEEPINDEXING)||new_error){ +if(qbevent){evnt(26062,103,"elements.bas");if(r)goto S_35151;} +do{ +qbs_set(_SUB_REMOVEELEMENTS_STRING_A2,qbs_add(_SUB_REMOVEELEMENTS_STRING_A2,__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26062,103,"elements.bas");}while(r); +} +} +fornext_continue_3831:; +} +fornext_exit_3831:; +S_35156:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_REMOVEELEMENTS_STRING_A2, 1 ),__STRING1_SP)))||new_error){ +if(qbevent){evnt(26062,106,"elements.bas");if(r)goto S_35156;} +do{ +qbs_set(_SUB_REMOVEELEMENTS_STRING_A2,qbs_right(_SUB_REMOVEELEMENTS_STRING_A2,_SUB_REMOVEELEMENTS_STRING_A2->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26062,106,"elements.bas");}while(r); +} +do{ +qbs_set(_SUB_REMOVEELEMENTS_STRING_A,_SUB_REMOVEELEMENTS_STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26062,108,"elements.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free133.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +int32 FUNC_COUNTFUNCTIONELEMENTS(qbs*_FUNC_COUNTFUNCTIONELEMENTS_STRING_A){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data134.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +if(!qbevent)break;evnt(26062,115,"elements.bas");}while(r); +do{ +*_FUNC_COUNTFUNCTIONELEMENTS_LONG_P= 1 ; +if(!qbevent)break;evnt(26062,116,"elements.bas");}while(r); +do{ +*_FUNC_COUNTFUNCTIONELEMENTS_LONG_LVL= 1 ; +if(!qbevent)break;evnt(26062,117,"elements.bas");}while(r); +do{ +*_FUNC_COUNTFUNCTIONELEMENTS_LONG_I= 0 ; +if(!qbevent)break;evnt(26062,118,"elements.bas");}while(r); +S_35164:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_COUNTFUNCTIONELEMENTS_STRING_A->len== 0 )))||new_error){ +if(qbevent){evnt(26062,120,"elements.bas");if(r)goto S_35164;} +do{ +*_FUNC_COUNTFUNCTIONELEMENTS_LONG_COUNTFUNCTIONELEMENTS= 0 ; +if(!qbevent)break;evnt(26062,121,"elements.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26062,122,"elements.bas");}while(r); +} +S_35168:; +do{ +if(qbevent){evnt(26062,125,"elements.bas");if(r)goto S_35168;} +S_35169:; +sc_3837=qbs_asc(_FUNC_COUNTFUNCTIONELEMENTS_STRING_A,*_FUNC_COUNTFUNCTIONELEMENTS_LONG_I+ 1 ); +qbs_cleanup(qbs_tmp_base,0); +if(qbevent){evnt(26062,126,"elements.bas");if(r)goto S_35169;} +S_35170:; +if ((qbs_cleanup(qbs_tmp_base,(sc_3837==(qbs_asc(qbs_new_txt_len("(",1))))))||new_error){ +if(qbevent){evnt(26062,127,"elements.bas");if(r)goto S_35170;} +do{ +*_FUNC_COUNTFUNCTIONELEMENTS_LONG_LVL=*_FUNC_COUNTFUNCTIONELEMENTS_LONG_LVL+ 1 ; +if(!qbevent)break;evnt(26062,128,"elements.bas");}while(r); +sc_ec_195_end:; +goto sc_3837_end; +} +S_35172:; +if ((qbs_cleanup(qbs_tmp_base,(sc_3837==(qbs_asc(qbs_new_txt_len(")",1))))))||new_error){ +if(qbevent){evnt(26062,130,"elements.bas");if(r)goto S_35172;} +do{ +*_FUNC_COUNTFUNCTIONELEMENTS_LONG_LVL=*_FUNC_COUNTFUNCTIONELEMENTS_LONG_LVL- 1 ; +if(!qbevent)break;evnt(26062,131,"elements.bas");}while(r); +sc_ec_196_end:; +goto sc_3837_end; +} +S_35174:; +if ((qbs_cleanup(qbs_tmp_base,(sc_3837==(qbs_asc(qbs_new_txt_len(",",1))))))||new_error){ +if(qbevent){evnt(26062,133,"elements.bas");if(r)goto S_35174;} +S_35175:; +if ((-(*_FUNC_COUNTFUNCTIONELEMENTS_LONG_LVL== 1 ))||new_error){ +if(qbevent){evnt(26062,134,"elements.bas");if(r)goto S_35175;} +do{ +*_FUNC_COUNTFUNCTIONELEMENTS_LONG_COUNT=*_FUNC_COUNTFUNCTIONELEMENTS_LONG_COUNT+ 1 ; +if(!qbevent)break;evnt(26062,135,"elements.bas");}while(r); +} +sc_ec_197_end:; +goto sc_3837_end; +} +sc_3837_end:; +do{ +*_FUNC_COUNTFUNCTIONELEMENTS_LONG_I=func_instr(*_FUNC_COUNTFUNCTIONELEMENTS_LONG_P,_FUNC_COUNTFUNCTIONELEMENTS_STRING_A,__STRING1_SP,0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26062,140,"elements.bas");}while(r); +S_35180:; +if ((-(*_FUNC_COUNTFUNCTIONELEMENTS_LONG_I== 0 ))||new_error){ +if(qbevent){evnt(26062,141,"elements.bas");if(r)goto S_35180;} +do{ +goto dl_exit_3836; +if(!qbevent)break;evnt(26062,142,"elements.bas");}while(r); +} +do{ +*_FUNC_COUNTFUNCTIONELEMENTS_LONG_P=*_FUNC_COUNTFUNCTIONELEMENTS_LONG_I+ 1 ; +if(!qbevent)break;evnt(26062,145,"elements.bas");}while(r); +dl_continue_3836:; +}while(1); +dl_exit_3836:; +do{ +*_FUNC_COUNTFUNCTIONELEMENTS_LONG_COUNTFUNCTIONELEMENTS=*_FUNC_COUNTFUNCTIONELEMENTS_LONG_COUNT+ 1 ; +if(!qbevent)break;evnt(26062,149,"elements.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free134.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +return *_FUNC_COUNTFUNCTIONELEMENTS_LONG_COUNTFUNCTIONELEMENTS; +} +int32 FUNC_HASFUNCTIONELEMENT(qbs*_FUNC_HASFUNCTIONELEMENT_STRING_A,int32*_FUNC_HASFUNCTIONELEMENT_LONG_ELEMENT){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data135.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +if(!qbevent)break;evnt(26062,155,"elements.bas");}while(r); +do{ +*_FUNC_HASFUNCTIONELEMENT_LONG_START= 0 ; +if(!qbevent)break;evnt(26062,156,"elements.bas");}while(r); +do{ +*_FUNC_HASFUNCTIONELEMENT_LONG_P= 1 ; +if(!qbevent)break;evnt(26062,157,"elements.bas");}while(r); +do{ +*_FUNC_HASFUNCTIONELEMENT_LONG_LVL= 1 ; +if(!qbevent)break;evnt(26062,158,"elements.bas");}while(r); +do{ +*_FUNC_HASFUNCTIONELEMENT_LONG_I= 1 ; +if(!qbevent)break;evnt(26062,159,"elements.bas");}while(r); +S_35191:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_HASFUNCTIONELEMENT_STRING_A->len== 0 )))||new_error){ +if(qbevent){evnt(26062,161,"elements.bas");if(r)goto S_35191;} +do{ +*_FUNC_HASFUNCTIONELEMENT_LONG_HASFUNCTIONELEMENT= 0 ; +if(!qbevent)break;evnt(26062,162,"elements.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26062,163,"elements.bas");}while(r); +} +S_35195:; +if ((qbs_cleanup(qbs_tmp_base,(-(func_instr(NULL,_FUNC_HASFUNCTIONELEMENT_STRING_A,__STRING1_SP,0)== 0 ))&(-(_FUNC_HASFUNCTIONELEMENT_STRING_A->len!= 0 ))))||new_error){ +if(qbevent){evnt(26062,167,"elements.bas");if(r)goto S_35195;} +do{ +*_FUNC_HASFUNCTIONELEMENT_LONG_HASFUNCTIONELEMENT=-(*_FUNC_HASFUNCTIONELEMENT_LONG_ELEMENT== 1 ); +if(!qbevent)break;evnt(26062,168,"elements.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26062,169,"elements.bas");}while(r); +} +S_35199:; +do{ +if(qbevent){evnt(26062,172,"elements.bas");if(r)goto S_35199;} +S_35200:; +if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_HASFUNCTIONELEMENT_LONG_I>_FUNC_HASFUNCTIONELEMENT_STRING_A->len)))||new_error){ +if(qbevent){evnt(26062,173,"elements.bas");if(r)goto S_35200;} +do{ +goto dl_exit_3841; +if(!qbevent)break;evnt(26062,174,"elements.bas");}while(r); +} +S_35203:; +sc_3843=qbs_asc(_FUNC_HASFUNCTIONELEMENT_STRING_A,*_FUNC_HASFUNCTIONELEMENT_LONG_I); +qbs_cleanup(qbs_tmp_base,0); +if(qbevent){evnt(26062,177,"elements.bas");if(r)goto S_35203;} +S_35204:; +if ((qbs_cleanup(qbs_tmp_base,(sc_3843==(qbs_asc(qbs_new_txt_len("(",1))))))||new_error){ +if(qbevent){evnt(26062,178,"elements.bas");if(r)goto S_35204;} +do{ +*_FUNC_HASFUNCTIONELEMENT_LONG_LVL=*_FUNC_HASFUNCTIONELEMENT_LONG_LVL+ 1 ; +if(!qbevent)break;evnt(26062,179,"elements.bas");}while(r); +sc_ec_198_end:; +goto sc_3843_end; +} +S_35206:; +if ((qbs_cleanup(qbs_tmp_base,(sc_3843==(qbs_asc(qbs_new_txt_len(")",1))))))||new_error){ +if(qbevent){evnt(26062,181,"elements.bas");if(r)goto S_35206;} +do{ +*_FUNC_HASFUNCTIONELEMENT_LONG_LVL=*_FUNC_HASFUNCTIONELEMENT_LONG_LVL- 1 ; +if(!qbevent)break;evnt(26062,182,"elements.bas");}while(r); +sc_ec_199_end:; +goto sc_3843_end; +} +S_35208:; +if ((qbs_cleanup(qbs_tmp_base,(sc_3843==(qbs_asc(qbs_new_txt_len(",",1))))))||new_error){ +if(qbevent){evnt(26062,184,"elements.bas");if(r)goto S_35208;} +S_35209:; +if ((-(*_FUNC_HASFUNCTIONELEMENT_LONG_LVL== 1 ))||new_error){ +if(qbevent){evnt(26062,185,"elements.bas");if(r)goto S_35209;} +do{ +*_FUNC_HASFUNCTIONELEMENT_LONG_COUNT=*_FUNC_HASFUNCTIONELEMENT_LONG_COUNT+ 1 ; +if(!qbevent)break;evnt(26062,186,"elements.bas");}while(r); +S_35211:; +if ((-(*_FUNC_HASFUNCTIONELEMENT_LONG_ELEMENT==*_FUNC_HASFUNCTIONELEMENT_LONG_COUNT))||new_error){ +if(qbevent){evnt(26062,188,"elements.bas");if(r)goto S_35211;} +do{ +*_FUNC_HASFUNCTIONELEMENT_LONG_HASFUNCTIONELEMENT=(-(*_FUNC_HASFUNCTIONELEMENT_LONG_I!= 1 ))&(-((*_FUNC_HASFUNCTIONELEMENT_LONG_I- 2 )!=*_FUNC_HASFUNCTIONELEMENT_LONG_START)); +if(!qbevent)break;evnt(26062,191,"elements.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26062,192,"elements.bas");}while(r); +} +do{ +*_FUNC_HASFUNCTIONELEMENT_LONG_START=*_FUNC_HASFUNCTIONELEMENT_LONG_I; +if(!qbevent)break;evnt(26062,195,"elements.bas");}while(r); +} +sc_ec_200_end:; +goto sc_3843_end; +} +sc_3843_end:; +do{ +*_FUNC_HASFUNCTIONELEMENT_LONG_P=*_FUNC_HASFUNCTIONELEMENT_LONG_I; +if(!qbevent)break;evnt(26062,199,"elements.bas");}while(r); +do{ +*_FUNC_HASFUNCTIONELEMENT_LONG_I=func_instr(*_FUNC_HASFUNCTIONELEMENT_LONG_I,_FUNC_HASFUNCTIONELEMENT_STRING_A,__STRING1_SP,0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26062,200,"elements.bas");}while(r); +S_35220:; +if ((-(*_FUNC_HASFUNCTIONELEMENT_LONG_I== 0 ))||new_error){ +if(qbevent){evnt(26062,202,"elements.bas");if(r)goto S_35220;} +do{ +goto dl_exit_3841; +if(!qbevent)break;evnt(26062,203,"elements.bas");}while(r); +} +do{ +*_FUNC_HASFUNCTIONELEMENT_LONG_I=*_FUNC_HASFUNCTIONELEMENT_LONG_I+ 1 ; +if(!qbevent)break;evnt(26062,206,"elements.bas");}while(r); +dl_continue_3841:; +}while(1); +dl_exit_3841:; +S_35225:; +if ((-(*_FUNC_HASFUNCTIONELEMENT_LONG_ELEMENT>(*_FUNC_HASFUNCTIONELEMENT_LONG_COUNT+ 1 )))||new_error){ +if(qbevent){evnt(26062,209,"elements.bas");if(r)goto S_35225;} +do{ +*_FUNC_HASFUNCTIONELEMENT_LONG_HASFUNCTIONELEMENT= 0 ; +if(!qbevent)break;evnt(26062,210,"elements.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26062,211,"elements.bas");}while(r); +} +S_35229:; +if ((-(*_FUNC_HASFUNCTIONELEMENT_LONG_P> 0 ))||new_error){ +if(qbevent){evnt(26062,218,"elements.bas");if(r)goto S_35229;} +S_35230:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_HASFUNCTIONELEMENT_STRING_A,*_FUNC_HASFUNCTIONELEMENT_LONG_P)!=qbs_asc(qbs_new_txt_len(",",1)))))||new_error){ +if(qbevent){evnt(26062,219,"elements.bas");if(r)goto S_35230;} +do{ +*_FUNC_HASFUNCTIONELEMENT_LONG_HASFUNCTIONELEMENT= -1 ; +if(!qbevent)break;evnt(26062,220,"elements.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26062,221,"elements.bas");}while(r); +} +} +do{ +*_FUNC_HASFUNCTIONELEMENT_LONG_HASFUNCTIONELEMENT= 0 ; +if(!qbevent)break;evnt(26062,225,"elements.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free135.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +return *_FUNC_HASFUNCTIONELEMENT_LONG_HASFUNCTIONELEMENT; +} +int32 FUNC_ISVALIDARGSET(qbs*_FUNC_ISVALIDARGSET_STRING_FORMAT,ptrszint*_FUNC_ISVALIDARGSET_ARRAY_LONG_PROVIDEDARGS,int32*_FUNC_ISVALIDARGSET_LONG_FIRSTOPTIONALARGUMENT){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data136.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +if(!qbevent)break;evnt(26062,231,"elements.bas");}while(r); +do{ +if(!qbevent)break;evnt(26062,232,"elements.bas");}while(r); +do{ if (_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[2]&2){ error(10); @@ -118236,1409 +118236,1409 @@ if (!_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[0]) error(257); } _FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[2]|=1; } -} -if(!qbevent)break;evnt(26062,233,"elements.bas");}while(r); -do{ -if(!qbevent)break;evnt(26062,234,"elements.bas");}while(r); -do{ -*_FUNC_ISVALIDARGSET_LONG_ARGPROVIDED= -1 ; -if(!qbevent)break;evnt(26062,236,"elements.bas");}while(r); -do{ -*_FUNC_ISVALIDARGSET_LONG_ARGNOTPROVIDED= 0 ; -if(!qbevent)break;evnt(26062,237,"elements.bas");}while(r); -do{ -*_FUNC_ISVALIDARGSET_LONG_ARGIGNORED= -2 ; -if(!qbevent)break;evnt(26062,238,"elements.bas");}while(r); -do{ -*_FUNC_ISVALIDARGSET_LONG_FIRSTOPTIONALARGUMENT= 0 ; -if(!qbevent)break;evnt(26062,239,"elements.bas");}while(r); -do{ -tmp_long=array_check(( 0 )-_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[4],_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[5]); -if (!new_error) ((int32*)(_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[0]))[tmp_long]=*_FUNC_ISVALIDARGSET_LONG_ARGIGNORED; -if(!qbevent)break;evnt(26062,241,"elements.bas");}while(r); -do{ -*_FUNC_ISVALIDARGSET_LONG_MAXARGUMENT=func_ubound(_FUNC_ISVALIDARGSET_ARRAY_LONG_PROVIDEDARGS,1,1); -if(!qbevent)break;evnt(26062,253,"elements.bas");}while(r); -S_35246:; -fornext_value3846= 1 ; -fornext_finalvalue3846=_FUNC_ISVALIDARGSET_STRING_FORMAT->len; -fornext_step3846= 1 ; -if (fornext_step3846<0) fornext_step_negative3846=1; else fornext_step_negative3846=0; -if (new_error) goto fornext_error3846; -goto fornext_entrylabel3846; -while(1){ -fornext_value3846=fornext_step3846+(*_FUNC_ISVALIDARGSET_LONG_I); -fornext_entrylabel3846: -*_FUNC_ISVALIDARGSET_LONG_I=fornext_value3846; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative3846){ -if (fornext_value3846fornext_finalvalue3846) break; -} -fornext_error3846:; -if(qbevent){evnt(26062,255,"elements.bas");if(r)goto S_35246;} -S_35247:; -sc_3848=qbs_asc(_FUNC_ISVALIDARGSET_STRING_FORMAT,*_FUNC_ISVALIDARGSET_LONG_I); -qbs_cleanup(qbs_tmp_base,0); -if(qbevent){evnt(26062,256,"elements.bas");if(r)goto S_35247;} -S_35248:; -if ((qbs_cleanup(qbs_tmp_base,(sc_3848==(qbs_asc(qbs_new_txt_len("[",1))))))||new_error){ -if(qbevent){evnt(26062,257,"elements.bas");if(r)goto S_35248;} -do{ -*_FUNC_ISVALIDARGSET_LONG_OPTIONLVL=*_FUNC_ISVALIDARGSET_LONG_OPTIONLVL+ 1 ; -if(!qbevent)break;evnt(26062,258,"elements.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_ISVALIDARGSET_LONG_OPTIONLVL)-_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[4],_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[5]); -if (!new_error) ((int32*)(_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[0]))[tmp_long]=*_FUNC_ISVALIDARGSET_LONG_ARGIGNORED; -if(!qbevent)break;evnt(26062,259,"elements.bas");}while(r); -sc_ec_201_end:; -goto sc_3848_end; -} -S_35251:; -if ((qbs_cleanup(qbs_tmp_base,(sc_3848==(qbs_asc(qbs_new_txt_len("]",1))))))||new_error){ -if(qbevent){evnt(26062,261,"elements.bas");if(r)goto S_35251;} -do{ -*_FUNC_ISVALIDARGSET_LONG_OPTIONLVL=*_FUNC_ISVALIDARGSET_LONG_OPTIONLVL- 1 ; -if(!qbevent)break;evnt(26062,262,"elements.bas");}while(r); -S_35253:; -if ((-(((int32*)(_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[0]))[array_check((*_FUNC_ISVALIDARGSET_LONG_OPTIONLVL)-_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[4],_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[5])]==*_FUNC_ISVALIDARGSET_LONG_ARGIGNORED))||new_error){ -if(qbevent){evnt(26062,264,"elements.bas");if(r)goto S_35253;} -S_35254:; -if ((-(((int32*)(_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[0]))[array_check((*_FUNC_ISVALIDARGSET_LONG_OPTIONLVL+ 1 )-_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[4],_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[5])]==*_FUNC_ISVALIDARGSET_LONG_ARGPROVIDED))||new_error){ -if(qbevent){evnt(26062,268,"elements.bas");if(r)goto S_35254;} -do{ -tmp_long=array_check((*_FUNC_ISVALIDARGSET_LONG_OPTIONLVL)-_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[4],_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[5]); -if (!new_error) ((int32*)(_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[0]))[tmp_long]=*_FUNC_ISVALIDARGSET_LONG_ARGPROVIDED; -if(!qbevent)break;evnt(26062,269,"elements.bas");}while(r); -} -}else{ -S_35258:; -if (((-(((int32*)(_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[0]))[array_check((*_FUNC_ISVALIDARGSET_LONG_OPTIONLVL)-_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[4],_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[5])]==*_FUNC_ISVALIDARGSET_LONG_ARGNOTPROVIDED))&(-(((int32*)(_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[0]))[array_check((*_FUNC_ISVALIDARGSET_LONG_OPTIONLVL+ 1 )-_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[4],_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[5])]==*_FUNC_ISVALIDARGSET_LONG_ARGPROVIDED)))||new_error){ -if(qbevent){evnt(26062,274,"elements.bas");if(r)goto S_35258;} -do{ -*_FUNC_ISVALIDARGSET_LONG_ISVALIDARGSET= 0 ; -if(!qbevent)break;evnt(26062,275,"elements.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26062,276,"elements.bas");}while(r); -} -} -sc_ec_202_end:; -goto sc_3848_end; -} -S_35263:; -if ((qbs_cleanup(qbs_tmp_base,(sc_3848==(qbs_asc(qbs_new_txt_len("?",1))))))||new_error){ -if(qbevent){evnt(26062,280,"elements.bas");if(r)goto S_35263;} -do{ -*_FUNC_ISVALIDARGSET_LONG_CURRENTARG=*_FUNC_ISVALIDARGSET_LONG_CURRENTARG+ 1 ; -if(!qbevent)break;evnt(26062,281,"elements.bas");}while(r); -S_35265:; -if (((-(*_FUNC_ISVALIDARGSET_LONG_OPTIONLVL>= 1 ))&(-(*_FUNC_ISVALIDARGSET_LONG_FIRSTOPTIONALARGUMENT== 0 )))||new_error){ -if(qbevent){evnt(26062,282,"elements.bas");if(r)goto S_35265;} -do{ -*_FUNC_ISVALIDARGSET_LONG_FIRSTOPTIONALARGUMENT=*_FUNC_ISVALIDARGSET_LONG_CURRENTARG; -if(!qbevent)break;evnt(26062,282,"elements.bas");}while(r); -} -S_35268:; -if ((-(((int32*)(_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[0]))[array_check((*_FUNC_ISVALIDARGSET_LONG_OPTIONLVL)-_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[4],_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[5])]==*_FUNC_ISVALIDARGSET_LONG_ARGIGNORED))||new_error){ -if(qbevent){evnt(26062,284,"elements.bas");if(r)goto S_35268;} -S_35269:; -if ((-(*_FUNC_ISVALIDARGSET_LONG_MAXARGUMENT>=*_FUNC_ISVALIDARGSET_LONG_CURRENTARG))||new_error){ -if(qbevent){evnt(26062,285,"elements.bas");if(r)goto S_35269;} -do{ -tmp_long=array_check((*_FUNC_ISVALIDARGSET_LONG_OPTIONLVL)-_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[4],_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[5]); -if (!new_error) ((int32*)(_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[0]))[tmp_long]=((int32*)(_FUNC_ISVALIDARGSET_ARRAY_LONG_PROVIDEDARGS[0]))[array_check((*_FUNC_ISVALIDARGSET_LONG_CURRENTARG)-_FUNC_ISVALIDARGSET_ARRAY_LONG_PROVIDEDARGS[4],_FUNC_ISVALIDARGSET_ARRAY_LONG_PROVIDEDARGS[5])]; -if(!qbevent)break;evnt(26062,286,"elements.bas");}while(r); -}else{ -do{ -tmp_long=array_check((*_FUNC_ISVALIDARGSET_LONG_OPTIONLVL)-_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[4],_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[5]); -if (!new_error) ((int32*)(_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(26062,288,"elements.bas");}while(r); -} -}else{ -S_35275:; -if ((-(*_FUNC_ISVALIDARGSET_LONG_MAXARGUMENT<*_FUNC_ISVALIDARGSET_LONG_CURRENTARG))||new_error){ -if(qbevent){evnt(26062,291,"elements.bas");if(r)goto S_35275;} -S_35276:; -if ((-(((int32*)(_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[0]))[array_check((*_FUNC_ISVALIDARGSET_LONG_OPTIONLVL)-_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[4],_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[5])]!=*_FUNC_ISVALIDARGSET_LONG_ARGNOTPROVIDED))||new_error){ -if(qbevent){evnt(26062,292,"elements.bas");if(r)goto S_35276;} -do{ -*_FUNC_ISVALIDARGSET_LONG_ISVALIDARGSET= 0 ; -if(!qbevent)break;evnt(26062,293,"elements.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26062,294,"elements.bas");}while(r); -} -S_35280:; -}else{ -if (-(((int32*)(_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[0]))[array_check((*_FUNC_ISVALIDARGSET_LONG_OPTIONLVL)-_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[4],_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[5])]!=((int32*)(_FUNC_ISVALIDARGSET_ARRAY_LONG_PROVIDEDARGS[0]))[array_check((*_FUNC_ISVALIDARGSET_LONG_CURRENTARG)-_FUNC_ISVALIDARGSET_ARRAY_LONG_PROVIDEDARGS[4],_FUNC_ISVALIDARGSET_ARRAY_LONG_PROVIDEDARGS[5])])){ -if(qbevent){evnt(26062,296,"elements.bas");if(r)goto S_35280;} -do{ -*_FUNC_ISVALIDARGSET_LONG_ISVALIDARGSET= 0 ; -if(!qbevent)break;evnt(26062,297,"elements.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26062,298,"elements.bas");}while(r); -} -} -} -sc_ec_203_end:; -goto sc_3848_end; -} -sc_3848_end:; -fornext_continue_3845:; -} -fornext_exit_3845:; -S_35287:; -if (((-(*_FUNC_ISVALIDARGSET_LONG_CURRENTARG<*_FUNC_ISVALIDARGSET_LONG_MAXARGUMENT))|(-(((int32*)(_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[0]))[array_check(( 0 )-_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[4],_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[5])]==*_FUNC_ISVALIDARGSET_LONG_ARGNOTPROVIDED)))||new_error){ -if(qbevent){evnt(26062,306,"elements.bas");if(r)goto S_35287;} -do{ -*_FUNC_ISVALIDARGSET_LONG_ISVALIDARGSET= 0 ; -if(!qbevent)break;evnt(26062,307,"elements.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26062,308,"elements.bas");}while(r); -} -do{ -*_FUNC_ISVALIDARGSET_LONG_ISVALIDARGSET= -1 ; -if(!qbevent)break;evnt(26062,311,"elements.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free136.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -return *_FUNC_ISVALIDARGSET_LONG_ISVALIDARGSET; -} -qbs* FUNC_GL2QB_TYPE_CONVERT(qbs*_FUNC_GL2QB_TYPE_CONVERT_STRING_A,qbs*_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL,int32*_FUNC_GL2QB_TYPE_CONVERT_LONG_TYP,qbs*_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data137.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,2,"opengl_methods.bas");}while(r); -S_35293:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GL2QB_TYPE_CONVERT_STRING_A,qbs_new_txt_len("GLenum",6))))||new_error){ -if(qbevent){evnt(26063,5,"opengl_methods.bas");if(r)goto S_35293;} -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_B,qbs_new_txt_len("_UNSIGNED LONG",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,5,"opengl_methods.bas");}while(r); -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL,qbs_new_txt_len("~&",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,5,"opengl_methods.bas");}while(r); -do{ -*_FUNC_GL2QB_TYPE_CONVERT_LONG_TYP=*__LONG_ULONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(26063,5,"opengl_methods.bas");}while(r); -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP,qbs_new_txt_len("uint32",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,5,"opengl_methods.bas");}while(r); -} -S_35299:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GL2QB_TYPE_CONVERT_STRING_A,qbs_new_txt_len("GLbitfield",10))))||new_error){ -if(qbevent){evnt(26063,6,"opengl_methods.bas");if(r)goto S_35299;} -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_B,qbs_new_txt_len("_UNSIGNED LONG",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,6,"opengl_methods.bas");}while(r); -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL,qbs_new_txt_len("~&",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,6,"opengl_methods.bas");}while(r); -do{ -*_FUNC_GL2QB_TYPE_CONVERT_LONG_TYP=*__LONG_ULONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(26063,6,"opengl_methods.bas");}while(r); -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP,qbs_new_txt_len("uint32",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,6,"opengl_methods.bas");}while(r); -} -S_35305:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GL2QB_TYPE_CONVERT_STRING_A,qbs_new_txt_len("GLuint",6))))||new_error){ -if(qbevent){evnt(26063,7,"opengl_methods.bas");if(r)goto S_35305;} -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_B,qbs_new_txt_len("_UNSIGNED LONG",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,7,"opengl_methods.bas");}while(r); -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL,qbs_new_txt_len("~&",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,7,"opengl_methods.bas");}while(r); -do{ -*_FUNC_GL2QB_TYPE_CONVERT_LONG_TYP=*__LONG_ULONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(26063,7,"opengl_methods.bas");}while(r); -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP,qbs_new_txt_len("uint32",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,7,"opengl_methods.bas");}while(r); -} -S_35311:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GL2QB_TYPE_CONVERT_STRING_A,qbs_new_txt_len("GLint",5))))||new_error){ -if(qbevent){evnt(26063,10,"opengl_methods.bas");if(r)goto S_35311;} -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_B,qbs_new_txt_len("LONG",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,10,"opengl_methods.bas");}while(r); -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL,qbs_new_txt_len("&",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,10,"opengl_methods.bas");}while(r); -do{ -*_FUNC_GL2QB_TYPE_CONVERT_LONG_TYP=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(26063,10,"opengl_methods.bas");}while(r); -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP,qbs_new_txt_len("int32",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,10,"opengl_methods.bas");}while(r); -} -S_35317:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GL2QB_TYPE_CONVERT_STRING_A,qbs_new_txt_len("GLsizei",7))))||new_error){ -if(qbevent){evnt(26063,11,"opengl_methods.bas");if(r)goto S_35317;} -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_B,qbs_new_txt_len("LONG",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,11,"opengl_methods.bas");}while(r); -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL,qbs_new_txt_len("&",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,11,"opengl_methods.bas");}while(r); -do{ -*_FUNC_GL2QB_TYPE_CONVERT_LONG_TYP=*__LONG_LONGTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(26063,11,"opengl_methods.bas");}while(r); -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP,qbs_new_txt_len("int32",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,11,"opengl_methods.bas");}while(r); -} -S_35323:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GL2QB_TYPE_CONVERT_STRING_A,qbs_new_txt_len("GLboolean",9))))||new_error){ -if(qbevent){evnt(26063,14,"opengl_methods.bas");if(r)goto S_35323;} -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_B,qbs_new_txt_len("_UNSIGNED _BYTE",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,14,"opengl_methods.bas");}while(r); -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL,qbs_new_txt_len("~%%",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,14,"opengl_methods.bas");}while(r); -do{ -*_FUNC_GL2QB_TYPE_CONVERT_LONG_TYP=*__LONG_UBYTETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(26063,14,"opengl_methods.bas");}while(r); -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP,qbs_new_txt_len("uint8",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,14,"opengl_methods.bas");}while(r); -} -S_35329:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GL2QB_TYPE_CONVERT_STRING_A,qbs_new_txt_len("GLubyte",7))))||new_error){ -if(qbevent){evnt(26063,15,"opengl_methods.bas");if(r)goto S_35329;} -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_B,qbs_new_txt_len("_UNSIGNED _BYTE",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,15,"opengl_methods.bas");}while(r); -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL,qbs_new_txt_len("~%%",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,15,"opengl_methods.bas");}while(r); -do{ -*_FUNC_GL2QB_TYPE_CONVERT_LONG_TYP=*__LONG_UBYTETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(26063,15,"opengl_methods.bas");}while(r); -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP,qbs_new_txt_len("uint8",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,15,"opengl_methods.bas");}while(r); -} -S_35335:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GL2QB_TYPE_CONVERT_STRING_A,qbs_new_txt_len("GLbyte",6))))||new_error){ -if(qbevent){evnt(26063,18,"opengl_methods.bas");if(r)goto S_35335;} -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_B,qbs_new_txt_len("_BYTE",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,18,"opengl_methods.bas");}while(r); -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL,qbs_new_txt_len("%%",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,18,"opengl_methods.bas");}while(r); -do{ -*_FUNC_GL2QB_TYPE_CONVERT_LONG_TYP=*__LONG_BYTETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(26063,18,"opengl_methods.bas");}while(r); -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP,qbs_new_txt_len("int8",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,18,"opengl_methods.bas");}while(r); -} -S_35341:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GL2QB_TYPE_CONVERT_STRING_A,qbs_new_txt_len("GLushort",8))))||new_error){ -if(qbevent){evnt(26063,21,"opengl_methods.bas");if(r)goto S_35341;} -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_B,qbs_new_txt_len("_UNSIGNED INTEGER",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,21,"opengl_methods.bas");}while(r); -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL,qbs_new_txt_len("~%",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,21,"opengl_methods.bas");}while(r); -do{ -*_FUNC_GL2QB_TYPE_CONVERT_LONG_TYP=*__LONG_UINTEGERTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(26063,21,"opengl_methods.bas");}while(r); -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP,qbs_new_txt_len("uint16",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,21,"opengl_methods.bas");}while(r); -} -S_35347:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GL2QB_TYPE_CONVERT_STRING_A,qbs_new_txt_len("GLshort",7))))||new_error){ -if(qbevent){evnt(26063,24,"opengl_methods.bas");if(r)goto S_35347;} -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_B,qbs_new_txt_len("INTEGER",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,24,"opengl_methods.bas");}while(r); -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL,qbs_new_txt_len("%",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,24,"opengl_methods.bas");}while(r); -do{ -*_FUNC_GL2QB_TYPE_CONVERT_LONG_TYP=*__LONG_INTEGERTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(26063,24,"opengl_methods.bas");}while(r); -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP,qbs_new_txt_len("int16",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,24,"opengl_methods.bas");}while(r); -} -S_35353:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GL2QB_TYPE_CONVERT_STRING_A,qbs_new_txt_len("GLfloat",7))))||new_error){ -if(qbevent){evnt(26063,27,"opengl_methods.bas");if(r)goto S_35353;} -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_B,qbs_new_txt_len("SINGLE",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,27,"opengl_methods.bas");}while(r); -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL,qbs_new_txt_len("!",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,27,"opengl_methods.bas");}while(r); -do{ -*_FUNC_GL2QB_TYPE_CONVERT_LONG_TYP=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(26063,27,"opengl_methods.bas");}while(r); -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP,qbs_new_txt_len("float",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,27,"opengl_methods.bas");}while(r); -} -S_35359:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GL2QB_TYPE_CONVERT_STRING_A,qbs_new_txt_len("GLclampf",8))))||new_error){ -if(qbevent){evnt(26063,28,"opengl_methods.bas");if(r)goto S_35359;} -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_B,qbs_new_txt_len("SINGLE",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,28,"opengl_methods.bas");}while(r); -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL,qbs_new_txt_len("!",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,28,"opengl_methods.bas");}while(r); -do{ -*_FUNC_GL2QB_TYPE_CONVERT_LONG_TYP=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(26063,28,"opengl_methods.bas");}while(r); -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP,qbs_new_txt_len("float",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,28,"opengl_methods.bas");}while(r); -} -S_35365:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GL2QB_TYPE_CONVERT_STRING_A,qbs_new_txt_len("GLdouble",8))))||new_error){ -if(qbevent){evnt(26063,31,"opengl_methods.bas");if(r)goto S_35365;} -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_B,qbs_new_txt_len("DOUBLE",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,31,"opengl_methods.bas");}while(r); -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL,qbs_new_txt_len("#",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,31,"opengl_methods.bas");}while(r); -do{ -*_FUNC_GL2QB_TYPE_CONVERT_LONG_TYP=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(26063,31,"opengl_methods.bas");}while(r); -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP,qbs_new_txt_len("double",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,31,"opengl_methods.bas");}while(r); -} -S_35371:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GL2QB_TYPE_CONVERT_STRING_A,qbs_new_txt_len("GLclampd",8))))||new_error){ -if(qbevent){evnt(26063,32,"opengl_methods.bas");if(r)goto S_35371;} -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_B,qbs_new_txt_len("DOUBLE",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,32,"opengl_methods.bas");}while(r); -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL,qbs_new_txt_len("#",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,32,"opengl_methods.bas");}while(r); -do{ -*_FUNC_GL2QB_TYPE_CONVERT_LONG_TYP=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(26063,32,"opengl_methods.bas");}while(r); -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP,qbs_new_txt_len("double",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,32,"opengl_methods.bas");}while(r); -} -S_35377:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GL2QB_TYPE_CONVERT_STRING_A,qbs_new_txt_len("GLvoid",6))))||new_error){ -if(qbevent){evnt(26063,35,"opengl_methods.bas");if(r)goto S_35377;} -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_B,qbs_new_txt_len("_OFFSET",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,35,"opengl_methods.bas");}while(r); -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL,qbs_new_txt_len("%&",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,35,"opengl_methods.bas");}while(r); -do{ -*_FUNC_GL2QB_TYPE_CONVERT_LONG_TYP=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(26063,35,"opengl_methods.bas");}while(r); -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP,qbs_new_txt_len("ptrszint",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,35,"opengl_methods.bas");}while(r); -} -S_35383:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GL2QB_TYPE_CONVERT_STRING_B,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26063,53,"opengl_methods.bas");if(r)goto S_35383;} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_add(qbs_new_txt_len("Unknown type:",13),_FUNC_GL2QB_TYPE_CONVERT_STRING_A)); -if (new_error) goto skip3852; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip3852: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,53,"opengl_methods.bas");}while(r); -do{ -sub_end(); -if(!qbevent)break;evnt(26063,53,"opengl_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_GL2QB_TYPE_CONVERT,_FUNC_GL2QB_TYPE_CONVERT_STRING_B); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,54,"opengl_methods.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free137.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_GL2QB_TYPE_CONVERT_STRING_GL2QB_TYPE_CONVERT);return _FUNC_GL2QB_TYPE_CONVERT_STRING_GL2QB_TYPE_CONVERT; -} -qbs* FUNC_READCHUNK(qbs*_FUNC_READCHUNK_STRING_A,qbs*_FUNC_READCHUNK_STRING_LAST_CHARACTER){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data138.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -qbs_set(_FUNC_READCHUNK_STRING_A,qbs_ltrim(qbs_rtrim(_FUNC_READCHUNK_STRING_A))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,58,"opengl_methods.bas");}while(r); -S_35389:; -fornext_value3856= 1 ; -fornext_finalvalue3856=_FUNC_READCHUNK_STRING_A->len; -fornext_step3856= 1 ; -if (fornext_step3856<0) fornext_step_negative3856=1; else fornext_step_negative3856=0; -if (new_error) goto fornext_error3856; -goto fornext_entrylabel3856; -while(1){ -fornext_value3856=fornext_step3856+(*_FUNC_READCHUNK_LONG_X); -fornext_entrylabel3856: -*_FUNC_READCHUNK_LONG_X=fornext_value3856; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative3856){ -if (fornext_value3856fornext_finalvalue3856) break; -} -fornext_error3856:; -if(qbevent){evnt(26063,59,"opengl_methods.bas");if(r)goto S_35389;} -do{ -*_FUNC_READCHUNK_LONG_C=qbs_asc(_FUNC_READCHUNK_STRING_A,*_FUNC_READCHUNK_LONG_X); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,60,"opengl_methods.bas");}while(r); -S_35391:; -if (((-(*_FUNC_READCHUNK_LONG_C== 32 ))|(-(*_FUNC_READCHUNK_LONG_C== 44 ))|(-(*_FUNC_READCHUNK_LONG_C== 40 ))|(-(*_FUNC_READCHUNK_LONG_C== 41 )))||new_error){ -if(qbevent){evnt(26063,61,"opengl_methods.bas");if(r)goto S_35391;} -do{ -qbs_set(_FUNC_READCHUNK_STRING_LAST_CHARACTER,func_chr(*_FUNC_READCHUNK_LONG_C)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,61,"opengl_methods.bas");}while(r); -do{ -qbs_set(_FUNC_READCHUNK_STRING_READCHUNK,qbs_left(_FUNC_READCHUNK_STRING_A,*_FUNC_READCHUNK_LONG_X- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,61,"opengl_methods.bas");}while(r); -do{ -qbs_set(_FUNC_READCHUNK_STRING_A,qbs_ltrim(qbs_right(_FUNC_READCHUNK_STRING_A,_FUNC_READCHUNK_STRING_A->len-*_FUNC_READCHUNK_LONG_X))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,61,"opengl_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26063,61,"opengl_methods.bas");}while(r); -} -fornext_continue_3855:; -} -fornext_exit_3855:; -do{ -qbs_set(_FUNC_READCHUNK_STRING_READCHUNK,_FUNC_READCHUNK_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,63,"opengl_methods.bas");}while(r); -do{ -qbs_set(_FUNC_READCHUNK_STRING_LAST_CHARACTER,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,63,"opengl_methods.bas");}while(r); -do{ -qbs_set(_FUNC_READCHUNK_STRING_A,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,63,"opengl_methods.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free138.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_READCHUNK_STRING_READCHUNK);return _FUNC_READCHUNK_STRING_READCHUNK; -} -void SUB_GL_SCAN_HEADER(){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data139.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -S_35401:; -if ((*__LONG_GL_KIT)||new_error){ -if(qbevent){evnt(26063,69,"opengl_methods.bas");if(r)goto S_35401;} -do{ -*_SUB_GL_SCAN_HEADER_LONG_HK=func_freefile(); -if(!qbevent)break;evnt(26063,69,"opengl_methods.bas");}while(r); -do{ -sub_open(qbs_new_txt_len("internal\\c\\parts\\core\\gl_header_for_parsing\\temp\\gl_kit.bas",59), 4 ,NULL,NULL,*_SUB_GL_SCAN_HEADER_LONG_HK,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,69,"opengl_methods.bas");}while(r); -} -S_35405:; -if ((*__LONG_GL_KIT)||new_error){ -if(qbevent){evnt(26063,70,"opengl_methods.bas");if(r)goto S_35405;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*_SUB_GL_SCAN_HEADER_LONG_HK; -if (new_error) goto skip3859; -sub_file_print(tmp_fileno,qbs_new_txt_len("DECLARE LIBRARY",15), 0, 0, 1); -if (new_error) goto skip3859; -skip3859: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(26063,70,"opengl_methods.bas");}while(r); -} -do{ -*_SUB_GL_SCAN_HEADER_LONG_D= 0 ; -if(!qbevent)break;evnt(26063,72,"opengl_methods.bas");}while(r); -do{ -qbs_set(_SUB_GL_SCAN_HEADER_STRING_A2,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,72,"opengl_methods.bas");}while(r); -do{ -*_SUB_GL_SCAN_HEADER_LONG_H=func_freefile(); -if(!qbevent)break;evnt(26063,73,"opengl_methods.bas");}while(r); -do{ -sub_open(qbs_new_txt_len("internal\\c\\parts\\core\\gl_header_for_parsing\\gl.h",48), 2 ,NULL,NULL,*_SUB_GL_SCAN_HEADER_LONG_H,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,74,"opengl_methods.bas");}while(r); -S_35412:; -while((!(func_eof(*_SUB_GL_SCAN_HEADER_LONG_H)))||new_error){ -if(qbevent){evnt(26063,75,"opengl_methods.bas");if(r)goto S_35412;} -do{ -tmp_fileno=*_SUB_GL_SCAN_HEADER_LONG_H; -if (new_error) goto skip3861; -sub_file_line_input_string(tmp_fileno,_SUB_GL_SCAN_HEADER_STRING_A); -if (new_error) goto skip3861; -skip3861: -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,76,"opengl_methods.bas");}while(r); -S_35414:; -if ((qbs_cleanup(qbs_tmp_base,_SUB_GL_SCAN_HEADER_STRING_A->len))||new_error){ -if(qbevent){evnt(26063,77,"opengl_methods.bas");if(r)goto S_35414;} -do{ -qbs_set(_SUB_GL_SCAN_HEADER_STRING_A,qbs_ltrim(qbs_rtrim(_SUB_GL_SCAN_HEADER_STRING_A))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,78,"opengl_methods.bas");}while(r); -S_35416:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_GL_SCAN_HEADER_STRING_A, 8 ),qbs_new_txt_len("#define ",8))))||new_error){ -if(qbevent){evnt(26063,79,"opengl_methods.bas");if(r)goto S_35416;} -do{ -qbs_set(_SUB_GL_SCAN_HEADER_STRING_A2,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,80,"opengl_methods.bas");}while(r); -do{ -qbs_set(_SUB_GL_SCAN_HEADER_STRING_A,qbs_add(_SUB_GL_SCAN_HEADER_STRING_A,qbs_new_txt_len(" ",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,81,"opengl_methods.bas");}while(r); -S_35419:; -fornext_value3864= 1 ; -fornext_finalvalue3864=_SUB_GL_SCAN_HEADER_STRING_A->len; -fornext_step3864= 1 ; -if (fornext_step3864<0) fornext_step_negative3864=1; else fornext_step_negative3864=0; -if (new_error) goto fornext_error3864; -goto fornext_entrylabel3864; -while(1){ -fornext_value3864=fornext_step3864+(*_SUB_GL_SCAN_HEADER_LONG_X); -fornext_entrylabel3864: -*_SUB_GL_SCAN_HEADER_LONG_X=fornext_value3864; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative3864){ -if (fornext_value3864fornext_finalvalue3864) break; -} -fornext_error3864:; -if(qbevent){evnt(26063,82,"opengl_methods.bas");if(r)goto S_35419;} -do{ -*_SUB_GL_SCAN_HEADER_LONG_C=qbs_asc(_SUB_GL_SCAN_HEADER_STRING_A,*_SUB_GL_SCAN_HEADER_LONG_X); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,83,"opengl_methods.bas");}while(r); -S_35421:; -if ((-(*_SUB_GL_SCAN_HEADER_LONG_C== 32 ))||new_error){ -if(qbevent){evnt(26063,84,"opengl_methods.bas");if(r)goto S_35421;} -S_35422:; -fornext_value3867= 1 ; -fornext_finalvalue3867=_SUB_GL_SCAN_HEADER_STRING_A2->len; -fornext_step3867= 1 ; -if (fornext_step3867<0) fornext_step_negative3867=1; else fornext_step_negative3867=0; -if (new_error) goto fornext_error3867; -goto fornext_entrylabel3867; -while(1){ -fornext_value3867=fornext_step3867+(*_SUB_GL_SCAN_HEADER_LONG_X2); -fornext_entrylabel3867: -*_SUB_GL_SCAN_HEADER_LONG_X2=fornext_value3867; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative3867){ -if (fornext_value3867fornext_finalvalue3867) break; -} -fornext_error3867:; -if(qbevent){evnt(26063,85,"opengl_methods.bas");if(r)goto S_35422;} -do{ -*_SUB_GL_SCAN_HEADER_LONG_C2=qbs_asc(_SUB_GL_SCAN_HEADER_STRING_A2,*_SUB_GL_SCAN_HEADER_LONG_X2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,86,"opengl_methods.bas");}while(r); -S_35424:; -if (((-(*_SUB_GL_SCAN_HEADER_LONG_C2>= 65 ))&(-(*_SUB_GL_SCAN_HEADER_LONG_C2<= 90 )))||new_error){ -if(qbevent){evnt(26063,87,"opengl_methods.bas");if(r)goto S_35424;} -do{ -goto LABEL_DEFINE_OK; -if(!qbevent)break;evnt(26063,87,"opengl_methods.bas");}while(r); -} -S_35427:; -if (((-(*_SUB_GL_SCAN_HEADER_LONG_C2>= 48 ))&(-(*_SUB_GL_SCAN_HEADER_LONG_C2<= 57 ))&(-(*_SUB_GL_SCAN_HEADER_LONG_X2!= 1 )))||new_error){ -if(qbevent){evnt(26063,88,"opengl_methods.bas");if(r)goto S_35427;} -do{ -goto LABEL_DEFINE_OK; -if(!qbevent)break;evnt(26063,88,"opengl_methods.bas");}while(r); -} -S_35430:; -if ((-(*_SUB_GL_SCAN_HEADER_LONG_C2== 95 ))||new_error){ -if(qbevent){evnt(26063,89,"opengl_methods.bas");if(r)goto S_35430;} -do{ -goto LABEL_DEFINE_OK; -if(!qbevent)break;evnt(26063,89,"opengl_methods.bas");}while(r); -} -do{ -goto LABEL_DEFINE_NOT_OK; -if(!qbevent)break;evnt(26063,90,"opengl_methods.bas");}while(r); -LABEL_DEFINE_OK:; -if(qbevent){evnt(26063,91,"opengl_methods.bas");r=0;} -fornext_continue_3866:; -} -fornext_exit_3866:; -do{ -qbs_set(_SUB_GL_SCAN_HEADER_STRING_VALUE,qbs_ltrim(qbs_rtrim(qbs_right(_SUB_GL_SCAN_HEADER_STRING_A,_SUB_GL_SCAN_HEADER_STRING_A->len-*_SUB_GL_SCAN_HEADER_LONG_X)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,93,"opengl_methods.bas");}while(r); -S_35436:; -if ((qbs_cleanup(qbs_tmp_base,-(_SUB_GL_SCAN_HEADER_STRING_VALUE->len== 0 )))||new_error){ -if(qbevent){evnt(26063,94,"opengl_methods.bas");if(r)goto S_35436;} -do{ -goto LABEL_DEFINE_NOT_OK; -if(!qbevent)break;evnt(26063,94,"opengl_methods.bas");}while(r); -} -S_35439:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_GL_SCAN_HEADER_STRING_VALUE, 2 ),qbs_new_txt_len("0x",2))))||new_error){ -if(qbevent){evnt(26063,96,"opengl_methods.bas");if(r)goto S_35439;} -do{ -*_SUB_GL_SCAN_HEADER_INTEGER64_VALUE=qbr(func_val(qbs_add(qbs_add(qbs_new_txt_len("&H",2),qbs_right(_SUB_GL_SCAN_HEADER_STRING_VALUE,_SUB_GL_SCAN_HEADER_STRING_VALUE->len- 2 )),qbs_new_txt_len("&&",2)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,97,"opengl_methods.bas");}while(r); -do{ -*_SUB_GL_SCAN_HEADER_LONG_D=*_SUB_GL_SCAN_HEADER_LONG_D+ 1 ; -if(!qbevent)break;evnt(26063,99,"opengl_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_GL_SCAN_HEADER_LONG_D)-__ARRAY_STRING_GL_DEFINES[4],__ARRAY_STRING_GL_DEFINES[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_GL_DEFINES[0]))[tmp_long])),_SUB_GL_SCAN_HEADER_STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,99,"opengl_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_GL_SCAN_HEADER_LONG_D)-__ARRAY_INTEGER64_GL_DEFINES_VALUE[4],__ARRAY_INTEGER64_GL_DEFINES_VALUE[5]); -if (!new_error) ((int64*)(__ARRAY_INTEGER64_GL_DEFINES_VALUE[0]))[tmp_long]=*_SUB_GL_SCAN_HEADER_INTEGER64_VALUE; -if(!qbevent)break;evnt(26063,99,"opengl_methods.bas");}while(r); -S_35444:; -}else{ -if (qbs_cleanup(qbs_tmp_base,(-(qbs_asc(_SUB_GL_SCAN_HEADER_STRING_VALUE)>= 48 ))&(-(qbs_asc(_SUB_GL_SCAN_HEADER_STRING_VALUE)<= 57 )))){ -if(qbevent){evnt(26063,100,"opengl_methods.bas");if(r)goto S_35444;} -do{ -*_SUB_GL_SCAN_HEADER_INTEGER64_VALUE=qbr(func_val(_SUB_GL_SCAN_HEADER_STRING_VALUE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,101,"opengl_methods.bas");}while(r); -do{ -*_SUB_GL_SCAN_HEADER_LONG_D=*_SUB_GL_SCAN_HEADER_LONG_D+ 1 ; -if(!qbevent)break;evnt(26063,103,"opengl_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_GL_SCAN_HEADER_LONG_D)-__ARRAY_STRING_GL_DEFINES[4],__ARRAY_STRING_GL_DEFINES[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_GL_DEFINES[0]))[tmp_long])),_SUB_GL_SCAN_HEADER_STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,103,"opengl_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_GL_SCAN_HEADER_LONG_D)-__ARRAY_INTEGER64_GL_DEFINES_VALUE[4],__ARRAY_INTEGER64_GL_DEFINES_VALUE[5]); -if (!new_error) ((int64*)(__ARRAY_INTEGER64_GL_DEFINES_VALUE[0]))[tmp_long]=*_SUB_GL_SCAN_HEADER_INTEGER64_VALUE; -if(!qbevent)break;evnt(26063,103,"opengl_methods.bas");}while(r); -}else{ -S_35450:; -fornext_value3873= 1 ; -fornext_finalvalue3873=*_SUB_GL_SCAN_HEADER_LONG_D; -fornext_step3873= 1 ; -if (fornext_step3873<0) fornext_step_negative3873=1; else fornext_step_negative3873=0; -if (new_error) goto fornext_error3873; -goto fornext_entrylabel3873; -while(1){ -fornext_value3873=fornext_step3873+(*_SUB_GL_SCAN_HEADER_LONG_I); -fornext_entrylabel3873: -*_SUB_GL_SCAN_HEADER_LONG_I=fornext_value3873; -if (fornext_step_negative3873){ -if (fornext_value3873fornext_finalvalue3873) break; -} -fornext_error3873:; -if(qbevent){evnt(26063,106,"opengl_methods.bas");if(r)goto S_35450;} -S_35451:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_GL_DEFINES[0]))[array_check((*_SUB_GL_SCAN_HEADER_LONG_I)-__ARRAY_STRING_GL_DEFINES[4],__ARRAY_STRING_GL_DEFINES[5])])),_SUB_GL_SCAN_HEADER_STRING_VALUE)))||new_error){ -if(qbevent){evnt(26063,107,"opengl_methods.bas");if(r)goto S_35451;} -do{ -*_SUB_GL_SCAN_HEADER_LONG_D=*_SUB_GL_SCAN_HEADER_LONG_D+ 1 ; -if(!qbevent)break;evnt(26063,108,"opengl_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_GL_SCAN_HEADER_LONG_D)-__ARRAY_STRING_GL_DEFINES[4],__ARRAY_STRING_GL_DEFINES[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_GL_DEFINES[0]))[tmp_long])),_SUB_GL_SCAN_HEADER_STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,108,"opengl_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_GL_SCAN_HEADER_LONG_D)-__ARRAY_INTEGER64_GL_DEFINES_VALUE[4],__ARRAY_INTEGER64_GL_DEFINES_VALUE[5]); -if (!new_error) ((int64*)(__ARRAY_INTEGER64_GL_DEFINES_VALUE[0]))[tmp_long]=((int64*)(__ARRAY_INTEGER64_GL_DEFINES_VALUE[0]))[array_check((*_SUB_GL_SCAN_HEADER_LONG_I)-__ARRAY_INTEGER64_GL_DEFINES_VALUE[4],__ARRAY_INTEGER64_GL_DEFINES_VALUE[5])]; -if(!qbevent)break;evnt(26063,108,"opengl_methods.bas");}while(r); -do{ -goto fornext_exit_3872; -if(!qbevent)break;evnt(26063,110,"opengl_methods.bas");}while(r); -} -fornext_continue_3872:; -} -fornext_exit_3872:; -} -} -do{ -goto LABEL_GOT_DEFINE; -if(!qbevent)break;evnt(26063,114,"opengl_methods.bas");}while(r); -LABEL_DEFINE_NOT_OK:; -if(qbevent){evnt(26063,115,"opengl_methods.bas");r=0;} -do{ -qbs_set(_SUB_GL_SCAN_HEADER_STRING_A2,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,116,"opengl_methods.bas");}while(r); -}else{ -do{ -qbs_set(_SUB_GL_SCAN_HEADER_STRING_A2,qbs_add(_SUB_GL_SCAN_HEADER_STRING_A2,func_chr(*_SUB_GL_SCAN_HEADER_LONG_C))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,118,"opengl_methods.bas");}while(r); -} -fornext_continue_3863:; -} -fornext_exit_3863:; -LABEL_GOT_DEFINE:; -if(qbevent){evnt(26063,121,"opengl_methods.bas");r=0;} -} -S_35466:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_SUB_GL_SCAN_HEADER_STRING_A, 1 ),qbs_new_txt_len(";",1))))||new_error){ -if(qbevent){evnt(26063,125,"opengl_methods.bas");if(r)goto S_35466;} -do{ -qbs_set(_SUB_GL_SCAN_HEADER_STRING_A2,FUNC_READCHUNK(_SUB_GL_SCAN_HEADER_STRING_A,_SUB_GL_SCAN_HEADER_STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,126,"opengl_methods.bas");}while(r); -S_35468:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_GL_SCAN_HEADER_STRING_A2,qbs_new_txt_len("WINGDIAPI",9))))||new_error){ -if(qbevent){evnt(26063,126,"opengl_methods.bas");if(r)goto S_35468;} -do{ -goto LABEL_DISCARD; -if(!qbevent)break;evnt(26063,126,"opengl_methods.bas");}while(r); -} -do{ -qbs_set(_SUB_GL_SCAN_HEADER_STRING_RET_TYPE,FUNC_READCHUNK(_SUB_GL_SCAN_HEADER_STRING_A,_SUB_GL_SCAN_HEADER_STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,127,"opengl_methods.bas");}while(r); -S_35472:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_GL_SCAN_HEADER_STRING_RET_TYPE,qbs_new_txt_len("const",5))))||new_error){ -if(qbevent){evnt(26063,128,"opengl_methods.bas");if(r)goto S_35472;} -do{ -qbs_set(_SUB_GL_SCAN_HEADER_STRING_RET_TYPE,FUNC_READCHUNK(_SUB_GL_SCAN_HEADER_STRING_A,_SUB_GL_SCAN_HEADER_STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,128,"opengl_methods.bas");}while(r); -} -do{ -*_SUB_GL_SCAN_HEADER_LONG_IS_FUNC= 0 ; -if(!qbevent)break;evnt(26063,130,"opengl_methods.bas");}while(r); -S_35476:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_GL_SCAN_HEADER_STRING_RET_TYPE,qbs_new_txt_len("void",4))))||new_error){ -if(qbevent){evnt(26063,130,"opengl_methods.bas");if(r)goto S_35476;} -do{ -*_SUB_GL_SCAN_HEADER_LONG_IS_FUNC= 1 ; -if(!qbevent)break;evnt(26063,130,"opengl_methods.bas");}while(r); -} -do{ -qbs_set(_SUB_GL_SCAN_HEADER_STRING_A2,FUNC_READCHUNK(_SUB_GL_SCAN_HEADER_STRING_A,_SUB_GL_SCAN_HEADER_STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,132,"opengl_methods.bas");}while(r); -S_35480:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_GL_SCAN_HEADER_STRING_A2,qbs_new_txt_len("*APIENTRY",9))))||new_error){ -if(qbevent){evnt(26063,133,"opengl_methods.bas");if(r)goto S_35480;} -do{ -qbs_set(_SUB_GL_SCAN_HEADER_STRING_RET_TYPE,qbs_add(_SUB_GL_SCAN_HEADER_STRING_RET_TYPE,qbs_new_txt_len("*",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,133,"opengl_methods.bas");}while(r); -do{ -qbs_set(_SUB_GL_SCAN_HEADER_STRING_A2,qbs_new_txt_len("APIENTRY",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,133,"opengl_methods.bas");}while(r); -} -S_35484:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_GL_SCAN_HEADER_STRING_A2,qbs_new_txt_len("APIENTRY",8))))||new_error){ -if(qbevent){evnt(26063,134,"opengl_methods.bas");if(r)goto S_35484;} -do{ -goto LABEL_DISCARD; -if(!qbevent)break;evnt(26063,134,"opengl_methods.bas");}while(r); -} -do{ -*__LONG_GL_COMMANDS_LAST=*__LONG_GL_COMMANDS_LAST+ 1 ; -if(!qbevent)break;evnt(26063,136,"opengl_methods.bas");}while(r); -do{ -*_SUB_GL_SCAN_HEADER_LONG_C=*__LONG_GL_COMMANDS_LAST; -if(!qbevent)break;evnt(26063,137,"opengl_methods.bas");}while(r); -do{ -qbs_set(_SUB_GL_SCAN_HEADER_STRING_HC,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,139,"opengl_methods.bas");}while(r); -do{ -qbs_set(_SUB_GL_SCAN_HEADER_STRING_HD,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,140,"opengl_methods.bas");}while(r); -do{ -*_SUB_GL_SCAN_HEADER_LONG_NEED_HELPER_FUNCTION= 0 ; -if(!qbevent)break;evnt(26063,141,"opengl_methods.bas");}while(r); -S_35492:; -if ((*_SUB_GL_SCAN_HEADER_LONG_IS_FUNC)||new_error){ -if(qbevent){evnt(26063,143,"opengl_methods.bas");if(r)goto S_35492;} -do{ -*(int16*)(((char*)__ARRAY_UDT_GL_COMMANDS[0])+((array_check((*_SUB_GL_SCAN_HEADER_LONG_C)-__ARRAY_UDT_GL_COMMANDS[4],__ARRAY_UDT_GL_COMMANDS[5]))*216+64))= 1 ; -if(!qbevent)break;evnt(26063,144,"opengl_methods.bas");}while(r); -S_35494:; -if ((*__LONG_GL_KIT)||new_error){ -if(qbevent){evnt(26063,145,"opengl_methods.bas");if(r)goto S_35494;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*_SUB_GL_SCAN_HEADER_LONG_HK; -if (new_error) goto skip3874; -sub_file_print(tmp_fileno,qbs_new_txt_len("FUNCTION ",9), 0, 0, 0); -if (new_error) goto skip3874; -skip3874: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(26063,145,"opengl_methods.bas");}while(r); -} -}else{ -do{ -*(int16*)(((char*)__ARRAY_UDT_GL_COMMANDS[0])+((array_check((*_SUB_GL_SCAN_HEADER_LONG_C)-__ARRAY_UDT_GL_COMMANDS[4],__ARRAY_UDT_GL_COMMANDS[5]))*216+64))= 2 ; -if(!qbevent)break;evnt(26063,147,"opengl_methods.bas");}while(r); -S_35499:; -if ((*__LONG_GL_KIT)||new_error){ -if(qbevent){evnt(26063,148,"opengl_methods.bas");if(r)goto S_35499;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*_SUB_GL_SCAN_HEADER_LONG_HK; -if (new_error) goto skip3875; -sub_file_print(tmp_fileno,qbs_new_txt_len("SUB ",4), 0, 0, 0); -if (new_error) goto skip3875; -skip3875: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(26063,148,"opengl_methods.bas");}while(r); -} -} -do{ -qbs_set(_SUB_GL_SCAN_HEADER_STRING_PROC_NAME,FUNC_READCHUNK(_SUB_GL_SCAN_HEADER_STRING_A,_SUB_GL_SCAN_HEADER_STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,151,"opengl_methods.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_GL_COMMANDS[0])+((array_check((*_SUB_GL_SCAN_HEADER_LONG_C)-__ARRAY_UDT_GL_COMMANDS[4],__ARRAY_UDT_GL_COMMANDS[5]))*216)),64,1),qbs_add(qbs_new_txt_len("_",1),_SUB_GL_SCAN_HEADER_STRING_PROC_NAME)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,153,"opengl_methods.bas");}while(r); -S_35505:; -if ((*__LONG_GL_KIT)||new_error){ -if(qbevent){evnt(26063,153,"opengl_methods.bas");if(r)goto S_35505;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*_SUB_GL_SCAN_HEADER_LONG_HK; -if (new_error) goto skip3876; -sub_file_print(tmp_fileno,_SUB_GL_SCAN_HEADER_STRING_PROC_NAME, 0, 0, 0); -if (new_error) goto skip3876; -skip3876: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(26063,153,"opengl_methods.bas");}while(r); -} -do{ -qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_GL_COMMANDS[0])+((array_check((*_SUB_GL_SCAN_HEADER_LONG_C)-__ARRAY_UDT_GL_COMMANDS[4],__ARRAY_UDT_GL_COMMANDS[5]))*216+66)),64,1),_SUB_GL_SCAN_HEADER_STRING_PROC_NAME); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,154,"opengl_methods.bas");}while(r); -do{ -*(int32*)(((char*)__ARRAY_UDT_GL_COMMANDS[0])+((array_check((*_SUB_GL_SCAN_HEADER_LONG_C)-__ARRAY_UDT_GL_COMMANDS[4],__ARRAY_UDT_GL_COMMANDS[5]))*216+212))= 0 ; -if(!qbevent)break;evnt(26063,156,"opengl_methods.bas");}while(r); -S_35510:; -if ((*_SUB_GL_SCAN_HEADER_LONG_IS_FUNC)||new_error){ -if(qbevent){evnt(26063,157,"opengl_methods.bas");if(r)goto S_35510;} -do{ -*_SUB_GL_SCAN_HEADER_LONG_POINTER= 0 ; -if(!qbevent)break;evnt(26063,158,"opengl_methods.bas");}while(r); -S_35512:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_SUB_GL_SCAN_HEADER_STRING_RET_TYPE, 1 ),qbs_new_txt_len("*",1))))||new_error){ -if(qbevent){evnt(26063,158,"opengl_methods.bas");if(r)goto S_35512;} -do{ -*_SUB_GL_SCAN_HEADER_LONG_POINTER= 1 ; -if(!qbevent)break;evnt(26063,158,"opengl_methods.bas");}while(r); -} -S_35515:; -if ((*_SUB_GL_SCAN_HEADER_LONG_POINTER)||new_error){ -if(qbevent){evnt(26063,159,"opengl_methods.bas");if(r)goto S_35515;} -do{ -qbs_set(_SUB_GL_SCAN_HEADER_STRING_T,qbs_new_txt_len("_OFFSET",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,160,"opengl_methods.bas");}while(r); -do{ -qbs_set(_SUB_GL_SCAN_HEADER_STRING_S,qbs_new_txt_len("&&",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,160,"opengl_methods.bas");}while(r); -do{ -*(int32*)(((char*)__ARRAY_UDT_GL_COMMANDS[0])+((array_check((*_SUB_GL_SCAN_HEADER_LONG_C)-__ARRAY_UDT_GL_COMMANDS[4],__ARRAY_UDT_GL_COMMANDS[5]))*216+212))=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(26063,161,"opengl_methods.bas");}while(r); -do{ -qbs_set(_SUB_GL_SCAN_HEADER_STRING_HD,qbs_add(_SUB_GL_SCAN_HEADER_STRING_HD,qbs_new_txt_len("ptrszint ",9))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,162,"opengl_methods.bas");}while(r); -do{ -*_SUB_GL_SCAN_HEADER_LONG_NEED_HELPER_FUNCTION= 1 ; -if(!qbevent)break;evnt(26063,163,"opengl_methods.bas");}while(r); -}else{ -do{ -qbs_set(_SUB_GL_SCAN_HEADER_STRING_T,FUNC_GL2QB_TYPE_CONVERT(_SUB_GL_SCAN_HEADER_STRING_RET_TYPE,_SUB_GL_SCAN_HEADER_STRING_S,_SUB_GL_SCAN_HEADER_LONG_TYP,_SUB_GL_SCAN_HEADER_STRING_CTYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,165,"opengl_methods.bas");}while(r); -do{ -*(int32*)(((char*)__ARRAY_UDT_GL_COMMANDS[0])+((array_check((*_SUB_GL_SCAN_HEADER_LONG_C)-__ARRAY_UDT_GL_COMMANDS[4],__ARRAY_UDT_GL_COMMANDS[5]))*216+212))=*_SUB_GL_SCAN_HEADER_LONG_TYP; -if(!qbevent)break;evnt(26063,166,"opengl_methods.bas");}while(r); -do{ -qbs_set(_SUB_GL_SCAN_HEADER_STRING_HD,qbs_add(qbs_add(_SUB_GL_SCAN_HEADER_STRING_HD,_SUB_GL_SCAN_HEADER_STRING_CTYP),qbs_new_txt_len(" ",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,167,"opengl_methods.bas");}while(r); -} -S_35526:; -if ((*__LONG_GL_KIT)||new_error){ -if(qbevent){evnt(26063,169,"opengl_methods.bas");if(r)goto S_35526;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*_SUB_GL_SCAN_HEADER_LONG_HK; -if (new_error) goto skip3877; -sub_file_print(tmp_fileno,_SUB_GL_SCAN_HEADER_STRING_S, 0, 0, 0); -if (new_error) goto skip3877; -skip3877: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(26063,169,"opengl_methods.bas");}while(r); -} -do{ -qbs_set(_SUB_GL_SCAN_HEADER_STRING_HC,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_GL_SCAN_HEADER_STRING_HC,qbs_new_txt_len("return (",8)),_SUB_GL_SCAN_HEADER_STRING_CTYP),qbs_new_txt_len(")(",2)),_SUB_GL_SCAN_HEADER_STRING_RET_TYPE),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,170,"opengl_methods.bas");}while(r); -}else{ -do{ -qbs_set(_SUB_GL_SCAN_HEADER_STRING_HD,qbs_add(_SUB_GL_SCAN_HEADER_STRING_HD,qbs_new_txt_len("void ",5))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,172,"opengl_methods.bas");}while(r); -} -S_35533:; -if ((*__LONG_GL_KIT)||new_error){ -if(qbevent){evnt(26063,175,"opengl_methods.bas");if(r)goto S_35533;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*_SUB_GL_SCAN_HEADER_LONG_HK; -if (new_error) goto skip3878; -sub_file_print(tmp_fileno,qbs_new_txt_len("(",1), 0, 0, 0); -if (new_error) goto skip3878; -skip3878: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(26063,175,"opengl_methods.bas");}while(r); -} -do{ -qbs_set(_SUB_GL_SCAN_HEADER_STRING_HC,qbs_add(qbs_add(_SUB_GL_SCAN_HEADER_STRING_HC,_SUB_GL_SCAN_HEADER_STRING_PROC_NAME),qbs_new_txt_len("(",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,177,"opengl_methods.bas");}while(r); -do{ -qbs_set(_SUB_GL_SCAN_HEADER_STRING_HD,qbs_add(qbs_add(qbs_add(_SUB_GL_SCAN_HEADER_STRING_HD,qbs_new_txt_len("call_",5)),_SUB_GL_SCAN_HEADER_STRING_PROC_NAME),qbs_new_txt_len("(",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,178,"opengl_methods.bas");}while(r); -do{ -*(int16*)(((char*)__ARRAY_UDT_GL_COMMANDS[0])+((array_check((*_SUB_GL_SCAN_HEADER_LONG_C)-__ARRAY_UDT_GL_COMMANDS[4],__ARRAY_UDT_GL_COMMANDS[5]))*216+130))= 0 ; -if(!qbevent)break;evnt(26063,181,"opengl_methods.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_GL_COMMANDS[0])+((array_check((*_SUB_GL_SCAN_HEADER_LONG_C)-__ARRAY_UDT_GL_COMMANDS[4],__ARRAY_UDT_GL_COMMANDS[5]))*216+132)),80,1),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,182,"opengl_methods.bas");}while(r); -S_35540:; -do{ -if(qbevent){evnt(26063,184,"opengl_methods.bas");if(r)goto S_35540;} -do{ -qbs_set(_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE,FUNC_READCHUNK(_SUB_GL_SCAN_HEADER_STRING_A,_SUB_GL_SCAN_HEADER_STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,186,"opengl_methods.bas");}while(r); -S_35542:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE,qbs_new_txt_len("",0)))&(qbs_equal(_SUB_GL_SCAN_HEADER_STRING_L,qbs_new_txt_len("(",1)))))||new_error){ -if(qbevent){evnt(26063,187,"opengl_methods.bas");if(r)goto S_35542;} -do{ -qbs_set(_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE,FUNC_READCHUNK(_SUB_GL_SCAN_HEADER_STRING_A,_SUB_GL_SCAN_HEADER_STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,187,"opengl_methods.bas");}while(r); -} -S_35545:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE,qbs_new_txt_len("const",5))))||new_error){ -if(qbevent){evnt(26063,188,"opengl_methods.bas");if(r)goto S_35545;} -do{ -qbs_set(_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE,FUNC_READCHUNK(_SUB_GL_SCAN_HEADER_STRING_A,_SUB_GL_SCAN_HEADER_STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,188,"opengl_methods.bas");}while(r); -} -S_35548:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE,qbs_new_txt_len("void",4)))|(qbs_equal(_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE,qbs_new_txt_len("",0)))))||new_error){ -if(qbevent){evnt(26063,189,"opengl_methods.bas");if(r)goto S_35548;} -do{ -goto LABEL_NO_ARGUMENTS; -if(!qbevent)break;evnt(26063,189,"opengl_methods.bas");}while(r); -} -S_35551:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(_SUB_GL_SCAN_HEADER_STRING_L,qbs_new_txt_len(",",1)))&(qbs_notequal(_SUB_GL_SCAN_HEADER_STRING_L,qbs_new_txt_len(")",1)))))||new_error){ -if(qbevent){evnt(26063,190,"opengl_methods.bas");if(r)goto S_35551;} -do{ -qbs_set(_SUB_GL_SCAN_HEADER_STRING_VAR_NAME,FUNC_READCHUNK(_SUB_GL_SCAN_HEADER_STRING_A,_SUB_GL_SCAN_HEADER_STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,191,"opengl_methods.bas");}while(r); -S_35553:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_GL_SCAN_HEADER_STRING_VAR_NAME, 1 ),qbs_new_txt_len("*",1))))||new_error){ -if(qbevent){evnt(26063,192,"opengl_methods.bas");if(r)goto S_35553;} -do{ -qbs_set(_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE,qbs_add(_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE,qbs_new_txt_len("*",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,192,"opengl_methods.bas");}while(r); -do{ -qbs_set(_SUB_GL_SCAN_HEADER_STRING_VAR_NAME,qbs_right(_SUB_GL_SCAN_HEADER_STRING_VAR_NAME,_SUB_GL_SCAN_HEADER_STRING_VAR_NAME->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,192,"opengl_methods.bas");}while(r); -} -S_35557:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_GL_SCAN_HEADER_STRING_VAR_NAME, 1 ),qbs_new_txt_len("*",1))))||new_error){ -if(qbevent){evnt(26063,193,"opengl_methods.bas");if(r)goto S_35557;} -do{ -qbs_set(_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE,qbs_add(_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE,qbs_new_txt_len("*",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,193,"opengl_methods.bas");}while(r); -do{ -qbs_set(_SUB_GL_SCAN_HEADER_STRING_VAR_NAME,qbs_right(_SUB_GL_SCAN_HEADER_STRING_VAR_NAME,_SUB_GL_SCAN_HEADER_STRING_VAR_NAME->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,193,"opengl_methods.bas");}while(r); -} -}else{ -do{ -qbs_set(_SUB_GL_SCAN_HEADER_STRING_VAR_NAME,qbs_new_txt_len("no_name",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,196,"opengl_methods.bas");}while(r); -} -do{ -qbs_set(_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE_BACKUP,_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,199,"opengl_methods.bas");}while(r); -do{ -*_SUB_GL_SCAN_HEADER_LONG_POINTER= 0 ; -if(!qbevent)break;evnt(26063,201,"opengl_methods.bas");}while(r); -S_35566:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE, 1 ),qbs_new_txt_len("*",1))))||new_error){ -if(qbevent){evnt(26063,203,"opengl_methods.bas");if(r)goto S_35566;} -do{ -qbs_set(_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE,qbs_left(_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE,_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,204,"opengl_methods.bas");}while(r); -do{ -*_SUB_GL_SCAN_HEADER_LONG_POINTER= 1 ; -if(!qbevent)break;evnt(26063,205,"opengl_methods.bas");}while(r); -} -S_35570:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE, 1 ),qbs_new_txt_len("*",1))))||new_error){ -if(qbevent){evnt(26063,207,"opengl_methods.bas");if(r)goto S_35570;} -do{ -qbs_set(_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE,qbs_left(_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE,_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,208,"opengl_methods.bas");}while(r); -do{ -*_SUB_GL_SCAN_HEADER_LONG_POINTER= 2 ; -if(!qbevent)break;evnt(26063,209,"opengl_methods.bas");}while(r); -} -S_35574:; -if ((-(*_SUB_GL_SCAN_HEADER_LONG_POINTER== 2 ))||new_error){ -if(qbevent){evnt(26063,212,"opengl_methods.bas");if(r)goto S_35574;} -do{ -qbs_set(_SUB_GL_SCAN_HEADER_STRING_QB_TYPE,qbs_new_txt_len("_OFFSET",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,213,"opengl_methods.bas");}while(r); -}else{ -do{ -qbs_set(_SUB_GL_SCAN_HEADER_STRING_QB_TYPE,FUNC_GL2QB_TYPE_CONVERT(_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE,_SUB_GL_SCAN_HEADER_STRING_S,_SUB_GL_SCAN_HEADER_LONG_TYP,_SUB_GL_SCAN_HEADER_STRING_CTYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,215,"opengl_methods.bas");}while(r); -} -do{ -*_SUB_GL_SCAN_HEADER_LONG_NEED_HELPER_FUNCTION= 1 ; -if(!qbevent)break;evnt(26063,219,"opengl_methods.bas");}while(r); -S_35580:; -if ((*__LONG_GL_KIT)||new_error){ -if(qbevent){evnt(26063,221,"opengl_methods.bas");if(r)goto S_35580;} -S_35581:; -if ((-(*_SUB_GL_SCAN_HEADER_LONG_POINTER== 0 ))||new_error){ -if(qbevent){evnt(26063,222,"opengl_methods.bas");if(r)goto S_35581;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*_SUB_GL_SCAN_HEADER_LONG_HK; -if (new_error) goto skip3884; -sub_file_print(tmp_fileno,qbs_new_txt_len("BYVAL ",6), 0, 0, 0); -if (new_error) goto skip3884; -skip3884: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(26063,222,"opengl_methods.bas");}while(r); -} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*_SUB_GL_SCAN_HEADER_LONG_HK; -if (new_error) goto skip3885; -sub_file_print(tmp_fileno,qbs_add(qbs_add(_SUB_GL_SCAN_HEADER_STRING_VAR_NAME,qbs_new_txt_len(" AS ",4)),_SUB_GL_SCAN_HEADER_STRING_QB_TYPE), 0, 0, 0); -if (new_error) goto skip3885; -skip3885: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(26063,223,"opengl_methods.bas");}while(r); -S_35585:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_GL_SCAN_HEADER_STRING_L,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(26063,224,"opengl_methods.bas");if(r)goto S_35585;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*_SUB_GL_SCAN_HEADER_LONG_HK; -if (new_error) goto skip3886; -sub_file_print(tmp_fileno,qbs_new_txt_len(",",1), 0, 0, 0); -if (new_error) goto skip3886; -skip3886: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(26063,224,"opengl_methods.bas");}while(r); -} -} -S_35589:; -if ((-(*_SUB_GL_SCAN_HEADER_LONG_POINTER== 0 ))||new_error){ -if(qbevent){evnt(26063,227,"opengl_methods.bas");if(r)goto S_35589;} -do{ -qbs_set(_SUB_GL_SCAN_HEADER_STRING_ARG,l2string(*_SUB_GL_SCAN_HEADER_LONG_TYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,228,"opengl_methods.bas");}while(r); -} -S_35592:; -if ((-(*_SUB_GL_SCAN_HEADER_LONG_POINTER== 1 ))||new_error){ -if(qbevent){evnt(26063,230,"opengl_methods.bas");if(r)goto S_35592;} -do{ -qbs_set(_SUB_GL_SCAN_HEADER_STRING_ARG,l2string(*__LONG_OFFSETTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,231,"opengl_methods.bas");}while(r); -do{ -qbs_set(_SUB_GL_SCAN_HEADER_STRING_CTYP,qbs_new_txt_len("ptrszint",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,232,"opengl_methods.bas");}while(r); -} -S_35596:; -if ((-(*_SUB_GL_SCAN_HEADER_LONG_POINTER== 2 ))||new_error){ -if(qbevent){evnt(26063,234,"opengl_methods.bas");if(r)goto S_35596;} -do{ -qbs_set(_SUB_GL_SCAN_HEADER_STRING_ARG,l2string(*__LONG_OFFSETTYPE-*__LONG_ISPOINTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,235,"opengl_methods.bas");}while(r); -do{ -qbs_set(_SUB_GL_SCAN_HEADER_STRING_CTYP,qbs_new_txt_len("ptrszint",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,236,"opengl_methods.bas");}while(r); -} -do{ -*(int16*)(((char*)__ARRAY_UDT_GL_COMMANDS[0])+((array_check((*_SUB_GL_SCAN_HEADER_LONG_C)-__ARRAY_UDT_GL_COMMANDS[4],__ARRAY_UDT_GL_COMMANDS[5]))*216+130))=*(int16*)(((char*)__ARRAY_UDT_GL_COMMANDS[0])+((array_check((*_SUB_GL_SCAN_HEADER_LONG_C)-__ARRAY_UDT_GL_COMMANDS[4],__ARRAY_UDT_GL_COMMANDS[5]))*216+130))+ 1 ; -if(!qbevent)break;evnt(26063,243,"opengl_methods.bas");}while(r); -do{ -sub_mid(qbs_new_fixed((((uint8*)__ARRAY_UDT_GL_COMMANDS[0])+((array_check((*_SUB_GL_SCAN_HEADER_LONG_C)-__ARRAY_UDT_GL_COMMANDS[4],__ARRAY_UDT_GL_COMMANDS[5]))*216+132)),80,1),((*(int16*)(((char*)__ARRAY_UDT_GL_COMMANDS[0])+((array_check((*_SUB_GL_SCAN_HEADER_LONG_C)-__ARRAY_UDT_GL_COMMANDS[4],__ARRAY_UDT_GL_COMMANDS[5]))*216+130))- 1 )* 4 )+( 1 ), 4 ,_SUB_GL_SCAN_HEADER_STRING_ARG,1); -if(!qbevent)break;evnt(26063,245,"opengl_methods.bas");}while(r); -do{ -qbs_set(_SUB_GL_SCAN_HEADER_STRING_LETTER,func_chr( 96 +*(int16*)(((char*)__ARRAY_UDT_GL_COMMANDS[0])+((array_check((*_SUB_GL_SCAN_HEADER_LONG_C)-__ARRAY_UDT_GL_COMMANDS[4],__ARRAY_UDT_GL_COMMANDS[5]))*216+130)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,250,"opengl_methods.bas");}while(r); -do{ -qbs_set(_SUB_GL_SCAN_HEADER_STRING_HC,qbs_add(qbs_add(qbs_add(qbs_add(_SUB_GL_SCAN_HEADER_STRING_HC,qbs_new_txt_len("(",1)),_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE_BACKUP),qbs_new_txt_len(")",1)),_SUB_GL_SCAN_HEADER_STRING_LETTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,252,"opengl_methods.bas");}while(r); -do{ -qbs_set(_SUB_GL_SCAN_HEADER_STRING_HD,qbs_add(qbs_add(qbs_add(_SUB_GL_SCAN_HEADER_STRING_HD,_SUB_GL_SCAN_HEADER_STRING_CTYP),qbs_new_txt_len(" ",1)),_SUB_GL_SCAN_HEADER_STRING_LETTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,253,"opengl_methods.bas");}while(r); -S_35605:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_GL_SCAN_HEADER_STRING_L,qbs_new_txt_len(")",1))))||new_error){ -if(qbevent){evnt(26063,257,"opengl_methods.bas");if(r)goto S_35605;} -do{ -qbs_set(_SUB_GL_SCAN_HEADER_STRING_HC,qbs_add(_SUB_GL_SCAN_HEADER_STRING_HC,qbs_new_txt_len(",",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,257,"opengl_methods.bas");}while(r); -do{ -qbs_set(_SUB_GL_SCAN_HEADER_STRING_HD,qbs_add(_SUB_GL_SCAN_HEADER_STRING_HD,qbs_new_txt_len(",",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,257,"opengl_methods.bas");}while(r); -} -S_35609:; -dl_continue_3879:; -}while((!(qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_GL_SCAN_HEADER_STRING_L,qbs_new_txt_len(")",1)))))&&(!new_error)); -dl_exit_3879:; -if(qbevent){evnt(26063,259,"opengl_methods.bas");if(r)goto S_35609;} -LABEL_NO_ARGUMENTS:; -if(qbevent){evnt(26063,260,"opengl_methods.bas");r=0;} -do{ -qbs_set(_SUB_GL_SCAN_HEADER_STRING_HD,qbs_add(_SUB_GL_SCAN_HEADER_STRING_HD,qbs_new_txt_len("){",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,263,"opengl_methods.bas");}while(r); -do{ -qbs_set(_SUB_GL_SCAN_HEADER_STRING_HC,qbs_add(_SUB_GL_SCAN_HEADER_STRING_HC,qbs_new_txt_len(");",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,264,"opengl_methods.bas");}while(r); -S_35612:; -if ((*__LONG_GL_KIT)||new_error){ -if(qbevent){evnt(26063,265,"opengl_methods.bas");if(r)goto S_35612;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*_SUB_GL_SCAN_HEADER_LONG_HK; -if (new_error) goto skip3887; -sub_file_print(tmp_fileno,qbs_new_txt_len(")",1), 0, 0, 1); -if (new_error) goto skip3887; -skip3887: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(26063,265,"opengl_methods.bas");}while(r); -} -do{ -qbs_set(_SUB_GL_SCAN_HEADER_STRING_H,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_GL_SCAN_HEADER_STRING_HD,__STRING_CRLF),qbs_new_txt_len("if (!sub_gl_called) error(270);",31)),__STRING_CRLF),_SUB_GL_SCAN_HEADER_STRING_HC),__STRING_CRLF),qbs_new_txt_len("}",1)),__STRING_CRLF)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,266,"opengl_methods.bas");}while(r); -S_35616:; -if ((*_SUB_GL_SCAN_HEADER_LONG_NEED_HELPER_FUNCTION)||new_error){ -if(qbevent){evnt(26063,268,"opengl_methods.bas");if(r)goto S_35616;} -do{ -qbs_set(__STRING_GL_HELPER_CODE,qbs_add(__STRING_GL_HELPER_CODE,_SUB_GL_SCAN_HEADER_STRING_H)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,269,"opengl_methods.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_GL_COMMANDS[0])+((array_check((*_SUB_GL_SCAN_HEADER_LONG_C)-__ARRAY_UDT_GL_COMMANDS[4],__ARRAY_UDT_GL_COMMANDS[5]))*216+66)),64,1),qbs_add(qbs_new_txt_len("call_",5),_SUB_GL_SCAN_HEADER_STRING_PROC_NAME)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,270,"opengl_methods.bas");}while(r); -} -S_35620:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_GL_SCAN_HEADER_STRING_PROC_NAME,qbs_new_txt_len("glGetString",11))))||new_error){ -if(qbevent){evnt(26063,274,"opengl_methods.bas");if(r)goto S_35620;} -do{ -*(int32*)(((char*)__ARRAY_UDT_GL_COMMANDS[0])+((array_check((*_SUB_GL_SCAN_HEADER_LONG_C)-__ARRAY_UDT_GL_COMMANDS[4],__ARRAY_UDT_GL_COMMANDS[5]))*216+212))=*__LONG_STRINGTYPE; -if(!qbevent)break;evnt(26063,275,"opengl_methods.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_GL_COMMANDS[0])+((array_check((*_SUB_GL_SCAN_HEADER_LONG_C)-__ARRAY_UDT_GL_COMMANDS[4],__ARRAY_UDT_GL_COMMANDS[5]))*216+66)),64,1),qbs_add(qbs_new_txt_len("( char* )",11),qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_GL_COMMANDS[0])+((array_check((*_SUB_GL_SCAN_HEADER_LONG_C)-__ARRAY_UDT_GL_COMMANDS[4],__ARRAY_UDT_GL_COMMANDS[5]))*216+66)),64,1)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,276,"opengl_methods.bas");}while(r); -} -} -} -LABEL_DISCARD:; -if(qbevent){evnt(26063,290,"opengl_methods.bas");r=0;} -dl_continue_3860:; -} -dl_exit_3860:; -do{ -sub_close(*_SUB_GL_SCAN_HEADER_LONG_H,1); -if(!qbevent)break;evnt(26063,292,"opengl_methods.bas");}while(r); -S_35628:; -if ((*__LONG_GL_KIT)||new_error){ -if(qbevent){evnt(26063,294,"opengl_methods.bas");if(r)goto S_35628;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*_SUB_GL_SCAN_HEADER_LONG_HK; -if (new_error) goto skip3888; -sub_file_print(tmp_fileno,qbs_new_txt_len("END DECLARE",11), 0, 0, 1); -if (new_error) goto skip3888; -skip3888: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(26063,294,"opengl_methods.bas");}while(r); -} -do{ -*__LONG_GL_DEFINES_LAST=*_SUB_GL_SCAN_HEADER_LONG_D; -if(!qbevent)break;evnt(26063,296,"opengl_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26062,233,"elements.bas");}while(r); +do{ +if(!qbevent)break;evnt(26062,234,"elements.bas");}while(r); +do{ +*_FUNC_ISVALIDARGSET_LONG_ARGPROVIDED= -1 ; +if(!qbevent)break;evnt(26062,236,"elements.bas");}while(r); +do{ +*_FUNC_ISVALIDARGSET_LONG_ARGNOTPROVIDED= 0 ; +if(!qbevent)break;evnt(26062,237,"elements.bas");}while(r); +do{ +*_FUNC_ISVALIDARGSET_LONG_ARGIGNORED= -2 ; +if(!qbevent)break;evnt(26062,238,"elements.bas");}while(r); +do{ +*_FUNC_ISVALIDARGSET_LONG_FIRSTOPTIONALARGUMENT= 0 ; +if(!qbevent)break;evnt(26062,239,"elements.bas");}while(r); +do{ +tmp_long=array_check(( 0 )-_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[4],_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[5]); +if (!new_error) ((int32*)(_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[0]))[tmp_long]=*_FUNC_ISVALIDARGSET_LONG_ARGIGNORED; +if(!qbevent)break;evnt(26062,241,"elements.bas");}while(r); +do{ +*_FUNC_ISVALIDARGSET_LONG_MAXARGUMENT=func_ubound(_FUNC_ISVALIDARGSET_ARRAY_LONG_PROVIDEDARGS,1,1); +if(!qbevent)break;evnt(26062,253,"elements.bas");}while(r); +S_35246:; +fornext_value3846= 1 ; +fornext_finalvalue3846=_FUNC_ISVALIDARGSET_STRING_FORMAT->len; +fornext_step3846= 1 ; +if (fornext_step3846<0) fornext_step_negative3846=1; else fornext_step_negative3846=0; +if (new_error) goto fornext_error3846; +goto fornext_entrylabel3846; +while(1){ +fornext_value3846=fornext_step3846+(*_FUNC_ISVALIDARGSET_LONG_I); +fornext_entrylabel3846: +*_FUNC_ISVALIDARGSET_LONG_I=fornext_value3846; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative3846){ +if (fornext_value3846fornext_finalvalue3846) break; +} +fornext_error3846:; +if(qbevent){evnt(26062,255,"elements.bas");if(r)goto S_35246;} +S_35247:; +sc_3848=qbs_asc(_FUNC_ISVALIDARGSET_STRING_FORMAT,*_FUNC_ISVALIDARGSET_LONG_I); +qbs_cleanup(qbs_tmp_base,0); +if(qbevent){evnt(26062,256,"elements.bas");if(r)goto S_35247;} +S_35248:; +if ((qbs_cleanup(qbs_tmp_base,(sc_3848==(qbs_asc(qbs_new_txt_len("[",1))))))||new_error){ +if(qbevent){evnt(26062,257,"elements.bas");if(r)goto S_35248;} +do{ +*_FUNC_ISVALIDARGSET_LONG_OPTIONLVL=*_FUNC_ISVALIDARGSET_LONG_OPTIONLVL+ 1 ; +if(!qbevent)break;evnt(26062,258,"elements.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_ISVALIDARGSET_LONG_OPTIONLVL)-_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[4],_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[5]); +if (!new_error) ((int32*)(_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[0]))[tmp_long]=*_FUNC_ISVALIDARGSET_LONG_ARGIGNORED; +if(!qbevent)break;evnt(26062,259,"elements.bas");}while(r); +sc_ec_201_end:; +goto sc_3848_end; +} +S_35251:; +if ((qbs_cleanup(qbs_tmp_base,(sc_3848==(qbs_asc(qbs_new_txt_len("]",1))))))||new_error){ +if(qbevent){evnt(26062,261,"elements.bas");if(r)goto S_35251;} +do{ +*_FUNC_ISVALIDARGSET_LONG_OPTIONLVL=*_FUNC_ISVALIDARGSET_LONG_OPTIONLVL- 1 ; +if(!qbevent)break;evnt(26062,262,"elements.bas");}while(r); +S_35253:; +if ((-(((int32*)(_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[0]))[array_check((*_FUNC_ISVALIDARGSET_LONG_OPTIONLVL)-_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[4],_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[5])]==*_FUNC_ISVALIDARGSET_LONG_ARGIGNORED))||new_error){ +if(qbevent){evnt(26062,264,"elements.bas");if(r)goto S_35253;} +S_35254:; +if ((-(((int32*)(_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[0]))[array_check((*_FUNC_ISVALIDARGSET_LONG_OPTIONLVL+ 1 )-_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[4],_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[5])]==*_FUNC_ISVALIDARGSET_LONG_ARGPROVIDED))||new_error){ +if(qbevent){evnt(26062,268,"elements.bas");if(r)goto S_35254;} +do{ +tmp_long=array_check((*_FUNC_ISVALIDARGSET_LONG_OPTIONLVL)-_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[4],_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[5]); +if (!new_error) ((int32*)(_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[0]))[tmp_long]=*_FUNC_ISVALIDARGSET_LONG_ARGPROVIDED; +if(!qbevent)break;evnt(26062,269,"elements.bas");}while(r); +} +}else{ +S_35258:; +if (((-(((int32*)(_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[0]))[array_check((*_FUNC_ISVALIDARGSET_LONG_OPTIONLVL)-_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[4],_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[5])]==*_FUNC_ISVALIDARGSET_LONG_ARGNOTPROVIDED))&(-(((int32*)(_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[0]))[array_check((*_FUNC_ISVALIDARGSET_LONG_OPTIONLVL+ 1 )-_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[4],_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[5])]==*_FUNC_ISVALIDARGSET_LONG_ARGPROVIDED)))||new_error){ +if(qbevent){evnt(26062,274,"elements.bas");if(r)goto S_35258;} +do{ +*_FUNC_ISVALIDARGSET_LONG_ISVALIDARGSET= 0 ; +if(!qbevent)break;evnt(26062,275,"elements.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26062,276,"elements.bas");}while(r); +} +} +sc_ec_202_end:; +goto sc_3848_end; +} +S_35263:; +if ((qbs_cleanup(qbs_tmp_base,(sc_3848==(qbs_asc(qbs_new_txt_len("?",1))))))||new_error){ +if(qbevent){evnt(26062,280,"elements.bas");if(r)goto S_35263;} +do{ +*_FUNC_ISVALIDARGSET_LONG_CURRENTARG=*_FUNC_ISVALIDARGSET_LONG_CURRENTARG+ 1 ; +if(!qbevent)break;evnt(26062,281,"elements.bas");}while(r); +S_35265:; +if (((-(*_FUNC_ISVALIDARGSET_LONG_OPTIONLVL>= 1 ))&(-(*_FUNC_ISVALIDARGSET_LONG_FIRSTOPTIONALARGUMENT== 0 )))||new_error){ +if(qbevent){evnt(26062,282,"elements.bas");if(r)goto S_35265;} +do{ +*_FUNC_ISVALIDARGSET_LONG_FIRSTOPTIONALARGUMENT=*_FUNC_ISVALIDARGSET_LONG_CURRENTARG; +if(!qbevent)break;evnt(26062,282,"elements.bas");}while(r); +} +S_35268:; +if ((-(((int32*)(_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[0]))[array_check((*_FUNC_ISVALIDARGSET_LONG_OPTIONLVL)-_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[4],_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[5])]==*_FUNC_ISVALIDARGSET_LONG_ARGIGNORED))||new_error){ +if(qbevent){evnt(26062,284,"elements.bas");if(r)goto S_35268;} +S_35269:; +if ((-(*_FUNC_ISVALIDARGSET_LONG_MAXARGUMENT>=*_FUNC_ISVALIDARGSET_LONG_CURRENTARG))||new_error){ +if(qbevent){evnt(26062,285,"elements.bas");if(r)goto S_35269;} +do{ +tmp_long=array_check((*_FUNC_ISVALIDARGSET_LONG_OPTIONLVL)-_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[4],_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[5]); +if (!new_error) ((int32*)(_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[0]))[tmp_long]=((int32*)(_FUNC_ISVALIDARGSET_ARRAY_LONG_PROVIDEDARGS[0]))[array_check((*_FUNC_ISVALIDARGSET_LONG_CURRENTARG)-_FUNC_ISVALIDARGSET_ARRAY_LONG_PROVIDEDARGS[4],_FUNC_ISVALIDARGSET_ARRAY_LONG_PROVIDEDARGS[5])]; +if(!qbevent)break;evnt(26062,286,"elements.bas");}while(r); +}else{ +do{ +tmp_long=array_check((*_FUNC_ISVALIDARGSET_LONG_OPTIONLVL)-_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[4],_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[5]); +if (!new_error) ((int32*)(_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[0]))[tmp_long]= 0 ; +if(!qbevent)break;evnt(26062,288,"elements.bas");}while(r); +} +}else{ +S_35275:; +if ((-(*_FUNC_ISVALIDARGSET_LONG_MAXARGUMENT<*_FUNC_ISVALIDARGSET_LONG_CURRENTARG))||new_error){ +if(qbevent){evnt(26062,291,"elements.bas");if(r)goto S_35275;} +S_35276:; +if ((-(((int32*)(_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[0]))[array_check((*_FUNC_ISVALIDARGSET_LONG_OPTIONLVL)-_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[4],_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[5])]!=*_FUNC_ISVALIDARGSET_LONG_ARGNOTPROVIDED))||new_error){ +if(qbevent){evnt(26062,292,"elements.bas");if(r)goto S_35276;} +do{ +*_FUNC_ISVALIDARGSET_LONG_ISVALIDARGSET= 0 ; +if(!qbevent)break;evnt(26062,293,"elements.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26062,294,"elements.bas");}while(r); +} +S_35280:; +}else{ +if (-(((int32*)(_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[0]))[array_check((*_FUNC_ISVALIDARGSET_LONG_OPTIONLVL)-_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[4],_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[5])]!=((int32*)(_FUNC_ISVALIDARGSET_ARRAY_LONG_PROVIDEDARGS[0]))[array_check((*_FUNC_ISVALIDARGSET_LONG_CURRENTARG)-_FUNC_ISVALIDARGSET_ARRAY_LONG_PROVIDEDARGS[4],_FUNC_ISVALIDARGSET_ARRAY_LONG_PROVIDEDARGS[5])])){ +if(qbevent){evnt(26062,296,"elements.bas");if(r)goto S_35280;} +do{ +*_FUNC_ISVALIDARGSET_LONG_ISVALIDARGSET= 0 ; +if(!qbevent)break;evnt(26062,297,"elements.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26062,298,"elements.bas");}while(r); +} +} +} +sc_ec_203_end:; +goto sc_3848_end; +} +sc_3848_end:; +fornext_continue_3845:; +} +fornext_exit_3845:; +S_35287:; +if (((-(*_FUNC_ISVALIDARGSET_LONG_CURRENTARG<*_FUNC_ISVALIDARGSET_LONG_MAXARGUMENT))|(-(((int32*)(_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[0]))[array_check(( 0 )-_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[4],_FUNC_ISVALIDARGSET_ARRAY_LONG_WASPROVIDED[5])]==*_FUNC_ISVALIDARGSET_LONG_ARGNOTPROVIDED)))||new_error){ +if(qbevent){evnt(26062,306,"elements.bas");if(r)goto S_35287;} +do{ +*_FUNC_ISVALIDARGSET_LONG_ISVALIDARGSET= 0 ; +if(!qbevent)break;evnt(26062,307,"elements.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26062,308,"elements.bas");}while(r); +} +do{ +*_FUNC_ISVALIDARGSET_LONG_ISVALIDARGSET= -1 ; +if(!qbevent)break;evnt(26062,311,"elements.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free136.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +return *_FUNC_ISVALIDARGSET_LONG_ISVALIDARGSET; +} +qbs* FUNC_GL2QB_TYPE_CONVERT(qbs*_FUNC_GL2QB_TYPE_CONVERT_STRING_A,qbs*_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL,int32*_FUNC_GL2QB_TYPE_CONVERT_LONG_TYP,qbs*_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data137.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,2,"opengl_methods.bas");}while(r); +S_35293:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GL2QB_TYPE_CONVERT_STRING_A,qbs_new_txt_len("GLenum",6))))||new_error){ +if(qbevent){evnt(26063,5,"opengl_methods.bas");if(r)goto S_35293;} +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_B,qbs_new_txt_len("_UNSIGNED LONG",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,5,"opengl_methods.bas");}while(r); +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL,qbs_new_txt_len("~&",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,5,"opengl_methods.bas");}while(r); +do{ +*_FUNC_GL2QB_TYPE_CONVERT_LONG_TYP=*__LONG_ULONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(26063,5,"opengl_methods.bas");}while(r); +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP,qbs_new_txt_len("uint32",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,5,"opengl_methods.bas");}while(r); +} +S_35299:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GL2QB_TYPE_CONVERT_STRING_A,qbs_new_txt_len("GLbitfield",10))))||new_error){ +if(qbevent){evnt(26063,6,"opengl_methods.bas");if(r)goto S_35299;} +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_B,qbs_new_txt_len("_UNSIGNED LONG",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,6,"opengl_methods.bas");}while(r); +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL,qbs_new_txt_len("~&",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,6,"opengl_methods.bas");}while(r); +do{ +*_FUNC_GL2QB_TYPE_CONVERT_LONG_TYP=*__LONG_ULONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(26063,6,"opengl_methods.bas");}while(r); +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP,qbs_new_txt_len("uint32",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,6,"opengl_methods.bas");}while(r); +} +S_35305:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GL2QB_TYPE_CONVERT_STRING_A,qbs_new_txt_len("GLuint",6))))||new_error){ +if(qbevent){evnt(26063,7,"opengl_methods.bas");if(r)goto S_35305;} +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_B,qbs_new_txt_len("_UNSIGNED LONG",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,7,"opengl_methods.bas");}while(r); +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL,qbs_new_txt_len("~&",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,7,"opengl_methods.bas");}while(r); +do{ +*_FUNC_GL2QB_TYPE_CONVERT_LONG_TYP=*__LONG_ULONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(26063,7,"opengl_methods.bas");}while(r); +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP,qbs_new_txt_len("uint32",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,7,"opengl_methods.bas");}while(r); +} +S_35311:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GL2QB_TYPE_CONVERT_STRING_A,qbs_new_txt_len("GLint",5))))||new_error){ +if(qbevent){evnt(26063,10,"opengl_methods.bas");if(r)goto S_35311;} +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_B,qbs_new_txt_len("LONG",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,10,"opengl_methods.bas");}while(r); +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL,qbs_new_txt_len("&",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,10,"opengl_methods.bas");}while(r); +do{ +*_FUNC_GL2QB_TYPE_CONVERT_LONG_TYP=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(26063,10,"opengl_methods.bas");}while(r); +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP,qbs_new_txt_len("int32",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,10,"opengl_methods.bas");}while(r); +} +S_35317:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GL2QB_TYPE_CONVERT_STRING_A,qbs_new_txt_len("GLsizei",7))))||new_error){ +if(qbevent){evnt(26063,11,"opengl_methods.bas");if(r)goto S_35317;} +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_B,qbs_new_txt_len("LONG",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,11,"opengl_methods.bas");}while(r); +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL,qbs_new_txt_len("&",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,11,"opengl_methods.bas");}while(r); +do{ +*_FUNC_GL2QB_TYPE_CONVERT_LONG_TYP=*__LONG_LONGTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(26063,11,"opengl_methods.bas");}while(r); +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP,qbs_new_txt_len("int32",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,11,"opengl_methods.bas");}while(r); +} +S_35323:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GL2QB_TYPE_CONVERT_STRING_A,qbs_new_txt_len("GLboolean",9))))||new_error){ +if(qbevent){evnt(26063,14,"opengl_methods.bas");if(r)goto S_35323;} +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_B,qbs_new_txt_len("_UNSIGNED _BYTE",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,14,"opengl_methods.bas");}while(r); +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL,qbs_new_txt_len("~%%",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,14,"opengl_methods.bas");}while(r); +do{ +*_FUNC_GL2QB_TYPE_CONVERT_LONG_TYP=*__LONG_UBYTETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(26063,14,"opengl_methods.bas");}while(r); +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP,qbs_new_txt_len("uint8",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,14,"opengl_methods.bas");}while(r); +} +S_35329:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GL2QB_TYPE_CONVERT_STRING_A,qbs_new_txt_len("GLubyte",7))))||new_error){ +if(qbevent){evnt(26063,15,"opengl_methods.bas");if(r)goto S_35329;} +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_B,qbs_new_txt_len("_UNSIGNED _BYTE",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,15,"opengl_methods.bas");}while(r); +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL,qbs_new_txt_len("~%%",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,15,"opengl_methods.bas");}while(r); +do{ +*_FUNC_GL2QB_TYPE_CONVERT_LONG_TYP=*__LONG_UBYTETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(26063,15,"opengl_methods.bas");}while(r); +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP,qbs_new_txt_len("uint8",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,15,"opengl_methods.bas");}while(r); +} +S_35335:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GL2QB_TYPE_CONVERT_STRING_A,qbs_new_txt_len("GLbyte",6))))||new_error){ +if(qbevent){evnt(26063,18,"opengl_methods.bas");if(r)goto S_35335;} +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_B,qbs_new_txt_len("_BYTE",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,18,"opengl_methods.bas");}while(r); +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL,qbs_new_txt_len("%%",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,18,"opengl_methods.bas");}while(r); +do{ +*_FUNC_GL2QB_TYPE_CONVERT_LONG_TYP=*__LONG_BYTETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(26063,18,"opengl_methods.bas");}while(r); +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP,qbs_new_txt_len("int8",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,18,"opengl_methods.bas");}while(r); +} +S_35341:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GL2QB_TYPE_CONVERT_STRING_A,qbs_new_txt_len("GLushort",8))))||new_error){ +if(qbevent){evnt(26063,21,"opengl_methods.bas");if(r)goto S_35341;} +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_B,qbs_new_txt_len("_UNSIGNED INTEGER",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,21,"opengl_methods.bas");}while(r); +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL,qbs_new_txt_len("~%",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,21,"opengl_methods.bas");}while(r); +do{ +*_FUNC_GL2QB_TYPE_CONVERT_LONG_TYP=*__LONG_UINTEGERTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(26063,21,"opengl_methods.bas");}while(r); +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP,qbs_new_txt_len("uint16",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,21,"opengl_methods.bas");}while(r); +} +S_35347:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GL2QB_TYPE_CONVERT_STRING_A,qbs_new_txt_len("GLshort",7))))||new_error){ +if(qbevent){evnt(26063,24,"opengl_methods.bas");if(r)goto S_35347;} +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_B,qbs_new_txt_len("INTEGER",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,24,"opengl_methods.bas");}while(r); +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL,qbs_new_txt_len("%",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,24,"opengl_methods.bas");}while(r); +do{ +*_FUNC_GL2QB_TYPE_CONVERT_LONG_TYP=*__LONG_INTEGERTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(26063,24,"opengl_methods.bas");}while(r); +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP,qbs_new_txt_len("int16",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,24,"opengl_methods.bas");}while(r); +} +S_35353:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GL2QB_TYPE_CONVERT_STRING_A,qbs_new_txt_len("GLfloat",7))))||new_error){ +if(qbevent){evnt(26063,27,"opengl_methods.bas");if(r)goto S_35353;} +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_B,qbs_new_txt_len("SINGLE",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,27,"opengl_methods.bas");}while(r); +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL,qbs_new_txt_len("!",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,27,"opengl_methods.bas");}while(r); +do{ +*_FUNC_GL2QB_TYPE_CONVERT_LONG_TYP=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(26063,27,"opengl_methods.bas");}while(r); +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP,qbs_new_txt_len("float",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,27,"opengl_methods.bas");}while(r); +} +S_35359:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GL2QB_TYPE_CONVERT_STRING_A,qbs_new_txt_len("GLclampf",8))))||new_error){ +if(qbevent){evnt(26063,28,"opengl_methods.bas");if(r)goto S_35359;} +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_B,qbs_new_txt_len("SINGLE",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,28,"opengl_methods.bas");}while(r); +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL,qbs_new_txt_len("!",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,28,"opengl_methods.bas");}while(r); +do{ +*_FUNC_GL2QB_TYPE_CONVERT_LONG_TYP=*__LONG_SINGLETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(26063,28,"opengl_methods.bas");}while(r); +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP,qbs_new_txt_len("float",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,28,"opengl_methods.bas");}while(r); +} +S_35365:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GL2QB_TYPE_CONVERT_STRING_A,qbs_new_txt_len("GLdouble",8))))||new_error){ +if(qbevent){evnt(26063,31,"opengl_methods.bas");if(r)goto S_35365;} +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_B,qbs_new_txt_len("DOUBLE",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,31,"opengl_methods.bas");}while(r); +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL,qbs_new_txt_len("#",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,31,"opengl_methods.bas");}while(r); +do{ +*_FUNC_GL2QB_TYPE_CONVERT_LONG_TYP=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(26063,31,"opengl_methods.bas");}while(r); +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP,qbs_new_txt_len("double",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,31,"opengl_methods.bas");}while(r); +} +S_35371:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GL2QB_TYPE_CONVERT_STRING_A,qbs_new_txt_len("GLclampd",8))))||new_error){ +if(qbevent){evnt(26063,32,"opengl_methods.bas");if(r)goto S_35371;} +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_B,qbs_new_txt_len("DOUBLE",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,32,"opengl_methods.bas");}while(r); +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL,qbs_new_txt_len("#",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,32,"opengl_methods.bas");}while(r); +do{ +*_FUNC_GL2QB_TYPE_CONVERT_LONG_TYP=*__LONG_DOUBLETYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(26063,32,"opengl_methods.bas");}while(r); +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP,qbs_new_txt_len("double",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,32,"opengl_methods.bas");}while(r); +} +S_35377:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GL2QB_TYPE_CONVERT_STRING_A,qbs_new_txt_len("GLvoid",6))))||new_error){ +if(qbevent){evnt(26063,35,"opengl_methods.bas");if(r)goto S_35377;} +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_B,qbs_new_txt_len("_OFFSET",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,35,"opengl_methods.bas");}while(r); +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_SYMBOL,qbs_new_txt_len("%&",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,35,"opengl_methods.bas");}while(r); +do{ +*_FUNC_GL2QB_TYPE_CONVERT_LONG_TYP=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(26063,35,"opengl_methods.bas");}while(r); +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_CTYP,qbs_new_txt_len("ptrszint",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,35,"opengl_methods.bas");}while(r); +} +S_35383:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GL2QB_TYPE_CONVERT_STRING_B,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26063,53,"opengl_methods.bas");if(r)goto S_35383;} +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_add(qbs_new_txt_len("Unknown type:",13),_FUNC_GL2QB_TYPE_CONVERT_STRING_A)); +if (new_error) goto skip3852; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip3852: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,53,"opengl_methods.bas");}while(r); +do{ +sub_end(); +if(!qbevent)break;evnt(26063,53,"opengl_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_GL2QB_TYPE_CONVERT_STRING_GL2QB_TYPE_CONVERT,_FUNC_GL2QB_TYPE_CONVERT_STRING_B); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,54,"opengl_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free137.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_GL2QB_TYPE_CONVERT_STRING_GL2QB_TYPE_CONVERT);return _FUNC_GL2QB_TYPE_CONVERT_STRING_GL2QB_TYPE_CONVERT; +} +qbs* FUNC_READCHUNK(qbs*_FUNC_READCHUNK_STRING_A,qbs*_FUNC_READCHUNK_STRING_LAST_CHARACTER){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data138.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +qbs_set(_FUNC_READCHUNK_STRING_A,qbs_ltrim(qbs_rtrim(_FUNC_READCHUNK_STRING_A))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,58,"opengl_methods.bas");}while(r); +S_35389:; +fornext_value3856= 1 ; +fornext_finalvalue3856=_FUNC_READCHUNK_STRING_A->len; +fornext_step3856= 1 ; +if (fornext_step3856<0) fornext_step_negative3856=1; else fornext_step_negative3856=0; +if (new_error) goto fornext_error3856; +goto fornext_entrylabel3856; +while(1){ +fornext_value3856=fornext_step3856+(*_FUNC_READCHUNK_LONG_X); +fornext_entrylabel3856: +*_FUNC_READCHUNK_LONG_X=fornext_value3856; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative3856){ +if (fornext_value3856fornext_finalvalue3856) break; +} +fornext_error3856:; +if(qbevent){evnt(26063,59,"opengl_methods.bas");if(r)goto S_35389;} +do{ +*_FUNC_READCHUNK_LONG_C=qbs_asc(_FUNC_READCHUNK_STRING_A,*_FUNC_READCHUNK_LONG_X); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,60,"opengl_methods.bas");}while(r); +S_35391:; +if (((-(*_FUNC_READCHUNK_LONG_C== 32 ))|(-(*_FUNC_READCHUNK_LONG_C== 44 ))|(-(*_FUNC_READCHUNK_LONG_C== 40 ))|(-(*_FUNC_READCHUNK_LONG_C== 41 )))||new_error){ +if(qbevent){evnt(26063,61,"opengl_methods.bas");if(r)goto S_35391;} +do{ +qbs_set(_FUNC_READCHUNK_STRING_LAST_CHARACTER,func_chr(*_FUNC_READCHUNK_LONG_C)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,61,"opengl_methods.bas");}while(r); +do{ +qbs_set(_FUNC_READCHUNK_STRING_READCHUNK,qbs_left(_FUNC_READCHUNK_STRING_A,*_FUNC_READCHUNK_LONG_X- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,61,"opengl_methods.bas");}while(r); +do{ +qbs_set(_FUNC_READCHUNK_STRING_A,qbs_ltrim(qbs_right(_FUNC_READCHUNK_STRING_A,_FUNC_READCHUNK_STRING_A->len-*_FUNC_READCHUNK_LONG_X))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,61,"opengl_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26063,61,"opengl_methods.bas");}while(r); +} +fornext_continue_3855:; +} +fornext_exit_3855:; +do{ +qbs_set(_FUNC_READCHUNK_STRING_READCHUNK,_FUNC_READCHUNK_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,63,"opengl_methods.bas");}while(r); +do{ +qbs_set(_FUNC_READCHUNK_STRING_LAST_CHARACTER,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,63,"opengl_methods.bas");}while(r); +do{ +qbs_set(_FUNC_READCHUNK_STRING_A,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,63,"opengl_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free138.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_READCHUNK_STRING_READCHUNK);return _FUNC_READCHUNK_STRING_READCHUNK; +} +void SUB_GL_SCAN_HEADER(){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data139.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +S_35401:; +if ((*__LONG_GL_KIT)||new_error){ +if(qbevent){evnt(26063,69,"opengl_methods.bas");if(r)goto S_35401;} +do{ +*_SUB_GL_SCAN_HEADER_LONG_HK=func_freefile(); +if(!qbevent)break;evnt(26063,69,"opengl_methods.bas");}while(r); +do{ +sub_open(qbs_new_txt_len("internal\\c\\parts\\core\\gl_header_for_parsing\\temp\\gl_kit.bas",59), 4 ,NULL,NULL,*_SUB_GL_SCAN_HEADER_LONG_HK,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,69,"opengl_methods.bas");}while(r); +} +S_35405:; +if ((*__LONG_GL_KIT)||new_error){ +if(qbevent){evnt(26063,70,"opengl_methods.bas");if(r)goto S_35405;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*_SUB_GL_SCAN_HEADER_LONG_HK; +if (new_error) goto skip3859; +sub_file_print(tmp_fileno,qbs_new_txt_len("DECLARE LIBRARY",15), 0, 0, 1); +if (new_error) goto skip3859; +skip3859: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(26063,70,"opengl_methods.bas");}while(r); +} +do{ +*_SUB_GL_SCAN_HEADER_LONG_D= 0 ; +if(!qbevent)break;evnt(26063,72,"opengl_methods.bas");}while(r); +do{ +qbs_set(_SUB_GL_SCAN_HEADER_STRING_A2,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,72,"opengl_methods.bas");}while(r); +do{ +*_SUB_GL_SCAN_HEADER_LONG_H=func_freefile(); +if(!qbevent)break;evnt(26063,73,"opengl_methods.bas");}while(r); +do{ +sub_open(qbs_new_txt_len("internal\\c\\parts\\core\\gl_header_for_parsing\\gl.h",48), 2 ,NULL,NULL,*_SUB_GL_SCAN_HEADER_LONG_H,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,74,"opengl_methods.bas");}while(r); +S_35412:; +while((!(func_eof(*_SUB_GL_SCAN_HEADER_LONG_H)))||new_error){ +if(qbevent){evnt(26063,75,"opengl_methods.bas");if(r)goto S_35412;} +do{ +tmp_fileno=*_SUB_GL_SCAN_HEADER_LONG_H; +if (new_error) goto skip3861; +sub_file_line_input_string(tmp_fileno,_SUB_GL_SCAN_HEADER_STRING_A); +if (new_error) goto skip3861; +skip3861: +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,76,"opengl_methods.bas");}while(r); +S_35414:; +if ((qbs_cleanup(qbs_tmp_base,_SUB_GL_SCAN_HEADER_STRING_A->len))||new_error){ +if(qbevent){evnt(26063,77,"opengl_methods.bas");if(r)goto S_35414;} +do{ +qbs_set(_SUB_GL_SCAN_HEADER_STRING_A,qbs_ltrim(qbs_rtrim(_SUB_GL_SCAN_HEADER_STRING_A))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,78,"opengl_methods.bas");}while(r); +S_35416:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_GL_SCAN_HEADER_STRING_A, 8 ),qbs_new_txt_len("#define ",8))))||new_error){ +if(qbevent){evnt(26063,79,"opengl_methods.bas");if(r)goto S_35416;} +do{ +qbs_set(_SUB_GL_SCAN_HEADER_STRING_A2,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,80,"opengl_methods.bas");}while(r); +do{ +qbs_set(_SUB_GL_SCAN_HEADER_STRING_A,qbs_add(_SUB_GL_SCAN_HEADER_STRING_A,qbs_new_txt_len(" ",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,81,"opengl_methods.bas");}while(r); +S_35419:; +fornext_value3864= 1 ; +fornext_finalvalue3864=_SUB_GL_SCAN_HEADER_STRING_A->len; +fornext_step3864= 1 ; +if (fornext_step3864<0) fornext_step_negative3864=1; else fornext_step_negative3864=0; +if (new_error) goto fornext_error3864; +goto fornext_entrylabel3864; +while(1){ +fornext_value3864=fornext_step3864+(*_SUB_GL_SCAN_HEADER_LONG_X); +fornext_entrylabel3864: +*_SUB_GL_SCAN_HEADER_LONG_X=fornext_value3864; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative3864){ +if (fornext_value3864fornext_finalvalue3864) break; +} +fornext_error3864:; +if(qbevent){evnt(26063,82,"opengl_methods.bas");if(r)goto S_35419;} +do{ +*_SUB_GL_SCAN_HEADER_LONG_C=qbs_asc(_SUB_GL_SCAN_HEADER_STRING_A,*_SUB_GL_SCAN_HEADER_LONG_X); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,83,"opengl_methods.bas");}while(r); +S_35421:; +if ((-(*_SUB_GL_SCAN_HEADER_LONG_C== 32 ))||new_error){ +if(qbevent){evnt(26063,84,"opengl_methods.bas");if(r)goto S_35421;} +S_35422:; +fornext_value3867= 1 ; +fornext_finalvalue3867=_SUB_GL_SCAN_HEADER_STRING_A2->len; +fornext_step3867= 1 ; +if (fornext_step3867<0) fornext_step_negative3867=1; else fornext_step_negative3867=0; +if (new_error) goto fornext_error3867; +goto fornext_entrylabel3867; +while(1){ +fornext_value3867=fornext_step3867+(*_SUB_GL_SCAN_HEADER_LONG_X2); +fornext_entrylabel3867: +*_SUB_GL_SCAN_HEADER_LONG_X2=fornext_value3867; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative3867){ +if (fornext_value3867fornext_finalvalue3867) break; +} +fornext_error3867:; +if(qbevent){evnt(26063,85,"opengl_methods.bas");if(r)goto S_35422;} +do{ +*_SUB_GL_SCAN_HEADER_LONG_C2=qbs_asc(_SUB_GL_SCAN_HEADER_STRING_A2,*_SUB_GL_SCAN_HEADER_LONG_X2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,86,"opengl_methods.bas");}while(r); +S_35424:; +if (((-(*_SUB_GL_SCAN_HEADER_LONG_C2>= 65 ))&(-(*_SUB_GL_SCAN_HEADER_LONG_C2<= 90 )))||new_error){ +if(qbevent){evnt(26063,87,"opengl_methods.bas");if(r)goto S_35424;} +do{ +goto LABEL_DEFINE_OK; +if(!qbevent)break;evnt(26063,87,"opengl_methods.bas");}while(r); +} +S_35427:; +if (((-(*_SUB_GL_SCAN_HEADER_LONG_C2>= 48 ))&(-(*_SUB_GL_SCAN_HEADER_LONG_C2<= 57 ))&(-(*_SUB_GL_SCAN_HEADER_LONG_X2!= 1 )))||new_error){ +if(qbevent){evnt(26063,88,"opengl_methods.bas");if(r)goto S_35427;} +do{ +goto LABEL_DEFINE_OK; +if(!qbevent)break;evnt(26063,88,"opengl_methods.bas");}while(r); +} +S_35430:; +if ((-(*_SUB_GL_SCAN_HEADER_LONG_C2== 95 ))||new_error){ +if(qbevent){evnt(26063,89,"opengl_methods.bas");if(r)goto S_35430;} +do{ +goto LABEL_DEFINE_OK; +if(!qbevent)break;evnt(26063,89,"opengl_methods.bas");}while(r); +} +do{ +goto LABEL_DEFINE_NOT_OK; +if(!qbevent)break;evnt(26063,90,"opengl_methods.bas");}while(r); +LABEL_DEFINE_OK:; +if(qbevent){evnt(26063,91,"opengl_methods.bas");r=0;} +fornext_continue_3866:; +} +fornext_exit_3866:; +do{ +qbs_set(_SUB_GL_SCAN_HEADER_STRING_VALUE,qbs_ltrim(qbs_rtrim(qbs_right(_SUB_GL_SCAN_HEADER_STRING_A,_SUB_GL_SCAN_HEADER_STRING_A->len-*_SUB_GL_SCAN_HEADER_LONG_X)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,93,"opengl_methods.bas");}while(r); +S_35436:; +if ((qbs_cleanup(qbs_tmp_base,-(_SUB_GL_SCAN_HEADER_STRING_VALUE->len== 0 )))||new_error){ +if(qbevent){evnt(26063,94,"opengl_methods.bas");if(r)goto S_35436;} +do{ +goto LABEL_DEFINE_NOT_OK; +if(!qbevent)break;evnt(26063,94,"opengl_methods.bas");}while(r); +} +S_35439:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_GL_SCAN_HEADER_STRING_VALUE, 2 ),qbs_new_txt_len("0x",2))))||new_error){ +if(qbevent){evnt(26063,96,"opengl_methods.bas");if(r)goto S_35439;} +do{ +*_SUB_GL_SCAN_HEADER_INTEGER64_VALUE=qbr(func_val(qbs_add(qbs_add(qbs_new_txt_len("&H",2),qbs_right(_SUB_GL_SCAN_HEADER_STRING_VALUE,_SUB_GL_SCAN_HEADER_STRING_VALUE->len- 2 )),qbs_new_txt_len("&&",2)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,97,"opengl_methods.bas");}while(r); +do{ +*_SUB_GL_SCAN_HEADER_LONG_D=*_SUB_GL_SCAN_HEADER_LONG_D+ 1 ; +if(!qbevent)break;evnt(26063,99,"opengl_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_GL_SCAN_HEADER_LONG_D)-__ARRAY_STRING_GL_DEFINES[4],__ARRAY_STRING_GL_DEFINES[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_GL_DEFINES[0]))[tmp_long])),_SUB_GL_SCAN_HEADER_STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,99,"opengl_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_GL_SCAN_HEADER_LONG_D)-__ARRAY_INTEGER64_GL_DEFINES_VALUE[4],__ARRAY_INTEGER64_GL_DEFINES_VALUE[5]); +if (!new_error) ((int64*)(__ARRAY_INTEGER64_GL_DEFINES_VALUE[0]))[tmp_long]=*_SUB_GL_SCAN_HEADER_INTEGER64_VALUE; +if(!qbevent)break;evnt(26063,99,"opengl_methods.bas");}while(r); +S_35444:; +}else{ +if (qbs_cleanup(qbs_tmp_base,(-(qbs_asc(_SUB_GL_SCAN_HEADER_STRING_VALUE)>= 48 ))&(-(qbs_asc(_SUB_GL_SCAN_HEADER_STRING_VALUE)<= 57 )))){ +if(qbevent){evnt(26063,100,"opengl_methods.bas");if(r)goto S_35444;} +do{ +*_SUB_GL_SCAN_HEADER_INTEGER64_VALUE=qbr(func_val(_SUB_GL_SCAN_HEADER_STRING_VALUE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,101,"opengl_methods.bas");}while(r); +do{ +*_SUB_GL_SCAN_HEADER_LONG_D=*_SUB_GL_SCAN_HEADER_LONG_D+ 1 ; +if(!qbevent)break;evnt(26063,103,"opengl_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_GL_SCAN_HEADER_LONG_D)-__ARRAY_STRING_GL_DEFINES[4],__ARRAY_STRING_GL_DEFINES[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_GL_DEFINES[0]))[tmp_long])),_SUB_GL_SCAN_HEADER_STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,103,"opengl_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_GL_SCAN_HEADER_LONG_D)-__ARRAY_INTEGER64_GL_DEFINES_VALUE[4],__ARRAY_INTEGER64_GL_DEFINES_VALUE[5]); +if (!new_error) ((int64*)(__ARRAY_INTEGER64_GL_DEFINES_VALUE[0]))[tmp_long]=*_SUB_GL_SCAN_HEADER_INTEGER64_VALUE; +if(!qbevent)break;evnt(26063,103,"opengl_methods.bas");}while(r); +}else{ +S_35450:; +fornext_value3873= 1 ; +fornext_finalvalue3873=*_SUB_GL_SCAN_HEADER_LONG_D; +fornext_step3873= 1 ; +if (fornext_step3873<0) fornext_step_negative3873=1; else fornext_step_negative3873=0; +if (new_error) goto fornext_error3873; +goto fornext_entrylabel3873; +while(1){ +fornext_value3873=fornext_step3873+(*_SUB_GL_SCAN_HEADER_LONG_I); +fornext_entrylabel3873: +*_SUB_GL_SCAN_HEADER_LONG_I=fornext_value3873; +if (fornext_step_negative3873){ +if (fornext_value3873fornext_finalvalue3873) break; +} +fornext_error3873:; +if(qbevent){evnt(26063,106,"opengl_methods.bas");if(r)goto S_35450;} +S_35451:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_GL_DEFINES[0]))[array_check((*_SUB_GL_SCAN_HEADER_LONG_I)-__ARRAY_STRING_GL_DEFINES[4],__ARRAY_STRING_GL_DEFINES[5])])),_SUB_GL_SCAN_HEADER_STRING_VALUE)))||new_error){ +if(qbevent){evnt(26063,107,"opengl_methods.bas");if(r)goto S_35451;} +do{ +*_SUB_GL_SCAN_HEADER_LONG_D=*_SUB_GL_SCAN_HEADER_LONG_D+ 1 ; +if(!qbevent)break;evnt(26063,108,"opengl_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_GL_SCAN_HEADER_LONG_D)-__ARRAY_STRING_GL_DEFINES[4],__ARRAY_STRING_GL_DEFINES[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_GL_DEFINES[0]))[tmp_long])),_SUB_GL_SCAN_HEADER_STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,108,"opengl_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_GL_SCAN_HEADER_LONG_D)-__ARRAY_INTEGER64_GL_DEFINES_VALUE[4],__ARRAY_INTEGER64_GL_DEFINES_VALUE[5]); +if (!new_error) ((int64*)(__ARRAY_INTEGER64_GL_DEFINES_VALUE[0]))[tmp_long]=((int64*)(__ARRAY_INTEGER64_GL_DEFINES_VALUE[0]))[array_check((*_SUB_GL_SCAN_HEADER_LONG_I)-__ARRAY_INTEGER64_GL_DEFINES_VALUE[4],__ARRAY_INTEGER64_GL_DEFINES_VALUE[5])]; +if(!qbevent)break;evnt(26063,108,"opengl_methods.bas");}while(r); +do{ +goto fornext_exit_3872; +if(!qbevent)break;evnt(26063,110,"opengl_methods.bas");}while(r); +} +fornext_continue_3872:; +} +fornext_exit_3872:; +} +} +do{ +goto LABEL_GOT_DEFINE; +if(!qbevent)break;evnt(26063,114,"opengl_methods.bas");}while(r); +LABEL_DEFINE_NOT_OK:; +if(qbevent){evnt(26063,115,"opengl_methods.bas");r=0;} +do{ +qbs_set(_SUB_GL_SCAN_HEADER_STRING_A2,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,116,"opengl_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_GL_SCAN_HEADER_STRING_A2,qbs_add(_SUB_GL_SCAN_HEADER_STRING_A2,func_chr(*_SUB_GL_SCAN_HEADER_LONG_C))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,118,"opengl_methods.bas");}while(r); +} +fornext_continue_3863:; +} +fornext_exit_3863:; +LABEL_GOT_DEFINE:; +if(qbevent){evnt(26063,121,"opengl_methods.bas");r=0;} +} +S_35466:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_SUB_GL_SCAN_HEADER_STRING_A, 1 ),qbs_new_txt_len(";",1))))||new_error){ +if(qbevent){evnt(26063,125,"opengl_methods.bas");if(r)goto S_35466;} +do{ +qbs_set(_SUB_GL_SCAN_HEADER_STRING_A2,FUNC_READCHUNK(_SUB_GL_SCAN_HEADER_STRING_A,_SUB_GL_SCAN_HEADER_STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,126,"opengl_methods.bas");}while(r); +S_35468:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_GL_SCAN_HEADER_STRING_A2,qbs_new_txt_len("WINGDIAPI",9))))||new_error){ +if(qbevent){evnt(26063,126,"opengl_methods.bas");if(r)goto S_35468;} +do{ +goto LABEL_DISCARD; +if(!qbevent)break;evnt(26063,126,"opengl_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_GL_SCAN_HEADER_STRING_RET_TYPE,FUNC_READCHUNK(_SUB_GL_SCAN_HEADER_STRING_A,_SUB_GL_SCAN_HEADER_STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,127,"opengl_methods.bas");}while(r); +S_35472:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_GL_SCAN_HEADER_STRING_RET_TYPE,qbs_new_txt_len("const",5))))||new_error){ +if(qbevent){evnt(26063,128,"opengl_methods.bas");if(r)goto S_35472;} +do{ +qbs_set(_SUB_GL_SCAN_HEADER_STRING_RET_TYPE,FUNC_READCHUNK(_SUB_GL_SCAN_HEADER_STRING_A,_SUB_GL_SCAN_HEADER_STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,128,"opengl_methods.bas");}while(r); +} +do{ +*_SUB_GL_SCAN_HEADER_LONG_IS_FUNC= 0 ; +if(!qbevent)break;evnt(26063,130,"opengl_methods.bas");}while(r); +S_35476:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_GL_SCAN_HEADER_STRING_RET_TYPE,qbs_new_txt_len("void",4))))||new_error){ +if(qbevent){evnt(26063,130,"opengl_methods.bas");if(r)goto S_35476;} +do{ +*_SUB_GL_SCAN_HEADER_LONG_IS_FUNC= 1 ; +if(!qbevent)break;evnt(26063,130,"opengl_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_GL_SCAN_HEADER_STRING_A2,FUNC_READCHUNK(_SUB_GL_SCAN_HEADER_STRING_A,_SUB_GL_SCAN_HEADER_STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,132,"opengl_methods.bas");}while(r); +S_35480:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_GL_SCAN_HEADER_STRING_A2,qbs_new_txt_len("*APIENTRY",9))))||new_error){ +if(qbevent){evnt(26063,133,"opengl_methods.bas");if(r)goto S_35480;} +do{ +qbs_set(_SUB_GL_SCAN_HEADER_STRING_RET_TYPE,qbs_add(_SUB_GL_SCAN_HEADER_STRING_RET_TYPE,qbs_new_txt_len("*",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,133,"opengl_methods.bas");}while(r); +do{ +qbs_set(_SUB_GL_SCAN_HEADER_STRING_A2,qbs_new_txt_len("APIENTRY",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,133,"opengl_methods.bas");}while(r); +} +S_35484:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_GL_SCAN_HEADER_STRING_A2,qbs_new_txt_len("APIENTRY",8))))||new_error){ +if(qbevent){evnt(26063,134,"opengl_methods.bas");if(r)goto S_35484;} +do{ +goto LABEL_DISCARD; +if(!qbevent)break;evnt(26063,134,"opengl_methods.bas");}while(r); +} +do{ +*__LONG_GL_COMMANDS_LAST=*__LONG_GL_COMMANDS_LAST+ 1 ; +if(!qbevent)break;evnt(26063,136,"opengl_methods.bas");}while(r); +do{ +*_SUB_GL_SCAN_HEADER_LONG_C=*__LONG_GL_COMMANDS_LAST; +if(!qbevent)break;evnt(26063,137,"opengl_methods.bas");}while(r); +do{ +qbs_set(_SUB_GL_SCAN_HEADER_STRING_HC,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,139,"opengl_methods.bas");}while(r); +do{ +qbs_set(_SUB_GL_SCAN_HEADER_STRING_HD,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,140,"opengl_methods.bas");}while(r); +do{ +*_SUB_GL_SCAN_HEADER_LONG_NEED_HELPER_FUNCTION= 0 ; +if(!qbevent)break;evnt(26063,141,"opengl_methods.bas");}while(r); +S_35492:; +if ((*_SUB_GL_SCAN_HEADER_LONG_IS_FUNC)||new_error){ +if(qbevent){evnt(26063,143,"opengl_methods.bas");if(r)goto S_35492;} +do{ +*(int16*)(((char*)__ARRAY_UDT_GL_COMMANDS[0])+((array_check((*_SUB_GL_SCAN_HEADER_LONG_C)-__ARRAY_UDT_GL_COMMANDS[4],__ARRAY_UDT_GL_COMMANDS[5]))*216+64))= 1 ; +if(!qbevent)break;evnt(26063,144,"opengl_methods.bas");}while(r); +S_35494:; +if ((*__LONG_GL_KIT)||new_error){ +if(qbevent){evnt(26063,145,"opengl_methods.bas");if(r)goto S_35494;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*_SUB_GL_SCAN_HEADER_LONG_HK; +if (new_error) goto skip3874; +sub_file_print(tmp_fileno,qbs_new_txt_len("FUNCTION ",9), 0, 0, 0); +if (new_error) goto skip3874; +skip3874: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(26063,145,"opengl_methods.bas");}while(r); +} +}else{ +do{ +*(int16*)(((char*)__ARRAY_UDT_GL_COMMANDS[0])+((array_check((*_SUB_GL_SCAN_HEADER_LONG_C)-__ARRAY_UDT_GL_COMMANDS[4],__ARRAY_UDT_GL_COMMANDS[5]))*216+64))= 2 ; +if(!qbevent)break;evnt(26063,147,"opengl_methods.bas");}while(r); +S_35499:; +if ((*__LONG_GL_KIT)||new_error){ +if(qbevent){evnt(26063,148,"opengl_methods.bas");if(r)goto S_35499;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*_SUB_GL_SCAN_HEADER_LONG_HK; +if (new_error) goto skip3875; +sub_file_print(tmp_fileno,qbs_new_txt_len("SUB ",4), 0, 0, 0); +if (new_error) goto skip3875; +skip3875: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(26063,148,"opengl_methods.bas");}while(r); +} +} +do{ +qbs_set(_SUB_GL_SCAN_HEADER_STRING_PROC_NAME,FUNC_READCHUNK(_SUB_GL_SCAN_HEADER_STRING_A,_SUB_GL_SCAN_HEADER_STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,151,"opengl_methods.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_GL_COMMANDS[0])+((array_check((*_SUB_GL_SCAN_HEADER_LONG_C)-__ARRAY_UDT_GL_COMMANDS[4],__ARRAY_UDT_GL_COMMANDS[5]))*216)),64,1),qbs_add(qbs_new_txt_len("_",1),_SUB_GL_SCAN_HEADER_STRING_PROC_NAME)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,153,"opengl_methods.bas");}while(r); +S_35505:; +if ((*__LONG_GL_KIT)||new_error){ +if(qbevent){evnt(26063,153,"opengl_methods.bas");if(r)goto S_35505;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*_SUB_GL_SCAN_HEADER_LONG_HK; +if (new_error) goto skip3876; +sub_file_print(tmp_fileno,_SUB_GL_SCAN_HEADER_STRING_PROC_NAME, 0, 0, 0); +if (new_error) goto skip3876; +skip3876: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(26063,153,"opengl_methods.bas");}while(r); +} +do{ +qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_GL_COMMANDS[0])+((array_check((*_SUB_GL_SCAN_HEADER_LONG_C)-__ARRAY_UDT_GL_COMMANDS[4],__ARRAY_UDT_GL_COMMANDS[5]))*216+66)),64,1),_SUB_GL_SCAN_HEADER_STRING_PROC_NAME); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,154,"opengl_methods.bas");}while(r); +do{ +*(int32*)(((char*)__ARRAY_UDT_GL_COMMANDS[0])+((array_check((*_SUB_GL_SCAN_HEADER_LONG_C)-__ARRAY_UDT_GL_COMMANDS[4],__ARRAY_UDT_GL_COMMANDS[5]))*216+212))= 0 ; +if(!qbevent)break;evnt(26063,156,"opengl_methods.bas");}while(r); +S_35510:; +if ((*_SUB_GL_SCAN_HEADER_LONG_IS_FUNC)||new_error){ +if(qbevent){evnt(26063,157,"opengl_methods.bas");if(r)goto S_35510;} +do{ +*_SUB_GL_SCAN_HEADER_LONG_POINTER= 0 ; +if(!qbevent)break;evnt(26063,158,"opengl_methods.bas");}while(r); +S_35512:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_SUB_GL_SCAN_HEADER_STRING_RET_TYPE, 1 ),qbs_new_txt_len("*",1))))||new_error){ +if(qbevent){evnt(26063,158,"opengl_methods.bas");if(r)goto S_35512;} +do{ +*_SUB_GL_SCAN_HEADER_LONG_POINTER= 1 ; +if(!qbevent)break;evnt(26063,158,"opengl_methods.bas");}while(r); +} +S_35515:; +if ((*_SUB_GL_SCAN_HEADER_LONG_POINTER)||new_error){ +if(qbevent){evnt(26063,159,"opengl_methods.bas");if(r)goto S_35515;} +do{ +qbs_set(_SUB_GL_SCAN_HEADER_STRING_T,qbs_new_txt_len("_OFFSET",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,160,"opengl_methods.bas");}while(r); +do{ +qbs_set(_SUB_GL_SCAN_HEADER_STRING_S,qbs_new_txt_len("&&",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,160,"opengl_methods.bas");}while(r); +do{ +*(int32*)(((char*)__ARRAY_UDT_GL_COMMANDS[0])+((array_check((*_SUB_GL_SCAN_HEADER_LONG_C)-__ARRAY_UDT_GL_COMMANDS[4],__ARRAY_UDT_GL_COMMANDS[5]))*216+212))=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(26063,161,"opengl_methods.bas");}while(r); +do{ +qbs_set(_SUB_GL_SCAN_HEADER_STRING_HD,qbs_add(_SUB_GL_SCAN_HEADER_STRING_HD,qbs_new_txt_len("ptrszint ",9))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,162,"opengl_methods.bas");}while(r); +do{ +*_SUB_GL_SCAN_HEADER_LONG_NEED_HELPER_FUNCTION= 1 ; +if(!qbevent)break;evnt(26063,163,"opengl_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_GL_SCAN_HEADER_STRING_T,FUNC_GL2QB_TYPE_CONVERT(_SUB_GL_SCAN_HEADER_STRING_RET_TYPE,_SUB_GL_SCAN_HEADER_STRING_S,_SUB_GL_SCAN_HEADER_LONG_TYP,_SUB_GL_SCAN_HEADER_STRING_CTYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,165,"opengl_methods.bas");}while(r); +do{ +*(int32*)(((char*)__ARRAY_UDT_GL_COMMANDS[0])+((array_check((*_SUB_GL_SCAN_HEADER_LONG_C)-__ARRAY_UDT_GL_COMMANDS[4],__ARRAY_UDT_GL_COMMANDS[5]))*216+212))=*_SUB_GL_SCAN_HEADER_LONG_TYP; +if(!qbevent)break;evnt(26063,166,"opengl_methods.bas");}while(r); +do{ +qbs_set(_SUB_GL_SCAN_HEADER_STRING_HD,qbs_add(qbs_add(_SUB_GL_SCAN_HEADER_STRING_HD,_SUB_GL_SCAN_HEADER_STRING_CTYP),qbs_new_txt_len(" ",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,167,"opengl_methods.bas");}while(r); +} +S_35526:; +if ((*__LONG_GL_KIT)||new_error){ +if(qbevent){evnt(26063,169,"opengl_methods.bas");if(r)goto S_35526;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*_SUB_GL_SCAN_HEADER_LONG_HK; +if (new_error) goto skip3877; +sub_file_print(tmp_fileno,_SUB_GL_SCAN_HEADER_STRING_S, 0, 0, 0); +if (new_error) goto skip3877; +skip3877: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(26063,169,"opengl_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_GL_SCAN_HEADER_STRING_HC,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_GL_SCAN_HEADER_STRING_HC,qbs_new_txt_len("return (",8)),_SUB_GL_SCAN_HEADER_STRING_CTYP),qbs_new_txt_len(")(",2)),_SUB_GL_SCAN_HEADER_STRING_RET_TYPE),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,170,"opengl_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_GL_SCAN_HEADER_STRING_HD,qbs_add(_SUB_GL_SCAN_HEADER_STRING_HD,qbs_new_txt_len("void ",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,172,"opengl_methods.bas");}while(r); +} +S_35533:; +if ((*__LONG_GL_KIT)||new_error){ +if(qbevent){evnt(26063,175,"opengl_methods.bas");if(r)goto S_35533;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*_SUB_GL_SCAN_HEADER_LONG_HK; +if (new_error) goto skip3878; +sub_file_print(tmp_fileno,qbs_new_txt_len("(",1), 0, 0, 0); +if (new_error) goto skip3878; +skip3878: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(26063,175,"opengl_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_GL_SCAN_HEADER_STRING_HC,qbs_add(qbs_add(_SUB_GL_SCAN_HEADER_STRING_HC,_SUB_GL_SCAN_HEADER_STRING_PROC_NAME),qbs_new_txt_len("(",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,177,"opengl_methods.bas");}while(r); +do{ +qbs_set(_SUB_GL_SCAN_HEADER_STRING_HD,qbs_add(qbs_add(qbs_add(_SUB_GL_SCAN_HEADER_STRING_HD,qbs_new_txt_len("call_",5)),_SUB_GL_SCAN_HEADER_STRING_PROC_NAME),qbs_new_txt_len("(",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,178,"opengl_methods.bas");}while(r); +do{ +*(int16*)(((char*)__ARRAY_UDT_GL_COMMANDS[0])+((array_check((*_SUB_GL_SCAN_HEADER_LONG_C)-__ARRAY_UDT_GL_COMMANDS[4],__ARRAY_UDT_GL_COMMANDS[5]))*216+130))= 0 ; +if(!qbevent)break;evnt(26063,181,"opengl_methods.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_GL_COMMANDS[0])+((array_check((*_SUB_GL_SCAN_HEADER_LONG_C)-__ARRAY_UDT_GL_COMMANDS[4],__ARRAY_UDT_GL_COMMANDS[5]))*216+132)),80,1),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,182,"opengl_methods.bas");}while(r); +S_35540:; +do{ +if(qbevent){evnt(26063,184,"opengl_methods.bas");if(r)goto S_35540;} +do{ +qbs_set(_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE,FUNC_READCHUNK(_SUB_GL_SCAN_HEADER_STRING_A,_SUB_GL_SCAN_HEADER_STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,186,"opengl_methods.bas");}while(r); +S_35542:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE,qbs_new_txt_len("",0)))&(qbs_equal(_SUB_GL_SCAN_HEADER_STRING_L,qbs_new_txt_len("(",1)))))||new_error){ +if(qbevent){evnt(26063,187,"opengl_methods.bas");if(r)goto S_35542;} +do{ +qbs_set(_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE,FUNC_READCHUNK(_SUB_GL_SCAN_HEADER_STRING_A,_SUB_GL_SCAN_HEADER_STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,187,"opengl_methods.bas");}while(r); +} +S_35545:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE,qbs_new_txt_len("const",5))))||new_error){ +if(qbevent){evnt(26063,188,"opengl_methods.bas");if(r)goto S_35545;} +do{ +qbs_set(_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE,FUNC_READCHUNK(_SUB_GL_SCAN_HEADER_STRING_A,_SUB_GL_SCAN_HEADER_STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,188,"opengl_methods.bas");}while(r); +} +S_35548:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE,qbs_new_txt_len("void",4)))|(qbs_equal(_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE,qbs_new_txt_len("",0)))))||new_error){ +if(qbevent){evnt(26063,189,"opengl_methods.bas");if(r)goto S_35548;} +do{ +goto LABEL_NO_ARGUMENTS; +if(!qbevent)break;evnt(26063,189,"opengl_methods.bas");}while(r); +} +S_35551:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(_SUB_GL_SCAN_HEADER_STRING_L,qbs_new_txt_len(",",1)))&(qbs_notequal(_SUB_GL_SCAN_HEADER_STRING_L,qbs_new_txt_len(")",1)))))||new_error){ +if(qbevent){evnt(26063,190,"opengl_methods.bas");if(r)goto S_35551;} +do{ +qbs_set(_SUB_GL_SCAN_HEADER_STRING_VAR_NAME,FUNC_READCHUNK(_SUB_GL_SCAN_HEADER_STRING_A,_SUB_GL_SCAN_HEADER_STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,191,"opengl_methods.bas");}while(r); +S_35553:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_GL_SCAN_HEADER_STRING_VAR_NAME, 1 ),qbs_new_txt_len("*",1))))||new_error){ +if(qbevent){evnt(26063,192,"opengl_methods.bas");if(r)goto S_35553;} +do{ +qbs_set(_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE,qbs_add(_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE,qbs_new_txt_len("*",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,192,"opengl_methods.bas");}while(r); +do{ +qbs_set(_SUB_GL_SCAN_HEADER_STRING_VAR_NAME,qbs_right(_SUB_GL_SCAN_HEADER_STRING_VAR_NAME,_SUB_GL_SCAN_HEADER_STRING_VAR_NAME->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,192,"opengl_methods.bas");}while(r); +} +S_35557:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_GL_SCAN_HEADER_STRING_VAR_NAME, 1 ),qbs_new_txt_len("*",1))))||new_error){ +if(qbevent){evnt(26063,193,"opengl_methods.bas");if(r)goto S_35557;} +do{ +qbs_set(_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE,qbs_add(_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE,qbs_new_txt_len("*",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,193,"opengl_methods.bas");}while(r); +do{ +qbs_set(_SUB_GL_SCAN_HEADER_STRING_VAR_NAME,qbs_right(_SUB_GL_SCAN_HEADER_STRING_VAR_NAME,_SUB_GL_SCAN_HEADER_STRING_VAR_NAME->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,193,"opengl_methods.bas");}while(r); +} +}else{ +do{ +qbs_set(_SUB_GL_SCAN_HEADER_STRING_VAR_NAME,qbs_new_txt_len("no_name",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,196,"opengl_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE_BACKUP,_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,199,"opengl_methods.bas");}while(r); +do{ +*_SUB_GL_SCAN_HEADER_LONG_POINTER= 0 ; +if(!qbevent)break;evnt(26063,201,"opengl_methods.bas");}while(r); +S_35566:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE, 1 ),qbs_new_txt_len("*",1))))||new_error){ +if(qbevent){evnt(26063,203,"opengl_methods.bas");if(r)goto S_35566;} +do{ +qbs_set(_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE,qbs_left(_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE,_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,204,"opengl_methods.bas");}while(r); +do{ +*_SUB_GL_SCAN_HEADER_LONG_POINTER= 1 ; +if(!qbevent)break;evnt(26063,205,"opengl_methods.bas");}while(r); +} +S_35570:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE, 1 ),qbs_new_txt_len("*",1))))||new_error){ +if(qbevent){evnt(26063,207,"opengl_methods.bas");if(r)goto S_35570;} +do{ +qbs_set(_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE,qbs_left(_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE,_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,208,"opengl_methods.bas");}while(r); +do{ +*_SUB_GL_SCAN_HEADER_LONG_POINTER= 2 ; +if(!qbevent)break;evnt(26063,209,"opengl_methods.bas");}while(r); +} +S_35574:; +if ((-(*_SUB_GL_SCAN_HEADER_LONG_POINTER== 2 ))||new_error){ +if(qbevent){evnt(26063,212,"opengl_methods.bas");if(r)goto S_35574;} +do{ +qbs_set(_SUB_GL_SCAN_HEADER_STRING_QB_TYPE,qbs_new_txt_len("_OFFSET",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,213,"opengl_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_GL_SCAN_HEADER_STRING_QB_TYPE,FUNC_GL2QB_TYPE_CONVERT(_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE,_SUB_GL_SCAN_HEADER_STRING_S,_SUB_GL_SCAN_HEADER_LONG_TYP,_SUB_GL_SCAN_HEADER_STRING_CTYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,215,"opengl_methods.bas");}while(r); +} +do{ +*_SUB_GL_SCAN_HEADER_LONG_NEED_HELPER_FUNCTION= 1 ; +if(!qbevent)break;evnt(26063,219,"opengl_methods.bas");}while(r); +S_35580:; +if ((*__LONG_GL_KIT)||new_error){ +if(qbevent){evnt(26063,221,"opengl_methods.bas");if(r)goto S_35580;} +S_35581:; +if ((-(*_SUB_GL_SCAN_HEADER_LONG_POINTER== 0 ))||new_error){ +if(qbevent){evnt(26063,222,"opengl_methods.bas");if(r)goto S_35581;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*_SUB_GL_SCAN_HEADER_LONG_HK; +if (new_error) goto skip3884; +sub_file_print(tmp_fileno,qbs_new_txt_len("BYVAL ",6), 0, 0, 0); +if (new_error) goto skip3884; +skip3884: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(26063,222,"opengl_methods.bas");}while(r); +} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*_SUB_GL_SCAN_HEADER_LONG_HK; +if (new_error) goto skip3885; +sub_file_print(tmp_fileno,qbs_add(qbs_add(_SUB_GL_SCAN_HEADER_STRING_VAR_NAME,qbs_new_txt_len(" AS ",4)),_SUB_GL_SCAN_HEADER_STRING_QB_TYPE), 0, 0, 0); +if (new_error) goto skip3885; +skip3885: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(26063,223,"opengl_methods.bas");}while(r); +S_35585:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_GL_SCAN_HEADER_STRING_L,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(26063,224,"opengl_methods.bas");if(r)goto S_35585;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*_SUB_GL_SCAN_HEADER_LONG_HK; +if (new_error) goto skip3886; +sub_file_print(tmp_fileno,qbs_new_txt_len(",",1), 0, 0, 0); +if (new_error) goto skip3886; +skip3886: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(26063,224,"opengl_methods.bas");}while(r); +} +} +S_35589:; +if ((-(*_SUB_GL_SCAN_HEADER_LONG_POINTER== 0 ))||new_error){ +if(qbevent){evnt(26063,227,"opengl_methods.bas");if(r)goto S_35589;} +do{ +qbs_set(_SUB_GL_SCAN_HEADER_STRING_ARG,l2string(*_SUB_GL_SCAN_HEADER_LONG_TYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,228,"opengl_methods.bas");}while(r); +} +S_35592:; +if ((-(*_SUB_GL_SCAN_HEADER_LONG_POINTER== 1 ))||new_error){ +if(qbevent){evnt(26063,230,"opengl_methods.bas");if(r)goto S_35592;} +do{ +qbs_set(_SUB_GL_SCAN_HEADER_STRING_ARG,l2string(*__LONG_OFFSETTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,231,"opengl_methods.bas");}while(r); +do{ +qbs_set(_SUB_GL_SCAN_HEADER_STRING_CTYP,qbs_new_txt_len("ptrszint",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,232,"opengl_methods.bas");}while(r); +} +S_35596:; +if ((-(*_SUB_GL_SCAN_HEADER_LONG_POINTER== 2 ))||new_error){ +if(qbevent){evnt(26063,234,"opengl_methods.bas");if(r)goto S_35596;} +do{ +qbs_set(_SUB_GL_SCAN_HEADER_STRING_ARG,l2string(*__LONG_OFFSETTYPE-*__LONG_ISPOINTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,235,"opengl_methods.bas");}while(r); +do{ +qbs_set(_SUB_GL_SCAN_HEADER_STRING_CTYP,qbs_new_txt_len("ptrszint",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,236,"opengl_methods.bas");}while(r); +} +do{ +*(int16*)(((char*)__ARRAY_UDT_GL_COMMANDS[0])+((array_check((*_SUB_GL_SCAN_HEADER_LONG_C)-__ARRAY_UDT_GL_COMMANDS[4],__ARRAY_UDT_GL_COMMANDS[5]))*216+130))=*(int16*)(((char*)__ARRAY_UDT_GL_COMMANDS[0])+((array_check((*_SUB_GL_SCAN_HEADER_LONG_C)-__ARRAY_UDT_GL_COMMANDS[4],__ARRAY_UDT_GL_COMMANDS[5]))*216+130))+ 1 ; +if(!qbevent)break;evnt(26063,243,"opengl_methods.bas");}while(r); +do{ +sub_mid(qbs_new_fixed((((uint8*)__ARRAY_UDT_GL_COMMANDS[0])+((array_check((*_SUB_GL_SCAN_HEADER_LONG_C)-__ARRAY_UDT_GL_COMMANDS[4],__ARRAY_UDT_GL_COMMANDS[5]))*216+132)),80,1),((*(int16*)(((char*)__ARRAY_UDT_GL_COMMANDS[0])+((array_check((*_SUB_GL_SCAN_HEADER_LONG_C)-__ARRAY_UDT_GL_COMMANDS[4],__ARRAY_UDT_GL_COMMANDS[5]))*216+130))- 1 )* 4 )+( 1 ), 4 ,_SUB_GL_SCAN_HEADER_STRING_ARG,1); +if(!qbevent)break;evnt(26063,245,"opengl_methods.bas");}while(r); +do{ +qbs_set(_SUB_GL_SCAN_HEADER_STRING_LETTER,func_chr( 96 +*(int16*)(((char*)__ARRAY_UDT_GL_COMMANDS[0])+((array_check((*_SUB_GL_SCAN_HEADER_LONG_C)-__ARRAY_UDT_GL_COMMANDS[4],__ARRAY_UDT_GL_COMMANDS[5]))*216+130)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,250,"opengl_methods.bas");}while(r); +do{ +qbs_set(_SUB_GL_SCAN_HEADER_STRING_HC,qbs_add(qbs_add(qbs_add(qbs_add(_SUB_GL_SCAN_HEADER_STRING_HC,qbs_new_txt_len("(",1)),_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE_BACKUP),qbs_new_txt_len(")",1)),_SUB_GL_SCAN_HEADER_STRING_LETTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,252,"opengl_methods.bas");}while(r); +do{ +qbs_set(_SUB_GL_SCAN_HEADER_STRING_HD,qbs_add(qbs_add(qbs_add(_SUB_GL_SCAN_HEADER_STRING_HD,_SUB_GL_SCAN_HEADER_STRING_CTYP),qbs_new_txt_len(" ",1)),_SUB_GL_SCAN_HEADER_STRING_LETTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,253,"opengl_methods.bas");}while(r); +S_35605:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_GL_SCAN_HEADER_STRING_L,qbs_new_txt_len(")",1))))||new_error){ +if(qbevent){evnt(26063,257,"opengl_methods.bas");if(r)goto S_35605;} +do{ +qbs_set(_SUB_GL_SCAN_HEADER_STRING_HC,qbs_add(_SUB_GL_SCAN_HEADER_STRING_HC,qbs_new_txt_len(",",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,257,"opengl_methods.bas");}while(r); +do{ +qbs_set(_SUB_GL_SCAN_HEADER_STRING_HD,qbs_add(_SUB_GL_SCAN_HEADER_STRING_HD,qbs_new_txt_len(",",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,257,"opengl_methods.bas");}while(r); +} +S_35609:; +dl_continue_3879:; +}while((!(qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_GL_SCAN_HEADER_STRING_L,qbs_new_txt_len(")",1)))))&&(!new_error)); +dl_exit_3879:; +if(qbevent){evnt(26063,259,"opengl_methods.bas");if(r)goto S_35609;} +LABEL_NO_ARGUMENTS:; +if(qbevent){evnt(26063,260,"opengl_methods.bas");r=0;} +do{ +qbs_set(_SUB_GL_SCAN_HEADER_STRING_HD,qbs_add(_SUB_GL_SCAN_HEADER_STRING_HD,qbs_new_txt_len("){",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,263,"opengl_methods.bas");}while(r); +do{ +qbs_set(_SUB_GL_SCAN_HEADER_STRING_HC,qbs_add(_SUB_GL_SCAN_HEADER_STRING_HC,qbs_new_txt_len(");",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,264,"opengl_methods.bas");}while(r); +S_35612:; +if ((*__LONG_GL_KIT)||new_error){ +if(qbevent){evnt(26063,265,"opengl_methods.bas");if(r)goto S_35612;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*_SUB_GL_SCAN_HEADER_LONG_HK; +if (new_error) goto skip3887; +sub_file_print(tmp_fileno,qbs_new_txt_len(")",1), 0, 0, 1); +if (new_error) goto skip3887; +skip3887: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(26063,265,"opengl_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_GL_SCAN_HEADER_STRING_H,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_GL_SCAN_HEADER_STRING_HD,__STRING_CRLF),qbs_new_txt_len("if (!sub_gl_called) error(270);",31)),__STRING_CRLF),_SUB_GL_SCAN_HEADER_STRING_HC),__STRING_CRLF),qbs_new_txt_len("}",1)),__STRING_CRLF)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,266,"opengl_methods.bas");}while(r); +S_35616:; +if ((*_SUB_GL_SCAN_HEADER_LONG_NEED_HELPER_FUNCTION)||new_error){ +if(qbevent){evnt(26063,268,"opengl_methods.bas");if(r)goto S_35616;} +do{ +qbs_set(__STRING_GL_HELPER_CODE,qbs_add(__STRING_GL_HELPER_CODE,_SUB_GL_SCAN_HEADER_STRING_H)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,269,"opengl_methods.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_GL_COMMANDS[0])+((array_check((*_SUB_GL_SCAN_HEADER_LONG_C)-__ARRAY_UDT_GL_COMMANDS[4],__ARRAY_UDT_GL_COMMANDS[5]))*216+66)),64,1),qbs_add(qbs_new_txt_len("call_",5),_SUB_GL_SCAN_HEADER_STRING_PROC_NAME)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,270,"opengl_methods.bas");}while(r); +} +S_35620:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_GL_SCAN_HEADER_STRING_PROC_NAME,qbs_new_txt_len("glGetString",11))))||new_error){ +if(qbevent){evnt(26063,274,"opengl_methods.bas");if(r)goto S_35620;} +do{ +*(int32*)(((char*)__ARRAY_UDT_GL_COMMANDS[0])+((array_check((*_SUB_GL_SCAN_HEADER_LONG_C)-__ARRAY_UDT_GL_COMMANDS[4],__ARRAY_UDT_GL_COMMANDS[5]))*216+212))=*__LONG_STRINGTYPE; +if(!qbevent)break;evnt(26063,275,"opengl_methods.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_GL_COMMANDS[0])+((array_check((*_SUB_GL_SCAN_HEADER_LONG_C)-__ARRAY_UDT_GL_COMMANDS[4],__ARRAY_UDT_GL_COMMANDS[5]))*216+66)),64,1),qbs_add(qbs_new_txt_len("( char* )",11),qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_GL_COMMANDS[0])+((array_check((*_SUB_GL_SCAN_HEADER_LONG_C)-__ARRAY_UDT_GL_COMMANDS[4],__ARRAY_UDT_GL_COMMANDS[5]))*216+66)),64,1)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,276,"opengl_methods.bas");}while(r); +} +} +} +LABEL_DISCARD:; +if(qbevent){evnt(26063,290,"opengl_methods.bas");r=0;} +dl_continue_3860:; +} +dl_exit_3860:; +do{ +sub_close(*_SUB_GL_SCAN_HEADER_LONG_H,1); +if(!qbevent)break;evnt(26063,292,"opengl_methods.bas");}while(r); +S_35628:; +if ((*__LONG_GL_KIT)||new_error){ +if(qbevent){evnt(26063,294,"opengl_methods.bas");if(r)goto S_35628;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*_SUB_GL_SCAN_HEADER_LONG_HK; +if (new_error) goto skip3888; +sub_file_print(tmp_fileno,qbs_new_txt_len("END DECLARE",11), 0, 0, 1); +if (new_error) goto skip3888; +skip3888: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(26063,294,"opengl_methods.bas");}while(r); +} +do{ +*__LONG_GL_DEFINES_LAST=*_SUB_GL_SCAN_HEADER_LONG_D; +if(!qbevent)break;evnt(26063,296,"opengl_methods.bas");}while(r); +do{ if (__ARRAY_STRING_GL_DEFINES[2]&2){ error(10); @@ -119681,9 +119681,9 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_GL_DEFINES[0]))[tmp_long]=(uint64)qb while(tmp_long--) ((uint64*)(__ARRAY_STRING_GL_DEFINES[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -} -if(!qbevent)break;evnt(26063,297,"opengl_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26063,297,"opengl_methods.bas");}while(r); +do{ if (__ARRAY_UDT_GL_COMMANDS[2]&2){ error(10); @@ -119721,119 +119721,119 @@ if (!__ARRAY_UDT_GL_COMMANDS[0]) error(257); } } __ARRAY_UDT_GL_COMMANDS[2]|=1; -} -if(!qbevent)break;evnt(26063,300,"opengl_methods.bas");}while(r); -S_35634:; -if ((*__LONG_GL_KIT)||new_error){ -if(qbevent){evnt(26063,303,"opengl_methods.bas");if(r)goto S_35634;} -S_35635:; -fornext_value3890= 1 ; -fornext_finalvalue3890=*__LONG_GL_DEFINES_LAST; -fornext_step3890= 1 ; -if (fornext_step3890<0) fornext_step_negative3890=1; else fornext_step_negative3890=0; -if (new_error) goto fornext_error3890; -goto fornext_entrylabel3890; -while(1){ -fornext_value3890=fornext_step3890+(*_SUB_GL_SCAN_HEADER_LONG_I); -fornext_entrylabel3890: -*_SUB_GL_SCAN_HEADER_LONG_I=fornext_value3890; -if (fornext_step_negative3890){ -if (fornext_value3890fornext_finalvalue3890) break; -} -fornext_error3890:; -if(qbevent){evnt(26063,304,"opengl_methods.bas");if(r)goto S_35635;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*_SUB_GL_SCAN_HEADER_LONG_HK; -if (new_error) goto skip3891; -sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("CONST ",6),((qbs*)(((uint64*)(__ARRAY_STRING_GL_DEFINES[0]))[array_check((*_SUB_GL_SCAN_HEADER_LONG_I)-__ARRAY_STRING_GL_DEFINES[4],__ARRAY_STRING_GL_DEFINES[5])]))),qbs_new_txt_len("=",1)), 0, 0, 0); -if (new_error) goto skip3891; -sub_file_print(tmp_fileno,qbs_str((int64)(((int64*)(__ARRAY_INTEGER64_GL_DEFINES_VALUE[0]))[array_check((*_SUB_GL_SCAN_HEADER_LONG_I)-__ARRAY_INTEGER64_GL_DEFINES_VALUE[4],__ARRAY_INTEGER64_GL_DEFINES_VALUE[5])])), 1, 0, 1); -if (new_error) goto skip3891; -skip3891: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(26063,305,"opengl_methods.bas");}while(r); -fornext_continue_3889:; -} -fornext_exit_3889:; -} -S_35639:; -if ((*__LONG_GL_KIT)||new_error){ -if(qbevent){evnt(26063,320,"opengl_methods.bas");if(r)goto S_35639;} -do{ -sub_close(*_SUB_GL_SCAN_HEADER_LONG_HK,1); -if(!qbevent)break;evnt(26063,320,"opengl_methods.bas");}while(r); -} -do{ -*_SUB_GL_SCAN_HEADER_LONG_FH=func_freefile(); -if(!qbevent)break;evnt(26063,323,"opengl_methods.bas");}while(r); -do{ -sub_open(qbs_new_txt_len("internal\\c\\parts\\core\\gl_header_for_parsing\\temp\\gl_helper_code.h",65), 4 ,NULL,NULL,*_SUB_GL_SCAN_HEADER_LONG_FH,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,324,"opengl_methods.bas");}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*_SUB_GL_SCAN_HEADER_LONG_FH; -if (new_error) goto skip3892; -sub_file_print(tmp_fileno,__STRING_GL_HELPER_CODE, 0, 0, 1); -if (new_error) goto skip3892; -skip3892: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(26063,325,"opengl_methods.bas");}while(r); -do{ -sub_close(*_SUB_GL_SCAN_HEADER_LONG_FH,1); -if(!qbevent)break;evnt(26063,326,"opengl_methods.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free139.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -void SUB_GL_INCLUDE_CONTENT(){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data140.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -S_35646:; -fornext_value3894= 1 ; -fornext_finalvalue3894=*__LONG_GL_DEFINES_LAST; -fornext_step3894= 1 ; -if (fornext_step3894<0) fornext_step_negative3894=1; else fornext_step_negative3894=0; -if (new_error) goto fornext_error3894; -goto fornext_entrylabel3894; -while(1){ -fornext_value3894=fornext_step3894+(*_SUB_GL_INCLUDE_CONTENT_LONG_D); -fornext_entrylabel3894: -*_SUB_GL_INCLUDE_CONTENT_LONG_D=fornext_value3894; -if (fornext_step_negative3894){ -if (fornext_value3894fornext_finalvalue3894) break; -} -fornext_error3894:; -if(qbevent){evnt(26063,334,"opengl_methods.bas");if(r)goto S_35646;} -do{ -*__LONG_CONSTLAST=*__LONG_CONSTLAST+ 1 ; -if(!qbevent)break;evnt(26063,338,"opengl_methods.bas");}while(r); -S_35648:; -if ((-(*__LONG_CONSTLAST>*__LONG_CONSTMAX))||new_error){ -if(qbevent){evnt(26063,339,"opengl_methods.bas");if(r)goto S_35648;} -do{ -*__LONG_CONSTMAX=*__LONG_CONSTMAX* 2 ; -if(!qbevent)break;evnt(26063,340,"opengl_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26063,300,"opengl_methods.bas");}while(r); +S_35634:; +if ((*__LONG_GL_KIT)||new_error){ +if(qbevent){evnt(26063,303,"opengl_methods.bas");if(r)goto S_35634;} +S_35635:; +fornext_value3890= 1 ; +fornext_finalvalue3890=*__LONG_GL_DEFINES_LAST; +fornext_step3890= 1 ; +if (fornext_step3890<0) fornext_step_negative3890=1; else fornext_step_negative3890=0; +if (new_error) goto fornext_error3890; +goto fornext_entrylabel3890; +while(1){ +fornext_value3890=fornext_step3890+(*_SUB_GL_SCAN_HEADER_LONG_I); +fornext_entrylabel3890: +*_SUB_GL_SCAN_HEADER_LONG_I=fornext_value3890; +if (fornext_step_negative3890){ +if (fornext_value3890fornext_finalvalue3890) break; +} +fornext_error3890:; +if(qbevent){evnt(26063,304,"opengl_methods.bas");if(r)goto S_35635;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*_SUB_GL_SCAN_HEADER_LONG_HK; +if (new_error) goto skip3891; +sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("CONST ",6),((qbs*)(((uint64*)(__ARRAY_STRING_GL_DEFINES[0]))[array_check((*_SUB_GL_SCAN_HEADER_LONG_I)-__ARRAY_STRING_GL_DEFINES[4],__ARRAY_STRING_GL_DEFINES[5])]))),qbs_new_txt_len("=",1)), 0, 0, 0); +if (new_error) goto skip3891; +sub_file_print(tmp_fileno,qbs_str((int64)(((int64*)(__ARRAY_INTEGER64_GL_DEFINES_VALUE[0]))[array_check((*_SUB_GL_SCAN_HEADER_LONG_I)-__ARRAY_INTEGER64_GL_DEFINES_VALUE[4],__ARRAY_INTEGER64_GL_DEFINES_VALUE[5])])), 1, 0, 1); +if (new_error) goto skip3891; +skip3891: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(26063,305,"opengl_methods.bas");}while(r); +fornext_continue_3889:; +} +fornext_exit_3889:; +} +S_35639:; +if ((*__LONG_GL_KIT)||new_error){ +if(qbevent){evnt(26063,320,"opengl_methods.bas");if(r)goto S_35639;} +do{ +sub_close(*_SUB_GL_SCAN_HEADER_LONG_HK,1); +if(!qbevent)break;evnt(26063,320,"opengl_methods.bas");}while(r); +} +do{ +*_SUB_GL_SCAN_HEADER_LONG_FH=func_freefile(); +if(!qbevent)break;evnt(26063,323,"opengl_methods.bas");}while(r); +do{ +sub_open(qbs_new_txt_len("internal\\c\\parts\\core\\gl_header_for_parsing\\temp\\gl_helper_code.h",65), 4 ,NULL,NULL,*_SUB_GL_SCAN_HEADER_LONG_FH,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,324,"opengl_methods.bas");}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*_SUB_GL_SCAN_HEADER_LONG_FH; +if (new_error) goto skip3892; +sub_file_print(tmp_fileno,__STRING_GL_HELPER_CODE, 0, 0, 1); +if (new_error) goto skip3892; +skip3892: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(26063,325,"opengl_methods.bas");}while(r); +do{ +sub_close(*_SUB_GL_SCAN_HEADER_LONG_FH,1); +if(!qbevent)break;evnt(26063,326,"opengl_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free139.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +void SUB_GL_INCLUDE_CONTENT(){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data140.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +S_35646:; +fornext_value3894= 1 ; +fornext_finalvalue3894=*__LONG_GL_DEFINES_LAST; +fornext_step3894= 1 ; +if (fornext_step3894<0) fornext_step_negative3894=1; else fornext_step_negative3894=0; +if (new_error) goto fornext_error3894; +goto fornext_entrylabel3894; +while(1){ +fornext_value3894=fornext_step3894+(*_SUB_GL_INCLUDE_CONTENT_LONG_D); +fornext_entrylabel3894: +*_SUB_GL_INCLUDE_CONTENT_LONG_D=fornext_value3894; +if (fornext_step_negative3894){ +if (fornext_value3894fornext_finalvalue3894) break; +} +fornext_error3894:; +if(qbevent){evnt(26063,334,"opengl_methods.bas");if(r)goto S_35646;} +do{ +*__LONG_CONSTLAST=*__LONG_CONSTLAST+ 1 ; +if(!qbevent)break;evnt(26063,338,"opengl_methods.bas");}while(r); +S_35648:; +if ((-(*__LONG_CONSTLAST>*__LONG_CONSTMAX))||new_error){ +if(qbevent){evnt(26063,339,"opengl_methods.bas");if(r)goto S_35648;} +do{ +*__LONG_CONSTMAX=*__LONG_CONSTMAX* 2 ; +if(!qbevent)break;evnt(26063,340,"opengl_methods.bas");}while(r); +do{ if (__ARRAY_STRING_CONSTNAME[2]&2){ error(10); @@ -119876,9 +119876,9 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTNAME[0]))[tmp_long]=(uint64)qbs while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTNAME[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -} -if(!qbevent)break;evnt(26063,341,"opengl_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26063,341,"opengl_methods.bas");}while(r); +do{ if (__ARRAY_STRING_CONSTCNAME[2]&2){ error(10); @@ -119921,9 +119921,9 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTCNAME[0]))[tmp_long]=(uint64)qb while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTCNAME[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -} -if(!qbevent)break;evnt(26063,342,"opengl_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26063,342,"opengl_methods.bas");}while(r); +do{ if (__ARRAY_STRING_CONSTNAMESYMBOL[2]&2){ error(10); @@ -119966,9 +119966,9 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTNAMESYMBOL[0]))[tmp_long]=(uint while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTNAMESYMBOL[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -} -if(!qbevent)break;evnt(26063,343,"opengl_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26063,343,"opengl_methods.bas");}while(r); +do{ if (__ARRAY_LONG_CONSTTYPE[2]&2){ error(10); @@ -120006,9 +120006,9 @@ if (!__ARRAY_LONG_CONSTTYPE[0]) error(257); } } __ARRAY_LONG_CONSTTYPE[2]|=1; -} -if(!qbevent)break;evnt(26063,344,"opengl_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26063,344,"opengl_methods.bas");}while(r); +do{ if (__ARRAY_INTEGER64_CONSTINTEGER[2]&2){ error(10); @@ -120046,9 +120046,9 @@ if (!__ARRAY_INTEGER64_CONSTINTEGER[0]) error(257); } } __ARRAY_INTEGER64_CONSTINTEGER[2]|=1; -} -if(!qbevent)break;evnt(26063,345,"opengl_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26063,345,"opengl_methods.bas");}while(r); +do{ if (__ARRAY_UINTEGER64_CONSTUINTEGER[2]&2){ error(10); @@ -120086,9 +120086,9 @@ if (!__ARRAY_UINTEGER64_CONSTUINTEGER[0]) error(257); } } __ARRAY_UINTEGER64_CONSTUINTEGER[2]|=1; -} -if(!qbevent)break;evnt(26063,346,"opengl_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26063,346,"opengl_methods.bas");}while(r); +do{ if (__ARRAY_FLOAT_CONSTFLOAT[2]&2){ error(10); @@ -120126,9 +120126,9 @@ if (!__ARRAY_FLOAT_CONSTFLOAT[0]) error(257); } } __ARRAY_FLOAT_CONSTFLOAT[2]|=1; -} -if(!qbevent)break;evnt(26063,347,"opengl_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26063,347,"opengl_methods.bas");}while(r); +do{ if (__ARRAY_STRING_CONSTSTRING[2]&2){ error(10); @@ -120171,9 +120171,9 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTSTRING[0]))[tmp_long]=(uint64)q while(tmp_long--) ((uint64*)(__ARRAY_STRING_CONSTSTRING[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -} -if(!qbevent)break;evnt(26063,348,"opengl_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26063,348,"opengl_methods.bas");}while(r); +do{ if (__ARRAY_LONG_CONSTSUBFUNC[2]&2){ error(10); @@ -120211,9 +120211,9 @@ if (!__ARRAY_LONG_CONSTSUBFUNC[0]) error(257); } } __ARRAY_LONG_CONSTSUBFUNC[2]|=1; -} -if(!qbevent)break;evnt(26063,349,"opengl_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26063,349,"opengl_methods.bas");}while(r); +do{ if (__ARRAY_LONG_CONSTDEFINED[2]&2){ error(10); @@ -120251,1802 +120251,1802 @@ if (!__ARRAY_LONG_CONSTDEFINED[0]) error(257); } } __ARRAY_LONG_CONSTDEFINED[2]|=1; -} -if(!qbevent)break;evnt(26063,350,"opengl_methods.bas");}while(r); -} -do{ -*_SUB_GL_INCLUDE_CONTENT_LONG_I=*__LONG_CONSTLAST; -if(!qbevent)break;evnt(26063,352,"opengl_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_GL_INCLUDE_CONTENT_LONG_I)-__ARRAY_STRING_CONSTNAME[4],__ARRAY_STRING_CONSTNAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_CONSTNAME[0]))[tmp_long])),qbs_add(__STRING_QB64PREFIX,((qbs*)(((uint64*)(__ARRAY_STRING_GL_DEFINES[0]))[array_check((*_SUB_GL_INCLUDE_CONTENT_LONG_D)-__ARRAY_STRING_GL_DEFINES[4],__ARRAY_STRING_GL_DEFINES[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,353,"opengl_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_GL_INCLUDE_CONTENT_LONG_I)-__ARRAY_STRING_CONSTCNAME[4],__ARRAY_STRING_CONSTCNAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_CONSTCNAME[0]))[tmp_long])),qbs_add(__STRING_QB64PREFIX,((qbs*)(((uint64*)(__ARRAY_STRING_GL_DEFINES[0]))[array_check((*_SUB_GL_INCLUDE_CONTENT_LONG_D)-__ARRAY_STRING_GL_DEFINES[4],__ARRAY_STRING_GL_DEFINES[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,354,"opengl_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_GL_INCLUDE_CONTENT_LONG_I)-__ARRAY_STRING_CONSTNAMESYMBOL[4],__ARRAY_STRING_CONSTNAMESYMBOL[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_CONSTNAMESYMBOL[0]))[tmp_long])),qbs_new_txt_len("&&",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,355,"opengl_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_GL_INCLUDE_CONTENT_LONG_I)-__ARRAY_LONG_CONSTTYPE[4],__ARRAY_LONG_CONSTTYPE[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_CONSTTYPE[0]))[tmp_long]=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER; -if(!qbevent)break;evnt(26063,356,"opengl_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_GL_INCLUDE_CONTENT_LONG_I)-__ARRAY_INTEGER64_CONSTINTEGER[4],__ARRAY_INTEGER64_CONSTINTEGER[5]); -if (!new_error) ((int64*)(__ARRAY_INTEGER64_CONSTINTEGER[0]))[tmp_long]=((int64*)(__ARRAY_INTEGER64_GL_DEFINES_VALUE[0]))[array_check((*_SUB_GL_INCLUDE_CONTENT_LONG_D)-__ARRAY_INTEGER64_GL_DEFINES_VALUE[4],__ARRAY_INTEGER64_GL_DEFINES_VALUE[5])]; -if(!qbevent)break;evnt(26063,357,"opengl_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_GL_INCLUDE_CONTENT_LONG_I)-__ARRAY_LONG_CONSTSUBFUNC[4],__ARRAY_LONG_CONSTSUBFUNC[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_CONSTSUBFUNC[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(26063,358,"opengl_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_GL_INCLUDE_CONTENT_LONG_I)-__ARRAY_LONG_CONSTDEFINED[4],__ARRAY_LONG_CONSTDEFINED[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_CONSTDEFINED[0]))[tmp_long]= 1 ; -if(!qbevent)break;evnt(26063,359,"opengl_methods.bas");}while(r); -do{ -SUB_HASHADD(((qbs*)(((uint64*)(__ARRAY_STRING_CONSTCNAME[0]))[array_check((*_SUB_GL_INCLUDE_CONTENT_LONG_I)-__ARRAY_STRING_CONSTCNAME[4],__ARRAY_STRING_CONSTCNAME[5])])),&(pass3895= 1024 ),_SUB_GL_INCLUDE_CONTENT_LONG_I); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,361,"opengl_methods.bas");}while(r); -fornext_continue_3893:; -} -fornext_exit_3893:; -S_35671:; -fornext_value3897= 1 ; -fornext_finalvalue3897=*__LONG_GL_COMMANDS_LAST; -fornext_step3897= 1 ; -if (fornext_step3897<0) fornext_step_negative3897=1; else fornext_step_negative3897=0; -if (new_error) goto fornext_error3897; -goto fornext_entrylabel3897; -while(1){ -fornext_value3897=fornext_step3897+(*_SUB_GL_INCLUDE_CONTENT_LONG_C); -fornext_entrylabel3897: -*_SUB_GL_INCLUDE_CONTENT_LONG_C=fornext_value3897; -if (fornext_step_negative3897){ -if (fornext_value3897fornext_finalvalue3897) break; -} -fornext_error3897:; -if(qbevent){evnt(26063,366,"opengl_methods.bas");if(r)goto S_35671;} -do{ -if(!qbevent)break;evnt(26063,367,"opengl_methods.bas");}while(r); -do{ -memcpy(((char*)_SUB_GL_INCLUDE_CONTENT_UDT_G)+(0)+ 0,((char*)__ARRAY_UDT_GL_COMMANDS[0])+((array_check((*_SUB_GL_INCLUDE_CONTENT_LONG_C)-__ARRAY_UDT_GL_COMMANDS[4],__ARRAY_UDT_GL_COMMANDS[5]))*216)+ 0, 216); -if(!qbevent)break;evnt(26063,376,"opengl_methods.bas");}while(r); -do{ -*__LONG_REGINTERNALSUBFUNC= 1 ; -if(!qbevent)break;evnt(26063,378,"opengl_methods.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(26063,379,"opengl_methods.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(806))= 1 ; -if(!qbevent)break;evnt(26063,380,"opengl_methods.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_rtrim(qbs_new_fixed((((uint8*)_SUB_GL_INCLUDE_CONTENT_UDT_G)+(0)),64,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,381,"opengl_methods.bas");}while(r); -S_35678:; -if ((-(*__LONG_QB64PREFIX_SET== 1 ))||new_error){ -if(qbevent){evnt(26063,382,"opengl_methods.bas");if(r)goto S_35678;} -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),func_mid(qbs_rtrim(qbs_new_fixed((((uint8*)_SUB_GL_INCLUDE_CONTENT_UDT_G)+(0)),64,1)), 2 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,382,"opengl_methods.bas");}while(r); -} -do{ -*_SUB_GL_INCLUDE_CONTENT_LONG_S=*(int16*)(((char*)_SUB_GL_INCLUDE_CONTENT_UDT_G)+(64)); -if(!qbevent)break;evnt(26063,383,"opengl_methods.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))=*_SUB_GL_INCLUDE_CONTENT_LONG_S; -if(!qbevent)break;evnt(26063,384,"opengl_methods.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_rtrim(qbs_new_fixed((((uint8*)_SUB_GL_INCLUDE_CONTENT_UDT_G)+(66)),64,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,385,"opengl_methods.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))=*(int16*)(((char*)_SUB_GL_INCLUDE_CONTENT_UDT_G)+(130)); -if(!qbevent)break;evnt(26063,386,"opengl_methods.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_new_fixed((((uint8*)_SUB_GL_INCLUDE_CONTENT_UDT_G)+(132)),80,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,387,"opengl_methods.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(2381))=*(int32*)(((char*)_SUB_GL_INCLUDE_CONTENT_UDT_G)+(212)); -if(!qbevent)break;evnt(26063,388,"opengl_methods.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(26063,389,"opengl_methods.bas");}while(r); -do{ -*__LONG_REGINTERNALSUBFUNC= 0 ; -if(!qbevent)break;evnt(26063,390,"opengl_methods.bas");}while(r); -fornext_continue_3896:; -} -fornext_exit_3896:; -do{ -*__LONG_REGINTERNALSUBFUNC= 1 ; -if(!qbevent)break;evnt(26063,396,"opengl_methods.bas");}while(r); -do{ -SUB_CLEARID(); -if(!qbevent)break;evnt(26063,397,"opengl_methods.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("gluPerspective",14))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,398,"opengl_methods.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(544))= 2 ; -if(!qbevent)break;evnt(26063,399,"opengl_methods.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("gluPerspective",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,400,"opengl_methods.bas");}while(r); -do{ -*(int16*)(((char*)__UDT_ID)+(809))= 4 ; -if(!qbevent)break;evnt(26063,401,"opengl_methods.bas");}while(r); -do{ -qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER),l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26063,402,"opengl_methods.bas");}while(r); -do{ -SUB_REGID(); -if(!qbevent)break;evnt(26063,403,"opengl_methods.bas");}while(r); -do{ -*__LONG_REGINTERNALSUBFUNC= 0 ; -if(!qbevent)break;evnt(26063,404,"opengl_methods.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free140.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -void SUB_INICOMMIT(){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data141.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -if(!qbevent)break;evnt(26064,5,"ini.bm");}while(r); -do{ -if(!qbevent)break;evnt(26064,6,"ini.bm");}while(r); -S_35701:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_CURRENTINIFILENAME,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26064,8,"ini.bm");if(r)goto S_35701;} -do{ -*__LONG_INICODE= 18 ; -if(!qbevent)break;evnt(26064,8,"ini.bm");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26064,8,"ini.bm");}while(r); -} -do{ -qbs_set(__STRING_INIWHOLEFILE,__STRING_ININEWFILE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26064,10,"ini.bm");}while(r); -do{ -*__ULONG_CURRENTINIFILELOF=__STRING_ININEWFILE->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26064,11,"ini.bm");}while(r); -S_35707:; -if ((~(*__LONG_INIDISABLEAUTOCOMMIT))||new_error){ -if(qbevent){evnt(26064,13,"ini.bm");if(r)goto S_35707;} -do{ -if(!qbevent)break;evnt(26064,14,"ini.bm");}while(r); -do{ -*_SUB_INICOMMIT_INTEGER_FILENUM=func_freefile(); -if(!qbevent)break;evnt(26064,16,"ini.bm");}while(r); -do{ -sub_open(__STRING_CURRENTINIFILENAME, 2 ,NULL,NULL,*_SUB_INICOMMIT_INTEGER_FILENUM,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26064,17,"ini.bm");}while(r); -S_35711:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_INIWHOLEFILE->lenchr,__STRING_ININEWFILE->len,byte_element_3900),1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26064,25,"ini.bm");}while(r); -do{ -sub_close(*_SUB_INICOMMIT_INTEGER_FILENUM,1); -if(!qbevent)break;evnt(26064,26,"ini.bm");}while(r); -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free141.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -qbs* FUNC_INIGETSECTION(qbs*_FUNC_INIGETSECTION_STRING___SECTION){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data142.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -if(!qbevent)break;evnt(26064,31,"ini.bm");}while(r); -do{ -if(!qbevent)break;evnt(26064,32,"ini.bm");}while(r); -S_35722:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_CURRENTINIFILENAME,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26064,34,"ini.bm");if(r)goto S_35722;} -do{ -*__LONG_INICODE= 18 ; -if(!qbevent)break;evnt(26064,34,"ini.bm");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26064,34,"ini.bm");}while(r); -} -S_35726:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__ULONG_CURRENTINIFILELOF== 0 ))|(-(((int32)(qbs_ltrim(qbs_rtrim(__STRING_INIWHOLEFILE)))->len)== 0 ))))||new_error){ -if(qbevent){evnt(26064,35,"ini.bm");if(r)goto S_35726;} -do{ -*__LONG_INICODE= 17 ; -if(!qbevent)break;evnt(26064,35,"ini.bm");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26064,35,"ini.bm");}while(r); -} -do{ -*__LONG_INICODE= 0 ; -if(!qbevent)break;evnt(26064,37,"ini.bm");}while(r); -do{ -if(!qbevent)break;evnt(26064,39,"ini.bm");}while(r); -do{ -if(!qbevent)break;evnt(26064,40,"ini.bm");}while(r); -do{ -if(!qbevent)break;evnt(26064,41,"ini.bm");}while(r); -do{ -qbs_set(_FUNC_INIGETSECTION_STRING_SECTION,FUNC_INIFORMATSECTION(_FUNC_INIGETSECTION_STRING___SECTION)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26064,43,"ini.bm");}while(r); -S_35735:; -if ((*__LONG_INICODE)||new_error){ -if(qbevent){evnt(26064,44,"ini.bm");if(r)goto S_35735;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26064,44,"ini.bm");}while(r); -} -S_35738:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_INIGETSECTION_STRING_SECTION,qbs_new_txt_len("[]",2))))||new_error){ -if(qbevent){evnt(26064,46,"ini.bm");if(r)goto S_35738;} -do{ -*_FUNC_INIGETSECTION_ULONG_SECTIONSTART=func_instr(NULL,__STRING_INIWHOLEFILE,qbs_new_txt_len("[",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26064,48,"ini.bm");}while(r); -S_35740:; -if ((-(*_FUNC_INIGETSECTION_ULONG_SECTIONSTART== 0 ))||new_error){ -if(qbevent){evnt(26064,49,"ini.bm");if(r)goto S_35740;} -do{ -qbs_set(_FUNC_INIGETSECTION_STRING_INIGETSECTION,__STRING_INIWHOLEFILE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26064,49,"ini.bm");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26064,49,"ini.bm");}while(r); -} -S_35744:; -fornext_value3903=*_FUNC_INIGETSECTION_ULONG_SECTIONSTART- 1 ; -fornext_finalvalue3903= 1 ; -fornext_step3903= -1 ; -if (fornext_step3903<0) fornext_step_negative3903=1; else fornext_step_negative3903=0; -if (new_error) goto fornext_error3903; -goto fornext_entrylabel3903; -while(1){ -fornext_value3903=fornext_step3903+(*_FUNC_INIGETSECTION_ULONG_I); -fornext_entrylabel3903: -*_FUNC_INIGETSECTION_ULONG_I=fornext_value3903; -if (fornext_step_negative3903){ -if (fornext_value3903fornext_finalvalue3903) break; -} -fornext_error3903:; -if(qbevent){evnt(26064,51,"ini.bm");if(r)goto S_35744;} -S_35745:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_INIWHOLEFILE,*_FUNC_INIGETSECTION_ULONG_I)== 10 )))||new_error){ -if(qbevent){evnt(26064,52,"ini.bm");if(r)goto S_35745;} -do{ -*_FUNC_INIGETSECTION_ULONG_FOUNDSECTION=*_FUNC_INIGETSECTION_ULONG_I+ 1 ; -if(!qbevent)break;evnt(26064,52,"ini.bm");}while(r); -do{ -goto fornext_exit_3902; -if(!qbevent)break;evnt(26064,52,"ini.bm");}while(r); -} -S_35749:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_INIWHOLEFILE,*_FUNC_INIGETSECTION_ULONG_I)!= 32 )))||new_error){ -if(qbevent){evnt(26064,53,"ini.bm");if(r)goto S_35749;} -do{ -goto fornext_exit_3902; -if(!qbevent)break;evnt(26064,53,"ini.bm");}while(r); -} -fornext_continue_3902:; -} -fornext_exit_3902:; -S_35753:; -if ((-(*_FUNC_INIGETSECTION_ULONG_I== 0 ))||new_error){ -if(qbevent){evnt(26064,56,"ini.bm");if(r)goto S_35753;} -do{ -*_FUNC_INIGETSECTION_ULONG_FOUNDSECTION= 1 ; -if(!qbevent)break;evnt(26064,56,"ini.bm");}while(r); -} -do{ -qbs_set(_FUNC_INIGETSECTION_STRING_INIGETSECTION,qbs_left(__STRING_INIWHOLEFILE,*_FUNC_INIGETSECTION_ULONG_FOUNDSECTION- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26064,58,"ini.bm");}while(r); -}else{ -S_35758:; -do{ -if(qbevent){evnt(26064,60,"ini.bm");if(r)goto S_35758;} -do{ -*_FUNC_INIGETSECTION_ULONG_SECTIONSTART=func_instr(*_FUNC_INIGETSECTION_ULONG_SECTIONSTART+ 1 ,qbs_lcase(__STRING_INIWHOLEFILE),qbs_lcase(_FUNC_INIGETSECTION_STRING_SECTION),0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26064,61,"ini.bm");}while(r); -S_35760:; -if ((-(*_FUNC_INIGETSECTION_ULONG_SECTIONSTART== 0 ))||new_error){ -if(qbevent){evnt(26064,62,"ini.bm");if(r)goto S_35760;} -do{ -*__LONG_INICODE= 14 ; -if(!qbevent)break;evnt(26064,62,"ini.bm");}while(r); -do{ -goto dl_exit_3904; -if(!qbevent)break;evnt(26064,62,"ini.bm");}while(r); -} -do{ -*_FUNC_INIGETSECTION_ULONG_FOUNDSECTION= 0 ; -if(!qbevent)break;evnt(26064,65,"ini.bm");}while(r); -S_35765:; -fornext_value3906=*_FUNC_INIGETSECTION_ULONG_SECTIONSTART- 1 ; -fornext_finalvalue3906= 1 ; -fornext_step3906= -1 ; -if (fornext_step3906<0) fornext_step_negative3906=1; else fornext_step_negative3906=0; -if (new_error) goto fornext_error3906; -goto fornext_entrylabel3906; -while(1){ -fornext_value3906=fornext_step3906+(*_FUNC_INIGETSECTION_ULONG_I); -fornext_entrylabel3906: -*_FUNC_INIGETSECTION_ULONG_I=fornext_value3906; -if (fornext_step_negative3906){ -if (fornext_value3906fornext_finalvalue3906) break; -} -fornext_error3906:; -if(qbevent){evnt(26064,66,"ini.bm");if(r)goto S_35765;} -S_35766:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_INIWHOLEFILE,*_FUNC_INIGETSECTION_ULONG_I)== 10 )))||new_error){ -if(qbevent){evnt(26064,67,"ini.bm");if(r)goto S_35766;} -do{ -*_FUNC_INIGETSECTION_ULONG_FOUNDSECTION=*_FUNC_INIGETSECTION_ULONG_I+ 1 ; -if(!qbevent)break;evnt(26064,67,"ini.bm");}while(r); -do{ -goto fornext_exit_3905; -if(!qbevent)break;evnt(26064,67,"ini.bm");}while(r); -} -S_35770:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_INIWHOLEFILE,*_FUNC_INIGETSECTION_ULONG_I)!= 32 )))||new_error){ -if(qbevent){evnt(26064,68,"ini.bm");if(r)goto S_35770;} -do{ -goto fornext_exit_3905; -if(!qbevent)break;evnt(26064,68,"ini.bm");}while(r); -} -fornext_continue_3905:; -} -fornext_exit_3905:; -S_35774:; -if ((-(*_FUNC_INIGETSECTION_ULONG_I== 0 ))||new_error){ -if(qbevent){evnt(26064,71,"ini.bm");if(r)goto S_35774;} -do{ -*_FUNC_INIGETSECTION_ULONG_FOUNDSECTION= 1 ; -if(!qbevent)break;evnt(26064,71,"ini.bm");}while(r); -} -S_35777:; -if ((-(*_FUNC_INIGETSECTION_ULONG_FOUNDSECTION> 0 ))||new_error){ -if(qbevent){evnt(26064,73,"ini.bm");if(r)goto S_35777;} -do{ -*_FUNC_INIGETSECTION_ULONG_BRACKET1=*_FUNC_INIGETSECTION_ULONG_SECTIONSTART; -if(!qbevent)break;evnt(26064,76,"ini.bm");}while(r); -LABEL_CHECKAGAIN:; -if(qbevent){evnt(26064,77,"ini.bm");r=0;} -do{ -*_FUNC_INIGETSECTION_ULONG_BRACKET1=func_instr(*_FUNC_INIGETSECTION_ULONG_BRACKET1+ 1 ,__STRING_INIWHOLEFILE,qbs_new_txt_len("[",1),0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26064,78,"ini.bm");}while(r); -S_35780:; -if ((-(*_FUNC_INIGETSECTION_ULONG_BRACKET1> 0 ))||new_error){ -if(qbevent){evnt(26064,80,"ini.bm");if(r)goto S_35780;} -do{ -*_FUNC_INIGETSECTION_BYTE_INQUOTE= 0 ; -if(!qbevent)break;evnt(26064,82,"ini.bm");}while(r); -S_35782:; -fornext_value3908= 1 ; -fornext_finalvalue3908=*_FUNC_INIGETSECTION_ULONG_BRACKET1- 1 ; -fornext_step3908= 1 ; -if (fornext_step3908<0) fornext_step_negative3908=1; else fornext_step_negative3908=0; -if (new_error) goto fornext_error3908; -goto fornext_entrylabel3908; -while(1){ -fornext_value3908=fornext_step3908+(*_FUNC_INIGETSECTION_ULONG_I); -fornext_entrylabel3908: -*_FUNC_INIGETSECTION_ULONG_I=fornext_value3908; -if (fornext_step_negative3908){ -if (fornext_value3908fornext_finalvalue3908) break; -} -fornext_error3908:; -if(qbevent){evnt(26064,83,"ini.bm");if(r)goto S_35782;} -S_35783:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_INIWHOLEFILE,*_FUNC_INIGETSECTION_ULONG_I)== 34 )))||new_error){ -if(qbevent){evnt(26064,84,"ini.bm");if(r)goto S_35783;} -do{ -*_FUNC_INIGETSECTION_BYTE_INQUOTE=~(*_FUNC_INIGETSECTION_BYTE_INQUOTE); -if(!qbevent)break;evnt(26064,84,"ini.bm");}while(r); -} -fornext_continue_3907:; -} -fornext_exit_3907:; -S_35787:; -if ((*_FUNC_INIGETSECTION_BYTE_INQUOTE)||new_error){ -if(qbevent){evnt(26064,86,"ini.bm");if(r)goto S_35787;} -do{ -goto LABEL_CHECKAGAIN; -if(!qbevent)break;evnt(26064,86,"ini.bm");}while(r); -} -S_35790:; -fornext_value3910=*_FUNC_INIGETSECTION_ULONG_BRACKET1- 1 ; -fornext_finalvalue3910= 1 ; -fornext_step3910= -1 ; -if (fornext_step3910<0) fornext_step_negative3910=1; else fornext_step_negative3910=0; -if (new_error) goto fornext_error3910; -goto fornext_entrylabel3910; -while(1){ -fornext_value3910=fornext_step3910+(*_FUNC_INIGETSECTION_ULONG_I); -fornext_entrylabel3910: -*_FUNC_INIGETSECTION_ULONG_I=fornext_value3910; -if (fornext_step_negative3910){ -if (fornext_value3910fornext_finalvalue3910) break; -} -fornext_error3910:; -if(qbevent){evnt(26064,88,"ini.bm");if(r)goto S_35790;} -S_35791:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_INIWHOLEFILE,*_FUNC_INIGETSECTION_ULONG_I)== 10 )))||new_error){ -if(qbevent){evnt(26064,89,"ini.bm");if(r)goto S_35791;} -do{ -*_FUNC_INIGETSECTION_ULONG_ENDSECTION=*_FUNC_INIGETSECTION_ULONG_I+ 1 -__STRING_INILF->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26064,89,"ini.bm");}while(r); -do{ -goto fornext_exit_3909; -if(!qbevent)break;evnt(26064,89,"ini.bm");}while(r); -} -S_35795:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_INIWHOLEFILE,*_FUNC_INIGETSECTION_ULONG_I)== 61 )))||new_error){ -if(qbevent){evnt(26064,90,"ini.bm");if(r)goto S_35795;} -do{ -goto LABEL_CHECKAGAIN; -if(!qbevent)break;evnt(26064,90,"ini.bm");}while(r); -} -S_35798:; -if ((-(*_FUNC_INIGETSECTION_ULONG_I<=*_FUNC_INIGETSECTION_ULONG_FOUNDSECTION))||new_error){ -if(qbevent){evnt(26064,91,"ini.bm");if(r)goto S_35798;} -do{ -goto fornext_exit_3909; -if(!qbevent)break;evnt(26064,91,"ini.bm");}while(r); -} -fornext_continue_3909:; -} -fornext_exit_3909:; -do{ -qbs_set(_FUNC_INIGETSECTION_STRING_INIGETSECTION,func_mid(__STRING_INIWHOLEFILE,*_FUNC_INIGETSECTION_ULONG_FOUNDSECTION,*_FUNC_INIGETSECTION_ULONG_ENDSECTION-*_FUNC_INIGETSECTION_ULONG_FOUNDSECTION,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26064,93,"ini.bm");}while(r); -}else{ -do{ -qbs_set(_FUNC_INIGETSECTION_STRING_INIGETSECTION,func_mid(__STRING_INIWHOLEFILE,*_FUNC_INIGETSECTION_ULONG_FOUNDSECTION,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26064,95,"ini.bm");}while(r); -} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26064,97,"ini.bm");}while(r); -} -dl_continue_3904:; -}while(1); -dl_exit_3904:; -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free142.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_INIGETSECTION_STRING_INIGETSECTION);return _FUNC_INIGETSECTION_STRING_INIGETSECTION; -} -qbs* FUNC_INIFORMATSECTION(qbs*_FUNC_INIFORMATSECTION_STRING___SECTION){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data143.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -if(!qbevent)break;evnt(26064,104,"ini.bm");}while(r); -do{ -if(!qbevent)break;evnt(26064,106,"ini.bm");}while(r); -do{ -qbs_set(_FUNC_INIFORMATSECTION_STRING_SECTION,qbs_ltrim(qbs_rtrim(_FUNC_INIFORMATSECTION_STRING___SECTION))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26064,108,"ini.bm");}while(r); -S_35813:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(_FUNC_INIFORMATSECTION_STRING_SECTION, 1 ),qbs_new_txt_len("[",1))))||new_error){ -if(qbevent){evnt(26064,111,"ini.bm");if(r)goto S_35813;} -do{ -qbs_set(_FUNC_INIFORMATSECTION_STRING_SECTION,qbs_add(qbs_new_txt_len("[",1),_FUNC_INIFORMATSECTION_STRING_SECTION)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26064,111,"ini.bm");}while(r); -} -S_35816:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_right(_FUNC_INIFORMATSECTION_STRING_SECTION, 1 ),qbs_new_txt_len("]",1))))||new_error){ -if(qbevent){evnt(26064,112,"ini.bm");if(r)goto S_35816;} -do{ -qbs_set(_FUNC_INIFORMATSECTION_STRING_SECTION,qbs_add(_FUNC_INIFORMATSECTION_STRING_SECTION,qbs_new_txt_len("]",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26064,112,"ini.bm");}while(r); -} -S_35819:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func_mid(_FUNC_INIFORMATSECTION_STRING_SECTION, 2 ,_FUNC_INIFORMATSECTION_STRING_SECTION->len- 3 ,0|1),qbs_new_txt_len("[",1),0)|func_instr(NULL,func_mid(_FUNC_INIFORMATSECTION_STRING_SECTION, 2 ,_FUNC_INIFORMATSECTION_STRING_SECTION->len- 3 ,0|1),qbs_new_txt_len("]",1),0)))||new_error){ -if(qbevent){evnt(26064,114,"ini.bm");if(r)goto S_35819;} -do{ -*__LONG_INICODE= 15 ; -if(!qbevent)break;evnt(26064,115,"ini.bm");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26064,116,"ini.bm");}while(r); -} -do{ -qbs_set(_FUNC_INIFORMATSECTION_STRING_INIFORMATSECTION,_FUNC_INIFORMATSECTION_STRING_SECTION); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26064,119,"ini.bm");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free143.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_INIFORMATSECTION_STRING_INIFORMATSECTION);return _FUNC_INIFORMATSECTION_STRING_INIFORMATSECTION; -} -qbs* FUNC_READSETTING(qbs*_FUNC_READSETTING_STRING_FILE,qbs*_FUNC_READSETTING_STRING___SECTION,qbs*_FUNC_READSETTING_STRING___KEY){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data144.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -if(!qbevent)break;evnt(26064,123,"ini.bm");}while(r); -do{ -if(!qbevent)break;evnt(26064,124,"ini.bm");}while(r); -do{ -if(!qbevent)break;evnt(26064,125,"ini.bm");}while(r); -do{ -if(!qbevent)break;evnt(26064,126,"ini.bm");}while(r); -do{ -SUB_INILOAD(_FUNC_READSETTING_STRING_FILE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26064,128,"ini.bm");}while(r); -S_35829:; -if ((*__LONG_INICODE)||new_error){ -if(qbevent){evnt(26064,129,"ini.bm");if(r)goto S_35829;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26064,129,"ini.bm");}while(r); -} -S_35832:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__ULONG_CURRENTINIFILELOF== 0 ))|(-(((int32)(qbs_ltrim(qbs_rtrim(__STRING_INIWHOLEFILE)))->len)== 0 ))))||new_error){ -if(qbevent){evnt(26064,131,"ini.bm");if(r)goto S_35832;} -do{ -*__LONG_INICODE= 17 ; -if(!qbevent)break;evnt(26064,131,"ini.bm");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26064,131,"ini.bm");}while(r); -} -do{ -if(!qbevent)break;evnt(26064,133,"ini.bm");}while(r); -do{ -if(!qbevent)break;evnt(26064,134,"ini.bm");}while(r); -do{ -if(!qbevent)break;evnt(26064,135,"ini.bm");}while(r); -do{ -qbs_set(_FUNC_READSETTING_STRING_SECTION,FUNC_INIFORMATSECTION(_FUNC_READSETTING_STRING___SECTION)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26064,137,"ini.bm");}while(r); -S_35840:; -if ((*__LONG_INICODE)||new_error){ -if(qbevent){evnt(26064,138,"ini.bm");if(r)goto S_35840;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26064,138,"ini.bm");}while(r); -} -do{ -qbs_set(__STRING_INISECTIONDATA,FUNC_INIGETSECTION(_FUNC_READSETTING_STRING_SECTION)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26064,141,"ini.bm");}while(r); -S_35844:; -if (((-(*__LONG_INICODE> 0 ))&(-(*__LONG_INICODE!= 17 )))||new_error){ -if(qbevent){evnt(26064,142,"ini.bm");if(r)goto S_35844;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26064,142,"ini.bm");}while(r); -} -S_35847:; -if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_INISECTIONDATA->len== 0 ))&(qbs_notequal(_FUNC_READSETTING_STRING_SECTION,qbs_new_txt_len("[]",2)))))||new_error){ -if(qbevent){evnt(26064,144,"ini.bm");if(r)goto S_35847;} -do{ -*__LONG_INICODE= 14 ; -if(!qbevent)break;evnt(26064,144,"ini.bm");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26064,144,"ini.bm");}while(r); -} -do{ -qbs_set(__STRING_INILASTSECTION,_FUNC_READSETTING_STRING_SECTION); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26064,146,"ini.bm");}while(r); -do{ -*__ULONG_INIPOSITION= 0 ; -if(!qbevent)break;evnt(26064,148,"ini.bm");}while(r); -do{ -qbs_set(_FUNC_READSETTING_STRING_KEY,qbs_ltrim(qbs_rtrim(_FUNC_READSETTING_STRING___KEY))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26064,150,"ini.bm");}while(r); -do{ -qbs_set(__STRING_INILASTKEY,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26064,151,"ini.bm");}while(r); -S_35855:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_READSETTING_STRING_KEY,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26064,152,"ini.bm");if(r)goto S_35855;} -do{ -*__LONG_INICODE= 12 ; -if(!qbevent)break;evnt(26064,152,"ini.bm");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26064,152,"ini.bm");}while(r); -} -S_35859:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(_FUNC_READSETTING_STRING_KEY, 1 ),qbs_new_txt_len(";",1)))|(qbs_equal(qbs_left(_FUNC_READSETTING_STRING_KEY, 1 ),qbs_new_txt_len("'",1)))|(-(func_instr(NULL,_FUNC_READSETTING_STRING_KEY,qbs_new_txt_len("[",1),0)> 0 ))|(-(func_instr(NULL,_FUNC_READSETTING_STRING_KEY,qbs_new_txt_len("]",1),0)> 0 ))|(-(func_instr(NULL,_FUNC_READSETTING_STRING_KEY,qbs_new_txt_len("=",1),0)> 0 ))))||new_error){ -if(qbevent){evnt(26064,154,"ini.bm");if(r)goto S_35859;} -do{ -*__LONG_INICODE= 12 ; -if(!qbevent)break;evnt(26064,155,"ini.bm");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26064,156,"ini.bm");}while(r); -} -do{ -qbs_set(__STRING_INILASTKEY,_FUNC_READSETTING_STRING_KEY); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26064,159,"ini.bm");}while(r); -S_35864:; -if ((-(*__ULONG_INIPOSITION> 0 ))||new_error){ -if(qbevent){evnt(26064,161,"ini.bm");if(r)goto S_35864;} -do{ -*_FUNC_READSETTING_ULONG_EQUAL=*__ULONG_INIPOSITION; -if(!qbevent)break;evnt(26064,161,"ini.bm");}while(r); -do{ -goto LABEL_KEYFOUND; -if(!qbevent)break;evnt(26064,161,"ini.bm");}while(r); -} -LABEL_CHECKKEY:; -if(qbevent){evnt(26064,162,"ini.bm");r=0;} -do{ -*__ULONG_INIPOSITION=func_instr(*__ULONG_INIPOSITION+ 1 ,qbs_lcase(__STRING_INISECTIONDATA),qbs_lcase(_FUNC_READSETTING_STRING_KEY),0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26064,163,"ini.bm");}while(r); -S_35869:; -if ((-(*__ULONG_INIPOSITION> 0 ))||new_error){ -if(qbevent){evnt(26064,165,"ini.bm");if(r)goto S_35869;} -S_35870:; -fornext_value3920=*__ULONG_INIPOSITION- 1 ; -fornext_finalvalue3920= 1 ; -fornext_step3920= -1 ; -if (fornext_step3920<0) fornext_step_negative3920=1; else fornext_step_negative3920=0; -if (new_error) goto fornext_error3920; -goto fornext_entrylabel3920; -while(1){ -fornext_value3920=fornext_step3920+(*_FUNC_READSETTING_LONG_I); -fornext_entrylabel3920: -*_FUNC_READSETTING_LONG_I=fornext_value3920; -if (fornext_step_negative3920){ -if (fornext_value3920fornext_finalvalue3920) break; -} -fornext_error3920:; -if(qbevent){evnt(26064,167,"ini.bm");if(r)goto S_35870;} -S_35871:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_INISECTIONDATA,*_FUNC_READSETTING_LONG_I)== 10 )))||new_error){ -if(qbevent){evnt(26064,168,"ini.bm");if(r)goto S_35871;} -do{ -goto fornext_exit_3919; -if(!qbevent)break;evnt(26064,168,"ini.bm");}while(r); -} -S_35874:; -if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(__STRING_INISECTIONDATA,*_FUNC_READSETTING_LONG_I)!= 10 ))&(-(qbs_asc(__STRING_INISECTIONDATA,*_FUNC_READSETTING_LONG_I)!= 32 ))))||new_error){ -if(qbevent){evnt(26064,169,"ini.bm");if(r)goto S_35874;} -do{ -goto LABEL_CHECKKEY; -if(!qbevent)break;evnt(26064,171,"ini.bm");}while(r); -} -fornext_continue_3919:; -} -fornext_exit_3919:; -S_35878:; -fornext_value3922=*__ULONG_INIPOSITION+_FUNC_READSETTING_STRING_KEY->len; -fornext_finalvalue3922=__STRING_INISECTIONDATA->len; -fornext_step3922= 1 ; -if (fornext_step3922<0) fornext_step_negative3922=1; else fornext_step_negative3922=0; -if (new_error) goto fornext_error3922; -goto fornext_entrylabel3922; -while(1){ -fornext_value3922=fornext_step3922+(*_FUNC_READSETTING_LONG_I); -fornext_entrylabel3922: -*_FUNC_READSETTING_LONG_I=fornext_value3922; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative3922){ -if (fornext_value3922fornext_finalvalue3922) break; -} -fornext_error3922:; -if(qbevent){evnt(26064,176,"ini.bm");if(r)goto S_35878;} -S_35879:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_INISECTIONDATA,*_FUNC_READSETTING_LONG_I)==qbs_asc(qbs_new_txt_len("=",1)))))||new_error){ -if(qbevent){evnt(26064,177,"ini.bm");if(r)goto S_35879;} -do{ -goto fornext_exit_3921; -if(!qbevent)break;evnt(26064,177,"ini.bm");}while(r); -} -S_35882:; -if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(__STRING_INISECTIONDATA,*_FUNC_READSETTING_LONG_I)!=qbs_asc(qbs_new_txt_len("=",1))))&(-(qbs_asc(__STRING_INISECTIONDATA,*_FUNC_READSETTING_LONG_I)!= 32 ))))||new_error){ -if(qbevent){evnt(26064,178,"ini.bm");if(r)goto S_35882;} -do{ -goto LABEL_CHECKKEY; -if(!qbevent)break;evnt(26064,180,"ini.bm");}while(r); -} -fornext_continue_3921:; -} -fornext_exit_3921:; -do{ -*_FUNC_READSETTING_ULONG_EQUAL=func_instr(*__ULONG_INIPOSITION,__STRING_INISECTIONDATA,qbs_new_txt_len("=",1),0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26064,185,"ini.bm");}while(r); -LABEL_KEYFOUND:; -if(qbevent){evnt(26064,186,"ini.bm");r=0;} -do{ -*_FUNC_READSETTING_ULONG_FOUNDLF=func_instr(*__ULONG_INIPOSITION,__STRING_INISECTIONDATA,__STRING_INILF,0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26064,187,"ini.bm");}while(r); -S_35888:; -if ((-(*_FUNC_READSETTING_ULONG_FOUNDLF> 0 ))||new_error){ -if(qbevent){evnt(26064,189,"ini.bm");if(r)goto S_35888;} -S_35889:; -if ((-(*_FUNC_READSETTING_ULONG_EQUAL>*_FUNC_READSETTING_ULONG_FOUNDLF))||new_error){ -if(qbevent){evnt(26064,190,"ini.bm");if(r)goto S_35889;} -do{ -goto LABEL_CHECKKEY; -if(!qbevent)break;evnt(26064,190,"ini.bm");}while(r); -} -}else{ -do{ -*_FUNC_READSETTING_ULONG_FOUNDLF=__STRING_INISECTIONDATA->len+ 1 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26064,192,"ini.bm");}while(r); -S_35894:; -if ((-(*_FUNC_READSETTING_ULONG_EQUAL== 0 ))||new_error){ -if(qbevent){evnt(26064,193,"ini.bm");if(r)goto S_35894;} -do{ -goto LABEL_CHECKKEY; -if(!qbevent)break;evnt(26064,193,"ini.bm");}while(r); -} -} -do{ -qbs_set(_FUNC_READSETTING_STRING_TEMPVALUE,qbs_ltrim(qbs_rtrim(func_mid(__STRING_INISECTIONDATA,*_FUNC_READSETTING_ULONG_EQUAL+ 1 ,*_FUNC_READSETTING_ULONG_FOUNDLF-*_FUNC_READSETTING_ULONG_EQUAL- 1 ,0|1)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26064,196,"ini.bm");}while(r); -S_35899:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_READSETTING_STRING_TEMPVALUE->len> 0 )))||new_error){ -if(qbevent){evnt(26064,198,"ini.bm");if(r)goto S_35899;} -S_35900:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_READSETTING_STRING_TEMPVALUE, 1 ),func_chr( 34 ))))||new_error){ -if(qbevent){evnt(26064,199,"ini.bm");if(r)goto S_35900;} -do{ -qbs_set(_FUNC_READSETTING_STRING_TEMPVALUE,func_mid(_FUNC_READSETTING_STRING_TEMPVALUE, 2 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26064,200,"ini.bm");}while(r); -do{ -*_FUNC_READSETTING_ULONG_QUOTE=func_instr(NULL,_FUNC_READSETTING_STRING_TEMPVALUE,func_chr( 34 ),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26064,201,"ini.bm");}while(r); -S_35903:; -if ((-(*_FUNC_READSETTING_ULONG_QUOTE> 0 ))||new_error){ -if(qbevent){evnt(26064,202,"ini.bm");if(r)goto S_35903;} -do{ -qbs_set(_FUNC_READSETTING_STRING_TEMPVALUE,qbs_left(_FUNC_READSETTING_STRING_TEMPVALUE,*_FUNC_READSETTING_ULONG_QUOTE- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26064,203,"ini.bm");}while(r); -} -}else{ -S_35907:; -if ((*__LONG_INIALLOWBASICCOMMENTS)||new_error){ -if(qbevent){evnt(26064,206,"ini.bm");if(r)goto S_35907;} -do{ -*_FUNC_READSETTING_ULONG_COMMENT=func_instr(NULL,_FUNC_READSETTING_STRING_TEMPVALUE,qbs_new_txt_len("'",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26064,206,"ini.bm");}while(r); -} -S_35910:; -if ((-(*_FUNC_READSETTING_ULONG_COMMENT== 0 ))||new_error){ -if(qbevent){evnt(26064,207,"ini.bm");if(r)goto S_35910;} -do{ -*_FUNC_READSETTING_ULONG_COMMENT=func_instr(NULL,_FUNC_READSETTING_STRING_TEMPVALUE,qbs_new_txt_len(";",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26064,207,"ini.bm");}while(r); -} -S_35913:; -if ((-(*_FUNC_READSETTING_ULONG_COMMENT> 0 ))||new_error){ -if(qbevent){evnt(26064,208,"ini.bm");if(r)goto S_35913;} -do{ -qbs_set(_FUNC_READSETTING_STRING_TEMPVALUE,qbs_ltrim(qbs_rtrim(qbs_left(_FUNC_READSETTING_STRING_TEMPVALUE,*_FUNC_READSETTING_ULONG_COMMENT- 1 )))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26064,209,"ini.bm");}while(r); -} -} -}else{ -do{ -*__LONG_INICODE= 2 ; -if(!qbevent)break;evnt(26064,213,"ini.bm");}while(r); -} -}else{ -do{ -*__LONG_INICODE= 3 ; -if(!qbevent)break;evnt(26064,216,"ini.bm");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26064,217,"ini.bm");}while(r); -} -do{ -qbs_set(_FUNC_READSETTING_STRING_READSETTING,_FUNC_READSETTING_STRING_TEMPVALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26064,220,"ini.bm");}while(r); -do{ -qbs_set(__STRING_INILASTSECTION,FUNC_INICURRENTSECTION()); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26064,221,"ini.bm");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free144.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_READSETTING_STRING_READSETTING);return _FUNC_READSETTING_STRING_READSETTING; -} -qbs* FUNC_INICURRENTSECTION(){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data145.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -if(!qbevent)break;evnt(26064,225,"ini.bm");}while(r); -do{ -if(!qbevent)break;evnt(26064,227,"ini.bm");}while(r); -do{ -if(!qbevent)break;evnt(26064,228,"ini.bm");}while(r); -do{ -*_FUNC_INICURRENTSECTION_ULONG_GLOBALPOSITION=func_instr(NULL,__STRING_INIWHOLEFILE,__STRING_INISECTIONDATA,0)+*__ULONG_INIPOSITION- 1 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26064,230,"ini.bm");}while(r); -LABEL_CHECKSECTION:; -if(qbevent){evnt(26064,232,"ini.bm");r=0;} -S_35930:; -fornext_value3928=*_FUNC_INICURRENTSECTION_ULONG_GLOBALPOSITION- 1 ; -fornext_finalvalue3928= 1 ; -fornext_step3928= -1 ; -if (fornext_step3928<0) fornext_step_negative3928=1; else fornext_step_negative3928=0; -if (new_error) goto fornext_error3928; -goto fornext_entrylabel3928; -while(1){ -fornext_value3928=fornext_step3928+(*_FUNC_INICURRENTSECTION_ULONG_I); -fornext_entrylabel3928: -*_FUNC_INICURRENTSECTION_ULONG_I=fornext_value3928; -if (fornext_step_negative3928){ -if (fornext_value3928fornext_finalvalue3928) break; -} -fornext_error3928:; -if(qbevent){evnt(26064,233,"ini.bm");if(r)goto S_35930;} -S_35931:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_INIWHOLEFILE,*_FUNC_INICURRENTSECTION_ULONG_I)==qbs_asc(qbs_new_txt_len("[",1)))))||new_error){ -if(qbevent){evnt(26064,234,"ini.bm");if(r)goto S_35931;} -do{ -*_FUNC_INICURRENTSECTION_ULONG_GLOBALPOSITION=*_FUNC_INICURRENTSECTION_ULONG_I; -if(!qbevent)break;evnt(26064,235,"ini.bm");}while(r); -do{ -goto fornext_exit_3927; -if(!qbevent)break;evnt(26064,235,"ini.bm");}while(r); -} -fornext_continue_3927:; -} -fornext_exit_3927:; -S_35936:; -if ((-(*_FUNC_INICURRENTSECTION_ULONG_I== 0 ))||new_error){ -if(qbevent){evnt(26064,239,"ini.bm");if(r)goto S_35936;} -do{ -qbs_set(_FUNC_INICURRENTSECTION_STRING_INICURRENTSECTION,qbs_new_txt_len("[]",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26064,239,"ini.bm");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26064,239,"ini.bm");}while(r); -} -S_35940:; -fornext_value3930=*_FUNC_INICURRENTSECTION_ULONG_GLOBALPOSITION- 1 ; -fornext_finalvalue3930= 1 ; -fornext_step3930= -1 ; -if (fornext_step3930<0) fornext_step_negative3930=1; else fornext_step_negative3930=0; -if (new_error) goto fornext_error3930; -goto fornext_entrylabel3930; -while(1){ -fornext_value3930=fornext_step3930+(*_FUNC_INICURRENTSECTION_ULONG_I); -fornext_entrylabel3930: -*_FUNC_INICURRENTSECTION_ULONG_I=fornext_value3930; -if (fornext_step_negative3930){ -if (fornext_value3930fornext_finalvalue3930) break; -} -fornext_error3930:; -if(qbevent){evnt(26064,242,"ini.bm");if(r)goto S_35940;} -S_35941:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_INIWHOLEFILE,*_FUNC_INICURRENTSECTION_ULONG_I)== 10 )))||new_error){ -if(qbevent){evnt(26064,243,"ini.bm");if(r)goto S_35941;} -do{ -goto fornext_exit_3929; -if(!qbevent)break;evnt(26064,243,"ini.bm");}while(r); -} -S_35944:; -if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(__STRING_INIWHOLEFILE,*_FUNC_INICURRENTSECTION_ULONG_I)!= 10 ))&(-(qbs_asc(__STRING_INIWHOLEFILE,*_FUNC_INICURRENTSECTION_ULONG_I)!= 32 ))))||new_error){ -if(qbevent){evnt(26064,244,"ini.bm");if(r)goto S_35944;} -do{ -goto LABEL_CHECKSECTION; -if(!qbevent)break;evnt(26064,246,"ini.bm");}while(r); -} -fornext_continue_3929:; -} -fornext_exit_3929:; -do{ -*_FUNC_INICURRENTSECTION_ULONG_CLOSINGBRACKET=func_instr(*_FUNC_INICURRENTSECTION_ULONG_GLOBALPOSITION,__STRING_INIWHOLEFILE,qbs_new_txt_len("]",1),0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26064,250,"ini.bm");}while(r); -S_35949:; -if ((-(*_FUNC_INICURRENTSECTION_ULONG_CLOSINGBRACKET> 0 ))||new_error){ -if(qbevent){evnt(26064,251,"ini.bm");if(r)goto S_35949;} -do{ -qbs_set(_FUNC_INICURRENTSECTION_STRING_INICURRENTSECTION,func_mid(__STRING_INIWHOLEFILE,*_FUNC_INICURRENTSECTION_ULONG_GLOBALPOSITION,*_FUNC_INICURRENTSECTION_ULONG_CLOSINGBRACKET-*_FUNC_INICURRENTSECTION_ULONG_GLOBALPOSITION+ 1 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26064,252,"ini.bm");}while(r); -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free145.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_INICURRENTSECTION_STRING_INICURRENTSECTION);return _FUNC_INICURRENTSECTION_STRING_INICURRENTSECTION; -} -void SUB_WRITESETTING(qbs*_SUB_WRITESETTING_STRING_FILE,qbs*_SUB_WRITESETTING_STRING___SECTION,qbs*_SUB_WRITESETTING_STRING___KEY,qbs*_SUB_WRITESETTING_STRING___VALUE){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data146.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -if(!qbevent)break;evnt(26064,257,"ini.bm");}while(r); -do{ -if(!qbevent)break;evnt(26064,258,"ini.bm");}while(r); -do{ -if(!qbevent)break;evnt(26064,259,"ini.bm");}while(r); -do{ -if(!qbevent)break;evnt(26064,260,"ini.bm");}while(r); -do{ -if(!qbevent)break;evnt(26064,262,"ini.bm");}while(r); -do{ -*__LONG_INICODE= 0 ; -if(!qbevent)break;evnt(26064,264,"ini.bm");}while(r); -do{ -qbs_set(_SUB_WRITESETTING_STRING_SECTION,FUNC_INIFORMATSECTION(_SUB_WRITESETTING_STRING___SECTION)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26064,267,"ini.bm");}while(r); -S_35959:; -if ((*__LONG_INICODE)||new_error){ -if(qbevent){evnt(26064,268,"ini.bm");if(r)goto S_35959;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26064,268,"ini.bm");}while(r); -} -do{ -qbs_set(_SUB_WRITESETTING_STRING_KEY,qbs_ltrim(qbs_rtrim(_SUB_WRITESETTING_STRING___KEY))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26064,270,"ini.bm");}while(r); -S_35963:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_WRITESETTING_STRING_KEY,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26064,271,"ini.bm");if(r)goto S_35963;} -do{ -*__LONG_INICODE= 12 ; -if(!qbevent)break;evnt(26064,271,"ini.bm");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26064,271,"ini.bm");}while(r); -} -do{ -qbs_set(__STRING_INILASTKEY,_SUB_WRITESETTING_STRING_KEY); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26064,272,"ini.bm");}while(r); -do{ -qbs_set(_SUB_WRITESETTING_STRING_VALUE,qbs_ltrim(qbs_rtrim(_SUB_WRITESETTING_STRING___VALUE))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26064,274,"ini.bm");}while(r); -S_35969:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_ltrim(qbs_str((long double)(func_val(_SUB_WRITESETTING_STRING_VALUE)))),_SUB_WRITESETTING_STRING_VALUE)))||new_error){ -if(qbevent){evnt(26064,275,"ini.bm");if(r)goto S_35969;} -S_35970:; -if ((~(*__LONG_INIDISABLEADDQUOTES))||new_error){ -if(qbevent){evnt(26064,276,"ini.bm");if(r)goto S_35970;} -S_35971:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_WRITESETTING_STRING_VALUE,func_chr( 32 ),0)))||new_error){ -if(qbevent){evnt(26064,278,"ini.bm");if(r)goto S_35971;} -do{ -qbs_set(_SUB_WRITESETTING_STRING_VALUE,qbs_add(qbs_add(func_chr( 34 ),_SUB_WRITESETTING_STRING_VALUE),func_chr( 34 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26064,278,"ini.bm");}while(r); -} -} -} -do{ -qbs_set(_SUB_WRITESETTING_STRING_TEMPVALUE,FUNC_READSETTING(_SUB_WRITESETTING_STRING_FILE,_SUB_WRITESETTING_STRING_SECTION,_SUB_WRITESETTING_STRING_KEY)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26064,283,"ini.bm");}while(r); -do{ -*__ULONG_INIPOSITION=func_instr(NULL,__STRING_INIWHOLEFILE,__STRING_INISECTIONDATA,0)+*__ULONG_INIPOSITION- 1 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26064,286,"ini.bm");}while(r); -S_35978:; -if (((-(*__LONG_INICODE== 1 ))|(-(*__LONG_INICODE== 17 )))||new_error){ -if(qbevent){evnt(26064,288,"ini.bm");if(r)goto S_35978;} -S_35979:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_WRITESETTING_STRING_FILE,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26064,290,"ini.bm");if(r)goto S_35979;} -do{ -qbs_set(_SUB_WRITESETTING_STRING_FILE,__STRING_CURRENTINIFILENAME); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26064,290,"ini.bm");}while(r); -} -S_35982:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_WRITESETTING_STRING_FILE,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26064,291,"ini.bm");if(r)goto S_35982;} -do{ -*__LONG_INICODE= 21 ; -if(!qbevent)break;evnt(26064,291,"ini.bm");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26064,291,"ini.bm");}while(r); -} -do{ -qbs_set(__STRING_CURRENTINIFILENAME,_SUB_WRITESETTING_STRING_FILE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26064,293,"ini.bm");}while(r); -S_35987:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_WRITESETTING_STRING_SECTION,qbs_new_txt_len("[]",2))))||new_error){ -if(qbevent){evnt(26064,295,"ini.bm");if(r)goto S_35987;} -do{ -qbs_set(__STRING_ININEWFILE,qbs_add(_SUB_WRITESETTING_STRING_SECTION,__STRING_INILF)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26064,296,"ini.bm");}while(r); -} -do{ -qbs_set(__STRING_ININEWFILE,qbs_add(qbs_add(qbs_add(__STRING_ININEWFILE,_SUB_WRITESETTING_STRING_KEY),qbs_new_txt_len("=",1)),_SUB_WRITESETTING_STRING_VALUE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26064,299,"ini.bm");}while(r); -do{ -*__LONG_INICODE= 0 ; -if(!qbevent)break;evnt(26064,301,"ini.bm");}while(r); -do{ -SUB_INICOMMIT(); -if(!qbevent)break;evnt(26064,302,"ini.bm");}while(r); -do{ -SUB_INILOAD(_SUB_WRITESETTING_STRING_FILE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26064,303,"ini.bm");}while(r); -S_35994:; -if ((-(*__LONG_INICODE== 0 ))||new_error){ -if(qbevent){evnt(26064,304,"ini.bm");if(r)goto S_35994;} -do{ -*__LONG_INICODE= 11 ; -if(!qbevent)break;evnt(26064,304,"ini.bm");}while(r); -} -do{ -qbs_set(__STRING_INILASTSECTION,_SUB_WRITESETTING_STRING_SECTION); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26064,305,"ini.bm");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26064,306,"ini.bm");}while(r); -} -S_36000:; -if (((-(*__LONG_INICODE== 0 ))|(-(*__LONG_INICODE== 2 )))||new_error){ -if(qbevent){evnt(26064,309,"ini.bm");if(r)goto S_36000;} -S_36001:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_lcase(__STRING_INILASTSECTION),qbs_lcase(_SUB_WRITESETTING_STRING_SECTION))))||new_error){ -if(qbevent){evnt(26064,310,"ini.bm");if(r)goto S_36001;} -S_36002:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ltrim(qbs_rtrim(_SUB_WRITESETTING_STRING___VALUE)),_SUB_WRITESETTING_STRING_TEMPVALUE))&(-(((int32)(qbs_ltrim(qbs_rtrim(_SUB_WRITESETTING_STRING___VALUE)))->len)> 0 ))))||new_error){ -if(qbevent){evnt(26064,311,"ini.bm");if(r)goto S_36002;} -do{ -*__LONG_INICODE= 8 ; -if(!qbevent)break;evnt(26064,313,"ini.bm");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26064,314,"ini.bm");}while(r); -} -do{ -if(!qbevent)break;evnt(26064,317,"ini.bm");}while(r); -do{ -*_SUB_WRITESETTING_ULONG_NEXTLINE=func_instr(*__ULONG_INIPOSITION+ 1 ,__STRING_INIWHOLEFILE,__STRING_INILF,0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26064,318,"ini.bm");}while(r); -do{ -qbs_set(__STRING_ININEWFILE,qbs_left(__STRING_INIWHOLEFILE,*__ULONG_INIPOSITION- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26064,321,"ini.bm");}while(r); -do{ -qbs_set(__STRING_ININEWFILE,qbs_add(qbs_add(qbs_add(__STRING_ININEWFILE,_SUB_WRITESETTING_STRING_KEY),qbs_new_txt_len("=",1)),_SUB_WRITESETTING_STRING_VALUE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26064,322,"ini.bm");}while(r); -S_36010:; -if ((-(*_SUB_WRITESETTING_ULONG_NEXTLINE> 0 ))||new_error){ -if(qbevent){evnt(26064,324,"ini.bm");if(r)goto S_36010;} -do{ -qbs_set(__STRING_ININEWFILE,qbs_add(__STRING_ININEWFILE,func_mid(__STRING_INIWHOLEFILE,*_SUB_WRITESETTING_ULONG_NEXTLINE,NULL,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26064,325,"ini.bm");}while(r); -} -do{ -SUB_INICOMMIT(); -if(!qbevent)break;evnt(26064,328,"ini.bm");}while(r); -do{ -*__LONG_INICODE= 4 ; -if(!qbevent)break;evnt(26064,330,"ini.bm");}while(r); -} -S_36016:; -}else{ -if ((-(*__LONG_INICODE== 3 ))|(-(*__LONG_INICODE== 14 ))){ -if(qbevent){evnt(26064,332,"ini.bm");if(r)goto S_36016;} -do{ -*__LONG_INICODE= 0 ; -if(!qbevent)break;evnt(26064,333,"ini.bm");}while(r); -S_36018:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_lcase(__STRING_INILASTSECTION),qbs_lcase(_SUB_WRITESETTING_STRING_SECTION))))||new_error){ -if(qbevent){evnt(26064,334,"ini.bm");if(r)goto S_36018;} -do{ -if(!qbevent)break;evnt(26064,336,"ini.bm");}while(r); -do{ -if(!qbevent)break;evnt(26064,337,"ini.bm");}while(r); -do{ -if(!qbevent)break;evnt(26064,338,"ini.bm");}while(r); -do{ -*_SUB_WRITESETTING_ULONG_BEGINSECTION= 0 ; -if(!qbevent)break;evnt(26064,340,"ini.bm");}while(r); -do{ -*_SUB_WRITESETTING_ULONG_ENDSECTION= 0 ; -if(!qbevent)break;evnt(26064,341,"ini.bm");}while(r); -LABEL_CHECKSECTION:; -if(qbevent){evnt(26064,343,"ini.bm");r=0;} -do{ -*_SUB_WRITESETTING_ULONG_BEGINSECTION=func_instr(*_SUB_WRITESETTING_ULONG_BEGINSECTION+ 1 ,qbs_lcase(__STRING_INIWHOLEFILE),qbs_lcase(_SUB_WRITESETTING_STRING_SECTION),0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26064,344,"ini.bm");}while(r); -S_36025:; -if ((-(*_SUB_WRITESETTING_ULONG_BEGINSECTION== 0 ))||new_error){ -if(qbevent){evnt(26064,345,"ini.bm");if(r)goto S_36025;} -do{ -goto LABEL_CREATESECTION; -if(!qbevent)break;evnt(26064,345,"ini.bm");}while(r); -} -S_36028:; -fornext_value3936=*_SUB_WRITESETTING_ULONG_BEGINSECTION- 1 ; -fornext_finalvalue3936= 1 ; -fornext_step3936= -1 ; -if (fornext_step3936<0) fornext_step_negative3936=1; else fornext_step_negative3936=0; -if (new_error) goto fornext_error3936; -goto fornext_entrylabel3936; -while(1){ -fornext_value3936=fornext_step3936+(*_SUB_WRITESETTING_ULONG_I); -fornext_entrylabel3936: -*_SUB_WRITESETTING_ULONG_I=fornext_value3936; -if (fornext_step_negative3936){ -if (fornext_value3936fornext_finalvalue3936) break; -} -fornext_error3936:; -if(qbevent){evnt(26064,348,"ini.bm");if(r)goto S_36028;} -S_36029:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_INIWHOLEFILE,*_SUB_WRITESETTING_ULONG_I)== 10 )))||new_error){ -if(qbevent){evnt(26064,349,"ini.bm");if(r)goto S_36029;} -do{ -goto fornext_exit_3935; -if(!qbevent)break;evnt(26064,349,"ini.bm");}while(r); -} -S_36032:; -if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(__STRING_INIWHOLEFILE,*_SUB_WRITESETTING_ULONG_I)!= 10 ))&(-(qbs_asc(__STRING_INIWHOLEFILE,*_SUB_WRITESETTING_ULONG_I)!= 32 ))))||new_error){ -if(qbevent){evnt(26064,350,"ini.bm");if(r)goto S_36032;} -do{ -goto LABEL_CHECKSECTION; -if(!qbevent)break;evnt(26064,352,"ini.bm");}while(r); -} -fornext_continue_3935:; -} -fornext_exit_3935:; -do{ -*_SUB_WRITESETTING_ULONG_BRACKET1=func_instr(*_SUB_WRITESETTING_ULONG_BEGINSECTION+ 1 ,__STRING_INIWHOLEFILE,qbs_new_txt_len("[",1),0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26064,358,"ini.bm");}while(r); -S_36037:; -if ((-(*_SUB_WRITESETTING_ULONG_BRACKET1> 0 ))||new_error){ -if(qbevent){evnt(26064,359,"ini.bm");if(r)goto S_36037;} -S_36038:; -fornext_value3938=*_SUB_WRITESETTING_ULONG_BRACKET1- 1 ; -fornext_finalvalue3938= 1 ; -fornext_step3938= -1 ; -if (fornext_step3938<0) fornext_step_negative3938=1; else fornext_step_negative3938=0; -if (new_error) goto fornext_error3938; -goto fornext_entrylabel3938; -while(1){ -fornext_value3938=fornext_step3938+(*_SUB_WRITESETTING_ULONG_I); -fornext_entrylabel3938: -*_SUB_WRITESETTING_ULONG_I=fornext_value3938; -if (fornext_step_negative3938){ -if (fornext_value3938fornext_finalvalue3938) break; -} -fornext_error3938:; -if(qbevent){evnt(26064,360,"ini.bm");if(r)goto S_36038;} -S_36039:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_INIWHOLEFILE,*_SUB_WRITESETTING_ULONG_I)== 10 )))||new_error){ -if(qbevent){evnt(26064,361,"ini.bm");if(r)goto S_36039;} -do{ -*_SUB_WRITESETTING_ULONG_ENDSECTION=*_SUB_WRITESETTING_ULONG_I+ 1 -__STRING_INILF->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26064,361,"ini.bm");}while(r); -do{ -goto fornext_exit_3937; -if(!qbevent)break;evnt(26064,361,"ini.bm");}while(r); -} -S_36043:; -if ((-(*_SUB_WRITESETTING_ULONG_I<=*_SUB_WRITESETTING_ULONG_BEGINSECTION))||new_error){ -if(qbevent){evnt(26064,362,"ini.bm");if(r)goto S_36043;} -do{ -goto fornext_exit_3937; -if(!qbevent)break;evnt(26064,362,"ini.bm");}while(r); -} -fornext_continue_3937:; -} -fornext_exit_3937:; -} -S_36048:; -if ((-(*_SUB_WRITESETTING_ULONG_ENDSECTION> 0 ))||new_error){ -if(qbevent){evnt(26064,366,"ini.bm");if(r)goto S_36048;} -do{ -qbs_set(__STRING_ININEWFILE,qbs_left(__STRING_INIWHOLEFILE,*_SUB_WRITESETTING_ULONG_ENDSECTION- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26064,368,"ini.bm");}while(r); -do{ -qbs_set(__STRING_ININEWFILE,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_ININEWFILE,_SUB_WRITESETTING_STRING_KEY),qbs_new_txt_len("=",1)),_SUB_WRITESETTING_STRING_VALUE),__STRING_INILF)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26064,369,"ini.bm");}while(r); -S_36051:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(func_mid(__STRING_INIWHOLEFILE,*_SUB_WRITESETTING_ULONG_ENDSECTION,__STRING_INILF->len,0|1),__STRING_INILF)))||new_error){ -if(qbevent){evnt(26064,370,"ini.bm");if(r)goto S_36051;} -do{ -qbs_set(__STRING_ININEWFILE,qbs_add(__STRING_ININEWFILE,__STRING_INILF)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26064,370,"ini.bm");}while(r); -} -do{ -qbs_set(__STRING_ININEWFILE,qbs_add(__STRING_ININEWFILE,func_mid(__STRING_INIWHOLEFILE,*_SUB_WRITESETTING_ULONG_ENDSECTION,NULL,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26064,371,"ini.bm");}while(r); -}else{ -do{ -qbs_set(__STRING_ININEWFILE,__STRING_INIWHOLEFILE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26064,374,"ini.bm");}while(r); -S_36057:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(__STRING_ININEWFILE,__STRING_INILF->len),__STRING_INILF)))||new_error){ -if(qbevent){evnt(26064,375,"ini.bm");if(r)goto S_36057;} -do{ -qbs_set(__STRING_ININEWFILE,qbs_add(qbs_add(qbs_add(__STRING_ININEWFILE,_SUB_WRITESETTING_STRING_KEY),qbs_new_txt_len("=",1)),_SUB_WRITESETTING_STRING_VALUE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26064,376,"ini.bm");}while(r); -}else{ -do{ -qbs_set(__STRING_ININEWFILE,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_ININEWFILE,__STRING_INILF),_SUB_WRITESETTING_STRING_KEY),qbs_new_txt_len("=",1)),_SUB_WRITESETTING_STRING_VALUE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26064,378,"ini.bm");}while(r); -} -} -do{ -SUB_INICOMMIT(); -if(!qbevent)break;evnt(26064,382,"ini.bm");}while(r); -S_36064:; -if ((-(*__LONG_INICODE== 0 ))||new_error){ -if(qbevent){evnt(26064,384,"ini.bm");if(r)goto S_36064;} -do{ -*__LONG_INICODE= 7 ; -if(!qbevent)break;evnt(26064,384,"ini.bm");}while(r); -} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26064,385,"ini.bm");}while(r); -}else{ -LABEL_CREATESECTION:; -if(qbevent){evnt(26064,387,"ini.bm");r=0;} -do{ -qbs_set(__STRING_ININEWFILE,__STRING_INIWHOLEFILE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26064,388,"ini.bm");}while(r); -S_36070:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_WRITESETTING_STRING_SECTION,qbs_new_txt_len("[]",2))))||new_error){ -if(qbevent){evnt(26064,389,"ini.bm");if(r)goto S_36070;} -do{ -goto LABEL_WRITEATTOP; -if(!qbevent)break;evnt(26064,389,"ini.bm");}while(r); -} -S_36073:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal((qbs_right(__STRING_ININEWFILE,__STRING_INILF->len* 2 )),(qbs_add(__STRING_INILF,__STRING_INILF)))))||new_error){ -if(qbevent){evnt(26064,391,"ini.bm");if(r)goto S_36073;} -do{ -qbs_set(__STRING_ININEWFILE,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_ININEWFILE,_SUB_WRITESETTING_STRING_SECTION),__STRING_INILF),_SUB_WRITESETTING_STRING_KEY),qbs_new_txt_len("=",1)),_SUB_WRITESETTING_STRING_VALUE),__STRING_INILF)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26064,392,"ini.bm");}while(r); -S_36075:; -}else{ -if (qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(__STRING_ININEWFILE,__STRING_INILF->len),__STRING_INILF))){ -if(qbevent){evnt(26064,393,"ini.bm");if(r)goto S_36075;} -do{ -qbs_set(__STRING_ININEWFILE,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_ININEWFILE,__STRING_INILF),_SUB_WRITESETTING_STRING_SECTION),__STRING_INILF),_SUB_WRITESETTING_STRING_KEY),qbs_new_txt_len("=",1)),_SUB_WRITESETTING_STRING_VALUE),__STRING_INILF)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26064,394,"ini.bm");}while(r); -}else{ -do{ -qbs_set(__STRING_ININEWFILE,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_ININEWFILE,__STRING_INILF),__STRING_INILF),_SUB_WRITESETTING_STRING_SECTION),__STRING_INILF),_SUB_WRITESETTING_STRING_KEY),qbs_new_txt_len("=",1)),_SUB_WRITESETTING_STRING_VALUE),__STRING_INILF)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26064,396,"ini.bm");}while(r); -} -} -do{ -SUB_INICOMMIT(); -if(!qbevent)break;evnt(26064,399,"ini.bm");}while(r); -S_36081:; -if ((-(*__LONG_INICODE== 0 ))||new_error){ -if(qbevent){evnt(26064,401,"ini.bm");if(r)goto S_36081;} -do{ -*__LONG_INICODE= 9 ; -if(!qbevent)break;evnt(26064,401,"ini.bm");}while(r); -}else{ -do{ -*__LONG_INICODE= 16 ; -if(!qbevent)break;evnt(26064,401,"ini.bm");}while(r); -} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26064,402,"ini.bm");}while(r); -} -LABEL_WRITEATTOP:; -if(qbevent){evnt(26064,406,"ini.bm");r=0;} -do{ -qbs_set(__STRING_ININEWFILE,qbs_add(qbs_add(qbs_add(_SUB_WRITESETTING_STRING_KEY,qbs_new_txt_len("=",1)),_SUB_WRITESETTING_STRING_VALUE),__STRING_INILF)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26064,407,"ini.bm");}while(r); -S_36089:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(qbs_ltrim(__STRING_INIWHOLEFILE), 1 ),qbs_new_txt_len("[",1))))||new_error){ -if(qbevent){evnt(26064,408,"ini.bm");if(r)goto S_36089;} -do{ -qbs_set(__STRING_ININEWFILE,qbs_add(__STRING_ININEWFILE,__STRING_INILF)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26064,408,"ini.bm");}while(r); -} -do{ -qbs_set(__STRING_ININEWFILE,qbs_add(__STRING_ININEWFILE,__STRING_INIWHOLEFILE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26064,409,"ini.bm");}while(r); -do{ -SUB_INICOMMIT(); -if(!qbevent)break;evnt(26064,411,"ini.bm");}while(r); -do{ -*__LONG_INICODE= 5 ; -if(!qbevent)break;evnt(26064,413,"ini.bm");}while(r); -} -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free146.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -void SUB_INISETADDQUOTES(int8*_SUB_INISETADDQUOTES_BYTE_STATE){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data147.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -if(!qbevent)break;evnt(26064,418,"ini.bm");}while(r); -S_36097:; -if ((*_SUB_INISETADDQUOTES_BYTE_STATE)||new_error){ -if(qbevent){evnt(26064,419,"ini.bm");if(r)goto S_36097;} -do{ -*__LONG_INIDISABLEADDQUOTES= 0 ; -if(!qbevent)break;evnt(26064,420,"ini.bm");}while(r); -}else{ -do{ -*__LONG_INIDISABLEADDQUOTES= -1 ; -if(!qbevent)break;evnt(26064,422,"ini.bm");}while(r); -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free147.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -void SUB_INISETFORCERELOAD(int8*_SUB_INISETFORCERELOAD_BYTE_STATE){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data148.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -if(!qbevent)break;evnt(26064,427,"ini.bm");}while(r); -S_36103:; -if ((*_SUB_INISETFORCERELOAD_BYTE_STATE)||new_error){ -if(qbevent){evnt(26064,428,"ini.bm");if(r)goto S_36103;} -do{ -*__LONG_INIFORCERELOAD= -1 ; -if(!qbevent)break;evnt(26064,429,"ini.bm");}while(r); -}else{ -do{ -*__LONG_INIFORCERELOAD= 0 ; -if(!qbevent)break;evnt(26064,431,"ini.bm");}while(r); -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free148.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -void SUB_INISETALLOWBASICCOMMENTS(int8*_SUB_INISETALLOWBASICCOMMENTS_BYTE_STATE){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data149.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -if(!qbevent)break;evnt(26064,436,"ini.bm");}while(r); -S_36109:; -if ((*_SUB_INISETALLOWBASICCOMMENTS_BYTE_STATE)||new_error){ -if(qbevent){evnt(26064,437,"ini.bm");if(r)goto S_36109;} -do{ -*__LONG_INIALLOWBASICCOMMENTS= -1 ; -if(!qbevent)break;evnt(26064,438,"ini.bm");}while(r); -}else{ -do{ -*__LONG_INIALLOWBASICCOMMENTS= 0 ; -if(!qbevent)break;evnt(26064,440,"ini.bm");}while(r); -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free149.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -void SUB_INISETAUTOCOMMIT(int8*_SUB_INISETAUTOCOMMIT_BYTE_STATE){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data150.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -if(!qbevent)break;evnt(26064,445,"ini.bm");}while(r); -S_36115:; -if ((*_SUB_INISETAUTOCOMMIT_BYTE_STATE)||new_error){ -if(qbevent){evnt(26064,446,"ini.bm");if(r)goto S_36115;} -do{ -*__LONG_INIDISABLEAUTOCOMMIT= 0 ; -if(!qbevent)break;evnt(26064,447,"ini.bm");}while(r); -}else{ -do{ -*__LONG_INIDISABLEAUTOCOMMIT= -1 ; -if(!qbevent)break;evnt(26064,449,"ini.bm");}while(r); -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free150.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -void SUB_INILOAD(qbs*_SUB_INILOAD_STRING_FILE){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data151.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -if(!qbevent)break;evnt(26064,454,"ini.bm");}while(r); -do{ -if(!qbevent)break;evnt(26064,455,"ini.bm");}while(r); -do{ -if(!qbevent)break;evnt(26064,456,"ini.bm");}while(r); -do{ -if(!qbevent)break;evnt(26064,457,"ini.bm");}while(r); -do{ -*__LONG_INICODE= 0 ; -if(!qbevent)break;evnt(26064,460,"ini.bm");}while(r); -S_36125:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(_SUB_INILOAD_STRING_FILE,qbs_new_txt_len("",0)))&(qbs_notequal(__STRING_CURRENTINIFILENAME,_SUB_INILOAD_STRING_FILE))))||new_error){ -if(qbevent){evnt(26064,462,"ini.bm");if(r)goto S_36125;} -do{ -qbs_set(__STRING_CURRENTINIFILENAME,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26064,462,"ini.bm");}while(r); -} -S_36128:; -if ((qbs_cleanup(qbs_tmp_base,*__LONG_INIFORCERELOAD&(-(__STRING_CURRENTINIFILENAME->len> 0 ))))||new_error){ -if(qbevent){evnt(26064,464,"ini.bm");if(r)goto S_36128;} -do{ -qbs_set(_SUB_INILOAD_STRING_FILE,__STRING_CURRENTINIFILENAME); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26064,465,"ini.bm");}while(r); -do{ -qbs_set(__STRING_CURRENTINIFILENAME,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26064,466,"ini.bm");}while(r); -} -S_36132:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_CURRENTINIFILENAME,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26064,471,"ini.bm");if(r)goto S_36132;} -S_36133:; -if ((qbs_cleanup(qbs_tmp_base,func__fileexists(_SUB_INILOAD_STRING_FILE)))||new_error){ -if(qbevent){evnt(26064,473,"ini.bm");if(r)goto S_36133;} -do{ -qbs_set(__STRING_CURRENTINIFILENAME,_SUB_INILOAD_STRING_FILE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26064,474,"ini.bm");}while(r); -do{ -*_SUB_INILOAD_INTEGER_FILENUM=func_freefile(); -if(!qbevent)break;evnt(26064,477,"ini.bm");}while(r); -do{ -sub_open(__STRING_CURRENTINIFILENAME, 2 ,NULL,NULL,*_SUB_INILOAD_INTEGER_FILENUM,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26064,478,"ini.bm");}while(r); -do{ -*__ULONG_CURRENTINIFILELOF=func_lof(*_SUB_INILOAD_INTEGER_FILENUM); -if(!qbevent)break;evnt(26064,479,"ini.bm");}while(r); -do{ -qbs_set(__STRING_INIWHOLEFILE,func_space(*__ULONG_CURRENTINIFILELOF)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26064,480,"ini.bm");}while(r); -do{ -sub_get2(*_SUB_INILOAD_INTEGER_FILENUM, 1 ,__STRING_INIWHOLEFILE,1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26064,481,"ini.bm");}while(r); -do{ -sub_close(*_SUB_INILOAD_INTEGER_FILENUM,1); -if(!qbevent)break;evnt(26064,482,"ini.bm");}while(r); -S_36141:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_INIWHOLEFILE,func_chr( 13 ),0)))||new_error){ -if(qbevent){evnt(26064,485,"ini.bm");if(r)goto S_36141;} -do{ -qbs_set(__STRING_INILF,qbs_add(func_chr( 13 ),func_chr( 10 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26064,485,"ini.bm");}while(r); -}else{ -do{ -qbs_set(__STRING_INILF,func_chr( 10 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26064,485,"ini.bm");}while(r); -} -}else{ -LABEL_INIFILENOTFOUND:; -if(qbevent){evnt(26064,487,"ini.bm");r=0;} -do{ -*__LONG_INICODE= 1 ; -if(!qbevent)break;evnt(26064,488,"ini.bm");}while(r); -do{ -qbs_set(__STRING_INILF,func_chr( 10 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26064,493,"ini.bm");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26064,495,"ini.bm");}while(r); -} -S_36151:; -}else{ -if (qbs_cleanup(qbs_tmp_base,~(func__fileexists(__STRING_CURRENTINIFILENAME)))){ -if(qbevent){evnt(26064,497,"ini.bm");if(r)goto S_36151;} -do{ -qbs_set(__STRING_CURRENTINIFILENAME,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26064,498,"ini.bm");}while(r); -do{ -goto LABEL_INIFILENOTFOUND; -if(!qbevent)break;evnt(26064,499,"ini.bm");}while(r); -} -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free151.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -int16 FUNC_CREATEBUF(){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data152.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -if(!qbevent)break;evnt(26065,14,"simplebuffer.bm");}while(r); -do{ -*_FUNC_CREATEBUF_LONG_AUB=func_ubound(__ARRAY_STRING_SIMPLEBUFFER_ARRAY,1,1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26065,16,"simplebuffer.bm");}while(r); -do{ -*_FUNC_CREATEBUF_LONG_BUF= 0 ; -if(!qbevent)break;evnt(26065,17,"simplebuffer.bm");}while(r); -do{ -*_FUNC_CREATEBUF_INTEGER_CREATEBUF= -1 ; -if(!qbevent)break;evnt(26065,17,"simplebuffer.bm");}while(r); -S_36159:; -while((-(*_FUNC_CREATEBUF_LONG_BUF<*_FUNC_CREATEBUF_LONG_AUB))||new_error){ -if(qbevent){evnt(26065,18,"simplebuffer.bm");if(r)goto S_36159;} -S_36160:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[array_check((*_FUNC_CREATEBUF_LONG_BUF+ 1 )-__ARRAY_STRING_SIMPLEBUFFER_ARRAY[4],__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5])])),qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26065,19,"simplebuffer.bm");if(r)goto S_36160;} -do{ -goto ww_exit_3946; -if(!qbevent)break;evnt(26065,19,"simplebuffer.bm");}while(r); -} -do{ -*_FUNC_CREATEBUF_LONG_BUF=*_FUNC_CREATEBUF_LONG_BUF+ 106 ; -if(!qbevent)break;evnt(26065,20,"simplebuffer.bm");}while(r); -S_36164:; -if ((-(*_FUNC_CREATEBUF_LONG_BUF>= 3473090 ))||new_error){ -if(qbevent){evnt(26065,21,"simplebuffer.bm");if(r)goto S_36164;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26065,21,"simplebuffer.bm");}while(r); -} -ww_continue_3946:; -} -ww_exit_3946:; -S_36168:; -if ((-(*_FUNC_CREATEBUF_LONG_AUB<(*_FUNC_CREATEBUF_LONG_BUF+ 105 )))||new_error){ -if(qbevent){evnt(26065,24,"simplebuffer.bm");if(r)goto S_36168;} -do{ +} +if(!qbevent)break;evnt(26063,350,"opengl_methods.bas");}while(r); +} +do{ +*_SUB_GL_INCLUDE_CONTENT_LONG_I=*__LONG_CONSTLAST; +if(!qbevent)break;evnt(26063,352,"opengl_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_GL_INCLUDE_CONTENT_LONG_I)-__ARRAY_STRING_CONSTNAME[4],__ARRAY_STRING_CONSTNAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_CONSTNAME[0]))[tmp_long])),qbs_add(__STRING_QB64PREFIX,((qbs*)(((uint64*)(__ARRAY_STRING_GL_DEFINES[0]))[array_check((*_SUB_GL_INCLUDE_CONTENT_LONG_D)-__ARRAY_STRING_GL_DEFINES[4],__ARRAY_STRING_GL_DEFINES[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,353,"opengl_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_GL_INCLUDE_CONTENT_LONG_I)-__ARRAY_STRING_CONSTCNAME[4],__ARRAY_STRING_CONSTCNAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_CONSTCNAME[0]))[tmp_long])),qbs_add(__STRING_QB64PREFIX,((qbs*)(((uint64*)(__ARRAY_STRING_GL_DEFINES[0]))[array_check((*_SUB_GL_INCLUDE_CONTENT_LONG_D)-__ARRAY_STRING_GL_DEFINES[4],__ARRAY_STRING_GL_DEFINES[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,354,"opengl_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_GL_INCLUDE_CONTENT_LONG_I)-__ARRAY_STRING_CONSTNAMESYMBOL[4],__ARRAY_STRING_CONSTNAMESYMBOL[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_CONSTNAMESYMBOL[0]))[tmp_long])),qbs_new_txt_len("&&",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,355,"opengl_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_GL_INCLUDE_CONTENT_LONG_I)-__ARRAY_LONG_CONSTTYPE[4],__ARRAY_LONG_CONSTTYPE[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_CONSTTYPE[0]))[tmp_long]=*__LONG_INTEGER64TYPE-*__LONG_ISPOINTER; +if(!qbevent)break;evnt(26063,356,"opengl_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_GL_INCLUDE_CONTENT_LONG_I)-__ARRAY_INTEGER64_CONSTINTEGER[4],__ARRAY_INTEGER64_CONSTINTEGER[5]); +if (!new_error) ((int64*)(__ARRAY_INTEGER64_CONSTINTEGER[0]))[tmp_long]=((int64*)(__ARRAY_INTEGER64_GL_DEFINES_VALUE[0]))[array_check((*_SUB_GL_INCLUDE_CONTENT_LONG_D)-__ARRAY_INTEGER64_GL_DEFINES_VALUE[4],__ARRAY_INTEGER64_GL_DEFINES_VALUE[5])]; +if(!qbevent)break;evnt(26063,357,"opengl_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_GL_INCLUDE_CONTENT_LONG_I)-__ARRAY_LONG_CONSTSUBFUNC[4],__ARRAY_LONG_CONSTSUBFUNC[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_CONSTSUBFUNC[0]))[tmp_long]= 0 ; +if(!qbevent)break;evnt(26063,358,"opengl_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_GL_INCLUDE_CONTENT_LONG_I)-__ARRAY_LONG_CONSTDEFINED[4],__ARRAY_LONG_CONSTDEFINED[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_CONSTDEFINED[0]))[tmp_long]= 1 ; +if(!qbevent)break;evnt(26063,359,"opengl_methods.bas");}while(r); +do{ +SUB_HASHADD(((qbs*)(((uint64*)(__ARRAY_STRING_CONSTCNAME[0]))[array_check((*_SUB_GL_INCLUDE_CONTENT_LONG_I)-__ARRAY_STRING_CONSTCNAME[4],__ARRAY_STRING_CONSTCNAME[5])])),&(pass3895= 1024 ),_SUB_GL_INCLUDE_CONTENT_LONG_I); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,361,"opengl_methods.bas");}while(r); +fornext_continue_3893:; +} +fornext_exit_3893:; +S_35671:; +fornext_value3897= 1 ; +fornext_finalvalue3897=*__LONG_GL_COMMANDS_LAST; +fornext_step3897= 1 ; +if (fornext_step3897<0) fornext_step_negative3897=1; else fornext_step_negative3897=0; +if (new_error) goto fornext_error3897; +goto fornext_entrylabel3897; +while(1){ +fornext_value3897=fornext_step3897+(*_SUB_GL_INCLUDE_CONTENT_LONG_C); +fornext_entrylabel3897: +*_SUB_GL_INCLUDE_CONTENT_LONG_C=fornext_value3897; +if (fornext_step_negative3897){ +if (fornext_value3897fornext_finalvalue3897) break; +} +fornext_error3897:; +if(qbevent){evnt(26063,366,"opengl_methods.bas");if(r)goto S_35671;} +do{ +if(!qbevent)break;evnt(26063,367,"opengl_methods.bas");}while(r); +do{ +memcpy(((char*)_SUB_GL_INCLUDE_CONTENT_UDT_G)+(0)+ 0,((char*)__ARRAY_UDT_GL_COMMANDS[0])+((array_check((*_SUB_GL_INCLUDE_CONTENT_LONG_C)-__ARRAY_UDT_GL_COMMANDS[4],__ARRAY_UDT_GL_COMMANDS[5]))*216)+ 0, 216); +if(!qbevent)break;evnt(26063,376,"opengl_methods.bas");}while(r); +do{ +*__LONG_REGINTERNALSUBFUNC= 1 ; +if(!qbevent)break;evnt(26063,378,"opengl_methods.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(26063,379,"opengl_methods.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(806))= 1 ; +if(!qbevent)break;evnt(26063,380,"opengl_methods.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_rtrim(qbs_new_fixed((((uint8*)_SUB_GL_INCLUDE_CONTENT_UDT_G)+(0)),64,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,381,"opengl_methods.bas");}while(r); +S_35678:; +if ((-(*__LONG_QB64PREFIX_SET== 1 ))||new_error){ +if(qbevent){evnt(26063,382,"opengl_methods.bas");if(r)goto S_35678;} +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),func_mid(qbs_rtrim(qbs_new_fixed((((uint8*)_SUB_GL_INCLUDE_CONTENT_UDT_G)+(0)),64,1)), 2 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,382,"opengl_methods.bas");}while(r); +} +do{ +*_SUB_GL_INCLUDE_CONTENT_LONG_S=*(int16*)(((char*)_SUB_GL_INCLUDE_CONTENT_UDT_G)+(64)); +if(!qbevent)break;evnt(26063,383,"opengl_methods.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))=*_SUB_GL_INCLUDE_CONTENT_LONG_S; +if(!qbevent)break;evnt(26063,384,"opengl_methods.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_rtrim(qbs_new_fixed((((uint8*)_SUB_GL_INCLUDE_CONTENT_UDT_G)+(66)),64,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,385,"opengl_methods.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))=*(int16*)(((char*)_SUB_GL_INCLUDE_CONTENT_UDT_G)+(130)); +if(!qbevent)break;evnt(26063,386,"opengl_methods.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_new_fixed((((uint8*)_SUB_GL_INCLUDE_CONTENT_UDT_G)+(132)),80,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,387,"opengl_methods.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(2381))=*(int32*)(((char*)_SUB_GL_INCLUDE_CONTENT_UDT_G)+(212)); +if(!qbevent)break;evnt(26063,388,"opengl_methods.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(26063,389,"opengl_methods.bas");}while(r); +do{ +*__LONG_REGINTERNALSUBFUNC= 0 ; +if(!qbevent)break;evnt(26063,390,"opengl_methods.bas");}while(r); +fornext_continue_3896:; +} +fornext_exit_3896:; +do{ +*__LONG_REGINTERNALSUBFUNC= 1 ; +if(!qbevent)break;evnt(26063,396,"opengl_methods.bas");}while(r); +do{ +SUB_CLEARID(); +if(!qbevent)break;evnt(26063,397,"opengl_methods.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(0)),256,1),qbs_add(__STRING_QB64PREFIX,qbs_new_txt_len("gluPerspective",14))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,398,"opengl_methods.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(544))= 2 ; +if(!qbevent)break;evnt(26063,399,"opengl_methods.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(550)),256,1),qbs_new_txt_len("gluPerspective",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,400,"opengl_methods.bas");}while(r); +do{ +*(int16*)(((char*)__UDT_ID)+(809))= 4 ; +if(!qbevent)break;evnt(26063,401,"opengl_methods.bas");}while(r); +do{ +qbs_set(qbs_new_fixed((((uint8*)__UDT_ID)+(813)),400,1),qbs_add(qbs_add(qbs_add(l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER),l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER)),l2string(*__LONG_DOUBLETYPE-*__LONG_ISPOINTER))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26063,402,"opengl_methods.bas");}while(r); +do{ +SUB_REGID(); +if(!qbevent)break;evnt(26063,403,"opengl_methods.bas");}while(r); +do{ +*__LONG_REGINTERNALSUBFUNC= 0 ; +if(!qbevent)break;evnt(26063,404,"opengl_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free140.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +void SUB_INICOMMIT(){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data141.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +if(!qbevent)break;evnt(26064,5,"ini.bm");}while(r); +do{ +if(!qbevent)break;evnt(26064,6,"ini.bm");}while(r); +S_35701:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_CURRENTINIFILENAME,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26064,8,"ini.bm");if(r)goto S_35701;} +do{ +*__LONG_INICODE= 18 ; +if(!qbevent)break;evnt(26064,8,"ini.bm");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26064,8,"ini.bm");}while(r); +} +do{ +qbs_set(__STRING_INIWHOLEFILE,__STRING_ININEWFILE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26064,10,"ini.bm");}while(r); +do{ +*__ULONG_CURRENTINIFILELOF=__STRING_ININEWFILE->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26064,11,"ini.bm");}while(r); +S_35707:; +if ((~(*__LONG_INIDISABLEAUTOCOMMIT))||new_error){ +if(qbevent){evnt(26064,13,"ini.bm");if(r)goto S_35707;} +do{ +if(!qbevent)break;evnt(26064,14,"ini.bm");}while(r); +do{ +*_SUB_INICOMMIT_INTEGER_FILENUM=func_freefile(); +if(!qbevent)break;evnt(26064,16,"ini.bm");}while(r); +do{ +sub_open(__STRING_CURRENTINIFILENAME, 2 ,NULL,NULL,*_SUB_INICOMMIT_INTEGER_FILENUM,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26064,17,"ini.bm");}while(r); +S_35711:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_INIWHOLEFILE->lenchr,__STRING_ININEWFILE->len,byte_element_3900),1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26064,25,"ini.bm");}while(r); +do{ +sub_close(*_SUB_INICOMMIT_INTEGER_FILENUM,1); +if(!qbevent)break;evnt(26064,26,"ini.bm");}while(r); +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free141.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +qbs* FUNC_INIGETSECTION(qbs*_FUNC_INIGETSECTION_STRING___SECTION){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data142.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +if(!qbevent)break;evnt(26064,31,"ini.bm");}while(r); +do{ +if(!qbevent)break;evnt(26064,32,"ini.bm");}while(r); +S_35722:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_CURRENTINIFILENAME,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26064,34,"ini.bm");if(r)goto S_35722;} +do{ +*__LONG_INICODE= 18 ; +if(!qbevent)break;evnt(26064,34,"ini.bm");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26064,34,"ini.bm");}while(r); +} +S_35726:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__ULONG_CURRENTINIFILELOF== 0 ))|(-(((int32)(qbs_ltrim(qbs_rtrim(__STRING_INIWHOLEFILE)))->len)== 0 ))))||new_error){ +if(qbevent){evnt(26064,35,"ini.bm");if(r)goto S_35726;} +do{ +*__LONG_INICODE= 17 ; +if(!qbevent)break;evnt(26064,35,"ini.bm");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26064,35,"ini.bm");}while(r); +} +do{ +*__LONG_INICODE= 0 ; +if(!qbevent)break;evnt(26064,37,"ini.bm");}while(r); +do{ +if(!qbevent)break;evnt(26064,39,"ini.bm");}while(r); +do{ +if(!qbevent)break;evnt(26064,40,"ini.bm");}while(r); +do{ +if(!qbevent)break;evnt(26064,41,"ini.bm");}while(r); +do{ +qbs_set(_FUNC_INIGETSECTION_STRING_SECTION,FUNC_INIFORMATSECTION(_FUNC_INIGETSECTION_STRING___SECTION)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26064,43,"ini.bm");}while(r); +S_35735:; +if ((*__LONG_INICODE)||new_error){ +if(qbevent){evnt(26064,44,"ini.bm");if(r)goto S_35735;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26064,44,"ini.bm");}while(r); +} +S_35738:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_INIGETSECTION_STRING_SECTION,qbs_new_txt_len("[]",2))))||new_error){ +if(qbevent){evnt(26064,46,"ini.bm");if(r)goto S_35738;} +do{ +*_FUNC_INIGETSECTION_ULONG_SECTIONSTART=func_instr(NULL,__STRING_INIWHOLEFILE,qbs_new_txt_len("[",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26064,48,"ini.bm");}while(r); +S_35740:; +if ((-(*_FUNC_INIGETSECTION_ULONG_SECTIONSTART== 0 ))||new_error){ +if(qbevent){evnt(26064,49,"ini.bm");if(r)goto S_35740;} +do{ +qbs_set(_FUNC_INIGETSECTION_STRING_INIGETSECTION,__STRING_INIWHOLEFILE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26064,49,"ini.bm");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26064,49,"ini.bm");}while(r); +} +S_35744:; +fornext_value3903=*_FUNC_INIGETSECTION_ULONG_SECTIONSTART- 1 ; +fornext_finalvalue3903= 1 ; +fornext_step3903= -1 ; +if (fornext_step3903<0) fornext_step_negative3903=1; else fornext_step_negative3903=0; +if (new_error) goto fornext_error3903; +goto fornext_entrylabel3903; +while(1){ +fornext_value3903=fornext_step3903+(*_FUNC_INIGETSECTION_ULONG_I); +fornext_entrylabel3903: +*_FUNC_INIGETSECTION_ULONG_I=fornext_value3903; +if (fornext_step_negative3903){ +if (fornext_value3903fornext_finalvalue3903) break; +} +fornext_error3903:; +if(qbevent){evnt(26064,51,"ini.bm");if(r)goto S_35744;} +S_35745:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_INIWHOLEFILE,*_FUNC_INIGETSECTION_ULONG_I)== 10 )))||new_error){ +if(qbevent){evnt(26064,52,"ini.bm");if(r)goto S_35745;} +do{ +*_FUNC_INIGETSECTION_ULONG_FOUNDSECTION=*_FUNC_INIGETSECTION_ULONG_I+ 1 ; +if(!qbevent)break;evnt(26064,52,"ini.bm");}while(r); +do{ +goto fornext_exit_3902; +if(!qbevent)break;evnt(26064,52,"ini.bm");}while(r); +} +S_35749:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_INIWHOLEFILE,*_FUNC_INIGETSECTION_ULONG_I)!= 32 )))||new_error){ +if(qbevent){evnt(26064,53,"ini.bm");if(r)goto S_35749;} +do{ +goto fornext_exit_3902; +if(!qbevent)break;evnt(26064,53,"ini.bm");}while(r); +} +fornext_continue_3902:; +} +fornext_exit_3902:; +S_35753:; +if ((-(*_FUNC_INIGETSECTION_ULONG_I== 0 ))||new_error){ +if(qbevent){evnt(26064,56,"ini.bm");if(r)goto S_35753;} +do{ +*_FUNC_INIGETSECTION_ULONG_FOUNDSECTION= 1 ; +if(!qbevent)break;evnt(26064,56,"ini.bm");}while(r); +} +do{ +qbs_set(_FUNC_INIGETSECTION_STRING_INIGETSECTION,qbs_left(__STRING_INIWHOLEFILE,*_FUNC_INIGETSECTION_ULONG_FOUNDSECTION- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26064,58,"ini.bm");}while(r); +}else{ +S_35758:; +do{ +if(qbevent){evnt(26064,60,"ini.bm");if(r)goto S_35758;} +do{ +*_FUNC_INIGETSECTION_ULONG_SECTIONSTART=func_instr(*_FUNC_INIGETSECTION_ULONG_SECTIONSTART+ 1 ,qbs_lcase(__STRING_INIWHOLEFILE),qbs_lcase(_FUNC_INIGETSECTION_STRING_SECTION),0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26064,61,"ini.bm");}while(r); +S_35760:; +if ((-(*_FUNC_INIGETSECTION_ULONG_SECTIONSTART== 0 ))||new_error){ +if(qbevent){evnt(26064,62,"ini.bm");if(r)goto S_35760;} +do{ +*__LONG_INICODE= 14 ; +if(!qbevent)break;evnt(26064,62,"ini.bm");}while(r); +do{ +goto dl_exit_3904; +if(!qbevent)break;evnt(26064,62,"ini.bm");}while(r); +} +do{ +*_FUNC_INIGETSECTION_ULONG_FOUNDSECTION= 0 ; +if(!qbevent)break;evnt(26064,65,"ini.bm");}while(r); +S_35765:; +fornext_value3906=*_FUNC_INIGETSECTION_ULONG_SECTIONSTART- 1 ; +fornext_finalvalue3906= 1 ; +fornext_step3906= -1 ; +if (fornext_step3906<0) fornext_step_negative3906=1; else fornext_step_negative3906=0; +if (new_error) goto fornext_error3906; +goto fornext_entrylabel3906; +while(1){ +fornext_value3906=fornext_step3906+(*_FUNC_INIGETSECTION_ULONG_I); +fornext_entrylabel3906: +*_FUNC_INIGETSECTION_ULONG_I=fornext_value3906; +if (fornext_step_negative3906){ +if (fornext_value3906fornext_finalvalue3906) break; +} +fornext_error3906:; +if(qbevent){evnt(26064,66,"ini.bm");if(r)goto S_35765;} +S_35766:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_INIWHOLEFILE,*_FUNC_INIGETSECTION_ULONG_I)== 10 )))||new_error){ +if(qbevent){evnt(26064,67,"ini.bm");if(r)goto S_35766;} +do{ +*_FUNC_INIGETSECTION_ULONG_FOUNDSECTION=*_FUNC_INIGETSECTION_ULONG_I+ 1 ; +if(!qbevent)break;evnt(26064,67,"ini.bm");}while(r); +do{ +goto fornext_exit_3905; +if(!qbevent)break;evnt(26064,67,"ini.bm");}while(r); +} +S_35770:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_INIWHOLEFILE,*_FUNC_INIGETSECTION_ULONG_I)!= 32 )))||new_error){ +if(qbevent){evnt(26064,68,"ini.bm");if(r)goto S_35770;} +do{ +goto fornext_exit_3905; +if(!qbevent)break;evnt(26064,68,"ini.bm");}while(r); +} +fornext_continue_3905:; +} +fornext_exit_3905:; +S_35774:; +if ((-(*_FUNC_INIGETSECTION_ULONG_I== 0 ))||new_error){ +if(qbevent){evnt(26064,71,"ini.bm");if(r)goto S_35774;} +do{ +*_FUNC_INIGETSECTION_ULONG_FOUNDSECTION= 1 ; +if(!qbevent)break;evnt(26064,71,"ini.bm");}while(r); +} +S_35777:; +if ((-(*_FUNC_INIGETSECTION_ULONG_FOUNDSECTION> 0 ))||new_error){ +if(qbevent){evnt(26064,73,"ini.bm");if(r)goto S_35777;} +do{ +*_FUNC_INIGETSECTION_ULONG_BRACKET1=*_FUNC_INIGETSECTION_ULONG_SECTIONSTART; +if(!qbevent)break;evnt(26064,76,"ini.bm");}while(r); +LABEL_CHECKAGAIN:; +if(qbevent){evnt(26064,77,"ini.bm");r=0;} +do{ +*_FUNC_INIGETSECTION_ULONG_BRACKET1=func_instr(*_FUNC_INIGETSECTION_ULONG_BRACKET1+ 1 ,__STRING_INIWHOLEFILE,qbs_new_txt_len("[",1),0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26064,78,"ini.bm");}while(r); +S_35780:; +if ((-(*_FUNC_INIGETSECTION_ULONG_BRACKET1> 0 ))||new_error){ +if(qbevent){evnt(26064,80,"ini.bm");if(r)goto S_35780;} +do{ +*_FUNC_INIGETSECTION_BYTE_INQUOTE= 0 ; +if(!qbevent)break;evnt(26064,82,"ini.bm");}while(r); +S_35782:; +fornext_value3908= 1 ; +fornext_finalvalue3908=*_FUNC_INIGETSECTION_ULONG_BRACKET1- 1 ; +fornext_step3908= 1 ; +if (fornext_step3908<0) fornext_step_negative3908=1; else fornext_step_negative3908=0; +if (new_error) goto fornext_error3908; +goto fornext_entrylabel3908; +while(1){ +fornext_value3908=fornext_step3908+(*_FUNC_INIGETSECTION_ULONG_I); +fornext_entrylabel3908: +*_FUNC_INIGETSECTION_ULONG_I=fornext_value3908; +if (fornext_step_negative3908){ +if (fornext_value3908fornext_finalvalue3908) break; +} +fornext_error3908:; +if(qbevent){evnt(26064,83,"ini.bm");if(r)goto S_35782;} +S_35783:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_INIWHOLEFILE,*_FUNC_INIGETSECTION_ULONG_I)== 34 )))||new_error){ +if(qbevent){evnt(26064,84,"ini.bm");if(r)goto S_35783;} +do{ +*_FUNC_INIGETSECTION_BYTE_INQUOTE=~(*_FUNC_INIGETSECTION_BYTE_INQUOTE); +if(!qbevent)break;evnt(26064,84,"ini.bm");}while(r); +} +fornext_continue_3907:; +} +fornext_exit_3907:; +S_35787:; +if ((*_FUNC_INIGETSECTION_BYTE_INQUOTE)||new_error){ +if(qbevent){evnt(26064,86,"ini.bm");if(r)goto S_35787;} +do{ +goto LABEL_CHECKAGAIN; +if(!qbevent)break;evnt(26064,86,"ini.bm");}while(r); +} +S_35790:; +fornext_value3910=*_FUNC_INIGETSECTION_ULONG_BRACKET1- 1 ; +fornext_finalvalue3910= 1 ; +fornext_step3910= -1 ; +if (fornext_step3910<0) fornext_step_negative3910=1; else fornext_step_negative3910=0; +if (new_error) goto fornext_error3910; +goto fornext_entrylabel3910; +while(1){ +fornext_value3910=fornext_step3910+(*_FUNC_INIGETSECTION_ULONG_I); +fornext_entrylabel3910: +*_FUNC_INIGETSECTION_ULONG_I=fornext_value3910; +if (fornext_step_negative3910){ +if (fornext_value3910fornext_finalvalue3910) break; +} +fornext_error3910:; +if(qbevent){evnt(26064,88,"ini.bm");if(r)goto S_35790;} +S_35791:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_INIWHOLEFILE,*_FUNC_INIGETSECTION_ULONG_I)== 10 )))||new_error){ +if(qbevent){evnt(26064,89,"ini.bm");if(r)goto S_35791;} +do{ +*_FUNC_INIGETSECTION_ULONG_ENDSECTION=*_FUNC_INIGETSECTION_ULONG_I+ 1 -__STRING_INILF->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26064,89,"ini.bm");}while(r); +do{ +goto fornext_exit_3909; +if(!qbevent)break;evnt(26064,89,"ini.bm");}while(r); +} +S_35795:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_INIWHOLEFILE,*_FUNC_INIGETSECTION_ULONG_I)== 61 )))||new_error){ +if(qbevent){evnt(26064,90,"ini.bm");if(r)goto S_35795;} +do{ +goto LABEL_CHECKAGAIN; +if(!qbevent)break;evnt(26064,90,"ini.bm");}while(r); +} +S_35798:; +if ((-(*_FUNC_INIGETSECTION_ULONG_I<=*_FUNC_INIGETSECTION_ULONG_FOUNDSECTION))||new_error){ +if(qbevent){evnt(26064,91,"ini.bm");if(r)goto S_35798;} +do{ +goto fornext_exit_3909; +if(!qbevent)break;evnt(26064,91,"ini.bm");}while(r); +} +fornext_continue_3909:; +} +fornext_exit_3909:; +do{ +qbs_set(_FUNC_INIGETSECTION_STRING_INIGETSECTION,func_mid(__STRING_INIWHOLEFILE,*_FUNC_INIGETSECTION_ULONG_FOUNDSECTION,*_FUNC_INIGETSECTION_ULONG_ENDSECTION-*_FUNC_INIGETSECTION_ULONG_FOUNDSECTION,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26064,93,"ini.bm");}while(r); +}else{ +do{ +qbs_set(_FUNC_INIGETSECTION_STRING_INIGETSECTION,func_mid(__STRING_INIWHOLEFILE,*_FUNC_INIGETSECTION_ULONG_FOUNDSECTION,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26064,95,"ini.bm");}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26064,97,"ini.bm");}while(r); +} +dl_continue_3904:; +}while(1); +dl_exit_3904:; +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free142.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_INIGETSECTION_STRING_INIGETSECTION);return _FUNC_INIGETSECTION_STRING_INIGETSECTION; +} +qbs* FUNC_INIFORMATSECTION(qbs*_FUNC_INIFORMATSECTION_STRING___SECTION){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data143.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +if(!qbevent)break;evnt(26064,104,"ini.bm");}while(r); +do{ +if(!qbevent)break;evnt(26064,106,"ini.bm");}while(r); +do{ +qbs_set(_FUNC_INIFORMATSECTION_STRING_SECTION,qbs_ltrim(qbs_rtrim(_FUNC_INIFORMATSECTION_STRING___SECTION))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26064,108,"ini.bm");}while(r); +S_35813:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(_FUNC_INIFORMATSECTION_STRING_SECTION, 1 ),qbs_new_txt_len("[",1))))||new_error){ +if(qbevent){evnt(26064,111,"ini.bm");if(r)goto S_35813;} +do{ +qbs_set(_FUNC_INIFORMATSECTION_STRING_SECTION,qbs_add(qbs_new_txt_len("[",1),_FUNC_INIFORMATSECTION_STRING_SECTION)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26064,111,"ini.bm");}while(r); +} +S_35816:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_right(_FUNC_INIFORMATSECTION_STRING_SECTION, 1 ),qbs_new_txt_len("]",1))))||new_error){ +if(qbevent){evnt(26064,112,"ini.bm");if(r)goto S_35816;} +do{ +qbs_set(_FUNC_INIFORMATSECTION_STRING_SECTION,qbs_add(_FUNC_INIFORMATSECTION_STRING_SECTION,qbs_new_txt_len("]",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26064,112,"ini.bm");}while(r); +} +S_35819:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func_mid(_FUNC_INIFORMATSECTION_STRING_SECTION, 2 ,_FUNC_INIFORMATSECTION_STRING_SECTION->len- 3 ,0|1),qbs_new_txt_len("[",1),0)|func_instr(NULL,func_mid(_FUNC_INIFORMATSECTION_STRING_SECTION, 2 ,_FUNC_INIFORMATSECTION_STRING_SECTION->len- 3 ,0|1),qbs_new_txt_len("]",1),0)))||new_error){ +if(qbevent){evnt(26064,114,"ini.bm");if(r)goto S_35819;} +do{ +*__LONG_INICODE= 15 ; +if(!qbevent)break;evnt(26064,115,"ini.bm");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26064,116,"ini.bm");}while(r); +} +do{ +qbs_set(_FUNC_INIFORMATSECTION_STRING_INIFORMATSECTION,_FUNC_INIFORMATSECTION_STRING_SECTION); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26064,119,"ini.bm");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free143.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_INIFORMATSECTION_STRING_INIFORMATSECTION);return _FUNC_INIFORMATSECTION_STRING_INIFORMATSECTION; +} +qbs* FUNC_READSETTING(qbs*_FUNC_READSETTING_STRING_FILE,qbs*_FUNC_READSETTING_STRING___SECTION,qbs*_FUNC_READSETTING_STRING___KEY){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data144.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +if(!qbevent)break;evnt(26064,123,"ini.bm");}while(r); +do{ +if(!qbevent)break;evnt(26064,124,"ini.bm");}while(r); +do{ +if(!qbevent)break;evnt(26064,125,"ini.bm");}while(r); +do{ +if(!qbevent)break;evnt(26064,126,"ini.bm");}while(r); +do{ +SUB_INILOAD(_FUNC_READSETTING_STRING_FILE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26064,128,"ini.bm");}while(r); +S_35829:; +if ((*__LONG_INICODE)||new_error){ +if(qbevent){evnt(26064,129,"ini.bm");if(r)goto S_35829;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26064,129,"ini.bm");}while(r); +} +S_35832:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__ULONG_CURRENTINIFILELOF== 0 ))|(-(((int32)(qbs_ltrim(qbs_rtrim(__STRING_INIWHOLEFILE)))->len)== 0 ))))||new_error){ +if(qbevent){evnt(26064,131,"ini.bm");if(r)goto S_35832;} +do{ +*__LONG_INICODE= 17 ; +if(!qbevent)break;evnt(26064,131,"ini.bm");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26064,131,"ini.bm");}while(r); +} +do{ +if(!qbevent)break;evnt(26064,133,"ini.bm");}while(r); +do{ +if(!qbevent)break;evnt(26064,134,"ini.bm");}while(r); +do{ +if(!qbevent)break;evnt(26064,135,"ini.bm");}while(r); +do{ +qbs_set(_FUNC_READSETTING_STRING_SECTION,FUNC_INIFORMATSECTION(_FUNC_READSETTING_STRING___SECTION)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26064,137,"ini.bm");}while(r); +S_35840:; +if ((*__LONG_INICODE)||new_error){ +if(qbevent){evnt(26064,138,"ini.bm");if(r)goto S_35840;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26064,138,"ini.bm");}while(r); +} +do{ +qbs_set(__STRING_INISECTIONDATA,FUNC_INIGETSECTION(_FUNC_READSETTING_STRING_SECTION)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26064,141,"ini.bm");}while(r); +S_35844:; +if (((-(*__LONG_INICODE> 0 ))&(-(*__LONG_INICODE!= 17 )))||new_error){ +if(qbevent){evnt(26064,142,"ini.bm");if(r)goto S_35844;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26064,142,"ini.bm");}while(r); +} +S_35847:; +if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_INISECTIONDATA->len== 0 ))&(qbs_notequal(_FUNC_READSETTING_STRING_SECTION,qbs_new_txt_len("[]",2)))))||new_error){ +if(qbevent){evnt(26064,144,"ini.bm");if(r)goto S_35847;} +do{ +*__LONG_INICODE= 14 ; +if(!qbevent)break;evnt(26064,144,"ini.bm");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26064,144,"ini.bm");}while(r); +} +do{ +qbs_set(__STRING_INILASTSECTION,_FUNC_READSETTING_STRING_SECTION); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26064,146,"ini.bm");}while(r); +do{ +*__ULONG_INIPOSITION= 0 ; +if(!qbevent)break;evnt(26064,148,"ini.bm");}while(r); +do{ +qbs_set(_FUNC_READSETTING_STRING_KEY,qbs_ltrim(qbs_rtrim(_FUNC_READSETTING_STRING___KEY))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26064,150,"ini.bm");}while(r); +do{ +qbs_set(__STRING_INILASTKEY,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26064,151,"ini.bm");}while(r); +S_35855:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_READSETTING_STRING_KEY,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26064,152,"ini.bm");if(r)goto S_35855;} +do{ +*__LONG_INICODE= 12 ; +if(!qbevent)break;evnt(26064,152,"ini.bm");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26064,152,"ini.bm");}while(r); +} +S_35859:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(_FUNC_READSETTING_STRING_KEY, 1 ),qbs_new_txt_len(";",1)))|(qbs_equal(qbs_left(_FUNC_READSETTING_STRING_KEY, 1 ),qbs_new_txt_len("'",1)))|(-(func_instr(NULL,_FUNC_READSETTING_STRING_KEY,qbs_new_txt_len("[",1),0)> 0 ))|(-(func_instr(NULL,_FUNC_READSETTING_STRING_KEY,qbs_new_txt_len("]",1),0)> 0 ))|(-(func_instr(NULL,_FUNC_READSETTING_STRING_KEY,qbs_new_txt_len("=",1),0)> 0 ))))||new_error){ +if(qbevent){evnt(26064,154,"ini.bm");if(r)goto S_35859;} +do{ +*__LONG_INICODE= 12 ; +if(!qbevent)break;evnt(26064,155,"ini.bm");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26064,156,"ini.bm");}while(r); +} +do{ +qbs_set(__STRING_INILASTKEY,_FUNC_READSETTING_STRING_KEY); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26064,159,"ini.bm");}while(r); +S_35864:; +if ((-(*__ULONG_INIPOSITION> 0 ))||new_error){ +if(qbevent){evnt(26064,161,"ini.bm");if(r)goto S_35864;} +do{ +*_FUNC_READSETTING_ULONG_EQUAL=*__ULONG_INIPOSITION; +if(!qbevent)break;evnt(26064,161,"ini.bm");}while(r); +do{ +goto LABEL_KEYFOUND; +if(!qbevent)break;evnt(26064,161,"ini.bm");}while(r); +} +LABEL_CHECKKEY:; +if(qbevent){evnt(26064,162,"ini.bm");r=0;} +do{ +*__ULONG_INIPOSITION=func_instr(*__ULONG_INIPOSITION+ 1 ,qbs_lcase(__STRING_INISECTIONDATA),qbs_lcase(_FUNC_READSETTING_STRING_KEY),0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26064,163,"ini.bm");}while(r); +S_35869:; +if ((-(*__ULONG_INIPOSITION> 0 ))||new_error){ +if(qbevent){evnt(26064,165,"ini.bm");if(r)goto S_35869;} +S_35870:; +fornext_value3920=*__ULONG_INIPOSITION- 1 ; +fornext_finalvalue3920= 1 ; +fornext_step3920= -1 ; +if (fornext_step3920<0) fornext_step_negative3920=1; else fornext_step_negative3920=0; +if (new_error) goto fornext_error3920; +goto fornext_entrylabel3920; +while(1){ +fornext_value3920=fornext_step3920+(*_FUNC_READSETTING_LONG_I); +fornext_entrylabel3920: +*_FUNC_READSETTING_LONG_I=fornext_value3920; +if (fornext_step_negative3920){ +if (fornext_value3920fornext_finalvalue3920) break; +} +fornext_error3920:; +if(qbevent){evnt(26064,167,"ini.bm");if(r)goto S_35870;} +S_35871:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_INISECTIONDATA,*_FUNC_READSETTING_LONG_I)== 10 )))||new_error){ +if(qbevent){evnt(26064,168,"ini.bm");if(r)goto S_35871;} +do{ +goto fornext_exit_3919; +if(!qbevent)break;evnt(26064,168,"ini.bm");}while(r); +} +S_35874:; +if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(__STRING_INISECTIONDATA,*_FUNC_READSETTING_LONG_I)!= 10 ))&(-(qbs_asc(__STRING_INISECTIONDATA,*_FUNC_READSETTING_LONG_I)!= 32 ))))||new_error){ +if(qbevent){evnt(26064,169,"ini.bm");if(r)goto S_35874;} +do{ +goto LABEL_CHECKKEY; +if(!qbevent)break;evnt(26064,171,"ini.bm");}while(r); +} +fornext_continue_3919:; +} +fornext_exit_3919:; +S_35878:; +fornext_value3922=*__ULONG_INIPOSITION+_FUNC_READSETTING_STRING_KEY->len; +fornext_finalvalue3922=__STRING_INISECTIONDATA->len; +fornext_step3922= 1 ; +if (fornext_step3922<0) fornext_step_negative3922=1; else fornext_step_negative3922=0; +if (new_error) goto fornext_error3922; +goto fornext_entrylabel3922; +while(1){ +fornext_value3922=fornext_step3922+(*_FUNC_READSETTING_LONG_I); +fornext_entrylabel3922: +*_FUNC_READSETTING_LONG_I=fornext_value3922; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative3922){ +if (fornext_value3922fornext_finalvalue3922) break; +} +fornext_error3922:; +if(qbevent){evnt(26064,176,"ini.bm");if(r)goto S_35878;} +S_35879:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_INISECTIONDATA,*_FUNC_READSETTING_LONG_I)==qbs_asc(qbs_new_txt_len("=",1)))))||new_error){ +if(qbevent){evnt(26064,177,"ini.bm");if(r)goto S_35879;} +do{ +goto fornext_exit_3921; +if(!qbevent)break;evnt(26064,177,"ini.bm");}while(r); +} +S_35882:; +if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(__STRING_INISECTIONDATA,*_FUNC_READSETTING_LONG_I)!=qbs_asc(qbs_new_txt_len("=",1))))&(-(qbs_asc(__STRING_INISECTIONDATA,*_FUNC_READSETTING_LONG_I)!= 32 ))))||new_error){ +if(qbevent){evnt(26064,178,"ini.bm");if(r)goto S_35882;} +do{ +goto LABEL_CHECKKEY; +if(!qbevent)break;evnt(26064,180,"ini.bm");}while(r); +} +fornext_continue_3921:; +} +fornext_exit_3921:; +do{ +*_FUNC_READSETTING_ULONG_EQUAL=func_instr(*__ULONG_INIPOSITION,__STRING_INISECTIONDATA,qbs_new_txt_len("=",1),0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26064,185,"ini.bm");}while(r); +LABEL_KEYFOUND:; +if(qbevent){evnt(26064,186,"ini.bm");r=0;} +do{ +*_FUNC_READSETTING_ULONG_FOUNDLF=func_instr(*__ULONG_INIPOSITION,__STRING_INISECTIONDATA,__STRING_INILF,0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26064,187,"ini.bm");}while(r); +S_35888:; +if ((-(*_FUNC_READSETTING_ULONG_FOUNDLF> 0 ))||new_error){ +if(qbevent){evnt(26064,189,"ini.bm");if(r)goto S_35888;} +S_35889:; +if ((-(*_FUNC_READSETTING_ULONG_EQUAL>*_FUNC_READSETTING_ULONG_FOUNDLF))||new_error){ +if(qbevent){evnt(26064,190,"ini.bm");if(r)goto S_35889;} +do{ +goto LABEL_CHECKKEY; +if(!qbevent)break;evnt(26064,190,"ini.bm");}while(r); +} +}else{ +do{ +*_FUNC_READSETTING_ULONG_FOUNDLF=__STRING_INISECTIONDATA->len+ 1 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26064,192,"ini.bm");}while(r); +S_35894:; +if ((-(*_FUNC_READSETTING_ULONG_EQUAL== 0 ))||new_error){ +if(qbevent){evnt(26064,193,"ini.bm");if(r)goto S_35894;} +do{ +goto LABEL_CHECKKEY; +if(!qbevent)break;evnt(26064,193,"ini.bm");}while(r); +} +} +do{ +qbs_set(_FUNC_READSETTING_STRING_TEMPVALUE,qbs_ltrim(qbs_rtrim(func_mid(__STRING_INISECTIONDATA,*_FUNC_READSETTING_ULONG_EQUAL+ 1 ,*_FUNC_READSETTING_ULONG_FOUNDLF-*_FUNC_READSETTING_ULONG_EQUAL- 1 ,0|1)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26064,196,"ini.bm");}while(r); +S_35899:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_READSETTING_STRING_TEMPVALUE->len> 0 )))||new_error){ +if(qbevent){evnt(26064,198,"ini.bm");if(r)goto S_35899;} +S_35900:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_READSETTING_STRING_TEMPVALUE, 1 ),func_chr( 34 ))))||new_error){ +if(qbevent){evnt(26064,199,"ini.bm");if(r)goto S_35900;} +do{ +qbs_set(_FUNC_READSETTING_STRING_TEMPVALUE,func_mid(_FUNC_READSETTING_STRING_TEMPVALUE, 2 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26064,200,"ini.bm");}while(r); +do{ +*_FUNC_READSETTING_ULONG_QUOTE=func_instr(NULL,_FUNC_READSETTING_STRING_TEMPVALUE,func_chr( 34 ),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26064,201,"ini.bm");}while(r); +S_35903:; +if ((-(*_FUNC_READSETTING_ULONG_QUOTE> 0 ))||new_error){ +if(qbevent){evnt(26064,202,"ini.bm");if(r)goto S_35903;} +do{ +qbs_set(_FUNC_READSETTING_STRING_TEMPVALUE,qbs_left(_FUNC_READSETTING_STRING_TEMPVALUE,*_FUNC_READSETTING_ULONG_QUOTE- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26064,203,"ini.bm");}while(r); +} +}else{ +S_35907:; +if ((*__LONG_INIALLOWBASICCOMMENTS)||new_error){ +if(qbevent){evnt(26064,206,"ini.bm");if(r)goto S_35907;} +do{ +*_FUNC_READSETTING_ULONG_COMMENT=func_instr(NULL,_FUNC_READSETTING_STRING_TEMPVALUE,qbs_new_txt_len("'",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26064,206,"ini.bm");}while(r); +} +S_35910:; +if ((-(*_FUNC_READSETTING_ULONG_COMMENT== 0 ))||new_error){ +if(qbevent){evnt(26064,207,"ini.bm");if(r)goto S_35910;} +do{ +*_FUNC_READSETTING_ULONG_COMMENT=func_instr(NULL,_FUNC_READSETTING_STRING_TEMPVALUE,qbs_new_txt_len(";",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26064,207,"ini.bm");}while(r); +} +S_35913:; +if ((-(*_FUNC_READSETTING_ULONG_COMMENT> 0 ))||new_error){ +if(qbevent){evnt(26064,208,"ini.bm");if(r)goto S_35913;} +do{ +qbs_set(_FUNC_READSETTING_STRING_TEMPVALUE,qbs_ltrim(qbs_rtrim(qbs_left(_FUNC_READSETTING_STRING_TEMPVALUE,*_FUNC_READSETTING_ULONG_COMMENT- 1 )))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26064,209,"ini.bm");}while(r); +} +} +}else{ +do{ +*__LONG_INICODE= 2 ; +if(!qbevent)break;evnt(26064,213,"ini.bm");}while(r); +} +}else{ +do{ +*__LONG_INICODE= 3 ; +if(!qbevent)break;evnt(26064,216,"ini.bm");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26064,217,"ini.bm");}while(r); +} +do{ +qbs_set(_FUNC_READSETTING_STRING_READSETTING,_FUNC_READSETTING_STRING_TEMPVALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26064,220,"ini.bm");}while(r); +do{ +qbs_set(__STRING_INILASTSECTION,FUNC_INICURRENTSECTION()); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26064,221,"ini.bm");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free144.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_READSETTING_STRING_READSETTING);return _FUNC_READSETTING_STRING_READSETTING; +} +qbs* FUNC_INICURRENTSECTION(){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data145.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +if(!qbevent)break;evnt(26064,225,"ini.bm");}while(r); +do{ +if(!qbevent)break;evnt(26064,227,"ini.bm");}while(r); +do{ +if(!qbevent)break;evnt(26064,228,"ini.bm");}while(r); +do{ +*_FUNC_INICURRENTSECTION_ULONG_GLOBALPOSITION=func_instr(NULL,__STRING_INIWHOLEFILE,__STRING_INISECTIONDATA,0)+*__ULONG_INIPOSITION- 1 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26064,230,"ini.bm");}while(r); +LABEL_CHECKSECTION:; +if(qbevent){evnt(26064,232,"ini.bm");r=0;} +S_35930:; +fornext_value3928=*_FUNC_INICURRENTSECTION_ULONG_GLOBALPOSITION- 1 ; +fornext_finalvalue3928= 1 ; +fornext_step3928= -1 ; +if (fornext_step3928<0) fornext_step_negative3928=1; else fornext_step_negative3928=0; +if (new_error) goto fornext_error3928; +goto fornext_entrylabel3928; +while(1){ +fornext_value3928=fornext_step3928+(*_FUNC_INICURRENTSECTION_ULONG_I); +fornext_entrylabel3928: +*_FUNC_INICURRENTSECTION_ULONG_I=fornext_value3928; +if (fornext_step_negative3928){ +if (fornext_value3928fornext_finalvalue3928) break; +} +fornext_error3928:; +if(qbevent){evnt(26064,233,"ini.bm");if(r)goto S_35930;} +S_35931:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_INIWHOLEFILE,*_FUNC_INICURRENTSECTION_ULONG_I)==qbs_asc(qbs_new_txt_len("[",1)))))||new_error){ +if(qbevent){evnt(26064,234,"ini.bm");if(r)goto S_35931;} +do{ +*_FUNC_INICURRENTSECTION_ULONG_GLOBALPOSITION=*_FUNC_INICURRENTSECTION_ULONG_I; +if(!qbevent)break;evnt(26064,235,"ini.bm");}while(r); +do{ +goto fornext_exit_3927; +if(!qbevent)break;evnt(26064,235,"ini.bm");}while(r); +} +fornext_continue_3927:; +} +fornext_exit_3927:; +S_35936:; +if ((-(*_FUNC_INICURRENTSECTION_ULONG_I== 0 ))||new_error){ +if(qbevent){evnt(26064,239,"ini.bm");if(r)goto S_35936;} +do{ +qbs_set(_FUNC_INICURRENTSECTION_STRING_INICURRENTSECTION,qbs_new_txt_len("[]",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26064,239,"ini.bm");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26064,239,"ini.bm");}while(r); +} +S_35940:; +fornext_value3930=*_FUNC_INICURRENTSECTION_ULONG_GLOBALPOSITION- 1 ; +fornext_finalvalue3930= 1 ; +fornext_step3930= -1 ; +if (fornext_step3930<0) fornext_step_negative3930=1; else fornext_step_negative3930=0; +if (new_error) goto fornext_error3930; +goto fornext_entrylabel3930; +while(1){ +fornext_value3930=fornext_step3930+(*_FUNC_INICURRENTSECTION_ULONG_I); +fornext_entrylabel3930: +*_FUNC_INICURRENTSECTION_ULONG_I=fornext_value3930; +if (fornext_step_negative3930){ +if (fornext_value3930fornext_finalvalue3930) break; +} +fornext_error3930:; +if(qbevent){evnt(26064,242,"ini.bm");if(r)goto S_35940;} +S_35941:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_INIWHOLEFILE,*_FUNC_INICURRENTSECTION_ULONG_I)== 10 )))||new_error){ +if(qbevent){evnt(26064,243,"ini.bm");if(r)goto S_35941;} +do{ +goto fornext_exit_3929; +if(!qbevent)break;evnt(26064,243,"ini.bm");}while(r); +} +S_35944:; +if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(__STRING_INIWHOLEFILE,*_FUNC_INICURRENTSECTION_ULONG_I)!= 10 ))&(-(qbs_asc(__STRING_INIWHOLEFILE,*_FUNC_INICURRENTSECTION_ULONG_I)!= 32 ))))||new_error){ +if(qbevent){evnt(26064,244,"ini.bm");if(r)goto S_35944;} +do{ +goto LABEL_CHECKSECTION; +if(!qbevent)break;evnt(26064,246,"ini.bm");}while(r); +} +fornext_continue_3929:; +} +fornext_exit_3929:; +do{ +*_FUNC_INICURRENTSECTION_ULONG_CLOSINGBRACKET=func_instr(*_FUNC_INICURRENTSECTION_ULONG_GLOBALPOSITION,__STRING_INIWHOLEFILE,qbs_new_txt_len("]",1),0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26064,250,"ini.bm");}while(r); +S_35949:; +if ((-(*_FUNC_INICURRENTSECTION_ULONG_CLOSINGBRACKET> 0 ))||new_error){ +if(qbevent){evnt(26064,251,"ini.bm");if(r)goto S_35949;} +do{ +qbs_set(_FUNC_INICURRENTSECTION_STRING_INICURRENTSECTION,func_mid(__STRING_INIWHOLEFILE,*_FUNC_INICURRENTSECTION_ULONG_GLOBALPOSITION,*_FUNC_INICURRENTSECTION_ULONG_CLOSINGBRACKET-*_FUNC_INICURRENTSECTION_ULONG_GLOBALPOSITION+ 1 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26064,252,"ini.bm");}while(r); +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free145.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_INICURRENTSECTION_STRING_INICURRENTSECTION);return _FUNC_INICURRENTSECTION_STRING_INICURRENTSECTION; +} +void SUB_WRITESETTING(qbs*_SUB_WRITESETTING_STRING_FILE,qbs*_SUB_WRITESETTING_STRING___SECTION,qbs*_SUB_WRITESETTING_STRING___KEY,qbs*_SUB_WRITESETTING_STRING___VALUE){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data146.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +if(!qbevent)break;evnt(26064,257,"ini.bm");}while(r); +do{ +if(!qbevent)break;evnt(26064,258,"ini.bm");}while(r); +do{ +if(!qbevent)break;evnt(26064,259,"ini.bm");}while(r); +do{ +if(!qbevent)break;evnt(26064,260,"ini.bm");}while(r); +do{ +if(!qbevent)break;evnt(26064,262,"ini.bm");}while(r); +do{ +*__LONG_INICODE= 0 ; +if(!qbevent)break;evnt(26064,264,"ini.bm");}while(r); +do{ +qbs_set(_SUB_WRITESETTING_STRING_SECTION,FUNC_INIFORMATSECTION(_SUB_WRITESETTING_STRING___SECTION)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26064,267,"ini.bm");}while(r); +S_35959:; +if ((*__LONG_INICODE)||new_error){ +if(qbevent){evnt(26064,268,"ini.bm");if(r)goto S_35959;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26064,268,"ini.bm");}while(r); +} +do{ +qbs_set(_SUB_WRITESETTING_STRING_KEY,qbs_ltrim(qbs_rtrim(_SUB_WRITESETTING_STRING___KEY))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26064,270,"ini.bm");}while(r); +S_35963:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_WRITESETTING_STRING_KEY,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26064,271,"ini.bm");if(r)goto S_35963;} +do{ +*__LONG_INICODE= 12 ; +if(!qbevent)break;evnt(26064,271,"ini.bm");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26064,271,"ini.bm");}while(r); +} +do{ +qbs_set(__STRING_INILASTKEY,_SUB_WRITESETTING_STRING_KEY); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26064,272,"ini.bm");}while(r); +do{ +qbs_set(_SUB_WRITESETTING_STRING_VALUE,qbs_ltrim(qbs_rtrim(_SUB_WRITESETTING_STRING___VALUE))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26064,274,"ini.bm");}while(r); +S_35969:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_ltrim(qbs_str((long double)(func_val(_SUB_WRITESETTING_STRING_VALUE)))),_SUB_WRITESETTING_STRING_VALUE)))||new_error){ +if(qbevent){evnt(26064,275,"ini.bm");if(r)goto S_35969;} +S_35970:; +if ((~(*__LONG_INIDISABLEADDQUOTES))||new_error){ +if(qbevent){evnt(26064,276,"ini.bm");if(r)goto S_35970;} +S_35971:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_WRITESETTING_STRING_VALUE,func_chr( 32 ),0)))||new_error){ +if(qbevent){evnt(26064,278,"ini.bm");if(r)goto S_35971;} +do{ +qbs_set(_SUB_WRITESETTING_STRING_VALUE,qbs_add(qbs_add(func_chr( 34 ),_SUB_WRITESETTING_STRING_VALUE),func_chr( 34 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26064,278,"ini.bm");}while(r); +} +} +} +do{ +qbs_set(_SUB_WRITESETTING_STRING_TEMPVALUE,FUNC_READSETTING(_SUB_WRITESETTING_STRING_FILE,_SUB_WRITESETTING_STRING_SECTION,_SUB_WRITESETTING_STRING_KEY)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26064,283,"ini.bm");}while(r); +do{ +*__ULONG_INIPOSITION=func_instr(NULL,__STRING_INIWHOLEFILE,__STRING_INISECTIONDATA,0)+*__ULONG_INIPOSITION- 1 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26064,286,"ini.bm");}while(r); +S_35978:; +if (((-(*__LONG_INICODE== 1 ))|(-(*__LONG_INICODE== 17 )))||new_error){ +if(qbevent){evnt(26064,288,"ini.bm");if(r)goto S_35978;} +S_35979:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_WRITESETTING_STRING_FILE,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26064,290,"ini.bm");if(r)goto S_35979;} +do{ +qbs_set(_SUB_WRITESETTING_STRING_FILE,__STRING_CURRENTINIFILENAME); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26064,290,"ini.bm");}while(r); +} +S_35982:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_WRITESETTING_STRING_FILE,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26064,291,"ini.bm");if(r)goto S_35982;} +do{ +*__LONG_INICODE= 21 ; +if(!qbevent)break;evnt(26064,291,"ini.bm");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26064,291,"ini.bm");}while(r); +} +do{ +qbs_set(__STRING_CURRENTINIFILENAME,_SUB_WRITESETTING_STRING_FILE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26064,293,"ini.bm");}while(r); +S_35987:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_WRITESETTING_STRING_SECTION,qbs_new_txt_len("[]",2))))||new_error){ +if(qbevent){evnt(26064,295,"ini.bm");if(r)goto S_35987;} +do{ +qbs_set(__STRING_ININEWFILE,qbs_add(_SUB_WRITESETTING_STRING_SECTION,__STRING_INILF)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26064,296,"ini.bm");}while(r); +} +do{ +qbs_set(__STRING_ININEWFILE,qbs_add(qbs_add(qbs_add(__STRING_ININEWFILE,_SUB_WRITESETTING_STRING_KEY),qbs_new_txt_len("=",1)),_SUB_WRITESETTING_STRING_VALUE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26064,299,"ini.bm");}while(r); +do{ +*__LONG_INICODE= 0 ; +if(!qbevent)break;evnt(26064,301,"ini.bm");}while(r); +do{ +SUB_INICOMMIT(); +if(!qbevent)break;evnt(26064,302,"ini.bm");}while(r); +do{ +SUB_INILOAD(_SUB_WRITESETTING_STRING_FILE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26064,303,"ini.bm");}while(r); +S_35994:; +if ((-(*__LONG_INICODE== 0 ))||new_error){ +if(qbevent){evnt(26064,304,"ini.bm");if(r)goto S_35994;} +do{ +*__LONG_INICODE= 11 ; +if(!qbevent)break;evnt(26064,304,"ini.bm");}while(r); +} +do{ +qbs_set(__STRING_INILASTSECTION,_SUB_WRITESETTING_STRING_SECTION); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26064,305,"ini.bm");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26064,306,"ini.bm");}while(r); +} +S_36000:; +if (((-(*__LONG_INICODE== 0 ))|(-(*__LONG_INICODE== 2 )))||new_error){ +if(qbevent){evnt(26064,309,"ini.bm");if(r)goto S_36000;} +S_36001:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_lcase(__STRING_INILASTSECTION),qbs_lcase(_SUB_WRITESETTING_STRING_SECTION))))||new_error){ +if(qbevent){evnt(26064,310,"ini.bm");if(r)goto S_36001;} +S_36002:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ltrim(qbs_rtrim(_SUB_WRITESETTING_STRING___VALUE)),_SUB_WRITESETTING_STRING_TEMPVALUE))&(-(((int32)(qbs_ltrim(qbs_rtrim(_SUB_WRITESETTING_STRING___VALUE)))->len)> 0 ))))||new_error){ +if(qbevent){evnt(26064,311,"ini.bm");if(r)goto S_36002;} +do{ +*__LONG_INICODE= 8 ; +if(!qbevent)break;evnt(26064,313,"ini.bm");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26064,314,"ini.bm");}while(r); +} +do{ +if(!qbevent)break;evnt(26064,317,"ini.bm");}while(r); +do{ +*_SUB_WRITESETTING_ULONG_NEXTLINE=func_instr(*__ULONG_INIPOSITION+ 1 ,__STRING_INIWHOLEFILE,__STRING_INILF,0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26064,318,"ini.bm");}while(r); +do{ +qbs_set(__STRING_ININEWFILE,qbs_left(__STRING_INIWHOLEFILE,*__ULONG_INIPOSITION- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26064,321,"ini.bm");}while(r); +do{ +qbs_set(__STRING_ININEWFILE,qbs_add(qbs_add(qbs_add(__STRING_ININEWFILE,_SUB_WRITESETTING_STRING_KEY),qbs_new_txt_len("=",1)),_SUB_WRITESETTING_STRING_VALUE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26064,322,"ini.bm");}while(r); +S_36010:; +if ((-(*_SUB_WRITESETTING_ULONG_NEXTLINE> 0 ))||new_error){ +if(qbevent){evnt(26064,324,"ini.bm");if(r)goto S_36010;} +do{ +qbs_set(__STRING_ININEWFILE,qbs_add(__STRING_ININEWFILE,func_mid(__STRING_INIWHOLEFILE,*_SUB_WRITESETTING_ULONG_NEXTLINE,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26064,325,"ini.bm");}while(r); +} +do{ +SUB_INICOMMIT(); +if(!qbevent)break;evnt(26064,328,"ini.bm");}while(r); +do{ +*__LONG_INICODE= 4 ; +if(!qbevent)break;evnt(26064,330,"ini.bm");}while(r); +} +S_36016:; +}else{ +if ((-(*__LONG_INICODE== 3 ))|(-(*__LONG_INICODE== 14 ))){ +if(qbevent){evnt(26064,332,"ini.bm");if(r)goto S_36016;} +do{ +*__LONG_INICODE= 0 ; +if(!qbevent)break;evnt(26064,333,"ini.bm");}while(r); +S_36018:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_lcase(__STRING_INILASTSECTION),qbs_lcase(_SUB_WRITESETTING_STRING_SECTION))))||new_error){ +if(qbevent){evnt(26064,334,"ini.bm");if(r)goto S_36018;} +do{ +if(!qbevent)break;evnt(26064,336,"ini.bm");}while(r); +do{ +if(!qbevent)break;evnt(26064,337,"ini.bm");}while(r); +do{ +if(!qbevent)break;evnt(26064,338,"ini.bm");}while(r); +do{ +*_SUB_WRITESETTING_ULONG_BEGINSECTION= 0 ; +if(!qbevent)break;evnt(26064,340,"ini.bm");}while(r); +do{ +*_SUB_WRITESETTING_ULONG_ENDSECTION= 0 ; +if(!qbevent)break;evnt(26064,341,"ini.bm");}while(r); +LABEL_CHECKSECTION:; +if(qbevent){evnt(26064,343,"ini.bm");r=0;} +do{ +*_SUB_WRITESETTING_ULONG_BEGINSECTION=func_instr(*_SUB_WRITESETTING_ULONG_BEGINSECTION+ 1 ,qbs_lcase(__STRING_INIWHOLEFILE),qbs_lcase(_SUB_WRITESETTING_STRING_SECTION),0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26064,344,"ini.bm");}while(r); +S_36025:; +if ((-(*_SUB_WRITESETTING_ULONG_BEGINSECTION== 0 ))||new_error){ +if(qbevent){evnt(26064,345,"ini.bm");if(r)goto S_36025;} +do{ +goto LABEL_CREATESECTION; +if(!qbevent)break;evnt(26064,345,"ini.bm");}while(r); +} +S_36028:; +fornext_value3936=*_SUB_WRITESETTING_ULONG_BEGINSECTION- 1 ; +fornext_finalvalue3936= 1 ; +fornext_step3936= -1 ; +if (fornext_step3936<0) fornext_step_negative3936=1; else fornext_step_negative3936=0; +if (new_error) goto fornext_error3936; +goto fornext_entrylabel3936; +while(1){ +fornext_value3936=fornext_step3936+(*_SUB_WRITESETTING_ULONG_I); +fornext_entrylabel3936: +*_SUB_WRITESETTING_ULONG_I=fornext_value3936; +if (fornext_step_negative3936){ +if (fornext_value3936fornext_finalvalue3936) break; +} +fornext_error3936:; +if(qbevent){evnt(26064,348,"ini.bm");if(r)goto S_36028;} +S_36029:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_INIWHOLEFILE,*_SUB_WRITESETTING_ULONG_I)== 10 )))||new_error){ +if(qbevent){evnt(26064,349,"ini.bm");if(r)goto S_36029;} +do{ +goto fornext_exit_3935; +if(!qbevent)break;evnt(26064,349,"ini.bm");}while(r); +} +S_36032:; +if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(__STRING_INIWHOLEFILE,*_SUB_WRITESETTING_ULONG_I)!= 10 ))&(-(qbs_asc(__STRING_INIWHOLEFILE,*_SUB_WRITESETTING_ULONG_I)!= 32 ))))||new_error){ +if(qbevent){evnt(26064,350,"ini.bm");if(r)goto S_36032;} +do{ +goto LABEL_CHECKSECTION; +if(!qbevent)break;evnt(26064,352,"ini.bm");}while(r); +} +fornext_continue_3935:; +} +fornext_exit_3935:; +do{ +*_SUB_WRITESETTING_ULONG_BRACKET1=func_instr(*_SUB_WRITESETTING_ULONG_BEGINSECTION+ 1 ,__STRING_INIWHOLEFILE,qbs_new_txt_len("[",1),0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26064,358,"ini.bm");}while(r); +S_36037:; +if ((-(*_SUB_WRITESETTING_ULONG_BRACKET1> 0 ))||new_error){ +if(qbevent){evnt(26064,359,"ini.bm");if(r)goto S_36037;} +S_36038:; +fornext_value3938=*_SUB_WRITESETTING_ULONG_BRACKET1- 1 ; +fornext_finalvalue3938= 1 ; +fornext_step3938= -1 ; +if (fornext_step3938<0) fornext_step_negative3938=1; else fornext_step_negative3938=0; +if (new_error) goto fornext_error3938; +goto fornext_entrylabel3938; +while(1){ +fornext_value3938=fornext_step3938+(*_SUB_WRITESETTING_ULONG_I); +fornext_entrylabel3938: +*_SUB_WRITESETTING_ULONG_I=fornext_value3938; +if (fornext_step_negative3938){ +if (fornext_value3938fornext_finalvalue3938) break; +} +fornext_error3938:; +if(qbevent){evnt(26064,360,"ini.bm");if(r)goto S_36038;} +S_36039:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_INIWHOLEFILE,*_SUB_WRITESETTING_ULONG_I)== 10 )))||new_error){ +if(qbevent){evnt(26064,361,"ini.bm");if(r)goto S_36039;} +do{ +*_SUB_WRITESETTING_ULONG_ENDSECTION=*_SUB_WRITESETTING_ULONG_I+ 1 -__STRING_INILF->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26064,361,"ini.bm");}while(r); +do{ +goto fornext_exit_3937; +if(!qbevent)break;evnt(26064,361,"ini.bm");}while(r); +} +S_36043:; +if ((-(*_SUB_WRITESETTING_ULONG_I<=*_SUB_WRITESETTING_ULONG_BEGINSECTION))||new_error){ +if(qbevent){evnt(26064,362,"ini.bm");if(r)goto S_36043;} +do{ +goto fornext_exit_3937; +if(!qbevent)break;evnt(26064,362,"ini.bm");}while(r); +} +fornext_continue_3937:; +} +fornext_exit_3937:; +} +S_36048:; +if ((-(*_SUB_WRITESETTING_ULONG_ENDSECTION> 0 ))||new_error){ +if(qbevent){evnt(26064,366,"ini.bm");if(r)goto S_36048;} +do{ +qbs_set(__STRING_ININEWFILE,qbs_left(__STRING_INIWHOLEFILE,*_SUB_WRITESETTING_ULONG_ENDSECTION- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26064,368,"ini.bm");}while(r); +do{ +qbs_set(__STRING_ININEWFILE,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_ININEWFILE,_SUB_WRITESETTING_STRING_KEY),qbs_new_txt_len("=",1)),_SUB_WRITESETTING_STRING_VALUE),__STRING_INILF)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26064,369,"ini.bm");}while(r); +S_36051:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(func_mid(__STRING_INIWHOLEFILE,*_SUB_WRITESETTING_ULONG_ENDSECTION,__STRING_INILF->len,0|1),__STRING_INILF)))||new_error){ +if(qbevent){evnt(26064,370,"ini.bm");if(r)goto S_36051;} +do{ +qbs_set(__STRING_ININEWFILE,qbs_add(__STRING_ININEWFILE,__STRING_INILF)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26064,370,"ini.bm");}while(r); +} +do{ +qbs_set(__STRING_ININEWFILE,qbs_add(__STRING_ININEWFILE,func_mid(__STRING_INIWHOLEFILE,*_SUB_WRITESETTING_ULONG_ENDSECTION,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26064,371,"ini.bm");}while(r); +}else{ +do{ +qbs_set(__STRING_ININEWFILE,__STRING_INIWHOLEFILE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26064,374,"ini.bm");}while(r); +S_36057:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(__STRING_ININEWFILE,__STRING_INILF->len),__STRING_INILF)))||new_error){ +if(qbevent){evnt(26064,375,"ini.bm");if(r)goto S_36057;} +do{ +qbs_set(__STRING_ININEWFILE,qbs_add(qbs_add(qbs_add(__STRING_ININEWFILE,_SUB_WRITESETTING_STRING_KEY),qbs_new_txt_len("=",1)),_SUB_WRITESETTING_STRING_VALUE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26064,376,"ini.bm");}while(r); +}else{ +do{ +qbs_set(__STRING_ININEWFILE,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_ININEWFILE,__STRING_INILF),_SUB_WRITESETTING_STRING_KEY),qbs_new_txt_len("=",1)),_SUB_WRITESETTING_STRING_VALUE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26064,378,"ini.bm");}while(r); +} +} +do{ +SUB_INICOMMIT(); +if(!qbevent)break;evnt(26064,382,"ini.bm");}while(r); +S_36064:; +if ((-(*__LONG_INICODE== 0 ))||new_error){ +if(qbevent){evnt(26064,384,"ini.bm");if(r)goto S_36064;} +do{ +*__LONG_INICODE= 7 ; +if(!qbevent)break;evnt(26064,384,"ini.bm");}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26064,385,"ini.bm");}while(r); +}else{ +LABEL_CREATESECTION:; +if(qbevent){evnt(26064,387,"ini.bm");r=0;} +do{ +qbs_set(__STRING_ININEWFILE,__STRING_INIWHOLEFILE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26064,388,"ini.bm");}while(r); +S_36070:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_WRITESETTING_STRING_SECTION,qbs_new_txt_len("[]",2))))||new_error){ +if(qbevent){evnt(26064,389,"ini.bm");if(r)goto S_36070;} +do{ +goto LABEL_WRITEATTOP; +if(!qbevent)break;evnt(26064,389,"ini.bm");}while(r); +} +S_36073:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal((qbs_right(__STRING_ININEWFILE,__STRING_INILF->len* 2 )),(qbs_add(__STRING_INILF,__STRING_INILF)))))||new_error){ +if(qbevent){evnt(26064,391,"ini.bm");if(r)goto S_36073;} +do{ +qbs_set(__STRING_ININEWFILE,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_ININEWFILE,_SUB_WRITESETTING_STRING_SECTION),__STRING_INILF),_SUB_WRITESETTING_STRING_KEY),qbs_new_txt_len("=",1)),_SUB_WRITESETTING_STRING_VALUE),__STRING_INILF)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26064,392,"ini.bm");}while(r); +S_36075:; +}else{ +if (qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(__STRING_ININEWFILE,__STRING_INILF->len),__STRING_INILF))){ +if(qbevent){evnt(26064,393,"ini.bm");if(r)goto S_36075;} +do{ +qbs_set(__STRING_ININEWFILE,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_ININEWFILE,__STRING_INILF),_SUB_WRITESETTING_STRING_SECTION),__STRING_INILF),_SUB_WRITESETTING_STRING_KEY),qbs_new_txt_len("=",1)),_SUB_WRITESETTING_STRING_VALUE),__STRING_INILF)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26064,394,"ini.bm");}while(r); +}else{ +do{ +qbs_set(__STRING_ININEWFILE,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_ININEWFILE,__STRING_INILF),__STRING_INILF),_SUB_WRITESETTING_STRING_SECTION),__STRING_INILF),_SUB_WRITESETTING_STRING_KEY),qbs_new_txt_len("=",1)),_SUB_WRITESETTING_STRING_VALUE),__STRING_INILF)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26064,396,"ini.bm");}while(r); +} +} +do{ +SUB_INICOMMIT(); +if(!qbevent)break;evnt(26064,399,"ini.bm");}while(r); +S_36081:; +if ((-(*__LONG_INICODE== 0 ))||new_error){ +if(qbevent){evnt(26064,401,"ini.bm");if(r)goto S_36081;} +do{ +*__LONG_INICODE= 9 ; +if(!qbevent)break;evnt(26064,401,"ini.bm");}while(r); +}else{ +do{ +*__LONG_INICODE= 16 ; +if(!qbevent)break;evnt(26064,401,"ini.bm");}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26064,402,"ini.bm");}while(r); +} +LABEL_WRITEATTOP:; +if(qbevent){evnt(26064,406,"ini.bm");r=0;} +do{ +qbs_set(__STRING_ININEWFILE,qbs_add(qbs_add(qbs_add(_SUB_WRITESETTING_STRING_KEY,qbs_new_txt_len("=",1)),_SUB_WRITESETTING_STRING_VALUE),__STRING_INILF)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26064,407,"ini.bm");}while(r); +S_36089:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(qbs_ltrim(__STRING_INIWHOLEFILE), 1 ),qbs_new_txt_len("[",1))))||new_error){ +if(qbevent){evnt(26064,408,"ini.bm");if(r)goto S_36089;} +do{ +qbs_set(__STRING_ININEWFILE,qbs_add(__STRING_ININEWFILE,__STRING_INILF)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26064,408,"ini.bm");}while(r); +} +do{ +qbs_set(__STRING_ININEWFILE,qbs_add(__STRING_ININEWFILE,__STRING_INIWHOLEFILE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26064,409,"ini.bm");}while(r); +do{ +SUB_INICOMMIT(); +if(!qbevent)break;evnt(26064,411,"ini.bm");}while(r); +do{ +*__LONG_INICODE= 5 ; +if(!qbevent)break;evnt(26064,413,"ini.bm");}while(r); +} +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free146.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +void SUB_INISETADDQUOTES(int8*_SUB_INISETADDQUOTES_BYTE_STATE){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data147.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +if(!qbevent)break;evnt(26064,418,"ini.bm");}while(r); +S_36097:; +if ((*_SUB_INISETADDQUOTES_BYTE_STATE)||new_error){ +if(qbevent){evnt(26064,419,"ini.bm");if(r)goto S_36097;} +do{ +*__LONG_INIDISABLEADDQUOTES= 0 ; +if(!qbevent)break;evnt(26064,420,"ini.bm");}while(r); +}else{ +do{ +*__LONG_INIDISABLEADDQUOTES= -1 ; +if(!qbevent)break;evnt(26064,422,"ini.bm");}while(r); +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free147.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +void SUB_INISETFORCERELOAD(int8*_SUB_INISETFORCERELOAD_BYTE_STATE){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data148.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +if(!qbevent)break;evnt(26064,427,"ini.bm");}while(r); +S_36103:; +if ((*_SUB_INISETFORCERELOAD_BYTE_STATE)||new_error){ +if(qbevent){evnt(26064,428,"ini.bm");if(r)goto S_36103;} +do{ +*__LONG_INIFORCERELOAD= -1 ; +if(!qbevent)break;evnt(26064,429,"ini.bm");}while(r); +}else{ +do{ +*__LONG_INIFORCERELOAD= 0 ; +if(!qbevent)break;evnt(26064,431,"ini.bm");}while(r); +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free148.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +void SUB_INISETALLOWBASICCOMMENTS(int8*_SUB_INISETALLOWBASICCOMMENTS_BYTE_STATE){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data149.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +if(!qbevent)break;evnt(26064,436,"ini.bm");}while(r); +S_36109:; +if ((*_SUB_INISETALLOWBASICCOMMENTS_BYTE_STATE)||new_error){ +if(qbevent){evnt(26064,437,"ini.bm");if(r)goto S_36109;} +do{ +*__LONG_INIALLOWBASICCOMMENTS= -1 ; +if(!qbevent)break;evnt(26064,438,"ini.bm");}while(r); +}else{ +do{ +*__LONG_INIALLOWBASICCOMMENTS= 0 ; +if(!qbevent)break;evnt(26064,440,"ini.bm");}while(r); +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free149.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +void SUB_INISETAUTOCOMMIT(int8*_SUB_INISETAUTOCOMMIT_BYTE_STATE){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data150.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +if(!qbevent)break;evnt(26064,445,"ini.bm");}while(r); +S_36115:; +if ((*_SUB_INISETAUTOCOMMIT_BYTE_STATE)||new_error){ +if(qbevent){evnt(26064,446,"ini.bm");if(r)goto S_36115;} +do{ +*__LONG_INIDISABLEAUTOCOMMIT= 0 ; +if(!qbevent)break;evnt(26064,447,"ini.bm");}while(r); +}else{ +do{ +*__LONG_INIDISABLEAUTOCOMMIT= -1 ; +if(!qbevent)break;evnt(26064,449,"ini.bm");}while(r); +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free150.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +void SUB_INILOAD(qbs*_SUB_INILOAD_STRING_FILE){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data151.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +if(!qbevent)break;evnt(26064,454,"ini.bm");}while(r); +do{ +if(!qbevent)break;evnt(26064,455,"ini.bm");}while(r); +do{ +if(!qbevent)break;evnt(26064,456,"ini.bm");}while(r); +do{ +if(!qbevent)break;evnt(26064,457,"ini.bm");}while(r); +do{ +*__LONG_INICODE= 0 ; +if(!qbevent)break;evnt(26064,460,"ini.bm");}while(r); +S_36125:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(_SUB_INILOAD_STRING_FILE,qbs_new_txt_len("",0)))&(qbs_notequal(__STRING_CURRENTINIFILENAME,_SUB_INILOAD_STRING_FILE))))||new_error){ +if(qbevent){evnt(26064,462,"ini.bm");if(r)goto S_36125;} +do{ +qbs_set(__STRING_CURRENTINIFILENAME,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26064,462,"ini.bm");}while(r); +} +S_36128:; +if ((qbs_cleanup(qbs_tmp_base,*__LONG_INIFORCERELOAD&(-(__STRING_CURRENTINIFILENAME->len> 0 ))))||new_error){ +if(qbevent){evnt(26064,464,"ini.bm");if(r)goto S_36128;} +do{ +qbs_set(_SUB_INILOAD_STRING_FILE,__STRING_CURRENTINIFILENAME); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26064,465,"ini.bm");}while(r); +do{ +qbs_set(__STRING_CURRENTINIFILENAME,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26064,466,"ini.bm");}while(r); +} +S_36132:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_CURRENTINIFILENAME,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26064,471,"ini.bm");if(r)goto S_36132;} +S_36133:; +if ((qbs_cleanup(qbs_tmp_base,func__fileexists(_SUB_INILOAD_STRING_FILE)))||new_error){ +if(qbevent){evnt(26064,473,"ini.bm");if(r)goto S_36133;} +do{ +qbs_set(__STRING_CURRENTINIFILENAME,_SUB_INILOAD_STRING_FILE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26064,474,"ini.bm");}while(r); +do{ +*_SUB_INILOAD_INTEGER_FILENUM=func_freefile(); +if(!qbevent)break;evnt(26064,477,"ini.bm");}while(r); +do{ +sub_open(__STRING_CURRENTINIFILENAME, 2 ,NULL,NULL,*_SUB_INILOAD_INTEGER_FILENUM,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26064,478,"ini.bm");}while(r); +do{ +*__ULONG_CURRENTINIFILELOF=func_lof(*_SUB_INILOAD_INTEGER_FILENUM); +if(!qbevent)break;evnt(26064,479,"ini.bm");}while(r); +do{ +qbs_set(__STRING_INIWHOLEFILE,func_space(*__ULONG_CURRENTINIFILELOF)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26064,480,"ini.bm");}while(r); +do{ +sub_get2(*_SUB_INILOAD_INTEGER_FILENUM, 1 ,__STRING_INIWHOLEFILE,1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26064,481,"ini.bm");}while(r); +do{ +sub_close(*_SUB_INILOAD_INTEGER_FILENUM,1); +if(!qbevent)break;evnt(26064,482,"ini.bm");}while(r); +S_36141:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_INIWHOLEFILE,func_chr( 13 ),0)))||new_error){ +if(qbevent){evnt(26064,485,"ini.bm");if(r)goto S_36141;} +do{ +qbs_set(__STRING_INILF,qbs_add(func_chr( 13 ),func_chr( 10 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26064,485,"ini.bm");}while(r); +}else{ +do{ +qbs_set(__STRING_INILF,func_chr( 10 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26064,485,"ini.bm");}while(r); +} +}else{ +LABEL_INIFILENOTFOUND:; +if(qbevent){evnt(26064,487,"ini.bm");r=0;} +do{ +*__LONG_INICODE= 1 ; +if(!qbevent)break;evnt(26064,488,"ini.bm");}while(r); +do{ +qbs_set(__STRING_INILF,qbs_add(func_chr( 13 ),func_chr( 10 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26064,491,"ini.bm");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26064,495,"ini.bm");}while(r); +} +S_36151:; +}else{ +if (qbs_cleanup(qbs_tmp_base,~(func__fileexists(__STRING_CURRENTINIFILENAME)))){ +if(qbevent){evnt(26064,497,"ini.bm");if(r)goto S_36151;} +do{ +qbs_set(__STRING_CURRENTINIFILENAME,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26064,498,"ini.bm");}while(r); +do{ +goto LABEL_INIFILENOTFOUND; +if(!qbevent)break;evnt(26064,499,"ini.bm");}while(r); +} +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free151.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +int16 FUNC_CREATEBUF(){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data152.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +if(!qbevent)break;evnt(26065,14,"simplebuffer.bm");}while(r); +do{ +*_FUNC_CREATEBUF_LONG_AUB=func_ubound(__ARRAY_STRING_SIMPLEBUFFER_ARRAY,1,1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26065,16,"simplebuffer.bm");}while(r); +do{ +*_FUNC_CREATEBUF_LONG_BUF= 0 ; +if(!qbevent)break;evnt(26065,17,"simplebuffer.bm");}while(r); +do{ +*_FUNC_CREATEBUF_INTEGER_CREATEBUF= -1 ; +if(!qbevent)break;evnt(26065,17,"simplebuffer.bm");}while(r); +S_36159:; +while((-(*_FUNC_CREATEBUF_LONG_BUF<*_FUNC_CREATEBUF_LONG_AUB))||new_error){ +if(qbevent){evnt(26065,18,"simplebuffer.bm");if(r)goto S_36159;} +S_36160:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[array_check((*_FUNC_CREATEBUF_LONG_BUF+ 1 )-__ARRAY_STRING_SIMPLEBUFFER_ARRAY[4],__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5])])),qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26065,19,"simplebuffer.bm");if(r)goto S_36160;} +do{ +goto ww_exit_3946; +if(!qbevent)break;evnt(26065,19,"simplebuffer.bm");}while(r); +} +do{ +*_FUNC_CREATEBUF_LONG_BUF=*_FUNC_CREATEBUF_LONG_BUF+ 106 ; +if(!qbevent)break;evnt(26065,20,"simplebuffer.bm");}while(r); +S_36164:; +if ((-(*_FUNC_CREATEBUF_LONG_BUF>= 3473090 ))||new_error){ +if(qbevent){evnt(26065,21,"simplebuffer.bm");if(r)goto S_36164;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26065,21,"simplebuffer.bm");}while(r); +} +ww_continue_3946:; +} +ww_exit_3946:; +S_36168:; +if ((-(*_FUNC_CREATEBUF_LONG_AUB<(*_FUNC_CREATEBUF_LONG_BUF+ 105 )))||new_error){ +if(qbevent){evnt(26065,24,"simplebuffer.bm");if(r)goto S_36168;} +do{ if (__ARRAY_STRING_SIMPLEBUFFER_ARRAY[2]&2){ error(10); @@ -122089,873 +122089,873 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[tmp_long]=(u while(tmp_long--) ((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -} -if(!qbevent)break;evnt(26065,24,"simplebuffer.bm");}while(r); -} -do{ -tmp_long=array_check((*_FUNC_CREATEBUF_LONG_BUF+ 0 )-__ARRAY_STRING_SIMPLEBUFFER_ARRAY[4],__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[tmp_long])),func_space( 16384 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26065,26,"simplebuffer.bm");}while(r); -do{ -tmp_long=array_check((*_FUNC_CREATEBUF_LONG_BUF+ 1 )-__ARRAY_STRING_SIMPLEBUFFER_ARRAY[4],__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[tmp_long])),qbs_add(qbs_add(qbs_add(l2string( 1 ),l2string( 0 )),qbs_new_txt_len("EolU",4)),l2string( -1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26065,27,"simplebuffer.bm");}while(r); -do{ -*_FUNC_CREATEBUF_INTEGER_CREATEBUF=*_FUNC_CREATEBUF_LONG_BUF/ 106 ; -if(!qbevent)break;evnt(26065,29,"simplebuffer.bm");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free152.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -return *_FUNC_CREATEBUF_INTEGER_CREATEBUF; -} -void SUB_DISPOSEBUF(int16*_SUB_DISPOSEBUF_INTEGER_HANDLE){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data153.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -if(!qbevent)break;evnt(26065,35,"simplebuffer.bm");}while(r); -do{ -*_SUB_DISPOSEBUF_LONG_BUF=*_SUB_DISPOSEBUF_INTEGER_HANDLE* 106 ; -if(!qbevent)break;evnt(26065,37,"simplebuffer.bm");}while(r); -do{ -tmp_long=array_check((*_SUB_DISPOSEBUF_LONG_BUF+ 0 )-__ARRAY_STRING_SIMPLEBUFFER_ARRAY[4],__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[tmp_long])),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26065,38,"simplebuffer.bm");}while(r); -do{ -tmp_long=array_check((*_SUB_DISPOSEBUF_LONG_BUF+ 1 )-__ARRAY_STRING_SIMPLEBUFFER_ARRAY[4],__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[tmp_long])),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26065,39,"simplebuffer.bm");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free153.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -int16 FUNC_FILETOBUF(qbs*_FUNC_FILETOBUF_STRING_FILESPEC){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data154.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -if(!qbevent)break;evnt(26065,45,"simplebuffer.bm");}while(r); -do{ -*_FUNC_FILETOBUF_INTEGER_HAN=FUNC_CREATEBUF(); -if(!qbevent)break;evnt(26065,47,"simplebuffer.bm");}while(r); -do{ -*_FUNC_FILETOBUF_LONG_BUF=*_FUNC_FILETOBUF_INTEGER_HAN* 106 ; -if(!qbevent)break;evnt(26065,48,"simplebuffer.bm");}while(r); -S_36181:; -if ((-(*_FUNC_FILETOBUF_INTEGER_HAN>= 0 ))||new_error){ -if(qbevent){evnt(26065,50,"simplebuffer.bm");if(r)goto S_36181;} -do{ -*_FUNC_FILETOBUF_INTEGER_FF=func_freefile(); -if(!qbevent)break;evnt(26065,51,"simplebuffer.bm");}while(r); -do{ -sub_open(_FUNC_FILETOBUF_STRING_FILESPEC, 2 ,NULL, 4 ,*_FUNC_FILETOBUF_INTEGER_FF,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26065,52,"simplebuffer.bm");}while(r); -do{ -*_FUNC_FILETOBUF_INTEGER64_FL=func_lof(*_FUNC_FILETOBUF_INTEGER_FF); -if(!qbevent)break;evnt(26065,53,"simplebuffer.bm");}while(r); -do{ -*_FUNC_FILETOBUF_LONG_EXT=*_FUNC_FILETOBUF_INTEGER64_FL% 16384 ; -if(!qbevent)break;evnt(26065,53,"simplebuffer.bm");}while(r); -do{ -tmp_long=array_check((*_FUNC_FILETOBUF_LONG_BUF+ 0 )-__ARRAY_STRING_SIMPLEBUFFER_ARRAY[4],__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[tmp_long])),func_space(*_FUNC_FILETOBUF_INTEGER64_FL)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26065,55,"simplebuffer.bm");}while(r); -do{ -sub_get2(*_FUNC_FILETOBUF_INTEGER_FF,NULL,((qbs*)(((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[array_check((*_FUNC_FILETOBUF_LONG_BUF+ 0 )-__ARRAY_STRING_SIMPLEBUFFER_ARRAY[4],__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5])])),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26065,56,"simplebuffer.bm");}while(r); -S_36188:; -if ((-(*_FUNC_FILETOBUF_LONG_EXT> 0 ))||new_error){ -if(qbevent){evnt(26065,57,"simplebuffer.bm");if(r)goto S_36188;} -do{ -tmp_long=array_check((*_FUNC_FILETOBUF_LONG_BUF+ 0 )-__ARRAY_STRING_SIMPLEBUFFER_ARRAY[4],__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[tmp_long])),qbs_add(((qbs*)(((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[array_check((*_FUNC_FILETOBUF_LONG_BUF+ 0 )-__ARRAY_STRING_SIMPLEBUFFER_ARRAY[4],__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5])])),func_space( 16384 -*_FUNC_FILETOBUF_LONG_EXT))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26065,58,"simplebuffer.bm");}while(r); -} -do{ -sub_mid(((qbs*)(((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[array_check((*_FUNC_FILETOBUF_LONG_BUF+ 1 )-__ARRAY_STRING_SIMPLEBUFFER_ARRAY[4],__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5])])), 1 , 4 ,l2string( 1 ),1); -if(!qbevent)break;evnt(26065,61,"simplebuffer.bm");}while(r); -do{ -sub_mid(((qbs*)(((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[array_check((*_FUNC_FILETOBUF_LONG_BUF+ 1 )-__ARRAY_STRING_SIMPLEBUFFER_ARRAY[4],__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5])])), 5 , 4 ,l2string(*_FUNC_FILETOBUF_INTEGER64_FL),1); -if(!qbevent)break;evnt(26065,62,"simplebuffer.bm");}while(r); -do{ -sub_mid(((qbs*)(((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[array_check((*_FUNC_FILETOBUF_LONG_BUF+ 1 )-__ARRAY_STRING_SIMPLEBUFFER_ARRAY[4],__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5])])), 13 , 4 ,l2string( 0 ),1); -if(!qbevent)break;evnt(26065,63,"simplebuffer.bm");}while(r); -do{ -sub_close(*_FUNC_FILETOBUF_INTEGER_FF,1); -if(!qbevent)break;evnt(26065,64,"simplebuffer.bm");}while(r); -} -do{ -*_FUNC_FILETOBUF_INTEGER_FILETOBUF=*_FUNC_FILETOBUF_INTEGER_HAN; -if(!qbevent)break;evnt(26065,67,"simplebuffer.bm");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free154.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -return *_FUNC_FILETOBUF_INTEGER_FILETOBUF; -} -void SUB_BUFTOFILE(int16*_SUB_BUFTOFILE_INTEGER_HANDLE,qbs*_SUB_BUFTOFILE_STRING_FILESPEC){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data155.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -if(!qbevent)break;evnt(26065,73,"simplebuffer.bm");}while(r); -do{ -*_SUB_BUFTOFILE_LONG_BUF=*_SUB_BUFTOFILE_INTEGER_HANDLE* 106 ; -if(!qbevent)break;evnt(26065,75,"simplebuffer.bm");}while(r); -do{ -*_SUB_BUFTOFILE_INTEGER_FF=func_freefile(); -if(!qbevent)break;evnt(26065,76,"simplebuffer.bm");}while(r); -do{ -qbs_set(_SUB_BUFTOFILE_STRING_DAT,qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[array_check((*_SUB_BUFTOFILE_LONG_BUF+ 0 )-__ARRAY_STRING_SIMPLEBUFFER_ARRAY[4],__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5])])),FUNC_GETBUFLEN(_SUB_BUFTOFILE_INTEGER_HANDLE))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26065,76,"simplebuffer.bm");}while(r); -do{ -sub_open(_SUB_BUFTOFILE_STRING_FILESPEC, 4 ,NULL, 4 ,*_SUB_BUFTOFILE_INTEGER_FF,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26065,77,"simplebuffer.bm");}while(r); -do{ -sub_close(*_SUB_BUFTOFILE_INTEGER_FF,1); -if(!qbevent)break;evnt(26065,77,"simplebuffer.bm");}while(r); -do{ -sub_open(_SUB_BUFTOFILE_STRING_FILESPEC, 2 ,NULL, 4 ,*_SUB_BUFTOFILE_INTEGER_FF,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26065,78,"simplebuffer.bm");}while(r); -do{ -sub_put2(*_SUB_BUFTOFILE_INTEGER_FF,NULL,byte_element((uint64)_SUB_BUFTOFILE_STRING_DAT->chr,_SUB_BUFTOFILE_STRING_DAT->len,byte_element_3949),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26065,79,"simplebuffer.bm");}while(r); -do{ -sub_close(*_SUB_BUFTOFILE_INTEGER_FF,1); -if(!qbevent)break;evnt(26065,80,"simplebuffer.bm");}while(r); -do{ -sub_mid(((qbs*)(((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[array_check((*_SUB_BUFTOFILE_LONG_BUF+ 1 )-__ARRAY_STRING_SIMPLEBUFFER_ARRAY[4],__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5])])), 13 , 4 ,l2string( 0 ),1); -if(!qbevent)break;evnt(26065,82,"simplebuffer.bm");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free155.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -qbs* FUNC_READBUFLINE(int16*_FUNC_READBUFLINE_INTEGER_HANDLE){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data156.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -if(!qbevent)break;evnt(26065,88,"simplebuffer.bm");}while(r); -do{ -*_FUNC_READBUFLINE_LONG_BUF=*_FUNC_READBUFLINE_INTEGER_HANDLE* 106 ; -if(!qbevent)break;evnt(26065,90,"simplebuffer.bm");}while(r); -do{ -*_FUNC_READBUFLINE_LONG_CUR=FUNC_GETBUFPOS(_FUNC_READBUFLINE_INTEGER_HANDLE); -if(!qbevent)break;evnt(26065,91,"simplebuffer.bm");}while(r); -do{ -*_FUNC_READBUFLINE_INTEGER64_CBL=FUNC_GETBUFLEN(_FUNC_READBUFLINE_INTEGER_HANDLE); -if(!qbevent)break;evnt(26065,91,"simplebuffer.bm");}while(r); -do{ -qbs_set(_FUNC_READBUFLINE_STRING_BRC,FUNC_BUFEOLSEQ(_FUNC_READBUFLINE_INTEGER_HANDLE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26065,92,"simplebuffer.bm");}while(r); -do{ -*_FUNC_READBUFLINE_INTEGER_BRL=_FUNC_READBUFLINE_STRING_BRC->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26065,92,"simplebuffer.bm");}while(r); -do{ -*_FUNC_READBUFLINE_LONG_EOL=func_instr(*_FUNC_READBUFLINE_LONG_CUR,((qbs*)(((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[array_check((*_FUNC_READBUFLINE_LONG_BUF+ 0 )-__ARRAY_STRING_SIMPLEBUFFER_ARRAY[4],__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5])])),_FUNC_READBUFLINE_STRING_BRC,0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26065,94,"simplebuffer.bm");}while(r); -S_36214:; -if (((-(*_FUNC_READBUFLINE_LONG_EOL== 0 ))|(-(*_FUNC_READBUFLINE_LONG_EOL>*_FUNC_READBUFLINE_INTEGER64_CBL)))||new_error){ -if(qbevent){evnt(26065,95,"simplebuffer.bm");if(r)goto S_36214;} -do{ -*_FUNC_READBUFLINE_LONG_EOL=*_FUNC_READBUFLINE_INTEGER64_CBL+ 1 ; -if(!qbevent)break;evnt(26065,95,"simplebuffer.bm");}while(r); -do{ -*_FUNC_READBUFLINE_INTEGER_BRL= 0 ; -if(!qbevent)break;evnt(26065,95,"simplebuffer.bm");}while(r); -} -do{ -qbs_set(_FUNC_READBUFLINE_STRING_READBUFLINE,func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[array_check((*_FUNC_READBUFLINE_LONG_BUF+ 0 )-__ARRAY_STRING_SIMPLEBUFFER_ARRAY[4],__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5])])),*_FUNC_READBUFLINE_LONG_CUR,*_FUNC_READBUFLINE_LONG_EOL-*_FUNC_READBUFLINE_LONG_CUR,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26065,97,"simplebuffer.bm");}while(r); -do{ -sub_mid(((qbs*)(((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[array_check((*_FUNC_READBUFLINE_LONG_BUF+ 1 )-__ARRAY_STRING_SIMPLEBUFFER_ARRAY[4],__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5])])), 1 , 4 ,l2string(*_FUNC_READBUFLINE_LONG_EOL+*_FUNC_READBUFLINE_INTEGER_BRL),1); -if(!qbevent)break;evnt(26065,98,"simplebuffer.bm");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free156.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_READBUFLINE_STRING_READBUFLINE);return _FUNC_READBUFLINE_STRING_READBUFLINE; -} -void SUB_WRITEBUFLINE(int16*_SUB_WRITEBUFLINE_INTEGER_HANDLE,qbs*_SUB_WRITEBUFLINE_STRING_TEXT){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data157.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -if(!qbevent)break;evnt(26065,104,"simplebuffer.bm");}while(r); -do{ -*_SUB_WRITEBUFLINE_LONG_BUF=*_SUB_WRITEBUFLINE_INTEGER_HANDLE* 106 ; -if(!qbevent)break;evnt(26065,106,"simplebuffer.bm");}while(r); -do{ -*_SUB_WRITEBUFLINE_LONG_CUR=FUNC_GETBUFPOS(_SUB_WRITEBUFLINE_INTEGER_HANDLE); -if(!qbevent)break;evnt(26065,107,"simplebuffer.bm");}while(r); -do{ -*_SUB_WRITEBUFLINE_LONG_TXL=_SUB_WRITEBUFLINE_STRING_TEXT->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26065,107,"simplebuffer.bm");}while(r); -do{ -qbs_set(_SUB_WRITEBUFLINE_STRING_BRC,FUNC_BUFEOLSEQ(_SUB_WRITEBUFLINE_INTEGER_HANDLE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26065,108,"simplebuffer.bm");}while(r); -do{ -*_SUB_WRITEBUFLINE_INTEGER_BRL=_SUB_WRITEBUFLINE_STRING_BRC->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26065,108,"simplebuffer.bm");}while(r); -do{ -*_SUB_WRITEBUFLINE_INTEGER64_CBL=FUNC_GETBUFLEN(_SUB_WRITEBUFLINE_INTEGER_HANDLE); -if(!qbevent)break;evnt(26065,109,"simplebuffer.bm");}while(r); -do{ -*_SUB_WRITEBUFLINE_LONG_CHG=*_SUB_WRITEBUFLINE_LONG_TXL+*_SUB_WRITEBUFLINE_INTEGER_BRL; -if(!qbevent)break;evnt(26065,109,"simplebuffer.bm");}while(r); -do{ -*_SUB_WRITEBUFLINE_LONG_BSZ=((qbs*)(((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[array_check((*_SUB_WRITEBUFLINE_LONG_BUF+ 0 )-__ARRAY_STRING_SIMPLEBUFFER_ARRAY[4],__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5])]))->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26065,111,"simplebuffer.bm");}while(r); -do{ -*_SUB_WRITEBUFLINE_LONG_EXT= 0 ; -if(!qbevent)break;evnt(26065,111,"simplebuffer.bm");}while(r); -S_36230:; -while((-((*_SUB_WRITEBUFLINE_INTEGER64_CBL+*_SUB_WRITEBUFLINE_LONG_CHG)>(*_SUB_WRITEBUFLINE_LONG_BSZ+*_SUB_WRITEBUFLINE_LONG_EXT)))||new_error){ -if(qbevent){evnt(26065,112,"simplebuffer.bm");if(r)goto S_36230;} -do{ -*_SUB_WRITEBUFLINE_LONG_EXT=*_SUB_WRITEBUFLINE_LONG_EXT+ 16384 ; -if(!qbevent)break;evnt(26065,112,"simplebuffer.bm");}while(r); -ww_continue_3955:; -} -ww_exit_3955:; -S_36233:; -if ((-(*_SUB_WRITEBUFLINE_LONG_EXT> 0 ))||new_error){ -if(qbevent){evnt(26065,113,"simplebuffer.bm");if(r)goto S_36233;} -do{ -tmp_long=array_check((*_SUB_WRITEBUFLINE_LONG_BUF+ 0 )-__ARRAY_STRING_SIMPLEBUFFER_ARRAY[4],__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[tmp_long])),qbs_add(((qbs*)(((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[array_check((*_SUB_WRITEBUFLINE_LONG_BUF+ 0 )-__ARRAY_STRING_SIMPLEBUFFER_ARRAY[4],__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5])])),func_space(*_SUB_WRITEBUFLINE_LONG_EXT))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26065,114,"simplebuffer.bm");}while(r); -} -do{ -sub_mid(((qbs*)(((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[array_check((*_SUB_WRITEBUFLINE_LONG_BUF+ 0 )-__ARRAY_STRING_SIMPLEBUFFER_ARRAY[4],__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5])])),*_SUB_WRITEBUFLINE_LONG_CUR,0,qbs_add(qbs_add(_SUB_WRITEBUFLINE_STRING_TEXT,_SUB_WRITEBUFLINE_STRING_BRC),func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[array_check((*_SUB_WRITEBUFLINE_LONG_BUF+ 0 )-__ARRAY_STRING_SIMPLEBUFFER_ARRAY[4],__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5])])),*_SUB_WRITEBUFLINE_LONG_CUR,*_SUB_WRITEBUFLINE_INTEGER64_CBL-*_SUB_WRITEBUFLINE_LONG_CUR+ 1 ,0|1)),0); -if(!qbevent)break;evnt(26065,117,"simplebuffer.bm");}while(r); -do{ -sub_mid(((qbs*)(((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[array_check((*_SUB_WRITEBUFLINE_LONG_BUF+ 1 )-__ARRAY_STRING_SIMPLEBUFFER_ARRAY[4],__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5])])), 1 , 4 ,l2string(*_SUB_WRITEBUFLINE_LONG_CUR+*_SUB_WRITEBUFLINE_LONG_CHG),1); -if(!qbevent)break;evnt(26065,118,"simplebuffer.bm");}while(r); -do{ -sub_mid(((qbs*)(((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[array_check((*_SUB_WRITEBUFLINE_LONG_BUF+ 1 )-__ARRAY_STRING_SIMPLEBUFFER_ARRAY[4],__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5])])), 5 , 4 ,l2string(*_SUB_WRITEBUFLINE_INTEGER64_CBL+*_SUB_WRITEBUFLINE_LONG_CHG),1); -if(!qbevent)break;evnt(26065,119,"simplebuffer.bm");}while(r); -do{ -sub_mid(((qbs*)(((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[array_check((*_SUB_WRITEBUFLINE_LONG_BUF+ 1 )-__ARRAY_STRING_SIMPLEBUFFER_ARRAY[4],__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5])])), 13 , 4 ,l2string( -1 ),1); -if(!qbevent)break;evnt(26065,120,"simplebuffer.bm");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free157.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -qbs* FUNC_READBUFRAWDATA(int16*_FUNC_READBUFRAWDATA_INTEGER_HANDLE,int32*_FUNC_READBUFRAWDATA_LONG_SIZE){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data158.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -if(!qbevent)break;evnt(26065,126,"simplebuffer.bm");}while(r); -do{ -*_FUNC_READBUFRAWDATA_LONG_BUF=*_FUNC_READBUFRAWDATA_INTEGER_HANDLE* 106 ; -if(!qbevent)break;evnt(26065,128,"simplebuffer.bm");}while(r); -do{ -*_FUNC_READBUFRAWDATA_LONG_CUR=FUNC_GETBUFPOS(_FUNC_READBUFRAWDATA_INTEGER_HANDLE); -if(!qbevent)break;evnt(26065,129,"simplebuffer.bm");}while(r); -do{ -*_FUNC_READBUFRAWDATA_LONG_EOB=FUNC_GETBUFLEN(_FUNC_READBUFRAWDATA_INTEGER_HANDLE)+ 1 ; -if(!qbevent)break;evnt(26065,129,"simplebuffer.bm");}while(r); -S_36244:; -if ((-(*_FUNC_READBUFRAWDATA_LONG_SIZE>(*_FUNC_READBUFRAWDATA_LONG_EOB-*_FUNC_READBUFRAWDATA_LONG_CUR)))||new_error){ -if(qbevent){evnt(26065,130,"simplebuffer.bm");if(r)goto S_36244;} -do{ -*_FUNC_READBUFRAWDATA_LONG_SIZE=*_FUNC_READBUFRAWDATA_LONG_EOB-*_FUNC_READBUFRAWDATA_LONG_CUR; -if(!qbevent)break;evnt(26065,130,"simplebuffer.bm");}while(r); -} -do{ -qbs_set(_FUNC_READBUFRAWDATA_STRING_READBUFRAWDATA,func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[array_check((*_FUNC_READBUFRAWDATA_LONG_BUF+ 0 )-__ARRAY_STRING_SIMPLEBUFFER_ARRAY[4],__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5])])),*_FUNC_READBUFRAWDATA_LONG_CUR,*_FUNC_READBUFRAWDATA_LONG_SIZE,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26065,132,"simplebuffer.bm");}while(r); -do{ -sub_mid(((qbs*)(((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[array_check((*_FUNC_READBUFRAWDATA_LONG_BUF+ 1 )-__ARRAY_STRING_SIMPLEBUFFER_ARRAY[4],__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5])])), 1 , 4 ,l2string(*_FUNC_READBUFRAWDATA_LONG_CUR+*_FUNC_READBUFRAWDATA_LONG_SIZE),1); -if(!qbevent)break;evnt(26065,133,"simplebuffer.bm");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free158.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_READBUFRAWDATA_STRING_READBUFRAWDATA);return _FUNC_READBUFRAWDATA_STRING_READBUFRAWDATA; -} -void SUB_WRITEBUFRAWDATA(int16*_SUB_WRITEBUFRAWDATA_INTEGER_HANDLE,qbs*_SUB_WRITEBUFRAWDATA_STRING_RAWDATA){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data159.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -if(!qbevent)break;evnt(26065,139,"simplebuffer.bm");}while(r); -do{ -*_SUB_WRITEBUFRAWDATA_LONG_BUF=*_SUB_WRITEBUFRAWDATA_INTEGER_HANDLE* 106 ; -if(!qbevent)break;evnt(26065,141,"simplebuffer.bm");}while(r); -do{ -*_SUB_WRITEBUFRAWDATA_LONG_CUR=FUNC_GETBUFPOS(_SUB_WRITEBUFRAWDATA_INTEGER_HANDLE); -if(!qbevent)break;evnt(26065,142,"simplebuffer.bm");}while(r); -do{ -*_SUB_WRITEBUFRAWDATA_LONG_RDL=_SUB_WRITEBUFRAWDATA_STRING_RAWDATA->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26065,142,"simplebuffer.bm");}while(r); -do{ -*_SUB_WRITEBUFRAWDATA_INTEGER64_CBL=FUNC_GETBUFLEN(_SUB_WRITEBUFRAWDATA_INTEGER_HANDLE); -if(!qbevent)break;evnt(26065,143,"simplebuffer.bm");}while(r); -do{ -*_SUB_WRITEBUFRAWDATA_LONG_BSZ=((qbs*)(((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[array_check((*_SUB_WRITEBUFRAWDATA_LONG_BUF+ 0 )-__ARRAY_STRING_SIMPLEBUFFER_ARRAY[4],__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5])]))->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26065,145,"simplebuffer.bm");}while(r); -do{ -*_SUB_WRITEBUFRAWDATA_LONG_EXT= 0 ; -if(!qbevent)break;evnt(26065,145,"simplebuffer.bm");}while(r); -S_36256:; -while((-((*_SUB_WRITEBUFRAWDATA_INTEGER64_CBL+*_SUB_WRITEBUFRAWDATA_LONG_RDL)>(*_SUB_WRITEBUFRAWDATA_LONG_BSZ+*_SUB_WRITEBUFRAWDATA_LONG_EXT)))||new_error){ -if(qbevent){evnt(26065,146,"simplebuffer.bm");if(r)goto S_36256;} -do{ -*_SUB_WRITEBUFRAWDATA_LONG_EXT=*_SUB_WRITEBUFRAWDATA_LONG_EXT+ 16384 ; -if(!qbevent)break;evnt(26065,146,"simplebuffer.bm");}while(r); -ww_continue_3959:; -} -ww_exit_3959:; -S_36259:; -if ((-(*_SUB_WRITEBUFRAWDATA_LONG_EXT> 0 ))||new_error){ -if(qbevent){evnt(26065,147,"simplebuffer.bm");if(r)goto S_36259;} -do{ -tmp_long=array_check((*_SUB_WRITEBUFRAWDATA_LONG_BUF+ 0 )-__ARRAY_STRING_SIMPLEBUFFER_ARRAY[4],__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[tmp_long])),qbs_add(((qbs*)(((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[array_check((*_SUB_WRITEBUFRAWDATA_LONG_BUF+ 0 )-__ARRAY_STRING_SIMPLEBUFFER_ARRAY[4],__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5])])),func_space(*_SUB_WRITEBUFRAWDATA_LONG_EXT))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26065,148,"simplebuffer.bm");}while(r); -} -do{ -sub_mid(((qbs*)(((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[array_check((*_SUB_WRITEBUFRAWDATA_LONG_BUF+ 0 )-__ARRAY_STRING_SIMPLEBUFFER_ARRAY[4],__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5])])),*_SUB_WRITEBUFRAWDATA_LONG_CUR,0,qbs_add(_SUB_WRITEBUFRAWDATA_STRING_RAWDATA,func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[array_check((*_SUB_WRITEBUFRAWDATA_LONG_BUF+ 0 )-__ARRAY_STRING_SIMPLEBUFFER_ARRAY[4],__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5])])),*_SUB_WRITEBUFRAWDATA_LONG_CUR,*_SUB_WRITEBUFRAWDATA_INTEGER64_CBL-*_SUB_WRITEBUFRAWDATA_LONG_CUR+ 1 ,0|1)),0); -if(!qbevent)break;evnt(26065,151,"simplebuffer.bm");}while(r); -do{ -sub_mid(((qbs*)(((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[array_check((*_SUB_WRITEBUFRAWDATA_LONG_BUF+ 1 )-__ARRAY_STRING_SIMPLEBUFFER_ARRAY[4],__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5])])), 1 , 4 ,l2string(*_SUB_WRITEBUFRAWDATA_LONG_CUR+*_SUB_WRITEBUFRAWDATA_LONG_RDL),1); -if(!qbevent)break;evnt(26065,152,"simplebuffer.bm");}while(r); -do{ -sub_mid(((qbs*)(((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[array_check((*_SUB_WRITEBUFRAWDATA_LONG_BUF+ 1 )-__ARRAY_STRING_SIMPLEBUFFER_ARRAY[4],__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5])])), 5 , 4 ,l2string(*_SUB_WRITEBUFRAWDATA_INTEGER64_CBL+*_SUB_WRITEBUFRAWDATA_LONG_RDL),1); -if(!qbevent)break;evnt(26065,153,"simplebuffer.bm");}while(r); -S_36265:; -if ((-(*_SUB_WRITEBUFRAWDATA_LONG_RDL> 0 ))||new_error){ -if(qbevent){evnt(26065,154,"simplebuffer.bm");if(r)goto S_36265;} -do{ -sub_mid(((qbs*)(((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[array_check((*_SUB_WRITEBUFRAWDATA_LONG_BUF+ 1 )-__ARRAY_STRING_SIMPLEBUFFER_ARRAY[4],__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5])])), 13 , 4 ,l2string( -1 ),1); -if(!qbevent)break;evnt(26065,155,"simplebuffer.bm");}while(r); -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free159.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -int32 FUNC_SEEKBUF(int16*_FUNC_SEEKBUF_INTEGER_HANDLE,int32*_FUNC_SEEKBUF_LONG_DISPLACE,int16*_FUNC_SEEKBUF_INTEGER_MODE){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data160.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -if(!qbevent)break;evnt(26065,162,"simplebuffer.bm");}while(r); -do{ -*_FUNC_SEEKBUF_LONG_BUF=*_FUNC_SEEKBUF_INTEGER_HANDLE* 106 ; -if(!qbevent)break;evnt(26065,164,"simplebuffer.bm");}while(r); -do{ -*_FUNC_SEEKBUF_LONG_CUR=FUNC_GETBUFPOS(_FUNC_SEEKBUF_INTEGER_HANDLE); -if(!qbevent)break;evnt(26065,165,"simplebuffer.bm");}while(r); -do{ -*_FUNC_SEEKBUF_LONG_EOB=FUNC_GETBUFLEN(_FUNC_SEEKBUF_INTEGER_HANDLE)+ 1 ; -if(!qbevent)break;evnt(26065,165,"simplebuffer.bm");}while(r); -do{ -qbs_set(_FUNC_SEEKBUF_STRING_BRC,FUNC_BUFEOLSEQ(_FUNC_SEEKBUF_INTEGER_HANDLE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26065,166,"simplebuffer.bm");}while(r); -do{ -*_FUNC_SEEKBUF_INTEGER_BRL=_FUNC_SEEKBUF_STRING_BRC->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26065,166,"simplebuffer.bm");}while(r); -S_36274:; -if(qbevent){evnt(26065,168,"simplebuffer.bm");if(r)goto S_36274;} -S_36275:; -if (((*_FUNC_SEEKBUF_INTEGER_MODE==( -22 )))||new_error){ -if(qbevent){evnt(26065,169,"simplebuffer.bm");if(r)goto S_36275;} -do{ -*_FUNC_SEEKBUF_LONG_ORIGIN= 1 ; -if(!qbevent)break;evnt(26065,169,"simplebuffer.bm");}while(r); -sc_ec_204_end:; -goto sc_3961_end; -} -S_36277:; -if (((*_FUNC_SEEKBUF_INTEGER_MODE==( -23 )))||new_error){ -if(qbevent){evnt(26065,170,"simplebuffer.bm");if(r)goto S_36277;} -do{ -*_FUNC_SEEKBUF_LONG_ORIGIN=*_FUNC_SEEKBUF_LONG_CUR; -if(!qbevent)break;evnt(26065,170,"simplebuffer.bm");}while(r); -sc_ec_205_end:; -goto sc_3961_end; -} -S_36279:; -if (((*_FUNC_SEEKBUF_INTEGER_MODE==( -24 )))||new_error){ -if(qbevent){evnt(26065,171,"simplebuffer.bm");if(r)goto S_36279;} -do{ -*_FUNC_SEEKBUF_LONG_ORIGIN=*_FUNC_SEEKBUF_LONG_EOB; -if(!qbevent)break;evnt(26065,171,"simplebuffer.bm");}while(r); -sc_ec_206_end:; -goto sc_3961_end; -} -do{ -*_FUNC_SEEKBUF_LONG_SEEKBUF= -11 ; -if(!qbevent)break;evnt(26065,173,"simplebuffer.bm");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26065,174,"simplebuffer.bm");}while(r); -sc_3961_end:; -do{ -*_FUNC_SEEKBUF_LONG_NEWPOS=*_FUNC_SEEKBUF_LONG_ORIGIN+*_FUNC_SEEKBUF_LONG_DISPLACE; -if(!qbevent)break;evnt(26065,177,"simplebuffer.bm");}while(r); -S_36286:; -if (((-(*_FUNC_SEEKBUF_LONG_NEWPOS< 1 ))|(-(*_FUNC_SEEKBUF_LONG_NEWPOS>*_FUNC_SEEKBUF_LONG_EOB)))||new_error){ -if(qbevent){evnt(26065,178,"simplebuffer.bm");if(r)goto S_36286;} -do{ -*_FUNC_SEEKBUF_LONG_SEEKBUF= -12 ; -if(!qbevent)break;evnt(26065,179,"simplebuffer.bm");}while(r); -}else{ -do{ -sub_mid(((qbs*)(((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[array_check((*_FUNC_SEEKBUF_LONG_BUF+ 1 )-__ARRAY_STRING_SIMPLEBUFFER_ARRAY[4],__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5])])), 1 , 4 ,l2string(*_FUNC_SEEKBUF_LONG_NEWPOS),1); -if(!qbevent)break;evnt(26065,181,"simplebuffer.bm");}while(r); -do{ -*_FUNC_SEEKBUF_LONG_SEEKBUF=*_FUNC_SEEKBUF_LONG_CUR; -if(!qbevent)break;evnt(26065,182,"simplebuffer.bm");}while(r); -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free160.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -return *_FUNC_SEEKBUF_LONG_SEEKBUF; -} -int32 FUNC_GETBUFPOS(int16*_FUNC_GETBUFPOS_INTEGER_HANDLE){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data161.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -if(!qbevent)break;evnt(26065,189,"simplebuffer.bm");}while(r); -do{ -*_FUNC_GETBUFPOS_LONG_BUF=*_FUNC_GETBUFPOS_INTEGER_HANDLE* 106 ; -if(!qbevent)break;evnt(26065,191,"simplebuffer.bm");}while(r); -do{ -*_FUNC_GETBUFPOS_LONG_GETBUFPOS=string2l(func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[array_check((*_FUNC_GETBUFPOS_LONG_BUF+ 1 )-__ARRAY_STRING_SIMPLEBUFFER_ARRAY[4],__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5])])), 1 , 4 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26065,192,"simplebuffer.bm");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free161.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -return *_FUNC_GETBUFPOS_LONG_GETBUFPOS; -} -int32 FUNC_GETBUFLEN(int16*_FUNC_GETBUFLEN_INTEGER_HANDLE){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data162.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -if(!qbevent)break;evnt(26065,198,"simplebuffer.bm");}while(r); -do{ -*_FUNC_GETBUFLEN_LONG_BUF=*_FUNC_GETBUFLEN_INTEGER_HANDLE* 106 ; -if(!qbevent)break;evnt(26065,200,"simplebuffer.bm");}while(r); -do{ -*_FUNC_GETBUFLEN_LONG_GETBUFLEN=string2l(func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[array_check((*_FUNC_GETBUFLEN_LONG_BUF+ 1 )-__ARRAY_STRING_SIMPLEBUFFER_ARRAY[4],__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5])])), 5 , 4 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26065,201,"simplebuffer.bm");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free162.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -return *_FUNC_GETBUFLEN_LONG_GETBUFLEN; -} -int16 FUNC_ENDOFBUF(int16*_FUNC_ENDOFBUF_INTEGER_HANDLE){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data163.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -*_FUNC_ENDOFBUF_INTEGER_ENDOFBUF=(-(FUNC_GETBUFPOS(_FUNC_ENDOFBUF_INTEGER_HANDLE)>FUNC_GETBUFLEN(_FUNC_ENDOFBUF_INTEGER_HANDLE))); -if(!qbevent)break;evnt(26065,207,"simplebuffer.bm");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free163.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -return *_FUNC_ENDOFBUF_INTEGER_ENDOFBUF; -} -int16 FUNC_ISBUFCHANGED(int16*_FUNC_ISBUFCHANGED_INTEGER_HANDLE){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data164.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -if(!qbevent)break;evnt(26065,213,"simplebuffer.bm");}while(r); -do{ -*_FUNC_ISBUFCHANGED_LONG_BUF=*_FUNC_ISBUFCHANGED_INTEGER_HANDLE* 106 ; -if(!qbevent)break;evnt(26065,215,"simplebuffer.bm");}while(r); -do{ -*_FUNC_ISBUFCHANGED_INTEGER_ISBUFCHANGED=string2l(func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[array_check((*_FUNC_ISBUFCHANGED_LONG_BUF+ 1 )-__ARRAY_STRING_SIMPLEBUFFER_ARRAY[4],__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5])])), 13 , 4 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26065,216,"simplebuffer.bm");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free164.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -return *_FUNC_ISBUFCHANGED_INTEGER_ISBUFCHANGED; -} -qbs* FUNC_BUFEOLSEQ(int16*_FUNC_BUFEOLSEQ_INTEGER_HANDLE){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data165.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -if(!qbevent)break;evnt(26065,222,"simplebuffer.bm");}while(r); -do{ -*_FUNC_BUFEOLSEQ_LONG_BUF=*_FUNC_BUFEOLSEQ_INTEGER_HANDLE* 106 ; -if(!qbevent)break;evnt(26065,224,"simplebuffer.bm");}while(r); -S_36304:; -qbs_set(sc_3962,func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[array_check((*_FUNC_BUFEOLSEQ_LONG_BUF+ 1 )-__ARRAY_STRING_SIMPLEBUFFER_ARRAY[4],__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5])])), 9 , 4 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(qbevent){evnt(26065,225,"simplebuffer.bm");if(r)goto S_36304;} -S_36305:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3962,qbs_new_txt_len("EolU",4))||qbs_equal(sc_3962,qbs_new_txt_len("EolN",4))))||new_error){ -if(qbevent){evnt(26065,226,"simplebuffer.bm");if(r)goto S_36305;} -do{ -qbs_set(_FUNC_BUFEOLSEQ_STRING_BUFEOLSEQ,qbs_add(func_chr( 13 ),func_chr( 10 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26065,227,"simplebuffer.bm");}while(r); -S_36307:; -if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,func__os(),qbs_new_txt_len("[LINUX]",7),0)> 0 )))||new_error){ -if(qbevent){evnt(26065,228,"simplebuffer.bm");if(r)goto S_36307;} -do{ -qbs_set(_FUNC_BUFEOLSEQ_STRING_BUFEOLSEQ,func_chr( 10 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26065,228,"simplebuffer.bm");}while(r); -} -sc_ec_207_end:; -goto sc_3962_end; -} -S_36310:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3962,qbs_new_txt_len("EolL",4))))||new_error){ -if(qbevent){evnt(26065,229,"simplebuffer.bm");if(r)goto S_36310;} -do{ -qbs_set(_FUNC_BUFEOLSEQ_STRING_BUFEOLSEQ,func_chr( 10 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26065,230,"simplebuffer.bm");}while(r); -sc_ec_208_end:; -goto sc_3962_end; -} -S_36312:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3962,qbs_new_txt_len("EolW",4))))||new_error){ -if(qbevent){evnt(26065,231,"simplebuffer.bm");if(r)goto S_36312;} -do{ -qbs_set(_FUNC_BUFEOLSEQ_STRING_BUFEOLSEQ,qbs_add(func_chr( 13 ),func_chr( 10 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26065,232,"simplebuffer.bm");}while(r); -sc_ec_209_end:; -goto sc_3962_end; -} -sc_3962_end:; -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free165.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_BUFEOLSEQ_STRING_BUFEOLSEQ);return _FUNC_BUFEOLSEQ_STRING_BUFEOLSEQ; -} -int16 FUNC_OPENBUFFER(qbs*_FUNC_OPENBUFFER_STRING_SBMODE,qbs*_FUNC_OPENBUFFER_STRING_SBNAME){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data166.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -if(!qbevent)break;evnt(26065,15,"sb_qb64pe_extension.bm");}while(r); -S_36316:; -fornext_value3966= 0 ; -fornext_finalvalue3966=func_ubound(__ARRAY_STRING_SBUFN,1,1); -fornext_step3966= 1 ; -if (fornext_step3966<0) fornext_step_negative3966=1; else fornext_step_negative3966=0; -if (new_error) goto fornext_error3966; -goto fornext_entrylabel3966; -while(1){ -fornext_value3966=fornext_step3966+(*_FUNC_OPENBUFFER_INTEGER_BUF); -fornext_entrylabel3966: -*_FUNC_OPENBUFFER_INTEGER_BUF=fornext_value3966; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative3966){ -if (fornext_value3966fornext_finalvalue3966) break; -} -fornext_error3966:; -if(qbevent){evnt(26065,17,"sb_qb64pe_extension.bm");if(r)goto S_36316;} -S_36317:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_SBUFN[0]))[array_check((*_FUNC_OPENBUFFER_INTEGER_BUF)-__ARRAY_STRING_SBUFN[4],__ARRAY_STRING_SBUFN[5])])),_FUNC_OPENBUFFER_STRING_SBNAME)))||new_error){ -if(qbevent){evnt(26065,18,"sb_qb64pe_extension.bm");if(r)goto S_36317;} -do{ -goto fornext_exit_3965; -if(!qbevent)break;evnt(26065,18,"sb_qb64pe_extension.bm");}while(r); -} -fornext_continue_3965:; -} -fornext_exit_3965:; -S_36321:; -qbs_set(sc_3967,qbs_ucase(qbs_left(_FUNC_OPENBUFFER_STRING_SBMODE, 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(qbevent){evnt(26065,21,"sb_qb64pe_extension.bm");if(r)goto S_36321;} -S_36322:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3967,qbs_new_txt_len("A",1))))||new_error){ -if(qbevent){evnt(26065,22,"sb_qb64pe_extension.bm");if(r)goto S_36322;} -S_36323:; -if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_OPENBUFFER_INTEGER_BUF>func_ubound(__ARRAY_STRING_SBUFN,1,1))))||new_error){ -if(qbevent){evnt(26065,23,"sb_qb64pe_extension.bm");if(r)goto S_36323;} -do{ -return_point[next_return_point++]=8; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_NEWBUF; -RETURN_8:; -if(!qbevent)break;evnt(26065,23,"sb_qb64pe_extension.bm");}while(r); -} -do{ -*_FUNC_OPENBUFFER_LONG_NUL=FUNC_SEEKBUF(_FUNC_OPENBUFFER_INTEGER_BUF,&(pass3968= 0 ),&(pass3969= -24 )); -if(!qbevent)break;evnt(26065,24,"sb_qb64pe_extension.bm");}while(r); -sc_ec_210_end:; -goto sc_3967_end; -} -S_36327:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3967,qbs_new_txt_len("B",1))))||new_error){ -if(qbevent){evnt(26065,25,"sb_qb64pe_extension.bm");if(r)goto S_36327;} -S_36328:; -if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_OPENBUFFER_INTEGER_BUF>func_ubound(__ARRAY_STRING_SBUFN,1,1))))||new_error){ -if(qbevent){evnt(26065,26,"sb_qb64pe_extension.bm");if(r)goto S_36328;} -do{ -return_point[next_return_point++]=9; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_NEWBUF; -RETURN_9:; -if(!qbevent)break;evnt(26065,26,"sb_qb64pe_extension.bm");}while(r); -} -do{ -*_FUNC_OPENBUFFER_LONG_NUL=FUNC_SEEKBUF(_FUNC_OPENBUFFER_INTEGER_BUF,&(pass3970= 0 ),&(pass3971= -22 )); -if(!qbevent)break;evnt(26065,27,"sb_qb64pe_extension.bm");}while(r); -sc_ec_211_end:; -goto sc_3967_end; -} -S_36332:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3967,qbs_new_txt_len("I",1))))||new_error){ -if(qbevent){evnt(26065,28,"sb_qb64pe_extension.bm");if(r)goto S_36332;} -S_36333:; -if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_OPENBUFFER_INTEGER_BUF>func_ubound(__ARRAY_STRING_SBUFN,1,1))))||new_error){ -if(qbevent){evnt(26065,29,"sb_qb64pe_extension.bm");if(r)goto S_36333;} -do{ -return_point[next_return_point++]=10; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_LOADBUF; -RETURN_10:; -if(!qbevent)break;evnt(26065,29,"sb_qb64pe_extension.bm");}while(r); -} -do{ -*_FUNC_OPENBUFFER_LONG_NUL=FUNC_SEEKBUF(_FUNC_OPENBUFFER_INTEGER_BUF,&(pass3972= 0 ),&(pass3973= -22 )); -if(!qbevent)break;evnt(26065,30,"sb_qb64pe_extension.bm");}while(r); -sc_ec_212_end:; -goto sc_3967_end; -} -S_36337:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3967,qbs_new_txt_len("O",1))))||new_error){ -if(qbevent){evnt(26065,31,"sb_qb64pe_extension.bm");if(r)goto S_36337;} -S_36338:; -if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_OPENBUFFER_INTEGER_BUF<=func_ubound(__ARRAY_STRING_SBUFN,1,1))))||new_error){ -if(qbevent){evnt(26065,32,"sb_qb64pe_extension.bm");if(r)goto S_36338;} -do{ -SUB_DISPOSEBUF(_FUNC_OPENBUFFER_INTEGER_BUF); -if(!qbevent)break;evnt(26065,32,"sb_qb64pe_extension.bm");}while(r); -do{ -tmp_long=array_check((*_FUNC_OPENBUFFER_INTEGER_BUF)-__ARRAY_STRING_SBUFN[4],__ARRAY_STRING_SBUFN[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SBUFN[0]))[tmp_long])),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26065,32,"sb_qb64pe_extension.bm");}while(r); -} -do{ -return_point[next_return_point++]=11; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_NEWBUF; -RETURN_11:; -if(!qbevent)break;evnt(26065,33,"sb_qb64pe_extension.bm");}while(r); -sc_ec_213_end:; -goto sc_3967_end; -} -do{ -*_FUNC_OPENBUFFER_INTEGER_BUF= -1 ; -if(!qbevent)break;evnt(26065,35,"sb_qb64pe_extension.bm");}while(r); -sc_3967_end:; -do{ -*_FUNC_OPENBUFFER_INTEGER_OPENBUFFER=*_FUNC_OPENBUFFER_INTEGER_BUF; -if(!qbevent)break;evnt(26065,37,"sb_qb64pe_extension.bm");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26065,38,"sb_qb64pe_extension.bm");}while(r); -LABEL_NEWBUF:; -if(qbevent){evnt(26065,40,"sb_qb64pe_extension.bm");r=0;} -do{ -*_FUNC_OPENBUFFER_INTEGER_BUF=FUNC_CREATEBUF(); -if(!qbevent)break;evnt(26065,41,"sb_qb64pe_extension.bm");}while(r); -S_36349:; -if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_OPENBUFFER_INTEGER_BUF>func_ubound(__ARRAY_STRING_SBUFN,1,1))))||new_error){ -if(qbevent){evnt(26065,42,"sb_qb64pe_extension.bm");if(r)goto S_36349;} -do{ +} +if(!qbevent)break;evnt(26065,24,"simplebuffer.bm");}while(r); +} +do{ +tmp_long=array_check((*_FUNC_CREATEBUF_LONG_BUF+ 0 )-__ARRAY_STRING_SIMPLEBUFFER_ARRAY[4],__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[tmp_long])),func_space( 16384 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26065,26,"simplebuffer.bm");}while(r); +do{ +tmp_long=array_check((*_FUNC_CREATEBUF_LONG_BUF+ 1 )-__ARRAY_STRING_SIMPLEBUFFER_ARRAY[4],__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[tmp_long])),qbs_add(qbs_add(qbs_add(l2string( 1 ),l2string( 0 )),qbs_new_txt_len("EolU",4)),l2string( -1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26065,27,"simplebuffer.bm");}while(r); +do{ +*_FUNC_CREATEBUF_INTEGER_CREATEBUF=*_FUNC_CREATEBUF_LONG_BUF/ 106 ; +if(!qbevent)break;evnt(26065,29,"simplebuffer.bm");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free152.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +return *_FUNC_CREATEBUF_INTEGER_CREATEBUF; +} +void SUB_DISPOSEBUF(int16*_SUB_DISPOSEBUF_INTEGER_HANDLE){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data153.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +if(!qbevent)break;evnt(26065,35,"simplebuffer.bm");}while(r); +do{ +*_SUB_DISPOSEBUF_LONG_BUF=*_SUB_DISPOSEBUF_INTEGER_HANDLE* 106 ; +if(!qbevent)break;evnt(26065,37,"simplebuffer.bm");}while(r); +do{ +tmp_long=array_check((*_SUB_DISPOSEBUF_LONG_BUF+ 0 )-__ARRAY_STRING_SIMPLEBUFFER_ARRAY[4],__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[tmp_long])),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26065,38,"simplebuffer.bm");}while(r); +do{ +tmp_long=array_check((*_SUB_DISPOSEBUF_LONG_BUF+ 1 )-__ARRAY_STRING_SIMPLEBUFFER_ARRAY[4],__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[tmp_long])),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26065,39,"simplebuffer.bm");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free153.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +int16 FUNC_FILETOBUF(qbs*_FUNC_FILETOBUF_STRING_FILESPEC){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data154.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +if(!qbevent)break;evnt(26065,45,"simplebuffer.bm");}while(r); +do{ +*_FUNC_FILETOBUF_INTEGER_HAN=FUNC_CREATEBUF(); +if(!qbevent)break;evnt(26065,47,"simplebuffer.bm");}while(r); +do{ +*_FUNC_FILETOBUF_LONG_BUF=*_FUNC_FILETOBUF_INTEGER_HAN* 106 ; +if(!qbevent)break;evnt(26065,48,"simplebuffer.bm");}while(r); +S_36181:; +if ((-(*_FUNC_FILETOBUF_INTEGER_HAN>= 0 ))||new_error){ +if(qbevent){evnt(26065,50,"simplebuffer.bm");if(r)goto S_36181;} +do{ +*_FUNC_FILETOBUF_INTEGER_FF=func_freefile(); +if(!qbevent)break;evnt(26065,51,"simplebuffer.bm");}while(r); +do{ +sub_open(_FUNC_FILETOBUF_STRING_FILESPEC, 2 ,NULL, 4 ,*_FUNC_FILETOBUF_INTEGER_FF,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26065,52,"simplebuffer.bm");}while(r); +do{ +*_FUNC_FILETOBUF_INTEGER64_FL=func_lof(*_FUNC_FILETOBUF_INTEGER_FF); +if(!qbevent)break;evnt(26065,53,"simplebuffer.bm");}while(r); +do{ +*_FUNC_FILETOBUF_LONG_EXT=*_FUNC_FILETOBUF_INTEGER64_FL% 16384 ; +if(!qbevent)break;evnt(26065,53,"simplebuffer.bm");}while(r); +do{ +tmp_long=array_check((*_FUNC_FILETOBUF_LONG_BUF+ 0 )-__ARRAY_STRING_SIMPLEBUFFER_ARRAY[4],__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[tmp_long])),func_space(*_FUNC_FILETOBUF_INTEGER64_FL)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26065,55,"simplebuffer.bm");}while(r); +do{ +sub_get2(*_FUNC_FILETOBUF_INTEGER_FF,NULL,((qbs*)(((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[array_check((*_FUNC_FILETOBUF_LONG_BUF+ 0 )-__ARRAY_STRING_SIMPLEBUFFER_ARRAY[4],__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5])])),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26065,56,"simplebuffer.bm");}while(r); +S_36188:; +if ((-(*_FUNC_FILETOBUF_LONG_EXT> 0 ))||new_error){ +if(qbevent){evnt(26065,57,"simplebuffer.bm");if(r)goto S_36188;} +do{ +tmp_long=array_check((*_FUNC_FILETOBUF_LONG_BUF+ 0 )-__ARRAY_STRING_SIMPLEBUFFER_ARRAY[4],__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[tmp_long])),qbs_add(((qbs*)(((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[array_check((*_FUNC_FILETOBUF_LONG_BUF+ 0 )-__ARRAY_STRING_SIMPLEBUFFER_ARRAY[4],__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5])])),func_space( 16384 -*_FUNC_FILETOBUF_LONG_EXT))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26065,58,"simplebuffer.bm");}while(r); +} +do{ +sub_mid(((qbs*)(((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[array_check((*_FUNC_FILETOBUF_LONG_BUF+ 1 )-__ARRAY_STRING_SIMPLEBUFFER_ARRAY[4],__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5])])), 1 , 4 ,l2string( 1 ),1); +if(!qbevent)break;evnt(26065,61,"simplebuffer.bm");}while(r); +do{ +sub_mid(((qbs*)(((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[array_check((*_FUNC_FILETOBUF_LONG_BUF+ 1 )-__ARRAY_STRING_SIMPLEBUFFER_ARRAY[4],__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5])])), 5 , 4 ,l2string(*_FUNC_FILETOBUF_INTEGER64_FL),1); +if(!qbevent)break;evnt(26065,62,"simplebuffer.bm");}while(r); +do{ +sub_mid(((qbs*)(((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[array_check((*_FUNC_FILETOBUF_LONG_BUF+ 1 )-__ARRAY_STRING_SIMPLEBUFFER_ARRAY[4],__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5])])), 13 , 4 ,l2string( 0 ),1); +if(!qbevent)break;evnt(26065,63,"simplebuffer.bm");}while(r); +do{ +sub_close(*_FUNC_FILETOBUF_INTEGER_FF,1); +if(!qbevent)break;evnt(26065,64,"simplebuffer.bm");}while(r); +} +do{ +*_FUNC_FILETOBUF_INTEGER_FILETOBUF=*_FUNC_FILETOBUF_INTEGER_HAN; +if(!qbevent)break;evnt(26065,67,"simplebuffer.bm");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free154.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +return *_FUNC_FILETOBUF_INTEGER_FILETOBUF; +} +void SUB_BUFTOFILE(int16*_SUB_BUFTOFILE_INTEGER_HANDLE,qbs*_SUB_BUFTOFILE_STRING_FILESPEC){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data155.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +if(!qbevent)break;evnt(26065,73,"simplebuffer.bm");}while(r); +do{ +*_SUB_BUFTOFILE_LONG_BUF=*_SUB_BUFTOFILE_INTEGER_HANDLE* 106 ; +if(!qbevent)break;evnt(26065,75,"simplebuffer.bm");}while(r); +do{ +*_SUB_BUFTOFILE_INTEGER_FF=func_freefile(); +if(!qbevent)break;evnt(26065,76,"simplebuffer.bm");}while(r); +do{ +qbs_set(_SUB_BUFTOFILE_STRING_DAT,qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[array_check((*_SUB_BUFTOFILE_LONG_BUF+ 0 )-__ARRAY_STRING_SIMPLEBUFFER_ARRAY[4],__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5])])),FUNC_GETBUFLEN(_SUB_BUFTOFILE_INTEGER_HANDLE))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26065,76,"simplebuffer.bm");}while(r); +do{ +sub_open(_SUB_BUFTOFILE_STRING_FILESPEC, 4 ,NULL, 4 ,*_SUB_BUFTOFILE_INTEGER_FF,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26065,77,"simplebuffer.bm");}while(r); +do{ +sub_close(*_SUB_BUFTOFILE_INTEGER_FF,1); +if(!qbevent)break;evnt(26065,77,"simplebuffer.bm");}while(r); +do{ +sub_open(_SUB_BUFTOFILE_STRING_FILESPEC, 2 ,NULL, 4 ,*_SUB_BUFTOFILE_INTEGER_FF,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26065,78,"simplebuffer.bm");}while(r); +do{ +sub_put2(*_SUB_BUFTOFILE_INTEGER_FF,NULL,byte_element((uint64)_SUB_BUFTOFILE_STRING_DAT->chr,_SUB_BUFTOFILE_STRING_DAT->len,byte_element_3949),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26065,79,"simplebuffer.bm");}while(r); +do{ +sub_close(*_SUB_BUFTOFILE_INTEGER_FF,1); +if(!qbevent)break;evnt(26065,80,"simplebuffer.bm");}while(r); +do{ +sub_mid(((qbs*)(((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[array_check((*_SUB_BUFTOFILE_LONG_BUF+ 1 )-__ARRAY_STRING_SIMPLEBUFFER_ARRAY[4],__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5])])), 13 , 4 ,l2string( 0 ),1); +if(!qbevent)break;evnt(26065,82,"simplebuffer.bm");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free155.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +qbs* FUNC_READBUFLINE(int16*_FUNC_READBUFLINE_INTEGER_HANDLE){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data156.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +if(!qbevent)break;evnt(26065,88,"simplebuffer.bm");}while(r); +do{ +*_FUNC_READBUFLINE_LONG_BUF=*_FUNC_READBUFLINE_INTEGER_HANDLE* 106 ; +if(!qbevent)break;evnt(26065,90,"simplebuffer.bm");}while(r); +do{ +*_FUNC_READBUFLINE_LONG_CUR=FUNC_GETBUFPOS(_FUNC_READBUFLINE_INTEGER_HANDLE); +if(!qbevent)break;evnt(26065,91,"simplebuffer.bm");}while(r); +do{ +*_FUNC_READBUFLINE_INTEGER64_CBL=FUNC_GETBUFLEN(_FUNC_READBUFLINE_INTEGER_HANDLE); +if(!qbevent)break;evnt(26065,91,"simplebuffer.bm");}while(r); +do{ +qbs_set(_FUNC_READBUFLINE_STRING_BRC,FUNC_BUFEOLSEQ(_FUNC_READBUFLINE_INTEGER_HANDLE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26065,92,"simplebuffer.bm");}while(r); +do{ +*_FUNC_READBUFLINE_INTEGER_BRL=_FUNC_READBUFLINE_STRING_BRC->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26065,92,"simplebuffer.bm");}while(r); +do{ +*_FUNC_READBUFLINE_LONG_EOL=func_instr(*_FUNC_READBUFLINE_LONG_CUR,((qbs*)(((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[array_check((*_FUNC_READBUFLINE_LONG_BUF+ 0 )-__ARRAY_STRING_SIMPLEBUFFER_ARRAY[4],__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5])])),_FUNC_READBUFLINE_STRING_BRC,0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26065,94,"simplebuffer.bm");}while(r); +S_36214:; +if (((-(*_FUNC_READBUFLINE_LONG_EOL== 0 ))|(-(*_FUNC_READBUFLINE_LONG_EOL>*_FUNC_READBUFLINE_INTEGER64_CBL)))||new_error){ +if(qbevent){evnt(26065,95,"simplebuffer.bm");if(r)goto S_36214;} +do{ +*_FUNC_READBUFLINE_LONG_EOL=*_FUNC_READBUFLINE_INTEGER64_CBL+ 1 ; +if(!qbevent)break;evnt(26065,95,"simplebuffer.bm");}while(r); +do{ +*_FUNC_READBUFLINE_INTEGER_BRL= 0 ; +if(!qbevent)break;evnt(26065,95,"simplebuffer.bm");}while(r); +} +do{ +qbs_set(_FUNC_READBUFLINE_STRING_READBUFLINE,func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[array_check((*_FUNC_READBUFLINE_LONG_BUF+ 0 )-__ARRAY_STRING_SIMPLEBUFFER_ARRAY[4],__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5])])),*_FUNC_READBUFLINE_LONG_CUR,*_FUNC_READBUFLINE_LONG_EOL-*_FUNC_READBUFLINE_LONG_CUR,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26065,97,"simplebuffer.bm");}while(r); +do{ +sub_mid(((qbs*)(((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[array_check((*_FUNC_READBUFLINE_LONG_BUF+ 1 )-__ARRAY_STRING_SIMPLEBUFFER_ARRAY[4],__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5])])), 1 , 4 ,l2string(*_FUNC_READBUFLINE_LONG_EOL+*_FUNC_READBUFLINE_INTEGER_BRL),1); +if(!qbevent)break;evnt(26065,98,"simplebuffer.bm");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free156.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_READBUFLINE_STRING_READBUFLINE);return _FUNC_READBUFLINE_STRING_READBUFLINE; +} +void SUB_WRITEBUFLINE(int16*_SUB_WRITEBUFLINE_INTEGER_HANDLE,qbs*_SUB_WRITEBUFLINE_STRING_TEXT){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data157.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +if(!qbevent)break;evnt(26065,104,"simplebuffer.bm");}while(r); +do{ +*_SUB_WRITEBUFLINE_LONG_BUF=*_SUB_WRITEBUFLINE_INTEGER_HANDLE* 106 ; +if(!qbevent)break;evnt(26065,106,"simplebuffer.bm");}while(r); +do{ +*_SUB_WRITEBUFLINE_LONG_CUR=FUNC_GETBUFPOS(_SUB_WRITEBUFLINE_INTEGER_HANDLE); +if(!qbevent)break;evnt(26065,107,"simplebuffer.bm");}while(r); +do{ +*_SUB_WRITEBUFLINE_LONG_TXL=_SUB_WRITEBUFLINE_STRING_TEXT->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26065,107,"simplebuffer.bm");}while(r); +do{ +qbs_set(_SUB_WRITEBUFLINE_STRING_BRC,FUNC_BUFEOLSEQ(_SUB_WRITEBUFLINE_INTEGER_HANDLE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26065,108,"simplebuffer.bm");}while(r); +do{ +*_SUB_WRITEBUFLINE_INTEGER_BRL=_SUB_WRITEBUFLINE_STRING_BRC->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26065,108,"simplebuffer.bm");}while(r); +do{ +*_SUB_WRITEBUFLINE_INTEGER64_CBL=FUNC_GETBUFLEN(_SUB_WRITEBUFLINE_INTEGER_HANDLE); +if(!qbevent)break;evnt(26065,109,"simplebuffer.bm");}while(r); +do{ +*_SUB_WRITEBUFLINE_LONG_CHG=*_SUB_WRITEBUFLINE_LONG_TXL+*_SUB_WRITEBUFLINE_INTEGER_BRL; +if(!qbevent)break;evnt(26065,109,"simplebuffer.bm");}while(r); +do{ +*_SUB_WRITEBUFLINE_LONG_BSZ=((qbs*)(((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[array_check((*_SUB_WRITEBUFLINE_LONG_BUF+ 0 )-__ARRAY_STRING_SIMPLEBUFFER_ARRAY[4],__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5])]))->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26065,111,"simplebuffer.bm");}while(r); +do{ +*_SUB_WRITEBUFLINE_LONG_EXT= 0 ; +if(!qbevent)break;evnt(26065,111,"simplebuffer.bm");}while(r); +S_36230:; +while((-((*_SUB_WRITEBUFLINE_INTEGER64_CBL+*_SUB_WRITEBUFLINE_LONG_CHG)>(*_SUB_WRITEBUFLINE_LONG_BSZ+*_SUB_WRITEBUFLINE_LONG_EXT)))||new_error){ +if(qbevent){evnt(26065,112,"simplebuffer.bm");if(r)goto S_36230;} +do{ +*_SUB_WRITEBUFLINE_LONG_EXT=*_SUB_WRITEBUFLINE_LONG_EXT+ 16384 ; +if(!qbevent)break;evnt(26065,112,"simplebuffer.bm");}while(r); +ww_continue_3955:; +} +ww_exit_3955:; +S_36233:; +if ((-(*_SUB_WRITEBUFLINE_LONG_EXT> 0 ))||new_error){ +if(qbevent){evnt(26065,113,"simplebuffer.bm");if(r)goto S_36233;} +do{ +tmp_long=array_check((*_SUB_WRITEBUFLINE_LONG_BUF+ 0 )-__ARRAY_STRING_SIMPLEBUFFER_ARRAY[4],__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[tmp_long])),qbs_add(((qbs*)(((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[array_check((*_SUB_WRITEBUFLINE_LONG_BUF+ 0 )-__ARRAY_STRING_SIMPLEBUFFER_ARRAY[4],__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5])])),func_space(*_SUB_WRITEBUFLINE_LONG_EXT))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26065,114,"simplebuffer.bm");}while(r); +} +do{ +sub_mid(((qbs*)(((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[array_check((*_SUB_WRITEBUFLINE_LONG_BUF+ 0 )-__ARRAY_STRING_SIMPLEBUFFER_ARRAY[4],__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5])])),*_SUB_WRITEBUFLINE_LONG_CUR,0,qbs_add(qbs_add(_SUB_WRITEBUFLINE_STRING_TEXT,_SUB_WRITEBUFLINE_STRING_BRC),func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[array_check((*_SUB_WRITEBUFLINE_LONG_BUF+ 0 )-__ARRAY_STRING_SIMPLEBUFFER_ARRAY[4],__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5])])),*_SUB_WRITEBUFLINE_LONG_CUR,*_SUB_WRITEBUFLINE_INTEGER64_CBL-*_SUB_WRITEBUFLINE_LONG_CUR+ 1 ,0|1)),0); +if(!qbevent)break;evnt(26065,117,"simplebuffer.bm");}while(r); +do{ +sub_mid(((qbs*)(((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[array_check((*_SUB_WRITEBUFLINE_LONG_BUF+ 1 )-__ARRAY_STRING_SIMPLEBUFFER_ARRAY[4],__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5])])), 1 , 4 ,l2string(*_SUB_WRITEBUFLINE_LONG_CUR+*_SUB_WRITEBUFLINE_LONG_CHG),1); +if(!qbevent)break;evnt(26065,118,"simplebuffer.bm");}while(r); +do{ +sub_mid(((qbs*)(((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[array_check((*_SUB_WRITEBUFLINE_LONG_BUF+ 1 )-__ARRAY_STRING_SIMPLEBUFFER_ARRAY[4],__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5])])), 5 , 4 ,l2string(*_SUB_WRITEBUFLINE_INTEGER64_CBL+*_SUB_WRITEBUFLINE_LONG_CHG),1); +if(!qbevent)break;evnt(26065,119,"simplebuffer.bm");}while(r); +do{ +sub_mid(((qbs*)(((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[array_check((*_SUB_WRITEBUFLINE_LONG_BUF+ 1 )-__ARRAY_STRING_SIMPLEBUFFER_ARRAY[4],__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5])])), 13 , 4 ,l2string( -1 ),1); +if(!qbevent)break;evnt(26065,120,"simplebuffer.bm");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free157.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +qbs* FUNC_READBUFRAWDATA(int16*_FUNC_READBUFRAWDATA_INTEGER_HANDLE,int32*_FUNC_READBUFRAWDATA_LONG_SIZE){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data158.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +if(!qbevent)break;evnt(26065,126,"simplebuffer.bm");}while(r); +do{ +*_FUNC_READBUFRAWDATA_LONG_BUF=*_FUNC_READBUFRAWDATA_INTEGER_HANDLE* 106 ; +if(!qbevent)break;evnt(26065,128,"simplebuffer.bm");}while(r); +do{ +*_FUNC_READBUFRAWDATA_LONG_CUR=FUNC_GETBUFPOS(_FUNC_READBUFRAWDATA_INTEGER_HANDLE); +if(!qbevent)break;evnt(26065,129,"simplebuffer.bm");}while(r); +do{ +*_FUNC_READBUFRAWDATA_LONG_EOB=FUNC_GETBUFLEN(_FUNC_READBUFRAWDATA_INTEGER_HANDLE)+ 1 ; +if(!qbevent)break;evnt(26065,129,"simplebuffer.bm");}while(r); +S_36244:; +if ((-(*_FUNC_READBUFRAWDATA_LONG_SIZE>(*_FUNC_READBUFRAWDATA_LONG_EOB-*_FUNC_READBUFRAWDATA_LONG_CUR)))||new_error){ +if(qbevent){evnt(26065,130,"simplebuffer.bm");if(r)goto S_36244;} +do{ +*_FUNC_READBUFRAWDATA_LONG_SIZE=*_FUNC_READBUFRAWDATA_LONG_EOB-*_FUNC_READBUFRAWDATA_LONG_CUR; +if(!qbevent)break;evnt(26065,130,"simplebuffer.bm");}while(r); +} +do{ +qbs_set(_FUNC_READBUFRAWDATA_STRING_READBUFRAWDATA,func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[array_check((*_FUNC_READBUFRAWDATA_LONG_BUF+ 0 )-__ARRAY_STRING_SIMPLEBUFFER_ARRAY[4],__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5])])),*_FUNC_READBUFRAWDATA_LONG_CUR,*_FUNC_READBUFRAWDATA_LONG_SIZE,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26065,132,"simplebuffer.bm");}while(r); +do{ +sub_mid(((qbs*)(((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[array_check((*_FUNC_READBUFRAWDATA_LONG_BUF+ 1 )-__ARRAY_STRING_SIMPLEBUFFER_ARRAY[4],__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5])])), 1 , 4 ,l2string(*_FUNC_READBUFRAWDATA_LONG_CUR+*_FUNC_READBUFRAWDATA_LONG_SIZE),1); +if(!qbevent)break;evnt(26065,133,"simplebuffer.bm");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free158.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_READBUFRAWDATA_STRING_READBUFRAWDATA);return _FUNC_READBUFRAWDATA_STRING_READBUFRAWDATA; +} +void SUB_WRITEBUFRAWDATA(int16*_SUB_WRITEBUFRAWDATA_INTEGER_HANDLE,qbs*_SUB_WRITEBUFRAWDATA_STRING_RAWDATA){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data159.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +if(!qbevent)break;evnt(26065,139,"simplebuffer.bm");}while(r); +do{ +*_SUB_WRITEBUFRAWDATA_LONG_BUF=*_SUB_WRITEBUFRAWDATA_INTEGER_HANDLE* 106 ; +if(!qbevent)break;evnt(26065,141,"simplebuffer.bm");}while(r); +do{ +*_SUB_WRITEBUFRAWDATA_LONG_CUR=FUNC_GETBUFPOS(_SUB_WRITEBUFRAWDATA_INTEGER_HANDLE); +if(!qbevent)break;evnt(26065,142,"simplebuffer.bm");}while(r); +do{ +*_SUB_WRITEBUFRAWDATA_LONG_RDL=_SUB_WRITEBUFRAWDATA_STRING_RAWDATA->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26065,142,"simplebuffer.bm");}while(r); +do{ +*_SUB_WRITEBUFRAWDATA_INTEGER64_CBL=FUNC_GETBUFLEN(_SUB_WRITEBUFRAWDATA_INTEGER_HANDLE); +if(!qbevent)break;evnt(26065,143,"simplebuffer.bm");}while(r); +do{ +*_SUB_WRITEBUFRAWDATA_LONG_BSZ=((qbs*)(((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[array_check((*_SUB_WRITEBUFRAWDATA_LONG_BUF+ 0 )-__ARRAY_STRING_SIMPLEBUFFER_ARRAY[4],__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5])]))->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26065,145,"simplebuffer.bm");}while(r); +do{ +*_SUB_WRITEBUFRAWDATA_LONG_EXT= 0 ; +if(!qbevent)break;evnt(26065,145,"simplebuffer.bm");}while(r); +S_36256:; +while((-((*_SUB_WRITEBUFRAWDATA_INTEGER64_CBL+*_SUB_WRITEBUFRAWDATA_LONG_RDL)>(*_SUB_WRITEBUFRAWDATA_LONG_BSZ+*_SUB_WRITEBUFRAWDATA_LONG_EXT)))||new_error){ +if(qbevent){evnt(26065,146,"simplebuffer.bm");if(r)goto S_36256;} +do{ +*_SUB_WRITEBUFRAWDATA_LONG_EXT=*_SUB_WRITEBUFRAWDATA_LONG_EXT+ 16384 ; +if(!qbevent)break;evnt(26065,146,"simplebuffer.bm");}while(r); +ww_continue_3959:; +} +ww_exit_3959:; +S_36259:; +if ((-(*_SUB_WRITEBUFRAWDATA_LONG_EXT> 0 ))||new_error){ +if(qbevent){evnt(26065,147,"simplebuffer.bm");if(r)goto S_36259;} +do{ +tmp_long=array_check((*_SUB_WRITEBUFRAWDATA_LONG_BUF+ 0 )-__ARRAY_STRING_SIMPLEBUFFER_ARRAY[4],__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[tmp_long])),qbs_add(((qbs*)(((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[array_check((*_SUB_WRITEBUFRAWDATA_LONG_BUF+ 0 )-__ARRAY_STRING_SIMPLEBUFFER_ARRAY[4],__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5])])),func_space(*_SUB_WRITEBUFRAWDATA_LONG_EXT))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26065,148,"simplebuffer.bm");}while(r); +} +do{ +sub_mid(((qbs*)(((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[array_check((*_SUB_WRITEBUFRAWDATA_LONG_BUF+ 0 )-__ARRAY_STRING_SIMPLEBUFFER_ARRAY[4],__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5])])),*_SUB_WRITEBUFRAWDATA_LONG_CUR,0,qbs_add(_SUB_WRITEBUFRAWDATA_STRING_RAWDATA,func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[array_check((*_SUB_WRITEBUFRAWDATA_LONG_BUF+ 0 )-__ARRAY_STRING_SIMPLEBUFFER_ARRAY[4],__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5])])),*_SUB_WRITEBUFRAWDATA_LONG_CUR,*_SUB_WRITEBUFRAWDATA_INTEGER64_CBL-*_SUB_WRITEBUFRAWDATA_LONG_CUR+ 1 ,0|1)),0); +if(!qbevent)break;evnt(26065,151,"simplebuffer.bm");}while(r); +do{ +sub_mid(((qbs*)(((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[array_check((*_SUB_WRITEBUFRAWDATA_LONG_BUF+ 1 )-__ARRAY_STRING_SIMPLEBUFFER_ARRAY[4],__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5])])), 1 , 4 ,l2string(*_SUB_WRITEBUFRAWDATA_LONG_CUR+*_SUB_WRITEBUFRAWDATA_LONG_RDL),1); +if(!qbevent)break;evnt(26065,152,"simplebuffer.bm");}while(r); +do{ +sub_mid(((qbs*)(((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[array_check((*_SUB_WRITEBUFRAWDATA_LONG_BUF+ 1 )-__ARRAY_STRING_SIMPLEBUFFER_ARRAY[4],__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5])])), 5 , 4 ,l2string(*_SUB_WRITEBUFRAWDATA_INTEGER64_CBL+*_SUB_WRITEBUFRAWDATA_LONG_RDL),1); +if(!qbevent)break;evnt(26065,153,"simplebuffer.bm");}while(r); +S_36265:; +if ((-(*_SUB_WRITEBUFRAWDATA_LONG_RDL> 0 ))||new_error){ +if(qbevent){evnt(26065,154,"simplebuffer.bm");if(r)goto S_36265;} +do{ +sub_mid(((qbs*)(((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[array_check((*_SUB_WRITEBUFRAWDATA_LONG_BUF+ 1 )-__ARRAY_STRING_SIMPLEBUFFER_ARRAY[4],__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5])])), 13 , 4 ,l2string( -1 ),1); +if(!qbevent)break;evnt(26065,155,"simplebuffer.bm");}while(r); +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free159.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +int32 FUNC_SEEKBUF(int16*_FUNC_SEEKBUF_INTEGER_HANDLE,int32*_FUNC_SEEKBUF_LONG_DISPLACE,int16*_FUNC_SEEKBUF_INTEGER_MODE){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data160.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +if(!qbevent)break;evnt(26065,162,"simplebuffer.bm");}while(r); +do{ +*_FUNC_SEEKBUF_LONG_BUF=*_FUNC_SEEKBUF_INTEGER_HANDLE* 106 ; +if(!qbevent)break;evnt(26065,164,"simplebuffer.bm");}while(r); +do{ +*_FUNC_SEEKBUF_LONG_CUR=FUNC_GETBUFPOS(_FUNC_SEEKBUF_INTEGER_HANDLE); +if(!qbevent)break;evnt(26065,165,"simplebuffer.bm");}while(r); +do{ +*_FUNC_SEEKBUF_LONG_EOB=FUNC_GETBUFLEN(_FUNC_SEEKBUF_INTEGER_HANDLE)+ 1 ; +if(!qbevent)break;evnt(26065,165,"simplebuffer.bm");}while(r); +do{ +qbs_set(_FUNC_SEEKBUF_STRING_BRC,FUNC_BUFEOLSEQ(_FUNC_SEEKBUF_INTEGER_HANDLE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26065,166,"simplebuffer.bm");}while(r); +do{ +*_FUNC_SEEKBUF_INTEGER_BRL=_FUNC_SEEKBUF_STRING_BRC->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26065,166,"simplebuffer.bm");}while(r); +S_36274:; +if(qbevent){evnt(26065,168,"simplebuffer.bm");if(r)goto S_36274;} +S_36275:; +if (((*_FUNC_SEEKBUF_INTEGER_MODE==( -22 )))||new_error){ +if(qbevent){evnt(26065,169,"simplebuffer.bm");if(r)goto S_36275;} +do{ +*_FUNC_SEEKBUF_LONG_ORIGIN= 1 ; +if(!qbevent)break;evnt(26065,169,"simplebuffer.bm");}while(r); +sc_ec_204_end:; +goto sc_3961_end; +} +S_36277:; +if (((*_FUNC_SEEKBUF_INTEGER_MODE==( -23 )))||new_error){ +if(qbevent){evnt(26065,170,"simplebuffer.bm");if(r)goto S_36277;} +do{ +*_FUNC_SEEKBUF_LONG_ORIGIN=*_FUNC_SEEKBUF_LONG_CUR; +if(!qbevent)break;evnt(26065,170,"simplebuffer.bm");}while(r); +sc_ec_205_end:; +goto sc_3961_end; +} +S_36279:; +if (((*_FUNC_SEEKBUF_INTEGER_MODE==( -24 )))||new_error){ +if(qbevent){evnt(26065,171,"simplebuffer.bm");if(r)goto S_36279;} +do{ +*_FUNC_SEEKBUF_LONG_ORIGIN=*_FUNC_SEEKBUF_LONG_EOB; +if(!qbevent)break;evnt(26065,171,"simplebuffer.bm");}while(r); +sc_ec_206_end:; +goto sc_3961_end; +} +do{ +*_FUNC_SEEKBUF_LONG_SEEKBUF= -11 ; +if(!qbevent)break;evnt(26065,173,"simplebuffer.bm");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26065,174,"simplebuffer.bm");}while(r); +sc_3961_end:; +do{ +*_FUNC_SEEKBUF_LONG_NEWPOS=*_FUNC_SEEKBUF_LONG_ORIGIN+*_FUNC_SEEKBUF_LONG_DISPLACE; +if(!qbevent)break;evnt(26065,177,"simplebuffer.bm");}while(r); +S_36286:; +if (((-(*_FUNC_SEEKBUF_LONG_NEWPOS< 1 ))|(-(*_FUNC_SEEKBUF_LONG_NEWPOS>*_FUNC_SEEKBUF_LONG_EOB)))||new_error){ +if(qbevent){evnt(26065,178,"simplebuffer.bm");if(r)goto S_36286;} +do{ +*_FUNC_SEEKBUF_LONG_SEEKBUF= -12 ; +if(!qbevent)break;evnt(26065,179,"simplebuffer.bm");}while(r); +}else{ +do{ +sub_mid(((qbs*)(((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[array_check((*_FUNC_SEEKBUF_LONG_BUF+ 1 )-__ARRAY_STRING_SIMPLEBUFFER_ARRAY[4],__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5])])), 1 , 4 ,l2string(*_FUNC_SEEKBUF_LONG_NEWPOS),1); +if(!qbevent)break;evnt(26065,181,"simplebuffer.bm");}while(r); +do{ +*_FUNC_SEEKBUF_LONG_SEEKBUF=*_FUNC_SEEKBUF_LONG_CUR; +if(!qbevent)break;evnt(26065,182,"simplebuffer.bm");}while(r); +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free160.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +return *_FUNC_SEEKBUF_LONG_SEEKBUF; +} +int32 FUNC_GETBUFPOS(int16*_FUNC_GETBUFPOS_INTEGER_HANDLE){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data161.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +if(!qbevent)break;evnt(26065,189,"simplebuffer.bm");}while(r); +do{ +*_FUNC_GETBUFPOS_LONG_BUF=*_FUNC_GETBUFPOS_INTEGER_HANDLE* 106 ; +if(!qbevent)break;evnt(26065,191,"simplebuffer.bm");}while(r); +do{ +*_FUNC_GETBUFPOS_LONG_GETBUFPOS=string2l(func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[array_check((*_FUNC_GETBUFPOS_LONG_BUF+ 1 )-__ARRAY_STRING_SIMPLEBUFFER_ARRAY[4],__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5])])), 1 , 4 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26065,192,"simplebuffer.bm");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free161.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +return *_FUNC_GETBUFPOS_LONG_GETBUFPOS; +} +int32 FUNC_GETBUFLEN(int16*_FUNC_GETBUFLEN_INTEGER_HANDLE){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data162.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +if(!qbevent)break;evnt(26065,198,"simplebuffer.bm");}while(r); +do{ +*_FUNC_GETBUFLEN_LONG_BUF=*_FUNC_GETBUFLEN_INTEGER_HANDLE* 106 ; +if(!qbevent)break;evnt(26065,200,"simplebuffer.bm");}while(r); +do{ +*_FUNC_GETBUFLEN_LONG_GETBUFLEN=string2l(func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[array_check((*_FUNC_GETBUFLEN_LONG_BUF+ 1 )-__ARRAY_STRING_SIMPLEBUFFER_ARRAY[4],__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5])])), 5 , 4 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26065,201,"simplebuffer.bm");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free162.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +return *_FUNC_GETBUFLEN_LONG_GETBUFLEN; +} +int16 FUNC_ENDOFBUF(int16*_FUNC_ENDOFBUF_INTEGER_HANDLE){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data163.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +*_FUNC_ENDOFBUF_INTEGER_ENDOFBUF=(-(FUNC_GETBUFPOS(_FUNC_ENDOFBUF_INTEGER_HANDLE)>FUNC_GETBUFLEN(_FUNC_ENDOFBUF_INTEGER_HANDLE))); +if(!qbevent)break;evnt(26065,207,"simplebuffer.bm");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free163.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +return *_FUNC_ENDOFBUF_INTEGER_ENDOFBUF; +} +int16 FUNC_ISBUFCHANGED(int16*_FUNC_ISBUFCHANGED_INTEGER_HANDLE){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data164.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +if(!qbevent)break;evnt(26065,213,"simplebuffer.bm");}while(r); +do{ +*_FUNC_ISBUFCHANGED_LONG_BUF=*_FUNC_ISBUFCHANGED_INTEGER_HANDLE* 106 ; +if(!qbevent)break;evnt(26065,215,"simplebuffer.bm");}while(r); +do{ +*_FUNC_ISBUFCHANGED_INTEGER_ISBUFCHANGED=string2l(func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[array_check((*_FUNC_ISBUFCHANGED_LONG_BUF+ 1 )-__ARRAY_STRING_SIMPLEBUFFER_ARRAY[4],__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5])])), 13 , 4 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26065,216,"simplebuffer.bm");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free164.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +return *_FUNC_ISBUFCHANGED_INTEGER_ISBUFCHANGED; +} +qbs* FUNC_BUFEOLSEQ(int16*_FUNC_BUFEOLSEQ_INTEGER_HANDLE){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data165.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +if(!qbevent)break;evnt(26065,222,"simplebuffer.bm");}while(r); +do{ +*_FUNC_BUFEOLSEQ_LONG_BUF=*_FUNC_BUFEOLSEQ_INTEGER_HANDLE* 106 ; +if(!qbevent)break;evnt(26065,224,"simplebuffer.bm");}while(r); +S_36304:; +qbs_set(sc_3962,func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_SIMPLEBUFFER_ARRAY[0]))[array_check((*_FUNC_BUFEOLSEQ_LONG_BUF+ 1 )-__ARRAY_STRING_SIMPLEBUFFER_ARRAY[4],__ARRAY_STRING_SIMPLEBUFFER_ARRAY[5])])), 9 , 4 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(qbevent){evnt(26065,225,"simplebuffer.bm");if(r)goto S_36304;} +S_36305:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3962,qbs_new_txt_len("EolU",4))||qbs_equal(sc_3962,qbs_new_txt_len("EolN",4))))||new_error){ +if(qbevent){evnt(26065,226,"simplebuffer.bm");if(r)goto S_36305;} +do{ +qbs_set(_FUNC_BUFEOLSEQ_STRING_BUFEOLSEQ,qbs_add(func_chr( 13 ),func_chr( 10 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26065,227,"simplebuffer.bm");}while(r); +S_36307:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,func__os(),qbs_new_txt_len("[LINUX]",7),0)> 0 )))||new_error){ +if(qbevent){evnt(26065,228,"simplebuffer.bm");if(r)goto S_36307;} +do{ +qbs_set(_FUNC_BUFEOLSEQ_STRING_BUFEOLSEQ,func_chr( 10 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26065,228,"simplebuffer.bm");}while(r); +} +sc_ec_207_end:; +goto sc_3962_end; +} +S_36310:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3962,qbs_new_txt_len("EolL",4))))||new_error){ +if(qbevent){evnt(26065,229,"simplebuffer.bm");if(r)goto S_36310;} +do{ +qbs_set(_FUNC_BUFEOLSEQ_STRING_BUFEOLSEQ,func_chr( 10 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26065,230,"simplebuffer.bm");}while(r); +sc_ec_208_end:; +goto sc_3962_end; +} +S_36312:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3962,qbs_new_txt_len("EolW",4))))||new_error){ +if(qbevent){evnt(26065,231,"simplebuffer.bm");if(r)goto S_36312;} +do{ +qbs_set(_FUNC_BUFEOLSEQ_STRING_BUFEOLSEQ,qbs_add(func_chr( 13 ),func_chr( 10 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26065,232,"simplebuffer.bm");}while(r); +sc_ec_209_end:; +goto sc_3962_end; +} +sc_3962_end:; +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free165.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_BUFEOLSEQ_STRING_BUFEOLSEQ);return _FUNC_BUFEOLSEQ_STRING_BUFEOLSEQ; +} +int16 FUNC_OPENBUFFER(qbs*_FUNC_OPENBUFFER_STRING_SBMODE,qbs*_FUNC_OPENBUFFER_STRING_SBNAME){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data166.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +if(!qbevent)break;evnt(26065,15,"sb_qb64pe_extension.bm");}while(r); +S_36316:; +fornext_value3966= 0 ; +fornext_finalvalue3966=func_ubound(__ARRAY_STRING_SBUFN,1,1); +fornext_step3966= 1 ; +if (fornext_step3966<0) fornext_step_negative3966=1; else fornext_step_negative3966=0; +if (new_error) goto fornext_error3966; +goto fornext_entrylabel3966; +while(1){ +fornext_value3966=fornext_step3966+(*_FUNC_OPENBUFFER_INTEGER_BUF); +fornext_entrylabel3966: +*_FUNC_OPENBUFFER_INTEGER_BUF=fornext_value3966; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative3966){ +if (fornext_value3966fornext_finalvalue3966) break; +} +fornext_error3966:; +if(qbevent){evnt(26065,17,"sb_qb64pe_extension.bm");if(r)goto S_36316;} +S_36317:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_SBUFN[0]))[array_check((*_FUNC_OPENBUFFER_INTEGER_BUF)-__ARRAY_STRING_SBUFN[4],__ARRAY_STRING_SBUFN[5])])),_FUNC_OPENBUFFER_STRING_SBNAME)))||new_error){ +if(qbevent){evnt(26065,18,"sb_qb64pe_extension.bm");if(r)goto S_36317;} +do{ +goto fornext_exit_3965; +if(!qbevent)break;evnt(26065,18,"sb_qb64pe_extension.bm");}while(r); +} +fornext_continue_3965:; +} +fornext_exit_3965:; +S_36321:; +qbs_set(sc_3967,qbs_ucase(qbs_left(_FUNC_OPENBUFFER_STRING_SBMODE, 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(qbevent){evnt(26065,21,"sb_qb64pe_extension.bm");if(r)goto S_36321;} +S_36322:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3967,qbs_new_txt_len("A",1))))||new_error){ +if(qbevent){evnt(26065,22,"sb_qb64pe_extension.bm");if(r)goto S_36322;} +S_36323:; +if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_OPENBUFFER_INTEGER_BUF>func_ubound(__ARRAY_STRING_SBUFN,1,1))))||new_error){ +if(qbevent){evnt(26065,23,"sb_qb64pe_extension.bm");if(r)goto S_36323;} +do{ +return_point[next_return_point++]=8; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_NEWBUF; +RETURN_8:; +if(!qbevent)break;evnt(26065,23,"sb_qb64pe_extension.bm");}while(r); +} +do{ +*_FUNC_OPENBUFFER_LONG_NUL=FUNC_SEEKBUF(_FUNC_OPENBUFFER_INTEGER_BUF,&(pass3968= 0 ),&(pass3969= -24 )); +if(!qbevent)break;evnt(26065,24,"sb_qb64pe_extension.bm");}while(r); +sc_ec_210_end:; +goto sc_3967_end; +} +S_36327:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3967,qbs_new_txt_len("B",1))))||new_error){ +if(qbevent){evnt(26065,25,"sb_qb64pe_extension.bm");if(r)goto S_36327;} +S_36328:; +if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_OPENBUFFER_INTEGER_BUF>func_ubound(__ARRAY_STRING_SBUFN,1,1))))||new_error){ +if(qbevent){evnt(26065,26,"sb_qb64pe_extension.bm");if(r)goto S_36328;} +do{ +return_point[next_return_point++]=9; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_NEWBUF; +RETURN_9:; +if(!qbevent)break;evnt(26065,26,"sb_qb64pe_extension.bm");}while(r); +} +do{ +*_FUNC_OPENBUFFER_LONG_NUL=FUNC_SEEKBUF(_FUNC_OPENBUFFER_INTEGER_BUF,&(pass3970= 0 ),&(pass3971= -22 )); +if(!qbevent)break;evnt(26065,27,"sb_qb64pe_extension.bm");}while(r); +sc_ec_211_end:; +goto sc_3967_end; +} +S_36332:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3967,qbs_new_txt_len("I",1))))||new_error){ +if(qbevent){evnt(26065,28,"sb_qb64pe_extension.bm");if(r)goto S_36332;} +S_36333:; +if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_OPENBUFFER_INTEGER_BUF>func_ubound(__ARRAY_STRING_SBUFN,1,1))))||new_error){ +if(qbevent){evnt(26065,29,"sb_qb64pe_extension.bm");if(r)goto S_36333;} +do{ +return_point[next_return_point++]=10; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_LOADBUF; +RETURN_10:; +if(!qbevent)break;evnt(26065,29,"sb_qb64pe_extension.bm");}while(r); +} +do{ +*_FUNC_OPENBUFFER_LONG_NUL=FUNC_SEEKBUF(_FUNC_OPENBUFFER_INTEGER_BUF,&(pass3972= 0 ),&(pass3973= -22 )); +if(!qbevent)break;evnt(26065,30,"sb_qb64pe_extension.bm");}while(r); +sc_ec_212_end:; +goto sc_3967_end; +} +S_36337:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_3967,qbs_new_txt_len("O",1))))||new_error){ +if(qbevent){evnt(26065,31,"sb_qb64pe_extension.bm");if(r)goto S_36337;} +S_36338:; +if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_OPENBUFFER_INTEGER_BUF<=func_ubound(__ARRAY_STRING_SBUFN,1,1))))||new_error){ +if(qbevent){evnt(26065,32,"sb_qb64pe_extension.bm");if(r)goto S_36338;} +do{ +SUB_DISPOSEBUF(_FUNC_OPENBUFFER_INTEGER_BUF); +if(!qbevent)break;evnt(26065,32,"sb_qb64pe_extension.bm");}while(r); +do{ +tmp_long=array_check((*_FUNC_OPENBUFFER_INTEGER_BUF)-__ARRAY_STRING_SBUFN[4],__ARRAY_STRING_SBUFN[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SBUFN[0]))[tmp_long])),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26065,32,"sb_qb64pe_extension.bm");}while(r); +} +do{ +return_point[next_return_point++]=11; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_NEWBUF; +RETURN_11:; +if(!qbevent)break;evnt(26065,33,"sb_qb64pe_extension.bm");}while(r); +sc_ec_213_end:; +goto sc_3967_end; +} +do{ +*_FUNC_OPENBUFFER_INTEGER_BUF= -1 ; +if(!qbevent)break;evnt(26065,35,"sb_qb64pe_extension.bm");}while(r); +sc_3967_end:; +do{ +*_FUNC_OPENBUFFER_INTEGER_OPENBUFFER=*_FUNC_OPENBUFFER_INTEGER_BUF; +if(!qbevent)break;evnt(26065,37,"sb_qb64pe_extension.bm");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26065,38,"sb_qb64pe_extension.bm");}while(r); +LABEL_NEWBUF:; +if(qbevent){evnt(26065,40,"sb_qb64pe_extension.bm");r=0;} +do{ +*_FUNC_OPENBUFFER_INTEGER_BUF=FUNC_CREATEBUF(); +if(!qbevent)break;evnt(26065,41,"sb_qb64pe_extension.bm");}while(r); +S_36349:; +if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_OPENBUFFER_INTEGER_BUF>func_ubound(__ARRAY_STRING_SBUFN,1,1))))||new_error){ +if(qbevent){evnt(26065,42,"sb_qb64pe_extension.bm");if(r)goto S_36349;} +do{ if (__ARRAY_STRING_SBUFN[2]&2){ error(10); @@ -122998,27 +122998,27 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_SBUFN[0]))[tmp_long]=(uint64)qbs_new while(tmp_long--) ((uint64*)(__ARRAY_STRING_SBUFN[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -} -if(!qbevent)break;evnt(26065,42,"sb_qb64pe_extension.bm");}while(r); -} -do{ -tmp_long=array_check((*_FUNC_OPENBUFFER_INTEGER_BUF)-__ARRAY_STRING_SBUFN[4],__ARRAY_STRING_SBUFN[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SBUFN[0]))[tmp_long])),_FUNC_OPENBUFFER_STRING_SBNAME); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26065,43,"sb_qb64pe_extension.bm");}while(r); -do{ -#include "ret166.txt" -if(!qbevent)break;evnt(26065,44,"sb_qb64pe_extension.bm");}while(r); -LABEL_LOADBUF:; -if(qbevent){evnt(26065,46,"sb_qb64pe_extension.bm");r=0;} -do{ -*_FUNC_OPENBUFFER_INTEGER_BUF=FUNC_FILETOBUF(_FUNC_OPENBUFFER_STRING_SBNAME); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26065,47,"sb_qb64pe_extension.bm");}while(r); -S_36355:; -if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_OPENBUFFER_INTEGER_BUF>func_ubound(__ARRAY_STRING_SBUFN,1,1))))||new_error){ -if(qbevent){evnt(26065,48,"sb_qb64pe_extension.bm");if(r)goto S_36355;} -do{ +} +if(!qbevent)break;evnt(26065,42,"sb_qb64pe_extension.bm");}while(r); +} +do{ +tmp_long=array_check((*_FUNC_OPENBUFFER_INTEGER_BUF)-__ARRAY_STRING_SBUFN[4],__ARRAY_STRING_SBUFN[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SBUFN[0]))[tmp_long])),_FUNC_OPENBUFFER_STRING_SBNAME); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26065,43,"sb_qb64pe_extension.bm");}while(r); +do{ +#include "ret166.txt" +if(!qbevent)break;evnt(26065,44,"sb_qb64pe_extension.bm");}while(r); +LABEL_LOADBUF:; +if(qbevent){evnt(26065,46,"sb_qb64pe_extension.bm");r=0;} +do{ +*_FUNC_OPENBUFFER_INTEGER_BUF=FUNC_FILETOBUF(_FUNC_OPENBUFFER_STRING_SBNAME); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26065,47,"sb_qb64pe_extension.bm");}while(r); +S_36355:; +if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_OPENBUFFER_INTEGER_BUF>func_ubound(__ARRAY_STRING_SBUFN,1,1))))||new_error){ +if(qbevent){evnt(26065,48,"sb_qb64pe_extension.bm");if(r)goto S_36355;} +do{ if (__ARRAY_STRING_SBUFN[2]&2){ error(10); @@ -123061,2425 +123061,2425 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_SBUFN[0]))[tmp_long]=(uint64)qbs_new while(tmp_long--) ((uint64*)(__ARRAY_STRING_SBUFN[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -} -if(!qbevent)break;evnt(26065,48,"sb_qb64pe_extension.bm");}while(r); -} -do{ -tmp_long=array_check((*_FUNC_OPENBUFFER_INTEGER_BUF)-__ARRAY_STRING_SBUFN[4],__ARRAY_STRING_SBUFN[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SBUFN[0]))[tmp_long])),_FUNC_OPENBUFFER_STRING_SBNAME); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26065,49,"sb_qb64pe_extension.bm");}while(r); -do{ -#include "ret166.txt" -if(!qbevent)break;evnt(26065,50,"sb_qb64pe_extension.bm");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free166.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -return *_FUNC_OPENBUFFER_INTEGER_OPENBUFFER; -} -void SUB_CLEARBUFFERS(qbs*_SUB_CLEARBUFFERS_STRING_SBNAME){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data167.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -if(!qbevent)break;evnt(26065,62,"sb_qb64pe_extension.bm");}while(r); -S_36361:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_CLEARBUFFERS_STRING_SBNAME,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26065,64,"sb_qb64pe_extension.bm");if(r)goto S_36361;} -S_36362:; -fornext_value3976= 0 ; -fornext_finalvalue3976=func_ubound(__ARRAY_STRING_SBUFN,1,1); -fornext_step3976= 1 ; -if (fornext_step3976<0) fornext_step_negative3976=1; else fornext_step_negative3976=0; -if (new_error) goto fornext_error3976; -goto fornext_entrylabel3976; -while(1){ -fornext_value3976=fornext_step3976+(*_SUB_CLEARBUFFERS_INTEGER_BUF); -fornext_entrylabel3976: -*_SUB_CLEARBUFFERS_INTEGER_BUF=fornext_value3976; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative3976){ -if (fornext_value3976fornext_finalvalue3976) break; -} -fornext_error3976:; -if(qbevent){evnt(26065,65,"sb_qb64pe_extension.bm");if(r)goto S_36362;} -S_36363:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_SBUFN[0]))[array_check((*_SUB_CLEARBUFFERS_INTEGER_BUF)-__ARRAY_STRING_SBUFN[4],__ARRAY_STRING_SBUFN[5])])),_SUB_CLEARBUFFERS_STRING_SBNAME)))||new_error){ -if(qbevent){evnt(26065,66,"sb_qb64pe_extension.bm");if(r)goto S_36363;} -do{ -goto fornext_exit_3975; -if(!qbevent)break;evnt(26065,66,"sb_qb64pe_extension.bm");}while(r); -} -fornext_continue_3975:; -} -fornext_exit_3975:; -S_36367:; -if ((qbs_cleanup(qbs_tmp_base,-(*_SUB_CLEARBUFFERS_INTEGER_BUF>func_ubound(__ARRAY_STRING_SBUFN,1,1))))||new_error){ -if(qbevent){evnt(26065,68,"sb_qb64pe_extension.bm");if(r)goto S_36367;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26065,68,"sb_qb64pe_extension.bm");}while(r); -} -do{ -SUB_DISPOSEBUF(_SUB_CLEARBUFFERS_INTEGER_BUF); -if(!qbevent)break;evnt(26065,69,"sb_qb64pe_extension.bm");}while(r); -do{ -tmp_long=array_check((*_SUB_CLEARBUFFERS_INTEGER_BUF)-__ARRAY_STRING_SBUFN[4],__ARRAY_STRING_SBUFN[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SBUFN[0]))[tmp_long])),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26065,69,"sb_qb64pe_extension.bm");}while(r); -}else{ -S_36373:; -fornext_value3978= 0 ; -fornext_finalvalue3978=func_ubound(__ARRAY_STRING_SBUFN,1,1); -fornext_step3978= 1 ; -if (fornext_step3978<0) fornext_step_negative3978=1; else fornext_step_negative3978=0; -if (new_error) goto fornext_error3978; -goto fornext_entrylabel3978; -while(1){ -fornext_value3978=fornext_step3978+(*_SUB_CLEARBUFFERS_INTEGER_BUF); -fornext_entrylabel3978: -*_SUB_CLEARBUFFERS_INTEGER_BUF=fornext_value3978; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative3978){ -if (fornext_value3978fornext_finalvalue3978) break; -} -fornext_error3978:; -if(qbevent){evnt(26065,71,"sb_qb64pe_extension.bm");if(r)goto S_36373;} -S_36374:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(((qbs*)(((uint64*)(__ARRAY_STRING_SBUFN[0]))[array_check((*_SUB_CLEARBUFFERS_INTEGER_BUF)-__ARRAY_STRING_SBUFN[4],__ARRAY_STRING_SBUFN[5])])),qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26065,72,"sb_qb64pe_extension.bm");if(r)goto S_36374;} -do{ -SUB_DISPOSEBUF(_SUB_CLEARBUFFERS_INTEGER_BUF); -if(!qbevent)break;evnt(26065,72,"sb_qb64pe_extension.bm");}while(r); -do{ -tmp_long=array_check((*_SUB_CLEARBUFFERS_INTEGER_BUF)-__ARRAY_STRING_SBUFN[4],__ARRAY_STRING_SBUFN[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SBUFN[0]))[tmp_long])),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26065,72,"sb_qb64pe_extension.bm");}while(r); -} -fornext_continue_3977:; -} -fornext_exit_3977:; -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free167.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -void SUB_WRITEBUFFERS(qbs*_SUB_WRITEBUFFERS_STRING_SBNAME){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data168.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -if(!qbevent)break;evnt(26065,88,"sb_qb64pe_extension.bm");}while(r); -S_36381:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_WRITEBUFFERS_STRING_SBNAME,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26065,90,"sb_qb64pe_extension.bm");if(r)goto S_36381;} -S_36382:; -fornext_value3981= 0 ; -fornext_finalvalue3981=func_ubound(__ARRAY_STRING_SBUFN,1,1); -fornext_step3981= 1 ; -if (fornext_step3981<0) fornext_step_negative3981=1; else fornext_step_negative3981=0; -if (new_error) goto fornext_error3981; -goto fornext_entrylabel3981; -while(1){ -fornext_value3981=fornext_step3981+(*_SUB_WRITEBUFFERS_INTEGER_BUF); -fornext_entrylabel3981: -*_SUB_WRITEBUFFERS_INTEGER_BUF=fornext_value3981; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative3981){ -if (fornext_value3981fornext_finalvalue3981) break; -} -fornext_error3981:; -if(qbevent){evnt(26065,91,"sb_qb64pe_extension.bm");if(r)goto S_36382;} -S_36383:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_SBUFN[0]))[array_check((*_SUB_WRITEBUFFERS_INTEGER_BUF)-__ARRAY_STRING_SBUFN[4],__ARRAY_STRING_SBUFN[5])])),_SUB_WRITEBUFFERS_STRING_SBNAME)))||new_error){ -if(qbevent){evnt(26065,92,"sb_qb64pe_extension.bm");if(r)goto S_36383;} -do{ -goto fornext_exit_3980; -if(!qbevent)break;evnt(26065,92,"sb_qb64pe_extension.bm");}while(r); -} -fornext_continue_3980:; -} -fornext_exit_3980:; -S_36387:; -if ((qbs_cleanup(qbs_tmp_base,-(*_SUB_WRITEBUFFERS_INTEGER_BUF>func_ubound(__ARRAY_STRING_SBUFN,1,1))))||new_error){ -if(qbevent){evnt(26065,94,"sb_qb64pe_extension.bm");if(r)goto S_36387;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26065,94,"sb_qb64pe_extension.bm");}while(r); -} -S_36390:; -if ((FUNC_ISBUFCHANGED(_SUB_WRITEBUFFERS_INTEGER_BUF))||new_error){ -if(qbevent){evnt(26065,95,"sb_qb64pe_extension.bm");if(r)goto S_36390;} -do{ -SUB_BUFTOFILE(_SUB_WRITEBUFFERS_INTEGER_BUF,((qbs*)(((uint64*)(__ARRAY_STRING_SBUFN[0]))[array_check((*_SUB_WRITEBUFFERS_INTEGER_BUF)-__ARRAY_STRING_SBUFN[4],__ARRAY_STRING_SBUFN[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26065,95,"sb_qb64pe_extension.bm");}while(r); -} -}else{ -S_36394:; -fornext_value3983= 0 ; -fornext_finalvalue3983=func_ubound(__ARRAY_STRING_SBUFN,1,1); -fornext_step3983= 1 ; -if (fornext_step3983<0) fornext_step_negative3983=1; else fornext_step_negative3983=0; -if (new_error) goto fornext_error3983; -goto fornext_entrylabel3983; -while(1){ -fornext_value3983=fornext_step3983+(*_SUB_WRITEBUFFERS_INTEGER_BUF); -fornext_entrylabel3983: -*_SUB_WRITEBUFFERS_INTEGER_BUF=fornext_value3983; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative3983){ -if (fornext_value3983fornext_finalvalue3983) break; -} -fornext_error3983:; -if(qbevent){evnt(26065,97,"sb_qb64pe_extension.bm");if(r)goto S_36394;} -S_36395:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(((qbs*)(((uint64*)(__ARRAY_STRING_SBUFN[0]))[array_check((*_SUB_WRITEBUFFERS_INTEGER_BUF)-__ARRAY_STRING_SBUFN[4],__ARRAY_STRING_SBUFN[5])])),qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26065,98,"sb_qb64pe_extension.bm");if(r)goto S_36395;} -S_36396:; -if ((FUNC_ISBUFCHANGED(_SUB_WRITEBUFFERS_INTEGER_BUF))||new_error){ -if(qbevent){evnt(26065,99,"sb_qb64pe_extension.bm");if(r)goto S_36396;} -do{ -SUB_BUFTOFILE(_SUB_WRITEBUFFERS_INTEGER_BUF,((qbs*)(((uint64*)(__ARRAY_STRING_SBUFN[0]))[array_check((*_SUB_WRITEBUFFERS_INTEGER_BUF)-__ARRAY_STRING_SBUFN[4],__ARRAY_STRING_SBUFN[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26065,99,"sb_qb64pe_extension.bm");}while(r); -} -} -fornext_continue_3982:; -} -fornext_exit_3982:; -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free168.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -int32 FUNC_IDE(int32*_FUNC_IDE_LONG_IGNORE){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data169.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -*_FUNC_IDE_LONG_IGNORE=*_FUNC_IDE_LONG_IGNORE; -if(!qbevent)break;evnt(26070,4,"ide_methods.bas");}while(r); -S_36403:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_IDECOMMAND,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,5,"ide_methods.bas");if(r)goto S_36403;} -do{ -*_FUNC_IDE_LONG_CMD=qbs_asc(__STRING_IDECOMMAND); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5,"ide_methods.bas");}while(r); -} -S_36406:; -if ((-(*_FUNC_IDE_LONG_CMD== 3 ))||new_error){ -if(qbevent){evnt(26070,6,"ide_methods.bas");if(r)goto S_36406;} -S_36407:; -if ((-(*__LONG_IDECOMPILEDLINE<*__LONG_IDEN))||new_error){ -if(qbevent){evnt(26070,7,"ide_methods.bas");if(r)goto S_36407;} -S_36408:; -if (((-(*__LONG_IDECOMPILEDLINE<*__LONG_IDESY))|(-(*__LONG_IDECOMPILEDLINE>(*__LONG_IDESY+(*__LONG_IDEWY- 9 )))))||new_error){ -if(qbevent){evnt(26070,8,"ide_methods.bas");if(r)goto S_36408;} -S_36409:; -if ((func__exit()& 1 )||new_error){ -if(qbevent){evnt(26070,9,"ide_methods.bas");if(r)goto S_36409;} -do{ -*__LONG_IDEEXIT= 1 ; -if(!qbevent)break;evnt(26070,9,"ide_methods.bas");}while(r); -} -S_36412:; -if ((-(*__LONG_IDEEXIT== 0 ))||new_error){ -if(qbevent){evnt(26070,10,"ide_methods.bas");if(r)goto S_36412;} -do{ -SUB_GETINPUT(); -if(!qbevent)break;evnt(26070,11,"ide_methods.bas");}while(r); -S_36414:; -if (((-(*__LONG_ICHANGED== 0 ))&(-(*__LONG_MB== 0 )))||new_error){ -if(qbevent){evnt(26070,12,"ide_methods.bas");if(r)goto S_36414;} -S_36415:; -if (((-(*__LONG_IDEAUTOLAYOUT!= 0 ))|(-(*__LONG_IDEAUTOINDENT!= 0 )))||new_error){ -if(qbevent){evnt(26070,16,"ide_methods.bas");if(r)goto S_36415;} -S_36416:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(26070,17,"ide_methods.bas");if(r)goto S_36416;} -do{ -*_FUNC_IDE_LONG_L=__STRING_LAYOUT->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20,"ide_methods.bas");}while(r); -S_36418:; -fornext_value3987= 1 ; -fornext_finalvalue3987=*_FUNC_IDE_LONG_L; -fornext_step3987= 1 ; -if (fornext_step3987<0) fornext_step_negative3987=1; else fornext_step_negative3987=0; -if (new_error) goto fornext_error3987; -goto fornext_entrylabel3987; -while(1){ -fornext_value3987=fornext_step3987+(*_FUNC_IDE_LONG_I); -fornext_entrylabel3987: -*_FUNC_IDE_LONG_I=fornext_value3987; -if (fornext_step_negative3987){ -if (fornext_value3987fornext_finalvalue3987) break; -} -fornext_error3987:; -if(qbevent){evnt(26070,21,"ide_methods.bas");if(r)goto S_36418;} -S_36419:; -if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(__STRING_LAYOUT,*_FUNC_IDE_LONG_I)!= 32 ))|(-(*_FUNC_IDE_LONG_I==*_FUNC_IDE_LONG_L))))||new_error){ -if(qbevent){evnt(26070,22,"ide_methods.bas");if(r)goto S_36419;} -S_36420:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_LAYOUT,*_FUNC_IDE_LONG_I)== 32 )))||new_error){ -if(qbevent){evnt(26070,23,"ide_methods.bas");if(r)goto S_36420;} -do{ -qbs_set(__STRING_LAYOUT,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,24,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE_LONG_INDENT=*_FUNC_IDE_LONG_I; -if(!qbevent)break;evnt(26070,24,"ide_methods.bas");}while(r); -}else{ -do{ -*_FUNC_IDE_LONG_INDENT=*_FUNC_IDE_LONG_I- 1 ; -if(!qbevent)break;evnt(26070,26,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_LAYOUT,qbs_right(__STRING_LAYOUT,__STRING_LAYOUT->len-*_FUNC_IDE_LONG_I+ 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,27,"ide_methods.bas");}while(r); -} -do{ -goto fornext_exit_3986; -if(!qbevent)break;evnt(26070,29,"ide_methods.bas");}while(r); -} -fornext_continue_3986:; -} -fornext_exit_3986:; -S_36430:; -if ((*__LONG_IDEAUTOLAYOUT)||new_error){ -if(qbevent){evnt(26070,33,"ide_methods.bas");if(r)goto S_36430;} -do{ -qbs_set(_FUNC_IDE_STRING_LAYOUT2,__STRING_LAYOUT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,34,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE_LONG_I2= 1 ; -if(!qbevent)break;evnt(26070,34,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE_LONG_IGNORESP= 0 ; -if(!qbevent)break;evnt(26070,35,"ide_methods.bas");}while(r); -S_36434:; -fornext_value3990= 1 ; -fornext_finalvalue3990=__STRING_LAYOUT->len; -fornext_step3990= 1 ; -if (fornext_step3990<0) fornext_step_negative3990=1; else fornext_step_negative3990=0; -if (new_error) goto fornext_error3990; -goto fornext_entrylabel3990; -while(1){ -fornext_value3990=fornext_step3990+(*_FUNC_IDE_LONG_I); -fornext_entrylabel3990: -*_FUNC_IDE_LONG_I=fornext_value3990; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative3990){ -if (fornext_value3990fornext_finalvalue3990) break; -} -fornext_error3990:; -if(qbevent){evnt(26070,36,"ide_methods.bas");if(r)goto S_36434;} -do{ -*_FUNC_IDE_LONG_A=qbs_asc(__STRING_LAYOUT,*_FUNC_IDE_LONG_I); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,37,"ide_methods.bas");}while(r); -S_36436:; -if ((-(*_FUNC_IDE_LONG_A== 34 ))||new_error){ -if(qbevent){evnt(26070,38,"ide_methods.bas");if(r)goto S_36436;} -do{ -*_FUNC_IDE_LONG_IGNORESP=*_FUNC_IDE_LONG_IGNORESP+ 1 ; -if(!qbevent)break;evnt(26070,39,"ide_methods.bas");}while(r); -S_36438:; -if ((-(*_FUNC_IDE_LONG_IGNORESP== 2 ))||new_error){ -if(qbevent){evnt(26070,39,"ide_methods.bas");if(r)goto S_36438;} -do{ -*_FUNC_IDE_LONG_IGNORESP= 0 ; -if(!qbevent)break;evnt(26070,39,"ide_methods.bas");}while(r); -} -} -S_36442:; -if ((-(*_FUNC_IDE_LONG_IGNORESP== 0 ))||new_error){ -if(qbevent){evnt(26070,41,"ide_methods.bas");if(r)goto S_36442;} -S_36443:; -if ((-(*_FUNC_IDE_LONG_A==*__LONG_SP_ASC))||new_error){ -if(qbevent){evnt(26070,42,"ide_methods.bas");if(r)goto S_36443;} -do{ -tqbs=_FUNC_IDE_STRING_LAYOUT2; if (!new_error){ -tmp_fileno=*_FUNC_IDE_LONG_I2; if (!new_error){ -tmp_long= 32 ; if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(26070,42,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE_LONG_I2=*_FUNC_IDE_LONG_I2+ 1 ; -if(!qbevent)break;evnt(26070,42,"ide_methods.bas");}while(r); -do{ -goto LABEL_SKIPCHAR; -if(!qbevent)break;evnt(26070,42,"ide_methods.bas");}while(r); -} -S_36448:; -if ((-(*_FUNC_IDE_LONG_A==*__LONG_SP2_ASC))||new_error){ -if(qbevent){evnt(26070,43,"ide_methods.bas");if(r)goto S_36448;} -do{ -goto LABEL_SKIPCHAR; -if(!qbevent)break;evnt(26070,43,"ide_methods.bas");}while(r); -} -} -do{ -tqbs=_FUNC_IDE_STRING_LAYOUT2; if (!new_error){ -tmp_fileno=*_FUNC_IDE_LONG_I2; if (!new_error){ -tmp_long=*_FUNC_IDE_LONG_A; if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(26070,45,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE_LONG_I2=*_FUNC_IDE_LONG_I2+ 1 ; -if(!qbevent)break;evnt(26070,45,"ide_methods.bas");}while(r); -LABEL_SKIPCHAR:; -if(qbevent){evnt(26070,46,"ide_methods.bas");r=0;} -fornext_continue_3989:; -} -fornext_exit_3989:; -do{ -qbs_set(__STRING_LAYOUT,qbs_left(_FUNC_IDE_STRING_LAYOUT2,*_FUNC_IDE_LONG_I2- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,48,"ide_methods.bas");}while(r); -} -S_36457:; -if ((-(*__LONG_IDEAUTOINDENT== 0 ))||new_error){ -if(qbevent){evnt(26070,51,"ide_methods.bas");if(r)goto S_36457;} -do{ -*_FUNC_IDE_LONG_INDENT= 0 ; -if(!qbevent)break;evnt(26070,54,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE_LONG_L=__STRING_IDECOMPILEDLINE->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,55,"ide_methods.bas");}while(r); -S_36460:; -fornext_value3994= 1 ; -fornext_finalvalue3994=*_FUNC_IDE_LONG_L; -fornext_step3994= 1 ; -if (fornext_step3994<0) fornext_step_negative3994=1; else fornext_step_negative3994=0; -if (new_error) goto fornext_error3994; -goto fornext_entrylabel3994; -while(1){ -fornext_value3994=fornext_step3994+(*_FUNC_IDE_LONG_I); -fornext_entrylabel3994: -*_FUNC_IDE_LONG_I=fornext_value3994; -if (fornext_step_negative3994){ -if (fornext_value3994fornext_finalvalue3994) break; -} -fornext_error3994:; -if(qbevent){evnt(26070,56,"ide_methods.bas");if(r)goto S_36460;} -S_36461:; -if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(__STRING_IDECOMPILEDLINE,*_FUNC_IDE_LONG_I)!= 32 ))|(-(*_FUNC_IDE_LONG_I==*_FUNC_IDE_LONG_L))))||new_error){ -if(qbevent){evnt(26070,57,"ide_methods.bas");if(r)goto S_36461;} -do{ -*_FUNC_IDE_LONG_INDENT=*_FUNC_IDE_LONG_I- 1 ; -if(!qbevent)break;evnt(26070,58,"ide_methods.bas");}while(r); -do{ -goto fornext_exit_3993; -if(!qbevent)break;evnt(26070,59,"ide_methods.bas");}while(r); -} -fornext_continue_3993:; -} -fornext_exit_3993:; -do{ -qbs_set(_FUNC_IDE_STRING_INDENT,func_space(*_FUNC_IDE_LONG_INDENT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,62,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDE_STRING_INDENT,func_space(*_FUNC_IDE_LONG_INDENT**__LONG_IDEAUTOINDENTSIZE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,64,"ide_methods.bas");}while(r); -} -S_36470:; -if ((-(*__LONG_IDEAUTOLAYOUT== 0 ))||new_error){ -if(qbevent){evnt(26070,67,"ide_methods.bas");if(r)goto S_36470;} -do{ -*_FUNC_IDE_LONG_L=__STRING_IDECOMPILEDLINE->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,69,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_LAYOUT,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,70,"ide_methods.bas");}while(r); -S_36473:; -fornext_value3997= 1 ; -fornext_finalvalue3997=*_FUNC_IDE_LONG_L; -fornext_step3997= 1 ; -if (fornext_step3997<0) fornext_step_negative3997=1; else fornext_step_negative3997=0; -if (new_error) goto fornext_error3997; -goto fornext_entrylabel3997; -while(1){ -fornext_value3997=fornext_step3997+(*_FUNC_IDE_LONG_I); -fornext_entrylabel3997: -*_FUNC_IDE_LONG_I=fornext_value3997; -if (fornext_step_negative3997){ -if (fornext_value3997fornext_finalvalue3997) break; -} -fornext_error3997:; -if(qbevent){evnt(26070,71,"ide_methods.bas");if(r)goto S_36473;} -S_36474:; -if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(__STRING_IDECOMPILEDLINE,*_FUNC_IDE_LONG_I)!= 32 ))|(-(*_FUNC_IDE_LONG_I==*_FUNC_IDE_LONG_L))))||new_error){ -if(qbevent){evnt(26070,72,"ide_methods.bas");if(r)goto S_36474;} -do{ -qbs_set(__STRING_LAYOUT,qbs_right(__STRING_IDECOMPILEDLINE,*_FUNC_IDE_LONG_L-*_FUNC_IDE_LONG_I+ 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,73,"ide_methods.bas");}while(r); -do{ -goto fornext_exit_3996; -if(!qbevent)break;evnt(26070,74,"ide_methods.bas");}while(r); -} -fornext_continue_3996:; -} -fornext_exit_3996:; -} -S_36480:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(26070,79,"ide_methods.bas");if(r)goto S_36480;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(_FUNC_IDE_STRING_INDENT,__STRING_LAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,80,"ide_methods.bas");}while(r); -S_36482:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_IDECOMPILEDLINE,__STRING_LAYOUT)))||new_error){ -if(qbevent){evnt(26070,81,"ide_methods.bas");if(r)goto S_36482;} -do{ -SUB_IDESETLINE(__LONG_IDECOMPILEDLINE,__STRING_LAYOUT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,82,"ide_methods.bas");}while(r); -} -} -} -} -do{ -*__LONG_IDECOMPILEDLINE=*__LONG_IDECOMPILEDLINE+ 1 ; -if(!qbevent)break;evnt(26070,91,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_IDECOMPILEDLINE,FUNC_IDEGETLINE(__LONG_IDECOMPILEDLINE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,92,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE_LONG_IDE= 4 ; -if(!qbevent)break;evnt(26070,93,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_IDERETURN,__STRING_IDECOMPILEDLINE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,94,"ide_methods.bas");}while(r); -S_36492:; -if ((-(*__LONG_IDEAUTORUN!= 0 ))||new_error){ -if(qbevent){evnt(26070,97,"ide_methods.bas");if(r)goto S_36492;} -S_36493:; -if ((*__LONG_PREPASS)||new_error){ -if(qbevent){evnt(26070,98,"ide_methods.bas");if(r)goto S_36493;} -do{ -qbs_set(_FUNC_IDE_STRING_STATUS__ASCII_CHR_046__PROGRESS,FUNC_STR2(&(pass3999=qbr(floor((*__LONG_IDECOMPILEDLINE* 100 )/ ((long double)((*__LONG_IDEN* 2 )))))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,99,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE_STRING_STATUS__ASCII_CHR_046__PROGRESS,qbs_add(qbs_add(func_string( 3 -_FUNC_IDE_STRING_STATUS__ASCII_CHR_046__PROGRESS->len, 32 ),_FUNC_IDE_STRING_STATUS__ASCII_CHR_046__PROGRESS),qbs_new_txt_len("%",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,100,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDE_STRING_STATUS__ASCII_CHR_046__PROGRESS,FUNC_STR2(&(pass4001=qbr(floor(((*__LONG_IDEN+*__LONG_IDECOMPILEDLINE)* 100 )/ ((long double)((*__LONG_IDEN* 2 )))))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,102,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE_STRING_STATUS__ASCII_CHR_046__PROGRESS,qbs_add(qbs_add(func_string( 3 -_FUNC_IDE_STRING_STATUS__ASCII_CHR_046__PROGRESS->len, 32 ),_FUNC_IDE_STRING_STATUS__ASCII_CHR_046__PROGRESS),qbs_new_txt_len("%",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,103,"ide_methods.bas");}while(r); -} -do{ -qbs_set(__STRING_IDEINFO,qbs_add(func_chr( 0 ),_FUNC_IDE_STRING_STATUS__ASCII_CHR_046__PROGRESS)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,105,"ide_methods.bas");}while(r); -} -do{ -SUB_UPDATEIDEINFO(); -if(!qbevent)break;evnt(26070,118,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,120,"ide_methods.bas");}while(r); -} -S_36505:; -if ((*__LONG_ICHANGED)||new_error){ -if(qbevent){evnt(26070,122,"ide_methods.bas");if(r)goto S_36505;} -do{ -*__LONG_ICHECKLATER= 1 ; -if(!qbevent)break;evnt(26070,122,"ide_methods.bas");}while(r); -} -} -} -}else{ -S_36511:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_IDESYSTEM!= 3 ))|(qbs_notequal(qbs_left(__STRING_IDEINFO, 19 ),qbs_new_txt_len("Selection length = ",19)))))||new_error){ -if(qbevent){evnt(26070,126,"ide_methods.bas");if(r)goto S_36511;} -do{ -qbs_set(__STRING_IDEINFO,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,126,"ide_methods.bas");}while(r); -} -do{ -SUB_UPDATEIDEINFO(); -if(!qbevent)break;evnt(26070,127,"ide_methods.bas");}while(r); -} -} -do{ -*_FUNC_IDE_LONG_IDE=FUNC_IDE2(&(pass4003= 0 )); -if(!qbevent)break;evnt(26070,131,"ide_methods.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free169.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -return *_FUNC_IDE_LONG_IDE; -} -int32 FUNC_IDE2(int32*_FUNC_IDE2_LONG_IGNORE){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data170.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -if(!qbevent)break;evnt(26070,135,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(26070,136,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(26070,137,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(26070,138,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(26070,139,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(26070,140,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(26070,141,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(26070,142,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(26070,143,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(26070,144,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(26070,145,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(26070,146,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(26070,147,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_IGNORE=*_FUNC_IDE2_LONG_IGNORE; -if(!qbevent)break;evnt(26070,149,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_CHAR__ASCII_CHR_046__SEP,qbs_add(func_chr( 34 ),qbs_new_txt_len(" =<>+-/\\^:;,*().",16))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,151,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_C,__STRING_IDECOMMAND); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,153,"ide_methods.bas");}while(r); -do{ -*__LONG_DEBUGNEXTLINE= 0 ; -if(!qbevent)break;evnt(26070,154,"ide_methods.bas");}while(r); -LABEL_IDEERRORMESSAGE:; -if(qbevent){evnt(26070,156,"ide_methods.bas");r=0;} -S_36535:; -if ((*__LONG_IDEERROR)||new_error){ -if(qbevent){evnt(26070,158,"ide_methods.bas");if(r)goto S_36535;} -S_36536:; -if ((*__LONG_IDEDEBUGMODE)||new_error){ -if(qbevent){evnt(26070,159,"ide_methods.bas");if(r)goto S_36536;} -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,160,"ide_methods.bas");}while(r); -do{ -sub__printstring( 1 , 1 ,__STRING_MENUBAR,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,160,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDE2_LONG_MUSTDISPLAY= 1 ; -if(!qbevent)break;evnt(26070,162,"ide_methods.bas");}while(r); -S_36541:; -if ((-(*__LONG_IDEERROR== 1 ))||new_error){ -if(qbevent){evnt(26070,163,"ide_methods.bas");if(r)goto S_36541;} -do{ -qbs_set(_FUNC_IDE2_STRING_ERRORAT,qbs_new_txt_len("Internal IDE error",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,163,"ide_methods.bas");}while(r); -} -S_36544:; -if ((-(*__LONG_IDEERROR== 2 ))||new_error){ -if(qbevent){evnt(26070,164,"ide_methods.bas");if(r)goto S_36544;} -do{ -qbs_set(_FUNC_IDE2_STRING_ERRORAT,qbs_new_txt_len("File not found",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,164,"ide_methods.bas");}while(r); -} -S_36547:; -if ((-(*__LONG_IDEERROR== 3 ))||new_error){ -if(qbevent){evnt(26070,165,"ide_methods.bas");if(r)goto S_36547;} -do{ -qbs_set(_FUNC_IDE2_STRING_ERRORAT,qbs_new_txt_len("File access error",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,165,"ide_methods.bas");}while(r); -do{ -sub_close( 150 ,1); -if(!qbevent)break;evnt(26070,165,"ide_methods.bas");}while(r); -} -S_36551:; -if ((-(*__LONG_IDEERROR== 4 ))||new_error){ -if(qbevent){evnt(26070,166,"ide_methods.bas");if(r)goto S_36551;} -do{ -qbs_set(_FUNC_IDE2_STRING_ERRORAT,qbs_new_txt_len("Path not found",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,166,"ide_methods.bas");}while(r); -} -S_36554:; -if ((-(*__LONG_IDEERROR== 5 ))||new_error){ -if(qbevent){evnt(26070,167,"ide_methods.bas");if(r)goto S_36554;} -do{ -qbs_set(_FUNC_IDE2_STRING_ERRORAT,qbs_new_txt_len("Cannot create folder",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,167,"ide_methods.bas");}while(r); -} -S_36557:; -if ((-(*__LONG_IDEERROR== 6 ))||new_error){ -if(qbevent){evnt(26070,168,"ide_methods.bas");if(r)goto S_36557;} -do{ -qbs_set(_FUNC_IDE2_STRING_ERRORAT,qbs_new_txt_len("Cannot save file",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,168,"ide_methods.bas");}while(r); -} -S_36560:; -if ((-(*__LONG_IDEERROR== 7 ))||new_error){ -if(qbevent){evnt(26070,169,"ide_methods.bas");if(r)goto S_36560;} -do{ -qbs_set(_FUNC_IDE2_STRING_ERRORAT,qbs_new_txt_len("Cannot export file",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,169,"ide_methods.bas");}while(r); -} -S_36563:; -if ((-(*__LONG_IDEERROR== -1 ))||new_error){ -if(qbevent){evnt(26070,170,"ide_methods.bas");if(r)goto S_36563;} -do{ -goto LABEL_ERRORREPORTDONE; -if(!qbevent)break;evnt(26070,170,"ide_methods.bas");}while(r); -} -do{ -*__INTEGER_QBERRORCODE=get_error_err(); -if(!qbevent)break;evnt(26070,172,"ide_methods.bas");}while(r); -S_36567:; -if ((*__INTEGER_QBERRORCODE)||new_error){ -if(qbevent){evnt(26070,173,"ide_methods.bas");if(r)goto S_36567;} -do{ -qbs_set(_FUNC_IDE2_STRING_IDEERRORMESSAGETITLE,qbs_add(qbs_new_txt_len("Error ",6),FUNC_STR2(&(pass4004=*__INTEGER_QBERRORCODE)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,174,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDE2_STRING_IDEERRORMESSAGETITLE,qbs_new_txt_len("Error",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,176,"ide_methods.bas");}while(r); -} -S_36572:; -if (((-(*__LONG_IDEERROR> 1 )))||new_error){ -if(qbevent){evnt(26070,179,"ide_methods.bas");if(r)goto S_36572;} -do{ -qbs_set(_FUNC_IDE2_STRING_IDEERRORMESSAGETITLE,qbs_add(_FUNC_IDE2_STRING_IDEERRORMESSAGETITLE,qbs_new_txt_len(" (",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,181,"ide_methods.bas");}while(r); -S_36574:; -if (((-(func__errorline()> 0 ))|(-(func__inclerrorline()> 0 )))||new_error){ -if(qbevent){evnt(26070,182,"ide_methods.bas");if(r)goto S_36574;} -do{ -qbs_set(_FUNC_IDE2_STRING_IDEERRORMESSAGETITLE,qbs_add(qbs_add(qbs_add(_FUNC_IDE2_STRING_IDEERRORMESSAGETITLE,FUNC_STR2(&(pass4005=func__errorline()))),qbs_new_txt_len("-",1)),FUNC_STR2(&(pass4006=func__inclerrorline())))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,183,"ide_methods.bas");}while(r); -} -S_36577:; -if ((*__BYTE_ISCIVERSION)||new_error){ -if(qbevent){evnt(26070,185,"ide_methods.bas");if(r)goto S_36577;} -do{ -qbs_set(_FUNC_IDE2_STRING_IDEERRORMESSAGETITLE,qbs_add(qbs_add(_FUNC_IDE2_STRING_IDEERRORMESSAGETITLE,qbs_new_txt_len("-",1)),__STRING_VERSION)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,185,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDE2_STRING_IDEERRORMESSAGETITLE,qbs_add(_FUNC_IDE2_STRING_IDEERRORMESSAGETITLE,qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,186,"ide_methods.bas");}while(r); -S_36581:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_IDEERRORMESSAGETITLE,qbs_new_txt_len("Error ()",8))))||new_error){ -if(qbevent){evnt(26070,187,"ide_methods.bas");if(r)goto S_36581;} -do{ -qbs_set(_FUNC_IDE2_STRING_IDEERRORMESSAGETITLE,qbs_new_txt_len("Error",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,187,"ide_methods.bas");}while(r); -} -S_36584:; -if ((-(*_FUNC_IDE2_BYTE_ATTEMPTTOLOADRECENT== -1 ))||new_error){ -if(qbevent){evnt(26070,188,"ide_methods.bas");if(r)goto S_36584;} -do{ -sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(26070,190,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_RESULT=FUNC_IDEMESSAGEBOX(_FUNC_IDE2_STRING_IDEERRORMESSAGETITLE,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_IDE2_STRING_ERRORAT,qbs_new_txt_len(".",1)),func_chr( 10 )),func_chr( 10 )),qbs_new_txt_len("Remove broken links from recent files?",38)),qbs_new_txt_len("#Yes;#No",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,191,"ide_methods.bas");}while(r); -S_36587:; -if ((-(*_FUNC_IDE2_LONG_RESULT== 1 ))||new_error){ -if(qbevent){evnt(26070,192,"ide_methods.bas");if(r)goto S_36587;} -do{ -return_point[next_return_point++]=12; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_CLEANUPRECENTLIST; -RETURN_12:; -if(!qbevent)break;evnt(26070,193,"ide_methods.bas");}while(r); -} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,195,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,195,"ide_methods.bas");}while(r); -do{ -goto LABEL_ERRORREPORTDONE; -if(!qbevent)break;evnt(26070,196,"ide_methods.bas");}while(r); -} -}else{ -do{ -*_FUNC_IDE2_LONG_INCLERRORLINE=func__inclerrorline(); -if(!qbevent)break;evnt(26070,200,"ide_methods.bas");}while(r); -S_36596:; -if ((*_FUNC_IDE2_LONG_INCLERRORLINE)||new_error){ -if(qbevent){evnt(26070,201,"ide_methods.bas");if(r)goto S_36596;} -do{ -qbs_set(_FUNC_IDE2_STRING_ERRORAT,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_IDE2_STRING_ERRORAT,func_chr( 10 )),qbs_new_txt_len(" ",1)),func_chr( 10 )),qbs_new_txt_len("(module: ",9)),FUNC_REMOVEFILEEXTENSION(qbs_left(func__inclerrorfile(), 60 )))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,203,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_ERRORAT,qbs_add(qbs_add(_FUNC_IDE2_STRING_ERRORAT,qbs_new_txt_len(", on line: ",11)),FUNC_STR2(_FUNC_IDE2_LONG_INCLERRORLINE))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,204,"ide_methods.bas");}while(r); -S_36599:; -if ((*__BYTE_ISCIVERSION)||new_error){ -if(qbevent){evnt(26070,205,"ide_methods.bas");if(r)goto S_36599;} -do{ -qbs_set(_FUNC_IDE2_STRING_ERRORAT,qbs_add(qbs_add(_FUNC_IDE2_STRING_ERRORAT,qbs_new_txt_len(", ",2)),__STRING_VERSION)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,205,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDE2_STRING_ERRORAT,qbs_add(_FUNC_IDE2_STRING_ERRORAT,qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,206,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDE2_STRING_ERRORAT,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_IDE2_STRING_ERRORAT,func_chr( 10 )),qbs_new_txt_len(" ",1)),func_chr( 10 )),qbs_new_txt_len("(on line: ",10)),FUNC_STR2(&(pass4007=func__errorline())))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,208,"ide_methods.bas");}while(r); -S_36605:; -if ((*__BYTE_ISCIVERSION)||new_error){ -if(qbevent){evnt(26070,209,"ide_methods.bas");if(r)goto S_36605;} -do{ -qbs_set(_FUNC_IDE2_STRING_ERRORAT,qbs_add(qbs_add(_FUNC_IDE2_STRING_ERRORAT,qbs_new_txt_len(", ",2)),__STRING_VERSION)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,209,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDE2_STRING_ERRORAT,qbs_add(_FUNC_IDE2_STRING_ERRORAT,qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,210,"ide_methods.bas");}while(r); -} -} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,214,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_RESULT=FUNC_IDEMESSAGEBOX(_FUNC_IDE2_STRING_IDEERRORMESSAGETITLE,_FUNC_IDE2_STRING_ERRORAT,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,215,"ide_methods.bas");}while(r); -LABEL_ERRORREPORTDONE:; -if(qbevent){evnt(26070,216,"ide_methods.bas");r=0;} -} -do{ -*__LONG_IDEERROR= 1 ; -if(!qbevent)break;evnt(26070,219,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_BYTE_ATTEMPTTOLOADRECENT= 0 ; -if(!qbevent)break;evnt(26070,220,"ide_methods.bas");}while(r); -S_36616:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_IDE2_STRING_C, 1 ),func_chr( 12 ))))||new_error){ -if(qbevent){evnt(26070,222,"ide_methods.bas");if(r)goto S_36616;} -do{ -qbs_set(_FUNC_IDE2_STRING_F,qbs_right(_FUNC_IDE2_STRING_C,_FUNC_IDE2_STRING_C->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,223,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); -if(!qbevent)break;evnt(26070,224,"ide_methods.bas");}while(r); -do{ -SUB_CLEARSTATUSWINDOW(&(pass4009= 0 )); -if(!qbevent)break;evnt(26070,225,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_DUMMY=FUNC_DARKENFGBG(&(pass4010= 1 )); -if(!qbevent)break;evnt(26070,227,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_BKPIDESYSTEM=*__LONG_IDESYSTEM; -if(!qbevent)break;evnt(26070,228,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESYSTEM= 2 ; -if(!qbevent)break;evnt(26070,228,"ide_methods.bas");}while(r); -do{ -SUB_UPDATETITLEOFMAINWINDOW(); -if(!qbevent)break;evnt(26070,228,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESYSTEM=*_FUNC_IDE2_LONG_BKPIDESYSTEM; -if(!qbevent)break;evnt(26070,228,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 1 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,229,"ide_methods.bas");}while(r); -do{ -sub__printstring((*__LONG_IDEWX- 8 )/ ((long double)( 2 )),*__LONG_IDEWY- 4 ,qbs_new_txt_len(" Status ",8),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,229,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 15 , 1 ,NULL,3); -if(!qbevent)break;evnt(26070,230,"ide_methods.bas");}while(r); -S_36628:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ -if(qbevent){evnt(26070,232,"ide_methods.bas");if(r)goto S_36628;} -do{ -sub__printstring( 2 ,*__LONG_IDEWY- 3 ,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Creating .EXE file named ",25),func_chr( 34 )),_FUNC_IDE2_STRING_F),__STRING_EXTENSION),func_chr( 34 )),qbs_new_txt_len("...",3)),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,233,"ide_methods.bas");}while(r); -}else{ -do{ -sub__printstring( 2 ,*__LONG_IDEWY- 3 ,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Creating executable file named ",31),func_chr( 34 )),_FUNC_IDE2_STRING_F),__STRING_EXTENSION),func_chr( 34 )),qbs_new_txt_len("...",3)),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,235,"ide_methods.bas");}while(r); -} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,238,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_IDE2= 9 ; -if(!qbevent)break;evnt(26070,239,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_IDERETURN,_FUNC_IDE2_STRING_F); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,239,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,240,"ide_methods.bas");}while(r); -} -S_36638:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_C,func_chr( 100 ))))||new_error){ -if(qbevent){evnt(26070,243,"ide_methods.bas");if(r)goto S_36638;} -do{ -*__LONG_IDECOMPILEDLINE=*__LONG_IDECOMPILEDLINE+ 1 ; -if(!qbevent)break;evnt(26070,244,"ide_methods.bas");}while(r); -S_36640:; -if ((-(*__LONG_IDECOMPILEDLINE<*__LONG_IDEN))||new_error){ -if(qbevent){evnt(26070,245,"ide_methods.bas");if(r)goto S_36640;} -do{ -qbs_set(__STRING_IDECOMPILEDLINE,FUNC_IDEGETLINE(__LONG_IDECOMPILEDLINE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,246,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_IDERETURN,__STRING_IDECOMPILEDLINE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,247,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(__STRING_IDECOMPILEDLINE,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,249,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_IDERETURN,__STRING_IDECOMPILEDLINE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,250,"ide_methods.bas");}while(r); -} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,252,"ide_methods.bas");}while(r); -} -S_36649:; -if ((-(*__LONG_IDELAUNCHED== 0 ))||new_error){ -if(qbevent){evnt(26070,255,"ide_methods.bas");if(r)goto S_36649;} -do{ -*__LONG_IDELAUNCHED= 1 ; -if(!qbevent)break;evnt(26070,256,"ide_methods.bas");}while(r); -do{ -qbsub_width(NULL,*__LONG_IDEWX,*__LONG_IDEWY,NULL,NULL,3); -if(!qbevent)break;evnt(26070,258,"ide_methods.bas");}while(r); -S_36652:; -if ((*__BYTE_IDE_USEFONT8)||new_error){ -if(qbevent){evnt(26070,259,"ide_methods.bas");if(r)goto S_36652;} -do{ -sub__font( 8 ,NULL,0); -if(!qbevent)break;evnt(26070,259,"ide_methods.bas");}while(r); -}else{ -do{ -sub__font( 16 ,NULL,0); -if(!qbevent)break;evnt(26070,259,"ide_methods.bas");}while(r); -} -S_36657:; -if ((*__LONG_IDECPINDEX)||new_error){ -if(qbevent){evnt(26070,262,"ide_methods.bas");if(r)goto S_36657;} -S_36658:; -fornext_value4012= 128 ; -fornext_finalvalue4012= 255 ; -fornext_step4012= 1 ; -if (fornext_step4012<0) fornext_step_negative4012=1; else fornext_step_negative4012=0; -if (new_error) goto fornext_error4012; -goto fornext_entrylabel4012; -while(1){ -fornext_value4012=fornext_step4012+(*_FUNC_IDE2_LONG_X); -fornext_entrylabel4012: -*_FUNC_IDE2_LONG_X=fornext_value4012; -if (fornext_step_negative4012){ -if (fornext_value4012fornext_finalvalue4012) break; -} -fornext_error4012:; -if(qbevent){evnt(26070,263,"ide_methods.bas");if(r)goto S_36658;} -do{ -*_FUNC_IDE2_LONG_U=qbr(func_val(qbs_add(qbs_add(qbs_new_txt_len("&H",2),func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_IDECP[0]))[array_check((*__LONG_IDECPINDEX)-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5])])),(*_FUNC_IDE2_LONG_X* 8 )+( 1 ), 8 ,0|1)),qbs_new_txt_len("&",1)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,264,"ide_methods.bas");}while(r); -S_36660:; -if ((-(*_FUNC_IDE2_LONG_U== 0 ))||new_error){ -if(qbevent){evnt(26070,265,"ide_methods.bas");if(r)goto S_36660;} -do{ -*_FUNC_IDE2_LONG_U= 9744 ; -if(!qbevent)break;evnt(26070,265,"ide_methods.bas");}while(r); -} -do{ -sub__mapunicode(*_FUNC_IDE2_LONG_U,*_FUNC_IDE2_LONG_X); -if(!qbevent)break;evnt(26070,266,"ide_methods.bas");}while(r); -fornext_continue_4011:; -} -fornext_exit_4011:; -} -S_36666:; -if ((*__LONG_IDECUSTOMFONT)||new_error){ -if(qbevent){evnt(26070,270,"ide_methods.bas");if(r)goto S_36666;} -do{ -*__LONG_IDECUSTOMFONTHANDLE=func__loadfont(__STRING_IDECUSTOMFONTFILE,*__LONG_IDECUSTOMFONTHEIGHT,qbs_new_txt_len("MONOSPACE",9),0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,271,"ide_methods.bas");}while(r); -S_36668:; -if ((-(*__LONG_IDECUSTOMFONTHANDLE== -1 ))||new_error){ -if(qbevent){evnt(26070,272,"ide_methods.bas");if(r)goto S_36668;} -do{ -*__LONG_IDECUSTOMFONT= 0 ; -if(!qbevent)break;evnt(26070,274,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_IDECUSTOMFONTFILE,qbs_new_txt_len("C:\\Windows\\Fonts\\lucon.ttf",26)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,274,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECUSTOMFONTHEIGHT= 21 ; -if(!qbevent)break;evnt(26070,274,"ide_methods.bas");}while(r); -}else{ -do{ -sub__font(*__LONG_IDECUSTOMFONTHANDLE,NULL,0); -if(!qbevent)break;evnt(26070,276,"ide_methods.bas");}while(r); -} -} -do{ -*_FUNC_IDE2_LONG_M= 1 ; -if(!qbevent)break;evnt(26070,280,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I= 0 ; -if(!qbevent)break;evnt(26070,280,"ide_methods.bas");}while(r); -do{ -SUB_IDEMAKEFILEMENU(); -if(!qbevent)break;evnt(26070,281,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_M+ 1 ; -if(!qbevent)break;evnt(26070,283,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I= 0 ; -if(!qbevent)break;evnt(26070,283,"ide_methods.bas");}while(r); -do{ -*__INTEGER_IDEEDITMENUID=*_FUNC_IDE2_LONG_M; -if(!qbevent)break;evnt(26070,284,"ide_methods.bas");}while(r); -do{ -SUB_IDEMAKEEDITMENU(); -if(!qbevent)break;evnt(26070,285,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_M+ 1 ; -if(!qbevent)break;evnt(26070,287,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I= 0 ; -if(!qbevent)break;evnt(26070,287,"ide_methods.bas");}while(r); -do{ -*__INTEGER_VIEWMENUID=*_FUNC_IDE2_LONG_M; -if(!qbevent)break;evnt(26070,287,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("View",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,288,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,288,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#SUBs... F2",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,289,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,289,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Displays a list of SUB/FUNCTION procedures",42)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,290,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(qbs_new_txt_len("#Line Numbers ",15),func_chr( 16 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,291,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,291,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Toggles and customizes line numbers (side bar)",46)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,292,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,293,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,293,"ide_methods.bas");}while(r); -do{ -*__INTEGER_VIEWMENUCOMPILERWARNINGS=*_FUNC_IDE2_LONG_I; -if(!qbevent)break;evnt(26070,295,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*__INTEGER_VIEWMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_VIEWMENUCOMPILERWARNINGS)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Compiler #Warnings... Ctrl+W",29)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,296,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,296,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Displays a list of recent code warnings",39)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,297,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_MENUSIZE[0]))[tmp_long]=*_FUNC_IDE2_LONG_I- 1 ; -if(!qbevent)break;evnt(26070,298,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_M+ 1 ; -if(!qbevent)break;evnt(26070,300,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I= 0 ; -if(!qbevent)break;evnt(26070,300,"ide_methods.bas");}while(r); -do{ -*__INTEGER_SEARCHMENUID=*_FUNC_IDE2_LONG_M; -if(!qbevent)break;evnt(26070,300,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Search",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,301,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,301,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Find... Ctrl+F3",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,302,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,302,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Finds specified text",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,303,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Repeat Last Find (Shift+) F3",30)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,304,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,304,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Finds next occurrence of text specified in previous search",58)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,305,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Change... Alt+F3",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,306,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,306,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Finds and changes specified text",32)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,307,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,308,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,308,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Clear Search #History...",24)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,309,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,309,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Clears history of searched text items",37)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,310,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,311,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,311,"ide_methods.bas");}while(r); -do{ -*__INTEGER_SEARCHMENUENABLEQUICKNAV=*_FUNC_IDE2_LONG_I; -if(!qbevent)break;evnt(26070,313,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Quick Navigation",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,314,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,314,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Toggles Quick Navigation (back arrow)",37)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,315,"ide_methods.bas");}while(r); -S_36726:; -if ((*__BYTE_ENABLEQUICKNAV)||new_error){ -if(qbevent){evnt(26070,316,"ide_methods.bas");if(r)goto S_36726;} -do{ -tmp_long=array_check((*__INTEGER_SEARCHMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_SEARCHMENUENABLEQUICKNAV)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(func_chr( 7 ),((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*__INTEGER_SEARCHMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_SEARCHMENUENABLEQUICKNAV)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,317,"ide_methods.bas");}while(r); -} -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,319,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,319,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Add/Remove #Bookmark Alt+Left",30)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,320,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,320,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Toggles a bookmark in the current line",38)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,321,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Next Bookmark Alt+Down",24)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,322,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,322,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Navigates to the next bookmark",30)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,323,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Previous Bookmark Alt+Up",26)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,324,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,324,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Navigates to the previous bookmark",34)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,325,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,326,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,326,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Go To Line... Ctrl+G",22)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,327,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,327,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Jumps to the specified line number",34)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,328,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_MENUSIZE[0]))[tmp_long]=*_FUNC_IDE2_LONG_I- 1 ; -if(!qbevent)break;evnt(26070,330,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_M+ 1 ; -if(!qbevent)break;evnt(26070,332,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I= 0 ; -if(!qbevent)break;evnt(26070,332,"ide_methods.bas");}while(r); -do{ -*__INTEGER_RUNMENUID=*_FUNC_IDE2_LONG_M; -if(!qbevent)break;evnt(26070,332,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Run",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,333,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,333,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Start F5",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,334,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,334,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Run only (No exe)",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,335,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,335,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Compiles current program and runs it",36)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,336,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Modify #COMMAND$...",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,337,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,337,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Sets string returned by COMMAND$ function",41)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,338,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,339,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,339,"ide_methods.bas");}while(r); -do{ -*__INTEGER_RUNMENUSAVEEXEWITHSOURCE=*_FUNC_IDE2_LONG_I; -if(!qbevent)break;evnt(26070,341,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Output EXE to Source #Folder",28)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,342,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,342,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Toggles compiling program to QB64-PE's folder or to source folder",65)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,343,"ide_methods.bas");}while(r); -S_36765:; -if ((*__BYTE_SAVEEXEWITHSOURCE)||new_error){ -if(qbevent){evnt(26070,344,"ide_methods.bas");if(r)goto S_36765;} -do{ -tmp_long=array_check((*__INTEGER_RUNMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_RUNMENUSAVEEXEWITHSOURCE)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(func_chr( 7 ),((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*__INTEGER_RUNMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_RUNMENUSAVEEXEWITHSOURCE)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,345,"ide_methods.bas");}while(r); -} -do{ -*__INTEGER_GENERATELICENSEENABLEMENU=*_FUNC_IDE2_LONG_I; -if(!qbevent)break;evnt(26070,347,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Generate License For EXE",25)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,348,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,348,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("The license file is placed next to the executable",49)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,349,"ide_methods.bas");}while(r); -S_36772:; -if ((*__ULONG_GENERATELICENSEFILE)||new_error){ -if(qbevent){evnt(26070,350,"ide_methods.bas");if(r)goto S_36772;} -do{ -tmp_long=array_check((*__INTEGER_RUNMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_GENERATELICENSEENABLEMENU)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(func_chr( 7 ),((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*__INTEGER_RUNMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_GENERATELICENSEENABLEMENU)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,351,"ide_methods.bas");}while(r); -} -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,353,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,353,"ide_methods.bas");}while(r); -S_36777:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ -if(qbevent){evnt(26070,355,"ide_methods.bas");if(r)goto S_36777;} -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Make E#xecutable Only F11",26)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,356,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,356,"ide_methods.bas");}while(r); -}else{ -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Make E#XE Only F11",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,358,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,358,"ide_methods.bas");}while(r); -} -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Compiles current program without running it",43)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,360,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_MENUSIZE[0]))[tmp_long]=*_FUNC_IDE2_LONG_I- 1 ; -if(!qbevent)break;evnt(26070,361,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_M+ 1 ; -if(!qbevent)break;evnt(26070,363,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I= 0 ; -if(!qbevent)break;evnt(26070,363,"ide_methods.bas");}while(r); -do{ -*__INTEGER_DEBUGMENUID=*_FUNC_IDE2_LONG_M; -if(!qbevent)break;evnt(26070,363,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Debug",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,364,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,364,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Start #Paused F7 or F8",23)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,365,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,365,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Compiles current program and starts it in pause mode",52)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,366,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,367,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,367,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Toggle #Breakpoint F9",22)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,368,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,368,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Sets/clears breakpoint at cursor location",41)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,369,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Clear All Breakpoints F10",27)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,370,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,370,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Removes all breakpoints",23)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,371,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Toggle #Skip Line Ctrl+P",25)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,372,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,372,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Sets/clears flag to skip line",29)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,373,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Unskip All Lines Ctrl+F10",27)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,374,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,374,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Removes all line skip flags",27)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,375,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,376,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,376,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Watch List... F4",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,377,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,377,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Adds variables to watch list",28)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,378,"ide_methods.bas");}while(r); -do{ -*__INTEGER_DEBUGMENUCALLSTACK=*_FUNC_IDE2_LONG_I; -if(!qbevent)break;evnt(26070,379,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*__INTEGER_DEBUGMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_DEBUGMENUCALLSTACK)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Call #Stack... F12",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,380,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,380,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Displays the call stack of the current program's last execution",63)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,381,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,382,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,382,"ide_methods.bas");}while(r); -do{ -*__INTEGER_DEBUGMENUAUTOADDCOMMAND=*_FUNC_IDE2_LONG_I; -if(!qbevent)break;evnt(26070,383,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Auto-add $#Debug Metacommand",28)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,384,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,384,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Toggles whether the IDE will auto-add the $Debug metacommand as required",72)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,385,"ide_methods.bas");}while(r); -S_36823:; -if ((*__BYTE_AUTOADDDEBUGCOMMAND)||new_error){ -if(qbevent){evnt(26070,386,"ide_methods.bas");if(r)goto S_36823;} -do{ -tmp_long=array_check((*__INTEGER_DEBUGMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_DEBUGMENUAUTOADDCOMMAND)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(func_chr( 7 ),((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*__INTEGER_DEBUGMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_DEBUGMENUAUTOADDCOMMAND)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,387,"ide_methods.bas");}while(r); -} -do{ -*__INTEGER_DEBUGMENUWATCHLISTTOCONSOLE=*_FUNC_IDE2_LONG_I; -if(!qbevent)break;evnt(26070,389,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Output Watch List to Console",29)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,390,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,390,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Toggles directing the output of the watch list to the console window",68)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,391,"ide_methods.bas");}while(r); -S_36830:; -if ((*__BYTE_WATCHLISTTOCONSOLE)||new_error){ -if(qbevent){evnt(26070,392,"ide_methods.bas");if(r)goto S_36830;} -do{ -tmp_long=array_check((*__INTEGER_DEBUGMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_DEBUGMENUWATCHLISTTOCONSOLE)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(func_chr( 7 ),((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*__INTEGER_DEBUGMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_DEBUGMENUWATCHLISTTOCONSOLE)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,393,"ide_methods.bas");}while(r); -} -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Set Base #TCP/IP Port Number...",31)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,395,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,395,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Sets the initial port number for TCP/IP communication with the debuggee",71)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,396,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Purge C++ #Libraries",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,397,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,397,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Purges all pre-compiled content",31)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,398,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_MENUSIZE[0]))[tmp_long]=*_FUNC_IDE2_LONG_I- 1 ; -if(!qbevent)break;evnt(26070,399,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_M+ 1 ; -if(!qbevent)break;evnt(26070,401,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I= 0 ; -if(!qbevent)break;evnt(26070,401,"ide_methods.bas");}while(r); -do{ -*__INTEGER_OPTIONSMENUID=*_FUNC_IDE2_LONG_M; -if(!qbevent)break;evnt(26070,401,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Options",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,402,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,402,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Display...",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,403,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,403,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Changes screen size and font",28)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,404,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("IDE C#olors...",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,405,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,405,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Changes or customizes IDE color scheme",38)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,406,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Code Layout...",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,407,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,407,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Changes auto-format features",28)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,408,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Co#mpiler Settings...",21)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,409,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,409,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Change settings for compiling your code",39)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,410,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,411,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,411,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Language...",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,412,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,412,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Changes code page to use with TTF fonts",39)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,413,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Backup/Undo...",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,414,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,414,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Sets size of backup/undo buffer",31)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,415,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,416,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,416,"ide_methods.bas");}while(r); -do{ -*__INTEGER_OPTIONSMENUDISABLESYNTAX=*_FUNC_IDE2_LONG_I; -if(!qbevent)break;evnt(26070,418,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Syntax #Highlighter",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,419,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,419,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Toggles syntax highlighter",26)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,420,"ide_methods.bas");}while(r); -S_36871:; -if ((~(*__BYTE_DISABLESYNTAXHIGHLIGHTER))||new_error){ -if(qbevent){evnt(26070,421,"ide_methods.bas");if(r)goto S_36871;} -do{ -tmp_long=array_check((*__INTEGER_OPTIONSMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_OPTIONSMENUDISABLESYNTAX)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(func_chr( 7 ),((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*__INTEGER_OPTIONSMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_OPTIONSMENUDISABLESYNTAX)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,422,"ide_methods.bas");}while(r); -} -do{ -*__INTEGER_OPTIONSMENUSWAPMOUSE=*_FUNC_IDE2_LONG_I; -if(!qbevent)break;evnt(26070,425,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Swap Mouse Buttons",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,426,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,426,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Swaps functionality of left/right mouse buttons",47)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,427,"ide_methods.bas");}while(r); -S_36878:; -if ((*__BYTE_MOUSEBUTTONSWAPPED)||new_error){ -if(qbevent){evnt(26070,428,"ide_methods.bas");if(r)goto S_36878;} -do{ -tmp_long=array_check((*__INTEGER_OPTIONSMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_OPTIONSMENUSWAPMOUSE)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(func_chr( 7 ),((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*__INTEGER_OPTIONSMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_OPTIONSMENUSWAPMOUSE)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,429,"ide_methods.bas");}while(r); -} -do{ -*__INTEGER_OPTIONSMENUPASTECURSOR=*_FUNC_IDE2_LONG_I; -if(!qbevent)break;evnt(26070,432,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Cursor After #Paste",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,433,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,433,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Toggles placing the cursor before/after the pasted content",58)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,434,"ide_methods.bas");}while(r); -S_36885:; -if ((*__BYTE_PASTECURSORATEND)||new_error){ -if(qbevent){evnt(26070,435,"ide_methods.bas");if(r)goto S_36885;} -do{ -tmp_long=array_check((*__INTEGER_OPTIONSMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_OPTIONSMENUPASTECURSOR)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(func_chr( 7 ),((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*__INTEGER_OPTIONSMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_OPTIONSMENUPASTECURSOR)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,436,"ide_methods.bas");}while(r); -} -do{ -*__INTEGER_OPTIONSMENUSHOWERRORSIMMEDIATELY=*_FUNC_IDE2_LONG_I; -if(!qbevent)break;evnt(26070,439,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Syntax Ch#ecker",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,440,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,440,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Toggles instant syntax checker (status area)",44)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,441,"ide_methods.bas");}while(r); -S_36892:; -if ((*__BYTE_IDESHOWERRORSIMMEDIATELY)||new_error){ -if(qbevent){evnt(26070,442,"ide_methods.bas");if(r)goto S_36892;} -do{ -tmp_long=array_check((*__INTEGER_OPTIONSMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_OPTIONSMENUSHOWERRORSIMMEDIATELY)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(func_chr( 7 ),((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*__INTEGER_OPTIONSMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_OPTIONSMENUSHOWERRORSIMMEDIATELY)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,443,"ide_methods.bas");}while(r); -} -do{ -*__INTEGER_OPTIONSMENUIGNOREWARNINGS=*_FUNC_IDE2_LONG_I; -if(!qbevent)break;evnt(26070,446,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Ignore #Warnings",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,447,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,447,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Toggles display of warning messages (unused variables, etc)",59)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,448,"ide_methods.bas");}while(r); -S_36899:; -if ((*__BYTE_IGNOREWARNINGS)||new_error){ -if(qbevent){evnt(26070,449,"ide_methods.bas");if(r)goto S_36899;} -do{ -tmp_long=array_check((*__INTEGER_OPTIONSMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_OPTIONSMENUIGNOREWARNINGS)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(func_chr( 7 ),qbs_new_txt_len("Ignore #Warnings",16))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,449,"ide_methods.bas");}while(r); -} -do{ -*__INTEGER_OPTIONSMENUGUIDIALOGS=*_FUNC_IDE2_LONG_I; -if(!qbevent)break;evnt(26070,451,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("GUI Dialogs",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,452,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,452,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Uses GUI-based File Dialog Windows",34)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,453,"ide_methods.bas");}while(r); -S_36906:; -if ((*__ULONG_USEGUIDIALOGS)||new_error){ -if(qbevent){evnt(26070,454,"ide_methods.bas");if(r)goto S_36906;} -do{ -tmp_long=array_check((*__INTEGER_OPTIONSMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(func_chr( 7 ),((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*__INTEGER_OPTIONSMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,455,"ide_methods.bas");}while(r); -} -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_MENUSIZE[0]))[tmp_long]=*_FUNC_IDE2_LONG_I- 1 ; -if(!qbevent)break;evnt(26070,464,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_M+ 1 ; -if(!qbevent)break;evnt(26070,466,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I= 0 ; -if(!qbevent)break;evnt(26070,466,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Tools",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,467,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,467,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#ASCII Chart...",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,468,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,468,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Displays ASCII characters and allows inserting in current program",65)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,469,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Insert Quick #Keycode Ctrl+K",29)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,470,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,470,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Captures key codes and inserts in current program",49)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,471,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Math Evaluator...",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,472,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,472,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Displays the math evaluator dialog",34)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,473,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#RGB Color Mixer...",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,474,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,474,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Allows mixing colors to edit/insert _RGB statements",51)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,475,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_MENUSIZE[0]))[tmp_long]=*_FUNC_IDE2_LONG_I- 1 ; -if(!qbevent)break;evnt(26070,476,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_M+ 1 ; -if(!qbevent)break;evnt(26070,478,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I= 0 ; -if(!qbevent)break;evnt(26070,478,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Help",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,479,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,479,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#View Shift+F1",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,480,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,480,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Displays help window",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,481,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Contents Page",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,482,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,482,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Displays help contents page",27)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,483,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Keyword #Index",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,484,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,484,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Displays keyword index page",27)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,485,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Keywords by Usage",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,486,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,486,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Displays keywords index by usage",32)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,487,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,488,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,488,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Update Current Page",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,489,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,489,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Downloads the latest version of an article from the wiki",56)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,490,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Update All #Pages...",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,491,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,491,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Downloads the latest version of all articles from the wiki",58)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,492,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("View Current Page On #Wiki",26)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,493,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,493,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Launches the default browser and navigates to the current article on the wiki",77)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,494,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,495,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,495,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#About...",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,498,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,498,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Displays the current version of QB64-PE",39)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,499,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_MENUSIZE[0]))[tmp_long]=*_FUNC_IDE2_LONG_I- 1 ; -if(!qbevent)break;evnt(26070,500,"ide_methods.bas");}while(r); -do{ -*__INTEGER_MENUS=*_FUNC_IDE2_LONG_M; -if(!qbevent)break;evnt(26070,502,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_M+ 1 ; -if(!qbevent)break;evnt(26070,505,"ide_methods.bas");}while(r); -do{ -*__INTEGER_IDECONTEXTUALMENUID=*_FUNC_IDE2_LONG_M; -if(!qbevent)break;evnt(26070,506,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_M+ 1 ; -if(!qbevent)break;evnt(26070,509,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I= 0 ; -if(!qbevent)break;evnt(26070,509,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("ViewMenuShowLineNumbersSubMenu",30)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,510,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,510,"ide_methods.bas");}while(r); -do{ -*__INTEGER_VIEWMENUSHOWLINENUMBERSSUBMENUID=*_FUNC_IDE2_LONG_M; -if(!qbevent)break;evnt(26070,511,"ide_methods.bas");}while(r); -S_36968:; -if ((*__BYTE_SHOWLINENUMBERS)||new_error){ -if(qbevent){evnt(26070,512,"ide_methods.bas");if(r)goto S_36968;} -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Hide Line Numbers",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,512,"ide_methods.bas");}while(r); -}else{ -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Show Line Numbers",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,512,"ide_methods.bas");}while(r); -} -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Toggles displaying line numbers (side bar)",42)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,513,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,514,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Background Color",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,515,"ide_methods.bas");}while(r); -S_36976:; -if ((*__BYTE_SHOWLINENUMBERSUSEBG)||new_error){ -if(qbevent){evnt(26070,515,"ide_methods.bas");if(r)goto S_36976;} -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(func_chr( 7 ),((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,515,"ide_methods.bas");}while(r); -} -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Toggles displaying a different background (side bar)",52)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,516,"ide_methods.bas");}while(r); -do{ -*__INTEGER_VIEWMENUSHOWBGID=*_FUNC_IDE2_LONG_I; -if(!qbevent)break;evnt(26070,517,"ide_methods.bas");}while(r); -S_36981:; -if ((-(*__BYTE_SHOWLINENUMBERS== 0 ))||new_error){ -if(qbevent){evnt(26070,518,"ide_methods.bas");if(r)goto S_36981;} -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(qbs_new_txt_len("~",1),((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,518,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,519,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Sho#w Separator",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,520,"ide_methods.bas");}while(r); -S_36986:; -if ((*__BYTE_SHOWLINENUMBERSSEPARATOR)||new_error){ -if(qbevent){evnt(26070,520,"ide_methods.bas");if(r)goto S_36986;} -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(func_chr( 7 ),((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,520,"ide_methods.bas");}while(r); -} -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Toggles showing a separator line (side bar)",43)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,521,"ide_methods.bas");}while(r); -do{ -*__INTEGER_VIEWMENUSHOWSEPARATORID=*_FUNC_IDE2_LONG_I; -if(!qbevent)break;evnt(26070,522,"ide_methods.bas");}while(r); -S_36991:; -if ((-(*__BYTE_SHOWLINENUMBERS== 0 ))||new_error){ -if(qbevent){evnt(26070,523,"ide_methods.bas");if(r)goto S_36991;} -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(qbs_new_txt_len("~",1),((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,523,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,524,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_MENUSIZE[0]))[tmp_long]=*_FUNC_IDE2_LONG_I- 1 ; -if(!qbevent)break;evnt(26070,525,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_M+ 1 ; -if(!qbevent)break;evnt(26070,528,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I= 0 ; -if(!qbevent)break;evnt(26070,528,"ide_methods.bas");}while(r); -do{ -*__INTEGER_FILEMENUEXPORTASSUBMENUID=*_FUNC_IDE2_LONG_M; -if(!qbevent)break;evnt(26070,528,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("FileMenuExportAsSubMenu",23)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,529,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,529,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Hypertext document (.htm)",26)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,530,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,530,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Export program into a Hypertext document",40)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,531,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Rich Text document (.rtf)",26)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,532,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,532,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Export program into a Rich Text document",40)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,533,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Wiki prepared sample (.txt)",28)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,534,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,534,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Export program into a Wiki code example",39)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,535,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_MENUSIZE[0]))[tmp_long]=*_FUNC_IDE2_LONG_I- 1 ; -if(!qbevent)break;evnt(26070,536,"ide_methods.bas");}while(r); -S_37011:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ -if(qbevent){evnt(26070,538,"ide_methods.bas");if(r)goto S_37011;} -do{ -qbs_set(__STRING1_IDEPATHSEP,qbs_new_txt_len("\\",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,539,"ide_methods.bas");}while(r); -} -S_37014:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ -if(qbevent){evnt(26070,541,"ide_methods.bas");if(r)goto S_37014;} -do{ -qbs_set(__STRING1_IDEPATHSEP,qbs_new_txt_len("/",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,542,"ide_methods.bas");}while(r); -} -do{ -qbs_set(__STRING_IDEROOT,FUNC_IDEZGETROOT()); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,545,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_IDEPATH,func__startdir()); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,546,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_IDET,qbs_add(l2string( 0 ),l2string( 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,549,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEL= 1 ; -if(!qbevent)break;evnt(26070,549,"ide_methods.bas");}while(r); -do{ -*__LONG_IDELI= 1 ; -if(!qbevent)break;evnt(26070,549,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEN= 1 ; -if(!qbevent)break;evnt(26070,549,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEBMKN= 0 ; -if(!qbevent)break;evnt(26070,549,"ide_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26065,48,"sb_qb64pe_extension.bm");}while(r); +} +do{ +tmp_long=array_check((*_FUNC_OPENBUFFER_INTEGER_BUF)-__ARRAY_STRING_SBUFN[4],__ARRAY_STRING_SBUFN[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SBUFN[0]))[tmp_long])),_FUNC_OPENBUFFER_STRING_SBNAME); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26065,49,"sb_qb64pe_extension.bm");}while(r); +do{ +#include "ret166.txt" +if(!qbevent)break;evnt(26065,50,"sb_qb64pe_extension.bm");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free166.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +return *_FUNC_OPENBUFFER_INTEGER_OPENBUFFER; +} +void SUB_CLEARBUFFERS(qbs*_SUB_CLEARBUFFERS_STRING_SBNAME){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data167.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +if(!qbevent)break;evnt(26065,62,"sb_qb64pe_extension.bm");}while(r); +S_36361:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_CLEARBUFFERS_STRING_SBNAME,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26065,64,"sb_qb64pe_extension.bm");if(r)goto S_36361;} +S_36362:; +fornext_value3976= 0 ; +fornext_finalvalue3976=func_ubound(__ARRAY_STRING_SBUFN,1,1); +fornext_step3976= 1 ; +if (fornext_step3976<0) fornext_step_negative3976=1; else fornext_step_negative3976=0; +if (new_error) goto fornext_error3976; +goto fornext_entrylabel3976; +while(1){ +fornext_value3976=fornext_step3976+(*_SUB_CLEARBUFFERS_INTEGER_BUF); +fornext_entrylabel3976: +*_SUB_CLEARBUFFERS_INTEGER_BUF=fornext_value3976; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative3976){ +if (fornext_value3976fornext_finalvalue3976) break; +} +fornext_error3976:; +if(qbevent){evnt(26065,65,"sb_qb64pe_extension.bm");if(r)goto S_36362;} +S_36363:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_SBUFN[0]))[array_check((*_SUB_CLEARBUFFERS_INTEGER_BUF)-__ARRAY_STRING_SBUFN[4],__ARRAY_STRING_SBUFN[5])])),_SUB_CLEARBUFFERS_STRING_SBNAME)))||new_error){ +if(qbevent){evnt(26065,66,"sb_qb64pe_extension.bm");if(r)goto S_36363;} +do{ +goto fornext_exit_3975; +if(!qbevent)break;evnt(26065,66,"sb_qb64pe_extension.bm");}while(r); +} +fornext_continue_3975:; +} +fornext_exit_3975:; +S_36367:; +if ((qbs_cleanup(qbs_tmp_base,-(*_SUB_CLEARBUFFERS_INTEGER_BUF>func_ubound(__ARRAY_STRING_SBUFN,1,1))))||new_error){ +if(qbevent){evnt(26065,68,"sb_qb64pe_extension.bm");if(r)goto S_36367;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26065,68,"sb_qb64pe_extension.bm");}while(r); +} +do{ +SUB_DISPOSEBUF(_SUB_CLEARBUFFERS_INTEGER_BUF); +if(!qbevent)break;evnt(26065,69,"sb_qb64pe_extension.bm");}while(r); +do{ +tmp_long=array_check((*_SUB_CLEARBUFFERS_INTEGER_BUF)-__ARRAY_STRING_SBUFN[4],__ARRAY_STRING_SBUFN[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SBUFN[0]))[tmp_long])),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26065,69,"sb_qb64pe_extension.bm");}while(r); +}else{ +S_36373:; +fornext_value3978= 0 ; +fornext_finalvalue3978=func_ubound(__ARRAY_STRING_SBUFN,1,1); +fornext_step3978= 1 ; +if (fornext_step3978<0) fornext_step_negative3978=1; else fornext_step_negative3978=0; +if (new_error) goto fornext_error3978; +goto fornext_entrylabel3978; +while(1){ +fornext_value3978=fornext_step3978+(*_SUB_CLEARBUFFERS_INTEGER_BUF); +fornext_entrylabel3978: +*_SUB_CLEARBUFFERS_INTEGER_BUF=fornext_value3978; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative3978){ +if (fornext_value3978fornext_finalvalue3978) break; +} +fornext_error3978:; +if(qbevent){evnt(26065,71,"sb_qb64pe_extension.bm");if(r)goto S_36373;} +S_36374:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(((qbs*)(((uint64*)(__ARRAY_STRING_SBUFN[0]))[array_check((*_SUB_CLEARBUFFERS_INTEGER_BUF)-__ARRAY_STRING_SBUFN[4],__ARRAY_STRING_SBUFN[5])])),qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26065,72,"sb_qb64pe_extension.bm");if(r)goto S_36374;} +do{ +SUB_DISPOSEBUF(_SUB_CLEARBUFFERS_INTEGER_BUF); +if(!qbevent)break;evnt(26065,72,"sb_qb64pe_extension.bm");}while(r); +do{ +tmp_long=array_check((*_SUB_CLEARBUFFERS_INTEGER_BUF)-__ARRAY_STRING_SBUFN[4],__ARRAY_STRING_SBUFN[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SBUFN[0]))[tmp_long])),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26065,72,"sb_qb64pe_extension.bm");}while(r); +} +fornext_continue_3977:; +} +fornext_exit_3977:; +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free167.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +void SUB_WRITEBUFFERS(qbs*_SUB_WRITEBUFFERS_STRING_SBNAME){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data168.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +if(!qbevent)break;evnt(26065,88,"sb_qb64pe_extension.bm");}while(r); +S_36381:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_WRITEBUFFERS_STRING_SBNAME,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26065,90,"sb_qb64pe_extension.bm");if(r)goto S_36381;} +S_36382:; +fornext_value3981= 0 ; +fornext_finalvalue3981=func_ubound(__ARRAY_STRING_SBUFN,1,1); +fornext_step3981= 1 ; +if (fornext_step3981<0) fornext_step_negative3981=1; else fornext_step_negative3981=0; +if (new_error) goto fornext_error3981; +goto fornext_entrylabel3981; +while(1){ +fornext_value3981=fornext_step3981+(*_SUB_WRITEBUFFERS_INTEGER_BUF); +fornext_entrylabel3981: +*_SUB_WRITEBUFFERS_INTEGER_BUF=fornext_value3981; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative3981){ +if (fornext_value3981fornext_finalvalue3981) break; +} +fornext_error3981:; +if(qbevent){evnt(26065,91,"sb_qb64pe_extension.bm");if(r)goto S_36382;} +S_36383:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_SBUFN[0]))[array_check((*_SUB_WRITEBUFFERS_INTEGER_BUF)-__ARRAY_STRING_SBUFN[4],__ARRAY_STRING_SBUFN[5])])),_SUB_WRITEBUFFERS_STRING_SBNAME)))||new_error){ +if(qbevent){evnt(26065,92,"sb_qb64pe_extension.bm");if(r)goto S_36383;} +do{ +goto fornext_exit_3980; +if(!qbevent)break;evnt(26065,92,"sb_qb64pe_extension.bm");}while(r); +} +fornext_continue_3980:; +} +fornext_exit_3980:; +S_36387:; +if ((qbs_cleanup(qbs_tmp_base,-(*_SUB_WRITEBUFFERS_INTEGER_BUF>func_ubound(__ARRAY_STRING_SBUFN,1,1))))||new_error){ +if(qbevent){evnt(26065,94,"sb_qb64pe_extension.bm");if(r)goto S_36387;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26065,94,"sb_qb64pe_extension.bm");}while(r); +} +S_36390:; +if ((FUNC_ISBUFCHANGED(_SUB_WRITEBUFFERS_INTEGER_BUF))||new_error){ +if(qbevent){evnt(26065,95,"sb_qb64pe_extension.bm");if(r)goto S_36390;} +do{ +SUB_BUFTOFILE(_SUB_WRITEBUFFERS_INTEGER_BUF,((qbs*)(((uint64*)(__ARRAY_STRING_SBUFN[0]))[array_check((*_SUB_WRITEBUFFERS_INTEGER_BUF)-__ARRAY_STRING_SBUFN[4],__ARRAY_STRING_SBUFN[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26065,95,"sb_qb64pe_extension.bm");}while(r); +} +}else{ +S_36394:; +fornext_value3983= 0 ; +fornext_finalvalue3983=func_ubound(__ARRAY_STRING_SBUFN,1,1); +fornext_step3983= 1 ; +if (fornext_step3983<0) fornext_step_negative3983=1; else fornext_step_negative3983=0; +if (new_error) goto fornext_error3983; +goto fornext_entrylabel3983; +while(1){ +fornext_value3983=fornext_step3983+(*_SUB_WRITEBUFFERS_INTEGER_BUF); +fornext_entrylabel3983: +*_SUB_WRITEBUFFERS_INTEGER_BUF=fornext_value3983; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative3983){ +if (fornext_value3983fornext_finalvalue3983) break; +} +fornext_error3983:; +if(qbevent){evnt(26065,97,"sb_qb64pe_extension.bm");if(r)goto S_36394;} +S_36395:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(((qbs*)(((uint64*)(__ARRAY_STRING_SBUFN[0]))[array_check((*_SUB_WRITEBUFFERS_INTEGER_BUF)-__ARRAY_STRING_SBUFN[4],__ARRAY_STRING_SBUFN[5])])),qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26065,98,"sb_qb64pe_extension.bm");if(r)goto S_36395;} +S_36396:; +if ((FUNC_ISBUFCHANGED(_SUB_WRITEBUFFERS_INTEGER_BUF))||new_error){ +if(qbevent){evnt(26065,99,"sb_qb64pe_extension.bm");if(r)goto S_36396;} +do{ +SUB_BUFTOFILE(_SUB_WRITEBUFFERS_INTEGER_BUF,((qbs*)(((uint64*)(__ARRAY_STRING_SBUFN[0]))[array_check((*_SUB_WRITEBUFFERS_INTEGER_BUF)-__ARRAY_STRING_SBUFN[4],__ARRAY_STRING_SBUFN[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26065,99,"sb_qb64pe_extension.bm");}while(r); +} +} +fornext_continue_3982:; +} +fornext_exit_3982:; +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free168.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +int32 FUNC_IDE(int32*_FUNC_IDE_LONG_IGNORE){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data169.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +*_FUNC_IDE_LONG_IGNORE=*_FUNC_IDE_LONG_IGNORE; +if(!qbevent)break;evnt(26070,4,"ide_methods.bas");}while(r); +S_36403:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_IDECOMMAND,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,5,"ide_methods.bas");if(r)goto S_36403;} +do{ +*_FUNC_IDE_LONG_CMD=qbs_asc(__STRING_IDECOMMAND); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5,"ide_methods.bas");}while(r); +} +S_36406:; +if ((-(*_FUNC_IDE_LONG_CMD== 3 ))||new_error){ +if(qbevent){evnt(26070,6,"ide_methods.bas");if(r)goto S_36406;} +S_36407:; +if ((-(*__LONG_IDECOMPILEDLINE<*__LONG_IDEN))||new_error){ +if(qbevent){evnt(26070,7,"ide_methods.bas");if(r)goto S_36407;} +S_36408:; +if (((-(*__LONG_IDECOMPILEDLINE<*__LONG_IDESY))|(-(*__LONG_IDECOMPILEDLINE>(*__LONG_IDESY+(*__LONG_IDEWY- 9 )))))||new_error){ +if(qbevent){evnt(26070,8,"ide_methods.bas");if(r)goto S_36408;} +S_36409:; +if ((func__exit()& 1 )||new_error){ +if(qbevent){evnt(26070,9,"ide_methods.bas");if(r)goto S_36409;} +do{ +*__LONG_IDEEXIT= 1 ; +if(!qbevent)break;evnt(26070,9,"ide_methods.bas");}while(r); +} +S_36412:; +if ((-(*__LONG_IDEEXIT== 0 ))||new_error){ +if(qbevent){evnt(26070,10,"ide_methods.bas");if(r)goto S_36412;} +do{ +SUB_GETINPUT(); +if(!qbevent)break;evnt(26070,11,"ide_methods.bas");}while(r); +S_36414:; +if (((-(*__LONG_ICHANGED== 0 ))&(-(*__LONG_MB== 0 )))||new_error){ +if(qbevent){evnt(26070,12,"ide_methods.bas");if(r)goto S_36414;} +S_36415:; +if (((-(*__LONG_IDEAUTOLAYOUT!= 0 ))|(-(*__LONG_IDEAUTOINDENT!= 0 )))||new_error){ +if(qbevent){evnt(26070,16,"ide_methods.bas");if(r)goto S_36415;} +S_36416:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(26070,17,"ide_methods.bas");if(r)goto S_36416;} +do{ +*_FUNC_IDE_LONG_L=__STRING_LAYOUT->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20,"ide_methods.bas");}while(r); +S_36418:; +fornext_value3987= 1 ; +fornext_finalvalue3987=*_FUNC_IDE_LONG_L; +fornext_step3987= 1 ; +if (fornext_step3987<0) fornext_step_negative3987=1; else fornext_step_negative3987=0; +if (new_error) goto fornext_error3987; +goto fornext_entrylabel3987; +while(1){ +fornext_value3987=fornext_step3987+(*_FUNC_IDE_LONG_I); +fornext_entrylabel3987: +*_FUNC_IDE_LONG_I=fornext_value3987; +if (fornext_step_negative3987){ +if (fornext_value3987fornext_finalvalue3987) break; +} +fornext_error3987:; +if(qbevent){evnt(26070,21,"ide_methods.bas");if(r)goto S_36418;} +S_36419:; +if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(__STRING_LAYOUT,*_FUNC_IDE_LONG_I)!= 32 ))|(-(*_FUNC_IDE_LONG_I==*_FUNC_IDE_LONG_L))))||new_error){ +if(qbevent){evnt(26070,22,"ide_methods.bas");if(r)goto S_36419;} +S_36420:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_LAYOUT,*_FUNC_IDE_LONG_I)== 32 )))||new_error){ +if(qbevent){evnt(26070,23,"ide_methods.bas");if(r)goto S_36420;} +do{ +qbs_set(__STRING_LAYOUT,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,24,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE_LONG_INDENT=*_FUNC_IDE_LONG_I; +if(!qbevent)break;evnt(26070,24,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_IDE_LONG_INDENT=*_FUNC_IDE_LONG_I- 1 ; +if(!qbevent)break;evnt(26070,26,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_LAYOUT,qbs_right(__STRING_LAYOUT,__STRING_LAYOUT->len-*_FUNC_IDE_LONG_I+ 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,27,"ide_methods.bas");}while(r); +} +do{ +goto fornext_exit_3986; +if(!qbevent)break;evnt(26070,29,"ide_methods.bas");}while(r); +} +fornext_continue_3986:; +} +fornext_exit_3986:; +S_36430:; +if ((*__LONG_IDEAUTOLAYOUT)||new_error){ +if(qbevent){evnt(26070,33,"ide_methods.bas");if(r)goto S_36430;} +do{ +qbs_set(_FUNC_IDE_STRING_LAYOUT2,__STRING_LAYOUT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,34,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE_LONG_I2= 1 ; +if(!qbevent)break;evnt(26070,34,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE_LONG_IGNORESP= 0 ; +if(!qbevent)break;evnt(26070,35,"ide_methods.bas");}while(r); +S_36434:; +fornext_value3990= 1 ; +fornext_finalvalue3990=__STRING_LAYOUT->len; +fornext_step3990= 1 ; +if (fornext_step3990<0) fornext_step_negative3990=1; else fornext_step_negative3990=0; +if (new_error) goto fornext_error3990; +goto fornext_entrylabel3990; +while(1){ +fornext_value3990=fornext_step3990+(*_FUNC_IDE_LONG_I); +fornext_entrylabel3990: +*_FUNC_IDE_LONG_I=fornext_value3990; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative3990){ +if (fornext_value3990fornext_finalvalue3990) break; +} +fornext_error3990:; +if(qbevent){evnt(26070,36,"ide_methods.bas");if(r)goto S_36434;} +do{ +*_FUNC_IDE_LONG_A=qbs_asc(__STRING_LAYOUT,*_FUNC_IDE_LONG_I); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,37,"ide_methods.bas");}while(r); +S_36436:; +if ((-(*_FUNC_IDE_LONG_A== 34 ))||new_error){ +if(qbevent){evnt(26070,38,"ide_methods.bas");if(r)goto S_36436;} +do{ +*_FUNC_IDE_LONG_IGNORESP=*_FUNC_IDE_LONG_IGNORESP+ 1 ; +if(!qbevent)break;evnt(26070,39,"ide_methods.bas");}while(r); +S_36438:; +if ((-(*_FUNC_IDE_LONG_IGNORESP== 2 ))||new_error){ +if(qbevent){evnt(26070,39,"ide_methods.bas");if(r)goto S_36438;} +do{ +*_FUNC_IDE_LONG_IGNORESP= 0 ; +if(!qbevent)break;evnt(26070,39,"ide_methods.bas");}while(r); +} +} +S_36442:; +if ((-(*_FUNC_IDE_LONG_IGNORESP== 0 ))||new_error){ +if(qbevent){evnt(26070,41,"ide_methods.bas");if(r)goto S_36442;} +S_36443:; +if ((-(*_FUNC_IDE_LONG_A==*__LONG_SP_ASC))||new_error){ +if(qbevent){evnt(26070,42,"ide_methods.bas");if(r)goto S_36443;} +do{ +tqbs=_FUNC_IDE_STRING_LAYOUT2; if (!new_error){ +tmp_fileno=*_FUNC_IDE_LONG_I2; if (!new_error){ +tmp_long= 32 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26070,42,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE_LONG_I2=*_FUNC_IDE_LONG_I2+ 1 ; +if(!qbevent)break;evnt(26070,42,"ide_methods.bas");}while(r); +do{ +goto LABEL_SKIPCHAR; +if(!qbevent)break;evnt(26070,42,"ide_methods.bas");}while(r); +} +S_36448:; +if ((-(*_FUNC_IDE_LONG_A==*__LONG_SP2_ASC))||new_error){ +if(qbevent){evnt(26070,43,"ide_methods.bas");if(r)goto S_36448;} +do{ +goto LABEL_SKIPCHAR; +if(!qbevent)break;evnt(26070,43,"ide_methods.bas");}while(r); +} +} +do{ +tqbs=_FUNC_IDE_STRING_LAYOUT2; if (!new_error){ +tmp_fileno=*_FUNC_IDE_LONG_I2; if (!new_error){ +tmp_long=*_FUNC_IDE_LONG_A; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26070,45,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE_LONG_I2=*_FUNC_IDE_LONG_I2+ 1 ; +if(!qbevent)break;evnt(26070,45,"ide_methods.bas");}while(r); +LABEL_SKIPCHAR:; +if(qbevent){evnt(26070,46,"ide_methods.bas");r=0;} +fornext_continue_3989:; +} +fornext_exit_3989:; +do{ +qbs_set(__STRING_LAYOUT,qbs_left(_FUNC_IDE_STRING_LAYOUT2,*_FUNC_IDE_LONG_I2- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,48,"ide_methods.bas");}while(r); +} +S_36457:; +if ((-(*__LONG_IDEAUTOINDENT== 0 ))||new_error){ +if(qbevent){evnt(26070,51,"ide_methods.bas");if(r)goto S_36457;} +do{ +*_FUNC_IDE_LONG_INDENT= 0 ; +if(!qbevent)break;evnt(26070,54,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE_LONG_L=__STRING_IDECOMPILEDLINE->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,55,"ide_methods.bas");}while(r); +S_36460:; +fornext_value3994= 1 ; +fornext_finalvalue3994=*_FUNC_IDE_LONG_L; +fornext_step3994= 1 ; +if (fornext_step3994<0) fornext_step_negative3994=1; else fornext_step_negative3994=0; +if (new_error) goto fornext_error3994; +goto fornext_entrylabel3994; +while(1){ +fornext_value3994=fornext_step3994+(*_FUNC_IDE_LONG_I); +fornext_entrylabel3994: +*_FUNC_IDE_LONG_I=fornext_value3994; +if (fornext_step_negative3994){ +if (fornext_value3994fornext_finalvalue3994) break; +} +fornext_error3994:; +if(qbevent){evnt(26070,56,"ide_methods.bas");if(r)goto S_36460;} +S_36461:; +if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(__STRING_IDECOMPILEDLINE,*_FUNC_IDE_LONG_I)!= 32 ))|(-(*_FUNC_IDE_LONG_I==*_FUNC_IDE_LONG_L))))||new_error){ +if(qbevent){evnt(26070,57,"ide_methods.bas");if(r)goto S_36461;} +do{ +*_FUNC_IDE_LONG_INDENT=*_FUNC_IDE_LONG_I- 1 ; +if(!qbevent)break;evnt(26070,58,"ide_methods.bas");}while(r); +do{ +goto fornext_exit_3993; +if(!qbevent)break;evnt(26070,59,"ide_methods.bas");}while(r); +} +fornext_continue_3993:; +} +fornext_exit_3993:; +do{ +qbs_set(_FUNC_IDE_STRING_INDENT,func_space(*_FUNC_IDE_LONG_INDENT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,62,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDE_STRING_INDENT,func_space(*_FUNC_IDE_LONG_INDENT**__LONG_IDEAUTOINDENTSIZE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,64,"ide_methods.bas");}while(r); +} +S_36470:; +if ((-(*__LONG_IDEAUTOLAYOUT== 0 ))||new_error){ +if(qbevent){evnt(26070,67,"ide_methods.bas");if(r)goto S_36470;} +do{ +*_FUNC_IDE_LONG_L=__STRING_IDECOMPILEDLINE->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,69,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_LAYOUT,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,70,"ide_methods.bas");}while(r); +S_36473:; +fornext_value3997= 1 ; +fornext_finalvalue3997=*_FUNC_IDE_LONG_L; +fornext_step3997= 1 ; +if (fornext_step3997<0) fornext_step_negative3997=1; else fornext_step_negative3997=0; +if (new_error) goto fornext_error3997; +goto fornext_entrylabel3997; +while(1){ +fornext_value3997=fornext_step3997+(*_FUNC_IDE_LONG_I); +fornext_entrylabel3997: +*_FUNC_IDE_LONG_I=fornext_value3997; +if (fornext_step_negative3997){ +if (fornext_value3997fornext_finalvalue3997) break; +} +fornext_error3997:; +if(qbevent){evnt(26070,71,"ide_methods.bas");if(r)goto S_36473;} +S_36474:; +if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(__STRING_IDECOMPILEDLINE,*_FUNC_IDE_LONG_I)!= 32 ))|(-(*_FUNC_IDE_LONG_I==*_FUNC_IDE_LONG_L))))||new_error){ +if(qbevent){evnt(26070,72,"ide_methods.bas");if(r)goto S_36474;} +do{ +qbs_set(__STRING_LAYOUT,qbs_right(__STRING_IDECOMPILEDLINE,*_FUNC_IDE_LONG_L-*_FUNC_IDE_LONG_I+ 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,73,"ide_methods.bas");}while(r); +do{ +goto fornext_exit_3996; +if(!qbevent)break;evnt(26070,74,"ide_methods.bas");}while(r); +} +fornext_continue_3996:; +} +fornext_exit_3996:; +} +S_36480:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(26070,79,"ide_methods.bas");if(r)goto S_36480;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(_FUNC_IDE_STRING_INDENT,__STRING_LAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,80,"ide_methods.bas");}while(r); +S_36482:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_IDECOMPILEDLINE,__STRING_LAYOUT)))||new_error){ +if(qbevent){evnt(26070,81,"ide_methods.bas");if(r)goto S_36482;} +do{ +SUB_IDESETLINE(__LONG_IDECOMPILEDLINE,__STRING_LAYOUT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,82,"ide_methods.bas");}while(r); +} +} +} +} +do{ +*__LONG_IDECOMPILEDLINE=*__LONG_IDECOMPILEDLINE+ 1 ; +if(!qbevent)break;evnt(26070,91,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_IDECOMPILEDLINE,FUNC_IDEGETLINE(__LONG_IDECOMPILEDLINE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,92,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE_LONG_IDE= 4 ; +if(!qbevent)break;evnt(26070,93,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_IDERETURN,__STRING_IDECOMPILEDLINE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,94,"ide_methods.bas");}while(r); +S_36492:; +if ((-(*__LONG_IDEAUTORUN!= 0 ))||new_error){ +if(qbevent){evnt(26070,97,"ide_methods.bas");if(r)goto S_36492;} +S_36493:; +if ((*__LONG_PREPASS)||new_error){ +if(qbevent){evnt(26070,98,"ide_methods.bas");if(r)goto S_36493;} +do{ +qbs_set(_FUNC_IDE_STRING_STATUS__ASCII_CHR_046__PROGRESS,FUNC_STR2(&(pass3999=qbr(floor((*__LONG_IDECOMPILEDLINE* 100 )/ ((long double)((*__LONG_IDEN* 2 )))))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,99,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE_STRING_STATUS__ASCII_CHR_046__PROGRESS,qbs_add(qbs_add(func_string( 3 -_FUNC_IDE_STRING_STATUS__ASCII_CHR_046__PROGRESS->len, 32 ),_FUNC_IDE_STRING_STATUS__ASCII_CHR_046__PROGRESS),qbs_new_txt_len("%",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,100,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDE_STRING_STATUS__ASCII_CHR_046__PROGRESS,FUNC_STR2(&(pass4001=qbr(floor(((*__LONG_IDEN+*__LONG_IDECOMPILEDLINE)* 100 )/ ((long double)((*__LONG_IDEN* 2 )))))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,102,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE_STRING_STATUS__ASCII_CHR_046__PROGRESS,qbs_add(qbs_add(func_string( 3 -_FUNC_IDE_STRING_STATUS__ASCII_CHR_046__PROGRESS->len, 32 ),_FUNC_IDE_STRING_STATUS__ASCII_CHR_046__PROGRESS),qbs_new_txt_len("%",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,103,"ide_methods.bas");}while(r); +} +do{ +qbs_set(__STRING_IDEINFO,qbs_add(func_chr( 0 ),_FUNC_IDE_STRING_STATUS__ASCII_CHR_046__PROGRESS)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,105,"ide_methods.bas");}while(r); +} +do{ +SUB_UPDATEIDEINFO(); +if(!qbevent)break;evnt(26070,118,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,120,"ide_methods.bas");}while(r); +} +S_36505:; +if ((*__LONG_ICHANGED)||new_error){ +if(qbevent){evnt(26070,122,"ide_methods.bas");if(r)goto S_36505;} +do{ +*__LONG_ICHECKLATER= 1 ; +if(!qbevent)break;evnt(26070,122,"ide_methods.bas");}while(r); +} +} +} +}else{ +S_36511:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_IDESYSTEM!= 3 ))|(qbs_notequal(qbs_left(__STRING_IDEINFO, 19 ),qbs_new_txt_len("Selection length = ",19)))))||new_error){ +if(qbevent){evnt(26070,126,"ide_methods.bas");if(r)goto S_36511;} +do{ +qbs_set(__STRING_IDEINFO,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,126,"ide_methods.bas");}while(r); +} +do{ +SUB_UPDATEIDEINFO(); +if(!qbevent)break;evnt(26070,127,"ide_methods.bas");}while(r); +} +} +do{ +*_FUNC_IDE_LONG_IDE=FUNC_IDE2(&(pass4003= 0 )); +if(!qbevent)break;evnt(26070,131,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free169.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +return *_FUNC_IDE_LONG_IDE; +} +int32 FUNC_IDE2(int32*_FUNC_IDE2_LONG_IGNORE){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data170.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +if(!qbevent)break;evnt(26070,135,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26070,136,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26070,137,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26070,138,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26070,139,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26070,140,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26070,141,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26070,142,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26070,143,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26070,144,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26070,145,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26070,146,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26070,147,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_IGNORE=*_FUNC_IDE2_LONG_IGNORE; +if(!qbevent)break;evnt(26070,149,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_CHAR__ASCII_CHR_046__SEP,qbs_add(func_chr( 34 ),qbs_new_txt_len(" =<>+-/\\^:;,*().",16))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,151,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_C,__STRING_IDECOMMAND); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,153,"ide_methods.bas");}while(r); +do{ +*__LONG_DEBUGNEXTLINE= 0 ; +if(!qbevent)break;evnt(26070,154,"ide_methods.bas");}while(r); +LABEL_IDEERRORMESSAGE:; +if(qbevent){evnt(26070,156,"ide_methods.bas");r=0;} +S_36535:; +if ((*__LONG_IDEERROR)||new_error){ +if(qbevent){evnt(26070,158,"ide_methods.bas");if(r)goto S_36535;} +S_36536:; +if ((*__LONG_IDEDEBUGMODE)||new_error){ +if(qbevent){evnt(26070,159,"ide_methods.bas");if(r)goto S_36536;} +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,160,"ide_methods.bas");}while(r); +do{ +sub__printstring( 1 , 1 ,__STRING_MENUBAR,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,160,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDE2_LONG_MUSTDISPLAY= 1 ; +if(!qbevent)break;evnt(26070,162,"ide_methods.bas");}while(r); +S_36541:; +if ((-(*__LONG_IDEERROR== 1 ))||new_error){ +if(qbevent){evnt(26070,163,"ide_methods.bas");if(r)goto S_36541;} +do{ +qbs_set(_FUNC_IDE2_STRING_ERRORAT,qbs_new_txt_len("Internal IDE error",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,163,"ide_methods.bas");}while(r); +} +S_36544:; +if ((-(*__LONG_IDEERROR== 2 ))||new_error){ +if(qbevent){evnt(26070,164,"ide_methods.bas");if(r)goto S_36544;} +do{ +qbs_set(_FUNC_IDE2_STRING_ERRORAT,qbs_new_txt_len("File not found",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,164,"ide_methods.bas");}while(r); +} +S_36547:; +if ((-(*__LONG_IDEERROR== 3 ))||new_error){ +if(qbevent){evnt(26070,165,"ide_methods.bas");if(r)goto S_36547;} +do{ +qbs_set(_FUNC_IDE2_STRING_ERRORAT,qbs_new_txt_len("File access error",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,165,"ide_methods.bas");}while(r); +do{ +sub_close( 150 ,1); +if(!qbevent)break;evnt(26070,165,"ide_methods.bas");}while(r); +} +S_36551:; +if ((-(*__LONG_IDEERROR== 4 ))||new_error){ +if(qbevent){evnt(26070,166,"ide_methods.bas");if(r)goto S_36551;} +do{ +qbs_set(_FUNC_IDE2_STRING_ERRORAT,qbs_new_txt_len("Path not found",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,166,"ide_methods.bas");}while(r); +} +S_36554:; +if ((-(*__LONG_IDEERROR== 5 ))||new_error){ +if(qbevent){evnt(26070,167,"ide_methods.bas");if(r)goto S_36554;} +do{ +qbs_set(_FUNC_IDE2_STRING_ERRORAT,qbs_new_txt_len("Cannot create folder",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,167,"ide_methods.bas");}while(r); +} +S_36557:; +if ((-(*__LONG_IDEERROR== 6 ))||new_error){ +if(qbevent){evnt(26070,168,"ide_methods.bas");if(r)goto S_36557;} +do{ +qbs_set(_FUNC_IDE2_STRING_ERRORAT,qbs_new_txt_len("Cannot save file",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,168,"ide_methods.bas");}while(r); +} +S_36560:; +if ((-(*__LONG_IDEERROR== 7 ))||new_error){ +if(qbevent){evnt(26070,169,"ide_methods.bas");if(r)goto S_36560;} +do{ +qbs_set(_FUNC_IDE2_STRING_ERRORAT,qbs_new_txt_len("Cannot export file",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,169,"ide_methods.bas");}while(r); +} +S_36563:; +if ((-(*__LONG_IDEERROR== -1 ))||new_error){ +if(qbevent){evnt(26070,170,"ide_methods.bas");if(r)goto S_36563;} +do{ +goto LABEL_ERRORREPORTDONE; +if(!qbevent)break;evnt(26070,170,"ide_methods.bas");}while(r); +} +do{ +*__INTEGER_QBERRORCODE=get_error_err(); +if(!qbevent)break;evnt(26070,172,"ide_methods.bas");}while(r); +S_36567:; +if ((*__INTEGER_QBERRORCODE)||new_error){ +if(qbevent){evnt(26070,173,"ide_methods.bas");if(r)goto S_36567;} +do{ +qbs_set(_FUNC_IDE2_STRING_IDEERRORMESSAGETITLE,qbs_add(qbs_new_txt_len("Error ",6),FUNC_STR2(&(pass4004=*__INTEGER_QBERRORCODE)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,174,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDE2_STRING_IDEERRORMESSAGETITLE,qbs_new_txt_len("Error",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,176,"ide_methods.bas");}while(r); +} +S_36572:; +if (((-(*__LONG_IDEERROR> 1 )))||new_error){ +if(qbevent){evnt(26070,179,"ide_methods.bas");if(r)goto S_36572;} +do{ +qbs_set(_FUNC_IDE2_STRING_IDEERRORMESSAGETITLE,qbs_add(_FUNC_IDE2_STRING_IDEERRORMESSAGETITLE,qbs_new_txt_len(" (",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,181,"ide_methods.bas");}while(r); +S_36574:; +if (((-(func__errorline()> 0 ))|(-(func__inclerrorline()> 0 )))||new_error){ +if(qbevent){evnt(26070,182,"ide_methods.bas");if(r)goto S_36574;} +do{ +qbs_set(_FUNC_IDE2_STRING_IDEERRORMESSAGETITLE,qbs_add(qbs_add(qbs_add(_FUNC_IDE2_STRING_IDEERRORMESSAGETITLE,FUNC_STR2(&(pass4005=func__errorline()))),qbs_new_txt_len("-",1)),FUNC_STR2(&(pass4006=func__inclerrorline())))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,183,"ide_methods.bas");}while(r); +} +S_36577:; +if ((*__BYTE_ISCIVERSION)||new_error){ +if(qbevent){evnt(26070,185,"ide_methods.bas");if(r)goto S_36577;} +do{ +qbs_set(_FUNC_IDE2_STRING_IDEERRORMESSAGETITLE,qbs_add(qbs_add(_FUNC_IDE2_STRING_IDEERRORMESSAGETITLE,qbs_new_txt_len("-",1)),__STRING_VERSION)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,185,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDE2_STRING_IDEERRORMESSAGETITLE,qbs_add(_FUNC_IDE2_STRING_IDEERRORMESSAGETITLE,qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,186,"ide_methods.bas");}while(r); +S_36581:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_IDEERRORMESSAGETITLE,qbs_new_txt_len("Error ()",8))))||new_error){ +if(qbevent){evnt(26070,187,"ide_methods.bas");if(r)goto S_36581;} +do{ +qbs_set(_FUNC_IDE2_STRING_IDEERRORMESSAGETITLE,qbs_new_txt_len("Error",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,187,"ide_methods.bas");}while(r); +} +S_36584:; +if ((-(*_FUNC_IDE2_BYTE_ATTEMPTTOLOADRECENT== -1 ))||new_error){ +if(qbevent){evnt(26070,188,"ide_methods.bas");if(r)goto S_36584;} +do{ +sub_pcopy( 2 , 0 ); +if(!qbevent)break;evnt(26070,190,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_RESULT=FUNC_IDEMESSAGEBOX(_FUNC_IDE2_STRING_IDEERRORMESSAGETITLE,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_IDE2_STRING_ERRORAT,qbs_new_txt_len(".",1)),func_chr( 10 )),func_chr( 10 )),qbs_new_txt_len("Remove broken links from recent files?",38)),qbs_new_txt_len("#Yes;#No",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,191,"ide_methods.bas");}while(r); +S_36587:; +if ((-(*_FUNC_IDE2_LONG_RESULT== 1 ))||new_error){ +if(qbevent){evnt(26070,192,"ide_methods.bas");if(r)goto S_36587;} +do{ +return_point[next_return_point++]=12; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_CLEANUPRECENTLIST; +RETURN_12:; +if(!qbevent)break;evnt(26070,193,"ide_methods.bas");}while(r); +} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,195,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,195,"ide_methods.bas");}while(r); +do{ +goto LABEL_ERRORREPORTDONE; +if(!qbevent)break;evnt(26070,196,"ide_methods.bas");}while(r); +} +}else{ +do{ +*_FUNC_IDE2_LONG_INCLERRORLINE=func__inclerrorline(); +if(!qbevent)break;evnt(26070,200,"ide_methods.bas");}while(r); +S_36596:; +if ((*_FUNC_IDE2_LONG_INCLERRORLINE)||new_error){ +if(qbevent){evnt(26070,201,"ide_methods.bas");if(r)goto S_36596;} +do{ +qbs_set(_FUNC_IDE2_STRING_ERRORAT,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_IDE2_STRING_ERRORAT,func_chr( 10 )),qbs_new_txt_len(" ",1)),func_chr( 10 )),qbs_new_txt_len("(module: ",9)),FUNC_REMOVEFILEEXTENSION(qbs_left(func__inclerrorfile(), 60 )))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,203,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_ERRORAT,qbs_add(qbs_add(_FUNC_IDE2_STRING_ERRORAT,qbs_new_txt_len(", on line: ",11)),FUNC_STR2(_FUNC_IDE2_LONG_INCLERRORLINE))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,204,"ide_methods.bas");}while(r); +S_36599:; +if ((*__BYTE_ISCIVERSION)||new_error){ +if(qbevent){evnt(26070,205,"ide_methods.bas");if(r)goto S_36599;} +do{ +qbs_set(_FUNC_IDE2_STRING_ERRORAT,qbs_add(qbs_add(_FUNC_IDE2_STRING_ERRORAT,qbs_new_txt_len(", ",2)),__STRING_VERSION)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,205,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDE2_STRING_ERRORAT,qbs_add(_FUNC_IDE2_STRING_ERRORAT,qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,206,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDE2_STRING_ERRORAT,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_IDE2_STRING_ERRORAT,func_chr( 10 )),qbs_new_txt_len(" ",1)),func_chr( 10 )),qbs_new_txt_len("(on line: ",10)),FUNC_STR2(&(pass4007=func__errorline())))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,208,"ide_methods.bas");}while(r); +S_36605:; +if ((*__BYTE_ISCIVERSION)||new_error){ +if(qbevent){evnt(26070,209,"ide_methods.bas");if(r)goto S_36605;} +do{ +qbs_set(_FUNC_IDE2_STRING_ERRORAT,qbs_add(qbs_add(_FUNC_IDE2_STRING_ERRORAT,qbs_new_txt_len(", ",2)),__STRING_VERSION)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,209,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDE2_STRING_ERRORAT,qbs_add(_FUNC_IDE2_STRING_ERRORAT,qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,210,"ide_methods.bas");}while(r); +} +} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,214,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_RESULT=FUNC_IDEMESSAGEBOX(_FUNC_IDE2_STRING_IDEERRORMESSAGETITLE,_FUNC_IDE2_STRING_ERRORAT,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,215,"ide_methods.bas");}while(r); +LABEL_ERRORREPORTDONE:; +if(qbevent){evnt(26070,216,"ide_methods.bas");r=0;} +} +do{ +*__LONG_IDEERROR= 1 ; +if(!qbevent)break;evnt(26070,219,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_BYTE_ATTEMPTTOLOADRECENT= 0 ; +if(!qbevent)break;evnt(26070,220,"ide_methods.bas");}while(r); +S_36616:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_IDE2_STRING_C, 1 ),func_chr( 12 ))))||new_error){ +if(qbevent){evnt(26070,222,"ide_methods.bas");if(r)goto S_36616;} +do{ +qbs_set(_FUNC_IDE2_STRING_F,qbs_right(_FUNC_IDE2_STRING_C,_FUNC_IDE2_STRING_C->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,223,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); +if(!qbevent)break;evnt(26070,224,"ide_methods.bas");}while(r); +do{ +SUB_CLEARSTATUSWINDOW(&(pass4009= 0 )); +if(!qbevent)break;evnt(26070,225,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_DUMMY=FUNC_DARKENFGBG(&(pass4010= 1 )); +if(!qbevent)break;evnt(26070,227,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_BKPIDESYSTEM=*__LONG_IDESYSTEM; +if(!qbevent)break;evnt(26070,228,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESYSTEM= 2 ; +if(!qbevent)break;evnt(26070,228,"ide_methods.bas");}while(r); +do{ +SUB_UPDATETITLEOFMAINWINDOW(); +if(!qbevent)break;evnt(26070,228,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESYSTEM=*_FUNC_IDE2_LONG_BKPIDESYSTEM; +if(!qbevent)break;evnt(26070,228,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 1 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,229,"ide_methods.bas");}while(r); +do{ +sub__printstring((*__LONG_IDEWX- 8 )/ ((long double)( 2 )),*__LONG_IDEWY- 4 ,qbs_new_txt_len(" Status ",8),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,229,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 15 , 1 ,NULL,3); +if(!qbevent)break;evnt(26070,230,"ide_methods.bas");}while(r); +S_36628:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ +if(qbevent){evnt(26070,232,"ide_methods.bas");if(r)goto S_36628;} +do{ +sub__printstring( 2 ,*__LONG_IDEWY- 3 ,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Creating .EXE file named ",25),func_chr( 34 )),_FUNC_IDE2_STRING_F),__STRING_EXTENSION),func_chr( 34 )),qbs_new_txt_len("...",3)),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,233,"ide_methods.bas");}while(r); +}else{ +do{ +sub__printstring( 2 ,*__LONG_IDEWY- 3 ,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Creating executable file named ",31),func_chr( 34 )),_FUNC_IDE2_STRING_F),__STRING_EXTENSION),func_chr( 34 )),qbs_new_txt_len("...",3)),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,235,"ide_methods.bas");}while(r); +} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,238,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_IDE2= 9 ; +if(!qbevent)break;evnt(26070,239,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_IDERETURN,_FUNC_IDE2_STRING_F); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,239,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,240,"ide_methods.bas");}while(r); +} +S_36638:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_C,func_chr( 100 ))))||new_error){ +if(qbevent){evnt(26070,243,"ide_methods.bas");if(r)goto S_36638;} +do{ +*__LONG_IDECOMPILEDLINE=*__LONG_IDECOMPILEDLINE+ 1 ; +if(!qbevent)break;evnt(26070,244,"ide_methods.bas");}while(r); +S_36640:; +if ((-(*__LONG_IDECOMPILEDLINE<*__LONG_IDEN))||new_error){ +if(qbevent){evnt(26070,245,"ide_methods.bas");if(r)goto S_36640;} +do{ +qbs_set(__STRING_IDECOMPILEDLINE,FUNC_IDEGETLINE(__LONG_IDECOMPILEDLINE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,246,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_IDERETURN,__STRING_IDECOMPILEDLINE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,247,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(__STRING_IDECOMPILEDLINE,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,249,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_IDERETURN,__STRING_IDECOMPILEDLINE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,250,"ide_methods.bas");}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,252,"ide_methods.bas");}while(r); +} +S_36649:; +if ((-(*__LONG_IDELAUNCHED== 0 ))||new_error){ +if(qbevent){evnt(26070,255,"ide_methods.bas");if(r)goto S_36649;} +do{ +*__LONG_IDELAUNCHED= 1 ; +if(!qbevent)break;evnt(26070,256,"ide_methods.bas");}while(r); +do{ +qbsub_width(NULL,*__LONG_IDEWX,*__LONG_IDEWY,NULL,NULL,3); +if(!qbevent)break;evnt(26070,258,"ide_methods.bas");}while(r); +S_36652:; +if ((*__BYTE_IDE_USEFONT8)||new_error){ +if(qbevent){evnt(26070,259,"ide_methods.bas");if(r)goto S_36652;} +do{ +sub__font( 8 ,NULL,0); +if(!qbevent)break;evnt(26070,259,"ide_methods.bas");}while(r); +}else{ +do{ +sub__font( 16 ,NULL,0); +if(!qbevent)break;evnt(26070,259,"ide_methods.bas");}while(r); +} +S_36657:; +if ((*__LONG_IDECPINDEX)||new_error){ +if(qbevent){evnt(26070,262,"ide_methods.bas");if(r)goto S_36657;} +S_36658:; +fornext_value4012= 128 ; +fornext_finalvalue4012= 255 ; +fornext_step4012= 1 ; +if (fornext_step4012<0) fornext_step_negative4012=1; else fornext_step_negative4012=0; +if (new_error) goto fornext_error4012; +goto fornext_entrylabel4012; +while(1){ +fornext_value4012=fornext_step4012+(*_FUNC_IDE2_LONG_X); +fornext_entrylabel4012: +*_FUNC_IDE2_LONG_X=fornext_value4012; +if (fornext_step_negative4012){ +if (fornext_value4012fornext_finalvalue4012) break; +} +fornext_error4012:; +if(qbevent){evnt(26070,263,"ide_methods.bas");if(r)goto S_36658;} +do{ +*_FUNC_IDE2_LONG_U=qbr(func_val(qbs_add(qbs_add(qbs_new_txt_len("&H",2),func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_IDECP[0]))[array_check((*__LONG_IDECPINDEX)-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5])])),(*_FUNC_IDE2_LONG_X* 8 )+( 1 ), 8 ,0|1)),qbs_new_txt_len("&",1)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,264,"ide_methods.bas");}while(r); +S_36660:; +if ((-(*_FUNC_IDE2_LONG_U== 0 ))||new_error){ +if(qbevent){evnt(26070,265,"ide_methods.bas");if(r)goto S_36660;} +do{ +*_FUNC_IDE2_LONG_U= 9744 ; +if(!qbevent)break;evnt(26070,265,"ide_methods.bas");}while(r); +} +do{ +sub__mapunicode(*_FUNC_IDE2_LONG_U,*_FUNC_IDE2_LONG_X); +if(!qbevent)break;evnt(26070,266,"ide_methods.bas");}while(r); +fornext_continue_4011:; +} +fornext_exit_4011:; +} +S_36666:; +if ((*__LONG_IDECUSTOMFONT)||new_error){ +if(qbevent){evnt(26070,270,"ide_methods.bas");if(r)goto S_36666;} +do{ +*__LONG_IDECUSTOMFONTHANDLE=func__loadfont(__STRING_IDECUSTOMFONTFILE,*__LONG_IDECUSTOMFONTHEIGHT,qbs_new_txt_len("MONOSPACE",9),NULL,0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,271,"ide_methods.bas");}while(r); +S_36668:; +if ((-(*__LONG_IDECUSTOMFONTHANDLE== -1 ))||new_error){ +if(qbevent){evnt(26070,272,"ide_methods.bas");if(r)goto S_36668;} +do{ +*__LONG_IDECUSTOMFONT= 0 ; +if(!qbevent)break;evnt(26070,274,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_IDECUSTOMFONTFILE,qbs_new_txt_len("C:\\Windows\\Fonts\\lucon.ttf",26)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,274,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECUSTOMFONTHEIGHT= 21 ; +if(!qbevent)break;evnt(26070,274,"ide_methods.bas");}while(r); +}else{ +do{ +sub__font(*__LONG_IDECUSTOMFONTHANDLE,NULL,0); +if(!qbevent)break;evnt(26070,276,"ide_methods.bas");}while(r); +} +} +do{ +*_FUNC_IDE2_LONG_M= 1 ; +if(!qbevent)break;evnt(26070,280,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I= 0 ; +if(!qbevent)break;evnt(26070,280,"ide_methods.bas");}while(r); +do{ +SUB_IDEMAKEFILEMENU(); +if(!qbevent)break;evnt(26070,281,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_M+ 1 ; +if(!qbevent)break;evnt(26070,283,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I= 0 ; +if(!qbevent)break;evnt(26070,283,"ide_methods.bas");}while(r); +do{ +*__INTEGER_IDEEDITMENUID=*_FUNC_IDE2_LONG_M; +if(!qbevent)break;evnt(26070,284,"ide_methods.bas");}while(r); +do{ +SUB_IDEMAKEEDITMENU(); +if(!qbevent)break;evnt(26070,285,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_M+ 1 ; +if(!qbevent)break;evnt(26070,287,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I= 0 ; +if(!qbevent)break;evnt(26070,287,"ide_methods.bas");}while(r); +do{ +*__INTEGER_VIEWMENUID=*_FUNC_IDE2_LONG_M; +if(!qbevent)break;evnt(26070,287,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("View",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,288,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,288,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#SUBs... F2",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,289,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,289,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Displays a list of SUB/FUNCTION procedures",42)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,290,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(qbs_new_txt_len("#Line Numbers ",15),func_chr( 16 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,291,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,291,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Toggles and customizes line numbers (side bar)",46)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,292,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,293,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,293,"ide_methods.bas");}while(r); +do{ +*__INTEGER_VIEWMENUCOMPILERWARNINGS=*_FUNC_IDE2_LONG_I; +if(!qbevent)break;evnt(26070,295,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*__INTEGER_VIEWMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_VIEWMENUCOMPILERWARNINGS)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Compiler #Warnings... Ctrl+W",29)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,296,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,296,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Displays a list of recent code warnings",39)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,297,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_MENUSIZE[0]))[tmp_long]=*_FUNC_IDE2_LONG_I- 1 ; +if(!qbevent)break;evnt(26070,298,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_M+ 1 ; +if(!qbevent)break;evnt(26070,300,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I= 0 ; +if(!qbevent)break;evnt(26070,300,"ide_methods.bas");}while(r); +do{ +*__INTEGER_SEARCHMENUID=*_FUNC_IDE2_LONG_M; +if(!qbevent)break;evnt(26070,300,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Search",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,301,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,301,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Find... Ctrl+F3",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,302,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,302,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Finds specified text",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,303,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Repeat Last Find (Shift+) F3",30)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,304,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,304,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Finds next occurrence of text specified in previous search",58)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,305,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Change... Alt+F3",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,306,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,306,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Finds and changes specified text",32)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,307,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,308,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,308,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Clear Search #History...",24)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,309,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,309,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Clears history of searched text items",37)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,310,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,311,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,311,"ide_methods.bas");}while(r); +do{ +*__INTEGER_SEARCHMENUENABLEQUICKNAV=*_FUNC_IDE2_LONG_I; +if(!qbevent)break;evnt(26070,313,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Quick Navigation",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,314,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,314,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Toggles Quick Navigation (back arrow)",37)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,315,"ide_methods.bas");}while(r); +S_36726:; +if ((*__BYTE_ENABLEQUICKNAV)||new_error){ +if(qbevent){evnt(26070,316,"ide_methods.bas");if(r)goto S_36726;} +do{ +tmp_long=array_check((*__INTEGER_SEARCHMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_SEARCHMENUENABLEQUICKNAV)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(func_chr( 7 ),((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*__INTEGER_SEARCHMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_SEARCHMENUENABLEQUICKNAV)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,317,"ide_methods.bas");}while(r); +} +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,319,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,319,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Add/Remove #Bookmark Alt+Left",30)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,320,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,320,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Toggles a bookmark in the current line",38)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,321,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Next Bookmark Alt+Down",24)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,322,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,322,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Navigates to the next bookmark",30)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,323,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Previous Bookmark Alt+Up",26)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,324,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,324,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Navigates to the previous bookmark",34)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,325,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,326,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,326,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Go To Line... Ctrl+G",22)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,327,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,327,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Jumps to the specified line number",34)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,328,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_MENUSIZE[0]))[tmp_long]=*_FUNC_IDE2_LONG_I- 1 ; +if(!qbevent)break;evnt(26070,330,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_M+ 1 ; +if(!qbevent)break;evnt(26070,332,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I= 0 ; +if(!qbevent)break;evnt(26070,332,"ide_methods.bas");}while(r); +do{ +*__INTEGER_RUNMENUID=*_FUNC_IDE2_LONG_M; +if(!qbevent)break;evnt(26070,332,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Run",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,333,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,333,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Start F5",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,334,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,334,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Run only (No exe)",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,335,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,335,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Compiles current program and runs it",36)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,336,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Modify #COMMAND$...",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,337,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,337,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Sets string returned by COMMAND$ function",41)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,338,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,339,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,339,"ide_methods.bas");}while(r); +do{ +*__INTEGER_RUNMENUSAVEEXEWITHSOURCE=*_FUNC_IDE2_LONG_I; +if(!qbevent)break;evnt(26070,341,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Output EXE to Source #Folder",28)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,342,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,342,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Toggles compiling program to QB64-PE's folder or to source folder",65)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,343,"ide_methods.bas");}while(r); +S_36765:; +if ((*__BYTE_SAVEEXEWITHSOURCE)||new_error){ +if(qbevent){evnt(26070,344,"ide_methods.bas");if(r)goto S_36765;} +do{ +tmp_long=array_check((*__INTEGER_RUNMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_RUNMENUSAVEEXEWITHSOURCE)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(func_chr( 7 ),((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*__INTEGER_RUNMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_RUNMENUSAVEEXEWITHSOURCE)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,345,"ide_methods.bas");}while(r); +} +do{ +*__INTEGER_GENERATELICENSEENABLEMENU=*_FUNC_IDE2_LONG_I; +if(!qbevent)break;evnt(26070,347,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Generate License For EXE",25)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,348,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,348,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("The license file is placed next to the executable",49)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,349,"ide_methods.bas");}while(r); +S_36772:; +if ((*__ULONG_GENERATELICENSEFILE)||new_error){ +if(qbevent){evnt(26070,350,"ide_methods.bas");if(r)goto S_36772;} +do{ +tmp_long=array_check((*__INTEGER_RUNMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_GENERATELICENSEENABLEMENU)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(func_chr( 7 ),((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*__INTEGER_RUNMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_GENERATELICENSEENABLEMENU)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,351,"ide_methods.bas");}while(r); +} +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,353,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,353,"ide_methods.bas");}while(r); +S_36777:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ +if(qbevent){evnt(26070,355,"ide_methods.bas");if(r)goto S_36777;} +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Make E#xecutable Only F11",26)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,356,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,356,"ide_methods.bas");}while(r); +}else{ +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Make E#XE Only F11",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,358,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,358,"ide_methods.bas");}while(r); +} +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Compiles current program without running it",43)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,360,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_MENUSIZE[0]))[tmp_long]=*_FUNC_IDE2_LONG_I- 1 ; +if(!qbevent)break;evnt(26070,361,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_M+ 1 ; +if(!qbevent)break;evnt(26070,363,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I= 0 ; +if(!qbevent)break;evnt(26070,363,"ide_methods.bas");}while(r); +do{ +*__INTEGER_DEBUGMENUID=*_FUNC_IDE2_LONG_M; +if(!qbevent)break;evnt(26070,363,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Debug",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,364,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,364,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Start #Paused F7 or F8",23)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,365,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,365,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Compiles current program and starts it in pause mode",52)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,366,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,367,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,367,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Toggle #Breakpoint F9",22)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,368,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,368,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Sets/clears breakpoint at cursor location",41)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,369,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Clear All Breakpoints F10",27)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,370,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,370,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Removes all breakpoints",23)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,371,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Toggle #Skip Line Ctrl+P",25)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,372,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,372,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Sets/clears flag to skip line",29)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,373,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Unskip All Lines Ctrl+F10",27)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,374,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,374,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Removes all line skip flags",27)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,375,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,376,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,376,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Watch List... F4",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,377,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,377,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Adds variables to watch list",28)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,378,"ide_methods.bas");}while(r); +do{ +*__INTEGER_DEBUGMENUCALLSTACK=*_FUNC_IDE2_LONG_I; +if(!qbevent)break;evnt(26070,379,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*__INTEGER_DEBUGMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_DEBUGMENUCALLSTACK)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Call #Stack... F12",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,380,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,380,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Displays the call stack of the current program's last execution",63)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,381,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,382,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,382,"ide_methods.bas");}while(r); +do{ +*__INTEGER_DEBUGMENUAUTOADDCOMMAND=*_FUNC_IDE2_LONG_I; +if(!qbevent)break;evnt(26070,383,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Auto-add $#Debug Metacommand",28)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,384,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,384,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Toggles whether the IDE will auto-add the $Debug metacommand as required",72)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,385,"ide_methods.bas");}while(r); +S_36823:; +if ((*__BYTE_AUTOADDDEBUGCOMMAND)||new_error){ +if(qbevent){evnt(26070,386,"ide_methods.bas");if(r)goto S_36823;} +do{ +tmp_long=array_check((*__INTEGER_DEBUGMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_DEBUGMENUAUTOADDCOMMAND)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(func_chr( 7 ),((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*__INTEGER_DEBUGMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_DEBUGMENUAUTOADDCOMMAND)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,387,"ide_methods.bas");}while(r); +} +do{ +*__INTEGER_DEBUGMENUWATCHLISTTOCONSOLE=*_FUNC_IDE2_LONG_I; +if(!qbevent)break;evnt(26070,389,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Output Watch List to Console",29)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,390,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,390,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Toggles directing the output of the watch list to the console window",68)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,391,"ide_methods.bas");}while(r); +S_36830:; +if ((*__BYTE_WATCHLISTTOCONSOLE)||new_error){ +if(qbevent){evnt(26070,392,"ide_methods.bas");if(r)goto S_36830;} +do{ +tmp_long=array_check((*__INTEGER_DEBUGMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_DEBUGMENUWATCHLISTTOCONSOLE)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(func_chr( 7 ),((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*__INTEGER_DEBUGMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_DEBUGMENUWATCHLISTTOCONSOLE)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,393,"ide_methods.bas");}while(r); +} +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Set Base #TCP/IP Port Number...",31)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,395,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,395,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Sets the initial port number for TCP/IP communication with the debuggee",71)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,396,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Purge C++ #Libraries",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,397,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,397,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Purges all pre-compiled content",31)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,398,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_MENUSIZE[0]))[tmp_long]=*_FUNC_IDE2_LONG_I- 1 ; +if(!qbevent)break;evnt(26070,399,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_M+ 1 ; +if(!qbevent)break;evnt(26070,401,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I= 0 ; +if(!qbevent)break;evnt(26070,401,"ide_methods.bas");}while(r); +do{ +*__INTEGER_OPTIONSMENUID=*_FUNC_IDE2_LONG_M; +if(!qbevent)break;evnt(26070,401,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Options",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,402,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,402,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Display...",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,403,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,403,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Changes screen size and font",28)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,404,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("IDE C#olors...",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,405,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,405,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Changes or customizes IDE color scheme",38)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,406,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Code Layout...",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,407,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,407,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Changes auto-format features",28)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,408,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Co#mpiler Settings...",21)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,409,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,409,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Change settings for compiling your code",39)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,410,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,411,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,411,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Language...",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,412,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,412,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Changes code page to use with TTF fonts",39)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,413,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Backup/Undo...",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,414,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,414,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Sets size of backup/undo buffer",31)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,415,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,416,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,416,"ide_methods.bas");}while(r); +do{ +*__INTEGER_OPTIONSMENUDISABLESYNTAX=*_FUNC_IDE2_LONG_I; +if(!qbevent)break;evnt(26070,418,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Syntax #Highlighter",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,419,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,419,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Toggles syntax highlighter",26)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,420,"ide_methods.bas");}while(r); +S_36871:; +if ((~(*__BYTE_DISABLESYNTAXHIGHLIGHTER))||new_error){ +if(qbevent){evnt(26070,421,"ide_methods.bas");if(r)goto S_36871;} +do{ +tmp_long=array_check((*__INTEGER_OPTIONSMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_OPTIONSMENUDISABLESYNTAX)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(func_chr( 7 ),((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*__INTEGER_OPTIONSMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_OPTIONSMENUDISABLESYNTAX)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,422,"ide_methods.bas");}while(r); +} +do{ +*__INTEGER_OPTIONSMENUSWAPMOUSE=*_FUNC_IDE2_LONG_I; +if(!qbevent)break;evnt(26070,425,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Swap Mouse Buttons",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,426,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,426,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Swaps functionality of left/right mouse buttons",47)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,427,"ide_methods.bas");}while(r); +S_36878:; +if ((*__BYTE_MOUSEBUTTONSWAPPED)||new_error){ +if(qbevent){evnt(26070,428,"ide_methods.bas");if(r)goto S_36878;} +do{ +tmp_long=array_check((*__INTEGER_OPTIONSMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_OPTIONSMENUSWAPMOUSE)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(func_chr( 7 ),((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*__INTEGER_OPTIONSMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_OPTIONSMENUSWAPMOUSE)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,429,"ide_methods.bas");}while(r); +} +do{ +*__INTEGER_OPTIONSMENUPASTECURSOR=*_FUNC_IDE2_LONG_I; +if(!qbevent)break;evnt(26070,432,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Cursor After #Paste",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,433,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,433,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Toggles placing the cursor before/after the pasted content",58)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,434,"ide_methods.bas");}while(r); +S_36885:; +if ((*__BYTE_PASTECURSORATEND)||new_error){ +if(qbevent){evnt(26070,435,"ide_methods.bas");if(r)goto S_36885;} +do{ +tmp_long=array_check((*__INTEGER_OPTIONSMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_OPTIONSMENUPASTECURSOR)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(func_chr( 7 ),((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*__INTEGER_OPTIONSMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_OPTIONSMENUPASTECURSOR)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,436,"ide_methods.bas");}while(r); +} +do{ +*__INTEGER_OPTIONSMENUSHOWERRORSIMMEDIATELY=*_FUNC_IDE2_LONG_I; +if(!qbevent)break;evnt(26070,439,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Syntax Ch#ecker",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,440,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,440,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Toggles instant syntax checker (status area)",44)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,441,"ide_methods.bas");}while(r); +S_36892:; +if ((*__BYTE_IDESHOWERRORSIMMEDIATELY)||new_error){ +if(qbevent){evnt(26070,442,"ide_methods.bas");if(r)goto S_36892;} +do{ +tmp_long=array_check((*__INTEGER_OPTIONSMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_OPTIONSMENUSHOWERRORSIMMEDIATELY)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(func_chr( 7 ),((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*__INTEGER_OPTIONSMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_OPTIONSMENUSHOWERRORSIMMEDIATELY)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,443,"ide_methods.bas");}while(r); +} +do{ +*__INTEGER_OPTIONSMENUIGNOREWARNINGS=*_FUNC_IDE2_LONG_I; +if(!qbevent)break;evnt(26070,446,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Ignore #Warnings",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,447,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,447,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Toggles display of warning messages (unused variables, etc)",59)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,448,"ide_methods.bas");}while(r); +S_36899:; +if ((*__BYTE_IGNOREWARNINGS)||new_error){ +if(qbevent){evnt(26070,449,"ide_methods.bas");if(r)goto S_36899;} +do{ +tmp_long=array_check((*__INTEGER_OPTIONSMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_OPTIONSMENUIGNOREWARNINGS)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(func_chr( 7 ),qbs_new_txt_len("Ignore #Warnings",16))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,449,"ide_methods.bas");}while(r); +} +do{ +*__INTEGER_OPTIONSMENUGUIDIALOGS=*_FUNC_IDE2_LONG_I; +if(!qbevent)break;evnt(26070,451,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("GUI Dialogs",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,452,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,452,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Uses GUI-based File Dialog Windows",34)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,453,"ide_methods.bas");}while(r); +S_36906:; +if ((*__ULONG_USEGUIDIALOGS)||new_error){ +if(qbevent){evnt(26070,454,"ide_methods.bas");if(r)goto S_36906;} +do{ +tmp_long=array_check((*__INTEGER_OPTIONSMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(func_chr( 7 ),((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*__INTEGER_OPTIONSMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,455,"ide_methods.bas");}while(r); +} +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_MENUSIZE[0]))[tmp_long]=*_FUNC_IDE2_LONG_I- 1 ; +if(!qbevent)break;evnt(26070,464,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_M+ 1 ; +if(!qbevent)break;evnt(26070,466,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I= 0 ; +if(!qbevent)break;evnt(26070,466,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Tools",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,467,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,467,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#ASCII Chart...",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,468,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,468,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Displays ASCII characters and allows inserting in current program",65)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,469,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Insert Quick #Keycode Ctrl+K",29)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,470,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,470,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Captures key codes and inserts in current program",49)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,471,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Math Evaluator...",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,472,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,472,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Displays the math evaluator dialog",34)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,473,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#RGB Color Mixer...",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,474,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,474,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Allows mixing colors to edit/insert _RGB statements",51)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,475,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_MENUSIZE[0]))[tmp_long]=*_FUNC_IDE2_LONG_I- 1 ; +if(!qbevent)break;evnt(26070,476,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_M+ 1 ; +if(!qbevent)break;evnt(26070,478,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I= 0 ; +if(!qbevent)break;evnt(26070,478,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Help",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,479,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,479,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#View Shift+F1",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,480,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,480,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Displays help window",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,481,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Contents Page",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,482,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,482,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Displays help contents page",27)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,483,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Keyword #Index",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,484,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,484,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Displays keyword index page",27)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,485,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Keywords by Usage",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,486,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,486,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Displays keywords index by usage",32)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,487,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,488,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,488,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Update Current Page",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,489,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,489,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Downloads the latest version of an article from the wiki",56)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,490,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Update All #Pages...",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,491,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,491,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Downloads the latest version of all articles from the wiki",58)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,492,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("View Current Page On #Wiki",26)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,493,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,493,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Launches the default browser and navigates to the current article on the wiki",77)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,494,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,495,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,495,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#About...",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,498,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,498,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Displays the current version of QB64-PE",39)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,499,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_MENUSIZE[0]))[tmp_long]=*_FUNC_IDE2_LONG_I- 1 ; +if(!qbevent)break;evnt(26070,500,"ide_methods.bas");}while(r); +do{ +*__INTEGER_MENUS=*_FUNC_IDE2_LONG_M; +if(!qbevent)break;evnt(26070,502,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_M+ 1 ; +if(!qbevent)break;evnt(26070,505,"ide_methods.bas");}while(r); +do{ +*__INTEGER_IDECONTEXTUALMENUID=*_FUNC_IDE2_LONG_M; +if(!qbevent)break;evnt(26070,506,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_M+ 1 ; +if(!qbevent)break;evnt(26070,509,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I= 0 ; +if(!qbevent)break;evnt(26070,509,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("ViewMenuShowLineNumbersSubMenu",30)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,510,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,510,"ide_methods.bas");}while(r); +do{ +*__INTEGER_VIEWMENUSHOWLINENUMBERSSUBMENUID=*_FUNC_IDE2_LONG_M; +if(!qbevent)break;evnt(26070,511,"ide_methods.bas");}while(r); +S_36968:; +if ((*__BYTE_SHOWLINENUMBERS)||new_error){ +if(qbevent){evnt(26070,512,"ide_methods.bas");if(r)goto S_36968;} +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Hide Line Numbers",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,512,"ide_methods.bas");}while(r); +}else{ +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Show Line Numbers",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,512,"ide_methods.bas");}while(r); +} +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Toggles displaying line numbers (side bar)",42)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,513,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,514,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Background Color",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,515,"ide_methods.bas");}while(r); +S_36976:; +if ((*__BYTE_SHOWLINENUMBERSUSEBG)||new_error){ +if(qbevent){evnt(26070,515,"ide_methods.bas");if(r)goto S_36976;} +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(func_chr( 7 ),((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,515,"ide_methods.bas");}while(r); +} +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Toggles displaying a different background (side bar)",52)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,516,"ide_methods.bas");}while(r); +do{ +*__INTEGER_VIEWMENUSHOWBGID=*_FUNC_IDE2_LONG_I; +if(!qbevent)break;evnt(26070,517,"ide_methods.bas");}while(r); +S_36981:; +if ((-(*__BYTE_SHOWLINENUMBERS== 0 ))||new_error){ +if(qbevent){evnt(26070,518,"ide_methods.bas");if(r)goto S_36981;} +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(qbs_new_txt_len("~",1),((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,518,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,519,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Sho#w Separator",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,520,"ide_methods.bas");}while(r); +S_36986:; +if ((*__BYTE_SHOWLINENUMBERSSEPARATOR)||new_error){ +if(qbevent){evnt(26070,520,"ide_methods.bas");if(r)goto S_36986;} +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(func_chr( 7 ),((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,520,"ide_methods.bas");}while(r); +} +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Toggles showing a separator line (side bar)",43)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,521,"ide_methods.bas");}while(r); +do{ +*__INTEGER_VIEWMENUSHOWSEPARATORID=*_FUNC_IDE2_LONG_I; +if(!qbevent)break;evnt(26070,522,"ide_methods.bas");}while(r); +S_36991:; +if ((-(*__BYTE_SHOWLINENUMBERS== 0 ))||new_error){ +if(qbevent){evnt(26070,523,"ide_methods.bas");if(r)goto S_36991;} +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(qbs_new_txt_len("~",1),((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,523,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,524,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_MENUSIZE[0]))[tmp_long]=*_FUNC_IDE2_LONG_I- 1 ; +if(!qbevent)break;evnt(26070,525,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_M+ 1 ; +if(!qbevent)break;evnt(26070,528,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I= 0 ; +if(!qbevent)break;evnt(26070,528,"ide_methods.bas");}while(r); +do{ +*__INTEGER_FILEMENUEXPORTASSUBMENUID=*_FUNC_IDE2_LONG_M; +if(!qbevent)break;evnt(26070,528,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("FileMenuExportAsSubMenu",23)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,529,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,529,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Hypertext document (.htm)",26)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,530,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,530,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Export program into a Hypertext document",40)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,531,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Rich Text document (.rtf)",26)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,532,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,532,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Export program into a Rich Text document",40)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,533,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Wiki prepared sample (.txt)",28)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,534,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,534,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Export program into a Wiki code example",39)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,535,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_MENUSIZE[0]))[tmp_long]=*_FUNC_IDE2_LONG_I- 1 ; +if(!qbevent)break;evnt(26070,536,"ide_methods.bas");}while(r); +S_37011:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ +if(qbevent){evnt(26070,538,"ide_methods.bas");if(r)goto S_37011;} +do{ +qbs_set(__STRING1_IDEPATHSEP,qbs_new_txt_len("\\",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,539,"ide_methods.bas");}while(r); +} +S_37014:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ +if(qbevent){evnt(26070,541,"ide_methods.bas");if(r)goto S_37014;} +do{ +qbs_set(__STRING1_IDEPATHSEP,qbs_new_txt_len("/",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,542,"ide_methods.bas");}while(r); +} +do{ +qbs_set(__STRING_IDEROOT,FUNC_IDEZGETROOT()); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,545,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_IDEPATH,func__startdir()); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,546,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_IDET,qbs_add(l2string( 0 ),l2string( 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,549,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEL= 1 ; +if(!qbevent)break;evnt(26070,549,"ide_methods.bas");}while(r); +do{ +*__LONG_IDELI= 1 ; +if(!qbevent)break;evnt(26070,549,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEN= 1 ; +if(!qbevent)break;evnt(26070,549,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEBMKN= 0 ; +if(!qbevent)break;evnt(26070,549,"ide_methods.bas");}while(r); +do{ if (__ARRAY_BYTE_IDEBREAKPOINTS[2]&2){ error(10); @@ -125503,9 +125503,9 @@ __ARRAY_BYTE_IDEBREAKPOINTS[0]=(ptrszint)calloc(__ARRAY_BYTE_IDEBREAKPOINTS[5]*1 if (!__ARRAY_BYTE_IDEBREAKPOINTS[0]) error(257); } __ARRAY_BYTE_IDEBREAKPOINTS[2]|=1; -} -if(!qbevent)break;evnt(26070,550,"ide_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26070,550,"ide_methods.bas");}while(r); +do{ if (__ARRAY_BYTE_IDESKIPLINES[2]&2){ error(10); @@ -125529,17 +125529,17 @@ __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(26070,551,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_VARIABLEWATCHLIST,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,552,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_BACKUPVARIABLEWATCHLIST,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,553,"ide_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26070,551,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_VARIABLEWATCHLIST,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,552,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_BACKUPVARIABLEWATCHLIST,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,553,"ide_methods.bas");}while(r); +do{ if (__ARRAY_UDT_BACKUPUSEDVARIABLELIST[2]&2){ error(10); @@ -125584,157 +125584,157 @@ while(tmp_long--){ *(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 96)=qbs_new(0,0); *(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 104)=qbs_new(0,0); *(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 112)=qbs_new(0,0);} -} -if(!qbevent)break;evnt(26070,553,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_BACKUPTYPEDEFINITIONS,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,554,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_WATCHPOINTLIST,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,555,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_CALLSTACKLIST,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,556,"ide_methods.bas");}while(r); -do{ -*__LONG_CALLSTACKLENGTH= 0 ; -if(!qbevent)break;evnt(26070,556,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEUNSAVED= -1 ; -if(!qbevent)break;evnt(26070,557,"ide_methods.bas");}while(r); -do{ -*__INTEGER_IDECHANGEMADE= 1 ; -if(!qbevent)break;evnt(26070,558,"ide_methods.bas");}while(r); -do{ -*__BYTE_STARTPAUSEDPENDING= 0 ; -if(!qbevent)break;evnt(26070,559,"ide_methods.bas");}while(r); -LABEL_REDRAWEVERYTHING:; -if(qbevent){evnt(26070,561,"ide_methods.bas");r=0;} -do{ -*__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(26070,562,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESX= 1 ; -if(!qbevent)break;evnt(26070,563,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESY= 1 ; -if(!qbevent)break;evnt(26070,564,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECX= 1 ; -if(!qbevent)break;evnt(26070,565,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECY= 1 ; -if(!qbevent)break;evnt(26070,566,"ide_methods.bas");}while(r); -LABEL_REDRAWEVERYTHING2:; -if(qbevent){evnt(26070,568,"ide_methods.bas");r=0;} -do{ -return_point[next_return_point++]=13; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_REDRAWITALL; -RETURN_13:; -if(!qbevent)break;evnt(26070,569,"ide_methods.bas");}while(r); -S_37042:; -if ((-(*_FUNC_IDE2_LONG_RETVAL== 1 ))||new_error){ -if(qbevent){evnt(26070,571,"ide_methods.bas");if(r)goto S_37042;} -do{ -goto LABEL_SKIPLOAD; -if(!qbevent)break;evnt(26070,571,"ide_methods.bas");}while(r); -} -do{ -sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("autosave.bin",12)), 2 ,NULL,NULL, 150 ,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,575,"ide_methods.bas");}while(r); -S_37046:; -if ((-(func_lof( 150 )== 1 ))||new_error){ -if(qbevent){evnt(26070,576,"ide_methods.bas");if(r)goto S_37046;} -do{ -sub_close( 150 ,1); -if(!qbevent)break;evnt(26070,577,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_R,FUNC_IDERESTORE()); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,578,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,579,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,579,"ide_methods.bas");}while(r); -S_37051:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_R,qbs_new_txt_len("Y",1))))||new_error){ -if(qbevent){evnt(26070,580,"ide_methods.bas");if(r)goto S_37051;} -do{ -sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("undo2.bin",9)), 2 ,NULL,NULL, 150 ,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,582,"ide_methods.bas");}while(r); -S_37053:; -if ((func_lof( 150 ))||new_error){ -if(qbevent){evnt(26070,583,"ide_methods.bas");if(r)goto S_37053;} -do{ -*__LONG_IDEUNSAVED= 1 ; -if(!qbevent)break;evnt(26070,584,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_H,func_space( 12 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,585,"ide_methods.bas");}while(r); -do{ -sub_get2( 150 ,NULL,_FUNC_IDE2_STRING_H,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,585,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_P1=string2l(func_mid(_FUNC_IDE2_STRING_H, 1 , 4 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,585,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_P2=string2l(func_mid(_FUNC_IDE2_STRING_H, 5 , 4 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,585,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_PLAST=string2l(func_mid(_FUNC_IDE2_STRING_H, 9 , 4 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,585,"ide_methods.bas");}while(r); -do{ -sub_seek( 150 ,*_FUNC_IDE2_LONG_P2); -if(!qbevent)break;evnt(26070,587,"ide_methods.bas");}while(r); -do{ -sub_get( 150 ,NULL,byte_element((uint64)_FUNC_IDE2_LONG_L,4,byte_element_4013),0); -if(!qbevent)break;evnt(26070,588,"ide_methods.bas");}while(r); -do{ -sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDESX,4,byte_element_4014),0); -if(!qbevent)break;evnt(26070,589,"ide_methods.bas");}while(r); -do{ -sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDESY,4,byte_element_4015),0); -if(!qbevent)break;evnt(26070,589,"ide_methods.bas");}while(r); -do{ -sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDECX,4,byte_element_4016),0); -if(!qbevent)break;evnt(26070,590,"ide_methods.bas");}while(r); -do{ -sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDECY,4,byte_element_4017),0); -if(!qbevent)break;evnt(26070,590,"ide_methods.bas");}while(r); -do{ -sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDESELECT,4,byte_element_4018),0); -if(!qbevent)break;evnt(26070,591,"ide_methods.bas");}while(r); -do{ -sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDESELECTX1,4,byte_element_4019),0); -if(!qbevent)break;evnt(26070,591,"ide_methods.bas");}while(r); -do{ -sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDESELECTY1,4,byte_element_4020),0); -if(!qbevent)break;evnt(26070,591,"ide_methods.bas");}while(r); -do{ -sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDEN,4,byte_element_4021),0); -if(!qbevent)break;evnt(26070,592,"ide_methods.bas");}while(r); -do{ -sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDEL,4,byte_element_4022),0); -if(!qbevent)break;evnt(26070,593,"ide_methods.bas");}while(r); -do{ -sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDELI,4,byte_element_4023),0); -if(!qbevent)break;evnt(26070,594,"ide_methods.bas");}while(r); -do{ -sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDEBMKN,4,byte_element_4024),0); -if(!qbevent)break;evnt(26070,596,"ide_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26070,553,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_BACKUPTYPEDEFINITIONS,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,554,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_WATCHPOINTLIST,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,555,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_CALLSTACKLIST,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,556,"ide_methods.bas");}while(r); +do{ +*__LONG_CALLSTACKLENGTH= 0 ; +if(!qbevent)break;evnt(26070,556,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEUNSAVED= -1 ; +if(!qbevent)break;evnt(26070,557,"ide_methods.bas");}while(r); +do{ +*__INTEGER_IDECHANGEMADE= 1 ; +if(!qbevent)break;evnt(26070,558,"ide_methods.bas");}while(r); +do{ +*__BYTE_STARTPAUSEDPENDING= 0 ; +if(!qbevent)break;evnt(26070,559,"ide_methods.bas");}while(r); +LABEL_REDRAWEVERYTHING:; +if(qbevent){evnt(26070,561,"ide_methods.bas");r=0;} +do{ +*__LONG_IDESELECT= 0 ; +if(!qbevent)break;evnt(26070,562,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESX= 1 ; +if(!qbevent)break;evnt(26070,563,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESY= 1 ; +if(!qbevent)break;evnt(26070,564,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECX= 1 ; +if(!qbevent)break;evnt(26070,565,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECY= 1 ; +if(!qbevent)break;evnt(26070,566,"ide_methods.bas");}while(r); +LABEL_REDRAWEVERYTHING2:; +if(qbevent){evnt(26070,568,"ide_methods.bas");r=0;} +do{ +return_point[next_return_point++]=13; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_REDRAWITALL; +RETURN_13:; +if(!qbevent)break;evnt(26070,569,"ide_methods.bas");}while(r); +S_37042:; +if ((-(*_FUNC_IDE2_LONG_RETVAL== 1 ))||new_error){ +if(qbevent){evnt(26070,571,"ide_methods.bas");if(r)goto S_37042;} +do{ +goto LABEL_SKIPLOAD; +if(!qbevent)break;evnt(26070,571,"ide_methods.bas");}while(r); +} +do{ +sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("autosave.bin",12)), 2 ,NULL,NULL, 150 ,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,575,"ide_methods.bas");}while(r); +S_37046:; +if ((-(func_lof( 150 )== 1 ))||new_error){ +if(qbevent){evnt(26070,576,"ide_methods.bas");if(r)goto S_37046;} +do{ +sub_close( 150 ,1); +if(!qbevent)break;evnt(26070,577,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_R,FUNC_IDERESTORE()); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,578,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,579,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,579,"ide_methods.bas");}while(r); +S_37051:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_R,qbs_new_txt_len("Y",1))))||new_error){ +if(qbevent){evnt(26070,580,"ide_methods.bas");if(r)goto S_37051;} +do{ +sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("undo2.bin",9)), 2 ,NULL,NULL, 150 ,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,582,"ide_methods.bas");}while(r); +S_37053:; +if ((func_lof( 150 ))||new_error){ +if(qbevent){evnt(26070,583,"ide_methods.bas");if(r)goto S_37053;} +do{ +*__LONG_IDEUNSAVED= 1 ; +if(!qbevent)break;evnt(26070,584,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_H,func_space( 12 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,585,"ide_methods.bas");}while(r); +do{ +sub_get2( 150 ,NULL,_FUNC_IDE2_STRING_H,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,585,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_P1=string2l(func_mid(_FUNC_IDE2_STRING_H, 1 , 4 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,585,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_P2=string2l(func_mid(_FUNC_IDE2_STRING_H, 5 , 4 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,585,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_PLAST=string2l(func_mid(_FUNC_IDE2_STRING_H, 9 , 4 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,585,"ide_methods.bas");}while(r); +do{ +sub_seek( 150 ,*_FUNC_IDE2_LONG_P2); +if(!qbevent)break;evnt(26070,587,"ide_methods.bas");}while(r); +do{ +sub_get( 150 ,NULL,byte_element((uint64)_FUNC_IDE2_LONG_L,4,byte_element_4013),0); +if(!qbevent)break;evnt(26070,588,"ide_methods.bas");}while(r); +do{ +sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDESX,4,byte_element_4014),0); +if(!qbevent)break;evnt(26070,589,"ide_methods.bas");}while(r); +do{ +sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDESY,4,byte_element_4015),0); +if(!qbevent)break;evnt(26070,589,"ide_methods.bas");}while(r); +do{ +sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDECX,4,byte_element_4016),0); +if(!qbevent)break;evnt(26070,590,"ide_methods.bas");}while(r); +do{ +sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDECY,4,byte_element_4017),0); +if(!qbevent)break;evnt(26070,590,"ide_methods.bas");}while(r); +do{ +sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDESELECT,4,byte_element_4018),0); +if(!qbevent)break;evnt(26070,591,"ide_methods.bas");}while(r); +do{ +sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDESELECTX1,4,byte_element_4019),0); +if(!qbevent)break;evnt(26070,591,"ide_methods.bas");}while(r); +do{ +sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDESELECTY1,4,byte_element_4020),0); +if(!qbevent)break;evnt(26070,591,"ide_methods.bas");}while(r); +do{ +sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDEN,4,byte_element_4021),0); +if(!qbevent)break;evnt(26070,592,"ide_methods.bas");}while(r); +do{ +sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDEL,4,byte_element_4022),0); +if(!qbevent)break;evnt(26070,593,"ide_methods.bas");}while(r); +do{ +sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDELI,4,byte_element_4023),0); +if(!qbevent)break;evnt(26070,594,"ide_methods.bas");}while(r); +do{ +sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDEBMKN,4,byte_element_4024),0); +if(!qbevent)break;evnt(26070,596,"ide_methods.bas");}while(r); +do{ if (__ARRAY_UDT_IDEBMK[2]&2){ error(10); @@ -125758,315 +125758,315 @@ __ARRAY_UDT_IDEBMK[0]=(ptrszint)calloc(__ARRAY_UDT_IDEBMK[5]*128/8+1,1); if (!__ARRAY_UDT_IDEBMK[0]) error(257); } __ARRAY_UDT_IDEBMK[2]|=1; -} -if(!qbevent)break;evnt(26070,596,"ide_methods.bas");}while(r); -S_37074:; -fornext_value4026= 1 ; -fornext_finalvalue4026=*__LONG_IDEBMKN; -fornext_step4026= 1 ; -if (fornext_step4026<0) fornext_step_negative4026=1; else fornext_step_negative4026=0; -if (new_error) goto fornext_error4026; -goto fornext_entrylabel4026; -while(1){ -fornext_value4026=fornext_step4026+(*_FUNC_IDE2_LONG_BI); -fornext_entrylabel4026: -*_FUNC_IDE2_LONG_BI=fornext_value4026; -if (fornext_step_negative4026){ -if (fornext_value4026fornext_finalvalue4026) break; -} -fornext_error4026:; -if(qbevent){evnt(26070,597,"ide_methods.bas");if(r)goto S_37074;} -do{ -sub_get( 150 ,NULL,byte_element((uint64)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_FUNC_IDE2_LONG_BI)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16)),4,byte_element_4027),0); -if(!qbevent)break;evnt(26070,597,"ide_methods.bas");}while(r); -do{ -sub_get( 150 ,NULL,byte_element((uint64)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_FUNC_IDE2_LONG_BI)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16+4)),4,byte_element_4028),0); -if(!qbevent)break;evnt(26070,597,"ide_methods.bas");}while(r); -fornext_continue_4025:; -} -fornext_exit_4025:; -do{ -sub_get( 150 ,NULL,byte_element((uint64)_FUNC_IDE2_LONG_X,4,byte_element_4029),0); -if(!qbevent)break;evnt(26070,598,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_IDET,func_space(*_FUNC_IDE2_LONG_X)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,598,"ide_methods.bas");}while(r); -do{ -sub_get2( 150 ,NULL,__STRING_IDET,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,598,"ide_methods.bas");}while(r); -} -do{ -sub_close( 150 ,1); -if(!qbevent)break;evnt(26070,600,"ide_methods.bas");}while(r); -} -}else{ -do{ -sub_close( 150 ,1); -if(!qbevent)break;evnt(26070,603,"ide_methods.bas");}while(r); -} -S_37087:; -if ((-(*__LONG_IDEUNSAVED!= 1 ))||new_error){ -if(qbevent){evnt(26070,606,"ide_methods.bas");if(r)goto S_37087;} -S_37088:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_IDE2_STRING_C, 1 ),func_chr( 1 ))))||new_error){ -if(qbevent){evnt(26070,607,"ide_methods.bas");if(r)goto S_37088;} -do{ -qbs_set(_FUNC_IDE2_STRING_F,qbs_right(_FUNC_IDE2_STRING_C,_FUNC_IDE2_STRING_C->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,608,"ide_methods.bas");}while(r); -S_37090:; -if ((qbs_cleanup(qbs_tmp_base,-(FUNC_FILEHASEXTENSION(_FUNC_IDE2_STRING_F)== 0 )))||new_error){ -if(qbevent){evnt(26070,609,"ide_methods.bas");if(r)goto S_37090;} -do{ -qbs_set(_FUNC_IDE2_STRING_F,qbs_add(_FUNC_IDE2_STRING_F,qbs_new_txt_len(".bas",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,609,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDE2_STRING_PATH,FUNC_IDEZGETFILEPATH(__STRING_IDEROOT,_FUNC_IDE2_STRING_F)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,610,"ide_methods.bas");}while(r); -S_37094:; -if ((-(*__LONG_IDEERROR> 1 ))||new_error){ -if(qbevent){evnt(26070,611,"ide_methods.bas");if(r)goto S_37094;} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,611,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,611,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDEERRORMESSAGE; -if(!qbevent)break;evnt(26070,611,"ide_methods.bas");}while(r); -} -do{ -*__LONG_IDEERROR= 2 ; -if(!qbevent)break;evnt(26070,614,"ide_methods.bas");}while(r); -S_37100:; -if ((qbs_cleanup(qbs_tmp_base,-(func__fileexists(qbs_add(qbs_add(_FUNC_IDE2_STRING_PATH,__STRING1_IDEPATHSEP),_FUNC_IDE2_STRING_F))== 0 )))||new_error){ -if(qbevent){evnt(26070,615,"ide_methods.bas");if(r)goto S_37100;} -do{ -goto LABEL_IDEERRORMESSAGE; -if(!qbevent)break;evnt(26070,615,"ide_methods.bas");}while(r); -} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,616,"ide_methods.bas");}while(r); -S_37104:; -if ((qbs_cleanup(qbs_tmp_base,-(FUNC_BINARYFORMATCHECK(_FUNC_IDE2_STRING_PATH,__STRING1_IDEPATHSEP,_FUNC_IDE2_STRING_F)> 0 )))||new_error){ -if(qbevent){evnt(26070,617,"ide_methods.bas");if(r)goto S_37104;} -do{ -goto LABEL_SKIPLOAD; -if(!qbevent)break;evnt(26070,617,"ide_methods.bas");}while(r); -} -do{ -*__LONG_IDEERROR= 3 ; -if(!qbevent)break;evnt(26070,618,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_IDEPATH,_FUNC_IDE2_STRING_PATH); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,619,"ide_methods.bas");}while(r); -do{ -SUB_LINEINPUT3LOAD(qbs_add(qbs_add(_FUNC_IDE2_STRING_PATH,__STRING1_IDEPATHSEP),_FUNC_IDE2_STRING_F)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,620,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_IDET,func_space(__STRING_LINEINPUT3BUFFER->len* 8 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,621,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I2= 1 ; -if(!qbevent)break;evnt(26070,622,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_N= 0 ; -if(!qbevent)break;evnt(26070,623,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_CHRTAB,func_chr( 9 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,624,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_SPACE1,qbs_new_txt_len(" ",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,625,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_SPACE2,qbs_new_txt_len(" ",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,625,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_SPACE3,qbs_new_txt_len(" ",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,625,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_SPACE4,qbs_new_txt_len(" ",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,625,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_CHR7,func_chr( 7 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,626,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_CHR11,func_chr( 11 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,626,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_CHR12,func_chr( 12 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,626,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_CHR28,func_chr( 28 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,626,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_CHR29,func_chr( 29 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,626,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_CHR30,func_chr( 30 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,626,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_CHR31,func_chr( 31 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,626,"ide_methods.bas");}while(r); -S_37125:; -do{ -if(qbevent){evnt(26070,627,"ide_methods.bas");if(r)goto S_37125;} -do{ -qbs_set(_FUNC_IDE2_STRING_A,FUNC_LINEINPUT3()); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,628,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_L=_FUNC_IDE2_STRING_A->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,629,"ide_methods.bas");}while(r); -S_37128:; -if ((*_FUNC_IDE2_LONG_L)||new_error){ -if(qbevent){evnt(26070,630,"ide_methods.bas");if(r)goto S_37128;} -do{ -*_FUNC_IDE2_LONG_ASCA=qbs_asc(_FUNC_IDE2_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,630,"ide_methods.bas");}while(r); -}else{ -do{ -*_FUNC_IDE2_LONG_ASCA= -1 ; -if(!qbevent)break;evnt(26070,630,"ide_methods.bas");}while(r); -} -S_37133:; -if ((-(*_FUNC_IDE2_LONG_ASCA!= 13 ))||new_error){ -if(qbevent){evnt(26070,631,"ide_methods.bas");if(r)goto S_37133;} -S_37134:; -if ((-(*_FUNC_IDE2_LONG_ASCA!= -1 ))||new_error){ -if(qbevent){evnt(26070,632,"ide_methods.bas");if(r)goto S_37134;} -LABEL_IDEOPENFIXTABSX:; -if(qbevent){evnt(26070,634,"ide_methods.bas");r=0;} -do{ -*_FUNC_IDE2_LONG_X=func_instr(NULL,_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_CHRTAB,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,635,"ide_methods.bas");}while(r); -S_37136:; -if ((*_FUNC_IDE2_LONG_X)||new_error){ -if(qbevent){evnt(26070,636,"ide_methods.bas");if(r)goto S_37136;} -do{ -*_FUNC_IDE2_LONG_X2=(*_FUNC_IDE2_LONG_X- 1 )% 4 ; -if(!qbevent)break;evnt(26070,637,"ide_methods.bas");}while(r); -S_37138:; -if ((-(*_FUNC_IDE2_LONG_X2== 0 ))||new_error){ -if(qbevent){evnt(26070,638,"ide_methods.bas");if(r)goto S_37138;} -do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(qbs_left(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_X- 1 ),_FUNC_IDE2_STRING_SPACE4),qbs_right(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_L-*_FUNC_IDE2_LONG_X))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,638,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_L=*_FUNC_IDE2_LONG_L+ 3 ; -if(!qbevent)break;evnt(26070,638,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDEOPENFIXTABSX; -if(!qbevent)break;evnt(26070,638,"ide_methods.bas");}while(r); -} -S_37143:; -if ((-(*_FUNC_IDE2_LONG_X2== 1 ))||new_error){ -if(qbevent){evnt(26070,639,"ide_methods.bas");if(r)goto S_37143;} -do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(qbs_left(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_X- 1 ),_FUNC_IDE2_STRING_SPACE3),qbs_right(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_L-*_FUNC_IDE2_LONG_X))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,639,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_L=*_FUNC_IDE2_LONG_L+ 2 ; -if(!qbevent)break;evnt(26070,639,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDEOPENFIXTABSX; -if(!qbevent)break;evnt(26070,639,"ide_methods.bas");}while(r); -} -S_37148:; -if ((-(*_FUNC_IDE2_LONG_X2== 2 ))||new_error){ -if(qbevent){evnt(26070,640,"ide_methods.bas");if(r)goto S_37148;} -do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(qbs_left(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_X- 1 ),_FUNC_IDE2_STRING_SPACE2),qbs_right(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_L-*_FUNC_IDE2_LONG_X))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,640,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_L=*_FUNC_IDE2_LONG_L+ 1 ; -if(!qbevent)break;evnt(26070,640,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDEOPENFIXTABSX; -if(!qbevent)break;evnt(26070,640,"ide_methods.bas");}while(r); -} -S_37153:; -if ((-(*_FUNC_IDE2_LONG_X2== 3 ))||new_error){ -if(qbevent){evnt(26070,641,"ide_methods.bas");if(r)goto S_37153;} -do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(qbs_left(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_X- 1 ),_FUNC_IDE2_STRING_SPACE1),qbs_right(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_L-*_FUNC_IDE2_LONG_X))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,641,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDEOPENFIXTABSX; -if(!qbevent)break;evnt(26070,641,"ide_methods.bas");}while(r); -} -} -} -do{ -sub_mid(__STRING_IDET,*_FUNC_IDE2_LONG_I2,*_FUNC_IDE2_LONG_L+ 8 ,qbs_add(qbs_add(l2string(*_FUNC_IDE2_LONG_L),_FUNC_IDE2_STRING_A),l2string(*_FUNC_IDE2_LONG_L)),1); -if(!qbevent)break;evnt(26070,644,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I2=*_FUNC_IDE2_LONG_I2+*_FUNC_IDE2_LONG_L+ 8 ; -if(!qbevent)break;evnt(26070,644,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_N=*_FUNC_IDE2_LONG_N+ 1 ; -if(!qbevent)break;evnt(26070,644,"ide_methods.bas");}while(r); -} -S_37163:; -dl_continue_4032:; -}while((!(-(*_FUNC_IDE2_LONG_ASCA== 13 )))&&(!new_error)); -dl_exit_4032:; -if(qbevent){evnt(26070,646,"ide_methods.bas");if(r)goto S_37163;} -do{ -qbs_set(__STRING_LINEINPUT3BUFFER,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,647,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEN=*_FUNC_IDE2_LONG_N; -if(!qbevent)break;evnt(26070,648,"ide_methods.bas");}while(r); -S_37166:; -if ((-(*_FUNC_IDE2_LONG_N== 0 ))||new_error){ -if(qbevent){evnt(26070,648,"ide_methods.bas");if(r)goto S_37166;} -do{ -qbs_set(__STRING_IDET,qbs_add(l2string( 0 ),l2string( 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,648,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEN= 1 ; -if(!qbevent)break;evnt(26070,648,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(__STRING_IDET,qbs_left(__STRING_IDET,*_FUNC_IDE2_LONG_I2- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,648,"ide_methods.bas");}while(r); -} -do{ +} +if(!qbevent)break;evnt(26070,596,"ide_methods.bas");}while(r); +S_37074:; +fornext_value4026= 1 ; +fornext_finalvalue4026=*__LONG_IDEBMKN; +fornext_step4026= 1 ; +if (fornext_step4026<0) fornext_step_negative4026=1; else fornext_step_negative4026=0; +if (new_error) goto fornext_error4026; +goto fornext_entrylabel4026; +while(1){ +fornext_value4026=fornext_step4026+(*_FUNC_IDE2_LONG_BI); +fornext_entrylabel4026: +*_FUNC_IDE2_LONG_BI=fornext_value4026; +if (fornext_step_negative4026){ +if (fornext_value4026fornext_finalvalue4026) break; +} +fornext_error4026:; +if(qbevent){evnt(26070,597,"ide_methods.bas");if(r)goto S_37074;} +do{ +sub_get( 150 ,NULL,byte_element((uint64)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_FUNC_IDE2_LONG_BI)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16)),4,byte_element_4027),0); +if(!qbevent)break;evnt(26070,597,"ide_methods.bas");}while(r); +do{ +sub_get( 150 ,NULL,byte_element((uint64)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_FUNC_IDE2_LONG_BI)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16+4)),4,byte_element_4028),0); +if(!qbevent)break;evnt(26070,597,"ide_methods.bas");}while(r); +fornext_continue_4025:; +} +fornext_exit_4025:; +do{ +sub_get( 150 ,NULL,byte_element((uint64)_FUNC_IDE2_LONG_X,4,byte_element_4029),0); +if(!qbevent)break;evnt(26070,598,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_IDET,func_space(*_FUNC_IDE2_LONG_X)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,598,"ide_methods.bas");}while(r); +do{ +sub_get2( 150 ,NULL,__STRING_IDET,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,598,"ide_methods.bas");}while(r); +} +do{ +sub_close( 150 ,1); +if(!qbevent)break;evnt(26070,600,"ide_methods.bas");}while(r); +} +}else{ +do{ +sub_close( 150 ,1); +if(!qbevent)break;evnt(26070,603,"ide_methods.bas");}while(r); +} +S_37087:; +if ((-(*__LONG_IDEUNSAVED!= 1 ))||new_error){ +if(qbevent){evnt(26070,606,"ide_methods.bas");if(r)goto S_37087;} +S_37088:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_IDE2_STRING_C, 1 ),func_chr( 1 ))))||new_error){ +if(qbevent){evnt(26070,607,"ide_methods.bas");if(r)goto S_37088;} +do{ +qbs_set(_FUNC_IDE2_STRING_F,qbs_right(_FUNC_IDE2_STRING_C,_FUNC_IDE2_STRING_C->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,608,"ide_methods.bas");}while(r); +S_37090:; +if ((qbs_cleanup(qbs_tmp_base,-(FUNC_FILEHASEXTENSION(_FUNC_IDE2_STRING_F)== 0 )))||new_error){ +if(qbevent){evnt(26070,609,"ide_methods.bas");if(r)goto S_37090;} +do{ +qbs_set(_FUNC_IDE2_STRING_F,qbs_add(_FUNC_IDE2_STRING_F,qbs_new_txt_len(".bas",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,609,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDE2_STRING_PATH,FUNC_IDEZGETFILEPATH(__STRING_IDEROOT,_FUNC_IDE2_STRING_F)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,610,"ide_methods.bas");}while(r); +S_37094:; +if ((-(*__LONG_IDEERROR> 1 ))||new_error){ +if(qbevent){evnt(26070,611,"ide_methods.bas");if(r)goto S_37094;} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,611,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,611,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDEERRORMESSAGE; +if(!qbevent)break;evnt(26070,611,"ide_methods.bas");}while(r); +} +do{ +*__LONG_IDEERROR= 2 ; +if(!qbevent)break;evnt(26070,614,"ide_methods.bas");}while(r); +S_37100:; +if ((qbs_cleanup(qbs_tmp_base,-(func__fileexists(qbs_add(qbs_add(_FUNC_IDE2_STRING_PATH,__STRING1_IDEPATHSEP),_FUNC_IDE2_STRING_F))== 0 )))||new_error){ +if(qbevent){evnt(26070,615,"ide_methods.bas");if(r)goto S_37100;} +do{ +goto LABEL_IDEERRORMESSAGE; +if(!qbevent)break;evnt(26070,615,"ide_methods.bas");}while(r); +} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,616,"ide_methods.bas");}while(r); +S_37104:; +if ((qbs_cleanup(qbs_tmp_base,-(FUNC_BINARYFORMATCHECK(_FUNC_IDE2_STRING_PATH,__STRING1_IDEPATHSEP,_FUNC_IDE2_STRING_F)> 0 )))||new_error){ +if(qbevent){evnt(26070,617,"ide_methods.bas");if(r)goto S_37104;} +do{ +goto LABEL_SKIPLOAD; +if(!qbevent)break;evnt(26070,617,"ide_methods.bas");}while(r); +} +do{ +*__LONG_IDEERROR= 3 ; +if(!qbevent)break;evnt(26070,618,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_IDEPATH,_FUNC_IDE2_STRING_PATH); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,619,"ide_methods.bas");}while(r); +do{ +SUB_LINEINPUT3LOAD(qbs_add(qbs_add(_FUNC_IDE2_STRING_PATH,__STRING1_IDEPATHSEP),_FUNC_IDE2_STRING_F)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,620,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_IDET,func_space(__STRING_LINEINPUT3BUFFER->len* 8 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,621,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I2= 1 ; +if(!qbevent)break;evnt(26070,622,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_N= 0 ; +if(!qbevent)break;evnt(26070,623,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_CHRTAB,func_chr( 9 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,624,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_SPACE1,qbs_new_txt_len(" ",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,625,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_SPACE2,qbs_new_txt_len(" ",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,625,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_SPACE3,qbs_new_txt_len(" ",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,625,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_SPACE4,qbs_new_txt_len(" ",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,625,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_CHR7,func_chr( 7 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,626,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_CHR11,func_chr( 11 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,626,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_CHR12,func_chr( 12 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,626,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_CHR28,func_chr( 28 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,626,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_CHR29,func_chr( 29 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,626,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_CHR30,func_chr( 30 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,626,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_CHR31,func_chr( 31 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,626,"ide_methods.bas");}while(r); +S_37125:; +do{ +if(qbevent){evnt(26070,627,"ide_methods.bas");if(r)goto S_37125;} +do{ +qbs_set(_FUNC_IDE2_STRING_A,FUNC_LINEINPUT3()); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,628,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_L=_FUNC_IDE2_STRING_A->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,629,"ide_methods.bas");}while(r); +S_37128:; +if ((*_FUNC_IDE2_LONG_L)||new_error){ +if(qbevent){evnt(26070,630,"ide_methods.bas");if(r)goto S_37128;} +do{ +*_FUNC_IDE2_LONG_ASCA=qbs_asc(_FUNC_IDE2_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,630,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_IDE2_LONG_ASCA= -1 ; +if(!qbevent)break;evnt(26070,630,"ide_methods.bas");}while(r); +} +S_37133:; +if ((-(*_FUNC_IDE2_LONG_ASCA!= 13 ))||new_error){ +if(qbevent){evnt(26070,631,"ide_methods.bas");if(r)goto S_37133;} +S_37134:; +if ((-(*_FUNC_IDE2_LONG_ASCA!= -1 ))||new_error){ +if(qbevent){evnt(26070,632,"ide_methods.bas");if(r)goto S_37134;} +LABEL_IDEOPENFIXTABSX:; +if(qbevent){evnt(26070,634,"ide_methods.bas");r=0;} +do{ +*_FUNC_IDE2_LONG_X=func_instr(NULL,_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_CHRTAB,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,635,"ide_methods.bas");}while(r); +S_37136:; +if ((*_FUNC_IDE2_LONG_X)||new_error){ +if(qbevent){evnt(26070,636,"ide_methods.bas");if(r)goto S_37136;} +do{ +*_FUNC_IDE2_LONG_X2=(*_FUNC_IDE2_LONG_X- 1 )% 4 ; +if(!qbevent)break;evnt(26070,637,"ide_methods.bas");}while(r); +S_37138:; +if ((-(*_FUNC_IDE2_LONG_X2== 0 ))||new_error){ +if(qbevent){evnt(26070,638,"ide_methods.bas");if(r)goto S_37138;} +do{ +qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(qbs_left(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_X- 1 ),_FUNC_IDE2_STRING_SPACE4),qbs_right(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_L-*_FUNC_IDE2_LONG_X))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,638,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_L=*_FUNC_IDE2_LONG_L+ 3 ; +if(!qbevent)break;evnt(26070,638,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDEOPENFIXTABSX; +if(!qbevent)break;evnt(26070,638,"ide_methods.bas");}while(r); +} +S_37143:; +if ((-(*_FUNC_IDE2_LONG_X2== 1 ))||new_error){ +if(qbevent){evnt(26070,639,"ide_methods.bas");if(r)goto S_37143;} +do{ +qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(qbs_left(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_X- 1 ),_FUNC_IDE2_STRING_SPACE3),qbs_right(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_L-*_FUNC_IDE2_LONG_X))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,639,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_L=*_FUNC_IDE2_LONG_L+ 2 ; +if(!qbevent)break;evnt(26070,639,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDEOPENFIXTABSX; +if(!qbevent)break;evnt(26070,639,"ide_methods.bas");}while(r); +} +S_37148:; +if ((-(*_FUNC_IDE2_LONG_X2== 2 ))||new_error){ +if(qbevent){evnt(26070,640,"ide_methods.bas");if(r)goto S_37148;} +do{ +qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(qbs_left(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_X- 1 ),_FUNC_IDE2_STRING_SPACE2),qbs_right(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_L-*_FUNC_IDE2_LONG_X))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,640,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_L=*_FUNC_IDE2_LONG_L+ 1 ; +if(!qbevent)break;evnt(26070,640,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDEOPENFIXTABSX; +if(!qbevent)break;evnt(26070,640,"ide_methods.bas");}while(r); +} +S_37153:; +if ((-(*_FUNC_IDE2_LONG_X2== 3 ))||new_error){ +if(qbevent){evnt(26070,641,"ide_methods.bas");if(r)goto S_37153;} +do{ +qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(qbs_left(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_X- 1 ),_FUNC_IDE2_STRING_SPACE1),qbs_right(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_L-*_FUNC_IDE2_LONG_X))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,641,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDEOPENFIXTABSX; +if(!qbevent)break;evnt(26070,641,"ide_methods.bas");}while(r); +} +} +} +do{ +sub_mid(__STRING_IDET,*_FUNC_IDE2_LONG_I2,*_FUNC_IDE2_LONG_L+ 8 ,qbs_add(qbs_add(l2string(*_FUNC_IDE2_LONG_L),_FUNC_IDE2_STRING_A),l2string(*_FUNC_IDE2_LONG_L)),1); +if(!qbevent)break;evnt(26070,644,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I2=*_FUNC_IDE2_LONG_I2+*_FUNC_IDE2_LONG_L+ 8 ; +if(!qbevent)break;evnt(26070,644,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_N=*_FUNC_IDE2_LONG_N+ 1 ; +if(!qbevent)break;evnt(26070,644,"ide_methods.bas");}while(r); +} +S_37163:; +dl_continue_4032:; +}while((!(-(*_FUNC_IDE2_LONG_ASCA== 13 )))&&(!new_error)); +dl_exit_4032:; +if(qbevent){evnt(26070,646,"ide_methods.bas");if(r)goto S_37163;} +do{ +qbs_set(__STRING_LINEINPUT3BUFFER,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,647,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEN=*_FUNC_IDE2_LONG_N; +if(!qbevent)break;evnt(26070,648,"ide_methods.bas");}while(r); +S_37166:; +if ((-(*_FUNC_IDE2_LONG_N== 0 ))||new_error){ +if(qbevent){evnt(26070,648,"ide_methods.bas");if(r)goto S_37166;} +do{ +qbs_set(__STRING_IDET,qbs_add(l2string( 0 ),l2string( 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,648,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEN= 1 ; +if(!qbevent)break;evnt(26070,648,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(__STRING_IDET,qbs_left(__STRING_IDET,*_FUNC_IDE2_LONG_I2- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,648,"ide_methods.bas");}while(r); +} +do{ if (__ARRAY_BYTE_IDEBREAKPOINTS[2]&2){ error(10); @@ -126090,9 +126090,9 @@ __ARRAY_BYTE_IDEBREAKPOINTS[0]=(ptrszint)calloc(__ARRAY_BYTE_IDEBREAKPOINTS[5]*1 if (!__ARRAY_BYTE_IDEBREAKPOINTS[0]) error(257); } __ARRAY_BYTE_IDEBREAKPOINTS[2]|=1; -} -if(!qbevent)break;evnt(26070,649,"ide_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26070,649,"ide_methods.bas");}while(r); +do{ if (__ARRAY_BYTE_IDESKIPLINES[2]&2){ error(10); @@ -126116,17 +126116,17 @@ __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(26070,650,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_VARIABLEWATCHLIST,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,651,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_BACKUPVARIABLEWATCHLIST,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,652,"ide_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26070,650,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_VARIABLEWATCHLIST,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,651,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_BACKUPVARIABLEWATCHLIST,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,652,"ide_methods.bas");}while(r); +do{ if (__ARRAY_UDT_BACKUPUSEDVARIABLELIST[2]&2){ error(10); @@ -126171,422 +126171,422 @@ while(tmp_long--){ *(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 96)=qbs_new(0,0); *(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 104)=qbs_new(0,0); *(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 112)=qbs_new(0,0);} -} -if(!qbevent)break;evnt(26070,652,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_BACKUPTYPEDEFINITIONS,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,653,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_WATCHPOINTLIST,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,654,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_CALLSTACKLIST,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,655,"ide_methods.bas");}while(r); -do{ -*__LONG_CALLSTACKLENGTH= 0 ; -if(!qbevent)break;evnt(26070,655,"ide_methods.bas");}while(r); -S_37181:; -if (((-(*__LONG_IDESTARTATLINE> 0 ))&(-(*__LONG_IDESTARTATLINE<=*__LONG_IDEN)))||new_error){ -if(qbevent){evnt(26070,656,"ide_methods.bas");if(r)goto S_37181;} -do{ -*__LONG_IDECY=*__LONG_IDESTARTATLINE; -if(!qbevent)break;evnt(26070,657,"ide_methods.bas");}while(r); -S_37183:; -if ((-((*__LONG_IDECY- 10 )>=( 1 )))||new_error){ -if(qbevent){evnt(26070,658,"ide_methods.bas");if(r)goto S_37183;} -do{ -*__LONG_IDESY=*__LONG_IDECY- 10 ; -if(!qbevent)break;evnt(26070,658,"ide_methods.bas");}while(r); -} -do{ -*__LONG_IDEGOTOBOX_LASTLINENUM=*__LONG_IDESTARTATLINE; -if(!qbevent)break;evnt(26070,659,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESTARTATLINE= 0 ; -if(!qbevent)break;evnt(26070,660,"ide_methods.bas");}while(r); -} -do{ -*__LONG_IDEBMKN= 0 ; -if(!qbevent)break;evnt(26070,662,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEERROR= 1 ; -if(!qbevent)break;evnt(26070,663,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_IDEPROGNAME,_FUNC_IDE2_STRING_F); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,664,"ide_methods.bas");}while(r); -do{ -sub__title(qbs_add(qbs_add(__STRING_IDEPROGNAME,qbs_new_txt_len(" - ",3)),__STRING_WINDOWTITLE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,664,"ide_methods.bas");}while(r); -do{ -SUB_IDEIMPORTBOOKMARKS(qbs_add(qbs_add(__STRING_IDEPATH,__STRING1_IDEPATHSEP),__STRING_IDEPROGNAME)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,665,"ide_methods.bas");}while(r); -do{ -SUB_IDEADDRECENT(qbs_add(qbs_add(__STRING_IDEPATH,__STRING1_IDEPATHSEP),__STRING_IDEPROGNAME)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,666,"ide_methods.bas");}while(r); -} -} -LABEL_SKIPLOAD:; -if(qbevent){evnt(26070,671,"ide_methods.bas");r=0;} -} -S_37198:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_C,func_chr( 3 ))))||new_error){ -if(qbevent){evnt(26070,685,"ide_methods.bas");if(r)goto S_37198;} -do{ -*_FUNC_IDE2_LONG_SKIPDISPLAY= 1 ; -if(!qbevent)break;evnt(26070,686,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_SENDNEXTLINE= 1 ; -if(!qbevent)break;evnt(26070,687,"ide_methods.bas");}while(r); -S_37201:; -if (((-(*__LONG_IDEAUTOLAYOUT== 0 ))&(-(*__LONG_IDEAUTOINDENT== 0 )))||new_error){ -if(qbevent){evnt(26070,691,"ide_methods.bas");if(r)goto S_37201;} -do{ -qbs_set(__STRING_LAYOUT,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,693,"ide_methods.bas");}while(r); -do{ -*__LONG_IDELAYOUTALLOW= 0 ; -if(!qbevent)break;evnt(26070,694,"ide_methods.bas");}while(r); -}else{ -S_37205:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ -if(qbevent){evnt(26070,698,"ide_methods.bas");if(r)goto S_37205;} -S_37206:; -fornext_value4036= 1 ; -fornext_finalvalue4036=__STRING_LAYOUT->len; -fornext_step4036= 1 ; -if (fornext_step4036<0) fornext_step_negative4036=1; else fornext_step_negative4036=0; -if (new_error) goto fornext_error4036; -goto fornext_entrylabel4036; -while(1){ -fornext_value4036=fornext_step4036+(*_FUNC_IDE2_LONG_I); -fornext_entrylabel4036: -*_FUNC_IDE2_LONG_I=fornext_value4036; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative4036){ -if (fornext_value4036fornext_finalvalue4036) break; -} -fornext_error4036:; -if(qbevent){evnt(26070,701,"ide_methods.bas");if(r)goto S_37206;} -S_37207:; -if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(__STRING_LAYOUT,*_FUNC_IDE2_LONG_I)!= 32 ))|(-(*_FUNC_IDE2_LONG_I==__STRING_LAYOUT->len))))||new_error){ -if(qbevent){evnt(26070,702,"ide_methods.bas");if(r)goto S_37207;} -do{ -*_FUNC_IDE2_LONG_INDENT=*_FUNC_IDE2_LONG_I- 1 ; -if(!qbevent)break;evnt(26070,703,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_LAYOUT,qbs_right(__STRING_LAYOUT,__STRING_LAYOUT->len-*_FUNC_IDE2_LONG_I+ 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,704,"ide_methods.bas");}while(r); -do{ -goto fornext_exit_4035; -if(!qbevent)break;evnt(26070,705,"ide_methods.bas");}while(r); -} -fornext_continue_4035:; -} -fornext_exit_4035:; -S_37213:; -if ((*__LONG_IDEAUTOLAYOUT)||new_error){ -if(qbevent){evnt(26070,709,"ide_methods.bas");if(r)goto S_37213;} -LABEL_SPACELAYOUT:; -if(qbevent){evnt(26070,710,"ide_methods.bas");r=0;} -do{ -*_FUNC_IDE2_LONG_IGNORESP= 0 ; -if(!qbevent)break;evnt(26070,711,"ide_methods.bas");}while(r); -S_37215:; -fornext_value4041= 1 ; -fornext_finalvalue4041=__STRING_LAYOUT->len; -fornext_step4041= 1 ; -if (fornext_step4041<0) fornext_step_negative4041=1; else fornext_step_negative4041=0; -if (new_error) goto fornext_error4041; -goto fornext_entrylabel4041; -while(1){ -fornext_value4041=fornext_step4041+(*_FUNC_IDE2_LONG_I); -fornext_entrylabel4041: -*_FUNC_IDE2_LONG_I=fornext_value4041; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative4041){ -if (fornext_value4041fornext_finalvalue4041) break; -} -fornext_error4041:; -if(qbevent){evnt(26070,712,"ide_methods.bas");if(r)goto S_37215;} -S_37216:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_LAYOUT,*_FUNC_IDE2_LONG_I)== 34 )))||new_error){ -if(qbevent){evnt(26070,713,"ide_methods.bas");if(r)goto S_37216;} -do{ -*_FUNC_IDE2_LONG_IGNORESP=*_FUNC_IDE2_LONG_IGNORESP+ 1 ; -if(!qbevent)break;evnt(26070,714,"ide_methods.bas");}while(r); -S_37218:; -if ((-(*_FUNC_IDE2_LONG_IGNORESP== 2 ))||new_error){ -if(qbevent){evnt(26070,714,"ide_methods.bas");if(r)goto S_37218;} -do{ -*_FUNC_IDE2_LONG_IGNORESP= 0 ; -if(!qbevent)break;evnt(26070,714,"ide_methods.bas");}while(r); -} -} -S_37222:; -if ((-(*_FUNC_IDE2_LONG_IGNORESP== 0 ))||new_error){ -if(qbevent){evnt(26070,716,"ide_methods.bas");if(r)goto S_37222;} -S_37223:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(__STRING_LAYOUT,*_FUNC_IDE2_LONG_I, 1 ,0|1),__STRING1_SP)))||new_error){ -if(qbevent){evnt(26070,717,"ide_methods.bas");if(r)goto S_37223;} -do{ -sub_mid(__STRING_LAYOUT,*_FUNC_IDE2_LONG_I, 1 ,qbs_new_txt_len(" ",1),1); -if(!qbevent)break;evnt(26070,717,"ide_methods.bas");}while(r); -} -S_37226:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(__STRING_LAYOUT,*_FUNC_IDE2_LONG_I, 1 ,0|1),__STRING1_SP2)))||new_error){ -if(qbevent){evnt(26070,718,"ide_methods.bas");if(r)goto S_37226;} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(qbs_left(__STRING_LAYOUT,*_FUNC_IDE2_LONG_I- 1 ),qbs_right(__STRING_LAYOUT,__STRING_LAYOUT->len-*_FUNC_IDE2_LONG_I))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,718,"ide_methods.bas");}while(r); -do{ -goto LABEL_SPACELAYOUT; -if(!qbevent)break;evnt(26070,718,"ide_methods.bas");}while(r); -} -} -fornext_continue_4040:; -} -fornext_exit_4040:; -} -S_37233:; -if ((-(*__LONG_IDEAUTOINDENT== 0 ))||new_error){ -if(qbevent){evnt(26070,723,"ide_methods.bas");if(r)goto S_37233;} -do{ -qbs_set(_FUNC_IDE2_STRING_A,__STRING_IDECOMPILEDLINE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,726,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_INDENT= 0 ; -if(!qbevent)break;evnt(26070,727,"ide_methods.bas");}while(r); -S_37236:; -fornext_value4045= 1 ; -fornext_finalvalue4045=_FUNC_IDE2_STRING_A->len; -fornext_step4045= 1 ; -if (fornext_step4045<0) fornext_step_negative4045=1; else fornext_step_negative4045=0; -if (new_error) goto fornext_error4045; -goto fornext_entrylabel4045; -while(1){ -fornext_value4045=fornext_step4045+(*_FUNC_IDE2_LONG_I); -fornext_entrylabel4045: -*_FUNC_IDE2_LONG_I=fornext_value4045; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative4045){ -if (fornext_value4045fornext_finalvalue4045) break; -} -fornext_error4045:; -if(qbevent){evnt(26070,728,"ide_methods.bas");if(r)goto S_37236;} -S_37237:; -if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_I)!= 32 ))|(-(*_FUNC_IDE2_LONG_I==_FUNC_IDE2_STRING_A->len))))||new_error){ -if(qbevent){evnt(26070,729,"ide_methods.bas");if(r)goto S_37237;} -do{ -*_FUNC_IDE2_LONG_INDENT=*_FUNC_IDE2_LONG_I- 1 ; -if(!qbevent)break;evnt(26070,730,"ide_methods.bas");}while(r); -do{ -goto fornext_exit_4044; -if(!qbevent)break;evnt(26070,731,"ide_methods.bas");}while(r); -} -fornext_continue_4044:; -} -fornext_exit_4044:; -do{ -qbs_set(_FUNC_IDE2_STRING_INDENT,func_space(*_FUNC_IDE2_LONG_INDENT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,734,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDE2_STRING_INDENT,func_space(*_FUNC_IDE2_LONG_INDENT**__LONG_IDEAUTOINDENTSIZE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,736,"ide_methods.bas");}while(r); -} -S_37246:; -if ((-(*__LONG_IDEAUTOLAYOUT== 0 ))||new_error){ -if(qbevent){evnt(26070,739,"ide_methods.bas");if(r)goto S_37246;} -do{ -qbs_set(_FUNC_IDE2_STRING_A,__STRING_IDECOMPILEDLINE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,741,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_LAYOUT,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,742,"ide_methods.bas");}while(r); -S_37249:; -fornext_value4049= 1 ; -fornext_finalvalue4049=_FUNC_IDE2_STRING_A->len; -fornext_step4049= 1 ; -if (fornext_step4049<0) fornext_step_negative4049=1; else fornext_step_negative4049=0; -if (new_error) goto fornext_error4049; -goto fornext_entrylabel4049; -while(1){ -fornext_value4049=fornext_step4049+(*_FUNC_IDE2_LONG_I); -fornext_entrylabel4049: -*_FUNC_IDE2_LONG_I=fornext_value4049; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative4049){ -if (fornext_value4049fornext_finalvalue4049) break; -} -fornext_error4049:; -if(qbevent){evnt(26070,743,"ide_methods.bas");if(r)goto S_37249;} -S_37250:; -if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_I)!= 32 ))|(-(*_FUNC_IDE2_LONG_I==_FUNC_IDE2_STRING_A->len))))||new_error){ -if(qbevent){evnt(26070,744,"ide_methods.bas");if(r)goto S_37250;} -do{ -qbs_set(__STRING_LAYOUT,qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len-*_FUNC_IDE2_LONG_I+ 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,745,"ide_methods.bas");}while(r); -do{ -goto fornext_exit_4048; -if(!qbevent)break;evnt(26070,746,"ide_methods.bas");}while(r); -} -fornext_continue_4048:; -} -fornext_exit_4048:; -} -do{ -qbs_set(__STRING_LAYOUT,qbs_add(_FUNC_IDE2_STRING_INDENT,__STRING_LAYOUT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,751,"ide_methods.bas");}while(r); -S_37257:; -if (((-(*__LONG_IDECY!=*__LONG_IDECOMPILEDLINE))|(-(*__LONG_IDELAYOUTALLOW!= 0 )))||new_error){ -if(qbevent){evnt(26070,753,"ide_methods.bas");if(r)goto S_37257;} -do{ -*__LONG_IDELAYOUTALLOW= 0 ; -if(!qbevent)break;evnt(26070,754,"ide_methods.bas");}while(r); -S_37259:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_IDECOMPILEDLINE,__STRING_LAYOUT)))||new_error){ -if(qbevent){evnt(26070,756,"ide_methods.bas");if(r)goto S_37259;} -do{ -SUB_IDESETLINE(__LONG_IDECOMPILEDLINE,__STRING_LAYOUT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,757,"ide_methods.bas");}while(r); -S_37261:; -if (((-(*__LONG_IDECOMPILEDLINE>=*__LONG_IDESY))&(-(*__LONG_IDECOMPILEDLINE<=(*__LONG_IDESY+ 16 ))))||new_error){ -if(qbevent){evnt(26070,758,"ide_methods.bas");if(r)goto S_37261;} -do{ -*_FUNC_IDE2_LONG_SKIPDISPLAY= 0 ; -if(!qbevent)break;evnt(26070,758,"ide_methods.bas");}while(r); -} -} -}else{ -S_37266:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_IDECOMPILEDLINE,__STRING_LAYOUT)))||new_error){ -if(qbevent){evnt(26070,763,"ide_methods.bas");if(r)goto S_37266;} -do{ -qbs_set(__STRING_IDECURRENTLINELAYOUT,__STRING_LAYOUT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,764,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECURRENTLINELAYOUTI=*__LONG_IDECY; -if(!qbevent)break;evnt(26070,765,"ide_methods.bas");}while(r); -} -} -} -} -} -S_37274:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_C,func_chr( 6 ))))||new_error){ -if(qbevent){evnt(26070,776,"ide_methods.bas");if(r)goto S_37274;} -do{ -*__LONG_IDECOMPILING= 0 ; -if(!qbevent)break;evnt(26070,777,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_READY= 1 ; -if(!qbevent)break;evnt(26070,778,"ide_methods.bas");}while(r); -S_37277:; -if ((*__LONG_IDEAUTORUN)||new_error){ -if(qbevent){evnt(26070,779,"ide_methods.bas");if(r)goto S_37277;} -do{ -*__LONG_IDEAUTORUN= 0 ; -if(!qbevent)break;evnt(26070,779,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDEMRUNSPECIAL; -if(!qbevent)break;evnt(26070,779,"ide_methods.bas");}while(r); -} -} -do{ -if(!qbevent)break;evnt(26070,782,"ide_methods.bas");}while(r); -S_37283:; -if (((-(*__LONG_VWATCHON== 1 ))&(-(*_FUNC_IDE2_BYTE_ATTEMPTTOHOST== 0 )))||new_error){ -if(qbevent){evnt(26070,783,"ide_methods.bas");if(r)goto S_37283;} -S_37284:; -if ((-(*__LONG_HOST== 0 ))||new_error){ -if(qbevent){evnt(26070,784,"ide_methods.bas");if(r)goto S_37284;} -do{ -qbs_set(__STRING_HOSTPORT,qbs__trim(qbs_str((int64)(*__LONG_IDEBASETCPPORT+*__LONG_TEMPFOLDERINDEX)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,785,"ide_methods.bas");}while(r); -do{ -sub_environ(qbs_add(qbs_new_txt_len("QB64DEBUGPORT=",14),__STRING_HOSTPORT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,786,"ide_methods.bas");}while(r); -do{ -*__LONG_HOST=func__openhost(qbs_add(qbs_new_txt_len("TCP/IP:",7),__STRING_HOSTPORT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,787,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_BYTE_ATTEMPTTOHOST= -1 ; -if(!qbevent)break;evnt(26070,788,"ide_methods.bas");}while(r); -} -S_37290:; -if ((*_FUNC_IDE2_BYTE_CHANGINGTCPPORT&(-(*__LONG_HOST== 0 )))||new_error){ -if(qbevent){evnt(26070,790,"ide_methods.bas");if(r)goto S_37290;} -do{ -*_FUNC_IDE2_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("$DEBUG MODE",11),qbs_add(qbs_add(qbs_new_txt_len("Cannot receive connections on port",34),qbs_str((int32)(*__LONG_IDEBASETCPPORT))),qbs_new_txt_len(".\\nCheck your firewall permissions.",35)),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,791,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,792,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,792,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDE2_BYTE_CHANGINGTCPPORT= 0 ; -if(!qbevent)break;evnt(26070,794,"ide_methods.bas");}while(r); -} -S_37297:; -if ((*__LONG_IDEDEBUGMODE)||new_error){ -if(qbevent){evnt(26070,797,"ide_methods.bas");if(r)goto S_37297;} -do{ -*__LONG_IDECOMPILING= 0 ; -if(!qbevent)break;evnt(26070,798,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_READY= 1 ; -if(!qbevent)break;evnt(26070,799,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=14; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_REDRAWITALL; -RETURN_14:; -if(!qbevent)break;evnt(26070,800,"ide_methods.bas");}while(r); -do{ -goto LABEL_EXITDEBUGMODE; -if(!qbevent)break;evnt(26070,801,"ide_methods.bas");}while(r); -} -S_37303:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_C,func_chr( 254 ))))||new_error){ -if(qbevent){evnt(26070,804,"ide_methods.bas");if(r)goto S_37303;} -do{ -*__LONG_IDEDEBUGMODE= 1 ; -if(!qbevent)break;evnt(26070,806,"ide_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26070,652,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_BACKUPTYPEDEFINITIONS,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,653,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_WATCHPOINTLIST,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,654,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_CALLSTACKLIST,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,655,"ide_methods.bas");}while(r); +do{ +*__LONG_CALLSTACKLENGTH= 0 ; +if(!qbevent)break;evnt(26070,655,"ide_methods.bas");}while(r); +S_37181:; +if (((-(*__LONG_IDESTARTATLINE> 0 ))&(-(*__LONG_IDESTARTATLINE<=*__LONG_IDEN)))||new_error){ +if(qbevent){evnt(26070,656,"ide_methods.bas");if(r)goto S_37181;} +do{ +*__LONG_IDECY=*__LONG_IDESTARTATLINE; +if(!qbevent)break;evnt(26070,657,"ide_methods.bas");}while(r); +S_37183:; +if ((-((*__LONG_IDECY- 10 )>=( 1 )))||new_error){ +if(qbevent){evnt(26070,658,"ide_methods.bas");if(r)goto S_37183;} +do{ +*__LONG_IDESY=*__LONG_IDECY- 10 ; +if(!qbevent)break;evnt(26070,658,"ide_methods.bas");}while(r); +} +do{ +*__LONG_IDEGOTOBOX_LASTLINENUM=*__LONG_IDESTARTATLINE; +if(!qbevent)break;evnt(26070,659,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESTARTATLINE= 0 ; +if(!qbevent)break;evnt(26070,660,"ide_methods.bas");}while(r); +} +do{ +*__LONG_IDEBMKN= 0 ; +if(!qbevent)break;evnt(26070,662,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEERROR= 1 ; +if(!qbevent)break;evnt(26070,663,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_IDEPROGNAME,_FUNC_IDE2_STRING_F); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,664,"ide_methods.bas");}while(r); +do{ +sub__title(qbs_add(qbs_add(__STRING_IDEPROGNAME,qbs_new_txt_len(" - ",3)),__STRING_WINDOWTITLE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,664,"ide_methods.bas");}while(r); +do{ +SUB_IDEIMPORTBOOKMARKS(qbs_add(qbs_add(__STRING_IDEPATH,__STRING1_IDEPATHSEP),__STRING_IDEPROGNAME)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,665,"ide_methods.bas");}while(r); +do{ +SUB_IDEADDRECENT(qbs_add(qbs_add(__STRING_IDEPATH,__STRING1_IDEPATHSEP),__STRING_IDEPROGNAME)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,666,"ide_methods.bas");}while(r); +} +} +LABEL_SKIPLOAD:; +if(qbevent){evnt(26070,671,"ide_methods.bas");r=0;} +} +S_37198:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_C,func_chr( 3 ))))||new_error){ +if(qbevent){evnt(26070,685,"ide_methods.bas");if(r)goto S_37198;} +do{ +*_FUNC_IDE2_LONG_SKIPDISPLAY= 1 ; +if(!qbevent)break;evnt(26070,686,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_SENDNEXTLINE= 1 ; +if(!qbevent)break;evnt(26070,687,"ide_methods.bas");}while(r); +S_37201:; +if (((-(*__LONG_IDEAUTOLAYOUT== 0 ))&(-(*__LONG_IDEAUTOINDENT== 0 )))||new_error){ +if(qbevent){evnt(26070,691,"ide_methods.bas");if(r)goto S_37201;} +do{ +qbs_set(__STRING_LAYOUT,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,693,"ide_methods.bas");}while(r); +do{ +*__LONG_IDELAYOUTALLOW= 0 ; +if(!qbevent)break;evnt(26070,694,"ide_methods.bas");}while(r); +}else{ +S_37205:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_LAYOUT->len))||new_error){ +if(qbevent){evnt(26070,698,"ide_methods.bas");if(r)goto S_37205;} +S_37206:; +fornext_value4036= 1 ; +fornext_finalvalue4036=__STRING_LAYOUT->len; +fornext_step4036= 1 ; +if (fornext_step4036<0) fornext_step_negative4036=1; else fornext_step_negative4036=0; +if (new_error) goto fornext_error4036; +goto fornext_entrylabel4036; +while(1){ +fornext_value4036=fornext_step4036+(*_FUNC_IDE2_LONG_I); +fornext_entrylabel4036: +*_FUNC_IDE2_LONG_I=fornext_value4036; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative4036){ +if (fornext_value4036fornext_finalvalue4036) break; +} +fornext_error4036:; +if(qbevent){evnt(26070,701,"ide_methods.bas");if(r)goto S_37206;} +S_37207:; +if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(__STRING_LAYOUT,*_FUNC_IDE2_LONG_I)!= 32 ))|(-(*_FUNC_IDE2_LONG_I==__STRING_LAYOUT->len))))||new_error){ +if(qbevent){evnt(26070,702,"ide_methods.bas");if(r)goto S_37207;} +do{ +*_FUNC_IDE2_LONG_INDENT=*_FUNC_IDE2_LONG_I- 1 ; +if(!qbevent)break;evnt(26070,703,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_LAYOUT,qbs_right(__STRING_LAYOUT,__STRING_LAYOUT->len-*_FUNC_IDE2_LONG_I+ 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,704,"ide_methods.bas");}while(r); +do{ +goto fornext_exit_4035; +if(!qbevent)break;evnt(26070,705,"ide_methods.bas");}while(r); +} +fornext_continue_4035:; +} +fornext_exit_4035:; +S_37213:; +if ((*__LONG_IDEAUTOLAYOUT)||new_error){ +if(qbevent){evnt(26070,709,"ide_methods.bas");if(r)goto S_37213;} +LABEL_SPACELAYOUT:; +if(qbevent){evnt(26070,710,"ide_methods.bas");r=0;} +do{ +*_FUNC_IDE2_LONG_IGNORESP= 0 ; +if(!qbevent)break;evnt(26070,711,"ide_methods.bas");}while(r); +S_37215:; +fornext_value4041= 1 ; +fornext_finalvalue4041=__STRING_LAYOUT->len; +fornext_step4041= 1 ; +if (fornext_step4041<0) fornext_step_negative4041=1; else fornext_step_negative4041=0; +if (new_error) goto fornext_error4041; +goto fornext_entrylabel4041; +while(1){ +fornext_value4041=fornext_step4041+(*_FUNC_IDE2_LONG_I); +fornext_entrylabel4041: +*_FUNC_IDE2_LONG_I=fornext_value4041; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative4041){ +if (fornext_value4041fornext_finalvalue4041) break; +} +fornext_error4041:; +if(qbevent){evnt(26070,712,"ide_methods.bas");if(r)goto S_37215;} +S_37216:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_LAYOUT,*_FUNC_IDE2_LONG_I)== 34 )))||new_error){ +if(qbevent){evnt(26070,713,"ide_methods.bas");if(r)goto S_37216;} +do{ +*_FUNC_IDE2_LONG_IGNORESP=*_FUNC_IDE2_LONG_IGNORESP+ 1 ; +if(!qbevent)break;evnt(26070,714,"ide_methods.bas");}while(r); +S_37218:; +if ((-(*_FUNC_IDE2_LONG_IGNORESP== 2 ))||new_error){ +if(qbevent){evnt(26070,714,"ide_methods.bas");if(r)goto S_37218;} +do{ +*_FUNC_IDE2_LONG_IGNORESP= 0 ; +if(!qbevent)break;evnt(26070,714,"ide_methods.bas");}while(r); +} +} +S_37222:; +if ((-(*_FUNC_IDE2_LONG_IGNORESP== 0 ))||new_error){ +if(qbevent){evnt(26070,716,"ide_methods.bas");if(r)goto S_37222;} +S_37223:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(__STRING_LAYOUT,*_FUNC_IDE2_LONG_I, 1 ,0|1),__STRING1_SP)))||new_error){ +if(qbevent){evnt(26070,717,"ide_methods.bas");if(r)goto S_37223;} +do{ +sub_mid(__STRING_LAYOUT,*_FUNC_IDE2_LONG_I, 1 ,qbs_new_txt_len(" ",1),1); +if(!qbevent)break;evnt(26070,717,"ide_methods.bas");}while(r); +} +S_37226:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(__STRING_LAYOUT,*_FUNC_IDE2_LONG_I, 1 ,0|1),__STRING1_SP2)))||new_error){ +if(qbevent){evnt(26070,718,"ide_methods.bas");if(r)goto S_37226;} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(qbs_left(__STRING_LAYOUT,*_FUNC_IDE2_LONG_I- 1 ),qbs_right(__STRING_LAYOUT,__STRING_LAYOUT->len-*_FUNC_IDE2_LONG_I))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,718,"ide_methods.bas");}while(r); +do{ +goto LABEL_SPACELAYOUT; +if(!qbevent)break;evnt(26070,718,"ide_methods.bas");}while(r); +} +} +fornext_continue_4040:; +} +fornext_exit_4040:; +} +S_37233:; +if ((-(*__LONG_IDEAUTOINDENT== 0 ))||new_error){ +if(qbevent){evnt(26070,723,"ide_methods.bas");if(r)goto S_37233;} +do{ +qbs_set(_FUNC_IDE2_STRING_A,__STRING_IDECOMPILEDLINE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,726,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_INDENT= 0 ; +if(!qbevent)break;evnt(26070,727,"ide_methods.bas");}while(r); +S_37236:; +fornext_value4045= 1 ; +fornext_finalvalue4045=_FUNC_IDE2_STRING_A->len; +fornext_step4045= 1 ; +if (fornext_step4045<0) fornext_step_negative4045=1; else fornext_step_negative4045=0; +if (new_error) goto fornext_error4045; +goto fornext_entrylabel4045; +while(1){ +fornext_value4045=fornext_step4045+(*_FUNC_IDE2_LONG_I); +fornext_entrylabel4045: +*_FUNC_IDE2_LONG_I=fornext_value4045; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative4045){ +if (fornext_value4045fornext_finalvalue4045) break; +} +fornext_error4045:; +if(qbevent){evnt(26070,728,"ide_methods.bas");if(r)goto S_37236;} +S_37237:; +if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_I)!= 32 ))|(-(*_FUNC_IDE2_LONG_I==_FUNC_IDE2_STRING_A->len))))||new_error){ +if(qbevent){evnt(26070,729,"ide_methods.bas");if(r)goto S_37237;} +do{ +*_FUNC_IDE2_LONG_INDENT=*_FUNC_IDE2_LONG_I- 1 ; +if(!qbevent)break;evnt(26070,730,"ide_methods.bas");}while(r); +do{ +goto fornext_exit_4044; +if(!qbevent)break;evnt(26070,731,"ide_methods.bas");}while(r); +} +fornext_continue_4044:; +} +fornext_exit_4044:; +do{ +qbs_set(_FUNC_IDE2_STRING_INDENT,func_space(*_FUNC_IDE2_LONG_INDENT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,734,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDE2_STRING_INDENT,func_space(*_FUNC_IDE2_LONG_INDENT**__LONG_IDEAUTOINDENTSIZE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,736,"ide_methods.bas");}while(r); +} +S_37246:; +if ((-(*__LONG_IDEAUTOLAYOUT== 0 ))||new_error){ +if(qbevent){evnt(26070,739,"ide_methods.bas");if(r)goto S_37246;} +do{ +qbs_set(_FUNC_IDE2_STRING_A,__STRING_IDECOMPILEDLINE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,741,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_LAYOUT,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,742,"ide_methods.bas");}while(r); +S_37249:; +fornext_value4049= 1 ; +fornext_finalvalue4049=_FUNC_IDE2_STRING_A->len; +fornext_step4049= 1 ; +if (fornext_step4049<0) fornext_step_negative4049=1; else fornext_step_negative4049=0; +if (new_error) goto fornext_error4049; +goto fornext_entrylabel4049; +while(1){ +fornext_value4049=fornext_step4049+(*_FUNC_IDE2_LONG_I); +fornext_entrylabel4049: +*_FUNC_IDE2_LONG_I=fornext_value4049; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative4049){ +if (fornext_value4049fornext_finalvalue4049) break; +} +fornext_error4049:; +if(qbevent){evnt(26070,743,"ide_methods.bas");if(r)goto S_37249;} +S_37250:; +if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_I)!= 32 ))|(-(*_FUNC_IDE2_LONG_I==_FUNC_IDE2_STRING_A->len))))||new_error){ +if(qbevent){evnt(26070,744,"ide_methods.bas");if(r)goto S_37250;} +do{ +qbs_set(__STRING_LAYOUT,qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len-*_FUNC_IDE2_LONG_I+ 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,745,"ide_methods.bas");}while(r); +do{ +goto fornext_exit_4048; +if(!qbevent)break;evnt(26070,746,"ide_methods.bas");}while(r); +} +fornext_continue_4048:; +} +fornext_exit_4048:; +} +do{ +qbs_set(__STRING_LAYOUT,qbs_add(_FUNC_IDE2_STRING_INDENT,__STRING_LAYOUT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,751,"ide_methods.bas");}while(r); +S_37257:; +if (((-(*__LONG_IDECY!=*__LONG_IDECOMPILEDLINE))|(-(*__LONG_IDELAYOUTALLOW!= 0 )))||new_error){ +if(qbevent){evnt(26070,753,"ide_methods.bas");if(r)goto S_37257;} +do{ +*__LONG_IDELAYOUTALLOW= 0 ; +if(!qbevent)break;evnt(26070,754,"ide_methods.bas");}while(r); +S_37259:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_IDECOMPILEDLINE,__STRING_LAYOUT)))||new_error){ +if(qbevent){evnt(26070,756,"ide_methods.bas");if(r)goto S_37259;} +do{ +SUB_IDESETLINE(__LONG_IDECOMPILEDLINE,__STRING_LAYOUT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,757,"ide_methods.bas");}while(r); +S_37261:; +if (((-(*__LONG_IDECOMPILEDLINE>=*__LONG_IDESY))&(-(*__LONG_IDECOMPILEDLINE<=(*__LONG_IDESY+ 16 ))))||new_error){ +if(qbevent){evnt(26070,758,"ide_methods.bas");if(r)goto S_37261;} +do{ +*_FUNC_IDE2_LONG_SKIPDISPLAY= 0 ; +if(!qbevent)break;evnt(26070,758,"ide_methods.bas");}while(r); +} +} +}else{ +S_37266:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_IDECOMPILEDLINE,__STRING_LAYOUT)))||new_error){ +if(qbevent){evnt(26070,763,"ide_methods.bas");if(r)goto S_37266;} +do{ +qbs_set(__STRING_IDECURRENTLINELAYOUT,__STRING_LAYOUT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,764,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECURRENTLINELAYOUTI=*__LONG_IDECY; +if(!qbevent)break;evnt(26070,765,"ide_methods.bas");}while(r); +} +} +} +} +} +S_37274:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_C,func_chr( 6 ))))||new_error){ +if(qbevent){evnt(26070,776,"ide_methods.bas");if(r)goto S_37274;} +do{ +*__LONG_IDECOMPILING= 0 ; +if(!qbevent)break;evnt(26070,777,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_READY= 1 ; +if(!qbevent)break;evnt(26070,778,"ide_methods.bas");}while(r); +S_37277:; +if ((*__LONG_IDEAUTORUN)||new_error){ +if(qbevent){evnt(26070,779,"ide_methods.bas");if(r)goto S_37277;} +do{ +*__LONG_IDEAUTORUN= 0 ; +if(!qbevent)break;evnt(26070,779,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDEMRUNSPECIAL; +if(!qbevent)break;evnt(26070,779,"ide_methods.bas");}while(r); +} +} +do{ +if(!qbevent)break;evnt(26070,782,"ide_methods.bas");}while(r); +S_37283:; +if (((-(*__LONG_VWATCHON== 1 ))&(-(*_FUNC_IDE2_BYTE_ATTEMPTTOHOST== 0 )))||new_error){ +if(qbevent){evnt(26070,783,"ide_methods.bas");if(r)goto S_37283;} +S_37284:; +if ((-(*__LONG_HOST== 0 ))||new_error){ +if(qbevent){evnt(26070,784,"ide_methods.bas");if(r)goto S_37284;} +do{ +qbs_set(__STRING_HOSTPORT,qbs__trim(qbs_str((int64)(*__LONG_IDEBASETCPPORT+*__LONG_TEMPFOLDERINDEX)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,785,"ide_methods.bas");}while(r); +do{ +sub_environ(qbs_add(qbs_new_txt_len("QB64DEBUGPORT=",14),__STRING_HOSTPORT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,786,"ide_methods.bas");}while(r); +do{ +*__LONG_HOST=func__openhost(qbs_add(qbs_new_txt_len("TCP/IP:",7),__STRING_HOSTPORT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,787,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_BYTE_ATTEMPTTOHOST= -1 ; +if(!qbevent)break;evnt(26070,788,"ide_methods.bas");}while(r); +} +S_37290:; +if ((*_FUNC_IDE2_BYTE_CHANGINGTCPPORT&(-(*__LONG_HOST== 0 )))||new_error){ +if(qbevent){evnt(26070,790,"ide_methods.bas");if(r)goto S_37290;} +do{ +*_FUNC_IDE2_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("$DEBUG MODE",11),qbs_add(qbs_add(qbs_new_txt_len("Cannot receive connections on port",34),qbs_str((int32)(*__LONG_IDEBASETCPPORT))),qbs_new_txt_len(".\\nCheck your firewall permissions.",35)),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,791,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,792,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,792,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDE2_BYTE_CHANGINGTCPPORT= 0 ; +if(!qbevent)break;evnt(26070,794,"ide_methods.bas");}while(r); +} +S_37297:; +if ((*__LONG_IDEDEBUGMODE)||new_error){ +if(qbevent){evnt(26070,797,"ide_methods.bas");if(r)goto S_37297;} +do{ +*__LONG_IDECOMPILING= 0 ; +if(!qbevent)break;evnt(26070,798,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_READY= 1 ; +if(!qbevent)break;evnt(26070,799,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=14; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_REDRAWITALL; +RETURN_14:; +if(!qbevent)break;evnt(26070,800,"ide_methods.bas");}while(r); +do{ +goto LABEL_EXITDEBUGMODE; +if(!qbevent)break;evnt(26070,801,"ide_methods.bas");}while(r); +} +S_37303:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_C,func_chr( 254 ))))||new_error){ +if(qbevent){evnt(26070,804,"ide_methods.bas");if(r)goto S_37303;} +do{ +*__LONG_IDEDEBUGMODE= 1 ; +if(!qbevent)break;evnt(26070,806,"ide_methods.bas");}while(r); +do{ if (__ARRAY_STRING_VWATCHRECEIVEDDATA[2]&2){ error(10); @@ -126609,5375 +126609,5375 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_VWATCHRECEIVEDDATA[0]))[tmp_long]=(u }else{ while(tmp_long--) ((uint64*)(__ARRAY_STRING_VWATCHRECEIVEDDATA[0]))[tmp_long]=(uint64)qbs_new(0,0); } -} -if(!qbevent)break;evnt(26070,808,"ide_methods.bas");}while(r); -LABEL_ENTERDEBUGMODE:; -if(qbevent){evnt(26070,810,"ide_methods.bas");r=0;} -S_37306:; -if ((*__LONG_IDEHELP)||new_error){ -if(qbevent){evnt(26070,811,"ide_methods.bas");if(r)goto S_37306;} -do{ -*__LONG_IDEWY=*__LONG_IDEWY+*__LONG_IDESUBWINDOW; -if(!qbevent)break;evnt(26070,812,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEHELP= 0 ; -if(!qbevent)break;evnt(26070,813,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESUBWINDOW= 0 ; -if(!qbevent)break;evnt(26070,814,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_SKIPDISPLAY= 0 ; -if(!qbevent)break;evnt(26070,815,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESYSTEM= 1 ; -if(!qbevent)break;evnt(26070,816,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_RETVAL= 1 ; -if(!qbevent)break;evnt(26070,817,"ide_methods.bas");}while(r); -} -do{ -return_point[next_return_point++]=15; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_REDRAWITALL; -RETURN_15:; -if(!qbevent)break;evnt(26070,820,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECOMPILING= 0 ; -if(!qbevent)break;evnt(26070,821,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_READY= 1 ; -if(!qbevent)break;evnt(26070,822,"ide_methods.bas");}while(r); -do{ -sub__resize( 2 ,NULL); -if(!qbevent)break;evnt(26070,823,"ide_methods.bas");}while(r); -do{ -SUB_DEBUGMODE(); -if(!qbevent)break;evnt(26070,824,"ide_methods.bas");}while(r); -LABEL_EXITDEBUGMODE:; -if(qbevent){evnt(26070,825,"ide_methods.bas");r=0;} -S_37319:; -if ((*__BYTE_WATCHLISTTOCONSOLE)||new_error){ -if(qbevent){evnt(26070,826,"ide_methods.bas");if(r)goto S_37319;} -do{ -sub__console( 2 ); -if(!qbevent)break;evnt(26070,826,"ide_methods.bas");}while(r); -} -do{ -SUB_UPDATEMENUHELPLINE(qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,827,"ide_methods.bas");}while(r); -S_37323:; -if(qbevent){evnt(26070,828,"ide_methods.bas");if(r)goto S_37323;} -S_37324:; -if (((*__LONG_IDEDEBUGMODE==( 1 )))||new_error){ -if(qbevent){evnt(26070,829,"ide_methods.bas");if(r)goto S_37324;} -do{ -*__LONG_IDEDEBUGMODE= 0 ; -if(!qbevent)break;evnt(26070,830,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEFOCUSLINE= 0 ; -if(!qbevent)break;evnt(26070,831,"ide_methods.bas");}while(r); -do{ -*__LONG_DEBUGNEXTLINE= 0 ; -if(!qbevent)break;evnt(26070,832,"ide_methods.bas");}while(r); -sc_ec_214_end:; -goto sc_4053_end; -} -S_37328:; -if (((*__LONG_IDEDEBUGMODE==( 2 )))||new_error){ -if(qbevent){evnt(26070,833,"ide_methods.bas");if(r)goto S_37328;} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,834,"ide_methods.bas");}while(r); -do{ -SUB_IDEMAKECONTEXTUALMENU(); -if(!qbevent)break;evnt(26070,835,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_IDECONTEXTUALMENU= 1 ; -if(!qbevent)break;evnt(26070,836,"ide_methods.bas");}while(r); -do{ -goto LABEL_SHOWMENU; -if(!qbevent)break;evnt(26070,837,"ide_methods.bas");}while(r); -sc_ec_215_end:; -goto sc_4053_end; -} -sc_4053_end:; -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,839,"ide_methods.bas");}while(r); -do{ -sub__printstring( 1 , 1 ,__STRING_MENUBAR,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,839,"ide_methods.bas");}while(r); -S_37336:; -if ((-(*__LONG_IDESUBWINDOW!= 0 ))||new_error){ -if(qbevent){evnt(26070,840,"ide_methods.bas");if(r)goto S_37336;} -do{ -sub__resize( 2 ,NULL); -if(!qbevent)break;evnt(26070,840,"ide_methods.bas");}while(r); -}else{ -do{ -sub__resize( 1 ,NULL); -if(!qbevent)break;evnt(26070,840,"ide_methods.bas");}while(r); -} -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,841,"ide_methods.bas");}while(r); -} -S_37343:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_C,func_chr( 11 ))))||new_error){ -if(qbevent){evnt(26070,844,"ide_methods.bas");if(r)goto S_37343;} -do{ -*__LONG_IDECOMPILING= 0 ; -if(!qbevent)break;evnt(26070,845,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_READY= 1 ; -if(!qbevent)break;evnt(26070,846,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEAUTORUN= 0 ; -if(!qbevent)break;evnt(26070,847,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_SHOWEXECREATED= 1 ; -if(!qbevent)break;evnt(26070,848,"ide_methods.bas");}while(r); -} -S_37349:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_C,func_chr( 7 ))))||new_error){ -if(qbevent){evnt(26070,851,"ide_methods.bas");if(r)goto S_37349;} -do{ -*_FUNC_IDE2_LONG_SKIPDISPLAY= 1 ; -if(!qbevent)break;evnt(26070,852,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECOMPILEDLINE= 0 ; -if(!qbevent)break;evnt(26070,853,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_SENDNEXTLINE= 1 ; -if(!qbevent)break;evnt(26070,854,"ide_methods.bas");}while(r); -} -S_37354:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_IDE2_STRING_C, 1 ),func_chr( 8 ))))||new_error){ -if(qbevent){evnt(26070,857,"ide_methods.bas");if(r)goto S_37354;} -do{ -*__LONG_IDECOMPILING= 0 ; -if(!qbevent)break;evnt(26070,858,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_FAILED= 1 ; -if(!qbevent)break;evnt(26070,859,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEAUTORUN= 0 ; -if(!qbevent)break;evnt(26070,860,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDE2_LONG_PASSBACK= 0 ; -if(!qbevent)break;evnt(26070,863,"ide_methods.bas");}while(r); -S_37360:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_IDE2_STRING_C, 1 ),func_chr( 10 ))))||new_error){ -if(qbevent){evnt(26070,864,"ide_methods.bas");if(r)goto S_37360;} -do{ -*_FUNC_IDE2_LONG_SKIPDISPLAY= 1 ; -if(!qbevent)break;evnt(26070,865,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_SENDNEXTLINE= 1 ; -if(!qbevent)break;evnt(26070,866,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECOMPILEDLINE=*__LONG_IDECOMPILEDLINE- 1 ; -if(!qbevent)break;evnt(26070,867,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_PASSBACK= 1 ; -if(!qbevent)break;evnt(26070,868,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_PASSBACK,qbs_right(_FUNC_IDE2_STRING_C,_FUNC_IDE2_STRING_C->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,869,"ide_methods.bas");}while(r); -} -S_37367:; -if ((*_FUNC_IDE2_LONG_MUSTDISPLAY)||new_error){ -if(qbevent){evnt(26070,872,"ide_methods.bas");if(r)goto S_37367;} -do{ -*_FUNC_IDE2_LONG_SKIPDISPLAY= 0 ; -if(!qbevent)break;evnt(26070,872,"ide_methods.bas");}while(r); -} -S_37370:; -if ((-(*_FUNC_IDE2_LONG_SKIPDISPLAY== 0 ))||new_error){ -if(qbevent){evnt(26070,874,"ide_methods.bas");if(r)goto S_37370;} -do{ -qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); -if(!qbevent)break;evnt(26070,876,"ide_methods.bas");}while(r); -S_37372:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_IDE2_STRING_C,func_chr( 3 ))))||new_error){ -if(qbevent){evnt(26070,881,"ide_methods.bas");if(r)goto S_37372;} -do{ -SUB_CLEARSTATUSWINDOW(&(pass4055= 0 )); -if(!qbevent)break;evnt(26070,882,"ide_methods.bas");}while(r); -S_37374:; -if ((*_FUNC_IDE2_LONG_READY)||new_error){ -if(qbevent){evnt(26070,883,"ide_methods.bas");if(r)goto S_37374;} -S_37375:; -if ((*__BYTE_IDESHOWERRORSIMMEDIATELY)||new_error){ -if(qbevent){evnt(26070,884,"ide_methods.bas");if(r)goto S_37375;} -do{ -sub__printstring( 2 ,*__LONG_IDEWY- 3 ,qbs_new_txt_len("OK",2),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,885,"ide_methods.bas");}while(r); -S_37377:; -if ((-(*__LONG_IDEAUTOLAYOUT!= 0 ))||new_error){ -if(qbevent){evnt(26070,886,"ide_methods.bas");if(r)goto S_37377;} -do{ -tmp_long=array_check(( 1 )-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_FILEMENUEXPORTAS)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(qbs_new_txt_len("#Export As... ",15),func_chr( 16 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,886,"ide_methods.bas");}while(r); -} -do{ -*__INTEGER_STATUSAREALINK= 0 ; -if(!qbevent)break;evnt(26070,887,"ide_methods.bas");}while(r); -S_37381:; -if (((-(*__LONG_TOTALWARNINGS> 0 ))&(-(*_FUNC_IDE2_LONG_SHOWEXECREATED== 0 )))||new_error){ -if(qbevent){evnt(26070,888,"ide_methods.bas");if(r)goto S_37381;} -do{ -qbg_sub_color( 11 , 1 ,NULL,3); -if(!qbevent)break;evnt(26070,889,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_MSG,qbs_add(qbs_add(qbs_new_txt_len(" (",2),qbs_ltrim(qbs_str((int32)(*__LONG_TOTALWARNINGS)))),qbs_new_txt_len(" warning",8))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,890,"ide_methods.bas");}while(r); -S_37384:; -if ((-(*__LONG_TOTALWARNINGS> 1 ))||new_error){ -if(qbevent){evnt(26070,891,"ide_methods.bas");if(r)goto S_37384;} -do{ -qbs_set(_FUNC_IDE2_STRING_MSG,qbs_add(_FUNC_IDE2_STRING_MSG,qbs_new_txt_len("s",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,891,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDE2_STRING_MSG,qbs_add(_FUNC_IDE2_STRING_MSG,qbs_new_txt_len(" - click here or Ctrl+W to view)",32))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,892,"ide_methods.bas");}while(r); -do{ -sub__printstring( 4 ,*__LONG_IDEWY- 3 ,_FUNC_IDE2_STRING_MSG,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,893,"ide_methods.bas");}while(r); -do{ -*__INTEGER_STATUSAREALINK= 4 ; -if(!qbevent)break;evnt(26070,894,"ide_methods.bas");}while(r); -} -S_37391:; -if ((*_FUNC_IDE2_BYTE_WAITINGFORVARLIST)||new_error){ -if(qbevent){evnt(26070,896,"ide_methods.bas");if(r)goto S_37391;} -do{ -return_point[next_return_point++]=16; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_SHOWVARLISTREADY; -RETURN_16:; -if(!qbevent)break;evnt(26070,896,"ide_methods.bas");}while(r); -} -} -} -S_37396:; -if ((*_FUNC_IDE2_LONG_SHOWEXECREATED)||new_error){ -if(qbevent){evnt(26070,899,"ide_methods.bas");if(r)goto S_37396;} -do{ -*_FUNC_IDE2_LONG_SHOWEXECREATED= 0 ; -if(!qbevent)break;evnt(26070,900,"ide_methods.bas");}while(r); -S_37398:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ -if(qbevent){evnt(26070,902,"ide_methods.bas");if(r)goto S_37398;} -do{ -sub__printstring( 2 ,*__LONG_IDEWY- 3 ,qbs_new_txt_len("Executable file created",23),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,903,"ide_methods.bas");}while(r); -}else{ -do{ -sub__printstring( 2 ,*__LONG_IDEWY- 3 ,qbs_new_txt_len(".EXE file created",17),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,905,"ide_methods.bas");}while(r); -} -S_37403:; -if ((*__BYTE_SAVEEXEWITHSOURCE)||new_error){ -if(qbevent){evnt(26070,908,"ide_methods.bas");if(r)goto S_37403;} -do{ -qbg_sub_color( 11 , 1 ,NULL,3); -if(!qbevent)break;evnt(26070,909,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_LOCATION,__STRING_LASTBINARYGENERATED); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,910,"ide_methods.bas");}while(r); -S_37406:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,911,"ide_methods.bas");if(r)goto S_37406;} -do{ -qbs_set(_FUNC_IDE2_STRING_LOCATION,qbs_add(qbs_add(func__startdir(),__STRING1_PATHSEP),_FUNC_IDE2_STRING_LOCATION)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,911,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDE2_STRING_MSG,qbs_add(qbs_new_txt_len("Location: ",10),_FUNC_IDE2_STRING_LOCATION)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,912,"ide_methods.bas");}while(r); -S_37410:; -if ((qbs_cleanup(qbs_tmp_base,-(( 2 +_FUNC_IDE2_STRING_MSG->len)>*__LONG_IDEWX)))||new_error){ -if(qbevent){evnt(26070,913,"ide_methods.bas");if(r)goto S_37410;} -do{ -qbs_set(_FUNC_IDE2_STRING_MSG,qbs_add(qbs_add(qbs_new_txt_len("Location: ",10),func_string( 3 , 250 )),qbs_right(_FUNC_IDE2_STRING_LOCATION,*__LONG_IDEWX- 15 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,914,"ide_methods.bas");}while(r); -} -do{ -sub__printstring( 2 ,*__LONG_IDEWY- 2 ,_FUNC_IDE2_STRING_MSG,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,916,"ide_methods.bas");}while(r); -do{ -*__INTEGER_STATUSAREALINK= 3 ; -if(!qbevent)break;evnt(26070,917,"ide_methods.bas");}while(r); -} -} -} -} -do{ -*__LONG_IDEFOCUSLINE= 0 ; -if(!qbevent)break;evnt(26070,925,"ide_methods.bas");}while(r); -S_37420:; -do{ -if(qbevent){evnt(26070,956,"ide_methods.bas");if(r)goto S_37420;} -LABEL_IDELOOP:; -if(qbevent){evnt(26070,957,"ide_methods.bas");r=0;} -S_37421:; -if ((*__BYTE_SHOWLINENUMBERS)||new_error){ -if(qbevent){evnt(26070,958,"ide_methods.bas");if(r)goto S_37421;} -do{ -*__LONG_MAXLINENUMBERLENGTH=((int32)(qbs_str((int32)(*__LONG_IDEN)))->len)+ 1 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,958,"ide_methods.bas");}while(r); -}else{ -do{ -*__LONG_MAXLINENUMBERLENGTH= 0 ; -if(!qbevent)break;evnt(26070,958,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDE2_LONG_IDECONTEXTUALMENU= 0 ; -if(!qbevent)break;evnt(26070,959,"ide_methods.bas");}while(r); -do{ -SUB_IDEDELTXT(); -if(!qbevent)break;evnt(26070,960,"ide_methods.bas");}while(r); -S_37428:; -if ((-(*__LONG_IDESUBWINDOW!= 0 ))||new_error){ -if(qbevent){evnt(26070,961,"ide_methods.bas");if(r)goto S_37428;} -do{ -sub__resize( 2 ,NULL); -if(!qbevent)break;evnt(26070,961,"ide_methods.bas");}while(r); -}else{ -do{ -sub__resize( 1 ,NULL); -if(!qbevent)break;evnt(26070,961,"ide_methods.bas");}while(r); -} -S_37433:; -if ((((func__resize()|*_FUNC_IDE2_LONG_FORCERESIZE))&(-(((float)(FUNC_TIMEELAPSEDSINCE(__SINGLE_QB64_UPTIME)))>((float)( 1.5E+0 )))))||new_error){ -if(qbevent){evnt(26070,963,"ide_methods.bas");if(r)goto S_37433;} -S_37434:; -if ((-(*__LONG_IDESUBWINDOW!= 0 ))||new_error){ -if(qbevent){evnt(26070,964,"ide_methods.bas");if(r)goto S_37434;} -do{ -*_FUNC_IDE2_LONG_FORCERESIZE= -1 ; -if(!qbevent)break;evnt(26070,965,"ide_methods.bas");}while(r); -}else{ -do{ -*_FUNC_IDE2_LONG_RETVAL= 0 ; -if(!qbevent)break;evnt(26070,967,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_FORCERESIZE= 0 ; -if(!qbevent)break;evnt(26070,968,"ide_methods.bas");}while(r); -S_37439:; -do{ -if(qbevent){evnt(26070,969,"ide_methods.bas");if(r)goto S_37439;} -do{ -*_FUNC_IDE2_BYTE_TOOSMALL= 0 ; -if(!qbevent)break;evnt(26070,970,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_INTEGER_V=func__resizewidth()/ func__fontwidth(NULL,0); -if(!qbevent)break;evnt(26070,971,"ide_methods.bas");}while(r); -S_37442:; -if (((-(*_FUNC_IDE2_INTEGER_V< 80 ))|(-(*_FUNC_IDE2_INTEGER_V> 1000 )))||new_error){ -if(qbevent){evnt(26070,971,"ide_methods.bas");if(r)goto S_37442;} -do{ -*_FUNC_IDE2_INTEGER_V= 80 ; -if(!qbevent)break;evnt(26070,971,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_BYTE_TOOSMALL= -1 ; -if(!qbevent)break;evnt(26070,971,"ide_methods.bas");}while(r); -} -S_37446:; -if ((-(*_FUNC_IDE2_INTEGER_V!=*__LONG_IDEWX))||new_error){ -if(qbevent){evnt(26070,972,"ide_methods.bas");if(r)goto S_37446;} -do{ -*_FUNC_IDE2_LONG_RETVAL= 1 ; -if(!qbevent)break;evnt(26070,972,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEWX=*_FUNC_IDE2_INTEGER_V; -if(!qbevent)break;evnt(26070,972,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDE2_INTEGER_V=func__resizeheight()/ func__fontheight(NULL,0); -if(!qbevent)break;evnt(26070,973,"ide_methods.bas");}while(r); -S_37451:; -if (((-(*_FUNC_IDE2_INTEGER_V< 25 ))|(-(*_FUNC_IDE2_INTEGER_V> 1000 )))||new_error){ -if(qbevent){evnt(26070,973,"ide_methods.bas");if(r)goto S_37451;} -do{ -*_FUNC_IDE2_INTEGER_V= 25 ; -if(!qbevent)break;evnt(26070,973,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_BYTE_TOOSMALL= -1 ; -if(!qbevent)break;evnt(26070,973,"ide_methods.bas");}while(r); -} -S_37455:; -if ((-(*_FUNC_IDE2_INTEGER_V!=*__LONG_IDEWY))||new_error){ -if(qbevent){evnt(26070,974,"ide_methods.bas");if(r)goto S_37455;} -do{ -*_FUNC_IDE2_LONG_RETVAL= 1 ; -if(!qbevent)break;evnt(26070,974,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEWY=*_FUNC_IDE2_INTEGER_V; -if(!qbevent)break;evnt(26070,974,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDE2_LONG_TEMPF=func__font(NULL,0); -if(!qbevent)break;evnt(26070,976,"ide_methods.bas");}while(r); -do{ -qbsub_width(NULL,*__LONG_IDEWX,*__LONG_IDEWY,NULL,NULL,3); -if(!qbevent)break;evnt(26070,977,"ide_methods.bas");}while(r); -do{ -sub__font(*_FUNC_IDE2_LONG_TEMPF,NULL,0); -if(!qbevent)break;evnt(26070,978,"ide_methods.bas");}while(r); -do{ -sub__palettecolor( 1 ,*__ULONG_IDEBACKGROUNDCOLOR, 0 ,1); -if(!qbevent)break;evnt(26070,980,"ide_methods.bas");}while(r); -do{ -sub__palettecolor( 2 ,func__rgb32( 84 , 84 , 84 ), 0 ,1); -if(!qbevent)break;evnt(26070,981,"ide_methods.bas");}while(r); -do{ -sub__palettecolor( 4 ,*__ULONG_IDEERRORCOLOR, 0 ,1); -if(!qbevent)break;evnt(26070,982,"ide_methods.bas");}while(r); -do{ -sub__palettecolor( 5 ,*__ULONG_IDEBRACKETHIGHLIGHTCOLOR, 0 ,1); -if(!qbevent)break;evnt(26070,983,"ide_methods.bas");}while(r); -do{ -sub__palettecolor( 6 ,*__ULONG_IDEBACKGROUNDCOLOR2, 0 ,1); -if(!qbevent)break;evnt(26070,984,"ide_methods.bas");}while(r); -do{ -sub__palettecolor( 7 ,*__ULONG_IDECHROMACOLOR, 0 ,1); -if(!qbevent)break;evnt(26070,985,"ide_methods.bas");}while(r); -do{ -sub__palettecolor( 8 ,*__ULONG_IDENUMBERSCOLOR, 0 ,1); -if(!qbevent)break;evnt(26070,986,"ide_methods.bas");}while(r); -do{ -sub__palettecolor( 10 ,*__ULONG_IDEMETACOMMANDCOLOR, 0 ,1); -if(!qbevent)break;evnt(26070,987,"ide_methods.bas");}while(r); -do{ -sub__palettecolor( 11 ,*__ULONG_IDECOMMENTCOLOR, 0 ,1); -if(!qbevent)break;evnt(26070,988,"ide_methods.bas");}while(r); -do{ -sub__palettecolor( 12 ,*__ULONG_IDEKEYWORDCOLOR, 0 ,1); -if(!qbevent)break;evnt(26070,989,"ide_methods.bas");}while(r); -do{ -sub__palettecolor( 13 ,*__ULONG_IDETEXTCOLOR, 0 ,1); -if(!qbevent)break;evnt(26070,990,"ide_methods.bas");}while(r); -do{ -sub__palettecolor( 14 ,*__ULONG_IDEQUOTECOLOR, 0 ,1); -if(!qbevent)break;evnt(26070,991,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,993,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,995,"ide_methods.bas");}while(r); -do{ -sub__printstring( 1 , 1 ,func_space(*__LONG_IDEWX),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,996,"ide_methods.bas");}while(r); -do{ -sub__printstring( 1 , 1 ,qbs_left(__STRING_MENUBAR,*__LONG_IDEWX),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,997,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 7 , 1 ,NULL,3); -if(!qbevent)break;evnt(26070,998,"ide_methods.bas");}while(r); -do{ -SUB_IDEBOX(&(pass4059= 1 ),&(pass4060= 2 ),__LONG_IDEWX,&(pass4061=*__LONG_IDEWY- 5 )); -if(!qbevent)break;evnt(26070,998,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 7 , 1 ,NULL,3); -if(!qbevent)break;evnt(26070,1000,"ide_methods.bas");}while(r); -do{ -SUB_IDEBOX(&(pass4062= 1 ),&(pass4063=*__LONG_IDEWY- 4 ),__LONG_IDEWX,&(pass4064= 5 )); -if(!qbevent)break;evnt(26070,1000,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 7 , 1 ,NULL,3); -if(!qbevent)break;evnt(26070,1002,"ide_methods.bas");}while(r); -do{ -sub__printstring( 1 ,*__LONG_IDEWY- 4 ,func_chr( 195 ),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1002,"ide_methods.bas");}while(r); -do{ -sub__printstring(*__LONG_IDEWX,*__LONG_IDEWY- 4 ,func_chr( 180 ),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1002,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=17; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_UPDATESEARCHBAR; -RETURN_17:; -if(!qbevent)break;evnt(26070,1004,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 0 , 3 ,NULL,3); -if(!qbevent)break;evnt(26070,1007,"ide_methods.bas");}while(r); -do{ -sub__printstring( 1 ,*__LONG_IDEWY+*__LONG_IDESUBWINDOW,func_space(*__LONG_IDEWX),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1007,"ide_methods.bas");}while(r); -do{ -SUB_UPDATEIDEINFO(); -if(!qbevent)break;evnt(26070,1008,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_Q=FUNC_IDEVBAR(__LONG_IDEWX,&(pass4065=*__LONG_IDEWY- 3 ),&(pass4066= 3 ),&(pass4067= 1 ),&(pass4068= 1 )); -if(!qbevent)break;evnt(26070,1009,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_Q=FUNC_IDEVBAR(__LONG_IDEWX,&(pass4069= 3 ),&(pass4070=*__LONG_IDEWY- 8 ),&(pass4071= 1 ),&(pass4072= 1 )); -if(!qbevent)break;evnt(26070,1010,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_Q=FUNC_IDEHBAR(&(pass4073= 2 ),&(pass4074=*__LONG_IDEWY- 5 ),&(pass4075=*__LONG_IDEWX- 2 ),&(pass4076= 1 ),&(pass4077= 1 )); -if(!qbevent)break;evnt(26070,1011,"ide_methods.bas");}while(r); -do{ -SUB_UPDATETITLEOFMAINWINDOW(); -if(!qbevent)break;evnt(26070,1013,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 7 , 1 ,NULL,3); -if(!qbevent)break;evnt(26070,1015,"ide_methods.bas");}while(r); -do{ -sub__printstring( 2 ,*__LONG_IDEWY- 3 ,qbs_new_txt_len("Resizing...",11),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1016,"ide_methods.bas");}while(r); -S_37495:; -if ((*_FUNC_IDE2_BYTE_TOOSMALL)||new_error){ -if(qbevent){evnt(26070,1017,"ide_methods.bas");if(r)goto S_37495;} -do{ -qbg_sub_color( 14 , 1 ,NULL,3); -if(!qbevent)break;evnt(26070,1018,"ide_methods.bas");}while(r); -do{ -sub__printstring( 2 , 3 ,qbs_new_txt_len("ERROR: Minimum window size is 80x25",35),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1019,"ide_methods.bas");}while(r); -}else{ -do{ -SUB_IDESHOWTEXT(); -if(!qbevent)break;evnt(26070,1021,"ide_methods.bas");}while(r); -} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,1024,"ide_methods.bas");}while(r); -do{ -sub__display(); -if(!qbevent)break;evnt(26070,1026,"ide_methods.bas");}while(r); -do{ -sub__limit( 15 ); -if(!qbevent)break;evnt(26070,1027,"ide_methods.bas");}while(r); -S_37504:; -dl_continue_4058:; -}while((func__resize())&&(!new_error)); -dl_exit_4058:; -if(qbevent){evnt(26070,1028,"ide_methods.bas");if(r)goto S_37504;} -S_37505:; -if ((-(*_FUNC_IDE2_LONG_RETVAL== 1 ))||new_error){ -if(qbevent){evnt(26070,1030,"ide_methods.bas");if(r)goto S_37505;} -do{ -SUB_WRITECONFIGSETTING(__STRING_WINDOWSETTINGSSECTION,qbs_new_txt_len("IDE_Width",9),qbs_str((int32)(*__LONG_IDEWX))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1031,"ide_methods.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_WINDOWSETTINGSSECTION,qbs_new_txt_len("IDE_Height",10),qbs_str((int32)(*__LONG_IDEWY))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1032,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDE2_LONG_RETVAL= 1 ; -if(!qbevent)break;evnt(26070,1035,"ide_methods.bas");}while(r); -do{ -sub__autodisplay(); -if(!qbevent)break;evnt(26070,1036,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=18; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_REDRAWITALL; -RETURN_18:; -if(!qbevent)break;evnt(26070,1037,"ide_methods.bas");}while(r); -} -}else{ -do{ -sub__autodisplay(); -if(!qbevent)break;evnt(26070,1040,"ide_methods.bas");}while(r); -} -S_37516:; -if ((-(*_FUNC_IDE2_LONG_SKIPDISPLAY== 0 ))||new_error){ -if(qbevent){evnt(26070,1043,"ide_methods.bas");if(r)goto S_37516;} -do{ -qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); -if(!qbevent)break;evnt(26070,1045,"ide_methods.bas");}while(r); -do{ -SUB_UPDATETITLEOFMAINWINDOW(); -if(!qbevent)break;evnt(26070,1048,"ide_methods.bas");}while(r); -S_37519:; -if ((*__BYTE_ENABLEQUICKNAV)||new_error){ -if(qbevent){evnt(26070,1051,"ide_methods.bas");if(r)goto S_37519;} -do{ -return_point[next_return_point++]=19; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_DRAWQUICKNAV; -RETURN_19:; -if(!qbevent)break;evnt(26070,1051,"ide_methods.bas");}while(r); -} -do{ -return_point[next_return_point++]=20; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_UPDATESEARCHBAR; -RETURN_20:; -if(!qbevent)break;evnt(26070,1054,"ide_methods.bas");}while(r); -S_37523:; -if ((*__INTEGER_IDEINSERT)||new_error){ -if(qbevent){evnt(26070,1057,"ide_methods.bas");if(r)goto S_37523;} -do{ -qbg_sub_locate(NULL,NULL,NULL, 0 , 31 ,24); -if(!qbevent)break;evnt(26070,1057,"ide_methods.bas");}while(r); -}else{ -do{ -qbg_sub_locate(NULL,NULL,NULL,*__LONG_IDENORMALCURSORSTART,*__LONG_IDENORMALCURSOREND,24); -if(!qbevent)break;evnt(26070,1057,"ide_methods.bas");}while(r); -} -S_37528:; -if ((*_FUNC_IDE2_LONG_FAILED)||new_error){ -if(qbevent){evnt(26070,1060,"ide_methods.bas");if(r)goto S_37528;} -S_37529:; -if (((-(*__BYTE_IDESHOWERRORSIMMEDIATELY!= 0 ))|(-(*_FUNC_IDE2_BYTE_IDECOMPILATIONREQUESTED!= 0 ))|(-(*__LONG_COMPFAILED!= 0 )))||new_error){ -if(qbevent){evnt(26070,1061,"ide_methods.bas");if(r)goto S_37529;} -S_37530:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(__STRING_IDEINFO, 19 ),qbs_new_txt_len("Selection length = ",19))))||new_error){ -if(qbevent){evnt(26070,1062,"ide_methods.bas");if(r)goto S_37530;} -do{ -qbs_set(__STRING_IDEINFO,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1062,"ide_methods.bas");}while(r); -} -do{ -SUB_UPDATEIDEINFO(); -if(!qbevent)break;evnt(26070,1063,"ide_methods.bas");}while(r); -S_37534:; -if ((-(*__LONG_IDEAUTOLAYOUT!= 0 ))||new_error){ -if(qbevent){evnt(26070,1064,"ide_methods.bas");if(r)goto S_37534;} -do{ -tmp_long=array_check(( 1 )-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_FILEMENUEXPORTAS)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(qbs_new_txt_len("#Export As... ",15),func_chr( 16 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1064,"ide_methods.bas");}while(r); -} -do{ -SUB_CLEARSTATUSWINDOW(&(pass4078= 0 )); -if(!qbevent)break;evnt(26070,1066,"ide_methods.bas");}while(r); -S_37538:; -if ((*__LONG_COMPFAILED)||new_error){ -if(qbevent){evnt(26070,1068,"ide_methods.bas");if(r)goto S_37538;} -do{ -qbs_set(_FUNC_IDE2_STRING_A,func_mid(_FUNC_IDE2_STRING_C, 2 ,_FUNC_IDE2_STRING_C->len- 5 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1069,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_X= 2 ; -if(!qbevent)break;evnt(26070,1070,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_Y=*__LONG_IDEWY- 3 ; -if(!qbevent)break;evnt(26070,1071,"ide_methods.bas");}while(r); -do{ -SUB_PRINTWRAPSTATUS(&(pass4080=*_FUNC_IDE2_LONG_X),&(pass4081=*_FUNC_IDE2_LONG_Y),&(pass4082=*_FUNC_IDE2_LONG_X),_FUNC_IDE2_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1072,"ide_methods.bas");}while(r); -do{ -*__INTEGER_STATUSAREALINK= 1 ; -if(!qbevent)break;evnt(26070,1073,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDE2_STRING_A,func_mid(_FUNC_IDE2_STRING_C, 2 ,_FUNC_IDE2_STRING_C->len- 5 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1075,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_L=string2l(qbs_right(_FUNC_IDE2_STRING_C, 4 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1077,"ide_methods.bas");}while(r); -S_37547:; -if ((-(*_FUNC_IDE2_LONG_L!= 0 ))||new_error){ -if(qbevent){evnt(26070,1077,"ide_methods.bas");if(r)goto S_37547;} -do{ -*__LONG_IDEFOCUSLINE=*_FUNC_IDE2_LONG_L; -if(!qbevent)break;evnt(26070,1077,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDE2_LONG_X= 2 ; -if(!qbevent)break;evnt(26070,1079,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_Y=*__LONG_IDEWY- 3 ; -if(!qbevent)break;evnt(26070,1080,"ide_methods.bas");}while(r); -S_37552:; -if (((-(*_FUNC_IDE2_LONG_L!= 0 ))&(-(*__LONG_IDECY==*_FUNC_IDE2_LONG_L)))||new_error){ -if(qbevent){evnt(26070,1082,"ide_methods.bas");if(r)goto S_37552;} -do{ -*_FUNC_IDE2_LONG_ONCURRENTLINE=_FUNC_IDE2_STRING_A->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1082,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(_FUNC_IDE2_STRING_A,func_chr( 1 )),qbs_new_txt_len(" on current line",16))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1082,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDE2_LONG_HASREFERENCE=func_instr(NULL,_FUNC_IDE2_STRING_A,qbs_new_txt_len(" - Reference: ",14),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1084,"ide_methods.bas");}while(r); -S_37557:; -if ((*_FUNC_IDE2_LONG_HASREFERENCE)||new_error){ -if(qbevent){evnt(26070,1085,"ide_methods.bas");if(r)goto S_37557;} -do{ -*_FUNC_IDE2_LONG_HASREFERENCE=*_FUNC_IDE2_LONG_HASREFERENCE+ 13 ; -if(!qbevent)break;evnt(26070,1086,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(qbs_left(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_HASREFERENCE),func_chr( 2 )),func_mid(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_HASREFERENCE+ 1 ,NULL,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1087,"ide_methods.bas");}while(r); -}else{ -do{ -*_FUNC_IDE2_LONG_HASREFERENCE=func_instr(NULL,_FUNC_IDE2_STRING_A,qbs_new_txt_len("Expected ",9),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1089,"ide_methods.bas");}while(r); -S_37562:; -if ((*_FUNC_IDE2_LONG_HASREFERENCE)||new_error){ -if(qbevent){evnt(26070,1090,"ide_methods.bas");if(r)goto S_37562;} -do{ -*_FUNC_IDE2_LONG_HASREFERENCE=*_FUNC_IDE2_LONG_HASREFERENCE+ 8 ; -if(!qbevent)break;evnt(26070,1091,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(qbs_left(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_HASREFERENCE),func_chr( 2 )),func_mid(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_HASREFERENCE+ 1 ,NULL,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1092,"ide_methods.bas");}while(r); -} -} -do{ -SUB_PRINTWRAPSTATUS(&(pass4085=*_FUNC_IDE2_LONG_X),&(pass4086=*_FUNC_IDE2_LONG_Y),&(pass4087=*_FUNC_IDE2_LONG_X),_FUNC_IDE2_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1096,"ide_methods.bas");}while(r); -S_37568:; -if (((-(*_FUNC_IDE2_LONG_L!= 0 ))&(-(*__LONG_IDECY!=*_FUNC_IDE2_LONG_L)))||new_error){ -if(qbevent){evnt(26070,1098,"ide_methods.bas");if(r)goto S_37568;} -do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(qbs_new_txt_len(" on line",8),qbs_str((int32)(*_FUNC_IDE2_LONG_L))),qbs_new_txt_len(" (click here or Ctrl+Shift+G to jump there)",43))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1099,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 11 , 1 ,NULL,3); -if(!qbevent)break;evnt(26070,1100,"ide_methods.bas");}while(r); -do{ -SUB_PRINTWRAPSTATUS(&(pass4088=func_pos( 0 )),&(pass4089=func_csrlin()),&(pass4090= 2 ),_FUNC_IDE2_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1101,"ide_methods.bas");}while(r); -do{ -*__INTEGER_STATUSAREALINK= 2 ; -if(!qbevent)break;evnt(26070,1102,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDE2_LONG_Y=func_csrlin(); -if(!qbevent)break;evnt(26070,1105,"ide_methods.bas");}while(r); -S_37575:; -if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_IDE2_LONG_Y<(*__LONG_IDEWY- 1 )))&(qbs_notequal(__STRING_LINEFRAGMENT,qbs_new_txt_len("[INFORMATION UNAVAILABLE]",25)))))||new_error){ -if(qbevent){evnt(26070,1106,"ide_methods.bas");if(r)goto S_37575;} -do{ -qbs_set(_FUNC_IDE2_STRING_TEMP,__STRING_LINEFRAGMENT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1107,"ide_methods.bas");}while(r); -S_37577:; -fornext_value4092= 1 ; -fornext_finalvalue4092=_FUNC_IDE2_STRING_TEMP->len; -fornext_step4092= 1 ; -if (fornext_step4092<0) fornext_step_negative4092=1; else fornext_step_negative4092=0; -if (new_error) goto fornext_error4092; -goto fornext_entrylabel4092; -while(1){ -fornext_value4092=fornext_step4092+(*_FUNC_IDE2_LONG_I); -fornext_entrylabel4092: -*_FUNC_IDE2_LONG_I=fornext_value4092; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative4092){ -if (fornext_value4092fornext_finalvalue4092) break; -} -fornext_error4092:; -if(qbevent){evnt(26070,1108,"ide_methods.bas");if(r)goto S_37577;} -S_37578:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_IDE2_STRING_TEMP,*_FUNC_IDE2_LONG_I, 1 ,0|1),__STRING1_SP)))||new_error){ -if(qbevent){evnt(26070,1109,"ide_methods.bas");if(r)goto S_37578;} -do{ -sub_mid(_FUNC_IDE2_STRING_TEMP,*_FUNC_IDE2_LONG_I, 1 ,qbs_new_txt_len(" ",1),1); -if(!qbevent)break;evnt(26070,1109,"ide_methods.bas");}while(r); -} -fornext_continue_4091:; -} -fornext_exit_4091:; -do{ -qbs_set(_FUNC_IDE2_STRING_TEMP,qbs__trim(_FUNC_IDE2_STRING_TEMP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1111,"ide_methods.bas");}while(r); -S_37583:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_TEMP->len))||new_error){ -if(qbevent){evnt(26070,1112,"ide_methods.bas");if(r)goto S_37583;} -do{ -*_FUNC_IDE2_LONG_Y=*_FUNC_IDE2_LONG_Y+ 1 ; -if(!qbevent)break;evnt(26070,1113,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_X= 1 ; -if(!qbevent)break;evnt(26070,1113,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_TEMP,qbs_add(qbs_add(qbs_new_txt_len("Caused by (or after): ",22),func_chr( 1 )),_FUNC_IDE2_STRING_TEMP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1114,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 7 , 1 ,NULL,3); -if(!qbevent)break;evnt(26070,1116,"ide_methods.bas");}while(r); -S_37588:; -fornext_value4096= 1 ; -fornext_finalvalue4096=_FUNC_IDE2_STRING_TEMP->len; -fornext_step4096= 1 ; -if (fornext_step4096<0) fornext_step_negative4096=1; else fornext_step_negative4096=0; -if (new_error) goto fornext_error4096; -goto fornext_entrylabel4096; -while(1){ -fornext_value4096=fornext_step4096+(*_FUNC_IDE2_LONG_I); -fornext_entrylabel4096: -*_FUNC_IDE2_LONG_I=fornext_value4096; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative4096){ -if (fornext_value4096fornext_finalvalue4096) break; -} -fornext_error4096:; -if(qbevent){evnt(26070,1117,"ide_methods.bas");if(r)goto S_37588;} -do{ -*_FUNC_IDE2_LONG_X=*_FUNC_IDE2_LONG_X+ 1 ; -if(!qbevent)break;evnt(26070,1118,"ide_methods.bas");}while(r); -S_37590:; -if ((-(*_FUNC_IDE2_LONG_X==*__LONG_IDEWX))||new_error){ -if(qbevent){evnt(26070,1118,"ide_methods.bas");if(r)goto S_37590;} -do{ -*_FUNC_IDE2_LONG_X= 2 ; -if(!qbevent)break;evnt(26070,1118,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_Y=*_FUNC_IDE2_LONG_Y+ 1 ; -if(!qbevent)break;evnt(26070,1118,"ide_methods.bas");}while(r); -} -S_37594:; -if ((-(*_FUNC_IDE2_LONG_Y>(*__LONG_IDEWY- 1 )))||new_error){ -if(qbevent){evnt(26070,1119,"ide_methods.bas");if(r)goto S_37594;} -do{ -goto fornext_exit_4095; -if(!qbevent)break;evnt(26070,1119,"ide_methods.bas");}while(r); -} -S_37597:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_IDE2_STRING_TEMP,*_FUNC_IDE2_LONG_I)== 1 )))||new_error){ -if(qbevent){evnt(26070,1120,"ide_methods.bas");if(r)goto S_37597;} -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,1120,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 11 , 1 ,NULL,3); -if(!qbevent)break;evnt(26070,1120,"ide_methods.bas");}while(r); -} -do{ -sub__printstring(*_FUNC_IDE2_LONG_X,*_FUNC_IDE2_LONG_Y,func_chr(qbs_asc(_FUNC_IDE2_STRING_TEMP,*_FUNC_IDE2_LONG_I)),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1121,"ide_methods.bas");}while(r); -fornext_continue_4095:; -} -fornext_exit_4095:; -} -} -} -} -} -S_37608:; -if ((*__INTEGER_IDECHANGEMADE)||new_error){ -if(qbevent){evnt(26070,1130,"ide_methods.bas");if(r)goto S_37608;} -S_37609:; -if ((*__BYTE_IDESHOWERRORSIMMEDIATELY|*_FUNC_IDE2_BYTE_IDECOMPILATIONREQUESTED)||new_error){ -if(qbevent){evnt(26070,1131,"ide_methods.bas");if(r)goto S_37609;} -do{ -SUB_CLEARSTATUSWINDOW(&(pass4098= 0 )); -if(!qbevent)break;evnt(26070,1132,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_IDEINFO,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1133,"ide_methods.bas");}while(r); -do{ -sub__printstring( 2 ,*__LONG_IDEWY- 3 ,func_string( 3 , 250 ),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1134,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check(( 1 )-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_FILEMENUEXPORTAS)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(qbs_new_txt_len("~#Export As... ",16),func_chr( 16 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1135,"ide_methods.bas");}while(r); -} -} -do{ -SUB_IDESHOWTEXT(); -if(!qbevent)break;evnt(26070,1139,"ide_methods.bas");}while(r); -S_37617:; -if ((*__LONG_IDEHELP)||new_error){ -if(qbevent){evnt(26070,1141,"ide_methods.bas");if(r)goto S_37617;} -do{ -SUB_HELP_SHOWTEXT(); -if(!qbevent)break;evnt(26070,1146,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_Q=FUNC_IDEHBAR(&(pass4099= 2 ),&(pass4100=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 1 ),&(pass4101=*__LONG_IDEWX- 2 ),__LONG_HELP_CX,&(pass4102=*__LONG_HELP_W+ 1 )); -if(!qbevent)break;evnt(26070,1148,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_Q=FUNC_IDEVBAR(__LONG_IDEWX,&(pass4103=*__LONG_IDEWY+ 1 ),&(pass4104=*__LONG_IDESUBWINDOW- 2 ),__LONG_HELP_CY,&(pass4105=*__LONG_HELP_H+ 1 )); -if(!qbevent)break;evnt(26070,1149,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=21; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_HELPAREASHOWBACKLINKS; -RETURN_21:; -if(!qbevent)break;evnt(26070,1153,"ide_methods.bas");}while(r); -S_37622:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_IDESYSTEM== 3 ))&(qbs_notequal(qbs_left(__STRING_IDEINFO, 1 ),func_chr( 0 )))))||new_error){ -if(qbevent){evnt(26070,1156,"ide_methods.bas");if(r)goto S_37622;} -do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1157,"ide_methods.bas");}while(r); -S_37624:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_HELP_SEARCH_STR->len))||new_error){ -if(qbevent){evnt(26070,1158,"ide_methods.bas");if(r)goto S_37624;} -do{ -qbs_set(_FUNC_IDE2_STRING_A,__STRING_HELP_SEARCH_STR); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1159,"ide_methods.bas");}while(r); -S_37626:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDE2_STRING_A->len> 20 )))||new_error){ -if(qbevent){evnt(26070,1160,"ide_methods.bas");if(r)goto S_37626;} -do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_add(func_string( 3 , 250 ),qbs_right(_FUNC_IDE2_STRING_A, 17 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1160,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(qbs_new_txt_len("[",1),_FUNC_IDE2_STRING_A),qbs_new_txt_len("] (TAB=next)",12))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1161,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_IDEINFO,_FUNC_IDE2_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1162,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(__STRING_IDEINFO,qbs_new_txt_len("Start typing to search for text in this help page",49)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1164,"ide_methods.bas");}while(r); -} -do{ -SUB_UPDATEIDEINFO(); -if(!qbevent)break;evnt(26070,1166,"ide_methods.bas");}while(r); -} -}else{ -do{ -qbs_set(__STRING_HELP_SEARCH_STR,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1169,"ide_methods.bas");}while(r); -} -S_37639:; -if ((-(*__LONG_IDESYSTEM== 2 ))||new_error){ -if(qbevent){evnt(26070,1172,"ide_methods.bas");if(r)goto S_37639;} -do{ -qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,1173,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_TX=*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1; -if(!qbevent)break;evnt(26070,1174,"ide_methods.bas");}while(r); -S_37642:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_IDEFINDTEXT->len> 20 )))||new_error){ -if(qbevent){evnt(26070,1175,"ide_methods.bas");if(r)goto S_37642;} -S_37643:; -if ((-(*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1> 20 ))||new_error){ -if(qbevent){evnt(26070,1176,"ide_methods.bas");if(r)goto S_37643;} -do{ -*_FUNC_IDE2_LONG_TX= 20 ; -if(!qbevent)break;evnt(26070,1177,"ide_methods.bas");}while(r); -}else{ -do{ -*_FUNC_IDE2_LONG_TX=*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1; -if(!qbevent)break;evnt(26070,1179,"ide_methods.bas");}while(r); -} -} -do{ -qbg_sub_locate(*__LONG_IDEWY- 4 ,*__LONG_IDEWX-( 20 + 8 )+ 4 +*_FUNC_IDE2_LONG_TX,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(26070,1182,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,1183,"ide_methods.bas");}while(r); -} -S_37652:; -if ((-(*__LONG_IDESYSTEM== 3 ))||new_error){ -if(qbevent){evnt(26070,1186,"ide_methods.bas");if(r)goto S_37652;} -do{ -qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,1187,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*__LONG_HELP_CY-*__LONG_HELP_SY+*__LONG_HELP_WY1,*__LONG_HELP_CX-*__LONG_HELP_SX+*__LONG_HELP_WX1,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(26070,1188,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,1189,"ide_methods.bas");}while(r); -} -do{ -qbg_sub_locate(NULL,NULL, 1 ,NULL,NULL,4); -if(!qbevent)break;evnt(26070,1192,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,1195,"ide_methods.bas");}while(r); -} -S_37660:; -if ((-(*__BYTE_WHITELISTQB64FIRSTTIMEMSG== 0 ))||new_error){ -if(qbevent){evnt(26070,1199,"ide_methods.bas");if(r)goto S_37660;} -S_37661:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)))||new_error){ -if(qbevent){evnt(26070,1200,"ide_methods.bas");if(r)goto S_37661;} -do{ -qbs_set(_FUNC_IDE2_STRING_WHITELISTPROCESS,qbs_new_txt_len("and the process 'qb64pe.exe' ",29)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1200,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDE2_STRING_WHITELISTPROCESS,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1200,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDE2_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Welcome to QB64-PE",18),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("QB64-PE is an independently distributed program, and as such",60),func_chr( 10 )),qbs_new_txt_len("both 'qb64pe",12)),__STRING_EXTENSION),qbs_new_txt_len("' and the programs you create with it may",41)),func_chr( 10 )),qbs_new_txt_len("eventually be flagged as false positives by your",48)),func_chr( 10 )),qbs_new_txt_len("antivirus/antimalware software.",31)),func_chr( 10 )),func_chr( 10 )),qbs_new_txt_len("It is advisable to whitelist your whole 'qb64pe' folder",55)),func_chr( 10 )),_FUNC_IDE2_STRING_WHITELISTPROCESS),qbs_new_txt_len("to avoid operation errors.",26)),qbs_new_txt_len("#OK;#Don't show this again",26)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1206,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,1208,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,1208,"ide_methods.bas");}while(r); -S_37669:; -if ((-(*_FUNC_IDE2_LONG_RESULT== 2 ))||new_error){ -if(qbevent){evnt(26070,1209,"ide_methods.bas");if(r)goto S_37669;} -do{ -SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("WhiteListQB64FirstTimeMsg",25),qbs_new_txt_len("True",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1210,"ide_methods.bas");}while(r); -} -do{ -*__BYTE_WHITELISTQB64FIRSTTIMEMSG= -1 ; -if(!qbevent)break;evnt(26070,1212,"ide_methods.bas");}while(r); -} -S_37674:; -if ((*__INTEGER_IDECHANGEMADE)||new_error){ -if(qbevent){evnt(26070,1215,"ide_methods.bas");if(r)goto S_37674;} -S_37675:; -if ((*__LONG_IDELAYOUTALLOW)||new_error){ -if(qbevent){evnt(26070,1217,"ide_methods.bas");if(r)goto S_37675;} -do{ -*__LONG_IDELAYOUTALLOW=*__LONG_IDELAYOUTALLOW- 1 ; -if(!qbevent)break;evnt(26070,1217,"ide_methods.bas");}while(r); -} -do{ -qbs_set(__STRING_WATCHPOINTLIST,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1219,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECURRENTLINELAYOUTI= 0 ; -if(!qbevent)break;evnt(26070,1220,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEFOCUSLINE= 0 ; -if(!qbevent)break;evnt(26070,1221,"ide_methods.bas");}while(r); -do{ -*__INTEGER_IDECHANGEMADE= 0 ; -if(!qbevent)break;evnt(26070,1222,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_BYTE_IDECOMPILATIONREQUESTED= 0 ; -if(!qbevent)break;evnt(26070,1223,"ide_methods.bas");}while(r); -do{ -*__LONG_COMPFAILED= 0 ; -if(!qbevent)break;evnt(26070,1224,"ide_methods.bas");}while(r); -S_37684:; -if ((-(*__LONG_IDEUNSAVED== -1 ))||new_error){ -if(qbevent){evnt(26070,1225,"ide_methods.bas");if(r)goto S_37684;} -do{ -*__LONG_IDEUNSAVED= 0 ; -if(!qbevent)break;evnt(26070,1225,"ide_methods.bas");}while(r); -}else{ -do{ -*__LONG_IDEUNSAVED= 1 ; -if(!qbevent)break;evnt(26070,1225,"ide_methods.bas");}while(r); -} -S_37689:; -if ((-(*__LONG_IDENOUNDO== 0 ))||new_error){ -if(qbevent){evnt(26070,1227,"ide_methods.bas");if(r)goto S_37689;} -do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1231,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(_FUNC_IDE2_STRING_A,l2string(*__LONG_IDESX)),l2string(*__LONG_IDESY))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1232,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(_FUNC_IDE2_STRING_A,l2string(*__LONG_IDECX)),l2string(*__LONG_IDECY))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1233,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(qbs_add(_FUNC_IDE2_STRING_A,l2string(*__LONG_IDESELECT)),l2string(*__LONG_IDESELECTX1)),l2string(*__LONG_IDESELECTY1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1234,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_add(_FUNC_IDE2_STRING_A,l2string(*__LONG_IDEN))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1235,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_add(_FUNC_IDE2_STRING_A,l2string(*__LONG_IDEL))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1236,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_add(_FUNC_IDE2_STRING_A,l2string(*__LONG_IDELI))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1237,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_add(_FUNC_IDE2_STRING_A,l2string(*__LONG_IDEBMKN))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1239,"ide_methods.bas");}while(r); -S_37698:; -fornext_value4110= 1 ; -fornext_finalvalue4110=*__LONG_IDEBMKN; -fornext_step4110= 1 ; -if (fornext_step4110<0) fornext_step_negative4110=1; else fornext_step_negative4110=0; -if (new_error) goto fornext_error4110; -goto fornext_entrylabel4110; -while(1){ -fornext_value4110=fornext_step4110+(*_FUNC_IDE2_LONG_BI); -fornext_entrylabel4110: -*_FUNC_IDE2_LONG_BI=fornext_value4110; -if (fornext_step_negative4110){ -if (fornext_value4110fornext_finalvalue4110) break; -} -fornext_error4110:; -if(qbevent){evnt(26070,1240,"ide_methods.bas");if(r)goto S_37698;} -do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(_FUNC_IDE2_STRING_A,l2string(*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_FUNC_IDE2_LONG_BI)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16)))),l2string(*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_FUNC_IDE2_LONG_BI)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16+4))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1240,"ide_methods.bas");}while(r); -fornext_continue_4109:; -} -fornext_exit_4109:; -do{ -*_FUNC_IDE2_LONG_L=__STRING_IDET->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1241,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_add(_FUNC_IDE2_STRING_A,l2string(*_FUNC_IDE2_LONG_L))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1242,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(qbs_add(l2string(*_FUNC_IDE2_LONG_L+_FUNC_IDE2_STRING_A->len),_FUNC_IDE2_STRING_A),__STRING_IDET),l2string(*_FUNC_IDE2_LONG_L+_FUNC_IDE2_STRING_A->len))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1243,"ide_methods.bas");}while(r); -do{ -sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("undo2.bin",9)), 2 ,NULL,NULL, 150 ,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1247,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_H,func_space( 12 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1249,"ide_methods.bas");}while(r); -do{ -sub_get2( 150 ,NULL,_FUNC_IDE2_STRING_H,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1249,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_P1=string2l(func_mid(_FUNC_IDE2_STRING_H, 1 , 4 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1249,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_P2=string2l(func_mid(_FUNC_IDE2_STRING_H, 5 , 4 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1249,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_PLAST=string2l(func_mid(_FUNC_IDE2_STRING_H, 9 , 4 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1249,"ide_methods.bas");}while(r); -S_37710:; -if ((*__LONG_IDEMERGEUNDO)||new_error){ -if(qbevent){evnt(26070,1251,"ide_methods.bas");if(r)goto S_37710;} -do{ -*__LONG_IDEMERGEUNDO= 0 ; -if(!qbevent)break;evnt(26070,1252,"ide_methods.bas");}while(r); -S_37712:; -if ((-(*_FUNC_IDE2_LONG_P2!=*_FUNC_IDE2_LONG_P1))||new_error){ -if(qbevent){evnt(26070,1253,"ide_methods.bas");if(r)goto S_37712;} -S_37713:; -if ((-(*_FUNC_IDE2_LONG_P2== 13 ))||new_error){ -if(qbevent){evnt(26070,1254,"ide_methods.bas");if(r)goto S_37713;} -do{ -*_FUNC_IDE2_LONG_P2=*_FUNC_IDE2_LONG_PLAST; -if(!qbevent)break;evnt(26070,1255,"ide_methods.bas");}while(r); -}else{ -do{ -sub_get( 150 ,*_FUNC_IDE2_LONG_P2- 4 ,byte_element((uint64)_FUNC_IDE2_LONG_PP2L,4,byte_element_4114),1); -if(!qbevent)break;evnt(26070,1258,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_P2=*_FUNC_IDE2_LONG_P2- 4 -*_FUNC_IDE2_LONG_PP2L- 4 ; -if(!qbevent)break;evnt(26070,1259,"ide_methods.bas");}while(r); -} -} -} -S_37721:; -if ((-(*_FUNC_IDE2_LONG_P1== 0 ))||new_error){ -if(qbevent){evnt(26070,1264,"ide_methods.bas");if(r)goto S_37721;} -do{ -*_FUNC_IDE2_LONG_P1= 13 ; -if(!qbevent)break;evnt(26070,1265,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_P2= 13 ; -if(!qbevent)break;evnt(26070,1265,"ide_methods.bas");}while(r); -}else{ -S_37725:; -if ((-(*_FUNC_IDE2_LONG_P2>=*_FUNC_IDE2_LONG_P1))||new_error){ -if(qbevent){evnt(26070,1267,"ide_methods.bas");if(r)goto S_37725;} -S_37726:; -if ((-(*_FUNC_IDE2_LONG_P2>=(*__LONG_IDEBACKUPSIZE* 1000000 )))||new_error){ -if(qbevent){evnt(26070,1270,"ide_methods.bas");if(r)goto S_37726;} -do{ -*_FUNC_IDE2_LONG_PLAST=*_FUNC_IDE2_LONG_P2; -if(!qbevent)break;evnt(26070,1273,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_P2= 13 ; -if(!qbevent)break;evnt(26070,1274,"ide_methods.bas");}while(r); -S_37729:; -while((qbs_cleanup(qbs_tmp_base,-((*_FUNC_IDE2_LONG_P2+_FUNC_IDE2_STRING_A->len- 1 )>=*_FUNC_IDE2_LONG_P1)))||new_error){ -if(qbevent){evnt(26070,1276,"ide_methods.bas");if(r)goto S_37729;} -S_37730:; -if ((-(*_FUNC_IDE2_LONG_P1==*__LONG_IDEUNDOBASE))||new_error){ -if(qbevent){evnt(26070,1277,"ide_methods.bas");if(r)goto S_37730;} -do{ -*__LONG_IDEUNDOBASE= -1 ; -if(!qbevent)break;evnt(26070,1277,"ide_methods.bas");}while(r); -} -do{ -sub_get( 150 ,*_FUNC_IDE2_LONG_P1,byte_element((uint64)_FUNC_IDE2_LONG_P1L,4,byte_element_4117),1); -if(!qbevent)break;evnt(26070,1280,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_P1=*_FUNC_IDE2_LONG_P1+ 4 +*_FUNC_IDE2_LONG_P1L+ 4 ; -if(!qbevent)break;evnt(26070,1281,"ide_methods.bas");}while(r); -dl_continue_4116:; -} -dl_exit_4116:; -}else{ -do{ -sub_get( 150 ,*_FUNC_IDE2_LONG_P2,byte_element((uint64)_FUNC_IDE2_LONG_P2L,4,byte_element_4118),1); -if(!qbevent)break;evnt(26070,1287,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_P2=*_FUNC_IDE2_LONG_P2+ 4 +*_FUNC_IDE2_LONG_P2L+ 4 ; -if(!qbevent)break;evnt(26070,1288,"ide_methods.bas");}while(r); -} -}else{ -do{ -sub_get( 150 ,*_FUNC_IDE2_LONG_P2,byte_element((uint64)_FUNC_IDE2_LONG_P2L,4,byte_element_4119),1); -if(!qbevent)break;evnt(26070,1294,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_OP2=*_FUNC_IDE2_LONG_P2; -if(!qbevent)break;evnt(26070,1295,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_P2=*_FUNC_IDE2_LONG_P2+ 4 +*_FUNC_IDE2_LONG_P2L+ 4 ; -if(!qbevent)break;evnt(26070,1296,"ide_methods.bas");}while(r); -S_37744:; -while((qbs_cleanup(qbs_tmp_base,-((*_FUNC_IDE2_LONG_P2+_FUNC_IDE2_STRING_A->len- 1 )>=*_FUNC_IDE2_LONG_P1)))||new_error){ -if(qbevent){evnt(26070,1298,"ide_methods.bas");if(r)goto S_37744;} -S_37745:; -if ((-(*_FUNC_IDE2_LONG_P1==*__LONG_IDEUNDOBASE))||new_error){ -if(qbevent){evnt(26070,1299,"ide_methods.bas");if(r)goto S_37745;} -do{ -*__LONG_IDEUNDOBASE= -1 ; -if(!qbevent)break;evnt(26070,1299,"ide_methods.bas");}while(r); -} -S_37748:; -if ((-(*_FUNC_IDE2_LONG_P1==*_FUNC_IDE2_LONG_PLAST))||new_error){ -if(qbevent){evnt(26070,1301,"ide_methods.bas");if(r)goto S_37748;} -do{ -*_FUNC_IDE2_LONG_P1= 13 ; -if(!qbevent)break;evnt(26070,1302,"ide_methods.bas");}while(r); -do{ -goto dl_exit_4121; -if(!qbevent)break;evnt(26070,1303,"ide_methods.bas");}while(r); -}else{ -do{ -sub_get( 150 ,*_FUNC_IDE2_LONG_P1,byte_element((uint64)_FUNC_IDE2_LONG_P1L,4,byte_element_4122),1); -if(!qbevent)break;evnt(26070,1305,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_P1=*_FUNC_IDE2_LONG_P1+ 4 +*_FUNC_IDE2_LONG_P1L+ 4 ; -if(!qbevent)break;evnt(26070,1306,"ide_methods.bas");}while(r); -} -dl_continue_4121:; -} -dl_exit_4121:; -S_37756:; -if ((-(*_FUNC_IDE2_LONG_P2>=(*__LONG_IDEBACKUPSIZE* 1000000 )))||new_error){ -if(qbevent){evnt(26070,1310,"ide_methods.bas");if(r)goto S_37756;} -do{ -*_FUNC_IDE2_LONG_PLAST=*_FUNC_IDE2_LONG_OP2; -if(!qbevent)break;evnt(26070,1313,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_P2= 13 ; -if(!qbevent)break;evnt(26070,1314,"ide_methods.bas");}while(r); -S_37759:; -while((qbs_cleanup(qbs_tmp_base,-((*_FUNC_IDE2_LONG_P2+_FUNC_IDE2_STRING_A->len- 1 )>=*_FUNC_IDE2_LONG_P1)))||new_error){ -if(qbevent){evnt(26070,1316,"ide_methods.bas");if(r)goto S_37759;} -S_37760:; -if ((-(*_FUNC_IDE2_LONG_P1==*__LONG_IDEUNDOBASE))||new_error){ -if(qbevent){evnt(26070,1317,"ide_methods.bas");if(r)goto S_37760;} -do{ -*__LONG_IDEUNDOBASE= -1 ; -if(!qbevent)break;evnt(26070,1317,"ide_methods.bas");}while(r); -} -do{ -sub_get( 150 ,*_FUNC_IDE2_LONG_P1,byte_element((uint64)_FUNC_IDE2_LONG_P1L,4,byte_element_4125),1); -if(!qbevent)break;evnt(26070,1320,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_P1=*_FUNC_IDE2_LONG_P1+ 4 +*_FUNC_IDE2_LONG_P1L+ 4 ; -if(!qbevent)break;evnt(26070,1321,"ide_methods.bas");}while(r); -dl_continue_4124:; -} -dl_exit_4124:; -} -} -} -do{ -qbs_set(_FUNC_IDE2_STRING_H,qbs_add(qbs_add(l2string(*_FUNC_IDE2_LONG_P1),l2string(*_FUNC_IDE2_LONG_P2)),l2string(*_FUNC_IDE2_LONG_PLAST))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1329,"ide_methods.bas");}while(r); -do{ -sub_put2( 150 , 1 ,byte_element((uint64)_FUNC_IDE2_STRING_H->chr,_FUNC_IDE2_STRING_H->len,byte_element_4126),1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1330,"ide_methods.bas");}while(r); -do{ -sub_put2( 150 ,*_FUNC_IDE2_LONG_P2,byte_element((uint64)_FUNC_IDE2_STRING_A->chr,_FUNC_IDE2_STRING_A->len,byte_element_4127),1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1333,"ide_methods.bas");}while(r); -do{ -sub_close( 150 ,1); -if(!qbevent)break;evnt(26070,1335,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEUNDOPOS=*_FUNC_IDE2_LONG_P2; -if(!qbevent)break;evnt(26070,1337,"ide_methods.bas");}while(r); -S_37774:; -if ((-(*__LONG_IDEUNDOBASE== 0 ))||new_error){ -if(qbevent){evnt(26070,1338,"ide_methods.bas");if(r)goto S_37774;} -do{ -*__LONG_IDEUNDOBASE=*__LONG_IDEUNDOPOS; -if(!qbevent)break;evnt(26070,1338,"ide_methods.bas");}while(r); -} -S_37777:; -if ((-(*__LONG_IDEUNDOFLAG== 0 ))||new_error){ -if(qbevent){evnt(26070,1343,"ide_methods.bas");if(r)goto S_37777;} -do{ -*__LONG_IDEUNDOFLAG= 1 ; -if(!qbevent)break;evnt(26070,1344,"ide_methods.bas");}while(r); -do{ -sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("autosave.bin",12)), 2 ,NULL,NULL, 150 ,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1345,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_A,func_chr( 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1345,"ide_methods.bas");}while(r); -do{ -sub_put2( 150 ,NULL,byte_element((uint64)_FUNC_IDE2_STRING_A->chr,_FUNC_IDE2_STRING_A->len,byte_element_4128),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1345,"ide_methods.bas");}while(r); -do{ -sub_close( 150 ,1); -if(!qbevent)break;evnt(26070,1345,"ide_methods.bas");}while(r); -} -}else{ -do{ -*__LONG_IDENOUNDO= 0 ; -if(!qbevent)break;evnt(26070,1349,"ide_methods.bas");}while(r); -} -S_37787:; -if ((-(*__LONG_IDEBUILDMODECHANGED== 0 ))||new_error){ -if(qbevent){evnt(26070,1353,"ide_methods.bas");if(r)goto S_37787;} -do{ -*__LONG_IDEAUTORUN= 0 ; -if(!qbevent)break;evnt(26070,1354,"ide_methods.bas");}while(r); -} -do{ -*__LONG_IDEBUILDMODECHANGED= 0 ; -if(!qbevent)break;evnt(26070,1356,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECOMPILING= 1 ; -if(!qbevent)break;evnt(26070,1358,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_IDE2= 2 ; -if(!qbevent)break;evnt(26070,1359,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_IDECOMPILEDLINE,FUNC_IDEGETLINE(&(pass4129= 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1360,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_IDERETURN,__STRING_IDECOMPILEDLINE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1361,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECOMPILEDLINE= 1 ; -if(!qbevent)break;evnt(26070,1362,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,1363,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDE2_LONG_CHANGE= 0 ; -if(!qbevent)break;evnt(26070,1367,"ide_methods.bas");}while(r); -LABEL_WAITFORINPUT:; -if(qbevent){evnt(26070,1368,"ide_methods.bas");r=0;} -S_37799:; -if ((*__BYTE_STARTPAUSEDPENDING)||new_error){ -if(qbevent){evnt(26070,1369,"ide_methods.bas");if(r)goto S_37799;} -do{ -goto LABEL_IDEMRUN; -if(!qbevent)break;evnt(26070,1369,"ide_methods.bas");}while(r); -} -S_37802:; -if ((*__LONG_IDECURRENTLINELAYOUTI)||new_error){ -if(qbevent){evnt(26070,1370,"ide_methods.bas");if(r)goto S_37802;} -S_37803:; -if ((-(*__LONG_IDECY!=*__LONG_IDECURRENTLINELAYOUTI))||new_error){ -if(qbevent){evnt(26070,1371,"ide_methods.bas");if(r)goto S_37803;} -do{ -SUB_IDESETLINE(__LONG_IDECURRENTLINELAYOUTI,__STRING_IDECURRENTLINELAYOUT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1372,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECURRENTLINELAYOUTI= 0 ; -if(!qbevent)break;evnt(26070,1373,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,1374,"ide_methods.bas");}while(r); -} -} -do{ -*_FUNC_IDE2_LONG_EXITVALUE=func__exit(); -if(!qbevent)break;evnt(26070,1378,"ide_methods.bas");}while(r); -S_37810:; -if (((-((*_FUNC_IDE2_LONG_EXITVALUE& 1 )!= 0 ))|(-(*__LONG_IDEEXIT!= 0 )))||new_error){ -if(qbevent){evnt(26070,1379,"ide_methods.bas");if(r)goto S_37810;} -do{ -*__LONG_IDEEXIT= 0 ; -if(!qbevent)break;evnt(26070,1379,"ide_methods.bas");}while(r); -do{ -goto LABEL_QUICKEXIT; -if(!qbevent)break;evnt(26070,1379,"ide_methods.bas");}while(r); -} -do{ -SUB_GETINPUT(); -if(!qbevent)break;evnt(26070,1381,"ide_methods.bas");}while(r); -S_37815:; -if ((*__LONG_ICHANGED)||new_error){ -if(qbevent){evnt(26070,1382,"ide_methods.bas");if(r)goto S_37815;} -do{ -if(!qbevent)break;evnt(26070,1383,"ide_methods.bas");}while(r); -S_37817:; -if (((((-(*__LONG_MX!=*_FUNC_IDE2_LONG_MOX))|(-(*__LONG_MY!=*_FUNC_IDE2_LONG_MOY))))&(-(*__LONG_MB!= 0 )))||new_error){ -if(qbevent){evnt(26070,1384,"ide_methods.bas");if(r)goto S_37817;} -do{ -*_FUNC_IDE2_LONG_MOX=*__LONG_MX; -if(!qbevent)break;evnt(26070,1385,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_MOY=*__LONG_MY; -if(!qbevent)break;evnt(26070,1386,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,1387,"ide_methods.bas");}while(r); -} -S_37822:; -if ((-(*__LONG_MB!=*__LONG_MOB))||new_error){ -if(qbevent){evnt(26070,1389,"ide_methods.bas");if(r)goto S_37822;} -do{ -*_FUNC_IDE2_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,1389,"ide_methods.bas");}while(r); -} -S_37825:; -if ((-(*__LONG_MB2!=*__LONG_MOB2))||new_error){ -if(qbevent){evnt(26070,1390,"ide_methods.bas");if(r)goto S_37825;} -do{ -*_FUNC_IDE2_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,1390,"ide_methods.bas");}while(r); -} -S_37828:; -if (((-(*__LONG_MCLICK!= 0 ))|(-(*__LONG_MCLICK2!= 0 )))||new_error){ -if(qbevent){evnt(26070,1391,"ide_methods.bas");if(r)goto S_37828;} -do{ -*_FUNC_IDE2_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,1391,"ide_methods.bas");}while(r); -} -S_37831:; -if ((*__LONG_MWHEEL)||new_error){ -if(qbevent){evnt(26070,1392,"ide_methods.bas");if(r)goto S_37831;} -do{ -*_FUNC_IDE2_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,1392,"ide_methods.bas");}while(r); -} -S_37834:; -if ((*__LONG_KB)||new_error){ -if(qbevent){evnt(26070,1393,"ide_methods.bas");if(r)goto S_37834;} -do{ -*_FUNC_IDE2_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,1393,"ide_methods.bas");}while(r); -} -S_37837:; -if ((*__LONG_KSTATECHANGED)||new_error){ -if(qbevent){evnt(26070,1394,"ide_methods.bas");if(r)goto S_37837;} -do{ -*_FUNC_IDE2_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,1394,"ide_methods.bas");}while(r); -} -} -S_37841:; -if (((-(*__LONG_MB!= 0 ))&(-(*__LONG_IDEMBMONITOR== 1 )))||new_error){ -if(qbevent){evnt(26070,1396,"ide_methods.bas");if(r)goto S_37841;} -do{ -*_FUNC_IDE2_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,1396,"ide_methods.bas");}while(r); -} -S_37844:; -if ((-(*__LONG_MB== 0 ))||new_error){ -if(qbevent){evnt(26070,1397,"ide_methods.bas");if(r)goto S_37844;} -do{ -*__LONG_IDEMOUSESELECT= 0 ; -if(!qbevent)break;evnt(26070,1397,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEMBMONITOR= 0 ; -if(!qbevent)break;evnt(26070,1397,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_BYTE_WHOLEWORD__ASCII_CHR_046__SELECT= 0 ; -if(!qbevent)break;evnt(26070,1397,"ide_methods.bas");}while(r); -} -S_37849:; -if ((func__resize())||new_error){ -if(qbevent){evnt(26070,1399,"ide_methods.bas");if(r)goto S_37849;} -do{ -*_FUNC_IDE2_LONG_FORCERESIZE= -1 ; -if(!qbevent)break;evnt(26070,1400,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_SKIPDISPLAY= 0 ; -if(!qbevent)break;evnt(26070,1400,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,1400,"ide_methods.bas");}while(r); -} -S_37854:; -if ((*__BYTE_IDE_AUTOPOSITION)||new_error){ -if(qbevent){evnt(26070,1403,"ide_methods.bas");if(r)goto S_37854;} -S_37855:; -if (((-(*__INTEGER_IDE_TOPPOSITION!=func__screeny()))|(-(*__INTEGER_IDE_LEFTPOSITION!=func__screenx())))||new_error){ -if(qbevent){evnt(26070,1404,"ide_methods.bas");if(r)goto S_37855;} -S_37856:; -if (((-((func__screeny())>=((-(func__height(NULL,0)))*(func__fontheight(NULL,0)))))&(-((func__screenx())>=((-(func__width(NULL,0)))*(func__fontwidth(NULL,0))))))||new_error){ -if(qbevent){evnt(26070,1405,"ide_methods.bas");if(r)goto S_37856;} -do{ -SUB_WRITECONFIGSETTING(__STRING_WINDOWSETTINGSSECTION,qbs_new_txt_len("IDE_TopPosition",15),qbs_str((int32)(func__screeny()))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1406,"ide_methods.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_WINDOWSETTINGSSECTION,qbs_new_txt_len("IDE_LeftPosition",16),qbs_str((int32)(func__screenx()))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1407,"ide_methods.bas");}while(r); -do{ -*__INTEGER_IDE_TOPPOSITION=func__screeny(); -if(!qbevent)break;evnt(26070,1408,"ide_methods.bas");}while(r); -do{ -*__INTEGER_IDE_LEFTPOSITION=func__screenx(); -if(!qbevent)break;evnt(26070,1408,"ide_methods.bas");}while(r); -} -} -} -S_37864:; -if ((-(func__totaldroppedfiles()> 0 ))||new_error){ -if(qbevent){evnt(26070,1413,"ide_methods.bas");if(r)goto S_37864;} -S_37865:; -if ((qbs_cleanup(qbs_tmp_base,func__fileexists(func__droppedfile( 1 ,0|1))))||new_error){ -if(qbevent){evnt(26070,1414,"ide_methods.bas");if(r)goto S_37865;} -do{ -qbs_set(__STRING_IDEOPENFILE,func__droppedfile( 1 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1415,"ide_methods.bas");}while(r); -do{ -sub__finishdrop(); -if(!qbevent)break;evnt(26070,1416,"ide_methods.bas");}while(r); -do{ -goto LABEL_CTRLOPEN; -if(!qbevent)break;evnt(26070,1417,"ide_methods.bas");}while(r); -} -do{ -sub__finishdrop(); -if(!qbevent)break;evnt(26070,1419,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDE2_LONG_UPDATEHOVER= 0 ; -if(!qbevent)break;evnt(26070,1423,"ide_methods.bas");}while(r); -S_37873:; -if ((-(*__LONG_QUICKNAVTOTAL> 0 ))||new_error){ -if(qbevent){evnt(26070,1424,"ide_methods.bas");if(r)goto S_37873;} -S_37874:; -while((!(-(*(int32*)(((char*)__ARRAY_UDT_QUICKNAVHISTORY[0])+((array_check((*__LONG_QUICKNAVTOTAL)-__ARRAY_UDT_QUICKNAVHISTORY[4],__ARRAY_UDT_QUICKNAVHISTORY[5]))*16+12))<=*__LONG_IDEN)))||new_error){ -if(qbevent){evnt(26070,1425,"ide_methods.bas");if(r)goto S_37874;} -do{ -*__LONG_QUICKNAVTOTAL=*__LONG_QUICKNAVTOTAL- 1 ; -if(!qbevent)break;evnt(26070,1427,"ide_methods.bas");}while(r); -S_37876:; -if ((-(*__LONG_QUICKNAVTOTAL== 0 ))||new_error){ -if(qbevent){evnt(26070,1428,"ide_methods.bas");if(r)goto S_37876;} -do{ -goto dl_exit_4130; -if(!qbevent)break;evnt(26070,1428,"ide_methods.bas");}while(r); -} -dl_continue_4130:; -} -dl_exit_4130:; -} -S_37881:; -if (((-(*__LONG_IDESYSTEM== 1 ))&(-(*__LONG_QUICKNAVTOTAL> 0 ))&*__BYTE_ENABLEQUICKNAV)||new_error){ -if(qbevent){evnt(26070,1432,"ide_methods.bas");if(r)goto S_37881;} -S_37882:; -if ((-(*__LONG_MY== 2 ))||new_error){ -if(qbevent){evnt(26070,1433,"ide_methods.bas");if(r)goto S_37882;} -S_37883:; -if (((-(*__LONG_MX>= 4 ))&(-(*__LONG_MX<= 6 )))||new_error){ -if(qbevent){evnt(26070,1434,"ide_methods.bas");if(r)goto S_37883;} -S_37884:; -if ((-(*_FUNC_IDE2_BYTE_QUICKNAVHOVER== 0 ))||new_error){ -if(qbevent){evnt(26070,1435,"ide_methods.bas");if(r)goto S_37884;} -do{ -*_FUNC_IDE2_BYTE_QUICKNAVHOVER= -1 ; -if(!qbevent)break;evnt(26070,1436,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 15 , 3 ,NULL,3); -if(!qbevent)break;evnt(26070,1437,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_POPUP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len(" ",1),func_chr( 17 )),qbs_new_txt_len(" back to line ",14)),FUNC_STR2((int32*)(void*)( ((char*)(__ARRAY_UDT_QUICKNAVHISTORY[0])) + ((array_check((*__LONG_QUICKNAVTOTAL)-__ARRAY_UDT_QUICKNAVHISTORY[4],__ARRAY_UDT_QUICKNAVHISTORY[5]))*16+12) ))),qbs_new_txt_len(" ",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1438,"ide_methods.bas");}while(r); -do{ -sub__printstring( 4 , 2 ,_FUNC_IDE2_STRING_POPUP,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1439,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 2 , 0 ,NULL,3); -if(!qbevent)break;evnt(26070,1442,"ide_methods.bas");}while(r); -S_37890:; -fornext_value4132= 6 ; -fornext_finalvalue4132= 4 +_FUNC_IDE2_STRING_POPUP->len; -fornext_step4132= 1 ; -if (fornext_step4132<0) fornext_step_negative4132=1; else fornext_step_negative4132=0; -if (new_error) goto fornext_error4132; -goto fornext_entrylabel4132; -while(1){ -fornext_value4132=fornext_step4132+(*_FUNC_IDE2_LONG_X2); -fornext_entrylabel4132: -*_FUNC_IDE2_LONG_X2=fornext_value4132; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative4132){ -if (fornext_value4132fornext_finalvalue4132) break; -} -fornext_error4132:; -if(qbevent){evnt(26070,1443,"ide_methods.bas");if(r)goto S_37890;} -do{ -sub__printstring(*_FUNC_IDE2_LONG_X2, 3 ,func_chr(func_screen( 3 ,*_FUNC_IDE2_LONG_X2,NULL,0)),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1444,"ide_methods.bas");}while(r); -fornext_continue_4131:; -} -fornext_exit_4131:; -do{ -*_FUNC_IDE2_LONG_UPDATEHOVER= -1 ; -if(!qbevent)break;evnt(26070,1446,"ide_methods.bas");}while(r); -} -S_37895:; -if ((*__LONG_MCLICK)||new_error){ -if(qbevent){evnt(26070,1449,"ide_methods.bas");if(r)goto S_37895;} -do{ -*__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(26070,1450,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECY=*(int32*)(((char*)__ARRAY_UDT_QUICKNAVHISTORY[0])+((array_check((*__LONG_QUICKNAVTOTAL)-__ARRAY_UDT_QUICKNAVHISTORY[4],__ARRAY_UDT_QUICKNAVHISTORY[5]))*16+12)); -if(!qbevent)break;evnt(26070,1451,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECX=*(int32*)(((char*)__ARRAY_UDT_QUICKNAVHISTORY[0])+((array_check((*__LONG_QUICKNAVTOTAL)-__ARRAY_UDT_QUICKNAVHISTORY[4],__ARRAY_UDT_QUICKNAVHISTORY[5]))*16+8)); -if(!qbevent)break;evnt(26070,1452,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESX=*(int32*)(((char*)__ARRAY_UDT_QUICKNAVHISTORY[0])+((array_check((*__LONG_QUICKNAVTOTAL)-__ARRAY_UDT_QUICKNAVHISTORY[4],__ARRAY_UDT_QUICKNAVHISTORY[5]))*16)); -if(!qbevent)break;evnt(26070,1453,"ide_methods.bas");}while(r); -do{ -SUB_IDECENTERCURRENTLINE(); -if(!qbevent)break;evnt(26070,1454,"ide_methods.bas");}while(r); -do{ -*__LONG_QUICKNAVTOTAL=*__LONG_QUICKNAVTOTAL- 1 ; -if(!qbevent)break;evnt(26070,1455,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,1456,"ide_methods.bas");}while(r); -} -}else{ -do{ -goto LABEL_RESTOREBGQUICKNAV; -if(!qbevent)break;evnt(26070,1459,"ide_methods.bas");}while(r); -} -}else{ -LABEL_RESTOREBGQUICKNAV:; -if(qbevent){evnt(26070,1462,"ide_methods.bas");r=0;} -S_37908:; -if ((-(*_FUNC_IDE2_BYTE_QUICKNAVHOVER== -1 ))||new_error){ -if(qbevent){evnt(26070,1463,"ide_methods.bas");if(r)goto S_37908;} -do{ -*_FUNC_IDE2_BYTE_QUICKNAVHOVER= 0 ; -if(!qbevent)break;evnt(26070,1464,"ide_methods.bas");}while(r); -do{ -SUB_UPDATETITLEOFMAINWINDOW(); -if(!qbevent)break;evnt(26070,1465,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=22; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_DRAWQUICKNAV; -RETURN_22:; -if(!qbevent)break;evnt(26070,1466,"ide_methods.bas");}while(r); -do{ -SUB_IDESHOWTEXT(); -if(!qbevent)break;evnt(26070,1467,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_UPDATEHOVER= -1 ; -if(!qbevent)break;evnt(26070,1468,"ide_methods.bas");}while(r); -} -} -} -S_37917:; -if (((-(*__LONG_MY==(*__LONG_IDEWY- 4 )))&(-(*__LONG_MX>(*__LONG_IDEWX-( 20 + 10 ))))&(-(*__LONG_MX<=(*__LONG_IDEWX-( 20 + 8 )+ 2 ))))||new_error){ -if(qbevent){evnt(26070,1473,"ide_methods.bas");if(r)goto S_37917;} -S_37918:; -if ((-(*_FUNC_IDE2_BYTE_FINDFIELDHOVER== 0 ))||new_error){ -if(qbevent){evnt(26070,1474,"ide_methods.bas");if(r)goto S_37918;} -do{ -qbg_sub_color( 1 , 3 ,NULL,3); -if(!qbevent)break;evnt(26070,1476,"ide_methods.bas");}while(r); -do{ -sub__printstring(*__LONG_IDEWX-( 20 + 9 ),*__LONG_IDEWY- 4 ,qbs_new_txt_len("Find",4),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1477,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_UPDATEHOVER= -1 ; -if(!qbevent)break;evnt(26070,1478,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_BYTE_FINDFIELDHOVER= -1 ; -if(!qbevent)break;evnt(26070,1479,"ide_methods.bas");}while(r); -} -}else{ -S_37925:; -if ((-(*_FUNC_IDE2_BYTE_FINDFIELDHOVER== -1 ))||new_error){ -if(qbevent){evnt(26070,1482,"ide_methods.bas");if(r)goto S_37925;} -do{ -*_FUNC_IDE2_BYTE_FINDFIELDHOVER= 0 ; -if(!qbevent)break;evnt(26070,1484,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 3 , 1 ,NULL,3); -if(!qbevent)break;evnt(26070,1485,"ide_methods.bas");}while(r); -do{ -sub__printstring(*__LONG_IDEWX-( 20 + 9 ),*__LONG_IDEWY- 4 ,qbs_new_txt_len("Find",4),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1486,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_UPDATEHOVER= -1 ; -if(!qbevent)break;evnt(26070,1487,"ide_methods.bas");}while(r); -} -} -S_37932:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_MY==(*__LONG_IDEWY+*__LONG_IDESUBWINDOW)))&(-(*__LONG_MX>=(*__LONG_IDEWX- 21 -__STRING_VERSIONSTRINGSTATUS->len)))&(-(*__LONG_MX<(*__LONG_IDEWX- 21 )))))||new_error){ -if(qbevent){evnt(26070,1491,"ide_methods.bas");if(r)goto S_37932;} -S_37933:; -if ((-(*_FUNC_IDE2_BYTE_VERSIONINFOHOVER== 0 ))||new_error){ -if(qbevent){evnt(26070,1493,"ide_methods.bas");if(r)goto S_37933;} -do{ -qbg_sub_color( 13 , 6 ,NULL,3); -if(!qbevent)break;evnt(26070,1494,"ide_methods.bas");}while(r); -do{ -sub__printstring(*__LONG_IDEWX- 21 -__STRING_VERSIONSTRINGSTATUS->len,*__LONG_IDEWY+*__LONG_IDESUBWINDOW,__STRING_VERSIONSTRINGSTATUS,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1495,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_UPDATEHOVER= -1 ; -if(!qbevent)break;evnt(26070,1496,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_BYTE_VERSIONINFOHOVER= -1 ; -if(!qbevent)break;evnt(26070,1497,"ide_methods.bas");}while(r); -} -S_37939:; -if ((*__LONG_MCLICK)||new_error){ -if(qbevent){evnt(26070,1499,"ide_methods.bas");if(r)goto S_37939;} -do{ -sub_pcopy( 0 , 2 ); -if(!qbevent)break;evnt(26070,1499,"ide_methods.bas");}while(r); -do{ -goto LABEL_HELPABOUT; -if(!qbevent)break;evnt(26070,1499,"ide_methods.bas");}while(r); -} -}else{ -S_37944:; -if ((-(*_FUNC_IDE2_BYTE_VERSIONINFOHOVER== -1 ))||new_error){ -if(qbevent){evnt(26070,1501,"ide_methods.bas");if(r)goto S_37944;} -do{ -*_FUNC_IDE2_BYTE_VERSIONINFOHOVER= 0 ; -if(!qbevent)break;evnt(26070,1503,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 2 , 3 ,NULL,3); -if(!qbevent)break;evnt(26070,1504,"ide_methods.bas");}while(r); -do{ -sub__printstring(*__LONG_IDEWX- 21 -__STRING_VERSIONSTRINGSTATUS->len,*__LONG_IDEWY+*__LONG_IDESUBWINDOW,__STRING_VERSIONSTRINGSTATUS,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1505,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_UPDATEHOVER= -1 ; -if(!qbevent)break;evnt(26070,1506,"ide_methods.bas");}while(r); -} -} -S_37951:; -if (((-(*__LONG_MY==(*__LONG_IDEWY+*__LONG_IDESUBWINDOW)))&(-(*__LONG_MX>=(*__LONG_IDEWX- 20 )))&(-(*__LONG_MX<=*__LONG_IDEWX)))||new_error){ -if(qbevent){evnt(26070,1510,"ide_methods.bas");if(r)goto S_37951;} -S_37952:; -if ((-(*_FUNC_IDE2_BYTE_LINENUMBERHOVER== 0 ))||new_error){ -if(qbevent){evnt(26070,1512,"ide_methods.bas");if(r)goto S_37952;} -do{ -qbg_sub_color( 13 , 6 ,NULL,3); -if(!qbevent)break;evnt(26070,1513,"ide_methods.bas");}while(r); -do{ -sub__printstring(*__LONG_IDEWX- 20 ,*__LONG_IDEWY+*__LONG_IDESUBWINDOW,__STRING_LINENUMBERSTATUS,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1514,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_BYTE_LINENUMBERHOVER= -1 ; -if(!qbevent)break;evnt(26070,1515,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_UPDATEHOVER= -1 ; -if(!qbevent)break;evnt(26070,1516,"ide_methods.bas");}while(r); -} -S_37958:; -if ((*__LONG_MCLICK)||new_error){ -if(qbevent){evnt(26070,1518,"ide_methods.bas");if(r)goto S_37958;} -do{ -sub_pcopy( 0 , 2 ); -if(!qbevent)break;evnt(26070,1519,"ide_methods.bas");}while(r); -do{ -SUB_IDEGOTOBOX(); -if(!qbevent)break;evnt(26070,1520,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,1521,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,1521,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,1522,"ide_methods.bas");}while(r); -} -}else{ -S_37966:; -if ((-(*_FUNC_IDE2_BYTE_LINENUMBERHOVER== -1 ))||new_error){ -if(qbevent){evnt(26070,1525,"ide_methods.bas");if(r)goto S_37966;} -do{ -*_FUNC_IDE2_BYTE_LINENUMBERHOVER= 0 ; -if(!qbevent)break;evnt(26070,1527,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 0 , 3 ,NULL,3); -if(!qbevent)break;evnt(26070,1528,"ide_methods.bas");}while(r); -do{ -sub__printstring(*__LONG_IDEWX- 20 ,*__LONG_IDEWY+*__LONG_IDESUBWINDOW,__STRING_LINENUMBERSTATUS,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1529,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_UPDATEHOVER= -1 ; -if(!qbevent)break;evnt(26070,1530,"ide_methods.bas");}while(r); -} -} -S_37973:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3)))|(-(*__LONG_MACOSX== 1 ))))||new_error){ -if(qbevent){evnt(26070,1534,"ide_methods.bas");if(r)goto S_37973;} -S_37974:; -if ((func__hasfocus())||new_error){ -if(qbevent){evnt(26070,1535,"ide_methods.bas");if(r)goto S_37974;} -do{ -qbg_sub_locate(NULL,NULL, 1 ,NULL,NULL,4); -if(!qbevent)break;evnt(26070,1536,"ide_methods.bas");}while(r); -do{ -sub__palettecolor( 5 ,*__ULONG_IDEBRACKETHIGHLIGHTCOLOR, 0 ,1); -if(!qbevent)break;evnt(26070,1537,"ide_methods.bas");}while(r); -do{ -sub__palettecolor( 6 ,*__ULONG_IDEBACKGROUNDCOLOR2, 0 ,1); -if(!qbevent)break;evnt(26070,1538,"ide_methods.bas");}while(r); -}else{ -do{ -qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); -if(!qbevent)break;evnt(26070,1540,"ide_methods.bas");}while(r); -do{ -sub__palettecolor( 5 ,*__ULONG_IDEBACKGROUNDCOLOR, 0 ,1); -if(!qbevent)break;evnt(26070,1541,"ide_methods.bas");}while(r); -do{ -sub__palettecolor( 6 ,*__ULONG_IDEBACKGROUNDCOLOR, 0 ,1); -if(!qbevent)break;evnt(26070,1542,"ide_methods.bas");}while(r); -} -} -S_37984:; -if ((*__LONG_KALT)||new_error){ -if(qbevent){evnt(26070,1546,"ide_methods.bas");if(r)goto S_37984;} -S_37985:; -if (((-(*__LONG_IDEALTHIGHLIGHT== 0 ))&(-(*__LONG_KALTPRESS== -1 ))&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(26070,1548,"ide_methods.bas");if(r)goto S_37985;} -do{ -*__LONG_IDEALTHIGHLIGHT= 1 ; -if(!qbevent)break;evnt(26070,1550,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); -if(!qbevent)break;evnt(26070,1551,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 15 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,1551,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_X= 4 ; -if(!qbevent)break;evnt(26070,1551,"ide_methods.bas");}while(r); -S_37990:; -fornext_value4138= 1 ; -fornext_finalvalue4138=*__INTEGER_MENUS; -fornext_step4138= 1 ; -if (fornext_step4138<0) fornext_step_negative4138=1; else fornext_step_negative4138=0; -if (new_error) goto fornext_error4138; -goto fornext_entrylabel4138; -while(1){ -fornext_value4138=fornext_step4138+(*_FUNC_IDE2_LONG_I); -fornext_entrylabel4138: -*_FUNC_IDE2_LONG_I=fornext_value4138; -if (fornext_step_negative4138){ -if (fornext_value4138fornext_finalvalue4138) break; -} -fornext_error4138:; -if(qbevent){evnt(26070,1552,"ide_methods.bas");if(r)goto S_37990;} -do{ -sub__printstring(*_FUNC_IDE2_LONG_X, 1 ,qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check(( 0 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 1 ),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1553,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_X=*_FUNC_IDE2_LONG_X+((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check(( 0 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]]))->len+ 2 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1554,"ide_methods.bas");}while(r); -S_37993:; -if ((-(*_FUNC_IDE2_LONG_I==(*__INTEGER_MENUS- 1 )))||new_error){ -if(qbevent){evnt(26070,1555,"ide_methods.bas");if(r)goto S_37993;} -do{ -*_FUNC_IDE2_LONG_X=*__LONG_IDEWX-((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*__INTEGER_MENUS)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check(( 0 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]]))->len- 1 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1555,"ide_methods.bas");}while(r); -} -fornext_continue_4137:; -} -fornext_exit_4137:; -do{ -*__LONG_IDEENTERMENU= 1 ; -if(!qbevent)break;evnt(26070,1557,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_SKIPDISPLAY= 0 ; -if(!qbevent)break;evnt(26070,1559,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,1559,"ide_methods.bas");}while(r); -} -}else{ -S_38002:; -if ((-(*__LONG_IDEALTHIGHLIGHT== 1 ))||new_error){ -if(qbevent){evnt(26070,1563,"ide_methods.bas");if(r)goto S_38002;} -do{ -*__LONG_IDEALTHIGHLIGHT= 0 ; -if(!qbevent)break;evnt(26070,1565,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); -if(!qbevent)break;evnt(26070,1566,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,1566,"ide_methods.bas");}while(r); -do{ -sub__printstring( 1 , 1 ,__STRING_MENUBAR,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1566,"ide_methods.bas");}while(r); -S_38007:; -if (((-(*__LONG_IDEENTERMENU== 1 ))&(-(*__LONG_KCONTROL== 0 )))||new_error){ -if(qbevent){evnt(26070,1567,"ide_methods.bas");if(r)goto S_38007;} -S_38008:; -if ((qbs_cleanup(qbs_tmp_base,(func__hasfocus())|(qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3)))))||new_error){ -if(qbevent){evnt(26070,1568,"ide_methods.bas");if(r)goto S_38008;} -do{ -qbg_sub_locate(NULL,NULL,NULL,*__LONG_IDENORMALCURSORSTART,*__LONG_IDENORMALCURSOREND,24); -if(!qbevent)break;evnt(26070,1569,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_SKIPDISPLAY= 0 ; -if(!qbevent)break;evnt(26070,1570,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEENTERMENU= 0 ; -if(!qbevent)break;evnt(26070,1571,"ide_methods.bas");}while(r); -do{ -goto LABEL_STARTMENU; -if(!qbevent)break;evnt(26070,1572,"ide_methods.bas");}while(r); -}else{ -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,1574,"ide_methods.bas");}while(r); -} -} -} -} -S_38019:; -if ((*_FUNC_IDE2_LONG_UPDATEHOVER)||new_error){ -if(qbevent){evnt(26070,1581,"ide_methods.bas");if(r)goto S_38019;} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,1581,"ide_methods.bas");}while(r); -} -S_38022:; -if ((-(*_FUNC_IDE2_LONG_CHANGE== 0 ))||new_error){ -if(qbevent){evnt(26070,1583,"ide_methods.bas");if(r)goto S_38022;} -S_38023:; -if ((*__LONG_IDECOMPILING)||new_error){ -if(qbevent){evnt(26070,1586,"ide_methods.bas");if(r)goto S_38023;} -S_38024:; -if ((*_FUNC_IDE2_LONG_SENDNEXTLINE)||new_error){ -if(qbevent){evnt(26070,1587,"ide_methods.bas");if(r)goto S_38024;} -S_38025:; -if ((-(*__LONG_IDECOMPILEDLINE<*__LONG_IDEN))||new_error){ -if(qbevent){evnt(26070,1588,"ide_methods.bas");if(r)goto S_38025;} -do{ -*__LONG_IDECOMPILEDLINE=*__LONG_IDECOMPILEDLINE+ 1 ; -if(!qbevent)break;evnt(26070,1589,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_IDE2= 4 ; -if(!qbevent)break;evnt(26070,1590,"ide_methods.bas");}while(r); -S_38028:; -if ((*_FUNC_IDE2_LONG_PASSBACK)||new_error){ -if(qbevent){evnt(26070,1591,"ide_methods.bas");if(r)goto S_38028;} -do{ -qbs_set(__STRING_IDECOMPILEDLINE,_FUNC_IDE2_STRING_PASSBACK); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1592,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_IDERETURN,__STRING_IDECOMPILEDLINE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1593,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(__STRING_IDECOMPILEDLINE,FUNC_IDEGETLINE(__LONG_IDECOMPILEDLINE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1595,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_IDERETURN,__STRING_IDECOMPILEDLINE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1596,"ide_methods.bas");}while(r); -} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,1598,"ide_methods.bas");}while(r); -}else{ -do{ -*_FUNC_IDE2_LONG_IDE2= 5 ; -if(!qbevent)break;evnt(26070,1601,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,1605,"ide_methods.bas");}while(r); -} -} -} -do{ -sub__limit( 16 ); -if(!qbevent)break;evnt(26070,1610,"ide_methods.bas");}while(r); -do{ -goto LABEL_WAITFORINPUT; -if(!qbevent)break;evnt(26070,1611,"ide_methods.bas");}while(r); -} -do{ -*__LONG_IDEENTERMENU= 0 ; -if(!qbevent)break;evnt(26070,1614,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEUNDOCOMBO=*__LONG_IDEUNDOCOMBO- 1 ; -if(!qbevent)break;evnt(26070,1616,"ide_methods.bas");}while(r); -S_38047:; -if ((-(*__LONG_IDEUNDOCOMBO< 0 ))||new_error){ -if(qbevent){evnt(26070,1617,"ide_methods.bas");if(r)goto S_38047;} -do{ -*__LONG_IDEUNDOCOMBO= 0 ; -if(!qbevent)break;evnt(26070,1617,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDE2_LONG_SKIPDISPLAY= 0 ; -if(!qbevent)break;evnt(26070,1619,"ide_methods.bas");}while(r); -S_38051:; -if ((*__LONG_MCLICK)||new_error){ -if(qbevent){evnt(26070,1623,"ide_methods.bas");if(r)goto S_38051;} -S_38052:; -if (((-(*__LONG_MX>= 2 ))&(-(*__LONG_MX<=*__LONG_IDEWX))&(-(*__LONG_MY>=(*__LONG_IDEWY- 3 )))&(-(*__LONG_MY<=(*__LONG_IDEWY- 1 ))))||new_error){ -if(qbevent){evnt(26070,1624,"ide_methods.bas");if(r)goto S_38052;} -S_38053:; -if ((-((func_screen(*__LONG_MY,*__LONG_MX, 1 ,0|1))==(( 11 )+( 1 * 16 ))))||new_error){ -if(qbevent){evnt(26070,1625,"ide_methods.bas");if(r)goto S_38053;} -S_38054:; -if(qbevent){evnt(26070,1627,"ide_methods.bas");if(r)goto S_38054;} -S_38055:; -if (((*__INTEGER_STATUSAREALINK==( 1 )))||new_error){ -if(qbevent){evnt(26070,1628,"ide_methods.bas");if(r)goto S_38055;} -S_38056:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)))||new_error){ -if(qbevent){evnt(26070,1630,"ide_methods.bas");if(r)goto S_38056;} -do{ -sub_shell3(FUNC_QUOTEDFILENAME(__STRING_COMPILELOG),2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1631,"ide_methods.bas");}while(r); -S_38058:; -}else{ -if (qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))){ -if(qbevent){evnt(26070,1632,"ide_methods.bas");if(r)goto S_38058;} -do{ -sub_shell3(qbs_add(qbs_new_txt_len("open ",5),FUNC_QUOTEDFILENAME(__STRING_COMPILELOG)),2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1633,"ide_methods.bas");}while(r); -}else{ -do{ -sub_shell3(qbs_add(qbs_new_txt_len("xdg-open ",9),FUNC_QUOTEDFILENAME(__STRING_COMPILELOG)),2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1635,"ide_methods.bas");}while(r); -} -} -do{ -goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(26070,1637,"ide_methods.bas");}while(r); -sc_ec_216_end:; -goto sc_4141_end; -} -S_38064:; -if (((*__INTEGER_STATUSAREALINK==( 2 )))||new_error){ -if(qbevent){evnt(26070,1638,"ide_methods.bas");if(r)goto S_38064;} -do{ -*__LONG_IDECX= 1 ; -if(!qbevent)break;evnt(26070,1640,"ide_methods.bas");}while(r); -do{ -SUB_ADDQUICKNAVHISTORY(); -if(!qbevent)break;evnt(26070,1641,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECY=*__LONG_IDEFOCUSLINE; -if(!qbevent)break;evnt(26070,1642,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(26070,1643,"ide_methods.bas");}while(r); -do{ -goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(26070,1644,"ide_methods.bas");}while(r); -sc_ec_217_end:; -goto sc_4141_end; -} -S_38070:; -if (((*__INTEGER_STATUSAREALINK==( 3 )))||new_error){ -if(qbevent){evnt(26070,1645,"ide_methods.bas");if(r)goto S_38070;} -S_38071:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)))||new_error){ -if(qbevent){evnt(26070,1647,"ide_methods.bas");if(r)goto S_38071;} -do{ -sub_shell3(qbs_add(qbs_new_txt_len("explorer /select,",17),FUNC_QUOTEDFILENAME(__STRING_LASTBINARYGENERATED)),2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1648,"ide_methods.bas");}while(r); -S_38073:; -}else{ -if (qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))){ -if(qbevent){evnt(26070,1649,"ide_methods.bas");if(r)goto S_38073;} -do{ -sub_shell3(qbs_add(qbs_new_txt_len("open ",5),FUNC_QUOTEDFILENAME(__STRING_PATH__ASCII_CHR_046__EXE)),2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1650,"ide_methods.bas");}while(r); -}else{ -do{ -sub_shell3(qbs_add(qbs_new_txt_len("xdg-open ",9),FUNC_QUOTEDFILENAME(__STRING_PATH__ASCII_CHR_046__EXE)),2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1652,"ide_methods.bas");}while(r); -} -} -do{ -goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(26070,1654,"ide_methods.bas");}while(r); -sc_ec_218_end:; -goto sc_4141_end; -} -S_38079:; -if (((*__INTEGER_STATUSAREALINK==( 4 )))||new_error){ -if(qbevent){evnt(26070,1655,"ide_methods.bas");if(r)goto S_38079;} -do{ -*_FUNC_IDE2_LONG_RETVAL=FUNC_IDEWARNINGBOX(); -if(!qbevent)break;evnt(26070,1657,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,1659,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,1659,"ide_methods.bas");}while(r); -do{ -goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(26070,1660,"ide_methods.bas");}while(r); -sc_ec_219_end:; -goto sc_4141_end; -} -sc_4141_end:; -} -} -} -S_38088:; -if (((-(*__LONG_KB== 16640 ))|(-(*__LONG_KB== 16896 )))||new_error){ -if(qbevent){evnt(26070,1666,"ide_methods.bas");if(r)goto S_38088;} -do{ -goto LABEL_STARTPAUSEDMENUHANDLER; -if(!qbevent)break;evnt(26070,1667,"ide_methods.bas");}while(r); -} -S_38091:; -if ((-(*__LONG_KB== 17152 ))||new_error){ -if(qbevent){evnt(26070,1670,"ide_methods.bas");if(r)goto S_38091;} -do{ -goto LABEL_TOGGLEBREAKPOINT; -if(!qbevent)break;evnt(26070,1671,"ide_methods.bas");}while(r); -} -S_38094:; -if ((-(*__LONG_KB== 17408 ))||new_error){ -if(qbevent){evnt(26070,1674,"ide_methods.bas");if(r)goto S_38094;} -S_38095:; -if ((*__LONG_KCTRL)||new_error){ -if(qbevent){evnt(26070,1675,"ide_methods.bas");if(r)goto S_38095;} -do{ -goto LABEL_UNSKIPALLLINES; -if(!qbevent)break;evnt(26070,1676,"ide_methods.bas");}while(r); -}else{ -do{ -goto LABEL_CLEARALLBREAKPOINTS; -if(!qbevent)break;evnt(26070,1678,"ide_methods.bas");}while(r); -} -} -S_38101:; -if ((-(*__LONG_KB== 34048 ))||new_error){ -if(qbevent){evnt(26070,1682,"ide_methods.bas");if(r)goto S_38101;} -LABEL_IDEMEXE:; -if(qbevent){evnt(26070,1683,"ide_methods.bas");r=0;} -do{ -*__LONG_IDERUNMODE= 2 ; -if(!qbevent)break;evnt(26070,1684,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDEMRUNSPECIAL; -if(!qbevent)break;evnt(26070,1685,"ide_methods.bas");}while(r); -} -S_38105:; -if ((-(*__LONG_KB== 34304 ))||new_error){ -if(qbevent){evnt(26070,1688,"ide_methods.bas");if(r)goto S_38105;} -S_38106:; -if ((-(*__LONG_CALLSTACKLENGTH> 0 ))||new_error){ -if(qbevent){evnt(26070,1689,"ide_methods.bas");if(r)goto S_38106;} -do{ -goto LABEL_SHOWCALLSTACKDIALOG; -if(!qbevent)break;evnt(26070,1690,"ide_methods.bas");}while(r); -}else{ -do{ -*_FUNC_IDE2_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("$DEBUG MODE",11),qbs_new_txt_len("No call stack log available.",28),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1692,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,1693,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,1693,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,1694,"ide_methods.bas");}while(r); -} -} -S_38115:; -if ((-(*__LONG_KB== 15872 ))||new_error){ -if(qbevent){evnt(26070,1698,"ide_methods.bas");if(r)goto S_38115;} -do{ -goto LABEL_SHOWWATCHLIST; -if(!qbevent)break;evnt(26070,1699,"ide_methods.bas");}while(r); -} -S_38118:; -if ((-(*__LONG_KB== 16128 ))||new_error){ -if(qbevent){evnt(26070,1702,"ide_methods.bas");if(r)goto S_38118;} -do{ -*__LONG_STARTPAUSED= 0 ; -if(!qbevent)break;evnt(26070,1703,"ide_methods.bas");}while(r); -LABEL_IDEMRUN:; -if(qbevent){evnt(26070,1704,"ide_methods.bas");r=0;} -do{ -*__BYTE_STARTPAUSEDPENDING= 0 ; -if(!qbevent)break;evnt(26070,1705,"ide_methods.bas");}while(r); -do{ -*__LONG_IDERUNMODE= 1 ; -if(!qbevent)break;evnt(26070,1706,"ide_methods.bas");}while(r); -LABEL_IDEMRUNSPECIAL:; -if(qbevent){evnt(26070,1707,"ide_methods.bas");r=0;} -do{ -*_FUNC_IDE2_BYTE_IDECOMPILATIONREQUESTED= -1 ; -if(!qbevent)break;evnt(26070,1709,"ide_methods.bas");}while(r); -S_38123:; -if ((-(*__BYTE_EXETOSOURCEFOLDERFIRSTTIMEMSG== 0 ))||new_error){ -if(qbevent){evnt(26070,1711,"ide_methods.bas");if(r)goto S_38123;} -S_38124:; -if ((*__BYTE_SAVEEXEWITHSOURCE)||new_error){ -if(qbevent){evnt(26070,1712,"ide_methods.bas");if(r)goto S_38124;} -do{ -*_FUNC_IDE2_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Run",3),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Your program will be compiled to the same folder where your",59),func_chr( 10 )),qbs_new_txt_len("source code is saved. You can change that by unchecking the",59)),func_chr( 10 )),qbs_new_txt_len("option 'Output EXE to Source Folder' in the Run menu.",53)),qbs_new_txt_len("#OK;#Don't show this again;#Cancel",34)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1715,"ide_methods.bas");}while(r); -}else{ -do{ -*_FUNC_IDE2_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Run",3),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Your program will be compiled to your 'qb64pe' folder. You can",62),func_chr( 10 )),qbs_new_txt_len("change that by checking the option 'Output EXE to Source",56)),func_chr( 10 )),qbs_new_txt_len("Folder' in the Run menu.",24)),qbs_new_txt_len("#OK;#Don't show this again;#Cancel",34)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1719,"ide_methods.bas");}while(r); -} -S_38129:; -if ((-(*_FUNC_IDE2_LONG_RESULT== 2 ))||new_error){ -if(qbevent){evnt(26070,1721,"ide_methods.bas");if(r)goto S_38129;} -do{ -SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("ExeToSourceFolderFirstTimeMsg",29),qbs_new_txt_len("True",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1722,"ide_methods.bas");}while(r); -do{ -*__BYTE_EXETOSOURCEFOLDERFIRSTTIMEMSG= -1 ; -if(!qbevent)break;evnt(26070,1723,"ide_methods.bas");}while(r); -S_38132:; -}else{ -if (-(*_FUNC_IDE2_LONG_RESULT== 3 )){ -if(qbevent){evnt(26070,1724,"ide_methods.bas");if(r)goto S_38132;} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,1725,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,1725,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); -if(!qbevent)break;evnt(26070,1726,"ide_methods.bas");}while(r); -do{ -SUB_CLEARSTATUSWINDOW(&(pass4142= 0 )); -if(!qbevent)break;evnt(26070,1727,"ide_methods.bas");}while(r); -do{ -sub__printstring( 2 ,*__LONG_IDEWY- 3 ,qbs_new_txt_len("Compilation request canceled.",29),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1728,"ide_methods.bas");}while(r); -do{ -goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(26070,1729,"ide_methods.bas");}while(r); -} -} -} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,1732,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,1732,"ide_methods.bas");}while(r); -S_38143:; -if (((-(*_FUNC_IDE2_LONG_READY!= 0 ))&(-(*__INTEGER_IDECHANGEMADE== 0 )))||new_error){ -if(qbevent){evnt(26070,1735,"ide_methods.bas");if(r)goto S_38143;} -do{ -qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); -if(!qbevent)break;evnt(26070,1737,"ide_methods.bas");}while(r); -do{ -SUB_CLEARSTATUSWINDOW(&(pass4143= 0 )); -if(!qbevent)break;evnt(26070,1738,"ide_methods.bas");}while(r); -S_38146:; -if ((*__INTEGER_NOEXESAVED)||new_error){ -if(qbevent){evnt(26070,1739,"ide_methods.bas");if(r)goto S_38146;} -do{ -*__LONG_IDECOMPILED= 0 ; -if(!qbevent)break;evnt(26070,1739,"ide_methods.bas");}while(r); -do{ -goto LABEL_MUSTGENERATEEXE; -if(!qbevent)break;evnt(26070,1739,"ide_methods.bas");}while(r); -} -S_38150:; -if ((*__LONG_IDECOMPILED)||new_error){ -if(qbevent){evnt(26070,1740,"ide_methods.bas");if(r)goto S_38150;} -S_38151:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_IDERUNMODE== 2 ))&(func__fileexists(__STRING_LASTBINARYGENERATED))))||new_error){ -if(qbevent){evnt(26070,1742,"ide_methods.bas");if(r)goto S_38151;} -S_38152:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ -if(qbevent){evnt(26070,1743,"ide_methods.bas");if(r)goto S_38152;} -do{ -sub__printstring( 2 ,*__LONG_IDEWY- 3 ,qbs_new_txt_len("Already created executable file!",32),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1744,"ide_methods.bas");}while(r); -}else{ -do{ -sub__printstring( 2 ,*__LONG_IDEWY- 3 ,qbs_new_txt_len("Already created .EXE file!",26),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1746,"ide_methods.bas");}while(r); -} -do{ -qbg_sub_color( 11 , 1 ,NULL,3); -if(!qbevent)break;evnt(26070,1749,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_LOCATION,__STRING_LASTBINARYGENERATED); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1750,"ide_methods.bas");}while(r); -S_38159:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,1751,"ide_methods.bas");if(r)goto S_38159;} -do{ -qbs_set(_FUNC_IDE2_STRING_LOCATION,qbs_add(qbs_add(func__startdir(),__STRING1_PATHSEP),_FUNC_IDE2_STRING_LOCATION)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1751,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDE2_STRING_MSG,qbs_add(qbs_new_txt_len("Location: ",10),_FUNC_IDE2_STRING_LOCATION)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1752,"ide_methods.bas");}while(r); -S_38163:; -if ((qbs_cleanup(qbs_tmp_base,-(( 2 +_FUNC_IDE2_STRING_MSG->len)>*__LONG_IDEWX)))||new_error){ -if(qbevent){evnt(26070,1753,"ide_methods.bas");if(r)goto S_38163;} -do{ -qbs_set(_FUNC_IDE2_STRING_MSG,qbs_add(qbs_add(qbs_new_txt_len("Location: ",10),func_string( 3 , 250 )),qbs_right(_FUNC_IDE2_STRING_LOCATION,*__LONG_IDEWX- 15 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1754,"ide_methods.bas");}while(r); -} -do{ -sub__printstring( 2 ,*__LONG_IDEWY- 2 ,_FUNC_IDE2_STRING_MSG,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1756,"ide_methods.bas");}while(r); -do{ -*__INTEGER_STATUSAREALINK= 3 ; -if(!qbevent)break;evnt(26070,1757,"ide_methods.bas");}while(r); -do{ -goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(26070,1760,"ide_methods.bas");}while(r); -S_38169:; -}else{ -if (qbs_cleanup(qbs_tmp_base,-(func__fileexists(__STRING_LASTBINARYGENERATED)== 0 ))){ -if(qbevent){evnt(26070,1761,"ide_methods.bas");if(r)goto S_38169;} -do{ -*__LONG_IDECOMPILED= 0 ; -if(!qbevent)break;evnt(26070,1762,"ide_methods.bas");}while(r); -do{ -goto LABEL_MUSTGENERATEEXE; -if(!qbevent)break;evnt(26070,1763,"ide_methods.bas");}while(r); -} -} -do{ -*_FUNC_IDE2_LONG_DUMMY=FUNC_DARKENFGBG(&(pass4145= 1 )); -if(!qbevent)break;evnt(26070,1766,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_BKPIDESYSTEM=*__LONG_IDESYSTEM; -if(!qbevent)break;evnt(26070,1767,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESYSTEM= 2 ; -if(!qbevent)break;evnt(26070,1767,"ide_methods.bas");}while(r); -do{ -SUB_UPDATETITLEOFMAINWINDOW(); -if(!qbevent)break;evnt(26070,1767,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESYSTEM=*_FUNC_IDE2_LONG_BKPIDESYSTEM; -if(!qbevent)break;evnt(26070,1767,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 1 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,1768,"ide_methods.bas");}while(r); -do{ -sub__printstring((*__LONG_IDEWX- 8 )/ ((long double)( 2 )),*__LONG_IDEWY- 4 ,qbs_new_txt_len(" Status ",8),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1768,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 15 , 1 ,NULL,3); -if(!qbevent)break;evnt(26070,1769,"ide_methods.bas");}while(r); -do{ -sub__printstring( 2 ,*__LONG_IDEWY- 3 ,qbs_new_txt_len("Starting program...",19),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1770,"ide_methods.bas");}while(r); -}else{ -LABEL_MUSTGENERATEEXE:; -if(qbevent){evnt(26070,1772,"ide_methods.bas");r=0;} -do{ -*_FUNC_IDE2_LONG_DUMMY=FUNC_DARKENFGBG(&(pass4146= 1 )); -if(!qbevent)break;evnt(26070,1773,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_BKPIDESYSTEM=*__LONG_IDESYSTEM; -if(!qbevent)break;evnt(26070,1774,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESYSTEM= 2 ; -if(!qbevent)break;evnt(26070,1774,"ide_methods.bas");}while(r); -do{ -SUB_UPDATETITLEOFMAINWINDOW(); -if(!qbevent)break;evnt(26070,1774,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESYSTEM=*_FUNC_IDE2_LONG_BKPIDESYSTEM; -if(!qbevent)break;evnt(26070,1774,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 1 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,1775,"ide_methods.bas");}while(r); -do{ -sub__printstring((*__LONG_IDEWX- 8 )/ ((long double)( 2 )),*__LONG_IDEWY- 4 ,qbs_new_txt_len(" Status ",8),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1775,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 15 , 1 ,NULL,3); -if(!qbevent)break;evnt(26070,1776,"ide_methods.bas");}while(r); -S_38191:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ -if(qbevent){evnt(26070,1777,"ide_methods.bas");if(r)goto S_38191;} -do{ -sub__printstring( 2 ,*__LONG_IDEWY- 3 ,qbs_new_txt_len("Creating executable file...",27),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1778,"ide_methods.bas");}while(r); -}else{ -do{ -sub__printstring( 2 ,*__LONG_IDEWY- 3 ,qbs_new_txt_len("Creating .EXE file...",21),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1780,"ide_methods.bas");}while(r); -} -} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,1784,"ide_methods.bas");}while(r); -S_38198:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_IDEPROGNAME,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,1788,"ide_methods.bas");if(r)goto S_38198;} -do{ -qbs_set(_FUNC_IDE2_STRING_F,qbs_add(qbs_new_txt_len("untitled",8),__STRING_TEMPFOLDERINDEXSTR)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1789,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDE2_STRING_F,__STRING_IDEPROGNAME); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1791,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_F,FUNC_REMOVEFILEEXTENSION(_FUNC_IDE2_STRING_F)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1792,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDE2_LONG_IDE2= 9 ; -if(!qbevent)break;evnt(26070,1794,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_IDERETURN,_FUNC_IDE2_STRING_F); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1794,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,1795,"ide_methods.bas");}while(r); -} -S_38208:; -if ((-(*_FUNC_IDE2_LONG_FAILED== 1 ))||new_error){ -if(qbevent){evnt(26070,1798,"ide_methods.bas");if(r)goto S_38208;} -do{ -goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(26070,1798,"ide_methods.bas");}while(r); -} -do{ -*__LONG_IDEAUTORUN= 1 ; -if(!qbevent)break;evnt(26070,1800,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); -if(!qbevent)break;evnt(26070,1803,"ide_methods.bas");}while(r); -do{ -SUB_CLEARSTATUSWINDOW(&(pass4147= 0 )); -if(!qbevent)break;evnt(26070,1804,"ide_methods.bas");}while(r); -do{ -sub__printstring( 2 ,*__LONG_IDEWY- 3 ,qbs_new_txt_len("Checking program... (editing program will cancel request)",57),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1806,"ide_methods.bas");}while(r); -do{ -SUB_IDESHOWTEXT(); -if(!qbevent)break;evnt(26070,1809,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(NULL,NULL, 1 ,NULL,NULL,4); -if(!qbevent)break;evnt(26070,1810,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,1811,"ide_methods.bas");}while(r); -do{ -goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(26070,1813,"ide_methods.bas");}while(r); -} -do{ -qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); -if(!qbevent)break;evnt(26070,1816,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(NULL,NULL,NULL,*__LONG_IDENORMALCURSORSTART,*__LONG_IDENORMALCURSOREND,24); -if(!qbevent)break;evnt(26070,1817,"ide_methods.bas");}while(r); -S_38222:; -if ((((*__LONG_MCLICK|*__LONG_MCLICK2))&(-(*__LONG_IDEMOUSESELECT== 0 )))||new_error){ -if(qbevent){evnt(26070,1819,"ide_methods.bas");if(r)goto S_38222;} -S_38223:; -if ((-(*__LONG_MY== 1 ))||new_error){ -if(qbevent){evnt(26070,1820,"ide_methods.bas");if(r)goto S_38223;} -do{ -*_FUNC_IDE2_LONG_X= 3 ; -if(!qbevent)break;evnt(26070,1821,"ide_methods.bas");}while(r); -S_38225:; -fornext_value4149= 1 ; -fornext_finalvalue4149=*__INTEGER_MENUS; -fornext_step4149= 1 ; -if (fornext_step4149<0) fornext_step_negative4149=1; else fornext_step_negative4149=0; -if (new_error) goto fornext_error4149; -goto fornext_entrylabel4149; -while(1){ -fornext_value4149=fornext_step4149+(*_FUNC_IDE2_LONG_I); -fornext_entrylabel4149: -*_FUNC_IDE2_LONG_I=fornext_value4149; -if (fornext_step_negative4149){ -if (fornext_value4149fornext_finalvalue4149) break; -} -fornext_error4149:; -if(qbevent){evnt(26070,1822,"ide_methods.bas");if(r)goto S_38225;} -do{ -*_FUNC_IDE2_LONG_X2=((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check(( 0 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]]))->len+ 2 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1823,"ide_methods.bas");}while(r); -S_38227:; -if (((-(*__LONG_MX>=*_FUNC_IDE2_LONG_X))&(-(*__LONG_MX<(*_FUNC_IDE2_LONG_X+*_FUNC_IDE2_LONG_X2))))||new_error){ -if(qbevent){evnt(26070,1824,"ide_methods.bas");if(r)goto S_38227;} -do{ -*_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_I; -if(!qbevent)break;evnt(26070,1825,"ide_methods.bas");}while(r); -do{ -goto LABEL_SHOWMENU; -if(!qbevent)break;evnt(26070,1826,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDE2_LONG_X=*_FUNC_IDE2_LONG_X+*_FUNC_IDE2_LONG_X2; -if(!qbevent)break;evnt(26070,1828,"ide_methods.bas");}while(r); -S_38232:; -if ((-(*_FUNC_IDE2_LONG_I==(*__INTEGER_MENUS- 1 )))||new_error){ -if(qbevent){evnt(26070,1829,"ide_methods.bas");if(r)goto S_38232;} -do{ -*_FUNC_IDE2_LONG_X=*__LONG_IDEWX-((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*__INTEGER_MENUS)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check(( 0 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]]))->len- 2 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1829,"ide_methods.bas");}while(r); -} -fornext_continue_4148:; -} -fornext_exit_4148:; -} -} -S_38238:; -fornext_value4153= 1 ; -fornext_finalvalue4153=*__INTEGER_MENUS; -fornext_step4153= 1 ; -if (fornext_step4153<0) fornext_step_negative4153=1; else fornext_step_negative4153=0; -if (new_error) goto fornext_error4153; -goto fornext_entrylabel4153; -while(1){ -fornext_value4153=fornext_step4153+(*_FUNC_IDE2_LONG_I); -fornext_entrylabel4153: -*_FUNC_IDE2_LONG_I=fornext_value4153; -if (fornext_step_negative4153){ -if (fornext_value4153fornext_finalvalue4153) break; -} -fornext_error4153:; -if(qbevent){evnt(26070,1834,"ide_methods.bas");if(r)goto S_38238;} -do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_ucase(qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check(( 0 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1835,"ide_methods.bas");}while(r); -S_38240:; -if ((qbs_cleanup(qbs_tmp_base,*__LONG_KALT&(qbs_equal(qbs_ucase(__STRING_K),_FUNC_IDE2_STRING_A))))||new_error){ -if(qbevent){evnt(26070,1836,"ide_methods.bas");if(r)goto S_38240;} -do{ -*_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_I; -if(!qbevent)break;evnt(26070,1837,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,1838,"ide_methods.bas");}while(r); -do{ -sub__printstring( 1 , 1 ,__STRING_MENUBAR,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1838,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,1839,"ide_methods.bas");}while(r); -do{ -goto LABEL_SHOWMENU; -if(!qbevent)break;evnt(26070,1840,"ide_methods.bas");}while(r); -} -fornext_continue_4152:; -} -fornext_exit_4152:; -S_38248:; -if ((qbs_cleanup(qbs_tmp_base,*__LONG_KCTRL&(qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("F",1)))))||new_error){ -if(qbevent){evnt(26070,1844,"ide_methods.bas");if(r)goto S_38248;} -do{ -qbs_set(__STRING_K,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1845,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESYSTEM= 2 ; -if(!qbevent)break;evnt(26070,1846,"ide_methods.bas");}while(r); -S_38251:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_IDEFINDTEXT->len))||new_error){ -if(qbevent){evnt(26070,1847,"ide_methods.bas");if(r)goto S_38251;} -do{ -*_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL= -1 ; -if(!qbevent)break;evnt(26070,1847,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__SX1= 0 ; -if(!qbevent)break;evnt(26070,1847,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1=__STRING_IDEFINDTEXT->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1847,"ide_methods.bas");}while(r); -} -do{ -goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(26070,1848,"ide_methods.bas");}while(r); -} -S_38258:; -if ((qbs_cleanup(qbs_tmp_base,*__LONG_KCTRL&(qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("K",1)))))||new_error){ -if(qbevent){evnt(26070,1851,"ide_methods.bas");if(r)goto S_38258;} -do{ -qbs_set(__STRING_K,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1852,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDEQUICKKEYCODE; -if(!qbevent)break;evnt(26070,1853,"ide_methods.bas");}while(r); -} -S_38262:; -if ((*__LONG_KCTRL&(-(*__LONG_KB== 15616 )))||new_error){ -if(qbevent){evnt(26070,1857,"ide_methods.bas");if(r)goto S_38262;} -S_38263:; -if ((-(*__LONG_IDESYSTEM== 3 ))||new_error){ -if(qbevent){evnt(26070,1858,"ide_methods.bas");if(r)goto S_38263;} -do{ -*__LONG_IDESYSTEM= 1 ; -if(!qbevent)break;evnt(26070,1858,"ide_methods.bas");}while(r); -} -do{ -goto LABEL_IDEFINDJMP; -if(!qbevent)break;evnt(26070,1859,"ide_methods.bas");}while(r); -} -S_38268:; -if ((*__LONG_KALT&(-(*__LONG_KB== 15616 )))||new_error){ -if(qbevent){evnt(26070,1862,"ide_methods.bas");if(r)goto S_38268;} -S_38269:; -if ((-(*__LONG_IDESYSTEM== 3 ))||new_error){ -if(qbevent){evnt(26070,1863,"ide_methods.bas");if(r)goto S_38269;} -do{ -*__LONG_IDESYSTEM= 1 ; -if(!qbevent)break;evnt(26070,1863,"ide_methods.bas");}while(r); -} -do{ -goto LABEL_IDEFINDCHANGEJMP; -if(!qbevent)break;evnt(26070,1864,"ide_methods.bas");}while(r); -} -S_38274:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KB== 15616 ))|(qbs_equal(__STRING_K,func_chr( 28 )))))||new_error){ -if(qbevent){evnt(26070,1867,"ide_methods.bas");if(r)goto S_38274;} -S_38275:; -if ((-(*__LONG_IDESYSTEM== 3 ))||new_error){ -if(qbevent){evnt(26070,1868,"ide_methods.bas");if(r)goto S_38275;} -do{ -*__LONG_IDESYSTEM= 1 ; -if(!qbevent)break;evnt(26070,1868,"ide_methods.bas");}while(r); -} -LABEL_IDEMF3:; -if(qbevent){evnt(26070,1869,"ide_methods.bas");r=0;} -S_38278:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_IDEFINDTEXT,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,1870,"ide_methods.bas");if(r)goto S_38278;} -S_38279:; -if ((-(*__LONG_IDESYSTEM== 2 ))||new_error){ -if(qbevent){evnt(26070,1871,"ide_methods.bas");if(r)goto S_38279;} -do{ -*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__SX1= 0 ; -if(!qbevent)break;evnt(26070,1872,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1=__STRING_IDEFINDTEXT->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1873,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL= -1 ; -if(!qbevent)break;evnt(26070,1874,"ide_methods.bas");}while(r); -} -do{ -return_point[next_return_point++]=23; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_UPDATESEARCHBAR; -RETURN_23:; -if(!qbevent)break;evnt(26070,1876,"ide_methods.bas");}while(r); -S_38285:; -if ((*__LONG_KSHIFT)||new_error){ -if(qbevent){evnt(26070,1877,"ide_methods.bas");if(r)goto S_38285;} -do{ -*__INTEGER_IDEFINDINVERT= 1 ; -if(!qbevent)break;evnt(26070,1877,"ide_methods.bas");}while(r); -} -do{ -SUB_IDEADDSEARCHED(__STRING_IDEFINDTEXT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1878,"ide_methods.bas");}while(r); -do{ -SUB_IDEFINDAGAIN(&(pass4157= -1 )); -if(!qbevent)break;evnt(26070,1879,"ide_methods.bas");}while(r); -}else{ -do{ -goto LABEL_IDEFINDJMP; -if(!qbevent)break;evnt(26070,1881,"ide_methods.bas");}while(r); -} -do{ -goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(26070,1883,"ide_methods.bas");}while(r); -} -S_38295:; -if ((*__LONG_KSHIFT&(-(*__LONG_KB== 15104 )))||new_error){ -if(qbevent){evnt(26070,1886,"ide_methods.bas");if(r)goto S_38295;} -S_38296:; -if ((-(*__LONG_IDEHELP== 0 ))||new_error){ -if(qbevent){evnt(26070,1887,"ide_methods.bas");if(r)goto S_38296;} -do{ -*__LONG_IDESUBWINDOW=*__LONG_IDEWY/ 2 ; -if(!qbevent)break;evnt(26070,1888,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEWY=*__LONG_IDEWY-*__LONG_IDESUBWINDOW; -if(!qbevent)break;evnt(26070,1888,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_WX1= 2 ; -if(!qbevent)break;evnt(26070,1889,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_WY1=*__LONG_IDEWY+ 1 ; -if(!qbevent)break;evnt(26070,1889,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_WX2=*__LONG_IDEWX- 1 ; -if(!qbevent)break;evnt(26070,1889,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_WY2=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 2 ; -if(!qbevent)break;evnt(26070,1889,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_WW=*__LONG_HELP_WX2-*__LONG_HELP_WX1+ 1 ; -if(!qbevent)break;evnt(26070,1889,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_WH=*__LONG_HELP_WY2-*__LONG_HELP_WY1+ 1 ; -if(!qbevent)break;evnt(26070,1889,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEHELP= 1 ; -if(!qbevent)break;evnt(26070,1890,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_SKIPDISPLAY= 0 ; -if(!qbevent)break;evnt(26070,1891,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESYSTEM= 3 ; -if(!qbevent)break;evnt(26070,1892,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_RETVAL= 1 ; -if(!qbevent)break;evnt(26070,1893,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=24; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_REDRAWITALL; -RETURN_24:; -if(!qbevent)break;evnt(26070,1893,"ide_methods.bas");}while(r); -} -do{ -*__LONG_IDESYSTEM= 3 ; -if(!qbevent)break;evnt(26070,1895,"ide_methods.bas");}while(r); -do{ -goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(26070,1896,"ide_methods.bas");}while(r); -} -do{ -if(!qbevent)break;evnt(26070,1901,"ide_methods.bas");}while(r); -S_38315:; -if ((-(*__LONG_MB== 0 ))||new_error){ -if(qbevent){evnt(26070,1903,"ide_methods.bas");if(r)goto S_38315;} -do{ -*_FUNC_IDE2_LONG_HELP_SCROLLBAR= 0 ; -if(!qbevent)break;evnt(26070,1903,"ide_methods.bas");}while(r); -} -S_38318:; -if ((*__LONG_IDEHELP)||new_error){ -if(qbevent){evnt(26070,1904,"ide_methods.bas");if(r)goto S_38318;} -S_38319:; -if ((-(*__LONG_IDESYSTEM== 3 ))||new_error){ -if(qbevent){evnt(26070,1905,"ide_methods.bas");if(r)goto S_38319;} -S_38320:; -if ((*__LONG_MCLICK)||new_error){ -if(qbevent){evnt(26070,1908,"ide_methods.bas");if(r)goto S_38320;} -S_38321:; -if (((-(*__LONG_MX>= 2 ))&(-(*__LONG_MX<=(*__LONG_IDEWX- 1 )))&(-(*__LONG_MY==(*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 1 ))))||new_error){ -if(qbevent){evnt(26070,1909,"ide_methods.bas");if(r)goto S_38321;} -do{ -*_FUNC_IDE2_LONG_HELP_SCROLLBAR= 1 ; -if(!qbevent)break;evnt(26070,1910,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_V=FUNC_IDEHBAR(&(pass4158= 2 ),&(pass4159=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 1 ),&(pass4160=*__LONG_IDEWX- 2 ),__LONG_HELP_CX,&(pass4161=*__LONG_HELP_W+ 1 )); -if(!qbevent)break;evnt(26070,1911,"ide_methods.bas");}while(r); -S_38324:; -if ((-(*_FUNC_IDE2_LONG_V!=*__LONG_MX))||new_error){ -if(qbevent){evnt(26070,1912,"ide_methods.bas");if(r)goto S_38324;} -do{ -*_FUNC_IDE2_LONG_HELP_SCROLLBAR_METHOD= 3 ; -if(!qbevent)break;evnt(26070,1912,"ide_methods.bas");}while(r); -}else{ -do{ -*_FUNC_IDE2_LONG_HELP_SCROLLBAR_METHOD= 4 ; -if(!qbevent)break;evnt(26070,1912,"ide_methods.bas");}while(r); -} -S_38329:; -if ((-(*__LONG_MX== 2 ))||new_error){ -if(qbevent){evnt(26070,1913,"ide_methods.bas");if(r)goto S_38329;} -do{ -*_FUNC_IDE2_LONG_HELP_SCROLLBAR_METHOD= 1 ; -if(!qbevent)break;evnt(26070,1913,"ide_methods.bas");}while(r); -} -S_38332:; -if ((-(*__LONG_MX==(*__LONG_IDEWX- 1 )))||new_error){ -if(qbevent){evnt(26070,1914,"ide_methods.bas");if(r)goto S_38332;} -do{ -*_FUNC_IDE2_LONG_HELP_SCROLLBAR_METHOD= 2 ; -if(!qbevent)break;evnt(26070,1914,"ide_methods.bas");}while(r); -} -} -S_38336:; -if (((-(*__LONG_MY>=(*__LONG_IDEWY+ 1 )))&(-(*__LONG_MY<=(*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 2 )))&(-(*__LONG_MX==*__LONG_IDEWX)))||new_error){ -if(qbevent){evnt(26070,1916,"ide_methods.bas");if(r)goto S_38336;} -do{ -*_FUNC_IDE2_LONG_HELP_SCROLLBAR= 2 ; -if(!qbevent)break;evnt(26070,1917,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_V=FUNC_IDEVBAR(__LONG_IDEWX,&(pass4162=*__LONG_IDEWY+ 1 ),&(pass4163=*__LONG_IDESUBWINDOW- 2 ),__LONG_HELP_CY,&(pass4164=*__LONG_HELP_H+ 1 )); -if(!qbevent)break;evnt(26070,1918,"ide_methods.bas");}while(r); -S_38339:; -if ((-(*_FUNC_IDE2_LONG_V!=*__LONG_MY))||new_error){ -if(qbevent){evnt(26070,1919,"ide_methods.bas");if(r)goto S_38339;} -do{ -*_FUNC_IDE2_LONG_HELP_SCROLLBAR_METHOD= 3 ; -if(!qbevent)break;evnt(26070,1919,"ide_methods.bas");}while(r); -}else{ -do{ -*_FUNC_IDE2_LONG_HELP_SCROLLBAR_METHOD= 4 ; -if(!qbevent)break;evnt(26070,1919,"ide_methods.bas");}while(r); -} -S_38344:; -if ((-(*__LONG_MY==(*__LONG_IDEWY+ 1 )))||new_error){ -if(qbevent){evnt(26070,1920,"ide_methods.bas");if(r)goto S_38344;} -do{ -*_FUNC_IDE2_LONG_HELP_SCROLLBAR_METHOD= 1 ; -if(!qbevent)break;evnt(26070,1920,"ide_methods.bas");}while(r); -} -S_38347:; -if ((-(*__LONG_MY==(*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 2 )))||new_error){ -if(qbevent){evnt(26070,1921,"ide_methods.bas");if(r)goto S_38347;} -do{ -*_FUNC_IDE2_LONG_HELP_SCROLLBAR_METHOD= 2 ; -if(!qbevent)break;evnt(26070,1921,"ide_methods.bas");}while(r); -} -} -} -S_38352:; -if ((*_FUNC_IDE2_LONG_HELP_SCROLLBAR)||new_error){ -if(qbevent){evnt(26070,1925,"ide_methods.bas");if(r)goto S_38352;} -do{ -*__LONG_IDEMBMONITOR= 1 ; -if(!qbevent)break;evnt(26070,1926,"ide_methods.bas");}while(r); -S_38354:; -if ((-(*_FUNC_IDE2_LONG_HELP_SCROLLBAR_METHOD== 1 ))||new_error){ -if(qbevent){evnt(26070,1927,"ide_methods.bas");if(r)goto S_38354;} -S_38355:; -if ((-(*_FUNC_IDE2_LONG_HELP_SCROLLBAR== 1 ))||new_error){ -if(qbevent){evnt(26070,1928,"ide_methods.bas");if(r)goto S_38355;} -do{ -*__LONG_KB= 19200 ; -if(!qbevent)break;evnt(26070,1928,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT(); -if(!qbevent)break;evnt(26070,1928,"ide_methods.bas");}while(r); -} -S_38359:; -if ((-(*_FUNC_IDE2_LONG_HELP_SCROLLBAR== 2 ))||new_error){ -if(qbevent){evnt(26070,1929,"ide_methods.bas");if(r)goto S_38359;} -do{ -*__LONG_KB= 18432 ; -if(!qbevent)break;evnt(26070,1929,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT(); -if(!qbevent)break;evnt(26070,1929,"ide_methods.bas");}while(r); -} -} -S_38364:; -if ((-(*_FUNC_IDE2_LONG_HELP_SCROLLBAR_METHOD== 2 ))||new_error){ -if(qbevent){evnt(26070,1931,"ide_methods.bas");if(r)goto S_38364;} -S_38365:; -if ((-(*_FUNC_IDE2_LONG_HELP_SCROLLBAR== 1 ))||new_error){ -if(qbevent){evnt(26070,1932,"ide_methods.bas");if(r)goto S_38365;} -do{ -*__LONG_KB= 19712 ; -if(!qbevent)break;evnt(26070,1932,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT(); -if(!qbevent)break;evnt(26070,1932,"ide_methods.bas");}while(r); -} -S_38369:; -if ((-(*_FUNC_IDE2_LONG_HELP_SCROLLBAR== 2 ))||new_error){ -if(qbevent){evnt(26070,1933,"ide_methods.bas");if(r)goto S_38369;} -do{ -*__LONG_KB= 20480 ; -if(!qbevent)break;evnt(26070,1933,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT(); -if(!qbevent)break;evnt(26070,1933,"ide_methods.bas");}while(r); -} -} -S_38374:; -if ((-(*_FUNC_IDE2_LONG_HELP_SCROLLBAR_METHOD== 3 ))||new_error){ -if(qbevent){evnt(26070,1935,"ide_methods.bas");if(r)goto S_38374;} -S_38375:; -if ((-(*_FUNC_IDE2_LONG_HELP_SCROLLBAR== 1 ))||new_error){ -if(qbevent){evnt(26070,1936,"ide_methods.bas");if(r)goto S_38375;} -do{ -*_FUNC_IDE2_LONG_V=FUNC_IDEHBAR(&(pass4165= 2 ),&(pass4166=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 1 ),&(pass4167=*__LONG_IDEWX- 2 ),__LONG_HELP_CX,&(pass4168=*__LONG_HELP_W+ 1 )); -if(!qbevent)break;evnt(26070,1937,"ide_methods.bas");}while(r); -S_38377:; -if ((-(*__LONG_MX<*_FUNC_IDE2_LONG_V))||new_error){ -if(qbevent){evnt(26070,1938,"ide_methods.bas");if(r)goto S_38377;} -do{ -*__LONG_HELP_CX=*__LONG_HELP_CX- 8 ; -if(!qbevent)break;evnt(26070,1939,"ide_methods.bas");}while(r); -S_38379:; -if ((-(*__LONG_HELP_CX< 1 ))||new_error){ -if(qbevent){evnt(26070,1940,"ide_methods.bas");if(r)goto S_38379;} -do{ -*__LONG_HELP_CX= 1 ; -if(!qbevent)break;evnt(26070,1940,"ide_methods.bas");}while(r); -} -S_38382:; -if ((-(*__LONG_HELP_SX>*__LONG_HELP_CX))||new_error){ -if(qbevent){evnt(26070,1941,"ide_methods.bas");if(r)goto S_38382;} -do{ -*__LONG_HELP_SX=*__LONG_HELP_CX; -if(!qbevent)break;evnt(26070,1941,"ide_methods.bas");}while(r); -} -do{ -SUB_IDEWAIT(); -if(!qbevent)break;evnt(26070,1942,"ide_methods.bas");}while(r); -} -S_38387:; -if ((-(*__LONG_MX>*_FUNC_IDE2_LONG_V))||new_error){ -if(qbevent){evnt(26070,1944,"ide_methods.bas");if(r)goto S_38387;} -do{ -*__LONG_HELP_CX=*__LONG_HELP_CX+ 8 ; -if(!qbevent)break;evnt(26070,1945,"ide_methods.bas");}while(r); -S_38389:; -if ((-(*__LONG_HELP_CX>(*__LONG_HELP_W+ 1 )))||new_error){ -if(qbevent){evnt(26070,1946,"ide_methods.bas");if(r)goto S_38389;} -do{ -*__LONG_HELP_CX=*__LONG_HELP_W+ 1 ; -if(!qbevent)break;evnt(26070,1946,"ide_methods.bas");}while(r); -} -do{ -SUB_IDEWAIT(); -if(!qbevent)break;evnt(26070,1947,"ide_methods.bas");}while(r); -} -} -S_38395:; -if ((-(*_FUNC_IDE2_LONG_HELP_SCROLLBAR== 2 ))||new_error){ -if(qbevent){evnt(26070,1950,"ide_methods.bas");if(r)goto S_38395;} -do{ -*_FUNC_IDE2_LONG_V=FUNC_IDEVBAR(__LONG_IDEWX,&(pass4169=*__LONG_IDEWY+ 1 ),&(pass4170=*__LONG_IDESUBWINDOW- 2 ),__LONG_HELP_CY,&(pass4171=*__LONG_HELP_H+ 1 )); -if(!qbevent)break;evnt(26070,1951,"ide_methods.bas");}while(r); -S_38397:; -if ((-(*__LONG_MY<*_FUNC_IDE2_LONG_V))||new_error){ -if(qbevent){evnt(26070,1952,"ide_methods.bas");if(r)goto S_38397;} -do{ -*__LONG_KB= 18688 ; -if(!qbevent)break;evnt(26070,1952,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT(); -if(!qbevent)break;evnt(26070,1952,"ide_methods.bas");}while(r); -} -S_38401:; -if ((-(*__LONG_MY>*_FUNC_IDE2_LONG_V))||new_error){ -if(qbevent){evnt(26070,1953,"ide_methods.bas");if(r)goto S_38401;} -do{ -*__LONG_KB= 20736 ; -if(!qbevent)break;evnt(26070,1953,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT(); -if(!qbevent)break;evnt(26070,1953,"ide_methods.bas");}while(r); -} -} -} -S_38407:; -if ((-(*_FUNC_IDE2_LONG_HELP_SCROLLBAR_METHOD== 4 ))||new_error){ -if(qbevent){evnt(26070,1960,"ide_methods.bas");if(r)goto S_38407;} -S_38408:; -if ((-(*_FUNC_IDE2_LONG_HELP_SCROLLBAR== 1 ))||new_error){ -if(qbevent){evnt(26070,1961,"ide_methods.bas");if(r)goto S_38408;} -S_38409:; -if ((-(*__LONG_HELP_W> 1 ))||new_error){ -if(qbevent){evnt(26070,1962,"ide_methods.bas");if(r)goto S_38409;} -S_38410:; -if ((-(*__LONG_MX<= 3 ))||new_error){ -if(qbevent){evnt(26070,1963,"ide_methods.bas");if(r)goto S_38410;} -do{ -*__LONG_HELP_SX= 1 ; -if(!qbevent)break;evnt(26070,1964,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_CX= 1 ; -if(!qbevent)break;evnt(26070,1964,"ide_methods.bas");}while(r); -S_38413:; -}else{ -if (-(*__LONG_MX>=(*__LONG_IDEWX- 2 ))){ -if(qbevent){evnt(26070,1965,"ide_methods.bas");if(r)goto S_38413;} -do{ -*__LONG_HELP_SX=*__LONG_HELP_W+ 1 ; -if(!qbevent)break;evnt(26070,1966,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_CX=*__LONG_HELP_W+ 1 ; -if(!qbevent)break;evnt(26070,1966,"ide_methods.bas");}while(r); -}else{ -do{ -*_FUNC_IDE2_LONG_X=*__LONG_MX; -if(!qbevent)break;evnt(26070,1968,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_SINGLE_P=*_FUNC_IDE2_LONG_X- 4 + 0.5E+0 ; -if(!qbevent)break;evnt(26070,1969,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_SINGLE_P=*_FUNC_IDE2_SINGLE_P/ (*__LONG_IDEWX- 3 - 3 ); -if(!qbevent)break;evnt(26070,1970,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=qbr((*_FUNC_IDE2_SINGLE_P**__LONG_HELP_W)+( 1 )); -if(!qbevent)break;evnt(26070,1971,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_SX=*_FUNC_IDE2_LONG_I; -if(!qbevent)break;evnt(26070,1972,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_CX=*_FUNC_IDE2_LONG_I; -if(!qbevent)break;evnt(26070,1972,"ide_methods.bas");}while(r); -} -} -} -} -S_38426:; -if ((-(*_FUNC_IDE2_LONG_HELP_SCROLLBAR== 2 ))||new_error){ -if(qbevent){evnt(26070,1976,"ide_methods.bas");if(r)goto S_38426;} -S_38427:; -if ((-(*__LONG_HELP_H> 1 ))||new_error){ -if(qbevent){evnt(26070,1977,"ide_methods.bas");if(r)goto S_38427;} -S_38428:; -if ((-(*__LONG_MY<=(*__LONG_IDEWY+ 2 )))||new_error){ -if(qbevent){evnt(26070,1979,"ide_methods.bas");if(r)goto S_38428;} -do{ -*__LONG_HELP_CY= 1 ; -if(!qbevent)break;evnt(26070,1980,"ide_methods.bas");}while(r); -S_38430:; -}else{ -if (-(*__LONG_MY>=(*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 3 ))){ -if(qbevent){evnt(26070,1981,"ide_methods.bas");if(r)goto S_38430;} -do{ -*__LONG_HELP_CY=*__LONG_HELP_H+ 1 ; -if(!qbevent)break;evnt(26070,1982,"ide_methods.bas");}while(r); -}else{ -do{ -*_FUNC_IDE2_LONG_Y=*__LONG_MY; -if(!qbevent)break;evnt(26070,1984,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_SINGLE_P=*_FUNC_IDE2_LONG_Y-*__LONG_IDEWY- 3 + 0.5E+0 ; -if(!qbevent)break;evnt(26070,1985,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_SINGLE_P=*_FUNC_IDE2_SINGLE_P/ (*__LONG_IDESUBWINDOW- 3 - 3 ); -if(!qbevent)break;evnt(26070,1986,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=qbr((*_FUNC_IDE2_SINGLE_P**__LONG_HELP_H)+( 1 )); -if(!qbevent)break;evnt(26070,1987,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_CY=*_FUNC_IDE2_LONG_I; -if(!qbevent)break;evnt(26070,1988,"ide_methods.bas");}while(r); -} -} -S_38439:; -if ((-(*__LONG_HELP_CX< 1 ))||new_error){ -if(qbevent){evnt(26070,1991,"ide_methods.bas");if(r)goto S_38439;} -do{ -*__LONG_HELP_CX= 1 ; -if(!qbevent)break;evnt(26070,1991,"ide_methods.bas");}while(r); -} -S_38442:; -if ((-(*__LONG_HELP_CX>(*__LONG_HELP_W+ 1 )))||new_error){ -if(qbevent){evnt(26070,1992,"ide_methods.bas");if(r)goto S_38442;} -do{ -*__LONG_HELP_CX=*__LONG_HELP_W+ 1 ; -if(!qbevent)break;evnt(26070,1992,"ide_methods.bas");}while(r); -} -S_38445:; -if ((-(*__LONG_HELP_CY< 1 ))||new_error){ -if(qbevent){evnt(26070,1993,"ide_methods.bas");if(r)goto S_38445;} -do{ -*__LONG_HELP_CY= 1 ; -if(!qbevent)break;evnt(26070,1993,"ide_methods.bas");}while(r); -} -S_38448:; -if ((-(*__LONG_HELP_CY>(*__LONG_HELP_H+ 1 )))||new_error){ -if(qbevent){evnt(26070,1994,"ide_methods.bas");if(r)goto S_38448;} -do{ -*__LONG_HELP_CY=*__LONG_HELP_H+ 1 ; -if(!qbevent)break;evnt(26070,1994,"ide_methods.bas");}while(r); -} -S_38451:; -if ((-(*__LONG_HELP_CX<*__LONG_HELP_SX))||new_error){ -if(qbevent){evnt(26070,1996,"ide_methods.bas");if(r)goto S_38451;} -do{ -*__LONG_HELP_SX=*__LONG_HELP_CX; -if(!qbevent)break;evnt(26070,1996,"ide_methods.bas");}while(r); -} -S_38454:; -if ((-(*__LONG_HELP_CX>=(*__LONG_HELP_SX+*__LONG_HELP_WW)))||new_error){ -if(qbevent){evnt(26070,1997,"ide_methods.bas");if(r)goto S_38454;} -do{ -*__LONG_HELP_SX=*__LONG_HELP_CX-*__LONG_HELP_WW+ 1 ; -if(!qbevent)break;evnt(26070,1997,"ide_methods.bas");}while(r); -} -S_38457:; -if ((-(*__LONG_HELP_CY<*__LONG_HELP_SY))||new_error){ -if(qbevent){evnt(26070,1998,"ide_methods.bas");if(r)goto S_38457;} -do{ -*__LONG_HELP_SY=*__LONG_HELP_CY; -if(!qbevent)break;evnt(26070,1998,"ide_methods.bas");}while(r); -} -S_38460:; -if ((-(*__LONG_HELP_CY>=(*__LONG_HELP_SY+*__LONG_HELP_WH)))||new_error){ -if(qbevent){evnt(26070,1999,"ide_methods.bas");if(r)goto S_38460;} -do{ -*__LONG_HELP_SY=*__LONG_HELP_CY-*__LONG_HELP_WH+ 1 ; -if(!qbevent)break;evnt(26070,1999,"ide_methods.bas");}while(r); -} -S_38463:; -if ((-(*__LONG_HELP_SX< 1 ))||new_error){ -if(qbevent){evnt(26070,2001,"ide_methods.bas");if(r)goto S_38463;} -do{ -*__LONG_HELP_SX= 1 ; -if(!qbevent)break;evnt(26070,2001,"ide_methods.bas");}while(r); -} -S_38466:; -if ((-(*__LONG_HELP_SY< 1 ))||new_error){ -if(qbevent){evnt(26070,2002,"ide_methods.bas");if(r)goto S_38466;} -do{ -*__LONG_HELP_SY= 1 ; -if(!qbevent)break;evnt(26070,2002,"ide_methods.bas");}while(r); -} -} -} -} -S_38472:; -if ((*__LONG_MCLICK)||new_error){ -if(qbevent){evnt(26070,2023,"ide_methods.bas");if(r)goto S_38472;} -do{ -*__LONG_MCLICK= 0 ; -if(!qbevent)break;evnt(26070,2023,"ide_methods.bas");}while(r); -} -} -} -} -S_38478:; -if ((*__LONG_MCLICK)||new_error){ -if(qbevent){evnt(26070,2034,"ide_methods.bas");if(r)goto S_38478;} -S_38479:; -if (((-(*__LONG_MY==(*__LONG_IDEWY- 4 )))&(-(*__LONG_MX>(*__LONG_IDEWX-( 20 + 10 ))))&(-(*__LONG_MX<(*__LONG_IDEWX- 1 ))))||new_error){ -if(qbevent){evnt(26070,2035,"ide_methods.bas");if(r)goto S_38479;} -S_38480:; -if ((-(*__LONG_MX<=(*__LONG_IDEWX-( 20 + 8 )+ 2 )))||new_error){ -if(qbevent){evnt(26070,2036,"ide_methods.bas");if(r)goto S_38480;} -S_38481:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_IDEFINDTEXT->len== 0 )))||new_error){ -if(qbevent){evnt(26070,2037,"ide_methods.bas");if(r)goto S_38481;} -do{ -*__LONG_IDESYSTEM= 2 ; -if(!qbevent)break;evnt(26070,2038,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL= 0 ; -if(!qbevent)break;evnt(26070,2039,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1= 0 ; -if(!qbevent)break;evnt(26070,2039,"ide_methods.bas");}while(r); -}else{ -do{ -SUB_IDEADDSEARCHED(__STRING_IDEFINDTEXT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2041,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESYSTEM= 1 ; -if(!qbevent)break;evnt(26070,2042,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDEMF3; -if(!qbevent)break;evnt(26070,2042,"ide_methods.bas");}while(r); -} -}else{ -S_38491:; -if ((-(*__LONG_MX==(*__LONG_IDEWX- 3 )))||new_error){ -if(qbevent){evnt(26070,2045,"ide_methods.bas");if(r)goto S_38491;} -LABEL_SHOWRECENTLYSEARCHEDBOX:; -if(qbevent){evnt(26070,2046,"ide_methods.bas");r=0;} -do{ -sub_pcopy( 0 , 3 ); -if(!qbevent)break;evnt(26070,2047,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=25; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_UPDATESEARCHBAR; -RETURN_25:; -if(!qbevent)break;evnt(26070,2048,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_F,FUNC_IDESEARCHEDBOX()); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2049,"ide_methods.bas");}while(r); -S_38495:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_F->len))||new_error){ -if(qbevent){evnt(26070,2050,"ide_methods.bas");if(r)goto S_38495;} -do{ -qbs_set(__STRING_IDEFINDTEXT,_FUNC_IDE2_STRING_F); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2050,"ide_methods.bas");}while(r); -} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,2051,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,2051,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEALTHIGHLIGHT= 0 ; -if(!qbevent)break;evnt(26070,2052,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); -if(!qbevent)break;evnt(26070,2053,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,2053,"ide_methods.bas");}while(r); -do{ -sub__printstring( 1 , 1 ,__STRING_MENUBAR,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2053,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESYSTEM= 1 ; -if(!qbevent)break;evnt(26070,2054,"ide_methods.bas");}while(r); -S_38505:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_F->len))||new_error){ -if(qbevent){evnt(26070,2055,"ide_methods.bas");if(r)goto S_38505;} -do{ -goto LABEL_IDEMF3; -if(!qbevent)break;evnt(26070,2055,"ide_methods.bas");}while(r); -} -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,2056,"ide_methods.bas");}while(r); -}else{ -S_38510:; -if ((-(*__LONG_IDESYSTEM== 2 ))||new_error){ -if(qbevent){evnt(26070,2058,"ide_methods.bas");if(r)goto S_38510;} -S_38511:; -if ((*_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL)||new_error){ -if(qbevent){evnt(26070,2059,"ide_methods.bas");if(r)goto S_38511;} -do{ -*_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL= 0 ; -if(!qbevent)break;evnt(26070,2059,"ide_methods.bas");}while(r); -} -S_38514:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_IDEFINDTEXT->len<= 20 )))||new_error){ -if(qbevent){evnt(26070,2061,"ide_methods.bas");if(r)goto S_38514;} -do{ -*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1=*__LONG_MX-(*__LONG_IDEWX-( 20 + 4 )); -if(!qbevent)break;evnt(26070,2062,"ide_methods.bas");}while(r); -}else{ -S_38517:; -if ((-(*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1> 20 ))||new_error){ -if(qbevent){evnt(26070,2064,"ide_methods.bas");if(r)goto S_38517;} -do{ -*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1=(*__LONG_MX-(*__LONG_IDEWX-( 20 + 4 )))+(*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1- 20 ); -if(!qbevent)break;evnt(26070,2065,"ide_methods.bas");}while(r); -}else{ -do{ -*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1=*__LONG_MX-(*__LONG_IDEWX-( 20 + 4 )); -if(!qbevent)break;evnt(26070,2067,"ide_methods.bas");}while(r); -} -} -}else{ -do{ -*__LONG_IDESYSTEM= 2 ; -if(!qbevent)break;evnt(26070,2071,"ide_methods.bas");}while(r); -S_38525:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_IDEFINDTEXT->len))||new_error){ -if(qbevent){evnt(26070,2072,"ide_methods.bas");if(r)goto S_38525;} -do{ -*_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL= -1 ; -if(!qbevent)break;evnt(26070,2072,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__SX1= 0 ; -if(!qbevent)break;evnt(26070,2072,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1=__STRING_IDEFINDTEXT->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2072,"ide_methods.bas");}while(r); -} -} -} -} -} -} -S_38535:; -if ((-(*__LONG_KB== 16384 ))||new_error){ -if(qbevent){evnt(26070,2081,"ide_methods.bas");if(r)goto S_38535;} -S_38536:; -if ((-(*__LONG_IDEHELP== 1 ))||new_error){ -if(qbevent){evnt(26070,2082,"ide_methods.bas");if(r)goto S_38536;} -S_38537:; -if ((-(*__LONG_IDESYSTEM== 3 ))||new_error){ -if(qbevent){evnt(26070,2083,"ide_methods.bas");if(r)goto S_38537;} -do{ -*__LONG_IDESYSTEM= 1 ; -if(!qbevent)break;evnt(26070,2084,"ide_methods.bas");}while(r); -}else{ -do{ -*__LONG_IDESYSTEM= 3 ; -if(!qbevent)break;evnt(26070,2086,"ide_methods.bas");}while(r); -} -} -} -S_38544:; -if ((-(*__LONG_IDEHELP== 1 ))||new_error){ -if(qbevent){evnt(26070,2091,"ide_methods.bas");if(r)goto S_38544;} -S_38545:; -if ((*__LONG_MCLICK|*__LONG_MCLICK2)||new_error){ -if(qbevent){evnt(26070,2092,"ide_methods.bas");if(r)goto S_38545;} -S_38546:; -if ((-(*__LONG_IDESYSTEM== 3 ))||new_error){ -if(qbevent){evnt(26070,2093,"ide_methods.bas");if(r)goto S_38546;} -S_38547:; -if (((-(*__LONG_MY>= 2 ))&(-(*__LONG_MY<*__LONG_IDEWY)))||new_error){ -if(qbevent){evnt(26070,2094,"ide_methods.bas");if(r)goto S_38547;} -do{ -*__LONG_IDESYSTEM= 1 ; -if(!qbevent)break;evnt(26070,2095,"ide_methods.bas");}while(r); -} -}else{ -S_38551:; -if (((-(*__LONG_MY>=*__LONG_IDEWY))&(-(*__LONG_MY<(*__LONG_IDEWY+*__LONG_IDESUBWINDOW))))||new_error){ -if(qbevent){evnt(26070,2098,"ide_methods.bas");if(r)goto S_38551;} -do{ -*__LONG_IDESYSTEM= 3 ; -if(!qbevent)break;evnt(26070,2099,"ide_methods.bas");}while(r); -} -} -S_38555:; -if ((*__LONG_MCLICK2)||new_error){ -if(qbevent){evnt(26070,2103,"ide_methods.bas");if(r)goto S_38555;} -do{ -goto LABEL_INVOKECONTEXTUALMENU; -if(!qbevent)break;evnt(26070,2104,"ide_methods.bas");}while(r); -} -} -} -S_38560:; -if ((-(*__LONG_IDESYSTEM== 2 ))||new_error){ -if(qbevent){evnt(26070,2109,"ide_methods.bas");if(r)goto S_38560;} -do{ -*_FUNC_IDE2_LONG_Z= 0 ; -if(!qbevent)break;evnt(26070,2110,"ide_methods.bas");}while(r); -S_38562:; -if (((*__LONG_KALT&(-(*__LONG_KB== 18432 )))|(*__LONG_KALT&(-(*__LONG_KB== 20480 ))))||new_error){ -if(qbevent){evnt(26070,2111,"ide_methods.bas");if(r)goto S_38562;} -do{ -goto LABEL_SHOWRECENTLYSEARCHEDBOX; -if(!qbevent)break;evnt(26070,2111,"ide_methods.bas");}while(r); -} -S_38565:; -if ((-(*__LONG_KB== 18432 ))||new_error){ -if(qbevent){evnt(26070,2112,"ide_methods.bas");if(r)goto S_38565;} -do{ -*_FUNC_IDE2_LONG_Z= 1 ; -if(!qbevent)break;evnt(26070,2112,"ide_methods.bas");}while(r); -} -S_38568:; -if ((-(*__LONG_KB== 20480 ))||new_error){ -if(qbevent){evnt(26070,2113,"ide_methods.bas");if(r)goto S_38568;} -do{ -*_FUNC_IDE2_LONG_Z= 1 ; -if(!qbevent)break;evnt(26070,2113,"ide_methods.bas");}while(r); -} -S_38571:; -if ((-(*__LONG_KB== 18688 ))||new_error){ -if(qbevent){evnt(26070,2114,"ide_methods.bas");if(r)goto S_38571;} -do{ -*_FUNC_IDE2_LONG_Z= 1 ; -if(!qbevent)break;evnt(26070,2114,"ide_methods.bas");}while(r); -} -S_38574:; -if ((-(*__LONG_KB== 20736 ))||new_error){ -if(qbevent){evnt(26070,2115,"ide_methods.bas");if(r)goto S_38574;} -do{ -*_FUNC_IDE2_LONG_Z= 1 ; -if(!qbevent)break;evnt(26070,2115,"ide_methods.bas");}while(r); -} -S_38577:; -if ((*__LONG_MWHEEL)||new_error){ -if(qbevent){evnt(26070,2116,"ide_methods.bas");if(r)goto S_38577;} -do{ -*_FUNC_IDE2_LONG_Z= 1 ; -if(!qbevent)break;evnt(26070,2116,"ide_methods.bas");}while(r); -} -S_38580:; -if ((-(*_FUNC_IDE2_LONG_Z== 1 ))||new_error){ -if(qbevent){evnt(26070,2117,"ide_methods.bas");if(r)goto S_38580;} -do{ -*__LONG_IDESYSTEM= 1 ; -if(!qbevent)break;evnt(26070,2117,"ide_methods.bas");}while(r); -} -} -S_38584:; -if ((-(*__LONG_IDESYSTEM== 2 ))||new_error){ -if(qbevent){evnt(26070,2120,"ide_methods.bas");if(r)goto S_38584;} -do{ -qbs_set(_FUNC_IDE2_STRING_A,__STRING_IDEFINDTEXT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2121,"ide_methods.bas");}while(r); -S_38586:; -if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_K->len== 1 ))|(((-(*__LONG_KB== 20992 ))|(-(*__LONG_KB== 21248 ))))))||new_error){ -if(qbevent){evnt(26070,2122,"ide_methods.bas");if(r)goto S_38586;} -S_38587:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ -if(qbevent){evnt(26070,2123,"ide_methods.bas");if(r)goto S_38587;} -do{ -*_FUNC_IDE2_LONG_K=qbs_asc(__STRING_K); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2123,"ide_methods.bas");}while(r); -} -S_38590:; -if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(-(*__LONG_KB== 20992 )))|(*__LONG_KCONTROL&(qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("V",1))))))||new_error){ -if(qbevent){evnt(26070,2124,"ide_methods.bas");if(r)goto S_38590;} -LABEL_PASTEINTOSEARCHFIELD:; -if(qbevent){evnt(26070,2125,"ide_methods.bas");r=0;} -do{ -qbs_set(_FUNC_IDE2_STRING_CLIP,func__clipboard()); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2126,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_X=func_instr(NULL,_FUNC_IDE2_STRING_CLIP,func_chr( 13 ),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2127,"ide_methods.bas");}while(r); -S_38593:; -if ((*_FUNC_IDE2_LONG_X)||new_error){ -if(qbevent){evnt(26070,2128,"ide_methods.bas");if(r)goto S_38593;} -do{ -qbs_set(_FUNC_IDE2_STRING_CLIP,qbs_left(_FUNC_IDE2_STRING_CLIP,*_FUNC_IDE2_LONG_X- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2128,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDE2_LONG_X=func_instr(NULL,_FUNC_IDE2_STRING_CLIP,func_chr( 10 ),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2129,"ide_methods.bas");}while(r); -S_38597:; -if ((*_FUNC_IDE2_LONG_X)||new_error){ -if(qbevent){evnt(26070,2130,"ide_methods.bas");if(r)goto S_38597;} -do{ -qbs_set(_FUNC_IDE2_STRING_CLIP,qbs_left(_FUNC_IDE2_STRING_CLIP,*_FUNC_IDE2_LONG_X- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2130,"ide_methods.bas");}while(r); -} -S_38600:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_CLIP->len))||new_error){ -if(qbevent){evnt(26070,2131,"ide_methods.bas");if(r)goto S_38600;} -S_38601:; -if ((*_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL)||new_error){ -if(qbevent){evnt(26070,2132,"ide_methods.bas");if(r)goto S_38601;} -do{ -*_FUNC_IDE2_LONG_SX1=*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__SX1; -if(!qbevent)break;evnt(26070,2133,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_SX2=*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1; -if(!qbevent)break;evnt(26070,2133,"ide_methods.bas");}while(r); -S_38604:; -if ((-(*_FUNC_IDE2_LONG_SX1>*_FUNC_IDE2_LONG_SX2))||new_error){ -if(qbevent){evnt(26070,2134,"ide_methods.bas");if(r)goto S_38604;} -do{ -swap_32(&*_FUNC_IDE2_LONG_SX1,&*_FUNC_IDE2_LONG_SX2); -if(!qbevent)break;evnt(26070,2134,"ide_methods.bas");}while(r); -} -S_38607:; -if ((-((*_FUNC_IDE2_LONG_SX2-*_FUNC_IDE2_LONG_SX1)>( 0 )))||new_error){ -if(qbevent){evnt(26070,2135,"ide_methods.bas");if(r)goto S_38607;} -do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(qbs_left(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_SX1),_FUNC_IDE2_STRING_CLIP),qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len-*_FUNC_IDE2_LONG_SX2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2136,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1=*_FUNC_IDE2_LONG_SX1; -if(!qbevent)break;evnt(26070,2137,"ide_methods.bas");}while(r); -S_38610:; -if ((*__BYTE_PASTECURSORATEND)||new_error){ -if(qbevent){evnt(26070,2138,"ide_methods.bas");if(r)goto S_38610;} -do{ -*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1=*_FUNC_IDE2_LONG_SX1+_FUNC_IDE2_STRING_CLIP->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2139,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL= 0 ; -if(!qbevent)break;evnt(26070,2141,"ide_methods.bas");}while(r); -} -}else{ -do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(qbs_left(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1),_FUNC_IDE2_STRING_CLIP),qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len-*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2144,"ide_methods.bas");}while(r); -S_38617:; -if ((*__BYTE_PASTECURSORATEND)||new_error){ -if(qbevent){evnt(26070,2145,"ide_methods.bas");if(r)goto S_38617;} -do{ -*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1=*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1+_FUNC_IDE2_STRING_CLIP->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2145,"ide_methods.bas");}while(r); -} -} -} -do{ -*_FUNC_IDE2_LONG_K= 255 ; -if(!qbevent)break;evnt(26070,2148,"ide_methods.bas");}while(r); -} -S_38624:; -if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KCONTROL&(qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("A",1))))))||new_error){ -if(qbevent){evnt(26070,2151,"ide_methods.bas");if(r)goto S_38624;} -LABEL_SELECTALLINSEARCHFIELD:; -if(qbevent){evnt(26070,2152,"ide_methods.bas");r=0;} -S_38625:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDE2_STRING_A->len> 0 )))||new_error){ -if(qbevent){evnt(26070,2153,"ide_methods.bas");if(r)goto S_38625;} -do{ -*_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL= -1 ; -if(!qbevent)break;evnt(26070,2154,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__SX1= 0 ; -if(!qbevent)break;evnt(26070,2155,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1=_FUNC_IDE2_STRING_A->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2156,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDE2_LONG_K= 255 ; -if(!qbevent)break;evnt(26070,2158,"ide_methods.bas");}while(r); -} -S_38632:; -if ((qbs_cleanup(qbs_tmp_base,((*__LONG_KCTRL&(-(*__LONG_KB== 20992 )))|(*__LONG_KCONTROL&(qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("C",1)))))))||new_error){ -if(qbevent){evnt(26070,2161,"ide_methods.bas");if(r)goto S_38632;} -LABEL_COPYSEARCHTERM2CLIP:; -if(qbevent){evnt(26070,2162,"ide_methods.bas");r=0;} -S_38633:; -if ((*_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL)||new_error){ -if(qbevent){evnt(26070,2163,"ide_methods.bas");if(r)goto S_38633;} -do{ -*_FUNC_IDE2_LONG_SX1=*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__SX1; -if(!qbevent)break;evnt(26070,2164,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_SX2=*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1; -if(!qbevent)break;evnt(26070,2164,"ide_methods.bas");}while(r); -S_38636:; -if ((-(*_FUNC_IDE2_LONG_SX1>*_FUNC_IDE2_LONG_SX2))||new_error){ -if(qbevent){evnt(26070,2165,"ide_methods.bas");if(r)goto S_38636;} -do{ -swap_32(&*_FUNC_IDE2_LONG_SX1,&*_FUNC_IDE2_LONG_SX2); -if(!qbevent)break;evnt(26070,2165,"ide_methods.bas");}while(r); -} -S_38639:; -if ((-((*_FUNC_IDE2_LONG_SX2-*_FUNC_IDE2_LONG_SX1)>( 0 )))||new_error){ -if(qbevent){evnt(26070,2166,"ide_methods.bas");if(r)goto S_38639;} -do{ -sub__clipboard(func_mid(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_SX1+ 1 ,*_FUNC_IDE2_LONG_SX2-*_FUNC_IDE2_LONG_SX1,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2166,"ide_methods.bas");}while(r); -} -} -do{ -*_FUNC_IDE2_LONG_K= 255 ; -if(!qbevent)break;evnt(26070,2168,"ide_methods.bas");}while(r); -} -S_38645:; -if ((qbs_cleanup(qbs_tmp_base,((*__LONG_KSHIFT&(-(*__LONG_KB== 21248 )))|(*__LONG_KCONTROL&(qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("X",1)))))))||new_error){ -if(qbevent){evnt(26070,2171,"ide_methods.bas");if(r)goto S_38645;} -LABEL_CUTTOCLIPBOARDSEARCHFIELD:; -if(qbevent){evnt(26070,2172,"ide_methods.bas");r=0;} -S_38646:; -if ((*_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL)||new_error){ -if(qbevent){evnt(26070,2173,"ide_methods.bas");if(r)goto S_38646;} -do{ -*_FUNC_IDE2_LONG_SX1=*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__SX1; -if(!qbevent)break;evnt(26070,2174,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_SX2=*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1; -if(!qbevent)break;evnt(26070,2174,"ide_methods.bas");}while(r); -S_38649:; -if ((-(*_FUNC_IDE2_LONG_SX1>*_FUNC_IDE2_LONG_SX2))||new_error){ -if(qbevent){evnt(26070,2175,"ide_methods.bas");if(r)goto S_38649;} -do{ -swap_32(&*_FUNC_IDE2_LONG_SX1,&*_FUNC_IDE2_LONG_SX2); -if(!qbevent)break;evnt(26070,2175,"ide_methods.bas");}while(r); -} -S_38652:; -if ((-((*_FUNC_IDE2_LONG_SX2-*_FUNC_IDE2_LONG_SX1)>( 0 )))||new_error){ -if(qbevent){evnt(26070,2176,"ide_methods.bas");if(r)goto S_38652;} -do{ -sub__clipboard(func_mid(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_SX1+ 1 ,*_FUNC_IDE2_LONG_SX2-*_FUNC_IDE2_LONG_SX1,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2177,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_left(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_SX1),qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len-*_FUNC_IDE2_LONG_SX2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2179,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1=*_FUNC_IDE2_LONG_SX1; -if(!qbevent)break;evnt(26070,2180,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL= 0 ; -if(!qbevent)break;evnt(26070,2181,"ide_methods.bas");}while(r); -} -} -do{ -*_FUNC_IDE2_LONG_K= 255 ; -if(!qbevent)break;evnt(26070,2184,"ide_methods.bas");}while(r); -} -S_38661:; -if ((-(*_FUNC_IDE2_LONG_K== 8 ))||new_error){ -if(qbevent){evnt(26070,2187,"ide_methods.bas");if(r)goto S_38661;} -S_38662:; -if ((*_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL)||new_error){ -if(qbevent){evnt(26070,2188,"ide_methods.bas");if(r)goto S_38662;} -do{ -*_FUNC_IDE2_LONG_SX1=*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__SX1; -if(!qbevent)break;evnt(26070,2189,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_SX2=*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1; -if(!qbevent)break;evnt(26070,2189,"ide_methods.bas");}while(r); -S_38665:; -if ((-(*_FUNC_IDE2_LONG_SX1>*_FUNC_IDE2_LONG_SX2))||new_error){ -if(qbevent){evnt(26070,2190,"ide_methods.bas");if(r)goto S_38665;} -do{ -swap_32(&*_FUNC_IDE2_LONG_SX1,&*_FUNC_IDE2_LONG_SX2); -if(!qbevent)break;evnt(26070,2190,"ide_methods.bas");}while(r); -} -S_38668:; -if ((-((*_FUNC_IDE2_LONG_SX2-*_FUNC_IDE2_LONG_SX1)>( 0 )))||new_error){ -if(qbevent){evnt(26070,2191,"ide_methods.bas");if(r)goto S_38668;} -do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_left(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_SX1),qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len-*_FUNC_IDE2_LONG_SX2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2193,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_IDEFINDTEXT,_FUNC_IDE2_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2194,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1=*_FUNC_IDE2_LONG_SX1; -if(!qbevent)break;evnt(26070,2195,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL= 0 ; -if(!qbevent)break;evnt(26070,2196,"ide_methods.bas");}while(r); -} -S_38674:; -}else{ -if (-(*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1> 0 )){ -if(qbevent){evnt(26070,2198,"ide_methods.bas");if(r)goto S_38674;} -do{ -qbs_set(_FUNC_IDE2_STRING_A1,qbs_left(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2199,"ide_methods.bas");}while(r); -S_38676:; -if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1<=_FUNC_IDE2_STRING_A->len)))||new_error){ -if(qbevent){evnt(26070,2200,"ide_methods.bas");if(r)goto S_38676;} -do{ -qbs_set(_FUNC_IDE2_STRING_A2,qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len-*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2200,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDE2_STRING_A2,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2200,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_add(_FUNC_IDE2_STRING_A1,_FUNC_IDE2_STRING_A2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2201,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1=*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1- 1 ; -if(!qbevent)break;evnt(26070,2201,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_IDEFINDTEXT,_FUNC_IDE2_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2202,"ide_methods.bas");}while(r); -} -} -} -S_38686:; -if ((-(*_FUNC_IDE2_LONG_K== 27 ))||new_error){ -if(qbevent){evnt(26070,2205,"ide_methods.bas");if(r)goto S_38686;} -do{ -*__LONG_IDESYSTEM= 1 ; -if(!qbevent)break;evnt(26070,2206,"ide_methods.bas");}while(r); -do{ -goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(26070,2207,"ide_methods.bas");}while(r); -} -S_38690:; -if ((-(*_FUNC_IDE2_LONG_K== 9 ))||new_error){ -if(qbevent){evnt(26070,2209,"ide_methods.bas");if(r)goto S_38690;} -do{ -*__LONG_IDESYSTEM= 1 ; -if(!qbevent)break;evnt(26070,2210,"ide_methods.bas");}while(r); -do{ -goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(26070,2211,"ide_methods.bas");}while(r); -} -S_38694:; -if ((-(*_FUNC_IDE2_LONG_K== 13 ))||new_error){ -if(qbevent){evnt(26070,2213,"ide_methods.bas");if(r)goto S_38694;} -S_38695:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_IDEFINDTEXT->len))||new_error){ -if(qbevent){evnt(26070,2214,"ide_methods.bas");if(r)goto S_38695;} -do{ -SUB_IDEADDSEARCHED(__STRING_IDEFINDTEXT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2215,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDEMF3; -if(!qbevent)break;evnt(26070,2216,"ide_methods.bas");}while(r); -} -do{ -goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(26070,2218,"ide_methods.bas");}while(r); -} -S_38701:; -if (((-(*_FUNC_IDE2_LONG_K!= 8 ))&(-(*_FUNC_IDE2_LONG_K!= 9 ))&(-(*_FUNC_IDE2_LONG_K!= 0 ))&(-(*_FUNC_IDE2_LONG_K!= 10 ))&(-(*_FUNC_IDE2_LONG_K!= 13 ))&(-(*_FUNC_IDE2_LONG_K!= 26 ))&(-(*_FUNC_IDE2_LONG_K!= 255 )))||new_error){ -if(qbevent){evnt(26070,2220,"ide_methods.bas");if(r)goto S_38701;} -S_38702:; -if ((*_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL)||new_error){ -if(qbevent){evnt(26070,2221,"ide_methods.bas");if(r)goto S_38702;} -do{ -*_FUNC_IDE2_LONG_SX1=*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__SX1; -if(!qbevent)break;evnt(26070,2222,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_SX2=*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1; -if(!qbevent)break;evnt(26070,2222,"ide_methods.bas");}while(r); -S_38705:; -if ((-(*_FUNC_IDE2_LONG_SX1>*_FUNC_IDE2_LONG_SX2))||new_error){ -if(qbevent){evnt(26070,2223,"ide_methods.bas");if(r)goto S_38705;} -do{ -swap_32(&*_FUNC_IDE2_LONG_SX1,&*_FUNC_IDE2_LONG_SX2); -if(!qbevent)break;evnt(26070,2223,"ide_methods.bas");}while(r); -} -S_38708:; -if ((-((*_FUNC_IDE2_LONG_SX2-*_FUNC_IDE2_LONG_SX1)>( 0 )))||new_error){ -if(qbevent){evnt(26070,2224,"ide_methods.bas");if(r)goto S_38708;} -do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_left(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_SX1),qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len-*_FUNC_IDE2_LONG_SX2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2226,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_IDEFINDTEXT,_FUNC_IDE2_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2227,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL= 0 ; -if(!qbevent)break;evnt(26070,2228,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1=*_FUNC_IDE2_LONG_SX1; -if(!qbevent)break;evnt(26070,2229,"ide_methods.bas");}while(r); -} -} -S_38715:; -if ((-(*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1> 0 ))||new_error){ -if(qbevent){evnt(26070,2232,"ide_methods.bas");if(r)goto S_38715;} -do{ -qbs_set(_FUNC_IDE2_STRING_A1,qbs_left(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2232,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDE2_STRING_A1,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2232,"ide_methods.bas");}while(r); -} -S_38720:; -if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1<=_FUNC_IDE2_STRING_A->len)))||new_error){ -if(qbevent){evnt(26070,2233,"ide_methods.bas");if(r)goto S_38720;} -do{ -qbs_set(_FUNC_IDE2_STRING_A2,qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len-*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2233,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDE2_STRING_A2,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2233,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(_FUNC_IDE2_STRING_A1,__STRING_K),_FUNC_IDE2_STRING_A2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2234,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1=*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1+ 1 ; -if(!qbevent)break;evnt(26070,2234,"ide_methods.bas");}while(r); -} -do{ -qbs_set(__STRING_IDEFINDTEXT,_FUNC_IDE2_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2236,"ide_methods.bas");}while(r); -} -S_38730:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,(qbs_add(func_chr( 0 ),func_chr( 60 ))))))||new_error){ -if(qbevent){evnt(26070,2239,"ide_methods.bas");if(r)goto S_38730;} -do{ -*__LONG_IDESYSTEM= 1 ; -if(!qbevent)break;evnt(26070,2240,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDESUBSJMP; -if(!qbevent)break;evnt(26070,2241,"ide_methods.bas");}while(r); -} -S_38734:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,(qbs_add(func_chr( 0 ),qbs_new_txt_len("S",1))))))||new_error){ -if(qbevent){evnt(26070,2244,"ide_methods.bas");if(r)goto S_38734;} -LABEL_DELETESELECTIONSEARCHFIELD:; -if(qbevent){evnt(26070,2245,"ide_methods.bas");r=0;} -S_38735:; -if ((*_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL)||new_error){ -if(qbevent){evnt(26070,2246,"ide_methods.bas");if(r)goto S_38735;} -do{ -*_FUNC_IDE2_LONG_SX1=*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__SX1; -if(!qbevent)break;evnt(26070,2247,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_SX2=*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1; -if(!qbevent)break;evnt(26070,2247,"ide_methods.bas");}while(r); -S_38738:; -if ((-(*_FUNC_IDE2_LONG_SX1>*_FUNC_IDE2_LONG_SX2))||new_error){ -if(qbevent){evnt(26070,2248,"ide_methods.bas");if(r)goto S_38738;} -do{ -swap_32(&*_FUNC_IDE2_LONG_SX1,&*_FUNC_IDE2_LONG_SX2); -if(!qbevent)break;evnt(26070,2248,"ide_methods.bas");}while(r); -} -S_38741:; -if ((-((*_FUNC_IDE2_LONG_SX2-*_FUNC_IDE2_LONG_SX1)>( 0 )))||new_error){ -if(qbevent){evnt(26070,2249,"ide_methods.bas");if(r)goto S_38741;} -do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_left(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_SX1),qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len-*_FUNC_IDE2_LONG_SX2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2251,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_IDEFINDTEXT,_FUNC_IDE2_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2252,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1=*_FUNC_IDE2_LONG_SX1; -if(!qbevent)break;evnt(26070,2253,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL= 0 ; -if(!qbevent)break;evnt(26070,2254,"ide_methods.bas");}while(r); -} -}else{ -S_38748:; -if ((-(*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1> 0 ))||new_error){ -if(qbevent){evnt(26070,2257,"ide_methods.bas");if(r)goto S_38748;} -do{ -qbs_set(_FUNC_IDE2_STRING_A1,qbs_left(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2257,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDE2_STRING_A1,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2257,"ide_methods.bas");}while(r); -} -S_38753:; -if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1<_FUNC_IDE2_STRING_A->len)))||new_error){ -if(qbevent){evnt(26070,2258,"ide_methods.bas");if(r)goto S_38753;} -do{ -qbs_set(_FUNC_IDE2_STRING_A2,qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len-*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2258,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDE2_STRING_A2,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2258,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_add(_FUNC_IDE2_STRING_A1,_FUNC_IDE2_STRING_A2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2259,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_IDEFINDTEXT,_FUNC_IDE2_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2260,"ide_methods.bas");}while(r); -} -} -S_38762:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,(qbs_add(func_chr( 0 ),qbs_new_txt_len("K",1))))))||new_error){ -if(qbevent){evnt(26070,2265,"ide_methods.bas");if(r)goto S_38762;} -do{ -return_point[next_return_point++]=26; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_SELECTCHECK; -RETURN_26:; -if(!qbevent)break;evnt(26070,2265,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1=*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1- 1 ; -if(!qbevent)break;evnt(26070,2265,"ide_methods.bas");}while(r); -} -S_38766:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,(qbs_add(func_chr( 0 ),qbs_new_txt_len("M",1))))))||new_error){ -if(qbevent){evnt(26070,2266,"ide_methods.bas");if(r)goto S_38766;} -do{ -return_point[next_return_point++]=27; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_SELECTCHECK; -RETURN_27:; -if(!qbevent)break;evnt(26070,2266,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1=*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1+ 1 ; -if(!qbevent)break;evnt(26070,2266,"ide_methods.bas");}while(r); -} -S_38770:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,(qbs_add(func_chr( 0 ),qbs_new_txt_len("G",1))))))||new_error){ -if(qbevent){evnt(26070,2267,"ide_methods.bas");if(r)goto S_38770;} -do{ -return_point[next_return_point++]=28; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_SELECTCHECK; -RETURN_28:; -if(!qbevent)break;evnt(26070,2267,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1= 0 ; -if(!qbevent)break;evnt(26070,2267,"ide_methods.bas");}while(r); -} -S_38774:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,(qbs_add(func_chr( 0 ),qbs_new_txt_len("O",1))))))||new_error){ -if(qbevent){evnt(26070,2268,"ide_methods.bas");if(r)goto S_38774;} -do{ -return_point[next_return_point++]=29; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_SELECTCHECK; -RETURN_29:; -if(!qbevent)break;evnt(26070,2268,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1=_FUNC_IDE2_STRING_A->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2268,"ide_methods.bas");}while(r); -} -S_38778:; -if ((-(*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1< 0 ))||new_error){ -if(qbevent){evnt(26070,2269,"ide_methods.bas");if(r)goto S_38778;} -do{ -*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1= 0 ; -if(!qbevent)break;evnt(26070,2269,"ide_methods.bas");}while(r); -} -S_38781:; -if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1>_FUNC_IDE2_STRING_A->len)))||new_error){ -if(qbevent){evnt(26070,2270,"ide_methods.bas");if(r)goto S_38781;} -do{ -*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1=_FUNC_IDE2_STRING_A->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2270,"ide_methods.bas");}while(r); -} -S_38784:; -if ((-(*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1==*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__SX1))||new_error){ -if(qbevent){evnt(26070,2271,"ide_methods.bas");if(r)goto S_38784;} -do{ -*_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL= 0 ; -if(!qbevent)break;evnt(26070,2271,"ide_methods.bas");}while(r); -} -S_38787:; -if ((*__LONG_MCLICK|*__LONG_MCLICK2)||new_error){ -if(qbevent){evnt(26070,2273,"ide_methods.bas");if(r)goto S_38787;} -S_38788:; -if (((-(*__LONG_MX> 1 ))&(-(*__LONG_MX<*__LONG_IDEWX))&(-(*__LONG_MY> 2 ))&(-(*__LONG_MY<(*__LONG_IDEWY- 5 ))))||new_error){ -if(qbevent){evnt(26070,2274,"ide_methods.bas");if(r)goto S_38788;} -do{ -*__LONG_IDESYSTEM= 1 ; -if(!qbevent)break;evnt(26070,2275,"ide_methods.bas");}while(r); -S_38790:; -if ((*__LONG_MCLICK2)||new_error){ -if(qbevent){evnt(26070,2276,"ide_methods.bas");if(r)goto S_38790;} -do{ -goto LABEL_INVOKECONTEXTUALMENU; -if(!qbevent)break;evnt(26070,2276,"ide_methods.bas");}while(r); -}else{ -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,2276,"ide_methods.bas");}while(r); -} -S_38795:; -}else{ -if ((-(*__LONG_MY>=*__LONG_IDEWY))&(-(*__LONG_MY<(*__LONG_IDEWY+*__LONG_IDESUBWINDOW)))){ -if(qbevent){evnt(26070,2277,"ide_methods.bas");if(r)goto S_38795;} -do{ -*__LONG_IDESYSTEM= 3 ; -if(!qbevent)break;evnt(26070,2278,"ide_methods.bas");}while(r); -S_38797:; -if ((*__LONG_MCLICK2)||new_error){ -if(qbevent){evnt(26070,2279,"ide_methods.bas");if(r)goto S_38797;} -do{ -goto LABEL_INVOKECONTEXTUALMENU; -if(!qbevent)break;evnt(26070,2279,"ide_methods.bas");}while(r); -}else{ -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,2279,"ide_methods.bas");}while(r); -} -} -} -} -do{ -goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(26070,2283,"ide_methods.bas");}while(r); -} -S_38806:; -if ((-(*__LONG_IDESYSTEM== 3 ))||new_error){ -if(qbevent){evnt(26070,2286,"ide_methods.bas");if(r)goto S_38806;} -S_38807:; -if ((qbs_cleanup(qbs_tmp_base,*__LONG_MCLICK|(qbs_equal(__STRING_K,func_chr( 27 )))))||new_error){ -if(qbevent){evnt(26070,2288,"ide_methods.bas");if(r)goto S_38807;} -S_38808:; -if ((qbs_cleanup(qbs_tmp_base,(((-(*__LONG_MY==*__LONG_IDEWY))&(((-(*__LONG_MX>=(*__LONG_IDEWX- 3 )))&(-(*__LONG_MX<=(*__LONG_IDEWX- 1 )))))))|(qbs_equal(__STRING_K,func_chr( 27 )))))||new_error){ -if(qbevent){evnt(26070,2289,"ide_methods.bas");if(r)goto S_38808;} -LABEL_CLOSEHELP:; -if(qbevent){evnt(26070,2290,"ide_methods.bas");r=0;} -do{ -*__LONG_IDEWY=*__LONG_IDEWY+*__LONG_IDESUBWINDOW; -if(!qbevent)break;evnt(26070,2291,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEHELP= 0 ; -if(!qbevent)break;evnt(26070,2292,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESUBWINDOW= 0 ; -if(!qbevent)break;evnt(26070,2293,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_SKIPDISPLAY= 0 ; -if(!qbevent)break;evnt(26070,2294,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESYSTEM= 1 ; -if(!qbevent)break;evnt(26070,2295,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_RETVAL= 1 ; -if(!qbevent)break;evnt(26070,2296,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=30; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_REDRAWITALL; -RETURN_30:; -if(!qbevent)break;evnt(26070,2296,"ide_methods.bas");}while(r); -} -} -S_38818:; -if ((*__LONG_MCLICK)||new_error){ -if(qbevent){evnt(26070,2301,"ide_methods.bas");if(r)goto S_38818;} -S_38819:; -if ((((-(*__LONG_MY==*__LONG_IDEWY))&(((-(*__LONG_MX>=(*__LONG_IDEWX- 17 )))&(-(*__LONG_MX<=(*__LONG_IDEWX- 4 )))))))||new_error){ -if(qbevent){evnt(26070,2302,"ide_methods.bas");if(r)goto S_38819;} -LABEL_LAUNCHWIKI:; -if(qbevent){evnt(26070,2303,"ide_methods.bas");r=0;} -do{ -qbs_set(_FUNC_IDE2_STRING_URL,qbs_add(qbs_add(__STRING_WIKIBASEADDRESS,qbs_new_txt_len("/index.php?title=",17)),((qbs*)(((uint64*)(__ARRAY_STRING_BACK[0]))[array_check((*__LONG_HELP_BACK_POS)-__ARRAY_STRING_BACK[4],__ARRAY_STRING_BACK[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2304,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_URL,FUNC_STRREPLACE(_FUNC_IDE2_STRING_URL,qbs_new_txt_len(" ",1),qbs_new_txt_len("%20",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2305,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_URL,FUNC_STRREPLACE(_FUNC_IDE2_STRING_URL,qbs_new_txt_len("&",1),qbs_new_txt_len("%26",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2305,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_URL,FUNC_STRREPLACE(_FUNC_IDE2_STRING_URL,qbs_new_txt_len("+",1),qbs_new_txt_len("%2B",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2306,"ide_methods.bas");}while(r); -S_38824:; -if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)== 0 )))||new_error){ -if(qbevent){evnt(26070,2307,"ide_methods.bas");if(r)goto S_38824;} -do{ -qbs_set(_FUNC_IDE2_STRING_URL,FUNC_STRREPLACE(_FUNC_IDE2_STRING_URL,qbs_new_txt_len("$",1),qbs_new_txt_len("\\$",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2308,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_URL,FUNC_STRREPLACE(_FUNC_IDE2_STRING_URL,qbs_new_txt_len("&",1),qbs_new_txt_len("\\&",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2309,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_URL,FUNC_STRREPLACE(_FUNC_IDE2_STRING_URL,qbs_new_txt_len("(",1),qbs_new_txt_len("\\(",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2310,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_URL,FUNC_STRREPLACE(_FUNC_IDE2_STRING_URL,qbs_new_txt_len(")",1),qbs_new_txt_len("\\)",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2311,"ide_methods.bas");}while(r); -} -S_38830:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)))||new_error){ -if(qbevent){evnt(26070,2314,"ide_methods.bas");if(r)goto S_38830;} -do{ -sub_shell2(qbs_add(qbs_new_txt_len("start ",6),_FUNC_IDE2_STRING_URL),3); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2315,"ide_methods.bas");}while(r); -S_38832:; -}else{ -if (qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))){ -if(qbevent){evnt(26070,2316,"ide_methods.bas");if(r)goto S_38832;} -do{ -sub_shell2(qbs_add(qbs_new_txt_len("open ",5),_FUNC_IDE2_STRING_URL),3); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2317,"ide_methods.bas");}while(r); -}else{ -do{ -sub_shell2(qbs_add(qbs_new_txt_len("xdg-open ",9),_FUNC_IDE2_STRING_URL),3); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2319,"ide_methods.bas");}while(r); -} -} -do{ -goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(26070,2321,"ide_methods.bas");}while(r); -} -S_38839:; -if ((-(*__LONG_MY==*__LONG_IDEWY))||new_error){ -if(qbevent){evnt(26070,2324,"ide_methods.bas");if(r)goto S_38839;} -do{ -*_FUNC_IDE2_LONG_SX= 2 ; -if(!qbevent)break;evnt(26070,2326,"ide_methods.bas");}while(r); -S_38841:; -fornext_value4202=*_FUNC_IDE2_LONG_BACK_STR_POS; -fornext_finalvalue4202=*_FUNC_IDE2_LONG_BACK_STR_POS+*__LONG_IDEWX- 6 ; -fornext_step4202= 1 ; -if (fornext_step4202<0) fornext_step_negative4202=1; else fornext_step_negative4202=0; -if (new_error) goto fornext_error4202; -goto fornext_entrylabel4202; -while(1){ -fornext_value4202=fornext_step4202+(*_FUNC_IDE2_LONG_X); -fornext_entrylabel4202: -*_FUNC_IDE2_LONG_X=fornext_value4202; -if (fornext_step_negative4202){ -if (fornext_value4202fornext_finalvalue4202) break; -} -fornext_error4202:; -if(qbevent){evnt(26070,2327,"ide_methods.bas");if(r)goto S_38841;} -S_38842:; -if ((-(*__LONG_MX==*_FUNC_IDE2_LONG_SX))||new_error){ -if(qbevent){evnt(26070,2328,"ide_methods.bas");if(r)goto S_38842;} -do{ -*_FUNC_IDE2_LONG_I=string2l(func_mid(_FUNC_IDE2_STRING_BACK_STR_I,((*_FUNC_IDE2_LONG_X- 1 )* 4 )+( 1 ), 4 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2329,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_A=qbs_asc(_FUNC_IDE2_STRING_BACK_STR,*_FUNC_IDE2_LONG_X); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2330,"ide_methods.bas");}while(r); -S_38845:; -if (((-(*_FUNC_IDE2_LONG_A!= 0 ))&(-(*_FUNC_IDE2_LONG_I!=*__LONG_HELP_BACK_POS)))||new_error){ -if(qbevent){evnt(26070,2331,"ide_methods.bas");if(r)goto S_38845;} -do{ -*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16))=*__LONG_HELP_SX; -if(!qbevent)break;evnt(26070,2332,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+4))=*__LONG_HELP_SY; -if(!qbevent)break;evnt(26070,2333,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+8))=*__LONG_HELP_CX; -if(!qbevent)break;evnt(26070,2334,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+12))=*__LONG_HELP_CY; -if(!qbevent)break;evnt(26070,2335,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_BACK_POS=*_FUNC_IDE2_LONG_I; -if(!qbevent)break;evnt(26070,2336,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_SELECT= 0 ; -if(!qbevent)break;evnt(26070,2337,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_MSELECT= 0 ; -if(!qbevent)break;evnt(26070,2337,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_SX=*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16)); -if(!qbevent)break;evnt(26070,2338,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_SY=*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+4)); -if(!qbevent)break;evnt(26070,2339,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_CX=*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+8)); -if(!qbevent)break;evnt(26070,2340,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_CY=*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+12)); -if(!qbevent)break;evnt(26070,2341,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_A,FUNC_WIKI(((qbs*)(((uint64*)(__ARRAY_STRING_BACK[0]))[array_check((*__LONG_HELP_BACK_POS)-__ARRAY_STRING_BACK[4],__ARRAY_STRING_BACK[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2342,"ide_methods.bas");}while(r); -do{ -SUB_WIKIPARSE(_FUNC_IDE2_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2343,"ide_methods.bas");}while(r); -do{ -goto LABEL_NEWPAGEPARSED; -if(!qbevent)break;evnt(26070,2344,"ide_methods.bas");}while(r); -} -} -do{ -*_FUNC_IDE2_LONG_SX=*_FUNC_IDE2_LONG_SX+ 1 ; -if(!qbevent)break;evnt(26070,2347,"ide_methods.bas");}while(r); -fornext_continue_4201:; -} -fornext_exit_4201:; -} -} -S_38866:; -if ((qbs_cleanup(qbs_tmp_base,*__LONG_KCONTROL&(qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("A",1)))))||new_error){ -if(qbevent){evnt(26070,2369,"ide_methods.bas");if(r)goto S_38866;} -LABEL_SELECTALLINHELP:; -if(qbevent){evnt(26070,2370,"ide_methods.bas");r=0;} -S_38867:; -if ((*__LONG_HELP_H)||new_error){ -if(qbevent){evnt(26070,2371,"ide_methods.bas");if(r)goto S_38867;} -do{ -*__LONG_HELP_SELECT= 2 ; -if(!qbevent)break;evnt(26070,2372,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_SELX1= 1 ; -if(!qbevent)break;evnt(26070,2373,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_SELY1= 1 ; -if(!qbevent)break;evnt(26070,2374,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_SELX2= 10000000 ; -if(!qbevent)break;evnt(26070,2375,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_SELY2=*__LONG_HELP_H; -if(!qbevent)break;evnt(26070,2376,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_CX= 1 ; -if(!qbevent)break;evnt(26070,2377,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_CY=*__LONG_HELP_H+ 1 ; -if(!qbevent)break;evnt(26070,2377,"ide_methods.bas");}while(r); -do{ -goto LABEL_KEEP_SELECT; -if(!qbevent)break;evnt(26070,2378,"ide_methods.bas");}while(r); -} -} -S_38878:; -if ((qbs_cleanup(qbs_tmp_base,(((*__LONG_KCTRL&(-(*__LONG_KB== 20992 )))|(*__LONG_KCONTROL&(qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("C",1))))))&(-(*__LONG_HELP_SELECT== 2 ))))||new_error){ -if(qbevent){evnt(26070,2382,"ide_methods.bas");if(r)goto S_38878;} -LABEL_COPYHELP2CLIP:; -if(qbevent){evnt(26070,2383,"ide_methods.bas");r=0;} -do{ -*__LONG_IDEERROR= -1 ; -if(!qbevent)break;evnt(26070,2384,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_CLIP,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2385,"ide_methods.bas");}while(r); -S_38881:; -fornext_value4204=*__LONG_HELP_SELY1; -fornext_finalvalue4204=*__LONG_HELP_SELY2; -fornext_step4204= 1 ; -if (fornext_step4204<0) fornext_step_negative4204=1; else fornext_step_negative4204=0; -if (new_error) goto fornext_error4204; -goto fornext_entrylabel4204; -while(1){ -fornext_value4204=fornext_step4204+(*_FUNC_IDE2_LONG_Y); -fornext_entrylabel4204: -*_FUNC_IDE2_LONG_Y=fornext_value4204; -if (fornext_step_negative4204){ -if (fornext_value4204fornext_finalvalue4204) break; -} -fornext_error4204:; -if(qbevent){evnt(26070,2386,"ide_methods.bas");if(r)goto S_38881;} -S_38882:; -if ((-(*_FUNC_IDE2_LONG_Y!=*__LONG_HELP_SELY1))||new_error){ -if(qbevent){evnt(26070,2387,"ide_methods.bas");if(r)goto S_38882;} -do{ -qbs_set(_FUNC_IDE2_STRING_CLIP,qbs_add(qbs_add(_FUNC_IDE2_STRING_CLIP,func_chr( 13 )),func_chr( 10 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2387,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2388,"ide_methods.bas");}while(r); -S_38886:; -if ((-(*_FUNC_IDE2_LONG_Y<=*__LONG_HELP_H))||new_error){ -if(qbevent){evnt(26070,2389,"ide_methods.bas");if(r)goto S_38886;} -do{ -*_FUNC_IDE2_LONG_L=string2l(func_mid(__STRING_HELP_LINE,((*_FUNC_IDE2_LONG_Y- 1 )* 4 )+( 1 ), 4 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2390,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_X=*_FUNC_IDE2_LONG_L; -if(!qbevent)break;evnt(26070,2391,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_X3= 1 ; -if(!qbevent)break;evnt(26070,2392,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_C=qbs_asc(__STRING_HELP_TXT,*_FUNC_IDE2_LONG_X); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2393,"ide_methods.bas");}while(r); -S_38891:; -while((!(qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_HELP_TXT,*_FUNC_IDE2_LONG_X+ 1 )> 127 ))))||new_error){ -if(qbevent){evnt(26070,2394,"ide_methods.bas");if(r)goto S_38891;} -S_38892:; -if ((-(*__LONG_HELP_SELECT== 2 ))||new_error){ -if(qbevent){evnt(26070,2395,"ide_methods.bas");if(r)goto S_38892;} -S_38893:; -if (((-(*_FUNC_IDE2_LONG_Y>=*__LONG_HELP_SELY1))&(-(*_FUNC_IDE2_LONG_Y<=*__LONG_HELP_SELY2)))||new_error){ -if(qbevent){evnt(26070,2396,"ide_methods.bas");if(r)goto S_38893;} -S_38894:; -if (((-(*_FUNC_IDE2_LONG_X3>=*__LONG_HELP_SELX1))&(-(*_FUNC_IDE2_LONG_X3<=*__LONG_HELP_SELX2)))||new_error){ -if(qbevent){evnt(26070,2397,"ide_methods.bas");if(r)goto S_38894;} -do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_add(_FUNC_IDE2_STRING_A,func_chr(*_FUNC_IDE2_LONG_C))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2398,"ide_methods.bas");}while(r); -} -} -} -do{ -*_FUNC_IDE2_LONG_X3=*_FUNC_IDE2_LONG_X3+ 1 ; -if(!qbevent)break;evnt(26070,2402,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_X=*_FUNC_IDE2_LONG_X+ 4 ; -if(!qbevent)break;evnt(26070,2402,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_C=qbs_asc(__STRING_HELP_TXT,*_FUNC_IDE2_LONG_X); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2402,"ide_methods.bas");}while(r); -dl_continue_4205:; -} -dl_exit_4205:; -} -do{ -qbs_set(_FUNC_IDE2_STRING_CLIP,qbs_add(_FUNC_IDE2_STRING_CLIP,_FUNC_IDE2_STRING_A)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2405,"ide_methods.bas");}while(r); -fornext_continue_4203:; -} -fornext_exit_4203:; -S_38906:; -if (((-(*__LONG_HELP_SELY1==*__LONG_HELP_SELY2))&(-(*__LONG_HELP_CY>*__LONG_HELP_CY1)))||new_error){ -if(qbevent){evnt(26070,2407,"ide_methods.bas");if(r)goto S_38906;} -do{ -qbs_set(_FUNC_IDE2_STRING_CLIP,qbs_add(qbs_add(_FUNC_IDE2_STRING_CLIP,func_chr( 13 )),func_chr( 10 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2407,"ide_methods.bas");}while(r); -} -S_38909:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_IDE2_STRING_CLIP,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,2408,"ide_methods.bas");if(r)goto S_38909;} -do{ -sub__clipboard(_FUNC_IDE2_STRING_CLIP); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2408,"ide_methods.bas");}while(r); -} -do{ -*__LONG_IDEERROR= 1 ; -if(!qbevent)break;evnt(26070,2409,"ide_methods.bas");}while(r); -do{ -goto LABEL_KEEP_SELECT; -if(!qbevent)break;evnt(26070,2410,"ide_methods.bas");}while(r); -} -S_38915:; -if (((-(*__LONG_MX>=*__LONG_HELP_WX1))&(-(*__LONG_MY>=*__LONG_HELP_WY1))&(-(*__LONG_MX<=*__LONG_HELP_WX2))&(-(*__LONG_MY<=*__LONG_HELP_WY2)))||new_error){ -if(qbevent){evnt(26070,2414,"ide_methods.bas");if(r)goto S_38915;} -S_38916:; -if ((*__LONG_MCLICK)||new_error){ -if(qbevent){evnt(26070,2415,"ide_methods.bas");if(r)goto S_38916;} -do{ -*__LONG_HELP_CX=*__LONG_HELP_SX+(*__LONG_MX-*__LONG_HELP_WX1); -if(!qbevent)break;evnt(26070,2416,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_CY=*__LONG_HELP_SY+(*__LONG_MY-*__LONG_HELP_WY1); -if(!qbevent)break;evnt(26070,2417,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_SELECT= 1 ; -if(!qbevent)break;evnt(26070,2418,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_MSELECT= 1 ; -if(!qbevent)break;evnt(26070,2419,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_CX1=*__LONG_HELP_CX; -if(!qbevent)break;evnt(26070,2420,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_CY1=*__LONG_HELP_CY; -if(!qbevent)break;evnt(26070,2420,"ide_methods.bas");}while(r); -do{ -goto LABEL_KEEP_SELECT; -if(!qbevent)break;evnt(26070,2421,"ide_methods.bas");}while(r); -} -S_38925:; -if (((*__LONG_MB&(-(*_FUNC_IDE2_LONG_HELP_SCROLLBAR== 0 ))))||new_error){ -if(qbevent){evnt(26070,2423,"ide_methods.bas");if(r)goto S_38925;} -do{ -*__LONG_HELP_CX=*__LONG_HELP_SX+(*__LONG_MX-*__LONG_HELP_WX1); -if(!qbevent)break;evnt(26070,2424,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_CY=*__LONG_HELP_SY+(*__LONG_MY-*__LONG_HELP_WY1); -if(!qbevent)break;evnt(26070,2425,"ide_methods.bas");}while(r); -S_38928:; -if ((*__LONG_HELP_SELECT)||new_error){ -if(qbevent){evnt(26070,2426,"ide_methods.bas");if(r)goto S_38928;} -do{ -goto LABEL_KEEP_SELECT; -if(!qbevent)break;evnt(26070,2426,"ide_methods.bas");}while(r); -} -} -}else{ -S_38933:; -if ((((*__LONG_MB&(-(*_FUNC_IDE2_LONG_HELP_SCROLLBAR== 0 ))))&(-(*__LONG_HELP_MSELECT== 1 ))&(-(*__LONG_HELP_SELECT== 2 )))||new_error){ -if(qbevent){evnt(26070,2430,"ide_methods.bas");if(r)goto S_38933;} -S_38934:; -if ((-(*__LONG_MX<*__LONG_HELP_WX1))||new_error){ -if(qbevent){evnt(26070,2431,"ide_methods.bas");if(r)goto S_38934;} -do{ -*__LONG_HELP_CX=*__LONG_HELP_CX- 1 ; -if(!qbevent)break;evnt(26070,2431,"ide_methods.bas");}while(r); -} -S_38937:; -if ((-(*__LONG_MX>*__LONG_HELP_WX2))||new_error){ -if(qbevent){evnt(26070,2432,"ide_methods.bas");if(r)goto S_38937;} -do{ -*__LONG_HELP_CX=*__LONG_HELP_CX+ 1 ; -if(!qbevent)break;evnt(26070,2432,"ide_methods.bas");}while(r); -} -S_38940:; -if ((-(*__LONG_MY<*__LONG_HELP_WY1))||new_error){ -if(qbevent){evnt(26070,2433,"ide_methods.bas");if(r)goto S_38940;} -do{ -*__LONG_HELP_CY=*__LONG_HELP_CY- 1 ; -if(!qbevent)break;evnt(26070,2433,"ide_methods.bas");}while(r); -} -S_38943:; -if ((-(*__LONG_MY>*__LONG_HELP_WY2))||new_error){ -if(qbevent){evnt(26070,2434,"ide_methods.bas");if(r)goto S_38943;} -do{ -*__LONG_HELP_CY=*__LONG_HELP_CY+ 1 ; -if(!qbevent)break;evnt(26070,2434,"ide_methods.bas");}while(r); -} -do{ -goto LABEL_KEEP_SELECT; -if(!qbevent)break;evnt(26070,2435,"ide_methods.bas");}while(r); -} -} -S_38949:; -if ((*__LONG_KSHIFT)||new_error){ -if(qbevent){evnt(26070,2439,"ide_methods.bas");if(r)goto S_38949;} -S_38950:; -if ((-(*__LONG_HELP_SELECT== 0 ))||new_error){ -if(qbevent){evnt(26070,2440,"ide_methods.bas");if(r)goto S_38950;} -do{ -*__LONG_HELP_SELECT= 1 ; -if(!qbevent)break;evnt(26070,2441,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_MSELECT= 0 ; -if(!qbevent)break;evnt(26070,2442,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_CX1=*__LONG_HELP_CX; -if(!qbevent)break;evnt(26070,2443,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_CY1=*__LONG_HELP_CY; -if(!qbevent)break;evnt(26070,2443,"ide_methods.bas");}while(r); -} -}else{ -S_38957:; -if (((((-(*__LONG_KB> 0 ))|(-(*__LONG_MWHEEL!= 0 ))))&(-(*__LONG_KSTATECHANGED== 0 )))||new_error){ -if(qbevent){evnt(26070,2446,"ide_methods.bas");if(r)goto S_38957;} -do{ -*__LONG_HELP_SELECT= 0 ; -if(!qbevent)break;evnt(26070,2446,"ide_methods.bas");}while(r); -} -} -LABEL_KEEP_SELECT:; -if(qbevent){evnt(26070,2448,"ide_methods.bas");r=0;} -S_38961:; -if ((-(*__LONG_KB== 9 ))||new_error){ -if(qbevent){evnt(26070,2450,"ide_methods.bas");if(r)goto S_38961;} -S_38962:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_HELP_SEARCH_STR->len))||new_error){ -if(qbevent){evnt(26070,2451,"ide_methods.bas");if(r)goto S_38962;} -do{ -*_FUNC_IDE2_LONG_NOREP= 1 ; -if(!qbevent)break;evnt(26070,2451,"ide_methods.bas");}while(r); -do{ -goto LABEL_SEARCHNEXT; -if(!qbevent)break;evnt(26070,2451,"ide_methods.bas");}while(r); -} -} -S_38967:; -if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_K->len== 1 ))&(-(*__LONG_KCONTROL== 0 ))))||new_error){ -if(qbevent){evnt(26070,2454,"ide_methods.bas");if(r)goto S_38967;} -do{ -*_FUNC_IDE2_LONG_K=qbs_asc(__STRING_K); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2455,"ide_methods.bas");}while(r); -S_38969:; -if ((((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((*_FUNC_IDE2_LONG_K)-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]|(-(*_FUNC_IDE2_LONG_K== 36 ))|(-(*_FUNC_IDE2_LONG_K== 32 )))||new_error){ -if(qbevent){evnt(26070,2456,"ide_methods.bas");if(r)goto S_38969;} -do{ -*_FUNC_IDE2_LONG_NOREP= 0 ; -if(!qbevent)break;evnt(26070,2457,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_DOUBLE_T=func_timer( 0.001E+0 ,0|1); -if(!qbevent)break;evnt(26070,2458,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_OLDK= 0 ; -if(!qbevent)break;evnt(26070,2459,"ide_methods.bas");}while(r); -S_38973:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_HELP_SEARCH_STR->len))||new_error){ -if(qbevent){evnt(26070,2459,"ide_methods.bas");if(r)goto S_38973;} -do{ -*_FUNC_IDE2_LONG_OLDK=qbs_asc(__STRING_HELP_SEARCH_STR,__STRING_HELP_SEARCH_STR->len); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2459,"ide_methods.bas");}while(r); -} -S_38976:; -if ((qbs_cleanup(qbs_tmp_base,(-(((double)(*_FUNC_IDE2_DOUBLE_T))>((double)((*__DOUBLE_HELP_SEARCH_TIME+ 1 )))))|(-(((double)(*_FUNC_IDE2_DOUBLE_T))<((double)(*__DOUBLE_HELP_SEARCH_TIME))))|(((-(*_FUNC_IDE2_LONG_K==*_FUNC_IDE2_LONG_OLDK))&(-(__STRING_HELP_SEARCH_STR->len== 1 ))))))||new_error){ -if(qbevent){evnt(26070,2460,"ide_methods.bas");if(r)goto S_38976;} -S_38977:; -if ((-(*_FUNC_IDE2_LONG_K==*_FUNC_IDE2_LONG_OLDK))||new_error){ -if(qbevent){evnt(26070,2461,"ide_methods.bas");if(r)goto S_38977;} -do{ -*_FUNC_IDE2_LONG_NOREP= 1 ; -if(!qbevent)break;evnt(26070,2461,"ide_methods.bas");}while(r); -} -do{ -qbs_set(__STRING_HELP_SEARCH_STR,__STRING_K); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2462,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(__STRING_HELP_SEARCH_STR,qbs_add(__STRING_HELP_SEARCH_STR,__STRING_K)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2464,"ide_methods.bas");}while(r); -} -do{ -*__DOUBLE_HELP_SEARCH_TIME=*_FUNC_IDE2_DOUBLE_T; -if(!qbevent)break;evnt(26070,2466,"ide_methods.bas");}while(r); -LABEL_SEARCHNEXT:; -if(qbevent){evnt(26070,2468,"ide_methods.bas");r=0;} -do{ -*_FUNC_IDE2_LONG_OX=*__LONG_HELP_CX; -if(!qbevent)break;evnt(26070,2469,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_OY=*__LONG_HELP_CY; -if(!qbevent)break;evnt(26070,2470,"ide_methods.bas");}while(r); -S_38987:; -if ((-(*_FUNC_IDE2_LONG_OY>*__LONG_HELP_H))||new_error){ -if(qbevent){evnt(26070,2471,"ide_methods.bas");if(r)goto S_38987;} -do{ -*_FUNC_IDE2_LONG_OY= 1 ; -if(!qbevent)break;evnt(26070,2471,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDE2_LONG_CY=*_FUNC_IDE2_LONG_OY; -if(!qbevent)break;evnt(26070,2472,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_CX=*_FUNC_IDE2_LONG_OX; -if(!qbevent)break;evnt(26070,2473,"ide_methods.bas");}while(r); -S_38992:; -if ((-(*_FUNC_IDE2_LONG_NOREP== 1 ))||new_error){ -if(qbevent){evnt(26070,2474,"ide_methods.bas");if(r)goto S_38992;} -do{ -*_FUNC_IDE2_LONG_CX=*_FUNC_IDE2_LONG_CX+ 1 ; -if(!qbevent)break;evnt(26070,2474,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDE2_LONG_LOOPED= 0 ; -if(!qbevent)break;evnt(26070,2475,"ide_methods.bas");}while(r); -S_38996:; -do{ -if(qbevent){evnt(26070,2476,"ide_methods.bas");if(r)goto S_38996;} -do{ -*_FUNC_IDE2_LONG_L=string2l(func_mid(__STRING_HELP_LINE,((*_FUNC_IDE2_LONG_CY- 1 )* 4 )+( 1 ), 4 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2478,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_X=*_FUNC_IDE2_LONG_L; -if(!qbevent)break;evnt(26070,2479,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2480,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_C=qbs_asc(__STRING_HELP_TXT,*_FUNC_IDE2_LONG_X); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2481,"ide_methods.bas");}while(r); -S_39001:; -while((!(qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_HELP_TXT,*_FUNC_IDE2_LONG_X+ 1 )> 127 ))))||new_error){ -if(qbevent){evnt(26070,2482,"ide_methods.bas");if(r)goto S_39001;} -do{ -*_FUNC_IDE2_LONG_LNK=string2i(func_mid(__STRING_HELP_TXT,*_FUNC_IDE2_LONG_X+ 2 , 2 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2483,"ide_methods.bas");}while(r); -S_39003:; -if ((*_FUNC_IDE2_LONG_LNK)||new_error){ -if(qbevent){evnt(26070,2484,"ide_methods.bas");if(r)goto S_39003;} -do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_add(_FUNC_IDE2_STRING_A,func_chr(*_FUNC_IDE2_LONG_C))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2484,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_add(_FUNC_IDE2_STRING_A,func_chr( 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2484,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDE2_LONG_X=*_FUNC_IDE2_LONG_X+ 4 ; -if(!qbevent)break;evnt(26070,2485,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_C=qbs_asc(__STRING_HELP_TXT,*_FUNC_IDE2_LONG_X); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2485,"ide_methods.bas");}while(r); -dl_continue_4212:; -} -dl_exit_4212:; -LABEL_HELPSCANROW:; -if(qbevent){evnt(26070,2488,"ide_methods.bas");r=0;} -do{ -*_FUNC_IDE2_LONG_PX=func_instr(*_FUNC_IDE2_LONG_CX,qbs_ucase(_FUNC_IDE2_STRING_A),qbs_ucase(__STRING_HELP_SEARCH_STR),0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2489,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_PX2=func_instr(*_FUNC_IDE2_LONG_CX,qbs_ucase(_FUNC_IDE2_STRING_A),qbs_ucase(qbs_add(qbs_new_txt_len("_",1),__STRING_HELP_SEARCH_STR)),0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2490,"ide_methods.bas");}while(r); -S_39013:; -if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_IDE2_LONG_PX2<*_FUNC_IDE2_LONG_PX))&(-(*_FUNC_IDE2_LONG_PX2!= 0 ))&(qbs_notequal(qbs_left(__STRING_HELP_SEARCH_STR, 1 ),qbs_new_txt_len("_",1)))))||new_error){ -if(qbevent){evnt(26070,2491,"ide_methods.bas");if(r)goto S_39013;} -do{ -*_FUNC_IDE2_LONG_PX=*_FUNC_IDE2_LONG_PX2; -if(!qbevent)break;evnt(26070,2491,"ide_methods.bas");}while(r); -} -S_39016:; -if (((-(*_FUNC_IDE2_LONG_LOOPED== 1 ))&(-(*_FUNC_IDE2_LONG_CY==*_FUNC_IDE2_LONG_OY))&(-(*_FUNC_IDE2_LONG_PX== 0 )))||new_error){ -if(qbevent){evnt(26070,2493,"ide_methods.bas");if(r)goto S_39016;} -do{ -goto LABEL_STRNOTFOUND; -if(!qbevent)break;evnt(26070,2493,"ide_methods.bas");}while(r); -} -S_39019:; -if ((*_FUNC_IDE2_LONG_PX)||new_error){ -if(qbevent){evnt(26070,2494,"ide_methods.bas");if(r)goto S_39019;} -do{ -*_FUNC_IDE2_LONG_L=string2l(func_mid(__STRING_HELP_LINE,((*_FUNC_IDE2_LONG_CY- 1 )* 4 )+( 1 ), 4 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2496,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_X=*_FUNC_IDE2_LONG_L; -if(!qbevent)break;evnt(26070,2497,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_X2= 1 ; -if(!qbevent)break;evnt(26070,2498,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2499,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_C=qbs_asc(__STRING_HELP_TXT,*_FUNC_IDE2_LONG_X); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2500,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_OLDLNK= 0 ; -if(!qbevent)break;evnt(26070,2501,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_LNKX1= 0 ; -if(!qbevent)break;evnt(26070,2502,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_LNKX2= 0 ; -if(!qbevent)break;evnt(26070,2502,"ide_methods.bas");}while(r); -S_39028:; -while((!(qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_HELP_TXT,*_FUNC_IDE2_LONG_X+ 1 )> 127 ))))||new_error){ -if(qbevent){evnt(26070,2503,"ide_methods.bas");if(r)goto S_39028;} -do{ -*_FUNC_IDE2_LONG_LNK=string2i(func_mid(__STRING_HELP_TXT,*_FUNC_IDE2_LONG_X+ 2 , 2 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2504,"ide_methods.bas");}while(r); -S_39030:; -if (((-(*_FUNC_IDE2_LONG_LNKX1== 0 ))&(-(*_FUNC_IDE2_LONG_LNK!= 0 ))&(-(*_FUNC_IDE2_LONG_OLDLNK== 0 ))&(-(*_FUNC_IDE2_LONG_PX==*_FUNC_IDE2_LONG_X2)))||new_error){ -if(qbevent){evnt(26070,2505,"ide_methods.bas");if(r)goto S_39030;} -do{ -*_FUNC_IDE2_LONG_LNKX1=*_FUNC_IDE2_LONG_X2; -if(!qbevent)break;evnt(26070,2505,"ide_methods.bas");}while(r); -} -S_39033:; -if (((-(*_FUNC_IDE2_LONG_LNKX1!= 0 ))&(-(*_FUNC_IDE2_LONG_LNK== 0 ))&(-(*_FUNC_IDE2_LONG_LNKX2== 0 )))||new_error){ -if(qbevent){evnt(26070,2506,"ide_methods.bas");if(r)goto S_39033;} -do{ -*_FUNC_IDE2_LONG_LNKX2=*_FUNC_IDE2_LONG_X2- 1 ; -if(!qbevent)break;evnt(26070,2506,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDE2_LONG_X=*_FUNC_IDE2_LONG_X+ 4 ; -if(!qbevent)break;evnt(26070,2507,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_C=qbs_asc(__STRING_HELP_TXT,*_FUNC_IDE2_LONG_X); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2507,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_X2=*_FUNC_IDE2_LONG_X2+ 1 ; -if(!qbevent)break;evnt(26070,2508,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_OLDLNK=*_FUNC_IDE2_LONG_LNK; -if(!qbevent)break;evnt(26070,2509,"ide_methods.bas");}while(r); -dl_continue_4213:; -} -dl_exit_4213:; -S_39041:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_BACK_NAME[0]))[array_check((*__LONG_HELP_BACK_POS)-__ARRAY_STRING_BACK_NAME[4],__ARRAY_STRING_BACK_NAME[5])])),qbs_new_txt_len("Alphabetical",12)))|(qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_BACK_NAME[0]))[array_check((*__LONG_HELP_BACK_POS)-__ARRAY_STRING_BACK_NAME[4],__ARRAY_STRING_BACK_NAME[5])])),qbs_new_txt_len("By Usage",8)))))||new_error){ -if(qbevent){evnt(26070,2512,"ide_methods.bas");if(r)goto S_39041;} -S_39042:; -if ((-(*_FUNC_IDE2_LONG_LNKX1> 3 ))||new_error){ -if(qbevent){evnt(26070,2513,"ide_methods.bas");if(r)goto S_39042;} -do{ -*_FUNC_IDE2_LONG_CX=*_FUNC_IDE2_LONG_PX+ 1 ; -if(!qbevent)break;evnt(26070,2514,"ide_methods.bas");}while(r); -do{ -goto LABEL_HELPSCANROW; -if(!qbevent)break;evnt(26070,2515,"ide_methods.bas");}while(r); -} -} -S_39047:; -if ((*_FUNC_IDE2_LONG_LNKX1)||new_error){ -if(qbevent){evnt(26070,2519,"ide_methods.bas");if(r)goto S_39047;} -S_39048:; -if ((-(*_FUNC_IDE2_LONG_LNKX2== 0 ))||new_error){ -if(qbevent){evnt(26070,2520,"ide_methods.bas");if(r)goto S_39048;} -do{ -*_FUNC_IDE2_LONG_LNKX2=*_FUNC_IDE2_LONG_X2- 1 ; -if(!qbevent)break;evnt(26070,2520,"ide_methods.bas");}while(r); -} -do{ -*__LONG_HELP_SELECT= 2 ; -if(!qbevent)break;evnt(26070,2521,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_CX1=*_FUNC_IDE2_LONG_LNKX2+ 1 ; -if(!qbevent)break;evnt(26070,2522,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_CX=*_FUNC_IDE2_LONG_LNKX1; -if(!qbevent)break;evnt(26070,2523,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_CY=*_FUNC_IDE2_LONG_CY; -if(!qbevent)break;evnt(26070,2524,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_CY1=*_FUNC_IDE2_LONG_CY; -if(!qbevent)break;evnt(26070,2525,"ide_methods.bas");}while(r); -do{ -goto LABEL_FOUNDSSTR; -if(!qbevent)break;evnt(26070,2526,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDE2_LONG_CX=*_FUNC_IDE2_LONG_PX+ 1 ; -if(!qbevent)break;evnt(26070,2529,"ide_methods.bas");}while(r); -do{ -goto LABEL_HELPSCANROW; -if(!qbevent)break;evnt(26070,2530,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDE2_LONG_CX= 1 ; -if(!qbevent)break;evnt(26070,2532,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_CY=*_FUNC_IDE2_LONG_CY+ 1 ; -if(!qbevent)break;evnt(26070,2533,"ide_methods.bas");}while(r); -S_39063:; -if ((-(*_FUNC_IDE2_LONG_CY>*__LONG_HELP_H))||new_error){ -if(qbevent){evnt(26070,2534,"ide_methods.bas");if(r)goto S_39063;} -do{ -*_FUNC_IDE2_LONG_CY= 1 ; -if(!qbevent)break;evnt(26070,2534,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_LOOPED= 1 ; -if(!qbevent)break;evnt(26070,2534,"ide_methods.bas");}while(r); -} -dl_continue_4211:; -}while(1); -dl_exit_4211:; -} -} -LABEL_FOUNDSSTR:; -if(qbevent){evnt(26070,2538,"ide_methods.bas");r=0;} -S_39070:; -if ((*__LONG_HELP_LINKL)||new_error){ -if(qbevent){evnt(26070,2539,"ide_methods.bas");if(r)goto S_39070;} -do{ -*__LONG_HELP_SELECT= 0 ; -if(!qbevent)break;evnt(26070,2540,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_SY=*_FUNC_IDE2_LONG_CY- 3 ; -if(!qbevent)break;evnt(26070,2540,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_HELP_SEARCH_STR,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2541,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_LINKL= 0 ; -if(!qbevent)break;evnt(26070,2541,"ide_methods.bas");}while(r); -} -LABEL_STRNOTFOUND:; -if(qbevent){evnt(26070,2543,"ide_methods.bas");r=0;} -S_39076:; -if (((-(*__LONG_KB== 18176 ))&*__LONG_KCONTROL)||new_error){ -if(qbevent){evnt(26070,2545,"ide_methods.bas");if(r)goto S_39076;} -do{ -*__LONG_HELP_CX= 1 ; -if(!qbevent)break;evnt(26070,2546,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_CY= 1 ; -if(!qbevent)break;evnt(26070,2546,"ide_methods.bas");}while(r); -} -S_39080:; -if (((-(*__LONG_KB== 20224 ))&*__LONG_KCONTROL)||new_error){ -if(qbevent){evnt(26070,2548,"ide_methods.bas");if(r)goto S_39080;} -do{ -*__LONG_HELP_CX= 1 ; -if(!qbevent)break;evnt(26070,2549,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_CY=*__LONG_HELP_H+ 1 ; -if(!qbevent)break;evnt(26070,2549,"ide_methods.bas");}while(r); -} -S_39084:; -if (((-(*__LONG_KB== 18176 ))&(-(*__LONG_KCONTROL== 0 )))||new_error){ -if(qbevent){evnt(26070,2552,"ide_methods.bas");if(r)goto S_39084;} -do{ -*__LONG_HELP_CX= 1 ; -if(!qbevent)break;evnt(26070,2552,"ide_methods.bas");}while(r); -} -S_39087:; -if (((-(*__LONG_KB== 20224 ))&(-(*__LONG_KCONTROL== 0 )))||new_error){ -if(qbevent){evnt(26070,2553,"ide_methods.bas");if(r)goto S_39087;} -do{ -*__LONG_HELP_CX=((int32*)(__ARRAY_LONG_HELP_LINELEN[0]))[array_check((*__LONG_HELP_CY-*__LONG_HELP_SY)-__ARRAY_LONG_HELP_LINELEN[4],__ARRAY_LONG_HELP_LINELEN[5])]+ 1 ; -if(!qbevent)break;evnt(26070,2554,"ide_methods.bas");}while(r); -} -S_39090:; -if ((-(*__LONG_KB== 18688 ))||new_error){ -if(qbevent){evnt(26070,2557,"ide_methods.bas");if(r)goto S_39090;} -do{ -*__LONG_HELP_CY=*__LONG_HELP_CY-(*__LONG_HELP_WH- 1 ); -if(!qbevent)break;evnt(26070,2558,"ide_methods.bas");}while(r); -} -S_39093:; -if ((-(*__LONG_KB== 20736 ))||new_error){ -if(qbevent){evnt(26070,2561,"ide_methods.bas");if(r)goto S_39093;} -do{ -*__LONG_HELP_CY=*__LONG_HELP_CY+(*__LONG_HELP_WH- 1 ); -if(!qbevent)break;evnt(26070,2562,"ide_methods.bas");}while(r); -} -S_39096:; -if ((-(*__LONG_KB== 20480 ))||new_error){ -if(qbevent){evnt(26070,2565,"ide_methods.bas");if(r)goto S_39096;} -do{ -*__LONG_HELP_CY=*__LONG_HELP_CY+ 1 ; -if(!qbevent)break;evnt(26070,2565,"ide_methods.bas");}while(r); -} -S_39099:; -if ((-(*__LONG_KB== 18432 ))||new_error){ -if(qbevent){evnt(26070,2566,"ide_methods.bas");if(r)goto S_39099;} -do{ -*__LONG_HELP_CY=*__LONG_HELP_CY- 1 ; -if(!qbevent)break;evnt(26070,2566,"ide_methods.bas");}while(r); -} -S_39102:; -if ((-(*__LONG_KB== 19200 ))||new_error){ -if(qbevent){evnt(26070,2567,"ide_methods.bas");if(r)goto S_39102;} -do{ -*__LONG_HELP_CX=*__LONG_HELP_CX- 1 ; -if(!qbevent)break;evnt(26070,2567,"ide_methods.bas");}while(r); -} -S_39105:; -if ((-(*__LONG_KB== 19712 ))||new_error){ -if(qbevent){evnt(26070,2568,"ide_methods.bas");if(r)goto S_39105;} -do{ -*__LONG_HELP_CX=*__LONG_HELP_CX+ 1 ; -if(!qbevent)break;evnt(26070,2568,"ide_methods.bas");}while(r); -} -S_39108:; -if ((-(*__LONG_MWHEEL< 0 ))||new_error){ -if(qbevent){evnt(26070,2571,"ide_methods.bas");if(r)goto S_39108;} -do{ -*__LONG_HELP_CY=*__LONG_HELP_SY; -if(!qbevent)break;evnt(26070,2571,"ide_methods.bas");}while(r); -} -S_39111:; -if ((-(*__LONG_MWHEEL> 0 ))||new_error){ -if(qbevent){evnt(26070,2572,"ide_methods.bas");if(r)goto S_39111;} -do{ -*__LONG_HELP_CY=*__LONG_HELP_SY+(*__LONG_HELP_WH- 1 ); -if(!qbevent)break;evnt(26070,2572,"ide_methods.bas");}while(r); -} -do{ -*__LONG_HELP_CY=*__LONG_HELP_CY+(*__LONG_MWHEEL* 3 ); -if(!qbevent)break;evnt(26070,2573,"ide_methods.bas");}while(r); -S_39115:; -if ((-(*__LONG_HELP_CX< 1 ))||new_error){ -if(qbevent){evnt(26070,2576,"ide_methods.bas");if(r)goto S_39115;} -do{ -*__LONG_HELP_CX= 1 ; -if(!qbevent)break;evnt(26070,2576,"ide_methods.bas");}while(r); -} -S_39118:; -if ((-(*__LONG_HELP_CX>(*__LONG_HELP_W+ 1 )))||new_error){ -if(qbevent){evnt(26070,2577,"ide_methods.bas");if(r)goto S_39118;} -do{ -*__LONG_HELP_CX=*__LONG_HELP_W+ 1 ; -if(!qbevent)break;evnt(26070,2577,"ide_methods.bas");}while(r); -} -S_39121:; -if ((-(*__LONG_HELP_CY< 1 ))||new_error){ -if(qbevent){evnt(26070,2578,"ide_methods.bas");if(r)goto S_39121;} -do{ -*__LONG_HELP_CY= 1 ; -if(!qbevent)break;evnt(26070,2578,"ide_methods.bas");}while(r); -} -S_39124:; -if ((-(*__LONG_HELP_CY>(*__LONG_HELP_H+ 1 )))||new_error){ -if(qbevent){evnt(26070,2579,"ide_methods.bas");if(r)goto S_39124;} -do{ -*__LONG_HELP_CY=*__LONG_HELP_H+ 1 ; -if(!qbevent)break;evnt(26070,2579,"ide_methods.bas");}while(r); -} -S_39127:; -if ((-(*__LONG_HELP_CX<*__LONG_HELP_SX))||new_error){ -if(qbevent){evnt(26070,2582,"ide_methods.bas");if(r)goto S_39127;} -do{ -*__LONG_HELP_SX=*__LONG_HELP_CX; -if(!qbevent)break;evnt(26070,2582,"ide_methods.bas");}while(r); -} -S_39130:; -if ((-(*__LONG_HELP_CX>=(*__LONG_HELP_SX+*__LONG_HELP_WW)))||new_error){ -if(qbevent){evnt(26070,2583,"ide_methods.bas");if(r)goto S_39130;} -do{ -*__LONG_HELP_SX=*__LONG_HELP_CX-*__LONG_HELP_WW+ 1 ; -if(!qbevent)break;evnt(26070,2583,"ide_methods.bas");}while(r); -} -S_39133:; -if ((-(*__LONG_HELP_CY<*__LONG_HELP_SY))||new_error){ -if(qbevent){evnt(26070,2585,"ide_methods.bas");if(r)goto S_39133;} -do{ -*__LONG_HELP_SY=*__LONG_HELP_CY; -if(!qbevent)break;evnt(26070,2585,"ide_methods.bas");}while(r); -} -S_39136:; -if ((-(*__LONG_HELP_CY>=(*__LONG_HELP_SY+*__LONG_HELP_WH)))||new_error){ -if(qbevent){evnt(26070,2586,"ide_methods.bas");if(r)goto S_39136;} -do{ -*__LONG_HELP_SY=*__LONG_HELP_CY-*__LONG_HELP_WH+ 1 ; -if(!qbevent)break;evnt(26070,2586,"ide_methods.bas");}while(r); -} -S_39139:; -if ((-(*__LONG_HELP_SX< 1 ))||new_error){ -if(qbevent){evnt(26070,2589,"ide_methods.bas");if(r)goto S_39139;} -do{ -*__LONG_HELP_SX= 1 ; -if(!qbevent)break;evnt(26070,2589,"ide_methods.bas");}while(r); -} -S_39142:; -if ((-(*__LONG_HELP_SY< 1 ))||new_error){ -if(qbevent){evnt(26070,2590,"ide_methods.bas");if(r)goto S_39142;} -do{ -*__LONG_HELP_SY= 1 ; -if(!qbevent)break;evnt(26070,2590,"ide_methods.bas");}while(r); -} -S_39145:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,func_chr( 8 ))))||new_error){ -if(qbevent){evnt(26070,2592,"ide_methods.bas");if(r)goto S_39145;} -S_39146:; -if ((-(*__LONG_HELP_BACK_POS> 1 ))||new_error){ -if(qbevent){evnt(26070,2593,"ide_methods.bas");if(r)goto S_39146;} -do{ -*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16))=*__LONG_HELP_SX; -if(!qbevent)break;evnt(26070,2594,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+4))=*__LONG_HELP_SY; -if(!qbevent)break;evnt(26070,2595,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+8))=*__LONG_HELP_CX; -if(!qbevent)break;evnt(26070,2596,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+12))=*__LONG_HELP_CY; -if(!qbevent)break;evnt(26070,2597,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_BACK_POS=*__LONG_HELP_BACK_POS- 1 ; -if(!qbevent)break;evnt(26070,2598,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_SELECT= 0 ; -if(!qbevent)break;evnt(26070,2599,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_MSELECT= 0 ; -if(!qbevent)break;evnt(26070,2599,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_SX=*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16)); -if(!qbevent)break;evnt(26070,2600,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_SY=*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+4)); -if(!qbevent)break;evnt(26070,2601,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_CX=*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+8)); -if(!qbevent)break;evnt(26070,2602,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_CY=*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+12)); -if(!qbevent)break;evnt(26070,2603,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_A,FUNC_WIKI(((qbs*)(((uint64*)(__ARRAY_STRING_BACK[0]))[array_check((*__LONG_HELP_BACK_POS)-__ARRAY_STRING_BACK[4],__ARRAY_STRING_BACK[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2604,"ide_methods.bas");}while(r); -do{ -SUB_WIKIPARSE(_FUNC_IDE2_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2605,"ide_methods.bas");}while(r); -do{ -goto LABEL_NEWPAGEPARSED; -if(!qbevent)break;evnt(26070,2606,"ide_methods.bas");}while(r); -} -} -S_39163:; -if (((-(*__LONG_HELP_CY>= 1 ))&(-(*__LONG_HELP_CY<=*__LONG_HELP_H)))||new_error){ -if(qbevent){evnt(26070,2610,"ide_methods.bas");if(r)goto S_39163;} -do{ -*_FUNC_IDE2_LONG_L=string2l(func_mid(__STRING_HELP_LINE,((*__LONG_HELP_CY- 1 )* 4 )+( 1 ), 4 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2611,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_X=*_FUNC_IDE2_LONG_L; -if(!qbevent)break;evnt(26070,2612,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_X2= 1 ; -if(!qbevent)break;evnt(26070,2613,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_C=qbs_asc(__STRING_HELP_TXT,*_FUNC_IDE2_LONG_X); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2614,"ide_methods.bas");}while(r); -S_39168:; -while((!(qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_HELP_TXT,*_FUNC_IDE2_LONG_X+ 1 )> 127 ))))||new_error){ -if(qbevent){evnt(26070,2615,"ide_methods.bas");if(r)goto S_39168;} -S_39169:; -if ((-(*_FUNC_IDE2_LONG_X2==*__LONG_HELP_CX))||new_error){ -if(qbevent){evnt(26070,2617,"ide_methods.bas");if(r)goto S_39169;} -do{ -*_FUNC_IDE2_LONG_LNK=string2i(func_mid(__STRING_HELP_TXT,*_FUNC_IDE2_LONG_X+ 2 , 2 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2618,"ide_methods.bas");}while(r); -S_39171:; -if ((*_FUNC_IDE2_LONG_LNK)||new_error){ -if(qbevent){evnt(26070,2619,"ide_methods.bas");if(r)goto S_39171;} -do{ -*_FUNC_IDE2_LONG_L1= 1 ; -if(!qbevent)break;evnt(26070,2621,"ide_methods.bas");}while(r); -S_39173:; -fornext_value4216= 1 ; -fornext_finalvalue4216=*_FUNC_IDE2_LONG_LNK- 1 ; -fornext_step4216= 1 ; -if (fornext_step4216<0) fornext_step_negative4216=1; else fornext_step_negative4216=0; -if (new_error) goto fornext_error4216; -goto fornext_entrylabel4216; -while(1){ -fornext_value4216=fornext_step4216+(*_FUNC_IDE2_LONG_LX); -fornext_entrylabel4216: -*_FUNC_IDE2_LONG_LX=fornext_value4216; -if (fornext_step_negative4216){ -if (fornext_value4216fornext_finalvalue4216) break; -} -fornext_error4216:; -if(qbevent){evnt(26070,2622,"ide_methods.bas");if(r)goto S_39173;} -do{ -*_FUNC_IDE2_LONG_L1=func_instr(*_FUNC_IDE2_LONG_L1,__STRING_HELP_LINK,__STRING_HELP_LINK_SEP,0|1)+ 1 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2623,"ide_methods.bas");}while(r); -fornext_continue_4215:; -} -fornext_exit_4215:; -do{ -*_FUNC_IDE2_LONG_L2=func_instr(*_FUNC_IDE2_LONG_L1,__STRING_HELP_LINK,__STRING_HELP_LINK_SEP,0|1)- 1 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2625,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_L,func_mid(__STRING_HELP_LINK,*_FUNC_IDE2_LONG_L1,*_FUNC_IDE2_LONG_L2-*_FUNC_IDE2_LONG_L1+ 1 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2626,"ide_methods.bas");}while(r); -S_39178:; -if ((qbs_cleanup(qbs_tmp_base,*__LONG_MCLICK|(qbs_equal(__STRING_K,func_chr( 13 )))))||new_error){ -if(qbevent){evnt(26070,2628,"ide_methods.bas");if(r)goto S_39178;} -do{ -*__LONG_MCLICK= 0 ; -if(!qbevent)break;evnt(26070,2629,"ide_methods.bas");}while(r); -S_39180:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_IDE2_STRING_L, 5 ),qbs_new_txt_len("EXTL:",5))))||new_error){ -if(qbevent){evnt(26070,2631,"ide_methods.bas");if(r)goto S_39180;} -S_39181:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 13 )))|((-(*__LONG_MY==(*__LONG_HELP_CY-*__LONG_HELP_SY+*__LONG_HELP_WY1)))&(-(*__LONG_MX==(*__LONG_HELP_CX-*__LONG_HELP_SX+*__LONG_HELP_WX1))))))||new_error){ -if(qbevent){evnt(26070,2632,"ide_methods.bas");if(r)goto S_39181;} -do{ -qbs_set(_FUNC_IDE2_STRING_L,func_mid(_FUNC_IDE2_STRING_L, 6 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2633,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_L,FUNC_STRREPLACE(_FUNC_IDE2_STRING_L,qbs_new_txt_len(" ",1),qbs_new_txt_len("%20",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2634,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_L,FUNC_STRREPLACE(_FUNC_IDE2_STRING_L,qbs_new_txt_len("&",1),qbs_new_txt_len("%26",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2635,"ide_methods.bas");}while(r); -S_39185:; -if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)== 0 )))||new_error){ -if(qbevent){evnt(26070,2636,"ide_methods.bas");if(r)goto S_39185;} -do{ -qbs_set(_FUNC_IDE2_STRING_L,FUNC_STRREPLACE(_FUNC_IDE2_STRING_L,qbs_new_txt_len("$",1),qbs_new_txt_len("\\$",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2637,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_L,FUNC_STRREPLACE(_FUNC_IDE2_STRING_L,qbs_new_txt_len("&",1),qbs_new_txt_len("\\&",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2638,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_L,FUNC_STRREPLACE(_FUNC_IDE2_STRING_L,qbs_new_txt_len("(",1),qbs_new_txt_len("\\(",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2639,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_L,FUNC_STRREPLACE(_FUNC_IDE2_STRING_L,qbs_new_txt_len(")",1),qbs_new_txt_len("\\)",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2640,"ide_methods.bas");}while(r); -} -S_39191:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)))||new_error){ -if(qbevent){evnt(26070,2642,"ide_methods.bas");if(r)goto S_39191;} -do{ -sub_shell2(qbs_add(qbs_new_txt_len("start ",6),_FUNC_IDE2_STRING_L),3); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2643,"ide_methods.bas");}while(r); -S_39193:; -}else{ -if (qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))){ -if(qbevent){evnt(26070,2644,"ide_methods.bas");if(r)goto S_39193;} -do{ -sub_shell2(qbs_add(qbs_new_txt_len("open ",5),_FUNC_IDE2_STRING_L),3); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2645,"ide_methods.bas");}while(r); -}else{ -do{ -sub_shell2(qbs_add(qbs_new_txt_len("xdg-open ",9),_FUNC_IDE2_STRING_L),3); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2647,"ide_methods.bas");}while(r); -} -} -} -do{ -goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(26070,2650,"ide_methods.bas");}while(r); -S_39200:; -}else{ -if (qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_IDE2_STRING_L, 5 ),qbs_new_txt_len("PAGE:",5)))){ -if(qbevent){evnt(26070,2651,"ide_methods.bas");if(r)goto S_39200;} -do{ -qbs_set(_FUNC_IDE2_STRING_L,func_mid(_FUNC_IDE2_STRING_L, 6 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2652,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_L2=func_instr(NULL,_FUNC_IDE2_STRING_L,qbs_new_txt_len("#",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2653,"ide_methods.bas");}while(r); -S_39203:; -if ((-(*_FUNC_IDE2_LONG_L2> 0 ))||new_error){ -if(qbevent){evnt(26070,2654,"ide_methods.bas");if(r)goto S_39203;} -do{ -qbs_set(__STRING_HELP_SEARCH_STR,FUNC_STRREPLACE(func_mid(_FUNC_IDE2_STRING_L,*_FUNC_IDE2_LONG_L2+ 1 ,NULL,0),qbs_new_txt_len("_",1),qbs_new_txt_len(" ",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2655,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_L,qbs_left(_FUNC_IDE2_STRING_L,*_FUNC_IDE2_LONG_L2- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2656,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_LINKL= -1 ; -if(!qbevent)break;evnt(26070,2656,"ide_methods.bas");}while(r); -} -S_39208:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(((qbs*)(((uint64*)(__ARRAY_STRING_BACK[0]))[array_check((*__LONG_HELP_BACK_POS)-__ARRAY_STRING_BACK[4],__ARRAY_STRING_BACK[5])])),_FUNC_IDE2_STRING_L)))||new_error){ -if(qbevent){evnt(26070,2658,"ide_methods.bas");if(r)goto S_39208;} -do{ -*__LONG_HELP_SELECT= 0 ; -if(!qbevent)break;evnt(26070,2659,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_MSELECT= 0 ; -if(!qbevent)break;evnt(26070,2659,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16))=*__LONG_HELP_SX; -if(!qbevent)break;evnt(26070,2661,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+4))=*__LONG_HELP_SY; -if(!qbevent)break;evnt(26070,2662,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+8))=*__LONG_HELP_CX; -if(!qbevent)break;evnt(26070,2663,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+12))=*__LONG_HELP_CY; -if(!qbevent)break;evnt(26070,2664,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_TOP=func_ubound(__ARRAY_STRING_BACK,1,1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2666,"ide_methods.bas");}while(r); -S_39216:; -if ((-(*__LONG_HELP_BACK_POS<*_FUNC_IDE2_LONG_TOP))||new_error){ -if(qbevent){evnt(26070,2668,"ide_methods.bas");if(r)goto S_39216;} -S_39217:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_BACK[0]))[array_check((*__LONG_HELP_BACK_POS+ 1 )-__ARRAY_STRING_BACK[4],__ARRAY_STRING_BACK[5])])),_FUNC_IDE2_STRING_L)))||new_error){ -if(qbevent){evnt(26070,2669,"ide_methods.bas");if(r)goto S_39217;} -do{ -goto LABEL_USENEXTENTRY; -if(!qbevent)break;evnt(26070,2670,"ide_methods.bas");}while(r); -} -} -do{ -*_FUNC_IDE2_LONG_TOP=*_FUNC_IDE2_LONG_TOP+ 1 ; -if(!qbevent)break;evnt(26070,2674,"ide_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26070,808,"ide_methods.bas");}while(r); +LABEL_ENTERDEBUGMODE:; +if(qbevent){evnt(26070,810,"ide_methods.bas");r=0;} +S_37306:; +if ((*__LONG_IDEHELP)||new_error){ +if(qbevent){evnt(26070,811,"ide_methods.bas");if(r)goto S_37306;} +do{ +*__LONG_IDEWY=*__LONG_IDEWY+*__LONG_IDESUBWINDOW; +if(!qbevent)break;evnt(26070,812,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEHELP= 0 ; +if(!qbevent)break;evnt(26070,813,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESUBWINDOW= 0 ; +if(!qbevent)break;evnt(26070,814,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_SKIPDISPLAY= 0 ; +if(!qbevent)break;evnt(26070,815,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESYSTEM= 1 ; +if(!qbevent)break;evnt(26070,816,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_RETVAL= 1 ; +if(!qbevent)break;evnt(26070,817,"ide_methods.bas");}while(r); +} +do{ +return_point[next_return_point++]=15; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_REDRAWITALL; +RETURN_15:; +if(!qbevent)break;evnt(26070,820,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECOMPILING= 0 ; +if(!qbevent)break;evnt(26070,821,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_READY= 1 ; +if(!qbevent)break;evnt(26070,822,"ide_methods.bas");}while(r); +do{ +sub__resize( 2 ,NULL); +if(!qbevent)break;evnt(26070,823,"ide_methods.bas");}while(r); +do{ +SUB_DEBUGMODE(); +if(!qbevent)break;evnt(26070,824,"ide_methods.bas");}while(r); +LABEL_EXITDEBUGMODE:; +if(qbevent){evnt(26070,825,"ide_methods.bas");r=0;} +S_37319:; +if ((*__BYTE_WATCHLISTTOCONSOLE)||new_error){ +if(qbevent){evnt(26070,826,"ide_methods.bas");if(r)goto S_37319;} +do{ +sub__console( 2 ); +if(!qbevent)break;evnt(26070,826,"ide_methods.bas");}while(r); +} +do{ +SUB_UPDATEMENUHELPLINE(qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,827,"ide_methods.bas");}while(r); +S_37323:; +if(qbevent){evnt(26070,828,"ide_methods.bas");if(r)goto S_37323;} +S_37324:; +if (((*__LONG_IDEDEBUGMODE==( 1 )))||new_error){ +if(qbevent){evnt(26070,829,"ide_methods.bas");if(r)goto S_37324;} +do{ +*__LONG_IDEDEBUGMODE= 0 ; +if(!qbevent)break;evnt(26070,830,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEFOCUSLINE= 0 ; +if(!qbevent)break;evnt(26070,831,"ide_methods.bas");}while(r); +do{ +*__LONG_DEBUGNEXTLINE= 0 ; +if(!qbevent)break;evnt(26070,832,"ide_methods.bas");}while(r); +sc_ec_214_end:; +goto sc_4053_end; +} +S_37328:; +if (((*__LONG_IDEDEBUGMODE==( 2 )))||new_error){ +if(qbevent){evnt(26070,833,"ide_methods.bas");if(r)goto S_37328;} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,834,"ide_methods.bas");}while(r); +do{ +SUB_IDEMAKECONTEXTUALMENU(); +if(!qbevent)break;evnt(26070,835,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_IDECONTEXTUALMENU= 1 ; +if(!qbevent)break;evnt(26070,836,"ide_methods.bas");}while(r); +do{ +goto LABEL_SHOWMENU; +if(!qbevent)break;evnt(26070,837,"ide_methods.bas");}while(r); +sc_ec_215_end:; +goto sc_4053_end; +} +sc_4053_end:; +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,839,"ide_methods.bas");}while(r); +do{ +sub__printstring( 1 , 1 ,__STRING_MENUBAR,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,839,"ide_methods.bas");}while(r); +S_37336:; +if ((-(*__LONG_IDESUBWINDOW!= 0 ))||new_error){ +if(qbevent){evnt(26070,840,"ide_methods.bas");if(r)goto S_37336;} +do{ +sub__resize( 2 ,NULL); +if(!qbevent)break;evnt(26070,840,"ide_methods.bas");}while(r); +}else{ +do{ +sub__resize( 1 ,NULL); +if(!qbevent)break;evnt(26070,840,"ide_methods.bas");}while(r); +} +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,841,"ide_methods.bas");}while(r); +} +S_37343:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_C,func_chr( 11 ))))||new_error){ +if(qbevent){evnt(26070,844,"ide_methods.bas");if(r)goto S_37343;} +do{ +*__LONG_IDECOMPILING= 0 ; +if(!qbevent)break;evnt(26070,845,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_READY= 1 ; +if(!qbevent)break;evnt(26070,846,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEAUTORUN= 0 ; +if(!qbevent)break;evnt(26070,847,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_SHOWEXECREATED= 1 ; +if(!qbevent)break;evnt(26070,848,"ide_methods.bas");}while(r); +} +S_37349:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_C,func_chr( 7 ))))||new_error){ +if(qbevent){evnt(26070,851,"ide_methods.bas");if(r)goto S_37349;} +do{ +*_FUNC_IDE2_LONG_SKIPDISPLAY= 1 ; +if(!qbevent)break;evnt(26070,852,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECOMPILEDLINE= 0 ; +if(!qbevent)break;evnt(26070,853,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_SENDNEXTLINE= 1 ; +if(!qbevent)break;evnt(26070,854,"ide_methods.bas");}while(r); +} +S_37354:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_IDE2_STRING_C, 1 ),func_chr( 8 ))))||new_error){ +if(qbevent){evnt(26070,857,"ide_methods.bas");if(r)goto S_37354;} +do{ +*__LONG_IDECOMPILING= 0 ; +if(!qbevent)break;evnt(26070,858,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_FAILED= 1 ; +if(!qbevent)break;evnt(26070,859,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEAUTORUN= 0 ; +if(!qbevent)break;evnt(26070,860,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDE2_LONG_PASSBACK= 0 ; +if(!qbevent)break;evnt(26070,863,"ide_methods.bas");}while(r); +S_37360:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_IDE2_STRING_C, 1 ),func_chr( 10 ))))||new_error){ +if(qbevent){evnt(26070,864,"ide_methods.bas");if(r)goto S_37360;} +do{ +*_FUNC_IDE2_LONG_SKIPDISPLAY= 1 ; +if(!qbevent)break;evnt(26070,865,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_SENDNEXTLINE= 1 ; +if(!qbevent)break;evnt(26070,866,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECOMPILEDLINE=*__LONG_IDECOMPILEDLINE- 1 ; +if(!qbevent)break;evnt(26070,867,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_PASSBACK= 1 ; +if(!qbevent)break;evnt(26070,868,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_PASSBACK,qbs_right(_FUNC_IDE2_STRING_C,_FUNC_IDE2_STRING_C->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,869,"ide_methods.bas");}while(r); +} +S_37367:; +if ((*_FUNC_IDE2_LONG_MUSTDISPLAY)||new_error){ +if(qbevent){evnt(26070,872,"ide_methods.bas");if(r)goto S_37367;} +do{ +*_FUNC_IDE2_LONG_SKIPDISPLAY= 0 ; +if(!qbevent)break;evnt(26070,872,"ide_methods.bas");}while(r); +} +S_37370:; +if ((-(*_FUNC_IDE2_LONG_SKIPDISPLAY== 0 ))||new_error){ +if(qbevent){evnt(26070,874,"ide_methods.bas");if(r)goto S_37370;} +do{ +qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); +if(!qbevent)break;evnt(26070,876,"ide_methods.bas");}while(r); +S_37372:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_IDE2_STRING_C,func_chr( 3 ))))||new_error){ +if(qbevent){evnt(26070,881,"ide_methods.bas");if(r)goto S_37372;} +do{ +SUB_CLEARSTATUSWINDOW(&(pass4055= 0 )); +if(!qbevent)break;evnt(26070,882,"ide_methods.bas");}while(r); +S_37374:; +if ((*_FUNC_IDE2_LONG_READY)||new_error){ +if(qbevent){evnt(26070,883,"ide_methods.bas");if(r)goto S_37374;} +S_37375:; +if ((*__BYTE_IDESHOWERRORSIMMEDIATELY)||new_error){ +if(qbevent){evnt(26070,884,"ide_methods.bas");if(r)goto S_37375;} +do{ +sub__printstring( 2 ,*__LONG_IDEWY- 3 ,qbs_new_txt_len("OK",2),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,885,"ide_methods.bas");}while(r); +S_37377:; +if ((-(*__LONG_IDEAUTOLAYOUT!= 0 ))||new_error){ +if(qbevent){evnt(26070,886,"ide_methods.bas");if(r)goto S_37377;} +do{ +tmp_long=array_check(( 1 )-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_FILEMENUEXPORTAS)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(qbs_new_txt_len("#Export As... ",15),func_chr( 16 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,886,"ide_methods.bas");}while(r); +} +do{ +*__INTEGER_STATUSAREALINK= 0 ; +if(!qbevent)break;evnt(26070,887,"ide_methods.bas");}while(r); +S_37381:; +if (((-(*__LONG_TOTALWARNINGS> 0 ))&(-(*_FUNC_IDE2_LONG_SHOWEXECREATED== 0 )))||new_error){ +if(qbevent){evnt(26070,888,"ide_methods.bas");if(r)goto S_37381;} +do{ +qbg_sub_color( 11 , 1 ,NULL,3); +if(!qbevent)break;evnt(26070,889,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_MSG,qbs_add(qbs_add(qbs_new_txt_len(" (",2),qbs_ltrim(qbs_str((int32)(*__LONG_TOTALWARNINGS)))),qbs_new_txt_len(" warning",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,890,"ide_methods.bas");}while(r); +S_37384:; +if ((-(*__LONG_TOTALWARNINGS> 1 ))||new_error){ +if(qbevent){evnt(26070,891,"ide_methods.bas");if(r)goto S_37384;} +do{ +qbs_set(_FUNC_IDE2_STRING_MSG,qbs_add(_FUNC_IDE2_STRING_MSG,qbs_new_txt_len("s",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,891,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDE2_STRING_MSG,qbs_add(_FUNC_IDE2_STRING_MSG,qbs_new_txt_len(" - click here or Ctrl+W to view)",32))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,892,"ide_methods.bas");}while(r); +do{ +sub__printstring( 4 ,*__LONG_IDEWY- 3 ,_FUNC_IDE2_STRING_MSG,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,893,"ide_methods.bas");}while(r); +do{ +*__INTEGER_STATUSAREALINK= 4 ; +if(!qbevent)break;evnt(26070,894,"ide_methods.bas");}while(r); +} +S_37391:; +if ((*_FUNC_IDE2_BYTE_WAITINGFORVARLIST)||new_error){ +if(qbevent){evnt(26070,896,"ide_methods.bas");if(r)goto S_37391;} +do{ +return_point[next_return_point++]=16; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SHOWVARLISTREADY; +RETURN_16:; +if(!qbevent)break;evnt(26070,896,"ide_methods.bas");}while(r); +} +} +} +S_37396:; +if ((*_FUNC_IDE2_LONG_SHOWEXECREATED)||new_error){ +if(qbevent){evnt(26070,899,"ide_methods.bas");if(r)goto S_37396;} +do{ +*_FUNC_IDE2_LONG_SHOWEXECREATED= 0 ; +if(!qbevent)break;evnt(26070,900,"ide_methods.bas");}while(r); +S_37398:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ +if(qbevent){evnt(26070,902,"ide_methods.bas");if(r)goto S_37398;} +do{ +sub__printstring( 2 ,*__LONG_IDEWY- 3 ,qbs_new_txt_len("Executable file created",23),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,903,"ide_methods.bas");}while(r); +}else{ +do{ +sub__printstring( 2 ,*__LONG_IDEWY- 3 ,qbs_new_txt_len(".EXE file created",17),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,905,"ide_methods.bas");}while(r); +} +S_37403:; +if ((*__BYTE_SAVEEXEWITHSOURCE)||new_error){ +if(qbevent){evnt(26070,908,"ide_methods.bas");if(r)goto S_37403;} +do{ +qbg_sub_color( 11 , 1 ,NULL,3); +if(!qbevent)break;evnt(26070,909,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_LOCATION,__STRING_LASTBINARYGENERATED); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,910,"ide_methods.bas");}while(r); +S_37406:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,911,"ide_methods.bas");if(r)goto S_37406;} +do{ +qbs_set(_FUNC_IDE2_STRING_LOCATION,qbs_add(qbs_add(func__startdir(),__STRING1_PATHSEP),_FUNC_IDE2_STRING_LOCATION)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,911,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDE2_STRING_MSG,qbs_add(qbs_new_txt_len("Location: ",10),_FUNC_IDE2_STRING_LOCATION)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,912,"ide_methods.bas");}while(r); +S_37410:; +if ((qbs_cleanup(qbs_tmp_base,-(( 2 +_FUNC_IDE2_STRING_MSG->len)>*__LONG_IDEWX)))||new_error){ +if(qbevent){evnt(26070,913,"ide_methods.bas");if(r)goto S_37410;} +do{ +qbs_set(_FUNC_IDE2_STRING_MSG,qbs_add(qbs_add(qbs_new_txt_len("Location: ",10),func_string( 3 , 250 )),qbs_right(_FUNC_IDE2_STRING_LOCATION,*__LONG_IDEWX- 15 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,914,"ide_methods.bas");}while(r); +} +do{ +sub__printstring( 2 ,*__LONG_IDEWY- 2 ,_FUNC_IDE2_STRING_MSG,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,916,"ide_methods.bas");}while(r); +do{ +*__INTEGER_STATUSAREALINK= 3 ; +if(!qbevent)break;evnt(26070,917,"ide_methods.bas");}while(r); +} +} +} +} +do{ +*__LONG_IDEFOCUSLINE= 0 ; +if(!qbevent)break;evnt(26070,925,"ide_methods.bas");}while(r); +S_37420:; +do{ +if(qbevent){evnt(26070,956,"ide_methods.bas");if(r)goto S_37420;} +LABEL_IDELOOP:; +if(qbevent){evnt(26070,957,"ide_methods.bas");r=0;} +S_37421:; +if ((*__BYTE_SHOWLINENUMBERS)||new_error){ +if(qbevent){evnt(26070,958,"ide_methods.bas");if(r)goto S_37421;} +do{ +*__LONG_MAXLINENUMBERLENGTH=((int32)(qbs_str((int32)(*__LONG_IDEN)))->len)+ 1 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,958,"ide_methods.bas");}while(r); +}else{ +do{ +*__LONG_MAXLINENUMBERLENGTH= 0 ; +if(!qbevent)break;evnt(26070,958,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDE2_LONG_IDECONTEXTUALMENU= 0 ; +if(!qbevent)break;evnt(26070,959,"ide_methods.bas");}while(r); +do{ +SUB_IDEDELTXT(); +if(!qbevent)break;evnt(26070,960,"ide_methods.bas");}while(r); +S_37428:; +if ((-(*__LONG_IDESUBWINDOW!= 0 ))||new_error){ +if(qbevent){evnt(26070,961,"ide_methods.bas");if(r)goto S_37428;} +do{ +sub__resize( 2 ,NULL); +if(!qbevent)break;evnt(26070,961,"ide_methods.bas");}while(r); +}else{ +do{ +sub__resize( 1 ,NULL); +if(!qbevent)break;evnt(26070,961,"ide_methods.bas");}while(r); +} +S_37433:; +if ((((func__resize()|*_FUNC_IDE2_LONG_FORCERESIZE))&(-(((float)(FUNC_TIMEELAPSEDSINCE(__SINGLE_QB64_UPTIME)))>((float)( 1.5E+0 )))))||new_error){ +if(qbevent){evnt(26070,963,"ide_methods.bas");if(r)goto S_37433;} +S_37434:; +if ((-(*__LONG_IDESUBWINDOW!= 0 ))||new_error){ +if(qbevent){evnt(26070,964,"ide_methods.bas");if(r)goto S_37434;} +do{ +*_FUNC_IDE2_LONG_FORCERESIZE= -1 ; +if(!qbevent)break;evnt(26070,965,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_IDE2_LONG_RETVAL= 0 ; +if(!qbevent)break;evnt(26070,967,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_FORCERESIZE= 0 ; +if(!qbevent)break;evnt(26070,968,"ide_methods.bas");}while(r); +S_37439:; +do{ +if(qbevent){evnt(26070,969,"ide_methods.bas");if(r)goto S_37439;} +do{ +*_FUNC_IDE2_BYTE_TOOSMALL= 0 ; +if(!qbevent)break;evnt(26070,970,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_INTEGER_V=func__resizewidth()/ func__fontwidth(NULL,0); +if(!qbevent)break;evnt(26070,971,"ide_methods.bas");}while(r); +S_37442:; +if (((-(*_FUNC_IDE2_INTEGER_V< 80 ))|(-(*_FUNC_IDE2_INTEGER_V> 1000 )))||new_error){ +if(qbevent){evnt(26070,971,"ide_methods.bas");if(r)goto S_37442;} +do{ +*_FUNC_IDE2_INTEGER_V= 80 ; +if(!qbevent)break;evnt(26070,971,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_BYTE_TOOSMALL= -1 ; +if(!qbevent)break;evnt(26070,971,"ide_methods.bas");}while(r); +} +S_37446:; +if ((-(*_FUNC_IDE2_INTEGER_V!=*__LONG_IDEWX))||new_error){ +if(qbevent){evnt(26070,972,"ide_methods.bas");if(r)goto S_37446;} +do{ +*_FUNC_IDE2_LONG_RETVAL= 1 ; +if(!qbevent)break;evnt(26070,972,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEWX=*_FUNC_IDE2_INTEGER_V; +if(!qbevent)break;evnt(26070,972,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDE2_INTEGER_V=func__resizeheight()/ func__fontheight(NULL,0); +if(!qbevent)break;evnt(26070,973,"ide_methods.bas");}while(r); +S_37451:; +if (((-(*_FUNC_IDE2_INTEGER_V< 25 ))|(-(*_FUNC_IDE2_INTEGER_V> 1000 )))||new_error){ +if(qbevent){evnt(26070,973,"ide_methods.bas");if(r)goto S_37451;} +do{ +*_FUNC_IDE2_INTEGER_V= 25 ; +if(!qbevent)break;evnt(26070,973,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_BYTE_TOOSMALL= -1 ; +if(!qbevent)break;evnt(26070,973,"ide_methods.bas");}while(r); +} +S_37455:; +if ((-(*_FUNC_IDE2_INTEGER_V!=*__LONG_IDEWY))||new_error){ +if(qbevent){evnt(26070,974,"ide_methods.bas");if(r)goto S_37455;} +do{ +*_FUNC_IDE2_LONG_RETVAL= 1 ; +if(!qbevent)break;evnt(26070,974,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEWY=*_FUNC_IDE2_INTEGER_V; +if(!qbevent)break;evnt(26070,974,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDE2_LONG_TEMPF=func__font(NULL,0); +if(!qbevent)break;evnt(26070,976,"ide_methods.bas");}while(r); +do{ +qbsub_width(NULL,*__LONG_IDEWX,*__LONG_IDEWY,NULL,NULL,3); +if(!qbevent)break;evnt(26070,977,"ide_methods.bas");}while(r); +do{ +sub__font(*_FUNC_IDE2_LONG_TEMPF,NULL,0); +if(!qbevent)break;evnt(26070,978,"ide_methods.bas");}while(r); +do{ +sub__palettecolor( 1 ,*__ULONG_IDEBACKGROUNDCOLOR, 0 ,1); +if(!qbevent)break;evnt(26070,980,"ide_methods.bas");}while(r); +do{ +sub__palettecolor( 2 ,func__rgb32( 84 , 84 , 84 ), 0 ,1); +if(!qbevent)break;evnt(26070,981,"ide_methods.bas");}while(r); +do{ +sub__palettecolor( 4 ,*__ULONG_IDEERRORCOLOR, 0 ,1); +if(!qbevent)break;evnt(26070,982,"ide_methods.bas");}while(r); +do{ +sub__palettecolor( 5 ,*__ULONG_IDEBRACKETHIGHLIGHTCOLOR, 0 ,1); +if(!qbevent)break;evnt(26070,983,"ide_methods.bas");}while(r); +do{ +sub__palettecolor( 6 ,*__ULONG_IDEBACKGROUNDCOLOR2, 0 ,1); +if(!qbevent)break;evnt(26070,984,"ide_methods.bas");}while(r); +do{ +sub__palettecolor( 7 ,*__ULONG_IDECHROMACOLOR, 0 ,1); +if(!qbevent)break;evnt(26070,985,"ide_methods.bas");}while(r); +do{ +sub__palettecolor( 8 ,*__ULONG_IDENUMBERSCOLOR, 0 ,1); +if(!qbevent)break;evnt(26070,986,"ide_methods.bas");}while(r); +do{ +sub__palettecolor( 10 ,*__ULONG_IDEMETACOMMANDCOLOR, 0 ,1); +if(!qbevent)break;evnt(26070,987,"ide_methods.bas");}while(r); +do{ +sub__palettecolor( 11 ,*__ULONG_IDECOMMENTCOLOR, 0 ,1); +if(!qbevent)break;evnt(26070,988,"ide_methods.bas");}while(r); +do{ +sub__palettecolor( 12 ,*__ULONG_IDEKEYWORDCOLOR, 0 ,1); +if(!qbevent)break;evnt(26070,989,"ide_methods.bas");}while(r); +do{ +sub__palettecolor( 13 ,*__ULONG_IDETEXTCOLOR, 0 ,1); +if(!qbevent)break;evnt(26070,990,"ide_methods.bas");}while(r); +do{ +sub__palettecolor( 14 ,*__ULONG_IDEQUOTECOLOR, 0 ,1); +if(!qbevent)break;evnt(26070,991,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,993,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,995,"ide_methods.bas");}while(r); +do{ +sub__printstring( 1 , 1 ,func_space(*__LONG_IDEWX),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,996,"ide_methods.bas");}while(r); +do{ +sub__printstring( 1 , 1 ,qbs_left(__STRING_MENUBAR,*__LONG_IDEWX),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,997,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 7 , 1 ,NULL,3); +if(!qbevent)break;evnt(26070,998,"ide_methods.bas");}while(r); +do{ +SUB_IDEBOX(&(pass4059= 1 ),&(pass4060= 2 ),__LONG_IDEWX,&(pass4061=*__LONG_IDEWY- 5 )); +if(!qbevent)break;evnt(26070,998,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 7 , 1 ,NULL,3); +if(!qbevent)break;evnt(26070,1000,"ide_methods.bas");}while(r); +do{ +SUB_IDEBOX(&(pass4062= 1 ),&(pass4063=*__LONG_IDEWY- 4 ),__LONG_IDEWX,&(pass4064= 5 )); +if(!qbevent)break;evnt(26070,1000,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 7 , 1 ,NULL,3); +if(!qbevent)break;evnt(26070,1002,"ide_methods.bas");}while(r); +do{ +sub__printstring( 1 ,*__LONG_IDEWY- 4 ,func_chr( 195 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1002,"ide_methods.bas");}while(r); +do{ +sub__printstring(*__LONG_IDEWX,*__LONG_IDEWY- 4 ,func_chr( 180 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1002,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=17; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATESEARCHBAR; +RETURN_17:; +if(!qbevent)break;evnt(26070,1004,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 0 , 3 ,NULL,3); +if(!qbevent)break;evnt(26070,1007,"ide_methods.bas");}while(r); +do{ +sub__printstring( 1 ,*__LONG_IDEWY+*__LONG_IDESUBWINDOW,func_space(*__LONG_IDEWX),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1007,"ide_methods.bas");}while(r); +do{ +SUB_UPDATEIDEINFO(); +if(!qbevent)break;evnt(26070,1008,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_Q=FUNC_IDEVBAR(__LONG_IDEWX,&(pass4065=*__LONG_IDEWY- 3 ),&(pass4066= 3 ),&(pass4067= 1 ),&(pass4068= 1 )); +if(!qbevent)break;evnt(26070,1009,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_Q=FUNC_IDEVBAR(__LONG_IDEWX,&(pass4069= 3 ),&(pass4070=*__LONG_IDEWY- 8 ),&(pass4071= 1 ),&(pass4072= 1 )); +if(!qbevent)break;evnt(26070,1010,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_Q=FUNC_IDEHBAR(&(pass4073= 2 ),&(pass4074=*__LONG_IDEWY- 5 ),&(pass4075=*__LONG_IDEWX- 2 ),&(pass4076= 1 ),&(pass4077= 1 )); +if(!qbevent)break;evnt(26070,1011,"ide_methods.bas");}while(r); +do{ +SUB_UPDATETITLEOFMAINWINDOW(); +if(!qbevent)break;evnt(26070,1013,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 7 , 1 ,NULL,3); +if(!qbevent)break;evnt(26070,1015,"ide_methods.bas");}while(r); +do{ +sub__printstring( 2 ,*__LONG_IDEWY- 3 ,qbs_new_txt_len("Resizing...",11),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1016,"ide_methods.bas");}while(r); +S_37495:; +if ((*_FUNC_IDE2_BYTE_TOOSMALL)||new_error){ +if(qbevent){evnt(26070,1017,"ide_methods.bas");if(r)goto S_37495;} +do{ +qbg_sub_color( 14 , 1 ,NULL,3); +if(!qbevent)break;evnt(26070,1018,"ide_methods.bas");}while(r); +do{ +sub__printstring( 2 , 3 ,qbs_new_txt_len("ERROR: Minimum window size is 80x25",35),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1019,"ide_methods.bas");}while(r); +}else{ +do{ +SUB_IDESHOWTEXT(); +if(!qbevent)break;evnt(26070,1021,"ide_methods.bas");}while(r); +} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,1024,"ide_methods.bas");}while(r); +do{ +sub__display(); +if(!qbevent)break;evnt(26070,1026,"ide_methods.bas");}while(r); +do{ +sub__limit( 15 ); +if(!qbevent)break;evnt(26070,1027,"ide_methods.bas");}while(r); +S_37504:; +dl_continue_4058:; +}while((func__resize())&&(!new_error)); +dl_exit_4058:; +if(qbevent){evnt(26070,1028,"ide_methods.bas");if(r)goto S_37504;} +S_37505:; +if ((-(*_FUNC_IDE2_LONG_RETVAL== 1 ))||new_error){ +if(qbevent){evnt(26070,1030,"ide_methods.bas");if(r)goto S_37505;} +do{ +SUB_WRITECONFIGSETTING(__STRING_WINDOWSETTINGSSECTION,qbs_new_txt_len("IDE_Width",9),qbs_str((int32)(*__LONG_IDEWX))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1031,"ide_methods.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_WINDOWSETTINGSSECTION,qbs_new_txt_len("IDE_Height",10),qbs_str((int32)(*__LONG_IDEWY))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1032,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDE2_LONG_RETVAL= 1 ; +if(!qbevent)break;evnt(26070,1035,"ide_methods.bas");}while(r); +do{ +sub__autodisplay(); +if(!qbevent)break;evnt(26070,1036,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=18; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_REDRAWITALL; +RETURN_18:; +if(!qbevent)break;evnt(26070,1037,"ide_methods.bas");}while(r); +} +}else{ +do{ +sub__autodisplay(); +if(!qbevent)break;evnt(26070,1040,"ide_methods.bas");}while(r); +} +S_37516:; +if ((-(*_FUNC_IDE2_LONG_SKIPDISPLAY== 0 ))||new_error){ +if(qbevent){evnt(26070,1043,"ide_methods.bas");if(r)goto S_37516;} +do{ +qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); +if(!qbevent)break;evnt(26070,1045,"ide_methods.bas");}while(r); +do{ +SUB_UPDATETITLEOFMAINWINDOW(); +if(!qbevent)break;evnt(26070,1048,"ide_methods.bas");}while(r); +S_37519:; +if ((*__BYTE_ENABLEQUICKNAV)||new_error){ +if(qbevent){evnt(26070,1051,"ide_methods.bas");if(r)goto S_37519;} +do{ +return_point[next_return_point++]=19; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_DRAWQUICKNAV; +RETURN_19:; +if(!qbevent)break;evnt(26070,1051,"ide_methods.bas");}while(r); +} +do{ +return_point[next_return_point++]=20; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATESEARCHBAR; +RETURN_20:; +if(!qbevent)break;evnt(26070,1054,"ide_methods.bas");}while(r); +S_37523:; +if ((*__INTEGER_IDEINSERT)||new_error){ +if(qbevent){evnt(26070,1057,"ide_methods.bas");if(r)goto S_37523;} +do{ +qbg_sub_locate(NULL,NULL,NULL, 0 , 31 ,24); +if(!qbevent)break;evnt(26070,1057,"ide_methods.bas");}while(r); +}else{ +do{ +qbg_sub_locate(NULL,NULL,NULL,*__LONG_IDENORMALCURSORSTART,*__LONG_IDENORMALCURSOREND,24); +if(!qbevent)break;evnt(26070,1057,"ide_methods.bas");}while(r); +} +S_37528:; +if ((*_FUNC_IDE2_LONG_FAILED)||new_error){ +if(qbevent){evnt(26070,1060,"ide_methods.bas");if(r)goto S_37528;} +S_37529:; +if (((-(*__BYTE_IDESHOWERRORSIMMEDIATELY!= 0 ))|(-(*_FUNC_IDE2_BYTE_IDECOMPILATIONREQUESTED!= 0 ))|(-(*__LONG_COMPFAILED!= 0 )))||new_error){ +if(qbevent){evnt(26070,1061,"ide_methods.bas");if(r)goto S_37529;} +S_37530:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(__STRING_IDEINFO, 19 ),qbs_new_txt_len("Selection length = ",19))))||new_error){ +if(qbevent){evnt(26070,1062,"ide_methods.bas");if(r)goto S_37530;} +do{ +qbs_set(__STRING_IDEINFO,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1062,"ide_methods.bas");}while(r); +} +do{ +SUB_UPDATEIDEINFO(); +if(!qbevent)break;evnt(26070,1063,"ide_methods.bas");}while(r); +S_37534:; +if ((-(*__LONG_IDEAUTOLAYOUT!= 0 ))||new_error){ +if(qbevent){evnt(26070,1064,"ide_methods.bas");if(r)goto S_37534;} +do{ +tmp_long=array_check(( 1 )-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_FILEMENUEXPORTAS)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(qbs_new_txt_len("#Export As... ",15),func_chr( 16 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1064,"ide_methods.bas");}while(r); +} +do{ +SUB_CLEARSTATUSWINDOW(&(pass4078= 0 )); +if(!qbevent)break;evnt(26070,1066,"ide_methods.bas");}while(r); +S_37538:; +if ((*__LONG_COMPFAILED)||new_error){ +if(qbevent){evnt(26070,1068,"ide_methods.bas");if(r)goto S_37538;} +do{ +qbs_set(_FUNC_IDE2_STRING_A,func_mid(_FUNC_IDE2_STRING_C, 2 ,_FUNC_IDE2_STRING_C->len- 5 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1069,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_X= 2 ; +if(!qbevent)break;evnt(26070,1070,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_Y=*__LONG_IDEWY- 3 ; +if(!qbevent)break;evnt(26070,1071,"ide_methods.bas");}while(r); +do{ +SUB_PRINTWRAPSTATUS(&(pass4080=*_FUNC_IDE2_LONG_X),&(pass4081=*_FUNC_IDE2_LONG_Y),&(pass4082=*_FUNC_IDE2_LONG_X),_FUNC_IDE2_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1072,"ide_methods.bas");}while(r); +do{ +*__INTEGER_STATUSAREALINK= 1 ; +if(!qbevent)break;evnt(26070,1073,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDE2_STRING_A,func_mid(_FUNC_IDE2_STRING_C, 2 ,_FUNC_IDE2_STRING_C->len- 5 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1075,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_L=string2l(qbs_right(_FUNC_IDE2_STRING_C, 4 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1077,"ide_methods.bas");}while(r); +S_37547:; +if ((-(*_FUNC_IDE2_LONG_L!= 0 ))||new_error){ +if(qbevent){evnt(26070,1077,"ide_methods.bas");if(r)goto S_37547;} +do{ +*__LONG_IDEFOCUSLINE=*_FUNC_IDE2_LONG_L; +if(!qbevent)break;evnt(26070,1077,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDE2_LONG_X= 2 ; +if(!qbevent)break;evnt(26070,1079,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_Y=*__LONG_IDEWY- 3 ; +if(!qbevent)break;evnt(26070,1080,"ide_methods.bas");}while(r); +S_37552:; +if (((-(*_FUNC_IDE2_LONG_L!= 0 ))&(-(*__LONG_IDECY==*_FUNC_IDE2_LONG_L)))||new_error){ +if(qbevent){evnt(26070,1082,"ide_methods.bas");if(r)goto S_37552;} +do{ +*_FUNC_IDE2_LONG_ONCURRENTLINE=_FUNC_IDE2_STRING_A->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1082,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(_FUNC_IDE2_STRING_A,func_chr( 1 )),qbs_new_txt_len(" on current line",16))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1082,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDE2_LONG_HASREFERENCE=func_instr(NULL,_FUNC_IDE2_STRING_A,qbs_new_txt_len(" - Reference: ",14),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1084,"ide_methods.bas");}while(r); +S_37557:; +if ((*_FUNC_IDE2_LONG_HASREFERENCE)||new_error){ +if(qbevent){evnt(26070,1085,"ide_methods.bas");if(r)goto S_37557;} +do{ +*_FUNC_IDE2_LONG_HASREFERENCE=*_FUNC_IDE2_LONG_HASREFERENCE+ 13 ; +if(!qbevent)break;evnt(26070,1086,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(qbs_left(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_HASREFERENCE),func_chr( 2 )),func_mid(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_HASREFERENCE+ 1 ,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1087,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_IDE2_LONG_HASREFERENCE=func_instr(NULL,_FUNC_IDE2_STRING_A,qbs_new_txt_len("Expected ",9),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1089,"ide_methods.bas");}while(r); +S_37562:; +if ((*_FUNC_IDE2_LONG_HASREFERENCE)||new_error){ +if(qbevent){evnt(26070,1090,"ide_methods.bas");if(r)goto S_37562;} +do{ +*_FUNC_IDE2_LONG_HASREFERENCE=*_FUNC_IDE2_LONG_HASREFERENCE+ 8 ; +if(!qbevent)break;evnt(26070,1091,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(qbs_left(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_HASREFERENCE),func_chr( 2 )),func_mid(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_HASREFERENCE+ 1 ,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1092,"ide_methods.bas");}while(r); +} +} +do{ +SUB_PRINTWRAPSTATUS(&(pass4085=*_FUNC_IDE2_LONG_X),&(pass4086=*_FUNC_IDE2_LONG_Y),&(pass4087=*_FUNC_IDE2_LONG_X),_FUNC_IDE2_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1096,"ide_methods.bas");}while(r); +S_37568:; +if (((-(*_FUNC_IDE2_LONG_L!= 0 ))&(-(*__LONG_IDECY!=*_FUNC_IDE2_LONG_L)))||new_error){ +if(qbevent){evnt(26070,1098,"ide_methods.bas");if(r)goto S_37568;} +do{ +qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(qbs_new_txt_len(" on line",8),qbs_str((int32)(*_FUNC_IDE2_LONG_L))),qbs_new_txt_len(" (click here or Ctrl+Shift+G to jump there)",43))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1099,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 11 , 1 ,NULL,3); +if(!qbevent)break;evnt(26070,1100,"ide_methods.bas");}while(r); +do{ +SUB_PRINTWRAPSTATUS(&(pass4088=func_pos( 0 )),&(pass4089=func_csrlin()),&(pass4090= 2 ),_FUNC_IDE2_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1101,"ide_methods.bas");}while(r); +do{ +*__INTEGER_STATUSAREALINK= 2 ; +if(!qbevent)break;evnt(26070,1102,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDE2_LONG_Y=func_csrlin(); +if(!qbevent)break;evnt(26070,1105,"ide_methods.bas");}while(r); +S_37575:; +if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_IDE2_LONG_Y<(*__LONG_IDEWY- 1 )))&(qbs_notequal(__STRING_LINEFRAGMENT,qbs_new_txt_len("[INFORMATION UNAVAILABLE]",25)))))||new_error){ +if(qbevent){evnt(26070,1106,"ide_methods.bas");if(r)goto S_37575;} +do{ +qbs_set(_FUNC_IDE2_STRING_TEMP,__STRING_LINEFRAGMENT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1107,"ide_methods.bas");}while(r); +S_37577:; +fornext_value4092= 1 ; +fornext_finalvalue4092=_FUNC_IDE2_STRING_TEMP->len; +fornext_step4092= 1 ; +if (fornext_step4092<0) fornext_step_negative4092=1; else fornext_step_negative4092=0; +if (new_error) goto fornext_error4092; +goto fornext_entrylabel4092; +while(1){ +fornext_value4092=fornext_step4092+(*_FUNC_IDE2_LONG_I); +fornext_entrylabel4092: +*_FUNC_IDE2_LONG_I=fornext_value4092; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative4092){ +if (fornext_value4092fornext_finalvalue4092) break; +} +fornext_error4092:; +if(qbevent){evnt(26070,1108,"ide_methods.bas");if(r)goto S_37577;} +S_37578:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_IDE2_STRING_TEMP,*_FUNC_IDE2_LONG_I, 1 ,0|1),__STRING1_SP)))||new_error){ +if(qbevent){evnt(26070,1109,"ide_methods.bas");if(r)goto S_37578;} +do{ +sub_mid(_FUNC_IDE2_STRING_TEMP,*_FUNC_IDE2_LONG_I, 1 ,qbs_new_txt_len(" ",1),1); +if(!qbevent)break;evnt(26070,1109,"ide_methods.bas");}while(r); +} +fornext_continue_4091:; +} +fornext_exit_4091:; +do{ +qbs_set(_FUNC_IDE2_STRING_TEMP,qbs__trim(_FUNC_IDE2_STRING_TEMP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1111,"ide_methods.bas");}while(r); +S_37583:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_TEMP->len))||new_error){ +if(qbevent){evnt(26070,1112,"ide_methods.bas");if(r)goto S_37583;} +do{ +*_FUNC_IDE2_LONG_Y=*_FUNC_IDE2_LONG_Y+ 1 ; +if(!qbevent)break;evnt(26070,1113,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_X= 1 ; +if(!qbevent)break;evnt(26070,1113,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_TEMP,qbs_add(qbs_add(qbs_new_txt_len("Caused by (or after): ",22),func_chr( 1 )),_FUNC_IDE2_STRING_TEMP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1114,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 7 , 1 ,NULL,3); +if(!qbevent)break;evnt(26070,1116,"ide_methods.bas");}while(r); +S_37588:; +fornext_value4096= 1 ; +fornext_finalvalue4096=_FUNC_IDE2_STRING_TEMP->len; +fornext_step4096= 1 ; +if (fornext_step4096<0) fornext_step_negative4096=1; else fornext_step_negative4096=0; +if (new_error) goto fornext_error4096; +goto fornext_entrylabel4096; +while(1){ +fornext_value4096=fornext_step4096+(*_FUNC_IDE2_LONG_I); +fornext_entrylabel4096: +*_FUNC_IDE2_LONG_I=fornext_value4096; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative4096){ +if (fornext_value4096fornext_finalvalue4096) break; +} +fornext_error4096:; +if(qbevent){evnt(26070,1117,"ide_methods.bas");if(r)goto S_37588;} +do{ +*_FUNC_IDE2_LONG_X=*_FUNC_IDE2_LONG_X+ 1 ; +if(!qbevent)break;evnt(26070,1118,"ide_methods.bas");}while(r); +S_37590:; +if ((-(*_FUNC_IDE2_LONG_X==*__LONG_IDEWX))||new_error){ +if(qbevent){evnt(26070,1118,"ide_methods.bas");if(r)goto S_37590;} +do{ +*_FUNC_IDE2_LONG_X= 2 ; +if(!qbevent)break;evnt(26070,1118,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_Y=*_FUNC_IDE2_LONG_Y+ 1 ; +if(!qbevent)break;evnt(26070,1118,"ide_methods.bas");}while(r); +} +S_37594:; +if ((-(*_FUNC_IDE2_LONG_Y>(*__LONG_IDEWY- 1 )))||new_error){ +if(qbevent){evnt(26070,1119,"ide_methods.bas");if(r)goto S_37594;} +do{ +goto fornext_exit_4095; +if(!qbevent)break;evnt(26070,1119,"ide_methods.bas");}while(r); +} +S_37597:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_IDE2_STRING_TEMP,*_FUNC_IDE2_LONG_I)== 1 )))||new_error){ +if(qbevent){evnt(26070,1120,"ide_methods.bas");if(r)goto S_37597;} +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,1120,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 11 , 1 ,NULL,3); +if(!qbevent)break;evnt(26070,1120,"ide_methods.bas");}while(r); +} +do{ +sub__printstring(*_FUNC_IDE2_LONG_X,*_FUNC_IDE2_LONG_Y,func_chr(qbs_asc(_FUNC_IDE2_STRING_TEMP,*_FUNC_IDE2_LONG_I)),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1121,"ide_methods.bas");}while(r); +fornext_continue_4095:; +} +fornext_exit_4095:; +} +} +} +} +} +S_37608:; +if ((*__INTEGER_IDECHANGEMADE)||new_error){ +if(qbevent){evnt(26070,1130,"ide_methods.bas");if(r)goto S_37608;} +S_37609:; +if ((*__BYTE_IDESHOWERRORSIMMEDIATELY|*_FUNC_IDE2_BYTE_IDECOMPILATIONREQUESTED)||new_error){ +if(qbevent){evnt(26070,1131,"ide_methods.bas");if(r)goto S_37609;} +do{ +SUB_CLEARSTATUSWINDOW(&(pass4098= 0 )); +if(!qbevent)break;evnt(26070,1132,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_IDEINFO,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1133,"ide_methods.bas");}while(r); +do{ +sub__printstring( 2 ,*__LONG_IDEWY- 3 ,func_string( 3 , 250 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1134,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check(( 1 )-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_FILEMENUEXPORTAS)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(qbs_new_txt_len("~#Export As... ",16),func_chr( 16 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1135,"ide_methods.bas");}while(r); +} +} +do{ +SUB_IDESHOWTEXT(); +if(!qbevent)break;evnt(26070,1139,"ide_methods.bas");}while(r); +S_37617:; +if ((*__LONG_IDEHELP)||new_error){ +if(qbevent){evnt(26070,1141,"ide_methods.bas");if(r)goto S_37617;} +do{ +SUB_HELP_SHOWTEXT(); +if(!qbevent)break;evnt(26070,1146,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_Q=FUNC_IDEHBAR(&(pass4099= 2 ),&(pass4100=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 1 ),&(pass4101=*__LONG_IDEWX- 2 ),__LONG_HELP_CX,&(pass4102=*__LONG_HELP_W+ 1 )); +if(!qbevent)break;evnt(26070,1148,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_Q=FUNC_IDEVBAR(__LONG_IDEWX,&(pass4103=*__LONG_IDEWY+ 1 ),&(pass4104=*__LONG_IDESUBWINDOW- 2 ),__LONG_HELP_CY,&(pass4105=*__LONG_HELP_H+ 1 )); +if(!qbevent)break;evnt(26070,1149,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=21; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_HELPAREASHOWBACKLINKS; +RETURN_21:; +if(!qbevent)break;evnt(26070,1153,"ide_methods.bas");}while(r); +S_37622:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_IDESYSTEM== 3 ))&(qbs_notequal(qbs_left(__STRING_IDEINFO, 1 ),func_chr( 0 )))))||new_error){ +if(qbevent){evnt(26070,1156,"ide_methods.bas");if(r)goto S_37622;} +do{ +qbs_set(_FUNC_IDE2_STRING_A,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1157,"ide_methods.bas");}while(r); +S_37624:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_HELP_SEARCH_STR->len))||new_error){ +if(qbevent){evnt(26070,1158,"ide_methods.bas");if(r)goto S_37624;} +do{ +qbs_set(_FUNC_IDE2_STRING_A,__STRING_HELP_SEARCH_STR); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1159,"ide_methods.bas");}while(r); +S_37626:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDE2_STRING_A->len> 20 )))||new_error){ +if(qbevent){evnt(26070,1160,"ide_methods.bas");if(r)goto S_37626;} +do{ +qbs_set(_FUNC_IDE2_STRING_A,qbs_add(func_string( 3 , 250 ),qbs_right(_FUNC_IDE2_STRING_A, 17 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1160,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(qbs_new_txt_len("[",1),_FUNC_IDE2_STRING_A),qbs_new_txt_len("] (TAB=next)",12))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1161,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_IDEINFO,_FUNC_IDE2_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1162,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(__STRING_IDEINFO,qbs_new_txt_len("Start typing to search for text in this help page",49)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1164,"ide_methods.bas");}while(r); +} +do{ +SUB_UPDATEIDEINFO(); +if(!qbevent)break;evnt(26070,1166,"ide_methods.bas");}while(r); +} +}else{ +do{ +qbs_set(__STRING_HELP_SEARCH_STR,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1169,"ide_methods.bas");}while(r); +} +S_37639:; +if ((-(*__LONG_IDESYSTEM== 2 ))||new_error){ +if(qbevent){evnt(26070,1172,"ide_methods.bas");if(r)goto S_37639;} +do{ +qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,1173,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_TX=*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1; +if(!qbevent)break;evnt(26070,1174,"ide_methods.bas");}while(r); +S_37642:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_IDEFINDTEXT->len> 20 )))||new_error){ +if(qbevent){evnt(26070,1175,"ide_methods.bas");if(r)goto S_37642;} +S_37643:; +if ((-(*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1> 20 ))||new_error){ +if(qbevent){evnt(26070,1176,"ide_methods.bas");if(r)goto S_37643;} +do{ +*_FUNC_IDE2_LONG_TX= 20 ; +if(!qbevent)break;evnt(26070,1177,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_IDE2_LONG_TX=*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1; +if(!qbevent)break;evnt(26070,1179,"ide_methods.bas");}while(r); +} +} +do{ +qbg_sub_locate(*__LONG_IDEWY- 4 ,*__LONG_IDEWX-( 20 + 8 )+ 4 +*_FUNC_IDE2_LONG_TX,NULL,NULL,NULL,3); +if(!qbevent)break;evnt(26070,1182,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,1183,"ide_methods.bas");}while(r); +} +S_37652:; +if ((-(*__LONG_IDESYSTEM== 3 ))||new_error){ +if(qbevent){evnt(26070,1186,"ide_methods.bas");if(r)goto S_37652;} +do{ +qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,1187,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(*__LONG_HELP_CY-*__LONG_HELP_SY+*__LONG_HELP_WY1,*__LONG_HELP_CX-*__LONG_HELP_SX+*__LONG_HELP_WX1,NULL,NULL,NULL,3); +if(!qbevent)break;evnt(26070,1188,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,1189,"ide_methods.bas");}while(r); +} +do{ +qbg_sub_locate(NULL,NULL, 1 ,NULL,NULL,4); +if(!qbevent)break;evnt(26070,1192,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,1195,"ide_methods.bas");}while(r); +} +S_37660:; +if ((-(*__BYTE_WHITELISTQB64FIRSTTIMEMSG== 0 ))||new_error){ +if(qbevent){evnt(26070,1199,"ide_methods.bas");if(r)goto S_37660;} +S_37661:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)))||new_error){ +if(qbevent){evnt(26070,1200,"ide_methods.bas");if(r)goto S_37661;} +do{ +qbs_set(_FUNC_IDE2_STRING_WHITELISTPROCESS,qbs_new_txt_len("and the process 'qb64pe.exe' ",29)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1200,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDE2_STRING_WHITELISTPROCESS,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1200,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDE2_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Welcome to QB64-PE",18),qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("QB64-PE is an independently distributed program, and as such",60),func_chr( 10 )),qbs_new_txt_len("both 'qb64pe",12)),__STRING_EXTENSION),qbs_new_txt_len("' and the programs you create with it may",41)),func_chr( 10 )),qbs_new_txt_len("eventually be flagged as false positives by your",48)),func_chr( 10 )),qbs_new_txt_len("antivirus/antimalware software.",31)),func_chr( 10 )),func_chr( 10 )),qbs_new_txt_len("It is advisable to whitelist your whole 'qb64pe' folder",55)),func_chr( 10 )),_FUNC_IDE2_STRING_WHITELISTPROCESS),qbs_new_txt_len("to avoid operation errors.",26)),qbs_new_txt_len("#OK;#Don't show this again",26)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1206,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,1208,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,1208,"ide_methods.bas");}while(r); +S_37669:; +if ((-(*_FUNC_IDE2_LONG_RESULT== 2 ))||new_error){ +if(qbevent){evnt(26070,1209,"ide_methods.bas");if(r)goto S_37669;} +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("WhiteListQB64FirstTimeMsg",25),qbs_new_txt_len("True",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1210,"ide_methods.bas");}while(r); +} +do{ +*__BYTE_WHITELISTQB64FIRSTTIMEMSG= -1 ; +if(!qbevent)break;evnt(26070,1212,"ide_methods.bas");}while(r); +} +S_37674:; +if ((*__INTEGER_IDECHANGEMADE)||new_error){ +if(qbevent){evnt(26070,1215,"ide_methods.bas");if(r)goto S_37674;} +S_37675:; +if ((*__LONG_IDELAYOUTALLOW)||new_error){ +if(qbevent){evnt(26070,1217,"ide_methods.bas");if(r)goto S_37675;} +do{ +*__LONG_IDELAYOUTALLOW=*__LONG_IDELAYOUTALLOW- 1 ; +if(!qbevent)break;evnt(26070,1217,"ide_methods.bas");}while(r); +} +do{ +qbs_set(__STRING_WATCHPOINTLIST,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1219,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECURRENTLINELAYOUTI= 0 ; +if(!qbevent)break;evnt(26070,1220,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEFOCUSLINE= 0 ; +if(!qbevent)break;evnt(26070,1221,"ide_methods.bas");}while(r); +do{ +*__INTEGER_IDECHANGEMADE= 0 ; +if(!qbevent)break;evnt(26070,1222,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_BYTE_IDECOMPILATIONREQUESTED= 0 ; +if(!qbevent)break;evnt(26070,1223,"ide_methods.bas");}while(r); +do{ +*__LONG_COMPFAILED= 0 ; +if(!qbevent)break;evnt(26070,1224,"ide_methods.bas");}while(r); +S_37684:; +if ((-(*__LONG_IDEUNSAVED== -1 ))||new_error){ +if(qbevent){evnt(26070,1225,"ide_methods.bas");if(r)goto S_37684;} +do{ +*__LONG_IDEUNSAVED= 0 ; +if(!qbevent)break;evnt(26070,1225,"ide_methods.bas");}while(r); +}else{ +do{ +*__LONG_IDEUNSAVED= 1 ; +if(!qbevent)break;evnt(26070,1225,"ide_methods.bas");}while(r); +} +S_37689:; +if ((-(*__LONG_IDENOUNDO== 0 ))||new_error){ +if(qbevent){evnt(26070,1227,"ide_methods.bas");if(r)goto S_37689;} +do{ +qbs_set(_FUNC_IDE2_STRING_A,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1231,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(_FUNC_IDE2_STRING_A,l2string(*__LONG_IDESX)),l2string(*__LONG_IDESY))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1232,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(_FUNC_IDE2_STRING_A,l2string(*__LONG_IDECX)),l2string(*__LONG_IDECY))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1233,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(qbs_add(_FUNC_IDE2_STRING_A,l2string(*__LONG_IDESELECT)),l2string(*__LONG_IDESELECTX1)),l2string(*__LONG_IDESELECTY1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1234,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_A,qbs_add(_FUNC_IDE2_STRING_A,l2string(*__LONG_IDEN))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1235,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_A,qbs_add(_FUNC_IDE2_STRING_A,l2string(*__LONG_IDEL))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1236,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_A,qbs_add(_FUNC_IDE2_STRING_A,l2string(*__LONG_IDELI))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1237,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_A,qbs_add(_FUNC_IDE2_STRING_A,l2string(*__LONG_IDEBMKN))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1239,"ide_methods.bas");}while(r); +S_37698:; +fornext_value4110= 1 ; +fornext_finalvalue4110=*__LONG_IDEBMKN; +fornext_step4110= 1 ; +if (fornext_step4110<0) fornext_step_negative4110=1; else fornext_step_negative4110=0; +if (new_error) goto fornext_error4110; +goto fornext_entrylabel4110; +while(1){ +fornext_value4110=fornext_step4110+(*_FUNC_IDE2_LONG_BI); +fornext_entrylabel4110: +*_FUNC_IDE2_LONG_BI=fornext_value4110; +if (fornext_step_negative4110){ +if (fornext_value4110fornext_finalvalue4110) break; +} +fornext_error4110:; +if(qbevent){evnt(26070,1240,"ide_methods.bas");if(r)goto S_37698;} +do{ +qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(_FUNC_IDE2_STRING_A,l2string(*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_FUNC_IDE2_LONG_BI)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16)))),l2string(*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_FUNC_IDE2_LONG_BI)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16+4))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1240,"ide_methods.bas");}while(r); +fornext_continue_4109:; +} +fornext_exit_4109:; +do{ +*_FUNC_IDE2_LONG_L=__STRING_IDET->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1241,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_A,qbs_add(_FUNC_IDE2_STRING_A,l2string(*_FUNC_IDE2_LONG_L))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1242,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(qbs_add(l2string(*_FUNC_IDE2_LONG_L+_FUNC_IDE2_STRING_A->len),_FUNC_IDE2_STRING_A),__STRING_IDET),l2string(*_FUNC_IDE2_LONG_L+_FUNC_IDE2_STRING_A->len))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1243,"ide_methods.bas");}while(r); +do{ +sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("undo2.bin",9)), 2 ,NULL,NULL, 150 ,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1247,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_H,func_space( 12 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1249,"ide_methods.bas");}while(r); +do{ +sub_get2( 150 ,NULL,_FUNC_IDE2_STRING_H,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1249,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_P1=string2l(func_mid(_FUNC_IDE2_STRING_H, 1 , 4 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1249,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_P2=string2l(func_mid(_FUNC_IDE2_STRING_H, 5 , 4 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1249,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_PLAST=string2l(func_mid(_FUNC_IDE2_STRING_H, 9 , 4 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1249,"ide_methods.bas");}while(r); +S_37710:; +if ((*__LONG_IDEMERGEUNDO)||new_error){ +if(qbevent){evnt(26070,1251,"ide_methods.bas");if(r)goto S_37710;} +do{ +*__LONG_IDEMERGEUNDO= 0 ; +if(!qbevent)break;evnt(26070,1252,"ide_methods.bas");}while(r); +S_37712:; +if ((-(*_FUNC_IDE2_LONG_P2!=*_FUNC_IDE2_LONG_P1))||new_error){ +if(qbevent){evnt(26070,1253,"ide_methods.bas");if(r)goto S_37712;} +S_37713:; +if ((-(*_FUNC_IDE2_LONG_P2== 13 ))||new_error){ +if(qbevent){evnt(26070,1254,"ide_methods.bas");if(r)goto S_37713;} +do{ +*_FUNC_IDE2_LONG_P2=*_FUNC_IDE2_LONG_PLAST; +if(!qbevent)break;evnt(26070,1255,"ide_methods.bas");}while(r); +}else{ +do{ +sub_get( 150 ,*_FUNC_IDE2_LONG_P2- 4 ,byte_element((uint64)_FUNC_IDE2_LONG_PP2L,4,byte_element_4114),1); +if(!qbevent)break;evnt(26070,1258,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_P2=*_FUNC_IDE2_LONG_P2- 4 -*_FUNC_IDE2_LONG_PP2L- 4 ; +if(!qbevent)break;evnt(26070,1259,"ide_methods.bas");}while(r); +} +} +} +S_37721:; +if ((-(*_FUNC_IDE2_LONG_P1== 0 ))||new_error){ +if(qbevent){evnt(26070,1264,"ide_methods.bas");if(r)goto S_37721;} +do{ +*_FUNC_IDE2_LONG_P1= 13 ; +if(!qbevent)break;evnt(26070,1265,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_P2= 13 ; +if(!qbevent)break;evnt(26070,1265,"ide_methods.bas");}while(r); +}else{ +S_37725:; +if ((-(*_FUNC_IDE2_LONG_P2>=*_FUNC_IDE2_LONG_P1))||new_error){ +if(qbevent){evnt(26070,1267,"ide_methods.bas");if(r)goto S_37725;} +S_37726:; +if ((-(*_FUNC_IDE2_LONG_P2>=(*__LONG_IDEBACKUPSIZE* 1000000 )))||new_error){ +if(qbevent){evnt(26070,1270,"ide_methods.bas");if(r)goto S_37726;} +do{ +*_FUNC_IDE2_LONG_PLAST=*_FUNC_IDE2_LONG_P2; +if(!qbevent)break;evnt(26070,1273,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_P2= 13 ; +if(!qbevent)break;evnt(26070,1274,"ide_methods.bas");}while(r); +S_37729:; +while((qbs_cleanup(qbs_tmp_base,-((*_FUNC_IDE2_LONG_P2+_FUNC_IDE2_STRING_A->len- 1 )>=*_FUNC_IDE2_LONG_P1)))||new_error){ +if(qbevent){evnt(26070,1276,"ide_methods.bas");if(r)goto S_37729;} +S_37730:; +if ((-(*_FUNC_IDE2_LONG_P1==*__LONG_IDEUNDOBASE))||new_error){ +if(qbevent){evnt(26070,1277,"ide_methods.bas");if(r)goto S_37730;} +do{ +*__LONG_IDEUNDOBASE= -1 ; +if(!qbevent)break;evnt(26070,1277,"ide_methods.bas");}while(r); +} +do{ +sub_get( 150 ,*_FUNC_IDE2_LONG_P1,byte_element((uint64)_FUNC_IDE2_LONG_P1L,4,byte_element_4117),1); +if(!qbevent)break;evnt(26070,1280,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_P1=*_FUNC_IDE2_LONG_P1+ 4 +*_FUNC_IDE2_LONG_P1L+ 4 ; +if(!qbevent)break;evnt(26070,1281,"ide_methods.bas");}while(r); +dl_continue_4116:; +} +dl_exit_4116:; +}else{ +do{ +sub_get( 150 ,*_FUNC_IDE2_LONG_P2,byte_element((uint64)_FUNC_IDE2_LONG_P2L,4,byte_element_4118),1); +if(!qbevent)break;evnt(26070,1287,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_P2=*_FUNC_IDE2_LONG_P2+ 4 +*_FUNC_IDE2_LONG_P2L+ 4 ; +if(!qbevent)break;evnt(26070,1288,"ide_methods.bas");}while(r); +} +}else{ +do{ +sub_get( 150 ,*_FUNC_IDE2_LONG_P2,byte_element((uint64)_FUNC_IDE2_LONG_P2L,4,byte_element_4119),1); +if(!qbevent)break;evnt(26070,1294,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_OP2=*_FUNC_IDE2_LONG_P2; +if(!qbevent)break;evnt(26070,1295,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_P2=*_FUNC_IDE2_LONG_P2+ 4 +*_FUNC_IDE2_LONG_P2L+ 4 ; +if(!qbevent)break;evnt(26070,1296,"ide_methods.bas");}while(r); +S_37744:; +while((qbs_cleanup(qbs_tmp_base,-((*_FUNC_IDE2_LONG_P2+_FUNC_IDE2_STRING_A->len- 1 )>=*_FUNC_IDE2_LONG_P1)))||new_error){ +if(qbevent){evnt(26070,1298,"ide_methods.bas");if(r)goto S_37744;} +S_37745:; +if ((-(*_FUNC_IDE2_LONG_P1==*__LONG_IDEUNDOBASE))||new_error){ +if(qbevent){evnt(26070,1299,"ide_methods.bas");if(r)goto S_37745;} +do{ +*__LONG_IDEUNDOBASE= -1 ; +if(!qbevent)break;evnt(26070,1299,"ide_methods.bas");}while(r); +} +S_37748:; +if ((-(*_FUNC_IDE2_LONG_P1==*_FUNC_IDE2_LONG_PLAST))||new_error){ +if(qbevent){evnt(26070,1301,"ide_methods.bas");if(r)goto S_37748;} +do{ +*_FUNC_IDE2_LONG_P1= 13 ; +if(!qbevent)break;evnt(26070,1302,"ide_methods.bas");}while(r); +do{ +goto dl_exit_4121; +if(!qbevent)break;evnt(26070,1303,"ide_methods.bas");}while(r); +}else{ +do{ +sub_get( 150 ,*_FUNC_IDE2_LONG_P1,byte_element((uint64)_FUNC_IDE2_LONG_P1L,4,byte_element_4122),1); +if(!qbevent)break;evnt(26070,1305,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_P1=*_FUNC_IDE2_LONG_P1+ 4 +*_FUNC_IDE2_LONG_P1L+ 4 ; +if(!qbevent)break;evnt(26070,1306,"ide_methods.bas");}while(r); +} +dl_continue_4121:; +} +dl_exit_4121:; +S_37756:; +if ((-(*_FUNC_IDE2_LONG_P2>=(*__LONG_IDEBACKUPSIZE* 1000000 )))||new_error){ +if(qbevent){evnt(26070,1310,"ide_methods.bas");if(r)goto S_37756;} +do{ +*_FUNC_IDE2_LONG_PLAST=*_FUNC_IDE2_LONG_OP2; +if(!qbevent)break;evnt(26070,1313,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_P2= 13 ; +if(!qbevent)break;evnt(26070,1314,"ide_methods.bas");}while(r); +S_37759:; +while((qbs_cleanup(qbs_tmp_base,-((*_FUNC_IDE2_LONG_P2+_FUNC_IDE2_STRING_A->len- 1 )>=*_FUNC_IDE2_LONG_P1)))||new_error){ +if(qbevent){evnt(26070,1316,"ide_methods.bas");if(r)goto S_37759;} +S_37760:; +if ((-(*_FUNC_IDE2_LONG_P1==*__LONG_IDEUNDOBASE))||new_error){ +if(qbevent){evnt(26070,1317,"ide_methods.bas");if(r)goto S_37760;} +do{ +*__LONG_IDEUNDOBASE= -1 ; +if(!qbevent)break;evnt(26070,1317,"ide_methods.bas");}while(r); +} +do{ +sub_get( 150 ,*_FUNC_IDE2_LONG_P1,byte_element((uint64)_FUNC_IDE2_LONG_P1L,4,byte_element_4125),1); +if(!qbevent)break;evnt(26070,1320,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_P1=*_FUNC_IDE2_LONG_P1+ 4 +*_FUNC_IDE2_LONG_P1L+ 4 ; +if(!qbevent)break;evnt(26070,1321,"ide_methods.bas");}while(r); +dl_continue_4124:; +} +dl_exit_4124:; +} +} +} +do{ +qbs_set(_FUNC_IDE2_STRING_H,qbs_add(qbs_add(l2string(*_FUNC_IDE2_LONG_P1),l2string(*_FUNC_IDE2_LONG_P2)),l2string(*_FUNC_IDE2_LONG_PLAST))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1329,"ide_methods.bas");}while(r); +do{ +sub_put2( 150 , 1 ,byte_element((uint64)_FUNC_IDE2_STRING_H->chr,_FUNC_IDE2_STRING_H->len,byte_element_4126),1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1330,"ide_methods.bas");}while(r); +do{ +sub_put2( 150 ,*_FUNC_IDE2_LONG_P2,byte_element((uint64)_FUNC_IDE2_STRING_A->chr,_FUNC_IDE2_STRING_A->len,byte_element_4127),1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1333,"ide_methods.bas");}while(r); +do{ +sub_close( 150 ,1); +if(!qbevent)break;evnt(26070,1335,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEUNDOPOS=*_FUNC_IDE2_LONG_P2; +if(!qbevent)break;evnt(26070,1337,"ide_methods.bas");}while(r); +S_37774:; +if ((-(*__LONG_IDEUNDOBASE== 0 ))||new_error){ +if(qbevent){evnt(26070,1338,"ide_methods.bas");if(r)goto S_37774;} +do{ +*__LONG_IDEUNDOBASE=*__LONG_IDEUNDOPOS; +if(!qbevent)break;evnt(26070,1338,"ide_methods.bas");}while(r); +} +S_37777:; +if ((-(*__LONG_IDEUNDOFLAG== 0 ))||new_error){ +if(qbevent){evnt(26070,1343,"ide_methods.bas");if(r)goto S_37777;} +do{ +*__LONG_IDEUNDOFLAG= 1 ; +if(!qbevent)break;evnt(26070,1344,"ide_methods.bas");}while(r); +do{ +sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("autosave.bin",12)), 2 ,NULL,NULL, 150 ,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1345,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_A,func_chr( 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1345,"ide_methods.bas");}while(r); +do{ +sub_put2( 150 ,NULL,byte_element((uint64)_FUNC_IDE2_STRING_A->chr,_FUNC_IDE2_STRING_A->len,byte_element_4128),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1345,"ide_methods.bas");}while(r); +do{ +sub_close( 150 ,1); +if(!qbevent)break;evnt(26070,1345,"ide_methods.bas");}while(r); +} +}else{ +do{ +*__LONG_IDENOUNDO= 0 ; +if(!qbevent)break;evnt(26070,1349,"ide_methods.bas");}while(r); +} +S_37787:; +if ((-(*__LONG_IDEBUILDMODECHANGED== 0 ))||new_error){ +if(qbevent){evnt(26070,1353,"ide_methods.bas");if(r)goto S_37787;} +do{ +*__LONG_IDEAUTORUN= 0 ; +if(!qbevent)break;evnt(26070,1354,"ide_methods.bas");}while(r); +} +do{ +*__LONG_IDEBUILDMODECHANGED= 0 ; +if(!qbevent)break;evnt(26070,1356,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECOMPILING= 1 ; +if(!qbevent)break;evnt(26070,1358,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_IDE2= 2 ; +if(!qbevent)break;evnt(26070,1359,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_IDECOMPILEDLINE,FUNC_IDEGETLINE(&(pass4129= 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1360,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_IDERETURN,__STRING_IDECOMPILEDLINE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1361,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECOMPILEDLINE= 1 ; +if(!qbevent)break;evnt(26070,1362,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,1363,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDE2_LONG_CHANGE= 0 ; +if(!qbevent)break;evnt(26070,1367,"ide_methods.bas");}while(r); +LABEL_WAITFORINPUT:; +if(qbevent){evnt(26070,1368,"ide_methods.bas");r=0;} +S_37799:; +if ((*__BYTE_STARTPAUSEDPENDING)||new_error){ +if(qbevent){evnt(26070,1369,"ide_methods.bas");if(r)goto S_37799;} +do{ +goto LABEL_IDEMRUN; +if(!qbevent)break;evnt(26070,1369,"ide_methods.bas");}while(r); +} +S_37802:; +if ((*__LONG_IDECURRENTLINELAYOUTI)||new_error){ +if(qbevent){evnt(26070,1370,"ide_methods.bas");if(r)goto S_37802;} +S_37803:; +if ((-(*__LONG_IDECY!=*__LONG_IDECURRENTLINELAYOUTI))||new_error){ +if(qbevent){evnt(26070,1371,"ide_methods.bas");if(r)goto S_37803;} +do{ +SUB_IDESETLINE(__LONG_IDECURRENTLINELAYOUTI,__STRING_IDECURRENTLINELAYOUT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1372,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECURRENTLINELAYOUTI= 0 ; +if(!qbevent)break;evnt(26070,1373,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,1374,"ide_methods.bas");}while(r); +} +} +do{ +*_FUNC_IDE2_LONG_EXITVALUE=func__exit(); +if(!qbevent)break;evnt(26070,1378,"ide_methods.bas");}while(r); +S_37810:; +if (((-((*_FUNC_IDE2_LONG_EXITVALUE& 1 )!= 0 ))|(-(*__LONG_IDEEXIT!= 0 )))||new_error){ +if(qbevent){evnt(26070,1379,"ide_methods.bas");if(r)goto S_37810;} +do{ +*__LONG_IDEEXIT= 0 ; +if(!qbevent)break;evnt(26070,1379,"ide_methods.bas");}while(r); +do{ +goto LABEL_QUICKEXIT; +if(!qbevent)break;evnt(26070,1379,"ide_methods.bas");}while(r); +} +do{ +SUB_GETINPUT(); +if(!qbevent)break;evnt(26070,1381,"ide_methods.bas");}while(r); +S_37815:; +if ((*__LONG_ICHANGED)||new_error){ +if(qbevent){evnt(26070,1382,"ide_methods.bas");if(r)goto S_37815;} +do{ +if(!qbevent)break;evnt(26070,1383,"ide_methods.bas");}while(r); +S_37817:; +if (((((-(*__LONG_MX!=*_FUNC_IDE2_LONG_MOX))|(-(*__LONG_MY!=*_FUNC_IDE2_LONG_MOY))))&(-(*__LONG_MB!= 0 )))||new_error){ +if(qbevent){evnt(26070,1384,"ide_methods.bas");if(r)goto S_37817;} +do{ +*_FUNC_IDE2_LONG_MOX=*__LONG_MX; +if(!qbevent)break;evnt(26070,1385,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_MOY=*__LONG_MY; +if(!qbevent)break;evnt(26070,1386,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,1387,"ide_methods.bas");}while(r); +} +S_37822:; +if ((-(*__LONG_MB!=*__LONG_MOB))||new_error){ +if(qbevent){evnt(26070,1389,"ide_methods.bas");if(r)goto S_37822;} +do{ +*_FUNC_IDE2_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,1389,"ide_methods.bas");}while(r); +} +S_37825:; +if ((-(*__LONG_MB2!=*__LONG_MOB2))||new_error){ +if(qbevent){evnt(26070,1390,"ide_methods.bas");if(r)goto S_37825;} +do{ +*_FUNC_IDE2_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,1390,"ide_methods.bas");}while(r); +} +S_37828:; +if (((-(*__LONG_MCLICK!= 0 ))|(-(*__LONG_MCLICK2!= 0 )))||new_error){ +if(qbevent){evnt(26070,1391,"ide_methods.bas");if(r)goto S_37828;} +do{ +*_FUNC_IDE2_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,1391,"ide_methods.bas");}while(r); +} +S_37831:; +if ((*__LONG_MWHEEL)||new_error){ +if(qbevent){evnt(26070,1392,"ide_methods.bas");if(r)goto S_37831;} +do{ +*_FUNC_IDE2_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,1392,"ide_methods.bas");}while(r); +} +S_37834:; +if ((*__LONG_KB)||new_error){ +if(qbevent){evnt(26070,1393,"ide_methods.bas");if(r)goto S_37834;} +do{ +*_FUNC_IDE2_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,1393,"ide_methods.bas");}while(r); +} +S_37837:; +if ((*__LONG_KSTATECHANGED)||new_error){ +if(qbevent){evnt(26070,1394,"ide_methods.bas");if(r)goto S_37837;} +do{ +*_FUNC_IDE2_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,1394,"ide_methods.bas");}while(r); +} +} +S_37841:; +if (((-(*__LONG_MB!= 0 ))&(-(*__LONG_IDEMBMONITOR== 1 )))||new_error){ +if(qbevent){evnt(26070,1396,"ide_methods.bas");if(r)goto S_37841;} +do{ +*_FUNC_IDE2_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,1396,"ide_methods.bas");}while(r); +} +S_37844:; +if ((-(*__LONG_MB== 0 ))||new_error){ +if(qbevent){evnt(26070,1397,"ide_methods.bas");if(r)goto S_37844;} +do{ +*__LONG_IDEMOUSESELECT= 0 ; +if(!qbevent)break;evnt(26070,1397,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEMBMONITOR= 0 ; +if(!qbevent)break;evnt(26070,1397,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_BYTE_WHOLEWORD__ASCII_CHR_046__SELECT= 0 ; +if(!qbevent)break;evnt(26070,1397,"ide_methods.bas");}while(r); +} +S_37849:; +if ((func__resize())||new_error){ +if(qbevent){evnt(26070,1399,"ide_methods.bas");if(r)goto S_37849;} +do{ +*_FUNC_IDE2_LONG_FORCERESIZE= -1 ; +if(!qbevent)break;evnt(26070,1400,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_SKIPDISPLAY= 0 ; +if(!qbevent)break;evnt(26070,1400,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,1400,"ide_methods.bas");}while(r); +} +S_37854:; +if ((*__BYTE_IDE_AUTOPOSITION)||new_error){ +if(qbevent){evnt(26070,1403,"ide_methods.bas");if(r)goto S_37854;} +S_37855:; +if (((-(*__INTEGER_IDE_TOPPOSITION!=func__screeny()))|(-(*__INTEGER_IDE_LEFTPOSITION!=func__screenx())))||new_error){ +if(qbevent){evnt(26070,1404,"ide_methods.bas");if(r)goto S_37855;} +S_37856:; +if (((-((func__screeny())>=((-(func__height(NULL,0)))*(func__fontheight(NULL,0)))))&(-((func__screenx())>=((-(func__width(NULL,0)))*(func__fontwidth(NULL,0))))))||new_error){ +if(qbevent){evnt(26070,1405,"ide_methods.bas");if(r)goto S_37856;} +do{ +SUB_WRITECONFIGSETTING(__STRING_WINDOWSETTINGSSECTION,qbs_new_txt_len("IDE_TopPosition",15),qbs_str((int32)(func__screeny()))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1406,"ide_methods.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_WINDOWSETTINGSSECTION,qbs_new_txt_len("IDE_LeftPosition",16),qbs_str((int32)(func__screenx()))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1407,"ide_methods.bas");}while(r); +do{ +*__INTEGER_IDE_TOPPOSITION=func__screeny(); +if(!qbevent)break;evnt(26070,1408,"ide_methods.bas");}while(r); +do{ +*__INTEGER_IDE_LEFTPOSITION=func__screenx(); +if(!qbevent)break;evnt(26070,1408,"ide_methods.bas");}while(r); +} +} +} +S_37864:; +if ((-(func__totaldroppedfiles()> 0 ))||new_error){ +if(qbevent){evnt(26070,1413,"ide_methods.bas");if(r)goto S_37864;} +S_37865:; +if ((qbs_cleanup(qbs_tmp_base,func__fileexists(func__droppedfile( 1 ,0|1))))||new_error){ +if(qbevent){evnt(26070,1414,"ide_methods.bas");if(r)goto S_37865;} +do{ +qbs_set(__STRING_IDEOPENFILE,func__droppedfile( 1 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1415,"ide_methods.bas");}while(r); +do{ +sub__finishdrop(); +if(!qbevent)break;evnt(26070,1416,"ide_methods.bas");}while(r); +do{ +goto LABEL_CTRLOPEN; +if(!qbevent)break;evnt(26070,1417,"ide_methods.bas");}while(r); +} +do{ +sub__finishdrop(); +if(!qbevent)break;evnt(26070,1419,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDE2_LONG_UPDATEHOVER= 0 ; +if(!qbevent)break;evnt(26070,1423,"ide_methods.bas");}while(r); +S_37873:; +if ((-(*__LONG_QUICKNAVTOTAL> 0 ))||new_error){ +if(qbevent){evnt(26070,1424,"ide_methods.bas");if(r)goto S_37873;} +S_37874:; +while((!(-(*(int32*)(((char*)__ARRAY_UDT_QUICKNAVHISTORY[0])+((array_check((*__LONG_QUICKNAVTOTAL)-__ARRAY_UDT_QUICKNAVHISTORY[4],__ARRAY_UDT_QUICKNAVHISTORY[5]))*16+12))<=*__LONG_IDEN)))||new_error){ +if(qbevent){evnt(26070,1425,"ide_methods.bas");if(r)goto S_37874;} +do{ +*__LONG_QUICKNAVTOTAL=*__LONG_QUICKNAVTOTAL- 1 ; +if(!qbevent)break;evnt(26070,1427,"ide_methods.bas");}while(r); +S_37876:; +if ((-(*__LONG_QUICKNAVTOTAL== 0 ))||new_error){ +if(qbevent){evnt(26070,1428,"ide_methods.bas");if(r)goto S_37876;} +do{ +goto dl_exit_4130; +if(!qbevent)break;evnt(26070,1428,"ide_methods.bas");}while(r); +} +dl_continue_4130:; +} +dl_exit_4130:; +} +S_37881:; +if (((-(*__LONG_IDESYSTEM== 1 ))&(-(*__LONG_QUICKNAVTOTAL> 0 ))&*__BYTE_ENABLEQUICKNAV)||new_error){ +if(qbevent){evnt(26070,1432,"ide_methods.bas");if(r)goto S_37881;} +S_37882:; +if ((-(*__LONG_MY== 2 ))||new_error){ +if(qbevent){evnt(26070,1433,"ide_methods.bas");if(r)goto S_37882;} +S_37883:; +if (((-(*__LONG_MX>= 4 ))&(-(*__LONG_MX<= 6 )))||new_error){ +if(qbevent){evnt(26070,1434,"ide_methods.bas");if(r)goto S_37883;} +S_37884:; +if ((-(*_FUNC_IDE2_BYTE_QUICKNAVHOVER== 0 ))||new_error){ +if(qbevent){evnt(26070,1435,"ide_methods.bas");if(r)goto S_37884;} +do{ +*_FUNC_IDE2_BYTE_QUICKNAVHOVER= -1 ; +if(!qbevent)break;evnt(26070,1436,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 15 , 3 ,NULL,3); +if(!qbevent)break;evnt(26070,1437,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_POPUP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len(" ",1),func_chr( 17 )),qbs_new_txt_len(" back to line ",14)),FUNC_STR2((int32*)(void*)( ((char*)(__ARRAY_UDT_QUICKNAVHISTORY[0])) + ((array_check((*__LONG_QUICKNAVTOTAL)-__ARRAY_UDT_QUICKNAVHISTORY[4],__ARRAY_UDT_QUICKNAVHISTORY[5]))*16+12) ))),qbs_new_txt_len(" ",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1438,"ide_methods.bas");}while(r); +do{ +sub__printstring( 4 , 2 ,_FUNC_IDE2_STRING_POPUP,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1439,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 2 , 0 ,NULL,3); +if(!qbevent)break;evnt(26070,1442,"ide_methods.bas");}while(r); +S_37890:; +fornext_value4132= 6 ; +fornext_finalvalue4132= 4 +_FUNC_IDE2_STRING_POPUP->len; +fornext_step4132= 1 ; +if (fornext_step4132<0) fornext_step_negative4132=1; else fornext_step_negative4132=0; +if (new_error) goto fornext_error4132; +goto fornext_entrylabel4132; +while(1){ +fornext_value4132=fornext_step4132+(*_FUNC_IDE2_LONG_X2); +fornext_entrylabel4132: +*_FUNC_IDE2_LONG_X2=fornext_value4132; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative4132){ +if (fornext_value4132fornext_finalvalue4132) break; +} +fornext_error4132:; +if(qbevent){evnt(26070,1443,"ide_methods.bas");if(r)goto S_37890;} +do{ +sub__printstring(*_FUNC_IDE2_LONG_X2, 3 ,func_chr(func_screen( 3 ,*_FUNC_IDE2_LONG_X2,NULL,0)),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1444,"ide_methods.bas");}while(r); +fornext_continue_4131:; +} +fornext_exit_4131:; +do{ +*_FUNC_IDE2_LONG_UPDATEHOVER= -1 ; +if(!qbevent)break;evnt(26070,1446,"ide_methods.bas");}while(r); +} +S_37895:; +if ((*__LONG_MCLICK)||new_error){ +if(qbevent){evnt(26070,1449,"ide_methods.bas");if(r)goto S_37895;} +do{ +*__LONG_IDESELECT= 0 ; +if(!qbevent)break;evnt(26070,1450,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECY=*(int32*)(((char*)__ARRAY_UDT_QUICKNAVHISTORY[0])+((array_check((*__LONG_QUICKNAVTOTAL)-__ARRAY_UDT_QUICKNAVHISTORY[4],__ARRAY_UDT_QUICKNAVHISTORY[5]))*16+12)); +if(!qbevent)break;evnt(26070,1451,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECX=*(int32*)(((char*)__ARRAY_UDT_QUICKNAVHISTORY[0])+((array_check((*__LONG_QUICKNAVTOTAL)-__ARRAY_UDT_QUICKNAVHISTORY[4],__ARRAY_UDT_QUICKNAVHISTORY[5]))*16+8)); +if(!qbevent)break;evnt(26070,1452,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESX=*(int32*)(((char*)__ARRAY_UDT_QUICKNAVHISTORY[0])+((array_check((*__LONG_QUICKNAVTOTAL)-__ARRAY_UDT_QUICKNAVHISTORY[4],__ARRAY_UDT_QUICKNAVHISTORY[5]))*16)); +if(!qbevent)break;evnt(26070,1453,"ide_methods.bas");}while(r); +do{ +SUB_IDECENTERCURRENTLINE(); +if(!qbevent)break;evnt(26070,1454,"ide_methods.bas");}while(r); +do{ +*__LONG_QUICKNAVTOTAL=*__LONG_QUICKNAVTOTAL- 1 ; +if(!qbevent)break;evnt(26070,1455,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,1456,"ide_methods.bas");}while(r); +} +}else{ +do{ +goto LABEL_RESTOREBGQUICKNAV; +if(!qbevent)break;evnt(26070,1459,"ide_methods.bas");}while(r); +} +}else{ +LABEL_RESTOREBGQUICKNAV:; +if(qbevent){evnt(26070,1462,"ide_methods.bas");r=0;} +S_37908:; +if ((-(*_FUNC_IDE2_BYTE_QUICKNAVHOVER== -1 ))||new_error){ +if(qbevent){evnt(26070,1463,"ide_methods.bas");if(r)goto S_37908;} +do{ +*_FUNC_IDE2_BYTE_QUICKNAVHOVER= 0 ; +if(!qbevent)break;evnt(26070,1464,"ide_methods.bas");}while(r); +do{ +SUB_UPDATETITLEOFMAINWINDOW(); +if(!qbevent)break;evnt(26070,1465,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=22; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_DRAWQUICKNAV; +RETURN_22:; +if(!qbevent)break;evnt(26070,1466,"ide_methods.bas");}while(r); +do{ +SUB_IDESHOWTEXT(); +if(!qbevent)break;evnt(26070,1467,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_UPDATEHOVER= -1 ; +if(!qbevent)break;evnt(26070,1468,"ide_methods.bas");}while(r); +} +} +} +S_37917:; +if (((-(*__LONG_MY==(*__LONG_IDEWY- 4 )))&(-(*__LONG_MX>(*__LONG_IDEWX-( 20 + 10 ))))&(-(*__LONG_MX<=(*__LONG_IDEWX-( 20 + 8 )+ 2 ))))||new_error){ +if(qbevent){evnt(26070,1473,"ide_methods.bas");if(r)goto S_37917;} +S_37918:; +if ((-(*_FUNC_IDE2_BYTE_FINDFIELDHOVER== 0 ))||new_error){ +if(qbevent){evnt(26070,1474,"ide_methods.bas");if(r)goto S_37918;} +do{ +qbg_sub_color( 1 , 3 ,NULL,3); +if(!qbevent)break;evnt(26070,1476,"ide_methods.bas");}while(r); +do{ +sub__printstring(*__LONG_IDEWX-( 20 + 9 ),*__LONG_IDEWY- 4 ,qbs_new_txt_len("Find",4),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1477,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_UPDATEHOVER= -1 ; +if(!qbevent)break;evnt(26070,1478,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_BYTE_FINDFIELDHOVER= -1 ; +if(!qbevent)break;evnt(26070,1479,"ide_methods.bas");}while(r); +} +}else{ +S_37925:; +if ((-(*_FUNC_IDE2_BYTE_FINDFIELDHOVER== -1 ))||new_error){ +if(qbevent){evnt(26070,1482,"ide_methods.bas");if(r)goto S_37925;} +do{ +*_FUNC_IDE2_BYTE_FINDFIELDHOVER= 0 ; +if(!qbevent)break;evnt(26070,1484,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 3 , 1 ,NULL,3); +if(!qbevent)break;evnt(26070,1485,"ide_methods.bas");}while(r); +do{ +sub__printstring(*__LONG_IDEWX-( 20 + 9 ),*__LONG_IDEWY- 4 ,qbs_new_txt_len("Find",4),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1486,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_UPDATEHOVER= -1 ; +if(!qbevent)break;evnt(26070,1487,"ide_methods.bas");}while(r); +} +} +S_37932:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_MY==(*__LONG_IDEWY+*__LONG_IDESUBWINDOW)))&(-(*__LONG_MX>=(*__LONG_IDEWX- 21 -__STRING_VERSIONSTRINGSTATUS->len)))&(-(*__LONG_MX<(*__LONG_IDEWX- 21 )))))||new_error){ +if(qbevent){evnt(26070,1491,"ide_methods.bas");if(r)goto S_37932;} +S_37933:; +if ((-(*_FUNC_IDE2_BYTE_VERSIONINFOHOVER== 0 ))||new_error){ +if(qbevent){evnt(26070,1493,"ide_methods.bas");if(r)goto S_37933;} +do{ +qbg_sub_color( 13 , 6 ,NULL,3); +if(!qbevent)break;evnt(26070,1494,"ide_methods.bas");}while(r); +do{ +sub__printstring(*__LONG_IDEWX- 21 -__STRING_VERSIONSTRINGSTATUS->len,*__LONG_IDEWY+*__LONG_IDESUBWINDOW,__STRING_VERSIONSTRINGSTATUS,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1495,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_UPDATEHOVER= -1 ; +if(!qbevent)break;evnt(26070,1496,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_BYTE_VERSIONINFOHOVER= -1 ; +if(!qbevent)break;evnt(26070,1497,"ide_methods.bas");}while(r); +} +S_37939:; +if ((*__LONG_MCLICK)||new_error){ +if(qbevent){evnt(26070,1499,"ide_methods.bas");if(r)goto S_37939;} +do{ +sub_pcopy( 0 , 2 ); +if(!qbevent)break;evnt(26070,1499,"ide_methods.bas");}while(r); +do{ +goto LABEL_HELPABOUT; +if(!qbevent)break;evnt(26070,1499,"ide_methods.bas");}while(r); +} +}else{ +S_37944:; +if ((-(*_FUNC_IDE2_BYTE_VERSIONINFOHOVER== -1 ))||new_error){ +if(qbevent){evnt(26070,1501,"ide_methods.bas");if(r)goto S_37944;} +do{ +*_FUNC_IDE2_BYTE_VERSIONINFOHOVER= 0 ; +if(!qbevent)break;evnt(26070,1503,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 2 , 3 ,NULL,3); +if(!qbevent)break;evnt(26070,1504,"ide_methods.bas");}while(r); +do{ +sub__printstring(*__LONG_IDEWX- 21 -__STRING_VERSIONSTRINGSTATUS->len,*__LONG_IDEWY+*__LONG_IDESUBWINDOW,__STRING_VERSIONSTRINGSTATUS,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1505,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_UPDATEHOVER= -1 ; +if(!qbevent)break;evnt(26070,1506,"ide_methods.bas");}while(r); +} +} +S_37951:; +if (((-(*__LONG_MY==(*__LONG_IDEWY+*__LONG_IDESUBWINDOW)))&(-(*__LONG_MX>=(*__LONG_IDEWX- 20 )))&(-(*__LONG_MX<=*__LONG_IDEWX)))||new_error){ +if(qbevent){evnt(26070,1510,"ide_methods.bas");if(r)goto S_37951;} +S_37952:; +if ((-(*_FUNC_IDE2_BYTE_LINENUMBERHOVER== 0 ))||new_error){ +if(qbevent){evnt(26070,1512,"ide_methods.bas");if(r)goto S_37952;} +do{ +qbg_sub_color( 13 , 6 ,NULL,3); +if(!qbevent)break;evnt(26070,1513,"ide_methods.bas");}while(r); +do{ +sub__printstring(*__LONG_IDEWX- 20 ,*__LONG_IDEWY+*__LONG_IDESUBWINDOW,__STRING_LINENUMBERSTATUS,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1514,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_BYTE_LINENUMBERHOVER= -1 ; +if(!qbevent)break;evnt(26070,1515,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_UPDATEHOVER= -1 ; +if(!qbevent)break;evnt(26070,1516,"ide_methods.bas");}while(r); +} +S_37958:; +if ((*__LONG_MCLICK)||new_error){ +if(qbevent){evnt(26070,1518,"ide_methods.bas");if(r)goto S_37958;} +do{ +sub_pcopy( 0 , 2 ); +if(!qbevent)break;evnt(26070,1519,"ide_methods.bas");}while(r); +do{ +SUB_IDEGOTOBOX(); +if(!qbevent)break;evnt(26070,1520,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,1521,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,1521,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,1522,"ide_methods.bas");}while(r); +} +}else{ +S_37966:; +if ((-(*_FUNC_IDE2_BYTE_LINENUMBERHOVER== -1 ))||new_error){ +if(qbevent){evnt(26070,1525,"ide_methods.bas");if(r)goto S_37966;} +do{ +*_FUNC_IDE2_BYTE_LINENUMBERHOVER= 0 ; +if(!qbevent)break;evnt(26070,1527,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 0 , 3 ,NULL,3); +if(!qbevent)break;evnt(26070,1528,"ide_methods.bas");}while(r); +do{ +sub__printstring(*__LONG_IDEWX- 20 ,*__LONG_IDEWY+*__LONG_IDESUBWINDOW,__STRING_LINENUMBERSTATUS,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1529,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_UPDATEHOVER= -1 ; +if(!qbevent)break;evnt(26070,1530,"ide_methods.bas");}while(r); +} +} +S_37973:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3)))|(-(*__LONG_MACOSX== 1 ))))||new_error){ +if(qbevent){evnt(26070,1534,"ide_methods.bas");if(r)goto S_37973;} +S_37974:; +if ((func__hasfocus())||new_error){ +if(qbevent){evnt(26070,1535,"ide_methods.bas");if(r)goto S_37974;} +do{ +qbg_sub_locate(NULL,NULL, 1 ,NULL,NULL,4); +if(!qbevent)break;evnt(26070,1536,"ide_methods.bas");}while(r); +do{ +sub__palettecolor( 5 ,*__ULONG_IDEBRACKETHIGHLIGHTCOLOR, 0 ,1); +if(!qbevent)break;evnt(26070,1537,"ide_methods.bas");}while(r); +do{ +sub__palettecolor( 6 ,*__ULONG_IDEBACKGROUNDCOLOR2, 0 ,1); +if(!qbevent)break;evnt(26070,1538,"ide_methods.bas");}while(r); +}else{ +do{ +qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); +if(!qbevent)break;evnt(26070,1540,"ide_methods.bas");}while(r); +do{ +sub__palettecolor( 5 ,*__ULONG_IDEBACKGROUNDCOLOR, 0 ,1); +if(!qbevent)break;evnt(26070,1541,"ide_methods.bas");}while(r); +do{ +sub__palettecolor( 6 ,*__ULONG_IDEBACKGROUNDCOLOR, 0 ,1); +if(!qbevent)break;evnt(26070,1542,"ide_methods.bas");}while(r); +} +} +S_37984:; +if ((*__LONG_KALT)||new_error){ +if(qbevent){evnt(26070,1546,"ide_methods.bas");if(r)goto S_37984;} +S_37985:; +if (((-(*__LONG_IDEALTHIGHLIGHT== 0 ))&(-(*__LONG_KALTPRESS== -1 ))&(~(*__LONG_KCTRL)))||new_error){ +if(qbevent){evnt(26070,1548,"ide_methods.bas");if(r)goto S_37985;} +do{ +*__LONG_IDEALTHIGHLIGHT= 1 ; +if(!qbevent)break;evnt(26070,1550,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); +if(!qbevent)break;evnt(26070,1551,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 15 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,1551,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_X= 4 ; +if(!qbevent)break;evnt(26070,1551,"ide_methods.bas");}while(r); +S_37990:; +fornext_value4138= 1 ; +fornext_finalvalue4138=*__INTEGER_MENUS; +fornext_step4138= 1 ; +if (fornext_step4138<0) fornext_step_negative4138=1; else fornext_step_negative4138=0; +if (new_error) goto fornext_error4138; +goto fornext_entrylabel4138; +while(1){ +fornext_value4138=fornext_step4138+(*_FUNC_IDE2_LONG_I); +fornext_entrylabel4138: +*_FUNC_IDE2_LONG_I=fornext_value4138; +if (fornext_step_negative4138){ +if (fornext_value4138fornext_finalvalue4138) break; +} +fornext_error4138:; +if(qbevent){evnt(26070,1552,"ide_methods.bas");if(r)goto S_37990;} +do{ +sub__printstring(*_FUNC_IDE2_LONG_X, 1 ,qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check(( 0 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 1 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1553,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_X=*_FUNC_IDE2_LONG_X+((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check(( 0 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]]))->len+ 2 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1554,"ide_methods.bas");}while(r); +S_37993:; +if ((-(*_FUNC_IDE2_LONG_I==(*__INTEGER_MENUS- 1 )))||new_error){ +if(qbevent){evnt(26070,1555,"ide_methods.bas");if(r)goto S_37993;} +do{ +*_FUNC_IDE2_LONG_X=*__LONG_IDEWX-((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*__INTEGER_MENUS)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check(( 0 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]]))->len- 1 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1555,"ide_methods.bas");}while(r); +} +fornext_continue_4137:; +} +fornext_exit_4137:; +do{ +*__LONG_IDEENTERMENU= 1 ; +if(!qbevent)break;evnt(26070,1557,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_SKIPDISPLAY= 0 ; +if(!qbevent)break;evnt(26070,1559,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,1559,"ide_methods.bas");}while(r); +} +}else{ +S_38002:; +if ((-(*__LONG_IDEALTHIGHLIGHT== 1 ))||new_error){ +if(qbevent){evnt(26070,1563,"ide_methods.bas");if(r)goto S_38002;} +do{ +*__LONG_IDEALTHIGHLIGHT= 0 ; +if(!qbevent)break;evnt(26070,1565,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); +if(!qbevent)break;evnt(26070,1566,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,1566,"ide_methods.bas");}while(r); +do{ +sub__printstring( 1 , 1 ,__STRING_MENUBAR,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1566,"ide_methods.bas");}while(r); +S_38007:; +if (((-(*__LONG_IDEENTERMENU== 1 ))&(-(*__LONG_KCONTROL== 0 )))||new_error){ +if(qbevent){evnt(26070,1567,"ide_methods.bas");if(r)goto S_38007;} +S_38008:; +if ((qbs_cleanup(qbs_tmp_base,(func__hasfocus())|(qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3)))))||new_error){ +if(qbevent){evnt(26070,1568,"ide_methods.bas");if(r)goto S_38008;} +do{ +qbg_sub_locate(NULL,NULL,NULL,*__LONG_IDENORMALCURSORSTART,*__LONG_IDENORMALCURSOREND,24); +if(!qbevent)break;evnt(26070,1569,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_SKIPDISPLAY= 0 ; +if(!qbevent)break;evnt(26070,1570,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEENTERMENU= 0 ; +if(!qbevent)break;evnt(26070,1571,"ide_methods.bas");}while(r); +do{ +goto LABEL_STARTMENU; +if(!qbevent)break;evnt(26070,1572,"ide_methods.bas");}while(r); +}else{ +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,1574,"ide_methods.bas");}while(r); +} +} +} +} +S_38019:; +if ((*_FUNC_IDE2_LONG_UPDATEHOVER)||new_error){ +if(qbevent){evnt(26070,1581,"ide_methods.bas");if(r)goto S_38019;} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,1581,"ide_methods.bas");}while(r); +} +S_38022:; +if ((-(*_FUNC_IDE2_LONG_CHANGE== 0 ))||new_error){ +if(qbevent){evnt(26070,1583,"ide_methods.bas");if(r)goto S_38022;} +S_38023:; +if ((*__LONG_IDECOMPILING)||new_error){ +if(qbevent){evnt(26070,1586,"ide_methods.bas");if(r)goto S_38023;} +S_38024:; +if ((*_FUNC_IDE2_LONG_SENDNEXTLINE)||new_error){ +if(qbevent){evnt(26070,1587,"ide_methods.bas");if(r)goto S_38024;} +S_38025:; +if ((-(*__LONG_IDECOMPILEDLINE<*__LONG_IDEN))||new_error){ +if(qbevent){evnt(26070,1588,"ide_methods.bas");if(r)goto S_38025;} +do{ +*__LONG_IDECOMPILEDLINE=*__LONG_IDECOMPILEDLINE+ 1 ; +if(!qbevent)break;evnt(26070,1589,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_IDE2= 4 ; +if(!qbevent)break;evnt(26070,1590,"ide_methods.bas");}while(r); +S_38028:; +if ((*_FUNC_IDE2_LONG_PASSBACK)||new_error){ +if(qbevent){evnt(26070,1591,"ide_methods.bas");if(r)goto S_38028;} +do{ +qbs_set(__STRING_IDECOMPILEDLINE,_FUNC_IDE2_STRING_PASSBACK); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1592,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_IDERETURN,__STRING_IDECOMPILEDLINE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1593,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(__STRING_IDECOMPILEDLINE,FUNC_IDEGETLINE(__LONG_IDECOMPILEDLINE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1595,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_IDERETURN,__STRING_IDECOMPILEDLINE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1596,"ide_methods.bas");}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,1598,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_IDE2_LONG_IDE2= 5 ; +if(!qbevent)break;evnt(26070,1601,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,1605,"ide_methods.bas");}while(r); +} +} +} +do{ +sub__limit( 16 ); +if(!qbevent)break;evnt(26070,1610,"ide_methods.bas");}while(r); +do{ +goto LABEL_WAITFORINPUT; +if(!qbevent)break;evnt(26070,1611,"ide_methods.bas");}while(r); +} +do{ +*__LONG_IDEENTERMENU= 0 ; +if(!qbevent)break;evnt(26070,1614,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEUNDOCOMBO=*__LONG_IDEUNDOCOMBO- 1 ; +if(!qbevent)break;evnt(26070,1616,"ide_methods.bas");}while(r); +S_38047:; +if ((-(*__LONG_IDEUNDOCOMBO< 0 ))||new_error){ +if(qbevent){evnt(26070,1617,"ide_methods.bas");if(r)goto S_38047;} +do{ +*__LONG_IDEUNDOCOMBO= 0 ; +if(!qbevent)break;evnt(26070,1617,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDE2_LONG_SKIPDISPLAY= 0 ; +if(!qbevent)break;evnt(26070,1619,"ide_methods.bas");}while(r); +S_38051:; +if ((*__LONG_MCLICK)||new_error){ +if(qbevent){evnt(26070,1623,"ide_methods.bas");if(r)goto S_38051;} +S_38052:; +if (((-(*__LONG_MX>= 2 ))&(-(*__LONG_MX<=*__LONG_IDEWX))&(-(*__LONG_MY>=(*__LONG_IDEWY- 3 )))&(-(*__LONG_MY<=(*__LONG_IDEWY- 1 ))))||new_error){ +if(qbevent){evnt(26070,1624,"ide_methods.bas");if(r)goto S_38052;} +S_38053:; +if ((-((func_screen(*__LONG_MY,*__LONG_MX, 1 ,0|1))==(( 11 )+( 1 * 16 ))))||new_error){ +if(qbevent){evnt(26070,1625,"ide_methods.bas");if(r)goto S_38053;} +S_38054:; +if(qbevent){evnt(26070,1627,"ide_methods.bas");if(r)goto S_38054;} +S_38055:; +if (((*__INTEGER_STATUSAREALINK==( 1 )))||new_error){ +if(qbevent){evnt(26070,1628,"ide_methods.bas");if(r)goto S_38055;} +S_38056:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)))||new_error){ +if(qbevent){evnt(26070,1630,"ide_methods.bas");if(r)goto S_38056;} +do{ +sub_shell3(FUNC_QUOTEDFILENAME(__STRING_COMPILELOG),2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1631,"ide_methods.bas");}while(r); +S_38058:; +}else{ +if (qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))){ +if(qbevent){evnt(26070,1632,"ide_methods.bas");if(r)goto S_38058;} +do{ +sub_shell3(qbs_add(qbs_new_txt_len("open ",5),FUNC_QUOTEDFILENAME(__STRING_COMPILELOG)),2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1633,"ide_methods.bas");}while(r); +}else{ +do{ +sub_shell3(qbs_add(qbs_new_txt_len("xdg-open ",9),FUNC_QUOTEDFILENAME(__STRING_COMPILELOG)),2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1635,"ide_methods.bas");}while(r); +} +} +do{ +goto LABEL_SPECIALCHAR; +if(!qbevent)break;evnt(26070,1637,"ide_methods.bas");}while(r); +sc_ec_216_end:; +goto sc_4141_end; +} +S_38064:; +if (((*__INTEGER_STATUSAREALINK==( 2 )))||new_error){ +if(qbevent){evnt(26070,1638,"ide_methods.bas");if(r)goto S_38064;} +do{ +*__LONG_IDECX= 1 ; +if(!qbevent)break;evnt(26070,1640,"ide_methods.bas");}while(r); +do{ +SUB_ADDQUICKNAVHISTORY(); +if(!qbevent)break;evnt(26070,1641,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECY=*__LONG_IDEFOCUSLINE; +if(!qbevent)break;evnt(26070,1642,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESELECT= 0 ; +if(!qbevent)break;evnt(26070,1643,"ide_methods.bas");}while(r); +do{ +goto LABEL_SPECIALCHAR; +if(!qbevent)break;evnt(26070,1644,"ide_methods.bas");}while(r); +sc_ec_217_end:; +goto sc_4141_end; +} +S_38070:; +if (((*__INTEGER_STATUSAREALINK==( 3 )))||new_error){ +if(qbevent){evnt(26070,1645,"ide_methods.bas");if(r)goto S_38070;} +S_38071:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)))||new_error){ +if(qbevent){evnt(26070,1647,"ide_methods.bas");if(r)goto S_38071;} +do{ +sub_shell3(qbs_add(qbs_new_txt_len("explorer /select,",17),FUNC_QUOTEDFILENAME(__STRING_LASTBINARYGENERATED)),2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1648,"ide_methods.bas");}while(r); +S_38073:; +}else{ +if (qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))){ +if(qbevent){evnt(26070,1649,"ide_methods.bas");if(r)goto S_38073;} +do{ +sub_shell3(qbs_add(qbs_new_txt_len("open ",5),FUNC_QUOTEDFILENAME(__STRING_PATH__ASCII_CHR_046__EXE)),2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1650,"ide_methods.bas");}while(r); +}else{ +do{ +sub_shell3(qbs_add(qbs_new_txt_len("xdg-open ",9),FUNC_QUOTEDFILENAME(__STRING_PATH__ASCII_CHR_046__EXE)),2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1652,"ide_methods.bas");}while(r); +} +} +do{ +goto LABEL_SPECIALCHAR; +if(!qbevent)break;evnt(26070,1654,"ide_methods.bas");}while(r); +sc_ec_218_end:; +goto sc_4141_end; +} +S_38079:; +if (((*__INTEGER_STATUSAREALINK==( 4 )))||new_error){ +if(qbevent){evnt(26070,1655,"ide_methods.bas");if(r)goto S_38079;} +do{ +*_FUNC_IDE2_LONG_RETVAL=FUNC_IDEWARNINGBOX(); +if(!qbevent)break;evnt(26070,1657,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,1659,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,1659,"ide_methods.bas");}while(r); +do{ +goto LABEL_SPECIALCHAR; +if(!qbevent)break;evnt(26070,1660,"ide_methods.bas");}while(r); +sc_ec_219_end:; +goto sc_4141_end; +} +sc_4141_end:; +} +} +} +S_38088:; +if (((-(*__LONG_KB== 16640 ))|(-(*__LONG_KB== 16896 )))||new_error){ +if(qbevent){evnt(26070,1666,"ide_methods.bas");if(r)goto S_38088;} +do{ +goto LABEL_STARTPAUSEDMENUHANDLER; +if(!qbevent)break;evnt(26070,1667,"ide_methods.bas");}while(r); +} +S_38091:; +if ((-(*__LONG_KB== 17152 ))||new_error){ +if(qbevent){evnt(26070,1670,"ide_methods.bas");if(r)goto S_38091;} +do{ +goto LABEL_TOGGLEBREAKPOINT; +if(!qbevent)break;evnt(26070,1671,"ide_methods.bas");}while(r); +} +S_38094:; +if ((-(*__LONG_KB== 17408 ))||new_error){ +if(qbevent){evnt(26070,1674,"ide_methods.bas");if(r)goto S_38094;} +S_38095:; +if ((*__LONG_KCTRL)||new_error){ +if(qbevent){evnt(26070,1675,"ide_methods.bas");if(r)goto S_38095;} +do{ +goto LABEL_UNSKIPALLLINES; +if(!qbevent)break;evnt(26070,1676,"ide_methods.bas");}while(r); +}else{ +do{ +goto LABEL_CLEARALLBREAKPOINTS; +if(!qbevent)break;evnt(26070,1678,"ide_methods.bas");}while(r); +} +} +S_38101:; +if ((-(*__LONG_KB== 34048 ))||new_error){ +if(qbevent){evnt(26070,1682,"ide_methods.bas");if(r)goto S_38101;} +LABEL_IDEMEXE:; +if(qbevent){evnt(26070,1683,"ide_methods.bas");r=0;} +do{ +*__LONG_IDERUNMODE= 2 ; +if(!qbevent)break;evnt(26070,1684,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDEMRUNSPECIAL; +if(!qbevent)break;evnt(26070,1685,"ide_methods.bas");}while(r); +} +S_38105:; +if ((-(*__LONG_KB== 34304 ))||new_error){ +if(qbevent){evnt(26070,1688,"ide_methods.bas");if(r)goto S_38105;} +S_38106:; +if ((-(*__LONG_CALLSTACKLENGTH> 0 ))||new_error){ +if(qbevent){evnt(26070,1689,"ide_methods.bas");if(r)goto S_38106;} +do{ +goto LABEL_SHOWCALLSTACKDIALOG; +if(!qbevent)break;evnt(26070,1690,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_IDE2_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("$DEBUG MODE",11),qbs_new_txt_len("No call stack log available.",28),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1692,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,1693,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,1693,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,1694,"ide_methods.bas");}while(r); +} +} +S_38115:; +if ((-(*__LONG_KB== 15872 ))||new_error){ +if(qbevent){evnt(26070,1698,"ide_methods.bas");if(r)goto S_38115;} +do{ +goto LABEL_SHOWWATCHLIST; +if(!qbevent)break;evnt(26070,1699,"ide_methods.bas");}while(r); +} +S_38118:; +if ((-(*__LONG_KB== 16128 ))||new_error){ +if(qbevent){evnt(26070,1702,"ide_methods.bas");if(r)goto S_38118;} +do{ +*__LONG_STARTPAUSED= 0 ; +if(!qbevent)break;evnt(26070,1703,"ide_methods.bas");}while(r); +LABEL_IDEMRUN:; +if(qbevent){evnt(26070,1704,"ide_methods.bas");r=0;} +do{ +*__BYTE_STARTPAUSEDPENDING= 0 ; +if(!qbevent)break;evnt(26070,1705,"ide_methods.bas");}while(r); +do{ +*__LONG_IDERUNMODE= 1 ; +if(!qbevent)break;evnt(26070,1706,"ide_methods.bas");}while(r); +LABEL_IDEMRUNSPECIAL:; +if(qbevent){evnt(26070,1707,"ide_methods.bas");r=0;} +do{ +*_FUNC_IDE2_BYTE_IDECOMPILATIONREQUESTED= -1 ; +if(!qbevent)break;evnt(26070,1709,"ide_methods.bas");}while(r); +S_38123:; +if ((-(*__BYTE_EXETOSOURCEFOLDERFIRSTTIMEMSG== 0 ))||new_error){ +if(qbevent){evnt(26070,1711,"ide_methods.bas");if(r)goto S_38123;} +S_38124:; +if ((*__BYTE_SAVEEXEWITHSOURCE)||new_error){ +if(qbevent){evnt(26070,1712,"ide_methods.bas");if(r)goto S_38124;} +do{ +*_FUNC_IDE2_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Run",3),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Your program will be compiled to the same folder where your",59),func_chr( 10 )),qbs_new_txt_len("source code is saved. You can change that by unchecking the",59)),func_chr( 10 )),qbs_new_txt_len("option 'Output EXE to Source Folder' in the Run menu.",53)),qbs_new_txt_len("#OK;#Don't show this again;#Cancel",34)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1715,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_IDE2_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Run",3),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Your program will be compiled to your 'qb64pe' folder. You can",62),func_chr( 10 )),qbs_new_txt_len("change that by checking the option 'Output EXE to Source",56)),func_chr( 10 )),qbs_new_txt_len("Folder' in the Run menu.",24)),qbs_new_txt_len("#OK;#Don't show this again;#Cancel",34)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1719,"ide_methods.bas");}while(r); +} +S_38129:; +if ((-(*_FUNC_IDE2_LONG_RESULT== 2 ))||new_error){ +if(qbevent){evnt(26070,1721,"ide_methods.bas");if(r)goto S_38129;} +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("ExeToSourceFolderFirstTimeMsg",29),qbs_new_txt_len("True",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1722,"ide_methods.bas");}while(r); +do{ +*__BYTE_EXETOSOURCEFOLDERFIRSTTIMEMSG= -1 ; +if(!qbevent)break;evnt(26070,1723,"ide_methods.bas");}while(r); +S_38132:; +}else{ +if (-(*_FUNC_IDE2_LONG_RESULT== 3 )){ +if(qbevent){evnt(26070,1724,"ide_methods.bas");if(r)goto S_38132;} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,1725,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,1725,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); +if(!qbevent)break;evnt(26070,1726,"ide_methods.bas");}while(r); +do{ +SUB_CLEARSTATUSWINDOW(&(pass4142= 0 )); +if(!qbevent)break;evnt(26070,1727,"ide_methods.bas");}while(r); +do{ +sub__printstring( 2 ,*__LONG_IDEWY- 3 ,qbs_new_txt_len("Compilation request canceled.",29),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1728,"ide_methods.bas");}while(r); +do{ +goto LABEL_SPECIALCHAR; +if(!qbevent)break;evnt(26070,1729,"ide_methods.bas");}while(r); +} +} +} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,1732,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,1732,"ide_methods.bas");}while(r); +S_38143:; +if (((-(*_FUNC_IDE2_LONG_READY!= 0 ))&(-(*__INTEGER_IDECHANGEMADE== 0 )))||new_error){ +if(qbevent){evnt(26070,1735,"ide_methods.bas");if(r)goto S_38143;} +do{ +qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); +if(!qbevent)break;evnt(26070,1737,"ide_methods.bas");}while(r); +do{ +SUB_CLEARSTATUSWINDOW(&(pass4143= 0 )); +if(!qbevent)break;evnt(26070,1738,"ide_methods.bas");}while(r); +S_38146:; +if ((*__INTEGER_NOEXESAVED)||new_error){ +if(qbevent){evnt(26070,1739,"ide_methods.bas");if(r)goto S_38146;} +do{ +*__LONG_IDECOMPILED= 0 ; +if(!qbevent)break;evnt(26070,1739,"ide_methods.bas");}while(r); +do{ +goto LABEL_MUSTGENERATEEXE; +if(!qbevent)break;evnt(26070,1739,"ide_methods.bas");}while(r); +} +S_38150:; +if ((*__LONG_IDECOMPILED)||new_error){ +if(qbevent){evnt(26070,1740,"ide_methods.bas");if(r)goto S_38150;} +S_38151:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_IDERUNMODE== 2 ))&(func__fileexists(__STRING_LASTBINARYGENERATED))))||new_error){ +if(qbevent){evnt(26070,1742,"ide_methods.bas");if(r)goto S_38151;} +S_38152:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ +if(qbevent){evnt(26070,1743,"ide_methods.bas");if(r)goto S_38152;} +do{ +sub__printstring( 2 ,*__LONG_IDEWY- 3 ,qbs_new_txt_len("Already created executable file!",32),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1744,"ide_methods.bas");}while(r); +}else{ +do{ +sub__printstring( 2 ,*__LONG_IDEWY- 3 ,qbs_new_txt_len("Already created .EXE file!",26),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1746,"ide_methods.bas");}while(r); +} +do{ +qbg_sub_color( 11 , 1 ,NULL,3); +if(!qbevent)break;evnt(26070,1749,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_LOCATION,__STRING_LASTBINARYGENERATED); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1750,"ide_methods.bas");}while(r); +S_38159:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_PATH__ASCII_CHR_046__EXE,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,1751,"ide_methods.bas");if(r)goto S_38159;} +do{ +qbs_set(_FUNC_IDE2_STRING_LOCATION,qbs_add(qbs_add(func__startdir(),__STRING1_PATHSEP),_FUNC_IDE2_STRING_LOCATION)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1751,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDE2_STRING_MSG,qbs_add(qbs_new_txt_len("Location: ",10),_FUNC_IDE2_STRING_LOCATION)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1752,"ide_methods.bas");}while(r); +S_38163:; +if ((qbs_cleanup(qbs_tmp_base,-(( 2 +_FUNC_IDE2_STRING_MSG->len)>*__LONG_IDEWX)))||new_error){ +if(qbevent){evnt(26070,1753,"ide_methods.bas");if(r)goto S_38163;} +do{ +qbs_set(_FUNC_IDE2_STRING_MSG,qbs_add(qbs_add(qbs_new_txt_len("Location: ",10),func_string( 3 , 250 )),qbs_right(_FUNC_IDE2_STRING_LOCATION,*__LONG_IDEWX- 15 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1754,"ide_methods.bas");}while(r); +} +do{ +sub__printstring( 2 ,*__LONG_IDEWY- 2 ,_FUNC_IDE2_STRING_MSG,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1756,"ide_methods.bas");}while(r); +do{ +*__INTEGER_STATUSAREALINK= 3 ; +if(!qbevent)break;evnt(26070,1757,"ide_methods.bas");}while(r); +do{ +goto LABEL_SPECIALCHAR; +if(!qbevent)break;evnt(26070,1760,"ide_methods.bas");}while(r); +S_38169:; +}else{ +if (qbs_cleanup(qbs_tmp_base,-(func__fileexists(__STRING_LASTBINARYGENERATED)== 0 ))){ +if(qbevent){evnt(26070,1761,"ide_methods.bas");if(r)goto S_38169;} +do{ +*__LONG_IDECOMPILED= 0 ; +if(!qbevent)break;evnt(26070,1762,"ide_methods.bas");}while(r); +do{ +goto LABEL_MUSTGENERATEEXE; +if(!qbevent)break;evnt(26070,1763,"ide_methods.bas");}while(r); +} +} +do{ +*_FUNC_IDE2_LONG_DUMMY=FUNC_DARKENFGBG(&(pass4145= 1 )); +if(!qbevent)break;evnt(26070,1766,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_BKPIDESYSTEM=*__LONG_IDESYSTEM; +if(!qbevent)break;evnt(26070,1767,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESYSTEM= 2 ; +if(!qbevent)break;evnt(26070,1767,"ide_methods.bas");}while(r); +do{ +SUB_UPDATETITLEOFMAINWINDOW(); +if(!qbevent)break;evnt(26070,1767,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESYSTEM=*_FUNC_IDE2_LONG_BKPIDESYSTEM; +if(!qbevent)break;evnt(26070,1767,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 1 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,1768,"ide_methods.bas");}while(r); +do{ +sub__printstring((*__LONG_IDEWX- 8 )/ ((long double)( 2 )),*__LONG_IDEWY- 4 ,qbs_new_txt_len(" Status ",8),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1768,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 15 , 1 ,NULL,3); +if(!qbevent)break;evnt(26070,1769,"ide_methods.bas");}while(r); +do{ +sub__printstring( 2 ,*__LONG_IDEWY- 3 ,qbs_new_txt_len("Starting program...",19),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1770,"ide_methods.bas");}while(r); +}else{ +LABEL_MUSTGENERATEEXE:; +if(qbevent){evnt(26070,1772,"ide_methods.bas");r=0;} +do{ +*_FUNC_IDE2_LONG_DUMMY=FUNC_DARKENFGBG(&(pass4146= 1 )); +if(!qbevent)break;evnt(26070,1773,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_BKPIDESYSTEM=*__LONG_IDESYSTEM; +if(!qbevent)break;evnt(26070,1774,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESYSTEM= 2 ; +if(!qbevent)break;evnt(26070,1774,"ide_methods.bas");}while(r); +do{ +SUB_UPDATETITLEOFMAINWINDOW(); +if(!qbevent)break;evnt(26070,1774,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESYSTEM=*_FUNC_IDE2_LONG_BKPIDESYSTEM; +if(!qbevent)break;evnt(26070,1774,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 1 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,1775,"ide_methods.bas");}while(r); +do{ +sub__printstring((*__LONG_IDEWX- 8 )/ ((long double)( 2 )),*__LONG_IDEWY- 4 ,qbs_new_txt_len(" Status ",8),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1775,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 15 , 1 ,NULL,3); +if(!qbevent)break;evnt(26070,1776,"ide_methods.bas");}while(r); +S_38191:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ +if(qbevent){evnt(26070,1777,"ide_methods.bas");if(r)goto S_38191;} +do{ +sub__printstring( 2 ,*__LONG_IDEWY- 3 ,qbs_new_txt_len("Creating executable file...",27),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1778,"ide_methods.bas");}while(r); +}else{ +do{ +sub__printstring( 2 ,*__LONG_IDEWY- 3 ,qbs_new_txt_len("Creating .EXE file...",21),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1780,"ide_methods.bas");}while(r); +} +} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,1784,"ide_methods.bas");}while(r); +S_38198:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_IDEPROGNAME,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,1788,"ide_methods.bas");if(r)goto S_38198;} +do{ +qbs_set(_FUNC_IDE2_STRING_F,qbs_add(qbs_new_txt_len("untitled",8),__STRING_TEMPFOLDERINDEXSTR)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1789,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDE2_STRING_F,__STRING_IDEPROGNAME); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1791,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_F,FUNC_REMOVEFILEEXTENSION(_FUNC_IDE2_STRING_F)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1792,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDE2_LONG_IDE2= 9 ; +if(!qbevent)break;evnt(26070,1794,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_IDERETURN,_FUNC_IDE2_STRING_F); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1794,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,1795,"ide_methods.bas");}while(r); +} +S_38208:; +if ((-(*_FUNC_IDE2_LONG_FAILED== 1 ))||new_error){ +if(qbevent){evnt(26070,1798,"ide_methods.bas");if(r)goto S_38208;} +do{ +goto LABEL_SPECIALCHAR; +if(!qbevent)break;evnt(26070,1798,"ide_methods.bas");}while(r); +} +do{ +*__LONG_IDEAUTORUN= 1 ; +if(!qbevent)break;evnt(26070,1800,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); +if(!qbevent)break;evnt(26070,1803,"ide_methods.bas");}while(r); +do{ +SUB_CLEARSTATUSWINDOW(&(pass4147= 0 )); +if(!qbevent)break;evnt(26070,1804,"ide_methods.bas");}while(r); +do{ +sub__printstring( 2 ,*__LONG_IDEWY- 3 ,qbs_new_txt_len("Checking program... (editing program will cancel request)",57),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1806,"ide_methods.bas");}while(r); +do{ +SUB_IDESHOWTEXT(); +if(!qbevent)break;evnt(26070,1809,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(NULL,NULL, 1 ,NULL,NULL,4); +if(!qbevent)break;evnt(26070,1810,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,1811,"ide_methods.bas");}while(r); +do{ +goto LABEL_SPECIALCHAR; +if(!qbevent)break;evnt(26070,1813,"ide_methods.bas");}while(r); +} +do{ +qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); +if(!qbevent)break;evnt(26070,1816,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(NULL,NULL,NULL,*__LONG_IDENORMALCURSORSTART,*__LONG_IDENORMALCURSOREND,24); +if(!qbevent)break;evnt(26070,1817,"ide_methods.bas");}while(r); +S_38222:; +if ((((*__LONG_MCLICK|*__LONG_MCLICK2))&(-(*__LONG_IDEMOUSESELECT== 0 )))||new_error){ +if(qbevent){evnt(26070,1819,"ide_methods.bas");if(r)goto S_38222;} +S_38223:; +if ((-(*__LONG_MY== 1 ))||new_error){ +if(qbevent){evnt(26070,1820,"ide_methods.bas");if(r)goto S_38223;} +do{ +*_FUNC_IDE2_LONG_X= 3 ; +if(!qbevent)break;evnt(26070,1821,"ide_methods.bas");}while(r); +S_38225:; +fornext_value4149= 1 ; +fornext_finalvalue4149=*__INTEGER_MENUS; +fornext_step4149= 1 ; +if (fornext_step4149<0) fornext_step_negative4149=1; else fornext_step_negative4149=0; +if (new_error) goto fornext_error4149; +goto fornext_entrylabel4149; +while(1){ +fornext_value4149=fornext_step4149+(*_FUNC_IDE2_LONG_I); +fornext_entrylabel4149: +*_FUNC_IDE2_LONG_I=fornext_value4149; +if (fornext_step_negative4149){ +if (fornext_value4149fornext_finalvalue4149) break; +} +fornext_error4149:; +if(qbevent){evnt(26070,1822,"ide_methods.bas");if(r)goto S_38225;} +do{ +*_FUNC_IDE2_LONG_X2=((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check(( 0 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]]))->len+ 2 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1823,"ide_methods.bas");}while(r); +S_38227:; +if (((-(*__LONG_MX>=*_FUNC_IDE2_LONG_X))&(-(*__LONG_MX<(*_FUNC_IDE2_LONG_X+*_FUNC_IDE2_LONG_X2))))||new_error){ +if(qbevent){evnt(26070,1824,"ide_methods.bas");if(r)goto S_38227;} +do{ +*_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_I; +if(!qbevent)break;evnt(26070,1825,"ide_methods.bas");}while(r); +do{ +goto LABEL_SHOWMENU; +if(!qbevent)break;evnt(26070,1826,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDE2_LONG_X=*_FUNC_IDE2_LONG_X+*_FUNC_IDE2_LONG_X2; +if(!qbevent)break;evnt(26070,1828,"ide_methods.bas");}while(r); +S_38232:; +if ((-(*_FUNC_IDE2_LONG_I==(*__INTEGER_MENUS- 1 )))||new_error){ +if(qbevent){evnt(26070,1829,"ide_methods.bas");if(r)goto S_38232;} +do{ +*_FUNC_IDE2_LONG_X=*__LONG_IDEWX-((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*__INTEGER_MENUS)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check(( 0 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]]))->len- 2 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1829,"ide_methods.bas");}while(r); +} +fornext_continue_4148:; +} +fornext_exit_4148:; +} +} +S_38238:; +fornext_value4153= 1 ; +fornext_finalvalue4153=*__INTEGER_MENUS; +fornext_step4153= 1 ; +if (fornext_step4153<0) fornext_step_negative4153=1; else fornext_step_negative4153=0; +if (new_error) goto fornext_error4153; +goto fornext_entrylabel4153; +while(1){ +fornext_value4153=fornext_step4153+(*_FUNC_IDE2_LONG_I); +fornext_entrylabel4153: +*_FUNC_IDE2_LONG_I=fornext_value4153; +if (fornext_step_negative4153){ +if (fornext_value4153fornext_finalvalue4153) break; +} +fornext_error4153:; +if(qbevent){evnt(26070,1834,"ide_methods.bas");if(r)goto S_38238;} +do{ +qbs_set(_FUNC_IDE2_STRING_A,qbs_ucase(qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check(( 0 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1835,"ide_methods.bas");}while(r); +S_38240:; +if ((qbs_cleanup(qbs_tmp_base,*__LONG_KALT&(qbs_equal(qbs_ucase(__STRING_K),_FUNC_IDE2_STRING_A))))||new_error){ +if(qbevent){evnt(26070,1836,"ide_methods.bas");if(r)goto S_38240;} +do{ +*_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_I; +if(!qbevent)break;evnt(26070,1837,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,1838,"ide_methods.bas");}while(r); +do{ +sub__printstring( 1 , 1 ,__STRING_MENUBAR,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1838,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,1839,"ide_methods.bas");}while(r); +do{ +goto LABEL_SHOWMENU; +if(!qbevent)break;evnt(26070,1840,"ide_methods.bas");}while(r); +} +fornext_continue_4152:; +} +fornext_exit_4152:; +S_38248:; +if ((qbs_cleanup(qbs_tmp_base,*__LONG_KCTRL&(qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("F",1)))))||new_error){ +if(qbevent){evnt(26070,1844,"ide_methods.bas");if(r)goto S_38248;} +do{ +qbs_set(__STRING_K,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1845,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESYSTEM= 2 ; +if(!qbevent)break;evnt(26070,1846,"ide_methods.bas");}while(r); +S_38251:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_IDEFINDTEXT->len))||new_error){ +if(qbevent){evnt(26070,1847,"ide_methods.bas");if(r)goto S_38251;} +do{ +*_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL= -1 ; +if(!qbevent)break;evnt(26070,1847,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__SX1= 0 ; +if(!qbevent)break;evnt(26070,1847,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1=__STRING_IDEFINDTEXT->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1847,"ide_methods.bas");}while(r); +} +do{ +goto LABEL_SPECIALCHAR; +if(!qbevent)break;evnt(26070,1848,"ide_methods.bas");}while(r); +} +S_38258:; +if ((qbs_cleanup(qbs_tmp_base,*__LONG_KCTRL&(qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("K",1)))))||new_error){ +if(qbevent){evnt(26070,1851,"ide_methods.bas");if(r)goto S_38258;} +do{ +qbs_set(__STRING_K,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1852,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDEQUICKKEYCODE; +if(!qbevent)break;evnt(26070,1853,"ide_methods.bas");}while(r); +} +S_38262:; +if ((*__LONG_KCTRL&(-(*__LONG_KB== 15616 )))||new_error){ +if(qbevent){evnt(26070,1857,"ide_methods.bas");if(r)goto S_38262;} +S_38263:; +if ((-(*__LONG_IDESYSTEM== 3 ))||new_error){ +if(qbevent){evnt(26070,1858,"ide_methods.bas");if(r)goto S_38263;} +do{ +*__LONG_IDESYSTEM= 1 ; +if(!qbevent)break;evnt(26070,1858,"ide_methods.bas");}while(r); +} +do{ +goto LABEL_IDEFINDJMP; +if(!qbevent)break;evnt(26070,1859,"ide_methods.bas");}while(r); +} +S_38268:; +if ((*__LONG_KALT&(-(*__LONG_KB== 15616 )))||new_error){ +if(qbevent){evnt(26070,1862,"ide_methods.bas");if(r)goto S_38268;} +S_38269:; +if ((-(*__LONG_IDESYSTEM== 3 ))||new_error){ +if(qbevent){evnt(26070,1863,"ide_methods.bas");if(r)goto S_38269;} +do{ +*__LONG_IDESYSTEM= 1 ; +if(!qbevent)break;evnt(26070,1863,"ide_methods.bas");}while(r); +} +do{ +goto LABEL_IDEFINDCHANGEJMP; +if(!qbevent)break;evnt(26070,1864,"ide_methods.bas");}while(r); +} +S_38274:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KB== 15616 ))|(qbs_equal(__STRING_K,func_chr( 28 )))))||new_error){ +if(qbevent){evnt(26070,1867,"ide_methods.bas");if(r)goto S_38274;} +S_38275:; +if ((-(*__LONG_IDESYSTEM== 3 ))||new_error){ +if(qbevent){evnt(26070,1868,"ide_methods.bas");if(r)goto S_38275;} +do{ +*__LONG_IDESYSTEM= 1 ; +if(!qbevent)break;evnt(26070,1868,"ide_methods.bas");}while(r); +} +LABEL_IDEMF3:; +if(qbevent){evnt(26070,1869,"ide_methods.bas");r=0;} +S_38278:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_IDEFINDTEXT,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,1870,"ide_methods.bas");if(r)goto S_38278;} +S_38279:; +if ((-(*__LONG_IDESYSTEM== 2 ))||new_error){ +if(qbevent){evnt(26070,1871,"ide_methods.bas");if(r)goto S_38279;} +do{ +*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__SX1= 0 ; +if(!qbevent)break;evnt(26070,1872,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1=__STRING_IDEFINDTEXT->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1873,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL= -1 ; +if(!qbevent)break;evnt(26070,1874,"ide_methods.bas");}while(r); +} +do{ +return_point[next_return_point++]=23; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATESEARCHBAR; +RETURN_23:; +if(!qbevent)break;evnt(26070,1876,"ide_methods.bas");}while(r); +S_38285:; +if ((*__LONG_KSHIFT)||new_error){ +if(qbevent){evnt(26070,1877,"ide_methods.bas");if(r)goto S_38285;} +do{ +*__INTEGER_IDEFINDINVERT= 1 ; +if(!qbevent)break;evnt(26070,1877,"ide_methods.bas");}while(r); +} +do{ +SUB_IDEADDSEARCHED(__STRING_IDEFINDTEXT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1878,"ide_methods.bas");}while(r); +do{ +SUB_IDEFINDAGAIN(&(pass4157= -1 )); +if(!qbevent)break;evnt(26070,1879,"ide_methods.bas");}while(r); +}else{ +do{ +goto LABEL_IDEFINDJMP; +if(!qbevent)break;evnt(26070,1881,"ide_methods.bas");}while(r); +} +do{ +goto LABEL_SPECIALCHAR; +if(!qbevent)break;evnt(26070,1883,"ide_methods.bas");}while(r); +} +S_38295:; +if ((*__LONG_KSHIFT&(-(*__LONG_KB== 15104 )))||new_error){ +if(qbevent){evnt(26070,1886,"ide_methods.bas");if(r)goto S_38295;} +S_38296:; +if ((-(*__LONG_IDEHELP== 0 ))||new_error){ +if(qbevent){evnt(26070,1887,"ide_methods.bas");if(r)goto S_38296;} +do{ +*__LONG_IDESUBWINDOW=*__LONG_IDEWY/ 2 ; +if(!qbevent)break;evnt(26070,1888,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEWY=*__LONG_IDEWY-*__LONG_IDESUBWINDOW; +if(!qbevent)break;evnt(26070,1888,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_WX1= 2 ; +if(!qbevent)break;evnt(26070,1889,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_WY1=*__LONG_IDEWY+ 1 ; +if(!qbevent)break;evnt(26070,1889,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_WX2=*__LONG_IDEWX- 1 ; +if(!qbevent)break;evnt(26070,1889,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_WY2=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 2 ; +if(!qbevent)break;evnt(26070,1889,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_WW=*__LONG_HELP_WX2-*__LONG_HELP_WX1+ 1 ; +if(!qbevent)break;evnt(26070,1889,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_WH=*__LONG_HELP_WY2-*__LONG_HELP_WY1+ 1 ; +if(!qbevent)break;evnt(26070,1889,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEHELP= 1 ; +if(!qbevent)break;evnt(26070,1890,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_SKIPDISPLAY= 0 ; +if(!qbevent)break;evnt(26070,1891,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESYSTEM= 3 ; +if(!qbevent)break;evnt(26070,1892,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_RETVAL= 1 ; +if(!qbevent)break;evnt(26070,1893,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=24; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_REDRAWITALL; +RETURN_24:; +if(!qbevent)break;evnt(26070,1893,"ide_methods.bas");}while(r); +} +do{ +*__LONG_IDESYSTEM= 3 ; +if(!qbevent)break;evnt(26070,1895,"ide_methods.bas");}while(r); +do{ +goto LABEL_SPECIALCHAR; +if(!qbevent)break;evnt(26070,1896,"ide_methods.bas");}while(r); +} +do{ +if(!qbevent)break;evnt(26070,1901,"ide_methods.bas");}while(r); +S_38315:; +if ((-(*__LONG_MB== 0 ))||new_error){ +if(qbevent){evnt(26070,1903,"ide_methods.bas");if(r)goto S_38315;} +do{ +*_FUNC_IDE2_LONG_HELP_SCROLLBAR= 0 ; +if(!qbevent)break;evnt(26070,1903,"ide_methods.bas");}while(r); +} +S_38318:; +if ((*__LONG_IDEHELP)||new_error){ +if(qbevent){evnt(26070,1904,"ide_methods.bas");if(r)goto S_38318;} +S_38319:; +if ((-(*__LONG_IDESYSTEM== 3 ))||new_error){ +if(qbevent){evnt(26070,1905,"ide_methods.bas");if(r)goto S_38319;} +S_38320:; +if ((*__LONG_MCLICK)||new_error){ +if(qbevent){evnt(26070,1908,"ide_methods.bas");if(r)goto S_38320;} +S_38321:; +if (((-(*__LONG_MX>= 2 ))&(-(*__LONG_MX<=(*__LONG_IDEWX- 1 )))&(-(*__LONG_MY==(*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 1 ))))||new_error){ +if(qbevent){evnt(26070,1909,"ide_methods.bas");if(r)goto S_38321;} +do{ +*_FUNC_IDE2_LONG_HELP_SCROLLBAR= 1 ; +if(!qbevent)break;evnt(26070,1910,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_V=FUNC_IDEHBAR(&(pass4158= 2 ),&(pass4159=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 1 ),&(pass4160=*__LONG_IDEWX- 2 ),__LONG_HELP_CX,&(pass4161=*__LONG_HELP_W+ 1 )); +if(!qbevent)break;evnt(26070,1911,"ide_methods.bas");}while(r); +S_38324:; +if ((-(*_FUNC_IDE2_LONG_V!=*__LONG_MX))||new_error){ +if(qbevent){evnt(26070,1912,"ide_methods.bas");if(r)goto S_38324;} +do{ +*_FUNC_IDE2_LONG_HELP_SCROLLBAR_METHOD= 3 ; +if(!qbevent)break;evnt(26070,1912,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_IDE2_LONG_HELP_SCROLLBAR_METHOD= 4 ; +if(!qbevent)break;evnt(26070,1912,"ide_methods.bas");}while(r); +} +S_38329:; +if ((-(*__LONG_MX== 2 ))||new_error){ +if(qbevent){evnt(26070,1913,"ide_methods.bas");if(r)goto S_38329;} +do{ +*_FUNC_IDE2_LONG_HELP_SCROLLBAR_METHOD= 1 ; +if(!qbevent)break;evnt(26070,1913,"ide_methods.bas");}while(r); +} +S_38332:; +if ((-(*__LONG_MX==(*__LONG_IDEWX- 1 )))||new_error){ +if(qbevent){evnt(26070,1914,"ide_methods.bas");if(r)goto S_38332;} +do{ +*_FUNC_IDE2_LONG_HELP_SCROLLBAR_METHOD= 2 ; +if(!qbevent)break;evnt(26070,1914,"ide_methods.bas");}while(r); +} +} +S_38336:; +if (((-(*__LONG_MY>=(*__LONG_IDEWY+ 1 )))&(-(*__LONG_MY<=(*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 2 )))&(-(*__LONG_MX==*__LONG_IDEWX)))||new_error){ +if(qbevent){evnt(26070,1916,"ide_methods.bas");if(r)goto S_38336;} +do{ +*_FUNC_IDE2_LONG_HELP_SCROLLBAR= 2 ; +if(!qbevent)break;evnt(26070,1917,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_V=FUNC_IDEVBAR(__LONG_IDEWX,&(pass4162=*__LONG_IDEWY+ 1 ),&(pass4163=*__LONG_IDESUBWINDOW- 2 ),__LONG_HELP_CY,&(pass4164=*__LONG_HELP_H+ 1 )); +if(!qbevent)break;evnt(26070,1918,"ide_methods.bas");}while(r); +S_38339:; +if ((-(*_FUNC_IDE2_LONG_V!=*__LONG_MY))||new_error){ +if(qbevent){evnt(26070,1919,"ide_methods.bas");if(r)goto S_38339;} +do{ +*_FUNC_IDE2_LONG_HELP_SCROLLBAR_METHOD= 3 ; +if(!qbevent)break;evnt(26070,1919,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_IDE2_LONG_HELP_SCROLLBAR_METHOD= 4 ; +if(!qbevent)break;evnt(26070,1919,"ide_methods.bas");}while(r); +} +S_38344:; +if ((-(*__LONG_MY==(*__LONG_IDEWY+ 1 )))||new_error){ +if(qbevent){evnt(26070,1920,"ide_methods.bas");if(r)goto S_38344;} +do{ +*_FUNC_IDE2_LONG_HELP_SCROLLBAR_METHOD= 1 ; +if(!qbevent)break;evnt(26070,1920,"ide_methods.bas");}while(r); +} +S_38347:; +if ((-(*__LONG_MY==(*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 2 )))||new_error){ +if(qbevent){evnt(26070,1921,"ide_methods.bas");if(r)goto S_38347;} +do{ +*_FUNC_IDE2_LONG_HELP_SCROLLBAR_METHOD= 2 ; +if(!qbevent)break;evnt(26070,1921,"ide_methods.bas");}while(r); +} +} +} +S_38352:; +if ((*_FUNC_IDE2_LONG_HELP_SCROLLBAR)||new_error){ +if(qbevent){evnt(26070,1925,"ide_methods.bas");if(r)goto S_38352;} +do{ +*__LONG_IDEMBMONITOR= 1 ; +if(!qbevent)break;evnt(26070,1926,"ide_methods.bas");}while(r); +S_38354:; +if ((-(*_FUNC_IDE2_LONG_HELP_SCROLLBAR_METHOD== 1 ))||new_error){ +if(qbevent){evnt(26070,1927,"ide_methods.bas");if(r)goto S_38354;} +S_38355:; +if ((-(*_FUNC_IDE2_LONG_HELP_SCROLLBAR== 1 ))||new_error){ +if(qbevent){evnt(26070,1928,"ide_methods.bas");if(r)goto S_38355;} +do{ +*__LONG_KB= 19200 ; +if(!qbevent)break;evnt(26070,1928,"ide_methods.bas");}while(r); +do{ +SUB_IDEWAIT(); +if(!qbevent)break;evnt(26070,1928,"ide_methods.bas");}while(r); +} +S_38359:; +if ((-(*_FUNC_IDE2_LONG_HELP_SCROLLBAR== 2 ))||new_error){ +if(qbevent){evnt(26070,1929,"ide_methods.bas");if(r)goto S_38359;} +do{ +*__LONG_KB= 18432 ; +if(!qbevent)break;evnt(26070,1929,"ide_methods.bas");}while(r); +do{ +SUB_IDEWAIT(); +if(!qbevent)break;evnt(26070,1929,"ide_methods.bas");}while(r); +} +} +S_38364:; +if ((-(*_FUNC_IDE2_LONG_HELP_SCROLLBAR_METHOD== 2 ))||new_error){ +if(qbevent){evnt(26070,1931,"ide_methods.bas");if(r)goto S_38364;} +S_38365:; +if ((-(*_FUNC_IDE2_LONG_HELP_SCROLLBAR== 1 ))||new_error){ +if(qbevent){evnt(26070,1932,"ide_methods.bas");if(r)goto S_38365;} +do{ +*__LONG_KB= 19712 ; +if(!qbevent)break;evnt(26070,1932,"ide_methods.bas");}while(r); +do{ +SUB_IDEWAIT(); +if(!qbevent)break;evnt(26070,1932,"ide_methods.bas");}while(r); +} +S_38369:; +if ((-(*_FUNC_IDE2_LONG_HELP_SCROLLBAR== 2 ))||new_error){ +if(qbevent){evnt(26070,1933,"ide_methods.bas");if(r)goto S_38369;} +do{ +*__LONG_KB= 20480 ; +if(!qbevent)break;evnt(26070,1933,"ide_methods.bas");}while(r); +do{ +SUB_IDEWAIT(); +if(!qbevent)break;evnt(26070,1933,"ide_methods.bas");}while(r); +} +} +S_38374:; +if ((-(*_FUNC_IDE2_LONG_HELP_SCROLLBAR_METHOD== 3 ))||new_error){ +if(qbevent){evnt(26070,1935,"ide_methods.bas");if(r)goto S_38374;} +S_38375:; +if ((-(*_FUNC_IDE2_LONG_HELP_SCROLLBAR== 1 ))||new_error){ +if(qbevent){evnt(26070,1936,"ide_methods.bas");if(r)goto S_38375;} +do{ +*_FUNC_IDE2_LONG_V=FUNC_IDEHBAR(&(pass4165= 2 ),&(pass4166=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 1 ),&(pass4167=*__LONG_IDEWX- 2 ),__LONG_HELP_CX,&(pass4168=*__LONG_HELP_W+ 1 )); +if(!qbevent)break;evnt(26070,1937,"ide_methods.bas");}while(r); +S_38377:; +if ((-(*__LONG_MX<*_FUNC_IDE2_LONG_V))||new_error){ +if(qbevent){evnt(26070,1938,"ide_methods.bas");if(r)goto S_38377;} +do{ +*__LONG_HELP_CX=*__LONG_HELP_CX- 8 ; +if(!qbevent)break;evnt(26070,1939,"ide_methods.bas");}while(r); +S_38379:; +if ((-(*__LONG_HELP_CX< 1 ))||new_error){ +if(qbevent){evnt(26070,1940,"ide_methods.bas");if(r)goto S_38379;} +do{ +*__LONG_HELP_CX= 1 ; +if(!qbevent)break;evnt(26070,1940,"ide_methods.bas");}while(r); +} +S_38382:; +if ((-(*__LONG_HELP_SX>*__LONG_HELP_CX))||new_error){ +if(qbevent){evnt(26070,1941,"ide_methods.bas");if(r)goto S_38382;} +do{ +*__LONG_HELP_SX=*__LONG_HELP_CX; +if(!qbevent)break;evnt(26070,1941,"ide_methods.bas");}while(r); +} +do{ +SUB_IDEWAIT(); +if(!qbevent)break;evnt(26070,1942,"ide_methods.bas");}while(r); +} +S_38387:; +if ((-(*__LONG_MX>*_FUNC_IDE2_LONG_V))||new_error){ +if(qbevent){evnt(26070,1944,"ide_methods.bas");if(r)goto S_38387;} +do{ +*__LONG_HELP_CX=*__LONG_HELP_CX+ 8 ; +if(!qbevent)break;evnt(26070,1945,"ide_methods.bas");}while(r); +S_38389:; +if ((-(*__LONG_HELP_CX>(*__LONG_HELP_W+ 1 )))||new_error){ +if(qbevent){evnt(26070,1946,"ide_methods.bas");if(r)goto S_38389;} +do{ +*__LONG_HELP_CX=*__LONG_HELP_W+ 1 ; +if(!qbevent)break;evnt(26070,1946,"ide_methods.bas");}while(r); +} +do{ +SUB_IDEWAIT(); +if(!qbevent)break;evnt(26070,1947,"ide_methods.bas");}while(r); +} +} +S_38395:; +if ((-(*_FUNC_IDE2_LONG_HELP_SCROLLBAR== 2 ))||new_error){ +if(qbevent){evnt(26070,1950,"ide_methods.bas");if(r)goto S_38395;} +do{ +*_FUNC_IDE2_LONG_V=FUNC_IDEVBAR(__LONG_IDEWX,&(pass4169=*__LONG_IDEWY+ 1 ),&(pass4170=*__LONG_IDESUBWINDOW- 2 ),__LONG_HELP_CY,&(pass4171=*__LONG_HELP_H+ 1 )); +if(!qbevent)break;evnt(26070,1951,"ide_methods.bas");}while(r); +S_38397:; +if ((-(*__LONG_MY<*_FUNC_IDE2_LONG_V))||new_error){ +if(qbevent){evnt(26070,1952,"ide_methods.bas");if(r)goto S_38397;} +do{ +*__LONG_KB= 18688 ; +if(!qbevent)break;evnt(26070,1952,"ide_methods.bas");}while(r); +do{ +SUB_IDEWAIT(); +if(!qbevent)break;evnt(26070,1952,"ide_methods.bas");}while(r); +} +S_38401:; +if ((-(*__LONG_MY>*_FUNC_IDE2_LONG_V))||new_error){ +if(qbevent){evnt(26070,1953,"ide_methods.bas");if(r)goto S_38401;} +do{ +*__LONG_KB= 20736 ; +if(!qbevent)break;evnt(26070,1953,"ide_methods.bas");}while(r); +do{ +SUB_IDEWAIT(); +if(!qbevent)break;evnt(26070,1953,"ide_methods.bas");}while(r); +} +} +} +S_38407:; +if ((-(*_FUNC_IDE2_LONG_HELP_SCROLLBAR_METHOD== 4 ))||new_error){ +if(qbevent){evnt(26070,1960,"ide_methods.bas");if(r)goto S_38407;} +S_38408:; +if ((-(*_FUNC_IDE2_LONG_HELP_SCROLLBAR== 1 ))||new_error){ +if(qbevent){evnt(26070,1961,"ide_methods.bas");if(r)goto S_38408;} +S_38409:; +if ((-(*__LONG_HELP_W> 1 ))||new_error){ +if(qbevent){evnt(26070,1962,"ide_methods.bas");if(r)goto S_38409;} +S_38410:; +if ((-(*__LONG_MX<= 3 ))||new_error){ +if(qbevent){evnt(26070,1963,"ide_methods.bas");if(r)goto S_38410;} +do{ +*__LONG_HELP_SX= 1 ; +if(!qbevent)break;evnt(26070,1964,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_CX= 1 ; +if(!qbevent)break;evnt(26070,1964,"ide_methods.bas");}while(r); +S_38413:; +}else{ +if (-(*__LONG_MX>=(*__LONG_IDEWX- 2 ))){ +if(qbevent){evnt(26070,1965,"ide_methods.bas");if(r)goto S_38413;} +do{ +*__LONG_HELP_SX=*__LONG_HELP_W+ 1 ; +if(!qbevent)break;evnt(26070,1966,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_CX=*__LONG_HELP_W+ 1 ; +if(!qbevent)break;evnt(26070,1966,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_IDE2_LONG_X=*__LONG_MX; +if(!qbevent)break;evnt(26070,1968,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_SINGLE_P=*_FUNC_IDE2_LONG_X- 4 + 0.5E+0 ; +if(!qbevent)break;evnt(26070,1969,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_SINGLE_P=*_FUNC_IDE2_SINGLE_P/ (*__LONG_IDEWX- 3 - 3 ); +if(!qbevent)break;evnt(26070,1970,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=qbr((*_FUNC_IDE2_SINGLE_P**__LONG_HELP_W)+( 1 )); +if(!qbevent)break;evnt(26070,1971,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_SX=*_FUNC_IDE2_LONG_I; +if(!qbevent)break;evnt(26070,1972,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_CX=*_FUNC_IDE2_LONG_I; +if(!qbevent)break;evnt(26070,1972,"ide_methods.bas");}while(r); +} +} +} +} +S_38426:; +if ((-(*_FUNC_IDE2_LONG_HELP_SCROLLBAR== 2 ))||new_error){ +if(qbevent){evnt(26070,1976,"ide_methods.bas");if(r)goto S_38426;} +S_38427:; +if ((-(*__LONG_HELP_H> 1 ))||new_error){ +if(qbevent){evnt(26070,1977,"ide_methods.bas");if(r)goto S_38427;} +S_38428:; +if ((-(*__LONG_MY<=(*__LONG_IDEWY+ 2 )))||new_error){ +if(qbevent){evnt(26070,1979,"ide_methods.bas");if(r)goto S_38428;} +do{ +*__LONG_HELP_CY= 1 ; +if(!qbevent)break;evnt(26070,1980,"ide_methods.bas");}while(r); +S_38430:; +}else{ +if (-(*__LONG_MY>=(*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 3 ))){ +if(qbevent){evnt(26070,1981,"ide_methods.bas");if(r)goto S_38430;} +do{ +*__LONG_HELP_CY=*__LONG_HELP_H+ 1 ; +if(!qbevent)break;evnt(26070,1982,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_IDE2_LONG_Y=*__LONG_MY; +if(!qbevent)break;evnt(26070,1984,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_SINGLE_P=*_FUNC_IDE2_LONG_Y-*__LONG_IDEWY- 3 + 0.5E+0 ; +if(!qbevent)break;evnt(26070,1985,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_SINGLE_P=*_FUNC_IDE2_SINGLE_P/ (*__LONG_IDESUBWINDOW- 3 - 3 ); +if(!qbevent)break;evnt(26070,1986,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=qbr((*_FUNC_IDE2_SINGLE_P**__LONG_HELP_H)+( 1 )); +if(!qbevent)break;evnt(26070,1987,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_CY=*_FUNC_IDE2_LONG_I; +if(!qbevent)break;evnt(26070,1988,"ide_methods.bas");}while(r); +} +} +S_38439:; +if ((-(*__LONG_HELP_CX< 1 ))||new_error){ +if(qbevent){evnt(26070,1991,"ide_methods.bas");if(r)goto S_38439;} +do{ +*__LONG_HELP_CX= 1 ; +if(!qbevent)break;evnt(26070,1991,"ide_methods.bas");}while(r); +} +S_38442:; +if ((-(*__LONG_HELP_CX>(*__LONG_HELP_W+ 1 )))||new_error){ +if(qbevent){evnt(26070,1992,"ide_methods.bas");if(r)goto S_38442;} +do{ +*__LONG_HELP_CX=*__LONG_HELP_W+ 1 ; +if(!qbevent)break;evnt(26070,1992,"ide_methods.bas");}while(r); +} +S_38445:; +if ((-(*__LONG_HELP_CY< 1 ))||new_error){ +if(qbevent){evnt(26070,1993,"ide_methods.bas");if(r)goto S_38445;} +do{ +*__LONG_HELP_CY= 1 ; +if(!qbevent)break;evnt(26070,1993,"ide_methods.bas");}while(r); +} +S_38448:; +if ((-(*__LONG_HELP_CY>(*__LONG_HELP_H+ 1 )))||new_error){ +if(qbevent){evnt(26070,1994,"ide_methods.bas");if(r)goto S_38448;} +do{ +*__LONG_HELP_CY=*__LONG_HELP_H+ 1 ; +if(!qbevent)break;evnt(26070,1994,"ide_methods.bas");}while(r); +} +S_38451:; +if ((-(*__LONG_HELP_CX<*__LONG_HELP_SX))||new_error){ +if(qbevent){evnt(26070,1996,"ide_methods.bas");if(r)goto S_38451;} +do{ +*__LONG_HELP_SX=*__LONG_HELP_CX; +if(!qbevent)break;evnt(26070,1996,"ide_methods.bas");}while(r); +} +S_38454:; +if ((-(*__LONG_HELP_CX>=(*__LONG_HELP_SX+*__LONG_HELP_WW)))||new_error){ +if(qbevent){evnt(26070,1997,"ide_methods.bas");if(r)goto S_38454;} +do{ +*__LONG_HELP_SX=*__LONG_HELP_CX-*__LONG_HELP_WW+ 1 ; +if(!qbevent)break;evnt(26070,1997,"ide_methods.bas");}while(r); +} +S_38457:; +if ((-(*__LONG_HELP_CY<*__LONG_HELP_SY))||new_error){ +if(qbevent){evnt(26070,1998,"ide_methods.bas");if(r)goto S_38457;} +do{ +*__LONG_HELP_SY=*__LONG_HELP_CY; +if(!qbevent)break;evnt(26070,1998,"ide_methods.bas");}while(r); +} +S_38460:; +if ((-(*__LONG_HELP_CY>=(*__LONG_HELP_SY+*__LONG_HELP_WH)))||new_error){ +if(qbevent){evnt(26070,1999,"ide_methods.bas");if(r)goto S_38460;} +do{ +*__LONG_HELP_SY=*__LONG_HELP_CY-*__LONG_HELP_WH+ 1 ; +if(!qbevent)break;evnt(26070,1999,"ide_methods.bas");}while(r); +} +S_38463:; +if ((-(*__LONG_HELP_SX< 1 ))||new_error){ +if(qbevent){evnt(26070,2001,"ide_methods.bas");if(r)goto S_38463;} +do{ +*__LONG_HELP_SX= 1 ; +if(!qbevent)break;evnt(26070,2001,"ide_methods.bas");}while(r); +} +S_38466:; +if ((-(*__LONG_HELP_SY< 1 ))||new_error){ +if(qbevent){evnt(26070,2002,"ide_methods.bas");if(r)goto S_38466;} +do{ +*__LONG_HELP_SY= 1 ; +if(!qbevent)break;evnt(26070,2002,"ide_methods.bas");}while(r); +} +} +} +} +S_38472:; +if ((*__LONG_MCLICK)||new_error){ +if(qbevent){evnt(26070,2023,"ide_methods.bas");if(r)goto S_38472;} +do{ +*__LONG_MCLICK= 0 ; +if(!qbevent)break;evnt(26070,2023,"ide_methods.bas");}while(r); +} +} +} +} +S_38478:; +if ((*__LONG_MCLICK)||new_error){ +if(qbevent){evnt(26070,2034,"ide_methods.bas");if(r)goto S_38478;} +S_38479:; +if (((-(*__LONG_MY==(*__LONG_IDEWY- 4 )))&(-(*__LONG_MX>(*__LONG_IDEWX-( 20 + 10 ))))&(-(*__LONG_MX<(*__LONG_IDEWX- 1 ))))||new_error){ +if(qbevent){evnt(26070,2035,"ide_methods.bas");if(r)goto S_38479;} +S_38480:; +if ((-(*__LONG_MX<=(*__LONG_IDEWX-( 20 + 8 )+ 2 )))||new_error){ +if(qbevent){evnt(26070,2036,"ide_methods.bas");if(r)goto S_38480;} +S_38481:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_IDEFINDTEXT->len== 0 )))||new_error){ +if(qbevent){evnt(26070,2037,"ide_methods.bas");if(r)goto S_38481;} +do{ +*__LONG_IDESYSTEM= 2 ; +if(!qbevent)break;evnt(26070,2038,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL= 0 ; +if(!qbevent)break;evnt(26070,2039,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1= 0 ; +if(!qbevent)break;evnt(26070,2039,"ide_methods.bas");}while(r); +}else{ +do{ +SUB_IDEADDSEARCHED(__STRING_IDEFINDTEXT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2041,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESYSTEM= 1 ; +if(!qbevent)break;evnt(26070,2042,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDEMF3; +if(!qbevent)break;evnt(26070,2042,"ide_methods.bas");}while(r); +} +}else{ +S_38491:; +if ((-(*__LONG_MX==(*__LONG_IDEWX- 3 )))||new_error){ +if(qbevent){evnt(26070,2045,"ide_methods.bas");if(r)goto S_38491;} +LABEL_SHOWRECENTLYSEARCHEDBOX:; +if(qbevent){evnt(26070,2046,"ide_methods.bas");r=0;} +do{ +sub_pcopy( 0 , 3 ); +if(!qbevent)break;evnt(26070,2047,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=25; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATESEARCHBAR; +RETURN_25:; +if(!qbevent)break;evnt(26070,2048,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_F,FUNC_IDESEARCHEDBOX()); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2049,"ide_methods.bas");}while(r); +S_38495:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_F->len))||new_error){ +if(qbevent){evnt(26070,2050,"ide_methods.bas");if(r)goto S_38495;} +do{ +qbs_set(__STRING_IDEFINDTEXT,_FUNC_IDE2_STRING_F); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2050,"ide_methods.bas");}while(r); +} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,2051,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,2051,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEALTHIGHLIGHT= 0 ; +if(!qbevent)break;evnt(26070,2052,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); +if(!qbevent)break;evnt(26070,2053,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,2053,"ide_methods.bas");}while(r); +do{ +sub__printstring( 1 , 1 ,__STRING_MENUBAR,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2053,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESYSTEM= 1 ; +if(!qbevent)break;evnt(26070,2054,"ide_methods.bas");}while(r); +S_38505:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_F->len))||new_error){ +if(qbevent){evnt(26070,2055,"ide_methods.bas");if(r)goto S_38505;} +do{ +goto LABEL_IDEMF3; +if(!qbevent)break;evnt(26070,2055,"ide_methods.bas");}while(r); +} +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,2056,"ide_methods.bas");}while(r); +}else{ +S_38510:; +if ((-(*__LONG_IDESYSTEM== 2 ))||new_error){ +if(qbevent){evnt(26070,2058,"ide_methods.bas");if(r)goto S_38510;} +S_38511:; +if ((*_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL)||new_error){ +if(qbevent){evnt(26070,2059,"ide_methods.bas");if(r)goto S_38511;} +do{ +*_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL= 0 ; +if(!qbevent)break;evnt(26070,2059,"ide_methods.bas");}while(r); +} +S_38514:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_IDEFINDTEXT->len<= 20 )))||new_error){ +if(qbevent){evnt(26070,2061,"ide_methods.bas");if(r)goto S_38514;} +do{ +*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1=*__LONG_MX-(*__LONG_IDEWX-( 20 + 4 )); +if(!qbevent)break;evnt(26070,2062,"ide_methods.bas");}while(r); +}else{ +S_38517:; +if ((-(*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1> 20 ))||new_error){ +if(qbevent){evnt(26070,2064,"ide_methods.bas");if(r)goto S_38517;} +do{ +*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1=(*__LONG_MX-(*__LONG_IDEWX-( 20 + 4 )))+(*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1- 20 ); +if(!qbevent)break;evnt(26070,2065,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1=*__LONG_MX-(*__LONG_IDEWX-( 20 + 4 )); +if(!qbevent)break;evnt(26070,2067,"ide_methods.bas");}while(r); +} +} +}else{ +do{ +*__LONG_IDESYSTEM= 2 ; +if(!qbevent)break;evnt(26070,2071,"ide_methods.bas");}while(r); +S_38525:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_IDEFINDTEXT->len))||new_error){ +if(qbevent){evnt(26070,2072,"ide_methods.bas");if(r)goto S_38525;} +do{ +*_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL= -1 ; +if(!qbevent)break;evnt(26070,2072,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__SX1= 0 ; +if(!qbevent)break;evnt(26070,2072,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1=__STRING_IDEFINDTEXT->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2072,"ide_methods.bas");}while(r); +} +} +} +} +} +} +S_38535:; +if ((-(*__LONG_KB== 16384 ))||new_error){ +if(qbevent){evnt(26070,2081,"ide_methods.bas");if(r)goto S_38535;} +S_38536:; +if ((-(*__LONG_IDEHELP== 1 ))||new_error){ +if(qbevent){evnt(26070,2082,"ide_methods.bas");if(r)goto S_38536;} +S_38537:; +if ((-(*__LONG_IDESYSTEM== 3 ))||new_error){ +if(qbevent){evnt(26070,2083,"ide_methods.bas");if(r)goto S_38537;} +do{ +*__LONG_IDESYSTEM= 1 ; +if(!qbevent)break;evnt(26070,2084,"ide_methods.bas");}while(r); +}else{ +do{ +*__LONG_IDESYSTEM= 3 ; +if(!qbevent)break;evnt(26070,2086,"ide_methods.bas");}while(r); +} +} +} +S_38544:; +if ((-(*__LONG_IDEHELP== 1 ))||new_error){ +if(qbevent){evnt(26070,2091,"ide_methods.bas");if(r)goto S_38544;} +S_38545:; +if ((*__LONG_MCLICK|*__LONG_MCLICK2)||new_error){ +if(qbevent){evnt(26070,2092,"ide_methods.bas");if(r)goto S_38545;} +S_38546:; +if ((-(*__LONG_IDESYSTEM== 3 ))||new_error){ +if(qbevent){evnt(26070,2093,"ide_methods.bas");if(r)goto S_38546;} +S_38547:; +if (((-(*__LONG_MY>= 2 ))&(-(*__LONG_MY<*__LONG_IDEWY)))||new_error){ +if(qbevent){evnt(26070,2094,"ide_methods.bas");if(r)goto S_38547;} +do{ +*__LONG_IDESYSTEM= 1 ; +if(!qbevent)break;evnt(26070,2095,"ide_methods.bas");}while(r); +} +}else{ +S_38551:; +if (((-(*__LONG_MY>=*__LONG_IDEWY))&(-(*__LONG_MY<(*__LONG_IDEWY+*__LONG_IDESUBWINDOW))))||new_error){ +if(qbevent){evnt(26070,2098,"ide_methods.bas");if(r)goto S_38551;} +do{ +*__LONG_IDESYSTEM= 3 ; +if(!qbevent)break;evnt(26070,2099,"ide_methods.bas");}while(r); +} +} +S_38555:; +if ((*__LONG_MCLICK2)||new_error){ +if(qbevent){evnt(26070,2103,"ide_methods.bas");if(r)goto S_38555;} +do{ +goto LABEL_INVOKECONTEXTUALMENU; +if(!qbevent)break;evnt(26070,2104,"ide_methods.bas");}while(r); +} +} +} +S_38560:; +if ((-(*__LONG_IDESYSTEM== 2 ))||new_error){ +if(qbevent){evnt(26070,2109,"ide_methods.bas");if(r)goto S_38560;} +do{ +*_FUNC_IDE2_LONG_Z= 0 ; +if(!qbevent)break;evnt(26070,2110,"ide_methods.bas");}while(r); +S_38562:; +if (((*__LONG_KALT&(-(*__LONG_KB== 18432 )))|(*__LONG_KALT&(-(*__LONG_KB== 20480 ))))||new_error){ +if(qbevent){evnt(26070,2111,"ide_methods.bas");if(r)goto S_38562;} +do{ +goto LABEL_SHOWRECENTLYSEARCHEDBOX; +if(!qbevent)break;evnt(26070,2111,"ide_methods.bas");}while(r); +} +S_38565:; +if ((-(*__LONG_KB== 18432 ))||new_error){ +if(qbevent){evnt(26070,2112,"ide_methods.bas");if(r)goto S_38565;} +do{ +*_FUNC_IDE2_LONG_Z= 1 ; +if(!qbevent)break;evnt(26070,2112,"ide_methods.bas");}while(r); +} +S_38568:; +if ((-(*__LONG_KB== 20480 ))||new_error){ +if(qbevent){evnt(26070,2113,"ide_methods.bas");if(r)goto S_38568;} +do{ +*_FUNC_IDE2_LONG_Z= 1 ; +if(!qbevent)break;evnt(26070,2113,"ide_methods.bas");}while(r); +} +S_38571:; +if ((-(*__LONG_KB== 18688 ))||new_error){ +if(qbevent){evnt(26070,2114,"ide_methods.bas");if(r)goto S_38571;} +do{ +*_FUNC_IDE2_LONG_Z= 1 ; +if(!qbevent)break;evnt(26070,2114,"ide_methods.bas");}while(r); +} +S_38574:; +if ((-(*__LONG_KB== 20736 ))||new_error){ +if(qbevent){evnt(26070,2115,"ide_methods.bas");if(r)goto S_38574;} +do{ +*_FUNC_IDE2_LONG_Z= 1 ; +if(!qbevent)break;evnt(26070,2115,"ide_methods.bas");}while(r); +} +S_38577:; +if ((*__LONG_MWHEEL)||new_error){ +if(qbevent){evnt(26070,2116,"ide_methods.bas");if(r)goto S_38577;} +do{ +*_FUNC_IDE2_LONG_Z= 1 ; +if(!qbevent)break;evnt(26070,2116,"ide_methods.bas");}while(r); +} +S_38580:; +if ((-(*_FUNC_IDE2_LONG_Z== 1 ))||new_error){ +if(qbevent){evnt(26070,2117,"ide_methods.bas");if(r)goto S_38580;} +do{ +*__LONG_IDESYSTEM= 1 ; +if(!qbevent)break;evnt(26070,2117,"ide_methods.bas");}while(r); +} +} +S_38584:; +if ((-(*__LONG_IDESYSTEM== 2 ))||new_error){ +if(qbevent){evnt(26070,2120,"ide_methods.bas");if(r)goto S_38584;} +do{ +qbs_set(_FUNC_IDE2_STRING_A,__STRING_IDEFINDTEXT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2121,"ide_methods.bas");}while(r); +S_38586:; +if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_K->len== 1 ))|(((-(*__LONG_KB== 20992 ))|(-(*__LONG_KB== 21248 ))))))||new_error){ +if(qbevent){evnt(26070,2122,"ide_methods.bas");if(r)goto S_38586;} +S_38587:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ +if(qbevent){evnt(26070,2123,"ide_methods.bas");if(r)goto S_38587;} +do{ +*_FUNC_IDE2_LONG_K=qbs_asc(__STRING_K); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2123,"ide_methods.bas");}while(r); +} +S_38590:; +if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(-(*__LONG_KB== 20992 )))|(*__LONG_KCONTROL&(qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("V",1))))))||new_error){ +if(qbevent){evnt(26070,2124,"ide_methods.bas");if(r)goto S_38590;} +LABEL_PASTEINTOSEARCHFIELD:; +if(qbevent){evnt(26070,2125,"ide_methods.bas");r=0;} +do{ +qbs_set(_FUNC_IDE2_STRING_CLIP,func__clipboard()); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2126,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_X=func_instr(NULL,_FUNC_IDE2_STRING_CLIP,func_chr( 13 ),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2127,"ide_methods.bas");}while(r); +S_38593:; +if ((*_FUNC_IDE2_LONG_X)||new_error){ +if(qbevent){evnt(26070,2128,"ide_methods.bas");if(r)goto S_38593;} +do{ +qbs_set(_FUNC_IDE2_STRING_CLIP,qbs_left(_FUNC_IDE2_STRING_CLIP,*_FUNC_IDE2_LONG_X- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2128,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDE2_LONG_X=func_instr(NULL,_FUNC_IDE2_STRING_CLIP,func_chr( 10 ),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2129,"ide_methods.bas");}while(r); +S_38597:; +if ((*_FUNC_IDE2_LONG_X)||new_error){ +if(qbevent){evnt(26070,2130,"ide_methods.bas");if(r)goto S_38597;} +do{ +qbs_set(_FUNC_IDE2_STRING_CLIP,qbs_left(_FUNC_IDE2_STRING_CLIP,*_FUNC_IDE2_LONG_X- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2130,"ide_methods.bas");}while(r); +} +S_38600:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_CLIP->len))||new_error){ +if(qbevent){evnt(26070,2131,"ide_methods.bas");if(r)goto S_38600;} +S_38601:; +if ((*_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL)||new_error){ +if(qbevent){evnt(26070,2132,"ide_methods.bas");if(r)goto S_38601;} +do{ +*_FUNC_IDE2_LONG_SX1=*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__SX1; +if(!qbevent)break;evnt(26070,2133,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_SX2=*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1; +if(!qbevent)break;evnt(26070,2133,"ide_methods.bas");}while(r); +S_38604:; +if ((-(*_FUNC_IDE2_LONG_SX1>*_FUNC_IDE2_LONG_SX2))||new_error){ +if(qbevent){evnt(26070,2134,"ide_methods.bas");if(r)goto S_38604;} +do{ +swap_32(&*_FUNC_IDE2_LONG_SX1,&*_FUNC_IDE2_LONG_SX2); +if(!qbevent)break;evnt(26070,2134,"ide_methods.bas");}while(r); +} +S_38607:; +if ((-((*_FUNC_IDE2_LONG_SX2-*_FUNC_IDE2_LONG_SX1)>( 0 )))||new_error){ +if(qbevent){evnt(26070,2135,"ide_methods.bas");if(r)goto S_38607;} +do{ +qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(qbs_left(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_SX1),_FUNC_IDE2_STRING_CLIP),qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len-*_FUNC_IDE2_LONG_SX2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2136,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1=*_FUNC_IDE2_LONG_SX1; +if(!qbevent)break;evnt(26070,2137,"ide_methods.bas");}while(r); +S_38610:; +if ((*__BYTE_PASTECURSORATEND)||new_error){ +if(qbevent){evnt(26070,2138,"ide_methods.bas");if(r)goto S_38610;} +do{ +*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1=*_FUNC_IDE2_LONG_SX1+_FUNC_IDE2_STRING_CLIP->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2139,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL= 0 ; +if(!qbevent)break;evnt(26070,2141,"ide_methods.bas");}while(r); +} +}else{ +do{ +qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(qbs_left(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1),_FUNC_IDE2_STRING_CLIP),qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len-*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2144,"ide_methods.bas");}while(r); +S_38617:; +if ((*__BYTE_PASTECURSORATEND)||new_error){ +if(qbevent){evnt(26070,2145,"ide_methods.bas");if(r)goto S_38617;} +do{ +*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1=*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1+_FUNC_IDE2_STRING_CLIP->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2145,"ide_methods.bas");}while(r); +} +} +} +do{ +*_FUNC_IDE2_LONG_K= 255 ; +if(!qbevent)break;evnt(26070,2148,"ide_methods.bas");}while(r); +} +S_38624:; +if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KCONTROL&(qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("A",1))))))||new_error){ +if(qbevent){evnt(26070,2151,"ide_methods.bas");if(r)goto S_38624;} +LABEL_SELECTALLINSEARCHFIELD:; +if(qbevent){evnt(26070,2152,"ide_methods.bas");r=0;} +S_38625:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDE2_STRING_A->len> 0 )))||new_error){ +if(qbevent){evnt(26070,2153,"ide_methods.bas");if(r)goto S_38625;} +do{ +*_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL= -1 ; +if(!qbevent)break;evnt(26070,2154,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__SX1= 0 ; +if(!qbevent)break;evnt(26070,2155,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1=_FUNC_IDE2_STRING_A->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2156,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDE2_LONG_K= 255 ; +if(!qbevent)break;evnt(26070,2158,"ide_methods.bas");}while(r); +} +S_38632:; +if ((qbs_cleanup(qbs_tmp_base,((*__LONG_KCTRL&(-(*__LONG_KB== 20992 )))|(*__LONG_KCONTROL&(qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("C",1)))))))||new_error){ +if(qbevent){evnt(26070,2161,"ide_methods.bas");if(r)goto S_38632;} +LABEL_COPYSEARCHTERM2CLIP:; +if(qbevent){evnt(26070,2162,"ide_methods.bas");r=0;} +S_38633:; +if ((*_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL)||new_error){ +if(qbevent){evnt(26070,2163,"ide_methods.bas");if(r)goto S_38633;} +do{ +*_FUNC_IDE2_LONG_SX1=*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__SX1; +if(!qbevent)break;evnt(26070,2164,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_SX2=*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1; +if(!qbevent)break;evnt(26070,2164,"ide_methods.bas");}while(r); +S_38636:; +if ((-(*_FUNC_IDE2_LONG_SX1>*_FUNC_IDE2_LONG_SX2))||new_error){ +if(qbevent){evnt(26070,2165,"ide_methods.bas");if(r)goto S_38636;} +do{ +swap_32(&*_FUNC_IDE2_LONG_SX1,&*_FUNC_IDE2_LONG_SX2); +if(!qbevent)break;evnt(26070,2165,"ide_methods.bas");}while(r); +} +S_38639:; +if ((-((*_FUNC_IDE2_LONG_SX2-*_FUNC_IDE2_LONG_SX1)>( 0 )))||new_error){ +if(qbevent){evnt(26070,2166,"ide_methods.bas");if(r)goto S_38639;} +do{ +sub__clipboard(func_mid(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_SX1+ 1 ,*_FUNC_IDE2_LONG_SX2-*_FUNC_IDE2_LONG_SX1,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2166,"ide_methods.bas");}while(r); +} +} +do{ +*_FUNC_IDE2_LONG_K= 255 ; +if(!qbevent)break;evnt(26070,2168,"ide_methods.bas");}while(r); +} +S_38645:; +if ((qbs_cleanup(qbs_tmp_base,((*__LONG_KSHIFT&(-(*__LONG_KB== 21248 )))|(*__LONG_KCONTROL&(qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("X",1)))))))||new_error){ +if(qbevent){evnt(26070,2171,"ide_methods.bas");if(r)goto S_38645;} +LABEL_CUTTOCLIPBOARDSEARCHFIELD:; +if(qbevent){evnt(26070,2172,"ide_methods.bas");r=0;} +S_38646:; +if ((*_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL)||new_error){ +if(qbevent){evnt(26070,2173,"ide_methods.bas");if(r)goto S_38646;} +do{ +*_FUNC_IDE2_LONG_SX1=*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__SX1; +if(!qbevent)break;evnt(26070,2174,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_SX2=*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1; +if(!qbevent)break;evnt(26070,2174,"ide_methods.bas");}while(r); +S_38649:; +if ((-(*_FUNC_IDE2_LONG_SX1>*_FUNC_IDE2_LONG_SX2))||new_error){ +if(qbevent){evnt(26070,2175,"ide_methods.bas");if(r)goto S_38649;} +do{ +swap_32(&*_FUNC_IDE2_LONG_SX1,&*_FUNC_IDE2_LONG_SX2); +if(!qbevent)break;evnt(26070,2175,"ide_methods.bas");}while(r); +} +S_38652:; +if ((-((*_FUNC_IDE2_LONG_SX2-*_FUNC_IDE2_LONG_SX1)>( 0 )))||new_error){ +if(qbevent){evnt(26070,2176,"ide_methods.bas");if(r)goto S_38652;} +do{ +sub__clipboard(func_mid(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_SX1+ 1 ,*_FUNC_IDE2_LONG_SX2-*_FUNC_IDE2_LONG_SX1,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2177,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_left(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_SX1),qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len-*_FUNC_IDE2_LONG_SX2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2179,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1=*_FUNC_IDE2_LONG_SX1; +if(!qbevent)break;evnt(26070,2180,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL= 0 ; +if(!qbevent)break;evnt(26070,2181,"ide_methods.bas");}while(r); +} +} +do{ +*_FUNC_IDE2_LONG_K= 255 ; +if(!qbevent)break;evnt(26070,2184,"ide_methods.bas");}while(r); +} +S_38661:; +if ((-(*_FUNC_IDE2_LONG_K== 8 ))||new_error){ +if(qbevent){evnt(26070,2187,"ide_methods.bas");if(r)goto S_38661;} +S_38662:; +if ((*_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL)||new_error){ +if(qbevent){evnt(26070,2188,"ide_methods.bas");if(r)goto S_38662;} +do{ +*_FUNC_IDE2_LONG_SX1=*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__SX1; +if(!qbevent)break;evnt(26070,2189,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_SX2=*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1; +if(!qbevent)break;evnt(26070,2189,"ide_methods.bas");}while(r); +S_38665:; +if ((-(*_FUNC_IDE2_LONG_SX1>*_FUNC_IDE2_LONG_SX2))||new_error){ +if(qbevent){evnt(26070,2190,"ide_methods.bas");if(r)goto S_38665;} +do{ +swap_32(&*_FUNC_IDE2_LONG_SX1,&*_FUNC_IDE2_LONG_SX2); +if(!qbevent)break;evnt(26070,2190,"ide_methods.bas");}while(r); +} +S_38668:; +if ((-((*_FUNC_IDE2_LONG_SX2-*_FUNC_IDE2_LONG_SX1)>( 0 )))||new_error){ +if(qbevent){evnt(26070,2191,"ide_methods.bas");if(r)goto S_38668;} +do{ +qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_left(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_SX1),qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len-*_FUNC_IDE2_LONG_SX2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2193,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_IDEFINDTEXT,_FUNC_IDE2_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2194,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1=*_FUNC_IDE2_LONG_SX1; +if(!qbevent)break;evnt(26070,2195,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL= 0 ; +if(!qbevent)break;evnt(26070,2196,"ide_methods.bas");}while(r); +} +S_38674:; +}else{ +if (-(*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1> 0 )){ +if(qbevent){evnt(26070,2198,"ide_methods.bas");if(r)goto S_38674;} +do{ +qbs_set(_FUNC_IDE2_STRING_A1,qbs_left(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2199,"ide_methods.bas");}while(r); +S_38676:; +if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1<=_FUNC_IDE2_STRING_A->len)))||new_error){ +if(qbevent){evnt(26070,2200,"ide_methods.bas");if(r)goto S_38676;} +do{ +qbs_set(_FUNC_IDE2_STRING_A2,qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len-*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2200,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDE2_STRING_A2,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2200,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDE2_STRING_A,qbs_add(_FUNC_IDE2_STRING_A1,_FUNC_IDE2_STRING_A2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2201,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1=*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1- 1 ; +if(!qbevent)break;evnt(26070,2201,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_IDEFINDTEXT,_FUNC_IDE2_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2202,"ide_methods.bas");}while(r); +} +} +} +S_38686:; +if ((-(*_FUNC_IDE2_LONG_K== 27 ))||new_error){ +if(qbevent){evnt(26070,2205,"ide_methods.bas");if(r)goto S_38686;} +do{ +*__LONG_IDESYSTEM= 1 ; +if(!qbevent)break;evnt(26070,2206,"ide_methods.bas");}while(r); +do{ +goto LABEL_SPECIALCHAR; +if(!qbevent)break;evnt(26070,2207,"ide_methods.bas");}while(r); +} +S_38690:; +if ((-(*_FUNC_IDE2_LONG_K== 9 ))||new_error){ +if(qbevent){evnt(26070,2209,"ide_methods.bas");if(r)goto S_38690;} +do{ +*__LONG_IDESYSTEM= 1 ; +if(!qbevent)break;evnt(26070,2210,"ide_methods.bas");}while(r); +do{ +goto LABEL_SPECIALCHAR; +if(!qbevent)break;evnt(26070,2211,"ide_methods.bas");}while(r); +} +S_38694:; +if ((-(*_FUNC_IDE2_LONG_K== 13 ))||new_error){ +if(qbevent){evnt(26070,2213,"ide_methods.bas");if(r)goto S_38694;} +S_38695:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_IDEFINDTEXT->len))||new_error){ +if(qbevent){evnt(26070,2214,"ide_methods.bas");if(r)goto S_38695;} +do{ +SUB_IDEADDSEARCHED(__STRING_IDEFINDTEXT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2215,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDEMF3; +if(!qbevent)break;evnt(26070,2216,"ide_methods.bas");}while(r); +} +do{ +goto LABEL_SPECIALCHAR; +if(!qbevent)break;evnt(26070,2218,"ide_methods.bas");}while(r); +} +S_38701:; +if (((-(*_FUNC_IDE2_LONG_K!= 8 ))&(-(*_FUNC_IDE2_LONG_K!= 9 ))&(-(*_FUNC_IDE2_LONG_K!= 0 ))&(-(*_FUNC_IDE2_LONG_K!= 10 ))&(-(*_FUNC_IDE2_LONG_K!= 13 ))&(-(*_FUNC_IDE2_LONG_K!= 26 ))&(-(*_FUNC_IDE2_LONG_K!= 255 )))||new_error){ +if(qbevent){evnt(26070,2220,"ide_methods.bas");if(r)goto S_38701;} +S_38702:; +if ((*_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL)||new_error){ +if(qbevent){evnt(26070,2221,"ide_methods.bas");if(r)goto S_38702;} +do{ +*_FUNC_IDE2_LONG_SX1=*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__SX1; +if(!qbevent)break;evnt(26070,2222,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_SX2=*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1; +if(!qbevent)break;evnt(26070,2222,"ide_methods.bas");}while(r); +S_38705:; +if ((-(*_FUNC_IDE2_LONG_SX1>*_FUNC_IDE2_LONG_SX2))||new_error){ +if(qbevent){evnt(26070,2223,"ide_methods.bas");if(r)goto S_38705;} +do{ +swap_32(&*_FUNC_IDE2_LONG_SX1,&*_FUNC_IDE2_LONG_SX2); +if(!qbevent)break;evnt(26070,2223,"ide_methods.bas");}while(r); +} +S_38708:; +if ((-((*_FUNC_IDE2_LONG_SX2-*_FUNC_IDE2_LONG_SX1)>( 0 )))||new_error){ +if(qbevent){evnt(26070,2224,"ide_methods.bas");if(r)goto S_38708;} +do{ +qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_left(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_SX1),qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len-*_FUNC_IDE2_LONG_SX2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2226,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_IDEFINDTEXT,_FUNC_IDE2_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2227,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL= 0 ; +if(!qbevent)break;evnt(26070,2228,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1=*_FUNC_IDE2_LONG_SX1; +if(!qbevent)break;evnt(26070,2229,"ide_methods.bas");}while(r); +} +} +S_38715:; +if ((-(*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1> 0 ))||new_error){ +if(qbevent){evnt(26070,2232,"ide_methods.bas");if(r)goto S_38715;} +do{ +qbs_set(_FUNC_IDE2_STRING_A1,qbs_left(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2232,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDE2_STRING_A1,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2232,"ide_methods.bas");}while(r); +} +S_38720:; +if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1<=_FUNC_IDE2_STRING_A->len)))||new_error){ +if(qbevent){evnt(26070,2233,"ide_methods.bas");if(r)goto S_38720;} +do{ +qbs_set(_FUNC_IDE2_STRING_A2,qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len-*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2233,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDE2_STRING_A2,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2233,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(_FUNC_IDE2_STRING_A1,__STRING_K),_FUNC_IDE2_STRING_A2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2234,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1=*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1+ 1 ; +if(!qbevent)break;evnt(26070,2234,"ide_methods.bas");}while(r); +} +do{ +qbs_set(__STRING_IDEFINDTEXT,_FUNC_IDE2_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2236,"ide_methods.bas");}while(r); +} +S_38730:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,(qbs_add(func_chr( 0 ),func_chr( 60 ))))))||new_error){ +if(qbevent){evnt(26070,2239,"ide_methods.bas");if(r)goto S_38730;} +do{ +*__LONG_IDESYSTEM= 1 ; +if(!qbevent)break;evnt(26070,2240,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDESUBSJMP; +if(!qbevent)break;evnt(26070,2241,"ide_methods.bas");}while(r); +} +S_38734:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,(qbs_add(func_chr( 0 ),qbs_new_txt_len("S",1))))))||new_error){ +if(qbevent){evnt(26070,2244,"ide_methods.bas");if(r)goto S_38734;} +LABEL_DELETESELECTIONSEARCHFIELD:; +if(qbevent){evnt(26070,2245,"ide_methods.bas");r=0;} +S_38735:; +if ((*_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL)||new_error){ +if(qbevent){evnt(26070,2246,"ide_methods.bas");if(r)goto S_38735;} +do{ +*_FUNC_IDE2_LONG_SX1=*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__SX1; +if(!qbevent)break;evnt(26070,2247,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_SX2=*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1; +if(!qbevent)break;evnt(26070,2247,"ide_methods.bas");}while(r); +S_38738:; +if ((-(*_FUNC_IDE2_LONG_SX1>*_FUNC_IDE2_LONG_SX2))||new_error){ +if(qbevent){evnt(26070,2248,"ide_methods.bas");if(r)goto S_38738;} +do{ +swap_32(&*_FUNC_IDE2_LONG_SX1,&*_FUNC_IDE2_LONG_SX2); +if(!qbevent)break;evnt(26070,2248,"ide_methods.bas");}while(r); +} +S_38741:; +if ((-((*_FUNC_IDE2_LONG_SX2-*_FUNC_IDE2_LONG_SX1)>( 0 )))||new_error){ +if(qbevent){evnt(26070,2249,"ide_methods.bas");if(r)goto S_38741;} +do{ +qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_left(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_SX1),qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len-*_FUNC_IDE2_LONG_SX2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2251,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_IDEFINDTEXT,_FUNC_IDE2_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2252,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1=*_FUNC_IDE2_LONG_SX1; +if(!qbevent)break;evnt(26070,2253,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL= 0 ; +if(!qbevent)break;evnt(26070,2254,"ide_methods.bas");}while(r); +} +}else{ +S_38748:; +if ((-(*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1> 0 ))||new_error){ +if(qbevent){evnt(26070,2257,"ide_methods.bas");if(r)goto S_38748;} +do{ +qbs_set(_FUNC_IDE2_STRING_A1,qbs_left(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2257,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDE2_STRING_A1,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2257,"ide_methods.bas");}while(r); +} +S_38753:; +if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1<_FUNC_IDE2_STRING_A->len)))||new_error){ +if(qbevent){evnt(26070,2258,"ide_methods.bas");if(r)goto S_38753;} +do{ +qbs_set(_FUNC_IDE2_STRING_A2,qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len-*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2258,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDE2_STRING_A2,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2258,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDE2_STRING_A,qbs_add(_FUNC_IDE2_STRING_A1,_FUNC_IDE2_STRING_A2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2259,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_IDEFINDTEXT,_FUNC_IDE2_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2260,"ide_methods.bas");}while(r); +} +} +S_38762:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,(qbs_add(func_chr( 0 ),qbs_new_txt_len("K",1))))))||new_error){ +if(qbevent){evnt(26070,2265,"ide_methods.bas");if(r)goto S_38762;} +do{ +return_point[next_return_point++]=26; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SELECTCHECK; +RETURN_26:; +if(!qbevent)break;evnt(26070,2265,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1=*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1- 1 ; +if(!qbevent)break;evnt(26070,2265,"ide_methods.bas");}while(r); +} +S_38766:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,(qbs_add(func_chr( 0 ),qbs_new_txt_len("M",1))))))||new_error){ +if(qbevent){evnt(26070,2266,"ide_methods.bas");if(r)goto S_38766;} +do{ +return_point[next_return_point++]=27; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SELECTCHECK; +RETURN_27:; +if(!qbevent)break;evnt(26070,2266,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1=*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1+ 1 ; +if(!qbevent)break;evnt(26070,2266,"ide_methods.bas");}while(r); +} +S_38770:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,(qbs_add(func_chr( 0 ),qbs_new_txt_len("G",1))))))||new_error){ +if(qbevent){evnt(26070,2267,"ide_methods.bas");if(r)goto S_38770;} +do{ +return_point[next_return_point++]=28; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SELECTCHECK; +RETURN_28:; +if(!qbevent)break;evnt(26070,2267,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1= 0 ; +if(!qbevent)break;evnt(26070,2267,"ide_methods.bas");}while(r); +} +S_38774:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,(qbs_add(func_chr( 0 ),qbs_new_txt_len("O",1))))))||new_error){ +if(qbevent){evnt(26070,2268,"ide_methods.bas");if(r)goto S_38774;} +do{ +return_point[next_return_point++]=29; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SELECTCHECK; +RETURN_29:; +if(!qbevent)break;evnt(26070,2268,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1=_FUNC_IDE2_STRING_A->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2268,"ide_methods.bas");}while(r); +} +S_38778:; +if ((-(*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1< 0 ))||new_error){ +if(qbevent){evnt(26070,2269,"ide_methods.bas");if(r)goto S_38778;} +do{ +*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1= 0 ; +if(!qbevent)break;evnt(26070,2269,"ide_methods.bas");}while(r); +} +S_38781:; +if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1>_FUNC_IDE2_STRING_A->len)))||new_error){ +if(qbevent){evnt(26070,2270,"ide_methods.bas");if(r)goto S_38781;} +do{ +*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1=_FUNC_IDE2_STRING_A->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2270,"ide_methods.bas");}while(r); +} +S_38784:; +if ((-(*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1==*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__SX1))||new_error){ +if(qbevent){evnt(26070,2271,"ide_methods.bas");if(r)goto S_38784;} +do{ +*_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL= 0 ; +if(!qbevent)break;evnt(26070,2271,"ide_methods.bas");}while(r); +} +S_38787:; +if ((*__LONG_MCLICK|*__LONG_MCLICK2)||new_error){ +if(qbevent){evnt(26070,2273,"ide_methods.bas");if(r)goto S_38787;} +S_38788:; +if (((-(*__LONG_MX> 1 ))&(-(*__LONG_MX<*__LONG_IDEWX))&(-(*__LONG_MY> 2 ))&(-(*__LONG_MY<(*__LONG_IDEWY- 5 ))))||new_error){ +if(qbevent){evnt(26070,2274,"ide_methods.bas");if(r)goto S_38788;} +do{ +*__LONG_IDESYSTEM= 1 ; +if(!qbevent)break;evnt(26070,2275,"ide_methods.bas");}while(r); +S_38790:; +if ((*__LONG_MCLICK2)||new_error){ +if(qbevent){evnt(26070,2276,"ide_methods.bas");if(r)goto S_38790;} +do{ +goto LABEL_INVOKECONTEXTUALMENU; +if(!qbevent)break;evnt(26070,2276,"ide_methods.bas");}while(r); +}else{ +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,2276,"ide_methods.bas");}while(r); +} +S_38795:; +}else{ +if ((-(*__LONG_MY>=*__LONG_IDEWY))&(-(*__LONG_MY<(*__LONG_IDEWY+*__LONG_IDESUBWINDOW)))){ +if(qbevent){evnt(26070,2277,"ide_methods.bas");if(r)goto S_38795;} +do{ +*__LONG_IDESYSTEM= 3 ; +if(!qbevent)break;evnt(26070,2278,"ide_methods.bas");}while(r); +S_38797:; +if ((*__LONG_MCLICK2)||new_error){ +if(qbevent){evnt(26070,2279,"ide_methods.bas");if(r)goto S_38797;} +do{ +goto LABEL_INVOKECONTEXTUALMENU; +if(!qbevent)break;evnt(26070,2279,"ide_methods.bas");}while(r); +}else{ +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,2279,"ide_methods.bas");}while(r); +} +} +} +} +do{ +goto LABEL_SPECIALCHAR; +if(!qbevent)break;evnt(26070,2283,"ide_methods.bas");}while(r); +} +S_38806:; +if ((-(*__LONG_IDESYSTEM== 3 ))||new_error){ +if(qbevent){evnt(26070,2286,"ide_methods.bas");if(r)goto S_38806;} +S_38807:; +if ((qbs_cleanup(qbs_tmp_base,*__LONG_MCLICK|(qbs_equal(__STRING_K,func_chr( 27 )))))||new_error){ +if(qbevent){evnt(26070,2288,"ide_methods.bas");if(r)goto S_38807;} +S_38808:; +if ((qbs_cleanup(qbs_tmp_base,(((-(*__LONG_MY==*__LONG_IDEWY))&(((-(*__LONG_MX>=(*__LONG_IDEWX- 3 )))&(-(*__LONG_MX<=(*__LONG_IDEWX- 1 )))))))|(qbs_equal(__STRING_K,func_chr( 27 )))))||new_error){ +if(qbevent){evnt(26070,2289,"ide_methods.bas");if(r)goto S_38808;} +LABEL_CLOSEHELP:; +if(qbevent){evnt(26070,2290,"ide_methods.bas");r=0;} +do{ +*__LONG_IDEWY=*__LONG_IDEWY+*__LONG_IDESUBWINDOW; +if(!qbevent)break;evnt(26070,2291,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEHELP= 0 ; +if(!qbevent)break;evnt(26070,2292,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESUBWINDOW= 0 ; +if(!qbevent)break;evnt(26070,2293,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_SKIPDISPLAY= 0 ; +if(!qbevent)break;evnt(26070,2294,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESYSTEM= 1 ; +if(!qbevent)break;evnt(26070,2295,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_RETVAL= 1 ; +if(!qbevent)break;evnt(26070,2296,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=30; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_REDRAWITALL; +RETURN_30:; +if(!qbevent)break;evnt(26070,2296,"ide_methods.bas");}while(r); +} +} +S_38818:; +if ((*__LONG_MCLICK)||new_error){ +if(qbevent){evnt(26070,2301,"ide_methods.bas");if(r)goto S_38818;} +S_38819:; +if ((((-(*__LONG_MY==*__LONG_IDEWY))&(((-(*__LONG_MX>=(*__LONG_IDEWX- 17 )))&(-(*__LONG_MX<=(*__LONG_IDEWX- 4 )))))))||new_error){ +if(qbevent){evnt(26070,2302,"ide_methods.bas");if(r)goto S_38819;} +LABEL_LAUNCHWIKI:; +if(qbevent){evnt(26070,2303,"ide_methods.bas");r=0;} +do{ +qbs_set(_FUNC_IDE2_STRING_URL,qbs_add(qbs_add(__STRING_WIKIBASEADDRESS,qbs_new_txt_len("/index.php?title=",17)),((qbs*)(((uint64*)(__ARRAY_STRING_BACK[0]))[array_check((*__LONG_HELP_BACK_POS)-__ARRAY_STRING_BACK[4],__ARRAY_STRING_BACK[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2304,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_URL,FUNC_STRREPLACE(_FUNC_IDE2_STRING_URL,qbs_new_txt_len(" ",1),qbs_new_txt_len("%20",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2305,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_URL,FUNC_STRREPLACE(_FUNC_IDE2_STRING_URL,qbs_new_txt_len("&",1),qbs_new_txt_len("%26",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2305,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_URL,FUNC_STRREPLACE(_FUNC_IDE2_STRING_URL,qbs_new_txt_len("+",1),qbs_new_txt_len("%2B",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2306,"ide_methods.bas");}while(r); +S_38824:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)== 0 )))||new_error){ +if(qbevent){evnt(26070,2307,"ide_methods.bas");if(r)goto S_38824;} +do{ +qbs_set(_FUNC_IDE2_STRING_URL,FUNC_STRREPLACE(_FUNC_IDE2_STRING_URL,qbs_new_txt_len("$",1),qbs_new_txt_len("\\$",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2308,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_URL,FUNC_STRREPLACE(_FUNC_IDE2_STRING_URL,qbs_new_txt_len("&",1),qbs_new_txt_len("\\&",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2309,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_URL,FUNC_STRREPLACE(_FUNC_IDE2_STRING_URL,qbs_new_txt_len("(",1),qbs_new_txt_len("\\(",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2310,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_URL,FUNC_STRREPLACE(_FUNC_IDE2_STRING_URL,qbs_new_txt_len(")",1),qbs_new_txt_len("\\)",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2311,"ide_methods.bas");}while(r); +} +S_38830:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)))||new_error){ +if(qbevent){evnt(26070,2314,"ide_methods.bas");if(r)goto S_38830;} +do{ +sub_shell2(qbs_add(qbs_new_txt_len("start ",6),_FUNC_IDE2_STRING_URL),3); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2315,"ide_methods.bas");}while(r); +S_38832:; +}else{ +if (qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))){ +if(qbevent){evnt(26070,2316,"ide_methods.bas");if(r)goto S_38832;} +do{ +sub_shell2(qbs_add(qbs_new_txt_len("open ",5),_FUNC_IDE2_STRING_URL),3); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2317,"ide_methods.bas");}while(r); +}else{ +do{ +sub_shell2(qbs_add(qbs_new_txt_len("xdg-open ",9),_FUNC_IDE2_STRING_URL),3); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2319,"ide_methods.bas");}while(r); +} +} +do{ +goto LABEL_SPECIALCHAR; +if(!qbevent)break;evnt(26070,2321,"ide_methods.bas");}while(r); +} +S_38839:; +if ((-(*__LONG_MY==*__LONG_IDEWY))||new_error){ +if(qbevent){evnt(26070,2324,"ide_methods.bas");if(r)goto S_38839;} +do{ +*_FUNC_IDE2_LONG_SX= 2 ; +if(!qbevent)break;evnt(26070,2326,"ide_methods.bas");}while(r); +S_38841:; +fornext_value4202=*_FUNC_IDE2_LONG_BACK_STR_POS; +fornext_finalvalue4202=*_FUNC_IDE2_LONG_BACK_STR_POS+*__LONG_IDEWX- 6 ; +fornext_step4202= 1 ; +if (fornext_step4202<0) fornext_step_negative4202=1; else fornext_step_negative4202=0; +if (new_error) goto fornext_error4202; +goto fornext_entrylabel4202; +while(1){ +fornext_value4202=fornext_step4202+(*_FUNC_IDE2_LONG_X); +fornext_entrylabel4202: +*_FUNC_IDE2_LONG_X=fornext_value4202; +if (fornext_step_negative4202){ +if (fornext_value4202fornext_finalvalue4202) break; +} +fornext_error4202:; +if(qbevent){evnt(26070,2327,"ide_methods.bas");if(r)goto S_38841;} +S_38842:; +if ((-(*__LONG_MX==*_FUNC_IDE2_LONG_SX))||new_error){ +if(qbevent){evnt(26070,2328,"ide_methods.bas");if(r)goto S_38842;} +do{ +*_FUNC_IDE2_LONG_I=string2l(func_mid(_FUNC_IDE2_STRING_BACK_STR_I,((*_FUNC_IDE2_LONG_X- 1 )* 4 )+( 1 ), 4 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2329,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_A=qbs_asc(_FUNC_IDE2_STRING_BACK_STR,*_FUNC_IDE2_LONG_X); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2330,"ide_methods.bas");}while(r); +S_38845:; +if (((-(*_FUNC_IDE2_LONG_A!= 0 ))&(-(*_FUNC_IDE2_LONG_I!=*__LONG_HELP_BACK_POS)))||new_error){ +if(qbevent){evnt(26070,2331,"ide_methods.bas");if(r)goto S_38845;} +do{ +*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16))=*__LONG_HELP_SX; +if(!qbevent)break;evnt(26070,2332,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+4))=*__LONG_HELP_SY; +if(!qbevent)break;evnt(26070,2333,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+8))=*__LONG_HELP_CX; +if(!qbevent)break;evnt(26070,2334,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+12))=*__LONG_HELP_CY; +if(!qbevent)break;evnt(26070,2335,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_BACK_POS=*_FUNC_IDE2_LONG_I; +if(!qbevent)break;evnt(26070,2336,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_SELECT= 0 ; +if(!qbevent)break;evnt(26070,2337,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_MSELECT= 0 ; +if(!qbevent)break;evnt(26070,2337,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_SX=*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16)); +if(!qbevent)break;evnt(26070,2338,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_SY=*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+4)); +if(!qbevent)break;evnt(26070,2339,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_CX=*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+8)); +if(!qbevent)break;evnt(26070,2340,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_CY=*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+12)); +if(!qbevent)break;evnt(26070,2341,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_A,FUNC_WIKI(((qbs*)(((uint64*)(__ARRAY_STRING_BACK[0]))[array_check((*__LONG_HELP_BACK_POS)-__ARRAY_STRING_BACK[4],__ARRAY_STRING_BACK[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2342,"ide_methods.bas");}while(r); +do{ +SUB_WIKIPARSE(_FUNC_IDE2_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2343,"ide_methods.bas");}while(r); +do{ +goto LABEL_NEWPAGEPARSED; +if(!qbevent)break;evnt(26070,2344,"ide_methods.bas");}while(r); +} +} +do{ +*_FUNC_IDE2_LONG_SX=*_FUNC_IDE2_LONG_SX+ 1 ; +if(!qbevent)break;evnt(26070,2347,"ide_methods.bas");}while(r); +fornext_continue_4201:; +} +fornext_exit_4201:; +} +} +S_38866:; +if ((qbs_cleanup(qbs_tmp_base,*__LONG_KCONTROL&(qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("A",1)))))||new_error){ +if(qbevent){evnt(26070,2369,"ide_methods.bas");if(r)goto S_38866;} +LABEL_SELECTALLINHELP:; +if(qbevent){evnt(26070,2370,"ide_methods.bas");r=0;} +S_38867:; +if ((*__LONG_HELP_H)||new_error){ +if(qbevent){evnt(26070,2371,"ide_methods.bas");if(r)goto S_38867;} +do{ +*__LONG_HELP_SELECT= 2 ; +if(!qbevent)break;evnt(26070,2372,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_SELX1= 1 ; +if(!qbevent)break;evnt(26070,2373,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_SELY1= 1 ; +if(!qbevent)break;evnt(26070,2374,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_SELX2= 10000000 ; +if(!qbevent)break;evnt(26070,2375,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_SELY2=*__LONG_HELP_H; +if(!qbevent)break;evnt(26070,2376,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_CX= 1 ; +if(!qbevent)break;evnt(26070,2377,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_CY=*__LONG_HELP_H+ 1 ; +if(!qbevent)break;evnt(26070,2377,"ide_methods.bas");}while(r); +do{ +goto LABEL_KEEP_SELECT; +if(!qbevent)break;evnt(26070,2378,"ide_methods.bas");}while(r); +} +} +S_38878:; +if ((qbs_cleanup(qbs_tmp_base,(((*__LONG_KCTRL&(-(*__LONG_KB== 20992 )))|(*__LONG_KCONTROL&(qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("C",1))))))&(-(*__LONG_HELP_SELECT== 2 ))))||new_error){ +if(qbevent){evnt(26070,2382,"ide_methods.bas");if(r)goto S_38878;} +LABEL_COPYHELP2CLIP:; +if(qbevent){evnt(26070,2383,"ide_methods.bas");r=0;} +do{ +*__LONG_IDEERROR= -1 ; +if(!qbevent)break;evnt(26070,2384,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_CLIP,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2385,"ide_methods.bas");}while(r); +S_38881:; +fornext_value4204=*__LONG_HELP_SELY1; +fornext_finalvalue4204=*__LONG_HELP_SELY2; +fornext_step4204= 1 ; +if (fornext_step4204<0) fornext_step_negative4204=1; else fornext_step_negative4204=0; +if (new_error) goto fornext_error4204; +goto fornext_entrylabel4204; +while(1){ +fornext_value4204=fornext_step4204+(*_FUNC_IDE2_LONG_Y); +fornext_entrylabel4204: +*_FUNC_IDE2_LONG_Y=fornext_value4204; +if (fornext_step_negative4204){ +if (fornext_value4204fornext_finalvalue4204) break; +} +fornext_error4204:; +if(qbevent){evnt(26070,2386,"ide_methods.bas");if(r)goto S_38881;} +S_38882:; +if ((-(*_FUNC_IDE2_LONG_Y!=*__LONG_HELP_SELY1))||new_error){ +if(qbevent){evnt(26070,2387,"ide_methods.bas");if(r)goto S_38882;} +do{ +qbs_set(_FUNC_IDE2_STRING_CLIP,qbs_add(qbs_add(_FUNC_IDE2_STRING_CLIP,func_chr( 13 )),func_chr( 10 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2387,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDE2_STRING_A,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2388,"ide_methods.bas");}while(r); +S_38886:; +if ((-(*_FUNC_IDE2_LONG_Y<=*__LONG_HELP_H))||new_error){ +if(qbevent){evnt(26070,2389,"ide_methods.bas");if(r)goto S_38886;} +do{ +*_FUNC_IDE2_LONG_L=string2l(func_mid(__STRING_HELP_LINE,((*_FUNC_IDE2_LONG_Y- 1 )* 4 )+( 1 ), 4 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2390,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_X=*_FUNC_IDE2_LONG_L; +if(!qbevent)break;evnt(26070,2391,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_X3= 1 ; +if(!qbevent)break;evnt(26070,2392,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_C=qbs_asc(__STRING_HELP_TXT,*_FUNC_IDE2_LONG_X); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2393,"ide_methods.bas");}while(r); +S_38891:; +while((!(qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_HELP_TXT,*_FUNC_IDE2_LONG_X+ 1 )> 127 ))))||new_error){ +if(qbevent){evnt(26070,2394,"ide_methods.bas");if(r)goto S_38891;} +S_38892:; +if ((-(*__LONG_HELP_SELECT== 2 ))||new_error){ +if(qbevent){evnt(26070,2395,"ide_methods.bas");if(r)goto S_38892;} +S_38893:; +if (((-(*_FUNC_IDE2_LONG_Y>=*__LONG_HELP_SELY1))&(-(*_FUNC_IDE2_LONG_Y<=*__LONG_HELP_SELY2)))||new_error){ +if(qbevent){evnt(26070,2396,"ide_methods.bas");if(r)goto S_38893;} +S_38894:; +if (((-(*_FUNC_IDE2_LONG_X3>=*__LONG_HELP_SELX1))&(-(*_FUNC_IDE2_LONG_X3<=*__LONG_HELP_SELX2)))||new_error){ +if(qbevent){evnt(26070,2397,"ide_methods.bas");if(r)goto S_38894;} +do{ +qbs_set(_FUNC_IDE2_STRING_A,qbs_add(_FUNC_IDE2_STRING_A,func_chr(*_FUNC_IDE2_LONG_C))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2398,"ide_methods.bas");}while(r); +} +} +} +do{ +*_FUNC_IDE2_LONG_X3=*_FUNC_IDE2_LONG_X3+ 1 ; +if(!qbevent)break;evnt(26070,2402,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_X=*_FUNC_IDE2_LONG_X+ 4 ; +if(!qbevent)break;evnt(26070,2402,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_C=qbs_asc(__STRING_HELP_TXT,*_FUNC_IDE2_LONG_X); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2402,"ide_methods.bas");}while(r); +dl_continue_4205:; +} +dl_exit_4205:; +} +do{ +qbs_set(_FUNC_IDE2_STRING_CLIP,qbs_add(_FUNC_IDE2_STRING_CLIP,_FUNC_IDE2_STRING_A)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2405,"ide_methods.bas");}while(r); +fornext_continue_4203:; +} +fornext_exit_4203:; +S_38906:; +if (((-(*__LONG_HELP_SELY1==*__LONG_HELP_SELY2))&(-(*__LONG_HELP_CY>*__LONG_HELP_CY1)))||new_error){ +if(qbevent){evnt(26070,2407,"ide_methods.bas");if(r)goto S_38906;} +do{ +qbs_set(_FUNC_IDE2_STRING_CLIP,qbs_add(qbs_add(_FUNC_IDE2_STRING_CLIP,func_chr( 13 )),func_chr( 10 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2407,"ide_methods.bas");}while(r); +} +S_38909:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_IDE2_STRING_CLIP,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,2408,"ide_methods.bas");if(r)goto S_38909;} +do{ +sub__clipboard(_FUNC_IDE2_STRING_CLIP); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2408,"ide_methods.bas");}while(r); +} +do{ +*__LONG_IDEERROR= 1 ; +if(!qbevent)break;evnt(26070,2409,"ide_methods.bas");}while(r); +do{ +goto LABEL_KEEP_SELECT; +if(!qbevent)break;evnt(26070,2410,"ide_methods.bas");}while(r); +} +S_38915:; +if (((-(*__LONG_MX>=*__LONG_HELP_WX1))&(-(*__LONG_MY>=*__LONG_HELP_WY1))&(-(*__LONG_MX<=*__LONG_HELP_WX2))&(-(*__LONG_MY<=*__LONG_HELP_WY2)))||new_error){ +if(qbevent){evnt(26070,2414,"ide_methods.bas");if(r)goto S_38915;} +S_38916:; +if ((*__LONG_MCLICK)||new_error){ +if(qbevent){evnt(26070,2415,"ide_methods.bas");if(r)goto S_38916;} +do{ +*__LONG_HELP_CX=*__LONG_HELP_SX+(*__LONG_MX-*__LONG_HELP_WX1); +if(!qbevent)break;evnt(26070,2416,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_CY=*__LONG_HELP_SY+(*__LONG_MY-*__LONG_HELP_WY1); +if(!qbevent)break;evnt(26070,2417,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_SELECT= 1 ; +if(!qbevent)break;evnt(26070,2418,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_MSELECT= 1 ; +if(!qbevent)break;evnt(26070,2419,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_CX1=*__LONG_HELP_CX; +if(!qbevent)break;evnt(26070,2420,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_CY1=*__LONG_HELP_CY; +if(!qbevent)break;evnt(26070,2420,"ide_methods.bas");}while(r); +do{ +goto LABEL_KEEP_SELECT; +if(!qbevent)break;evnt(26070,2421,"ide_methods.bas");}while(r); +} +S_38925:; +if (((*__LONG_MB&(-(*_FUNC_IDE2_LONG_HELP_SCROLLBAR== 0 ))))||new_error){ +if(qbevent){evnt(26070,2423,"ide_methods.bas");if(r)goto S_38925;} +do{ +*__LONG_HELP_CX=*__LONG_HELP_SX+(*__LONG_MX-*__LONG_HELP_WX1); +if(!qbevent)break;evnt(26070,2424,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_CY=*__LONG_HELP_SY+(*__LONG_MY-*__LONG_HELP_WY1); +if(!qbevent)break;evnt(26070,2425,"ide_methods.bas");}while(r); +S_38928:; +if ((*__LONG_HELP_SELECT)||new_error){ +if(qbevent){evnt(26070,2426,"ide_methods.bas");if(r)goto S_38928;} +do{ +goto LABEL_KEEP_SELECT; +if(!qbevent)break;evnt(26070,2426,"ide_methods.bas");}while(r); +} +} +}else{ +S_38933:; +if ((((*__LONG_MB&(-(*_FUNC_IDE2_LONG_HELP_SCROLLBAR== 0 ))))&(-(*__LONG_HELP_MSELECT== 1 ))&(-(*__LONG_HELP_SELECT== 2 )))||new_error){ +if(qbevent){evnt(26070,2430,"ide_methods.bas");if(r)goto S_38933;} +S_38934:; +if ((-(*__LONG_MX<*__LONG_HELP_WX1))||new_error){ +if(qbevent){evnt(26070,2431,"ide_methods.bas");if(r)goto S_38934;} +do{ +*__LONG_HELP_CX=*__LONG_HELP_CX- 1 ; +if(!qbevent)break;evnt(26070,2431,"ide_methods.bas");}while(r); +} +S_38937:; +if ((-(*__LONG_MX>*__LONG_HELP_WX2))||new_error){ +if(qbevent){evnt(26070,2432,"ide_methods.bas");if(r)goto S_38937;} +do{ +*__LONG_HELP_CX=*__LONG_HELP_CX+ 1 ; +if(!qbevent)break;evnt(26070,2432,"ide_methods.bas");}while(r); +} +S_38940:; +if ((-(*__LONG_MY<*__LONG_HELP_WY1))||new_error){ +if(qbevent){evnt(26070,2433,"ide_methods.bas");if(r)goto S_38940;} +do{ +*__LONG_HELP_CY=*__LONG_HELP_CY- 1 ; +if(!qbevent)break;evnt(26070,2433,"ide_methods.bas");}while(r); +} +S_38943:; +if ((-(*__LONG_MY>*__LONG_HELP_WY2))||new_error){ +if(qbevent){evnt(26070,2434,"ide_methods.bas");if(r)goto S_38943;} +do{ +*__LONG_HELP_CY=*__LONG_HELP_CY+ 1 ; +if(!qbevent)break;evnt(26070,2434,"ide_methods.bas");}while(r); +} +do{ +goto LABEL_KEEP_SELECT; +if(!qbevent)break;evnt(26070,2435,"ide_methods.bas");}while(r); +} +} +S_38949:; +if ((*__LONG_KSHIFT)||new_error){ +if(qbevent){evnt(26070,2439,"ide_methods.bas");if(r)goto S_38949;} +S_38950:; +if ((-(*__LONG_HELP_SELECT== 0 ))||new_error){ +if(qbevent){evnt(26070,2440,"ide_methods.bas");if(r)goto S_38950;} +do{ +*__LONG_HELP_SELECT= 1 ; +if(!qbevent)break;evnt(26070,2441,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_MSELECT= 0 ; +if(!qbevent)break;evnt(26070,2442,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_CX1=*__LONG_HELP_CX; +if(!qbevent)break;evnt(26070,2443,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_CY1=*__LONG_HELP_CY; +if(!qbevent)break;evnt(26070,2443,"ide_methods.bas");}while(r); +} +}else{ +S_38957:; +if (((((-(*__LONG_KB> 0 ))|(-(*__LONG_MWHEEL!= 0 ))))&(-(*__LONG_KSTATECHANGED== 0 )))||new_error){ +if(qbevent){evnt(26070,2446,"ide_methods.bas");if(r)goto S_38957;} +do{ +*__LONG_HELP_SELECT= 0 ; +if(!qbevent)break;evnt(26070,2446,"ide_methods.bas");}while(r); +} +} +LABEL_KEEP_SELECT:; +if(qbevent){evnt(26070,2448,"ide_methods.bas");r=0;} +S_38961:; +if ((-(*__LONG_KB== 9 ))||new_error){ +if(qbevent){evnt(26070,2450,"ide_methods.bas");if(r)goto S_38961;} +S_38962:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_HELP_SEARCH_STR->len))||new_error){ +if(qbevent){evnt(26070,2451,"ide_methods.bas");if(r)goto S_38962;} +do{ +*_FUNC_IDE2_LONG_NOREP= 1 ; +if(!qbevent)break;evnt(26070,2451,"ide_methods.bas");}while(r); +do{ +goto LABEL_SEARCHNEXT; +if(!qbevent)break;evnt(26070,2451,"ide_methods.bas");}while(r); +} +} +S_38967:; +if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_K->len== 1 ))&(-(*__LONG_KCONTROL== 0 ))))||new_error){ +if(qbevent){evnt(26070,2454,"ide_methods.bas");if(r)goto S_38967;} +do{ +*_FUNC_IDE2_LONG_K=qbs_asc(__STRING_K); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2455,"ide_methods.bas");}while(r); +S_38969:; +if ((((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((*_FUNC_IDE2_LONG_K)-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]|(-(*_FUNC_IDE2_LONG_K== 36 ))|(-(*_FUNC_IDE2_LONG_K== 32 )))||new_error){ +if(qbevent){evnt(26070,2456,"ide_methods.bas");if(r)goto S_38969;} +do{ +*_FUNC_IDE2_LONG_NOREP= 0 ; +if(!qbevent)break;evnt(26070,2457,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_DOUBLE_T=func_timer( 0.001E+0 ,0|1); +if(!qbevent)break;evnt(26070,2458,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_OLDK= 0 ; +if(!qbevent)break;evnt(26070,2459,"ide_methods.bas");}while(r); +S_38973:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_HELP_SEARCH_STR->len))||new_error){ +if(qbevent){evnt(26070,2459,"ide_methods.bas");if(r)goto S_38973;} +do{ +*_FUNC_IDE2_LONG_OLDK=qbs_asc(__STRING_HELP_SEARCH_STR,__STRING_HELP_SEARCH_STR->len); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2459,"ide_methods.bas");}while(r); +} +S_38976:; +if ((qbs_cleanup(qbs_tmp_base,(-(((double)(*_FUNC_IDE2_DOUBLE_T))>((double)((*__DOUBLE_HELP_SEARCH_TIME+ 1 )))))|(-(((double)(*_FUNC_IDE2_DOUBLE_T))<((double)(*__DOUBLE_HELP_SEARCH_TIME))))|(((-(*_FUNC_IDE2_LONG_K==*_FUNC_IDE2_LONG_OLDK))&(-(__STRING_HELP_SEARCH_STR->len== 1 ))))))||new_error){ +if(qbevent){evnt(26070,2460,"ide_methods.bas");if(r)goto S_38976;} +S_38977:; +if ((-(*_FUNC_IDE2_LONG_K==*_FUNC_IDE2_LONG_OLDK))||new_error){ +if(qbevent){evnt(26070,2461,"ide_methods.bas");if(r)goto S_38977;} +do{ +*_FUNC_IDE2_LONG_NOREP= 1 ; +if(!qbevent)break;evnt(26070,2461,"ide_methods.bas");}while(r); +} +do{ +qbs_set(__STRING_HELP_SEARCH_STR,__STRING_K); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2462,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(__STRING_HELP_SEARCH_STR,qbs_add(__STRING_HELP_SEARCH_STR,__STRING_K)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2464,"ide_methods.bas");}while(r); +} +do{ +*__DOUBLE_HELP_SEARCH_TIME=*_FUNC_IDE2_DOUBLE_T; +if(!qbevent)break;evnt(26070,2466,"ide_methods.bas");}while(r); +LABEL_SEARCHNEXT:; +if(qbevent){evnt(26070,2468,"ide_methods.bas");r=0;} +do{ +*_FUNC_IDE2_LONG_OX=*__LONG_HELP_CX; +if(!qbevent)break;evnt(26070,2469,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_OY=*__LONG_HELP_CY; +if(!qbevent)break;evnt(26070,2470,"ide_methods.bas");}while(r); +S_38987:; +if ((-(*_FUNC_IDE2_LONG_OY>*__LONG_HELP_H))||new_error){ +if(qbevent){evnt(26070,2471,"ide_methods.bas");if(r)goto S_38987;} +do{ +*_FUNC_IDE2_LONG_OY= 1 ; +if(!qbevent)break;evnt(26070,2471,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDE2_LONG_CY=*_FUNC_IDE2_LONG_OY; +if(!qbevent)break;evnt(26070,2472,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_CX=*_FUNC_IDE2_LONG_OX; +if(!qbevent)break;evnt(26070,2473,"ide_methods.bas");}while(r); +S_38992:; +if ((-(*_FUNC_IDE2_LONG_NOREP== 1 ))||new_error){ +if(qbevent){evnt(26070,2474,"ide_methods.bas");if(r)goto S_38992;} +do{ +*_FUNC_IDE2_LONG_CX=*_FUNC_IDE2_LONG_CX+ 1 ; +if(!qbevent)break;evnt(26070,2474,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDE2_LONG_LOOPED= 0 ; +if(!qbevent)break;evnt(26070,2475,"ide_methods.bas");}while(r); +S_38996:; +do{ +if(qbevent){evnt(26070,2476,"ide_methods.bas");if(r)goto S_38996;} +do{ +*_FUNC_IDE2_LONG_L=string2l(func_mid(__STRING_HELP_LINE,((*_FUNC_IDE2_LONG_CY- 1 )* 4 )+( 1 ), 4 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2478,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_X=*_FUNC_IDE2_LONG_L; +if(!qbevent)break;evnt(26070,2479,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_A,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2480,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_C=qbs_asc(__STRING_HELP_TXT,*_FUNC_IDE2_LONG_X); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2481,"ide_methods.bas");}while(r); +S_39001:; +while((!(qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_HELP_TXT,*_FUNC_IDE2_LONG_X+ 1 )> 127 ))))||new_error){ +if(qbevent){evnt(26070,2482,"ide_methods.bas");if(r)goto S_39001;} +do{ +*_FUNC_IDE2_LONG_LNK=string2i(func_mid(__STRING_HELP_TXT,*_FUNC_IDE2_LONG_X+ 2 , 2 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2483,"ide_methods.bas");}while(r); +S_39003:; +if ((*_FUNC_IDE2_LONG_LNK)||new_error){ +if(qbevent){evnt(26070,2484,"ide_methods.bas");if(r)goto S_39003;} +do{ +qbs_set(_FUNC_IDE2_STRING_A,qbs_add(_FUNC_IDE2_STRING_A,func_chr(*_FUNC_IDE2_LONG_C))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2484,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDE2_STRING_A,qbs_add(_FUNC_IDE2_STRING_A,func_chr( 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2484,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDE2_LONG_X=*_FUNC_IDE2_LONG_X+ 4 ; +if(!qbevent)break;evnt(26070,2485,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_C=qbs_asc(__STRING_HELP_TXT,*_FUNC_IDE2_LONG_X); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2485,"ide_methods.bas");}while(r); +dl_continue_4212:; +} +dl_exit_4212:; +LABEL_HELPSCANROW:; +if(qbevent){evnt(26070,2488,"ide_methods.bas");r=0;} +do{ +*_FUNC_IDE2_LONG_PX=func_instr(*_FUNC_IDE2_LONG_CX,qbs_ucase(_FUNC_IDE2_STRING_A),qbs_ucase(__STRING_HELP_SEARCH_STR),0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2489,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_PX2=func_instr(*_FUNC_IDE2_LONG_CX,qbs_ucase(_FUNC_IDE2_STRING_A),qbs_ucase(qbs_add(qbs_new_txt_len("_",1),__STRING_HELP_SEARCH_STR)),0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2490,"ide_methods.bas");}while(r); +S_39013:; +if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_IDE2_LONG_PX2<*_FUNC_IDE2_LONG_PX))&(-(*_FUNC_IDE2_LONG_PX2!= 0 ))&(qbs_notequal(qbs_left(__STRING_HELP_SEARCH_STR, 1 ),qbs_new_txt_len("_",1)))))||new_error){ +if(qbevent){evnt(26070,2491,"ide_methods.bas");if(r)goto S_39013;} +do{ +*_FUNC_IDE2_LONG_PX=*_FUNC_IDE2_LONG_PX2; +if(!qbevent)break;evnt(26070,2491,"ide_methods.bas");}while(r); +} +S_39016:; +if (((-(*_FUNC_IDE2_LONG_LOOPED== 1 ))&(-(*_FUNC_IDE2_LONG_CY==*_FUNC_IDE2_LONG_OY))&(-(*_FUNC_IDE2_LONG_PX== 0 )))||new_error){ +if(qbevent){evnt(26070,2493,"ide_methods.bas");if(r)goto S_39016;} +do{ +goto LABEL_STRNOTFOUND; +if(!qbevent)break;evnt(26070,2493,"ide_methods.bas");}while(r); +} +S_39019:; +if ((*_FUNC_IDE2_LONG_PX)||new_error){ +if(qbevent){evnt(26070,2494,"ide_methods.bas");if(r)goto S_39019;} +do{ +*_FUNC_IDE2_LONG_L=string2l(func_mid(__STRING_HELP_LINE,((*_FUNC_IDE2_LONG_CY- 1 )* 4 )+( 1 ), 4 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2496,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_X=*_FUNC_IDE2_LONG_L; +if(!qbevent)break;evnt(26070,2497,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_X2= 1 ; +if(!qbevent)break;evnt(26070,2498,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_A,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2499,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_C=qbs_asc(__STRING_HELP_TXT,*_FUNC_IDE2_LONG_X); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2500,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_OLDLNK= 0 ; +if(!qbevent)break;evnt(26070,2501,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_LNKX1= 0 ; +if(!qbevent)break;evnt(26070,2502,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_LNKX2= 0 ; +if(!qbevent)break;evnt(26070,2502,"ide_methods.bas");}while(r); +S_39028:; +while((!(qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_HELP_TXT,*_FUNC_IDE2_LONG_X+ 1 )> 127 ))))||new_error){ +if(qbevent){evnt(26070,2503,"ide_methods.bas");if(r)goto S_39028;} +do{ +*_FUNC_IDE2_LONG_LNK=string2i(func_mid(__STRING_HELP_TXT,*_FUNC_IDE2_LONG_X+ 2 , 2 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2504,"ide_methods.bas");}while(r); +S_39030:; +if (((-(*_FUNC_IDE2_LONG_LNKX1== 0 ))&(-(*_FUNC_IDE2_LONG_LNK!= 0 ))&(-(*_FUNC_IDE2_LONG_OLDLNK== 0 ))&(-(*_FUNC_IDE2_LONG_PX==*_FUNC_IDE2_LONG_X2)))||new_error){ +if(qbevent){evnt(26070,2505,"ide_methods.bas");if(r)goto S_39030;} +do{ +*_FUNC_IDE2_LONG_LNKX1=*_FUNC_IDE2_LONG_X2; +if(!qbevent)break;evnt(26070,2505,"ide_methods.bas");}while(r); +} +S_39033:; +if (((-(*_FUNC_IDE2_LONG_LNKX1!= 0 ))&(-(*_FUNC_IDE2_LONG_LNK== 0 ))&(-(*_FUNC_IDE2_LONG_LNKX2== 0 )))||new_error){ +if(qbevent){evnt(26070,2506,"ide_methods.bas");if(r)goto S_39033;} +do{ +*_FUNC_IDE2_LONG_LNKX2=*_FUNC_IDE2_LONG_X2- 1 ; +if(!qbevent)break;evnt(26070,2506,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDE2_LONG_X=*_FUNC_IDE2_LONG_X+ 4 ; +if(!qbevent)break;evnt(26070,2507,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_C=qbs_asc(__STRING_HELP_TXT,*_FUNC_IDE2_LONG_X); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2507,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_X2=*_FUNC_IDE2_LONG_X2+ 1 ; +if(!qbevent)break;evnt(26070,2508,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_OLDLNK=*_FUNC_IDE2_LONG_LNK; +if(!qbevent)break;evnt(26070,2509,"ide_methods.bas");}while(r); +dl_continue_4213:; +} +dl_exit_4213:; +S_39041:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_BACK_NAME[0]))[array_check((*__LONG_HELP_BACK_POS)-__ARRAY_STRING_BACK_NAME[4],__ARRAY_STRING_BACK_NAME[5])])),qbs_new_txt_len("Alphabetical",12)))|(qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_BACK_NAME[0]))[array_check((*__LONG_HELP_BACK_POS)-__ARRAY_STRING_BACK_NAME[4],__ARRAY_STRING_BACK_NAME[5])])),qbs_new_txt_len("By Usage",8)))))||new_error){ +if(qbevent){evnt(26070,2512,"ide_methods.bas");if(r)goto S_39041;} +S_39042:; +if ((-(*_FUNC_IDE2_LONG_LNKX1> 3 ))||new_error){ +if(qbevent){evnt(26070,2513,"ide_methods.bas");if(r)goto S_39042;} +do{ +*_FUNC_IDE2_LONG_CX=*_FUNC_IDE2_LONG_PX+ 1 ; +if(!qbevent)break;evnt(26070,2514,"ide_methods.bas");}while(r); +do{ +goto LABEL_HELPSCANROW; +if(!qbevent)break;evnt(26070,2515,"ide_methods.bas");}while(r); +} +} +S_39047:; +if ((*_FUNC_IDE2_LONG_LNKX1)||new_error){ +if(qbevent){evnt(26070,2519,"ide_methods.bas");if(r)goto S_39047;} +S_39048:; +if ((-(*_FUNC_IDE2_LONG_LNKX2== 0 ))||new_error){ +if(qbevent){evnt(26070,2520,"ide_methods.bas");if(r)goto S_39048;} +do{ +*_FUNC_IDE2_LONG_LNKX2=*_FUNC_IDE2_LONG_X2- 1 ; +if(!qbevent)break;evnt(26070,2520,"ide_methods.bas");}while(r); +} +do{ +*__LONG_HELP_SELECT= 2 ; +if(!qbevent)break;evnt(26070,2521,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_CX1=*_FUNC_IDE2_LONG_LNKX2+ 1 ; +if(!qbevent)break;evnt(26070,2522,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_CX=*_FUNC_IDE2_LONG_LNKX1; +if(!qbevent)break;evnt(26070,2523,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_CY=*_FUNC_IDE2_LONG_CY; +if(!qbevent)break;evnt(26070,2524,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_CY1=*_FUNC_IDE2_LONG_CY; +if(!qbevent)break;evnt(26070,2525,"ide_methods.bas");}while(r); +do{ +goto LABEL_FOUNDSSTR; +if(!qbevent)break;evnt(26070,2526,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDE2_LONG_CX=*_FUNC_IDE2_LONG_PX+ 1 ; +if(!qbevent)break;evnt(26070,2529,"ide_methods.bas");}while(r); +do{ +goto LABEL_HELPSCANROW; +if(!qbevent)break;evnt(26070,2530,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDE2_LONG_CX= 1 ; +if(!qbevent)break;evnt(26070,2532,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_CY=*_FUNC_IDE2_LONG_CY+ 1 ; +if(!qbevent)break;evnt(26070,2533,"ide_methods.bas");}while(r); +S_39063:; +if ((-(*_FUNC_IDE2_LONG_CY>*__LONG_HELP_H))||new_error){ +if(qbevent){evnt(26070,2534,"ide_methods.bas");if(r)goto S_39063;} +do{ +*_FUNC_IDE2_LONG_CY= 1 ; +if(!qbevent)break;evnt(26070,2534,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_LOOPED= 1 ; +if(!qbevent)break;evnt(26070,2534,"ide_methods.bas");}while(r); +} +dl_continue_4211:; +}while(1); +dl_exit_4211:; +} +} +LABEL_FOUNDSSTR:; +if(qbevent){evnt(26070,2538,"ide_methods.bas");r=0;} +S_39070:; +if ((*__LONG_HELP_LINKL)||new_error){ +if(qbevent){evnt(26070,2539,"ide_methods.bas");if(r)goto S_39070;} +do{ +*__LONG_HELP_SELECT= 0 ; +if(!qbevent)break;evnt(26070,2540,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_SY=*_FUNC_IDE2_LONG_CY- 3 ; +if(!qbevent)break;evnt(26070,2540,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_HELP_SEARCH_STR,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2541,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_LINKL= 0 ; +if(!qbevent)break;evnt(26070,2541,"ide_methods.bas");}while(r); +} +LABEL_STRNOTFOUND:; +if(qbevent){evnt(26070,2543,"ide_methods.bas");r=0;} +S_39076:; +if (((-(*__LONG_KB== 18176 ))&*__LONG_KCONTROL)||new_error){ +if(qbevent){evnt(26070,2545,"ide_methods.bas");if(r)goto S_39076;} +do{ +*__LONG_HELP_CX= 1 ; +if(!qbevent)break;evnt(26070,2546,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_CY= 1 ; +if(!qbevent)break;evnt(26070,2546,"ide_methods.bas");}while(r); +} +S_39080:; +if (((-(*__LONG_KB== 20224 ))&*__LONG_KCONTROL)||new_error){ +if(qbevent){evnt(26070,2548,"ide_methods.bas");if(r)goto S_39080;} +do{ +*__LONG_HELP_CX= 1 ; +if(!qbevent)break;evnt(26070,2549,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_CY=*__LONG_HELP_H+ 1 ; +if(!qbevent)break;evnt(26070,2549,"ide_methods.bas");}while(r); +} +S_39084:; +if (((-(*__LONG_KB== 18176 ))&(-(*__LONG_KCONTROL== 0 )))||new_error){ +if(qbevent){evnt(26070,2552,"ide_methods.bas");if(r)goto S_39084;} +do{ +*__LONG_HELP_CX= 1 ; +if(!qbevent)break;evnt(26070,2552,"ide_methods.bas");}while(r); +} +S_39087:; +if (((-(*__LONG_KB== 20224 ))&(-(*__LONG_KCONTROL== 0 )))||new_error){ +if(qbevent){evnt(26070,2553,"ide_methods.bas");if(r)goto S_39087;} +do{ +*__LONG_HELP_CX=((int32*)(__ARRAY_LONG_HELP_LINELEN[0]))[array_check((*__LONG_HELP_CY-*__LONG_HELP_SY)-__ARRAY_LONG_HELP_LINELEN[4],__ARRAY_LONG_HELP_LINELEN[5])]+ 1 ; +if(!qbevent)break;evnt(26070,2554,"ide_methods.bas");}while(r); +} +S_39090:; +if ((-(*__LONG_KB== 18688 ))||new_error){ +if(qbevent){evnt(26070,2557,"ide_methods.bas");if(r)goto S_39090;} +do{ +*__LONG_HELP_CY=*__LONG_HELP_CY-(*__LONG_HELP_WH- 1 ); +if(!qbevent)break;evnt(26070,2558,"ide_methods.bas");}while(r); +} +S_39093:; +if ((-(*__LONG_KB== 20736 ))||new_error){ +if(qbevent){evnt(26070,2561,"ide_methods.bas");if(r)goto S_39093;} +do{ +*__LONG_HELP_CY=*__LONG_HELP_CY+(*__LONG_HELP_WH- 1 ); +if(!qbevent)break;evnt(26070,2562,"ide_methods.bas");}while(r); +} +S_39096:; +if ((-(*__LONG_KB== 20480 ))||new_error){ +if(qbevent){evnt(26070,2565,"ide_methods.bas");if(r)goto S_39096;} +do{ +*__LONG_HELP_CY=*__LONG_HELP_CY+ 1 ; +if(!qbevent)break;evnt(26070,2565,"ide_methods.bas");}while(r); +} +S_39099:; +if ((-(*__LONG_KB== 18432 ))||new_error){ +if(qbevent){evnt(26070,2566,"ide_methods.bas");if(r)goto S_39099;} +do{ +*__LONG_HELP_CY=*__LONG_HELP_CY- 1 ; +if(!qbevent)break;evnt(26070,2566,"ide_methods.bas");}while(r); +} +S_39102:; +if ((-(*__LONG_KB== 19200 ))||new_error){ +if(qbevent){evnt(26070,2567,"ide_methods.bas");if(r)goto S_39102;} +do{ +*__LONG_HELP_CX=*__LONG_HELP_CX- 1 ; +if(!qbevent)break;evnt(26070,2567,"ide_methods.bas");}while(r); +} +S_39105:; +if ((-(*__LONG_KB== 19712 ))||new_error){ +if(qbevent){evnt(26070,2568,"ide_methods.bas");if(r)goto S_39105;} +do{ +*__LONG_HELP_CX=*__LONG_HELP_CX+ 1 ; +if(!qbevent)break;evnt(26070,2568,"ide_methods.bas");}while(r); +} +S_39108:; +if ((-(*__LONG_MWHEEL< 0 ))||new_error){ +if(qbevent){evnt(26070,2571,"ide_methods.bas");if(r)goto S_39108;} +do{ +*__LONG_HELP_CY=*__LONG_HELP_SY; +if(!qbevent)break;evnt(26070,2571,"ide_methods.bas");}while(r); +} +S_39111:; +if ((-(*__LONG_MWHEEL> 0 ))||new_error){ +if(qbevent){evnt(26070,2572,"ide_methods.bas");if(r)goto S_39111;} +do{ +*__LONG_HELP_CY=*__LONG_HELP_SY+(*__LONG_HELP_WH- 1 ); +if(!qbevent)break;evnt(26070,2572,"ide_methods.bas");}while(r); +} +do{ +*__LONG_HELP_CY=*__LONG_HELP_CY+(*__LONG_MWHEEL* 3 ); +if(!qbevent)break;evnt(26070,2573,"ide_methods.bas");}while(r); +S_39115:; +if ((-(*__LONG_HELP_CX< 1 ))||new_error){ +if(qbevent){evnt(26070,2576,"ide_methods.bas");if(r)goto S_39115;} +do{ +*__LONG_HELP_CX= 1 ; +if(!qbevent)break;evnt(26070,2576,"ide_methods.bas");}while(r); +} +S_39118:; +if ((-(*__LONG_HELP_CX>(*__LONG_HELP_W+ 1 )))||new_error){ +if(qbevent){evnt(26070,2577,"ide_methods.bas");if(r)goto S_39118;} +do{ +*__LONG_HELP_CX=*__LONG_HELP_W+ 1 ; +if(!qbevent)break;evnt(26070,2577,"ide_methods.bas");}while(r); +} +S_39121:; +if ((-(*__LONG_HELP_CY< 1 ))||new_error){ +if(qbevent){evnt(26070,2578,"ide_methods.bas");if(r)goto S_39121;} +do{ +*__LONG_HELP_CY= 1 ; +if(!qbevent)break;evnt(26070,2578,"ide_methods.bas");}while(r); +} +S_39124:; +if ((-(*__LONG_HELP_CY>(*__LONG_HELP_H+ 1 )))||new_error){ +if(qbevent){evnt(26070,2579,"ide_methods.bas");if(r)goto S_39124;} +do{ +*__LONG_HELP_CY=*__LONG_HELP_H+ 1 ; +if(!qbevent)break;evnt(26070,2579,"ide_methods.bas");}while(r); +} +S_39127:; +if ((-(*__LONG_HELP_CX<*__LONG_HELP_SX))||new_error){ +if(qbevent){evnt(26070,2582,"ide_methods.bas");if(r)goto S_39127;} +do{ +*__LONG_HELP_SX=*__LONG_HELP_CX; +if(!qbevent)break;evnt(26070,2582,"ide_methods.bas");}while(r); +} +S_39130:; +if ((-(*__LONG_HELP_CX>=(*__LONG_HELP_SX+*__LONG_HELP_WW)))||new_error){ +if(qbevent){evnt(26070,2583,"ide_methods.bas");if(r)goto S_39130;} +do{ +*__LONG_HELP_SX=*__LONG_HELP_CX-*__LONG_HELP_WW+ 1 ; +if(!qbevent)break;evnt(26070,2583,"ide_methods.bas");}while(r); +} +S_39133:; +if ((-(*__LONG_HELP_CY<*__LONG_HELP_SY))||new_error){ +if(qbevent){evnt(26070,2585,"ide_methods.bas");if(r)goto S_39133;} +do{ +*__LONG_HELP_SY=*__LONG_HELP_CY; +if(!qbevent)break;evnt(26070,2585,"ide_methods.bas");}while(r); +} +S_39136:; +if ((-(*__LONG_HELP_CY>=(*__LONG_HELP_SY+*__LONG_HELP_WH)))||new_error){ +if(qbevent){evnt(26070,2586,"ide_methods.bas");if(r)goto S_39136;} +do{ +*__LONG_HELP_SY=*__LONG_HELP_CY-*__LONG_HELP_WH+ 1 ; +if(!qbevent)break;evnt(26070,2586,"ide_methods.bas");}while(r); +} +S_39139:; +if ((-(*__LONG_HELP_SX< 1 ))||new_error){ +if(qbevent){evnt(26070,2589,"ide_methods.bas");if(r)goto S_39139;} +do{ +*__LONG_HELP_SX= 1 ; +if(!qbevent)break;evnt(26070,2589,"ide_methods.bas");}while(r); +} +S_39142:; +if ((-(*__LONG_HELP_SY< 1 ))||new_error){ +if(qbevent){evnt(26070,2590,"ide_methods.bas");if(r)goto S_39142;} +do{ +*__LONG_HELP_SY= 1 ; +if(!qbevent)break;evnt(26070,2590,"ide_methods.bas");}while(r); +} +S_39145:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,func_chr( 8 ))))||new_error){ +if(qbevent){evnt(26070,2592,"ide_methods.bas");if(r)goto S_39145;} +S_39146:; +if ((-(*__LONG_HELP_BACK_POS> 1 ))||new_error){ +if(qbevent){evnt(26070,2593,"ide_methods.bas");if(r)goto S_39146;} +do{ +*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16))=*__LONG_HELP_SX; +if(!qbevent)break;evnt(26070,2594,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+4))=*__LONG_HELP_SY; +if(!qbevent)break;evnt(26070,2595,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+8))=*__LONG_HELP_CX; +if(!qbevent)break;evnt(26070,2596,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+12))=*__LONG_HELP_CY; +if(!qbevent)break;evnt(26070,2597,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_BACK_POS=*__LONG_HELP_BACK_POS- 1 ; +if(!qbevent)break;evnt(26070,2598,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_SELECT= 0 ; +if(!qbevent)break;evnt(26070,2599,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_MSELECT= 0 ; +if(!qbevent)break;evnt(26070,2599,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_SX=*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16)); +if(!qbevent)break;evnt(26070,2600,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_SY=*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+4)); +if(!qbevent)break;evnt(26070,2601,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_CX=*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+8)); +if(!qbevent)break;evnt(26070,2602,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_CY=*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+12)); +if(!qbevent)break;evnt(26070,2603,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_A,FUNC_WIKI(((qbs*)(((uint64*)(__ARRAY_STRING_BACK[0]))[array_check((*__LONG_HELP_BACK_POS)-__ARRAY_STRING_BACK[4],__ARRAY_STRING_BACK[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2604,"ide_methods.bas");}while(r); +do{ +SUB_WIKIPARSE(_FUNC_IDE2_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2605,"ide_methods.bas");}while(r); +do{ +goto LABEL_NEWPAGEPARSED; +if(!qbevent)break;evnt(26070,2606,"ide_methods.bas");}while(r); +} +} +S_39163:; +if (((-(*__LONG_HELP_CY>= 1 ))&(-(*__LONG_HELP_CY<=*__LONG_HELP_H)))||new_error){ +if(qbevent){evnt(26070,2610,"ide_methods.bas");if(r)goto S_39163;} +do{ +*_FUNC_IDE2_LONG_L=string2l(func_mid(__STRING_HELP_LINE,((*__LONG_HELP_CY- 1 )* 4 )+( 1 ), 4 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2611,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_X=*_FUNC_IDE2_LONG_L; +if(!qbevent)break;evnt(26070,2612,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_X2= 1 ; +if(!qbevent)break;evnt(26070,2613,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_C=qbs_asc(__STRING_HELP_TXT,*_FUNC_IDE2_LONG_X); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2614,"ide_methods.bas");}while(r); +S_39168:; +while((!(qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_HELP_TXT,*_FUNC_IDE2_LONG_X+ 1 )> 127 ))))||new_error){ +if(qbevent){evnt(26070,2615,"ide_methods.bas");if(r)goto S_39168;} +S_39169:; +if ((-(*_FUNC_IDE2_LONG_X2==*__LONG_HELP_CX))||new_error){ +if(qbevent){evnt(26070,2617,"ide_methods.bas");if(r)goto S_39169;} +do{ +*_FUNC_IDE2_LONG_LNK=string2i(func_mid(__STRING_HELP_TXT,*_FUNC_IDE2_LONG_X+ 2 , 2 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2618,"ide_methods.bas");}while(r); +S_39171:; +if ((*_FUNC_IDE2_LONG_LNK)||new_error){ +if(qbevent){evnt(26070,2619,"ide_methods.bas");if(r)goto S_39171;} +do{ +*_FUNC_IDE2_LONG_L1= 1 ; +if(!qbevent)break;evnt(26070,2621,"ide_methods.bas");}while(r); +S_39173:; +fornext_value4216= 1 ; +fornext_finalvalue4216=*_FUNC_IDE2_LONG_LNK- 1 ; +fornext_step4216= 1 ; +if (fornext_step4216<0) fornext_step_negative4216=1; else fornext_step_negative4216=0; +if (new_error) goto fornext_error4216; +goto fornext_entrylabel4216; +while(1){ +fornext_value4216=fornext_step4216+(*_FUNC_IDE2_LONG_LX); +fornext_entrylabel4216: +*_FUNC_IDE2_LONG_LX=fornext_value4216; +if (fornext_step_negative4216){ +if (fornext_value4216fornext_finalvalue4216) break; +} +fornext_error4216:; +if(qbevent){evnt(26070,2622,"ide_methods.bas");if(r)goto S_39173;} +do{ +*_FUNC_IDE2_LONG_L1=func_instr(*_FUNC_IDE2_LONG_L1,__STRING_HELP_LINK,__STRING_HELP_LINK_SEP,0|1)+ 1 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2623,"ide_methods.bas");}while(r); +fornext_continue_4215:; +} +fornext_exit_4215:; +do{ +*_FUNC_IDE2_LONG_L2=func_instr(*_FUNC_IDE2_LONG_L1,__STRING_HELP_LINK,__STRING_HELP_LINK_SEP,0|1)- 1 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2625,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_L,func_mid(__STRING_HELP_LINK,*_FUNC_IDE2_LONG_L1,*_FUNC_IDE2_LONG_L2-*_FUNC_IDE2_LONG_L1+ 1 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2626,"ide_methods.bas");}while(r); +S_39178:; +if ((qbs_cleanup(qbs_tmp_base,*__LONG_MCLICK|(qbs_equal(__STRING_K,func_chr( 13 )))))||new_error){ +if(qbevent){evnt(26070,2628,"ide_methods.bas");if(r)goto S_39178;} +do{ +*__LONG_MCLICK= 0 ; +if(!qbevent)break;evnt(26070,2629,"ide_methods.bas");}while(r); +S_39180:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_IDE2_STRING_L, 5 ),qbs_new_txt_len("EXTL:",5))))||new_error){ +if(qbevent){evnt(26070,2631,"ide_methods.bas");if(r)goto S_39180;} +S_39181:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 13 )))|((-(*__LONG_MY==(*__LONG_HELP_CY-*__LONG_HELP_SY+*__LONG_HELP_WY1)))&(-(*__LONG_MX==(*__LONG_HELP_CX-*__LONG_HELP_SX+*__LONG_HELP_WX1))))))||new_error){ +if(qbevent){evnt(26070,2632,"ide_methods.bas");if(r)goto S_39181;} +do{ +qbs_set(_FUNC_IDE2_STRING_L,func_mid(_FUNC_IDE2_STRING_L, 6 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2633,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_L,FUNC_STRREPLACE(_FUNC_IDE2_STRING_L,qbs_new_txt_len(" ",1),qbs_new_txt_len("%20",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2634,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_L,FUNC_STRREPLACE(_FUNC_IDE2_STRING_L,qbs_new_txt_len("&",1),qbs_new_txt_len("%26",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2635,"ide_methods.bas");}while(r); +S_39185:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)== 0 )))||new_error){ +if(qbevent){evnt(26070,2636,"ide_methods.bas");if(r)goto S_39185;} +do{ +qbs_set(_FUNC_IDE2_STRING_L,FUNC_STRREPLACE(_FUNC_IDE2_STRING_L,qbs_new_txt_len("$",1),qbs_new_txt_len("\\$",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2637,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_L,FUNC_STRREPLACE(_FUNC_IDE2_STRING_L,qbs_new_txt_len("&",1),qbs_new_txt_len("\\&",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2638,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_L,FUNC_STRREPLACE(_FUNC_IDE2_STRING_L,qbs_new_txt_len("(",1),qbs_new_txt_len("\\(",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2639,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_L,FUNC_STRREPLACE(_FUNC_IDE2_STRING_L,qbs_new_txt_len(")",1),qbs_new_txt_len("\\)",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2640,"ide_methods.bas");}while(r); +} +S_39191:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)))||new_error){ +if(qbevent){evnt(26070,2642,"ide_methods.bas");if(r)goto S_39191;} +do{ +sub_shell2(qbs_add(qbs_new_txt_len("start ",6),_FUNC_IDE2_STRING_L),3); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2643,"ide_methods.bas");}while(r); +S_39193:; +}else{ +if (qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))){ +if(qbevent){evnt(26070,2644,"ide_methods.bas");if(r)goto S_39193;} +do{ +sub_shell2(qbs_add(qbs_new_txt_len("open ",5),_FUNC_IDE2_STRING_L),3); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2645,"ide_methods.bas");}while(r); +}else{ +do{ +sub_shell2(qbs_add(qbs_new_txt_len("xdg-open ",9),_FUNC_IDE2_STRING_L),3); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2647,"ide_methods.bas");}while(r); +} +} +} +do{ +goto LABEL_SPECIALCHAR; +if(!qbevent)break;evnt(26070,2650,"ide_methods.bas");}while(r); +S_39200:; +}else{ +if (qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_IDE2_STRING_L, 5 ),qbs_new_txt_len("PAGE:",5)))){ +if(qbevent){evnt(26070,2651,"ide_methods.bas");if(r)goto S_39200;} +do{ +qbs_set(_FUNC_IDE2_STRING_L,func_mid(_FUNC_IDE2_STRING_L, 6 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2652,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_L2=func_instr(NULL,_FUNC_IDE2_STRING_L,qbs_new_txt_len("#",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2653,"ide_methods.bas");}while(r); +S_39203:; +if ((-(*_FUNC_IDE2_LONG_L2> 0 ))||new_error){ +if(qbevent){evnt(26070,2654,"ide_methods.bas");if(r)goto S_39203;} +do{ +qbs_set(__STRING_HELP_SEARCH_STR,FUNC_STRREPLACE(func_mid(_FUNC_IDE2_STRING_L,*_FUNC_IDE2_LONG_L2+ 1 ,NULL,0),qbs_new_txt_len("_",1),qbs_new_txt_len(" ",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2655,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_L,qbs_left(_FUNC_IDE2_STRING_L,*_FUNC_IDE2_LONG_L2- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2656,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_LINKL= -1 ; +if(!qbevent)break;evnt(26070,2656,"ide_methods.bas");}while(r); +} +S_39208:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(((qbs*)(((uint64*)(__ARRAY_STRING_BACK[0]))[array_check((*__LONG_HELP_BACK_POS)-__ARRAY_STRING_BACK[4],__ARRAY_STRING_BACK[5])])),_FUNC_IDE2_STRING_L)))||new_error){ +if(qbevent){evnt(26070,2658,"ide_methods.bas");if(r)goto S_39208;} +do{ +*__LONG_HELP_SELECT= 0 ; +if(!qbevent)break;evnt(26070,2659,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_MSELECT= 0 ; +if(!qbevent)break;evnt(26070,2659,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16))=*__LONG_HELP_SX; +if(!qbevent)break;evnt(26070,2661,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+4))=*__LONG_HELP_SY; +if(!qbevent)break;evnt(26070,2662,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+8))=*__LONG_HELP_CX; +if(!qbevent)break;evnt(26070,2663,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+12))=*__LONG_HELP_CY; +if(!qbevent)break;evnt(26070,2664,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_TOP=func_ubound(__ARRAY_STRING_BACK,1,1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2666,"ide_methods.bas");}while(r); +S_39216:; +if ((-(*__LONG_HELP_BACK_POS<*_FUNC_IDE2_LONG_TOP))||new_error){ +if(qbevent){evnt(26070,2668,"ide_methods.bas");if(r)goto S_39216;} +S_39217:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_BACK[0]))[array_check((*__LONG_HELP_BACK_POS+ 1 )-__ARRAY_STRING_BACK[4],__ARRAY_STRING_BACK[5])])),_FUNC_IDE2_STRING_L)))||new_error){ +if(qbevent){evnt(26070,2669,"ide_methods.bas");if(r)goto S_39217;} +do{ +goto LABEL_USENEXTENTRY; +if(!qbevent)break;evnt(26070,2670,"ide_methods.bas");}while(r); +} +} +do{ +*_FUNC_IDE2_LONG_TOP=*_FUNC_IDE2_LONG_TOP+ 1 ; +if(!qbevent)break;evnt(26070,2674,"ide_methods.bas");}while(r); +do{ if (__ARRAY_STRING_BACK[2]&2){ error(10); @@ -132020,9 +132020,9 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_BACK[0]))[tmp_long]=(uint64)qbs_new_ while(tmp_long--) ((uint64*)(__ARRAY_STRING_BACK[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -} -if(!qbevent)break;evnt(26070,2675,"ide_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26070,2675,"ide_methods.bas");}while(r); +do{ if (__ARRAY_UDT_HELP_BACK[2]&2){ error(10); @@ -132060,9 +132060,9 @@ if (!__ARRAY_UDT_HELP_BACK[0]) error(257); } } __ARRAY_UDT_HELP_BACK[2]|=1; -} -if(!qbevent)break;evnt(26070,2676,"ide_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26070,2676,"ide_methods.bas");}while(r); +do{ if (__ARRAY_STRING_BACK_NAME[2]&2){ error(10); @@ -132105,328 +132105,328 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_BACK_NAME[0]))[tmp_long]=(uint64)qbs while(tmp_long--) ((uint64*)(__ARRAY_STRING_BACK_NAME[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -} -if(!qbevent)break;evnt(26070,2677,"ide_methods.bas");}while(r); -S_39225:; -fornext_value4218=*_FUNC_IDE2_LONG_TOP- 1 ; -fornext_finalvalue4218=*__LONG_HELP_BACK_POS+ 1 ; -fornext_step4218= -1 ; -if (fornext_step4218<0) fornext_step_negative4218=1; else fornext_step_negative4218=0; -if (new_error) goto fornext_error4218; -goto fornext_entrylabel4218; -while(1){ -fornext_value4218=fornext_step4218+(*_FUNC_IDE2_LONG_X); -fornext_entrylabel4218: -*_FUNC_IDE2_LONG_X=fornext_value4218; -if (fornext_step_negative4218){ -if (fornext_value4218fornext_finalvalue4218) break; -} -fornext_error4218:; -if(qbevent){evnt(26070,2679,"ide_methods.bas");if(r)goto S_39225;} -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_X+ 1 )-__ARRAY_STRING_BACK_NAME[4],__ARRAY_STRING_BACK_NAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_BACK_NAME[0]))[tmp_long])),((qbs*)(((uint64*)(__ARRAY_STRING_BACK_NAME[0]))[array_check((*_FUNC_IDE2_LONG_X)-__ARRAY_STRING_BACK_NAME[4],__ARRAY_STRING_BACK_NAME[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2680,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_X+ 1 )-__ARRAY_STRING_BACK[4],__ARRAY_STRING_BACK[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_BACK[0]))[tmp_long])),((qbs*)(((uint64*)(__ARRAY_STRING_BACK[0]))[array_check((*_FUNC_IDE2_LONG_X)-__ARRAY_STRING_BACK[4],__ARRAY_STRING_BACK[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2681,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*_FUNC_IDE2_LONG_X+ 1 )-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16))=*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*_FUNC_IDE2_LONG_X)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16)); -if(!qbevent)break;evnt(26070,2682,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*_FUNC_IDE2_LONG_X+ 1 )-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+4))=*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*_FUNC_IDE2_LONG_X)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+4)); -if(!qbevent)break;evnt(26070,2683,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*_FUNC_IDE2_LONG_X+ 1 )-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+8))=*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*_FUNC_IDE2_LONG_X)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+8)); -if(!qbevent)break;evnt(26070,2684,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*_FUNC_IDE2_LONG_X+ 1 )-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+12))=*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*_FUNC_IDE2_LONG_X)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+12)); -if(!qbevent)break;evnt(26070,2685,"ide_methods.bas");}while(r); -fornext_continue_4217:; -} -fornext_exit_4217:; -LABEL_USENEXTENTRY:; -if(qbevent){evnt(26070,2687,"ide_methods.bas");r=0;} -do{ -*__LONG_HELP_BACK_POS=*__LONG_HELP_BACK_POS+ 1 ; -if(!qbevent)break;evnt(26070,2688,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*__LONG_HELP_BACK_POS)-__ARRAY_STRING_BACK[4],__ARRAY_STRING_BACK[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_BACK[0]))[tmp_long])),_FUNC_IDE2_STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2689,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*__LONG_HELP_BACK_POS)-__ARRAY_STRING_BACK_NAME[4],__ARRAY_STRING_BACK_NAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_BACK_NAME[0]))[tmp_long])),FUNC_BACK2BACKNAME(_FUNC_IDE2_STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2690,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16))= 1 ; -if(!qbevent)break;evnt(26070,2691,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+4))= 1 ; -if(!qbevent)break;evnt(26070,2692,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+8))= 1 ; -if(!qbevent)break;evnt(26070,2693,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+12))= 1 ; -if(!qbevent)break;evnt(26070,2694,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_SX= 1 ; -if(!qbevent)break;evnt(26070,2695,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_SY= 1 ; -if(!qbevent)break;evnt(26070,2695,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_CX= 1 ; -if(!qbevent)break;evnt(26070,2695,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_CY= 1 ; -if(!qbevent)break;evnt(26070,2695,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_A,FUNC_WIKI(_FUNC_IDE2_STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2696,"ide_methods.bas");}while(r); -do{ -SUB_WIKIPARSE(_FUNC_IDE2_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2697,"ide_methods.bas");}while(r); -} -S_39247:; -if ((*__LONG_HELP_LINKL)||new_error){ -if(qbevent){evnt(26070,2699,"ide_methods.bas");if(r)goto S_39247;} -do{ -*_FUNC_IDE2_LONG_NOREP= 1 ; -if(!qbevent)break;evnt(26070,2700,"ide_methods.bas");}while(r); -do{ -goto LABEL_SEARCHNEXT; -if(!qbevent)break;evnt(26070,2700,"ide_methods.bas");}while(r); -}else{ -do{ -goto LABEL_NEWPAGEPARSED; -if(!qbevent)break;evnt(26070,2702,"ide_methods.bas");}while(r); -} -} -} -} -} -} -do{ -*_FUNC_IDE2_LONG_X=*_FUNC_IDE2_LONG_X+ 4 ; -if(!qbevent)break;evnt(26070,2709,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_C=qbs_asc(__STRING_HELP_TXT,*_FUNC_IDE2_LONG_X); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2709,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_X2=*_FUNC_IDE2_LONG_X2+ 1 ; -if(!qbevent)break;evnt(26070,2710,"ide_methods.bas");}while(r); -dl_continue_4214:; -} -dl_exit_4214:; -} -S_39262:; -if ((*__LONG_HELP_SELECT)||new_error){ -if(qbevent){evnt(26070,2714,"ide_methods.bas");if(r)goto S_39262;} -do{ -*__LONG_HELP_SELECT= 1 ; -if(!qbevent)break;evnt(26070,2715,"ide_methods.bas");}while(r); -S_39264:; -if (((-(*__LONG_HELP_CX!=*__LONG_HELP_CX1))|(-(*__LONG_HELP_CY!=*__LONG_HELP_CY1)))||new_error){ -if(qbevent){evnt(26070,2716,"ide_methods.bas");if(r)goto S_39264;} -do{ -*__LONG_HELP_SELECT= 2 ; -if(!qbevent)break;evnt(26070,2716,"ide_methods.bas");}while(r); -} -} -S_39268:; -if ((-(*__LONG_HELP_SELECT== 2 ))||new_error){ -if(qbevent){evnt(26070,2720,"ide_methods.bas");if(r)goto S_39268;} -S_39269:; -if ((-(*__LONG_HELP_CY==*__LONG_HELP_CY1))||new_error){ -if(qbevent){evnt(26070,2721,"ide_methods.bas");if(r)goto S_39269;} -do{ -*__LONG_HELP_SELY1=*__LONG_HELP_CY; -if(!qbevent)break;evnt(26070,2722,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_SELY2=*__LONG_HELP_CY; -if(!qbevent)break;evnt(26070,2722,"ide_methods.bas");}while(r); -S_39272:; -if ((-(*__LONG_HELP_CX>*__LONG_HELP_CX1))||new_error){ -if(qbevent){evnt(26070,2723,"ide_methods.bas");if(r)goto S_39272;} -do{ -*__LONG_HELP_SELX1=*__LONG_HELP_CX1; -if(!qbevent)break;evnt(26070,2724,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_SELX2=*__LONG_HELP_CX- 1 ; -if(!qbevent)break;evnt(26070,2724,"ide_methods.bas");}while(r); -}else{ -do{ -*__LONG_HELP_SELX1=*__LONG_HELP_CX; -if(!qbevent)break;evnt(26070,2726,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_SELX2=*__LONG_HELP_CX1- 1 ; -if(!qbevent)break;evnt(26070,2726,"ide_methods.bas");}while(r); -} -}else{ -do{ -*__LONG_HELP_SELX1= 1 ; -if(!qbevent)break;evnt(26070,2729,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_SELX2= 10000000 ; -if(!qbevent)break;evnt(26070,2729,"ide_methods.bas");}while(r); -S_39282:; -if ((-(*__LONG_HELP_CY>*__LONG_HELP_CY1))||new_error){ -if(qbevent){evnt(26070,2730,"ide_methods.bas");if(r)goto S_39282;} -do{ -*__LONG_HELP_SELY1=*__LONG_HELP_CY1; -if(!qbevent)break;evnt(26070,2731,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_SELY2=*__LONG_HELP_CY; -if(!qbevent)break;evnt(26070,2731,"ide_methods.bas");}while(r); -S_39285:; -if ((-(*__LONG_HELP_CX== 1 ))||new_error){ -if(qbevent){evnt(26070,2732,"ide_methods.bas");if(r)goto S_39285;} -do{ -*__LONG_HELP_SELY2=*__LONG_HELP_CY- 1 ; -if(!qbevent)break;evnt(26070,2732,"ide_methods.bas");}while(r); -} -}else{ -do{ -*__LONG_HELP_SELY1=*__LONG_HELP_CY; -if(!qbevent)break;evnt(26070,2734,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_SELY2=*__LONG_HELP_CY1; -if(!qbevent)break;evnt(26070,2734,"ide_methods.bas");}while(r); -} -} -} -LABEL_NEWPAGEPARSED:; -if(qbevent){evnt(26070,2739,"ide_methods.bas");r=0;} -do{ -goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(26070,2740,"ide_methods.bas");}while(r); -} -S_39296:; -if ((-(*__LONG_KB== 15104 ))||new_error){ -if(qbevent){evnt(26070,2745,"ide_methods.bas");if(r)goto S_39296;} -LABEL_CONTEXTUALHELP:; -if(qbevent){evnt(26070,2746,"ide_methods.bas");r=0;} -do{ -*__BYTE_IDECONTEXTHELPSF= 0 ; -if(!qbevent)break;evnt(26070,2747,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_A2,qbs_ucase(FUNC_GETWORDATCURSOR())); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2749,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_LNKS= 0 ; -if(!qbevent)break;evnt(26070,2750,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_LNKS,FUNC_FINDHELPTOPIC(_FUNC_IDE2_STRING_A2,_FUNC_IDE2_LONG_LNKS,&(pass4219= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2751,"ide_methods.bas");}while(r); -S_39301:; -if ((*_FUNC_IDE2_LONG_LNKS)||new_error){ -if(qbevent){evnt(26070,2753,"ide_methods.bas");if(r)goto S_39301;} -do{ -qbs_set(_FUNC_IDE2_STRING_LNKS,func_mid(_FUNC_IDE2_STRING_LNKS, 2 ,_FUNC_IDE2_STRING_LNKS->len- 2 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2754,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_LNK,_FUNC_IDE2_STRING_LNKS); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2755,"ide_methods.bas");}while(r); -S_39304:; -if ((-(*_FUNC_IDE2_LONG_LNKS> 1 ))||new_error){ -if(qbevent){evnt(26070,2756,"ide_methods.bas");if(r)goto S_39304;} -do{ -qbs_set(_FUNC_IDE2_STRING_LNK,FUNC_IDEF1BOX(_FUNC_IDE2_STRING_LNKS,_FUNC_IDE2_LONG_LNKS)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2758,"ide_methods.bas");}while(r); -S_39306:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_LNK,qbs_new_txt_len("C",1))))||new_error){ -if(qbevent){evnt(26070,2759,"ide_methods.bas");if(r)goto S_39306;} -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,2759,"ide_methods.bas");}while(r); -} -} -S_39310:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,qbs_ucase(_FUNC_IDE2_STRING_LNK),qbs_new_txt_len("PARENTHESIS",11),0)))||new_error){ -if(qbevent){evnt(26070,2762,"ide_methods.bas");if(r)goto S_39310;} -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,2762,"ide_methods.bas");}while(r); -} -LABEL_OPENHELPLINK:; -if(qbevent){evnt(26070,2764,"ide_methods.bas");r=0;} -do{ -*_FUNC_IDE2_LONG_L2=func_instr(NULL,_FUNC_IDE2_STRING_LNK,qbs_new_txt_len("#",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2765,"ide_methods.bas");}while(r); -S_39314:; -if ((-(*_FUNC_IDE2_LONG_L2> 0 ))||new_error){ -if(qbevent){evnt(26070,2766,"ide_methods.bas");if(r)goto S_39314;} -do{ -qbs_set(__STRING_HELP_SEARCH_STR,FUNC_STRREPLACE(func_mid(_FUNC_IDE2_STRING_LNK,*_FUNC_IDE2_LONG_L2+ 1 ,NULL,0),qbs_new_txt_len("_",1),qbs_new_txt_len(" ",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2767,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_LNK,qbs_left(_FUNC_IDE2_STRING_LNK,*_FUNC_IDE2_LONG_L2- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2768,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_LINKL= -1 ; -if(!qbevent)break;evnt(26070,2768,"ide_methods.bas");}while(r); -} -do{ -*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16))=*__LONG_HELP_SX; -if(!qbevent)break;evnt(26070,2772,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+4))=*__LONG_HELP_SY; -if(!qbevent)break;evnt(26070,2773,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+8))=*__LONG_HELP_CX; -if(!qbevent)break;evnt(26070,2774,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+12))=*__LONG_HELP_CY; -if(!qbevent)break;evnt(26070,2775,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_TOP=func_ubound(__ARRAY_STRING_BACK,1,1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2777,"ide_methods.bas");}while(r); -S_39324:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_BACK[0]))[array_check((*__LONG_HELP_BACK_POS)-__ARRAY_STRING_BACK[4],__ARRAY_STRING_BACK[5])])),_FUNC_IDE2_STRING_LNK)))||new_error){ -if(qbevent){evnt(26070,2780,"ide_methods.bas");if(r)goto S_39324;} -do{ -*__LONG_HELP_BACK_POS=*__LONG_HELP_BACK_POS- 1 ; -if(!qbevent)break;evnt(26070,2780,"ide_methods.bas");}while(r); -do{ -goto LABEL_USENEXTENTRY2; -if(!qbevent)break;evnt(26070,2780,"ide_methods.bas");}while(r); -} -S_39328:; -if ((-(*__LONG_HELP_BACK_POS<*_FUNC_IDE2_LONG_TOP))||new_error){ -if(qbevent){evnt(26070,2781,"ide_methods.bas");if(r)goto S_39328;} -S_39329:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_BACK[0]))[array_check((*__LONG_HELP_BACK_POS+ 1 )-__ARRAY_STRING_BACK[4],__ARRAY_STRING_BACK[5])])),_FUNC_IDE2_STRING_LNK)))||new_error){ -if(qbevent){evnt(26070,2782,"ide_methods.bas");if(r)goto S_39329;} -do{ -goto LABEL_USENEXTENTRY2; -if(!qbevent)break;evnt(26070,2783,"ide_methods.bas");}while(r); -} -} -do{ -*_FUNC_IDE2_LONG_TOP=*_FUNC_IDE2_LONG_TOP+ 1 ; -if(!qbevent)break;evnt(26070,2788,"ide_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26070,2677,"ide_methods.bas");}while(r); +S_39225:; +fornext_value4218=*_FUNC_IDE2_LONG_TOP- 1 ; +fornext_finalvalue4218=*__LONG_HELP_BACK_POS+ 1 ; +fornext_step4218= -1 ; +if (fornext_step4218<0) fornext_step_negative4218=1; else fornext_step_negative4218=0; +if (new_error) goto fornext_error4218; +goto fornext_entrylabel4218; +while(1){ +fornext_value4218=fornext_step4218+(*_FUNC_IDE2_LONG_X); +fornext_entrylabel4218: +*_FUNC_IDE2_LONG_X=fornext_value4218; +if (fornext_step_negative4218){ +if (fornext_value4218fornext_finalvalue4218) break; +} +fornext_error4218:; +if(qbevent){evnt(26070,2679,"ide_methods.bas");if(r)goto S_39225;} +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_X+ 1 )-__ARRAY_STRING_BACK_NAME[4],__ARRAY_STRING_BACK_NAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_BACK_NAME[0]))[tmp_long])),((qbs*)(((uint64*)(__ARRAY_STRING_BACK_NAME[0]))[array_check((*_FUNC_IDE2_LONG_X)-__ARRAY_STRING_BACK_NAME[4],__ARRAY_STRING_BACK_NAME[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2680,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_X+ 1 )-__ARRAY_STRING_BACK[4],__ARRAY_STRING_BACK[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_BACK[0]))[tmp_long])),((qbs*)(((uint64*)(__ARRAY_STRING_BACK[0]))[array_check((*_FUNC_IDE2_LONG_X)-__ARRAY_STRING_BACK[4],__ARRAY_STRING_BACK[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2681,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*_FUNC_IDE2_LONG_X+ 1 )-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16))=*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*_FUNC_IDE2_LONG_X)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16)); +if(!qbevent)break;evnt(26070,2682,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*_FUNC_IDE2_LONG_X+ 1 )-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+4))=*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*_FUNC_IDE2_LONG_X)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+4)); +if(!qbevent)break;evnt(26070,2683,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*_FUNC_IDE2_LONG_X+ 1 )-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+8))=*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*_FUNC_IDE2_LONG_X)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+8)); +if(!qbevent)break;evnt(26070,2684,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*_FUNC_IDE2_LONG_X+ 1 )-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+12))=*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*_FUNC_IDE2_LONG_X)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+12)); +if(!qbevent)break;evnt(26070,2685,"ide_methods.bas");}while(r); +fornext_continue_4217:; +} +fornext_exit_4217:; +LABEL_USENEXTENTRY:; +if(qbevent){evnt(26070,2687,"ide_methods.bas");r=0;} +do{ +*__LONG_HELP_BACK_POS=*__LONG_HELP_BACK_POS+ 1 ; +if(!qbevent)break;evnt(26070,2688,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*__LONG_HELP_BACK_POS)-__ARRAY_STRING_BACK[4],__ARRAY_STRING_BACK[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_BACK[0]))[tmp_long])),_FUNC_IDE2_STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2689,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*__LONG_HELP_BACK_POS)-__ARRAY_STRING_BACK_NAME[4],__ARRAY_STRING_BACK_NAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_BACK_NAME[0]))[tmp_long])),FUNC_BACK2BACKNAME(_FUNC_IDE2_STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2690,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16))= 1 ; +if(!qbevent)break;evnt(26070,2691,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+4))= 1 ; +if(!qbevent)break;evnt(26070,2692,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+8))= 1 ; +if(!qbevent)break;evnt(26070,2693,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+12))= 1 ; +if(!qbevent)break;evnt(26070,2694,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_SX= 1 ; +if(!qbevent)break;evnt(26070,2695,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_SY= 1 ; +if(!qbevent)break;evnt(26070,2695,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_CX= 1 ; +if(!qbevent)break;evnt(26070,2695,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_CY= 1 ; +if(!qbevent)break;evnt(26070,2695,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_A,FUNC_WIKI(_FUNC_IDE2_STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2696,"ide_methods.bas");}while(r); +do{ +SUB_WIKIPARSE(_FUNC_IDE2_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2697,"ide_methods.bas");}while(r); +} +S_39247:; +if ((*__LONG_HELP_LINKL)||new_error){ +if(qbevent){evnt(26070,2699,"ide_methods.bas");if(r)goto S_39247;} +do{ +*_FUNC_IDE2_LONG_NOREP= 1 ; +if(!qbevent)break;evnt(26070,2700,"ide_methods.bas");}while(r); +do{ +goto LABEL_SEARCHNEXT; +if(!qbevent)break;evnt(26070,2700,"ide_methods.bas");}while(r); +}else{ +do{ +goto LABEL_NEWPAGEPARSED; +if(!qbevent)break;evnt(26070,2702,"ide_methods.bas");}while(r); +} +} +} +} +} +} +do{ +*_FUNC_IDE2_LONG_X=*_FUNC_IDE2_LONG_X+ 4 ; +if(!qbevent)break;evnt(26070,2709,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_C=qbs_asc(__STRING_HELP_TXT,*_FUNC_IDE2_LONG_X); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2709,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_X2=*_FUNC_IDE2_LONG_X2+ 1 ; +if(!qbevent)break;evnt(26070,2710,"ide_methods.bas");}while(r); +dl_continue_4214:; +} +dl_exit_4214:; +} +S_39262:; +if ((*__LONG_HELP_SELECT)||new_error){ +if(qbevent){evnt(26070,2714,"ide_methods.bas");if(r)goto S_39262;} +do{ +*__LONG_HELP_SELECT= 1 ; +if(!qbevent)break;evnt(26070,2715,"ide_methods.bas");}while(r); +S_39264:; +if (((-(*__LONG_HELP_CX!=*__LONG_HELP_CX1))|(-(*__LONG_HELP_CY!=*__LONG_HELP_CY1)))||new_error){ +if(qbevent){evnt(26070,2716,"ide_methods.bas");if(r)goto S_39264;} +do{ +*__LONG_HELP_SELECT= 2 ; +if(!qbevent)break;evnt(26070,2716,"ide_methods.bas");}while(r); +} +} +S_39268:; +if ((-(*__LONG_HELP_SELECT== 2 ))||new_error){ +if(qbevent){evnt(26070,2720,"ide_methods.bas");if(r)goto S_39268;} +S_39269:; +if ((-(*__LONG_HELP_CY==*__LONG_HELP_CY1))||new_error){ +if(qbevent){evnt(26070,2721,"ide_methods.bas");if(r)goto S_39269;} +do{ +*__LONG_HELP_SELY1=*__LONG_HELP_CY; +if(!qbevent)break;evnt(26070,2722,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_SELY2=*__LONG_HELP_CY; +if(!qbevent)break;evnt(26070,2722,"ide_methods.bas");}while(r); +S_39272:; +if ((-(*__LONG_HELP_CX>*__LONG_HELP_CX1))||new_error){ +if(qbevent){evnt(26070,2723,"ide_methods.bas");if(r)goto S_39272;} +do{ +*__LONG_HELP_SELX1=*__LONG_HELP_CX1; +if(!qbevent)break;evnt(26070,2724,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_SELX2=*__LONG_HELP_CX- 1 ; +if(!qbevent)break;evnt(26070,2724,"ide_methods.bas");}while(r); +}else{ +do{ +*__LONG_HELP_SELX1=*__LONG_HELP_CX; +if(!qbevent)break;evnt(26070,2726,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_SELX2=*__LONG_HELP_CX1- 1 ; +if(!qbevent)break;evnt(26070,2726,"ide_methods.bas");}while(r); +} +}else{ +do{ +*__LONG_HELP_SELX1= 1 ; +if(!qbevent)break;evnt(26070,2729,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_SELX2= 10000000 ; +if(!qbevent)break;evnt(26070,2729,"ide_methods.bas");}while(r); +S_39282:; +if ((-(*__LONG_HELP_CY>*__LONG_HELP_CY1))||new_error){ +if(qbevent){evnt(26070,2730,"ide_methods.bas");if(r)goto S_39282;} +do{ +*__LONG_HELP_SELY1=*__LONG_HELP_CY1; +if(!qbevent)break;evnt(26070,2731,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_SELY2=*__LONG_HELP_CY; +if(!qbevent)break;evnt(26070,2731,"ide_methods.bas");}while(r); +S_39285:; +if ((-(*__LONG_HELP_CX== 1 ))||new_error){ +if(qbevent){evnt(26070,2732,"ide_methods.bas");if(r)goto S_39285;} +do{ +*__LONG_HELP_SELY2=*__LONG_HELP_CY- 1 ; +if(!qbevent)break;evnt(26070,2732,"ide_methods.bas");}while(r); +} +}else{ +do{ +*__LONG_HELP_SELY1=*__LONG_HELP_CY; +if(!qbevent)break;evnt(26070,2734,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_SELY2=*__LONG_HELP_CY1; +if(!qbevent)break;evnt(26070,2734,"ide_methods.bas");}while(r); +} +} +} +LABEL_NEWPAGEPARSED:; +if(qbevent){evnt(26070,2739,"ide_methods.bas");r=0;} +do{ +goto LABEL_SPECIALCHAR; +if(!qbevent)break;evnt(26070,2740,"ide_methods.bas");}while(r); +} +S_39296:; +if ((-(*__LONG_KB== 15104 ))||new_error){ +if(qbevent){evnt(26070,2745,"ide_methods.bas");if(r)goto S_39296;} +LABEL_CONTEXTUALHELP:; +if(qbevent){evnt(26070,2746,"ide_methods.bas");r=0;} +do{ +*__BYTE_IDECONTEXTHELPSF= 0 ; +if(!qbevent)break;evnt(26070,2747,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_A2,qbs_ucase(FUNC_GETWORDATCURSOR())); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2749,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_LNKS= 0 ; +if(!qbevent)break;evnt(26070,2750,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_LNKS,FUNC_FINDHELPTOPIC(_FUNC_IDE2_STRING_A2,_FUNC_IDE2_LONG_LNKS,&(pass4219= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2751,"ide_methods.bas");}while(r); +S_39301:; +if ((*_FUNC_IDE2_LONG_LNKS)||new_error){ +if(qbevent){evnt(26070,2753,"ide_methods.bas");if(r)goto S_39301;} +do{ +qbs_set(_FUNC_IDE2_STRING_LNKS,func_mid(_FUNC_IDE2_STRING_LNKS, 2 ,_FUNC_IDE2_STRING_LNKS->len- 2 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2754,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_LNK,_FUNC_IDE2_STRING_LNKS); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2755,"ide_methods.bas");}while(r); +S_39304:; +if ((-(*_FUNC_IDE2_LONG_LNKS> 1 ))||new_error){ +if(qbevent){evnt(26070,2756,"ide_methods.bas");if(r)goto S_39304;} +do{ +qbs_set(_FUNC_IDE2_STRING_LNK,FUNC_IDEF1BOX(_FUNC_IDE2_STRING_LNKS,_FUNC_IDE2_LONG_LNKS)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2758,"ide_methods.bas");}while(r); +S_39306:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_LNK,qbs_new_txt_len("C",1))))||new_error){ +if(qbevent){evnt(26070,2759,"ide_methods.bas");if(r)goto S_39306;} +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,2759,"ide_methods.bas");}while(r); +} +} +S_39310:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,qbs_ucase(_FUNC_IDE2_STRING_LNK),qbs_new_txt_len("PARENTHESIS",11),0)))||new_error){ +if(qbevent){evnt(26070,2762,"ide_methods.bas");if(r)goto S_39310;} +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,2762,"ide_methods.bas");}while(r); +} +LABEL_OPENHELPLINK:; +if(qbevent){evnt(26070,2764,"ide_methods.bas");r=0;} +do{ +*_FUNC_IDE2_LONG_L2=func_instr(NULL,_FUNC_IDE2_STRING_LNK,qbs_new_txt_len("#",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2765,"ide_methods.bas");}while(r); +S_39314:; +if ((-(*_FUNC_IDE2_LONG_L2> 0 ))||new_error){ +if(qbevent){evnt(26070,2766,"ide_methods.bas");if(r)goto S_39314;} +do{ +qbs_set(__STRING_HELP_SEARCH_STR,FUNC_STRREPLACE(func_mid(_FUNC_IDE2_STRING_LNK,*_FUNC_IDE2_LONG_L2+ 1 ,NULL,0),qbs_new_txt_len("_",1),qbs_new_txt_len(" ",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2767,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_LNK,qbs_left(_FUNC_IDE2_STRING_LNK,*_FUNC_IDE2_LONG_L2- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2768,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_LINKL= -1 ; +if(!qbevent)break;evnt(26070,2768,"ide_methods.bas");}while(r); +} +do{ +*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16))=*__LONG_HELP_SX; +if(!qbevent)break;evnt(26070,2772,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+4))=*__LONG_HELP_SY; +if(!qbevent)break;evnt(26070,2773,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+8))=*__LONG_HELP_CX; +if(!qbevent)break;evnt(26070,2774,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+12))=*__LONG_HELP_CY; +if(!qbevent)break;evnt(26070,2775,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_TOP=func_ubound(__ARRAY_STRING_BACK,1,1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2777,"ide_methods.bas");}while(r); +S_39324:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_BACK[0]))[array_check((*__LONG_HELP_BACK_POS)-__ARRAY_STRING_BACK[4],__ARRAY_STRING_BACK[5])])),_FUNC_IDE2_STRING_LNK)))||new_error){ +if(qbevent){evnt(26070,2780,"ide_methods.bas");if(r)goto S_39324;} +do{ +*__LONG_HELP_BACK_POS=*__LONG_HELP_BACK_POS- 1 ; +if(!qbevent)break;evnt(26070,2780,"ide_methods.bas");}while(r); +do{ +goto LABEL_USENEXTENTRY2; +if(!qbevent)break;evnt(26070,2780,"ide_methods.bas");}while(r); +} +S_39328:; +if ((-(*__LONG_HELP_BACK_POS<*_FUNC_IDE2_LONG_TOP))||new_error){ +if(qbevent){evnt(26070,2781,"ide_methods.bas");if(r)goto S_39328;} +S_39329:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_BACK[0]))[array_check((*__LONG_HELP_BACK_POS+ 1 )-__ARRAY_STRING_BACK[4],__ARRAY_STRING_BACK[5])])),_FUNC_IDE2_STRING_LNK)))||new_error){ +if(qbevent){evnt(26070,2782,"ide_methods.bas");if(r)goto S_39329;} +do{ +goto LABEL_USENEXTENTRY2; +if(!qbevent)break;evnt(26070,2783,"ide_methods.bas");}while(r); +} +} +do{ +*_FUNC_IDE2_LONG_TOP=*_FUNC_IDE2_LONG_TOP+ 1 ; +if(!qbevent)break;evnt(26070,2788,"ide_methods.bas");}while(r); +do{ if (__ARRAY_STRING_BACK[2]&2){ error(10); @@ -132469,9 +132469,9 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_BACK[0]))[tmp_long]=(uint64)qbs_new_ while(tmp_long--) ((uint64*)(__ARRAY_STRING_BACK[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -} -if(!qbevent)break;evnt(26070,2789,"ide_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26070,2789,"ide_methods.bas");}while(r); +do{ if (__ARRAY_UDT_HELP_BACK[2]&2){ error(10); @@ -132509,9 +132509,9 @@ if (!__ARRAY_UDT_HELP_BACK[0]) error(257); } } __ARRAY_UDT_HELP_BACK[2]|=1; -} -if(!qbevent)break;evnt(26070,2790,"ide_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26070,2790,"ide_methods.bas");}while(r); +do{ if (__ARRAY_STRING_BACK_NAME[2]&2){ error(10); @@ -132554,547 +132554,547 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_BACK_NAME[0]))[tmp_long]=(uint64)qbs while(tmp_long--) ((uint64*)(__ARRAY_STRING_BACK_NAME[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -} -if(!qbevent)break;evnt(26070,2791,"ide_methods.bas");}while(r); -S_39337:; -fornext_value4222=*_FUNC_IDE2_LONG_TOP- 1 ; -fornext_finalvalue4222=*__LONG_HELP_BACK_POS+ 1 ; -fornext_step4222= -1 ; -if (fornext_step4222<0) fornext_step_negative4222=1; else fornext_step_negative4222=0; -if (new_error) goto fornext_error4222; -goto fornext_entrylabel4222; -while(1){ -fornext_value4222=fornext_step4222+(*_FUNC_IDE2_LONG_X); -fornext_entrylabel4222: -*_FUNC_IDE2_LONG_X=fornext_value4222; -if (fornext_step_negative4222){ -if (fornext_value4222fornext_finalvalue4222) break; -} -fornext_error4222:; -if(qbevent){evnt(26070,2793,"ide_methods.bas");if(r)goto S_39337;} -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_X+ 1 )-__ARRAY_STRING_BACK_NAME[4],__ARRAY_STRING_BACK_NAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_BACK_NAME[0]))[tmp_long])),((qbs*)(((uint64*)(__ARRAY_STRING_BACK_NAME[0]))[array_check((*_FUNC_IDE2_LONG_X)-__ARRAY_STRING_BACK_NAME[4],__ARRAY_STRING_BACK_NAME[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2794,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_X+ 1 )-__ARRAY_STRING_BACK[4],__ARRAY_STRING_BACK[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_BACK[0]))[tmp_long])),((qbs*)(((uint64*)(__ARRAY_STRING_BACK[0]))[array_check((*_FUNC_IDE2_LONG_X)-__ARRAY_STRING_BACK[4],__ARRAY_STRING_BACK[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2795,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*_FUNC_IDE2_LONG_X+ 1 )-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16))=*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*_FUNC_IDE2_LONG_X)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16)); -if(!qbevent)break;evnt(26070,2796,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*_FUNC_IDE2_LONG_X+ 1 )-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+4))=*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*_FUNC_IDE2_LONG_X)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+4)); -if(!qbevent)break;evnt(26070,2797,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*_FUNC_IDE2_LONG_X+ 1 )-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+8))=*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*_FUNC_IDE2_LONG_X)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+8)); -if(!qbevent)break;evnt(26070,2798,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*_FUNC_IDE2_LONG_X+ 1 )-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+12))=*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*_FUNC_IDE2_LONG_X)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+12)); -if(!qbevent)break;evnt(26070,2799,"ide_methods.bas");}while(r); -fornext_continue_4221:; -} -fornext_exit_4221:; -LABEL_USENEXTENTRY2:; -if(qbevent){evnt(26070,2801,"ide_methods.bas");r=0;} -do{ -*__LONG_HELP_BACK_POS=*__LONG_HELP_BACK_POS+ 1 ; -if(!qbevent)break;evnt(26070,2802,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*__LONG_HELP_BACK_POS)-__ARRAY_STRING_BACK[4],__ARRAY_STRING_BACK[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_BACK[0]))[tmp_long])),_FUNC_IDE2_STRING_LNK); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2803,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*__LONG_HELP_BACK_POS)-__ARRAY_STRING_BACK_NAME[4],__ARRAY_STRING_BACK_NAME[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_BACK_NAME[0]))[tmp_long])),FUNC_BACK2BACKNAME(_FUNC_IDE2_STRING_LNK)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2804,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16))= 1 ; -if(!qbevent)break;evnt(26070,2805,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+4))= 1 ; -if(!qbevent)break;evnt(26070,2806,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+8))= 1 ; -if(!qbevent)break;evnt(26070,2807,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+12))= 1 ; -if(!qbevent)break;evnt(26070,2808,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_SX= 1 ; -if(!qbevent)break;evnt(26070,2809,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_SY= 1 ; -if(!qbevent)break;evnt(26070,2809,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_CX= 1 ; -if(!qbevent)break;evnt(26070,2809,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_CY= 1 ; -if(!qbevent)break;evnt(26070,2809,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_A,FUNC_WIKI(_FUNC_IDE2_STRING_LNK)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2811,"ide_methods.bas");}while(r); -S_39357:; -if ((-(*__LONG_IDEHELP== 0 ))||new_error){ -if(qbevent){evnt(26070,2813,"ide_methods.bas");if(r)goto S_39357;} -S_39358:; -if ((*__LONG_IDESUBWINDOW)||new_error){ -if(qbevent){evnt(26070,2814,"ide_methods.bas");if(r)goto S_39358;} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,2814,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,2814,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,2814,"ide_methods.bas");}while(r); -} -do{ -*__LONG_IDESUBWINDOW=*__LONG_IDEWY/ 2 ; -if(!qbevent)break;evnt(26070,2815,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEWY=*__LONG_IDEWY-*__LONG_IDESUBWINDOW; -if(!qbevent)break;evnt(26070,2815,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_WX1= 2 ; -if(!qbevent)break;evnt(26070,2816,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_WY1=*__LONG_IDEWY+ 1 ; -if(!qbevent)break;evnt(26070,2816,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_WX2=*__LONG_IDEWX- 1 ; -if(!qbevent)break;evnt(26070,2816,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_WY2=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 2 ; -if(!qbevent)break;evnt(26070,2816,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_WW=*__LONG_HELP_WX2-*__LONG_HELP_WX1+ 1 ; -if(!qbevent)break;evnt(26070,2816,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_WH=*__LONG_HELP_WY2-*__LONG_HELP_WY1+ 1 ; -if(!qbevent)break;evnt(26070,2816,"ide_methods.bas");}while(r); -do{ -SUB_WIKIPARSE(_FUNC_IDE2_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2817,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEHELP= 1 ; -if(!qbevent)break;evnt(26070,2818,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_SKIPDISPLAY= 0 ; -if(!qbevent)break;evnt(26070,2819,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESYSTEM= 3 ; -if(!qbevent)break;evnt(26070,2820,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_RETVAL= 1 ; -if(!qbevent)break;evnt(26070,2821,"ide_methods.bas");}while(r); -}else{ -do{ -SUB_WIKIPARSE(_FUNC_IDE2_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2823,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESYSTEM= 3 ; -if(!qbevent)break;evnt(26070,2824,"ide_methods.bas");}while(r); -} -do{ -return_point[next_return_point++]=31; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_REDRAWITALL; -RETURN_31:; -if(!qbevent)break;evnt(26070,2827,"ide_methods.bas");}while(r); -S_39381:; -if ((*__LONG_HELP_LINKL)||new_error){ -if(qbevent){evnt(26070,2828,"ide_methods.bas");if(r)goto S_39381;} -do{ -*_FUNC_IDE2_LONG_NOREP= 1 ; -if(!qbevent)break;evnt(26070,2829,"ide_methods.bas");}while(r); -do{ -goto LABEL_SEARCHNEXT; -if(!qbevent)break;evnt(26070,2829,"ide_methods.bas");}while(r); -}else{ -do{ -goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(26070,2831,"ide_methods.bas");}while(r); -} -}else{ -do{ -qbs_set(_FUNC_IDE2_STRING_A2,qbs_ltrim(qbs_rtrim(_FUNC_IDE2_STRING_A2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2836,"ide_methods.bas");}while(r); -S_39389:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_A2->len))||new_error){ -if(qbevent){evnt(26070,2837,"ide_methods.bas");if(r)goto S_39389;} -S_39390:; -while((!(qbs_cleanup(qbs_tmp_base,((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(qbs_right(_FUNC_IDE2_STRING_A2, 1 )))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])])))||new_error){ -if(qbevent){evnt(26070,2838,"ide_methods.bas");if(r)goto S_39390;} -do{ -qbs_set(_FUNC_IDE2_STRING_A2,qbs_left(_FUNC_IDE2_STRING_A2,_FUNC_IDE2_STRING_A2->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2839,"ide_methods.bas");}while(r); -S_39392:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDE2_STRING_A2->len== 0 )))||new_error){ -if(qbevent){evnt(26070,2840,"ide_methods.bas");if(r)goto S_39392;} -do{ -goto LABEL_NOKEYWORDFOUND; -if(!qbevent)break;evnt(26070,2840,"ide_methods.bas");}while(r); -} -dl_continue_4224:; -} -dl_exit_4224:; -S_39396:; -fornext_value4228= 1 ; -fornext_finalvalue4228=*__LONG_IDEN; -fornext_step4228= 1 ; -if (fornext_step4228<0) fornext_step_negative4228=1; else fornext_step_negative4228=0; -if (new_error) goto fornext_error4228; -goto fornext_entrylabel4228; -while(1){ -fornext_value4228=fornext_step4228+(*_FUNC_IDE2_LONG_Y); -fornext_entrylabel4228: -*_FUNC_IDE2_LONG_Y=fornext_value4228; -if (fornext_step_negative4228){ -if (fornext_value4228fornext_finalvalue4228) break; -} -fornext_error4228:; -if(qbevent){evnt(26070,2843,"ide_methods.bas");if(r)goto S_39396;} -do{ -qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(_FUNC_IDE2_LONG_Y)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2844,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_ltrim(qbs_rtrim(_FUNC_IDE2_STRING_A))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2845,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_SF= 0 ; -if(!qbevent)break;evnt(26070,2846,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_NCA,qbs_ucase(_FUNC_IDE2_STRING_A)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2847,"ide_methods.bas");}while(r); -S_39401:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_IDE2_STRING_NCA, 4 ),qbs_new_txt_len("SUB ",4))))||new_error){ -if(qbevent){evnt(26070,2848,"ide_methods.bas");if(r)goto S_39401;} -do{ -*_FUNC_IDE2_LONG_SF= 1 ; -if(!qbevent)break;evnt(26070,2848,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_SF,qbs_new_txt_len("SUB ",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2848,"ide_methods.bas");}while(r); -} -S_39405:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_IDE2_STRING_NCA, 9 ),qbs_new_txt_len("FUNCTION ",9))))||new_error){ -if(qbevent){evnt(26070,2849,"ide_methods.bas");if(r)goto S_39405;} -do{ -*_FUNC_IDE2_LONG_SF= 2 ; -if(!qbevent)break;evnt(26070,2849,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_SF,qbs_new_txt_len("FUNCTION ",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2849,"ide_methods.bas");}while(r); -} -S_39409:; -if ((*_FUNC_IDE2_LONG_SF)||new_error){ -if(qbevent){evnt(26070,2850,"ide_methods.bas");if(r)goto S_39409;} -S_39410:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_FUNC_IDE2_STRING_NCA, 7 ),qbs_new_txt_len(" STATIC",7))))||new_error){ -if(qbevent){evnt(26070,2851,"ide_methods.bas");if(r)goto S_39410;} -do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_rtrim(qbs_left(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len- 7 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2852,"ide_methods.bas");}while(r); -} -S_39413:; -if ((-(*_FUNC_IDE2_LONG_SF== 1 ))||new_error){ -if(qbevent){evnt(26070,2855,"ide_methods.bas");if(r)goto S_39413;} -do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len- 4 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2856,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len- 9 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2858,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_ltrim(qbs_rtrim(_FUNC_IDE2_STRING_A))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2860,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_X=func_instr(NULL,_FUNC_IDE2_STRING_A,qbs_new_txt_len("(",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2861,"ide_methods.bas");}while(r); -S_39420:; -if ((*_FUNC_IDE2_LONG_X)||new_error){ -if(qbevent){evnt(26070,2862,"ide_methods.bas");if(r)goto S_39420;} -do{ -qbs_set(_FUNC_IDE2_STRING_N,qbs_rtrim(qbs_left(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_X- 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2863,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_ARGS,qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len-*_FUNC_IDE2_LONG_X+ 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2864,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_X=func_instr(NULL,_FUNC_IDE2_STRING_ARGS,qbs_new_txt_len(")",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2865,"ide_methods.bas");}while(r); -S_39424:; -if ((*_FUNC_IDE2_LONG_X)||new_error){ -if(qbevent){evnt(26070,2865,"ide_methods.bas");if(r)goto S_39424;} -do{ -qbs_set(_FUNC_IDE2_STRING_ARGS,qbs_left(_FUNC_IDE2_STRING_ARGS,*_FUNC_IDE2_LONG_X)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2865,"ide_methods.bas");}while(r); -} -}else{ -do{ -qbs_set(_FUNC_IDE2_STRING_N,_FUNC_IDE2_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2867,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_ARGS,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2868,"ide_methods.bas");}while(r); -do{ -SUB_CLEANSUBNAME(_FUNC_IDE2_STRING_N); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2869,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDE2_STRING_BACKUPN,_FUNC_IDE2_STRING_N); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2872,"ide_methods.bas");}while(r); -S_39433:; -while((!(qbs_cleanup(qbs_tmp_base,((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(qbs_right(_FUNC_IDE2_STRING_N, 1 )))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])])))||new_error){ -if(qbevent){evnt(26070,2874,"ide_methods.bas");if(r)goto S_39433;} -do{ -qbs_set(_FUNC_IDE2_STRING_N,qbs_left(_FUNC_IDE2_STRING_N,_FUNC_IDE2_STRING_N->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2875,"ide_methods.bas");}while(r); -dl_continue_4233:; -} -dl_exit_4233:; -S_39436:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_FUNC_IDE2_STRING_N),_FUNC_IDE2_STRING_A2)))||new_error){ -if(qbevent){evnt(26070,2878,"ide_methods.bas");if(r)goto S_39436;} -do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("{{DISPLAYTITLE:agp@",19),_FUNC_IDE2_STRING_BACKUPN),qbs_new_txt_len("}}",2)),func_chr( 10 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2879,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(_FUNC_IDE2_STRING_A,qbs_new_txt_len("This is a subroutine or function that is used in your program as follows:",73)),func_chr( 10 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2880,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_IDE2_STRING_A,func_chr( 10 )),func_chr( 10 )),qbs_new_txt_len("{{PageSyntax}}",14)),func_chr( 10 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2881,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_IDE2_STRING_A,qbs_new_txt_len(": [[",4)),qbs_left(_FUNC_IDE2_STRING_SF,_FUNC_IDE2_STRING_SF->len- 1 )),qbs_new_txt_len("]] '''",6)),_FUNC_IDE2_STRING_BACKUPN),qbs_new_txt_len("''' ",4)),_FUNC_IDE2_STRING_ARGS),func_chr( 10 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2882,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_IDE2_STRING_A,func_chr( 10 )),func_chr( 10 )),qbs_new_txt_len("{{PageSeeAlso}}",15)),func_chr( 10 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2883,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(_FUNC_IDE2_STRING_A,qbs_new_txt_len("* [[Sub (explanatory)]]",23)),func_chr( 10 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2884,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(_FUNC_IDE2_STRING_A,qbs_new_txt_len("* [[Function (explanatory)]]",28)),func_chr( 10 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2885,"ide_methods.bas");}while(r); -do{ -*__BYTE_IDECONTEXTHELPSF= -1 ; -if(!qbevent)break;evnt(26070,2887,"ide_methods.bas");}while(r); -S_39445:; -if ((-(*__LONG_IDEHELP== 0 ))||new_error){ -if(qbevent){evnt(26070,2889,"ide_methods.bas");if(r)goto S_39445;} -S_39446:; -if ((*__LONG_IDESUBWINDOW)||new_error){ -if(qbevent){evnt(26070,2890,"ide_methods.bas");if(r)goto S_39446;} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,2890,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,2890,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,2890,"ide_methods.bas");}while(r); -} -do{ -*__LONG_IDESUBWINDOW=*__LONG_IDEWY/ 2 ; -if(!qbevent)break;evnt(26070,2891,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEWY=*__LONG_IDEWY-*__LONG_IDESUBWINDOW; -if(!qbevent)break;evnt(26070,2891,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_WX1= 2 ; -if(!qbevent)break;evnt(26070,2892,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_WY1=*__LONG_IDEWY+ 1 ; -if(!qbevent)break;evnt(26070,2892,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_WX2=*__LONG_IDEWX- 1 ; -if(!qbevent)break;evnt(26070,2892,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_WY2=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 2 ; -if(!qbevent)break;evnt(26070,2892,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_WW=*__LONG_HELP_WX2-*__LONG_HELP_WX1+ 1 ; -if(!qbevent)break;evnt(26070,2892,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_WH=*__LONG_HELP_WY2-*__LONG_HELP_WY1+ 1 ; -if(!qbevent)break;evnt(26070,2892,"ide_methods.bas");}while(r); -do{ -SUB_WIKIPARSE(_FUNC_IDE2_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2893,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEHELP= 1 ; -if(!qbevent)break;evnt(26070,2894,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_SKIPDISPLAY= 0 ; -if(!qbevent)break;evnt(26070,2895,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESYSTEM= 3 ; -if(!qbevent)break;evnt(26070,2896,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_RETVAL= 1 ; -if(!qbevent)break;evnt(26070,2897,"ide_methods.bas");}while(r); -} -do{ -SUB_WIKIPARSE(_FUNC_IDE2_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2900,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESYSTEM= 3 ; -if(!qbevent)break;evnt(26070,2901,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=32; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_REDRAWITALL; -RETURN_32:; -if(!qbevent)break;evnt(26070,2902,"ide_methods.bas");}while(r); -do{ -goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(26070,2903,"ide_methods.bas");}while(r); -do{ -goto fornext_exit_4227; -if(!qbevent)break;evnt(26070,2905,"ide_methods.bas");}while(r); -} -} -fornext_continue_4227:; -} -fornext_exit_4227:; -} -LABEL_NOKEYWORDFOUND:; -if(qbevent){evnt(26070,2910,"ide_methods.bas");r=0;} -} -do{ -goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(26070,2912,"ide_methods.bas");}while(r); -} -S_39477:; -if ((*__LONG_KALT&(-(*__LONG_KB== 19200 )))||new_error){ -if(qbevent){evnt(26070,2917,"ide_methods.bas");if(r)goto S_39477;} -do{ -*_FUNC_IDE2_LONG_BMKREMOVED= 0 ; -if(!qbevent)break;evnt(26070,2918,"ide_methods.bas");}while(r); -LABEL_BMKREMOVE:; -if(qbevent){evnt(26070,2919,"ide_methods.bas");r=0;} -S_39479:; -fornext_value4237= 1 ; -fornext_finalvalue4237=*__LONG_IDEBMKN; -fornext_step4237= 1 ; -if (fornext_step4237<0) fornext_step_negative4237=1; else fornext_step_negative4237=0; -if (new_error) goto fornext_error4237; -goto fornext_entrylabel4237; -while(1){ -fornext_value4237=fornext_step4237+(*_FUNC_IDE2_LONG_B); -fornext_entrylabel4237: -*_FUNC_IDE2_LONG_B=fornext_value4237; -if (fornext_step_negative4237){ -if (fornext_value4237fornext_finalvalue4237) break; -} -fornext_error4237:; -if(qbevent){evnt(26070,2920,"ide_methods.bas");if(r)goto S_39479;} -S_39480:; -if ((-(*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_FUNC_IDE2_LONG_B)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16))==*__LONG_IDECY))||new_error){ -if(qbevent){evnt(26070,2921,"ide_methods.bas");if(r)goto S_39480;} -S_39481:; -fornext_value4239=*_FUNC_IDE2_LONG_B; -fornext_finalvalue4239=*__LONG_IDEBMKN- 1 ; -fornext_step4239= 1 ; -if (fornext_step4239<0) fornext_step_negative4239=1; else fornext_step_negative4239=0; -if (new_error) goto fornext_error4239; -goto fornext_entrylabel4239; -while(1){ -fornext_value4239=fornext_step4239+(*_FUNC_IDE2_LONG_B2); -fornext_entrylabel4239: -*_FUNC_IDE2_LONG_B2=fornext_value4239; -if (fornext_step_negative4239){ -if (fornext_value4239fornext_finalvalue4239) break; -} -fornext_error4239:; -if(qbevent){evnt(26070,2922,"ide_methods.bas");if(r)goto S_39481;} -do{ -memcpy(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_FUNC_IDE2_LONG_B2)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16)+ 0,((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_FUNC_IDE2_LONG_B2+ 1 )-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16)+ 0, 16); -if(!qbevent)break;evnt(26070,2923,"ide_methods.bas");}while(r); -fornext_continue_4238:; -} -fornext_exit_4238:; -do{ -*__LONG_IDEBMKN=*__LONG_IDEBMKN- 1 ; -if(!qbevent)break;evnt(26070,2925,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_BMKREMOVED= 1 ; -if(!qbevent)break;evnt(26070,2926,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEUNSAVED= 1 ; -if(!qbevent)break;evnt(26070,2927,"ide_methods.bas");}while(r); -do{ -goto LABEL_BMKREMOVE; -if(!qbevent)break;evnt(26070,2928,"ide_methods.bas");}while(r); -} -fornext_continue_4236:; -} -fornext_exit_4236:; -S_39490:; -if ((-(*_FUNC_IDE2_LONG_BMKREMOVED== 0 ))||new_error){ -if(qbevent){evnt(26070,2931,"ide_methods.bas");if(r)goto S_39490;} -do{ -*__LONG_IDEBMKN=*__LONG_IDEBMKN+ 1 ; -if(!qbevent)break;evnt(26070,2932,"ide_methods.bas");}while(r); -S_39492:; -if ((-(*__LONG_IDEBMKN>func_ubound(__ARRAY_UDT_IDEBMK,1,1)))||new_error){ -if(qbevent){evnt(26070,2933,"ide_methods.bas");if(r)goto S_39492;} -do{ -*_FUNC_IDE2_LONG_X=func_ubound(__ARRAY_UDT_IDEBMK,1,1)* 2 ; -if(!qbevent)break;evnt(26070,2933,"ide_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26070,2791,"ide_methods.bas");}while(r); +S_39337:; +fornext_value4222=*_FUNC_IDE2_LONG_TOP- 1 ; +fornext_finalvalue4222=*__LONG_HELP_BACK_POS+ 1 ; +fornext_step4222= -1 ; +if (fornext_step4222<0) fornext_step_negative4222=1; else fornext_step_negative4222=0; +if (new_error) goto fornext_error4222; +goto fornext_entrylabel4222; +while(1){ +fornext_value4222=fornext_step4222+(*_FUNC_IDE2_LONG_X); +fornext_entrylabel4222: +*_FUNC_IDE2_LONG_X=fornext_value4222; +if (fornext_step_negative4222){ +if (fornext_value4222fornext_finalvalue4222) break; +} +fornext_error4222:; +if(qbevent){evnt(26070,2793,"ide_methods.bas");if(r)goto S_39337;} +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_X+ 1 )-__ARRAY_STRING_BACK_NAME[4],__ARRAY_STRING_BACK_NAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_BACK_NAME[0]))[tmp_long])),((qbs*)(((uint64*)(__ARRAY_STRING_BACK_NAME[0]))[array_check((*_FUNC_IDE2_LONG_X)-__ARRAY_STRING_BACK_NAME[4],__ARRAY_STRING_BACK_NAME[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2794,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_X+ 1 )-__ARRAY_STRING_BACK[4],__ARRAY_STRING_BACK[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_BACK[0]))[tmp_long])),((qbs*)(((uint64*)(__ARRAY_STRING_BACK[0]))[array_check((*_FUNC_IDE2_LONG_X)-__ARRAY_STRING_BACK[4],__ARRAY_STRING_BACK[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2795,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*_FUNC_IDE2_LONG_X+ 1 )-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16))=*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*_FUNC_IDE2_LONG_X)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16)); +if(!qbevent)break;evnt(26070,2796,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*_FUNC_IDE2_LONG_X+ 1 )-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+4))=*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*_FUNC_IDE2_LONG_X)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+4)); +if(!qbevent)break;evnt(26070,2797,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*_FUNC_IDE2_LONG_X+ 1 )-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+8))=*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*_FUNC_IDE2_LONG_X)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+8)); +if(!qbevent)break;evnt(26070,2798,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*_FUNC_IDE2_LONG_X+ 1 )-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+12))=*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*_FUNC_IDE2_LONG_X)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+12)); +if(!qbevent)break;evnt(26070,2799,"ide_methods.bas");}while(r); +fornext_continue_4221:; +} +fornext_exit_4221:; +LABEL_USENEXTENTRY2:; +if(qbevent){evnt(26070,2801,"ide_methods.bas");r=0;} +do{ +*__LONG_HELP_BACK_POS=*__LONG_HELP_BACK_POS+ 1 ; +if(!qbevent)break;evnt(26070,2802,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*__LONG_HELP_BACK_POS)-__ARRAY_STRING_BACK[4],__ARRAY_STRING_BACK[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_BACK[0]))[tmp_long])),_FUNC_IDE2_STRING_LNK); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2803,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*__LONG_HELP_BACK_POS)-__ARRAY_STRING_BACK_NAME[4],__ARRAY_STRING_BACK_NAME[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_BACK_NAME[0]))[tmp_long])),FUNC_BACK2BACKNAME(_FUNC_IDE2_STRING_LNK)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2804,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16))= 1 ; +if(!qbevent)break;evnt(26070,2805,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+4))= 1 ; +if(!qbevent)break;evnt(26070,2806,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+8))= 1 ; +if(!qbevent)break;evnt(26070,2807,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)__ARRAY_UDT_HELP_BACK[0])+((array_check((*__LONG_HELP_BACK_POS)-__ARRAY_UDT_HELP_BACK[4],__ARRAY_UDT_HELP_BACK[5]))*16+12))= 1 ; +if(!qbevent)break;evnt(26070,2808,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_SX= 1 ; +if(!qbevent)break;evnt(26070,2809,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_SY= 1 ; +if(!qbevent)break;evnt(26070,2809,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_CX= 1 ; +if(!qbevent)break;evnt(26070,2809,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_CY= 1 ; +if(!qbevent)break;evnt(26070,2809,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_A,FUNC_WIKI(_FUNC_IDE2_STRING_LNK)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2811,"ide_methods.bas");}while(r); +S_39357:; +if ((-(*__LONG_IDEHELP== 0 ))||new_error){ +if(qbevent){evnt(26070,2813,"ide_methods.bas");if(r)goto S_39357;} +S_39358:; +if ((*__LONG_IDESUBWINDOW)||new_error){ +if(qbevent){evnt(26070,2814,"ide_methods.bas");if(r)goto S_39358;} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,2814,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,2814,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,2814,"ide_methods.bas");}while(r); +} +do{ +*__LONG_IDESUBWINDOW=*__LONG_IDEWY/ 2 ; +if(!qbevent)break;evnt(26070,2815,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEWY=*__LONG_IDEWY-*__LONG_IDESUBWINDOW; +if(!qbevent)break;evnt(26070,2815,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_WX1= 2 ; +if(!qbevent)break;evnt(26070,2816,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_WY1=*__LONG_IDEWY+ 1 ; +if(!qbevent)break;evnt(26070,2816,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_WX2=*__LONG_IDEWX- 1 ; +if(!qbevent)break;evnt(26070,2816,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_WY2=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 2 ; +if(!qbevent)break;evnt(26070,2816,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_WW=*__LONG_HELP_WX2-*__LONG_HELP_WX1+ 1 ; +if(!qbevent)break;evnt(26070,2816,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_WH=*__LONG_HELP_WY2-*__LONG_HELP_WY1+ 1 ; +if(!qbevent)break;evnt(26070,2816,"ide_methods.bas");}while(r); +do{ +SUB_WIKIPARSE(_FUNC_IDE2_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2817,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEHELP= 1 ; +if(!qbevent)break;evnt(26070,2818,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_SKIPDISPLAY= 0 ; +if(!qbevent)break;evnt(26070,2819,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESYSTEM= 3 ; +if(!qbevent)break;evnt(26070,2820,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_RETVAL= 1 ; +if(!qbevent)break;evnt(26070,2821,"ide_methods.bas");}while(r); +}else{ +do{ +SUB_WIKIPARSE(_FUNC_IDE2_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2823,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESYSTEM= 3 ; +if(!qbevent)break;evnt(26070,2824,"ide_methods.bas");}while(r); +} +do{ +return_point[next_return_point++]=31; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_REDRAWITALL; +RETURN_31:; +if(!qbevent)break;evnt(26070,2827,"ide_methods.bas");}while(r); +S_39381:; +if ((*__LONG_HELP_LINKL)||new_error){ +if(qbevent){evnt(26070,2828,"ide_methods.bas");if(r)goto S_39381;} +do{ +*_FUNC_IDE2_LONG_NOREP= 1 ; +if(!qbevent)break;evnt(26070,2829,"ide_methods.bas");}while(r); +do{ +goto LABEL_SEARCHNEXT; +if(!qbevent)break;evnt(26070,2829,"ide_methods.bas");}while(r); +}else{ +do{ +goto LABEL_SPECIALCHAR; +if(!qbevent)break;evnt(26070,2831,"ide_methods.bas");}while(r); +} +}else{ +do{ +qbs_set(_FUNC_IDE2_STRING_A2,qbs_ltrim(qbs_rtrim(_FUNC_IDE2_STRING_A2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2836,"ide_methods.bas");}while(r); +S_39389:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_A2->len))||new_error){ +if(qbevent){evnt(26070,2837,"ide_methods.bas");if(r)goto S_39389;} +S_39390:; +while((!(qbs_cleanup(qbs_tmp_base,((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(qbs_right(_FUNC_IDE2_STRING_A2, 1 )))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])])))||new_error){ +if(qbevent){evnt(26070,2838,"ide_methods.bas");if(r)goto S_39390;} +do{ +qbs_set(_FUNC_IDE2_STRING_A2,qbs_left(_FUNC_IDE2_STRING_A2,_FUNC_IDE2_STRING_A2->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2839,"ide_methods.bas");}while(r); +S_39392:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDE2_STRING_A2->len== 0 )))||new_error){ +if(qbevent){evnt(26070,2840,"ide_methods.bas");if(r)goto S_39392;} +do{ +goto LABEL_NOKEYWORDFOUND; +if(!qbevent)break;evnt(26070,2840,"ide_methods.bas");}while(r); +} +dl_continue_4224:; +} +dl_exit_4224:; +S_39396:; +fornext_value4228= 1 ; +fornext_finalvalue4228=*__LONG_IDEN; +fornext_step4228= 1 ; +if (fornext_step4228<0) fornext_step_negative4228=1; else fornext_step_negative4228=0; +if (new_error) goto fornext_error4228; +goto fornext_entrylabel4228; +while(1){ +fornext_value4228=fornext_step4228+(*_FUNC_IDE2_LONG_Y); +fornext_entrylabel4228: +*_FUNC_IDE2_LONG_Y=fornext_value4228; +if (fornext_step_negative4228){ +if (fornext_value4228fornext_finalvalue4228) break; +} +fornext_error4228:; +if(qbevent){evnt(26070,2843,"ide_methods.bas");if(r)goto S_39396;} +do{ +qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(_FUNC_IDE2_LONG_Y)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2844,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_A,qbs_ltrim(qbs_rtrim(_FUNC_IDE2_STRING_A))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2845,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_SF= 0 ; +if(!qbevent)break;evnt(26070,2846,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_NCA,qbs_ucase(_FUNC_IDE2_STRING_A)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2847,"ide_methods.bas");}while(r); +S_39401:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_IDE2_STRING_NCA, 4 ),qbs_new_txt_len("SUB ",4))))||new_error){ +if(qbevent){evnt(26070,2848,"ide_methods.bas");if(r)goto S_39401;} +do{ +*_FUNC_IDE2_LONG_SF= 1 ; +if(!qbevent)break;evnt(26070,2848,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_SF,qbs_new_txt_len("SUB ",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2848,"ide_methods.bas");}while(r); +} +S_39405:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_IDE2_STRING_NCA, 9 ),qbs_new_txt_len("FUNCTION ",9))))||new_error){ +if(qbevent){evnt(26070,2849,"ide_methods.bas");if(r)goto S_39405;} +do{ +*_FUNC_IDE2_LONG_SF= 2 ; +if(!qbevent)break;evnt(26070,2849,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_SF,qbs_new_txt_len("FUNCTION ",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2849,"ide_methods.bas");}while(r); +} +S_39409:; +if ((*_FUNC_IDE2_LONG_SF)||new_error){ +if(qbevent){evnt(26070,2850,"ide_methods.bas");if(r)goto S_39409;} +S_39410:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_FUNC_IDE2_STRING_NCA, 7 ),qbs_new_txt_len(" STATIC",7))))||new_error){ +if(qbevent){evnt(26070,2851,"ide_methods.bas");if(r)goto S_39410;} +do{ +qbs_set(_FUNC_IDE2_STRING_A,qbs_rtrim(qbs_left(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len- 7 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2852,"ide_methods.bas");}while(r); +} +S_39413:; +if ((-(*_FUNC_IDE2_LONG_SF== 1 ))||new_error){ +if(qbevent){evnt(26070,2855,"ide_methods.bas");if(r)goto S_39413;} +do{ +qbs_set(_FUNC_IDE2_STRING_A,qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len- 4 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2856,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDE2_STRING_A,qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len- 9 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2858,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDE2_STRING_A,qbs_ltrim(qbs_rtrim(_FUNC_IDE2_STRING_A))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2860,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_X=func_instr(NULL,_FUNC_IDE2_STRING_A,qbs_new_txt_len("(",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2861,"ide_methods.bas");}while(r); +S_39420:; +if ((*_FUNC_IDE2_LONG_X)||new_error){ +if(qbevent){evnt(26070,2862,"ide_methods.bas");if(r)goto S_39420;} +do{ +qbs_set(_FUNC_IDE2_STRING_N,qbs_rtrim(qbs_left(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_X- 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2863,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_ARGS,qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len-*_FUNC_IDE2_LONG_X+ 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2864,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_X=func_instr(NULL,_FUNC_IDE2_STRING_ARGS,qbs_new_txt_len(")",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2865,"ide_methods.bas");}while(r); +S_39424:; +if ((*_FUNC_IDE2_LONG_X)||new_error){ +if(qbevent){evnt(26070,2865,"ide_methods.bas");if(r)goto S_39424;} +do{ +qbs_set(_FUNC_IDE2_STRING_ARGS,qbs_left(_FUNC_IDE2_STRING_ARGS,*_FUNC_IDE2_LONG_X)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2865,"ide_methods.bas");}while(r); +} +}else{ +do{ +qbs_set(_FUNC_IDE2_STRING_N,_FUNC_IDE2_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2867,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_ARGS,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2868,"ide_methods.bas");}while(r); +do{ +SUB_CLEANSUBNAME(_FUNC_IDE2_STRING_N); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2869,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDE2_STRING_BACKUPN,_FUNC_IDE2_STRING_N); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2872,"ide_methods.bas");}while(r); +S_39433:; +while((!(qbs_cleanup(qbs_tmp_base,((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(qbs_right(_FUNC_IDE2_STRING_N, 1 )))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])])))||new_error){ +if(qbevent){evnt(26070,2874,"ide_methods.bas");if(r)goto S_39433;} +do{ +qbs_set(_FUNC_IDE2_STRING_N,qbs_left(_FUNC_IDE2_STRING_N,_FUNC_IDE2_STRING_N->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2875,"ide_methods.bas");}while(r); +dl_continue_4233:; +} +dl_exit_4233:; +S_39436:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_FUNC_IDE2_STRING_N),_FUNC_IDE2_STRING_A2)))||new_error){ +if(qbevent){evnt(26070,2878,"ide_methods.bas");if(r)goto S_39436;} +do{ +qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("{{DISPLAYTITLE:agp@",19),_FUNC_IDE2_STRING_BACKUPN),qbs_new_txt_len("}}",2)),func_chr( 10 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2879,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(_FUNC_IDE2_STRING_A,qbs_new_txt_len("This is a subroutine or function that is used in your program as follows:",73)),func_chr( 10 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2880,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_IDE2_STRING_A,func_chr( 10 )),func_chr( 10 )),qbs_new_txt_len("{{PageSyntax}}",14)),func_chr( 10 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2881,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_IDE2_STRING_A,qbs_new_txt_len(": [[",4)),qbs_left(_FUNC_IDE2_STRING_SF,_FUNC_IDE2_STRING_SF->len- 1 )),qbs_new_txt_len("]] '''",6)),_FUNC_IDE2_STRING_BACKUPN),qbs_new_txt_len("''' ",4)),_FUNC_IDE2_STRING_ARGS),func_chr( 10 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2882,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_IDE2_STRING_A,func_chr( 10 )),func_chr( 10 )),qbs_new_txt_len("{{PageSeeAlso}}",15)),func_chr( 10 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2883,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(_FUNC_IDE2_STRING_A,qbs_new_txt_len("* [[Sub (explanatory)]]",23)),func_chr( 10 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2884,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(_FUNC_IDE2_STRING_A,qbs_new_txt_len("* [[Function (explanatory)]]",28)),func_chr( 10 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2885,"ide_methods.bas");}while(r); +do{ +*__BYTE_IDECONTEXTHELPSF= -1 ; +if(!qbevent)break;evnt(26070,2887,"ide_methods.bas");}while(r); +S_39445:; +if ((-(*__LONG_IDEHELP== 0 ))||new_error){ +if(qbevent){evnt(26070,2889,"ide_methods.bas");if(r)goto S_39445;} +S_39446:; +if ((*__LONG_IDESUBWINDOW)||new_error){ +if(qbevent){evnt(26070,2890,"ide_methods.bas");if(r)goto S_39446;} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,2890,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,2890,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,2890,"ide_methods.bas");}while(r); +} +do{ +*__LONG_IDESUBWINDOW=*__LONG_IDEWY/ 2 ; +if(!qbevent)break;evnt(26070,2891,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEWY=*__LONG_IDEWY-*__LONG_IDESUBWINDOW; +if(!qbevent)break;evnt(26070,2891,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_WX1= 2 ; +if(!qbevent)break;evnt(26070,2892,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_WY1=*__LONG_IDEWY+ 1 ; +if(!qbevent)break;evnt(26070,2892,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_WX2=*__LONG_IDEWX- 1 ; +if(!qbevent)break;evnt(26070,2892,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_WY2=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 2 ; +if(!qbevent)break;evnt(26070,2892,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_WW=*__LONG_HELP_WX2-*__LONG_HELP_WX1+ 1 ; +if(!qbevent)break;evnt(26070,2892,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_WH=*__LONG_HELP_WY2-*__LONG_HELP_WY1+ 1 ; +if(!qbevent)break;evnt(26070,2892,"ide_methods.bas");}while(r); +do{ +SUB_WIKIPARSE(_FUNC_IDE2_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2893,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEHELP= 1 ; +if(!qbevent)break;evnt(26070,2894,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_SKIPDISPLAY= 0 ; +if(!qbevent)break;evnt(26070,2895,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESYSTEM= 3 ; +if(!qbevent)break;evnt(26070,2896,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_RETVAL= 1 ; +if(!qbevent)break;evnt(26070,2897,"ide_methods.bas");}while(r); +} +do{ +SUB_WIKIPARSE(_FUNC_IDE2_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2900,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESYSTEM= 3 ; +if(!qbevent)break;evnt(26070,2901,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=32; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_REDRAWITALL; +RETURN_32:; +if(!qbevent)break;evnt(26070,2902,"ide_methods.bas");}while(r); +do{ +goto LABEL_SPECIALCHAR; +if(!qbevent)break;evnt(26070,2903,"ide_methods.bas");}while(r); +do{ +goto fornext_exit_4227; +if(!qbevent)break;evnt(26070,2905,"ide_methods.bas");}while(r); +} +} +fornext_continue_4227:; +} +fornext_exit_4227:; +} +LABEL_NOKEYWORDFOUND:; +if(qbevent){evnt(26070,2910,"ide_methods.bas");r=0;} +} +do{ +goto LABEL_SPECIALCHAR; +if(!qbevent)break;evnt(26070,2912,"ide_methods.bas");}while(r); +} +S_39477:; +if ((*__LONG_KALT&(-(*__LONG_KB== 19200 )))||new_error){ +if(qbevent){evnt(26070,2917,"ide_methods.bas");if(r)goto S_39477;} +do{ +*_FUNC_IDE2_LONG_BMKREMOVED= 0 ; +if(!qbevent)break;evnt(26070,2918,"ide_methods.bas");}while(r); +LABEL_BMKREMOVE:; +if(qbevent){evnt(26070,2919,"ide_methods.bas");r=0;} +S_39479:; +fornext_value4237= 1 ; +fornext_finalvalue4237=*__LONG_IDEBMKN; +fornext_step4237= 1 ; +if (fornext_step4237<0) fornext_step_negative4237=1; else fornext_step_negative4237=0; +if (new_error) goto fornext_error4237; +goto fornext_entrylabel4237; +while(1){ +fornext_value4237=fornext_step4237+(*_FUNC_IDE2_LONG_B); +fornext_entrylabel4237: +*_FUNC_IDE2_LONG_B=fornext_value4237; +if (fornext_step_negative4237){ +if (fornext_value4237fornext_finalvalue4237) break; +} +fornext_error4237:; +if(qbevent){evnt(26070,2920,"ide_methods.bas");if(r)goto S_39479;} +S_39480:; +if ((-(*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_FUNC_IDE2_LONG_B)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16))==*__LONG_IDECY))||new_error){ +if(qbevent){evnt(26070,2921,"ide_methods.bas");if(r)goto S_39480;} +S_39481:; +fornext_value4239=*_FUNC_IDE2_LONG_B; +fornext_finalvalue4239=*__LONG_IDEBMKN- 1 ; +fornext_step4239= 1 ; +if (fornext_step4239<0) fornext_step_negative4239=1; else fornext_step_negative4239=0; +if (new_error) goto fornext_error4239; +goto fornext_entrylabel4239; +while(1){ +fornext_value4239=fornext_step4239+(*_FUNC_IDE2_LONG_B2); +fornext_entrylabel4239: +*_FUNC_IDE2_LONG_B2=fornext_value4239; +if (fornext_step_negative4239){ +if (fornext_value4239fornext_finalvalue4239) break; +} +fornext_error4239:; +if(qbevent){evnt(26070,2922,"ide_methods.bas");if(r)goto S_39481;} +do{ +memcpy(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_FUNC_IDE2_LONG_B2)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16)+ 0,((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_FUNC_IDE2_LONG_B2+ 1 )-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16)+ 0, 16); +if(!qbevent)break;evnt(26070,2923,"ide_methods.bas");}while(r); +fornext_continue_4238:; +} +fornext_exit_4238:; +do{ +*__LONG_IDEBMKN=*__LONG_IDEBMKN- 1 ; +if(!qbevent)break;evnt(26070,2925,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_BMKREMOVED= 1 ; +if(!qbevent)break;evnt(26070,2926,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEUNSAVED= 1 ; +if(!qbevent)break;evnt(26070,2927,"ide_methods.bas");}while(r); +do{ +goto LABEL_BMKREMOVE; +if(!qbevent)break;evnt(26070,2928,"ide_methods.bas");}while(r); +} +fornext_continue_4236:; +} +fornext_exit_4236:; +S_39490:; +if ((-(*_FUNC_IDE2_LONG_BMKREMOVED== 0 ))||new_error){ +if(qbevent){evnt(26070,2931,"ide_methods.bas");if(r)goto S_39490;} +do{ +*__LONG_IDEBMKN=*__LONG_IDEBMKN+ 1 ; +if(!qbevent)break;evnt(26070,2932,"ide_methods.bas");}while(r); +S_39492:; +if ((-(*__LONG_IDEBMKN>func_ubound(__ARRAY_UDT_IDEBMK,1,1)))||new_error){ +if(qbevent){evnt(26070,2933,"ide_methods.bas");if(r)goto S_39492;} +do{ +*_FUNC_IDE2_LONG_X=func_ubound(__ARRAY_UDT_IDEBMK,1,1)* 2 ; +if(!qbevent)break;evnt(26070,2933,"ide_methods.bas");}while(r); +do{ if (__ARRAY_UDT_IDEBMK[2]&2){ error(10); @@ -133132,1860 +133132,1860 @@ if (!__ARRAY_UDT_IDEBMK[0]) error(257); } } __ARRAY_UDT_IDEBMK[2]|=1; -} -if(!qbevent)break;evnt(26070,2933,"ide_methods.bas");}while(r); -} -do{ -*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*__LONG_IDEBMKN)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16))=*__LONG_IDECY; -if(!qbevent)break;evnt(26070,2934,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*__LONG_IDEBMKN)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16+4))=*__LONG_IDECX; -if(!qbevent)break;evnt(26070,2935,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*__LONG_IDEBMKN)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16+8))= 0 ; -if(!qbevent)break;evnt(26070,2936,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*__LONG_IDEBMKN)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16+12))= 0 ; -if(!qbevent)break;evnt(26070,2936,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEUNSAVED= 1 ; -if(!qbevent)break;evnt(26070,2937,"ide_methods.bas");}while(r); -} -do{ -goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(26070,2939,"ide_methods.bas");}while(r); -} -S_39504:; -if ((*__LONG_KALT&((-(*__LONG_KB== 20480 ))|(-(*__LONG_KB== 18432 ))))||new_error){ -if(qbevent){evnt(26070,2942,"ide_methods.bas");if(r)goto S_39504;} -S_39505:; -if ((-(*__LONG_IDEBMKN== 0 ))||new_error){ -if(qbevent){evnt(26070,2943,"ide_methods.bas");if(r)goto S_39505;} -do{ -*_FUNC_IDE2_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Bookmarks",9),qbs_new_txt_len("No bookmarks exist (Use Alt+Left to create a bookmark)",54),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2944,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,2945,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEALTHIGHLIGHT= 0 ; -if(!qbevent)break;evnt(26070,2946,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); -if(!qbevent)break;evnt(26070,2947,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,2947,"ide_methods.bas");}while(r); -do{ -sub__printstring( 1 , 1 ,__STRING_MENUBAR,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2947,"ide_methods.bas");}while(r); -do{ -goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(26070,2948,"ide_methods.bas");}while(r); -} -S_39514:; -if ((-(*__LONG_IDEBMKN== 1 ))||new_error){ -if(qbevent){evnt(26070,2950,"ide_methods.bas");if(r)goto S_39514;} -S_39515:; -if ((-(*__LONG_IDECY==*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check(( 1 )-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16))))||new_error){ -if(qbevent){evnt(26070,2951,"ide_methods.bas");if(r)goto S_39515;} -do{ -*_FUNC_IDE2_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Bookmarks",9),qbs_new_txt_len("No other bookmarks exist",24),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2952,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,2953,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEALTHIGHLIGHT= 0 ; -if(!qbevent)break;evnt(26070,2954,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); -if(!qbevent)break;evnt(26070,2955,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,2955,"ide_methods.bas");}while(r); -do{ -sub__printstring( 1 , 1 ,__STRING_MENUBAR,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2955,"ide_methods.bas");}while(r); -do{ -goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(26070,2956,"ide_methods.bas");}while(r); -} -} -do{ -*_FUNC_IDE2_LONG_L=*__LONG_IDECY; -if(!qbevent)break;evnt(26070,2959,"ide_methods.bas");}while(r); -S_39526:; -do{ -if(qbevent){evnt(26070,2960,"ide_methods.bas");if(r)goto S_39526;} -S_39527:; -if ((-(*__LONG_KB== 20480 ))||new_error){ -if(qbevent){evnt(26070,2961,"ide_methods.bas");if(r)goto S_39527;} -do{ -*_FUNC_IDE2_LONG_L=*_FUNC_IDE2_LONG_L+ 1 ; -if(!qbevent)break;evnt(26070,2961,"ide_methods.bas");}while(r); -}else{ -do{ -*_FUNC_IDE2_LONG_L=*_FUNC_IDE2_LONG_L- 1 ; -if(!qbevent)break;evnt(26070,2961,"ide_methods.bas");}while(r); -} -S_39532:; -if ((-(*_FUNC_IDE2_LONG_L< 1 ))||new_error){ -if(qbevent){evnt(26070,2962,"ide_methods.bas");if(r)goto S_39532;} -do{ -*_FUNC_IDE2_LONG_L=*__LONG_IDEN; -if(!qbevent)break;evnt(26070,2962,"ide_methods.bas");}while(r); -} -S_39535:; -if ((-(*_FUNC_IDE2_LONG_L>*__LONG_IDEN))||new_error){ -if(qbevent){evnt(26070,2963,"ide_methods.bas");if(r)goto S_39535;} -do{ -*_FUNC_IDE2_LONG_L= 1 ; -if(!qbevent)break;evnt(26070,2963,"ide_methods.bas");}while(r); -} -S_39538:; -fornext_value4242= 1 ; -fornext_finalvalue4242=*__LONG_IDEBMKN; -fornext_step4242= 1 ; -if (fornext_step4242<0) fornext_step_negative4242=1; else fornext_step_negative4242=0; -if (new_error) goto fornext_error4242; -goto fornext_entrylabel4242; -while(1){ -fornext_value4242=fornext_step4242+(*_FUNC_IDE2_LONG_B); -fornext_entrylabel4242: -*_FUNC_IDE2_LONG_B=fornext_value4242; -if (fornext_step_negative4242){ -if (fornext_value4242fornext_finalvalue4242) break; -} -fornext_error4242:; -if(qbevent){evnt(26070,2964,"ide_methods.bas");if(r)goto S_39538;} -S_39539:; -if ((-(*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_FUNC_IDE2_LONG_B)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16))==*_FUNC_IDE2_LONG_L))||new_error){ -if(qbevent){evnt(26070,2965,"ide_methods.bas");if(r)goto S_39539;} -do{ -goto dl_exit_4240; -if(!qbevent)break;evnt(26070,2965,"ide_methods.bas");}while(r); -} -fornext_continue_4241:; -} -fornext_exit_4241:; -dl_continue_4240:; -}while(1); -dl_exit_4240:; -do{ -SUB_ADDQUICKNAVHISTORY(); -if(!qbevent)break;evnt(26070,2968,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECY=*_FUNC_IDE2_LONG_L; -if(!qbevent)break;evnt(26070,2969,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECX=*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_FUNC_IDE2_LONG_B)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16+4)); -if(!qbevent)break;evnt(26070,2970,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(26070,2971,"ide_methods.bas");}while(r); -do{ -SUB_IDECENTERCURRENTLINE(); -if(!qbevent)break;evnt(26070,2972,"ide_methods.bas");}while(r); -do{ -goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(26070,2973,"ide_methods.bas");}while(r); -} -S_39551:; -if ((*__LONG_KALT&(-(*__LONG_KB== 19712 )))||new_error){ -if(qbevent){evnt(26070,2976,"ide_methods.bas");if(r)goto S_39551;} -do{ -goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(26070,2978,"ide_methods.bas");}while(r); -} -S_39554:; -if ((*__LONG_KALT&(-(*__LONG_KB>= 48 ))&(-(*__LONG_KB<= 57 )))||new_error){ -if(qbevent){evnt(26070,2982,"ide_methods.bas");if(r)goto S_39554;} -do{ -goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(26070,2982,"ide_methods.bas");}while(r); -} -S_39557:; -if (((-(*__LONG_IDESELECT== 1 ))&(-(*_FUNC_IDE2_BYTE_WHOLEWORD__ASCII_CHR_046__SELECT< 0 ))&(-(*__LONG_MY==*_FUNC_IDE2_LONG_OLD__ASCII_CHR_046__MY)))||new_error){ -if(qbevent){evnt(26070,2984,"ide_methods.bas");if(r)goto S_39557;} -S_39558:; -if ((-(*_FUNC_IDE2_BYTE_WHOLEWORD__ASCII_CHR_046__SELECT== -2 ))||new_error){ -if(qbevent){evnt(26070,2988,"ide_methods.bas");if(r)goto S_39558;} -do{ -*_FUNC_IDE2_BYTE_WHOLEWORD__ASCII_CHR_046__SELECT= -1 ; -if(!qbevent)break;evnt(26070,2991,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEMOUSESELECT= 0 ; -if(!qbevent)break;evnt(26070,2992,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESELECTX1=*_FUNC_IDE2_LONG_WHOLEWORD__ASCII_CHR_046__SELECTX1; -if(!qbevent)break;evnt(26070,2993,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECX=*_FUNC_IDE2_LONG_WHOLEWORD__ASCII_CHR_046__IDECX; -if(!qbevent)break;evnt(26070,2994,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESELECTY1=*_FUNC_IDE2_LONG_WHOLEWORD__ASCII_CHR_046__SELECTY1; -if(!qbevent)break;evnt(26070,2995,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECY=*_FUNC_IDE2_LONG_WHOLEWORD__ASCII_CHR_046__IDECY; -if(!qbevent)break;evnt(26070,2996,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDE2_LONG_NEWPOSITION=(*__LONG_MX- 1 +*__LONG_IDESX- 1 )-*__LONG_MAXLINENUMBERLENGTH; -if(!qbevent)break;evnt(26070,2998,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2999,"ide_methods.bas");}while(r); -S_39568:; -if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDE2_LONG_NEWPOSITION>_FUNC_IDE2_STRING_A->len)))||new_error){ -if(qbevent){evnt(26070,3000,"ide_methods.bas");if(r)goto S_39568;} -do{ -*__LONG_IDECX=*_FUNC_IDE2_LONG_NEWPOSITION; -if(!qbevent)break;evnt(26070,3000,"ide_methods.bas");}while(r); -do{ -goto LABEL_DONEWHOLEWORD; -if(!qbevent)break;evnt(26070,3000,"ide_methods.bas");}while(r); -} -S_39572:; -if ((-(*_FUNC_IDE2_LONG_NEWPOSITION== 1 ))||new_error){ -if(qbevent){evnt(26070,3001,"ide_methods.bas");if(r)goto S_39572;} -do{ -*__LONG_IDESELECTX1= 1 ; -if(!qbevent)break;evnt(26070,3001,"ide_methods.bas");}while(r); -do{ -goto LABEL_DONEWHOLEWORD; -if(!qbevent)break;evnt(26070,3001,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDE2_STRING_CHAR__ASCII_CHR_046__CLICKED,func_mid(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_NEWPOSITION, 1 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3002,"ide_methods.bas");}while(r); -S_39577:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDE2_STRING_CHAR__ASCII_CHR_046__CLICKED->len> 0 )))||new_error){ -if(qbevent){evnt(26070,3003,"ide_methods.bas");if(r)goto S_39577;} -S_39578:; -if ((-(*_FUNC_IDE2_LONG_NEWPOSITION<*_FUNC_IDE2_LONG_WHOLEWORD__ASCII_CHR_046__IDECX))||new_error){ -if(qbevent){evnt(26070,3004,"ide_methods.bas");if(r)goto S_39578;} -S_39579:; -fornext_value4246=*_FUNC_IDE2_LONG_NEWPOSITION; -fornext_finalvalue4246= 1 ; -fornext_step4246= -1 ; -if (fornext_step4246<0) fornext_step_negative4246=1; else fornext_step_negative4246=0; -if (new_error) goto fornext_error4246; -goto fornext_entrylabel4246; -while(1){ -fornext_value4246=fornext_step4246+(*_FUNC_IDE2_LONG_I); -fornext_entrylabel4246: -*_FUNC_IDE2_LONG_I=fornext_value4246; -if (fornext_step_negative4246){ -if (fornext_value4246fornext_finalvalue4246) break; -} -fornext_error4246:; -if(qbevent){evnt(26070,3006,"ide_methods.bas");if(r)goto S_39579;} -S_39580:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_IDE2_STRING_CHAR__ASCII_CHR_046__SEP,func_mid(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_I, 1 ,0|1),0)))||new_error){ -if(qbevent){evnt(26070,3007,"ide_methods.bas");if(r)goto S_39580;} -do{ -goto fornext_exit_4245; -if(!qbevent)break;evnt(26070,3007,"ide_methods.bas");}while(r); -} -fornext_continue_4245:; -} -fornext_exit_4245:; -do{ -*__LONG_IDESELECTX1=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,3009,"ide_methods.bas");}while(r); -S_39585:; -}else{ -if (-(*_FUNC_IDE2_LONG_NEWPOSITION>*_FUNC_IDE2_LONG_WHOLEWORD__ASCII_CHR_046__SELECTX1)){ -if(qbevent){evnt(26070,3010,"ide_methods.bas");if(r)goto S_39585;} -S_39586:; -fornext_value4248=*_FUNC_IDE2_LONG_NEWPOSITION; -fornext_finalvalue4248=_FUNC_IDE2_STRING_A->len; -fornext_step4248= 1 ; -if (fornext_step4248<0) fornext_step_negative4248=1; else fornext_step_negative4248=0; -if (new_error) goto fornext_error4248; -goto fornext_entrylabel4248; -while(1){ -fornext_value4248=fornext_step4248+(*_FUNC_IDE2_LONG_I); -fornext_entrylabel4248: -*_FUNC_IDE2_LONG_I=fornext_value4248; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative4248){ -if (fornext_value4248fornext_finalvalue4248) break; -} -fornext_error4248:; -if(qbevent){evnt(26070,3012,"ide_methods.bas");if(r)goto S_39586;} -S_39587:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_IDE2_STRING_CHAR__ASCII_CHR_046__SEP,func_mid(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_I, 1 ,0|1),0)))||new_error){ -if(qbevent){evnt(26070,3013,"ide_methods.bas");if(r)goto S_39587;} -do{ -goto fornext_exit_4247; -if(!qbevent)break;evnt(26070,3013,"ide_methods.bas");}while(r); -} -fornext_continue_4247:; -} -fornext_exit_4247:; -do{ -*__LONG_IDECX=*_FUNC_IDE2_LONG_I; -if(!qbevent)break;evnt(26070,3015,"ide_methods.bas");}while(r); -} -} -} -S_39594:; -}else{ -if ((-(*__LONG_IDESELECT== 1 ))&(-(*_FUNC_IDE2_BYTE_WHOLEWORD__ASCII_CHR_046__SELECT== -1 ))&(-(*__LONG_MY!=*_FUNC_IDE2_LONG_OLD__ASCII_CHR_046__MY))){ -if(qbevent){evnt(26070,3018,"ide_methods.bas");if(r)goto S_39594;} -do{ -*__LONG_IDEMOUSESELECT= 1 ; -if(!qbevent)break;evnt(26070,3019,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_BYTE_WHOLEWORD__ASCII_CHR_046__SELECT= -2 ; -if(!qbevent)break;evnt(26070,3020,"ide_methods.bas");}while(r); -} -} -S_39598:; -if ((*__LONG_MCLICK)||new_error){ -if(qbevent){evnt(26070,3023,"ide_methods.bas");if(r)goto S_39598;} -S_39599:; -if (((-(*__LONG_MX>( 1 +*__LONG_MAXLINENUMBERLENGTH)))&(-(*__LONG_MX<*__LONG_IDEWX))&(-(*__LONG_MY> 2 ))&(-(*__LONG_MY<(*__LONG_IDEWY- 5 ))))||new_error){ -if(qbevent){evnt(26070,3024,"ide_methods.bas");if(r)goto S_39599;} -S_39600:; -if (((-(*_FUNC_IDE2_LONG_OLD__ASCII_CHR_046__MX==*__LONG_MX))&(-(*_FUNC_IDE2_LONG_OLD__ASCII_CHR_046__MY==*__LONG_MY)))||new_error){ -if(qbevent){evnt(26070,3025,"ide_methods.bas");if(r)goto S_39600;} -S_39601:; -if ((-(((float)(FUNC_TIMEELAPSEDSINCE(&(pass4250=*_FUNC_IDE2_DOUBLE_LAST__ASCII_CHR_046__TBCLICK))))>((float)( 0.5E+0 ))))||new_error){ -if(qbevent){evnt(26070,3026,"ide_methods.bas");if(r)goto S_39601;} -do{ -goto LABEL_REGULARTEXTBOX_CLICK; -if(!qbevent)break;evnt(26070,3026,"ide_methods.bas");}while(r); -} -do{ -*__LONG_IDECX=(*__LONG_MX- 1 +*__LONG_IDESX- 1 )-*__LONG_MAXLINENUMBERLENGTH; -if(!qbevent)break;evnt(26070,3028,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECY=*__LONG_MY- 2 +*__LONG_IDESY- 1 ; -if(!qbevent)break;evnt(26070,3029,"ide_methods.bas");}while(r); -S_39606:; -if ((-(*__LONG_IDECY>*__LONG_IDEN))||new_error){ -if(qbevent){evnt(26070,3030,"ide_methods.bas");if(r)goto S_39606;} -do{ -goto LABEL_REGULARTEXTBOX_CLICK; -if(!qbevent)break;evnt(26070,3031,"ide_methods.bas");}while(r); -S_39608:; -}else{ -if (-(*__LONG_ACTIVEINCLUDELINK> 0 )){ -if(qbevent){evnt(26070,3032,"ide_methods.bas");if(r)goto S_39608;} -do{ -qbs_set(_FUNC_IDE2_STRING_P,qbs_add(__STRING_IDEPATH,__STRING1_PATHSEP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3035,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_F,qbs_add(_FUNC_IDE2_STRING_P,__STRING_ACTIVEINCLUDELINKFILE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3036,"ide_methods.bas");}while(r); -S_39611:; -if ((qbs_cleanup(qbs_tmp_base,-(func__fileexists(_FUNC_IDE2_STRING_F)== 0 )))||new_error){ -if(qbevent){evnt(26070,3037,"ide_methods.bas");if(r)goto S_39611;} -do{ -qbs_set(_FUNC_IDE2_STRING_F,__STRING_ACTIVEINCLUDELINKFILE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3037,"ide_methods.bas");}while(r); -} -S_39614:; -if ((qbs_cleanup(qbs_tmp_base,func__fileexists(_FUNC_IDE2_STRING_F)))||new_error){ -if(qbevent){evnt(26070,3038,"ide_methods.bas");if(r)goto S_39614;} -do{ -*_FUNC_IDE2_LONG_BACKUPINCLUDEFILE=func_freefile(); -if(!qbevent)break;evnt(26070,3039,"ide_methods.bas");}while(r); -do{ -sub_open(_FUNC_IDE2_STRING_F, 2 ,NULL,NULL,*_FUNC_IDE2_LONG_BACKUPINCLUDEFILE,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3040,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_TEMPINCLUDE1,func_space(func_lof(*_FUNC_IDE2_LONG_BACKUPINCLUDEFILE))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3041,"ide_methods.bas");}while(r); -do{ -sub_get2(*_FUNC_IDE2_LONG_BACKUPINCLUDEFILE, 1 ,_FUNC_IDE2_STRING_TEMPINCLUDE1,1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3042,"ide_methods.bas");}while(r); -do{ -sub_close(*_FUNC_IDE2_LONG_BACKUPINCLUDEFILE,1); -if(!qbevent)break;evnt(26070,3043,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,3045,"ide_methods.bas");}while(r); -do{ -SUB_CLEARSTATUSWINDOW(&(pass4251= 0 )); -if(!qbevent)break;evnt(26070,3046,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 15 , 1 ,NULL,3); -if(!qbevent)break;evnt(26070,3047,"ide_methods.bas");}while(r); -do{ -sub__printstring( 2 ,*__LONG_IDEWY- 3 ,qbs_new_txt_len("Editing $INCLUDE file...",24),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3048,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_DUMMY=FUNC_DARKENFGBG(&(pass4252= 1 )); -if(!qbevent)break;evnt(26070,3049,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,3050,"ide_methods.bas");}while(r); -do{ -sub__delay( 0.2E+0 ); -if(!qbevent)break;evnt(26070,3052,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_P,qbs_add(qbs_add(FUNC_QUOTEDFILENAME(func_command( 0 ,0|1)),qbs_new_txt_len(" ",1)),FUNC_QUOTEDFILENAME(_FUNC_IDE2_STRING_F))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3053,"ide_methods.bas");}while(r); -S_39628:; -if (((-(*__LONG_ERRORLINEININCLUDE> 0 ))&(-(*__LONG_IDEFOCUSLINE==*__LONG_IDECY)))||new_error){ -if(qbevent){evnt(26070,3054,"ide_methods.bas");if(r)goto S_39628;} -do{ -qbs_set(_FUNC_IDE2_STRING_P,qbs_add(qbs_add(_FUNC_IDE2_STRING_P,qbs_new_txt_len(" -l:",4)),FUNC_STR2(__LONG_ERRORLINEININCLUDE))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3055,"ide_methods.bas");}while(r); -S_39630:; -}else{ -if ((-(*__LONG_WARNINGININCLUDELINE> 0 ))&(-(*__LONG_WARNINGININCLUDE==*__LONG_IDECY))){ -if(qbevent){evnt(26070,3056,"ide_methods.bas");if(r)goto S_39630;} -do{ -qbs_set(_FUNC_IDE2_STRING_P,qbs_add(qbs_add(_FUNC_IDE2_STRING_P,qbs_new_txt_len(" -l:",4)),FUNC_STR2(__LONG_WARNINGININCLUDELINE))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3057,"ide_methods.bas");}while(r); -} -} -do{ -sub_shell(_FUNC_IDE2_STRING_P,1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3059,"ide_methods.bas");}while(r); -do{ -sub_open(_FUNC_IDE2_STRING_F, 2 ,NULL,NULL,*_FUNC_IDE2_LONG_BACKUPINCLUDEFILE,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3061,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_TEMPINCLUDE2,func_space(func_lof(*_FUNC_IDE2_LONG_BACKUPINCLUDEFILE))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3062,"ide_methods.bas");}while(r); -do{ -sub_get2(*_FUNC_IDE2_LONG_BACKUPINCLUDEFILE, 1 ,_FUNC_IDE2_STRING_TEMPINCLUDE2,1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3063,"ide_methods.bas");}while(r); -do{ -sub_close(*_FUNC_IDE2_LONG_BACKUPINCLUDEFILE,1); -if(!qbevent)break;evnt(26070,3064,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_DUMMY=FUNC_DARKENFGBG(&(pass4253= 0 )); -if(!qbevent)break;evnt(26070,3066,"ide_methods.bas");}while(r); -do{ -SUB_CLEARSTATUSWINDOW(&(pass4254= 0 )); -if(!qbevent)break;evnt(26070,3067,"ide_methods.bas");}while(r); -S_39640:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_TEMPINCLUDE1,_FUNC_IDE2_STRING_TEMPINCLUDE2)))||new_error){ -if(qbevent){evnt(26070,3069,"ide_methods.bas");if(r)goto S_39640;} -S_39641:; -if ((*__BYTE_IDESHOWERRORSIMMEDIATELY)||new_error){ -if(qbevent){evnt(26070,3070,"ide_methods.bas");if(r)goto S_39641;} -S_39642:; -if ((-(*__LONG_IDECOMPILING== 1 ))||new_error){ -if(qbevent){evnt(26070,3071,"ide_methods.bas");if(r)goto S_39642;} -do{ -sub__printstring( 2 ,*__LONG_IDEWY- 3 ,func_string( 3 , 250 ),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3072,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check(( 1 )-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_FILEMENUEXPORTAS)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(qbs_new_txt_len("~#Export As... ",16),func_chr( 16 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3073,"ide_methods.bas");}while(r); -}else{ -do{ -sub__printstring( 2 ,*__LONG_IDEWY- 3 ,qbs_new_txt_len("OK",2),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3075,"ide_methods.bas");}while(r); -S_39647:; -if ((-(*__LONG_IDEAUTOLAYOUT!= 0 ))||new_error){ -if(qbevent){evnt(26070,3076,"ide_methods.bas");if(r)goto S_39647;} -do{ -tmp_long=array_check(( 1 )-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_FILEMENUEXPORTAS)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(qbs_new_txt_len("#Export As... ",15),func_chr( 16 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3076,"ide_methods.bas");}while(r); -} -do{ -*__INTEGER_STATUSAREALINK= 0 ; -if(!qbevent)break;evnt(26070,3077,"ide_methods.bas");}while(r); -S_39651:; -if ((-(*__LONG_TOTALWARNINGS> 0 ))||new_error){ -if(qbevent){evnt(26070,3078,"ide_methods.bas");if(r)goto S_39651;} -do{ -qbg_sub_color( 11 , 1 ,NULL,3); -if(!qbevent)break;evnt(26070,3079,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_MSG,qbs_add(qbs_add(qbs_new_txt_len(" (",2),qbs_ltrim(qbs_str((int32)(*__LONG_TOTALWARNINGS)))),qbs_new_txt_len(" warning",8))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3080,"ide_methods.bas");}while(r); -S_39654:; -if ((-(*__LONG_TOTALWARNINGS> 1 ))||new_error){ -if(qbevent){evnt(26070,3081,"ide_methods.bas");if(r)goto S_39654;} -do{ -qbs_set(_FUNC_IDE2_STRING_MSG,qbs_add(_FUNC_IDE2_STRING_MSG,qbs_new_txt_len("s",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3081,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDE2_STRING_MSG,qbs_add(_FUNC_IDE2_STRING_MSG,qbs_new_txt_len(" - click here or Ctrl+W to view)",32))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3082,"ide_methods.bas");}while(r); -do{ -sub__printstring( 4 ,*__LONG_IDEWY- 3 ,_FUNC_IDE2_STRING_MSG,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3083,"ide_methods.bas");}while(r); -do{ -*__INTEGER_STATUSAREALINK= 4 ; -if(!qbevent)break;evnt(26070,3084,"ide_methods.bas");}while(r); -} -S_39661:; -if ((*_FUNC_IDE2_BYTE_WAITINGFORVARLIST)||new_error){ -if(qbevent){evnt(26070,3086,"ide_methods.bas");if(r)goto S_39661;} -do{ -return_point[next_return_point++]=33; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_SHOWVARLISTREADY; -RETURN_33:; -if(!qbevent)break;evnt(26070,3086,"ide_methods.bas");}while(r); -} -} -} -}else{ -do{ -*__INTEGER_IDECHANGEMADE= 1 ; -if(!qbevent)break;evnt(26070,3090,"ide_methods.bas");}while(r); -do{ -*__BYTE_STARTPAUSEDPENDING= 0 ; -if(!qbevent)break;evnt(26070,3091,"ide_methods.bas");}while(r); -} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,3094,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_TEMPINCLUDE1,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3096,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_TEMPINCLUDE2,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3097,"ide_methods.bas");}while(r); -} -}else{ -do{ -qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3100,"ide_methods.bas");}while(r); -S_39676:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDE2_STRING_A->len== 0 )))||new_error){ -if(qbevent){evnt(26070,3101,"ide_methods.bas");if(r)goto S_39676;} -do{ -goto LABEL_REGULARTEXTBOX_CLICK; -if(!qbevent)break;evnt(26070,3101,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDE2_STRING_CHAR__ASCII_CHR_046__CLICKED,func_mid(_FUNC_IDE2_STRING_A,*__LONG_IDECX, 1 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3102,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESELECT= 1 ; -if(!qbevent)break;evnt(26070,3103,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESELECTY1=*__LONG_IDECY; -if(!qbevent)break;evnt(26070,3104,"ide_methods.bas");}while(r); -S_39682:; -if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_IDE2_STRING_CHAR__ASCII_CHR_046__CLICKED->len> 0 ))&(qbs_notequal(_FUNC_IDE2_STRING_CHAR__ASCII_CHR_046__CLICKED,func_chr( 32 )))))||new_error){ -if(qbevent){evnt(26070,3105,"ide_methods.bas");if(r)goto S_39682;} -S_39683:; -fornext_value4258=*__LONG_IDECX; -fornext_finalvalue4258= 1 ; -fornext_step4258= -1 ; -if (fornext_step4258<0) fornext_step_negative4258=1; else fornext_step_negative4258=0; -if (new_error) goto fornext_error4258; -goto fornext_entrylabel4258; -while(1){ -fornext_value4258=fornext_step4258+(*_FUNC_IDE2_LONG_I); -fornext_entrylabel4258: -*_FUNC_IDE2_LONG_I=fornext_value4258; -if (fornext_step_negative4258){ -if (fornext_value4258fornext_finalvalue4258) break; -} -fornext_error4258:; -if(qbevent){evnt(26070,3106,"ide_methods.bas");if(r)goto S_39683;} -S_39684:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_IDE2_STRING_CHAR__ASCII_CHR_046__SEP,func_mid(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_I, 1 ,0|1),0)))||new_error){ -if(qbevent){evnt(26070,3107,"ide_methods.bas");if(r)goto S_39684;} -do{ -goto fornext_exit_4257; -if(!qbevent)break;evnt(26070,3107,"ide_methods.bas");}while(r); -} -fornext_continue_4257:; -} -fornext_exit_4257:; -do{ -*__LONG_IDESELECTX1=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,3109,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_WHOLEWORD__ASCII_CHR_046__SELECTX1=*__LONG_IDESELECTX1; -if(!qbevent)break;evnt(26070,3110,"ide_methods.bas");}while(r); -S_39690:; -fornext_value4260=*__LONG_IDECX; -fornext_finalvalue4260=_FUNC_IDE2_STRING_A->len; -fornext_step4260= 1 ; -if (fornext_step4260<0) fornext_step_negative4260=1; else fornext_step_negative4260=0; -if (new_error) goto fornext_error4260; -goto fornext_entrylabel4260; -while(1){ -fornext_value4260=fornext_step4260+(*_FUNC_IDE2_LONG_I); -fornext_entrylabel4260: -*_FUNC_IDE2_LONG_I=fornext_value4260; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative4260){ -if (fornext_value4260fornext_finalvalue4260) break; -} -fornext_error4260:; -if(qbevent){evnt(26070,3111,"ide_methods.bas");if(r)goto S_39690;} -S_39691:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_IDE2_STRING_CHAR__ASCII_CHR_046__SEP,func_mid(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_I, 1 ,0|1),0)))||new_error){ -if(qbevent){evnt(26070,3112,"ide_methods.bas");if(r)goto S_39691;} -do{ -goto fornext_exit_4259; -if(!qbevent)break;evnt(26070,3112,"ide_methods.bas");}while(r); -} -fornext_continue_4259:; -} -fornext_exit_4259:; -do{ -*__LONG_IDECX=*_FUNC_IDE2_LONG_I; -if(!qbevent)break;evnt(26070,3114,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_WHOLEWORD__ASCII_CHR_046__IDECX=*__LONG_IDECX; -if(!qbevent)break;evnt(26070,3115,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_BYTE_WHOLEWORD__ASCII_CHR_046__SELECT= -1 ; -if(!qbevent)break;evnt(26070,3116,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_WHOLEWORD__ASCII_CHR_046__IDECY=*__LONG_IDECY; -if(!qbevent)break;evnt(26070,3117,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_WHOLEWORD__ASCII_CHR_046__SELECTY1=*__LONG_IDESELECTY1; -if(!qbevent)break;evnt(26070,3118,"ide_methods.bas");}while(r); -} -} -} -}else{ -LABEL_REGULARTEXTBOX_CLICK:; -if(qbevent){evnt(26070,3122,"ide_methods.bas");r=0;} -do{ -*_FUNC_IDE2_LONG_OLD__ASCII_CHR_046__MX=*__LONG_MX; -if(!qbevent)break;evnt(26070,3123,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_OLD__ASCII_CHR_046__MY=*__LONG_MY; -if(!qbevent)break;evnt(26070,3123,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_DOUBLE_LAST__ASCII_CHR_046__TBCLICK=func_timer(NULL,0); -if(!qbevent)break;evnt(26070,3123,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESELECT= 1 ; -if(!qbevent)break;evnt(26070,3124,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECX=(*__LONG_MX- 1 +*__LONG_IDESX- 1 )-*__LONG_MAXLINENUMBERLENGTH; -if(!qbevent)break;evnt(26070,3125,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECY=*__LONG_MY- 2 +*__LONG_IDESY- 1 ; -if(!qbevent)break;evnt(26070,3126,"ide_methods.bas");}while(r); -S_39709:; -if ((-(*__LONG_IDECY>*__LONG_IDEN))||new_error){ -if(qbevent){evnt(26070,3127,"ide_methods.bas");if(r)goto S_39709;} -do{ -*__LONG_IDECY=*__LONG_IDEN; -if(!qbevent)break;evnt(26070,3127,"ide_methods.bas");}while(r); -} -do{ -*__LONG_IDESELECT= 1 ; -if(!qbevent)break;evnt(26070,3128,"ide_methods.bas");}while(r); -S_39713:; -if (((~(*__LONG_KSHIFT)))||new_error){ -if(qbevent){evnt(26070,3129,"ide_methods.bas");if(r)goto S_39713;} -do{ -*__LONG_IDESELECTX1=*__LONG_IDECX; -if(!qbevent)break;evnt(26070,3129,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESELECTY1=*__LONG_IDECY; -if(!qbevent)break;evnt(26070,3129,"ide_methods.bas");}while(r); -} -do{ -*__LONG_IDEMOUSESELECT= 1 ; -if(!qbevent)break;evnt(26070,3130,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_BYTE_WHOLEWORD__ASCII_CHR_046__SELECT= 0 ; -if(!qbevent)break;evnt(26070,3131,"ide_methods.bas");}while(r); -} -S_39720:; -}else{ -if (((-(*__LONG_MX> 1 ))&(-(*__LONG_MX<=( 1 +*__LONG_MAXLINENUMBERLENGTH)))&(-(*__LONG_MY> 2 ))&(-(*__LONG_MY<(*__LONG_IDEWY- 5 )))&*__BYTE_SHOWLINENUMBERS)|((-(*__LONG_MX== 1 ))&(-(*__LONG_MY> 2 ))&(-(*__LONG_MY<(*__LONG_IDEWY- 5 )))&(-(*__BYTE_SHOWLINENUMBERS== 0 )))){ -if(qbevent){evnt(26070,3134,"ide_methods.bas");if(r)goto S_39720;} -S_39721:; -if (((-(*__BYTE_AUTOADDDEBUGCOMMAND!= 0 ))|(-(*__LONG_VWATCHON!= 0 )))||new_error){ -if(qbevent){evnt(26070,3137,"ide_methods.bas");if(r)goto S_39721;} -do{ -*__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(26070,3138,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_IDECYTEMP=*__LONG_MY- 2 +*__LONG_IDESY- 1 ; -if(!qbevent)break;evnt(26070,3139,"ide_methods.bas");}while(r); -S_39724:; -if ((-(*_FUNC_IDE2_LONG_IDECYTEMP<=*__LONG_IDEN))||new_error){ -if(qbevent){evnt(26070,3140,"ide_methods.bas");if(r)goto S_39724;} -do{ -*__LONG_IDECY=*_FUNC_IDE2_LONG_IDECYTEMP; -if(!qbevent)break;evnt(26070,3141,"ide_methods.bas");}while(r); -S_39726:; -if ((func__keydown( 100304 )|func__keydown( 100303 ))||new_error){ -if(qbevent){evnt(26070,3142,"ide_methods.bas");if(r)goto S_39726;} -do{ -goto LABEL_TOGGLESKIPLINE; -if(!qbevent)break;evnt(26070,3143,"ide_methods.bas");}while(r); -}else{ -do{ -goto LABEL_TOGGLEBREAKPOINT; -if(!qbevent)break;evnt(26070,3145,"ide_methods.bas");}while(r); -} -} -}else{ -do{ -*__LONG_IDESELECT= 1 ; -if(!qbevent)break;evnt(26070,3149,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECY=*__LONG_MY- 2 +*__LONG_IDESY- 1 ; -if(!qbevent)break;evnt(26070,3150,"ide_methods.bas");}while(r); -S_39735:; -if ((-(*__LONG_IDECY<*__LONG_IDEN))||new_error){ -if(qbevent){evnt(26070,3151,"ide_methods.bas");if(r)goto S_39735;} -S_39736:; -if (((~(*__LONG_KSHIFT)))||new_error){ -if(qbevent){evnt(26070,3152,"ide_methods.bas");if(r)goto S_39736;} -do{ -*__LONG_IDESELECTX1= 1 ; -if(!qbevent)break;evnt(26070,3152,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESELECTY1=*__LONG_IDECY; -if(!qbevent)break;evnt(26070,3152,"ide_methods.bas");}while(r); -} -do{ -*__LONG_IDECY=*__LONG_IDECY+ 1 ; -if(!qbevent)break;evnt(26070,3153,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECX= 1 ; -if(!qbevent)break;evnt(26070,3154,"ide_methods.bas");}while(r); -S_39742:; -}else{ -if (-(*__LONG_IDECY==*__LONG_IDEN)){ -if(qbevent){evnt(26070,3155,"ide_methods.bas");if(r)goto S_39742;} -do{ -qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3156,"ide_methods.bas");}while(r); -S_39744:; -if (((~(*__LONG_KSHIFT)))||new_error){ -if(qbevent){evnt(26070,3157,"ide_methods.bas");if(r)goto S_39744;} -do{ -*__LONG_IDESELECTX1= 1 ; -if(!qbevent)break;evnt(26070,3157,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESELECTY1=*__LONG_IDECY; -if(!qbevent)break;evnt(26070,3157,"ide_methods.bas");}while(r); -} -do{ -*__LONG_IDECX=_FUNC_IDE2_STRING_A->len+ 1 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3158,"ide_methods.bas");}while(r); -S_39749:; -}else{ -if (-(*__LONG_IDECY>*__LONG_IDEN)){ -if(qbevent){evnt(26070,3159,"ide_methods.bas");if(r)goto S_39749;} -do{ -*__LONG_IDECY=*__LONG_IDEN; -if(!qbevent)break;evnt(26070,3160,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(26070,3161,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECX= 1 ; -if(!qbevent)break;evnt(26070,3162,"ide_methods.bas");}while(r); -} -} -} -do{ -*_FUNC_IDE2_BYTE_WHOLEWORD__ASCII_CHR_046__SELECT= 0 ; -if(!qbevent)break;evnt(26070,3164,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEMOUSESELECT= 0 ; -if(!qbevent)break;evnt(26070,3165,"ide_methods.bas");}while(r); -} -} -} -} -LABEL_DONEWHOLEWORD:; -if(qbevent){evnt(26070,3170,"ide_methods.bas");r=0;} -S_39759:; -if ((*__LONG_MCLICK2)||new_error){ -if(qbevent){evnt(26070,3172,"ide_methods.bas");if(r)goto S_39759;} -LABEL_INVOKECONTEXTUALMENU:; -if(qbevent){evnt(26070,3173,"ide_methods.bas");r=0;} -S_39760:; -if (((-(*__LONG_MX>( 1 +*__LONG_MAXLINENUMBERLENGTH)))&(-(*__LONG_MX<*__LONG_IDEWX))&(-(*__LONG_MY> 2 ))&(-(*__LONG_MY<(*__LONG_IDEWY- 5 ))))||new_error){ -if(qbevent){evnt(26070,3174,"ide_methods.bas");if(r)goto S_39760;} -do{ -*__LONG_IDESYSTEM= 1 ; -if(!qbevent)break;evnt(26070,3175,"ide_methods.bas");}while(r); -S_39762:; -if ((-(*__LONG_IDESELECT== 0 ))||new_error){ -if(qbevent){evnt(26070,3176,"ide_methods.bas");if(r)goto S_39762;} -do{ -*__LONG_IDECX=(*__LONG_MX- 1 +*__LONG_IDESX- 1 )-*__LONG_MAXLINENUMBERLENGTH; -if(!qbevent)break;evnt(26070,3177,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECY=*__LONG_MY- 2 +*__LONG_IDESY- 1 ; -if(!qbevent)break;evnt(26070,3178,"ide_methods.bas");}while(r); -S_39765:; -if ((-(*__LONG_IDECY>*__LONG_IDEN))||new_error){ -if(qbevent){evnt(26070,3179,"ide_methods.bas");if(r)goto S_39765;} -do{ -*__LONG_IDECY=*__LONG_IDEN; -if(!qbevent)break;evnt(26070,3179,"ide_methods.bas");}while(r); -} -}else{ -S_39769:; -if ((-(*__LONG_IDESELECTY1==*__LONG_IDECY))||new_error){ -if(qbevent){evnt(26070,3181,"ide_methods.bas");if(r)goto S_39769;} -do{ -qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3182,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_A2,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3183,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_SX1=*__LONG_IDESELECTX1; -if(!qbevent)break;evnt(26070,3184,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_SX2=*__LONG_IDECX; -if(!qbevent)break;evnt(26070,3184,"ide_methods.bas");}while(r); -S_39774:; -if ((-(*_FUNC_IDE2_LONG_SX2<*_FUNC_IDE2_LONG_SX1))||new_error){ -if(qbevent){evnt(26070,3185,"ide_methods.bas");if(r)goto S_39774;} -do{ -swap_32(&*_FUNC_IDE2_LONG_SX1,&*_FUNC_IDE2_LONG_SX2); -if(!qbevent)break;evnt(26070,3185,"ide_methods.bas");}while(r); -} -S_39777:; -fornext_value4264=*_FUNC_IDE2_LONG_SX1; -fornext_finalvalue4264=*_FUNC_IDE2_LONG_SX2- 1 ; -fornext_step4264= 1 ; -if (fornext_step4264<0) fornext_step_negative4264=1; else fornext_step_negative4264=0; -if (new_error) goto fornext_error4264; -goto fornext_entrylabel4264; -while(1){ -fornext_value4264=fornext_step4264+(*_FUNC_IDE2_LONG_X); -fornext_entrylabel4264: -*_FUNC_IDE2_LONG_X=fornext_value4264; -if (fornext_step_negative4264){ -if (fornext_value4264fornext_finalvalue4264) break; -} -fornext_error4264:; -if(qbevent){evnt(26070,3186,"ide_methods.bas");if(r)goto S_39777;} -S_39778:; -if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDE2_LONG_X<=_FUNC_IDE2_STRING_A->len)))||new_error){ -if(qbevent){evnt(26070,3187,"ide_methods.bas");if(r)goto S_39778;} -do{ -qbs_set(_FUNC_IDE2_STRING_A2,qbs_add(_FUNC_IDE2_STRING_A2,func_mid(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_X, 1 ,0|1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3187,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDE2_STRING_A2,qbs_add(_FUNC_IDE2_STRING_A2,qbs_new_txt_len(" ",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3187,"ide_methods.bas");}while(r); -} -fornext_continue_4263:; -} -fornext_exit_4263:; -S_39784:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_A2,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,3189,"ide_methods.bas");if(r)goto S_39784;} -do{ -*__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(26070,3191,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECX=(*__LONG_MX- 1 +*__LONG_IDESX- 1 )-*__LONG_MAXLINENUMBERLENGTH; -if(!qbevent)break;evnt(26070,3192,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECY=*__LONG_MY- 2 +*__LONG_IDESY- 1 ; -if(!qbevent)break;evnt(26070,3193,"ide_methods.bas");}while(r); -S_39788:; -if ((-(*__LONG_IDECY>*__LONG_IDEN))||new_error){ -if(qbevent){evnt(26070,3194,"ide_methods.bas");if(r)goto S_39788;} -do{ -*__LONG_IDECY=*__LONG_IDEN; -if(!qbevent)break;evnt(26070,3194,"ide_methods.bas");}while(r); -} -}else{ -S_39792:; -if (((-(((*__LONG_MX- 1 +*__LONG_IDESX- 1 )-*__LONG_MAXLINENUMBERLENGTH)<*_FUNC_IDE2_LONG_SX1))|(-(((*__LONG_MX- 1 +*__LONG_IDESX- 1 )-*__LONG_MAXLINENUMBERLENGTH)>*_FUNC_IDE2_LONG_SX2)))||new_error){ -if(qbevent){evnt(26070,3197,"ide_methods.bas");if(r)goto S_39792;} -do{ -*__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(26070,3198,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECX=(*__LONG_MX- 1 +*__LONG_IDESX- 1 )-*__LONG_MAXLINENUMBERLENGTH; -if(!qbevent)break;evnt(26070,3199,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECY=*__LONG_MY- 2 +*__LONG_IDESY- 1 ; -if(!qbevent)break;evnt(26070,3200,"ide_methods.bas");}while(r); -S_39796:; -if ((-(*__LONG_IDECY>*__LONG_IDEN))||new_error){ -if(qbevent){evnt(26070,3201,"ide_methods.bas");if(r)goto S_39796;} -do{ -*__LONG_IDECY=*__LONG_IDEN; -if(!qbevent)break;evnt(26070,3201,"ide_methods.bas");}while(r); -} -} -S_39800:; -if (((-((*__LONG_MY- 2 +*__LONG_IDESY- 1 )<*__LONG_IDECY))|(-((*__LONG_MY- 2 +*__LONG_IDESY- 1 )>*__LONG_IDECY)))||new_error){ -if(qbevent){evnt(26070,3203,"ide_methods.bas");if(r)goto S_39800;} -do{ -*__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(26070,3204,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECX=(*__LONG_MX- 1 +*__LONG_IDESX- 1 )-*__LONG_MAXLINENUMBERLENGTH; -if(!qbevent)break;evnt(26070,3205,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECY=*__LONG_MY- 2 +*__LONG_IDESY- 1 ; -if(!qbevent)break;evnt(26070,3206,"ide_methods.bas");}while(r); -S_39804:; -if ((-(*__LONG_IDECY>*__LONG_IDEN))||new_error){ -if(qbevent){evnt(26070,3207,"ide_methods.bas");if(r)goto S_39804;} -do{ -*__LONG_IDECY=*__LONG_IDEN; -if(!qbevent)break;evnt(26070,3207,"ide_methods.bas");}while(r); -} -} -} -}else{ -do{ -*_FUNC_IDE2_LONG_SY1=*__LONG_IDESELECTY1; -if(!qbevent)break;evnt(26070,3212,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_SY2=*__LONG_IDECY; -if(!qbevent)break;evnt(26070,3213,"ide_methods.bas");}while(r); -S_39812:; -if ((-(*_FUNC_IDE2_LONG_SY1>*_FUNC_IDE2_LONG_SY2))||new_error){ -if(qbevent){evnt(26070,3214,"ide_methods.bas");if(r)goto S_39812;} -do{ -swap_32(&*_FUNC_IDE2_LONG_SY1,&*_FUNC_IDE2_LONG_SY2); -if(!qbevent)break;evnt(26070,3214,"ide_methods.bas");}while(r); -} -S_39815:; -if (((-((*__LONG_MY- 2 +*__LONG_IDESY- 1 )<*_FUNC_IDE2_LONG_SY1))|(-((*__LONG_MY- 2 +*__LONG_IDESY- 1 )>*_FUNC_IDE2_LONG_SY2)))||new_error){ -if(qbevent){evnt(26070,3215,"ide_methods.bas");if(r)goto S_39815;} -do{ -*__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(26070,3216,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECX=(*__LONG_MX- 1 +*__LONG_IDESX- 1 )-*__LONG_MAXLINENUMBERLENGTH; -if(!qbevent)break;evnt(26070,3217,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECY=*__LONG_MY- 2 +*__LONG_IDESY- 1 ; -if(!qbevent)break;evnt(26070,3218,"ide_methods.bas");}while(r); -S_39819:; -if ((-(*__LONG_IDECY>*__LONG_IDEN))||new_error){ -if(qbevent){evnt(26070,3219,"ide_methods.bas");if(r)goto S_39819;} -do{ -*__LONG_IDECY=*__LONG_IDEN; -if(!qbevent)break;evnt(26070,3219,"ide_methods.bas");}while(r); -} -} -} -} -do{ -SUB_IDESHOWTEXT(); -if(!qbevent)break;evnt(26070,3223,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,3224,"ide_methods.bas");}while(r); -do{ -SUB_IDEMAKECONTEXTUALMENU(); -if(!qbevent)break;evnt(26070,3225,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_IDECONTEXTUALMENU= 1 ; -if(!qbevent)break;evnt(26070,3226,"ide_methods.bas");}while(r); -do{ -goto LABEL_SHOWMENU; -if(!qbevent)break;evnt(26070,3227,"ide_methods.bas");}while(r); -S_39830:; -}else{ -if ((-(*__LONG_IDEHELP== 1 ))&(-(*__LONG_MY>=*__LONG_IDEWY))&(-(*__LONG_MY<(*__LONG_IDEWY+*__LONG_IDESUBWINDOW)))){ -if(qbevent){evnt(26070,3228,"ide_methods.bas");if(r)goto S_39830;} -do{ -*__LONG_IDESYSTEM= 3 ; -if(!qbevent)break;evnt(26070,3229,"ide_methods.bas");}while(r); -do{ -SUB_IDESHOWTEXT(); -if(!qbevent)break;evnt(26070,3230,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,3231,"ide_methods.bas");}while(r); -do{ -SUB_IDEMAKECONTEXTUALMENU(); -if(!qbevent)break;evnt(26070,3232,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_IDECONTEXTUALMENU= 1 ; -if(!qbevent)break;evnt(26070,3233,"ide_methods.bas");}while(r); -do{ -goto LABEL_SHOWMENU; -if(!qbevent)break;evnt(26070,3234,"ide_methods.bas");}while(r); -} -} -} -S_39839:; -if ((*__LONG_MCLICK)||new_error){ -if(qbevent){evnt(26070,3238,"ide_methods.bas");if(r)goto S_39839;} -S_39840:; -if ((-(*__LONG_MX==*__LONG_IDEWX))||new_error){ -if(qbevent){evnt(26070,3239,"ide_methods.bas");if(r)goto S_39840;} -S_39841:; -if ((-(*__LONG_IDEN> 1 ))||new_error){ -if(qbevent){evnt(26070,3240,"ide_methods.bas");if(r)goto S_39841;} -do{ -*_FUNC_IDE2_LONG_Y=FUNC_IDEVBAR(__LONG_IDEWX,&(pass4266= 3 ),&(pass4267=*__LONG_IDEWY- 8 ),__LONG_IDECY,__LONG_IDEN); -if(!qbevent)break;evnt(26070,3241,"ide_methods.bas");}while(r); -S_39843:; -if ((-(*_FUNC_IDE2_LONG_Y==*__LONG_MY))||new_error){ -if(qbevent){evnt(26070,3242,"ide_methods.bas");if(r)goto S_39843;} -do{ -*__LONG_IDEMOUSESELECT= 2 ; -if(!qbevent)break;evnt(26070,3243,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(26070,3244,"ide_methods.bas");}while(r); -} -} -} -} -S_39850:; -if ((*__LONG_MCLICK)||new_error){ -if(qbevent){evnt(26070,3250,"ide_methods.bas");if(r)goto S_39850;} -S_39851:; -if ((-(*__LONG_MY==(*__LONG_IDEWY- 5 )))||new_error){ -if(qbevent){evnt(26070,3251,"ide_methods.bas");if(r)goto S_39851;} -do{ -*_FUNC_IDE2_LONG_X=FUNC_IDEHBAR(&(pass4268= 2 ),&(pass4269=*__LONG_IDEWY- 5 ),&(pass4270=*__LONG_IDEWX- 2 ),__LONG_IDESX,&(pass4271= 608 )); -if(!qbevent)break;evnt(26070,3252,"ide_methods.bas");}while(r); -S_39853:; -if ((-(*_FUNC_IDE2_LONG_X==*__LONG_MX))||new_error){ -if(qbevent){evnt(26070,3253,"ide_methods.bas");if(r)goto S_39853;} -do{ -*__LONG_IDEMOUSESELECT= 3 ; -if(!qbevent)break;evnt(26070,3254,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(26070,3255,"ide_methods.bas");}while(r); -} -} -} -S_39859:; -if ((*__LONG_MB&(-(*__LONG_IDEMOUSESELECT== 0 )))||new_error){ -if(qbevent){evnt(26070,3260,"ide_methods.bas");if(r)goto S_39859;} -S_39860:; -if (((-(*__LONG_MX==*__LONG_IDEWX))&(-(*__LONG_MY> 2 ))&(-(*__LONG_MY<(*__LONG_IDEWY- 5 ))))||new_error){ -if(qbevent){evnt(26070,3261,"ide_methods.bas");if(r)goto S_39860;} -do{ -*__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(26070,3262,"ide_methods.bas");}while(r); -S_39862:; -if ((-(*__LONG_MY== 3 ))||new_error){ -if(qbevent){evnt(26070,3263,"ide_methods.bas");if(r)goto S_39862;} -do{ -*__LONG_KB= 18432 ; -if(!qbevent)break;evnt(26070,3263,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT(); -if(!qbevent)break;evnt(26070,3263,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEMBMONITOR= 1 ; -if(!qbevent)break;evnt(26070,3263,"ide_methods.bas");}while(r); -} -S_39867:; -if ((-(*__LONG_MY==(*__LONG_IDEWY- 6 )))||new_error){ -if(qbevent){evnt(26070,3264,"ide_methods.bas");if(r)goto S_39867;} -do{ -*__LONG_KB= 20480 ; -if(!qbevent)break;evnt(26070,3264,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT(); -if(!qbevent)break;evnt(26070,3264,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEMBMONITOR= 1 ; -if(!qbevent)break;evnt(26070,3264,"ide_methods.bas");}while(r); -} -S_39872:; -if (((-(*__LONG_MY> 3 ))&(-(*__LONG_MY<(*__LONG_IDEWY- 6 ))))||new_error){ -if(qbevent){evnt(26070,3265,"ide_methods.bas");if(r)goto S_39872;} -S_39873:; -if ((-(*__LONG_IDEN> 1 ))||new_error){ -if(qbevent){evnt(26070,3267,"ide_methods.bas");if(r)goto S_39873;} -do{ -*_FUNC_IDE2_LONG_Y=FUNC_IDEVBAR(__LONG_IDEWX,&(pass4272= 3 ),&(pass4273=*__LONG_IDEWY- 8 ),__LONG_IDECY,__LONG_IDEN); -if(!qbevent)break;evnt(26070,3268,"ide_methods.bas");}while(r); -S_39875:; -if ((-(*_FUNC_IDE2_LONG_Y!=*__LONG_MY))||new_error){ -if(qbevent){evnt(26070,3269,"ide_methods.bas");if(r)goto S_39875;} -S_39876:; -if ((-(*__LONG_MY<*_FUNC_IDE2_LONG_Y))||new_error){ -if(qbevent){evnt(26070,3270,"ide_methods.bas");if(r)goto S_39876;} -do{ -*__LONG_KB= 18688 ; -if(!qbevent)break;evnt(26070,3271,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT(); -if(!qbevent)break;evnt(26070,3271,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEMBMONITOR= 1 ; -if(!qbevent)break;evnt(26070,3271,"ide_methods.bas");}while(r); -}else{ -do{ -*__LONG_KB= 20736 ; -if(!qbevent)break;evnt(26070,3273,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT(); -if(!qbevent)break;evnt(26070,3273,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEMBMONITOR= 1 ; -if(!qbevent)break;evnt(26070,3273,"ide_methods.bas");}while(r); -} -} -} -} -} -} -S_39890:; -if ((*__LONG_MB&(-(*__LONG_IDEMOUSESELECT== 0 )))||new_error){ -if(qbevent){evnt(26070,3281,"ide_methods.bas");if(r)goto S_39890;} -S_39891:; -if (((-(*__LONG_MY==(*__LONG_IDEWY- 5 )))&(-(*__LONG_MX> 1 ))&(-(*__LONG_MX<*__LONG_IDEWX)))||new_error){ -if(qbevent){evnt(26070,3282,"ide_methods.bas");if(r)goto S_39891;} -do{ -*__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(26070,3283,"ide_methods.bas");}while(r); -S_39893:; -if ((-(*__LONG_MX== 2 ))||new_error){ -if(qbevent){evnt(26070,3284,"ide_methods.bas");if(r)goto S_39893;} -do{ -*__LONG_KB= 19200 ; -if(!qbevent)break;evnt(26070,3284,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT(); -if(!qbevent)break;evnt(26070,3284,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEMBMONITOR= 1 ; -if(!qbevent)break;evnt(26070,3284,"ide_methods.bas");}while(r); -} -S_39898:; -if ((-(*__LONG_MX==(*__LONG_IDEWX- 1 )))||new_error){ -if(qbevent){evnt(26070,3285,"ide_methods.bas");if(r)goto S_39898;} -do{ -*__LONG_KB= 19712 ; -if(!qbevent)break;evnt(26070,3285,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT(); -if(!qbevent)break;evnt(26070,3285,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEMBMONITOR= 1 ; -if(!qbevent)break;evnt(26070,3285,"ide_methods.bas");}while(r); -} -S_39903:; -if (((-(*__LONG_MX> 2 ))&(-(*__LONG_MX<(*__LONG_IDEWX- 1 ))))||new_error){ -if(qbevent){evnt(26070,3286,"ide_methods.bas");if(r)goto S_39903;} -do{ -*_FUNC_IDE2_LONG_X=FUNC_IDEHBAR(&(pass4274= 2 ),&(pass4275=*__LONG_IDEWY- 5 ),&(pass4276=*__LONG_IDEWX- 2 ),__LONG_IDESX,&(pass4277= 608 )); -if(!qbevent)break;evnt(26070,3288,"ide_methods.bas");}while(r); -S_39905:; -if ((-(*_FUNC_IDE2_LONG_X!=*__LONG_MX))||new_error){ -if(qbevent){evnt(26070,3289,"ide_methods.bas");if(r)goto S_39905;} -S_39906:; -if ((-(*__LONG_MX<*_FUNC_IDE2_LONG_X))||new_error){ -if(qbevent){evnt(26070,3290,"ide_methods.bas");if(r)goto S_39906;} -do{ -*__LONG_IDECX=*__LONG_IDECX- 8 ; -if(!qbevent)break;evnt(26070,3291,"ide_methods.bas");}while(r); -S_39908:; -if ((-(*__LONG_IDECX< 1 ))||new_error){ -if(qbevent){evnt(26070,3292,"ide_methods.bas");if(r)goto S_39908;} -do{ -*__LONG_IDECX= 1 ; -if(!qbevent)break;evnt(26070,3292,"ide_methods.bas");}while(r); -} -do{ -SUB_IDEWAIT(); -if(!qbevent)break;evnt(26070,3293,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEMBMONITOR= 1 ; -if(!qbevent)break;evnt(26070,3293,"ide_methods.bas");}while(r); -}else{ -do{ -*__LONG_IDECX=*__LONG_IDECX+ 8 ; -if(!qbevent)break;evnt(26070,3295,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT(); -if(!qbevent)break;evnt(26070,3296,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEMBMONITOR= 1 ; -if(!qbevent)break;evnt(26070,3296,"ide_methods.bas");}while(r); -} -} -} -} -} -S_39922:; -if ((*__LONG_MB&(-(*__LONG_IDEMOUSESELECT== 2 )))||new_error){ -if(qbevent){evnt(26070,3304,"ide_methods.bas");if(r)goto S_39922;} -S_39923:; -if ((-(*__LONG_IDEN> 1 ))||new_error){ -if(qbevent){evnt(26070,3306,"ide_methods.bas");if(r)goto S_39923;} -S_39924:; -if ((-(*__LONG_MY<= 4 ))||new_error){ -if(qbevent){evnt(26070,3307,"ide_methods.bas");if(r)goto S_39924;} -do{ -*__LONG_IDECY= 1 ; -if(!qbevent)break;evnt(26070,3307,"ide_methods.bas");}while(r); -} -S_39927:; -if ((-(*__LONG_MY>=(*__LONG_IDEWY- 7 )))||new_error){ -if(qbevent){evnt(26070,3308,"ide_methods.bas");if(r)goto S_39927;} -do{ -*__LONG_IDECY=*__LONG_IDEN; -if(!qbevent)break;evnt(26070,3308,"ide_methods.bas");}while(r); -} -S_39930:; -if (((-(*__LONG_MY> 4 ))&(-(*__LONG_MY<(*__LONG_IDEWY- 7 ))))||new_error){ -if(qbevent){evnt(26070,3309,"ide_methods.bas");if(r)goto S_39930;} -do{ -*_FUNC_IDE2_LONG_Y=*__LONG_MY; -if(!qbevent)break;evnt(26070,3310,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_SINGLE_P=*_FUNC_IDE2_LONG_Y- 3 - 2 + 0.5E+0 ; -if(!qbevent)break;evnt(26070,3311,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_SINGLE_P=*_FUNC_IDE2_SINGLE_P/ ((*__LONG_IDEWY- 8 )- 4 ); -if(!qbevent)break;evnt(26070,3312,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=qbr((*_FUNC_IDE2_SINGLE_P*(*__LONG_IDEN- 1 ))+( 1 )); -if(!qbevent)break;evnt(26070,3313,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECY=*_FUNC_IDE2_LONG_I; -if(!qbevent)break;evnt(26070,3314,"ide_methods.bas");}while(r); -} -} -} -S_39939:; -if ((*__LONG_MB&(-(*__LONG_IDEMOUSESELECT== 3 )))||new_error){ -if(qbevent){evnt(26070,3319,"ide_methods.bas");if(r)goto S_39939;} -S_39940:; -if ((-(*__LONG_MX<= 3 ))||new_error){ -if(qbevent){evnt(26070,3321,"ide_methods.bas");if(r)goto S_39940;} -do{ -*__LONG_IDESX= 1 ; -if(!qbevent)break;evnt(26070,3321,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECX=*__LONG_IDESX; -if(!qbevent)break;evnt(26070,3321,"ide_methods.bas");}while(r); -} -S_39944:; -if ((-(*__LONG_MX>=(*__LONG_IDEWX- 2 )))||new_error){ -if(qbevent){evnt(26070,3322,"ide_methods.bas");if(r)goto S_39944;} -do{ -*__LONG_IDESX= 608 ; -if(!qbevent)break;evnt(26070,3322,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECX=*__LONG_IDESX; -if(!qbevent)break;evnt(26070,3322,"ide_methods.bas");}while(r); -} -S_39948:; -if (((-(*__LONG_MX> 3 ))&(-(*__LONG_MX<(*__LONG_IDEWX- 2 ))))||new_error){ -if(qbevent){evnt(26070,3323,"ide_methods.bas");if(r)goto S_39948;} -do{ -*_FUNC_IDE2_LONG_X=*__LONG_MX; -if(!qbevent)break;evnt(26070,3324,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_SINGLE_P=*_FUNC_IDE2_LONG_X- 2 - 2 + 0.5E+0 ; -if(!qbevent)break;evnt(26070,3325,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_SINGLE_P=*_FUNC_IDE2_SINGLE_P/ ((*__LONG_IDEWX- 2 )- 4 ); -if(!qbevent)break;evnt(26070,3326,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=qbr((*_FUNC_IDE2_SINGLE_P*( 608 - 1 ))+( 1 )); -if(!qbevent)break;evnt(26070,3327,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESX=*_FUNC_IDE2_LONG_I; -if(!qbevent)break;evnt(26070,3328,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECX=*__LONG_IDESX; -if(!qbevent)break;evnt(26070,3329,"ide_methods.bas");}while(r); -} -} -S_39957:; -if ((*__LONG_MB&(-(*__LONG_IDEMOUSESELECT<= 1 )))||new_error){ -if(qbevent){evnt(26070,3333,"ide_methods.bas");if(r)goto S_39957;} -S_39958:; -if (((-(*__LONG_MX>( 1 +*__LONG_MAXLINENUMBERLENGTH)))&(-(*__LONG_MX<*__LONG_IDEWX))&(-(*__LONG_MY> 2 ))&(-(*__LONG_MY<(*__LONG_IDEWY- 5 ))))||new_error){ -if(qbevent){evnt(26070,3334,"ide_methods.bas");if(r)goto S_39958;} -S_39959:; -if ((-(*__LONG_IDEMOUSESELECT== 1 ))||new_error){ -if(qbevent){evnt(26070,3335,"ide_methods.bas");if(r)goto S_39959;} -do{ -*__LONG_IDECX=(*__LONG_MX- 1 +*__LONG_IDESX- 1 )-*__LONG_MAXLINENUMBERLENGTH; -if(!qbevent)break;evnt(26070,3336,"ide_methods.bas");}while(r); -S_39961:; -if ((-(*__LONG_IDECX< 1 ))||new_error){ -if(qbevent){evnt(26070,3337,"ide_methods.bas");if(r)goto S_39961;} -do{ -*__LONG_IDECX= 1 ; -if(!qbevent)break;evnt(26070,3337,"ide_methods.bas");}while(r); -} -do{ -*__LONG_IDECY=*__LONG_MY- 2 +*__LONG_IDESY- 1 ; -if(!qbevent)break;evnt(26070,3338,"ide_methods.bas");}while(r); -S_39965:; -if ((-(*__LONG_IDECY>*__LONG_IDEN))||new_error){ -if(qbevent){evnt(26070,3339,"ide_methods.bas");if(r)goto S_39965;} -do{ -*__LONG_IDECY=*__LONG_IDEN; -if(!qbevent)break;evnt(26070,3339,"ide_methods.bas");}while(r); -} -} -} -} -S_39971:; -if ((*__LONG_MB)||new_error){ -if(qbevent){evnt(26070,3344,"ide_methods.bas");if(r)goto S_39971;} -S_39972:; -if ((((((-(*__LONG_MX== 1 ))&(-(*__BYTE_SHOWLINENUMBERS== 0 )))|((-(*__LONG_MX<=( 1 +*__LONG_MAXLINENUMBERLENGTH)))&*__BYTE_SHOWLINENUMBERS)))|(-(*__LONG_MX==*__LONG_IDEWX))|(-(*__LONG_MY<= 2 ))|(-(*__LONG_MY>=(*__LONG_IDEWY- 5 ))))||new_error){ -if(qbevent){evnt(26070,3345,"ide_methods.bas");if(r)goto S_39972;} -S_39973:; -if ((-(*__LONG_IDEMOUSESELECT== 1 ))||new_error){ -if(qbevent){evnt(26070,3346,"ide_methods.bas");if(r)goto S_39973;} -S_39974:; -if ((-(*__LONG_MY>=(*__LONG_IDEWY- 5 )))||new_error){ -if(qbevent){evnt(26070,3349,"ide_methods.bas");if(r)goto S_39974;} -do{ -*__LONG_IDECY=*__LONG_IDECY+ 1 ; -if(!qbevent)break;evnt(26070,3349,"ide_methods.bas");}while(r); -S_39976:; -if ((-(*__LONG_IDECY>*__LONG_IDEN))||new_error){ -if(qbevent){evnt(26070,3349,"ide_methods.bas");if(r)goto S_39976;} -do{ -*__LONG_IDECY=*__LONG_IDEN; -if(!qbevent)break;evnt(26070,3349,"ide_methods.bas");}while(r); -} -} -S_39980:; -if ((-(*__LONG_MY<= 2 ))||new_error){ -if(qbevent){evnt(26070,3350,"ide_methods.bas");if(r)goto S_39980;} -do{ -*__LONG_IDECY=*__LONG_IDECY- 1 ; -if(!qbevent)break;evnt(26070,3350,"ide_methods.bas");}while(r); -S_39982:; -if ((-(*__LONG_IDECY< 1 ))||new_error){ -if(qbevent){evnt(26070,3350,"ide_methods.bas");if(r)goto S_39982;} -do{ -*__LONG_IDECY= 1 ; -if(!qbevent)break;evnt(26070,3350,"ide_methods.bas");}while(r); -} -} -S_39986:; -if (((((-(*__LONG_MX== 1 ))&(-(*__BYTE_SHOWLINENUMBERS== 0 )))|((-(*__LONG_MX<=( 1 +*__LONG_MAXLINENUMBERLENGTH)))&*__BYTE_SHOWLINENUMBERS)))||new_error){ -if(qbevent){evnt(26070,3351,"ide_methods.bas");if(r)goto S_39986;} -do{ -*__LONG_IDECX=*__LONG_IDECX- 1 ; -if(!qbevent)break;evnt(26070,3351,"ide_methods.bas");}while(r); -S_39988:; -if ((-(*__LONG_IDECX< 1 ))||new_error){ -if(qbevent){evnt(26070,3351,"ide_methods.bas");if(r)goto S_39988;} -do{ -*__LONG_IDECX= 1 ; -if(!qbevent)break;evnt(26070,3351,"ide_methods.bas");}while(r); -} -} -S_39992:; -if ((-(*__LONG_MX==*__LONG_IDEWX))||new_error){ -if(qbevent){evnt(26070,3352,"ide_methods.bas");if(r)goto S_39992;} -do{ -*__LONG_IDECX=*__LONG_IDECX+ 1 ; -if(!qbevent)break;evnt(26070,3352,"ide_methods.bas");}while(r); -} -do{ -SUB_IDEWAIT(); -if(!qbevent)break;evnt(26070,3353,"ide_methods.bas");}while(r); -} -} -} -S_39999:; -if ((qbs_cleanup(qbs_tmp_base,*__LONG_KCONTROL&(qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("A",1)))))||new_error){ -if(qbevent){evnt(26070,3364,"ide_methods.bas");if(r)goto S_39999;} -LABEL_IDEMSELECTALL:; -if(qbevent){evnt(26070,3365,"ide_methods.bas");r=0;} -do{ -*__LONG_IDESELECT= 1 ; -if(!qbevent)break;evnt(26070,3366,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESELECTX1= 1 ; -if(!qbevent)break;evnt(26070,3366,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESELECTY1= 1 ; -if(!qbevent)break;evnt(26070,3366,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECY=*__LONG_IDEN; -if(!qbevent)break;evnt(26070,3367,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3368,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECX=_FUNC_IDE2_STRING_A->len+ 1 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3369,"ide_methods.bas");}while(r); -do{ -goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(26070,3370,"ide_methods.bas");}while(r); -} -S_40008:; -if ((qbs_cleanup(qbs_tmp_base,*__LONG_KCONTROL&(qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("G",1)))))||new_error){ -if(qbevent){evnt(26070,3373,"ide_methods.bas");if(r)goto S_40008;} -S_40009:; -if ((*__LONG_KSHIFT&(-(*__LONG_IDEFOCUSLINE> 0 )))||new_error){ -if(qbevent){evnt(26070,3374,"ide_methods.bas");if(r)goto S_40009;} -do{ -*__LONG_IDECX= 1 ; -if(!qbevent)break;evnt(26070,3375,"ide_methods.bas");}while(r); -do{ -SUB_ADDQUICKNAVHISTORY(); -if(!qbevent)break;evnt(26070,3376,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECY=*__LONG_IDEFOCUSLINE; -if(!qbevent)break;evnt(26070,3377,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(26070,3378,"ide_methods.bas");}while(r); -}else{ -do{ -SUB_IDEGOTOBOX(); -if(!qbevent)break;evnt(26070,3380,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,3382,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,3382,"ide_methods.bas");}while(r); -} -do{ -goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(26070,3384,"ide_methods.bas");}while(r); -} -S_40021:; -if ((qbs_cleanup(qbs_tmp_base,*__LONG_KCONTROL&(qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("N",1)))))||new_error){ -if(qbevent){evnt(26070,3387,"ide_methods.bas");if(r)goto S_40021;} -do{ -goto LABEL_CTRLNEW; -if(!qbevent)break;evnt(26070,3388,"ide_methods.bas");}while(r); -} -S_40024:; -if ((qbs_cleanup(qbs_tmp_base,*__LONG_KCONTROL&(qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("O",1)))))||new_error){ -if(qbevent){evnt(26070,3391,"ide_methods.bas");if(r)goto S_40024;} -do{ -qbs_set(__STRING_IDEOPENFILE,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3392,"ide_methods.bas");}while(r); -do{ -goto LABEL_CTRLOPEN; -if(!qbevent)break;evnt(26070,3393,"ide_methods.bas");}while(r); -} -S_40028:; -if ((qbs_cleanup(qbs_tmp_base,*__LONG_KCONTROL&(qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("P",1)))))||new_error){ -if(qbevent){evnt(26070,3396,"ide_methods.bas");if(r)goto S_40028;} -do{ -goto LABEL_TOGGLESKIPLINE; -if(!qbevent)break;evnt(26070,3397,"ide_methods.bas");}while(r); -} -S_40031:; -if ((qbs_cleanup(qbs_tmp_base,((~(*__LONG_KSHIFT)))&*__LONG_KCONTROL&(qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("R",1)))))||new_error){ -if(qbevent){evnt(26070,3400,"ide_methods.bas");if(r)goto S_40031;} -do{ -goto LABEL_CTRLADDCOMMENT; -if(!qbevent)break;evnt(26070,3401,"ide_methods.bas");}while(r); -} -S_40034:; -if ((qbs_cleanup(qbs_tmp_base,((~(*__LONG_KSHIFT)))&*__LONG_KCONTROL&(qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("T",1)))))||new_error){ -if(qbevent){evnt(26070,3404,"ide_methods.bas");if(r)goto S_40034;} -do{ -goto LABEL_CTRLTOGGLECOMMENT; -if(!qbevent)break;evnt(26070,3405,"ide_methods.bas");}while(r); -} -S_40037:; -if ((qbs_cleanup(qbs_tmp_base,*__LONG_KSHIFT&*__LONG_KCONTROL&(qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("R",1)))))||new_error){ -if(qbevent){evnt(26070,3408,"ide_methods.bas");if(r)goto S_40037;} -do{ -goto LABEL_CTRLREMOVECOMMENT; -if(!qbevent)break;evnt(26070,3409,"ide_methods.bas");}while(r); -} -S_40040:; -if ((qbs_cleanup(qbs_tmp_base,*__LONG_KCONTROL&(qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("S",1)))))||new_error){ -if(qbevent){evnt(26070,3412,"ide_methods.bas");if(r)goto S_40040;} -S_40041:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_IDEPROGNAME,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,3413,"ide_methods.bas");if(r)goto S_40041;} -do{ -qbs_set(_FUNC_IDE2_STRING_PROPOSEDTITLE,FUNC_FINDPROPOSEDTITLE()); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3414,"ide_methods.bas");}while(r); -S_40043:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_PROPOSEDTITLE,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,3415,"ide_methods.bas");if(r)goto S_40043;} -do{ -qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEFILEDIALOG(qbs_add(qbs_add(qbs_new_txt_len("untitled",8),__STRING_TEMPFOLDERINDEXSTR),qbs_new_txt_len(".bas",4)),&(pass4279= 2 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3416,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEFILEDIALOG(qbs_add(_FUNC_IDE2_STRING_PROPOSEDTITLE,qbs_new_txt_len(".bas",4)),&(pass4280= 2 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3418,"ide_methods.bas");}while(r); -} -S_40048:; -if ((-(*__LONG_IDEERROR> 1 ))||new_error){ -if(qbevent){evnt(26070,3420,"ide_methods.bas");if(r)goto S_40048;} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,3420,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,3420,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDEERRORMESSAGE; -if(!qbevent)break;evnt(26070,3420,"ide_methods.bas");}while(r); -} -}else{ -do{ -SUB_IDESAVE(qbs_add(qbs_add(__STRING_IDEPATH,__STRING1_IDEPATHSEP),__STRING_IDEPROGNAME)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3422,"ide_methods.bas");}while(r); -} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,3424,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,3424,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,3424,"ide_methods.bas");}while(r); -} -S_40060:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,(qbs_add(func_chr( 0 ),func_chr( 60 ))))))||new_error){ -if(qbevent){evnt(26070,3427,"ide_methods.bas");if(r)goto S_40060;} -S_40061:; -if ((*__LONG_KCONTROL)||new_error){ -if(qbevent){evnt(26070,3428,"ide_methods.bas");if(r)goto S_40061;} -S_40062:; -if ((-(*__LONG_QUICKNAVTOTAL> 0 ))||new_error){ -if(qbevent){evnt(26070,3429,"ide_methods.bas");if(r)goto S_40062;} -do{ -*__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(26070,3430,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECY=*(int32*)(((char*)__ARRAY_UDT_QUICKNAVHISTORY[0])+((array_check((*__LONG_QUICKNAVTOTAL)-__ARRAY_UDT_QUICKNAVHISTORY[4],__ARRAY_UDT_QUICKNAVHISTORY[5]))*16+12)); -if(!qbevent)break;evnt(26070,3431,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECX=*(int32*)(((char*)__ARRAY_UDT_QUICKNAVHISTORY[0])+((array_check((*__LONG_QUICKNAVTOTAL)-__ARRAY_UDT_QUICKNAVHISTORY[4],__ARRAY_UDT_QUICKNAVHISTORY[5]))*16+8)); -if(!qbevent)break;evnt(26070,3432,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESY=*(int32*)(((char*)__ARRAY_UDT_QUICKNAVHISTORY[0])+((array_check((*__LONG_QUICKNAVTOTAL)-__ARRAY_UDT_QUICKNAVHISTORY[4],__ARRAY_UDT_QUICKNAVHISTORY[5]))*16+4)); -if(!qbevent)break;evnt(26070,3433,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESX=*(int32*)(((char*)__ARRAY_UDT_QUICKNAVHISTORY[0])+((array_check((*__LONG_QUICKNAVTOTAL)-__ARRAY_UDT_QUICKNAVHISTORY[4],__ARRAY_UDT_QUICKNAVHISTORY[5]))*16)); -if(!qbevent)break;evnt(26070,3434,"ide_methods.bas");}while(r); -do{ -*__LONG_QUICKNAVTOTAL=*__LONG_QUICKNAVTOTAL- 1 ; -if(!qbevent)break;evnt(26070,3435,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,3436,"ide_methods.bas");}while(r); -} -}else{ -do{ -goto LABEL_IDESUBSJMP; -if(!qbevent)break;evnt(26070,3439,"ide_methods.bas");}while(r); -} -} -S_40075:; -if ((qbs_cleanup(qbs_tmp_base,*__LONG_KCONTROL&(qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("W",1)))))||new_error){ -if(qbevent){evnt(26070,3443,"ide_methods.bas");if(r)goto S_40075;} -S_40076:; -if ((-(*__LONG_TOTALWARNINGS> 0 ))||new_error){ -if(qbevent){evnt(26070,3444,"ide_methods.bas");if(r)goto S_40076;} -do{ -*_FUNC_IDE2_LONG_RETVAL=FUNC_IDEWARNINGBOX(); -if(!qbevent)break;evnt(26070,3445,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,3447,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,3447,"ide_methods.bas");}while(r); -do{ -goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(26070,3448,"ide_methods.bas");}while(r); -}else{ -do{ -*_FUNC_IDE2_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Compilation status",18),qbs_new_txt_len("No warnings to display.",23),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3450,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,3451,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,3451,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,3452,"ide_methods.bas");}while(r); -} -} -S_40088:; -if ((qbs_cleanup(qbs_tmp_base,*__LONG_KCONTROL&(qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("Z",1)))))||new_error){ -if(qbevent){evnt(26070,3456,"ide_methods.bas");if(r)goto S_40088;} -LABEL_IDEMUNDO:; -if(qbevent){evnt(26070,3457,"ide_methods.bas");r=0;} -S_40089:; -if ((*__LONG_IDEUNDOPOS)||new_error){ -if(qbevent){evnt(26070,3458,"ide_methods.bas");if(r)goto S_40089;} -do{ -sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("undo2.bin",9)), 2 ,NULL,NULL, 150 ,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3459,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_H,func_space( 12 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3460,"ide_methods.bas");}while(r); -do{ -sub_get2( 150 ,NULL,_FUNC_IDE2_STRING_H,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3460,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_P1=string2l(func_mid(_FUNC_IDE2_STRING_H, 1 , 4 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3460,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_P2=string2l(func_mid(_FUNC_IDE2_STRING_H, 5 , 4 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3460,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_PLAST=string2l(func_mid(_FUNC_IDE2_STRING_H, 9 , 4 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3460,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_U= 0 ; -if(!qbevent)break;evnt(26070,3463,"ide_methods.bas");}while(r); -S_40097:; -if ((-(*_FUNC_IDE2_LONG_P2>=*_FUNC_IDE2_LONG_P1))||new_error){ -if(qbevent){evnt(26070,3464,"ide_methods.bas");if(r)goto S_40097;} -S_40098:; -if ((-(*__LONG_IDEUNDOPOS>*_FUNC_IDE2_LONG_P1))||new_error){ -if(qbevent){evnt(26070,3466,"ide_methods.bas");if(r)goto S_40098;} -do{ -sub_get( 150 ,*__LONG_IDEUNDOPOS- 4 ,byte_element((uint64)_FUNC_IDE2_LONG_UPL,4,byte_element_4281),1); -if(!qbevent)break;evnt(26070,3467,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_U=*__LONG_IDEUNDOPOS- 4 -*_FUNC_IDE2_LONG_UPL- 4 ; -if(!qbevent)break;evnt(26070,3468,"ide_methods.bas");}while(r); -} -}else{ -S_40103:; -if ((-(*__LONG_IDEUNDOPOS>*_FUNC_IDE2_LONG_P1))||new_error){ -if(qbevent){evnt(26070,3472,"ide_methods.bas");if(r)goto S_40103;} -do{ -sub_get( 150 ,*__LONG_IDEUNDOPOS- 4 ,byte_element((uint64)_FUNC_IDE2_LONG_UPL,4,byte_element_4282),1); -if(!qbevent)break;evnt(26070,3473,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_U=*__LONG_IDEUNDOPOS- 4 -*_FUNC_IDE2_LONG_UPL- 4 ; -if(!qbevent)break;evnt(26070,3474,"ide_methods.bas");}while(r); -} -S_40107:; -if ((-(*__LONG_IDEUNDOPOS<=*_FUNC_IDE2_LONG_P2))||new_error){ -if(qbevent){evnt(26070,3476,"ide_methods.bas");if(r)goto S_40107;} -S_40108:; -if ((-(*__LONG_IDEUNDOPOS== 13 ))||new_error){ -if(qbevent){evnt(26070,3477,"ide_methods.bas");if(r)goto S_40108;} -do{ -*_FUNC_IDE2_LONG_U=*_FUNC_IDE2_LONG_PLAST; -if(!qbevent)break;evnt(26070,3478,"ide_methods.bas");}while(r); -}else{ -do{ -sub_get( 150 ,*__LONG_IDEUNDOPOS- 4 ,byte_element((uint64)_FUNC_IDE2_LONG_UPL,4,byte_element_4283),1); -if(!qbevent)break;evnt(26070,3480,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_U=*__LONG_IDEUNDOPOS- 4 -*_FUNC_IDE2_LONG_UPL- 4 ; -if(!qbevent)break;evnt(26070,3481,"ide_methods.bas");}while(r); -} -} -} -S_40116:; -if ((*_FUNC_IDE2_LONG_U)||new_error){ -if(qbevent){evnt(26070,3486,"ide_methods.bas");if(r)goto S_40116;} -S_40117:; -if ((-(*__LONG_IDEUNDOPOS==*__LONG_IDEUNDOBASE))||new_error){ -if(qbevent){evnt(26070,3488,"ide_methods.bas");if(r)goto S_40117;} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,3491,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_WHAT,FUNC_IDEYESNOBOX(qbs_new_txt_len("Undo",4),qbs_new_txt_len("Undo through previous program content?",38))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3492,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,3493,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,3493,"ide_methods.bas");}while(r); -S_40122:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_WHAT,qbs_new_txt_len("N",1))))||new_error){ -if(qbevent){evnt(26070,3494,"ide_methods.bas");if(r)goto S_40122;} -do{ -sub_close( 150 ,1); -if(!qbevent)break;evnt(26070,3495,"ide_methods.bas");}while(r); -do{ -goto LABEL_SKIPUNDO; -if(!qbevent)break;evnt(26070,3496,"ide_methods.bas");}while(r); -} -S_40126:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_IDEUNSAVED== 1 ))&(qbs_notequal(__STRING_IDEPROGNAME,qbs_new_txt_len("",0)))))||new_error){ -if(qbevent){evnt(26070,3498,"ide_methods.bas");if(r)goto S_40126;} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,3499,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_R,FUNC_IDESAVENOW()); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3500,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,3501,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,3501,"ide_methods.bas");}while(r); -S_40131:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_R,qbs_new_txt_len("C",1))))||new_error){ -if(qbevent){evnt(26070,3502,"ide_methods.bas");if(r)goto S_40131;} -do{ -sub_close( 150 ,1); -if(!qbevent)break;evnt(26070,3502,"ide_methods.bas");}while(r); -do{ -goto LABEL_SKIPUNDO; -if(!qbevent)break;evnt(26070,3502,"ide_methods.bas");}while(r); -} -S_40135:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_R,qbs_new_txt_len("Y",1))))||new_error){ -if(qbevent){evnt(26070,3503,"ide_methods.bas");if(r)goto S_40135;} -do{ -SUB_IDESAVE(qbs_add(qbs_add(__STRING_IDEPATH,__STRING1_IDEPATHSEP),__STRING_IDEPROGNAME)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3504,"ide_methods.bas");}while(r); -} -} -do{ -*__LONG_IDEUNSAVED= 1 ; -if(!qbevent)break;evnt(26070,3507,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_IDEPROGNAME,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3508,"ide_methods.bas");}while(r); -do{ -sub__title(__STRING_WINDOWTITLE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3509,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEUNDOBASE= -1 ; -if(!qbevent)break;evnt(26070,3510,"ide_methods.bas");}while(r); -} -do{ -*__LONG_IDEUNDOPOS=*_FUNC_IDE2_LONG_U; -if(!qbevent)break;evnt(26070,3513,"ide_methods.bas");}while(r); -do{ -sub_seek( 150 ,*_FUNC_IDE2_LONG_U); -if(!qbevent)break;evnt(26070,3516,"ide_methods.bas");}while(r); -do{ -sub_get( 150 ,NULL,byte_element((uint64)_FUNC_IDE2_LONG_L2,4,byte_element_4284),0); -if(!qbevent)break;evnt(26070,3517,"ide_methods.bas");}while(r); -do{ -sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDESX,4,byte_element_4285),0); -if(!qbevent)break;evnt(26070,3518,"ide_methods.bas");}while(r); -do{ -sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDESY,4,byte_element_4286),0); -if(!qbevent)break;evnt(26070,3518,"ide_methods.bas");}while(r); -do{ -sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDECX,4,byte_element_4287),0); -if(!qbevent)break;evnt(26070,3519,"ide_methods.bas");}while(r); -do{ -sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDECY,4,byte_element_4288),0); -if(!qbevent)break;evnt(26070,3519,"ide_methods.bas");}while(r); -do{ -sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDESELECT,4,byte_element_4289),0); -if(!qbevent)break;evnt(26070,3520,"ide_methods.bas");}while(r); -do{ -sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDESELECTX1,4,byte_element_4290),0); -if(!qbevent)break;evnt(26070,3520,"ide_methods.bas");}while(r); -do{ -sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDESELECTY1,4,byte_element_4291),0); -if(!qbevent)break;evnt(26070,3520,"ide_methods.bas");}while(r); -do{ -sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDEN,4,byte_element_4292),0); -if(!qbevent)break;evnt(26070,3521,"ide_methods.bas");}while(r); -do{ -sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDEL,4,byte_element_4293),0); -if(!qbevent)break;evnt(26070,3522,"ide_methods.bas");}while(r); -do{ -sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDELI,4,byte_element_4294),0); -if(!qbevent)break;evnt(26070,3523,"ide_methods.bas");}while(r); -do{ -sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDEBMKN,4,byte_element_4295),0); -if(!qbevent)break;evnt(26070,3525,"ide_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26070,2933,"ide_methods.bas");}while(r); +} +do{ +*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*__LONG_IDEBMKN)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16))=*__LONG_IDECY; +if(!qbevent)break;evnt(26070,2934,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*__LONG_IDEBMKN)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16+4))=*__LONG_IDECX; +if(!qbevent)break;evnt(26070,2935,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*__LONG_IDEBMKN)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16+8))= 0 ; +if(!qbevent)break;evnt(26070,2936,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*__LONG_IDEBMKN)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16+12))= 0 ; +if(!qbevent)break;evnt(26070,2936,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEUNSAVED= 1 ; +if(!qbevent)break;evnt(26070,2937,"ide_methods.bas");}while(r); +} +do{ +goto LABEL_SPECIALCHAR; +if(!qbevent)break;evnt(26070,2939,"ide_methods.bas");}while(r); +} +S_39504:; +if ((*__LONG_KALT&((-(*__LONG_KB== 20480 ))|(-(*__LONG_KB== 18432 ))))||new_error){ +if(qbevent){evnt(26070,2942,"ide_methods.bas");if(r)goto S_39504;} +S_39505:; +if ((-(*__LONG_IDEBMKN== 0 ))||new_error){ +if(qbevent){evnt(26070,2943,"ide_methods.bas");if(r)goto S_39505;} +do{ +*_FUNC_IDE2_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Bookmarks",9),qbs_new_txt_len("No bookmarks exist (Use Alt+Left to create a bookmark)",54),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2944,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,2945,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEALTHIGHLIGHT= 0 ; +if(!qbevent)break;evnt(26070,2946,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); +if(!qbevent)break;evnt(26070,2947,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,2947,"ide_methods.bas");}while(r); +do{ +sub__printstring( 1 , 1 ,__STRING_MENUBAR,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2947,"ide_methods.bas");}while(r); +do{ +goto LABEL_SPECIALCHAR; +if(!qbevent)break;evnt(26070,2948,"ide_methods.bas");}while(r); +} +S_39514:; +if ((-(*__LONG_IDEBMKN== 1 ))||new_error){ +if(qbevent){evnt(26070,2950,"ide_methods.bas");if(r)goto S_39514;} +S_39515:; +if ((-(*__LONG_IDECY==*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check(( 1 )-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16))))||new_error){ +if(qbevent){evnt(26070,2951,"ide_methods.bas");if(r)goto S_39515;} +do{ +*_FUNC_IDE2_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Bookmarks",9),qbs_new_txt_len("No other bookmarks exist",24),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2952,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,2953,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEALTHIGHLIGHT= 0 ; +if(!qbevent)break;evnt(26070,2954,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); +if(!qbevent)break;evnt(26070,2955,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,2955,"ide_methods.bas");}while(r); +do{ +sub__printstring( 1 , 1 ,__STRING_MENUBAR,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2955,"ide_methods.bas");}while(r); +do{ +goto LABEL_SPECIALCHAR; +if(!qbevent)break;evnt(26070,2956,"ide_methods.bas");}while(r); +} +} +do{ +*_FUNC_IDE2_LONG_L=*__LONG_IDECY; +if(!qbevent)break;evnt(26070,2959,"ide_methods.bas");}while(r); +S_39526:; +do{ +if(qbevent){evnt(26070,2960,"ide_methods.bas");if(r)goto S_39526;} +S_39527:; +if ((-(*__LONG_KB== 20480 ))||new_error){ +if(qbevent){evnt(26070,2961,"ide_methods.bas");if(r)goto S_39527;} +do{ +*_FUNC_IDE2_LONG_L=*_FUNC_IDE2_LONG_L+ 1 ; +if(!qbevent)break;evnt(26070,2961,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_IDE2_LONG_L=*_FUNC_IDE2_LONG_L- 1 ; +if(!qbevent)break;evnt(26070,2961,"ide_methods.bas");}while(r); +} +S_39532:; +if ((-(*_FUNC_IDE2_LONG_L< 1 ))||new_error){ +if(qbevent){evnt(26070,2962,"ide_methods.bas");if(r)goto S_39532;} +do{ +*_FUNC_IDE2_LONG_L=*__LONG_IDEN; +if(!qbevent)break;evnt(26070,2962,"ide_methods.bas");}while(r); +} +S_39535:; +if ((-(*_FUNC_IDE2_LONG_L>*__LONG_IDEN))||new_error){ +if(qbevent){evnt(26070,2963,"ide_methods.bas");if(r)goto S_39535;} +do{ +*_FUNC_IDE2_LONG_L= 1 ; +if(!qbevent)break;evnt(26070,2963,"ide_methods.bas");}while(r); +} +S_39538:; +fornext_value4242= 1 ; +fornext_finalvalue4242=*__LONG_IDEBMKN; +fornext_step4242= 1 ; +if (fornext_step4242<0) fornext_step_negative4242=1; else fornext_step_negative4242=0; +if (new_error) goto fornext_error4242; +goto fornext_entrylabel4242; +while(1){ +fornext_value4242=fornext_step4242+(*_FUNC_IDE2_LONG_B); +fornext_entrylabel4242: +*_FUNC_IDE2_LONG_B=fornext_value4242; +if (fornext_step_negative4242){ +if (fornext_value4242fornext_finalvalue4242) break; +} +fornext_error4242:; +if(qbevent){evnt(26070,2964,"ide_methods.bas");if(r)goto S_39538;} +S_39539:; +if ((-(*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_FUNC_IDE2_LONG_B)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16))==*_FUNC_IDE2_LONG_L))||new_error){ +if(qbevent){evnt(26070,2965,"ide_methods.bas");if(r)goto S_39539;} +do{ +goto dl_exit_4240; +if(!qbevent)break;evnt(26070,2965,"ide_methods.bas");}while(r); +} +fornext_continue_4241:; +} +fornext_exit_4241:; +dl_continue_4240:; +}while(1); +dl_exit_4240:; +do{ +SUB_ADDQUICKNAVHISTORY(); +if(!qbevent)break;evnt(26070,2968,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECY=*_FUNC_IDE2_LONG_L; +if(!qbevent)break;evnt(26070,2969,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECX=*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_FUNC_IDE2_LONG_B)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16+4)); +if(!qbevent)break;evnt(26070,2970,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESELECT= 0 ; +if(!qbevent)break;evnt(26070,2971,"ide_methods.bas");}while(r); +do{ +SUB_IDECENTERCURRENTLINE(); +if(!qbevent)break;evnt(26070,2972,"ide_methods.bas");}while(r); +do{ +goto LABEL_SPECIALCHAR; +if(!qbevent)break;evnt(26070,2973,"ide_methods.bas");}while(r); +} +S_39551:; +if ((*__LONG_KALT&(-(*__LONG_KB== 19712 )))||new_error){ +if(qbevent){evnt(26070,2976,"ide_methods.bas");if(r)goto S_39551;} +do{ +goto LABEL_SPECIALCHAR; +if(!qbevent)break;evnt(26070,2978,"ide_methods.bas");}while(r); +} +S_39554:; +if ((*__LONG_KALT&(-(*__LONG_KB>= 48 ))&(-(*__LONG_KB<= 57 )))||new_error){ +if(qbevent){evnt(26070,2982,"ide_methods.bas");if(r)goto S_39554;} +do{ +goto LABEL_SPECIALCHAR; +if(!qbevent)break;evnt(26070,2982,"ide_methods.bas");}while(r); +} +S_39557:; +if (((-(*__LONG_IDESELECT== 1 ))&(-(*_FUNC_IDE2_BYTE_WHOLEWORD__ASCII_CHR_046__SELECT< 0 ))&(-(*__LONG_MY==*_FUNC_IDE2_LONG_OLD__ASCII_CHR_046__MY)))||new_error){ +if(qbevent){evnt(26070,2984,"ide_methods.bas");if(r)goto S_39557;} +S_39558:; +if ((-(*_FUNC_IDE2_BYTE_WHOLEWORD__ASCII_CHR_046__SELECT== -2 ))||new_error){ +if(qbevent){evnt(26070,2988,"ide_methods.bas");if(r)goto S_39558;} +do{ +*_FUNC_IDE2_BYTE_WHOLEWORD__ASCII_CHR_046__SELECT= -1 ; +if(!qbevent)break;evnt(26070,2991,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEMOUSESELECT= 0 ; +if(!qbevent)break;evnt(26070,2992,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESELECTX1=*_FUNC_IDE2_LONG_WHOLEWORD__ASCII_CHR_046__SELECTX1; +if(!qbevent)break;evnt(26070,2993,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECX=*_FUNC_IDE2_LONG_WHOLEWORD__ASCII_CHR_046__IDECX; +if(!qbevent)break;evnt(26070,2994,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESELECTY1=*_FUNC_IDE2_LONG_WHOLEWORD__ASCII_CHR_046__SELECTY1; +if(!qbevent)break;evnt(26070,2995,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECY=*_FUNC_IDE2_LONG_WHOLEWORD__ASCII_CHR_046__IDECY; +if(!qbevent)break;evnt(26070,2996,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDE2_LONG_NEWPOSITION=(*__LONG_MX- 1 +*__LONG_IDESX- 1 )-*__LONG_MAXLINENUMBERLENGTH; +if(!qbevent)break;evnt(26070,2998,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2999,"ide_methods.bas");}while(r); +S_39568:; +if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDE2_LONG_NEWPOSITION>_FUNC_IDE2_STRING_A->len)))||new_error){ +if(qbevent){evnt(26070,3000,"ide_methods.bas");if(r)goto S_39568;} +do{ +*__LONG_IDECX=*_FUNC_IDE2_LONG_NEWPOSITION; +if(!qbevent)break;evnt(26070,3000,"ide_methods.bas");}while(r); +do{ +goto LABEL_DONEWHOLEWORD; +if(!qbevent)break;evnt(26070,3000,"ide_methods.bas");}while(r); +} +S_39572:; +if ((-(*_FUNC_IDE2_LONG_NEWPOSITION== 1 ))||new_error){ +if(qbevent){evnt(26070,3001,"ide_methods.bas");if(r)goto S_39572;} +do{ +*__LONG_IDESELECTX1= 1 ; +if(!qbevent)break;evnt(26070,3001,"ide_methods.bas");}while(r); +do{ +goto LABEL_DONEWHOLEWORD; +if(!qbevent)break;evnt(26070,3001,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDE2_STRING_CHAR__ASCII_CHR_046__CLICKED,func_mid(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_NEWPOSITION, 1 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3002,"ide_methods.bas");}while(r); +S_39577:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDE2_STRING_CHAR__ASCII_CHR_046__CLICKED->len> 0 )))||new_error){ +if(qbevent){evnt(26070,3003,"ide_methods.bas");if(r)goto S_39577;} +S_39578:; +if ((-(*_FUNC_IDE2_LONG_NEWPOSITION<*_FUNC_IDE2_LONG_WHOLEWORD__ASCII_CHR_046__IDECX))||new_error){ +if(qbevent){evnt(26070,3004,"ide_methods.bas");if(r)goto S_39578;} +S_39579:; +fornext_value4246=*_FUNC_IDE2_LONG_NEWPOSITION; +fornext_finalvalue4246= 1 ; +fornext_step4246= -1 ; +if (fornext_step4246<0) fornext_step_negative4246=1; else fornext_step_negative4246=0; +if (new_error) goto fornext_error4246; +goto fornext_entrylabel4246; +while(1){ +fornext_value4246=fornext_step4246+(*_FUNC_IDE2_LONG_I); +fornext_entrylabel4246: +*_FUNC_IDE2_LONG_I=fornext_value4246; +if (fornext_step_negative4246){ +if (fornext_value4246fornext_finalvalue4246) break; +} +fornext_error4246:; +if(qbevent){evnt(26070,3006,"ide_methods.bas");if(r)goto S_39579;} +S_39580:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_IDE2_STRING_CHAR__ASCII_CHR_046__SEP,func_mid(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_I, 1 ,0|1),0)))||new_error){ +if(qbevent){evnt(26070,3007,"ide_methods.bas");if(r)goto S_39580;} +do{ +goto fornext_exit_4245; +if(!qbevent)break;evnt(26070,3007,"ide_methods.bas");}while(r); +} +fornext_continue_4245:; +} +fornext_exit_4245:; +do{ +*__LONG_IDESELECTX1=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,3009,"ide_methods.bas");}while(r); +S_39585:; +}else{ +if (-(*_FUNC_IDE2_LONG_NEWPOSITION>*_FUNC_IDE2_LONG_WHOLEWORD__ASCII_CHR_046__SELECTX1)){ +if(qbevent){evnt(26070,3010,"ide_methods.bas");if(r)goto S_39585;} +S_39586:; +fornext_value4248=*_FUNC_IDE2_LONG_NEWPOSITION; +fornext_finalvalue4248=_FUNC_IDE2_STRING_A->len; +fornext_step4248= 1 ; +if (fornext_step4248<0) fornext_step_negative4248=1; else fornext_step_negative4248=0; +if (new_error) goto fornext_error4248; +goto fornext_entrylabel4248; +while(1){ +fornext_value4248=fornext_step4248+(*_FUNC_IDE2_LONG_I); +fornext_entrylabel4248: +*_FUNC_IDE2_LONG_I=fornext_value4248; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative4248){ +if (fornext_value4248fornext_finalvalue4248) break; +} +fornext_error4248:; +if(qbevent){evnt(26070,3012,"ide_methods.bas");if(r)goto S_39586;} +S_39587:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_IDE2_STRING_CHAR__ASCII_CHR_046__SEP,func_mid(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_I, 1 ,0|1),0)))||new_error){ +if(qbevent){evnt(26070,3013,"ide_methods.bas");if(r)goto S_39587;} +do{ +goto fornext_exit_4247; +if(!qbevent)break;evnt(26070,3013,"ide_methods.bas");}while(r); +} +fornext_continue_4247:; +} +fornext_exit_4247:; +do{ +*__LONG_IDECX=*_FUNC_IDE2_LONG_I; +if(!qbevent)break;evnt(26070,3015,"ide_methods.bas");}while(r); +} +} +} +S_39594:; +}else{ +if ((-(*__LONG_IDESELECT== 1 ))&(-(*_FUNC_IDE2_BYTE_WHOLEWORD__ASCII_CHR_046__SELECT== -1 ))&(-(*__LONG_MY!=*_FUNC_IDE2_LONG_OLD__ASCII_CHR_046__MY))){ +if(qbevent){evnt(26070,3018,"ide_methods.bas");if(r)goto S_39594;} +do{ +*__LONG_IDEMOUSESELECT= 1 ; +if(!qbevent)break;evnt(26070,3019,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_BYTE_WHOLEWORD__ASCII_CHR_046__SELECT= -2 ; +if(!qbevent)break;evnt(26070,3020,"ide_methods.bas");}while(r); +} +} +S_39598:; +if ((*__LONG_MCLICK)||new_error){ +if(qbevent){evnt(26070,3023,"ide_methods.bas");if(r)goto S_39598;} +S_39599:; +if (((-(*__LONG_MX>( 1 +*__LONG_MAXLINENUMBERLENGTH)))&(-(*__LONG_MX<*__LONG_IDEWX))&(-(*__LONG_MY> 2 ))&(-(*__LONG_MY<(*__LONG_IDEWY- 5 ))))||new_error){ +if(qbevent){evnt(26070,3024,"ide_methods.bas");if(r)goto S_39599;} +S_39600:; +if (((-(*_FUNC_IDE2_LONG_OLD__ASCII_CHR_046__MX==*__LONG_MX))&(-(*_FUNC_IDE2_LONG_OLD__ASCII_CHR_046__MY==*__LONG_MY)))||new_error){ +if(qbevent){evnt(26070,3025,"ide_methods.bas");if(r)goto S_39600;} +S_39601:; +if ((-(((float)(FUNC_TIMEELAPSEDSINCE(&(pass4250=*_FUNC_IDE2_DOUBLE_LAST__ASCII_CHR_046__TBCLICK))))>((float)( 0.5E+0 ))))||new_error){ +if(qbevent){evnt(26070,3026,"ide_methods.bas");if(r)goto S_39601;} +do{ +goto LABEL_REGULARTEXTBOX_CLICK; +if(!qbevent)break;evnt(26070,3026,"ide_methods.bas");}while(r); +} +do{ +*__LONG_IDECX=(*__LONG_MX- 1 +*__LONG_IDESX- 1 )-*__LONG_MAXLINENUMBERLENGTH; +if(!qbevent)break;evnt(26070,3028,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECY=*__LONG_MY- 2 +*__LONG_IDESY- 1 ; +if(!qbevent)break;evnt(26070,3029,"ide_methods.bas");}while(r); +S_39606:; +if ((-(*__LONG_IDECY>*__LONG_IDEN))||new_error){ +if(qbevent){evnt(26070,3030,"ide_methods.bas");if(r)goto S_39606;} +do{ +goto LABEL_REGULARTEXTBOX_CLICK; +if(!qbevent)break;evnt(26070,3031,"ide_methods.bas");}while(r); +S_39608:; +}else{ +if (-(*__LONG_ACTIVEINCLUDELINK> 0 )){ +if(qbevent){evnt(26070,3032,"ide_methods.bas");if(r)goto S_39608;} +do{ +qbs_set(_FUNC_IDE2_STRING_P,qbs_add(__STRING_IDEPATH,__STRING1_PATHSEP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3035,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_F,qbs_add(_FUNC_IDE2_STRING_P,__STRING_ACTIVEINCLUDELINKFILE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3036,"ide_methods.bas");}while(r); +S_39611:; +if ((qbs_cleanup(qbs_tmp_base,-(func__fileexists(_FUNC_IDE2_STRING_F)== 0 )))||new_error){ +if(qbevent){evnt(26070,3037,"ide_methods.bas");if(r)goto S_39611;} +do{ +qbs_set(_FUNC_IDE2_STRING_F,__STRING_ACTIVEINCLUDELINKFILE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3037,"ide_methods.bas");}while(r); +} +S_39614:; +if ((qbs_cleanup(qbs_tmp_base,func__fileexists(_FUNC_IDE2_STRING_F)))||new_error){ +if(qbevent){evnt(26070,3038,"ide_methods.bas");if(r)goto S_39614;} +do{ +*_FUNC_IDE2_LONG_BACKUPINCLUDEFILE=func_freefile(); +if(!qbevent)break;evnt(26070,3039,"ide_methods.bas");}while(r); +do{ +sub_open(_FUNC_IDE2_STRING_F, 2 ,NULL,NULL,*_FUNC_IDE2_LONG_BACKUPINCLUDEFILE,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3040,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_TEMPINCLUDE1,func_space(func_lof(*_FUNC_IDE2_LONG_BACKUPINCLUDEFILE))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3041,"ide_methods.bas");}while(r); +do{ +sub_get2(*_FUNC_IDE2_LONG_BACKUPINCLUDEFILE, 1 ,_FUNC_IDE2_STRING_TEMPINCLUDE1,1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3042,"ide_methods.bas");}while(r); +do{ +sub_close(*_FUNC_IDE2_LONG_BACKUPINCLUDEFILE,1); +if(!qbevent)break;evnt(26070,3043,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,3045,"ide_methods.bas");}while(r); +do{ +SUB_CLEARSTATUSWINDOW(&(pass4251= 0 )); +if(!qbevent)break;evnt(26070,3046,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 15 , 1 ,NULL,3); +if(!qbevent)break;evnt(26070,3047,"ide_methods.bas");}while(r); +do{ +sub__printstring( 2 ,*__LONG_IDEWY- 3 ,qbs_new_txt_len("Editing $INCLUDE file...",24),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3048,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_DUMMY=FUNC_DARKENFGBG(&(pass4252= 1 )); +if(!qbevent)break;evnt(26070,3049,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,3050,"ide_methods.bas");}while(r); +do{ +sub__delay( 0.2E+0 ); +if(!qbevent)break;evnt(26070,3052,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_P,qbs_add(qbs_add(FUNC_QUOTEDFILENAME(func_command( 0 ,0|1)),qbs_new_txt_len(" ",1)),FUNC_QUOTEDFILENAME(_FUNC_IDE2_STRING_F))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3053,"ide_methods.bas");}while(r); +S_39628:; +if (((-(*__LONG_ERRORLINEININCLUDE> 0 ))&(-(*__LONG_IDEFOCUSLINE==*__LONG_IDECY)))||new_error){ +if(qbevent){evnt(26070,3054,"ide_methods.bas");if(r)goto S_39628;} +do{ +qbs_set(_FUNC_IDE2_STRING_P,qbs_add(qbs_add(_FUNC_IDE2_STRING_P,qbs_new_txt_len(" -l:",4)),FUNC_STR2(__LONG_ERRORLINEININCLUDE))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3055,"ide_methods.bas");}while(r); +S_39630:; +}else{ +if ((-(*__LONG_WARNINGININCLUDELINE> 0 ))&(-(*__LONG_WARNINGININCLUDE==*__LONG_IDECY))){ +if(qbevent){evnt(26070,3056,"ide_methods.bas");if(r)goto S_39630;} +do{ +qbs_set(_FUNC_IDE2_STRING_P,qbs_add(qbs_add(_FUNC_IDE2_STRING_P,qbs_new_txt_len(" -l:",4)),FUNC_STR2(__LONG_WARNINGININCLUDELINE))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3057,"ide_methods.bas");}while(r); +} +} +do{ +sub_shell(_FUNC_IDE2_STRING_P,1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3059,"ide_methods.bas");}while(r); +do{ +sub_open(_FUNC_IDE2_STRING_F, 2 ,NULL,NULL,*_FUNC_IDE2_LONG_BACKUPINCLUDEFILE,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3061,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_TEMPINCLUDE2,func_space(func_lof(*_FUNC_IDE2_LONG_BACKUPINCLUDEFILE))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3062,"ide_methods.bas");}while(r); +do{ +sub_get2(*_FUNC_IDE2_LONG_BACKUPINCLUDEFILE, 1 ,_FUNC_IDE2_STRING_TEMPINCLUDE2,1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3063,"ide_methods.bas");}while(r); +do{ +sub_close(*_FUNC_IDE2_LONG_BACKUPINCLUDEFILE,1); +if(!qbevent)break;evnt(26070,3064,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_DUMMY=FUNC_DARKENFGBG(&(pass4253= 0 )); +if(!qbevent)break;evnt(26070,3066,"ide_methods.bas");}while(r); +do{ +SUB_CLEARSTATUSWINDOW(&(pass4254= 0 )); +if(!qbevent)break;evnt(26070,3067,"ide_methods.bas");}while(r); +S_39640:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_TEMPINCLUDE1,_FUNC_IDE2_STRING_TEMPINCLUDE2)))||new_error){ +if(qbevent){evnt(26070,3069,"ide_methods.bas");if(r)goto S_39640;} +S_39641:; +if ((*__BYTE_IDESHOWERRORSIMMEDIATELY)||new_error){ +if(qbevent){evnt(26070,3070,"ide_methods.bas");if(r)goto S_39641;} +S_39642:; +if ((-(*__LONG_IDECOMPILING== 1 ))||new_error){ +if(qbevent){evnt(26070,3071,"ide_methods.bas");if(r)goto S_39642;} +do{ +sub__printstring( 2 ,*__LONG_IDEWY- 3 ,func_string( 3 , 250 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3072,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check(( 1 )-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_FILEMENUEXPORTAS)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(qbs_new_txt_len("~#Export As... ",16),func_chr( 16 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3073,"ide_methods.bas");}while(r); +}else{ +do{ +sub__printstring( 2 ,*__LONG_IDEWY- 3 ,qbs_new_txt_len("OK",2),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3075,"ide_methods.bas");}while(r); +S_39647:; +if ((-(*__LONG_IDEAUTOLAYOUT!= 0 ))||new_error){ +if(qbevent){evnt(26070,3076,"ide_methods.bas");if(r)goto S_39647;} +do{ +tmp_long=array_check(( 1 )-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_FILEMENUEXPORTAS)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(qbs_new_txt_len("#Export As... ",15),func_chr( 16 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3076,"ide_methods.bas");}while(r); +} +do{ +*__INTEGER_STATUSAREALINK= 0 ; +if(!qbevent)break;evnt(26070,3077,"ide_methods.bas");}while(r); +S_39651:; +if ((-(*__LONG_TOTALWARNINGS> 0 ))||new_error){ +if(qbevent){evnt(26070,3078,"ide_methods.bas");if(r)goto S_39651;} +do{ +qbg_sub_color( 11 , 1 ,NULL,3); +if(!qbevent)break;evnt(26070,3079,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_MSG,qbs_add(qbs_add(qbs_new_txt_len(" (",2),qbs_ltrim(qbs_str((int32)(*__LONG_TOTALWARNINGS)))),qbs_new_txt_len(" warning",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3080,"ide_methods.bas");}while(r); +S_39654:; +if ((-(*__LONG_TOTALWARNINGS> 1 ))||new_error){ +if(qbevent){evnt(26070,3081,"ide_methods.bas");if(r)goto S_39654;} +do{ +qbs_set(_FUNC_IDE2_STRING_MSG,qbs_add(_FUNC_IDE2_STRING_MSG,qbs_new_txt_len("s",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3081,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDE2_STRING_MSG,qbs_add(_FUNC_IDE2_STRING_MSG,qbs_new_txt_len(" - click here or Ctrl+W to view)",32))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3082,"ide_methods.bas");}while(r); +do{ +sub__printstring( 4 ,*__LONG_IDEWY- 3 ,_FUNC_IDE2_STRING_MSG,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3083,"ide_methods.bas");}while(r); +do{ +*__INTEGER_STATUSAREALINK= 4 ; +if(!qbevent)break;evnt(26070,3084,"ide_methods.bas");}while(r); +} +S_39661:; +if ((*_FUNC_IDE2_BYTE_WAITINGFORVARLIST)||new_error){ +if(qbevent){evnt(26070,3086,"ide_methods.bas");if(r)goto S_39661;} +do{ +return_point[next_return_point++]=33; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SHOWVARLISTREADY; +RETURN_33:; +if(!qbevent)break;evnt(26070,3086,"ide_methods.bas");}while(r); +} +} +} +}else{ +do{ +*__INTEGER_IDECHANGEMADE= 1 ; +if(!qbevent)break;evnt(26070,3090,"ide_methods.bas");}while(r); +do{ +*__BYTE_STARTPAUSEDPENDING= 0 ; +if(!qbevent)break;evnt(26070,3091,"ide_methods.bas");}while(r); +} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,3094,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_TEMPINCLUDE1,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3096,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_TEMPINCLUDE2,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3097,"ide_methods.bas");}while(r); +} +}else{ +do{ +qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3100,"ide_methods.bas");}while(r); +S_39676:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDE2_STRING_A->len== 0 )))||new_error){ +if(qbevent){evnt(26070,3101,"ide_methods.bas");if(r)goto S_39676;} +do{ +goto LABEL_REGULARTEXTBOX_CLICK; +if(!qbevent)break;evnt(26070,3101,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDE2_STRING_CHAR__ASCII_CHR_046__CLICKED,func_mid(_FUNC_IDE2_STRING_A,*__LONG_IDECX, 1 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3102,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESELECT= 1 ; +if(!qbevent)break;evnt(26070,3103,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESELECTY1=*__LONG_IDECY; +if(!qbevent)break;evnt(26070,3104,"ide_methods.bas");}while(r); +S_39682:; +if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_IDE2_STRING_CHAR__ASCII_CHR_046__CLICKED->len> 0 ))&(qbs_notequal(_FUNC_IDE2_STRING_CHAR__ASCII_CHR_046__CLICKED,func_chr( 32 )))))||new_error){ +if(qbevent){evnt(26070,3105,"ide_methods.bas");if(r)goto S_39682;} +S_39683:; +fornext_value4258=*__LONG_IDECX; +fornext_finalvalue4258= 1 ; +fornext_step4258= -1 ; +if (fornext_step4258<0) fornext_step_negative4258=1; else fornext_step_negative4258=0; +if (new_error) goto fornext_error4258; +goto fornext_entrylabel4258; +while(1){ +fornext_value4258=fornext_step4258+(*_FUNC_IDE2_LONG_I); +fornext_entrylabel4258: +*_FUNC_IDE2_LONG_I=fornext_value4258; +if (fornext_step_negative4258){ +if (fornext_value4258fornext_finalvalue4258) break; +} +fornext_error4258:; +if(qbevent){evnt(26070,3106,"ide_methods.bas");if(r)goto S_39683;} +S_39684:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_IDE2_STRING_CHAR__ASCII_CHR_046__SEP,func_mid(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_I, 1 ,0|1),0)))||new_error){ +if(qbevent){evnt(26070,3107,"ide_methods.bas");if(r)goto S_39684;} +do{ +goto fornext_exit_4257; +if(!qbevent)break;evnt(26070,3107,"ide_methods.bas");}while(r); +} +fornext_continue_4257:; +} +fornext_exit_4257:; +do{ +*__LONG_IDESELECTX1=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,3109,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_WHOLEWORD__ASCII_CHR_046__SELECTX1=*__LONG_IDESELECTX1; +if(!qbevent)break;evnt(26070,3110,"ide_methods.bas");}while(r); +S_39690:; +fornext_value4260=*__LONG_IDECX; +fornext_finalvalue4260=_FUNC_IDE2_STRING_A->len; +fornext_step4260= 1 ; +if (fornext_step4260<0) fornext_step_negative4260=1; else fornext_step_negative4260=0; +if (new_error) goto fornext_error4260; +goto fornext_entrylabel4260; +while(1){ +fornext_value4260=fornext_step4260+(*_FUNC_IDE2_LONG_I); +fornext_entrylabel4260: +*_FUNC_IDE2_LONG_I=fornext_value4260; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative4260){ +if (fornext_value4260fornext_finalvalue4260) break; +} +fornext_error4260:; +if(qbevent){evnt(26070,3111,"ide_methods.bas");if(r)goto S_39690;} +S_39691:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_IDE2_STRING_CHAR__ASCII_CHR_046__SEP,func_mid(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_I, 1 ,0|1),0)))||new_error){ +if(qbevent){evnt(26070,3112,"ide_methods.bas");if(r)goto S_39691;} +do{ +goto fornext_exit_4259; +if(!qbevent)break;evnt(26070,3112,"ide_methods.bas");}while(r); +} +fornext_continue_4259:; +} +fornext_exit_4259:; +do{ +*__LONG_IDECX=*_FUNC_IDE2_LONG_I; +if(!qbevent)break;evnt(26070,3114,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_WHOLEWORD__ASCII_CHR_046__IDECX=*__LONG_IDECX; +if(!qbevent)break;evnt(26070,3115,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_BYTE_WHOLEWORD__ASCII_CHR_046__SELECT= -1 ; +if(!qbevent)break;evnt(26070,3116,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_WHOLEWORD__ASCII_CHR_046__IDECY=*__LONG_IDECY; +if(!qbevent)break;evnt(26070,3117,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_WHOLEWORD__ASCII_CHR_046__SELECTY1=*__LONG_IDESELECTY1; +if(!qbevent)break;evnt(26070,3118,"ide_methods.bas");}while(r); +} +} +} +}else{ +LABEL_REGULARTEXTBOX_CLICK:; +if(qbevent){evnt(26070,3122,"ide_methods.bas");r=0;} +do{ +*_FUNC_IDE2_LONG_OLD__ASCII_CHR_046__MX=*__LONG_MX; +if(!qbevent)break;evnt(26070,3123,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_OLD__ASCII_CHR_046__MY=*__LONG_MY; +if(!qbevent)break;evnt(26070,3123,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_DOUBLE_LAST__ASCII_CHR_046__TBCLICK=func_timer(NULL,0); +if(!qbevent)break;evnt(26070,3123,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESELECT= 1 ; +if(!qbevent)break;evnt(26070,3124,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECX=(*__LONG_MX- 1 +*__LONG_IDESX- 1 )-*__LONG_MAXLINENUMBERLENGTH; +if(!qbevent)break;evnt(26070,3125,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECY=*__LONG_MY- 2 +*__LONG_IDESY- 1 ; +if(!qbevent)break;evnt(26070,3126,"ide_methods.bas");}while(r); +S_39709:; +if ((-(*__LONG_IDECY>*__LONG_IDEN))||new_error){ +if(qbevent){evnt(26070,3127,"ide_methods.bas");if(r)goto S_39709;} +do{ +*__LONG_IDECY=*__LONG_IDEN; +if(!qbevent)break;evnt(26070,3127,"ide_methods.bas");}while(r); +} +do{ +*__LONG_IDESELECT= 1 ; +if(!qbevent)break;evnt(26070,3128,"ide_methods.bas");}while(r); +S_39713:; +if (((~(*__LONG_KSHIFT)))||new_error){ +if(qbevent){evnt(26070,3129,"ide_methods.bas");if(r)goto S_39713;} +do{ +*__LONG_IDESELECTX1=*__LONG_IDECX; +if(!qbevent)break;evnt(26070,3129,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESELECTY1=*__LONG_IDECY; +if(!qbevent)break;evnt(26070,3129,"ide_methods.bas");}while(r); +} +do{ +*__LONG_IDEMOUSESELECT= 1 ; +if(!qbevent)break;evnt(26070,3130,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_BYTE_WHOLEWORD__ASCII_CHR_046__SELECT= 0 ; +if(!qbevent)break;evnt(26070,3131,"ide_methods.bas");}while(r); +} +S_39720:; +}else{ +if (((-(*__LONG_MX> 1 ))&(-(*__LONG_MX<=( 1 +*__LONG_MAXLINENUMBERLENGTH)))&(-(*__LONG_MY> 2 ))&(-(*__LONG_MY<(*__LONG_IDEWY- 5 )))&*__BYTE_SHOWLINENUMBERS)|((-(*__LONG_MX== 1 ))&(-(*__LONG_MY> 2 ))&(-(*__LONG_MY<(*__LONG_IDEWY- 5 )))&(-(*__BYTE_SHOWLINENUMBERS== 0 )))){ +if(qbevent){evnt(26070,3134,"ide_methods.bas");if(r)goto S_39720;} +S_39721:; +if (((-(*__BYTE_AUTOADDDEBUGCOMMAND!= 0 ))|(-(*__LONG_VWATCHON!= 0 )))||new_error){ +if(qbevent){evnt(26070,3137,"ide_methods.bas");if(r)goto S_39721;} +do{ +*__LONG_IDESELECT= 0 ; +if(!qbevent)break;evnt(26070,3138,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_IDECYTEMP=*__LONG_MY- 2 +*__LONG_IDESY- 1 ; +if(!qbevent)break;evnt(26070,3139,"ide_methods.bas");}while(r); +S_39724:; +if ((-(*_FUNC_IDE2_LONG_IDECYTEMP<=*__LONG_IDEN))||new_error){ +if(qbevent){evnt(26070,3140,"ide_methods.bas");if(r)goto S_39724;} +do{ +*__LONG_IDECY=*_FUNC_IDE2_LONG_IDECYTEMP; +if(!qbevent)break;evnt(26070,3141,"ide_methods.bas");}while(r); +S_39726:; +if ((func__keydown( 100304 )|func__keydown( 100303 ))||new_error){ +if(qbevent){evnt(26070,3142,"ide_methods.bas");if(r)goto S_39726;} +do{ +goto LABEL_TOGGLESKIPLINE; +if(!qbevent)break;evnt(26070,3143,"ide_methods.bas");}while(r); +}else{ +do{ +goto LABEL_TOGGLEBREAKPOINT; +if(!qbevent)break;evnt(26070,3145,"ide_methods.bas");}while(r); +} +} +}else{ +do{ +*__LONG_IDESELECT= 1 ; +if(!qbevent)break;evnt(26070,3149,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECY=*__LONG_MY- 2 +*__LONG_IDESY- 1 ; +if(!qbevent)break;evnt(26070,3150,"ide_methods.bas");}while(r); +S_39735:; +if ((-(*__LONG_IDECY<*__LONG_IDEN))||new_error){ +if(qbevent){evnt(26070,3151,"ide_methods.bas");if(r)goto S_39735;} +S_39736:; +if (((~(*__LONG_KSHIFT)))||new_error){ +if(qbevent){evnt(26070,3152,"ide_methods.bas");if(r)goto S_39736;} +do{ +*__LONG_IDESELECTX1= 1 ; +if(!qbevent)break;evnt(26070,3152,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESELECTY1=*__LONG_IDECY; +if(!qbevent)break;evnt(26070,3152,"ide_methods.bas");}while(r); +} +do{ +*__LONG_IDECY=*__LONG_IDECY+ 1 ; +if(!qbevent)break;evnt(26070,3153,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECX= 1 ; +if(!qbevent)break;evnt(26070,3154,"ide_methods.bas");}while(r); +S_39742:; +}else{ +if (-(*__LONG_IDECY==*__LONG_IDEN)){ +if(qbevent){evnt(26070,3155,"ide_methods.bas");if(r)goto S_39742;} +do{ +qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3156,"ide_methods.bas");}while(r); +S_39744:; +if (((~(*__LONG_KSHIFT)))||new_error){ +if(qbevent){evnt(26070,3157,"ide_methods.bas");if(r)goto S_39744;} +do{ +*__LONG_IDESELECTX1= 1 ; +if(!qbevent)break;evnt(26070,3157,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESELECTY1=*__LONG_IDECY; +if(!qbevent)break;evnt(26070,3157,"ide_methods.bas");}while(r); +} +do{ +*__LONG_IDECX=_FUNC_IDE2_STRING_A->len+ 1 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3158,"ide_methods.bas");}while(r); +S_39749:; +}else{ +if (-(*__LONG_IDECY>*__LONG_IDEN)){ +if(qbevent){evnt(26070,3159,"ide_methods.bas");if(r)goto S_39749;} +do{ +*__LONG_IDECY=*__LONG_IDEN; +if(!qbevent)break;evnt(26070,3160,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESELECT= 0 ; +if(!qbevent)break;evnt(26070,3161,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECX= 1 ; +if(!qbevent)break;evnt(26070,3162,"ide_methods.bas");}while(r); +} +} +} +do{ +*_FUNC_IDE2_BYTE_WHOLEWORD__ASCII_CHR_046__SELECT= 0 ; +if(!qbevent)break;evnt(26070,3164,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEMOUSESELECT= 0 ; +if(!qbevent)break;evnt(26070,3165,"ide_methods.bas");}while(r); +} +} +} +} +LABEL_DONEWHOLEWORD:; +if(qbevent){evnt(26070,3170,"ide_methods.bas");r=0;} +S_39759:; +if ((*__LONG_MCLICK2)||new_error){ +if(qbevent){evnt(26070,3172,"ide_methods.bas");if(r)goto S_39759;} +LABEL_INVOKECONTEXTUALMENU:; +if(qbevent){evnt(26070,3173,"ide_methods.bas");r=0;} +S_39760:; +if (((-(*__LONG_MX>( 1 +*__LONG_MAXLINENUMBERLENGTH)))&(-(*__LONG_MX<*__LONG_IDEWX))&(-(*__LONG_MY> 2 ))&(-(*__LONG_MY<(*__LONG_IDEWY- 5 ))))||new_error){ +if(qbevent){evnt(26070,3174,"ide_methods.bas");if(r)goto S_39760;} +do{ +*__LONG_IDESYSTEM= 1 ; +if(!qbevent)break;evnt(26070,3175,"ide_methods.bas");}while(r); +S_39762:; +if ((-(*__LONG_IDESELECT== 0 ))||new_error){ +if(qbevent){evnt(26070,3176,"ide_methods.bas");if(r)goto S_39762;} +do{ +*__LONG_IDECX=(*__LONG_MX- 1 +*__LONG_IDESX- 1 )-*__LONG_MAXLINENUMBERLENGTH; +if(!qbevent)break;evnt(26070,3177,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECY=*__LONG_MY- 2 +*__LONG_IDESY- 1 ; +if(!qbevent)break;evnt(26070,3178,"ide_methods.bas");}while(r); +S_39765:; +if ((-(*__LONG_IDECY>*__LONG_IDEN))||new_error){ +if(qbevent){evnt(26070,3179,"ide_methods.bas");if(r)goto S_39765;} +do{ +*__LONG_IDECY=*__LONG_IDEN; +if(!qbevent)break;evnt(26070,3179,"ide_methods.bas");}while(r); +} +}else{ +S_39769:; +if ((-(*__LONG_IDESELECTY1==*__LONG_IDECY))||new_error){ +if(qbevent){evnt(26070,3181,"ide_methods.bas");if(r)goto S_39769;} +do{ +qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3182,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_A2,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3183,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_SX1=*__LONG_IDESELECTX1; +if(!qbevent)break;evnt(26070,3184,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_SX2=*__LONG_IDECX; +if(!qbevent)break;evnt(26070,3184,"ide_methods.bas");}while(r); +S_39774:; +if ((-(*_FUNC_IDE2_LONG_SX2<*_FUNC_IDE2_LONG_SX1))||new_error){ +if(qbevent){evnt(26070,3185,"ide_methods.bas");if(r)goto S_39774;} +do{ +swap_32(&*_FUNC_IDE2_LONG_SX1,&*_FUNC_IDE2_LONG_SX2); +if(!qbevent)break;evnt(26070,3185,"ide_methods.bas");}while(r); +} +S_39777:; +fornext_value4264=*_FUNC_IDE2_LONG_SX1; +fornext_finalvalue4264=*_FUNC_IDE2_LONG_SX2- 1 ; +fornext_step4264= 1 ; +if (fornext_step4264<0) fornext_step_negative4264=1; else fornext_step_negative4264=0; +if (new_error) goto fornext_error4264; +goto fornext_entrylabel4264; +while(1){ +fornext_value4264=fornext_step4264+(*_FUNC_IDE2_LONG_X); +fornext_entrylabel4264: +*_FUNC_IDE2_LONG_X=fornext_value4264; +if (fornext_step_negative4264){ +if (fornext_value4264fornext_finalvalue4264) break; +} +fornext_error4264:; +if(qbevent){evnt(26070,3186,"ide_methods.bas");if(r)goto S_39777;} +S_39778:; +if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDE2_LONG_X<=_FUNC_IDE2_STRING_A->len)))||new_error){ +if(qbevent){evnt(26070,3187,"ide_methods.bas");if(r)goto S_39778;} +do{ +qbs_set(_FUNC_IDE2_STRING_A2,qbs_add(_FUNC_IDE2_STRING_A2,func_mid(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_X, 1 ,0|1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3187,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDE2_STRING_A2,qbs_add(_FUNC_IDE2_STRING_A2,qbs_new_txt_len(" ",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3187,"ide_methods.bas");}while(r); +} +fornext_continue_4263:; +} +fornext_exit_4263:; +S_39784:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_A2,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,3189,"ide_methods.bas");if(r)goto S_39784;} +do{ +*__LONG_IDESELECT= 0 ; +if(!qbevent)break;evnt(26070,3191,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECX=(*__LONG_MX- 1 +*__LONG_IDESX- 1 )-*__LONG_MAXLINENUMBERLENGTH; +if(!qbevent)break;evnt(26070,3192,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECY=*__LONG_MY- 2 +*__LONG_IDESY- 1 ; +if(!qbevent)break;evnt(26070,3193,"ide_methods.bas");}while(r); +S_39788:; +if ((-(*__LONG_IDECY>*__LONG_IDEN))||new_error){ +if(qbevent){evnt(26070,3194,"ide_methods.bas");if(r)goto S_39788;} +do{ +*__LONG_IDECY=*__LONG_IDEN; +if(!qbevent)break;evnt(26070,3194,"ide_methods.bas");}while(r); +} +}else{ +S_39792:; +if (((-(((*__LONG_MX- 1 +*__LONG_IDESX- 1 )-*__LONG_MAXLINENUMBERLENGTH)<*_FUNC_IDE2_LONG_SX1))|(-(((*__LONG_MX- 1 +*__LONG_IDESX- 1 )-*__LONG_MAXLINENUMBERLENGTH)>*_FUNC_IDE2_LONG_SX2)))||new_error){ +if(qbevent){evnt(26070,3197,"ide_methods.bas");if(r)goto S_39792;} +do{ +*__LONG_IDESELECT= 0 ; +if(!qbevent)break;evnt(26070,3198,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECX=(*__LONG_MX- 1 +*__LONG_IDESX- 1 )-*__LONG_MAXLINENUMBERLENGTH; +if(!qbevent)break;evnt(26070,3199,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECY=*__LONG_MY- 2 +*__LONG_IDESY- 1 ; +if(!qbevent)break;evnt(26070,3200,"ide_methods.bas");}while(r); +S_39796:; +if ((-(*__LONG_IDECY>*__LONG_IDEN))||new_error){ +if(qbevent){evnt(26070,3201,"ide_methods.bas");if(r)goto S_39796;} +do{ +*__LONG_IDECY=*__LONG_IDEN; +if(!qbevent)break;evnt(26070,3201,"ide_methods.bas");}while(r); +} +} +S_39800:; +if (((-((*__LONG_MY- 2 +*__LONG_IDESY- 1 )<*__LONG_IDECY))|(-((*__LONG_MY- 2 +*__LONG_IDESY- 1 )>*__LONG_IDECY)))||new_error){ +if(qbevent){evnt(26070,3203,"ide_methods.bas");if(r)goto S_39800;} +do{ +*__LONG_IDESELECT= 0 ; +if(!qbevent)break;evnt(26070,3204,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECX=(*__LONG_MX- 1 +*__LONG_IDESX- 1 )-*__LONG_MAXLINENUMBERLENGTH; +if(!qbevent)break;evnt(26070,3205,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECY=*__LONG_MY- 2 +*__LONG_IDESY- 1 ; +if(!qbevent)break;evnt(26070,3206,"ide_methods.bas");}while(r); +S_39804:; +if ((-(*__LONG_IDECY>*__LONG_IDEN))||new_error){ +if(qbevent){evnt(26070,3207,"ide_methods.bas");if(r)goto S_39804;} +do{ +*__LONG_IDECY=*__LONG_IDEN; +if(!qbevent)break;evnt(26070,3207,"ide_methods.bas");}while(r); +} +} +} +}else{ +do{ +*_FUNC_IDE2_LONG_SY1=*__LONG_IDESELECTY1; +if(!qbevent)break;evnt(26070,3212,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_SY2=*__LONG_IDECY; +if(!qbevent)break;evnt(26070,3213,"ide_methods.bas");}while(r); +S_39812:; +if ((-(*_FUNC_IDE2_LONG_SY1>*_FUNC_IDE2_LONG_SY2))||new_error){ +if(qbevent){evnt(26070,3214,"ide_methods.bas");if(r)goto S_39812;} +do{ +swap_32(&*_FUNC_IDE2_LONG_SY1,&*_FUNC_IDE2_LONG_SY2); +if(!qbevent)break;evnt(26070,3214,"ide_methods.bas");}while(r); +} +S_39815:; +if (((-((*__LONG_MY- 2 +*__LONG_IDESY- 1 )<*_FUNC_IDE2_LONG_SY1))|(-((*__LONG_MY- 2 +*__LONG_IDESY- 1 )>*_FUNC_IDE2_LONG_SY2)))||new_error){ +if(qbevent){evnt(26070,3215,"ide_methods.bas");if(r)goto S_39815;} +do{ +*__LONG_IDESELECT= 0 ; +if(!qbevent)break;evnt(26070,3216,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECX=(*__LONG_MX- 1 +*__LONG_IDESX- 1 )-*__LONG_MAXLINENUMBERLENGTH; +if(!qbevent)break;evnt(26070,3217,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECY=*__LONG_MY- 2 +*__LONG_IDESY- 1 ; +if(!qbevent)break;evnt(26070,3218,"ide_methods.bas");}while(r); +S_39819:; +if ((-(*__LONG_IDECY>*__LONG_IDEN))||new_error){ +if(qbevent){evnt(26070,3219,"ide_methods.bas");if(r)goto S_39819;} +do{ +*__LONG_IDECY=*__LONG_IDEN; +if(!qbevent)break;evnt(26070,3219,"ide_methods.bas");}while(r); +} +} +} +} +do{ +SUB_IDESHOWTEXT(); +if(!qbevent)break;evnt(26070,3223,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,3224,"ide_methods.bas");}while(r); +do{ +SUB_IDEMAKECONTEXTUALMENU(); +if(!qbevent)break;evnt(26070,3225,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_IDECONTEXTUALMENU= 1 ; +if(!qbevent)break;evnt(26070,3226,"ide_methods.bas");}while(r); +do{ +goto LABEL_SHOWMENU; +if(!qbevent)break;evnt(26070,3227,"ide_methods.bas");}while(r); +S_39830:; +}else{ +if ((-(*__LONG_IDEHELP== 1 ))&(-(*__LONG_MY>=*__LONG_IDEWY))&(-(*__LONG_MY<(*__LONG_IDEWY+*__LONG_IDESUBWINDOW)))){ +if(qbevent){evnt(26070,3228,"ide_methods.bas");if(r)goto S_39830;} +do{ +*__LONG_IDESYSTEM= 3 ; +if(!qbevent)break;evnt(26070,3229,"ide_methods.bas");}while(r); +do{ +SUB_IDESHOWTEXT(); +if(!qbevent)break;evnt(26070,3230,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,3231,"ide_methods.bas");}while(r); +do{ +SUB_IDEMAKECONTEXTUALMENU(); +if(!qbevent)break;evnt(26070,3232,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_IDECONTEXTUALMENU= 1 ; +if(!qbevent)break;evnt(26070,3233,"ide_methods.bas");}while(r); +do{ +goto LABEL_SHOWMENU; +if(!qbevent)break;evnt(26070,3234,"ide_methods.bas");}while(r); +} +} +} +S_39839:; +if ((*__LONG_MCLICK)||new_error){ +if(qbevent){evnt(26070,3238,"ide_methods.bas");if(r)goto S_39839;} +S_39840:; +if ((-(*__LONG_MX==*__LONG_IDEWX))||new_error){ +if(qbevent){evnt(26070,3239,"ide_methods.bas");if(r)goto S_39840;} +S_39841:; +if ((-(*__LONG_IDEN> 1 ))||new_error){ +if(qbevent){evnt(26070,3240,"ide_methods.bas");if(r)goto S_39841;} +do{ +*_FUNC_IDE2_LONG_Y=FUNC_IDEVBAR(__LONG_IDEWX,&(pass4266= 3 ),&(pass4267=*__LONG_IDEWY- 8 ),__LONG_IDECY,__LONG_IDEN); +if(!qbevent)break;evnt(26070,3241,"ide_methods.bas");}while(r); +S_39843:; +if ((-(*_FUNC_IDE2_LONG_Y==*__LONG_MY))||new_error){ +if(qbevent){evnt(26070,3242,"ide_methods.bas");if(r)goto S_39843;} +do{ +*__LONG_IDEMOUSESELECT= 2 ; +if(!qbevent)break;evnt(26070,3243,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESELECT= 0 ; +if(!qbevent)break;evnt(26070,3244,"ide_methods.bas");}while(r); +} +} +} +} +S_39850:; +if ((*__LONG_MCLICK)||new_error){ +if(qbevent){evnt(26070,3250,"ide_methods.bas");if(r)goto S_39850;} +S_39851:; +if ((-(*__LONG_MY==(*__LONG_IDEWY- 5 )))||new_error){ +if(qbevent){evnt(26070,3251,"ide_methods.bas");if(r)goto S_39851;} +do{ +*_FUNC_IDE2_LONG_X=FUNC_IDEHBAR(&(pass4268= 2 ),&(pass4269=*__LONG_IDEWY- 5 ),&(pass4270=*__LONG_IDEWX- 2 ),__LONG_IDESX,&(pass4271= 608 )); +if(!qbevent)break;evnt(26070,3252,"ide_methods.bas");}while(r); +S_39853:; +if ((-(*_FUNC_IDE2_LONG_X==*__LONG_MX))||new_error){ +if(qbevent){evnt(26070,3253,"ide_methods.bas");if(r)goto S_39853;} +do{ +*__LONG_IDEMOUSESELECT= 3 ; +if(!qbevent)break;evnt(26070,3254,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESELECT= 0 ; +if(!qbevent)break;evnt(26070,3255,"ide_methods.bas");}while(r); +} +} +} +S_39859:; +if ((*__LONG_MB&(-(*__LONG_IDEMOUSESELECT== 0 )))||new_error){ +if(qbevent){evnt(26070,3260,"ide_methods.bas");if(r)goto S_39859;} +S_39860:; +if (((-(*__LONG_MX==*__LONG_IDEWX))&(-(*__LONG_MY> 2 ))&(-(*__LONG_MY<(*__LONG_IDEWY- 5 ))))||new_error){ +if(qbevent){evnt(26070,3261,"ide_methods.bas");if(r)goto S_39860;} +do{ +*__LONG_IDESELECT= 0 ; +if(!qbevent)break;evnt(26070,3262,"ide_methods.bas");}while(r); +S_39862:; +if ((-(*__LONG_MY== 3 ))||new_error){ +if(qbevent){evnt(26070,3263,"ide_methods.bas");if(r)goto S_39862;} +do{ +*__LONG_KB= 18432 ; +if(!qbevent)break;evnt(26070,3263,"ide_methods.bas");}while(r); +do{ +SUB_IDEWAIT(); +if(!qbevent)break;evnt(26070,3263,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEMBMONITOR= 1 ; +if(!qbevent)break;evnt(26070,3263,"ide_methods.bas");}while(r); +} +S_39867:; +if ((-(*__LONG_MY==(*__LONG_IDEWY- 6 )))||new_error){ +if(qbevent){evnt(26070,3264,"ide_methods.bas");if(r)goto S_39867;} +do{ +*__LONG_KB= 20480 ; +if(!qbevent)break;evnt(26070,3264,"ide_methods.bas");}while(r); +do{ +SUB_IDEWAIT(); +if(!qbevent)break;evnt(26070,3264,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEMBMONITOR= 1 ; +if(!qbevent)break;evnt(26070,3264,"ide_methods.bas");}while(r); +} +S_39872:; +if (((-(*__LONG_MY> 3 ))&(-(*__LONG_MY<(*__LONG_IDEWY- 6 ))))||new_error){ +if(qbevent){evnt(26070,3265,"ide_methods.bas");if(r)goto S_39872;} +S_39873:; +if ((-(*__LONG_IDEN> 1 ))||new_error){ +if(qbevent){evnt(26070,3267,"ide_methods.bas");if(r)goto S_39873;} +do{ +*_FUNC_IDE2_LONG_Y=FUNC_IDEVBAR(__LONG_IDEWX,&(pass4272= 3 ),&(pass4273=*__LONG_IDEWY- 8 ),__LONG_IDECY,__LONG_IDEN); +if(!qbevent)break;evnt(26070,3268,"ide_methods.bas");}while(r); +S_39875:; +if ((-(*_FUNC_IDE2_LONG_Y!=*__LONG_MY))||new_error){ +if(qbevent){evnt(26070,3269,"ide_methods.bas");if(r)goto S_39875;} +S_39876:; +if ((-(*__LONG_MY<*_FUNC_IDE2_LONG_Y))||new_error){ +if(qbevent){evnt(26070,3270,"ide_methods.bas");if(r)goto S_39876;} +do{ +*__LONG_KB= 18688 ; +if(!qbevent)break;evnt(26070,3271,"ide_methods.bas");}while(r); +do{ +SUB_IDEWAIT(); +if(!qbevent)break;evnt(26070,3271,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEMBMONITOR= 1 ; +if(!qbevent)break;evnt(26070,3271,"ide_methods.bas");}while(r); +}else{ +do{ +*__LONG_KB= 20736 ; +if(!qbevent)break;evnt(26070,3273,"ide_methods.bas");}while(r); +do{ +SUB_IDEWAIT(); +if(!qbevent)break;evnt(26070,3273,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEMBMONITOR= 1 ; +if(!qbevent)break;evnt(26070,3273,"ide_methods.bas");}while(r); +} +} +} +} +} +} +S_39890:; +if ((*__LONG_MB&(-(*__LONG_IDEMOUSESELECT== 0 )))||new_error){ +if(qbevent){evnt(26070,3281,"ide_methods.bas");if(r)goto S_39890;} +S_39891:; +if (((-(*__LONG_MY==(*__LONG_IDEWY- 5 )))&(-(*__LONG_MX> 1 ))&(-(*__LONG_MX<*__LONG_IDEWX)))||new_error){ +if(qbevent){evnt(26070,3282,"ide_methods.bas");if(r)goto S_39891;} +do{ +*__LONG_IDESELECT= 0 ; +if(!qbevent)break;evnt(26070,3283,"ide_methods.bas");}while(r); +S_39893:; +if ((-(*__LONG_MX== 2 ))||new_error){ +if(qbevent){evnt(26070,3284,"ide_methods.bas");if(r)goto S_39893;} +do{ +*__LONG_KB= 19200 ; +if(!qbevent)break;evnt(26070,3284,"ide_methods.bas");}while(r); +do{ +SUB_IDEWAIT(); +if(!qbevent)break;evnt(26070,3284,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEMBMONITOR= 1 ; +if(!qbevent)break;evnt(26070,3284,"ide_methods.bas");}while(r); +} +S_39898:; +if ((-(*__LONG_MX==(*__LONG_IDEWX- 1 )))||new_error){ +if(qbevent){evnt(26070,3285,"ide_methods.bas");if(r)goto S_39898;} +do{ +*__LONG_KB= 19712 ; +if(!qbevent)break;evnt(26070,3285,"ide_methods.bas");}while(r); +do{ +SUB_IDEWAIT(); +if(!qbevent)break;evnt(26070,3285,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEMBMONITOR= 1 ; +if(!qbevent)break;evnt(26070,3285,"ide_methods.bas");}while(r); +} +S_39903:; +if (((-(*__LONG_MX> 2 ))&(-(*__LONG_MX<(*__LONG_IDEWX- 1 ))))||new_error){ +if(qbevent){evnt(26070,3286,"ide_methods.bas");if(r)goto S_39903;} +do{ +*_FUNC_IDE2_LONG_X=FUNC_IDEHBAR(&(pass4274= 2 ),&(pass4275=*__LONG_IDEWY- 5 ),&(pass4276=*__LONG_IDEWX- 2 ),__LONG_IDESX,&(pass4277= 608 )); +if(!qbevent)break;evnt(26070,3288,"ide_methods.bas");}while(r); +S_39905:; +if ((-(*_FUNC_IDE2_LONG_X!=*__LONG_MX))||new_error){ +if(qbevent){evnt(26070,3289,"ide_methods.bas");if(r)goto S_39905;} +S_39906:; +if ((-(*__LONG_MX<*_FUNC_IDE2_LONG_X))||new_error){ +if(qbevent){evnt(26070,3290,"ide_methods.bas");if(r)goto S_39906;} +do{ +*__LONG_IDECX=*__LONG_IDECX- 8 ; +if(!qbevent)break;evnt(26070,3291,"ide_methods.bas");}while(r); +S_39908:; +if ((-(*__LONG_IDECX< 1 ))||new_error){ +if(qbevent){evnt(26070,3292,"ide_methods.bas");if(r)goto S_39908;} +do{ +*__LONG_IDECX= 1 ; +if(!qbevent)break;evnt(26070,3292,"ide_methods.bas");}while(r); +} +do{ +SUB_IDEWAIT(); +if(!qbevent)break;evnt(26070,3293,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEMBMONITOR= 1 ; +if(!qbevent)break;evnt(26070,3293,"ide_methods.bas");}while(r); +}else{ +do{ +*__LONG_IDECX=*__LONG_IDECX+ 8 ; +if(!qbevent)break;evnt(26070,3295,"ide_methods.bas");}while(r); +do{ +SUB_IDEWAIT(); +if(!qbevent)break;evnt(26070,3296,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEMBMONITOR= 1 ; +if(!qbevent)break;evnt(26070,3296,"ide_methods.bas");}while(r); +} +} +} +} +} +S_39922:; +if ((*__LONG_MB&(-(*__LONG_IDEMOUSESELECT== 2 )))||new_error){ +if(qbevent){evnt(26070,3304,"ide_methods.bas");if(r)goto S_39922;} +S_39923:; +if ((-(*__LONG_IDEN> 1 ))||new_error){ +if(qbevent){evnt(26070,3306,"ide_methods.bas");if(r)goto S_39923;} +S_39924:; +if ((-(*__LONG_MY<= 4 ))||new_error){ +if(qbevent){evnt(26070,3307,"ide_methods.bas");if(r)goto S_39924;} +do{ +*__LONG_IDECY= 1 ; +if(!qbevent)break;evnt(26070,3307,"ide_methods.bas");}while(r); +} +S_39927:; +if ((-(*__LONG_MY>=(*__LONG_IDEWY- 7 )))||new_error){ +if(qbevent){evnt(26070,3308,"ide_methods.bas");if(r)goto S_39927;} +do{ +*__LONG_IDECY=*__LONG_IDEN; +if(!qbevent)break;evnt(26070,3308,"ide_methods.bas");}while(r); +} +S_39930:; +if (((-(*__LONG_MY> 4 ))&(-(*__LONG_MY<(*__LONG_IDEWY- 7 ))))||new_error){ +if(qbevent){evnt(26070,3309,"ide_methods.bas");if(r)goto S_39930;} +do{ +*_FUNC_IDE2_LONG_Y=*__LONG_MY; +if(!qbevent)break;evnt(26070,3310,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_SINGLE_P=*_FUNC_IDE2_LONG_Y- 3 - 2 + 0.5E+0 ; +if(!qbevent)break;evnt(26070,3311,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_SINGLE_P=*_FUNC_IDE2_SINGLE_P/ ((*__LONG_IDEWY- 8 )- 4 ); +if(!qbevent)break;evnt(26070,3312,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=qbr((*_FUNC_IDE2_SINGLE_P*(*__LONG_IDEN- 1 ))+( 1 )); +if(!qbevent)break;evnt(26070,3313,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECY=*_FUNC_IDE2_LONG_I; +if(!qbevent)break;evnt(26070,3314,"ide_methods.bas");}while(r); +} +} +} +S_39939:; +if ((*__LONG_MB&(-(*__LONG_IDEMOUSESELECT== 3 )))||new_error){ +if(qbevent){evnt(26070,3319,"ide_methods.bas");if(r)goto S_39939;} +S_39940:; +if ((-(*__LONG_MX<= 3 ))||new_error){ +if(qbevent){evnt(26070,3321,"ide_methods.bas");if(r)goto S_39940;} +do{ +*__LONG_IDESX= 1 ; +if(!qbevent)break;evnt(26070,3321,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECX=*__LONG_IDESX; +if(!qbevent)break;evnt(26070,3321,"ide_methods.bas");}while(r); +} +S_39944:; +if ((-(*__LONG_MX>=(*__LONG_IDEWX- 2 )))||new_error){ +if(qbevent){evnt(26070,3322,"ide_methods.bas");if(r)goto S_39944;} +do{ +*__LONG_IDESX= 608 ; +if(!qbevent)break;evnt(26070,3322,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECX=*__LONG_IDESX; +if(!qbevent)break;evnt(26070,3322,"ide_methods.bas");}while(r); +} +S_39948:; +if (((-(*__LONG_MX> 3 ))&(-(*__LONG_MX<(*__LONG_IDEWX- 2 ))))||new_error){ +if(qbevent){evnt(26070,3323,"ide_methods.bas");if(r)goto S_39948;} +do{ +*_FUNC_IDE2_LONG_X=*__LONG_MX; +if(!qbevent)break;evnt(26070,3324,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_SINGLE_P=*_FUNC_IDE2_LONG_X- 2 - 2 + 0.5E+0 ; +if(!qbevent)break;evnt(26070,3325,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_SINGLE_P=*_FUNC_IDE2_SINGLE_P/ ((*__LONG_IDEWX- 2 )- 4 ); +if(!qbevent)break;evnt(26070,3326,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=qbr((*_FUNC_IDE2_SINGLE_P*( 608 - 1 ))+( 1 )); +if(!qbevent)break;evnt(26070,3327,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESX=*_FUNC_IDE2_LONG_I; +if(!qbevent)break;evnt(26070,3328,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECX=*__LONG_IDESX; +if(!qbevent)break;evnt(26070,3329,"ide_methods.bas");}while(r); +} +} +S_39957:; +if ((*__LONG_MB&(-(*__LONG_IDEMOUSESELECT<= 1 )))||new_error){ +if(qbevent){evnt(26070,3333,"ide_methods.bas");if(r)goto S_39957;} +S_39958:; +if (((-(*__LONG_MX>( 1 +*__LONG_MAXLINENUMBERLENGTH)))&(-(*__LONG_MX<*__LONG_IDEWX))&(-(*__LONG_MY> 2 ))&(-(*__LONG_MY<(*__LONG_IDEWY- 5 ))))||new_error){ +if(qbevent){evnt(26070,3334,"ide_methods.bas");if(r)goto S_39958;} +S_39959:; +if ((-(*__LONG_IDEMOUSESELECT== 1 ))||new_error){ +if(qbevent){evnt(26070,3335,"ide_methods.bas");if(r)goto S_39959;} +do{ +*__LONG_IDECX=(*__LONG_MX- 1 +*__LONG_IDESX- 1 )-*__LONG_MAXLINENUMBERLENGTH; +if(!qbevent)break;evnt(26070,3336,"ide_methods.bas");}while(r); +S_39961:; +if ((-(*__LONG_IDECX< 1 ))||new_error){ +if(qbevent){evnt(26070,3337,"ide_methods.bas");if(r)goto S_39961;} +do{ +*__LONG_IDECX= 1 ; +if(!qbevent)break;evnt(26070,3337,"ide_methods.bas");}while(r); +} +do{ +*__LONG_IDECY=*__LONG_MY- 2 +*__LONG_IDESY- 1 ; +if(!qbevent)break;evnt(26070,3338,"ide_methods.bas");}while(r); +S_39965:; +if ((-(*__LONG_IDECY>*__LONG_IDEN))||new_error){ +if(qbevent){evnt(26070,3339,"ide_methods.bas");if(r)goto S_39965;} +do{ +*__LONG_IDECY=*__LONG_IDEN; +if(!qbevent)break;evnt(26070,3339,"ide_methods.bas");}while(r); +} +} +} +} +S_39971:; +if ((*__LONG_MB)||new_error){ +if(qbevent){evnt(26070,3344,"ide_methods.bas");if(r)goto S_39971;} +S_39972:; +if ((((((-(*__LONG_MX== 1 ))&(-(*__BYTE_SHOWLINENUMBERS== 0 )))|((-(*__LONG_MX<=( 1 +*__LONG_MAXLINENUMBERLENGTH)))&*__BYTE_SHOWLINENUMBERS)))|(-(*__LONG_MX==*__LONG_IDEWX))|(-(*__LONG_MY<= 2 ))|(-(*__LONG_MY>=(*__LONG_IDEWY- 5 ))))||new_error){ +if(qbevent){evnt(26070,3345,"ide_methods.bas");if(r)goto S_39972;} +S_39973:; +if ((-(*__LONG_IDEMOUSESELECT== 1 ))||new_error){ +if(qbevent){evnt(26070,3346,"ide_methods.bas");if(r)goto S_39973;} +S_39974:; +if ((-(*__LONG_MY>=(*__LONG_IDEWY- 5 )))||new_error){ +if(qbevent){evnt(26070,3349,"ide_methods.bas");if(r)goto S_39974;} +do{ +*__LONG_IDECY=*__LONG_IDECY+ 1 ; +if(!qbevent)break;evnt(26070,3349,"ide_methods.bas");}while(r); +S_39976:; +if ((-(*__LONG_IDECY>*__LONG_IDEN))||new_error){ +if(qbevent){evnt(26070,3349,"ide_methods.bas");if(r)goto S_39976;} +do{ +*__LONG_IDECY=*__LONG_IDEN; +if(!qbevent)break;evnt(26070,3349,"ide_methods.bas");}while(r); +} +} +S_39980:; +if ((-(*__LONG_MY<= 2 ))||new_error){ +if(qbevent){evnt(26070,3350,"ide_methods.bas");if(r)goto S_39980;} +do{ +*__LONG_IDECY=*__LONG_IDECY- 1 ; +if(!qbevent)break;evnt(26070,3350,"ide_methods.bas");}while(r); +S_39982:; +if ((-(*__LONG_IDECY< 1 ))||new_error){ +if(qbevent){evnt(26070,3350,"ide_methods.bas");if(r)goto S_39982;} +do{ +*__LONG_IDECY= 1 ; +if(!qbevent)break;evnt(26070,3350,"ide_methods.bas");}while(r); +} +} +S_39986:; +if (((((-(*__LONG_MX== 1 ))&(-(*__BYTE_SHOWLINENUMBERS== 0 )))|((-(*__LONG_MX<=( 1 +*__LONG_MAXLINENUMBERLENGTH)))&*__BYTE_SHOWLINENUMBERS)))||new_error){ +if(qbevent){evnt(26070,3351,"ide_methods.bas");if(r)goto S_39986;} +do{ +*__LONG_IDECX=*__LONG_IDECX- 1 ; +if(!qbevent)break;evnt(26070,3351,"ide_methods.bas");}while(r); +S_39988:; +if ((-(*__LONG_IDECX< 1 ))||new_error){ +if(qbevent){evnt(26070,3351,"ide_methods.bas");if(r)goto S_39988;} +do{ +*__LONG_IDECX= 1 ; +if(!qbevent)break;evnt(26070,3351,"ide_methods.bas");}while(r); +} +} +S_39992:; +if ((-(*__LONG_MX==*__LONG_IDEWX))||new_error){ +if(qbevent){evnt(26070,3352,"ide_methods.bas");if(r)goto S_39992;} +do{ +*__LONG_IDECX=*__LONG_IDECX+ 1 ; +if(!qbevent)break;evnt(26070,3352,"ide_methods.bas");}while(r); +} +do{ +SUB_IDEWAIT(); +if(!qbevent)break;evnt(26070,3353,"ide_methods.bas");}while(r); +} +} +} +S_39999:; +if ((qbs_cleanup(qbs_tmp_base,*__LONG_KCONTROL&(qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("A",1)))))||new_error){ +if(qbevent){evnt(26070,3364,"ide_methods.bas");if(r)goto S_39999;} +LABEL_IDEMSELECTALL:; +if(qbevent){evnt(26070,3365,"ide_methods.bas");r=0;} +do{ +*__LONG_IDESELECT= 1 ; +if(!qbevent)break;evnt(26070,3366,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESELECTX1= 1 ; +if(!qbevent)break;evnt(26070,3366,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESELECTY1= 1 ; +if(!qbevent)break;evnt(26070,3366,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECY=*__LONG_IDEN; +if(!qbevent)break;evnt(26070,3367,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3368,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECX=_FUNC_IDE2_STRING_A->len+ 1 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3369,"ide_methods.bas");}while(r); +do{ +goto LABEL_SPECIALCHAR; +if(!qbevent)break;evnt(26070,3370,"ide_methods.bas");}while(r); +} +S_40008:; +if ((qbs_cleanup(qbs_tmp_base,*__LONG_KCONTROL&(qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("G",1)))))||new_error){ +if(qbevent){evnt(26070,3373,"ide_methods.bas");if(r)goto S_40008;} +S_40009:; +if ((*__LONG_KSHIFT&(-(*__LONG_IDEFOCUSLINE> 0 )))||new_error){ +if(qbevent){evnt(26070,3374,"ide_methods.bas");if(r)goto S_40009;} +do{ +*__LONG_IDECX= 1 ; +if(!qbevent)break;evnt(26070,3375,"ide_methods.bas");}while(r); +do{ +SUB_ADDQUICKNAVHISTORY(); +if(!qbevent)break;evnt(26070,3376,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECY=*__LONG_IDEFOCUSLINE; +if(!qbevent)break;evnt(26070,3377,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESELECT= 0 ; +if(!qbevent)break;evnt(26070,3378,"ide_methods.bas");}while(r); +}else{ +do{ +SUB_IDEGOTOBOX(); +if(!qbevent)break;evnt(26070,3380,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,3382,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,3382,"ide_methods.bas");}while(r); +} +do{ +goto LABEL_SPECIALCHAR; +if(!qbevent)break;evnt(26070,3384,"ide_methods.bas");}while(r); +} +S_40021:; +if ((qbs_cleanup(qbs_tmp_base,*__LONG_KCONTROL&(qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("N",1)))))||new_error){ +if(qbevent){evnt(26070,3387,"ide_methods.bas");if(r)goto S_40021;} +do{ +goto LABEL_CTRLNEW; +if(!qbevent)break;evnt(26070,3388,"ide_methods.bas");}while(r); +} +S_40024:; +if ((qbs_cleanup(qbs_tmp_base,*__LONG_KCONTROL&(qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("O",1)))))||new_error){ +if(qbevent){evnt(26070,3391,"ide_methods.bas");if(r)goto S_40024;} +do{ +qbs_set(__STRING_IDEOPENFILE,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3392,"ide_methods.bas");}while(r); +do{ +goto LABEL_CTRLOPEN; +if(!qbevent)break;evnt(26070,3393,"ide_methods.bas");}while(r); +} +S_40028:; +if ((qbs_cleanup(qbs_tmp_base,*__LONG_KCONTROL&(qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("P",1)))))||new_error){ +if(qbevent){evnt(26070,3396,"ide_methods.bas");if(r)goto S_40028;} +do{ +goto LABEL_TOGGLESKIPLINE; +if(!qbevent)break;evnt(26070,3397,"ide_methods.bas");}while(r); +} +S_40031:; +if ((qbs_cleanup(qbs_tmp_base,((~(*__LONG_KSHIFT)))&*__LONG_KCONTROL&(qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("R",1)))))||new_error){ +if(qbevent){evnt(26070,3400,"ide_methods.bas");if(r)goto S_40031;} +do{ +goto LABEL_CTRLADDCOMMENT; +if(!qbevent)break;evnt(26070,3401,"ide_methods.bas");}while(r); +} +S_40034:; +if ((qbs_cleanup(qbs_tmp_base,((~(*__LONG_KSHIFT)))&*__LONG_KCONTROL&(qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("T",1)))))||new_error){ +if(qbevent){evnt(26070,3404,"ide_methods.bas");if(r)goto S_40034;} +do{ +goto LABEL_CTRLTOGGLECOMMENT; +if(!qbevent)break;evnt(26070,3405,"ide_methods.bas");}while(r); +} +S_40037:; +if ((qbs_cleanup(qbs_tmp_base,*__LONG_KSHIFT&*__LONG_KCONTROL&(qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("R",1)))))||new_error){ +if(qbevent){evnt(26070,3408,"ide_methods.bas");if(r)goto S_40037;} +do{ +goto LABEL_CTRLREMOVECOMMENT; +if(!qbevent)break;evnt(26070,3409,"ide_methods.bas");}while(r); +} +S_40040:; +if ((qbs_cleanup(qbs_tmp_base,*__LONG_KCONTROL&(qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("S",1)))))||new_error){ +if(qbevent){evnt(26070,3412,"ide_methods.bas");if(r)goto S_40040;} +S_40041:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_IDEPROGNAME,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,3413,"ide_methods.bas");if(r)goto S_40041;} +do{ +qbs_set(_FUNC_IDE2_STRING_PROPOSEDTITLE,FUNC_FINDPROPOSEDTITLE()); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3414,"ide_methods.bas");}while(r); +S_40043:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_PROPOSEDTITLE,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,3415,"ide_methods.bas");if(r)goto S_40043;} +do{ +qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEFILEDIALOG(qbs_add(qbs_add(qbs_new_txt_len("untitled",8),__STRING_TEMPFOLDERINDEXSTR),qbs_new_txt_len(".bas",4)),&(pass4279= 2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3416,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEFILEDIALOG(qbs_add(_FUNC_IDE2_STRING_PROPOSEDTITLE,qbs_new_txt_len(".bas",4)),&(pass4280= 2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3418,"ide_methods.bas");}while(r); +} +S_40048:; +if ((-(*__LONG_IDEERROR> 1 ))||new_error){ +if(qbevent){evnt(26070,3420,"ide_methods.bas");if(r)goto S_40048;} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,3420,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,3420,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDEERRORMESSAGE; +if(!qbevent)break;evnt(26070,3420,"ide_methods.bas");}while(r); +} +}else{ +do{ +SUB_IDESAVE(qbs_add(qbs_add(__STRING_IDEPATH,__STRING1_IDEPATHSEP),__STRING_IDEPROGNAME)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3422,"ide_methods.bas");}while(r); +} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,3424,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,3424,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,3424,"ide_methods.bas");}while(r); +} +S_40060:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,(qbs_add(func_chr( 0 ),func_chr( 60 ))))))||new_error){ +if(qbevent){evnt(26070,3427,"ide_methods.bas");if(r)goto S_40060;} +S_40061:; +if ((*__LONG_KCONTROL)||new_error){ +if(qbevent){evnt(26070,3428,"ide_methods.bas");if(r)goto S_40061;} +S_40062:; +if ((-(*__LONG_QUICKNAVTOTAL> 0 ))||new_error){ +if(qbevent){evnt(26070,3429,"ide_methods.bas");if(r)goto S_40062;} +do{ +*__LONG_IDESELECT= 0 ; +if(!qbevent)break;evnt(26070,3430,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECY=*(int32*)(((char*)__ARRAY_UDT_QUICKNAVHISTORY[0])+((array_check((*__LONG_QUICKNAVTOTAL)-__ARRAY_UDT_QUICKNAVHISTORY[4],__ARRAY_UDT_QUICKNAVHISTORY[5]))*16+12)); +if(!qbevent)break;evnt(26070,3431,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECX=*(int32*)(((char*)__ARRAY_UDT_QUICKNAVHISTORY[0])+((array_check((*__LONG_QUICKNAVTOTAL)-__ARRAY_UDT_QUICKNAVHISTORY[4],__ARRAY_UDT_QUICKNAVHISTORY[5]))*16+8)); +if(!qbevent)break;evnt(26070,3432,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESY=*(int32*)(((char*)__ARRAY_UDT_QUICKNAVHISTORY[0])+((array_check((*__LONG_QUICKNAVTOTAL)-__ARRAY_UDT_QUICKNAVHISTORY[4],__ARRAY_UDT_QUICKNAVHISTORY[5]))*16+4)); +if(!qbevent)break;evnt(26070,3433,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESX=*(int32*)(((char*)__ARRAY_UDT_QUICKNAVHISTORY[0])+((array_check((*__LONG_QUICKNAVTOTAL)-__ARRAY_UDT_QUICKNAVHISTORY[4],__ARRAY_UDT_QUICKNAVHISTORY[5]))*16)); +if(!qbevent)break;evnt(26070,3434,"ide_methods.bas");}while(r); +do{ +*__LONG_QUICKNAVTOTAL=*__LONG_QUICKNAVTOTAL- 1 ; +if(!qbevent)break;evnt(26070,3435,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,3436,"ide_methods.bas");}while(r); +} +}else{ +do{ +goto LABEL_IDESUBSJMP; +if(!qbevent)break;evnt(26070,3439,"ide_methods.bas");}while(r); +} +} +S_40075:; +if ((qbs_cleanup(qbs_tmp_base,*__LONG_KCONTROL&(qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("W",1)))))||new_error){ +if(qbevent){evnt(26070,3443,"ide_methods.bas");if(r)goto S_40075;} +S_40076:; +if ((-(*__LONG_TOTALWARNINGS> 0 ))||new_error){ +if(qbevent){evnt(26070,3444,"ide_methods.bas");if(r)goto S_40076;} +do{ +*_FUNC_IDE2_LONG_RETVAL=FUNC_IDEWARNINGBOX(); +if(!qbevent)break;evnt(26070,3445,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,3447,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,3447,"ide_methods.bas");}while(r); +do{ +goto LABEL_SPECIALCHAR; +if(!qbevent)break;evnt(26070,3448,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_IDE2_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Compilation status",18),qbs_new_txt_len("No warnings to display.",23),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3450,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,3451,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,3451,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,3452,"ide_methods.bas");}while(r); +} +} +S_40088:; +if ((qbs_cleanup(qbs_tmp_base,*__LONG_KCONTROL&(qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("Z",1)))))||new_error){ +if(qbevent){evnt(26070,3456,"ide_methods.bas");if(r)goto S_40088;} +LABEL_IDEMUNDO:; +if(qbevent){evnt(26070,3457,"ide_methods.bas");r=0;} +S_40089:; +if ((*__LONG_IDEUNDOPOS)||new_error){ +if(qbevent){evnt(26070,3458,"ide_methods.bas");if(r)goto S_40089;} +do{ +sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("undo2.bin",9)), 2 ,NULL,NULL, 150 ,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3459,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_H,func_space( 12 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3460,"ide_methods.bas");}while(r); +do{ +sub_get2( 150 ,NULL,_FUNC_IDE2_STRING_H,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3460,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_P1=string2l(func_mid(_FUNC_IDE2_STRING_H, 1 , 4 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3460,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_P2=string2l(func_mid(_FUNC_IDE2_STRING_H, 5 , 4 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3460,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_PLAST=string2l(func_mid(_FUNC_IDE2_STRING_H, 9 , 4 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3460,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_U= 0 ; +if(!qbevent)break;evnt(26070,3463,"ide_methods.bas");}while(r); +S_40097:; +if ((-(*_FUNC_IDE2_LONG_P2>=*_FUNC_IDE2_LONG_P1))||new_error){ +if(qbevent){evnt(26070,3464,"ide_methods.bas");if(r)goto S_40097;} +S_40098:; +if ((-(*__LONG_IDEUNDOPOS>*_FUNC_IDE2_LONG_P1))||new_error){ +if(qbevent){evnt(26070,3466,"ide_methods.bas");if(r)goto S_40098;} +do{ +sub_get( 150 ,*__LONG_IDEUNDOPOS- 4 ,byte_element((uint64)_FUNC_IDE2_LONG_UPL,4,byte_element_4281),1); +if(!qbevent)break;evnt(26070,3467,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_U=*__LONG_IDEUNDOPOS- 4 -*_FUNC_IDE2_LONG_UPL- 4 ; +if(!qbevent)break;evnt(26070,3468,"ide_methods.bas");}while(r); +} +}else{ +S_40103:; +if ((-(*__LONG_IDEUNDOPOS>*_FUNC_IDE2_LONG_P1))||new_error){ +if(qbevent){evnt(26070,3472,"ide_methods.bas");if(r)goto S_40103;} +do{ +sub_get( 150 ,*__LONG_IDEUNDOPOS- 4 ,byte_element((uint64)_FUNC_IDE2_LONG_UPL,4,byte_element_4282),1); +if(!qbevent)break;evnt(26070,3473,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_U=*__LONG_IDEUNDOPOS- 4 -*_FUNC_IDE2_LONG_UPL- 4 ; +if(!qbevent)break;evnt(26070,3474,"ide_methods.bas");}while(r); +} +S_40107:; +if ((-(*__LONG_IDEUNDOPOS<=*_FUNC_IDE2_LONG_P2))||new_error){ +if(qbevent){evnt(26070,3476,"ide_methods.bas");if(r)goto S_40107;} +S_40108:; +if ((-(*__LONG_IDEUNDOPOS== 13 ))||new_error){ +if(qbevent){evnt(26070,3477,"ide_methods.bas");if(r)goto S_40108;} +do{ +*_FUNC_IDE2_LONG_U=*_FUNC_IDE2_LONG_PLAST; +if(!qbevent)break;evnt(26070,3478,"ide_methods.bas");}while(r); +}else{ +do{ +sub_get( 150 ,*__LONG_IDEUNDOPOS- 4 ,byte_element((uint64)_FUNC_IDE2_LONG_UPL,4,byte_element_4283),1); +if(!qbevent)break;evnt(26070,3480,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_U=*__LONG_IDEUNDOPOS- 4 -*_FUNC_IDE2_LONG_UPL- 4 ; +if(!qbevent)break;evnt(26070,3481,"ide_methods.bas");}while(r); +} +} +} +S_40116:; +if ((*_FUNC_IDE2_LONG_U)||new_error){ +if(qbevent){evnt(26070,3486,"ide_methods.bas");if(r)goto S_40116;} +S_40117:; +if ((-(*__LONG_IDEUNDOPOS==*__LONG_IDEUNDOBASE))||new_error){ +if(qbevent){evnt(26070,3488,"ide_methods.bas");if(r)goto S_40117;} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,3491,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_WHAT,FUNC_IDEYESNOBOX(qbs_new_txt_len("Undo",4),qbs_new_txt_len("Undo through previous program content?",38))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3492,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,3493,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,3493,"ide_methods.bas");}while(r); +S_40122:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_WHAT,qbs_new_txt_len("N",1))))||new_error){ +if(qbevent){evnt(26070,3494,"ide_methods.bas");if(r)goto S_40122;} +do{ +sub_close( 150 ,1); +if(!qbevent)break;evnt(26070,3495,"ide_methods.bas");}while(r); +do{ +goto LABEL_SKIPUNDO; +if(!qbevent)break;evnt(26070,3496,"ide_methods.bas");}while(r); +} +S_40126:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_IDEUNSAVED== 1 ))&(qbs_notequal(__STRING_IDEPROGNAME,qbs_new_txt_len("",0)))))||new_error){ +if(qbevent){evnt(26070,3498,"ide_methods.bas");if(r)goto S_40126;} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,3499,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_R,FUNC_IDESAVENOW()); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3500,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,3501,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,3501,"ide_methods.bas");}while(r); +S_40131:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_R,qbs_new_txt_len("C",1))))||new_error){ +if(qbevent){evnt(26070,3502,"ide_methods.bas");if(r)goto S_40131;} +do{ +sub_close( 150 ,1); +if(!qbevent)break;evnt(26070,3502,"ide_methods.bas");}while(r); +do{ +goto LABEL_SKIPUNDO; +if(!qbevent)break;evnt(26070,3502,"ide_methods.bas");}while(r); +} +S_40135:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_R,qbs_new_txt_len("Y",1))))||new_error){ +if(qbevent){evnt(26070,3503,"ide_methods.bas");if(r)goto S_40135;} +do{ +SUB_IDESAVE(qbs_add(qbs_add(__STRING_IDEPATH,__STRING1_IDEPATHSEP),__STRING_IDEPROGNAME)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3504,"ide_methods.bas");}while(r); +} +} +do{ +*__LONG_IDEUNSAVED= 1 ; +if(!qbevent)break;evnt(26070,3507,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_IDEPROGNAME,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3508,"ide_methods.bas");}while(r); +do{ +sub__title(__STRING_WINDOWTITLE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3509,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEUNDOBASE= -1 ; +if(!qbevent)break;evnt(26070,3510,"ide_methods.bas");}while(r); +} +do{ +*__LONG_IDEUNDOPOS=*_FUNC_IDE2_LONG_U; +if(!qbevent)break;evnt(26070,3513,"ide_methods.bas");}while(r); +do{ +sub_seek( 150 ,*_FUNC_IDE2_LONG_U); +if(!qbevent)break;evnt(26070,3516,"ide_methods.bas");}while(r); +do{ +sub_get( 150 ,NULL,byte_element((uint64)_FUNC_IDE2_LONG_L2,4,byte_element_4284),0); +if(!qbevent)break;evnt(26070,3517,"ide_methods.bas");}while(r); +do{ +sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDESX,4,byte_element_4285),0); +if(!qbevent)break;evnt(26070,3518,"ide_methods.bas");}while(r); +do{ +sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDESY,4,byte_element_4286),0); +if(!qbevent)break;evnt(26070,3518,"ide_methods.bas");}while(r); +do{ +sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDECX,4,byte_element_4287),0); +if(!qbevent)break;evnt(26070,3519,"ide_methods.bas");}while(r); +do{ +sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDECY,4,byte_element_4288),0); +if(!qbevent)break;evnt(26070,3519,"ide_methods.bas");}while(r); +do{ +sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDESELECT,4,byte_element_4289),0); +if(!qbevent)break;evnt(26070,3520,"ide_methods.bas");}while(r); +do{ +sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDESELECTX1,4,byte_element_4290),0); +if(!qbevent)break;evnt(26070,3520,"ide_methods.bas");}while(r); +do{ +sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDESELECTY1,4,byte_element_4291),0); +if(!qbevent)break;evnt(26070,3520,"ide_methods.bas");}while(r); +do{ +sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDEN,4,byte_element_4292),0); +if(!qbevent)break;evnt(26070,3521,"ide_methods.bas");}while(r); +do{ +sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDEL,4,byte_element_4293),0); +if(!qbevent)break;evnt(26070,3522,"ide_methods.bas");}while(r); +do{ +sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDELI,4,byte_element_4294),0); +if(!qbevent)break;evnt(26070,3523,"ide_methods.bas");}while(r); +do{ +sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDEBMKN,4,byte_element_4295),0); +if(!qbevent)break;evnt(26070,3525,"ide_methods.bas");}while(r); +do{ if (__ARRAY_UDT_IDEBMK[2]&2){ error(10); @@ -135009,191 +135009,191 @@ __ARRAY_UDT_IDEBMK[0]=(ptrszint)calloc(__ARRAY_UDT_IDEBMK[5]*128/8+1,1); if (!__ARRAY_UDT_IDEBMK[0]) error(257); } __ARRAY_UDT_IDEBMK[2]|=1; -} -if(!qbevent)break;evnt(26070,3525,"ide_methods.bas");}while(r); -S_40159:; -fornext_value4297= 1 ; -fornext_finalvalue4297=*__LONG_IDEBMKN; -fornext_step4297= 1 ; -if (fornext_step4297<0) fornext_step_negative4297=1; else fornext_step_negative4297=0; -if (new_error) goto fornext_error4297; -goto fornext_entrylabel4297; -while(1){ -fornext_value4297=fornext_step4297+(*_FUNC_IDE2_LONG_BI); -fornext_entrylabel4297: -*_FUNC_IDE2_LONG_BI=fornext_value4297; -if (fornext_step_negative4297){ -if (fornext_value4297fornext_finalvalue4297) break; -} -fornext_error4297:; -if(qbevent){evnt(26070,3526,"ide_methods.bas");if(r)goto S_40159;} -do{ -sub_get( 150 ,NULL,byte_element((uint64)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_FUNC_IDE2_LONG_BI)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16)),4,byte_element_4298),0); -if(!qbevent)break;evnt(26070,3526,"ide_methods.bas");}while(r); -do{ -sub_get( 150 ,NULL,byte_element((uint64)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_FUNC_IDE2_LONG_BI)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16+4)),4,byte_element_4299),0); -if(!qbevent)break;evnt(26070,3526,"ide_methods.bas");}while(r); -fornext_continue_4296:; -} -fornext_exit_4296:; -do{ -sub_get( 150 ,NULL,byte_element((uint64)_FUNC_IDE2_LONG_X,4,byte_element_4300),0); -if(!qbevent)break;evnt(26070,3527,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_IDET,func_space(*_FUNC_IDE2_LONG_X)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3527,"ide_methods.bas");}while(r); -do{ -sub_get2( 150 ,NULL,__STRING_IDET,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3527,"ide_methods.bas");}while(r); -do{ -*__INTEGER_IDECHANGEMADE= 1 ; -if(!qbevent)break;evnt(26070,3529,"ide_methods.bas");}while(r); -do{ -*__LONG_IDENOUNDO= 1 ; -if(!qbevent)break;evnt(26070,3529,"ide_methods.bas");}while(r); -do{ -*__BYTE_STARTPAUSEDPENDING= 0 ; -if(!qbevent)break;evnt(26070,3529,"ide_methods.bas");}while(r); -} -LABEL_SKIPUNDO:; -if(qbevent){evnt(26070,3533,"ide_methods.bas");r=0;} -do{ -sub_close( 150 ,1); -if(!qbevent)break;evnt(26070,3534,"ide_methods.bas");}while(r); -} -do{ -goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(26070,3536,"ide_methods.bas");}while(r); -} -S_40174:; -if ((qbs_cleanup(qbs_tmp_base,*__LONG_KCONTROL&(qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("Y",1)))))||new_error){ -if(qbevent){evnt(26070,3541,"ide_methods.bas");if(r)goto S_40174;} -LABEL_IDEMREDO:; -if(qbevent){evnt(26070,3542,"ide_methods.bas");r=0;} -S_40175:; -if ((*__LONG_IDEUNDOPOS)||new_error){ -if(qbevent){evnt(26070,3543,"ide_methods.bas");if(r)goto S_40175;} -do{ -sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("undo2.bin",9)), 2 ,NULL,NULL, 150 ,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3544,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_H,func_space( 12 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3545,"ide_methods.bas");}while(r); -do{ -sub_get2( 150 ,NULL,_FUNC_IDE2_STRING_H,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3545,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_P1=string2l(func_mid(_FUNC_IDE2_STRING_H, 1 , 4 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3545,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_P2=string2l(func_mid(_FUNC_IDE2_STRING_H, 5 , 4 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3545,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_PLAST=string2l(func_mid(_FUNC_IDE2_STRING_H, 9 , 4 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3545,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_U= 0 ; -if(!qbevent)break;evnt(26070,3548,"ide_methods.bas");}while(r); -S_40183:; -if ((-(*_FUNC_IDE2_LONG_P2>=*_FUNC_IDE2_LONG_P1))||new_error){ -if(qbevent){evnt(26070,3549,"ide_methods.bas");if(r)goto S_40183;} -S_40184:; -if ((-(*__LONG_IDEUNDOPOS<*_FUNC_IDE2_LONG_P2))||new_error){ -if(qbevent){evnt(26070,3551,"ide_methods.bas");if(r)goto S_40184;} -do{ -sub_get( 150 ,*__LONG_IDEUNDOPOS,byte_element((uint64)_FUNC_IDE2_LONG_UPL,4,byte_element_4301),1); -if(!qbevent)break;evnt(26070,3552,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_U=*__LONG_IDEUNDOPOS+ 4 +*_FUNC_IDE2_LONG_UPL+ 4 ; -if(!qbevent)break;evnt(26070,3553,"ide_methods.bas");}while(r); -} -}else{ -S_40189:; -if ((-(*__LONG_IDEUNDOPOS>=*_FUNC_IDE2_LONG_P1))||new_error){ -if(qbevent){evnt(26070,3557,"ide_methods.bas");if(r)goto S_40189;} -S_40190:; -if ((-(*__LONG_IDEUNDOPOS==*_FUNC_IDE2_LONG_PLAST))||new_error){ -if(qbevent){evnt(26070,3558,"ide_methods.bas");if(r)goto S_40190;} -do{ -*_FUNC_IDE2_LONG_U= 13 ; -if(!qbevent)break;evnt(26070,3559,"ide_methods.bas");}while(r); -}else{ -do{ -sub_get( 150 ,*__LONG_IDEUNDOPOS,byte_element((uint64)_FUNC_IDE2_LONG_UPL,4,byte_element_4302),1); -if(!qbevent)break;evnt(26070,3561,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_U=*__LONG_IDEUNDOPOS+ 4 +*_FUNC_IDE2_LONG_UPL+ 4 ; -if(!qbevent)break;evnt(26070,3562,"ide_methods.bas");}while(r); -} -}else{ -S_40197:; -if ((-(*__LONG_IDEUNDOPOS<*_FUNC_IDE2_LONG_P2))||new_error){ -if(qbevent){evnt(26070,3565,"ide_methods.bas");if(r)goto S_40197;} -do{ -sub_get( 150 ,*__LONG_IDEUNDOPOS,byte_element((uint64)_FUNC_IDE2_LONG_UPL,4,byte_element_4303),1); -if(!qbevent)break;evnt(26070,3566,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_U=*__LONG_IDEUNDOPOS+ 4 +*_FUNC_IDE2_LONG_UPL+ 4 ; -if(!qbevent)break;evnt(26070,3567,"ide_methods.bas");}while(r); -} -} -} -S_40203:; -if ((*_FUNC_IDE2_LONG_U)||new_error){ -if(qbevent){evnt(26070,3572,"ide_methods.bas");if(r)goto S_40203;} -do{ -*__LONG_IDEUNDOPOS=*_FUNC_IDE2_LONG_U; -if(!qbevent)break;evnt(26070,3574,"ide_methods.bas");}while(r); -do{ -sub_seek( 150 ,*_FUNC_IDE2_LONG_U); -if(!qbevent)break;evnt(26070,3577,"ide_methods.bas");}while(r); -do{ -sub_get( 150 ,NULL,byte_element((uint64)_FUNC_IDE2_LONG_L2,4,byte_element_4304),0); -if(!qbevent)break;evnt(26070,3578,"ide_methods.bas");}while(r); -do{ -sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDESX,4,byte_element_4305),0); -if(!qbevent)break;evnt(26070,3579,"ide_methods.bas");}while(r); -do{ -sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDESY,4,byte_element_4306),0); -if(!qbevent)break;evnt(26070,3579,"ide_methods.bas");}while(r); -do{ -sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDECX,4,byte_element_4307),0); -if(!qbevent)break;evnt(26070,3580,"ide_methods.bas");}while(r); -do{ -sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDECY,4,byte_element_4308),0); -if(!qbevent)break;evnt(26070,3580,"ide_methods.bas");}while(r); -do{ -sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDESELECT,4,byte_element_4309),0); -if(!qbevent)break;evnt(26070,3581,"ide_methods.bas");}while(r); -do{ -sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDESELECTX1,4,byte_element_4310),0); -if(!qbevent)break;evnt(26070,3581,"ide_methods.bas");}while(r); -do{ -sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDESELECTY1,4,byte_element_4311),0); -if(!qbevent)break;evnt(26070,3581,"ide_methods.bas");}while(r); -do{ -sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDEN,4,byte_element_4312),0); -if(!qbevent)break;evnt(26070,3582,"ide_methods.bas");}while(r); -do{ -sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDEL,4,byte_element_4313),0); -if(!qbevent)break;evnt(26070,3583,"ide_methods.bas");}while(r); -do{ -sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDELI,4,byte_element_4314),0); -if(!qbevent)break;evnt(26070,3584,"ide_methods.bas");}while(r); -do{ -sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDEBMKN,4,byte_element_4315),0); -if(!qbevent)break;evnt(26070,3586,"ide_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26070,3525,"ide_methods.bas");}while(r); +S_40159:; +fornext_value4297= 1 ; +fornext_finalvalue4297=*__LONG_IDEBMKN; +fornext_step4297= 1 ; +if (fornext_step4297<0) fornext_step_negative4297=1; else fornext_step_negative4297=0; +if (new_error) goto fornext_error4297; +goto fornext_entrylabel4297; +while(1){ +fornext_value4297=fornext_step4297+(*_FUNC_IDE2_LONG_BI); +fornext_entrylabel4297: +*_FUNC_IDE2_LONG_BI=fornext_value4297; +if (fornext_step_negative4297){ +if (fornext_value4297fornext_finalvalue4297) break; +} +fornext_error4297:; +if(qbevent){evnt(26070,3526,"ide_methods.bas");if(r)goto S_40159;} +do{ +sub_get( 150 ,NULL,byte_element((uint64)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_FUNC_IDE2_LONG_BI)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16)),4,byte_element_4298),0); +if(!qbevent)break;evnt(26070,3526,"ide_methods.bas");}while(r); +do{ +sub_get( 150 ,NULL,byte_element((uint64)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_FUNC_IDE2_LONG_BI)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16+4)),4,byte_element_4299),0); +if(!qbevent)break;evnt(26070,3526,"ide_methods.bas");}while(r); +fornext_continue_4296:; +} +fornext_exit_4296:; +do{ +sub_get( 150 ,NULL,byte_element((uint64)_FUNC_IDE2_LONG_X,4,byte_element_4300),0); +if(!qbevent)break;evnt(26070,3527,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_IDET,func_space(*_FUNC_IDE2_LONG_X)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3527,"ide_methods.bas");}while(r); +do{ +sub_get2( 150 ,NULL,__STRING_IDET,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3527,"ide_methods.bas");}while(r); +do{ +*__INTEGER_IDECHANGEMADE= 1 ; +if(!qbevent)break;evnt(26070,3529,"ide_methods.bas");}while(r); +do{ +*__LONG_IDENOUNDO= 1 ; +if(!qbevent)break;evnt(26070,3529,"ide_methods.bas");}while(r); +do{ +*__BYTE_STARTPAUSEDPENDING= 0 ; +if(!qbevent)break;evnt(26070,3529,"ide_methods.bas");}while(r); +} +LABEL_SKIPUNDO:; +if(qbevent){evnt(26070,3533,"ide_methods.bas");r=0;} +do{ +sub_close( 150 ,1); +if(!qbevent)break;evnt(26070,3534,"ide_methods.bas");}while(r); +} +do{ +goto LABEL_SPECIALCHAR; +if(!qbevent)break;evnt(26070,3536,"ide_methods.bas");}while(r); +} +S_40174:; +if ((qbs_cleanup(qbs_tmp_base,*__LONG_KCONTROL&(qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("Y",1)))))||new_error){ +if(qbevent){evnt(26070,3541,"ide_methods.bas");if(r)goto S_40174;} +LABEL_IDEMREDO:; +if(qbevent){evnt(26070,3542,"ide_methods.bas");r=0;} +S_40175:; +if ((*__LONG_IDEUNDOPOS)||new_error){ +if(qbevent){evnt(26070,3543,"ide_methods.bas");if(r)goto S_40175;} +do{ +sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("undo2.bin",9)), 2 ,NULL,NULL, 150 ,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3544,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_H,func_space( 12 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3545,"ide_methods.bas");}while(r); +do{ +sub_get2( 150 ,NULL,_FUNC_IDE2_STRING_H,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3545,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_P1=string2l(func_mid(_FUNC_IDE2_STRING_H, 1 , 4 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3545,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_P2=string2l(func_mid(_FUNC_IDE2_STRING_H, 5 , 4 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3545,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_PLAST=string2l(func_mid(_FUNC_IDE2_STRING_H, 9 , 4 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3545,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_U= 0 ; +if(!qbevent)break;evnt(26070,3548,"ide_methods.bas");}while(r); +S_40183:; +if ((-(*_FUNC_IDE2_LONG_P2>=*_FUNC_IDE2_LONG_P1))||new_error){ +if(qbevent){evnt(26070,3549,"ide_methods.bas");if(r)goto S_40183;} +S_40184:; +if ((-(*__LONG_IDEUNDOPOS<*_FUNC_IDE2_LONG_P2))||new_error){ +if(qbevent){evnt(26070,3551,"ide_methods.bas");if(r)goto S_40184;} +do{ +sub_get( 150 ,*__LONG_IDEUNDOPOS,byte_element((uint64)_FUNC_IDE2_LONG_UPL,4,byte_element_4301),1); +if(!qbevent)break;evnt(26070,3552,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_U=*__LONG_IDEUNDOPOS+ 4 +*_FUNC_IDE2_LONG_UPL+ 4 ; +if(!qbevent)break;evnt(26070,3553,"ide_methods.bas");}while(r); +} +}else{ +S_40189:; +if ((-(*__LONG_IDEUNDOPOS>=*_FUNC_IDE2_LONG_P1))||new_error){ +if(qbevent){evnt(26070,3557,"ide_methods.bas");if(r)goto S_40189;} +S_40190:; +if ((-(*__LONG_IDEUNDOPOS==*_FUNC_IDE2_LONG_PLAST))||new_error){ +if(qbevent){evnt(26070,3558,"ide_methods.bas");if(r)goto S_40190;} +do{ +*_FUNC_IDE2_LONG_U= 13 ; +if(!qbevent)break;evnt(26070,3559,"ide_methods.bas");}while(r); +}else{ +do{ +sub_get( 150 ,*__LONG_IDEUNDOPOS,byte_element((uint64)_FUNC_IDE2_LONG_UPL,4,byte_element_4302),1); +if(!qbevent)break;evnt(26070,3561,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_U=*__LONG_IDEUNDOPOS+ 4 +*_FUNC_IDE2_LONG_UPL+ 4 ; +if(!qbevent)break;evnt(26070,3562,"ide_methods.bas");}while(r); +} +}else{ +S_40197:; +if ((-(*__LONG_IDEUNDOPOS<*_FUNC_IDE2_LONG_P2))||new_error){ +if(qbevent){evnt(26070,3565,"ide_methods.bas");if(r)goto S_40197;} +do{ +sub_get( 150 ,*__LONG_IDEUNDOPOS,byte_element((uint64)_FUNC_IDE2_LONG_UPL,4,byte_element_4303),1); +if(!qbevent)break;evnt(26070,3566,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_U=*__LONG_IDEUNDOPOS+ 4 +*_FUNC_IDE2_LONG_UPL+ 4 ; +if(!qbevent)break;evnt(26070,3567,"ide_methods.bas");}while(r); +} +} +} +S_40203:; +if ((*_FUNC_IDE2_LONG_U)||new_error){ +if(qbevent){evnt(26070,3572,"ide_methods.bas");if(r)goto S_40203;} +do{ +*__LONG_IDEUNDOPOS=*_FUNC_IDE2_LONG_U; +if(!qbevent)break;evnt(26070,3574,"ide_methods.bas");}while(r); +do{ +sub_seek( 150 ,*_FUNC_IDE2_LONG_U); +if(!qbevent)break;evnt(26070,3577,"ide_methods.bas");}while(r); +do{ +sub_get( 150 ,NULL,byte_element((uint64)_FUNC_IDE2_LONG_L2,4,byte_element_4304),0); +if(!qbevent)break;evnt(26070,3578,"ide_methods.bas");}while(r); +do{ +sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDESX,4,byte_element_4305),0); +if(!qbevent)break;evnt(26070,3579,"ide_methods.bas");}while(r); +do{ +sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDESY,4,byte_element_4306),0); +if(!qbevent)break;evnt(26070,3579,"ide_methods.bas");}while(r); +do{ +sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDECX,4,byte_element_4307),0); +if(!qbevent)break;evnt(26070,3580,"ide_methods.bas");}while(r); +do{ +sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDECY,4,byte_element_4308),0); +if(!qbevent)break;evnt(26070,3580,"ide_methods.bas");}while(r); +do{ +sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDESELECT,4,byte_element_4309),0); +if(!qbevent)break;evnt(26070,3581,"ide_methods.bas");}while(r); +do{ +sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDESELECTX1,4,byte_element_4310),0); +if(!qbevent)break;evnt(26070,3581,"ide_methods.bas");}while(r); +do{ +sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDESELECTY1,4,byte_element_4311),0); +if(!qbevent)break;evnt(26070,3581,"ide_methods.bas");}while(r); +do{ +sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDEN,4,byte_element_4312),0); +if(!qbevent)break;evnt(26070,3582,"ide_methods.bas");}while(r); +do{ +sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDEL,4,byte_element_4313),0); +if(!qbevent)break;evnt(26070,3583,"ide_methods.bas");}while(r); +do{ +sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDELI,4,byte_element_4314),0); +if(!qbevent)break;evnt(26070,3584,"ide_methods.bas");}while(r); +do{ +sub_get( 150 ,NULL,byte_element((uint64)__LONG_IDEBMKN,4,byte_element_4315),0); +if(!qbevent)break;evnt(26070,3586,"ide_methods.bas");}while(r); +do{ if (__ARRAY_UDT_IDEBMK[2]&2){ error(10); @@ -135217,5507 +135217,5507 @@ __ARRAY_UDT_IDEBMK[0]=(ptrszint)calloc(__ARRAY_UDT_IDEBMK[5]*128/8+1,1); if (!__ARRAY_UDT_IDEBMK[0]) error(257); } __ARRAY_UDT_IDEBMK[2]|=1; -} -if(!qbevent)break;evnt(26070,3586,"ide_methods.bas");}while(r); -S_40219:; -fornext_value4317= 1 ; -fornext_finalvalue4317=*__LONG_IDEBMKN; -fornext_step4317= 1 ; -if (fornext_step4317<0) fornext_step_negative4317=1; else fornext_step_negative4317=0; -if (new_error) goto fornext_error4317; -goto fornext_entrylabel4317; -while(1){ -fornext_value4317=fornext_step4317+(*_FUNC_IDE2_LONG_BI); -fornext_entrylabel4317: -*_FUNC_IDE2_LONG_BI=fornext_value4317; -if (fornext_step_negative4317){ -if (fornext_value4317fornext_finalvalue4317) break; -} -fornext_error4317:; -if(qbevent){evnt(26070,3587,"ide_methods.bas");if(r)goto S_40219;} -do{ -sub_get( 150 ,NULL,byte_element((uint64)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_FUNC_IDE2_LONG_BI)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16)),4,byte_element_4318),0); -if(!qbevent)break;evnt(26070,3587,"ide_methods.bas");}while(r); -do{ -sub_get( 150 ,NULL,byte_element((uint64)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_FUNC_IDE2_LONG_BI)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16+4)),4,byte_element_4319),0); -if(!qbevent)break;evnt(26070,3587,"ide_methods.bas");}while(r); -fornext_continue_4316:; -} -fornext_exit_4316:; -do{ -sub_get( 150 ,NULL,byte_element((uint64)_FUNC_IDE2_LONG_X,4,byte_element_4320),0); -if(!qbevent)break;evnt(26070,3588,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_IDET,func_space(*_FUNC_IDE2_LONG_X)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3588,"ide_methods.bas");}while(r); -do{ -sub_get2( 150 ,NULL,__STRING_IDET,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3588,"ide_methods.bas");}while(r); -do{ -*__INTEGER_IDECHANGEMADE= 1 ; -if(!qbevent)break;evnt(26070,3590,"ide_methods.bas");}while(r); -do{ -*__LONG_IDENOUNDO= 1 ; -if(!qbevent)break;evnt(26070,3590,"ide_methods.bas");}while(r); -do{ -*__BYTE_STARTPAUSEDPENDING= 0 ; -if(!qbevent)break;evnt(26070,3590,"ide_methods.bas");}while(r); -} -do{ -sub_close( 150 ,1); -if(!qbevent)break;evnt(26070,3594,"ide_methods.bas");}while(r); -} -do{ -goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(26070,3596,"ide_methods.bas");}while(r); -} -S_40234:; -if ((qbs_cleanup(qbs_tmp_base,(((*__LONG_KSHIFT&(-(*__LONG_KB== 21248 )))|(*__LONG_KCONTROL&(qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("X",1))))))&(-(*__LONG_IDESELECT== 1 ))))||new_error){ -if(qbevent){evnt(26070,3600,"ide_methods.bas");if(r)goto S_40234;} -LABEL_IDEMCUT:; -if(qbevent){evnt(26070,3601,"ide_methods.bas");r=0;} -do{ -*__INTEGER_IDECHANGEMADE= 1 ; -if(!qbevent)break;evnt(26070,3602,"ide_methods.bas");}while(r); -do{ -*__BYTE_STARTPAUSEDPENDING= 0 ; -if(!qbevent)break;evnt(26070,3603,"ide_methods.bas");}while(r); -do{ -goto LABEL_COPY2CLIP; -if(!qbevent)break;evnt(26070,3604,"ide_methods.bas");}while(r); -} -S_40239:; -if (((((-(*__LONG_KB== 21248 ))|(-(*__LONG_KB== 8 ))))&(-(*__LONG_IDESELECT== 1 )))||new_error){ -if(qbevent){evnt(26070,3607,"ide_methods.bas");if(r)goto S_40239;} -S_40240:; -if (((-(*__LONG_IDESELECTY1!=*__LONG_IDECY))|(-(*__LONG_IDESELECTX1!=*__LONG_IDECX)))||new_error){ -if(qbevent){evnt(26070,3608,"ide_methods.bas");if(r)goto S_40240;} -do{ -*__INTEGER_IDECHANGEMADE= 1 ; -if(!qbevent)break;evnt(26070,3609,"ide_methods.bas");}while(r); -do{ -*__BYTE_STARTPAUSEDPENDING= 0 ; -if(!qbevent)break;evnt(26070,3610,"ide_methods.bas");}while(r); -do{ -SUB_DELSELECT(); -if(!qbevent)break;evnt(26070,3611,"ide_methods.bas");}while(r); -do{ -goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(26070,3612,"ide_methods.bas");}while(r); -}else{ -do{ -*__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(26070,3614,"ide_methods.bas");}while(r); -} -} -S_40249:; -if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(-(*__LONG_KB== 20992 )))|(*__LONG_KCONTROL&(qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("V",1))))))||new_error){ -if(qbevent){evnt(26070,3619,"ide_methods.bas");if(r)goto S_40249;} -LABEL_IDEMPASTE:; -if(qbevent){evnt(26070,3620,"ide_methods.bas");r=0;} -do{ -qbs_set(_FUNC_IDE2_STRING_CLIP,func__clipboard()); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3622,"ide_methods.bas");}while(r); -S_40251:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_CLIP->len))||new_error){ -if(qbevent){evnt(26070,3624,"ide_methods.bas");if(r)goto S_40251;} -S_40252:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_IDE2_STRING_CLIP,func_chr( 13 ),0)|func_instr(NULL,_FUNC_IDE2_STRING_CLIP,func_chr( 10 ),0)))||new_error){ -if(qbevent){evnt(26070,3625,"ide_methods.bas");if(r)goto S_40252;} -S_40253:; -if ((*__LONG_IDESELECT)||new_error){ -if(qbevent){evnt(26070,3628,"ide_methods.bas");if(r)goto S_40253;} -do{ -SUB_DELSELECT(); -if(!qbevent)break;evnt(26070,3628,"ide_methods.bas");}while(r); -} -do{ -*__LONG_IDELAYOUTALLOW= 2 ; -if(!qbevent)break;evnt(26070,3630,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_CLIP); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3631,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_X3= 1 ; -if(!qbevent)break;evnt(26070,3632,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I= 0 ; -if(!qbevent)break;evnt(26070,3633,"ide_methods.bas");}while(r); -LABEL_FULLPASTENEXTLINE:; -if(qbevent){evnt(26070,3635,"ide_methods.bas");r=0;} -do{ -*_FUNC_IDE2_LONG_X=func_instr(*_FUNC_IDE2_LONG_X3,_FUNC_IDE2_STRING_A,func_chr( 13 ),0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3637,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_X2=func_instr(*_FUNC_IDE2_LONG_X3,_FUNC_IDE2_STRING_A,func_chr( 10 ),0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3638,"ide_methods.bas");}while(r); -S_40262:; -if ((-(*_FUNC_IDE2_LONG_X== 0 ))||new_error){ -if(qbevent){evnt(26070,3639,"ide_methods.bas");if(r)goto S_40262;} -do{ -*_FUNC_IDE2_LONG_X=*_FUNC_IDE2_LONG_X2; -if(!qbevent)break;evnt(26070,3639,"ide_methods.bas");}while(r); -} -S_40265:; -if ((-(*_FUNC_IDE2_LONG_X2== 0 ))||new_error){ -if(qbevent){evnt(26070,3640,"ide_methods.bas");if(r)goto S_40265;} -do{ -*_FUNC_IDE2_LONG_X2=*_FUNC_IDE2_LONG_X; -if(!qbevent)break;evnt(26070,3640,"ide_methods.bas");}while(r); -} -S_40268:; -if ((-(*_FUNC_IDE2_LONG_X2<*_FUNC_IDE2_LONG_X))||new_error){ -if(qbevent){evnt(26070,3641,"ide_methods.bas");if(r)goto S_40268;} -do{ -swap_32(&*_FUNC_IDE2_LONG_X,&*_FUNC_IDE2_LONG_X2); -if(!qbevent)break;evnt(26070,3641,"ide_methods.bas");}while(r); -} -S_40271:; -if ((-(*_FUNC_IDE2_LONG_X2>(*_FUNC_IDE2_LONG_X+ 1 )))||new_error){ -if(qbevent){evnt(26070,3642,"ide_methods.bas");if(r)goto S_40271;} -do{ -*_FUNC_IDE2_LONG_X2=*_FUNC_IDE2_LONG_X; -if(!qbevent)break;evnt(26070,3642,"ide_methods.bas");}while(r); -} -S_40274:; -if ((*_FUNC_IDE2_LONG_X)||new_error){ -if(qbevent){evnt(26070,3645,"ide_methods.bas");if(r)goto S_40274;} -do{ -SUB_IDEINSLINE(&(pass4322=*__LONG_IDECY+*_FUNC_IDE2_LONG_I),FUNC_CONVERTTABS(func_mid(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_X3,*_FUNC_IDE2_LONG_X-*_FUNC_IDE2_LONG_X3,0|1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3646,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,3647,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_X3=*_FUNC_IDE2_LONG_X2+ 1 ; -if(!qbevent)break;evnt(26070,3648,"ide_methods.bas");}while(r); -}else{ -do{ -SUB_IDEINSLINE(&(pass4323=*__LONG_IDECY+*_FUNC_IDE2_LONG_I),FUNC_CONVERTTABS(func_mid(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_X3,_FUNC_IDE2_STRING_A->len-*_FUNC_IDE2_LONG_X3+ 1 ,0|1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3650,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,3651,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_X3=_FUNC_IDE2_STRING_A->len+ 1 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3652,"ide_methods.bas");}while(r); -} -S_40283:; -if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDE2_LONG_X3<=_FUNC_IDE2_STRING_A->len)))||new_error){ -if(qbevent){evnt(26070,3655,"ide_methods.bas");if(r)goto S_40283;} -do{ -goto LABEL_FULLPASTENEXTLINE; -if(!qbevent)break;evnt(26070,3655,"ide_methods.bas");}while(r); -} -S_40286:; -if ((*__BYTE_PASTECURSORATEND)||new_error){ -if(qbevent){evnt(26070,3657,"ide_methods.bas");if(r)goto S_40286;} -do{ -*__LONG_IDECY=*__LONG_IDECY+*_FUNC_IDE2_LONG_I- 1 ; -if(!qbevent)break;evnt(26070,3659,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECX=((int32)(FUNC_IDEGETLINE(__LONG_IDECY))->len)+ 1 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3660,"ide_methods.bas");}while(r); -S_40289:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_FUNC_IDE2_STRING_CLIP, 1 ),func_chr( 10 ))))||new_error){ -if(qbevent){evnt(26070,3661,"ide_methods.bas");if(r)goto S_40289;} -do{ -*__LONG_IDECY=*__LONG_IDECY+ 1 ; -if(!qbevent)break;evnt(26070,3662,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECX= 1 ; -if(!qbevent)break;evnt(26070,3663,"ide_methods.bas");}while(r); -} -} -}else{ -do{ -SUB_INSERTATCURSOR(_FUNC_IDE2_STRING_CLIP); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3668,"ide_methods.bas");}while(r); -} -do{ -*__INTEGER_IDECHANGEMADE= 1 ; -if(!qbevent)break;evnt(26070,3671,"ide_methods.bas");}while(r); -do{ -*__BYTE_STARTPAUSEDPENDING= 0 ; -if(!qbevent)break;evnt(26070,3672,"ide_methods.bas");}while(r); -} -do{ -goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(26070,3674,"ide_methods.bas");}while(r); -} -S_40302:; -if ((qbs_cleanup(qbs_tmp_base,(((*__LONG_KCTRL&(-(*__LONG_KB== 20992 )))|(*__LONG_KCONTROL&(qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("C",1))))))&(-(*__LONG_IDESELECT== 1 ))))||new_error){ -if(qbevent){evnt(26070,3677,"ide_methods.bas");if(r)goto S_40302;} -LABEL_COPY2CLIP:; -if(qbevent){evnt(26070,3678,"ide_methods.bas");r=0;} -do{ -qbs_set(_FUNC_IDE2_STRING_CLIP,FUNC_GETSELECTEDTEXT(&(pass4327= -1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3679,"ide_methods.bas");}while(r); -S_40304:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_IDE2_STRING_CLIP,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,3680,"ide_methods.bas");if(r)goto S_40304;} -do{ -sub__clipboard(_FUNC_IDE2_STRING_CLIP); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3680,"ide_methods.bas");}while(r); -} -S_40307:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,(qbs_add(func_chr( 0 ),qbs_new_txt_len("S",1)))))|(*__LONG_KSHIFT&(-(*__LONG_KB== 21248 )))|(*__LONG_KCONTROL&(qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("X",1))))))||new_error){ -if(qbevent){evnt(26070,3681,"ide_methods.bas");if(r)goto S_40307;} -do{ -SUB_DELSELECT(); -if(!qbevent)break;evnt(26070,3681,"ide_methods.bas");}while(r); -} -do{ -goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(26070,3682,"ide_methods.bas");}while(r); -} -S_40312:; -if ((-(*__LONG_KB== 20992 ))||new_error){ -if(qbevent){evnt(26070,3685,"ide_methods.bas");if(r)goto S_40312;} -do{ -*__INTEGER_IDEINSERT=*__INTEGER_IDEINSERT+ 1 ; -if(!qbevent)break;evnt(26070,3686,"ide_methods.bas");}while(r); -S_40314:; -if ((-(*__INTEGER_IDEINSERT== 2 ))||new_error){ -if(qbevent){evnt(26070,3687,"ide_methods.bas");if(r)goto S_40314;} -do{ -*__INTEGER_IDEINSERT= 0 ; -if(!qbevent)break;evnt(26070,3687,"ide_methods.bas");}while(r); -} -} -S_40318:; -if ((-(*__LONG_KB== 18432 ))||new_error){ -if(qbevent){evnt(26070,3690,"ide_methods.bas");if(r)goto S_40318;} -S_40319:; -if ((*__LONG_KCONTROL)||new_error){ -if(qbevent){evnt(26070,3691,"ide_methods.bas");if(r)goto S_40319;} -do{ -*__LONG_IDESY=*__LONG_IDESY- 1 ; -if(!qbevent)break;evnt(26070,3692,"ide_methods.bas");}while(r); -S_40321:; -if ((-(*__LONG_IDESY< 1 ))||new_error){ -if(qbevent){evnt(26070,3693,"ide_methods.bas");if(r)goto S_40321;} -do{ -*__LONG_IDESY= 1 ; -if(!qbevent)break;evnt(26070,3693,"ide_methods.bas");}while(r); -} -S_40324:; -if ((-(*__LONG_IDECY>(*__LONG_IDESY+(*__LONG_IDEWY- 9 ))))||new_error){ -if(qbevent){evnt(26070,3694,"ide_methods.bas");if(r)goto S_40324;} -do{ -*__LONG_IDECY=*__LONG_IDESY+(*__LONG_IDEWY- 9 ); -if(!qbevent)break;evnt(26070,3694,"ide_methods.bas");}while(r); -} -}else{ -do{ -return_point[next_return_point++]=34; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_SELECTCHECK; -RETURN_34:; -if(!qbevent)break;evnt(26070,3696,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECY=*__LONG_IDECY- 1 ; -if(!qbevent)break;evnt(26070,3697,"ide_methods.bas");}while(r); -S_40330:; -if ((-(*__LONG_IDECY< 1 ))||new_error){ -if(qbevent){evnt(26070,3698,"ide_methods.bas");if(r)goto S_40330;} -do{ -*__LONG_IDECY= 1 ; -if(!qbevent)break;evnt(26070,3698,"ide_methods.bas");}while(r); -} -do{ -goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(26070,3699,"ide_methods.bas");}while(r); -} -} -S_40336:; -if ((-(*__LONG_KB== 20480 ))||new_error){ -if(qbevent){evnt(26070,3703,"ide_methods.bas");if(r)goto S_40336;} -S_40337:; -if ((*__LONG_KCONTROL)||new_error){ -if(qbevent){evnt(26070,3704,"ide_methods.bas");if(r)goto S_40337;} -do{ -*__LONG_IDESY=*__LONG_IDESY+ 1 ; -if(!qbevent)break;evnt(26070,3705,"ide_methods.bas");}while(r); -S_40339:; -if ((-(*__LONG_IDESY>*__LONG_IDEN))||new_error){ -if(qbevent){evnt(26070,3706,"ide_methods.bas");if(r)goto S_40339;} -do{ -*__LONG_IDESY=*__LONG_IDEN; -if(!qbevent)break;evnt(26070,3706,"ide_methods.bas");}while(r); -} -S_40342:; -if ((-(*__LONG_IDECY<*__LONG_IDESY))||new_error){ -if(qbevent){evnt(26070,3707,"ide_methods.bas");if(r)goto S_40342;} -do{ -*__LONG_IDECY=*__LONG_IDESY; -if(!qbevent)break;evnt(26070,3707,"ide_methods.bas");}while(r); -} -}else{ -do{ -return_point[next_return_point++]=35; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_SELECTCHECK; -RETURN_35:; -if(!qbevent)break;evnt(26070,3709,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECY=*__LONG_IDECY+ 1 ; -if(!qbevent)break;evnt(26070,3710,"ide_methods.bas");}while(r); -S_40348:; -if ((-(*__LONG_IDECY>*__LONG_IDEN))||new_error){ -if(qbevent){evnt(26070,3711,"ide_methods.bas");if(r)goto S_40348;} -do{ -*__LONG_IDECY=*__LONG_IDEN; -if(!qbevent)break;evnt(26070,3711,"ide_methods.bas");}while(r); -} -do{ -goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(26070,3712,"ide_methods.bas");}while(r); -} -} -S_40354:; -if ((*__LONG_MWHEEL)||new_error){ -if(qbevent){evnt(26070,3716,"ide_methods.bas");if(r)goto S_40354;} -do{ -return_point[next_return_point++]=36; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_SELECTCHECK; -RETURN_36:; -if(!qbevent)break;evnt(26070,3717,"ide_methods.bas");}while(r); -S_40356:; -if ((-(*__LONG_MWHEEL< 0 ))||new_error){ -if(qbevent){evnt(26070,3719,"ide_methods.bas");if(r)goto S_40356;} -do{ -*__LONG_IDECY=*__LONG_IDESY; -if(!qbevent)break;evnt(26070,3719,"ide_methods.bas");}while(r); -} -S_40359:; -if ((-(*__LONG_MWHEEL> 0 ))||new_error){ -if(qbevent){evnt(26070,3720,"ide_methods.bas");if(r)goto S_40359;} -do{ -*__LONG_IDECY=*__LONG_IDESY+(*__LONG_IDEWY- 9 ); -if(!qbevent)break;evnt(26070,3720,"ide_methods.bas");}while(r); -} -do{ -*__LONG_IDECY=*__LONG_IDECY+(*__LONG_MWHEEL* 3 ); -if(!qbevent)break;evnt(26070,3721,"ide_methods.bas");}while(r); -S_40363:; -if ((-(*__LONG_IDECY< 1 ))||new_error){ -if(qbevent){evnt(26070,3722,"ide_methods.bas");if(r)goto S_40363;} -do{ -*__LONG_IDECY= 1 ; -if(!qbevent)break;evnt(26070,3722,"ide_methods.bas");}while(r); -} -S_40366:; -if ((-(*__LONG_IDECY>*__LONG_IDEN))||new_error){ -if(qbevent){evnt(26070,3723,"ide_methods.bas");if(r)goto S_40366;} -do{ -*__LONG_IDECY=*__LONG_IDEN; -if(!qbevent)break;evnt(26070,3723,"ide_methods.bas");}while(r); -} -do{ -goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(26070,3724,"ide_methods.bas");}while(r); -} -S_40371:; -if ((-(*__LONG_KB== 19200 ))||new_error){ -if(qbevent){evnt(26070,3727,"ide_methods.bas");if(r)goto S_40371;} -do{ -return_point[next_return_point++]=37; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_SELECTCHECK; -RETURN_37:; -if(!qbevent)break;evnt(26070,3728,"ide_methods.bas");}while(r); -S_40373:; -if ((*__LONG_KCONTROL)||new_error){ -if(qbevent){evnt(26070,3730,"ide_methods.bas");if(r)goto S_40373;} -do{ -qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3732,"ide_methods.bas");}while(r); -S_40375:; -if ((qbs_cleanup(qbs_tmp_base,-(*__LONG_IDECX>_FUNC_IDE2_STRING_A->len)))||new_error){ -if(qbevent){evnt(26070,3733,"ide_methods.bas");if(r)goto S_40375;} -do{ -*__LONG_IDECX=_FUNC_IDE2_STRING_A->len+ 1 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3733,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDE2_LONG_SKIPPING= 1 ; -if(!qbevent)break;evnt(26070,3735,"ide_methods.bas");}while(r); -S_40379:; -do{ -if(qbevent){evnt(26070,3736,"ide_methods.bas");if(r)goto S_40379;} -do{ -*__LONG_IDECX=*__LONG_IDECX- 1 ; -if(!qbevent)break;evnt(26070,3738,"ide_methods.bas");}while(r); -S_40381:; -if ((-(*__LONG_IDECX< 1 ))||new_error){ -if(qbevent){evnt(26070,3740,"ide_methods.bas");if(r)goto S_40381;} -S_40382:; -do{ -if(qbevent){evnt(26070,3741,"ide_methods.bas");if(r)goto S_40382;} -S_40383:; -if ((-(*__LONG_IDECY== 1 ))||new_error){ -if(qbevent){evnt(26070,3742,"ide_methods.bas");if(r)goto S_40383;} -do{ -*__LONG_IDECX= 1 ; -if(!qbevent)break;evnt(26070,3742,"ide_methods.bas");}while(r); -do{ -goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(26070,3742,"ide_methods.bas");}while(r); -} -do{ -*__LONG_IDECY=*__LONG_IDECY- 1 ; -if(!qbevent)break;evnt(26070,3743,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3744,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECX=_FUNC_IDE2_STRING_A->len+ 1 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3745,"ide_methods.bas");}while(r); -S_40390:; -dl_continue_4331:; -}while((!(qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_A->len)))&&(!new_error)); -dl_exit_4331:; -if(qbevent){evnt(26070,3746,"ide_methods.bas");if(r)goto S_40390;} -do{ -goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(26070,3747,"ide_methods.bas");}while(r); -} -S_40393:; -if ((qbs_cleanup(qbs_tmp_base,((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(_FUNC_IDE2_STRING_A,*__LONG_IDECX))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]))||new_error){ -if(qbevent){evnt(26070,3750,"ide_methods.bas");if(r)goto S_40393;} -S_40394:; -if ((-(*__LONG_IDECX== 1 ))||new_error){ -if(qbevent){evnt(26070,3751,"ide_methods.bas");if(r)goto S_40394;} -do{ -goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(26070,3751,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDE2_LONG_X=*__LONG_IDECX; -if(!qbevent)break;evnt(26070,3752,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_Y=*__LONG_IDECY; -if(!qbevent)break;evnt(26070,3752,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_SKIPPING= 0 ; -if(!qbevent)break;evnt(26070,3753,"ide_methods.bas");}while(r); -}else{ -S_40401:; -if ((-(*_FUNC_IDE2_LONG_SKIPPING== 0 ))||new_error){ -if(qbevent){evnt(26070,3755,"ide_methods.bas");if(r)goto S_40401;} -do{ -*__LONG_IDECX=*_FUNC_IDE2_LONG_X; -if(!qbevent)break;evnt(26070,3755,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECY=*_FUNC_IDE2_LONG_Y; -if(!qbevent)break;evnt(26070,3755,"ide_methods.bas");}while(r); -do{ -goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(26070,3755,"ide_methods.bas");}while(r); -} -} -dl_continue_4330:; -}while(1); -dl_exit_4330:; -}else{ -do{ -*__LONG_IDECX=*__LONG_IDECX- 1 ; -if(!qbevent)break;evnt(26070,3761,"ide_methods.bas");}while(r); -S_40410:; -if ((-(*__LONG_IDECX< 1 ))||new_error){ -if(qbevent){evnt(26070,3762,"ide_methods.bas");if(r)goto S_40410;} -do{ -*__LONG_IDECX= 1 ; -if(!qbevent)break;evnt(26070,3762,"ide_methods.bas");}while(r); -} -} -do{ -goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(26070,3766,"ide_methods.bas");}while(r); -} -S_40416:; -if ((-(*__LONG_KB== 19712 ))||new_error){ -if(qbevent){evnt(26070,3769,"ide_methods.bas");if(r)goto S_40416;} -do{ -return_point[next_return_point++]=38; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_SELECTCHECK; -RETURN_38:; -if(!qbevent)break;evnt(26070,3770,"ide_methods.bas");}while(r); -S_40418:; -if ((*__LONG_KCONTROL)||new_error){ -if(qbevent){evnt(26070,3772,"ide_methods.bas");if(r)goto S_40418;} -do{ -qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3774,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_SKIPPING= 0 ; -if(!qbevent)break;evnt(26070,3775,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_FIRST= 1 ; -if(!qbevent)break;evnt(26070,3776,"ide_methods.bas");}while(r); -S_40422:; -do{ -if(qbevent){evnt(26070,3777,"ide_methods.bas");if(r)goto S_40422;} -S_40423:; -if ((-(*_FUNC_IDE2_LONG_FIRST== 0 ))||new_error){ -if(qbevent){evnt(26070,3779,"ide_methods.bas");if(r)goto S_40423;} -do{ -*__LONG_IDECX=*__LONG_IDECX+ 1 ; -if(!qbevent)break;evnt(26070,3779,"ide_methods.bas");}while(r); -} -S_40426:; -if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_IDE2_LONG_FIRST== 0 ))&(-(*__LONG_IDECX==(_FUNC_IDE2_STRING_A->len+ 1 )))))||new_error){ -if(qbevent){evnt(26070,3781,"ide_methods.bas");if(r)goto S_40426;} -do{ -goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(26070,3781,"ide_methods.bas");}while(r); -} -S_40429:; -if ((qbs_cleanup(qbs_tmp_base,-(*__LONG_IDECX>_FUNC_IDE2_STRING_A->len)))||new_error){ -if(qbevent){evnt(26070,3782,"ide_methods.bas");if(r)goto S_40429;} -S_40430:; -do{ -if(qbevent){evnt(26070,3783,"ide_methods.bas");if(r)goto S_40430;} -S_40431:; -if ((-(*__LONG_IDECY==*__LONG_IDEN))||new_error){ -if(qbevent){evnt(26070,3784,"ide_methods.bas");if(r)goto S_40431;} -do{ -goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(26070,3784,"ide_methods.bas");}while(r); -} -do{ -*__LONG_IDECY=*__LONG_IDECY+ 1 ; -if(!qbevent)break;evnt(26070,3785,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECX= 1 ; -if(!qbevent)break;evnt(26070,3785,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3786,"ide_methods.bas");}while(r); -S_40437:; -dl_continue_4337:; -}while((!(qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_A->len)))&&(!new_error)); -dl_exit_4337:; -if(qbevent){evnt(26070,3787,"ide_methods.bas");if(r)goto S_40437;} -do{ -*_FUNC_IDE2_LONG_SKIPPING= 0 ; -if(!qbevent)break;evnt(26070,3788,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_FIRST= 0 ; -if(!qbevent)break;evnt(26070,3789,"ide_methods.bas");}while(r); -} -S_40441:; -if ((qbs_cleanup(qbs_tmp_base,((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(_FUNC_IDE2_STRING_A,*__LONG_IDECX))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]))||new_error){ -if(qbevent){evnt(26070,3792,"ide_methods.bas");if(r)goto S_40441;} -S_40442:; -if ((*_FUNC_IDE2_LONG_FIRST)||new_error){ -if(qbevent){evnt(26070,3793,"ide_methods.bas");if(r)goto S_40442;} -do{ -*_FUNC_IDE2_LONG_SKIPPING= 1 ; -if(!qbevent)break;evnt(26070,3794,"ide_methods.bas");}while(r); -}else{ -S_40445:; -if ((-(*_FUNC_IDE2_LONG_SKIPPING== 0 ))||new_error){ -if(qbevent){evnt(26070,3796,"ide_methods.bas");if(r)goto S_40445;} -do{ -goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(26070,3796,"ide_methods.bas");}while(r); -} -} -}else{ -do{ -*_FUNC_IDE2_LONG_SKIPPING= 0 ; -if(!qbevent)break;evnt(26070,3799,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDE2_LONG_FIRST= 0 ; -if(!qbevent)break;evnt(26070,3801,"ide_methods.bas");}while(r); -dl_continue_4334:; -}while(1); -dl_exit_4334:; -}else{ -do{ -*__LONG_IDECX=*__LONG_IDECX+ 1 ; -if(!qbevent)break;evnt(26070,3806,"ide_methods.bas");}while(r); -} -do{ -goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(26070,3810,"ide_methods.bas");}while(r); -} -S_40459:; -if ((*__LONG_KCONTROL&(-(*__LONG_KB== 18176 )))||new_error){ -if(qbevent){evnt(26070,3813,"ide_methods.bas");if(r)goto S_40459;} -do{ -return_point[next_return_point++]=39; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_SELECTCHECK; -RETURN_39:; -if(!qbevent)break;evnt(26070,3814,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECX= 1 ; -if(!qbevent)break;evnt(26070,3815,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECY= 1 ; -if(!qbevent)break;evnt(26070,3816,"ide_methods.bas");}while(r); -do{ -goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(26070,3817,"ide_methods.bas");}while(r); -} -S_40465:; -if ((*__LONG_KCONTROL&(-(*__LONG_KB== 20224 )))||new_error){ -if(qbevent){evnt(26070,3820,"ide_methods.bas");if(r)goto S_40465;} -do{ -return_point[next_return_point++]=40; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_SELECTCHECK; -RETURN_40:; -if(!qbevent)break;evnt(26070,3821,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECY=*__LONG_IDEN; -if(!qbevent)break;evnt(26070,3822,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3823,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECX=_FUNC_IDE2_STRING_A->len+ 1 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3824,"ide_methods.bas");}while(r); -do{ -goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(26070,3825,"ide_methods.bas");}while(r); -} -S_40472:; -if ((-(*__LONG_KB== 18176 ))||new_error){ -if(qbevent){evnt(26070,3828,"ide_methods.bas");if(r)goto S_40472;} -do{ -return_point[next_return_point++]=41; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_SELECTCHECK; -RETURN_41:; -if(!qbevent)break;evnt(26070,3829,"ide_methods.bas");}while(r); -S_40474:; -if ((-(*__LONG_IDECX!= 1 ))||new_error){ -if(qbevent){evnt(26070,3830,"ide_methods.bas");if(r)goto S_40474;} -do{ -*__LONG_IDECX= 1 ; -if(!qbevent)break;evnt(26070,3831,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3833,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECX= 1 ; -if(!qbevent)break;evnt(26070,3834,"ide_methods.bas");}while(r); -S_40479:; -fornext_value4341= 1 ; -fornext_finalvalue4341=_FUNC_IDE2_STRING_A->len; -fornext_step4341= 1 ; -if (fornext_step4341<0) fornext_step_negative4341=1; else fornext_step_negative4341=0; -if (new_error) goto fornext_error4341; -goto fornext_entrylabel4341; -while(1){ -fornext_value4341=fornext_step4341+(*_FUNC_IDE2_LONG_X); -fornext_entrylabel4341: -*_FUNC_IDE2_LONG_X=fornext_value4341; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative4341){ -if (fornext_value4341fornext_finalvalue4341) break; -} -fornext_error4341:; -if(qbevent){evnt(26070,3835,"ide_methods.bas");if(r)goto S_40479;} -S_40480:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_X)!= 32 )))||new_error){ -if(qbevent){evnt(26070,3836,"ide_methods.bas");if(r)goto S_40480;} -do{ -*__LONG_IDECX=*_FUNC_IDE2_LONG_X; -if(!qbevent)break;evnt(26070,3836,"ide_methods.bas");}while(r); -do{ -goto fornext_exit_4340; -if(!qbevent)break;evnt(26070,3836,"ide_methods.bas");}while(r); -} -fornext_continue_4340:; -} -fornext_exit_4340:; -} -do{ -goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(26070,3839,"ide_methods.bas");}while(r); -} -S_40488:; -if ((-(*__LONG_KB== 20224 ))||new_error){ -if(qbevent){evnt(26070,3842,"ide_methods.bas");if(r)goto S_40488;} -do{ -return_point[next_return_point++]=42; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_SELECTCHECK; -RETURN_42:; -if(!qbevent)break;evnt(26070,3843,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3844,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECX=_FUNC_IDE2_STRING_A->len+ 1 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3845,"ide_methods.bas");}while(r); -do{ -goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(26070,3846,"ide_methods.bas");}while(r); -} -S_40494:; -if ((-(*__LONG_KB== 18688 ))||new_error){ -if(qbevent){evnt(26070,3849,"ide_methods.bas");if(r)goto S_40494;} -do{ -return_point[next_return_point++]=43; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_SELECTCHECK; -RETURN_43:; -if(!qbevent)break;evnt(26070,3850,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECY=*__LONG_IDECY-(*__LONG_IDEWY- 9 ); -if(!qbevent)break;evnt(26070,3851,"ide_methods.bas");}while(r); -S_40497:; -if ((-(*__LONG_IDECY< 1 ))||new_error){ -if(qbevent){evnt(26070,3852,"ide_methods.bas");if(r)goto S_40497;} -do{ -*__LONG_IDECY= 1 ; -if(!qbevent)break;evnt(26070,3852,"ide_methods.bas");}while(r); -} -do{ -goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(26070,3853,"ide_methods.bas");}while(r); -} -S_40502:; -if ((-(*__LONG_KB== 20736 ))||new_error){ -if(qbevent){evnt(26070,3856,"ide_methods.bas");if(r)goto S_40502;} -do{ -return_point[next_return_point++]=44; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_SELECTCHECK; -RETURN_44:; -if(!qbevent)break;evnt(26070,3857,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECY=*__LONG_IDECY+(*__LONG_IDEWY- 9 ); -if(!qbevent)break;evnt(26070,3858,"ide_methods.bas");}while(r); -S_40505:; -if ((-(*__LONG_IDECY>*__LONG_IDEN))||new_error){ -if(qbevent){evnt(26070,3859,"ide_methods.bas");if(r)goto S_40505;} -do{ -*__LONG_IDECY=*__LONG_IDEN; -if(!qbevent)break;evnt(26070,3859,"ide_methods.bas");}while(r); -} -do{ -goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(26070,3860,"ide_methods.bas");}while(r); -} -do{ -goto LABEL_SKIPGOSUBS; -if(!qbevent)break;evnt(26070,3863,"ide_methods.bas");}while(r); -LABEL_SELECTCHECK:; -if(qbevent){evnt(26070,3865,"ide_methods.bas");r=0;} -S_40511:; -if ((-(*__LONG_IDESYSTEM== 1 ))||new_error){ -if(qbevent){evnt(26070,3866,"ide_methods.bas");if(r)goto S_40511;} -S_40512:; -if ((*__LONG_KSHIFT&(-(*__LONG_IDESELECT== 0 )))||new_error){ -if(qbevent){evnt(26070,3867,"ide_methods.bas");if(r)goto S_40512;} -do{ -*__LONG_IDESELECT= 1 ; -if(!qbevent)break;evnt(26070,3867,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESELECTX1=*__LONG_IDECX; -if(!qbevent)break;evnt(26070,3867,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESELECTY1=*__LONG_IDECY; -if(!qbevent)break;evnt(26070,3867,"ide_methods.bas");}while(r); -} -S_40517:; -if ((-(*__LONG_KSHIFT== 0 ))||new_error){ -if(qbevent){evnt(26070,3868,"ide_methods.bas");if(r)goto S_40517;} -do{ -*__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(26070,3868,"ide_methods.bas");}while(r); -} -S_40520:; -}else{ -if (-(*__LONG_IDESYSTEM== 2 )){ -if(qbevent){evnt(26070,3869,"ide_methods.bas");if(r)goto S_40520;} -S_40521:; -if ((*__LONG_KSHIFT&(-(*_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL== 0 )))||new_error){ -if(qbevent){evnt(26070,3870,"ide_methods.bas");if(r)goto S_40521;} -do{ -*_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL= -1 ; -if(!qbevent)break;evnt(26070,3870,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__SX1=*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1; -if(!qbevent)break;evnt(26070,3870,"ide_methods.bas");}while(r); -} -S_40525:; -if ((-(*__LONG_KSHIFT== 0 ))||new_error){ -if(qbevent){evnt(26070,3871,"ide_methods.bas");if(r)goto S_40525;} -do{ -*_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL= 0 ; -if(!qbevent)break;evnt(26070,3871,"ide_methods.bas");}while(r); -} -} -} -do{ -#include "ret170.txt" -if(!qbevent)break;evnt(26070,3873,"ide_methods.bas");}while(r); -LABEL_SKIPGOSUBS:; -if(qbevent){evnt(26070,3875,"ide_methods.bas");r=0;} -S_40530:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,func_chr( 13 ))))||new_error){ -if(qbevent){evnt(26070,3877,"ide_methods.bas");if(r)goto S_40530;} -S_40531:; -if ((*__LONG_KSHIFT)||new_error){ -if(qbevent){evnt(26070,3878,"ide_methods.bas");if(r)goto S_40531;} -do{ -qbs_set(_FUNC_IDE2_STRING_RETVAL,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3879,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3880,"ide_methods.bas");}while(r); -S_40534:; -if ((*__BYTE_ENTERINGRGB)||new_error){ -if(qbevent){evnt(26070,3881,"ide_methods.bas");if(r)goto S_40534;} -do{ -*_FUNC_IDE2_LONG_OLDKEYWORDHIGHLIGHT=*__INTEGER_KEYWORDHIGHLIGHT; -if(!qbevent)break;evnt(26070,3882,"ide_methods.bas");}while(r); -do{ -*__INTEGER_KEYWORDHIGHLIGHT= 0 ; -if(!qbevent)break;evnt(26070,3883,"ide_methods.bas");}while(r); -do{ -SUB_HIDEBRACKETHIGHLIGHT(); -if(!qbevent)break;evnt(26070,3884,"ide_methods.bas");}while(r); -do{ -*__INTEGER_KEYWORDHIGHLIGHT=*_FUNC_IDE2_LONG_OLDKEYWORDHIGHLIGHT; -if(!qbevent)break;evnt(26070,3885,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_RETVAL,FUNC_IDERGBMIXER(&(pass4344= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3886,"ide_methods.bas");}while(r); -}else{ -S_40541:; -if ((*__LONG_IDESELECT)||new_error){ -if(qbevent){evnt(26070,3888,"ide_methods.bas");if(r)goto S_40541;} -S_40542:; -if ((-(*__LONG_IDESELECTY1!=*__LONG_IDECY))||new_error){ -if(qbevent){evnt(26070,3889,"ide_methods.bas");if(r)goto S_40542;} -do{ -goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(26070,3889,"ide_methods.bas");}while(r); -} -} -do{ -*_FUNC_IDE2_LONG_FOUND_RGB= 0 ; -if(!qbevent)break;evnt(26070,3892,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_FOUND_RGB=*_FUNC_IDE2_LONG_FOUND_RGB+func_instr(NULL,qbs_ucase(_FUNC_IDE2_STRING_A),qbs_new_txt_len("RGB(",4),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3893,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_FOUND_RGB=*_FUNC_IDE2_LONG_FOUND_RGB+func_instr(NULL,qbs_ucase(_FUNC_IDE2_STRING_A),qbs_new_txt_len("RGB32(",6),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3894,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_FOUND_RGB=*_FUNC_IDE2_LONG_FOUND_RGB+func_instr(NULL,qbs_ucase(_FUNC_IDE2_STRING_A),qbs_new_txt_len("RGBA(",5),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3895,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_FOUND_RGB=*_FUNC_IDE2_LONG_FOUND_RGB+func_instr(NULL,qbs_ucase(_FUNC_IDE2_STRING_A),qbs_new_txt_len("RGBA32(",7),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3896,"ide_methods.bas");}while(r); -S_40551:; -if ((*_FUNC_IDE2_LONG_FOUND_RGB)||new_error){ -if(qbevent){evnt(26070,3897,"ide_methods.bas");if(r)goto S_40551;} -do{ -*_FUNC_IDE2_LONG_OLDKEYWORDHIGHLIGHT=*__INTEGER_KEYWORDHIGHLIGHT; -if(!qbevent)break;evnt(26070,3898,"ide_methods.bas");}while(r); -do{ -*__INTEGER_KEYWORDHIGHLIGHT= 0 ; -if(!qbevent)break;evnt(26070,3899,"ide_methods.bas");}while(r); -do{ -SUB_HIDEBRACKETHIGHLIGHT(); -if(!qbevent)break;evnt(26070,3900,"ide_methods.bas");}while(r); -do{ -*__INTEGER_KEYWORDHIGHLIGHT=*_FUNC_IDE2_LONG_OLDKEYWORDHIGHLIGHT; -if(!qbevent)break;evnt(26070,3901,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_RETVAL,FUNC_IDERGBMIXER(&(pass4345= -1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3902,"ide_methods.bas");}while(r); -}else{ -do{ -goto LABEL_REGULARENTER; -if(!qbevent)break;evnt(26070,3904,"ide_methods.bas");}while(r); -} -} -S_40561:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_RETVAL->len))||new_error){ -if(qbevent){evnt(26070,3907,"ide_methods.bas");if(r)goto S_40561;} -S_40562:; -if ((*__BYTE_ENTERINGRGB)||new_error){ -if(qbevent){evnt(26070,3909,"ide_methods.bas");if(r)goto S_40562;} -do{ -SUB_INSERTATCURSOR(func_mid(_FUNC_IDE2_STRING_RETVAL,func_instr(NULL,_FUNC_IDE2_STRING_RETVAL,qbs_new_txt_len("(",1),0)+ 1 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3910,"ide_methods.bas");}while(r); -}else{ -do{ -SUB_INSERTATCURSOR(_FUNC_IDE2_STRING_RETVAL); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3912,"ide_methods.bas");}while(r); -} -} -do{ -goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(26070,3915,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3917,"ide_methods.bas");}while(r); -LABEL_REGULARENTER:; -if(qbevent){evnt(26070,3918,"ide_methods.bas");r=0;} -do{ -*__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(26070,3919,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_DESIREDCOLUMN= 1 ; -if(!qbevent)break;evnt(26070,3920,"ide_methods.bas");}while(r); -do{ -*__INTEGER_IDECHANGEMADE= 1 ; -if(!qbevent)break;evnt(26070,3921,"ide_methods.bas");}while(r); -do{ -*__BYTE_STARTPAUSEDPENDING= 0 ; -if(!qbevent)break;evnt(26070,3922,"ide_methods.bas");}while(r); -S_40575:; -if ((qbs_cleanup(qbs_tmp_base,-(*__LONG_IDECX>_FUNC_IDE2_STRING_A->len)))||new_error){ -if(qbevent){evnt(26070,3923,"ide_methods.bas");if(r)goto S_40575;} -do{ -SUB_IDEINSLINE(&(pass4348=*__LONG_IDECY+ 1 ),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3924,"ide_methods.bas");}while(r); -S_40577:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDE2_STRING_A->len== 0 )))||new_error){ -if(qbevent){evnt(26070,3925,"ide_methods.bas");if(r)goto S_40577;} -do{ -*_FUNC_IDE2_LONG_DESIREDCOLUMN=*__LONG_IDECX; -if(!qbevent)break;evnt(26070,3926,"ide_methods.bas");}while(r); -}else{ -do{ -*_FUNC_IDE2_LONG_DESIREDCOLUMN=_FUNC_IDE2_STRING_A->len-((int32)(qbs_ltrim(_FUNC_IDE2_STRING_A))->len)+ 1 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3928,"ide_methods.bas");}while(r); -} -}else{ -do{ -qbs_set(_FUNC_IDE2_STRING_A2,qbs_left(_FUNC_IDE2_STRING_A,*__LONG_IDECX- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3931,"ide_methods.bas");}while(r); -do{ -SUB_IDESETLINE(__LONG_IDECY,_FUNC_IDE2_STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3932,"ide_methods.bas");}while(r); -S_40585:; -if ((qbs_cleanup(qbs_tmp_base,-(((int32)(qbs_ltrim(_FUNC_IDE2_STRING_A2))->len)> 0 )))||new_error){ -if(qbevent){evnt(26070,3933,"ide_methods.bas");if(r)goto S_40585;} -S_40586:; -if ((-(*__LONG_IDECX> 1 ))||new_error){ -if(qbevent){evnt(26070,3934,"ide_methods.bas");if(r)goto S_40586;} -do{ -*_FUNC_IDE2_LONG_DESIREDCOLUMN=_FUNC_IDE2_STRING_A->len-((int32)(qbs_ltrim(_FUNC_IDE2_STRING_A))->len); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3934,"ide_methods.bas");}while(r); -}else{ -do{ -*_FUNC_IDE2_LONG_DESIREDCOLUMN= 0 ; -if(!qbevent)break;evnt(26070,3934,"ide_methods.bas");}while(r); -} -do{ -SUB_IDEINSLINE(&(pass4352=*__LONG_IDECY+ 1 ),qbs_add(func_space(*_FUNC_IDE2_LONG_DESIREDCOLUMN),qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len-*__LONG_IDECX+ 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3935,"ide_methods.bas");}while(r); -S_40592:; -if ((-(*_FUNC_IDE2_LONG_DESIREDCOLUMN== 0 ))||new_error){ -if(qbevent){evnt(26070,3936,"ide_methods.bas");if(r)goto S_40592;} -do{ -*_FUNC_IDE2_LONG_DESIREDCOLUMN= 1 ; -if(!qbevent)break;evnt(26070,3936,"ide_methods.bas");}while(r); -}else{ -do{ -*_FUNC_IDE2_LONG_DESIREDCOLUMN=*_FUNC_IDE2_LONG_DESIREDCOLUMN+ 1 ; -if(!qbevent)break;evnt(26070,3936,"ide_methods.bas");}while(r); -} -}else{ -do{ -*_FUNC_IDE2_LONG_DESIREDCOLUMN=*__LONG_IDECX; -if(!qbevent)break;evnt(26070,3938,"ide_methods.bas");}while(r); -do{ -SUB_IDEINSLINE(&(pass4354=*__LONG_IDECY+ 1 ),qbs_add(func_space(*_FUNC_IDE2_LONG_DESIREDCOLUMN- 1 ),qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len-*__LONG_IDECX+ 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3939,"ide_methods.bas");}while(r); -} -} -S_40602:; -if ((-(*__LONG_IDECX== 1 ))||new_error){ -if(qbevent){evnt(26070,3943,"ide_methods.bas");if(r)goto S_40602;} -S_40603:; -fornext_value4357= 1 ; -fornext_finalvalue4357=*__LONG_IDEBMKN; -fornext_step4357= 1 ; -if (fornext_step4357<0) fornext_step_negative4357=1; else fornext_step_negative4357=0; -if (new_error) goto fornext_error4357; -goto fornext_entrylabel4357; -while(1){ -fornext_value4357=fornext_step4357+(*_FUNC_IDE2_LONG_B); -fornext_entrylabel4357: -*_FUNC_IDE2_LONG_B=fornext_value4357; -if (fornext_step_negative4357){ -if (fornext_value4357fornext_finalvalue4357) break; -} -fornext_error4357:; -if(qbevent){evnt(26070,3944,"ide_methods.bas");if(r)goto S_40603;} -S_40604:; -if ((-(*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_FUNC_IDE2_LONG_B)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16))==*__LONG_IDECY))||new_error){ -if(qbevent){evnt(26070,3945,"ide_methods.bas");if(r)goto S_40604;} -do{ -*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_FUNC_IDE2_LONG_B)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16))=*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_FUNC_IDE2_LONG_B)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16))+ 1 ; -if(!qbevent)break;evnt(26070,3945,"ide_methods.bas");}while(r); -} -fornext_continue_4356:; -} -fornext_exit_4356:; -} -do{ -*__LONG_IDECY=*__LONG_IDECY+ 1 ; -if(!qbevent)break;evnt(26070,3949,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECX=*_FUNC_IDE2_LONG_DESIREDCOLUMN; -if(!qbevent)break;evnt(26070,3950,"ide_methods.bas");}while(r); -do{ -goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(26070,3951,"ide_methods.bas");}while(r); -} -} -S_40614:; -if (((-(*__LONG_KB== 21248 ))&(-(*__LONG_KCONTROL== 0 )))||new_error){ -if(qbevent){evnt(26070,3955,"ide_methods.bas");if(r)goto S_40614;} -do{ -*__INTEGER_IDECHANGEMADE= 1 ; -if(!qbevent)break;evnt(26070,3956,"ide_methods.bas");}while(r); -do{ -*__BYTE_STARTPAUSEDPENDING= 0 ; -if(!qbevent)break;evnt(26070,3957,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3958,"ide_methods.bas");}while(r); -S_40618:; -if ((qbs_cleanup(qbs_tmp_base,-(*__LONG_IDECX<=_FUNC_IDE2_STRING_A->len)))||new_error){ -if(qbevent){evnt(26070,3959,"ide_methods.bas");if(r)goto S_40618;} -do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_left(_FUNC_IDE2_STRING_A,*__LONG_IDECX- 1 ),qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len-*__LONG_IDECX))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3960,"ide_methods.bas");}while(r); -do{ -SUB_IDESETLINE(__LONG_IDECY,_FUNC_IDE2_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3961,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_add(_FUNC_IDE2_STRING_A,func_space(*__LONG_IDECX-_FUNC_IDE2_STRING_A->len- 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3963,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_add(_FUNC_IDE2_STRING_A,qbs_ltrim(FUNC_IDEGETLINE(&(pass4361=*__LONG_IDECY+ 1 ))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3964,"ide_methods.bas");}while(r); -do{ -SUB_IDESETLINE(__LONG_IDECY,_FUNC_IDE2_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3965,"ide_methods.bas");}while(r); -do{ -SUB_IDEDELLINE(&(pass4362=*__LONG_IDECY+ 1 )); -if(!qbevent)break;evnt(26070,3966,"ide_methods.bas");}while(r); -} -do{ -goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(26070,3968,"ide_methods.bas");}while(r); -} -S_40629:; -if ((qbs_cleanup(qbs_tmp_base,((-(func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)> 0 ))&*__LONG_KCONTROL&(qbs_equal(__STRING_K,(qbs_add(func_chr( 0 ),func_chr( 83 ))))))|((-(func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0)> 0 ))&(qbs_equal(__STRING_K,func_chr( 8 )))&*__LONG_KCONTROL)))||new_error){ -if(qbevent){evnt(26070,3976,"ide_methods.bas");if(r)goto S_40629;} -do{ -*__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(26070,3977,"ide_methods.bas");}while(r); -do{ -*__INTEGER_IDECHANGEMADE= 1 ; -if(!qbevent)break;evnt(26070,3978,"ide_methods.bas");}while(r); -do{ -*__BYTE_STARTPAUSEDPENDING= 0 ; -if(!qbevent)break;evnt(26070,3979,"ide_methods.bas");}while(r); -S_40633:; -if ((-(*__LONG_IDEUNDOCOMBOCHR!= 8 ))||new_error){ -if(qbevent){evnt(26070,3982,"ide_methods.bas");if(r)goto S_40633;} -do{ -*__LONG_IDEUNDOCOMBO= 2 ; -if(!qbevent)break;evnt(26070,3983,"ide_methods.bas");}while(r); -}else{ -do{ -*__LONG_IDEUNDOCOMBO=*__LONG_IDEUNDOCOMBO+ 1 ; -if(!qbevent)break;evnt(26070,3985,"ide_methods.bas");}while(r); -S_40637:; -if ((-(*__LONG_IDEUNDOCOMBO== 2 ))||new_error){ -if(qbevent){evnt(26070,3986,"ide_methods.bas");if(r)goto S_40637;} -do{ -*__LONG_IDEMERGEUNDO= 1 ; -if(!qbevent)break;evnt(26070,3986,"ide_methods.bas");}while(r); -} -} -do{ -*__LONG_IDEUNDOCOMBOCHR= 8 ; -if(!qbevent)break;evnt(26070,3988,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3991,"ide_methods.bas");}while(r); -S_40643:; -if ((-(*__LONG_IDECX== 1 ))||new_error){ -if(qbevent){evnt(26070,3992,"ide_methods.bas");if(r)goto S_40643;} -do{ -goto LABEL_REGULARBACKSPACEIDECX1; -if(!qbevent)break;evnt(26070,3992,"ide_methods.bas");}while(r); -} -S_40646:; -if ((qbs_cleanup(qbs_tmp_base,-(*__LONG_IDECX>(_FUNC_IDE2_STRING_A->len+ 2 ))))||new_error){ -if(qbevent){evnt(26070,3993,"ide_methods.bas");if(r)goto S_40646;} -do{ -*__LONG_IDECX=_FUNC_IDE2_STRING_A->len+ 1 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3994,"ide_methods.bas");}while(r); -do{ -goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(26070,3995,"ide_methods.bas");}while(r); -S_40649:; -}else{ -if (qbs_cleanup(qbs_tmp_base,-(*__LONG_IDECX==(_FUNC_IDE2_STRING_A->len+ 2 )))){ -if(qbevent){evnt(26070,3996,"ide_methods.bas");if(r)goto S_40649;} -do{ -*__LONG_IDECX=_FUNC_IDE2_STRING_A->len+ 1 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3997,"ide_methods.bas");}while(r); -} -} -S_40652:; -if ((qbs_cleanup(qbs_tmp_base,-(((int32)(qbs_rtrim(func_mid(_FUNC_IDE2_STRING_A, 1 ,*__LONG_IDECX- 1 ,0|1)))->len)== 0 )))||new_error){ -if(qbevent){evnt(26070,4000,"ide_methods.bas");if(r)goto S_40652;} -do{ -qbs_set(_FUNC_IDE2_STRING_A,func_mid(_FUNC_IDE2_STRING_A,*__LONG_IDECX,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4002,"ide_methods.bas");}while(r); -do{ -SUB_IDESETLINE(__LONG_IDECY,_FUNC_IDE2_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4003,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECX= 1 ; -if(!qbevent)break;evnt(26070,4004,"ide_methods.bas");}while(r); -do{ -goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(26070,4005,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDE2_LONG_I=*__LONG_IDECX; -if(!qbevent)break;evnt(26070,4009,"ide_methods.bas");}while(r); -S_40659:; -do{ -if(qbevent){evnt(26070,4010,"ide_methods.bas");if(r)goto S_40659;} -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I- 1 ; -if(!qbevent)break;evnt(26070,4011,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_FIRSTCHAR,func_mid(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_I, 1 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4012,"ide_methods.bas");}while(r); -S_40662:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_IDE2_STRING_FIRSTCHAR,func_chr( 32 ))))||new_error){ -if(qbevent){evnt(26070,4013,"ide_methods.bas");if(r)goto S_40662;} -do{ -goto dl_exit_4367; -if(!qbevent)break;evnt(26070,4013,"ide_methods.bas");}while(r); -} -dl_continue_4367:; -}while(1); -dl_exit_4367:; -S_40666:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_IDE2_STRING_CHAR__ASCII_CHR_046__SEP,_FUNC_IDE2_STRING_FIRSTCHAR,0)))||new_error){ -if(qbevent){evnt(26070,4015,"ide_methods.bas");if(r)goto S_40666;} -S_40667:; -do{ -if(qbevent){evnt(26070,4016,"ide_methods.bas");if(r)goto S_40667;} -S_40668:; -if ((-(*_FUNC_IDE2_LONG_I== 0 ))||new_error){ -if(qbevent){evnt(26070,4017,"ide_methods.bas");if(r)goto S_40668;} -do{ -goto dl_exit_4368; -if(!qbevent)break;evnt(26070,4017,"ide_methods.bas");}while(r); -} -S_40671:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(func_mid(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_I, 1 ,0|1),_FUNC_IDE2_STRING_FIRSTCHAR)))||new_error){ -if(qbevent){evnt(26070,4018,"ide_methods.bas");if(r)goto S_40671;} -do{ -goto dl_exit_4368; -if(!qbevent)break;evnt(26070,4018,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I- 1 ; -if(!qbevent)break;evnt(26070,4019,"ide_methods.bas");}while(r); -dl_continue_4368:; -}while(1); -dl_exit_4368:; -}else{ -S_40677:; -do{ -if(qbevent){evnt(26070,4022,"ide_methods.bas");if(r)goto S_40677;} -S_40678:; -if ((-(*_FUNC_IDE2_LONG_I== 0 ))||new_error){ -if(qbevent){evnt(26070,4023,"ide_methods.bas");if(r)goto S_40678;} -do{ -goto dl_exit_4369; -if(!qbevent)break;evnt(26070,4023,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I- 1 ; -if(!qbevent)break;evnt(26070,4024,"ide_methods.bas");}while(r); -S_40682:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_IDE2_STRING_CHAR__ASCII_CHR_046__SEP,func_mid(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_I, 1 ,0|1),0)))||new_error){ -if(qbevent){evnt(26070,4025,"ide_methods.bas");if(r)goto S_40682;} -do{ -goto dl_exit_4369; -if(!qbevent)break;evnt(26070,4025,"ide_methods.bas");}while(r); -} -dl_continue_4369:; -}while(1); -dl_exit_4369:; -} -do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_left(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_I),func_mid(_FUNC_IDE2_STRING_A,*__LONG_IDECX,NULL,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4028,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECX=*_FUNC_IDE2_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,4029,"ide_methods.bas");}while(r); -do{ -SUB_IDESETLINE(__LONG_IDECY,_FUNC_IDE2_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4030,"ide_methods.bas");}while(r); -do{ -goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(26070,4031,"ide_methods.bas");}while(r); -} -S_40692:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,func_chr( 8 ))))||new_error){ -if(qbevent){evnt(26070,4034,"ide_methods.bas");if(r)goto S_40692;} -do{ -*__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(26070,4035,"ide_methods.bas");}while(r); -do{ -*__INTEGER_IDECHANGEMADE= 1 ; -if(!qbevent)break;evnt(26070,4036,"ide_methods.bas");}while(r); -do{ -*__BYTE_STARTPAUSEDPENDING= 0 ; -if(!qbevent)break;evnt(26070,4037,"ide_methods.bas");}while(r); -S_40696:; -if ((-(*__LONG_IDEUNDOCOMBOCHR!= 8 ))||new_error){ -if(qbevent){evnt(26070,4040,"ide_methods.bas");if(r)goto S_40696;} -do{ -*__LONG_IDEUNDOCOMBO= 2 ; -if(!qbevent)break;evnt(26070,4041,"ide_methods.bas");}while(r); -}else{ -do{ -*__LONG_IDEUNDOCOMBO=*__LONG_IDEUNDOCOMBO+ 1 ; -if(!qbevent)break;evnt(26070,4043,"ide_methods.bas");}while(r); -S_40700:; -if ((-(*__LONG_IDEUNDOCOMBO== 2 ))||new_error){ -if(qbevent){evnt(26070,4044,"ide_methods.bas");if(r)goto S_40700;} -do{ -*__LONG_IDEMERGEUNDO= 1 ; -if(!qbevent)break;evnt(26070,4044,"ide_methods.bas");}while(r); -} -} -do{ -*__LONG_IDEUNDOCOMBOCHR= 8 ; -if(!qbevent)break;evnt(26070,4046,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4048,"ide_methods.bas");}while(r); -S_40706:; -if ((-(*__LONG_IDECX== 1 ))||new_error){ -if(qbevent){evnt(26070,4049,"ide_methods.bas");if(r)goto S_40706;} -LABEL_REGULARBACKSPACEIDECX1:; -if(qbevent){evnt(26070,4050,"ide_methods.bas");r=0;} -S_40707:; -if ((-(*__LONG_IDECY> 1 ))||new_error){ -if(qbevent){evnt(26070,4051,"ide_methods.bas");if(r)goto S_40707;} -do{ -qbs_set(_FUNC_IDE2_STRING_A2,FUNC_IDEGETLINE(&(pass4370=*__LONG_IDECY- 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4052,"ide_methods.bas");}while(r); -S_40709:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDE2_STRING_A2->len> 0 )))||new_error){ -if(qbevent){evnt(26070,4053,"ide_methods.bas");if(r)goto S_40709;} -LABEL_REGULARBACKUPTOPREVLINE:; -if(qbevent){evnt(26070,4055,"ide_methods.bas");r=0;} -do{ -SUB_IDESETLINE(&(pass4372=*__LONG_IDECY- 1 ),qbs_add(_FUNC_IDE2_STRING_A2,_FUNC_IDE2_STRING_A)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4056,"ide_methods.bas");}while(r); -do{ -SUB_IDEDELLINE(__LONG_IDECY); -if(!qbevent)break;evnt(26070,4057,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECX=_FUNC_IDE2_STRING_A2->len+ 1 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4058,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECY=*__LONG_IDECY- 1 ; -if(!qbevent)break;evnt(26070,4059,"ide_methods.bas");}while(r); -}else{ -S_40715:; -if ((-(*__LONG_IDECY<*__LONG_IDEN))||new_error){ -if(qbevent){evnt(26070,4064,"ide_methods.bas");if(r)goto S_40715;} -do{ -qbs_set(_FUNC_IDE2_STRING_A3,FUNC_IDEGETLINE(&(pass4374=*__LONG_IDECY+ 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4065,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_DESIREDCOLUMN=_FUNC_IDE2_STRING_A3->len-((int32)(qbs_ltrim(_FUNC_IDE2_STRING_A3))->len); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4066,"ide_methods.bas");}while(r); -do{ -SUB_IDESETLINE(&(pass4376=*__LONG_IDECY- 1 ),qbs_add(func_space(*_FUNC_IDE2_LONG_DESIREDCOLUMN),_FUNC_IDE2_STRING_A)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4067,"ide_methods.bas");}while(r); -do{ -SUB_IDEDELLINE(__LONG_IDECY); -if(!qbevent)break;evnt(26070,4068,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECX=*_FUNC_IDE2_LONG_DESIREDCOLUMN+ 1 ; -if(!qbevent)break;evnt(26070,4069,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECY=*__LONG_IDECY- 1 ; -if(!qbevent)break;evnt(26070,4070,"ide_methods.bas");}while(r); -}else{ -do{ -goto LABEL_REGULARBACKUPTOPREVLINE; -if(!qbevent)break;evnt(26070,4072,"ide_methods.bas");}while(r); -} -} -} -do{ -goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(26070,4076,"ide_methods.bas");}while(r); -} -S_40729:; -if ((qbs_cleanup(qbs_tmp_base,-(*__LONG_IDECX>(_FUNC_IDE2_STRING_A->len+ 1 ))))||new_error){ -if(qbevent){evnt(26070,4078,"ide_methods.bas");if(r)goto S_40729;} -do{ -*__LONG_IDECX=_FUNC_IDE2_STRING_A->len+ 1 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4079,"ide_methods.bas");}while(r); -}else{ -LABEL_CHECKSPACESBEHIND:; -if(qbevent){evnt(26070,4081,"ide_methods.bas");r=0;} -S_40732:; -if ((qbs_cleanup(qbs_tmp_base,-(((int32)(qbs_rtrim(func_mid(_FUNC_IDE2_STRING_A, 1 ,*__LONG_IDECX- 1 ,0|1)))->len)== 0 )))||new_error){ -if(qbevent){evnt(26070,4082,"ide_methods.bas");if(r)goto S_40732;} -do{ -*_FUNC_IDE2_LONG_X= 4 ; -if(!qbevent)break;evnt(26070,4084,"ide_methods.bas");}while(r); -S_40734:; -if ((-(*__LONG_IDEAUTOINDENTSIZE!= 0 ))||new_error){ -if(qbevent){evnt(26070,4085,"ide_methods.bas");if(r)goto S_40734;} -do{ -*_FUNC_IDE2_LONG_X=*__LONG_IDEAUTOINDENTSIZE; -if(!qbevent)break;evnt(26070,4085,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDE2_SINGLE_CHECK__ASCII_CHR_046__TABSTOP=(*__LONG_IDECX- 1 )/ ((long double)(*_FUNC_IDE2_LONG_X)); -if(!qbevent)break;evnt(26070,4086,"ide_methods.bas");}while(r); -S_40738:; -if ((-(((float)(*_FUNC_IDE2_SINGLE_CHECK__ASCII_CHR_046__TABSTOP))==((float)(func_fix_double(*_FUNC_IDE2_SINGLE_CHECK__ASCII_CHR_046__TABSTOP)))))||new_error){ -if(qbevent){evnt(26070,4087,"ide_methods.bas");if(r)goto S_40738;} -S_40739:; -if ((-((*__LONG_IDECX-*_FUNC_IDE2_LONG_X)<( 1 )))||new_error){ -if(qbevent){evnt(26070,4088,"ide_methods.bas");if(r)goto S_40739;} -do{ -*_FUNC_IDE2_LONG_X=*__LONG_IDECX- 1 ; -if(!qbevent)break;evnt(26070,4088,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_left(_FUNC_IDE2_STRING_A,*__LONG_IDECX-(*_FUNC_IDE2_LONG_X+ 1 )),qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len-*__LONG_IDECX+ 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4089,"ide_methods.bas");}while(r); -do{ -SUB_IDESETLINE(__LONG_IDECY,_FUNC_IDE2_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4090,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECX=*__LONG_IDECX-*_FUNC_IDE2_LONG_X; -if(!qbevent)break;evnt(26070,4091,"ide_methods.bas");}while(r); -}else{ -do{ -goto LABEL_ONEBACKSPACE; -if(!qbevent)break;evnt(26070,4093,"ide_methods.bas");}while(r); -} -}else{ -LABEL_ONEBACKSPACE:; -if(qbevent){evnt(26070,4096,"ide_methods.bas");r=0;} -do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_left(_FUNC_IDE2_STRING_A,*__LONG_IDECX- 2 ),qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len-*__LONG_IDECX+ 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4097,"ide_methods.bas");}while(r); -do{ -SUB_IDESETLINE(__LONG_IDECY,_FUNC_IDE2_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4098,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECX=*__LONG_IDECX- 1 ; -if(!qbevent)break;evnt(26070,4099,"ide_methods.bas");}while(r); -} -} -do{ -goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(26070,4102,"ide_methods.bas");}while(r); -} -S_40756:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len!= 1 )))||new_error){ -if(qbevent){evnt(26070,4114,"ide_methods.bas");if(r)goto S_40756;} -do{ -goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(26070,4114,"ide_methods.bas");}while(r); -} -S_40759:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,func_chr( 9 ))))||new_error){ -if(qbevent){evnt(26070,4115,"ide_methods.bas");if(r)goto S_40759;} -do{ -goto LABEL_IDEFORCEINPUT; -if(!qbevent)break;evnt(26070,4115,"ide_methods.bas");}while(r); -} -S_40762:; -if ((qbs_cleanup(qbs_tmp_base,((int16*)(__ARRAY_INTEGER_BLOCK_CHR[0]))[array_check((qbs_asc(__STRING_K))-__ARRAY_INTEGER_BLOCK_CHR[4],__ARRAY_INTEGER_BLOCK_CHR[5])]))||new_error){ -if(qbevent){evnt(26070,4116,"ide_methods.bas");if(r)goto S_40762;} -do{ -goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(26070,4116,"ide_methods.bas");}while(r); -} -LABEL_IDEFORCEINPUT:; -if(qbevent){evnt(26070,4117,"ide_methods.bas");r=0;} -S_40765:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 9 )))|(((qbs_equal(__STRING_K,func_chr( 25 )))&(-(func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0)> 0 ))))))||new_error){ -if(qbevent){evnt(26070,4119,"ide_methods.bas");if(r)goto S_40765;} -S_40766:; -if ((*__LONG_IDESELECT)||new_error){ -if(qbevent){evnt(26070,4120,"ide_methods.bas");if(r)goto S_40766;} -S_40767:; -if ((qbs_cleanup(qbs_tmp_base,*__LONG_KSHIFT|(qbs_equal(__STRING_K,func_chr( 25 )))))||new_error){ -if(qbevent){evnt(26070,4122,"ide_methods.bas");if(r)goto S_40767;} -LABEL_IDEBLOCKDECREASEINDENT:; -if(qbevent){evnt(26070,4123,"ide_methods.bas");r=0;} -do{ -*_FUNC_IDE2_LONG_BLOCKINDENTLEVEL= 4 ; -if(!qbevent)break;evnt(26070,4124,"ide_methods.bas");}while(r); -S_40769:; -if ((-(*__LONG_IDEAUTOINDENTSIZE!= 0 ))||new_error){ -if(qbevent){evnt(26070,4125,"ide_methods.bas");if(r)goto S_40769;} -do{ -*_FUNC_IDE2_LONG_BLOCKINDENTLEVEL=*__LONG_IDEAUTOINDENTSIZE; -if(!qbevent)break;evnt(26070,4125,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDE2_LONG_Y1=*__LONG_IDECY; -if(!qbevent)break;evnt(26070,4126,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_Y2=*__LONG_IDESELECTY1; -if(!qbevent)break;evnt(26070,4127,"ide_methods.bas");}while(r); -S_40774:; -if ((-(*_FUNC_IDE2_LONG_Y1==*_FUNC_IDE2_LONG_Y2))||new_error){ -if(qbevent){evnt(26070,4129,"ide_methods.bas");if(r)goto S_40774;} -do{ -qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4130,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_A2,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4131,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_SX1=*__LONG_IDESELECTX1; -if(!qbevent)break;evnt(26070,4132,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_SX2=*__LONG_IDECX; -if(!qbevent)break;evnt(26070,4132,"ide_methods.bas");}while(r); -S_40779:; -if ((-(*_FUNC_IDE2_LONG_SX2<*_FUNC_IDE2_LONG_SX1))||new_error){ -if(qbevent){evnt(26070,4133,"ide_methods.bas");if(r)goto S_40779;} -do{ -swap_32(&*_FUNC_IDE2_LONG_SX1,&*_FUNC_IDE2_LONG_SX2); -if(!qbevent)break;evnt(26070,4133,"ide_methods.bas");}while(r); -} -S_40782:; -fornext_value4383=*_FUNC_IDE2_LONG_SX1; -fornext_finalvalue4383=*_FUNC_IDE2_LONG_SX2- 1 ; -fornext_step4383= 1 ; -if (fornext_step4383<0) fornext_step_negative4383=1; else fornext_step_negative4383=0; -if (new_error) goto fornext_error4383; -goto fornext_entrylabel4383; -while(1){ -fornext_value4383=fornext_step4383+(*_FUNC_IDE2_LONG_X); -fornext_entrylabel4383: -*_FUNC_IDE2_LONG_X=fornext_value4383; -if (fornext_step_negative4383){ -if (fornext_value4383fornext_finalvalue4383) break; -} -fornext_error4383:; -if(qbevent){evnt(26070,4134,"ide_methods.bas");if(r)goto S_40782;} -S_40783:; -if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDE2_LONG_X<=_FUNC_IDE2_STRING_A->len)))||new_error){ -if(qbevent){evnt(26070,4135,"ide_methods.bas");if(r)goto S_40783;} -do{ -qbs_set(_FUNC_IDE2_STRING_A2,qbs_add(_FUNC_IDE2_STRING_A2,func_mid(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_X, 1 ,0|1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4135,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDE2_STRING_A2,qbs_add(_FUNC_IDE2_STRING_A2,qbs_new_txt_len(" ",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4135,"ide_methods.bas");}while(r); -} -fornext_continue_4382:; -} -fornext_exit_4382:; -S_40789:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_A2,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,4137,"ide_methods.bas");if(r)goto S_40789;} -do{ -goto LABEL_SKIPBLOCKINDENT; -if(!qbevent)break;evnt(26070,4138,"ide_methods.bas");}while(r); -} -} -S_40793:; -if ((-(*_FUNC_IDE2_LONG_Y1>*_FUNC_IDE2_LONG_Y2))||new_error){ -if(qbevent){evnt(26070,4142,"ide_methods.bas");if(r)goto S_40793;} -do{ -swap_32(&*_FUNC_IDE2_LONG_Y1,&*_FUNC_IDE2_LONG_Y2); -if(!qbevent)break;evnt(26070,4142,"ide_methods.bas");}while(r); -} -S_40796:; -if (((-(*__LONG_IDECY>*__LONG_IDESELECTY1))&(-(*__LONG_IDECX== 1 )))||new_error){ -if(qbevent){evnt(26070,4143,"ide_methods.bas");if(r)goto S_40796;} -do{ -*_FUNC_IDE2_LONG_Y2=*_FUNC_IDE2_LONG_Y2- 1 ; -if(!qbevent)break;evnt(26070,4143,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDE2_LONG_LHS= 10000000 ; -if(!qbevent)break;evnt(26070,4145,"ide_methods.bas");}while(r); -S_40800:; -fornext_value4386=*_FUNC_IDE2_LONG_Y1; -fornext_finalvalue4386=*_FUNC_IDE2_LONG_Y2; -fornext_step4386= 1 ; -if (fornext_step4386<0) fornext_step_negative4386=1; else fornext_step_negative4386=0; -if (new_error) goto fornext_error4386; -goto fornext_entrylabel4386; -while(1){ -fornext_value4386=fornext_step4386+(*_FUNC_IDE2_LONG_Y); -fornext_entrylabel4386: -*_FUNC_IDE2_LONG_Y=fornext_value4386; -if (fornext_step_negative4386){ -if (fornext_value4386fornext_finalvalue4386) break; -} -fornext_error4386:; -if(qbevent){evnt(26070,4146,"ide_methods.bas");if(r)goto S_40800;} -do{ -qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(_FUNC_IDE2_LONG_Y)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4147,"ide_methods.bas");}while(r); -S_40802:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_A->len))||new_error){ -if(qbevent){evnt(26070,4148,"ide_methods.bas");if(r)goto S_40802;} -do{ -qbs_set(_FUNC_IDE2_STRING_TA,qbs_ltrim(_FUNC_IDE2_STRING_A)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4149,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_T=_FUNC_IDE2_STRING_A->len-_FUNC_IDE2_STRING_TA->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4150,"ide_methods.bas");}while(r); -S_40805:; -if ((-(*_FUNC_IDE2_LONG_T<*_FUNC_IDE2_LONG_LHS))||new_error){ -if(qbevent){evnt(26070,4151,"ide_methods.bas");if(r)goto S_40805;} -do{ -*_FUNC_IDE2_LONG_LHS=*_FUNC_IDE2_LONG_T; -if(!qbevent)break;evnt(26070,4151,"ide_methods.bas");}while(r); -} -} -fornext_continue_4385:; -} -fornext_exit_4385:; -S_40810:; -if ((-(*_FUNC_IDE2_LONG_LHS> 0 ))||new_error){ -if(qbevent){evnt(26070,4156,"ide_methods.bas");if(r)goto S_40810;} -S_40811:; -if ((-(*_FUNC_IDE2_LONG_LHS<*_FUNC_IDE2_LONG_BLOCKINDENTLEVEL))||new_error){ -if(qbevent){evnt(26070,4157,"ide_methods.bas");if(r)goto S_40811;} -do{ -*_FUNC_IDE2_LONG_BLOCKINDENTLEVEL=*_FUNC_IDE2_LONG_LHS; -if(!qbevent)break;evnt(26070,4157,"ide_methods.bas");}while(r); -} -S_40814:; -fornext_value4391=*_FUNC_IDE2_LONG_Y1; -fornext_finalvalue4391=*_FUNC_IDE2_LONG_Y2; -fornext_step4391= 1 ; -if (fornext_step4391<0) fornext_step_negative4391=1; else fornext_step_negative4391=0; -if (new_error) goto fornext_error4391; -goto fornext_entrylabel4391; -while(1){ -fornext_value4391=fornext_step4391+(*_FUNC_IDE2_LONG_Y); -fornext_entrylabel4391: -*_FUNC_IDE2_LONG_Y=fornext_value4391; -if (fornext_step_negative4391){ -if (fornext_value4391fornext_finalvalue4391) break; -} -fornext_error4391:; -if(qbevent){evnt(26070,4158,"ide_methods.bas");if(r)goto S_40814;} -do{ -qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(_FUNC_IDE2_LONG_Y)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4159,"ide_methods.bas");}while(r); -S_40816:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_A->len))||new_error){ -if(qbevent){evnt(26070,4160,"ide_methods.bas");if(r)goto S_40816;} -do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len-*_FUNC_IDE2_LONG_BLOCKINDENTLEVEL)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4161,"ide_methods.bas");}while(r); -do{ -SUB_IDESETLINE(_FUNC_IDE2_LONG_Y,_FUNC_IDE2_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4162,"ide_methods.bas");}while(r); -do{ -*__INTEGER_IDECHANGEMADE= 1 ; -if(!qbevent)break;evnt(26070,4163,"ide_methods.bas");}while(r); -do{ -*__BYTE_STARTPAUSEDPENDING= 0 ; -if(!qbevent)break;evnt(26070,4164,"ide_methods.bas");}while(r); -} -fornext_continue_4390:; -} -fornext_exit_4390:; -} -S_40824:; -if (((-(*_FUNC_IDE2_LONG_Y1==*_FUNC_IDE2_LONG_Y2))&*__INTEGER_IDECHANGEMADE)||new_error){ -if(qbevent){evnt(26070,4168,"ide_methods.bas");if(r)goto S_40824;} -do{ -*__LONG_IDESELECTX1=*__LONG_IDESELECTX1-*_FUNC_IDE2_LONG_BLOCKINDENTLEVEL; -if(!qbevent)break;evnt(26070,4169,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECX=*__LONG_IDECX-*_FUNC_IDE2_LONG_BLOCKINDENTLEVEL; -if(!qbevent)break;evnt(26070,4170,"ide_methods.bas");}while(r); -S_40827:; -if ((-(*__LONG_IDECX< 1 ))||new_error){ -if(qbevent){evnt(26070,4171,"ide_methods.bas");if(r)goto S_40827;} -do{ -*__LONG_IDECX= 1 ; -if(!qbevent)break;evnt(26070,4171,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESELECTX1=*__LONG_IDECX; -if(!qbevent)break;evnt(26070,4171,"ide_methods.bas");}while(r); -} -} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,4173,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,4173,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,4174,"ide_methods.bas");}while(r); -}else{ -LABEL_IDEBLOCKINCREASEINDENT:; -if(qbevent){evnt(26070,4176,"ide_methods.bas");r=0;} -do{ -*_FUNC_IDE2_LONG_BLOCKINDENTLEVEL= 4 ; -if(!qbevent)break;evnt(26070,4177,"ide_methods.bas");}while(r); -S_40837:; -if ((-(*__LONG_IDEAUTOINDENTSIZE!= 0 ))||new_error){ -if(qbevent){evnt(26070,4178,"ide_methods.bas");if(r)goto S_40837;} -do{ -*_FUNC_IDE2_LONG_BLOCKINDENTLEVEL=*__LONG_IDEAUTOINDENTSIZE; -if(!qbevent)break;evnt(26070,4178,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDE2_LONG_Y1=*__LONG_IDECY; -if(!qbevent)break;evnt(26070,4179,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_Y2=*__LONG_IDESELECTY1; -if(!qbevent)break;evnt(26070,4180,"ide_methods.bas");}while(r); -S_40842:; -if ((-(*_FUNC_IDE2_LONG_Y1==*_FUNC_IDE2_LONG_Y2))||new_error){ -if(qbevent){evnt(26070,4182,"ide_methods.bas");if(r)goto S_40842;} -do{ -qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4183,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_A2,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4184,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_SX1=*__LONG_IDESELECTX1; -if(!qbevent)break;evnt(26070,4185,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_SX2=*__LONG_IDECX; -if(!qbevent)break;evnt(26070,4185,"ide_methods.bas");}while(r); -S_40847:; -if ((-(*_FUNC_IDE2_LONG_SX2<*_FUNC_IDE2_LONG_SX1))||new_error){ -if(qbevent){evnt(26070,4186,"ide_methods.bas");if(r)goto S_40847;} -do{ -swap_32(&*_FUNC_IDE2_LONG_SX1,&*_FUNC_IDE2_LONG_SX2); -if(!qbevent)break;evnt(26070,4186,"ide_methods.bas");}while(r); -} -S_40850:; -fornext_value4395=*_FUNC_IDE2_LONG_SX1; -fornext_finalvalue4395=*_FUNC_IDE2_LONG_SX2- 1 ; -fornext_step4395= 1 ; -if (fornext_step4395<0) fornext_step_negative4395=1; else fornext_step_negative4395=0; -if (new_error) goto fornext_error4395; -goto fornext_entrylabel4395; -while(1){ -fornext_value4395=fornext_step4395+(*_FUNC_IDE2_LONG_X); -fornext_entrylabel4395: -*_FUNC_IDE2_LONG_X=fornext_value4395; -if (fornext_step_negative4395){ -if (fornext_value4395fornext_finalvalue4395) break; -} -fornext_error4395:; -if(qbevent){evnt(26070,4187,"ide_methods.bas");if(r)goto S_40850;} -S_40851:; -if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDE2_LONG_X<=_FUNC_IDE2_STRING_A->len)))||new_error){ -if(qbevent){evnt(26070,4188,"ide_methods.bas");if(r)goto S_40851;} -do{ -qbs_set(_FUNC_IDE2_STRING_A2,qbs_add(_FUNC_IDE2_STRING_A2,func_mid(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_X, 1 ,0|1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4188,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDE2_STRING_A2,qbs_add(_FUNC_IDE2_STRING_A2,qbs_new_txt_len(" ",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4188,"ide_methods.bas");}while(r); -} -fornext_continue_4394:; -} -fornext_exit_4394:; -S_40857:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_A2,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,4190,"ide_methods.bas");if(r)goto S_40857;} -do{ -goto LABEL_SKIPBLOCKINDENT; -if(!qbevent)break;evnt(26070,4191,"ide_methods.bas");}while(r); -} -} -S_40861:; -if ((-(*_FUNC_IDE2_LONG_Y1>*_FUNC_IDE2_LONG_Y2))||new_error){ -if(qbevent){evnt(26070,4195,"ide_methods.bas");if(r)goto S_40861;} -do{ -swap_32(&*_FUNC_IDE2_LONG_Y1,&*_FUNC_IDE2_LONG_Y2); -if(!qbevent)break;evnt(26070,4195,"ide_methods.bas");}while(r); -} -S_40864:; -if (((-(*__LONG_IDECY>*__LONG_IDESELECTY1))&(-(*__LONG_IDECX== 1 )))||new_error){ -if(qbevent){evnt(26070,4196,"ide_methods.bas");if(r)goto S_40864;} -do{ -*_FUNC_IDE2_LONG_Y2=*_FUNC_IDE2_LONG_Y2- 1 ; -if(!qbevent)break;evnt(26070,4196,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDE2_LONG_LHS= 10000000 ; -if(!qbevent)break;evnt(26070,4198,"ide_methods.bas");}while(r); -S_40868:; -fornext_value4398=*_FUNC_IDE2_LONG_Y1; -fornext_finalvalue4398=*_FUNC_IDE2_LONG_Y2; -fornext_step4398= 1 ; -if (fornext_step4398<0) fornext_step_negative4398=1; else fornext_step_negative4398=0; -if (new_error) goto fornext_error4398; -goto fornext_entrylabel4398; -while(1){ -fornext_value4398=fornext_step4398+(*_FUNC_IDE2_LONG_Y); -fornext_entrylabel4398: -*_FUNC_IDE2_LONG_Y=fornext_value4398; -if (fornext_step_negative4398){ -if (fornext_value4398fornext_finalvalue4398) break; -} -fornext_error4398:; -if(qbevent){evnt(26070,4199,"ide_methods.bas");if(r)goto S_40868;} -do{ -qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(_FUNC_IDE2_LONG_Y)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4200,"ide_methods.bas");}while(r); -S_40870:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_A->len))||new_error){ -if(qbevent){evnt(26070,4201,"ide_methods.bas");if(r)goto S_40870;} -do{ -qbs_set(_FUNC_IDE2_STRING_TA,qbs_ltrim(_FUNC_IDE2_STRING_A)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4202,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_T=_FUNC_IDE2_STRING_A->len-_FUNC_IDE2_STRING_TA->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4203,"ide_methods.bas");}while(r); -S_40873:; -if ((-(*_FUNC_IDE2_LONG_T<*_FUNC_IDE2_LONG_LHS))||new_error){ -if(qbevent){evnt(26070,4204,"ide_methods.bas");if(r)goto S_40873;} -do{ -*_FUNC_IDE2_LONG_LHS=*_FUNC_IDE2_LONG_T; -if(!qbevent)break;evnt(26070,4204,"ide_methods.bas");}while(r); -} -} -fornext_continue_4397:; -} -fornext_exit_4397:; -S_40878:; -fornext_value4403=*_FUNC_IDE2_LONG_Y1; -fornext_finalvalue4403=*_FUNC_IDE2_LONG_Y2; -fornext_step4403= 1 ; -if (fornext_step4403<0) fornext_step_negative4403=1; else fornext_step_negative4403=0; -if (new_error) goto fornext_error4403; -goto fornext_entrylabel4403; -while(1){ -fornext_value4403=fornext_step4403+(*_FUNC_IDE2_LONG_Y); -fornext_entrylabel4403: -*_FUNC_IDE2_LONG_Y=fornext_value4403; -if (fornext_step_negative4403){ -if (fornext_value4403fornext_finalvalue4403) break; -} -fornext_error4403:; -if(qbevent){evnt(26070,4208,"ide_methods.bas");if(r)goto S_40878;} -do{ -qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(_FUNC_IDE2_LONG_Y)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4209,"ide_methods.bas");}while(r); -S_40880:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_A->len))||new_error){ -if(qbevent){evnt(26070,4210,"ide_methods.bas");if(r)goto S_40880;} -do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(qbs_left(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_LHS),func_space(*_FUNC_IDE2_LONG_BLOCKINDENTLEVEL)),qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len-*_FUNC_IDE2_LONG_LHS))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4211,"ide_methods.bas");}while(r); -do{ -SUB_IDESETLINE(_FUNC_IDE2_LONG_Y,_FUNC_IDE2_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4212,"ide_methods.bas");}while(r); -do{ -*__INTEGER_IDECHANGEMADE= 1 ; -if(!qbevent)break;evnt(26070,4213,"ide_methods.bas");}while(r); -do{ -*__BYTE_STARTPAUSEDPENDING= 0 ; -if(!qbevent)break;evnt(26070,4214,"ide_methods.bas");}while(r); -} -fornext_continue_4402:; -} -fornext_exit_4402:; -S_40887:; -if (((-(*_FUNC_IDE2_LONG_Y1==*_FUNC_IDE2_LONG_Y2))&*__INTEGER_IDECHANGEMADE)||new_error){ -if(qbevent){evnt(26070,4217,"ide_methods.bas");if(r)goto S_40887;} -do{ -*__LONG_IDESELECTX1=*__LONG_IDESELECTX1+*_FUNC_IDE2_LONG_BLOCKINDENTLEVEL; -if(!qbevent)break;evnt(26070,4218,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECX=*__LONG_IDECX+*_FUNC_IDE2_LONG_BLOCKINDENTLEVEL; -if(!qbevent)break;evnt(26070,4219,"ide_methods.bas");}while(r); -} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,4221,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,4221,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,4222,"ide_methods.bas");}while(r); -} -}else{ -LABEL_SKIPBLOCKINDENT:; -if(qbevent){evnt(26070,4225,"ide_methods.bas");r=0;} -S_40896:; -if ((-(*__LONG_KSHIFT== 0 ))||new_error){ -if(qbevent){evnt(26070,4226,"ide_methods.bas");if(r)goto S_40896;} -do{ -*_FUNC_IDE2_LONG_X= 4 ; -if(!qbevent)break;evnt(26070,4227,"ide_methods.bas");}while(r); -S_40898:; -if ((-(*__LONG_IDEAUTOINDENTSIZE!= 0 ))||new_error){ -if(qbevent){evnt(26070,4228,"ide_methods.bas");if(r)goto S_40898;} -do{ -*_FUNC_IDE2_LONG_X=*__LONG_IDEAUTOINDENTSIZE; -if(!qbevent)break;evnt(26070,4228,"ide_methods.bas");}while(r); -} -do{ -qbs_set(__STRING_K,func_space(*_FUNC_IDE2_LONG_X-((*__LONG_IDECX- 1 )%*_FUNC_IDE2_LONG_X))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4229,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(__STRING_K,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4231,"ide_methods.bas");}while(r); -} -} -} -S_40907:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 27 )))&(~(*__BYTE_ALTSPECIAL))))||new_error){ -if(qbevent){evnt(26070,4236,"ide_methods.bas");if(r)goto S_40907;} -do{ -goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(26070,4236,"ide_methods.bas");}while(r); -} -S_40910:; -if ((*__LONG_KCTRL&(~(*__LONG_KALT)))||new_error){ -if(qbevent){evnt(26070,4240,"ide_methods.bas");if(r)goto S_40910;} -do{ -goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(26070,4240,"ide_methods.bas");}while(r); -} -S_40913:; -if ((*__LONG_KALT&(~(*__LONG_KCTRL))&(~(*__BYTE_ALTSPECIAL)))||new_error){ -if(qbevent){evnt(26070,4241,"ide_methods.bas");if(r)goto S_40913;} -do{ -goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(26070,4241,"ide_methods.bas");}while(r); -} -S_40916:; -if ((*__LONG_IDESELECT)||new_error){ -if(qbevent){evnt(26070,4244,"ide_methods.bas");if(r)goto S_40916;} -do{ -SUB_DELSELECT(); -if(!qbevent)break;evnt(26070,4244,"ide_methods.bas");}while(r); -} -do{ -*__INTEGER_IDECHANGEMADE= 1 ; -if(!qbevent)break;evnt(26070,4245,"ide_methods.bas");}while(r); -do{ -*__BYTE_STARTPAUSEDPENDING= 0 ; -if(!qbevent)break;evnt(26070,4246,"ide_methods.bas");}while(r); -S_40921:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ -if(qbevent){evnt(26070,4249,"ide_methods.bas");if(r)goto S_40921;} -do{ -*_FUNC_IDE2_LONG_ASCK=qbs_asc(__STRING_K); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4250,"ide_methods.bas");}while(r); -S_40923:; -if ((((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((*_FUNC_IDE2_LONG_ASCK)-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]|(-(*__LONG_IDEUNDOCOMBOCHR==*_FUNC_IDE2_LONG_ASCK)))||new_error){ -if(qbevent){evnt(26070,4251,"ide_methods.bas");if(r)goto S_40923;} -S_40924:; -if ((-(*__LONG_IDEUNDOCOMBOCHR== 8 ))||new_error){ -if(qbevent){evnt(26070,4252,"ide_methods.bas");if(r)goto S_40924;} -do{ -*__LONG_IDEUNDOCOMBO= 0 ; -if(!qbevent)break;evnt(26070,4252,"ide_methods.bas");}while(r); -} -S_40927:; -if ((-(*__LONG_IDEUNDOCOMBO== 0 ))||new_error){ -if(qbevent){evnt(26070,4253,"ide_methods.bas");if(r)goto S_40927;} -do{ -*__LONG_IDEUNDOCOMBO= 2 ; -if(!qbevent)break;evnt(26070,4254,"ide_methods.bas");}while(r); -}else{ -do{ -*__LONG_IDEUNDOCOMBO=*__LONG_IDEUNDOCOMBO+ 1 ; -if(!qbevent)break;evnt(26070,4256,"ide_methods.bas");}while(r); -S_40931:; -if ((-(*__LONG_IDEUNDOCOMBO== 2 ))||new_error){ -if(qbevent){evnt(26070,4257,"ide_methods.bas");if(r)goto S_40931;} -do{ -*__LONG_IDEMERGEUNDO= 1 ; -if(!qbevent)break;evnt(26070,4257,"ide_methods.bas");}while(r); -} -} -} -do{ -*__LONG_IDEUNDOCOMBOCHR=*_FUNC_IDE2_LONG_ASCK; -if(!qbevent)break;evnt(26070,4260,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4263,"ide_methods.bas");}while(r); -S_40939:; -if ((qbs_cleanup(qbs_tmp_base,-((_FUNC_IDE2_STRING_A->len)<(*__LONG_IDECX- 1 ))))||new_error){ -if(qbevent){evnt(26070,4264,"ide_methods.bas");if(r)goto S_40939;} -do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_add(_FUNC_IDE2_STRING_A,func_space(*__LONG_IDECX- 1 -_FUNC_IDE2_STRING_A->len))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4264,"ide_methods.bas");}while(r); -} -S_40942:; -if ((*__INTEGER_IDEINSERT)||new_error){ -if(qbevent){evnt(26070,4266,"ide_methods.bas");if(r)goto S_40942;} -do{ -qbs_set(_FUNC_IDE2_STRING_A2,qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len-*__LONG_IDECX+ 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4267,"ide_methods.bas");}while(r); -S_40944:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_A2->len))||new_error){ -if(qbevent){evnt(26070,4268,"ide_methods.bas");if(r)goto S_40944;} -do{ -qbs_set(_FUNC_IDE2_STRING_A2,qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len-*__LONG_IDECX)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4268,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(qbs_left(_FUNC_IDE2_STRING_A,*__LONG_IDECX- 1 ),__STRING_K),_FUNC_IDE2_STRING_A2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4269,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(qbs_left(_FUNC_IDE2_STRING_A,*__LONG_IDECX- 1 ),__STRING_K),qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len-*__LONG_IDECX+ 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4271,"ide_methods.bas");}while(r); -} -do{ -SUB_IDESETLINE(__LONG_IDECY,_FUNC_IDE2_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4274,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECX=*__LONG_IDECX+__STRING_K->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4275,"ide_methods.bas");}while(r); -LABEL_SPECIALCHAR:; -if(qbevent){evnt(26070,4276,"ide_methods.bas");r=0;} -S_40953:; -if ((qbs_cleanup(qbs_tmp_base,((qbs_equal(__STRING_IDEINFO,qbs_new_txt_len("",0)))|(qbs_equal(qbs_left(__STRING_IDEINFO, 19 ),qbs_new_txt_len("Selection length = ",19))))))||new_error){ -if(qbevent){evnt(26070,4279,"ide_methods.bas");if(r)goto S_40953;} -S_40954:; -if ((-(*__LONG_IDECY==*__LONG_IDESELECTY1))||new_error){ -if(qbevent){evnt(26070,4280,"ide_methods.bas");if(r)goto S_40954;} -do{ -*_FUNC_IDE2_LONG_SX1=*__LONG_IDESELECTX1; -if(!qbevent)break;evnt(26070,4281,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_SX2=*__LONG_IDECX; -if(!qbevent)break;evnt(26070,4281,"ide_methods.bas");}while(r); -S_40957:; -if ((-(*_FUNC_IDE2_LONG_SX1>*_FUNC_IDE2_LONG_SX2))||new_error){ -if(qbevent){evnt(26070,4282,"ide_methods.bas");if(r)goto S_40957;} -do{ -swap_32(&*_FUNC_IDE2_LONG_SX1,&*_FUNC_IDE2_LONG_SX2); -if(!qbevent)break;evnt(26070,4282,"ide_methods.bas");}while(r); -} -S_40960:; -if (((-(*__LONG_IDESELECT== 1 ))&(-((*_FUNC_IDE2_LONG_SX2-*_FUNC_IDE2_LONG_SX1)> 0 )))||new_error){ -if(qbevent){evnt(26070,4283,"ide_methods.bas");if(r)goto S_40960;} -S_40961:; -if ((-((*_FUNC_IDE2_LONG_SX2-*_FUNC_IDE2_LONG_SX1)>( 0 )))||new_error){ -if(qbevent){evnt(26070,4284,"ide_methods.bas");if(r)goto S_40961;} -do{ -qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4285,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_IDECURRENTSINGLELINESELECTION,func_mid(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_SX1,*_FUNC_IDE2_LONG_SX2-*_FUNC_IDE2_LONG_SX1,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4286,"ide_methods.bas");}while(r); -S_40964:; -fornext_value4415= 1 ; -fornext_finalvalue4415=__STRING_IDECURRENTSINGLELINESELECTION->len; -fornext_step4415= 1 ; -if (fornext_step4415<0) fornext_step_negative4415=1; else fornext_step_negative4415=0; -if (new_error) goto fornext_error4415; -goto fornext_entrylabel4415; -while(1){ -fornext_value4415=fornext_step4415+(*_FUNC_IDE2_LONG_I); -fornext_entrylabel4415: -*_FUNC_IDE2_LONG_I=fornext_value4415; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative4415){ -if (fornext_value4415fornext_finalvalue4415) break; -} -fornext_error4415:; -if(qbevent){evnt(26070,4287,"ide_methods.bas");if(r)goto S_40964;} -S_40965:; -if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_FUNC_IDE2_STRING_CHAR__ASCII_CHR_046__SEP,func_mid(__STRING_IDECURRENTSINGLELINESELECTION,*_FUNC_IDE2_LONG_I, 1 ,0|1),0)> 0 )))||new_error){ -if(qbevent){evnt(26070,4288,"ide_methods.bas");if(r)goto S_40965;} -S_40966:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(func_mid(__STRING_IDECURRENTSINGLELINESELECTION,*_FUNC_IDE2_LONG_I, 1 ,0|1),qbs_new_txt_len(".",1))))||new_error){ -if(qbevent){evnt(26070,4290,"ide_methods.bas");if(r)goto S_40966;} -do{ -qbs_set(__STRING_IDECURRENTSINGLELINESELECTION,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4291,"ide_methods.bas");}while(r); -do{ -goto fornext_exit_4414; -if(!qbevent)break;evnt(26070,4292,"ide_methods.bas");}while(r); -} -} -fornext_continue_4414:; -} -fornext_exit_4414:; -} -do{ -qbs_set(__STRING_IDEINFO,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Selection length = ",19),FUNC_STR2(&(pass4417=*_FUNC_IDE2_LONG_SX2-*_FUNC_IDE2_LONG_SX1))),qbs_new_txt_len(" character",10)),qbs_left(qbs_new_txt_len("s",1),func_abs((int32)(-((*_FUNC_IDE2_LONG_SX2-*_FUNC_IDE2_LONG_SX1)>( 1 ))))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4297,"ide_methods.bas");}while(r); -do{ -SUB_UPDATEIDEINFO(); -if(!qbevent)break;evnt(26070,4298,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(__STRING_IDEINFO,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4300,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_IDECURRENTSINGLELINESELECTION,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4301,"ide_methods.bas");}while(r); -do{ -SUB_UPDATEIDEINFO(); -if(!qbevent)break;evnt(26070,4302,"ide_methods.bas");}while(r); -} -}else{ -S_40981:; -if ((*__LONG_IDESELECT)||new_error){ -if(qbevent){evnt(26070,4305,"ide_methods.bas");if(r)goto S_40981;} -do{ -*_FUNC_IDE2_LONG_SY1=*__LONG_IDESELECTY1; -if(!qbevent)break;evnt(26070,4306,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_SY2=*__LONG_IDECY; -if(!qbevent)break;evnt(26070,4307,"ide_methods.bas");}while(r); -S_40984:; -if (((-(*_FUNC_IDE2_LONG_SY1>*_FUNC_IDE2_LONG_SY2))|(-(*__LONG_IDECX> 1 )))||new_error){ -if(qbevent){evnt(26070,4308,"ide_methods.bas");if(r)goto S_40984;} -do{ -qbs_set(__STRING_IDEINFO,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Selection length = ",19),FUNC_STR2(&(pass4418=func_abs((int64)(*_FUNC_IDE2_LONG_SY2-*_FUNC_IDE2_LONG_SY1))+ 1 ))),qbs_new_txt_len(" line",5)),qbs_left(qbs_new_txt_len("s",1),func_abs((int32)(-((func_abs((int64)(*_FUNC_IDE2_LONG_SY2-*_FUNC_IDE2_LONG_SY1))+ 1 )> 1 )))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4309,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(__STRING_IDEINFO,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Selection length = ",19),FUNC_STR2(&(pass4419=*_FUNC_IDE2_LONG_SY2-*_FUNC_IDE2_LONG_SY1))),qbs_new_txt_len(" line",5)),qbs_left(qbs_new_txt_len("s",1),func_abs((int32)(-((*_FUNC_IDE2_LONG_SY2-*_FUNC_IDE2_LONG_SY1)>( 1 ))))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4311,"ide_methods.bas");}while(r); -} -}else{ -do{ -qbs_set(__STRING_IDEINFO,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4314,"ide_methods.bas");}while(r); -} -do{ -qbs_set(__STRING_IDECURRENTSINGLELINESELECTION,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4316,"ide_methods.bas");}while(r); -do{ -SUB_UPDATEIDEINFO(); -if(!qbevent)break;evnt(26070,4317,"ide_methods.bas");}while(r); -} -} -S_40996:; -if ((*__BYTE_ALTSPECIAL)||new_error){ -if(qbevent){evnt(26070,4321,"ide_methods.bas");if(r)goto S_40996;} -do{ -*__BYTE_ALTSPECIAL= 0 ; -if(!qbevent)break;evnt(26070,4322,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEENTERMENU= 0 ; -if(!qbevent)break;evnt(26070,4323,"ide_methods.bas");}while(r); -do{ -*__LONG_KALT= 0 ; -if(!qbevent)break;evnt(26070,4324,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,4325,"ide_methods.bas");}while(r); -do{ -sub__printstring( 1 , 1 ,__STRING_MENUBAR,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4325,"ide_methods.bas");}while(r); -} -dl_continue_4057:; -}while(1); -dl_exit_4057:; -LABEL_STARTMENU:; -if(qbevent){evnt(26070,4331,"ide_methods.bas");r=0;} -do{ -*_FUNC_IDE2_LONG_M= 1 ; -if(!qbevent)break;evnt(26070,4332,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_OLDMX=*__LONG_MX; -if(!qbevent)break;evnt(26070,4333,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_OLDMY=*__LONG_MY; -if(!qbevent)break;evnt(26070,4333,"ide_methods.bas");}while(r); -LABEL_STARTMENU2:; -if(qbevent){evnt(26070,4334,"ide_methods.bas");r=0;} -do{ -*_FUNC_IDE2_LONG_ALTHELD= 1 ; -if(!qbevent)break;evnt(26070,4335,"ide_methods.bas");}while(r); -S_41008:; -if ((-(*__LONG_IDESYSTEM== 2 ))||new_error){ -if(qbevent){evnt(26070,4336,"ide_methods.bas");if(r)goto S_41008;} -do{ -*__LONG_IDESYSTEM= 1 ; -if(!qbevent)break;evnt(26070,4336,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=45; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_UPDATESEARCHBAR; -RETURN_45:; -if(!qbevent)break;evnt(26070,4336,"ide_methods.bas");}while(r); -} -S_41012:; -do{ -if(qbevent){evnt(26070,4338,"ide_methods.bas");if(r)goto S_41012;} -do{ -qbg_sub_locate( 1 , 3 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(26070,4340,"ide_methods.bas");}while(r); -S_41014:; -fornext_value4422= 1 ; -fornext_finalvalue4422=*__INTEGER_MENUS; -fornext_step4422= 1 ; -if (fornext_step4422<0) fornext_step_negative4422=1; else fornext_step_negative4422=0; -if (new_error) goto fornext_error4422; -goto fornext_entrylabel4422; -while(1){ -fornext_value4422=fornext_step4422+(*_FUNC_IDE2_LONG_I); -fornext_entrylabel4422: -*_FUNC_IDE2_LONG_I=fornext_value4422; -if (fornext_step_negative4422){ -if (fornext_value4422fornext_finalvalue4422) break; -} -fornext_error4422:; -if(qbevent){evnt(26070,4341,"ide_methods.bas");if(r)goto S_41014;} -S_41015:; -if ((-(*_FUNC_IDE2_LONG_M==*_FUNC_IDE2_LONG_I))||new_error){ -if(qbevent){evnt(26070,4342,"ide_methods.bas");if(r)goto S_41015;} -do{ -qbg_sub_color( 15 , 0 ,NULL,3); -if(!qbevent)break;evnt(26070,4342,"ide_methods.bas");}while(r); -}else{ -do{ -qbg_sub_color( 15 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,4342,"ide_methods.bas");}while(r); -} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_add(qbs_new_txt_len(" ",1),qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check(( 0 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 1 ))); -if (new_error) goto skip4423; -makefit(tqbs); -qbs_print(tqbs,0); -skip4423: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4343,"ide_methods.bas");}while(r); -S_41021:; -if ((-(*_FUNC_IDE2_LONG_M==*_FUNC_IDE2_LONG_I))||new_error){ -if(qbevent){evnt(26070,4344,"ide_methods.bas");if(r)goto S_41021;} -do{ -qbg_sub_color( 7 , 0 ,NULL,3); -if(!qbevent)break;evnt(26070,4344,"ide_methods.bas");}while(r); -}else{ -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,4344,"ide_methods.bas");}while(r); -} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_add(qbs_right(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check(( 0 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check(( 0 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]]))->len- 1 ),qbs_new_txt_len(" ",1))); -if (new_error) goto skip4424; -makefit(tqbs); -qbs_print(tqbs,0); -skip4424: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4345,"ide_methods.bas");}while(r); -S_41027:; -if ((-(*_FUNC_IDE2_LONG_I==(*__INTEGER_MENUS- 1 )))||new_error){ -if(qbevent){evnt(26070,4346,"ide_methods.bas");if(r)goto S_41027;} -do{ -qbg_sub_locate( 1 ,*__LONG_IDEWX-((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*__INTEGER_MENUS)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check(( 0 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]]))->len- 2 ,NULL,NULL,NULL,3); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4346,"ide_methods.bas");}while(r); -} -fornext_continue_4421:; -} -fornext_exit_4421:; -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,4349,"ide_methods.bas");}while(r); -S_41032:; -do{ -if(qbevent){evnt(26070,4350,"ide_methods.bas");if(r)goto S_41032;} -do{ -*_FUNC_IDE2_LONG_LASTALTHELD=*_FUNC_IDE2_LONG_ALTHELD; -if(!qbevent)break;evnt(26070,4352,"ide_methods.bas");}while(r); -do{ -SUB_GETINPUT(); -if(!qbevent)break;evnt(26070,4354,"ide_methods.bas");}while(r); -S_41035:; -if (((-(*_FUNC_IDE2_LONG_OLDMX!=*__LONG_MX))|(-(*_FUNC_IDE2_LONG_OLDMY!=*__LONG_MY)))||new_error){ -if(qbevent){evnt(26070,4355,"ide_methods.bas");if(r)goto S_41035;} -S_41036:; -if (((-(*__LONG_MY== 1 ))&(-(*_FUNC_IDE2_LONG_IDECONTEXTUALMENU!= 1 )))||new_error){ -if(qbevent){evnt(26070,4356,"ide_methods.bas");if(r)goto S_41036;} -do{ -*_FUNC_IDE2_LONG_LASTM=*_FUNC_IDE2_LONG_M; -if(!qbevent)break;evnt(26070,4357,"ide_methods.bas");}while(r); -S_41038:; -fornext_value4429= 1 ; -fornext_finalvalue4429=*__INTEGER_MENUS; -fornext_step4429= 1 ; -if (fornext_step4429<0) fornext_step_negative4429=1; else fornext_step_negative4429=0; -if (new_error) goto fornext_error4429; -goto fornext_entrylabel4429; -while(1){ -fornext_value4429=fornext_step4429+(*_FUNC_IDE2_LONG_I); -fornext_entrylabel4429: -*_FUNC_IDE2_LONG_I=fornext_value4429; -if (fornext_step_negative4429){ -if (fornext_value4429fornext_finalvalue4429) break; -} -fornext_error4429:; -if(qbevent){evnt(26070,4358,"ide_methods.bas");if(r)goto S_41038;} -do{ -*_FUNC_IDE2_LONG_X=string2i(func_mid(_FUNC_IDE2_STRING_MENULOCATIONS,(*_FUNC_IDE2_LONG_I* 2 )-( 1 ), 2 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4359,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_X2=string2i(func_mid(_FUNC_IDE2_STRING_MENULOCATIONS,(*_FUNC_IDE2_LONG_I* 2 )-( 1 ), 2 ,0|1))+((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check(( 0 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]]))->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4360,"ide_methods.bas");}while(r); -S_41041:; -if (((-(*__LONG_MX>=*_FUNC_IDE2_LONG_X))&(-(*__LONG_MX<*_FUNC_IDE2_LONG_X2)))||new_error){ -if(qbevent){evnt(26070,4361,"ide_methods.bas");if(r)goto S_41041;} -do{ -*_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_I; -if(!qbevent)break;evnt(26070,4362,"ide_methods.bas");}while(r); -S_41043:; -if ((-(*_FUNC_IDE2_LONG_M!=*_FUNC_IDE2_LONG_LASTM))||new_error){ -if(qbevent){evnt(26070,4363,"ide_methods.bas");if(r)goto S_41043;} -do{ -goto dl_exit_4427; -if(!qbevent)break;evnt(26070,4363,"ide_methods.bas");}while(r); -} -} -fornext_continue_4428:; -} -fornext_exit_4428:; -} -do{ -*_FUNC_IDE2_LONG_OLDMX=*__LONG_MX; -if(!qbevent)break;evnt(26070,4367,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_OLDMY=*__LONG_MY; -if(!qbevent)break;evnt(26070,4367,"ide_methods.bas");}while(r); -} -S_41052:; -if ((-(*__LONG_ICHANGED== 0 ))||new_error){ -if(qbevent){evnt(26070,4369,"ide_methods.bas");if(r)goto S_41052;} -do{ -sub__limit( 100 ); -if(!qbevent)break;evnt(26070,4369,"ide_methods.bas");}while(r); -} -S_41055:; -if ((*__LONG_KALT)||new_error){ -if(qbevent){evnt(26070,4371,"ide_methods.bas");if(r)goto S_41055;} -do{ -*_FUNC_IDE2_LONG_ALTHELD= 1 ; -if(!qbevent)break;evnt(26070,4371,"ide_methods.bas");}while(r); -}else{ -do{ -*_FUNC_IDE2_LONG_ALTHELD= 0 ; -if(!qbevent)break;evnt(26070,4371,"ide_methods.bas");}while(r); -} -S_41060:; -if (((-(*_FUNC_IDE2_LONG_ALTHELD!= 0 ))&(-(*_FUNC_IDE2_LONG_LASTALTHELD== 0 )))||new_error){ -if(qbevent){evnt(26070,4373,"ide_methods.bas");if(r)goto S_41060;} -S_41061:; -do{ -if(qbevent){evnt(26070,4374,"ide_methods.bas");if(r)goto S_41061;} -do{ -sub__limit( 100 ); -if(!qbevent)break;evnt(26070,4375,"ide_methods.bas");}while(r); -do{ -SUB_GETINPUT(); -if(!qbevent)break;evnt(26070,4376,"ide_methods.bas");}while(r); -S_41064:; -if ((qbs_cleanup(qbs_tmp_base,(-(func__hasfocus()== 0 ))&(((qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3)))|(-(*__LONG_MACOSX== 1 ))))))||new_error){ -if(qbevent){evnt(26070,4377,"ide_methods.bas");if(r)goto S_41064;} -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,4378,"ide_methods.bas");}while(r); -do{ -sub__printstring( 1 , 1 ,__STRING_MENUBAR,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4378,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,4379,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,4379,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,4380,"ide_methods.bas");}while(r); -} -S_41071:; -if ((func__resize())||new_error){ -if(qbevent){evnt(26070,4383,"ide_methods.bas");if(r)goto S_41071;} -do{ -*_FUNC_IDE2_LONG_FORCERESIZE= -1 ; -if(!qbevent)break;evnt(26070,4384,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_SKIPDISPLAY= 0 ; -if(!qbevent)break;evnt(26070,4384,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,4384,"ide_methods.bas");}while(r); -} -S_41076:; -dl_continue_4431:; -}while((!(-(*__LONG_KALT== 0 )))&&(!new_error)); -dl_exit_4431:; -if(qbevent){evnt(26070,4386,"ide_methods.bas");if(r)goto S_41076;} -do{ -*__LONG_KB= 27 ; -if(!qbevent)break;evnt(26070,4387,"ide_methods.bas");}while(r); -} -S_41079:; -if ((qbs_cleanup(qbs_tmp_base,(-(func__hasfocus()== 0 ))&(((qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3)))|(-(*__LONG_MACOSX== 1 ))))))||new_error){ -if(qbevent){evnt(26070,4390,"ide_methods.bas");if(r)goto S_41079;} -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,4391,"ide_methods.bas");}while(r); -do{ -sub__printstring( 1 , 1 ,__STRING_MENUBAR,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4391,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,4392,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,4392,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,4393,"ide_methods.bas");}while(r); -} -S_41086:; -if ((func__resize())||new_error){ -if(qbevent){evnt(26070,4396,"ide_methods.bas");if(r)goto S_41086;} -do{ -*_FUNC_IDE2_LONG_FORCERESIZE= -1 ; -if(!qbevent)break;evnt(26070,4397,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_SKIPDISPLAY= 0 ; -if(!qbevent)break;evnt(26070,4397,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,4397,"ide_methods.bas");}while(r); -} -S_41091:; -if ((*__LONG_MCLICK|*__LONG_MCLICK2)||new_error){ -if(qbevent){evnt(26070,4400,"ide_methods.bas");if(r)goto S_41091;} -S_41092:; -if ((-(*__LONG_MY== 1 ))||new_error){ -if(qbevent){evnt(26070,4401,"ide_methods.bas");if(r)goto S_41092;} -S_41093:; -fornext_value4433= 1 ; -fornext_finalvalue4433=*__INTEGER_MENUS; -fornext_step4433= 1 ; -if (fornext_step4433<0) fornext_step_negative4433=1; else fornext_step_negative4433=0; -if (new_error) goto fornext_error4433; -goto fornext_entrylabel4433; -while(1){ -fornext_value4433=fornext_step4433+(*_FUNC_IDE2_LONG_I); -fornext_entrylabel4433: -*_FUNC_IDE2_LONG_I=fornext_value4433; -if (fornext_step_negative4433){ -if (fornext_value4433fornext_finalvalue4433) break; -} -fornext_error4433:; -if(qbevent){evnt(26070,4402,"ide_methods.bas");if(r)goto S_41093;} -do{ -*_FUNC_IDE2_LONG_X=string2i(func_mid(_FUNC_IDE2_STRING_MENULOCATIONS,(*_FUNC_IDE2_LONG_I* 2 )-( 1 ), 2 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4403,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_X2=string2i(func_mid(_FUNC_IDE2_STRING_MENULOCATIONS,(*_FUNC_IDE2_LONG_I* 2 )-( 1 ), 2 ,0|1))+((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check(( 0 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]]))->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4404,"ide_methods.bas");}while(r); -S_41096:; -if (((-(*__LONG_MX>=*_FUNC_IDE2_LONG_X))&(-(*__LONG_MX<*_FUNC_IDE2_LONG_X2)))||new_error){ -if(qbevent){evnt(26070,4405,"ide_methods.bas");if(r)goto S_41096;} -do{ -*_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_I; -if(!qbevent)break;evnt(26070,4406,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,4407,"ide_methods.bas");}while(r); -do{ -sub__printstring( 1 , 1 ,__STRING_MENUBAR,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4407,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,4408,"ide_methods.bas");}while(r); -do{ -goto LABEL_SHOWMENU; -if(!qbevent)break;evnt(26070,4409,"ide_methods.bas");}while(r); -} -fornext_continue_4432:; -} -fornext_exit_4432:; -} -do{ -*__LONG_KB= 27 ; -if(!qbevent)break;evnt(26070,4413,"ide_methods.bas");}while(r); -} -S_41107:; -if ((func__exit())||new_error){ -if(qbevent){evnt(26070,4416,"ide_methods.bas");if(r)goto S_41107;} -do{ -*__LONG_IDEEXIT= 1 ; -if(!qbevent)break;evnt(26070,4416,"ide_methods.bas");}while(r); -do{ -*__LONG_KB= 27 ; -if(!qbevent)break;evnt(26070,4416,"ide_methods.bas");}while(r); -} -S_41111:; -dl_continue_4427:; -}while((!(*__LONG_KB))&&(!new_error)); -dl_exit_4427:; -if(qbevent){evnt(26070,4417,"ide_methods.bas");if(r)goto S_41111;} -do{ -qbs_set(__STRING_K,qbs_ucase(__STRING_K)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4419,"ide_methods.bas");}while(r); -S_41113:; -if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_K->len> 0 ))&*__LONG_KCTRL))||new_error){ -if(qbevent){evnt(26070,4420,"ide_methods.bas");if(r)goto S_41113;} -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,4422,"ide_methods.bas");}while(r); -do{ -sub__printstring( 1 , 1 ,__STRING_MENUBAR,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4422,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,4423,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,4423,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,4424,"ide_methods.bas");}while(r); -} -S_41120:; -fornext_value4437= 1 ; -fornext_finalvalue4437=*__INTEGER_MENUS; -fornext_step4437= 1 ; -if (fornext_step4437<0) fornext_step_negative4437=1; else fornext_step_negative4437=0; -if (new_error) goto fornext_error4437; -goto fornext_entrylabel4437; -while(1){ -fornext_value4437=fornext_step4437+(*_FUNC_IDE2_LONG_I); -fornext_entrylabel4437: -*_FUNC_IDE2_LONG_I=fornext_value4437; -if (fornext_step_negative4437){ -if (fornext_value4437fornext_finalvalue4437) break; -} -fornext_error4437:; -if(qbevent){evnt(26070,4427,"ide_methods.bas");if(r)goto S_41120;} -do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_ucase(qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check(( 0 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4428,"ide_methods.bas");}while(r); -S_41122:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,_FUNC_IDE2_STRING_A)))||new_error){ -if(qbevent){evnt(26070,4429,"ide_methods.bas");if(r)goto S_41122;} -do{ -*_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_I; -if(!qbevent)break;evnt(26070,4430,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,4431,"ide_methods.bas");}while(r); -do{ -sub__printstring( 1 , 1 ,__STRING_MENUBAR,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4431,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,4432,"ide_methods.bas");}while(r); -do{ -goto LABEL_SHOWMENU; -if(!qbevent)break;evnt(26070,4433,"ide_methods.bas");}while(r); -} -fornext_continue_4436:; -} -fornext_exit_4436:; -S_41130:; -if ((-(*__LONG_KB== 19200 ))||new_error){ -if(qbevent){evnt(26070,4437,"ide_methods.bas");if(r)goto S_41130;} -do{ -*_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_M- 1 ; -if(!qbevent)break;evnt(26070,4437,"ide_methods.bas");}while(r); -} -S_41133:; -if ((-(*__LONG_KB== 19712 ))||new_error){ -if(qbevent){evnt(26070,4438,"ide_methods.bas");if(r)goto S_41133;} -do{ -*_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_M+ 1 ; -if(!qbevent)break;evnt(26070,4438,"ide_methods.bas");}while(r); -} -S_41136:; -if ((-(*__LONG_KB== 27 ))||new_error){ -if(qbevent){evnt(26070,4439,"ide_methods.bas");if(r)goto S_41136;} -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,4440,"ide_methods.bas");}while(r); -do{ -sub__printstring( 1 , 1 ,__STRING_MENUBAR,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4440,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_IDEINFO,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4441,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,4442,"ide_methods.bas");}while(r); -} -S_41142:; -if ((-(*_FUNC_IDE2_LONG_M< 1 ))||new_error){ -if(qbevent){evnt(26070,4444,"ide_methods.bas");if(r)goto S_41142;} -do{ -*_FUNC_IDE2_LONG_M=*__INTEGER_MENUS; -if(!qbevent)break;evnt(26070,4444,"ide_methods.bas");}while(r); -} -S_41145:; -if (((-(*_FUNC_IDE2_LONG_M>*__INTEGER_MENUS))&(-(*_FUNC_IDE2_LONG_IDECONTEXTUALMENU== 0 )))||new_error){ -if(qbevent){evnt(26070,4445,"ide_methods.bas");if(r)goto S_41145;} -do{ -*_FUNC_IDE2_LONG_M= 1 ; -if(!qbevent)break;evnt(26070,4445,"ide_methods.bas");}while(r); -} -S_41148:; -if (((-(*__LONG_KB== 18432 ))|(-(*__LONG_KB== 20480 ))|(-(*__LONG_KB== 13 )))||new_error){ -if(qbevent){evnt(26070,4446,"ide_methods.bas");if(r)goto S_41148;} -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,4447,"ide_methods.bas");}while(r); -do{ -sub__printstring( 1 , 1 ,__STRING_MENUBAR,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4447,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,4448,"ide_methods.bas");}while(r); -do{ -goto LABEL_SHOWMENU; -if(!qbevent)break;evnt(26070,4449,"ide_methods.bas");}while(r); -} -S_41154:; -if (((-(*__LONG_KB> 0 ))&(-(*__LONG_KB<= 255 )))||new_error){ -if(qbevent){evnt(26070,4453,"ide_methods.bas");if(r)goto S_41154;} -S_41155:; -if ((-(*__LONG_KALT== 0 ))||new_error){ -if(qbevent){evnt(26070,4454,"ide_methods.bas");if(r)goto S_41155;} -do{ -*__LONG_ICHECKLATER= 1 ; -if(!qbevent)break;evnt(26070,4455,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,4456,"ide_methods.bas");}while(r); -do{ -sub__printstring( 1 , 1 ,__STRING_MENUBAR,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4456,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,4457,"ide_methods.bas");}while(r); -} -} -dl_continue_4420:; -}while(1); -dl_exit_4420:; -LABEL_SHOWMENU:; -if(qbevent){evnt(26070,4465,"ide_methods.bas");r=0;} -do{ -*_FUNC_IDE2_LONG_ALTHELD= 1 ; -if(!qbevent)break;evnt(26070,4466,"ide_methods.bas");}while(r); -S_41164:; -if ((-(*__LONG_IDESYSTEM== 2 ))||new_error){ -if(qbevent){evnt(26070,4467,"ide_methods.bas");if(r)goto S_41164;} -do{ -*__LONG_IDESYSTEM= 1 ; -if(!qbevent)break;evnt(26070,4467,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=46; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_UPDATESEARCHBAR; -RETURN_46:; -if(!qbevent)break;evnt(26070,4467,"ide_methods.bas");}while(r); -} -do{ -sub_pcopy( 0 , 2 ); -if(!qbevent)break;evnt(26070,4468,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,4469,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_PARENTMENUR=*_FUNC_IDE2_LONG_R; -if(!qbevent)break;evnt(26070,4470,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_R= 1 ; -if(!qbevent)break;evnt(26070,4471,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_S= 0 ; -if(!qbevent)break;evnt(26070,4472,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_PARENTMENU= 0 ; -if(!qbevent)break;evnt(26070,4473,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_BYTE_PARENTMENUSETUP= 0 ; -if(!qbevent)break;evnt(26070,4474,"ide_methods.bas");}while(r); -S_41175:; -if(qbevent){evnt(26070,4475,"ide_methods.bas");if(r)goto S_41175;} -S_41176:; -if (((*_FUNC_IDE2_LONG_IDECONTEXTUALMENU==( 1 )))||new_error){ -if(qbevent){evnt(26070,4476,"ide_methods.bas");if(r)goto S_41176;} -do{ -*_FUNC_IDE2_LONG_IDECTXMENUX=*__LONG_MX; -if(!qbevent)break;evnt(26070,4478,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_IDECTXMENUY=*__LONG_MY; -if(!qbevent)break;evnt(26070,4479,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_M=*__INTEGER_IDECONTEXTUALMENUID; -if(!qbevent)break;evnt(26070,4480,"ide_methods.bas");}while(r); -sc_ec_220_end:; -goto sc_4438_end; -} -S_41180:; -if (((*_FUNC_IDE2_LONG_IDECONTEXTUALMENU==( 2 )))||new_error){ -if(qbevent){evnt(26070,4481,"ide_methods.bas");if(r)goto S_41180;} -do{ -*_FUNC_IDE2_LONG_IDECTXMENUX=*_FUNC_IDE2_LONG_XX+*_FUNC_IDE2_LONG_W+ 3 ; -if(!qbevent)break;evnt(26070,4483,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_IDECTXMENUY=*_FUNC_IDE2_LONG_YY+*_FUNC_IDE2_LONG_R; -if(!qbevent)break;evnt(26070,4484,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_PARENTMENU=*_FUNC_IDE2_LONG_M; -if(!qbevent)break;evnt(26070,4485,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_M=*__INTEGER_VIEWMENUSHOWLINENUMBERSSUBMENUID; -if(!qbevent)break;evnt(26070,4486,"ide_methods.bas");}while(r); -sc_ec_221_end:; -goto sc_4438_end; -} -S_41185:; -if (((*_FUNC_IDE2_LONG_IDECONTEXTUALMENU==( 3 )))||new_error){ -if(qbevent){evnt(26070,4487,"ide_methods.bas");if(r)goto S_41185;} -do{ -*_FUNC_IDE2_LONG_IDECTXMENUX=*_FUNC_IDE2_LONG_XX+*_FUNC_IDE2_LONG_W+ 3 ; -if(!qbevent)break;evnt(26070,4489,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_IDECTXMENUY=*_FUNC_IDE2_LONG_YY+*_FUNC_IDE2_LONG_R+ 4 ; -if(!qbevent)break;evnt(26070,4490,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_PARENTMENU=*_FUNC_IDE2_LONG_M; -if(!qbevent)break;evnt(26070,4491,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_M=*__INTEGER_FILEMENUEXPORTASSUBMENUID; -if(!qbevent)break;evnt(26070,4492,"ide_methods.bas");}while(r); -sc_ec_222_end:; -goto sc_4438_end; -} -sc_4438_end:; -do{ -SUB_IDEMAKEEDITMENU(); -if(!qbevent)break;evnt(26070,4495,"ide_methods.bas");}while(r); -S_41192:; -if ((-(*__LONG_TOTALWARNINGS== 0 ))||new_error){ -if(qbevent){evnt(26070,4497,"ide_methods.bas");if(r)goto S_41192;} -do{ -tmp_long=array_check((*__INTEGER_VIEWMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_VIEWMENUCOMPILERWARNINGS)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("~Compiler #Warnings... Ctrl+W",30)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4498,"ide_methods.bas");}while(r); -}else{ -do{ -tmp_long=array_check((*__INTEGER_VIEWMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_VIEWMENUCOMPILERWARNINGS)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Compiler #Warnings... Ctrl+W",29)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4500,"ide_methods.bas");}while(r); -} -S_41197:; -if ((-(*__LONG_CALLSTACKLENGTH== 0 ))||new_error){ -if(qbevent){evnt(26070,4503,"ide_methods.bas");if(r)goto S_41197;} -do{ -tmp_long=array_check((*__INTEGER_DEBUGMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_DEBUGMENUCALLSTACK)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("~Call #Stack... F12",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4504,"ide_methods.bas");}while(r); -}else{ -do{ -tmp_long=array_check((*__INTEGER_DEBUGMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_DEBUGMENUCALLSTACK)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Call #Stack... F12",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4506,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDE2_LONG_OLDMY=*__LONG_MY; -if(!qbevent)break;evnt(26070,4509,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_OLDMX=*__LONG_MX; -if(!qbevent)break;evnt(26070,4509,"ide_methods.bas");}while(r); -S_41204:; -do{ -if(qbevent){evnt(26070,4510,"ide_methods.bas");if(r)goto S_41204;} -do{ -sub_pcopy( 2 , 1 ); -if(!qbevent)break;evnt(26070,4511,"ide_methods.bas");}while(r); -S_41206:; -if ((-(*_FUNC_IDE2_LONG_IDECONTEXTUALMENU== 0 ))||new_error){ -if(qbevent){evnt(26070,4513,"ide_methods.bas");if(r)goto S_41206;} -do{ -*_FUNC_IDE2_LONG_X= 4 ; -if(!qbevent)break;evnt(26070,4515,"ide_methods.bas");}while(r); -S_41208:; -fornext_value4441= 1 ; -fornext_finalvalue4441=*_FUNC_IDE2_LONG_M- 1 ; -fornext_step4441= 1 ; -if (fornext_step4441<0) fornext_step_negative4441=1; else fornext_step_negative4441=0; -if (new_error) goto fornext_error4441; -goto fornext_entrylabel4441; -while(1){ -fornext_value4441=fornext_step4441+(*_FUNC_IDE2_LONG_I); -fornext_entrylabel4441: -*_FUNC_IDE2_LONG_I=fornext_value4441; -if (fornext_step_negative4441){ -if (fornext_value4441fornext_finalvalue4441) break; -} -fornext_error4441:; -if(qbevent){evnt(26070,4515,"ide_methods.bas");if(r)goto S_41208;} -do{ -*_FUNC_IDE2_LONG_X=*_FUNC_IDE2_LONG_X+((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check(( 0 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]]))->len+ 2 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4515,"ide_methods.bas");}while(r); -S_41210:; -if ((-(*_FUNC_IDE2_LONG_I==(*__INTEGER_MENUS- 1 )))||new_error){ -if(qbevent){evnt(26070,4516,"ide_methods.bas");if(r)goto S_41210;} -do{ -*_FUNC_IDE2_LONG_X=*__LONG_IDEWX-((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*__INTEGER_MENUS)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check(( 0 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]]))->len- 1 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4516,"ide_methods.bas");}while(r); -} -fornext_continue_4440:; -} -fornext_exit_4440:; -do{ -*_FUNC_IDE2_LONG_XX=*_FUNC_IDE2_LONG_X; -if(!qbevent)break;evnt(26070,4517,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 7 , 0 ,NULL,3); -if(!qbevent)break;evnt(26070,4518,"ide_methods.bas");}while(r); -do{ -sub__printstring(*_FUNC_IDE2_LONG_XX- 1 , 1 ,qbs_add(qbs_add(qbs_new_txt_len(" ",1),((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check(( 0 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]]))),qbs_new_txt_len(" ",1)),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4518,"ide_methods.bas");}while(r); -}else{ -S_41218:; -if (((-(*_FUNC_IDE2_LONG_PARENTMENU> 0 ))&(-(*_FUNC_IDE2_BYTE_PARENTMENUSETUP== 0 )))||new_error){ -if(qbevent){evnt(26070,4520,"ide_methods.bas");if(r)goto S_41218;} -do{ -*_FUNC_IDE2_BYTE_PARENTMENUSETUP= -1 ; -if(!qbevent)break;evnt(26070,4521,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_BACKTOPARENT__ASCII_CHR_046__X1=*_FUNC_IDE2_LONG_XX- 1 ; -if(!qbevent)break;evnt(26070,4522,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_BACKTOPARENT__ASCII_CHR_046__X2=*_FUNC_IDE2_LONG_XX+*_FUNC_IDE2_LONG_W; -if(!qbevent)break;evnt(26070,4523,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_BACKTOPARENT__ASCII_CHR_046__Y1= 3 ; -if(!qbevent)break;evnt(26070,4524,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_BACKTOPARENT__ASCII_CHR_046__Y2=*_FUNC_IDE2_LONG_BACKTOPARENT__ASCII_CHR_046__Y1+((int32*)(__ARRAY_LONG_MENUSIZE[0]))[array_check((*_FUNC_IDE2_LONG_PARENTMENU)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5])]; -if(!qbevent)break;evnt(26070,4525,"ide_methods.bas");}while(r); -} -} -do{ -*_FUNC_IDE2_LONG_W= 0 ; -if(!qbevent)break;evnt(26070,4529,"ide_methods.bas");}while(r); -S_41227:; -fornext_value4445= 1 ; -fornext_finalvalue4445=((int32*)(__ARRAY_LONG_MENUSIZE[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5])]; -fornext_step4445= 1 ; -if (fornext_step4445<0) fornext_step_negative4445=1; else fornext_step_negative4445=0; -if (new_error) goto fornext_error4445; -goto fornext_entrylabel4445; -while(1){ -fornext_value4445=fornext_step4445+(*_FUNC_IDE2_LONG_I); -fornext_entrylabel4445: -*_FUNC_IDE2_LONG_I=fornext_value4445; -if (fornext_step_negative4445){ -if (fornext_value4445fornext_finalvalue4445) break; -} -fornext_error4445:; -if(qbevent){evnt(26070,4530,"ide_methods.bas");if(r)goto S_41227;} -do{ -qbs_set(_FUNC_IDE2_STRING_M,((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4531,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_L=_FUNC_IDE2_STRING_M->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4532,"ide_methods.bas");}while(r); -S_41230:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_IDE2_STRING_M,qbs_new_txt_len("#",1),0)))||new_error){ -if(qbevent){evnt(26070,4533,"ide_methods.bas");if(r)goto S_41230;} -do{ -*_FUNC_IDE2_LONG_L=*_FUNC_IDE2_LONG_L- 1 ; -if(!qbevent)break;evnt(26070,4533,"ide_methods.bas");}while(r); -} -S_41233:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_IDE2_STRING_M, 1 ),qbs_new_txt_len("~",1))))||new_error){ -if(qbevent){evnt(26070,4534,"ide_methods.bas");if(r)goto S_41233;} -do{ -*_FUNC_IDE2_LONG_L=*_FUNC_IDE2_LONG_L- 1 ; -if(!qbevent)break;evnt(26070,4534,"ide_methods.bas");}while(r); -} -S_41236:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_IDE2_STRING_M, 1 ),func_chr( 7 ))))||new_error){ -if(qbevent){evnt(26070,4535,"ide_methods.bas");if(r)goto S_41236;} -do{ -*_FUNC_IDE2_LONG_L=*_FUNC_IDE2_LONG_L- 1 ; -if(!qbevent)break;evnt(26070,4535,"ide_methods.bas");}while(r); -} -S_41239:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_IDE2_STRING_M,qbs_new_txt_len(" ",2),0)))||new_error){ -if(qbevent){evnt(26070,4536,"ide_methods.bas");if(r)goto S_41239;} -do{ -*_FUNC_IDE2_LONG_L=*_FUNC_IDE2_LONG_L+ 2 ; -if(!qbevent)break;evnt(26070,4536,"ide_methods.bas");}while(r); -} -S_41242:; -if ((-(*_FUNC_IDE2_LONG_L>*_FUNC_IDE2_LONG_W))||new_error){ -if(qbevent){evnt(26070,4537,"ide_methods.bas");if(r)goto S_41242;} -do{ -*_FUNC_IDE2_LONG_W=*_FUNC_IDE2_LONG_L; -if(!qbevent)break;evnt(26070,4537,"ide_methods.bas");}while(r); -} -fornext_continue_4444:; -} -fornext_exit_4444:; -do{ -*_FUNC_IDE2_LONG_YY= 2 ; -if(!qbevent)break;evnt(26070,4539,"ide_methods.bas");}while(r); -S_41247:; -if ((-(*_FUNC_IDE2_LONG_IDECONTEXTUALMENU> 0 ))||new_error){ -if(qbevent){evnt(26070,4540,"ide_methods.bas");if(r)goto S_41247;} -do{ -*_FUNC_IDE2_LONG_ACTUAL__ASCII_CHR_046__IDEWY=*__LONG_IDEWY; -if(!qbevent)break;evnt(26070,4541,"ide_methods.bas");}while(r); -S_41249:; -if ((-(*__LONG_IDESUBWINDOW!= 0 ))||new_error){ -if(qbevent){evnt(26070,4542,"ide_methods.bas");if(r)goto S_41249;} -do{ -*_FUNC_IDE2_LONG_ACTUAL__ASCII_CHR_046__IDEWY=*__LONG_IDEWY+*__LONG_IDESUBWINDOW; -if(!qbevent)break;evnt(26070,4543,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDE2_LONG_XX=*_FUNC_IDE2_LONG_IDECTXMENUX; -if(!qbevent)break;evnt(26070,4545,"ide_methods.bas");}while(r); -S_41253:; -if ((-(*_FUNC_IDE2_LONG_XX< 3 ))||new_error){ -if(qbevent){evnt(26070,4546,"ide_methods.bas");if(r)goto S_41253;} -do{ -*_FUNC_IDE2_LONG_XX= 3 ; -if(!qbevent)break;evnt(26070,4546,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDE2_LONG_YY=*_FUNC_IDE2_LONG_IDECTXMENUY; -if(!qbevent)break;evnt(26070,4547,"ide_methods.bas");}while(r); -S_41257:; -if ((-((*_FUNC_IDE2_LONG_YY+((int32*)(__ARRAY_LONG_MENUSIZE[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5])]+ 2 )>*_FUNC_IDE2_LONG_ACTUAL__ASCII_CHR_046__IDEWY))||new_error){ -if(qbevent){evnt(26070,4548,"ide_methods.bas");if(r)goto S_41257;} -do{ -*_FUNC_IDE2_LONG_YY=*_FUNC_IDE2_LONG_ACTUAL__ASCII_CHR_046__IDEWY- 2 -((int32*)(__ARRAY_LONG_MENUSIZE[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5])]; -if(!qbevent)break;evnt(26070,4548,"ide_methods.bas");}while(r); -} -} -S_41261:; -if ((-(*_FUNC_IDE2_LONG_XX>(*__LONG_IDEWX-*_FUNC_IDE2_LONG_W- 3 )))||new_error){ -if(qbevent){evnt(26070,4550,"ide_methods.bas");if(r)goto S_41261;} -do{ -*_FUNC_IDE2_LONG_XX=*__LONG_IDEWX-*_FUNC_IDE2_LONG_W- 3 ; -if(!qbevent)break;evnt(26070,4550,"ide_methods.bas");}while(r); -} -do{ -SUB_UPDATEMENUHELPLINE(((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_R)-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4552,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,4554,"ide_methods.bas");}while(r); -do{ -SUB_IDEBOXSHADOW(&(pass4447=*_FUNC_IDE2_LONG_XX- 2 ),_FUNC_IDE2_LONG_YY,&(pass4448=*_FUNC_IDE2_LONG_W+ 4 ),&(pass4449=((int32*)(__ARRAY_LONG_MENUSIZE[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5])]+ 2 )); -if(!qbevent)break;evnt(26070,4555,"ide_methods.bas");}while(r); -S_41267:; -fornext_value4451= 1 ; -fornext_finalvalue4451=((int32*)(__ARRAY_LONG_MENUSIZE[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5])]; -fornext_step4451= 1 ; -if (fornext_step4451<0) fornext_step_negative4451=1; else fornext_step_negative4451=0; -if (new_error) goto fornext_error4451; -goto fornext_entrylabel4451; -while(1){ -fornext_value4451=fornext_step4451+(*_FUNC_IDE2_LONG_I); -fornext_entrylabel4451: -*_FUNC_IDE2_LONG_I=fornext_value4451; -if (fornext_step_negative4451){ -if (fornext_value4451fornext_finalvalue4451) break; -} -fornext_error4451:; -if(qbevent){evnt(26070,4558,"ide_methods.bas");if(r)goto S_41267;} -do{ -qbs_set(_FUNC_IDE2_STRING_M,((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4559,"ide_methods.bas");}while(r); -S_41269:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_M,qbs_new_txt_len("-",1))))||new_error){ -if(qbevent){evnt(26070,4560,"ide_methods.bas");if(r)goto S_41269;} -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,4561,"ide_methods.bas");}while(r); -do{ -sub__printstring(*_FUNC_IDE2_LONG_XX- 2 ,*_FUNC_IDE2_LONG_I+*_FUNC_IDE2_LONG_YY,qbs_add(qbs_add(func_chr( 195 ),func_string(*_FUNC_IDE2_LONG_W+ 2 ,(func_chr( 196 )->chr[0]))),func_chr( 180 )),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4561,"ide_methods.bas");}while(r); -S_41272:; -}else{ -if (qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_IDE2_STRING_M, 1 ),qbs_new_txt_len("~",1)))){ -if(qbevent){evnt(26070,4562,"ide_methods.bas");if(r)goto S_41272;} -do{ -qbs_set(_FUNC_IDE2_STRING_M,qbs_right(_FUNC_IDE2_STRING_M,_FUNC_IDE2_STRING_M->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4563,"ide_methods.bas");}while(r); -S_41274:; -if ((-(*_FUNC_IDE2_LONG_R==*_FUNC_IDE2_LONG_I))||new_error){ -if(qbevent){evnt(26070,4564,"ide_methods.bas");if(r)goto S_41274;} -do{ -qbg_sub_color( 7 , 0 ,NULL,3); -if(!qbevent)break;evnt(26070,4564,"ide_methods.bas");}while(r); -do{ -sub__printstring(*_FUNC_IDE2_LONG_XX- 1 ,*_FUNC_IDE2_LONG_I+*_FUNC_IDE2_LONG_YY,func_space(*_FUNC_IDE2_LONG_W+ 2 ),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4564,"ide_methods.bas");}while(r); -} -S_41278:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_IDE2_STRING_M, 1 ),func_chr( 7 ))))||new_error){ -if(qbevent){evnt(26070,4565,"ide_methods.bas");if(r)goto S_41278;} -do{ -qbg_sub_locate(*_FUNC_IDE2_LONG_I+*_FUNC_IDE2_LONG_YY,*_FUNC_IDE2_LONG_XX- 1 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(26070,4565,"ide_methods.bas");}while(r); -}else{ -do{ -qbg_sub_locate(*_FUNC_IDE2_LONG_I+*_FUNC_IDE2_LONG_YY,*_FUNC_IDE2_LONG_XX,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(26070,4565,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDE2_LONG_H= -1 ; -if(!qbevent)break;evnt(26070,4566,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_X=func_instr(NULL,_FUNC_IDE2_STRING_M,qbs_new_txt_len("#",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4566,"ide_methods.bas");}while(r); -S_41285:; -if ((*_FUNC_IDE2_LONG_X)||new_error){ -if(qbevent){evnt(26070,4566,"ide_methods.bas");if(r)goto S_41285;} -do{ -*_FUNC_IDE2_LONG_H=*_FUNC_IDE2_LONG_X; -if(!qbevent)break;evnt(26070,4566,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_M,qbs_add(qbs_left(_FUNC_IDE2_STRING_M,*_FUNC_IDE2_LONG_X- 1 ),qbs_right(_FUNC_IDE2_STRING_M,_FUNC_IDE2_STRING_M->len-*_FUNC_IDE2_LONG_X))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4566,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDE2_LONG_X=func_instr(NULL,_FUNC_IDE2_STRING_M,qbs_new_txt_len(" ",2),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4567,"ide_methods.bas");}while(r); -S_41290:; -if ((*_FUNC_IDE2_LONG_X)||new_error){ -if(qbevent){evnt(26070,4567,"ide_methods.bas");if(r)goto S_41290;} -do{ -qbs_set(_FUNC_IDE2_STRING_M1,qbs_left(_FUNC_IDE2_STRING_M,*_FUNC_IDE2_LONG_X- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4567,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_M2,qbs_right(_FUNC_IDE2_STRING_M,_FUNC_IDE2_STRING_M->len-*_FUNC_IDE2_LONG_X- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4567,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_M,qbs_add(qbs_add(_FUNC_IDE2_STRING_M1,func_space(*_FUNC_IDE2_LONG_W-_FUNC_IDE2_STRING_M1->len-_FUNC_IDE2_STRING_M2->len)),_FUNC_IDE2_STRING_M2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4567,"ide_methods.bas");}while(r); -} -S_41295:; -fornext_value4458= 1 ; -fornext_finalvalue4458=_FUNC_IDE2_STRING_M->len; -fornext_step4458= 1 ; -if (fornext_step4458<0) fornext_step_negative4458=1; else fornext_step_negative4458=0; -if (new_error) goto fornext_error4458; -goto fornext_entrylabel4458; -while(1){ -fornext_value4458=fornext_step4458+(*_FUNC_IDE2_LONG_X); -fornext_entrylabel4458: -*_FUNC_IDE2_LONG_X=fornext_value4458; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative4458){ -if (fornext_value4458fornext_finalvalue4458) break; -} -fornext_error4458:; -if(qbevent){evnt(26070,4568,"ide_methods.bas");if(r)goto S_41295;} -S_41296:; -if ((-(*_FUNC_IDE2_LONG_R==*_FUNC_IDE2_LONG_I))||new_error){ -if(qbevent){evnt(26070,4569,"ide_methods.bas");if(r)goto S_41296;} -do{ -qbg_sub_color( 2 , 0 ,NULL,3); -if(!qbevent)break;evnt(26070,4569,"ide_methods.bas");}while(r); -}else{ -do{ -qbg_sub_color( 2 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,4569,"ide_methods.bas");}while(r); -} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_mid(_FUNC_IDE2_STRING_M,*_FUNC_IDE2_LONG_X, 1 ,0|1)); -if (new_error) goto skip4460; -makefit(tqbs); -qbs_print(tqbs,0); -skip4460: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4570,"ide_methods.bas");}while(r); -fornext_continue_4457:; -} -fornext_exit_4457:; -}else{ -S_41304:; -if ((-(*_FUNC_IDE2_LONG_R==*_FUNC_IDE2_LONG_I))||new_error){ -if(qbevent){evnt(26070,4573,"ide_methods.bas");if(r)goto S_41304;} -do{ -qbg_sub_color( 7 , 0 ,NULL,3); -if(!qbevent)break;evnt(26070,4573,"ide_methods.bas");}while(r); -do{ -sub__printstring(*_FUNC_IDE2_LONG_XX- 1 ,*_FUNC_IDE2_LONG_I+*_FUNC_IDE2_LONG_YY,func_space(*_FUNC_IDE2_LONG_W+ 2 ),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4573,"ide_methods.bas");}while(r); -} -S_41308:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_IDE2_STRING_M, 1 ),func_chr( 7 ))))||new_error){ -if(qbevent){evnt(26070,4574,"ide_methods.bas");if(r)goto S_41308;} -do{ -qbg_sub_locate(*_FUNC_IDE2_LONG_I+*_FUNC_IDE2_LONG_YY,*_FUNC_IDE2_LONG_XX- 1 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(26070,4574,"ide_methods.bas");}while(r); -}else{ -do{ -qbg_sub_locate(*_FUNC_IDE2_LONG_I+*_FUNC_IDE2_LONG_YY,*_FUNC_IDE2_LONG_XX,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(26070,4574,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDE2_LONG_H= -1 ; -if(!qbevent)break;evnt(26070,4575,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_X=func_instr(NULL,_FUNC_IDE2_STRING_M,qbs_new_txt_len("#",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4575,"ide_methods.bas");}while(r); -S_41315:; -if ((*_FUNC_IDE2_LONG_X)||new_error){ -if(qbevent){evnt(26070,4575,"ide_methods.bas");if(r)goto S_41315;} -do{ -*_FUNC_IDE2_LONG_H=*_FUNC_IDE2_LONG_X; -if(!qbevent)break;evnt(26070,4575,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_M,qbs_add(qbs_left(_FUNC_IDE2_STRING_M,*_FUNC_IDE2_LONG_X- 1 ),qbs_right(_FUNC_IDE2_STRING_M,_FUNC_IDE2_STRING_M->len-*_FUNC_IDE2_LONG_X))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4575,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDE2_LONG_X=func_instr(NULL,_FUNC_IDE2_STRING_M,qbs_new_txt_len(" ",2),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4576,"ide_methods.bas");}while(r); -S_41320:; -if ((*_FUNC_IDE2_LONG_X)||new_error){ -if(qbevent){evnt(26070,4576,"ide_methods.bas");if(r)goto S_41320;} -do{ -qbs_set(_FUNC_IDE2_STRING_M1,qbs_left(_FUNC_IDE2_STRING_M,*_FUNC_IDE2_LONG_X- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4576,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_M2,qbs_right(_FUNC_IDE2_STRING_M,_FUNC_IDE2_STRING_M->len-*_FUNC_IDE2_LONG_X- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4576,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_M,qbs_add(qbs_add(_FUNC_IDE2_STRING_M1,func_space(*_FUNC_IDE2_LONG_W-_FUNC_IDE2_STRING_M1->len-_FUNC_IDE2_STRING_M2->len)),_FUNC_IDE2_STRING_M2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4576,"ide_methods.bas");}while(r); -} -S_41325:; -fornext_value4466= 1 ; -fornext_finalvalue4466=_FUNC_IDE2_STRING_M->len; -fornext_step4466= 1 ; -if (fornext_step4466<0) fornext_step_negative4466=1; else fornext_step_negative4466=0; -if (new_error) goto fornext_error4466; -goto fornext_entrylabel4466; -while(1){ -fornext_value4466=fornext_step4466+(*_FUNC_IDE2_LONG_X); -fornext_entrylabel4466: -*_FUNC_IDE2_LONG_X=fornext_value4466; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative4466){ -if (fornext_value4466fornext_finalvalue4466) break; -} -fornext_error4466:; -if(qbevent){evnt(26070,4577,"ide_methods.bas");if(r)goto S_41325;} -S_41326:; -if ((-(*_FUNC_IDE2_LONG_X==*_FUNC_IDE2_LONG_H))||new_error){ -if(qbevent){evnt(26070,4578,"ide_methods.bas");if(r)goto S_41326;} -S_41327:; -if ((-(*_FUNC_IDE2_LONG_R==*_FUNC_IDE2_LONG_I))||new_error){ -if(qbevent){evnt(26070,4579,"ide_methods.bas");if(r)goto S_41327;} -do{ -qbg_sub_color( 15 , 0 ,NULL,3); -if(!qbevent)break;evnt(26070,4579,"ide_methods.bas");}while(r); -}else{ -do{ -qbg_sub_color( 15 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,4579,"ide_methods.bas");}while(r); -} -}else{ -S_41333:; -if ((-(*_FUNC_IDE2_LONG_R==*_FUNC_IDE2_LONG_I))||new_error){ -if(qbevent){evnt(26070,4581,"ide_methods.bas");if(r)goto S_41333;} -do{ -qbg_sub_color( 7 , 0 ,NULL,3); -if(!qbevent)break;evnt(26070,4581,"ide_methods.bas");}while(r); -}else{ -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,4581,"ide_methods.bas");}while(r); -} -} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_mid(_FUNC_IDE2_STRING_M,*_FUNC_IDE2_LONG_X, 1 ,0|1)); -if (new_error) goto skip4468; -makefit(tqbs); -qbs_print(tqbs,0); -skip4468: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4583,"ide_methods.bas");}while(r); -fornext_continue_4465:; -} -fornext_exit_4465:; -} -} -fornext_continue_4450:; -} -fornext_exit_4450:; -do{ -sub_pcopy( 1 , 0 ); -if(!qbevent)break;evnt(26070,4588,"ide_methods.bas");}while(r); -S_41344:; -if ((*_FUNC_IDE2_LONG_S)||new_error){ -if(qbevent){evnt(26070,4590,"ide_methods.bas");if(r)goto S_41344;} -do{ -goto LABEL_MENUCHOICEMADE; -if(!qbevent)break;evnt(26070,4590,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDE2_BYTE_UPDATEMENUPANEL= 0 ; -if(!qbevent)break;evnt(26070,4592,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_CHANGE= 0 ; -if(!qbevent)break;evnt(26070,4593,"ide_methods.bas");}while(r); -S_41349:; -do{ -if(qbevent){evnt(26070,4594,"ide_methods.bas");if(r)goto S_41349;} -do{ -*_FUNC_IDE2_LONG_MOUSEDOWN= 0 ; -if(!qbevent)break;evnt(26070,4595,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_MOUSEUP= 0 ; -if(!qbevent)break;evnt(26070,4595,"ide_methods.bas");}while(r); -do{ -SUB_GETINPUT(); -if(!qbevent)break;evnt(26070,4596,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_LASTALTHELD=*_FUNC_IDE2_LONG_ALTHELD; -if(!qbevent)break;evnt(26070,4597,"ide_methods.bas");}while(r); -S_41354:; -if ((*__LONG_KALT)||new_error){ -if(qbevent){evnt(26070,4597,"ide_methods.bas");if(r)goto S_41354;} -do{ -*_FUNC_IDE2_LONG_ALTHELD= 1 ; -if(!qbevent)break;evnt(26070,4597,"ide_methods.bas");}while(r); -}else{ -do{ -*_FUNC_IDE2_LONG_ALTHELD= 0 ; -if(!qbevent)break;evnt(26070,4597,"ide_methods.bas");}while(r); -} -S_41359:; -if ((*__LONG_ICHANGED)||new_error){ -if(qbevent){evnt(26070,4598,"ide_methods.bas");if(r)goto S_41359;} -S_41360:; -if ((*__LONG_KB)||new_error){ -if(qbevent){evnt(26070,4599,"ide_methods.bas");if(r)goto S_41360;} -do{ -*_FUNC_IDE2_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,4599,"ide_methods.bas");}while(r); -} -S_41363:; -if ((*__LONG_MCLICK)||new_error){ -if(qbevent){evnt(26070,4600,"ide_methods.bas");if(r)goto S_41363;} -do{ -*_FUNC_IDE2_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,4600,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_MOUSEDOWN= 1 ; -if(!qbevent)break;evnt(26070,4600,"ide_methods.bas");}while(r); -} -S_41367:; -if ((*__LONG_MCLICK2)||new_error){ -if(qbevent){evnt(26070,4601,"ide_methods.bas");if(r)goto S_41367;} -do{ -*_FUNC_IDE2_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,4601,"ide_methods.bas");}while(r); -} -S_41370:; -if ((*__LONG_MRELEASE)||new_error){ -if(qbevent){evnt(26070,4602,"ide_methods.bas");if(r)goto S_41370;} -do{ -*_FUNC_IDE2_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,4602,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_MOUSEUP= 1 ; -if(!qbevent)break;evnt(26070,4602,"ide_methods.bas");}while(r); -} -S_41374:; -if ((*__LONG_MWHEEL)||new_error){ -if(qbevent){evnt(26070,4603,"ide_methods.bas");if(r)goto S_41374;} -do{ -*_FUNC_IDE2_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,4603,"ide_methods.bas");}while(r); -} -S_41377:; -if ((*__LONG_MX)||new_error){ -if(qbevent){evnt(26070,4604,"ide_methods.bas");if(r)goto S_41377;} -do{ -*_FUNC_IDE2_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,4604,"ide_methods.bas");}while(r); -} -S_41380:; -if ((*__LONG_MY)||new_error){ -if(qbevent){evnt(26070,4605,"ide_methods.bas");if(r)goto S_41380;} -do{ -*_FUNC_IDE2_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,4605,"ide_methods.bas");}while(r); -} -} -S_41384:; -if ((*__LONG_MB)||new_error){ -if(qbevent){evnt(26070,4607,"ide_methods.bas");if(r)goto S_41384;} -do{ -*_FUNC_IDE2_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,4607,"ide_methods.bas");}while(r); -} -S_41387:; -if (((-(*_FUNC_IDE2_LONG_ALTHELD!= 0 ))&(-(*_FUNC_IDE2_LONG_LASTALTHELD== 0 )))||new_error){ -if(qbevent){evnt(26070,4609,"ide_methods.bas");if(r)goto S_41387;} -S_41388:; -do{ -if(qbevent){evnt(26070,4610,"ide_methods.bas");if(r)goto S_41388;} -do{ -sub__limit( 100 ); -if(!qbevent)break;evnt(26070,4611,"ide_methods.bas");}while(r); -do{ -SUB_GETINPUT(); -if(!qbevent)break;evnt(26070,4612,"ide_methods.bas");}while(r); -S_41391:; -if ((qbs_cleanup(qbs_tmp_base,(-(func__hasfocus()== 0 ))&(((qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3)))|(-(*__LONG_MACOSX== 1 ))))))||new_error){ -if(qbevent){evnt(26070,4613,"ide_methods.bas");if(r)goto S_41391;} -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,4614,"ide_methods.bas");}while(r); -do{ -sub__printstring( 1 , 1 ,__STRING_MENUBAR,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4614,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,4615,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,4615,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,4616,"ide_methods.bas");}while(r); -} -S_41398:; -if ((((-(func__resize()!= 0 )))&(-(*__LONG_IDEDEBUGMODE!= 2 )))||new_error){ -if(qbevent){evnt(26070,4619,"ide_methods.bas");if(r)goto S_41398;} -do{ -*_FUNC_IDE2_LONG_FORCERESIZE= -1 ; -if(!qbevent)break;evnt(26070,4620,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_SKIPDISPLAY= 0 ; -if(!qbevent)break;evnt(26070,4620,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,4620,"ide_methods.bas");}while(r); -} -S_41403:; -dl_continue_4470:; -}while((!(-(*__LONG_KALT== 0 )))&&(!new_error)); -dl_exit_4470:; -if(qbevent){evnt(26070,4622,"ide_methods.bas");if(r)goto S_41403;} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,4623,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,4623,"ide_methods.bas");}while(r); -do{ -goto LABEL_STARTMENU2; -if(!qbevent)break;evnt(26070,4624,"ide_methods.bas");}while(r); -} -S_41408:; -if ((func__exit())||new_error){ -if(qbevent){evnt(26070,4626,"ide_methods.bas");if(r)goto S_41408;} -S_41409:; -if ((-(*__LONG_IDEDEBUGMODE== 2 ))||new_error){ -if(qbevent){evnt(26070,4627,"ide_methods.bas");if(r)goto S_41409;} -do{ -*__LONG_IDEDEBUGMODE= 9 ; -if(!qbevent)break;evnt(26070,4628,"ide_methods.bas");}while(r); -do{ -goto LABEL_ENTERDEBUGMODE; -if(!qbevent)break;evnt(26070,4628,"ide_methods.bas");}while(r); -}else{ -do{ -*__LONG_IDEEXIT= 1 ; -if(!qbevent)break;evnt(26070,4630,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,4630,"ide_methods.bas");}while(r); -} -} -S_41417:; -if ((qbs_cleanup(qbs_tmp_base,(-(func__hasfocus()== 0 ))&(((qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3)))|(-(*__LONG_MACOSX== 1 ))))))||new_error){ -if(qbevent){evnt(26070,4633,"ide_methods.bas");if(r)goto S_41417;} -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,4634,"ide_methods.bas");}while(r); -do{ -sub__printstring( 1 , 1 ,__STRING_MENUBAR,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4634,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,4635,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,4635,"ide_methods.bas");}while(r); -S_41422:; -if ((-(*__LONG_IDEDEBUGMODE== 2 ))||new_error){ -if(qbevent){evnt(26070,4636,"ide_methods.bas");if(r)goto S_41422;} -do{ -goto LABEL_ENTERDEBUGMODE; -if(!qbevent)break;evnt(26070,4636,"ide_methods.bas");}while(r); -} -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,4637,"ide_methods.bas");}while(r); -} -S_41427:; -if ((((-(func__resize()!= 0 )))&(-(*__LONG_IDEDEBUGMODE!= 2 )))||new_error){ -if(qbevent){evnt(26070,4639,"ide_methods.bas");if(r)goto S_41427;} -do{ -*_FUNC_IDE2_LONG_FORCERESIZE= -1 ; -if(!qbevent)break;evnt(26070,4640,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_SKIPDISPLAY= 0 ; -if(!qbevent)break;evnt(26070,4640,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,4640,"ide_methods.bas");}while(r); -} -do{ -sub__limit( 100 ); -if(!qbevent)break;evnt(26070,4642,"ide_methods.bas");}while(r); -S_41433:; -dl_continue_4469:; -}while((!(*_FUNC_IDE2_LONG_CHANGE))&&(!new_error)); -dl_exit_4469:; -if(qbevent){evnt(26070,4643,"ide_methods.bas");if(r)goto S_41433;} -do{ -*_FUNC_IDE2_LONG_S= 0 ; -if(!qbevent)break;evnt(26070,4645,"ide_methods.bas");}while(r); -S_41435:; -if ((*__LONG_MWHEEL)||new_error){ -if(qbevent){evnt(26070,4647,"ide_methods.bas");if(r)goto S_41435;} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,4648,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,4648,"ide_methods.bas");}while(r); -S_41438:; -if ((-(*__LONG_IDEDEBUGMODE== 2 ))||new_error){ -if(qbevent){evnt(26070,4649,"ide_methods.bas");if(r)goto S_41438;} -do{ -goto LABEL_ENTERDEBUGMODE; -if(!qbevent)break;evnt(26070,4649,"ide_methods.bas");}while(r); -} -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,4650,"ide_methods.bas");}while(r); -} -S_41443:; -if ((*__LONG_MCLICK2&(-(*_FUNC_IDE2_LONG_IDECONTEXTUALMENU== 1 )))||new_error){ -if(qbevent){evnt(26070,4653,"ide_methods.bas");if(r)goto S_41443;} -S_41444:; -if ((((-(*__LONG_MX> 1 ))&(-(*__LONG_MX<*__LONG_IDEWX))&(-(*__LONG_MY> 2 ))&(-(*__LONG_MY<(*__LONG_IDEWY- 5 ))))|((-(*__LONG_MY>=*__LONG_IDEWY))&(-(*__LONG_MY<(*__LONG_IDEWY+*__LONG_IDESUBWINDOW)))))||new_error){ -if(qbevent){evnt(26070,4655,"ide_methods.bas");if(r)goto S_41444;} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,4656,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,4656,"ide_methods.bas");}while(r); -S_41447:; -if ((-(*__LONG_IDEDEBUGMODE== 2 ))||new_error){ -if(qbevent){evnt(26070,4657,"ide_methods.bas");if(r)goto S_41447;} -do{ -*_FUNC_IDE2_LONG_BKPIDECY=*__LONG_IDECY; -if(!qbevent)break;evnt(26070,4658,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECY=*__LONG_MY- 2 +*__LONG_IDESY- 1 ; -if(!qbevent)break;evnt(26070,4659,"ide_methods.bas");}while(r); -S_41450:; -if ((-(*__LONG_IDECY>*__LONG_IDEN))||new_error){ -if(qbevent){evnt(26070,4660,"ide_methods.bas");if(r)goto S_41450;} -do{ -*__LONG_IDECY=*__LONG_IDEN; -if(!qbevent)break;evnt(26070,4660,"ide_methods.bas");}while(r); -} -S_41453:; -if ((-(*_FUNC_IDE2_LONG_BKPIDECY!=*__LONG_IDECY))||new_error){ -if(qbevent){evnt(26070,4661,"ide_methods.bas");if(r)goto S_41453;} -do{ -SUB_IDESHOWTEXT(); -if(!qbevent)break;evnt(26070,4662,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,4663,"ide_methods.bas");}while(r); -} -do{ -goto LABEL_SHOWMENU; -if(!qbevent)break;evnt(26070,4665,"ide_methods.bas");}while(r); -} -do{ -goto LABEL_INVOKECONTEXTUALMENU; -if(!qbevent)break;evnt(26070,4667,"ide_methods.bas");}while(r); -}else{ -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,4669,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,4669,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,4670,"ide_methods.bas");}while(r); -} -} -S_41466:; -if ((*_FUNC_IDE2_LONG_MOUSEUP)||new_error){ -if(qbevent){evnt(26070,4675,"ide_methods.bas");if(r)goto S_41466;} -S_41467:; -if (((-(*__LONG_MX>=(*_FUNC_IDE2_LONG_XX- 2 )))&(-(*__LONG_MX<(*_FUNC_IDE2_LONG_XX- 2 +*_FUNC_IDE2_LONG_W+ 4 ))))||new_error){ -if(qbevent){evnt(26070,4676,"ide_methods.bas");if(r)goto S_41467;} -S_41468:; -if (((-(*__LONG_MY>*_FUNC_IDE2_LONG_YY))&(-(*__LONG_MY<=(((int32*)(__ARRAY_LONG_MENUSIZE[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5])]+*_FUNC_IDE2_LONG_YY))))||new_error){ -if(qbevent){evnt(26070,4677,"ide_methods.bas");if(r)goto S_41468;} -do{ -*_FUNC_IDE2_LONG_Y=*__LONG_MY-*_FUNC_IDE2_LONG_YY; -if(!qbevent)break;evnt(26070,4678,"ide_methods.bas");}while(r); -S_41470:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_Y)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("-",1)))&(qbs_notequal(qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_Y)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 1 ),qbs_new_txt_len("~",1)))))||new_error){ -if(qbevent){evnt(26070,4679,"ide_methods.bas");if(r)goto S_41470;} -do{ -*_FUNC_IDE2_LONG_S=*_FUNC_IDE2_LONG_R; -if(!qbevent)break;evnt(26070,4680,"ide_methods.bas");}while(r); -} -} -} -S_41475:; -if (((-(*_FUNC_IDE2_LONG_PARENTMENU> 0 ))&(-(*__LONG_MX>=*_FUNC_IDE2_LONG_BACKTOPARENT__ASCII_CHR_046__X1))&(-(*__LONG_MX<=*_FUNC_IDE2_LONG_BACKTOPARENT__ASCII_CHR_046__X2))&(-(*__LONG_MY>=*_FUNC_IDE2_LONG_BACKTOPARENT__ASCII_CHR_046__Y1))&(-(*__LONG_MY<=*_FUNC_IDE2_LONG_BACKTOPARENT__ASCII_CHR_046__Y2)))||new_error){ -if(qbevent){evnt(26070,4687,"ide_methods.bas");if(r)goto S_41475;} -do{ -*_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_PARENTMENU; -if(!qbevent)break;evnt(26070,4688,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_R=*_FUNC_IDE2_LONG_PARENTMENUR; -if(!qbevent)break;evnt(26070,4689,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_PARENTMENU= 0 ; -if(!qbevent)break;evnt(26070,4690,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_PARENTMENUR= 0 ; -if(!qbevent)break;evnt(26070,4691,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_IDECONTEXTUALMENU= 0 ; -if(!qbevent)break;evnt(26070,4692,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 2 ); -if(!qbevent)break;evnt(26070,4693,"ide_methods.bas");}while(r); -do{ -goto dl_continue_4439; -if(!qbevent)break;evnt(26070,4694,"ide_methods.bas");}while(r); -} -S_41484:; -if (((-(*__LONG_MX<(*_FUNC_IDE2_LONG_XX- 2 )))|(-(*__LONG_MX>=(*_FUNC_IDE2_LONG_XX- 2 +*_FUNC_IDE2_LONG_W+ 4 )))|(-(*__LONG_MY>(*_FUNC_IDE2_LONG_YY+((int32*)(__ARRAY_LONG_MENUSIZE[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5])]+ 1 )))|(((-(*__LONG_MY<*_FUNC_IDE2_LONG_YY))&(-(*_FUNC_IDE2_LONG_IDECONTEXTUALMENU== 1 )))))||new_error){ -if(qbevent){evnt(26070,4697,"ide_methods.bas");if(r)goto S_41484;} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,4698,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,4698,"ide_methods.bas");}while(r); -S_41487:; -if ((-(*__LONG_IDEDEBUGMODE== 2 ))||new_error){ -if(qbevent){evnt(26070,4699,"ide_methods.bas");if(r)goto S_41487;} -do{ -goto LABEL_ENTERDEBUGMODE; -if(!qbevent)break;evnt(26070,4699,"ide_methods.bas");}while(r); -} -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,4700,"ide_methods.bas");}while(r); -} -} -S_41493:; -if (((~(*_FUNC_IDE2_LONG_MOUSEUP))&(~(*_FUNC_IDE2_LONG_MOUSEDOWN)))||new_error){ -if(qbevent){evnt(26070,4704,"ide_methods.bas");if(r)goto S_41493;} -S_41494:; -if (((-(*_FUNC_IDE2_LONG_PARENTMENU> 0 ))&(-(*_FUNC_IDE2_LONG_OLDMY!=*__LONG_MY))&(-(*_FUNC_IDE2_LONG_OLDMX!=*__LONG_MX))&(-(*__LONG_MX>=*_FUNC_IDE2_LONG_BACKTOPARENT__ASCII_CHR_046__X1))&(-(*__LONG_MX<=*_FUNC_IDE2_LONG_BACKTOPARENT__ASCII_CHR_046__X2))&(-(*__LONG_MY>=*_FUNC_IDE2_LONG_BACKTOPARENT__ASCII_CHR_046__Y1))&(-(*__LONG_MY<=*_FUNC_IDE2_LONG_BACKTOPARENT__ASCII_CHR_046__Y2)))||new_error){ -if(qbevent){evnt(26070,4707,"ide_methods.bas");if(r)goto S_41494;} -do{ -*_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_PARENTMENU; -if(!qbevent)break;evnt(26070,4708,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_R=*_FUNC_IDE2_LONG_PARENTMENUR; -if(!qbevent)break;evnt(26070,4709,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_PARENTMENU= 0 ; -if(!qbevent)break;evnt(26070,4710,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_PARENTMENUR= 0 ; -if(!qbevent)break;evnt(26070,4711,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_IDECONTEXTUALMENU= 0 ; -if(!qbevent)break;evnt(26070,4712,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 2 ); -if(!qbevent)break;evnt(26070,4713,"ide_methods.bas");}while(r); -do{ -goto dl_continue_4439; -if(!qbevent)break;evnt(26070,4714,"ide_methods.bas");}while(r); -} -S_41503:; -if ((-(*_FUNC_IDE2_LONG_OLDMY!=*__LONG_MY))||new_error){ -if(qbevent){evnt(26070,4716,"ide_methods.bas");if(r)goto S_41503;} -S_41504:; -if (((-(*__LONG_MX>=(*_FUNC_IDE2_LONG_XX- 2 )))&(-(*__LONG_MX<(*_FUNC_IDE2_LONG_XX- 2 +*_FUNC_IDE2_LONG_W+ 4 ))))||new_error){ -if(qbevent){evnt(26070,4717,"ide_methods.bas");if(r)goto S_41504;} -S_41505:; -if (((-(*__LONG_MY>*_FUNC_IDE2_LONG_YY))&(-(*__LONG_MY<=(((int32*)(__ARRAY_LONG_MENUSIZE[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5])]+*_FUNC_IDE2_LONG_YY))))||new_error){ -if(qbevent){evnt(26070,4718,"ide_methods.bas");if(r)goto S_41505;} -do{ -*_FUNC_IDE2_LONG_Y=*__LONG_MY-*_FUNC_IDE2_LONG_YY; -if(!qbevent)break;evnt(26070,4719,"ide_methods.bas");}while(r); -S_41507:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_Y)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("-",1))))||new_error){ -if(qbevent){evnt(26070,4720,"ide_methods.bas");if(r)goto S_41507;} -do{ -*_FUNC_IDE2_LONG_R=*_FUNC_IDE2_LONG_Y; -if(!qbevent)break;evnt(26070,4721,"ide_methods.bas");}while(r); -} -} -}else{ -S_41512:; -if ((-(*__LONG_MY== 1 ))||new_error){ -if(qbevent){evnt(26070,4725,"ide_methods.bas");if(r)goto S_41512;} -do{ -goto LABEL_CHECKMENUBARHOVER; -if(!qbevent)break;evnt(26070,4725,"ide_methods.bas");}while(r); -} -} -do{ -*_FUNC_IDE2_LONG_OLDMY=*__LONG_MY; -if(!qbevent)break;evnt(26070,4727,"ide_methods.bas");}while(r); -} -S_41518:; -if ((-(*_FUNC_IDE2_LONG_OLDMX!=*__LONG_MX))||new_error){ -if(qbevent){evnt(26070,4729,"ide_methods.bas");if(r)goto S_41518;} -LABEL_CHECKMENUBARHOVER:; -if(qbevent){evnt(26070,4730,"ide_methods.bas");r=0;} -S_41519:; -if (((-(*__LONG_IDEDEBUGMODE!= 2 ))&(-(*__LONG_MY== 1 ))&(-(*_FUNC_IDE2_LONG_IDECONTEXTUALMENU!= 1 )))||new_error){ -if(qbevent){evnt(26070,4731,"ide_methods.bas");if(r)goto S_41519;} -do{ -*_FUNC_IDE2_LONG_LASTM=*_FUNC_IDE2_LONG_M; -if(!qbevent)break;evnt(26070,4732,"ide_methods.bas");}while(r); -S_41521:; -fornext_value4472= 1 ; -fornext_finalvalue4472=*__INTEGER_MENUS; -fornext_step4472= 1 ; -if (fornext_step4472<0) fornext_step_negative4472=1; else fornext_step_negative4472=0; -if (new_error) goto fornext_error4472; -goto fornext_entrylabel4472; -while(1){ -fornext_value4472=fornext_step4472+(*_FUNC_IDE2_LONG_I); -fornext_entrylabel4472: -*_FUNC_IDE2_LONG_I=fornext_value4472; -if (fornext_step_negative4472){ -if (fornext_value4472fornext_finalvalue4472) break; -} -fornext_error4472:; -if(qbevent){evnt(26070,4733,"ide_methods.bas");if(r)goto S_41521;} -do{ -*_FUNC_IDE2_LONG_X=string2i(func_mid(_FUNC_IDE2_STRING_MENULOCATIONS,(*_FUNC_IDE2_LONG_I* 2 )-( 1 ), 2 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4734,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_X2=string2i(func_mid(_FUNC_IDE2_STRING_MENULOCATIONS,(*_FUNC_IDE2_LONG_I* 2 )-( 1 ), 2 ,0|1))+((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check(( 0 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]]))->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4735,"ide_methods.bas");}while(r); -S_41524:; -if (((-(*__LONG_MX>=*_FUNC_IDE2_LONG_X))&(-(*__LONG_MX<*_FUNC_IDE2_LONG_X2)))||new_error){ -if(qbevent){evnt(26070,4736,"ide_methods.bas");if(r)goto S_41524;} -do{ -*_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_I; -if(!qbevent)break;evnt(26070,4737,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_R= 1 ; -if(!qbevent)break;evnt(26070,4738,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_PARENTMENUR= 0 ; -if(!qbevent)break;evnt(26070,4739,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_PARENTMENU= 0 ; -if(!qbevent)break;evnt(26070,4740,"ide_methods.bas");}while(r); -S_41529:; -if ((-(*_FUNC_IDE2_LONG_IDECONTEXTUALMENU> 1 ))||new_error){ -if(qbevent){evnt(26070,4741,"ide_methods.bas");if(r)goto S_41529;} -do{ -*_FUNC_IDE2_LONG_IDECONTEXTUALMENU= 0 ; -if(!qbevent)break;evnt(26070,4741,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 2 ); -if(!qbevent)break;evnt(26070,4741,"ide_methods.bas");}while(r); -} -do{ -goto fornext_exit_4471; -if(!qbevent)break;evnt(26070,4742,"ide_methods.bas");}while(r); -} -fornext_continue_4471:; -} -fornext_exit_4471:; -} -do{ -*_FUNC_IDE2_LONG_OLDMX=*__LONG_MX; -if(!qbevent)break;evnt(26070,4746,"ide_methods.bas");}while(r); -} -} -S_41540:; -if ((*__LONG_MB)||new_error){ -if(qbevent){evnt(26070,4750,"ide_methods.bas");if(r)goto S_41540;} -S_41541:; -if (((-(*__LONG_MY== 1 ))&(-(*__LONG_IDEDEBUGMODE!= 2 )))||new_error){ -if(qbevent){evnt(26070,4753,"ide_methods.bas");if(r)goto S_41541;} -do{ -*_FUNC_IDE2_LONG_LASTM=*_FUNC_IDE2_LONG_M; -if(!qbevent)break;evnt(26070,4754,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_X= 3 ; -if(!qbevent)break;evnt(26070,4755,"ide_methods.bas");}while(r); -S_41544:; -fornext_value4475= 1 ; -fornext_finalvalue4475=*__INTEGER_MENUS; -fornext_step4475= 1 ; -if (fornext_step4475<0) fornext_step_negative4475=1; else fornext_step_negative4475=0; -if (new_error) goto fornext_error4475; -goto fornext_entrylabel4475; -while(1){ -fornext_value4475=fornext_step4475+(*_FUNC_IDE2_LONG_I); -fornext_entrylabel4475: -*_FUNC_IDE2_LONG_I=fornext_value4475; -if (fornext_step_negative4475){ -if (fornext_value4475fornext_finalvalue4475) break; -} -fornext_error4475:; -if(qbevent){evnt(26070,4756,"ide_methods.bas");if(r)goto S_41544;} -do{ -*_FUNC_IDE2_LONG_X2=((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check(( 0 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]]))->len+ 2 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4757,"ide_methods.bas");}while(r); -S_41546:; -if (((-(*__LONG_MX>=*_FUNC_IDE2_LONG_X))&(-(*__LONG_MX<(*_FUNC_IDE2_LONG_X+*_FUNC_IDE2_LONG_X2))))||new_error){ -if(qbevent){evnt(26070,4758,"ide_methods.bas");if(r)goto S_41546;} -do{ -*_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_I; -if(!qbevent)break;evnt(26070,4759,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_R= 1 ; -if(!qbevent)break;evnt(26070,4760,"ide_methods.bas");}while(r); -S_41549:; -if (((-(*_FUNC_IDE2_LONG_LASTM==*_FUNC_IDE2_LONG_M))&(-(*_FUNC_IDE2_LONG_MOUSEDOWN== 1 )))||new_error){ -if(qbevent){evnt(26070,4761,"ide_methods.bas");if(r)goto S_41549;} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,4761,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,4761,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,4761,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDE2_LONG_IDECONTEXTUALMENU= 0 ; -if(!qbevent)break;evnt(26070,4762,"ide_methods.bas");}while(r); -do{ -goto fornext_exit_4474; -if(!qbevent)break;evnt(26070,4763,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDE2_LONG_X=*_FUNC_IDE2_LONG_X+*_FUNC_IDE2_LONG_X2; -if(!qbevent)break;evnt(26070,4765,"ide_methods.bas");}while(r); -S_41558:; -if ((-(*_FUNC_IDE2_LONG_I==(*__INTEGER_MENUS- 1 )))||new_error){ -if(qbevent){evnt(26070,4766,"ide_methods.bas");if(r)goto S_41558;} -do{ -*_FUNC_IDE2_LONG_X=*__LONG_IDEWX-((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*__INTEGER_MENUS)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check(( 0 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]]))->len- 2 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4766,"ide_methods.bas");}while(r); -} -fornext_continue_4474:; -} -fornext_exit_4474:; -} -S_41563:; -if (((-(*__LONG_MX>=(*_FUNC_IDE2_LONG_XX- 2 )))&(-(*__LONG_MX<(*_FUNC_IDE2_LONG_XX- 2 +*_FUNC_IDE2_LONG_W+ 4 ))))||new_error){ -if(qbevent){evnt(26070,4771,"ide_methods.bas");if(r)goto S_41563;} -S_41564:; -if (((-(*__LONG_MY>*_FUNC_IDE2_LONG_YY))&(-(*__LONG_MY<=(((int32*)(__ARRAY_LONG_MENUSIZE[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5])]+*_FUNC_IDE2_LONG_YY))))||new_error){ -if(qbevent){evnt(26070,4772,"ide_methods.bas");if(r)goto S_41564;} -do{ -*_FUNC_IDE2_LONG_Y=*__LONG_MY-*_FUNC_IDE2_LONG_YY; -if(!qbevent)break;evnt(26070,4773,"ide_methods.bas");}while(r); -S_41566:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_Y)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("-",1))))||new_error){ -if(qbevent){evnt(26070,4774,"ide_methods.bas");if(r)goto S_41566;} -do{ -*_FUNC_IDE2_LONG_R=*_FUNC_IDE2_LONG_Y; -if(!qbevent)break;evnt(26070,4774,"ide_methods.bas");}while(r); -} -} -} -} -S_41572:; -if (((-(*__LONG_KB== 19200 ))&(-(*_FUNC_IDE2_LONG_IDECONTEXTUALMENU== 0 )))||new_error){ -if(qbevent){evnt(26070,4780,"ide_methods.bas");if(r)goto S_41572;} -do{ -*_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_M- 1 ; -if(!qbevent)break;evnt(26070,4781,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_R= 1 ; -if(!qbevent)break;evnt(26070,4781,"ide_methods.bas");}while(r); -S_41575:; -}else{ -if ((-(*__LONG_KB== 19200 ))&(-(*_FUNC_IDE2_LONG_IDECONTEXTUALMENU> 1 ))){ -if(qbevent){evnt(26070,4782,"ide_methods.bas");if(r)goto S_41575;} -do{ -*_FUNC_IDE2_LONG_IDECONTEXTUALMENU= 0 ; -if(!qbevent)break;evnt(26070,4783,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 2 ); -if(!qbevent)break;evnt(26070,4784,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_PARENTMENU; -if(!qbevent)break;evnt(26070,4785,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_R=*_FUNC_IDE2_LONG_PARENTMENUR; -if(!qbevent)break;evnt(26070,4786,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_PARENTMENU= 0 ; -if(!qbevent)break;evnt(26070,4787,"ide_methods.bas");}while(r); -} -} -S_41582:; -if (((-(*__LONG_KB== 19712 ))&(-(*_FUNC_IDE2_LONG_IDECONTEXTUALMENU== 0 )))||new_error){ -if(qbevent){evnt(26070,4789,"ide_methods.bas");if(r)goto S_41582;} -S_41583:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_R)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 1 ),func_chr( 16 ))))||new_error){ -if(qbevent){evnt(26070,4790,"ide_methods.bas");if(r)goto S_41583;} -S_41584:; -qbs_set(sc_4479,qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_R)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_R)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]]))->len- 3 )); -qbs_cleanup(qbs_tmp_base,0); -if(qbevent){evnt(26070,4791,"ide_methods.bas");if(r)goto S_41584;} -S_41585:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4479,qbs_new_txt_len("#Line Numbers",13))))||new_error){ -if(qbevent){evnt(26070,4792,"ide_methods.bas");if(r)goto S_41585;} -do{ -*_FUNC_IDE2_LONG_IDECONTEXTUALMENU= 2 ; -if(!qbevent)break;evnt(26070,4793,"ide_methods.bas");}while(r); -do{ -goto LABEL_SHOWMENU; -if(!qbevent)break;evnt(26070,4794,"ide_methods.bas");}while(r); -sc_ec_223_end:; -goto sc_4479_end; -} -S_41588:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4479,qbs_new_txt_len("#Export As...",13))))||new_error){ -if(qbevent){evnt(26070,4795,"ide_methods.bas");if(r)goto S_41588;} -do{ -*_FUNC_IDE2_LONG_IDECONTEXTUALMENU= 3 ; -if(!qbevent)break;evnt(26070,4796,"ide_methods.bas");}while(r); -do{ -goto LABEL_SHOWMENU; -if(!qbevent)break;evnt(26070,4797,"ide_methods.bas");}while(r); -sc_ec_224_end:; -goto sc_4479_end; -} -sc_4479_end:; -}else{ -do{ -*_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_M+ 1 ; -if(!qbevent)break;evnt(26070,4800,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_R= 1 ; -if(!qbevent)break;evnt(26070,4800,"ide_methods.bas");}while(r); -} -S_41596:; -}else{ -if ((-(*__LONG_KB== 19712 ))&(-(*_FUNC_IDE2_LONG_IDECONTEXTUALMENU> 1 ))){ -if(qbevent){evnt(26070,4802,"ide_methods.bas");if(r)goto S_41596;} -do{ -*_FUNC_IDE2_LONG_IDECONTEXTUALMENU= 0 ; -if(!qbevent)break;evnt(26070,4803,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 2 ); -if(!qbevent)break;evnt(26070,4804,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_PARENTMENU+ 1 ; -if(!qbevent)break;evnt(26070,4805,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_R= 1 ; -if(!qbevent)break;evnt(26070,4806,"ide_methods.bas");}while(r); -} -} -S_41602:; -if ((-(*_FUNC_IDE2_LONG_M< 1 ))||new_error){ -if(qbevent){evnt(26070,4808,"ide_methods.bas");if(r)goto S_41602;} -do{ -*_FUNC_IDE2_LONG_M=*__INTEGER_MENUS; -if(!qbevent)break;evnt(26070,4808,"ide_methods.bas");}while(r); -} -S_41605:; -if (((-(*_FUNC_IDE2_LONG_M>*__INTEGER_MENUS))&(-(*_FUNC_IDE2_LONG_IDECONTEXTUALMENU== 0 )))||new_error){ -if(qbevent){evnt(26070,4809,"ide_methods.bas");if(r)goto S_41605;} -do{ -*_FUNC_IDE2_LONG_M= 1 ; -if(!qbevent)break;evnt(26070,4809,"ide_methods.bas");}while(r); -} -S_41608:; -if ((-(*__LONG_KB== 27 ))||new_error){ -if(qbevent){evnt(26070,4810,"ide_methods.bas");if(r)goto S_41608;} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,4811,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,4811,"ide_methods.bas");}while(r); -S_41611:; -if ((-(*__LONG_IDEDEBUGMODE== 2 ))||new_error){ -if(qbevent){evnt(26070,4812,"ide_methods.bas");if(r)goto S_41611;} -do{ -goto LABEL_ENTERDEBUGMODE; -if(!qbevent)break;evnt(26070,4812,"ide_methods.bas");}while(r); -} -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,4813,"ide_methods.bas");}while(r); -} -S_41616:; -if ((-(*__LONG_KB== 20480 ))||new_error){ -if(qbevent){evnt(26070,4815,"ide_methods.bas");if(r)goto S_41616;} -do{ -*_FUNC_IDE2_LONG_R=*_FUNC_IDE2_LONG_R+ 1 ; -if(!qbevent)break;evnt(26070,4816,"ide_methods.bas");}while(r); -S_41618:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_R)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("-",1))))||new_error){ -if(qbevent){evnt(26070,4817,"ide_methods.bas");if(r)goto S_41618;} -do{ -*_FUNC_IDE2_LONG_R=*_FUNC_IDE2_LONG_R+ 1 ; -if(!qbevent)break;evnt(26070,4817,"ide_methods.bas");}while(r); -} -S_41621:; -if ((-(*_FUNC_IDE2_LONG_R>((int32*)(__ARRAY_LONG_MENUSIZE[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5])]))||new_error){ -if(qbevent){evnt(26070,4818,"ide_methods.bas");if(r)goto S_41621;} -do{ -*_FUNC_IDE2_LONG_R= 1 ; -if(!qbevent)break;evnt(26070,4818,"ide_methods.bas");}while(r); -} -} -S_41625:; -if ((-(*__LONG_KB== 18432 ))||new_error){ -if(qbevent){evnt(26070,4821,"ide_methods.bas");if(r)goto S_41625;} -do{ -*_FUNC_IDE2_LONG_R=*_FUNC_IDE2_LONG_R- 1 ; -if(!qbevent)break;evnt(26070,4822,"ide_methods.bas");}while(r); -S_41627:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_R)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("-",1))))||new_error){ -if(qbevent){evnt(26070,4823,"ide_methods.bas");if(r)goto S_41627;} -do{ -*_FUNC_IDE2_LONG_R=*_FUNC_IDE2_LONG_R- 1 ; -if(!qbevent)break;evnt(26070,4823,"ide_methods.bas");}while(r); -} -S_41630:; -if ((-(*_FUNC_IDE2_LONG_R< 1 ))||new_error){ -if(qbevent){evnt(26070,4824,"ide_methods.bas");if(r)goto S_41630;} -do{ -*_FUNC_IDE2_LONG_R=((int32*)(__ARRAY_LONG_MENUSIZE[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5])]; -if(!qbevent)break;evnt(26070,4824,"ide_methods.bas");}while(r); -} -} -S_41634:; -if ((-(*__LONG_KB== 13 ))||new_error){ -if(qbevent){evnt(26070,4830,"ide_methods.bas");if(r)goto S_41634;} -S_41635:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_R)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 1 ),qbs_new_txt_len("~",1))))||new_error){ -if(qbevent){evnt(26070,4831,"ide_methods.bas");if(r)goto S_41635;} -do{ -*_FUNC_IDE2_LONG_S=*_FUNC_IDE2_LONG_R; -if(!qbevent)break;evnt(26070,4831,"ide_methods.bas");}while(r); -} -} -do{ -qbs_set(__STRING_K,qbs_ucase(__STRING_K)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4835,"ide_methods.bas");}while(r); -S_41640:; -if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_K->len> 0 ))&(~(*__LONG_KCTRL))))||new_error){ -if(qbevent){evnt(26070,4836,"ide_methods.bas");if(r)goto S_41640;} -S_41641:; -fornext_value4482= 1 ; -fornext_finalvalue4482=((int32*)(__ARRAY_LONG_MENUSIZE[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5])]; -fornext_step4482= 1 ; -if (fornext_step4482<0) fornext_step_negative4482=1; else fornext_step_negative4482=0; -if (new_error) goto fornext_error4482; -goto fornext_entrylabel4482; -while(1){ -fornext_value4482=fornext_step4482+(*_FUNC_IDE2_LONG_R2); -fornext_entrylabel4482: -*_FUNC_IDE2_LONG_R2=fornext_value4482; -if (fornext_step_negative4482){ -if (fornext_value4482fornext_finalvalue4482) break; -} -fornext_error4482:; -if(qbevent){evnt(26070,4837,"ide_methods.bas");if(r)goto S_41641;} -do{ -*_FUNC_IDE2_LONG_X=func_instr(NULL,((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_R2)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4838,"ide_methods.bas");}while(r); -S_41643:; -if ((*_FUNC_IDE2_LONG_X)||new_error){ -if(qbevent){evnt(26070,4839,"ide_methods.bas");if(r)goto S_41643;} -do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_ucase(func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_R2)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),*_FUNC_IDE2_LONG_X+ 1 , 1 ,0|1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4840,"ide_methods.bas");}while(r); -S_41645:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,_FUNC_IDE2_STRING_A))&(qbs_notequal(qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_R2)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 1 ),qbs_new_txt_len("~",1)))))||new_error){ -if(qbevent){evnt(26070,4841,"ide_methods.bas");if(r)goto S_41645;} -do{ -*_FUNC_IDE2_LONG_S=*_FUNC_IDE2_LONG_R2; -if(!qbevent)break;evnt(26070,4842,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_BYTE_UPDATEMENUPANEL= -1 ; -if(!qbevent)break;evnt(26070,4843,"ide_methods.bas");}while(r); -do{ -goto fornext_exit_4481; -if(!qbevent)break;evnt(26070,4844,"ide_methods.bas");}while(r); -S_41649:; -}else{ -if (qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,_FUNC_IDE2_STRING_A))&(qbs_equal(qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_R2)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 1 ),qbs_new_txt_len("~",1))))){ -if(qbevent){evnt(26070,4845,"ide_methods.bas");if(r)goto S_41649;} -do{ -*_FUNC_IDE2_BYTE_UPDATEMENUPANEL= -1 ; -if(!qbevent)break;evnt(26070,4846,"ide_methods.bas");}while(r); -do{ -goto fornext_exit_4481; -if(!qbevent)break;evnt(26070,4847,"ide_methods.bas");}while(r); -} -} -} -fornext_continue_4481:; -} -fornext_exit_4481:; -S_41655:; -if ((*_FUNC_IDE2_BYTE_UPDATEMENUPANEL)||new_error){ -if(qbevent){evnt(26070,4851,"ide_methods.bas");if(r)goto S_41655;} -do{ -*_FUNC_IDE2_LONG_R=*_FUNC_IDE2_LONG_R2; -if(!qbevent)break;evnt(26070,4851,"ide_methods.bas");}while(r); -do{ -goto dl_continue_4439; -if(!qbevent)break;evnt(26070,4851,"ide_methods.bas");}while(r); -} -} -S_41660:; -if ((*_FUNC_IDE2_LONG_S)||new_error){ -if(qbevent){evnt(26070,4854,"ide_methods.bas");if(r)goto S_41660;} -LABEL_MENUCHOICEMADE:; -if(qbevent){evnt(26070,4855,"ide_methods.bas");r=0;} -S_41661:; -if ((*__LONG_KALT)||new_error){ -if(qbevent){evnt(26070,4856,"ide_methods.bas");if(r)goto S_41661;} -do{ -*__LONG_IDEHL= 1 ; -if(!qbevent)break;evnt(26070,4856,"ide_methods.bas");}while(r); -}else{ -do{ -*__LONG_IDEHL= 0 ; -if(!qbevent)break;evnt(26070,4856,"ide_methods.bas");}while(r); -} -S_41666:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Add Co#mment (') Ctrl+R",24))))||new_error){ -if(qbevent){evnt(26070,4858,"ide_methods.bas");if(r)goto S_41666;} -LABEL_CTRLADDCOMMENT:; -if(qbevent){evnt(26070,4859,"ide_methods.bas");r=0;} -do{ -*_FUNC_IDE2_LONG_Y1=*__LONG_IDECY; -if(!qbevent)break;evnt(26070,4860,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_Y2=*_FUNC_IDE2_LONG_Y1; -if(!qbevent)break;evnt(26070,4860,"ide_methods.bas");}while(r); -S_41669:; -if ((-(*__LONG_IDESELECT== 1 ))||new_error){ -if(qbevent){evnt(26070,4861,"ide_methods.bas");if(r)goto S_41669;} -do{ -*_FUNC_IDE2_LONG_Y1=*__LONG_IDESELECTY1; -if(!qbevent)break;evnt(26070,4862,"ide_methods.bas");}while(r); -S_41671:; -if (((-(*__LONG_IDECY>*__LONG_IDESELECTY1))&(-(*__LONG_IDECX== 1 )))||new_error){ -if(qbevent){evnt(26070,4863,"ide_methods.bas");if(r)goto S_41671;} -do{ -*_FUNC_IDE2_LONG_Y2=*_FUNC_IDE2_LONG_Y2- 1 ; -if(!qbevent)break;evnt(26070,4863,"ide_methods.bas");}while(r); -} -S_41674:; -if ((-(*_FUNC_IDE2_LONG_Y1>*_FUNC_IDE2_LONG_Y2))||new_error){ -if(qbevent){evnt(26070,4864,"ide_methods.bas");if(r)goto S_41674;} -do{ -swap_32(&*_FUNC_IDE2_LONG_Y1,&*_FUNC_IDE2_LONG_Y2); -if(!qbevent)break;evnt(26070,4864,"ide_methods.bas");}while(r); -} -} -do{ -*_FUNC_IDE2_LONG_LHS= 10000000 ; -if(!qbevent)break;evnt(26070,4867,"ide_methods.bas");}while(r); -S_41679:; -fornext_value4484=*_FUNC_IDE2_LONG_Y1; -fornext_finalvalue4484=*_FUNC_IDE2_LONG_Y2; -fornext_step4484= 1 ; -if (fornext_step4484<0) fornext_step_negative4484=1; else fornext_step_negative4484=0; -if (new_error) goto fornext_error4484; -goto fornext_entrylabel4484; -while(1){ -fornext_value4484=fornext_step4484+(*_FUNC_IDE2_LONG_Y); -fornext_entrylabel4484: -*_FUNC_IDE2_LONG_Y=fornext_value4484; -if (fornext_step_negative4484){ -if (fornext_value4484fornext_finalvalue4484) break; -} -fornext_error4484:; -if(qbevent){evnt(26070,4868,"ide_methods.bas");if(r)goto S_41679;} -do{ -qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(_FUNC_IDE2_LONG_Y)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4869,"ide_methods.bas");}while(r); -S_41681:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_A->len))||new_error){ -if(qbevent){evnt(26070,4870,"ide_methods.bas");if(r)goto S_41681;} -do{ -qbs_set(_FUNC_IDE2_STRING_TA,qbs_ltrim(_FUNC_IDE2_STRING_A)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4871,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_T=_FUNC_IDE2_STRING_A->len-_FUNC_IDE2_STRING_TA->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4872,"ide_methods.bas");}while(r); -S_41684:; -if ((-(*_FUNC_IDE2_LONG_T<*_FUNC_IDE2_LONG_LHS))||new_error){ -if(qbevent){evnt(26070,4873,"ide_methods.bas");if(r)goto S_41684;} -do{ -*_FUNC_IDE2_LONG_LHS=*_FUNC_IDE2_LONG_T; -if(!qbevent)break;evnt(26070,4873,"ide_methods.bas");}while(r); -} -} -fornext_continue_4483:; -} -fornext_exit_4483:; -S_41689:; -fornext_value4489=*_FUNC_IDE2_LONG_Y1; -fornext_finalvalue4489=*_FUNC_IDE2_LONG_Y2; -fornext_step4489= 1 ; -if (fornext_step4489<0) fornext_step_negative4489=1; else fornext_step_negative4489=0; -if (new_error) goto fornext_error4489; -goto fornext_entrylabel4489; -while(1){ -fornext_value4489=fornext_step4489+(*_FUNC_IDE2_LONG_Y); -fornext_entrylabel4489: -*_FUNC_IDE2_LONG_Y=fornext_value4489; -if (fornext_step_negative4489){ -if (fornext_value4489fornext_finalvalue4489) break; -} -fornext_error4489:; -if(qbevent){evnt(26070,4877,"ide_methods.bas");if(r)goto S_41689;} -do{ -qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(_FUNC_IDE2_LONG_Y)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4878,"ide_methods.bas");}while(r); -S_41691:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_A->len))||new_error){ -if(qbevent){evnt(26070,4879,"ide_methods.bas");if(r)goto S_41691;} -do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(qbs_left(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_LHS),qbs_new_txt_len("'",1)),qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len-*_FUNC_IDE2_LONG_LHS))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4880,"ide_methods.bas");}while(r); -do{ -SUB_IDESETLINE(_FUNC_IDE2_LONG_Y,_FUNC_IDE2_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4881,"ide_methods.bas");}while(r); -do{ -*__INTEGER_IDECHANGEMADE= 1 ; -if(!qbevent)break;evnt(26070,4882,"ide_methods.bas");}while(r); -do{ -*__BYTE_STARTPAUSEDPENDING= 0 ; -if(!qbevent)break;evnt(26070,4883,"ide_methods.bas");}while(r); -} -fornext_continue_4488:; -} -fornext_exit_4488:; -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,4886,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,4886,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,4887,"ide_methods.bas");}while(r); -} -S_41702:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Remove Comme#nt (') Ctrl+Shift+R",33))))||new_error){ -if(qbevent){evnt(26070,4890,"ide_methods.bas");if(r)goto S_41702;} -LABEL_CTRLREMOVECOMMENT:; -if(qbevent){evnt(26070,4891,"ide_methods.bas");r=0;} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,4892,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,4892,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_Y1=*__LONG_IDECY; -if(!qbevent)break;evnt(26070,4893,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_Y2=*_FUNC_IDE2_LONG_Y1; -if(!qbevent)break;evnt(26070,4893,"ide_methods.bas");}while(r); -S_41707:; -if ((-(*__LONG_IDESELECT== 1 ))||new_error){ -if(qbevent){evnt(26070,4894,"ide_methods.bas");if(r)goto S_41707;} -do{ -*_FUNC_IDE2_LONG_Y1=*__LONG_IDESELECTY1; -if(!qbevent)break;evnt(26070,4895,"ide_methods.bas");}while(r); -S_41709:; -if (((-(*__LONG_IDECY>*__LONG_IDESELECTY1))&(-(*__LONG_IDECX== 1 )))||new_error){ -if(qbevent){evnt(26070,4896,"ide_methods.bas");if(r)goto S_41709;} -do{ -*_FUNC_IDE2_LONG_Y2=*_FUNC_IDE2_LONG_Y2- 1 ; -if(!qbevent)break;evnt(26070,4896,"ide_methods.bas");}while(r); -} -S_41712:; -if ((-(*_FUNC_IDE2_LONG_Y1>*_FUNC_IDE2_LONG_Y2))||new_error){ -if(qbevent){evnt(26070,4897,"ide_methods.bas");if(r)goto S_41712;} -do{ -swap_32(&*_FUNC_IDE2_LONG_Y1,&*_FUNC_IDE2_LONG_Y2); -if(!qbevent)break;evnt(26070,4897,"ide_methods.bas");}while(r); -} -} -S_41716:; -fornext_value4493=*_FUNC_IDE2_LONG_Y1; -fornext_finalvalue4493=*_FUNC_IDE2_LONG_Y2; -fornext_step4493= 1 ; -if (fornext_step4493<0) fornext_step_negative4493=1; else fornext_step_negative4493=0; -if (new_error) goto fornext_error4493; -goto fornext_entrylabel4493; -while(1){ -fornext_value4493=fornext_step4493+(*_FUNC_IDE2_LONG_Y); -fornext_entrylabel4493: -*_FUNC_IDE2_LONG_Y=fornext_value4493; -if (fornext_step_negative4493){ -if (fornext_value4493fornext_finalvalue4493) break; -} -fornext_error4493:; -if(qbevent){evnt(26070,4900,"ide_methods.bas");if(r)goto S_41716;} -do{ -qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(_FUNC_IDE2_LONG_Y)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4901,"ide_methods.bas");}while(r); -S_41718:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_A->len))||new_error){ -if(qbevent){evnt(26070,4902,"ide_methods.bas");if(r)goto S_41718;} -do{ -qbs_set(_FUNC_IDE2_STRING_A2,qbs_ltrim(_FUNC_IDE2_STRING_A)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4903,"ide_methods.bas");}while(r); -S_41720:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_A2->len))||new_error){ -if(qbevent){evnt(26070,4904,"ide_methods.bas");if(r)goto S_41720;} -S_41721:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_IDE2_STRING_A2, 1 )== 39 )))||new_error){ -if(qbevent){evnt(26070,4905,"ide_methods.bas");if(r)goto S_41721;} -do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_add(func_space(_FUNC_IDE2_STRING_A->len-_FUNC_IDE2_STRING_A2->len),qbs_right(_FUNC_IDE2_STRING_A2,_FUNC_IDE2_STRING_A2->len- 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4906,"ide_methods.bas");}while(r); -do{ -SUB_IDESETLINE(_FUNC_IDE2_LONG_Y,_FUNC_IDE2_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4907,"ide_methods.bas");}while(r); -do{ -*__INTEGER_IDECHANGEMADE= 1 ; -if(!qbevent)break;evnt(26070,4908,"ide_methods.bas");}while(r); -do{ -*__BYTE_STARTPAUSEDPENDING= 0 ; -if(!qbevent)break;evnt(26070,4909,"ide_methods.bas");}while(r); -} -} -} -fornext_continue_4492:; -} -fornext_exit_4492:; -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,4914,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,4914,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,4915,"ide_methods.bas");}while(r); -} -S_41734:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("To#ggle Comment Ctrl+T",23))))||new_error){ -if(qbevent){evnt(26070,4918,"ide_methods.bas");if(r)goto S_41734;} -LABEL_CTRLTOGGLECOMMENT:; -if(qbevent){evnt(26070,4919,"ide_methods.bas");r=0;} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,4920,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,4920,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_Y1=*__LONG_IDECY; -if(!qbevent)break;evnt(26070,4921,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_Y2=*_FUNC_IDE2_LONG_Y1; -if(!qbevent)break;evnt(26070,4921,"ide_methods.bas");}while(r); -S_41739:; -if ((-(*__LONG_IDESELECT== 1 ))||new_error){ -if(qbevent){evnt(26070,4922,"ide_methods.bas");if(r)goto S_41739;} -do{ -*_FUNC_IDE2_LONG_Y1=*__LONG_IDESELECTY1; -if(!qbevent)break;evnt(26070,4923,"ide_methods.bas");}while(r); -S_41741:; -if (((-(*__LONG_IDECY>*__LONG_IDESELECTY1))&(-(*__LONG_IDECX== 1 )))||new_error){ -if(qbevent){evnt(26070,4924,"ide_methods.bas");if(r)goto S_41741;} -do{ -*_FUNC_IDE2_LONG_Y2=*_FUNC_IDE2_LONG_Y2- 1 ; -if(!qbevent)break;evnt(26070,4924,"ide_methods.bas");}while(r); -} -S_41744:; -if ((-(*_FUNC_IDE2_LONG_Y1>*_FUNC_IDE2_LONG_Y2))||new_error){ -if(qbevent){evnt(26070,4925,"ide_methods.bas");if(r)goto S_41744;} -do{ -swap_32(&*_FUNC_IDE2_LONG_Y1,&*_FUNC_IDE2_LONG_Y2); -if(!qbevent)break;evnt(26070,4925,"ide_methods.bas");}while(r); -} -} -do{ -*_FUNC_IDE2_LONG_LHS= 10000000 ; -if(!qbevent)break;evnt(26070,4928,"ide_methods.bas");}while(r); -S_41749:; -fornext_value4500=*_FUNC_IDE2_LONG_Y1; -fornext_finalvalue4500=*_FUNC_IDE2_LONG_Y2; -fornext_step4500= 1 ; -if (fornext_step4500<0) fornext_step_negative4500=1; else fornext_step_negative4500=0; -if (new_error) goto fornext_error4500; -goto fornext_entrylabel4500; -while(1){ -fornext_value4500=fornext_step4500+(*_FUNC_IDE2_LONG_Y); -fornext_entrylabel4500: -*_FUNC_IDE2_LONG_Y=fornext_value4500; -if (fornext_step_negative4500){ -if (fornext_value4500fornext_finalvalue4500) break; -} -fornext_error4500:; -if(qbevent){evnt(26070,4929,"ide_methods.bas");if(r)goto S_41749;} -do{ -qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(_FUNC_IDE2_LONG_Y)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4930,"ide_methods.bas");}while(r); -S_41751:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_A->len))||new_error){ -if(qbevent){evnt(26070,4931,"ide_methods.bas");if(r)goto S_41751;} -do{ -qbs_set(_FUNC_IDE2_STRING_TA,qbs_ltrim(_FUNC_IDE2_STRING_A)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4932,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_T=_FUNC_IDE2_STRING_A->len-_FUNC_IDE2_STRING_TA->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4933,"ide_methods.bas");}while(r); -S_41754:; -if ((-(*_FUNC_IDE2_LONG_T<*_FUNC_IDE2_LONG_LHS))||new_error){ -if(qbevent){evnt(26070,4934,"ide_methods.bas");if(r)goto S_41754;} -do{ -*_FUNC_IDE2_LONG_LHS=*_FUNC_IDE2_LONG_T; -if(!qbevent)break;evnt(26070,4934,"ide_methods.bas");}while(r); -} -} -fornext_continue_4499:; -} -fornext_exit_4499:; -S_41759:; -fornext_value4505=*_FUNC_IDE2_LONG_Y1; -fornext_finalvalue4505=*_FUNC_IDE2_LONG_Y2; -fornext_step4505= 1 ; -if (fornext_step4505<0) fornext_step_negative4505=1; else fornext_step_negative4505=0; -if (new_error) goto fornext_error4505; -goto fornext_entrylabel4505; -while(1){ -fornext_value4505=fornext_step4505+(*_FUNC_IDE2_LONG_Y); -fornext_entrylabel4505: -*_FUNC_IDE2_LONG_Y=fornext_value4505; -if (fornext_step_negative4505){ -if (fornext_value4505fornext_finalvalue4505) break; -} -fornext_error4505:; -if(qbevent){evnt(26070,4938,"ide_methods.bas");if(r)goto S_41759;} -do{ -qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(_FUNC_IDE2_LONG_Y)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4939,"ide_methods.bas");}while(r); -S_41761:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_A->len))||new_error){ -if(qbevent){evnt(26070,4940,"ide_methods.bas");if(r)goto S_41761;} -do{ -qbs_set(_FUNC_IDE2_STRING_A2,qbs_ltrim(_FUNC_IDE2_STRING_A)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4941,"ide_methods.bas");}while(r); -S_41763:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_A2->len))||new_error){ -if(qbevent){evnt(26070,4942,"ide_methods.bas");if(r)goto S_41763;} -S_41764:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_IDE2_STRING_A2, 1 )== 39 )))||new_error){ -if(qbevent){evnt(26070,4943,"ide_methods.bas");if(r)goto S_41764;} -do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_add(func_space(_FUNC_IDE2_STRING_A->len-_FUNC_IDE2_STRING_A2->len),qbs_right(_FUNC_IDE2_STRING_A2,_FUNC_IDE2_STRING_A2->len- 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4944,"ide_methods.bas");}while(r); -do{ -SUB_IDESETLINE(_FUNC_IDE2_LONG_Y,_FUNC_IDE2_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4945,"ide_methods.bas");}while(r); -do{ -*__INTEGER_IDECHANGEMADE= 1 ; -if(!qbevent)break;evnt(26070,4946,"ide_methods.bas");}while(r); -do{ -*__BYTE_STARTPAUSEDPENDING= 0 ; -if(!qbevent)break;evnt(26070,4947,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(qbs_left(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_LHS),qbs_new_txt_len("'",1)),qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len-*_FUNC_IDE2_LONG_LHS))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4949,"ide_methods.bas");}while(r); -do{ -SUB_IDESETLINE(_FUNC_IDE2_LONG_Y,_FUNC_IDE2_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4950,"ide_methods.bas");}while(r); -do{ -*__INTEGER_IDECHANGEMADE= 1 ; -if(!qbevent)break;evnt(26070,4951,"ide_methods.bas");}while(r); -do{ -*__BYTE_STARTPAUSEDPENDING= 0 ; -if(!qbevent)break;evnt(26070,4952,"ide_methods.bas");}while(r); -} -} -} -fornext_continue_4504:; -} -fornext_exit_4504:; -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,4957,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,4957,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,4958,"ide_methods.bas");}while(r); -} -S_41782:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Increase Indent TAB",21))))||new_error){ -if(qbevent){evnt(26070,4961,"ide_methods.bas");if(r)goto S_41782;} -S_41783:; -if ((*__LONG_IDESELECT)||new_error){ -if(qbevent){evnt(26070,4962,"ide_methods.bas");if(r)goto S_41783;} -do{ -goto LABEL_IDEBLOCKINCREASEINDENT; -if(!qbevent)break;evnt(26070,4962,"ide_methods.bas");}while(r); -} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,4963,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,4963,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,4964,"ide_methods.bas");}while(r); -} -S_41790:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 16 ),qbs_new_txt_len("#Decrease Indent",16))))||new_error){ -if(qbevent){evnt(26070,4967,"ide_methods.bas");if(r)goto S_41790;} -S_41791:; -if ((*__LONG_IDESELECT)||new_error){ -if(qbevent){evnt(26070,4968,"ide_methods.bas");if(r)goto S_41791;} -do{ -goto LABEL_IDEBLOCKDECREASEINDENT; -if(!qbevent)break;evnt(26070,4968,"ide_methods.bas");}while(r); -} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,4969,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,4969,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,4970,"ide_methods.bas");}while(r); -} -S_41798:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Language...",12))))||new_error){ -if(qbevent){evnt(26070,4973,"ide_methods.bas");if(r)goto S_41798;} -do{ -sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(26070,4974,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_RETVAL=FUNC_IDELANGUAGEBOX(); -if(!qbevent)break;evnt(26070,4975,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,4976,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,4976,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,4977,"ide_methods.bas");}while(r); -} -S_41805:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Display...",11))))||new_error){ -if(qbevent){evnt(26070,4980,"ide_methods.bas");if(r)goto S_41805;} -do{ -sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(26070,4981,"ide_methods.bas");}while(r); -S_41807:; -if ((-(*__LONG_IDEHELP== 0 ))||new_error){ -if(qbevent){evnt(26070,4982,"ide_methods.bas");if(r)goto S_41807;} -do{ -*_FUNC_IDE2_LONG_RETVAL=FUNC_IDEDISPLAYBOX(); -if(!qbevent)break;evnt(26070,4983,"ide_methods.bas");}while(r); -S_41809:; -if ((-(*_FUNC_IDE2_LONG_RETVAL== 1 ))||new_error){ -if(qbevent){evnt(26070,4984,"ide_methods.bas");if(r)goto S_41809;} -do{ -qbsub_width(NULL,*__LONG_IDEWX,*__LONG_IDEWY+*__LONG_IDESUBWINDOW,NULL,NULL,3); -if(!qbevent)break;evnt(26070,4986,"ide_methods.bas");}while(r); -S_41811:; -if ((*__LONG_IDECUSTOMFONT)||new_error){ -if(qbevent){evnt(26070,4987,"ide_methods.bas");if(r)goto S_41811;} -do{ -sub__font(*__LONG_IDECUSTOMFONTHANDLE,NULL,0); -if(!qbevent)break;evnt(26070,4988,"ide_methods.bas");}while(r); -}else{ -S_41814:; -if ((*__BYTE_IDE_USEFONT8)||new_error){ -if(qbevent){evnt(26070,4990,"ide_methods.bas");if(r)goto S_41814;} -do{ -sub__font( 8 ,NULL,0); -if(!qbevent)break;evnt(26070,4990,"ide_methods.bas");}while(r); -}else{ -do{ -sub__font( 16 ,NULL,0); -if(!qbevent)break;evnt(26070,4990,"ide_methods.bas");}while(r); -} -} -do{ -*_FUNC_IDE2_LONG_SKIPDISPLAY= 0 ; -if(!qbevent)break;evnt(26070,4992,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=47; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_REDRAWITALL; -RETURN_47:; -if(!qbevent)break;evnt(26070,4993,"ide_methods.bas");}while(r); -} -} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,4996,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,4996,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,4997,"ide_methods.bas");}while(r); -} -S_41828:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("IDE C#olors...",14))))||new_error){ -if(qbevent){evnt(26070,5000,"ide_methods.bas");if(r)goto S_41828;} -do{ -sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(26070,5001,"ide_methods.bas");}while(r); -do{ -SUB_HIDEBRACKETHIGHLIGHT(); -if(!qbevent)break;evnt(26070,5002,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_RETVAL=FUNC_IDECHOOSECOLORSBOX(); -if(!qbevent)break;evnt(26070,5003,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,5004,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,5004,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,5005,"ide_methods.bas");}while(r); -} -S_41836:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#RGB Color Mixer...",19))))||new_error){ -if(qbevent){evnt(26070,5008,"ide_methods.bas");if(r)goto S_41836;} -do{ -sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(26070,5009,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_OLDKEYWORDHIGHLIGHT=*__INTEGER_KEYWORDHIGHLIGHT; -if(!qbevent)break;evnt(26070,5010,"ide_methods.bas");}while(r); -do{ -*__INTEGER_KEYWORDHIGHLIGHT= 0 ; -if(!qbevent)break;evnt(26070,5011,"ide_methods.bas");}while(r); -do{ -SUB_HIDEBRACKETHIGHLIGHT(); -if(!qbevent)break;evnt(26070,5012,"ide_methods.bas");}while(r); -do{ -*__INTEGER_KEYWORDHIGHLIGHT=*_FUNC_IDE2_LONG_OLDKEYWORDHIGHLIGHT; -if(!qbevent)break;evnt(26070,5013,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_RETVAL,FUNC_IDERGBMIXER(&(pass4512= -1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5014,"ide_methods.bas");}while(r); -S_41843:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_RETVAL->len))||new_error){ -if(qbevent){evnt(26070,5015,"ide_methods.bas");if(r)goto S_41843;} -do{ -SUB_INSERTATCURSOR(_FUNC_IDE2_STRING_RETVAL); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5015,"ide_methods.bas");}while(r); -} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,5016,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,5016,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,5017,"ide_methods.bas");}while(r); -} -S_41850:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Purge C++ #Libraries",20))))||new_error){ -if(qbevent){evnt(26070,5020,"ide_methods.bas");if(r)goto S_41850;} -do{ -sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(26070,5021,"ide_methods.bas");}while(r); -do{ -SUB_PURGETEMPORARYBUILDFILES(__STRING_OS,&(pass4514=*__LONG_MACOSX)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5022,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,5023,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,5023,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,5024,"ide_methods.bas");}while(r); -} -S_41857:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 19 ),qbs_new_txt_len("#Swap Mouse Buttons",19))))||new_error){ -if(qbevent){evnt(26070,5028,"ide_methods.bas");if(r)goto S_41857;} -do{ -sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(26070,5029,"ide_methods.bas");}while(r); -do{ -*__BYTE_MOUSEBUTTONSWAPPED=~(*__BYTE_MOUSEBUTTONSWAPPED); -if(!qbevent)break;evnt(26070,5030,"ide_methods.bas");}while(r); -S_41860:; -if ((*__BYTE_MOUSEBUTTONSWAPPED)||new_error){ -if(qbevent){evnt(26070,5031,"ide_methods.bas");if(r)goto S_41860;} -do{ -SUB_WRITECONFIGSETTING(__STRING_MOUSESETTINGSSECTION,qbs_new_txt_len("SwapMouseButton",15),qbs_new_txt_len("True",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5032,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*__INTEGER_OPTIONSMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_OPTIONSMENUSWAPMOUSE)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(func_chr( 7 ),qbs_new_txt_len("#Swap Mouse Buttons",19))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5033,"ide_methods.bas");}while(r); -}else{ -do{ -SUB_WRITECONFIGSETTING(__STRING_MOUSESETTINGSSECTION,qbs_new_txt_len("SwapMouseButton",15),qbs_new_txt_len("False",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5035,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*__INTEGER_OPTIONSMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_OPTIONSMENUSWAPMOUSE)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Swap Mouse Buttons",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5036,"ide_methods.bas");}while(r); -} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,5038,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,5038,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,5039,"ide_methods.bas");}while(r); -} -S_41871:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 19 ),qbs_new_txt_len("Syntax #Highlighter",19))))||new_error){ -if(qbevent){evnt(26070,5042,"ide_methods.bas");if(r)goto S_41871;} -do{ -sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(26070,5043,"ide_methods.bas");}while(r); -do{ -*__BYTE_DISABLESYNTAXHIGHLIGHTER=~(*__BYTE_DISABLESYNTAXHIGHLIGHTER); -if(!qbevent)break;evnt(26070,5044,"ide_methods.bas");}while(r); -S_41874:; -if ((*__BYTE_DISABLESYNTAXHIGHLIGHTER)||new_error){ -if(qbevent){evnt(26070,5045,"ide_methods.bas");if(r)goto S_41874;} -do{ -SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("DisableSyntaxHighlighter",24),qbs_new_txt_len("True",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5046,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*__INTEGER_OPTIONSMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_OPTIONSMENUDISABLESYNTAX)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Syntax #Highlighter",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5047,"ide_methods.bas");}while(r); -}else{ -do{ -SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("DisableSyntaxHighlighter",24),qbs_new_txt_len("False",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5049,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*__INTEGER_OPTIONSMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_OPTIONSMENUDISABLESYNTAX)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(func_chr( 7 ),qbs_new_txt_len("Syntax #Highlighter",19))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5050,"ide_methods.bas");}while(r); -} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,5052,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,5052,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,5053,"ide_methods.bas");}while(r); -} -S_41885:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 19 ),qbs_new_txt_len("Cursor After #Paste",19))))||new_error){ -if(qbevent){evnt(26070,5056,"ide_methods.bas");if(r)goto S_41885;} -do{ -sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(26070,5057,"ide_methods.bas");}while(r); -do{ -*__BYTE_PASTECURSORATEND=~(*__BYTE_PASTECURSORATEND); -if(!qbevent)break;evnt(26070,5058,"ide_methods.bas");}while(r); -S_41888:; -if ((*__BYTE_PASTECURSORATEND)||new_error){ -if(qbevent){evnt(26070,5059,"ide_methods.bas");if(r)goto S_41888;} -do{ -SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("PasteCursorAtEnd",16),qbs_new_txt_len("True",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5060,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*__INTEGER_OPTIONSMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_OPTIONSMENUPASTECURSOR)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(func_chr( 7 ),qbs_new_txt_len("Cursor After #Paste",19))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5061,"ide_methods.bas");}while(r); -}else{ -do{ -SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("PasteCursorAtEnd",16),qbs_new_txt_len("False",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5063,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*__INTEGER_OPTIONSMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_OPTIONSMENUPASTECURSOR)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Cursor After #Paste",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5064,"ide_methods.bas");}while(r); -} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,5066,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,5066,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,5067,"ide_methods.bas");}while(r); -} -S_41899:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 15 ),qbs_new_txt_len("Syntax Ch#ecker",15))))||new_error){ -if(qbevent){evnt(26070,5070,"ide_methods.bas");if(r)goto S_41899;} -do{ -sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(26070,5071,"ide_methods.bas");}while(r); -do{ -*__BYTE_IDESHOWERRORSIMMEDIATELY=~(*__BYTE_IDESHOWERRORSIMMEDIATELY); -if(!qbevent)break;evnt(26070,5072,"ide_methods.bas");}while(r); -S_41902:; -if ((*__BYTE_IDESHOWERRORSIMMEDIATELY)||new_error){ -if(qbevent){evnt(26070,5073,"ide_methods.bas");if(r)goto S_41902;} -do{ -SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("ShowErrorsImmediately",21),qbs_new_txt_len("True",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5074,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*__INTEGER_OPTIONSMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_OPTIONSMENUSHOWERRORSIMMEDIATELY)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(func_chr( 7 ),qbs_new_txt_len("Syntax Ch#ecker",15))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5075,"ide_methods.bas");}while(r); -}else{ -do{ -SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("ShowErrorsImmediately",21),qbs_new_txt_len("False",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5077,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*__INTEGER_OPTIONSMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_OPTIONSMENUSHOWERRORSIMMEDIATELY)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Syntax Ch#ecker",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5078,"ide_methods.bas");}while(r); -} -do{ -*__INTEGER_IDECHANGEMADE= 1 ; -if(!qbevent)break;evnt(26070,5080,"ide_methods.bas");}while(r); -do{ -*__BYTE_STARTPAUSEDPENDING= 0 ; -if(!qbevent)break;evnt(26070,5081,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,5082,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,5082,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,5083,"ide_methods.bas");}while(r); -} -S_41915:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 16 ),qbs_new_txt_len("Ignore #Warnings",16))))||new_error){ -if(qbevent){evnt(26070,5086,"ide_methods.bas");if(r)goto S_41915;} -do{ -sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(26070,5087,"ide_methods.bas");}while(r); -S_41917:; -if ((-(*__BYTE_IGNOREWARNINGS== 0 ))||new_error){ -if(qbevent){evnt(26070,5088,"ide_methods.bas");if(r)goto S_41917;} -do{ -*__BYTE_IGNOREWARNINGS= -1 ; -if(!qbevent)break;evnt(26070,5089,"ide_methods.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("IgnoreWarnings",14),qbs_new_txt_len("True",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5090,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*__INTEGER_OPTIONSMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_OPTIONSMENUIGNOREWARNINGS)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(func_chr( 7 ),qbs_new_txt_len("Ignore #Warnings",16))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5091,"ide_methods.bas");}while(r); -}else{ -do{ -*__BYTE_IGNOREWARNINGS= 0 ; -if(!qbevent)break;evnt(26070,5093,"ide_methods.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("IgnoreWarnings",14),qbs_new_txt_len("False",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5094,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*__INTEGER_OPTIONSMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_OPTIONSMENUIGNOREWARNINGS)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Ignore #Warnings",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5095,"ide_methods.bas");}while(r); -} -do{ -*__INTEGER_IDECHANGEMADE= 1 ; -if(!qbevent)break;evnt(26070,5097,"ide_methods.bas");}while(r); -do{ -*__BYTE_STARTPAUSEDPENDING= 0 ; -if(!qbevent)break;evnt(26070,5098,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,5099,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,5099,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,5100,"ide_methods.bas");}while(r); -} -S_41932:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 11 ),qbs_new_txt_len("GUI Dialogs",11))))||new_error){ -if(qbevent){evnt(26070,5103,"ide_methods.bas");if(r)goto S_41932;} -do{ -sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(26070,5104,"ide_methods.bas");}while(r); -do{ -*__ULONG_USEGUIDIALOGS=~(*__ULONG_USEGUIDIALOGS); -if(!qbevent)break;evnt(26070,5105,"ide_methods.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("UseGuiDialogs",13),FUNC_BOOLTOTFSTRING((int32*)__ULONG_USEGUIDIALOGS)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5106,"ide_methods.bas");}while(r); -S_41936:; -if ((*__ULONG_USEGUIDIALOGS)||new_error){ -if(qbevent){evnt(26070,5108,"ide_methods.bas");if(r)goto S_41936;} -do{ -tmp_long=array_check((*__INTEGER_OPTIONSMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_OPTIONSMENUGUIDIALOGS)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(func_chr( 7 ),qbs_new_txt_len("GUI Dialogs",11))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5109,"ide_methods.bas");}while(r); -}else{ -do{ -tmp_long=array_check((*__INTEGER_OPTIONSMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_OPTIONSMENUGUIDIALOGS)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("GUI Dialogs",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5111,"ide_methods.bas");}while(r); -} -do{ -*__INTEGER_IDECHANGEMADE= 1 ; -if(!qbevent)break;evnt(26070,5114,"ide_methods.bas");}while(r); -do{ -*__BYTE_STARTPAUSEDPENDING= 0 ; -if(!qbevent)break;evnt(26070,5115,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,5116,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,5116,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,5117,"ide_methods.bas");}while(r); -} -S_41947:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 28 ),qbs_new_txt_len("Output EXE to Source #Folder",28))))||new_error){ -if(qbevent){evnt(26070,5123,"ide_methods.bas");if(r)goto S_41947;} -do{ -sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(26070,5124,"ide_methods.bas");}while(r); -do{ -*__BYTE_SAVEEXEWITHSOURCE=~(*__BYTE_SAVEEXEWITHSOURCE); -if(!qbevent)break;evnt(26070,5125,"ide_methods.bas");}while(r); -S_41950:; -if ((*__BYTE_SAVEEXEWITHSOURCE)||new_error){ -if(qbevent){evnt(26070,5126,"ide_methods.bas");if(r)goto S_41950;} -do{ -SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("SaveExeWithSource",17),qbs_new_txt_len("True",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5127,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*__INTEGER_RUNMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_RUNMENUSAVEEXEWITHSOURCE)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(func_chr( 7 ),qbs_new_txt_len("Output EXE to Source #Folder",28))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5128,"ide_methods.bas");}while(r); -}else{ -do{ -SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("SaveExeWithSource",17),qbs_new_txt_len("False",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5130,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*__INTEGER_RUNMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_RUNMENUSAVEEXEWITHSOURCE)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Output EXE to Source #Folder",28)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5131,"ide_methods.bas");}while(r); -} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,5133,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,5133,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECOMPILED= 0 ; -if(!qbevent)break;evnt(26070,5134,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,5135,"ide_methods.bas");}while(r); -} -S_41962:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 1 ,NULL,0),qbs_new_txt_len("#Generate License For EXE",25)))|(qbs_equal(func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 2 ,NULL,0),qbs_new_txt_len("#Generate License For EXE",25)))))||new_error){ -if(qbevent){evnt(26070,5138,"ide_methods.bas");if(r)goto S_41962;} -do{ -sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(26070,5139,"ide_methods.bas");}while(r); -do{ -*__ULONG_GENERATELICENSEFILE=~(*__ULONG_GENERATELICENSEFILE); -if(!qbevent)break;evnt(26070,5140,"ide_methods.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_COMPILERSETTINGSSECTION,qbs_new_txt_len("GenerateLicenseFile",19),FUNC_BOOLTOTFSTRING((int32*)__ULONG_GENERATELICENSEFILE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5141,"ide_methods.bas");}while(r); -S_41966:; -if ((*__ULONG_GENERATELICENSEFILE)||new_error){ -if(qbevent){evnt(26070,5143,"ide_methods.bas");if(r)goto S_41966;} -do{ -tmp_long=array_check((*__INTEGER_RUNMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_GENERATELICENSEENABLEMENU)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(func_chr( 7 ),qbs_new_txt_len("#Generate License For EXE",25))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5144,"ide_methods.bas");}while(r); -}else{ -do{ -tmp_long=array_check((*__INTEGER_RUNMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_GENERATELICENSEENABLEMENU)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Generate License For EXE",25)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5146,"ide_methods.bas");}while(r); -} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,5149,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,5149,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,5150,"ide_methods.bas");}while(r); -} -S_41975:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 29 ),qbs_new_txt_len("#Output Watch List to Console",29))))||new_error){ -if(qbevent){evnt(26070,5153,"ide_methods.bas");if(r)goto S_41975;} -do{ -sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(26070,5154,"ide_methods.bas");}while(r); -do{ -*__BYTE_WATCHLISTTOCONSOLE=~(*__BYTE_WATCHLISTTOCONSOLE); -if(!qbevent)break;evnt(26070,5155,"ide_methods.bas");}while(r); -S_41978:; -if ((*__BYTE_WATCHLISTTOCONSOLE)||new_error){ -if(qbevent){evnt(26070,5156,"ide_methods.bas");if(r)goto S_41978;} -do{ -SUB_WRITECONFIGSETTING(__STRING_DEBUGSETTINGSSECTION,qbs_new_txt_len("WatchListToConsole",18),qbs_new_txt_len("True",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5157,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*__INTEGER_DEBUGMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_DEBUGMENUWATCHLISTTOCONSOLE)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(func_chr( 7 ),qbs_new_txt_len("#Output Watch List to Console",29))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5158,"ide_methods.bas");}while(r); -}else{ -do{ -SUB_WRITECONFIGSETTING(__STRING_DEBUGSETTINGSSECTION,qbs_new_txt_len("WatchListToConsole",18),qbs_new_txt_len("False",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5160,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*__INTEGER_DEBUGMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_DEBUGMENUWATCHLISTTOCONSOLE)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Output Watch List to Console",29)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5161,"ide_methods.bas");}while(r); -} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,5163,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,5163,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,5164,"ide_methods.bas");}while(r); -} -S_41989:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 28 ),qbs_new_txt_len("Auto-add $#Debug Metacommand",28))))||new_error){ -if(qbevent){evnt(26070,5167,"ide_methods.bas");if(r)goto S_41989;} -do{ -sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(26070,5168,"ide_methods.bas");}while(r); -do{ -*__BYTE_AUTOADDDEBUGCOMMAND=~(*__BYTE_AUTOADDDEBUGCOMMAND); -if(!qbevent)break;evnt(26070,5169,"ide_methods.bas");}while(r); -S_41992:; -if ((*__BYTE_AUTOADDDEBUGCOMMAND)||new_error){ -if(qbevent){evnt(26070,5170,"ide_methods.bas");if(r)goto S_41992;} -do{ -SUB_WRITECONFIGSETTING(__STRING_DEBUGSETTINGSSECTION,qbs_new_txt_len("AutoAddDebugCommand",19),qbs_new_txt_len("True",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5171,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*__INTEGER_DEBUGMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_DEBUGMENUAUTOADDCOMMAND)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(func_chr( 7 ),qbs_new_txt_len("Auto-add $#Debug Metacommand",28))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5172,"ide_methods.bas");}while(r); -}else{ -do{ -SUB_WRITECONFIGSETTING(__STRING_DEBUGSETTINGSSECTION,qbs_new_txt_len("AutoAddDebugCommand",19),qbs_new_txt_len("False",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5174,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*__INTEGER_DEBUGMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_DEBUGMENUAUTOADDCOMMAND)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Auto-add $#Debug Metacommand",28)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5175,"ide_methods.bas");}while(r); -} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,5177,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,5177,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,5178,"ide_methods.bas");}while(r); -} -S_42003:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 1 , 17 ,0|1),qbs_new_txt_len("#Quick Navigation",17)))|(qbs_equal(func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 2 , 17 ,0|1),qbs_new_txt_len("#Quick Navigation",17)))))||new_error){ -if(qbevent){evnt(26070,5181,"ide_methods.bas");if(r)goto S_42003;} -do{ -sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(26070,5182,"ide_methods.bas");}while(r); -do{ -*__BYTE_ENABLEQUICKNAV=~(*__BYTE_ENABLEQUICKNAV); -if(!qbevent)break;evnt(26070,5183,"ide_methods.bas");}while(r); -S_42006:; -if ((*__BYTE_ENABLEQUICKNAV)||new_error){ -if(qbevent){evnt(26070,5184,"ide_methods.bas");if(r)goto S_42006;} -do{ -SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("EnableQuickNav",14),qbs_new_txt_len("True",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5185,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*__INTEGER_SEARCHMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_SEARCHMENUENABLEQUICKNAV)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(func_chr( 7 ),qbs_new_txt_len("#Quick Navigation",17))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5186,"ide_methods.bas");}while(r); -}else{ -do{ -SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("EnableQuickNav",14),qbs_new_txt_len("False",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5188,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*__INTEGER_SEARCHMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_SEARCHMENUENABLEQUICKNAV)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Quick Navigation",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5189,"ide_methods.bas");}while(r); -} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,5191,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,5191,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,5192,"ide_methods.bas");}while(r); -} -S_42017:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Code Layout...",15))))||new_error){ -if(qbevent){evnt(26070,5195,"ide_methods.bas");if(r)goto S_42017;} -do{ -sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(26070,5196,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_RETVAL=FUNC_IDELAYOUTBOX(); -if(!qbevent)break;evnt(26070,5197,"ide_methods.bas");}while(r); -S_42020:; -if ((*_FUNC_IDE2_LONG_RETVAL)||new_error){ -if(qbevent){evnt(26070,5198,"ide_methods.bas");if(r)goto S_42020;} -do{ -*__INTEGER_IDECHANGEMADE= 1 ; -if(!qbevent)break;evnt(26070,5198,"ide_methods.bas");}while(r); -do{ -*__LONG_IDELAYOUTALLOW= 2 ; -if(!qbevent)break;evnt(26070,5198,"ide_methods.bas");}while(r); -do{ -*__BYTE_STARTPAUSEDPENDING= 0 ; -if(!qbevent)break;evnt(26070,5198,"ide_methods.bas");}while(r); -} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,5199,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,5199,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,5200,"ide_methods.bas");}while(r); -} -S_42029:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Co#mpiler Settings...",21))))||new_error){ -if(qbevent){evnt(26070,5203,"ide_methods.bas");if(r)goto S_42029;} -do{ -sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(26070,5204,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_RETVAL=FUNC_IDECOMPILERSETTINGSBOX(); -if(!qbevent)break;evnt(26070,5205,"ide_methods.bas");}while(r); -S_42032:; -if ((*_FUNC_IDE2_LONG_RETVAL)||new_error){ -if(qbevent){evnt(26070,5206,"ide_methods.bas");if(r)goto S_42032;} -do{ -*__INTEGER_IDECHANGEMADE= 1 ; -if(!qbevent)break;evnt(26070,5206,"ide_methods.bas");}while(r); -do{ -*__LONG_IDELAYOUTALLOW= 2 ; -if(!qbevent)break;evnt(26070,5206,"ide_methods.bas");}while(r); -do{ -*__BYTE_STARTPAUSEDPENDING= 0 ; -if(!qbevent)break;evnt(26070,5206,"ide_methods.bas");}while(r); -} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,5207,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,5207,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,5208,"ide_methods.bas");}while(r); -} -S_42041:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Add/Remove #Bookmark Alt+Left",30))))||new_error){ -if(qbevent){evnt(26070,5211,"ide_methods.bas");if(r)goto S_42041;} -do{ -sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(26070,5212,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_BMKREMOVED= 0 ; -if(!qbevent)break;evnt(26070,5213,"ide_methods.bas");}while(r); -LABEL_BMKREMOVEB:; -if(qbevent){evnt(26070,5214,"ide_methods.bas");r=0;} -S_42044:; -fornext_value4516= 1 ; -fornext_finalvalue4516=*__LONG_IDEBMKN; -fornext_step4516= 1 ; -if (fornext_step4516<0) fornext_step_negative4516=1; else fornext_step_negative4516=0; -if (new_error) goto fornext_error4516; -goto fornext_entrylabel4516; -while(1){ -fornext_value4516=fornext_step4516+(*_FUNC_IDE2_LONG_B); -fornext_entrylabel4516: -*_FUNC_IDE2_LONG_B=fornext_value4516; -if (fornext_step_negative4516){ -if (fornext_value4516fornext_finalvalue4516) break; -} -fornext_error4516:; -if(qbevent){evnt(26070,5215,"ide_methods.bas");if(r)goto S_42044;} -S_42045:; -if ((-(*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_FUNC_IDE2_LONG_B)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16))==*__LONG_IDECY))||new_error){ -if(qbevent){evnt(26070,5216,"ide_methods.bas");if(r)goto S_42045;} -S_42046:; -fornext_value4518=*_FUNC_IDE2_LONG_B; -fornext_finalvalue4518=*__LONG_IDEBMKN- 1 ; -fornext_step4518= 1 ; -if (fornext_step4518<0) fornext_step_negative4518=1; else fornext_step_negative4518=0; -if (new_error) goto fornext_error4518; -goto fornext_entrylabel4518; -while(1){ -fornext_value4518=fornext_step4518+(*_FUNC_IDE2_LONG_B2); -fornext_entrylabel4518: -*_FUNC_IDE2_LONG_B2=fornext_value4518; -if (fornext_step_negative4518){ -if (fornext_value4518fornext_finalvalue4518) break; -} -fornext_error4518:; -if(qbevent){evnt(26070,5217,"ide_methods.bas");if(r)goto S_42046;} -do{ -memcpy(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_FUNC_IDE2_LONG_B2)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16)+ 0,((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_FUNC_IDE2_LONG_B2+ 1 )-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16)+ 0, 16); -if(!qbevent)break;evnt(26070,5218,"ide_methods.bas");}while(r); -fornext_continue_4517:; -} -fornext_exit_4517:; -do{ -*__LONG_IDEBMKN=*__LONG_IDEBMKN- 1 ; -if(!qbevent)break;evnt(26070,5220,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_BMKREMOVED= 1 ; -if(!qbevent)break;evnt(26070,5221,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEUNSAVED= 1 ; -if(!qbevent)break;evnt(26070,5222,"ide_methods.bas");}while(r); -do{ -goto LABEL_BMKREMOVEB; -if(!qbevent)break;evnt(26070,5223,"ide_methods.bas");}while(r); -} -fornext_continue_4515:; -} -fornext_exit_4515:; -S_42055:; -if ((-(*_FUNC_IDE2_LONG_BMKREMOVED== 0 ))||new_error){ -if(qbevent){evnt(26070,5226,"ide_methods.bas");if(r)goto S_42055;} -do{ -*__LONG_IDEBMKN=*__LONG_IDEBMKN+ 1 ; -if(!qbevent)break;evnt(26070,5227,"ide_methods.bas");}while(r); -S_42057:; -if ((-(*__LONG_IDEBMKN>func_ubound(__ARRAY_UDT_IDEBMK,1,1)))||new_error){ -if(qbevent){evnt(26070,5228,"ide_methods.bas");if(r)goto S_42057;} -do{ -*_FUNC_IDE2_LONG_X=func_ubound(__ARRAY_UDT_IDEBMK,1,1)* 2 ; -if(!qbevent)break;evnt(26070,5228,"ide_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26070,3586,"ide_methods.bas");}while(r); +S_40219:; +fornext_value4317= 1 ; +fornext_finalvalue4317=*__LONG_IDEBMKN; +fornext_step4317= 1 ; +if (fornext_step4317<0) fornext_step_negative4317=1; else fornext_step_negative4317=0; +if (new_error) goto fornext_error4317; +goto fornext_entrylabel4317; +while(1){ +fornext_value4317=fornext_step4317+(*_FUNC_IDE2_LONG_BI); +fornext_entrylabel4317: +*_FUNC_IDE2_LONG_BI=fornext_value4317; +if (fornext_step_negative4317){ +if (fornext_value4317fornext_finalvalue4317) break; +} +fornext_error4317:; +if(qbevent){evnt(26070,3587,"ide_methods.bas");if(r)goto S_40219;} +do{ +sub_get( 150 ,NULL,byte_element((uint64)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_FUNC_IDE2_LONG_BI)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16)),4,byte_element_4318),0); +if(!qbevent)break;evnt(26070,3587,"ide_methods.bas");}while(r); +do{ +sub_get( 150 ,NULL,byte_element((uint64)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_FUNC_IDE2_LONG_BI)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16+4)),4,byte_element_4319),0); +if(!qbevent)break;evnt(26070,3587,"ide_methods.bas");}while(r); +fornext_continue_4316:; +} +fornext_exit_4316:; +do{ +sub_get( 150 ,NULL,byte_element((uint64)_FUNC_IDE2_LONG_X,4,byte_element_4320),0); +if(!qbevent)break;evnt(26070,3588,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_IDET,func_space(*_FUNC_IDE2_LONG_X)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3588,"ide_methods.bas");}while(r); +do{ +sub_get2( 150 ,NULL,__STRING_IDET,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3588,"ide_methods.bas");}while(r); +do{ +*__INTEGER_IDECHANGEMADE= 1 ; +if(!qbevent)break;evnt(26070,3590,"ide_methods.bas");}while(r); +do{ +*__LONG_IDENOUNDO= 1 ; +if(!qbevent)break;evnt(26070,3590,"ide_methods.bas");}while(r); +do{ +*__BYTE_STARTPAUSEDPENDING= 0 ; +if(!qbevent)break;evnt(26070,3590,"ide_methods.bas");}while(r); +} +do{ +sub_close( 150 ,1); +if(!qbevent)break;evnt(26070,3594,"ide_methods.bas");}while(r); +} +do{ +goto LABEL_SPECIALCHAR; +if(!qbevent)break;evnt(26070,3596,"ide_methods.bas");}while(r); +} +S_40234:; +if ((qbs_cleanup(qbs_tmp_base,(((*__LONG_KSHIFT&(-(*__LONG_KB== 21248 )))|(*__LONG_KCONTROL&(qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("X",1))))))&(-(*__LONG_IDESELECT== 1 ))))||new_error){ +if(qbevent){evnt(26070,3600,"ide_methods.bas");if(r)goto S_40234;} +LABEL_IDEMCUT:; +if(qbevent){evnt(26070,3601,"ide_methods.bas");r=0;} +do{ +*__INTEGER_IDECHANGEMADE= 1 ; +if(!qbevent)break;evnt(26070,3602,"ide_methods.bas");}while(r); +do{ +*__BYTE_STARTPAUSEDPENDING= 0 ; +if(!qbevent)break;evnt(26070,3603,"ide_methods.bas");}while(r); +do{ +goto LABEL_COPY2CLIP; +if(!qbevent)break;evnt(26070,3604,"ide_methods.bas");}while(r); +} +S_40239:; +if (((((-(*__LONG_KB== 21248 ))|(-(*__LONG_KB== 8 ))))&(-(*__LONG_IDESELECT== 1 )))||new_error){ +if(qbevent){evnt(26070,3607,"ide_methods.bas");if(r)goto S_40239;} +S_40240:; +if (((-(*__LONG_IDESELECTY1!=*__LONG_IDECY))|(-(*__LONG_IDESELECTX1!=*__LONG_IDECX)))||new_error){ +if(qbevent){evnt(26070,3608,"ide_methods.bas");if(r)goto S_40240;} +do{ +*__INTEGER_IDECHANGEMADE= 1 ; +if(!qbevent)break;evnt(26070,3609,"ide_methods.bas");}while(r); +do{ +*__BYTE_STARTPAUSEDPENDING= 0 ; +if(!qbevent)break;evnt(26070,3610,"ide_methods.bas");}while(r); +do{ +SUB_DELSELECT(); +if(!qbevent)break;evnt(26070,3611,"ide_methods.bas");}while(r); +do{ +goto LABEL_SPECIALCHAR; +if(!qbevent)break;evnt(26070,3612,"ide_methods.bas");}while(r); +}else{ +do{ +*__LONG_IDESELECT= 0 ; +if(!qbevent)break;evnt(26070,3614,"ide_methods.bas");}while(r); +} +} +S_40249:; +if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(-(*__LONG_KB== 20992 )))|(*__LONG_KCONTROL&(qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("V",1))))))||new_error){ +if(qbevent){evnt(26070,3619,"ide_methods.bas");if(r)goto S_40249;} +LABEL_IDEMPASTE:; +if(qbevent){evnt(26070,3620,"ide_methods.bas");r=0;} +do{ +qbs_set(_FUNC_IDE2_STRING_CLIP,func__clipboard()); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3622,"ide_methods.bas");}while(r); +S_40251:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_CLIP->len))||new_error){ +if(qbevent){evnt(26070,3624,"ide_methods.bas");if(r)goto S_40251;} +S_40252:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_IDE2_STRING_CLIP,func_chr( 13 ),0)|func_instr(NULL,_FUNC_IDE2_STRING_CLIP,func_chr( 10 ),0)))||new_error){ +if(qbevent){evnt(26070,3625,"ide_methods.bas");if(r)goto S_40252;} +S_40253:; +if ((*__LONG_IDESELECT)||new_error){ +if(qbevent){evnt(26070,3628,"ide_methods.bas");if(r)goto S_40253;} +do{ +SUB_DELSELECT(); +if(!qbevent)break;evnt(26070,3628,"ide_methods.bas");}while(r); +} +do{ +*__LONG_IDELAYOUTALLOW= 2 ; +if(!qbevent)break;evnt(26070,3630,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_CLIP); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3631,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_X3= 1 ; +if(!qbevent)break;evnt(26070,3632,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I= 0 ; +if(!qbevent)break;evnt(26070,3633,"ide_methods.bas");}while(r); +LABEL_FULLPASTENEXTLINE:; +if(qbevent){evnt(26070,3635,"ide_methods.bas");r=0;} +do{ +*_FUNC_IDE2_LONG_X=func_instr(*_FUNC_IDE2_LONG_X3,_FUNC_IDE2_STRING_A,func_chr( 13 ),0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3637,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_X2=func_instr(*_FUNC_IDE2_LONG_X3,_FUNC_IDE2_STRING_A,func_chr( 10 ),0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3638,"ide_methods.bas");}while(r); +S_40262:; +if ((-(*_FUNC_IDE2_LONG_X== 0 ))||new_error){ +if(qbevent){evnt(26070,3639,"ide_methods.bas");if(r)goto S_40262;} +do{ +*_FUNC_IDE2_LONG_X=*_FUNC_IDE2_LONG_X2; +if(!qbevent)break;evnt(26070,3639,"ide_methods.bas");}while(r); +} +S_40265:; +if ((-(*_FUNC_IDE2_LONG_X2== 0 ))||new_error){ +if(qbevent){evnt(26070,3640,"ide_methods.bas");if(r)goto S_40265;} +do{ +*_FUNC_IDE2_LONG_X2=*_FUNC_IDE2_LONG_X; +if(!qbevent)break;evnt(26070,3640,"ide_methods.bas");}while(r); +} +S_40268:; +if ((-(*_FUNC_IDE2_LONG_X2<*_FUNC_IDE2_LONG_X))||new_error){ +if(qbevent){evnt(26070,3641,"ide_methods.bas");if(r)goto S_40268;} +do{ +swap_32(&*_FUNC_IDE2_LONG_X,&*_FUNC_IDE2_LONG_X2); +if(!qbevent)break;evnt(26070,3641,"ide_methods.bas");}while(r); +} +S_40271:; +if ((-(*_FUNC_IDE2_LONG_X2>(*_FUNC_IDE2_LONG_X+ 1 )))||new_error){ +if(qbevent){evnt(26070,3642,"ide_methods.bas");if(r)goto S_40271;} +do{ +*_FUNC_IDE2_LONG_X2=*_FUNC_IDE2_LONG_X; +if(!qbevent)break;evnt(26070,3642,"ide_methods.bas");}while(r); +} +S_40274:; +if ((*_FUNC_IDE2_LONG_X)||new_error){ +if(qbevent){evnt(26070,3645,"ide_methods.bas");if(r)goto S_40274;} +do{ +SUB_IDEINSLINE(&(pass4322=*__LONG_IDECY+*_FUNC_IDE2_LONG_I),FUNC_CONVERTTABS(func_mid(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_X3,*_FUNC_IDE2_LONG_X-*_FUNC_IDE2_LONG_X3,0|1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3646,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,3647,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_X3=*_FUNC_IDE2_LONG_X2+ 1 ; +if(!qbevent)break;evnt(26070,3648,"ide_methods.bas");}while(r); +}else{ +do{ +SUB_IDEINSLINE(&(pass4323=*__LONG_IDECY+*_FUNC_IDE2_LONG_I),FUNC_CONVERTTABS(func_mid(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_X3,_FUNC_IDE2_STRING_A->len-*_FUNC_IDE2_LONG_X3+ 1 ,0|1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3650,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,3651,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_X3=_FUNC_IDE2_STRING_A->len+ 1 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3652,"ide_methods.bas");}while(r); +} +S_40283:; +if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDE2_LONG_X3<=_FUNC_IDE2_STRING_A->len)))||new_error){ +if(qbevent){evnt(26070,3655,"ide_methods.bas");if(r)goto S_40283;} +do{ +goto LABEL_FULLPASTENEXTLINE; +if(!qbevent)break;evnt(26070,3655,"ide_methods.bas");}while(r); +} +S_40286:; +if ((*__BYTE_PASTECURSORATEND)||new_error){ +if(qbevent){evnt(26070,3657,"ide_methods.bas");if(r)goto S_40286;} +do{ +*__LONG_IDECY=*__LONG_IDECY+*_FUNC_IDE2_LONG_I- 1 ; +if(!qbevent)break;evnt(26070,3659,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECX=((int32)(FUNC_IDEGETLINE(__LONG_IDECY))->len)+ 1 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3660,"ide_methods.bas");}while(r); +S_40289:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_FUNC_IDE2_STRING_CLIP, 1 ),func_chr( 10 ))))||new_error){ +if(qbevent){evnt(26070,3661,"ide_methods.bas");if(r)goto S_40289;} +do{ +*__LONG_IDECY=*__LONG_IDECY+ 1 ; +if(!qbevent)break;evnt(26070,3662,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECX= 1 ; +if(!qbevent)break;evnt(26070,3663,"ide_methods.bas");}while(r); +} +} +}else{ +do{ +SUB_INSERTATCURSOR(_FUNC_IDE2_STRING_CLIP); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3668,"ide_methods.bas");}while(r); +} +do{ +*__INTEGER_IDECHANGEMADE= 1 ; +if(!qbevent)break;evnt(26070,3671,"ide_methods.bas");}while(r); +do{ +*__BYTE_STARTPAUSEDPENDING= 0 ; +if(!qbevent)break;evnt(26070,3672,"ide_methods.bas");}while(r); +} +do{ +goto LABEL_SPECIALCHAR; +if(!qbevent)break;evnt(26070,3674,"ide_methods.bas");}while(r); +} +S_40302:; +if ((qbs_cleanup(qbs_tmp_base,(((*__LONG_KCTRL&(-(*__LONG_KB== 20992 )))|(*__LONG_KCONTROL&(qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("C",1))))))&(-(*__LONG_IDESELECT== 1 ))))||new_error){ +if(qbevent){evnt(26070,3677,"ide_methods.bas");if(r)goto S_40302;} +LABEL_COPY2CLIP:; +if(qbevent){evnt(26070,3678,"ide_methods.bas");r=0;} +do{ +qbs_set(_FUNC_IDE2_STRING_CLIP,FUNC_GETSELECTEDTEXT(&(pass4327= -1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3679,"ide_methods.bas");}while(r); +S_40304:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_IDE2_STRING_CLIP,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,3680,"ide_methods.bas");if(r)goto S_40304;} +do{ +sub__clipboard(_FUNC_IDE2_STRING_CLIP); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3680,"ide_methods.bas");}while(r); +} +S_40307:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,(qbs_add(func_chr( 0 ),qbs_new_txt_len("S",1)))))|(*__LONG_KSHIFT&(-(*__LONG_KB== 21248 )))|(*__LONG_KCONTROL&(qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("X",1))))))||new_error){ +if(qbevent){evnt(26070,3681,"ide_methods.bas");if(r)goto S_40307;} +do{ +SUB_DELSELECT(); +if(!qbevent)break;evnt(26070,3681,"ide_methods.bas");}while(r); +} +do{ +goto LABEL_SPECIALCHAR; +if(!qbevent)break;evnt(26070,3682,"ide_methods.bas");}while(r); +} +S_40312:; +if ((-(*__LONG_KB== 20992 ))||new_error){ +if(qbevent){evnt(26070,3685,"ide_methods.bas");if(r)goto S_40312;} +do{ +*__INTEGER_IDEINSERT=*__INTEGER_IDEINSERT+ 1 ; +if(!qbevent)break;evnt(26070,3686,"ide_methods.bas");}while(r); +S_40314:; +if ((-(*__INTEGER_IDEINSERT== 2 ))||new_error){ +if(qbevent){evnt(26070,3687,"ide_methods.bas");if(r)goto S_40314;} +do{ +*__INTEGER_IDEINSERT= 0 ; +if(!qbevent)break;evnt(26070,3687,"ide_methods.bas");}while(r); +} +} +S_40318:; +if ((-(*__LONG_KB== 18432 ))||new_error){ +if(qbevent){evnt(26070,3690,"ide_methods.bas");if(r)goto S_40318;} +S_40319:; +if ((*__LONG_KCONTROL)||new_error){ +if(qbevent){evnt(26070,3691,"ide_methods.bas");if(r)goto S_40319;} +do{ +*__LONG_IDESY=*__LONG_IDESY- 1 ; +if(!qbevent)break;evnt(26070,3692,"ide_methods.bas");}while(r); +S_40321:; +if ((-(*__LONG_IDESY< 1 ))||new_error){ +if(qbevent){evnt(26070,3693,"ide_methods.bas");if(r)goto S_40321;} +do{ +*__LONG_IDESY= 1 ; +if(!qbevent)break;evnt(26070,3693,"ide_methods.bas");}while(r); +} +S_40324:; +if ((-(*__LONG_IDECY>(*__LONG_IDESY+(*__LONG_IDEWY- 9 ))))||new_error){ +if(qbevent){evnt(26070,3694,"ide_methods.bas");if(r)goto S_40324;} +do{ +*__LONG_IDECY=*__LONG_IDESY+(*__LONG_IDEWY- 9 ); +if(!qbevent)break;evnt(26070,3694,"ide_methods.bas");}while(r); +} +}else{ +do{ +return_point[next_return_point++]=34; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SELECTCHECK; +RETURN_34:; +if(!qbevent)break;evnt(26070,3696,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECY=*__LONG_IDECY- 1 ; +if(!qbevent)break;evnt(26070,3697,"ide_methods.bas");}while(r); +S_40330:; +if ((-(*__LONG_IDECY< 1 ))||new_error){ +if(qbevent){evnt(26070,3698,"ide_methods.bas");if(r)goto S_40330;} +do{ +*__LONG_IDECY= 1 ; +if(!qbevent)break;evnt(26070,3698,"ide_methods.bas");}while(r); +} +do{ +goto LABEL_SPECIALCHAR; +if(!qbevent)break;evnt(26070,3699,"ide_methods.bas");}while(r); +} +} +S_40336:; +if ((-(*__LONG_KB== 20480 ))||new_error){ +if(qbevent){evnt(26070,3703,"ide_methods.bas");if(r)goto S_40336;} +S_40337:; +if ((*__LONG_KCONTROL)||new_error){ +if(qbevent){evnt(26070,3704,"ide_methods.bas");if(r)goto S_40337;} +do{ +*__LONG_IDESY=*__LONG_IDESY+ 1 ; +if(!qbevent)break;evnt(26070,3705,"ide_methods.bas");}while(r); +S_40339:; +if ((-(*__LONG_IDESY>*__LONG_IDEN))||new_error){ +if(qbevent){evnt(26070,3706,"ide_methods.bas");if(r)goto S_40339;} +do{ +*__LONG_IDESY=*__LONG_IDEN; +if(!qbevent)break;evnt(26070,3706,"ide_methods.bas");}while(r); +} +S_40342:; +if ((-(*__LONG_IDECY<*__LONG_IDESY))||new_error){ +if(qbevent){evnt(26070,3707,"ide_methods.bas");if(r)goto S_40342;} +do{ +*__LONG_IDECY=*__LONG_IDESY; +if(!qbevent)break;evnt(26070,3707,"ide_methods.bas");}while(r); +} +}else{ +do{ +return_point[next_return_point++]=35; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SELECTCHECK; +RETURN_35:; +if(!qbevent)break;evnt(26070,3709,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECY=*__LONG_IDECY+ 1 ; +if(!qbevent)break;evnt(26070,3710,"ide_methods.bas");}while(r); +S_40348:; +if ((-(*__LONG_IDECY>*__LONG_IDEN))||new_error){ +if(qbevent){evnt(26070,3711,"ide_methods.bas");if(r)goto S_40348;} +do{ +*__LONG_IDECY=*__LONG_IDEN; +if(!qbevent)break;evnt(26070,3711,"ide_methods.bas");}while(r); +} +do{ +goto LABEL_SPECIALCHAR; +if(!qbevent)break;evnt(26070,3712,"ide_methods.bas");}while(r); +} +} +S_40354:; +if ((*__LONG_MWHEEL)||new_error){ +if(qbevent){evnt(26070,3716,"ide_methods.bas");if(r)goto S_40354;} +do{ +return_point[next_return_point++]=36; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SELECTCHECK; +RETURN_36:; +if(!qbevent)break;evnt(26070,3717,"ide_methods.bas");}while(r); +S_40356:; +if ((-(*__LONG_MWHEEL< 0 ))||new_error){ +if(qbevent){evnt(26070,3719,"ide_methods.bas");if(r)goto S_40356;} +do{ +*__LONG_IDECY=*__LONG_IDESY; +if(!qbevent)break;evnt(26070,3719,"ide_methods.bas");}while(r); +} +S_40359:; +if ((-(*__LONG_MWHEEL> 0 ))||new_error){ +if(qbevent){evnt(26070,3720,"ide_methods.bas");if(r)goto S_40359;} +do{ +*__LONG_IDECY=*__LONG_IDESY+(*__LONG_IDEWY- 9 ); +if(!qbevent)break;evnt(26070,3720,"ide_methods.bas");}while(r); +} +do{ +*__LONG_IDECY=*__LONG_IDECY+(*__LONG_MWHEEL* 3 ); +if(!qbevent)break;evnt(26070,3721,"ide_methods.bas");}while(r); +S_40363:; +if ((-(*__LONG_IDECY< 1 ))||new_error){ +if(qbevent){evnt(26070,3722,"ide_methods.bas");if(r)goto S_40363;} +do{ +*__LONG_IDECY= 1 ; +if(!qbevent)break;evnt(26070,3722,"ide_methods.bas");}while(r); +} +S_40366:; +if ((-(*__LONG_IDECY>*__LONG_IDEN))||new_error){ +if(qbevent){evnt(26070,3723,"ide_methods.bas");if(r)goto S_40366;} +do{ +*__LONG_IDECY=*__LONG_IDEN; +if(!qbevent)break;evnt(26070,3723,"ide_methods.bas");}while(r); +} +do{ +goto LABEL_SPECIALCHAR; +if(!qbevent)break;evnt(26070,3724,"ide_methods.bas");}while(r); +} +S_40371:; +if ((-(*__LONG_KB== 19200 ))||new_error){ +if(qbevent){evnt(26070,3727,"ide_methods.bas");if(r)goto S_40371;} +do{ +return_point[next_return_point++]=37; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SELECTCHECK; +RETURN_37:; +if(!qbevent)break;evnt(26070,3728,"ide_methods.bas");}while(r); +S_40373:; +if ((*__LONG_KCONTROL)||new_error){ +if(qbevent){evnt(26070,3730,"ide_methods.bas");if(r)goto S_40373;} +do{ +qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3732,"ide_methods.bas");}while(r); +S_40375:; +if ((qbs_cleanup(qbs_tmp_base,-(*__LONG_IDECX>_FUNC_IDE2_STRING_A->len)))||new_error){ +if(qbevent){evnt(26070,3733,"ide_methods.bas");if(r)goto S_40375;} +do{ +*__LONG_IDECX=_FUNC_IDE2_STRING_A->len+ 1 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3733,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDE2_LONG_SKIPPING= 1 ; +if(!qbevent)break;evnt(26070,3735,"ide_methods.bas");}while(r); +S_40379:; +do{ +if(qbevent){evnt(26070,3736,"ide_methods.bas");if(r)goto S_40379;} +do{ +*__LONG_IDECX=*__LONG_IDECX- 1 ; +if(!qbevent)break;evnt(26070,3738,"ide_methods.bas");}while(r); +S_40381:; +if ((-(*__LONG_IDECX< 1 ))||new_error){ +if(qbevent){evnt(26070,3740,"ide_methods.bas");if(r)goto S_40381;} +S_40382:; +do{ +if(qbevent){evnt(26070,3741,"ide_methods.bas");if(r)goto S_40382;} +S_40383:; +if ((-(*__LONG_IDECY== 1 ))||new_error){ +if(qbevent){evnt(26070,3742,"ide_methods.bas");if(r)goto S_40383;} +do{ +*__LONG_IDECX= 1 ; +if(!qbevent)break;evnt(26070,3742,"ide_methods.bas");}while(r); +do{ +goto LABEL_SPECIALCHAR; +if(!qbevent)break;evnt(26070,3742,"ide_methods.bas");}while(r); +} +do{ +*__LONG_IDECY=*__LONG_IDECY- 1 ; +if(!qbevent)break;evnt(26070,3743,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3744,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECX=_FUNC_IDE2_STRING_A->len+ 1 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3745,"ide_methods.bas");}while(r); +S_40390:; +dl_continue_4331:; +}while((!(qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_A->len)))&&(!new_error)); +dl_exit_4331:; +if(qbevent){evnt(26070,3746,"ide_methods.bas");if(r)goto S_40390;} +do{ +goto LABEL_SPECIALCHAR; +if(!qbevent)break;evnt(26070,3747,"ide_methods.bas");}while(r); +} +S_40393:; +if ((qbs_cleanup(qbs_tmp_base,((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(_FUNC_IDE2_STRING_A,*__LONG_IDECX))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]))||new_error){ +if(qbevent){evnt(26070,3750,"ide_methods.bas");if(r)goto S_40393;} +S_40394:; +if ((-(*__LONG_IDECX== 1 ))||new_error){ +if(qbevent){evnt(26070,3751,"ide_methods.bas");if(r)goto S_40394;} +do{ +goto LABEL_SPECIALCHAR; +if(!qbevent)break;evnt(26070,3751,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDE2_LONG_X=*__LONG_IDECX; +if(!qbevent)break;evnt(26070,3752,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_Y=*__LONG_IDECY; +if(!qbevent)break;evnt(26070,3752,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_SKIPPING= 0 ; +if(!qbevent)break;evnt(26070,3753,"ide_methods.bas");}while(r); +}else{ +S_40401:; +if ((-(*_FUNC_IDE2_LONG_SKIPPING== 0 ))||new_error){ +if(qbevent){evnt(26070,3755,"ide_methods.bas");if(r)goto S_40401;} +do{ +*__LONG_IDECX=*_FUNC_IDE2_LONG_X; +if(!qbevent)break;evnt(26070,3755,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECY=*_FUNC_IDE2_LONG_Y; +if(!qbevent)break;evnt(26070,3755,"ide_methods.bas");}while(r); +do{ +goto LABEL_SPECIALCHAR; +if(!qbevent)break;evnt(26070,3755,"ide_methods.bas");}while(r); +} +} +dl_continue_4330:; +}while(1); +dl_exit_4330:; +}else{ +do{ +*__LONG_IDECX=*__LONG_IDECX- 1 ; +if(!qbevent)break;evnt(26070,3761,"ide_methods.bas");}while(r); +S_40410:; +if ((-(*__LONG_IDECX< 1 ))||new_error){ +if(qbevent){evnt(26070,3762,"ide_methods.bas");if(r)goto S_40410;} +do{ +*__LONG_IDECX= 1 ; +if(!qbevent)break;evnt(26070,3762,"ide_methods.bas");}while(r); +} +} +do{ +goto LABEL_SPECIALCHAR; +if(!qbevent)break;evnt(26070,3766,"ide_methods.bas");}while(r); +} +S_40416:; +if ((-(*__LONG_KB== 19712 ))||new_error){ +if(qbevent){evnt(26070,3769,"ide_methods.bas");if(r)goto S_40416;} +do{ +return_point[next_return_point++]=38; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SELECTCHECK; +RETURN_38:; +if(!qbevent)break;evnt(26070,3770,"ide_methods.bas");}while(r); +S_40418:; +if ((*__LONG_KCONTROL)||new_error){ +if(qbevent){evnt(26070,3772,"ide_methods.bas");if(r)goto S_40418;} +do{ +qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3774,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_SKIPPING= 0 ; +if(!qbevent)break;evnt(26070,3775,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_FIRST= 1 ; +if(!qbevent)break;evnt(26070,3776,"ide_methods.bas");}while(r); +S_40422:; +do{ +if(qbevent){evnt(26070,3777,"ide_methods.bas");if(r)goto S_40422;} +S_40423:; +if ((-(*_FUNC_IDE2_LONG_FIRST== 0 ))||new_error){ +if(qbevent){evnt(26070,3779,"ide_methods.bas");if(r)goto S_40423;} +do{ +*__LONG_IDECX=*__LONG_IDECX+ 1 ; +if(!qbevent)break;evnt(26070,3779,"ide_methods.bas");}while(r); +} +S_40426:; +if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_IDE2_LONG_FIRST== 0 ))&(-(*__LONG_IDECX==(_FUNC_IDE2_STRING_A->len+ 1 )))))||new_error){ +if(qbevent){evnt(26070,3781,"ide_methods.bas");if(r)goto S_40426;} +do{ +goto LABEL_SPECIALCHAR; +if(!qbevent)break;evnt(26070,3781,"ide_methods.bas");}while(r); +} +S_40429:; +if ((qbs_cleanup(qbs_tmp_base,-(*__LONG_IDECX>_FUNC_IDE2_STRING_A->len)))||new_error){ +if(qbevent){evnt(26070,3782,"ide_methods.bas");if(r)goto S_40429;} +S_40430:; +do{ +if(qbevent){evnt(26070,3783,"ide_methods.bas");if(r)goto S_40430;} +S_40431:; +if ((-(*__LONG_IDECY==*__LONG_IDEN))||new_error){ +if(qbevent){evnt(26070,3784,"ide_methods.bas");if(r)goto S_40431;} +do{ +goto LABEL_SPECIALCHAR; +if(!qbevent)break;evnt(26070,3784,"ide_methods.bas");}while(r); +} +do{ +*__LONG_IDECY=*__LONG_IDECY+ 1 ; +if(!qbevent)break;evnt(26070,3785,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECX= 1 ; +if(!qbevent)break;evnt(26070,3785,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3786,"ide_methods.bas");}while(r); +S_40437:; +dl_continue_4337:; +}while((!(qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_A->len)))&&(!new_error)); +dl_exit_4337:; +if(qbevent){evnt(26070,3787,"ide_methods.bas");if(r)goto S_40437;} +do{ +*_FUNC_IDE2_LONG_SKIPPING= 0 ; +if(!qbevent)break;evnt(26070,3788,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_FIRST= 0 ; +if(!qbevent)break;evnt(26070,3789,"ide_methods.bas");}while(r); +} +S_40441:; +if ((qbs_cleanup(qbs_tmp_base,((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(_FUNC_IDE2_STRING_A,*__LONG_IDECX))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]))||new_error){ +if(qbevent){evnt(26070,3792,"ide_methods.bas");if(r)goto S_40441;} +S_40442:; +if ((*_FUNC_IDE2_LONG_FIRST)||new_error){ +if(qbevent){evnt(26070,3793,"ide_methods.bas");if(r)goto S_40442;} +do{ +*_FUNC_IDE2_LONG_SKIPPING= 1 ; +if(!qbevent)break;evnt(26070,3794,"ide_methods.bas");}while(r); +}else{ +S_40445:; +if ((-(*_FUNC_IDE2_LONG_SKIPPING== 0 ))||new_error){ +if(qbevent){evnt(26070,3796,"ide_methods.bas");if(r)goto S_40445;} +do{ +goto LABEL_SPECIALCHAR; +if(!qbevent)break;evnt(26070,3796,"ide_methods.bas");}while(r); +} +} +}else{ +do{ +*_FUNC_IDE2_LONG_SKIPPING= 0 ; +if(!qbevent)break;evnt(26070,3799,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDE2_LONG_FIRST= 0 ; +if(!qbevent)break;evnt(26070,3801,"ide_methods.bas");}while(r); +dl_continue_4334:; +}while(1); +dl_exit_4334:; +}else{ +do{ +*__LONG_IDECX=*__LONG_IDECX+ 1 ; +if(!qbevent)break;evnt(26070,3806,"ide_methods.bas");}while(r); +} +do{ +goto LABEL_SPECIALCHAR; +if(!qbevent)break;evnt(26070,3810,"ide_methods.bas");}while(r); +} +S_40459:; +if ((*__LONG_KCONTROL&(-(*__LONG_KB== 18176 )))||new_error){ +if(qbevent){evnt(26070,3813,"ide_methods.bas");if(r)goto S_40459;} +do{ +return_point[next_return_point++]=39; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SELECTCHECK; +RETURN_39:; +if(!qbevent)break;evnt(26070,3814,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECX= 1 ; +if(!qbevent)break;evnt(26070,3815,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECY= 1 ; +if(!qbevent)break;evnt(26070,3816,"ide_methods.bas");}while(r); +do{ +goto LABEL_SPECIALCHAR; +if(!qbevent)break;evnt(26070,3817,"ide_methods.bas");}while(r); +} +S_40465:; +if ((*__LONG_KCONTROL&(-(*__LONG_KB== 20224 )))||new_error){ +if(qbevent){evnt(26070,3820,"ide_methods.bas");if(r)goto S_40465;} +do{ +return_point[next_return_point++]=40; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SELECTCHECK; +RETURN_40:; +if(!qbevent)break;evnt(26070,3821,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECY=*__LONG_IDEN; +if(!qbevent)break;evnt(26070,3822,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3823,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECX=_FUNC_IDE2_STRING_A->len+ 1 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3824,"ide_methods.bas");}while(r); +do{ +goto LABEL_SPECIALCHAR; +if(!qbevent)break;evnt(26070,3825,"ide_methods.bas");}while(r); +} +S_40472:; +if ((-(*__LONG_KB== 18176 ))||new_error){ +if(qbevent){evnt(26070,3828,"ide_methods.bas");if(r)goto S_40472;} +do{ +return_point[next_return_point++]=41; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SELECTCHECK; +RETURN_41:; +if(!qbevent)break;evnt(26070,3829,"ide_methods.bas");}while(r); +S_40474:; +if ((-(*__LONG_IDECX!= 1 ))||new_error){ +if(qbevent){evnt(26070,3830,"ide_methods.bas");if(r)goto S_40474;} +do{ +*__LONG_IDECX= 1 ; +if(!qbevent)break;evnt(26070,3831,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3833,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECX= 1 ; +if(!qbevent)break;evnt(26070,3834,"ide_methods.bas");}while(r); +S_40479:; +fornext_value4341= 1 ; +fornext_finalvalue4341=_FUNC_IDE2_STRING_A->len; +fornext_step4341= 1 ; +if (fornext_step4341<0) fornext_step_negative4341=1; else fornext_step_negative4341=0; +if (new_error) goto fornext_error4341; +goto fornext_entrylabel4341; +while(1){ +fornext_value4341=fornext_step4341+(*_FUNC_IDE2_LONG_X); +fornext_entrylabel4341: +*_FUNC_IDE2_LONG_X=fornext_value4341; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative4341){ +if (fornext_value4341fornext_finalvalue4341) break; +} +fornext_error4341:; +if(qbevent){evnt(26070,3835,"ide_methods.bas");if(r)goto S_40479;} +S_40480:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_X)!= 32 )))||new_error){ +if(qbevent){evnt(26070,3836,"ide_methods.bas");if(r)goto S_40480;} +do{ +*__LONG_IDECX=*_FUNC_IDE2_LONG_X; +if(!qbevent)break;evnt(26070,3836,"ide_methods.bas");}while(r); +do{ +goto fornext_exit_4340; +if(!qbevent)break;evnt(26070,3836,"ide_methods.bas");}while(r); +} +fornext_continue_4340:; +} +fornext_exit_4340:; +} +do{ +goto LABEL_SPECIALCHAR; +if(!qbevent)break;evnt(26070,3839,"ide_methods.bas");}while(r); +} +S_40488:; +if ((-(*__LONG_KB== 20224 ))||new_error){ +if(qbevent){evnt(26070,3842,"ide_methods.bas");if(r)goto S_40488;} +do{ +return_point[next_return_point++]=42; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SELECTCHECK; +RETURN_42:; +if(!qbevent)break;evnt(26070,3843,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3844,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECX=_FUNC_IDE2_STRING_A->len+ 1 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3845,"ide_methods.bas");}while(r); +do{ +goto LABEL_SPECIALCHAR; +if(!qbevent)break;evnt(26070,3846,"ide_methods.bas");}while(r); +} +S_40494:; +if ((-(*__LONG_KB== 18688 ))||new_error){ +if(qbevent){evnt(26070,3849,"ide_methods.bas");if(r)goto S_40494;} +do{ +return_point[next_return_point++]=43; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SELECTCHECK; +RETURN_43:; +if(!qbevent)break;evnt(26070,3850,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECY=*__LONG_IDECY-(*__LONG_IDEWY- 9 ); +if(!qbevent)break;evnt(26070,3851,"ide_methods.bas");}while(r); +S_40497:; +if ((-(*__LONG_IDECY< 1 ))||new_error){ +if(qbevent){evnt(26070,3852,"ide_methods.bas");if(r)goto S_40497;} +do{ +*__LONG_IDECY= 1 ; +if(!qbevent)break;evnt(26070,3852,"ide_methods.bas");}while(r); +} +do{ +goto LABEL_SPECIALCHAR; +if(!qbevent)break;evnt(26070,3853,"ide_methods.bas");}while(r); +} +S_40502:; +if ((-(*__LONG_KB== 20736 ))||new_error){ +if(qbevent){evnt(26070,3856,"ide_methods.bas");if(r)goto S_40502;} +do{ +return_point[next_return_point++]=44; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SELECTCHECK; +RETURN_44:; +if(!qbevent)break;evnt(26070,3857,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECY=*__LONG_IDECY+(*__LONG_IDEWY- 9 ); +if(!qbevent)break;evnt(26070,3858,"ide_methods.bas");}while(r); +S_40505:; +if ((-(*__LONG_IDECY>*__LONG_IDEN))||new_error){ +if(qbevent){evnt(26070,3859,"ide_methods.bas");if(r)goto S_40505;} +do{ +*__LONG_IDECY=*__LONG_IDEN; +if(!qbevent)break;evnt(26070,3859,"ide_methods.bas");}while(r); +} +do{ +goto LABEL_SPECIALCHAR; +if(!qbevent)break;evnt(26070,3860,"ide_methods.bas");}while(r); +} +do{ +goto LABEL_SKIPGOSUBS; +if(!qbevent)break;evnt(26070,3863,"ide_methods.bas");}while(r); +LABEL_SELECTCHECK:; +if(qbevent){evnt(26070,3865,"ide_methods.bas");r=0;} +S_40511:; +if ((-(*__LONG_IDESYSTEM== 1 ))||new_error){ +if(qbevent){evnt(26070,3866,"ide_methods.bas");if(r)goto S_40511;} +S_40512:; +if ((*__LONG_KSHIFT&(-(*__LONG_IDESELECT== 0 )))||new_error){ +if(qbevent){evnt(26070,3867,"ide_methods.bas");if(r)goto S_40512;} +do{ +*__LONG_IDESELECT= 1 ; +if(!qbevent)break;evnt(26070,3867,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESELECTX1=*__LONG_IDECX; +if(!qbevent)break;evnt(26070,3867,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESELECTY1=*__LONG_IDECY; +if(!qbevent)break;evnt(26070,3867,"ide_methods.bas");}while(r); +} +S_40517:; +if ((-(*__LONG_KSHIFT== 0 ))||new_error){ +if(qbevent){evnt(26070,3868,"ide_methods.bas");if(r)goto S_40517;} +do{ +*__LONG_IDESELECT= 0 ; +if(!qbevent)break;evnt(26070,3868,"ide_methods.bas");}while(r); +} +S_40520:; +}else{ +if (-(*__LONG_IDESYSTEM== 2 )){ +if(qbevent){evnt(26070,3869,"ide_methods.bas");if(r)goto S_40520;} +S_40521:; +if ((*__LONG_KSHIFT&(-(*_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL== 0 )))||new_error){ +if(qbevent){evnt(26070,3870,"ide_methods.bas");if(r)goto S_40521;} +do{ +*_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL= -1 ; +if(!qbevent)break;evnt(26070,3870,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__SX1=*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1; +if(!qbevent)break;evnt(26070,3870,"ide_methods.bas");}while(r); +} +S_40525:; +if ((-(*__LONG_KSHIFT== 0 ))||new_error){ +if(qbevent){evnt(26070,3871,"ide_methods.bas");if(r)goto S_40525;} +do{ +*_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL= 0 ; +if(!qbevent)break;evnt(26070,3871,"ide_methods.bas");}while(r); +} +} +} +do{ +#include "ret170.txt" +if(!qbevent)break;evnt(26070,3873,"ide_methods.bas");}while(r); +LABEL_SKIPGOSUBS:; +if(qbevent){evnt(26070,3875,"ide_methods.bas");r=0;} +S_40530:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,func_chr( 13 ))))||new_error){ +if(qbevent){evnt(26070,3877,"ide_methods.bas");if(r)goto S_40530;} +S_40531:; +if ((*__LONG_KSHIFT)||new_error){ +if(qbevent){evnt(26070,3878,"ide_methods.bas");if(r)goto S_40531;} +do{ +qbs_set(_FUNC_IDE2_STRING_RETVAL,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3879,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3880,"ide_methods.bas");}while(r); +S_40534:; +if ((*__BYTE_ENTERINGRGB)||new_error){ +if(qbevent){evnt(26070,3881,"ide_methods.bas");if(r)goto S_40534;} +do{ +*_FUNC_IDE2_LONG_OLDKEYWORDHIGHLIGHT=*__INTEGER_KEYWORDHIGHLIGHT; +if(!qbevent)break;evnt(26070,3882,"ide_methods.bas");}while(r); +do{ +*__INTEGER_KEYWORDHIGHLIGHT= 0 ; +if(!qbevent)break;evnt(26070,3883,"ide_methods.bas");}while(r); +do{ +SUB_HIDEBRACKETHIGHLIGHT(); +if(!qbevent)break;evnt(26070,3884,"ide_methods.bas");}while(r); +do{ +*__INTEGER_KEYWORDHIGHLIGHT=*_FUNC_IDE2_LONG_OLDKEYWORDHIGHLIGHT; +if(!qbevent)break;evnt(26070,3885,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_RETVAL,FUNC_IDERGBMIXER(&(pass4344= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3886,"ide_methods.bas");}while(r); +}else{ +S_40541:; +if ((*__LONG_IDESELECT)||new_error){ +if(qbevent){evnt(26070,3888,"ide_methods.bas");if(r)goto S_40541;} +S_40542:; +if ((-(*__LONG_IDESELECTY1!=*__LONG_IDECY))||new_error){ +if(qbevent){evnt(26070,3889,"ide_methods.bas");if(r)goto S_40542;} +do{ +goto LABEL_SPECIALCHAR; +if(!qbevent)break;evnt(26070,3889,"ide_methods.bas");}while(r); +} +} +do{ +*_FUNC_IDE2_LONG_FOUND_RGB= 0 ; +if(!qbevent)break;evnt(26070,3892,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_FOUND_RGB=*_FUNC_IDE2_LONG_FOUND_RGB+func_instr(NULL,qbs_ucase(_FUNC_IDE2_STRING_A),qbs_new_txt_len("RGB(",4),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3893,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_FOUND_RGB=*_FUNC_IDE2_LONG_FOUND_RGB+func_instr(NULL,qbs_ucase(_FUNC_IDE2_STRING_A),qbs_new_txt_len("RGB32(",6),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3894,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_FOUND_RGB=*_FUNC_IDE2_LONG_FOUND_RGB+func_instr(NULL,qbs_ucase(_FUNC_IDE2_STRING_A),qbs_new_txt_len("RGBA(",5),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3895,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_FOUND_RGB=*_FUNC_IDE2_LONG_FOUND_RGB+func_instr(NULL,qbs_ucase(_FUNC_IDE2_STRING_A),qbs_new_txt_len("RGBA32(",7),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3896,"ide_methods.bas");}while(r); +S_40551:; +if ((*_FUNC_IDE2_LONG_FOUND_RGB)||new_error){ +if(qbevent){evnt(26070,3897,"ide_methods.bas");if(r)goto S_40551;} +do{ +*_FUNC_IDE2_LONG_OLDKEYWORDHIGHLIGHT=*__INTEGER_KEYWORDHIGHLIGHT; +if(!qbevent)break;evnt(26070,3898,"ide_methods.bas");}while(r); +do{ +*__INTEGER_KEYWORDHIGHLIGHT= 0 ; +if(!qbevent)break;evnt(26070,3899,"ide_methods.bas");}while(r); +do{ +SUB_HIDEBRACKETHIGHLIGHT(); +if(!qbevent)break;evnt(26070,3900,"ide_methods.bas");}while(r); +do{ +*__INTEGER_KEYWORDHIGHLIGHT=*_FUNC_IDE2_LONG_OLDKEYWORDHIGHLIGHT; +if(!qbevent)break;evnt(26070,3901,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_RETVAL,FUNC_IDERGBMIXER(&(pass4345= -1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3902,"ide_methods.bas");}while(r); +}else{ +do{ +goto LABEL_REGULARENTER; +if(!qbevent)break;evnt(26070,3904,"ide_methods.bas");}while(r); +} +} +S_40561:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_RETVAL->len))||new_error){ +if(qbevent){evnt(26070,3907,"ide_methods.bas");if(r)goto S_40561;} +S_40562:; +if ((*__BYTE_ENTERINGRGB)||new_error){ +if(qbevent){evnt(26070,3909,"ide_methods.bas");if(r)goto S_40562;} +do{ +SUB_INSERTATCURSOR(func_mid(_FUNC_IDE2_STRING_RETVAL,func_instr(NULL,_FUNC_IDE2_STRING_RETVAL,qbs_new_txt_len("(",1),0)+ 1 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3910,"ide_methods.bas");}while(r); +}else{ +do{ +SUB_INSERTATCURSOR(_FUNC_IDE2_STRING_RETVAL); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3912,"ide_methods.bas");}while(r); +} +} +do{ +goto LABEL_SPECIALCHAR; +if(!qbevent)break;evnt(26070,3915,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3917,"ide_methods.bas");}while(r); +LABEL_REGULARENTER:; +if(qbevent){evnt(26070,3918,"ide_methods.bas");r=0;} +do{ +*__LONG_IDESELECT= 0 ; +if(!qbevent)break;evnt(26070,3919,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_DESIREDCOLUMN= 1 ; +if(!qbevent)break;evnt(26070,3920,"ide_methods.bas");}while(r); +do{ +*__INTEGER_IDECHANGEMADE= 1 ; +if(!qbevent)break;evnt(26070,3921,"ide_methods.bas");}while(r); +do{ +*__BYTE_STARTPAUSEDPENDING= 0 ; +if(!qbevent)break;evnt(26070,3922,"ide_methods.bas");}while(r); +S_40575:; +if ((qbs_cleanup(qbs_tmp_base,-(*__LONG_IDECX>_FUNC_IDE2_STRING_A->len)))||new_error){ +if(qbevent){evnt(26070,3923,"ide_methods.bas");if(r)goto S_40575;} +do{ +SUB_IDEINSLINE(&(pass4348=*__LONG_IDECY+ 1 ),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3924,"ide_methods.bas");}while(r); +S_40577:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDE2_STRING_A->len== 0 )))||new_error){ +if(qbevent){evnt(26070,3925,"ide_methods.bas");if(r)goto S_40577;} +do{ +*_FUNC_IDE2_LONG_DESIREDCOLUMN=*__LONG_IDECX; +if(!qbevent)break;evnt(26070,3926,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_IDE2_LONG_DESIREDCOLUMN=_FUNC_IDE2_STRING_A->len-((int32)(qbs_ltrim(_FUNC_IDE2_STRING_A))->len)+ 1 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3928,"ide_methods.bas");}while(r); +} +}else{ +do{ +qbs_set(_FUNC_IDE2_STRING_A2,qbs_left(_FUNC_IDE2_STRING_A,*__LONG_IDECX- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3931,"ide_methods.bas");}while(r); +do{ +SUB_IDESETLINE(__LONG_IDECY,_FUNC_IDE2_STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3932,"ide_methods.bas");}while(r); +S_40585:; +if ((qbs_cleanup(qbs_tmp_base,-(((int32)(qbs_ltrim(_FUNC_IDE2_STRING_A2))->len)> 0 )))||new_error){ +if(qbevent){evnt(26070,3933,"ide_methods.bas");if(r)goto S_40585;} +S_40586:; +if ((-(*__LONG_IDECX> 1 ))||new_error){ +if(qbevent){evnt(26070,3934,"ide_methods.bas");if(r)goto S_40586;} +do{ +*_FUNC_IDE2_LONG_DESIREDCOLUMN=_FUNC_IDE2_STRING_A->len-((int32)(qbs_ltrim(_FUNC_IDE2_STRING_A))->len); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3934,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_IDE2_LONG_DESIREDCOLUMN= 0 ; +if(!qbevent)break;evnt(26070,3934,"ide_methods.bas");}while(r); +} +do{ +SUB_IDEINSLINE(&(pass4352=*__LONG_IDECY+ 1 ),qbs_add(func_space(*_FUNC_IDE2_LONG_DESIREDCOLUMN),qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len-*__LONG_IDECX+ 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3935,"ide_methods.bas");}while(r); +S_40592:; +if ((-(*_FUNC_IDE2_LONG_DESIREDCOLUMN== 0 ))||new_error){ +if(qbevent){evnt(26070,3936,"ide_methods.bas");if(r)goto S_40592;} +do{ +*_FUNC_IDE2_LONG_DESIREDCOLUMN= 1 ; +if(!qbevent)break;evnt(26070,3936,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_IDE2_LONG_DESIREDCOLUMN=*_FUNC_IDE2_LONG_DESIREDCOLUMN+ 1 ; +if(!qbevent)break;evnt(26070,3936,"ide_methods.bas");}while(r); +} +}else{ +do{ +*_FUNC_IDE2_LONG_DESIREDCOLUMN=*__LONG_IDECX; +if(!qbevent)break;evnt(26070,3938,"ide_methods.bas");}while(r); +do{ +SUB_IDEINSLINE(&(pass4354=*__LONG_IDECY+ 1 ),qbs_add(func_space(*_FUNC_IDE2_LONG_DESIREDCOLUMN- 1 ),qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len-*__LONG_IDECX+ 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3939,"ide_methods.bas");}while(r); +} +} +S_40602:; +if ((-(*__LONG_IDECX== 1 ))||new_error){ +if(qbevent){evnt(26070,3943,"ide_methods.bas");if(r)goto S_40602;} +S_40603:; +fornext_value4357= 1 ; +fornext_finalvalue4357=*__LONG_IDEBMKN; +fornext_step4357= 1 ; +if (fornext_step4357<0) fornext_step_negative4357=1; else fornext_step_negative4357=0; +if (new_error) goto fornext_error4357; +goto fornext_entrylabel4357; +while(1){ +fornext_value4357=fornext_step4357+(*_FUNC_IDE2_LONG_B); +fornext_entrylabel4357: +*_FUNC_IDE2_LONG_B=fornext_value4357; +if (fornext_step_negative4357){ +if (fornext_value4357fornext_finalvalue4357) break; +} +fornext_error4357:; +if(qbevent){evnt(26070,3944,"ide_methods.bas");if(r)goto S_40603;} +S_40604:; +if ((-(*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_FUNC_IDE2_LONG_B)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16))==*__LONG_IDECY))||new_error){ +if(qbevent){evnt(26070,3945,"ide_methods.bas");if(r)goto S_40604;} +do{ +*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_FUNC_IDE2_LONG_B)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16))=*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_FUNC_IDE2_LONG_B)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16))+ 1 ; +if(!qbevent)break;evnt(26070,3945,"ide_methods.bas");}while(r); +} +fornext_continue_4356:; +} +fornext_exit_4356:; +} +do{ +*__LONG_IDECY=*__LONG_IDECY+ 1 ; +if(!qbevent)break;evnt(26070,3949,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECX=*_FUNC_IDE2_LONG_DESIREDCOLUMN; +if(!qbevent)break;evnt(26070,3950,"ide_methods.bas");}while(r); +do{ +goto LABEL_SPECIALCHAR; +if(!qbevent)break;evnt(26070,3951,"ide_methods.bas");}while(r); +} +} +S_40614:; +if (((-(*__LONG_KB== 21248 ))&(-(*__LONG_KCONTROL== 0 )))||new_error){ +if(qbevent){evnt(26070,3955,"ide_methods.bas");if(r)goto S_40614;} +do{ +*__INTEGER_IDECHANGEMADE= 1 ; +if(!qbevent)break;evnt(26070,3956,"ide_methods.bas");}while(r); +do{ +*__BYTE_STARTPAUSEDPENDING= 0 ; +if(!qbevent)break;evnt(26070,3957,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3958,"ide_methods.bas");}while(r); +S_40618:; +if ((qbs_cleanup(qbs_tmp_base,-(*__LONG_IDECX<=_FUNC_IDE2_STRING_A->len)))||new_error){ +if(qbevent){evnt(26070,3959,"ide_methods.bas");if(r)goto S_40618;} +do{ +qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_left(_FUNC_IDE2_STRING_A,*__LONG_IDECX- 1 ),qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len-*__LONG_IDECX))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3960,"ide_methods.bas");}while(r); +do{ +SUB_IDESETLINE(__LONG_IDECY,_FUNC_IDE2_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3961,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDE2_STRING_A,qbs_add(_FUNC_IDE2_STRING_A,func_space(*__LONG_IDECX-_FUNC_IDE2_STRING_A->len- 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3963,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_A,qbs_add(_FUNC_IDE2_STRING_A,qbs_ltrim(FUNC_IDEGETLINE(&(pass4361=*__LONG_IDECY+ 1 ))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3964,"ide_methods.bas");}while(r); +do{ +SUB_IDESETLINE(__LONG_IDECY,_FUNC_IDE2_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3965,"ide_methods.bas");}while(r); +do{ +SUB_IDEDELLINE(&(pass4362=*__LONG_IDECY+ 1 )); +if(!qbevent)break;evnt(26070,3966,"ide_methods.bas");}while(r); +} +do{ +goto LABEL_SPECIALCHAR; +if(!qbevent)break;evnt(26070,3968,"ide_methods.bas");}while(r); +} +S_40629:; +if ((qbs_cleanup(qbs_tmp_base,((-(func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)> 0 ))&*__LONG_KCONTROL&(qbs_equal(__STRING_K,(qbs_add(func_chr( 0 ),func_chr( 83 ))))))|((-(func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0)> 0 ))&(qbs_equal(__STRING_K,func_chr( 8 )))&*__LONG_KCONTROL)))||new_error){ +if(qbevent){evnt(26070,3976,"ide_methods.bas");if(r)goto S_40629;} +do{ +*__LONG_IDESELECT= 0 ; +if(!qbevent)break;evnt(26070,3977,"ide_methods.bas");}while(r); +do{ +*__INTEGER_IDECHANGEMADE= 1 ; +if(!qbevent)break;evnt(26070,3978,"ide_methods.bas");}while(r); +do{ +*__BYTE_STARTPAUSEDPENDING= 0 ; +if(!qbevent)break;evnt(26070,3979,"ide_methods.bas");}while(r); +S_40633:; +if ((-(*__LONG_IDEUNDOCOMBOCHR!= 8 ))||new_error){ +if(qbevent){evnt(26070,3982,"ide_methods.bas");if(r)goto S_40633;} +do{ +*__LONG_IDEUNDOCOMBO= 2 ; +if(!qbevent)break;evnt(26070,3983,"ide_methods.bas");}while(r); +}else{ +do{ +*__LONG_IDEUNDOCOMBO=*__LONG_IDEUNDOCOMBO+ 1 ; +if(!qbevent)break;evnt(26070,3985,"ide_methods.bas");}while(r); +S_40637:; +if ((-(*__LONG_IDEUNDOCOMBO== 2 ))||new_error){ +if(qbevent){evnt(26070,3986,"ide_methods.bas");if(r)goto S_40637;} +do{ +*__LONG_IDEMERGEUNDO= 1 ; +if(!qbevent)break;evnt(26070,3986,"ide_methods.bas");}while(r); +} +} +do{ +*__LONG_IDEUNDOCOMBOCHR= 8 ; +if(!qbevent)break;evnt(26070,3988,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3991,"ide_methods.bas");}while(r); +S_40643:; +if ((-(*__LONG_IDECX== 1 ))||new_error){ +if(qbevent){evnt(26070,3992,"ide_methods.bas");if(r)goto S_40643;} +do{ +goto LABEL_REGULARBACKSPACEIDECX1; +if(!qbevent)break;evnt(26070,3992,"ide_methods.bas");}while(r); +} +S_40646:; +if ((qbs_cleanup(qbs_tmp_base,-(*__LONG_IDECX>(_FUNC_IDE2_STRING_A->len+ 2 ))))||new_error){ +if(qbevent){evnt(26070,3993,"ide_methods.bas");if(r)goto S_40646;} +do{ +*__LONG_IDECX=_FUNC_IDE2_STRING_A->len+ 1 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3994,"ide_methods.bas");}while(r); +do{ +goto LABEL_SPECIALCHAR; +if(!qbevent)break;evnt(26070,3995,"ide_methods.bas");}while(r); +S_40649:; +}else{ +if (qbs_cleanup(qbs_tmp_base,-(*__LONG_IDECX==(_FUNC_IDE2_STRING_A->len+ 2 )))){ +if(qbevent){evnt(26070,3996,"ide_methods.bas");if(r)goto S_40649;} +do{ +*__LONG_IDECX=_FUNC_IDE2_STRING_A->len+ 1 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3997,"ide_methods.bas");}while(r); +} +} +S_40652:; +if ((qbs_cleanup(qbs_tmp_base,-(((int32)(qbs_rtrim(func_mid(_FUNC_IDE2_STRING_A, 1 ,*__LONG_IDECX- 1 ,0|1)))->len)== 0 )))||new_error){ +if(qbevent){evnt(26070,4000,"ide_methods.bas");if(r)goto S_40652;} +do{ +qbs_set(_FUNC_IDE2_STRING_A,func_mid(_FUNC_IDE2_STRING_A,*__LONG_IDECX,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4002,"ide_methods.bas");}while(r); +do{ +SUB_IDESETLINE(__LONG_IDECY,_FUNC_IDE2_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4003,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECX= 1 ; +if(!qbevent)break;evnt(26070,4004,"ide_methods.bas");}while(r); +do{ +goto LABEL_SPECIALCHAR; +if(!qbevent)break;evnt(26070,4005,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDE2_LONG_I=*__LONG_IDECX; +if(!qbevent)break;evnt(26070,4009,"ide_methods.bas");}while(r); +S_40659:; +do{ +if(qbevent){evnt(26070,4010,"ide_methods.bas");if(r)goto S_40659;} +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I- 1 ; +if(!qbevent)break;evnt(26070,4011,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_FIRSTCHAR,func_mid(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_I, 1 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4012,"ide_methods.bas");}while(r); +S_40662:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_IDE2_STRING_FIRSTCHAR,func_chr( 32 ))))||new_error){ +if(qbevent){evnt(26070,4013,"ide_methods.bas");if(r)goto S_40662;} +do{ +goto dl_exit_4367; +if(!qbevent)break;evnt(26070,4013,"ide_methods.bas");}while(r); +} +dl_continue_4367:; +}while(1); +dl_exit_4367:; +S_40666:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_IDE2_STRING_CHAR__ASCII_CHR_046__SEP,_FUNC_IDE2_STRING_FIRSTCHAR,0)))||new_error){ +if(qbevent){evnt(26070,4015,"ide_methods.bas");if(r)goto S_40666;} +S_40667:; +do{ +if(qbevent){evnt(26070,4016,"ide_methods.bas");if(r)goto S_40667;} +S_40668:; +if ((-(*_FUNC_IDE2_LONG_I== 0 ))||new_error){ +if(qbevent){evnt(26070,4017,"ide_methods.bas");if(r)goto S_40668;} +do{ +goto dl_exit_4368; +if(!qbevent)break;evnt(26070,4017,"ide_methods.bas");}while(r); +} +S_40671:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(func_mid(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_I, 1 ,0|1),_FUNC_IDE2_STRING_FIRSTCHAR)))||new_error){ +if(qbevent){evnt(26070,4018,"ide_methods.bas");if(r)goto S_40671;} +do{ +goto dl_exit_4368; +if(!qbevent)break;evnt(26070,4018,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I- 1 ; +if(!qbevent)break;evnt(26070,4019,"ide_methods.bas");}while(r); +dl_continue_4368:; +}while(1); +dl_exit_4368:; +}else{ +S_40677:; +do{ +if(qbevent){evnt(26070,4022,"ide_methods.bas");if(r)goto S_40677;} +S_40678:; +if ((-(*_FUNC_IDE2_LONG_I== 0 ))||new_error){ +if(qbevent){evnt(26070,4023,"ide_methods.bas");if(r)goto S_40678;} +do{ +goto dl_exit_4369; +if(!qbevent)break;evnt(26070,4023,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDE2_LONG_I=*_FUNC_IDE2_LONG_I- 1 ; +if(!qbevent)break;evnt(26070,4024,"ide_methods.bas");}while(r); +S_40682:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_IDE2_STRING_CHAR__ASCII_CHR_046__SEP,func_mid(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_I, 1 ,0|1),0)))||new_error){ +if(qbevent){evnt(26070,4025,"ide_methods.bas");if(r)goto S_40682;} +do{ +goto dl_exit_4369; +if(!qbevent)break;evnt(26070,4025,"ide_methods.bas");}while(r); +} +dl_continue_4369:; +}while(1); +dl_exit_4369:; +} +do{ +qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_left(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_I),func_mid(_FUNC_IDE2_STRING_A,*__LONG_IDECX,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4028,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECX=*_FUNC_IDE2_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,4029,"ide_methods.bas");}while(r); +do{ +SUB_IDESETLINE(__LONG_IDECY,_FUNC_IDE2_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4030,"ide_methods.bas");}while(r); +do{ +goto LABEL_SPECIALCHAR; +if(!qbevent)break;evnt(26070,4031,"ide_methods.bas");}while(r); +} +S_40692:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,func_chr( 8 ))))||new_error){ +if(qbevent){evnt(26070,4034,"ide_methods.bas");if(r)goto S_40692;} +do{ +*__LONG_IDESELECT= 0 ; +if(!qbevent)break;evnt(26070,4035,"ide_methods.bas");}while(r); +do{ +*__INTEGER_IDECHANGEMADE= 1 ; +if(!qbevent)break;evnt(26070,4036,"ide_methods.bas");}while(r); +do{ +*__BYTE_STARTPAUSEDPENDING= 0 ; +if(!qbevent)break;evnt(26070,4037,"ide_methods.bas");}while(r); +S_40696:; +if ((-(*__LONG_IDEUNDOCOMBOCHR!= 8 ))||new_error){ +if(qbevent){evnt(26070,4040,"ide_methods.bas");if(r)goto S_40696;} +do{ +*__LONG_IDEUNDOCOMBO= 2 ; +if(!qbevent)break;evnt(26070,4041,"ide_methods.bas");}while(r); +}else{ +do{ +*__LONG_IDEUNDOCOMBO=*__LONG_IDEUNDOCOMBO+ 1 ; +if(!qbevent)break;evnt(26070,4043,"ide_methods.bas");}while(r); +S_40700:; +if ((-(*__LONG_IDEUNDOCOMBO== 2 ))||new_error){ +if(qbevent){evnt(26070,4044,"ide_methods.bas");if(r)goto S_40700;} +do{ +*__LONG_IDEMERGEUNDO= 1 ; +if(!qbevent)break;evnt(26070,4044,"ide_methods.bas");}while(r); +} +} +do{ +*__LONG_IDEUNDOCOMBOCHR= 8 ; +if(!qbevent)break;evnt(26070,4046,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4048,"ide_methods.bas");}while(r); +S_40706:; +if ((-(*__LONG_IDECX== 1 ))||new_error){ +if(qbevent){evnt(26070,4049,"ide_methods.bas");if(r)goto S_40706;} +LABEL_REGULARBACKSPACEIDECX1:; +if(qbevent){evnt(26070,4050,"ide_methods.bas");r=0;} +S_40707:; +if ((-(*__LONG_IDECY> 1 ))||new_error){ +if(qbevent){evnt(26070,4051,"ide_methods.bas");if(r)goto S_40707;} +do{ +qbs_set(_FUNC_IDE2_STRING_A2,FUNC_IDEGETLINE(&(pass4370=*__LONG_IDECY- 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4052,"ide_methods.bas");}while(r); +S_40709:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDE2_STRING_A2->len> 0 )))||new_error){ +if(qbevent){evnt(26070,4053,"ide_methods.bas");if(r)goto S_40709;} +LABEL_REGULARBACKUPTOPREVLINE:; +if(qbevent){evnt(26070,4055,"ide_methods.bas");r=0;} +do{ +SUB_IDESETLINE(&(pass4372=*__LONG_IDECY- 1 ),qbs_add(_FUNC_IDE2_STRING_A2,_FUNC_IDE2_STRING_A)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4056,"ide_methods.bas");}while(r); +do{ +SUB_IDEDELLINE(__LONG_IDECY); +if(!qbevent)break;evnt(26070,4057,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECX=_FUNC_IDE2_STRING_A2->len+ 1 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4058,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECY=*__LONG_IDECY- 1 ; +if(!qbevent)break;evnt(26070,4059,"ide_methods.bas");}while(r); +}else{ +S_40715:; +if ((-(*__LONG_IDECY<*__LONG_IDEN))||new_error){ +if(qbevent){evnt(26070,4064,"ide_methods.bas");if(r)goto S_40715;} +do{ +qbs_set(_FUNC_IDE2_STRING_A3,FUNC_IDEGETLINE(&(pass4374=*__LONG_IDECY+ 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4065,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_DESIREDCOLUMN=_FUNC_IDE2_STRING_A3->len-((int32)(qbs_ltrim(_FUNC_IDE2_STRING_A3))->len); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4066,"ide_methods.bas");}while(r); +do{ +SUB_IDESETLINE(&(pass4376=*__LONG_IDECY- 1 ),qbs_add(func_space(*_FUNC_IDE2_LONG_DESIREDCOLUMN),_FUNC_IDE2_STRING_A)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4067,"ide_methods.bas");}while(r); +do{ +SUB_IDEDELLINE(__LONG_IDECY); +if(!qbevent)break;evnt(26070,4068,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECX=*_FUNC_IDE2_LONG_DESIREDCOLUMN+ 1 ; +if(!qbevent)break;evnt(26070,4069,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECY=*__LONG_IDECY- 1 ; +if(!qbevent)break;evnt(26070,4070,"ide_methods.bas");}while(r); +}else{ +do{ +goto LABEL_REGULARBACKUPTOPREVLINE; +if(!qbevent)break;evnt(26070,4072,"ide_methods.bas");}while(r); +} +} +} +do{ +goto LABEL_SPECIALCHAR; +if(!qbevent)break;evnt(26070,4076,"ide_methods.bas");}while(r); +} +S_40729:; +if ((qbs_cleanup(qbs_tmp_base,-(*__LONG_IDECX>(_FUNC_IDE2_STRING_A->len+ 1 ))))||new_error){ +if(qbevent){evnt(26070,4078,"ide_methods.bas");if(r)goto S_40729;} +do{ +*__LONG_IDECX=_FUNC_IDE2_STRING_A->len+ 1 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4079,"ide_methods.bas");}while(r); +}else{ +LABEL_CHECKSPACESBEHIND:; +if(qbevent){evnt(26070,4081,"ide_methods.bas");r=0;} +S_40732:; +if ((qbs_cleanup(qbs_tmp_base,-(((int32)(qbs_rtrim(func_mid(_FUNC_IDE2_STRING_A, 1 ,*__LONG_IDECX- 1 ,0|1)))->len)== 0 )))||new_error){ +if(qbevent){evnt(26070,4082,"ide_methods.bas");if(r)goto S_40732;} +do{ +*_FUNC_IDE2_LONG_X= 4 ; +if(!qbevent)break;evnt(26070,4084,"ide_methods.bas");}while(r); +S_40734:; +if ((-(*__LONG_IDEAUTOINDENTSIZE!= 0 ))||new_error){ +if(qbevent){evnt(26070,4085,"ide_methods.bas");if(r)goto S_40734;} +do{ +*_FUNC_IDE2_LONG_X=*__LONG_IDEAUTOINDENTSIZE; +if(!qbevent)break;evnt(26070,4085,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDE2_SINGLE_CHECK__ASCII_CHR_046__TABSTOP=(*__LONG_IDECX- 1 )/ ((long double)(*_FUNC_IDE2_LONG_X)); +if(!qbevent)break;evnt(26070,4086,"ide_methods.bas");}while(r); +S_40738:; +if ((-(((float)(*_FUNC_IDE2_SINGLE_CHECK__ASCII_CHR_046__TABSTOP))==((float)(func_fix_double(*_FUNC_IDE2_SINGLE_CHECK__ASCII_CHR_046__TABSTOP)))))||new_error){ +if(qbevent){evnt(26070,4087,"ide_methods.bas");if(r)goto S_40738;} +S_40739:; +if ((-((*__LONG_IDECX-*_FUNC_IDE2_LONG_X)<( 1 )))||new_error){ +if(qbevent){evnt(26070,4088,"ide_methods.bas");if(r)goto S_40739;} +do{ +*_FUNC_IDE2_LONG_X=*__LONG_IDECX- 1 ; +if(!qbevent)break;evnt(26070,4088,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_left(_FUNC_IDE2_STRING_A,*__LONG_IDECX-(*_FUNC_IDE2_LONG_X+ 1 )),qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len-*__LONG_IDECX+ 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4089,"ide_methods.bas");}while(r); +do{ +SUB_IDESETLINE(__LONG_IDECY,_FUNC_IDE2_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4090,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECX=*__LONG_IDECX-*_FUNC_IDE2_LONG_X; +if(!qbevent)break;evnt(26070,4091,"ide_methods.bas");}while(r); +}else{ +do{ +goto LABEL_ONEBACKSPACE; +if(!qbevent)break;evnt(26070,4093,"ide_methods.bas");}while(r); +} +}else{ +LABEL_ONEBACKSPACE:; +if(qbevent){evnt(26070,4096,"ide_methods.bas");r=0;} +do{ +qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_left(_FUNC_IDE2_STRING_A,*__LONG_IDECX- 2 ),qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len-*__LONG_IDECX+ 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4097,"ide_methods.bas");}while(r); +do{ +SUB_IDESETLINE(__LONG_IDECY,_FUNC_IDE2_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4098,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECX=*__LONG_IDECX- 1 ; +if(!qbevent)break;evnt(26070,4099,"ide_methods.bas");}while(r); +} +} +do{ +goto LABEL_SPECIALCHAR; +if(!qbevent)break;evnt(26070,4102,"ide_methods.bas");}while(r); +} +S_40756:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len!= 1 )))||new_error){ +if(qbevent){evnt(26070,4114,"ide_methods.bas");if(r)goto S_40756;} +do{ +goto LABEL_SPECIALCHAR; +if(!qbevent)break;evnt(26070,4114,"ide_methods.bas");}while(r); +} +S_40759:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,func_chr( 9 ))))||new_error){ +if(qbevent){evnt(26070,4115,"ide_methods.bas");if(r)goto S_40759;} +do{ +goto LABEL_IDEFORCEINPUT; +if(!qbevent)break;evnt(26070,4115,"ide_methods.bas");}while(r); +} +S_40762:; +if ((qbs_cleanup(qbs_tmp_base,((int16*)(__ARRAY_INTEGER_BLOCK_CHR[0]))[array_check((qbs_asc(__STRING_K))-__ARRAY_INTEGER_BLOCK_CHR[4],__ARRAY_INTEGER_BLOCK_CHR[5])]))||new_error){ +if(qbevent){evnt(26070,4116,"ide_methods.bas");if(r)goto S_40762;} +do{ +goto LABEL_SPECIALCHAR; +if(!qbevent)break;evnt(26070,4116,"ide_methods.bas");}while(r); +} +LABEL_IDEFORCEINPUT:; +if(qbevent){evnt(26070,4117,"ide_methods.bas");r=0;} +S_40765:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 9 )))|(((qbs_equal(__STRING_K,func_chr( 25 )))&(-(func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0)> 0 ))))))||new_error){ +if(qbevent){evnt(26070,4119,"ide_methods.bas");if(r)goto S_40765;} +S_40766:; +if ((*__LONG_IDESELECT)||new_error){ +if(qbevent){evnt(26070,4120,"ide_methods.bas");if(r)goto S_40766;} +S_40767:; +if ((qbs_cleanup(qbs_tmp_base,*__LONG_KSHIFT|(qbs_equal(__STRING_K,func_chr( 25 )))))||new_error){ +if(qbevent){evnt(26070,4122,"ide_methods.bas");if(r)goto S_40767;} +LABEL_IDEBLOCKDECREASEINDENT:; +if(qbevent){evnt(26070,4123,"ide_methods.bas");r=0;} +do{ +*_FUNC_IDE2_LONG_BLOCKINDENTLEVEL= 4 ; +if(!qbevent)break;evnt(26070,4124,"ide_methods.bas");}while(r); +S_40769:; +if ((-(*__LONG_IDEAUTOINDENTSIZE!= 0 ))||new_error){ +if(qbevent){evnt(26070,4125,"ide_methods.bas");if(r)goto S_40769;} +do{ +*_FUNC_IDE2_LONG_BLOCKINDENTLEVEL=*__LONG_IDEAUTOINDENTSIZE; +if(!qbevent)break;evnt(26070,4125,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDE2_LONG_Y1=*__LONG_IDECY; +if(!qbevent)break;evnt(26070,4126,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_Y2=*__LONG_IDESELECTY1; +if(!qbevent)break;evnt(26070,4127,"ide_methods.bas");}while(r); +S_40774:; +if ((-(*_FUNC_IDE2_LONG_Y1==*_FUNC_IDE2_LONG_Y2))||new_error){ +if(qbevent){evnt(26070,4129,"ide_methods.bas");if(r)goto S_40774;} +do{ +qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4130,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_A2,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4131,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_SX1=*__LONG_IDESELECTX1; +if(!qbevent)break;evnt(26070,4132,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_SX2=*__LONG_IDECX; +if(!qbevent)break;evnt(26070,4132,"ide_methods.bas");}while(r); +S_40779:; +if ((-(*_FUNC_IDE2_LONG_SX2<*_FUNC_IDE2_LONG_SX1))||new_error){ +if(qbevent){evnt(26070,4133,"ide_methods.bas");if(r)goto S_40779;} +do{ +swap_32(&*_FUNC_IDE2_LONG_SX1,&*_FUNC_IDE2_LONG_SX2); +if(!qbevent)break;evnt(26070,4133,"ide_methods.bas");}while(r); +} +S_40782:; +fornext_value4383=*_FUNC_IDE2_LONG_SX1; +fornext_finalvalue4383=*_FUNC_IDE2_LONG_SX2- 1 ; +fornext_step4383= 1 ; +if (fornext_step4383<0) fornext_step_negative4383=1; else fornext_step_negative4383=0; +if (new_error) goto fornext_error4383; +goto fornext_entrylabel4383; +while(1){ +fornext_value4383=fornext_step4383+(*_FUNC_IDE2_LONG_X); +fornext_entrylabel4383: +*_FUNC_IDE2_LONG_X=fornext_value4383; +if (fornext_step_negative4383){ +if (fornext_value4383fornext_finalvalue4383) break; +} +fornext_error4383:; +if(qbevent){evnt(26070,4134,"ide_methods.bas");if(r)goto S_40782;} +S_40783:; +if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDE2_LONG_X<=_FUNC_IDE2_STRING_A->len)))||new_error){ +if(qbevent){evnt(26070,4135,"ide_methods.bas");if(r)goto S_40783;} +do{ +qbs_set(_FUNC_IDE2_STRING_A2,qbs_add(_FUNC_IDE2_STRING_A2,func_mid(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_X, 1 ,0|1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4135,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDE2_STRING_A2,qbs_add(_FUNC_IDE2_STRING_A2,qbs_new_txt_len(" ",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4135,"ide_methods.bas");}while(r); +} +fornext_continue_4382:; +} +fornext_exit_4382:; +S_40789:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_A2,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,4137,"ide_methods.bas");if(r)goto S_40789;} +do{ +goto LABEL_SKIPBLOCKINDENT; +if(!qbevent)break;evnt(26070,4138,"ide_methods.bas");}while(r); +} +} +S_40793:; +if ((-(*_FUNC_IDE2_LONG_Y1>*_FUNC_IDE2_LONG_Y2))||new_error){ +if(qbevent){evnt(26070,4142,"ide_methods.bas");if(r)goto S_40793;} +do{ +swap_32(&*_FUNC_IDE2_LONG_Y1,&*_FUNC_IDE2_LONG_Y2); +if(!qbevent)break;evnt(26070,4142,"ide_methods.bas");}while(r); +} +S_40796:; +if (((-(*__LONG_IDECY>*__LONG_IDESELECTY1))&(-(*__LONG_IDECX== 1 )))||new_error){ +if(qbevent){evnt(26070,4143,"ide_methods.bas");if(r)goto S_40796;} +do{ +*_FUNC_IDE2_LONG_Y2=*_FUNC_IDE2_LONG_Y2- 1 ; +if(!qbevent)break;evnt(26070,4143,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDE2_LONG_LHS= 10000000 ; +if(!qbevent)break;evnt(26070,4145,"ide_methods.bas");}while(r); +S_40800:; +fornext_value4386=*_FUNC_IDE2_LONG_Y1; +fornext_finalvalue4386=*_FUNC_IDE2_LONG_Y2; +fornext_step4386= 1 ; +if (fornext_step4386<0) fornext_step_negative4386=1; else fornext_step_negative4386=0; +if (new_error) goto fornext_error4386; +goto fornext_entrylabel4386; +while(1){ +fornext_value4386=fornext_step4386+(*_FUNC_IDE2_LONG_Y); +fornext_entrylabel4386: +*_FUNC_IDE2_LONG_Y=fornext_value4386; +if (fornext_step_negative4386){ +if (fornext_value4386fornext_finalvalue4386) break; +} +fornext_error4386:; +if(qbevent){evnt(26070,4146,"ide_methods.bas");if(r)goto S_40800;} +do{ +qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(_FUNC_IDE2_LONG_Y)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4147,"ide_methods.bas");}while(r); +S_40802:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_A->len))||new_error){ +if(qbevent){evnt(26070,4148,"ide_methods.bas");if(r)goto S_40802;} +do{ +qbs_set(_FUNC_IDE2_STRING_TA,qbs_ltrim(_FUNC_IDE2_STRING_A)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4149,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_T=_FUNC_IDE2_STRING_A->len-_FUNC_IDE2_STRING_TA->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4150,"ide_methods.bas");}while(r); +S_40805:; +if ((-(*_FUNC_IDE2_LONG_T<*_FUNC_IDE2_LONG_LHS))||new_error){ +if(qbevent){evnt(26070,4151,"ide_methods.bas");if(r)goto S_40805;} +do{ +*_FUNC_IDE2_LONG_LHS=*_FUNC_IDE2_LONG_T; +if(!qbevent)break;evnt(26070,4151,"ide_methods.bas");}while(r); +} +} +fornext_continue_4385:; +} +fornext_exit_4385:; +S_40810:; +if ((-(*_FUNC_IDE2_LONG_LHS> 0 ))||new_error){ +if(qbevent){evnt(26070,4156,"ide_methods.bas");if(r)goto S_40810;} +S_40811:; +if ((-(*_FUNC_IDE2_LONG_LHS<*_FUNC_IDE2_LONG_BLOCKINDENTLEVEL))||new_error){ +if(qbevent){evnt(26070,4157,"ide_methods.bas");if(r)goto S_40811;} +do{ +*_FUNC_IDE2_LONG_BLOCKINDENTLEVEL=*_FUNC_IDE2_LONG_LHS; +if(!qbevent)break;evnt(26070,4157,"ide_methods.bas");}while(r); +} +S_40814:; +fornext_value4391=*_FUNC_IDE2_LONG_Y1; +fornext_finalvalue4391=*_FUNC_IDE2_LONG_Y2; +fornext_step4391= 1 ; +if (fornext_step4391<0) fornext_step_negative4391=1; else fornext_step_negative4391=0; +if (new_error) goto fornext_error4391; +goto fornext_entrylabel4391; +while(1){ +fornext_value4391=fornext_step4391+(*_FUNC_IDE2_LONG_Y); +fornext_entrylabel4391: +*_FUNC_IDE2_LONG_Y=fornext_value4391; +if (fornext_step_negative4391){ +if (fornext_value4391fornext_finalvalue4391) break; +} +fornext_error4391:; +if(qbevent){evnt(26070,4158,"ide_methods.bas");if(r)goto S_40814;} +do{ +qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(_FUNC_IDE2_LONG_Y)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4159,"ide_methods.bas");}while(r); +S_40816:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_A->len))||new_error){ +if(qbevent){evnt(26070,4160,"ide_methods.bas");if(r)goto S_40816;} +do{ +qbs_set(_FUNC_IDE2_STRING_A,qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len-*_FUNC_IDE2_LONG_BLOCKINDENTLEVEL)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4161,"ide_methods.bas");}while(r); +do{ +SUB_IDESETLINE(_FUNC_IDE2_LONG_Y,_FUNC_IDE2_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4162,"ide_methods.bas");}while(r); +do{ +*__INTEGER_IDECHANGEMADE= 1 ; +if(!qbevent)break;evnt(26070,4163,"ide_methods.bas");}while(r); +do{ +*__BYTE_STARTPAUSEDPENDING= 0 ; +if(!qbevent)break;evnt(26070,4164,"ide_methods.bas");}while(r); +} +fornext_continue_4390:; +} +fornext_exit_4390:; +} +S_40824:; +if (((-(*_FUNC_IDE2_LONG_Y1==*_FUNC_IDE2_LONG_Y2))&*__INTEGER_IDECHANGEMADE)||new_error){ +if(qbevent){evnt(26070,4168,"ide_methods.bas");if(r)goto S_40824;} +do{ +*__LONG_IDESELECTX1=*__LONG_IDESELECTX1-*_FUNC_IDE2_LONG_BLOCKINDENTLEVEL; +if(!qbevent)break;evnt(26070,4169,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECX=*__LONG_IDECX-*_FUNC_IDE2_LONG_BLOCKINDENTLEVEL; +if(!qbevent)break;evnt(26070,4170,"ide_methods.bas");}while(r); +S_40827:; +if ((-(*__LONG_IDECX< 1 ))||new_error){ +if(qbevent){evnt(26070,4171,"ide_methods.bas");if(r)goto S_40827;} +do{ +*__LONG_IDECX= 1 ; +if(!qbevent)break;evnt(26070,4171,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESELECTX1=*__LONG_IDECX; +if(!qbevent)break;evnt(26070,4171,"ide_methods.bas");}while(r); +} +} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,4173,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,4173,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,4174,"ide_methods.bas");}while(r); +}else{ +LABEL_IDEBLOCKINCREASEINDENT:; +if(qbevent){evnt(26070,4176,"ide_methods.bas");r=0;} +do{ +*_FUNC_IDE2_LONG_BLOCKINDENTLEVEL= 4 ; +if(!qbevent)break;evnt(26070,4177,"ide_methods.bas");}while(r); +S_40837:; +if ((-(*__LONG_IDEAUTOINDENTSIZE!= 0 ))||new_error){ +if(qbevent){evnt(26070,4178,"ide_methods.bas");if(r)goto S_40837;} +do{ +*_FUNC_IDE2_LONG_BLOCKINDENTLEVEL=*__LONG_IDEAUTOINDENTSIZE; +if(!qbevent)break;evnt(26070,4178,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDE2_LONG_Y1=*__LONG_IDECY; +if(!qbevent)break;evnt(26070,4179,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_Y2=*__LONG_IDESELECTY1; +if(!qbevent)break;evnt(26070,4180,"ide_methods.bas");}while(r); +S_40842:; +if ((-(*_FUNC_IDE2_LONG_Y1==*_FUNC_IDE2_LONG_Y2))||new_error){ +if(qbevent){evnt(26070,4182,"ide_methods.bas");if(r)goto S_40842;} +do{ +qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4183,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_A2,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4184,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_SX1=*__LONG_IDESELECTX1; +if(!qbevent)break;evnt(26070,4185,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_SX2=*__LONG_IDECX; +if(!qbevent)break;evnt(26070,4185,"ide_methods.bas");}while(r); +S_40847:; +if ((-(*_FUNC_IDE2_LONG_SX2<*_FUNC_IDE2_LONG_SX1))||new_error){ +if(qbevent){evnt(26070,4186,"ide_methods.bas");if(r)goto S_40847;} +do{ +swap_32(&*_FUNC_IDE2_LONG_SX1,&*_FUNC_IDE2_LONG_SX2); +if(!qbevent)break;evnt(26070,4186,"ide_methods.bas");}while(r); +} +S_40850:; +fornext_value4395=*_FUNC_IDE2_LONG_SX1; +fornext_finalvalue4395=*_FUNC_IDE2_LONG_SX2- 1 ; +fornext_step4395= 1 ; +if (fornext_step4395<0) fornext_step_negative4395=1; else fornext_step_negative4395=0; +if (new_error) goto fornext_error4395; +goto fornext_entrylabel4395; +while(1){ +fornext_value4395=fornext_step4395+(*_FUNC_IDE2_LONG_X); +fornext_entrylabel4395: +*_FUNC_IDE2_LONG_X=fornext_value4395; +if (fornext_step_negative4395){ +if (fornext_value4395fornext_finalvalue4395) break; +} +fornext_error4395:; +if(qbevent){evnt(26070,4187,"ide_methods.bas");if(r)goto S_40850;} +S_40851:; +if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDE2_LONG_X<=_FUNC_IDE2_STRING_A->len)))||new_error){ +if(qbevent){evnt(26070,4188,"ide_methods.bas");if(r)goto S_40851;} +do{ +qbs_set(_FUNC_IDE2_STRING_A2,qbs_add(_FUNC_IDE2_STRING_A2,func_mid(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_X, 1 ,0|1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4188,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDE2_STRING_A2,qbs_add(_FUNC_IDE2_STRING_A2,qbs_new_txt_len(" ",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4188,"ide_methods.bas");}while(r); +} +fornext_continue_4394:; +} +fornext_exit_4394:; +S_40857:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_A2,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,4190,"ide_methods.bas");if(r)goto S_40857;} +do{ +goto LABEL_SKIPBLOCKINDENT; +if(!qbevent)break;evnt(26070,4191,"ide_methods.bas");}while(r); +} +} +S_40861:; +if ((-(*_FUNC_IDE2_LONG_Y1>*_FUNC_IDE2_LONG_Y2))||new_error){ +if(qbevent){evnt(26070,4195,"ide_methods.bas");if(r)goto S_40861;} +do{ +swap_32(&*_FUNC_IDE2_LONG_Y1,&*_FUNC_IDE2_LONG_Y2); +if(!qbevent)break;evnt(26070,4195,"ide_methods.bas");}while(r); +} +S_40864:; +if (((-(*__LONG_IDECY>*__LONG_IDESELECTY1))&(-(*__LONG_IDECX== 1 )))||new_error){ +if(qbevent){evnt(26070,4196,"ide_methods.bas");if(r)goto S_40864;} +do{ +*_FUNC_IDE2_LONG_Y2=*_FUNC_IDE2_LONG_Y2- 1 ; +if(!qbevent)break;evnt(26070,4196,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDE2_LONG_LHS= 10000000 ; +if(!qbevent)break;evnt(26070,4198,"ide_methods.bas");}while(r); +S_40868:; +fornext_value4398=*_FUNC_IDE2_LONG_Y1; +fornext_finalvalue4398=*_FUNC_IDE2_LONG_Y2; +fornext_step4398= 1 ; +if (fornext_step4398<0) fornext_step_negative4398=1; else fornext_step_negative4398=0; +if (new_error) goto fornext_error4398; +goto fornext_entrylabel4398; +while(1){ +fornext_value4398=fornext_step4398+(*_FUNC_IDE2_LONG_Y); +fornext_entrylabel4398: +*_FUNC_IDE2_LONG_Y=fornext_value4398; +if (fornext_step_negative4398){ +if (fornext_value4398fornext_finalvalue4398) break; +} +fornext_error4398:; +if(qbevent){evnt(26070,4199,"ide_methods.bas");if(r)goto S_40868;} +do{ +qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(_FUNC_IDE2_LONG_Y)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4200,"ide_methods.bas");}while(r); +S_40870:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_A->len))||new_error){ +if(qbevent){evnt(26070,4201,"ide_methods.bas");if(r)goto S_40870;} +do{ +qbs_set(_FUNC_IDE2_STRING_TA,qbs_ltrim(_FUNC_IDE2_STRING_A)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4202,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_T=_FUNC_IDE2_STRING_A->len-_FUNC_IDE2_STRING_TA->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4203,"ide_methods.bas");}while(r); +S_40873:; +if ((-(*_FUNC_IDE2_LONG_T<*_FUNC_IDE2_LONG_LHS))||new_error){ +if(qbevent){evnt(26070,4204,"ide_methods.bas");if(r)goto S_40873;} +do{ +*_FUNC_IDE2_LONG_LHS=*_FUNC_IDE2_LONG_T; +if(!qbevent)break;evnt(26070,4204,"ide_methods.bas");}while(r); +} +} +fornext_continue_4397:; +} +fornext_exit_4397:; +S_40878:; +fornext_value4403=*_FUNC_IDE2_LONG_Y1; +fornext_finalvalue4403=*_FUNC_IDE2_LONG_Y2; +fornext_step4403= 1 ; +if (fornext_step4403<0) fornext_step_negative4403=1; else fornext_step_negative4403=0; +if (new_error) goto fornext_error4403; +goto fornext_entrylabel4403; +while(1){ +fornext_value4403=fornext_step4403+(*_FUNC_IDE2_LONG_Y); +fornext_entrylabel4403: +*_FUNC_IDE2_LONG_Y=fornext_value4403; +if (fornext_step_negative4403){ +if (fornext_value4403fornext_finalvalue4403) break; +} +fornext_error4403:; +if(qbevent){evnt(26070,4208,"ide_methods.bas");if(r)goto S_40878;} +do{ +qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(_FUNC_IDE2_LONG_Y)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4209,"ide_methods.bas");}while(r); +S_40880:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_A->len))||new_error){ +if(qbevent){evnt(26070,4210,"ide_methods.bas");if(r)goto S_40880;} +do{ +qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(qbs_left(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_LHS),func_space(*_FUNC_IDE2_LONG_BLOCKINDENTLEVEL)),qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len-*_FUNC_IDE2_LONG_LHS))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4211,"ide_methods.bas");}while(r); +do{ +SUB_IDESETLINE(_FUNC_IDE2_LONG_Y,_FUNC_IDE2_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4212,"ide_methods.bas");}while(r); +do{ +*__INTEGER_IDECHANGEMADE= 1 ; +if(!qbevent)break;evnt(26070,4213,"ide_methods.bas");}while(r); +do{ +*__BYTE_STARTPAUSEDPENDING= 0 ; +if(!qbevent)break;evnt(26070,4214,"ide_methods.bas");}while(r); +} +fornext_continue_4402:; +} +fornext_exit_4402:; +S_40887:; +if (((-(*_FUNC_IDE2_LONG_Y1==*_FUNC_IDE2_LONG_Y2))&*__INTEGER_IDECHANGEMADE)||new_error){ +if(qbevent){evnt(26070,4217,"ide_methods.bas");if(r)goto S_40887;} +do{ +*__LONG_IDESELECTX1=*__LONG_IDESELECTX1+*_FUNC_IDE2_LONG_BLOCKINDENTLEVEL; +if(!qbevent)break;evnt(26070,4218,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECX=*__LONG_IDECX+*_FUNC_IDE2_LONG_BLOCKINDENTLEVEL; +if(!qbevent)break;evnt(26070,4219,"ide_methods.bas");}while(r); +} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,4221,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,4221,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,4222,"ide_methods.bas");}while(r); +} +}else{ +LABEL_SKIPBLOCKINDENT:; +if(qbevent){evnt(26070,4225,"ide_methods.bas");r=0;} +S_40896:; +if ((-(*__LONG_KSHIFT== 0 ))||new_error){ +if(qbevent){evnt(26070,4226,"ide_methods.bas");if(r)goto S_40896;} +do{ +*_FUNC_IDE2_LONG_X= 4 ; +if(!qbevent)break;evnt(26070,4227,"ide_methods.bas");}while(r); +S_40898:; +if ((-(*__LONG_IDEAUTOINDENTSIZE!= 0 ))||new_error){ +if(qbevent){evnt(26070,4228,"ide_methods.bas");if(r)goto S_40898;} +do{ +*_FUNC_IDE2_LONG_X=*__LONG_IDEAUTOINDENTSIZE; +if(!qbevent)break;evnt(26070,4228,"ide_methods.bas");}while(r); +} +do{ +qbs_set(__STRING_K,func_space(*_FUNC_IDE2_LONG_X-((*__LONG_IDECX- 1 )%*_FUNC_IDE2_LONG_X))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4229,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(__STRING_K,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4231,"ide_methods.bas");}while(r); +} +} +} +S_40907:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 27 )))&(~(*__BYTE_ALTSPECIAL))))||new_error){ +if(qbevent){evnt(26070,4236,"ide_methods.bas");if(r)goto S_40907;} +do{ +goto LABEL_SPECIALCHAR; +if(!qbevent)break;evnt(26070,4236,"ide_methods.bas");}while(r); +} +S_40910:; +if ((*__LONG_KCTRL&(~(*__LONG_KALT)))||new_error){ +if(qbevent){evnt(26070,4240,"ide_methods.bas");if(r)goto S_40910;} +do{ +goto LABEL_SPECIALCHAR; +if(!qbevent)break;evnt(26070,4240,"ide_methods.bas");}while(r); +} +S_40913:; +if ((*__LONG_KALT&(~(*__LONG_KCTRL))&(~(*__BYTE_ALTSPECIAL)))||new_error){ +if(qbevent){evnt(26070,4241,"ide_methods.bas");if(r)goto S_40913;} +do{ +goto LABEL_SPECIALCHAR; +if(!qbevent)break;evnt(26070,4241,"ide_methods.bas");}while(r); +} +S_40916:; +if ((*__LONG_IDESELECT)||new_error){ +if(qbevent){evnt(26070,4244,"ide_methods.bas");if(r)goto S_40916;} +do{ +SUB_DELSELECT(); +if(!qbevent)break;evnt(26070,4244,"ide_methods.bas");}while(r); +} +do{ +*__INTEGER_IDECHANGEMADE= 1 ; +if(!qbevent)break;evnt(26070,4245,"ide_methods.bas");}while(r); +do{ +*__BYTE_STARTPAUSEDPENDING= 0 ; +if(!qbevent)break;evnt(26070,4246,"ide_methods.bas");}while(r); +S_40921:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ +if(qbevent){evnt(26070,4249,"ide_methods.bas");if(r)goto S_40921;} +do{ +*_FUNC_IDE2_LONG_ASCK=qbs_asc(__STRING_K); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4250,"ide_methods.bas");}while(r); +S_40923:; +if ((((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((*_FUNC_IDE2_LONG_ASCK)-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]|(-(*__LONG_IDEUNDOCOMBOCHR==*_FUNC_IDE2_LONG_ASCK)))||new_error){ +if(qbevent){evnt(26070,4251,"ide_methods.bas");if(r)goto S_40923;} +S_40924:; +if ((-(*__LONG_IDEUNDOCOMBOCHR== 8 ))||new_error){ +if(qbevent){evnt(26070,4252,"ide_methods.bas");if(r)goto S_40924;} +do{ +*__LONG_IDEUNDOCOMBO= 0 ; +if(!qbevent)break;evnt(26070,4252,"ide_methods.bas");}while(r); +} +S_40927:; +if ((-(*__LONG_IDEUNDOCOMBO== 0 ))||new_error){ +if(qbevent){evnt(26070,4253,"ide_methods.bas");if(r)goto S_40927;} +do{ +*__LONG_IDEUNDOCOMBO= 2 ; +if(!qbevent)break;evnt(26070,4254,"ide_methods.bas");}while(r); +}else{ +do{ +*__LONG_IDEUNDOCOMBO=*__LONG_IDEUNDOCOMBO+ 1 ; +if(!qbevent)break;evnt(26070,4256,"ide_methods.bas");}while(r); +S_40931:; +if ((-(*__LONG_IDEUNDOCOMBO== 2 ))||new_error){ +if(qbevent){evnt(26070,4257,"ide_methods.bas");if(r)goto S_40931;} +do{ +*__LONG_IDEMERGEUNDO= 1 ; +if(!qbevent)break;evnt(26070,4257,"ide_methods.bas");}while(r); +} +} +} +do{ +*__LONG_IDEUNDOCOMBOCHR=*_FUNC_IDE2_LONG_ASCK; +if(!qbevent)break;evnt(26070,4260,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4263,"ide_methods.bas");}while(r); +S_40939:; +if ((qbs_cleanup(qbs_tmp_base,-((_FUNC_IDE2_STRING_A->len)<(*__LONG_IDECX- 1 ))))||new_error){ +if(qbevent){evnt(26070,4264,"ide_methods.bas");if(r)goto S_40939;} +do{ +qbs_set(_FUNC_IDE2_STRING_A,qbs_add(_FUNC_IDE2_STRING_A,func_space(*__LONG_IDECX- 1 -_FUNC_IDE2_STRING_A->len))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4264,"ide_methods.bas");}while(r); +} +S_40942:; +if ((*__INTEGER_IDEINSERT)||new_error){ +if(qbevent){evnt(26070,4266,"ide_methods.bas");if(r)goto S_40942;} +do{ +qbs_set(_FUNC_IDE2_STRING_A2,qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len-*__LONG_IDECX+ 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4267,"ide_methods.bas");}while(r); +S_40944:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_A2->len))||new_error){ +if(qbevent){evnt(26070,4268,"ide_methods.bas");if(r)goto S_40944;} +do{ +qbs_set(_FUNC_IDE2_STRING_A2,qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len-*__LONG_IDECX)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4268,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(qbs_left(_FUNC_IDE2_STRING_A,*__LONG_IDECX- 1 ),__STRING_K),_FUNC_IDE2_STRING_A2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4269,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(qbs_left(_FUNC_IDE2_STRING_A,*__LONG_IDECX- 1 ),__STRING_K),qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len-*__LONG_IDECX+ 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4271,"ide_methods.bas");}while(r); +} +do{ +SUB_IDESETLINE(__LONG_IDECY,_FUNC_IDE2_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4274,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECX=*__LONG_IDECX+__STRING_K->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4275,"ide_methods.bas");}while(r); +LABEL_SPECIALCHAR:; +if(qbevent){evnt(26070,4276,"ide_methods.bas");r=0;} +S_40953:; +if ((qbs_cleanup(qbs_tmp_base,((qbs_equal(__STRING_IDEINFO,qbs_new_txt_len("",0)))|(qbs_equal(qbs_left(__STRING_IDEINFO, 19 ),qbs_new_txt_len("Selection length = ",19))))))||new_error){ +if(qbevent){evnt(26070,4279,"ide_methods.bas");if(r)goto S_40953;} +S_40954:; +if ((-(*__LONG_IDECY==*__LONG_IDESELECTY1))||new_error){ +if(qbevent){evnt(26070,4280,"ide_methods.bas");if(r)goto S_40954;} +do{ +*_FUNC_IDE2_LONG_SX1=*__LONG_IDESELECTX1; +if(!qbevent)break;evnt(26070,4281,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_SX2=*__LONG_IDECX; +if(!qbevent)break;evnt(26070,4281,"ide_methods.bas");}while(r); +S_40957:; +if ((-(*_FUNC_IDE2_LONG_SX1>*_FUNC_IDE2_LONG_SX2))||new_error){ +if(qbevent){evnt(26070,4282,"ide_methods.bas");if(r)goto S_40957;} +do{ +swap_32(&*_FUNC_IDE2_LONG_SX1,&*_FUNC_IDE2_LONG_SX2); +if(!qbevent)break;evnt(26070,4282,"ide_methods.bas");}while(r); +} +S_40960:; +if (((-(*__LONG_IDESELECT== 1 ))&(-((*_FUNC_IDE2_LONG_SX2-*_FUNC_IDE2_LONG_SX1)> 0 )))||new_error){ +if(qbevent){evnt(26070,4283,"ide_methods.bas");if(r)goto S_40960;} +S_40961:; +if ((-((*_FUNC_IDE2_LONG_SX2-*_FUNC_IDE2_LONG_SX1)>( 0 )))||new_error){ +if(qbevent){evnt(26070,4284,"ide_methods.bas");if(r)goto S_40961;} +do{ +qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4285,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_IDECURRENTSINGLELINESELECTION,func_mid(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_SX1,*_FUNC_IDE2_LONG_SX2-*_FUNC_IDE2_LONG_SX1,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4286,"ide_methods.bas");}while(r); +S_40964:; +fornext_value4415= 1 ; +fornext_finalvalue4415=__STRING_IDECURRENTSINGLELINESELECTION->len; +fornext_step4415= 1 ; +if (fornext_step4415<0) fornext_step_negative4415=1; else fornext_step_negative4415=0; +if (new_error) goto fornext_error4415; +goto fornext_entrylabel4415; +while(1){ +fornext_value4415=fornext_step4415+(*_FUNC_IDE2_LONG_I); +fornext_entrylabel4415: +*_FUNC_IDE2_LONG_I=fornext_value4415; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative4415){ +if (fornext_value4415fornext_finalvalue4415) break; +} +fornext_error4415:; +if(qbevent){evnt(26070,4287,"ide_methods.bas");if(r)goto S_40964;} +S_40965:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_FUNC_IDE2_STRING_CHAR__ASCII_CHR_046__SEP,func_mid(__STRING_IDECURRENTSINGLELINESELECTION,*_FUNC_IDE2_LONG_I, 1 ,0|1),0)> 0 )))||new_error){ +if(qbevent){evnt(26070,4288,"ide_methods.bas");if(r)goto S_40965;} +S_40966:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(func_mid(__STRING_IDECURRENTSINGLELINESELECTION,*_FUNC_IDE2_LONG_I, 1 ,0|1),qbs_new_txt_len(".",1))))||new_error){ +if(qbevent){evnt(26070,4290,"ide_methods.bas");if(r)goto S_40966;} +do{ +qbs_set(__STRING_IDECURRENTSINGLELINESELECTION,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4291,"ide_methods.bas");}while(r); +do{ +goto fornext_exit_4414; +if(!qbevent)break;evnt(26070,4292,"ide_methods.bas");}while(r); +} +} +fornext_continue_4414:; +} +fornext_exit_4414:; +} +do{ +qbs_set(__STRING_IDEINFO,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Selection length = ",19),FUNC_STR2(&(pass4417=*_FUNC_IDE2_LONG_SX2-*_FUNC_IDE2_LONG_SX1))),qbs_new_txt_len(" character",10)),qbs_left(qbs_new_txt_len("s",1),func_abs((int32)(-((*_FUNC_IDE2_LONG_SX2-*_FUNC_IDE2_LONG_SX1)>( 1 ))))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4297,"ide_methods.bas");}while(r); +do{ +SUB_UPDATEIDEINFO(); +if(!qbevent)break;evnt(26070,4298,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(__STRING_IDEINFO,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4300,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_IDECURRENTSINGLELINESELECTION,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4301,"ide_methods.bas");}while(r); +do{ +SUB_UPDATEIDEINFO(); +if(!qbevent)break;evnt(26070,4302,"ide_methods.bas");}while(r); +} +}else{ +S_40981:; +if ((*__LONG_IDESELECT)||new_error){ +if(qbevent){evnt(26070,4305,"ide_methods.bas");if(r)goto S_40981;} +do{ +*_FUNC_IDE2_LONG_SY1=*__LONG_IDESELECTY1; +if(!qbevent)break;evnt(26070,4306,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_SY2=*__LONG_IDECY; +if(!qbevent)break;evnt(26070,4307,"ide_methods.bas");}while(r); +S_40984:; +if (((-(*_FUNC_IDE2_LONG_SY1>*_FUNC_IDE2_LONG_SY2))|(-(*__LONG_IDECX> 1 )))||new_error){ +if(qbevent){evnt(26070,4308,"ide_methods.bas");if(r)goto S_40984;} +do{ +qbs_set(__STRING_IDEINFO,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Selection length = ",19),FUNC_STR2(&(pass4418=func_abs((int64)(*_FUNC_IDE2_LONG_SY2-*_FUNC_IDE2_LONG_SY1))+ 1 ))),qbs_new_txt_len(" line",5)),qbs_left(qbs_new_txt_len("s",1),func_abs((int32)(-((func_abs((int64)(*_FUNC_IDE2_LONG_SY2-*_FUNC_IDE2_LONG_SY1))+ 1 )> 1 )))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4309,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(__STRING_IDEINFO,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Selection length = ",19),FUNC_STR2(&(pass4419=*_FUNC_IDE2_LONG_SY2-*_FUNC_IDE2_LONG_SY1))),qbs_new_txt_len(" line",5)),qbs_left(qbs_new_txt_len("s",1),func_abs((int32)(-((*_FUNC_IDE2_LONG_SY2-*_FUNC_IDE2_LONG_SY1)>( 1 ))))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4311,"ide_methods.bas");}while(r); +} +}else{ +do{ +qbs_set(__STRING_IDEINFO,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4314,"ide_methods.bas");}while(r); +} +do{ +qbs_set(__STRING_IDECURRENTSINGLELINESELECTION,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4316,"ide_methods.bas");}while(r); +do{ +SUB_UPDATEIDEINFO(); +if(!qbevent)break;evnt(26070,4317,"ide_methods.bas");}while(r); +} +} +S_40996:; +if ((*__BYTE_ALTSPECIAL)||new_error){ +if(qbevent){evnt(26070,4321,"ide_methods.bas");if(r)goto S_40996;} +do{ +*__BYTE_ALTSPECIAL= 0 ; +if(!qbevent)break;evnt(26070,4322,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEENTERMENU= 0 ; +if(!qbevent)break;evnt(26070,4323,"ide_methods.bas");}while(r); +do{ +*__LONG_KALT= 0 ; +if(!qbevent)break;evnt(26070,4324,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,4325,"ide_methods.bas");}while(r); +do{ +sub__printstring( 1 , 1 ,__STRING_MENUBAR,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4325,"ide_methods.bas");}while(r); +} +dl_continue_4057:; +}while(1); +dl_exit_4057:; +LABEL_STARTMENU:; +if(qbevent){evnt(26070,4331,"ide_methods.bas");r=0;} +do{ +*_FUNC_IDE2_LONG_M= 1 ; +if(!qbevent)break;evnt(26070,4332,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_OLDMX=*__LONG_MX; +if(!qbevent)break;evnt(26070,4333,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_OLDMY=*__LONG_MY; +if(!qbevent)break;evnt(26070,4333,"ide_methods.bas");}while(r); +LABEL_STARTMENU2:; +if(qbevent){evnt(26070,4334,"ide_methods.bas");r=0;} +do{ +*_FUNC_IDE2_LONG_ALTHELD= 1 ; +if(!qbevent)break;evnt(26070,4335,"ide_methods.bas");}while(r); +S_41008:; +if ((-(*__LONG_IDESYSTEM== 2 ))||new_error){ +if(qbevent){evnt(26070,4336,"ide_methods.bas");if(r)goto S_41008;} +do{ +*__LONG_IDESYSTEM= 1 ; +if(!qbevent)break;evnt(26070,4336,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=45; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATESEARCHBAR; +RETURN_45:; +if(!qbevent)break;evnt(26070,4336,"ide_methods.bas");}while(r); +} +S_41012:; +do{ +if(qbevent){evnt(26070,4338,"ide_methods.bas");if(r)goto S_41012;} +do{ +qbg_sub_locate( 1 , 3 ,NULL,NULL,NULL,3); +if(!qbevent)break;evnt(26070,4340,"ide_methods.bas");}while(r); +S_41014:; +fornext_value4422= 1 ; +fornext_finalvalue4422=*__INTEGER_MENUS; +fornext_step4422= 1 ; +if (fornext_step4422<0) fornext_step_negative4422=1; else fornext_step_negative4422=0; +if (new_error) goto fornext_error4422; +goto fornext_entrylabel4422; +while(1){ +fornext_value4422=fornext_step4422+(*_FUNC_IDE2_LONG_I); +fornext_entrylabel4422: +*_FUNC_IDE2_LONG_I=fornext_value4422; +if (fornext_step_negative4422){ +if (fornext_value4422fornext_finalvalue4422) break; +} +fornext_error4422:; +if(qbevent){evnt(26070,4341,"ide_methods.bas");if(r)goto S_41014;} +S_41015:; +if ((-(*_FUNC_IDE2_LONG_M==*_FUNC_IDE2_LONG_I))||new_error){ +if(qbevent){evnt(26070,4342,"ide_methods.bas");if(r)goto S_41015;} +do{ +qbg_sub_color( 15 , 0 ,NULL,3); +if(!qbevent)break;evnt(26070,4342,"ide_methods.bas");}while(r); +}else{ +do{ +qbg_sub_color( 15 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,4342,"ide_methods.bas");}while(r); +} +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_add(qbs_new_txt_len(" ",1),qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check(( 0 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 1 ))); +if (new_error) goto skip4423; +makefit(tqbs); +qbs_print(tqbs,0); +skip4423: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4343,"ide_methods.bas");}while(r); +S_41021:; +if ((-(*_FUNC_IDE2_LONG_M==*_FUNC_IDE2_LONG_I))||new_error){ +if(qbevent){evnt(26070,4344,"ide_methods.bas");if(r)goto S_41021;} +do{ +qbg_sub_color( 7 , 0 ,NULL,3); +if(!qbevent)break;evnt(26070,4344,"ide_methods.bas");}while(r); +}else{ +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,4344,"ide_methods.bas");}while(r); +} +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_add(qbs_right(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check(( 0 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check(( 0 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]]))->len- 1 ),qbs_new_txt_len(" ",1))); +if (new_error) goto skip4424; +makefit(tqbs); +qbs_print(tqbs,0); +skip4424: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4345,"ide_methods.bas");}while(r); +S_41027:; +if ((-(*_FUNC_IDE2_LONG_I==(*__INTEGER_MENUS- 1 )))||new_error){ +if(qbevent){evnt(26070,4346,"ide_methods.bas");if(r)goto S_41027;} +do{ +qbg_sub_locate( 1 ,*__LONG_IDEWX-((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*__INTEGER_MENUS)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check(( 0 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]]))->len- 2 ,NULL,NULL,NULL,3); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4346,"ide_methods.bas");}while(r); +} +fornext_continue_4421:; +} +fornext_exit_4421:; +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,4349,"ide_methods.bas");}while(r); +S_41032:; +do{ +if(qbevent){evnt(26070,4350,"ide_methods.bas");if(r)goto S_41032;} +do{ +*_FUNC_IDE2_LONG_LASTALTHELD=*_FUNC_IDE2_LONG_ALTHELD; +if(!qbevent)break;evnt(26070,4352,"ide_methods.bas");}while(r); +do{ +SUB_GETINPUT(); +if(!qbevent)break;evnt(26070,4354,"ide_methods.bas");}while(r); +S_41035:; +if (((-(*_FUNC_IDE2_LONG_OLDMX!=*__LONG_MX))|(-(*_FUNC_IDE2_LONG_OLDMY!=*__LONG_MY)))||new_error){ +if(qbevent){evnt(26070,4355,"ide_methods.bas");if(r)goto S_41035;} +S_41036:; +if (((-(*__LONG_MY== 1 ))&(-(*_FUNC_IDE2_LONG_IDECONTEXTUALMENU!= 1 )))||new_error){ +if(qbevent){evnt(26070,4356,"ide_methods.bas");if(r)goto S_41036;} +do{ +*_FUNC_IDE2_LONG_LASTM=*_FUNC_IDE2_LONG_M; +if(!qbevent)break;evnt(26070,4357,"ide_methods.bas");}while(r); +S_41038:; +fornext_value4429= 1 ; +fornext_finalvalue4429=*__INTEGER_MENUS; +fornext_step4429= 1 ; +if (fornext_step4429<0) fornext_step_negative4429=1; else fornext_step_negative4429=0; +if (new_error) goto fornext_error4429; +goto fornext_entrylabel4429; +while(1){ +fornext_value4429=fornext_step4429+(*_FUNC_IDE2_LONG_I); +fornext_entrylabel4429: +*_FUNC_IDE2_LONG_I=fornext_value4429; +if (fornext_step_negative4429){ +if (fornext_value4429fornext_finalvalue4429) break; +} +fornext_error4429:; +if(qbevent){evnt(26070,4358,"ide_methods.bas");if(r)goto S_41038;} +do{ +*_FUNC_IDE2_LONG_X=string2i(func_mid(_FUNC_IDE2_STRING_MENULOCATIONS,(*_FUNC_IDE2_LONG_I* 2 )-( 1 ), 2 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4359,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_X2=string2i(func_mid(_FUNC_IDE2_STRING_MENULOCATIONS,(*_FUNC_IDE2_LONG_I* 2 )-( 1 ), 2 ,0|1))+((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check(( 0 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]]))->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4360,"ide_methods.bas");}while(r); +S_41041:; +if (((-(*__LONG_MX>=*_FUNC_IDE2_LONG_X))&(-(*__LONG_MX<*_FUNC_IDE2_LONG_X2)))||new_error){ +if(qbevent){evnt(26070,4361,"ide_methods.bas");if(r)goto S_41041;} +do{ +*_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_I; +if(!qbevent)break;evnt(26070,4362,"ide_methods.bas");}while(r); +S_41043:; +if ((-(*_FUNC_IDE2_LONG_M!=*_FUNC_IDE2_LONG_LASTM))||new_error){ +if(qbevent){evnt(26070,4363,"ide_methods.bas");if(r)goto S_41043;} +do{ +goto dl_exit_4427; +if(!qbevent)break;evnt(26070,4363,"ide_methods.bas");}while(r); +} +} +fornext_continue_4428:; +} +fornext_exit_4428:; +} +do{ +*_FUNC_IDE2_LONG_OLDMX=*__LONG_MX; +if(!qbevent)break;evnt(26070,4367,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_OLDMY=*__LONG_MY; +if(!qbevent)break;evnt(26070,4367,"ide_methods.bas");}while(r); +} +S_41052:; +if ((-(*__LONG_ICHANGED== 0 ))||new_error){ +if(qbevent){evnt(26070,4369,"ide_methods.bas");if(r)goto S_41052;} +do{ +sub__limit( 100 ); +if(!qbevent)break;evnt(26070,4369,"ide_methods.bas");}while(r); +} +S_41055:; +if ((*__LONG_KALT)||new_error){ +if(qbevent){evnt(26070,4371,"ide_methods.bas");if(r)goto S_41055;} +do{ +*_FUNC_IDE2_LONG_ALTHELD= 1 ; +if(!qbevent)break;evnt(26070,4371,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_IDE2_LONG_ALTHELD= 0 ; +if(!qbevent)break;evnt(26070,4371,"ide_methods.bas");}while(r); +} +S_41060:; +if (((-(*_FUNC_IDE2_LONG_ALTHELD!= 0 ))&(-(*_FUNC_IDE2_LONG_LASTALTHELD== 0 )))||new_error){ +if(qbevent){evnt(26070,4373,"ide_methods.bas");if(r)goto S_41060;} +S_41061:; +do{ +if(qbevent){evnt(26070,4374,"ide_methods.bas");if(r)goto S_41061;} +do{ +sub__limit( 100 ); +if(!qbevent)break;evnt(26070,4375,"ide_methods.bas");}while(r); +do{ +SUB_GETINPUT(); +if(!qbevent)break;evnt(26070,4376,"ide_methods.bas");}while(r); +S_41064:; +if ((qbs_cleanup(qbs_tmp_base,(-(func__hasfocus()== 0 ))&(((qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3)))|(-(*__LONG_MACOSX== 1 ))))))||new_error){ +if(qbevent){evnt(26070,4377,"ide_methods.bas");if(r)goto S_41064;} +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,4378,"ide_methods.bas");}while(r); +do{ +sub__printstring( 1 , 1 ,__STRING_MENUBAR,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4378,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,4379,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,4379,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,4380,"ide_methods.bas");}while(r); +} +S_41071:; +if ((func__resize())||new_error){ +if(qbevent){evnt(26070,4383,"ide_methods.bas");if(r)goto S_41071;} +do{ +*_FUNC_IDE2_LONG_FORCERESIZE= -1 ; +if(!qbevent)break;evnt(26070,4384,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_SKIPDISPLAY= 0 ; +if(!qbevent)break;evnt(26070,4384,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,4384,"ide_methods.bas");}while(r); +} +S_41076:; +dl_continue_4431:; +}while((!(-(*__LONG_KALT== 0 )))&&(!new_error)); +dl_exit_4431:; +if(qbevent){evnt(26070,4386,"ide_methods.bas");if(r)goto S_41076;} +do{ +*__LONG_KB= 27 ; +if(!qbevent)break;evnt(26070,4387,"ide_methods.bas");}while(r); +} +S_41079:; +if ((qbs_cleanup(qbs_tmp_base,(-(func__hasfocus()== 0 ))&(((qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3)))|(-(*__LONG_MACOSX== 1 ))))))||new_error){ +if(qbevent){evnt(26070,4390,"ide_methods.bas");if(r)goto S_41079;} +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,4391,"ide_methods.bas");}while(r); +do{ +sub__printstring( 1 , 1 ,__STRING_MENUBAR,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4391,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,4392,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,4392,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,4393,"ide_methods.bas");}while(r); +} +S_41086:; +if ((func__resize())||new_error){ +if(qbevent){evnt(26070,4396,"ide_methods.bas");if(r)goto S_41086;} +do{ +*_FUNC_IDE2_LONG_FORCERESIZE= -1 ; +if(!qbevent)break;evnt(26070,4397,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_SKIPDISPLAY= 0 ; +if(!qbevent)break;evnt(26070,4397,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,4397,"ide_methods.bas");}while(r); +} +S_41091:; +if ((*__LONG_MCLICK|*__LONG_MCLICK2)||new_error){ +if(qbevent){evnt(26070,4400,"ide_methods.bas");if(r)goto S_41091;} +S_41092:; +if ((-(*__LONG_MY== 1 ))||new_error){ +if(qbevent){evnt(26070,4401,"ide_methods.bas");if(r)goto S_41092;} +S_41093:; +fornext_value4433= 1 ; +fornext_finalvalue4433=*__INTEGER_MENUS; +fornext_step4433= 1 ; +if (fornext_step4433<0) fornext_step_negative4433=1; else fornext_step_negative4433=0; +if (new_error) goto fornext_error4433; +goto fornext_entrylabel4433; +while(1){ +fornext_value4433=fornext_step4433+(*_FUNC_IDE2_LONG_I); +fornext_entrylabel4433: +*_FUNC_IDE2_LONG_I=fornext_value4433; +if (fornext_step_negative4433){ +if (fornext_value4433fornext_finalvalue4433) break; +} +fornext_error4433:; +if(qbevent){evnt(26070,4402,"ide_methods.bas");if(r)goto S_41093;} +do{ +*_FUNC_IDE2_LONG_X=string2i(func_mid(_FUNC_IDE2_STRING_MENULOCATIONS,(*_FUNC_IDE2_LONG_I* 2 )-( 1 ), 2 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4403,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_X2=string2i(func_mid(_FUNC_IDE2_STRING_MENULOCATIONS,(*_FUNC_IDE2_LONG_I* 2 )-( 1 ), 2 ,0|1))+((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check(( 0 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]]))->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4404,"ide_methods.bas");}while(r); +S_41096:; +if (((-(*__LONG_MX>=*_FUNC_IDE2_LONG_X))&(-(*__LONG_MX<*_FUNC_IDE2_LONG_X2)))||new_error){ +if(qbevent){evnt(26070,4405,"ide_methods.bas");if(r)goto S_41096;} +do{ +*_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_I; +if(!qbevent)break;evnt(26070,4406,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,4407,"ide_methods.bas");}while(r); +do{ +sub__printstring( 1 , 1 ,__STRING_MENUBAR,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4407,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,4408,"ide_methods.bas");}while(r); +do{ +goto LABEL_SHOWMENU; +if(!qbevent)break;evnt(26070,4409,"ide_methods.bas");}while(r); +} +fornext_continue_4432:; +} +fornext_exit_4432:; +} +do{ +*__LONG_KB= 27 ; +if(!qbevent)break;evnt(26070,4413,"ide_methods.bas");}while(r); +} +S_41107:; +if ((func__exit())||new_error){ +if(qbevent){evnt(26070,4416,"ide_methods.bas");if(r)goto S_41107;} +do{ +*__LONG_IDEEXIT= 1 ; +if(!qbevent)break;evnt(26070,4416,"ide_methods.bas");}while(r); +do{ +*__LONG_KB= 27 ; +if(!qbevent)break;evnt(26070,4416,"ide_methods.bas");}while(r); +} +S_41111:; +dl_continue_4427:; +}while((!(*__LONG_KB))&&(!new_error)); +dl_exit_4427:; +if(qbevent){evnt(26070,4417,"ide_methods.bas");if(r)goto S_41111;} +do{ +qbs_set(__STRING_K,qbs_ucase(__STRING_K)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4419,"ide_methods.bas");}while(r); +S_41113:; +if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_K->len> 0 ))&*__LONG_KCTRL))||new_error){ +if(qbevent){evnt(26070,4420,"ide_methods.bas");if(r)goto S_41113;} +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,4422,"ide_methods.bas");}while(r); +do{ +sub__printstring( 1 , 1 ,__STRING_MENUBAR,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4422,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,4423,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,4423,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,4424,"ide_methods.bas");}while(r); +} +S_41120:; +fornext_value4437= 1 ; +fornext_finalvalue4437=*__INTEGER_MENUS; +fornext_step4437= 1 ; +if (fornext_step4437<0) fornext_step_negative4437=1; else fornext_step_negative4437=0; +if (new_error) goto fornext_error4437; +goto fornext_entrylabel4437; +while(1){ +fornext_value4437=fornext_step4437+(*_FUNC_IDE2_LONG_I); +fornext_entrylabel4437: +*_FUNC_IDE2_LONG_I=fornext_value4437; +if (fornext_step_negative4437){ +if (fornext_value4437fornext_finalvalue4437) break; +} +fornext_error4437:; +if(qbevent){evnt(26070,4427,"ide_methods.bas");if(r)goto S_41120;} +do{ +qbs_set(_FUNC_IDE2_STRING_A,qbs_ucase(qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check(( 0 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4428,"ide_methods.bas");}while(r); +S_41122:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,_FUNC_IDE2_STRING_A)))||new_error){ +if(qbevent){evnt(26070,4429,"ide_methods.bas");if(r)goto S_41122;} +do{ +*_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_I; +if(!qbevent)break;evnt(26070,4430,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,4431,"ide_methods.bas");}while(r); +do{ +sub__printstring( 1 , 1 ,__STRING_MENUBAR,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4431,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,4432,"ide_methods.bas");}while(r); +do{ +goto LABEL_SHOWMENU; +if(!qbevent)break;evnt(26070,4433,"ide_methods.bas");}while(r); +} +fornext_continue_4436:; +} +fornext_exit_4436:; +S_41130:; +if ((-(*__LONG_KB== 19200 ))||new_error){ +if(qbevent){evnt(26070,4437,"ide_methods.bas");if(r)goto S_41130;} +do{ +*_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_M- 1 ; +if(!qbevent)break;evnt(26070,4437,"ide_methods.bas");}while(r); +} +S_41133:; +if ((-(*__LONG_KB== 19712 ))||new_error){ +if(qbevent){evnt(26070,4438,"ide_methods.bas");if(r)goto S_41133;} +do{ +*_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_M+ 1 ; +if(!qbevent)break;evnt(26070,4438,"ide_methods.bas");}while(r); +} +S_41136:; +if ((-(*__LONG_KB== 27 ))||new_error){ +if(qbevent){evnt(26070,4439,"ide_methods.bas");if(r)goto S_41136;} +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,4440,"ide_methods.bas");}while(r); +do{ +sub__printstring( 1 , 1 ,__STRING_MENUBAR,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4440,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_IDEINFO,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4441,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,4442,"ide_methods.bas");}while(r); +} +S_41142:; +if ((-(*_FUNC_IDE2_LONG_M< 1 ))||new_error){ +if(qbevent){evnt(26070,4444,"ide_methods.bas");if(r)goto S_41142;} +do{ +*_FUNC_IDE2_LONG_M=*__INTEGER_MENUS; +if(!qbevent)break;evnt(26070,4444,"ide_methods.bas");}while(r); +} +S_41145:; +if (((-(*_FUNC_IDE2_LONG_M>*__INTEGER_MENUS))&(-(*_FUNC_IDE2_LONG_IDECONTEXTUALMENU== 0 )))||new_error){ +if(qbevent){evnt(26070,4445,"ide_methods.bas");if(r)goto S_41145;} +do{ +*_FUNC_IDE2_LONG_M= 1 ; +if(!qbevent)break;evnt(26070,4445,"ide_methods.bas");}while(r); +} +S_41148:; +if (((-(*__LONG_KB== 18432 ))|(-(*__LONG_KB== 20480 ))|(-(*__LONG_KB== 13 )))||new_error){ +if(qbevent){evnt(26070,4446,"ide_methods.bas");if(r)goto S_41148;} +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,4447,"ide_methods.bas");}while(r); +do{ +sub__printstring( 1 , 1 ,__STRING_MENUBAR,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4447,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,4448,"ide_methods.bas");}while(r); +do{ +goto LABEL_SHOWMENU; +if(!qbevent)break;evnt(26070,4449,"ide_methods.bas");}while(r); +} +S_41154:; +if (((-(*__LONG_KB> 0 ))&(-(*__LONG_KB<= 255 )))||new_error){ +if(qbevent){evnt(26070,4453,"ide_methods.bas");if(r)goto S_41154;} +S_41155:; +if ((-(*__LONG_KALT== 0 ))||new_error){ +if(qbevent){evnt(26070,4454,"ide_methods.bas");if(r)goto S_41155;} +do{ +*__LONG_ICHECKLATER= 1 ; +if(!qbevent)break;evnt(26070,4455,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,4456,"ide_methods.bas");}while(r); +do{ +sub__printstring( 1 , 1 ,__STRING_MENUBAR,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4456,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,4457,"ide_methods.bas");}while(r); +} +} +dl_continue_4420:; +}while(1); +dl_exit_4420:; +LABEL_SHOWMENU:; +if(qbevent){evnt(26070,4465,"ide_methods.bas");r=0;} +do{ +*_FUNC_IDE2_LONG_ALTHELD= 1 ; +if(!qbevent)break;evnt(26070,4466,"ide_methods.bas");}while(r); +S_41164:; +if ((-(*__LONG_IDESYSTEM== 2 ))||new_error){ +if(qbevent){evnt(26070,4467,"ide_methods.bas");if(r)goto S_41164;} +do{ +*__LONG_IDESYSTEM= 1 ; +if(!qbevent)break;evnt(26070,4467,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=46; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATESEARCHBAR; +RETURN_46:; +if(!qbevent)break;evnt(26070,4467,"ide_methods.bas");}while(r); +} +do{ +sub_pcopy( 0 , 2 ); +if(!qbevent)break;evnt(26070,4468,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,4469,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_PARENTMENUR=*_FUNC_IDE2_LONG_R; +if(!qbevent)break;evnt(26070,4470,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_R= 1 ; +if(!qbevent)break;evnt(26070,4471,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_S= 0 ; +if(!qbevent)break;evnt(26070,4472,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_PARENTMENU= 0 ; +if(!qbevent)break;evnt(26070,4473,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_BYTE_PARENTMENUSETUP= 0 ; +if(!qbevent)break;evnt(26070,4474,"ide_methods.bas");}while(r); +S_41175:; +if(qbevent){evnt(26070,4475,"ide_methods.bas");if(r)goto S_41175;} +S_41176:; +if (((*_FUNC_IDE2_LONG_IDECONTEXTUALMENU==( 1 )))||new_error){ +if(qbevent){evnt(26070,4476,"ide_methods.bas");if(r)goto S_41176;} +do{ +*_FUNC_IDE2_LONG_IDECTXMENUX=*__LONG_MX; +if(!qbevent)break;evnt(26070,4478,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_IDECTXMENUY=*__LONG_MY; +if(!qbevent)break;evnt(26070,4479,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_M=*__INTEGER_IDECONTEXTUALMENUID; +if(!qbevent)break;evnt(26070,4480,"ide_methods.bas");}while(r); +sc_ec_220_end:; +goto sc_4438_end; +} +S_41180:; +if (((*_FUNC_IDE2_LONG_IDECONTEXTUALMENU==( 2 )))||new_error){ +if(qbevent){evnt(26070,4481,"ide_methods.bas");if(r)goto S_41180;} +do{ +*_FUNC_IDE2_LONG_IDECTXMENUX=*_FUNC_IDE2_LONG_XX+*_FUNC_IDE2_LONG_W+ 3 ; +if(!qbevent)break;evnt(26070,4483,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_IDECTXMENUY=*_FUNC_IDE2_LONG_YY+*_FUNC_IDE2_LONG_R; +if(!qbevent)break;evnt(26070,4484,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_PARENTMENU=*_FUNC_IDE2_LONG_M; +if(!qbevent)break;evnt(26070,4485,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_M=*__INTEGER_VIEWMENUSHOWLINENUMBERSSUBMENUID; +if(!qbevent)break;evnt(26070,4486,"ide_methods.bas");}while(r); +sc_ec_221_end:; +goto sc_4438_end; +} +S_41185:; +if (((*_FUNC_IDE2_LONG_IDECONTEXTUALMENU==( 3 )))||new_error){ +if(qbevent){evnt(26070,4487,"ide_methods.bas");if(r)goto S_41185;} +do{ +*_FUNC_IDE2_LONG_IDECTXMENUX=*_FUNC_IDE2_LONG_XX+*_FUNC_IDE2_LONG_W+ 3 ; +if(!qbevent)break;evnt(26070,4489,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_IDECTXMENUY=*_FUNC_IDE2_LONG_YY+*_FUNC_IDE2_LONG_R+ 4 ; +if(!qbevent)break;evnt(26070,4490,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_PARENTMENU=*_FUNC_IDE2_LONG_M; +if(!qbevent)break;evnt(26070,4491,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_M=*__INTEGER_FILEMENUEXPORTASSUBMENUID; +if(!qbevent)break;evnt(26070,4492,"ide_methods.bas");}while(r); +sc_ec_222_end:; +goto sc_4438_end; +} +sc_4438_end:; +do{ +SUB_IDEMAKEEDITMENU(); +if(!qbevent)break;evnt(26070,4495,"ide_methods.bas");}while(r); +S_41192:; +if ((-(*__LONG_TOTALWARNINGS== 0 ))||new_error){ +if(qbevent){evnt(26070,4497,"ide_methods.bas");if(r)goto S_41192;} +do{ +tmp_long=array_check((*__INTEGER_VIEWMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_VIEWMENUCOMPILERWARNINGS)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("~Compiler #Warnings... Ctrl+W",30)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4498,"ide_methods.bas");}while(r); +}else{ +do{ +tmp_long=array_check((*__INTEGER_VIEWMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_VIEWMENUCOMPILERWARNINGS)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Compiler #Warnings... Ctrl+W",29)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4500,"ide_methods.bas");}while(r); +} +S_41197:; +if ((-(*__LONG_CALLSTACKLENGTH== 0 ))||new_error){ +if(qbevent){evnt(26070,4503,"ide_methods.bas");if(r)goto S_41197;} +do{ +tmp_long=array_check((*__INTEGER_DEBUGMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_DEBUGMENUCALLSTACK)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("~Call #Stack... F12",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4504,"ide_methods.bas");}while(r); +}else{ +do{ +tmp_long=array_check((*__INTEGER_DEBUGMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_DEBUGMENUCALLSTACK)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Call #Stack... F12",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4506,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDE2_LONG_OLDMY=*__LONG_MY; +if(!qbevent)break;evnt(26070,4509,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_OLDMX=*__LONG_MX; +if(!qbevent)break;evnt(26070,4509,"ide_methods.bas");}while(r); +S_41204:; +do{ +if(qbevent){evnt(26070,4510,"ide_methods.bas");if(r)goto S_41204;} +do{ +sub_pcopy( 2 , 1 ); +if(!qbevent)break;evnt(26070,4511,"ide_methods.bas");}while(r); +S_41206:; +if ((-(*_FUNC_IDE2_LONG_IDECONTEXTUALMENU== 0 ))||new_error){ +if(qbevent){evnt(26070,4513,"ide_methods.bas");if(r)goto S_41206;} +do{ +*_FUNC_IDE2_LONG_X= 4 ; +if(!qbevent)break;evnt(26070,4515,"ide_methods.bas");}while(r); +S_41208:; +fornext_value4441= 1 ; +fornext_finalvalue4441=*_FUNC_IDE2_LONG_M- 1 ; +fornext_step4441= 1 ; +if (fornext_step4441<0) fornext_step_negative4441=1; else fornext_step_negative4441=0; +if (new_error) goto fornext_error4441; +goto fornext_entrylabel4441; +while(1){ +fornext_value4441=fornext_step4441+(*_FUNC_IDE2_LONG_I); +fornext_entrylabel4441: +*_FUNC_IDE2_LONG_I=fornext_value4441; +if (fornext_step_negative4441){ +if (fornext_value4441fornext_finalvalue4441) break; +} +fornext_error4441:; +if(qbevent){evnt(26070,4515,"ide_methods.bas");if(r)goto S_41208;} +do{ +*_FUNC_IDE2_LONG_X=*_FUNC_IDE2_LONG_X+((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check(( 0 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]]))->len+ 2 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4515,"ide_methods.bas");}while(r); +S_41210:; +if ((-(*_FUNC_IDE2_LONG_I==(*__INTEGER_MENUS- 1 )))||new_error){ +if(qbevent){evnt(26070,4516,"ide_methods.bas");if(r)goto S_41210;} +do{ +*_FUNC_IDE2_LONG_X=*__LONG_IDEWX-((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*__INTEGER_MENUS)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check(( 0 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]]))->len- 1 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4516,"ide_methods.bas");}while(r); +} +fornext_continue_4440:; +} +fornext_exit_4440:; +do{ +*_FUNC_IDE2_LONG_XX=*_FUNC_IDE2_LONG_X; +if(!qbevent)break;evnt(26070,4517,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 7 , 0 ,NULL,3); +if(!qbevent)break;evnt(26070,4518,"ide_methods.bas");}while(r); +do{ +sub__printstring(*_FUNC_IDE2_LONG_XX- 1 , 1 ,qbs_add(qbs_add(qbs_new_txt_len(" ",1),((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check(( 0 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]]))),qbs_new_txt_len(" ",1)),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4518,"ide_methods.bas");}while(r); +}else{ +S_41218:; +if (((-(*_FUNC_IDE2_LONG_PARENTMENU> 0 ))&(-(*_FUNC_IDE2_BYTE_PARENTMENUSETUP== 0 )))||new_error){ +if(qbevent){evnt(26070,4520,"ide_methods.bas");if(r)goto S_41218;} +do{ +*_FUNC_IDE2_BYTE_PARENTMENUSETUP= -1 ; +if(!qbevent)break;evnt(26070,4521,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_BACKTOPARENT__ASCII_CHR_046__X1=*_FUNC_IDE2_LONG_XX- 1 ; +if(!qbevent)break;evnt(26070,4522,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_BACKTOPARENT__ASCII_CHR_046__X2=*_FUNC_IDE2_LONG_XX+*_FUNC_IDE2_LONG_W; +if(!qbevent)break;evnt(26070,4523,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_BACKTOPARENT__ASCII_CHR_046__Y1= 3 ; +if(!qbevent)break;evnt(26070,4524,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_BACKTOPARENT__ASCII_CHR_046__Y2=*_FUNC_IDE2_LONG_BACKTOPARENT__ASCII_CHR_046__Y1+((int32*)(__ARRAY_LONG_MENUSIZE[0]))[array_check((*_FUNC_IDE2_LONG_PARENTMENU)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5])]; +if(!qbevent)break;evnt(26070,4525,"ide_methods.bas");}while(r); +} +} +do{ +*_FUNC_IDE2_LONG_W= 0 ; +if(!qbevent)break;evnt(26070,4529,"ide_methods.bas");}while(r); +S_41227:; +fornext_value4445= 1 ; +fornext_finalvalue4445=((int32*)(__ARRAY_LONG_MENUSIZE[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5])]; +fornext_step4445= 1 ; +if (fornext_step4445<0) fornext_step_negative4445=1; else fornext_step_negative4445=0; +if (new_error) goto fornext_error4445; +goto fornext_entrylabel4445; +while(1){ +fornext_value4445=fornext_step4445+(*_FUNC_IDE2_LONG_I); +fornext_entrylabel4445: +*_FUNC_IDE2_LONG_I=fornext_value4445; +if (fornext_step_negative4445){ +if (fornext_value4445fornext_finalvalue4445) break; +} +fornext_error4445:; +if(qbevent){evnt(26070,4530,"ide_methods.bas");if(r)goto S_41227;} +do{ +qbs_set(_FUNC_IDE2_STRING_M,((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4531,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_L=_FUNC_IDE2_STRING_M->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4532,"ide_methods.bas");}while(r); +S_41230:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_IDE2_STRING_M,qbs_new_txt_len("#",1),0)))||new_error){ +if(qbevent){evnt(26070,4533,"ide_methods.bas");if(r)goto S_41230;} +do{ +*_FUNC_IDE2_LONG_L=*_FUNC_IDE2_LONG_L- 1 ; +if(!qbevent)break;evnt(26070,4533,"ide_methods.bas");}while(r); +} +S_41233:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_IDE2_STRING_M, 1 ),qbs_new_txt_len("~",1))))||new_error){ +if(qbevent){evnt(26070,4534,"ide_methods.bas");if(r)goto S_41233;} +do{ +*_FUNC_IDE2_LONG_L=*_FUNC_IDE2_LONG_L- 1 ; +if(!qbevent)break;evnt(26070,4534,"ide_methods.bas");}while(r); +} +S_41236:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_IDE2_STRING_M, 1 ),func_chr( 7 ))))||new_error){ +if(qbevent){evnt(26070,4535,"ide_methods.bas");if(r)goto S_41236;} +do{ +*_FUNC_IDE2_LONG_L=*_FUNC_IDE2_LONG_L- 1 ; +if(!qbevent)break;evnt(26070,4535,"ide_methods.bas");}while(r); +} +S_41239:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_IDE2_STRING_M,qbs_new_txt_len(" ",2),0)))||new_error){ +if(qbevent){evnt(26070,4536,"ide_methods.bas");if(r)goto S_41239;} +do{ +*_FUNC_IDE2_LONG_L=*_FUNC_IDE2_LONG_L+ 2 ; +if(!qbevent)break;evnt(26070,4536,"ide_methods.bas");}while(r); +} +S_41242:; +if ((-(*_FUNC_IDE2_LONG_L>*_FUNC_IDE2_LONG_W))||new_error){ +if(qbevent){evnt(26070,4537,"ide_methods.bas");if(r)goto S_41242;} +do{ +*_FUNC_IDE2_LONG_W=*_FUNC_IDE2_LONG_L; +if(!qbevent)break;evnt(26070,4537,"ide_methods.bas");}while(r); +} +fornext_continue_4444:; +} +fornext_exit_4444:; +do{ +*_FUNC_IDE2_LONG_YY= 2 ; +if(!qbevent)break;evnt(26070,4539,"ide_methods.bas");}while(r); +S_41247:; +if ((-(*_FUNC_IDE2_LONG_IDECONTEXTUALMENU> 0 ))||new_error){ +if(qbevent){evnt(26070,4540,"ide_methods.bas");if(r)goto S_41247;} +do{ +*_FUNC_IDE2_LONG_ACTUAL__ASCII_CHR_046__IDEWY=*__LONG_IDEWY; +if(!qbevent)break;evnt(26070,4541,"ide_methods.bas");}while(r); +S_41249:; +if ((-(*__LONG_IDESUBWINDOW!= 0 ))||new_error){ +if(qbevent){evnt(26070,4542,"ide_methods.bas");if(r)goto S_41249;} +do{ +*_FUNC_IDE2_LONG_ACTUAL__ASCII_CHR_046__IDEWY=*__LONG_IDEWY+*__LONG_IDESUBWINDOW; +if(!qbevent)break;evnt(26070,4543,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDE2_LONG_XX=*_FUNC_IDE2_LONG_IDECTXMENUX; +if(!qbevent)break;evnt(26070,4545,"ide_methods.bas");}while(r); +S_41253:; +if ((-(*_FUNC_IDE2_LONG_XX< 3 ))||new_error){ +if(qbevent){evnt(26070,4546,"ide_methods.bas");if(r)goto S_41253;} +do{ +*_FUNC_IDE2_LONG_XX= 3 ; +if(!qbevent)break;evnt(26070,4546,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDE2_LONG_YY=*_FUNC_IDE2_LONG_IDECTXMENUY; +if(!qbevent)break;evnt(26070,4547,"ide_methods.bas");}while(r); +S_41257:; +if ((-((*_FUNC_IDE2_LONG_YY+((int32*)(__ARRAY_LONG_MENUSIZE[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5])]+ 2 )>*_FUNC_IDE2_LONG_ACTUAL__ASCII_CHR_046__IDEWY))||new_error){ +if(qbevent){evnt(26070,4548,"ide_methods.bas");if(r)goto S_41257;} +do{ +*_FUNC_IDE2_LONG_YY=*_FUNC_IDE2_LONG_ACTUAL__ASCII_CHR_046__IDEWY- 2 -((int32*)(__ARRAY_LONG_MENUSIZE[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5])]; +if(!qbevent)break;evnt(26070,4548,"ide_methods.bas");}while(r); +} +} +S_41261:; +if ((-(*_FUNC_IDE2_LONG_XX>(*__LONG_IDEWX-*_FUNC_IDE2_LONG_W- 3 )))||new_error){ +if(qbevent){evnt(26070,4550,"ide_methods.bas");if(r)goto S_41261;} +do{ +*_FUNC_IDE2_LONG_XX=*__LONG_IDEWX-*_FUNC_IDE2_LONG_W- 3 ; +if(!qbevent)break;evnt(26070,4550,"ide_methods.bas");}while(r); +} +do{ +SUB_UPDATEMENUHELPLINE(((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_FUNC_IDE2_LONG_R)-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4552,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,4554,"ide_methods.bas");}while(r); +do{ +SUB_IDEBOXSHADOW(&(pass4447=*_FUNC_IDE2_LONG_XX- 2 ),_FUNC_IDE2_LONG_YY,&(pass4448=*_FUNC_IDE2_LONG_W+ 4 ),&(pass4449=((int32*)(__ARRAY_LONG_MENUSIZE[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5])]+ 2 )); +if(!qbevent)break;evnt(26070,4555,"ide_methods.bas");}while(r); +S_41267:; +fornext_value4451= 1 ; +fornext_finalvalue4451=((int32*)(__ARRAY_LONG_MENUSIZE[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5])]; +fornext_step4451= 1 ; +if (fornext_step4451<0) fornext_step_negative4451=1; else fornext_step_negative4451=0; +if (new_error) goto fornext_error4451; +goto fornext_entrylabel4451; +while(1){ +fornext_value4451=fornext_step4451+(*_FUNC_IDE2_LONG_I); +fornext_entrylabel4451: +*_FUNC_IDE2_LONG_I=fornext_value4451; +if (fornext_step_negative4451){ +if (fornext_value4451fornext_finalvalue4451) break; +} +fornext_error4451:; +if(qbevent){evnt(26070,4558,"ide_methods.bas");if(r)goto S_41267;} +do{ +qbs_set(_FUNC_IDE2_STRING_M,((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4559,"ide_methods.bas");}while(r); +S_41269:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_M,qbs_new_txt_len("-",1))))||new_error){ +if(qbevent){evnt(26070,4560,"ide_methods.bas");if(r)goto S_41269;} +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,4561,"ide_methods.bas");}while(r); +do{ +sub__printstring(*_FUNC_IDE2_LONG_XX- 2 ,*_FUNC_IDE2_LONG_I+*_FUNC_IDE2_LONG_YY,qbs_add(qbs_add(func_chr( 195 ),func_string(*_FUNC_IDE2_LONG_W+ 2 ,(func_chr( 196 )->chr[0]))),func_chr( 180 )),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4561,"ide_methods.bas");}while(r); +S_41272:; +}else{ +if (qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_IDE2_STRING_M, 1 ),qbs_new_txt_len("~",1)))){ +if(qbevent){evnt(26070,4562,"ide_methods.bas");if(r)goto S_41272;} +do{ +qbs_set(_FUNC_IDE2_STRING_M,qbs_right(_FUNC_IDE2_STRING_M,_FUNC_IDE2_STRING_M->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4563,"ide_methods.bas");}while(r); +S_41274:; +if ((-(*_FUNC_IDE2_LONG_R==*_FUNC_IDE2_LONG_I))||new_error){ +if(qbevent){evnt(26070,4564,"ide_methods.bas");if(r)goto S_41274;} +do{ +qbg_sub_color( 7 , 0 ,NULL,3); +if(!qbevent)break;evnt(26070,4564,"ide_methods.bas");}while(r); +do{ +sub__printstring(*_FUNC_IDE2_LONG_XX- 1 ,*_FUNC_IDE2_LONG_I+*_FUNC_IDE2_LONG_YY,func_space(*_FUNC_IDE2_LONG_W+ 2 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4564,"ide_methods.bas");}while(r); +} +S_41278:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_IDE2_STRING_M, 1 ),func_chr( 7 ))))||new_error){ +if(qbevent){evnt(26070,4565,"ide_methods.bas");if(r)goto S_41278;} +do{ +qbg_sub_locate(*_FUNC_IDE2_LONG_I+*_FUNC_IDE2_LONG_YY,*_FUNC_IDE2_LONG_XX- 1 ,NULL,NULL,NULL,3); +if(!qbevent)break;evnt(26070,4565,"ide_methods.bas");}while(r); +}else{ +do{ +qbg_sub_locate(*_FUNC_IDE2_LONG_I+*_FUNC_IDE2_LONG_YY,*_FUNC_IDE2_LONG_XX,NULL,NULL,NULL,3); +if(!qbevent)break;evnt(26070,4565,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDE2_LONG_H= -1 ; +if(!qbevent)break;evnt(26070,4566,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_X=func_instr(NULL,_FUNC_IDE2_STRING_M,qbs_new_txt_len("#",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4566,"ide_methods.bas");}while(r); +S_41285:; +if ((*_FUNC_IDE2_LONG_X)||new_error){ +if(qbevent){evnt(26070,4566,"ide_methods.bas");if(r)goto S_41285;} +do{ +*_FUNC_IDE2_LONG_H=*_FUNC_IDE2_LONG_X; +if(!qbevent)break;evnt(26070,4566,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_M,qbs_add(qbs_left(_FUNC_IDE2_STRING_M,*_FUNC_IDE2_LONG_X- 1 ),qbs_right(_FUNC_IDE2_STRING_M,_FUNC_IDE2_STRING_M->len-*_FUNC_IDE2_LONG_X))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4566,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDE2_LONG_X=func_instr(NULL,_FUNC_IDE2_STRING_M,qbs_new_txt_len(" ",2),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4567,"ide_methods.bas");}while(r); +S_41290:; +if ((*_FUNC_IDE2_LONG_X)||new_error){ +if(qbevent){evnt(26070,4567,"ide_methods.bas");if(r)goto S_41290;} +do{ +qbs_set(_FUNC_IDE2_STRING_M1,qbs_left(_FUNC_IDE2_STRING_M,*_FUNC_IDE2_LONG_X- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4567,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_M2,qbs_right(_FUNC_IDE2_STRING_M,_FUNC_IDE2_STRING_M->len-*_FUNC_IDE2_LONG_X- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4567,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_M,qbs_add(qbs_add(_FUNC_IDE2_STRING_M1,func_space(*_FUNC_IDE2_LONG_W-_FUNC_IDE2_STRING_M1->len-_FUNC_IDE2_STRING_M2->len)),_FUNC_IDE2_STRING_M2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4567,"ide_methods.bas");}while(r); +} +S_41295:; +fornext_value4458= 1 ; +fornext_finalvalue4458=_FUNC_IDE2_STRING_M->len; +fornext_step4458= 1 ; +if (fornext_step4458<0) fornext_step_negative4458=1; else fornext_step_negative4458=0; +if (new_error) goto fornext_error4458; +goto fornext_entrylabel4458; +while(1){ +fornext_value4458=fornext_step4458+(*_FUNC_IDE2_LONG_X); +fornext_entrylabel4458: +*_FUNC_IDE2_LONG_X=fornext_value4458; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative4458){ +if (fornext_value4458fornext_finalvalue4458) break; +} +fornext_error4458:; +if(qbevent){evnt(26070,4568,"ide_methods.bas");if(r)goto S_41295;} +S_41296:; +if ((-(*_FUNC_IDE2_LONG_R==*_FUNC_IDE2_LONG_I))||new_error){ +if(qbevent){evnt(26070,4569,"ide_methods.bas");if(r)goto S_41296;} +do{ +qbg_sub_color( 2 , 0 ,NULL,3); +if(!qbevent)break;evnt(26070,4569,"ide_methods.bas");}while(r); +}else{ +do{ +qbg_sub_color( 2 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,4569,"ide_methods.bas");}while(r); +} +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,func_mid(_FUNC_IDE2_STRING_M,*_FUNC_IDE2_LONG_X, 1 ,0|1)); +if (new_error) goto skip4460; +makefit(tqbs); +qbs_print(tqbs,0); +skip4460: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4570,"ide_methods.bas");}while(r); +fornext_continue_4457:; +} +fornext_exit_4457:; +}else{ +S_41304:; +if ((-(*_FUNC_IDE2_LONG_R==*_FUNC_IDE2_LONG_I))||new_error){ +if(qbevent){evnt(26070,4573,"ide_methods.bas");if(r)goto S_41304;} +do{ +qbg_sub_color( 7 , 0 ,NULL,3); +if(!qbevent)break;evnt(26070,4573,"ide_methods.bas");}while(r); +do{ +sub__printstring(*_FUNC_IDE2_LONG_XX- 1 ,*_FUNC_IDE2_LONG_I+*_FUNC_IDE2_LONG_YY,func_space(*_FUNC_IDE2_LONG_W+ 2 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4573,"ide_methods.bas");}while(r); +} +S_41308:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_IDE2_STRING_M, 1 ),func_chr( 7 ))))||new_error){ +if(qbevent){evnt(26070,4574,"ide_methods.bas");if(r)goto S_41308;} +do{ +qbg_sub_locate(*_FUNC_IDE2_LONG_I+*_FUNC_IDE2_LONG_YY,*_FUNC_IDE2_LONG_XX- 1 ,NULL,NULL,NULL,3); +if(!qbevent)break;evnt(26070,4574,"ide_methods.bas");}while(r); +}else{ +do{ +qbg_sub_locate(*_FUNC_IDE2_LONG_I+*_FUNC_IDE2_LONG_YY,*_FUNC_IDE2_LONG_XX,NULL,NULL,NULL,3); +if(!qbevent)break;evnt(26070,4574,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDE2_LONG_H= -1 ; +if(!qbevent)break;evnt(26070,4575,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_X=func_instr(NULL,_FUNC_IDE2_STRING_M,qbs_new_txt_len("#",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4575,"ide_methods.bas");}while(r); +S_41315:; +if ((*_FUNC_IDE2_LONG_X)||new_error){ +if(qbevent){evnt(26070,4575,"ide_methods.bas");if(r)goto S_41315;} +do{ +*_FUNC_IDE2_LONG_H=*_FUNC_IDE2_LONG_X; +if(!qbevent)break;evnt(26070,4575,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_M,qbs_add(qbs_left(_FUNC_IDE2_STRING_M,*_FUNC_IDE2_LONG_X- 1 ),qbs_right(_FUNC_IDE2_STRING_M,_FUNC_IDE2_STRING_M->len-*_FUNC_IDE2_LONG_X))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4575,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDE2_LONG_X=func_instr(NULL,_FUNC_IDE2_STRING_M,qbs_new_txt_len(" ",2),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4576,"ide_methods.bas");}while(r); +S_41320:; +if ((*_FUNC_IDE2_LONG_X)||new_error){ +if(qbevent){evnt(26070,4576,"ide_methods.bas");if(r)goto S_41320;} +do{ +qbs_set(_FUNC_IDE2_STRING_M1,qbs_left(_FUNC_IDE2_STRING_M,*_FUNC_IDE2_LONG_X- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4576,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_M2,qbs_right(_FUNC_IDE2_STRING_M,_FUNC_IDE2_STRING_M->len-*_FUNC_IDE2_LONG_X- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4576,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_M,qbs_add(qbs_add(_FUNC_IDE2_STRING_M1,func_space(*_FUNC_IDE2_LONG_W-_FUNC_IDE2_STRING_M1->len-_FUNC_IDE2_STRING_M2->len)),_FUNC_IDE2_STRING_M2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4576,"ide_methods.bas");}while(r); +} +S_41325:; +fornext_value4466= 1 ; +fornext_finalvalue4466=_FUNC_IDE2_STRING_M->len; +fornext_step4466= 1 ; +if (fornext_step4466<0) fornext_step_negative4466=1; else fornext_step_negative4466=0; +if (new_error) goto fornext_error4466; +goto fornext_entrylabel4466; +while(1){ +fornext_value4466=fornext_step4466+(*_FUNC_IDE2_LONG_X); +fornext_entrylabel4466: +*_FUNC_IDE2_LONG_X=fornext_value4466; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative4466){ +if (fornext_value4466fornext_finalvalue4466) break; +} +fornext_error4466:; +if(qbevent){evnt(26070,4577,"ide_methods.bas");if(r)goto S_41325;} +S_41326:; +if ((-(*_FUNC_IDE2_LONG_X==*_FUNC_IDE2_LONG_H))||new_error){ +if(qbevent){evnt(26070,4578,"ide_methods.bas");if(r)goto S_41326;} +S_41327:; +if ((-(*_FUNC_IDE2_LONG_R==*_FUNC_IDE2_LONG_I))||new_error){ +if(qbevent){evnt(26070,4579,"ide_methods.bas");if(r)goto S_41327;} +do{ +qbg_sub_color( 15 , 0 ,NULL,3); +if(!qbevent)break;evnt(26070,4579,"ide_methods.bas");}while(r); +}else{ +do{ +qbg_sub_color( 15 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,4579,"ide_methods.bas");}while(r); +} +}else{ +S_41333:; +if ((-(*_FUNC_IDE2_LONG_R==*_FUNC_IDE2_LONG_I))||new_error){ +if(qbevent){evnt(26070,4581,"ide_methods.bas");if(r)goto S_41333;} +do{ +qbg_sub_color( 7 , 0 ,NULL,3); +if(!qbevent)break;evnt(26070,4581,"ide_methods.bas");}while(r); +}else{ +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,4581,"ide_methods.bas");}while(r); +} +} +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,func_mid(_FUNC_IDE2_STRING_M,*_FUNC_IDE2_LONG_X, 1 ,0|1)); +if (new_error) goto skip4468; +makefit(tqbs); +qbs_print(tqbs,0); +skip4468: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4583,"ide_methods.bas");}while(r); +fornext_continue_4465:; +} +fornext_exit_4465:; +} +} +fornext_continue_4450:; +} +fornext_exit_4450:; +do{ +sub_pcopy( 1 , 0 ); +if(!qbevent)break;evnt(26070,4588,"ide_methods.bas");}while(r); +S_41344:; +if ((*_FUNC_IDE2_LONG_S)||new_error){ +if(qbevent){evnt(26070,4590,"ide_methods.bas");if(r)goto S_41344;} +do{ +goto LABEL_MENUCHOICEMADE; +if(!qbevent)break;evnt(26070,4590,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDE2_BYTE_UPDATEMENUPANEL= 0 ; +if(!qbevent)break;evnt(26070,4592,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_CHANGE= 0 ; +if(!qbevent)break;evnt(26070,4593,"ide_methods.bas");}while(r); +S_41349:; +do{ +if(qbevent){evnt(26070,4594,"ide_methods.bas");if(r)goto S_41349;} +do{ +*_FUNC_IDE2_LONG_MOUSEDOWN= 0 ; +if(!qbevent)break;evnt(26070,4595,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_MOUSEUP= 0 ; +if(!qbevent)break;evnt(26070,4595,"ide_methods.bas");}while(r); +do{ +SUB_GETINPUT(); +if(!qbevent)break;evnt(26070,4596,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_LASTALTHELD=*_FUNC_IDE2_LONG_ALTHELD; +if(!qbevent)break;evnt(26070,4597,"ide_methods.bas");}while(r); +S_41354:; +if ((*__LONG_KALT)||new_error){ +if(qbevent){evnt(26070,4597,"ide_methods.bas");if(r)goto S_41354;} +do{ +*_FUNC_IDE2_LONG_ALTHELD= 1 ; +if(!qbevent)break;evnt(26070,4597,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_IDE2_LONG_ALTHELD= 0 ; +if(!qbevent)break;evnt(26070,4597,"ide_methods.bas");}while(r); +} +S_41359:; +if ((*__LONG_ICHANGED)||new_error){ +if(qbevent){evnt(26070,4598,"ide_methods.bas");if(r)goto S_41359;} +S_41360:; +if ((*__LONG_KB)||new_error){ +if(qbevent){evnt(26070,4599,"ide_methods.bas");if(r)goto S_41360;} +do{ +*_FUNC_IDE2_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,4599,"ide_methods.bas");}while(r); +} +S_41363:; +if ((*__LONG_MCLICK)||new_error){ +if(qbevent){evnt(26070,4600,"ide_methods.bas");if(r)goto S_41363;} +do{ +*_FUNC_IDE2_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,4600,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_MOUSEDOWN= 1 ; +if(!qbevent)break;evnt(26070,4600,"ide_methods.bas");}while(r); +} +S_41367:; +if ((*__LONG_MCLICK2)||new_error){ +if(qbevent){evnt(26070,4601,"ide_methods.bas");if(r)goto S_41367;} +do{ +*_FUNC_IDE2_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,4601,"ide_methods.bas");}while(r); +} +S_41370:; +if ((*__LONG_MRELEASE)||new_error){ +if(qbevent){evnt(26070,4602,"ide_methods.bas");if(r)goto S_41370;} +do{ +*_FUNC_IDE2_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,4602,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_MOUSEUP= 1 ; +if(!qbevent)break;evnt(26070,4602,"ide_methods.bas");}while(r); +} +S_41374:; +if ((*__LONG_MWHEEL)||new_error){ +if(qbevent){evnt(26070,4603,"ide_methods.bas");if(r)goto S_41374;} +do{ +*_FUNC_IDE2_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,4603,"ide_methods.bas");}while(r); +} +S_41377:; +if ((*__LONG_MX)||new_error){ +if(qbevent){evnt(26070,4604,"ide_methods.bas");if(r)goto S_41377;} +do{ +*_FUNC_IDE2_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,4604,"ide_methods.bas");}while(r); +} +S_41380:; +if ((*__LONG_MY)||new_error){ +if(qbevent){evnt(26070,4605,"ide_methods.bas");if(r)goto S_41380;} +do{ +*_FUNC_IDE2_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,4605,"ide_methods.bas");}while(r); +} +} +S_41384:; +if ((*__LONG_MB)||new_error){ +if(qbevent){evnt(26070,4607,"ide_methods.bas");if(r)goto S_41384;} +do{ +*_FUNC_IDE2_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,4607,"ide_methods.bas");}while(r); +} +S_41387:; +if (((-(*_FUNC_IDE2_LONG_ALTHELD!= 0 ))&(-(*_FUNC_IDE2_LONG_LASTALTHELD== 0 )))||new_error){ +if(qbevent){evnt(26070,4609,"ide_methods.bas");if(r)goto S_41387;} +S_41388:; +do{ +if(qbevent){evnt(26070,4610,"ide_methods.bas");if(r)goto S_41388;} +do{ +sub__limit( 100 ); +if(!qbevent)break;evnt(26070,4611,"ide_methods.bas");}while(r); +do{ +SUB_GETINPUT(); +if(!qbevent)break;evnt(26070,4612,"ide_methods.bas");}while(r); +S_41391:; +if ((qbs_cleanup(qbs_tmp_base,(-(func__hasfocus()== 0 ))&(((qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3)))|(-(*__LONG_MACOSX== 1 ))))))||new_error){ +if(qbevent){evnt(26070,4613,"ide_methods.bas");if(r)goto S_41391;} +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,4614,"ide_methods.bas");}while(r); +do{ +sub__printstring( 1 , 1 ,__STRING_MENUBAR,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4614,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,4615,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,4615,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,4616,"ide_methods.bas");}while(r); +} +S_41398:; +if ((((-(func__resize()!= 0 )))&(-(*__LONG_IDEDEBUGMODE!= 2 )))||new_error){ +if(qbevent){evnt(26070,4619,"ide_methods.bas");if(r)goto S_41398;} +do{ +*_FUNC_IDE2_LONG_FORCERESIZE= -1 ; +if(!qbevent)break;evnt(26070,4620,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_SKIPDISPLAY= 0 ; +if(!qbevent)break;evnt(26070,4620,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,4620,"ide_methods.bas");}while(r); +} +S_41403:; +dl_continue_4470:; +}while((!(-(*__LONG_KALT== 0 )))&&(!new_error)); +dl_exit_4470:; +if(qbevent){evnt(26070,4622,"ide_methods.bas");if(r)goto S_41403;} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,4623,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,4623,"ide_methods.bas");}while(r); +do{ +goto LABEL_STARTMENU2; +if(!qbevent)break;evnt(26070,4624,"ide_methods.bas");}while(r); +} +S_41408:; +if ((func__exit())||new_error){ +if(qbevent){evnt(26070,4626,"ide_methods.bas");if(r)goto S_41408;} +S_41409:; +if ((-(*__LONG_IDEDEBUGMODE== 2 ))||new_error){ +if(qbevent){evnt(26070,4627,"ide_methods.bas");if(r)goto S_41409;} +do{ +*__LONG_IDEDEBUGMODE= 9 ; +if(!qbevent)break;evnt(26070,4628,"ide_methods.bas");}while(r); +do{ +goto LABEL_ENTERDEBUGMODE; +if(!qbevent)break;evnt(26070,4628,"ide_methods.bas");}while(r); +}else{ +do{ +*__LONG_IDEEXIT= 1 ; +if(!qbevent)break;evnt(26070,4630,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,4630,"ide_methods.bas");}while(r); +} +} +S_41417:; +if ((qbs_cleanup(qbs_tmp_base,(-(func__hasfocus()== 0 ))&(((qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3)))|(-(*__LONG_MACOSX== 1 ))))))||new_error){ +if(qbevent){evnt(26070,4633,"ide_methods.bas");if(r)goto S_41417;} +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,4634,"ide_methods.bas");}while(r); +do{ +sub__printstring( 1 , 1 ,__STRING_MENUBAR,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4634,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,4635,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,4635,"ide_methods.bas");}while(r); +S_41422:; +if ((-(*__LONG_IDEDEBUGMODE== 2 ))||new_error){ +if(qbevent){evnt(26070,4636,"ide_methods.bas");if(r)goto S_41422;} +do{ +goto LABEL_ENTERDEBUGMODE; +if(!qbevent)break;evnt(26070,4636,"ide_methods.bas");}while(r); +} +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,4637,"ide_methods.bas");}while(r); +} +S_41427:; +if ((((-(func__resize()!= 0 )))&(-(*__LONG_IDEDEBUGMODE!= 2 )))||new_error){ +if(qbevent){evnt(26070,4639,"ide_methods.bas");if(r)goto S_41427;} +do{ +*_FUNC_IDE2_LONG_FORCERESIZE= -1 ; +if(!qbevent)break;evnt(26070,4640,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_SKIPDISPLAY= 0 ; +if(!qbevent)break;evnt(26070,4640,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,4640,"ide_methods.bas");}while(r); +} +do{ +sub__limit( 100 ); +if(!qbevent)break;evnt(26070,4642,"ide_methods.bas");}while(r); +S_41433:; +dl_continue_4469:; +}while((!(*_FUNC_IDE2_LONG_CHANGE))&&(!new_error)); +dl_exit_4469:; +if(qbevent){evnt(26070,4643,"ide_methods.bas");if(r)goto S_41433;} +do{ +*_FUNC_IDE2_LONG_S= 0 ; +if(!qbevent)break;evnt(26070,4645,"ide_methods.bas");}while(r); +S_41435:; +if ((*__LONG_MWHEEL)||new_error){ +if(qbevent){evnt(26070,4647,"ide_methods.bas");if(r)goto S_41435;} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,4648,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,4648,"ide_methods.bas");}while(r); +S_41438:; +if ((-(*__LONG_IDEDEBUGMODE== 2 ))||new_error){ +if(qbevent){evnt(26070,4649,"ide_methods.bas");if(r)goto S_41438;} +do{ +goto LABEL_ENTERDEBUGMODE; +if(!qbevent)break;evnt(26070,4649,"ide_methods.bas");}while(r); +} +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,4650,"ide_methods.bas");}while(r); +} +S_41443:; +if ((*__LONG_MCLICK2&(-(*_FUNC_IDE2_LONG_IDECONTEXTUALMENU== 1 )))||new_error){ +if(qbevent){evnt(26070,4653,"ide_methods.bas");if(r)goto S_41443;} +S_41444:; +if ((((-(*__LONG_MX> 1 ))&(-(*__LONG_MX<*__LONG_IDEWX))&(-(*__LONG_MY> 2 ))&(-(*__LONG_MY<(*__LONG_IDEWY- 5 ))))|((-(*__LONG_MY>=*__LONG_IDEWY))&(-(*__LONG_MY<(*__LONG_IDEWY+*__LONG_IDESUBWINDOW)))))||new_error){ +if(qbevent){evnt(26070,4655,"ide_methods.bas");if(r)goto S_41444;} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,4656,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,4656,"ide_methods.bas");}while(r); +S_41447:; +if ((-(*__LONG_IDEDEBUGMODE== 2 ))||new_error){ +if(qbevent){evnt(26070,4657,"ide_methods.bas");if(r)goto S_41447;} +do{ +*_FUNC_IDE2_LONG_BKPIDECY=*__LONG_IDECY; +if(!qbevent)break;evnt(26070,4658,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECY=*__LONG_MY- 2 +*__LONG_IDESY- 1 ; +if(!qbevent)break;evnt(26070,4659,"ide_methods.bas");}while(r); +S_41450:; +if ((-(*__LONG_IDECY>*__LONG_IDEN))||new_error){ +if(qbevent){evnt(26070,4660,"ide_methods.bas");if(r)goto S_41450;} +do{ +*__LONG_IDECY=*__LONG_IDEN; +if(!qbevent)break;evnt(26070,4660,"ide_methods.bas");}while(r); +} +S_41453:; +if ((-(*_FUNC_IDE2_LONG_BKPIDECY!=*__LONG_IDECY))||new_error){ +if(qbevent){evnt(26070,4661,"ide_methods.bas");if(r)goto S_41453;} +do{ +SUB_IDESHOWTEXT(); +if(!qbevent)break;evnt(26070,4662,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,4663,"ide_methods.bas");}while(r); +} +do{ +goto LABEL_SHOWMENU; +if(!qbevent)break;evnt(26070,4665,"ide_methods.bas");}while(r); +} +do{ +goto LABEL_INVOKECONTEXTUALMENU; +if(!qbevent)break;evnt(26070,4667,"ide_methods.bas");}while(r); +}else{ +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,4669,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,4669,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,4670,"ide_methods.bas");}while(r); +} +} +S_41466:; +if ((*_FUNC_IDE2_LONG_MOUSEUP)||new_error){ +if(qbevent){evnt(26070,4675,"ide_methods.bas");if(r)goto S_41466;} +S_41467:; +if (((-(*__LONG_MX>=(*_FUNC_IDE2_LONG_XX- 2 )))&(-(*__LONG_MX<(*_FUNC_IDE2_LONG_XX- 2 +*_FUNC_IDE2_LONG_W+ 4 ))))||new_error){ +if(qbevent){evnt(26070,4676,"ide_methods.bas");if(r)goto S_41467;} +S_41468:; +if (((-(*__LONG_MY>*_FUNC_IDE2_LONG_YY))&(-(*__LONG_MY<=(((int32*)(__ARRAY_LONG_MENUSIZE[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5])]+*_FUNC_IDE2_LONG_YY))))||new_error){ +if(qbevent){evnt(26070,4677,"ide_methods.bas");if(r)goto S_41468;} +do{ +*_FUNC_IDE2_LONG_Y=*__LONG_MY-*_FUNC_IDE2_LONG_YY; +if(!qbevent)break;evnt(26070,4678,"ide_methods.bas");}while(r); +S_41470:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_Y)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("-",1)))&(qbs_notequal(qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_Y)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 1 ),qbs_new_txt_len("~",1)))))||new_error){ +if(qbevent){evnt(26070,4679,"ide_methods.bas");if(r)goto S_41470;} +do{ +*_FUNC_IDE2_LONG_S=*_FUNC_IDE2_LONG_R; +if(!qbevent)break;evnt(26070,4680,"ide_methods.bas");}while(r); +} +} +} +S_41475:; +if (((-(*_FUNC_IDE2_LONG_PARENTMENU> 0 ))&(-(*__LONG_MX>=*_FUNC_IDE2_LONG_BACKTOPARENT__ASCII_CHR_046__X1))&(-(*__LONG_MX<=*_FUNC_IDE2_LONG_BACKTOPARENT__ASCII_CHR_046__X2))&(-(*__LONG_MY>=*_FUNC_IDE2_LONG_BACKTOPARENT__ASCII_CHR_046__Y1))&(-(*__LONG_MY<=*_FUNC_IDE2_LONG_BACKTOPARENT__ASCII_CHR_046__Y2)))||new_error){ +if(qbevent){evnt(26070,4687,"ide_methods.bas");if(r)goto S_41475;} +do{ +*_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_PARENTMENU; +if(!qbevent)break;evnt(26070,4688,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_R=*_FUNC_IDE2_LONG_PARENTMENUR; +if(!qbevent)break;evnt(26070,4689,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_PARENTMENU= 0 ; +if(!qbevent)break;evnt(26070,4690,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_PARENTMENUR= 0 ; +if(!qbevent)break;evnt(26070,4691,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_IDECONTEXTUALMENU= 0 ; +if(!qbevent)break;evnt(26070,4692,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 2 ); +if(!qbevent)break;evnt(26070,4693,"ide_methods.bas");}while(r); +do{ +goto dl_continue_4439; +if(!qbevent)break;evnt(26070,4694,"ide_methods.bas");}while(r); +} +S_41484:; +if (((-(*__LONG_MX<(*_FUNC_IDE2_LONG_XX- 2 )))|(-(*__LONG_MX>=(*_FUNC_IDE2_LONG_XX- 2 +*_FUNC_IDE2_LONG_W+ 4 )))|(-(*__LONG_MY>(*_FUNC_IDE2_LONG_YY+((int32*)(__ARRAY_LONG_MENUSIZE[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5])]+ 1 )))|(((-(*__LONG_MY<*_FUNC_IDE2_LONG_YY))&(-(*_FUNC_IDE2_LONG_IDECONTEXTUALMENU== 1 )))))||new_error){ +if(qbevent){evnt(26070,4697,"ide_methods.bas");if(r)goto S_41484;} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,4698,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,4698,"ide_methods.bas");}while(r); +S_41487:; +if ((-(*__LONG_IDEDEBUGMODE== 2 ))||new_error){ +if(qbevent){evnt(26070,4699,"ide_methods.bas");if(r)goto S_41487;} +do{ +goto LABEL_ENTERDEBUGMODE; +if(!qbevent)break;evnt(26070,4699,"ide_methods.bas");}while(r); +} +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,4700,"ide_methods.bas");}while(r); +} +} +S_41493:; +if (((~(*_FUNC_IDE2_LONG_MOUSEUP))&(~(*_FUNC_IDE2_LONG_MOUSEDOWN)))||new_error){ +if(qbevent){evnt(26070,4704,"ide_methods.bas");if(r)goto S_41493;} +S_41494:; +if (((-(*_FUNC_IDE2_LONG_PARENTMENU> 0 ))&(-(*_FUNC_IDE2_LONG_OLDMY!=*__LONG_MY))&(-(*_FUNC_IDE2_LONG_OLDMX!=*__LONG_MX))&(-(*__LONG_MX>=*_FUNC_IDE2_LONG_BACKTOPARENT__ASCII_CHR_046__X1))&(-(*__LONG_MX<=*_FUNC_IDE2_LONG_BACKTOPARENT__ASCII_CHR_046__X2))&(-(*__LONG_MY>=*_FUNC_IDE2_LONG_BACKTOPARENT__ASCII_CHR_046__Y1))&(-(*__LONG_MY<=*_FUNC_IDE2_LONG_BACKTOPARENT__ASCII_CHR_046__Y2)))||new_error){ +if(qbevent){evnt(26070,4707,"ide_methods.bas");if(r)goto S_41494;} +do{ +*_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_PARENTMENU; +if(!qbevent)break;evnt(26070,4708,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_R=*_FUNC_IDE2_LONG_PARENTMENUR; +if(!qbevent)break;evnt(26070,4709,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_PARENTMENU= 0 ; +if(!qbevent)break;evnt(26070,4710,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_PARENTMENUR= 0 ; +if(!qbevent)break;evnt(26070,4711,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_IDECONTEXTUALMENU= 0 ; +if(!qbevent)break;evnt(26070,4712,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 2 ); +if(!qbevent)break;evnt(26070,4713,"ide_methods.bas");}while(r); +do{ +goto dl_continue_4439; +if(!qbevent)break;evnt(26070,4714,"ide_methods.bas");}while(r); +} +S_41503:; +if ((-(*_FUNC_IDE2_LONG_OLDMY!=*__LONG_MY))||new_error){ +if(qbevent){evnt(26070,4716,"ide_methods.bas");if(r)goto S_41503;} +S_41504:; +if (((-(*__LONG_MX>=(*_FUNC_IDE2_LONG_XX- 2 )))&(-(*__LONG_MX<(*_FUNC_IDE2_LONG_XX- 2 +*_FUNC_IDE2_LONG_W+ 4 ))))||new_error){ +if(qbevent){evnt(26070,4717,"ide_methods.bas");if(r)goto S_41504;} +S_41505:; +if (((-(*__LONG_MY>*_FUNC_IDE2_LONG_YY))&(-(*__LONG_MY<=(((int32*)(__ARRAY_LONG_MENUSIZE[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5])]+*_FUNC_IDE2_LONG_YY))))||new_error){ +if(qbevent){evnt(26070,4718,"ide_methods.bas");if(r)goto S_41505;} +do{ +*_FUNC_IDE2_LONG_Y=*__LONG_MY-*_FUNC_IDE2_LONG_YY; +if(!qbevent)break;evnt(26070,4719,"ide_methods.bas");}while(r); +S_41507:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_Y)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("-",1))))||new_error){ +if(qbevent){evnt(26070,4720,"ide_methods.bas");if(r)goto S_41507;} +do{ +*_FUNC_IDE2_LONG_R=*_FUNC_IDE2_LONG_Y; +if(!qbevent)break;evnt(26070,4721,"ide_methods.bas");}while(r); +} +} +}else{ +S_41512:; +if ((-(*__LONG_MY== 1 ))||new_error){ +if(qbevent){evnt(26070,4725,"ide_methods.bas");if(r)goto S_41512;} +do{ +goto LABEL_CHECKMENUBARHOVER; +if(!qbevent)break;evnt(26070,4725,"ide_methods.bas");}while(r); +} +} +do{ +*_FUNC_IDE2_LONG_OLDMY=*__LONG_MY; +if(!qbevent)break;evnt(26070,4727,"ide_methods.bas");}while(r); +} +S_41518:; +if ((-(*_FUNC_IDE2_LONG_OLDMX!=*__LONG_MX))||new_error){ +if(qbevent){evnt(26070,4729,"ide_methods.bas");if(r)goto S_41518;} +LABEL_CHECKMENUBARHOVER:; +if(qbevent){evnt(26070,4730,"ide_methods.bas");r=0;} +S_41519:; +if (((-(*__LONG_IDEDEBUGMODE!= 2 ))&(-(*__LONG_MY== 1 ))&(-(*_FUNC_IDE2_LONG_IDECONTEXTUALMENU!= 1 )))||new_error){ +if(qbevent){evnt(26070,4731,"ide_methods.bas");if(r)goto S_41519;} +do{ +*_FUNC_IDE2_LONG_LASTM=*_FUNC_IDE2_LONG_M; +if(!qbevent)break;evnt(26070,4732,"ide_methods.bas");}while(r); +S_41521:; +fornext_value4472= 1 ; +fornext_finalvalue4472=*__INTEGER_MENUS; +fornext_step4472= 1 ; +if (fornext_step4472<0) fornext_step_negative4472=1; else fornext_step_negative4472=0; +if (new_error) goto fornext_error4472; +goto fornext_entrylabel4472; +while(1){ +fornext_value4472=fornext_step4472+(*_FUNC_IDE2_LONG_I); +fornext_entrylabel4472: +*_FUNC_IDE2_LONG_I=fornext_value4472; +if (fornext_step_negative4472){ +if (fornext_value4472fornext_finalvalue4472) break; +} +fornext_error4472:; +if(qbevent){evnt(26070,4733,"ide_methods.bas");if(r)goto S_41521;} +do{ +*_FUNC_IDE2_LONG_X=string2i(func_mid(_FUNC_IDE2_STRING_MENULOCATIONS,(*_FUNC_IDE2_LONG_I* 2 )-( 1 ), 2 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4734,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_X2=string2i(func_mid(_FUNC_IDE2_STRING_MENULOCATIONS,(*_FUNC_IDE2_LONG_I* 2 )-( 1 ), 2 ,0|1))+((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check(( 0 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]]))->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4735,"ide_methods.bas");}while(r); +S_41524:; +if (((-(*__LONG_MX>=*_FUNC_IDE2_LONG_X))&(-(*__LONG_MX<*_FUNC_IDE2_LONG_X2)))||new_error){ +if(qbevent){evnt(26070,4736,"ide_methods.bas");if(r)goto S_41524;} +do{ +*_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_I; +if(!qbevent)break;evnt(26070,4737,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_R= 1 ; +if(!qbevent)break;evnt(26070,4738,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_PARENTMENUR= 0 ; +if(!qbevent)break;evnt(26070,4739,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_PARENTMENU= 0 ; +if(!qbevent)break;evnt(26070,4740,"ide_methods.bas");}while(r); +S_41529:; +if ((-(*_FUNC_IDE2_LONG_IDECONTEXTUALMENU> 1 ))||new_error){ +if(qbevent){evnt(26070,4741,"ide_methods.bas");if(r)goto S_41529;} +do{ +*_FUNC_IDE2_LONG_IDECONTEXTUALMENU= 0 ; +if(!qbevent)break;evnt(26070,4741,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 2 ); +if(!qbevent)break;evnt(26070,4741,"ide_methods.bas");}while(r); +} +do{ +goto fornext_exit_4471; +if(!qbevent)break;evnt(26070,4742,"ide_methods.bas");}while(r); +} +fornext_continue_4471:; +} +fornext_exit_4471:; +} +do{ +*_FUNC_IDE2_LONG_OLDMX=*__LONG_MX; +if(!qbevent)break;evnt(26070,4746,"ide_methods.bas");}while(r); +} +} +S_41540:; +if ((*__LONG_MB)||new_error){ +if(qbevent){evnt(26070,4750,"ide_methods.bas");if(r)goto S_41540;} +S_41541:; +if (((-(*__LONG_MY== 1 ))&(-(*__LONG_IDEDEBUGMODE!= 2 )))||new_error){ +if(qbevent){evnt(26070,4753,"ide_methods.bas");if(r)goto S_41541;} +do{ +*_FUNC_IDE2_LONG_LASTM=*_FUNC_IDE2_LONG_M; +if(!qbevent)break;evnt(26070,4754,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_X= 3 ; +if(!qbevent)break;evnt(26070,4755,"ide_methods.bas");}while(r); +S_41544:; +fornext_value4475= 1 ; +fornext_finalvalue4475=*__INTEGER_MENUS; +fornext_step4475= 1 ; +if (fornext_step4475<0) fornext_step_negative4475=1; else fornext_step_negative4475=0; +if (new_error) goto fornext_error4475; +goto fornext_entrylabel4475; +while(1){ +fornext_value4475=fornext_step4475+(*_FUNC_IDE2_LONG_I); +fornext_entrylabel4475: +*_FUNC_IDE2_LONG_I=fornext_value4475; +if (fornext_step_negative4475){ +if (fornext_value4475fornext_finalvalue4475) break; +} +fornext_error4475:; +if(qbevent){evnt(26070,4756,"ide_methods.bas");if(r)goto S_41544;} +do{ +*_FUNC_IDE2_LONG_X2=((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check(( 0 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]]))->len+ 2 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4757,"ide_methods.bas");}while(r); +S_41546:; +if (((-(*__LONG_MX>=*_FUNC_IDE2_LONG_X))&(-(*__LONG_MX<(*_FUNC_IDE2_LONG_X+*_FUNC_IDE2_LONG_X2))))||new_error){ +if(qbevent){evnt(26070,4758,"ide_methods.bas");if(r)goto S_41546;} +do{ +*_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_I; +if(!qbevent)break;evnt(26070,4759,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_R= 1 ; +if(!qbevent)break;evnt(26070,4760,"ide_methods.bas");}while(r); +S_41549:; +if (((-(*_FUNC_IDE2_LONG_LASTM==*_FUNC_IDE2_LONG_M))&(-(*_FUNC_IDE2_LONG_MOUSEDOWN== 1 )))||new_error){ +if(qbevent){evnt(26070,4761,"ide_methods.bas");if(r)goto S_41549;} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,4761,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,4761,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,4761,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDE2_LONG_IDECONTEXTUALMENU= 0 ; +if(!qbevent)break;evnt(26070,4762,"ide_methods.bas");}while(r); +do{ +goto fornext_exit_4474; +if(!qbevent)break;evnt(26070,4763,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDE2_LONG_X=*_FUNC_IDE2_LONG_X+*_FUNC_IDE2_LONG_X2; +if(!qbevent)break;evnt(26070,4765,"ide_methods.bas");}while(r); +S_41558:; +if ((-(*_FUNC_IDE2_LONG_I==(*__INTEGER_MENUS- 1 )))||new_error){ +if(qbevent){evnt(26070,4766,"ide_methods.bas");if(r)goto S_41558;} +do{ +*_FUNC_IDE2_LONG_X=*__LONG_IDEWX-((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*__INTEGER_MENUS)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check(( 0 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]]))->len- 2 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4766,"ide_methods.bas");}while(r); +} +fornext_continue_4474:; +} +fornext_exit_4474:; +} +S_41563:; +if (((-(*__LONG_MX>=(*_FUNC_IDE2_LONG_XX- 2 )))&(-(*__LONG_MX<(*_FUNC_IDE2_LONG_XX- 2 +*_FUNC_IDE2_LONG_W+ 4 ))))||new_error){ +if(qbevent){evnt(26070,4771,"ide_methods.bas");if(r)goto S_41563;} +S_41564:; +if (((-(*__LONG_MY>*_FUNC_IDE2_LONG_YY))&(-(*__LONG_MY<=(((int32*)(__ARRAY_LONG_MENUSIZE[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5])]+*_FUNC_IDE2_LONG_YY))))||new_error){ +if(qbevent){evnt(26070,4772,"ide_methods.bas");if(r)goto S_41564;} +do{ +*_FUNC_IDE2_LONG_Y=*__LONG_MY-*_FUNC_IDE2_LONG_YY; +if(!qbevent)break;evnt(26070,4773,"ide_methods.bas");}while(r); +S_41566:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_Y)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("-",1))))||new_error){ +if(qbevent){evnt(26070,4774,"ide_methods.bas");if(r)goto S_41566;} +do{ +*_FUNC_IDE2_LONG_R=*_FUNC_IDE2_LONG_Y; +if(!qbevent)break;evnt(26070,4774,"ide_methods.bas");}while(r); +} +} +} +} +S_41572:; +if (((-(*__LONG_KB== 19200 ))&(-(*_FUNC_IDE2_LONG_IDECONTEXTUALMENU== 0 )))||new_error){ +if(qbevent){evnt(26070,4780,"ide_methods.bas");if(r)goto S_41572;} +do{ +*_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_M- 1 ; +if(!qbevent)break;evnt(26070,4781,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_R= 1 ; +if(!qbevent)break;evnt(26070,4781,"ide_methods.bas");}while(r); +S_41575:; +}else{ +if ((-(*__LONG_KB== 19200 ))&(-(*_FUNC_IDE2_LONG_IDECONTEXTUALMENU> 1 ))){ +if(qbevent){evnt(26070,4782,"ide_methods.bas");if(r)goto S_41575;} +do{ +*_FUNC_IDE2_LONG_IDECONTEXTUALMENU= 0 ; +if(!qbevent)break;evnt(26070,4783,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 2 ); +if(!qbevent)break;evnt(26070,4784,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_PARENTMENU; +if(!qbevent)break;evnt(26070,4785,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_R=*_FUNC_IDE2_LONG_PARENTMENUR; +if(!qbevent)break;evnt(26070,4786,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_PARENTMENU= 0 ; +if(!qbevent)break;evnt(26070,4787,"ide_methods.bas");}while(r); +} +} +S_41582:; +if (((-(*__LONG_KB== 19712 ))&(-(*_FUNC_IDE2_LONG_IDECONTEXTUALMENU== 0 )))||new_error){ +if(qbevent){evnt(26070,4789,"ide_methods.bas");if(r)goto S_41582;} +S_41583:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_R)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 1 ),func_chr( 16 ))))||new_error){ +if(qbevent){evnt(26070,4790,"ide_methods.bas");if(r)goto S_41583;} +S_41584:; +qbs_set(sc_4479,qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_R)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_R)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]]))->len- 3 )); +qbs_cleanup(qbs_tmp_base,0); +if(qbevent){evnt(26070,4791,"ide_methods.bas");if(r)goto S_41584;} +S_41585:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4479,qbs_new_txt_len("#Line Numbers",13))))||new_error){ +if(qbevent){evnt(26070,4792,"ide_methods.bas");if(r)goto S_41585;} +do{ +*_FUNC_IDE2_LONG_IDECONTEXTUALMENU= 2 ; +if(!qbevent)break;evnt(26070,4793,"ide_methods.bas");}while(r); +do{ +goto LABEL_SHOWMENU; +if(!qbevent)break;evnt(26070,4794,"ide_methods.bas");}while(r); +sc_ec_223_end:; +goto sc_4479_end; +} +S_41588:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_4479,qbs_new_txt_len("#Export As...",13))))||new_error){ +if(qbevent){evnt(26070,4795,"ide_methods.bas");if(r)goto S_41588;} +do{ +*_FUNC_IDE2_LONG_IDECONTEXTUALMENU= 3 ; +if(!qbevent)break;evnt(26070,4796,"ide_methods.bas");}while(r); +do{ +goto LABEL_SHOWMENU; +if(!qbevent)break;evnt(26070,4797,"ide_methods.bas");}while(r); +sc_ec_224_end:; +goto sc_4479_end; +} +sc_4479_end:; +}else{ +do{ +*_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_M+ 1 ; +if(!qbevent)break;evnt(26070,4800,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_R= 1 ; +if(!qbevent)break;evnt(26070,4800,"ide_methods.bas");}while(r); +} +S_41596:; +}else{ +if ((-(*__LONG_KB== 19712 ))&(-(*_FUNC_IDE2_LONG_IDECONTEXTUALMENU> 1 ))){ +if(qbevent){evnt(26070,4802,"ide_methods.bas");if(r)goto S_41596;} +do{ +*_FUNC_IDE2_LONG_IDECONTEXTUALMENU= 0 ; +if(!qbevent)break;evnt(26070,4803,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 2 ); +if(!qbevent)break;evnt(26070,4804,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_M=*_FUNC_IDE2_LONG_PARENTMENU+ 1 ; +if(!qbevent)break;evnt(26070,4805,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_R= 1 ; +if(!qbevent)break;evnt(26070,4806,"ide_methods.bas");}while(r); +} +} +S_41602:; +if ((-(*_FUNC_IDE2_LONG_M< 1 ))||new_error){ +if(qbevent){evnt(26070,4808,"ide_methods.bas");if(r)goto S_41602;} +do{ +*_FUNC_IDE2_LONG_M=*__INTEGER_MENUS; +if(!qbevent)break;evnt(26070,4808,"ide_methods.bas");}while(r); +} +S_41605:; +if (((-(*_FUNC_IDE2_LONG_M>*__INTEGER_MENUS))&(-(*_FUNC_IDE2_LONG_IDECONTEXTUALMENU== 0 )))||new_error){ +if(qbevent){evnt(26070,4809,"ide_methods.bas");if(r)goto S_41605;} +do{ +*_FUNC_IDE2_LONG_M= 1 ; +if(!qbevent)break;evnt(26070,4809,"ide_methods.bas");}while(r); +} +S_41608:; +if ((-(*__LONG_KB== 27 ))||new_error){ +if(qbevent){evnt(26070,4810,"ide_methods.bas");if(r)goto S_41608;} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,4811,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,4811,"ide_methods.bas");}while(r); +S_41611:; +if ((-(*__LONG_IDEDEBUGMODE== 2 ))||new_error){ +if(qbevent){evnt(26070,4812,"ide_methods.bas");if(r)goto S_41611;} +do{ +goto LABEL_ENTERDEBUGMODE; +if(!qbevent)break;evnt(26070,4812,"ide_methods.bas");}while(r); +} +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,4813,"ide_methods.bas");}while(r); +} +S_41616:; +if ((-(*__LONG_KB== 20480 ))||new_error){ +if(qbevent){evnt(26070,4815,"ide_methods.bas");if(r)goto S_41616;} +do{ +*_FUNC_IDE2_LONG_R=*_FUNC_IDE2_LONG_R+ 1 ; +if(!qbevent)break;evnt(26070,4816,"ide_methods.bas");}while(r); +S_41618:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_R)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("-",1))))||new_error){ +if(qbevent){evnt(26070,4817,"ide_methods.bas");if(r)goto S_41618;} +do{ +*_FUNC_IDE2_LONG_R=*_FUNC_IDE2_LONG_R+ 1 ; +if(!qbevent)break;evnt(26070,4817,"ide_methods.bas");}while(r); +} +S_41621:; +if ((-(*_FUNC_IDE2_LONG_R>((int32*)(__ARRAY_LONG_MENUSIZE[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5])]))||new_error){ +if(qbevent){evnt(26070,4818,"ide_methods.bas");if(r)goto S_41621;} +do{ +*_FUNC_IDE2_LONG_R= 1 ; +if(!qbevent)break;evnt(26070,4818,"ide_methods.bas");}while(r); +} +} +S_41625:; +if ((-(*__LONG_KB== 18432 ))||new_error){ +if(qbevent){evnt(26070,4821,"ide_methods.bas");if(r)goto S_41625;} +do{ +*_FUNC_IDE2_LONG_R=*_FUNC_IDE2_LONG_R- 1 ; +if(!qbevent)break;evnt(26070,4822,"ide_methods.bas");}while(r); +S_41627:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_R)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("-",1))))||new_error){ +if(qbevent){evnt(26070,4823,"ide_methods.bas");if(r)goto S_41627;} +do{ +*_FUNC_IDE2_LONG_R=*_FUNC_IDE2_LONG_R- 1 ; +if(!qbevent)break;evnt(26070,4823,"ide_methods.bas");}while(r); +} +S_41630:; +if ((-(*_FUNC_IDE2_LONG_R< 1 ))||new_error){ +if(qbevent){evnt(26070,4824,"ide_methods.bas");if(r)goto S_41630;} +do{ +*_FUNC_IDE2_LONG_R=((int32*)(__ARRAY_LONG_MENUSIZE[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5])]; +if(!qbevent)break;evnt(26070,4824,"ide_methods.bas");}while(r); +} +} +S_41634:; +if ((-(*__LONG_KB== 13 ))||new_error){ +if(qbevent){evnt(26070,4830,"ide_methods.bas");if(r)goto S_41634;} +S_41635:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_R)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 1 ),qbs_new_txt_len("~",1))))||new_error){ +if(qbevent){evnt(26070,4831,"ide_methods.bas");if(r)goto S_41635;} +do{ +*_FUNC_IDE2_LONG_S=*_FUNC_IDE2_LONG_R; +if(!qbevent)break;evnt(26070,4831,"ide_methods.bas");}while(r); +} +} +do{ +qbs_set(__STRING_K,qbs_ucase(__STRING_K)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4835,"ide_methods.bas");}while(r); +S_41640:; +if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_K->len> 0 ))&(~(*__LONG_KCTRL))))||new_error){ +if(qbevent){evnt(26070,4836,"ide_methods.bas");if(r)goto S_41640;} +S_41641:; +fornext_value4482= 1 ; +fornext_finalvalue4482=((int32*)(__ARRAY_LONG_MENUSIZE[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5])]; +fornext_step4482= 1 ; +if (fornext_step4482<0) fornext_step_negative4482=1; else fornext_step_negative4482=0; +if (new_error) goto fornext_error4482; +goto fornext_entrylabel4482; +while(1){ +fornext_value4482=fornext_step4482+(*_FUNC_IDE2_LONG_R2); +fornext_entrylabel4482: +*_FUNC_IDE2_LONG_R2=fornext_value4482; +if (fornext_step_negative4482){ +if (fornext_value4482fornext_finalvalue4482) break; +} +fornext_error4482:; +if(qbevent){evnt(26070,4837,"ide_methods.bas");if(r)goto S_41641;} +do{ +*_FUNC_IDE2_LONG_X=func_instr(NULL,((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_R2)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4838,"ide_methods.bas");}while(r); +S_41643:; +if ((*_FUNC_IDE2_LONG_X)||new_error){ +if(qbevent){evnt(26070,4839,"ide_methods.bas");if(r)goto S_41643;} +do{ +qbs_set(_FUNC_IDE2_STRING_A,qbs_ucase(func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_R2)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),*_FUNC_IDE2_LONG_X+ 1 , 1 ,0|1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4840,"ide_methods.bas");}while(r); +S_41645:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,_FUNC_IDE2_STRING_A))&(qbs_notequal(qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_R2)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 1 ),qbs_new_txt_len("~",1)))))||new_error){ +if(qbevent){evnt(26070,4841,"ide_methods.bas");if(r)goto S_41645;} +do{ +*_FUNC_IDE2_LONG_S=*_FUNC_IDE2_LONG_R2; +if(!qbevent)break;evnt(26070,4842,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_BYTE_UPDATEMENUPANEL= -1 ; +if(!qbevent)break;evnt(26070,4843,"ide_methods.bas");}while(r); +do{ +goto fornext_exit_4481; +if(!qbevent)break;evnt(26070,4844,"ide_methods.bas");}while(r); +S_41649:; +}else{ +if (qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,_FUNC_IDE2_STRING_A))&(qbs_equal(qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_R2)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 1 ),qbs_new_txt_len("~",1))))){ +if(qbevent){evnt(26070,4845,"ide_methods.bas");if(r)goto S_41649;} +do{ +*_FUNC_IDE2_BYTE_UPDATEMENUPANEL= -1 ; +if(!qbevent)break;evnt(26070,4846,"ide_methods.bas");}while(r); +do{ +goto fornext_exit_4481; +if(!qbevent)break;evnt(26070,4847,"ide_methods.bas");}while(r); +} +} +} +fornext_continue_4481:; +} +fornext_exit_4481:; +S_41655:; +if ((*_FUNC_IDE2_BYTE_UPDATEMENUPANEL)||new_error){ +if(qbevent){evnt(26070,4851,"ide_methods.bas");if(r)goto S_41655;} +do{ +*_FUNC_IDE2_LONG_R=*_FUNC_IDE2_LONG_R2; +if(!qbevent)break;evnt(26070,4851,"ide_methods.bas");}while(r); +do{ +goto dl_continue_4439; +if(!qbevent)break;evnt(26070,4851,"ide_methods.bas");}while(r); +} +} +S_41660:; +if ((*_FUNC_IDE2_LONG_S)||new_error){ +if(qbevent){evnt(26070,4854,"ide_methods.bas");if(r)goto S_41660;} +LABEL_MENUCHOICEMADE:; +if(qbevent){evnt(26070,4855,"ide_methods.bas");r=0;} +S_41661:; +if ((*__LONG_KALT)||new_error){ +if(qbevent){evnt(26070,4856,"ide_methods.bas");if(r)goto S_41661;} +do{ +*__LONG_IDEHL= 1 ; +if(!qbevent)break;evnt(26070,4856,"ide_methods.bas");}while(r); +}else{ +do{ +*__LONG_IDEHL= 0 ; +if(!qbevent)break;evnt(26070,4856,"ide_methods.bas");}while(r); +} +S_41666:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Add Co#mment (') Ctrl+R",24))))||new_error){ +if(qbevent){evnt(26070,4858,"ide_methods.bas");if(r)goto S_41666;} +LABEL_CTRLADDCOMMENT:; +if(qbevent){evnt(26070,4859,"ide_methods.bas");r=0;} +do{ +*_FUNC_IDE2_LONG_Y1=*__LONG_IDECY; +if(!qbevent)break;evnt(26070,4860,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_Y2=*_FUNC_IDE2_LONG_Y1; +if(!qbevent)break;evnt(26070,4860,"ide_methods.bas");}while(r); +S_41669:; +if ((-(*__LONG_IDESELECT== 1 ))||new_error){ +if(qbevent){evnt(26070,4861,"ide_methods.bas");if(r)goto S_41669;} +do{ +*_FUNC_IDE2_LONG_Y1=*__LONG_IDESELECTY1; +if(!qbevent)break;evnt(26070,4862,"ide_methods.bas");}while(r); +S_41671:; +if (((-(*__LONG_IDECY>*__LONG_IDESELECTY1))&(-(*__LONG_IDECX== 1 )))||new_error){ +if(qbevent){evnt(26070,4863,"ide_methods.bas");if(r)goto S_41671;} +do{ +*_FUNC_IDE2_LONG_Y2=*_FUNC_IDE2_LONG_Y2- 1 ; +if(!qbevent)break;evnt(26070,4863,"ide_methods.bas");}while(r); +} +S_41674:; +if ((-(*_FUNC_IDE2_LONG_Y1>*_FUNC_IDE2_LONG_Y2))||new_error){ +if(qbevent){evnt(26070,4864,"ide_methods.bas");if(r)goto S_41674;} +do{ +swap_32(&*_FUNC_IDE2_LONG_Y1,&*_FUNC_IDE2_LONG_Y2); +if(!qbevent)break;evnt(26070,4864,"ide_methods.bas");}while(r); +} +} +do{ +*_FUNC_IDE2_LONG_LHS= 10000000 ; +if(!qbevent)break;evnt(26070,4867,"ide_methods.bas");}while(r); +S_41679:; +fornext_value4484=*_FUNC_IDE2_LONG_Y1; +fornext_finalvalue4484=*_FUNC_IDE2_LONG_Y2; +fornext_step4484= 1 ; +if (fornext_step4484<0) fornext_step_negative4484=1; else fornext_step_negative4484=0; +if (new_error) goto fornext_error4484; +goto fornext_entrylabel4484; +while(1){ +fornext_value4484=fornext_step4484+(*_FUNC_IDE2_LONG_Y); +fornext_entrylabel4484: +*_FUNC_IDE2_LONG_Y=fornext_value4484; +if (fornext_step_negative4484){ +if (fornext_value4484fornext_finalvalue4484) break; +} +fornext_error4484:; +if(qbevent){evnt(26070,4868,"ide_methods.bas");if(r)goto S_41679;} +do{ +qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(_FUNC_IDE2_LONG_Y)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4869,"ide_methods.bas");}while(r); +S_41681:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_A->len))||new_error){ +if(qbevent){evnt(26070,4870,"ide_methods.bas");if(r)goto S_41681;} +do{ +qbs_set(_FUNC_IDE2_STRING_TA,qbs_ltrim(_FUNC_IDE2_STRING_A)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4871,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_T=_FUNC_IDE2_STRING_A->len-_FUNC_IDE2_STRING_TA->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4872,"ide_methods.bas");}while(r); +S_41684:; +if ((-(*_FUNC_IDE2_LONG_T<*_FUNC_IDE2_LONG_LHS))||new_error){ +if(qbevent){evnt(26070,4873,"ide_methods.bas");if(r)goto S_41684;} +do{ +*_FUNC_IDE2_LONG_LHS=*_FUNC_IDE2_LONG_T; +if(!qbevent)break;evnt(26070,4873,"ide_methods.bas");}while(r); +} +} +fornext_continue_4483:; +} +fornext_exit_4483:; +S_41689:; +fornext_value4489=*_FUNC_IDE2_LONG_Y1; +fornext_finalvalue4489=*_FUNC_IDE2_LONG_Y2; +fornext_step4489= 1 ; +if (fornext_step4489<0) fornext_step_negative4489=1; else fornext_step_negative4489=0; +if (new_error) goto fornext_error4489; +goto fornext_entrylabel4489; +while(1){ +fornext_value4489=fornext_step4489+(*_FUNC_IDE2_LONG_Y); +fornext_entrylabel4489: +*_FUNC_IDE2_LONG_Y=fornext_value4489; +if (fornext_step_negative4489){ +if (fornext_value4489fornext_finalvalue4489) break; +} +fornext_error4489:; +if(qbevent){evnt(26070,4877,"ide_methods.bas");if(r)goto S_41689;} +do{ +qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(_FUNC_IDE2_LONG_Y)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4878,"ide_methods.bas");}while(r); +S_41691:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_A->len))||new_error){ +if(qbevent){evnt(26070,4879,"ide_methods.bas");if(r)goto S_41691;} +do{ +qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(qbs_left(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_LHS),qbs_new_txt_len("'",1)),qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len-*_FUNC_IDE2_LONG_LHS))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4880,"ide_methods.bas");}while(r); +do{ +SUB_IDESETLINE(_FUNC_IDE2_LONG_Y,_FUNC_IDE2_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4881,"ide_methods.bas");}while(r); +do{ +*__INTEGER_IDECHANGEMADE= 1 ; +if(!qbevent)break;evnt(26070,4882,"ide_methods.bas");}while(r); +do{ +*__BYTE_STARTPAUSEDPENDING= 0 ; +if(!qbevent)break;evnt(26070,4883,"ide_methods.bas");}while(r); +} +fornext_continue_4488:; +} +fornext_exit_4488:; +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,4886,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,4886,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,4887,"ide_methods.bas");}while(r); +} +S_41702:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Remove Comme#nt (') Ctrl+Shift+R",33))))||new_error){ +if(qbevent){evnt(26070,4890,"ide_methods.bas");if(r)goto S_41702;} +LABEL_CTRLREMOVECOMMENT:; +if(qbevent){evnt(26070,4891,"ide_methods.bas");r=0;} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,4892,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,4892,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_Y1=*__LONG_IDECY; +if(!qbevent)break;evnt(26070,4893,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_Y2=*_FUNC_IDE2_LONG_Y1; +if(!qbevent)break;evnt(26070,4893,"ide_methods.bas");}while(r); +S_41707:; +if ((-(*__LONG_IDESELECT== 1 ))||new_error){ +if(qbevent){evnt(26070,4894,"ide_methods.bas");if(r)goto S_41707;} +do{ +*_FUNC_IDE2_LONG_Y1=*__LONG_IDESELECTY1; +if(!qbevent)break;evnt(26070,4895,"ide_methods.bas");}while(r); +S_41709:; +if (((-(*__LONG_IDECY>*__LONG_IDESELECTY1))&(-(*__LONG_IDECX== 1 )))||new_error){ +if(qbevent){evnt(26070,4896,"ide_methods.bas");if(r)goto S_41709;} +do{ +*_FUNC_IDE2_LONG_Y2=*_FUNC_IDE2_LONG_Y2- 1 ; +if(!qbevent)break;evnt(26070,4896,"ide_methods.bas");}while(r); +} +S_41712:; +if ((-(*_FUNC_IDE2_LONG_Y1>*_FUNC_IDE2_LONG_Y2))||new_error){ +if(qbevent){evnt(26070,4897,"ide_methods.bas");if(r)goto S_41712;} +do{ +swap_32(&*_FUNC_IDE2_LONG_Y1,&*_FUNC_IDE2_LONG_Y2); +if(!qbevent)break;evnt(26070,4897,"ide_methods.bas");}while(r); +} +} +S_41716:; +fornext_value4493=*_FUNC_IDE2_LONG_Y1; +fornext_finalvalue4493=*_FUNC_IDE2_LONG_Y2; +fornext_step4493= 1 ; +if (fornext_step4493<0) fornext_step_negative4493=1; else fornext_step_negative4493=0; +if (new_error) goto fornext_error4493; +goto fornext_entrylabel4493; +while(1){ +fornext_value4493=fornext_step4493+(*_FUNC_IDE2_LONG_Y); +fornext_entrylabel4493: +*_FUNC_IDE2_LONG_Y=fornext_value4493; +if (fornext_step_negative4493){ +if (fornext_value4493fornext_finalvalue4493) break; +} +fornext_error4493:; +if(qbevent){evnt(26070,4900,"ide_methods.bas");if(r)goto S_41716;} +do{ +qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(_FUNC_IDE2_LONG_Y)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4901,"ide_methods.bas");}while(r); +S_41718:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_A->len))||new_error){ +if(qbevent){evnt(26070,4902,"ide_methods.bas");if(r)goto S_41718;} +do{ +qbs_set(_FUNC_IDE2_STRING_A2,qbs_ltrim(_FUNC_IDE2_STRING_A)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4903,"ide_methods.bas");}while(r); +S_41720:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_A2->len))||new_error){ +if(qbevent){evnt(26070,4904,"ide_methods.bas");if(r)goto S_41720;} +S_41721:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_IDE2_STRING_A2, 1 )== 39 )))||new_error){ +if(qbevent){evnt(26070,4905,"ide_methods.bas");if(r)goto S_41721;} +do{ +qbs_set(_FUNC_IDE2_STRING_A,qbs_add(func_space(_FUNC_IDE2_STRING_A->len-_FUNC_IDE2_STRING_A2->len),qbs_right(_FUNC_IDE2_STRING_A2,_FUNC_IDE2_STRING_A2->len- 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4906,"ide_methods.bas");}while(r); +do{ +SUB_IDESETLINE(_FUNC_IDE2_LONG_Y,_FUNC_IDE2_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4907,"ide_methods.bas");}while(r); +do{ +*__INTEGER_IDECHANGEMADE= 1 ; +if(!qbevent)break;evnt(26070,4908,"ide_methods.bas");}while(r); +do{ +*__BYTE_STARTPAUSEDPENDING= 0 ; +if(!qbevent)break;evnt(26070,4909,"ide_methods.bas");}while(r); +} +} +} +fornext_continue_4492:; +} +fornext_exit_4492:; +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,4914,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,4914,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,4915,"ide_methods.bas");}while(r); +} +S_41734:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("To#ggle Comment Ctrl+T",23))))||new_error){ +if(qbevent){evnt(26070,4918,"ide_methods.bas");if(r)goto S_41734;} +LABEL_CTRLTOGGLECOMMENT:; +if(qbevent){evnt(26070,4919,"ide_methods.bas");r=0;} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,4920,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,4920,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_Y1=*__LONG_IDECY; +if(!qbevent)break;evnt(26070,4921,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_Y2=*_FUNC_IDE2_LONG_Y1; +if(!qbevent)break;evnt(26070,4921,"ide_methods.bas");}while(r); +S_41739:; +if ((-(*__LONG_IDESELECT== 1 ))||new_error){ +if(qbevent){evnt(26070,4922,"ide_methods.bas");if(r)goto S_41739;} +do{ +*_FUNC_IDE2_LONG_Y1=*__LONG_IDESELECTY1; +if(!qbevent)break;evnt(26070,4923,"ide_methods.bas");}while(r); +S_41741:; +if (((-(*__LONG_IDECY>*__LONG_IDESELECTY1))&(-(*__LONG_IDECX== 1 )))||new_error){ +if(qbevent){evnt(26070,4924,"ide_methods.bas");if(r)goto S_41741;} +do{ +*_FUNC_IDE2_LONG_Y2=*_FUNC_IDE2_LONG_Y2- 1 ; +if(!qbevent)break;evnt(26070,4924,"ide_methods.bas");}while(r); +} +S_41744:; +if ((-(*_FUNC_IDE2_LONG_Y1>*_FUNC_IDE2_LONG_Y2))||new_error){ +if(qbevent){evnt(26070,4925,"ide_methods.bas");if(r)goto S_41744;} +do{ +swap_32(&*_FUNC_IDE2_LONG_Y1,&*_FUNC_IDE2_LONG_Y2); +if(!qbevent)break;evnt(26070,4925,"ide_methods.bas");}while(r); +} +} +do{ +*_FUNC_IDE2_LONG_LHS= 10000000 ; +if(!qbevent)break;evnt(26070,4928,"ide_methods.bas");}while(r); +S_41749:; +fornext_value4500=*_FUNC_IDE2_LONG_Y1; +fornext_finalvalue4500=*_FUNC_IDE2_LONG_Y2; +fornext_step4500= 1 ; +if (fornext_step4500<0) fornext_step_negative4500=1; else fornext_step_negative4500=0; +if (new_error) goto fornext_error4500; +goto fornext_entrylabel4500; +while(1){ +fornext_value4500=fornext_step4500+(*_FUNC_IDE2_LONG_Y); +fornext_entrylabel4500: +*_FUNC_IDE2_LONG_Y=fornext_value4500; +if (fornext_step_negative4500){ +if (fornext_value4500fornext_finalvalue4500) break; +} +fornext_error4500:; +if(qbevent){evnt(26070,4929,"ide_methods.bas");if(r)goto S_41749;} +do{ +qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(_FUNC_IDE2_LONG_Y)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4930,"ide_methods.bas");}while(r); +S_41751:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_A->len))||new_error){ +if(qbevent){evnt(26070,4931,"ide_methods.bas");if(r)goto S_41751;} +do{ +qbs_set(_FUNC_IDE2_STRING_TA,qbs_ltrim(_FUNC_IDE2_STRING_A)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4932,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_T=_FUNC_IDE2_STRING_A->len-_FUNC_IDE2_STRING_TA->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4933,"ide_methods.bas");}while(r); +S_41754:; +if ((-(*_FUNC_IDE2_LONG_T<*_FUNC_IDE2_LONG_LHS))||new_error){ +if(qbevent){evnt(26070,4934,"ide_methods.bas");if(r)goto S_41754;} +do{ +*_FUNC_IDE2_LONG_LHS=*_FUNC_IDE2_LONG_T; +if(!qbevent)break;evnt(26070,4934,"ide_methods.bas");}while(r); +} +} +fornext_continue_4499:; +} +fornext_exit_4499:; +S_41759:; +fornext_value4505=*_FUNC_IDE2_LONG_Y1; +fornext_finalvalue4505=*_FUNC_IDE2_LONG_Y2; +fornext_step4505= 1 ; +if (fornext_step4505<0) fornext_step_negative4505=1; else fornext_step_negative4505=0; +if (new_error) goto fornext_error4505; +goto fornext_entrylabel4505; +while(1){ +fornext_value4505=fornext_step4505+(*_FUNC_IDE2_LONG_Y); +fornext_entrylabel4505: +*_FUNC_IDE2_LONG_Y=fornext_value4505; +if (fornext_step_negative4505){ +if (fornext_value4505fornext_finalvalue4505) break; +} +fornext_error4505:; +if(qbevent){evnt(26070,4938,"ide_methods.bas");if(r)goto S_41759;} +do{ +qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(_FUNC_IDE2_LONG_Y)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4939,"ide_methods.bas");}while(r); +S_41761:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_A->len))||new_error){ +if(qbevent){evnt(26070,4940,"ide_methods.bas");if(r)goto S_41761;} +do{ +qbs_set(_FUNC_IDE2_STRING_A2,qbs_ltrim(_FUNC_IDE2_STRING_A)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4941,"ide_methods.bas");}while(r); +S_41763:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_A2->len))||new_error){ +if(qbevent){evnt(26070,4942,"ide_methods.bas");if(r)goto S_41763;} +S_41764:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_IDE2_STRING_A2, 1 )== 39 )))||new_error){ +if(qbevent){evnt(26070,4943,"ide_methods.bas");if(r)goto S_41764;} +do{ +qbs_set(_FUNC_IDE2_STRING_A,qbs_add(func_space(_FUNC_IDE2_STRING_A->len-_FUNC_IDE2_STRING_A2->len),qbs_right(_FUNC_IDE2_STRING_A2,_FUNC_IDE2_STRING_A2->len- 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4944,"ide_methods.bas");}while(r); +do{ +SUB_IDESETLINE(_FUNC_IDE2_LONG_Y,_FUNC_IDE2_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4945,"ide_methods.bas");}while(r); +do{ +*__INTEGER_IDECHANGEMADE= 1 ; +if(!qbevent)break;evnt(26070,4946,"ide_methods.bas");}while(r); +do{ +*__BYTE_STARTPAUSEDPENDING= 0 ; +if(!qbevent)break;evnt(26070,4947,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDE2_STRING_A,qbs_add(qbs_add(qbs_left(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_LHS),qbs_new_txt_len("'",1)),qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len-*_FUNC_IDE2_LONG_LHS))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4949,"ide_methods.bas");}while(r); +do{ +SUB_IDESETLINE(_FUNC_IDE2_LONG_Y,_FUNC_IDE2_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4950,"ide_methods.bas");}while(r); +do{ +*__INTEGER_IDECHANGEMADE= 1 ; +if(!qbevent)break;evnt(26070,4951,"ide_methods.bas");}while(r); +do{ +*__BYTE_STARTPAUSEDPENDING= 0 ; +if(!qbevent)break;evnt(26070,4952,"ide_methods.bas");}while(r); +} +} +} +fornext_continue_4504:; +} +fornext_exit_4504:; +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,4957,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,4957,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,4958,"ide_methods.bas");}while(r); +} +S_41782:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Increase Indent TAB",21))))||new_error){ +if(qbevent){evnt(26070,4961,"ide_methods.bas");if(r)goto S_41782;} +S_41783:; +if ((*__LONG_IDESELECT)||new_error){ +if(qbevent){evnt(26070,4962,"ide_methods.bas");if(r)goto S_41783;} +do{ +goto LABEL_IDEBLOCKINCREASEINDENT; +if(!qbevent)break;evnt(26070,4962,"ide_methods.bas");}while(r); +} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,4963,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,4963,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,4964,"ide_methods.bas");}while(r); +} +S_41790:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 16 ),qbs_new_txt_len("#Decrease Indent",16))))||new_error){ +if(qbevent){evnt(26070,4967,"ide_methods.bas");if(r)goto S_41790;} +S_41791:; +if ((*__LONG_IDESELECT)||new_error){ +if(qbevent){evnt(26070,4968,"ide_methods.bas");if(r)goto S_41791;} +do{ +goto LABEL_IDEBLOCKDECREASEINDENT; +if(!qbevent)break;evnt(26070,4968,"ide_methods.bas");}while(r); +} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,4969,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,4969,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,4970,"ide_methods.bas");}while(r); +} +S_41798:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Language...",12))))||new_error){ +if(qbevent){evnt(26070,4973,"ide_methods.bas");if(r)goto S_41798;} +do{ +sub_pcopy( 2 , 0 ); +if(!qbevent)break;evnt(26070,4974,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_RETVAL=FUNC_IDELANGUAGEBOX(); +if(!qbevent)break;evnt(26070,4975,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,4976,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,4976,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,4977,"ide_methods.bas");}while(r); +} +S_41805:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Display...",11))))||new_error){ +if(qbevent){evnt(26070,4980,"ide_methods.bas");if(r)goto S_41805;} +do{ +sub_pcopy( 2 , 0 ); +if(!qbevent)break;evnt(26070,4981,"ide_methods.bas");}while(r); +S_41807:; +if ((-(*__LONG_IDEHELP== 0 ))||new_error){ +if(qbevent){evnt(26070,4982,"ide_methods.bas");if(r)goto S_41807;} +do{ +*_FUNC_IDE2_LONG_RETVAL=FUNC_IDEDISPLAYBOX(); +if(!qbevent)break;evnt(26070,4983,"ide_methods.bas");}while(r); +S_41809:; +if ((-(*_FUNC_IDE2_LONG_RETVAL== 1 ))||new_error){ +if(qbevent){evnt(26070,4984,"ide_methods.bas");if(r)goto S_41809;} +do{ +qbsub_width(NULL,*__LONG_IDEWX,*__LONG_IDEWY+*__LONG_IDESUBWINDOW,NULL,NULL,3); +if(!qbevent)break;evnt(26070,4986,"ide_methods.bas");}while(r); +S_41811:; +if ((*__LONG_IDECUSTOMFONT)||new_error){ +if(qbevent){evnt(26070,4987,"ide_methods.bas");if(r)goto S_41811;} +do{ +sub__font(*__LONG_IDECUSTOMFONTHANDLE,NULL,0); +if(!qbevent)break;evnt(26070,4988,"ide_methods.bas");}while(r); +}else{ +S_41814:; +if ((*__BYTE_IDE_USEFONT8)||new_error){ +if(qbevent){evnt(26070,4990,"ide_methods.bas");if(r)goto S_41814;} +do{ +sub__font( 8 ,NULL,0); +if(!qbevent)break;evnt(26070,4990,"ide_methods.bas");}while(r); +}else{ +do{ +sub__font( 16 ,NULL,0); +if(!qbevent)break;evnt(26070,4990,"ide_methods.bas");}while(r); +} +} +do{ +*_FUNC_IDE2_LONG_SKIPDISPLAY= 0 ; +if(!qbevent)break;evnt(26070,4992,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=47; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_REDRAWITALL; +RETURN_47:; +if(!qbevent)break;evnt(26070,4993,"ide_methods.bas");}while(r); +} +} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,4996,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,4996,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,4997,"ide_methods.bas");}while(r); +} +S_41828:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("IDE C#olors...",14))))||new_error){ +if(qbevent){evnt(26070,5000,"ide_methods.bas");if(r)goto S_41828;} +do{ +sub_pcopy( 2 , 0 ); +if(!qbevent)break;evnt(26070,5001,"ide_methods.bas");}while(r); +do{ +SUB_HIDEBRACKETHIGHLIGHT(); +if(!qbevent)break;evnt(26070,5002,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_RETVAL=FUNC_IDECHOOSECOLORSBOX(); +if(!qbevent)break;evnt(26070,5003,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,5004,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,5004,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,5005,"ide_methods.bas");}while(r); +} +S_41836:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#RGB Color Mixer...",19))))||new_error){ +if(qbevent){evnt(26070,5008,"ide_methods.bas");if(r)goto S_41836;} +do{ +sub_pcopy( 2 , 0 ); +if(!qbevent)break;evnt(26070,5009,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_OLDKEYWORDHIGHLIGHT=*__INTEGER_KEYWORDHIGHLIGHT; +if(!qbevent)break;evnt(26070,5010,"ide_methods.bas");}while(r); +do{ +*__INTEGER_KEYWORDHIGHLIGHT= 0 ; +if(!qbevent)break;evnt(26070,5011,"ide_methods.bas");}while(r); +do{ +SUB_HIDEBRACKETHIGHLIGHT(); +if(!qbevent)break;evnt(26070,5012,"ide_methods.bas");}while(r); +do{ +*__INTEGER_KEYWORDHIGHLIGHT=*_FUNC_IDE2_LONG_OLDKEYWORDHIGHLIGHT; +if(!qbevent)break;evnt(26070,5013,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_RETVAL,FUNC_IDERGBMIXER(&(pass4512= -1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5014,"ide_methods.bas");}while(r); +S_41843:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_RETVAL->len))||new_error){ +if(qbevent){evnt(26070,5015,"ide_methods.bas");if(r)goto S_41843;} +do{ +SUB_INSERTATCURSOR(_FUNC_IDE2_STRING_RETVAL); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5015,"ide_methods.bas");}while(r); +} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,5016,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,5016,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,5017,"ide_methods.bas");}while(r); +} +S_41850:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Purge C++ #Libraries",20))))||new_error){ +if(qbevent){evnt(26070,5020,"ide_methods.bas");if(r)goto S_41850;} +do{ +sub_pcopy( 2 , 0 ); +if(!qbevent)break;evnt(26070,5021,"ide_methods.bas");}while(r); +do{ +SUB_PURGETEMPORARYBUILDFILES(__STRING_OS,&(pass4514=*__LONG_MACOSX)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5022,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,5023,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,5023,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,5024,"ide_methods.bas");}while(r); +} +S_41857:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 19 ),qbs_new_txt_len("#Swap Mouse Buttons",19))))||new_error){ +if(qbevent){evnt(26070,5028,"ide_methods.bas");if(r)goto S_41857;} +do{ +sub_pcopy( 2 , 0 ); +if(!qbevent)break;evnt(26070,5029,"ide_methods.bas");}while(r); +do{ +*__BYTE_MOUSEBUTTONSWAPPED=~(*__BYTE_MOUSEBUTTONSWAPPED); +if(!qbevent)break;evnt(26070,5030,"ide_methods.bas");}while(r); +S_41860:; +if ((*__BYTE_MOUSEBUTTONSWAPPED)||new_error){ +if(qbevent){evnt(26070,5031,"ide_methods.bas");if(r)goto S_41860;} +do{ +SUB_WRITECONFIGSETTING(__STRING_MOUSESETTINGSSECTION,qbs_new_txt_len("SwapMouseButton",15),qbs_new_txt_len("True",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5032,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*__INTEGER_OPTIONSMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_OPTIONSMENUSWAPMOUSE)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(func_chr( 7 ),qbs_new_txt_len("#Swap Mouse Buttons",19))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5033,"ide_methods.bas");}while(r); +}else{ +do{ +SUB_WRITECONFIGSETTING(__STRING_MOUSESETTINGSSECTION,qbs_new_txt_len("SwapMouseButton",15),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5035,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*__INTEGER_OPTIONSMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_OPTIONSMENUSWAPMOUSE)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Swap Mouse Buttons",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5036,"ide_methods.bas");}while(r); +} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,5038,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,5038,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,5039,"ide_methods.bas");}while(r); +} +S_41871:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 19 ),qbs_new_txt_len("Syntax #Highlighter",19))))||new_error){ +if(qbevent){evnt(26070,5042,"ide_methods.bas");if(r)goto S_41871;} +do{ +sub_pcopy( 2 , 0 ); +if(!qbevent)break;evnt(26070,5043,"ide_methods.bas");}while(r); +do{ +*__BYTE_DISABLESYNTAXHIGHLIGHTER=~(*__BYTE_DISABLESYNTAXHIGHLIGHTER); +if(!qbevent)break;evnt(26070,5044,"ide_methods.bas");}while(r); +S_41874:; +if ((*__BYTE_DISABLESYNTAXHIGHLIGHTER)||new_error){ +if(qbevent){evnt(26070,5045,"ide_methods.bas");if(r)goto S_41874;} +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("DisableSyntaxHighlighter",24),qbs_new_txt_len("True",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5046,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*__INTEGER_OPTIONSMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_OPTIONSMENUDISABLESYNTAX)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Syntax #Highlighter",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5047,"ide_methods.bas");}while(r); +}else{ +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("DisableSyntaxHighlighter",24),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5049,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*__INTEGER_OPTIONSMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_OPTIONSMENUDISABLESYNTAX)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(func_chr( 7 ),qbs_new_txt_len("Syntax #Highlighter",19))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5050,"ide_methods.bas");}while(r); +} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,5052,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,5052,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,5053,"ide_methods.bas");}while(r); +} +S_41885:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 19 ),qbs_new_txt_len("Cursor After #Paste",19))))||new_error){ +if(qbevent){evnt(26070,5056,"ide_methods.bas");if(r)goto S_41885;} +do{ +sub_pcopy( 2 , 0 ); +if(!qbevent)break;evnt(26070,5057,"ide_methods.bas");}while(r); +do{ +*__BYTE_PASTECURSORATEND=~(*__BYTE_PASTECURSORATEND); +if(!qbevent)break;evnt(26070,5058,"ide_methods.bas");}while(r); +S_41888:; +if ((*__BYTE_PASTECURSORATEND)||new_error){ +if(qbevent){evnt(26070,5059,"ide_methods.bas");if(r)goto S_41888;} +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("PasteCursorAtEnd",16),qbs_new_txt_len("True",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5060,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*__INTEGER_OPTIONSMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_OPTIONSMENUPASTECURSOR)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(func_chr( 7 ),qbs_new_txt_len("Cursor After #Paste",19))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5061,"ide_methods.bas");}while(r); +}else{ +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("PasteCursorAtEnd",16),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5063,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*__INTEGER_OPTIONSMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_OPTIONSMENUPASTECURSOR)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Cursor After #Paste",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5064,"ide_methods.bas");}while(r); +} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,5066,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,5066,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,5067,"ide_methods.bas");}while(r); +} +S_41899:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 15 ),qbs_new_txt_len("Syntax Ch#ecker",15))))||new_error){ +if(qbevent){evnt(26070,5070,"ide_methods.bas");if(r)goto S_41899;} +do{ +sub_pcopy( 2 , 0 ); +if(!qbevent)break;evnt(26070,5071,"ide_methods.bas");}while(r); +do{ +*__BYTE_IDESHOWERRORSIMMEDIATELY=~(*__BYTE_IDESHOWERRORSIMMEDIATELY); +if(!qbevent)break;evnt(26070,5072,"ide_methods.bas");}while(r); +S_41902:; +if ((*__BYTE_IDESHOWERRORSIMMEDIATELY)||new_error){ +if(qbevent){evnt(26070,5073,"ide_methods.bas");if(r)goto S_41902;} +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("ShowErrorsImmediately",21),qbs_new_txt_len("True",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5074,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*__INTEGER_OPTIONSMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_OPTIONSMENUSHOWERRORSIMMEDIATELY)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(func_chr( 7 ),qbs_new_txt_len("Syntax Ch#ecker",15))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5075,"ide_methods.bas");}while(r); +}else{ +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("ShowErrorsImmediately",21),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5077,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*__INTEGER_OPTIONSMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_OPTIONSMENUSHOWERRORSIMMEDIATELY)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Syntax Ch#ecker",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5078,"ide_methods.bas");}while(r); +} +do{ +*__INTEGER_IDECHANGEMADE= 1 ; +if(!qbevent)break;evnt(26070,5080,"ide_methods.bas");}while(r); +do{ +*__BYTE_STARTPAUSEDPENDING= 0 ; +if(!qbevent)break;evnt(26070,5081,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,5082,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,5082,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,5083,"ide_methods.bas");}while(r); +} +S_41915:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 16 ),qbs_new_txt_len("Ignore #Warnings",16))))||new_error){ +if(qbevent){evnt(26070,5086,"ide_methods.bas");if(r)goto S_41915;} +do{ +sub_pcopy( 2 , 0 ); +if(!qbevent)break;evnt(26070,5087,"ide_methods.bas");}while(r); +S_41917:; +if ((-(*__BYTE_IGNOREWARNINGS== 0 ))||new_error){ +if(qbevent){evnt(26070,5088,"ide_methods.bas");if(r)goto S_41917;} +do{ +*__BYTE_IGNOREWARNINGS= -1 ; +if(!qbevent)break;evnt(26070,5089,"ide_methods.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("IgnoreWarnings",14),qbs_new_txt_len("True",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5090,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*__INTEGER_OPTIONSMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_OPTIONSMENUIGNOREWARNINGS)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(func_chr( 7 ),qbs_new_txt_len("Ignore #Warnings",16))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5091,"ide_methods.bas");}while(r); +}else{ +do{ +*__BYTE_IGNOREWARNINGS= 0 ; +if(!qbevent)break;evnt(26070,5093,"ide_methods.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("IgnoreWarnings",14),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5094,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*__INTEGER_OPTIONSMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_OPTIONSMENUIGNOREWARNINGS)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Ignore #Warnings",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5095,"ide_methods.bas");}while(r); +} +do{ +*__INTEGER_IDECHANGEMADE= 1 ; +if(!qbevent)break;evnt(26070,5097,"ide_methods.bas");}while(r); +do{ +*__BYTE_STARTPAUSEDPENDING= 0 ; +if(!qbevent)break;evnt(26070,5098,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,5099,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,5099,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,5100,"ide_methods.bas");}while(r); +} +S_41932:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 11 ),qbs_new_txt_len("GUI Dialogs",11))))||new_error){ +if(qbevent){evnt(26070,5103,"ide_methods.bas");if(r)goto S_41932;} +do{ +sub_pcopy( 2 , 0 ); +if(!qbevent)break;evnt(26070,5104,"ide_methods.bas");}while(r); +do{ +*__ULONG_USEGUIDIALOGS=~(*__ULONG_USEGUIDIALOGS); +if(!qbevent)break;evnt(26070,5105,"ide_methods.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("UseGuiDialogs",13),FUNC_BOOLTOTFSTRING((int32*)__ULONG_USEGUIDIALOGS)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5106,"ide_methods.bas");}while(r); +S_41936:; +if ((*__ULONG_USEGUIDIALOGS)||new_error){ +if(qbevent){evnt(26070,5108,"ide_methods.bas");if(r)goto S_41936;} +do{ +tmp_long=array_check((*__INTEGER_OPTIONSMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_OPTIONSMENUGUIDIALOGS)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(func_chr( 7 ),qbs_new_txt_len("GUI Dialogs",11))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5109,"ide_methods.bas");}while(r); +}else{ +do{ +tmp_long=array_check((*__INTEGER_OPTIONSMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_OPTIONSMENUGUIDIALOGS)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("GUI Dialogs",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5111,"ide_methods.bas");}while(r); +} +do{ +*__INTEGER_IDECHANGEMADE= 1 ; +if(!qbevent)break;evnt(26070,5114,"ide_methods.bas");}while(r); +do{ +*__BYTE_STARTPAUSEDPENDING= 0 ; +if(!qbevent)break;evnt(26070,5115,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,5116,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,5116,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,5117,"ide_methods.bas");}while(r); +} +S_41947:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 28 ),qbs_new_txt_len("Output EXE to Source #Folder",28))))||new_error){ +if(qbevent){evnt(26070,5123,"ide_methods.bas");if(r)goto S_41947;} +do{ +sub_pcopy( 2 , 0 ); +if(!qbevent)break;evnt(26070,5124,"ide_methods.bas");}while(r); +do{ +*__BYTE_SAVEEXEWITHSOURCE=~(*__BYTE_SAVEEXEWITHSOURCE); +if(!qbevent)break;evnt(26070,5125,"ide_methods.bas");}while(r); +S_41950:; +if ((*__BYTE_SAVEEXEWITHSOURCE)||new_error){ +if(qbevent){evnt(26070,5126,"ide_methods.bas");if(r)goto S_41950;} +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("SaveExeWithSource",17),qbs_new_txt_len("True",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5127,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*__INTEGER_RUNMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_RUNMENUSAVEEXEWITHSOURCE)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(func_chr( 7 ),qbs_new_txt_len("Output EXE to Source #Folder",28))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5128,"ide_methods.bas");}while(r); +}else{ +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("SaveExeWithSource",17),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5130,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*__INTEGER_RUNMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_RUNMENUSAVEEXEWITHSOURCE)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Output EXE to Source #Folder",28)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5131,"ide_methods.bas");}while(r); +} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,5133,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,5133,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECOMPILED= 0 ; +if(!qbevent)break;evnt(26070,5134,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,5135,"ide_methods.bas");}while(r); +} +S_41962:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 1 ,NULL,0),qbs_new_txt_len("#Generate License For EXE",25)))|(qbs_equal(func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 2 ,NULL,0),qbs_new_txt_len("#Generate License For EXE",25)))))||new_error){ +if(qbevent){evnt(26070,5138,"ide_methods.bas");if(r)goto S_41962;} +do{ +sub_pcopy( 2 , 0 ); +if(!qbevent)break;evnt(26070,5139,"ide_methods.bas");}while(r); +do{ +*__ULONG_GENERATELICENSEFILE=~(*__ULONG_GENERATELICENSEFILE); +if(!qbevent)break;evnt(26070,5140,"ide_methods.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_COMPILERSETTINGSSECTION,qbs_new_txt_len("GenerateLicenseFile",19),FUNC_BOOLTOTFSTRING((int32*)__ULONG_GENERATELICENSEFILE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5141,"ide_methods.bas");}while(r); +S_41966:; +if ((*__ULONG_GENERATELICENSEFILE)||new_error){ +if(qbevent){evnt(26070,5143,"ide_methods.bas");if(r)goto S_41966;} +do{ +tmp_long=array_check((*__INTEGER_RUNMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_GENERATELICENSEENABLEMENU)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(func_chr( 7 ),qbs_new_txt_len("#Generate License For EXE",25))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5144,"ide_methods.bas");}while(r); +}else{ +do{ +tmp_long=array_check((*__INTEGER_RUNMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_GENERATELICENSEENABLEMENU)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Generate License For EXE",25)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5146,"ide_methods.bas");}while(r); +} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,5149,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,5149,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,5150,"ide_methods.bas");}while(r); +} +S_41975:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 29 ),qbs_new_txt_len("#Output Watch List to Console",29))))||new_error){ +if(qbevent){evnt(26070,5153,"ide_methods.bas");if(r)goto S_41975;} +do{ +sub_pcopy( 2 , 0 ); +if(!qbevent)break;evnt(26070,5154,"ide_methods.bas");}while(r); +do{ +*__BYTE_WATCHLISTTOCONSOLE=~(*__BYTE_WATCHLISTTOCONSOLE); +if(!qbevent)break;evnt(26070,5155,"ide_methods.bas");}while(r); +S_41978:; +if ((*__BYTE_WATCHLISTTOCONSOLE)||new_error){ +if(qbevent){evnt(26070,5156,"ide_methods.bas");if(r)goto S_41978;} +do{ +SUB_WRITECONFIGSETTING(__STRING_DEBUGSETTINGSSECTION,qbs_new_txt_len("WatchListToConsole",18),qbs_new_txt_len("True",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5157,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*__INTEGER_DEBUGMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_DEBUGMENUWATCHLISTTOCONSOLE)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(func_chr( 7 ),qbs_new_txt_len("#Output Watch List to Console",29))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5158,"ide_methods.bas");}while(r); +}else{ +do{ +SUB_WRITECONFIGSETTING(__STRING_DEBUGSETTINGSSECTION,qbs_new_txt_len("WatchListToConsole",18),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5160,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*__INTEGER_DEBUGMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_DEBUGMENUWATCHLISTTOCONSOLE)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Output Watch List to Console",29)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5161,"ide_methods.bas");}while(r); +} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,5163,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,5163,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,5164,"ide_methods.bas");}while(r); +} +S_41989:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 28 ),qbs_new_txt_len("Auto-add $#Debug Metacommand",28))))||new_error){ +if(qbevent){evnt(26070,5167,"ide_methods.bas");if(r)goto S_41989;} +do{ +sub_pcopy( 2 , 0 ); +if(!qbevent)break;evnt(26070,5168,"ide_methods.bas");}while(r); +do{ +*__BYTE_AUTOADDDEBUGCOMMAND=~(*__BYTE_AUTOADDDEBUGCOMMAND); +if(!qbevent)break;evnt(26070,5169,"ide_methods.bas");}while(r); +S_41992:; +if ((*__BYTE_AUTOADDDEBUGCOMMAND)||new_error){ +if(qbevent){evnt(26070,5170,"ide_methods.bas");if(r)goto S_41992;} +do{ +SUB_WRITECONFIGSETTING(__STRING_DEBUGSETTINGSSECTION,qbs_new_txt_len("AutoAddDebugCommand",19),qbs_new_txt_len("True",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5171,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*__INTEGER_DEBUGMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_DEBUGMENUAUTOADDCOMMAND)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(func_chr( 7 ),qbs_new_txt_len("Auto-add $#Debug Metacommand",28))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5172,"ide_methods.bas");}while(r); +}else{ +do{ +SUB_WRITECONFIGSETTING(__STRING_DEBUGSETTINGSSECTION,qbs_new_txt_len("AutoAddDebugCommand",19),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5174,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*__INTEGER_DEBUGMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_DEBUGMENUAUTOADDCOMMAND)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Auto-add $#Debug Metacommand",28)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5175,"ide_methods.bas");}while(r); +} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,5177,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,5177,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,5178,"ide_methods.bas");}while(r); +} +S_42003:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 1 , 17 ,0|1),qbs_new_txt_len("#Quick Navigation",17)))|(qbs_equal(func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 2 , 17 ,0|1),qbs_new_txt_len("#Quick Navigation",17)))))||new_error){ +if(qbevent){evnt(26070,5181,"ide_methods.bas");if(r)goto S_42003;} +do{ +sub_pcopy( 2 , 0 ); +if(!qbevent)break;evnt(26070,5182,"ide_methods.bas");}while(r); +do{ +*__BYTE_ENABLEQUICKNAV=~(*__BYTE_ENABLEQUICKNAV); +if(!qbevent)break;evnt(26070,5183,"ide_methods.bas");}while(r); +S_42006:; +if ((*__BYTE_ENABLEQUICKNAV)||new_error){ +if(qbevent){evnt(26070,5184,"ide_methods.bas");if(r)goto S_42006;} +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("EnableQuickNav",14),qbs_new_txt_len("True",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5185,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*__INTEGER_SEARCHMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_SEARCHMENUENABLEQUICKNAV)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(func_chr( 7 ),qbs_new_txt_len("#Quick Navigation",17))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5186,"ide_methods.bas");}while(r); +}else{ +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("EnableQuickNav",14),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5188,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*__INTEGER_SEARCHMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_SEARCHMENUENABLEQUICKNAV)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Quick Navigation",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5189,"ide_methods.bas");}while(r); +} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,5191,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,5191,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,5192,"ide_methods.bas");}while(r); +} +S_42017:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Code Layout...",15))))||new_error){ +if(qbevent){evnt(26070,5195,"ide_methods.bas");if(r)goto S_42017;} +do{ +sub_pcopy( 2 , 0 ); +if(!qbevent)break;evnt(26070,5196,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_RETVAL=FUNC_IDELAYOUTBOX(); +if(!qbevent)break;evnt(26070,5197,"ide_methods.bas");}while(r); +S_42020:; +if ((*_FUNC_IDE2_LONG_RETVAL)||new_error){ +if(qbevent){evnt(26070,5198,"ide_methods.bas");if(r)goto S_42020;} +do{ +*__INTEGER_IDECHANGEMADE= 1 ; +if(!qbevent)break;evnt(26070,5198,"ide_methods.bas");}while(r); +do{ +*__LONG_IDELAYOUTALLOW= 2 ; +if(!qbevent)break;evnt(26070,5198,"ide_methods.bas");}while(r); +do{ +*__BYTE_STARTPAUSEDPENDING= 0 ; +if(!qbevent)break;evnt(26070,5198,"ide_methods.bas");}while(r); +} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,5199,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,5199,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,5200,"ide_methods.bas");}while(r); +} +S_42029:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Co#mpiler Settings...",21))))||new_error){ +if(qbevent){evnt(26070,5203,"ide_methods.bas");if(r)goto S_42029;} +do{ +sub_pcopy( 2 , 0 ); +if(!qbevent)break;evnt(26070,5204,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_RETVAL=FUNC_IDECOMPILERSETTINGSBOX(); +if(!qbevent)break;evnt(26070,5205,"ide_methods.bas");}while(r); +S_42032:; +if ((*_FUNC_IDE2_LONG_RETVAL)||new_error){ +if(qbevent){evnt(26070,5206,"ide_methods.bas");if(r)goto S_42032;} +do{ +*__INTEGER_IDECHANGEMADE= 1 ; +if(!qbevent)break;evnt(26070,5206,"ide_methods.bas");}while(r); +do{ +*__LONG_IDELAYOUTALLOW= 2 ; +if(!qbevent)break;evnt(26070,5206,"ide_methods.bas");}while(r); +do{ +*__BYTE_STARTPAUSEDPENDING= 0 ; +if(!qbevent)break;evnt(26070,5206,"ide_methods.bas");}while(r); +} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,5207,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,5207,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,5208,"ide_methods.bas");}while(r); +} +S_42041:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Add/Remove #Bookmark Alt+Left",30))))||new_error){ +if(qbevent){evnt(26070,5211,"ide_methods.bas");if(r)goto S_42041;} +do{ +sub_pcopy( 2 , 0 ); +if(!qbevent)break;evnt(26070,5212,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_BMKREMOVED= 0 ; +if(!qbevent)break;evnt(26070,5213,"ide_methods.bas");}while(r); +LABEL_BMKREMOVEB:; +if(qbevent){evnt(26070,5214,"ide_methods.bas");r=0;} +S_42044:; +fornext_value4516= 1 ; +fornext_finalvalue4516=*__LONG_IDEBMKN; +fornext_step4516= 1 ; +if (fornext_step4516<0) fornext_step_negative4516=1; else fornext_step_negative4516=0; +if (new_error) goto fornext_error4516; +goto fornext_entrylabel4516; +while(1){ +fornext_value4516=fornext_step4516+(*_FUNC_IDE2_LONG_B); +fornext_entrylabel4516: +*_FUNC_IDE2_LONG_B=fornext_value4516; +if (fornext_step_negative4516){ +if (fornext_value4516fornext_finalvalue4516) break; +} +fornext_error4516:; +if(qbevent){evnt(26070,5215,"ide_methods.bas");if(r)goto S_42044;} +S_42045:; +if ((-(*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_FUNC_IDE2_LONG_B)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16))==*__LONG_IDECY))||new_error){ +if(qbevent){evnt(26070,5216,"ide_methods.bas");if(r)goto S_42045;} +S_42046:; +fornext_value4518=*_FUNC_IDE2_LONG_B; +fornext_finalvalue4518=*__LONG_IDEBMKN- 1 ; +fornext_step4518= 1 ; +if (fornext_step4518<0) fornext_step_negative4518=1; else fornext_step_negative4518=0; +if (new_error) goto fornext_error4518; +goto fornext_entrylabel4518; +while(1){ +fornext_value4518=fornext_step4518+(*_FUNC_IDE2_LONG_B2); +fornext_entrylabel4518: +*_FUNC_IDE2_LONG_B2=fornext_value4518; +if (fornext_step_negative4518){ +if (fornext_value4518fornext_finalvalue4518) break; +} +fornext_error4518:; +if(qbevent){evnt(26070,5217,"ide_methods.bas");if(r)goto S_42046;} +do{ +memcpy(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_FUNC_IDE2_LONG_B2)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16)+ 0,((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_FUNC_IDE2_LONG_B2+ 1 )-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16)+ 0, 16); +if(!qbevent)break;evnt(26070,5218,"ide_methods.bas");}while(r); +fornext_continue_4517:; +} +fornext_exit_4517:; +do{ +*__LONG_IDEBMKN=*__LONG_IDEBMKN- 1 ; +if(!qbevent)break;evnt(26070,5220,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_BMKREMOVED= 1 ; +if(!qbevent)break;evnt(26070,5221,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEUNSAVED= 1 ; +if(!qbevent)break;evnt(26070,5222,"ide_methods.bas");}while(r); +do{ +goto LABEL_BMKREMOVEB; +if(!qbevent)break;evnt(26070,5223,"ide_methods.bas");}while(r); +} +fornext_continue_4515:; +} +fornext_exit_4515:; +S_42055:; +if ((-(*_FUNC_IDE2_LONG_BMKREMOVED== 0 ))||new_error){ +if(qbevent){evnt(26070,5226,"ide_methods.bas");if(r)goto S_42055;} +do{ +*__LONG_IDEBMKN=*__LONG_IDEBMKN+ 1 ; +if(!qbevent)break;evnt(26070,5227,"ide_methods.bas");}while(r); +S_42057:; +if ((-(*__LONG_IDEBMKN>func_ubound(__ARRAY_UDT_IDEBMK,1,1)))||new_error){ +if(qbevent){evnt(26070,5228,"ide_methods.bas");if(r)goto S_42057;} +do{ +*_FUNC_IDE2_LONG_X=func_ubound(__ARRAY_UDT_IDEBMK,1,1)* 2 ; +if(!qbevent)break;evnt(26070,5228,"ide_methods.bas");}while(r); +do{ if (__ARRAY_UDT_IDEBMK[2]&2){ error(10); @@ -140755,2857 +140755,2857 @@ if (!__ARRAY_UDT_IDEBMK[0]) error(257); } } __ARRAY_UDT_IDEBMK[2]|=1; -} -if(!qbevent)break;evnt(26070,5228,"ide_methods.bas");}while(r); -} -do{ -*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*__LONG_IDEBMKN)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16))=*__LONG_IDECY; -if(!qbevent)break;evnt(26070,5229,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*__LONG_IDEBMKN)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16+4))=*__LONG_IDECX; -if(!qbevent)break;evnt(26070,5230,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEUNSAVED= 1 ; -if(!qbevent)break;evnt(26070,5231,"ide_methods.bas");}while(r); -} -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,5233,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,5234,"ide_methods.bas");}while(r); -} -S_42068:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Next Bookmark Alt+Down",24)))|(qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Previous Bookmark Alt+Up",26)))))||new_error){ -if(qbevent){evnt(26070,5237,"ide_methods.bas");if(r)goto S_42068;} -do{ -sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(26070,5238,"ide_methods.bas");}while(r); -S_42070:; -if ((-(*__LONG_IDEBMKN== 0 ))||new_error){ -if(qbevent){evnt(26070,5239,"ide_methods.bas");if(r)goto S_42070;} -do{ -*_FUNC_IDE2_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Bookmarks",9),qbs_new_txt_len("No bookmarks exist (Use Alt+Left to create a bookmark)",54),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5240,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,5241,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,5241,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,5242,"ide_methods.bas");}while(r); -} -S_42076:; -if ((-(*__LONG_IDEBMKN== 1 ))||new_error){ -if(qbevent){evnt(26070,5244,"ide_methods.bas");if(r)goto S_42076;} -S_42077:; -if ((-(*__LONG_IDECY==*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check(( 1 )-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16))))||new_error){ -if(qbevent){evnt(26070,5245,"ide_methods.bas");if(r)goto S_42077;} -do{ -*_FUNC_IDE2_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Bookmarks",9),qbs_new_txt_len("No other bookmarks exist",24),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5246,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,5247,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,5247,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,5248,"ide_methods.bas");}while(r); -} -} -do{ -*_FUNC_IDE2_LONG_L=*__LONG_IDECY; -if(!qbevent)break;evnt(26070,5251,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_Z= 0 ; -if(!qbevent)break;evnt(26070,5252,"ide_methods.bas");}while(r); -S_42086:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Next Bookmark Alt+Down",24))))||new_error){ -if(qbevent){evnt(26070,5252,"ide_methods.bas");if(r)goto S_42086;} -do{ -*_FUNC_IDE2_LONG_Z= 1 ; -if(!qbevent)break;evnt(26070,5252,"ide_methods.bas");}while(r); -} -S_42089:; -do{ -if(qbevent){evnt(26070,5253,"ide_methods.bas");if(r)goto S_42089;} -S_42090:; -if ((-(*_FUNC_IDE2_LONG_Z== 1 ))||new_error){ -if(qbevent){evnt(26070,5254,"ide_methods.bas");if(r)goto S_42090;} -do{ -*_FUNC_IDE2_LONG_L=*_FUNC_IDE2_LONG_L+ 1 ; -if(!qbevent)break;evnt(26070,5254,"ide_methods.bas");}while(r); -}else{ -do{ -*_FUNC_IDE2_LONG_L=*_FUNC_IDE2_LONG_L- 1 ; -if(!qbevent)break;evnt(26070,5254,"ide_methods.bas");}while(r); -} -S_42095:; -if ((-(*_FUNC_IDE2_LONG_L< 1 ))||new_error){ -if(qbevent){evnt(26070,5255,"ide_methods.bas");if(r)goto S_42095;} -do{ -*_FUNC_IDE2_LONG_L=*__LONG_IDEN; -if(!qbevent)break;evnt(26070,5255,"ide_methods.bas");}while(r); -} -S_42098:; -if ((-(*_FUNC_IDE2_LONG_L>*__LONG_IDEN))||new_error){ -if(qbevent){evnt(26070,5256,"ide_methods.bas");if(r)goto S_42098;} -do{ -*_FUNC_IDE2_LONG_L= 1 ; -if(!qbevent)break;evnt(26070,5256,"ide_methods.bas");}while(r); -} -S_42101:; -fornext_value4521= 1 ; -fornext_finalvalue4521=*__LONG_IDEBMKN; -fornext_step4521= 1 ; -if (fornext_step4521<0) fornext_step_negative4521=1; else fornext_step_negative4521=0; -if (new_error) goto fornext_error4521; -goto fornext_entrylabel4521; -while(1){ -fornext_value4521=fornext_step4521+(*_FUNC_IDE2_LONG_B); -fornext_entrylabel4521: -*_FUNC_IDE2_LONG_B=fornext_value4521; -if (fornext_step_negative4521){ -if (fornext_value4521fornext_finalvalue4521) break; -} -fornext_error4521:; -if(qbevent){evnt(26070,5257,"ide_methods.bas");if(r)goto S_42101;} -S_42102:; -if ((-(*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_FUNC_IDE2_LONG_B)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16))==*_FUNC_IDE2_LONG_L))||new_error){ -if(qbevent){evnt(26070,5258,"ide_methods.bas");if(r)goto S_42102;} -do{ -goto dl_exit_4519; -if(!qbevent)break;evnt(26070,5258,"ide_methods.bas");}while(r); -} -fornext_continue_4520:; -} -fornext_exit_4520:; -dl_continue_4519:; -}while(1); -dl_exit_4519:; -do{ -SUB_ADDQUICKNAVHISTORY(); -if(!qbevent)break;evnt(26070,5261,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECY=*_FUNC_IDE2_LONG_L; -if(!qbevent)break;evnt(26070,5262,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECX=*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_FUNC_IDE2_LONG_B)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16+4)); -if(!qbevent)break;evnt(26070,5263,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(26070,5264,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,5265,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,5266,"ide_methods.bas");}while(r); -} -S_42114:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Go To Line... Ctrl+G",22))))||new_error){ -if(qbevent){evnt(26070,5274,"ide_methods.bas");if(r)goto S_42114;} -do{ -sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(26070,5275,"ide_methods.bas");}while(r); -do{ -SUB_IDEGOTOBOX(); -if(!qbevent)break;evnt(26070,5276,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,5277,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,5277,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,5278,"ide_methods.bas");}while(r); -} -S_42121:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Backup/Undo...",15))))||new_error){ -if(qbevent){evnt(26070,5281,"ide_methods.bas");if(r)goto S_42121;} -do{ -sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(26070,5282,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_RETVAL=FUNC_IDEBACKUPBOX(); -if(!qbevent)break;evnt(26070,5283,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,5285,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,5285,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,5286,"ide_methods.bas");}while(r); -} -S_42128:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#About...",9))))||new_error){ -if(qbevent){evnt(26070,5297,"ide_methods.bas");if(r)goto S_42128;} -LABEL_HELPABOUT:; -if(qbevent){evnt(26070,5298,"ide_methods.bas");r=0;} -do{ -sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(26070,5299,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_M,qbs_add(qbs_new_txt_len("QB64 Phoenix Edition Version ",29),__STRING_VERSION)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5300,"ide_methods.bas");}while(r); -S_42131:; -if ((*__BYTE_ISCIVERSION)||new_error){ -if(qbevent){evnt(26070,5301,"ide_methods.bas");if(r)goto S_42131;} -do{ -qbs_set(_FUNC_IDE2_STRING_M,qbs_add(qbs_add(_FUNC_IDE2_STRING_M,func_chr( 10 )),qbs_new_txt_len("CI Build",8))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5301,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDE2_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("About",5),_FUNC_IDE2_STRING_M,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5302,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,5303,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,5303,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,5304,"ide_methods.bas");}while(r); -} -S_42139:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#ASCII Chart...",15))))||new_error){ -if(qbevent){evnt(26070,5308,"ide_methods.bas");if(r)goto S_42139;} -do{ -sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(26070,5309,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_RELAUNCH= 0 ; -if(!qbevent)break;evnt(26070,5310,"ide_methods.bas");}while(r); -S_42142:; -do{ -if(qbevent){evnt(26070,5311,"ide_methods.bas");if(r)goto S_42142;} -do{ -qbs_set(_FUNC_IDE2_STRING_RETVAL,FUNC_IDEASCIIBOX(_FUNC_IDE2_LONG_RELAUNCH)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5312,"ide_methods.bas");}while(r); -S_42144:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_RETVAL->len))||new_error){ -if(qbevent){evnt(26070,5313,"ide_methods.bas");if(r)goto S_42144;} -do{ -SUB_INSERTATCURSOR(_FUNC_IDE2_STRING_RETVAL); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5313,"ide_methods.bas");}while(r); -} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,5314,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,5314,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=48; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_REDRAWITALL; -RETURN_48:; -if(!qbevent)break;evnt(26070,5315,"ide_methods.bas");}while(r); -do{ -SUB_IDESHOWTEXT(); -if(!qbevent)break;evnt(26070,5316,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,5317,"ide_methods.bas");}while(r); -S_42152:; -dl_continue_4522:; -}while((*_FUNC_IDE2_LONG_RELAUNCH)&&(!new_error)); -dl_exit_4522:; -if(qbevent){evnt(26070,5318,"ide_methods.bas");if(r)goto S_42152;} -do{ -*_FUNC_IDE2_LONG_RETVAL= 1 ; -if(!qbevent)break;evnt(26070,5319,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,5320,"ide_methods.bas");}while(r); -} -S_42156:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Insert Quick #Keycode Ctrl+K",29))))||new_error){ -if(qbevent){evnt(26070,5323,"ide_methods.bas");if(r)goto S_42156;} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,5324,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,5324,"ide_methods.bas");}while(r); -LABEL_IDEQUICKKEYCODE:; -if(qbevent){evnt(26070,5325,"ide_methods.bas");r=0;} -do{ -*_FUNC_IDE2_LONG_DUMMY=FUNC_DARKENFGBG(&(pass4524= 1 )); -if(!qbevent)break;evnt(26070,5326,"ide_methods.bas");}while(r); -do{ -SUB_CLEARSTATUSWINDOW(&(pass4525= 0 )); -if(!qbevent)break;evnt(26070,5327,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 15 , 1 ,NULL,3); -if(!qbevent)break;evnt(26070,5328,"ide_methods.bas");}while(r); -do{ -sub__printstring( 2 ,*__LONG_IDEWY- 3 ,qbs_new_txt_len("Press any key to insert its _KEYHIT/_KEYDOWN code...",52),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5329,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,5330,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_TEMPK,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5332,"ide_methods.bas");}while(r); -S_42165:; -do{ -if(qbevent){evnt(26070,5334,"ide_methods.bas");if(r)goto S_42165;} -do{ -*_FUNC_IDE2_LONG_TEMPK=func__keyhit(); -if(!qbevent)break;evnt(26070,5334,"ide_methods.bas");}while(r); -do{ -sub__limit( 30 ); -if(!qbevent)break;evnt(26070,5334,"ide_methods.bas");}while(r); -S_42168:; -dl_continue_4526:; -}while((!(-(*_FUNC_IDE2_LONG_TEMPK== 0 )))&&(!new_error)); -dl_exit_4526:; -if(qbevent){evnt(26070,5334,"ide_methods.bas");if(r)goto S_42168;} -S_42169:; -do{ -if(qbevent){evnt(26070,5335,"ide_methods.bas");if(r)goto S_42169;} -do{ -*_FUNC_IDE2_LONG_TEMPK=func__keyhit(); -if(!qbevent)break;evnt(26070,5336,"ide_methods.bas");}while(r); -S_42171:; -if ((-(*_FUNC_IDE2_LONG_TEMPK> 0 ))||new_error){ -if(qbevent){evnt(26070,5337,"ide_methods.bas");if(r)goto S_42171;} -do{ -qbs_set(_FUNC_IDE2_STRING_TEMPK,qbs_str((int32)(*_FUNC_IDE2_LONG_TEMPK))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5337,"ide_methods.bas");}while(r); -} -S_42174:; -while((func__mouseinput(NULL,0))||new_error){ -if(qbevent){evnt(26070,5339,"ide_methods.bas");if(r)goto S_42174;} -ww_continue_4528:; -} -ww_exit_4528:; -S_42176:; -if ((func__mousebutton( 1 ,NULL,0)|func__mousebutton( 2 ,NULL,0))||new_error){ -if(qbevent){evnt(26070,5340,"ide_methods.bas");if(r)goto S_42176;} -do{ -goto LABEL_BYPASSCTRLK; -if(!qbevent)break;evnt(26070,5340,"ide_methods.bas");}while(r); -} -do{ -sub__limit( 30 ); -if(!qbevent)break;evnt(26070,5342,"ide_methods.bas");}while(r); -S_42180:; -dl_continue_4527:; -}while((!(-(*_FUNC_IDE2_LONG_TEMPK> 0 )))&&(!new_error)); -dl_exit_4527:; -if(qbevent){evnt(26070,5343,"ide_methods.bas");if(r)goto S_42180;} -S_42181:; -if (((-(*_FUNC_IDE2_LONG_TEMPK== 100303 ))|(-(*_FUNC_IDE2_LONG_TEMPK== 100304 )))||new_error){ -if(qbevent){evnt(26070,5344,"ide_methods.bas");if(r)goto S_42181;} -S_42182:; -do{ -if(qbevent){evnt(26070,5345,"ide_methods.bas");if(r)goto S_42182;} -do{ -*_FUNC_IDE2_LONG_TEMPK=func__keyhit(); -if(!qbevent)break;evnt(26070,5346,"ide_methods.bas");}while(r); -S_42184:; -if ((-(*_FUNC_IDE2_LONG_TEMPK!= 0 ))||new_error){ -if(qbevent){evnt(26070,5347,"ide_methods.bas");if(r)goto S_42184;} -do{ -qbs_set(_FUNC_IDE2_STRING_TEMPK,qbs_str((int32)(func_abs((int32)(*_FUNC_IDE2_LONG_TEMPK))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5347,"ide_methods.bas");}while(r); -} -S_42187:; -while((func__mouseinput(NULL,0))||new_error){ -if(qbevent){evnt(26070,5349,"ide_methods.bas");if(r)goto S_42187;} -ww_continue_4530:; -} -ww_exit_4530:; -S_42189:; -if ((func__mousebutton( 1 ,NULL,0)|func__mousebutton( 2 ,NULL,0))||new_error){ -if(qbevent){evnt(26070,5350,"ide_methods.bas");if(r)goto S_42189;} -do{ -goto LABEL_BYPASSCTRLK; -if(!qbevent)break;evnt(26070,5350,"ide_methods.bas");}while(r); -} -do{ -sub__limit( 30 ); -if(!qbevent)break;evnt(26070,5352,"ide_methods.bas");}while(r); -S_42193:; -dl_continue_4529:; -}while((!(-(*_FUNC_IDE2_LONG_TEMPK!= 0 )))&&(!new_error)); -dl_exit_4529:; -if(qbevent){evnt(26070,5353,"ide_methods.bas");if(r)goto S_42193;} -} -do{ -qbs_set(_FUNC_IDE2_STRING_TEMPK,qbs_ltrim(_FUNC_IDE2_STRING_TEMPK)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5355,"ide_methods.bas");}while(r); -do{ -SUB_INSERTATCURSOR(_FUNC_IDE2_STRING_TEMPK); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5358,"ide_methods.bas");}while(r); -LABEL_BYPASSCTRLK:; -if(qbevent){evnt(26070,5360,"ide_methods.bas");r=0;} -do{ -*_FUNC_IDE2_LONG_DUMMY=FUNC_DARKENFGBG(&(pass4531= 0 )); -if(!qbevent)break;evnt(26070,5361,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,5362,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,5362,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_RETVAL= 1 ; -if(!qbevent)break;evnt(26070,5363,"ide_methods.bas");}while(r); -do{ -*__LONG_KCTRL= 0 ; -if(!qbevent)break;evnt(26070,5364,"ide_methods.bas");}while(r); -do{ -*__LONG_KCONTROL= 0 ; -if(!qbevent)break;evnt(26070,5364,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=49; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_REDRAWITALL; -RETURN_49:; -if(!qbevent)break;evnt(26070,5365,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,5366,"ide_methods.bas");}while(r); -} -S_42206:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 10 ),qbs_new_txt_len("#Help On '",10))))||new_error){ -if(qbevent){evnt(26070,5369,"ide_methods.bas");if(r)goto S_42206;} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,5370,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,5370,"ide_methods.bas");}while(r); -do{ -goto LABEL_CONTEXTUALHELP; -if(!qbevent)break;evnt(26070,5371,"ide_methods.bas");}while(r); -} -S_42211:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 10 ),qbs_new_txt_len("#Go To SUB",10)))|(qbs_equal(qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 15 ),qbs_new_txt_len("#Go To FUNCTION",15)))))||new_error){ -if(qbevent){evnt(26070,5374,"ide_methods.bas");if(r)goto S_42211;} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,5375,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,5375,"ide_methods.bas");}while(r); -do{ -SUB_ADDQUICKNAVHISTORY(); -if(!qbevent)break;evnt(26070,5376,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECY=string2l(func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_SUBFUNCLIST[0]))[array_check(( 1 )-__ARRAY_STRING_SUBFUNCLIST[4],__ARRAY_STRING_SUBFUNCLIST[5])])), 1 , 4 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5377,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESY=*__LONG_IDECY; -if(!qbevent)break;evnt(26070,5378,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECX= 1 ; -if(!qbevent)break;evnt(26070,5379,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESX= 1 ; -if(!qbevent)break;evnt(26070,5380,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(26070,5381,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,5382,"ide_methods.bas");}while(r); -} -S_42222:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 12 ),qbs_new_txt_len("Go To #Label",12))))||new_error){ -if(qbevent){evnt(26070,5385,"ide_methods.bas");if(r)goto S_42222;} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,5386,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,5386,"ide_methods.bas");}while(r); -do{ -SUB_ADDQUICKNAVHISTORY(); -if(!qbevent)break;evnt(26070,5387,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECY=string2l(func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_SUBFUNCLIST[0]))[array_check((func_ubound(__ARRAY_STRING_SUBFUNCLIST,1,1))-__ARRAY_STRING_SUBFUNCLIST[4],__ARRAY_STRING_SUBFUNCLIST[5])])), 1 , 4 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5388,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESY=*__LONG_IDECY; -if(!qbevent)break;evnt(26070,5389,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECX= 1 ; -if(!qbevent)break;evnt(26070,5390,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESX= 1 ; -if(!qbevent)break;evnt(26070,5391,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(26070,5392,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,5393,"ide_methods.bas");}while(r); -} -S_42233:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Contents Page",14))))||new_error){ -if(qbevent){evnt(26070,5396,"ide_methods.bas");if(r)goto S_42233;} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,5397,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,5397,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_LNK,qbs_new_txt_len("QB64 Help Menu",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5398,"ide_methods.bas");}while(r); -do{ -goto LABEL_OPENHELPLINK; -if(!qbevent)break;evnt(26070,5399,"ide_methods.bas");}while(r); -} -S_42239:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Keyword #Index",14))))||new_error){ -if(qbevent){evnt(26070,5401,"ide_methods.bas");if(r)goto S_42239;} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,5402,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,5402,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_LNK,qbs_new_txt_len("Keyword Reference - Alphabetical",32)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5403,"ide_methods.bas");}while(r); -do{ -goto LABEL_OPENHELPLINK; -if(!qbevent)break;evnt(26070,5404,"ide_methods.bas");}while(r); -} -S_42245:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Keywords by Usage",18))))||new_error){ -if(qbevent){evnt(26070,5406,"ide_methods.bas");if(r)goto S_42245;} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,5407,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,5407,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_LNK,qbs_new_txt_len("Keyword Reference - By usage",28)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5408,"ide_methods.bas");}while(r); -do{ -goto LABEL_OPENHELPLINK; -if(!qbevent)break;evnt(26070,5409,"ide_methods.bas");}while(r); -} -S_42251:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#View Shift+F1",15))))||new_error){ -if(qbevent){evnt(26070,5412,"ide_methods.bas");if(r)goto S_42251;} -S_42252:; -if ((-(*__LONG_IDEHELP== 0 ))||new_error){ -if(qbevent){evnt(26070,5414,"ide_methods.bas");if(r)goto S_42252;} -S_42253:; -if ((*__LONG_IDESUBWINDOW)||new_error){ -if(qbevent){evnt(26070,5415,"ide_methods.bas");if(r)goto S_42253;} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,5415,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,5415,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,5415,"ide_methods.bas");}while(r); -} -do{ -*__LONG_IDESUBWINDOW=*__LONG_IDEWY/ 2 ; -if(!qbevent)break;evnt(26070,5416,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEWY=*__LONG_IDEWY-*__LONG_IDESUBWINDOW; -if(!qbevent)break;evnt(26070,5416,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_WX1= 2 ; -if(!qbevent)break;evnt(26070,5417,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_WY1=*__LONG_IDEWY+ 1 ; -if(!qbevent)break;evnt(26070,5417,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_WX2=*__LONG_IDEWX- 1 ; -if(!qbevent)break;evnt(26070,5417,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_WY2=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 2 ; -if(!qbevent)break;evnt(26070,5417,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_WW=*__LONG_HELP_WX2-*__LONG_HELP_WX1+ 1 ; -if(!qbevent)break;evnt(26070,5417,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_WH=*__LONG_HELP_WY2-*__LONG_HELP_WY1+ 1 ; -if(!qbevent)break;evnt(26070,5417,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEHELP= 1 ; -if(!qbevent)break;evnt(26070,5418,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_SKIPDISPLAY= 0 ; -if(!qbevent)break;evnt(26070,5419,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESYSTEM= 3 ; -if(!qbevent)break;evnt(26070,5420,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_RETVAL= 1 ; -if(!qbevent)break;evnt(26070,5421,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=50; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_REDRAWITALL; -RETURN_50:; -if(!qbevent)break;evnt(26070,5421,"ide_methods.bas");}while(r); -} -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,5424,"ide_methods.bas");}while(r); -} -S_42274:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("View Current Page On #Wiki",26))))||new_error){ -if(qbevent){evnt(26070,5427,"ide_methods.bas");if(r)goto S_42274;} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,5428,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,5428,"ide_methods.bas");}while(r); -S_42277:; -if ((*__LONG_IDEHELP)||new_error){ -if(qbevent){evnt(26070,5429,"ide_methods.bas");if(r)goto S_42277;} -do{ -goto LABEL_LAUNCHWIKI; -if(!qbevent)break;evnt(26070,5429,"ide_methods.bas");}while(r); -} -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,5430,"ide_methods.bas");}while(r); -} -S_42282:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Update Current Page",20))))||new_error){ -if(qbevent){evnt(26070,5433,"ide_methods.bas");if(r)goto S_42282;} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,5434,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,5434,"ide_methods.bas");}while(r); -S_42285:; -if ((*__LONG_IDEHELP)||new_error){ -if(qbevent){evnt(26070,5435,"ide_methods.bas");if(r)goto S_42285;} -do{ -*__LONG_HELP_IGNORECACHE= 1 ; -if(!qbevent)break;evnt(26070,5436,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_A,FUNC_WIKI(((qbs*)(((uint64*)(__ARRAY_STRING_BACK[0]))[array_check((*__LONG_HELP_BACK_POS)-__ARRAY_STRING_BACK[4],__ARRAY_STRING_BACK[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5437,"ide_methods.bas");}while(r); -do{ -SUB_WIKIPARSE(_FUNC_IDE2_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5438,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_IGNORECACHE= 0 ; -if(!qbevent)break;evnt(26070,5439,"ide_methods.bas");}while(r); -} -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,5441,"ide_methods.bas");}while(r); -} -S_42293:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Math Evaluator...",18))))||new_error){ -if(qbevent){evnt(26070,5445,"ide_methods.bas");if(r)goto S_42293;} -do{ -if(!qbevent)break;evnt(26070,5446,"ide_methods.bas");}while(r); -S_42295:; -if ((*__LONG_IDESELECT)||new_error){ -if(qbevent){evnt(26070,5448,"ide_methods.bas");if(r)goto S_42295;} -S_42296:; -if ((-(*__LONG_IDESELECTY1==*__LONG_IDECY))||new_error){ -if(qbevent){evnt(26070,5449,"ide_methods.bas");if(r)goto S_42296;} -do{ -qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5450,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_A2,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5451,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_SX1=*__LONG_IDESELECTX1; -if(!qbevent)break;evnt(26070,5452,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_SX2=*__LONG_IDECX; -if(!qbevent)break;evnt(26070,5452,"ide_methods.bas");}while(r); -S_42301:; -if ((-(*_FUNC_IDE2_LONG_SX2<*_FUNC_IDE2_LONG_SX1))||new_error){ -if(qbevent){evnt(26070,5453,"ide_methods.bas");if(r)goto S_42301;} -do{ -swap_32(&*_FUNC_IDE2_LONG_SX1,&*_FUNC_IDE2_LONG_SX2); -if(!qbevent)break;evnt(26070,5453,"ide_methods.bas");}while(r); -} -S_42304:; -fornext_value4533=*_FUNC_IDE2_LONG_SX1; -fornext_finalvalue4533=*_FUNC_IDE2_LONG_SX2- 1 ; -fornext_step4533= 1 ; -if (fornext_step4533<0) fornext_step_negative4533=1; else fornext_step_negative4533=0; -if (new_error) goto fornext_error4533; -goto fornext_entrylabel4533; -while(1){ -fornext_value4533=fornext_step4533+(*_FUNC_IDE2_LONG_X); -fornext_entrylabel4533: -*_FUNC_IDE2_LONG_X=fornext_value4533; -if (fornext_step_negative4533){ -if (fornext_value4533fornext_finalvalue4533) break; -} -fornext_error4533:; -if(qbevent){evnt(26070,5454,"ide_methods.bas");if(r)goto S_42304;} -S_42305:; -if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDE2_LONG_X<=_FUNC_IDE2_STRING_A->len)))||new_error){ -if(qbevent){evnt(26070,5455,"ide_methods.bas");if(r)goto S_42305;} -do{ -qbs_set(_FUNC_IDE2_STRING_A2,qbs_add(_FUNC_IDE2_STRING_A2,func_mid(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_X, 1 ,0|1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5455,"ide_methods.bas");}while(r); -}else{ -do{ -goto fornext_exit_4532; -if(!qbevent)break;evnt(26070,5455,"ide_methods.bas");}while(r); -} -fornext_continue_4532:; -} -fornext_exit_4532:; -do{ -qbs_set(_FUNC_IDE2_STRING_A2,qbs__trim(_FUNC_IDE2_STRING_A2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5457,"ide_methods.bas");}while(r); -S_42312:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_A2->len))||new_error){ -if(qbevent){evnt(26070,5458,"ide_methods.bas");if(r)goto S_42312;} -do{ -qbs_set(_FUNC_IDE2_STRING_MATHEVALEXPR,_FUNC_IDE2_STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5458,"ide_methods.bas");}while(r); -} -} -} -S_42317:; -do{ -if(qbevent){evnt(26070,5462,"ide_methods.bas");if(r)goto S_42317;} -do{ -sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(26070,5463,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_RETVAL,FUNC_IDEINPUTBOX(qbs_new_txt_len("Math Evaluator",14),qbs_new_txt_len("#Enter expression",17),_FUNC_IDE2_STRING_MATHEVALEXPR,qbs_new_txt_len("",0),&(pass4537= 60 ),&(pass4538= 0 ),&(pass4539= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5464,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_RESULT= 0 ; -if(!qbevent)break;evnt(26070,5465,"ide_methods.bas");}while(r); -S_42321:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_RETVAL->len))||new_error){ -if(qbevent){evnt(26070,5466,"ide_methods.bas");if(r)goto S_42321;} -do{ -qbs_set(_FUNC_IDE2_STRING_MATHEVALEXPR,_FUNC_IDE2_STRING_RETVAL); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5467,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_EV0,FUNC_EVALUATE_EXPRESSION(_FUNC_IDE2_STRING_RETVAL)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5468,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_EV,_FUNC_IDE2_STRING_EV0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5469,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_BYTE_MATHEVALERROR=-(func_instr(NULL,_FUNC_IDE2_STRING_EV,qbs_new_txt_len("ERROR",5),0)> 0 ); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5470,"ide_methods.bas");}while(r); -S_42326:; -if (((-(*_FUNC_IDE2_BYTE_MATHEVALERROR== 0 ))&*_FUNC_IDE2_BYTE_MATHEVALHEX)||new_error){ -if(qbevent){evnt(26070,5471,"ide_methods.bas");if(r)goto S_42326;} -do{ -qbs_set(_FUNC_IDE2_STRING_EV,qbs_add(qbs_new_txt_len("&H",2),func_hex_float(func_val(_FUNC_IDE2_STRING_EV)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5471,"ide_methods.bas");}while(r); -} -S_42329:; -do{ -if(qbevent){evnt(26070,5472,"ide_methods.bas");if(r)goto S_42329;} -do{ -qbs_set(_FUNC_IDE2_STRING_B1,qbs_new_txt_len("#Insert;",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5473,"ide_methods.bas");}while(r); -S_42331:; -if ((*_FUNC_IDE2_BYTE_MATHEVALHEX)||new_error){ -if(qbevent){evnt(26070,5474,"ide_methods.bas");if(r)goto S_42331;} -do{ -qbs_set(_FUNC_IDE2_STRING_B2,qbs_new_txt_len("#Decimal;",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5474,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDE2_STRING_B2,qbs_new_txt_len("#HEX$;",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5474,"ide_methods.bas");}while(r); -} -S_42336:; -if (((-(*_FUNC_IDE2_BYTE_MATHEVALERROR== 0 ))&*_FUNC_IDE2_BYTE_MATHEVALCOMMENT)||new_error){ -if(qbevent){evnt(26070,5475,"ide_methods.bas");if(r)goto S_42336;} -do{ -qbs_set(_FUNC_IDE2_STRING_MATHMSG,qbs_add(qbs_add(_FUNC_IDE2_STRING_EV,qbs_new_txt_len(" '",2)),_FUNC_IDE2_STRING_RETVAL)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5476,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_B3,qbs_new_txt_len("#Uncomment;",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5477,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDE2_STRING_MATHMSG,_FUNC_IDE2_STRING_EV); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5479,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_B3,qbs_new_txt_len("Co#mment;",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5480,"ide_methods.bas");}while(r); -} -S_42343:; -if ((*_FUNC_IDE2_BYTE_MATHEVALERROR)||new_error){ -if(qbevent){evnt(26070,5482,"ide_methods.bas");if(r)goto S_42343;} -do{ -qbs_set(_FUNC_IDE2_STRING_B1,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5482,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_B2,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5482,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_B3,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5482,"ide_methods.bas");}while(r); -} -do{ -sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(26070,5483,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Math Evaluator - Result",23),_FUNC_IDE2_STRING_MATHMSG,qbs_add(qbs_add(qbs_add(_FUNC_IDE2_STRING_B1,_FUNC_IDE2_STRING_B2),_FUNC_IDE2_STRING_B3),qbs_new_txt_len("#Redo;#Cancel",13))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5484,"ide_methods.bas");}while(r); -S_42350:; -if ((-(*_FUNC_IDE2_BYTE_MATHEVALERROR== 0 ))||new_error){ -if(qbevent){evnt(26070,5485,"ide_methods.bas");if(r)goto S_42350;} -S_42351:; -if(qbevent){evnt(26070,5486,"ide_methods.bas");if(r)goto S_42351;} -S_42352:; -if (((*_FUNC_IDE2_LONG_RESULT==( 1 ))||(*_FUNC_IDE2_LONG_RESULT==( 4 ))||(*_FUNC_IDE2_LONG_RESULT==( 5 )))||new_error){ -if(qbevent){evnt(26070,5487,"ide_methods.bas");if(r)goto S_42352;} -do{ -goto dl_exit_4541; -if(!qbevent)break;evnt(26070,5488,"ide_methods.bas");}while(r); -sc_ec_225_end:; -goto sc_4542_end; -} -S_42354:; -if (((*_FUNC_IDE2_LONG_RESULT==( 2 )))||new_error){ -if(qbevent){evnt(26070,5489,"ide_methods.bas");if(r)goto S_42354;} -do{ -*_FUNC_IDE2_BYTE_MATHEVALHEX=~(*_FUNC_IDE2_BYTE_MATHEVALHEX); -if(!qbevent)break;evnt(26070,5490,"ide_methods.bas");}while(r); -S_42356:; -if ((*_FUNC_IDE2_BYTE_MATHEVALHEX)||new_error){ -if(qbevent){evnt(26070,5491,"ide_methods.bas");if(r)goto S_42356;} -do{ -qbs_set(_FUNC_IDE2_STRING_EV,qbs_add(qbs_new_txt_len("&H",2),func_hex_float(func_val(_FUNC_IDE2_STRING_EV)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5491,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDE2_STRING_EV,_FUNC_IDE2_STRING_EV0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5491,"ide_methods.bas");}while(r); -} -sc_ec_226_end:; -goto sc_4542_end; -} -S_42361:; -if (((*_FUNC_IDE2_LONG_RESULT==( 3 )))||new_error){ -if(qbevent){evnt(26070,5492,"ide_methods.bas");if(r)goto S_42361;} -do{ -*_FUNC_IDE2_BYTE_MATHEVALCOMMENT=~(*_FUNC_IDE2_BYTE_MATHEVALCOMMENT); -if(!qbevent)break;evnt(26070,5493,"ide_methods.bas");}while(r); -sc_ec_227_end:; -goto sc_4542_end; -} -sc_4542_end:; -}else{ -do{ -goto dl_exit_4541; -if(!qbevent)break;evnt(26070,5496,"ide_methods.bas");}while(r); -} -dl_continue_4541:; -}while(1); -dl_exit_4541:; -S_42368:; -if ((*_FUNC_IDE2_BYTE_MATHEVALERROR&(-(*_FUNC_IDE2_LONG_RESULT== 2 )))||new_error){ -if(qbevent){evnt(26070,5499,"ide_methods.bas");if(r)goto S_42368;} -do{ -goto dl_exit_4536; -if(!qbevent)break;evnt(26070,5499,"ide_methods.bas");}while(r); -} -S_42371:; -if (((-(*_FUNC_IDE2_BYTE_MATHEVALERROR== 0 ))&(((-(*_FUNC_IDE2_LONG_RESULT== 1 ))|(-(*_FUNC_IDE2_LONG_RESULT== 5 )))))||new_error){ -if(qbevent){evnt(26070,5500,"ide_methods.bas");if(r)goto S_42371;} -do{ -goto dl_exit_4536; -if(!qbevent)break;evnt(26070,5500,"ide_methods.bas");}while(r); -} -}else{ -do{ -goto dl_exit_4536; -if(!qbevent)break;evnt(26070,5502,"ide_methods.bas");}while(r); -} -dl_continue_4536:; -}while(1); -dl_exit_4536:; -S_42378:; -if (((-(*_FUNC_IDE2_BYTE_MATHEVALERROR== 0 ))&(-(*_FUNC_IDE2_LONG_RESULT== 1 )))||new_error){ -if(qbevent){evnt(26070,5506,"ide_methods.bas");if(r)goto S_42378;} -do{ -SUB_INSERTATCURSOR(_FUNC_IDE2_STRING_MATHMSG); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5507,"ide_methods.bas");}while(r); -} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,5509,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,5509,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,5510,"ide_methods.bas");}while(r); -} -S_42385:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Update All #Pages...",20))))||new_error){ -if(qbevent){evnt(26070,5513,"ide_methods.bas");if(r)goto S_42385;} -do{ -sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(26070,5514,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_Q,FUNC_IDEYESNOBOX(qbs_new_txt_len("Update Help",11),qbs_new_txt_len("This can take up to 10 minutes.\\nRedownload all cached help content from the wiki?",82))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5515,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(26070,5516,"ide_methods.bas");}while(r); -S_42389:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_Q,qbs_new_txt_len("Y",1))))||new_error){ -if(qbevent){evnt(26070,5517,"ide_methods.bas");if(r)goto S_42389;} -do{ -*__LONG_HELP_RECACHING= 1 ; -if(!qbevent)break;evnt(26070,5518,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_IGNORECACHE= 1 ; -if(!qbevent)break;evnt(26070,5518,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_UERR=FUNC_IDEUPDATEHELPBOX(); -if(!qbevent)break;evnt(26070,5519,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_RECACHING= 0 ; -if(!qbevent)break;evnt(26070,5520,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_IGNORECACHE= 0 ; -if(!qbevent)break;evnt(26070,5520,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,5521,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,5521,"ide_methods.bas");}while(r); -S_42397:; -if ((*_FUNC_IDE2_LONG_UERR)||new_error){ -if(qbevent){evnt(26070,5522,"ide_methods.bas");if(r)goto S_42397;} -do{ -qbs_set(_FUNC_IDE2_STRING_LNK,qbs_new_txt_len("Update All",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5523,"ide_methods.bas");}while(r); -do{ -goto LABEL_OPENHELPLINK; -if(!qbevent)break;evnt(26070,5524,"ide_methods.bas");}while(r); -} -} -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,5527,"ide_methods.bas");}while(r); -} -S_42404:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 8 ),qbs_new_txt_len("New #SUB",8))))||new_error){ -if(qbevent){evnt(26070,5530,"ide_methods.bas");if(r)goto S_42404;} -do{ -sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(26070,5531,"ide_methods.bas");}while(r); -do{ -SUB_IDENEWSF(qbs_new_txt_len("SUB",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5532,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(26070,5533,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,5534,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,5534,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,5535,"ide_methods.bas");}while(r); -} -S_42412:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 13 ),qbs_new_txt_len("New #FUNCTION",13))))||new_error){ -if(qbevent){evnt(26070,5537,"ide_methods.bas");if(r)goto S_42412;} -do{ -sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(26070,5538,"ide_methods.bas");}while(r); -do{ -SUB_IDENEWSF(qbs_new_txt_len("FUNCTION",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5539,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(26070,5540,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,5541,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,5541,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,5542,"ide_methods.bas");}while(r); -} -S_42420:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#SUBs... F2",12)))|(qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("SUBs... F2",11)))))||new_error){ -if(qbevent){evnt(26070,5545,"ide_methods.bas");if(r)goto S_42420;} -S_42421:; -if ((-(*__LONG_IDEDEBUGMODE== 2 ))||new_error){ -if(qbevent){evnt(26070,5546,"ide_methods.bas");if(r)goto S_42421;} -do{ -*__LONG_IDEDEBUGMODE= 14 ; -if(!qbevent)break;evnt(26070,5547,"ide_methods.bas");}while(r); -do{ -goto LABEL_ENTERDEBUGMODE; -if(!qbevent)break;evnt(26070,5548,"ide_methods.bas");}while(r); -}else{ -do{ -sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(26070,5550,"ide_methods.bas");}while(r); -LABEL_IDESUBSJMP:; -if(qbevent){evnt(26070,5551,"ide_methods.bas");r=0;} -do{ -qbs_set(_FUNC_IDE2_STRING_R,FUNC_IDESUBS()); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5552,"ide_methods.bas");}while(r); -S_42427:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_IDE2_STRING_R,qbs_new_txt_len("C",1))))||new_error){ -if(qbevent){evnt(26070,5553,"ide_methods.bas");if(r)goto S_42427;} -do{ -*__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(26070,5553,"ide_methods.bas");}while(r); -} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,5554,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,5554,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,5555,"ide_methods.bas");}while(r); -} -} -S_42435:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),(qbs_add(qbs_new_txt_len("#Line Numbers ",15),func_chr( 16 ))))))||new_error){ -if(qbevent){evnt(26070,5559,"ide_methods.bas");if(r)goto S_42435;} -do{ -*_FUNC_IDE2_LONG_IDECONTEXTUALMENU= 2 ; -if(!qbevent)break;evnt(26070,5560,"ide_methods.bas");}while(r); -do{ -goto LABEL_SHOWMENU; -if(!qbevent)break;evnt(26070,5561,"ide_methods.bas");}while(r); -} -S_42439:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Show Line Numbers",18))))||new_error){ -if(qbevent){evnt(26070,5564,"ide_methods.bas");if(r)goto S_42439;} -do{ -sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(26070,5565,"ide_methods.bas");}while(r); -do{ -*__BYTE_SHOWLINENUMBERS= -1 ; -if(!qbevent)break;evnt(26070,5566,"ide_methods.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("ShowLineNumbers",15),qbs_new_txt_len("True",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5567,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Hide Line Numbers",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5568,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_VIEWMENUSHOWBGID)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_VIEWMENUSHOWBGID)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 2 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5569,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_VIEWMENUSHOWSEPARATORID)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_VIEWMENUSHOWSEPARATORID)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 2 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5570,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,5571,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,5571,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,5572,"ide_methods.bas");}while(r); -} -S_42450:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Hide Line Numbers",18))))||new_error){ -if(qbevent){evnt(26070,5575,"ide_methods.bas");if(r)goto S_42450;} -do{ -sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(26070,5576,"ide_methods.bas");}while(r); -do{ -*__BYTE_SHOWLINENUMBERS= 0 ; -if(!qbevent)break;evnt(26070,5577,"ide_methods.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("ShowLineNumbers",15),qbs_new_txt_len("False",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5578,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Show Line Numbers",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5579,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_VIEWMENUSHOWBGID)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(qbs_new_txt_len("~",1),((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_VIEWMENUSHOWBGID)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5580,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_VIEWMENUSHOWSEPARATORID)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(qbs_new_txt_len("~",1),((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_VIEWMENUSHOWSEPARATORID)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5581,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,5582,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,5582,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,5583,"ide_methods.bas");}while(r); -} -S_42461:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 17 ),qbs_new_txt_len("#Background Color",17))))||new_error){ -if(qbevent){evnt(26070,5586,"ide_methods.bas");if(r)goto S_42461;} -S_42462:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 1 ),qbs_new_txt_len("~",1))))||new_error){ -if(qbevent){evnt(26070,5587,"ide_methods.bas");if(r)goto S_42462;} -do{ -sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(26070,5588,"ide_methods.bas");}while(r); -do{ -*__BYTE_SHOWLINENUMBERSUSEBG=~(*__BYTE_SHOWLINENUMBERSUSEBG); -if(!qbevent)break;evnt(26070,5589,"ide_methods.bas");}while(r); -S_42465:; -if ((*__BYTE_SHOWLINENUMBERSUSEBG)||new_error){ -if(qbevent){evnt(26070,5590,"ide_methods.bas");if(r)goto S_42465;} -do{ -SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("ShowLineNumbersUseBG",20),qbs_new_txt_len("True",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5591,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(func_chr( 7 ),qbs_new_txt_len("#Background Color",17))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5592,"ide_methods.bas");}while(r); -}else{ -do{ -SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("ShowLineNumbersUseBG",20),qbs_new_txt_len("False",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5594,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Background Color",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5595,"ide_methods.bas");}while(r); -} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,5597,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,5597,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,5598,"ide_methods.bas");}while(r); -} -} -S_42477:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 15 ),qbs_new_txt_len("Sho#w Separator",15))))||new_error){ -if(qbevent){evnt(26070,5602,"ide_methods.bas");if(r)goto S_42477;} -S_42478:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 1 ),qbs_new_txt_len("~",1))))||new_error){ -if(qbevent){evnt(26070,5603,"ide_methods.bas");if(r)goto S_42478;} -do{ -sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(26070,5604,"ide_methods.bas");}while(r); -do{ -*__BYTE_SHOWLINENUMBERSSEPARATOR=~(*__BYTE_SHOWLINENUMBERSSEPARATOR); -if(!qbevent)break;evnt(26070,5605,"ide_methods.bas");}while(r); -S_42481:; -if ((*__BYTE_SHOWLINENUMBERSSEPARATOR)||new_error){ -if(qbevent){evnt(26070,5606,"ide_methods.bas");if(r)goto S_42481;} -do{ -SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("ShowLineNumbersSeparator",24),qbs_new_txt_len("True",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5607,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(func_chr( 7 ),qbs_new_txt_len("Sho#w Separator",15))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5608,"ide_methods.bas");}while(r); -}else{ -do{ -SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("ShowLineNumbersSeparator",24),qbs_new_txt_len("False",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5610,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Sho#w Separator",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5611,"ide_methods.bas");}while(r); -} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,5613,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,5613,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,5614,"ide_methods.bas");}while(r); -} -} -S_42493:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),(qbs_add(qbs_new_txt_len("#Export As... ",15),func_chr( 16 ))))))||new_error){ -if(qbevent){evnt(26070,5618,"ide_methods.bas");if(r)goto S_42493;} -do{ -*_FUNC_IDE2_LONG_IDECONTEXTUALMENU= 3 ; -if(!qbevent)break;evnt(26070,5619,"ide_methods.bas");}while(r); -do{ -goto LABEL_SHOWMENU; -if(!qbevent)break;evnt(26070,5620,"ide_methods.bas");}while(r); -} -S_42497:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Hypertext document (.htm)",26))))||new_error){ -if(qbevent){evnt(26070,5623,"ide_methods.bas");if(r)goto S_42497;} -do{ -sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(26070,5624,"ide_methods.bas");}while(r); -do{ -SUB_EXPORTCODEAS(qbs_new_txt_len("html",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5625,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,5626,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,5626,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,5627,"ide_methods.bas");}while(r); -} -S_42504:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Rich Text document (.rtf)",26))))||new_error){ -if(qbevent){evnt(26070,5630,"ide_methods.bas");if(r)goto S_42504;} -do{ -sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(26070,5631,"ide_methods.bas");}while(r); -do{ -SUB_EXPORTCODEAS(qbs_new_txt_len("rich",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5632,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,5633,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,5633,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,5634,"ide_methods.bas");}while(r); -} -S_42511:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Wiki prepared sample (.txt)",28))))||new_error){ -if(qbevent){evnt(26070,5637,"ide_methods.bas");if(r)goto S_42511;} -do{ -sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(26070,5638,"ide_methods.bas");}while(r); -do{ -SUB_EXPORTCODEAS(qbs_new_txt_len("wiki",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5639,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,5640,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,5640,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,5641,"ide_methods.bas");}while(r); -} -S_42518:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Compiler #Warnings... Ctrl+W",29))))||new_error){ -if(qbevent){evnt(26070,5644,"ide_methods.bas");if(r)goto S_42518;} -do{ -sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(26070,5645,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_RETVAL=FUNC_IDEWARNINGBOX(); -if(!qbevent)break;evnt(26070,5646,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,5648,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,5648,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,5649,"ide_methods.bas");}while(r); -} -S_42525:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Find... Ctrl+F3",17))))||new_error){ -if(qbevent){evnt(26070,5652,"ide_methods.bas");if(r)goto S_42525;} -do{ -sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(26070,5653,"ide_methods.bas");}while(r); -LABEL_IDEFINDJMP:; -if(qbevent){evnt(26070,5654,"ide_methods.bas");r=0;} -do{ -qbs_set(_FUNC_IDE2_STRING_R,FUNC_IDEFIND()); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5655,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,5656,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,5656,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,5658,"ide_methods.bas");}while(r); -} -S_42532:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 6 ),qbs_new_txt_len("Find '",6))))||new_error){ -if(qbevent){evnt(26070,5661,"ide_methods.bas");if(r)goto S_42532;} -do{ -qbs_set(__STRING_IDEFINDTEXT,__STRING_IDECONTEXTUALSEARCH); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5662,"ide_methods.bas");}while(r); -do{ -SUB_IDEADDSEARCHED(__STRING_IDEFINDTEXT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5663,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,5664,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,5664,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDEMF3; -if(!qbevent)break;evnt(26070,5665,"ide_methods.bas");}while(r); -} -S_42539:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Change... Alt+F3",18))))||new_error){ -if(qbevent){evnt(26070,5668,"ide_methods.bas");if(r)goto S_42539;} -do{ -sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(26070,5669,"ide_methods.bas");}while(r); -LABEL_IDEFINDCHANGEJMP:; -if(qbevent){evnt(26070,5670,"ide_methods.bas");r=0;} -do{ -qbs_set(_FUNC_IDE2_STRING_R,FUNC_IDECHANGE()); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5671,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,5672,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,5672,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEALTHIGHLIGHT= 0 ; -if(!qbevent)break;evnt(26070,5673,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); -if(!qbevent)break;evnt(26070,5674,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,5674,"ide_methods.bas");}while(r); -do{ -sub__printstring( 1 , 1 ,__STRING_MENUBAR,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5674,"ide_methods.bas");}while(r); -S_42548:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_IDE2_STRING_R,qbs_new_txt_len("C",1)))|(qbs_equal(_FUNC_IDE2_STRING_R,qbs_new_txt_len("",0)))))||new_error){ -if(qbevent){evnt(26070,5675,"ide_methods.bas");if(r)goto S_42548;} -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,5675,"ide_methods.bas");}while(r); -} -do{ -SUB_IDEADDSEARCHED(__STRING_IDEFINDTEXT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5677,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_OLDCX=*__LONG_IDECX; -if(!qbevent)break;evnt(26070,5679,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_OLDCY=*__LONG_IDECY; -if(!qbevent)break;evnt(26070,5679,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_FOUND= 0 ; -if(!qbevent)break;evnt(26070,5680,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_LOOPED= 0 ; -if(!qbevent)break;evnt(26070,5680,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_CHANGED= 0 ; -if(!qbevent)break;evnt(26070,5681,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_S,__STRING_IDEFINDTEXT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5683,"ide_methods.bas");}while(r); -S_42558:; -if ((-(*__INTEGER_IDEFINDCASESENS== 0 ))||new_error){ -if(qbevent){evnt(26070,5684,"ide_methods.bas");if(r)goto S_42558;} -do{ -qbs_set(_FUNC_IDE2_STRING_S,qbs_ucase(_FUNC_IDE2_STRING_S)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5684,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDE2_LONG_START=*__LONG_IDECY; -if(!qbevent)break;evnt(26070,5685,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_Y=*_FUNC_IDE2_LONG_START; -if(!qbevent)break;evnt(26070,5685,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_STARTX=*__LONG_IDECX; -if(!qbevent)break;evnt(26070,5686,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_X1=*_FUNC_IDE2_LONG_STARTX; -if(!qbevent)break;evnt(26070,5686,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_FIRST= 1 ; -if(!qbevent)break;evnt(26070,5687,"ide_methods.bas");}while(r); -LABEL_IDEFINDNEXT2:; -if(qbevent){evnt(26070,5688,"ide_methods.bas");r=0;} -do{ -qbs_set(_FUNC_IDE2_STRING_L,FUNC_IDEGETLINE(_FUNC_IDE2_LONG_Y)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5690,"ide_methods.bas");}while(r); -S_42567:; -if ((-(*__INTEGER_IDEFINDCASESENS== 0 ))||new_error){ -if(qbevent){evnt(26070,5691,"ide_methods.bas");if(r)goto S_42567;} -do{ -qbs_set(_FUNC_IDE2_STRING_L,qbs_ucase(_FUNC_IDE2_STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5691,"ide_methods.bas");}while(r); -} -S_42570:; -if ((-(*_FUNC_IDE2_LONG_FIRST== 1 ))||new_error){ -if(qbevent){evnt(26070,5693,"ide_methods.bas");if(r)goto S_42570;} -do{ -*_FUNC_IDE2_LONG_FIRST= 0 ; -if(!qbevent)break;evnt(26070,5694,"ide_methods.bas");}while(r); -}else{ -do{ -*_FUNC_IDE2_LONG_X1= 1 ; -if(!qbevent)break;evnt(26070,5696,"ide_methods.bas");}while(r); -S_42574:; -if ((*__INTEGER_IDEFINDBACKWARDS)||new_error){ -if(qbevent){evnt(26070,5697,"ide_methods.bas");if(r)goto S_42574;} -do{ -*_FUNC_IDE2_LONG_X1=_FUNC_IDE2_STRING_L->len-_FUNC_IDE2_STRING_S->len+ 1 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5698,"ide_methods.bas");}while(r); -} -} -S_42578:; -if ((-(*_FUNC_IDE2_LONG_X1< 0 ))||new_error){ -if(qbevent){evnt(26070,5701,"ide_methods.bas");if(r)goto S_42578;} -do{ -*_FUNC_IDE2_LONG_X1= 0 ; -if(!qbevent)break;evnt(26070,5701,"ide_methods.bas");}while(r); -} -LABEL_IDEFINDAGAIN2:; -if(qbevent){evnt(26070,5703,"ide_methods.bas");r=0;} -S_42581:; -if ((*__INTEGER_IDEFINDBACKWARDS)||new_error){ -if(qbevent){evnt(26070,5705,"ide_methods.bas");if(r)goto S_42581;} -do{ -*_FUNC_IDE2_LONG_X= 0 ; -if(!qbevent)break;evnt(26070,5706,"ide_methods.bas");}while(r); -S_42583:; -fornext_value4546=*_FUNC_IDE2_LONG_X1; -fornext_finalvalue4546= 1 ; -fornext_step4546= -1 ; -if (fornext_step4546<0) fornext_step_negative4546=1; else fornext_step_negative4546=0; -if (new_error) goto fornext_error4546; -goto fornext_entrylabel4546; -while(1){ -fornext_value4546=fornext_step4546+(*_FUNC_IDE2_LONG_XX); -fornext_entrylabel4546: -*_FUNC_IDE2_LONG_XX=fornext_value4546; -if (fornext_step_negative4546){ -if (fornext_value4546fornext_finalvalue4546) break; -} -fornext_error4546:; -if(qbevent){evnt(26070,5707,"ide_methods.bas");if(r)goto S_42583;} -S_42584:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_IDE2_STRING_L,*_FUNC_IDE2_LONG_XX)==qbs_asc(_FUNC_IDE2_STRING_S))))||new_error){ -if(qbevent){evnt(26070,5708,"ide_methods.bas");if(r)goto S_42584;} -do{ -*_FUNC_IDE2_LONG_XXO=*_FUNC_IDE2_LONG_XX- 1 ; -if(!qbevent)break;evnt(26070,5709,"ide_methods.bas");}while(r); -S_42586:; -fornext_value4548=*_FUNC_IDE2_LONG_XX; -fornext_finalvalue4548=*_FUNC_IDE2_LONG_XX+_FUNC_IDE2_STRING_S->len- 1 ; -fornext_step4548= 1 ; -if (fornext_step4548<0) fornext_step_negative4548=1; else fornext_step_negative4548=0; -if (new_error) goto fornext_error4548; -goto fornext_entrylabel4548; -while(1){ -fornext_value4548=fornext_step4548+(*_FUNC_IDE2_LONG_XX2); -fornext_entrylabel4548: -*_FUNC_IDE2_LONG_XX2=fornext_value4548; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative4548){ -if (fornext_value4548fornext_finalvalue4548) break; -} -fornext_error4548:; -if(qbevent){evnt(26070,5710,"ide_methods.bas");if(r)goto S_42586;} -S_42587:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_IDE2_STRING_L,*_FUNC_IDE2_LONG_XX2)!=qbs_asc(_FUNC_IDE2_STRING_S,*_FUNC_IDE2_LONG_XX2-*_FUNC_IDE2_LONG_XXO))))||new_error){ -if(qbevent){evnt(26070,5711,"ide_methods.bas");if(r)goto S_42587;} -do{ -goto fornext_exit_4547; -if(!qbevent)break;evnt(26070,5711,"ide_methods.bas");}while(r); -} -fornext_continue_4547:; -} -fornext_exit_4547:; -S_42591:; -if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDE2_LONG_XX2==(*_FUNC_IDE2_LONG_XX+_FUNC_IDE2_STRING_S->len))))||new_error){ -if(qbevent){evnt(26070,5713,"ide_methods.bas");if(r)goto S_42591;} -do{ -*_FUNC_IDE2_LONG_X=*_FUNC_IDE2_LONG_XX; -if(!qbevent)break;evnt(26070,5715,"ide_methods.bas");}while(r); -do{ -goto fornext_exit_4545; -if(!qbevent)break;evnt(26070,5716,"ide_methods.bas");}while(r); -} -} -fornext_continue_4545:; -} -fornext_exit_4545:; -S_42597:; -if (((-(*_FUNC_IDE2_LONG_Y==*_FUNC_IDE2_LONG_START))&(-(*_FUNC_IDE2_LONG_LOOPED== 1 ))&(-(*_FUNC_IDE2_LONG_X<=*_FUNC_IDE2_LONG_STARTX)))||new_error){ -if(qbevent){evnt(26070,5720,"ide_methods.bas");if(r)goto S_42597;} -do{ -*_FUNC_IDE2_LONG_X= 0 ; -if(!qbevent)break;evnt(26070,5720,"ide_methods.bas");}while(r); -} -}else{ -do{ -*_FUNC_IDE2_LONG_X=func_instr(*_FUNC_IDE2_LONG_X1,_FUNC_IDE2_STRING_L,_FUNC_IDE2_STRING_S,0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5722,"ide_methods.bas");}while(r); -S_42602:; -if (((-(*_FUNC_IDE2_LONG_Y==*_FUNC_IDE2_LONG_START))&(-(*_FUNC_IDE2_LONG_LOOPED== 1 ))&(-(*_FUNC_IDE2_LONG_X>=*_FUNC_IDE2_LONG_STARTX)))||new_error){ -if(qbevent){evnt(26070,5723,"ide_methods.bas");if(r)goto S_42602;} -do{ -*_FUNC_IDE2_LONG_X= 0 ; -if(!qbevent)break;evnt(26070,5723,"ide_methods.bas");}while(r); -} -} -S_42606:; -if ((*_FUNC_IDE2_LONG_X)||new_error){ -if(qbevent){evnt(26070,5726,"ide_methods.bas");if(r)goto S_42606;} -S_42607:; -if ((*__INTEGER_IDEFINDWHOLEWORD)||new_error){ -if(qbevent){evnt(26070,5727,"ide_methods.bas");if(r)goto S_42607;} -do{ -*_FUNC_IDE2_LONG_WHOLE= 1 ; -if(!qbevent)break;evnt(26070,5728,"ide_methods.bas");}while(r); -S_42609:; -if ((-(*_FUNC_IDE2_LONG_X> 1 ))||new_error){ -if(qbevent){evnt(26070,5729,"ide_methods.bas");if(r)goto S_42609;} -do{ -*_FUNC_IDE2_LONG_C=qbs_asc(qbs_ucase(func_mid(_FUNC_IDE2_STRING_L,*_FUNC_IDE2_LONG_X- 1 , 1 ,0|1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5730,"ide_methods.bas");}while(r); -S_42611:; -if (((-(*_FUNC_IDE2_LONG_C>= 65 ))&(-(*_FUNC_IDE2_LONG_C<= 90 )))||new_error){ -if(qbevent){evnt(26070,5731,"ide_methods.bas");if(r)goto S_42611;} -do{ -*_FUNC_IDE2_LONG_WHOLE= 0 ; -if(!qbevent)break;evnt(26070,5731,"ide_methods.bas");}while(r); -} -S_42614:; -if (((-(*_FUNC_IDE2_LONG_C>= 48 ))&(-(*_FUNC_IDE2_LONG_C<= 57 )))||new_error){ -if(qbevent){evnt(26070,5732,"ide_methods.bas");if(r)goto S_42614;} -do{ -*_FUNC_IDE2_LONG_WHOLE= 0 ; -if(!qbevent)break;evnt(26070,5732,"ide_methods.bas");}while(r); -} -} -S_42618:; -if ((qbs_cleanup(qbs_tmp_base,-((*_FUNC_IDE2_LONG_X+_FUNC_IDE2_STRING_S->len)<=(_FUNC_IDE2_STRING_L->len))))||new_error){ -if(qbevent){evnt(26070,5734,"ide_methods.bas");if(r)goto S_42618;} -do{ -*_FUNC_IDE2_LONG_C=qbs_asc(qbs_ucase(func_mid(_FUNC_IDE2_STRING_L,*_FUNC_IDE2_LONG_X+_FUNC_IDE2_STRING_S->len, 1 ,0|1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5735,"ide_methods.bas");}while(r); -S_42620:; -if (((-(*_FUNC_IDE2_LONG_C>= 65 ))&(-(*_FUNC_IDE2_LONG_C<= 90 )))||new_error){ -if(qbevent){evnt(26070,5736,"ide_methods.bas");if(r)goto S_42620;} -do{ -*_FUNC_IDE2_LONG_WHOLE= 0 ; -if(!qbevent)break;evnt(26070,5736,"ide_methods.bas");}while(r); -} -S_42623:; -if (((-(*_FUNC_IDE2_LONG_C>= 48 ))&(-(*_FUNC_IDE2_LONG_C<= 57 )))||new_error){ -if(qbevent){evnt(26070,5737,"ide_methods.bas");if(r)goto S_42623;} -do{ -*_FUNC_IDE2_LONG_WHOLE= 0 ; -if(!qbevent)break;evnt(26070,5737,"ide_methods.bas");}while(r); -} -} -S_42627:; -if ((-(*_FUNC_IDE2_LONG_WHOLE== 0 ))||new_error){ -if(qbevent){evnt(26070,5739,"ide_methods.bas");if(r)goto S_42627;} -do{ -*_FUNC_IDE2_LONG_X1=*_FUNC_IDE2_LONG_X+ 1 ; -if(!qbevent)break;evnt(26070,5740,"ide_methods.bas");}while(r); -S_42629:; -if ((*__INTEGER_IDEFINDBACKWARDS)||new_error){ -if(qbevent){evnt(26070,5740,"ide_methods.bas");if(r)goto S_42629;} -do{ -*_FUNC_IDE2_LONG_X1=*_FUNC_IDE2_LONG_X- 1 ; -if(!qbevent)break;evnt(26070,5740,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDE2_LONG_X= 0 ; -if(!qbevent)break;evnt(26070,5741,"ide_methods.bas");}while(r); -S_42633:; -if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_IDE2_LONG_X1> 0 ))&(-(*_FUNC_IDE2_LONG_X1<=_FUNC_IDE2_STRING_L->len))))||new_error){ -if(qbevent){evnt(26070,5742,"ide_methods.bas");if(r)goto S_42633;} -do{ -goto LABEL_IDEFINDAGAIN2; -if(!qbevent)break;evnt(26070,5742,"ide_methods.bas");}while(r); -} -} -} -} -do{ -if(!qbevent)break;evnt(26070,5747,"ide_methods.bas");}while(r); -S_42640:; -if ((*_FUNC_IDE2_LONG_X)||new_error){ -if(qbevent){evnt(26070,5748,"ide_methods.bas");if(r)goto S_42640;} -do{ -SUB_FINDQUOTECOMMENT(_FUNC_IDE2_STRING_L,_FUNC_IDE2_LONG_X,_FUNC_IDE2_BYTE_COMMENT,_FUNC_IDE2_BYTE_QUOTE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5749,"ide_methods.bas");}while(r); -S_42642:; -if (((-(*__INTEGER_IDEFINDNOCOMMENTS!= 0 ))&*_FUNC_IDE2_BYTE_COMMENT)||new_error){ -if(qbevent){evnt(26070,5750,"ide_methods.bas");if(r)goto S_42642;} -do{ -*_FUNC_IDE2_LONG_X= 0 ; -if(!qbevent)break;evnt(26070,5750,"ide_methods.bas");}while(r); -} -S_42645:; -if (((-(*__INTEGER_IDEFINDNOSTRINGS!= 0 ))&*_FUNC_IDE2_BYTE_QUOTE)||new_error){ -if(qbevent){evnt(26070,5751,"ide_methods.bas");if(r)goto S_42645;} -do{ -*_FUNC_IDE2_LONG_X= 0 ; -if(!qbevent)break;evnt(26070,5751,"ide_methods.bas");}while(r); -} -S_42648:; -if (((-(*__INTEGER_IDEFINDONLYCOMMENTS!= 0 ))&(-(*_FUNC_IDE2_BYTE_COMMENT== 0 )))||new_error){ -if(qbevent){evnt(26070,5752,"ide_methods.bas");if(r)goto S_42648;} -do{ -*_FUNC_IDE2_LONG_X= 0 ; -if(!qbevent)break;evnt(26070,5752,"ide_methods.bas");}while(r); -} -S_42651:; -if (((-(*__INTEGER_IDEFINDONLYSTRINGS!= 0 ))&(-(*_FUNC_IDE2_BYTE_QUOTE== 0 )))||new_error){ -if(qbevent){evnt(26070,5753,"ide_methods.bas");if(r)goto S_42651;} -do{ -*_FUNC_IDE2_LONG_X= 0 ; -if(!qbevent)break;evnt(26070,5753,"ide_methods.bas");}while(r); -} -} -S_42655:; -if ((*_FUNC_IDE2_LONG_X)||new_error){ -if(qbevent){evnt(26070,5756,"ide_methods.bas");if(r)goto S_42655;} -do{ -*__LONG_IDESELECT= 1 ; -if(!qbevent)break;evnt(26070,5757,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECX=*_FUNC_IDE2_LONG_X; -if(!qbevent)break;evnt(26070,5758,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECY=*_FUNC_IDE2_LONG_Y; -if(!qbevent)break;evnt(26070,5758,"ide_methods.bas");}while(r); -do{ -SUB_IDECENTERCURRENTLINE(); -if(!qbevent)break;evnt(26070,5759,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESELECTX1=*_FUNC_IDE2_LONG_X+_FUNC_IDE2_STRING_S->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5760,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESELECTY1=*_FUNC_IDE2_LONG_Y; -if(!qbevent)break;evnt(26070,5760,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_FOUND= 1 ; -if(!qbevent)break;evnt(26070,5762,"ide_methods.bas");}while(r); -do{ -SUB_IDESHOWTEXT(); -if(!qbevent)break;evnt(26070,5763,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,5764,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(NULL,NULL, 1 ,NULL,NULL,4); -if(!qbevent)break;evnt(26070,5764,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,5764,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,5765,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_R,FUNC_IDECHANGEIT()); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5766,"ide_methods.bas");}while(r); -do{ -SUB_IDEDELTXT(); -if(!qbevent)break;evnt(26070,5767,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,5768,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,5768,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(26070,5769,"ide_methods.bas");}while(r); -S_42673:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_R,qbs_new_txt_len("C",1))))||new_error){ -if(qbevent){evnt(26070,5770,"ide_methods.bas");if(r)goto S_42673;} -do{ -*__LONG_IDECX=*_FUNC_IDE2_LONG_OLDCX; -if(!qbevent)break;evnt(26070,5771,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECY=*_FUNC_IDE2_LONG_OLDCY; -if(!qbevent)break;evnt(26070,5771,"ide_methods.bas");}while(r); -S_42676:; -if ((*_FUNC_IDE2_LONG_CHANGED)||new_error){ -if(qbevent){evnt(26070,5772,"ide_methods.bas");if(r)goto S_42676;} -do{ -SUB_IDESHOWTEXT(); -if(!qbevent)break;evnt(26070,5773,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,5774,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(NULL,NULL, 1 ,NULL,NULL,4); -if(!qbevent)break;evnt(26070,5774,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,5774,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,5775,"ide_methods.bas");}while(r); -do{ -SUB_IDECHANGED(_FUNC_IDE2_LONG_CHANGED); -if(!qbevent)break;evnt(26070,5776,"ide_methods.bas");}while(r); -} -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,5778,"ide_methods.bas");}while(r); -} -S_42686:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_R,qbs_new_txt_len("Y",1))))||new_error){ -if(qbevent){evnt(26070,5780,"ide_methods.bas");if(r)goto S_42686;} -do{ -qbs_set(_FUNC_IDE2_STRING_L,FUNC_IDEGETLINE(__LONG_IDECY)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5781,"ide_methods.bas");}while(r); -do{ -*__INTEGER_IDECHANGEMADE= 1 ; -if(!qbevent)break;evnt(26070,5782,"ide_methods.bas");}while(r); -do{ -*__BYTE_STARTPAUSEDPENDING= 0 ; -if(!qbevent)break;evnt(26070,5783,"ide_methods.bas");}while(r); -S_42690:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDE2_STRING_L->len>=*__LONG_IDESELECTX1)))||new_error){ -if(qbevent){evnt(26070,5784,"ide_methods.bas");if(r)goto S_42690;} -do{ -qbs_set(_FUNC_IDE2_STRING_L,qbs_add(qbs_add(qbs_left(_FUNC_IDE2_STRING_L,*__LONG_IDECX- 1 ),__STRING_IDECHANGETO),qbs_right(_FUNC_IDE2_STRING_L,_FUNC_IDE2_STRING_L->len-*__LONG_IDESELECTX1+ 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5785,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDE2_STRING_L,qbs_add(qbs_left(_FUNC_IDE2_STRING_L,*__LONG_IDECX- 1 ),__STRING_IDECHANGETO)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5787,"ide_methods.bas");}while(r); -} -do{ -SUB_IDESETLINE(__LONG_IDECY,_FUNC_IDE2_STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5789,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_CHANGED=*_FUNC_IDE2_LONG_CHANGED+ 1 ; -if(!qbevent)break;evnt(26070,5790,"ide_methods.bas");}while(r); -S_42697:; -if ((-(*__INTEGER_IDEFINDCASESENS== 0 ))||new_error){ -if(qbevent){evnt(26070,5791,"ide_methods.bas");if(r)goto S_42697;} -do{ -qbs_set(_FUNC_IDE2_STRING_L,qbs_ucase(_FUNC_IDE2_STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5791,"ide_methods.bas");}while(r); -} -S_42700:; -if ((*__INTEGER_IDEFINDBACKWARDS)||new_error){ -if(qbevent){evnt(26070,5793,"ide_methods.bas");if(r)goto S_42700;} -S_42701:; -if (((-(*_FUNC_IDE2_LONG_X<=*_FUNC_IDE2_LONG_STARTX))&(-(*_FUNC_IDE2_LONG_Y==*_FUNC_IDE2_LONG_START)))||new_error){ -if(qbevent){evnt(26070,5794,"ide_methods.bas");if(r)goto S_42701;} -do{ -*_FUNC_IDE2_LONG_STARTX=*_FUNC_IDE2_LONG_STARTX-_FUNC_IDE2_STRING_S->len+__STRING_IDECHANGETO->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5794,"ide_methods.bas");}while(r); -} -}else{ -S_42705:; -if (((-(*_FUNC_IDE2_LONG_X<=*_FUNC_IDE2_LONG_STARTX))&(-(*_FUNC_IDE2_LONG_Y==*_FUNC_IDE2_LONG_START))&(-(*_FUNC_IDE2_LONG_LOOPED== 1 )))||new_error){ -if(qbevent){evnt(26070,5796,"ide_methods.bas");if(r)goto S_42705;} -do{ -*_FUNC_IDE2_LONG_STARTX=*_FUNC_IDE2_LONG_STARTX-_FUNC_IDE2_STRING_S->len+__STRING_IDECHANGETO->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5796,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDE2_LONG_X=*_FUNC_IDE2_LONG_X+__STRING_IDECHANGETO->len- 1 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5797,"ide_methods.bas");}while(r); -} -}else{ -} -S_42712:; -if ((*__INTEGER_IDEFINDBACKWARDS)||new_error){ -if(qbevent){evnt(26070,5803,"ide_methods.bas");if(r)goto S_42712;} -do{ -*_FUNC_IDE2_LONG_X1=*_FUNC_IDE2_LONG_X- 1 ; -if(!qbevent)break;evnt(26070,5803,"ide_methods.bas");}while(r); -}else{ -do{ -*_FUNC_IDE2_LONG_X1=*_FUNC_IDE2_LONG_X+ 1 ; -if(!qbevent)break;evnt(26070,5803,"ide_methods.bas");}while(r); -} -do{ -goto LABEL_IDEFINDAGAIN2; -if(!qbevent)break;evnt(26070,5804,"ide_methods.bas");}while(r); -} -S_42719:; -if ((*__INTEGER_IDEFINDBACKWARDS)||new_error){ -if(qbevent){evnt(26070,5807,"ide_methods.bas");if(r)goto S_42719;} -do{ -*_FUNC_IDE2_LONG_Y=*_FUNC_IDE2_LONG_Y- 1 ; -if(!qbevent)break;evnt(26070,5808,"ide_methods.bas");}while(r); -S_42721:; -if (((-(*_FUNC_IDE2_LONG_Y==(*_FUNC_IDE2_LONG_START- 1 )))&(-(*_FUNC_IDE2_LONG_LOOPED== 1 )))||new_error){ -if(qbevent){evnt(26070,5809,"ide_methods.bas");if(r)goto S_42721;} -do{ -goto LABEL_FINISHEDCHANGE; -if(!qbevent)break;evnt(26070,5810,"ide_methods.bas");}while(r); -} -S_42724:; -if ((-(*_FUNC_IDE2_LONG_Y< 1 ))||new_error){ -if(qbevent){evnt(26070,5812,"ide_methods.bas");if(r)goto S_42724;} -do{ -*_FUNC_IDE2_LONG_Y=*__LONG_IDEN; -if(!qbevent)break;evnt(26070,5812,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_LOOPED= 1 ; -if(!qbevent)break;evnt(26070,5812,"ide_methods.bas");}while(r); -} -do{ -goto LABEL_IDEFINDNEXT2; -if(!qbevent)break;evnt(26070,5813,"ide_methods.bas");}while(r); -}else{ -do{ -*_FUNC_IDE2_LONG_Y=*_FUNC_IDE2_LONG_Y+ 1 ; -if(!qbevent)break;evnt(26070,5815,"ide_methods.bas");}while(r); -S_42731:; -if (((-(*_FUNC_IDE2_LONG_Y==(*_FUNC_IDE2_LONG_START+ 1 )))&(-(*_FUNC_IDE2_LONG_LOOPED== 1 )))||new_error){ -if(qbevent){evnt(26070,5816,"ide_methods.bas");if(r)goto S_42731;} -do{ -goto LABEL_FINISHEDCHANGE; -if(!qbevent)break;evnt(26070,5817,"ide_methods.bas");}while(r); -} -S_42734:; -if ((-(*_FUNC_IDE2_LONG_Y>*__LONG_IDEN))||new_error){ -if(qbevent){evnt(26070,5819,"ide_methods.bas");if(r)goto S_42734;} -do{ -*_FUNC_IDE2_LONG_Y= 1 ; -if(!qbevent)break;evnt(26070,5819,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_LOOPED= 1 ; -if(!qbevent)break;evnt(26070,5819,"ide_methods.bas");}while(r); -} -do{ -goto LABEL_IDEFINDNEXT2; -if(!qbevent)break;evnt(26070,5820,"ide_methods.bas");}while(r); -} -LABEL_FINISHEDCHANGE:; -if(qbevent){evnt(26070,5825,"ide_methods.bas");r=0;} -do{ -*__LONG_IDECX=*_FUNC_IDE2_LONG_OLDCX; -if(!qbevent)break;evnt(26070,5826,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECY=*_FUNC_IDE2_LONG_OLDCY; -if(!qbevent)break;evnt(26070,5826,"ide_methods.bas");}while(r); -S_42742:; -if ((*_FUNC_IDE2_LONG_CHANGED)||new_error){ -if(qbevent){evnt(26070,5827,"ide_methods.bas");if(r)goto S_42742;} -do{ -SUB_IDESHOWTEXT(); -if(!qbevent)break;evnt(26070,5828,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,5829,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(NULL,NULL, 1 ,NULL,NULL,4); -if(!qbevent)break;evnt(26070,5829,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,5829,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,5830,"ide_methods.bas");}while(r); -do{ -SUB_IDECHANGED(_FUNC_IDE2_LONG_CHANGED); -if(!qbevent)break;evnt(26070,5831,"ide_methods.bas");}while(r); -S_42749:; -}else{ -if (*_FUNC_IDE2_LONG_FOUND){ -if(qbevent){evnt(26070,5832,"ide_methods.bas");if(r)goto S_42749;} -do{ -SUB_IDESHOWTEXT(); -if(!qbevent)break;evnt(26070,5833,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,5834,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(NULL,NULL, 1 ,NULL,NULL,4); -if(!qbevent)break;evnt(26070,5834,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,5834,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,5835,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Search complete",15),qbs_new_txt_len("No changes made.",16),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5836,"ide_methods.bas");}while(r); -}else{ -do{ -SUB_IDENOMATCH(&(pass4563= -1 )); -if(!qbevent)break;evnt(26070,5838,"ide_methods.bas");}while(r); -} -} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,5840,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,5840,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,5841,"ide_methods.bas");}while(r); -} -S_42763:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Clear Search #History...",24))))||new_error){ -if(qbevent){evnt(26070,5844,"ide_methods.bas");if(r)goto S_42763;} -do{ -sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(26070,5845,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_R,FUNC_IDECLEARHISTORY(qbs_new_txt_len("SEARCH",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5846,"ide_methods.bas");}while(r); -S_42766:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_R,qbs_new_txt_len("Y",1))))||new_error){ -if(qbevent){evnt(26070,5847,"ide_methods.bas");if(r)goto S_42766;} -do{ -*_FUNC_IDE2_LONG_FH=func_freefile(); -if(!qbevent)break;evnt(26070,5848,"ide_methods.bas");}while(r); -do{ -sub_open(qbs_new_txt_len(".\\internal\\temp\\searched.bin",28), 4 ,NULL,NULL,*_FUNC_IDE2_LONG_FH,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5849,"ide_methods.bas");}while(r); -do{ -sub_close(*_FUNC_IDE2_LONG_FH,1); -if(!qbevent)break;evnt(26070,5849,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_IDEFINDTEXT,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5850,"ide_methods.bas");}while(r); -} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,5852,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,5852,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,5853,"ide_methods.bas");}while(r); -} -S_42776:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Repeat Last Find (Shift+) F3",30))))||new_error){ -if(qbevent){evnt(26070,5856,"ide_methods.bas");if(r)goto S_42776;} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,5857,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,5857,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDEMF3; -if(!qbevent)break;evnt(26070,5858,"ide_methods.bas");}while(r); -} -S_42781:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Cl#ear Del",11))))||new_error){ -if(qbevent){evnt(26070,5861,"ide_methods.bas");if(r)goto S_42781;} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,5862,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,5862,"ide_methods.bas");}while(r); -S_42784:; -if (((-(*__LONG_IDESYSTEM== 1 ))&(-(*__LONG_IDESELECT== 1 )))||new_error){ -if(qbevent){evnt(26070,5863,"ide_methods.bas");if(r)goto S_42784;} -do{ -*__INTEGER_IDECHANGEMADE= 1 ; -if(!qbevent)break;evnt(26070,5864,"ide_methods.bas");}while(r); -do{ -*__BYTE_STARTPAUSEDPENDING= 0 ; -if(!qbevent)break;evnt(26070,5865,"ide_methods.bas");}while(r); -do{ -SUB_DELSELECT(); -if(!qbevent)break;evnt(26070,5866,"ide_methods.bas");}while(r); -S_42788:; -}else{ -if (-(*__LONG_IDESYSTEM== 2 )){ -if(qbevent){evnt(26070,5867,"ide_methods.bas");if(r)goto S_42788;} -do{ -goto LABEL_DELETESELECTIONSEARCHFIELD; -if(!qbevent)break;evnt(26070,5868,"ide_methods.bas");}while(r); -} -} -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,5870,"ide_methods.bas");}while(r); -} -S_42793:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Paste Shift+Ins or Ctrl+V",27))))||new_error){ -if(qbevent){evnt(26070,5873,"ide_methods.bas");if(r)goto S_42793;} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,5874,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,5874,"ide_methods.bas");}while(r); -S_42796:; -if ((-(*__LONG_IDESYSTEM== 1 ))||new_error){ -if(qbevent){evnt(26070,5875,"ide_methods.bas");if(r)goto S_42796;} -do{ -goto LABEL_IDEMPASTE; -if(!qbevent)break;evnt(26070,5875,"ide_methods.bas");}while(r); -} -S_42799:; -if ((-(*__LONG_IDESYSTEM== 2 ))||new_error){ -if(qbevent){evnt(26070,5876,"ide_methods.bas");if(r)goto S_42799;} -do{ -goto LABEL_PASTEINTOSEARCHFIELD; -if(!qbevent)break;evnt(26070,5876,"ide_methods.bas");}while(r); -} -} -S_42803:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Copy Ctrl+Ins or Ctrl+C",25))))||new_error){ -if(qbevent){evnt(26070,5879,"ide_methods.bas");if(r)goto S_42803;} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,5880,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,5880,"ide_methods.bas");}while(r); -S_42806:; -if (((-(*__LONG_IDESYSTEM== 1 ))&(-(*__LONG_IDESELECT== 1 )))||new_error){ -if(qbevent){evnt(26070,5881,"ide_methods.bas");if(r)goto S_42806;} -do{ -goto LABEL_COPY2CLIP; -if(!qbevent)break;evnt(26070,5881,"ide_methods.bas");}while(r); -} -S_42809:; -if ((-(*__LONG_IDESYSTEM== 2 ))||new_error){ -if(qbevent){evnt(26070,5882,"ide_methods.bas");if(r)goto S_42809;} -do{ -goto LABEL_COPYSEARCHTERM2CLIP; -if(!qbevent)break;evnt(26070,5882,"ide_methods.bas");}while(r); -} -S_42812:; -if (((-(*__LONG_IDESYSTEM== 3 ))&(-(*__LONG_HELP_SELECT== 2 )))||new_error){ -if(qbevent){evnt(26070,5883,"ide_methods.bas");if(r)goto S_42812;} -do{ -goto LABEL_COPYHELP2CLIP; -if(!qbevent)break;evnt(26070,5883,"ide_methods.bas");}while(r); -} -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,5884,"ide_methods.bas");}while(r); -} -S_42817:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Cu#t Shift+Del or Ctrl+X",25))))||new_error){ -if(qbevent){evnt(26070,5887,"ide_methods.bas");if(r)goto S_42817;} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,5888,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,5888,"ide_methods.bas");}while(r); -S_42820:; -if (((-(*__LONG_IDESYSTEM== 1 ))&(-(*__LONG_IDESELECT== 1 )))||new_error){ -if(qbevent){evnt(26070,5889,"ide_methods.bas");if(r)goto S_42820;} -do{ -qbs_set(__STRING_K,qbs_add(func_chr( 0 ),qbs_new_txt_len("S",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5890,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDEMCUT; -if(!qbevent)break;evnt(26070,5891,"ide_methods.bas");}while(r); -S_42823:; -}else{ -if (-(*__LONG_IDESYSTEM== 2 )){ -if(qbevent){evnt(26070,5892,"ide_methods.bas");if(r)goto S_42823;} -do{ -goto LABEL_CUTTOCLIPBOARDSEARCHFIELD; -if(!qbevent)break;evnt(26070,5893,"ide_methods.bas");}while(r); -} -} -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,5895,"ide_methods.bas");}while(r); -} -S_42828:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Undo Ctrl+Z",13))))||new_error){ -if(qbevent){evnt(26070,5898,"ide_methods.bas");if(r)goto S_42828;} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,5899,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,5899,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDEMUNDO; -if(!qbevent)break;evnt(26070,5900,"ide_methods.bas");}while(r); -} -S_42833:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Redo Ctrl+Y",13))))||new_error){ -if(qbevent){evnt(26070,5903,"ide_methods.bas");if(r)goto S_42833;} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,5904,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,5904,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDEMREDO; -if(!qbevent)break;evnt(26070,5905,"ide_methods.bas");}while(r); -} -S_42838:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Select #All Ctrl+A",19))))||new_error){ -if(qbevent){evnt(26070,5909,"ide_methods.bas");if(r)goto S_42838;} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,5910,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,5910,"ide_methods.bas");}while(r); -S_42841:; -if ((-(*__LONG_IDESYSTEM== 1 ))||new_error){ -if(qbevent){evnt(26070,5911,"ide_methods.bas");if(r)goto S_42841;} -do{ -goto LABEL_IDEMSELECTALL; -if(!qbevent)break;evnt(26070,5911,"ide_methods.bas");}while(r); -} -S_42844:; -if ((-(*__LONG_IDESYSTEM== 2 ))||new_error){ -if(qbevent){evnt(26070,5912,"ide_methods.bas");if(r)goto S_42844;} -do{ -goto LABEL_SELECTALLINSEARCHFIELD; -if(!qbevent)break;evnt(26070,5912,"ide_methods.bas");}while(r); -} -S_42847:; -if ((-(*__LONG_IDESYSTEM== 3 ))||new_error){ -if(qbevent){evnt(26070,5913,"ide_methods.bas");if(r)goto S_42847;} -do{ -goto LABEL_SELECTALLINHELP; -if(!qbevent)break;evnt(26070,5913,"ide_methods.bas");}while(r); -} -} -S_42851:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Clo#se Help ESC",16))))||new_error){ -if(qbevent){evnt(26070,5916,"ide_methods.bas");if(r)goto S_42851;} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,5917,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,5917,"ide_methods.bas");}while(r); -do{ -goto LABEL_CLOSEHELP; -if(!qbevent)break;evnt(26070,5918,"ide_methods.bas");}while(r); -} -S_42856:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Start F5",10))))||new_error){ -if(qbevent){evnt(26070,5921,"ide_methods.bas");if(r)goto S_42856;} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,5922,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,5922,"ide_methods.bas");}while(r); -do{ -*__LONG_STARTPAUSED= 0 ; -if(!qbevent)break;evnt(26070,5923,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDEMRUN; -if(!qbevent)break;evnt(26070,5924,"ide_methods.bas");}while(r); -} -S_42862:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Run only (No exe)",17))))||new_error){ -if(qbevent){evnt(26070,5927,"ide_methods.bas");if(r)goto S_42862;} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,5928,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,5928,"ide_methods.bas");}while(r); -do{ -*__INTEGER_NOEXESAVED= -1 ; -if(!qbevent)break;evnt(26070,5929,"ide_methods.bas");}while(r); -do{ -*__LONG_STARTPAUSED= 0 ; -if(!qbevent)break;evnt(26070,5930,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDEMRUN; -if(!qbevent)break;evnt(26070,5931,"ide_methods.bas");}while(r); -} -S_42869:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Modify #COMMAND$...",19))))||new_error){ -if(qbevent){evnt(26070,5936,"ide_methods.bas");if(r)goto S_42869;} -do{ -sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(26070,5937,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_MODIFYCOMMAND,qbs_add(qbs_new_txt_len(" ",1),FUNC_IDEINPUTBOX(qbs_new_txt_len("Modify COMMAND$",15),qbs_new_txt_len("#Enter text for COMMAND$",24),qbs__trim(__STRING_MODIFYCOMMAND),qbs_new_txt_len("",0),&(pass4564= 60 ),&(pass4565= 0 ),&(pass4566= 0 )))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5938,"ide_methods.bas");}while(r); -S_42872:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs__trim(__STRING_MODIFYCOMMAND),qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,5939,"ide_methods.bas");if(r)goto S_42872;} -do{ -qbs_set(__STRING_MODIFYCOMMAND,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5939,"ide_methods.bas");}while(r); -} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,5941,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,5941,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,5942,"ide_methods.bas");}while(r); -} -S_42879:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Make E#XE Only F11",19)))|(qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Make E#xecutable Only F11",26)))))||new_error){ -if(qbevent){evnt(26070,5945,"ide_methods.bas");if(r)goto S_42879;} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,5946,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,5946,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDEMEXE; -if(!qbevent)break;evnt(26070,5947,"ide_methods.bas");}while(r); -} -S_42884:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Start #Paused F7 or F8",23))))||new_error){ -if(qbevent){evnt(26070,5950,"ide_methods.bas");if(r)goto S_42884;} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,5951,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,5951,"ide_methods.bas");}while(r); -LABEL_STARTPAUSEDMENUHANDLER:; -if(qbevent){evnt(26070,5952,"ide_methods.bas");r=0;} -S_42887:; -if ((-(*__LONG_VWATCHON== 0 ))||new_error){ -if(qbevent){evnt(26070,5953,"ide_methods.bas");if(r)goto S_42887;} -S_42888:; -if ((-(*__BYTE_AUTOADDDEBUGCOMMAND== 0 ))||new_error){ -if(qbevent){evnt(26070,5954,"ide_methods.bas");if(r)goto S_42888;} -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,5955,"ide_methods.bas");}while(r); -do{ -SUB_CLEARSTATUSWINDOW(&(pass4567= 2 )); -if(!qbevent)break;evnt(26070,5956,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 14 , 1 ,NULL,3); -if(!qbevent)break;evnt(26070,5957,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_X= 2 ; -if(!qbevent)break;evnt(26070,5958,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_Y=*__LONG_IDEWY- 2 ; -if(!qbevent)break;evnt(26070,5959,"ide_methods.bas");}while(r); -do{ -SUB_PRINTWRAPSTATUS(&(pass4568=*_FUNC_IDE2_LONG_X),&(pass4569=*_FUNC_IDE2_LONG_Y),&(pass4570=*_FUNC_IDE2_LONG_X),qbs_new_txt_len("$DEBUG metacommand is required to start paused.",47)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5960,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,5961,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,5962,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDE2_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Start Paused",12),qbs_new_txt_len("Insert $DEBUG metacommand?",26),qbs_new_txt_len("#Yes;#No;#Don't show this again",31)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5964,"ide_methods.bas");}while(r); -S_42899:; -if ((-(*_FUNC_IDE2_LONG_RESULT== 1 ))||new_error){ -if(qbevent){evnt(26070,5965,"ide_methods.bas");if(r)goto S_42899;} -do{ -*__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(26070,5966,"ide_methods.bas");}while(r); -do{ -SUB_IDEINSLINE(&(pass4571= 1 ),FUNC_SCASE(qbs_new_txt_len("$Debug",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5967,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECY=*__LONG_IDECY+ 1 ; -if(!qbevent)break;evnt(26070,5968,"ide_methods.bas");}while(r); -do{ -*__INTEGER_IDECHANGEMADE= 1 ; -if(!qbevent)break;evnt(26070,5969,"ide_methods.bas");}while(r); -do{ -*__LONG_STARTPAUSED= -1 ; -if(!qbevent)break;evnt(26070,5970,"ide_methods.bas");}while(r); -do{ -*__BYTE_STARTPAUSEDPENDING= -1 ; -if(!qbevent)break;evnt(26070,5971,"ide_methods.bas");}while(r); -do{ -goto LABEL_SPECIALCHAR; -if(!qbevent)break;evnt(26070,5972,"ide_methods.bas");}while(r); -S_42907:; -}else{ -if (-(*_FUNC_IDE2_LONG_RESULT== 3 )){ -if(qbevent){evnt(26070,5973,"ide_methods.bas");if(r)goto S_42907;} -do{ -*_FUNC_IDE2_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Debug",5),qbs_new_txt_len("You can reenable the 'Auto-add $Debug Metacommand' feature\\nin the Debug menu.",78),qbs_new_txt_len("#OK",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5974,"ide_methods.bas");}while(r); -do{ -*__BYTE_AUTOADDDEBUGCOMMAND= 0 ; -if(!qbevent)break;evnt(26070,5975,"ide_methods.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_DEBUGSETTINGSSECTION,qbs_new_txt_len("AutoAddDebugCommand",19),qbs_new_txt_len("False",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5976,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*__INTEGER_DEBUGMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_DEBUGMENUAUTOADDCOMMAND)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Auto-add $#Debug Metacommand",28)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5977,"ide_methods.bas");}while(r); -} -} -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,5979,"ide_methods.bas");}while(r); -}else{ -do{ -*__BYTE_STARTPAUSEDPENDING= 0 ; -if(!qbevent)break;evnt(26070,5981,"ide_methods.bas");}while(r); -do{ -*__LONG_STARTPAUSED= -1 ; -if(!qbevent)break;evnt(26070,5982,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDEMRUN; -if(!qbevent)break;evnt(26070,5983,"ide_methods.bas");}while(r); -} -} -S_42920:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Watch List... F4",18))))||new_error){ -if(qbevent){evnt(26070,5987,"ide_methods.bas");if(r)goto S_42920;} -S_42921:; -if ((-(*__LONG_IDEDEBUGMODE== 2 ))||new_error){ -if(qbevent){evnt(26070,5988,"ide_methods.bas");if(r)goto S_42921;} -do{ -*__LONG_IDEDEBUGMODE= 16 ; -if(!qbevent)break;evnt(26070,5989,"ide_methods.bas");}while(r); -do{ -goto LABEL_ENTERDEBUGMODE; -if(!qbevent)break;evnt(26070,5990,"ide_methods.bas");}while(r); -}else{ -do{ -sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(26070,5992,"ide_methods.bas");}while(r); -LABEL_SHOWWATCHLIST:; -if(qbevent){evnt(26070,5993,"ide_methods.bas");r=0;} -S_42926:; -if ((-(*__LONG_VWATCHON== 0 ))||new_error){ -if(qbevent){evnt(26070,5994,"ide_methods.bas");if(r)goto S_42926;} -S_42927:; -if ((-(*__BYTE_AUTOADDDEBUGCOMMAND== 0 ))||new_error){ -if(qbevent){evnt(26070,5995,"ide_methods.bas");if(r)goto S_42927;} -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,5996,"ide_methods.bas");}while(r); -do{ -SUB_CLEARSTATUSWINDOW(&(pass4572= 2 )); -if(!qbevent)break;evnt(26070,5997,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 14 , 1 ,NULL,3); -if(!qbevent)break;evnt(26070,5998,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_X= 2 ; -if(!qbevent)break;evnt(26070,5999,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_Y=*__LONG_IDEWY- 2 ; -if(!qbevent)break;evnt(26070,6000,"ide_methods.bas");}while(r); -do{ -SUB_PRINTWRAPSTATUS(&(pass4573=*_FUNC_IDE2_LONG_X),&(pass4574=*_FUNC_IDE2_LONG_Y),&(pass4575=*_FUNC_IDE2_LONG_X),qbs_new_txt_len("$DEBUG metacommand is required for Watch List functionality.",60)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6001,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,6002,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,6003,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDE2_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Watch List",10),qbs_new_txt_len("Insert $DEBUG metacommand?",26),qbs_new_txt_len("#Yes;#No;#Don't show this again",31)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6005,"ide_methods.bas");}while(r); -S_42938:; -if ((-(*_FUNC_IDE2_LONG_RESULT== 1 ))||new_error){ -if(qbevent){evnt(26070,6006,"ide_methods.bas");if(r)goto S_42938;} -do{ -*__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(26070,6007,"ide_methods.bas");}while(r); -do{ -SUB_IDEINSLINE(&(pass4576= 1 ),FUNC_SCASE(qbs_new_txt_len("$Debug",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6008,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECY=*__LONG_IDECY+ 1 ; -if(!qbevent)break;evnt(26070,6009,"ide_methods.bas");}while(r); -do{ -*__INTEGER_IDECHANGEMADE= 1 ; -if(!qbevent)break;evnt(26070,6010,"ide_methods.bas");}while(r); -S_42943:; -}else{ -if (-(*_FUNC_IDE2_LONG_RESULT== 3 )){ -if(qbevent){evnt(26070,6011,"ide_methods.bas");if(r)goto S_42943;} -do{ -*_FUNC_IDE2_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Debug",5),qbs_new_txt_len("You can reenable the 'Auto-add $Debug Metacommand' feature\\nin the Debug menu.",78),qbs_new_txt_len("#OK",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6012,"ide_methods.bas");}while(r); -do{ -*__BYTE_AUTOADDDEBUGCOMMAND= 0 ; -if(!qbevent)break;evnt(26070,6013,"ide_methods.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_DEBUGSETTINGSSECTION,qbs_new_txt_len("AutoAddDebugCommand",19),qbs_new_txt_len("False",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6014,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*__INTEGER_DEBUGMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_DEBUGMENUAUTOADDCOMMAND)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Auto-add $#Debug Metacommand",28)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6015,"ide_methods.bas");}while(r); -} -} -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,6017,"ide_methods.bas");}while(r); -}else{ -S_42951:; -if ((-(*__LONG_IDECOMPILING== 1 ))||new_error){ -if(qbevent){evnt(26070,6019,"ide_methods.bas");if(r)goto S_42951;} -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,6020,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 14 , 1 ,NULL,3); -if(!qbevent)break;evnt(26070,6021,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_X= 2 ; -if(!qbevent)break;evnt(26070,6022,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_Y=*__LONG_IDEWY- 2 ; -if(!qbevent)break;evnt(26070,6023,"ide_methods.bas");}while(r); -do{ -SUB_PRINTWRAPSTATUS(&(pass4577=*_FUNC_IDE2_LONG_X),&(pass4578=*_FUNC_IDE2_LONG_Y),&(pass4579=*_FUNC_IDE2_LONG_X),qbs_new_txt_len("Variable List will be available after syntax checking is done...",64)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6024,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_BYTE_WAITINGFORVARLIST= 1 ; -if(!qbevent)break;evnt(26070,6025,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,6026,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,6027,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDE2_STRING_RESULT,FUNC_IDEVARIABLEWATCHBOX(qbs_new_txt_len("",0),qbs_new_txt_len("",0),&(pass4580= 0 ),&(pass4581= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6029,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,6030,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,6030,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,6031,"ide_methods.bas");}while(r); -} -} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,6034,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,6034,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,6035,"ide_methods.bas");}while(r); -} -} -S_42972:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Call #Stack... F12",19)))|(qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Call Stack... F12",18)))))||new_error){ -if(qbevent){evnt(26070,6039,"ide_methods.bas");if(r)goto S_42972;} -S_42973:; -if ((-(*__LONG_IDEDEBUGMODE== 2 ))||new_error){ -if(qbevent){evnt(26070,6040,"ide_methods.bas");if(r)goto S_42973;} -do{ -*__LONG_IDEDEBUGMODE= 3 ; -if(!qbevent)break;evnt(26070,6041,"ide_methods.bas");}while(r); -do{ -goto LABEL_ENTERDEBUGMODE; -if(!qbevent)break;evnt(26070,6042,"ide_methods.bas");}while(r); -}else{ -do{ -sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(26070,6044,"ide_methods.bas");}while(r); -LABEL_SHOWCALLSTACKDIALOG:; -if(qbevent){evnt(26070,6045,"ide_methods.bas");r=0;} -do{ -*_FUNC_IDE2_LONG_RETVAL=FUNC_IDECALLSTACKBOX(); -if(!qbevent)break;evnt(26070,6046,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,6048,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,6048,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,6049,"ide_methods.bas");}while(r); -} -} -S_42984:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Continue F5",13))))||new_error){ -if(qbevent){evnt(26070,6053,"ide_methods.bas");if(r)goto S_42984;} -do{ -*__LONG_IDEDEBUGMODE= 4 ; -if(!qbevent)break;evnt(26070,6054,"ide_methods.bas");}while(r); -do{ -goto LABEL_ENTERDEBUGMODE; -if(!qbevent)break;evnt(26070,6055,"ide_methods.bas");}while(r); -} -S_42988:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Step O#ut F6",13))))||new_error){ -if(qbevent){evnt(26070,6058,"ide_methods.bas");if(r)goto S_42988;} -do{ -*__LONG_IDEDEBUGMODE= 5 ; -if(!qbevent)break;evnt(26070,6059,"ide_methods.bas");}while(r); -do{ -goto LABEL_ENTERDEBUGMODE; -if(!qbevent)break;evnt(26070,6060,"ide_methods.bas");}while(r); -} -S_42992:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Ste#p Into F7",14))))||new_error){ -if(qbevent){evnt(26070,6063,"ide_methods.bas");if(r)goto S_42992;} -do{ -*__LONG_IDEDEBUGMODE= 7 ; -if(!qbevent)break;evnt(26070,6064,"ide_methods.bas");}while(r); -do{ -goto LABEL_ENTERDEBUGMODE; -if(!qbevent)break;evnt(26070,6065,"ide_methods.bas");}while(r); -} -S_42996:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Step #Over F8",14))))||new_error){ -if(qbevent){evnt(26070,6068,"ide_methods.bas");if(r)goto S_42996;} -do{ -*__LONG_IDEDEBUGMODE= 6 ; -if(!qbevent)break;evnt(26070,6069,"ide_methods.bas");}while(r); -do{ -goto LABEL_ENTERDEBUGMODE; -if(!qbevent)break;evnt(26070,6070,"ide_methods.bas");}while(r); -} -S_43000:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Run To This Line Ctrl+Shift+G",31))))||new_error){ -if(qbevent){evnt(26070,6073,"ide_methods.bas");if(r)goto S_43000;} -do{ -*__LONG_IDEDEBUGMODE= 8 ; -if(!qbevent)break;evnt(26070,6074,"ide_methods.bas");}while(r); -do{ -goto LABEL_ENTERDEBUGMODE; -if(!qbevent)break;evnt(26070,6075,"ide_methods.bas");}while(r); -} -S_43004:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Exit $DEBUG mode ESC",22))))||new_error){ -if(qbevent){evnt(26070,6078,"ide_methods.bas");if(r)goto S_43004;} -do{ -*__LONG_IDEDEBUGMODE= 9 ; -if(!qbevent)break;evnt(26070,6079,"ide_methods.bas");}while(r); -do{ -goto LABEL_ENTERDEBUGMODE; -if(!qbevent)break;evnt(26070,6080,"ide_methods.bas");}while(r); -} -S_43008:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Toggle #Breakpoint F9",22))))||new_error){ -if(qbevent){evnt(26070,6083,"ide_methods.bas");if(r)goto S_43008;} -S_43009:; -if ((-(*__LONG_IDEDEBUGMODE== 2 ))||new_error){ -if(qbevent){evnt(26070,6084,"ide_methods.bas");if(r)goto S_43009;} -do{ -*__LONG_IDEDEBUGMODE= 10 ; -if(!qbevent)break;evnt(26070,6085,"ide_methods.bas");}while(r); -do{ -goto LABEL_ENTERDEBUGMODE; -if(!qbevent)break;evnt(26070,6086,"ide_methods.bas");}while(r); -}else{ -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,6088,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,6088,"ide_methods.bas");}while(r); -LABEL_TOGGLEBREAKPOINT:; -if(qbevent){evnt(26070,6089,"ide_methods.bas");r=0;} -S_43015:; -if ((-(*__LONG_VWATCHON== 0 ))||new_error){ -if(qbevent){evnt(26070,6090,"ide_methods.bas");if(r)goto S_43015;} -S_43016:; -if ((-(*__BYTE_AUTOADDDEBUGCOMMAND== 0 ))||new_error){ -if(qbevent){evnt(26070,6091,"ide_methods.bas");if(r)goto S_43016;} -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,6092,"ide_methods.bas");}while(r); -do{ -SUB_CLEARSTATUSWINDOW(&(pass4582= 2 )); -if(!qbevent)break;evnt(26070,6093,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 14 , 1 ,NULL,3); -if(!qbevent)break;evnt(26070,6094,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_X= 2 ; -if(!qbevent)break;evnt(26070,6095,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_Y=*__LONG_IDEWY- 2 ; -if(!qbevent)break;evnt(26070,6096,"ide_methods.bas");}while(r); -do{ -SUB_PRINTWRAPSTATUS(&(pass4583=*_FUNC_IDE2_LONG_X),&(pass4584=*_FUNC_IDE2_LONG_Y),&(pass4585=*_FUNC_IDE2_LONG_X),qbs_new_txt_len("$DEBUG metacommand is required to enable breakpoints.",53)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6097,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,6098,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,6099,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDE2_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Toggle Breakpoint",17),qbs_new_txt_len("Insert $DEBUG metacommand?",26),qbs_new_txt_len("#Yes;#No;#Don't show this again",31)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6101,"ide_methods.bas");}while(r); -S_43027:; -if ((-(*_FUNC_IDE2_LONG_RESULT== 1 ))||new_error){ -if(qbevent){evnt(26070,6102,"ide_methods.bas");if(r)goto S_43027;} -do{ -*__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(26070,6103,"ide_methods.bas");}while(r); -do{ -SUB_IDEINSLINE(&(pass4586= 1 ),FUNC_SCASE(qbs_new_txt_len("$Debug",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6104,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECY=*__LONG_IDECY+ 1 ; -if(!qbevent)break;evnt(26070,6105,"ide_methods.bas");}while(r); -do{ -*__INTEGER_IDECHANGEMADE= 1 ; -if(!qbevent)break;evnt(26070,6106,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*__LONG_IDECY)-__ARRAY_BYTE_IDEBREAKPOINTS[4],__ARRAY_BYTE_IDEBREAKPOINTS[5]); -if (!new_error) ((int8*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]))[tmp_long]=~(((int8*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]))[array_check((*__LONG_IDECY)-__ARRAY_BYTE_IDEBREAKPOINTS[4],__ARRAY_BYTE_IDEBREAKPOINTS[5])]); -if(!qbevent)break;evnt(26070,6107,"ide_methods.bas");}while(r); -S_43033:; -}else{ -if (-(*_FUNC_IDE2_LONG_RESULT== 3 )){ -if(qbevent){evnt(26070,6108,"ide_methods.bas");if(r)goto S_43033;} -do{ -*_FUNC_IDE2_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Debug",5),qbs_new_txt_len("You can reenable the 'Auto-add $Debug Metacommand' feature\\nin the Debug menu.",78),qbs_new_txt_len("#OK",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6109,"ide_methods.bas");}while(r); -do{ -*__BYTE_AUTOADDDEBUGCOMMAND= 0 ; -if(!qbevent)break;evnt(26070,6110,"ide_methods.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_DEBUGSETTINGSSECTION,qbs_new_txt_len("AutoAddDebugCommand",19),qbs_new_txt_len("False",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6111,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*__INTEGER_DEBUGMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_DEBUGMENUAUTOADDCOMMAND)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Auto-add $#Debug Metacommand",28)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6112,"ide_methods.bas");}while(r); -} -} -}else{ -do{ -tmp_long=array_check((*__LONG_IDECY)-__ARRAY_BYTE_IDEBREAKPOINTS[4],__ARRAY_BYTE_IDEBREAKPOINTS[5]); -if (!new_error) ((int8*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]))[tmp_long]=~(((int8*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]))[array_check((*__LONG_IDECY)-__ARRAY_BYTE_IDEBREAKPOINTS[4],__ARRAY_BYTE_IDEBREAKPOINTS[5])]); -if(!qbevent)break;evnt(26070,6115,"ide_methods.bas");}while(r); -} -S_43042:; -if ((((int8*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]))[array_check((*__LONG_IDECY)-__ARRAY_BYTE_IDEBREAKPOINTS[4],__ARRAY_BYTE_IDEBREAKPOINTS[5])])||new_error){ -if(qbevent){evnt(26070,6117,"ide_methods.bas");if(r)goto S_43042;} -do{ -tmp_long=array_check((*__LONG_IDECY)-__ARRAY_BYTE_IDESKIPLINES[4],__ARRAY_BYTE_IDESKIPLINES[5]); -if (!new_error) ((int8*)(__ARRAY_BYTE_IDESKIPLINES[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(26070,6117,"ide_methods.bas");}while(r); -} -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,6118,"ide_methods.bas");}while(r); -} -} -S_43048:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Clear All Breakpoints F10",27)))|(qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Clear All Breakpoints F10",26)))))||new_error){ -if(qbevent){evnt(26070,6122,"ide_methods.bas");if(r)goto S_43048;} -S_43049:; -if ((-(*__LONG_IDEDEBUGMODE== 2 ))||new_error){ -if(qbevent){evnt(26070,6123,"ide_methods.bas");if(r)goto S_43049;} -do{ -*__LONG_IDEDEBUGMODE= 11 ; -if(!qbevent)break;evnt(26070,6124,"ide_methods.bas");}while(r); -do{ -goto LABEL_ENTERDEBUGMODE; -if(!qbevent)break;evnt(26070,6125,"ide_methods.bas");}while(r); -}else{ -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,6127,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,6127,"ide_methods.bas");}while(r); -LABEL_CLEARALLBREAKPOINTS:; -if(qbevent){evnt(26070,6128,"ide_methods.bas");r=0;} -do{ +} +if(!qbevent)break;evnt(26070,5228,"ide_methods.bas");}while(r); +} +do{ +*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*__LONG_IDEBMKN)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16))=*__LONG_IDECY; +if(!qbevent)break;evnt(26070,5229,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*__LONG_IDEBMKN)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16+4))=*__LONG_IDECX; +if(!qbevent)break;evnt(26070,5230,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEUNSAVED= 1 ; +if(!qbevent)break;evnt(26070,5231,"ide_methods.bas");}while(r); +} +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,5233,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,5234,"ide_methods.bas");}while(r); +} +S_42068:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Next Bookmark Alt+Down",24)))|(qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Previous Bookmark Alt+Up",26)))))||new_error){ +if(qbevent){evnt(26070,5237,"ide_methods.bas");if(r)goto S_42068;} +do{ +sub_pcopy( 2 , 0 ); +if(!qbevent)break;evnt(26070,5238,"ide_methods.bas");}while(r); +S_42070:; +if ((-(*__LONG_IDEBMKN== 0 ))||new_error){ +if(qbevent){evnt(26070,5239,"ide_methods.bas");if(r)goto S_42070;} +do{ +*_FUNC_IDE2_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Bookmarks",9),qbs_new_txt_len("No bookmarks exist (Use Alt+Left to create a bookmark)",54),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5240,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,5241,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,5241,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,5242,"ide_methods.bas");}while(r); +} +S_42076:; +if ((-(*__LONG_IDEBMKN== 1 ))||new_error){ +if(qbevent){evnt(26070,5244,"ide_methods.bas");if(r)goto S_42076;} +S_42077:; +if ((-(*__LONG_IDECY==*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check(( 1 )-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16))))||new_error){ +if(qbevent){evnt(26070,5245,"ide_methods.bas");if(r)goto S_42077;} +do{ +*_FUNC_IDE2_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Bookmarks",9),qbs_new_txt_len("No other bookmarks exist",24),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5246,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,5247,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,5247,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,5248,"ide_methods.bas");}while(r); +} +} +do{ +*_FUNC_IDE2_LONG_L=*__LONG_IDECY; +if(!qbevent)break;evnt(26070,5251,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_Z= 0 ; +if(!qbevent)break;evnt(26070,5252,"ide_methods.bas");}while(r); +S_42086:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Next Bookmark Alt+Down",24))))||new_error){ +if(qbevent){evnt(26070,5252,"ide_methods.bas");if(r)goto S_42086;} +do{ +*_FUNC_IDE2_LONG_Z= 1 ; +if(!qbevent)break;evnt(26070,5252,"ide_methods.bas");}while(r); +} +S_42089:; +do{ +if(qbevent){evnt(26070,5253,"ide_methods.bas");if(r)goto S_42089;} +S_42090:; +if ((-(*_FUNC_IDE2_LONG_Z== 1 ))||new_error){ +if(qbevent){evnt(26070,5254,"ide_methods.bas");if(r)goto S_42090;} +do{ +*_FUNC_IDE2_LONG_L=*_FUNC_IDE2_LONG_L+ 1 ; +if(!qbevent)break;evnt(26070,5254,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_IDE2_LONG_L=*_FUNC_IDE2_LONG_L- 1 ; +if(!qbevent)break;evnt(26070,5254,"ide_methods.bas");}while(r); +} +S_42095:; +if ((-(*_FUNC_IDE2_LONG_L< 1 ))||new_error){ +if(qbevent){evnt(26070,5255,"ide_methods.bas");if(r)goto S_42095;} +do{ +*_FUNC_IDE2_LONG_L=*__LONG_IDEN; +if(!qbevent)break;evnt(26070,5255,"ide_methods.bas");}while(r); +} +S_42098:; +if ((-(*_FUNC_IDE2_LONG_L>*__LONG_IDEN))||new_error){ +if(qbevent){evnt(26070,5256,"ide_methods.bas");if(r)goto S_42098;} +do{ +*_FUNC_IDE2_LONG_L= 1 ; +if(!qbevent)break;evnt(26070,5256,"ide_methods.bas");}while(r); +} +S_42101:; +fornext_value4521= 1 ; +fornext_finalvalue4521=*__LONG_IDEBMKN; +fornext_step4521= 1 ; +if (fornext_step4521<0) fornext_step_negative4521=1; else fornext_step_negative4521=0; +if (new_error) goto fornext_error4521; +goto fornext_entrylabel4521; +while(1){ +fornext_value4521=fornext_step4521+(*_FUNC_IDE2_LONG_B); +fornext_entrylabel4521: +*_FUNC_IDE2_LONG_B=fornext_value4521; +if (fornext_step_negative4521){ +if (fornext_value4521fornext_finalvalue4521) break; +} +fornext_error4521:; +if(qbevent){evnt(26070,5257,"ide_methods.bas");if(r)goto S_42101;} +S_42102:; +if ((-(*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_FUNC_IDE2_LONG_B)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16))==*_FUNC_IDE2_LONG_L))||new_error){ +if(qbevent){evnt(26070,5258,"ide_methods.bas");if(r)goto S_42102;} +do{ +goto dl_exit_4519; +if(!qbevent)break;evnt(26070,5258,"ide_methods.bas");}while(r); +} +fornext_continue_4520:; +} +fornext_exit_4520:; +dl_continue_4519:; +}while(1); +dl_exit_4519:; +do{ +SUB_ADDQUICKNAVHISTORY(); +if(!qbevent)break;evnt(26070,5261,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECY=*_FUNC_IDE2_LONG_L; +if(!qbevent)break;evnt(26070,5262,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECX=*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_FUNC_IDE2_LONG_B)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16+4)); +if(!qbevent)break;evnt(26070,5263,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESELECT= 0 ; +if(!qbevent)break;evnt(26070,5264,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,5265,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,5266,"ide_methods.bas");}while(r); +} +S_42114:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Go To Line... Ctrl+G",22))))||new_error){ +if(qbevent){evnt(26070,5274,"ide_methods.bas");if(r)goto S_42114;} +do{ +sub_pcopy( 2 , 0 ); +if(!qbevent)break;evnt(26070,5275,"ide_methods.bas");}while(r); +do{ +SUB_IDEGOTOBOX(); +if(!qbevent)break;evnt(26070,5276,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,5277,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,5277,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,5278,"ide_methods.bas");}while(r); +} +S_42121:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Backup/Undo...",15))))||new_error){ +if(qbevent){evnt(26070,5281,"ide_methods.bas");if(r)goto S_42121;} +do{ +sub_pcopy( 2 , 0 ); +if(!qbevent)break;evnt(26070,5282,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_RETVAL=FUNC_IDEBACKUPBOX(); +if(!qbevent)break;evnt(26070,5283,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,5285,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,5285,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,5286,"ide_methods.bas");}while(r); +} +S_42128:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#About...",9))))||new_error){ +if(qbevent){evnt(26070,5297,"ide_methods.bas");if(r)goto S_42128;} +LABEL_HELPABOUT:; +if(qbevent){evnt(26070,5298,"ide_methods.bas");r=0;} +do{ +sub_pcopy( 2 , 0 ); +if(!qbevent)break;evnt(26070,5299,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_M,qbs_add(qbs_new_txt_len("QB64 Phoenix Edition Version ",29),__STRING_VERSION)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5300,"ide_methods.bas");}while(r); +S_42131:; +if ((*__BYTE_ISCIVERSION)||new_error){ +if(qbevent){evnt(26070,5301,"ide_methods.bas");if(r)goto S_42131;} +do{ +qbs_set(_FUNC_IDE2_STRING_M,qbs_add(qbs_add(_FUNC_IDE2_STRING_M,func_chr( 10 )),qbs_new_txt_len("CI Build",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5301,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDE2_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("About",5),_FUNC_IDE2_STRING_M,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5302,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,5303,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,5303,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,5304,"ide_methods.bas");}while(r); +} +S_42139:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#ASCII Chart...",15))))||new_error){ +if(qbevent){evnt(26070,5308,"ide_methods.bas");if(r)goto S_42139;} +do{ +sub_pcopy( 2 , 0 ); +if(!qbevent)break;evnt(26070,5309,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_RELAUNCH= 0 ; +if(!qbevent)break;evnt(26070,5310,"ide_methods.bas");}while(r); +S_42142:; +do{ +if(qbevent){evnt(26070,5311,"ide_methods.bas");if(r)goto S_42142;} +do{ +qbs_set(_FUNC_IDE2_STRING_RETVAL,FUNC_IDEASCIIBOX(_FUNC_IDE2_LONG_RELAUNCH)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5312,"ide_methods.bas");}while(r); +S_42144:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_RETVAL->len))||new_error){ +if(qbevent){evnt(26070,5313,"ide_methods.bas");if(r)goto S_42144;} +do{ +SUB_INSERTATCURSOR(_FUNC_IDE2_STRING_RETVAL); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5313,"ide_methods.bas");}while(r); +} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,5314,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,5314,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=48; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_REDRAWITALL; +RETURN_48:; +if(!qbevent)break;evnt(26070,5315,"ide_methods.bas");}while(r); +do{ +SUB_IDESHOWTEXT(); +if(!qbevent)break;evnt(26070,5316,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,5317,"ide_methods.bas");}while(r); +S_42152:; +dl_continue_4522:; +}while((*_FUNC_IDE2_LONG_RELAUNCH)&&(!new_error)); +dl_exit_4522:; +if(qbevent){evnt(26070,5318,"ide_methods.bas");if(r)goto S_42152;} +do{ +*_FUNC_IDE2_LONG_RETVAL= 1 ; +if(!qbevent)break;evnt(26070,5319,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,5320,"ide_methods.bas");}while(r); +} +S_42156:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Insert Quick #Keycode Ctrl+K",29))))||new_error){ +if(qbevent){evnt(26070,5323,"ide_methods.bas");if(r)goto S_42156;} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,5324,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,5324,"ide_methods.bas");}while(r); +LABEL_IDEQUICKKEYCODE:; +if(qbevent){evnt(26070,5325,"ide_methods.bas");r=0;} +do{ +*_FUNC_IDE2_LONG_DUMMY=FUNC_DARKENFGBG(&(pass4524= 1 )); +if(!qbevent)break;evnt(26070,5326,"ide_methods.bas");}while(r); +do{ +SUB_CLEARSTATUSWINDOW(&(pass4525= 0 )); +if(!qbevent)break;evnt(26070,5327,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 15 , 1 ,NULL,3); +if(!qbevent)break;evnt(26070,5328,"ide_methods.bas");}while(r); +do{ +sub__printstring( 2 ,*__LONG_IDEWY- 3 ,qbs_new_txt_len("Press any key to insert its _KEYHIT/_KEYDOWN code...",52),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5329,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,5330,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_TEMPK,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5332,"ide_methods.bas");}while(r); +S_42165:; +do{ +if(qbevent){evnt(26070,5334,"ide_methods.bas");if(r)goto S_42165;} +do{ +*_FUNC_IDE2_LONG_TEMPK=func__keyhit(); +if(!qbevent)break;evnt(26070,5334,"ide_methods.bas");}while(r); +do{ +sub__limit( 30 ); +if(!qbevent)break;evnt(26070,5334,"ide_methods.bas");}while(r); +S_42168:; +dl_continue_4526:; +}while((!(-(*_FUNC_IDE2_LONG_TEMPK== 0 )))&&(!new_error)); +dl_exit_4526:; +if(qbevent){evnt(26070,5334,"ide_methods.bas");if(r)goto S_42168;} +S_42169:; +do{ +if(qbevent){evnt(26070,5335,"ide_methods.bas");if(r)goto S_42169;} +do{ +*_FUNC_IDE2_LONG_TEMPK=func__keyhit(); +if(!qbevent)break;evnt(26070,5336,"ide_methods.bas");}while(r); +S_42171:; +if ((-(*_FUNC_IDE2_LONG_TEMPK> 0 ))||new_error){ +if(qbevent){evnt(26070,5337,"ide_methods.bas");if(r)goto S_42171;} +do{ +qbs_set(_FUNC_IDE2_STRING_TEMPK,qbs_str((int32)(*_FUNC_IDE2_LONG_TEMPK))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5337,"ide_methods.bas");}while(r); +} +S_42174:; +while((func__mouseinput(NULL,0))||new_error){ +if(qbevent){evnt(26070,5339,"ide_methods.bas");if(r)goto S_42174;} +ww_continue_4528:; +} +ww_exit_4528:; +S_42176:; +if ((func__mousebutton( 1 ,NULL,0)|func__mousebutton( 2 ,NULL,0))||new_error){ +if(qbevent){evnt(26070,5340,"ide_methods.bas");if(r)goto S_42176;} +do{ +goto LABEL_BYPASSCTRLK; +if(!qbevent)break;evnt(26070,5340,"ide_methods.bas");}while(r); +} +do{ +sub__limit( 30 ); +if(!qbevent)break;evnt(26070,5342,"ide_methods.bas");}while(r); +S_42180:; +dl_continue_4527:; +}while((!(-(*_FUNC_IDE2_LONG_TEMPK> 0 )))&&(!new_error)); +dl_exit_4527:; +if(qbevent){evnt(26070,5343,"ide_methods.bas");if(r)goto S_42180;} +S_42181:; +if (((-(*_FUNC_IDE2_LONG_TEMPK== 100303 ))|(-(*_FUNC_IDE2_LONG_TEMPK== 100304 )))||new_error){ +if(qbevent){evnt(26070,5344,"ide_methods.bas");if(r)goto S_42181;} +S_42182:; +do{ +if(qbevent){evnt(26070,5345,"ide_methods.bas");if(r)goto S_42182;} +do{ +*_FUNC_IDE2_LONG_TEMPK=func__keyhit(); +if(!qbevent)break;evnt(26070,5346,"ide_methods.bas");}while(r); +S_42184:; +if ((-(*_FUNC_IDE2_LONG_TEMPK!= 0 ))||new_error){ +if(qbevent){evnt(26070,5347,"ide_methods.bas");if(r)goto S_42184;} +do{ +qbs_set(_FUNC_IDE2_STRING_TEMPK,qbs_str((int32)(func_abs((int32)(*_FUNC_IDE2_LONG_TEMPK))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5347,"ide_methods.bas");}while(r); +} +S_42187:; +while((func__mouseinput(NULL,0))||new_error){ +if(qbevent){evnt(26070,5349,"ide_methods.bas");if(r)goto S_42187;} +ww_continue_4530:; +} +ww_exit_4530:; +S_42189:; +if ((func__mousebutton( 1 ,NULL,0)|func__mousebutton( 2 ,NULL,0))||new_error){ +if(qbevent){evnt(26070,5350,"ide_methods.bas");if(r)goto S_42189;} +do{ +goto LABEL_BYPASSCTRLK; +if(!qbevent)break;evnt(26070,5350,"ide_methods.bas");}while(r); +} +do{ +sub__limit( 30 ); +if(!qbevent)break;evnt(26070,5352,"ide_methods.bas");}while(r); +S_42193:; +dl_continue_4529:; +}while((!(-(*_FUNC_IDE2_LONG_TEMPK!= 0 )))&&(!new_error)); +dl_exit_4529:; +if(qbevent){evnt(26070,5353,"ide_methods.bas");if(r)goto S_42193;} +} +do{ +qbs_set(_FUNC_IDE2_STRING_TEMPK,qbs_ltrim(_FUNC_IDE2_STRING_TEMPK)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5355,"ide_methods.bas");}while(r); +do{ +SUB_INSERTATCURSOR(_FUNC_IDE2_STRING_TEMPK); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5358,"ide_methods.bas");}while(r); +LABEL_BYPASSCTRLK:; +if(qbevent){evnt(26070,5360,"ide_methods.bas");r=0;} +do{ +*_FUNC_IDE2_LONG_DUMMY=FUNC_DARKENFGBG(&(pass4531= 0 )); +if(!qbevent)break;evnt(26070,5361,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,5362,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,5362,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_RETVAL= 1 ; +if(!qbevent)break;evnt(26070,5363,"ide_methods.bas");}while(r); +do{ +*__LONG_KCTRL= 0 ; +if(!qbevent)break;evnt(26070,5364,"ide_methods.bas");}while(r); +do{ +*__LONG_KCONTROL= 0 ; +if(!qbevent)break;evnt(26070,5364,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=49; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_REDRAWITALL; +RETURN_49:; +if(!qbevent)break;evnt(26070,5365,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,5366,"ide_methods.bas");}while(r); +} +S_42206:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 10 ),qbs_new_txt_len("#Help On '",10))))||new_error){ +if(qbevent){evnt(26070,5369,"ide_methods.bas");if(r)goto S_42206;} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,5370,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,5370,"ide_methods.bas");}while(r); +do{ +goto LABEL_CONTEXTUALHELP; +if(!qbevent)break;evnt(26070,5371,"ide_methods.bas");}while(r); +} +S_42211:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 10 ),qbs_new_txt_len("#Go To SUB",10)))|(qbs_equal(qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 15 ),qbs_new_txt_len("#Go To FUNCTION",15)))))||new_error){ +if(qbevent){evnt(26070,5374,"ide_methods.bas");if(r)goto S_42211;} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,5375,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,5375,"ide_methods.bas");}while(r); +do{ +SUB_ADDQUICKNAVHISTORY(); +if(!qbevent)break;evnt(26070,5376,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECY=string2l(func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_SUBFUNCLIST[0]))[array_check(( 1 )-__ARRAY_STRING_SUBFUNCLIST[4],__ARRAY_STRING_SUBFUNCLIST[5])])), 1 , 4 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5377,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESY=*__LONG_IDECY; +if(!qbevent)break;evnt(26070,5378,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECX= 1 ; +if(!qbevent)break;evnt(26070,5379,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESX= 1 ; +if(!qbevent)break;evnt(26070,5380,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESELECT= 0 ; +if(!qbevent)break;evnt(26070,5381,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,5382,"ide_methods.bas");}while(r); +} +S_42222:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 12 ),qbs_new_txt_len("Go To #Label",12))))||new_error){ +if(qbevent){evnt(26070,5385,"ide_methods.bas");if(r)goto S_42222;} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,5386,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,5386,"ide_methods.bas");}while(r); +do{ +SUB_ADDQUICKNAVHISTORY(); +if(!qbevent)break;evnt(26070,5387,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECY=string2l(func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_SUBFUNCLIST[0]))[array_check((func_ubound(__ARRAY_STRING_SUBFUNCLIST,1,1))-__ARRAY_STRING_SUBFUNCLIST[4],__ARRAY_STRING_SUBFUNCLIST[5])])), 1 , 4 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5388,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESY=*__LONG_IDECY; +if(!qbevent)break;evnt(26070,5389,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECX= 1 ; +if(!qbevent)break;evnt(26070,5390,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESX= 1 ; +if(!qbevent)break;evnt(26070,5391,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESELECT= 0 ; +if(!qbevent)break;evnt(26070,5392,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,5393,"ide_methods.bas");}while(r); +} +S_42233:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Contents Page",14))))||new_error){ +if(qbevent){evnt(26070,5396,"ide_methods.bas");if(r)goto S_42233;} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,5397,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,5397,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_LNK,qbs_new_txt_len("QB64 Help Menu",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5398,"ide_methods.bas");}while(r); +do{ +goto LABEL_OPENHELPLINK; +if(!qbevent)break;evnt(26070,5399,"ide_methods.bas");}while(r); +} +S_42239:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Keyword #Index",14))))||new_error){ +if(qbevent){evnt(26070,5401,"ide_methods.bas");if(r)goto S_42239;} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,5402,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,5402,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_LNK,qbs_new_txt_len("Keyword Reference - Alphabetical",32)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5403,"ide_methods.bas");}while(r); +do{ +goto LABEL_OPENHELPLINK; +if(!qbevent)break;evnt(26070,5404,"ide_methods.bas");}while(r); +} +S_42245:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Keywords by Usage",18))))||new_error){ +if(qbevent){evnt(26070,5406,"ide_methods.bas");if(r)goto S_42245;} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,5407,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,5407,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_LNK,qbs_new_txt_len("Keyword Reference - By usage",28)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5408,"ide_methods.bas");}while(r); +do{ +goto LABEL_OPENHELPLINK; +if(!qbevent)break;evnt(26070,5409,"ide_methods.bas");}while(r); +} +S_42251:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#View Shift+F1",15))))||new_error){ +if(qbevent){evnt(26070,5412,"ide_methods.bas");if(r)goto S_42251;} +S_42252:; +if ((-(*__LONG_IDEHELP== 0 ))||new_error){ +if(qbevent){evnt(26070,5414,"ide_methods.bas");if(r)goto S_42252;} +S_42253:; +if ((*__LONG_IDESUBWINDOW)||new_error){ +if(qbevent){evnt(26070,5415,"ide_methods.bas");if(r)goto S_42253;} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,5415,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,5415,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,5415,"ide_methods.bas");}while(r); +} +do{ +*__LONG_IDESUBWINDOW=*__LONG_IDEWY/ 2 ; +if(!qbevent)break;evnt(26070,5416,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEWY=*__LONG_IDEWY-*__LONG_IDESUBWINDOW; +if(!qbevent)break;evnt(26070,5416,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_WX1= 2 ; +if(!qbevent)break;evnt(26070,5417,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_WY1=*__LONG_IDEWY+ 1 ; +if(!qbevent)break;evnt(26070,5417,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_WX2=*__LONG_IDEWX- 1 ; +if(!qbevent)break;evnt(26070,5417,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_WY2=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 2 ; +if(!qbevent)break;evnt(26070,5417,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_WW=*__LONG_HELP_WX2-*__LONG_HELP_WX1+ 1 ; +if(!qbevent)break;evnt(26070,5417,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_WH=*__LONG_HELP_WY2-*__LONG_HELP_WY1+ 1 ; +if(!qbevent)break;evnt(26070,5417,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEHELP= 1 ; +if(!qbevent)break;evnt(26070,5418,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_SKIPDISPLAY= 0 ; +if(!qbevent)break;evnt(26070,5419,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESYSTEM= 3 ; +if(!qbevent)break;evnt(26070,5420,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_RETVAL= 1 ; +if(!qbevent)break;evnt(26070,5421,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=50; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_REDRAWITALL; +RETURN_50:; +if(!qbevent)break;evnt(26070,5421,"ide_methods.bas");}while(r); +} +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,5424,"ide_methods.bas");}while(r); +} +S_42274:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("View Current Page On #Wiki",26))))||new_error){ +if(qbevent){evnt(26070,5427,"ide_methods.bas");if(r)goto S_42274;} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,5428,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,5428,"ide_methods.bas");}while(r); +S_42277:; +if ((*__LONG_IDEHELP)||new_error){ +if(qbevent){evnt(26070,5429,"ide_methods.bas");if(r)goto S_42277;} +do{ +goto LABEL_LAUNCHWIKI; +if(!qbevent)break;evnt(26070,5429,"ide_methods.bas");}while(r); +} +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,5430,"ide_methods.bas");}while(r); +} +S_42282:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Update Current Page",20))))||new_error){ +if(qbevent){evnt(26070,5433,"ide_methods.bas");if(r)goto S_42282;} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,5434,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,5434,"ide_methods.bas");}while(r); +S_42285:; +if ((*__LONG_IDEHELP)||new_error){ +if(qbevent){evnt(26070,5435,"ide_methods.bas");if(r)goto S_42285;} +do{ +*__LONG_HELP_IGNORECACHE= 1 ; +if(!qbevent)break;evnt(26070,5436,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_A,FUNC_WIKI(((qbs*)(((uint64*)(__ARRAY_STRING_BACK[0]))[array_check((*__LONG_HELP_BACK_POS)-__ARRAY_STRING_BACK[4],__ARRAY_STRING_BACK[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5437,"ide_methods.bas");}while(r); +do{ +SUB_WIKIPARSE(_FUNC_IDE2_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5438,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_IGNORECACHE= 0 ; +if(!qbevent)break;evnt(26070,5439,"ide_methods.bas");}while(r); +} +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,5441,"ide_methods.bas");}while(r); +} +S_42293:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Math Evaluator...",18))))||new_error){ +if(qbevent){evnt(26070,5445,"ide_methods.bas");if(r)goto S_42293;} +do{ +if(!qbevent)break;evnt(26070,5446,"ide_methods.bas");}while(r); +S_42295:; +if ((*__LONG_IDESELECT)||new_error){ +if(qbevent){evnt(26070,5448,"ide_methods.bas");if(r)goto S_42295;} +S_42296:; +if ((-(*__LONG_IDESELECTY1==*__LONG_IDECY))||new_error){ +if(qbevent){evnt(26070,5449,"ide_methods.bas");if(r)goto S_42296;} +do{ +qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5450,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_A2,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5451,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_SX1=*__LONG_IDESELECTX1; +if(!qbevent)break;evnt(26070,5452,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_SX2=*__LONG_IDECX; +if(!qbevent)break;evnt(26070,5452,"ide_methods.bas");}while(r); +S_42301:; +if ((-(*_FUNC_IDE2_LONG_SX2<*_FUNC_IDE2_LONG_SX1))||new_error){ +if(qbevent){evnt(26070,5453,"ide_methods.bas");if(r)goto S_42301;} +do{ +swap_32(&*_FUNC_IDE2_LONG_SX1,&*_FUNC_IDE2_LONG_SX2); +if(!qbevent)break;evnt(26070,5453,"ide_methods.bas");}while(r); +} +S_42304:; +fornext_value4533=*_FUNC_IDE2_LONG_SX1; +fornext_finalvalue4533=*_FUNC_IDE2_LONG_SX2- 1 ; +fornext_step4533= 1 ; +if (fornext_step4533<0) fornext_step_negative4533=1; else fornext_step_negative4533=0; +if (new_error) goto fornext_error4533; +goto fornext_entrylabel4533; +while(1){ +fornext_value4533=fornext_step4533+(*_FUNC_IDE2_LONG_X); +fornext_entrylabel4533: +*_FUNC_IDE2_LONG_X=fornext_value4533; +if (fornext_step_negative4533){ +if (fornext_value4533fornext_finalvalue4533) break; +} +fornext_error4533:; +if(qbevent){evnt(26070,5454,"ide_methods.bas");if(r)goto S_42304;} +S_42305:; +if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDE2_LONG_X<=_FUNC_IDE2_STRING_A->len)))||new_error){ +if(qbevent){evnt(26070,5455,"ide_methods.bas");if(r)goto S_42305;} +do{ +qbs_set(_FUNC_IDE2_STRING_A2,qbs_add(_FUNC_IDE2_STRING_A2,func_mid(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_X, 1 ,0|1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5455,"ide_methods.bas");}while(r); +}else{ +do{ +goto fornext_exit_4532; +if(!qbevent)break;evnt(26070,5455,"ide_methods.bas");}while(r); +} +fornext_continue_4532:; +} +fornext_exit_4532:; +do{ +qbs_set(_FUNC_IDE2_STRING_A2,qbs__trim(_FUNC_IDE2_STRING_A2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5457,"ide_methods.bas");}while(r); +S_42312:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_A2->len))||new_error){ +if(qbevent){evnt(26070,5458,"ide_methods.bas");if(r)goto S_42312;} +do{ +qbs_set(_FUNC_IDE2_STRING_MATHEVALEXPR,_FUNC_IDE2_STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5458,"ide_methods.bas");}while(r); +} +} +} +S_42317:; +do{ +if(qbevent){evnt(26070,5462,"ide_methods.bas");if(r)goto S_42317;} +do{ +sub_pcopy( 2 , 0 ); +if(!qbevent)break;evnt(26070,5463,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_RETVAL,FUNC_IDEINPUTBOX(qbs_new_txt_len("Math Evaluator",14),qbs_new_txt_len("#Enter expression",17),_FUNC_IDE2_STRING_MATHEVALEXPR,qbs_new_txt_len("",0),&(pass4537= 60 ),&(pass4538= 0 ),&(pass4539= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5464,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_RESULT= 0 ; +if(!qbevent)break;evnt(26070,5465,"ide_methods.bas");}while(r); +S_42321:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_RETVAL->len))||new_error){ +if(qbevent){evnt(26070,5466,"ide_methods.bas");if(r)goto S_42321;} +do{ +qbs_set(_FUNC_IDE2_STRING_MATHEVALEXPR,_FUNC_IDE2_STRING_RETVAL); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5467,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_EV0,FUNC_EVALUATE_EXPRESSION(_FUNC_IDE2_STRING_RETVAL)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5468,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_EV,_FUNC_IDE2_STRING_EV0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5469,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_BYTE_MATHEVALERROR=-(func_instr(NULL,_FUNC_IDE2_STRING_EV,qbs_new_txt_len("ERROR",5),0)> 0 ); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5470,"ide_methods.bas");}while(r); +S_42326:; +if (((-(*_FUNC_IDE2_BYTE_MATHEVALERROR== 0 ))&*_FUNC_IDE2_BYTE_MATHEVALHEX)||new_error){ +if(qbevent){evnt(26070,5471,"ide_methods.bas");if(r)goto S_42326;} +do{ +qbs_set(_FUNC_IDE2_STRING_EV,qbs_add(qbs_new_txt_len("&H",2),func_hex_float(func_val(_FUNC_IDE2_STRING_EV)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5471,"ide_methods.bas");}while(r); +} +S_42329:; +do{ +if(qbevent){evnt(26070,5472,"ide_methods.bas");if(r)goto S_42329;} +do{ +qbs_set(_FUNC_IDE2_STRING_B1,qbs_new_txt_len("#Insert;",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5473,"ide_methods.bas");}while(r); +S_42331:; +if ((*_FUNC_IDE2_BYTE_MATHEVALHEX)||new_error){ +if(qbevent){evnt(26070,5474,"ide_methods.bas");if(r)goto S_42331;} +do{ +qbs_set(_FUNC_IDE2_STRING_B2,qbs_new_txt_len("#Decimal;",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5474,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDE2_STRING_B2,qbs_new_txt_len("#HEX$;",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5474,"ide_methods.bas");}while(r); +} +S_42336:; +if (((-(*_FUNC_IDE2_BYTE_MATHEVALERROR== 0 ))&*_FUNC_IDE2_BYTE_MATHEVALCOMMENT)||new_error){ +if(qbevent){evnt(26070,5475,"ide_methods.bas");if(r)goto S_42336;} +do{ +qbs_set(_FUNC_IDE2_STRING_MATHMSG,qbs_add(qbs_add(_FUNC_IDE2_STRING_EV,qbs_new_txt_len(" '",2)),_FUNC_IDE2_STRING_RETVAL)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5476,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_B3,qbs_new_txt_len("#Uncomment;",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5477,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDE2_STRING_MATHMSG,_FUNC_IDE2_STRING_EV); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5479,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_B3,qbs_new_txt_len("Co#mment;",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5480,"ide_methods.bas");}while(r); +} +S_42343:; +if ((*_FUNC_IDE2_BYTE_MATHEVALERROR)||new_error){ +if(qbevent){evnt(26070,5482,"ide_methods.bas");if(r)goto S_42343;} +do{ +qbs_set(_FUNC_IDE2_STRING_B1,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5482,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_B2,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5482,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_B3,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5482,"ide_methods.bas");}while(r); +} +do{ +sub_pcopy( 2 , 0 ); +if(!qbevent)break;evnt(26070,5483,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Math Evaluator - Result",23),_FUNC_IDE2_STRING_MATHMSG,qbs_add(qbs_add(qbs_add(_FUNC_IDE2_STRING_B1,_FUNC_IDE2_STRING_B2),_FUNC_IDE2_STRING_B3),qbs_new_txt_len("#Redo;#Cancel",13))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5484,"ide_methods.bas");}while(r); +S_42350:; +if ((-(*_FUNC_IDE2_BYTE_MATHEVALERROR== 0 ))||new_error){ +if(qbevent){evnt(26070,5485,"ide_methods.bas");if(r)goto S_42350;} +S_42351:; +if(qbevent){evnt(26070,5486,"ide_methods.bas");if(r)goto S_42351;} +S_42352:; +if (((*_FUNC_IDE2_LONG_RESULT==( 1 ))||(*_FUNC_IDE2_LONG_RESULT==( 4 ))||(*_FUNC_IDE2_LONG_RESULT==( 5 )))||new_error){ +if(qbevent){evnt(26070,5487,"ide_methods.bas");if(r)goto S_42352;} +do{ +goto dl_exit_4541; +if(!qbevent)break;evnt(26070,5488,"ide_methods.bas");}while(r); +sc_ec_225_end:; +goto sc_4542_end; +} +S_42354:; +if (((*_FUNC_IDE2_LONG_RESULT==( 2 )))||new_error){ +if(qbevent){evnt(26070,5489,"ide_methods.bas");if(r)goto S_42354;} +do{ +*_FUNC_IDE2_BYTE_MATHEVALHEX=~(*_FUNC_IDE2_BYTE_MATHEVALHEX); +if(!qbevent)break;evnt(26070,5490,"ide_methods.bas");}while(r); +S_42356:; +if ((*_FUNC_IDE2_BYTE_MATHEVALHEX)||new_error){ +if(qbevent){evnt(26070,5491,"ide_methods.bas");if(r)goto S_42356;} +do{ +qbs_set(_FUNC_IDE2_STRING_EV,qbs_add(qbs_new_txt_len("&H",2),func_hex_float(func_val(_FUNC_IDE2_STRING_EV)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5491,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDE2_STRING_EV,_FUNC_IDE2_STRING_EV0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5491,"ide_methods.bas");}while(r); +} +sc_ec_226_end:; +goto sc_4542_end; +} +S_42361:; +if (((*_FUNC_IDE2_LONG_RESULT==( 3 )))||new_error){ +if(qbevent){evnt(26070,5492,"ide_methods.bas");if(r)goto S_42361;} +do{ +*_FUNC_IDE2_BYTE_MATHEVALCOMMENT=~(*_FUNC_IDE2_BYTE_MATHEVALCOMMENT); +if(!qbevent)break;evnt(26070,5493,"ide_methods.bas");}while(r); +sc_ec_227_end:; +goto sc_4542_end; +} +sc_4542_end:; +}else{ +do{ +goto dl_exit_4541; +if(!qbevent)break;evnt(26070,5496,"ide_methods.bas");}while(r); +} +dl_continue_4541:; +}while(1); +dl_exit_4541:; +S_42368:; +if ((*_FUNC_IDE2_BYTE_MATHEVALERROR&(-(*_FUNC_IDE2_LONG_RESULT== 2 )))||new_error){ +if(qbevent){evnt(26070,5499,"ide_methods.bas");if(r)goto S_42368;} +do{ +goto dl_exit_4536; +if(!qbevent)break;evnt(26070,5499,"ide_methods.bas");}while(r); +} +S_42371:; +if (((-(*_FUNC_IDE2_BYTE_MATHEVALERROR== 0 ))&(((-(*_FUNC_IDE2_LONG_RESULT== 1 ))|(-(*_FUNC_IDE2_LONG_RESULT== 5 )))))||new_error){ +if(qbevent){evnt(26070,5500,"ide_methods.bas");if(r)goto S_42371;} +do{ +goto dl_exit_4536; +if(!qbevent)break;evnt(26070,5500,"ide_methods.bas");}while(r); +} +}else{ +do{ +goto dl_exit_4536; +if(!qbevent)break;evnt(26070,5502,"ide_methods.bas");}while(r); +} +dl_continue_4536:; +}while(1); +dl_exit_4536:; +S_42378:; +if (((-(*_FUNC_IDE2_BYTE_MATHEVALERROR== 0 ))&(-(*_FUNC_IDE2_LONG_RESULT== 1 )))||new_error){ +if(qbevent){evnt(26070,5506,"ide_methods.bas");if(r)goto S_42378;} +do{ +SUB_INSERTATCURSOR(_FUNC_IDE2_STRING_MATHMSG); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5507,"ide_methods.bas");}while(r); +} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,5509,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,5509,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,5510,"ide_methods.bas");}while(r); +} +S_42385:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Update All #Pages...",20))))||new_error){ +if(qbevent){evnt(26070,5513,"ide_methods.bas");if(r)goto S_42385;} +do{ +sub_pcopy( 2 , 0 ); +if(!qbevent)break;evnt(26070,5514,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_Q,FUNC_IDEYESNOBOX(qbs_new_txt_len("Update Help",11),qbs_new_txt_len("This can take up to 10 minutes.\\nRedownload all cached help content from the wiki?",82))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5515,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 2 , 0 ); +if(!qbevent)break;evnt(26070,5516,"ide_methods.bas");}while(r); +S_42389:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_Q,qbs_new_txt_len("Y",1))))||new_error){ +if(qbevent){evnt(26070,5517,"ide_methods.bas");if(r)goto S_42389;} +do{ +*__LONG_HELP_RECACHING= 1 ; +if(!qbevent)break;evnt(26070,5518,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_IGNORECACHE= 1 ; +if(!qbevent)break;evnt(26070,5518,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_UERR=FUNC_IDEUPDATEHELPBOX(); +if(!qbevent)break;evnt(26070,5519,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_RECACHING= 0 ; +if(!qbevent)break;evnt(26070,5520,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_IGNORECACHE= 0 ; +if(!qbevent)break;evnt(26070,5520,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,5521,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,5521,"ide_methods.bas");}while(r); +S_42397:; +if ((*_FUNC_IDE2_LONG_UERR)||new_error){ +if(qbevent){evnt(26070,5522,"ide_methods.bas");if(r)goto S_42397;} +do{ +qbs_set(_FUNC_IDE2_STRING_LNK,qbs_new_txt_len("Update All",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5523,"ide_methods.bas");}while(r); +do{ +goto LABEL_OPENHELPLINK; +if(!qbevent)break;evnt(26070,5524,"ide_methods.bas");}while(r); +} +} +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,5527,"ide_methods.bas");}while(r); +} +S_42404:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 8 ),qbs_new_txt_len("New #SUB",8))))||new_error){ +if(qbevent){evnt(26070,5530,"ide_methods.bas");if(r)goto S_42404;} +do{ +sub_pcopy( 2 , 0 ); +if(!qbevent)break;evnt(26070,5531,"ide_methods.bas");}while(r); +do{ +SUB_IDENEWSF(qbs_new_txt_len("SUB",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5532,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESELECT= 0 ; +if(!qbevent)break;evnt(26070,5533,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,5534,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,5534,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,5535,"ide_methods.bas");}while(r); +} +S_42412:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 13 ),qbs_new_txt_len("New #FUNCTION",13))))||new_error){ +if(qbevent){evnt(26070,5537,"ide_methods.bas");if(r)goto S_42412;} +do{ +sub_pcopy( 2 , 0 ); +if(!qbevent)break;evnt(26070,5538,"ide_methods.bas");}while(r); +do{ +SUB_IDENEWSF(qbs_new_txt_len("FUNCTION",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5539,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESELECT= 0 ; +if(!qbevent)break;evnt(26070,5540,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,5541,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,5541,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,5542,"ide_methods.bas");}while(r); +} +S_42420:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#SUBs... F2",12)))|(qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("SUBs... F2",11)))))||new_error){ +if(qbevent){evnt(26070,5545,"ide_methods.bas");if(r)goto S_42420;} +S_42421:; +if ((-(*__LONG_IDEDEBUGMODE== 2 ))||new_error){ +if(qbevent){evnt(26070,5546,"ide_methods.bas");if(r)goto S_42421;} +do{ +*__LONG_IDEDEBUGMODE= 14 ; +if(!qbevent)break;evnt(26070,5547,"ide_methods.bas");}while(r); +do{ +goto LABEL_ENTERDEBUGMODE; +if(!qbevent)break;evnt(26070,5548,"ide_methods.bas");}while(r); +}else{ +do{ +sub_pcopy( 2 , 0 ); +if(!qbevent)break;evnt(26070,5550,"ide_methods.bas");}while(r); +LABEL_IDESUBSJMP:; +if(qbevent){evnt(26070,5551,"ide_methods.bas");r=0;} +do{ +qbs_set(_FUNC_IDE2_STRING_R,FUNC_IDESUBS()); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5552,"ide_methods.bas");}while(r); +S_42427:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_IDE2_STRING_R,qbs_new_txt_len("C",1))))||new_error){ +if(qbevent){evnt(26070,5553,"ide_methods.bas");if(r)goto S_42427;} +do{ +*__LONG_IDESELECT= 0 ; +if(!qbevent)break;evnt(26070,5553,"ide_methods.bas");}while(r); +} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,5554,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,5554,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,5555,"ide_methods.bas");}while(r); +} +} +S_42435:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),(qbs_add(qbs_new_txt_len("#Line Numbers ",15),func_chr( 16 ))))))||new_error){ +if(qbevent){evnt(26070,5559,"ide_methods.bas");if(r)goto S_42435;} +do{ +*_FUNC_IDE2_LONG_IDECONTEXTUALMENU= 2 ; +if(!qbevent)break;evnt(26070,5560,"ide_methods.bas");}while(r); +do{ +goto LABEL_SHOWMENU; +if(!qbevent)break;evnt(26070,5561,"ide_methods.bas");}while(r); +} +S_42439:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Show Line Numbers",18))))||new_error){ +if(qbevent){evnt(26070,5564,"ide_methods.bas");if(r)goto S_42439;} +do{ +sub_pcopy( 2 , 0 ); +if(!qbevent)break;evnt(26070,5565,"ide_methods.bas");}while(r); +do{ +*__BYTE_SHOWLINENUMBERS= -1 ; +if(!qbevent)break;evnt(26070,5566,"ide_methods.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("ShowLineNumbers",15),qbs_new_txt_len("True",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5567,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Hide Line Numbers",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5568,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_VIEWMENUSHOWBGID)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_VIEWMENUSHOWBGID)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 2 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5569,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_VIEWMENUSHOWSEPARATORID)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_VIEWMENUSHOWSEPARATORID)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 2 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5570,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,5571,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,5571,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,5572,"ide_methods.bas");}while(r); +} +S_42450:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Hide Line Numbers",18))))||new_error){ +if(qbevent){evnt(26070,5575,"ide_methods.bas");if(r)goto S_42450;} +do{ +sub_pcopy( 2 , 0 ); +if(!qbevent)break;evnt(26070,5576,"ide_methods.bas");}while(r); +do{ +*__BYTE_SHOWLINENUMBERS= 0 ; +if(!qbevent)break;evnt(26070,5577,"ide_methods.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("ShowLineNumbers",15),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5578,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Show Line Numbers",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5579,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_VIEWMENUSHOWBGID)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(qbs_new_txt_len("~",1),((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_VIEWMENUSHOWBGID)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5580,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_VIEWMENUSHOWSEPARATORID)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(qbs_new_txt_len("~",1),((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_VIEWMENUSHOWSEPARATORID)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5581,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,5582,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,5582,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,5583,"ide_methods.bas");}while(r); +} +S_42461:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 17 ),qbs_new_txt_len("#Background Color",17))))||new_error){ +if(qbevent){evnt(26070,5586,"ide_methods.bas");if(r)goto S_42461;} +S_42462:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 1 ),qbs_new_txt_len("~",1))))||new_error){ +if(qbevent){evnt(26070,5587,"ide_methods.bas");if(r)goto S_42462;} +do{ +sub_pcopy( 2 , 0 ); +if(!qbevent)break;evnt(26070,5588,"ide_methods.bas");}while(r); +do{ +*__BYTE_SHOWLINENUMBERSUSEBG=~(*__BYTE_SHOWLINENUMBERSUSEBG); +if(!qbevent)break;evnt(26070,5589,"ide_methods.bas");}while(r); +S_42465:; +if ((*__BYTE_SHOWLINENUMBERSUSEBG)||new_error){ +if(qbevent){evnt(26070,5590,"ide_methods.bas");if(r)goto S_42465;} +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("ShowLineNumbersUseBG",20),qbs_new_txt_len("True",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5591,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(func_chr( 7 ),qbs_new_txt_len("#Background Color",17))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5592,"ide_methods.bas");}while(r); +}else{ +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("ShowLineNumbersUseBG",20),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5594,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Background Color",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5595,"ide_methods.bas");}while(r); +} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,5597,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,5597,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,5598,"ide_methods.bas");}while(r); +} +} +S_42477:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 15 ),qbs_new_txt_len("Sho#w Separator",15))))||new_error){ +if(qbevent){evnt(26070,5602,"ide_methods.bas");if(r)goto S_42477;} +S_42478:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 1 ),qbs_new_txt_len("~",1))))||new_error){ +if(qbevent){evnt(26070,5603,"ide_methods.bas");if(r)goto S_42478;} +do{ +sub_pcopy( 2 , 0 ); +if(!qbevent)break;evnt(26070,5604,"ide_methods.bas");}while(r); +do{ +*__BYTE_SHOWLINENUMBERSSEPARATOR=~(*__BYTE_SHOWLINENUMBERSSEPARATOR); +if(!qbevent)break;evnt(26070,5605,"ide_methods.bas");}while(r); +S_42481:; +if ((*__BYTE_SHOWLINENUMBERSSEPARATOR)||new_error){ +if(qbevent){evnt(26070,5606,"ide_methods.bas");if(r)goto S_42481;} +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("ShowLineNumbersSeparator",24),qbs_new_txt_len("True",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5607,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(func_chr( 7 ),qbs_new_txt_len("Sho#w Separator",15))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5608,"ide_methods.bas");}while(r); +}else{ +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("ShowLineNumbersSeparator",24),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5610,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Sho#w Separator",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5611,"ide_methods.bas");}while(r); +} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,5613,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,5613,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,5614,"ide_methods.bas");}while(r); +} +} +S_42493:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),(qbs_add(qbs_new_txt_len("#Export As... ",15),func_chr( 16 ))))))||new_error){ +if(qbevent){evnt(26070,5618,"ide_methods.bas");if(r)goto S_42493;} +do{ +*_FUNC_IDE2_LONG_IDECONTEXTUALMENU= 3 ; +if(!qbevent)break;evnt(26070,5619,"ide_methods.bas");}while(r); +do{ +goto LABEL_SHOWMENU; +if(!qbevent)break;evnt(26070,5620,"ide_methods.bas");}while(r); +} +S_42497:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Hypertext document (.htm)",26))))||new_error){ +if(qbevent){evnt(26070,5623,"ide_methods.bas");if(r)goto S_42497;} +do{ +sub_pcopy( 2 , 0 ); +if(!qbevent)break;evnt(26070,5624,"ide_methods.bas");}while(r); +do{ +SUB_EXPORTCODEAS(qbs_new_txt_len("html",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5625,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,5626,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,5626,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,5627,"ide_methods.bas");}while(r); +} +S_42504:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Rich Text document (.rtf)",26))))||new_error){ +if(qbevent){evnt(26070,5630,"ide_methods.bas");if(r)goto S_42504;} +do{ +sub_pcopy( 2 , 0 ); +if(!qbevent)break;evnt(26070,5631,"ide_methods.bas");}while(r); +do{ +SUB_EXPORTCODEAS(qbs_new_txt_len("rich",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5632,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,5633,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,5633,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,5634,"ide_methods.bas");}while(r); +} +S_42511:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Wiki prepared sample (.txt)",28))))||new_error){ +if(qbevent){evnt(26070,5637,"ide_methods.bas");if(r)goto S_42511;} +do{ +sub_pcopy( 2 , 0 ); +if(!qbevent)break;evnt(26070,5638,"ide_methods.bas");}while(r); +do{ +SUB_EXPORTCODEAS(qbs_new_txt_len("wiki",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5639,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,5640,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,5640,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,5641,"ide_methods.bas");}while(r); +} +S_42518:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Compiler #Warnings... Ctrl+W",29))))||new_error){ +if(qbevent){evnt(26070,5644,"ide_methods.bas");if(r)goto S_42518;} +do{ +sub_pcopy( 2 , 0 ); +if(!qbevent)break;evnt(26070,5645,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_RETVAL=FUNC_IDEWARNINGBOX(); +if(!qbevent)break;evnt(26070,5646,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,5648,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,5648,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,5649,"ide_methods.bas");}while(r); +} +S_42525:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Find... Ctrl+F3",17))))||new_error){ +if(qbevent){evnt(26070,5652,"ide_methods.bas");if(r)goto S_42525;} +do{ +sub_pcopy( 2 , 0 ); +if(!qbevent)break;evnt(26070,5653,"ide_methods.bas");}while(r); +LABEL_IDEFINDJMP:; +if(qbevent){evnt(26070,5654,"ide_methods.bas");r=0;} +do{ +qbs_set(_FUNC_IDE2_STRING_R,FUNC_IDEFIND()); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5655,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,5656,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,5656,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,5658,"ide_methods.bas");}while(r); +} +S_42532:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 6 ),qbs_new_txt_len("Find '",6))))||new_error){ +if(qbevent){evnt(26070,5661,"ide_methods.bas");if(r)goto S_42532;} +do{ +qbs_set(__STRING_IDEFINDTEXT,__STRING_IDECONTEXTUALSEARCH); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5662,"ide_methods.bas");}while(r); +do{ +SUB_IDEADDSEARCHED(__STRING_IDEFINDTEXT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5663,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,5664,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,5664,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDEMF3; +if(!qbevent)break;evnt(26070,5665,"ide_methods.bas");}while(r); +} +S_42539:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Change... Alt+F3",18))))||new_error){ +if(qbevent){evnt(26070,5668,"ide_methods.bas");if(r)goto S_42539;} +do{ +sub_pcopy( 2 , 0 ); +if(!qbevent)break;evnt(26070,5669,"ide_methods.bas");}while(r); +LABEL_IDEFINDCHANGEJMP:; +if(qbevent){evnt(26070,5670,"ide_methods.bas");r=0;} +do{ +qbs_set(_FUNC_IDE2_STRING_R,FUNC_IDECHANGE()); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5671,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,5672,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,5672,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEALTHIGHLIGHT= 0 ; +if(!qbevent)break;evnt(26070,5673,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); +if(!qbevent)break;evnt(26070,5674,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,5674,"ide_methods.bas");}while(r); +do{ +sub__printstring( 1 , 1 ,__STRING_MENUBAR,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5674,"ide_methods.bas");}while(r); +S_42548:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_IDE2_STRING_R,qbs_new_txt_len("C",1)))|(qbs_equal(_FUNC_IDE2_STRING_R,qbs_new_txt_len("",0)))))||new_error){ +if(qbevent){evnt(26070,5675,"ide_methods.bas");if(r)goto S_42548;} +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,5675,"ide_methods.bas");}while(r); +} +do{ +SUB_IDEADDSEARCHED(__STRING_IDEFINDTEXT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5677,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_OLDCX=*__LONG_IDECX; +if(!qbevent)break;evnt(26070,5679,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_OLDCY=*__LONG_IDECY; +if(!qbevent)break;evnt(26070,5679,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_FOUND= 0 ; +if(!qbevent)break;evnt(26070,5680,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_LOOPED= 0 ; +if(!qbevent)break;evnt(26070,5680,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_CHANGED= 0 ; +if(!qbevent)break;evnt(26070,5681,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_S,__STRING_IDEFINDTEXT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5683,"ide_methods.bas");}while(r); +S_42558:; +if ((-(*__INTEGER_IDEFINDCASESENS== 0 ))||new_error){ +if(qbevent){evnt(26070,5684,"ide_methods.bas");if(r)goto S_42558;} +do{ +qbs_set(_FUNC_IDE2_STRING_S,qbs_ucase(_FUNC_IDE2_STRING_S)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5684,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDE2_LONG_START=*__LONG_IDECY; +if(!qbevent)break;evnt(26070,5685,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_Y=*_FUNC_IDE2_LONG_START; +if(!qbevent)break;evnt(26070,5685,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_STARTX=*__LONG_IDECX; +if(!qbevent)break;evnt(26070,5686,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_X1=*_FUNC_IDE2_LONG_STARTX; +if(!qbevent)break;evnt(26070,5686,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_FIRST= 1 ; +if(!qbevent)break;evnt(26070,5687,"ide_methods.bas");}while(r); +LABEL_IDEFINDNEXT2:; +if(qbevent){evnt(26070,5688,"ide_methods.bas");r=0;} +do{ +qbs_set(_FUNC_IDE2_STRING_L,FUNC_IDEGETLINE(_FUNC_IDE2_LONG_Y)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5690,"ide_methods.bas");}while(r); +S_42567:; +if ((-(*__INTEGER_IDEFINDCASESENS== 0 ))||new_error){ +if(qbevent){evnt(26070,5691,"ide_methods.bas");if(r)goto S_42567;} +do{ +qbs_set(_FUNC_IDE2_STRING_L,qbs_ucase(_FUNC_IDE2_STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5691,"ide_methods.bas");}while(r); +} +S_42570:; +if ((-(*_FUNC_IDE2_LONG_FIRST== 1 ))||new_error){ +if(qbevent){evnt(26070,5693,"ide_methods.bas");if(r)goto S_42570;} +do{ +*_FUNC_IDE2_LONG_FIRST= 0 ; +if(!qbevent)break;evnt(26070,5694,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_IDE2_LONG_X1= 1 ; +if(!qbevent)break;evnt(26070,5696,"ide_methods.bas");}while(r); +S_42574:; +if ((*__INTEGER_IDEFINDBACKWARDS)||new_error){ +if(qbevent){evnt(26070,5697,"ide_methods.bas");if(r)goto S_42574;} +do{ +*_FUNC_IDE2_LONG_X1=_FUNC_IDE2_STRING_L->len-_FUNC_IDE2_STRING_S->len+ 1 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5698,"ide_methods.bas");}while(r); +} +} +S_42578:; +if ((-(*_FUNC_IDE2_LONG_X1< 0 ))||new_error){ +if(qbevent){evnt(26070,5701,"ide_methods.bas");if(r)goto S_42578;} +do{ +*_FUNC_IDE2_LONG_X1= 0 ; +if(!qbevent)break;evnt(26070,5701,"ide_methods.bas");}while(r); +} +LABEL_IDEFINDAGAIN2:; +if(qbevent){evnt(26070,5703,"ide_methods.bas");r=0;} +S_42581:; +if ((*__INTEGER_IDEFINDBACKWARDS)||new_error){ +if(qbevent){evnt(26070,5705,"ide_methods.bas");if(r)goto S_42581;} +do{ +*_FUNC_IDE2_LONG_X= 0 ; +if(!qbevent)break;evnt(26070,5706,"ide_methods.bas");}while(r); +S_42583:; +fornext_value4546=*_FUNC_IDE2_LONG_X1; +fornext_finalvalue4546= 1 ; +fornext_step4546= -1 ; +if (fornext_step4546<0) fornext_step_negative4546=1; else fornext_step_negative4546=0; +if (new_error) goto fornext_error4546; +goto fornext_entrylabel4546; +while(1){ +fornext_value4546=fornext_step4546+(*_FUNC_IDE2_LONG_XX); +fornext_entrylabel4546: +*_FUNC_IDE2_LONG_XX=fornext_value4546; +if (fornext_step_negative4546){ +if (fornext_value4546fornext_finalvalue4546) break; +} +fornext_error4546:; +if(qbevent){evnt(26070,5707,"ide_methods.bas");if(r)goto S_42583;} +S_42584:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_IDE2_STRING_L,*_FUNC_IDE2_LONG_XX)==qbs_asc(_FUNC_IDE2_STRING_S))))||new_error){ +if(qbevent){evnt(26070,5708,"ide_methods.bas");if(r)goto S_42584;} +do{ +*_FUNC_IDE2_LONG_XXO=*_FUNC_IDE2_LONG_XX- 1 ; +if(!qbevent)break;evnt(26070,5709,"ide_methods.bas");}while(r); +S_42586:; +fornext_value4548=*_FUNC_IDE2_LONG_XX; +fornext_finalvalue4548=*_FUNC_IDE2_LONG_XX+_FUNC_IDE2_STRING_S->len- 1 ; +fornext_step4548= 1 ; +if (fornext_step4548<0) fornext_step_negative4548=1; else fornext_step_negative4548=0; +if (new_error) goto fornext_error4548; +goto fornext_entrylabel4548; +while(1){ +fornext_value4548=fornext_step4548+(*_FUNC_IDE2_LONG_XX2); +fornext_entrylabel4548: +*_FUNC_IDE2_LONG_XX2=fornext_value4548; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative4548){ +if (fornext_value4548fornext_finalvalue4548) break; +} +fornext_error4548:; +if(qbevent){evnt(26070,5710,"ide_methods.bas");if(r)goto S_42586;} +S_42587:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_IDE2_STRING_L,*_FUNC_IDE2_LONG_XX2)!=qbs_asc(_FUNC_IDE2_STRING_S,*_FUNC_IDE2_LONG_XX2-*_FUNC_IDE2_LONG_XXO))))||new_error){ +if(qbevent){evnt(26070,5711,"ide_methods.bas");if(r)goto S_42587;} +do{ +goto fornext_exit_4547; +if(!qbevent)break;evnt(26070,5711,"ide_methods.bas");}while(r); +} +fornext_continue_4547:; +} +fornext_exit_4547:; +S_42591:; +if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDE2_LONG_XX2==(*_FUNC_IDE2_LONG_XX+_FUNC_IDE2_STRING_S->len))))||new_error){ +if(qbevent){evnt(26070,5713,"ide_methods.bas");if(r)goto S_42591;} +do{ +*_FUNC_IDE2_LONG_X=*_FUNC_IDE2_LONG_XX; +if(!qbevent)break;evnt(26070,5715,"ide_methods.bas");}while(r); +do{ +goto fornext_exit_4545; +if(!qbevent)break;evnt(26070,5716,"ide_methods.bas");}while(r); +} +} +fornext_continue_4545:; +} +fornext_exit_4545:; +S_42597:; +if (((-(*_FUNC_IDE2_LONG_Y==*_FUNC_IDE2_LONG_START))&(-(*_FUNC_IDE2_LONG_LOOPED== 1 ))&(-(*_FUNC_IDE2_LONG_X<=*_FUNC_IDE2_LONG_STARTX)))||new_error){ +if(qbevent){evnt(26070,5720,"ide_methods.bas");if(r)goto S_42597;} +do{ +*_FUNC_IDE2_LONG_X= 0 ; +if(!qbevent)break;evnt(26070,5720,"ide_methods.bas");}while(r); +} +}else{ +do{ +*_FUNC_IDE2_LONG_X=func_instr(*_FUNC_IDE2_LONG_X1,_FUNC_IDE2_STRING_L,_FUNC_IDE2_STRING_S,0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5722,"ide_methods.bas");}while(r); +S_42602:; +if (((-(*_FUNC_IDE2_LONG_Y==*_FUNC_IDE2_LONG_START))&(-(*_FUNC_IDE2_LONG_LOOPED== 1 ))&(-(*_FUNC_IDE2_LONG_X>=*_FUNC_IDE2_LONG_STARTX)))||new_error){ +if(qbevent){evnt(26070,5723,"ide_methods.bas");if(r)goto S_42602;} +do{ +*_FUNC_IDE2_LONG_X= 0 ; +if(!qbevent)break;evnt(26070,5723,"ide_methods.bas");}while(r); +} +} +S_42606:; +if ((*_FUNC_IDE2_LONG_X)||new_error){ +if(qbevent){evnt(26070,5726,"ide_methods.bas");if(r)goto S_42606;} +S_42607:; +if ((*__INTEGER_IDEFINDWHOLEWORD)||new_error){ +if(qbevent){evnt(26070,5727,"ide_methods.bas");if(r)goto S_42607;} +do{ +*_FUNC_IDE2_LONG_WHOLE= 1 ; +if(!qbevent)break;evnt(26070,5728,"ide_methods.bas");}while(r); +S_42609:; +if ((-(*_FUNC_IDE2_LONG_X> 1 ))||new_error){ +if(qbevent){evnt(26070,5729,"ide_methods.bas");if(r)goto S_42609;} +do{ +*_FUNC_IDE2_LONG_C=qbs_asc(qbs_ucase(func_mid(_FUNC_IDE2_STRING_L,*_FUNC_IDE2_LONG_X- 1 , 1 ,0|1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5730,"ide_methods.bas");}while(r); +S_42611:; +if (((-(*_FUNC_IDE2_LONG_C>= 65 ))&(-(*_FUNC_IDE2_LONG_C<= 90 )))||new_error){ +if(qbevent){evnt(26070,5731,"ide_methods.bas");if(r)goto S_42611;} +do{ +*_FUNC_IDE2_LONG_WHOLE= 0 ; +if(!qbevent)break;evnt(26070,5731,"ide_methods.bas");}while(r); +} +S_42614:; +if (((-(*_FUNC_IDE2_LONG_C>= 48 ))&(-(*_FUNC_IDE2_LONG_C<= 57 )))||new_error){ +if(qbevent){evnt(26070,5732,"ide_methods.bas");if(r)goto S_42614;} +do{ +*_FUNC_IDE2_LONG_WHOLE= 0 ; +if(!qbevent)break;evnt(26070,5732,"ide_methods.bas");}while(r); +} +} +S_42618:; +if ((qbs_cleanup(qbs_tmp_base,-((*_FUNC_IDE2_LONG_X+_FUNC_IDE2_STRING_S->len)<=(_FUNC_IDE2_STRING_L->len))))||new_error){ +if(qbevent){evnt(26070,5734,"ide_methods.bas");if(r)goto S_42618;} +do{ +*_FUNC_IDE2_LONG_C=qbs_asc(qbs_ucase(func_mid(_FUNC_IDE2_STRING_L,*_FUNC_IDE2_LONG_X+_FUNC_IDE2_STRING_S->len, 1 ,0|1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5735,"ide_methods.bas");}while(r); +S_42620:; +if (((-(*_FUNC_IDE2_LONG_C>= 65 ))&(-(*_FUNC_IDE2_LONG_C<= 90 )))||new_error){ +if(qbevent){evnt(26070,5736,"ide_methods.bas");if(r)goto S_42620;} +do{ +*_FUNC_IDE2_LONG_WHOLE= 0 ; +if(!qbevent)break;evnt(26070,5736,"ide_methods.bas");}while(r); +} +S_42623:; +if (((-(*_FUNC_IDE2_LONG_C>= 48 ))&(-(*_FUNC_IDE2_LONG_C<= 57 )))||new_error){ +if(qbevent){evnt(26070,5737,"ide_methods.bas");if(r)goto S_42623;} +do{ +*_FUNC_IDE2_LONG_WHOLE= 0 ; +if(!qbevent)break;evnt(26070,5737,"ide_methods.bas");}while(r); +} +} +S_42627:; +if ((-(*_FUNC_IDE2_LONG_WHOLE== 0 ))||new_error){ +if(qbevent){evnt(26070,5739,"ide_methods.bas");if(r)goto S_42627;} +do{ +*_FUNC_IDE2_LONG_X1=*_FUNC_IDE2_LONG_X+ 1 ; +if(!qbevent)break;evnt(26070,5740,"ide_methods.bas");}while(r); +S_42629:; +if ((*__INTEGER_IDEFINDBACKWARDS)||new_error){ +if(qbevent){evnt(26070,5740,"ide_methods.bas");if(r)goto S_42629;} +do{ +*_FUNC_IDE2_LONG_X1=*_FUNC_IDE2_LONG_X- 1 ; +if(!qbevent)break;evnt(26070,5740,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDE2_LONG_X= 0 ; +if(!qbevent)break;evnt(26070,5741,"ide_methods.bas");}while(r); +S_42633:; +if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_IDE2_LONG_X1> 0 ))&(-(*_FUNC_IDE2_LONG_X1<=_FUNC_IDE2_STRING_L->len))))||new_error){ +if(qbevent){evnt(26070,5742,"ide_methods.bas");if(r)goto S_42633;} +do{ +goto LABEL_IDEFINDAGAIN2; +if(!qbevent)break;evnt(26070,5742,"ide_methods.bas");}while(r); +} +} +} +} +do{ +if(!qbevent)break;evnt(26070,5747,"ide_methods.bas");}while(r); +S_42640:; +if ((*_FUNC_IDE2_LONG_X)||new_error){ +if(qbevent){evnt(26070,5748,"ide_methods.bas");if(r)goto S_42640;} +do{ +SUB_FINDQUOTECOMMENT(_FUNC_IDE2_STRING_L,_FUNC_IDE2_LONG_X,_FUNC_IDE2_BYTE_COMMENT,_FUNC_IDE2_BYTE_QUOTE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5749,"ide_methods.bas");}while(r); +S_42642:; +if (((-(*__INTEGER_IDEFINDNOCOMMENTS!= 0 ))&*_FUNC_IDE2_BYTE_COMMENT)||new_error){ +if(qbevent){evnt(26070,5750,"ide_methods.bas");if(r)goto S_42642;} +do{ +*_FUNC_IDE2_LONG_X= 0 ; +if(!qbevent)break;evnt(26070,5750,"ide_methods.bas");}while(r); +} +S_42645:; +if (((-(*__INTEGER_IDEFINDNOSTRINGS!= 0 ))&*_FUNC_IDE2_BYTE_QUOTE)||new_error){ +if(qbevent){evnt(26070,5751,"ide_methods.bas");if(r)goto S_42645;} +do{ +*_FUNC_IDE2_LONG_X= 0 ; +if(!qbevent)break;evnt(26070,5751,"ide_methods.bas");}while(r); +} +S_42648:; +if (((-(*__INTEGER_IDEFINDONLYCOMMENTS!= 0 ))&(-(*_FUNC_IDE2_BYTE_COMMENT== 0 )))||new_error){ +if(qbevent){evnt(26070,5752,"ide_methods.bas");if(r)goto S_42648;} +do{ +*_FUNC_IDE2_LONG_X= 0 ; +if(!qbevent)break;evnt(26070,5752,"ide_methods.bas");}while(r); +} +S_42651:; +if (((-(*__INTEGER_IDEFINDONLYSTRINGS!= 0 ))&(-(*_FUNC_IDE2_BYTE_QUOTE== 0 )))||new_error){ +if(qbevent){evnt(26070,5753,"ide_methods.bas");if(r)goto S_42651;} +do{ +*_FUNC_IDE2_LONG_X= 0 ; +if(!qbevent)break;evnt(26070,5753,"ide_methods.bas");}while(r); +} +} +S_42655:; +if ((*_FUNC_IDE2_LONG_X)||new_error){ +if(qbevent){evnt(26070,5756,"ide_methods.bas");if(r)goto S_42655;} +do{ +*__LONG_IDESELECT= 1 ; +if(!qbevent)break;evnt(26070,5757,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECX=*_FUNC_IDE2_LONG_X; +if(!qbevent)break;evnt(26070,5758,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECY=*_FUNC_IDE2_LONG_Y; +if(!qbevent)break;evnt(26070,5758,"ide_methods.bas");}while(r); +do{ +SUB_IDECENTERCURRENTLINE(); +if(!qbevent)break;evnt(26070,5759,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESELECTX1=*_FUNC_IDE2_LONG_X+_FUNC_IDE2_STRING_S->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5760,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESELECTY1=*_FUNC_IDE2_LONG_Y; +if(!qbevent)break;evnt(26070,5760,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_FOUND= 1 ; +if(!qbevent)break;evnt(26070,5762,"ide_methods.bas");}while(r); +do{ +SUB_IDESHOWTEXT(); +if(!qbevent)break;evnt(26070,5763,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,5764,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(NULL,NULL, 1 ,NULL,NULL,4); +if(!qbevent)break;evnt(26070,5764,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,5764,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,5765,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_R,FUNC_IDECHANGEIT()); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5766,"ide_methods.bas");}while(r); +do{ +SUB_IDEDELTXT(); +if(!qbevent)break;evnt(26070,5767,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,5768,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,5768,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESELECT= 0 ; +if(!qbevent)break;evnt(26070,5769,"ide_methods.bas");}while(r); +S_42673:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_R,qbs_new_txt_len("C",1))))||new_error){ +if(qbevent){evnt(26070,5770,"ide_methods.bas");if(r)goto S_42673;} +do{ +*__LONG_IDECX=*_FUNC_IDE2_LONG_OLDCX; +if(!qbevent)break;evnt(26070,5771,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECY=*_FUNC_IDE2_LONG_OLDCY; +if(!qbevent)break;evnt(26070,5771,"ide_methods.bas");}while(r); +S_42676:; +if ((*_FUNC_IDE2_LONG_CHANGED)||new_error){ +if(qbevent){evnt(26070,5772,"ide_methods.bas");if(r)goto S_42676;} +do{ +SUB_IDESHOWTEXT(); +if(!qbevent)break;evnt(26070,5773,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,5774,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(NULL,NULL, 1 ,NULL,NULL,4); +if(!qbevent)break;evnt(26070,5774,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,5774,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,5775,"ide_methods.bas");}while(r); +do{ +SUB_IDECHANGED(_FUNC_IDE2_LONG_CHANGED); +if(!qbevent)break;evnt(26070,5776,"ide_methods.bas");}while(r); +} +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,5778,"ide_methods.bas");}while(r); +} +S_42686:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_R,qbs_new_txt_len("Y",1))))||new_error){ +if(qbevent){evnt(26070,5780,"ide_methods.bas");if(r)goto S_42686;} +do{ +qbs_set(_FUNC_IDE2_STRING_L,FUNC_IDEGETLINE(__LONG_IDECY)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5781,"ide_methods.bas");}while(r); +do{ +*__INTEGER_IDECHANGEMADE= 1 ; +if(!qbevent)break;evnt(26070,5782,"ide_methods.bas");}while(r); +do{ +*__BYTE_STARTPAUSEDPENDING= 0 ; +if(!qbevent)break;evnt(26070,5783,"ide_methods.bas");}while(r); +S_42690:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDE2_STRING_L->len>=*__LONG_IDESELECTX1)))||new_error){ +if(qbevent){evnt(26070,5784,"ide_methods.bas");if(r)goto S_42690;} +do{ +qbs_set(_FUNC_IDE2_STRING_L,qbs_add(qbs_add(qbs_left(_FUNC_IDE2_STRING_L,*__LONG_IDECX- 1 ),__STRING_IDECHANGETO),qbs_right(_FUNC_IDE2_STRING_L,_FUNC_IDE2_STRING_L->len-*__LONG_IDESELECTX1+ 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5785,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDE2_STRING_L,qbs_add(qbs_left(_FUNC_IDE2_STRING_L,*__LONG_IDECX- 1 ),__STRING_IDECHANGETO)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5787,"ide_methods.bas");}while(r); +} +do{ +SUB_IDESETLINE(__LONG_IDECY,_FUNC_IDE2_STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5789,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_CHANGED=*_FUNC_IDE2_LONG_CHANGED+ 1 ; +if(!qbevent)break;evnt(26070,5790,"ide_methods.bas");}while(r); +S_42697:; +if ((-(*__INTEGER_IDEFINDCASESENS== 0 ))||new_error){ +if(qbevent){evnt(26070,5791,"ide_methods.bas");if(r)goto S_42697;} +do{ +qbs_set(_FUNC_IDE2_STRING_L,qbs_ucase(_FUNC_IDE2_STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5791,"ide_methods.bas");}while(r); +} +S_42700:; +if ((*__INTEGER_IDEFINDBACKWARDS)||new_error){ +if(qbevent){evnt(26070,5793,"ide_methods.bas");if(r)goto S_42700;} +S_42701:; +if (((-(*_FUNC_IDE2_LONG_X<=*_FUNC_IDE2_LONG_STARTX))&(-(*_FUNC_IDE2_LONG_Y==*_FUNC_IDE2_LONG_START)))||new_error){ +if(qbevent){evnt(26070,5794,"ide_methods.bas");if(r)goto S_42701;} +do{ +*_FUNC_IDE2_LONG_STARTX=*_FUNC_IDE2_LONG_STARTX-_FUNC_IDE2_STRING_S->len+__STRING_IDECHANGETO->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5794,"ide_methods.bas");}while(r); +} +}else{ +S_42705:; +if (((-(*_FUNC_IDE2_LONG_X<=*_FUNC_IDE2_LONG_STARTX))&(-(*_FUNC_IDE2_LONG_Y==*_FUNC_IDE2_LONG_START))&(-(*_FUNC_IDE2_LONG_LOOPED== 1 )))||new_error){ +if(qbevent){evnt(26070,5796,"ide_methods.bas");if(r)goto S_42705;} +do{ +*_FUNC_IDE2_LONG_STARTX=*_FUNC_IDE2_LONG_STARTX-_FUNC_IDE2_STRING_S->len+__STRING_IDECHANGETO->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5796,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDE2_LONG_X=*_FUNC_IDE2_LONG_X+__STRING_IDECHANGETO->len- 1 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5797,"ide_methods.bas");}while(r); +} +}else{ +} +S_42712:; +if ((*__INTEGER_IDEFINDBACKWARDS)||new_error){ +if(qbevent){evnt(26070,5803,"ide_methods.bas");if(r)goto S_42712;} +do{ +*_FUNC_IDE2_LONG_X1=*_FUNC_IDE2_LONG_X- 1 ; +if(!qbevent)break;evnt(26070,5803,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_IDE2_LONG_X1=*_FUNC_IDE2_LONG_X+ 1 ; +if(!qbevent)break;evnt(26070,5803,"ide_methods.bas");}while(r); +} +do{ +goto LABEL_IDEFINDAGAIN2; +if(!qbevent)break;evnt(26070,5804,"ide_methods.bas");}while(r); +} +S_42719:; +if ((*__INTEGER_IDEFINDBACKWARDS)||new_error){ +if(qbevent){evnt(26070,5807,"ide_methods.bas");if(r)goto S_42719;} +do{ +*_FUNC_IDE2_LONG_Y=*_FUNC_IDE2_LONG_Y- 1 ; +if(!qbevent)break;evnt(26070,5808,"ide_methods.bas");}while(r); +S_42721:; +if (((-(*_FUNC_IDE2_LONG_Y==(*_FUNC_IDE2_LONG_START- 1 )))&(-(*_FUNC_IDE2_LONG_LOOPED== 1 )))||new_error){ +if(qbevent){evnt(26070,5809,"ide_methods.bas");if(r)goto S_42721;} +do{ +goto LABEL_FINISHEDCHANGE; +if(!qbevent)break;evnt(26070,5810,"ide_methods.bas");}while(r); +} +S_42724:; +if ((-(*_FUNC_IDE2_LONG_Y< 1 ))||new_error){ +if(qbevent){evnt(26070,5812,"ide_methods.bas");if(r)goto S_42724;} +do{ +*_FUNC_IDE2_LONG_Y=*__LONG_IDEN; +if(!qbevent)break;evnt(26070,5812,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_LOOPED= 1 ; +if(!qbevent)break;evnt(26070,5812,"ide_methods.bas");}while(r); +} +do{ +goto LABEL_IDEFINDNEXT2; +if(!qbevent)break;evnt(26070,5813,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_IDE2_LONG_Y=*_FUNC_IDE2_LONG_Y+ 1 ; +if(!qbevent)break;evnt(26070,5815,"ide_methods.bas");}while(r); +S_42731:; +if (((-(*_FUNC_IDE2_LONG_Y==(*_FUNC_IDE2_LONG_START+ 1 )))&(-(*_FUNC_IDE2_LONG_LOOPED== 1 )))||new_error){ +if(qbevent){evnt(26070,5816,"ide_methods.bas");if(r)goto S_42731;} +do{ +goto LABEL_FINISHEDCHANGE; +if(!qbevent)break;evnt(26070,5817,"ide_methods.bas");}while(r); +} +S_42734:; +if ((-(*_FUNC_IDE2_LONG_Y>*__LONG_IDEN))||new_error){ +if(qbevent){evnt(26070,5819,"ide_methods.bas");if(r)goto S_42734;} +do{ +*_FUNC_IDE2_LONG_Y= 1 ; +if(!qbevent)break;evnt(26070,5819,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_LOOPED= 1 ; +if(!qbevent)break;evnt(26070,5819,"ide_methods.bas");}while(r); +} +do{ +goto LABEL_IDEFINDNEXT2; +if(!qbevent)break;evnt(26070,5820,"ide_methods.bas");}while(r); +} +LABEL_FINISHEDCHANGE:; +if(qbevent){evnt(26070,5825,"ide_methods.bas");r=0;} +do{ +*__LONG_IDECX=*_FUNC_IDE2_LONG_OLDCX; +if(!qbevent)break;evnt(26070,5826,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECY=*_FUNC_IDE2_LONG_OLDCY; +if(!qbevent)break;evnt(26070,5826,"ide_methods.bas");}while(r); +S_42742:; +if ((*_FUNC_IDE2_LONG_CHANGED)||new_error){ +if(qbevent){evnt(26070,5827,"ide_methods.bas");if(r)goto S_42742;} +do{ +SUB_IDESHOWTEXT(); +if(!qbevent)break;evnt(26070,5828,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,5829,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(NULL,NULL, 1 ,NULL,NULL,4); +if(!qbevent)break;evnt(26070,5829,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,5829,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,5830,"ide_methods.bas");}while(r); +do{ +SUB_IDECHANGED(_FUNC_IDE2_LONG_CHANGED); +if(!qbevent)break;evnt(26070,5831,"ide_methods.bas");}while(r); +S_42749:; +}else{ +if (*_FUNC_IDE2_LONG_FOUND){ +if(qbevent){evnt(26070,5832,"ide_methods.bas");if(r)goto S_42749;} +do{ +SUB_IDESHOWTEXT(); +if(!qbevent)break;evnt(26070,5833,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,5834,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(NULL,NULL, 1 ,NULL,NULL,4); +if(!qbevent)break;evnt(26070,5834,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,5834,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,5835,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Search complete",15),qbs_new_txt_len("No changes made.",16),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5836,"ide_methods.bas");}while(r); +}else{ +do{ +SUB_IDENOMATCH(&(pass4563= -1 )); +if(!qbevent)break;evnt(26070,5838,"ide_methods.bas");}while(r); +} +} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,5840,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,5840,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,5841,"ide_methods.bas");}while(r); +} +S_42763:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Clear Search #History...",24))))||new_error){ +if(qbevent){evnt(26070,5844,"ide_methods.bas");if(r)goto S_42763;} +do{ +sub_pcopy( 2 , 0 ); +if(!qbevent)break;evnt(26070,5845,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_R,FUNC_IDECLEARHISTORY(qbs_new_txt_len("SEARCH",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5846,"ide_methods.bas");}while(r); +S_42766:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_R,qbs_new_txt_len("Y",1))))||new_error){ +if(qbevent){evnt(26070,5847,"ide_methods.bas");if(r)goto S_42766;} +do{ +*_FUNC_IDE2_LONG_FH=func_freefile(); +if(!qbevent)break;evnt(26070,5848,"ide_methods.bas");}while(r); +do{ +sub_open(qbs_new_txt_len(".\\internal\\temp\\searched.bin",28), 4 ,NULL,NULL,*_FUNC_IDE2_LONG_FH,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5849,"ide_methods.bas");}while(r); +do{ +sub_close(*_FUNC_IDE2_LONG_FH,1); +if(!qbevent)break;evnt(26070,5849,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_IDEFINDTEXT,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5850,"ide_methods.bas");}while(r); +} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,5852,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,5852,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,5853,"ide_methods.bas");}while(r); +} +S_42776:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Repeat Last Find (Shift+) F3",30))))||new_error){ +if(qbevent){evnt(26070,5856,"ide_methods.bas");if(r)goto S_42776;} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,5857,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,5857,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDEMF3; +if(!qbevent)break;evnt(26070,5858,"ide_methods.bas");}while(r); +} +S_42781:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Cl#ear Del",11))))||new_error){ +if(qbevent){evnt(26070,5861,"ide_methods.bas");if(r)goto S_42781;} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,5862,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,5862,"ide_methods.bas");}while(r); +S_42784:; +if (((-(*__LONG_IDESYSTEM== 1 ))&(-(*__LONG_IDESELECT== 1 )))||new_error){ +if(qbevent){evnt(26070,5863,"ide_methods.bas");if(r)goto S_42784;} +do{ +*__INTEGER_IDECHANGEMADE= 1 ; +if(!qbevent)break;evnt(26070,5864,"ide_methods.bas");}while(r); +do{ +*__BYTE_STARTPAUSEDPENDING= 0 ; +if(!qbevent)break;evnt(26070,5865,"ide_methods.bas");}while(r); +do{ +SUB_DELSELECT(); +if(!qbevent)break;evnt(26070,5866,"ide_methods.bas");}while(r); +S_42788:; +}else{ +if (-(*__LONG_IDESYSTEM== 2 )){ +if(qbevent){evnt(26070,5867,"ide_methods.bas");if(r)goto S_42788;} +do{ +goto LABEL_DELETESELECTIONSEARCHFIELD; +if(!qbevent)break;evnt(26070,5868,"ide_methods.bas");}while(r); +} +} +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,5870,"ide_methods.bas");}while(r); +} +S_42793:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Paste Shift+Ins or Ctrl+V",27))))||new_error){ +if(qbevent){evnt(26070,5873,"ide_methods.bas");if(r)goto S_42793;} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,5874,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,5874,"ide_methods.bas");}while(r); +S_42796:; +if ((-(*__LONG_IDESYSTEM== 1 ))||new_error){ +if(qbevent){evnt(26070,5875,"ide_methods.bas");if(r)goto S_42796;} +do{ +goto LABEL_IDEMPASTE; +if(!qbevent)break;evnt(26070,5875,"ide_methods.bas");}while(r); +} +S_42799:; +if ((-(*__LONG_IDESYSTEM== 2 ))||new_error){ +if(qbevent){evnt(26070,5876,"ide_methods.bas");if(r)goto S_42799;} +do{ +goto LABEL_PASTEINTOSEARCHFIELD; +if(!qbevent)break;evnt(26070,5876,"ide_methods.bas");}while(r); +} +} +S_42803:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Copy Ctrl+Ins or Ctrl+C",25))))||new_error){ +if(qbevent){evnt(26070,5879,"ide_methods.bas");if(r)goto S_42803;} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,5880,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,5880,"ide_methods.bas");}while(r); +S_42806:; +if (((-(*__LONG_IDESYSTEM== 1 ))&(-(*__LONG_IDESELECT== 1 )))||new_error){ +if(qbevent){evnt(26070,5881,"ide_methods.bas");if(r)goto S_42806;} +do{ +goto LABEL_COPY2CLIP; +if(!qbevent)break;evnt(26070,5881,"ide_methods.bas");}while(r); +} +S_42809:; +if ((-(*__LONG_IDESYSTEM== 2 ))||new_error){ +if(qbevent){evnt(26070,5882,"ide_methods.bas");if(r)goto S_42809;} +do{ +goto LABEL_COPYSEARCHTERM2CLIP; +if(!qbevent)break;evnt(26070,5882,"ide_methods.bas");}while(r); +} +S_42812:; +if (((-(*__LONG_IDESYSTEM== 3 ))&(-(*__LONG_HELP_SELECT== 2 )))||new_error){ +if(qbevent){evnt(26070,5883,"ide_methods.bas");if(r)goto S_42812;} +do{ +goto LABEL_COPYHELP2CLIP; +if(!qbevent)break;evnt(26070,5883,"ide_methods.bas");}while(r); +} +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,5884,"ide_methods.bas");}while(r); +} +S_42817:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Cu#t Shift+Del or Ctrl+X",25))))||new_error){ +if(qbevent){evnt(26070,5887,"ide_methods.bas");if(r)goto S_42817;} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,5888,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,5888,"ide_methods.bas");}while(r); +S_42820:; +if (((-(*__LONG_IDESYSTEM== 1 ))&(-(*__LONG_IDESELECT== 1 )))||new_error){ +if(qbevent){evnt(26070,5889,"ide_methods.bas");if(r)goto S_42820;} +do{ +qbs_set(__STRING_K,qbs_add(func_chr( 0 ),qbs_new_txt_len("S",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5890,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDEMCUT; +if(!qbevent)break;evnt(26070,5891,"ide_methods.bas");}while(r); +S_42823:; +}else{ +if (-(*__LONG_IDESYSTEM== 2 )){ +if(qbevent){evnt(26070,5892,"ide_methods.bas");if(r)goto S_42823;} +do{ +goto LABEL_CUTTOCLIPBOARDSEARCHFIELD; +if(!qbevent)break;evnt(26070,5893,"ide_methods.bas");}while(r); +} +} +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,5895,"ide_methods.bas");}while(r); +} +S_42828:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Undo Ctrl+Z",13))))||new_error){ +if(qbevent){evnt(26070,5898,"ide_methods.bas");if(r)goto S_42828;} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,5899,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,5899,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDEMUNDO; +if(!qbevent)break;evnt(26070,5900,"ide_methods.bas");}while(r); +} +S_42833:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Redo Ctrl+Y",13))))||new_error){ +if(qbevent){evnt(26070,5903,"ide_methods.bas");if(r)goto S_42833;} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,5904,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,5904,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDEMREDO; +if(!qbevent)break;evnt(26070,5905,"ide_methods.bas");}while(r); +} +S_42838:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Select #All Ctrl+A",19))))||new_error){ +if(qbevent){evnt(26070,5909,"ide_methods.bas");if(r)goto S_42838;} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,5910,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,5910,"ide_methods.bas");}while(r); +S_42841:; +if ((-(*__LONG_IDESYSTEM== 1 ))||new_error){ +if(qbevent){evnt(26070,5911,"ide_methods.bas");if(r)goto S_42841;} +do{ +goto LABEL_IDEMSELECTALL; +if(!qbevent)break;evnt(26070,5911,"ide_methods.bas");}while(r); +} +S_42844:; +if ((-(*__LONG_IDESYSTEM== 2 ))||new_error){ +if(qbevent){evnt(26070,5912,"ide_methods.bas");if(r)goto S_42844;} +do{ +goto LABEL_SELECTALLINSEARCHFIELD; +if(!qbevent)break;evnt(26070,5912,"ide_methods.bas");}while(r); +} +S_42847:; +if ((-(*__LONG_IDESYSTEM== 3 ))||new_error){ +if(qbevent){evnt(26070,5913,"ide_methods.bas");if(r)goto S_42847;} +do{ +goto LABEL_SELECTALLINHELP; +if(!qbevent)break;evnt(26070,5913,"ide_methods.bas");}while(r); +} +} +S_42851:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Clo#se Help ESC",16))))||new_error){ +if(qbevent){evnt(26070,5916,"ide_methods.bas");if(r)goto S_42851;} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,5917,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,5917,"ide_methods.bas");}while(r); +do{ +goto LABEL_CLOSEHELP; +if(!qbevent)break;evnt(26070,5918,"ide_methods.bas");}while(r); +} +S_42856:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Start F5",10))))||new_error){ +if(qbevent){evnt(26070,5921,"ide_methods.bas");if(r)goto S_42856;} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,5922,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,5922,"ide_methods.bas");}while(r); +do{ +*__LONG_STARTPAUSED= 0 ; +if(!qbevent)break;evnt(26070,5923,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDEMRUN; +if(!qbevent)break;evnt(26070,5924,"ide_methods.bas");}while(r); +} +S_42862:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Run only (No exe)",17))))||new_error){ +if(qbevent){evnt(26070,5927,"ide_methods.bas");if(r)goto S_42862;} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,5928,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,5928,"ide_methods.bas");}while(r); +do{ +*__INTEGER_NOEXESAVED= -1 ; +if(!qbevent)break;evnt(26070,5929,"ide_methods.bas");}while(r); +do{ +*__LONG_STARTPAUSED= 0 ; +if(!qbevent)break;evnt(26070,5930,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDEMRUN; +if(!qbevent)break;evnt(26070,5931,"ide_methods.bas");}while(r); +} +S_42869:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Modify #COMMAND$...",19))))||new_error){ +if(qbevent){evnt(26070,5936,"ide_methods.bas");if(r)goto S_42869;} +do{ +sub_pcopy( 2 , 0 ); +if(!qbevent)break;evnt(26070,5937,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_MODIFYCOMMAND,qbs_add(qbs_new_txt_len(" ",1),FUNC_IDEINPUTBOX(qbs_new_txt_len("Modify COMMAND$",15),qbs_new_txt_len("#Enter text for COMMAND$",24),qbs__trim(__STRING_MODIFYCOMMAND),qbs_new_txt_len("",0),&(pass4564= 60 ),&(pass4565= 0 ),&(pass4566= 0 )))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5938,"ide_methods.bas");}while(r); +S_42872:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs__trim(__STRING_MODIFYCOMMAND),qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,5939,"ide_methods.bas");if(r)goto S_42872;} +do{ +qbs_set(__STRING_MODIFYCOMMAND,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5939,"ide_methods.bas");}while(r); +} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,5941,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,5941,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,5942,"ide_methods.bas");}while(r); +} +S_42879:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Make E#XE Only F11",19)))|(qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Make E#xecutable Only F11",26)))))||new_error){ +if(qbevent){evnt(26070,5945,"ide_methods.bas");if(r)goto S_42879;} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,5946,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,5946,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDEMEXE; +if(!qbevent)break;evnt(26070,5947,"ide_methods.bas");}while(r); +} +S_42884:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Start #Paused F7 or F8",23))))||new_error){ +if(qbevent){evnt(26070,5950,"ide_methods.bas");if(r)goto S_42884;} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,5951,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,5951,"ide_methods.bas");}while(r); +LABEL_STARTPAUSEDMENUHANDLER:; +if(qbevent){evnt(26070,5952,"ide_methods.bas");r=0;} +S_42887:; +if ((-(*__LONG_VWATCHON== 0 ))||new_error){ +if(qbevent){evnt(26070,5953,"ide_methods.bas");if(r)goto S_42887;} +S_42888:; +if ((-(*__BYTE_AUTOADDDEBUGCOMMAND== 0 ))||new_error){ +if(qbevent){evnt(26070,5954,"ide_methods.bas");if(r)goto S_42888;} +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,5955,"ide_methods.bas");}while(r); +do{ +SUB_CLEARSTATUSWINDOW(&(pass4567= 2 )); +if(!qbevent)break;evnt(26070,5956,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 14 , 1 ,NULL,3); +if(!qbevent)break;evnt(26070,5957,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_X= 2 ; +if(!qbevent)break;evnt(26070,5958,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_Y=*__LONG_IDEWY- 2 ; +if(!qbevent)break;evnt(26070,5959,"ide_methods.bas");}while(r); +do{ +SUB_PRINTWRAPSTATUS(&(pass4568=*_FUNC_IDE2_LONG_X),&(pass4569=*_FUNC_IDE2_LONG_Y),&(pass4570=*_FUNC_IDE2_LONG_X),qbs_new_txt_len("$DEBUG metacommand is required to start paused.",47)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5960,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,5961,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,5962,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDE2_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Start Paused",12),qbs_new_txt_len("Insert $DEBUG metacommand?",26),qbs_new_txt_len("#Yes;#No;#Don't show this again",31)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5964,"ide_methods.bas");}while(r); +S_42899:; +if ((-(*_FUNC_IDE2_LONG_RESULT== 1 ))||new_error){ +if(qbevent){evnt(26070,5965,"ide_methods.bas");if(r)goto S_42899;} +do{ +*__LONG_IDESELECT= 0 ; +if(!qbevent)break;evnt(26070,5966,"ide_methods.bas");}while(r); +do{ +SUB_IDEINSLINE(&(pass4571= 1 ),FUNC_SCASE(qbs_new_txt_len("$Debug",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5967,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECY=*__LONG_IDECY+ 1 ; +if(!qbevent)break;evnt(26070,5968,"ide_methods.bas");}while(r); +do{ +*__INTEGER_IDECHANGEMADE= 1 ; +if(!qbevent)break;evnt(26070,5969,"ide_methods.bas");}while(r); +do{ +*__LONG_STARTPAUSED= -1 ; +if(!qbevent)break;evnt(26070,5970,"ide_methods.bas");}while(r); +do{ +*__BYTE_STARTPAUSEDPENDING= -1 ; +if(!qbevent)break;evnt(26070,5971,"ide_methods.bas");}while(r); +do{ +goto LABEL_SPECIALCHAR; +if(!qbevent)break;evnt(26070,5972,"ide_methods.bas");}while(r); +S_42907:; +}else{ +if (-(*_FUNC_IDE2_LONG_RESULT== 3 )){ +if(qbevent){evnt(26070,5973,"ide_methods.bas");if(r)goto S_42907;} +do{ +*_FUNC_IDE2_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Debug",5),qbs_new_txt_len("You can reenable the 'Auto-add $Debug Metacommand' feature\\nin the Debug menu.",78),qbs_new_txt_len("#OK",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5974,"ide_methods.bas");}while(r); +do{ +*__BYTE_AUTOADDDEBUGCOMMAND= 0 ; +if(!qbevent)break;evnt(26070,5975,"ide_methods.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_DEBUGSETTINGSSECTION,qbs_new_txt_len("AutoAddDebugCommand",19),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5976,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*__INTEGER_DEBUGMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_DEBUGMENUAUTOADDCOMMAND)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Auto-add $#Debug Metacommand",28)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5977,"ide_methods.bas");}while(r); +} +} +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,5979,"ide_methods.bas");}while(r); +}else{ +do{ +*__BYTE_STARTPAUSEDPENDING= 0 ; +if(!qbevent)break;evnt(26070,5981,"ide_methods.bas");}while(r); +do{ +*__LONG_STARTPAUSED= -1 ; +if(!qbevent)break;evnt(26070,5982,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDEMRUN; +if(!qbevent)break;evnt(26070,5983,"ide_methods.bas");}while(r); +} +} +S_42920:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Watch List... F4",18))))||new_error){ +if(qbevent){evnt(26070,5987,"ide_methods.bas");if(r)goto S_42920;} +S_42921:; +if ((-(*__LONG_IDEDEBUGMODE== 2 ))||new_error){ +if(qbevent){evnt(26070,5988,"ide_methods.bas");if(r)goto S_42921;} +do{ +*__LONG_IDEDEBUGMODE= 16 ; +if(!qbevent)break;evnt(26070,5989,"ide_methods.bas");}while(r); +do{ +goto LABEL_ENTERDEBUGMODE; +if(!qbevent)break;evnt(26070,5990,"ide_methods.bas");}while(r); +}else{ +do{ +sub_pcopy( 2 , 0 ); +if(!qbevent)break;evnt(26070,5992,"ide_methods.bas");}while(r); +LABEL_SHOWWATCHLIST:; +if(qbevent){evnt(26070,5993,"ide_methods.bas");r=0;} +S_42926:; +if ((-(*__LONG_VWATCHON== 0 ))||new_error){ +if(qbevent){evnt(26070,5994,"ide_methods.bas");if(r)goto S_42926;} +S_42927:; +if ((-(*__BYTE_AUTOADDDEBUGCOMMAND== 0 ))||new_error){ +if(qbevent){evnt(26070,5995,"ide_methods.bas");if(r)goto S_42927;} +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,5996,"ide_methods.bas");}while(r); +do{ +SUB_CLEARSTATUSWINDOW(&(pass4572= 2 )); +if(!qbevent)break;evnt(26070,5997,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 14 , 1 ,NULL,3); +if(!qbevent)break;evnt(26070,5998,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_X= 2 ; +if(!qbevent)break;evnt(26070,5999,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_Y=*__LONG_IDEWY- 2 ; +if(!qbevent)break;evnt(26070,6000,"ide_methods.bas");}while(r); +do{ +SUB_PRINTWRAPSTATUS(&(pass4573=*_FUNC_IDE2_LONG_X),&(pass4574=*_FUNC_IDE2_LONG_Y),&(pass4575=*_FUNC_IDE2_LONG_X),qbs_new_txt_len("$DEBUG metacommand is required for Watch List functionality.",60)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6001,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,6002,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,6003,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDE2_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Watch List",10),qbs_new_txt_len("Insert $DEBUG metacommand?",26),qbs_new_txt_len("#Yes;#No;#Don't show this again",31)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6005,"ide_methods.bas");}while(r); +S_42938:; +if ((-(*_FUNC_IDE2_LONG_RESULT== 1 ))||new_error){ +if(qbevent){evnt(26070,6006,"ide_methods.bas");if(r)goto S_42938;} +do{ +*__LONG_IDESELECT= 0 ; +if(!qbevent)break;evnt(26070,6007,"ide_methods.bas");}while(r); +do{ +SUB_IDEINSLINE(&(pass4576= 1 ),FUNC_SCASE(qbs_new_txt_len("$Debug",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6008,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECY=*__LONG_IDECY+ 1 ; +if(!qbevent)break;evnt(26070,6009,"ide_methods.bas");}while(r); +do{ +*__INTEGER_IDECHANGEMADE= 1 ; +if(!qbevent)break;evnt(26070,6010,"ide_methods.bas");}while(r); +S_42943:; +}else{ +if (-(*_FUNC_IDE2_LONG_RESULT== 3 )){ +if(qbevent){evnt(26070,6011,"ide_methods.bas");if(r)goto S_42943;} +do{ +*_FUNC_IDE2_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Debug",5),qbs_new_txt_len("You can reenable the 'Auto-add $Debug Metacommand' feature\\nin the Debug menu.",78),qbs_new_txt_len("#OK",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6012,"ide_methods.bas");}while(r); +do{ +*__BYTE_AUTOADDDEBUGCOMMAND= 0 ; +if(!qbevent)break;evnt(26070,6013,"ide_methods.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_DEBUGSETTINGSSECTION,qbs_new_txt_len("AutoAddDebugCommand",19),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6014,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*__INTEGER_DEBUGMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_DEBUGMENUAUTOADDCOMMAND)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Auto-add $#Debug Metacommand",28)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6015,"ide_methods.bas");}while(r); +} +} +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,6017,"ide_methods.bas");}while(r); +}else{ +S_42951:; +if ((-(*__LONG_IDECOMPILING== 1 ))||new_error){ +if(qbevent){evnt(26070,6019,"ide_methods.bas");if(r)goto S_42951;} +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,6020,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 14 , 1 ,NULL,3); +if(!qbevent)break;evnt(26070,6021,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_X= 2 ; +if(!qbevent)break;evnt(26070,6022,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_Y=*__LONG_IDEWY- 2 ; +if(!qbevent)break;evnt(26070,6023,"ide_methods.bas");}while(r); +do{ +SUB_PRINTWRAPSTATUS(&(pass4577=*_FUNC_IDE2_LONG_X),&(pass4578=*_FUNC_IDE2_LONG_Y),&(pass4579=*_FUNC_IDE2_LONG_X),qbs_new_txt_len("Variable List will be available after syntax checking is done...",64)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6024,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_BYTE_WAITINGFORVARLIST= 1 ; +if(!qbevent)break;evnt(26070,6025,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,6026,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,6027,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDE2_STRING_RESULT,FUNC_IDEVARIABLEWATCHBOX(qbs_new_txt_len("",0),qbs_new_txt_len("",0),&(pass4580= 0 ),&(pass4581= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6029,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,6030,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,6030,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,6031,"ide_methods.bas");}while(r); +} +} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,6034,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,6034,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,6035,"ide_methods.bas");}while(r); +} +} +S_42972:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Call #Stack... F12",19)))|(qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Call Stack... F12",18)))))||new_error){ +if(qbevent){evnt(26070,6039,"ide_methods.bas");if(r)goto S_42972;} +S_42973:; +if ((-(*__LONG_IDEDEBUGMODE== 2 ))||new_error){ +if(qbevent){evnt(26070,6040,"ide_methods.bas");if(r)goto S_42973;} +do{ +*__LONG_IDEDEBUGMODE= 3 ; +if(!qbevent)break;evnt(26070,6041,"ide_methods.bas");}while(r); +do{ +goto LABEL_ENTERDEBUGMODE; +if(!qbevent)break;evnt(26070,6042,"ide_methods.bas");}while(r); +}else{ +do{ +sub_pcopy( 2 , 0 ); +if(!qbevent)break;evnt(26070,6044,"ide_methods.bas");}while(r); +LABEL_SHOWCALLSTACKDIALOG:; +if(qbevent){evnt(26070,6045,"ide_methods.bas");r=0;} +do{ +*_FUNC_IDE2_LONG_RETVAL=FUNC_IDECALLSTACKBOX(); +if(!qbevent)break;evnt(26070,6046,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,6048,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,6048,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,6049,"ide_methods.bas");}while(r); +} +} +S_42984:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Continue F5",13))))||new_error){ +if(qbevent){evnt(26070,6053,"ide_methods.bas");if(r)goto S_42984;} +do{ +*__LONG_IDEDEBUGMODE= 4 ; +if(!qbevent)break;evnt(26070,6054,"ide_methods.bas");}while(r); +do{ +goto LABEL_ENTERDEBUGMODE; +if(!qbevent)break;evnt(26070,6055,"ide_methods.bas");}while(r); +} +S_42988:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Step O#ut F6",13))))||new_error){ +if(qbevent){evnt(26070,6058,"ide_methods.bas");if(r)goto S_42988;} +do{ +*__LONG_IDEDEBUGMODE= 5 ; +if(!qbevent)break;evnt(26070,6059,"ide_methods.bas");}while(r); +do{ +goto LABEL_ENTERDEBUGMODE; +if(!qbevent)break;evnt(26070,6060,"ide_methods.bas");}while(r); +} +S_42992:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Ste#p Into F7",14))))||new_error){ +if(qbevent){evnt(26070,6063,"ide_methods.bas");if(r)goto S_42992;} +do{ +*__LONG_IDEDEBUGMODE= 7 ; +if(!qbevent)break;evnt(26070,6064,"ide_methods.bas");}while(r); +do{ +goto LABEL_ENTERDEBUGMODE; +if(!qbevent)break;evnt(26070,6065,"ide_methods.bas");}while(r); +} +S_42996:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Step #Over F8",14))))||new_error){ +if(qbevent){evnt(26070,6068,"ide_methods.bas");if(r)goto S_42996;} +do{ +*__LONG_IDEDEBUGMODE= 6 ; +if(!qbevent)break;evnt(26070,6069,"ide_methods.bas");}while(r); +do{ +goto LABEL_ENTERDEBUGMODE; +if(!qbevent)break;evnt(26070,6070,"ide_methods.bas");}while(r); +} +S_43000:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Run To This Line Ctrl+Shift+G",31))))||new_error){ +if(qbevent){evnt(26070,6073,"ide_methods.bas");if(r)goto S_43000;} +do{ +*__LONG_IDEDEBUGMODE= 8 ; +if(!qbevent)break;evnt(26070,6074,"ide_methods.bas");}while(r); +do{ +goto LABEL_ENTERDEBUGMODE; +if(!qbevent)break;evnt(26070,6075,"ide_methods.bas");}while(r); +} +S_43004:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Exit $DEBUG mode ESC",22))))||new_error){ +if(qbevent){evnt(26070,6078,"ide_methods.bas");if(r)goto S_43004;} +do{ +*__LONG_IDEDEBUGMODE= 9 ; +if(!qbevent)break;evnt(26070,6079,"ide_methods.bas");}while(r); +do{ +goto LABEL_ENTERDEBUGMODE; +if(!qbevent)break;evnt(26070,6080,"ide_methods.bas");}while(r); +} +S_43008:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Toggle #Breakpoint F9",22))))||new_error){ +if(qbevent){evnt(26070,6083,"ide_methods.bas");if(r)goto S_43008;} +S_43009:; +if ((-(*__LONG_IDEDEBUGMODE== 2 ))||new_error){ +if(qbevent){evnt(26070,6084,"ide_methods.bas");if(r)goto S_43009;} +do{ +*__LONG_IDEDEBUGMODE= 10 ; +if(!qbevent)break;evnt(26070,6085,"ide_methods.bas");}while(r); +do{ +goto LABEL_ENTERDEBUGMODE; +if(!qbevent)break;evnt(26070,6086,"ide_methods.bas");}while(r); +}else{ +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,6088,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,6088,"ide_methods.bas");}while(r); +LABEL_TOGGLEBREAKPOINT:; +if(qbevent){evnt(26070,6089,"ide_methods.bas");r=0;} +S_43015:; +if ((-(*__LONG_VWATCHON== 0 ))||new_error){ +if(qbevent){evnt(26070,6090,"ide_methods.bas");if(r)goto S_43015;} +S_43016:; +if ((-(*__BYTE_AUTOADDDEBUGCOMMAND== 0 ))||new_error){ +if(qbevent){evnt(26070,6091,"ide_methods.bas");if(r)goto S_43016;} +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,6092,"ide_methods.bas");}while(r); +do{ +SUB_CLEARSTATUSWINDOW(&(pass4582= 2 )); +if(!qbevent)break;evnt(26070,6093,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 14 , 1 ,NULL,3); +if(!qbevent)break;evnt(26070,6094,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_X= 2 ; +if(!qbevent)break;evnt(26070,6095,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_Y=*__LONG_IDEWY- 2 ; +if(!qbevent)break;evnt(26070,6096,"ide_methods.bas");}while(r); +do{ +SUB_PRINTWRAPSTATUS(&(pass4583=*_FUNC_IDE2_LONG_X),&(pass4584=*_FUNC_IDE2_LONG_Y),&(pass4585=*_FUNC_IDE2_LONG_X),qbs_new_txt_len("$DEBUG metacommand is required to enable breakpoints.",53)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6097,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,6098,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,6099,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDE2_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Toggle Breakpoint",17),qbs_new_txt_len("Insert $DEBUG metacommand?",26),qbs_new_txt_len("#Yes;#No;#Don't show this again",31)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6101,"ide_methods.bas");}while(r); +S_43027:; +if ((-(*_FUNC_IDE2_LONG_RESULT== 1 ))||new_error){ +if(qbevent){evnt(26070,6102,"ide_methods.bas");if(r)goto S_43027;} +do{ +*__LONG_IDESELECT= 0 ; +if(!qbevent)break;evnt(26070,6103,"ide_methods.bas");}while(r); +do{ +SUB_IDEINSLINE(&(pass4586= 1 ),FUNC_SCASE(qbs_new_txt_len("$Debug",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6104,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECY=*__LONG_IDECY+ 1 ; +if(!qbevent)break;evnt(26070,6105,"ide_methods.bas");}while(r); +do{ +*__INTEGER_IDECHANGEMADE= 1 ; +if(!qbevent)break;evnt(26070,6106,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*__LONG_IDECY)-__ARRAY_BYTE_IDEBREAKPOINTS[4],__ARRAY_BYTE_IDEBREAKPOINTS[5]); +if (!new_error) ((int8*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]))[tmp_long]=~(((int8*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]))[array_check((*__LONG_IDECY)-__ARRAY_BYTE_IDEBREAKPOINTS[4],__ARRAY_BYTE_IDEBREAKPOINTS[5])]); +if(!qbevent)break;evnt(26070,6107,"ide_methods.bas");}while(r); +S_43033:; +}else{ +if (-(*_FUNC_IDE2_LONG_RESULT== 3 )){ +if(qbevent){evnt(26070,6108,"ide_methods.bas");if(r)goto S_43033;} +do{ +*_FUNC_IDE2_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Debug",5),qbs_new_txt_len("You can reenable the 'Auto-add $Debug Metacommand' feature\\nin the Debug menu.",78),qbs_new_txt_len("#OK",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6109,"ide_methods.bas");}while(r); +do{ +*__BYTE_AUTOADDDEBUGCOMMAND= 0 ; +if(!qbevent)break;evnt(26070,6110,"ide_methods.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_DEBUGSETTINGSSECTION,qbs_new_txt_len("AutoAddDebugCommand",19),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6111,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*__INTEGER_DEBUGMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_DEBUGMENUAUTOADDCOMMAND)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Auto-add $#Debug Metacommand",28)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6112,"ide_methods.bas");}while(r); +} +} +}else{ +do{ +tmp_long=array_check((*__LONG_IDECY)-__ARRAY_BYTE_IDEBREAKPOINTS[4],__ARRAY_BYTE_IDEBREAKPOINTS[5]); +if (!new_error) ((int8*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]))[tmp_long]=~(((int8*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]))[array_check((*__LONG_IDECY)-__ARRAY_BYTE_IDEBREAKPOINTS[4],__ARRAY_BYTE_IDEBREAKPOINTS[5])]); +if(!qbevent)break;evnt(26070,6115,"ide_methods.bas");}while(r); +} +S_43042:; +if ((((int8*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]))[array_check((*__LONG_IDECY)-__ARRAY_BYTE_IDEBREAKPOINTS[4],__ARRAY_BYTE_IDEBREAKPOINTS[5])])||new_error){ +if(qbevent){evnt(26070,6117,"ide_methods.bas");if(r)goto S_43042;} +do{ +tmp_long=array_check((*__LONG_IDECY)-__ARRAY_BYTE_IDESKIPLINES[4],__ARRAY_BYTE_IDESKIPLINES[5]); +if (!new_error) ((int8*)(__ARRAY_BYTE_IDESKIPLINES[0]))[tmp_long]= 0 ; +if(!qbevent)break;evnt(26070,6117,"ide_methods.bas");}while(r); +} +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,6118,"ide_methods.bas");}while(r); +} +} +S_43048:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Clear All Breakpoints F10",27)))|(qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Clear All Breakpoints F10",26)))))||new_error){ +if(qbevent){evnt(26070,6122,"ide_methods.bas");if(r)goto S_43048;} +S_43049:; +if ((-(*__LONG_IDEDEBUGMODE== 2 ))||new_error){ +if(qbevent){evnt(26070,6123,"ide_methods.bas");if(r)goto S_43049;} +do{ +*__LONG_IDEDEBUGMODE= 11 ; +if(!qbevent)break;evnt(26070,6124,"ide_methods.bas");}while(r); +do{ +goto LABEL_ENTERDEBUGMODE; +if(!qbevent)break;evnt(26070,6125,"ide_methods.bas");}while(r); +}else{ +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,6127,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,6127,"ide_methods.bas");}while(r); +LABEL_CLEARALLBREAKPOINTS:; +if(qbevent){evnt(26070,6128,"ide_methods.bas");r=0;} +do{ if (__ARRAY_BYTE_IDEBREAKPOINTS[2]&2){ error(10); @@ -143629,153 +143629,153 @@ __ARRAY_BYTE_IDEBREAKPOINTS[0]=(ptrszint)calloc(__ARRAY_BYTE_IDEBREAKPOINTS[5]*1 if (!__ARRAY_BYTE_IDEBREAKPOINTS[0]) error(257); } __ARRAY_BYTE_IDEBREAKPOINTS[2]|=1; -} -if(!qbevent)break;evnt(26070,6129,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,6130,"ide_methods.bas");}while(r); -} -} -S_43059:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Toggle #Skip Line Ctrl+P",25))))||new_error){ -if(qbevent){evnt(26070,6134,"ide_methods.bas");if(r)goto S_43059;} -S_43060:; -if ((-(*__LONG_IDEDEBUGMODE== 2 ))||new_error){ -if(qbevent){evnt(26070,6135,"ide_methods.bas");if(r)goto S_43060;} -do{ -*__LONG_IDEDEBUGMODE= 12 ; -if(!qbevent)break;evnt(26070,6136,"ide_methods.bas");}while(r); -do{ -goto LABEL_ENTERDEBUGMODE; -if(!qbevent)break;evnt(26070,6137,"ide_methods.bas");}while(r); -}else{ -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,6139,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,6139,"ide_methods.bas");}while(r); -LABEL_TOGGLESKIPLINE:; -if(qbevent){evnt(26070,6140,"ide_methods.bas");r=0;} -S_43066:; -if ((-(*__LONG_VWATCHON== 0 ))||new_error){ -if(qbevent){evnt(26070,6141,"ide_methods.bas");if(r)goto S_43066;} -S_43067:; -if ((-(*__BYTE_AUTOADDDEBUGCOMMAND== 0 ))||new_error){ -if(qbevent){evnt(26070,6142,"ide_methods.bas");if(r)goto S_43067;} -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,6143,"ide_methods.bas");}while(r); -do{ -SUB_CLEARSTATUSWINDOW(&(pass4587= 2 )); -if(!qbevent)break;evnt(26070,6144,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 14 , 1 ,NULL,3); -if(!qbevent)break;evnt(26070,6145,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_X= 2 ; -if(!qbevent)break;evnt(26070,6146,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_Y=*__LONG_IDEWY- 2 ; -if(!qbevent)break;evnt(26070,6147,"ide_methods.bas");}while(r); -do{ -SUB_PRINTWRAPSTATUS(&(pass4588=*_FUNC_IDE2_LONG_X),&(pass4589=*_FUNC_IDE2_LONG_Y),&(pass4590=*_FUNC_IDE2_LONG_X),qbs_new_txt_len("$DEBUG metacommand is required to enable line skipping.",55)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6148,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,6149,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,6150,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDE2_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Toggle Skip Line",16),qbs_new_txt_len("Insert $DEBUG metacommand?",26),qbs_new_txt_len("#Yes;#No;#Don't show this again",31)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6152,"ide_methods.bas");}while(r); -S_43078:; -if ((-(*_FUNC_IDE2_LONG_RESULT== 1 ))||new_error){ -if(qbevent){evnt(26070,6153,"ide_methods.bas");if(r)goto S_43078;} -do{ -*__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(26070,6154,"ide_methods.bas");}while(r); -do{ -SUB_IDEINSLINE(&(pass4591= 1 ),FUNC_SCASE(qbs_new_txt_len("$Debug",6))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6155,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECY=*__LONG_IDECY+ 1 ; -if(!qbevent)break;evnt(26070,6156,"ide_methods.bas");}while(r); -do{ -*__INTEGER_IDECHANGEMADE= 1 ; -if(!qbevent)break;evnt(26070,6157,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*__LONG_IDECY)-__ARRAY_BYTE_IDESKIPLINES[4],__ARRAY_BYTE_IDESKIPLINES[5]); -if (!new_error) ((int8*)(__ARRAY_BYTE_IDESKIPLINES[0]))[tmp_long]=~(((int8*)(__ARRAY_BYTE_IDESKIPLINES[0]))[array_check((*__LONG_IDECY)-__ARRAY_BYTE_IDESKIPLINES[4],__ARRAY_BYTE_IDESKIPLINES[5])]); -if(!qbevent)break;evnt(26070,6158,"ide_methods.bas");}while(r); -S_43084:; -}else{ -if (-(*_FUNC_IDE2_LONG_RESULT== 3 )){ -if(qbevent){evnt(26070,6159,"ide_methods.bas");if(r)goto S_43084;} -do{ -*_FUNC_IDE2_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Debug",5),qbs_new_txt_len("You can reenable the 'Auto-add $Debug Metacommand' feature\\nin the Debug menu.",78),qbs_new_txt_len("#OK",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6160,"ide_methods.bas");}while(r); -do{ -*__BYTE_AUTOADDDEBUGCOMMAND= 0 ; -if(!qbevent)break;evnt(26070,6161,"ide_methods.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_DEBUGSETTINGSSECTION,qbs_new_txt_len("AutoAddDebugCommand",19),qbs_new_txt_len("False",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6162,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*__INTEGER_DEBUGMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_DEBUGMENUAUTOADDCOMMAND)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Auto-add $#Debug Metacommand",28)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6163,"ide_methods.bas");}while(r); -} -} -}else{ -do{ -tmp_long=array_check((*__LONG_IDECY)-__ARRAY_BYTE_IDESKIPLINES[4],__ARRAY_BYTE_IDESKIPLINES[5]); -if (!new_error) ((int8*)(__ARRAY_BYTE_IDESKIPLINES[0]))[tmp_long]=~(((int8*)(__ARRAY_BYTE_IDESKIPLINES[0]))[array_check((*__LONG_IDECY)-__ARRAY_BYTE_IDESKIPLINES[4],__ARRAY_BYTE_IDESKIPLINES[5])]); -if(!qbevent)break;evnt(26070,6166,"ide_methods.bas");}while(r); -} -S_43093:; -if ((((int8*)(__ARRAY_BYTE_IDESKIPLINES[0]))[array_check((*__LONG_IDECY)-__ARRAY_BYTE_IDESKIPLINES[4],__ARRAY_BYTE_IDESKIPLINES[5])])||new_error){ -if(qbevent){evnt(26070,6168,"ide_methods.bas");if(r)goto S_43093;} -do{ -tmp_long=array_check((*__LONG_IDECY)-__ARRAY_BYTE_IDEBREAKPOINTS[4],__ARRAY_BYTE_IDEBREAKPOINTS[5]); -if (!new_error) ((int8*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(26070,6168,"ide_methods.bas");}while(r); -} -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,6169,"ide_methods.bas");}while(r); -} -} -S_43099:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Unskip All Lines Ctrl+F10",27))))||new_error){ -if(qbevent){evnt(26070,6173,"ide_methods.bas");if(r)goto S_43099;} -S_43100:; -if ((-(*__LONG_IDEDEBUGMODE== 2 ))||new_error){ -if(qbevent){evnt(26070,6174,"ide_methods.bas");if(r)goto S_43100;} -do{ -*__LONG_IDEDEBUGMODE= 15 ; -if(!qbevent)break;evnt(26070,6175,"ide_methods.bas");}while(r); -do{ -goto LABEL_ENTERDEBUGMODE; -if(!qbevent)break;evnt(26070,6176,"ide_methods.bas");}while(r); -}else{ -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,6178,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,6178,"ide_methods.bas");}while(r); -LABEL_UNSKIPALLLINES:; -if(qbevent){evnt(26070,6179,"ide_methods.bas");r=0;} -do{ +} +if(!qbevent)break;evnt(26070,6129,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,6130,"ide_methods.bas");}while(r); +} +} +S_43059:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Toggle #Skip Line Ctrl+P",25))))||new_error){ +if(qbevent){evnt(26070,6134,"ide_methods.bas");if(r)goto S_43059;} +S_43060:; +if ((-(*__LONG_IDEDEBUGMODE== 2 ))||new_error){ +if(qbevent){evnt(26070,6135,"ide_methods.bas");if(r)goto S_43060;} +do{ +*__LONG_IDEDEBUGMODE= 12 ; +if(!qbevent)break;evnt(26070,6136,"ide_methods.bas");}while(r); +do{ +goto LABEL_ENTERDEBUGMODE; +if(!qbevent)break;evnt(26070,6137,"ide_methods.bas");}while(r); +}else{ +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,6139,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,6139,"ide_methods.bas");}while(r); +LABEL_TOGGLESKIPLINE:; +if(qbevent){evnt(26070,6140,"ide_methods.bas");r=0;} +S_43066:; +if ((-(*__LONG_VWATCHON== 0 ))||new_error){ +if(qbevent){evnt(26070,6141,"ide_methods.bas");if(r)goto S_43066;} +S_43067:; +if ((-(*__BYTE_AUTOADDDEBUGCOMMAND== 0 ))||new_error){ +if(qbevent){evnt(26070,6142,"ide_methods.bas");if(r)goto S_43067;} +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,6143,"ide_methods.bas");}while(r); +do{ +SUB_CLEARSTATUSWINDOW(&(pass4587= 2 )); +if(!qbevent)break;evnt(26070,6144,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 14 , 1 ,NULL,3); +if(!qbevent)break;evnt(26070,6145,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_X= 2 ; +if(!qbevent)break;evnt(26070,6146,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_Y=*__LONG_IDEWY- 2 ; +if(!qbevent)break;evnt(26070,6147,"ide_methods.bas");}while(r); +do{ +SUB_PRINTWRAPSTATUS(&(pass4588=*_FUNC_IDE2_LONG_X),&(pass4589=*_FUNC_IDE2_LONG_Y),&(pass4590=*_FUNC_IDE2_LONG_X),qbs_new_txt_len("$DEBUG metacommand is required to enable line skipping.",55)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6148,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,6149,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,6150,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDE2_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Toggle Skip Line",16),qbs_new_txt_len("Insert $DEBUG metacommand?",26),qbs_new_txt_len("#Yes;#No;#Don't show this again",31)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6152,"ide_methods.bas");}while(r); +S_43078:; +if ((-(*_FUNC_IDE2_LONG_RESULT== 1 ))||new_error){ +if(qbevent){evnt(26070,6153,"ide_methods.bas");if(r)goto S_43078;} +do{ +*__LONG_IDESELECT= 0 ; +if(!qbevent)break;evnt(26070,6154,"ide_methods.bas");}while(r); +do{ +SUB_IDEINSLINE(&(pass4591= 1 ),FUNC_SCASE(qbs_new_txt_len("$Debug",6))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6155,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECY=*__LONG_IDECY+ 1 ; +if(!qbevent)break;evnt(26070,6156,"ide_methods.bas");}while(r); +do{ +*__INTEGER_IDECHANGEMADE= 1 ; +if(!qbevent)break;evnt(26070,6157,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*__LONG_IDECY)-__ARRAY_BYTE_IDESKIPLINES[4],__ARRAY_BYTE_IDESKIPLINES[5]); +if (!new_error) ((int8*)(__ARRAY_BYTE_IDESKIPLINES[0]))[tmp_long]=~(((int8*)(__ARRAY_BYTE_IDESKIPLINES[0]))[array_check((*__LONG_IDECY)-__ARRAY_BYTE_IDESKIPLINES[4],__ARRAY_BYTE_IDESKIPLINES[5])]); +if(!qbevent)break;evnt(26070,6158,"ide_methods.bas");}while(r); +S_43084:; +}else{ +if (-(*_FUNC_IDE2_LONG_RESULT== 3 )){ +if(qbevent){evnt(26070,6159,"ide_methods.bas");if(r)goto S_43084;} +do{ +*_FUNC_IDE2_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Debug",5),qbs_new_txt_len("You can reenable the 'Auto-add $Debug Metacommand' feature\\nin the Debug menu.",78),qbs_new_txt_len("#OK",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6160,"ide_methods.bas");}while(r); +do{ +*__BYTE_AUTOADDDEBUGCOMMAND= 0 ; +if(!qbevent)break;evnt(26070,6161,"ide_methods.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_DEBUGSETTINGSSECTION,qbs_new_txt_len("AutoAddDebugCommand",19),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6162,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*__INTEGER_DEBUGMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_DEBUGMENUAUTOADDCOMMAND)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Auto-add $#Debug Metacommand",28)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6163,"ide_methods.bas");}while(r); +} +} +}else{ +do{ +tmp_long=array_check((*__LONG_IDECY)-__ARRAY_BYTE_IDESKIPLINES[4],__ARRAY_BYTE_IDESKIPLINES[5]); +if (!new_error) ((int8*)(__ARRAY_BYTE_IDESKIPLINES[0]))[tmp_long]=~(((int8*)(__ARRAY_BYTE_IDESKIPLINES[0]))[array_check((*__LONG_IDECY)-__ARRAY_BYTE_IDESKIPLINES[4],__ARRAY_BYTE_IDESKIPLINES[5])]); +if(!qbevent)break;evnt(26070,6166,"ide_methods.bas");}while(r); +} +S_43093:; +if ((((int8*)(__ARRAY_BYTE_IDESKIPLINES[0]))[array_check((*__LONG_IDECY)-__ARRAY_BYTE_IDESKIPLINES[4],__ARRAY_BYTE_IDESKIPLINES[5])])||new_error){ +if(qbevent){evnt(26070,6168,"ide_methods.bas");if(r)goto S_43093;} +do{ +tmp_long=array_check((*__LONG_IDECY)-__ARRAY_BYTE_IDEBREAKPOINTS[4],__ARRAY_BYTE_IDEBREAKPOINTS[5]); +if (!new_error) ((int8*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]))[tmp_long]= 0 ; +if(!qbevent)break;evnt(26070,6168,"ide_methods.bas");}while(r); +} +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,6169,"ide_methods.bas");}while(r); +} +} +S_43099:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Unskip All Lines Ctrl+F10",27))))||new_error){ +if(qbevent){evnt(26070,6173,"ide_methods.bas");if(r)goto S_43099;} +S_43100:; +if ((-(*__LONG_IDEDEBUGMODE== 2 ))||new_error){ +if(qbevent){evnt(26070,6174,"ide_methods.bas");if(r)goto S_43100;} +do{ +*__LONG_IDEDEBUGMODE= 15 ; +if(!qbevent)break;evnt(26070,6175,"ide_methods.bas");}while(r); +do{ +goto LABEL_ENTERDEBUGMODE; +if(!qbevent)break;evnt(26070,6176,"ide_methods.bas");}while(r); +}else{ +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,6178,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,6178,"ide_methods.bas");}while(r); +LABEL_UNSKIPALLLINES:; +if(qbevent){evnt(26070,6179,"ide_methods.bas");r=0;} +do{ if (__ARRAY_BYTE_IDESKIPLINES[2]&2){ error(10); @@ -143799,246 +143799,246 @@ __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(26070,6180,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,6181,"ide_methods.bas");}while(r); -} -} -S_43110:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Set Base #TCP/IP Port Number...",31))))||new_error){ -if(qbevent){evnt(26070,6185,"ide_methods.bas");if(r)goto S_43110;} -do{ -sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(26070,6186,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_BKPIDEBASETCPPORT=*__LONG_IDEBASETCPPORT; -if(!qbevent)break;evnt(26070,6187,"ide_methods.bas");}while(r); -do{ -SUB_IDESETTCPPORTBOX(); -if(!qbevent)break;evnt(26070,6188,"ide_methods.bas");}while(r); -S_43114:; -if ((-(*_FUNC_IDE2_LONG_BKPIDEBASETCPPORT!=*__LONG_IDEBASETCPPORT))||new_error){ -if(qbevent){evnt(26070,6189,"ide_methods.bas");if(r)goto S_43114;} -S_43115:; -if ((-(*__LONG_HOST!= 0 ))||new_error){ -if(qbevent){evnt(26070,6190,"ide_methods.bas");if(r)goto S_43115;} -do{ -sub_close(*__LONG_HOST,1); -if(!qbevent)break;evnt(26070,6190,"ide_methods.bas");}while(r); -do{ -*__LONG_HOST= 0 ; -if(!qbevent)break;evnt(26070,6190,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDE2_BYTE_ATTEMPTTOHOST= 0 ; -if(!qbevent)break;evnt(26070,6191,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_BYTE_CHANGINGTCPPORT= -1 ; -if(!qbevent)break;evnt(26070,6192,"ide_methods.bas");}while(r); -do{ -*__INTEGER_IDECHANGEMADE= 1 ; -if(!qbevent)break;evnt(26070,6193,"ide_methods.bas");}while(r); -} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,6195,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,6195,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,6196,"ide_methods.bas");}while(r); -} -S_43127:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Set #Next Line Ctrl+G",22))))||new_error){ -if(qbevent){evnt(26070,6199,"ide_methods.bas");if(r)goto S_43127;} -do{ -*__LONG_IDEDEBUGMODE= 13 ; -if(!qbevent)break;evnt(26070,6200,"ide_methods.bas");}while(r); -do{ -goto LABEL_ENTERDEBUGMODE; -if(!qbevent)break;evnt(26070,6201,"ide_methods.bas");}while(r); -} -S_43131:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("E#xit",5))))||new_error){ -if(qbevent){evnt(26070,6204,"ide_methods.bas");if(r)goto S_43131;} -do{ -sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(26070,6205,"ide_methods.bas");}while(r); -LABEL_QUICKEXIT:; -if(qbevent){evnt(26070,6206,"ide_methods.bas");r=0;} -S_43133:; -if ((-(*__LONG_IDEUNSAVED== 1 ))||new_error){ -if(qbevent){evnt(26070,6207,"ide_methods.bas");if(r)goto S_43133;} -do{ -qbs_set(_FUNC_IDE2_STRING_R,FUNC_IDESAVENOW()); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6208,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,6209,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,6209,"ide_methods.bas");}while(r); -S_43137:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_R,qbs_new_txt_len("C",1))))||new_error){ -if(qbevent){evnt(26070,6210,"ide_methods.bas");if(r)goto S_43137;} -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,6210,"ide_methods.bas");}while(r); -} -S_43140:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_R,qbs_new_txt_len("Y",1))))||new_error){ -if(qbevent){evnt(26070,6211,"ide_methods.bas");if(r)goto S_43140;} -S_43141:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_IDEPROGNAME,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,6212,"ide_methods.bas");if(r)goto S_43141;} -do{ -qbs_set(_FUNC_IDE2_STRING_PROPOSEDTITLE,FUNC_FINDPROPOSEDTITLE()); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6213,"ide_methods.bas");}while(r); -S_43143:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_PROPOSEDTITLE,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,6214,"ide_methods.bas");if(r)goto S_43143;} -do{ -qbs_set(_FUNC_IDE2_STRING_R,FUNC_IDEFILEDIALOG(qbs_add(qbs_add(qbs_new_txt_len("untitled",8),__STRING_TEMPFOLDERINDEXSTR),qbs_new_txt_len(".bas",4)),&(pass4592= 2 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6215,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDE2_STRING_R,FUNC_IDEFILEDIALOG(qbs_add(_FUNC_IDE2_STRING_PROPOSEDTITLE,qbs_new_txt_len(".bas",4)),&(pass4593= 2 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6217,"ide_methods.bas");}while(r); -} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,6219,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,6219,"ide_methods.bas");}while(r); -S_43150:; -if ((-(*__LONG_IDEERROR> 1 ))||new_error){ -if(qbevent){evnt(26070,6220,"ide_methods.bas");if(r)goto S_43150;} -do{ -goto LABEL_IDEERRORMESSAGE; -if(!qbevent)break;evnt(26070,6220,"ide_methods.bas");}while(r); -} -S_43153:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_R,qbs_new_txt_len("C",1))))||new_error){ -if(qbevent){evnt(26070,6221,"ide_methods.bas");if(r)goto S_43153;} -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,6221,"ide_methods.bas");}while(r); -} -}else{ -do{ -SUB_IDESAVE(qbs_add(qbs_add(__STRING_IDEPATH,__STRING1_IDEPATHSEP),__STRING_IDEPROGNAME)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6223,"ide_methods.bas");}while(r); -} -} -} -do{ -*_FUNC_IDE2_LONG_FH=func_freefile(); -if(!qbevent)break;evnt(26070,6228,"ide_methods.bas");}while(r); -do{ -sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("autosave.bin",12)), 4 ,NULL,NULL,*_FUNC_IDE2_LONG_FH,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6228,"ide_methods.bas");}while(r); -do{ -sub_close(*_FUNC_IDE2_LONG_FH,1); -if(!qbevent)break;evnt(26070,6228,"ide_methods.bas");}while(r); -do{ -if (sub_gl_called) error(271); -close_program=1; -end(); -if(!qbevent)break;evnt(26070,6229,"ide_methods.bas");}while(r); -} -S_43166:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#New Ctrl+N",12))))||new_error){ -if(qbevent){evnt(26070,6232,"ide_methods.bas");if(r)goto S_43166;} -do{ -sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(26070,6233,"ide_methods.bas");}while(r); -LABEL_CTRLNEW:; -if(qbevent){evnt(26070,6234,"ide_methods.bas");r=0;} -S_43168:; -if ((-(*__LONG_IDEUNSAVED== 1 ))||new_error){ -if(qbevent){evnt(26070,6235,"ide_methods.bas");if(r)goto S_43168;} -do{ -qbs_set(_FUNC_IDE2_STRING_R,FUNC_IDESAVENOW()); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6236,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,6237,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,6237,"ide_methods.bas");}while(r); -S_43172:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_R,qbs_new_txt_len("C",1))))||new_error){ -if(qbevent){evnt(26070,6238,"ide_methods.bas");if(r)goto S_43172;} -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,6238,"ide_methods.bas");}while(r); -} -S_43175:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_R,qbs_new_txt_len("Y",1))))||new_error){ -if(qbevent){evnt(26070,6239,"ide_methods.bas");if(r)goto S_43175;} -S_43176:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_IDEPROGNAME,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,6240,"ide_methods.bas");if(r)goto S_43176;} -do{ -qbs_set(_FUNC_IDE2_STRING_PROPOSEDTITLE,FUNC_FINDPROPOSEDTITLE()); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6241,"ide_methods.bas");}while(r); -S_43178:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_PROPOSEDTITLE,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,6242,"ide_methods.bas");if(r)goto S_43178;} -do{ -qbs_set(_FUNC_IDE2_STRING_R,FUNC_IDEFILEDIALOG(qbs_add(qbs_add(qbs_new_txt_len("untitled",8),__STRING_TEMPFOLDERINDEXSTR),qbs_new_txt_len(".bas",4)),&(pass4594= 2 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6243,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDE2_STRING_R,FUNC_IDEFILEDIALOG(qbs_add(_FUNC_IDE2_STRING_PROPOSEDTITLE,qbs_new_txt_len(".bas",4)),&(pass4595= 2 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6245,"ide_methods.bas");}while(r); -} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,6247,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,6247,"ide_methods.bas");}while(r); -S_43185:; -if ((-(*__LONG_IDEERROR> 1 ))||new_error){ -if(qbevent){evnt(26070,6248,"ide_methods.bas");if(r)goto S_43185;} -do{ -goto LABEL_IDEERRORMESSAGE; -if(!qbevent)break;evnt(26070,6248,"ide_methods.bas");}while(r); -} -S_43188:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_R,qbs_new_txt_len("C",1))))||new_error){ -if(qbevent){evnt(26070,6249,"ide_methods.bas");if(r)goto S_43188;} -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,6249,"ide_methods.bas");}while(r); -} -}else{ -do{ -SUB_IDESAVE(qbs_add(qbs_add(__STRING_IDEPATH,__STRING1_IDEPATHSEP),__STRING_IDEPROGNAME)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6251,"ide_methods.bas");}while(r); -} -} -} -do{ -*__LONG_IDEUNSAVED= -1 ; -if(!qbevent)break;evnt(26070,6255,"ide_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26070,6180,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,6181,"ide_methods.bas");}while(r); +} +} +S_43110:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Set Base #TCP/IP Port Number...",31))))||new_error){ +if(qbevent){evnt(26070,6185,"ide_methods.bas");if(r)goto S_43110;} +do{ +sub_pcopy( 2 , 0 ); +if(!qbevent)break;evnt(26070,6186,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_BKPIDEBASETCPPORT=*__LONG_IDEBASETCPPORT; +if(!qbevent)break;evnt(26070,6187,"ide_methods.bas");}while(r); +do{ +SUB_IDESETTCPPORTBOX(); +if(!qbevent)break;evnt(26070,6188,"ide_methods.bas");}while(r); +S_43114:; +if ((-(*_FUNC_IDE2_LONG_BKPIDEBASETCPPORT!=*__LONG_IDEBASETCPPORT))||new_error){ +if(qbevent){evnt(26070,6189,"ide_methods.bas");if(r)goto S_43114;} +S_43115:; +if ((-(*__LONG_HOST!= 0 ))||new_error){ +if(qbevent){evnt(26070,6190,"ide_methods.bas");if(r)goto S_43115;} +do{ +sub_close(*__LONG_HOST,1); +if(!qbevent)break;evnt(26070,6190,"ide_methods.bas");}while(r); +do{ +*__LONG_HOST= 0 ; +if(!qbevent)break;evnt(26070,6190,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDE2_BYTE_ATTEMPTTOHOST= 0 ; +if(!qbevent)break;evnt(26070,6191,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_BYTE_CHANGINGTCPPORT= -1 ; +if(!qbevent)break;evnt(26070,6192,"ide_methods.bas");}while(r); +do{ +*__INTEGER_IDECHANGEMADE= 1 ; +if(!qbevent)break;evnt(26070,6193,"ide_methods.bas");}while(r); +} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,6195,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,6195,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,6196,"ide_methods.bas");}while(r); +} +S_43127:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Set #Next Line Ctrl+G",22))))||new_error){ +if(qbevent){evnt(26070,6199,"ide_methods.bas");if(r)goto S_43127;} +do{ +*__LONG_IDEDEBUGMODE= 13 ; +if(!qbevent)break;evnt(26070,6200,"ide_methods.bas");}while(r); +do{ +goto LABEL_ENTERDEBUGMODE; +if(!qbevent)break;evnt(26070,6201,"ide_methods.bas");}while(r); +} +S_43131:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("E#xit",5))))||new_error){ +if(qbevent){evnt(26070,6204,"ide_methods.bas");if(r)goto S_43131;} +do{ +sub_pcopy( 2 , 0 ); +if(!qbevent)break;evnt(26070,6205,"ide_methods.bas");}while(r); +LABEL_QUICKEXIT:; +if(qbevent){evnt(26070,6206,"ide_methods.bas");r=0;} +S_43133:; +if ((-(*__LONG_IDEUNSAVED== 1 ))||new_error){ +if(qbevent){evnt(26070,6207,"ide_methods.bas");if(r)goto S_43133;} +do{ +qbs_set(_FUNC_IDE2_STRING_R,FUNC_IDESAVENOW()); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6208,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,6209,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,6209,"ide_methods.bas");}while(r); +S_43137:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_R,qbs_new_txt_len("C",1))))||new_error){ +if(qbevent){evnt(26070,6210,"ide_methods.bas");if(r)goto S_43137;} +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,6210,"ide_methods.bas");}while(r); +} +S_43140:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_R,qbs_new_txt_len("Y",1))))||new_error){ +if(qbevent){evnt(26070,6211,"ide_methods.bas");if(r)goto S_43140;} +S_43141:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_IDEPROGNAME,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,6212,"ide_methods.bas");if(r)goto S_43141;} +do{ +qbs_set(_FUNC_IDE2_STRING_PROPOSEDTITLE,FUNC_FINDPROPOSEDTITLE()); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6213,"ide_methods.bas");}while(r); +S_43143:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_PROPOSEDTITLE,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,6214,"ide_methods.bas");if(r)goto S_43143;} +do{ +qbs_set(_FUNC_IDE2_STRING_R,FUNC_IDEFILEDIALOG(qbs_add(qbs_add(qbs_new_txt_len("untitled",8),__STRING_TEMPFOLDERINDEXSTR),qbs_new_txt_len(".bas",4)),&(pass4592= 2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6215,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDE2_STRING_R,FUNC_IDEFILEDIALOG(qbs_add(_FUNC_IDE2_STRING_PROPOSEDTITLE,qbs_new_txt_len(".bas",4)),&(pass4593= 2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6217,"ide_methods.bas");}while(r); +} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,6219,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,6219,"ide_methods.bas");}while(r); +S_43150:; +if ((-(*__LONG_IDEERROR> 1 ))||new_error){ +if(qbevent){evnt(26070,6220,"ide_methods.bas");if(r)goto S_43150;} +do{ +goto LABEL_IDEERRORMESSAGE; +if(!qbevent)break;evnt(26070,6220,"ide_methods.bas");}while(r); +} +S_43153:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_R,qbs_new_txt_len("C",1))))||new_error){ +if(qbevent){evnt(26070,6221,"ide_methods.bas");if(r)goto S_43153;} +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,6221,"ide_methods.bas");}while(r); +} +}else{ +do{ +SUB_IDESAVE(qbs_add(qbs_add(__STRING_IDEPATH,__STRING1_IDEPATHSEP),__STRING_IDEPROGNAME)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6223,"ide_methods.bas");}while(r); +} +} +} +do{ +*_FUNC_IDE2_LONG_FH=func_freefile(); +if(!qbevent)break;evnt(26070,6228,"ide_methods.bas");}while(r); +do{ +sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("autosave.bin",12)), 4 ,NULL,NULL,*_FUNC_IDE2_LONG_FH,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6228,"ide_methods.bas");}while(r); +do{ +sub_close(*_FUNC_IDE2_LONG_FH,1); +if(!qbevent)break;evnt(26070,6228,"ide_methods.bas");}while(r); +do{ +if (sub_gl_called) error(271); +close_program=1; +end(); +if(!qbevent)break;evnt(26070,6229,"ide_methods.bas");}while(r); +} +S_43166:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#New Ctrl+N",12))))||new_error){ +if(qbevent){evnt(26070,6232,"ide_methods.bas");if(r)goto S_43166;} +do{ +sub_pcopy( 2 , 0 ); +if(!qbevent)break;evnt(26070,6233,"ide_methods.bas");}while(r); +LABEL_CTRLNEW:; +if(qbevent){evnt(26070,6234,"ide_methods.bas");r=0;} +S_43168:; +if ((-(*__LONG_IDEUNSAVED== 1 ))||new_error){ +if(qbevent){evnt(26070,6235,"ide_methods.bas");if(r)goto S_43168;} +do{ +qbs_set(_FUNC_IDE2_STRING_R,FUNC_IDESAVENOW()); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6236,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,6237,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,6237,"ide_methods.bas");}while(r); +S_43172:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_R,qbs_new_txt_len("C",1))))||new_error){ +if(qbevent){evnt(26070,6238,"ide_methods.bas");if(r)goto S_43172;} +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,6238,"ide_methods.bas");}while(r); +} +S_43175:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_R,qbs_new_txt_len("Y",1))))||new_error){ +if(qbevent){evnt(26070,6239,"ide_methods.bas");if(r)goto S_43175;} +S_43176:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_IDEPROGNAME,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,6240,"ide_methods.bas");if(r)goto S_43176;} +do{ +qbs_set(_FUNC_IDE2_STRING_PROPOSEDTITLE,FUNC_FINDPROPOSEDTITLE()); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6241,"ide_methods.bas");}while(r); +S_43178:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_PROPOSEDTITLE,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,6242,"ide_methods.bas");if(r)goto S_43178;} +do{ +qbs_set(_FUNC_IDE2_STRING_R,FUNC_IDEFILEDIALOG(qbs_add(qbs_add(qbs_new_txt_len("untitled",8),__STRING_TEMPFOLDERINDEXSTR),qbs_new_txt_len(".bas",4)),&(pass4594= 2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6243,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDE2_STRING_R,FUNC_IDEFILEDIALOG(qbs_add(_FUNC_IDE2_STRING_PROPOSEDTITLE,qbs_new_txt_len(".bas",4)),&(pass4595= 2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6245,"ide_methods.bas");}while(r); +} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,6247,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,6247,"ide_methods.bas");}while(r); +S_43185:; +if ((-(*__LONG_IDEERROR> 1 ))||new_error){ +if(qbevent){evnt(26070,6248,"ide_methods.bas");if(r)goto S_43185;} +do{ +goto LABEL_IDEERRORMESSAGE; +if(!qbevent)break;evnt(26070,6248,"ide_methods.bas");}while(r); +} +S_43188:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_R,qbs_new_txt_len("C",1))))||new_error){ +if(qbevent){evnt(26070,6249,"ide_methods.bas");if(r)goto S_43188;} +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,6249,"ide_methods.bas");}while(r); +} +}else{ +do{ +SUB_IDESAVE(qbs_add(qbs_add(__STRING_IDEPATH,__STRING1_IDEPATHSEP),__STRING_IDEPROGNAME)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6251,"ide_methods.bas");}while(r); +} +} +} +do{ +*__LONG_IDEUNSAVED= -1 ; +if(!qbevent)break;evnt(26070,6255,"ide_methods.bas");}while(r); +do{ if (__ARRAY_BYTE_IDEBREAKPOINTS[2]&2){ error(10); @@ -144062,9 +144062,9 @@ __ARRAY_BYTE_IDEBREAKPOINTS[0]=(ptrszint)calloc(__ARRAY_BYTE_IDEBREAKPOINTS[5]*1 if (!__ARRAY_BYTE_IDEBREAKPOINTS[0]) error(257); } __ARRAY_BYTE_IDEBREAKPOINTS[2]|=1; -} -if(!qbevent)break;evnt(26070,6257,"ide_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26070,6257,"ide_methods.bas");}while(r); +do{ if (__ARRAY_BYTE_IDESKIPLINES[2]&2){ error(10); @@ -144088,17 +144088,17 @@ __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(26070,6258,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_VARIABLEWATCHLIST,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6259,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_BACKUPVARIABLEWATCHLIST,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6260,"ide_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26070,6258,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_VARIABLEWATCHLIST,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6259,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_BACKUPVARIABLEWATCHLIST,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6260,"ide_methods.bas");}while(r); +do{ if (__ARRAY_UDT_BACKUPUSEDVARIABLELIST[2]&2){ error(10); @@ -144143,783 +144143,783 @@ while(tmp_long--){ *(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 96)=qbs_new(0,0); *(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 104)=qbs_new(0,0); *(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 112)=qbs_new(0,0);} -} -if(!qbevent)break;evnt(26070,6260,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_BACKUPTYPEDEFINITIONS,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6261,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_WATCHPOINTLIST,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6262,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_CALLSTACKLIST,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6263,"ide_methods.bas");}while(r); -do{ -*__LONG_CALLSTACKLENGTH= 0 ; -if(!qbevent)break;evnt(26070,6263,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_IDET,qbs_add(l2string( 0 ),l2string( 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6264,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEL= 1 ; -if(!qbevent)break;evnt(26070,6264,"ide_methods.bas");}while(r); -do{ -*__LONG_IDELI= 1 ; -if(!qbevent)break;evnt(26070,6264,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEN= 1 ; -if(!qbevent)break;evnt(26070,6264,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEBMKN= 0 ; -if(!qbevent)break;evnt(26070,6264,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESX= 1 ; -if(!qbevent)break;evnt(26070,6265,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESY= 1 ; -if(!qbevent)break;evnt(26070,6266,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECX= 1 ; -if(!qbevent)break;evnt(26070,6267,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECY= 1 ; -if(!qbevent)break;evnt(26070,6268,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(26070,6269,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_IDEPROGNAME,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6270,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_LISTOFCUSTOMKEYWORDS,qbs_left(__STRING_LISTOFCUSTOMKEYWORDS,*__LONG_CUSTOMKEYWORDSLENGTH)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6271,"ide_methods.bas");}while(r); -do{ -*__LONG_QUICKNAVTOTAL= 0 ; -if(!qbevent)break;evnt(26070,6272,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_MODIFYCOMMAND,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6273,"ide_methods.bas");}while(r); -do{ -sub__title(__STRING_WINDOWTITLE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6274,"ide_methods.bas");}while(r); -do{ -*__BYTE_STARTPAUSEDPENDING= 0 ; -if(!qbevent)break;evnt(26070,6275,"ide_methods.bas");}while(r); -do{ -*__INTEGER_IDECHANGEMADE= 1 ; -if(!qbevent)break;evnt(26070,6276,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEFOCUSLINE= 0 ; -if(!qbevent)break;evnt(26070,6277,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEUNDOBASE= 0 ; -if(!qbevent)break;evnt(26070,6278,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,6279,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDE2_BYTE_ATTEMPTTOLOADRECENT= 0 ; -if(!qbevent)break;evnt(26070,6282,"ide_methods.bas");}while(r); -S_43228:; -fornext_value4597= 1 ; -fornext_finalvalue4597=func_ubound(__ARRAY_STRING_IDERECENTLINK, 1 ,2); -fornext_step4597= 1 ; -if (fornext_step4597<0) fornext_step_negative4597=1; else fornext_step_negative4597=0; -if (new_error) goto fornext_error4597; -goto fornext_entrylabel4597; -while(1){ -fornext_value4597=fornext_step4597+(*_FUNC_IDE2_LONG_ML); -fornext_entrylabel4597: -*_FUNC_IDE2_LONG_ML=fornext_value4597; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative4597){ -if (fornext_value4597fornext_finalvalue4597) break; -} -fornext_error4597:; -if(qbevent){evnt(26070,6283,"ide_methods.bas");if(r)goto S_43228;} -S_43229:; -if ((qbs_cleanup(qbs_tmp_base,((qbs*)(((uint64*)(__ARRAY_STRING_IDERECENTLINK[0]))[array_check((*_FUNC_IDE2_LONG_ML)-__ARRAY_STRING_IDERECENTLINK[8],__ARRAY_STRING_IDERECENTLINK[9])+array_check(( 1 )-__ARRAY_STRING_IDERECENTLINK[4],__ARRAY_STRING_IDERECENTLINK[5])*__ARRAY_STRING_IDERECENTLINK[6]]))->len))||new_error){ -if(qbevent){evnt(26070,6284,"ide_methods.bas");if(r)goto S_43229;} -S_43230:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),((qbs*)(((uint64*)(__ARRAY_STRING_IDERECENTLINK[0]))[array_check((*_FUNC_IDE2_LONG_ML)-__ARRAY_STRING_IDERECENTLINK[8],__ARRAY_STRING_IDERECENTLINK[9])+array_check(( 1 )-__ARRAY_STRING_IDERECENTLINK[4],__ARRAY_STRING_IDERECENTLINK[5])*__ARRAY_STRING_IDERECENTLINK[6]])))))||new_error){ -if(qbevent){evnt(26070,6285,"ide_methods.bas");if(r)goto S_43230;} -do{ -qbs_set(__STRING_IDEOPENFILE,((qbs*)(((uint64*)(__ARRAY_STRING_IDERECENTLINK[0]))[array_check((*_FUNC_IDE2_LONG_ML)-__ARRAY_STRING_IDERECENTLINK[8],__ARRAY_STRING_IDERECENTLINK[9])+array_check(( 2 )-__ARRAY_STRING_IDERECENTLINK[4],__ARRAY_STRING_IDERECENTLINK[5])*__ARRAY_STRING_IDERECENTLINK[6]]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6286,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_BYTE_ATTEMPTTOLOADRECENT= -1 ; -if(!qbevent)break;evnt(26070,6287,"ide_methods.bas");}while(r); -do{ -goto LABEL_DIRECTOPEN; -if(!qbevent)break;evnt(26070,6288,"ide_methods.bas");}while(r); -} -} -fornext_continue_4596:; -} -fornext_exit_4596:; -S_43237:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Recent...",10))))||new_error){ -if(qbevent){evnt(26070,6294,"ide_methods.bas");if(r)goto S_43237;} -do{ -sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(26070,6295,"ide_methods.bas");}while(r); -LABEL_IDESHOWRECENTBOX:; -if(qbevent){evnt(26070,6296,"ide_methods.bas");r=0;} -do{ -qbs_set(_FUNC_IDE2_STRING_F,FUNC_IDERECENTBOX()); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6297,"ide_methods.bas");}while(r); -S_43240:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_F,qbs_new_txt_len("",3))))||new_error){ -if(qbevent){evnt(26070,6298,"ide_methods.bas");if(r)goto S_43240;} -do{ -qbs_set(_FUNC_IDE2_STRING_F,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6299,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_R,FUNC_IDECLEARHISTORY(qbs_new_txt_len("FILES",5))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6300,"ide_methods.bas");}while(r); -S_43243:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_R,qbs_new_txt_len("Y",1))))||new_error){ -if(qbevent){evnt(26070,6301,"ide_methods.bas");if(r)goto S_43243;} -do{ -*_FUNC_IDE2_LONG_FH=func_freefile(); -if(!qbevent)break;evnt(26070,6302,"ide_methods.bas");}while(r); -do{ -sub_open(qbs_new_txt_len(".\\internal\\temp\\recent.bin",26), 4 ,NULL,NULL,*_FUNC_IDE2_LONG_FH,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6303,"ide_methods.bas");}while(r); -do{ -sub_close(*_FUNC_IDE2_LONG_FH,1); -if(!qbevent)break;evnt(26070,6303,"ide_methods.bas");}while(r); -do{ -SUB_IDEMAKEFILEMENU(); -if(!qbevent)break;evnt(26070,6304,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,6305,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,6305,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,6306,"ide_methods.bas");}while(r); -}else{ -do{ -goto LABEL_IDESHOWRECENTBOX; -if(!qbevent)break;evnt(26070,6308,"ide_methods.bas");}while(r); -} -S_43254:; -}else{ -if (qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_F,qbs_new_txt_len("",3)))){ -if(qbevent){evnt(26070,6310,"ide_methods.bas");if(r)goto S_43254;} -do{ -return_point[next_return_point++]=51; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_CLEANUPRECENTLIST; -RETURN_51:; -if(!qbevent)break;evnt(26070,6311,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDESHOWRECENTBOX; -if(!qbevent)break;evnt(26070,6312,"ide_methods.bas");}while(r); -} -} -S_43258:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_F->len))||new_error){ -if(qbevent){evnt(26070,6314,"ide_methods.bas");if(r)goto S_43258;} -do{ -qbs_set(__STRING_IDEOPENFILE,_FUNC_IDE2_STRING_F); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6315,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_BYTE_ATTEMPTTOLOADRECENT= -1 ; -if(!qbevent)break;evnt(26070,6316,"ide_methods.bas");}while(r); -do{ -goto LABEL_DIRECTOPEN; -if(!qbevent)break;evnt(26070,6317,"ide_methods.bas");}while(r); -} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,6319,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,6319,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,6320,"ide_methods.bas");}while(r); -} -S_43267:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Clear Recent...",16))))||new_error){ -if(qbevent){evnt(26070,6323,"ide_methods.bas");if(r)goto S_43267;} -do{ -sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(26070,6324,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_R,FUNC_IDECLEARHISTORY(qbs_new_txt_len("FILES",5))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6325,"ide_methods.bas");}while(r); -S_43270:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_R,qbs_new_txt_len("Y",1))))||new_error){ -if(qbevent){evnt(26070,6326,"ide_methods.bas");if(r)goto S_43270;} -do{ -*_FUNC_IDE2_LONG_FH=func_freefile(); -if(!qbevent)break;evnt(26070,6327,"ide_methods.bas");}while(r); -do{ -sub_open(qbs_new_txt_len(".\\internal\\temp\\recent.bin",26), 4 ,NULL,NULL,*_FUNC_IDE2_LONG_FH,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6328,"ide_methods.bas");}while(r); -do{ -sub_close(*_FUNC_IDE2_LONG_FH,1); -if(!qbevent)break;evnt(26070,6328,"ide_methods.bas");}while(r); -do{ -SUB_IDEMAKEFILEMENU(); -if(!qbevent)break;evnt(26070,6329,"ide_methods.bas");}while(r); -S_43275:; -if ((-(*__LONG_IDEAUTOLAYOUT!= 0 ))||new_error){ -if(qbevent){evnt(26070,6330,"ide_methods.bas");if(r)goto S_43275;} -do{ -tmp_long=array_check(( 1 )-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_FILEMENUEXPORTAS)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(qbs_new_txt_len("#Export As... ",15),func_chr( 16 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6330,"ide_methods.bas");}while(r); -} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,6331,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,6331,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,6332,"ide_methods.bas");}while(r); -} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,6334,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,6334,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,6335,"ide_methods.bas");}while(r); -} -S_43286:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Open... Ctrl+O",16))))||new_error){ -if(qbevent){evnt(26070,6338,"ide_methods.bas");if(r)goto S_43286;} -do{ -qbs_set(__STRING_IDEOPENFILE,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6339,"ide_methods.bas");}while(r); -LABEL_DIRECTOPEN:; -if(qbevent){evnt(26070,6340,"ide_methods.bas");r=0;} -do{ -sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(26070,6341,"ide_methods.bas");}while(r); -LABEL_CTRLOPEN:; -if(qbevent){evnt(26070,6342,"ide_methods.bas");r=0;} -S_43289:; -if ((*__LONG_IDEUNSAVED)||new_error){ -if(qbevent){evnt(26070,6343,"ide_methods.bas");if(r)goto S_43289;} -do{ -qbs_set(_FUNC_IDE2_STRING_R,FUNC_IDESAVENOW()); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6344,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,6345,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,6345,"ide_methods.bas");}while(r); -S_43293:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_R,qbs_new_txt_len("C",1))))||new_error){ -if(qbevent){evnt(26070,6346,"ide_methods.bas");if(r)goto S_43293;} -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,6346,"ide_methods.bas");}while(r); -} -S_43296:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_R,qbs_new_txt_len("Y",1))))||new_error){ -if(qbevent){evnt(26070,6347,"ide_methods.bas");if(r)goto S_43296;} -S_43297:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_IDEPROGNAME,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,6348,"ide_methods.bas");if(r)goto S_43297;} -do{ -qbs_set(_FUNC_IDE2_STRING_PROPOSEDTITLE,FUNC_FINDPROPOSEDTITLE()); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6349,"ide_methods.bas");}while(r); -S_43299:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_PROPOSEDTITLE,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,6350,"ide_methods.bas");if(r)goto S_43299;} -do{ -qbs_set(_FUNC_IDE2_STRING_R,FUNC_IDEFILEDIALOG(qbs_add(qbs_add(qbs_new_txt_len("untitled",8),__STRING_TEMPFOLDERINDEXSTR),qbs_new_txt_len(".bas",4)),&(pass4600= 2 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6351,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDE2_STRING_R,FUNC_IDEFILEDIALOG(qbs_add(_FUNC_IDE2_STRING_PROPOSEDTITLE,qbs_new_txt_len(".bas",4)),&(pass4601= 2 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6353,"ide_methods.bas");}while(r); -} -S_43304:; -if ((-(*__LONG_IDEERROR> 1 ))||new_error){ -if(qbevent){evnt(26070,6355,"ide_methods.bas");if(r)goto S_43304;} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,6355,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,6355,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDEERRORMESSAGE; -if(!qbevent)break;evnt(26070,6355,"ide_methods.bas");}while(r); -} -S_43309:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_R,qbs_new_txt_len("C",1))))||new_error){ -if(qbevent){evnt(26070,6356,"ide_methods.bas");if(r)goto S_43309;} -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,6356,"ide_methods.bas");}while(r); -} -}else{ -do{ -SUB_IDESAVE(qbs_add(qbs_add(__STRING_IDEPATH,__STRING1_IDEPATHSEP),__STRING_IDEPROGNAME)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6358,"ide_methods.bas");}while(r); -} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,6360,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,6360,"ide_methods.bas");}while(r); -} -} -S_43319:; -if ((*__ULONG_USEGUIDIALOGS)||new_error){ -if(qbevent){evnt(26070,6363,"ide_methods.bas");if(r)goto S_43319;} -do{ -qbs_set(_FUNC_IDE2_STRING_R,FUNC_OPENFILE(__STRING_IDEOPENFILE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6364,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDE2_STRING_R,FUNC_IDEFILEDIALOG(qbs_new_txt_len("",0),&(pass4602= 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6366,"ide_methods.bas");}while(r); -} -S_43324:; -if ((-(*__LONG_IDEERROR> 1 ))||new_error){ -if(qbevent){evnt(26070,6368,"ide_methods.bas");if(r)goto S_43324;} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,6368,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,6368,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDEERRORMESSAGE; -if(!qbevent)break;evnt(26070,6368,"ide_methods.bas");}while(r); -} -S_43329:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_IDE2_STRING_R,qbs_new_txt_len("C",1))))||new_error){ -if(qbevent){evnt(26070,6369,"ide_methods.bas");if(r)goto S_43329;} -do{ -*__LONG_IDEUNSAVED= -1 ; -if(!qbevent)break;evnt(26070,6369,"ide_methods.bas");}while(r); -do{ -*__INTEGER_IDECHANGEMADE= 1 ; -if(!qbevent)break;evnt(26070,6369,"ide_methods.bas");}while(r); -do{ -*__LONG_IDELAYOUTALLOW= 2 ; -if(!qbevent)break;evnt(26070,6369,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEUNDOBASE= 0 ; -if(!qbevent)break;evnt(26070,6369,"ide_methods.bas");}while(r); -do{ -*__LONG_QUICKNAVTOTAL= 0 ; -if(!qbevent)break;evnt(26070,6369,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_MODIFYCOMMAND,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6369,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEFOCUSLINE= 0 ; -if(!qbevent)break;evnt(26070,6369,"ide_methods.bas");}while(r); -do{ -*__BYTE_STARTPAUSEDPENDING= 0 ; -if(!qbevent)break;evnt(26070,6369,"ide_methods.bas");}while(r); -} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,6370,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,6370,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=52; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_REDRAWITALL; -RETURN_52:; -if(!qbevent)break;evnt(26070,6371,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,6371,"ide_methods.bas");}while(r); -} -S_43344:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Save Ctrl+S",13))))||new_error){ -if(qbevent){evnt(26070,6374,"ide_methods.bas");if(r)goto S_43344;} -do{ -sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(26070,6375,"ide_methods.bas");}while(r); -S_43346:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_IDEPROGNAME,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,6376,"ide_methods.bas");if(r)goto S_43346;} -do{ -qbs_set(_FUNC_IDE2_STRING_PROPOSEDTITLE,FUNC_FINDPROPOSEDTITLE()); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6377,"ide_methods.bas");}while(r); -S_43348:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_PROPOSEDTITLE,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,6378,"ide_methods.bas");if(r)goto S_43348;} -do{ -qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEFILEDIALOG(qbs_add(qbs_add(qbs_new_txt_len("untitled",8),__STRING_TEMPFOLDERINDEXSTR),qbs_new_txt_len(".bas",4)),&(pass4603= 2 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6379,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEFILEDIALOG(qbs_add(_FUNC_IDE2_STRING_PROPOSEDTITLE,qbs_new_txt_len(".bas",4)),&(pass4604= 2 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6381,"ide_methods.bas");}while(r); -} -S_43353:; -if ((-(*__LONG_IDEERROR> 1 ))||new_error){ -if(qbevent){evnt(26070,6383,"ide_methods.bas");if(r)goto S_43353;} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,6383,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,6383,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDEERRORMESSAGE; -if(!qbevent)break;evnt(26070,6383,"ide_methods.bas");}while(r); -} -}else{ -do{ -SUB_IDESAVE(qbs_add(qbs_add(__STRING_IDEPATH,__STRING1_IDEPATHSEP),__STRING_IDEPROGNAME)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6385,"ide_methods.bas");}while(r); -} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,6387,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,6387,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,6387,"ide_methods.bas");}while(r); -} -S_43365:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Save #As...",11))))||new_error){ -if(qbevent){evnt(26070,6391,"ide_methods.bas");if(r)goto S_43365;} -do{ -sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(26070,6392,"ide_methods.bas");}while(r); -S_43367:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_IDEPROGNAME,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,6393,"ide_methods.bas");if(r)goto S_43367;} -do{ -qbs_set(_FUNC_IDE2_STRING_PROPOSEDTITLE,FUNC_FINDPROPOSEDTITLE()); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6394,"ide_methods.bas");}while(r); -S_43369:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_PROPOSEDTITLE,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,6395,"ide_methods.bas");if(r)goto S_43369;} -do{ -qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEFILEDIALOG(qbs_add(qbs_add(qbs_new_txt_len("untitled",8),__STRING_TEMPFOLDERINDEXSTR),qbs_new_txt_len(".bas",4)),&(pass4605= 2 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6396,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEFILEDIALOG(qbs_add(_FUNC_IDE2_STRING_PROPOSEDTITLE,qbs_new_txt_len(".bas",4)),&(pass4606= 2 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6398,"ide_methods.bas");}while(r); -} -}else{ -do{ -qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEFILEDIALOG(__STRING_IDEPROGNAME,&(pass4607= 2 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6401,"ide_methods.bas");}while(r); -} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,6403,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,6403,"ide_methods.bas");}while(r); -S_43379:; -if ((-(*__LONG_IDEERROR> 1 ))||new_error){ -if(qbevent){evnt(26070,6404,"ide_methods.bas");if(r)goto S_43379;} -do{ -goto LABEL_IDEERRORMESSAGE; -if(!qbevent)break;evnt(26070,6404,"ide_methods.bas");}while(r); -} -do{ -goto LABEL_IDELOOP; -if(!qbevent)break;evnt(26070,6405,"ide_methods.bas");}while(r); -} -S_43384:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 1 ),qbs_new_txt_len("~",1))))||new_error){ -if(qbevent){evnt(26070,6408,"ide_methods.bas");if(r)goto S_43384;} -do{ -goto dl_continue_4439; -if(!qbevent)break;evnt(26070,6409,"ide_methods.bas");}while(r); -} -do{ -qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,6412,"ide_methods.bas");}while(r); -do{ -sub_cls(NULL,NULL,0); -if(!qbevent)break;evnt(26070,6413,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_add(qbs_add(qbs_new_txt_len("MENU ITEM [",11),((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]]))),qbs_new_txt_len("] NOT IMPLEMENTED!",18))); -if (new_error) goto skip4608; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip4608: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6413,"ide_methods.bas");}while(r); -do{ -sub_end(); -if(!qbevent)break;evnt(26070,6413,"ide_methods.bas");}while(r); -} -do{ -sub__limit( 100 ); -if(!qbevent)break;evnt(26070,6417,"ide_methods.bas");}while(r); -dl_continue_4439:; -}while(1); -dl_exit_4439:; -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,6422,"ide_methods.bas");}while(r); -LABEL_DRAWQUICKNAV:; -if(qbevent){evnt(26070,6423,"ide_methods.bas");r=0;} -S_43395:; -if (((-(*__LONG_IDESYSTEM== 1 ))&(-(*__LONG_QUICKNAVTOTAL> 0 )))||new_error){ -if(qbevent){evnt(26070,6424,"ide_methods.bas");if(r)goto S_43395;} -do{ -qbg_sub_color( 15 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,6425,"ide_methods.bas");}while(r); -do{ -sub__printstring( 4 , 2 ,qbs_add(qbs_add(qbs_new_txt_len(" ",1),func_chr( 17 )),qbs_new_txt_len(" ",1)),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6426,"ide_methods.bas");}while(r); -}else{ -do{ -qbg_sub_color( 7 , 1 ,NULL,3); -if(!qbevent)break;evnt(26070,6428,"ide_methods.bas");}while(r); -do{ -sub__printstring( 4 , 2 ,func_string( 3 , 196 ),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6429,"ide_methods.bas");}while(r); -} -do{ -#include "ret170.txt" -if(!qbevent)break;evnt(26070,6431,"ide_methods.bas");}while(r); -LABEL_UPDATESEARCHBAR:; -if(qbevent){evnt(26070,6433,"ide_methods.bas");r=0;} -do{ -qbg_sub_color( 7 , 1 ,NULL,3); -if(!qbevent)break;evnt(26070,6434,"ide_methods.bas");}while(r); -do{ -sub__printstring(*__LONG_IDEWX-( 20 + 10 ),*__LONG_IDEWY- 4 ,func_chr( 180 ),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6434,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 3 , 1 ,NULL,3); -if(!qbevent)break;evnt(26070,6435,"ide_methods.bas");}while(r); -do{ -sub__printstring( 1 +*__LONG_IDEWX-( 20 + 10 ),*__LONG_IDEWY- 4 ,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Find[",5),func_space( 20 + 1 )),func_chr( 18 )),qbs_new_txt_len("]",1)),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6436,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 7 , 1 ,NULL,3); -if(!qbevent)break;evnt(26070,6437,"ide_methods.bas");}while(r); -do{ -sub__printstring(*__LONG_IDEWX- 2 ,*__LONG_IDEWY- 4 ,func_chr( 195 ),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6437,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 7 , 1 ,NULL,3); -if(!qbevent)break;evnt(26070,6440,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_A,func_string( 14 , 196 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6441,"ide_methods.bas");}while(r); -do{ -sub__printstring((*__LONG_IDEWX-_FUNC_IDE2_STRING_A->len)/ ((long double)( 2 )),*__LONG_IDEWY- 4 ,_FUNC_IDE2_STRING_A,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6442,"ide_methods.bas");}while(r); -S_43412:; -if ((*__LONG_IDEDEBUGMODE)||new_error){ -if(qbevent){evnt(26070,6443,"ide_methods.bas");if(r)goto S_43412;} -do{ -qbg_sub_color( 1 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,6444,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_new_txt_len(" $DEBUG MODE ",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6445,"ide_methods.bas");}while(r); -}else{ -S_43416:; -if ((-(*__LONG_IDESYSTEM== 2 ))||new_error){ -if(qbevent){evnt(26070,6447,"ide_methods.bas");if(r)goto S_43416;} -do{ -qbg_sub_color( 1 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,6447,"ide_methods.bas");}while(r); -}else{ -do{ -qbg_sub_color( 7 , 1 ,NULL,3); -if(!qbevent)break;evnt(26070,6447,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_new_txt_len(" Status ",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6448,"ide_methods.bas");}while(r); -} -do{ -sub__printstring((*__LONG_IDEWX-_FUNC_IDE2_STRING_A->len)/ ((long double)( 2 )),*__LONG_IDEWY- 4 ,_FUNC_IDE2_STRING_A,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6450,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_A,__STRING_IDEFINDTEXT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6452,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_TX= 1 ; -if(!qbevent)break;evnt(26070,6453,"ide_methods.bas");}while(r); -S_43426:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDE2_STRING_A->len> 20 )))||new_error){ -if(qbevent){evnt(26070,6454,"ide_methods.bas");if(r)goto S_43426;} -S_43427:; -if ((-(*__LONG_IDESYSTEM== 2 ))||new_error){ -if(qbevent){evnt(26070,6455,"ide_methods.bas");if(r)goto S_43427;} -do{ -*_FUNC_IDE2_LONG_TX=*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1- 20 + 1 ; -if(!qbevent)break;evnt(26070,6456,"ide_methods.bas");}while(r); -S_43429:; -if ((-(*_FUNC_IDE2_LONG_TX< 1 ))||new_error){ -if(qbevent){evnt(26070,6457,"ide_methods.bas");if(r)goto S_43429;} -do{ -*_FUNC_IDE2_LONG_TX= 1 ; -if(!qbevent)break;evnt(26070,6457,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDE2_STRING_A,func_mid(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_TX, 20 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6458,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_left(_FUNC_IDE2_STRING_A, 20 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6460,"ide_methods.bas");}while(r); -} -} -do{ -*_FUNC_IDE2_LONG_SX1=*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__SX1; -if(!qbevent)break;evnt(26070,6464,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_SX2=*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1; -if(!qbevent)break;evnt(26070,6464,"ide_methods.bas");}while(r); -S_43439:; -if ((-(*_FUNC_IDE2_LONG_SX1>*_FUNC_IDE2_LONG_SX2))||new_error){ -if(qbevent){evnt(26070,6465,"ide_methods.bas");if(r)goto S_43439;} -do{ -swap_32(&*_FUNC_IDE2_LONG_SX1,&*_FUNC_IDE2_LONG_SX2); -if(!qbevent)break;evnt(26070,6465,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDE2_LONG_X=*_FUNC_IDE2_LONG_X+ 2 ; -if(!qbevent)break;evnt(26070,6467,"ide_methods.bas");}while(r); -S_43443:; -if (((-(*_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL== 0 ))|(-(*__LONG_IDESYSTEM!= 2 )))||new_error){ -if(qbevent){evnt(26070,6469,"ide_methods.bas");if(r)goto S_43443;} -do{ -qbg_sub_color( 3 , 1 ,NULL,3); -if(!qbevent)break;evnt(26070,6470,"ide_methods.bas");}while(r); -do{ -sub__printstring(*__LONG_IDEWX-( 20 + 8 )+ 4 ,*__LONG_IDEWY- 4 ,_FUNC_IDE2_STRING_A,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6471,"ide_methods.bas");}while(r); -}else{ -S_43447:; -fornext_value4613= 1 ; -fornext_finalvalue4613=_FUNC_IDE2_STRING_A->len; -fornext_step4613= 1 ; -if (fornext_step4613<0) fornext_step_negative4613=1; else fornext_step_negative4613=0; -if (new_error) goto fornext_error4613; -goto fornext_entrylabel4613; -while(1){ -fornext_value4613=fornext_step4613+(*_FUNC_IDE2_LONG_COLORCHAR); -fornext_entrylabel4613: -*_FUNC_IDE2_LONG_COLORCHAR=fornext_value4613; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative4613){ -if (fornext_value4613fornext_finalvalue4613) break; -} -fornext_error4613:; -if(qbevent){evnt(26070,6473,"ide_methods.bas");if(r)goto S_43447;} -S_43448:; -if (((-((*_FUNC_IDE2_LONG_COLORCHAR+*_FUNC_IDE2_LONG_TX- 2 )>=*_FUNC_IDE2_LONG_SX1))&(-((*_FUNC_IDE2_LONG_COLORCHAR+*_FUNC_IDE2_LONG_TX- 2 )<*_FUNC_IDE2_LONG_SX2)))||new_error){ -if(qbevent){evnt(26070,6474,"ide_methods.bas");if(r)goto S_43448;} -do{ -qbg_sub_color( 1 , 3 ,NULL,3); -if(!qbevent)break;evnt(26070,6474,"ide_methods.bas");}while(r); -}else{ -do{ -qbg_sub_color( 3 , 1 ,NULL,3); -if(!qbevent)break;evnt(26070,6474,"ide_methods.bas");}while(r); -} -do{ -sub__printstring(*__LONG_IDEWX-( 20 + 8 )+ 4 - 1 +*_FUNC_IDE2_LONG_COLORCHAR,*__LONG_IDEWY- 4 ,func_mid(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_COLORCHAR, 1 ,0|1),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6475,"ide_methods.bas");}while(r); -fornext_continue_4612:; -} -fornext_exit_4612:; -} -do{ -#include "ret170.txt" -if(!qbevent)break;evnt(26070,6478,"ide_methods.bas");}while(r); -LABEL_CLEANUPRECENTLIST:; -if(qbevent){evnt(26070,6480,"ide_methods.bas");r=0;} -do{ -qbs_set(_FUNC_IDE2_STRING_L,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6481,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_LN= 0 ; -if(!qbevent)break;evnt(26070,6481,"ide_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26070,6260,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_BACKUPTYPEDEFINITIONS,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6261,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_WATCHPOINTLIST,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6262,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_CALLSTACKLIST,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6263,"ide_methods.bas");}while(r); +do{ +*__LONG_CALLSTACKLENGTH= 0 ; +if(!qbevent)break;evnt(26070,6263,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_IDET,qbs_add(l2string( 0 ),l2string( 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6264,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEL= 1 ; +if(!qbevent)break;evnt(26070,6264,"ide_methods.bas");}while(r); +do{ +*__LONG_IDELI= 1 ; +if(!qbevent)break;evnt(26070,6264,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEN= 1 ; +if(!qbevent)break;evnt(26070,6264,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEBMKN= 0 ; +if(!qbevent)break;evnt(26070,6264,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESX= 1 ; +if(!qbevent)break;evnt(26070,6265,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESY= 1 ; +if(!qbevent)break;evnt(26070,6266,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECX= 1 ; +if(!qbevent)break;evnt(26070,6267,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECY= 1 ; +if(!qbevent)break;evnt(26070,6268,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESELECT= 0 ; +if(!qbevent)break;evnt(26070,6269,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_IDEPROGNAME,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6270,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_LISTOFCUSTOMKEYWORDS,qbs_left(__STRING_LISTOFCUSTOMKEYWORDS,*__LONG_CUSTOMKEYWORDSLENGTH)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6271,"ide_methods.bas");}while(r); +do{ +*__LONG_QUICKNAVTOTAL= 0 ; +if(!qbevent)break;evnt(26070,6272,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_MODIFYCOMMAND,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6273,"ide_methods.bas");}while(r); +do{ +sub__title(__STRING_WINDOWTITLE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6274,"ide_methods.bas");}while(r); +do{ +*__BYTE_STARTPAUSEDPENDING= 0 ; +if(!qbevent)break;evnt(26070,6275,"ide_methods.bas");}while(r); +do{ +*__INTEGER_IDECHANGEMADE= 1 ; +if(!qbevent)break;evnt(26070,6276,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEFOCUSLINE= 0 ; +if(!qbevent)break;evnt(26070,6277,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEUNDOBASE= 0 ; +if(!qbevent)break;evnt(26070,6278,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,6279,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDE2_BYTE_ATTEMPTTOLOADRECENT= 0 ; +if(!qbevent)break;evnt(26070,6282,"ide_methods.bas");}while(r); +S_43228:; +fornext_value4597= 1 ; +fornext_finalvalue4597=func_ubound(__ARRAY_STRING_IDERECENTLINK, 1 ,2); +fornext_step4597= 1 ; +if (fornext_step4597<0) fornext_step_negative4597=1; else fornext_step_negative4597=0; +if (new_error) goto fornext_error4597; +goto fornext_entrylabel4597; +while(1){ +fornext_value4597=fornext_step4597+(*_FUNC_IDE2_LONG_ML); +fornext_entrylabel4597: +*_FUNC_IDE2_LONG_ML=fornext_value4597; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative4597){ +if (fornext_value4597fornext_finalvalue4597) break; +} +fornext_error4597:; +if(qbevent){evnt(26070,6283,"ide_methods.bas");if(r)goto S_43228;} +S_43229:; +if ((qbs_cleanup(qbs_tmp_base,((qbs*)(((uint64*)(__ARRAY_STRING_IDERECENTLINK[0]))[array_check((*_FUNC_IDE2_LONG_ML)-__ARRAY_STRING_IDERECENTLINK[8],__ARRAY_STRING_IDERECENTLINK[9])+array_check(( 1 )-__ARRAY_STRING_IDERECENTLINK[4],__ARRAY_STRING_IDERECENTLINK[5])*__ARRAY_STRING_IDERECENTLINK[6]]))->len))||new_error){ +if(qbevent){evnt(26070,6284,"ide_methods.bas");if(r)goto S_43229;} +S_43230:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),((qbs*)(((uint64*)(__ARRAY_STRING_IDERECENTLINK[0]))[array_check((*_FUNC_IDE2_LONG_ML)-__ARRAY_STRING_IDERECENTLINK[8],__ARRAY_STRING_IDERECENTLINK[9])+array_check(( 1 )-__ARRAY_STRING_IDERECENTLINK[4],__ARRAY_STRING_IDERECENTLINK[5])*__ARRAY_STRING_IDERECENTLINK[6]])))))||new_error){ +if(qbevent){evnt(26070,6285,"ide_methods.bas");if(r)goto S_43230;} +do{ +qbs_set(__STRING_IDEOPENFILE,((qbs*)(((uint64*)(__ARRAY_STRING_IDERECENTLINK[0]))[array_check((*_FUNC_IDE2_LONG_ML)-__ARRAY_STRING_IDERECENTLINK[8],__ARRAY_STRING_IDERECENTLINK[9])+array_check(( 2 )-__ARRAY_STRING_IDERECENTLINK[4],__ARRAY_STRING_IDERECENTLINK[5])*__ARRAY_STRING_IDERECENTLINK[6]]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6286,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_BYTE_ATTEMPTTOLOADRECENT= -1 ; +if(!qbevent)break;evnt(26070,6287,"ide_methods.bas");}while(r); +do{ +goto LABEL_DIRECTOPEN; +if(!qbevent)break;evnt(26070,6288,"ide_methods.bas");}while(r); +} +} +fornext_continue_4596:; +} +fornext_exit_4596:; +S_43237:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Recent...",10))))||new_error){ +if(qbevent){evnt(26070,6294,"ide_methods.bas");if(r)goto S_43237;} +do{ +sub_pcopy( 2 , 0 ); +if(!qbevent)break;evnt(26070,6295,"ide_methods.bas");}while(r); +LABEL_IDESHOWRECENTBOX:; +if(qbevent){evnt(26070,6296,"ide_methods.bas");r=0;} +do{ +qbs_set(_FUNC_IDE2_STRING_F,FUNC_IDERECENTBOX()); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6297,"ide_methods.bas");}while(r); +S_43240:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_F,qbs_new_txt_len("",3))))||new_error){ +if(qbevent){evnt(26070,6298,"ide_methods.bas");if(r)goto S_43240;} +do{ +qbs_set(_FUNC_IDE2_STRING_F,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6299,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_R,FUNC_IDECLEARHISTORY(qbs_new_txt_len("FILES",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6300,"ide_methods.bas");}while(r); +S_43243:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_R,qbs_new_txt_len("Y",1))))||new_error){ +if(qbevent){evnt(26070,6301,"ide_methods.bas");if(r)goto S_43243;} +do{ +*_FUNC_IDE2_LONG_FH=func_freefile(); +if(!qbevent)break;evnt(26070,6302,"ide_methods.bas");}while(r); +do{ +sub_open(qbs_new_txt_len(".\\internal\\temp\\recent.bin",26), 4 ,NULL,NULL,*_FUNC_IDE2_LONG_FH,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6303,"ide_methods.bas");}while(r); +do{ +sub_close(*_FUNC_IDE2_LONG_FH,1); +if(!qbevent)break;evnt(26070,6303,"ide_methods.bas");}while(r); +do{ +SUB_IDEMAKEFILEMENU(); +if(!qbevent)break;evnt(26070,6304,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,6305,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,6305,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,6306,"ide_methods.bas");}while(r); +}else{ +do{ +goto LABEL_IDESHOWRECENTBOX; +if(!qbevent)break;evnt(26070,6308,"ide_methods.bas");}while(r); +} +S_43254:; +}else{ +if (qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_F,qbs_new_txt_len("",3)))){ +if(qbevent){evnt(26070,6310,"ide_methods.bas");if(r)goto S_43254;} +do{ +return_point[next_return_point++]=51; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_CLEANUPRECENTLIST; +RETURN_51:; +if(!qbevent)break;evnt(26070,6311,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDESHOWRECENTBOX; +if(!qbevent)break;evnt(26070,6312,"ide_methods.bas");}while(r); +} +} +S_43258:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_F->len))||new_error){ +if(qbevent){evnt(26070,6314,"ide_methods.bas");if(r)goto S_43258;} +do{ +qbs_set(__STRING_IDEOPENFILE,_FUNC_IDE2_STRING_F); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6315,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_BYTE_ATTEMPTTOLOADRECENT= -1 ; +if(!qbevent)break;evnt(26070,6316,"ide_methods.bas");}while(r); +do{ +goto LABEL_DIRECTOPEN; +if(!qbevent)break;evnt(26070,6317,"ide_methods.bas");}while(r); +} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,6319,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,6319,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,6320,"ide_methods.bas");}while(r); +} +S_43267:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Clear Recent...",16))))||new_error){ +if(qbevent){evnt(26070,6323,"ide_methods.bas");if(r)goto S_43267;} +do{ +sub_pcopy( 2 , 0 ); +if(!qbevent)break;evnt(26070,6324,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_R,FUNC_IDECLEARHISTORY(qbs_new_txt_len("FILES",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6325,"ide_methods.bas");}while(r); +S_43270:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_R,qbs_new_txt_len("Y",1))))||new_error){ +if(qbevent){evnt(26070,6326,"ide_methods.bas");if(r)goto S_43270;} +do{ +*_FUNC_IDE2_LONG_FH=func_freefile(); +if(!qbevent)break;evnt(26070,6327,"ide_methods.bas");}while(r); +do{ +sub_open(qbs_new_txt_len(".\\internal\\temp\\recent.bin",26), 4 ,NULL,NULL,*_FUNC_IDE2_LONG_FH,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6328,"ide_methods.bas");}while(r); +do{ +sub_close(*_FUNC_IDE2_LONG_FH,1); +if(!qbevent)break;evnt(26070,6328,"ide_methods.bas");}while(r); +do{ +SUB_IDEMAKEFILEMENU(); +if(!qbevent)break;evnt(26070,6329,"ide_methods.bas");}while(r); +S_43275:; +if ((-(*__LONG_IDEAUTOLAYOUT!= 0 ))||new_error){ +if(qbevent){evnt(26070,6330,"ide_methods.bas");if(r)goto S_43275;} +do{ +tmp_long=array_check(( 1 )-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_FILEMENUEXPORTAS)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(qbs_new_txt_len("#Export As... ",15),func_chr( 16 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6330,"ide_methods.bas");}while(r); +} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,6331,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,6331,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,6332,"ide_methods.bas");}while(r); +} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,6334,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,6334,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,6335,"ide_methods.bas");}while(r); +} +S_43286:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Open... Ctrl+O",16))))||new_error){ +if(qbevent){evnt(26070,6338,"ide_methods.bas");if(r)goto S_43286;} +do{ +qbs_set(__STRING_IDEOPENFILE,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6339,"ide_methods.bas");}while(r); +LABEL_DIRECTOPEN:; +if(qbevent){evnt(26070,6340,"ide_methods.bas");r=0;} +do{ +sub_pcopy( 2 , 0 ); +if(!qbevent)break;evnt(26070,6341,"ide_methods.bas");}while(r); +LABEL_CTRLOPEN:; +if(qbevent){evnt(26070,6342,"ide_methods.bas");r=0;} +S_43289:; +if ((*__LONG_IDEUNSAVED)||new_error){ +if(qbevent){evnt(26070,6343,"ide_methods.bas");if(r)goto S_43289;} +do{ +qbs_set(_FUNC_IDE2_STRING_R,FUNC_IDESAVENOW()); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6344,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,6345,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,6345,"ide_methods.bas");}while(r); +S_43293:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_R,qbs_new_txt_len("C",1))))||new_error){ +if(qbevent){evnt(26070,6346,"ide_methods.bas");if(r)goto S_43293;} +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,6346,"ide_methods.bas");}while(r); +} +S_43296:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_R,qbs_new_txt_len("Y",1))))||new_error){ +if(qbevent){evnt(26070,6347,"ide_methods.bas");if(r)goto S_43296;} +S_43297:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_IDEPROGNAME,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,6348,"ide_methods.bas");if(r)goto S_43297;} +do{ +qbs_set(_FUNC_IDE2_STRING_PROPOSEDTITLE,FUNC_FINDPROPOSEDTITLE()); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6349,"ide_methods.bas");}while(r); +S_43299:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_PROPOSEDTITLE,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,6350,"ide_methods.bas");if(r)goto S_43299;} +do{ +qbs_set(_FUNC_IDE2_STRING_R,FUNC_IDEFILEDIALOG(qbs_add(qbs_add(qbs_new_txt_len("untitled",8),__STRING_TEMPFOLDERINDEXSTR),qbs_new_txt_len(".bas",4)),&(pass4600= 2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6351,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDE2_STRING_R,FUNC_IDEFILEDIALOG(qbs_add(_FUNC_IDE2_STRING_PROPOSEDTITLE,qbs_new_txt_len(".bas",4)),&(pass4601= 2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6353,"ide_methods.bas");}while(r); +} +S_43304:; +if ((-(*__LONG_IDEERROR> 1 ))||new_error){ +if(qbevent){evnt(26070,6355,"ide_methods.bas");if(r)goto S_43304;} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,6355,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,6355,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDEERRORMESSAGE; +if(!qbevent)break;evnt(26070,6355,"ide_methods.bas");}while(r); +} +S_43309:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_R,qbs_new_txt_len("C",1))))||new_error){ +if(qbevent){evnt(26070,6356,"ide_methods.bas");if(r)goto S_43309;} +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,6356,"ide_methods.bas");}while(r); +} +}else{ +do{ +SUB_IDESAVE(qbs_add(qbs_add(__STRING_IDEPATH,__STRING1_IDEPATHSEP),__STRING_IDEPROGNAME)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6358,"ide_methods.bas");}while(r); +} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,6360,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,6360,"ide_methods.bas");}while(r); +} +} +S_43319:; +if ((*__ULONG_USEGUIDIALOGS)||new_error){ +if(qbevent){evnt(26070,6363,"ide_methods.bas");if(r)goto S_43319;} +do{ +qbs_set(_FUNC_IDE2_STRING_R,FUNC_OPENFILE(__STRING_IDEOPENFILE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6364,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDE2_STRING_R,FUNC_IDEFILEDIALOG(qbs_new_txt_len("",0),&(pass4602= 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6366,"ide_methods.bas");}while(r); +} +S_43324:; +if ((-(*__LONG_IDEERROR> 1 ))||new_error){ +if(qbevent){evnt(26070,6368,"ide_methods.bas");if(r)goto S_43324;} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,6368,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,6368,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDEERRORMESSAGE; +if(!qbevent)break;evnt(26070,6368,"ide_methods.bas");}while(r); +} +S_43329:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_IDE2_STRING_R,qbs_new_txt_len("C",1))))||new_error){ +if(qbevent){evnt(26070,6369,"ide_methods.bas");if(r)goto S_43329;} +do{ +*__LONG_IDEUNSAVED= -1 ; +if(!qbevent)break;evnt(26070,6369,"ide_methods.bas");}while(r); +do{ +*__INTEGER_IDECHANGEMADE= 1 ; +if(!qbevent)break;evnt(26070,6369,"ide_methods.bas");}while(r); +do{ +*__LONG_IDELAYOUTALLOW= 2 ; +if(!qbevent)break;evnt(26070,6369,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEUNDOBASE= 0 ; +if(!qbevent)break;evnt(26070,6369,"ide_methods.bas");}while(r); +do{ +*__LONG_QUICKNAVTOTAL= 0 ; +if(!qbevent)break;evnt(26070,6369,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_MODIFYCOMMAND,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6369,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEFOCUSLINE= 0 ; +if(!qbevent)break;evnt(26070,6369,"ide_methods.bas");}while(r); +do{ +*__BYTE_STARTPAUSEDPENDING= 0 ; +if(!qbevent)break;evnt(26070,6369,"ide_methods.bas");}while(r); +} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,6370,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,6370,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=52; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_REDRAWITALL; +RETURN_52:; +if(!qbevent)break;evnt(26070,6371,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,6371,"ide_methods.bas");}while(r); +} +S_43344:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Save Ctrl+S",13))))||new_error){ +if(qbevent){evnt(26070,6374,"ide_methods.bas");if(r)goto S_43344;} +do{ +sub_pcopy( 2 , 0 ); +if(!qbevent)break;evnt(26070,6375,"ide_methods.bas");}while(r); +S_43346:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_IDEPROGNAME,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,6376,"ide_methods.bas");if(r)goto S_43346;} +do{ +qbs_set(_FUNC_IDE2_STRING_PROPOSEDTITLE,FUNC_FINDPROPOSEDTITLE()); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6377,"ide_methods.bas");}while(r); +S_43348:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_PROPOSEDTITLE,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,6378,"ide_methods.bas");if(r)goto S_43348;} +do{ +qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEFILEDIALOG(qbs_add(qbs_add(qbs_new_txt_len("untitled",8),__STRING_TEMPFOLDERINDEXSTR),qbs_new_txt_len(".bas",4)),&(pass4603= 2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6379,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEFILEDIALOG(qbs_add(_FUNC_IDE2_STRING_PROPOSEDTITLE,qbs_new_txt_len(".bas",4)),&(pass4604= 2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6381,"ide_methods.bas");}while(r); +} +S_43353:; +if ((-(*__LONG_IDEERROR> 1 ))||new_error){ +if(qbevent){evnt(26070,6383,"ide_methods.bas");if(r)goto S_43353;} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,6383,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,6383,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDEERRORMESSAGE; +if(!qbevent)break;evnt(26070,6383,"ide_methods.bas");}while(r); +} +}else{ +do{ +SUB_IDESAVE(qbs_add(qbs_add(__STRING_IDEPATH,__STRING1_IDEPATHSEP),__STRING_IDEPROGNAME)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6385,"ide_methods.bas");}while(r); +} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,6387,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,6387,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,6387,"ide_methods.bas");}while(r); +} +S_43365:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("Save #As...",11))))||new_error){ +if(qbevent){evnt(26070,6391,"ide_methods.bas");if(r)goto S_43365;} +do{ +sub_pcopy( 2 , 0 ); +if(!qbevent)break;evnt(26070,6392,"ide_methods.bas");}while(r); +S_43367:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_IDEPROGNAME,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,6393,"ide_methods.bas");if(r)goto S_43367;} +do{ +qbs_set(_FUNC_IDE2_STRING_PROPOSEDTITLE,FUNC_FINDPROPOSEDTITLE()); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6394,"ide_methods.bas");}while(r); +S_43369:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDE2_STRING_PROPOSEDTITLE,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,6395,"ide_methods.bas");if(r)goto S_43369;} +do{ +qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEFILEDIALOG(qbs_add(qbs_add(qbs_new_txt_len("untitled",8),__STRING_TEMPFOLDERINDEXSTR),qbs_new_txt_len(".bas",4)),&(pass4605= 2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6396,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEFILEDIALOG(qbs_add(_FUNC_IDE2_STRING_PROPOSEDTITLE,qbs_new_txt_len(".bas",4)),&(pass4606= 2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6398,"ide_methods.bas");}while(r); +} +}else{ +do{ +qbs_set(_FUNC_IDE2_STRING_A,FUNC_IDEFILEDIALOG(__STRING_IDEPROGNAME,&(pass4607= 2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6401,"ide_methods.bas");}while(r); +} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,6403,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,6403,"ide_methods.bas");}while(r); +S_43379:; +if ((-(*__LONG_IDEERROR> 1 ))||new_error){ +if(qbevent){evnt(26070,6404,"ide_methods.bas");if(r)goto S_43379;} +do{ +goto LABEL_IDEERRORMESSAGE; +if(!qbevent)break;evnt(26070,6404,"ide_methods.bas");}while(r); +} +do{ +goto LABEL_IDELOOP; +if(!qbevent)break;evnt(26070,6405,"ide_methods.bas");}while(r); +} +S_43384:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])), 1 ),qbs_new_txt_len("~",1))))||new_error){ +if(qbevent){evnt(26070,6408,"ide_methods.bas");if(r)goto S_43384;} +do{ +goto dl_continue_4439; +if(!qbevent)break;evnt(26070,6409,"ide_methods.bas");}while(r); +} +do{ +qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,6412,"ide_methods.bas");}while(r); +do{ +sub_cls(NULL,NULL,0); +if(!qbevent)break;evnt(26070,6413,"ide_methods.bas");}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_add(qbs_add(qbs_new_txt_len("MENU ITEM [",11),((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_FUNC_IDE2_LONG_S)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]]))),qbs_new_txt_len("] NOT IMPLEMENTED!",18))); +if (new_error) goto skip4608; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip4608: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6413,"ide_methods.bas");}while(r); +do{ +sub_end(); +if(!qbevent)break;evnt(26070,6413,"ide_methods.bas");}while(r); +} +do{ +sub__limit( 100 ); +if(!qbevent)break;evnt(26070,6417,"ide_methods.bas");}while(r); +dl_continue_4439:; +}while(1); +dl_exit_4439:; +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,6422,"ide_methods.bas");}while(r); +LABEL_DRAWQUICKNAV:; +if(qbevent){evnt(26070,6423,"ide_methods.bas");r=0;} +S_43395:; +if (((-(*__LONG_IDESYSTEM== 1 ))&(-(*__LONG_QUICKNAVTOTAL> 0 )))||new_error){ +if(qbevent){evnt(26070,6424,"ide_methods.bas");if(r)goto S_43395;} +do{ +qbg_sub_color( 15 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,6425,"ide_methods.bas");}while(r); +do{ +sub__printstring( 4 , 2 ,qbs_add(qbs_add(qbs_new_txt_len(" ",1),func_chr( 17 )),qbs_new_txt_len(" ",1)),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6426,"ide_methods.bas");}while(r); +}else{ +do{ +qbg_sub_color( 7 , 1 ,NULL,3); +if(!qbevent)break;evnt(26070,6428,"ide_methods.bas");}while(r); +do{ +sub__printstring( 4 , 2 ,func_string( 3 , 196 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6429,"ide_methods.bas");}while(r); +} +do{ +#include "ret170.txt" +if(!qbevent)break;evnt(26070,6431,"ide_methods.bas");}while(r); +LABEL_UPDATESEARCHBAR:; +if(qbevent){evnt(26070,6433,"ide_methods.bas");r=0;} +do{ +qbg_sub_color( 7 , 1 ,NULL,3); +if(!qbevent)break;evnt(26070,6434,"ide_methods.bas");}while(r); +do{ +sub__printstring(*__LONG_IDEWX-( 20 + 10 ),*__LONG_IDEWY- 4 ,func_chr( 180 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6434,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 3 , 1 ,NULL,3); +if(!qbevent)break;evnt(26070,6435,"ide_methods.bas");}while(r); +do{ +sub__printstring( 1 +*__LONG_IDEWX-( 20 + 10 ),*__LONG_IDEWY- 4 ,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Find[",5),func_space( 20 + 1 )),func_chr( 18 )),qbs_new_txt_len("]",1)),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6436,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 7 , 1 ,NULL,3); +if(!qbevent)break;evnt(26070,6437,"ide_methods.bas");}while(r); +do{ +sub__printstring(*__LONG_IDEWX- 2 ,*__LONG_IDEWY- 4 ,func_chr( 195 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6437,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 7 , 1 ,NULL,3); +if(!qbevent)break;evnt(26070,6440,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_A,func_string( 14 , 196 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6441,"ide_methods.bas");}while(r); +do{ +sub__printstring((*__LONG_IDEWX-_FUNC_IDE2_STRING_A->len)/ ((long double)( 2 )),*__LONG_IDEWY- 4 ,_FUNC_IDE2_STRING_A,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6442,"ide_methods.bas");}while(r); +S_43412:; +if ((*__LONG_IDEDEBUGMODE)||new_error){ +if(qbevent){evnt(26070,6443,"ide_methods.bas");if(r)goto S_43412;} +do{ +qbg_sub_color( 1 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,6444,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_A,qbs_new_txt_len(" $DEBUG MODE ",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6445,"ide_methods.bas");}while(r); +}else{ +S_43416:; +if ((-(*__LONG_IDESYSTEM== 2 ))||new_error){ +if(qbevent){evnt(26070,6447,"ide_methods.bas");if(r)goto S_43416;} +do{ +qbg_sub_color( 1 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,6447,"ide_methods.bas");}while(r); +}else{ +do{ +qbg_sub_color( 7 , 1 ,NULL,3); +if(!qbevent)break;evnt(26070,6447,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDE2_STRING_A,qbs_new_txt_len(" Status ",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6448,"ide_methods.bas");}while(r); +} +do{ +sub__printstring((*__LONG_IDEWX-_FUNC_IDE2_STRING_A->len)/ ((long double)( 2 )),*__LONG_IDEWY- 4 ,_FUNC_IDE2_STRING_A,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6450,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_A,__STRING_IDEFINDTEXT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6452,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_TX= 1 ; +if(!qbevent)break;evnt(26070,6453,"ide_methods.bas");}while(r); +S_43426:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDE2_STRING_A->len> 20 )))||new_error){ +if(qbevent){evnt(26070,6454,"ide_methods.bas");if(r)goto S_43426;} +S_43427:; +if ((-(*__LONG_IDESYSTEM== 2 ))||new_error){ +if(qbevent){evnt(26070,6455,"ide_methods.bas");if(r)goto S_43427;} +do{ +*_FUNC_IDE2_LONG_TX=*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1- 20 + 1 ; +if(!qbevent)break;evnt(26070,6456,"ide_methods.bas");}while(r); +S_43429:; +if ((-(*_FUNC_IDE2_LONG_TX< 1 ))||new_error){ +if(qbevent){evnt(26070,6457,"ide_methods.bas");if(r)goto S_43429;} +do{ +*_FUNC_IDE2_LONG_TX= 1 ; +if(!qbevent)break;evnt(26070,6457,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDE2_STRING_A,func_mid(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_TX, 20 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6458,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDE2_STRING_A,qbs_left(_FUNC_IDE2_STRING_A, 20 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6460,"ide_methods.bas");}while(r); +} +} +do{ +*_FUNC_IDE2_LONG_SX1=*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__SX1; +if(!qbevent)break;evnt(26070,6464,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_SX2=*_FUNC_IDE2_LONG_IDESYSTEM2__ASCII_CHR_046__V1; +if(!qbevent)break;evnt(26070,6464,"ide_methods.bas");}while(r); +S_43439:; +if ((-(*_FUNC_IDE2_LONG_SX1>*_FUNC_IDE2_LONG_SX2))||new_error){ +if(qbevent){evnt(26070,6465,"ide_methods.bas");if(r)goto S_43439;} +do{ +swap_32(&*_FUNC_IDE2_LONG_SX1,&*_FUNC_IDE2_LONG_SX2); +if(!qbevent)break;evnt(26070,6465,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDE2_LONG_X=*_FUNC_IDE2_LONG_X+ 2 ; +if(!qbevent)break;evnt(26070,6467,"ide_methods.bas");}while(r); +S_43443:; +if (((-(*_FUNC_IDE2_BYTE_IDESYSTEM2__ASCII_CHR_046__ISSEL== 0 ))|(-(*__LONG_IDESYSTEM!= 2 )))||new_error){ +if(qbevent){evnt(26070,6469,"ide_methods.bas");if(r)goto S_43443;} +do{ +qbg_sub_color( 3 , 1 ,NULL,3); +if(!qbevent)break;evnt(26070,6470,"ide_methods.bas");}while(r); +do{ +sub__printstring(*__LONG_IDEWX-( 20 + 8 )+ 4 ,*__LONG_IDEWY- 4 ,_FUNC_IDE2_STRING_A,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6471,"ide_methods.bas");}while(r); +}else{ +S_43447:; +fornext_value4613= 1 ; +fornext_finalvalue4613=_FUNC_IDE2_STRING_A->len; +fornext_step4613= 1 ; +if (fornext_step4613<0) fornext_step_negative4613=1; else fornext_step_negative4613=0; +if (new_error) goto fornext_error4613; +goto fornext_entrylabel4613; +while(1){ +fornext_value4613=fornext_step4613+(*_FUNC_IDE2_LONG_COLORCHAR); +fornext_entrylabel4613: +*_FUNC_IDE2_LONG_COLORCHAR=fornext_value4613; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative4613){ +if (fornext_value4613fornext_finalvalue4613) break; +} +fornext_error4613:; +if(qbevent){evnt(26070,6473,"ide_methods.bas");if(r)goto S_43447;} +S_43448:; +if (((-((*_FUNC_IDE2_LONG_COLORCHAR+*_FUNC_IDE2_LONG_TX- 2 )>=*_FUNC_IDE2_LONG_SX1))&(-((*_FUNC_IDE2_LONG_COLORCHAR+*_FUNC_IDE2_LONG_TX- 2 )<*_FUNC_IDE2_LONG_SX2)))||new_error){ +if(qbevent){evnt(26070,6474,"ide_methods.bas");if(r)goto S_43448;} +do{ +qbg_sub_color( 1 , 3 ,NULL,3); +if(!qbevent)break;evnt(26070,6474,"ide_methods.bas");}while(r); +}else{ +do{ +qbg_sub_color( 3 , 1 ,NULL,3); +if(!qbevent)break;evnt(26070,6474,"ide_methods.bas");}while(r); +} +do{ +sub__printstring(*__LONG_IDEWX-( 20 + 8 )+ 4 - 1 +*_FUNC_IDE2_LONG_COLORCHAR,*__LONG_IDEWY- 4 ,func_mid(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_COLORCHAR, 1 ,0|1),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6475,"ide_methods.bas");}while(r); +fornext_continue_4612:; +} +fornext_exit_4612:; +} +do{ +#include "ret170.txt" +if(!qbevent)break;evnt(26070,6478,"ide_methods.bas");}while(r); +LABEL_CLEANUPRECENTLIST:; +if(qbevent){evnt(26070,6480,"ide_methods.bas");r=0;} +do{ +qbs_set(_FUNC_IDE2_STRING_L,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6481,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_LN= 0 ; +if(!qbevent)break;evnt(26070,6481,"ide_methods.bas");}while(r); +do{ if (_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[2]&2){ error(10); @@ -144942,67 +144942,67 @@ while(tmp_long--) ((uint64*)(_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[0]))[tmp_lo }else{ while(tmp_long--) ((uint64*)(_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[0]))[tmp_long]=(uint64)qbs_new(0,0); } -} -if(!qbevent)break;evnt(26070,6482,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_FH=func_freefile(); -if(!qbevent)break;evnt(26070,6483,"ide_methods.bas");}while(r); -do{ -sub_open(qbs_new_txt_len(".\\internal\\temp\\recent.bin",26), 2 ,NULL,NULL,*_FUNC_IDE2_LONG_FH,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6484,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_A,func_space(func_lof(*_FUNC_IDE2_LONG_FH))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6484,"ide_methods.bas");}while(r); -do{ -sub_get2(*_FUNC_IDE2_LONG_FH,NULL,_FUNC_IDE2_STRING_A,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6484,"ide_methods.bas");}while(r); -do{ -sub_close(*_FUNC_IDE2_LONG_FH,1); -if(!qbevent)break;evnt(26070,6485,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len- 2 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6486,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_FOUNDBROKENLINK= 0 ; -if(!qbevent)break;evnt(26070,6487,"ide_methods.bas");}while(r); -S_43467:; -while((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_A->len))||new_error){ -if(qbevent){evnt(26070,6488,"ide_methods.bas");if(r)goto S_43467;} -do{ -*_FUNC_IDE2_LONG_AI=func_instr(NULL,_FUNC_IDE2_STRING_A,__STRING_CRLF,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6489,"ide_methods.bas");}while(r); -S_43469:; -if ((*_FUNC_IDE2_LONG_AI)||new_error){ -if(qbevent){evnt(26070,6490,"ide_methods.bas");if(r)goto S_43469;} -do{ -qbs_set(_FUNC_IDE2_STRING_F,qbs_left(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_AI- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6491,"ide_methods.bas");}while(r); -S_43471:; -if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDE2_LONG_AI==(_FUNC_IDE2_STRING_A->len- 1 ))))||new_error){ -if(qbevent){evnt(26070,6491,"ide_methods.bas");if(r)goto S_43471;} -do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6491,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDE2_STRING_A,qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len-*_FUNC_IDE2_LONG_AI- 3 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6491,"ide_methods.bas");}while(r); -} -S_43476:; -if ((qbs_cleanup(qbs_tmp_base,func__fileexists(_FUNC_IDE2_STRING_F)))||new_error){ -if(qbevent){evnt(26070,6492,"ide_methods.bas");if(r)goto S_43476;} -do{ -*_FUNC_IDE2_LONG_LN=*_FUNC_IDE2_LONG_LN+ 1 ; -if(!qbevent)break;evnt(26070,6493,"ide_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26070,6482,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_FH=func_freefile(); +if(!qbevent)break;evnt(26070,6483,"ide_methods.bas");}while(r); +do{ +sub_open(qbs_new_txt_len(".\\internal\\temp\\recent.bin",26), 2 ,NULL,NULL,*_FUNC_IDE2_LONG_FH,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6484,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_A,func_space(func_lof(*_FUNC_IDE2_LONG_FH))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6484,"ide_methods.bas");}while(r); +do{ +sub_get2(*_FUNC_IDE2_LONG_FH,NULL,_FUNC_IDE2_STRING_A,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6484,"ide_methods.bas");}while(r); +do{ +sub_close(*_FUNC_IDE2_LONG_FH,1); +if(!qbevent)break;evnt(26070,6485,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_A,qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len- 2 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6486,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_FOUNDBROKENLINK= 0 ; +if(!qbevent)break;evnt(26070,6487,"ide_methods.bas");}while(r); +S_43467:; +while((qbs_cleanup(qbs_tmp_base,_FUNC_IDE2_STRING_A->len))||new_error){ +if(qbevent){evnt(26070,6488,"ide_methods.bas");if(r)goto S_43467;} +do{ +*_FUNC_IDE2_LONG_AI=func_instr(NULL,_FUNC_IDE2_STRING_A,__STRING_CRLF,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6489,"ide_methods.bas");}while(r); +S_43469:; +if ((*_FUNC_IDE2_LONG_AI)||new_error){ +if(qbevent){evnt(26070,6490,"ide_methods.bas");if(r)goto S_43469;} +do{ +qbs_set(_FUNC_IDE2_STRING_F,qbs_left(_FUNC_IDE2_STRING_A,*_FUNC_IDE2_LONG_AI- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6491,"ide_methods.bas");}while(r); +S_43471:; +if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDE2_LONG_AI==(_FUNC_IDE2_STRING_A->len- 1 ))))||new_error){ +if(qbevent){evnt(26070,6491,"ide_methods.bas");if(r)goto S_43471;} +do{ +qbs_set(_FUNC_IDE2_STRING_A,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6491,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDE2_STRING_A,qbs_right(_FUNC_IDE2_STRING_A,_FUNC_IDE2_STRING_A->len-*_FUNC_IDE2_LONG_AI- 3 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6491,"ide_methods.bas");}while(r); +} +S_43476:; +if ((qbs_cleanup(qbs_tmp_base,func__fileexists(_FUNC_IDE2_STRING_F)))||new_error){ +if(qbevent){evnt(26070,6492,"ide_methods.bas");if(r)goto S_43476;} +do{ +*_FUNC_IDE2_LONG_LN=*_FUNC_IDE2_LONG_LN+ 1 ; +if(!qbevent)break;evnt(26070,6493,"ide_methods.bas");}while(r); +do{ if (_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[2]&2){ error(10); @@ -145045,764 +145045,764 @@ while(tmp_long--) ((uint64*)(_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[0]))[tmp_lo while(tmp_long--) ((uint64*)(_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -} -if(!qbevent)break;evnt(26070,6494,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDE2_LONG_LN)-_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[4],_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[0]))[tmp_long])),_FUNC_IDE2_STRING_F); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6495,"ide_methods.bas");}while(r); -}else{ -do{ -*_FUNC_IDE2_LONG_FOUNDBROKENLINK= -1 ; -if(!qbevent)break;evnt(26070,6497,"ide_methods.bas");}while(r); -} -} -dl_continue_4617:; -} -dl_exit_4617:; -S_43485:; -if ((~(*_FUNC_IDE2_LONG_FOUNDBROKENLINK))||new_error){ -if(qbevent){evnt(26070,6502,"ide_methods.bas");if(r)goto S_43485;} -do{ -*_FUNC_IDE2_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Remove Broken Links",19),qbs_new_txt_len("All files in the list are accessible.",37),qbs_new_txt_len("#OK",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6503,"ide_methods.bas");}while(r); -} -S_43488:; -if (((-(*_FUNC_IDE2_LONG_LN> 0 ))&*_FUNC_IDE2_LONG_FOUNDBROKENLINK)||new_error){ -if(qbevent){evnt(26070,6506,"ide_methods.bas");if(r)goto S_43488;} -do{ -*_FUNC_IDE2_LONG_FH=func_freefile(); -if(!qbevent)break;evnt(26070,6507,"ide_methods.bas");}while(r); -do{ -sub_open(qbs_new_txt_len(".\\internal\\temp\\recent.bin",26), 4 ,NULL,NULL,*_FUNC_IDE2_LONG_FH,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6508,"ide_methods.bas");}while(r); -do{ -sub_close(*_FUNC_IDE2_LONG_FH,1); -if(!qbevent)break;evnt(26070,6508,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_F,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6509,"ide_methods.bas");}while(r); -S_43493:; -fornext_value4621= 1 ; -fornext_finalvalue4621=func_ubound(_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST,1,1); -fornext_step4621= 1 ; -if (fornext_step4621<0) fornext_step_negative4621=1; else fornext_step_negative4621=0; -if (new_error) goto fornext_error4621; -goto fornext_entrylabel4621; -while(1){ -fornext_value4621=fornext_step4621+(*_FUNC_IDE2_LONG_LN); -fornext_entrylabel4621: -*_FUNC_IDE2_LONG_LN=fornext_value4621; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative4621){ -if (fornext_value4621fornext_finalvalue4621) break; -} -fornext_error4621:; -if(qbevent){evnt(26070,6510,"ide_methods.bas");if(r)goto S_43493;} -do{ -qbs_set(_FUNC_IDE2_STRING_F,qbs_add(qbs_add(qbs_add(_FUNC_IDE2_STRING_F,__STRING_CRLF),((qbs*)(((uint64*)(_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[0]))[array_check((*_FUNC_IDE2_LONG_LN)-_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[4],_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[5])]))),__STRING_CRLF)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6511,"ide_methods.bas");}while(r); -fornext_continue_4620:; -} -fornext_exit_4620:; -do{ -*_FUNC_IDE2_LONG_FH=func_freefile(); -if(!qbevent)break;evnt(26070,6513,"ide_methods.bas");}while(r); -do{ -sub_open(qbs_new_txt_len(".\\internal\\temp\\recent.bin",26), 2 ,NULL,NULL,*_FUNC_IDE2_LONG_FH,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6514,"ide_methods.bas");}while(r); -do{ -sub_put2(*_FUNC_IDE2_LONG_FH, 1 ,byte_element((uint64)_FUNC_IDE2_STRING_F->chr,_FUNC_IDE2_STRING_F->len,byte_element_4622),1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6515,"ide_methods.bas");}while(r); -do{ -sub_close(*_FUNC_IDE2_LONG_FH,1); -if(!qbevent)break;evnt(26070,6516,"ide_methods.bas");}while(r); -} -do{ -if (_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[2]&1){ -if (_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[2]&2){ -tmp_long=_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[5]; -while(tmp_long--){ -((qbs*)(((uint64*)(_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[0]))[tmp_long]))->len=0; -} -}else{ -tmp_long=_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[5]; -while(tmp_long--){ -qbs_free((qbs*)(((uint64*)(_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[0]))[tmp_long])); -} -free((void*)(_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[0])); -_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[2]^=1; -_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[4]=2147483647; -_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[5]=0; -_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[6]=0; -_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[0]=(ptrszint)¬hingstring; -} -} -if(!qbevent)break;evnt(26070,6519,"ide_methods.bas");}while(r); -do{ -SUB_IDEMAKEFILEMENU(); -if(!qbevent)break;evnt(26070,6520,"ide_methods.bas");}while(r); -do{ -#include "ret170.txt" -if(!qbevent)break;evnt(26070,6521,"ide_methods.bas");}while(r); -LABEL_REDRAWITALL:; -if(qbevent){evnt(26070,6523,"ide_methods.bas");r=0;} -do{ -qbs_set(__STRING_MENUBAR,qbs_new_txt_len(" ",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6524,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_MENULOCATIONS,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6525,"ide_methods.bas");}while(r); -S_43506:; -fornext_value4624= 1 ; -fornext_finalvalue4624=*__INTEGER_MENUS- 1 ; -fornext_step4624= 1 ; -if (fornext_step4624<0) fornext_step_negative4624=1; else fornext_step_negative4624=0; -if (new_error) goto fornext_error4624; -goto fornext_entrylabel4624; -while(1){ -fornext_value4624=fornext_step4624+(*_FUNC_IDE2_LONG_I); -fornext_entrylabel4624: -*_FUNC_IDE2_LONG_I=fornext_value4624; -if (fornext_step_negative4624){ -if (fornext_value4624fornext_finalvalue4624) break; -} -fornext_error4624:; -if(qbevent){evnt(26070,6526,"ide_methods.bas");if(r)goto S_43506;} -do{ -qbs_set(_FUNC_IDE2_STRING_MENULOCATIONS,qbs_add(_FUNC_IDE2_STRING_MENULOCATIONS,i2string(__STRING_MENUBAR->len))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6527,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_MENUBAR,qbs_add(qbs_add(__STRING_MENUBAR,((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check(( 0 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]]))),qbs_new_txt_len(" ",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6528,"ide_methods.bas");}while(r); -fornext_continue_4623:; -} -fornext_exit_4623:; -do{ -qbs_set(__STRING_MENUBAR,qbs_add(__STRING_MENUBAR,func_space(*__LONG_IDEWX-__STRING_MENUBAR->len-((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check(( 0 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]]))->len- 2 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6530,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_MENULOCATIONS,qbs_add(_FUNC_IDE2_STRING_MENULOCATIONS,i2string(__STRING_MENUBAR->len))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6531,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_MENUBAR,qbs_add(qbs_add(__STRING_MENUBAR,((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check(( 0 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]]))),qbs_new_txt_len(" ",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6532,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,6535,"ide_methods.bas");}while(r); -do{ -qbg_sub_view_print( 1 ,*__LONG_IDEWY+*__LONG_IDESUBWINDOW,1); -if(!qbevent)break;evnt(26070,6536,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(NULL,NULL,NULL,*__LONG_IDENORMALCURSORSTART,*__LONG_IDENORMALCURSOREND,24); -if(!qbevent)break;evnt(26070,6541,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,6544,"ide_methods.bas");}while(r); -do{ -sub__printstring( 1 , 1 ,__STRING_MENUBAR,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6544,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 7 , 1 ,NULL,3); -if(!qbevent)break;evnt(26070,6545,"ide_methods.bas");}while(r); -do{ -SUB_IDEBOX(&(pass4629= 1 ),&(pass4630= 2 ),__LONG_IDEWX,&(pass4631=*__LONG_IDEWY- 5 )); -if(!qbevent)break;evnt(26070,6545,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 7 , 1 ,NULL,3); -if(!qbevent)break;evnt(26070,6548,"ide_methods.bas");}while(r); -do{ -SUB_IDEBOX(&(pass4632= 1 ),&(pass4633=*__LONG_IDEWY- 4 ),__LONG_IDEWX,&(pass4634= 5 )); -if(!qbevent)break;evnt(26070,6548,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 7 , 1 ,NULL,3); -if(!qbevent)break;evnt(26070,6550,"ide_methods.bas");}while(r); -do{ -sub__printstring( 1 ,*__LONG_IDEWY- 4 ,func_chr( 195 ),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6550,"ide_methods.bas");}while(r); -do{ -sub__printstring(*__LONG_IDEWX,*__LONG_IDEWY- 4 ,func_chr( 180 ),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6550,"ide_methods.bas");}while(r); -S_43525:; -if ((-(*__LONG_IDEHELP== 1 ))||new_error){ -if(qbevent){evnt(26070,6552,"ide_methods.bas");if(r)goto S_43525;} -do{ -qbg_sub_color( 7 , 0 ,NULL,3); -if(!qbevent)break;evnt(26070,6553,"ide_methods.bas");}while(r); -do{ -SUB_IDEBOX(&(pass4635= 1 ),__LONG_IDEWY,__LONG_IDEWX,&(pass4636=*__LONG_IDESUBWINDOW+ 1 )); -if(!qbevent)break;evnt(26070,6553,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 7 , 0 ,NULL,3); -if(!qbevent)break;evnt(26070,6554,"ide_methods.bas");}while(r); -do{ -sub__printstring( 1 ,*__LONG_IDEWY,func_chr( 195 ),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6554,"ide_methods.bas");}while(r); -do{ -sub__printstring(*__LONG_IDEWX,*__LONG_IDEWY,func_chr( 180 ),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6554,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 15 , 4 ,NULL,3); -if(!qbevent)break;evnt(26070,6555,"ide_methods.bas");}while(r); -do{ -sub__printstring(*__LONG_IDEWX- 3 ,*__LONG_IDEWY,qbs_new_txt_len(" x ",3),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6555,"ide_methods.bas");}while(r); -} -do{ -return_point[next_return_point++]=53; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_UPDATESEARCHBAR; -RETURN_53:; -if(!qbevent)break;evnt(26070,6558,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 0 , 3 ,NULL,3); -if(!qbevent)break;evnt(26070,6561,"ide_methods.bas");}while(r); -do{ -sub__printstring( 1 ,*__LONG_IDEWY+*__LONG_IDESUBWINDOW,func_space(*__LONG_IDEWX),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6561,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_Q=FUNC_IDEVBAR(__LONG_IDEWX,&(pass4637=*__LONG_IDEWY- 3 ),&(pass4638= 3 ),&(pass4639= 1 ),&(pass4640= 1 )); -if(!qbevent)break;evnt(26070,6562,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_Q=FUNC_IDEVBAR(__LONG_IDEWX,&(pass4641= 3 ),&(pass4642=*__LONG_IDEWY- 8 ),&(pass4643= 1 ),&(pass4644= 1 )); -if(!qbevent)break;evnt(26070,6563,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_Q=FUNC_IDEHBAR(&(pass4645= 2 ),&(pass4646=*__LONG_IDEWY- 5 ),&(pass4647=*__LONG_IDEWX- 2 ),&(pass4648= 1 ),&(pass4649= 1 )); -if(!qbevent)break;evnt(26070,6564,"ide_methods.bas");}while(r); -do{ -SUB_UPDATEIDEINFO(); -if(!qbevent)break;evnt(26070,6566,"ide_methods.bas");}while(r); -do{ -SUB_UPDATETITLEOFMAINWINDOW(); -if(!qbevent)break;evnt(26070,6568,"ide_methods.bas");}while(r); -do{ -sub_defseg( 0 ,1); -if(!qbevent)break;evnt(26070,6570,"ide_methods.bas");}while(r); -do{ -SUB_IDESHOWTEXT(); -if(!qbevent)break;evnt(26070,6571,"ide_methods.bas");}while(r); -S_43544:; -if ((*__LONG_IDEHELP)||new_error){ -if(qbevent){evnt(26070,6573,"ide_methods.bas");if(r)goto S_43544;} -do{ -SUB_HELP_SHOWTEXT(); -if(!qbevent)break;evnt(26070,6574,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_Q=FUNC_IDEHBAR(&(pass4650= 2 ),&(pass4651=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 1 ),&(pass4652=*__LONG_IDEWX- 2 ),__LONG_HELP_CX,&(pass4653=*__LONG_HELP_W+ 1 )); -if(!qbevent)break;evnt(26070,6576,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_Q=FUNC_IDEVBAR(__LONG_IDEWX,&(pass4654=*__LONG_IDEWY+ 1 ),&(pass4655=*__LONG_IDESUBWINDOW- 2 ),__LONG_HELP_CY,&(pass4656=*__LONG_HELP_H+ 1 )); -if(!qbevent)break;evnt(26070,6577,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=54; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_HELPAREASHOWBACKLINKS; -RETURN_54:; -if(!qbevent)break;evnt(26070,6579,"ide_methods.bas");}while(r); -} -S_43550:; -if ((*__BYTE_IDESHOWERRORSIMMEDIATELY|*_FUNC_IDE2_BYTE_IDECOMPILATIONREQUESTED)||new_error){ -if(qbevent){evnt(26070,6582,"ide_methods.bas");if(r)goto S_43550;} -do{ -SUB_CLEARSTATUSWINDOW(&(pass4657= 0 )); -if(!qbevent)break;evnt(26070,6583,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_IDEINFO,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6585,"ide_methods.bas");}while(r); -S_43553:; -if ((-(*__LONG_IDECOMPILING== 1 ))||new_error){ -if(qbevent){evnt(26070,6587,"ide_methods.bas");if(r)goto S_43553;} -do{ -sub__printstring( 2 ,*__LONG_IDEWY- 3 ,func_string( 3 , 250 ),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6588,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check(( 1 )-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_FILEMENUEXPORTAS)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(qbs_new_txt_len("~#Export As... ",16),func_chr( 16 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6589,"ide_methods.bas");}while(r); -}else{ -S_43557:; -if ((-(*__LONG_IDEAUTOLAYOUT!= 0 ))||new_error){ -if(qbevent){evnt(26070,6591,"ide_methods.bas");if(r)goto S_43557;} -do{ -tmp_long=array_check(( 1 )-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_FILEMENUEXPORTAS)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(qbs_new_txt_len("#Export As... ",15),func_chr( 16 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6591,"ide_methods.bas");}while(r); -} -S_43560:; -if ((*__LONG_IDEFOCUSLINE)||new_error){ -if(qbevent){evnt(26070,6592,"ide_methods.bas");if(r)goto S_43560;} -do{ -sub__printstring( 2 ,*__LONG_IDEWY- 3 ,func_string( 3 , 250 ),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6593,"ide_methods.bas");}while(r); -}else{ -do{ -sub__printstring( 2 ,*__LONG_IDEWY- 3 ,qbs_new_txt_len("OK",2),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6595,"ide_methods.bas");}while(r); -} -do{ -*__INTEGER_STATUSAREALINK= 0 ; -if(!qbevent)break;evnt(26070,6597,"ide_methods.bas");}while(r); -S_43566:; -if ((-(*__LONG_TOTALWARNINGS> 0 ))||new_error){ -if(qbevent){evnt(26070,6598,"ide_methods.bas");if(r)goto S_43566;} -do{ -qbg_sub_color( 11 , 1 ,NULL,3); -if(!qbevent)break;evnt(26070,6599,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_MSG,qbs_add(qbs_add(qbs_new_txt_len(" (",2),qbs_ltrim(qbs_str((int32)(*__LONG_TOTALWARNINGS)))),qbs_new_txt_len(" warning",8))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6600,"ide_methods.bas");}while(r); -S_43569:; -if ((-(*__LONG_TOTALWARNINGS> 1 ))||new_error){ -if(qbevent){evnt(26070,6601,"ide_methods.bas");if(r)goto S_43569;} -do{ -qbs_set(_FUNC_IDE2_STRING_MSG,qbs_add(_FUNC_IDE2_STRING_MSG,qbs_new_txt_len("s",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6601,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDE2_STRING_MSG,qbs_add(_FUNC_IDE2_STRING_MSG,qbs_new_txt_len(" - click here or Ctrl+W to view)",32))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6602,"ide_methods.bas");}while(r); -do{ -sub__printstring( 4 ,*__LONG_IDEWY- 3 ,_FUNC_IDE2_STRING_MSG,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6603,"ide_methods.bas");}while(r); -do{ -*__INTEGER_STATUSAREALINK= 4 ; -if(!qbevent)break;evnt(26070,6604,"ide_methods.bas");}while(r); -} -S_43576:; -if ((*_FUNC_IDE2_BYTE_WAITINGFORVARLIST)||new_error){ -if(qbevent){evnt(26070,6606,"ide_methods.bas");if(r)goto S_43576;} -do{ -return_point[next_return_point++]=55; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_SHOWVARLISTREADY; -RETURN_55:; -if(!qbevent)break;evnt(26070,6606,"ide_methods.bas");}while(r); -} -} -} -do{ -#include "ret170.txt" -if(!qbevent)break;evnt(26070,6609,"ide_methods.bas");}while(r); -LABEL_HELPAREASHOWBACKLINKS:; -if(qbevent){evnt(26070,6611,"ide_methods.bas");r=0;} -do{ -qbs_set(_FUNC_IDE2_STRING_BACK_STR,func_string( 1000 , 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6612,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_BACK_STR_I,func_string( 4000 , 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6613,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_TOP=func_ubound(__ARRAY_STRING_BACK,1,1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6614,"ide_methods.bas");}while(r); -S_43585:; -fornext_value4659= 1 ; -fornext_finalvalue4659=*_FUNC_IDE2_LONG_TOP; -fornext_step4659= 1 ; -if (fornext_step4659<0) fornext_step_negative4659=1; else fornext_step_negative4659=0; -if (new_error) goto fornext_error4659; -goto fornext_entrylabel4659; -while(1){ -fornext_value4659=fornext_step4659+(*_FUNC_IDE2_LONG_X); -fornext_entrylabel4659: -*_FUNC_IDE2_LONG_X=fornext_value4659; -if (fornext_step_negative4659){ -if (fornext_value4659fornext_finalvalue4659) break; -} -fornext_error4659:; -if(qbevent){evnt(26070,6615,"ide_methods.bas");if(r)goto S_43585;} -do{ -qbs_set(_FUNC_IDE2_STRING_N,((qbs*)(((uint64*)(__ARRAY_STRING_BACK_NAME[0]))[array_check((*_FUNC_IDE2_LONG_X)-__ARRAY_STRING_BACK_NAME[4],__ARRAY_STRING_BACK_NAME[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6616,"ide_methods.bas");}while(r); -S_43587:; -if ((-(*_FUNC_IDE2_LONG_X==*__LONG_HELP_BACK_POS))||new_error){ -if(qbevent){evnt(26070,6617,"ide_methods.bas");if(r)goto S_43587;} -do{ -*_FUNC_IDE2_LONG_P=_FUNC_IDE2_STRING_BACK_STR->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6617,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDE2_STRING_BACK_STR,qbs_add(_FUNC_IDE2_STRING_BACK_STR,qbs_new_txt_len(" ",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6618,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_BACK_STR_I,qbs_add(_FUNC_IDE2_STRING_BACK_STR_I,l2string(*_FUNC_IDE2_LONG_X))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6619,"ide_methods.bas");}while(r); -S_43592:; -fornext_value4662= 1 ; -fornext_finalvalue4662=_FUNC_IDE2_STRING_N->len; -fornext_step4662= 1 ; -if (fornext_step4662<0) fornext_step_negative4662=1; else fornext_step_negative4662=0; -if (new_error) goto fornext_error4662; -goto fornext_entrylabel4662; -while(1){ -fornext_value4662=fornext_step4662+(*_FUNC_IDE2_LONG_X2); -fornext_entrylabel4662: -*_FUNC_IDE2_LONG_X2=fornext_value4662; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative4662){ -if (fornext_value4662fornext_finalvalue4662) break; -} -fornext_error4662:; -if(qbevent){evnt(26070,6620,"ide_methods.bas");if(r)goto S_43592;} -do{ -qbs_set(_FUNC_IDE2_STRING_BACK_STR,qbs_add(_FUNC_IDE2_STRING_BACK_STR,func_chr(qbs_asc(_FUNC_IDE2_STRING_N,*_FUNC_IDE2_LONG_X2)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6621,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_BACK_STR_I,qbs_add(_FUNC_IDE2_STRING_BACK_STR_I,l2string(*_FUNC_IDE2_LONG_X))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6622,"ide_methods.bas");}while(r); -fornext_continue_4661:; -} -fornext_exit_4661:; -do{ -qbs_set(_FUNC_IDE2_STRING_BACK_STR,qbs_add(_FUNC_IDE2_STRING_BACK_STR,qbs_new_txt_len(" ",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6624,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_BACK_STR_I,qbs_add(_FUNC_IDE2_STRING_BACK_STR_I,l2string(*_FUNC_IDE2_LONG_X))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6625,"ide_methods.bas");}while(r); -S_43598:; -if ((-(*_FUNC_IDE2_LONG_X!=*_FUNC_IDE2_LONG_TOP))||new_error){ -if(qbevent){evnt(26070,6627,"ide_methods.bas");if(r)goto S_43598;} -do{ -qbs_set(_FUNC_IDE2_STRING_BACK_STR,qbs_add(_FUNC_IDE2_STRING_BACK_STR,func_chr( 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6628,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_BACK_STR_I,qbs_add(_FUNC_IDE2_STRING_BACK_STR_I,l2string( 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6629,"ide_methods.bas");}while(r); -} -fornext_continue_4658:; -} -fornext_exit_4658:; -do{ -qbs_set(_FUNC_IDE2_STRING_BACK_STR,qbs_add(_FUNC_IDE2_STRING_BACK_STR,func_string( 1000 , 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6632,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDE2_STRING_BACK_STR_I,qbs_add(_FUNC_IDE2_STRING_BACK_STR_I,func_string( 4000 , 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6633,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_BACK_STR_POS=*_FUNC_IDE2_LONG_P-(*__LONG_IDEWX/ 2 )+((((qbs*)(((uint64*)(__ARRAY_STRING_BACK_NAME[0]))[array_check((*__LONG_HELP_BACK_POS)-__ARRAY_STRING_BACK_NAME[4],__ARRAY_STRING_BACK_NAME[5])]))->len+ 2 )/ 2 )+( 3 ); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6634,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*__LONG_IDEWY, 2 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(26070,6637,"ide_methods.bas");}while(r); -S_43607:; -fornext_value4666=*_FUNC_IDE2_LONG_BACK_STR_POS; -fornext_finalvalue4666=*_FUNC_IDE2_LONG_BACK_STR_POS+*__LONG_IDEWX- 6 ; -fornext_step4666= 1 ; -if (fornext_step4666<0) fornext_step_negative4666=1; else fornext_step_negative4666=0; -if (new_error) goto fornext_error4666; -goto fornext_entrylabel4666; -while(1){ -fornext_value4666=fornext_step4666+(*_FUNC_IDE2_LONG_X); -fornext_entrylabel4666: -*_FUNC_IDE2_LONG_X=fornext_value4666; -if (fornext_step_negative4666){ -if (fornext_value4666fornext_finalvalue4666) break; -} -fornext_error4666:; -if(qbevent){evnt(26070,6638,"ide_methods.bas");if(r)goto S_43607;} -do{ -*_FUNC_IDE2_LONG_I=string2l(func_mid(_FUNC_IDE2_STRING_BACK_STR_I,((*_FUNC_IDE2_LONG_X- 1 )* 4 )+( 1 ), 4 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6639,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDE2_LONG_A=qbs_asc(_FUNC_IDE2_STRING_BACK_STR,*_FUNC_IDE2_LONG_X); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6640,"ide_methods.bas");}while(r); -S_43610:; -if ((*_FUNC_IDE2_LONG_A)||new_error){ -if(qbevent){evnt(26070,6641,"ide_methods.bas");if(r)goto S_43610;} -S_43611:; -if ((-(*__LONG_IDESYSTEM== 3 ))||new_error){ -if(qbevent){evnt(26070,6642,"ide_methods.bas");if(r)goto S_43611;} -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,6642,"ide_methods.bas");}while(r); -}else{ -do{ -qbg_sub_color( 7 , 0 ,NULL,3); -if(!qbevent)break;evnt(26070,6642,"ide_methods.bas");}while(r); -} -S_43616:; -if ((-(*_FUNC_IDE2_LONG_I<*__LONG_HELP_BACK_POS))||new_error){ -if(qbevent){evnt(26070,6643,"ide_methods.bas");if(r)goto S_43616;} -do{ -qbg_sub_color( 9 ,NULL,NULL,1); -if(!qbevent)break;evnt(26070,6643,"ide_methods.bas");}while(r); -} -S_43619:; -if ((-(*_FUNC_IDE2_LONG_I>*__LONG_HELP_BACK_POS))||new_error){ -if(qbevent){evnt(26070,6644,"ide_methods.bas");if(r)goto S_43619;} -do{ -qbg_sub_color( 9 ,NULL,NULL,1); -if(!qbevent)break;evnt(26070,6644,"ide_methods.bas");}while(r); -} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_chr(*_FUNC_IDE2_LONG_A)); -if (new_error) goto skip4667; -makefit(tqbs); -qbs_print(tqbs,0); -skip4667: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6645,"ide_methods.bas");}while(r); -}else{ -do{ -qbg_sub_color( 7 , 0 ,NULL,3); -if(!qbevent)break;evnt(26070,6647,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_chr( 196 )); -if (new_error) goto skip4668; -makefit(tqbs); -qbs_print(tqbs,0); -skip4668: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6648,"ide_methods.bas");}while(r); -} -fornext_continue_4665:; -} -fornext_exit_4665:; -do{ -qbg_sub_color( 7 , 0 ,NULL,3); -if(!qbevent)break;evnt(26070,6651,"ide_methods.bas");}while(r); -do{ -sub__printstring(*__LONG_IDEWX- 18 ,*__LONG_IDEWY,func_chr( 180 ),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6651,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 15 , 3 ,NULL,3); -if(!qbevent)break;evnt(26070,6652,"ide_methods.bas");}while(r); -do{ -sub__printstring(*__LONG_IDEWX- 17 ,*__LONG_IDEWY,qbs_new_txt_len(" View on Wiki ",14),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6652,"ide_methods.bas");}while(r); -do{ -#include "ret170.txt" -if(!qbevent)break;evnt(26070,6653,"ide_methods.bas");}while(r); -LABEL_SHOWVARLISTREADY:; -if(qbevent){evnt(26070,6655,"ide_methods.bas");r=0;} -do{ -*_FUNC_IDE2_BYTE_WAITINGFORVARLIST= 0 ; -if(!qbevent)break;evnt(26070,6656,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 14 , 1 ,NULL,3); -if(!qbevent)break;evnt(26070,6657,"ide_methods.bas");}while(r); -do{ -sub__printstring( 2 ,*__LONG_IDEWY- 2 ,qbs_new_txt_len("Variable List is now available (F4 to see it)",45),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6658,"ide_methods.bas");}while(r); -do{ -#include "ret170.txt" -if(!qbevent)break;evnt(26070,6659,"ide_methods.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free170.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -return *_FUNC_IDE2_LONG_IDE2; -} -void SUB_UPDATETITLEOFMAINWINDOW(){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data171.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -qbs_set(_SUB_UPDATETITLEOFMAINWINDOW_STRING_SFNAME,FUNC_FINDCURRENTSF(__LONG_IDECY)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6663,"ide_methods.bas");}while(r); -do{ -SUB_CLEANSUBNAME(_SUB_UPDATETITLEOFMAINWINDOW_STRING_SFNAME); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6664,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 7 , 1 ,NULL,3); -if(!qbevent)break;evnt(26070,6665,"ide_methods.bas");}while(r); -do{ -sub__printstring( 2 , 2 ,func_string(*__LONG_IDEWX- 2 ,(func_chr( 196 )->chr[0])),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6665,"ide_methods.bas");}while(r); -S_43641:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_IDEPROGNAME->len))||new_error){ -if(qbevent){evnt(26070,6666,"ide_methods.bas");if(r)goto S_43641;} -do{ -qbs_set(_SUB_UPDATETITLEOFMAINWINDOW_STRING_A,__STRING_IDEPROGNAME); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6666,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_SUB_UPDATETITLEOFMAINWINDOW_STRING_A,qbs_add(qbs_new_txt_len("Untitled",8),__STRING_TEMPFOLDERINDEXSTR)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6666,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_SUB_UPDATETITLEOFMAINWINDOW_STRING_A,qbs_add(qbs_new_txt_len(" ",1),_SUB_UPDATETITLEOFMAINWINDOW_STRING_A)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6667,"ide_methods.bas");}while(r); -S_43647:; -if ((*__LONG_IDEUNSAVED)||new_error){ -if(qbevent){evnt(26070,6668,"ide_methods.bas");if(r)goto S_43647;} -do{ -qbs_set(_SUB_UPDATETITLEOFMAINWINDOW_STRING_A,qbs_add(_SUB_UPDATETITLEOFMAINWINDOW_STRING_A,qbs_new_txt_len("*",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6668,"ide_methods.bas");}while(r); -} -S_43650:; -if ((qbs_cleanup(qbs_tmp_base,-(_SUB_UPDATETITLEOFMAINWINDOW_STRING_SFNAME->len> 0 )))||new_error){ -if(qbevent){evnt(26070,6669,"ide_methods.bas");if(r)goto S_43650;} -do{ -qbs_set(_SUB_UPDATETITLEOFMAINWINDOW_STRING_A,qbs_add(qbs_add(_SUB_UPDATETITLEOFMAINWINDOW_STRING_A,qbs_new_txt_len(":",1)),_SUB_UPDATETITLEOFMAINWINDOW_STRING_SFNAME)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6669,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_SUB_UPDATETITLEOFMAINWINDOW_STRING_A,qbs_add(_SUB_UPDATETITLEOFMAINWINDOW_STRING_A,qbs_new_txt_len(" ",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6670,"ide_methods.bas");}while(r); -S_43654:; -if ((qbs_cleanup(qbs_tmp_base,-((_SUB_UPDATETITLEOFMAINWINDOW_STRING_A->len)>(*__LONG_IDEWX- 5 ))))||new_error){ -if(qbevent){evnt(26070,6671,"ide_methods.bas");if(r)goto S_43654;} -do{ -qbs_set(_SUB_UPDATETITLEOFMAINWINDOW_STRING_A,qbs_add(qbs_add(qbs_left(_SUB_UPDATETITLEOFMAINWINDOW_STRING_A,*__LONG_IDEWX- 11 ),func_string( 3 , 250 )),qbs_new_txt_len(" ",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6671,"ide_methods.bas");}while(r); -} -S_43657:; -if ((-(*__LONG_IDESYSTEM== 1 ))||new_error){ -if(qbevent){evnt(26070,6672,"ide_methods.bas");if(r)goto S_43657;} -do{ -qbg_sub_color( 1 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,6672,"ide_methods.bas");}while(r); -}else{ -do{ -qbg_sub_color( 7 , 1 ,NULL,3); -if(!qbevent)break;evnt(26070,6672,"ide_methods.bas");}while(r); -} -do{ -sub__printstring((((*__LONG_IDEWX/ ((long double)( 2 )))- 1 ))-((_SUB_UPDATETITLEOFMAINWINDOW_STRING_A->len- 1 )/ 2 ), 2 ,_SUB_UPDATETITLEOFMAINWINDOW_STRING_A,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6673,"ide_methods.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free171.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -void SUB_DEBUGMODE(){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data172.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -if(!qbevent)break;evnt(26070,6677,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(26070,6678,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(26070,6679,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(26070,6680,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(26070,6681,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_TIMEOUT= 10 ; -if(!qbevent)break;evnt(26070,6687,"ide_methods.bas");}while(r); -do{ -sub__keyclear(NULL,0); -if(!qbevent)break;evnt(26070,6688,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,6690,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 15 , 3 ,NULL,3); -if(!qbevent)break;evnt(26070,6692,"ide_methods.bas");}while(r); -do{ -sub__printstring( 1 , 1 ,func_space(__STRING_MENUBAR->len),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6692,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_M,qbs_new_txt_len("$DEBUG MODE ACTIVE",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6693,"ide_methods.bas");}while(r); -do{ -sub__printstring((*__LONG_IDEWX-_SUB_DEBUGMODE_STRING_M->len)/ 2 , 1 ,_SUB_DEBUGMODE_STRING_M,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6694,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(26070,6702,"ide_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26070,6494,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDE2_LONG_LN)-_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[4],_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[0]))[tmp_long])),_FUNC_IDE2_STRING_F); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6495,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_IDE2_LONG_FOUNDBROKENLINK= -1 ; +if(!qbevent)break;evnt(26070,6497,"ide_methods.bas");}while(r); +} +} +dl_continue_4617:; +} +dl_exit_4617:; +S_43485:; +if ((~(*_FUNC_IDE2_LONG_FOUNDBROKENLINK))||new_error){ +if(qbevent){evnt(26070,6502,"ide_methods.bas");if(r)goto S_43485;} +do{ +*_FUNC_IDE2_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Remove Broken Links",19),qbs_new_txt_len("All files in the list are accessible.",37),qbs_new_txt_len("#OK",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6503,"ide_methods.bas");}while(r); +} +S_43488:; +if (((-(*_FUNC_IDE2_LONG_LN> 0 ))&*_FUNC_IDE2_LONG_FOUNDBROKENLINK)||new_error){ +if(qbevent){evnt(26070,6506,"ide_methods.bas");if(r)goto S_43488;} +do{ +*_FUNC_IDE2_LONG_FH=func_freefile(); +if(!qbevent)break;evnt(26070,6507,"ide_methods.bas");}while(r); +do{ +sub_open(qbs_new_txt_len(".\\internal\\temp\\recent.bin",26), 4 ,NULL,NULL,*_FUNC_IDE2_LONG_FH,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6508,"ide_methods.bas");}while(r); +do{ +sub_close(*_FUNC_IDE2_LONG_FH,1); +if(!qbevent)break;evnt(26070,6508,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_F,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6509,"ide_methods.bas");}while(r); +S_43493:; +fornext_value4621= 1 ; +fornext_finalvalue4621=func_ubound(_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST,1,1); +fornext_step4621= 1 ; +if (fornext_step4621<0) fornext_step_negative4621=1; else fornext_step_negative4621=0; +if (new_error) goto fornext_error4621; +goto fornext_entrylabel4621; +while(1){ +fornext_value4621=fornext_step4621+(*_FUNC_IDE2_LONG_LN); +fornext_entrylabel4621: +*_FUNC_IDE2_LONG_LN=fornext_value4621; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative4621){ +if (fornext_value4621fornext_finalvalue4621) break; +} +fornext_error4621:; +if(qbevent){evnt(26070,6510,"ide_methods.bas");if(r)goto S_43493;} +do{ +qbs_set(_FUNC_IDE2_STRING_F,qbs_add(qbs_add(qbs_add(_FUNC_IDE2_STRING_F,__STRING_CRLF),((qbs*)(((uint64*)(_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[0]))[array_check((*_FUNC_IDE2_LONG_LN)-_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[4],_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[5])]))),__STRING_CRLF)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6511,"ide_methods.bas");}while(r); +fornext_continue_4620:; +} +fornext_exit_4620:; +do{ +*_FUNC_IDE2_LONG_FH=func_freefile(); +if(!qbevent)break;evnt(26070,6513,"ide_methods.bas");}while(r); +do{ +sub_open(qbs_new_txt_len(".\\internal\\temp\\recent.bin",26), 2 ,NULL,NULL,*_FUNC_IDE2_LONG_FH,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6514,"ide_methods.bas");}while(r); +do{ +sub_put2(*_FUNC_IDE2_LONG_FH, 1 ,byte_element((uint64)_FUNC_IDE2_STRING_F->chr,_FUNC_IDE2_STRING_F->len,byte_element_4622),1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6515,"ide_methods.bas");}while(r); +do{ +sub_close(*_FUNC_IDE2_LONG_FH,1); +if(!qbevent)break;evnt(26070,6516,"ide_methods.bas");}while(r); +} +do{ +if (_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[2]&1){ +if (_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[2]&2){ +tmp_long=_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[5]; +while(tmp_long--){ +((qbs*)(((uint64*)(_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[0]))[tmp_long]))->len=0; +} +}else{ +tmp_long=_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[5]; +while(tmp_long--){ +qbs_free((qbs*)(((uint64*)(_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[0]))[tmp_long])); +} +free((void*)(_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[0])); +_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[2]^=1; +_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[4]=2147483647; +_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[5]=0; +_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[6]=0; +_FUNC_IDE2_ARRAY_STRING_RECENTFILESLIST[0]=(ptrszint)¬hingstring; +} +} +if(!qbevent)break;evnt(26070,6519,"ide_methods.bas");}while(r); +do{ +SUB_IDEMAKEFILEMENU(); +if(!qbevent)break;evnt(26070,6520,"ide_methods.bas");}while(r); +do{ +#include "ret170.txt" +if(!qbevent)break;evnt(26070,6521,"ide_methods.bas");}while(r); +LABEL_REDRAWITALL:; +if(qbevent){evnt(26070,6523,"ide_methods.bas");r=0;} +do{ +qbs_set(__STRING_MENUBAR,qbs_new_txt_len(" ",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6524,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_MENULOCATIONS,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6525,"ide_methods.bas");}while(r); +S_43506:; +fornext_value4624= 1 ; +fornext_finalvalue4624=*__INTEGER_MENUS- 1 ; +fornext_step4624= 1 ; +if (fornext_step4624<0) fornext_step_negative4624=1; else fornext_step_negative4624=0; +if (new_error) goto fornext_error4624; +goto fornext_entrylabel4624; +while(1){ +fornext_value4624=fornext_step4624+(*_FUNC_IDE2_LONG_I); +fornext_entrylabel4624: +*_FUNC_IDE2_LONG_I=fornext_value4624; +if (fornext_step_negative4624){ +if (fornext_value4624fornext_finalvalue4624) break; +} +fornext_error4624:; +if(qbevent){evnt(26070,6526,"ide_methods.bas");if(r)goto S_43506;} +do{ +qbs_set(_FUNC_IDE2_STRING_MENULOCATIONS,qbs_add(_FUNC_IDE2_STRING_MENULOCATIONS,i2string(__STRING_MENUBAR->len))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6527,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_MENUBAR,qbs_add(qbs_add(__STRING_MENUBAR,((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check(( 0 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]]))),qbs_new_txt_len(" ",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6528,"ide_methods.bas");}while(r); +fornext_continue_4623:; +} +fornext_exit_4623:; +do{ +qbs_set(__STRING_MENUBAR,qbs_add(__STRING_MENUBAR,func_space(*__LONG_IDEWX-__STRING_MENUBAR->len-((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check(( 0 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]]))->len- 2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6530,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_MENULOCATIONS,qbs_add(_FUNC_IDE2_STRING_MENULOCATIONS,i2string(__STRING_MENUBAR->len))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6531,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_MENUBAR,qbs_add(qbs_add(__STRING_MENUBAR,((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_FUNC_IDE2_LONG_I)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check(( 0 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]]))),qbs_new_txt_len(" ",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6532,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,6535,"ide_methods.bas");}while(r); +do{ +qbg_sub_view_print( 1 ,*__LONG_IDEWY+*__LONG_IDESUBWINDOW,1); +if(!qbevent)break;evnt(26070,6536,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(NULL,NULL,NULL,*__LONG_IDENORMALCURSORSTART,*__LONG_IDENORMALCURSOREND,24); +if(!qbevent)break;evnt(26070,6541,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,6544,"ide_methods.bas");}while(r); +do{ +sub__printstring( 1 , 1 ,__STRING_MENUBAR,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6544,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 7 , 1 ,NULL,3); +if(!qbevent)break;evnt(26070,6545,"ide_methods.bas");}while(r); +do{ +SUB_IDEBOX(&(pass4629= 1 ),&(pass4630= 2 ),__LONG_IDEWX,&(pass4631=*__LONG_IDEWY- 5 )); +if(!qbevent)break;evnt(26070,6545,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 7 , 1 ,NULL,3); +if(!qbevent)break;evnt(26070,6548,"ide_methods.bas");}while(r); +do{ +SUB_IDEBOX(&(pass4632= 1 ),&(pass4633=*__LONG_IDEWY- 4 ),__LONG_IDEWX,&(pass4634= 5 )); +if(!qbevent)break;evnt(26070,6548,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 7 , 1 ,NULL,3); +if(!qbevent)break;evnt(26070,6550,"ide_methods.bas");}while(r); +do{ +sub__printstring( 1 ,*__LONG_IDEWY- 4 ,func_chr( 195 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6550,"ide_methods.bas");}while(r); +do{ +sub__printstring(*__LONG_IDEWX,*__LONG_IDEWY- 4 ,func_chr( 180 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6550,"ide_methods.bas");}while(r); +S_43525:; +if ((-(*__LONG_IDEHELP== 1 ))||new_error){ +if(qbevent){evnt(26070,6552,"ide_methods.bas");if(r)goto S_43525;} +do{ +qbg_sub_color( 7 , 0 ,NULL,3); +if(!qbevent)break;evnt(26070,6553,"ide_methods.bas");}while(r); +do{ +SUB_IDEBOX(&(pass4635= 1 ),__LONG_IDEWY,__LONG_IDEWX,&(pass4636=*__LONG_IDESUBWINDOW+ 1 )); +if(!qbevent)break;evnt(26070,6553,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 7 , 0 ,NULL,3); +if(!qbevent)break;evnt(26070,6554,"ide_methods.bas");}while(r); +do{ +sub__printstring( 1 ,*__LONG_IDEWY,func_chr( 195 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6554,"ide_methods.bas");}while(r); +do{ +sub__printstring(*__LONG_IDEWX,*__LONG_IDEWY,func_chr( 180 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6554,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 15 , 4 ,NULL,3); +if(!qbevent)break;evnt(26070,6555,"ide_methods.bas");}while(r); +do{ +sub__printstring(*__LONG_IDEWX- 3 ,*__LONG_IDEWY,qbs_new_txt_len(" x ",3),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6555,"ide_methods.bas");}while(r); +} +do{ +return_point[next_return_point++]=53; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATESEARCHBAR; +RETURN_53:; +if(!qbevent)break;evnt(26070,6558,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 0 , 3 ,NULL,3); +if(!qbevent)break;evnt(26070,6561,"ide_methods.bas");}while(r); +do{ +sub__printstring( 1 ,*__LONG_IDEWY+*__LONG_IDESUBWINDOW,func_space(*__LONG_IDEWX),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6561,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_Q=FUNC_IDEVBAR(__LONG_IDEWX,&(pass4637=*__LONG_IDEWY- 3 ),&(pass4638= 3 ),&(pass4639= 1 ),&(pass4640= 1 )); +if(!qbevent)break;evnt(26070,6562,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_Q=FUNC_IDEVBAR(__LONG_IDEWX,&(pass4641= 3 ),&(pass4642=*__LONG_IDEWY- 8 ),&(pass4643= 1 ),&(pass4644= 1 )); +if(!qbevent)break;evnt(26070,6563,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_Q=FUNC_IDEHBAR(&(pass4645= 2 ),&(pass4646=*__LONG_IDEWY- 5 ),&(pass4647=*__LONG_IDEWX- 2 ),&(pass4648= 1 ),&(pass4649= 1 )); +if(!qbevent)break;evnt(26070,6564,"ide_methods.bas");}while(r); +do{ +SUB_UPDATEIDEINFO(); +if(!qbevent)break;evnt(26070,6566,"ide_methods.bas");}while(r); +do{ +SUB_UPDATETITLEOFMAINWINDOW(); +if(!qbevent)break;evnt(26070,6568,"ide_methods.bas");}while(r); +do{ +sub_defseg( 0 ,1); +if(!qbevent)break;evnt(26070,6570,"ide_methods.bas");}while(r); +do{ +SUB_IDESHOWTEXT(); +if(!qbevent)break;evnt(26070,6571,"ide_methods.bas");}while(r); +S_43544:; +if ((*__LONG_IDEHELP)||new_error){ +if(qbevent){evnt(26070,6573,"ide_methods.bas");if(r)goto S_43544;} +do{ +SUB_HELP_SHOWTEXT(); +if(!qbevent)break;evnt(26070,6574,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_Q=FUNC_IDEHBAR(&(pass4650= 2 ),&(pass4651=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 1 ),&(pass4652=*__LONG_IDEWX- 2 ),__LONG_HELP_CX,&(pass4653=*__LONG_HELP_W+ 1 )); +if(!qbevent)break;evnt(26070,6576,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_Q=FUNC_IDEVBAR(__LONG_IDEWX,&(pass4654=*__LONG_IDEWY+ 1 ),&(pass4655=*__LONG_IDESUBWINDOW- 2 ),__LONG_HELP_CY,&(pass4656=*__LONG_HELP_H+ 1 )); +if(!qbevent)break;evnt(26070,6577,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=54; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_HELPAREASHOWBACKLINKS; +RETURN_54:; +if(!qbevent)break;evnt(26070,6579,"ide_methods.bas");}while(r); +} +S_43550:; +if ((*__BYTE_IDESHOWERRORSIMMEDIATELY|*_FUNC_IDE2_BYTE_IDECOMPILATIONREQUESTED)||new_error){ +if(qbevent){evnt(26070,6582,"ide_methods.bas");if(r)goto S_43550;} +do{ +SUB_CLEARSTATUSWINDOW(&(pass4657= 0 )); +if(!qbevent)break;evnt(26070,6583,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_IDEINFO,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6585,"ide_methods.bas");}while(r); +S_43553:; +if ((-(*__LONG_IDECOMPILING== 1 ))||new_error){ +if(qbevent){evnt(26070,6587,"ide_methods.bas");if(r)goto S_43553;} +do{ +sub__printstring( 2 ,*__LONG_IDEWY- 3 ,func_string( 3 , 250 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6588,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check(( 1 )-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_FILEMENUEXPORTAS)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(qbs_new_txt_len("~#Export As... ",16),func_chr( 16 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6589,"ide_methods.bas");}while(r); +}else{ +S_43557:; +if ((-(*__LONG_IDEAUTOLAYOUT!= 0 ))||new_error){ +if(qbevent){evnt(26070,6591,"ide_methods.bas");if(r)goto S_43557;} +do{ +tmp_long=array_check(( 1 )-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_FILEMENUEXPORTAS)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(qbs_new_txt_len("#Export As... ",15),func_chr( 16 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6591,"ide_methods.bas");}while(r); +} +S_43560:; +if ((*__LONG_IDEFOCUSLINE)||new_error){ +if(qbevent){evnt(26070,6592,"ide_methods.bas");if(r)goto S_43560;} +do{ +sub__printstring( 2 ,*__LONG_IDEWY- 3 ,func_string( 3 , 250 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6593,"ide_methods.bas");}while(r); +}else{ +do{ +sub__printstring( 2 ,*__LONG_IDEWY- 3 ,qbs_new_txt_len("OK",2),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6595,"ide_methods.bas");}while(r); +} +do{ +*__INTEGER_STATUSAREALINK= 0 ; +if(!qbevent)break;evnt(26070,6597,"ide_methods.bas");}while(r); +S_43566:; +if ((-(*__LONG_TOTALWARNINGS> 0 ))||new_error){ +if(qbevent){evnt(26070,6598,"ide_methods.bas");if(r)goto S_43566;} +do{ +qbg_sub_color( 11 , 1 ,NULL,3); +if(!qbevent)break;evnt(26070,6599,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_MSG,qbs_add(qbs_add(qbs_new_txt_len(" (",2),qbs_ltrim(qbs_str((int32)(*__LONG_TOTALWARNINGS)))),qbs_new_txt_len(" warning",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6600,"ide_methods.bas");}while(r); +S_43569:; +if ((-(*__LONG_TOTALWARNINGS> 1 ))||new_error){ +if(qbevent){evnt(26070,6601,"ide_methods.bas");if(r)goto S_43569;} +do{ +qbs_set(_FUNC_IDE2_STRING_MSG,qbs_add(_FUNC_IDE2_STRING_MSG,qbs_new_txt_len("s",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6601,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDE2_STRING_MSG,qbs_add(_FUNC_IDE2_STRING_MSG,qbs_new_txt_len(" - click here or Ctrl+W to view)",32))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6602,"ide_methods.bas");}while(r); +do{ +sub__printstring( 4 ,*__LONG_IDEWY- 3 ,_FUNC_IDE2_STRING_MSG,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6603,"ide_methods.bas");}while(r); +do{ +*__INTEGER_STATUSAREALINK= 4 ; +if(!qbevent)break;evnt(26070,6604,"ide_methods.bas");}while(r); +} +S_43576:; +if ((*_FUNC_IDE2_BYTE_WAITINGFORVARLIST)||new_error){ +if(qbevent){evnt(26070,6606,"ide_methods.bas");if(r)goto S_43576;} +do{ +return_point[next_return_point++]=55; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SHOWVARLISTREADY; +RETURN_55:; +if(!qbevent)break;evnt(26070,6606,"ide_methods.bas");}while(r); +} +} +} +do{ +#include "ret170.txt" +if(!qbevent)break;evnt(26070,6609,"ide_methods.bas");}while(r); +LABEL_HELPAREASHOWBACKLINKS:; +if(qbevent){evnt(26070,6611,"ide_methods.bas");r=0;} +do{ +qbs_set(_FUNC_IDE2_STRING_BACK_STR,func_string( 1000 , 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6612,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_BACK_STR_I,func_string( 4000 , 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6613,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_TOP=func_ubound(__ARRAY_STRING_BACK,1,1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6614,"ide_methods.bas");}while(r); +S_43585:; +fornext_value4659= 1 ; +fornext_finalvalue4659=*_FUNC_IDE2_LONG_TOP; +fornext_step4659= 1 ; +if (fornext_step4659<0) fornext_step_negative4659=1; else fornext_step_negative4659=0; +if (new_error) goto fornext_error4659; +goto fornext_entrylabel4659; +while(1){ +fornext_value4659=fornext_step4659+(*_FUNC_IDE2_LONG_X); +fornext_entrylabel4659: +*_FUNC_IDE2_LONG_X=fornext_value4659; +if (fornext_step_negative4659){ +if (fornext_value4659fornext_finalvalue4659) break; +} +fornext_error4659:; +if(qbevent){evnt(26070,6615,"ide_methods.bas");if(r)goto S_43585;} +do{ +qbs_set(_FUNC_IDE2_STRING_N,((qbs*)(((uint64*)(__ARRAY_STRING_BACK_NAME[0]))[array_check((*_FUNC_IDE2_LONG_X)-__ARRAY_STRING_BACK_NAME[4],__ARRAY_STRING_BACK_NAME[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6616,"ide_methods.bas");}while(r); +S_43587:; +if ((-(*_FUNC_IDE2_LONG_X==*__LONG_HELP_BACK_POS))||new_error){ +if(qbevent){evnt(26070,6617,"ide_methods.bas");if(r)goto S_43587;} +do{ +*_FUNC_IDE2_LONG_P=_FUNC_IDE2_STRING_BACK_STR->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6617,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDE2_STRING_BACK_STR,qbs_add(_FUNC_IDE2_STRING_BACK_STR,qbs_new_txt_len(" ",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6618,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_BACK_STR_I,qbs_add(_FUNC_IDE2_STRING_BACK_STR_I,l2string(*_FUNC_IDE2_LONG_X))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6619,"ide_methods.bas");}while(r); +S_43592:; +fornext_value4662= 1 ; +fornext_finalvalue4662=_FUNC_IDE2_STRING_N->len; +fornext_step4662= 1 ; +if (fornext_step4662<0) fornext_step_negative4662=1; else fornext_step_negative4662=0; +if (new_error) goto fornext_error4662; +goto fornext_entrylabel4662; +while(1){ +fornext_value4662=fornext_step4662+(*_FUNC_IDE2_LONG_X2); +fornext_entrylabel4662: +*_FUNC_IDE2_LONG_X2=fornext_value4662; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative4662){ +if (fornext_value4662fornext_finalvalue4662) break; +} +fornext_error4662:; +if(qbevent){evnt(26070,6620,"ide_methods.bas");if(r)goto S_43592;} +do{ +qbs_set(_FUNC_IDE2_STRING_BACK_STR,qbs_add(_FUNC_IDE2_STRING_BACK_STR,func_chr(qbs_asc(_FUNC_IDE2_STRING_N,*_FUNC_IDE2_LONG_X2)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6621,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_BACK_STR_I,qbs_add(_FUNC_IDE2_STRING_BACK_STR_I,l2string(*_FUNC_IDE2_LONG_X))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6622,"ide_methods.bas");}while(r); +fornext_continue_4661:; +} +fornext_exit_4661:; +do{ +qbs_set(_FUNC_IDE2_STRING_BACK_STR,qbs_add(_FUNC_IDE2_STRING_BACK_STR,qbs_new_txt_len(" ",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6624,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_BACK_STR_I,qbs_add(_FUNC_IDE2_STRING_BACK_STR_I,l2string(*_FUNC_IDE2_LONG_X))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6625,"ide_methods.bas");}while(r); +S_43598:; +if ((-(*_FUNC_IDE2_LONG_X!=*_FUNC_IDE2_LONG_TOP))||new_error){ +if(qbevent){evnt(26070,6627,"ide_methods.bas");if(r)goto S_43598;} +do{ +qbs_set(_FUNC_IDE2_STRING_BACK_STR,qbs_add(_FUNC_IDE2_STRING_BACK_STR,func_chr( 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6628,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_BACK_STR_I,qbs_add(_FUNC_IDE2_STRING_BACK_STR_I,l2string( 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6629,"ide_methods.bas");}while(r); +} +fornext_continue_4658:; +} +fornext_exit_4658:; +do{ +qbs_set(_FUNC_IDE2_STRING_BACK_STR,qbs_add(_FUNC_IDE2_STRING_BACK_STR,func_string( 1000 , 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6632,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDE2_STRING_BACK_STR_I,qbs_add(_FUNC_IDE2_STRING_BACK_STR_I,func_string( 4000 , 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6633,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_BACK_STR_POS=*_FUNC_IDE2_LONG_P-(*__LONG_IDEWX/ 2 )+((((qbs*)(((uint64*)(__ARRAY_STRING_BACK_NAME[0]))[array_check((*__LONG_HELP_BACK_POS)-__ARRAY_STRING_BACK_NAME[4],__ARRAY_STRING_BACK_NAME[5])]))->len+ 2 )/ 2 )+( 3 ); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6634,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(*__LONG_IDEWY, 2 ,NULL,NULL,NULL,3); +if(!qbevent)break;evnt(26070,6637,"ide_methods.bas");}while(r); +S_43607:; +fornext_value4666=*_FUNC_IDE2_LONG_BACK_STR_POS; +fornext_finalvalue4666=*_FUNC_IDE2_LONG_BACK_STR_POS+*__LONG_IDEWX- 6 ; +fornext_step4666= 1 ; +if (fornext_step4666<0) fornext_step_negative4666=1; else fornext_step_negative4666=0; +if (new_error) goto fornext_error4666; +goto fornext_entrylabel4666; +while(1){ +fornext_value4666=fornext_step4666+(*_FUNC_IDE2_LONG_X); +fornext_entrylabel4666: +*_FUNC_IDE2_LONG_X=fornext_value4666; +if (fornext_step_negative4666){ +if (fornext_value4666fornext_finalvalue4666) break; +} +fornext_error4666:; +if(qbevent){evnt(26070,6638,"ide_methods.bas");if(r)goto S_43607;} +do{ +*_FUNC_IDE2_LONG_I=string2l(func_mid(_FUNC_IDE2_STRING_BACK_STR_I,((*_FUNC_IDE2_LONG_X- 1 )* 4 )+( 1 ), 4 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6639,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDE2_LONG_A=qbs_asc(_FUNC_IDE2_STRING_BACK_STR,*_FUNC_IDE2_LONG_X); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6640,"ide_methods.bas");}while(r); +S_43610:; +if ((*_FUNC_IDE2_LONG_A)||new_error){ +if(qbevent){evnt(26070,6641,"ide_methods.bas");if(r)goto S_43610;} +S_43611:; +if ((-(*__LONG_IDESYSTEM== 3 ))||new_error){ +if(qbevent){evnt(26070,6642,"ide_methods.bas");if(r)goto S_43611;} +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,6642,"ide_methods.bas");}while(r); +}else{ +do{ +qbg_sub_color( 7 , 0 ,NULL,3); +if(!qbevent)break;evnt(26070,6642,"ide_methods.bas");}while(r); +} +S_43616:; +if ((-(*_FUNC_IDE2_LONG_I<*__LONG_HELP_BACK_POS))||new_error){ +if(qbevent){evnt(26070,6643,"ide_methods.bas");if(r)goto S_43616;} +do{ +qbg_sub_color( 9 ,NULL,NULL,1); +if(!qbevent)break;evnt(26070,6643,"ide_methods.bas");}while(r); +} +S_43619:; +if ((-(*_FUNC_IDE2_LONG_I>*__LONG_HELP_BACK_POS))||new_error){ +if(qbevent){evnt(26070,6644,"ide_methods.bas");if(r)goto S_43619;} +do{ +qbg_sub_color( 9 ,NULL,NULL,1); +if(!qbevent)break;evnt(26070,6644,"ide_methods.bas");}while(r); +} +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,func_chr(*_FUNC_IDE2_LONG_A)); +if (new_error) goto skip4667; +makefit(tqbs); +qbs_print(tqbs,0); +skip4667: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6645,"ide_methods.bas");}while(r); +}else{ +do{ +qbg_sub_color( 7 , 0 ,NULL,3); +if(!qbevent)break;evnt(26070,6647,"ide_methods.bas");}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,func_chr( 196 )); +if (new_error) goto skip4668; +makefit(tqbs); +qbs_print(tqbs,0); +skip4668: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6648,"ide_methods.bas");}while(r); +} +fornext_continue_4665:; +} +fornext_exit_4665:; +do{ +qbg_sub_color( 7 , 0 ,NULL,3); +if(!qbevent)break;evnt(26070,6651,"ide_methods.bas");}while(r); +do{ +sub__printstring(*__LONG_IDEWX- 18 ,*__LONG_IDEWY,func_chr( 180 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6651,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 15 , 3 ,NULL,3); +if(!qbevent)break;evnt(26070,6652,"ide_methods.bas");}while(r); +do{ +sub__printstring(*__LONG_IDEWX- 17 ,*__LONG_IDEWY,qbs_new_txt_len(" View on Wiki ",14),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6652,"ide_methods.bas");}while(r); +do{ +#include "ret170.txt" +if(!qbevent)break;evnt(26070,6653,"ide_methods.bas");}while(r); +LABEL_SHOWVARLISTREADY:; +if(qbevent){evnt(26070,6655,"ide_methods.bas");r=0;} +do{ +*_FUNC_IDE2_BYTE_WAITINGFORVARLIST= 0 ; +if(!qbevent)break;evnt(26070,6656,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 14 , 1 ,NULL,3); +if(!qbevent)break;evnt(26070,6657,"ide_methods.bas");}while(r); +do{ +sub__printstring( 2 ,*__LONG_IDEWY- 2 ,qbs_new_txt_len("Variable List is now available (F4 to see it)",45),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6658,"ide_methods.bas");}while(r); +do{ +#include "ret170.txt" +if(!qbevent)break;evnt(26070,6659,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free170.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +return *_FUNC_IDE2_LONG_IDE2; +} +void SUB_UPDATETITLEOFMAINWINDOW(){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data171.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +qbs_set(_SUB_UPDATETITLEOFMAINWINDOW_STRING_SFNAME,FUNC_FINDCURRENTSF(__LONG_IDECY)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6663,"ide_methods.bas");}while(r); +do{ +SUB_CLEANSUBNAME(_SUB_UPDATETITLEOFMAINWINDOW_STRING_SFNAME); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6664,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 7 , 1 ,NULL,3); +if(!qbevent)break;evnt(26070,6665,"ide_methods.bas");}while(r); +do{ +sub__printstring( 2 , 2 ,func_string(*__LONG_IDEWX- 2 ,(func_chr( 196 )->chr[0])),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6665,"ide_methods.bas");}while(r); +S_43641:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_IDEPROGNAME->len))||new_error){ +if(qbevent){evnt(26070,6666,"ide_methods.bas");if(r)goto S_43641;} +do{ +qbs_set(_SUB_UPDATETITLEOFMAINWINDOW_STRING_A,__STRING_IDEPROGNAME); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6666,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_UPDATETITLEOFMAINWINDOW_STRING_A,qbs_add(qbs_new_txt_len("Untitled",8),__STRING_TEMPFOLDERINDEXSTR)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6666,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_UPDATETITLEOFMAINWINDOW_STRING_A,qbs_add(qbs_new_txt_len(" ",1),_SUB_UPDATETITLEOFMAINWINDOW_STRING_A)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6667,"ide_methods.bas");}while(r); +S_43647:; +if ((*__LONG_IDEUNSAVED)||new_error){ +if(qbevent){evnt(26070,6668,"ide_methods.bas");if(r)goto S_43647;} +do{ +qbs_set(_SUB_UPDATETITLEOFMAINWINDOW_STRING_A,qbs_add(_SUB_UPDATETITLEOFMAINWINDOW_STRING_A,qbs_new_txt_len("*",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6668,"ide_methods.bas");}while(r); +} +S_43650:; +if ((qbs_cleanup(qbs_tmp_base,-(_SUB_UPDATETITLEOFMAINWINDOW_STRING_SFNAME->len> 0 )))||new_error){ +if(qbevent){evnt(26070,6669,"ide_methods.bas");if(r)goto S_43650;} +do{ +qbs_set(_SUB_UPDATETITLEOFMAINWINDOW_STRING_A,qbs_add(qbs_add(_SUB_UPDATETITLEOFMAINWINDOW_STRING_A,qbs_new_txt_len(":",1)),_SUB_UPDATETITLEOFMAINWINDOW_STRING_SFNAME)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6669,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_UPDATETITLEOFMAINWINDOW_STRING_A,qbs_add(_SUB_UPDATETITLEOFMAINWINDOW_STRING_A,qbs_new_txt_len(" ",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6670,"ide_methods.bas");}while(r); +S_43654:; +if ((qbs_cleanup(qbs_tmp_base,-((_SUB_UPDATETITLEOFMAINWINDOW_STRING_A->len)>(*__LONG_IDEWX- 5 ))))||new_error){ +if(qbevent){evnt(26070,6671,"ide_methods.bas");if(r)goto S_43654;} +do{ +qbs_set(_SUB_UPDATETITLEOFMAINWINDOW_STRING_A,qbs_add(qbs_add(qbs_left(_SUB_UPDATETITLEOFMAINWINDOW_STRING_A,*__LONG_IDEWX- 11 ),func_string( 3 , 250 )),qbs_new_txt_len(" ",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6671,"ide_methods.bas");}while(r); +} +S_43657:; +if ((-(*__LONG_IDESYSTEM== 1 ))||new_error){ +if(qbevent){evnt(26070,6672,"ide_methods.bas");if(r)goto S_43657;} +do{ +qbg_sub_color( 1 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,6672,"ide_methods.bas");}while(r); +}else{ +do{ +qbg_sub_color( 7 , 1 ,NULL,3); +if(!qbevent)break;evnt(26070,6672,"ide_methods.bas");}while(r); +} +do{ +sub__printstring((((*__LONG_IDEWX/ ((long double)( 2 )))- 1 ))-((_SUB_UPDATETITLEOFMAINWINDOW_STRING_A->len- 1 )/ 2 ), 2 ,_SUB_UPDATETITLEOFMAINWINDOW_STRING_A,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6673,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free171.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +void SUB_DEBUGMODE(){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data172.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +if(!qbevent)break;evnt(26070,6677,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26070,6678,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26070,6679,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26070,6680,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26070,6681,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_TIMEOUT= 10 ; +if(!qbevent)break;evnt(26070,6687,"ide_methods.bas");}while(r); +do{ +sub__keyclear(NULL,0); +if(!qbevent)break;evnt(26070,6688,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,6690,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 15 , 3 ,NULL,3); +if(!qbevent)break;evnt(26070,6692,"ide_methods.bas");}while(r); +do{ +sub__printstring( 1 , 1 ,func_space(__STRING_MENUBAR->len),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6692,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_M,qbs_new_txt_len("$DEBUG MODE ACTIVE",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6693,"ide_methods.bas");}while(r); +do{ +sub__printstring((*__LONG_IDEWX-_SUB_DEBUGMODE_STRING_M->len)/ 2 , 1 ,_SUB_DEBUGMODE_STRING_M,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6694,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26070,6702,"ide_methods.bas");}while(r); +do{ if (_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[2]&2){ error(10); @@ -145820,1629 +145820,1629 @@ tmp_long=_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[5]; while(tmp_long--){ *(qbs**)(_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[0]+(128/8+1-1)*tmp_long+ 8)=qbs_new(0,0);} } -} -if(!qbevent)break;evnt(26070,6708,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_I= 0 ; -if(!qbevent)break;evnt(26070,6709,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_I=*_SUB_DEBUGMODE_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,6710,"ide_methods.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[0])+((array_check((*_SUB_DEBUGMODE_LONG_I)-_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[4],_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[5]))*16+8))),qbs_new_txt_len("",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6710,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_I=*_SUB_DEBUGMODE_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,6711,"ide_methods.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[0])+((array_check((*_SUB_DEBUGMODE_LONG_I)-_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[4],_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[5]))*16+8))),qbs_new_txt_len("",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6711,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_I=*_SUB_DEBUGMODE_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,6712,"ide_methods.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[0])+((array_check((*_SUB_DEBUGMODE_LONG_I)-_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[4],_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[5]))*16+8))),qbs_new_txt_len("",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6712,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_I=*_SUB_DEBUGMODE_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,6713,"ide_methods.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[0])+((array_check((*_SUB_DEBUGMODE_LONG_I)-_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[4],_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[5]))*16+8))),qbs_new_txt_len("",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6713,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_I=*_SUB_DEBUGMODE_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,6714,"ide_methods.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[0])+((array_check((*_SUB_DEBUGMODE_LONG_I)-_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[4],_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[5]))*16+8))),qbs_new_txt_len("",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6714,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_I=*_SUB_DEBUGMODE_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,6715,"ide_methods.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[0])+((array_check((*_SUB_DEBUGMODE_LONG_I)-_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[4],_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[5]))*16+8))),qbs_new_txt_len("",24)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6715,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_I=*_SUB_DEBUGMODE_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,6716,"ide_methods.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[0])+((array_check((*_SUB_DEBUGMODE_LONG_I)-_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[4],_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[5]))*16+8))),qbs_new_txt_len("",29)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6716,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_I=*_SUB_DEBUGMODE_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,6717,"ide_methods.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[0])+((array_check((*_SUB_DEBUGMODE_LONG_I)-_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[4],_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[5]))*16+8))),qbs_new_txt_len("",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6717,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_Y=(*__LONG_IDEWY- 4 )+ 2 ; -if(!qbevent)break;evnt(26070,6718,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_X= 2 ; -if(!qbevent)break;evnt(26070,6719,"ide_methods.bas");}while(r); -S_43696:; -fornext_value4676= 1 ; -fornext_finalvalue4676=func_ubound(_SUB_DEBUGMODE_ARRAY_UDT_BUTTON,1,1); -fornext_step4676= 1 ; -if (fornext_step4676<0) fornext_step_negative4676=1; else fornext_step_negative4676=0; -if (new_error) goto fornext_error4676; -goto fornext_entrylabel4676; -while(1){ -fornext_value4676=fornext_step4676+(*_SUB_DEBUGMODE_LONG_I); -fornext_entrylabel4676: -*_SUB_DEBUGMODE_LONG_I=fornext_value4676; -if (fornext_step_negative4676){ -if (fornext_value4676fornext_finalvalue4676) break; -} -fornext_error4676:; -if(qbevent){evnt(26070,6720,"ide_methods.bas");if(r)goto S_43696;} -do{ -*(int16*)(((char*)_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[0])+((array_check((*_SUB_DEBUGMODE_LONG_I)-_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[4],_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[5]))*16))=*_SUB_DEBUGMODE_LONG_X; -if(!qbevent)break;evnt(26070,6721,"ide_methods.bas");}while(r); -do{ -*(int16*)(((char*)_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[0])+((array_check((*_SUB_DEBUGMODE_LONG_I)-_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[4],_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[5]))*16+2))=*_SUB_DEBUGMODE_LONG_Y; -if(!qbevent)break;evnt(26070,6722,"ide_methods.bas");}while(r); -do{ -*(int16*)(((char*)_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[0])+((array_check((*_SUB_DEBUGMODE_LONG_I)-_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[4],_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[5]))*16+4))=(*(qbs**)(((char*)_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[0])+((array_check((*_SUB_DEBUGMODE_LONG_I)-_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[4],_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[5]))*16+8)))->len; -if(!qbevent)break;evnt(26070,6723,"ide_methods.bas");}while(r); -S_43700:; -if ((-(*_SUB_DEBUGMODE_LONG_Ilen)>(*__LONG_IDEWX- 1 ))))||new_error){ -if(qbevent){evnt(26070,6726,"ide_methods.bas");if(r)goto S_43702;} -do{ -*_SUB_DEBUGMODE_LONG_Y=*_SUB_DEBUGMODE_LONG_Y+ 1 ; -if(!qbevent)break;evnt(26070,6727,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_X= 2 ; -if(!qbevent)break;evnt(26070,6728,"ide_methods.bas");}while(r); -} -} -fornext_continue_4675:; -} -fornext_exit_4675:; -S_43708:; -sc_4677_var=0; -if(qbevent){evnt(26070,6733,"ide_methods.bas");if(r)goto S_43708;} -S_43709:; -if (((*__LONG_IDEDEBUGMODE==( 1 )))||new_error){ -if(qbevent){evnt(26070,6734,"ide_methods.bas");if(r)goto S_43709;} -do{ -*_SUB_DEBUGMODE_BYTE_PAUSEMODE= 0 ; -if(!qbevent)break;evnt(26070,6735,"ide_methods.bas");}while(r); -do{ -*__LONG_CALLSTACKLENGTH= 0 ; -if(!qbevent)break;evnt(26070,6736,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_CALLSTACKLIST,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6737,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_BUFFER,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6738,"ide_methods.bas");}while(r); -do{ -*__LONG_DEBUGCLIENT= 0 ; -if(!qbevent)break;evnt(26070,6739,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_DEBUGGEEPID= 0 ; -if(!qbevent)break;evnt(26070,6740,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_BYTE_PANELACTIVE= -1 ; -if(!qbevent)break;evnt(26070,6742,"ide_methods.bas");}while(r); -do{ -SUB_SHOWVWATCHPANEL((void*)( ((char*)(_SUB_DEBUGMODE_UDT_VWATCHPANEL)) + (0) ),qbs_new_txt_len("",0),&(pass4678= 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6743,"ide_methods.bas");}while(r); -S_43718:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_VARIABLEWATCHLIST->len== 0 )))||new_error){ -if(qbevent){evnt(26070,6745,"ide_methods.bas");if(r)goto S_43718;} -do{ -*_SUB_DEBUGMODE_LONG_TOTALVISIBLEVARIABLES= 0 ; -if(!qbevent)break;evnt(26070,6746,"ide_methods.bas");}while(r); -do{ -*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6))= 5 ; -if(!qbevent)break;evnt(26070,6747,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_SUB_DEBUGMODE_STRING_RESULT,FUNC_IDEVARIABLEWATCHBOX(qbs_new_txt_len("",0),qbs_new_txt_len("",0),&(pass4680= -1 ),&(pass4681= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6752,"ide_methods.bas");}while(r); -} -do{ -qbs_set(__STRING_WATCHPOINTLIST,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6755,"ide_methods.bas");}while(r); -do{ -*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4))= 40 ; -if(!qbevent)break;evnt(26070,6756,"ide_methods.bas");}while(r); -do{ -*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(0))=*__LONG_IDEWX-*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4))- 6 ; -if(!qbevent)break;evnt(26070,6757,"ide_methods.bas");}while(r); -do{ -*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(2))= 4 ; -if(!qbevent)break;evnt(26070,6758,"ide_methods.bas");}while(r); -do{ -*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(8))= 1 ; -if(!qbevent)break;evnt(26070,6759,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_X=qbr(func_val(FUNC_READSETTING(qbs_new_txt_len(".\\internal\\temp\\debug.ini",25),qbs_new_txt_len("settings",8),qbs_new_txt_len("vWatchPanel.w",13)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6761,"ide_methods.bas");}while(r); -S_43730:; -if ((*_SUB_DEBUGMODE_LONG_X)||new_error){ -if(qbevent){evnt(26070,6762,"ide_methods.bas");if(r)goto S_43730;} -do{ -*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4))=*_SUB_DEBUGMODE_LONG_X; -if(!qbevent)break;evnt(26070,6762,"ide_methods.bas");}while(r); -} -do{ -*_SUB_DEBUGMODE_LONG_X=qbr(func_val(FUNC_READSETTING(qbs_new_txt_len(".\\internal\\temp\\debug.ini",25),qbs_new_txt_len("settings",8),qbs_new_txt_len("vWatchPanel.h",13)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6764,"ide_methods.bas");}while(r); -S_43734:; -if ((*_SUB_DEBUGMODE_LONG_X)||new_error){ -if(qbevent){evnt(26070,6765,"ide_methods.bas");if(r)goto S_43734;} -do{ -*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6))=*_SUB_DEBUGMODE_LONG_X; -if(!qbevent)break;evnt(26070,6765,"ide_methods.bas");}while(r); -} -do{ -*_SUB_DEBUGMODE_LONG_X=qbr(func_val(FUNC_READSETTING(qbs_new_txt_len(".\\internal\\temp\\debug.ini",25),qbs_new_txt_len("settings",8),qbs_new_txt_len("vWatchPanel.x",13)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6767,"ide_methods.bas");}while(r); -S_43738:; -if ((*_SUB_DEBUGMODE_LONG_X)||new_error){ -if(qbevent){evnt(26070,6768,"ide_methods.bas");if(r)goto S_43738;} -do{ -*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(0))=*_SUB_DEBUGMODE_LONG_X; -if(!qbevent)break;evnt(26070,6768,"ide_methods.bas");}while(r); -} -do{ -*_SUB_DEBUGMODE_LONG_X=qbr(func_val(FUNC_READSETTING(qbs_new_txt_len(".\\internal\\temp\\debug.ini",25),qbs_new_txt_len("settings",8),qbs_new_txt_len("vWatchPanel.y",13)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6770,"ide_methods.bas");}while(r); -S_43742:; -if ((*_SUB_DEBUGMODE_LONG_X)||new_error){ -if(qbevent){evnt(26070,6771,"ide_methods.bas");if(r)goto S_43742;} -do{ -*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(2))=*_SUB_DEBUGMODE_LONG_X; -if(!qbevent)break;evnt(26070,6771,"ide_methods.bas");}while(r); -} -do{ -return_point[next_return_point++]=56; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_CHECKVWATCHPANELSIZE; -RETURN_56:; -if(!qbevent)break;evnt(26070,6773,"ide_methods.bas");}while(r); -sc_ec_228_end:; -sc_4677_var=-1; -} -S_43746:; -if (((*__LONG_IDEDEBUGMODE>( 1 )))||new_error){ -if(qbevent){evnt(26070,6774,"ide_methods.bas");if(r)goto S_43746;} -do{ -*_SUB_DEBUGMODE_BYTE_NOFOCUSMESSAGE=~(*_SUB_DEBUGMODE_BYTE_NOFOCUSMESSAGE); -if(!qbevent)break;evnt(26070,6775,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=57; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_UPDATESTATUSAREA; -RETURN_57:; -if(!qbevent)break;evnt(26070,6776,"ide_methods.bas");}while(r); -do{ -SUB_CLEARSTATUSWINDOW(&(pass4682= 1 )); -if(!qbevent)break;evnt(26070,6777,"ide_methods.bas");}while(r); -do{ -SUB_SETSTATUSMESSAGE(&(pass4683= 1 ),qbs_new_txt_len("Paused.",7),&(pass4684= 2 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6778,"ide_methods.bas");}while(r); -sc_ec_229_end:; -sc_4677_var=-1; -} -S_43751:; -if (((*__LONG_IDEDEBUGMODE==( 2 )))||new_error){ -if(qbevent){evnt(26070,6779,"ide_methods.bas");if(r)goto S_43751;} -do{ -*__LONG_IDEDEBUGMODE= 1 ; -if(!qbevent)break;evnt(26070,6779,"ide_methods.bas");}while(r); -do{ -goto LABEL_RETURNFROMCONTEXTMENU; -if(!qbevent)break;evnt(26070,6779,"ide_methods.bas");}while(r); -sc_ec_230_end:; -sc_4677_var=-1; -} -S_43754:; -if (((*__LONG_IDEDEBUGMODE==( 3 )))||new_error){ -if(qbevent){evnt(26070,6780,"ide_methods.bas");if(r)goto S_43754;} -do{ -*__LONG_IDEDEBUGMODE= 1 ; -if(!qbevent)break;evnt(26070,6780,"ide_methods.bas");}while(r); -do{ -goto LABEL_REQUESTCALLSTACK; -if(!qbevent)break;evnt(26070,6780,"ide_methods.bas");}while(r); -sc_ec_231_end:; -sc_4677_var=-1; -} -S_43757:; -if (((*__LONG_IDEDEBUGMODE==( 4 )))||new_error){ -if(qbevent){evnt(26070,6781,"ide_methods.bas");if(r)goto S_43757;} -do{ -*__LONG_IDEDEBUGMODE= 1 ; -if(!qbevent)break;evnt(26070,6781,"ide_methods.bas");}while(r); -do{ -goto LABEL_REQUESTCONTINUE; -if(!qbevent)break;evnt(26070,6781,"ide_methods.bas");}while(r); -sc_ec_232_end:; -sc_4677_var=-1; -} -S_43760:; -if (((*__LONG_IDEDEBUGMODE==( 5 )))||new_error){ -if(qbevent){evnt(26070,6782,"ide_methods.bas");if(r)goto S_43760;} -do{ -*__LONG_IDEDEBUGMODE= 1 ; -if(!qbevent)break;evnt(26070,6782,"ide_methods.bas");}while(r); -do{ -goto LABEL_REQUESTSTEPOUT; -if(!qbevent)break;evnt(26070,6782,"ide_methods.bas");}while(r); -sc_ec_233_end:; -sc_4677_var=-1; -} -S_43763:; -if (((*__LONG_IDEDEBUGMODE==( 6 )))||new_error){ -if(qbevent){evnt(26070,6783,"ide_methods.bas");if(r)goto S_43763;} -do{ -*__LONG_IDEDEBUGMODE= 1 ; -if(!qbevent)break;evnt(26070,6783,"ide_methods.bas");}while(r); -do{ -goto LABEL_REQUESTSTEPOVER; -if(!qbevent)break;evnt(26070,6783,"ide_methods.bas");}while(r); -sc_ec_234_end:; -sc_4677_var=-1; -} -S_43766:; -if (((*__LONG_IDEDEBUGMODE==( 7 )))||new_error){ -if(qbevent){evnt(26070,6784,"ide_methods.bas");if(r)goto S_43766;} -do{ -*__LONG_IDEDEBUGMODE= 1 ; -if(!qbevent)break;evnt(26070,6784,"ide_methods.bas");}while(r); -do{ -goto LABEL_REQUESTSTEPINTO; -if(!qbevent)break;evnt(26070,6784,"ide_methods.bas");}while(r); -sc_ec_235_end:; -sc_4677_var=-1; -} -S_43769:; -if (((*__LONG_IDEDEBUGMODE==( 8 )))||new_error){ -if(qbevent){evnt(26070,6785,"ide_methods.bas");if(r)goto S_43769;} -do{ -*__LONG_IDEDEBUGMODE= 1 ; -if(!qbevent)break;evnt(26070,6786,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_RESULT=*__LONG_IDECY; -if(!qbevent)break;evnt(26070,6787,"ide_methods.bas");}while(r); -do{ -goto LABEL_REQUESTRUNTOTHISLINE; -if(!qbevent)break;evnt(26070,6788,"ide_methods.bas");}while(r); -sc_ec_236_end:; -sc_4677_var=-1; -} -S_43773:; -if (((*__LONG_IDEDEBUGMODE==( 9 )))||new_error){ -if(qbevent){evnt(26070,6789,"ide_methods.bas");if(r)goto S_43773;} -do{ -*__LONG_IDEDEBUGMODE= 1 ; -if(!qbevent)break;evnt(26070,6789,"ide_methods.bas");}while(r); -do{ -goto LABEL_REQUESTQUIT; -if(!qbevent)break;evnt(26070,6789,"ide_methods.bas");}while(r); -sc_ec_237_end:; -sc_4677_var=-1; -} -S_43776:; -if (((*__LONG_IDEDEBUGMODE==( 10 )))||new_error){ -if(qbevent){evnt(26070,6790,"ide_methods.bas");if(r)goto S_43776;} -do{ -*__LONG_IDEDEBUGMODE= 1 ; -if(!qbevent)break;evnt(26070,6790,"ide_methods.bas");}while(r); -do{ -goto LABEL_REQUESTTOGGLEBREAKPOINT; -if(!qbevent)break;evnt(26070,6790,"ide_methods.bas");}while(r); -sc_ec_238_end:; -sc_4677_var=-1; -} -S_43779:; -if (((*__LONG_IDEDEBUGMODE==( 11 )))||new_error){ -if(qbevent){evnt(26070,6791,"ide_methods.bas");if(r)goto S_43779;} -do{ -*__LONG_IDEDEBUGMODE= 1 ; -if(!qbevent)break;evnt(26070,6791,"ide_methods.bas");}while(r); -do{ -goto LABEL_REQUESTCLEARBREAKPOINTS; -if(!qbevent)break;evnt(26070,6791,"ide_methods.bas");}while(r); -sc_ec_239_end:; -sc_4677_var=-1; -} -S_43782:; -if (((*__LONG_IDEDEBUGMODE==( 12 )))||new_error){ -if(qbevent){evnt(26070,6792,"ide_methods.bas");if(r)goto S_43782;} -do{ -*__LONG_IDEDEBUGMODE= 1 ; -if(!qbevent)break;evnt(26070,6793,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_RESULT=*__LONG_IDECY; -if(!qbevent)break;evnt(26070,6794,"ide_methods.bas");}while(r); -do{ -goto LABEL_REQUESTTOGGLESKIPLINE; -if(!qbevent)break;evnt(26070,6795,"ide_methods.bas");}while(r); -sc_ec_240_end:; -sc_4677_var=-1; -} -S_43786:; -if (((*__LONG_IDEDEBUGMODE==( 13 )))||new_error){ -if(qbevent){evnt(26070,6796,"ide_methods.bas");if(r)goto S_43786;} -do{ -*__LONG_IDEDEBUGMODE= 1 ; -if(!qbevent)break;evnt(26070,6797,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_RESULT=*__LONG_IDECY; -if(!qbevent)break;evnt(26070,6798,"ide_methods.bas");}while(r); -do{ -goto LABEL_REQUESTSETNEXTLINE; -if(!qbevent)break;evnt(26070,6799,"ide_methods.bas");}while(r); -sc_ec_241_end:; -sc_4677_var=-1; -} -S_43790:; -if (((*__LONG_IDEDEBUGMODE==( 14 )))||new_error){ -if(qbevent){evnt(26070,6800,"ide_methods.bas");if(r)goto S_43790;} -do{ -*__LONG_IDEDEBUGMODE= 1 ; -if(!qbevent)break;evnt(26070,6800,"ide_methods.bas");}while(r); -do{ -goto LABEL_REQUESTSUBSDIALOG; -if(!qbevent)break;evnt(26070,6800,"ide_methods.bas");}while(r); -sc_ec_242_end:; -sc_4677_var=-1; -} -S_43793:; -if (((*__LONG_IDEDEBUGMODE==( 15 )))||new_error){ -if(qbevent){evnt(26070,6801,"ide_methods.bas");if(r)goto S_43793;} -do{ -*__LONG_IDEDEBUGMODE= 1 ; -if(!qbevent)break;evnt(26070,6801,"ide_methods.bas");}while(r); -do{ -goto LABEL_REQUESTUNSKIPALLLINES; -if(!qbevent)break;evnt(26070,6801,"ide_methods.bas");}while(r); -sc_ec_243_end:; -sc_4677_var=-1; -} -S_43796:; -if (((*__LONG_IDEDEBUGMODE==( 16 )))||new_error){ -if(qbevent){evnt(26070,6802,"ide_methods.bas");if(r)goto S_43796;} -do{ -*__LONG_IDEDEBUGMODE= 1 ; -if(!qbevent)break;evnt(26070,6802,"ide_methods.bas");}while(r); -do{ -goto LABEL_REQUESTVARIABLEWATCH; -if(!qbevent)break;evnt(26070,6802,"ide_methods.bas");}while(r); -sc_ec_244_end:; -} -sc_4677_end:; -do{ -*_SUB_DEBUGMODE_LONG_DUMMY=FUNC_DARKENFGBG(&(pass4685= 1 )); -if(!qbevent)break;evnt(26070,6805,"ide_methods.bas");}while(r); -do{ -SUB_CLEARSTATUSWINDOW(&(pass4686= 0 )); -if(!qbevent)break;evnt(26070,6806,"ide_methods.bas");}while(r); -do{ -SUB_SETSTATUSMESSAGE(&(pass4687= 1 ),qbs_new_txt_len("Entering $DEBUG mode (ESC to abort)...",38),&(pass4688= 15 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6807,"ide_methods.bas");}while(r); -S_43803:; -if ((-(*__LONG_HOST== 0 ))||new_error){ -if(qbevent){evnt(26070,6809,"ide_methods.bas");if(r)goto S_43803;} -do{ -*__LONG_HOST=func__openhost(qbs_add(qbs_new_txt_len("TCP/IP:",7),__STRING_HOSTPORT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6810,"ide_methods.bas");}while(r); -S_43805:; -if ((-(*__LONG_HOST== 0 ))||new_error){ -if(qbevent){evnt(26070,6811,"ide_methods.bas");if(r)goto S_43805;} -do{ -*_SUB_DEBUGMODE_LONG_DUMMY=FUNC_DARKENFGBG(&(pass4689= 0 )); -if(!qbevent)break;evnt(26070,6812,"ide_methods.bas");}while(r); -do{ -SUB_CLEARSTATUSWINDOW(&(pass4690= 1 )); -if(!qbevent)break;evnt(26070,6813,"ide_methods.bas");}while(r); -do{ -SUB_SETSTATUSMESSAGE(&(pass4691= 1 ),qbs_new_txt_len("Failed to initiate debug session.",33),&(pass4692= 7 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6814,"ide_methods.bas");}while(r); -do{ -SUB_SETSTATUSMESSAGE(&(pass4693= 2 ),qbs_add(qbs_add(qbs_new_txt_len("Cannot receive connections on port",34),qbs_str((int32)(*__LONG_IDEBASETCPPORT))),qbs_new_txt_len(". Check your firewall permissions.",34)),&(pass4694= 2 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6815,"ide_methods.bas");}while(r); -S_43810:; -while((func__mouseinput(NULL,0))||new_error){ -if(qbevent){evnt(26070,6816,"ide_methods.bas");if(r)goto S_43810;} -ww_continue_4695:; -} -ww_exit_4695:; -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,6817,"ide_methods.bas");}while(r); -} -} -do{ -*_SUB_DEBUGMODE_SINGLE_START=func_timer(NULL,0); -if(!qbevent)break;evnt(26070,6822,"ide_methods.bas");}while(r); -S_43816:; -do{ -if(qbevent){evnt(26070,6823,"ide_methods.bas");if(r)goto S_43816;} -do{ -*__LONG_DEBUGCLIENT=func__openconnection(*__LONG_HOST); -if(!qbevent)break;evnt(26070,6824,"ide_methods.bas");}while(r); -S_43818:; -if ((*__LONG_DEBUGCLIENT)||new_error){ -if(qbevent){evnt(26070,6825,"ide_methods.bas");if(r)goto S_43818;} -do{ -goto dl_exit_4696; -if(!qbevent)break;evnt(26070,6825,"ide_methods.bas");}while(r); -} -do{ -*_SUB_DEBUGMODE_LONG_K=func__keyhit(); -if(!qbevent)break;evnt(26070,6827,"ide_methods.bas");}while(r); -S_43822:; -if (((-(*_SUB_DEBUGMODE_LONG_K== 27 ))|(-((func_timer(NULL,0)-*_SUB_DEBUGMODE_SINGLE_START)>*_SUB_DEBUGMODE_LONG_TIMEOUT)))||new_error){ -if(qbevent){evnt(26070,6828,"ide_methods.bas");if(r)goto S_43822;} -do{ -*_SUB_DEBUGMODE_LONG_DUMMY=FUNC_DARKENFGBG(&(pass4697= 0 )); -if(!qbevent)break;evnt(26070,6829,"ide_methods.bas");}while(r); -do{ -SUB_CLEARSTATUSWINDOW(&(pass4698= 0 )); -if(!qbevent)break;evnt(26070,6830,"ide_methods.bas");}while(r); -do{ -SUB_SETSTATUSMESSAGE(&(pass4699= 1 ),qbs_add(_SUB_DEBUGMODE_STRING_TEMP,qbs_new_txt_len("Debug session aborted.",22)),&(pass4700= 7 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6831,"ide_methods.bas");}while(r); -S_43826:; -if ((-(*_SUB_DEBUGMODE_LONG_K!= 27 ))||new_error){ -if(qbevent){evnt(26070,6832,"ide_methods.bas");if(r)goto S_43826;} -do{ -SUB_SETSTATUSMESSAGE(&(pass4701= 2 ),qbs_new_txt_len("Connection timeout.",19),&(pass4702= 2 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6833,"ide_methods.bas");}while(r); -} -do{ -sub__keyclear(NULL,0); -if(!qbevent)break;evnt(26070,6835,"ide_methods.bas");}while(r); -S_43830:; -while((func__mouseinput(NULL,0))||new_error){ -if(qbevent){evnt(26070,6836,"ide_methods.bas");if(r)goto S_43830;} -ww_continue_4703:; -} -ww_exit_4703:; -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,6837,"ide_methods.bas");}while(r); -} -do{ -sub__limit( 100 ); -if(!qbevent)break;evnt(26070,6840,"ide_methods.bas");}while(r); -dl_continue_4696:; -}while(1); -dl_exit_4696:; -do{ -*__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(26070,6843,"ide_methods.bas");}while(r); -do{ -SUB_CLEARSTATUSWINDOW(&(pass4704= 1 )); -if(!qbevent)break;evnt(26070,6844,"ide_methods.bas");}while(r); -do{ -SUB_SETSTATUSMESSAGE(&(pass4705= 1 ),qbs_new_txt_len("Handshaking...",14),&(pass4706= 15 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6845,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_SINGLE_START=func_timer(NULL,0); -if(!qbevent)break;evnt(26070,6847,"ide_methods.bas");}while(r); -S_43840:; -do{ -if(qbevent){evnt(26070,6848,"ide_methods.bas");if(r)goto S_43840;} -do{ -*_SUB_DEBUGMODE_LONG_K=func__keyhit(); -if(!qbevent)break;evnt(26070,6849,"ide_methods.bas");}while(r); -S_43842:; -if (((-(*_SUB_DEBUGMODE_LONG_K== 27 ))|(-((func_timer(NULL,0)-*_SUB_DEBUGMODE_SINGLE_START)>*_SUB_DEBUGMODE_LONG_TIMEOUT)))||new_error){ -if(qbevent){evnt(26070,6850,"ide_methods.bas");if(r)goto S_43842;} -do{ -*_SUB_DEBUGMODE_LONG_DUMMY=FUNC_DARKENFGBG(&(pass4708= 0 )); -if(!qbevent)break;evnt(26070,6851,"ide_methods.bas");}while(r); -do{ -SUB_CLEARSTATUSWINDOW(&(pass4709= 0 )); -if(!qbevent)break;evnt(26070,6852,"ide_methods.bas");}while(r); -do{ -SUB_SETSTATUSMESSAGE(&(pass4710= 1 ),qbs_add(_SUB_DEBUGMODE_STRING_TEMP,qbs_new_txt_len("Debug session aborted.",22)),&(pass4711= 7 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6853,"ide_methods.bas");}while(r); -S_43846:; -if ((-(*_SUB_DEBUGMODE_LONG_K!= 27 ))||new_error){ -if(qbevent){evnt(26070,6854,"ide_methods.bas");if(r)goto S_43846;} -do{ -SUB_SETSTATUSMESSAGE(&(pass4712= 2 ),qbs_new_txt_len("Connection timeout.",19),&(pass4713= 2 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6855,"ide_methods.bas");}while(r); -} -do{ -sub__keyclear(NULL,0); -if(!qbevent)break;evnt(26070,6857,"ide_methods.bas");}while(r); -S_43850:; -while((func__mouseinput(NULL,0))||new_error){ -if(qbevent){evnt(26070,6858,"ide_methods.bas");if(r)goto S_43850;} -ww_continue_4714:; -} -ww_exit_4714:; -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,6859,"ide_methods.bas");}while(r); -} -do{ -return_point[next_return_point++]=58; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_GETCOMMAND; -RETURN_58:; -if(!qbevent)break;evnt(26070,6862,"ide_methods.bas");}while(r); -S_43855:; -if(qbevent){evnt(26070,6863,"ide_methods.bas");if(r)goto S_43855;} -S_43856:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("me",2))))||new_error){ -if(qbevent){evnt(26070,6864,"ide_methods.bas");if(r)goto S_43856;} -do{ -qbs_set(_SUB_DEBUGMODE_STRING_PROGRAM,_SUB_DEBUGMODE_STRING_VALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6865,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_EXPECTED,__STRING_LASTBINARYGENERATED); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6866,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_P,FUNC_IDEZTAKEPATH(_SUB_DEBUGMODE_STRING_PROGRAM)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6867,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_P,FUNC_IDEZTAKEPATH(_SUB_DEBUGMODE_STRING_EXPECTED)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6868,"ide_methods.bas");}while(r); -S_43861:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_DEBUGMODE_STRING_PROGRAM,_SUB_DEBUGMODE_STRING_EXPECTED)))||new_error){ -if(qbevent){evnt(26070,6870,"ide_methods.bas");if(r)goto S_43861;} -do{ -*_SUB_DEBUGMODE_LONG_DUMMY=FUNC_DARKENFGBG(&(pass4716= 0 )); -if(!qbevent)break;evnt(26070,6871,"ide_methods.bas");}while(r); -do{ -SUB_CLEARSTATUSWINDOW(&(pass4717= 1 )); -if(!qbevent)break;evnt(26070,6872,"ide_methods.bas");}while(r); -do{ -SUB_SETSTATUSMESSAGE(&(pass4718= 1 ),qbs_new_txt_len("Failed to initiate debug session.",33),&(pass4719= 7 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6873,"ide_methods.bas");}while(r); -do{ -SUB_SETSTATUSMESSAGE(&(pass4720= 2 ),qbs_left(qbs_add(qbs_new_txt_len("Expected: ",10),_SUB_DEBUGMODE_STRING_EXPECTED),*__LONG_IDEWX- 2 ),&(pass4721= 2 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6874,"ide_methods.bas");}while(r); -do{ -SUB_SETSTATUSMESSAGE(&(pass4722= 3 ),qbs_left(qbs_add(qbs_new_txt_len("Received: ",10),_SUB_DEBUGMODE_STRING_PROGRAM),*__LONG_IDEWX- 2 ),&(pass4723= 2 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6875,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("vwatch:file mismatch",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6876,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=59; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_SENDCOMMAND; -RETURN_59:; -if(!qbevent)break;evnt(26070,6877,"ide_methods.bas");}while(r); -do{ -sub_close(*__LONG_DEBUGCLIENT,1); -if(!qbevent)break;evnt(26070,6878,"ide_methods.bas");}while(r); -S_43870:; -while((func__mouseinput(NULL,0))||new_error){ -if(qbevent){evnt(26070,6879,"ide_methods.bas");if(r)goto S_43870;} -ww_continue_4724:; -} -ww_exit_4724:; -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,6880,"ide_methods.bas");}while(r); -} -do{ -goto dl_exit_4707; -if(!qbevent)break;evnt(26070,6882,"ide_methods.bas");}while(r); -sc_ec_245_end:; -goto sc_4715_end; -} -sc_4715_end:; -dl_continue_4707:; -}while(1); -dl_exit_4707:; -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("vwatch:ok",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6886,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=60; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_SENDCOMMAND; -RETURN_60:; -if(!qbevent)break;evnt(26070,6887,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(qbs_new_txt_len("hwnd:",5),o2string(func__handle()))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6888,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=61; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_SENDCOMMAND; -RETURN_61:; -if(!qbevent)break;evnt(26070,6889,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(qbs_new_txt_len("line count:",11),l2string(*__LONG_IDEN))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6890,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=62; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_SENDCOMMAND; -RETURN_62:; -if(!qbevent)break;evnt(26070,6891,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_BREAKPOINTCOUNT= 0 ; -if(!qbevent)break;evnt(26070,6893,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_BREAKPOINTLIST,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6894,"ide_methods.bas");}while(r); -S_43885:; -fornext_value4726= 1 ; -fornext_finalvalue4726=func_ubound(__ARRAY_BYTE_IDEBREAKPOINTS,1,1); -fornext_step4726= 1 ; -if (fornext_step4726<0) fornext_step_negative4726=1; else fornext_step_negative4726=0; -if (new_error) goto fornext_error4726; -goto fornext_entrylabel4726; -while(1){ -fornext_value4726=fornext_step4726+(*_SUB_DEBUGMODE_LONG_I); -fornext_entrylabel4726: -*_SUB_DEBUGMODE_LONG_I=fornext_value4726; -if (fornext_step_negative4726){ -if (fornext_value4726fornext_finalvalue4726) break; -} -fornext_error4726:; -if(qbevent){evnt(26070,6895,"ide_methods.bas");if(r)goto S_43885;} -S_43886:; -if ((((int8*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]))[array_check((*_SUB_DEBUGMODE_LONG_I)-__ARRAY_BYTE_IDEBREAKPOINTS[4],__ARRAY_BYTE_IDEBREAKPOINTS[5])])||new_error){ -if(qbevent){evnt(26070,6896,"ide_methods.bas");if(r)goto S_43886;} -do{ -*_SUB_DEBUGMODE_LONG_BREAKPOINTCOUNT=*_SUB_DEBUGMODE_LONG_BREAKPOINTCOUNT+ 1 ; -if(!qbevent)break;evnt(26070,6897,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_BREAKPOINTLIST,qbs_add(_SUB_DEBUGMODE_STRING_BREAKPOINTLIST,l2string(*_SUB_DEBUGMODE_LONG_I))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6898,"ide_methods.bas");}while(r); -} -fornext_continue_4725:; -} -fornext_exit_4725:; -S_43891:; -if ((*_SUB_DEBUGMODE_LONG_BREAKPOINTCOUNT)||new_error){ -if(qbevent){evnt(26070,6901,"ide_methods.bas");if(r)goto S_43891;} -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(qbs_new_txt_len("breakpoint count:",17),l2string(*_SUB_DEBUGMODE_LONG_BREAKPOINTCOUNT))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6902,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=63; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_SENDCOMMAND; -RETURN_63:; -if(!qbevent)break;evnt(26070,6903,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(qbs_new_txt_len("breakpoint list:",16),_SUB_DEBUGMODE_STRING_BREAKPOINTLIST)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6904,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=64; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_SENDCOMMAND; -RETURN_64:; -if(!qbevent)break;evnt(26070,6905,"ide_methods.bas");}while(r); -} -do{ -*_SUB_DEBUGMODE_LONG_SKIPCOUNT= 0 ; -if(!qbevent)break;evnt(26070,6908,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_SKIPLIST,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6909,"ide_methods.bas");}while(r); -S_43899:; -fornext_value4728= 1 ; -fornext_finalvalue4728=func_ubound(__ARRAY_BYTE_IDESKIPLINES,1,1); -fornext_step4728= 1 ; -if (fornext_step4728<0) fornext_step_negative4728=1; else fornext_step_negative4728=0; -if (new_error) goto fornext_error4728; -goto fornext_entrylabel4728; -while(1){ -fornext_value4728=fornext_step4728+(*_SUB_DEBUGMODE_LONG_I); -fornext_entrylabel4728: -*_SUB_DEBUGMODE_LONG_I=fornext_value4728; -if (fornext_step_negative4728){ -if (fornext_value4728fornext_finalvalue4728) break; -} -fornext_error4728:; -if(qbevent){evnt(26070,6910,"ide_methods.bas");if(r)goto S_43899;} -S_43900:; -if ((((int8*)(__ARRAY_BYTE_IDESKIPLINES[0]))[array_check((*_SUB_DEBUGMODE_LONG_I)-__ARRAY_BYTE_IDESKIPLINES[4],__ARRAY_BYTE_IDESKIPLINES[5])])||new_error){ -if(qbevent){evnt(26070,6911,"ide_methods.bas");if(r)goto S_43900;} -do{ -*_SUB_DEBUGMODE_LONG_SKIPCOUNT=*_SUB_DEBUGMODE_LONG_SKIPCOUNT+ 1 ; -if(!qbevent)break;evnt(26070,6912,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_SKIPLIST,qbs_add(_SUB_DEBUGMODE_STRING_SKIPLIST,l2string(*_SUB_DEBUGMODE_LONG_I))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6913,"ide_methods.bas");}while(r); -} -fornext_continue_4727:; -} -fornext_exit_4727:; -S_43905:; -if ((*_SUB_DEBUGMODE_LONG_SKIPCOUNT)||new_error){ -if(qbevent){evnt(26070,6916,"ide_methods.bas");if(r)goto S_43905;} -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(qbs_new_txt_len("skip count:",11),l2string(*_SUB_DEBUGMODE_LONG_SKIPCOUNT))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6917,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=65; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_SENDCOMMAND; -RETURN_65:; -if(!qbevent)break;evnt(26070,6918,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(qbs_new_txt_len("skip list:",10),_SUB_DEBUGMODE_STRING_SKIPLIST)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6919,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=66; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_SENDCOMMAND; -RETURN_66:; -if(!qbevent)break;evnt(26070,6920,"ide_methods.bas");}while(r); -} -do{ -SUB_CLEARSTATUSWINDOW(&(pass4729= 1 )); -if(!qbevent)break;evnt(26070,6923,"ide_methods.bas");}while(r); -S_43912:; -if ((*__LONG_STARTPAUSED)||new_error){ -if(qbevent){evnt(26070,6924,"ide_methods.bas");if(r)goto S_43912;} -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("break",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6925,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_BYTE_PAUSEMODE= -1 ; -if(!qbevent)break;evnt(26070,6926,"ide_methods.bas");}while(r); -do{ -SUB_SETSTATUSMESSAGE(&(pass4730= 1 ),qbs_new_txt_len("Paused.",7),&(pass4731= 2 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6927,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("run",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6929,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_BYTE_PAUSEMODE= 0 ; -if(!qbevent)break;evnt(26070,6930,"ide_methods.bas");}while(r); -do{ -SUB_SETSTATUSMESSAGE(&(pass4732= 1 ),qbs_new_txt_len("Running...",10),&(pass4733= 10 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6931,"ide_methods.bas");}while(r); -} -do{ -return_point[next_return_point++]=67; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_SENDCOMMAND; -RETURN_67:; -if(!qbevent)break;evnt(26070,6933,"ide_methods.bas");}while(r); -do{ -SUB_CLEARSTATUSWINDOW(&(pass4734= 2 )); -if(!qbevent)break;evnt(26070,6935,"ide_methods.bas");}while(r); -do{ -SUB_SETSTATUSMESSAGE(&(pass4735= 2 ),qbs_new_txt_len("$DEBUG MODE: Set focus to the IDE to control execution",54),&(pass4736= 15 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6936,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_BYTE_NOFOCUSMESSAGE= -1 ; -if(!qbevent)break;evnt(26070,6938,"ide_methods.bas");}while(r); -S_43925:; -do{ -if(qbevent){evnt(26070,6940,"ide_methods.bas");if(r)goto S_43925;} -S_43926:; -if ((func__exit())||new_error){ -if(qbevent){evnt(26070,6941,"ide_methods.bas");if(r)goto S_43926;} -do{ -*__LONG_IDEEXIT= 1 ; -if(!qbevent)break;evnt(26070,6941,"ide_methods.bas");}while(r); -do{ -goto LABEL_REQUESTQUIT; -if(!qbevent)break;evnt(26070,6941,"ide_methods.bas");}while(r); -} -do{ -*_SUB_DEBUGMODE_LONG_BKPIDECY=*__LONG_IDECY; -if(!qbevent)break;evnt(26070,6943,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_BKPPANELFIRSTVISIBLE=*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(8)); -if(!qbevent)break;evnt(26070,6944,"ide_methods.bas");}while(r); -S_43932:; -while((func__mouseinput(NULL,0))||new_error){ -if(qbevent){evnt(26070,6945,"ide_methods.bas");if(r)goto S_43932;} -do{ -*__LONG_MX=qbr(func__mousex(NULL,0)); -if(!qbevent)break;evnt(26070,6946,"ide_methods.bas");}while(r); -do{ -*__LONG_MY=qbr(func__mousey(NULL,0)); -if(!qbevent)break;evnt(26070,6947,"ide_methods.bas");}while(r); -do{ -*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(20))=*__LONG_MX; -if(!qbevent)break;evnt(26070,6948,"ide_methods.bas");}while(r); -do{ -*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(22))=*__LONG_MY; -if(!qbevent)break;evnt(26070,6949,"ide_methods.bas");}while(r); -S_43937:; -if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_VARIABLEWATCHLIST->len> 0 ))&(((-(*__LONG_MX>=*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(0))))&(-(*__LONG_MX<=(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(0))+*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4)))))))&(((-(*__LONG_MY>=*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(2))))&(-(*__LONG_MY<=(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(2))+*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6)))))))))||new_error){ -if(qbevent){evnt(26070,6952,"ide_methods.bas");if(r)goto S_43937;} -do{ -*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(8))=*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(8))+(func__mousewheel(NULL,0)* 3 ); -if(!qbevent)break;evnt(26070,6953,"ide_methods.bas");}while(r); -S_43939:; -if ((-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(8))< 1 ))||new_error){ -if(qbevent){evnt(26070,6954,"ide_methods.bas");if(r)goto S_43939;} -do{ -*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(8))= 1 ; -if(!qbevent)break;evnt(26070,6954,"ide_methods.bas");}while(r); -} -S_43942:; -if ((-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(8))>(*_SUB_DEBUGMODE_LONG_TOTALVISIBLEVARIABLES-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6))- 2 )+ 1 )))||new_error){ -if(qbevent){evnt(26070,6955,"ide_methods.bas");if(r)goto S_43942;} -do{ -*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(8))=*_SUB_DEBUGMODE_LONG_TOTALVISIBLEVARIABLES-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6))- 2 )+ 1 ; -if(!qbevent)break;evnt(26070,6956,"ide_methods.bas");}while(r); -} -}else{ -do{ -*__LONG_IDECY=*__LONG_IDECY+(func__mousewheel(NULL,0)* 3 ); -if(!qbevent)break;evnt(26070,6959,"ide_methods.bas");}while(r); -} -ww_continue_4738:; -} -ww_exit_4738:; -S_43949:; -if ((-(*__LONG_IDECY< 1 ))||new_error){ -if(qbevent){evnt(26070,6963,"ide_methods.bas");if(r)goto S_43949;} -do{ -*__LONG_IDECY= 1 ; -if(!qbevent)break;evnt(26070,6963,"ide_methods.bas");}while(r); -} -S_43952:; -if ((-(*__LONG_IDECY>*__LONG_IDEN))||new_error){ -if(qbevent){evnt(26070,6964,"ide_methods.bas");if(r)goto S_43952;} -do{ -*__LONG_IDECY=*__LONG_IDEN; -if(!qbevent)break;evnt(26070,6964,"ide_methods.bas");}while(r); -} -S_43955:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_IDECY!=*_SUB_DEBUGMODE_LONG_BKPIDECY))|(-(*_SUB_DEBUGMODE_LONG_BKPPANELFIRSTVISIBLE!=*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(8))))|(((-(__STRING_VARIABLEWATCHLIST->len> 0 ))&(((-(*__LONG_MX>=*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(0))))&(-(*__LONG_MX<=(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(0))+*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4)))))))&(((-(*__LONG_MY>=*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(2))))&(-(*__LONG_MY<=(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(2))+*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6)))))))))))||new_error){ -if(qbevent){evnt(26070,6968,"ide_methods.bas");if(r)goto S_43955;} -do{ -*__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(26070,6969,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=68; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_UPDATEDISPLAY; -RETURN_68:; -if(!qbevent)break;evnt(26070,6969,"ide_methods.bas");}while(r); -} -do{ -*__LONG_MB=func__mousebutton( 1 ,NULL,0); -if(!qbevent)break;evnt(26070,6972,"ide_methods.bas");}while(r); -do{ -*__LONG_MB2=func__mousebutton( 2 ,NULL,0); -if(!qbevent)break;evnt(26070,6973,"ide_methods.bas");}while(r); -S_43961:; -if ((*__LONG_MB2)||new_error){ -if(qbevent){evnt(26070,6975,"ide_methods.bas");if(r)goto S_43961;} -S_43962:; -if ((-(*_SUB_DEBUGMODE_LONG_MOUSEDOWN2== 0 ))||new_error){ -if(qbevent){evnt(26070,6976,"ide_methods.bas");if(r)goto S_43962;} -do{ -*_SUB_DEBUGMODE_LONG_MOUSEDOWN2= -1 ; -if(!qbevent)break;evnt(26070,6977,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_MOUSEDOWNONX2=*__LONG_MX; -if(!qbevent)break;evnt(26070,6978,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_MOUSEDOWNONY2=*__LONG_MY; -if(!qbevent)break;evnt(26070,6979,"ide_methods.bas");}while(r); -}else{ -} -}else{ -S_43969:; -if ((*_SUB_DEBUGMODE_LONG_MOUSEDOWN2)||new_error){ -if(qbevent){evnt(26070,6983,"ide_methods.bas");if(r)goto S_43969;} -S_43970:; -if (((-(*_SUB_DEBUGMODE_LONG_MOUSEDOWNONX2==*__LONG_MX))&(-(*_SUB_DEBUGMODE_LONG_MOUSEDOWNONY2==*__LONG_MY)))||new_error){ -if(qbevent){evnt(26070,6984,"ide_methods.bas");if(r)goto S_43970;} -S_43971:; -if ((qbs_cleanup(qbs_tmp_base,((-(__STRING_VARIABLEWATCHLIST->len> 0 ))&(((-(*__LONG_MX>=*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(0))))&(-(*__LONG_MX<=(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(0))+*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4)))))))&(((-(*__LONG_MY>=*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(2))))&(-(*__LONG_MY<=(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(2))+*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6))))))))))||new_error){ -if(qbevent){evnt(26070,6988,"ide_methods.bas");if(r)goto S_43971;} -do{ -goto LABEL_REQUESTVARIABLEWATCH; -if(!qbevent)break;evnt(26070,6989,"ide_methods.bas");}while(r); -} -S_43974:; -if ((((-(*__LONG_MX> 1 ))&(-(*__LONG_MX<=( 1 +*__LONG_MAXLINENUMBERLENGTH)))&(-(*__LONG_MY> 2 ))&(-(*__LONG_MY<(*__LONG_IDEWY- 5 )))&*__BYTE_SHOWLINENUMBERS)|((-(*__LONG_MX== 1 ))&(-(*__LONG_MY> 2 ))&(-(*__LONG_MY<(*__LONG_IDEWY- 5 )))&(-(*__BYTE_SHOWLINENUMBERS== 0 )))|((-(*__LONG_MX>( 1 +*__LONG_MAXLINENUMBERLENGTH)))&(-(*__LONG_MX<*__LONG_IDEWX))&(-(*__LONG_MY> 2 ))&(-(*__LONG_MY<(*__LONG_IDEWY- 5 )))))||new_error){ -if(qbevent){evnt(26070,6995,"ide_methods.bas");if(r)goto S_43974;} -do{ -*_SUB_DEBUGMODE_LONG_BKPIDECY=*__LONG_IDECY; -if(!qbevent)break;evnt(26070,6996,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECY=*__LONG_MY- 2 +*__LONG_IDESY- 1 ; -if(!qbevent)break;evnt(26070,6997,"ide_methods.bas");}while(r); -S_43977:; -if ((-(*__LONG_IDECY>*__LONG_IDEN))||new_error){ -if(qbevent){evnt(26070,6998,"ide_methods.bas");if(r)goto S_43977;} -do{ -*__LONG_IDECY=*__LONG_IDEN; -if(!qbevent)break;evnt(26070,6998,"ide_methods.bas");}while(r); -} -S_43980:; -if ((-(*_SUB_DEBUGMODE_LONG_BKPIDECY!=*__LONG_IDECY))||new_error){ -if(qbevent){evnt(26070,6999,"ide_methods.bas");if(r)goto S_43980;} -do{ -*__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(26070,6999,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=69; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_UPDATEDISPLAY; -RETURN_69:; -if(!qbevent)break;evnt(26070,6999,"ide_methods.bas");}while(r); -} -do{ -*__LONG_IDEDEBUGMODE= 2 ; -if(!qbevent)break;evnt(26070,7000,"ide_methods.bas");}while(r); -S_43985:; -if ((-(*_SUB_DEBUGMODE_BYTE_PAUSEMODE== 0 ))||new_error){ -if(qbevent){evnt(26070,7001,"ide_methods.bas");if(r)goto S_43985;} -do{ -return_point[next_return_point++]=70; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_REQUESTPAUSE; -RETURN_70:; -if(!qbevent)break;evnt(26070,7001,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_DUMMY=FUNC_DARKENFGBG(&(pass4742= 0 )); -if(!qbevent)break;evnt(26070,7001,"ide_methods.bas");}while(r); -} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,7002,"ide_methods.bas");}while(r); -LABEL_RETURNFROMCONTEXTMENU:; -if(qbevent){evnt(26070,7003,"ide_methods.bas");r=0;} -do{ -return_point[next_return_point++]=71; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_UPDATEDISPLAY; -RETURN_71:; -if(!qbevent)break;evnt(26070,7004,"ide_methods.bas");}while(r); -} -} -} -do{ -*_SUB_DEBUGMODE_LONG_MOUSEDOWN2= 0 ; -if(!qbevent)break;evnt(26070,7008,"ide_methods.bas");}while(r); -} -S_43996:; -if ((*__LONG_MB)||new_error){ -if(qbevent){evnt(26070,7011,"ide_methods.bas");if(r)goto S_43996;} -S_43997:; -if ((-(*_SUB_DEBUGMODE_LONG_MOUSEDOWN== 0 ))||new_error){ -if(qbevent){evnt(26070,7012,"ide_methods.bas");if(r)goto S_43997;} -do{ -*_SUB_DEBUGMODE_LONG_MOUSEDOWN= -1 ; -if(!qbevent)break;evnt(26070,7013,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_MOUSEDOWNONX=*__LONG_MX; -if(!qbevent)break;evnt(26070,7014,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_MOUSEDOWNONY=*__LONG_MY; -if(!qbevent)break;evnt(26070,7015,"ide_methods.bas");}while(r); -S_44001:; -if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_VARIABLEWATCHLIST->len> 0 ))&((-(*__LONG_MX>=(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(0))+*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4))- 3 ))))&((-(*__LONG_MX<=(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(0))+*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4))- 1 ))))&((-(*__LONG_MY==*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(2)))))))||new_error){ -if(qbevent){evnt(26070,7018,"ide_methods.bas");if(r)goto S_44001;} -do{ -*(int8*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(34))= -1 ; -if(!qbevent)break;evnt(26070,7019,"ide_methods.bas");}while(r); -S_44003:; -}else{ -if (qbs_cleanup(qbs_tmp_base,(-(__STRING_VARIABLEWATCHLIST->len> 0 ))&(-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(12))> 0 ))&((-(*__LONG_MX==(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(0))+*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4))- 1 ))))&((-(*__LONG_MY==*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(12))))))){ -if(qbevent){evnt(26070,7022,"ide_methods.bas");if(r)goto S_44003;} -do{ -*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(16))= 1 ; -if(!qbevent)break;evnt(26070,7023,"ide_methods.bas");}while(r); -S_44005:; -}else{ -if (qbs_cleanup(qbs_tmp_base,(-(__STRING_VARIABLEWATCHLIST->len> 0 ))&(-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(12))> 0 ))&((-(*__LONG_MX==(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(0))+*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4))- 1 ))))&((-(*__LONG_MY==(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(2))+ 1 )))))){ -if(qbevent){evnt(26070,7026,"ide_methods.bas");if(r)goto S_44005;} -do{ -*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(16))= 2 ; -if(!qbevent)break;evnt(26070,7027,"ide_methods.bas");}while(r); -S_44007:; -}else{ -if (qbs_cleanup(qbs_tmp_base,(-(__STRING_VARIABLEWATCHLIST->len> 0 ))&(-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(12))> 0 ))&((-(*__LONG_MX==(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(0))+*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4))- 1 ))))&((-(*__LONG_MY==(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(2))+*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6))- 2 )))))){ -if(qbevent){evnt(26070,7030,"ide_methods.bas");if(r)goto S_44007;} -do{ -*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(16))= 3 ; -if(!qbevent)break;evnt(26070,7031,"ide_methods.bas");}while(r); -S_44009:; -}else{ -if (qbs_cleanup(qbs_tmp_base,(-(__STRING_VARIABLEWATCHLIST->len> 0 ))&(-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(14))> 0 ))&((-(*__LONG_MX==*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(14)))))&((-(*__LONG_MY==(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(2))+*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6))- 1 )))))){ -if(qbevent){evnt(26070,7034,"ide_methods.bas");if(r)goto S_44009;} -do{ -*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(18))= 1 ; -if(!qbevent)break;evnt(26070,7035,"ide_methods.bas");}while(r); -S_44011:; -}else{ -if (qbs_cleanup(qbs_tmp_base,(-(__STRING_VARIABLEWATCHLIST->len> 0 ))&(-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(14))> 0 ))&((-(*__LONG_MX==*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(0)))))&((-(*__LONG_MY==(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(2))+*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6))- 1 )))))){ -if(qbevent){evnt(26070,7038,"ide_methods.bas");if(r)goto S_44011;} -do{ -*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(18))= 2 ; -if(!qbevent)break;evnt(26070,7039,"ide_methods.bas");}while(r); -S_44013:; -}else{ -if (qbs_cleanup(qbs_tmp_base,(-(__STRING_VARIABLEWATCHLIST->len> 0 ))&(-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(14))> 0 ))&((-(*__LONG_MX==(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(0))+*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4))- 2 ))))&((-(*__LONG_MY==(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(2))+*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6))- 1 )))))){ -if(qbevent){evnt(26070,7042,"ide_methods.bas");if(r)goto S_44013;} -do{ -*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(18))= 3 ; -if(!qbevent)break;evnt(26070,7043,"ide_methods.bas");}while(r); -S_44015:; -}else{ -if (qbs_cleanup(qbs_tmp_base,(-(__STRING_VARIABLEWATCHLIST->len> 0 ))&((-(*__LONG_MX==(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(0))+*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4))- 1 ))))&((-(*__LONG_MY==(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(2))+*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6))- 1 )))))){ -if(qbevent){evnt(26070,7046,"ide_methods.bas");if(r)goto S_44015;} -do{ -*(int8*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(33))= -1 ; -if(!qbevent)break;evnt(26070,7047,"ide_methods.bas");}while(r); -S_44017:; -}else{ -if (qbs_cleanup(qbs_tmp_base,(-(__STRING_VARIABLEWATCHLIST->len> 0 ))&(((-(*__LONG_MX>=*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(0))))&(-(*__LONG_MX<=(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(0))+*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4)))))))&(((-(*__LONG_MY>=*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(2))))&(-(*__LONG_MY<=(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(2))+*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6))))))))){ -if(qbevent){evnt(26070,7050,"ide_methods.bas");if(r)goto S_44017;} -do{ -*(int8*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(32))= -1 ; -if(!qbevent)break;evnt(26070,7051,"ide_methods.bas");}while(r); -do{ -*(int8*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(35))= 1 ; -if(!qbevent)break;evnt(26070,7052,"ide_methods.bas");}while(r); -S_44020:; -if ((-(((float)(FUNC_TIMEELAPSEDSINCE(_SUB_DEBUGMODE_SINGLE_LASTPANELCLICK)))<((float)( 0.3E+0 ))))||new_error){ -if(qbevent){evnt(26070,7053,"ide_methods.bas");if(r)goto S_44020;} -do{ -*(int8*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(32))= 0 ; -if(!qbevent)break;evnt(26070,7055,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_MOUSEDOWN= 0 ; -if(!qbevent)break;evnt(26070,7056,"ide_methods.bas");}while(r); -do{ -goto LABEL_REQUESTVARIABLEWATCH; -if(!qbevent)break;evnt(26070,7057,"ide_methods.bas");}while(r); -} -do{ -*_SUB_DEBUGMODE_SINGLE_LASTPANELCLICK=func_timer(NULL,0); -if(!qbevent)break;evnt(26070,7059,"ide_methods.bas");}while(r); -}else{ -do{ -*(int8*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(32))= 0 ; -if(!qbevent)break;evnt(26070,7061,"ide_methods.bas");}while(r); -do{ -*(int8*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(33))= 0 ; -if(!qbevent)break;evnt(26070,7062,"ide_methods.bas");}while(r); -do{ -*(int8*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(34))= 0 ; -if(!qbevent)break;evnt(26070,7063,"ide_methods.bas");}while(r); -do{ -*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(16))= 0 ; -if(!qbevent)break;evnt(26070,7064,"ide_methods.bas");}while(r); -do{ -*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(18))= 0 ; -if(!qbevent)break;evnt(26070,7065,"ide_methods.bas");}while(r); -do{ -*(int8*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(35))= 0 ; -if(!qbevent)break;evnt(26070,7066,"ide_methods.bas");}while(r); -} -} -} -} -} -} -} -} -} -S_44034:; -if ((-(*__LONG_MX==*__LONG_IDEWX))||new_error){ -if(qbevent){evnt(26070,7069,"ide_methods.bas");if(r)goto S_44034;} -S_44035:; -if ((-(*__LONG_MY==FUNC_IDEVBAR(__LONG_IDEWX,&(pass4752= 3 ),&(pass4753=*__LONG_IDEWY- 8 ),__LONG_IDECY,__LONG_IDEN)))||new_error){ -if(qbevent){evnt(26070,7070,"ide_methods.bas");if(r)goto S_44035;} -do{ -*_SUB_DEBUGMODE_LONG_DRAGGINGVTHUMB= -1 ; -if(!qbevent)break;evnt(26070,7071,"ide_methods.bas");}while(r); -}else{ -do{ -*_SUB_DEBUGMODE_LONG_DRAGGINGVTHUMB= 0 ; -if(!qbevent)break;evnt(26070,7073,"ide_methods.bas");}while(r); -} -}else{ -do{ -*_SUB_DEBUGMODE_LONG_DRAGGINGVTHUMB= 0 ; -if(!qbevent)break;evnt(26070,7076,"ide_methods.bas");}while(r); -} -S_44043:; -if ((-(*__LONG_MY==(*__LONG_IDEWY- 5 )))||new_error){ -if(qbevent){evnt(26070,7079,"ide_methods.bas");if(r)goto S_44043;} -S_44044:; -if ((-(*__LONG_MX==FUNC_IDEHBAR(&(pass4754= 2 ),&(pass4755=*__LONG_IDEWY- 5 ),&(pass4756=*__LONG_IDEWX- 2 ),__LONG_IDESX,&(pass4757= 608 ))))||new_error){ -if(qbevent){evnt(26070,7080,"ide_methods.bas");if(r)goto S_44044;} -do{ -*_SUB_DEBUGMODE_LONG_DRAGGINGHTHUMB= -1 ; -if(!qbevent)break;evnt(26070,7081,"ide_methods.bas");}while(r); -}else{ -do{ -*_SUB_DEBUGMODE_LONG_DRAGGINGHTHUMB= 0 ; -if(!qbevent)break;evnt(26070,7083,"ide_methods.bas");}while(r); -} -}else{ -do{ -*_SUB_DEBUGMODE_LONG_DRAGGINGHTHUMB= 0 ; -if(!qbevent)break;evnt(26070,7086,"ide_methods.bas");}while(r); -} -do{ -*_SUB_DEBUGMODE_LONG_MOUSEDOWNONBUTTON= 0 ; -if(!qbevent)break;evnt(26070,7089,"ide_methods.bas");}while(r); -S_44053:; -fornext_value4759= 1 ; -fornext_finalvalue4759=func_ubound(_SUB_DEBUGMODE_ARRAY_UDT_BUTTON,1,1); -fornext_step4759= 1 ; -if (fornext_step4759<0) fornext_step_negative4759=1; else fornext_step_negative4759=0; -if (new_error) goto fornext_error4759; -goto fornext_entrylabel4759; -while(1){ -fornext_value4759=fornext_step4759+(*_SUB_DEBUGMODE_LONG_I); -fornext_entrylabel4759: -*_SUB_DEBUGMODE_LONG_I=fornext_value4759; -if (fornext_step_negative4759){ -if (fornext_value4759fornext_finalvalue4759) break; -} -fornext_error4759:; -if(qbevent){evnt(26070,7090,"ide_methods.bas");if(r)goto S_44053;} -S_44054:; -if (((-(*__LONG_MY==*(int16*)(((char*)_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[0])+((array_check((*_SUB_DEBUGMODE_LONG_I)-_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[4],_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[5]))*16+2))))&(-(*__LONG_MX>=*(int16*)(((char*)_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[0])+((array_check((*_SUB_DEBUGMODE_LONG_I)-_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[4],_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[5]))*16))))&(-(*__LONG_MX<=(*(int16*)(((char*)_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[0])+((array_check((*_SUB_DEBUGMODE_LONG_I)-_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[4],_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[5]))*16))+*(int16*)(((char*)_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[0])+((array_check((*_SUB_DEBUGMODE_LONG_I)-_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[4],_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[5]))*16+4)))))&(-(*(int8*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(32))== 0 ))&(-(*(int8*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(33))== 0 )))||new_error){ -if(qbevent){evnt(26070,7092,"ide_methods.bas");if(r)goto S_44054;} -do{ -*_SUB_DEBUGMODE_LONG_MOUSEDOWNONBUTTON=*_SUB_DEBUGMODE_LONG_I; -if(!qbevent)break;evnt(26070,7093,"ide_methods.bas");}while(r); -do{ -goto fornext_exit_4758; -if(!qbevent)break;evnt(26070,7094,"ide_methods.bas");}while(r); -} -fornext_continue_4758:; -} -fornext_exit_4758:; -}else{ -S_44060:; -if ((-(*_SUB_DEBUGMODE_LONG_DRAGGINGVTHUMB== -1 ))||new_error){ -if(qbevent){evnt(26070,7099,"ide_methods.bas");if(r)goto S_44060;} -S_44061:; -if ((-(*_SUB_DEBUGMODE_LONG_MOUSEDOWNONY!=*__LONG_MY))||new_error){ -if(qbevent){evnt(26070,7100,"ide_methods.bas");if(r)goto S_44061;} -do{ -*_SUB_DEBUGMODE_LONG_MOUSEDOWNONY=*__LONG_MY; -if(!qbevent)break;evnt(26070,7101,"ide_methods.bas");}while(r); -S_44063:; -if ((-(*__LONG_IDEN> 1 ))||new_error){ -if(qbevent){evnt(26070,7102,"ide_methods.bas");if(r)goto S_44063;} -S_44064:; -if ((-(*__LONG_MY<= 4 ))||new_error){ -if(qbevent){evnt(26070,7103,"ide_methods.bas");if(r)goto S_44064;} -do{ -*__LONG_IDECY= 1 ; -if(!qbevent)break;evnt(26070,7103,"ide_methods.bas");}while(r); -} -S_44067:; -if ((-(*__LONG_MY>=(*__LONG_IDEWY- 7 )))||new_error){ -if(qbevent){evnt(26070,7104,"ide_methods.bas");if(r)goto S_44067;} -do{ -*__LONG_IDECY=*__LONG_IDEN; -if(!qbevent)break;evnt(26070,7104,"ide_methods.bas");}while(r); -} -S_44070:; -if (((-(*__LONG_MY> 4 ))&(-(*__LONG_MY<(*__LONG_IDEWY- 7 ))))||new_error){ -if(qbevent){evnt(26070,7105,"ide_methods.bas");if(r)goto S_44070;} -do{ -*_SUB_DEBUGMODE_LONG_Y=*__LONG_MY; -if(!qbevent)break;evnt(26070,7106,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_SINGLE_P=*_SUB_DEBUGMODE_LONG_Y- 3 - 2 + 0.5E+0 ; -if(!qbevent)break;evnt(26070,7107,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_SINGLE_P=*_SUB_DEBUGMODE_SINGLE_P/ ((*__LONG_IDEWY- 8 )- 4 ); -if(!qbevent)break;evnt(26070,7108,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_I=qbr((*_SUB_DEBUGMODE_SINGLE_P*(*__LONG_IDEN- 1 ))+( 1 )); -if(!qbevent)break;evnt(26070,7109,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECY=*_SUB_DEBUGMODE_LONG_I; -if(!qbevent)break;evnt(26070,7110,"ide_methods.bas");}while(r); -} -} -do{ -*__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(26070,7113,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=72; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_UPDATEDISPLAY; -RETURN_72:; -if(!qbevent)break;evnt(26070,7113,"ide_methods.bas");}while(r); -} -} -S_44082:; -if ((-(*_SUB_DEBUGMODE_LONG_DRAGGINGHTHUMB== -1 ))||new_error){ -if(qbevent){evnt(26070,7117,"ide_methods.bas");if(r)goto S_44082;} -S_44083:; -if ((-(*_SUB_DEBUGMODE_LONG_MOUSEDOWNONX!=*__LONG_MX))||new_error){ -if(qbevent){evnt(26070,7118,"ide_methods.bas");if(r)goto S_44083;} -do{ -*_SUB_DEBUGMODE_LONG_MOUSEDOWNONX=*__LONG_MX; -if(!qbevent)break;evnt(26070,7119,"ide_methods.bas");}while(r); -S_44085:; -if ((-(*__LONG_MX<= 3 ))||new_error){ -if(qbevent){evnt(26070,7120,"ide_methods.bas");if(r)goto S_44085;} -do{ -*__LONG_IDESX= 1 ; -if(!qbevent)break;evnt(26070,7120,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECX=*__LONG_IDESX; -if(!qbevent)break;evnt(26070,7120,"ide_methods.bas");}while(r); -} -S_44089:; -if ((-(*__LONG_MX>=(*__LONG_IDEWX- 2 )))||new_error){ -if(qbevent){evnt(26070,7121,"ide_methods.bas");if(r)goto S_44089;} -do{ -*__LONG_IDESX= 608 ; -if(!qbevent)break;evnt(26070,7121,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECX=*__LONG_IDESX; -if(!qbevent)break;evnt(26070,7121,"ide_methods.bas");}while(r); -} -S_44093:; -if (((-(*__LONG_MX> 3 ))&(-(*__LONG_MX<(*__LONG_IDEWX- 2 ))))||new_error){ -if(qbevent){evnt(26070,7122,"ide_methods.bas");if(r)goto S_44093;} -do{ -*_SUB_DEBUGMODE_LONG_X=*__LONG_MX; -if(!qbevent)break;evnt(26070,7123,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_SINGLE_P=*_SUB_DEBUGMODE_LONG_X- 2 - 2 + 0.5E+0 ; -if(!qbevent)break;evnt(26070,7124,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_SINGLE_P=*_SUB_DEBUGMODE_SINGLE_P/ ((*__LONG_IDEWX- 2 )- 4 ); -if(!qbevent)break;evnt(26070,7125,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_I=qbr((*_SUB_DEBUGMODE_SINGLE_P*( 608 - 1 ))+( 1 )); -if(!qbevent)break;evnt(26070,7126,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESX=*_SUB_DEBUGMODE_LONG_I; -if(!qbevent)break;evnt(26070,7127,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECX=*__LONG_IDESX; -if(!qbevent)break;evnt(26070,7128,"ide_methods.bas");}while(r); -} -do{ -return_point[next_return_point++]=73; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_UPDATEDISPLAY; -RETURN_73:; -if(!qbevent)break;evnt(26070,7130,"ide_methods.bas");}while(r); -} -} -do{ -*_SUB_DEBUGMODE_LONG_VWATCHPANELLIMIT=*__LONG_IDEWY- 6 ; -if(!qbevent)break;evnt(26070,7134,"ide_methods.bas");}while(r); -S_44105:; -if ((*(int8*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(32)))||new_error){ -if(qbevent){evnt(26070,7135,"ide_methods.bas");if(r)goto S_44105;} -do{ -*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(0))=*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(0))-(*_SUB_DEBUGMODE_LONG_MOUSEDOWNONX-*__LONG_MX); -if(!qbevent)break;evnt(26070,7136,"ide_methods.bas");}while(r); -do{ -*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(2))=*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(2))-(*_SUB_DEBUGMODE_LONG_MOUSEDOWNONY-*__LONG_MY); -if(!qbevent)break;evnt(26070,7137,"ide_methods.bas");}while(r); -S_44108:; -if ((-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(0))< 2 ))||new_error){ -if(qbevent){evnt(26070,7139,"ide_methods.bas");if(r)goto S_44108;} -do{ -*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(0))= 2 ; -if(!qbevent)break;evnt(26070,7139,"ide_methods.bas");}while(r); -} -S_44111:; -if ((-((*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(0))+*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4)))>(*__LONG_IDEWX- 1 )))||new_error){ -if(qbevent){evnt(26070,7140,"ide_methods.bas");if(r)goto S_44111;} -do{ -*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(0))=*__LONG_IDEWX-*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4))- 1 ; -if(!qbevent)break;evnt(26070,7140,"ide_methods.bas");}while(r); -} -S_44114:; -if ((-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(2))< 3 ))||new_error){ -if(qbevent){evnt(26070,7141,"ide_methods.bas");if(r)goto S_44114;} -do{ -*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(2))= 3 ; -if(!qbevent)break;evnt(26070,7141,"ide_methods.bas");}while(r); -} -S_44117:; -if ((-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(2))>(*_SUB_DEBUGMODE_LONG_VWATCHPANELLIMIT-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6))- 1 ))))||new_error){ -if(qbevent){evnt(26070,7142,"ide_methods.bas");if(r)goto S_44117;} -do{ -*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(2))=*_SUB_DEBUGMODE_LONG_VWATCHPANELLIMIT-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6))- 1 ); -if(!qbevent)break;evnt(26070,7142,"ide_methods.bas");}while(r); -} -S_44120:; -if ((-(*_SUB_DEBUGMODE_LONG_MOUSEDOWNONX!=*__LONG_MX))||new_error){ -if(qbevent){evnt(26070,7144,"ide_methods.bas");if(r)goto S_44120;} -do{ -*(int8*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(35))= 0 ; -if(!qbevent)break;evnt(26070,7144,"ide_methods.bas");}while(r); -} -do{ -*_SUB_DEBUGMODE_LONG_MOUSEDOWNONX=*__LONG_MX; -if(!qbevent)break;evnt(26070,7145,"ide_methods.bas");}while(r); -S_44124:; -if ((-(*_SUB_DEBUGMODE_LONG_MOUSEDOWNONY!=*__LONG_MY))||new_error){ -if(qbevent){evnt(26070,7146,"ide_methods.bas");if(r)goto S_44124;} -do{ -*(int8*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(35))= 0 ; -if(!qbevent)break;evnt(26070,7146,"ide_methods.bas");}while(r); -} -do{ -*_SUB_DEBUGMODE_LONG_MOUSEDOWNONY=*__LONG_MY; -if(!qbevent)break;evnt(26070,7147,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=74; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_UPDATEDISPLAY; -RETURN_74:; -if(!qbevent)break;evnt(26070,7148,"ide_methods.bas");}while(r); -S_44129:; -}else{ -if (*(int8*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(33))){ -if(qbevent){evnt(26070,7149,"ide_methods.bas");if(r)goto S_44129;} -do{ -*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4))=*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4))+(*__LONG_MX-*_SUB_DEBUGMODE_LONG_MOUSEDOWNONX); -if(!qbevent)break;evnt(26070,7150,"ide_methods.bas");}while(r); -do{ -*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6))=*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6))+(*__LONG_MY-*_SUB_DEBUGMODE_LONG_MOUSEDOWNONY); -if(!qbevent)break;evnt(26070,7151,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=75; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_CHECKVWATCHPANELSIZE; -RETURN_75:; -if(!qbevent)break;evnt(26070,7153,"ide_methods.bas");}while(r); -S_44133:; -if (((-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(12))> 0 ))&(-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(8))>(*_SUB_DEBUGMODE_LONG_TOTALVISIBLEVARIABLES-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6))- 2 )+ 1 ))))||new_error){ -if(qbevent){evnt(26070,7155,"ide_methods.bas");if(r)goto S_44133;} -do{ -*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(8))=*_SUB_DEBUGMODE_LONG_TOTALVISIBLEVARIABLES-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6))- 2 )+ 1 ; -if(!qbevent)break;evnt(26070,7156,"ide_methods.bas");}while(r); -} -S_44136:; -if (((-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(14))> 0 ))&(-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(10))>(*(int32*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(24))-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4))- 4 )+ 1 ))))||new_error){ -if(qbevent){evnt(26070,7158,"ide_methods.bas");if(r)goto S_44136;} -do{ -*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(10))=*(int32*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(24))-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4))- 4 )+ 1 ; -if(!qbevent)break;evnt(26070,7159,"ide_methods.bas");}while(r); -} -do{ -*_SUB_DEBUGMODE_LONG_MOUSEDOWNONX=*__LONG_MX; -if(!qbevent)break;evnt(26070,7162,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_MOUSEDOWNONY=*__LONG_MY; -if(!qbevent)break;evnt(26070,7163,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=76; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_UPDATEDISPLAY; -RETURN_76:; -if(!qbevent)break;evnt(26070,7164,"ide_methods.bas");}while(r); -S_44142:; -}else{ -if (-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(16))== 1 )){ -if(qbevent){evnt(26070,7165,"ide_methods.bas");if(r)goto S_44142;} -do{ -*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(8))=qbr_float_to_long(floor(FUNC_MAP(&(pass4760=*__LONG_MY),&(pass4761=*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(2))+ 2 ),&(pass4762=*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(2))+*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6))- 2 ),&(pass4763= 1 ),&(pass4764=*_SUB_DEBUGMODE_LONG_TOTALVISIBLEVARIABLES-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6))- 2 )+ 1 )))); -if(!qbevent)break;evnt(26070,7166,"ide_methods.bas");}while(r); -S_44144:; -if ((-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(8))< 1 ))||new_error){ -if(qbevent){evnt(26070,7167,"ide_methods.bas");if(r)goto S_44144;} -do{ -*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(8))= 1 ; -if(!qbevent)break;evnt(26070,7167,"ide_methods.bas");}while(r); -} -S_44147:; -if ((-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(8))>(*_SUB_DEBUGMODE_LONG_TOTALVISIBLEVARIABLES-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6))- 2 )+ 1 )))||new_error){ -if(qbevent){evnt(26070,7168,"ide_methods.bas");if(r)goto S_44147;} -do{ -*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(8))=*_SUB_DEBUGMODE_LONG_TOTALVISIBLEVARIABLES-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6))- 2 )+ 1 ; -if(!qbevent)break;evnt(26070,7169,"ide_methods.bas");}while(r); -} -do{ -return_point[next_return_point++]=77; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_UPDATEDISPLAY; -RETURN_77:; -if(!qbevent)break;evnt(26070,7171,"ide_methods.bas");}while(r); -S_44151:; -}else{ -if (-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(18))== 1 )){ -if(qbevent){evnt(26070,7172,"ide_methods.bas");if(r)goto S_44151;} -do{ -*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(10))=qbr_float_to_long(floor(FUNC_MAP(&(pass4765=*__LONG_MX),&(pass4766=*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(0))),&(pass4767=*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(0))+*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4))- 2 ),&(pass4768= 1 ),&(pass4769=*(int32*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(24))-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4))- 4 )+ 1 )))); -if(!qbevent)break;evnt(26070,7173,"ide_methods.bas");}while(r); -S_44153:; -if ((-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(10))< 1 ))||new_error){ -if(qbevent){evnt(26070,7174,"ide_methods.bas");if(r)goto S_44153;} -do{ -*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(10))= 1 ; -if(!qbevent)break;evnt(26070,7174,"ide_methods.bas");}while(r); -} -S_44156:; -if ((-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(10))>(*(int32*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(24))-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4))- 4 )+ 1 )))||new_error){ -if(qbevent){evnt(26070,7175,"ide_methods.bas");if(r)goto S_44156;} -do{ -*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(10))=*(int32*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(24))-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4))- 4 )+ 1 ; -if(!qbevent)break;evnt(26070,7176,"ide_methods.bas");}while(r); -} -do{ -return_point[next_return_point++]=78; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_UPDATEDISPLAY; -RETURN_78:; -if(!qbevent)break;evnt(26070,7178,"ide_methods.bas");}while(r); -} -} -} -} -} -}else{ -S_44163:; -if ((-(*(int8*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(35))== 1 ))||new_error){ -if(qbevent){evnt(26070,7182,"ide_methods.bas");if(r)goto S_44163;} -do{ -*(int8*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(35))= 2 ; -if(!qbevent)break;evnt(26070,7183,"ide_methods.bas");}while(r); -} -S_44166:; -if ((*(int8*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(32)))||new_error){ -if(qbevent){evnt(26070,7187,"ide_methods.bas");if(r)goto S_44166;} -do{ -*(int8*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(32))= 0 ; -if(!qbevent)break;evnt(26070,7188,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_MOUSEDOWN= 0 ; -if(!qbevent)break;evnt(26070,7188,"ide_methods.bas");}while(r); -do{ -SUB_WRITESETTING(qbs_new_txt_len(".\\internal\\temp\\debug.ini",25),qbs_new_txt_len("settings",8),qbs_new_txt_len("vWatchPanel.x",13),FUNC_STR2(&(pass4770=*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(0))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7189,"ide_methods.bas");}while(r); -do{ -SUB_WRITESETTING(qbs_new_txt_len(".\\internal\\temp\\debug.ini",25),qbs_new_txt_len("settings",8),qbs_new_txt_len("vWatchPanel.y",13),FUNC_STR2(&(pass4771=*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(2))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7190,"ide_methods.bas");}while(r); -} -S_44172:; -if ((*(int8*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(33)))||new_error){ -if(qbevent){evnt(26070,7192,"ide_methods.bas");if(r)goto S_44172;} -do{ -*(int8*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(33))= 0 ; -if(!qbevent)break;evnt(26070,7193,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_MOUSEDOWN= 0 ; -if(!qbevent)break;evnt(26070,7193,"ide_methods.bas");}while(r); -do{ -SUB_WRITESETTING(qbs_new_txt_len(".\\internal\\temp\\debug.ini",25),qbs_new_txt_len("settings",8),qbs_new_txt_len("vWatchPanel.w",13),FUNC_STR2(&(pass4772=*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7194,"ide_methods.bas");}while(r); -do{ -SUB_WRITESETTING(qbs_new_txt_len(".\\internal\\temp\\debug.ini",25),qbs_new_txt_len("settings",8),qbs_new_txt_len("vWatchPanel.h",13),FUNC_STR2(&(pass4773=*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7195,"ide_methods.bas");}while(r); -} -S_44178:; -if ((*(int8*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(34))&((-(*__LONG_MX==*_SUB_DEBUGMODE_LONG_MOUSEDOWNONX))&(-(*__LONG_MY==*_SUB_DEBUGMODE_LONG_MOUSEDOWNONY))))||new_error){ -if(qbevent){evnt(26070,7197,"ide_methods.bas");if(r)goto S_44178;} -do{ -*(int8*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(34))= 0 ; -if(!qbevent)break;evnt(26070,7198,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_MOUSEDOWN= 0 ; -if(!qbevent)break;evnt(26070,7199,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_BYTE_PANELACTIVE= 0 ; -if(!qbevent)break;evnt(26070,7200,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("$DEBUG MODE",11),qbs_new_txt_len("Close Watch Panel",17),qbs_new_txt_len("#Keep Variables;#Clear List",27)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7201,"ide_methods.bas");}while(r); -S_44183:; -if ((-(*_SUB_DEBUGMODE_LONG_RESULT== 2 ))||new_error){ -if(qbevent){evnt(26070,7202,"ide_methods.bas");if(r)goto S_44183;} -do{ -qbs_set(__STRING_VARIABLEWATCHLIST,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7203,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_BACKUPVARIABLEWATCHLIST,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7204,"ide_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26070,6708,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_I= 0 ; +if(!qbevent)break;evnt(26070,6709,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_I=*_SUB_DEBUGMODE_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,6710,"ide_methods.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[0])+((array_check((*_SUB_DEBUGMODE_LONG_I)-_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[4],_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[5]))*16+8))),qbs_new_txt_len("",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6710,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_I=*_SUB_DEBUGMODE_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,6711,"ide_methods.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[0])+((array_check((*_SUB_DEBUGMODE_LONG_I)-_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[4],_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[5]))*16+8))),qbs_new_txt_len("",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6711,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_I=*_SUB_DEBUGMODE_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,6712,"ide_methods.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[0])+((array_check((*_SUB_DEBUGMODE_LONG_I)-_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[4],_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[5]))*16+8))),qbs_new_txt_len("",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6712,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_I=*_SUB_DEBUGMODE_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,6713,"ide_methods.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[0])+((array_check((*_SUB_DEBUGMODE_LONG_I)-_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[4],_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[5]))*16+8))),qbs_new_txt_len("",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6713,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_I=*_SUB_DEBUGMODE_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,6714,"ide_methods.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[0])+((array_check((*_SUB_DEBUGMODE_LONG_I)-_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[4],_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[5]))*16+8))),qbs_new_txt_len("",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6714,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_I=*_SUB_DEBUGMODE_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,6715,"ide_methods.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[0])+((array_check((*_SUB_DEBUGMODE_LONG_I)-_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[4],_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[5]))*16+8))),qbs_new_txt_len("",24)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6715,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_I=*_SUB_DEBUGMODE_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,6716,"ide_methods.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[0])+((array_check((*_SUB_DEBUGMODE_LONG_I)-_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[4],_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[5]))*16+8))),qbs_new_txt_len("",29)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6716,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_I=*_SUB_DEBUGMODE_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,6717,"ide_methods.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[0])+((array_check((*_SUB_DEBUGMODE_LONG_I)-_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[4],_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[5]))*16+8))),qbs_new_txt_len("",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6717,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_Y=(*__LONG_IDEWY- 4 )+ 2 ; +if(!qbevent)break;evnt(26070,6718,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_X= 2 ; +if(!qbevent)break;evnt(26070,6719,"ide_methods.bas");}while(r); +S_43696:; +fornext_value4676= 1 ; +fornext_finalvalue4676=func_ubound(_SUB_DEBUGMODE_ARRAY_UDT_BUTTON,1,1); +fornext_step4676= 1 ; +if (fornext_step4676<0) fornext_step_negative4676=1; else fornext_step_negative4676=0; +if (new_error) goto fornext_error4676; +goto fornext_entrylabel4676; +while(1){ +fornext_value4676=fornext_step4676+(*_SUB_DEBUGMODE_LONG_I); +fornext_entrylabel4676: +*_SUB_DEBUGMODE_LONG_I=fornext_value4676; +if (fornext_step_negative4676){ +if (fornext_value4676fornext_finalvalue4676) break; +} +fornext_error4676:; +if(qbevent){evnt(26070,6720,"ide_methods.bas");if(r)goto S_43696;} +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[0])+((array_check((*_SUB_DEBUGMODE_LONG_I)-_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[4],_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[5]))*16))=*_SUB_DEBUGMODE_LONG_X; +if(!qbevent)break;evnt(26070,6721,"ide_methods.bas");}while(r); +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[0])+((array_check((*_SUB_DEBUGMODE_LONG_I)-_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[4],_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[5]))*16+2))=*_SUB_DEBUGMODE_LONG_Y; +if(!qbevent)break;evnt(26070,6722,"ide_methods.bas");}while(r); +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[0])+((array_check((*_SUB_DEBUGMODE_LONG_I)-_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[4],_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[5]))*16+4))=(*(qbs**)(((char*)_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[0])+((array_check((*_SUB_DEBUGMODE_LONG_I)-_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[4],_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[5]))*16+8)))->len; +if(!qbevent)break;evnt(26070,6723,"ide_methods.bas");}while(r); +S_43700:; +if ((-(*_SUB_DEBUGMODE_LONG_Ilen)>(*__LONG_IDEWX- 1 ))))||new_error){ +if(qbevent){evnt(26070,6726,"ide_methods.bas");if(r)goto S_43702;} +do{ +*_SUB_DEBUGMODE_LONG_Y=*_SUB_DEBUGMODE_LONG_Y+ 1 ; +if(!qbevent)break;evnt(26070,6727,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_X= 2 ; +if(!qbevent)break;evnt(26070,6728,"ide_methods.bas");}while(r); +} +} +fornext_continue_4675:; +} +fornext_exit_4675:; +S_43708:; +sc_4677_var=0; +if(qbevent){evnt(26070,6733,"ide_methods.bas");if(r)goto S_43708;} +S_43709:; +if (((*__LONG_IDEDEBUGMODE==( 1 )))||new_error){ +if(qbevent){evnt(26070,6734,"ide_methods.bas");if(r)goto S_43709;} +do{ +*_SUB_DEBUGMODE_BYTE_PAUSEMODE= 0 ; +if(!qbevent)break;evnt(26070,6735,"ide_methods.bas");}while(r); +do{ +*__LONG_CALLSTACKLENGTH= 0 ; +if(!qbevent)break;evnt(26070,6736,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_CALLSTACKLIST,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6737,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_BUFFER,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6738,"ide_methods.bas");}while(r); +do{ +*__LONG_DEBUGCLIENT= 0 ; +if(!qbevent)break;evnt(26070,6739,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_DEBUGGEEPID= 0 ; +if(!qbevent)break;evnt(26070,6740,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_BYTE_PANELACTIVE= -1 ; +if(!qbevent)break;evnt(26070,6742,"ide_methods.bas");}while(r); +do{ +SUB_SHOWVWATCHPANEL((void*)( ((char*)(_SUB_DEBUGMODE_UDT_VWATCHPANEL)) + (0) ),qbs_new_txt_len("",0),&(pass4678= 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6743,"ide_methods.bas");}while(r); +S_43718:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_VARIABLEWATCHLIST->len== 0 )))||new_error){ +if(qbevent){evnt(26070,6745,"ide_methods.bas");if(r)goto S_43718;} +do{ +*_SUB_DEBUGMODE_LONG_TOTALVISIBLEVARIABLES= 0 ; +if(!qbevent)break;evnt(26070,6746,"ide_methods.bas");}while(r); +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6))= 5 ; +if(!qbevent)break;evnt(26070,6747,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_DEBUGMODE_STRING_RESULT,FUNC_IDEVARIABLEWATCHBOX(qbs_new_txt_len("",0),qbs_new_txt_len("",0),&(pass4680= -1 ),&(pass4681= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6752,"ide_methods.bas");}while(r); +} +do{ +qbs_set(__STRING_WATCHPOINTLIST,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6755,"ide_methods.bas");}while(r); +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4))= 40 ; +if(!qbevent)break;evnt(26070,6756,"ide_methods.bas");}while(r); +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(0))=*__LONG_IDEWX-*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4))- 6 ; +if(!qbevent)break;evnt(26070,6757,"ide_methods.bas");}while(r); +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(2))= 4 ; +if(!qbevent)break;evnt(26070,6758,"ide_methods.bas");}while(r); +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(8))= 1 ; +if(!qbevent)break;evnt(26070,6759,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_X=qbr(func_val(FUNC_READSETTING(qbs_new_txt_len(".\\internal\\temp\\debug.ini",25),qbs_new_txt_len("settings",8),qbs_new_txt_len("vWatchPanel.w",13)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6761,"ide_methods.bas");}while(r); +S_43730:; +if ((*_SUB_DEBUGMODE_LONG_X)||new_error){ +if(qbevent){evnt(26070,6762,"ide_methods.bas");if(r)goto S_43730;} +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4))=*_SUB_DEBUGMODE_LONG_X; +if(!qbevent)break;evnt(26070,6762,"ide_methods.bas");}while(r); +} +do{ +*_SUB_DEBUGMODE_LONG_X=qbr(func_val(FUNC_READSETTING(qbs_new_txt_len(".\\internal\\temp\\debug.ini",25),qbs_new_txt_len("settings",8),qbs_new_txt_len("vWatchPanel.h",13)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6764,"ide_methods.bas");}while(r); +S_43734:; +if ((*_SUB_DEBUGMODE_LONG_X)||new_error){ +if(qbevent){evnt(26070,6765,"ide_methods.bas");if(r)goto S_43734;} +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6))=*_SUB_DEBUGMODE_LONG_X; +if(!qbevent)break;evnt(26070,6765,"ide_methods.bas");}while(r); +} +do{ +*_SUB_DEBUGMODE_LONG_X=qbr(func_val(FUNC_READSETTING(qbs_new_txt_len(".\\internal\\temp\\debug.ini",25),qbs_new_txt_len("settings",8),qbs_new_txt_len("vWatchPanel.x",13)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6767,"ide_methods.bas");}while(r); +S_43738:; +if ((*_SUB_DEBUGMODE_LONG_X)||new_error){ +if(qbevent){evnt(26070,6768,"ide_methods.bas");if(r)goto S_43738;} +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(0))=*_SUB_DEBUGMODE_LONG_X; +if(!qbevent)break;evnt(26070,6768,"ide_methods.bas");}while(r); +} +do{ +*_SUB_DEBUGMODE_LONG_X=qbr(func_val(FUNC_READSETTING(qbs_new_txt_len(".\\internal\\temp\\debug.ini",25),qbs_new_txt_len("settings",8),qbs_new_txt_len("vWatchPanel.y",13)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6770,"ide_methods.bas");}while(r); +S_43742:; +if ((*_SUB_DEBUGMODE_LONG_X)||new_error){ +if(qbevent){evnt(26070,6771,"ide_methods.bas");if(r)goto S_43742;} +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(2))=*_SUB_DEBUGMODE_LONG_X; +if(!qbevent)break;evnt(26070,6771,"ide_methods.bas");}while(r); +} +do{ +return_point[next_return_point++]=56; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_CHECKVWATCHPANELSIZE; +RETURN_56:; +if(!qbevent)break;evnt(26070,6773,"ide_methods.bas");}while(r); +sc_ec_228_end:; +sc_4677_var=-1; +} +S_43746:; +if (((*__LONG_IDEDEBUGMODE>( 1 )))||new_error){ +if(qbevent){evnt(26070,6774,"ide_methods.bas");if(r)goto S_43746;} +do{ +*_SUB_DEBUGMODE_BYTE_NOFOCUSMESSAGE=~(*_SUB_DEBUGMODE_BYTE_NOFOCUSMESSAGE); +if(!qbevent)break;evnt(26070,6775,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=57; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATESTATUSAREA; +RETURN_57:; +if(!qbevent)break;evnt(26070,6776,"ide_methods.bas");}while(r); +do{ +SUB_CLEARSTATUSWINDOW(&(pass4682= 1 )); +if(!qbevent)break;evnt(26070,6777,"ide_methods.bas");}while(r); +do{ +SUB_SETSTATUSMESSAGE(&(pass4683= 1 ),qbs_new_txt_len("Paused.",7),&(pass4684= 2 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6778,"ide_methods.bas");}while(r); +sc_ec_229_end:; +sc_4677_var=-1; +} +S_43751:; +if (((*__LONG_IDEDEBUGMODE==( 2 )))||new_error){ +if(qbevent){evnt(26070,6779,"ide_methods.bas");if(r)goto S_43751;} +do{ +*__LONG_IDEDEBUGMODE= 1 ; +if(!qbevent)break;evnt(26070,6779,"ide_methods.bas");}while(r); +do{ +goto LABEL_RETURNFROMCONTEXTMENU; +if(!qbevent)break;evnt(26070,6779,"ide_methods.bas");}while(r); +sc_ec_230_end:; +sc_4677_var=-1; +} +S_43754:; +if (((*__LONG_IDEDEBUGMODE==( 3 )))||new_error){ +if(qbevent){evnt(26070,6780,"ide_methods.bas");if(r)goto S_43754;} +do{ +*__LONG_IDEDEBUGMODE= 1 ; +if(!qbevent)break;evnt(26070,6780,"ide_methods.bas");}while(r); +do{ +goto LABEL_REQUESTCALLSTACK; +if(!qbevent)break;evnt(26070,6780,"ide_methods.bas");}while(r); +sc_ec_231_end:; +sc_4677_var=-1; +} +S_43757:; +if (((*__LONG_IDEDEBUGMODE==( 4 )))||new_error){ +if(qbevent){evnt(26070,6781,"ide_methods.bas");if(r)goto S_43757;} +do{ +*__LONG_IDEDEBUGMODE= 1 ; +if(!qbevent)break;evnt(26070,6781,"ide_methods.bas");}while(r); +do{ +goto LABEL_REQUESTCONTINUE; +if(!qbevent)break;evnt(26070,6781,"ide_methods.bas");}while(r); +sc_ec_232_end:; +sc_4677_var=-1; +} +S_43760:; +if (((*__LONG_IDEDEBUGMODE==( 5 )))||new_error){ +if(qbevent){evnt(26070,6782,"ide_methods.bas");if(r)goto S_43760;} +do{ +*__LONG_IDEDEBUGMODE= 1 ; +if(!qbevent)break;evnt(26070,6782,"ide_methods.bas");}while(r); +do{ +goto LABEL_REQUESTSTEPOUT; +if(!qbevent)break;evnt(26070,6782,"ide_methods.bas");}while(r); +sc_ec_233_end:; +sc_4677_var=-1; +} +S_43763:; +if (((*__LONG_IDEDEBUGMODE==( 6 )))||new_error){ +if(qbevent){evnt(26070,6783,"ide_methods.bas");if(r)goto S_43763;} +do{ +*__LONG_IDEDEBUGMODE= 1 ; +if(!qbevent)break;evnt(26070,6783,"ide_methods.bas");}while(r); +do{ +goto LABEL_REQUESTSTEPOVER; +if(!qbevent)break;evnt(26070,6783,"ide_methods.bas");}while(r); +sc_ec_234_end:; +sc_4677_var=-1; +} +S_43766:; +if (((*__LONG_IDEDEBUGMODE==( 7 )))||new_error){ +if(qbevent){evnt(26070,6784,"ide_methods.bas");if(r)goto S_43766;} +do{ +*__LONG_IDEDEBUGMODE= 1 ; +if(!qbevent)break;evnt(26070,6784,"ide_methods.bas");}while(r); +do{ +goto LABEL_REQUESTSTEPINTO; +if(!qbevent)break;evnt(26070,6784,"ide_methods.bas");}while(r); +sc_ec_235_end:; +sc_4677_var=-1; +} +S_43769:; +if (((*__LONG_IDEDEBUGMODE==( 8 )))||new_error){ +if(qbevent){evnt(26070,6785,"ide_methods.bas");if(r)goto S_43769;} +do{ +*__LONG_IDEDEBUGMODE= 1 ; +if(!qbevent)break;evnt(26070,6786,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_RESULT=*__LONG_IDECY; +if(!qbevent)break;evnt(26070,6787,"ide_methods.bas");}while(r); +do{ +goto LABEL_REQUESTRUNTOTHISLINE; +if(!qbevent)break;evnt(26070,6788,"ide_methods.bas");}while(r); +sc_ec_236_end:; +sc_4677_var=-1; +} +S_43773:; +if (((*__LONG_IDEDEBUGMODE==( 9 )))||new_error){ +if(qbevent){evnt(26070,6789,"ide_methods.bas");if(r)goto S_43773;} +do{ +*__LONG_IDEDEBUGMODE= 1 ; +if(!qbevent)break;evnt(26070,6789,"ide_methods.bas");}while(r); +do{ +goto LABEL_REQUESTQUIT; +if(!qbevent)break;evnt(26070,6789,"ide_methods.bas");}while(r); +sc_ec_237_end:; +sc_4677_var=-1; +} +S_43776:; +if (((*__LONG_IDEDEBUGMODE==( 10 )))||new_error){ +if(qbevent){evnt(26070,6790,"ide_methods.bas");if(r)goto S_43776;} +do{ +*__LONG_IDEDEBUGMODE= 1 ; +if(!qbevent)break;evnt(26070,6790,"ide_methods.bas");}while(r); +do{ +goto LABEL_REQUESTTOGGLEBREAKPOINT; +if(!qbevent)break;evnt(26070,6790,"ide_methods.bas");}while(r); +sc_ec_238_end:; +sc_4677_var=-1; +} +S_43779:; +if (((*__LONG_IDEDEBUGMODE==( 11 )))||new_error){ +if(qbevent){evnt(26070,6791,"ide_methods.bas");if(r)goto S_43779;} +do{ +*__LONG_IDEDEBUGMODE= 1 ; +if(!qbevent)break;evnt(26070,6791,"ide_methods.bas");}while(r); +do{ +goto LABEL_REQUESTCLEARBREAKPOINTS; +if(!qbevent)break;evnt(26070,6791,"ide_methods.bas");}while(r); +sc_ec_239_end:; +sc_4677_var=-1; +} +S_43782:; +if (((*__LONG_IDEDEBUGMODE==( 12 )))||new_error){ +if(qbevent){evnt(26070,6792,"ide_methods.bas");if(r)goto S_43782;} +do{ +*__LONG_IDEDEBUGMODE= 1 ; +if(!qbevent)break;evnt(26070,6793,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_RESULT=*__LONG_IDECY; +if(!qbevent)break;evnt(26070,6794,"ide_methods.bas");}while(r); +do{ +goto LABEL_REQUESTTOGGLESKIPLINE; +if(!qbevent)break;evnt(26070,6795,"ide_methods.bas");}while(r); +sc_ec_240_end:; +sc_4677_var=-1; +} +S_43786:; +if (((*__LONG_IDEDEBUGMODE==( 13 )))||new_error){ +if(qbevent){evnt(26070,6796,"ide_methods.bas");if(r)goto S_43786;} +do{ +*__LONG_IDEDEBUGMODE= 1 ; +if(!qbevent)break;evnt(26070,6797,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_RESULT=*__LONG_IDECY; +if(!qbevent)break;evnt(26070,6798,"ide_methods.bas");}while(r); +do{ +goto LABEL_REQUESTSETNEXTLINE; +if(!qbevent)break;evnt(26070,6799,"ide_methods.bas");}while(r); +sc_ec_241_end:; +sc_4677_var=-1; +} +S_43790:; +if (((*__LONG_IDEDEBUGMODE==( 14 )))||new_error){ +if(qbevent){evnt(26070,6800,"ide_methods.bas");if(r)goto S_43790;} +do{ +*__LONG_IDEDEBUGMODE= 1 ; +if(!qbevent)break;evnt(26070,6800,"ide_methods.bas");}while(r); +do{ +goto LABEL_REQUESTSUBSDIALOG; +if(!qbevent)break;evnt(26070,6800,"ide_methods.bas");}while(r); +sc_ec_242_end:; +sc_4677_var=-1; +} +S_43793:; +if (((*__LONG_IDEDEBUGMODE==( 15 )))||new_error){ +if(qbevent){evnt(26070,6801,"ide_methods.bas");if(r)goto S_43793;} +do{ +*__LONG_IDEDEBUGMODE= 1 ; +if(!qbevent)break;evnt(26070,6801,"ide_methods.bas");}while(r); +do{ +goto LABEL_REQUESTUNSKIPALLLINES; +if(!qbevent)break;evnt(26070,6801,"ide_methods.bas");}while(r); +sc_ec_243_end:; +sc_4677_var=-1; +} +S_43796:; +if (((*__LONG_IDEDEBUGMODE==( 16 )))||new_error){ +if(qbevent){evnt(26070,6802,"ide_methods.bas");if(r)goto S_43796;} +do{ +*__LONG_IDEDEBUGMODE= 1 ; +if(!qbevent)break;evnt(26070,6802,"ide_methods.bas");}while(r); +do{ +goto LABEL_REQUESTVARIABLEWATCH; +if(!qbevent)break;evnt(26070,6802,"ide_methods.bas");}while(r); +sc_ec_244_end:; +} +sc_4677_end:; +do{ +*_SUB_DEBUGMODE_LONG_DUMMY=FUNC_DARKENFGBG(&(pass4685= 1 )); +if(!qbevent)break;evnt(26070,6805,"ide_methods.bas");}while(r); +do{ +SUB_CLEARSTATUSWINDOW(&(pass4686= 0 )); +if(!qbevent)break;evnt(26070,6806,"ide_methods.bas");}while(r); +do{ +SUB_SETSTATUSMESSAGE(&(pass4687= 1 ),qbs_new_txt_len("Entering $DEBUG mode (ESC to abort)...",38),&(pass4688= 15 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6807,"ide_methods.bas");}while(r); +S_43803:; +if ((-(*__LONG_HOST== 0 ))||new_error){ +if(qbevent){evnt(26070,6809,"ide_methods.bas");if(r)goto S_43803;} +do{ +*__LONG_HOST=func__openhost(qbs_add(qbs_new_txt_len("TCP/IP:",7),__STRING_HOSTPORT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6810,"ide_methods.bas");}while(r); +S_43805:; +if ((-(*__LONG_HOST== 0 ))||new_error){ +if(qbevent){evnt(26070,6811,"ide_methods.bas");if(r)goto S_43805;} +do{ +*_SUB_DEBUGMODE_LONG_DUMMY=FUNC_DARKENFGBG(&(pass4689= 0 )); +if(!qbevent)break;evnt(26070,6812,"ide_methods.bas");}while(r); +do{ +SUB_CLEARSTATUSWINDOW(&(pass4690= 1 )); +if(!qbevent)break;evnt(26070,6813,"ide_methods.bas");}while(r); +do{ +SUB_SETSTATUSMESSAGE(&(pass4691= 1 ),qbs_new_txt_len("Failed to initiate debug session.",33),&(pass4692= 7 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6814,"ide_methods.bas");}while(r); +do{ +SUB_SETSTATUSMESSAGE(&(pass4693= 2 ),qbs_add(qbs_add(qbs_new_txt_len("Cannot receive connections on port",34),qbs_str((int32)(*__LONG_IDEBASETCPPORT))),qbs_new_txt_len(". Check your firewall permissions.",34)),&(pass4694= 2 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6815,"ide_methods.bas");}while(r); +S_43810:; +while((func__mouseinput(NULL,0))||new_error){ +if(qbevent){evnt(26070,6816,"ide_methods.bas");if(r)goto S_43810;} +ww_continue_4695:; +} +ww_exit_4695:; +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,6817,"ide_methods.bas");}while(r); +} +} +do{ +*_SUB_DEBUGMODE_SINGLE_START=func_timer(NULL,0); +if(!qbevent)break;evnt(26070,6822,"ide_methods.bas");}while(r); +S_43816:; +do{ +if(qbevent){evnt(26070,6823,"ide_methods.bas");if(r)goto S_43816;} +do{ +*__LONG_DEBUGCLIENT=func__openconnection(*__LONG_HOST); +if(!qbevent)break;evnt(26070,6824,"ide_methods.bas");}while(r); +S_43818:; +if ((*__LONG_DEBUGCLIENT)||new_error){ +if(qbevent){evnt(26070,6825,"ide_methods.bas");if(r)goto S_43818;} +do{ +goto dl_exit_4696; +if(!qbevent)break;evnt(26070,6825,"ide_methods.bas");}while(r); +} +do{ +*_SUB_DEBUGMODE_LONG_K=func__keyhit(); +if(!qbevent)break;evnt(26070,6827,"ide_methods.bas");}while(r); +S_43822:; +if (((-(*_SUB_DEBUGMODE_LONG_K== 27 ))|(-((func_timer(NULL,0)-*_SUB_DEBUGMODE_SINGLE_START)>*_SUB_DEBUGMODE_LONG_TIMEOUT)))||new_error){ +if(qbevent){evnt(26070,6828,"ide_methods.bas");if(r)goto S_43822;} +do{ +*_SUB_DEBUGMODE_LONG_DUMMY=FUNC_DARKENFGBG(&(pass4697= 0 )); +if(!qbevent)break;evnt(26070,6829,"ide_methods.bas");}while(r); +do{ +SUB_CLEARSTATUSWINDOW(&(pass4698= 0 )); +if(!qbevent)break;evnt(26070,6830,"ide_methods.bas");}while(r); +do{ +SUB_SETSTATUSMESSAGE(&(pass4699= 1 ),qbs_add(_SUB_DEBUGMODE_STRING_TEMP,qbs_new_txt_len("Debug session aborted.",22)),&(pass4700= 7 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6831,"ide_methods.bas");}while(r); +S_43826:; +if ((-(*_SUB_DEBUGMODE_LONG_K!= 27 ))||new_error){ +if(qbevent){evnt(26070,6832,"ide_methods.bas");if(r)goto S_43826;} +do{ +SUB_SETSTATUSMESSAGE(&(pass4701= 2 ),qbs_new_txt_len("Connection timeout.",19),&(pass4702= 2 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6833,"ide_methods.bas");}while(r); +} +do{ +sub__keyclear(NULL,0); +if(!qbevent)break;evnt(26070,6835,"ide_methods.bas");}while(r); +S_43830:; +while((func__mouseinput(NULL,0))||new_error){ +if(qbevent){evnt(26070,6836,"ide_methods.bas");if(r)goto S_43830;} +ww_continue_4703:; +} +ww_exit_4703:; +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,6837,"ide_methods.bas");}while(r); +} +do{ +sub__limit( 100 ); +if(!qbevent)break;evnt(26070,6840,"ide_methods.bas");}while(r); +dl_continue_4696:; +}while(1); +dl_exit_4696:; +do{ +*__LONG_IDESELECT= 0 ; +if(!qbevent)break;evnt(26070,6843,"ide_methods.bas");}while(r); +do{ +SUB_CLEARSTATUSWINDOW(&(pass4704= 1 )); +if(!qbevent)break;evnt(26070,6844,"ide_methods.bas");}while(r); +do{ +SUB_SETSTATUSMESSAGE(&(pass4705= 1 ),qbs_new_txt_len("Handshaking...",14),&(pass4706= 15 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6845,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_SINGLE_START=func_timer(NULL,0); +if(!qbevent)break;evnt(26070,6847,"ide_methods.bas");}while(r); +S_43840:; +do{ +if(qbevent){evnt(26070,6848,"ide_methods.bas");if(r)goto S_43840;} +do{ +*_SUB_DEBUGMODE_LONG_K=func__keyhit(); +if(!qbevent)break;evnt(26070,6849,"ide_methods.bas");}while(r); +S_43842:; +if (((-(*_SUB_DEBUGMODE_LONG_K== 27 ))|(-((func_timer(NULL,0)-*_SUB_DEBUGMODE_SINGLE_START)>*_SUB_DEBUGMODE_LONG_TIMEOUT)))||new_error){ +if(qbevent){evnt(26070,6850,"ide_methods.bas");if(r)goto S_43842;} +do{ +*_SUB_DEBUGMODE_LONG_DUMMY=FUNC_DARKENFGBG(&(pass4708= 0 )); +if(!qbevent)break;evnt(26070,6851,"ide_methods.bas");}while(r); +do{ +SUB_CLEARSTATUSWINDOW(&(pass4709= 0 )); +if(!qbevent)break;evnt(26070,6852,"ide_methods.bas");}while(r); +do{ +SUB_SETSTATUSMESSAGE(&(pass4710= 1 ),qbs_add(_SUB_DEBUGMODE_STRING_TEMP,qbs_new_txt_len("Debug session aborted.",22)),&(pass4711= 7 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6853,"ide_methods.bas");}while(r); +S_43846:; +if ((-(*_SUB_DEBUGMODE_LONG_K!= 27 ))||new_error){ +if(qbevent){evnt(26070,6854,"ide_methods.bas");if(r)goto S_43846;} +do{ +SUB_SETSTATUSMESSAGE(&(pass4712= 2 ),qbs_new_txt_len("Connection timeout.",19),&(pass4713= 2 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6855,"ide_methods.bas");}while(r); +} +do{ +sub__keyclear(NULL,0); +if(!qbevent)break;evnt(26070,6857,"ide_methods.bas");}while(r); +S_43850:; +while((func__mouseinput(NULL,0))||new_error){ +if(qbevent){evnt(26070,6858,"ide_methods.bas");if(r)goto S_43850;} +ww_continue_4714:; +} +ww_exit_4714:; +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,6859,"ide_methods.bas");}while(r); +} +do{ +return_point[next_return_point++]=58; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_GETCOMMAND; +RETURN_58:; +if(!qbevent)break;evnt(26070,6862,"ide_methods.bas");}while(r); +S_43855:; +if(qbevent){evnt(26070,6863,"ide_methods.bas");if(r)goto S_43855;} +S_43856:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("me",2))))||new_error){ +if(qbevent){evnt(26070,6864,"ide_methods.bas");if(r)goto S_43856;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_PROGRAM,_SUB_DEBUGMODE_STRING_VALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6865,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_EXPECTED,__STRING_LASTBINARYGENERATED); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6866,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_P,FUNC_IDEZTAKEPATH(_SUB_DEBUGMODE_STRING_PROGRAM)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6867,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_P,FUNC_IDEZTAKEPATH(_SUB_DEBUGMODE_STRING_EXPECTED)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6868,"ide_methods.bas");}while(r); +S_43861:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_DEBUGMODE_STRING_PROGRAM,_SUB_DEBUGMODE_STRING_EXPECTED)))||new_error){ +if(qbevent){evnt(26070,6870,"ide_methods.bas");if(r)goto S_43861;} +do{ +*_SUB_DEBUGMODE_LONG_DUMMY=FUNC_DARKENFGBG(&(pass4716= 0 )); +if(!qbevent)break;evnt(26070,6871,"ide_methods.bas");}while(r); +do{ +SUB_CLEARSTATUSWINDOW(&(pass4717= 1 )); +if(!qbevent)break;evnt(26070,6872,"ide_methods.bas");}while(r); +do{ +SUB_SETSTATUSMESSAGE(&(pass4718= 1 ),qbs_new_txt_len("Failed to initiate debug session.",33),&(pass4719= 7 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6873,"ide_methods.bas");}while(r); +do{ +SUB_SETSTATUSMESSAGE(&(pass4720= 2 ),qbs_left(qbs_add(qbs_new_txt_len("Expected: ",10),_SUB_DEBUGMODE_STRING_EXPECTED),*__LONG_IDEWX- 2 ),&(pass4721= 2 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6874,"ide_methods.bas");}while(r); +do{ +SUB_SETSTATUSMESSAGE(&(pass4722= 3 ),qbs_left(qbs_add(qbs_new_txt_len("Received: ",10),_SUB_DEBUGMODE_STRING_PROGRAM),*__LONG_IDEWX- 2 ),&(pass4723= 2 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6875,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("vwatch:file mismatch",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6876,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=59; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SENDCOMMAND; +RETURN_59:; +if(!qbevent)break;evnt(26070,6877,"ide_methods.bas");}while(r); +do{ +sub_close(*__LONG_DEBUGCLIENT,1); +if(!qbevent)break;evnt(26070,6878,"ide_methods.bas");}while(r); +S_43870:; +while((func__mouseinput(NULL,0))||new_error){ +if(qbevent){evnt(26070,6879,"ide_methods.bas");if(r)goto S_43870;} +ww_continue_4724:; +} +ww_exit_4724:; +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,6880,"ide_methods.bas");}while(r); +} +do{ +goto dl_exit_4707; +if(!qbevent)break;evnt(26070,6882,"ide_methods.bas");}while(r); +sc_ec_245_end:; +goto sc_4715_end; +} +sc_4715_end:; +dl_continue_4707:; +}while(1); +dl_exit_4707:; +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("vwatch:ok",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6886,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=60; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SENDCOMMAND; +RETURN_60:; +if(!qbevent)break;evnt(26070,6887,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(qbs_new_txt_len("hwnd:",5),o2string(func__handle()))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6888,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=61; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SENDCOMMAND; +RETURN_61:; +if(!qbevent)break;evnt(26070,6889,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(qbs_new_txt_len("line count:",11),l2string(*__LONG_IDEN))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6890,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=62; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SENDCOMMAND; +RETURN_62:; +if(!qbevent)break;evnt(26070,6891,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_BREAKPOINTCOUNT= 0 ; +if(!qbevent)break;evnt(26070,6893,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_BREAKPOINTLIST,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6894,"ide_methods.bas");}while(r); +S_43885:; +fornext_value4726= 1 ; +fornext_finalvalue4726=func_ubound(__ARRAY_BYTE_IDEBREAKPOINTS,1,1); +fornext_step4726= 1 ; +if (fornext_step4726<0) fornext_step_negative4726=1; else fornext_step_negative4726=0; +if (new_error) goto fornext_error4726; +goto fornext_entrylabel4726; +while(1){ +fornext_value4726=fornext_step4726+(*_SUB_DEBUGMODE_LONG_I); +fornext_entrylabel4726: +*_SUB_DEBUGMODE_LONG_I=fornext_value4726; +if (fornext_step_negative4726){ +if (fornext_value4726fornext_finalvalue4726) break; +} +fornext_error4726:; +if(qbevent){evnt(26070,6895,"ide_methods.bas");if(r)goto S_43885;} +S_43886:; +if ((((int8*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]))[array_check((*_SUB_DEBUGMODE_LONG_I)-__ARRAY_BYTE_IDEBREAKPOINTS[4],__ARRAY_BYTE_IDEBREAKPOINTS[5])])||new_error){ +if(qbevent){evnt(26070,6896,"ide_methods.bas");if(r)goto S_43886;} +do{ +*_SUB_DEBUGMODE_LONG_BREAKPOINTCOUNT=*_SUB_DEBUGMODE_LONG_BREAKPOINTCOUNT+ 1 ; +if(!qbevent)break;evnt(26070,6897,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_BREAKPOINTLIST,qbs_add(_SUB_DEBUGMODE_STRING_BREAKPOINTLIST,l2string(*_SUB_DEBUGMODE_LONG_I))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6898,"ide_methods.bas");}while(r); +} +fornext_continue_4725:; +} +fornext_exit_4725:; +S_43891:; +if ((*_SUB_DEBUGMODE_LONG_BREAKPOINTCOUNT)||new_error){ +if(qbevent){evnt(26070,6901,"ide_methods.bas");if(r)goto S_43891;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(qbs_new_txt_len("breakpoint count:",17),l2string(*_SUB_DEBUGMODE_LONG_BREAKPOINTCOUNT))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6902,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=63; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SENDCOMMAND; +RETURN_63:; +if(!qbevent)break;evnt(26070,6903,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(qbs_new_txt_len("breakpoint list:",16),_SUB_DEBUGMODE_STRING_BREAKPOINTLIST)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6904,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=64; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SENDCOMMAND; +RETURN_64:; +if(!qbevent)break;evnt(26070,6905,"ide_methods.bas");}while(r); +} +do{ +*_SUB_DEBUGMODE_LONG_SKIPCOUNT= 0 ; +if(!qbevent)break;evnt(26070,6908,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_SKIPLIST,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6909,"ide_methods.bas");}while(r); +S_43899:; +fornext_value4728= 1 ; +fornext_finalvalue4728=func_ubound(__ARRAY_BYTE_IDESKIPLINES,1,1); +fornext_step4728= 1 ; +if (fornext_step4728<0) fornext_step_negative4728=1; else fornext_step_negative4728=0; +if (new_error) goto fornext_error4728; +goto fornext_entrylabel4728; +while(1){ +fornext_value4728=fornext_step4728+(*_SUB_DEBUGMODE_LONG_I); +fornext_entrylabel4728: +*_SUB_DEBUGMODE_LONG_I=fornext_value4728; +if (fornext_step_negative4728){ +if (fornext_value4728fornext_finalvalue4728) break; +} +fornext_error4728:; +if(qbevent){evnt(26070,6910,"ide_methods.bas");if(r)goto S_43899;} +S_43900:; +if ((((int8*)(__ARRAY_BYTE_IDESKIPLINES[0]))[array_check((*_SUB_DEBUGMODE_LONG_I)-__ARRAY_BYTE_IDESKIPLINES[4],__ARRAY_BYTE_IDESKIPLINES[5])])||new_error){ +if(qbevent){evnt(26070,6911,"ide_methods.bas");if(r)goto S_43900;} +do{ +*_SUB_DEBUGMODE_LONG_SKIPCOUNT=*_SUB_DEBUGMODE_LONG_SKIPCOUNT+ 1 ; +if(!qbevent)break;evnt(26070,6912,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_SKIPLIST,qbs_add(_SUB_DEBUGMODE_STRING_SKIPLIST,l2string(*_SUB_DEBUGMODE_LONG_I))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6913,"ide_methods.bas");}while(r); +} +fornext_continue_4727:; +} +fornext_exit_4727:; +S_43905:; +if ((*_SUB_DEBUGMODE_LONG_SKIPCOUNT)||new_error){ +if(qbevent){evnt(26070,6916,"ide_methods.bas");if(r)goto S_43905;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(qbs_new_txt_len("skip count:",11),l2string(*_SUB_DEBUGMODE_LONG_SKIPCOUNT))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6917,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=65; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SENDCOMMAND; +RETURN_65:; +if(!qbevent)break;evnt(26070,6918,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(qbs_new_txt_len("skip list:",10),_SUB_DEBUGMODE_STRING_SKIPLIST)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6919,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=66; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SENDCOMMAND; +RETURN_66:; +if(!qbevent)break;evnt(26070,6920,"ide_methods.bas");}while(r); +} +do{ +SUB_CLEARSTATUSWINDOW(&(pass4729= 1 )); +if(!qbevent)break;evnt(26070,6923,"ide_methods.bas");}while(r); +S_43912:; +if ((*__LONG_STARTPAUSED)||new_error){ +if(qbevent){evnt(26070,6924,"ide_methods.bas");if(r)goto S_43912;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("break",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6925,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_BYTE_PAUSEMODE= -1 ; +if(!qbevent)break;evnt(26070,6926,"ide_methods.bas");}while(r); +do{ +SUB_SETSTATUSMESSAGE(&(pass4730= 1 ),qbs_new_txt_len("Paused.",7),&(pass4731= 2 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6927,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("run",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6929,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_BYTE_PAUSEMODE= 0 ; +if(!qbevent)break;evnt(26070,6930,"ide_methods.bas");}while(r); +do{ +SUB_SETSTATUSMESSAGE(&(pass4732= 1 ),qbs_new_txt_len("Running...",10),&(pass4733= 10 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6931,"ide_methods.bas");}while(r); +} +do{ +return_point[next_return_point++]=67; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SENDCOMMAND; +RETURN_67:; +if(!qbevent)break;evnt(26070,6933,"ide_methods.bas");}while(r); +do{ +SUB_CLEARSTATUSWINDOW(&(pass4734= 2 )); +if(!qbevent)break;evnt(26070,6935,"ide_methods.bas");}while(r); +do{ +SUB_SETSTATUSMESSAGE(&(pass4735= 2 ),qbs_new_txt_len("$DEBUG MODE: Set focus to the IDE to control execution",54),&(pass4736= 15 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6936,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_BYTE_NOFOCUSMESSAGE= -1 ; +if(!qbevent)break;evnt(26070,6938,"ide_methods.bas");}while(r); +S_43925:; +do{ +if(qbevent){evnt(26070,6940,"ide_methods.bas");if(r)goto S_43925;} +S_43926:; +if ((func__exit())||new_error){ +if(qbevent){evnt(26070,6941,"ide_methods.bas");if(r)goto S_43926;} +do{ +*__LONG_IDEEXIT= 1 ; +if(!qbevent)break;evnt(26070,6941,"ide_methods.bas");}while(r); +do{ +goto LABEL_REQUESTQUIT; +if(!qbevent)break;evnt(26070,6941,"ide_methods.bas");}while(r); +} +do{ +*_SUB_DEBUGMODE_LONG_BKPIDECY=*__LONG_IDECY; +if(!qbevent)break;evnt(26070,6943,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_BKPPANELFIRSTVISIBLE=*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(8)); +if(!qbevent)break;evnt(26070,6944,"ide_methods.bas");}while(r); +S_43932:; +while((func__mouseinput(NULL,0))||new_error){ +if(qbevent){evnt(26070,6945,"ide_methods.bas");if(r)goto S_43932;} +do{ +*__LONG_MX=qbr(func__mousex(NULL,0)); +if(!qbevent)break;evnt(26070,6946,"ide_methods.bas");}while(r); +do{ +*__LONG_MY=qbr(func__mousey(NULL,0)); +if(!qbevent)break;evnt(26070,6947,"ide_methods.bas");}while(r); +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(20))=*__LONG_MX; +if(!qbevent)break;evnt(26070,6948,"ide_methods.bas");}while(r); +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(22))=*__LONG_MY; +if(!qbevent)break;evnt(26070,6949,"ide_methods.bas");}while(r); +S_43937:; +if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_VARIABLEWATCHLIST->len> 0 ))&(((-(*__LONG_MX>=*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(0))))&(-(*__LONG_MX<=(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(0))+*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4)))))))&(((-(*__LONG_MY>=*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(2))))&(-(*__LONG_MY<=(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(2))+*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6)))))))))||new_error){ +if(qbevent){evnt(26070,6952,"ide_methods.bas");if(r)goto S_43937;} +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(8))=*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(8))+(func__mousewheel(NULL,0)* 3 ); +if(!qbevent)break;evnt(26070,6953,"ide_methods.bas");}while(r); +S_43939:; +if ((-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(8))< 1 ))||new_error){ +if(qbevent){evnt(26070,6954,"ide_methods.bas");if(r)goto S_43939;} +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(8))= 1 ; +if(!qbevent)break;evnt(26070,6954,"ide_methods.bas");}while(r); +} +S_43942:; +if ((-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(8))>(*_SUB_DEBUGMODE_LONG_TOTALVISIBLEVARIABLES-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6))- 2 )+ 1 )))||new_error){ +if(qbevent){evnt(26070,6955,"ide_methods.bas");if(r)goto S_43942;} +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(8))=*_SUB_DEBUGMODE_LONG_TOTALVISIBLEVARIABLES-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6))- 2 )+ 1 ; +if(!qbevent)break;evnt(26070,6956,"ide_methods.bas");}while(r); +} +}else{ +do{ +*__LONG_IDECY=*__LONG_IDECY+(func__mousewheel(NULL,0)* 3 ); +if(!qbevent)break;evnt(26070,6959,"ide_methods.bas");}while(r); +} +ww_continue_4738:; +} +ww_exit_4738:; +S_43949:; +if ((-(*__LONG_IDECY< 1 ))||new_error){ +if(qbevent){evnt(26070,6963,"ide_methods.bas");if(r)goto S_43949;} +do{ +*__LONG_IDECY= 1 ; +if(!qbevent)break;evnt(26070,6963,"ide_methods.bas");}while(r); +} +S_43952:; +if ((-(*__LONG_IDECY>*__LONG_IDEN))||new_error){ +if(qbevent){evnt(26070,6964,"ide_methods.bas");if(r)goto S_43952;} +do{ +*__LONG_IDECY=*__LONG_IDEN; +if(!qbevent)break;evnt(26070,6964,"ide_methods.bas");}while(r); +} +S_43955:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_IDECY!=*_SUB_DEBUGMODE_LONG_BKPIDECY))|(-(*_SUB_DEBUGMODE_LONG_BKPPANELFIRSTVISIBLE!=*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(8))))|(((-(__STRING_VARIABLEWATCHLIST->len> 0 ))&(((-(*__LONG_MX>=*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(0))))&(-(*__LONG_MX<=(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(0))+*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4)))))))&(((-(*__LONG_MY>=*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(2))))&(-(*__LONG_MY<=(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(2))+*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6)))))))))))||new_error){ +if(qbevent){evnt(26070,6968,"ide_methods.bas");if(r)goto S_43955;} +do{ +*__LONG_IDESELECT= 0 ; +if(!qbevent)break;evnt(26070,6969,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=68; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEDISPLAY; +RETURN_68:; +if(!qbevent)break;evnt(26070,6969,"ide_methods.bas");}while(r); +} +do{ +*__LONG_MB=func__mousebutton( 1 ,NULL,0); +if(!qbevent)break;evnt(26070,6972,"ide_methods.bas");}while(r); +do{ +*__LONG_MB2=func__mousebutton( 2 ,NULL,0); +if(!qbevent)break;evnt(26070,6973,"ide_methods.bas");}while(r); +S_43961:; +if ((*__LONG_MB2)||new_error){ +if(qbevent){evnt(26070,6975,"ide_methods.bas");if(r)goto S_43961;} +S_43962:; +if ((-(*_SUB_DEBUGMODE_LONG_MOUSEDOWN2== 0 ))||new_error){ +if(qbevent){evnt(26070,6976,"ide_methods.bas");if(r)goto S_43962;} +do{ +*_SUB_DEBUGMODE_LONG_MOUSEDOWN2= -1 ; +if(!qbevent)break;evnt(26070,6977,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_MOUSEDOWNONX2=*__LONG_MX; +if(!qbevent)break;evnt(26070,6978,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_MOUSEDOWNONY2=*__LONG_MY; +if(!qbevent)break;evnt(26070,6979,"ide_methods.bas");}while(r); +}else{ +} +}else{ +S_43969:; +if ((*_SUB_DEBUGMODE_LONG_MOUSEDOWN2)||new_error){ +if(qbevent){evnt(26070,6983,"ide_methods.bas");if(r)goto S_43969;} +S_43970:; +if (((-(*_SUB_DEBUGMODE_LONG_MOUSEDOWNONX2==*__LONG_MX))&(-(*_SUB_DEBUGMODE_LONG_MOUSEDOWNONY2==*__LONG_MY)))||new_error){ +if(qbevent){evnt(26070,6984,"ide_methods.bas");if(r)goto S_43970;} +S_43971:; +if ((qbs_cleanup(qbs_tmp_base,((-(__STRING_VARIABLEWATCHLIST->len> 0 ))&(((-(*__LONG_MX>=*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(0))))&(-(*__LONG_MX<=(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(0))+*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4)))))))&(((-(*__LONG_MY>=*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(2))))&(-(*__LONG_MY<=(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(2))+*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6))))))))))||new_error){ +if(qbevent){evnt(26070,6988,"ide_methods.bas");if(r)goto S_43971;} +do{ +goto LABEL_REQUESTVARIABLEWATCH; +if(!qbevent)break;evnt(26070,6989,"ide_methods.bas");}while(r); +} +S_43974:; +if ((((-(*__LONG_MX> 1 ))&(-(*__LONG_MX<=( 1 +*__LONG_MAXLINENUMBERLENGTH)))&(-(*__LONG_MY> 2 ))&(-(*__LONG_MY<(*__LONG_IDEWY- 5 )))&*__BYTE_SHOWLINENUMBERS)|((-(*__LONG_MX== 1 ))&(-(*__LONG_MY> 2 ))&(-(*__LONG_MY<(*__LONG_IDEWY- 5 )))&(-(*__BYTE_SHOWLINENUMBERS== 0 )))|((-(*__LONG_MX>( 1 +*__LONG_MAXLINENUMBERLENGTH)))&(-(*__LONG_MX<*__LONG_IDEWX))&(-(*__LONG_MY> 2 ))&(-(*__LONG_MY<(*__LONG_IDEWY- 5 )))))||new_error){ +if(qbevent){evnt(26070,6995,"ide_methods.bas");if(r)goto S_43974;} +do{ +*_SUB_DEBUGMODE_LONG_BKPIDECY=*__LONG_IDECY; +if(!qbevent)break;evnt(26070,6996,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECY=*__LONG_MY- 2 +*__LONG_IDESY- 1 ; +if(!qbevent)break;evnt(26070,6997,"ide_methods.bas");}while(r); +S_43977:; +if ((-(*__LONG_IDECY>*__LONG_IDEN))||new_error){ +if(qbevent){evnt(26070,6998,"ide_methods.bas");if(r)goto S_43977;} +do{ +*__LONG_IDECY=*__LONG_IDEN; +if(!qbevent)break;evnt(26070,6998,"ide_methods.bas");}while(r); +} +S_43980:; +if ((-(*_SUB_DEBUGMODE_LONG_BKPIDECY!=*__LONG_IDECY))||new_error){ +if(qbevent){evnt(26070,6999,"ide_methods.bas");if(r)goto S_43980;} +do{ +*__LONG_IDESELECT= 0 ; +if(!qbevent)break;evnt(26070,6999,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=69; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEDISPLAY; +RETURN_69:; +if(!qbevent)break;evnt(26070,6999,"ide_methods.bas");}while(r); +} +do{ +*__LONG_IDEDEBUGMODE= 2 ; +if(!qbevent)break;evnt(26070,7000,"ide_methods.bas");}while(r); +S_43985:; +if ((-(*_SUB_DEBUGMODE_BYTE_PAUSEMODE== 0 ))||new_error){ +if(qbevent){evnt(26070,7001,"ide_methods.bas");if(r)goto S_43985;} +do{ +return_point[next_return_point++]=70; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_REQUESTPAUSE; +RETURN_70:; +if(!qbevent)break;evnt(26070,7001,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_DUMMY=FUNC_DARKENFGBG(&(pass4742= 0 )); +if(!qbevent)break;evnt(26070,7001,"ide_methods.bas");}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,7002,"ide_methods.bas");}while(r); +LABEL_RETURNFROMCONTEXTMENU:; +if(qbevent){evnt(26070,7003,"ide_methods.bas");r=0;} +do{ +return_point[next_return_point++]=71; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEDISPLAY; +RETURN_71:; +if(!qbevent)break;evnt(26070,7004,"ide_methods.bas");}while(r); +} +} +} +do{ +*_SUB_DEBUGMODE_LONG_MOUSEDOWN2= 0 ; +if(!qbevent)break;evnt(26070,7008,"ide_methods.bas");}while(r); +} +S_43996:; +if ((*__LONG_MB)||new_error){ +if(qbevent){evnt(26070,7011,"ide_methods.bas");if(r)goto S_43996;} +S_43997:; +if ((-(*_SUB_DEBUGMODE_LONG_MOUSEDOWN== 0 ))||new_error){ +if(qbevent){evnt(26070,7012,"ide_methods.bas");if(r)goto S_43997;} +do{ +*_SUB_DEBUGMODE_LONG_MOUSEDOWN= -1 ; +if(!qbevent)break;evnt(26070,7013,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_MOUSEDOWNONX=*__LONG_MX; +if(!qbevent)break;evnt(26070,7014,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_MOUSEDOWNONY=*__LONG_MY; +if(!qbevent)break;evnt(26070,7015,"ide_methods.bas");}while(r); +S_44001:; +if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_VARIABLEWATCHLIST->len> 0 ))&((-(*__LONG_MX>=(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(0))+*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4))- 3 ))))&((-(*__LONG_MX<=(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(0))+*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4))- 1 ))))&((-(*__LONG_MY==*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(2)))))))||new_error){ +if(qbevent){evnt(26070,7018,"ide_methods.bas");if(r)goto S_44001;} +do{ +*(int8*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(34))= -1 ; +if(!qbevent)break;evnt(26070,7019,"ide_methods.bas");}while(r); +S_44003:; +}else{ +if (qbs_cleanup(qbs_tmp_base,(-(__STRING_VARIABLEWATCHLIST->len> 0 ))&(-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(12))> 0 ))&((-(*__LONG_MX==(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(0))+*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4))- 1 ))))&((-(*__LONG_MY==*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(12))))))){ +if(qbevent){evnt(26070,7022,"ide_methods.bas");if(r)goto S_44003;} +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(16))= 1 ; +if(!qbevent)break;evnt(26070,7023,"ide_methods.bas");}while(r); +S_44005:; +}else{ +if (qbs_cleanup(qbs_tmp_base,(-(__STRING_VARIABLEWATCHLIST->len> 0 ))&(-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(12))> 0 ))&((-(*__LONG_MX==(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(0))+*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4))- 1 ))))&((-(*__LONG_MY==(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(2))+ 1 )))))){ +if(qbevent){evnt(26070,7026,"ide_methods.bas");if(r)goto S_44005;} +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(16))= 2 ; +if(!qbevent)break;evnt(26070,7027,"ide_methods.bas");}while(r); +S_44007:; +}else{ +if (qbs_cleanup(qbs_tmp_base,(-(__STRING_VARIABLEWATCHLIST->len> 0 ))&(-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(12))> 0 ))&((-(*__LONG_MX==(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(0))+*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4))- 1 ))))&((-(*__LONG_MY==(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(2))+*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6))- 2 )))))){ +if(qbevent){evnt(26070,7030,"ide_methods.bas");if(r)goto S_44007;} +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(16))= 3 ; +if(!qbevent)break;evnt(26070,7031,"ide_methods.bas");}while(r); +S_44009:; +}else{ +if (qbs_cleanup(qbs_tmp_base,(-(__STRING_VARIABLEWATCHLIST->len> 0 ))&(-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(14))> 0 ))&((-(*__LONG_MX==*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(14)))))&((-(*__LONG_MY==(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(2))+*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6))- 1 )))))){ +if(qbevent){evnt(26070,7034,"ide_methods.bas");if(r)goto S_44009;} +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(18))= 1 ; +if(!qbevent)break;evnt(26070,7035,"ide_methods.bas");}while(r); +S_44011:; +}else{ +if (qbs_cleanup(qbs_tmp_base,(-(__STRING_VARIABLEWATCHLIST->len> 0 ))&(-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(14))> 0 ))&((-(*__LONG_MX==*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(0)))))&((-(*__LONG_MY==(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(2))+*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6))- 1 )))))){ +if(qbevent){evnt(26070,7038,"ide_methods.bas");if(r)goto S_44011;} +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(18))= 2 ; +if(!qbevent)break;evnt(26070,7039,"ide_methods.bas");}while(r); +S_44013:; +}else{ +if (qbs_cleanup(qbs_tmp_base,(-(__STRING_VARIABLEWATCHLIST->len> 0 ))&(-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(14))> 0 ))&((-(*__LONG_MX==(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(0))+*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4))- 2 ))))&((-(*__LONG_MY==(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(2))+*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6))- 1 )))))){ +if(qbevent){evnt(26070,7042,"ide_methods.bas");if(r)goto S_44013;} +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(18))= 3 ; +if(!qbevent)break;evnt(26070,7043,"ide_methods.bas");}while(r); +S_44015:; +}else{ +if (qbs_cleanup(qbs_tmp_base,(-(__STRING_VARIABLEWATCHLIST->len> 0 ))&((-(*__LONG_MX==(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(0))+*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4))- 1 ))))&((-(*__LONG_MY==(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(2))+*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6))- 1 )))))){ +if(qbevent){evnt(26070,7046,"ide_methods.bas");if(r)goto S_44015;} +do{ +*(int8*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(33))= -1 ; +if(!qbevent)break;evnt(26070,7047,"ide_methods.bas");}while(r); +S_44017:; +}else{ +if (qbs_cleanup(qbs_tmp_base,(-(__STRING_VARIABLEWATCHLIST->len> 0 ))&(((-(*__LONG_MX>=*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(0))))&(-(*__LONG_MX<=(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(0))+*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4)))))))&(((-(*__LONG_MY>=*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(2))))&(-(*__LONG_MY<=(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(2))+*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6))))))))){ +if(qbevent){evnt(26070,7050,"ide_methods.bas");if(r)goto S_44017;} +do{ +*(int8*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(32))= -1 ; +if(!qbevent)break;evnt(26070,7051,"ide_methods.bas");}while(r); +do{ +*(int8*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(35))= 1 ; +if(!qbevent)break;evnt(26070,7052,"ide_methods.bas");}while(r); +S_44020:; +if ((-(((float)(FUNC_TIMEELAPSEDSINCE(_SUB_DEBUGMODE_SINGLE_LASTPANELCLICK)))<((float)( 0.3E+0 ))))||new_error){ +if(qbevent){evnt(26070,7053,"ide_methods.bas");if(r)goto S_44020;} +do{ +*(int8*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(32))= 0 ; +if(!qbevent)break;evnt(26070,7055,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_MOUSEDOWN= 0 ; +if(!qbevent)break;evnt(26070,7056,"ide_methods.bas");}while(r); +do{ +goto LABEL_REQUESTVARIABLEWATCH; +if(!qbevent)break;evnt(26070,7057,"ide_methods.bas");}while(r); +} +do{ +*_SUB_DEBUGMODE_SINGLE_LASTPANELCLICK=func_timer(NULL,0); +if(!qbevent)break;evnt(26070,7059,"ide_methods.bas");}while(r); +}else{ +do{ +*(int8*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(32))= 0 ; +if(!qbevent)break;evnt(26070,7061,"ide_methods.bas");}while(r); +do{ +*(int8*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(33))= 0 ; +if(!qbevent)break;evnt(26070,7062,"ide_methods.bas");}while(r); +do{ +*(int8*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(34))= 0 ; +if(!qbevent)break;evnt(26070,7063,"ide_methods.bas");}while(r); +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(16))= 0 ; +if(!qbevent)break;evnt(26070,7064,"ide_methods.bas");}while(r); +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(18))= 0 ; +if(!qbevent)break;evnt(26070,7065,"ide_methods.bas");}while(r); +do{ +*(int8*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(35))= 0 ; +if(!qbevent)break;evnt(26070,7066,"ide_methods.bas");}while(r); +} +} +} +} +} +} +} +} +} +S_44034:; +if ((-(*__LONG_MX==*__LONG_IDEWX))||new_error){ +if(qbevent){evnt(26070,7069,"ide_methods.bas");if(r)goto S_44034;} +S_44035:; +if ((-(*__LONG_MY==FUNC_IDEVBAR(__LONG_IDEWX,&(pass4752= 3 ),&(pass4753=*__LONG_IDEWY- 8 ),__LONG_IDECY,__LONG_IDEN)))||new_error){ +if(qbevent){evnt(26070,7070,"ide_methods.bas");if(r)goto S_44035;} +do{ +*_SUB_DEBUGMODE_LONG_DRAGGINGVTHUMB= -1 ; +if(!qbevent)break;evnt(26070,7071,"ide_methods.bas");}while(r); +}else{ +do{ +*_SUB_DEBUGMODE_LONG_DRAGGINGVTHUMB= 0 ; +if(!qbevent)break;evnt(26070,7073,"ide_methods.bas");}while(r); +} +}else{ +do{ +*_SUB_DEBUGMODE_LONG_DRAGGINGVTHUMB= 0 ; +if(!qbevent)break;evnt(26070,7076,"ide_methods.bas");}while(r); +} +S_44043:; +if ((-(*__LONG_MY==(*__LONG_IDEWY- 5 )))||new_error){ +if(qbevent){evnt(26070,7079,"ide_methods.bas");if(r)goto S_44043;} +S_44044:; +if ((-(*__LONG_MX==FUNC_IDEHBAR(&(pass4754= 2 ),&(pass4755=*__LONG_IDEWY- 5 ),&(pass4756=*__LONG_IDEWX- 2 ),__LONG_IDESX,&(pass4757= 608 ))))||new_error){ +if(qbevent){evnt(26070,7080,"ide_methods.bas");if(r)goto S_44044;} +do{ +*_SUB_DEBUGMODE_LONG_DRAGGINGHTHUMB= -1 ; +if(!qbevent)break;evnt(26070,7081,"ide_methods.bas");}while(r); +}else{ +do{ +*_SUB_DEBUGMODE_LONG_DRAGGINGHTHUMB= 0 ; +if(!qbevent)break;evnt(26070,7083,"ide_methods.bas");}while(r); +} +}else{ +do{ +*_SUB_DEBUGMODE_LONG_DRAGGINGHTHUMB= 0 ; +if(!qbevent)break;evnt(26070,7086,"ide_methods.bas");}while(r); +} +do{ +*_SUB_DEBUGMODE_LONG_MOUSEDOWNONBUTTON= 0 ; +if(!qbevent)break;evnt(26070,7089,"ide_methods.bas");}while(r); +S_44053:; +fornext_value4759= 1 ; +fornext_finalvalue4759=func_ubound(_SUB_DEBUGMODE_ARRAY_UDT_BUTTON,1,1); +fornext_step4759= 1 ; +if (fornext_step4759<0) fornext_step_negative4759=1; else fornext_step_negative4759=0; +if (new_error) goto fornext_error4759; +goto fornext_entrylabel4759; +while(1){ +fornext_value4759=fornext_step4759+(*_SUB_DEBUGMODE_LONG_I); +fornext_entrylabel4759: +*_SUB_DEBUGMODE_LONG_I=fornext_value4759; +if (fornext_step_negative4759){ +if (fornext_value4759fornext_finalvalue4759) break; +} +fornext_error4759:; +if(qbevent){evnt(26070,7090,"ide_methods.bas");if(r)goto S_44053;} +S_44054:; +if (((-(*__LONG_MY==*(int16*)(((char*)_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[0])+((array_check((*_SUB_DEBUGMODE_LONG_I)-_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[4],_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[5]))*16+2))))&(-(*__LONG_MX>=*(int16*)(((char*)_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[0])+((array_check((*_SUB_DEBUGMODE_LONG_I)-_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[4],_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[5]))*16))))&(-(*__LONG_MX<=(*(int16*)(((char*)_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[0])+((array_check((*_SUB_DEBUGMODE_LONG_I)-_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[4],_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[5]))*16))+*(int16*)(((char*)_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[0])+((array_check((*_SUB_DEBUGMODE_LONG_I)-_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[4],_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[5]))*16+4)))))&(-(*(int8*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(32))== 0 ))&(-(*(int8*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(33))== 0 )))||new_error){ +if(qbevent){evnt(26070,7092,"ide_methods.bas");if(r)goto S_44054;} +do{ +*_SUB_DEBUGMODE_LONG_MOUSEDOWNONBUTTON=*_SUB_DEBUGMODE_LONG_I; +if(!qbevent)break;evnt(26070,7093,"ide_methods.bas");}while(r); +do{ +goto fornext_exit_4758; +if(!qbevent)break;evnt(26070,7094,"ide_methods.bas");}while(r); +} +fornext_continue_4758:; +} +fornext_exit_4758:; +}else{ +S_44060:; +if ((-(*_SUB_DEBUGMODE_LONG_DRAGGINGVTHUMB== -1 ))||new_error){ +if(qbevent){evnt(26070,7099,"ide_methods.bas");if(r)goto S_44060;} +S_44061:; +if ((-(*_SUB_DEBUGMODE_LONG_MOUSEDOWNONY!=*__LONG_MY))||new_error){ +if(qbevent){evnt(26070,7100,"ide_methods.bas");if(r)goto S_44061;} +do{ +*_SUB_DEBUGMODE_LONG_MOUSEDOWNONY=*__LONG_MY; +if(!qbevent)break;evnt(26070,7101,"ide_methods.bas");}while(r); +S_44063:; +if ((-(*__LONG_IDEN> 1 ))||new_error){ +if(qbevent){evnt(26070,7102,"ide_methods.bas");if(r)goto S_44063;} +S_44064:; +if ((-(*__LONG_MY<= 4 ))||new_error){ +if(qbevent){evnt(26070,7103,"ide_methods.bas");if(r)goto S_44064;} +do{ +*__LONG_IDECY= 1 ; +if(!qbevent)break;evnt(26070,7103,"ide_methods.bas");}while(r); +} +S_44067:; +if ((-(*__LONG_MY>=(*__LONG_IDEWY- 7 )))||new_error){ +if(qbevent){evnt(26070,7104,"ide_methods.bas");if(r)goto S_44067;} +do{ +*__LONG_IDECY=*__LONG_IDEN; +if(!qbevent)break;evnt(26070,7104,"ide_methods.bas");}while(r); +} +S_44070:; +if (((-(*__LONG_MY> 4 ))&(-(*__LONG_MY<(*__LONG_IDEWY- 7 ))))||new_error){ +if(qbevent){evnt(26070,7105,"ide_methods.bas");if(r)goto S_44070;} +do{ +*_SUB_DEBUGMODE_LONG_Y=*__LONG_MY; +if(!qbevent)break;evnt(26070,7106,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_SINGLE_P=*_SUB_DEBUGMODE_LONG_Y- 3 - 2 + 0.5E+0 ; +if(!qbevent)break;evnt(26070,7107,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_SINGLE_P=*_SUB_DEBUGMODE_SINGLE_P/ ((*__LONG_IDEWY- 8 )- 4 ); +if(!qbevent)break;evnt(26070,7108,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_I=qbr((*_SUB_DEBUGMODE_SINGLE_P*(*__LONG_IDEN- 1 ))+( 1 )); +if(!qbevent)break;evnt(26070,7109,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECY=*_SUB_DEBUGMODE_LONG_I; +if(!qbevent)break;evnt(26070,7110,"ide_methods.bas");}while(r); +} +} +do{ +*__LONG_IDESELECT= 0 ; +if(!qbevent)break;evnt(26070,7113,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=72; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEDISPLAY; +RETURN_72:; +if(!qbevent)break;evnt(26070,7113,"ide_methods.bas");}while(r); +} +} +S_44082:; +if ((-(*_SUB_DEBUGMODE_LONG_DRAGGINGHTHUMB== -1 ))||new_error){ +if(qbevent){evnt(26070,7117,"ide_methods.bas");if(r)goto S_44082;} +S_44083:; +if ((-(*_SUB_DEBUGMODE_LONG_MOUSEDOWNONX!=*__LONG_MX))||new_error){ +if(qbevent){evnt(26070,7118,"ide_methods.bas");if(r)goto S_44083;} +do{ +*_SUB_DEBUGMODE_LONG_MOUSEDOWNONX=*__LONG_MX; +if(!qbevent)break;evnt(26070,7119,"ide_methods.bas");}while(r); +S_44085:; +if ((-(*__LONG_MX<= 3 ))||new_error){ +if(qbevent){evnt(26070,7120,"ide_methods.bas");if(r)goto S_44085;} +do{ +*__LONG_IDESX= 1 ; +if(!qbevent)break;evnt(26070,7120,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECX=*__LONG_IDESX; +if(!qbevent)break;evnt(26070,7120,"ide_methods.bas");}while(r); +} +S_44089:; +if ((-(*__LONG_MX>=(*__LONG_IDEWX- 2 )))||new_error){ +if(qbevent){evnt(26070,7121,"ide_methods.bas");if(r)goto S_44089;} +do{ +*__LONG_IDESX= 608 ; +if(!qbevent)break;evnt(26070,7121,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECX=*__LONG_IDESX; +if(!qbevent)break;evnt(26070,7121,"ide_methods.bas");}while(r); +} +S_44093:; +if (((-(*__LONG_MX> 3 ))&(-(*__LONG_MX<(*__LONG_IDEWX- 2 ))))||new_error){ +if(qbevent){evnt(26070,7122,"ide_methods.bas");if(r)goto S_44093;} +do{ +*_SUB_DEBUGMODE_LONG_X=*__LONG_MX; +if(!qbevent)break;evnt(26070,7123,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_SINGLE_P=*_SUB_DEBUGMODE_LONG_X- 2 - 2 + 0.5E+0 ; +if(!qbevent)break;evnt(26070,7124,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_SINGLE_P=*_SUB_DEBUGMODE_SINGLE_P/ ((*__LONG_IDEWX- 2 )- 4 ); +if(!qbevent)break;evnt(26070,7125,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_I=qbr((*_SUB_DEBUGMODE_SINGLE_P*( 608 - 1 ))+( 1 )); +if(!qbevent)break;evnt(26070,7126,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESX=*_SUB_DEBUGMODE_LONG_I; +if(!qbevent)break;evnt(26070,7127,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECX=*__LONG_IDESX; +if(!qbevent)break;evnt(26070,7128,"ide_methods.bas");}while(r); +} +do{ +return_point[next_return_point++]=73; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEDISPLAY; +RETURN_73:; +if(!qbevent)break;evnt(26070,7130,"ide_methods.bas");}while(r); +} +} +do{ +*_SUB_DEBUGMODE_LONG_VWATCHPANELLIMIT=*__LONG_IDEWY- 6 ; +if(!qbevent)break;evnt(26070,7134,"ide_methods.bas");}while(r); +S_44105:; +if ((*(int8*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(32)))||new_error){ +if(qbevent){evnt(26070,7135,"ide_methods.bas");if(r)goto S_44105;} +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(0))=*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(0))-(*_SUB_DEBUGMODE_LONG_MOUSEDOWNONX-*__LONG_MX); +if(!qbevent)break;evnt(26070,7136,"ide_methods.bas");}while(r); +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(2))=*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(2))-(*_SUB_DEBUGMODE_LONG_MOUSEDOWNONY-*__LONG_MY); +if(!qbevent)break;evnt(26070,7137,"ide_methods.bas");}while(r); +S_44108:; +if ((-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(0))< 2 ))||new_error){ +if(qbevent){evnt(26070,7139,"ide_methods.bas");if(r)goto S_44108;} +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(0))= 2 ; +if(!qbevent)break;evnt(26070,7139,"ide_methods.bas");}while(r); +} +S_44111:; +if ((-((*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(0))+*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4)))>(*__LONG_IDEWX- 1 )))||new_error){ +if(qbevent){evnt(26070,7140,"ide_methods.bas");if(r)goto S_44111;} +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(0))=*__LONG_IDEWX-*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4))- 1 ; +if(!qbevent)break;evnt(26070,7140,"ide_methods.bas");}while(r); +} +S_44114:; +if ((-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(2))< 3 ))||new_error){ +if(qbevent){evnt(26070,7141,"ide_methods.bas");if(r)goto S_44114;} +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(2))= 3 ; +if(!qbevent)break;evnt(26070,7141,"ide_methods.bas");}while(r); +} +S_44117:; +if ((-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(2))>(*_SUB_DEBUGMODE_LONG_VWATCHPANELLIMIT-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6))- 1 ))))||new_error){ +if(qbevent){evnt(26070,7142,"ide_methods.bas");if(r)goto S_44117;} +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(2))=*_SUB_DEBUGMODE_LONG_VWATCHPANELLIMIT-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6))- 1 ); +if(!qbevent)break;evnt(26070,7142,"ide_methods.bas");}while(r); +} +S_44120:; +if ((-(*_SUB_DEBUGMODE_LONG_MOUSEDOWNONX!=*__LONG_MX))||new_error){ +if(qbevent){evnt(26070,7144,"ide_methods.bas");if(r)goto S_44120;} +do{ +*(int8*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(35))= 0 ; +if(!qbevent)break;evnt(26070,7144,"ide_methods.bas");}while(r); +} +do{ +*_SUB_DEBUGMODE_LONG_MOUSEDOWNONX=*__LONG_MX; +if(!qbevent)break;evnt(26070,7145,"ide_methods.bas");}while(r); +S_44124:; +if ((-(*_SUB_DEBUGMODE_LONG_MOUSEDOWNONY!=*__LONG_MY))||new_error){ +if(qbevent){evnt(26070,7146,"ide_methods.bas");if(r)goto S_44124;} +do{ +*(int8*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(35))= 0 ; +if(!qbevent)break;evnt(26070,7146,"ide_methods.bas");}while(r); +} +do{ +*_SUB_DEBUGMODE_LONG_MOUSEDOWNONY=*__LONG_MY; +if(!qbevent)break;evnt(26070,7147,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=74; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEDISPLAY; +RETURN_74:; +if(!qbevent)break;evnt(26070,7148,"ide_methods.bas");}while(r); +S_44129:; +}else{ +if (*(int8*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(33))){ +if(qbevent){evnt(26070,7149,"ide_methods.bas");if(r)goto S_44129;} +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4))=*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4))+(*__LONG_MX-*_SUB_DEBUGMODE_LONG_MOUSEDOWNONX); +if(!qbevent)break;evnt(26070,7150,"ide_methods.bas");}while(r); +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6))=*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6))+(*__LONG_MY-*_SUB_DEBUGMODE_LONG_MOUSEDOWNONY); +if(!qbevent)break;evnt(26070,7151,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=75; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_CHECKVWATCHPANELSIZE; +RETURN_75:; +if(!qbevent)break;evnt(26070,7153,"ide_methods.bas");}while(r); +S_44133:; +if (((-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(12))> 0 ))&(-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(8))>(*_SUB_DEBUGMODE_LONG_TOTALVISIBLEVARIABLES-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6))- 2 )+ 1 ))))||new_error){ +if(qbevent){evnt(26070,7155,"ide_methods.bas");if(r)goto S_44133;} +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(8))=*_SUB_DEBUGMODE_LONG_TOTALVISIBLEVARIABLES-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6))- 2 )+ 1 ; +if(!qbevent)break;evnt(26070,7156,"ide_methods.bas");}while(r); +} +S_44136:; +if (((-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(14))> 0 ))&(-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(10))>(*(int32*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(24))-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4))- 4 )+ 1 ))))||new_error){ +if(qbevent){evnt(26070,7158,"ide_methods.bas");if(r)goto S_44136;} +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(10))=*(int32*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(24))-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4))- 4 )+ 1 ; +if(!qbevent)break;evnt(26070,7159,"ide_methods.bas");}while(r); +} +do{ +*_SUB_DEBUGMODE_LONG_MOUSEDOWNONX=*__LONG_MX; +if(!qbevent)break;evnt(26070,7162,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_MOUSEDOWNONY=*__LONG_MY; +if(!qbevent)break;evnt(26070,7163,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=76; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEDISPLAY; +RETURN_76:; +if(!qbevent)break;evnt(26070,7164,"ide_methods.bas");}while(r); +S_44142:; +}else{ +if (-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(16))== 1 )){ +if(qbevent){evnt(26070,7165,"ide_methods.bas");if(r)goto S_44142;} +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(8))=qbr_float_to_long(floor(FUNC_MAP(&(pass4760=*__LONG_MY),&(pass4761=*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(2))+ 2 ),&(pass4762=*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(2))+*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6))- 2 ),&(pass4763= 1 ),&(pass4764=*_SUB_DEBUGMODE_LONG_TOTALVISIBLEVARIABLES-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6))- 2 )+ 1 )))); +if(!qbevent)break;evnt(26070,7166,"ide_methods.bas");}while(r); +S_44144:; +if ((-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(8))< 1 ))||new_error){ +if(qbevent){evnt(26070,7167,"ide_methods.bas");if(r)goto S_44144;} +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(8))= 1 ; +if(!qbevent)break;evnt(26070,7167,"ide_methods.bas");}while(r); +} +S_44147:; +if ((-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(8))>(*_SUB_DEBUGMODE_LONG_TOTALVISIBLEVARIABLES-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6))- 2 )+ 1 )))||new_error){ +if(qbevent){evnt(26070,7168,"ide_methods.bas");if(r)goto S_44147;} +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(8))=*_SUB_DEBUGMODE_LONG_TOTALVISIBLEVARIABLES-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6))- 2 )+ 1 ; +if(!qbevent)break;evnt(26070,7169,"ide_methods.bas");}while(r); +} +do{ +return_point[next_return_point++]=77; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEDISPLAY; +RETURN_77:; +if(!qbevent)break;evnt(26070,7171,"ide_methods.bas");}while(r); +S_44151:; +}else{ +if (-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(18))== 1 )){ +if(qbevent){evnt(26070,7172,"ide_methods.bas");if(r)goto S_44151;} +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(10))=qbr_float_to_long(floor(FUNC_MAP(&(pass4765=*__LONG_MX),&(pass4766=*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(0))),&(pass4767=*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(0))+*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4))- 2 ),&(pass4768= 1 ),&(pass4769=*(int32*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(24))-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4))- 4 )+ 1 )))); +if(!qbevent)break;evnt(26070,7173,"ide_methods.bas");}while(r); +S_44153:; +if ((-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(10))< 1 ))||new_error){ +if(qbevent){evnt(26070,7174,"ide_methods.bas");if(r)goto S_44153;} +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(10))= 1 ; +if(!qbevent)break;evnt(26070,7174,"ide_methods.bas");}while(r); +} +S_44156:; +if ((-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(10))>(*(int32*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(24))-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4))- 4 )+ 1 )))||new_error){ +if(qbevent){evnt(26070,7175,"ide_methods.bas");if(r)goto S_44156;} +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(10))=*(int32*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(24))-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4))- 4 )+ 1 ; +if(!qbevent)break;evnt(26070,7176,"ide_methods.bas");}while(r); +} +do{ +return_point[next_return_point++]=78; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEDISPLAY; +RETURN_78:; +if(!qbevent)break;evnt(26070,7178,"ide_methods.bas");}while(r); +} +} +} +} +} +}else{ +S_44163:; +if ((-(*(int8*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(35))== 1 ))||new_error){ +if(qbevent){evnt(26070,7182,"ide_methods.bas");if(r)goto S_44163;} +do{ +*(int8*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(35))= 2 ; +if(!qbevent)break;evnt(26070,7183,"ide_methods.bas");}while(r); +} +S_44166:; +if ((*(int8*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(32)))||new_error){ +if(qbevent){evnt(26070,7187,"ide_methods.bas");if(r)goto S_44166;} +do{ +*(int8*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(32))= 0 ; +if(!qbevent)break;evnt(26070,7188,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_MOUSEDOWN= 0 ; +if(!qbevent)break;evnt(26070,7188,"ide_methods.bas");}while(r); +do{ +SUB_WRITESETTING(qbs_new_txt_len(".\\internal\\temp\\debug.ini",25),qbs_new_txt_len("settings",8),qbs_new_txt_len("vWatchPanel.x",13),FUNC_STR2(&(pass4770=*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(0))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7189,"ide_methods.bas");}while(r); +do{ +SUB_WRITESETTING(qbs_new_txt_len(".\\internal\\temp\\debug.ini",25),qbs_new_txt_len("settings",8),qbs_new_txt_len("vWatchPanel.y",13),FUNC_STR2(&(pass4771=*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(2))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7190,"ide_methods.bas");}while(r); +} +S_44172:; +if ((*(int8*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(33)))||new_error){ +if(qbevent){evnt(26070,7192,"ide_methods.bas");if(r)goto S_44172;} +do{ +*(int8*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(33))= 0 ; +if(!qbevent)break;evnt(26070,7193,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_MOUSEDOWN= 0 ; +if(!qbevent)break;evnt(26070,7193,"ide_methods.bas");}while(r); +do{ +SUB_WRITESETTING(qbs_new_txt_len(".\\internal\\temp\\debug.ini",25),qbs_new_txt_len("settings",8),qbs_new_txt_len("vWatchPanel.w",13),FUNC_STR2(&(pass4772=*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7194,"ide_methods.bas");}while(r); +do{ +SUB_WRITESETTING(qbs_new_txt_len(".\\internal\\temp\\debug.ini",25),qbs_new_txt_len("settings",8),qbs_new_txt_len("vWatchPanel.h",13),FUNC_STR2(&(pass4773=*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7195,"ide_methods.bas");}while(r); +} +S_44178:; +if ((*(int8*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(34))&((-(*__LONG_MX==*_SUB_DEBUGMODE_LONG_MOUSEDOWNONX))&(-(*__LONG_MY==*_SUB_DEBUGMODE_LONG_MOUSEDOWNONY))))||new_error){ +if(qbevent){evnt(26070,7197,"ide_methods.bas");if(r)goto S_44178;} +do{ +*(int8*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(34))= 0 ; +if(!qbevent)break;evnt(26070,7198,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_MOUSEDOWN= 0 ; +if(!qbevent)break;evnt(26070,7199,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_BYTE_PANELACTIVE= 0 ; +if(!qbevent)break;evnt(26070,7200,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("$DEBUG MODE",11),qbs_new_txt_len("Close Watch Panel",17),qbs_new_txt_len("#Keep Variables;#Clear List",27)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7201,"ide_methods.bas");}while(r); +S_44183:; +if ((-(*_SUB_DEBUGMODE_LONG_RESULT== 2 ))||new_error){ +if(qbevent){evnt(26070,7202,"ide_methods.bas");if(r)goto S_44183;} +do{ +qbs_set(__STRING_VARIABLEWATCHLIST,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7203,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_BACKUPVARIABLEWATCHLIST,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7204,"ide_methods.bas");}while(r); +do{ if (__ARRAY_UDT_BACKUPUSEDVARIABLELIST[2]&2){ error(10); @@ -147487,2113 +147487,2113 @@ while(tmp_long--){ *(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 96)=qbs_new(0,0); *(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 104)=qbs_new(0,0); *(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 112)=qbs_new(0,0);} -} -if(!qbevent)break;evnt(26070,7204,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_BACKUPTYPEDEFINITIONS,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7205,"ide_methods.bas");}while(r); -S_44188:; -fornext_value4775= 1 ; -fornext_finalvalue4775=*__LONG_TOTALVARIABLESCREATED; -fornext_step4775= 1 ; -if (fornext_step4775<0) fornext_step_negative4775=1; else fornext_step_negative4775=0; -if (new_error) goto fornext_error4775; -goto fornext_entrylabel4775; -while(1){ -fornext_value4775=fornext_step4775+(*_SUB_DEBUGMODE_LONG_I); -fornext_entrylabel4775: -*_SUB_DEBUGMODE_LONG_I=fornext_value4775; -if (fornext_step_negative4775){ -if (fornext_value4775fornext_finalvalue4775) break; -} -fornext_error4775:; -if(qbevent){evnt(26070,7206,"ide_methods.bas");if(r)goto S_44188;} -do{ -*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_DEBUGMODE_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+29))= 0 ; -if(!qbevent)break;evnt(26070,7207,"ide_methods.bas");}while(r); -fornext_continue_4774:; -} -fornext_exit_4774:; -do{ -SUB_WRITESETTING(qbs_new_txt_len(".\\internal\\temp\\debug.ini",25),qbs_new_txt_len("settings",8),qbs_new_txt_len("vWatchPanel.x",13),qbs_new_txt_len("0",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7211,"ide_methods.bas");}while(r); -do{ -SUB_WRITESETTING(qbs_new_txt_len(".\\internal\\temp\\debug.ini",25),qbs_new_txt_len("settings",8),qbs_new_txt_len("vWatchPanel.y",13),qbs_new_txt_len("0",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7212,"ide_methods.bas");}while(r); -do{ -SUB_WRITESETTING(qbs_new_txt_len(".\\internal\\temp\\debug.ini",25),qbs_new_txt_len("settings",8),qbs_new_txt_len("vWatchPanel.w",13),qbs_new_txt_len("0",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7213,"ide_methods.bas");}while(r); -do{ -SUB_WRITESETTING(qbs_new_txt_len(".\\internal\\temp\\debug.ini",25),qbs_new_txt_len("settings",8),qbs_new_txt_len("vWatchPanel.h",13),qbs_new_txt_len("0",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7214,"ide_methods.bas");}while(r); -} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,7216,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,7216,"ide_methods.bas");}while(r); -S_44198:; -while((func__mouseinput(NULL,0))||new_error){ -if(qbevent){evnt(26070,7217,"ide_methods.bas");if(r)goto S_44198;} -ww_continue_4776:; -} -ww_exit_4776:; -do{ -return_point[next_return_point++]=79; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_UPDATEDISPLAY; -RETURN_79:; -if(!qbevent)break;evnt(26070,7219,"ide_methods.bas");}while(r); -} -S_44202:; -if ((*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(16)))||new_error){ -if(qbevent){evnt(26070,7221,"ide_methods.bas");if(r)goto S_44202;} -S_44203:; -if ((-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(16))== 2 ))||new_error){ -if(qbevent){evnt(26070,7222,"ide_methods.bas");if(r)goto S_44203;} -do{ -*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(8))=*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(8))- 1 ; -if(!qbevent)break;evnt(26070,7223,"ide_methods.bas");}while(r); -S_44205:; -if ((-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(8))< 1 ))||new_error){ -if(qbevent){evnt(26070,7224,"ide_methods.bas");if(r)goto S_44205;} -do{ -*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(8))= 1 ; -if(!qbevent)break;evnt(26070,7224,"ide_methods.bas");}while(r); -} -do{ -return_point[next_return_point++]=80; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_UPDATEDISPLAY; -RETURN_80:; -if(!qbevent)break;evnt(26070,7225,"ide_methods.bas");}while(r); -S_44209:; -}else{ -if (-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(16))== 3 )){ -if(qbevent){evnt(26070,7226,"ide_methods.bas");if(r)goto S_44209;} -do{ -*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(8))=*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(8))+ 1 ; -if(!qbevent)break;evnt(26070,7227,"ide_methods.bas");}while(r); -S_44211:; -if ((-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(8))>(*_SUB_DEBUGMODE_LONG_TOTALVISIBLEVARIABLES-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6))- 2 )+ 1 )))||new_error){ -if(qbevent){evnt(26070,7228,"ide_methods.bas");if(r)goto S_44211;} -do{ -*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(8))=*_SUB_DEBUGMODE_LONG_TOTALVISIBLEVARIABLES-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6))- 2 )+ 1 ; -if(!qbevent)break;evnt(26070,7229,"ide_methods.bas");}while(r); -} -do{ -return_point[next_return_point++]=81; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_UPDATEDISPLAY; -RETURN_81:; -if(!qbevent)break;evnt(26070,7231,"ide_methods.bas");}while(r); -} -} -do{ -*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(16))= 0 ; -if(!qbevent)break;evnt(26070,7233,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_MOUSEDOWN= 0 ; -if(!qbevent)break;evnt(26070,7233,"ide_methods.bas");}while(r); -} -S_44219:; -if ((*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(18)))||new_error){ -if(qbevent){evnt(26070,7235,"ide_methods.bas");if(r)goto S_44219;} -S_44220:; -if ((-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(18))== 2 ))||new_error){ -if(qbevent){evnt(26070,7236,"ide_methods.bas");if(r)goto S_44220;} -do{ -*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(10))=*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(10))- 1 ; -if(!qbevent)break;evnt(26070,7237,"ide_methods.bas");}while(r); -S_44222:; -if ((-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(10))< 1 ))||new_error){ -if(qbevent){evnt(26070,7238,"ide_methods.bas");if(r)goto S_44222;} -do{ -*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(10))= 1 ; -if(!qbevent)break;evnt(26070,7238,"ide_methods.bas");}while(r); -} -do{ -return_point[next_return_point++]=82; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_UPDATEDISPLAY; -RETURN_82:; -if(!qbevent)break;evnt(26070,7239,"ide_methods.bas");}while(r); -S_44226:; -}else{ -if (-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(18))== 3 )){ -if(qbevent){evnt(26070,7240,"ide_methods.bas");if(r)goto S_44226;} -do{ -*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(10))=*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(10))+ 1 ; -if(!qbevent)break;evnt(26070,7241,"ide_methods.bas");}while(r); -S_44228:; -if ((-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(10))>(*(int32*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(24))-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4))- 4 )+ 1 )))||new_error){ -if(qbevent){evnt(26070,7242,"ide_methods.bas");if(r)goto S_44228;} -do{ -*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(10))=*(int32*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(24))-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4))- 4 )+ 1 ; -if(!qbevent)break;evnt(26070,7243,"ide_methods.bas");}while(r); -} -do{ -return_point[next_return_point++]=83; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_UPDATEDISPLAY; -RETURN_83:; -if(!qbevent)break;evnt(26070,7245,"ide_methods.bas");}while(r); -} -} -do{ -*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(18))= 0 ; -if(!qbevent)break;evnt(26070,7247,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_MOUSEDOWN= 0 ; -if(!qbevent)break;evnt(26070,7247,"ide_methods.bas");}while(r); -} -S_44236:; -if ((*_SUB_DEBUGMODE_LONG_MOUSEDOWN)||new_error){ -if(qbevent){evnt(26070,7249,"ide_methods.bas");if(r)goto S_44236;} -do{ -*_SUB_DEBUGMODE_LONG_MOUSEDOWN= 0 ; -if(!qbevent)break;evnt(26070,7250,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_DRAGGINGVTHUMB= 0 ; -if(!qbevent)break;evnt(26070,7251,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_DRAGGINGHTHUMB= 0 ; -if(!qbevent)break;evnt(26070,7252,"ide_methods.bas");}while(r); -S_44240:; -if (((-(*_SUB_DEBUGMODE_LONG_MOUSEDOWNONBUTTON> 0 ))&(-(*__LONG_MX==*_SUB_DEBUGMODE_LONG_MOUSEDOWNONX))&(-(*__LONG_MY==*_SUB_DEBUGMODE_LONG_MOUSEDOWNONY)))||new_error){ -if(qbevent){evnt(26070,7254,"ide_methods.bas");if(r)goto S_44240;} -S_44241:; -if(qbevent){evnt(26070,7255,"ide_methods.bas");if(r)goto S_44241;} -S_44242:; -if (((*_SUB_DEBUGMODE_LONG_MOUSEDOWNONBUTTON==( 1 )))||new_error){ -if(qbevent){evnt(26070,7256,"ide_methods.bas");if(r)goto S_44242;} -do{ -*_SUB_DEBUGMODE_LONG_MOUSEDOWNONBUTTON= 0 ; -if(!qbevent)break;evnt(26070,7256,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_MOUSEDOWN= 0 ; -if(!qbevent)break;evnt(26070,7256,"ide_methods.bas");}while(r); -do{ -goto LABEL_F4; -if(!qbevent)break;evnt(26070,7256,"ide_methods.bas");}while(r); -sc_ec_246_end:; -goto sc_4777_end; -} -S_44246:; -if (((*_SUB_DEBUGMODE_LONG_MOUSEDOWNONBUTTON==( 2 )))||new_error){ -if(qbevent){evnt(26070,7257,"ide_methods.bas");if(r)goto S_44246;} -do{ -*_SUB_DEBUGMODE_LONG_MOUSEDOWNONBUTTON= 0 ; -if(!qbevent)break;evnt(26070,7257,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_MOUSEDOWN= 0 ; -if(!qbevent)break;evnt(26070,7257,"ide_methods.bas");}while(r); -do{ -goto LABEL_F5; -if(!qbevent)break;evnt(26070,7257,"ide_methods.bas");}while(r); -sc_ec_247_end:; -goto sc_4777_end; -} -S_44250:; -if (((*_SUB_DEBUGMODE_LONG_MOUSEDOWNONBUTTON==( 3 )))||new_error){ -if(qbevent){evnt(26070,7258,"ide_methods.bas");if(r)goto S_44250;} -do{ -*_SUB_DEBUGMODE_LONG_MOUSEDOWNONBUTTON= 0 ; -if(!qbevent)break;evnt(26070,7258,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_MOUSEDOWN= 0 ; -if(!qbevent)break;evnt(26070,7258,"ide_methods.bas");}while(r); -do{ -goto LABEL_F6; -if(!qbevent)break;evnt(26070,7258,"ide_methods.bas");}while(r); -sc_ec_248_end:; -goto sc_4777_end; -} -S_44254:; -if (((*_SUB_DEBUGMODE_LONG_MOUSEDOWNONBUTTON==( 4 )))||new_error){ -if(qbevent){evnt(26070,7259,"ide_methods.bas");if(r)goto S_44254;} -do{ -*_SUB_DEBUGMODE_LONG_MOUSEDOWNONBUTTON= 0 ; -if(!qbevent)break;evnt(26070,7259,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_MOUSEDOWN= 0 ; -if(!qbevent)break;evnt(26070,7259,"ide_methods.bas");}while(r); -do{ -goto LABEL_F7; -if(!qbevent)break;evnt(26070,7259,"ide_methods.bas");}while(r); -sc_ec_249_end:; -goto sc_4777_end; -} -S_44258:; -if (((*_SUB_DEBUGMODE_LONG_MOUSEDOWNONBUTTON==( 5 )))||new_error){ -if(qbevent){evnt(26070,7260,"ide_methods.bas");if(r)goto S_44258;} -do{ -*_SUB_DEBUGMODE_LONG_MOUSEDOWNONBUTTON= 0 ; -if(!qbevent)break;evnt(26070,7260,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_MOUSEDOWN= 0 ; -if(!qbevent)break;evnt(26070,7260,"ide_methods.bas");}while(r); -do{ -goto LABEL_F8; -if(!qbevent)break;evnt(26070,7260,"ide_methods.bas");}while(r); -sc_ec_250_end:; -goto sc_4777_end; -} -S_44262:; -if (((*_SUB_DEBUGMODE_LONG_MOUSEDOWNONBUTTON==( 6 )))||new_error){ -if(qbevent){evnt(26070,7261,"ide_methods.bas");if(r)goto S_44262;} -do{ -*_SUB_DEBUGMODE_LONG_MOUSEDOWNONBUTTON= 0 ; -if(!qbevent)break;evnt(26070,7261,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_MOUSEDOWN= 0 ; -if(!qbevent)break;evnt(26070,7261,"ide_methods.bas");}while(r); -do{ -goto LABEL_F9; -if(!qbevent)break;evnt(26070,7261,"ide_methods.bas");}while(r); -sc_ec_251_end:; -goto sc_4777_end; -} -S_44266:; -if (((*_SUB_DEBUGMODE_LONG_MOUSEDOWNONBUTTON==( 7 )))||new_error){ -if(qbevent){evnt(26070,7262,"ide_methods.bas");if(r)goto S_44266;} -do{ -*_SUB_DEBUGMODE_LONG_MOUSEDOWNONBUTTON= 0 ; -if(!qbevent)break;evnt(26070,7262,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_MOUSEDOWN= 0 ; -if(!qbevent)break;evnt(26070,7262,"ide_methods.bas");}while(r); -do{ -goto LABEL_F10; -if(!qbevent)break;evnt(26070,7262,"ide_methods.bas");}while(r); -sc_ec_252_end:; -goto sc_4777_end; -} -S_44270:; -if (((*_SUB_DEBUGMODE_LONG_MOUSEDOWNONBUTTON==( 8 )))||new_error){ -if(qbevent){evnt(26070,7263,"ide_methods.bas");if(r)goto S_44270;} -do{ -*_SUB_DEBUGMODE_LONG_MOUSEDOWNONBUTTON= 0 ; -if(!qbevent)break;evnt(26070,7263,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_MOUSEDOWN= 0 ; -if(!qbevent)break;evnt(26070,7263,"ide_methods.bas");}while(r); -do{ -goto LABEL_F12; -if(!qbevent)break;evnt(26070,7263,"ide_methods.bas");}while(r); -sc_ec_253_end:; -goto sc_4777_end; -} -sc_4777_end:; -} -S_44276:; -if ((((-(*__LONG_MX> 1 ))&(-(*__LONG_MX<=( 1 +*__LONG_MAXLINENUMBERLENGTH)))&(-(*__LONG_MY> 2 ))&(-(*__LONG_MY<(*__LONG_IDEWY- 5 )))&*__BYTE_SHOWLINENUMBERS)|((-(*__LONG_MX== 1 ))&(-(*__LONG_MY> 2 ))&(-(*__LONG_MY<(*__LONG_IDEWY- 5 )))&(-(*__BYTE_SHOWLINENUMBERS== 0 ))))||new_error){ -if(qbevent){evnt(26070,7268,"ide_methods.bas");if(r)goto S_44276;} -S_44277:; -if (((-(*_SUB_DEBUGMODE_LONG_MOUSEDOWNONX==*__LONG_MX))&(-(*_SUB_DEBUGMODE_LONG_MOUSEDOWNONY==*__LONG_MY)))||new_error){ -if(qbevent){evnt(26070,7270,"ide_methods.bas");if(r)goto S_44277;} -do{ -*__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(26070,7271,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_IDECYTEMP=*__LONG_MY- 2 +*__LONG_IDESY- 1 ; -if(!qbevent)break;evnt(26070,7272,"ide_methods.bas");}while(r); -S_44280:; -if ((-(*_SUB_DEBUGMODE_LONG_IDECYTEMP<=*__LONG_IDEN))||new_error){ -if(qbevent){evnt(26070,7273,"ide_methods.bas");if(r)goto S_44280;} -S_44281:; -if ((func__keydown( 100304 )|func__keydown( 100303 ))||new_error){ -if(qbevent){evnt(26070,7274,"ide_methods.bas");if(r)goto S_44281;} -S_44282:; -if ((-(((int8*)(__ARRAY_BYTE_IDESKIPLINES[0]))[array_check((*_SUB_DEBUGMODE_LONG_IDECYTEMP)-__ARRAY_BYTE_IDESKIPLINES[4],__ARRAY_BYTE_IDESKIPLINES[5])]== -1 ))||new_error){ -if(qbevent){evnt(26070,7275,"ide_methods.bas");if(r)goto S_44282;} -do{ -tmp_long=array_check((*_SUB_DEBUGMODE_LONG_IDECYTEMP)-__ARRAY_BYTE_IDESKIPLINES[4],__ARRAY_BYTE_IDESKIPLINES[5]); -if (!new_error) ((int8*)(__ARRAY_BYTE_IDESKIPLINES[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(26070,7276,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(qbs_new_txt_len("clear skip line:",16),l2string(*_SUB_DEBUGMODE_LONG_IDECYTEMP))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7277,"ide_methods.bas");}while(r); -}else{ -do{ -tmp_long=array_check((*_SUB_DEBUGMODE_LONG_IDECYTEMP)-__ARRAY_BYTE_IDESKIPLINES[4],__ARRAY_BYTE_IDESKIPLINES[5]); -if (!new_error) ((int8*)(__ARRAY_BYTE_IDESKIPLINES[0]))[tmp_long]= -1 ; -if(!qbevent)break;evnt(26070,7279,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_DEBUGMODE_LONG_IDECYTEMP)-__ARRAY_BYTE_IDEBREAKPOINTS[4],__ARRAY_BYTE_IDEBREAKPOINTS[5]); -if (!new_error) ((int8*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(26070,7280,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(qbs_new_txt_len("set skip line:",14),l2string(*_SUB_DEBUGMODE_LONG_IDECYTEMP))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7281,"ide_methods.bas");}while(r); -} -}else{ -S_44291:; -if ((((int8*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]))[array_check((*_SUB_DEBUGMODE_LONG_IDECYTEMP)-__ARRAY_BYTE_IDEBREAKPOINTS[4],__ARRAY_BYTE_IDEBREAKPOINTS[5])])||new_error){ -if(qbevent){evnt(26070,7284,"ide_methods.bas");if(r)goto S_44291;} -do{ -tmp_long=array_check((*_SUB_DEBUGMODE_LONG_IDECYTEMP)-__ARRAY_BYTE_IDEBREAKPOINTS[4],__ARRAY_BYTE_IDEBREAKPOINTS[5]); -if (!new_error) ((int8*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(26070,7285,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("clear breakpoint:",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7286,"ide_methods.bas");}while(r); -}else{ -do{ -tmp_long=array_check((*_SUB_DEBUGMODE_LONG_IDECYTEMP)-__ARRAY_BYTE_IDEBREAKPOINTS[4],__ARRAY_BYTE_IDEBREAKPOINTS[5]); -if (!new_error) ((int8*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]))[tmp_long]= -1 ; -if(!qbevent)break;evnt(26070,7288,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_DEBUGMODE_LONG_IDECYTEMP)-__ARRAY_BYTE_IDESKIPLINES[4],__ARRAY_BYTE_IDESKIPLINES[5]); -if (!new_error) ((int8*)(__ARRAY_BYTE_IDESKIPLINES[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(26070,7289,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("set breakpoint:",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7290,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,l2string(*_SUB_DEBUGMODE_LONG_IDECYTEMP))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7292,"ide_methods.bas");}while(r); -} -do{ -return_point[next_return_point++]=84; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_SENDCOMMAND; -RETURN_84:; -if(!qbevent)break;evnt(26070,7294,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=85; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_UPDATEDISPLAY; -RETURN_85:; -if(!qbevent)break;evnt(26070,7295,"ide_methods.bas");}while(r); -} -} -S_44305:; -}else{ -if ((-(*__LONG_MX>( 1 +*__LONG_MAXLINENUMBERLENGTH)))&(-(*__LONG_MX<*__LONG_IDEWX))&(-(*__LONG_MY> 2 ))&(-(*__LONG_MY<(*__LONG_IDEWY- 5 )))){ -if(qbevent){evnt(26070,7298,"ide_methods.bas");if(r)goto S_44305;} -do{ -*_SUB_DEBUGMODE_LONG_BKPIDECY=*__LONG_IDECY; -if(!qbevent)break;evnt(26070,7300,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECY=*__LONG_MY- 2 +*__LONG_IDESY- 1 ; -if(!qbevent)break;evnt(26070,7301,"ide_methods.bas");}while(r); -S_44308:; -if ((-(*__LONG_IDECY>*__LONG_IDEN))||new_error){ -if(qbevent){evnt(26070,7302,"ide_methods.bas");if(r)goto S_44308;} -do{ -*__LONG_IDECY=*__LONG_IDEN; -if(!qbevent)break;evnt(26070,7302,"ide_methods.bas");}while(r); -} -S_44311:; -if ((-(*_SUB_DEBUGMODE_LONG_BKPIDECY!=*__LONG_IDECY))||new_error){ -if(qbevent){evnt(26070,7303,"ide_methods.bas");if(r)goto S_44311;} -do{ -*__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(26070,7303,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=86; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_UPDATEDISPLAY; -RETURN_86:; -if(!qbevent)break;evnt(26070,7303,"ide_methods.bas");}while(r); -} -S_44315:; -}else{ -if ((-(*__LONG_MX==*__LONG_IDEWX))&(-(*__LONG_MY> 2 ))&(-(*__LONG_MY<(*__LONG_IDEWY- 5 )))){ -if(qbevent){evnt(26070,7304,"ide_methods.bas");if(r)goto S_44315;} -S_44316:; -if (((-(*_SUB_DEBUGMODE_LONG_MOUSEDOWNONX==*__LONG_MX))&(-(*_SUB_DEBUGMODE_LONG_MOUSEDOWNONY==*__LONG_MY)))||new_error){ -if(qbevent){evnt(26070,7306,"ide_methods.bas");if(r)goto S_44316;} -S_44317:; -if ((-(*__LONG_MY== 3 ))||new_error){ -if(qbevent){evnt(26070,7307,"ide_methods.bas");if(r)goto S_44317;} -do{ -goto LABEL_KEYUP; -if(!qbevent)break;evnt(26070,7307,"ide_methods.bas");}while(r); -} -S_44320:; -if ((-(*__LONG_MY==(*__LONG_IDEWY- 6 )))||new_error){ -if(qbevent){evnt(26070,7308,"ide_methods.bas");if(r)goto S_44320;} -do{ -goto LABEL_KEYDOWN; -if(!qbevent)break;evnt(26070,7308,"ide_methods.bas");}while(r); -} -S_44323:; -if (((-(*__LONG_MY> 3 ))&(-(*__LONG_MY<(*__LONG_IDEWY- 6 ))))||new_error){ -if(qbevent){evnt(26070,7309,"ide_methods.bas");if(r)goto S_44323;} -S_44324:; -if ((-(*__LONG_IDEN> 1 ))||new_error){ -if(qbevent){evnt(26070,7311,"ide_methods.bas");if(r)goto S_44324;} -do{ -*_SUB_DEBUGMODE_LONG_Y=FUNC_IDEVBAR(__LONG_IDEWX,&(pass4778= 3 ),&(pass4779=*__LONG_IDEWY- 8 ),__LONG_IDECY,__LONG_IDEN); -if(!qbevent)break;evnt(26070,7312,"ide_methods.bas");}while(r); -S_44326:; -if ((-(*_SUB_DEBUGMODE_LONG_Y!=*__LONG_MY))||new_error){ -if(qbevent){evnt(26070,7313,"ide_methods.bas");if(r)goto S_44326;} -S_44327:; -if ((-(*__LONG_MY<*_SUB_DEBUGMODE_LONG_Y))||new_error){ -if(qbevent){evnt(26070,7314,"ide_methods.bas");if(r)goto S_44327;} -do{ -goto LABEL_PAGEUP; -if(!qbevent)break;evnt(26070,7315,"ide_methods.bas");}while(r); -}else{ -do{ -goto LABEL_PAGEDOWN; -if(!qbevent)break;evnt(26070,7317,"ide_methods.bas");}while(r); -} -} -} -} -} -S_44336:; -}else{ -if ((-(*__LONG_MY==(*__LONG_IDEWY- 4 )))&(-(*__LONG_MX>(*__LONG_IDEWX-( 20 + 10 ))))&(-(*__LONG_MX<(*__LONG_IDEWX- 1 )))){ -if(qbevent){evnt(26070,7323,"ide_methods.bas");if(r)goto S_44336;} -do{ -goto LABEL_FINDJMP; -if(!qbevent)break;evnt(26070,7325,"ide_methods.bas");}while(r); -} -} -} -} -}else{ -do{ -*_SUB_DEBUGMODE_LONG_MOUSEDOWN= 0 ; -if(!qbevent)break;evnt(26070,7328,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_DRAGGINGVTHUMB= 0 ; -if(!qbevent)break;evnt(26070,7329,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_DRAGGINGHTHUMB= 0 ; -if(!qbevent)break;evnt(26070,7330,"ide_methods.bas");}while(r); -do{ -*(int8*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(32))= 0 ; -if(!qbevent)break;evnt(26070,7331,"ide_methods.bas");}while(r); -do{ -*(int8*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(33))= 0 ; -if(!qbevent)break;evnt(26070,7332,"ide_methods.bas");}while(r); -do{ -*(int8*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(34))= 0 ; -if(!qbevent)break;evnt(26070,7333,"ide_methods.bas");}while(r); -do{ -*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(16))= 0 ; -if(!qbevent)break;evnt(26070,7334,"ide_methods.bas");}while(r); -do{ -*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(18))= 0 ; -if(!qbevent)break;evnt(26070,7335,"ide_methods.bas");}while(r); -} -} -LABEL_UPDATESTATUSAREA:; -if(qbevent){evnt(26070,7340,"ide_methods.bas");r=0;} -S_44350:; -if ((func__hasfocus())||new_error){ -if(qbevent){evnt(26070,7341,"ide_methods.bas");if(r)goto S_44350;} -S_44351:; -if ((*_SUB_DEBUGMODE_BYTE_NOFOCUSMESSAGE)||new_error){ -if(qbevent){evnt(26070,7342,"ide_methods.bas");if(r)goto S_44351;} -do{ -SUB_UPDATEMENUHELPLINE(qbs_new_txt_len("Right-click for options; ESC to abort.",38)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7343,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=87; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_PRINTVERSION; -RETURN_87:; -if(!qbevent)break;evnt(26070,7344,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=88; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_UPDATEBUTTONS; -RETURN_88:; -if(!qbevent)break;evnt(26070,7345,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_BYTE_NOFOCUSMESSAGE= 0 ; -if(!qbevent)break;evnt(26070,7346,"ide_methods.bas");}while(r); -} -}else{ -S_44358:; -if ((-(*_SUB_DEBUGMODE_BYTE_NOFOCUSMESSAGE== 0 ))||new_error){ -if(qbevent){evnt(26070,7349,"ide_methods.bas");if(r)goto S_44358;} -do{ -SUB_CLEARSTATUSWINDOW(&(pass4780= 2 )); -if(!qbevent)break;evnt(26070,7350,"ide_methods.bas");}while(r); -do{ -SUB_CLEARSTATUSWINDOW(&(pass4781= 3 )); -if(!qbevent)break;evnt(26070,7351,"ide_methods.bas");}while(r); -do{ -SUB_SETSTATUSMESSAGE(&(pass4782= 2 ),qbs_new_txt_len("Set focus to the IDE to control execution",41),&(pass4783= 15 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7352,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_BYTE_NOFOCUSMESSAGE= -1 ; -if(!qbevent)break;evnt(26070,7353,"ide_methods.bas");}while(r); -} -} -S_44365:; -if ((-(*__LONG_IDEDEBUGMODE> 1 ))||new_error){ -if(qbevent){evnt(26070,7356,"ide_methods.bas");if(r)goto S_44365;} -do{ -#include "ret172.txt" -if(!qbevent)break;evnt(26070,7356,"ide_methods.bas");}while(r); -} -do{ -*_SUB_DEBUGMODE_LONG_K=func__keyhit(); -if(!qbevent)break;evnt(26070,7358,"ide_methods.bas");}while(r); -S_44369:; -if(qbevent){evnt(26070,7359,"ide_methods.bas");if(r)goto S_44369;} -S_44370:; -if (((*_SUB_DEBUGMODE_LONG_K==( 18432 )))||new_error){ -if(qbevent){evnt(26070,7360,"ide_methods.bas");if(r)goto S_44370;} -LABEL_KEYUP:; -if(qbevent){evnt(26070,7361,"ide_methods.bas");r=0;} -do{ -*_SUB_DEBUGMODE_LONG_BKPIDECY=*__LONG_IDECY; -if(!qbevent)break;evnt(26070,7362,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_BKPIDESY=*__LONG_IDESY; -if(!qbevent)break;evnt(26070,7362,"ide_methods.bas");}while(r); -S_44373:; -if ((func__keydown( 100306 )|func__keydown( 100305 ))||new_error){ -if(qbevent){evnt(26070,7363,"ide_methods.bas");if(r)goto S_44373;} -do{ -*__LONG_IDESY=*__LONG_IDESY- 1 ; -if(!qbevent)break;evnt(26070,7364,"ide_methods.bas");}while(r); -S_44375:; -if ((-(*__LONG_IDESY< 1 ))||new_error){ -if(qbevent){evnt(26070,7365,"ide_methods.bas");if(r)goto S_44375;} -do{ -*__LONG_IDESY= 1 ; -if(!qbevent)break;evnt(26070,7365,"ide_methods.bas");}while(r); -} -S_44378:; -if ((-(*__LONG_IDECY>(*__LONG_IDESY+(*__LONG_IDEWY- 9 ))))||new_error){ -if(qbevent){evnt(26070,7366,"ide_methods.bas");if(r)goto S_44378;} -do{ -*__LONG_IDECY=*__LONG_IDESY+(*__LONG_IDEWY- 9 ); -if(!qbevent)break;evnt(26070,7366,"ide_methods.bas");}while(r); -} -}else{ -do{ -*__LONG_IDECY=*__LONG_IDECY- 1 ; -if(!qbevent)break;evnt(26070,7368,"ide_methods.bas");}while(r); -S_44383:; -if ((-(*__LONG_IDECY< 1 ))||new_error){ -if(qbevent){evnt(26070,7369,"ide_methods.bas");if(r)goto S_44383;} -do{ -*__LONG_IDECY= 1 ; -if(!qbevent)break;evnt(26070,7369,"ide_methods.bas");}while(r); -} -} -S_44387:; -if (((-(*_SUB_DEBUGMODE_LONG_BKPIDECY!=*__LONG_IDECY))|(-(*_SUB_DEBUGMODE_LONG_BKPIDESY!=*__LONG_IDESY)))||new_error){ -if(qbevent){evnt(26070,7371,"ide_methods.bas");if(r)goto S_44387;} -do{ -*__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(26070,7371,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=89; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_UPDATEDISPLAY; -RETURN_89:; -if(!qbevent)break;evnt(26070,7371,"ide_methods.bas");}while(r); -} -sc_ec_254_end:; -goto sc_4784_end; -} -S_44391:; -if (((*_SUB_DEBUGMODE_LONG_K==( 20480 )))||new_error){ -if(qbevent){evnt(26070,7372,"ide_methods.bas");if(r)goto S_44391;} -LABEL_KEYDOWN:; -if(qbevent){evnt(26070,7373,"ide_methods.bas");r=0;} -do{ -*_SUB_DEBUGMODE_LONG_BKPIDECY=*__LONG_IDECY; -if(!qbevent)break;evnt(26070,7374,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_BKPIDESY=*__LONG_IDESY; -if(!qbevent)break;evnt(26070,7374,"ide_methods.bas");}while(r); -S_44394:; -if ((func__keydown( 100306 )|func__keydown( 100305 ))||new_error){ -if(qbevent){evnt(26070,7375,"ide_methods.bas");if(r)goto S_44394;} -do{ -*__LONG_IDESY=*__LONG_IDESY+ 1 ; -if(!qbevent)break;evnt(26070,7376,"ide_methods.bas");}while(r); -S_44396:; -if ((-(*__LONG_IDESY>*__LONG_IDEN))||new_error){ -if(qbevent){evnt(26070,7377,"ide_methods.bas");if(r)goto S_44396;} -do{ -*__LONG_IDESY=*__LONG_IDEN; -if(!qbevent)break;evnt(26070,7377,"ide_methods.bas");}while(r); -} -S_44399:; -if ((-(*__LONG_IDECY<*__LONG_IDESY))||new_error){ -if(qbevent){evnt(26070,7378,"ide_methods.bas");if(r)goto S_44399;} -do{ -*__LONG_IDECY=*__LONG_IDESY; -if(!qbevent)break;evnt(26070,7378,"ide_methods.bas");}while(r); -} -}else{ -do{ -*__LONG_IDECY=*__LONG_IDECY+ 1 ; -if(!qbevent)break;evnt(26070,7380,"ide_methods.bas");}while(r); -S_44404:; -if ((-(*__LONG_IDECY>*__LONG_IDEN))||new_error){ -if(qbevent){evnt(26070,7381,"ide_methods.bas");if(r)goto S_44404;} -do{ -*__LONG_IDECY=*__LONG_IDEN; -if(!qbevent)break;evnt(26070,7381,"ide_methods.bas");}while(r); -} -} -S_44408:; -if (((-(*_SUB_DEBUGMODE_LONG_BKPIDECY!=*__LONG_IDECY))|(-(*_SUB_DEBUGMODE_LONG_BKPIDESY!=*__LONG_IDESY)))||new_error){ -if(qbevent){evnt(26070,7383,"ide_methods.bas");if(r)goto S_44408;} -do{ -*__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(26070,7383,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=90; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_UPDATEDISPLAY; -RETURN_90:; -if(!qbevent)break;evnt(26070,7383,"ide_methods.bas");}while(r); -} -sc_ec_255_end:; -goto sc_4784_end; -} -S_44412:; -if (((*_SUB_DEBUGMODE_LONG_K==( 18688 )))||new_error){ -if(qbevent){evnt(26070,7384,"ide_methods.bas");if(r)goto S_44412;} -LABEL_PAGEUP:; -if(qbevent){evnt(26070,7385,"ide_methods.bas");r=0;} -do{ -*_SUB_DEBUGMODE_LONG_BKPIDECY=*__LONG_IDECY; -if(!qbevent)break;evnt(26070,7386,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_BKPIDESY=*__LONG_IDESY; -if(!qbevent)break;evnt(26070,7386,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECY=*__LONG_IDECY-(*__LONG_IDEWY- 9 ); -if(!qbevent)break;evnt(26070,7387,"ide_methods.bas");}while(r); -S_44416:; -if ((-(*__LONG_IDECY< 1 ))||new_error){ -if(qbevent){evnt(26070,7388,"ide_methods.bas");if(r)goto S_44416;} -do{ -*__LONG_IDECY= 1 ; -if(!qbevent)break;evnt(26070,7388,"ide_methods.bas");}while(r); -} -S_44419:; -if (((-(*_SUB_DEBUGMODE_LONG_BKPIDECY!=*__LONG_IDECY))|(-(*_SUB_DEBUGMODE_LONG_BKPIDESY!=*__LONG_IDESY)))||new_error){ -if(qbevent){evnt(26070,7389,"ide_methods.bas");if(r)goto S_44419;} -do{ -*__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(26070,7389,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=91; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_UPDATEDISPLAY; -RETURN_91:; -if(!qbevent)break;evnt(26070,7389,"ide_methods.bas");}while(r); -} -sc_ec_256_end:; -goto sc_4784_end; -} -S_44423:; -if (((*_SUB_DEBUGMODE_LONG_K==( 20736 )))||new_error){ -if(qbevent){evnt(26070,7390,"ide_methods.bas");if(r)goto S_44423;} -LABEL_PAGEDOWN:; -if(qbevent){evnt(26070,7391,"ide_methods.bas");r=0;} -do{ -*_SUB_DEBUGMODE_LONG_BKPIDECY=*__LONG_IDECY; -if(!qbevent)break;evnt(26070,7392,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_BKPIDESY=*__LONG_IDESY; -if(!qbevent)break;evnt(26070,7392,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECY=*__LONG_IDECY+(*__LONG_IDEWY- 9 ); -if(!qbevent)break;evnt(26070,7393,"ide_methods.bas");}while(r); -S_44427:; -if ((-(*__LONG_IDECY>*__LONG_IDEN))||new_error){ -if(qbevent){evnt(26070,7394,"ide_methods.bas");if(r)goto S_44427;} -do{ -*__LONG_IDECY=*__LONG_IDEN; -if(!qbevent)break;evnt(26070,7394,"ide_methods.bas");}while(r); -} -S_44430:; -if (((-(*_SUB_DEBUGMODE_LONG_BKPIDECY!=*__LONG_IDECY))|(-(*_SUB_DEBUGMODE_LONG_BKPIDESY!=*__LONG_IDESY)))||new_error){ -if(qbevent){evnt(26070,7395,"ide_methods.bas");if(r)goto S_44430;} -do{ -*__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(26070,7395,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=92; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_UPDATEDISPLAY; -RETURN_92:; -if(!qbevent)break;evnt(26070,7395,"ide_methods.bas");}while(r); -} -sc_ec_257_end:; -goto sc_4784_end; -} -S_44434:; -if (((*_SUB_DEBUGMODE_LONG_K==( 18176 )))||new_error){ -if(qbevent){evnt(26070,7396,"ide_methods.bas");if(r)goto S_44434;} -do{ -*_SUB_DEBUGMODE_LONG_BKPIDECY=*__LONG_IDECY; -if(!qbevent)break;evnt(26070,7397,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_BKPIDESY=*__LONG_IDESY; -if(!qbevent)break;evnt(26070,7397,"ide_methods.bas");}while(r); -S_44437:; -if ((func__keydown( 100306 )|func__keydown( 100305 ))||new_error){ -if(qbevent){evnt(26070,7398,"ide_methods.bas");if(r)goto S_44437;} -do{ -*__LONG_IDECY= 1 ; -if(!qbevent)break;evnt(26070,7398,"ide_methods.bas");}while(r); -} -S_44440:; -if (((-(*_SUB_DEBUGMODE_LONG_BKPIDECY!=*__LONG_IDECY))|(-(*_SUB_DEBUGMODE_LONG_BKPIDESY!=*__LONG_IDESY)))||new_error){ -if(qbevent){evnt(26070,7399,"ide_methods.bas");if(r)goto S_44440;} -do{ -*__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(26070,7399,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=93; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_UPDATEDISPLAY; -RETURN_93:; -if(!qbevent)break;evnt(26070,7399,"ide_methods.bas");}while(r); -} -sc_ec_258_end:; -goto sc_4784_end; -} -S_44444:; -if (((*_SUB_DEBUGMODE_LONG_K==( 20224 )))||new_error){ -if(qbevent){evnt(26070,7400,"ide_methods.bas");if(r)goto S_44444;} -do{ -*_SUB_DEBUGMODE_LONG_BKPIDECY=*__LONG_IDECY; -if(!qbevent)break;evnt(26070,7401,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_BKPIDESY=*__LONG_IDESY; -if(!qbevent)break;evnt(26070,7401,"ide_methods.bas");}while(r); -S_44447:; -if ((func__keydown( 100306 )|func__keydown( 100305 ))||new_error){ -if(qbevent){evnt(26070,7402,"ide_methods.bas");if(r)goto S_44447;} -do{ -*__LONG_IDECY=*__LONG_IDEN; -if(!qbevent)break;evnt(26070,7402,"ide_methods.bas");}while(r); -} -S_44450:; -if (((-(*_SUB_DEBUGMODE_LONG_BKPIDECY!=*__LONG_IDECY))|(-(*_SUB_DEBUGMODE_LONG_BKPIDESY!=*__LONG_IDESY)))||new_error){ -if(qbevent){evnt(26070,7403,"ide_methods.bas");if(r)goto S_44450;} -do{ -*__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(26070,7403,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=94; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_UPDATEDISPLAY; -RETURN_94:; -if(!qbevent)break;evnt(26070,7403,"ide_methods.bas");}while(r); -} -sc_ec_259_end:; -goto sc_4784_end; -} -S_44454:; -if (((*_SUB_DEBUGMODE_LONG_K==( 27 )))||new_error){ -if(qbevent){evnt(26070,7404,"ide_methods.bas");if(r)goto S_44454;} -LABEL_REQUESTQUIT:; -if(qbevent){evnt(26070,7405,"ide_methods.bas");r=0;} -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("free",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7406,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=95; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_SENDCOMMAND; -RETURN_95:; -if(!qbevent)break;evnt(26070,7407,"ide_methods.bas");}while(r); -do{ -sub_close(*__LONG_DEBUGCLIENT,1); -if(!qbevent)break;evnt(26070,7408,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_DUMMY=FUNC_DARKENFGBG(&(pass4785= 0 )); -if(!qbevent)break;evnt(26070,7409,"ide_methods.bas");}while(r); -do{ -SUB_CLEARSTATUSWINDOW(&(pass4786= 0 )); -if(!qbevent)break;evnt(26070,7410,"ide_methods.bas");}while(r); -do{ -SUB_SETSTATUSMESSAGE(&(pass4787= 1 ),qbs_new_txt_len("Debug session aborted.",22),&(pass4788= 7 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7411,"ide_methods.bas");}while(r); -S_44461:; -while((func__mouseinput(NULL,0))||new_error){ -if(qbevent){evnt(26070,7412,"ide_methods.bas");if(r)goto S_44461;} -ww_continue_4789:; -} -ww_exit_4789:; -do{ -sub__keyclear(NULL,0); -if(!qbevent)break;evnt(26070,7413,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,7414,"ide_methods.bas");}while(r); -sc_ec_260_end:; -goto sc_4784_end; -} -S_44465:; -if (((*_SUB_DEBUGMODE_LONG_K==( 15360 )))||new_error){ -if(qbevent){evnt(26070,7415,"ide_methods.bas");if(r)goto S_44465;} -LABEL_REQUESTSUBSDIALOG:; -if(qbevent){evnt(26070,7416,"ide_methods.bas");r=0;} -do{ -*_SUB_DEBUGMODE_LONG_BKPIDECY=*__LONG_IDECY; -if(!qbevent)break;evnt(26070,7417,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_BKPIDESY=*__LONG_IDESY; -if(!qbevent)break;evnt(26070,7417,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_R,FUNC_IDESUBS()); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7418,"ide_methods.bas");}while(r); -S_44469:; -if (((-(*_SUB_DEBUGMODE_LONG_BKPIDECY!=*__LONG_IDECY))|(-(*_SUB_DEBUGMODE_LONG_BKPIDESY!=*__LONG_IDESY)))||new_error){ -if(qbevent){evnt(26070,7419,"ide_methods.bas");if(r)goto S_44469;} -do{ -*__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(26070,7419,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=96; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_UPDATEDISPLAY; -RETURN_96:; -if(!qbevent)break;evnt(26070,7419,"ide_methods.bas");}while(r); -} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,7420,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,7420,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=97; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_UPDATEDISPLAY; -RETURN_97:; -if(!qbevent)break;evnt(26070,7421,"ide_methods.bas");}while(r); -S_44476:; -while((func__mouseinput(NULL,0))||new_error){ -if(qbevent){evnt(26070,7422,"ide_methods.bas");if(r)goto S_44476;} -ww_continue_4790:; -} -ww_exit_4790:; -sc_ec_261_end:; -goto sc_4784_end; -} -S_44478:; -if (((*_SUB_DEBUGMODE_LONG_K==( 102 ))||(*_SUB_DEBUGMODE_LONG_K==( 70 )))||new_error){ -if(qbevent){evnt(26070,7423,"ide_methods.bas");if(r)goto S_44478;} -S_44479:; -if ((func__keydown( 100306 )|func__keydown( 100305 ))||new_error){ -if(qbevent){evnt(26070,7424,"ide_methods.bas");if(r)goto S_44479;} -do{ -goto LABEL_FINDJMP; -if(!qbevent)break;evnt(26070,7424,"ide_methods.bas");}while(r); -} -sc_ec_262_end:; -goto sc_4784_end; -} -S_44482:; -if (((*_SUB_DEBUGMODE_LONG_K==( 15616 )))||new_error){ -if(qbevent){evnt(26070,7425,"ide_methods.bas");if(r)goto S_44482;} -S_44483:; -if ((func__keydown( 100306 )|func__keydown( 100305 ))||new_error){ -if(qbevent){evnt(26070,7426,"ide_methods.bas");if(r)goto S_44483;} -do{ -goto LABEL_FINDJMP; -if(!qbevent)break;evnt(26070,7426,"ide_methods.bas");}while(r); -} -S_44486:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_IDEFINDTEXT,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,7427,"ide_methods.bas");if(r)goto S_44486;} -do{ -qbg_sub_color( 7 , 1 ,NULL,3); -if(!qbevent)break;evnt(26070,7430,"ide_methods.bas");}while(r); -do{ -sub__printstring(*__LONG_IDEWX-( 20 + 10 ),*__LONG_IDEWY- 4 ,func_chr( 180 ),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7430,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 3 , 1 ,NULL,3); -if(!qbevent)break;evnt(26070,7431,"ide_methods.bas");}while(r); -do{ -sub__printstring( 1 +*__LONG_IDEWX-( 20 + 10 ),*__LONG_IDEWY- 4 ,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Find[",5),func_space( 20 + 1 )),func_chr( 18 )),qbs_new_txt_len("]",1)),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7432,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_A,qbs_left(__STRING_IDEFINDTEXT, 20 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7433,"ide_methods.bas");}while(r); -do{ -sub__printstring(*__LONG_IDEWX-( 20 + 8 )+ 4 ,*__LONG_IDEWY- 4 ,_SUB_DEBUGMODE_STRING_A,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7434,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 7 , 1 ,NULL,3); -if(!qbevent)break;evnt(26070,7435,"ide_methods.bas");}while(r); -do{ -sub__printstring(*__LONG_IDEWX- 2 ,*__LONG_IDEWY- 4 ,func_chr( 195 ),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7435,"ide_methods.bas");}while(r); -S_44495:; -if ((func__keydown( 100304 )|func__keydown( 100303 ))||new_error){ -if(qbevent){evnt(26070,7437,"ide_methods.bas");if(r)goto S_44495;} -do{ -*__INTEGER_IDEFINDINVERT= 1 ; -if(!qbevent)break;evnt(26070,7437,"ide_methods.bas");}while(r); -} -do{ -SUB_IDEADDSEARCHED(__STRING_IDEFINDTEXT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7438,"ide_methods.bas");}while(r); -do{ -SUB_IDEFINDAGAIN(&(pass4791= -1 )); -if(!qbevent)break;evnt(26070,7439,"ide_methods.bas");}while(r); -}else{ -LABEL_FINDJMP:; -if(qbevent){evnt(26070,7441,"ide_methods.bas");r=0;} -do{ -qbs_set(_SUB_DEBUGMODE_STRING_R,FUNC_IDEFIND()); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7442,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,7443,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,7443,"ide_methods.bas");}while(r); -S_44504:; -while((func__mouseinput(NULL,0))||new_error){ -if(qbevent){evnt(26070,7444,"ide_methods.bas");if(r)goto S_44504;} -ww_continue_4792:; -} -ww_exit_4792:; -} -do{ -return_point[next_return_point++]=98; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_UPDATEDISPLAY; -RETURN_98:; -if(!qbevent)break;evnt(26070,7446,"ide_methods.bas");}while(r); -sc_ec_263_end:; -goto sc_4784_end; -} -S_44508:; -if (((*_SUB_DEBUGMODE_LONG_K==( 15872 )))||new_error){ -if(qbevent){evnt(26070,7447,"ide_methods.bas");if(r)goto S_44508;} -LABEL_F4:; -if(qbevent){evnt(26070,7448,"ide_methods.bas");r=0;} -S_44509:; -if ((-(*_SUB_DEBUGMODE_BYTE_PAUSEMODE== 0 ))||new_error){ -if(qbevent){evnt(26070,7449,"ide_methods.bas");if(r)goto S_44509;} -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("break",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7450,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_BYTE_PAUSEMODE= -1 ; -if(!qbevent)break;evnt(26070,7451,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=99; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_SENDCOMMAND; -RETURN_99:; -if(!qbevent)break;evnt(26070,7452,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_ESTABILISHINGSCOPE= -1 ; -if(!qbevent)break;evnt(26070,7453,"ide_methods.bas");}while(r); -}else{ -LABEL_REQUESTVARIABLEWATCH:; -if(qbevent){evnt(26070,7455,"ide_methods.bas");r=0;} -do{ -*_SUB_DEBUGMODE_LONG_HIDEPANEL= -1 ; -if(!qbevent)break;evnt(26070,7456,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=100; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_UPDATEDISPLAY; -RETURN_100:; -if(!qbevent)break;evnt(26070,7457,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_SELECTVAR= 1 ; -if(!qbevent)break;evnt(26070,7458,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_FILTER,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7459,"ide_methods.bas");}while(r); -S_44519:; -do{ -if(qbevent){evnt(26070,7460,"ide_methods.bas");if(r)goto S_44519;} -do{ -qbs_set(_SUB_DEBUGMODE_STRING_RESULT,FUNC_IDEVARIABLEWATCHBOX(_SUB_DEBUGMODE_STRING_CURRENTSUB,_SUB_DEBUGMODE_STRING_FILTER,_SUB_DEBUGMODE_LONG_SELECTVAR,_SUB_DEBUGMODE_LONG_RETURNACTION)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7461,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_TEMP,FUNC_GETBYTES(qbs_new_txt_len("",0),&(pass4794= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7462,"ide_methods.bas");}while(r); -S_44522:; -if ((-(*_SUB_DEBUGMODE_LONG_RETURNACTION== 1 ))||new_error){ -if(qbevent){evnt(26070,7463,"ide_methods.bas");if(r)goto S_44522;} -do{ -*_SUB_DEBUGMODE_LONG_TEMPINDEX=string2l(FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,&(pass4795= 4 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7465,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_TEMPISARRAY=string2b(FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,&(pass4796= 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7466,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_TEMP,FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,&(pass4797= 4 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7467,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_TEMPLOCALINDEX=string2l(FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,&(pass4798= 4 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7468,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_TEMPARRAYINDEX=string2l(FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,&(pass4799= 4 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7469,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_TEMPARRAYINDEXES,qbs_add(l2string(*_SUB_DEBUGMODE_LONG_TEMPARRAYINDEX),FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,_SUB_DEBUGMODE_LONG_TEMPARRAYINDEX))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7470,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_TEMPARRAYELEMENTSIZE=string2l(FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,&(pass4800= 4 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7471,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_TEMPISUDT=string2l(FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,&(pass4801= 4 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7472,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_TEMP,FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,&(pass4802= 4 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7473,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_TEMPELEMENTOFFSET=string2l(FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,&(pass4803= 4 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7474,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_TEMP,FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,&(pass4804= 4 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7475,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_TEMPSTORAGE=string2l(FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,&(pass4805= 4 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7476,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_I=string2i(FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,&(pass4806= 2 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7477,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_TEMPSCOPE,FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,_SUB_DEBUGMODE_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7478,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_I=string2i(FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,&(pass4807= 2 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7479,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_VARTYPE,FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,_SUB_DEBUGMODE_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7480,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_I=string2i(FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,&(pass4808= 2 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7481,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_VALUE,FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,_SUB_DEBUGMODE_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7482,"ide_methods.bas");}while(r); -S_44541:; -if ((qbs_cleanup(qbs_tmp_base,-((*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_DEBUGMODE_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+64)))->len== 0 )))||new_error){ -if(qbevent){evnt(26070,7484,"ide_methods.bas");if(r)goto S_44541;} -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("set global address:",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7485,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("set local address:",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7487,"ide_methods.bas");}while(r); -} -LABEL_FINDVARSIZE:; -if(qbevent){evnt(26070,7490,"ide_methods.bas");r=0;} -do{ -qbs_set(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,_SUB_DEBUGMODE_STRING_VARTYPE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7491,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_FIXEDVARSIZE= 0 ; -if(!qbevent)break;evnt(26070,7492,"ide_methods.bas");}while(r); -S_44548:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_DEBUGMODE_STRING_VARTYPE,qbs_new_txt_len("STRING *",8),0)))||new_error){ -if(qbevent){evnt(26070,7493,"ide_methods.bas");if(r)goto S_44548;} -do{ -qbs_set(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("STRING",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7494,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_FIXEDVARSIZE=qbr(func_val(func_mid(_SUB_DEBUGMODE_STRING_VARTYPE,func__instrrev(NULL,_SUB_DEBUGMODE_STRING_VARTYPE,qbs_new_txt_len("* ",2),0)+ 2 ,NULL,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7495,"ide_methods.bas");}while(r); -} -S_44552:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_DEBUGMODE_STRING_VARTYPE,qbs_new_txt_len("BIT *",5),0)))||new_error){ -if(qbevent){evnt(26070,7497,"ide_methods.bas");if(r)goto S_44552;} -do{ -qbs_set(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_BIT",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7497,"ide_methods.bas");}while(r); -} -S_44555:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_BIT",4)))&(-(func_instr(NULL,_SUB_DEBUGMODE_STRING_VARTYPE,qbs_new_txt_len("UNSIGNED",8),0)> 0 ))))||new_error){ -if(qbevent){evnt(26070,7498,"ide_methods.bas");if(r)goto S_44555;} -do{ -qbs_set(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_UNSIGNED _BIT",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7499,"ide_methods.bas");}while(r); -} -S_44558:; -if(qbevent){evnt(26070,7501,"ide_methods.bas");if(r)goto S_44558;} -S_44559:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_BIT",4))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_UNSIGNED _BIT",14))))||new_error){ -if(qbevent){evnt(26070,7502,"ide_methods.bas");if(r)goto S_44559;} -do{ -qbs_set(_SUB_DEBUGMODE_STRING_VALUE,l2string(qbr(func_val(_SUB_DEBUGMODE_STRING_VALUE)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7503,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_VARSIZE=4; -if(!qbevent)break;evnt(26070,7504,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_RESULT,qbs_str((int32)(string2l(_SUB_DEBUGMODE_STRING_VALUE)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7505,"ide_methods.bas");}while(r); -sc_ec_264_end:; -goto sc_4809_end; -} -S_44563:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_BYTE",5))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_UNSIGNED _BYTE",15))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("BYTE",4))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("UNSIGNED BYTE",13))))||new_error){ -if(qbevent){evnt(26070,7506,"ide_methods.bas");if(r)goto S_44563;} -do{ -qbs_set(_SUB_DEBUGMODE_STRING_VALUE,b2string(qbr_float_to_long(func_val(_SUB_DEBUGMODE_STRING_VALUE)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7507,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_VARSIZE=1; -if(!qbevent)break;evnt(26070,7508,"ide_methods.bas");}while(r); -S_44566:; -if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("UNSIGNED",8),0)> 0 )))||new_error){ -if(qbevent){evnt(26070,7509,"ide_methods.bas");if(r)goto S_44566;} -do{ -qbs_set(_SUB_DEBUGMODE_STRING_RESULT,qbs_str((uint8)(string2ub(_SUB_DEBUGMODE_STRING_VALUE)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7510,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_SUB_DEBUGMODE_STRING_RESULT,qbs_str((int8)(string2b(_SUB_DEBUGMODE_STRING_VALUE)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7512,"ide_methods.bas");}while(r); -} -sc_ec_265_end:; -goto sc_4809_end; -} -S_44571:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("INTEGER",7))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_UNSIGNED INTEGER",17))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("UNSIGNED INTEGER",16))))||new_error){ -if(qbevent){evnt(26070,7514,"ide_methods.bas");if(r)goto S_44571;} -do{ -qbs_set(_SUB_DEBUGMODE_STRING_VALUE,i2string(qbr_float_to_long(func_val(_SUB_DEBUGMODE_STRING_VALUE)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7515,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_VARSIZE=2; -if(!qbevent)break;evnt(26070,7516,"ide_methods.bas");}while(r); -S_44574:; -if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("UNSIGNED",8),0)> 0 )))||new_error){ -if(qbevent){evnt(26070,7517,"ide_methods.bas");if(r)goto S_44574;} -do{ -qbs_set(_SUB_DEBUGMODE_STRING_RESULT,qbs_str((uint16)(string2ui(_SUB_DEBUGMODE_STRING_VALUE)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7518,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_SUB_DEBUGMODE_STRING_RESULT,qbs_str((int16)(string2i(_SUB_DEBUGMODE_STRING_VALUE)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7520,"ide_methods.bas");}while(r); -} -sc_ec_266_end:; -goto sc_4809_end; -} -S_44579:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("LONG",4))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_UNSIGNED LONG",14))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("UNSIGNED LONG",13))))||new_error){ -if(qbevent){evnt(26070,7522,"ide_methods.bas");if(r)goto S_44579;} -do{ -qbs_set(_SUB_DEBUGMODE_STRING_VALUE,l2string(qbr(func_val(_SUB_DEBUGMODE_STRING_VALUE)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7523,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_VARSIZE=4; -if(!qbevent)break;evnt(26070,7524,"ide_methods.bas");}while(r); -S_44582:; -if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("UNSIGNED",8),0)> 0 )))||new_error){ -if(qbevent){evnt(26070,7525,"ide_methods.bas");if(r)goto S_44582;} -do{ -qbs_set(_SUB_DEBUGMODE_STRING_RESULT,qbs_str((uint32)(string2ul(_SUB_DEBUGMODE_STRING_VALUE)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7526,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_SUB_DEBUGMODE_STRING_RESULT,qbs_str((int32)(string2l(_SUB_DEBUGMODE_STRING_VALUE)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7528,"ide_methods.bas");}while(r); -} -sc_ec_267_end:; -goto sc_4809_end; -} -S_44587:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_INTEGER64",10))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("INTEGER64",9))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_UNSIGNED _INTEGER64",20))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("UNSIGNED INTEGER64",18))))||new_error){ -if(qbevent){evnt(26070,7530,"ide_methods.bas");if(r)goto S_44587;} -do{ -qbs_set(_SUB_DEBUGMODE_STRING_VALUE,i642string(qbr(func_val(_SUB_DEBUGMODE_STRING_VALUE)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7531,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_VARSIZE=8; -if(!qbevent)break;evnt(26070,7532,"ide_methods.bas");}while(r); -S_44590:; -if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("UNSIGNED",8),0)> 0 )))||new_error){ -if(qbevent){evnt(26070,7533,"ide_methods.bas");if(r)goto S_44590;} -do{ -qbs_set(_SUB_DEBUGMODE_STRING_RESULT,qbs_str((uint64)(string2ui64(_SUB_DEBUGMODE_STRING_VALUE)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7534,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_SUB_DEBUGMODE_STRING_RESULT,qbs_str((int64)(string2i64(_SUB_DEBUGMODE_STRING_VALUE)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7536,"ide_methods.bas");}while(r); -} -sc_ec_268_end:; -goto sc_4809_end; -} -S_44595:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("SINGLE",6))))||new_error){ -if(qbevent){evnt(26070,7538,"ide_methods.bas");if(r)goto S_44595;} -do{ -qbs_set(_SUB_DEBUGMODE_STRING_VALUE,s2string(func_val(_SUB_DEBUGMODE_STRING_VALUE))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7539,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_VARSIZE=4; -if(!qbevent)break;evnt(26070,7540,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_RESULT,qbs_str((float)(string2s(_SUB_DEBUGMODE_STRING_VALUE)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7541,"ide_methods.bas");}while(r); -sc_ec_269_end:; -goto sc_4809_end; -} -S_44599:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("DOUBLE",6))))||new_error){ -if(qbevent){evnt(26070,7542,"ide_methods.bas");if(r)goto S_44599;} -do{ -qbs_set(_SUB_DEBUGMODE_STRING_VALUE,d2string(func_val(_SUB_DEBUGMODE_STRING_VALUE))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7543,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_VARSIZE=8; -if(!qbevent)break;evnt(26070,7544,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_RESULT,qbs_str((double)(string2d(_SUB_DEBUGMODE_STRING_VALUE)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7545,"ide_methods.bas");}while(r); -sc_ec_270_end:; -goto sc_4809_end; -} -S_44603:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_FLOAT",6))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("FLOAT",5))))||new_error){ -if(qbevent){evnt(26070,7546,"ide_methods.bas");if(r)goto S_44603;} -do{ -qbs_set(_SUB_DEBUGMODE_STRING_VALUE,f2string(func_val(_SUB_DEBUGMODE_STRING_VALUE))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7547,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_VARSIZE=32; -if(!qbevent)break;evnt(26070,7548,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_RESULT,qbs_str((long double)(string2f(_SUB_DEBUGMODE_STRING_VALUE)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7549,"ide_methods.bas");}while(r); -sc_ec_271_end:; -goto sc_4809_end; -} -S_44607:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_OFFSET",7))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_UNSIGNED _OFFSET",17))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("OFFSET",6))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("UNSIGNED OFFSET",15))))||new_error){ -if(qbevent){evnt(26070,7550,"ide_methods.bas");if(r)goto S_44607;} -do{ -qbs_set(_SUB_DEBUGMODE_STRING_VALUE,o2string(qbr(func_val(_SUB_DEBUGMODE_STRING_VALUE)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7551,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_VARSIZE=8; -if(!qbevent)break;evnt(26070,7552,"ide_methods.bas");}while(r); -S_44610:; -if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("UNSIGNED",8),0)> 0 )))||new_error){ -if(qbevent){evnt(26070,7553,"ide_methods.bas");if(r)goto S_44610;} -do{ -qbs_set(_SUB_DEBUGMODE_STRING_RESULT,qbs_str((uint64)(string2uo(_SUB_DEBUGMODE_STRING_VALUE)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7554,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_SUB_DEBUGMODE_STRING_RESULT,qbs_str((int64)(string2o(_SUB_DEBUGMODE_STRING_VALUE)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7556,"ide_methods.bas");}while(r); -} -sc_ec_272_end:; -goto sc_4809_end; -} -S_44615:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("STRING",6))))||new_error){ -if(qbevent){evnt(26070,7558,"ide_methods.bas");if(r)goto S_44615;} -do{ -*_SUB_DEBUGMODE_LONG_VARSIZE=_SUB_DEBUGMODE_STRING_VALUE->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7559,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_RESULT,_SUB_DEBUGMODE_STRING_VALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7560,"ide_methods.bas");}while(r); -S_44618:; -if ((*_SUB_DEBUGMODE_LONG_FIXEDVARSIZE)||new_error){ -if(qbevent){evnt(26070,7561,"ide_methods.bas");if(r)goto S_44618;} -do{ -*_SUB_DEBUGMODE_LONG_VARSIZE=*_SUB_DEBUGMODE_LONG_FIXEDVARSIZE; -if(!qbevent)break;evnt(26070,7562,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_RESULT,qbs_left(_SUB_DEBUGMODE_STRING_RESULT,*_SUB_DEBUGMODE_LONG_FIXEDVARSIZE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7563,"ide_methods.bas");}while(r); -} -sc_ec_273_end:; -goto sc_4809_end; -} -sc_4809_end:; -S_44623:; -if (((-(*_SUB_DEBUGMODE_LONG_RETURNACTION== 2 ))|(-(*_SUB_DEBUGMODE_LONG_RETURNACTION== 3 )))||new_error){ -if(qbevent){evnt(26070,7567,"ide_methods.bas");if(r)goto S_44623;} -do{ -#include "ret172.txt" -if(!qbevent)break;evnt(26070,7567,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,l2string(*_SUB_DEBUGMODE_LONG_TEMPINDEX))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7569,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,b2string(-(*_SUB_DEBUGMODE_LONG_TEMPISARRAY!= 0 )))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7570,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,l2string( 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7571,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,l2string(*_SUB_DEBUGMODE_LONG_TEMPLOCALINDEX))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7572,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,_SUB_DEBUGMODE_STRING_TEMPARRAYINDEXES)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7573,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,l2string(*_SUB_DEBUGMODE_LONG_TEMPARRAYELEMENTSIZE))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7574,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,l2string(*_SUB_DEBUGMODE_LONG_TEMPISUDT))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7575,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,l2string( 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7576,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,l2string(*_SUB_DEBUGMODE_LONG_TEMPELEMENTOFFSET))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7577,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,l2string(*_SUB_DEBUGMODE_LONG_VARSIZE))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7578,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,l2string(*_SUB_DEBUGMODE_LONG_TEMPSTORAGE))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7579,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(qbs_add(_SUB_DEBUGMODE_STRING_CMD,i2string(_SUB_DEBUGMODE_STRING_TEMPSCOPE->len)),_SUB_DEBUGMODE_STRING_TEMPSCOPE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7580,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(qbs_add(_SUB_DEBUGMODE_STRING_CMD,i2string(_SUB_DEBUGMODE_STRING_VARTYPE->len)),_SUB_DEBUGMODE_STRING_VARTYPE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7581,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(qbs_add(_SUB_DEBUGMODE_STRING_CMD,i2string(_SUB_DEBUGMODE_STRING_VALUE->len)),_SUB_DEBUGMODE_STRING_VALUE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7582,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=101; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_SENDCOMMAND; -RETURN_101:; -if(!qbevent)break;evnt(26070,7583,"ide_methods.bas");}while(r); -S_44641:; -if ((-(*_SUB_DEBUGMODE_LONG_TEMPSTORAGE> 0 ))||new_error){ -if(qbevent){evnt(26070,7585,"ide_methods.bas");if(r)goto S_44641;} -do{ -tmp_long=array_check((*_SUB_DEBUGMODE_LONG_TEMPSTORAGE)-__ARRAY_STRING_VWATCHRECEIVEDDATA[4],__ARRAY_STRING_VWATCHRECEIVEDDATA[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_VWATCHRECEIVEDDATA[0]))[tmp_long])),_SUB_DEBUGMODE_STRING_RESULT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7586,"ide_methods.bas");}while(r); -} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,7589,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,7589,"ide_methods.bas");}while(r); -S_44646:; -while((func__mouseinput(NULL,0))||new_error){ -if(qbevent){evnt(26070,7590,"ide_methods.bas");if(r)goto S_44646;} -ww_continue_4823:; -} -ww_exit_4823:; -do{ -*_SUB_DEBUGMODE_LONG_HIDEPANEL= -1 ; -if(!qbevent)break;evnt(26070,7591,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=102; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_UPDATEDISPLAY; -RETURN_102:; -if(!qbevent)break;evnt(26070,7592,"ide_methods.bas");}while(r); -S_44650:; -}else{ -if ((-(*_SUB_DEBUGMODE_LONG_RETURNACTION== 2 ))|(-(*_SUB_DEBUGMODE_LONG_RETURNACTION== 3 ))){ -if(qbevent){evnt(26070,7593,"ide_methods.bas");if(r)goto S_44650;} -do{ -*_SUB_DEBUGMODE_LONG_TEMPINDEX=string2l(FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,&(pass4824= 4 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7595,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_TEMPISARRAY=-(string2b(FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,&(pass4825= 1 )))!= 0 ); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7596,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_TEMP,FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,&(pass4826= 4 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7597,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_TEMPLOCALINDEX=string2l(FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,&(pass4827= 4 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7598,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_TEMPARRAYINDEX=string2l(FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,&(pass4828= 4 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7599,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_TEMPARRAYINDEXES,qbs_add(l2string(*_SUB_DEBUGMODE_LONG_TEMPARRAYINDEX),FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,_SUB_DEBUGMODE_LONG_TEMPARRAYINDEX))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7600,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_TEMPARRAYELEMENTSIZE=string2l(FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,&(pass4829= 4 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7601,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_TEMPISUDT=string2l(FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,&(pass4830= 4 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7602,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_TEMPELEMENT=string2l(FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,&(pass4831= 4 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7603,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_TEMPELEMENTOFFSET=string2l(FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,&(pass4832= 4 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7604,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_TEMP,FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,&(pass4833= 4 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7605,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_TEMPSTORAGE=string2l(FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,&(pass4834= 4 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7606,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_I=string2i(FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,&(pass4835= 2 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7607,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_TEMPSCOPE,FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,_SUB_DEBUGMODE_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7608,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_I=string2i(FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,&(pass4836= 2 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7609,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_VARTYPE,FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,_SUB_DEBUGMODE_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7610,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_I=string2i(FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,&(pass4837= 2 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7611,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_VALUE,FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,_SUB_DEBUGMODE_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7612,"ide_methods.bas");}while(r); -S_44669:; -if ((-(*_SUB_DEBUGMODE_LONG_RETURNACTION== 2 ))||new_error){ -if(qbevent){evnt(26070,7614,"ide_methods.bas");if(r)goto S_44669;} -do{ -qbs_set(_SUB_DEBUGMODE_STRING_TEMP,qbs_new_txt_len("set ",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7615,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_SUB_DEBUGMODE_STRING_TEMP,qbs_new_txt_len("clear ",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7618,"ide_methods.bas");}while(r); -} -S_44674:; -if ((qbs_cleanup(qbs_tmp_base,-((*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_DEBUGMODE_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+64)))->len== 0 )))||new_error){ -if(qbevent){evnt(26070,7621,"ide_methods.bas");if(r)goto S_44674;} -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_TEMP,qbs_new_txt_len("global watchpoint:",18))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7622,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_TEMP,qbs_new_txt_len("local watchpoint:",17))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7624,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_SUB_DEBUGMODE_STRING_TEMP,_SUB_DEBUGMODE_STRING_VALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7627,"ide_methods.bas");}while(r); -S_44680:; -if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_SUB_DEBUGMODE_STRING_VARTYPE,qbs_new_txt_len("STRING",6),0)== 0 )))||new_error){ -if(qbevent){evnt(26070,7628,"ide_methods.bas");if(r)goto S_44680;} -do{ -return_point[next_return_point++]=103; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_FINDVARSIZE; -RETURN_103:; -if(!qbevent)break;evnt(26070,7629,"ide_methods.bas");}while(r); -}else{ -S_44683:; -if ((qbs_cleanup(qbs_tmp_base,(-(func_instr(NULL,_SUB_DEBUGMODE_STRING_VARTYPE,qbs_new_txt_len(" * ",3),0)> 0 ))&(((-(*_SUB_DEBUGMODE_LONG_TEMPISUDT!= 0 ))|(-(*_SUB_DEBUGMODE_LONG_TEMPISARRAY!= 0 ))))))||new_error){ -if(qbevent){evnt(26070,7631,"ide_methods.bas");if(r)goto S_44683;} -do{ -*_SUB_DEBUGMODE_LONG_VARSIZE=qbr(func_val(qbs__trim(func_mid(_SUB_DEBUGMODE_STRING_VARTYPE,func_instr(NULL,_SUB_DEBUGMODE_STRING_VARTYPE,qbs_new_txt_len("STRING *",8),0)+ 8 ,NULL,0)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7632,"ide_methods.bas");}while(r); -}else{ -do{ -*_SUB_DEBUGMODE_LONG_VARSIZE=8+4; -if(!qbevent)break;evnt(26070,7634,"ide_methods.bas");}while(r); -} -} -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,l2string(*_SUB_DEBUGMODE_LONG_TEMPINDEX))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7638,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,b2string(-(*_SUB_DEBUGMODE_LONG_TEMPISARRAY!= 0 )))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7639,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,l2string(*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_DEBUGMODE_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+4))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7640,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,l2string(*_SUB_DEBUGMODE_LONG_TEMPLOCALINDEX))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7641,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,_SUB_DEBUGMODE_STRING_TEMPARRAYINDEXES)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7642,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,l2string(*_SUB_DEBUGMODE_LONG_TEMPARRAYELEMENTSIZE))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7643,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,l2string(*_SUB_DEBUGMODE_LONG_TEMPISUDT))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7644,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,l2string(*_SUB_DEBUGMODE_LONG_TEMPELEMENT))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7645,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,l2string(*_SUB_DEBUGMODE_LONG_TEMPELEMENTOFFSET))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7646,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,l2string(*_SUB_DEBUGMODE_LONG_VARSIZE))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7647,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,l2string(*_SUB_DEBUGMODE_LONG_TEMPSTORAGE))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7648,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(qbs_add(_SUB_DEBUGMODE_STRING_CMD,i2string(_SUB_DEBUGMODE_STRING_TEMPSCOPE->len)),_SUB_DEBUGMODE_STRING_TEMPSCOPE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7649,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(qbs_add(_SUB_DEBUGMODE_STRING_CMD,i2string(_SUB_DEBUGMODE_STRING_VARTYPE->len)),_SUB_DEBUGMODE_STRING_VARTYPE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7650,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(qbs_add(_SUB_DEBUGMODE_STRING_CMD,i2string(_SUB_DEBUGMODE_STRING_TEMP->len)),_SUB_DEBUGMODE_STRING_TEMP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7651,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=104; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_SENDCOMMAND; -RETURN_104:; -if(!qbevent)break;evnt(26070,7652,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,7654,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,7654,"ide_methods.bas");}while(r); -S_44706:; -while((func__mouseinput(NULL,0))||new_error){ -if(qbevent){evnt(26070,7655,"ide_methods.bas");if(r)goto S_44706;} -ww_continue_4843:; -} -ww_exit_4843:; -do{ -*_SUB_DEBUGMODE_LONG_HIDEPANEL= -1 ; -if(!qbevent)break;evnt(26070,7656,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=105; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_UPDATEDISPLAY; -RETURN_105:; -if(!qbevent)break;evnt(26070,7657,"ide_methods.bas");}while(r); -do{ -goto dl_continue_4793; -if(!qbevent)break;evnt(26070,7658,"ide_methods.bas");}while(r); -S_44711:; -}else{ -if (-(*_SUB_DEBUGMODE_LONG_RETURNACTION== -1 )){ -if(qbevent){evnt(26070,7659,"ide_methods.bas");if(r)goto S_44711;} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,7660,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,7660,"ide_methods.bas");}while(r); -S_44714:; -while((func__mouseinput(NULL,0))||new_error){ -if(qbevent){evnt(26070,7661,"ide_methods.bas");if(r)goto S_44714;} -ww_continue_4844:; -} -ww_exit_4844:; -do{ -*_SUB_DEBUGMODE_LONG_HIDEPANEL= -1 ; -if(!qbevent)break;evnt(26070,7662,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=106; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_UPDATEDISPLAY; -RETURN_106:; -if(!qbevent)break;evnt(26070,7663,"ide_methods.bas");}while(r); -do{ -goto dl_continue_4793; -if(!qbevent)break;evnt(26070,7664,"ide_methods.bas");}while(r); -}else{ -do{ -goto dl_exit_4793; -if(!qbevent)break;evnt(26070,7666,"ide_methods.bas");}while(r); -} -} -} -dl_continue_4793:; -}while(1); -dl_exit_4793:; -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,7669,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,7669,"ide_methods.bas");}while(r); -S_44725:; -while((func__mouseinput(NULL,0))||new_error){ -if(qbevent){evnt(26070,7670,"ide_methods.bas");if(r)goto S_44725;} -ww_continue_4845:; -} -ww_exit_4845:; -do{ -return_point[next_return_point++]=107; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_UPDATEDISPLAY; -RETURN_107:; -if(!qbevent)break;evnt(26070,7671,"ide_methods.bas");}while(r); -S_44728:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_VARIABLEWATCHLIST->len))||new_error){ -if(qbevent){evnt(26070,7672,"ide_methods.bas");if(r)goto S_44728;} -do{ -*_SUB_DEBUGMODE_BYTE_PANELACTIVE= -1 ; -if(!qbevent)break;evnt(26070,7673,"ide_methods.bas");}while(r); -do{ -goto LABEL_REQUESTVARIABLEVALUES; -if(!qbevent)break;evnt(26070,7674,"ide_methods.bas");}while(r); -} -} -sc_ec_274_end:; -goto sc_4784_end; -} -S_44733:; -if (((*_SUB_DEBUGMODE_LONG_K==( 16128 )))||new_error){ -if(qbevent){evnt(26070,7677,"ide_methods.bas");if(r)goto S_44733;} -LABEL_F5:; -if(qbevent){evnt(26070,7678,"ide_methods.bas");r=0;} -LABEL_REQUESTCONTINUE:; -if(qbevent){evnt(26070,7679,"ide_methods.bas");r=0;} -do{ -*_SUB_DEBUGMODE_BYTE_PAUSEMODE= 0 ; -if(!qbevent)break;evnt(26070,7680,"ide_methods.bas");}while(r); -do{ -*__LONG_DEBUGNEXTLINE= 0 ; -if(!qbevent)break;evnt(26070,7681,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("run",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7682,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=108; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_SENDCOMMAND; -RETURN_108:; -if(!qbevent)break;evnt(26070,7683,"ide_methods.bas");}while(r); -do{ -SUB_CLEARSTATUSWINDOW(&(pass4847= 1 )); -if(!qbevent)break;evnt(26070,7684,"ide_methods.bas");}while(r); -do{ -SUB_SETSTATUSMESSAGE(&(pass4848= 1 ),qbs_new_txt_len("Running...",10),&(pass4849= 10 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7685,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=109; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_UPDATEDISPLAY; -RETURN_109:; -if(!qbevent)break;evnt(26070,7686,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_DUMMY=FUNC_DARKENFGBG(&(pass4850= 1 )); -if(!qbevent)break;evnt(26070,7687,"ide_methods.bas");}while(r); -do{ -set_foreground_window(*_SUB_DEBUGMODE_OFFSET_DEBUGGEEHWND); -if(!qbevent)break;evnt(26070,7688,"ide_methods.bas");}while(r); -sc_ec_275_end:; -goto sc_4784_end; -} -S_44743:; -if (((*_SUB_DEBUGMODE_LONG_K==( 16384 )))||new_error){ -if(qbevent){evnt(26070,7689,"ide_methods.bas");if(r)goto S_44743;} -LABEL_F6:; -if(qbevent){evnt(26070,7690,"ide_methods.bas");r=0;} -LABEL_REQUESTSTEPOUT:; -if(qbevent){evnt(26070,7691,"ide_methods.bas");r=0;} -S_44744:; -if ((*_SUB_DEBUGMODE_BYTE_PAUSEMODE)||new_error){ -if(qbevent){evnt(26070,7692,"ide_methods.bas");if(r)goto S_44744;} -S_44745:; -if ((qbs_cleanup(qbs_tmp_base,-(_SUB_DEBUGMODE_STRING_CURRENTSUB->len> 0 )))||new_error){ -if(qbevent){evnt(26070,7693,"ide_methods.bas");if(r)goto S_44745;} -do{ -*_SUB_DEBUGMODE_BYTE_PAUSEMODE= 0 ; -if(!qbevent)break;evnt(26070,7694,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("step out",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7695,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=110; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_SENDCOMMAND; -RETURN_110:; -if(!qbevent)break;evnt(26070,7696,"ide_methods.bas");}while(r); -do{ -SUB_CLEARSTATUSWINDOW(&(pass4852= 1 )); -if(!qbevent)break;evnt(26070,7697,"ide_methods.bas");}while(r); -do{ -SUB_SETSTATUSMESSAGE(&(pass4853= 1 ),qbs_new_txt_len("Running...",10),&(pass4854= 10 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7698,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_DUMMY=FUNC_DARKENFGBG(&(pass4855= 1 )); -if(!qbevent)break;evnt(26070,7699,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=111; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_UPDATEDISPLAY; -RETURN_111:; -if(!qbevent)break;evnt(26070,7700,"ide_methods.bas");}while(r); -}else{ -do{ -SUB_CLEARSTATUSWINDOW(&(pass4856= 0 )); -if(!qbevent)break;evnt(26070,7702,"ide_methods.bas");}while(r); -do{ -SUB_SETSTATUSMESSAGE(&(pass4857= 1 ),qbs_new_txt_len("Not inside a sub/function.",26),&(pass4858= 4 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7703,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=112; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_UPDATEDISPLAY; -RETURN_112:; -if(!qbevent)break;evnt(26070,7704,"ide_methods.bas");}while(r); -} -} -sc_ec_276_end:; -goto sc_4784_end; -} -S_44759:; -if (((*_SUB_DEBUGMODE_LONG_K==( 16640 )))||new_error){ -if(qbevent){evnt(26070,7707,"ide_methods.bas");if(r)goto S_44759;} -LABEL_F7:; -if(qbevent){evnt(26070,7708,"ide_methods.bas");r=0;} -LABEL_REQUESTSTEPINTO:; -if(qbevent){evnt(26070,7709,"ide_methods.bas");r=0;} -S_44760:; -if ((-(*_SUB_DEBUGMODE_BYTE_PAUSEMODE== 0 ))||new_error){ -if(qbevent){evnt(26070,7710,"ide_methods.bas");if(r)goto S_44760;} -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("break",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7711,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_BYTE_PAUSEMODE= -1 ; -if(!qbevent)break;evnt(26070,7712,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=113; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_SENDCOMMAND; -RETURN_113:; -if(!qbevent)break;evnt(26070,7713,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("step",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7715,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_BYTE_PAUSEMODE= -1 ; -if(!qbevent)break;evnt(26070,7716,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=114; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_SENDCOMMAND; -RETURN_114:; -if(!qbevent)break;evnt(26070,7717,"ide_methods.bas");}while(r); -} -do{ -SUB_CLEARSTATUSWINDOW(&(pass4859= 1 )); -if(!qbevent)break;evnt(26070,7719,"ide_methods.bas");}while(r); -S_44770:; -if ((*_SUB_DEBUGMODE_BYTE_ENTEREDINPUT)||new_error){ -if(qbevent){evnt(26070,7720,"ide_methods.bas");if(r)goto S_44770;} -do{ -SUB_SETSTATUSMESSAGE(&(pass4860= 1 ),qbs_new_txt_len("Execution will be paused after SLEEP/INPUT/LINE INPUT finishes running...",73),&(pass4861= 2 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7721,"ide_methods.bas");}while(r); -do{ -set_foreground_window(*_SUB_DEBUGMODE_OFFSET_DEBUGGEEHWND); -if(!qbevent)break;evnt(26070,7722,"ide_methods.bas");}while(r); -}else{ -do{ -SUB_SETSTATUSMESSAGE(&(pass4862= 1 ),qbs_new_txt_len("Paused.",7),&(pass4863= 2 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7724,"ide_methods.bas");}while(r); -} -S_44776:; -if ((-(*__LONG_IDEDEBUGMODE== 2 ))||new_error){ -if(qbevent){evnt(26070,7726,"ide_methods.bas");if(r)goto S_44776;} -do{ -#include "ret172.txt" -if(!qbevent)break;evnt(26070,7726,"ide_methods.bas");}while(r); -} -sc_ec_277_end:; -goto sc_4784_end; -} -S_44779:; -if (((*_SUB_DEBUGMODE_LONG_K==( 16896 )))||new_error){ -if(qbevent){evnt(26070,7727,"ide_methods.bas");if(r)goto S_44779;} -LABEL_F8:; -if(qbevent){evnt(26070,7728,"ide_methods.bas");r=0;} -LABEL_REQUESTSTEPOVER:; -if(qbevent){evnt(26070,7729,"ide_methods.bas");r=0;} -S_44780:; -if ((*_SUB_DEBUGMODE_BYTE_PAUSEMODE)||new_error){ -if(qbevent){evnt(26070,7730,"ide_methods.bas");if(r)goto S_44780;} -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("step over",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7731,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_BYTE_PAUSEMODE= 0 ; -if(!qbevent)break;evnt(26070,7732,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=115; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_SENDCOMMAND; -RETURN_115:; -if(!qbevent)break;evnt(26070,7733,"ide_methods.bas");}while(r); -do{ -SUB_CLEARSTATUSWINDOW(&(pass4864= 1 )); -if(!qbevent)break;evnt(26070,7734,"ide_methods.bas");}while(r); -do{ -SUB_SETSTATUSMESSAGE(&(pass4865= 1 ),qbs_new_txt_len("Running...",10),&(pass4866= 10 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7735,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_DUMMY=FUNC_DARKENFGBG(&(pass4867= 1 )); -if(!qbevent)break;evnt(26070,7736,"ide_methods.bas");}while(r); -}else{ -LABEL_REQUESTPAUSE:; -if(qbevent){evnt(26070,7738,"ide_methods.bas");r=0;} -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("break",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7739,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_BYTE_PAUSEMODE= -1 ; -if(!qbevent)break;evnt(26070,7740,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=116; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_SENDCOMMAND; -RETURN_116:; -if(!qbevent)break;evnt(26070,7741,"ide_methods.bas");}while(r); -do{ -SUB_CLEARSTATUSWINDOW(&(pass4868= 1 )); -if(!qbevent)break;evnt(26070,7742,"ide_methods.bas");}while(r); -do{ -SUB_SETSTATUSMESSAGE(&(pass4869= 1 ),qbs_new_txt_len("Paused.",7),&(pass4870= 2 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7743,"ide_methods.bas");}while(r); -S_44793:; -if ((-(*__LONG_IDEDEBUGMODE== 2 ))||new_error){ -if(qbevent){evnt(26070,7744,"ide_methods.bas");if(r)goto S_44793;} -do{ -#include "ret172.txt" -if(!qbevent)break;evnt(26070,7744,"ide_methods.bas");}while(r); -} -} -sc_ec_278_end:; -goto sc_4784_end; -} -S_44797:; -if (((*_SUB_DEBUGMODE_LONG_K==( 17152 )))||new_error){ -if(qbevent){evnt(26070,7746,"ide_methods.bas");if(r)goto S_44797;} -LABEL_F9:; -if(qbevent){evnt(26070,7747,"ide_methods.bas");r=0;} -LABEL_REQUESTTOGGLEBREAKPOINT:; -if(qbevent){evnt(26070,7748,"ide_methods.bas");r=0;} -S_44798:; -if ((*_SUB_DEBUGMODE_BYTE_PAUSEMODE)||new_error){ -if(qbevent){evnt(26070,7749,"ide_methods.bas");if(r)goto S_44798;} -do{ -tmp_long=array_check((*__LONG_IDECY)-__ARRAY_BYTE_IDEBREAKPOINTS[4],__ARRAY_BYTE_IDEBREAKPOINTS[5]); -if (!new_error) ((int8*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]))[tmp_long]=~(((int8*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]))[array_check((*__LONG_IDECY)-__ARRAY_BYTE_IDEBREAKPOINTS[4],__ARRAY_BYTE_IDEBREAKPOINTS[5])]); -if(!qbevent)break;evnt(26070,7750,"ide_methods.bas");}while(r); -S_44800:; -if ((((int8*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]))[array_check((*__LONG_IDECY)-__ARRAY_BYTE_IDEBREAKPOINTS[4],__ARRAY_BYTE_IDEBREAKPOINTS[5])])||new_error){ -if(qbevent){evnt(26070,7751,"ide_methods.bas");if(r)goto S_44800;} -do{ -tmp_long=array_check((*__LONG_IDECY)-__ARRAY_BYTE_IDESKIPLINES[4],__ARRAY_BYTE_IDESKIPLINES[5]); -if (!new_error) ((int8*)(__ARRAY_BYTE_IDESKIPLINES[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(26070,7752,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("set breakpoint:",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7753,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("clear breakpoint:",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7755,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,l2string(*__LONG_IDECY))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7757,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=117; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_SENDCOMMAND; -RETURN_117:; -if(!qbevent)break;evnt(26070,7758,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=118; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_UPDATEDISPLAY; -RETURN_118:; -if(!qbevent)break;evnt(26070,7759,"ide_methods.bas");}while(r); -} -sc_ec_279_end:; -goto sc_4784_end; -} -S_44810:; -if (((*_SUB_DEBUGMODE_LONG_K==( 17408 )))||new_error){ -if(qbevent){evnt(26070,7761,"ide_methods.bas");if(r)goto S_44810;} -LABEL_F10:; -if(qbevent){evnt(26070,7762,"ide_methods.bas");r=0;} -S_44811:; -if ((func__keydown( 100306 )|func__keydown( 100305 ))||new_error){ -if(qbevent){evnt(26070,7763,"ide_methods.bas");if(r)goto S_44811;} -LABEL_REQUESTUNSKIPALLLINES:; -if(qbevent){evnt(26070,7764,"ide_methods.bas");r=0;} -do{ +} +if(!qbevent)break;evnt(26070,7204,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_BACKUPTYPEDEFINITIONS,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7205,"ide_methods.bas");}while(r); +S_44188:; +fornext_value4775= 1 ; +fornext_finalvalue4775=*__LONG_TOTALVARIABLESCREATED; +fornext_step4775= 1 ; +if (fornext_step4775<0) fornext_step_negative4775=1; else fornext_step_negative4775=0; +if (new_error) goto fornext_error4775; +goto fornext_entrylabel4775; +while(1){ +fornext_value4775=fornext_step4775+(*_SUB_DEBUGMODE_LONG_I); +fornext_entrylabel4775: +*_SUB_DEBUGMODE_LONG_I=fornext_value4775; +if (fornext_step_negative4775){ +if (fornext_value4775fornext_finalvalue4775) break; +} +fornext_error4775:; +if(qbevent){evnt(26070,7206,"ide_methods.bas");if(r)goto S_44188;} +do{ +*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_DEBUGMODE_LONG_I)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+29))= 0 ; +if(!qbevent)break;evnt(26070,7207,"ide_methods.bas");}while(r); +fornext_continue_4774:; +} +fornext_exit_4774:; +do{ +SUB_WRITESETTING(qbs_new_txt_len(".\\internal\\temp\\debug.ini",25),qbs_new_txt_len("settings",8),qbs_new_txt_len("vWatchPanel.x",13),qbs_new_txt_len("0",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7211,"ide_methods.bas");}while(r); +do{ +SUB_WRITESETTING(qbs_new_txt_len(".\\internal\\temp\\debug.ini",25),qbs_new_txt_len("settings",8),qbs_new_txt_len("vWatchPanel.y",13),qbs_new_txt_len("0",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7212,"ide_methods.bas");}while(r); +do{ +SUB_WRITESETTING(qbs_new_txt_len(".\\internal\\temp\\debug.ini",25),qbs_new_txt_len("settings",8),qbs_new_txt_len("vWatchPanel.w",13),qbs_new_txt_len("0",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7213,"ide_methods.bas");}while(r); +do{ +SUB_WRITESETTING(qbs_new_txt_len(".\\internal\\temp\\debug.ini",25),qbs_new_txt_len("settings",8),qbs_new_txt_len("vWatchPanel.h",13),qbs_new_txt_len("0",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7214,"ide_methods.bas");}while(r); +} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,7216,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,7216,"ide_methods.bas");}while(r); +S_44198:; +while((func__mouseinput(NULL,0))||new_error){ +if(qbevent){evnt(26070,7217,"ide_methods.bas");if(r)goto S_44198;} +ww_continue_4776:; +} +ww_exit_4776:; +do{ +return_point[next_return_point++]=79; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEDISPLAY; +RETURN_79:; +if(!qbevent)break;evnt(26070,7219,"ide_methods.bas");}while(r); +} +S_44202:; +if ((*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(16)))||new_error){ +if(qbevent){evnt(26070,7221,"ide_methods.bas");if(r)goto S_44202;} +S_44203:; +if ((-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(16))== 2 ))||new_error){ +if(qbevent){evnt(26070,7222,"ide_methods.bas");if(r)goto S_44203;} +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(8))=*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(8))- 1 ; +if(!qbevent)break;evnt(26070,7223,"ide_methods.bas");}while(r); +S_44205:; +if ((-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(8))< 1 ))||new_error){ +if(qbevent){evnt(26070,7224,"ide_methods.bas");if(r)goto S_44205;} +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(8))= 1 ; +if(!qbevent)break;evnt(26070,7224,"ide_methods.bas");}while(r); +} +do{ +return_point[next_return_point++]=80; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEDISPLAY; +RETURN_80:; +if(!qbevent)break;evnt(26070,7225,"ide_methods.bas");}while(r); +S_44209:; +}else{ +if (-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(16))== 3 )){ +if(qbevent){evnt(26070,7226,"ide_methods.bas");if(r)goto S_44209;} +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(8))=*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(8))+ 1 ; +if(!qbevent)break;evnt(26070,7227,"ide_methods.bas");}while(r); +S_44211:; +if ((-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(8))>(*_SUB_DEBUGMODE_LONG_TOTALVISIBLEVARIABLES-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6))- 2 )+ 1 )))||new_error){ +if(qbevent){evnt(26070,7228,"ide_methods.bas");if(r)goto S_44211;} +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(8))=*_SUB_DEBUGMODE_LONG_TOTALVISIBLEVARIABLES-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6))- 2 )+ 1 ; +if(!qbevent)break;evnt(26070,7229,"ide_methods.bas");}while(r); +} +do{ +return_point[next_return_point++]=81; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEDISPLAY; +RETURN_81:; +if(!qbevent)break;evnt(26070,7231,"ide_methods.bas");}while(r); +} +} +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(16))= 0 ; +if(!qbevent)break;evnt(26070,7233,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_MOUSEDOWN= 0 ; +if(!qbevent)break;evnt(26070,7233,"ide_methods.bas");}while(r); +} +S_44219:; +if ((*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(18)))||new_error){ +if(qbevent){evnt(26070,7235,"ide_methods.bas");if(r)goto S_44219;} +S_44220:; +if ((-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(18))== 2 ))||new_error){ +if(qbevent){evnt(26070,7236,"ide_methods.bas");if(r)goto S_44220;} +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(10))=*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(10))- 1 ; +if(!qbevent)break;evnt(26070,7237,"ide_methods.bas");}while(r); +S_44222:; +if ((-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(10))< 1 ))||new_error){ +if(qbevent){evnt(26070,7238,"ide_methods.bas");if(r)goto S_44222;} +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(10))= 1 ; +if(!qbevent)break;evnt(26070,7238,"ide_methods.bas");}while(r); +} +do{ +return_point[next_return_point++]=82; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEDISPLAY; +RETURN_82:; +if(!qbevent)break;evnt(26070,7239,"ide_methods.bas");}while(r); +S_44226:; +}else{ +if (-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(18))== 3 )){ +if(qbevent){evnt(26070,7240,"ide_methods.bas");if(r)goto S_44226;} +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(10))=*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(10))+ 1 ; +if(!qbevent)break;evnt(26070,7241,"ide_methods.bas");}while(r); +S_44228:; +if ((-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(10))>(*(int32*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(24))-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4))- 4 )+ 1 )))||new_error){ +if(qbevent){evnt(26070,7242,"ide_methods.bas");if(r)goto S_44228;} +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(10))=*(int32*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(24))-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4))- 4 )+ 1 ; +if(!qbevent)break;evnt(26070,7243,"ide_methods.bas");}while(r); +} +do{ +return_point[next_return_point++]=83; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEDISPLAY; +RETURN_83:; +if(!qbevent)break;evnt(26070,7245,"ide_methods.bas");}while(r); +} +} +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(18))= 0 ; +if(!qbevent)break;evnt(26070,7247,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_MOUSEDOWN= 0 ; +if(!qbevent)break;evnt(26070,7247,"ide_methods.bas");}while(r); +} +S_44236:; +if ((*_SUB_DEBUGMODE_LONG_MOUSEDOWN)||new_error){ +if(qbevent){evnt(26070,7249,"ide_methods.bas");if(r)goto S_44236;} +do{ +*_SUB_DEBUGMODE_LONG_MOUSEDOWN= 0 ; +if(!qbevent)break;evnt(26070,7250,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_DRAGGINGVTHUMB= 0 ; +if(!qbevent)break;evnt(26070,7251,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_DRAGGINGHTHUMB= 0 ; +if(!qbevent)break;evnt(26070,7252,"ide_methods.bas");}while(r); +S_44240:; +if (((-(*_SUB_DEBUGMODE_LONG_MOUSEDOWNONBUTTON> 0 ))&(-(*__LONG_MX==*_SUB_DEBUGMODE_LONG_MOUSEDOWNONX))&(-(*__LONG_MY==*_SUB_DEBUGMODE_LONG_MOUSEDOWNONY)))||new_error){ +if(qbevent){evnt(26070,7254,"ide_methods.bas");if(r)goto S_44240;} +S_44241:; +if(qbevent){evnt(26070,7255,"ide_methods.bas");if(r)goto S_44241;} +S_44242:; +if (((*_SUB_DEBUGMODE_LONG_MOUSEDOWNONBUTTON==( 1 )))||new_error){ +if(qbevent){evnt(26070,7256,"ide_methods.bas");if(r)goto S_44242;} +do{ +*_SUB_DEBUGMODE_LONG_MOUSEDOWNONBUTTON= 0 ; +if(!qbevent)break;evnt(26070,7256,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_MOUSEDOWN= 0 ; +if(!qbevent)break;evnt(26070,7256,"ide_methods.bas");}while(r); +do{ +goto LABEL_F4; +if(!qbevent)break;evnt(26070,7256,"ide_methods.bas");}while(r); +sc_ec_246_end:; +goto sc_4777_end; +} +S_44246:; +if (((*_SUB_DEBUGMODE_LONG_MOUSEDOWNONBUTTON==( 2 )))||new_error){ +if(qbevent){evnt(26070,7257,"ide_methods.bas");if(r)goto S_44246;} +do{ +*_SUB_DEBUGMODE_LONG_MOUSEDOWNONBUTTON= 0 ; +if(!qbevent)break;evnt(26070,7257,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_MOUSEDOWN= 0 ; +if(!qbevent)break;evnt(26070,7257,"ide_methods.bas");}while(r); +do{ +goto LABEL_F5; +if(!qbevent)break;evnt(26070,7257,"ide_methods.bas");}while(r); +sc_ec_247_end:; +goto sc_4777_end; +} +S_44250:; +if (((*_SUB_DEBUGMODE_LONG_MOUSEDOWNONBUTTON==( 3 )))||new_error){ +if(qbevent){evnt(26070,7258,"ide_methods.bas");if(r)goto S_44250;} +do{ +*_SUB_DEBUGMODE_LONG_MOUSEDOWNONBUTTON= 0 ; +if(!qbevent)break;evnt(26070,7258,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_MOUSEDOWN= 0 ; +if(!qbevent)break;evnt(26070,7258,"ide_methods.bas");}while(r); +do{ +goto LABEL_F6; +if(!qbevent)break;evnt(26070,7258,"ide_methods.bas");}while(r); +sc_ec_248_end:; +goto sc_4777_end; +} +S_44254:; +if (((*_SUB_DEBUGMODE_LONG_MOUSEDOWNONBUTTON==( 4 )))||new_error){ +if(qbevent){evnt(26070,7259,"ide_methods.bas");if(r)goto S_44254;} +do{ +*_SUB_DEBUGMODE_LONG_MOUSEDOWNONBUTTON= 0 ; +if(!qbevent)break;evnt(26070,7259,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_MOUSEDOWN= 0 ; +if(!qbevent)break;evnt(26070,7259,"ide_methods.bas");}while(r); +do{ +goto LABEL_F7; +if(!qbevent)break;evnt(26070,7259,"ide_methods.bas");}while(r); +sc_ec_249_end:; +goto sc_4777_end; +} +S_44258:; +if (((*_SUB_DEBUGMODE_LONG_MOUSEDOWNONBUTTON==( 5 )))||new_error){ +if(qbevent){evnt(26070,7260,"ide_methods.bas");if(r)goto S_44258;} +do{ +*_SUB_DEBUGMODE_LONG_MOUSEDOWNONBUTTON= 0 ; +if(!qbevent)break;evnt(26070,7260,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_MOUSEDOWN= 0 ; +if(!qbevent)break;evnt(26070,7260,"ide_methods.bas");}while(r); +do{ +goto LABEL_F8; +if(!qbevent)break;evnt(26070,7260,"ide_methods.bas");}while(r); +sc_ec_250_end:; +goto sc_4777_end; +} +S_44262:; +if (((*_SUB_DEBUGMODE_LONG_MOUSEDOWNONBUTTON==( 6 )))||new_error){ +if(qbevent){evnt(26070,7261,"ide_methods.bas");if(r)goto S_44262;} +do{ +*_SUB_DEBUGMODE_LONG_MOUSEDOWNONBUTTON= 0 ; +if(!qbevent)break;evnt(26070,7261,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_MOUSEDOWN= 0 ; +if(!qbevent)break;evnt(26070,7261,"ide_methods.bas");}while(r); +do{ +goto LABEL_F9; +if(!qbevent)break;evnt(26070,7261,"ide_methods.bas");}while(r); +sc_ec_251_end:; +goto sc_4777_end; +} +S_44266:; +if (((*_SUB_DEBUGMODE_LONG_MOUSEDOWNONBUTTON==( 7 )))||new_error){ +if(qbevent){evnt(26070,7262,"ide_methods.bas");if(r)goto S_44266;} +do{ +*_SUB_DEBUGMODE_LONG_MOUSEDOWNONBUTTON= 0 ; +if(!qbevent)break;evnt(26070,7262,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_MOUSEDOWN= 0 ; +if(!qbevent)break;evnt(26070,7262,"ide_methods.bas");}while(r); +do{ +goto LABEL_F10; +if(!qbevent)break;evnt(26070,7262,"ide_methods.bas");}while(r); +sc_ec_252_end:; +goto sc_4777_end; +} +S_44270:; +if (((*_SUB_DEBUGMODE_LONG_MOUSEDOWNONBUTTON==( 8 )))||new_error){ +if(qbevent){evnt(26070,7263,"ide_methods.bas");if(r)goto S_44270;} +do{ +*_SUB_DEBUGMODE_LONG_MOUSEDOWNONBUTTON= 0 ; +if(!qbevent)break;evnt(26070,7263,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_MOUSEDOWN= 0 ; +if(!qbevent)break;evnt(26070,7263,"ide_methods.bas");}while(r); +do{ +goto LABEL_F12; +if(!qbevent)break;evnt(26070,7263,"ide_methods.bas");}while(r); +sc_ec_253_end:; +goto sc_4777_end; +} +sc_4777_end:; +} +S_44276:; +if ((((-(*__LONG_MX> 1 ))&(-(*__LONG_MX<=( 1 +*__LONG_MAXLINENUMBERLENGTH)))&(-(*__LONG_MY> 2 ))&(-(*__LONG_MY<(*__LONG_IDEWY- 5 )))&*__BYTE_SHOWLINENUMBERS)|((-(*__LONG_MX== 1 ))&(-(*__LONG_MY> 2 ))&(-(*__LONG_MY<(*__LONG_IDEWY- 5 )))&(-(*__BYTE_SHOWLINENUMBERS== 0 ))))||new_error){ +if(qbevent){evnt(26070,7268,"ide_methods.bas");if(r)goto S_44276;} +S_44277:; +if (((-(*_SUB_DEBUGMODE_LONG_MOUSEDOWNONX==*__LONG_MX))&(-(*_SUB_DEBUGMODE_LONG_MOUSEDOWNONY==*__LONG_MY)))||new_error){ +if(qbevent){evnt(26070,7270,"ide_methods.bas");if(r)goto S_44277;} +do{ +*__LONG_IDESELECT= 0 ; +if(!qbevent)break;evnt(26070,7271,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_IDECYTEMP=*__LONG_MY- 2 +*__LONG_IDESY- 1 ; +if(!qbevent)break;evnt(26070,7272,"ide_methods.bas");}while(r); +S_44280:; +if ((-(*_SUB_DEBUGMODE_LONG_IDECYTEMP<=*__LONG_IDEN))||new_error){ +if(qbevent){evnt(26070,7273,"ide_methods.bas");if(r)goto S_44280;} +S_44281:; +if ((func__keydown( 100304 )|func__keydown( 100303 ))||new_error){ +if(qbevent){evnt(26070,7274,"ide_methods.bas");if(r)goto S_44281;} +S_44282:; +if ((-(((int8*)(__ARRAY_BYTE_IDESKIPLINES[0]))[array_check((*_SUB_DEBUGMODE_LONG_IDECYTEMP)-__ARRAY_BYTE_IDESKIPLINES[4],__ARRAY_BYTE_IDESKIPLINES[5])]== -1 ))||new_error){ +if(qbevent){evnt(26070,7275,"ide_methods.bas");if(r)goto S_44282;} +do{ +tmp_long=array_check((*_SUB_DEBUGMODE_LONG_IDECYTEMP)-__ARRAY_BYTE_IDESKIPLINES[4],__ARRAY_BYTE_IDESKIPLINES[5]); +if (!new_error) ((int8*)(__ARRAY_BYTE_IDESKIPLINES[0]))[tmp_long]= 0 ; +if(!qbevent)break;evnt(26070,7276,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(qbs_new_txt_len("clear skip line:",16),l2string(*_SUB_DEBUGMODE_LONG_IDECYTEMP))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7277,"ide_methods.bas");}while(r); +}else{ +do{ +tmp_long=array_check((*_SUB_DEBUGMODE_LONG_IDECYTEMP)-__ARRAY_BYTE_IDESKIPLINES[4],__ARRAY_BYTE_IDESKIPLINES[5]); +if (!new_error) ((int8*)(__ARRAY_BYTE_IDESKIPLINES[0]))[tmp_long]= -1 ; +if(!qbevent)break;evnt(26070,7279,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_DEBUGMODE_LONG_IDECYTEMP)-__ARRAY_BYTE_IDEBREAKPOINTS[4],__ARRAY_BYTE_IDEBREAKPOINTS[5]); +if (!new_error) ((int8*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]))[tmp_long]= 0 ; +if(!qbevent)break;evnt(26070,7280,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(qbs_new_txt_len("set skip line:",14),l2string(*_SUB_DEBUGMODE_LONG_IDECYTEMP))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7281,"ide_methods.bas");}while(r); +} +}else{ +S_44291:; +if ((((int8*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]))[array_check((*_SUB_DEBUGMODE_LONG_IDECYTEMP)-__ARRAY_BYTE_IDEBREAKPOINTS[4],__ARRAY_BYTE_IDEBREAKPOINTS[5])])||new_error){ +if(qbevent){evnt(26070,7284,"ide_methods.bas");if(r)goto S_44291;} +do{ +tmp_long=array_check((*_SUB_DEBUGMODE_LONG_IDECYTEMP)-__ARRAY_BYTE_IDEBREAKPOINTS[4],__ARRAY_BYTE_IDEBREAKPOINTS[5]); +if (!new_error) ((int8*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]))[tmp_long]= 0 ; +if(!qbevent)break;evnt(26070,7285,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("clear breakpoint:",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7286,"ide_methods.bas");}while(r); +}else{ +do{ +tmp_long=array_check((*_SUB_DEBUGMODE_LONG_IDECYTEMP)-__ARRAY_BYTE_IDEBREAKPOINTS[4],__ARRAY_BYTE_IDEBREAKPOINTS[5]); +if (!new_error) ((int8*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]))[tmp_long]= -1 ; +if(!qbevent)break;evnt(26070,7288,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_DEBUGMODE_LONG_IDECYTEMP)-__ARRAY_BYTE_IDESKIPLINES[4],__ARRAY_BYTE_IDESKIPLINES[5]); +if (!new_error) ((int8*)(__ARRAY_BYTE_IDESKIPLINES[0]))[tmp_long]= 0 ; +if(!qbevent)break;evnt(26070,7289,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("set breakpoint:",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7290,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,l2string(*_SUB_DEBUGMODE_LONG_IDECYTEMP))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7292,"ide_methods.bas");}while(r); +} +do{ +return_point[next_return_point++]=84; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SENDCOMMAND; +RETURN_84:; +if(!qbevent)break;evnt(26070,7294,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=85; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEDISPLAY; +RETURN_85:; +if(!qbevent)break;evnt(26070,7295,"ide_methods.bas");}while(r); +} +} +S_44305:; +}else{ +if ((-(*__LONG_MX>( 1 +*__LONG_MAXLINENUMBERLENGTH)))&(-(*__LONG_MX<*__LONG_IDEWX))&(-(*__LONG_MY> 2 ))&(-(*__LONG_MY<(*__LONG_IDEWY- 5 )))){ +if(qbevent){evnt(26070,7298,"ide_methods.bas");if(r)goto S_44305;} +do{ +*_SUB_DEBUGMODE_LONG_BKPIDECY=*__LONG_IDECY; +if(!qbevent)break;evnt(26070,7300,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECY=*__LONG_MY- 2 +*__LONG_IDESY- 1 ; +if(!qbevent)break;evnt(26070,7301,"ide_methods.bas");}while(r); +S_44308:; +if ((-(*__LONG_IDECY>*__LONG_IDEN))||new_error){ +if(qbevent){evnt(26070,7302,"ide_methods.bas");if(r)goto S_44308;} +do{ +*__LONG_IDECY=*__LONG_IDEN; +if(!qbevent)break;evnt(26070,7302,"ide_methods.bas");}while(r); +} +S_44311:; +if ((-(*_SUB_DEBUGMODE_LONG_BKPIDECY!=*__LONG_IDECY))||new_error){ +if(qbevent){evnt(26070,7303,"ide_methods.bas");if(r)goto S_44311;} +do{ +*__LONG_IDESELECT= 0 ; +if(!qbevent)break;evnt(26070,7303,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=86; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEDISPLAY; +RETURN_86:; +if(!qbevent)break;evnt(26070,7303,"ide_methods.bas");}while(r); +} +S_44315:; +}else{ +if ((-(*__LONG_MX==*__LONG_IDEWX))&(-(*__LONG_MY> 2 ))&(-(*__LONG_MY<(*__LONG_IDEWY- 5 )))){ +if(qbevent){evnt(26070,7304,"ide_methods.bas");if(r)goto S_44315;} +S_44316:; +if (((-(*_SUB_DEBUGMODE_LONG_MOUSEDOWNONX==*__LONG_MX))&(-(*_SUB_DEBUGMODE_LONG_MOUSEDOWNONY==*__LONG_MY)))||new_error){ +if(qbevent){evnt(26070,7306,"ide_methods.bas");if(r)goto S_44316;} +S_44317:; +if ((-(*__LONG_MY== 3 ))||new_error){ +if(qbevent){evnt(26070,7307,"ide_methods.bas");if(r)goto S_44317;} +do{ +goto LABEL_KEYUP; +if(!qbevent)break;evnt(26070,7307,"ide_methods.bas");}while(r); +} +S_44320:; +if ((-(*__LONG_MY==(*__LONG_IDEWY- 6 )))||new_error){ +if(qbevent){evnt(26070,7308,"ide_methods.bas");if(r)goto S_44320;} +do{ +goto LABEL_KEYDOWN; +if(!qbevent)break;evnt(26070,7308,"ide_methods.bas");}while(r); +} +S_44323:; +if (((-(*__LONG_MY> 3 ))&(-(*__LONG_MY<(*__LONG_IDEWY- 6 ))))||new_error){ +if(qbevent){evnt(26070,7309,"ide_methods.bas");if(r)goto S_44323;} +S_44324:; +if ((-(*__LONG_IDEN> 1 ))||new_error){ +if(qbevent){evnt(26070,7311,"ide_methods.bas");if(r)goto S_44324;} +do{ +*_SUB_DEBUGMODE_LONG_Y=FUNC_IDEVBAR(__LONG_IDEWX,&(pass4778= 3 ),&(pass4779=*__LONG_IDEWY- 8 ),__LONG_IDECY,__LONG_IDEN); +if(!qbevent)break;evnt(26070,7312,"ide_methods.bas");}while(r); +S_44326:; +if ((-(*_SUB_DEBUGMODE_LONG_Y!=*__LONG_MY))||new_error){ +if(qbevent){evnt(26070,7313,"ide_methods.bas");if(r)goto S_44326;} +S_44327:; +if ((-(*__LONG_MY<*_SUB_DEBUGMODE_LONG_Y))||new_error){ +if(qbevent){evnt(26070,7314,"ide_methods.bas");if(r)goto S_44327;} +do{ +goto LABEL_PAGEUP; +if(!qbevent)break;evnt(26070,7315,"ide_methods.bas");}while(r); +}else{ +do{ +goto LABEL_PAGEDOWN; +if(!qbevent)break;evnt(26070,7317,"ide_methods.bas");}while(r); +} +} +} +} +} +S_44336:; +}else{ +if ((-(*__LONG_MY==(*__LONG_IDEWY- 4 )))&(-(*__LONG_MX>(*__LONG_IDEWX-( 20 + 10 ))))&(-(*__LONG_MX<(*__LONG_IDEWX- 1 )))){ +if(qbevent){evnt(26070,7323,"ide_methods.bas");if(r)goto S_44336;} +do{ +goto LABEL_FINDJMP; +if(!qbevent)break;evnt(26070,7325,"ide_methods.bas");}while(r); +} +} +} +} +}else{ +do{ +*_SUB_DEBUGMODE_LONG_MOUSEDOWN= 0 ; +if(!qbevent)break;evnt(26070,7328,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_DRAGGINGVTHUMB= 0 ; +if(!qbevent)break;evnt(26070,7329,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_DRAGGINGHTHUMB= 0 ; +if(!qbevent)break;evnt(26070,7330,"ide_methods.bas");}while(r); +do{ +*(int8*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(32))= 0 ; +if(!qbevent)break;evnt(26070,7331,"ide_methods.bas");}while(r); +do{ +*(int8*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(33))= 0 ; +if(!qbevent)break;evnt(26070,7332,"ide_methods.bas");}while(r); +do{ +*(int8*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(34))= 0 ; +if(!qbevent)break;evnt(26070,7333,"ide_methods.bas");}while(r); +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(16))= 0 ; +if(!qbevent)break;evnt(26070,7334,"ide_methods.bas");}while(r); +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(18))= 0 ; +if(!qbevent)break;evnt(26070,7335,"ide_methods.bas");}while(r); +} +} +LABEL_UPDATESTATUSAREA:; +if(qbevent){evnt(26070,7340,"ide_methods.bas");r=0;} +S_44350:; +if ((func__hasfocus())||new_error){ +if(qbevent){evnt(26070,7341,"ide_methods.bas");if(r)goto S_44350;} +S_44351:; +if ((*_SUB_DEBUGMODE_BYTE_NOFOCUSMESSAGE)||new_error){ +if(qbevent){evnt(26070,7342,"ide_methods.bas");if(r)goto S_44351;} +do{ +SUB_UPDATEMENUHELPLINE(qbs_new_txt_len("Right-click for options; ESC to abort.",38)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7343,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=87; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_PRINTVERSION; +RETURN_87:; +if(!qbevent)break;evnt(26070,7344,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=88; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEBUTTONS; +RETURN_88:; +if(!qbevent)break;evnt(26070,7345,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_BYTE_NOFOCUSMESSAGE= 0 ; +if(!qbevent)break;evnt(26070,7346,"ide_methods.bas");}while(r); +} +}else{ +S_44358:; +if ((-(*_SUB_DEBUGMODE_BYTE_NOFOCUSMESSAGE== 0 ))||new_error){ +if(qbevent){evnt(26070,7349,"ide_methods.bas");if(r)goto S_44358;} +do{ +SUB_CLEARSTATUSWINDOW(&(pass4780= 2 )); +if(!qbevent)break;evnt(26070,7350,"ide_methods.bas");}while(r); +do{ +SUB_CLEARSTATUSWINDOW(&(pass4781= 3 )); +if(!qbevent)break;evnt(26070,7351,"ide_methods.bas");}while(r); +do{ +SUB_SETSTATUSMESSAGE(&(pass4782= 2 ),qbs_new_txt_len("Set focus to the IDE to control execution",41),&(pass4783= 15 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7352,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_BYTE_NOFOCUSMESSAGE= -1 ; +if(!qbevent)break;evnt(26070,7353,"ide_methods.bas");}while(r); +} +} +S_44365:; +if ((-(*__LONG_IDEDEBUGMODE> 1 ))||new_error){ +if(qbevent){evnt(26070,7356,"ide_methods.bas");if(r)goto S_44365;} +do{ +#include "ret172.txt" +if(!qbevent)break;evnt(26070,7356,"ide_methods.bas");}while(r); +} +do{ +*_SUB_DEBUGMODE_LONG_K=func__keyhit(); +if(!qbevent)break;evnt(26070,7358,"ide_methods.bas");}while(r); +S_44369:; +if(qbevent){evnt(26070,7359,"ide_methods.bas");if(r)goto S_44369;} +S_44370:; +if (((*_SUB_DEBUGMODE_LONG_K==( 18432 )))||new_error){ +if(qbevent){evnt(26070,7360,"ide_methods.bas");if(r)goto S_44370;} +LABEL_KEYUP:; +if(qbevent){evnt(26070,7361,"ide_methods.bas");r=0;} +do{ +*_SUB_DEBUGMODE_LONG_BKPIDECY=*__LONG_IDECY; +if(!qbevent)break;evnt(26070,7362,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_BKPIDESY=*__LONG_IDESY; +if(!qbevent)break;evnt(26070,7362,"ide_methods.bas");}while(r); +S_44373:; +if ((func__keydown( 100306 )|func__keydown( 100305 ))||new_error){ +if(qbevent){evnt(26070,7363,"ide_methods.bas");if(r)goto S_44373;} +do{ +*__LONG_IDESY=*__LONG_IDESY- 1 ; +if(!qbevent)break;evnt(26070,7364,"ide_methods.bas");}while(r); +S_44375:; +if ((-(*__LONG_IDESY< 1 ))||new_error){ +if(qbevent){evnt(26070,7365,"ide_methods.bas");if(r)goto S_44375;} +do{ +*__LONG_IDESY= 1 ; +if(!qbevent)break;evnt(26070,7365,"ide_methods.bas");}while(r); +} +S_44378:; +if ((-(*__LONG_IDECY>(*__LONG_IDESY+(*__LONG_IDEWY- 9 ))))||new_error){ +if(qbevent){evnt(26070,7366,"ide_methods.bas");if(r)goto S_44378;} +do{ +*__LONG_IDECY=*__LONG_IDESY+(*__LONG_IDEWY- 9 ); +if(!qbevent)break;evnt(26070,7366,"ide_methods.bas");}while(r); +} +}else{ +do{ +*__LONG_IDECY=*__LONG_IDECY- 1 ; +if(!qbevent)break;evnt(26070,7368,"ide_methods.bas");}while(r); +S_44383:; +if ((-(*__LONG_IDECY< 1 ))||new_error){ +if(qbevent){evnt(26070,7369,"ide_methods.bas");if(r)goto S_44383;} +do{ +*__LONG_IDECY= 1 ; +if(!qbevent)break;evnt(26070,7369,"ide_methods.bas");}while(r); +} +} +S_44387:; +if (((-(*_SUB_DEBUGMODE_LONG_BKPIDECY!=*__LONG_IDECY))|(-(*_SUB_DEBUGMODE_LONG_BKPIDESY!=*__LONG_IDESY)))||new_error){ +if(qbevent){evnt(26070,7371,"ide_methods.bas");if(r)goto S_44387;} +do{ +*__LONG_IDESELECT= 0 ; +if(!qbevent)break;evnt(26070,7371,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=89; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEDISPLAY; +RETURN_89:; +if(!qbevent)break;evnt(26070,7371,"ide_methods.bas");}while(r); +} +sc_ec_254_end:; +goto sc_4784_end; +} +S_44391:; +if (((*_SUB_DEBUGMODE_LONG_K==( 20480 )))||new_error){ +if(qbevent){evnt(26070,7372,"ide_methods.bas");if(r)goto S_44391;} +LABEL_KEYDOWN:; +if(qbevent){evnt(26070,7373,"ide_methods.bas");r=0;} +do{ +*_SUB_DEBUGMODE_LONG_BKPIDECY=*__LONG_IDECY; +if(!qbevent)break;evnt(26070,7374,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_BKPIDESY=*__LONG_IDESY; +if(!qbevent)break;evnt(26070,7374,"ide_methods.bas");}while(r); +S_44394:; +if ((func__keydown( 100306 )|func__keydown( 100305 ))||new_error){ +if(qbevent){evnt(26070,7375,"ide_methods.bas");if(r)goto S_44394;} +do{ +*__LONG_IDESY=*__LONG_IDESY+ 1 ; +if(!qbevent)break;evnt(26070,7376,"ide_methods.bas");}while(r); +S_44396:; +if ((-(*__LONG_IDESY>*__LONG_IDEN))||new_error){ +if(qbevent){evnt(26070,7377,"ide_methods.bas");if(r)goto S_44396;} +do{ +*__LONG_IDESY=*__LONG_IDEN; +if(!qbevent)break;evnt(26070,7377,"ide_methods.bas");}while(r); +} +S_44399:; +if ((-(*__LONG_IDECY<*__LONG_IDESY))||new_error){ +if(qbevent){evnt(26070,7378,"ide_methods.bas");if(r)goto S_44399;} +do{ +*__LONG_IDECY=*__LONG_IDESY; +if(!qbevent)break;evnt(26070,7378,"ide_methods.bas");}while(r); +} +}else{ +do{ +*__LONG_IDECY=*__LONG_IDECY+ 1 ; +if(!qbevent)break;evnt(26070,7380,"ide_methods.bas");}while(r); +S_44404:; +if ((-(*__LONG_IDECY>*__LONG_IDEN))||new_error){ +if(qbevent){evnt(26070,7381,"ide_methods.bas");if(r)goto S_44404;} +do{ +*__LONG_IDECY=*__LONG_IDEN; +if(!qbevent)break;evnt(26070,7381,"ide_methods.bas");}while(r); +} +} +S_44408:; +if (((-(*_SUB_DEBUGMODE_LONG_BKPIDECY!=*__LONG_IDECY))|(-(*_SUB_DEBUGMODE_LONG_BKPIDESY!=*__LONG_IDESY)))||new_error){ +if(qbevent){evnt(26070,7383,"ide_methods.bas");if(r)goto S_44408;} +do{ +*__LONG_IDESELECT= 0 ; +if(!qbevent)break;evnt(26070,7383,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=90; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEDISPLAY; +RETURN_90:; +if(!qbevent)break;evnt(26070,7383,"ide_methods.bas");}while(r); +} +sc_ec_255_end:; +goto sc_4784_end; +} +S_44412:; +if (((*_SUB_DEBUGMODE_LONG_K==( 18688 )))||new_error){ +if(qbevent){evnt(26070,7384,"ide_methods.bas");if(r)goto S_44412;} +LABEL_PAGEUP:; +if(qbevent){evnt(26070,7385,"ide_methods.bas");r=0;} +do{ +*_SUB_DEBUGMODE_LONG_BKPIDECY=*__LONG_IDECY; +if(!qbevent)break;evnt(26070,7386,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_BKPIDESY=*__LONG_IDESY; +if(!qbevent)break;evnt(26070,7386,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECY=*__LONG_IDECY-(*__LONG_IDEWY- 9 ); +if(!qbevent)break;evnt(26070,7387,"ide_methods.bas");}while(r); +S_44416:; +if ((-(*__LONG_IDECY< 1 ))||new_error){ +if(qbevent){evnt(26070,7388,"ide_methods.bas");if(r)goto S_44416;} +do{ +*__LONG_IDECY= 1 ; +if(!qbevent)break;evnt(26070,7388,"ide_methods.bas");}while(r); +} +S_44419:; +if (((-(*_SUB_DEBUGMODE_LONG_BKPIDECY!=*__LONG_IDECY))|(-(*_SUB_DEBUGMODE_LONG_BKPIDESY!=*__LONG_IDESY)))||new_error){ +if(qbevent){evnt(26070,7389,"ide_methods.bas");if(r)goto S_44419;} +do{ +*__LONG_IDESELECT= 0 ; +if(!qbevent)break;evnt(26070,7389,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=91; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEDISPLAY; +RETURN_91:; +if(!qbevent)break;evnt(26070,7389,"ide_methods.bas");}while(r); +} +sc_ec_256_end:; +goto sc_4784_end; +} +S_44423:; +if (((*_SUB_DEBUGMODE_LONG_K==( 20736 )))||new_error){ +if(qbevent){evnt(26070,7390,"ide_methods.bas");if(r)goto S_44423;} +LABEL_PAGEDOWN:; +if(qbevent){evnt(26070,7391,"ide_methods.bas");r=0;} +do{ +*_SUB_DEBUGMODE_LONG_BKPIDECY=*__LONG_IDECY; +if(!qbevent)break;evnt(26070,7392,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_BKPIDESY=*__LONG_IDESY; +if(!qbevent)break;evnt(26070,7392,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECY=*__LONG_IDECY+(*__LONG_IDEWY- 9 ); +if(!qbevent)break;evnt(26070,7393,"ide_methods.bas");}while(r); +S_44427:; +if ((-(*__LONG_IDECY>*__LONG_IDEN))||new_error){ +if(qbevent){evnt(26070,7394,"ide_methods.bas");if(r)goto S_44427;} +do{ +*__LONG_IDECY=*__LONG_IDEN; +if(!qbevent)break;evnt(26070,7394,"ide_methods.bas");}while(r); +} +S_44430:; +if (((-(*_SUB_DEBUGMODE_LONG_BKPIDECY!=*__LONG_IDECY))|(-(*_SUB_DEBUGMODE_LONG_BKPIDESY!=*__LONG_IDESY)))||new_error){ +if(qbevent){evnt(26070,7395,"ide_methods.bas");if(r)goto S_44430;} +do{ +*__LONG_IDESELECT= 0 ; +if(!qbevent)break;evnt(26070,7395,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=92; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEDISPLAY; +RETURN_92:; +if(!qbevent)break;evnt(26070,7395,"ide_methods.bas");}while(r); +} +sc_ec_257_end:; +goto sc_4784_end; +} +S_44434:; +if (((*_SUB_DEBUGMODE_LONG_K==( 18176 )))||new_error){ +if(qbevent){evnt(26070,7396,"ide_methods.bas");if(r)goto S_44434;} +do{ +*_SUB_DEBUGMODE_LONG_BKPIDECY=*__LONG_IDECY; +if(!qbevent)break;evnt(26070,7397,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_BKPIDESY=*__LONG_IDESY; +if(!qbevent)break;evnt(26070,7397,"ide_methods.bas");}while(r); +S_44437:; +if ((func__keydown( 100306 )|func__keydown( 100305 ))||new_error){ +if(qbevent){evnt(26070,7398,"ide_methods.bas");if(r)goto S_44437;} +do{ +*__LONG_IDECY= 1 ; +if(!qbevent)break;evnt(26070,7398,"ide_methods.bas");}while(r); +} +S_44440:; +if (((-(*_SUB_DEBUGMODE_LONG_BKPIDECY!=*__LONG_IDECY))|(-(*_SUB_DEBUGMODE_LONG_BKPIDESY!=*__LONG_IDESY)))||new_error){ +if(qbevent){evnt(26070,7399,"ide_methods.bas");if(r)goto S_44440;} +do{ +*__LONG_IDESELECT= 0 ; +if(!qbevent)break;evnt(26070,7399,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=93; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEDISPLAY; +RETURN_93:; +if(!qbevent)break;evnt(26070,7399,"ide_methods.bas");}while(r); +} +sc_ec_258_end:; +goto sc_4784_end; +} +S_44444:; +if (((*_SUB_DEBUGMODE_LONG_K==( 20224 )))||new_error){ +if(qbevent){evnt(26070,7400,"ide_methods.bas");if(r)goto S_44444;} +do{ +*_SUB_DEBUGMODE_LONG_BKPIDECY=*__LONG_IDECY; +if(!qbevent)break;evnt(26070,7401,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_BKPIDESY=*__LONG_IDESY; +if(!qbevent)break;evnt(26070,7401,"ide_methods.bas");}while(r); +S_44447:; +if ((func__keydown( 100306 )|func__keydown( 100305 ))||new_error){ +if(qbevent){evnt(26070,7402,"ide_methods.bas");if(r)goto S_44447;} +do{ +*__LONG_IDECY=*__LONG_IDEN; +if(!qbevent)break;evnt(26070,7402,"ide_methods.bas");}while(r); +} +S_44450:; +if (((-(*_SUB_DEBUGMODE_LONG_BKPIDECY!=*__LONG_IDECY))|(-(*_SUB_DEBUGMODE_LONG_BKPIDESY!=*__LONG_IDESY)))||new_error){ +if(qbevent){evnt(26070,7403,"ide_methods.bas");if(r)goto S_44450;} +do{ +*__LONG_IDESELECT= 0 ; +if(!qbevent)break;evnt(26070,7403,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=94; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEDISPLAY; +RETURN_94:; +if(!qbevent)break;evnt(26070,7403,"ide_methods.bas");}while(r); +} +sc_ec_259_end:; +goto sc_4784_end; +} +S_44454:; +if (((*_SUB_DEBUGMODE_LONG_K==( 27 )))||new_error){ +if(qbevent){evnt(26070,7404,"ide_methods.bas");if(r)goto S_44454;} +LABEL_REQUESTQUIT:; +if(qbevent){evnt(26070,7405,"ide_methods.bas");r=0;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("free",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7406,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=95; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SENDCOMMAND; +RETURN_95:; +if(!qbevent)break;evnt(26070,7407,"ide_methods.bas");}while(r); +do{ +sub_close(*__LONG_DEBUGCLIENT,1); +if(!qbevent)break;evnt(26070,7408,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_DUMMY=FUNC_DARKENFGBG(&(pass4785= 0 )); +if(!qbevent)break;evnt(26070,7409,"ide_methods.bas");}while(r); +do{ +SUB_CLEARSTATUSWINDOW(&(pass4786= 0 )); +if(!qbevent)break;evnt(26070,7410,"ide_methods.bas");}while(r); +do{ +SUB_SETSTATUSMESSAGE(&(pass4787= 1 ),qbs_new_txt_len("Debug session aborted.",22),&(pass4788= 7 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7411,"ide_methods.bas");}while(r); +S_44461:; +while((func__mouseinput(NULL,0))||new_error){ +if(qbevent){evnt(26070,7412,"ide_methods.bas");if(r)goto S_44461;} +ww_continue_4789:; +} +ww_exit_4789:; +do{ +sub__keyclear(NULL,0); +if(!qbevent)break;evnt(26070,7413,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,7414,"ide_methods.bas");}while(r); +sc_ec_260_end:; +goto sc_4784_end; +} +S_44465:; +if (((*_SUB_DEBUGMODE_LONG_K==( 15360 )))||new_error){ +if(qbevent){evnt(26070,7415,"ide_methods.bas");if(r)goto S_44465;} +LABEL_REQUESTSUBSDIALOG:; +if(qbevent){evnt(26070,7416,"ide_methods.bas");r=0;} +do{ +*_SUB_DEBUGMODE_LONG_BKPIDECY=*__LONG_IDECY; +if(!qbevent)break;evnt(26070,7417,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_BKPIDESY=*__LONG_IDESY; +if(!qbevent)break;evnt(26070,7417,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_R,FUNC_IDESUBS()); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7418,"ide_methods.bas");}while(r); +S_44469:; +if (((-(*_SUB_DEBUGMODE_LONG_BKPIDECY!=*__LONG_IDECY))|(-(*_SUB_DEBUGMODE_LONG_BKPIDESY!=*__LONG_IDESY)))||new_error){ +if(qbevent){evnt(26070,7419,"ide_methods.bas");if(r)goto S_44469;} +do{ +*__LONG_IDESELECT= 0 ; +if(!qbevent)break;evnt(26070,7419,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=96; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEDISPLAY; +RETURN_96:; +if(!qbevent)break;evnt(26070,7419,"ide_methods.bas");}while(r); +} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,7420,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,7420,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=97; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEDISPLAY; +RETURN_97:; +if(!qbevent)break;evnt(26070,7421,"ide_methods.bas");}while(r); +S_44476:; +while((func__mouseinput(NULL,0))||new_error){ +if(qbevent){evnt(26070,7422,"ide_methods.bas");if(r)goto S_44476;} +ww_continue_4790:; +} +ww_exit_4790:; +sc_ec_261_end:; +goto sc_4784_end; +} +S_44478:; +if (((*_SUB_DEBUGMODE_LONG_K==( 102 ))||(*_SUB_DEBUGMODE_LONG_K==( 70 )))||new_error){ +if(qbevent){evnt(26070,7423,"ide_methods.bas");if(r)goto S_44478;} +S_44479:; +if ((func__keydown( 100306 )|func__keydown( 100305 ))||new_error){ +if(qbevent){evnt(26070,7424,"ide_methods.bas");if(r)goto S_44479;} +do{ +goto LABEL_FINDJMP; +if(!qbevent)break;evnt(26070,7424,"ide_methods.bas");}while(r); +} +sc_ec_262_end:; +goto sc_4784_end; +} +S_44482:; +if (((*_SUB_DEBUGMODE_LONG_K==( 15616 )))||new_error){ +if(qbevent){evnt(26070,7425,"ide_methods.bas");if(r)goto S_44482;} +S_44483:; +if ((func__keydown( 100306 )|func__keydown( 100305 ))||new_error){ +if(qbevent){evnt(26070,7426,"ide_methods.bas");if(r)goto S_44483;} +do{ +goto LABEL_FINDJMP; +if(!qbevent)break;evnt(26070,7426,"ide_methods.bas");}while(r); +} +S_44486:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_IDEFINDTEXT,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,7427,"ide_methods.bas");if(r)goto S_44486;} +do{ +qbg_sub_color( 7 , 1 ,NULL,3); +if(!qbevent)break;evnt(26070,7430,"ide_methods.bas");}while(r); +do{ +sub__printstring(*__LONG_IDEWX-( 20 + 10 ),*__LONG_IDEWY- 4 ,func_chr( 180 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7430,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 3 , 1 ,NULL,3); +if(!qbevent)break;evnt(26070,7431,"ide_methods.bas");}while(r); +do{ +sub__printstring( 1 +*__LONG_IDEWX-( 20 + 10 ),*__LONG_IDEWY- 4 ,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Find[",5),func_space( 20 + 1 )),func_chr( 18 )),qbs_new_txt_len("]",1)),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7432,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_A,qbs_left(__STRING_IDEFINDTEXT, 20 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7433,"ide_methods.bas");}while(r); +do{ +sub__printstring(*__LONG_IDEWX-( 20 + 8 )+ 4 ,*__LONG_IDEWY- 4 ,_SUB_DEBUGMODE_STRING_A,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7434,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 7 , 1 ,NULL,3); +if(!qbevent)break;evnt(26070,7435,"ide_methods.bas");}while(r); +do{ +sub__printstring(*__LONG_IDEWX- 2 ,*__LONG_IDEWY- 4 ,func_chr( 195 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7435,"ide_methods.bas");}while(r); +S_44495:; +if ((func__keydown( 100304 )|func__keydown( 100303 ))||new_error){ +if(qbevent){evnt(26070,7437,"ide_methods.bas");if(r)goto S_44495;} +do{ +*__INTEGER_IDEFINDINVERT= 1 ; +if(!qbevent)break;evnt(26070,7437,"ide_methods.bas");}while(r); +} +do{ +SUB_IDEADDSEARCHED(__STRING_IDEFINDTEXT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7438,"ide_methods.bas");}while(r); +do{ +SUB_IDEFINDAGAIN(&(pass4791= -1 )); +if(!qbevent)break;evnt(26070,7439,"ide_methods.bas");}while(r); +}else{ +LABEL_FINDJMP:; +if(qbevent){evnt(26070,7441,"ide_methods.bas");r=0;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_R,FUNC_IDEFIND()); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7442,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,7443,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,7443,"ide_methods.bas");}while(r); +S_44504:; +while((func__mouseinput(NULL,0))||new_error){ +if(qbevent){evnt(26070,7444,"ide_methods.bas");if(r)goto S_44504;} +ww_continue_4792:; +} +ww_exit_4792:; +} +do{ +return_point[next_return_point++]=98; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEDISPLAY; +RETURN_98:; +if(!qbevent)break;evnt(26070,7446,"ide_methods.bas");}while(r); +sc_ec_263_end:; +goto sc_4784_end; +} +S_44508:; +if (((*_SUB_DEBUGMODE_LONG_K==( 15872 )))||new_error){ +if(qbevent){evnt(26070,7447,"ide_methods.bas");if(r)goto S_44508;} +LABEL_F4:; +if(qbevent){evnt(26070,7448,"ide_methods.bas");r=0;} +S_44509:; +if ((-(*_SUB_DEBUGMODE_BYTE_PAUSEMODE== 0 ))||new_error){ +if(qbevent){evnt(26070,7449,"ide_methods.bas");if(r)goto S_44509;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("break",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7450,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_BYTE_PAUSEMODE= -1 ; +if(!qbevent)break;evnt(26070,7451,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=99; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SENDCOMMAND; +RETURN_99:; +if(!qbevent)break;evnt(26070,7452,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_ESTABILISHINGSCOPE= -1 ; +if(!qbevent)break;evnt(26070,7453,"ide_methods.bas");}while(r); +}else{ +LABEL_REQUESTVARIABLEWATCH:; +if(qbevent){evnt(26070,7455,"ide_methods.bas");r=0;} +do{ +*_SUB_DEBUGMODE_LONG_HIDEPANEL= -1 ; +if(!qbevent)break;evnt(26070,7456,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=100; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEDISPLAY; +RETURN_100:; +if(!qbevent)break;evnt(26070,7457,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_SELECTVAR= 1 ; +if(!qbevent)break;evnt(26070,7458,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_FILTER,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7459,"ide_methods.bas");}while(r); +S_44519:; +do{ +if(qbevent){evnt(26070,7460,"ide_methods.bas");if(r)goto S_44519;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_RESULT,FUNC_IDEVARIABLEWATCHBOX(_SUB_DEBUGMODE_STRING_CURRENTSUB,_SUB_DEBUGMODE_STRING_FILTER,_SUB_DEBUGMODE_LONG_SELECTVAR,_SUB_DEBUGMODE_LONG_RETURNACTION)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7461,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_TEMP,FUNC_GETBYTES(qbs_new_txt_len("",0),&(pass4794= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7462,"ide_methods.bas");}while(r); +S_44522:; +if ((-(*_SUB_DEBUGMODE_LONG_RETURNACTION== 1 ))||new_error){ +if(qbevent){evnt(26070,7463,"ide_methods.bas");if(r)goto S_44522;} +do{ +*_SUB_DEBUGMODE_LONG_TEMPINDEX=string2l(FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,&(pass4795= 4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7465,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_TEMPISARRAY=string2b(FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,&(pass4796= 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7466,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_TEMP,FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,&(pass4797= 4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7467,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_TEMPLOCALINDEX=string2l(FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,&(pass4798= 4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7468,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_TEMPARRAYINDEX=string2l(FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,&(pass4799= 4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7469,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_TEMPARRAYINDEXES,qbs_add(l2string(*_SUB_DEBUGMODE_LONG_TEMPARRAYINDEX),FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,_SUB_DEBUGMODE_LONG_TEMPARRAYINDEX))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7470,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_TEMPARRAYELEMENTSIZE=string2l(FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,&(pass4800= 4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7471,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_TEMPISUDT=string2l(FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,&(pass4801= 4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7472,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_TEMP,FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,&(pass4802= 4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7473,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_TEMPELEMENTOFFSET=string2l(FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,&(pass4803= 4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7474,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_TEMP,FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,&(pass4804= 4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7475,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_TEMPSTORAGE=string2l(FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,&(pass4805= 4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7476,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_I=string2i(FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,&(pass4806= 2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7477,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_TEMPSCOPE,FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,_SUB_DEBUGMODE_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7478,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_I=string2i(FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,&(pass4807= 2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7479,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_VARTYPE,FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,_SUB_DEBUGMODE_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7480,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_I=string2i(FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,&(pass4808= 2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7481,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_VALUE,FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,_SUB_DEBUGMODE_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7482,"ide_methods.bas");}while(r); +S_44541:; +if ((qbs_cleanup(qbs_tmp_base,-((*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_DEBUGMODE_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+64)))->len== 0 )))||new_error){ +if(qbevent){evnt(26070,7484,"ide_methods.bas");if(r)goto S_44541;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("set global address:",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7485,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("set local address:",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7487,"ide_methods.bas");}while(r); +} +LABEL_FINDVARSIZE:; +if(qbevent){evnt(26070,7490,"ide_methods.bas");r=0;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,_SUB_DEBUGMODE_STRING_VARTYPE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7491,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_FIXEDVARSIZE= 0 ; +if(!qbevent)break;evnt(26070,7492,"ide_methods.bas");}while(r); +S_44548:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_DEBUGMODE_STRING_VARTYPE,qbs_new_txt_len("STRING *",8),0)))||new_error){ +if(qbevent){evnt(26070,7493,"ide_methods.bas");if(r)goto S_44548;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("STRING",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7494,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_FIXEDVARSIZE=qbr(func_val(func_mid(_SUB_DEBUGMODE_STRING_VARTYPE,func__instrrev(NULL,_SUB_DEBUGMODE_STRING_VARTYPE,qbs_new_txt_len("* ",2),0)+ 2 ,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7495,"ide_methods.bas");}while(r); +} +S_44552:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_DEBUGMODE_STRING_VARTYPE,qbs_new_txt_len("BIT *",5),0)))||new_error){ +if(qbevent){evnt(26070,7497,"ide_methods.bas");if(r)goto S_44552;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_BIT",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7497,"ide_methods.bas");}while(r); +} +S_44555:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_BIT",4)))&(-(func_instr(NULL,_SUB_DEBUGMODE_STRING_VARTYPE,qbs_new_txt_len("UNSIGNED",8),0)> 0 ))))||new_error){ +if(qbevent){evnt(26070,7498,"ide_methods.bas");if(r)goto S_44555;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_UNSIGNED _BIT",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7499,"ide_methods.bas");}while(r); +} +S_44558:; +if(qbevent){evnt(26070,7501,"ide_methods.bas");if(r)goto S_44558;} +S_44559:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_BIT",4))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_UNSIGNED _BIT",14))))||new_error){ +if(qbevent){evnt(26070,7502,"ide_methods.bas");if(r)goto S_44559;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_VALUE,l2string(qbr(func_val(_SUB_DEBUGMODE_STRING_VALUE)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7503,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_VARSIZE=4; +if(!qbevent)break;evnt(26070,7504,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_RESULT,qbs_str((int32)(string2l(_SUB_DEBUGMODE_STRING_VALUE)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7505,"ide_methods.bas");}while(r); +sc_ec_264_end:; +goto sc_4809_end; +} +S_44563:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_BYTE",5))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_UNSIGNED _BYTE",15))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("BYTE",4))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("UNSIGNED BYTE",13))))||new_error){ +if(qbevent){evnt(26070,7506,"ide_methods.bas");if(r)goto S_44563;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_VALUE,b2string(qbr_float_to_long(func_val(_SUB_DEBUGMODE_STRING_VALUE)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7507,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_VARSIZE=1; +if(!qbevent)break;evnt(26070,7508,"ide_methods.bas");}while(r); +S_44566:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("UNSIGNED",8),0)> 0 )))||new_error){ +if(qbevent){evnt(26070,7509,"ide_methods.bas");if(r)goto S_44566;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_RESULT,qbs_str((uint8)(string2ub(_SUB_DEBUGMODE_STRING_VALUE)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7510,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_DEBUGMODE_STRING_RESULT,qbs_str((int8)(string2b(_SUB_DEBUGMODE_STRING_VALUE)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7512,"ide_methods.bas");}while(r); +} +sc_ec_265_end:; +goto sc_4809_end; +} +S_44571:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("INTEGER",7))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_UNSIGNED INTEGER",17))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("UNSIGNED INTEGER",16))))||new_error){ +if(qbevent){evnt(26070,7514,"ide_methods.bas");if(r)goto S_44571;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_VALUE,i2string(qbr_float_to_long(func_val(_SUB_DEBUGMODE_STRING_VALUE)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7515,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_VARSIZE=2; +if(!qbevent)break;evnt(26070,7516,"ide_methods.bas");}while(r); +S_44574:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("UNSIGNED",8),0)> 0 )))||new_error){ +if(qbevent){evnt(26070,7517,"ide_methods.bas");if(r)goto S_44574;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_RESULT,qbs_str((uint16)(string2ui(_SUB_DEBUGMODE_STRING_VALUE)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7518,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_DEBUGMODE_STRING_RESULT,qbs_str((int16)(string2i(_SUB_DEBUGMODE_STRING_VALUE)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7520,"ide_methods.bas");}while(r); +} +sc_ec_266_end:; +goto sc_4809_end; +} +S_44579:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("LONG",4))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_UNSIGNED LONG",14))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("UNSIGNED LONG",13))))||new_error){ +if(qbevent){evnt(26070,7522,"ide_methods.bas");if(r)goto S_44579;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_VALUE,l2string(qbr(func_val(_SUB_DEBUGMODE_STRING_VALUE)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7523,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_VARSIZE=4; +if(!qbevent)break;evnt(26070,7524,"ide_methods.bas");}while(r); +S_44582:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("UNSIGNED",8),0)> 0 )))||new_error){ +if(qbevent){evnt(26070,7525,"ide_methods.bas");if(r)goto S_44582;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_RESULT,qbs_str((uint32)(string2ul(_SUB_DEBUGMODE_STRING_VALUE)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7526,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_DEBUGMODE_STRING_RESULT,qbs_str((int32)(string2l(_SUB_DEBUGMODE_STRING_VALUE)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7528,"ide_methods.bas");}while(r); +} +sc_ec_267_end:; +goto sc_4809_end; +} +S_44587:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_INTEGER64",10))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("INTEGER64",9))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_UNSIGNED _INTEGER64",20))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("UNSIGNED INTEGER64",18))))||new_error){ +if(qbevent){evnt(26070,7530,"ide_methods.bas");if(r)goto S_44587;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_VALUE,i642string(qbr(func_val(_SUB_DEBUGMODE_STRING_VALUE)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7531,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_VARSIZE=8; +if(!qbevent)break;evnt(26070,7532,"ide_methods.bas");}while(r); +S_44590:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("UNSIGNED",8),0)> 0 )))||new_error){ +if(qbevent){evnt(26070,7533,"ide_methods.bas");if(r)goto S_44590;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_RESULT,qbs_str((uint64)(string2ui64(_SUB_DEBUGMODE_STRING_VALUE)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7534,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_DEBUGMODE_STRING_RESULT,qbs_str((int64)(string2i64(_SUB_DEBUGMODE_STRING_VALUE)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7536,"ide_methods.bas");}while(r); +} +sc_ec_268_end:; +goto sc_4809_end; +} +S_44595:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("SINGLE",6))))||new_error){ +if(qbevent){evnt(26070,7538,"ide_methods.bas");if(r)goto S_44595;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_VALUE,s2string(func_val(_SUB_DEBUGMODE_STRING_VALUE))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7539,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_VARSIZE=4; +if(!qbevent)break;evnt(26070,7540,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_RESULT,qbs_str((float)(string2s(_SUB_DEBUGMODE_STRING_VALUE)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7541,"ide_methods.bas");}while(r); +sc_ec_269_end:; +goto sc_4809_end; +} +S_44599:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("DOUBLE",6))))||new_error){ +if(qbevent){evnt(26070,7542,"ide_methods.bas");if(r)goto S_44599;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_VALUE,d2string(func_val(_SUB_DEBUGMODE_STRING_VALUE))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7543,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_VARSIZE=8; +if(!qbevent)break;evnt(26070,7544,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_RESULT,qbs_str((double)(string2d(_SUB_DEBUGMODE_STRING_VALUE)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7545,"ide_methods.bas");}while(r); +sc_ec_270_end:; +goto sc_4809_end; +} +S_44603:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_FLOAT",6))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("FLOAT",5))))||new_error){ +if(qbevent){evnt(26070,7546,"ide_methods.bas");if(r)goto S_44603;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_VALUE,f2string(func_val(_SUB_DEBUGMODE_STRING_VALUE))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7547,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_VARSIZE=32; +if(!qbevent)break;evnt(26070,7548,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_RESULT,qbs_str((long double)(string2f(_SUB_DEBUGMODE_STRING_VALUE)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7549,"ide_methods.bas");}while(r); +sc_ec_271_end:; +goto sc_4809_end; +} +S_44607:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_OFFSET",7))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_UNSIGNED _OFFSET",17))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("OFFSET",6))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("UNSIGNED OFFSET",15))))||new_error){ +if(qbevent){evnt(26070,7550,"ide_methods.bas");if(r)goto S_44607;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_VALUE,o2string(qbr(func_val(_SUB_DEBUGMODE_STRING_VALUE)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7551,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_VARSIZE=8; +if(!qbevent)break;evnt(26070,7552,"ide_methods.bas");}while(r); +S_44610:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("UNSIGNED",8),0)> 0 )))||new_error){ +if(qbevent){evnt(26070,7553,"ide_methods.bas");if(r)goto S_44610;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_RESULT,qbs_str((uint64)(string2uo(_SUB_DEBUGMODE_STRING_VALUE)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7554,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_DEBUGMODE_STRING_RESULT,qbs_str((int64)(string2o(_SUB_DEBUGMODE_STRING_VALUE)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7556,"ide_methods.bas");}while(r); +} +sc_ec_272_end:; +goto sc_4809_end; +} +S_44615:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("STRING",6))))||new_error){ +if(qbevent){evnt(26070,7558,"ide_methods.bas");if(r)goto S_44615;} +do{ +*_SUB_DEBUGMODE_LONG_VARSIZE=_SUB_DEBUGMODE_STRING_VALUE->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7559,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_RESULT,_SUB_DEBUGMODE_STRING_VALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7560,"ide_methods.bas");}while(r); +S_44618:; +if ((*_SUB_DEBUGMODE_LONG_FIXEDVARSIZE)||new_error){ +if(qbevent){evnt(26070,7561,"ide_methods.bas");if(r)goto S_44618;} +do{ +*_SUB_DEBUGMODE_LONG_VARSIZE=*_SUB_DEBUGMODE_LONG_FIXEDVARSIZE; +if(!qbevent)break;evnt(26070,7562,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_RESULT,qbs_left(_SUB_DEBUGMODE_STRING_RESULT,*_SUB_DEBUGMODE_LONG_FIXEDVARSIZE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7563,"ide_methods.bas");}while(r); +} +sc_ec_273_end:; +goto sc_4809_end; +} +sc_4809_end:; +S_44623:; +if (((-(*_SUB_DEBUGMODE_LONG_RETURNACTION== 2 ))|(-(*_SUB_DEBUGMODE_LONG_RETURNACTION== 3 )))||new_error){ +if(qbevent){evnt(26070,7567,"ide_methods.bas");if(r)goto S_44623;} +do{ +#include "ret172.txt" +if(!qbevent)break;evnt(26070,7567,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,l2string(*_SUB_DEBUGMODE_LONG_TEMPINDEX))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7569,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,b2string(-(*_SUB_DEBUGMODE_LONG_TEMPISARRAY!= 0 )))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7570,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,l2string( 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7571,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,l2string(*_SUB_DEBUGMODE_LONG_TEMPLOCALINDEX))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7572,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,_SUB_DEBUGMODE_STRING_TEMPARRAYINDEXES)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7573,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,l2string(*_SUB_DEBUGMODE_LONG_TEMPARRAYELEMENTSIZE))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7574,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,l2string(*_SUB_DEBUGMODE_LONG_TEMPISUDT))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7575,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,l2string( 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7576,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,l2string(*_SUB_DEBUGMODE_LONG_TEMPELEMENTOFFSET))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7577,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,l2string(*_SUB_DEBUGMODE_LONG_VARSIZE))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7578,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,l2string(*_SUB_DEBUGMODE_LONG_TEMPSTORAGE))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7579,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(qbs_add(_SUB_DEBUGMODE_STRING_CMD,i2string(_SUB_DEBUGMODE_STRING_TEMPSCOPE->len)),_SUB_DEBUGMODE_STRING_TEMPSCOPE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7580,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(qbs_add(_SUB_DEBUGMODE_STRING_CMD,i2string(_SUB_DEBUGMODE_STRING_VARTYPE->len)),_SUB_DEBUGMODE_STRING_VARTYPE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7581,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(qbs_add(_SUB_DEBUGMODE_STRING_CMD,i2string(_SUB_DEBUGMODE_STRING_VALUE->len)),_SUB_DEBUGMODE_STRING_VALUE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7582,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=101; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SENDCOMMAND; +RETURN_101:; +if(!qbevent)break;evnt(26070,7583,"ide_methods.bas");}while(r); +S_44641:; +if ((-(*_SUB_DEBUGMODE_LONG_TEMPSTORAGE> 0 ))||new_error){ +if(qbevent){evnt(26070,7585,"ide_methods.bas");if(r)goto S_44641;} +do{ +tmp_long=array_check((*_SUB_DEBUGMODE_LONG_TEMPSTORAGE)-__ARRAY_STRING_VWATCHRECEIVEDDATA[4],__ARRAY_STRING_VWATCHRECEIVEDDATA[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_VWATCHRECEIVEDDATA[0]))[tmp_long])),_SUB_DEBUGMODE_STRING_RESULT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7586,"ide_methods.bas");}while(r); +} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,7589,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,7589,"ide_methods.bas");}while(r); +S_44646:; +while((func__mouseinput(NULL,0))||new_error){ +if(qbevent){evnt(26070,7590,"ide_methods.bas");if(r)goto S_44646;} +ww_continue_4823:; +} +ww_exit_4823:; +do{ +*_SUB_DEBUGMODE_LONG_HIDEPANEL= -1 ; +if(!qbevent)break;evnt(26070,7591,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=102; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEDISPLAY; +RETURN_102:; +if(!qbevent)break;evnt(26070,7592,"ide_methods.bas");}while(r); +S_44650:; +}else{ +if ((-(*_SUB_DEBUGMODE_LONG_RETURNACTION== 2 ))|(-(*_SUB_DEBUGMODE_LONG_RETURNACTION== 3 ))){ +if(qbevent){evnt(26070,7593,"ide_methods.bas");if(r)goto S_44650;} +do{ +*_SUB_DEBUGMODE_LONG_TEMPINDEX=string2l(FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,&(pass4824= 4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7595,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_TEMPISARRAY=-(string2b(FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,&(pass4825= 1 )))!= 0 ); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7596,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_TEMP,FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,&(pass4826= 4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7597,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_TEMPLOCALINDEX=string2l(FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,&(pass4827= 4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7598,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_TEMPARRAYINDEX=string2l(FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,&(pass4828= 4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7599,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_TEMPARRAYINDEXES,qbs_add(l2string(*_SUB_DEBUGMODE_LONG_TEMPARRAYINDEX),FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,_SUB_DEBUGMODE_LONG_TEMPARRAYINDEX))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7600,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_TEMPARRAYELEMENTSIZE=string2l(FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,&(pass4829= 4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7601,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_TEMPISUDT=string2l(FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,&(pass4830= 4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7602,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_TEMPELEMENT=string2l(FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,&(pass4831= 4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7603,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_TEMPELEMENTOFFSET=string2l(FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,&(pass4832= 4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7604,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_TEMP,FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,&(pass4833= 4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7605,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_TEMPSTORAGE=string2l(FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,&(pass4834= 4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7606,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_I=string2i(FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,&(pass4835= 2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7607,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_TEMPSCOPE,FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,_SUB_DEBUGMODE_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7608,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_I=string2i(FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,&(pass4836= 2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7609,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_VARTYPE,FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,_SUB_DEBUGMODE_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7610,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_I=string2i(FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,&(pass4837= 2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7611,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_VALUE,FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_RESULT,_SUB_DEBUGMODE_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7612,"ide_methods.bas");}while(r); +S_44669:; +if ((-(*_SUB_DEBUGMODE_LONG_RETURNACTION== 2 ))||new_error){ +if(qbevent){evnt(26070,7614,"ide_methods.bas");if(r)goto S_44669;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_TEMP,qbs_new_txt_len("set ",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7615,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_DEBUGMODE_STRING_TEMP,qbs_new_txt_len("clear ",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7618,"ide_methods.bas");}while(r); +} +S_44674:; +if ((qbs_cleanup(qbs_tmp_base,-((*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_DEBUGMODE_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+64)))->len== 0 )))||new_error){ +if(qbevent){evnt(26070,7621,"ide_methods.bas");if(r)goto S_44674;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_TEMP,qbs_new_txt_len("global watchpoint:",18))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7622,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_TEMP,qbs_new_txt_len("local watchpoint:",17))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7624,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_TEMP,_SUB_DEBUGMODE_STRING_VALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7627,"ide_methods.bas");}while(r); +S_44680:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_SUB_DEBUGMODE_STRING_VARTYPE,qbs_new_txt_len("STRING",6),0)== 0 )))||new_error){ +if(qbevent){evnt(26070,7628,"ide_methods.bas");if(r)goto S_44680;} +do{ +return_point[next_return_point++]=103; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_FINDVARSIZE; +RETURN_103:; +if(!qbevent)break;evnt(26070,7629,"ide_methods.bas");}while(r); +}else{ +S_44683:; +if ((qbs_cleanup(qbs_tmp_base,(-(func_instr(NULL,_SUB_DEBUGMODE_STRING_VARTYPE,qbs_new_txt_len(" * ",3),0)> 0 ))&(((-(*_SUB_DEBUGMODE_LONG_TEMPISUDT!= 0 ))|(-(*_SUB_DEBUGMODE_LONG_TEMPISARRAY!= 0 ))))))||new_error){ +if(qbevent){evnt(26070,7631,"ide_methods.bas");if(r)goto S_44683;} +do{ +*_SUB_DEBUGMODE_LONG_VARSIZE=qbr(func_val(qbs__trim(func_mid(_SUB_DEBUGMODE_STRING_VARTYPE,func_instr(NULL,_SUB_DEBUGMODE_STRING_VARTYPE,qbs_new_txt_len("STRING *",8),0)+ 8 ,NULL,0)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7632,"ide_methods.bas");}while(r); +}else{ +do{ +*_SUB_DEBUGMODE_LONG_VARSIZE=8+4; +if(!qbevent)break;evnt(26070,7634,"ide_methods.bas");}while(r); +} +} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,l2string(*_SUB_DEBUGMODE_LONG_TEMPINDEX))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7638,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,b2string(-(*_SUB_DEBUGMODE_LONG_TEMPISARRAY!= 0 )))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7639,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,l2string(*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_DEBUGMODE_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+4))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7640,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,l2string(*_SUB_DEBUGMODE_LONG_TEMPLOCALINDEX))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7641,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,_SUB_DEBUGMODE_STRING_TEMPARRAYINDEXES)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7642,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,l2string(*_SUB_DEBUGMODE_LONG_TEMPARRAYELEMENTSIZE))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7643,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,l2string(*_SUB_DEBUGMODE_LONG_TEMPISUDT))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7644,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,l2string(*_SUB_DEBUGMODE_LONG_TEMPELEMENT))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7645,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,l2string(*_SUB_DEBUGMODE_LONG_TEMPELEMENTOFFSET))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7646,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,l2string(*_SUB_DEBUGMODE_LONG_VARSIZE))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7647,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,l2string(*_SUB_DEBUGMODE_LONG_TEMPSTORAGE))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7648,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(qbs_add(_SUB_DEBUGMODE_STRING_CMD,i2string(_SUB_DEBUGMODE_STRING_TEMPSCOPE->len)),_SUB_DEBUGMODE_STRING_TEMPSCOPE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7649,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(qbs_add(_SUB_DEBUGMODE_STRING_CMD,i2string(_SUB_DEBUGMODE_STRING_VARTYPE->len)),_SUB_DEBUGMODE_STRING_VARTYPE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7650,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(qbs_add(_SUB_DEBUGMODE_STRING_CMD,i2string(_SUB_DEBUGMODE_STRING_TEMP->len)),_SUB_DEBUGMODE_STRING_TEMP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7651,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=104; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SENDCOMMAND; +RETURN_104:; +if(!qbevent)break;evnt(26070,7652,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,7654,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,7654,"ide_methods.bas");}while(r); +S_44706:; +while((func__mouseinput(NULL,0))||new_error){ +if(qbevent){evnt(26070,7655,"ide_methods.bas");if(r)goto S_44706;} +ww_continue_4843:; +} +ww_exit_4843:; +do{ +*_SUB_DEBUGMODE_LONG_HIDEPANEL= -1 ; +if(!qbevent)break;evnt(26070,7656,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=105; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEDISPLAY; +RETURN_105:; +if(!qbevent)break;evnt(26070,7657,"ide_methods.bas");}while(r); +do{ +goto dl_continue_4793; +if(!qbevent)break;evnt(26070,7658,"ide_methods.bas");}while(r); +S_44711:; +}else{ +if (-(*_SUB_DEBUGMODE_LONG_RETURNACTION== -1 )){ +if(qbevent){evnt(26070,7659,"ide_methods.bas");if(r)goto S_44711;} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,7660,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,7660,"ide_methods.bas");}while(r); +S_44714:; +while((func__mouseinput(NULL,0))||new_error){ +if(qbevent){evnt(26070,7661,"ide_methods.bas");if(r)goto S_44714;} +ww_continue_4844:; +} +ww_exit_4844:; +do{ +*_SUB_DEBUGMODE_LONG_HIDEPANEL= -1 ; +if(!qbevent)break;evnt(26070,7662,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=106; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEDISPLAY; +RETURN_106:; +if(!qbevent)break;evnt(26070,7663,"ide_methods.bas");}while(r); +do{ +goto dl_continue_4793; +if(!qbevent)break;evnt(26070,7664,"ide_methods.bas");}while(r); +}else{ +do{ +goto dl_exit_4793; +if(!qbevent)break;evnt(26070,7666,"ide_methods.bas");}while(r); +} +} +} +dl_continue_4793:; +}while(1); +dl_exit_4793:; +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,7669,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,7669,"ide_methods.bas");}while(r); +S_44725:; +while((func__mouseinput(NULL,0))||new_error){ +if(qbevent){evnt(26070,7670,"ide_methods.bas");if(r)goto S_44725;} +ww_continue_4845:; +} +ww_exit_4845:; +do{ +return_point[next_return_point++]=107; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEDISPLAY; +RETURN_107:; +if(!qbevent)break;evnt(26070,7671,"ide_methods.bas");}while(r); +S_44728:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_VARIABLEWATCHLIST->len))||new_error){ +if(qbevent){evnt(26070,7672,"ide_methods.bas");if(r)goto S_44728;} +do{ +*_SUB_DEBUGMODE_BYTE_PANELACTIVE= -1 ; +if(!qbevent)break;evnt(26070,7673,"ide_methods.bas");}while(r); +do{ +goto LABEL_REQUESTVARIABLEVALUES; +if(!qbevent)break;evnt(26070,7674,"ide_methods.bas");}while(r); +} +} +sc_ec_274_end:; +goto sc_4784_end; +} +S_44733:; +if (((*_SUB_DEBUGMODE_LONG_K==( 16128 )))||new_error){ +if(qbevent){evnt(26070,7677,"ide_methods.bas");if(r)goto S_44733;} +LABEL_F5:; +if(qbevent){evnt(26070,7678,"ide_methods.bas");r=0;} +LABEL_REQUESTCONTINUE:; +if(qbevent){evnt(26070,7679,"ide_methods.bas");r=0;} +do{ +*_SUB_DEBUGMODE_BYTE_PAUSEMODE= 0 ; +if(!qbevent)break;evnt(26070,7680,"ide_methods.bas");}while(r); +do{ +*__LONG_DEBUGNEXTLINE= 0 ; +if(!qbevent)break;evnt(26070,7681,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("run",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7682,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=108; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SENDCOMMAND; +RETURN_108:; +if(!qbevent)break;evnt(26070,7683,"ide_methods.bas");}while(r); +do{ +SUB_CLEARSTATUSWINDOW(&(pass4847= 1 )); +if(!qbevent)break;evnt(26070,7684,"ide_methods.bas");}while(r); +do{ +SUB_SETSTATUSMESSAGE(&(pass4848= 1 ),qbs_new_txt_len("Running...",10),&(pass4849= 10 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7685,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=109; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEDISPLAY; +RETURN_109:; +if(!qbevent)break;evnt(26070,7686,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_DUMMY=FUNC_DARKENFGBG(&(pass4850= 1 )); +if(!qbevent)break;evnt(26070,7687,"ide_methods.bas");}while(r); +do{ +set_foreground_window(*_SUB_DEBUGMODE_OFFSET_DEBUGGEEHWND); +if(!qbevent)break;evnt(26070,7688,"ide_methods.bas");}while(r); +sc_ec_275_end:; +goto sc_4784_end; +} +S_44743:; +if (((*_SUB_DEBUGMODE_LONG_K==( 16384 )))||new_error){ +if(qbevent){evnt(26070,7689,"ide_methods.bas");if(r)goto S_44743;} +LABEL_F6:; +if(qbevent){evnt(26070,7690,"ide_methods.bas");r=0;} +LABEL_REQUESTSTEPOUT:; +if(qbevent){evnt(26070,7691,"ide_methods.bas");r=0;} +S_44744:; +if ((*_SUB_DEBUGMODE_BYTE_PAUSEMODE)||new_error){ +if(qbevent){evnt(26070,7692,"ide_methods.bas");if(r)goto S_44744;} +S_44745:; +if ((qbs_cleanup(qbs_tmp_base,-(_SUB_DEBUGMODE_STRING_CURRENTSUB->len> 0 )))||new_error){ +if(qbevent){evnt(26070,7693,"ide_methods.bas");if(r)goto S_44745;} +do{ +*_SUB_DEBUGMODE_BYTE_PAUSEMODE= 0 ; +if(!qbevent)break;evnt(26070,7694,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("step out",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7695,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=110; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SENDCOMMAND; +RETURN_110:; +if(!qbevent)break;evnt(26070,7696,"ide_methods.bas");}while(r); +do{ +SUB_CLEARSTATUSWINDOW(&(pass4852= 1 )); +if(!qbevent)break;evnt(26070,7697,"ide_methods.bas");}while(r); +do{ +SUB_SETSTATUSMESSAGE(&(pass4853= 1 ),qbs_new_txt_len("Running...",10),&(pass4854= 10 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7698,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_DUMMY=FUNC_DARKENFGBG(&(pass4855= 1 )); +if(!qbevent)break;evnt(26070,7699,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=111; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEDISPLAY; +RETURN_111:; +if(!qbevent)break;evnt(26070,7700,"ide_methods.bas");}while(r); +}else{ +do{ +SUB_CLEARSTATUSWINDOW(&(pass4856= 0 )); +if(!qbevent)break;evnt(26070,7702,"ide_methods.bas");}while(r); +do{ +SUB_SETSTATUSMESSAGE(&(pass4857= 1 ),qbs_new_txt_len("Not inside a sub/function.",26),&(pass4858= 4 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7703,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=112; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEDISPLAY; +RETURN_112:; +if(!qbevent)break;evnt(26070,7704,"ide_methods.bas");}while(r); +} +} +sc_ec_276_end:; +goto sc_4784_end; +} +S_44759:; +if (((*_SUB_DEBUGMODE_LONG_K==( 16640 )))||new_error){ +if(qbevent){evnt(26070,7707,"ide_methods.bas");if(r)goto S_44759;} +LABEL_F7:; +if(qbevent){evnt(26070,7708,"ide_methods.bas");r=0;} +LABEL_REQUESTSTEPINTO:; +if(qbevent){evnt(26070,7709,"ide_methods.bas");r=0;} +S_44760:; +if ((-(*_SUB_DEBUGMODE_BYTE_PAUSEMODE== 0 ))||new_error){ +if(qbevent){evnt(26070,7710,"ide_methods.bas");if(r)goto S_44760;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("break",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7711,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_BYTE_PAUSEMODE= -1 ; +if(!qbevent)break;evnt(26070,7712,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=113; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SENDCOMMAND; +RETURN_113:; +if(!qbevent)break;evnt(26070,7713,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("step",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7715,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_BYTE_PAUSEMODE= -1 ; +if(!qbevent)break;evnt(26070,7716,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=114; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SENDCOMMAND; +RETURN_114:; +if(!qbevent)break;evnt(26070,7717,"ide_methods.bas");}while(r); +} +do{ +SUB_CLEARSTATUSWINDOW(&(pass4859= 1 )); +if(!qbevent)break;evnt(26070,7719,"ide_methods.bas");}while(r); +S_44770:; +if ((*_SUB_DEBUGMODE_BYTE_ENTEREDINPUT)||new_error){ +if(qbevent){evnt(26070,7720,"ide_methods.bas");if(r)goto S_44770;} +do{ +SUB_SETSTATUSMESSAGE(&(pass4860= 1 ),qbs_new_txt_len("Execution will be paused after SLEEP/INPUT/LINE INPUT finishes running...",73),&(pass4861= 2 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7721,"ide_methods.bas");}while(r); +do{ +set_foreground_window(*_SUB_DEBUGMODE_OFFSET_DEBUGGEEHWND); +if(!qbevent)break;evnt(26070,7722,"ide_methods.bas");}while(r); +}else{ +do{ +SUB_SETSTATUSMESSAGE(&(pass4862= 1 ),qbs_new_txt_len("Paused.",7),&(pass4863= 2 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7724,"ide_methods.bas");}while(r); +} +S_44776:; +if ((-(*__LONG_IDEDEBUGMODE== 2 ))||new_error){ +if(qbevent){evnt(26070,7726,"ide_methods.bas");if(r)goto S_44776;} +do{ +#include "ret172.txt" +if(!qbevent)break;evnt(26070,7726,"ide_methods.bas");}while(r); +} +sc_ec_277_end:; +goto sc_4784_end; +} +S_44779:; +if (((*_SUB_DEBUGMODE_LONG_K==( 16896 )))||new_error){ +if(qbevent){evnt(26070,7727,"ide_methods.bas");if(r)goto S_44779;} +LABEL_F8:; +if(qbevent){evnt(26070,7728,"ide_methods.bas");r=0;} +LABEL_REQUESTSTEPOVER:; +if(qbevent){evnt(26070,7729,"ide_methods.bas");r=0;} +S_44780:; +if ((*_SUB_DEBUGMODE_BYTE_PAUSEMODE)||new_error){ +if(qbevent){evnt(26070,7730,"ide_methods.bas");if(r)goto S_44780;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("step over",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7731,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_BYTE_PAUSEMODE= 0 ; +if(!qbevent)break;evnt(26070,7732,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=115; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SENDCOMMAND; +RETURN_115:; +if(!qbevent)break;evnt(26070,7733,"ide_methods.bas");}while(r); +do{ +SUB_CLEARSTATUSWINDOW(&(pass4864= 1 )); +if(!qbevent)break;evnt(26070,7734,"ide_methods.bas");}while(r); +do{ +SUB_SETSTATUSMESSAGE(&(pass4865= 1 ),qbs_new_txt_len("Running...",10),&(pass4866= 10 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7735,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_DUMMY=FUNC_DARKENFGBG(&(pass4867= 1 )); +if(!qbevent)break;evnt(26070,7736,"ide_methods.bas");}while(r); +}else{ +LABEL_REQUESTPAUSE:; +if(qbevent){evnt(26070,7738,"ide_methods.bas");r=0;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("break",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7739,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_BYTE_PAUSEMODE= -1 ; +if(!qbevent)break;evnt(26070,7740,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=116; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SENDCOMMAND; +RETURN_116:; +if(!qbevent)break;evnt(26070,7741,"ide_methods.bas");}while(r); +do{ +SUB_CLEARSTATUSWINDOW(&(pass4868= 1 )); +if(!qbevent)break;evnt(26070,7742,"ide_methods.bas");}while(r); +do{ +SUB_SETSTATUSMESSAGE(&(pass4869= 1 ),qbs_new_txt_len("Paused.",7),&(pass4870= 2 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7743,"ide_methods.bas");}while(r); +S_44793:; +if ((-(*__LONG_IDEDEBUGMODE== 2 ))||new_error){ +if(qbevent){evnt(26070,7744,"ide_methods.bas");if(r)goto S_44793;} +do{ +#include "ret172.txt" +if(!qbevent)break;evnt(26070,7744,"ide_methods.bas");}while(r); +} +} +sc_ec_278_end:; +goto sc_4784_end; +} +S_44797:; +if (((*_SUB_DEBUGMODE_LONG_K==( 17152 )))||new_error){ +if(qbevent){evnt(26070,7746,"ide_methods.bas");if(r)goto S_44797;} +LABEL_F9:; +if(qbevent){evnt(26070,7747,"ide_methods.bas");r=0;} +LABEL_REQUESTTOGGLEBREAKPOINT:; +if(qbevent){evnt(26070,7748,"ide_methods.bas");r=0;} +S_44798:; +if ((*_SUB_DEBUGMODE_BYTE_PAUSEMODE)||new_error){ +if(qbevent){evnt(26070,7749,"ide_methods.bas");if(r)goto S_44798;} +do{ +tmp_long=array_check((*__LONG_IDECY)-__ARRAY_BYTE_IDEBREAKPOINTS[4],__ARRAY_BYTE_IDEBREAKPOINTS[5]); +if (!new_error) ((int8*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]))[tmp_long]=~(((int8*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]))[array_check((*__LONG_IDECY)-__ARRAY_BYTE_IDEBREAKPOINTS[4],__ARRAY_BYTE_IDEBREAKPOINTS[5])]); +if(!qbevent)break;evnt(26070,7750,"ide_methods.bas");}while(r); +S_44800:; +if ((((int8*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]))[array_check((*__LONG_IDECY)-__ARRAY_BYTE_IDEBREAKPOINTS[4],__ARRAY_BYTE_IDEBREAKPOINTS[5])])||new_error){ +if(qbevent){evnt(26070,7751,"ide_methods.bas");if(r)goto S_44800;} +do{ +tmp_long=array_check((*__LONG_IDECY)-__ARRAY_BYTE_IDESKIPLINES[4],__ARRAY_BYTE_IDESKIPLINES[5]); +if (!new_error) ((int8*)(__ARRAY_BYTE_IDESKIPLINES[0]))[tmp_long]= 0 ; +if(!qbevent)break;evnt(26070,7752,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("set breakpoint:",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7753,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("clear breakpoint:",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7755,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,l2string(*__LONG_IDECY))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7757,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=117; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SENDCOMMAND; +RETURN_117:; +if(!qbevent)break;evnt(26070,7758,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=118; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEDISPLAY; +RETURN_118:; +if(!qbevent)break;evnt(26070,7759,"ide_methods.bas");}while(r); +} +sc_ec_279_end:; +goto sc_4784_end; +} +S_44810:; +if (((*_SUB_DEBUGMODE_LONG_K==( 17408 )))||new_error){ +if(qbevent){evnt(26070,7761,"ide_methods.bas");if(r)goto S_44810;} +LABEL_F10:; +if(qbevent){evnt(26070,7762,"ide_methods.bas");r=0;} +S_44811:; +if ((func__keydown( 100306 )|func__keydown( 100305 ))||new_error){ +if(qbevent){evnt(26070,7763,"ide_methods.bas");if(r)goto S_44811;} +LABEL_REQUESTUNSKIPALLLINES:; +if(qbevent){evnt(26070,7764,"ide_methods.bas");r=0;} +do{ if (__ARRAY_BYTE_IDESKIPLINES[2]&2){ error(10); @@ -149617,22 +149617,22 @@ __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(26070,7765,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("clear all skips",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7766,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=119; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_SENDCOMMAND; -RETURN_119:; -if(!qbevent)break;evnt(26070,7767,"ide_methods.bas");}while(r); -}else{ -LABEL_REQUESTCLEARBREAKPOINTS:; -if(qbevent){evnt(26070,7769,"ide_methods.bas");r=0;} -do{ +} +if(!qbevent)break;evnt(26070,7765,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("clear all skips",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7766,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=119; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SENDCOMMAND; +RETURN_119:; +if(!qbevent)break;evnt(26070,7767,"ide_methods.bas");}while(r); +}else{ +LABEL_REQUESTCLEARBREAKPOINTS:; +if(qbevent){evnt(26070,7769,"ide_methods.bas");r=0;} +do{ if (__ARRAY_BYTE_IDEBREAKPOINTS[2]&2){ error(10); @@ -149656,2527 +149656,2527 @@ __ARRAY_BYTE_IDEBREAKPOINTS[0]=(ptrszint)calloc(__ARRAY_BYTE_IDEBREAKPOINTS[5]*1 if (!__ARRAY_BYTE_IDEBREAKPOINTS[0]) error(257); } __ARRAY_BYTE_IDEBREAKPOINTS[2]|=1; -} -if(!qbevent)break;evnt(26070,7770,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("clear all breakpoints",21)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7771,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=120; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_SENDCOMMAND; -RETURN_120:; -if(!qbevent)break;evnt(26070,7772,"ide_methods.bas");}while(r); -} -do{ -return_point[next_return_point++]=121; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_UPDATEDISPLAY; -RETURN_121:; -if(!qbevent)break;evnt(26070,7774,"ide_methods.bas");}while(r); -sc_ec_280_end:; -goto sc_4784_end; -} -S_44821:; -if (((*_SUB_DEBUGMODE_LONG_K==( 34304 )))||new_error){ -if(qbevent){evnt(26070,7775,"ide_methods.bas");if(r)goto S_44821;} -LABEL_F12:; -if(qbevent){evnt(26070,7776,"ide_methods.bas");r=0;} -S_44822:; -if ((*_SUB_DEBUGMODE_BYTE_PAUSEMODE)||new_error){ -if(qbevent){evnt(26070,7777,"ide_methods.bas");if(r)goto S_44822;} -LABEL_REQUESTCALLSTACK:; -if(qbevent){evnt(26070,7778,"ide_methods.bas");r=0;} -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("call stack",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7779,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=122; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_SENDCOMMAND; -RETURN_122:; -if(!qbevent)break;evnt(26070,7780,"ide_methods.bas");}while(r); -S_44825:; -if ((*_SUB_DEBUGMODE_LONG_BYPASSREQUESTCALLSTACK)||new_error){ -if(qbevent){evnt(26070,7782,"ide_methods.bas");if(r)goto S_44825;} -do{ -goto LABEL_SHOWCALLSTACK; -if(!qbevent)break;evnt(26070,7782,"ide_methods.bas");}while(r); -} -do{ -*_SUB_DEBUGMODE_LONG_DUMMY=FUNC_DARKENFGBG(&(pass4871= 0 )); -if(!qbevent)break;evnt(26070,7783,"ide_methods.bas");}while(r); -do{ -SUB_CLEARSTATUSWINDOW(&(pass4872= 0 )); -if(!qbevent)break;evnt(26070,7784,"ide_methods.bas");}while(r); -do{ -SUB_SETSTATUSMESSAGE(&(pass4873= 1 ),qbs_new_txt_len("Requesting call stack...",24),&(pass4874= 7 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7785,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_SINGLE_START=func_timer(NULL,0); -if(!qbevent)break;evnt(26070,7787,"ide_methods.bas");}while(r); -do{ -*__LONG_CALLSTACKLENGTH= -1 ; -if(!qbevent)break;evnt(26070,7788,"ide_methods.bas");}while(r); -S_44833:; -do{ -if(qbevent){evnt(26070,7789,"ide_methods.bas");if(r)goto S_44833;} -do{ -return_point[next_return_point++]=123; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_GETCOMMAND; -RETURN_123:; -if(!qbevent)break;evnt(26070,7790,"ide_methods.bas");}while(r); -S_44835:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("call stack size",15))))||new_error){ -if(qbevent){evnt(26070,7791,"ide_methods.bas");if(r)goto S_44835;} -do{ -*__LONG_CALLSTACKLENGTH=string2l(_SUB_DEBUGMODE_STRING_VALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7792,"ide_methods.bas");}while(r); -S_44837:; -if ((-(*__LONG_CALLSTACKLENGTH== 0 ))||new_error){ -if(qbevent){evnt(26070,7793,"ide_methods.bas");if(r)goto S_44837;} -do{ -goto dl_exit_4875; -if(!qbevent)break;evnt(26070,7793,"ide_methods.bas");}while(r); -} -} -do{ -sub__limit( 100 ); -if(!qbevent)break;evnt(26070,7795,"ide_methods.bas");}while(r); -S_44842:; -dl_continue_4875:; -}while((!(qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("call stack",10)))|(-((func_timer(NULL,0)-*_SUB_DEBUGMODE_SINGLE_START)>*_SUB_DEBUGMODE_LONG_TIMEOUT)))))&&(!new_error)); -dl_exit_4875:; -if(qbevent){evnt(26070,7796,"ide_methods.bas");if(r)goto S_44842;} -S_44843:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("call stack",10))))||new_error){ -if(qbevent){evnt(26070,7798,"ide_methods.bas");if(r)goto S_44843;} -do{ -qbs_set(__STRING_CALLSTACKLIST,_SUB_DEBUGMODE_STRING_VALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7800,"ide_methods.bas");}while(r); -LABEL_SHOWCALLSTACK:; -if(qbevent){evnt(26070,7801,"ide_methods.bas");r=0;} -do{ -SUB_CLEARSTATUSWINDOW(&(pass4876= 0 )); -if(!qbevent)break;evnt(26070,7802,"ide_methods.bas");}while(r); -do{ -SUB_SETSTATUSMESSAGE(&(pass4877= 1 ),qbs_new_txt_len("Paused.",7),&(pass4878= 2 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7803,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_RETVAL=FUNC_IDECALLSTACKBOX(); -if(!qbevent)break;evnt(26070,7804,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,7805,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=124; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_UPDATEDISPLAY; -RETURN_124:; -if(!qbevent)break;evnt(26070,7806,"ide_methods.bas");}while(r); -S_44850:; -while((func__mouseinput(NULL,0))||new_error){ -if(qbevent){evnt(26070,7807,"ide_methods.bas");if(r)goto S_44850;} -ww_continue_4879:; -} -ww_exit_4879:; -}else{ -S_44853:; -if ((-(*__LONG_CALLSTACKLENGTH== -1 ))||new_error){ -if(qbevent){evnt(26070,7809,"ide_methods.bas");if(r)goto S_44853;} -do{ -*__LONG_CALLSTACKLENGTH= 0 ; -if(!qbevent)break;evnt(26070,7810,"ide_methods.bas");}while(r); -do{ -SUB_CLEARSTATUSWINDOW(&(pass4880= 0 )); -if(!qbevent)break;evnt(26070,7811,"ide_methods.bas");}while(r); -do{ -SUB_SETSTATUSMESSAGE(&(pass4881= 1 ),qbs_new_txt_len("Error retrieving call stack.",28),&(pass4882= 4 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7812,"ide_methods.bas");}while(r); -S_44857:; -}else{ -if (-(*__LONG_CALLSTACKLENGTH== 0 )){ -if(qbevent){evnt(26070,7813,"ide_methods.bas");if(r)goto S_44857;} -do{ -SUB_CLEARSTATUSWINDOW(&(pass4883= 0 )); -if(!qbevent)break;evnt(26070,7814,"ide_methods.bas");}while(r); -do{ -SUB_SETSTATUSMESSAGE(&(pass4884= 1 ),qbs_new_txt_len("No call stack log available.",28),&(pass4885= 4 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7815,"ide_methods.bas");}while(r); -} -} -} -do{ -*_SUB_DEBUGMODE_BYTE_NOFOCUSMESSAGE=~(*_SUB_DEBUGMODE_BYTE_NOFOCUSMESSAGE); -if(!qbevent)break;evnt(26070,7818,"ide_methods.bas");}while(r); -} -sc_ec_281_end:; -goto sc_4784_end; -} -S_44864:; -if (((*_SUB_DEBUGMODE_LONG_K==( 103 ))||(*_SUB_DEBUGMODE_LONG_K==( 71 )))||new_error){ -if(qbevent){evnt(26070,7820,"ide_methods.bas");if(r)goto S_44864;} -S_44865:; -if ((func__keydown( 100306 )|func__keydown( 100305 ))||new_error){ -if(qbevent){evnt(26070,7821,"ide_methods.bas");if(r)goto S_44865;} -S_44866:; -if ((func__keydown( 100304 )|func__keydown( 100303 ))||new_error){ -if(qbevent){evnt(26070,7822,"ide_methods.bas");if(r)goto S_44866;} -do{ -*_SUB_DEBUGMODE_LONG_RESULT=FUNC_IDEGETLINENUMBERBOX(qbs_new_txt_len("Run To Line",11),__LONG_IDECY); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7823,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,7824,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,7824,"ide_methods.bas");}while(r); -S_44870:; -while((func__mouseinput(NULL,0))||new_error){ -if(qbevent){evnt(26070,7825,"ide_methods.bas");if(r)goto S_44870;} -ww_continue_4886:; -} -ww_exit_4886:; -LABEL_REQUESTRUNTOTHISLINE:; -if(qbevent){evnt(26070,7826,"ide_methods.bas");r=0;} -S_44872:; -if (((-(*_SUB_DEBUGMODE_LONG_RESULT> 0 ))&(-(*_SUB_DEBUGMODE_LONG_RESULT<=*__LONG_IDEN)))||new_error){ -if(qbevent){evnt(26070,7827,"ide_methods.bas");if(r)goto S_44872;} -do{ -*_SUB_DEBUGMODE_BYTE_PAUSEMODE= 0 ; -if(!qbevent)break;evnt(26070,7828,"ide_methods.bas");}while(r); -do{ -*__LONG_DEBUGNEXTLINE= 0 ; -if(!qbevent)break;evnt(26070,7829,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(qbs_new_txt_len("run to line:",12),l2string(*_SUB_DEBUGMODE_LONG_RESULT))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7830,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=125; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_SENDCOMMAND; -RETURN_125:; -if(!qbevent)break;evnt(26070,7831,"ide_methods.bas");}while(r); -do{ -SUB_CLEARSTATUSWINDOW(&(pass4887= 1 )); -if(!qbevent)break;evnt(26070,7832,"ide_methods.bas");}while(r); -do{ -SUB_SETSTATUSMESSAGE(&(pass4888= 1 ),qbs_new_txt_len("Running...",10),&(pass4889= 10 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7833,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=126; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_UPDATEDISPLAY; -RETURN_126:; -if(!qbevent)break;evnt(26070,7834,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_DUMMY=FUNC_DARKENFGBG(&(pass4890= 1 )); -if(!qbevent)break;evnt(26070,7835,"ide_methods.bas");}while(r); -} -}else{ -do{ -*_SUB_DEBUGMODE_LONG_RESULT=FUNC_IDEGETLINENUMBERBOX(qbs_new_txt_len("Set Next Line",13),__LONG_IDECY); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7838,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,7839,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,7839,"ide_methods.bas");}while(r); -S_44886:; -while((func__mouseinput(NULL,0))||new_error){ -if(qbevent){evnt(26070,7840,"ide_methods.bas");if(r)goto S_44886;} -ww_continue_4891:; -} -ww_exit_4891:; -LABEL_REQUESTSETNEXTLINE:; -if(qbevent){evnt(26070,7841,"ide_methods.bas");r=0;} -S_44888:; -if (((-(*_SUB_DEBUGMODE_LONG_RESULT> 0 ))&(-(*_SUB_DEBUGMODE_LONG_RESULT<=*__LONG_IDEN)))||new_error){ -if(qbevent){evnt(26070,7842,"ide_methods.bas");if(r)goto S_44888;} -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(qbs_new_txt_len("set next line:",14),l2string(*_SUB_DEBUGMODE_LONG_RESULT))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7843,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=127; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_SENDCOMMAND; -RETURN_127:; -if(!qbevent)break;evnt(26070,7844,"ide_methods.bas");}while(r); -} -} -} -sc_ec_282_end:; -goto sc_4784_end; -} -S_44894:; -if (((*_SUB_DEBUGMODE_LONG_K==( 112 ))||(*_SUB_DEBUGMODE_LONG_K==( 80 )))||new_error){ -if(qbevent){evnt(26070,7848,"ide_methods.bas");if(r)goto S_44894;} -S_44895:; -if ((func__keydown( 100306 )|func__keydown( 100305 ))||new_error){ -if(qbevent){evnt(26070,7849,"ide_methods.bas");if(r)goto S_44895;} -do{ -*_SUB_DEBUGMODE_LONG_RESULT=FUNC_IDEGETLINENUMBERBOX(qbs_new_txt_len("Skip Line",9),__LONG_IDECY); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7850,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,7851,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,7851,"ide_methods.bas");}while(r); -S_44899:; -while((func__mouseinput(NULL,0))||new_error){ -if(qbevent){evnt(26070,7852,"ide_methods.bas");if(r)goto S_44899;} -ww_continue_4892:; -} -ww_exit_4892:; -LABEL_REQUESTTOGGLESKIPLINE:; -if(qbevent){evnt(26070,7853,"ide_methods.bas");r=0;} -S_44901:; -if (((-(*_SUB_DEBUGMODE_LONG_RESULT> 0 ))&(-(*_SUB_DEBUGMODE_LONG_RESULT<=*__LONG_IDEN)))||new_error){ -if(qbevent){evnt(26070,7854,"ide_methods.bas");if(r)goto S_44901;} -do{ -tmp_long=array_check((*_SUB_DEBUGMODE_LONG_RESULT)-__ARRAY_BYTE_IDESKIPLINES[4],__ARRAY_BYTE_IDESKIPLINES[5]); -if (!new_error) ((int8*)(__ARRAY_BYTE_IDESKIPLINES[0]))[tmp_long]=~(((int8*)(__ARRAY_BYTE_IDESKIPLINES[0]))[array_check((*_SUB_DEBUGMODE_LONG_RESULT)-__ARRAY_BYTE_IDESKIPLINES[4],__ARRAY_BYTE_IDESKIPLINES[5])]); -if(!qbevent)break;evnt(26070,7855,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("set skip line:",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7856,"ide_methods.bas");}while(r); -S_44904:; -if ((-(((int8*)(__ARRAY_BYTE_IDESKIPLINES[0]))[array_check((*_SUB_DEBUGMODE_LONG_RESULT)-__ARRAY_BYTE_IDESKIPLINES[4],__ARRAY_BYTE_IDESKIPLINES[5])]== 0 ))||new_error){ -if(qbevent){evnt(26070,7857,"ide_methods.bas");if(r)goto S_44904;} -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("clear skip line:",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7857,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,l2string(*_SUB_DEBUGMODE_LONG_RESULT))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7858,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=128; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_SENDCOMMAND; -RETURN_128:; -if(!qbevent)break;evnt(26070,7859,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=129; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_UPDATEDISPLAY; -RETURN_129:; -if(!qbevent)break;evnt(26070,7860,"ide_methods.bas");}while(r); -} -} -sc_ec_283_end:; -goto sc_4784_end; -} -sc_4784_end:; -do{ -return_point[next_return_point++]=130; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_GETCOMMAND; -RETURN_130:; -if(!qbevent)break;evnt(26070,7865,"ide_methods.bas");}while(r); -S_44914:; -if(qbevent){evnt(26070,7867,"ide_methods.bas");if(r)goto S_44914;} -S_44915:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("breakpoint",10))||qbs_equal(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("line number",11))||qbs_equal(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("watchpoint",10))))||new_error){ -if(qbevent){evnt(26070,7868,"ide_methods.bas");if(r)goto S_44915;} -do{ -*_SUB_DEBUGMODE_LONG_BYPASSREQUESTCALLSTACK= 0 ; -if(!qbevent)break;evnt(26070,7869,"ide_methods.bas");}while(r); -S_44917:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("watchpoint",10))))||new_error){ -if(qbevent){evnt(26070,7870,"ide_methods.bas");if(r)goto S_44917;} -do{ -qbs_set(_SUB_DEBUGMODE_STRING_TEMP,FUNC_GETBYTES(qbs_new_txt_len("",0),&(pass4894= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7871,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_TEMPINDEX=string2l(FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_VALUE,&(pass4895= 4 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7872,"ide_methods.bas");}while(r); -do{ -*__LONG_LATESTWATCHPOINTMET=*_SUB_DEBUGMODE_LONG_TEMPINDEX; -if(!qbevent)break;evnt(26070,7873,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_TEMPARRAYINDEXES,FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_VALUE,&(pass4896= 4 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7874,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_TEMPARRAYINDEXES,qbs_add(_SUB_DEBUGMODE_STRING_TEMPARRAYINDEXES,FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_VALUE,&(pass4897=string2l(_SUB_DEBUGMODE_STRING_TEMPARRAYINDEXES))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7875,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_TEMPELEMENTOFFSET,FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_VALUE,&(pass4898= 4 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7876,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_I=string2i(FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_VALUE,&(pass4899= 2 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7877,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_TEMP,qbs_add(qbs_add(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_SUB_DEBUGMODE_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+32))),qbs_new_txt_len(" ",1)),FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_VALUE,_SUB_DEBUGMODE_LONG_I))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7878,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Watchpoint condition met",24),_SUB_DEBUGMODE_STRING_TEMP,qbs_new_txt_len("#OK;#Clear Watchpoint",21)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7879,"ide_methods.bas");}while(r); -S_44927:; -if ((-(*_SUB_DEBUGMODE_LONG_RESULT== 2 ))||new_error){ -if(qbevent){evnt(26070,7880,"ide_methods.bas");if(r)goto S_44927;} -do{ -qbs_set(_SUB_DEBUGMODE_STRING_TEMP,qbs_add(qbs_add(l2string(*_SUB_DEBUGMODE_LONG_TEMPINDEX),_SUB_DEBUGMODE_STRING_TEMPARRAYINDEXES),_SUB_DEBUGMODE_STRING_TEMPELEMENTOFFSET)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7882,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_I= 0 ; -if(!qbevent)break;evnt(26070,7883,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_I=func_instr(*_SUB_DEBUGMODE_LONG_I+ 1 ,__STRING_WATCHPOINTLIST,l2string( -1 ),0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7884,"ide_methods.bas");}while(r); -S_44931:; -while((*_SUB_DEBUGMODE_LONG_I)||new_error){ -if(qbevent){evnt(26070,7885,"ide_methods.bas");if(r)goto S_44931;} -S_44932:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(__STRING_WATCHPOINTLIST,*_SUB_DEBUGMODE_LONG_I+ 8 ,_SUB_DEBUGMODE_STRING_TEMP->len,0|1),_SUB_DEBUGMODE_STRING_TEMP)))||new_error){ -if(qbevent){evnt(26070,7886,"ide_methods.bas");if(r)goto S_44932;} -do{ -goto dl_exit_4900; -if(!qbevent)break;evnt(26070,7886,"ide_methods.bas");}while(r); -} -do{ -*_SUB_DEBUGMODE_LONG_I=func_instr(*_SUB_DEBUGMODE_LONG_I+ 1 ,__STRING_WATCHPOINTLIST,l2string( -1 ),0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7887,"ide_methods.bas");}while(r); -dl_continue_4900:; -} -dl_exit_4900:; -S_44937:; -if ((-(*_SUB_DEBUGMODE_LONG_I> 0 ))||new_error){ -if(qbevent){evnt(26070,7890,"ide_methods.bas");if(r)goto S_44937;} -do{ -*_SUB_DEBUGMODE_LONG_J=string2l(func_mid(__STRING_WATCHPOINTLIST,*_SUB_DEBUGMODE_LONG_I+ 4 , 4 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7892,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_WATCHPOINTLIST,qbs_add(qbs_left(__STRING_WATCHPOINTLIST,*_SUB_DEBUGMODE_LONG_I- 1 ),func_mid(__STRING_WATCHPOINTLIST,*_SUB_DEBUGMODE_LONG_I+*_SUB_DEBUGMODE_LONG_J+ 8 ,NULL,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7893,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("clear last watchpoint",21)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7896,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=131; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_SENDCOMMAND; -RETURN_131:; -if(!qbevent)break;evnt(26070,7897,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_SUB_DEBUGMODE_STRING_VALUE,qbs_right(_SUB_DEBUGMODE_STRING_VALUE, 4 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7899,"ide_methods.bas");}while(r); -}else{ -do{ -*__LONG_LATESTWATCHPOINTMET= 0 ; -if(!qbevent)break;evnt(26070,7901,"ide_methods.bas");}while(r); -} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,7903,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,7903,"ide_methods.bas");}while(r); -S_44950:; -while((func__mouseinput(NULL,0))||new_error){ -if(qbevent){evnt(26070,7904,"ide_methods.bas");if(r)goto S_44950;} -ww_continue_4902:; -} -ww_exit_4902:; -do{ -*_SUB_DEBUGMODE_LONG_L=string2l(_SUB_DEBUGMODE_STRING_VALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7905,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECY=*_SUB_DEBUGMODE_LONG_L; -if(!qbevent)break;evnt(26070,7906,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(26070,7907,"ide_methods.bas");}while(r); -do{ -*__LONG_DEBUGNEXTLINE=*_SUB_DEBUGMODE_LONG_L; -if(!qbevent)break;evnt(26070,7908,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEFOCUSLINE= 0 ; -if(!qbevent)break;evnt(26070,7909,"ide_methods.bas");}while(r); -do{ -SUB_IDECENTERCURRENTLINE(); -if(!qbevent)break;evnt(26070,7910,"ide_methods.bas");}while(r); -do{ -SUB_CLEARSTATUSWINDOW(&(pass4903= 1 )); -if(!qbevent)break;evnt(26070,7911,"ide_methods.bas");}while(r); -S_44959:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("breakpoint",10))))||new_error){ -if(qbevent){evnt(26070,7912,"ide_methods.bas");if(r)goto S_44959;} -do{ -SUB_SETSTATUSMESSAGE(&(pass4904= 1 ),qbs_add(qbs_new_txt_len("Breakpoint reached on line",26),qbs_str((int32)(*_SUB_DEBUGMODE_LONG_L))),&(pass4905= 2 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7913,"ide_methods.bas");}while(r); -S_44961:; -}else{ -if (qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("watchpoint",10)))){ -if(qbevent){evnt(26070,7914,"ide_methods.bas");if(r)goto S_44961;} -do{ -SUB_SETSTATUSMESSAGE(&(pass4906= 1 ),qbs_add(qbs_add(qbs_new_txt_len("Watchpoint condition met (",26),_SUB_DEBUGMODE_STRING_TEMP),qbs_new_txt_len(")",1)),&(pass4907= 2 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7915,"ide_methods.bas");}while(r); -}else{ -do{ -SUB_SETSTATUSMESSAGE(&(pass4908= 1 ),qbs_new_txt_len("Paused.",7),&(pass4909= 2 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7917,"ide_methods.bas");}while(r); -} -} -do{ -*_SUB_DEBUGMODE_BYTE_PAUSEMODE= -1 ; -if(!qbevent)break;evnt(26070,7919,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=132; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_UPDATEDISPLAY; -RETURN_132:; -if(!qbevent)break;evnt(26070,7920,"ide_methods.bas");}while(r); -S_44968:; -if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_VARIABLEWATCHLIST->len> 0 ))&*_SUB_DEBUGMODE_BYTE_PANELACTIVE))||new_error){ -if(qbevent){evnt(26070,7923,"ide_methods.bas");if(r)goto S_44968;} -LABEL_REQUESTVARIABLEVALUES:; -if(qbevent){evnt(26070,7924,"ide_methods.bas");r=0;} -do{ -qbs_set(_SUB_DEBUGMODE_STRING_TEMP,FUNC_GETBYTES(qbs_new_txt_len("",0),&(pass4911= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7925,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_TEMP,func_mid(__STRING_VARIABLEWATCHLIST, 9 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7926,"ide_methods.bas");}while(r); -S_44971:; -do{ -if(qbevent){evnt(26070,7927,"ide_methods.bas");if(r)goto S_44971;} -do{ -qbs_set(_SUB_DEBUGMODE_STRING_TEMP2,FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_TEMP,&(pass4913= 4 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7928,"ide_methods.bas");}while(r); -S_44973:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_DEBUGMODE_STRING_TEMP2,l2string( -1 ))))||new_error){ -if(qbevent){evnt(26070,7929,"ide_methods.bas");if(r)goto S_44973;} -do{ -goto dl_exit_4912; -if(!qbevent)break;evnt(26070,7929,"ide_methods.bas");}while(r); -} -do{ -*_SUB_DEBUGMODE_LONG_TEMPINDEX=string2l(FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_TEMP,&(pass4914= 4 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7930,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_TEMPARRAYINDEXES,FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_TEMP,&(pass4915= 4 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7931,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_I=string2l(_SUB_DEBUGMODE_STRING_TEMPARRAYINDEXES); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7932,"ide_methods.bas");}while(r); -S_44979:; -if ((-(*_SUB_DEBUGMODE_LONG_I> 0 ))||new_error){ -if(qbevent){evnt(26070,7933,"ide_methods.bas");if(r)goto S_44979;} -do{ -qbs_set(_SUB_DEBUGMODE_STRING_TEMPARRAYINDEXES,qbs_add(_SUB_DEBUGMODE_STRING_TEMPARRAYINDEXES,FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_TEMP,_SUB_DEBUGMODE_LONG_I))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7934,"ide_methods.bas");}while(r); -} -do{ -*_SUB_DEBUGMODE_LONG_TEMPELEMENT=string2l(FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_TEMP,&(pass4916= 4 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7936,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_TEMPELEMENTOFFSET=string2l(FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_TEMP,&(pass4917= 4 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7937,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_TEMPSTORAGE=string2l(FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_TEMP,&(pass4918= 4 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7938,"ide_methods.bas");}while(r); -S_44985:; -if ((qbs_cleanup(qbs_tmp_base,-((*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_DEBUGMODE_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+64)))->len== 0 )))||new_error){ -if(qbevent){evnt(26070,7939,"ide_methods.bas");if(r)goto S_44985;} -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("get global var:",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7940,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("get local var:",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7942,"ide_methods.bas");}while(r); -} -do{ -return_point[next_return_point++]=133; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_GETVARSIZE; -RETURN_133:; -if(!qbevent)break;evnt(26070,7944,"ide_methods.bas");}while(r); -S_44991:; -if ((*_SUB_DEBUGMODE_LONG_VARSIZE)||new_error){ -if(qbevent){evnt(26070,7945,"ide_methods.bas");if(r)goto S_44991;} -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,l2string(*_SUB_DEBUGMODE_LONG_TEMPINDEX))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7946,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,b2string(*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_DEBUGMODE_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+30))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7947,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,l2string(*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_DEBUGMODE_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+4))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7948,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,l2string(*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_DEBUGMODE_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+20))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7949,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,_SUB_DEBUGMODE_STRING_TEMPARRAYINDEXES)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7950,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,l2string(*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_DEBUGMODE_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+24))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7951,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,l2string(*_SUB_DEBUGMODE_LONG_TEMPELEMENT))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7952,"ide_methods.bas");}while(r); -S_44999:; -if ((*_SUB_DEBUGMODE_LONG_TEMPELEMENT)||new_error){ -if(qbevent){evnt(26070,7953,"ide_methods.bas");if(r)goto S_44999;} -do{ -*_SUB_DEBUGMODE_LONG_TEMPELEMENTOFFSET=string2l(func_mid(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_SUB_DEBUGMODE_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+104))),(*_SUB_DEBUGMODE_LONG_TEMPELEMENT* 4 )-( 3 ), 4 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7954,"ide_methods.bas");}while(r); -}else{ -do{ -*_SUB_DEBUGMODE_LONG_TEMPELEMENTOFFSET= 0 ; -if(!qbevent)break;evnt(26070,7956,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,l2string(*_SUB_DEBUGMODE_LONG_TEMPELEMENTOFFSET))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7958,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,l2string(*_SUB_DEBUGMODE_LONG_VARSIZE))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7959,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,l2string(*_SUB_DEBUGMODE_LONG_TEMPSTORAGE))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7960,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,i2string((*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_DEBUGMODE_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+64)))->len))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7961,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_SUB_DEBUGMODE_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+64))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7962,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(qbs_add(_SUB_DEBUGMODE_STRING_CMD,i2string(_SUB_DEBUGMODE_STRING_VARTYPE->len)),_SUB_DEBUGMODE_STRING_VARTYPE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7963,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=134; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_SENDCOMMAND; -RETURN_134:; -if(!qbevent)break;evnt(26070,7964,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7966,"ide_methods.bas");}while(r); -} -dl_continue_4912:; -}while(1); -dl_exit_4912:; -} -sc_ec_284_end:; -goto sc_4893_end; -} -S_45016:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("hwnd",4))))||new_error){ -if(qbevent){evnt(26070,7970,"ide_methods.bas");if(r)goto S_45016;} -do{ -*_SUB_DEBUGMODE_OFFSET_DEBUGGEEHWND=string2o(_SUB_DEBUGMODE_STRING_VALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7971,"ide_methods.bas");}while(r); -sc_ec_285_end:; -goto sc_4893_end; -} -S_45018:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("address read",12))))||new_error){ -if(qbevent){evnt(26070,7972,"ide_methods.bas");if(r)goto S_45018;} -do{ -*_SUB_DEBUGMODE_LONG_TEMPINDEX=string2l(qbs_left(_SUB_DEBUGMODE_STRING_VALUE, 4 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7973,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_TEMPARRAYINDEX=string2l(func_mid(_SUB_DEBUGMODE_STRING_VALUE, 5 , 4 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7974,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_TEMPELEMENT=string2l(func_mid(_SUB_DEBUGMODE_STRING_VALUE, 9 , 4 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7975,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_TEMPSTORAGE=string2l(func_mid(_SUB_DEBUGMODE_STRING_VALUE, 13 , 4 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7976,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_RECVDATA,func_mid(_SUB_DEBUGMODE_STRING_VALUE, 17 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7977,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=135; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_GETVARSIZE; -RETURN_135:; -if(!qbevent)break;evnt(26070,7978,"ide_methods.bas");}while(r); -S_45025:; -if(qbevent){evnt(26070,7979,"ide_methods.bas");if(r)goto S_45025;} -S_45026:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_BYTE",5))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("BYTE",4))))||new_error){ -if(qbevent){evnt(26070,7980,"ide_methods.bas");if(r)goto S_45026;} -do{ -qbs_set(_SUB_DEBUGMODE_STRING_RECVDATA,qbs_str((int8)(string2b(_SUB_DEBUGMODE_STRING_RECVDATA)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7980,"ide_methods.bas");}while(r); -sc_ec_286_end:; -goto sc_4920_end; -} -S_45028:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_UNSIGNED _BYTE",15))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("UNSIGNED BYTE",13))))||new_error){ -if(qbevent){evnt(26070,7981,"ide_methods.bas");if(r)goto S_45028;} -do{ -qbs_set(_SUB_DEBUGMODE_STRING_RECVDATA,qbs_str((uint8)(string2ub(_SUB_DEBUGMODE_STRING_RECVDATA)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7981,"ide_methods.bas");}while(r); -sc_ec_287_end:; -goto sc_4920_end; -} -S_45030:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("INTEGER",7))))||new_error){ -if(qbevent){evnt(26070,7982,"ide_methods.bas");if(r)goto S_45030;} -do{ -qbs_set(_SUB_DEBUGMODE_STRING_RECVDATA,qbs_str((int16)(string2i(_SUB_DEBUGMODE_STRING_RECVDATA)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7982,"ide_methods.bas");}while(r); -sc_ec_288_end:; -goto sc_4920_end; -} -S_45032:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_UNSIGNED INTEGER",17))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("UNSIGNED INTEGER",16))))||new_error){ -if(qbevent){evnt(26070,7983,"ide_methods.bas");if(r)goto S_45032;} -do{ -qbs_set(_SUB_DEBUGMODE_STRING_RECVDATA,qbs_str((uint16)(string2ui(_SUB_DEBUGMODE_STRING_RECVDATA)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7983,"ide_methods.bas");}while(r); -sc_ec_289_end:; -goto sc_4920_end; -} -S_45034:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("LONG",4))))||new_error){ -if(qbevent){evnt(26070,7984,"ide_methods.bas");if(r)goto S_45034;} -do{ -qbs_set(_SUB_DEBUGMODE_STRING_RECVDATA,qbs_str((int32)(string2l(_SUB_DEBUGMODE_STRING_RECVDATA)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7984,"ide_methods.bas");}while(r); -sc_ec_290_end:; -goto sc_4920_end; -} -S_45036:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_UNSIGNED LONG",14))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("UNSIGNED LONG",13))))||new_error){ -if(qbevent){evnt(26070,7985,"ide_methods.bas");if(r)goto S_45036;} -do{ -qbs_set(_SUB_DEBUGMODE_STRING_RECVDATA,qbs_str((uint32)(string2ul(_SUB_DEBUGMODE_STRING_RECVDATA)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7985,"ide_methods.bas");}while(r); -sc_ec_291_end:; -goto sc_4920_end; -} -S_45038:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_INTEGER64",10))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("INTEGER64",9))))||new_error){ -if(qbevent){evnt(26070,7986,"ide_methods.bas");if(r)goto S_45038;} -do{ -qbs_set(_SUB_DEBUGMODE_STRING_RECVDATA,qbs_str((int64)(string2i64(_SUB_DEBUGMODE_STRING_RECVDATA)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7986,"ide_methods.bas");}while(r); -sc_ec_292_end:; -goto sc_4920_end; -} -S_45040:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_UNSIGNED _INTEGER64",20))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("UNSIGNED INTEGER64",18))))||new_error){ -if(qbevent){evnt(26070,7987,"ide_methods.bas");if(r)goto S_45040;} -do{ -qbs_set(_SUB_DEBUGMODE_STRING_RECVDATA,qbs_str((uint64)(string2ui64(_SUB_DEBUGMODE_STRING_RECVDATA)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7987,"ide_methods.bas");}while(r); -sc_ec_293_end:; -goto sc_4920_end; -} -S_45042:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("SINGLE",6))))||new_error){ -if(qbevent){evnt(26070,7988,"ide_methods.bas");if(r)goto S_45042;} -do{ -qbs_set(_SUB_DEBUGMODE_STRING_RECVDATA,qbs_str((float)(string2s(_SUB_DEBUGMODE_STRING_RECVDATA)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7988,"ide_methods.bas");}while(r); -sc_ec_294_end:; -goto sc_4920_end; -} -S_45044:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("DOUBLE",6))))||new_error){ -if(qbevent){evnt(26070,7989,"ide_methods.bas");if(r)goto S_45044;} -do{ -qbs_set(_SUB_DEBUGMODE_STRING_RECVDATA,qbs_str((double)(string2d(_SUB_DEBUGMODE_STRING_RECVDATA)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7989,"ide_methods.bas");}while(r); -sc_ec_295_end:; -goto sc_4920_end; -} -S_45046:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_FLOAT",6))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("FLOAT",5))))||new_error){ -if(qbevent){evnt(26070,7990,"ide_methods.bas");if(r)goto S_45046;} -do{ -qbs_set(_SUB_DEBUGMODE_STRING_RECVDATA,qbs_str((long double)(string2f(_SUB_DEBUGMODE_STRING_RECVDATA)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7990,"ide_methods.bas");}while(r); -sc_ec_296_end:; -goto sc_4920_end; -} -S_45048:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_OFFSET",7))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("OFFSET",6))))||new_error){ -if(qbevent){evnt(26070,7991,"ide_methods.bas");if(r)goto S_45048;} -do{ -qbs_set(_SUB_DEBUGMODE_STRING_RECVDATA,qbs_str((int64)(string2o(_SUB_DEBUGMODE_STRING_RECVDATA)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7991,"ide_methods.bas");}while(r); -sc_ec_297_end:; -goto sc_4920_end; -} -S_45050:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_UNSIGNED _OFFSET",17))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("UNSIGNED OFFSET",15))))||new_error){ -if(qbevent){evnt(26070,7992,"ide_methods.bas");if(r)goto S_45050;} -do{ -qbs_set(_SUB_DEBUGMODE_STRING_RECVDATA,qbs_str((uint64)(string2uo(_SUB_DEBUGMODE_STRING_RECVDATA)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7992,"ide_methods.bas");}while(r); -sc_ec_298_end:; -goto sc_4920_end; -} -sc_4920_end:; -do{ -tmp_long=array_check((*_SUB_DEBUGMODE_LONG_TEMPSTORAGE)-__ARRAY_STRING_VWATCHRECEIVEDDATA[4],__ARRAY_STRING_VWATCHRECEIVEDDATA[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_VWATCHRECEIVEDDATA[0]))[tmp_long])),_SUB_DEBUGMODE_STRING_RECVDATA); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7995,"ide_methods.bas");}while(r); -S_45054:; -if ((*_SUB_DEBUGMODE_BYTE_PAUSEMODE)||new_error){ -if(qbevent){evnt(26070,7996,"ide_methods.bas");if(r)goto S_45054;} -do{ -return_point[next_return_point++]=136; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_UPDATEDISPLAY; -RETURN_136:; -if(!qbevent)break;evnt(26070,7996,"ide_methods.bas");}while(r); -} -sc_ec_299_end:; -goto sc_4893_end; -} -S_45057:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("current sub",11))))||new_error){ -if(qbevent){evnt(26070,7997,"ide_methods.bas");if(r)goto S_45057;} -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CURRENTSUB,_SUB_DEBUGMODE_STRING_VALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7998,"ide_methods.bas");}while(r); -S_45059:; -if ((*_SUB_DEBUGMODE_LONG_ESTABILISHINGSCOPE)||new_error){ -if(qbevent){evnt(26070,7999,"ide_methods.bas");if(r)goto S_45059;} -do{ -*_SUB_DEBUGMODE_LONG_ESTABILISHINGSCOPE= 0 ; -if(!qbevent)break;evnt(26070,8000,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=137; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_UPDATEDISPLAY; -RETURN_137:; -if(!qbevent)break;evnt(26070,8001,"ide_methods.bas");}while(r); -do{ -goto LABEL_REQUESTVARIABLEWATCH; -if(!qbevent)break;evnt(26070,8002,"ide_methods.bas");}while(r); -} -sc_ec_300_end:; -goto sc_4893_end; -} -S_45064:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("quit",4))))||new_error){ -if(qbevent){evnt(26070,8004,"ide_methods.bas");if(r)goto S_45064;} -do{ -sub_close(*__LONG_DEBUGCLIENT,1); -if(!qbevent)break;evnt(26070,8005,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_DUMMY=FUNC_DARKENFGBG(&(pass4921= 0 )); -if(!qbevent)break;evnt(26070,8006,"ide_methods.bas");}while(r); -do{ -SUB_CLEARSTATUSWINDOW(&(pass4922= 0 )); -if(!qbevent)break;evnt(26070,8007,"ide_methods.bas");}while(r); -do{ -SUB_SETSTATUSMESSAGE(&(pass4923= 1 ),qbs_new_txt_len("Debug session aborted.",22),&(pass4924= 15 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8008,"ide_methods.bas");}while(r); -S_45069:; -if ((qbs_cleanup(qbs_tmp_base,_SUB_DEBUGMODE_STRING_VALUE->len))||new_error){ -if(qbevent){evnt(26070,8009,"ide_methods.bas");if(r)goto S_45069;} -do{ -SUB_SETSTATUSMESSAGE(&(pass4926= 2 ),_SUB_DEBUGMODE_STRING_VALUE,&(pass4927= 7 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8010,"ide_methods.bas");}while(r); -} -S_45072:; -while((func__mouseinput(NULL,0))||new_error){ -if(qbevent){evnt(26070,8012,"ide_methods.bas");if(r)goto S_45072;} -ww_continue_4928:; -} -ww_exit_4928:; -do{ -sub__keyclear(NULL,0); -if(!qbevent)break;evnt(26070,8013,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,8014,"ide_methods.bas");}while(r); -sc_ec_301_end:; -goto sc_4893_end; -} -S_45076:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("error",5))))||new_error){ -if(qbevent){evnt(26070,8015,"ide_methods.bas");if(r)goto S_45076;} -do{ -*_SUB_DEBUGMODE_LONG_L=string2l(_SUB_DEBUGMODE_STRING_VALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8016,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECY=*_SUB_DEBUGMODE_LONG_L; -if(!qbevent)break;evnt(26070,8017,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(26070,8018,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEFOCUSLINE=*_SUB_DEBUGMODE_LONG_L; -if(!qbevent)break;evnt(26070,8019,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=138; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_UPDATEDISPLAY; -RETURN_138:; -if(!qbevent)break;evnt(26070,8020,"ide_methods.bas");}while(r); -do{ -SUB_CLEARSTATUSWINDOW(&(pass4929= 1 )); -if(!qbevent)break;evnt(26070,8021,"ide_methods.bas");}while(r); -do{ -qbg_sub_color(NULL, 4 ,NULL,2); -if(!qbevent)break;evnt(26070,8022,"ide_methods.bas");}while(r); -do{ -SUB_SETSTATUSMESSAGE(&(pass4930= 1 ),qbs_add(qbs_new_txt_len("Error occurred on line",22),qbs_str((int32)(*_SUB_DEBUGMODE_LONG_L))),&(pass4931= 15 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8023,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_BYPASSREQUESTCALLSTACK= -1 ; -if(!qbevent)break;evnt(26070,8024,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_BYTE_PAUSEMODE= -1 ; -if(!qbevent)break;evnt(26070,8025,"ide_methods.bas");}while(r); -sc_ec_302_end:; -goto sc_4893_end; -} -S_45087:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("enter input",11))))||new_error){ -if(qbevent){evnt(26070,8026,"ide_methods.bas");if(r)goto S_45087;} -do{ -*_SUB_DEBUGMODE_BYTE_ENTEREDINPUT= -1 ; -if(!qbevent)break;evnt(26070,8027,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_L=string2l(_SUB_DEBUGMODE_STRING_VALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8028,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECY=*_SUB_DEBUGMODE_LONG_L; -if(!qbevent)break;evnt(26070,8029,"ide_methods.bas");}while(r); -do{ -*__LONG_DEBUGNEXTLINE=*_SUB_DEBUGMODE_LONG_L; -if(!qbevent)break;evnt(26070,8030,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(26070,8031,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=139; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_UPDATEDISPLAY; -RETURN_139:; -if(!qbevent)break;evnt(26070,8032,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_DUMMY=FUNC_DARKENFGBG(&(pass4932= 1 )); -if(!qbevent)break;evnt(26070,8033,"ide_methods.bas");}while(r); -do{ -SUB_CLEARSTATUSWINDOW(&(pass4933= 1 )); -if(!qbevent)break;evnt(26070,8034,"ide_methods.bas");}while(r); -do{ -SUB_SETSTATUSMESSAGE(&(pass4934= 1 ),qbs_new_txt_len("SLEEP/INPUT/LINE INPUT active in your program...",48),&(pass4935= 10 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8035,"ide_methods.bas");}while(r); -do{ -set_foreground_window(*_SUB_DEBUGMODE_OFFSET_DEBUGGEEHWND); -if(!qbevent)break;evnt(26070,8036,"ide_methods.bas");}while(r); -sc_ec_303_end:; -goto sc_4893_end; -} -S_45098:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("leave input",11))))||new_error){ -if(qbevent){evnt(26070,8037,"ide_methods.bas");if(r)goto S_45098;} -do{ -*_SUB_DEBUGMODE_BYTE_ENTEREDINPUT= 0 ; -if(!qbevent)break;evnt(26070,8038,"ide_methods.bas");}while(r); -do{ -SUB_CLEARSTATUSWINDOW(&(pass4936= 1 )); -if(!qbevent)break;evnt(26070,8039,"ide_methods.bas");}while(r); -S_45101:; -if ((*_SUB_DEBUGMODE_BYTE_PAUSEMODE)||new_error){ -if(qbevent){evnt(26070,8040,"ide_methods.bas");if(r)goto S_45101;} -do{ -SUB_SETSTATUSMESSAGE(&(pass4937= 1 ),qbs_new_txt_len("Paused.",7),&(pass4938= 2 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8041,"ide_methods.bas");}while(r); -do{ -*_SUB_DEBUGMODE_LONG_DUMMY=FUNC_DARKENFGBG(&(pass4939= 0 )); -if(!qbevent)break;evnt(26070,8042,"ide_methods.bas");}while(r); -}else{ -do{ -SUB_SETSTATUSMESSAGE(&(pass4940= 1 ),qbs_new_txt_len("Running...",10),&(pass4941= 10 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8044,"ide_methods.bas");}while(r); -} -sc_ec_304_end:; -goto sc_4893_end; -} -S_45107:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("call stack size",15))))||new_error){ -if(qbevent){evnt(26070,8046,"ide_methods.bas");if(r)goto S_45107;} -do{ -*__LONG_CALLSTACKLENGTH=string2l(_SUB_DEBUGMODE_STRING_VALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8050,"ide_methods.bas");}while(r); -S_45109:; -if ((*__LONG_CALLSTACKLENGTH)||new_error){ -if(qbevent){evnt(26070,8051,"ide_methods.bas");if(r)goto S_45109;} -do{ -*_SUB_DEBUGMODE_SINGLE_START=func_timer(NULL,0); -if(!qbevent)break;evnt(26070,8052,"ide_methods.bas");}while(r); -S_45111:; -do{ -if(qbevent){evnt(26070,8053,"ide_methods.bas");if(r)goto S_45111;} -do{ -return_point[next_return_point++]=140; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_GETCOMMAND; -RETURN_140:; -if(!qbevent)break;evnt(26070,8054,"ide_methods.bas");}while(r); -do{ -sub__limit( 100 ); -if(!qbevent)break;evnt(26070,8055,"ide_methods.bas");}while(r); -S_45114:; -dl_continue_4942:; -}while((!(qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("call stack",10)))|(-((func_timer(NULL,0)-*_SUB_DEBUGMODE_SINGLE_START)>*_SUB_DEBUGMODE_LONG_TIMEOUT)))))&&(!new_error)); -dl_exit_4942:; -if(qbevent){evnt(26070,8056,"ide_methods.bas");if(r)goto S_45114;} -S_45115:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("call stack",10))))||new_error){ -if(qbevent){evnt(26070,8058,"ide_methods.bas");if(r)goto S_45115;} -do{ -qbs_set(__STRING_CALLSTACKLIST,_SUB_DEBUGMODE_STRING_VALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8060,"ide_methods.bas");}while(r); -} -}else{ -do{ -qbs_set(__STRING_CALLSTACKLIST,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8063,"ide_methods.bas");}while(r); -} -sc_ec_305_end:; -goto sc_4893_end; -} -sc_4893_end:; -S_45122:; -if ((func__hasfocus())||new_error){ -if(qbevent){evnt(26070,8067,"ide_methods.bas");if(r)goto S_45122;} -do{ -return_point[next_return_point++]=141; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_UPDATEBUTTONS; -RETURN_141:; -if(!qbevent)break;evnt(26070,8067,"ide_methods.bas");}while(r); -} -do{ -sub__limit( 100 ); -if(!qbevent)break;evnt(26070,8068,"ide_methods.bas");}while(r); -dl_continue_4737:; -}while(1); -dl_exit_4737:; -S_45127:; -while((func__mouseinput(NULL,0))||new_error){ -if(qbevent){evnt(26070,8071,"ide_methods.bas");if(r)goto S_45127;} -ww_continue_4943:; -} -ww_exit_4943:; -do{ -sub__keyclear(NULL,0); -if(!qbevent)break;evnt(26070,8072,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,8073,"ide_methods.bas");}while(r); -LABEL_GETCOMMAND:; -if(qbevent){evnt(26070,8075,"ide_methods.bas");r=0;} -do{ -sub_get2(*__LONG_DEBUGCLIENT,NULL,_SUB_DEBUGMODE_STRING_TEMP,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8076,"ide_methods.bas");}while(r); -S_45132:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3)))&(-(func__connected(*__LONG_DEBUGCLIENT)== 0 ))))||new_error){ -if(qbevent){evnt(26070,8077,"ide_methods.bas");if(r)goto S_45132;} -do{ -SUB_CLEARSTATUSWINDOW(&(pass4944= 0 )); -if(!qbevent)break;evnt(26070,8078,"ide_methods.bas");}while(r); -do{ -SUB_SETSTATUSMESSAGE(&(pass4945= 1 ),qbs_new_txt_len("Debug session aborted.",22),&(pass4946= 7 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8079,"ide_methods.bas");}while(r); -do{ -SUB_SETSTATUSMESSAGE(&(pass4947= 2 ),qbs_new_txt_len("Disconnected.",13),&(pass4948= 2 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8080,"ide_methods.bas");}while(r); -S_45136:; -while((func__mouseinput(NULL,0))||new_error){ -if(qbevent){evnt(26070,8081,"ide_methods.bas");if(r)goto S_45136;} -ww_continue_4949:; -} -ww_exit_4949:; -do{ -sub__keyclear(NULL,0); -if(!qbevent)break;evnt(26070,8082,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,8083,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_SUB_DEBUGMODE_STRING_BUFFER,qbs_add(_SUB_DEBUGMODE_STRING_BUFFER,_SUB_DEBUGMODE_STRING_TEMP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8085,"ide_methods.bas");}while(r); -S_45142:; -if ((qbs_cleanup(qbs_tmp_base,-(_SUB_DEBUGMODE_STRING_BUFFER->len>= 4 )))||new_error){ -if(qbevent){evnt(26070,8087,"ide_methods.bas");if(r)goto S_45142;} -do{ -*_SUB_DEBUGMODE_LONG_CMDSIZE=string2l(qbs_left(_SUB_DEBUGMODE_STRING_BUFFER, 4 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8087,"ide_methods.bas");}while(r); -}else{ -do{ -*_SUB_DEBUGMODE_LONG_CMDSIZE= 0 ; -if(!qbevent)break;evnt(26070,8087,"ide_methods.bas");}while(r); -} -S_45147:; -if ((qbs_cleanup(qbs_tmp_base,(-(*_SUB_DEBUGMODE_LONG_CMDSIZE> 0 ))&(-(_SUB_DEBUGMODE_STRING_BUFFER->len>=*_SUB_DEBUGMODE_LONG_CMDSIZE))))||new_error){ -if(qbevent){evnt(26070,8088,"ide_methods.bas");if(r)goto S_45147;} -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CMD,func_mid(_SUB_DEBUGMODE_STRING_BUFFER, 5 ,*_SUB_DEBUGMODE_LONG_CMDSIZE,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8089,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_BUFFER,func_mid(_SUB_DEBUGMODE_STRING_BUFFER, 5 +*_SUB_DEBUGMODE_LONG_CMDSIZE,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8090,"ide_methods.bas");}while(r); -S_45150:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len(":",1),0)))||new_error){ -if(qbevent){evnt(26070,8092,"ide_methods.bas");if(r)goto S_45150;} -do{ -qbs_set(_SUB_DEBUGMODE_STRING_VALUE,func_mid(_SUB_DEBUGMODE_STRING_CMD,func_instr(NULL,_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len(":",1),0)+ 1 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8093,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_left(_SUB_DEBUGMODE_STRING_CMD,func_instr(NULL,_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len(":",1),0)- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8094,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_SUB_DEBUGMODE_STRING_VALUE,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8096,"ide_methods.bas");}while(r); -} -}else{ -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8099,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_VALUE,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8099,"ide_methods.bas");}while(r); -} -do{ -#include "ret172.txt" -if(!qbevent)break;evnt(26070,8101,"ide_methods.bas");}while(r); -LABEL_SENDCOMMAND:; -if(qbevent){evnt(26070,8103,"ide_methods.bas");r=0;} -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(l2string(_SUB_DEBUGMODE_STRING_CMD->len),_SUB_DEBUGMODE_STRING_CMD)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8104,"ide_methods.bas");}while(r); -do{ -sub_put2(*__LONG_DEBUGCLIENT,NULL,byte_element((uint64)_SUB_DEBUGMODE_STRING_CMD->chr,_SUB_DEBUGMODE_STRING_CMD->len,byte_element_4953),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8105,"ide_methods.bas");}while(r); -S_45163:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3)))&(-(func__connected(*__LONG_DEBUGCLIENT)== 0 ))))||new_error){ -if(qbevent){evnt(26070,8106,"ide_methods.bas");if(r)goto S_45163;} -do{ -SUB_CLEARSTATUSWINDOW(&(pass4954= 0 )); -if(!qbevent)break;evnt(26070,8107,"ide_methods.bas");}while(r); -do{ -SUB_SETSTATUSMESSAGE(&(pass4955= 1 ),qbs_new_txt_len("Debug session aborted.",22),&(pass4956= 7 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8108,"ide_methods.bas");}while(r); -do{ -SUB_SETSTATUSMESSAGE(&(pass4957= 2 ),qbs_new_txt_len("Disconnected.",13),&(pass4958= 2 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8109,"ide_methods.bas");}while(r); -S_45167:; -while((func__mouseinput(NULL,0))||new_error){ -if(qbevent){evnt(26070,8110,"ide_methods.bas");if(r)goto S_45167;} -ww_continue_4959:; -} -ww_exit_4959:; -do{ -sub__keyclear(NULL,0); -if(!qbevent)break;evnt(26070,8111,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,8112,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8114,"ide_methods.bas");}while(r); -do{ -#include "ret172.txt" -if(!qbevent)break;evnt(26070,8115,"ide_methods.bas");}while(r); -LABEL_UPDATEDISPLAY:; -if(qbevent){evnt(26070,8117,"ide_methods.bas");r=0;} -S_45174:; -if ((-(*_SUB_DEBUGMODE_BYTE_PAUSEMODE== 0 ))||new_error){ -if(qbevent){evnt(26070,8118,"ide_methods.bas");if(r)goto S_45174;} -do{ -*__BYTE_IDESHOWTEXTBYPASSCOLORRESTORE= -1 ; -if(!qbevent)break;evnt(26070,8118,"ide_methods.bas");}while(r); -} -do{ -SUB_IDESHOWTEXT(); -if(!qbevent)break;evnt(26070,8119,"ide_methods.bas");}while(r); -do{ -SUB_UPDATETITLEOFMAINWINDOW(); -if(!qbevent)break;evnt(26070,8120,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=142; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_PRINTVERSION; -RETURN_142:; -if(!qbevent)break;evnt(26070,8122,"ide_methods.bas");}while(r); -S_45180:; -if ((qbs_cleanup(qbs_tmp_base,(-(*_SUB_DEBUGMODE_BYTE_PAUSEMODE!= 0 ))&(-(__STRING_VARIABLEWATCHLIST->len> 0 ))))||new_error){ -if(qbevent){evnt(26070,8124,"ide_methods.bas");if(r)goto S_45180;} -S_45181:; -if ((*__BYTE_WATCHLISTTOCONSOLE)||new_error){ -if(qbevent){evnt(26070,8125,"ide_methods.bas");if(r)goto S_45181;} -do{ -sub__console( 1 ); -if(!qbevent)break;evnt(26070,8125,"ide_methods.bas");}while(r); -} -do{ -*_SUB_DEBUGMODE_LONG_TOTALVISIBLEVARIABLES=string2l(func_mid(__STRING_VARIABLEWATCHLIST, 5 , 4 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8126,"ide_methods.bas");}while(r); -S_45185:; -if (((-(*_SUB_DEBUGMODE_LONG_HIDEPANEL== 0 ))&(-(*_SUB_DEBUGMODE_BYTE_PANELACTIVE== -1 )))||new_error){ -if(qbevent){evnt(26070,8127,"ide_methods.bas");if(r)goto S_45185;} -do{ -SUB_SHOWVWATCHPANEL((void*)( ((char*)(_SUB_DEBUGMODE_UDT_VWATCHPANEL)) + (0) ),_SUB_DEBUGMODE_STRING_CURRENTSUB,&(pass4961= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8127,"ide_methods.bas");}while(r); -} -do{ -*_SUB_DEBUGMODE_LONG_HIDEPANEL= 0 ; -if(!qbevent)break;evnt(26070,8128,"ide_methods.bas");}while(r); -} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,8131,"ide_methods.bas");}while(r); -do{ -#include "ret172.txt" -if(!qbevent)break;evnt(26070,8132,"ide_methods.bas");}while(r); -LABEL_UPDATEBUTTONS:; -if(qbevent){evnt(26070,8134,"ide_methods.bas");r=0;} -S_45192:; -fornext_value4963= 1 ; -fornext_finalvalue4963=func_ubound(_SUB_DEBUGMODE_ARRAY_UDT_BUTTON,1,1); -fornext_step4963= 1 ; -if (fornext_step4963<0) fornext_step_negative4963=1; else fornext_step_negative4963=0; -if (new_error) goto fornext_error4963; -goto fornext_entrylabel4963; -while(1){ -fornext_value4963=fornext_step4963+(*_SUB_DEBUGMODE_LONG_I); -fornext_entrylabel4963: -*_SUB_DEBUGMODE_LONG_I=fornext_value4963; -if (fornext_step_negative4963){ -if (fornext_value4963fornext_finalvalue4963) break; -} -fornext_error4963:; -if(qbevent){evnt(26070,8135,"ide_methods.bas");if(r)goto S_45192;} -S_45193:; -if (((-(*__LONG_MY==*(int16*)(((char*)_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[0])+((array_check((*_SUB_DEBUGMODE_LONG_I)-_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[4],_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[5]))*16+2))))&(-(*__LONG_MX>=*(int16*)(((char*)_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[0])+((array_check((*_SUB_DEBUGMODE_LONG_I)-_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[4],_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[5]))*16))))&(-(*__LONG_MX<=(*(int16*)(((char*)_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[0])+((array_check((*_SUB_DEBUGMODE_LONG_I)-_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[4],_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[5]))*16))+*(int16*)(((char*)_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[0])+((array_check((*_SUB_DEBUGMODE_LONG_I)-_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[4],_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[5]))*16+4)))))&(-(*(int8*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(32))== 0 ))&(-(*(int8*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(33))== 0 )))||new_error){ -if(qbevent){evnt(26070,8137,"ide_methods.bas");if(r)goto S_45193;} -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,8138,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_TEMP,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8139,"ide_methods.bas");}while(r); -}else{ -do{ -qbg_sub_color( 13 , 1 ,NULL,3); -if(!qbevent)break;evnt(26070,8141,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_TEMP,qbs_new_txt_len(" ",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8142,"ide_methods.bas");}while(r); -} -do{ -sub__printstring(*(int16*)(((char*)_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[0])+((array_check((*_SUB_DEBUGMODE_LONG_I)-_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[4],_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[5]))*16)),*(int16*)(((char*)_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[0])+((array_check((*_SUB_DEBUGMODE_LONG_I)-_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[4],_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[5]))*16+2)),qbs_add(*((qbs**)((char*)_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[0]+((array_check((*_SUB_DEBUGMODE_LONG_I)-_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[4],_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[5]))*16+8))),_SUB_DEBUGMODE_STRING_TEMP),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8144,"ide_methods.bas");}while(r); -fornext_continue_4962:; -} -fornext_exit_4962:; -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,8146,"ide_methods.bas");}while(r); -do{ -#include "ret172.txt" -if(!qbevent)break;evnt(26070,8147,"ide_methods.bas");}while(r); -LABEL_GETVARSIZE:; -if(qbevent){evnt(26070,8149,"ide_methods.bas");r=0;} -do{ -*_SUB_DEBUGMODE_LONG_VARSIZE= 0 ; -if(!qbevent)break;evnt(26070,8150,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DEBUGMODE_STRING_VARTYPE,*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_SUB_DEBUGMODE_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+48)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8151,"ide_methods.bas");}while(r); -LABEL_CHECKVARTYPE:; -if(qbevent){evnt(26070,8152,"ide_methods.bas");r=0;} -do{ -qbs_set(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,_SUB_DEBUGMODE_STRING_VARTYPE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8153,"ide_methods.bas");}while(r); -S_45207:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("STRING *",8),0)))||new_error){ -if(qbevent){evnt(26070,8154,"ide_methods.bas");if(r)goto S_45207;} -do{ -qbs_set(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("STRING",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8154,"ide_methods.bas");}while(r); -} -S_45210:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("BIT *",5),0)))||new_error){ -if(qbevent){evnt(26070,8155,"ide_methods.bas");if(r)goto S_45210;} -S_45211:; -if ((qbs_cleanup(qbs_tmp_base,-(func_val(func_mid(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,func__instrrev(NULL,_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len(" ",1),0)+ 1 ,NULL,0))> 32 )))||new_error){ -if(qbevent){evnt(26070,8156,"ide_methods.bas");if(r)goto S_45211;} -do{ -qbs_set(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_INTEGER64",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8157,"ide_methods.bas");}while(r); -S_45213:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_DEBUGMODE_STRING_VARTYPE,qbs_new_txt_len("UNSIGNED",8),0)))||new_error){ -if(qbevent){evnt(26070,8158,"ide_methods.bas");if(r)goto S_45213;} -do{ -qbs_set(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_UNSIGNED _INTEGER64",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8158,"ide_methods.bas");}while(r); -} -}else{ -do{ -qbs_set(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("LONG",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8160,"ide_methods.bas");}while(r); -S_45218:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_DEBUGMODE_STRING_VARTYPE,qbs_new_txt_len("UNSIGNED",8),0)))||new_error){ -if(qbevent){evnt(26070,8161,"ide_methods.bas");if(r)goto S_45218;} -do{ -qbs_set(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_UNSIGNED LONG",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8161,"ide_methods.bas");}while(r); -} -} -S_45222:; -}else{ -if (qbs_cleanup(qbs_tmp_base,func_instr(NULL,qbs_new_txt_len("@_BIT@BIT@_UNSIGNED _BIT@UNSIGNED BIT@",38),qbs_add(qbs_add(qbs_new_txt_len("@",1),_SUB_DEBUGMODE_STRING_TEMPVARTYPE),qbs_new_txt_len("@",1)),0))){ -if(qbevent){evnt(26070,8163,"ide_methods.bas");if(r)goto S_45222;} -do{ -qbs_set(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("LONG",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8164,"ide_methods.bas");}while(r); -S_45224:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_DEBUGMODE_STRING_VARTYPE,qbs_new_txt_len("UNSIGNED",8),0)))||new_error){ -if(qbevent){evnt(26070,8165,"ide_methods.bas");if(r)goto S_45224;} -do{ -qbs_set(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_UNSIGNED LONG",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8165,"ide_methods.bas");}while(r); -} -} -} -S_45228:; -if(qbevent){evnt(26070,8167,"ide_methods.bas");if(r)goto S_45228;} -S_45229:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_BYTE",5))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_UNSIGNED _BYTE",15))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("BYTE",4))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("UNSIGNED BYTE",13))))||new_error){ -if(qbevent){evnt(26070,8168,"ide_methods.bas");if(r)goto S_45229;} -do{ -*_SUB_DEBUGMODE_LONG_VARSIZE=1; -if(!qbevent)break;evnt(26070,8168,"ide_methods.bas");}while(r); -sc_ec_306_end:; -goto sc_4964_end; -} -S_45231:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("INTEGER",7))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_UNSIGNED INTEGER",17))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("UNSIGNED INTEGER",16))))||new_error){ -if(qbevent){evnt(26070,8169,"ide_methods.bas");if(r)goto S_45231;} -do{ -*_SUB_DEBUGMODE_LONG_VARSIZE=2; -if(!qbevent)break;evnt(26070,8169,"ide_methods.bas");}while(r); -sc_ec_307_end:; -goto sc_4964_end; -} -S_45233:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("LONG",4))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_UNSIGNED LONG",14))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("UNSIGNED LONG",13))))||new_error){ -if(qbevent){evnt(26070,8170,"ide_methods.bas");if(r)goto S_45233;} -do{ -*_SUB_DEBUGMODE_LONG_VARSIZE=4; -if(!qbevent)break;evnt(26070,8170,"ide_methods.bas");}while(r); -sc_ec_308_end:; -goto sc_4964_end; -} -S_45235:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_INTEGER64",10))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_UNSIGNED _INTEGER64",20))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("INTEGER64",9))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("UNSIGNED INTEGER64",18))))||new_error){ -if(qbevent){evnt(26070,8171,"ide_methods.bas");if(r)goto S_45235;} -do{ -*_SUB_DEBUGMODE_LONG_VARSIZE=8; -if(!qbevent)break;evnt(26070,8171,"ide_methods.bas");}while(r); -sc_ec_309_end:; -goto sc_4964_end; -} -S_45237:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("SINGLE",6))))||new_error){ -if(qbevent){evnt(26070,8172,"ide_methods.bas");if(r)goto S_45237;} -do{ -*_SUB_DEBUGMODE_LONG_VARSIZE=4; -if(!qbevent)break;evnt(26070,8172,"ide_methods.bas");}while(r); -sc_ec_310_end:; -goto sc_4964_end; -} -S_45239:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("DOUBLE",6))))||new_error){ -if(qbevent){evnt(26070,8173,"ide_methods.bas");if(r)goto S_45239;} -do{ -*_SUB_DEBUGMODE_LONG_VARSIZE=8; -if(!qbevent)break;evnt(26070,8173,"ide_methods.bas");}while(r); -sc_ec_311_end:; -goto sc_4964_end; -} -S_45241:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_FLOAT",6))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("FLOAT",5))))||new_error){ -if(qbevent){evnt(26070,8174,"ide_methods.bas");if(r)goto S_45241;} -do{ -*_SUB_DEBUGMODE_LONG_VARSIZE=32; -if(!qbevent)break;evnt(26070,8174,"ide_methods.bas");}while(r); -sc_ec_312_end:; -goto sc_4964_end; -} -S_45243:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_OFFSET",7))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_UNSIGNED _OFFSET",17))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("OFFSET",6))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("UNSIGNED OFFSET",15))))||new_error){ -if(qbevent){evnt(26070,8175,"ide_methods.bas");if(r)goto S_45243;} -do{ -*_SUB_DEBUGMODE_LONG_VARSIZE=8; -if(!qbevent)break;evnt(26070,8175,"ide_methods.bas");}while(r); -sc_ec_313_end:; -goto sc_4964_end; -} -S_45245:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("STRING",6))))||new_error){ -if(qbevent){evnt(26070,8176,"ide_methods.bas");if(r)goto S_45245;} -do{ -*_SUB_DEBUGMODE_LONG_VARSIZE=8+4; -if(!qbevent)break;evnt(26070,8176,"ide_methods.bas");}while(r); -sc_ec_314_end:; -goto sc_4964_end; -} -do{ -qbs_set(_SUB_DEBUGMODE_STRING_VARTYPE,FUNC_GETELEMENT(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_SUB_DEBUGMODE_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),_SUB_DEBUGMODE_LONG_TEMPELEMENT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8178,"ide_methods.bas");}while(r); -S_45249:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_DEBUGMODE_STRING_VARTYPE,qbs_new_txt_len("STRING *",8),0)))||new_error){ -if(qbevent){evnt(26070,8179,"ide_methods.bas");if(r)goto S_45249;} -do{ -*_SUB_DEBUGMODE_LONG_VARSIZE=qbr(func_val(qbs__trim(func_mid(_SUB_DEBUGMODE_STRING_VARTYPE,func_instr(NULL,_SUB_DEBUGMODE_STRING_VARTYPE,qbs_new_txt_len("STRING *",8),0)+ 8 ,NULL,0)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8181,"ide_methods.bas");}while(r); -do{ -#include "ret172.txt" -if(!qbevent)break;evnt(26070,8182,"ide_methods.bas");}while(r); -} -S_45253:; -if ((qbs_cleanup(qbs_tmp_base,_SUB_DEBUGMODE_STRING_VARTYPE->len))||new_error){ -if(qbevent){evnt(26070,8184,"ide_methods.bas");if(r)goto S_45253;} -do{ -goto LABEL_CHECKVARTYPE; -if(!qbevent)break;evnt(26070,8184,"ide_methods.bas");}while(r); -} -sc_4964_end:; -do{ -#include "ret172.txt" -if(!qbevent)break;evnt(26070,8186,"ide_methods.bas");}while(r); -LABEL_PRINTVERSION:; -if(qbevent){evnt(26070,8188,"ide_methods.bas");r=0;} -S_45258:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_VERSIONSTRINGSTATUS->len== 0 )))||new_error){ -if(qbevent){evnt(26070,8190,"ide_methods.bas");if(r)goto S_45258;} -do{ -qbs_set(__STRING_VERSIONSTRINGSTATUS,qbs_add(qbs_new_txt_len(" v",2),__STRING_VERSION)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8191,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_VERSIONSTRINGSTATUS,qbs_add(__STRING_VERSIONSTRINGSTATUS,qbs_new_txt_len(" ",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8192,"ide_methods.bas");}while(r); -} -do{ -qbg_sub_color( 2 , 3 ,NULL,3); -if(!qbevent)break;evnt(26070,8194,"ide_methods.bas");}while(r); -do{ -sub__printstring(*__LONG_IDEWX- 21 -__STRING_VERSIONSTRINGSTATUS->len,*__LONG_IDEWY+*__LONG_IDESUBWINDOW,__STRING_VERSIONSTRINGSTATUS,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8195,"ide_methods.bas");}while(r); -do{ -#include "ret172.txt" -if(!qbevent)break;evnt(26070,8196,"ide_methods.bas");}while(r); -LABEL_CHECKVWATCHPANELSIZE:; -if(qbevent){evnt(26070,8198,"ide_methods.bas");r=0;} -S_45265:; -if ((-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4))< 40 ))||new_error){ -if(qbevent){evnt(26070,8199,"ide_methods.bas");if(r)goto S_45265;} -do{ -*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4))= 40 ; -if(!qbevent)break;evnt(26070,8199,"ide_methods.bas");}while(r); -} -S_45268:; -if ((-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4))>(*__LONG_IDEWX- 12 )))||new_error){ -if(qbevent){evnt(26070,8200,"ide_methods.bas");if(r)goto S_45268;} -do{ -*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4))=*__LONG_IDEWX- 12 ; -if(!qbevent)break;evnt(26070,8200,"ide_methods.bas");}while(r); -} -S_45271:; -if ((-((*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(0))+*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4)))>(*__LONG_IDEWX- 1 )))||new_error){ -if(qbevent){evnt(26070,8201,"ide_methods.bas");if(r)goto S_45271;} -do{ -*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4))=(*__LONG_IDEWX- 1 )-*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(0)); -if(!qbevent)break;evnt(26070,8202,"ide_methods.bas");}while(r); -} -S_45274:; -if ((-((*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(2))+*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6)))>*_SUB_DEBUGMODE_LONG_VWATCHPANELLIMIT))||new_error){ -if(qbevent){evnt(26070,8204,"ide_methods.bas");if(r)goto S_45274;} -do{ -*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6))=*_SUB_DEBUGMODE_LONG_VWATCHPANELLIMIT-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(2))- 1 ); -if(!qbevent)break;evnt(26070,8205,"ide_methods.bas");}while(r); -} -S_45277:; -if ((-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6))< 5 ))||new_error){ -if(qbevent){evnt(26070,8207,"ide_methods.bas");if(r)goto S_45277;} -do{ -*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6))= 5 ; -if(!qbevent)break;evnt(26070,8207,"ide_methods.bas");}while(r); -} -S_45280:; -if ((-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6))>(*__LONG_IDEWY- 10 )))||new_error){ -if(qbevent){evnt(26070,8208,"ide_methods.bas");if(r)goto S_45280;} -do{ -*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6))=*__LONG_IDEWY- 10 ; -if(!qbevent)break;evnt(26070,8208,"ide_methods.bas");}while(r); -} -do{ -#include "ret172.txt" -if(!qbevent)break;evnt(26070,8209,"ide_methods.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free172.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -float FUNC_MAP(float*_FUNC_MAP_SINGLE_VALUE,float*_FUNC_MAP_SINGLE_MINRANGE,float*_FUNC_MAP_SINGLE_MAXRANGE,float*_FUNC_MAP_SINGLE_NEWMINRANGE,float*_FUNC_MAP_SINGLE_NEWMAXRANGE){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data173.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -*_FUNC_MAP_SINGLE_MAP=(((*_FUNC_MAP_SINGLE_VALUE-*_FUNC_MAP_SINGLE_MINRANGE)/ (*_FUNC_MAP_SINGLE_MAXRANGE-*_FUNC_MAP_SINGLE_MINRANGE))*(*_FUNC_MAP_SINGLE_NEWMAXRANGE-*_FUNC_MAP_SINGLE_NEWMINRANGE))+*_FUNC_MAP_SINGLE_NEWMINRANGE; -if(!qbevent)break;evnt(26070,8213,"ide_methods.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free173.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -return *_FUNC_MAP_SINGLE_MAP; -} -void SUB_SHOWVWATCHPANEL(void*_SUB_SHOWVWATCHPANEL_UDT_THIS,qbs*_SUB_SHOWVWATCHPANEL_STRING_CURRENTSCOPE,int8*_SUB_SHOWVWATCHPANEL_BYTE_ACTION){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data174.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -if(!qbevent)break;evnt(26070,8217,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(26070,8218,"ide_methods.bas");}while(r); -S_45287:; -if ((-(*_SUB_SHOWVWATCHPANEL_BYTE_ACTION== 1 ))||new_error){ -if(qbevent){evnt(26070,8220,"ide_methods.bas");if(r)goto S_45287;} -do{ -qbs_set(_SUB_SHOWVWATCHPANEL_STRING_PREVIOUSVARIABLEWATCHLIST,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8220,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,8220,"ide_methods.bas");}while(r); -} -S_45291:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_SHOWVWATCHPANEL_STRING_PREVIOUSVARIABLEWATCHLIST,__STRING_VARIABLEWATCHLIST)))||new_error){ -if(qbevent){evnt(26070,8222,"ide_methods.bas");if(r)goto S_45291;} -do{ -qbs_set(_SUB_SHOWVWATCHPANEL_STRING_PREVIOUSVARIABLEWATCHLIST,__STRING_VARIABLEWATCHLIST); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8224,"ide_methods.bas");}while(r); -do{ -*_SUB_SHOWVWATCHPANEL_LONG_LONGESTVARNAME=string2l(qbs_left(__STRING_VARIABLEWATCHLIST, 4 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8225,"ide_methods.bas");}while(r); -do{ -*_SUB_SHOWVWATCHPANEL_LONG_TOTALVISIBLEVARIABLES=string2l(func_mid(__STRING_VARIABLEWATCHLIST, 5 , 4 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8226,"ide_methods.bas");}while(r); -do{ -*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(6))=*_SUB_SHOWVWATCHPANEL_LONG_TOTALVISIBLEVARIABLES+ 2 ; -if(!qbevent)break;evnt(26070,8227,"ide_methods.bas");}while(r); -S_45296:; -if ((-(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(6))>(*__LONG_IDEWY- 10 )))||new_error){ -if(qbevent){evnt(26070,8228,"ide_methods.bas");if(r)goto S_45296;} -do{ -*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(6))=*__LONG_IDEWY- 10 ; -if(!qbevent)break;evnt(26070,8228,"ide_methods.bas");}while(r); -} -S_45299:; -if ((-(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(6))< 5 ))||new_error){ -if(qbevent){evnt(26070,8229,"ide_methods.bas");if(r)goto S_45299;} -do{ -*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(6))= 5 ; -if(!qbevent)break;evnt(26070,8229,"ide_methods.bas");}while(r); -} -} -do{ -*_SUB_SHOWVWATCHPANEL_LONG_FG= 0 ; -if(!qbevent)break;evnt(26070,8232,"ide_methods.bas");}while(r); -do{ -*_SUB_SHOWVWATCHPANEL_LONG_BG= 7 ; -if(!qbevent)break;evnt(26070,8232,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_SHOWVWATCHPANEL_STRING_TITLE,qbs_new_txt_len("Watch List",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8234,"ide_methods.bas");}while(r); -S_45306:; -if ((qbs_cleanup(qbs_tmp_base,_SUB_SHOWVWATCHPANEL_STRING_CURRENTSCOPE->len))||new_error){ -if(qbevent){evnt(26070,8235,"ide_methods.bas");if(r)goto S_45306;} -do{ -qbs_set(_SUB_SHOWVWATCHPANEL_STRING_TITLE,qbs_add(qbs_add(_SUB_SHOWVWATCHPANEL_STRING_TITLE,qbs_new_txt_len(" - ",3)),_SUB_SHOWVWATCHPANEL_STRING_CURRENTSCOPE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8235,"ide_methods.bas");}while(r); -} -S_45309:; -if ((qbs_cleanup(qbs_tmp_base,-(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(4))<(_SUB_SHOWVWATCHPANEL_STRING_TITLE->len+ 4 ))))||new_error){ -if(qbevent){evnt(26070,8236,"ide_methods.bas");if(r)goto S_45309;} -do{ -*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(4))=_SUB_SHOWVWATCHPANEL_STRING_TITLE->len+ 4 ; -if(!qbevent)break;evnt(26070,8237,"ide_methods.bas");}while(r); -S_45311:; -if ((-((*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(0))+*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(4))+ 2 )>*__LONG_IDEWX))||new_error){ -if(qbevent){evnt(26070,8238,"ide_methods.bas");if(r)goto S_45311;} -do{ -*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(0))=*__LONG_IDEWX-(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(4))+ 2 ); -if(!qbevent)break;evnt(26070,8238,"ide_methods.bas");}while(r); -} -} -S_45315:; -if ((-(*__BYTE_WATCHLISTTOCONSOLE== 0 ))||new_error){ -if(qbevent){evnt(26070,8241,"ide_methods.bas");if(r)goto S_45315;} -do{ -*_SUB_SHOWVWATCHPANEL_LONG_VWATCHPANELLIMIT=*__LONG_IDEWY- 6 ; -if(!qbevent)break;evnt(26070,8242,"ide_methods.bas");}while(r); -S_45317:; -if ((-(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(0))< 2 ))||new_error){ -if(qbevent){evnt(26070,8244,"ide_methods.bas");if(r)goto S_45317;} -do{ -*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(0))= 2 ; -if(!qbevent)break;evnt(26070,8244,"ide_methods.bas");}while(r); -} -S_45320:; -if ((-((*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(0))+*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(4)))>(*__LONG_IDEWX- 1 )))||new_error){ -if(qbevent){evnt(26070,8245,"ide_methods.bas");if(r)goto S_45320;} -do{ -*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(0))=*__LONG_IDEWX-*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(4))- 1 ; -if(!qbevent)break;evnt(26070,8245,"ide_methods.bas");}while(r); -} -S_45323:; -if ((-(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(2))< 3 ))||new_error){ -if(qbevent){evnt(26070,8246,"ide_methods.bas");if(r)goto S_45323;} -do{ -*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(2))= 3 ; -if(!qbevent)break;evnt(26070,8246,"ide_methods.bas");}while(r); -} -S_45326:; -if ((-(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(2))>(*_SUB_SHOWVWATCHPANEL_LONG_VWATCHPANELLIMIT-(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(6))- 1 ))))||new_error){ -if(qbevent){evnt(26070,8247,"ide_methods.bas");if(r)goto S_45326;} -do{ -*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(2))=*_SUB_SHOWVWATCHPANEL_LONG_VWATCHPANELLIMIT-(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(6))- 1 ); -if(!qbevent)break;evnt(26070,8247,"ide_methods.bas");}while(r); -} -S_45329:; -if ((-(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(4))< 40 ))||new_error){ -if(qbevent){evnt(26070,8249,"ide_methods.bas");if(r)goto S_45329;} -do{ -*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(4))= 40 ; -if(!qbevent)break;evnt(26070,8249,"ide_methods.bas");}while(r); -} -S_45332:; -if ((-(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(4))>(*__LONG_IDEWX- 12 )))||new_error){ -if(qbevent){evnt(26070,8250,"ide_methods.bas");if(r)goto S_45332;} -do{ -*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(4))=*__LONG_IDEWX- 12 ; -if(!qbevent)break;evnt(26070,8250,"ide_methods.bas");}while(r); -} -S_45335:; -if ((-((*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(0))+*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(4)))>(*__LONG_IDEWX- 1 )))||new_error){ -if(qbevent){evnt(26070,8251,"ide_methods.bas");if(r)goto S_45335;} -do{ -*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(4))=(*__LONG_IDEWX- 1 )-*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(0)); -if(!qbevent)break;evnt(26070,8252,"ide_methods.bas");}while(r); -} -S_45338:; -if ((-((*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(2))+*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(6)))>*_SUB_SHOWVWATCHPANEL_LONG_VWATCHPANELLIMIT))||new_error){ -if(qbevent){evnt(26070,8254,"ide_methods.bas");if(r)goto S_45338;} -do{ -*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(6))=*_SUB_SHOWVWATCHPANEL_LONG_VWATCHPANELLIMIT-(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(2))- 1 ); -if(!qbevent)break;evnt(26070,8255,"ide_methods.bas");}while(r); -} -S_45341:; -if ((-(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(6))< 5 ))||new_error){ -if(qbevent){evnt(26070,8257,"ide_methods.bas");if(r)goto S_45341;} -do{ -*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(6))= 5 ; -if(!qbevent)break;evnt(26070,8257,"ide_methods.bas");}while(r); -} -S_45344:; -if ((-(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(6))>(*__LONG_IDEWY- 10 )))||new_error){ -if(qbevent){evnt(26070,8258,"ide_methods.bas");if(r)goto S_45344;} -do{ -*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(6))=*__LONG_IDEWY- 10 ; -if(!qbevent)break;evnt(26070,8258,"ide_methods.bas");}while(r); -} -do{ -qbg_sub_color(*_SUB_SHOWVWATCHPANEL_LONG_FG,*_SUB_SHOWVWATCHPANEL_LONG_BG,NULL,3); -if(!qbevent)break;evnt(26070,8260,"ide_methods.bas");}while(r); -do{ -SUB_IDEBOXSHADOW(&(pass4982=*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(0))),&(pass4983=*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(2))),&(pass4984=*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(4))),&(pass4985=*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(6)))); -if(!qbevent)break;evnt(26070,8261,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 15 ,*_SUB_SHOWVWATCHPANEL_LONG_BG,NULL,3); -if(!qbevent)break;evnt(26070,8262,"ide_methods.bas");}while(r); -do{ -sub__printstring(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(0))+*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(4))- 1 ,*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(2))+*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(6))- 1 ,func_chr( 254 ),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8263,"ide_methods.bas");}while(r); -do{ -*_SUB_SHOWVWATCHPANEL_LONG_X=_SUB_SHOWVWATCHPANEL_STRING_TITLE->len+ 2 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8265,"ide_methods.bas");}while(r); -do{ -qbg_sub_color(*_SUB_SHOWVWATCHPANEL_LONG_FG,*_SUB_SHOWVWATCHPANEL_LONG_BG,NULL,3); -if(!qbevent)break;evnt(26070,8266,"ide_methods.bas");}while(r); -do{ -sub__printstring(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(0))+((*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(4))/ 2 ))-((*_SUB_SHOWVWATCHPANEL_LONG_X- 1 )/ 2 ),*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(2)),qbs_add(qbs_add(qbs_new_txt_len(" ",1),_SUB_SHOWVWATCHPANEL_STRING_TITLE),qbs_new_txt_len(" ",1)),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8267,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 15 , 4 ,NULL,3); -if(!qbevent)break;evnt(26070,8268,"ide_methods.bas");}while(r); -do{ -sub__printstring(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(0))+*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(4))- 3 ,*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(2)),qbs_new_txt_len(" x ",3),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8269,"ide_methods.bas");}while(r); -do{ -qbg_sub_color(NULL,*_SUB_SHOWVWATCHPANEL_LONG_BG,NULL,2); -if(!qbevent)break;evnt(26070,8270,"ide_methods.bas");}while(r); -}else{ -do{ -sub__echo(qbs_add(qbs_new_txt_len("-------- ",9),_SUB_SHOWVWATCHPANEL_STRING_TITLE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8272,"ide_methods.bas");}while(r); -} -do{ -*_SUB_SHOWVWATCHPANEL_LONG_Y= 0 ; -if(!qbevent)break;evnt(26070,8275,"ide_methods.bas");}while(r); -do{ -*_SUB_SHOWVWATCHPANEL_LONG_I= 0 ; -if(!qbevent)break;evnt(26070,8276,"ide_methods.bas");}while(r); -do{ -*_SUB_SHOWVWATCHPANEL_LONG_SHADOWX= 0 ; -if(!qbevent)break;evnt(26070,8277,"ide_methods.bas");}while(r); -do{ -*_SUB_SHOWVWATCHPANEL_LONG_SHADOWY= 0 ; -if(!qbevent)break;evnt(26070,8278,"ide_methods.bas");}while(r); -do{ -*_SUB_SHOWVWATCHPANEL_LONG_SHADOWLENGTH= 0 ; -if(!qbevent)break;evnt(26070,8279,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(24))= 0 ; -if(!qbevent)break;evnt(26070,8280,"ide_methods.bas");}while(r); -S_45366:; -if ((-(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(10))== 0 ))||new_error){ -if(qbevent){evnt(26070,8281,"ide_methods.bas");if(r)goto S_45366;} -do{ -*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(10))= 1 ; -if(!qbevent)break;evnt(26070,8281,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_SUB_SHOWVWATCHPANEL_STRING_TEMP,FUNC_GETBYTES(qbs_new_txt_len("",0),&(pass4987= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8282,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_SHOWVWATCHPANEL_STRING_TEMP,func_mid(__STRING_VARIABLEWATCHLIST, 9 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8283,"ide_methods.bas");}while(r); -do{ -*_SUB_SHOWVWATCHPANEL_LONG_ACTUALLONGESTVARNAME= 0 ; -if(!qbevent)break;evnt(26070,8284,"ide_methods.bas");}while(r); -do{ -*_SUB_SHOWVWATCHPANEL_LONG_DISPLAYFORMATBUTTON= 0 ; -if(!qbevent)break;evnt(26070,8285,"ide_methods.bas");}while(r); -S_45373:; -do{ -if(qbevent){evnt(26070,8286,"ide_methods.bas");if(r)goto S_45373;} -do{ -qbs_set(_SUB_SHOWVWATCHPANEL_STRING_TEMP2,FUNC_GETBYTES(_SUB_SHOWVWATCHPANEL_STRING_TEMP,&(pass4989= 4 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8287,"ide_methods.bas");}while(r); -S_45375:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_SHOWVWATCHPANEL_STRING_TEMP2,l2string( -1 ))))||new_error){ -if(qbevent){evnt(26070,8288,"ide_methods.bas");if(r)goto S_45375;} -do{ -goto dl_exit_4988; -if(!qbevent)break;evnt(26070,8288,"ide_methods.bas");}while(r); -} -do{ -*_SUB_SHOWVWATCHPANEL_LONG_TEMPINDEX=string2l(FUNC_GETBYTES(_SUB_SHOWVWATCHPANEL_STRING_TEMP,&(pass4990= 4 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8289,"ide_methods.bas");}while(r); -do{ -*_SUB_SHOWVWATCHPANEL_LONG_TEMPTOTALARRAYINDEXES=string2l(FUNC_GETBYTES(_SUB_SHOWVWATCHPANEL_STRING_TEMP,&(pass4991= 4 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8290,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_SHOWVWATCHPANEL_STRING_TEMPARRAYINDEXES,FUNC_GETBYTES(_SUB_SHOWVWATCHPANEL_STRING_TEMP,_SUB_SHOWVWATCHPANEL_LONG_TEMPTOTALARRAYINDEXES)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8291,"ide_methods.bas");}while(r); -do{ -*_SUB_SHOWVWATCHPANEL_LONG_TEMPELEMENT=string2l(FUNC_GETBYTES(_SUB_SHOWVWATCHPANEL_STRING_TEMP,&(pass4992= 4 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8292,"ide_methods.bas");}while(r); -do{ -*_SUB_SHOWVWATCHPANEL_LONG_TEMPELEMENTOFFSET=string2l(FUNC_GETBYTES(_SUB_SHOWVWATCHPANEL_STRING_TEMP,&(pass4993= 4 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8293,"ide_methods.bas");}while(r); -do{ -*_SUB_SHOWVWATCHPANEL_LONG_TEMPSTORAGE=string2l(FUNC_GETBYTES(_SUB_SHOWVWATCHPANEL_STRING_TEMP,&(pass4994= 4 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8294,"ide_methods.bas");}while(r); -do{ -*_SUB_SHOWVWATCHPANEL_LONG_I=*_SUB_SHOWVWATCHPANEL_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,8296,"ide_methods.bas");}while(r); -S_45385:; -if (((-(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(8))>*_SUB_SHOWVWATCHPANEL_LONG_I))&(-(*__BYTE_WATCHLISTTOCONSOLE== 0 )))||new_error){ -if(qbevent){evnt(26070,8297,"ide_methods.bas");if(r)goto S_45385;} -do{ -goto dl_continue_4988; -if(!qbevent)break;evnt(26070,8297,"ide_methods.bas");}while(r); -} -do{ -*_SUB_SHOWVWATCHPANEL_LONG_Y=*_SUB_SHOWVWATCHPANEL_LONG_Y+ 1 ; -if(!qbevent)break;evnt(26070,8298,"ide_methods.bas");}while(r); -S_45389:; -if (((-(*_SUB_SHOWVWATCHPANEL_LONG_Y>(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(6))- 2 )))&(-(*__BYTE_WATCHLISTTOCONSOLE== 0 )))||new_error){ -if(qbevent){evnt(26070,8299,"ide_methods.bas");if(r)goto S_45389;} -do{ -goto dl_exit_4988; -if(!qbevent)break;evnt(26070,8299,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_SUB_SHOWVWATCHPANEL_STRING_THISNAME,*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_SUB_SHOWVWATCHPANEL_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+32)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8301,"ide_methods.bas");}while(r); -S_45393:; -if ((*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_SHOWVWATCHPANEL_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+30)))||new_error){ -if(qbevent){evnt(26070,8302,"ide_methods.bas");if(r)goto S_45393;} -do{ -qbs_set(_SUB_SHOWVWATCHPANEL_STRING_THISNAME,qbs_left(_SUB_SHOWVWATCHPANEL_STRING_THISNAME,_SUB_SHOWVWATCHPANEL_STRING_THISNAME->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8303,"ide_methods.bas");}while(r); -do{ -*_SUB_SHOWVWATCHPANEL_LONG_TEMPTOTALARRAYINDEXES=*_SUB_SHOWVWATCHPANEL_LONG_TEMPTOTALARRAYINDEXES/ 4 ; -if(!qbevent)break;evnt(26070,8304,"ide_methods.bas");}while(r); -S_45396:; -fornext_value4997= 1 ; -fornext_finalvalue4997=*_SUB_SHOWVWATCHPANEL_LONG_TEMPTOTALARRAYINDEXES; -fornext_step4997= 1 ; -if (fornext_step4997<0) fornext_step_negative4997=1; else fornext_step_negative4997=0; -if (new_error) goto fornext_error4997; -goto fornext_entrylabel4997; -while(1){ -fornext_value4997=fornext_step4997+(*_SUB_SHOWVWATCHPANEL_LONG_J); -fornext_entrylabel4997: -*_SUB_SHOWVWATCHPANEL_LONG_J=fornext_value4997; -if (fornext_step_negative4997){ -if (fornext_value4997fornext_finalvalue4997) break; -} -fornext_error4997:; -if(qbevent){evnt(26070,8305,"ide_methods.bas");if(r)goto S_45396;} -do{ -qbs_set(_SUB_SHOWVWATCHPANEL_STRING_THISNAME,qbs_add(_SUB_SHOWVWATCHPANEL_STRING_THISNAME,qbs_ltrim(qbs_str((int32)(string2l(func_mid(_SUB_SHOWVWATCHPANEL_STRING_TEMPARRAYINDEXES,(*_SUB_SHOWVWATCHPANEL_LONG_J* 4 )-( 3 ), 4 ,0|1))))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8306,"ide_methods.bas");}while(r); -S_45398:; -if ((-(*_SUB_SHOWVWATCHPANEL_LONG_J<*_SUB_SHOWVWATCHPANEL_LONG_TEMPTOTALARRAYINDEXES))||new_error){ -if(qbevent){evnt(26070,8307,"ide_methods.bas");if(r)goto S_45398;} -do{ -qbs_set(_SUB_SHOWVWATCHPANEL_STRING_THISNAME,qbs_add(_SUB_SHOWVWATCHPANEL_STRING_THISNAME,qbs_new_txt_len(", ",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8307,"ide_methods.bas");}while(r); -} -fornext_continue_4996:; -} -fornext_exit_4996:; -do{ -qbs_set(_SUB_SHOWVWATCHPANEL_STRING_THISNAME,qbs_add(_SUB_SHOWVWATCHPANEL_STRING_THISNAME,qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8309,"ide_methods.bas");}while(r); -} -S_45404:; -if ((*_SUB_SHOWVWATCHPANEL_LONG_TEMPELEMENT)||new_error){ -if(qbevent){evnt(26070,8311,"ide_methods.bas");if(r)goto S_45404;} -do{ -qbs_set(_SUB_SHOWVWATCHPANEL_STRING_TEMPELEMENTLIST,func_mid(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_SUB_SHOWVWATCHPANEL_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+88))), 5 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8312,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_SHOWVWATCHPANEL_STRING_THISNAME,qbs_add(_SUB_SHOWVWATCHPANEL_STRING_THISNAME,FUNC_GETELEMENT(_SUB_SHOWVWATCHPANEL_STRING_TEMPELEMENTLIST,_SUB_SHOWVWATCHPANEL_LONG_TEMPELEMENT))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8313,"ide_methods.bas");}while(r); -} -S_45408:; -if ((qbs_cleanup(qbs_tmp_base,-(_SUB_SHOWVWATCHPANEL_STRING_THISNAME->len>*_SUB_SHOWVWATCHPANEL_LONG_ACTUALLONGESTVARNAME)))||new_error){ -if(qbevent){evnt(26070,8315,"ide_methods.bas");if(r)goto S_45408;} -do{ -*_SUB_SHOWVWATCHPANEL_LONG_ACTUALLONGESTVARNAME=_SUB_SHOWVWATCHPANEL_STRING_THISNAME->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8315,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_SUB_SHOWVWATCHPANEL_STRING_ITEM,qbs_add(qbs_add(_SUB_SHOWVWATCHPANEL_STRING_THISNAME,func_space(*_SUB_SHOWVWATCHPANEL_LONG_LONGESTVARNAME-_SUB_SHOWVWATCHPANEL_STRING_THISNAME->len)),qbs_new_txt_len(" = ",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8316,"ide_methods.bas");}while(r); -S_45412:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_SUB_SHOWVWATCHPANEL_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+64))),_SUB_SHOWVWATCHPANEL_STRING_CURRENTSCOPE))|(qbs_equal(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_SUB_SHOWVWATCHPANEL_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+64))),qbs_new_txt_len("",0)))))||new_error){ -if(qbevent){evnt(26070,8317,"ide_methods.bas");if(r)goto S_45412;} -S_45413:; -if ((*_SUB_SHOWVWATCHPANEL_LONG_TEMPELEMENT)||new_error){ -if(qbevent){evnt(26070,8318,"ide_methods.bas");if(r)goto S_45413;} -do{ -qbs_set(_SUB_SHOWVWATCHPANEL_STRING_TEMPVARTYPE,FUNC_GETELEMENT(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_SUB_SHOWVWATCHPANEL_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),_SUB_SHOWVWATCHPANEL_LONG_TEMPELEMENT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8319,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_SUB_SHOWVWATCHPANEL_STRING_TEMPVARTYPE,*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_SUB_SHOWVWATCHPANEL_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+48)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8321,"ide_methods.bas");}while(r); -} -do{ -*_SUB_SHOWVWATCHPANEL_LONG_THISISASTRING=((-(func_instr(NULL,_SUB_SHOWVWATCHPANEL_STRING_TEMPVARTYPE,qbs_new_txt_len("STRING *",8),0)> 0 ))|(qbs_equal(_SUB_SHOWVWATCHPANEL_STRING_TEMPVARTYPE,qbs_new_txt_len("STRING",6)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8323,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_SHOWVWATCHPANEL_STRING_TEMPVALUE,FUNC_STRREPLACE(((qbs*)(((uint64*)(__ARRAY_STRING_VWATCHRECEIVEDDATA[0]))[array_check((*_SUB_SHOWVWATCHPANEL_LONG_TEMPSTORAGE)-__ARRAY_STRING_VWATCHRECEIVEDDATA[4],__ARRAY_STRING_VWATCHRECEIVEDDATA[5])])),func_chr( 0 ),qbs_new_txt_len(" ",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8324,"ide_methods.bas");}while(r); -S_45420:; -if ((*_SUB_SHOWVWATCHPANEL_LONG_THISISASTRING)||new_error){ -if(qbevent){evnt(26070,8325,"ide_methods.bas");if(r)goto S_45420;} -do{ -qbs_set(_SUB_SHOWVWATCHPANEL_STRING_ITEM,qbs_add(qbs_add(qbs_add(_SUB_SHOWVWATCHPANEL_STRING_ITEM,func_chr( 34 )),_SUB_SHOWVWATCHPANEL_STRING_TEMPVALUE),func_chr( 34 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8326,"ide_methods.bas");}while(r); -S_45422:; -if ((-(*_SUB_SHOWVWATCHPANEL_LONG_DISPLAYFORMATBUTTON> 0 ))||new_error){ -if(qbevent){evnt(26070,8327,"ide_methods.bas");if(r)goto S_45422;} -do{ -*_SUB_SHOWVWATCHPANEL_LONG_DISPLAYFORMATBUTTON= 0 ; -if(!qbevent)break;evnt(26070,8327,"ide_methods.bas");}while(r); -} -}else{ -S_45426:; -if (((-(*_SUB_SHOWVWATCHPANEL_LONG_DISPLAYFORMATBUTTON== 0 ))&(-(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(22))==(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(2))+*_SUB_SHOWVWATCHPANEL_LONG_Y))))||new_error){ -if(qbevent){evnt(26070,8329,"ide_methods.bas");if(r)goto S_45426;} -do{ -*_SUB_SHOWVWATCHPANEL_LONG_DISPLAYFORMATBUTTON=_SUB_SHOWVWATCHPANEL_STRING_ITEM->len+ 2 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8329,"ide_methods.bas");}while(r); -} -S_45429:; -if ((*__BYTE_WATCHLISTTOCONSOLE)||new_error){ -if(qbevent){evnt(26070,8330,"ide_methods.bas");if(r)goto S_45429;} -do{ -*_SUB_SHOWVWATCHPANEL_LONG_DISPLAYFORMATBUTTON= 0 ; -if(!qbevent)break;evnt(26070,8330,"ide_methods.bas");}while(r); -} -S_45432:; -sc_5002=*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_SHOWVWATCHPANEL_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+31)); -if(qbevent){evnt(26070,8332,"ide_methods.bas");if(r)goto S_45432;} -S_45433:; -if (((sc_5002==( 1 )))||new_error){ -if(qbevent){evnt(26070,8334,"ide_methods.bas");if(r)goto S_45433;} -do{ -qbs_set(_SUB_SHOWVWATCHPANEL_STRING_TEMPVALUE,qbs_add(qbs_new_txt_len("&H",2),func_hex_float(func_val(_SUB_SHOWVWATCHPANEL_STRING_TEMPVALUE)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8334,"ide_methods.bas");}while(r); -sc_ec_315_end:; -goto sc_5002_end; -} -S_45435:; -if (((sc_5002==( 2 )))||new_error){ -if(qbevent){evnt(26070,8335,"ide_methods.bas");if(r)goto S_45435;} -do{ -qbs_set(_SUB_SHOWVWATCHPANEL_STRING_TEMPVALUE,qbs_add(qbs_new_txt_len("&B",2),func__bin_float(func_val(_SUB_SHOWVWATCHPANEL_STRING_TEMPVALUE)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8335,"ide_methods.bas");}while(r); -sc_ec_316_end:; -goto sc_5002_end; -} -S_45437:; -if (((sc_5002==( 3 )))||new_error){ -if(qbevent){evnt(26070,8336,"ide_methods.bas");if(r)goto S_45437;} -do{ -qbs_set(_SUB_SHOWVWATCHPANEL_STRING_TEMPVALUE,qbs_add(qbs_new_txt_len("&O",2),func_oct_float(func_val(_SUB_SHOWVWATCHPANEL_STRING_TEMPVALUE)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8336,"ide_methods.bas");}while(r); -sc_ec_317_end:; -goto sc_5002_end; -} -sc_5002_end:; -do{ -qbs_set(_SUB_SHOWVWATCHPANEL_STRING_ITEM,qbs_add(_SUB_SHOWVWATCHPANEL_STRING_ITEM,_SUB_SHOWVWATCHPANEL_STRING_TEMPVALUE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8338,"ide_methods.bas");}while(r); -} -do{ -qbg_sub_color(*_SUB_SHOWVWATCHPANEL_LONG_FG,NULL,NULL,1); -if(!qbevent)break;evnt(26070,8340,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_SUB_SHOWVWATCHPANEL_STRING_ITEM,qbs_add(_SUB_SHOWVWATCHPANEL_STRING_ITEM,qbs_new_txt_len("",14))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8342,"ide_methods.bas");}while(r); -S_45445:; -if ((-(*__BYTE_WATCHLISTTOCONSOLE== 0 ))||new_error){ -if(qbevent){evnt(26070,8343,"ide_methods.bas");if(r)goto S_45445;} -do{ -qbg_sub_color( 2 ,NULL,NULL,1); -if(!qbevent)break;evnt(26070,8343,"ide_methods.bas");}while(r); -} -} -S_45449:; -if ((qbs_cleanup(qbs_tmp_base,-(_SUB_SHOWVWATCHPANEL_STRING_ITEM->len>*(int32*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(24)))))||new_error){ -if(qbevent){evnt(26070,8345,"ide_methods.bas");if(r)goto S_45449;} -do{ -*(int32*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(24))=_SUB_SHOWVWATCHPANEL_STRING_ITEM->len; -if(!qbevent)break;evnt(26070,8345,"ide_methods.bas");}while(r); -} -S_45452:; -if ((-(*__BYTE_WATCHLISTTOCONSOLE== 0 ))||new_error){ -if(qbevent){evnt(26070,8346,"ide_methods.bas");if(r)goto S_45452;} -do{ -qbs_set(_SUB_SHOWVWATCHPANEL_STRING_TEMP2,func_mid(_SUB_SHOWVWATCHPANEL_STRING_ITEM,*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(10)),NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8347,"ide_methods.bas");}while(r); -do{ -sub__printstring(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(0))+ 2 ,*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(2))+*_SUB_SHOWVWATCHPANEL_LONG_Y,qbs_left(_SUB_SHOWVWATCHPANEL_STRING_TEMP2,*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(4))- 4 ),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8348,"ide_methods.bas");}while(r); -S_45455:; -if ((qbs_cleanup(qbs_tmp_base,-((*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(0))+ 2 +_SUB_SHOWVWATCHPANEL_STRING_TEMP2->len)>(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(0))+*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(4))- 2 ))))||new_error){ -if(qbevent){evnt(26070,8349,"ide_methods.bas");if(r)goto S_45455;} -do{ -sub__printstring(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(0))+*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(4))- 2 ,*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(2))+*_SUB_SHOWVWATCHPANEL_LONG_Y,func_chr( 26 ),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8350,"ide_methods.bas");}while(r); -} -S_45458:; -if (((-(*_SUB_SHOWVWATCHPANEL_LONG_DISPLAYFORMATBUTTON> 0 ))&(-(*_SUB_SHOWVWATCHPANEL_LONG_DISPLAYFORMATBUTTON>=*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(10))))&(-((*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(0))+*_SUB_SHOWVWATCHPANEL_LONG_DISPLAYFORMATBUTTON-*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(10)))<(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(0))+*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(4))- 4 )))&(-((*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(0))+*_SUB_SHOWVWATCHPANEL_LONG_DISPLAYFORMATBUTTON-*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(10)))>(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(0))+ 1 ))))||new_error){ -if(qbevent){evnt(26070,8356,"ide_methods.bas");if(r)goto S_45458;} -do{ -qbg_sub_color( 15 ,NULL,NULL,1); -if(!qbevent)break;evnt(26070,8357,"ide_methods.bas");}while(r); -S_45460:; -if (((-(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(22))==(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(2))+*_SUB_SHOWVWATCHPANEL_LONG_Y)))&(-(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(20))==(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(0))+*_SUB_SHOWVWATCHPANEL_LONG_DISPLAYFORMATBUTTON-*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(10))))))||new_error){ -if(qbevent){evnt(26070,8358,"ide_methods.bas");if(r)goto S_45460;} -do{ -qbg_sub_color(NULL, 3 ,NULL,2); -if(!qbevent)break;evnt(26070,8359,"ide_methods.bas");}while(r); -S_45462:; -if ((-(*(int8*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(35))== 2 ))||new_error){ -if(qbevent){evnt(26070,8361,"ide_methods.bas");if(r)goto S_45462;} -do{ -*(int8*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(35))= 0 ; -if(!qbevent)break;evnt(26070,8362,"ide_methods.bas");}while(r); -do{ -*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_SHOWVWATCHPANEL_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+31))=*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_SHOWVWATCHPANEL_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+31))+ 1 ; -if(!qbevent)break;evnt(26070,8363,"ide_methods.bas");}while(r); -S_45465:; -if ((-(*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_SHOWVWATCHPANEL_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+31))> 3 ))||new_error){ -if(qbevent){evnt(26070,8364,"ide_methods.bas");if(r)goto S_45465;} -do{ -*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_SHOWVWATCHPANEL_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+31))= 0 ; -if(!qbevent)break;evnt(26070,8364,"ide_methods.bas");}while(r); -} -} -} -do{ -sub__printstring(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(0))+*_SUB_SHOWVWATCHPANEL_LONG_DISPLAYFORMATBUTTON-*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(10)),*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(22)),func_chr( 29 ),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8367,"ide_methods.bas");}while(r); -do{ -qbg_sub_color(*_SUB_SHOWVWATCHPANEL_LONG_FG,*_SUB_SHOWVWATCHPANEL_LONG_BG,NULL,3); -if(!qbevent)break;evnt(26070,8368,"ide_methods.bas");}while(r); -do{ -*_SUB_SHOWVWATCHPANEL_LONG_DISPLAYFORMATBUTTON= -1 ; -if(!qbevent)break;evnt(26070,8369,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_SUB_SHOWVWATCHPANEL_STRING_TEMP2,qbs_add(qbs_add(qbs_add(l2string(*_SUB_SHOWVWATCHPANEL_LONG_TEMPINDEX),l2string(*_SUB_SHOWVWATCHPANEL_LONG_TEMPTOTALARRAYINDEXES* 4 )),_SUB_SHOWVWATCHPANEL_STRING_TEMPARRAYINDEXES),l2string(*_SUB_SHOWVWATCHPANEL_LONG_TEMPELEMENTOFFSET))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8373,"ide_methods.bas");}while(r); -do{ -*_SUB_SHOWVWATCHPANEL_LONG_J= 0 ; -if(!qbevent)break;evnt(26070,8374,"ide_methods.bas");}while(r); -do{ -*_SUB_SHOWVWATCHPANEL_LONG_J=func_instr(*_SUB_SHOWVWATCHPANEL_LONG_J+ 1 ,__STRING_WATCHPOINTLIST,l2string( -1 ),0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8375,"ide_methods.bas");}while(r); -S_45477:; -while((*_SUB_SHOWVWATCHPANEL_LONG_J)||new_error){ -if(qbevent){evnt(26070,8376,"ide_methods.bas");if(r)goto S_45477;} -S_45478:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(__STRING_WATCHPOINTLIST,*_SUB_SHOWVWATCHPANEL_LONG_J+ 8 ,_SUB_SHOWVWATCHPANEL_STRING_TEMP2->len,0|1),_SUB_SHOWVWATCHPANEL_STRING_TEMP2)))||new_error){ -if(qbevent){evnt(26070,8377,"ide_methods.bas");if(r)goto S_45478;} -do{ -goto dl_exit_5006; -if(!qbevent)break;evnt(26070,8377,"ide_methods.bas");}while(r); -} -do{ -*_SUB_SHOWVWATCHPANEL_LONG_J=func_instr(*_SUB_SHOWVWATCHPANEL_LONG_J+ 1 ,__STRING_WATCHPOINTLIST,l2string( -1 ),0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8378,"ide_methods.bas");}while(r); -dl_continue_5006:; -} -dl_exit_5006:; -S_45483:; -if ((-(*_SUB_SHOWVWATCHPANEL_LONG_J> 0 ))||new_error){ -if(qbevent){evnt(26070,8381,"ide_methods.bas");if(r)goto S_45483;} -S_45484:; -if ((-(*__LONG_LATESTWATCHPOINTMET==*_SUB_SHOWVWATCHPANEL_LONG_TEMPINDEX))||new_error){ -if(qbevent){evnt(26070,8382,"ide_methods.bas");if(r)goto S_45484;} -do{ -qbg_sub_color( 15 ,NULL,NULL,1); -if(!qbevent)break;evnt(26070,8382,"ide_methods.bas");}while(r); -}else{ -do{ -qbg_sub_color( 4 ,NULL,NULL,1); -if(!qbevent)break;evnt(26070,8382,"ide_methods.bas");}while(r); -} -do{ -sub__printstring(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(0))+ 1 ,*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(2))+*_SUB_SHOWVWATCHPANEL_LONG_Y,func_chr( 7 ),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8383,"ide_methods.bas");}while(r); -S_45490:; -if (((-(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(20))==(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(0))+ 1 )))&(-(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(22))==(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(2))+*_SUB_SHOWVWATCHPANEL_LONG_Y))))||new_error){ -if(qbevent){evnt(26070,8384,"ide_methods.bas");if(r)goto S_45490;} -do{ -qbg_sub_color( 15 , 3 ,NULL,3); -if(!qbevent)break;evnt(26070,8385,"ide_methods.bas");}while(r); -do{ -*_SUB_SHOWVWATCHPANEL_LONG_K=string2l(func_mid(__STRING_WATCHPOINTLIST,*_SUB_SHOWVWATCHPANEL_LONG_J+ 4 , 4 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8387,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_SHOWVWATCHPANEL_STRING_TEMP3,func_mid(__STRING_WATCHPOINTLIST,*_SUB_SHOWVWATCHPANEL_LONG_J+ 8 ,*_SUB_SHOWVWATCHPANEL_LONG_K,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8388,"ide_methods.bas");}while(r); -do{ -*_SUB_SHOWVWATCHPANEL_LONG_K=string2i(qbs_right(_SUB_SHOWVWATCHPANEL_STRING_TEMP3, 2 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8389,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_SHOWVWATCHPANEL_STRING_CONDITION,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len(" Watchpoint: ",13),_SUB_SHOWVWATCHPANEL_STRING_THISNAME),qbs_new_txt_len(" ",1)),func_mid(_SUB_SHOWVWATCHPANEL_STRING_TEMP3,_SUB_SHOWVWATCHPANEL_STRING_TEMP3->len-( 2 +*_SUB_SHOWVWATCHPANEL_LONG_K)+ 1 ,*_SUB_SHOWVWATCHPANEL_LONG_K,0|1)),qbs_new_txt_len(" ",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8390,"ide_methods.bas");}while(r); -S_45496:; -if ((qbs_cleanup(qbs_tmp_base,-((_SUB_SHOWVWATCHPANEL_STRING_CONDITION->len)>(*__LONG_IDEWX- 8 ))))||new_error){ -if(qbevent){evnt(26070,8392,"ide_methods.bas");if(r)goto S_45496;} -do{ -qbs_set(_SUB_SHOWVWATCHPANEL_STRING_CONDITION,qbs_add(qbs_add(qbs_left(_SUB_SHOWVWATCHPANEL_STRING_CONDITION,*__LONG_IDEWX- 13 ),func_string( 3 , 250 )),qbs_new_txt_len(" ",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8393,"ide_methods.bas");}while(r); -} -do{ -*_SUB_SHOWVWATCHPANEL_LONG_K=*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(0))+ 2 ; -if(!qbevent)break;evnt(26070,8395,"ide_methods.bas");}while(r); -S_45500:; -if ((qbs_cleanup(qbs_tmp_base,-((*_SUB_SHOWVWATCHPANEL_LONG_K+_SUB_SHOWVWATCHPANEL_STRING_CONDITION->len)>*__LONG_IDEWX)))||new_error){ -if(qbevent){evnt(26070,8396,"ide_methods.bas");if(r)goto S_45500;} -do{ -*_SUB_SHOWVWATCHPANEL_LONG_K=*__LONG_IDEWX-(_SUB_SHOWVWATCHPANEL_STRING_CONDITION->len+ 2 ); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8396,"ide_methods.bas");}while(r); -} -do{ -sub__printstring(*_SUB_SHOWVWATCHPANEL_LONG_K,*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(2))+*_SUB_SHOWVWATCHPANEL_LONG_Y,_SUB_SHOWVWATCHPANEL_STRING_CONDITION,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8398,"ide_methods.bas");}while(r); -do{ -*_SUB_SHOWVWATCHPANEL_LONG_SHADOWX=*_SUB_SHOWVWATCHPANEL_LONG_K; -if(!qbevent)break;evnt(26070,8400,"ide_methods.bas");}while(r); -do{ -*_SUB_SHOWVWATCHPANEL_LONG_SHADOWY=*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(2))+*_SUB_SHOWVWATCHPANEL_LONG_Y+ 1 ; -if(!qbevent)break;evnt(26070,8401,"ide_methods.bas");}while(r); -do{ -*_SUB_SHOWVWATCHPANEL_LONG_SHADOWLENGTH=_SUB_SHOWVWATCHPANEL_STRING_CONDITION->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8402,"ide_methods.bas");}while(r); -} -do{ -qbg_sub_color(*_SUB_SHOWVWATCHPANEL_LONG_FG,*_SUB_SHOWVWATCHPANEL_LONG_BG,NULL,3); -if(!qbevent)break;evnt(26070,8404,"ide_methods.bas");}while(r); -} -}else{ -do{ -sub__echo(_SUB_SHOWVWATCHPANEL_STRING_ITEM); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8407,"ide_methods.bas");}while(r); -} -dl_continue_4988:; -}while(1); -dl_exit_4988:; -do{ -*_SUB_SHOWVWATCHPANEL_LONG_LONGESTVARNAME=*_SUB_SHOWVWATCHPANEL_LONG_ACTUALLONGESTVARNAME; -if(!qbevent)break;evnt(26070,8410,"ide_methods.bas");}while(r); -S_45515:; -if ((-(*__BYTE_WATCHLISTTOCONSOLE== 0 ))||new_error){ -if(qbevent){evnt(26070,8412,"ide_methods.bas");if(r)goto S_45515;} -S_45516:; -if ((*_SUB_SHOWVWATCHPANEL_LONG_SHADOWLENGTH)||new_error){ -if(qbevent){evnt(26070,8413,"ide_methods.bas");if(r)goto S_45516;} -do{ -qbg_sub_color( 2 , 0 ,NULL,3); -if(!qbevent)break;evnt(26070,8415,"ide_methods.bas");}while(r); -S_45518:; -fornext_value5014=*_SUB_SHOWVWATCHPANEL_LONG_SHADOWX+ 2 ; -fornext_finalvalue5014=*_SUB_SHOWVWATCHPANEL_LONG_SHADOWX+*_SUB_SHOWVWATCHPANEL_LONG_SHADOWLENGTH; -fornext_step5014= 1 ; -if (fornext_step5014<0) fornext_step_negative5014=1; else fornext_step_negative5014=0; -if (new_error) goto fornext_error5014; -goto fornext_entrylabel5014; -while(1){ -fornext_value5014=fornext_step5014+(*_SUB_SHOWVWATCHPANEL_LONG_X2); -fornext_entrylabel5014: -*_SUB_SHOWVWATCHPANEL_LONG_X2=fornext_value5014; -if (fornext_step_negative5014){ -if (fornext_value5014fornext_finalvalue5014) break; -} -fornext_error5014:; -if(qbevent){evnt(26070,8416,"ide_methods.bas");if(r)goto S_45518;} -do{ -sub__printstring(*_SUB_SHOWVWATCHPANEL_LONG_X2,*_SUB_SHOWVWATCHPANEL_LONG_SHADOWY,func_chr(func_screen(*_SUB_SHOWVWATCHPANEL_LONG_SHADOWY,*_SUB_SHOWVWATCHPANEL_LONG_X2,NULL,0)),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8417,"ide_methods.bas");}while(r); -fornext_continue_5013:; -} -fornext_exit_5013:; -} -S_45522:; -if ((-(*_SUB_SHOWVWATCHPANEL_LONG_TOTALVISIBLEVARIABLES>(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(6))- 2 )))||new_error){ -if(qbevent){evnt(26070,8421,"ide_methods.bas");if(r)goto S_45522;} -do{ -*_SUB_SHOWVWATCHPANEL_LONG_Y=FUNC_IDEVBAR(&(pass5015=*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(0))+*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(4))- 1 ),&(pass5016=*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(2))+ 1 ),&(pass5017=*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(6))- 2 ),&(pass5018=*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(8))),&(pass5019=*_SUB_SHOWVWATCHPANEL_LONG_TOTALVISIBLEVARIABLES-(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(6))- 2 )+ 1 )); -if(!qbevent)break;evnt(26070,8422,"ide_methods.bas");}while(r); -S_45524:; -if ((-(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(16))== 0 ))||new_error){ -if(qbevent){evnt(26070,8423,"ide_methods.bas");if(r)goto S_45524;} -do{ -*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(12))=*_SUB_SHOWVWATCHPANEL_LONG_Y; -if(!qbevent)break;evnt(26070,8424,"ide_methods.bas");}while(r); -} -}else{ -do{ -*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(12))= 0 ; -if(!qbevent)break;evnt(26070,8427,"ide_methods.bas");}while(r); -do{ -*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(8))= 1 ; -if(!qbevent)break;evnt(26070,8428,"ide_methods.bas");}while(r); -} -S_45531:; -if ((-(*(int32*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(24))>(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(4))- 4 )))||new_error){ -if(qbevent){evnt(26070,8431,"ide_methods.bas");if(r)goto S_45531;} -do{ -*_SUB_SHOWVWATCHPANEL_LONG_X=FUNC_IDEHBAR(&(pass5020=*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(0))),&(pass5021=*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(2))+*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(6))- 1 ),&(pass5022=*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(4))- 1 ),&(pass5023=*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(10))),&(pass5024=*(int32*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(24))-(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(4))- 4 )+ 1 )); -if(!qbevent)break;evnt(26070,8432,"ide_methods.bas");}while(r); -S_45533:; -if ((-(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(18))== 0 ))||new_error){ -if(qbevent){evnt(26070,8433,"ide_methods.bas");if(r)goto S_45533;} -do{ -*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(14))=*_SUB_SHOWVWATCHPANEL_LONG_X; -if(!qbevent)break;evnt(26070,8434,"ide_methods.bas");}while(r); -} -}else{ -do{ -*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(14))= 0 ; -if(!qbevent)break;evnt(26070,8437,"ide_methods.bas");}while(r); -do{ -*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(10))= 1 ; -if(!qbevent)break;evnt(26070,8438,"ide_methods.bas");}while(r); -} -} -S_45541:; -if ((-(*(int8*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(35))== 2 ))||new_error){ -if(qbevent){evnt(26070,8441,"ide_methods.bas");if(r)goto S_45541;} -do{ -*(int8*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(35))= 0 ; -if(!qbevent)break;evnt(26070,8441,"ide_methods.bas");}while(r); -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free174.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -int32 FUNC_MULTISEARCH(qbs*_FUNC_MULTISEARCH_STRING___FULLTEXT,qbs*_FUNC_MULTISEARCH_STRING___SEARCHSTRING){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data175.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -qbs_set(_FUNC_MULTISEARCH_STRING_FULLTEXT,qbs__trim(qbs_ucase(_FUNC_MULTISEARCH_STRING___FULLTEXT))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8450,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_MULTISEARCH_STRING_SEARCHSTRING,qbs__trim(qbs_ucase(_FUNC_MULTISEARCH_STRING___SEARCHSTRING))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8451,"ide_methods.bas");}while(r); -S_45546:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_MULTISEARCH_STRING_FULLTEXT->len== 0 )))||new_error){ -if(qbevent){evnt(26070,8452,"ide_methods.bas");if(r)goto S_45546;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,8452,"ide_methods.bas");}while(r); -} -S_45549:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_MULTISEARCH_STRING_SEARCHSTRING->len== 0 )))||new_error){ -if(qbevent){evnt(26070,8453,"ide_methods.bas");if(r)goto S_45549;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,8453,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_MULTISEARCH_LONG_MULTISEARCH= -1 ; -if(!qbevent)break;evnt(26070,8455,"ide_methods.bas");}while(r); -do{ -*_FUNC_MULTISEARCH_LONG_FINDPLUS=func_instr(NULL,_FUNC_MULTISEARCH_STRING_SEARCHSTRING,qbs_new_txt_len("+",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8456,"ide_methods.bas");}while(r); -S_45554:; -while((*_FUNC_MULTISEARCH_LONG_FINDPLUS)||new_error){ -if(qbevent){evnt(26070,8457,"ide_methods.bas");if(r)goto S_45554;} -do{ -qbs_set(_FUNC_MULTISEARCH_STRING_THISTERM,qbs_left(_FUNC_MULTISEARCH_STRING_SEARCHSTRING,*_FUNC_MULTISEARCH_LONG_FINDPLUS- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8458,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_MULTISEARCH_STRING_SEARCHSTRING,func_mid(_FUNC_MULTISEARCH_STRING_SEARCHSTRING,*_FUNC_MULTISEARCH_LONG_FINDPLUS+ 1 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8459,"ide_methods.bas");}while(r); -S_45557:; -if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_FUNC_MULTISEARCH_STRING_FULLTEXT,_FUNC_MULTISEARCH_STRING_THISTERM,0)== 0 )))||new_error){ -if(qbevent){evnt(26070,8460,"ide_methods.bas");if(r)goto S_45557;} -do{ -*_FUNC_MULTISEARCH_LONG_MULTISEARCH= 0 ; -if(!qbevent)break;evnt(26070,8460,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,8460,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_MULTISEARCH_LONG_FINDPLUS=func_instr(NULL,_FUNC_MULTISEARCH_STRING_SEARCHSTRING,qbs_new_txt_len("+",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8461,"ide_methods.bas");}while(r); -ww_continue_5029:; -} -ww_exit_5029:; -S_45563:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_MULTISEARCH_STRING_SEARCHSTRING->len))||new_error){ -if(qbevent){evnt(26070,8464,"ide_methods.bas");if(r)goto S_45563;} -S_45564:; -if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_FUNC_MULTISEARCH_STRING_FULLTEXT,_FUNC_MULTISEARCH_STRING_SEARCHSTRING,0)== 0 )))||new_error){ -if(qbevent){evnt(26070,8465,"ide_methods.bas");if(r)goto S_45564;} -do{ -*_FUNC_MULTISEARCH_LONG_MULTISEARCH= 0 ; -if(!qbevent)break;evnt(26070,8465,"ide_methods.bas");}while(r); -} -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free175.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -return *_FUNC_MULTISEARCH_LONG_MULTISEARCH; -} -qbs* FUNC_IDEVARIABLEWATCHBOX(qbs*_FUNC_IDEVARIABLEWATCHBOX_STRING_CURRENTSCOPE,qbs*_FUNC_IDEVARIABLEWATCHBOX_STRING_FILTER,int32*_FUNC_IDEVARIABLEWATCHBOX_LONG_SELECTVAR,int32*_FUNC_IDEVARIABLEWATCHBOX_LONG_RETURNACTION){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data176.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -sub_pcopy( 0 , 2 ); -if(!qbevent)break;evnt(26070,8472,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 0 , 1 ); -if(!qbevent)break;evnt(26070,8473,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,8474,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(26070,8475,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(26070,8476,"ide_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26070,7770,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("clear all breakpoints",21)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7771,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=120; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SENDCOMMAND; +RETURN_120:; +if(!qbevent)break;evnt(26070,7772,"ide_methods.bas");}while(r); +} +do{ +return_point[next_return_point++]=121; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEDISPLAY; +RETURN_121:; +if(!qbevent)break;evnt(26070,7774,"ide_methods.bas");}while(r); +sc_ec_280_end:; +goto sc_4784_end; +} +S_44821:; +if (((*_SUB_DEBUGMODE_LONG_K==( 34304 )))||new_error){ +if(qbevent){evnt(26070,7775,"ide_methods.bas");if(r)goto S_44821;} +LABEL_F12:; +if(qbevent){evnt(26070,7776,"ide_methods.bas");r=0;} +S_44822:; +if ((*_SUB_DEBUGMODE_BYTE_PAUSEMODE)||new_error){ +if(qbevent){evnt(26070,7777,"ide_methods.bas");if(r)goto S_44822;} +LABEL_REQUESTCALLSTACK:; +if(qbevent){evnt(26070,7778,"ide_methods.bas");r=0;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("call stack",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7779,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=122; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SENDCOMMAND; +RETURN_122:; +if(!qbevent)break;evnt(26070,7780,"ide_methods.bas");}while(r); +S_44825:; +if ((*_SUB_DEBUGMODE_LONG_BYPASSREQUESTCALLSTACK)||new_error){ +if(qbevent){evnt(26070,7782,"ide_methods.bas");if(r)goto S_44825;} +do{ +goto LABEL_SHOWCALLSTACK; +if(!qbevent)break;evnt(26070,7782,"ide_methods.bas");}while(r); +} +do{ +*_SUB_DEBUGMODE_LONG_DUMMY=FUNC_DARKENFGBG(&(pass4871= 0 )); +if(!qbevent)break;evnt(26070,7783,"ide_methods.bas");}while(r); +do{ +SUB_CLEARSTATUSWINDOW(&(pass4872= 0 )); +if(!qbevent)break;evnt(26070,7784,"ide_methods.bas");}while(r); +do{ +SUB_SETSTATUSMESSAGE(&(pass4873= 1 ),qbs_new_txt_len("Requesting call stack...",24),&(pass4874= 7 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7785,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_SINGLE_START=func_timer(NULL,0); +if(!qbevent)break;evnt(26070,7787,"ide_methods.bas");}while(r); +do{ +*__LONG_CALLSTACKLENGTH= -1 ; +if(!qbevent)break;evnt(26070,7788,"ide_methods.bas");}while(r); +S_44833:; +do{ +if(qbevent){evnt(26070,7789,"ide_methods.bas");if(r)goto S_44833;} +do{ +return_point[next_return_point++]=123; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_GETCOMMAND; +RETURN_123:; +if(!qbevent)break;evnt(26070,7790,"ide_methods.bas");}while(r); +S_44835:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("call stack size",15))))||new_error){ +if(qbevent){evnt(26070,7791,"ide_methods.bas");if(r)goto S_44835;} +do{ +*__LONG_CALLSTACKLENGTH=string2l(_SUB_DEBUGMODE_STRING_VALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7792,"ide_methods.bas");}while(r); +S_44837:; +if ((-(*__LONG_CALLSTACKLENGTH== 0 ))||new_error){ +if(qbevent){evnt(26070,7793,"ide_methods.bas");if(r)goto S_44837;} +do{ +goto dl_exit_4875; +if(!qbevent)break;evnt(26070,7793,"ide_methods.bas");}while(r); +} +} +do{ +sub__limit( 100 ); +if(!qbevent)break;evnt(26070,7795,"ide_methods.bas");}while(r); +S_44842:; +dl_continue_4875:; +}while((!(qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("call stack",10)))|(-((func_timer(NULL,0)-*_SUB_DEBUGMODE_SINGLE_START)>*_SUB_DEBUGMODE_LONG_TIMEOUT)))))&&(!new_error)); +dl_exit_4875:; +if(qbevent){evnt(26070,7796,"ide_methods.bas");if(r)goto S_44842;} +S_44843:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("call stack",10))))||new_error){ +if(qbevent){evnt(26070,7798,"ide_methods.bas");if(r)goto S_44843;} +do{ +qbs_set(__STRING_CALLSTACKLIST,_SUB_DEBUGMODE_STRING_VALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7800,"ide_methods.bas");}while(r); +LABEL_SHOWCALLSTACK:; +if(qbevent){evnt(26070,7801,"ide_methods.bas");r=0;} +do{ +SUB_CLEARSTATUSWINDOW(&(pass4876= 0 )); +if(!qbevent)break;evnt(26070,7802,"ide_methods.bas");}while(r); +do{ +SUB_SETSTATUSMESSAGE(&(pass4877= 1 ),qbs_new_txt_len("Paused.",7),&(pass4878= 2 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7803,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_RETVAL=FUNC_IDECALLSTACKBOX(); +if(!qbevent)break;evnt(26070,7804,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,7805,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=124; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEDISPLAY; +RETURN_124:; +if(!qbevent)break;evnt(26070,7806,"ide_methods.bas");}while(r); +S_44850:; +while((func__mouseinput(NULL,0))||new_error){ +if(qbevent){evnt(26070,7807,"ide_methods.bas");if(r)goto S_44850;} +ww_continue_4879:; +} +ww_exit_4879:; +}else{ +S_44853:; +if ((-(*__LONG_CALLSTACKLENGTH== -1 ))||new_error){ +if(qbevent){evnt(26070,7809,"ide_methods.bas");if(r)goto S_44853;} +do{ +*__LONG_CALLSTACKLENGTH= 0 ; +if(!qbevent)break;evnt(26070,7810,"ide_methods.bas");}while(r); +do{ +SUB_CLEARSTATUSWINDOW(&(pass4880= 0 )); +if(!qbevent)break;evnt(26070,7811,"ide_methods.bas");}while(r); +do{ +SUB_SETSTATUSMESSAGE(&(pass4881= 1 ),qbs_new_txt_len("Error retrieving call stack.",28),&(pass4882= 4 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7812,"ide_methods.bas");}while(r); +S_44857:; +}else{ +if (-(*__LONG_CALLSTACKLENGTH== 0 )){ +if(qbevent){evnt(26070,7813,"ide_methods.bas");if(r)goto S_44857;} +do{ +SUB_CLEARSTATUSWINDOW(&(pass4883= 0 )); +if(!qbevent)break;evnt(26070,7814,"ide_methods.bas");}while(r); +do{ +SUB_SETSTATUSMESSAGE(&(pass4884= 1 ),qbs_new_txt_len("No call stack log available.",28),&(pass4885= 4 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7815,"ide_methods.bas");}while(r); +} +} +} +do{ +*_SUB_DEBUGMODE_BYTE_NOFOCUSMESSAGE=~(*_SUB_DEBUGMODE_BYTE_NOFOCUSMESSAGE); +if(!qbevent)break;evnt(26070,7818,"ide_methods.bas");}while(r); +} +sc_ec_281_end:; +goto sc_4784_end; +} +S_44864:; +if (((*_SUB_DEBUGMODE_LONG_K==( 103 ))||(*_SUB_DEBUGMODE_LONG_K==( 71 )))||new_error){ +if(qbevent){evnt(26070,7820,"ide_methods.bas");if(r)goto S_44864;} +S_44865:; +if ((func__keydown( 100306 )|func__keydown( 100305 ))||new_error){ +if(qbevent){evnt(26070,7821,"ide_methods.bas");if(r)goto S_44865;} +S_44866:; +if ((func__keydown( 100304 )|func__keydown( 100303 ))||new_error){ +if(qbevent){evnt(26070,7822,"ide_methods.bas");if(r)goto S_44866;} +do{ +*_SUB_DEBUGMODE_LONG_RESULT=FUNC_IDEGETLINENUMBERBOX(qbs_new_txt_len("Run To Line",11),__LONG_IDECY); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7823,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,7824,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,7824,"ide_methods.bas");}while(r); +S_44870:; +while((func__mouseinput(NULL,0))||new_error){ +if(qbevent){evnt(26070,7825,"ide_methods.bas");if(r)goto S_44870;} +ww_continue_4886:; +} +ww_exit_4886:; +LABEL_REQUESTRUNTOTHISLINE:; +if(qbevent){evnt(26070,7826,"ide_methods.bas");r=0;} +S_44872:; +if (((-(*_SUB_DEBUGMODE_LONG_RESULT> 0 ))&(-(*_SUB_DEBUGMODE_LONG_RESULT<=*__LONG_IDEN)))||new_error){ +if(qbevent){evnt(26070,7827,"ide_methods.bas");if(r)goto S_44872;} +do{ +*_SUB_DEBUGMODE_BYTE_PAUSEMODE= 0 ; +if(!qbevent)break;evnt(26070,7828,"ide_methods.bas");}while(r); +do{ +*__LONG_DEBUGNEXTLINE= 0 ; +if(!qbevent)break;evnt(26070,7829,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(qbs_new_txt_len("run to line:",12),l2string(*_SUB_DEBUGMODE_LONG_RESULT))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7830,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=125; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SENDCOMMAND; +RETURN_125:; +if(!qbevent)break;evnt(26070,7831,"ide_methods.bas");}while(r); +do{ +SUB_CLEARSTATUSWINDOW(&(pass4887= 1 )); +if(!qbevent)break;evnt(26070,7832,"ide_methods.bas");}while(r); +do{ +SUB_SETSTATUSMESSAGE(&(pass4888= 1 ),qbs_new_txt_len("Running...",10),&(pass4889= 10 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7833,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=126; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEDISPLAY; +RETURN_126:; +if(!qbevent)break;evnt(26070,7834,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_DUMMY=FUNC_DARKENFGBG(&(pass4890= 1 )); +if(!qbevent)break;evnt(26070,7835,"ide_methods.bas");}while(r); +} +}else{ +do{ +*_SUB_DEBUGMODE_LONG_RESULT=FUNC_IDEGETLINENUMBERBOX(qbs_new_txt_len("Set Next Line",13),__LONG_IDECY); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7838,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,7839,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,7839,"ide_methods.bas");}while(r); +S_44886:; +while((func__mouseinput(NULL,0))||new_error){ +if(qbevent){evnt(26070,7840,"ide_methods.bas");if(r)goto S_44886;} +ww_continue_4891:; +} +ww_exit_4891:; +LABEL_REQUESTSETNEXTLINE:; +if(qbevent){evnt(26070,7841,"ide_methods.bas");r=0;} +S_44888:; +if (((-(*_SUB_DEBUGMODE_LONG_RESULT> 0 ))&(-(*_SUB_DEBUGMODE_LONG_RESULT<=*__LONG_IDEN)))||new_error){ +if(qbevent){evnt(26070,7842,"ide_methods.bas");if(r)goto S_44888;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(qbs_new_txt_len("set next line:",14),l2string(*_SUB_DEBUGMODE_LONG_RESULT))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7843,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=127; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SENDCOMMAND; +RETURN_127:; +if(!qbevent)break;evnt(26070,7844,"ide_methods.bas");}while(r); +} +} +} +sc_ec_282_end:; +goto sc_4784_end; +} +S_44894:; +if (((*_SUB_DEBUGMODE_LONG_K==( 112 ))||(*_SUB_DEBUGMODE_LONG_K==( 80 )))||new_error){ +if(qbevent){evnt(26070,7848,"ide_methods.bas");if(r)goto S_44894;} +S_44895:; +if ((func__keydown( 100306 )|func__keydown( 100305 ))||new_error){ +if(qbevent){evnt(26070,7849,"ide_methods.bas");if(r)goto S_44895;} +do{ +*_SUB_DEBUGMODE_LONG_RESULT=FUNC_IDEGETLINENUMBERBOX(qbs_new_txt_len("Skip Line",9),__LONG_IDECY); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7850,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,7851,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,7851,"ide_methods.bas");}while(r); +S_44899:; +while((func__mouseinput(NULL,0))||new_error){ +if(qbevent){evnt(26070,7852,"ide_methods.bas");if(r)goto S_44899;} +ww_continue_4892:; +} +ww_exit_4892:; +LABEL_REQUESTTOGGLESKIPLINE:; +if(qbevent){evnt(26070,7853,"ide_methods.bas");r=0;} +S_44901:; +if (((-(*_SUB_DEBUGMODE_LONG_RESULT> 0 ))&(-(*_SUB_DEBUGMODE_LONG_RESULT<=*__LONG_IDEN)))||new_error){ +if(qbevent){evnt(26070,7854,"ide_methods.bas");if(r)goto S_44901;} +do{ +tmp_long=array_check((*_SUB_DEBUGMODE_LONG_RESULT)-__ARRAY_BYTE_IDESKIPLINES[4],__ARRAY_BYTE_IDESKIPLINES[5]); +if (!new_error) ((int8*)(__ARRAY_BYTE_IDESKIPLINES[0]))[tmp_long]=~(((int8*)(__ARRAY_BYTE_IDESKIPLINES[0]))[array_check((*_SUB_DEBUGMODE_LONG_RESULT)-__ARRAY_BYTE_IDESKIPLINES[4],__ARRAY_BYTE_IDESKIPLINES[5])]); +if(!qbevent)break;evnt(26070,7855,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("set skip line:",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7856,"ide_methods.bas");}while(r); +S_44904:; +if ((-(((int8*)(__ARRAY_BYTE_IDESKIPLINES[0]))[array_check((*_SUB_DEBUGMODE_LONG_RESULT)-__ARRAY_BYTE_IDESKIPLINES[4],__ARRAY_BYTE_IDESKIPLINES[5])]== 0 ))||new_error){ +if(qbevent){evnt(26070,7857,"ide_methods.bas");if(r)goto S_44904;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("clear skip line:",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7857,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,l2string(*_SUB_DEBUGMODE_LONG_RESULT))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7858,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=128; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SENDCOMMAND; +RETURN_128:; +if(!qbevent)break;evnt(26070,7859,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=129; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEDISPLAY; +RETURN_129:; +if(!qbevent)break;evnt(26070,7860,"ide_methods.bas");}while(r); +} +} +sc_ec_283_end:; +goto sc_4784_end; +} +sc_4784_end:; +do{ +return_point[next_return_point++]=130; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_GETCOMMAND; +RETURN_130:; +if(!qbevent)break;evnt(26070,7865,"ide_methods.bas");}while(r); +S_44914:; +if(qbevent){evnt(26070,7867,"ide_methods.bas");if(r)goto S_44914;} +S_44915:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("breakpoint",10))||qbs_equal(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("line number",11))||qbs_equal(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("watchpoint",10))))||new_error){ +if(qbevent){evnt(26070,7868,"ide_methods.bas");if(r)goto S_44915;} +do{ +*_SUB_DEBUGMODE_LONG_BYPASSREQUESTCALLSTACK= 0 ; +if(!qbevent)break;evnt(26070,7869,"ide_methods.bas");}while(r); +S_44917:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("watchpoint",10))))||new_error){ +if(qbevent){evnt(26070,7870,"ide_methods.bas");if(r)goto S_44917;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_TEMP,FUNC_GETBYTES(qbs_new_txt_len("",0),&(pass4894= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7871,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_TEMPINDEX=string2l(FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_VALUE,&(pass4895= 4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7872,"ide_methods.bas");}while(r); +do{ +*__LONG_LATESTWATCHPOINTMET=*_SUB_DEBUGMODE_LONG_TEMPINDEX; +if(!qbevent)break;evnt(26070,7873,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_TEMPARRAYINDEXES,FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_VALUE,&(pass4896= 4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7874,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_TEMPARRAYINDEXES,qbs_add(_SUB_DEBUGMODE_STRING_TEMPARRAYINDEXES,FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_VALUE,&(pass4897=string2l(_SUB_DEBUGMODE_STRING_TEMPARRAYINDEXES))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7875,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_TEMPELEMENTOFFSET,FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_VALUE,&(pass4898= 4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7876,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_I=string2i(FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_VALUE,&(pass4899= 2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7877,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_TEMP,qbs_add(qbs_add(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_SUB_DEBUGMODE_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+32))),qbs_new_txt_len(" ",1)),FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_VALUE,_SUB_DEBUGMODE_LONG_I))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7878,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Watchpoint condition met",24),_SUB_DEBUGMODE_STRING_TEMP,qbs_new_txt_len("#OK;#Clear Watchpoint",21)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7879,"ide_methods.bas");}while(r); +S_44927:; +if ((-(*_SUB_DEBUGMODE_LONG_RESULT== 2 ))||new_error){ +if(qbevent){evnt(26070,7880,"ide_methods.bas");if(r)goto S_44927;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_TEMP,qbs_add(qbs_add(l2string(*_SUB_DEBUGMODE_LONG_TEMPINDEX),_SUB_DEBUGMODE_STRING_TEMPARRAYINDEXES),_SUB_DEBUGMODE_STRING_TEMPELEMENTOFFSET)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7882,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_I= 0 ; +if(!qbevent)break;evnt(26070,7883,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_I=func_instr(*_SUB_DEBUGMODE_LONG_I+ 1 ,__STRING_WATCHPOINTLIST,l2string( -1 ),0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7884,"ide_methods.bas");}while(r); +S_44931:; +while((*_SUB_DEBUGMODE_LONG_I)||new_error){ +if(qbevent){evnt(26070,7885,"ide_methods.bas");if(r)goto S_44931;} +S_44932:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(__STRING_WATCHPOINTLIST,*_SUB_DEBUGMODE_LONG_I+ 8 ,_SUB_DEBUGMODE_STRING_TEMP->len,0|1),_SUB_DEBUGMODE_STRING_TEMP)))||new_error){ +if(qbevent){evnt(26070,7886,"ide_methods.bas");if(r)goto S_44932;} +do{ +goto dl_exit_4900; +if(!qbevent)break;evnt(26070,7886,"ide_methods.bas");}while(r); +} +do{ +*_SUB_DEBUGMODE_LONG_I=func_instr(*_SUB_DEBUGMODE_LONG_I+ 1 ,__STRING_WATCHPOINTLIST,l2string( -1 ),0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7887,"ide_methods.bas");}while(r); +dl_continue_4900:; +} +dl_exit_4900:; +S_44937:; +if ((-(*_SUB_DEBUGMODE_LONG_I> 0 ))||new_error){ +if(qbevent){evnt(26070,7890,"ide_methods.bas");if(r)goto S_44937;} +do{ +*_SUB_DEBUGMODE_LONG_J=string2l(func_mid(__STRING_WATCHPOINTLIST,*_SUB_DEBUGMODE_LONG_I+ 4 , 4 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7892,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_WATCHPOINTLIST,qbs_add(qbs_left(__STRING_WATCHPOINTLIST,*_SUB_DEBUGMODE_LONG_I- 1 ),func_mid(__STRING_WATCHPOINTLIST,*_SUB_DEBUGMODE_LONG_I+*_SUB_DEBUGMODE_LONG_J+ 8 ,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7893,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("clear last watchpoint",21)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7896,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=131; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SENDCOMMAND; +RETURN_131:; +if(!qbevent)break;evnt(26070,7897,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_VALUE,qbs_right(_SUB_DEBUGMODE_STRING_VALUE, 4 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7899,"ide_methods.bas");}while(r); +}else{ +do{ +*__LONG_LATESTWATCHPOINTMET= 0 ; +if(!qbevent)break;evnt(26070,7901,"ide_methods.bas");}while(r); +} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,7903,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,7903,"ide_methods.bas");}while(r); +S_44950:; +while((func__mouseinput(NULL,0))||new_error){ +if(qbevent){evnt(26070,7904,"ide_methods.bas");if(r)goto S_44950;} +ww_continue_4902:; +} +ww_exit_4902:; +do{ +*_SUB_DEBUGMODE_LONG_L=string2l(_SUB_DEBUGMODE_STRING_VALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7905,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECY=*_SUB_DEBUGMODE_LONG_L; +if(!qbevent)break;evnt(26070,7906,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESELECT= 0 ; +if(!qbevent)break;evnt(26070,7907,"ide_methods.bas");}while(r); +do{ +*__LONG_DEBUGNEXTLINE=*_SUB_DEBUGMODE_LONG_L; +if(!qbevent)break;evnt(26070,7908,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEFOCUSLINE= 0 ; +if(!qbevent)break;evnt(26070,7909,"ide_methods.bas");}while(r); +do{ +SUB_IDECENTERCURRENTLINE(); +if(!qbevent)break;evnt(26070,7910,"ide_methods.bas");}while(r); +do{ +SUB_CLEARSTATUSWINDOW(&(pass4903= 1 )); +if(!qbevent)break;evnt(26070,7911,"ide_methods.bas");}while(r); +S_44959:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("breakpoint",10))))||new_error){ +if(qbevent){evnt(26070,7912,"ide_methods.bas");if(r)goto S_44959;} +do{ +SUB_SETSTATUSMESSAGE(&(pass4904= 1 ),qbs_add(qbs_new_txt_len("Breakpoint reached on line",26),qbs_str((int32)(*_SUB_DEBUGMODE_LONG_L))),&(pass4905= 2 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7913,"ide_methods.bas");}while(r); +S_44961:; +}else{ +if (qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("watchpoint",10)))){ +if(qbevent){evnt(26070,7914,"ide_methods.bas");if(r)goto S_44961;} +do{ +SUB_SETSTATUSMESSAGE(&(pass4906= 1 ),qbs_add(qbs_add(qbs_new_txt_len("Watchpoint condition met (",26),_SUB_DEBUGMODE_STRING_TEMP),qbs_new_txt_len(")",1)),&(pass4907= 2 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7915,"ide_methods.bas");}while(r); +}else{ +do{ +SUB_SETSTATUSMESSAGE(&(pass4908= 1 ),qbs_new_txt_len("Paused.",7),&(pass4909= 2 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7917,"ide_methods.bas");}while(r); +} +} +do{ +*_SUB_DEBUGMODE_BYTE_PAUSEMODE= -1 ; +if(!qbevent)break;evnt(26070,7919,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=132; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEDISPLAY; +RETURN_132:; +if(!qbevent)break;evnt(26070,7920,"ide_methods.bas");}while(r); +S_44968:; +if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_VARIABLEWATCHLIST->len> 0 ))&*_SUB_DEBUGMODE_BYTE_PANELACTIVE))||new_error){ +if(qbevent){evnt(26070,7923,"ide_methods.bas");if(r)goto S_44968;} +LABEL_REQUESTVARIABLEVALUES:; +if(qbevent){evnt(26070,7924,"ide_methods.bas");r=0;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_TEMP,FUNC_GETBYTES(qbs_new_txt_len("",0),&(pass4911= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7925,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_TEMP,func_mid(__STRING_VARIABLEWATCHLIST, 9 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7926,"ide_methods.bas");}while(r); +S_44971:; +do{ +if(qbevent){evnt(26070,7927,"ide_methods.bas");if(r)goto S_44971;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_TEMP2,FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_TEMP,&(pass4913= 4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7928,"ide_methods.bas");}while(r); +S_44973:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_DEBUGMODE_STRING_TEMP2,l2string( -1 ))))||new_error){ +if(qbevent){evnt(26070,7929,"ide_methods.bas");if(r)goto S_44973;} +do{ +goto dl_exit_4912; +if(!qbevent)break;evnt(26070,7929,"ide_methods.bas");}while(r); +} +do{ +*_SUB_DEBUGMODE_LONG_TEMPINDEX=string2l(FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_TEMP,&(pass4914= 4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7930,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_TEMPARRAYINDEXES,FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_TEMP,&(pass4915= 4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7931,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_I=string2l(_SUB_DEBUGMODE_STRING_TEMPARRAYINDEXES); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7932,"ide_methods.bas");}while(r); +S_44979:; +if ((-(*_SUB_DEBUGMODE_LONG_I> 0 ))||new_error){ +if(qbevent){evnt(26070,7933,"ide_methods.bas");if(r)goto S_44979;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_TEMPARRAYINDEXES,qbs_add(_SUB_DEBUGMODE_STRING_TEMPARRAYINDEXES,FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_TEMP,_SUB_DEBUGMODE_LONG_I))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7934,"ide_methods.bas");}while(r); +} +do{ +*_SUB_DEBUGMODE_LONG_TEMPELEMENT=string2l(FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_TEMP,&(pass4916= 4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7936,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_TEMPELEMENTOFFSET=string2l(FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_TEMP,&(pass4917= 4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7937,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_TEMPSTORAGE=string2l(FUNC_GETBYTES(_SUB_DEBUGMODE_STRING_TEMP,&(pass4918= 4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7938,"ide_methods.bas");}while(r); +S_44985:; +if ((qbs_cleanup(qbs_tmp_base,-((*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_DEBUGMODE_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+64)))->len== 0 )))||new_error){ +if(qbevent){evnt(26070,7939,"ide_methods.bas");if(r)goto S_44985;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("get global var:",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7940,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("get local var:",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7942,"ide_methods.bas");}while(r); +} +do{ +return_point[next_return_point++]=133; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_GETVARSIZE; +RETURN_133:; +if(!qbevent)break;evnt(26070,7944,"ide_methods.bas");}while(r); +S_44991:; +if ((*_SUB_DEBUGMODE_LONG_VARSIZE)||new_error){ +if(qbevent){evnt(26070,7945,"ide_methods.bas");if(r)goto S_44991;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,l2string(*_SUB_DEBUGMODE_LONG_TEMPINDEX))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7946,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,b2string(*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_DEBUGMODE_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+30))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7947,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,l2string(*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_DEBUGMODE_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+4))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7948,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,l2string(*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_DEBUGMODE_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+20))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7949,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,_SUB_DEBUGMODE_STRING_TEMPARRAYINDEXES)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7950,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,l2string(*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_DEBUGMODE_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+24))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7951,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,l2string(*_SUB_DEBUGMODE_LONG_TEMPELEMENT))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7952,"ide_methods.bas");}while(r); +S_44999:; +if ((*_SUB_DEBUGMODE_LONG_TEMPELEMENT)||new_error){ +if(qbevent){evnt(26070,7953,"ide_methods.bas");if(r)goto S_44999;} +do{ +*_SUB_DEBUGMODE_LONG_TEMPELEMENTOFFSET=string2l(func_mid(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_SUB_DEBUGMODE_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+104))),(*_SUB_DEBUGMODE_LONG_TEMPELEMENT* 4 )-( 3 ), 4 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7954,"ide_methods.bas");}while(r); +}else{ +do{ +*_SUB_DEBUGMODE_LONG_TEMPELEMENTOFFSET= 0 ; +if(!qbevent)break;evnt(26070,7956,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,l2string(*_SUB_DEBUGMODE_LONG_TEMPELEMENTOFFSET))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7958,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,l2string(*_SUB_DEBUGMODE_LONG_VARSIZE))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7959,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,l2string(*_SUB_DEBUGMODE_LONG_TEMPSTORAGE))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7960,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,i2string((*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_DEBUGMODE_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+64)))->len))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7961,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(_SUB_DEBUGMODE_STRING_CMD,*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_SUB_DEBUGMODE_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+64))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7962,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(qbs_add(_SUB_DEBUGMODE_STRING_CMD,i2string(_SUB_DEBUGMODE_STRING_VARTYPE->len)),_SUB_DEBUGMODE_STRING_VARTYPE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7963,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=134; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SENDCOMMAND; +RETURN_134:; +if(!qbevent)break;evnt(26070,7964,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7966,"ide_methods.bas");}while(r); +} +dl_continue_4912:; +}while(1); +dl_exit_4912:; +} +sc_ec_284_end:; +goto sc_4893_end; +} +S_45016:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("hwnd",4))))||new_error){ +if(qbevent){evnt(26070,7970,"ide_methods.bas");if(r)goto S_45016;} +do{ +*_SUB_DEBUGMODE_OFFSET_DEBUGGEEHWND=string2o(_SUB_DEBUGMODE_STRING_VALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7971,"ide_methods.bas");}while(r); +sc_ec_285_end:; +goto sc_4893_end; +} +S_45018:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("address read",12))))||new_error){ +if(qbevent){evnt(26070,7972,"ide_methods.bas");if(r)goto S_45018;} +do{ +*_SUB_DEBUGMODE_LONG_TEMPINDEX=string2l(qbs_left(_SUB_DEBUGMODE_STRING_VALUE, 4 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7973,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_TEMPARRAYINDEX=string2l(func_mid(_SUB_DEBUGMODE_STRING_VALUE, 5 , 4 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7974,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_TEMPELEMENT=string2l(func_mid(_SUB_DEBUGMODE_STRING_VALUE, 9 , 4 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7975,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_TEMPSTORAGE=string2l(func_mid(_SUB_DEBUGMODE_STRING_VALUE, 13 , 4 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7976,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_RECVDATA,func_mid(_SUB_DEBUGMODE_STRING_VALUE, 17 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7977,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=135; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_GETVARSIZE; +RETURN_135:; +if(!qbevent)break;evnt(26070,7978,"ide_methods.bas");}while(r); +S_45025:; +if(qbevent){evnt(26070,7979,"ide_methods.bas");if(r)goto S_45025;} +S_45026:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_BYTE",5))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("BYTE",4))))||new_error){ +if(qbevent){evnt(26070,7980,"ide_methods.bas");if(r)goto S_45026;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_RECVDATA,qbs_str((int8)(string2b(_SUB_DEBUGMODE_STRING_RECVDATA)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7980,"ide_methods.bas");}while(r); +sc_ec_286_end:; +goto sc_4920_end; +} +S_45028:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_UNSIGNED _BYTE",15))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("UNSIGNED BYTE",13))))||new_error){ +if(qbevent){evnt(26070,7981,"ide_methods.bas");if(r)goto S_45028;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_RECVDATA,qbs_str((uint8)(string2ub(_SUB_DEBUGMODE_STRING_RECVDATA)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7981,"ide_methods.bas");}while(r); +sc_ec_287_end:; +goto sc_4920_end; +} +S_45030:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("INTEGER",7))))||new_error){ +if(qbevent){evnt(26070,7982,"ide_methods.bas");if(r)goto S_45030;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_RECVDATA,qbs_str((int16)(string2i(_SUB_DEBUGMODE_STRING_RECVDATA)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7982,"ide_methods.bas");}while(r); +sc_ec_288_end:; +goto sc_4920_end; +} +S_45032:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_UNSIGNED INTEGER",17))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("UNSIGNED INTEGER",16))))||new_error){ +if(qbevent){evnt(26070,7983,"ide_methods.bas");if(r)goto S_45032;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_RECVDATA,qbs_str((uint16)(string2ui(_SUB_DEBUGMODE_STRING_RECVDATA)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7983,"ide_methods.bas");}while(r); +sc_ec_289_end:; +goto sc_4920_end; +} +S_45034:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("LONG",4))))||new_error){ +if(qbevent){evnt(26070,7984,"ide_methods.bas");if(r)goto S_45034;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_RECVDATA,qbs_str((int32)(string2l(_SUB_DEBUGMODE_STRING_RECVDATA)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7984,"ide_methods.bas");}while(r); +sc_ec_290_end:; +goto sc_4920_end; +} +S_45036:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_UNSIGNED LONG",14))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("UNSIGNED LONG",13))))||new_error){ +if(qbevent){evnt(26070,7985,"ide_methods.bas");if(r)goto S_45036;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_RECVDATA,qbs_str((uint32)(string2ul(_SUB_DEBUGMODE_STRING_RECVDATA)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7985,"ide_methods.bas");}while(r); +sc_ec_291_end:; +goto sc_4920_end; +} +S_45038:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_INTEGER64",10))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("INTEGER64",9))))||new_error){ +if(qbevent){evnt(26070,7986,"ide_methods.bas");if(r)goto S_45038;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_RECVDATA,qbs_str((int64)(string2i64(_SUB_DEBUGMODE_STRING_RECVDATA)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7986,"ide_methods.bas");}while(r); +sc_ec_292_end:; +goto sc_4920_end; +} +S_45040:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_UNSIGNED _INTEGER64",20))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("UNSIGNED INTEGER64",18))))||new_error){ +if(qbevent){evnt(26070,7987,"ide_methods.bas");if(r)goto S_45040;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_RECVDATA,qbs_str((uint64)(string2ui64(_SUB_DEBUGMODE_STRING_RECVDATA)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7987,"ide_methods.bas");}while(r); +sc_ec_293_end:; +goto sc_4920_end; +} +S_45042:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("SINGLE",6))))||new_error){ +if(qbevent){evnt(26070,7988,"ide_methods.bas");if(r)goto S_45042;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_RECVDATA,qbs_str((float)(string2s(_SUB_DEBUGMODE_STRING_RECVDATA)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7988,"ide_methods.bas");}while(r); +sc_ec_294_end:; +goto sc_4920_end; +} +S_45044:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("DOUBLE",6))))||new_error){ +if(qbevent){evnt(26070,7989,"ide_methods.bas");if(r)goto S_45044;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_RECVDATA,qbs_str((double)(string2d(_SUB_DEBUGMODE_STRING_RECVDATA)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7989,"ide_methods.bas");}while(r); +sc_ec_295_end:; +goto sc_4920_end; +} +S_45046:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_FLOAT",6))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("FLOAT",5))))||new_error){ +if(qbevent){evnt(26070,7990,"ide_methods.bas");if(r)goto S_45046;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_RECVDATA,qbs_str((long double)(string2f(_SUB_DEBUGMODE_STRING_RECVDATA)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7990,"ide_methods.bas");}while(r); +sc_ec_296_end:; +goto sc_4920_end; +} +S_45048:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_OFFSET",7))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("OFFSET",6))))||new_error){ +if(qbevent){evnt(26070,7991,"ide_methods.bas");if(r)goto S_45048;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_RECVDATA,qbs_str((int64)(string2o(_SUB_DEBUGMODE_STRING_RECVDATA)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7991,"ide_methods.bas");}while(r); +sc_ec_297_end:; +goto sc_4920_end; +} +S_45050:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_UNSIGNED _OFFSET",17))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("UNSIGNED OFFSET",15))))||new_error){ +if(qbevent){evnt(26070,7992,"ide_methods.bas");if(r)goto S_45050;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_RECVDATA,qbs_str((uint64)(string2uo(_SUB_DEBUGMODE_STRING_RECVDATA)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7992,"ide_methods.bas");}while(r); +sc_ec_298_end:; +goto sc_4920_end; +} +sc_4920_end:; +do{ +tmp_long=array_check((*_SUB_DEBUGMODE_LONG_TEMPSTORAGE)-__ARRAY_STRING_VWATCHRECEIVEDDATA[4],__ARRAY_STRING_VWATCHRECEIVEDDATA[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_VWATCHRECEIVEDDATA[0]))[tmp_long])),_SUB_DEBUGMODE_STRING_RECVDATA); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7995,"ide_methods.bas");}while(r); +S_45054:; +if ((*_SUB_DEBUGMODE_BYTE_PAUSEMODE)||new_error){ +if(qbevent){evnt(26070,7996,"ide_methods.bas");if(r)goto S_45054;} +do{ +return_point[next_return_point++]=136; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEDISPLAY; +RETURN_136:; +if(!qbevent)break;evnt(26070,7996,"ide_methods.bas");}while(r); +} +sc_ec_299_end:; +goto sc_4893_end; +} +S_45057:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("current sub",11))))||new_error){ +if(qbevent){evnt(26070,7997,"ide_methods.bas");if(r)goto S_45057;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CURRENTSUB,_SUB_DEBUGMODE_STRING_VALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7998,"ide_methods.bas");}while(r); +S_45059:; +if ((*_SUB_DEBUGMODE_LONG_ESTABILISHINGSCOPE)||new_error){ +if(qbevent){evnt(26070,7999,"ide_methods.bas");if(r)goto S_45059;} +do{ +*_SUB_DEBUGMODE_LONG_ESTABILISHINGSCOPE= 0 ; +if(!qbevent)break;evnt(26070,8000,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=137; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEDISPLAY; +RETURN_137:; +if(!qbevent)break;evnt(26070,8001,"ide_methods.bas");}while(r); +do{ +goto LABEL_REQUESTVARIABLEWATCH; +if(!qbevent)break;evnt(26070,8002,"ide_methods.bas");}while(r); +} +sc_ec_300_end:; +goto sc_4893_end; +} +S_45064:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("quit",4))))||new_error){ +if(qbevent){evnt(26070,8004,"ide_methods.bas");if(r)goto S_45064;} +do{ +sub_close(*__LONG_DEBUGCLIENT,1); +if(!qbevent)break;evnt(26070,8005,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_DUMMY=FUNC_DARKENFGBG(&(pass4921= 0 )); +if(!qbevent)break;evnt(26070,8006,"ide_methods.bas");}while(r); +do{ +SUB_CLEARSTATUSWINDOW(&(pass4922= 0 )); +if(!qbevent)break;evnt(26070,8007,"ide_methods.bas");}while(r); +do{ +SUB_SETSTATUSMESSAGE(&(pass4923= 1 ),qbs_new_txt_len("Debug session aborted.",22),&(pass4924= 15 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8008,"ide_methods.bas");}while(r); +S_45069:; +if ((qbs_cleanup(qbs_tmp_base,_SUB_DEBUGMODE_STRING_VALUE->len))||new_error){ +if(qbevent){evnt(26070,8009,"ide_methods.bas");if(r)goto S_45069;} +do{ +SUB_SETSTATUSMESSAGE(&(pass4926= 2 ),_SUB_DEBUGMODE_STRING_VALUE,&(pass4927= 7 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8010,"ide_methods.bas");}while(r); +} +S_45072:; +while((func__mouseinput(NULL,0))||new_error){ +if(qbevent){evnt(26070,8012,"ide_methods.bas");if(r)goto S_45072;} +ww_continue_4928:; +} +ww_exit_4928:; +do{ +sub__keyclear(NULL,0); +if(!qbevent)break;evnt(26070,8013,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,8014,"ide_methods.bas");}while(r); +sc_ec_301_end:; +goto sc_4893_end; +} +S_45076:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("error",5))))||new_error){ +if(qbevent){evnt(26070,8015,"ide_methods.bas");if(r)goto S_45076;} +do{ +*_SUB_DEBUGMODE_LONG_L=string2l(_SUB_DEBUGMODE_STRING_VALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8016,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECY=*_SUB_DEBUGMODE_LONG_L; +if(!qbevent)break;evnt(26070,8017,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESELECT= 0 ; +if(!qbevent)break;evnt(26070,8018,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEFOCUSLINE=*_SUB_DEBUGMODE_LONG_L; +if(!qbevent)break;evnt(26070,8019,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=138; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEDISPLAY; +RETURN_138:; +if(!qbevent)break;evnt(26070,8020,"ide_methods.bas");}while(r); +do{ +SUB_CLEARSTATUSWINDOW(&(pass4929= 1 )); +if(!qbevent)break;evnt(26070,8021,"ide_methods.bas");}while(r); +do{ +qbg_sub_color(NULL, 4 ,NULL,2); +if(!qbevent)break;evnt(26070,8022,"ide_methods.bas");}while(r); +do{ +SUB_SETSTATUSMESSAGE(&(pass4930= 1 ),qbs_add(qbs_new_txt_len("Error occurred on line",22),qbs_str((int32)(*_SUB_DEBUGMODE_LONG_L))),&(pass4931= 15 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8023,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_BYPASSREQUESTCALLSTACK= -1 ; +if(!qbevent)break;evnt(26070,8024,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_BYTE_PAUSEMODE= -1 ; +if(!qbevent)break;evnt(26070,8025,"ide_methods.bas");}while(r); +sc_ec_302_end:; +goto sc_4893_end; +} +S_45087:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("enter input",11))))||new_error){ +if(qbevent){evnt(26070,8026,"ide_methods.bas");if(r)goto S_45087;} +do{ +*_SUB_DEBUGMODE_BYTE_ENTEREDINPUT= -1 ; +if(!qbevent)break;evnt(26070,8027,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_L=string2l(_SUB_DEBUGMODE_STRING_VALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8028,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECY=*_SUB_DEBUGMODE_LONG_L; +if(!qbevent)break;evnt(26070,8029,"ide_methods.bas");}while(r); +do{ +*__LONG_DEBUGNEXTLINE=*_SUB_DEBUGMODE_LONG_L; +if(!qbevent)break;evnt(26070,8030,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESELECT= 0 ; +if(!qbevent)break;evnt(26070,8031,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=139; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEDISPLAY; +RETURN_139:; +if(!qbevent)break;evnt(26070,8032,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_DUMMY=FUNC_DARKENFGBG(&(pass4932= 1 )); +if(!qbevent)break;evnt(26070,8033,"ide_methods.bas");}while(r); +do{ +SUB_CLEARSTATUSWINDOW(&(pass4933= 1 )); +if(!qbevent)break;evnt(26070,8034,"ide_methods.bas");}while(r); +do{ +SUB_SETSTATUSMESSAGE(&(pass4934= 1 ),qbs_new_txt_len("SLEEP/INPUT/LINE INPUT active in your program...",48),&(pass4935= 10 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8035,"ide_methods.bas");}while(r); +do{ +set_foreground_window(*_SUB_DEBUGMODE_OFFSET_DEBUGGEEHWND); +if(!qbevent)break;evnt(26070,8036,"ide_methods.bas");}while(r); +sc_ec_303_end:; +goto sc_4893_end; +} +S_45098:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("leave input",11))))||new_error){ +if(qbevent){evnt(26070,8037,"ide_methods.bas");if(r)goto S_45098;} +do{ +*_SUB_DEBUGMODE_BYTE_ENTEREDINPUT= 0 ; +if(!qbevent)break;evnt(26070,8038,"ide_methods.bas");}while(r); +do{ +SUB_CLEARSTATUSWINDOW(&(pass4936= 1 )); +if(!qbevent)break;evnt(26070,8039,"ide_methods.bas");}while(r); +S_45101:; +if ((*_SUB_DEBUGMODE_BYTE_PAUSEMODE)||new_error){ +if(qbevent){evnt(26070,8040,"ide_methods.bas");if(r)goto S_45101;} +do{ +SUB_SETSTATUSMESSAGE(&(pass4937= 1 ),qbs_new_txt_len("Paused.",7),&(pass4938= 2 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8041,"ide_methods.bas");}while(r); +do{ +*_SUB_DEBUGMODE_LONG_DUMMY=FUNC_DARKENFGBG(&(pass4939= 0 )); +if(!qbevent)break;evnt(26070,8042,"ide_methods.bas");}while(r); +}else{ +do{ +SUB_SETSTATUSMESSAGE(&(pass4940= 1 ),qbs_new_txt_len("Running...",10),&(pass4941= 10 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8044,"ide_methods.bas");}while(r); +} +sc_ec_304_end:; +goto sc_4893_end; +} +S_45107:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("call stack size",15))))||new_error){ +if(qbevent){evnt(26070,8046,"ide_methods.bas");if(r)goto S_45107;} +do{ +*__LONG_CALLSTACKLENGTH=string2l(_SUB_DEBUGMODE_STRING_VALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8050,"ide_methods.bas");}while(r); +S_45109:; +if ((*__LONG_CALLSTACKLENGTH)||new_error){ +if(qbevent){evnt(26070,8051,"ide_methods.bas");if(r)goto S_45109;} +do{ +*_SUB_DEBUGMODE_SINGLE_START=func_timer(NULL,0); +if(!qbevent)break;evnt(26070,8052,"ide_methods.bas");}while(r); +S_45111:; +do{ +if(qbevent){evnt(26070,8053,"ide_methods.bas");if(r)goto S_45111;} +do{ +return_point[next_return_point++]=140; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_GETCOMMAND; +RETURN_140:; +if(!qbevent)break;evnt(26070,8054,"ide_methods.bas");}while(r); +do{ +sub__limit( 100 ); +if(!qbevent)break;evnt(26070,8055,"ide_methods.bas");}while(r); +S_45114:; +dl_continue_4942:; +}while((!(qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("call stack",10)))|(-((func_timer(NULL,0)-*_SUB_DEBUGMODE_SINGLE_START)>*_SUB_DEBUGMODE_LONG_TIMEOUT)))))&&(!new_error)); +dl_exit_4942:; +if(qbevent){evnt(26070,8056,"ide_methods.bas");if(r)goto S_45114;} +S_45115:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("call stack",10))))||new_error){ +if(qbevent){evnt(26070,8058,"ide_methods.bas");if(r)goto S_45115;} +do{ +qbs_set(__STRING_CALLSTACKLIST,_SUB_DEBUGMODE_STRING_VALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8060,"ide_methods.bas");}while(r); +} +}else{ +do{ +qbs_set(__STRING_CALLSTACKLIST,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8063,"ide_methods.bas");}while(r); +} +sc_ec_305_end:; +goto sc_4893_end; +} +sc_4893_end:; +S_45122:; +if ((func__hasfocus())||new_error){ +if(qbevent){evnt(26070,8067,"ide_methods.bas");if(r)goto S_45122;} +do{ +return_point[next_return_point++]=141; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_UPDATEBUTTONS; +RETURN_141:; +if(!qbevent)break;evnt(26070,8067,"ide_methods.bas");}while(r); +} +do{ +sub__limit( 100 ); +if(!qbevent)break;evnt(26070,8068,"ide_methods.bas");}while(r); +dl_continue_4737:; +}while(1); +dl_exit_4737:; +S_45127:; +while((func__mouseinput(NULL,0))||new_error){ +if(qbevent){evnt(26070,8071,"ide_methods.bas");if(r)goto S_45127;} +ww_continue_4943:; +} +ww_exit_4943:; +do{ +sub__keyclear(NULL,0); +if(!qbevent)break;evnt(26070,8072,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,8073,"ide_methods.bas");}while(r); +LABEL_GETCOMMAND:; +if(qbevent){evnt(26070,8075,"ide_methods.bas");r=0;} +do{ +sub_get2(*__LONG_DEBUGCLIENT,NULL,_SUB_DEBUGMODE_STRING_TEMP,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8076,"ide_methods.bas");}while(r); +S_45132:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3)))&(-(func__connected(*__LONG_DEBUGCLIENT)== 0 ))))||new_error){ +if(qbevent){evnt(26070,8077,"ide_methods.bas");if(r)goto S_45132;} +do{ +SUB_CLEARSTATUSWINDOW(&(pass4944= 0 )); +if(!qbevent)break;evnt(26070,8078,"ide_methods.bas");}while(r); +do{ +SUB_SETSTATUSMESSAGE(&(pass4945= 1 ),qbs_new_txt_len("Debug session aborted.",22),&(pass4946= 7 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8079,"ide_methods.bas");}while(r); +do{ +SUB_SETSTATUSMESSAGE(&(pass4947= 2 ),qbs_new_txt_len("Disconnected.",13),&(pass4948= 2 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8080,"ide_methods.bas");}while(r); +S_45136:; +while((func__mouseinput(NULL,0))||new_error){ +if(qbevent){evnt(26070,8081,"ide_methods.bas");if(r)goto S_45136;} +ww_continue_4949:; +} +ww_exit_4949:; +do{ +sub__keyclear(NULL,0); +if(!qbevent)break;evnt(26070,8082,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,8083,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_BUFFER,qbs_add(_SUB_DEBUGMODE_STRING_BUFFER,_SUB_DEBUGMODE_STRING_TEMP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8085,"ide_methods.bas");}while(r); +S_45142:; +if ((qbs_cleanup(qbs_tmp_base,-(_SUB_DEBUGMODE_STRING_BUFFER->len>= 4 )))||new_error){ +if(qbevent){evnt(26070,8087,"ide_methods.bas");if(r)goto S_45142;} +do{ +*_SUB_DEBUGMODE_LONG_CMDSIZE=string2l(qbs_left(_SUB_DEBUGMODE_STRING_BUFFER, 4 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8087,"ide_methods.bas");}while(r); +}else{ +do{ +*_SUB_DEBUGMODE_LONG_CMDSIZE= 0 ; +if(!qbevent)break;evnt(26070,8087,"ide_methods.bas");}while(r); +} +S_45147:; +if ((qbs_cleanup(qbs_tmp_base,(-(*_SUB_DEBUGMODE_LONG_CMDSIZE> 0 ))&(-(_SUB_DEBUGMODE_STRING_BUFFER->len>=*_SUB_DEBUGMODE_LONG_CMDSIZE))))||new_error){ +if(qbevent){evnt(26070,8088,"ide_methods.bas");if(r)goto S_45147;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,func_mid(_SUB_DEBUGMODE_STRING_BUFFER, 5 ,*_SUB_DEBUGMODE_LONG_CMDSIZE,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8089,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_BUFFER,func_mid(_SUB_DEBUGMODE_STRING_BUFFER, 5 +*_SUB_DEBUGMODE_LONG_CMDSIZE,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8090,"ide_methods.bas");}while(r); +S_45150:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len(":",1),0)))||new_error){ +if(qbevent){evnt(26070,8092,"ide_methods.bas");if(r)goto S_45150;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_VALUE,func_mid(_SUB_DEBUGMODE_STRING_CMD,func_instr(NULL,_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len(":",1),0)+ 1 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8093,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_left(_SUB_DEBUGMODE_STRING_CMD,func_instr(NULL,_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len(":",1),0)- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8094,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_DEBUGMODE_STRING_VALUE,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8096,"ide_methods.bas");}while(r); +} +}else{ +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8099,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_VALUE,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8099,"ide_methods.bas");}while(r); +} +do{ +#include "ret172.txt" +if(!qbevent)break;evnt(26070,8101,"ide_methods.bas");}while(r); +LABEL_SENDCOMMAND:; +if(qbevent){evnt(26070,8103,"ide_methods.bas");r=0;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_add(l2string(_SUB_DEBUGMODE_STRING_CMD->len),_SUB_DEBUGMODE_STRING_CMD)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8104,"ide_methods.bas");}while(r); +do{ +sub_put2(*__LONG_DEBUGCLIENT,NULL,byte_element((uint64)_SUB_DEBUGMODE_STRING_CMD->chr,_SUB_DEBUGMODE_STRING_CMD->len,byte_element_4953),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8105,"ide_methods.bas");}while(r); +S_45163:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3)))&(-(func__connected(*__LONG_DEBUGCLIENT)== 0 ))))||new_error){ +if(qbevent){evnt(26070,8106,"ide_methods.bas");if(r)goto S_45163;} +do{ +SUB_CLEARSTATUSWINDOW(&(pass4954= 0 )); +if(!qbevent)break;evnt(26070,8107,"ide_methods.bas");}while(r); +do{ +SUB_SETSTATUSMESSAGE(&(pass4955= 1 ),qbs_new_txt_len("Debug session aborted.",22),&(pass4956= 7 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8108,"ide_methods.bas");}while(r); +do{ +SUB_SETSTATUSMESSAGE(&(pass4957= 2 ),qbs_new_txt_len("Disconnected.",13),&(pass4958= 2 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8109,"ide_methods.bas");}while(r); +S_45167:; +while((func__mouseinput(NULL,0))||new_error){ +if(qbevent){evnt(26070,8110,"ide_methods.bas");if(r)goto S_45167;} +ww_continue_4959:; +} +ww_exit_4959:; +do{ +sub__keyclear(NULL,0); +if(!qbevent)break;evnt(26070,8111,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,8112,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_CMD,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8114,"ide_methods.bas");}while(r); +do{ +#include "ret172.txt" +if(!qbevent)break;evnt(26070,8115,"ide_methods.bas");}while(r); +LABEL_UPDATEDISPLAY:; +if(qbevent){evnt(26070,8117,"ide_methods.bas");r=0;} +S_45174:; +if ((-(*_SUB_DEBUGMODE_BYTE_PAUSEMODE== 0 ))||new_error){ +if(qbevent){evnt(26070,8118,"ide_methods.bas");if(r)goto S_45174;} +do{ +*__BYTE_IDESHOWTEXTBYPASSCOLORRESTORE= -1 ; +if(!qbevent)break;evnt(26070,8118,"ide_methods.bas");}while(r); +} +do{ +SUB_IDESHOWTEXT(); +if(!qbevent)break;evnt(26070,8119,"ide_methods.bas");}while(r); +do{ +SUB_UPDATETITLEOFMAINWINDOW(); +if(!qbevent)break;evnt(26070,8120,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=142; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_PRINTVERSION; +RETURN_142:; +if(!qbevent)break;evnt(26070,8122,"ide_methods.bas");}while(r); +S_45180:; +if ((qbs_cleanup(qbs_tmp_base,(-(*_SUB_DEBUGMODE_BYTE_PAUSEMODE!= 0 ))&(-(__STRING_VARIABLEWATCHLIST->len> 0 ))))||new_error){ +if(qbevent){evnt(26070,8124,"ide_methods.bas");if(r)goto S_45180;} +S_45181:; +if ((*__BYTE_WATCHLISTTOCONSOLE)||new_error){ +if(qbevent){evnt(26070,8125,"ide_methods.bas");if(r)goto S_45181;} +do{ +sub__console( 1 ); +if(!qbevent)break;evnt(26070,8125,"ide_methods.bas");}while(r); +} +do{ +*_SUB_DEBUGMODE_LONG_TOTALVISIBLEVARIABLES=string2l(func_mid(__STRING_VARIABLEWATCHLIST, 5 , 4 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8126,"ide_methods.bas");}while(r); +S_45185:; +if (((-(*_SUB_DEBUGMODE_LONG_HIDEPANEL== 0 ))&(-(*_SUB_DEBUGMODE_BYTE_PANELACTIVE== -1 )))||new_error){ +if(qbevent){evnt(26070,8127,"ide_methods.bas");if(r)goto S_45185;} +do{ +SUB_SHOWVWATCHPANEL((void*)( ((char*)(_SUB_DEBUGMODE_UDT_VWATCHPANEL)) + (0) ),_SUB_DEBUGMODE_STRING_CURRENTSUB,&(pass4961= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8127,"ide_methods.bas");}while(r); +} +do{ +*_SUB_DEBUGMODE_LONG_HIDEPANEL= 0 ; +if(!qbevent)break;evnt(26070,8128,"ide_methods.bas");}while(r); +} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,8131,"ide_methods.bas");}while(r); +do{ +#include "ret172.txt" +if(!qbevent)break;evnt(26070,8132,"ide_methods.bas");}while(r); +LABEL_UPDATEBUTTONS:; +if(qbevent){evnt(26070,8134,"ide_methods.bas");r=0;} +S_45192:; +fornext_value4963= 1 ; +fornext_finalvalue4963=func_ubound(_SUB_DEBUGMODE_ARRAY_UDT_BUTTON,1,1); +fornext_step4963= 1 ; +if (fornext_step4963<0) fornext_step_negative4963=1; else fornext_step_negative4963=0; +if (new_error) goto fornext_error4963; +goto fornext_entrylabel4963; +while(1){ +fornext_value4963=fornext_step4963+(*_SUB_DEBUGMODE_LONG_I); +fornext_entrylabel4963: +*_SUB_DEBUGMODE_LONG_I=fornext_value4963; +if (fornext_step_negative4963){ +if (fornext_value4963fornext_finalvalue4963) break; +} +fornext_error4963:; +if(qbevent){evnt(26070,8135,"ide_methods.bas");if(r)goto S_45192;} +S_45193:; +if (((-(*__LONG_MY==*(int16*)(((char*)_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[0])+((array_check((*_SUB_DEBUGMODE_LONG_I)-_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[4],_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[5]))*16+2))))&(-(*__LONG_MX>=*(int16*)(((char*)_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[0])+((array_check((*_SUB_DEBUGMODE_LONG_I)-_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[4],_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[5]))*16))))&(-(*__LONG_MX<=(*(int16*)(((char*)_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[0])+((array_check((*_SUB_DEBUGMODE_LONG_I)-_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[4],_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[5]))*16))+*(int16*)(((char*)_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[0])+((array_check((*_SUB_DEBUGMODE_LONG_I)-_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[4],_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[5]))*16+4)))))&(-(*(int8*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(32))== 0 ))&(-(*(int8*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(33))== 0 )))||new_error){ +if(qbevent){evnt(26070,8137,"ide_methods.bas");if(r)goto S_45193;} +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,8138,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_TEMP,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8139,"ide_methods.bas");}while(r); +}else{ +do{ +qbg_sub_color( 13 , 1 ,NULL,3); +if(!qbevent)break;evnt(26070,8141,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_TEMP,qbs_new_txt_len(" ",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8142,"ide_methods.bas");}while(r); +} +do{ +sub__printstring(*(int16*)(((char*)_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[0])+((array_check((*_SUB_DEBUGMODE_LONG_I)-_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[4],_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[5]))*16)),*(int16*)(((char*)_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[0])+((array_check((*_SUB_DEBUGMODE_LONG_I)-_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[4],_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[5]))*16+2)),qbs_add(*((qbs**)((char*)_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[0]+((array_check((*_SUB_DEBUGMODE_LONG_I)-_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[4],_SUB_DEBUGMODE_ARRAY_UDT_BUTTON[5]))*16+8))),_SUB_DEBUGMODE_STRING_TEMP),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8144,"ide_methods.bas");}while(r); +fornext_continue_4962:; +} +fornext_exit_4962:; +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,8146,"ide_methods.bas");}while(r); +do{ +#include "ret172.txt" +if(!qbevent)break;evnt(26070,8147,"ide_methods.bas");}while(r); +LABEL_GETVARSIZE:; +if(qbevent){evnt(26070,8149,"ide_methods.bas");r=0;} +do{ +*_SUB_DEBUGMODE_LONG_VARSIZE= 0 ; +if(!qbevent)break;evnt(26070,8150,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DEBUGMODE_STRING_VARTYPE,*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_SUB_DEBUGMODE_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+48)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8151,"ide_methods.bas");}while(r); +LABEL_CHECKVARTYPE:; +if(qbevent){evnt(26070,8152,"ide_methods.bas");r=0;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,_SUB_DEBUGMODE_STRING_VARTYPE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8153,"ide_methods.bas");}while(r); +S_45207:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("STRING *",8),0)))||new_error){ +if(qbevent){evnt(26070,8154,"ide_methods.bas");if(r)goto S_45207;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("STRING",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8154,"ide_methods.bas");}while(r); +} +S_45210:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("BIT *",5),0)))||new_error){ +if(qbevent){evnt(26070,8155,"ide_methods.bas");if(r)goto S_45210;} +S_45211:; +if ((qbs_cleanup(qbs_tmp_base,-(func_val(func_mid(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,func__instrrev(NULL,_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len(" ",1),0)+ 1 ,NULL,0))> 32 )))||new_error){ +if(qbevent){evnt(26070,8156,"ide_methods.bas");if(r)goto S_45211;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_INTEGER64",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8157,"ide_methods.bas");}while(r); +S_45213:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_DEBUGMODE_STRING_VARTYPE,qbs_new_txt_len("UNSIGNED",8),0)))||new_error){ +if(qbevent){evnt(26070,8158,"ide_methods.bas");if(r)goto S_45213;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_UNSIGNED _INTEGER64",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8158,"ide_methods.bas");}while(r); +} +}else{ +do{ +qbs_set(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("LONG",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8160,"ide_methods.bas");}while(r); +S_45218:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_DEBUGMODE_STRING_VARTYPE,qbs_new_txt_len("UNSIGNED",8),0)))||new_error){ +if(qbevent){evnt(26070,8161,"ide_methods.bas");if(r)goto S_45218;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_UNSIGNED LONG",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8161,"ide_methods.bas");}while(r); +} +} +S_45222:; +}else{ +if (qbs_cleanup(qbs_tmp_base,func_instr(NULL,qbs_new_txt_len("@_BIT@BIT@_UNSIGNED _BIT@UNSIGNED BIT@",38),qbs_add(qbs_add(qbs_new_txt_len("@",1),_SUB_DEBUGMODE_STRING_TEMPVARTYPE),qbs_new_txt_len("@",1)),0))){ +if(qbevent){evnt(26070,8163,"ide_methods.bas");if(r)goto S_45222;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("LONG",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8164,"ide_methods.bas");}while(r); +S_45224:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_DEBUGMODE_STRING_VARTYPE,qbs_new_txt_len("UNSIGNED",8),0)))||new_error){ +if(qbevent){evnt(26070,8165,"ide_methods.bas");if(r)goto S_45224;} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_UNSIGNED LONG",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8165,"ide_methods.bas");}while(r); +} +} +} +S_45228:; +if(qbevent){evnt(26070,8167,"ide_methods.bas");if(r)goto S_45228;} +S_45229:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_BYTE",5))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_UNSIGNED _BYTE",15))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("BYTE",4))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("UNSIGNED BYTE",13))))||new_error){ +if(qbevent){evnt(26070,8168,"ide_methods.bas");if(r)goto S_45229;} +do{ +*_SUB_DEBUGMODE_LONG_VARSIZE=1; +if(!qbevent)break;evnt(26070,8168,"ide_methods.bas");}while(r); +sc_ec_306_end:; +goto sc_4964_end; +} +S_45231:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("INTEGER",7))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_UNSIGNED INTEGER",17))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("UNSIGNED INTEGER",16))))||new_error){ +if(qbevent){evnt(26070,8169,"ide_methods.bas");if(r)goto S_45231;} +do{ +*_SUB_DEBUGMODE_LONG_VARSIZE=2; +if(!qbevent)break;evnt(26070,8169,"ide_methods.bas");}while(r); +sc_ec_307_end:; +goto sc_4964_end; +} +S_45233:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("LONG",4))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_UNSIGNED LONG",14))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("UNSIGNED LONG",13))))||new_error){ +if(qbevent){evnt(26070,8170,"ide_methods.bas");if(r)goto S_45233;} +do{ +*_SUB_DEBUGMODE_LONG_VARSIZE=4; +if(!qbevent)break;evnt(26070,8170,"ide_methods.bas");}while(r); +sc_ec_308_end:; +goto sc_4964_end; +} +S_45235:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_INTEGER64",10))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_UNSIGNED _INTEGER64",20))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("INTEGER64",9))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("UNSIGNED INTEGER64",18))))||new_error){ +if(qbevent){evnt(26070,8171,"ide_methods.bas");if(r)goto S_45235;} +do{ +*_SUB_DEBUGMODE_LONG_VARSIZE=8; +if(!qbevent)break;evnt(26070,8171,"ide_methods.bas");}while(r); +sc_ec_309_end:; +goto sc_4964_end; +} +S_45237:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("SINGLE",6))))||new_error){ +if(qbevent){evnt(26070,8172,"ide_methods.bas");if(r)goto S_45237;} +do{ +*_SUB_DEBUGMODE_LONG_VARSIZE=4; +if(!qbevent)break;evnt(26070,8172,"ide_methods.bas");}while(r); +sc_ec_310_end:; +goto sc_4964_end; +} +S_45239:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("DOUBLE",6))))||new_error){ +if(qbevent){evnt(26070,8173,"ide_methods.bas");if(r)goto S_45239;} +do{ +*_SUB_DEBUGMODE_LONG_VARSIZE=8; +if(!qbevent)break;evnt(26070,8173,"ide_methods.bas");}while(r); +sc_ec_311_end:; +goto sc_4964_end; +} +S_45241:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_FLOAT",6))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("FLOAT",5))))||new_error){ +if(qbevent){evnt(26070,8174,"ide_methods.bas");if(r)goto S_45241;} +do{ +*_SUB_DEBUGMODE_LONG_VARSIZE=32; +if(!qbevent)break;evnt(26070,8174,"ide_methods.bas");}while(r); +sc_ec_312_end:; +goto sc_4964_end; +} +S_45243:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_OFFSET",7))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("_UNSIGNED _OFFSET",17))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("OFFSET",6))||qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("UNSIGNED OFFSET",15))))||new_error){ +if(qbevent){evnt(26070,8175,"ide_methods.bas");if(r)goto S_45243;} +do{ +*_SUB_DEBUGMODE_LONG_VARSIZE=8; +if(!qbevent)break;evnt(26070,8175,"ide_methods.bas");}while(r); +sc_ec_313_end:; +goto sc_4964_end; +} +S_45245:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_DEBUGMODE_STRING_TEMPVARTYPE,qbs_new_txt_len("STRING",6))))||new_error){ +if(qbevent){evnt(26070,8176,"ide_methods.bas");if(r)goto S_45245;} +do{ +*_SUB_DEBUGMODE_LONG_VARSIZE=8+4; +if(!qbevent)break;evnt(26070,8176,"ide_methods.bas");}while(r); +sc_ec_314_end:; +goto sc_4964_end; +} +do{ +qbs_set(_SUB_DEBUGMODE_STRING_VARTYPE,FUNC_GETELEMENT(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_SUB_DEBUGMODE_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),_SUB_DEBUGMODE_LONG_TEMPELEMENT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8178,"ide_methods.bas");}while(r); +S_45249:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_DEBUGMODE_STRING_VARTYPE,qbs_new_txt_len("STRING *",8),0)))||new_error){ +if(qbevent){evnt(26070,8179,"ide_methods.bas");if(r)goto S_45249;} +do{ +*_SUB_DEBUGMODE_LONG_VARSIZE=qbr(func_val(qbs__trim(func_mid(_SUB_DEBUGMODE_STRING_VARTYPE,func_instr(NULL,_SUB_DEBUGMODE_STRING_VARTYPE,qbs_new_txt_len("STRING *",8),0)+ 8 ,NULL,0)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8181,"ide_methods.bas");}while(r); +do{ +#include "ret172.txt" +if(!qbevent)break;evnt(26070,8182,"ide_methods.bas");}while(r); +} +S_45253:; +if ((qbs_cleanup(qbs_tmp_base,_SUB_DEBUGMODE_STRING_VARTYPE->len))||new_error){ +if(qbevent){evnt(26070,8184,"ide_methods.bas");if(r)goto S_45253;} +do{ +goto LABEL_CHECKVARTYPE; +if(!qbevent)break;evnt(26070,8184,"ide_methods.bas");}while(r); +} +sc_4964_end:; +do{ +#include "ret172.txt" +if(!qbevent)break;evnt(26070,8186,"ide_methods.bas");}while(r); +LABEL_PRINTVERSION:; +if(qbevent){evnt(26070,8188,"ide_methods.bas");r=0;} +S_45258:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_VERSIONSTRINGSTATUS->len== 0 )))||new_error){ +if(qbevent){evnt(26070,8190,"ide_methods.bas");if(r)goto S_45258;} +do{ +qbs_set(__STRING_VERSIONSTRINGSTATUS,qbs_add(qbs_new_txt_len(" v",2),__STRING_VERSION)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8191,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_VERSIONSTRINGSTATUS,qbs_add(__STRING_VERSIONSTRINGSTATUS,qbs_new_txt_len(" ",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8192,"ide_methods.bas");}while(r); +} +do{ +qbg_sub_color( 2 , 3 ,NULL,3); +if(!qbevent)break;evnt(26070,8194,"ide_methods.bas");}while(r); +do{ +sub__printstring(*__LONG_IDEWX- 21 -__STRING_VERSIONSTRINGSTATUS->len,*__LONG_IDEWY+*__LONG_IDESUBWINDOW,__STRING_VERSIONSTRINGSTATUS,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8195,"ide_methods.bas");}while(r); +do{ +#include "ret172.txt" +if(!qbevent)break;evnt(26070,8196,"ide_methods.bas");}while(r); +LABEL_CHECKVWATCHPANELSIZE:; +if(qbevent){evnt(26070,8198,"ide_methods.bas");r=0;} +S_45265:; +if ((-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4))< 40 ))||new_error){ +if(qbevent){evnt(26070,8199,"ide_methods.bas");if(r)goto S_45265;} +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4))= 40 ; +if(!qbevent)break;evnt(26070,8199,"ide_methods.bas");}while(r); +} +S_45268:; +if ((-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4))>(*__LONG_IDEWX- 12 )))||new_error){ +if(qbevent){evnt(26070,8200,"ide_methods.bas");if(r)goto S_45268;} +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4))=*__LONG_IDEWX- 12 ; +if(!qbevent)break;evnt(26070,8200,"ide_methods.bas");}while(r); +} +S_45271:; +if ((-((*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(0))+*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4)))>(*__LONG_IDEWX- 1 )))||new_error){ +if(qbevent){evnt(26070,8201,"ide_methods.bas");if(r)goto S_45271;} +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(4))=(*__LONG_IDEWX- 1 )-*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(0)); +if(!qbevent)break;evnt(26070,8202,"ide_methods.bas");}while(r); +} +S_45274:; +if ((-((*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(2))+*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6)))>*_SUB_DEBUGMODE_LONG_VWATCHPANELLIMIT))||new_error){ +if(qbevent){evnt(26070,8204,"ide_methods.bas");if(r)goto S_45274;} +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6))=*_SUB_DEBUGMODE_LONG_VWATCHPANELLIMIT-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(2))- 1 ); +if(!qbevent)break;evnt(26070,8205,"ide_methods.bas");}while(r); +} +S_45277:; +if ((-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6))< 5 ))||new_error){ +if(qbevent){evnt(26070,8207,"ide_methods.bas");if(r)goto S_45277;} +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6))= 5 ; +if(!qbevent)break;evnt(26070,8207,"ide_methods.bas");}while(r); +} +S_45280:; +if ((-(*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6))>(*__LONG_IDEWY- 10 )))||new_error){ +if(qbevent){evnt(26070,8208,"ide_methods.bas");if(r)goto S_45280;} +do{ +*(int16*)(((char*)_SUB_DEBUGMODE_UDT_VWATCHPANEL)+(6))=*__LONG_IDEWY- 10 ; +if(!qbevent)break;evnt(26070,8208,"ide_methods.bas");}while(r); +} +do{ +#include "ret172.txt" +if(!qbevent)break;evnt(26070,8209,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free172.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +float FUNC_MAP(float*_FUNC_MAP_SINGLE_VALUE,float*_FUNC_MAP_SINGLE_MINRANGE,float*_FUNC_MAP_SINGLE_MAXRANGE,float*_FUNC_MAP_SINGLE_NEWMINRANGE,float*_FUNC_MAP_SINGLE_NEWMAXRANGE){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data173.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +*_FUNC_MAP_SINGLE_MAP=(((*_FUNC_MAP_SINGLE_VALUE-*_FUNC_MAP_SINGLE_MINRANGE)/ (*_FUNC_MAP_SINGLE_MAXRANGE-*_FUNC_MAP_SINGLE_MINRANGE))*(*_FUNC_MAP_SINGLE_NEWMAXRANGE-*_FUNC_MAP_SINGLE_NEWMINRANGE))+*_FUNC_MAP_SINGLE_NEWMINRANGE; +if(!qbevent)break;evnt(26070,8213,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free173.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +return *_FUNC_MAP_SINGLE_MAP; +} +void SUB_SHOWVWATCHPANEL(void*_SUB_SHOWVWATCHPANEL_UDT_THIS,qbs*_SUB_SHOWVWATCHPANEL_STRING_CURRENTSCOPE,int8*_SUB_SHOWVWATCHPANEL_BYTE_ACTION){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data174.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +if(!qbevent)break;evnt(26070,8217,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26070,8218,"ide_methods.bas");}while(r); +S_45287:; +if ((-(*_SUB_SHOWVWATCHPANEL_BYTE_ACTION== 1 ))||new_error){ +if(qbevent){evnt(26070,8220,"ide_methods.bas");if(r)goto S_45287;} +do{ +qbs_set(_SUB_SHOWVWATCHPANEL_STRING_PREVIOUSVARIABLEWATCHLIST,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8220,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,8220,"ide_methods.bas");}while(r); +} +S_45291:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_SHOWVWATCHPANEL_STRING_PREVIOUSVARIABLEWATCHLIST,__STRING_VARIABLEWATCHLIST)))||new_error){ +if(qbevent){evnt(26070,8222,"ide_methods.bas");if(r)goto S_45291;} +do{ +qbs_set(_SUB_SHOWVWATCHPANEL_STRING_PREVIOUSVARIABLEWATCHLIST,__STRING_VARIABLEWATCHLIST); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8224,"ide_methods.bas");}while(r); +do{ +*_SUB_SHOWVWATCHPANEL_LONG_LONGESTVARNAME=string2l(qbs_left(__STRING_VARIABLEWATCHLIST, 4 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8225,"ide_methods.bas");}while(r); +do{ +*_SUB_SHOWVWATCHPANEL_LONG_TOTALVISIBLEVARIABLES=string2l(func_mid(__STRING_VARIABLEWATCHLIST, 5 , 4 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8226,"ide_methods.bas");}while(r); +do{ +*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(6))=*_SUB_SHOWVWATCHPANEL_LONG_TOTALVISIBLEVARIABLES+ 2 ; +if(!qbevent)break;evnt(26070,8227,"ide_methods.bas");}while(r); +S_45296:; +if ((-(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(6))>(*__LONG_IDEWY- 10 )))||new_error){ +if(qbevent){evnt(26070,8228,"ide_methods.bas");if(r)goto S_45296;} +do{ +*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(6))=*__LONG_IDEWY- 10 ; +if(!qbevent)break;evnt(26070,8228,"ide_methods.bas");}while(r); +} +S_45299:; +if ((-(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(6))< 5 ))||new_error){ +if(qbevent){evnt(26070,8229,"ide_methods.bas");if(r)goto S_45299;} +do{ +*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(6))= 5 ; +if(!qbevent)break;evnt(26070,8229,"ide_methods.bas");}while(r); +} +} +do{ +*_SUB_SHOWVWATCHPANEL_LONG_FG= 0 ; +if(!qbevent)break;evnt(26070,8232,"ide_methods.bas");}while(r); +do{ +*_SUB_SHOWVWATCHPANEL_LONG_BG= 7 ; +if(!qbevent)break;evnt(26070,8232,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_SHOWVWATCHPANEL_STRING_TITLE,qbs_new_txt_len("Watch List",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8234,"ide_methods.bas");}while(r); +S_45306:; +if ((qbs_cleanup(qbs_tmp_base,_SUB_SHOWVWATCHPANEL_STRING_CURRENTSCOPE->len))||new_error){ +if(qbevent){evnt(26070,8235,"ide_methods.bas");if(r)goto S_45306;} +do{ +qbs_set(_SUB_SHOWVWATCHPANEL_STRING_TITLE,qbs_add(qbs_add(_SUB_SHOWVWATCHPANEL_STRING_TITLE,qbs_new_txt_len(" - ",3)),_SUB_SHOWVWATCHPANEL_STRING_CURRENTSCOPE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8235,"ide_methods.bas");}while(r); +} +S_45309:; +if ((qbs_cleanup(qbs_tmp_base,-(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(4))<(_SUB_SHOWVWATCHPANEL_STRING_TITLE->len+ 4 ))))||new_error){ +if(qbevent){evnt(26070,8236,"ide_methods.bas");if(r)goto S_45309;} +do{ +*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(4))=_SUB_SHOWVWATCHPANEL_STRING_TITLE->len+ 4 ; +if(!qbevent)break;evnt(26070,8237,"ide_methods.bas");}while(r); +S_45311:; +if ((-((*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(0))+*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(4))+ 2 )>*__LONG_IDEWX))||new_error){ +if(qbevent){evnt(26070,8238,"ide_methods.bas");if(r)goto S_45311;} +do{ +*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(0))=*__LONG_IDEWX-(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(4))+ 2 ); +if(!qbevent)break;evnt(26070,8238,"ide_methods.bas");}while(r); +} +} +S_45315:; +if ((-(*__BYTE_WATCHLISTTOCONSOLE== 0 ))||new_error){ +if(qbevent){evnt(26070,8241,"ide_methods.bas");if(r)goto S_45315;} +do{ +*_SUB_SHOWVWATCHPANEL_LONG_VWATCHPANELLIMIT=*__LONG_IDEWY- 6 ; +if(!qbevent)break;evnt(26070,8242,"ide_methods.bas");}while(r); +S_45317:; +if ((-(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(0))< 2 ))||new_error){ +if(qbevent){evnt(26070,8244,"ide_methods.bas");if(r)goto S_45317;} +do{ +*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(0))= 2 ; +if(!qbevent)break;evnt(26070,8244,"ide_methods.bas");}while(r); +} +S_45320:; +if ((-((*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(0))+*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(4)))>(*__LONG_IDEWX- 1 )))||new_error){ +if(qbevent){evnt(26070,8245,"ide_methods.bas");if(r)goto S_45320;} +do{ +*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(0))=*__LONG_IDEWX-*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(4))- 1 ; +if(!qbevent)break;evnt(26070,8245,"ide_methods.bas");}while(r); +} +S_45323:; +if ((-(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(2))< 3 ))||new_error){ +if(qbevent){evnt(26070,8246,"ide_methods.bas");if(r)goto S_45323;} +do{ +*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(2))= 3 ; +if(!qbevent)break;evnt(26070,8246,"ide_methods.bas");}while(r); +} +S_45326:; +if ((-(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(2))>(*_SUB_SHOWVWATCHPANEL_LONG_VWATCHPANELLIMIT-(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(6))- 1 ))))||new_error){ +if(qbevent){evnt(26070,8247,"ide_methods.bas");if(r)goto S_45326;} +do{ +*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(2))=*_SUB_SHOWVWATCHPANEL_LONG_VWATCHPANELLIMIT-(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(6))- 1 ); +if(!qbevent)break;evnt(26070,8247,"ide_methods.bas");}while(r); +} +S_45329:; +if ((-(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(4))< 40 ))||new_error){ +if(qbevent){evnt(26070,8249,"ide_methods.bas");if(r)goto S_45329;} +do{ +*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(4))= 40 ; +if(!qbevent)break;evnt(26070,8249,"ide_methods.bas");}while(r); +} +S_45332:; +if ((-(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(4))>(*__LONG_IDEWX- 12 )))||new_error){ +if(qbevent){evnt(26070,8250,"ide_methods.bas");if(r)goto S_45332;} +do{ +*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(4))=*__LONG_IDEWX- 12 ; +if(!qbevent)break;evnt(26070,8250,"ide_methods.bas");}while(r); +} +S_45335:; +if ((-((*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(0))+*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(4)))>(*__LONG_IDEWX- 1 )))||new_error){ +if(qbevent){evnt(26070,8251,"ide_methods.bas");if(r)goto S_45335;} +do{ +*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(4))=(*__LONG_IDEWX- 1 )-*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(0)); +if(!qbevent)break;evnt(26070,8252,"ide_methods.bas");}while(r); +} +S_45338:; +if ((-((*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(2))+*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(6)))>*_SUB_SHOWVWATCHPANEL_LONG_VWATCHPANELLIMIT))||new_error){ +if(qbevent){evnt(26070,8254,"ide_methods.bas");if(r)goto S_45338;} +do{ +*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(6))=*_SUB_SHOWVWATCHPANEL_LONG_VWATCHPANELLIMIT-(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(2))- 1 ); +if(!qbevent)break;evnt(26070,8255,"ide_methods.bas");}while(r); +} +S_45341:; +if ((-(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(6))< 5 ))||new_error){ +if(qbevent){evnt(26070,8257,"ide_methods.bas");if(r)goto S_45341;} +do{ +*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(6))= 5 ; +if(!qbevent)break;evnt(26070,8257,"ide_methods.bas");}while(r); +} +S_45344:; +if ((-(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(6))>(*__LONG_IDEWY- 10 )))||new_error){ +if(qbevent){evnt(26070,8258,"ide_methods.bas");if(r)goto S_45344;} +do{ +*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(6))=*__LONG_IDEWY- 10 ; +if(!qbevent)break;evnt(26070,8258,"ide_methods.bas");}while(r); +} +do{ +qbg_sub_color(*_SUB_SHOWVWATCHPANEL_LONG_FG,*_SUB_SHOWVWATCHPANEL_LONG_BG,NULL,3); +if(!qbevent)break;evnt(26070,8260,"ide_methods.bas");}while(r); +do{ +SUB_IDEBOXSHADOW(&(pass4982=*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(0))),&(pass4983=*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(2))),&(pass4984=*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(4))),&(pass4985=*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(6)))); +if(!qbevent)break;evnt(26070,8261,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 15 ,*_SUB_SHOWVWATCHPANEL_LONG_BG,NULL,3); +if(!qbevent)break;evnt(26070,8262,"ide_methods.bas");}while(r); +do{ +sub__printstring(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(0))+*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(4))- 1 ,*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(2))+*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(6))- 1 ,func_chr( 254 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8263,"ide_methods.bas");}while(r); +do{ +*_SUB_SHOWVWATCHPANEL_LONG_X=_SUB_SHOWVWATCHPANEL_STRING_TITLE->len+ 2 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8265,"ide_methods.bas");}while(r); +do{ +qbg_sub_color(*_SUB_SHOWVWATCHPANEL_LONG_FG,*_SUB_SHOWVWATCHPANEL_LONG_BG,NULL,3); +if(!qbevent)break;evnt(26070,8266,"ide_methods.bas");}while(r); +do{ +sub__printstring(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(0))+((*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(4))/ 2 ))-((*_SUB_SHOWVWATCHPANEL_LONG_X- 1 )/ 2 ),*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(2)),qbs_add(qbs_add(qbs_new_txt_len(" ",1),_SUB_SHOWVWATCHPANEL_STRING_TITLE),qbs_new_txt_len(" ",1)),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8267,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 15 , 4 ,NULL,3); +if(!qbevent)break;evnt(26070,8268,"ide_methods.bas");}while(r); +do{ +sub__printstring(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(0))+*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(4))- 3 ,*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(2)),qbs_new_txt_len(" x ",3),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8269,"ide_methods.bas");}while(r); +do{ +qbg_sub_color(NULL,*_SUB_SHOWVWATCHPANEL_LONG_BG,NULL,2); +if(!qbevent)break;evnt(26070,8270,"ide_methods.bas");}while(r); +}else{ +do{ +sub__echo(qbs_add(qbs_new_txt_len("-------- ",9),_SUB_SHOWVWATCHPANEL_STRING_TITLE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8272,"ide_methods.bas");}while(r); +} +do{ +*_SUB_SHOWVWATCHPANEL_LONG_Y= 0 ; +if(!qbevent)break;evnt(26070,8275,"ide_methods.bas");}while(r); +do{ +*_SUB_SHOWVWATCHPANEL_LONG_I= 0 ; +if(!qbevent)break;evnt(26070,8276,"ide_methods.bas");}while(r); +do{ +*_SUB_SHOWVWATCHPANEL_LONG_SHADOWX= 0 ; +if(!qbevent)break;evnt(26070,8277,"ide_methods.bas");}while(r); +do{ +*_SUB_SHOWVWATCHPANEL_LONG_SHADOWY= 0 ; +if(!qbevent)break;evnt(26070,8278,"ide_methods.bas");}while(r); +do{ +*_SUB_SHOWVWATCHPANEL_LONG_SHADOWLENGTH= 0 ; +if(!qbevent)break;evnt(26070,8279,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(24))= 0 ; +if(!qbevent)break;evnt(26070,8280,"ide_methods.bas");}while(r); +S_45366:; +if ((-(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(10))== 0 ))||new_error){ +if(qbevent){evnt(26070,8281,"ide_methods.bas");if(r)goto S_45366;} +do{ +*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(10))= 1 ; +if(!qbevent)break;evnt(26070,8281,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_SHOWVWATCHPANEL_STRING_TEMP,FUNC_GETBYTES(qbs_new_txt_len("",0),&(pass4987= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8282,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_SHOWVWATCHPANEL_STRING_TEMP,func_mid(__STRING_VARIABLEWATCHLIST, 9 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8283,"ide_methods.bas");}while(r); +do{ +*_SUB_SHOWVWATCHPANEL_LONG_ACTUALLONGESTVARNAME= 0 ; +if(!qbevent)break;evnt(26070,8284,"ide_methods.bas");}while(r); +do{ +*_SUB_SHOWVWATCHPANEL_LONG_DISPLAYFORMATBUTTON= 0 ; +if(!qbevent)break;evnt(26070,8285,"ide_methods.bas");}while(r); +S_45373:; +do{ +if(qbevent){evnt(26070,8286,"ide_methods.bas");if(r)goto S_45373;} +do{ +qbs_set(_SUB_SHOWVWATCHPANEL_STRING_TEMP2,FUNC_GETBYTES(_SUB_SHOWVWATCHPANEL_STRING_TEMP,&(pass4989= 4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8287,"ide_methods.bas");}while(r); +S_45375:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_SHOWVWATCHPANEL_STRING_TEMP2,l2string( -1 ))))||new_error){ +if(qbevent){evnt(26070,8288,"ide_methods.bas");if(r)goto S_45375;} +do{ +goto dl_exit_4988; +if(!qbevent)break;evnt(26070,8288,"ide_methods.bas");}while(r); +} +do{ +*_SUB_SHOWVWATCHPANEL_LONG_TEMPINDEX=string2l(FUNC_GETBYTES(_SUB_SHOWVWATCHPANEL_STRING_TEMP,&(pass4990= 4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8289,"ide_methods.bas");}while(r); +do{ +*_SUB_SHOWVWATCHPANEL_LONG_TEMPTOTALARRAYINDEXES=string2l(FUNC_GETBYTES(_SUB_SHOWVWATCHPANEL_STRING_TEMP,&(pass4991= 4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8290,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_SHOWVWATCHPANEL_STRING_TEMPARRAYINDEXES,FUNC_GETBYTES(_SUB_SHOWVWATCHPANEL_STRING_TEMP,_SUB_SHOWVWATCHPANEL_LONG_TEMPTOTALARRAYINDEXES)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8291,"ide_methods.bas");}while(r); +do{ +*_SUB_SHOWVWATCHPANEL_LONG_TEMPELEMENT=string2l(FUNC_GETBYTES(_SUB_SHOWVWATCHPANEL_STRING_TEMP,&(pass4992= 4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8292,"ide_methods.bas");}while(r); +do{ +*_SUB_SHOWVWATCHPANEL_LONG_TEMPELEMENTOFFSET=string2l(FUNC_GETBYTES(_SUB_SHOWVWATCHPANEL_STRING_TEMP,&(pass4993= 4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8293,"ide_methods.bas");}while(r); +do{ +*_SUB_SHOWVWATCHPANEL_LONG_TEMPSTORAGE=string2l(FUNC_GETBYTES(_SUB_SHOWVWATCHPANEL_STRING_TEMP,&(pass4994= 4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8294,"ide_methods.bas");}while(r); +do{ +*_SUB_SHOWVWATCHPANEL_LONG_I=*_SUB_SHOWVWATCHPANEL_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,8296,"ide_methods.bas");}while(r); +S_45385:; +if (((-(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(8))>*_SUB_SHOWVWATCHPANEL_LONG_I))&(-(*__BYTE_WATCHLISTTOCONSOLE== 0 )))||new_error){ +if(qbevent){evnt(26070,8297,"ide_methods.bas");if(r)goto S_45385;} +do{ +goto dl_continue_4988; +if(!qbevent)break;evnt(26070,8297,"ide_methods.bas");}while(r); +} +do{ +*_SUB_SHOWVWATCHPANEL_LONG_Y=*_SUB_SHOWVWATCHPANEL_LONG_Y+ 1 ; +if(!qbevent)break;evnt(26070,8298,"ide_methods.bas");}while(r); +S_45389:; +if (((-(*_SUB_SHOWVWATCHPANEL_LONG_Y>(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(6))- 2 )))&(-(*__BYTE_WATCHLISTTOCONSOLE== 0 )))||new_error){ +if(qbevent){evnt(26070,8299,"ide_methods.bas");if(r)goto S_45389;} +do{ +goto dl_exit_4988; +if(!qbevent)break;evnt(26070,8299,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_SHOWVWATCHPANEL_STRING_THISNAME,*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_SUB_SHOWVWATCHPANEL_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+32)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8301,"ide_methods.bas");}while(r); +S_45393:; +if ((*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_SHOWVWATCHPANEL_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+30)))||new_error){ +if(qbevent){evnt(26070,8302,"ide_methods.bas");if(r)goto S_45393;} +do{ +qbs_set(_SUB_SHOWVWATCHPANEL_STRING_THISNAME,qbs_left(_SUB_SHOWVWATCHPANEL_STRING_THISNAME,_SUB_SHOWVWATCHPANEL_STRING_THISNAME->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8303,"ide_methods.bas");}while(r); +do{ +*_SUB_SHOWVWATCHPANEL_LONG_TEMPTOTALARRAYINDEXES=*_SUB_SHOWVWATCHPANEL_LONG_TEMPTOTALARRAYINDEXES/ 4 ; +if(!qbevent)break;evnt(26070,8304,"ide_methods.bas");}while(r); +S_45396:; +fornext_value4997= 1 ; +fornext_finalvalue4997=*_SUB_SHOWVWATCHPANEL_LONG_TEMPTOTALARRAYINDEXES; +fornext_step4997= 1 ; +if (fornext_step4997<0) fornext_step_negative4997=1; else fornext_step_negative4997=0; +if (new_error) goto fornext_error4997; +goto fornext_entrylabel4997; +while(1){ +fornext_value4997=fornext_step4997+(*_SUB_SHOWVWATCHPANEL_LONG_J); +fornext_entrylabel4997: +*_SUB_SHOWVWATCHPANEL_LONG_J=fornext_value4997; +if (fornext_step_negative4997){ +if (fornext_value4997fornext_finalvalue4997) break; +} +fornext_error4997:; +if(qbevent){evnt(26070,8305,"ide_methods.bas");if(r)goto S_45396;} +do{ +qbs_set(_SUB_SHOWVWATCHPANEL_STRING_THISNAME,qbs_add(_SUB_SHOWVWATCHPANEL_STRING_THISNAME,qbs_ltrim(qbs_str((int32)(string2l(func_mid(_SUB_SHOWVWATCHPANEL_STRING_TEMPARRAYINDEXES,(*_SUB_SHOWVWATCHPANEL_LONG_J* 4 )-( 3 ), 4 ,0|1))))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8306,"ide_methods.bas");}while(r); +S_45398:; +if ((-(*_SUB_SHOWVWATCHPANEL_LONG_J<*_SUB_SHOWVWATCHPANEL_LONG_TEMPTOTALARRAYINDEXES))||new_error){ +if(qbevent){evnt(26070,8307,"ide_methods.bas");if(r)goto S_45398;} +do{ +qbs_set(_SUB_SHOWVWATCHPANEL_STRING_THISNAME,qbs_add(_SUB_SHOWVWATCHPANEL_STRING_THISNAME,qbs_new_txt_len(", ",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8307,"ide_methods.bas");}while(r); +} +fornext_continue_4996:; +} +fornext_exit_4996:; +do{ +qbs_set(_SUB_SHOWVWATCHPANEL_STRING_THISNAME,qbs_add(_SUB_SHOWVWATCHPANEL_STRING_THISNAME,qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8309,"ide_methods.bas");}while(r); +} +S_45404:; +if ((*_SUB_SHOWVWATCHPANEL_LONG_TEMPELEMENT)||new_error){ +if(qbevent){evnt(26070,8311,"ide_methods.bas");if(r)goto S_45404;} +do{ +qbs_set(_SUB_SHOWVWATCHPANEL_STRING_TEMPELEMENTLIST,func_mid(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_SUB_SHOWVWATCHPANEL_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+88))), 5 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8312,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_SHOWVWATCHPANEL_STRING_THISNAME,qbs_add(_SUB_SHOWVWATCHPANEL_STRING_THISNAME,FUNC_GETELEMENT(_SUB_SHOWVWATCHPANEL_STRING_TEMPELEMENTLIST,_SUB_SHOWVWATCHPANEL_LONG_TEMPELEMENT))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8313,"ide_methods.bas");}while(r); +} +S_45408:; +if ((qbs_cleanup(qbs_tmp_base,-(_SUB_SHOWVWATCHPANEL_STRING_THISNAME->len>*_SUB_SHOWVWATCHPANEL_LONG_ACTUALLONGESTVARNAME)))||new_error){ +if(qbevent){evnt(26070,8315,"ide_methods.bas");if(r)goto S_45408;} +do{ +*_SUB_SHOWVWATCHPANEL_LONG_ACTUALLONGESTVARNAME=_SUB_SHOWVWATCHPANEL_STRING_THISNAME->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8315,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_SHOWVWATCHPANEL_STRING_ITEM,qbs_add(qbs_add(_SUB_SHOWVWATCHPANEL_STRING_THISNAME,func_space(*_SUB_SHOWVWATCHPANEL_LONG_LONGESTVARNAME-_SUB_SHOWVWATCHPANEL_STRING_THISNAME->len)),qbs_new_txt_len(" = ",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8316,"ide_methods.bas");}while(r); +S_45412:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_SUB_SHOWVWATCHPANEL_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+64))),_SUB_SHOWVWATCHPANEL_STRING_CURRENTSCOPE))|(qbs_equal(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_SUB_SHOWVWATCHPANEL_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+64))),qbs_new_txt_len("",0)))))||new_error){ +if(qbevent){evnt(26070,8317,"ide_methods.bas");if(r)goto S_45412;} +S_45413:; +if ((*_SUB_SHOWVWATCHPANEL_LONG_TEMPELEMENT)||new_error){ +if(qbevent){evnt(26070,8318,"ide_methods.bas");if(r)goto S_45413;} +do{ +qbs_set(_SUB_SHOWVWATCHPANEL_STRING_TEMPVARTYPE,FUNC_GETELEMENT(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_SUB_SHOWVWATCHPANEL_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),_SUB_SHOWVWATCHPANEL_LONG_TEMPELEMENT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8319,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_SHOWVWATCHPANEL_STRING_TEMPVARTYPE,*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_SUB_SHOWVWATCHPANEL_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+48)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8321,"ide_methods.bas");}while(r); +} +do{ +*_SUB_SHOWVWATCHPANEL_LONG_THISISASTRING=((-(func_instr(NULL,_SUB_SHOWVWATCHPANEL_STRING_TEMPVARTYPE,qbs_new_txt_len("STRING *",8),0)> 0 ))|(qbs_equal(_SUB_SHOWVWATCHPANEL_STRING_TEMPVARTYPE,qbs_new_txt_len("STRING",6)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8323,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_SHOWVWATCHPANEL_STRING_TEMPVALUE,FUNC_STRREPLACE(((qbs*)(((uint64*)(__ARRAY_STRING_VWATCHRECEIVEDDATA[0]))[array_check((*_SUB_SHOWVWATCHPANEL_LONG_TEMPSTORAGE)-__ARRAY_STRING_VWATCHRECEIVEDDATA[4],__ARRAY_STRING_VWATCHRECEIVEDDATA[5])])),func_chr( 0 ),qbs_new_txt_len(" ",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8324,"ide_methods.bas");}while(r); +S_45420:; +if ((*_SUB_SHOWVWATCHPANEL_LONG_THISISASTRING)||new_error){ +if(qbevent){evnt(26070,8325,"ide_methods.bas");if(r)goto S_45420;} +do{ +qbs_set(_SUB_SHOWVWATCHPANEL_STRING_ITEM,qbs_add(qbs_add(qbs_add(_SUB_SHOWVWATCHPANEL_STRING_ITEM,func_chr( 34 )),_SUB_SHOWVWATCHPANEL_STRING_TEMPVALUE),func_chr( 34 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8326,"ide_methods.bas");}while(r); +S_45422:; +if ((-(*_SUB_SHOWVWATCHPANEL_LONG_DISPLAYFORMATBUTTON> 0 ))||new_error){ +if(qbevent){evnt(26070,8327,"ide_methods.bas");if(r)goto S_45422;} +do{ +*_SUB_SHOWVWATCHPANEL_LONG_DISPLAYFORMATBUTTON= 0 ; +if(!qbevent)break;evnt(26070,8327,"ide_methods.bas");}while(r); +} +}else{ +S_45426:; +if (((-(*_SUB_SHOWVWATCHPANEL_LONG_DISPLAYFORMATBUTTON== 0 ))&(-(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(22))==(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(2))+*_SUB_SHOWVWATCHPANEL_LONG_Y))))||new_error){ +if(qbevent){evnt(26070,8329,"ide_methods.bas");if(r)goto S_45426;} +do{ +*_SUB_SHOWVWATCHPANEL_LONG_DISPLAYFORMATBUTTON=_SUB_SHOWVWATCHPANEL_STRING_ITEM->len+ 2 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8329,"ide_methods.bas");}while(r); +} +S_45429:; +if ((*__BYTE_WATCHLISTTOCONSOLE)||new_error){ +if(qbevent){evnt(26070,8330,"ide_methods.bas");if(r)goto S_45429;} +do{ +*_SUB_SHOWVWATCHPANEL_LONG_DISPLAYFORMATBUTTON= 0 ; +if(!qbevent)break;evnt(26070,8330,"ide_methods.bas");}while(r); +} +S_45432:; +sc_5002=*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_SHOWVWATCHPANEL_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+31)); +if(qbevent){evnt(26070,8332,"ide_methods.bas");if(r)goto S_45432;} +S_45433:; +if (((sc_5002==( 1 )))||new_error){ +if(qbevent){evnt(26070,8334,"ide_methods.bas");if(r)goto S_45433;} +do{ +qbs_set(_SUB_SHOWVWATCHPANEL_STRING_TEMPVALUE,qbs_add(qbs_new_txt_len("&H",2),func_hex_float(func_val(_SUB_SHOWVWATCHPANEL_STRING_TEMPVALUE)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8334,"ide_methods.bas");}while(r); +sc_ec_315_end:; +goto sc_5002_end; +} +S_45435:; +if (((sc_5002==( 2 )))||new_error){ +if(qbevent){evnt(26070,8335,"ide_methods.bas");if(r)goto S_45435;} +do{ +qbs_set(_SUB_SHOWVWATCHPANEL_STRING_TEMPVALUE,qbs_add(qbs_new_txt_len("&B",2),func__bin_float(func_val(_SUB_SHOWVWATCHPANEL_STRING_TEMPVALUE)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8335,"ide_methods.bas");}while(r); +sc_ec_316_end:; +goto sc_5002_end; +} +S_45437:; +if (((sc_5002==( 3 )))||new_error){ +if(qbevent){evnt(26070,8336,"ide_methods.bas");if(r)goto S_45437;} +do{ +qbs_set(_SUB_SHOWVWATCHPANEL_STRING_TEMPVALUE,qbs_add(qbs_new_txt_len("&O",2),func_oct_float(func_val(_SUB_SHOWVWATCHPANEL_STRING_TEMPVALUE)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8336,"ide_methods.bas");}while(r); +sc_ec_317_end:; +goto sc_5002_end; +} +sc_5002_end:; +do{ +qbs_set(_SUB_SHOWVWATCHPANEL_STRING_ITEM,qbs_add(_SUB_SHOWVWATCHPANEL_STRING_ITEM,_SUB_SHOWVWATCHPANEL_STRING_TEMPVALUE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8338,"ide_methods.bas");}while(r); +} +do{ +qbg_sub_color(*_SUB_SHOWVWATCHPANEL_LONG_FG,NULL,NULL,1); +if(!qbevent)break;evnt(26070,8340,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_SHOWVWATCHPANEL_STRING_ITEM,qbs_add(_SUB_SHOWVWATCHPANEL_STRING_ITEM,qbs_new_txt_len("",14))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8342,"ide_methods.bas");}while(r); +S_45445:; +if ((-(*__BYTE_WATCHLISTTOCONSOLE== 0 ))||new_error){ +if(qbevent){evnt(26070,8343,"ide_methods.bas");if(r)goto S_45445;} +do{ +qbg_sub_color( 2 ,NULL,NULL,1); +if(!qbevent)break;evnt(26070,8343,"ide_methods.bas");}while(r); +} +} +S_45449:; +if ((qbs_cleanup(qbs_tmp_base,-(_SUB_SHOWVWATCHPANEL_STRING_ITEM->len>*(int32*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(24)))))||new_error){ +if(qbevent){evnt(26070,8345,"ide_methods.bas");if(r)goto S_45449;} +do{ +*(int32*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(24))=_SUB_SHOWVWATCHPANEL_STRING_ITEM->len; +if(!qbevent)break;evnt(26070,8345,"ide_methods.bas");}while(r); +} +S_45452:; +if ((-(*__BYTE_WATCHLISTTOCONSOLE== 0 ))||new_error){ +if(qbevent){evnt(26070,8346,"ide_methods.bas");if(r)goto S_45452;} +do{ +qbs_set(_SUB_SHOWVWATCHPANEL_STRING_TEMP2,func_mid(_SUB_SHOWVWATCHPANEL_STRING_ITEM,*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(10)),NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8347,"ide_methods.bas");}while(r); +do{ +sub__printstring(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(0))+ 2 ,*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(2))+*_SUB_SHOWVWATCHPANEL_LONG_Y,qbs_left(_SUB_SHOWVWATCHPANEL_STRING_TEMP2,*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(4))- 4 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8348,"ide_methods.bas");}while(r); +S_45455:; +if ((qbs_cleanup(qbs_tmp_base,-((*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(0))+ 2 +_SUB_SHOWVWATCHPANEL_STRING_TEMP2->len)>(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(0))+*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(4))- 2 ))))||new_error){ +if(qbevent){evnt(26070,8349,"ide_methods.bas");if(r)goto S_45455;} +do{ +sub__printstring(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(0))+*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(4))- 2 ,*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(2))+*_SUB_SHOWVWATCHPANEL_LONG_Y,func_chr( 26 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8350,"ide_methods.bas");}while(r); +} +S_45458:; +if (((-(*_SUB_SHOWVWATCHPANEL_LONG_DISPLAYFORMATBUTTON> 0 ))&(-(*_SUB_SHOWVWATCHPANEL_LONG_DISPLAYFORMATBUTTON>=*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(10))))&(-((*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(0))+*_SUB_SHOWVWATCHPANEL_LONG_DISPLAYFORMATBUTTON-*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(10)))<(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(0))+*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(4))- 4 )))&(-((*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(0))+*_SUB_SHOWVWATCHPANEL_LONG_DISPLAYFORMATBUTTON-*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(10)))>(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(0))+ 1 ))))||new_error){ +if(qbevent){evnt(26070,8356,"ide_methods.bas");if(r)goto S_45458;} +do{ +qbg_sub_color( 15 ,NULL,NULL,1); +if(!qbevent)break;evnt(26070,8357,"ide_methods.bas");}while(r); +S_45460:; +if (((-(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(22))==(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(2))+*_SUB_SHOWVWATCHPANEL_LONG_Y)))&(-(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(20))==(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(0))+*_SUB_SHOWVWATCHPANEL_LONG_DISPLAYFORMATBUTTON-*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(10))))))||new_error){ +if(qbevent){evnt(26070,8358,"ide_methods.bas");if(r)goto S_45460;} +do{ +qbg_sub_color(NULL, 3 ,NULL,2); +if(!qbevent)break;evnt(26070,8359,"ide_methods.bas");}while(r); +S_45462:; +if ((-(*(int8*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(35))== 2 ))||new_error){ +if(qbevent){evnt(26070,8361,"ide_methods.bas");if(r)goto S_45462;} +do{ +*(int8*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(35))= 0 ; +if(!qbevent)break;evnt(26070,8362,"ide_methods.bas");}while(r); +do{ +*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_SHOWVWATCHPANEL_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+31))=*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_SHOWVWATCHPANEL_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+31))+ 1 ; +if(!qbevent)break;evnt(26070,8363,"ide_methods.bas");}while(r); +S_45465:; +if ((-(*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_SHOWVWATCHPANEL_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+31))> 3 ))||new_error){ +if(qbevent){evnt(26070,8364,"ide_methods.bas");if(r)goto S_45465;} +do{ +*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_SUB_SHOWVWATCHPANEL_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+31))= 0 ; +if(!qbevent)break;evnt(26070,8364,"ide_methods.bas");}while(r); +} +} +} +do{ +sub__printstring(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(0))+*_SUB_SHOWVWATCHPANEL_LONG_DISPLAYFORMATBUTTON-*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(10)),*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(22)),func_chr( 29 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8367,"ide_methods.bas");}while(r); +do{ +qbg_sub_color(*_SUB_SHOWVWATCHPANEL_LONG_FG,*_SUB_SHOWVWATCHPANEL_LONG_BG,NULL,3); +if(!qbevent)break;evnt(26070,8368,"ide_methods.bas");}while(r); +do{ +*_SUB_SHOWVWATCHPANEL_LONG_DISPLAYFORMATBUTTON= -1 ; +if(!qbevent)break;evnt(26070,8369,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_SHOWVWATCHPANEL_STRING_TEMP2,qbs_add(qbs_add(qbs_add(l2string(*_SUB_SHOWVWATCHPANEL_LONG_TEMPINDEX),l2string(*_SUB_SHOWVWATCHPANEL_LONG_TEMPTOTALARRAYINDEXES* 4 )),_SUB_SHOWVWATCHPANEL_STRING_TEMPARRAYINDEXES),l2string(*_SUB_SHOWVWATCHPANEL_LONG_TEMPELEMENTOFFSET))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8373,"ide_methods.bas");}while(r); +do{ +*_SUB_SHOWVWATCHPANEL_LONG_J= 0 ; +if(!qbevent)break;evnt(26070,8374,"ide_methods.bas");}while(r); +do{ +*_SUB_SHOWVWATCHPANEL_LONG_J=func_instr(*_SUB_SHOWVWATCHPANEL_LONG_J+ 1 ,__STRING_WATCHPOINTLIST,l2string( -1 ),0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8375,"ide_methods.bas");}while(r); +S_45477:; +while((*_SUB_SHOWVWATCHPANEL_LONG_J)||new_error){ +if(qbevent){evnt(26070,8376,"ide_methods.bas");if(r)goto S_45477;} +S_45478:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(__STRING_WATCHPOINTLIST,*_SUB_SHOWVWATCHPANEL_LONG_J+ 8 ,_SUB_SHOWVWATCHPANEL_STRING_TEMP2->len,0|1),_SUB_SHOWVWATCHPANEL_STRING_TEMP2)))||new_error){ +if(qbevent){evnt(26070,8377,"ide_methods.bas");if(r)goto S_45478;} +do{ +goto dl_exit_5006; +if(!qbevent)break;evnt(26070,8377,"ide_methods.bas");}while(r); +} +do{ +*_SUB_SHOWVWATCHPANEL_LONG_J=func_instr(*_SUB_SHOWVWATCHPANEL_LONG_J+ 1 ,__STRING_WATCHPOINTLIST,l2string( -1 ),0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8378,"ide_methods.bas");}while(r); +dl_continue_5006:; +} +dl_exit_5006:; +S_45483:; +if ((-(*_SUB_SHOWVWATCHPANEL_LONG_J> 0 ))||new_error){ +if(qbevent){evnt(26070,8381,"ide_methods.bas");if(r)goto S_45483;} +S_45484:; +if ((-(*__LONG_LATESTWATCHPOINTMET==*_SUB_SHOWVWATCHPANEL_LONG_TEMPINDEX))||new_error){ +if(qbevent){evnt(26070,8382,"ide_methods.bas");if(r)goto S_45484;} +do{ +qbg_sub_color( 15 ,NULL,NULL,1); +if(!qbevent)break;evnt(26070,8382,"ide_methods.bas");}while(r); +}else{ +do{ +qbg_sub_color( 4 ,NULL,NULL,1); +if(!qbevent)break;evnt(26070,8382,"ide_methods.bas");}while(r); +} +do{ +sub__printstring(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(0))+ 1 ,*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(2))+*_SUB_SHOWVWATCHPANEL_LONG_Y,func_chr( 7 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8383,"ide_methods.bas");}while(r); +S_45490:; +if (((-(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(20))==(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(0))+ 1 )))&(-(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(22))==(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(2))+*_SUB_SHOWVWATCHPANEL_LONG_Y))))||new_error){ +if(qbevent){evnt(26070,8384,"ide_methods.bas");if(r)goto S_45490;} +do{ +qbg_sub_color( 15 , 3 ,NULL,3); +if(!qbevent)break;evnt(26070,8385,"ide_methods.bas");}while(r); +do{ +*_SUB_SHOWVWATCHPANEL_LONG_K=string2l(func_mid(__STRING_WATCHPOINTLIST,*_SUB_SHOWVWATCHPANEL_LONG_J+ 4 , 4 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8387,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_SHOWVWATCHPANEL_STRING_TEMP3,func_mid(__STRING_WATCHPOINTLIST,*_SUB_SHOWVWATCHPANEL_LONG_J+ 8 ,*_SUB_SHOWVWATCHPANEL_LONG_K,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8388,"ide_methods.bas");}while(r); +do{ +*_SUB_SHOWVWATCHPANEL_LONG_K=string2i(qbs_right(_SUB_SHOWVWATCHPANEL_STRING_TEMP3, 2 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8389,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_SHOWVWATCHPANEL_STRING_CONDITION,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len(" Watchpoint: ",13),_SUB_SHOWVWATCHPANEL_STRING_THISNAME),qbs_new_txt_len(" ",1)),func_mid(_SUB_SHOWVWATCHPANEL_STRING_TEMP3,_SUB_SHOWVWATCHPANEL_STRING_TEMP3->len-( 2 +*_SUB_SHOWVWATCHPANEL_LONG_K)+ 1 ,*_SUB_SHOWVWATCHPANEL_LONG_K,0|1)),qbs_new_txt_len(" ",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8390,"ide_methods.bas");}while(r); +S_45496:; +if ((qbs_cleanup(qbs_tmp_base,-((_SUB_SHOWVWATCHPANEL_STRING_CONDITION->len)>(*__LONG_IDEWX- 8 ))))||new_error){ +if(qbevent){evnt(26070,8392,"ide_methods.bas");if(r)goto S_45496;} +do{ +qbs_set(_SUB_SHOWVWATCHPANEL_STRING_CONDITION,qbs_add(qbs_add(qbs_left(_SUB_SHOWVWATCHPANEL_STRING_CONDITION,*__LONG_IDEWX- 13 ),func_string( 3 , 250 )),qbs_new_txt_len(" ",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8393,"ide_methods.bas");}while(r); +} +do{ +*_SUB_SHOWVWATCHPANEL_LONG_K=*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(0))+ 2 ; +if(!qbevent)break;evnt(26070,8395,"ide_methods.bas");}while(r); +S_45500:; +if ((qbs_cleanup(qbs_tmp_base,-((*_SUB_SHOWVWATCHPANEL_LONG_K+_SUB_SHOWVWATCHPANEL_STRING_CONDITION->len)>*__LONG_IDEWX)))||new_error){ +if(qbevent){evnt(26070,8396,"ide_methods.bas");if(r)goto S_45500;} +do{ +*_SUB_SHOWVWATCHPANEL_LONG_K=*__LONG_IDEWX-(_SUB_SHOWVWATCHPANEL_STRING_CONDITION->len+ 2 ); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8396,"ide_methods.bas");}while(r); +} +do{ +sub__printstring(*_SUB_SHOWVWATCHPANEL_LONG_K,*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(2))+*_SUB_SHOWVWATCHPANEL_LONG_Y,_SUB_SHOWVWATCHPANEL_STRING_CONDITION,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8398,"ide_methods.bas");}while(r); +do{ +*_SUB_SHOWVWATCHPANEL_LONG_SHADOWX=*_SUB_SHOWVWATCHPANEL_LONG_K; +if(!qbevent)break;evnt(26070,8400,"ide_methods.bas");}while(r); +do{ +*_SUB_SHOWVWATCHPANEL_LONG_SHADOWY=*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(2))+*_SUB_SHOWVWATCHPANEL_LONG_Y+ 1 ; +if(!qbevent)break;evnt(26070,8401,"ide_methods.bas");}while(r); +do{ +*_SUB_SHOWVWATCHPANEL_LONG_SHADOWLENGTH=_SUB_SHOWVWATCHPANEL_STRING_CONDITION->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8402,"ide_methods.bas");}while(r); +} +do{ +qbg_sub_color(*_SUB_SHOWVWATCHPANEL_LONG_FG,*_SUB_SHOWVWATCHPANEL_LONG_BG,NULL,3); +if(!qbevent)break;evnt(26070,8404,"ide_methods.bas");}while(r); +} +}else{ +do{ +sub__echo(_SUB_SHOWVWATCHPANEL_STRING_ITEM); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8407,"ide_methods.bas");}while(r); +} +dl_continue_4988:; +}while(1); +dl_exit_4988:; +do{ +*_SUB_SHOWVWATCHPANEL_LONG_LONGESTVARNAME=*_SUB_SHOWVWATCHPANEL_LONG_ACTUALLONGESTVARNAME; +if(!qbevent)break;evnt(26070,8410,"ide_methods.bas");}while(r); +S_45515:; +if ((-(*__BYTE_WATCHLISTTOCONSOLE== 0 ))||new_error){ +if(qbevent){evnt(26070,8412,"ide_methods.bas");if(r)goto S_45515;} +S_45516:; +if ((*_SUB_SHOWVWATCHPANEL_LONG_SHADOWLENGTH)||new_error){ +if(qbevent){evnt(26070,8413,"ide_methods.bas");if(r)goto S_45516;} +do{ +qbg_sub_color( 2 , 0 ,NULL,3); +if(!qbevent)break;evnt(26070,8415,"ide_methods.bas");}while(r); +S_45518:; +fornext_value5014=*_SUB_SHOWVWATCHPANEL_LONG_SHADOWX+ 2 ; +fornext_finalvalue5014=*_SUB_SHOWVWATCHPANEL_LONG_SHADOWX+*_SUB_SHOWVWATCHPANEL_LONG_SHADOWLENGTH; +fornext_step5014= 1 ; +if (fornext_step5014<0) fornext_step_negative5014=1; else fornext_step_negative5014=0; +if (new_error) goto fornext_error5014; +goto fornext_entrylabel5014; +while(1){ +fornext_value5014=fornext_step5014+(*_SUB_SHOWVWATCHPANEL_LONG_X2); +fornext_entrylabel5014: +*_SUB_SHOWVWATCHPANEL_LONG_X2=fornext_value5014; +if (fornext_step_negative5014){ +if (fornext_value5014fornext_finalvalue5014) break; +} +fornext_error5014:; +if(qbevent){evnt(26070,8416,"ide_methods.bas");if(r)goto S_45518;} +do{ +sub__printstring(*_SUB_SHOWVWATCHPANEL_LONG_X2,*_SUB_SHOWVWATCHPANEL_LONG_SHADOWY,func_chr(func_screen(*_SUB_SHOWVWATCHPANEL_LONG_SHADOWY,*_SUB_SHOWVWATCHPANEL_LONG_X2,NULL,0)),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8417,"ide_methods.bas");}while(r); +fornext_continue_5013:; +} +fornext_exit_5013:; +} +S_45522:; +if ((-(*_SUB_SHOWVWATCHPANEL_LONG_TOTALVISIBLEVARIABLES>(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(6))- 2 )))||new_error){ +if(qbevent){evnt(26070,8421,"ide_methods.bas");if(r)goto S_45522;} +do{ +*_SUB_SHOWVWATCHPANEL_LONG_Y=FUNC_IDEVBAR(&(pass5015=*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(0))+*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(4))- 1 ),&(pass5016=*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(2))+ 1 ),&(pass5017=*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(6))- 2 ),&(pass5018=*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(8))),&(pass5019=*_SUB_SHOWVWATCHPANEL_LONG_TOTALVISIBLEVARIABLES-(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(6))- 2 )+ 1 )); +if(!qbevent)break;evnt(26070,8422,"ide_methods.bas");}while(r); +S_45524:; +if ((-(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(16))== 0 ))||new_error){ +if(qbevent){evnt(26070,8423,"ide_methods.bas");if(r)goto S_45524;} +do{ +*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(12))=*_SUB_SHOWVWATCHPANEL_LONG_Y; +if(!qbevent)break;evnt(26070,8424,"ide_methods.bas");}while(r); +} +}else{ +do{ +*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(12))= 0 ; +if(!qbevent)break;evnt(26070,8427,"ide_methods.bas");}while(r); +do{ +*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(8))= 1 ; +if(!qbevent)break;evnt(26070,8428,"ide_methods.bas");}while(r); +} +S_45531:; +if ((-(*(int32*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(24))>(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(4))- 4 )))||new_error){ +if(qbevent){evnt(26070,8431,"ide_methods.bas");if(r)goto S_45531;} +do{ +*_SUB_SHOWVWATCHPANEL_LONG_X=FUNC_IDEHBAR(&(pass5020=*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(0))),&(pass5021=*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(2))+*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(6))- 1 ),&(pass5022=*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(4))- 1 ),&(pass5023=*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(10))),&(pass5024=*(int32*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(24))-(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(4))- 4 )+ 1 )); +if(!qbevent)break;evnt(26070,8432,"ide_methods.bas");}while(r); +S_45533:; +if ((-(*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(18))== 0 ))||new_error){ +if(qbevent){evnt(26070,8433,"ide_methods.bas");if(r)goto S_45533;} +do{ +*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(14))=*_SUB_SHOWVWATCHPANEL_LONG_X; +if(!qbevent)break;evnt(26070,8434,"ide_methods.bas");}while(r); +} +}else{ +do{ +*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(14))= 0 ; +if(!qbevent)break;evnt(26070,8437,"ide_methods.bas");}while(r); +do{ +*(int16*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(10))= 1 ; +if(!qbevent)break;evnt(26070,8438,"ide_methods.bas");}while(r); +} +} +S_45541:; +if ((-(*(int8*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(35))== 2 ))||new_error){ +if(qbevent){evnt(26070,8441,"ide_methods.bas");if(r)goto S_45541;} +do{ +*(int8*)(((char*)_SUB_SHOWVWATCHPANEL_UDT_THIS)+(35))= 0 ; +if(!qbevent)break;evnt(26070,8441,"ide_methods.bas");}while(r); +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free174.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +int32 FUNC_MULTISEARCH(qbs*_FUNC_MULTISEARCH_STRING___FULLTEXT,qbs*_FUNC_MULTISEARCH_STRING___SEARCHSTRING){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data175.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +qbs_set(_FUNC_MULTISEARCH_STRING_FULLTEXT,qbs__trim(qbs_ucase(_FUNC_MULTISEARCH_STRING___FULLTEXT))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8450,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_MULTISEARCH_STRING_SEARCHSTRING,qbs__trim(qbs_ucase(_FUNC_MULTISEARCH_STRING___SEARCHSTRING))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8451,"ide_methods.bas");}while(r); +S_45546:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_MULTISEARCH_STRING_FULLTEXT->len== 0 )))||new_error){ +if(qbevent){evnt(26070,8452,"ide_methods.bas");if(r)goto S_45546;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,8452,"ide_methods.bas");}while(r); +} +S_45549:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_MULTISEARCH_STRING_SEARCHSTRING->len== 0 )))||new_error){ +if(qbevent){evnt(26070,8453,"ide_methods.bas");if(r)goto S_45549;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,8453,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_MULTISEARCH_LONG_MULTISEARCH= -1 ; +if(!qbevent)break;evnt(26070,8455,"ide_methods.bas");}while(r); +do{ +*_FUNC_MULTISEARCH_LONG_FINDPLUS=func_instr(NULL,_FUNC_MULTISEARCH_STRING_SEARCHSTRING,qbs_new_txt_len("+",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8456,"ide_methods.bas");}while(r); +S_45554:; +while((*_FUNC_MULTISEARCH_LONG_FINDPLUS)||new_error){ +if(qbevent){evnt(26070,8457,"ide_methods.bas");if(r)goto S_45554;} +do{ +qbs_set(_FUNC_MULTISEARCH_STRING_THISTERM,qbs_left(_FUNC_MULTISEARCH_STRING_SEARCHSTRING,*_FUNC_MULTISEARCH_LONG_FINDPLUS- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8458,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_MULTISEARCH_STRING_SEARCHSTRING,func_mid(_FUNC_MULTISEARCH_STRING_SEARCHSTRING,*_FUNC_MULTISEARCH_LONG_FINDPLUS+ 1 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8459,"ide_methods.bas");}while(r); +S_45557:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_FUNC_MULTISEARCH_STRING_FULLTEXT,_FUNC_MULTISEARCH_STRING_THISTERM,0)== 0 )))||new_error){ +if(qbevent){evnt(26070,8460,"ide_methods.bas");if(r)goto S_45557;} +do{ +*_FUNC_MULTISEARCH_LONG_MULTISEARCH= 0 ; +if(!qbevent)break;evnt(26070,8460,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,8460,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_MULTISEARCH_LONG_FINDPLUS=func_instr(NULL,_FUNC_MULTISEARCH_STRING_SEARCHSTRING,qbs_new_txt_len("+",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8461,"ide_methods.bas");}while(r); +ww_continue_5029:; +} +ww_exit_5029:; +S_45563:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_MULTISEARCH_STRING_SEARCHSTRING->len))||new_error){ +if(qbevent){evnt(26070,8464,"ide_methods.bas");if(r)goto S_45563;} +S_45564:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_FUNC_MULTISEARCH_STRING_FULLTEXT,_FUNC_MULTISEARCH_STRING_SEARCHSTRING,0)== 0 )))||new_error){ +if(qbevent){evnt(26070,8465,"ide_methods.bas");if(r)goto S_45564;} +do{ +*_FUNC_MULTISEARCH_LONG_MULTISEARCH= 0 ; +if(!qbevent)break;evnt(26070,8465,"ide_methods.bas");}while(r); +} +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free175.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +return *_FUNC_MULTISEARCH_LONG_MULTISEARCH; +} +qbs* FUNC_IDEVARIABLEWATCHBOX(qbs*_FUNC_IDEVARIABLEWATCHBOX_STRING_CURRENTSCOPE,qbs*_FUNC_IDEVARIABLEWATCHBOX_STRING_FILTER,int32*_FUNC_IDEVARIABLEWATCHBOX_LONG_SELECTVAR,int32*_FUNC_IDEVARIABLEWATCHBOX_LONG_RETURNACTION){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data176.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +sub_pcopy( 0 , 2 ); +if(!qbevent)break;evnt(26070,8472,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 0 , 1 ); +if(!qbevent)break;evnt(26070,8473,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,8474,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS= 1 ; +if(!qbevent)break;evnt(26070,8475,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26070,8476,"ide_methods.bas");}while(r); +do{ if (_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[2]&2){ error(10); @@ -152196,39 +152196,39 @@ if (!_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0]) error(257); } _FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[2]|=1; } -} -if(!qbevent)break;evnt(26070,8477,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(26070,8478,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING1_SEP,func_chr( 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8479,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_RETURNACTION= 0 ; -if(!qbevent)break;evnt(26070,8484,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_MAINMODULE,qbs_new_txt_len("GLOBAL",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8485,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_MAXMODULENAMELEN=_FUNC_IDEVARIABLEWATCHBOX_STRING_MAINMODULE->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8486,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_MAXTYPELEN=((int32)(qbs_new_txt_len("Type",4))->len); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8487,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARIABLENAMECOLOR= 3 ; -if(!qbevent)break;evnt(26070,8488,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYPECOLUMNCOLOR= 15 ; -if(!qbevent)break;evnt(26070,8489,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_SELECTEDBG= 2 ; -if(!qbevent)break;evnt(26070,8490,"ide_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26070,8477,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26070,8478,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING1_SEP,func_chr( 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8479,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_RETURNACTION= 0 ; +if(!qbevent)break;evnt(26070,8484,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_MAINMODULE,qbs_new_txt_len("GLOBAL",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8485,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_MAXMODULENAMELEN=_FUNC_IDEVARIABLEWATCHBOX_STRING_MAINMODULE->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8486,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_MAXTYPELEN=((int32)(qbs_new_txt_len("Type",4))->len); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8487,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARIABLENAMECOLOR= 3 ; +if(!qbevent)break;evnt(26070,8488,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYPECOLUMNCOLOR= 15 ; +if(!qbevent)break;evnt(26070,8489,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_SELECTEDBG= 2 ; +if(!qbevent)break;evnt(26070,8490,"ide_methods.bas");}while(r); +do{ if (_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[2]&2){ error(10); @@ -152253,2058 +152253,2058 @@ _FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[2]|=1; tmp_long=_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]; while(tmp_long--){ *(qbs**)(_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0]+(264/8+1-1)*tmp_long+ 25)=qbs_new(0,0);} -} -if(!qbevent)break;evnt(26070,8498,"ide_methods.bas");}while(r); -S_45584:; -fornext_value5035= 1 ; -fornext_finalvalue5035=*__LONG_TOTALVARIABLESCREATED; -fornext_step5035= 1 ; -if (fornext_step5035<0) fornext_step_negative5035=1; else fornext_step_negative5035=0; -if (new_error) goto fornext_error5035; -goto fornext_entrylabel5035; -while(1){ -fornext_value5035=fornext_step5035+(*_FUNC_IDEVARIABLEWATCHBOX_LONG_X); -fornext_entrylabel5035: -*_FUNC_IDEVARIABLEWATCHBOX_LONG_X=fornext_value5035; -if (fornext_step_negative5035){ -if (fornext_value5035fornext_finalvalue5035) break; -} -fornext_error5035:; -if(qbevent){evnt(26070,8501,"ide_methods.bas");if(r)goto S_45584;} -S_45585:; -if ((*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+12)))||new_error){ -if(qbevent){evnt(26070,8502,"ide_methods.bas");if(r)goto S_45585;} -do{ -goto fornext_continue_5034; -if(!qbevent)break;evnt(26070,8502,"ide_methods.bas");}while(r); -} -S_45588:; -if ((qbs_cleanup(qbs_tmp_base,-((*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+64)))->len>*_FUNC_IDEVARIABLEWATCHBOX_LONG_MAXMODULENAMELEN)))||new_error){ -if(qbevent){evnt(26070,8503,"ide_methods.bas");if(r)goto S_45588;} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_MAXMODULENAMELEN=(*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+64)))->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8504,"ide_methods.bas");}while(r); -} -S_45591:; -if ((qbs_cleanup(qbs_tmp_base,-((*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+48)))->len>*_FUNC_IDEVARIABLEWATCHBOX_LONG_MAXTYPELEN)))||new_error){ -if(qbevent){evnt(26070,8507,"ide_methods.bas");if(r)goto S_45591;} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_MAXTYPELEN=(*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+48)))->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8507,"ide_methods.bas");}while(r); -} -fornext_continue_5034:; -} -fornext_exit_5034:; -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_SEARCHTERM,_FUNC_IDEVARIABLEWATCHBOX_STRING_FILTER); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8510,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_FIRSTRUN= -1 ; -if(!qbevent)break;evnt(26070,8511,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=143; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_BUILDLIST; -RETURN_143:; -if(!qbevent)break;evnt(26070,8512,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_FIRSTRUN= 0 ; -if(!qbevent)break;evnt(26070,8513,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_DIALOGHEIGHT=*__LONG_TOTALMAINVARIABLESCREATED+ 7 ; -if(!qbevent)break;evnt(26070,8514,"ide_methods.bas");}while(r); -LABEL_LISTBUILT:; -if(qbevent){evnt(26070,8515,"ide_methods.bas");r=0;} -S_45600:; -if ((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_SELECTVAR== -1 ))||new_error){ -if(qbevent){evnt(26070,8516,"ide_methods.bas");if(r)goto S_45600;} -do{ -goto LABEL_GENERATEVARIABLEWATCHLIST; -if(!qbevent)break;evnt(26070,8516,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_I= 0 ; -if(!qbevent)break;evnt(26070,8518,"ide_methods.bas");}while(r); -S_45604:; -if ((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_DIALOGHEIGHT<*_FUNC_IDEVARIABLEWATCHBOX_LONG_LASTUSEDDIALOGHEIGHT))||new_error){ -if(qbevent){evnt(26070,8519,"ide_methods.bas");if(r)goto S_45604;} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_DIALOGHEIGHT=*_FUNC_IDEVARIABLEWATCHBOX_LONG_LASTUSEDDIALOGHEIGHT; -if(!qbevent)break;evnt(26070,8519,"ide_methods.bas");}while(r); -} -S_45607:; -if ((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_DIALOGHEIGHT>(*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 6 )))||new_error){ -if(qbevent){evnt(26070,8520,"ide_methods.bas");if(r)goto S_45607;} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_DIALOGHEIGHT=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 6 ; -if(!qbevent)break;evnt(26070,8521,"ide_methods.bas");}while(r); -} -S_45610:; -if ((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_DIALOGHEIGHT< 9 ))||new_error){ -if(qbevent){evnt(26070,8523,"ide_methods.bas");if(r)goto S_45610;} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_DIALOGHEIGHT= 9 ; -if(!qbevent)break;evnt(26070,8523,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_DIALOGWIDTH= 6 +*_FUNC_IDEVARIABLEWATCHBOX_LONG_MAXMODULENAMELEN+*_FUNC_IDEVARIABLEWATCHBOX_LONG_MAXVARLEN+*_FUNC_IDEVARIABLEWATCHBOX_LONG_MAXTYPELEN; -if(!qbevent)break;evnt(26070,8525,"ide_methods.bas");}while(r); -S_45614:; -if ((-(*__LONG_IDEDEBUGMODE> 0 ))||new_error){ -if(qbevent){evnt(26070,8526,"ide_methods.bas");if(r)goto S_45614;} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_DIALOGWIDTH=*_FUNC_IDEVARIABLEWATCHBOX_LONG_DIALOGWIDTH+ 40 ; -if(!qbevent)break;evnt(26070,8526,"ide_methods.bas");}while(r); -} -S_45617:; -if ((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_DIALOGWIDTH< 70 ))||new_error){ -if(qbevent){evnt(26070,8527,"ide_methods.bas");if(r)goto S_45617;} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_DIALOGWIDTH= 70 ; -if(!qbevent)break;evnt(26070,8527,"ide_methods.bas");}while(r); -} -S_45620:; -if ((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_DIALOGWIDTH>(*__LONG_IDEWX- 8 )))||new_error){ -if(qbevent){evnt(26070,8528,"ide_methods.bas");if(r)goto S_45620;} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_DIALOGWIDTH=*__LONG_IDEWX- 8 ; -if(!qbevent)break;evnt(26070,8528,"ide_methods.bas");}while(r); -} -do{ -SUB_IDEPAR((void*)( ((char*)(_FUNC_IDEVARIABLEWATCHBOX_UDT_P)) + (0) ),_FUNC_IDEVARIABLEWATCHBOX_LONG_DIALOGWIDTH,_FUNC_IDEVARIABLEWATCHBOX_LONG_DIALOGHEIGHT,qbs_new_txt_len("Add Watch - Variable List",25)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8530,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_I=*_FUNC_IDEVARIABLEWATCHBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,8532,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_FILTERBOX=*_FUNC_IDEVARIABLEWATCHBOX_LONG_I; -if(!qbevent)break;evnt(26070,8532,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_PREVFOCUS= 1 ; -if(!qbevent)break;evnt(26070,8533,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_I)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+36))= 1 ; -if(!qbevent)break;evnt(26070,8534,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_I)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+24))= 2 ; -if(!qbevent)break;evnt(26070,8535,"ide_methods.bas");}while(r); -S_45629:; -if ((-(*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_I)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+40))== 0 ))||new_error){ -if(qbevent){evnt(26070,8536,"ide_methods.bas");if(r)goto S_45629;} -do{ -*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_I)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Filter (multiple+terms+accepted)",33)); -if(!qbevent)break;evnt(26070,8536,"ide_methods.bas");}while(r); -} -S_45632:; -if ((-(*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_I)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44))== 0 ))||new_error){ -if(qbevent){evnt(26070,8537,"ide_methods.bas");if(r)goto S_45632;} -do{ -*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_I)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDEVARIABLEWATCHBOX_STRING_FILTER); -if(!qbevent)break;evnt(26070,8537,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_I=*_FUNC_IDEVARIABLEWATCHBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,8539,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX=*_FUNC_IDEVARIABLEWATCHBOX_LONG_I; -if(!qbevent)break;evnt(26070,8539,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+36))= 2 ; -if(!qbevent)break;evnt(26070,8540,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+24))= 5 ; -if(!qbevent)break;evnt(26070,8541,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+28))=*_FUNC_IDEVARIABLEWATCHBOX_LONG_DIALOGWIDTH- 4 ; -if(!qbevent)break;evnt(26070,8542,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_I)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+32))=*_FUNC_IDEVARIABLEWATCHBOX_LONG_DIALOGHEIGHT- 7 ; -if(!qbevent)break;evnt(26070,8542,"ide_methods.bas");}while(r); -S_45641:; -if ((-(*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44))== 0 ))||new_error){ -if(qbevent){evnt(26070,8543,"ide_methods.bas");if(r)goto S_45641;} -do{ -*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDEVARIABLEWATCHBOX_STRING_L); -if(!qbevent)break;evnt(26070,8543,"ide_methods.bas");}while(r); -}else{ -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDEVARIABLEWATCHBOX_STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8543,"ide_methods.bas");}while(r); -} -S_45646:; -if ((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_SELECTVAR== 0 ))||new_error){ -if(qbevent){evnt(26070,8544,"ide_methods.bas");if(r)goto S_45646;} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_SELECTVAR= 1 ; -if(!qbevent)break;evnt(26070,8544,"ide_methods.bas");}while(r); -}else{ -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS=*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX; -if(!qbevent)break;evnt(26070,8544,"ide_methods.bas");}while(r); -} -do{ -*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+64))=*_FUNC_IDEVARIABLEWATCHBOX_LONG_SELECTVAR; -if(!qbevent)break;evnt(26070,8545,"ide_methods.bas");}while(r); -S_45652:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDEVARIABLEWATCHBOX_STRING_SEARCHTERM->len))||new_error){ -if(qbevent){evnt(26070,8547,"ide_methods.bas");if(r)goto S_45652;} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,qbs_new_txt_len(", filtered",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8547,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8547,"ide_methods.bas");}while(r); -} -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_UDT_P)+(16)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Add Watch - Variable List (",27),qbs_ltrim(qbs_str((int32)(*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALVISIBLEVARIABLES)))),_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8548,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_I=*_FUNC_IDEVARIABLEWATCHBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,8550,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_BUTTONSET=*_FUNC_IDEVARIABLEWATCHBOX_LONG_I; -if(!qbevent)break;evnt(26070,8550,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_BUTTONSET)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+36))= 3 ; -if(!qbevent)break;evnt(26070,8551,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_BUTTONSET)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+24))=*_FUNC_IDEVARIABLEWATCHBOX_LONG_DIALOGHEIGHT; -if(!qbevent)break;evnt(26070,8552,"ide_methods.bas");}while(r); -S_45662:; -if (((-(*__LONG_IDEDEBUGMODE> 0 ))&(-(*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_BUTTONSET)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44))== 0 )))||new_error){ -if(qbevent){evnt(26070,8553,"ide_methods.bas");if(r)goto S_45662;} -do{ -*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_BUTTONSET)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("#Add All",8),_FUNC_IDEVARIABLEWATCHBOX_STRING1_SEP),qbs_new_txt_len("#Remove All",11)),_FUNC_IDEVARIABLEWATCHBOX_STRING1_SEP),qbs_new_txt_len("#Send Value",11)),_FUNC_IDEVARIABLEWATCHBOX_STRING1_SEP),qbs_new_txt_len("Add #Watchpoint",15)),_FUNC_IDEVARIABLEWATCHBOX_STRING1_SEP),qbs_new_txt_len("#Close",6))); -if(!qbevent)break;evnt(26070,8554,"ide_methods.bas");}while(r); -}else{ -do{ -*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_BUTTONSET)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("#Add All",8),_FUNC_IDEVARIABLEWATCHBOX_STRING1_SEP),qbs_new_txt_len("#Remove All",11)),_FUNC_IDEVARIABLEWATCHBOX_STRING1_SEP),qbs_new_txt_len("#Close",6))); -if(!qbevent)break;evnt(26070,8556,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_LASTUSEDDIALOGHEIGHT=*_FUNC_IDEVARIABLEWATCHBOX_LONG_DIALOGHEIGHT; -if(!qbevent)break;evnt(26070,8559,"ide_methods.bas");}while(r); -S_45668:; -fornext_value5038= 1 ; -fornext_finalvalue5038= 100 ; -fornext_step5038= 1 ; -if (fornext_step5038<0) fornext_step_negative5038=1; else fornext_step_negative5038=0; -if (new_error) goto fornext_error5038; -goto fornext_entrylabel5038; -while(1){ -fornext_value5038=fornext_step5038+(*_FUNC_IDEVARIABLEWATCHBOX_LONG_I); -fornext_entrylabel5038: -*_FUNC_IDEVARIABLEWATCHBOX_LONG_I=fornext_value5038; -if (fornext_step_negative5038){ -if (fornext_value5038fornext_finalvalue5038) break; -} -fornext_error5038:; -if(qbevent){evnt(26070,8565,"ide_methods.bas");if(r)goto S_45668;} -do{ -memcpy(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_I)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89)+ 0,((char*)_FUNC_IDEVARIABLEWATCHBOX_UDT_P)+(0)+ 0, 20); -if(!qbevent)break;evnt(26070,8565,"ide_methods.bas");}while(r); -fornext_continue_5037:; -} -fornext_exit_5037:; -S_45671:; -do{ -if(qbevent){evnt(26070,8568,"ide_methods.bas");if(r)goto S_45671;} -LABEL_DLGUPDATE:; -if(qbevent){evnt(26070,8571,"ide_methods.bas");r=0;} -do{ -SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDEVARIABLEWATCHBOX_UDT_P)) + (0) )); -if(!qbevent)break;evnt(26070,8572,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_F= 1 ; -if(!qbevent)break;evnt(26070,8573,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_CX= 0 ; -if(!qbevent)break;evnt(26070,8573,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_CY= 0 ; -if(!qbevent)break;evnt(26070,8573,"ide_methods.bas");}while(r); -S_45676:; -fornext_value5041= 1 ; -fornext_finalvalue5041= 100 ; -fornext_step5041= 1 ; -if (fornext_step5041<0) fornext_step_negative5041=1; else fornext_step_negative5041=0; -if (new_error) goto fornext_error5041; -goto fornext_entrylabel5041; -while(1){ -fornext_value5041=fornext_step5041+(*_FUNC_IDEVARIABLEWATCHBOX_LONG_I); -fornext_entrylabel5041: -*_FUNC_IDEVARIABLEWATCHBOX_LONG_I=fornext_value5041; -if (fornext_step_negative5041){ -if (fornext_value5041fornext_finalvalue5041) break; -} -fornext_error5041:; -if(qbevent){evnt(26070,8574,"ide_methods.bas");if(r)goto S_45676;} -S_45677:; -if ((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_I)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+36)))||new_error){ -if(qbevent){evnt(26070,8575,"ide_methods.bas");if(r)goto S_45677;} -do{ -*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_I)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+60))=*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS-*_FUNC_IDEVARIABLEWATCHBOX_LONG_F; -if(!qbevent)break;evnt(26070,8577,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_I)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+52))= 0 ; -if(!qbevent)break;evnt(26070,8578,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_I)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+56))= 0 ; -if(!qbevent)break;evnt(26070,8578,"ide_methods.bas");}while(r); -do{ -SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_I)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDEVARIABLEWATCHBOX_LONG_F); -if(!qbevent)break;evnt(26070,8579,"ide_methods.bas");}while(r); -S_45682:; -if ((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_I)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+52)))||new_error){ -if(qbevent){evnt(26070,8580,"ide_methods.bas");if(r)goto S_45682;} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_CX=*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_I)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+52)); -if(!qbevent)break;evnt(26070,8580,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_CY=*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_I)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+56)); -if(!qbevent)break;evnt(26070,8580,"ide_methods.bas");}while(r); -} -} -fornext_continue_5040:; -} -fornext_exit_5040:; -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_LASTFOCUS=*_FUNC_IDEVARIABLEWATCHBOX_LONG_F- 1 ; -if(!qbevent)break;evnt(26070,8583,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,8587,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_UDT_P)+(4))+ 4 ,*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_UDT_P)+(0))+ 2 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(26070,8588,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("Double-click on an item to add it to the watch list:",52)); -if (new_error) goto skip5042; -makefit(tqbs); -qbs_print(tqbs,0); -qbs_print(nothingstring,1); -skip5042: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8589,"ide_methods.bas");}while(r); -S_45692:; -if (((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_DOUBLECLICKTHRESHOLD> 0 ))&(-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_DOUBLECLICKTHRESHOLD<*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_UDT_P)+(8))))&(-(*__LONG_IDEDEBUGMODE> 0 )))||new_error){ -if(qbevent){evnt(26070,8590,"ide_methods.bas");if(r)goto S_45692;} -do{ -sub__printstring(*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_UDT_P)+(0))+*_FUNC_IDEVARIABLEWATCHBOX_LONG_DOUBLECLICKTHRESHOLD,*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_UDT_P)+(4))+ 5 ,func_chr( 194 ),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8591,"ide_methods.bas");}while(r); -do{ -sub__printstring(*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_UDT_P)+(0))+*_FUNC_IDEVARIABLEWATCHBOX_LONG_DOUBLECLICKTHRESHOLD,*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_UDT_P)+(4))+*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_UDT_P)+(12))- 1 ,func_chr( 193 ),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8592,"ide_methods.bas");}while(r); -S_45695:; -if (((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS==*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX))&(-(*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+64))> 0 )))||new_error){ -if(qbevent){evnt(26070,8594,"ide_methods.bas");if(r)goto S_45695;} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y=*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+64)); -if(!qbevent)break;evnt(26070,8595,"ide_methods.bas");}while(r); -S_45697:; -if ((qbs_cleanup(qbs_tmp_base,(-(*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+29))!= 0 ))&(-(func_instr(NULL,*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+48))),qbs_new_txt_len("STRING *",8),0)== 0 ))&(qbs_notequal(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+48))),qbs_new_txt_len("STRING",6)))))||new_error){ -if(qbevent){evnt(26070,8598,"ide_methods.bas");if(r)goto S_45697;} -do{ -qbg_sub_color( 15 , 3 ,NULL,3); -if(!qbevent)break;evnt(26070,8599,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y=*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+68)); -if(!qbevent)break;evnt(26070,8600,"ide_methods.bas");}while(r); -do{ -sub__printstring(*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_UDT_P)+(0))+*_FUNC_IDEVARIABLEWATCHBOX_LONG_DOUBLECLICKTHRESHOLD- 1 ,*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y,func_chr( 29 ),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8601,"ide_methods.bas");}while(r); -do{ -qbg_sub_color(*_FUNC_IDEVARIABLEWATCHBOX_LONG_FG,*_FUNC_IDEVARIABLEWATCHBOX_LONG_BG,NULL,3); -if(!qbevent)break;evnt(26070,8602,"ide_methods.bas");}while(r); -} -} -} -do{ -sub_pcopy( 1 , 0 ); -if(!qbevent)break;evnt(26070,8610,"ide_methods.bas");}while(r); -S_45706:; -if ((*_FUNC_IDEVARIABLEWATCHBOX_LONG_CX)||new_error){ -if(qbevent){evnt(26070,8611,"ide_methods.bas");if(r)goto S_45706;} -do{ -qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,8611,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*_FUNC_IDEVARIABLEWATCHBOX_LONG_CY,*_FUNC_IDEVARIABLEWATCHBOX_LONG_CX, 1 ,NULL,NULL,7); -if(!qbevent)break;evnt(26070,8611,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,8611,"ide_methods.bas");}while(r); -} -S_45711:; -if ((*_FUNC_IDEVARIABLEWATCHBOX_LONG_QUICKDLGUPDATE)||new_error){ -if(qbevent){evnt(26070,8612,"ide_methods.bas");if(r)goto S_45711;} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_QUICKDLGUPDATE= 0 ; -if(!qbevent)break;evnt(26070,8612,"ide_methods.bas");}while(r); -do{ -#include "ret176.txt" -if(!qbevent)break;evnt(26070,8612,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_CHANGE= 0 ; -if(!qbevent)break;evnt(26070,8615,"ide_methods.bas");}while(r); -S_45716:; -do{ -if(qbevent){evnt(26070,8616,"ide_methods.bas");if(r)goto S_45716;} -do{ -SUB_GETINPUT(); -if(!qbevent)break;evnt(26070,8617,"ide_methods.bas");}while(r); -S_45718:; -if ((*__LONG_MWHEEL)||new_error){ -if(qbevent){evnt(26070,8618,"ide_methods.bas");if(r)goto S_45718;} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,8618,"ide_methods.bas");}while(r); -} -S_45721:; -if ((*__LONG_KB)||new_error){ -if(qbevent){evnt(26070,8619,"ide_methods.bas");if(r)goto S_45721;} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,8619,"ide_methods.bas");}while(r); -} -S_45724:; -if ((*__LONG_MCLICK)||new_error){ -if(qbevent){evnt(26070,8620,"ide_methods.bas");if(r)goto S_45724;} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_MOUSEDOWN= 1 ; -if(!qbevent)break;evnt(26070,8620,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,8620,"ide_methods.bas");}while(r); -} -S_45728:; -if ((*__LONG_MRELEASE)||new_error){ -if(qbevent){evnt(26070,8621,"ide_methods.bas");if(r)goto S_45728;} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_MOUSEUP= 1 ; -if(!qbevent)break;evnt(26070,8621,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,8621,"ide_methods.bas");}while(r); -} -S_45732:; -if ((*__LONG_MB)||new_error){ -if(qbevent){evnt(26070,8622,"ide_methods.bas");if(r)goto S_45732;} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,8622,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_ALT=*__LONG_KALT; -if(!qbevent)break;evnt(26070,8623,"ide_methods.bas");}while(r); -S_45736:; -if ((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_ALT!=*_FUNC_IDEVARIABLEWATCHBOX_LONG_OLDALT))||new_error){ -if(qbevent){evnt(26070,8623,"ide_methods.bas");if(r)goto S_45736;} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,8623,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_OLDALT=*_FUNC_IDEVARIABLEWATCHBOX_LONG_ALT; -if(!qbevent)break;evnt(26070,8624,"ide_methods.bas");}while(r); -do{ -sub__limit( 100 ); -if(!qbevent)break;evnt(26070,8625,"ide_methods.bas");}while(r); -S_45741:; -dl_continue_5043:; -}while((!(*_FUNC_IDEVARIABLEWATCHBOX_LONG_CHANGE))&&(!new_error)); -dl_exit_5043:; -if(qbevent){evnt(26070,8626,"ide_methods.bas");if(r)goto S_45741;} -S_45742:; -if ((*_FUNC_IDEVARIABLEWATCHBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(26070,8627,"ide_methods.bas");if(r)goto S_45742;} -do{ -*__LONG_IDEHL= 1 ; -if(!qbevent)break;evnt(26070,8627,"ide_methods.bas");}while(r); -}else{ -do{ -*__LONG_IDEHL= 0 ; -if(!qbevent)break;evnt(26070,8627,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_ALTLETTER,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8629,"ide_methods.bas");}while(r); -S_45748:; -if ((*_FUNC_IDEVARIABLEWATCHBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(26070,8630,"ide_methods.bas");if(r)goto S_45748;} -S_45749:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ -if(qbevent){evnt(26070,8631,"ide_methods.bas");if(r)goto S_45749;} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8632,"ide_methods.bas");}while(r); -S_45751:; -if (((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_K>= 65 ))&(-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_K<= 90 )))||new_error){ -if(qbevent){evnt(26070,8633,"ide_methods.bas");if(r)goto S_45751;} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_ALTLETTER,func_chr(*_FUNC_IDEVARIABLEWATCHBOX_LONG_K)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8633,"ide_methods.bas");}while(r); -} -} -} -do{ -qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,8636,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); -if(!qbevent)break;evnt(26070,8636,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,8636,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_INFO= 0 ; -if(!qbevent)break;evnt(26070,8640,"ide_methods.bas");}while(r); -S_45760:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,8641,"ide_methods.bas");if(r)goto S_45760;} -do{ -qbs_set(__STRING_K,func_chr( 255 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8641,"ide_methods.bas");}while(r); -} -S_45763:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ -if(qbevent){evnt(26070,8642,"ide_methods.bas");if(r)goto S_45763;} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS=*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS+ 1 ; -if(!qbevent)break;evnt(26070,8642,"ide_methods.bas");}while(r); -} -S_45766:; -if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||new_error){ -if(qbevent){evnt(26070,8643,"ide_methods.bas");if(r)goto S_45766;} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS=*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS- 1 ; -if(!qbevent)break;evnt(26070,8643,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_K,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8643,"ide_methods.bas");}while(r); -} -S_45770:; -if ((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS< 1 ))||new_error){ -if(qbevent){evnt(26070,8644,"ide_methods.bas");if(r)goto S_45770;} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS=*_FUNC_IDEVARIABLEWATCHBOX_LONG_LASTFOCUS; -if(!qbevent)break;evnt(26070,8644,"ide_methods.bas");}while(r); -} -S_45773:; -if ((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS>*_FUNC_IDEVARIABLEWATCHBOX_LONG_LASTFOCUS))||new_error){ -if(qbevent){evnt(26070,8645,"ide_methods.bas");if(r)goto S_45773;} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(26070,8645,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_F= 1 ; -if(!qbevent)break;evnt(26070,8646,"ide_methods.bas");}while(r); -S_45777:; -fornext_value5046= 1 ; -fornext_finalvalue5046= 100 ; -fornext_step5046= 1 ; -if (fornext_step5046<0) fornext_step_negative5046=1; else fornext_step_negative5046=0; -if (new_error) goto fornext_error5046; -goto fornext_entrylabel5046; -while(1){ -fornext_value5046=fornext_step5046+(*_FUNC_IDEVARIABLEWATCHBOX_LONG_I); -fornext_entrylabel5046: -*_FUNC_IDEVARIABLEWATCHBOX_LONG_I=fornext_value5046; -if (fornext_step_negative5046){ -if (fornext_value5046fornext_finalvalue5046) break; -} -fornext_error5046:; -if(qbevent){evnt(26070,8647,"ide_methods.bas");if(r)goto S_45777;} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_T=*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_I)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+36)); -if(!qbevent)break;evnt(26070,8648,"ide_methods.bas");}while(r); -S_45779:; -if ((*_FUNC_IDEVARIABLEWATCHBOX_LONG_T)||new_error){ -if(qbevent){evnt(26070,8649,"ide_methods.bas");if(r)goto S_45779;} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUSOFFSET=*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS-*_FUNC_IDEVARIABLEWATCHBOX_LONG_F; -if(!qbevent)break;evnt(26070,8650,"ide_methods.bas");}while(r); -do{ -SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_I)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS,_FUNC_IDEVARIABLEWATCHBOX_LONG_F,_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDEVARIABLEWATCHBOX_STRING_ALTLETTER,__LONG_MB,_FUNC_IDEVARIABLEWATCHBOX_LONG_MOUSEDOWN,_FUNC_IDEVARIABLEWATCHBOX_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDEVARIABLEWATCHBOX_LONG_INFO,__LONG_MWHEEL); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8651,"ide_methods.bas");}while(r); -} -fornext_continue_5045:; -} -fornext_exit_5045:; -S_45784:; -if ((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS!=*_FUNC_IDEVARIABLEWATCHBOX_LONG_PREVFOCUS))||new_error){ -if(qbevent){evnt(26070,8655,"ide_methods.bas");if(r)goto S_45784;} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_PREVFOCUS=*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS; -if(!qbevent)break;evnt(26070,8657,"ide_methods.bas");}while(r); -S_45786:; -if ((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS==*_FUNC_IDEVARIABLEWATCHBOX_LONG_FILTERBOX))||new_error){ -if(qbevent){evnt(26070,8658,"ide_methods.bas");if(r)goto S_45786;} -do{ -*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; -if(!qbevent)break;evnt(26070,8659,"ide_methods.bas");}while(r); -S_45788:; -if ((-(*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+81))> 0 ))||new_error){ -if(qbevent){evnt(26070,8660,"ide_methods.bas");if(r)goto S_45788;} -do{ -*(int8*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+76))= -1 ; -if(!qbevent)break;evnt(26070,8660,"ide_methods.bas");}while(r); -} -do{ -*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+77))= 0 ; -if(!qbevent)break;evnt(26070,8661,"ide_methods.bas");}while(r); -} -} -S_45794:; -if ((((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS== 3 ))&(-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_INFO!= 0 ))))||new_error){ -if(qbevent){evnt(26070,8665,"ide_methods.bas");if(r)goto S_45794;} -S_45795:; -fornext_value5049= 1 ; -fornext_finalvalue5049=*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALVISIBLEVARIABLES; -fornext_step5049= 1 ; -if (fornext_step5049<0) fornext_step_negative5049=1; else fornext_step_negative5049=0; -if (new_error) goto fornext_error5049; -goto fornext_entrylabel5049; -while(1){ -fornext_value5049=fornext_step5049+(*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y); -fornext_entrylabel5049: -*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y=fornext_value5049; -if (fornext_step_negative5049){ -if (fornext_value5049fornext_finalvalue5049) break; -} -fornext_error5049:; -if(qbevent){evnt(26070,8666,"ide_methods.bas");if(r)goto S_45795;} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+48)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8667,"ide_methods.bas");}while(r); -S_45797:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("STRING *",8),0)))||new_error){ -if(qbevent){evnt(26070,8668,"ide_methods.bas");if(r)goto S_45797;} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("STRING",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8668,"ide_methods.bas");}while(r); -} -S_45800:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("BIT *",5),0)))||new_error){ -if(qbevent){evnt(26070,8669,"ide_methods.bas");if(r)goto S_45800;} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("_BIT",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8669,"ide_methods.bas");}while(r); -} -S_45803:; -if ((qbs_cleanup(qbs_tmp_base,((*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+30))&(-((*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+72)))->len== 0 ))))|(-(func_instr(NULL,__STRING_NATIVEDATATYPES,_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,0)== 0 ))))||new_error){ -if(qbevent){evnt(26070,8671,"ide_methods.bas");if(r)goto S_45803;} -do{ -goto fornext_continue_5048; -if(!qbevent)break;evnt(26070,8671,"ide_methods.bas");}while(r); -} -do{ -*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+29))= -1 ; -if(!qbevent)break;evnt(26070,8672,"ide_methods.bas");}while(r); -do{ -tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ -tmp_fileno=*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+8)); if (!new_error){ -tmp_long=*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARIABLENAMECOLOR; if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(26070,8673,"ide_methods.bas");}while(r); -do{ -tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ -tmp_fileno=*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+12)); if (!new_error){ -tmp_long=*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYPECOLUMNCOLOR; if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(26070,8674,"ide_methods.bas");}while(r); -do{ -tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ -tmp_fileno=*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+4)); if (!new_error){ -tmp_long=*_FUNC_IDEVARIABLEWATCHBOX_LONG_SELECTEDBG; if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(26070,8675,"ide_methods.bas");}while(r); -do{ -tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ -tmp_fileno=*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+16)); if (!new_error){ -tmp_long= 43 ; if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(26070,8676,"ide_methods.bas");}while(r); -fornext_continue_5048:; -} -fornext_exit_5048:; -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS=*_FUNC_IDEVARIABLEWATCHBOX_LONG_FILTERBOX; -if(!qbevent)break;evnt(26070,8678,"ide_methods.bas");}while(r); -do{ -goto dl_continue_5039; -if(!qbevent)break;evnt(26070,8679,"ide_methods.bas");}while(r); -} -S_45815:; -if ((((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS== 4 ))&(-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_INFO!= 0 ))))||new_error){ -if(qbevent){evnt(26070,8682,"ide_methods.bas");if(r)goto S_45815;} -S_45816:; -fornext_value5051= 1 ; -fornext_finalvalue5051=*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALVISIBLEVARIABLES; -fornext_step5051= 1 ; -if (fornext_step5051<0) fornext_step_negative5051=1; else fornext_step_negative5051=0; -if (new_error) goto fornext_error5051; -goto fornext_entrylabel5051; -while(1){ -fornext_value5051=fornext_step5051+(*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y); -fornext_entrylabel5051: -*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y=fornext_value5051; -if (fornext_step_negative5051){ -if (fornext_value5051fornext_finalvalue5051) break; -} -fornext_error5051:; -if(qbevent){evnt(26070,8683,"ide_methods.bas");if(r)goto S_45816;} -do{ -*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+29))= 0 ; -if(!qbevent)break;evnt(26070,8684,"ide_methods.bas");}while(r); -do{ -tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ -tmp_fileno=*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+8)); if (!new_error){ -tmp_long= 16 ; if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(26070,8685,"ide_methods.bas");}while(r); -do{ -tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ -tmp_fileno=*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+12)); if (!new_error){ -tmp_long= 2 ; if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(26070,8686,"ide_methods.bas");}while(r); -do{ -tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ -tmp_fileno=*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+4)); if (!new_error){ -tmp_long= 17 ; if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(26070,8687,"ide_methods.bas");}while(r); -do{ -tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ -tmp_fileno=*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+16)); if (!new_error){ -tmp_long= 32 ; if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(26070,8688,"ide_methods.bas");}while(r); -fornext_continue_5050:; -} -fornext_exit_5050:; -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS=*_FUNC_IDEVARIABLEWATCHBOX_LONG_FILTERBOX; -if(!qbevent)break;evnt(26070,8690,"ide_methods.bas");}while(r); -do{ -goto dl_continue_5039; -if(!qbevent)break;evnt(26070,8691,"ide_methods.bas");}while(r); -} -S_45826:; -if ((((-(*__LONG_IDEDEBUGMODE> 0 ))&(-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS== 5 ))&(-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_INFO!= 0 )))|((-(*__LONG_IDEDEBUGMODE> 0 ))&(-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS== 6 ))&(-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_INFO!= 0 ))))||new_error){ -if(qbevent){evnt(26070,8695,"ide_methods.bas");if(r)goto S_45826;} -LABEL_SENDVALUE:; -if(qbevent){evnt(26070,8697,"ide_methods.bas");r=0;} -S_45827:; -if(qbevent){evnt(26070,8698,"ide_methods.bas");if(r)goto S_45827;} -S_45828:; -if (((*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS==( 5 )))||new_error){ -if(qbevent){evnt(26070,8699,"ide_methods.bas");if(r)goto S_45828;} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_DLGTITLE,qbs_new_txt_len("Change Value",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8700,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_DLGPROMPT,qbs_new_txt_len("#Index to change",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8701,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_DLGPROMPT2,qbs_new_txt_len("#New value",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8702,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISRETURNACTION= 1 ; -if(!qbevent)break;evnt(26070,8703,"ide_methods.bas");}while(r); -sc_ec_318_end:; -goto sc_5052_end; -} -S_45833:; -if (((*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS==( 6 )))||new_error){ -if(qbevent){evnt(26070,8704,"ide_methods.bas");if(r)goto S_45833;} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_DLGTITLE,qbs_new_txt_len("Add Watchpoint",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8705,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_DLGPROMPT,qbs_new_txt_len("#Index to monitor",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8706,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_DLGPROMPT2,qbs_new_txt_len("#Condition",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8707,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISRETURNACTION= 2 ; -if(!qbevent)break;evnt(26070,8708,"ide_methods.bas");}while(r); -sc_ec_319_end:; -goto sc_5052_end; -} -sc_5052_end:; -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y=func_abs((int32)(*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+64)))); -if(!qbevent)break;evnt(26070,8711,"ide_methods.bas");}while(r); -S_45840:; -if (((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y>= 1 ))&(-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y<=*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALVISIBLEVARIABLES)))||new_error){ -if(qbevent){evnt(26070,8713,"ide_methods.bas");if(r)goto S_45840;} -do{ -*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+64))=*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y; -if(!qbevent)break;evnt(26070,8714,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_QUICKDLGUPDATE= -1 ; -if(!qbevent)break;evnt(26070,8715,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=144; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_DLGUPDATE; -RETURN_144:; -if(!qbevent)break;evnt(26070,8715,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX=*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)); -if(!qbevent)break;evnt(26070,8716,"ide_methods.bas");}while(r); -S_45845:; -if ((qbs_cleanup(qbs_tmp_base,(((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS== 5 ))&(((qbs_equal(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+64))),_FUNC_IDEVARIABLEWATCHBOX_STRING_CURRENTSCOPE))|(qbs_equal(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+64))),qbs_new_txt_len("",0)))))))|(-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS== 6 ))))||new_error){ -if(qbevent){evnt(26070,8717,"ide_methods.bas");if(r)goto S_45845;} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPARRAYINDEX= 0 ; -if(!qbevent)break;evnt(26070,8719,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPARRAYINDEXES,l2string( 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8720,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPSTORAGE= 0 ; -if(!qbevent)break;evnt(26070,8722,"ide_methods.bas");}while(r); -S_45849:; -if ((qbs_cleanup(qbs_tmp_base,-((*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+112)))->len== 4 )))||new_error){ -if(qbevent){evnt(26070,8723,"ide_methods.bas");if(r)goto S_45849;} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPSTORAGE=string2l(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+112)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8724,"ide_methods.bas");}while(r); -S_45851:; -}else{ -if (qbs_cleanup(qbs_tmp_base,-((*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+112)))->len> 4 ))){ -if(qbevent){evnt(26070,8725,"ide_methods.bas");if(r)goto S_45851;} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_I= 4 ; -if(!qbevent)break;evnt(26070,8726,"ide_methods.bas");}while(r); -S_45853:; -do{ -if(qbevent){evnt(26070,8727,"ide_methods.bas");if(r)goto S_45853;} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_I=func_instr(*_FUNC_IDEVARIABLEWATCHBOX_LONG_I+ 1 ,__STRING_VARIABLEWATCHLIST,qbs_add(qbs_add(l2string( -1 ),l2string(*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)),_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPARRAYINDEXES),0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8728,"ide_methods.bas");}while(r); -S_45855:; -if ((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_I== 0 ))||new_error){ -if(qbevent){evnt(26070,8729,"ide_methods.bas");if(r)goto S_45855;} -do{ -goto dl_exit_5053; -if(!qbevent)break;evnt(26070,8729,"ide_methods.bas");}while(r); -} -S_45858:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(__STRING_VARIABLEWATCHLIST,*_FUNC_IDEVARIABLEWATCHBOX_LONG_I+ 8 +_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPARRAYINDEXES->len, 4 ,0|1),_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPELEMENTOFFSET)))||new_error){ -if(qbevent){evnt(26070,8730,"ide_methods.bas");if(r)goto S_45858;} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPSTORAGE=string2l(func_mid(__STRING_VARIABLEWATCHLIST,*_FUNC_IDEVARIABLEWATCHBOX_LONG_I+ 16 +_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPARRAYINDEXES->len, 4 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8732,"ide_methods.bas");}while(r); -do{ -goto dl_exit_5053; -if(!qbevent)break;evnt(26070,8733,"ide_methods.bas");}while(r); -} -dl_continue_5053:; -}while(1); -dl_exit_5053:; -} -} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPISUDT= 0 ; -if(!qbevent)break;evnt(26070,8738,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPELEMENTOFFSET,l2string( 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8739,"ide_methods.bas");}while(r); -S_45866:; -if ((*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+30)))||new_error){ -if(qbevent){evnt(26070,8740,"ide_methods.bas");if(r)goto S_45866;} -LABEL_SETARRAYRANGE3:; -if(qbevent){evnt(26070,8741,"ide_methods.bas");r=0;} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_V,FUNC_IDEINPUTBOX(_FUNC_IDEVARIABLEWATCHBOX_STRING_DLGTITLE,_FUNC_IDEVARIABLEWATCHBOX_STRING_DLGPROMPT,_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,qbs_new_txt_len("01234567890,",12),&(pass5056= 45 ),&(pass5057= 0 ),_FUNC_IDEVARIABLEWATCHBOX_LONG_OK)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8742,"ide_methods.bas");}while(r); -do{ -sub__keyclear(NULL,0); -if(!qbevent)break;evnt(26070,8743,"ide_methods.bas");}while(r); -S_45869:; -if ((*_FUNC_IDEVARIABLEWATCHBOX_LONG_OK)||new_error){ -if(qbevent){evnt(26070,8744,"ide_methods.bas");if(r)goto S_45869;} -S_45870:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDEVARIABLEWATCHBOX_STRING_V->len> 0 )))||new_error){ -if(qbevent){evnt(26070,8745,"ide_methods.bas");if(r)goto S_45870;} -S_45871:; -while((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_FUNC_IDEVARIABLEWATCHBOX_STRING_V, 1 ),qbs_new_txt_len(",",1))))||new_error){ -if(qbevent){evnt(26070,8746,"ide_methods.bas");if(r)goto S_45871;} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_V,qbs_left(_FUNC_IDEVARIABLEWATCHBOX_STRING_V,_FUNC_IDEVARIABLEWATCHBOX_STRING_V->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8746,"ide_methods.bas");}while(r); -ww_continue_5059:; -} -ww_exit_5059:; -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,FUNC_LINEFORMAT(_FUNC_IDEVARIABLEWATCHBOX_STRING_V)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8747,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_I=FUNC_COUNTELEMENTS(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8748,"ide_methods.bas");}while(r); -S_45876:; -if ((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_I!=func_abs((int16)(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120)))-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+516))))))||new_error){ -if(qbevent){evnt(26070,8749,"ide_methods.bas");if(r)goto S_45876;} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Error",5),qbs_add(qbs_add(qbs_new_txt_len("Array has",9),qbs_str((int16)(func_abs((int16)(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120)))-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+516))))))),qbs_new_txt_len(" dimension(s).",14)),qbs_new_txt_len("#OK",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8750,"ide_methods.bas");}while(r); -do{ -sub__keyclear(NULL,0); -if(!qbevent)break;evnt(26070,8751,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,qbs__trim(_FUNC_IDEVARIABLEWATCHBOX_STRING_V)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8752,"ide_methods.bas");}while(r); -do{ -goto LABEL_SETARRAYRANGE3; -if(!qbevent)break;evnt(26070,8753,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPARRAYINDEXES,l2string(*_FUNC_IDEVARIABLEWATCHBOX_LONG_I* 4 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8755,"ide_methods.bas");}while(r); -S_45883:; -while((*_FUNC_IDEVARIABLEWATCHBOX_LONG_I)||new_error){ -if(qbevent){evnt(26070,8756,"ide_methods.bas");if(r)goto S_45883;} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOUNDCOMMA=func_instr(NULL,_FUNC_IDEVARIABLEWATCHBOX_STRING_V,qbs_new_txt_len(",",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8757,"ide_methods.bas");}while(r); -S_45885:; -if ((*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOUNDCOMMA)||new_error){ -if(qbevent){evnt(26070,8758,"ide_methods.bas");if(r)goto S_45885;} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,qbs_left(_FUNC_IDEVARIABLEWATCHBOX_STRING_V,*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOUNDCOMMA- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8759,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_V,func_mid(_FUNC_IDEVARIABLEWATCHBOX_STRING_V,*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOUNDCOMMA+ 1 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8760,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,_FUNC_IDEVARIABLEWATCHBOX_STRING_V); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8762,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPARRAYINDEXES,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPARRAYINDEXES,l2string(qbr(func_val(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8764,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_I=*_FUNC_IDEVARIABLEWATCHBOX_LONG_I- 1 ; -if(!qbevent)break;evnt(26070,8765,"ide_methods.bas");}while(r); -ww_continue_5061:; -} -ww_exit_5061:; -}else{ -do{ -goto dl_continue_5039; -if(!qbevent)break;evnt(26070,8768,"ide_methods.bas");}while(r); -} -}else{ -do{ -goto dl_continue_5039; -if(!qbevent)break;evnt(26070,8771,"ide_methods.bas");}while(r); -} -} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+48)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8775,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPVARTYPE,_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8776,"ide_methods.bas");}while(r); -S_45903:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("STRING *",8),0)))||new_error){ -if(qbevent){evnt(26070,8777,"ide_methods.bas");if(r)goto S_45903;} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPVARTYPE,qbs_new_txt_len("STRING",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8777,"ide_methods.bas");}while(r); -} -S_45906:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("BIT *",5),0)))||new_error){ -if(qbevent){evnt(26070,8778,"ide_methods.bas");if(r)goto S_45906;} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPVARTYPE,qbs_new_txt_len("_BIT",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8778,"ide_methods.bas");}while(r); -} -S_45909:; -if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,__STRING_NATIVEDATATYPES,_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPVARTYPE,0)== 0 )))||new_error){ -if(qbevent){evnt(26070,8779,"ide_methods.bas");if(r)goto S_45909;} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPISUDT= -1 ; -if(!qbevent)break;evnt(26070,8781,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_ELEMENTINDEXES,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8782,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISUDT= 0 ; -if(!qbevent)break;evnt(26070,8783,"ide_methods.bas");}while(r); -do{ -*__LONG_E= 0 ; -if(!qbevent)break;evnt(26070,8784,"ide_methods.bas");}while(r); -S_45914:; -fornext_value5063= 1 ; -fornext_finalvalue5063=*__LONG_LASTTYPE; -fornext_step5063= 1 ; -if (fornext_step5063<0) fornext_step_negative5063=1; else fornext_step_negative5063=0; -if (new_error) goto fornext_error5063; -goto fornext_entrylabel5063; -while(1){ -fornext_value5063=fornext_step5063+(*_FUNC_IDEVARIABLEWATCHBOX_LONG_I); -fornext_entrylabel5063: -*_FUNC_IDEVARIABLEWATCHBOX_LONG_I=fornext_value5063; -if (fornext_step_negative5063){ -if (fornext_value5063fornext_finalvalue5063) break; -} -fornext_error5063:; -if(qbevent){evnt(26070,8785,"ide_methods.bas");if(r)goto S_45914;} -S_45915:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[(array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_I)-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]))*256],256,1)),_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE)))||new_error){ -if(qbevent){evnt(26070,8786,"ide_methods.bas");if(r)goto S_45915;} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISUDT=*_FUNC_IDEVARIABLEWATCHBOX_LONG_I; -if(!qbevent)break;evnt(26070,8786,"ide_methods.bas");}while(r); -do{ -goto fornext_exit_5062; -if(!qbevent)break;evnt(26070,8786,"ide_methods.bas");}while(r); -} -fornext_continue_5062:; -} -fornext_exit_5062:; -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_I= 0 ; -if(!qbevent)break;evnt(26070,8789,"ide_methods.bas");}while(r); -S_45921:; -do{ -if(qbevent){evnt(26070,8790,"ide_methods.bas");if(r)goto S_45921;} -S_45922:; -if ((-(*__LONG_E== 0 ))||new_error){ -if(qbevent){evnt(26070,8791,"ide_methods.bas");if(r)goto S_45922;} -do{ -*__LONG_E=((int32*)(__ARRAY_LONG_UDTXNEXT[0]))[array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISUDT)-__ARRAY_LONG_UDTXNEXT[4],__ARRAY_LONG_UDTXNEXT[5])]; -if(!qbevent)break;evnt(26070,8791,"ide_methods.bas");}while(r); -}else{ -do{ -*__LONG_E=((int32*)(__ARRAY_LONG_UDTENEXT[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5])]; -if(!qbevent)break;evnt(26070,8791,"ide_methods.bas");}while(r); -} -S_45927:; -if ((-(*__LONG_E== 0 ))||new_error){ -if(qbevent){evnt(26070,8792,"ide_methods.bas");if(r)goto S_45927;} -do{ -goto dl_exit_5064; -if(!qbevent)break;evnt(26070,8792,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_ELEMENTINDEXES,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_ELEMENTINDEXES,l2string(*__LONG_E))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8793,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_I=*_FUNC_IDEVARIABLEWATCHBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,8794,"ide_methods.bas");}while(r); -dl_continue_5064:; -}while(1); -dl_exit_5064:; -do{ -sub_pcopy( 0 , 4 ); -if(!qbevent)break;evnt(26070,8796,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_V,FUNC_IDEELEMENTWATCHBOX(qbs_add(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+32))),qbs_new_txt_len(".",1)),_FUNC_IDEVARIABLEWATCHBOX_STRING_ELEMENTINDEXES,&(pass5065= 0 ),&(pass5066= -1 ),_FUNC_IDEVARIABLEWATCHBOX_LONG_OK)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8797,"ide_methods.bas");}while(r); -do{ -sub__keyclear(NULL,0); -if(!qbevent)break;evnt(26070,8798,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(26070,8799,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 2 , 1 ); -if(!qbevent)break;evnt(26070,8800,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,8801,"ide_methods.bas");}while(r); -S_45939:; -if ((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_OK== -2 ))||new_error){ -if(qbevent){evnt(26070,8802,"ide_methods.bas");if(r)goto S_45939;} -do{ -SUB_GETID((int32*)(void*)( ((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])) + ((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120) )); -if(!qbevent)break;evnt(26070,8803,"ide_methods.bas");}while(r); -S_45941:; -if ((-(*(int32*)(((char*)__UDT_ID)+(536))== 0 ))||new_error){ -if(qbevent){evnt(26070,8804,"ide_methods.bas");if(r)goto S_45941;} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP=*(int32*)(((char*)__UDT_ID)+(512))& 511 ; -if(!qbevent)break;evnt(26070,8805,"ide_methods.bas");}while(r); -S_45943:; -if ((*(int32*)(((char*)__UDT_ID)+(512))&*__LONG_ISINCONVENTIONALMEMORY)||new_error){ -if(qbevent){evnt(26070,8806,"ide_methods.bas");if(r)goto S_45943;} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP=*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP-*__LONG_ISINCONVENTIONALMEMORY; -if(!qbevent)break;evnt(26070,8807,"ide_methods.bas");}while(r); -} -do{ -*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+24))=((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])]; -if(!qbevent)break;evnt(26070,8810,"ide_methods.bas");}while(r); -S_45947:; -if ((((int16*)(__ARRAY_INTEGER_UDTXBYTEALIGN[0]))[array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP)-__ARRAY_INTEGER_UDTXBYTEALIGN[4],__ARRAY_INTEGER_UDTXBYTEALIGN[5])])||new_error){ -if(qbevent){evnt(26070,8811,"ide_methods.bas");if(r)goto S_45947;} -S_45948:; -if ((*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+24))% 8 )||new_error){ -if(qbevent){evnt(26070,8812,"ide_methods.bas");if(r)goto S_45948;} -do{ -*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+24))=*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+24))+( 8 -(*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+24))% 8 )); -if(!qbevent)break;evnt(26070,8812,"ide_methods.bas");}while(r); -} -do{ -*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+24))=*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+24))/ 8 ; -if(!qbevent)break;evnt(26070,8813,"ide_methods.bas");}while(r); -} -}else{ -do{ -*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+24))= 0 ; -if(!qbevent)break;evnt(26070,8816,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,_FUNC_IDEVARIABLEWATCHBOX_STRING_V); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8819,"ide_methods.bas");}while(r); -S_45957:; -if ((qbs_cleanup(qbs_tmp_base,-(FUNC_NUMELEMENTS(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP)!= 1 )))||new_error){ -if(qbevent){evnt(26070,8820,"ide_methods.bas");if(r)goto S_45957;} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Error",5),qbs_new_txt_len("Only one UDT element can be selected at a time",46),qbs_new_txt_len("#OK",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8822,"ide_methods.bas");}while(r); -do{ -sub__keyclear(NULL,0); -if(!qbevent)break;evnt(26070,8823,"ide_methods.bas");}while(r); -do{ -goto dl_continue_5039; -if(!qbevent)break;evnt(26070,8824,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_V,FUNC_GETELEMENT(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,&(pass5067= 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8827,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_V,FUNC_LINEFORMAT(qbs_ucase(_FUNC_IDEVARIABLEWATCHBOX_STRING_V))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8830,"ide_methods.bas");}while(r); -do{ -*__LONG_ERROR_HAPPENED= 0 ; -if(!qbevent)break;evnt(26070,8831,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_RESULT,FUNC_UDTREFERENCE(qbs_new_txt_len("",0),_FUNC_IDEVARIABLEWATCHBOX_STRING_V,_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8832,"ide_methods.bas");}while(r); -S_45966:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(26070,8833,"ide_methods.bas");if(r)goto S_45966;} -do{ -*__LONG_ERROR_HAPPENED= 0 ; -if(!qbevent)break;evnt(26070,8835,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Error",5),__STRING_ERROR_MESSAGE,qbs_new_txt_len("#OK",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8836,"ide_methods.bas");}while(r); -do{ -sub__keyclear(NULL,0); -if(!qbevent)break;evnt(26070,8837,"ide_methods.bas");}while(r); -do{ -goto dl_continue_5039; -if(!qbevent)break;evnt(26070,8838,"ide_methods.bas");}while(r); -}else{ -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP=*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP-*__LONG_ISUDT; -if(!qbevent)break;evnt(26070,8840,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP=*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP-*__LONG_ISREFERENCE; -if(!qbevent)break;evnt(26070,8841,"ide_methods.bas");}while(r); -S_45974:; -if ((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP&*__LONG_ISINCONVENTIONALMEMORY)||new_error){ -if(qbevent){evnt(26070,8842,"ide_methods.bas");if(r)goto S_45974;} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP=*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP-*__LONG_ISINCONVENTIONALMEMORY; -if(!qbevent)break;evnt(26070,8842,"ide_methods.bas");}while(r); -} -S_45977:; -if(qbevent){evnt(26070,8843,"ide_methods.bas");if(r)goto S_45977;} -S_45978:; -if (((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP==(*__LONG_BYTETYPE)))||new_error){ -if(qbevent){evnt(26070,8844,"ide_methods.bas");if(r)goto S_45978;} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("_BYTE",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8845,"ide_methods.bas");}while(r); -sc_ec_320_end:; -goto sc_5068_end; -} -S_45980:; -if (((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP==(*__LONG_UBYTETYPE)))||new_error){ -if(qbevent){evnt(26070,8846,"ide_methods.bas");if(r)goto S_45980;} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("_UNSIGNED _BYTE",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8847,"ide_methods.bas");}while(r); -sc_ec_321_end:; -goto sc_5068_end; -} -S_45982:; -if (((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP==(*__LONG_INTEGERTYPE)))||new_error){ -if(qbevent){evnt(26070,8848,"ide_methods.bas");if(r)goto S_45982;} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("INTEGER",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8849,"ide_methods.bas");}while(r); -sc_ec_322_end:; -goto sc_5068_end; -} -S_45984:; -if (((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP==(*__LONG_UINTEGERTYPE)))||new_error){ -if(qbevent){evnt(26070,8850,"ide_methods.bas");if(r)goto S_45984;} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("_UNSIGNED INTEGER",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8851,"ide_methods.bas");}while(r); -sc_ec_323_end:; -goto sc_5068_end; -} -S_45986:; -if (((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP==(*__LONG_LONGTYPE)))||new_error){ -if(qbevent){evnt(26070,8852,"ide_methods.bas");if(r)goto S_45986;} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("LONG",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8853,"ide_methods.bas");}while(r); -sc_ec_324_end:; -goto sc_5068_end; -} -S_45988:; -if (((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP==(*__LONG_ULONGTYPE)))||new_error){ -if(qbevent){evnt(26070,8854,"ide_methods.bas");if(r)goto S_45988;} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("_UNSIGNED LONG",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8855,"ide_methods.bas");}while(r); -sc_ec_325_end:; -goto sc_5068_end; -} -S_45990:; -if (((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP==(*__LONG_INTEGER64TYPE)))||new_error){ -if(qbevent){evnt(26070,8856,"ide_methods.bas");if(r)goto S_45990;} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("_INTEGER64",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8857,"ide_methods.bas");}while(r); -sc_ec_326_end:; -goto sc_5068_end; -} -S_45992:; -if (((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP==(*__LONG_UINTEGER64TYPE)))||new_error){ -if(qbevent){evnt(26070,8858,"ide_methods.bas");if(r)goto S_45992;} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("_UNSIGNED _INTEGER64",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8859,"ide_methods.bas");}while(r); -sc_ec_327_end:; -goto sc_5068_end; -} -S_45994:; -if (((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP==(*__LONG_SINGLETYPE)))||new_error){ -if(qbevent){evnt(26070,8860,"ide_methods.bas");if(r)goto S_45994;} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("SINGLE",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8861,"ide_methods.bas");}while(r); -sc_ec_328_end:; -goto sc_5068_end; -} -S_45996:; -if (((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP==(*__LONG_DOUBLETYPE)))||new_error){ -if(qbevent){evnt(26070,8862,"ide_methods.bas");if(r)goto S_45996;} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("DOUBLE",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8863,"ide_methods.bas");}while(r); -sc_ec_329_end:; -goto sc_5068_end; -} -S_45998:; -if (((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP==(*__LONG_FLOATTYPE)))||new_error){ -if(qbevent){evnt(26070,8864,"ide_methods.bas");if(r)goto S_45998;} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("_FLOAT",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8865,"ide_methods.bas");}while(r); -sc_ec_330_end:; -goto sc_5068_end; -} -S_46000:; -if (((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP==(*__LONG_OFFSETTYPE)))||new_error){ -if(qbevent){evnt(26070,8866,"ide_methods.bas");if(r)goto S_46000;} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("_OFFSET",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8867,"ide_methods.bas");}while(r); -sc_ec_331_end:; -goto sc_5068_end; -} -S_46002:; -if (((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP==(*__LONG_UOFFSETTYPE)))||new_error){ -if(qbevent){evnt(26070,8868,"ide_methods.bas");if(r)goto S_46002;} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("_UNSIGNED _OFFSET",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8869,"ide_methods.bas");}while(r); -sc_ec_332_end:; -goto sc_5068_end; -} -S_46005:; -if ((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(26070,8871,"ide_methods.bas");if(r)goto S_46005;} -S_46006:; -if ((-((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ -if(qbevent){evnt(26070,8872,"ide_methods.bas");if(r)goto S_46006;} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("STRING",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8873,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,qbs_add(qbs_new_txt_len("STRING *",8),qbs_str((int32)(((int32*)(__ARRAY_LONG_UDTETYPESIZE[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTETYPESIZE[4],__ARRAY_LONG_UDTETYPESIZE[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8876,"ide_methods.bas");}while(r); -} -}else{ -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Error",5),qbs_new_txt_len("Cannot select full UDT",22),qbs_new_txt_len("#OK",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8880,"ide_methods.bas");}while(r); -do{ -sub__keyclear(NULL,0); -if(!qbevent)break;evnt(26070,8881,"ide_methods.bas");}while(r); -do{ -goto LABEL_DLGLOOP; -if(!qbevent)break;evnt(26070,8882,"ide_methods.bas");}while(r); -} -sc_5068_end:; -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPELEMENTOFFSET,l2string(qbr(func_val(func_mid(_FUNC_IDEVARIABLEWATCHBOX_STRING_RESULT,func__instrrev(NULL,_FUNC_IDEVARIABLEWATCHBOX_STRING_RESULT,__STRING1_SP3,0)+ 1 ,NULL,0))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8885,"ide_methods.bas");}while(r); -} -}else{ -do{ -goto dl_continue_5039; -if(!qbevent)break;evnt(26070,8889,"ide_methods.bas");}while(r); -} -} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_STORAGESLOT= 0 ; -if(!qbevent)break;evnt(26070,8892,"ide_methods.bas");}while(r); -S_46024:; -if ((qbs_cleanup(qbs_tmp_base,-((*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+112)))->len== 4 )))||new_error){ -if(qbevent){evnt(26070,8893,"ide_methods.bas");if(r)goto S_46024;} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_STORAGESLOT=string2l(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+112)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8894,"ide_methods.bas");}while(r); -S_46026:; -}else{ -if (qbs_cleanup(qbs_tmp_base,-((*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+112)))->len> 4 ))){ -if(qbevent){evnt(26070,8895,"ide_methods.bas");if(r)goto S_46026;} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_I= 4 ; -if(!qbevent)break;evnt(26070,8896,"ide_methods.bas");}while(r); -S_46028:; -do{ -if(qbevent){evnt(26070,8897,"ide_methods.bas");if(r)goto S_46028;} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_I=func_instr(*_FUNC_IDEVARIABLEWATCHBOX_LONG_I+ 1 ,__STRING_VARIABLEWATCHLIST,qbs_add(qbs_add(l2string( -1 ),l2string(*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)),_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPARRAYINDEXES),0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8898,"ide_methods.bas");}while(r); -S_46030:; -if ((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_I== 0 ))||new_error){ -if(qbevent){evnt(26070,8899,"ide_methods.bas");if(r)goto S_46030;} -do{ -goto dl_exit_5069; -if(!qbevent)break;evnt(26070,8899,"ide_methods.bas");}while(r); -} -S_46033:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(__STRING_VARIABLEWATCHLIST,*_FUNC_IDEVARIABLEWATCHBOX_LONG_I+ 8 +_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPARRAYINDEXES->len, 4 ,0|1),_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPELEMENTOFFSET)))||new_error){ -if(qbevent){evnt(26070,8900,"ide_methods.bas");if(r)goto S_46033;} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_STORAGESLOT=string2l(func_mid(__STRING_VARIABLEWATCHLIST,*_FUNC_IDEVARIABLEWATCHBOX_LONG_I+ 16 +_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPARRAYINDEXES->len, 4 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8902,"ide_methods.bas");}while(r); -do{ -goto dl_exit_5069; -if(!qbevent)break;evnt(26070,8903,"ide_methods.bas");}while(r); -} -dl_continue_5069:; -}while(1); -dl_exit_5069:; -} -} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_A2,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8907,"ide_methods.bas");}while(r); -S_46040:; -if (((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_STORAGESLOT> 0 ))&(-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS== 5 )))||new_error){ -if(qbevent){evnt(26070,8908,"ide_methods.bas");if(r)goto S_46040;} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_A2,((qbs*)(((uint64*)(__ARRAY_STRING_VWATCHRECEIVEDDATA[0]))[array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_STORAGESLOT)-__ARRAY_STRING_VWATCHRECEIVEDDATA[4],__ARRAY_STRING_VWATCHRECEIVEDDATA[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8909,"ide_methods.bas");}while(r); -S_46042:; -}else{ -if (-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS== 6 )){ -if(qbevent){evnt(26070,8910,"ide_methods.bas");if(r)goto S_46042;} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,qbs_add(qbs_add(l2string(*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX),_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPARRAYINDEXES),_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPELEMENTOFFSET)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8912,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_I= 0 ; -if(!qbevent)break;evnt(26070,8913,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_I=func_instr(*_FUNC_IDEVARIABLEWATCHBOX_LONG_I+ 1 ,__STRING_WATCHPOINTLIST,l2string( -1 ),0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8914,"ide_methods.bas");}while(r); -S_46046:; -while((*_FUNC_IDEVARIABLEWATCHBOX_LONG_I)||new_error){ -if(qbevent){evnt(26070,8915,"ide_methods.bas");if(r)goto S_46046;} -S_46047:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(__STRING_WATCHPOINTLIST,*_FUNC_IDEVARIABLEWATCHBOX_LONG_I+ 8 ,_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP->len,0|1),_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP)))||new_error){ -if(qbevent){evnt(26070,8916,"ide_methods.bas");if(r)goto S_46047;} -do{ -goto dl_exit_5072; -if(!qbevent)break;evnt(26070,8916,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_I=func_instr(*_FUNC_IDEVARIABLEWATCHBOX_LONG_I+ 1 ,__STRING_WATCHPOINTLIST,l2string( -1 ),0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8917,"ide_methods.bas");}while(r); -dl_continue_5072:; -} -dl_exit_5072:; -S_46052:; -if ((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_I> 0 ))||new_error){ -if(qbevent){evnt(26070,8920,"ide_methods.bas");if(r)goto S_46052;} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_J=string2l(func_mid(__STRING_WATCHPOINTLIST,*_FUNC_IDEVARIABLEWATCHBOX_LONG_I+ 4 , 4 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8921,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,func_mid(__STRING_WATCHPOINTLIST,*_FUNC_IDEVARIABLEWATCHBOX_LONG_I+ 8 ,*_FUNC_IDEVARIABLEWATCHBOX_LONG_J,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8922,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_J=string2i(qbs_right(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP, 2 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8923,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_A2,func_mid(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP->len-( 2 +*_FUNC_IDEVARIABLEWATCHBOX_LONG_J)+ 1 ,*_FUNC_IDEVARIABLEWATCHBOX_LONG_J,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8924,"ide_methods.bas");}while(r); -} -} -} -S_46059:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("STRING",6),0)))||new_error){ -if(qbevent){evnt(26070,8927,"ide_methods.bas");if(r)goto S_46059;} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISWIDTH=*__LONG_IDEWX- 20 ; -if(!qbevent)break;evnt(26070,8928,"ide_methods.bas");}while(r); -}else{ -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISWIDTH= 45 ; -if(!qbevent)break;evnt(26070,8930,"ide_methods.bas");}while(r); -S_46063:; -sc_5075=*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+31)); -if(qbevent){evnt(26070,8931,"ide_methods.bas");if(r)goto S_46063;} -S_46064:; -if (((sc_5075==( 1 )))||new_error){ -if(qbevent){evnt(26070,8932,"ide_methods.bas");if(r)goto S_46064;} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_A2,qbs_add(qbs_new_txt_len("&H",2),func_hex_float(func_val(_FUNC_IDEVARIABLEWATCHBOX_STRING_A2)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8932,"ide_methods.bas");}while(r); -sc_ec_333_end:; -goto sc_5075_end; -} -S_46066:; -if (((sc_5075==( 2 )))||new_error){ -if(qbevent){evnt(26070,8933,"ide_methods.bas");if(r)goto S_46066;} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_A2,qbs_add(qbs_new_txt_len("&B",2),func__bin_float(func_val(_FUNC_IDEVARIABLEWATCHBOX_STRING_A2)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8933,"ide_methods.bas");}while(r); -sc_ec_334_end:; -goto sc_5075_end; -} -S_46068:; -if (((sc_5075==( 3 )))||new_error){ -if(qbevent){evnt(26070,8934,"ide_methods.bas");if(r)goto S_46068;} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_A2,qbs_add(qbs_new_txt_len("&O",2),func_oct_float(func_val(_FUNC_IDEVARIABLEWATCHBOX_STRING_A2)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8934,"ide_methods.bas");}while(r); -sc_ec_335_end:; -goto sc_5075_end; -} -sc_5075_end:; -} -LABEL_GETNEWVALUEINPUT:; -if(qbevent){evnt(26070,8937,"ide_methods.bas");r=0;} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_V,FUNC_IDEINPUTBOX(_FUNC_IDEVARIABLEWATCHBOX_STRING_DLGTITLE,_FUNC_IDEVARIABLEWATCHBOX_STRING_DLGPROMPT2,_FUNC_IDEVARIABLEWATCHBOX_STRING_A2,qbs_new_txt_len("",0),_FUNC_IDEVARIABLEWATCHBOX_LONG_THISWIDTH,&(pass5076= 0 ),_FUNC_IDEVARIABLEWATCHBOX_LONG_OK)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8938,"ide_methods.bas");}while(r); -do{ -sub__keyclear(NULL,0); -if(!qbevent)break;evnt(26070,8939,"ide_methods.bas");}while(r); -S_46074:; -if ((*_FUNC_IDEVARIABLEWATCHBOX_LONG_OK)||new_error){ -if(qbevent){evnt(26070,8940,"ide_methods.bas");if(r)goto S_46074;} -S_46075:; -if ((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS== 6 ))||new_error){ -if(qbevent){evnt(26070,8941,"ide_methods.bas");if(r)goto S_46075;} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_V,qbs_ltrim(_FUNC_IDEVARIABLEWATCHBOX_STRING_V)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8943,"ide_methods.bas");}while(r); -S_46077:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDEVARIABLEWATCHBOX_STRING_V->len< 2 )))||new_error){ -if(qbevent){evnt(26070,8944,"ide_methods.bas");if(r)goto S_46077;} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_RESULT=FUNC_IDEMESSAGEBOX(_FUNC_IDEVARIABLEWATCHBOX_STRING_DLGTITLE,qbs_new_txt_len("Watchpoint cleared.",19),qbs_new_txt_len("#OK",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8945,"ide_methods.bas");}while(r); -do{ -sub__keyclear(NULL,0); -if(!qbevent)break;evnt(26070,8946,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_V,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8947,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISRETURNACTION= 3 ; -if(!qbevent)break;evnt(26070,8948,"ide_methods.bas");}while(r); -}else{ -LABEL_STARTWATCHPOINTEVAL:; -if(qbevent){evnt(26070,8950,"ide_methods.bas");r=0;} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_OP1,qbs_left(_FUNC_IDEVARIABLEWATCHBOX_STRING_V, 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8951,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_OP2,func_mid(_FUNC_IDEVARIABLEWATCHBOX_STRING_V, 2 , 1 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8952,"ide_methods.bas");}while(r); -S_46085:; -if(qbevent){evnt(26070,8953,"ide_methods.bas");if(r)goto S_46085;} -S_46086:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEVARIABLEWATCHBOX_STRING_OP1,qbs_new_txt_len("=",1))))||new_error){ -if(qbevent){evnt(26070,8954,"ide_methods.bas");if(r)goto S_46086;} -S_46087:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_IDEVARIABLEWATCHBOX_STRING_OP2,qbs_new_txt_len("<",1)))|(qbs_equal(_FUNC_IDEVARIABLEWATCHBOX_STRING_OP2,qbs_new_txt_len(">",1)))))||new_error){ -if(qbevent){evnt(26070,8955,"ide_methods.bas");if(r)goto S_46087;} -do{ -sub_mid(_FUNC_IDEVARIABLEWATCHBOX_STRING_V, 1 , 2 ,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_OP2,qbs_new_txt_len("=",1)),1); -if(!qbevent)break;evnt(26070,8956,"ide_methods.bas");}while(r); -do{ -goto LABEL_STARTWATCHPOINTEVAL; -if(!qbevent)break;evnt(26070,8957,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_OP,qbs_new_txt_len("=",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8959,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_ACTUALVALUE,qbs__trim(func_mid(_FUNC_IDEVARIABLEWATCHBOX_STRING_V, 2 ,NULL,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8960,"ide_methods.bas");}while(r); -sc_ec_336_end:; -goto sc_5078_end; -} -S_46093:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEVARIABLEWATCHBOX_STRING_OP1,qbs_new_txt_len(">",1))))||new_error){ -if(qbevent){evnt(26070,8961,"ide_methods.bas");if(r)goto S_46093;} -S_46094:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_IDEVARIABLEWATCHBOX_STRING_OP2,qbs_new_txt_len("<",1)))|(qbs_equal(_FUNC_IDEVARIABLEWATCHBOX_STRING_OP2,qbs_new_txt_len(">",1)))))||new_error){ -if(qbevent){evnt(26070,8962,"ide_methods.bas");if(r)goto S_46094;} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_RESULT=FUNC_IDEMESSAGEBOX(_FUNC_IDEVARIABLEWATCHBOX_STRING_DLGTITLE,qbs_new_txt_len("Invalid expression.\\nYou can use =, <>, >, >=, <, <=, and a literal value",73),qbs_new_txt_len("#OK",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8963,"ide_methods.bas");}while(r); -do{ -sub__keyclear(NULL,0); -if(!qbevent)break;evnt(26070,8964,"ide_methods.bas");}while(r); -do{ -goto LABEL_GETNEWVALUEINPUT; -if(!qbevent)break;evnt(26070,8965,"ide_methods.bas");}while(r); -} -S_46099:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEVARIABLEWATCHBOX_STRING_OP2,qbs_new_txt_len("=",1))))||new_error){ -if(qbevent){evnt(26070,8967,"ide_methods.bas");if(r)goto S_46099;} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_OP,qbs_new_txt_len(">=",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8968,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_ACTUALVALUE,qbs__trim(func_mid(_FUNC_IDEVARIABLEWATCHBOX_STRING_V, 3 ,NULL,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8969,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_OP,qbs_new_txt_len(">",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8971,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_ACTUALVALUE,qbs__trim(func_mid(_FUNC_IDEVARIABLEWATCHBOX_STRING_V, 2 ,NULL,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8972,"ide_methods.bas");}while(r); -} -sc_ec_337_end:; -goto sc_5078_end; -} -S_46106:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEVARIABLEWATCHBOX_STRING_OP1,qbs_new_txt_len("<",1))))||new_error){ -if(qbevent){evnt(26070,8974,"ide_methods.bas");if(r)goto S_46106;} -S_46107:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_IDEVARIABLEWATCHBOX_STRING_OP2,qbs_new_txt_len(">",1)))|(qbs_equal(_FUNC_IDEVARIABLEWATCHBOX_STRING_OP2,qbs_new_txt_len("=",1)))))||new_error){ -if(qbevent){evnt(26070,8975,"ide_methods.bas");if(r)goto S_46107;} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_OP,qbs_add(qbs_new_txt_len("<",1),_FUNC_IDEVARIABLEWATCHBOX_STRING_OP2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8976,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_ACTUALVALUE,qbs__trim(func_mid(_FUNC_IDEVARIABLEWATCHBOX_STRING_V, 3 ,NULL,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8977,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_OP,qbs_new_txt_len("<",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8979,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_ACTUALVALUE,qbs__trim(func_mid(_FUNC_IDEVARIABLEWATCHBOX_STRING_V, 2 ,NULL,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8980,"ide_methods.bas");}while(r); -} -sc_ec_338_end:; -goto sc_5078_end; -} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_RESULT=FUNC_IDEMESSAGEBOX(_FUNC_IDEVARIABLEWATCHBOX_STRING_DLGTITLE,qbs_new_txt_len("Invalid expression.\\nYou can use =, <>, >, >=, <, <=, and a literal value",73),qbs_new_txt_len("#OK",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8983,"ide_methods.bas");}while(r); -do{ -sub__keyclear(NULL,0); -if(!qbevent)break;evnt(26070,8984,"ide_methods.bas");}while(r); -do{ -goto LABEL_GETNEWVALUEINPUT; -if(!qbevent)break;evnt(26070,8985,"ide_methods.bas");}while(r); -sc_5078_end:; -} -S_46120:; -if ((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISRETURNACTION!= 3 ))||new_error){ -if(qbevent){evnt(26070,8989,"ide_methods.bas");if(r)goto S_46120;} -S_46121:; -if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("STRING",6),0)== 0 )))||new_error){ -if(qbevent){evnt(26070,8990,"ide_methods.bas");if(r)goto S_46121;} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_V,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_OP,_FUNC_IDEVARIABLEWATCHBOX_STRING_ACTUALVALUE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8991,"ide_methods.bas");}while(r); -S_46123:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_IDEVARIABLEWATCHBOX_STRING_V,(qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_OP,qbs_ltrim(qbs_str((long double)(func_val(_FUNC_IDEVARIABLEWATCHBOX_STRING_ACTUALVALUE)))))))))||new_error){ -if(qbevent){evnt(26070,8992,"ide_methods.bas");if(r)goto S_46123;} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_RESULT=FUNC_IDEMESSAGEBOX(_FUNC_IDEVARIABLEWATCHBOX_STRING_DLGTITLE,qbs_new_txt_len("Invalid expression.\\nYou can use =, <>, >, >=, <, <=, and a literal value\\n(scientific notation not allowed).",109),qbs_new_txt_len("#OK",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8993,"ide_methods.bas");}while(r); -do{ -sub__keyclear(NULL,0); -if(!qbevent)break;evnt(26070,8994,"ide_methods.bas");}while(r); -do{ -goto LABEL_GETNEWVALUEINPUT; -if(!qbevent)break;evnt(26070,8995,"ide_methods.bas");}while(r); -} -} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_V,qbs_add(qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_OP,qbs_new_txt_len(" ",1)),_FUNC_IDEVARIABLEWATCHBOX_STRING_ACTUALVALUE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,8999,"ide_methods.bas");}while(r); -} -} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9003,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,l2string(*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9004,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,b2string(*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+30))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9005,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,l2string(*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+4))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9006,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,l2string(*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+20))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9007,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPARRAYINDEXES)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9008,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,l2string(*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+24))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9009,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,l2string(*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPISUDT))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9010,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,l2string(*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPELEMENT))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9011,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPELEMENTOFFSET)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9012,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,l2string( 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9013,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,l2string(*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPSTORAGE))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9014,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,i2string((*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+64)))->len))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9015,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+64))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9016,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,qbs_add(qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,i2string(_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE->len)),_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9017,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,qbs_add(qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,i2string(_FUNC_IDEVARIABLEWATCHBOX_STRING_V->len)),_FUNC_IDEVARIABLEWATCHBOX_STRING_V)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9018,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_IDEVARIABLEWATCHBOX,_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9019,"ide_methods.bas");}while(r); -S_46149:; -if (((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISRETURNACTION== 2 ))|(-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISRETURNACTION== 3 )))||new_error){ -if(qbevent){evnt(26070,9021,"ide_methods.bas");if(r)goto S_46149;} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,qbs_add(qbs_add(l2string(*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX),_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPARRAYINDEXES),_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPELEMENTOFFSET)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9023,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_I= 0 ; -if(!qbevent)break;evnt(26070,9024,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_I=func_instr(*_FUNC_IDEVARIABLEWATCHBOX_LONG_I+ 1 ,__STRING_WATCHPOINTLIST,l2string( -1 ),0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9025,"ide_methods.bas");}while(r); -S_46153:; -while((*_FUNC_IDEVARIABLEWATCHBOX_LONG_I)||new_error){ -if(qbevent){evnt(26070,9026,"ide_methods.bas");if(r)goto S_46153;} -S_46154:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(__STRING_WATCHPOINTLIST,*_FUNC_IDEVARIABLEWATCHBOX_LONG_I+ 8 ,_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP->len,0|1),_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP)))||new_error){ -if(qbevent){evnt(26070,9027,"ide_methods.bas");if(r)goto S_46154;} -do{ -goto dl_exit_5081; -if(!qbevent)break;evnt(26070,9027,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_I=func_instr(*_FUNC_IDEVARIABLEWATCHBOX_LONG_I+ 1 ,__STRING_WATCHPOINTLIST,l2string( -1 ),0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9028,"ide_methods.bas");}while(r); -dl_continue_5081:; -} -dl_exit_5081:; -S_46159:; -if ((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_I> 0 ))||new_error){ -if(qbevent){evnt(26070,9031,"ide_methods.bas");if(r)goto S_46159;} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_J=string2l(func_mid(__STRING_WATCHPOINTLIST,*_FUNC_IDEVARIABLEWATCHBOX_LONG_I+ 4 , 4 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9033,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_WATCHPOINTLIST,qbs_add(qbs_left(__STRING_WATCHPOINTLIST,*_FUNC_IDEVARIABLEWATCHBOX_LONG_I- 1 ),func_mid(__STRING_WATCHPOINTLIST,*_FUNC_IDEVARIABLEWATCHBOX_LONG_I+*_FUNC_IDEVARIABLEWATCHBOX_LONG_J+ 8 ,NULL,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9034,"ide_methods.bas");}while(r); -} -} -S_46164:; -if ((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISRETURNACTION== 2 ))||new_error){ -if(qbevent){evnt(26070,9038,"ide_methods.bas");if(r)goto S_46164;} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,qbs_add(qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,_FUNC_IDEVARIABLEWATCHBOX_STRING_V),i2string(_FUNC_IDEVARIABLEWATCHBOX_STRING_V->len))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9040,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_WATCHPOINTLIST,qbs_add(qbs_add(qbs_add(__STRING_WATCHPOINTLIST,l2string( -1 )),l2string(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP->len)),_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9041,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_RETURNACTION=*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISRETURNACTION; -if(!qbevent)break;evnt(26070,9044,"ide_methods.bas");}while(r); -}else{ -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_RETURNACTION= -1 ; -if(!qbevent)break;evnt(26070,9046,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_SELECTVAR=*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y; -if(!qbevent)break;evnt(26070,9048,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,9049,"ide_methods.bas");}while(r); -}else{ -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_RESULT=FUNC_IDEMESSAGEBOX(_FUNC_IDEVARIABLEWATCHBOX_STRING_DLGTITLE,qbs_new_txt_len("Variable is out of scope.",25),qbs_new_txt_len("#OK",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9051,"ide_methods.bas");}while(r); -do{ -sub__keyclear(NULL,0); -if(!qbevent)break;evnt(26070,9052,"ide_methods.bas");}while(r); -} -}else{ -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_RESULT=FUNC_IDEMESSAGEBOX(_FUNC_IDEVARIABLEWATCHBOX_STRING_DLGTITLE,qbs_new_txt_len("Select a variable first.",24),qbs_new_txt_len("#OK",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9055,"ide_methods.bas");}while(r); -do{ -sub__keyclear(NULL,0); -if(!qbevent)break;evnt(26070,9056,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS=*_FUNC_IDEVARIABLEWATCHBOX_LONG_FILTERBOX; -if(!qbevent)break;evnt(26070,9058,"ide_methods.bas");}while(r); -do{ -goto dl_continue_5039; -if(!qbevent)break;evnt(26070,9059,"ide_methods.bas");}while(r); -} -S_46185:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 27 )))|(((-(*__LONG_IDEDEBUGMODE== 0 ))&(-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS== 5 ))&(-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_INFO!= 0 ))))|(((-(*__LONG_IDEDEBUGMODE> 0 ))&(-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS== 7 ))&(-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_INFO!= 0 ))))))||new_error){ -if(qbevent){evnt(26070,9063,"ide_methods.bas");if(r)goto S_46185;} -LABEL_GENERATEVARIABLEWATCHLIST:; -if(qbevent){evnt(26070,9064,"ide_methods.bas");r=0;} -do{ -qbs_set(__STRING_VARIABLEWATCHLIST,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9065,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_BACKUPVARIABLEWATCHLIST,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9066,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_BACKUPTYPEDEFINITIONS,__STRING_TYPEDEFINITIONS); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9067,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_LONGESTVARNAME= 0 ; -if(!qbevent)break;evnt(26070,9068,"ide_methods.bas");}while(r); -do{ -*__LONG_NEXTVWATCHDATASLOT= 0 ; -if(!qbevent)break;evnt(26070,9069,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALVISIBLEVARIABLES= 0 ; -if(!qbevent)break;evnt(26070,9070,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALSELECTEDVARIABLES= 0 ; -if(!qbevent)break;evnt(26070,9071,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_MSG,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9072,"ide_methods.bas");}while(r); -S_46194:; -fornext_value5086= 1 ; -fornext_finalvalue5086=*__LONG_TOTALVARIABLESCREATED; -fornext_step5086= 1 ; -if (fornext_step5086<0) fornext_step_negative5086=1; else fornext_step_negative5086=0; -if (new_error) goto fornext_error5086; -goto fornext_entrylabel5086; -while(1){ -fornext_value5086=fornext_step5086+(*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y); -fornext_entrylabel5086: -*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y=fornext_value5086; -if (fornext_step_negative5086){ -if (fornext_value5086fornext_finalvalue5086) break; -} -fornext_error5086:; -if(qbevent){evnt(26070,9073,"ide_methods.bas");if(r)goto S_46194;} -S_46195:; -if ((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_SELECTVAR== -1 ))||new_error){ -if(qbevent){evnt(26070,9074,"ide_methods.bas");if(r)goto S_46195;} -S_46196:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEVARIABLEWATCHBOX_STRING_MSG,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,9075,"ide_methods.bas");if(r)goto S_46196;} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_MSG,qbs_new_txt_len("Analyzing Variable List...",26)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9076,"ide_methods.bas");}while(r); -do{ -SUB_IDEPAR((void*)( ((char*)(_FUNC_IDEVARIABLEWATCHBOX_UDT_P)) + (0) ),&(pass5087= 60 ),&(pass5088= 1 ),_FUNC_IDEVARIABLEWATCHBOX_STRING_MSG); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9077,"ide_methods.bas");}while(r); -} -do{ -SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDEVARIABLEWATCHBOX_UDT_P)) + (0) )); -if(!qbevent)break;evnt(26070,9080,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,9081,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_C=*__LONG_TOTALVARIABLESCREATED; -if(!qbevent)break;evnt(26070,9082,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_N=*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y; -if(!qbevent)break;evnt(26070,9083,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_MAXPROGRESSWIDTH= 52 ; -if(!qbevent)break;evnt(26070,9085,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_PERCENTAGE=qbr(floor(*_FUNC_IDEVARIABLEWATCHBOX_LONG_N/ ((long double)(*_FUNC_IDEVARIABLEWATCHBOX_LONG_C))* 100 )); -if(!qbevent)break;evnt(26070,9086,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_PERCENTAGECHARS=qbr(floor(*_FUNC_IDEVARIABLEWATCHBOX_LONG_MAXPROGRESSWIDTH**_FUNC_IDEVARIABLEWATCHBOX_LONG_N/ ((long double)(*_FUNC_IDEVARIABLEWATCHBOX_LONG_C)))); -if(!qbevent)break;evnt(26070,9087,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_PERCENTAGEMSG,qbs_add(qbs_add(qbs_add(func_string(*_FUNC_IDEVARIABLEWATCHBOX_LONG_PERCENTAGECHARS, 219 ),func_string(*_FUNC_IDEVARIABLEWATCHBOX_LONG_MAXPROGRESSWIDTH-*_FUNC_IDEVARIABLEWATCHBOX_LONG_PERCENTAGECHARS, 176 )),qbs_str((int32)(*_FUNC_IDEVARIABLEWATCHBOX_LONG_PERCENTAGE))),qbs_new_txt_len("%",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9088,"ide_methods.bas");}while(r); -do{ -sub__printstring(*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_UDT_P)+(0))+((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_UDT_P)+(8))/ 2 )-(_FUNC_IDEVARIABLEWATCHBOX_STRING_PERCENTAGEMSG->len/ 2 ))+ 1 ,*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_UDT_P)+(4))+ 1 ,_FUNC_IDEVARIABLEWATCHBOX_STRING_PERCENTAGEMSG,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9089,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 1 , 0 ); -if(!qbevent)break;evnt(26070,9091,"ide_methods.bas");}while(r); -} -S_46211:; -if ((*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+12)))||new_error){ -if(qbevent){evnt(26070,9094,"ide_methods.bas");if(r)goto S_46211;} -do{ -goto fornext_continue_5085; -if(!qbevent)break;evnt(26070,9094,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALSELECTEDVARIABLES=*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALSELECTEDVARIABLES+ 1 ; -if(!qbevent)break;evnt(26070,9096,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_BACKUPVARIABLEWATCHLIST,qbs_add(__STRING_BACKUPVARIABLEWATCHLIST,l2string( -1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9097,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_BACKUPVARIABLEWATCHLIST,qbs_add(qbs_add(__STRING_BACKUPVARIABLEWATCHLIST,l2string((*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+40)))->len)),*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+40))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9098,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_BACKUPVARIABLEWATCHLIST,qbs_add(__STRING_BACKUPVARIABLEWATCHLIST,l2string(*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALSELECTEDVARIABLES))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9099,"ide_methods.bas");}while(r); -S_46218:; -while((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALSELECTEDVARIABLES>func_ubound(__ARRAY_UDT_BACKUPUSEDVARIABLELIST,1,1)))||new_error){ -if(qbevent){evnt(26070,9100,"ide_methods.bas");if(r)goto S_46218;} -do{ +} +if(!qbevent)break;evnt(26070,8498,"ide_methods.bas");}while(r); +S_45584:; +fornext_value5035= 1 ; +fornext_finalvalue5035=*__LONG_TOTALVARIABLESCREATED; +fornext_step5035= 1 ; +if (fornext_step5035<0) fornext_step_negative5035=1; else fornext_step_negative5035=0; +if (new_error) goto fornext_error5035; +goto fornext_entrylabel5035; +while(1){ +fornext_value5035=fornext_step5035+(*_FUNC_IDEVARIABLEWATCHBOX_LONG_X); +fornext_entrylabel5035: +*_FUNC_IDEVARIABLEWATCHBOX_LONG_X=fornext_value5035; +if (fornext_step_negative5035){ +if (fornext_value5035fornext_finalvalue5035) break; +} +fornext_error5035:; +if(qbevent){evnt(26070,8501,"ide_methods.bas");if(r)goto S_45584;} +S_45585:; +if ((*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+12)))||new_error){ +if(qbevent){evnt(26070,8502,"ide_methods.bas");if(r)goto S_45585;} +do{ +goto fornext_continue_5034; +if(!qbevent)break;evnt(26070,8502,"ide_methods.bas");}while(r); +} +S_45588:; +if ((qbs_cleanup(qbs_tmp_base,-((*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+64)))->len>*_FUNC_IDEVARIABLEWATCHBOX_LONG_MAXMODULENAMELEN)))||new_error){ +if(qbevent){evnt(26070,8503,"ide_methods.bas");if(r)goto S_45588;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_MAXMODULENAMELEN=(*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+64)))->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8504,"ide_methods.bas");}while(r); +} +S_45591:; +if ((qbs_cleanup(qbs_tmp_base,-((*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+48)))->len>*_FUNC_IDEVARIABLEWATCHBOX_LONG_MAXTYPELEN)))||new_error){ +if(qbevent){evnt(26070,8507,"ide_methods.bas");if(r)goto S_45591;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_MAXTYPELEN=(*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+48)))->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8507,"ide_methods.bas");}while(r); +} +fornext_continue_5034:; +} +fornext_exit_5034:; +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_SEARCHTERM,_FUNC_IDEVARIABLEWATCHBOX_STRING_FILTER); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8510,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_FIRSTRUN= -1 ; +if(!qbevent)break;evnt(26070,8511,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=143; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_BUILDLIST; +RETURN_143:; +if(!qbevent)break;evnt(26070,8512,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_FIRSTRUN= 0 ; +if(!qbevent)break;evnt(26070,8513,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_DIALOGHEIGHT=*__LONG_TOTALMAINVARIABLESCREATED+ 7 ; +if(!qbevent)break;evnt(26070,8514,"ide_methods.bas");}while(r); +LABEL_LISTBUILT:; +if(qbevent){evnt(26070,8515,"ide_methods.bas");r=0;} +S_45600:; +if ((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_SELECTVAR== -1 ))||new_error){ +if(qbevent){evnt(26070,8516,"ide_methods.bas");if(r)goto S_45600;} +do{ +goto LABEL_GENERATEVARIABLEWATCHLIST; +if(!qbevent)break;evnt(26070,8516,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_I= 0 ; +if(!qbevent)break;evnt(26070,8518,"ide_methods.bas");}while(r); +S_45604:; +if ((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_DIALOGHEIGHT<*_FUNC_IDEVARIABLEWATCHBOX_LONG_LASTUSEDDIALOGHEIGHT))||new_error){ +if(qbevent){evnt(26070,8519,"ide_methods.bas");if(r)goto S_45604;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_DIALOGHEIGHT=*_FUNC_IDEVARIABLEWATCHBOX_LONG_LASTUSEDDIALOGHEIGHT; +if(!qbevent)break;evnt(26070,8519,"ide_methods.bas");}while(r); +} +S_45607:; +if ((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_DIALOGHEIGHT>(*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 6 )))||new_error){ +if(qbevent){evnt(26070,8520,"ide_methods.bas");if(r)goto S_45607;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_DIALOGHEIGHT=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 6 ; +if(!qbevent)break;evnt(26070,8521,"ide_methods.bas");}while(r); +} +S_45610:; +if ((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_DIALOGHEIGHT< 9 ))||new_error){ +if(qbevent){evnt(26070,8523,"ide_methods.bas");if(r)goto S_45610;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_DIALOGHEIGHT= 9 ; +if(!qbevent)break;evnt(26070,8523,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_DIALOGWIDTH= 6 +*_FUNC_IDEVARIABLEWATCHBOX_LONG_MAXMODULENAMELEN+*_FUNC_IDEVARIABLEWATCHBOX_LONG_MAXVARLEN+*_FUNC_IDEVARIABLEWATCHBOX_LONG_MAXTYPELEN; +if(!qbevent)break;evnt(26070,8525,"ide_methods.bas");}while(r); +S_45614:; +if ((-(*__LONG_IDEDEBUGMODE> 0 ))||new_error){ +if(qbevent){evnt(26070,8526,"ide_methods.bas");if(r)goto S_45614;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_DIALOGWIDTH=*_FUNC_IDEVARIABLEWATCHBOX_LONG_DIALOGWIDTH+ 40 ; +if(!qbevent)break;evnt(26070,8526,"ide_methods.bas");}while(r); +} +S_45617:; +if ((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_DIALOGWIDTH< 70 ))||new_error){ +if(qbevent){evnt(26070,8527,"ide_methods.bas");if(r)goto S_45617;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_DIALOGWIDTH= 70 ; +if(!qbevent)break;evnt(26070,8527,"ide_methods.bas");}while(r); +} +S_45620:; +if ((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_DIALOGWIDTH>(*__LONG_IDEWX- 8 )))||new_error){ +if(qbevent){evnt(26070,8528,"ide_methods.bas");if(r)goto S_45620;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_DIALOGWIDTH=*__LONG_IDEWX- 8 ; +if(!qbevent)break;evnt(26070,8528,"ide_methods.bas");}while(r); +} +do{ +SUB_IDEPAR((void*)( ((char*)(_FUNC_IDEVARIABLEWATCHBOX_UDT_P)) + (0) ),_FUNC_IDEVARIABLEWATCHBOX_LONG_DIALOGWIDTH,_FUNC_IDEVARIABLEWATCHBOX_LONG_DIALOGHEIGHT,qbs_new_txt_len("Add Watch - Variable List",25)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8530,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_I=*_FUNC_IDEVARIABLEWATCHBOX_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,8532,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_FILTERBOX=*_FUNC_IDEVARIABLEWATCHBOX_LONG_I; +if(!qbevent)break;evnt(26070,8532,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_PREVFOCUS= 1 ; +if(!qbevent)break;evnt(26070,8533,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_I)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+36))= 1 ; +if(!qbevent)break;evnt(26070,8534,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_I)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+24))= 2 ; +if(!qbevent)break;evnt(26070,8535,"ide_methods.bas");}while(r); +S_45629:; +if ((-(*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_I)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+40))== 0 ))||new_error){ +if(qbevent){evnt(26070,8536,"ide_methods.bas");if(r)goto S_45629;} +do{ +*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_I)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Filter (multiple+terms+accepted)",33)); +if(!qbevent)break;evnt(26070,8536,"ide_methods.bas");}while(r); +} +S_45632:; +if ((-(*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_I)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44))== 0 ))||new_error){ +if(qbevent){evnt(26070,8537,"ide_methods.bas");if(r)goto S_45632;} +do{ +*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_I)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDEVARIABLEWATCHBOX_STRING_FILTER); +if(!qbevent)break;evnt(26070,8537,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_I=*_FUNC_IDEVARIABLEWATCHBOX_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,8539,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX=*_FUNC_IDEVARIABLEWATCHBOX_LONG_I; +if(!qbevent)break;evnt(26070,8539,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+36))= 2 ; +if(!qbevent)break;evnt(26070,8540,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+24))= 5 ; +if(!qbevent)break;evnt(26070,8541,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+28))=*_FUNC_IDEVARIABLEWATCHBOX_LONG_DIALOGWIDTH- 4 ; +if(!qbevent)break;evnt(26070,8542,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_I)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+32))=*_FUNC_IDEVARIABLEWATCHBOX_LONG_DIALOGHEIGHT- 7 ; +if(!qbevent)break;evnt(26070,8542,"ide_methods.bas");}while(r); +S_45641:; +if ((-(*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44))== 0 ))||new_error){ +if(qbevent){evnt(26070,8543,"ide_methods.bas");if(r)goto S_45641;} +do{ +*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDEVARIABLEWATCHBOX_STRING_L); +if(!qbevent)break;evnt(26070,8543,"ide_methods.bas");}while(r); +}else{ +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDEVARIABLEWATCHBOX_STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8543,"ide_methods.bas");}while(r); +} +S_45646:; +if ((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_SELECTVAR== 0 ))||new_error){ +if(qbevent){evnt(26070,8544,"ide_methods.bas");if(r)goto S_45646;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_SELECTVAR= 1 ; +if(!qbevent)break;evnt(26070,8544,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS=*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX; +if(!qbevent)break;evnt(26070,8544,"ide_methods.bas");}while(r); +} +do{ +*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+64))=*_FUNC_IDEVARIABLEWATCHBOX_LONG_SELECTVAR; +if(!qbevent)break;evnt(26070,8545,"ide_methods.bas");}while(r); +S_45652:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDEVARIABLEWATCHBOX_STRING_SEARCHTERM->len))||new_error){ +if(qbevent){evnt(26070,8547,"ide_methods.bas");if(r)goto S_45652;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,qbs_new_txt_len(", filtered",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8547,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8547,"ide_methods.bas");}while(r); +} +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_UDT_P)+(16)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Add Watch - Variable List (",27),qbs_ltrim(qbs_str((int32)(*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALVISIBLEVARIABLES)))),_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8548,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_I=*_FUNC_IDEVARIABLEWATCHBOX_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,8550,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_BUTTONSET=*_FUNC_IDEVARIABLEWATCHBOX_LONG_I; +if(!qbevent)break;evnt(26070,8550,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_BUTTONSET)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+36))= 3 ; +if(!qbevent)break;evnt(26070,8551,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_BUTTONSET)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+24))=*_FUNC_IDEVARIABLEWATCHBOX_LONG_DIALOGHEIGHT; +if(!qbevent)break;evnt(26070,8552,"ide_methods.bas");}while(r); +S_45662:; +if (((-(*__LONG_IDEDEBUGMODE> 0 ))&(-(*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_BUTTONSET)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44))== 0 )))||new_error){ +if(qbevent){evnt(26070,8553,"ide_methods.bas");if(r)goto S_45662;} +do{ +*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_BUTTONSET)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("#Add All",8),_FUNC_IDEVARIABLEWATCHBOX_STRING1_SEP),qbs_new_txt_len("#Remove All",11)),_FUNC_IDEVARIABLEWATCHBOX_STRING1_SEP),qbs_new_txt_len("#Send Value",11)),_FUNC_IDEVARIABLEWATCHBOX_STRING1_SEP),qbs_new_txt_len("Add #Watchpoint",15)),_FUNC_IDEVARIABLEWATCHBOX_STRING1_SEP),qbs_new_txt_len("#Close",6))); +if(!qbevent)break;evnt(26070,8554,"ide_methods.bas");}while(r); +}else{ +do{ +*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_BUTTONSET)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("#Add All",8),_FUNC_IDEVARIABLEWATCHBOX_STRING1_SEP),qbs_new_txt_len("#Remove All",11)),_FUNC_IDEVARIABLEWATCHBOX_STRING1_SEP),qbs_new_txt_len("#Close",6))); +if(!qbevent)break;evnt(26070,8556,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_LASTUSEDDIALOGHEIGHT=*_FUNC_IDEVARIABLEWATCHBOX_LONG_DIALOGHEIGHT; +if(!qbevent)break;evnt(26070,8559,"ide_methods.bas");}while(r); +S_45668:; +fornext_value5038= 1 ; +fornext_finalvalue5038= 100 ; +fornext_step5038= 1 ; +if (fornext_step5038<0) fornext_step_negative5038=1; else fornext_step_negative5038=0; +if (new_error) goto fornext_error5038; +goto fornext_entrylabel5038; +while(1){ +fornext_value5038=fornext_step5038+(*_FUNC_IDEVARIABLEWATCHBOX_LONG_I); +fornext_entrylabel5038: +*_FUNC_IDEVARIABLEWATCHBOX_LONG_I=fornext_value5038; +if (fornext_step_negative5038){ +if (fornext_value5038fornext_finalvalue5038) break; +} +fornext_error5038:; +if(qbevent){evnt(26070,8565,"ide_methods.bas");if(r)goto S_45668;} +do{ +memcpy(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_I)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89)+ 0,((char*)_FUNC_IDEVARIABLEWATCHBOX_UDT_P)+(0)+ 0, 20); +if(!qbevent)break;evnt(26070,8565,"ide_methods.bas");}while(r); +fornext_continue_5037:; +} +fornext_exit_5037:; +S_45671:; +do{ +if(qbevent){evnt(26070,8568,"ide_methods.bas");if(r)goto S_45671;} +LABEL_DLGUPDATE:; +if(qbevent){evnt(26070,8571,"ide_methods.bas");r=0;} +do{ +SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDEVARIABLEWATCHBOX_UDT_P)) + (0) )); +if(!qbevent)break;evnt(26070,8572,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_F= 1 ; +if(!qbevent)break;evnt(26070,8573,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_CX= 0 ; +if(!qbevent)break;evnt(26070,8573,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_CY= 0 ; +if(!qbevent)break;evnt(26070,8573,"ide_methods.bas");}while(r); +S_45676:; +fornext_value5041= 1 ; +fornext_finalvalue5041= 100 ; +fornext_step5041= 1 ; +if (fornext_step5041<0) fornext_step_negative5041=1; else fornext_step_negative5041=0; +if (new_error) goto fornext_error5041; +goto fornext_entrylabel5041; +while(1){ +fornext_value5041=fornext_step5041+(*_FUNC_IDEVARIABLEWATCHBOX_LONG_I); +fornext_entrylabel5041: +*_FUNC_IDEVARIABLEWATCHBOX_LONG_I=fornext_value5041; +if (fornext_step_negative5041){ +if (fornext_value5041fornext_finalvalue5041) break; +} +fornext_error5041:; +if(qbevent){evnt(26070,8574,"ide_methods.bas");if(r)goto S_45676;} +S_45677:; +if ((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_I)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+36)))||new_error){ +if(qbevent){evnt(26070,8575,"ide_methods.bas");if(r)goto S_45677;} +do{ +*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_I)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+60))=*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS-*_FUNC_IDEVARIABLEWATCHBOX_LONG_F; +if(!qbevent)break;evnt(26070,8577,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_I)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+52))= 0 ; +if(!qbevent)break;evnt(26070,8578,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_I)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+56))= 0 ; +if(!qbevent)break;evnt(26070,8578,"ide_methods.bas");}while(r); +do{ +SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_I)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDEVARIABLEWATCHBOX_LONG_F); +if(!qbevent)break;evnt(26070,8579,"ide_methods.bas");}while(r); +S_45682:; +if ((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_I)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+52)))||new_error){ +if(qbevent){evnt(26070,8580,"ide_methods.bas");if(r)goto S_45682;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_CX=*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_I)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+52)); +if(!qbevent)break;evnt(26070,8580,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_CY=*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_I)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+56)); +if(!qbevent)break;evnt(26070,8580,"ide_methods.bas");}while(r); +} +} +fornext_continue_5040:; +} +fornext_exit_5040:; +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_LASTFOCUS=*_FUNC_IDEVARIABLEWATCHBOX_LONG_F- 1 ; +if(!qbevent)break;evnt(26070,8583,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,8587,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_UDT_P)+(4))+ 4 ,*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_UDT_P)+(0))+ 2 ,NULL,NULL,NULL,3); +if(!qbevent)break;evnt(26070,8588,"ide_methods.bas");}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("Double-click on an item to add it to the watch list:",52)); +if (new_error) goto skip5042; +makefit(tqbs); +qbs_print(tqbs,0); +qbs_print(nothingstring,1); +skip5042: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8589,"ide_methods.bas");}while(r); +S_45692:; +if (((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_DOUBLECLICKTHRESHOLD> 0 ))&(-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_DOUBLECLICKTHRESHOLD<*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_UDT_P)+(8))))&(-(*__LONG_IDEDEBUGMODE> 0 )))||new_error){ +if(qbevent){evnt(26070,8590,"ide_methods.bas");if(r)goto S_45692;} +do{ +sub__printstring(*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_UDT_P)+(0))+*_FUNC_IDEVARIABLEWATCHBOX_LONG_DOUBLECLICKTHRESHOLD,*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_UDT_P)+(4))+ 5 ,func_chr( 194 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8591,"ide_methods.bas");}while(r); +do{ +sub__printstring(*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_UDT_P)+(0))+*_FUNC_IDEVARIABLEWATCHBOX_LONG_DOUBLECLICKTHRESHOLD,*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_UDT_P)+(4))+*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_UDT_P)+(12))- 1 ,func_chr( 193 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8592,"ide_methods.bas");}while(r); +S_45695:; +if (((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS==*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX))&(-(*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+64))> 0 )))||new_error){ +if(qbevent){evnt(26070,8594,"ide_methods.bas");if(r)goto S_45695;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y=*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26070,8595,"ide_methods.bas");}while(r); +S_45697:; +if ((qbs_cleanup(qbs_tmp_base,(-(*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+29))!= 0 ))&(-(func_instr(NULL,*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+48))),qbs_new_txt_len("STRING *",8),0)== 0 ))&(qbs_notequal(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+48))),qbs_new_txt_len("STRING",6)))))||new_error){ +if(qbevent){evnt(26070,8598,"ide_methods.bas");if(r)goto S_45697;} +do{ +qbg_sub_color( 15 , 3 ,NULL,3); +if(!qbevent)break;evnt(26070,8599,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y=*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+68)); +if(!qbevent)break;evnt(26070,8600,"ide_methods.bas");}while(r); +do{ +sub__printstring(*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_UDT_P)+(0))+*_FUNC_IDEVARIABLEWATCHBOX_LONG_DOUBLECLICKTHRESHOLD- 1 ,*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y,func_chr( 29 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8601,"ide_methods.bas");}while(r); +do{ +qbg_sub_color(*_FUNC_IDEVARIABLEWATCHBOX_LONG_FG,*_FUNC_IDEVARIABLEWATCHBOX_LONG_BG,NULL,3); +if(!qbevent)break;evnt(26070,8602,"ide_methods.bas");}while(r); +} +} +} +do{ +sub_pcopy( 1 , 0 ); +if(!qbevent)break;evnt(26070,8610,"ide_methods.bas");}while(r); +S_45706:; +if ((*_FUNC_IDEVARIABLEWATCHBOX_LONG_CX)||new_error){ +if(qbevent){evnt(26070,8611,"ide_methods.bas");if(r)goto S_45706;} +do{ +qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,8611,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(*_FUNC_IDEVARIABLEWATCHBOX_LONG_CY,*_FUNC_IDEVARIABLEWATCHBOX_LONG_CX, 1 ,NULL,NULL,7); +if(!qbevent)break;evnt(26070,8611,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,8611,"ide_methods.bas");}while(r); +} +S_45711:; +if ((*_FUNC_IDEVARIABLEWATCHBOX_LONG_QUICKDLGUPDATE)||new_error){ +if(qbevent){evnt(26070,8612,"ide_methods.bas");if(r)goto S_45711;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_QUICKDLGUPDATE= 0 ; +if(!qbevent)break;evnt(26070,8612,"ide_methods.bas");}while(r); +do{ +#include "ret176.txt" +if(!qbevent)break;evnt(26070,8612,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_CHANGE= 0 ; +if(!qbevent)break;evnt(26070,8615,"ide_methods.bas");}while(r); +S_45716:; +do{ +if(qbevent){evnt(26070,8616,"ide_methods.bas");if(r)goto S_45716;} +do{ +SUB_GETINPUT(); +if(!qbevent)break;evnt(26070,8617,"ide_methods.bas");}while(r); +S_45718:; +if ((*__LONG_MWHEEL)||new_error){ +if(qbevent){evnt(26070,8618,"ide_methods.bas");if(r)goto S_45718;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,8618,"ide_methods.bas");}while(r); +} +S_45721:; +if ((*__LONG_KB)||new_error){ +if(qbevent){evnt(26070,8619,"ide_methods.bas");if(r)goto S_45721;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,8619,"ide_methods.bas");}while(r); +} +S_45724:; +if ((*__LONG_MCLICK)||new_error){ +if(qbevent){evnt(26070,8620,"ide_methods.bas");if(r)goto S_45724;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_MOUSEDOWN= 1 ; +if(!qbevent)break;evnt(26070,8620,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,8620,"ide_methods.bas");}while(r); +} +S_45728:; +if ((*__LONG_MRELEASE)||new_error){ +if(qbevent){evnt(26070,8621,"ide_methods.bas");if(r)goto S_45728;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_MOUSEUP= 1 ; +if(!qbevent)break;evnt(26070,8621,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,8621,"ide_methods.bas");}while(r); +} +S_45732:; +if ((*__LONG_MB)||new_error){ +if(qbevent){evnt(26070,8622,"ide_methods.bas");if(r)goto S_45732;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,8622,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_ALT=*__LONG_KALT; +if(!qbevent)break;evnt(26070,8623,"ide_methods.bas");}while(r); +S_45736:; +if ((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_ALT!=*_FUNC_IDEVARIABLEWATCHBOX_LONG_OLDALT))||new_error){ +if(qbevent){evnt(26070,8623,"ide_methods.bas");if(r)goto S_45736;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,8623,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_OLDALT=*_FUNC_IDEVARIABLEWATCHBOX_LONG_ALT; +if(!qbevent)break;evnt(26070,8624,"ide_methods.bas");}while(r); +do{ +sub__limit( 100 ); +if(!qbevent)break;evnt(26070,8625,"ide_methods.bas");}while(r); +S_45741:; +dl_continue_5043:; +}while((!(*_FUNC_IDEVARIABLEWATCHBOX_LONG_CHANGE))&&(!new_error)); +dl_exit_5043:; +if(qbevent){evnt(26070,8626,"ide_methods.bas");if(r)goto S_45741;} +S_45742:; +if ((*_FUNC_IDEVARIABLEWATCHBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ +if(qbevent){evnt(26070,8627,"ide_methods.bas");if(r)goto S_45742;} +do{ +*__LONG_IDEHL= 1 ; +if(!qbevent)break;evnt(26070,8627,"ide_methods.bas");}while(r); +}else{ +do{ +*__LONG_IDEHL= 0 ; +if(!qbevent)break;evnt(26070,8627,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_ALTLETTER,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8629,"ide_methods.bas");}while(r); +S_45748:; +if ((*_FUNC_IDEVARIABLEWATCHBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ +if(qbevent){evnt(26070,8630,"ide_methods.bas");if(r)goto S_45748;} +S_45749:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ +if(qbevent){evnt(26070,8631,"ide_methods.bas");if(r)goto S_45749;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8632,"ide_methods.bas");}while(r); +S_45751:; +if (((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_K>= 65 ))&(-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_K<= 90 )))||new_error){ +if(qbevent){evnt(26070,8633,"ide_methods.bas");if(r)goto S_45751;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_ALTLETTER,func_chr(*_FUNC_IDEVARIABLEWATCHBOX_LONG_K)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8633,"ide_methods.bas");}while(r); +} +} +} +do{ +qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,8636,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); +if(!qbevent)break;evnt(26070,8636,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,8636,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_INFO= 0 ; +if(!qbevent)break;evnt(26070,8640,"ide_methods.bas");}while(r); +S_45760:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,8641,"ide_methods.bas");if(r)goto S_45760;} +do{ +qbs_set(__STRING_K,func_chr( 255 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8641,"ide_methods.bas");}while(r); +} +S_45763:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ +if(qbevent){evnt(26070,8642,"ide_methods.bas");if(r)goto S_45763;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS=*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS+ 1 ; +if(!qbevent)break;evnt(26070,8642,"ide_methods.bas");}while(r); +} +S_45766:; +if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||new_error){ +if(qbevent){evnt(26070,8643,"ide_methods.bas");if(r)goto S_45766;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS=*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS- 1 ; +if(!qbevent)break;evnt(26070,8643,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_K,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8643,"ide_methods.bas");}while(r); +} +S_45770:; +if ((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS< 1 ))||new_error){ +if(qbevent){evnt(26070,8644,"ide_methods.bas");if(r)goto S_45770;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS=*_FUNC_IDEVARIABLEWATCHBOX_LONG_LASTFOCUS; +if(!qbevent)break;evnt(26070,8644,"ide_methods.bas");}while(r); +} +S_45773:; +if ((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS>*_FUNC_IDEVARIABLEWATCHBOX_LONG_LASTFOCUS))||new_error){ +if(qbevent){evnt(26070,8645,"ide_methods.bas");if(r)goto S_45773;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS= 1 ; +if(!qbevent)break;evnt(26070,8645,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_F= 1 ; +if(!qbevent)break;evnt(26070,8646,"ide_methods.bas");}while(r); +S_45777:; +fornext_value5046= 1 ; +fornext_finalvalue5046= 100 ; +fornext_step5046= 1 ; +if (fornext_step5046<0) fornext_step_negative5046=1; else fornext_step_negative5046=0; +if (new_error) goto fornext_error5046; +goto fornext_entrylabel5046; +while(1){ +fornext_value5046=fornext_step5046+(*_FUNC_IDEVARIABLEWATCHBOX_LONG_I); +fornext_entrylabel5046: +*_FUNC_IDEVARIABLEWATCHBOX_LONG_I=fornext_value5046; +if (fornext_step_negative5046){ +if (fornext_value5046fornext_finalvalue5046) break; +} +fornext_error5046:; +if(qbevent){evnt(26070,8647,"ide_methods.bas");if(r)goto S_45777;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_T=*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_I)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+36)); +if(!qbevent)break;evnt(26070,8648,"ide_methods.bas");}while(r); +S_45779:; +if ((*_FUNC_IDEVARIABLEWATCHBOX_LONG_T)||new_error){ +if(qbevent){evnt(26070,8649,"ide_methods.bas");if(r)goto S_45779;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUSOFFSET=*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS-*_FUNC_IDEVARIABLEWATCHBOX_LONG_F; +if(!qbevent)break;evnt(26070,8650,"ide_methods.bas");}while(r); +do{ +SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_I)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS,_FUNC_IDEVARIABLEWATCHBOX_LONG_F,_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDEVARIABLEWATCHBOX_STRING_ALTLETTER,__LONG_MB,_FUNC_IDEVARIABLEWATCHBOX_LONG_MOUSEDOWN,_FUNC_IDEVARIABLEWATCHBOX_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDEVARIABLEWATCHBOX_LONG_INFO,__LONG_MWHEEL); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8651,"ide_methods.bas");}while(r); +} +fornext_continue_5045:; +} +fornext_exit_5045:; +S_45784:; +if ((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS!=*_FUNC_IDEVARIABLEWATCHBOX_LONG_PREVFOCUS))||new_error){ +if(qbevent){evnt(26070,8655,"ide_methods.bas");if(r)goto S_45784;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_PREVFOCUS=*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS; +if(!qbevent)break;evnt(26070,8657,"ide_methods.bas");}while(r); +S_45786:; +if ((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS==*_FUNC_IDEVARIABLEWATCHBOX_LONG_FILTERBOX))||new_error){ +if(qbevent){evnt(26070,8658,"ide_methods.bas");if(r)goto S_45786;} +do{ +*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; +if(!qbevent)break;evnt(26070,8659,"ide_methods.bas");}while(r); +S_45788:; +if ((-(*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+81))> 0 ))||new_error){ +if(qbevent){evnt(26070,8660,"ide_methods.bas");if(r)goto S_45788;} +do{ +*(int8*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+76))= -1 ; +if(!qbevent)break;evnt(26070,8660,"ide_methods.bas");}while(r); +} +do{ +*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+77))= 0 ; +if(!qbevent)break;evnt(26070,8661,"ide_methods.bas");}while(r); +} +} +S_45794:; +if ((((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS== 3 ))&(-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_INFO!= 0 ))))||new_error){ +if(qbevent){evnt(26070,8665,"ide_methods.bas");if(r)goto S_45794;} +S_45795:; +fornext_value5049= 1 ; +fornext_finalvalue5049=*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALVISIBLEVARIABLES; +fornext_step5049= 1 ; +if (fornext_step5049<0) fornext_step_negative5049=1; else fornext_step_negative5049=0; +if (new_error) goto fornext_error5049; +goto fornext_entrylabel5049; +while(1){ +fornext_value5049=fornext_step5049+(*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y); +fornext_entrylabel5049: +*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y=fornext_value5049; +if (fornext_step_negative5049){ +if (fornext_value5049fornext_finalvalue5049) break; +} +fornext_error5049:; +if(qbevent){evnt(26070,8666,"ide_methods.bas");if(r)goto S_45795;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+48)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8667,"ide_methods.bas");}while(r); +S_45797:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("STRING *",8),0)))||new_error){ +if(qbevent){evnt(26070,8668,"ide_methods.bas");if(r)goto S_45797;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("STRING",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8668,"ide_methods.bas");}while(r); +} +S_45800:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("BIT *",5),0)))||new_error){ +if(qbevent){evnt(26070,8669,"ide_methods.bas");if(r)goto S_45800;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("_BIT",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8669,"ide_methods.bas");}while(r); +} +S_45803:; +if ((qbs_cleanup(qbs_tmp_base,((*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+30))&(-((*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+72)))->len== 0 ))))|(-(func_instr(NULL,__STRING_NATIVEDATATYPES,_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,0)== 0 ))))||new_error){ +if(qbevent){evnt(26070,8671,"ide_methods.bas");if(r)goto S_45803;} +do{ +goto fornext_continue_5048; +if(!qbevent)break;evnt(26070,8671,"ide_methods.bas");}while(r); +} +do{ +*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+29))= -1 ; +if(!qbevent)break;evnt(26070,8672,"ide_methods.bas");}while(r); +do{ +tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ +tmp_fileno=*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+8)); if (!new_error){ +tmp_long=*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARIABLENAMECOLOR; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26070,8673,"ide_methods.bas");}while(r); +do{ +tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ +tmp_fileno=*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+12)); if (!new_error){ +tmp_long=*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYPECOLUMNCOLOR; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26070,8674,"ide_methods.bas");}while(r); +do{ +tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ +tmp_fileno=*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+4)); if (!new_error){ +tmp_long=*_FUNC_IDEVARIABLEWATCHBOX_LONG_SELECTEDBG; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26070,8675,"ide_methods.bas");}while(r); +do{ +tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ +tmp_fileno=*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+16)); if (!new_error){ +tmp_long= 43 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26070,8676,"ide_methods.bas");}while(r); +fornext_continue_5048:; +} +fornext_exit_5048:; +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS=*_FUNC_IDEVARIABLEWATCHBOX_LONG_FILTERBOX; +if(!qbevent)break;evnt(26070,8678,"ide_methods.bas");}while(r); +do{ +goto dl_continue_5039; +if(!qbevent)break;evnt(26070,8679,"ide_methods.bas");}while(r); +} +S_45815:; +if ((((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS== 4 ))&(-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_INFO!= 0 ))))||new_error){ +if(qbevent){evnt(26070,8682,"ide_methods.bas");if(r)goto S_45815;} +S_45816:; +fornext_value5051= 1 ; +fornext_finalvalue5051=*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALVISIBLEVARIABLES; +fornext_step5051= 1 ; +if (fornext_step5051<0) fornext_step_negative5051=1; else fornext_step_negative5051=0; +if (new_error) goto fornext_error5051; +goto fornext_entrylabel5051; +while(1){ +fornext_value5051=fornext_step5051+(*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y); +fornext_entrylabel5051: +*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y=fornext_value5051; +if (fornext_step_negative5051){ +if (fornext_value5051fornext_finalvalue5051) break; +} +fornext_error5051:; +if(qbevent){evnt(26070,8683,"ide_methods.bas");if(r)goto S_45816;} +do{ +*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+29))= 0 ; +if(!qbevent)break;evnt(26070,8684,"ide_methods.bas");}while(r); +do{ +tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ +tmp_fileno=*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+8)); if (!new_error){ +tmp_long= 16 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26070,8685,"ide_methods.bas");}while(r); +do{ +tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ +tmp_fileno=*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+12)); if (!new_error){ +tmp_long= 2 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26070,8686,"ide_methods.bas");}while(r); +do{ +tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ +tmp_fileno=*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+4)); if (!new_error){ +tmp_long= 17 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26070,8687,"ide_methods.bas");}while(r); +do{ +tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ +tmp_fileno=*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+16)); if (!new_error){ +tmp_long= 32 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26070,8688,"ide_methods.bas");}while(r); +fornext_continue_5050:; +} +fornext_exit_5050:; +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS=*_FUNC_IDEVARIABLEWATCHBOX_LONG_FILTERBOX; +if(!qbevent)break;evnt(26070,8690,"ide_methods.bas");}while(r); +do{ +goto dl_continue_5039; +if(!qbevent)break;evnt(26070,8691,"ide_methods.bas");}while(r); +} +S_45826:; +if ((((-(*__LONG_IDEDEBUGMODE> 0 ))&(-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS== 5 ))&(-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_INFO!= 0 )))|((-(*__LONG_IDEDEBUGMODE> 0 ))&(-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS== 6 ))&(-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_INFO!= 0 ))))||new_error){ +if(qbevent){evnt(26070,8695,"ide_methods.bas");if(r)goto S_45826;} +LABEL_SENDVALUE:; +if(qbevent){evnt(26070,8697,"ide_methods.bas");r=0;} +S_45827:; +if(qbevent){evnt(26070,8698,"ide_methods.bas");if(r)goto S_45827;} +S_45828:; +if (((*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS==( 5 )))||new_error){ +if(qbevent){evnt(26070,8699,"ide_methods.bas");if(r)goto S_45828;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_DLGTITLE,qbs_new_txt_len("Change Value",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8700,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_DLGPROMPT,qbs_new_txt_len("#Index to change",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8701,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_DLGPROMPT2,qbs_new_txt_len("#New value",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8702,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISRETURNACTION= 1 ; +if(!qbevent)break;evnt(26070,8703,"ide_methods.bas");}while(r); +sc_ec_318_end:; +goto sc_5052_end; +} +S_45833:; +if (((*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS==( 6 )))||new_error){ +if(qbevent){evnt(26070,8704,"ide_methods.bas");if(r)goto S_45833;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_DLGTITLE,qbs_new_txt_len("Add Watchpoint",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8705,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_DLGPROMPT,qbs_new_txt_len("#Index to monitor",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8706,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_DLGPROMPT2,qbs_new_txt_len("#Condition",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8707,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISRETURNACTION= 2 ; +if(!qbevent)break;evnt(26070,8708,"ide_methods.bas");}while(r); +sc_ec_319_end:; +goto sc_5052_end; +} +sc_5052_end:; +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y=func_abs((int32)(*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+64)))); +if(!qbevent)break;evnt(26070,8711,"ide_methods.bas");}while(r); +S_45840:; +if (((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y>= 1 ))&(-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y<=*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALVISIBLEVARIABLES)))||new_error){ +if(qbevent){evnt(26070,8713,"ide_methods.bas");if(r)goto S_45840;} +do{ +*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+64))=*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y; +if(!qbevent)break;evnt(26070,8714,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_QUICKDLGUPDATE= -1 ; +if(!qbevent)break;evnt(26070,8715,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=144; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_DLGUPDATE; +RETURN_144:; +if(!qbevent)break;evnt(26070,8715,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX=*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)); +if(!qbevent)break;evnt(26070,8716,"ide_methods.bas");}while(r); +S_45845:; +if ((qbs_cleanup(qbs_tmp_base,(((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS== 5 ))&(((qbs_equal(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+64))),_FUNC_IDEVARIABLEWATCHBOX_STRING_CURRENTSCOPE))|(qbs_equal(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+64))),qbs_new_txt_len("",0)))))))|(-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS== 6 ))))||new_error){ +if(qbevent){evnt(26070,8717,"ide_methods.bas");if(r)goto S_45845;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPARRAYINDEX= 0 ; +if(!qbevent)break;evnt(26070,8719,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPARRAYINDEXES,l2string( 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8720,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPSTORAGE= 0 ; +if(!qbevent)break;evnt(26070,8722,"ide_methods.bas");}while(r); +S_45849:; +if ((qbs_cleanup(qbs_tmp_base,-((*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+112)))->len== 4 )))||new_error){ +if(qbevent){evnt(26070,8723,"ide_methods.bas");if(r)goto S_45849;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPSTORAGE=string2l(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+112)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8724,"ide_methods.bas");}while(r); +S_45851:; +}else{ +if (qbs_cleanup(qbs_tmp_base,-((*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+112)))->len> 4 ))){ +if(qbevent){evnt(26070,8725,"ide_methods.bas");if(r)goto S_45851;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_I= 4 ; +if(!qbevent)break;evnt(26070,8726,"ide_methods.bas");}while(r); +S_45853:; +do{ +if(qbevent){evnt(26070,8727,"ide_methods.bas");if(r)goto S_45853;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_I=func_instr(*_FUNC_IDEVARIABLEWATCHBOX_LONG_I+ 1 ,__STRING_VARIABLEWATCHLIST,qbs_add(qbs_add(l2string( -1 ),l2string(*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)),_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPARRAYINDEXES),0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8728,"ide_methods.bas");}while(r); +S_45855:; +if ((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_I== 0 ))||new_error){ +if(qbevent){evnt(26070,8729,"ide_methods.bas");if(r)goto S_45855;} +do{ +goto dl_exit_5053; +if(!qbevent)break;evnt(26070,8729,"ide_methods.bas");}while(r); +} +S_45858:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(__STRING_VARIABLEWATCHLIST,*_FUNC_IDEVARIABLEWATCHBOX_LONG_I+ 8 +_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPARRAYINDEXES->len, 4 ,0|1),_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPELEMENTOFFSET)))||new_error){ +if(qbevent){evnt(26070,8730,"ide_methods.bas");if(r)goto S_45858;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPSTORAGE=string2l(func_mid(__STRING_VARIABLEWATCHLIST,*_FUNC_IDEVARIABLEWATCHBOX_LONG_I+ 16 +_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPARRAYINDEXES->len, 4 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8732,"ide_methods.bas");}while(r); +do{ +goto dl_exit_5053; +if(!qbevent)break;evnt(26070,8733,"ide_methods.bas");}while(r); +} +dl_continue_5053:; +}while(1); +dl_exit_5053:; +} +} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPISUDT= 0 ; +if(!qbevent)break;evnt(26070,8738,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPELEMENTOFFSET,l2string( 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8739,"ide_methods.bas");}while(r); +S_45866:; +if ((*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+30)))||new_error){ +if(qbevent){evnt(26070,8740,"ide_methods.bas");if(r)goto S_45866;} +LABEL_SETARRAYRANGE3:; +if(qbevent){evnt(26070,8741,"ide_methods.bas");r=0;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_V,FUNC_IDEINPUTBOX(_FUNC_IDEVARIABLEWATCHBOX_STRING_DLGTITLE,_FUNC_IDEVARIABLEWATCHBOX_STRING_DLGPROMPT,_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,qbs_new_txt_len("01234567890,",12),&(pass5056= 45 ),&(pass5057= 0 ),_FUNC_IDEVARIABLEWATCHBOX_LONG_OK)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8742,"ide_methods.bas");}while(r); +do{ +sub__keyclear(NULL,0); +if(!qbevent)break;evnt(26070,8743,"ide_methods.bas");}while(r); +S_45869:; +if ((*_FUNC_IDEVARIABLEWATCHBOX_LONG_OK)||new_error){ +if(qbevent){evnt(26070,8744,"ide_methods.bas");if(r)goto S_45869;} +S_45870:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDEVARIABLEWATCHBOX_STRING_V->len> 0 )))||new_error){ +if(qbevent){evnt(26070,8745,"ide_methods.bas");if(r)goto S_45870;} +S_45871:; +while((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_FUNC_IDEVARIABLEWATCHBOX_STRING_V, 1 ),qbs_new_txt_len(",",1))))||new_error){ +if(qbevent){evnt(26070,8746,"ide_methods.bas");if(r)goto S_45871;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_V,qbs_left(_FUNC_IDEVARIABLEWATCHBOX_STRING_V,_FUNC_IDEVARIABLEWATCHBOX_STRING_V->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8746,"ide_methods.bas");}while(r); +ww_continue_5059:; +} +ww_exit_5059:; +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,FUNC_LINEFORMAT(_FUNC_IDEVARIABLEWATCHBOX_STRING_V)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8747,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_I=FUNC_COUNTELEMENTS(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8748,"ide_methods.bas");}while(r); +S_45876:; +if ((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_I!=func_abs((int16)(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120)))-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+516))))))||new_error){ +if(qbevent){evnt(26070,8749,"ide_methods.bas");if(r)goto S_45876;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Error",5),qbs_add(qbs_add(qbs_new_txt_len("Array has",9),qbs_str((int16)(func_abs((int16)(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120)))-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+516))))))),qbs_new_txt_len(" dimension(s).",14)),qbs_new_txt_len("#OK",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8750,"ide_methods.bas");}while(r); +do{ +sub__keyclear(NULL,0); +if(!qbevent)break;evnt(26070,8751,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,qbs__trim(_FUNC_IDEVARIABLEWATCHBOX_STRING_V)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8752,"ide_methods.bas");}while(r); +do{ +goto LABEL_SETARRAYRANGE3; +if(!qbevent)break;evnt(26070,8753,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPARRAYINDEXES,l2string(*_FUNC_IDEVARIABLEWATCHBOX_LONG_I* 4 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8755,"ide_methods.bas");}while(r); +S_45883:; +while((*_FUNC_IDEVARIABLEWATCHBOX_LONG_I)||new_error){ +if(qbevent){evnt(26070,8756,"ide_methods.bas");if(r)goto S_45883;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOUNDCOMMA=func_instr(NULL,_FUNC_IDEVARIABLEWATCHBOX_STRING_V,qbs_new_txt_len(",",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8757,"ide_methods.bas");}while(r); +S_45885:; +if ((*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOUNDCOMMA)||new_error){ +if(qbevent){evnt(26070,8758,"ide_methods.bas");if(r)goto S_45885;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,qbs_left(_FUNC_IDEVARIABLEWATCHBOX_STRING_V,*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOUNDCOMMA- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8759,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_V,func_mid(_FUNC_IDEVARIABLEWATCHBOX_STRING_V,*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOUNDCOMMA+ 1 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8760,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,_FUNC_IDEVARIABLEWATCHBOX_STRING_V); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8762,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPARRAYINDEXES,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPARRAYINDEXES,l2string(qbr(func_val(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8764,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_I=*_FUNC_IDEVARIABLEWATCHBOX_LONG_I- 1 ; +if(!qbevent)break;evnt(26070,8765,"ide_methods.bas");}while(r); +ww_continue_5061:; +} +ww_exit_5061:; +}else{ +do{ +goto dl_continue_5039; +if(!qbevent)break;evnt(26070,8768,"ide_methods.bas");}while(r); +} +}else{ +do{ +goto dl_continue_5039; +if(!qbevent)break;evnt(26070,8771,"ide_methods.bas");}while(r); +} +} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+48)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8775,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPVARTYPE,_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8776,"ide_methods.bas");}while(r); +S_45903:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("STRING *",8),0)))||new_error){ +if(qbevent){evnt(26070,8777,"ide_methods.bas");if(r)goto S_45903;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPVARTYPE,qbs_new_txt_len("STRING",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8777,"ide_methods.bas");}while(r); +} +S_45906:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("BIT *",5),0)))||new_error){ +if(qbevent){evnt(26070,8778,"ide_methods.bas");if(r)goto S_45906;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPVARTYPE,qbs_new_txt_len("_BIT",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8778,"ide_methods.bas");}while(r); +} +S_45909:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,__STRING_NATIVEDATATYPES,_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPVARTYPE,0)== 0 )))||new_error){ +if(qbevent){evnt(26070,8779,"ide_methods.bas");if(r)goto S_45909;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPISUDT= -1 ; +if(!qbevent)break;evnt(26070,8781,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_ELEMENTINDEXES,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8782,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISUDT= 0 ; +if(!qbevent)break;evnt(26070,8783,"ide_methods.bas");}while(r); +do{ +*__LONG_E= 0 ; +if(!qbevent)break;evnt(26070,8784,"ide_methods.bas");}while(r); +S_45914:; +fornext_value5063= 1 ; +fornext_finalvalue5063=*__LONG_LASTTYPE; +fornext_step5063= 1 ; +if (fornext_step5063<0) fornext_step_negative5063=1; else fornext_step_negative5063=0; +if (new_error) goto fornext_error5063; +goto fornext_entrylabel5063; +while(1){ +fornext_value5063=fornext_step5063+(*_FUNC_IDEVARIABLEWATCHBOX_LONG_I); +fornext_entrylabel5063: +*_FUNC_IDEVARIABLEWATCHBOX_LONG_I=fornext_value5063; +if (fornext_step_negative5063){ +if (fornext_value5063fornext_finalvalue5063) break; +} +fornext_error5063:; +if(qbevent){evnt(26070,8785,"ide_methods.bas");if(r)goto S_45914;} +S_45915:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[(array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_I)-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]))*256],256,1)),_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE)))||new_error){ +if(qbevent){evnt(26070,8786,"ide_methods.bas");if(r)goto S_45915;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISUDT=*_FUNC_IDEVARIABLEWATCHBOX_LONG_I; +if(!qbevent)break;evnt(26070,8786,"ide_methods.bas");}while(r); +do{ +goto fornext_exit_5062; +if(!qbevent)break;evnt(26070,8786,"ide_methods.bas");}while(r); +} +fornext_continue_5062:; +} +fornext_exit_5062:; +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_I= 0 ; +if(!qbevent)break;evnt(26070,8789,"ide_methods.bas");}while(r); +S_45921:; +do{ +if(qbevent){evnt(26070,8790,"ide_methods.bas");if(r)goto S_45921;} +S_45922:; +if ((-(*__LONG_E== 0 ))||new_error){ +if(qbevent){evnt(26070,8791,"ide_methods.bas");if(r)goto S_45922;} +do{ +*__LONG_E=((int32*)(__ARRAY_LONG_UDTXNEXT[0]))[array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISUDT)-__ARRAY_LONG_UDTXNEXT[4],__ARRAY_LONG_UDTXNEXT[5])]; +if(!qbevent)break;evnt(26070,8791,"ide_methods.bas");}while(r); +}else{ +do{ +*__LONG_E=((int32*)(__ARRAY_LONG_UDTENEXT[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5])]; +if(!qbevent)break;evnt(26070,8791,"ide_methods.bas");}while(r); +} +S_45927:; +if ((-(*__LONG_E== 0 ))||new_error){ +if(qbevent){evnt(26070,8792,"ide_methods.bas");if(r)goto S_45927;} +do{ +goto dl_exit_5064; +if(!qbevent)break;evnt(26070,8792,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_ELEMENTINDEXES,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_ELEMENTINDEXES,l2string(*__LONG_E))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8793,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_I=*_FUNC_IDEVARIABLEWATCHBOX_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,8794,"ide_methods.bas");}while(r); +dl_continue_5064:; +}while(1); +dl_exit_5064:; +do{ +sub_pcopy( 0 , 4 ); +if(!qbevent)break;evnt(26070,8796,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_V,FUNC_IDEELEMENTWATCHBOX(qbs_add(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+32))),qbs_new_txt_len(".",1)),_FUNC_IDEVARIABLEWATCHBOX_STRING_ELEMENTINDEXES,&(pass5065= 0 ),&(pass5066= -1 ),_FUNC_IDEVARIABLEWATCHBOX_LONG_OK)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8797,"ide_methods.bas");}while(r); +do{ +sub__keyclear(NULL,0); +if(!qbevent)break;evnt(26070,8798,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 2 , 0 ); +if(!qbevent)break;evnt(26070,8799,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 2 , 1 ); +if(!qbevent)break;evnt(26070,8800,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,8801,"ide_methods.bas");}while(r); +S_45939:; +if ((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_OK== -2 ))||new_error){ +if(qbevent){evnt(26070,8802,"ide_methods.bas");if(r)goto S_45939;} +do{ +SUB_GETID((int32*)(void*)( ((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])) + ((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120) )); +if(!qbevent)break;evnt(26070,8803,"ide_methods.bas");}while(r); +S_45941:; +if ((-(*(int32*)(((char*)__UDT_ID)+(536))== 0 ))||new_error){ +if(qbevent){evnt(26070,8804,"ide_methods.bas");if(r)goto S_45941;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP=*(int32*)(((char*)__UDT_ID)+(512))& 511 ; +if(!qbevent)break;evnt(26070,8805,"ide_methods.bas");}while(r); +S_45943:; +if ((*(int32*)(((char*)__UDT_ID)+(512))&*__LONG_ISINCONVENTIONALMEMORY)||new_error){ +if(qbevent){evnt(26070,8806,"ide_methods.bas");if(r)goto S_45943;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP=*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP-*__LONG_ISINCONVENTIONALMEMORY; +if(!qbevent)break;evnt(26070,8807,"ide_methods.bas");}while(r); +} +do{ +*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+24))=((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])]; +if(!qbevent)break;evnt(26070,8810,"ide_methods.bas");}while(r); +S_45947:; +if ((((int16*)(__ARRAY_INTEGER_UDTXBYTEALIGN[0]))[array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP)-__ARRAY_INTEGER_UDTXBYTEALIGN[4],__ARRAY_INTEGER_UDTXBYTEALIGN[5])])||new_error){ +if(qbevent){evnt(26070,8811,"ide_methods.bas");if(r)goto S_45947;} +S_45948:; +if ((*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+24))% 8 )||new_error){ +if(qbevent){evnt(26070,8812,"ide_methods.bas");if(r)goto S_45948;} +do{ +*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+24))=*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+24))+( 8 -(*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+24))% 8 )); +if(!qbevent)break;evnt(26070,8812,"ide_methods.bas");}while(r); +} +do{ +*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+24))=*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+24))/ 8 ; +if(!qbevent)break;evnt(26070,8813,"ide_methods.bas");}while(r); +} +}else{ +do{ +*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+24))= 0 ; +if(!qbevent)break;evnt(26070,8816,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,_FUNC_IDEVARIABLEWATCHBOX_STRING_V); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8819,"ide_methods.bas");}while(r); +S_45957:; +if ((qbs_cleanup(qbs_tmp_base,-(FUNC_NUMELEMENTS(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP)!= 1 )))||new_error){ +if(qbevent){evnt(26070,8820,"ide_methods.bas");if(r)goto S_45957;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Error",5),qbs_new_txt_len("Only one UDT element can be selected at a time",46),qbs_new_txt_len("#OK",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8822,"ide_methods.bas");}while(r); +do{ +sub__keyclear(NULL,0); +if(!qbevent)break;evnt(26070,8823,"ide_methods.bas");}while(r); +do{ +goto dl_continue_5039; +if(!qbevent)break;evnt(26070,8824,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_V,FUNC_GETELEMENT(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,&(pass5067= 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8827,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_V,FUNC_LINEFORMAT(qbs_ucase(_FUNC_IDEVARIABLEWATCHBOX_STRING_V))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8830,"ide_methods.bas");}while(r); +do{ +*__LONG_ERROR_HAPPENED= 0 ; +if(!qbevent)break;evnt(26070,8831,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_RESULT,FUNC_UDTREFERENCE(qbs_new_txt_len("",0),_FUNC_IDEVARIABLEWATCHBOX_STRING_V,_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8832,"ide_methods.bas");}while(r); +S_45966:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(26070,8833,"ide_methods.bas");if(r)goto S_45966;} +do{ +*__LONG_ERROR_HAPPENED= 0 ; +if(!qbevent)break;evnt(26070,8835,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Error",5),__STRING_ERROR_MESSAGE,qbs_new_txt_len("#OK",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8836,"ide_methods.bas");}while(r); +do{ +sub__keyclear(NULL,0); +if(!qbevent)break;evnt(26070,8837,"ide_methods.bas");}while(r); +do{ +goto dl_continue_5039; +if(!qbevent)break;evnt(26070,8838,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP=*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP-*__LONG_ISUDT; +if(!qbevent)break;evnt(26070,8840,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP=*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP-*__LONG_ISREFERENCE; +if(!qbevent)break;evnt(26070,8841,"ide_methods.bas");}while(r); +S_45974:; +if ((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP&*__LONG_ISINCONVENTIONALMEMORY)||new_error){ +if(qbevent){evnt(26070,8842,"ide_methods.bas");if(r)goto S_45974;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP=*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP-*__LONG_ISINCONVENTIONALMEMORY; +if(!qbevent)break;evnt(26070,8842,"ide_methods.bas");}while(r); +} +S_45977:; +if(qbevent){evnt(26070,8843,"ide_methods.bas");if(r)goto S_45977;} +S_45978:; +if (((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP==(*__LONG_BYTETYPE)))||new_error){ +if(qbevent){evnt(26070,8844,"ide_methods.bas");if(r)goto S_45978;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("_BYTE",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8845,"ide_methods.bas");}while(r); +sc_ec_320_end:; +goto sc_5068_end; +} +S_45980:; +if (((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP==(*__LONG_UBYTETYPE)))||new_error){ +if(qbevent){evnt(26070,8846,"ide_methods.bas");if(r)goto S_45980;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("_UNSIGNED _BYTE",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8847,"ide_methods.bas");}while(r); +sc_ec_321_end:; +goto sc_5068_end; +} +S_45982:; +if (((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP==(*__LONG_INTEGERTYPE)))||new_error){ +if(qbevent){evnt(26070,8848,"ide_methods.bas");if(r)goto S_45982;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("INTEGER",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8849,"ide_methods.bas");}while(r); +sc_ec_322_end:; +goto sc_5068_end; +} +S_45984:; +if (((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP==(*__LONG_UINTEGERTYPE)))||new_error){ +if(qbevent){evnt(26070,8850,"ide_methods.bas");if(r)goto S_45984;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("_UNSIGNED INTEGER",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8851,"ide_methods.bas");}while(r); +sc_ec_323_end:; +goto sc_5068_end; +} +S_45986:; +if (((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP==(*__LONG_LONGTYPE)))||new_error){ +if(qbevent){evnt(26070,8852,"ide_methods.bas");if(r)goto S_45986;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("LONG",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8853,"ide_methods.bas");}while(r); +sc_ec_324_end:; +goto sc_5068_end; +} +S_45988:; +if (((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP==(*__LONG_ULONGTYPE)))||new_error){ +if(qbevent){evnt(26070,8854,"ide_methods.bas");if(r)goto S_45988;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("_UNSIGNED LONG",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8855,"ide_methods.bas");}while(r); +sc_ec_325_end:; +goto sc_5068_end; +} +S_45990:; +if (((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP==(*__LONG_INTEGER64TYPE)))||new_error){ +if(qbevent){evnt(26070,8856,"ide_methods.bas");if(r)goto S_45990;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("_INTEGER64",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8857,"ide_methods.bas");}while(r); +sc_ec_326_end:; +goto sc_5068_end; +} +S_45992:; +if (((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP==(*__LONG_UINTEGER64TYPE)))||new_error){ +if(qbevent){evnt(26070,8858,"ide_methods.bas");if(r)goto S_45992;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("_UNSIGNED _INTEGER64",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8859,"ide_methods.bas");}while(r); +sc_ec_327_end:; +goto sc_5068_end; +} +S_45994:; +if (((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP==(*__LONG_SINGLETYPE)))||new_error){ +if(qbevent){evnt(26070,8860,"ide_methods.bas");if(r)goto S_45994;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("SINGLE",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8861,"ide_methods.bas");}while(r); +sc_ec_328_end:; +goto sc_5068_end; +} +S_45996:; +if (((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP==(*__LONG_DOUBLETYPE)))||new_error){ +if(qbevent){evnt(26070,8862,"ide_methods.bas");if(r)goto S_45996;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("DOUBLE",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8863,"ide_methods.bas");}while(r); +sc_ec_329_end:; +goto sc_5068_end; +} +S_45998:; +if (((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP==(*__LONG_FLOATTYPE)))||new_error){ +if(qbevent){evnt(26070,8864,"ide_methods.bas");if(r)goto S_45998;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("_FLOAT",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8865,"ide_methods.bas");}while(r); +sc_ec_330_end:; +goto sc_5068_end; +} +S_46000:; +if (((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP==(*__LONG_OFFSETTYPE)))||new_error){ +if(qbevent){evnt(26070,8866,"ide_methods.bas");if(r)goto S_46000;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("_OFFSET",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8867,"ide_methods.bas");}while(r); +sc_ec_331_end:; +goto sc_5068_end; +} +S_46002:; +if (((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP==(*__LONG_UOFFSETTYPE)))||new_error){ +if(qbevent){evnt(26070,8868,"ide_methods.bas");if(r)goto S_46002;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("_UNSIGNED _OFFSET",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8869,"ide_methods.bas");}while(r); +sc_ec_332_end:; +goto sc_5068_end; +} +S_46005:; +if ((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(26070,8871,"ide_methods.bas");if(r)goto S_46005;} +S_46006:; +if ((-((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ +if(qbevent){evnt(26070,8872,"ide_methods.bas");if(r)goto S_46006;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("STRING",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8873,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,qbs_add(qbs_new_txt_len("STRING *",8),qbs_str((int32)(((int32*)(__ARRAY_LONG_UDTETYPESIZE[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTETYPESIZE[4],__ARRAY_LONG_UDTETYPESIZE[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8876,"ide_methods.bas");}while(r); +} +}else{ +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Error",5),qbs_new_txt_len("Cannot select full UDT",22),qbs_new_txt_len("#OK",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8880,"ide_methods.bas");}while(r); +do{ +sub__keyclear(NULL,0); +if(!qbevent)break;evnt(26070,8881,"ide_methods.bas");}while(r); +do{ +goto LABEL_DLGLOOP; +if(!qbevent)break;evnt(26070,8882,"ide_methods.bas");}while(r); +} +sc_5068_end:; +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPELEMENTOFFSET,l2string(qbr(func_val(func_mid(_FUNC_IDEVARIABLEWATCHBOX_STRING_RESULT,func__instrrev(NULL,_FUNC_IDEVARIABLEWATCHBOX_STRING_RESULT,__STRING1_SP3,0)+ 1 ,NULL,0))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8885,"ide_methods.bas");}while(r); +} +}else{ +do{ +goto dl_continue_5039; +if(!qbevent)break;evnt(26070,8889,"ide_methods.bas");}while(r); +} +} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_STORAGESLOT= 0 ; +if(!qbevent)break;evnt(26070,8892,"ide_methods.bas");}while(r); +S_46024:; +if ((qbs_cleanup(qbs_tmp_base,-((*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+112)))->len== 4 )))||new_error){ +if(qbevent){evnt(26070,8893,"ide_methods.bas");if(r)goto S_46024;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_STORAGESLOT=string2l(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+112)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8894,"ide_methods.bas");}while(r); +S_46026:; +}else{ +if (qbs_cleanup(qbs_tmp_base,-((*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+112)))->len> 4 ))){ +if(qbevent){evnt(26070,8895,"ide_methods.bas");if(r)goto S_46026;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_I= 4 ; +if(!qbevent)break;evnt(26070,8896,"ide_methods.bas");}while(r); +S_46028:; +do{ +if(qbevent){evnt(26070,8897,"ide_methods.bas");if(r)goto S_46028;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_I=func_instr(*_FUNC_IDEVARIABLEWATCHBOX_LONG_I+ 1 ,__STRING_VARIABLEWATCHLIST,qbs_add(qbs_add(l2string( -1 ),l2string(*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)),_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPARRAYINDEXES),0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8898,"ide_methods.bas");}while(r); +S_46030:; +if ((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_I== 0 ))||new_error){ +if(qbevent){evnt(26070,8899,"ide_methods.bas");if(r)goto S_46030;} +do{ +goto dl_exit_5069; +if(!qbevent)break;evnt(26070,8899,"ide_methods.bas");}while(r); +} +S_46033:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(__STRING_VARIABLEWATCHLIST,*_FUNC_IDEVARIABLEWATCHBOX_LONG_I+ 8 +_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPARRAYINDEXES->len, 4 ,0|1),_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPELEMENTOFFSET)))||new_error){ +if(qbevent){evnt(26070,8900,"ide_methods.bas");if(r)goto S_46033;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_STORAGESLOT=string2l(func_mid(__STRING_VARIABLEWATCHLIST,*_FUNC_IDEVARIABLEWATCHBOX_LONG_I+ 16 +_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPARRAYINDEXES->len, 4 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8902,"ide_methods.bas");}while(r); +do{ +goto dl_exit_5069; +if(!qbevent)break;evnt(26070,8903,"ide_methods.bas");}while(r); +} +dl_continue_5069:; +}while(1); +dl_exit_5069:; +} +} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_A2,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8907,"ide_methods.bas");}while(r); +S_46040:; +if (((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_STORAGESLOT> 0 ))&(-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS== 5 )))||new_error){ +if(qbevent){evnt(26070,8908,"ide_methods.bas");if(r)goto S_46040;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_A2,((qbs*)(((uint64*)(__ARRAY_STRING_VWATCHRECEIVEDDATA[0]))[array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_STORAGESLOT)-__ARRAY_STRING_VWATCHRECEIVEDDATA[4],__ARRAY_STRING_VWATCHRECEIVEDDATA[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8909,"ide_methods.bas");}while(r); +S_46042:; +}else{ +if (-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS== 6 )){ +if(qbevent){evnt(26070,8910,"ide_methods.bas");if(r)goto S_46042;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,qbs_add(qbs_add(l2string(*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX),_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPARRAYINDEXES),_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPELEMENTOFFSET)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8912,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_I= 0 ; +if(!qbevent)break;evnt(26070,8913,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_I=func_instr(*_FUNC_IDEVARIABLEWATCHBOX_LONG_I+ 1 ,__STRING_WATCHPOINTLIST,l2string( -1 ),0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8914,"ide_methods.bas");}while(r); +S_46046:; +while((*_FUNC_IDEVARIABLEWATCHBOX_LONG_I)||new_error){ +if(qbevent){evnt(26070,8915,"ide_methods.bas");if(r)goto S_46046;} +S_46047:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(__STRING_WATCHPOINTLIST,*_FUNC_IDEVARIABLEWATCHBOX_LONG_I+ 8 ,_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP->len,0|1),_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP)))||new_error){ +if(qbevent){evnt(26070,8916,"ide_methods.bas");if(r)goto S_46047;} +do{ +goto dl_exit_5072; +if(!qbevent)break;evnt(26070,8916,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_I=func_instr(*_FUNC_IDEVARIABLEWATCHBOX_LONG_I+ 1 ,__STRING_WATCHPOINTLIST,l2string( -1 ),0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8917,"ide_methods.bas");}while(r); +dl_continue_5072:; +} +dl_exit_5072:; +S_46052:; +if ((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_I> 0 ))||new_error){ +if(qbevent){evnt(26070,8920,"ide_methods.bas");if(r)goto S_46052;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_J=string2l(func_mid(__STRING_WATCHPOINTLIST,*_FUNC_IDEVARIABLEWATCHBOX_LONG_I+ 4 , 4 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8921,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,func_mid(__STRING_WATCHPOINTLIST,*_FUNC_IDEVARIABLEWATCHBOX_LONG_I+ 8 ,*_FUNC_IDEVARIABLEWATCHBOX_LONG_J,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8922,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_J=string2i(qbs_right(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP, 2 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8923,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_A2,func_mid(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP->len-( 2 +*_FUNC_IDEVARIABLEWATCHBOX_LONG_J)+ 1 ,*_FUNC_IDEVARIABLEWATCHBOX_LONG_J,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8924,"ide_methods.bas");}while(r); +} +} +} +S_46059:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("STRING",6),0)))||new_error){ +if(qbevent){evnt(26070,8927,"ide_methods.bas");if(r)goto S_46059;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISWIDTH=*__LONG_IDEWX- 20 ; +if(!qbevent)break;evnt(26070,8928,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISWIDTH= 45 ; +if(!qbevent)break;evnt(26070,8930,"ide_methods.bas");}while(r); +S_46063:; +sc_5075=*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+31)); +if(qbevent){evnt(26070,8931,"ide_methods.bas");if(r)goto S_46063;} +S_46064:; +if (((sc_5075==( 1 )))||new_error){ +if(qbevent){evnt(26070,8932,"ide_methods.bas");if(r)goto S_46064;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_A2,qbs_add(qbs_new_txt_len("&H",2),func_hex_float(func_val(_FUNC_IDEVARIABLEWATCHBOX_STRING_A2)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8932,"ide_methods.bas");}while(r); +sc_ec_333_end:; +goto sc_5075_end; +} +S_46066:; +if (((sc_5075==( 2 )))||new_error){ +if(qbevent){evnt(26070,8933,"ide_methods.bas");if(r)goto S_46066;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_A2,qbs_add(qbs_new_txt_len("&B",2),func__bin_float(func_val(_FUNC_IDEVARIABLEWATCHBOX_STRING_A2)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8933,"ide_methods.bas");}while(r); +sc_ec_334_end:; +goto sc_5075_end; +} +S_46068:; +if (((sc_5075==( 3 )))||new_error){ +if(qbevent){evnt(26070,8934,"ide_methods.bas");if(r)goto S_46068;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_A2,qbs_add(qbs_new_txt_len("&O",2),func_oct_float(func_val(_FUNC_IDEVARIABLEWATCHBOX_STRING_A2)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8934,"ide_methods.bas");}while(r); +sc_ec_335_end:; +goto sc_5075_end; +} +sc_5075_end:; +} +LABEL_GETNEWVALUEINPUT:; +if(qbevent){evnt(26070,8937,"ide_methods.bas");r=0;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_V,FUNC_IDEINPUTBOX(_FUNC_IDEVARIABLEWATCHBOX_STRING_DLGTITLE,_FUNC_IDEVARIABLEWATCHBOX_STRING_DLGPROMPT2,_FUNC_IDEVARIABLEWATCHBOX_STRING_A2,qbs_new_txt_len("",0),_FUNC_IDEVARIABLEWATCHBOX_LONG_THISWIDTH,&(pass5076= 0 ),_FUNC_IDEVARIABLEWATCHBOX_LONG_OK)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8938,"ide_methods.bas");}while(r); +do{ +sub__keyclear(NULL,0); +if(!qbevent)break;evnt(26070,8939,"ide_methods.bas");}while(r); +S_46074:; +if ((*_FUNC_IDEVARIABLEWATCHBOX_LONG_OK)||new_error){ +if(qbevent){evnt(26070,8940,"ide_methods.bas");if(r)goto S_46074;} +S_46075:; +if ((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS== 6 ))||new_error){ +if(qbevent){evnt(26070,8941,"ide_methods.bas");if(r)goto S_46075;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_V,qbs_ltrim(_FUNC_IDEVARIABLEWATCHBOX_STRING_V)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8943,"ide_methods.bas");}while(r); +S_46077:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDEVARIABLEWATCHBOX_STRING_V->len< 2 )))||new_error){ +if(qbevent){evnt(26070,8944,"ide_methods.bas");if(r)goto S_46077;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_RESULT=FUNC_IDEMESSAGEBOX(_FUNC_IDEVARIABLEWATCHBOX_STRING_DLGTITLE,qbs_new_txt_len("Watchpoint cleared.",19),qbs_new_txt_len("#OK",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8945,"ide_methods.bas");}while(r); +do{ +sub__keyclear(NULL,0); +if(!qbevent)break;evnt(26070,8946,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_V,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8947,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISRETURNACTION= 3 ; +if(!qbevent)break;evnt(26070,8948,"ide_methods.bas");}while(r); +}else{ +LABEL_STARTWATCHPOINTEVAL:; +if(qbevent){evnt(26070,8950,"ide_methods.bas");r=0;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_OP1,qbs_left(_FUNC_IDEVARIABLEWATCHBOX_STRING_V, 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8951,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_OP2,func_mid(_FUNC_IDEVARIABLEWATCHBOX_STRING_V, 2 , 1 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8952,"ide_methods.bas");}while(r); +S_46085:; +if(qbevent){evnt(26070,8953,"ide_methods.bas");if(r)goto S_46085;} +S_46086:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEVARIABLEWATCHBOX_STRING_OP1,qbs_new_txt_len("=",1))))||new_error){ +if(qbevent){evnt(26070,8954,"ide_methods.bas");if(r)goto S_46086;} +S_46087:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_IDEVARIABLEWATCHBOX_STRING_OP2,qbs_new_txt_len("<",1)))|(qbs_equal(_FUNC_IDEVARIABLEWATCHBOX_STRING_OP2,qbs_new_txt_len(">",1)))))||new_error){ +if(qbevent){evnt(26070,8955,"ide_methods.bas");if(r)goto S_46087;} +do{ +sub_mid(_FUNC_IDEVARIABLEWATCHBOX_STRING_V, 1 , 2 ,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_OP2,qbs_new_txt_len("=",1)),1); +if(!qbevent)break;evnt(26070,8956,"ide_methods.bas");}while(r); +do{ +goto LABEL_STARTWATCHPOINTEVAL; +if(!qbevent)break;evnt(26070,8957,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_OP,qbs_new_txt_len("=",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8959,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_ACTUALVALUE,qbs__trim(func_mid(_FUNC_IDEVARIABLEWATCHBOX_STRING_V, 2 ,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8960,"ide_methods.bas");}while(r); +sc_ec_336_end:; +goto sc_5078_end; +} +S_46093:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEVARIABLEWATCHBOX_STRING_OP1,qbs_new_txt_len(">",1))))||new_error){ +if(qbevent){evnt(26070,8961,"ide_methods.bas");if(r)goto S_46093;} +S_46094:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_IDEVARIABLEWATCHBOX_STRING_OP2,qbs_new_txt_len("<",1)))|(qbs_equal(_FUNC_IDEVARIABLEWATCHBOX_STRING_OP2,qbs_new_txt_len(">",1)))))||new_error){ +if(qbevent){evnt(26070,8962,"ide_methods.bas");if(r)goto S_46094;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_RESULT=FUNC_IDEMESSAGEBOX(_FUNC_IDEVARIABLEWATCHBOX_STRING_DLGTITLE,qbs_new_txt_len("Invalid expression.\\nYou can use =, <>, >, >=, <, <=, and a literal value",73),qbs_new_txt_len("#OK",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8963,"ide_methods.bas");}while(r); +do{ +sub__keyclear(NULL,0); +if(!qbevent)break;evnt(26070,8964,"ide_methods.bas");}while(r); +do{ +goto LABEL_GETNEWVALUEINPUT; +if(!qbevent)break;evnt(26070,8965,"ide_methods.bas");}while(r); +} +S_46099:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEVARIABLEWATCHBOX_STRING_OP2,qbs_new_txt_len("=",1))))||new_error){ +if(qbevent){evnt(26070,8967,"ide_methods.bas");if(r)goto S_46099;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_OP,qbs_new_txt_len(">=",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8968,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_ACTUALVALUE,qbs__trim(func_mid(_FUNC_IDEVARIABLEWATCHBOX_STRING_V, 3 ,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8969,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_OP,qbs_new_txt_len(">",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8971,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_ACTUALVALUE,qbs__trim(func_mid(_FUNC_IDEVARIABLEWATCHBOX_STRING_V, 2 ,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8972,"ide_methods.bas");}while(r); +} +sc_ec_337_end:; +goto sc_5078_end; +} +S_46106:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEVARIABLEWATCHBOX_STRING_OP1,qbs_new_txt_len("<",1))))||new_error){ +if(qbevent){evnt(26070,8974,"ide_methods.bas");if(r)goto S_46106;} +S_46107:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_IDEVARIABLEWATCHBOX_STRING_OP2,qbs_new_txt_len(">",1)))|(qbs_equal(_FUNC_IDEVARIABLEWATCHBOX_STRING_OP2,qbs_new_txt_len("=",1)))))||new_error){ +if(qbevent){evnt(26070,8975,"ide_methods.bas");if(r)goto S_46107;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_OP,qbs_add(qbs_new_txt_len("<",1),_FUNC_IDEVARIABLEWATCHBOX_STRING_OP2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8976,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_ACTUALVALUE,qbs__trim(func_mid(_FUNC_IDEVARIABLEWATCHBOX_STRING_V, 3 ,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8977,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_OP,qbs_new_txt_len("<",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8979,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_ACTUALVALUE,qbs__trim(func_mid(_FUNC_IDEVARIABLEWATCHBOX_STRING_V, 2 ,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8980,"ide_methods.bas");}while(r); +} +sc_ec_338_end:; +goto sc_5078_end; +} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_RESULT=FUNC_IDEMESSAGEBOX(_FUNC_IDEVARIABLEWATCHBOX_STRING_DLGTITLE,qbs_new_txt_len("Invalid expression.\\nYou can use =, <>, >, >=, <, <=, and a literal value",73),qbs_new_txt_len("#OK",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8983,"ide_methods.bas");}while(r); +do{ +sub__keyclear(NULL,0); +if(!qbevent)break;evnt(26070,8984,"ide_methods.bas");}while(r); +do{ +goto LABEL_GETNEWVALUEINPUT; +if(!qbevent)break;evnt(26070,8985,"ide_methods.bas");}while(r); +sc_5078_end:; +} +S_46120:; +if ((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISRETURNACTION!= 3 ))||new_error){ +if(qbevent){evnt(26070,8989,"ide_methods.bas");if(r)goto S_46120;} +S_46121:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("STRING",6),0)== 0 )))||new_error){ +if(qbevent){evnt(26070,8990,"ide_methods.bas");if(r)goto S_46121;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_V,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_OP,_FUNC_IDEVARIABLEWATCHBOX_STRING_ACTUALVALUE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8991,"ide_methods.bas");}while(r); +S_46123:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_IDEVARIABLEWATCHBOX_STRING_V,(qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_OP,qbs_ltrim(qbs_str((long double)(func_val(_FUNC_IDEVARIABLEWATCHBOX_STRING_ACTUALVALUE)))))))))||new_error){ +if(qbevent){evnt(26070,8992,"ide_methods.bas");if(r)goto S_46123;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_RESULT=FUNC_IDEMESSAGEBOX(_FUNC_IDEVARIABLEWATCHBOX_STRING_DLGTITLE,qbs_new_txt_len("Invalid expression.\\nYou can use =, <>, >, >=, <, <=, and a literal value\\n(scientific notation not allowed).",109),qbs_new_txt_len("#OK",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8993,"ide_methods.bas");}while(r); +do{ +sub__keyclear(NULL,0); +if(!qbevent)break;evnt(26070,8994,"ide_methods.bas");}while(r); +do{ +goto LABEL_GETNEWVALUEINPUT; +if(!qbevent)break;evnt(26070,8995,"ide_methods.bas");}while(r); +} +} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_V,qbs_add(qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_OP,qbs_new_txt_len(" ",1)),_FUNC_IDEVARIABLEWATCHBOX_STRING_ACTUALVALUE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,8999,"ide_methods.bas");}while(r); +} +} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9003,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,l2string(*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9004,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,b2string(*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+30))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9005,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,l2string(*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+4))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9006,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,l2string(*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+20))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9007,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPARRAYINDEXES)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9008,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,l2string(*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+24))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9009,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,l2string(*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPISUDT))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9010,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,l2string(*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPELEMENT))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9011,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPELEMENTOFFSET)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9012,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,l2string( 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9013,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,l2string(*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPSTORAGE))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9014,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,i2string((*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+64)))->len))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9015,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+64))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9016,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,qbs_add(qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,i2string(_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE->len)),_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9017,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,qbs_add(qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD,i2string(_FUNC_IDEVARIABLEWATCHBOX_STRING_V->len)),_FUNC_IDEVARIABLEWATCHBOX_STRING_V)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9018,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_IDEVARIABLEWATCHBOX,_FUNC_IDEVARIABLEWATCHBOX_STRING_CMD); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9019,"ide_methods.bas");}while(r); +S_46149:; +if (((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISRETURNACTION== 2 ))|(-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISRETURNACTION== 3 )))||new_error){ +if(qbevent){evnt(26070,9021,"ide_methods.bas");if(r)goto S_46149;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,qbs_add(qbs_add(l2string(*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPINDEX),_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPARRAYINDEXES),_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPELEMENTOFFSET)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9023,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_I= 0 ; +if(!qbevent)break;evnt(26070,9024,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_I=func_instr(*_FUNC_IDEVARIABLEWATCHBOX_LONG_I+ 1 ,__STRING_WATCHPOINTLIST,l2string( -1 ),0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9025,"ide_methods.bas");}while(r); +S_46153:; +while((*_FUNC_IDEVARIABLEWATCHBOX_LONG_I)||new_error){ +if(qbevent){evnt(26070,9026,"ide_methods.bas");if(r)goto S_46153;} +S_46154:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(__STRING_WATCHPOINTLIST,*_FUNC_IDEVARIABLEWATCHBOX_LONG_I+ 8 ,_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP->len,0|1),_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP)))||new_error){ +if(qbevent){evnt(26070,9027,"ide_methods.bas");if(r)goto S_46154;} +do{ +goto dl_exit_5081; +if(!qbevent)break;evnt(26070,9027,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_I=func_instr(*_FUNC_IDEVARIABLEWATCHBOX_LONG_I+ 1 ,__STRING_WATCHPOINTLIST,l2string( -1 ),0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9028,"ide_methods.bas");}while(r); +dl_continue_5081:; +} +dl_exit_5081:; +S_46159:; +if ((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_I> 0 ))||new_error){ +if(qbevent){evnt(26070,9031,"ide_methods.bas");if(r)goto S_46159;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_J=string2l(func_mid(__STRING_WATCHPOINTLIST,*_FUNC_IDEVARIABLEWATCHBOX_LONG_I+ 4 , 4 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9033,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_WATCHPOINTLIST,qbs_add(qbs_left(__STRING_WATCHPOINTLIST,*_FUNC_IDEVARIABLEWATCHBOX_LONG_I- 1 ),func_mid(__STRING_WATCHPOINTLIST,*_FUNC_IDEVARIABLEWATCHBOX_LONG_I+*_FUNC_IDEVARIABLEWATCHBOX_LONG_J+ 8 ,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9034,"ide_methods.bas");}while(r); +} +} +S_46164:; +if ((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISRETURNACTION== 2 ))||new_error){ +if(qbevent){evnt(26070,9038,"ide_methods.bas");if(r)goto S_46164;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,qbs_add(qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,_FUNC_IDEVARIABLEWATCHBOX_STRING_V),i2string(_FUNC_IDEVARIABLEWATCHBOX_STRING_V->len))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9040,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_WATCHPOINTLIST,qbs_add(qbs_add(qbs_add(__STRING_WATCHPOINTLIST,l2string( -1 )),l2string(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP->len)),_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9041,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_RETURNACTION=*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISRETURNACTION; +if(!qbevent)break;evnt(26070,9044,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_RETURNACTION= -1 ; +if(!qbevent)break;evnt(26070,9046,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_SELECTVAR=*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y; +if(!qbevent)break;evnt(26070,9048,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,9049,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_RESULT=FUNC_IDEMESSAGEBOX(_FUNC_IDEVARIABLEWATCHBOX_STRING_DLGTITLE,qbs_new_txt_len("Variable is out of scope.",25),qbs_new_txt_len("#OK",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9051,"ide_methods.bas");}while(r); +do{ +sub__keyclear(NULL,0); +if(!qbevent)break;evnt(26070,9052,"ide_methods.bas");}while(r); +} +}else{ +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_RESULT=FUNC_IDEMESSAGEBOX(_FUNC_IDEVARIABLEWATCHBOX_STRING_DLGTITLE,qbs_new_txt_len("Select a variable first.",24),qbs_new_txt_len("#OK",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9055,"ide_methods.bas");}while(r); +do{ +sub__keyclear(NULL,0); +if(!qbevent)break;evnt(26070,9056,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS=*_FUNC_IDEVARIABLEWATCHBOX_LONG_FILTERBOX; +if(!qbevent)break;evnt(26070,9058,"ide_methods.bas");}while(r); +do{ +goto dl_continue_5039; +if(!qbevent)break;evnt(26070,9059,"ide_methods.bas");}while(r); +} +S_46185:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 27 )))|(((-(*__LONG_IDEDEBUGMODE== 0 ))&(-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS== 5 ))&(-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_INFO!= 0 ))))|(((-(*__LONG_IDEDEBUGMODE> 0 ))&(-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS== 7 ))&(-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_INFO!= 0 ))))))||new_error){ +if(qbevent){evnt(26070,9063,"ide_methods.bas");if(r)goto S_46185;} +LABEL_GENERATEVARIABLEWATCHLIST:; +if(qbevent){evnt(26070,9064,"ide_methods.bas");r=0;} +do{ +qbs_set(__STRING_VARIABLEWATCHLIST,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9065,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_BACKUPVARIABLEWATCHLIST,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9066,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_BACKUPTYPEDEFINITIONS,__STRING_TYPEDEFINITIONS); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9067,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_LONGESTVARNAME= 0 ; +if(!qbevent)break;evnt(26070,9068,"ide_methods.bas");}while(r); +do{ +*__LONG_NEXTVWATCHDATASLOT= 0 ; +if(!qbevent)break;evnt(26070,9069,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALVISIBLEVARIABLES= 0 ; +if(!qbevent)break;evnt(26070,9070,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALSELECTEDVARIABLES= 0 ; +if(!qbevent)break;evnt(26070,9071,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_MSG,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9072,"ide_methods.bas");}while(r); +S_46194:; +fornext_value5086= 1 ; +fornext_finalvalue5086=*__LONG_TOTALVARIABLESCREATED; +fornext_step5086= 1 ; +if (fornext_step5086<0) fornext_step_negative5086=1; else fornext_step_negative5086=0; +if (new_error) goto fornext_error5086; +goto fornext_entrylabel5086; +while(1){ +fornext_value5086=fornext_step5086+(*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y); +fornext_entrylabel5086: +*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y=fornext_value5086; +if (fornext_step_negative5086){ +if (fornext_value5086fornext_finalvalue5086) break; +} +fornext_error5086:; +if(qbevent){evnt(26070,9073,"ide_methods.bas");if(r)goto S_46194;} +S_46195:; +if ((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_SELECTVAR== -1 ))||new_error){ +if(qbevent){evnt(26070,9074,"ide_methods.bas");if(r)goto S_46195;} +S_46196:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEVARIABLEWATCHBOX_STRING_MSG,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,9075,"ide_methods.bas");if(r)goto S_46196;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_MSG,qbs_new_txt_len("Analyzing Variable List...",26)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9076,"ide_methods.bas");}while(r); +do{ +SUB_IDEPAR((void*)( ((char*)(_FUNC_IDEVARIABLEWATCHBOX_UDT_P)) + (0) ),&(pass5087= 60 ),&(pass5088= 1 ),_FUNC_IDEVARIABLEWATCHBOX_STRING_MSG); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9077,"ide_methods.bas");}while(r); +} +do{ +SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDEVARIABLEWATCHBOX_UDT_P)) + (0) )); +if(!qbevent)break;evnt(26070,9080,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,9081,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_C=*__LONG_TOTALVARIABLESCREATED; +if(!qbevent)break;evnt(26070,9082,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_N=*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y; +if(!qbevent)break;evnt(26070,9083,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_MAXPROGRESSWIDTH= 52 ; +if(!qbevent)break;evnt(26070,9085,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_PERCENTAGE=qbr(floor(*_FUNC_IDEVARIABLEWATCHBOX_LONG_N/ ((long double)(*_FUNC_IDEVARIABLEWATCHBOX_LONG_C))* 100 )); +if(!qbevent)break;evnt(26070,9086,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_PERCENTAGECHARS=qbr(floor(*_FUNC_IDEVARIABLEWATCHBOX_LONG_MAXPROGRESSWIDTH**_FUNC_IDEVARIABLEWATCHBOX_LONG_N/ ((long double)(*_FUNC_IDEVARIABLEWATCHBOX_LONG_C)))); +if(!qbevent)break;evnt(26070,9087,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_PERCENTAGEMSG,qbs_add(qbs_add(qbs_add(func_string(*_FUNC_IDEVARIABLEWATCHBOX_LONG_PERCENTAGECHARS, 219 ),func_string(*_FUNC_IDEVARIABLEWATCHBOX_LONG_MAXPROGRESSWIDTH-*_FUNC_IDEVARIABLEWATCHBOX_LONG_PERCENTAGECHARS, 176 )),qbs_str((int32)(*_FUNC_IDEVARIABLEWATCHBOX_LONG_PERCENTAGE))),qbs_new_txt_len("%",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9088,"ide_methods.bas");}while(r); +do{ +sub__printstring(*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_UDT_P)+(0))+((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_UDT_P)+(8))/ 2 )-(_FUNC_IDEVARIABLEWATCHBOX_STRING_PERCENTAGEMSG->len/ 2 ))+ 1 ,*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_UDT_P)+(4))+ 1 ,_FUNC_IDEVARIABLEWATCHBOX_STRING_PERCENTAGEMSG,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9089,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 1 , 0 ); +if(!qbevent)break;evnt(26070,9091,"ide_methods.bas");}while(r); +} +S_46211:; +if ((*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+12)))||new_error){ +if(qbevent){evnt(26070,9094,"ide_methods.bas");if(r)goto S_46211;} +do{ +goto fornext_continue_5085; +if(!qbevent)break;evnt(26070,9094,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALSELECTEDVARIABLES=*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALSELECTEDVARIABLES+ 1 ; +if(!qbevent)break;evnt(26070,9096,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_BACKUPVARIABLEWATCHLIST,qbs_add(__STRING_BACKUPVARIABLEWATCHLIST,l2string( -1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9097,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_BACKUPVARIABLEWATCHLIST,qbs_add(qbs_add(__STRING_BACKUPVARIABLEWATCHLIST,l2string((*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+40)))->len)),*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+40))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9098,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_BACKUPVARIABLEWATCHLIST,qbs_add(__STRING_BACKUPVARIABLEWATCHLIST,l2string(*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALSELECTEDVARIABLES))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9099,"ide_methods.bas");}while(r); +S_46218:; +while((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALSELECTEDVARIABLES>func_ubound(__ARRAY_UDT_BACKUPUSEDVARIABLELIST,1,1)))||new_error){ +if(qbevent){evnt(26070,9100,"ide_methods.bas");if(r)goto S_46218;} +do{ if (__ARRAY_UDT_BACKUPUSEDVARIABLELIST[2]&2){ error(10); @@ -154370,120 +154370,120 @@ while(tmp_long--){ *(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 104)=qbs_new(0,0); *(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 112)=qbs_new(0,0);} } -} -if(!qbevent)break;evnt(26070,9101,"ide_methods.bas");}while(r); -ww_continue_5090:; -} -ww_exit_5090:; -do{ -memcpy((((char*)__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALSELECTEDVARIABLES)-__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4],__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]))*120)+ 0),(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120)+ 0), 4); -memcpy((((char*)__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALSELECTEDVARIABLES)-__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4],__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]))*120)+ 4),(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120)+ 4), 4); -memcpy((((char*)__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALSELECTEDVARIABLES)-__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4],__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]))*120)+ 8),(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120)+ 8), 4); -memcpy((((char*)__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALSELECTEDVARIABLES)-__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4],__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]))*120)+ 12),(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120)+ 12), 4); -memcpy((((char*)__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALSELECTEDVARIABLES)-__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4],__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]))*120)+ 16),(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120)+ 16), 4); -memcpy((((char*)__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALSELECTEDVARIABLES)-__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4],__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]))*120)+ 20),(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120)+ 20), 4); -memcpy((((char*)__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALSELECTEDVARIABLES)-__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4],__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]))*120)+ 24),(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120)+ 24), 4); -memcpy((((char*)__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALSELECTEDVARIABLES)-__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4],__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]))*120)+ 28),(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120)+ 28), 1); -memcpy((((char*)__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALSELECTEDVARIABLES)-__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4],__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]))*120)+ 29),(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120)+ 29), 1); -memcpy((((char*)__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALSELECTEDVARIABLES)-__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4],__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]))*120)+ 30),(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120)+ 30), 1); -memcpy((((char*)__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALSELECTEDVARIABLES)-__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4],__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]))*120)+ 31),(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120)+ 31), 1); -qbs_set(*(qbs**)(((char*)__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALSELECTEDVARIABLES)-__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4],__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]))*120)+ 32), *(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120)+ 32)); -qbs_set(*(qbs**)(((char*)__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALSELECTEDVARIABLES)-__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4],__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]))*120)+ 40), *(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120)+ 40)); -qbs_set(*(qbs**)(((char*)__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALSELECTEDVARIABLES)-__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4],__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]))*120)+ 48), *(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120)+ 48)); -qbs_set(*(qbs**)(((char*)__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALSELECTEDVARIABLES)-__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4],__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]))*120)+ 56), *(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120)+ 56)); -qbs_set(*(qbs**)(((char*)__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALSELECTEDVARIABLES)-__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4],__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]))*120)+ 64), *(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120)+ 64)); -qbs_set(*(qbs**)(((char*)__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALSELECTEDVARIABLES)-__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4],__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]))*120)+ 72), *(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120)+ 72)); -qbs_set(*(qbs**)(((char*)__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALSELECTEDVARIABLES)-__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4],__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]))*120)+ 80), *(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120)+ 80)); -qbs_set(*(qbs**)(((char*)__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALSELECTEDVARIABLES)-__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4],__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]))*120)+ 88), *(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120)+ 88)); -qbs_set(*(qbs**)(((char*)__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALSELECTEDVARIABLES)-__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4],__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]))*120)+ 96), *(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120)+ 96)); -qbs_set(*(qbs**)(((char*)__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALSELECTEDVARIABLES)-__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4],__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]))*120)+ 104), *(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120)+ 104)); -qbs_set(*(qbs**)(((char*)__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALSELECTEDVARIABLES)-__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4],__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]))*120)+ 112), *(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120)+ 112)); -if(!qbevent)break;evnt(26070,9103,"ide_methods.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+112))),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9105,"ide_methods.bas");}while(r); -S_46223:; -if ((*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+29)))||new_error){ -if(qbevent){evnt(26070,9106,"ide_methods.bas");if(r)goto S_46223;} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISLEN=(*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+32)))->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9107,"ide_methods.bas");}while(r); -S_46225:; -if ((*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+30)))||new_error){ -if(qbevent){evnt(26070,9108,"ide_methods.bas");if(r)goto S_46225;} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISLEN=*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISLEN+(*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+72)))->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9109,"ide_methods.bas");}while(r); -} -S_46228:; -if ((qbs_cleanup(qbs_tmp_base,(*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+88)))->len))||new_error){ -if(qbevent){evnt(26070,9112,"ide_methods.bas");if(r)goto S_46228;} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISLEN=*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISLEN+string2l(qbs_left(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+88))), 4 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9113,"ide_methods.bas");}while(r); -} -S_46231:; -if ((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISLEN>*_FUNC_IDEVARIABLEWATCHBOX_LONG_LONGESTVARNAME))||new_error){ -if(qbevent){evnt(26070,9116,"ide_methods.bas");if(r)goto S_46231;} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_LONGESTVARNAME=*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISLEN; -if(!qbevent)break;evnt(26070,9117,"ide_methods.bas");}while(r); -S_46233:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARIABLEWATCHLIST,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,9118,"ide_methods.bas");if(r)goto S_46233;} -do{ -qbs_set(__STRING_VARIABLEWATCHLIST,func_space( 8 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9118,"ide_methods.bas");}while(r); -} -do{ -sub_mid(__STRING_VARIABLEWATCHLIST, 1 , 4 ,l2string(*_FUNC_IDEVARIABLEWATCHBOX_LONG_LONGESTVARNAME),1); -if(!qbevent)break;evnt(26070,9119,"ide_methods.bas");}while(r); -} -S_46238:; -if ((qbs_cleanup(qbs_tmp_base,(-(*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+30))!= 0 ))&(-((*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+88)))->len== 0 ))))||new_error){ -if(qbevent){evnt(26070,9122,"ide_methods.bas");if(r)goto S_46238;} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,FUNC_GETBYTES(qbs_new_txt_len("",0),&(pass5091= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9124,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,FUNC_EXPANDARRAY(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+80))),qbs_new_txt_len("",0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9125,"ide_methods.bas");}while(r); -S_46241:; -do{ -if(qbevent){evnt(26070,9126,"ide_methods.bas");if(r)goto S_46241;} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP2,FUNC_GETBYTES(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,&(pass5093= 4 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9127,"ide_methods.bas");}while(r); -S_46243:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP2->len!= 4 )))||new_error){ -if(qbevent){evnt(26070,9128,"ide_methods.bas");if(r)goto S_46243;} -do{ -goto dl_exit_5092; -if(!qbevent)break;evnt(26070,9128,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_LENGTH=string2l(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9129,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP2,qbs_add(l2string(*_FUNC_IDEVARIABLEWATCHBOX_LONG_LENGTH),FUNC_GETBYTES(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,_FUNC_IDEVARIABLEWATCHBOX_LONG_LENGTH))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9130,"ide_methods.bas");}while(r); -do{ -*__LONG_NEXTVWATCHDATASLOT=*__LONG_NEXTVWATCHDATASLOT+ 1 ; -if(!qbevent)break;evnt(26070,9131,"ide_methods.bas");}while(r); -S_46249:; -while((qbs_cleanup(qbs_tmp_base,-(*__LONG_NEXTVWATCHDATASLOT>func_ubound(__ARRAY_STRING_VWATCHRECEIVEDDATA,1,1))))||new_error){ -if(qbevent){evnt(26070,9132,"ide_methods.bas");if(r)goto S_46249;} -do{ +} +if(!qbevent)break;evnt(26070,9101,"ide_methods.bas");}while(r); +ww_continue_5090:; +} +ww_exit_5090:; +do{ +memcpy((((char*)__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALSELECTEDVARIABLES)-__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4],__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]))*120)+ 0),(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120)+ 0), 4); +memcpy((((char*)__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALSELECTEDVARIABLES)-__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4],__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]))*120)+ 4),(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120)+ 4), 4); +memcpy((((char*)__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALSELECTEDVARIABLES)-__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4],__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]))*120)+ 8),(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120)+ 8), 4); +memcpy((((char*)__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALSELECTEDVARIABLES)-__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4],__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]))*120)+ 12),(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120)+ 12), 4); +memcpy((((char*)__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALSELECTEDVARIABLES)-__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4],__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]))*120)+ 16),(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120)+ 16), 4); +memcpy((((char*)__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALSELECTEDVARIABLES)-__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4],__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]))*120)+ 20),(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120)+ 20), 4); +memcpy((((char*)__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALSELECTEDVARIABLES)-__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4],__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]))*120)+ 24),(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120)+ 24), 4); +memcpy((((char*)__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALSELECTEDVARIABLES)-__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4],__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]))*120)+ 28),(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120)+ 28), 1); +memcpy((((char*)__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALSELECTEDVARIABLES)-__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4],__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]))*120)+ 29),(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120)+ 29), 1); +memcpy((((char*)__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALSELECTEDVARIABLES)-__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4],__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]))*120)+ 30),(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120)+ 30), 1); +memcpy((((char*)__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALSELECTEDVARIABLES)-__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4],__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]))*120)+ 31),(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120)+ 31), 1); +qbs_set(*(qbs**)(((char*)__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALSELECTEDVARIABLES)-__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4],__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]))*120)+ 32), *(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120)+ 32)); +qbs_set(*(qbs**)(((char*)__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALSELECTEDVARIABLES)-__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4],__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]))*120)+ 40), *(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120)+ 40)); +qbs_set(*(qbs**)(((char*)__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALSELECTEDVARIABLES)-__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4],__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]))*120)+ 48), *(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120)+ 48)); +qbs_set(*(qbs**)(((char*)__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALSELECTEDVARIABLES)-__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4],__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]))*120)+ 56), *(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120)+ 56)); +qbs_set(*(qbs**)(((char*)__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALSELECTEDVARIABLES)-__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4],__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]))*120)+ 64), *(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120)+ 64)); +qbs_set(*(qbs**)(((char*)__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALSELECTEDVARIABLES)-__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4],__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]))*120)+ 72), *(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120)+ 72)); +qbs_set(*(qbs**)(((char*)__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALSELECTEDVARIABLES)-__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4],__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]))*120)+ 80), *(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120)+ 80)); +qbs_set(*(qbs**)(((char*)__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALSELECTEDVARIABLES)-__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4],__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]))*120)+ 88), *(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120)+ 88)); +qbs_set(*(qbs**)(((char*)__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALSELECTEDVARIABLES)-__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4],__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]))*120)+ 96), *(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120)+ 96)); +qbs_set(*(qbs**)(((char*)__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALSELECTEDVARIABLES)-__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4],__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]))*120)+ 104), *(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120)+ 104)); +qbs_set(*(qbs**)(((char*)__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALSELECTEDVARIABLES)-__ARRAY_UDT_BACKUPUSEDVARIABLELIST[4],__ARRAY_UDT_BACKUPUSEDVARIABLELIST[5]))*120)+ 112), *(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120)+ 112)); +if(!qbevent)break;evnt(26070,9103,"ide_methods.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+112))),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9105,"ide_methods.bas");}while(r); +S_46223:; +if ((*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+29)))||new_error){ +if(qbevent){evnt(26070,9106,"ide_methods.bas");if(r)goto S_46223;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISLEN=(*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+32)))->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9107,"ide_methods.bas");}while(r); +S_46225:; +if ((*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+30)))||new_error){ +if(qbevent){evnt(26070,9108,"ide_methods.bas");if(r)goto S_46225;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISLEN=*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISLEN+(*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+72)))->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9109,"ide_methods.bas");}while(r); +} +S_46228:; +if ((qbs_cleanup(qbs_tmp_base,(*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+88)))->len))||new_error){ +if(qbevent){evnt(26070,9112,"ide_methods.bas");if(r)goto S_46228;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISLEN=*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISLEN+string2l(qbs_left(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+88))), 4 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9113,"ide_methods.bas");}while(r); +} +S_46231:; +if ((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISLEN>*_FUNC_IDEVARIABLEWATCHBOX_LONG_LONGESTVARNAME))||new_error){ +if(qbevent){evnt(26070,9116,"ide_methods.bas");if(r)goto S_46231;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_LONGESTVARNAME=*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISLEN; +if(!qbevent)break;evnt(26070,9117,"ide_methods.bas");}while(r); +S_46233:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_VARIABLEWATCHLIST,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,9118,"ide_methods.bas");if(r)goto S_46233;} +do{ +qbs_set(__STRING_VARIABLEWATCHLIST,func_space( 8 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9118,"ide_methods.bas");}while(r); +} +do{ +sub_mid(__STRING_VARIABLEWATCHLIST, 1 , 4 ,l2string(*_FUNC_IDEVARIABLEWATCHBOX_LONG_LONGESTVARNAME),1); +if(!qbevent)break;evnt(26070,9119,"ide_methods.bas");}while(r); +} +S_46238:; +if ((qbs_cleanup(qbs_tmp_base,(-(*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+30))!= 0 ))&(-((*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+88)))->len== 0 ))))||new_error){ +if(qbevent){evnt(26070,9122,"ide_methods.bas");if(r)goto S_46238;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,FUNC_GETBYTES(qbs_new_txt_len("",0),&(pass5091= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9124,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,FUNC_EXPANDARRAY(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+80))),qbs_new_txt_len("",0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9125,"ide_methods.bas");}while(r); +S_46241:; +do{ +if(qbevent){evnt(26070,9126,"ide_methods.bas");if(r)goto S_46241;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP2,FUNC_GETBYTES(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,&(pass5093= 4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9127,"ide_methods.bas");}while(r); +S_46243:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP2->len!= 4 )))||new_error){ +if(qbevent){evnt(26070,9128,"ide_methods.bas");if(r)goto S_46243;} +do{ +goto dl_exit_5092; +if(!qbevent)break;evnt(26070,9128,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_LENGTH=string2l(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9129,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP2,qbs_add(l2string(*_FUNC_IDEVARIABLEWATCHBOX_LONG_LENGTH),FUNC_GETBYTES(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,_FUNC_IDEVARIABLEWATCHBOX_LONG_LENGTH))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9130,"ide_methods.bas");}while(r); +do{ +*__LONG_NEXTVWATCHDATASLOT=*__LONG_NEXTVWATCHDATASLOT+ 1 ; +if(!qbevent)break;evnt(26070,9131,"ide_methods.bas");}while(r); +S_46249:; +while((qbs_cleanup(qbs_tmp_base,-(*__LONG_NEXTVWATCHDATASLOT>func_ubound(__ARRAY_STRING_VWATCHRECEIVEDDATA,1,1))))||new_error){ +if(qbevent){evnt(26070,9132,"ide_methods.bas");if(r)goto S_46249;} +do{ if (__ARRAY_STRING_VWATCHRECEIVEDDATA[2]&2){ error(10); @@ -154526,99 +154526,99 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_VWATCHRECEIVEDDATA[0]))[tmp_long]=(u while(tmp_long--) ((uint64*)(__ARRAY_STRING_VWATCHRECEIVEDDATA[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -} -if(!qbevent)break;evnt(26070,9133,"ide_methods.bas");}while(r); -ww_continue_5095:; -} -ww_exit_5095:; -do{ -qbs_set(__STRING_VARIABLEWATCHLIST,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_VARIABLEWATCHLIST,l2string( -1 )),l2string(*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)),_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP2),l2string( 0 )),l2string( 0 )),l2string(*__LONG_NEXTVWATCHDATASLOT))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9135,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALVISIBLEVARIABLES=*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALVISIBLEVARIABLES+ 1 ; -if(!qbevent)break;evnt(26070,9136,"ide_methods.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+112))),qbs_add(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+112))),l2string(*__LONG_NEXTVWATCHDATASLOT))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9137,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*__LONG_NEXTVWATCHDATASLOT)-__ARRAY_STRING_VWATCHRECEIVEDDATA[4],__ARRAY_STRING_VWATCHRECEIVEDDATA[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_VWATCHRECEIVEDDATA[0]))[tmp_long])),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9138,"ide_methods.bas");}while(r); -dl_continue_5092:; -}while(1); -dl_exit_5092:; -S_46257:; -}else{ -if (qbs_cleanup(qbs_tmp_base,(-(*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+30))!= 0 ))&(-((*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+88)))->len> 0 )))){ -if(qbevent){evnt(26070,9140,"ide_methods.bas");if(r)goto S_46257;} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,FUNC_GETBYTES(qbs_new_txt_len("",0),&(pass5096= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9142,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,FUNC_EXPANDARRAY(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+80))),qbs_new_txt_len("",0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9143,"ide_methods.bas");}while(r); -S_46260:; -do{ -if(qbevent){evnt(26070,9144,"ide_methods.bas");if(r)goto S_46260;} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP2,FUNC_GETBYTES(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,&(pass5098= 4 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9145,"ide_methods.bas");}while(r); -S_46262:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP2->len!= 4 )))||new_error){ -if(qbevent){evnt(26070,9146,"ide_methods.bas");if(r)goto S_46262;} -do{ -goto dl_exit_5097; -if(!qbevent)break;evnt(26070,9146,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_LENGTH=string2l(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9147,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP2,qbs_add(l2string(*_FUNC_IDEVARIABLEWATCHBOX_LONG_LENGTH),FUNC_GETBYTES(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,_FUNC_IDEVARIABLEWATCHBOX_LONG_LENGTH))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9148,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_THISTEMPELEMENT,qbs_add(qbs_add(l2string( -1 ),l2string(*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)),_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9150,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_THISELEMENTLIST,func_mid(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+88))), 5 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9151,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_I= 0 ; -if(!qbevent)break;evnt(26070,9152,"ide_methods.bas");}while(r); -S_46270:; -do{ -if(qbevent){evnt(26070,9153,"ide_methods.bas");if(r)goto S_46270;} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_I=*_FUNC_IDEVARIABLEWATCHBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,9154,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP2,FUNC_GETELEMENT(_FUNC_IDEVARIABLEWATCHBOX_STRING_THISELEMENTLIST,_FUNC_IDEVARIABLEWATCHBOX_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9155,"ide_methods.bas");}while(r); -S_46273:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP2,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,9156,"ide_methods.bas");if(r)goto S_46273;} -do{ -goto dl_exit_5100; -if(!qbevent)break;evnt(26070,9156,"ide_methods.bas");}while(r); -} -do{ -*__LONG_NEXTVWATCHDATASLOT=*__LONG_NEXTVWATCHDATASLOT+ 1 ; -if(!qbevent)break;evnt(26070,9158,"ide_methods.bas");}while(r); -S_46277:; -while((qbs_cleanup(qbs_tmp_base,-(*__LONG_NEXTVWATCHDATASLOT>func_ubound(__ARRAY_STRING_VWATCHRECEIVEDDATA,1,1))))||new_error){ -if(qbevent){evnt(26070,9159,"ide_methods.bas");if(r)goto S_46277;} -do{ +} +if(!qbevent)break;evnt(26070,9133,"ide_methods.bas");}while(r); +ww_continue_5095:; +} +ww_exit_5095:; +do{ +qbs_set(__STRING_VARIABLEWATCHLIST,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_VARIABLEWATCHLIST,l2string( -1 )),l2string(*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)),_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP2),l2string( 0 )),l2string( 0 )),l2string(*__LONG_NEXTVWATCHDATASLOT))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9135,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALVISIBLEVARIABLES=*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALVISIBLEVARIABLES+ 1 ; +if(!qbevent)break;evnt(26070,9136,"ide_methods.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+112))),qbs_add(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+112))),l2string(*__LONG_NEXTVWATCHDATASLOT))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9137,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*__LONG_NEXTVWATCHDATASLOT)-__ARRAY_STRING_VWATCHRECEIVEDDATA[4],__ARRAY_STRING_VWATCHRECEIVEDDATA[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_VWATCHRECEIVEDDATA[0]))[tmp_long])),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9138,"ide_methods.bas");}while(r); +dl_continue_5092:; +}while(1); +dl_exit_5092:; +S_46257:; +}else{ +if (qbs_cleanup(qbs_tmp_base,(-(*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+30))!= 0 ))&(-((*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+88)))->len> 0 )))){ +if(qbevent){evnt(26070,9140,"ide_methods.bas");if(r)goto S_46257;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,FUNC_GETBYTES(qbs_new_txt_len("",0),&(pass5096= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9142,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,FUNC_EXPANDARRAY(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+80))),qbs_new_txt_len("",0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9143,"ide_methods.bas");}while(r); +S_46260:; +do{ +if(qbevent){evnt(26070,9144,"ide_methods.bas");if(r)goto S_46260;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP2,FUNC_GETBYTES(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,&(pass5098= 4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9145,"ide_methods.bas");}while(r); +S_46262:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP2->len!= 4 )))||new_error){ +if(qbevent){evnt(26070,9146,"ide_methods.bas");if(r)goto S_46262;} +do{ +goto dl_exit_5097; +if(!qbevent)break;evnt(26070,9146,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_LENGTH=string2l(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9147,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP2,qbs_add(l2string(*_FUNC_IDEVARIABLEWATCHBOX_LONG_LENGTH),FUNC_GETBYTES(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,_FUNC_IDEVARIABLEWATCHBOX_LONG_LENGTH))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9148,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_THISTEMPELEMENT,qbs_add(qbs_add(l2string( -1 ),l2string(*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)),_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9150,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_THISELEMENTLIST,func_mid(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+88))), 5 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9151,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_I= 0 ; +if(!qbevent)break;evnt(26070,9152,"ide_methods.bas");}while(r); +S_46270:; +do{ +if(qbevent){evnt(26070,9153,"ide_methods.bas");if(r)goto S_46270;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_I=*_FUNC_IDEVARIABLEWATCHBOX_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,9154,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP2,FUNC_GETELEMENT(_FUNC_IDEVARIABLEWATCHBOX_STRING_THISELEMENTLIST,_FUNC_IDEVARIABLEWATCHBOX_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9155,"ide_methods.bas");}while(r); +S_46273:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP2,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,9156,"ide_methods.bas");if(r)goto S_46273;} +do{ +goto dl_exit_5100; +if(!qbevent)break;evnt(26070,9156,"ide_methods.bas");}while(r); +} +do{ +*__LONG_NEXTVWATCHDATASLOT=*__LONG_NEXTVWATCHDATASLOT+ 1 ; +if(!qbevent)break;evnt(26070,9158,"ide_methods.bas");}while(r); +S_46277:; +while((qbs_cleanup(qbs_tmp_base,-(*__LONG_NEXTVWATCHDATASLOT>func_ubound(__ARRAY_STRING_VWATCHRECEIVEDDATA,1,1))))||new_error){ +if(qbevent){evnt(26070,9159,"ide_methods.bas");if(r)goto S_46277;} +do{ if (__ARRAY_STRING_VWATCHRECEIVEDDATA[2]&2){ error(10); @@ -154661,76 +154661,76 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_VWATCHRECEIVEDDATA[0]))[tmp_long]=(u while(tmp_long--) ((uint64*)(__ARRAY_STRING_VWATCHRECEIVEDDATA[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -} -if(!qbevent)break;evnt(26070,9160,"ide_methods.bas");}while(r); -ww_continue_5101:; -} -ww_exit_5101:; -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPELEMENTOFFSET=string2l(func_mid(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+104))),(*_FUNC_IDEVARIABLEWATCHBOX_LONG_I* 4 )-( 3 ), 4 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9162,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_VARIABLEWATCHLIST,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_VARIABLEWATCHLIST,_FUNC_IDEVARIABLEWATCHBOX_STRING_THISTEMPELEMENT),l2string(*_FUNC_IDEVARIABLEWATCHBOX_LONG_I)),l2string(*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPELEMENTOFFSET)),l2string(*__LONG_NEXTVWATCHDATASLOT))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9163,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALVISIBLEVARIABLES=*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALVISIBLEVARIABLES+ 1 ; -if(!qbevent)break;evnt(26070,9164,"ide_methods.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+112))),qbs_add(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+112))),l2string(*__LONG_NEXTVWATCHDATASLOT))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9165,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*__LONG_NEXTVWATCHDATASLOT)-__ARRAY_STRING_VWATCHRECEIVEDDATA[4],__ARRAY_STRING_VWATCHRECEIVEDDATA[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_VWATCHRECEIVEDDATA[0]))[tmp_long])),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9166,"ide_methods.bas");}while(r); -dl_continue_5100:; -}while(1); -dl_exit_5100:; -dl_continue_5097:; -}while(1); -dl_exit_5097:; -S_46287:; -}else{ -if (qbs_cleanup(qbs_tmp_base,(-(*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+30))== 0 ))&(-((*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+88)))->len> 0 )))){ -if(qbevent){evnt(26070,9169,"ide_methods.bas");if(r)goto S_46287;} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_THISTEMPELEMENT,qbs_add(qbs_add(l2string( -1 ),l2string(*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)),l2string( 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9171,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_THISELEMENTLIST,func_mid(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+88))), 5 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9172,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_I= 0 ; -if(!qbevent)break;evnt(26070,9173,"ide_methods.bas");}while(r); -S_46291:; -do{ -if(qbevent){evnt(26070,9174,"ide_methods.bas");if(r)goto S_46291;} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_I=*_FUNC_IDEVARIABLEWATCHBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,9175,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP2,FUNC_GETELEMENT(_FUNC_IDEVARIABLEWATCHBOX_STRING_THISELEMENTLIST,_FUNC_IDEVARIABLEWATCHBOX_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9176,"ide_methods.bas");}while(r); -S_46294:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP2,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,9177,"ide_methods.bas");if(r)goto S_46294;} -do{ -goto dl_exit_5102; -if(!qbevent)break;evnt(26070,9177,"ide_methods.bas");}while(r); -} -do{ -*__LONG_NEXTVWATCHDATASLOT=*__LONG_NEXTVWATCHDATASLOT+ 1 ; -if(!qbevent)break;evnt(26070,9179,"ide_methods.bas");}while(r); -S_46298:; -while((qbs_cleanup(qbs_tmp_base,-(*__LONG_NEXTVWATCHDATASLOT>func_ubound(__ARRAY_STRING_VWATCHRECEIVEDDATA,1,1))))||new_error){ -if(qbevent){evnt(26070,9180,"ide_methods.bas");if(r)goto S_46298;} -do{ +} +if(!qbevent)break;evnt(26070,9160,"ide_methods.bas");}while(r); +ww_continue_5101:; +} +ww_exit_5101:; +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPELEMENTOFFSET=string2l(func_mid(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+104))),(*_FUNC_IDEVARIABLEWATCHBOX_LONG_I* 4 )-( 3 ), 4 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9162,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_VARIABLEWATCHLIST,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_VARIABLEWATCHLIST,_FUNC_IDEVARIABLEWATCHBOX_STRING_THISTEMPELEMENT),l2string(*_FUNC_IDEVARIABLEWATCHBOX_LONG_I)),l2string(*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPELEMENTOFFSET)),l2string(*__LONG_NEXTVWATCHDATASLOT))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9163,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALVISIBLEVARIABLES=*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALVISIBLEVARIABLES+ 1 ; +if(!qbevent)break;evnt(26070,9164,"ide_methods.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+112))),qbs_add(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+112))),l2string(*__LONG_NEXTVWATCHDATASLOT))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9165,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*__LONG_NEXTVWATCHDATASLOT)-__ARRAY_STRING_VWATCHRECEIVEDDATA[4],__ARRAY_STRING_VWATCHRECEIVEDDATA[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_VWATCHRECEIVEDDATA[0]))[tmp_long])),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9166,"ide_methods.bas");}while(r); +dl_continue_5100:; +}while(1); +dl_exit_5100:; +dl_continue_5097:; +}while(1); +dl_exit_5097:; +S_46287:; +}else{ +if (qbs_cleanup(qbs_tmp_base,(-(*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+30))== 0 ))&(-((*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+88)))->len> 0 )))){ +if(qbevent){evnt(26070,9169,"ide_methods.bas");if(r)goto S_46287;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_THISTEMPELEMENT,qbs_add(qbs_add(l2string( -1 ),l2string(*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)),l2string( 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9171,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_THISELEMENTLIST,func_mid(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+88))), 5 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9172,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_I= 0 ; +if(!qbevent)break;evnt(26070,9173,"ide_methods.bas");}while(r); +S_46291:; +do{ +if(qbevent){evnt(26070,9174,"ide_methods.bas");if(r)goto S_46291;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_I=*_FUNC_IDEVARIABLEWATCHBOX_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,9175,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP2,FUNC_GETELEMENT(_FUNC_IDEVARIABLEWATCHBOX_STRING_THISELEMENTLIST,_FUNC_IDEVARIABLEWATCHBOX_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9176,"ide_methods.bas");}while(r); +S_46294:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP2,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,9177,"ide_methods.bas");if(r)goto S_46294;} +do{ +goto dl_exit_5102; +if(!qbevent)break;evnt(26070,9177,"ide_methods.bas");}while(r); +} +do{ +*__LONG_NEXTVWATCHDATASLOT=*__LONG_NEXTVWATCHDATASLOT+ 1 ; +if(!qbevent)break;evnt(26070,9179,"ide_methods.bas");}while(r); +S_46298:; +while((qbs_cleanup(qbs_tmp_base,-(*__LONG_NEXTVWATCHDATASLOT>func_ubound(__ARRAY_STRING_VWATCHRECEIVEDDATA,1,1))))||new_error){ +if(qbevent){evnt(26070,9180,"ide_methods.bas");if(r)goto S_46298;} +do{ if (__ARRAY_STRING_VWATCHRECEIVEDDATA[2]&2){ error(10); @@ -154773,45 +154773,45 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_VWATCHRECEIVEDDATA[0]))[tmp_long]=(u while(tmp_long--) ((uint64*)(__ARRAY_STRING_VWATCHRECEIVEDDATA[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -} -if(!qbevent)break;evnt(26070,9181,"ide_methods.bas");}while(r); -ww_continue_5103:; -} -ww_exit_5103:; -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPELEMENTOFFSET=string2l(func_mid(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+104))),(*_FUNC_IDEVARIABLEWATCHBOX_LONG_I* 4 )-( 3 ), 4 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9183,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_VARIABLEWATCHLIST,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_VARIABLEWATCHLIST,_FUNC_IDEVARIABLEWATCHBOX_STRING_THISTEMPELEMENT),l2string(*_FUNC_IDEVARIABLEWATCHBOX_LONG_I)),l2string(*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPELEMENTOFFSET)),l2string(*__LONG_NEXTVWATCHDATASLOT))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9184,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALVISIBLEVARIABLES=*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALVISIBLEVARIABLES+ 1 ; -if(!qbevent)break;evnt(26070,9185,"ide_methods.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+112))),qbs_add(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+112))),l2string(*__LONG_NEXTVWATCHDATASLOT))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9186,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*__LONG_NEXTVWATCHDATASLOT)-__ARRAY_STRING_VWATCHRECEIVEDDATA[4],__ARRAY_STRING_VWATCHRECEIVEDDATA[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_VWATCHRECEIVEDDATA[0]))[tmp_long])),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9187,"ide_methods.bas");}while(r); -dl_continue_5102:; -}while(1); -dl_exit_5102:; -S_46307:; -}else{ -if (qbs_cleanup(qbs_tmp_base,(-(*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+30))== 0 ))&(-((*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+88)))->len== 0 )))){ -if(qbevent){evnt(26070,9189,"ide_methods.bas");if(r)goto S_46307;} -do{ -*__LONG_NEXTVWATCHDATASLOT=*__LONG_NEXTVWATCHDATASLOT+ 1 ; -if(!qbevent)break;evnt(26070,9191,"ide_methods.bas");}while(r); -S_46309:; -while((qbs_cleanup(qbs_tmp_base,-(*__LONG_NEXTVWATCHDATASLOT>func_ubound(__ARRAY_STRING_VWATCHRECEIVEDDATA,1,1))))||new_error){ -if(qbevent){evnt(26070,9192,"ide_methods.bas");if(r)goto S_46309;} -do{ +} +if(!qbevent)break;evnt(26070,9181,"ide_methods.bas");}while(r); +ww_continue_5103:; +} +ww_exit_5103:; +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPELEMENTOFFSET=string2l(func_mid(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+104))),(*_FUNC_IDEVARIABLEWATCHBOX_LONG_I* 4 )-( 3 ), 4 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9183,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_VARIABLEWATCHLIST,qbs_add(qbs_add(qbs_add(qbs_add(__STRING_VARIABLEWATCHLIST,_FUNC_IDEVARIABLEWATCHBOX_STRING_THISTEMPELEMENT),l2string(*_FUNC_IDEVARIABLEWATCHBOX_LONG_I)),l2string(*_FUNC_IDEVARIABLEWATCHBOX_LONG_TEMPELEMENTOFFSET)),l2string(*__LONG_NEXTVWATCHDATASLOT))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9184,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALVISIBLEVARIABLES=*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALVISIBLEVARIABLES+ 1 ; +if(!qbevent)break;evnt(26070,9185,"ide_methods.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+112))),qbs_add(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+112))),l2string(*__LONG_NEXTVWATCHDATASLOT))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9186,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*__LONG_NEXTVWATCHDATASLOT)-__ARRAY_STRING_VWATCHRECEIVEDDATA[4],__ARRAY_STRING_VWATCHRECEIVEDDATA[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_VWATCHRECEIVEDDATA[0]))[tmp_long])),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9187,"ide_methods.bas");}while(r); +dl_continue_5102:; +}while(1); +dl_exit_5102:; +S_46307:; +}else{ +if (qbs_cleanup(qbs_tmp_base,(-(*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+30))== 0 ))&(-((*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+88)))->len== 0 )))){ +if(qbevent){evnt(26070,9189,"ide_methods.bas");if(r)goto S_46307;} +do{ +*__LONG_NEXTVWATCHDATASLOT=*__LONG_NEXTVWATCHDATASLOT+ 1 ; +if(!qbevent)break;evnt(26070,9191,"ide_methods.bas");}while(r); +S_46309:; +while((qbs_cleanup(qbs_tmp_base,-(*__LONG_NEXTVWATCHDATASLOT>func_ubound(__ARRAY_STRING_VWATCHRECEIVEDDATA,1,1))))||new_error){ +if(qbevent){evnt(26070,9192,"ide_methods.bas");if(r)goto S_46309;} +do{ if (__ARRAY_STRING_VWATCHRECEIVEDDATA[2]&2){ error(10); @@ -154854,1291 +154854,1291 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_VWATCHRECEIVEDDATA[0]))[tmp_long]=(u while(tmp_long--) ((uint64*)(__ARRAY_STRING_VWATCHRECEIVEDDATA[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -} -if(!qbevent)break;evnt(26070,9193,"ide_methods.bas");}while(r); -ww_continue_5104:; -} -ww_exit_5104:; -do{ -qbs_set(__STRING_VARIABLEWATCHLIST,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_VARIABLEWATCHLIST,l2string( -1 )),l2string(*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)),l2string( 0 )),l2string( 0 )),l2string( 0 )),l2string(*__LONG_NEXTVWATCHDATASLOT))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9195,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALVISIBLEVARIABLES=*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALVISIBLEVARIABLES+ 1 ; -if(!qbevent)break;evnt(26070,9196,"ide_methods.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+112))),l2string(*__LONG_NEXTVWATCHDATASLOT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9197,"ide_methods.bas");}while(r); -} -} -} -} -} -fornext_continue_5085:; -} -fornext_exit_5085:; -S_46318:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_VARIABLEWATCHLIST->len))||new_error){ -if(qbevent){evnt(26070,9201,"ide_methods.bas");if(r)goto S_46318;} -do{ -sub_mid(__STRING_VARIABLEWATCHLIST, 5 , 4 ,l2string(*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALVISIBLEVARIABLES),1); -if(!qbevent)break;evnt(26070,9201,"ide_methods.bas");}while(r); -} -do{ -SUB_CLEARMOUSE(); -if(!qbevent)break;evnt(26070,9202,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,9203,"ide_methods.bas");}while(r); -} -S_46324:; -if ((*__LONG_MCLICK&(-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS== 2 )))||new_error){ -if(qbevent){evnt(26070,9206,"ide_methods.bas");if(r)goto S_46324;} -S_46325:; -if (((-(((float)(FUNC_TIMEELAPSEDSINCE(_FUNC_IDEVARIABLEWATCHBOX_SINGLE_LASTCLICK)))<((float)( 0.3E+0 ))))&(-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_CLICKEDITEM==*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+64)))))||new_error){ -if(qbevent){evnt(26070,9207,"ide_methods.bas");if(r)goto S_46325;} -S_46326:; -if (((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_DOUBLECLICKTHRESHOLD> 0 ))&(-(*__LONG_MX>=(*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_UDT_P)+(0))+*_FUNC_IDEVARIABLEWATCHBOX_LONG_DOUBLECLICKTHRESHOLD)))&(-(*__LONG_IDEDEBUGMODE> 0 )))||new_error){ -if(qbevent){evnt(26070,9208,"ide_methods.bas");if(r)goto S_46326;} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS= 5 ; -if(!qbevent)break;evnt(26070,9209,"ide_methods.bas");}while(r); -do{ -goto LABEL_SENDVALUE; -if(!qbevent)break;evnt(26070,9210,"ide_methods.bas");}while(r); -S_46329:; -}else{ -if ((((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_DOUBLECLICKTHRESHOLD> 0 ))&(-(*__LONG_MX<(*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_UDT_P)+(0))+*_FUNC_IDEVARIABLEWATCHBOX_LONG_DOUBLECLICKTHRESHOLD- 1 )))&(-(*__LONG_IDEDEBUGMODE> 0 ))))|(-(*__LONG_IDEDEBUGMODE== 0 ))){ -if(qbevent){evnt(26070,9212,"ide_methods.bas");if(r)goto S_46329;} -do{ -goto LABEL_TOGGLEWATCH; -if(!qbevent)break;evnt(26070,9213,"ide_methods.bas");}while(r); -} -} -S_46332:; -}else{ -if (-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_CLICKEDITEM==*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+64)))){ -if(qbevent){evnt(26070,9215,"ide_methods.bas");if(r)goto S_46332;} -S_46333:; -if (((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_DOUBLECLICKTHRESHOLD> 0 ))&(-(*__LONG_MX==(*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_UDT_P)+(0))+*_FUNC_IDEVARIABLEWATCHBOX_LONG_DOUBLECLICKTHRESHOLD- 1 )))&(-(*__LONG_IDEDEBUGMODE> 0 )))||new_error){ -if(qbevent){evnt(26070,9216,"ide_methods.bas");if(r)goto S_46333;} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y=func_abs((int32)(*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+64)))); -if(!qbevent)break;evnt(26070,9217,"ide_methods.bas");}while(r); -S_46335:; -if ((qbs_cleanup(qbs_tmp_base,(-(func_instr(NULL,*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+48))),qbs_new_txt_len("STRING *",8),0)== 0 ))&(qbs_notequal(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+48))),qbs_new_txt_len("STRING",6)))))||new_error){ -if(qbevent){evnt(26070,9218,"ide_methods.bas");if(r)goto S_46335;} -do{ -*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+31))=*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+31))+ 1 ; -if(!qbevent)break;evnt(26070,9219,"ide_methods.bas");}while(r); -S_46337:; -if ((-(*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+31))> 3 ))||new_error){ -if(qbevent){evnt(26070,9220,"ide_methods.bas");if(r)goto S_46337;} -do{ -*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+31))= 0 ; -if(!qbevent)break;evnt(26070,9221,"ide_methods.bas");}while(r); -} -do{ -return_point[next_return_point++]=145; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_BUILDLIST; -RETURN_145:; -if(!qbevent)break;evnt(26070,9223,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDEVARIABLEWATCHBOX_STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9224,"ide_methods.bas");}while(r); -} -} -} -} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_SINGLE_LASTCLICK=func_timer(NULL,0); -if(!qbevent)break;evnt(26070,9228,"ide_methods.bas");}while(r); -S_46346:; -if ((-(*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+64))> 0 ))||new_error){ -if(qbevent){evnt(26070,9229,"ide_methods.bas");if(r)goto S_46346;} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_CLICKEDITEM=*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+64)); -if(!qbevent)break;evnt(26070,9229,"ide_methods.bas");}while(r); -} -do{ -goto dl_continue_5039; -if(!qbevent)break;evnt(26070,9230,"ide_methods.bas");}while(r); -} -S_46351:; -if ((qbs_cleanup(qbs_tmp_base,((qbs_equal(__STRING_K,func_chr( 13 )))&(-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS== 2 )))))||new_error){ -if(qbevent){evnt(26070,9233,"ide_methods.bas");if(r)goto S_46351;} -do{ -qbs_set(__STRING_K,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9234,"ide_methods.bas");}while(r); -LABEL_TOGGLEWATCH:; -if(qbevent){evnt(26070,9235,"ide_methods.bas");r=0;} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y=func_abs((int32)(*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+64)))); -if(!qbevent)break;evnt(26070,9236,"ide_methods.bas");}while(r); -S_46354:; -if (((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y>= 1 ))&(-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y<=*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALVISIBLEVARIABLES)))||new_error){ -if(qbevent){evnt(26070,9238,"ide_methods.bas");if(r)goto S_46354;} -do{ -*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+64))=*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y; -if(!qbevent)break;evnt(26070,9239,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_QUICKDLGUPDATE= -1 ; -if(!qbevent)break;evnt(26070,9240,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=146; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_DLGUPDATE; -RETURN_146:; -if(!qbevent)break;evnt(26070,9240,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y=*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+64)); -if(!qbevent)break;evnt(26070,9241,"ide_methods.bas");}while(r); -S_46359:; -if (((-(*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+29))!= 0 ))&*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+30)))||new_error){ -if(qbevent){evnt(26070,9242,"ide_methods.bas");if(r)goto S_46359;} -do{ -goto LABEL_SETARRAYRANGE; -if(!qbevent)break;evnt(26070,9243,"ide_methods.bas");}while(r); -} -do{ -*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+29))=~(*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+29))); -if(!qbevent)break;evnt(26070,9245,"ide_methods.bas");}while(r); -S_46363:; -if ((*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+29)))||new_error){ -if(qbevent){evnt(26070,9246,"ide_methods.bas");if(r)goto S_46363;} -S_46364:; -if ((*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+30)))||new_error){ -if(qbevent){evnt(26070,9247,"ide_methods.bas");if(r)goto S_46364;} -LABEL_SETARRAYRANGE:; -if(qbevent){evnt(26070,9248,"ide_methods.bas");r=0;} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9249,"ide_methods.bas");}while(r); -S_46366:; -if ((qbs_cleanup(qbs_tmp_base,(*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+80)))->len))||new_error){ -if(qbevent){evnt(26070,9250,"ide_methods.bas");if(r)goto S_46366;} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+72)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9251,"ide_methods.bas");}while(r); -} -LABEL_SETARRAYRANGE2:; -if(qbevent){evnt(26070,9253,"ide_methods.bas");r=0;} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_V,FUNC_IDEINPUTBOX(qbs_new_txt_len("Watch Array",11),qbs_add(qbs_new_txt_len("#Indexes",8),_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPPROMPT),_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,qbs_new_txt_len("01234567890,-; TOto",19),&(pass5106= 45 ),&(pass5107= 0 ),_FUNC_IDEVARIABLEWATCHBOX_LONG_OK)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9254,"ide_methods.bas");}while(r); -S_46370:; -if ((*_FUNC_IDEVARIABLEWATCHBOX_LONG_OK)||new_error){ -if(qbevent){evnt(26070,9255,"ide_methods.bas");if(r)goto S_46370;} -S_46371:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDEVARIABLEWATCHBOX_STRING_V->len> 0 )))||new_error){ -if(qbevent){evnt(26070,9256,"ide_methods.bas");if(r)goto S_46371;} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_V,qbs_ucase(_FUNC_IDEVARIABLEWATCHBOX_STRING_V)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9257,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_V,FUNC_STRREPLACE(_FUNC_IDEVARIABLEWATCHBOX_STRING_V,qbs_new_txt_len(" TO ",4),qbs_new_txt_len("-",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9258,"ide_methods.bas");}while(r); -S_46374:; -while((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_FUNC_IDEVARIABLEWATCHBOX_STRING_V, 1 ),qbs_new_txt_len(",",1))))||new_error){ -if(qbevent){evnt(26070,9259,"ide_methods.bas");if(r)goto S_46374;} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_V,qbs_left(_FUNC_IDEVARIABLEWATCHBOX_STRING_V,_FUNC_IDEVARIABLEWATCHBOX_STRING_V->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9259,"ide_methods.bas");}while(r); -ww_continue_5109:; -} -ww_exit_5109:; -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,FUNC_LINEFORMAT(_FUNC_IDEVARIABLEWATCHBOX_STRING_V)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9260,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_I=FUNC_COUNTELEMENTS(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9261,"ide_methods.bas");}while(r); -S_46379:; -if ((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_I!=func_abs((int16)(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120)))-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+516))))))||new_error){ -if(qbevent){evnt(26070,9262,"ide_methods.bas");if(r)goto S_46379;} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Error",5),qbs_add(qbs_add(qbs_new_txt_len("Array has",9),qbs_str((int16)(func_abs((int16)(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120)))-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+516))))))),qbs_new_txt_len(" dimension(s).",14)),qbs_new_txt_len("#OK",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9263,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,qbs__trim(_FUNC_IDEVARIABLEWATCHBOX_STRING_V)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9264,"ide_methods.bas");}while(r); -do{ -goto LABEL_SETARRAYRANGE2; -if(!qbevent)break;evnt(26070,9265,"ide_methods.bas");}while(r); -} -do{ -qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+80))),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9267,"ide_methods.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+72))),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9268,"ide_methods.bas");}while(r); -S_46386:; -while((*_FUNC_IDEVARIABLEWATCHBOX_LONG_I)||new_error){ -if(qbevent){evnt(26070,9269,"ide_methods.bas");if(r)goto S_46386;} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOUNDCOMMA=func_instr(NULL,_FUNC_IDEVARIABLEWATCHBOX_STRING_V,qbs_new_txt_len(",",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9270,"ide_methods.bas");}while(r); -S_46388:; -if ((*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOUNDCOMMA)||new_error){ -if(qbevent){evnt(26070,9271,"ide_methods.bas");if(r)goto S_46388;} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,qbs_left(_FUNC_IDEVARIABLEWATCHBOX_STRING_V,*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOUNDCOMMA- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9272,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_V,func_mid(_FUNC_IDEVARIABLEWATCHBOX_STRING_V,*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOUNDCOMMA+ 1 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9273,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,_FUNC_IDEVARIABLEWATCHBOX_STRING_V); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9275,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,FUNC_PARSERANGE(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9277,"ide_methods.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+80))),qbs_add(qbs_add(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+80))),l2string(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP->len)),_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9278,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,FUNC_FORMATRANGE(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9279,"ide_methods.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+72))),qbs_add(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+72))),_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9280,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_I=*_FUNC_IDEVARIABLEWATCHBOX_LONG_I- 1 ; -if(!qbevent)break;evnt(26070,9281,"ide_methods.bas");}while(r); -S_46399:; -if ((*_FUNC_IDEVARIABLEWATCHBOX_LONG_I)||new_error){ -if(qbevent){evnt(26070,9282,"ide_methods.bas");if(r)goto S_46399;} -do{ -qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+72))),qbs_add(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+72))),qbs_new_txt_len(",",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9282,"ide_methods.bas");}while(r); -} -ww_continue_5111:; -} -ww_exit_5111:; -}else{ -do{ -*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+29))= 0 ; -if(!qbevent)break;evnt(26070,9285,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=147; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_BUILDLIST; -RETURN_147:; -if(!qbevent)break;evnt(26070,9286,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDEVARIABLEWATCHBOX_STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9287,"ide_methods.bas");}while(r); -do{ -goto LABEL_UNWATCH; -if(!qbevent)break;evnt(26070,9288,"ide_methods.bas");}while(r); -} -do{ -return_point[next_return_point++]=148; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_BUILDLIST; -RETURN_148:; -if(!qbevent)break;evnt(26070,9290,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDEVARIABLEWATCHBOX_STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9291,"ide_methods.bas");}while(r); -}else{ -do{ -*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+29))= 0 ; -if(!qbevent)break;evnt(26070,9293,"ide_methods.bas");}while(r); -do{ -goto LABEL_UNWATCH; -if(!qbevent)break;evnt(26070,9294,"ide_methods.bas");}while(r); -} -} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+48)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9299,"ide_methods.bas");}while(r); -S_46417:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("STRING *",8),0)))||new_error){ -if(qbevent){evnt(26070,9300,"ide_methods.bas");if(r)goto S_46417;} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("STRING",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9300,"ide_methods.bas");}while(r); -} -S_46420:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("BIT *",5),0)))||new_error){ -if(qbevent){evnt(26070,9301,"ide_methods.bas");if(r)goto S_46420;} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("_BIT",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9301,"ide_methods.bas");}while(r); -} -S_46423:; -if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,__STRING_NATIVEDATATYPES,_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,0)== 0 )))||new_error){ -if(qbevent){evnt(26070,9302,"ide_methods.bas");if(r)goto S_46423;} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_ELEMENTINDEXES,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9304,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISUDT= 0 ; -if(!qbevent)break;evnt(26070,9305,"ide_methods.bas");}while(r); -do{ -*__LONG_E= 0 ; -if(!qbevent)break;evnt(26070,9306,"ide_methods.bas");}while(r); -S_46427:; -fornext_value5114= 1 ; -fornext_finalvalue5114=*__LONG_LASTTYPE; -fornext_step5114= 1 ; -if (fornext_step5114<0) fornext_step_negative5114=1; else fornext_step_negative5114=0; -if (new_error) goto fornext_error5114; -goto fornext_entrylabel5114; -while(1){ -fornext_value5114=fornext_step5114+(*_FUNC_IDEVARIABLEWATCHBOX_LONG_I); -fornext_entrylabel5114: -*_FUNC_IDEVARIABLEWATCHBOX_LONG_I=fornext_value5114; -if (fornext_step_negative5114){ -if (fornext_value5114fornext_finalvalue5114) break; -} -fornext_error5114:; -if(qbevent){evnt(26070,9307,"ide_methods.bas");if(r)goto S_46427;} -S_46428:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[(array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_I)-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]))*256],256,1)),_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE)))||new_error){ -if(qbevent){evnt(26070,9308,"ide_methods.bas");if(r)goto S_46428;} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISUDT=*_FUNC_IDEVARIABLEWATCHBOX_LONG_I; -if(!qbevent)break;evnt(26070,9308,"ide_methods.bas");}while(r); -do{ -goto fornext_exit_5113; -if(!qbevent)break;evnt(26070,9308,"ide_methods.bas");}while(r); -} -fornext_continue_5113:; -} -fornext_exit_5113:; -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_I= 0 ; -if(!qbevent)break;evnt(26070,9311,"ide_methods.bas");}while(r); -S_46434:; -do{ -if(qbevent){evnt(26070,9312,"ide_methods.bas");if(r)goto S_46434;} -S_46435:; -if ((-(*__LONG_E== 0 ))||new_error){ -if(qbevent){evnt(26070,9313,"ide_methods.bas");if(r)goto S_46435;} -do{ -*__LONG_E=((int32*)(__ARRAY_LONG_UDTXNEXT[0]))[array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISUDT)-__ARRAY_LONG_UDTXNEXT[4],__ARRAY_LONG_UDTXNEXT[5])]; -if(!qbevent)break;evnt(26070,9313,"ide_methods.bas");}while(r); -}else{ -do{ -*__LONG_E=((int32*)(__ARRAY_LONG_UDTENEXT[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5])]; -if(!qbevent)break;evnt(26070,9313,"ide_methods.bas");}while(r); -} -S_46440:; -if ((-(*__LONG_E== 0 ))||new_error){ -if(qbevent){evnt(26070,9314,"ide_methods.bas");if(r)goto S_46440;} -do{ -goto dl_exit_5115; -if(!qbevent)break;evnt(26070,9314,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_ELEMENTINDEXES,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_ELEMENTINDEXES,l2string(*__LONG_E))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9315,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_I=*_FUNC_IDEVARIABLEWATCHBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,9316,"ide_methods.bas");}while(r); -dl_continue_5115:; -}while(1); -dl_exit_5115:; -do{ -sub_pcopy( 0 , 4 ); -if(!qbevent)break;evnt(26070,9318,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_V,FUNC_IDEELEMENTWATCHBOX(qbs_add(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+32))),qbs_new_txt_len(".",1)),_FUNC_IDEVARIABLEWATCHBOX_STRING_ELEMENTINDEXES,&(pass5116= 0 ),&(pass5117= 0 ),_FUNC_IDEVARIABLEWATCHBOX_LONG_OK)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9319,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 2 , 0 ); -if(!qbevent)break;evnt(26070,9320,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 2 , 1 ); -if(!qbevent)break;evnt(26070,9321,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,9322,"ide_methods.bas");}while(r); -S_46451:; -if ((*_FUNC_IDEVARIABLEWATCHBOX_LONG_OK)||new_error){ -if(qbevent){evnt(26070,9323,"ide_methods.bas");if(r)goto S_46451;} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_LONGESTELEMENTNAME= 0 ; -if(!qbevent)break;evnt(26070,9324,"ide_methods.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+88))),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9325,"ide_methods.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9326,"ide_methods.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+104))),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9327,"ide_methods.bas");}while(r); -do{ -SUB_GETID((int32*)(void*)( ((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])) + ((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120) )); -if(!qbevent)break;evnt(26070,9328,"ide_methods.bas");}while(r); -S_46457:; -if ((-(*(int32*)(((char*)__UDT_ID)+(536))== 0 ))||new_error){ -if(qbevent){evnt(26070,9329,"ide_methods.bas");if(r)goto S_46457;} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP=*(int32*)(((char*)__UDT_ID)+(512))& 511 ; -if(!qbevent)break;evnt(26070,9330,"ide_methods.bas");}while(r); -S_46459:; -if ((*(int32*)(((char*)__UDT_ID)+(512))&*__LONG_ISINCONVENTIONALMEMORY)||new_error){ -if(qbevent){evnt(26070,9331,"ide_methods.bas");if(r)goto S_46459;} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP=*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP-*__LONG_ISINCONVENTIONALMEMORY; -if(!qbevent)break;evnt(26070,9332,"ide_methods.bas");}while(r); -} -do{ -*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+24))=((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])]; -if(!qbevent)break;evnt(26070,9335,"ide_methods.bas");}while(r); -S_46463:; -if ((((int16*)(__ARRAY_INTEGER_UDTXBYTEALIGN[0]))[array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP)-__ARRAY_INTEGER_UDTXBYTEALIGN[4],__ARRAY_INTEGER_UDTXBYTEALIGN[5])])||new_error){ -if(qbevent){evnt(26070,9336,"ide_methods.bas");if(r)goto S_46463;} -S_46464:; -if ((*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+24))% 8 )||new_error){ -if(qbevent){evnt(26070,9337,"ide_methods.bas");if(r)goto S_46464;} -do{ -*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+24))=*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+24))+( 8 -(*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+24))% 8 )); -if(!qbevent)break;evnt(26070,9337,"ide_methods.bas");}while(r); -} -do{ -*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+24))=*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+24))/ 8 ; -if(!qbevent)break;evnt(26070,9338,"ide_methods.bas");}while(r); -} -}else{ -do{ -*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+24))= 0 ; -if(!qbevent)break;evnt(26070,9341,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,_FUNC_IDEVARIABLEWATCHBOX_STRING_V); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9344,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_I= 0 ; -if(!qbevent)break;evnt(26070,9345,"ide_methods.bas");}while(r); -S_46474:; -do{ -if(qbevent){evnt(26070,9346,"ide_methods.bas");if(r)goto S_46474;} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_I=*_FUNC_IDEVARIABLEWATCHBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,9347,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_V,FUNC_GETELEMENT(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,_FUNC_IDEVARIABLEWATCHBOX_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9348,"ide_methods.bas");}while(r); -S_46477:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDEVARIABLEWATCHBOX_STRING_V->len== 0 )))||new_error){ -if(qbevent){evnt(26070,9349,"ide_methods.bas");if(r)goto S_46477;} -do{ -goto dl_exit_5118; -if(!qbevent)break;evnt(26070,9349,"ide_methods.bas");}while(r); -} -S_46480:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDEVARIABLEWATCHBOX_STRING_V->len>*_FUNC_IDEVARIABLEWATCHBOX_LONG_LONGESTELEMENTNAME)))||new_error){ -if(qbevent){evnt(26070,9352,"ide_methods.bas");if(r)goto S_46480;} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_LONGESTELEMENTNAME=_FUNC_IDEVARIABLEWATCHBOX_STRING_V->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9352,"ide_methods.bas");}while(r); -} -S_46483:; -if ((qbs_cleanup(qbs_tmp_base,-((*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+88)))->len== 0 )))||new_error){ -if(qbevent){evnt(26070,9353,"ide_methods.bas");if(r)goto S_46483;} -do{ -qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+88))),l2string(*_FUNC_IDEVARIABLEWATCHBOX_LONG_LONGESTELEMENTNAME)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9354,"ide_methods.bas");}while(r); -}else{ -do{ -sub_mid(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+88))), 1 , 4 ,l2string(*_FUNC_IDEVARIABLEWATCHBOX_LONG_LONGESTELEMENTNAME),1); -if(!qbevent)break;evnt(26070,9356,"ide_methods.bas");}while(r); -} -do{ -qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+88))),qbs_add(qbs_add(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+88))),_FUNC_IDEVARIABLEWATCHBOX_STRING_V),__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9358,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_V,FUNC_LINEFORMAT(qbs_ucase(_FUNC_IDEVARIABLEWATCHBOX_STRING_V))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9359,"ide_methods.bas");}while(r); -do{ -*__LONG_ERROR_HAPPENED= 0 ; -if(!qbevent)break;evnt(26070,9360,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_RESULT,FUNC_UDTREFERENCE(qbs_new_txt_len("",0),_FUNC_IDEVARIABLEWATCHBOX_STRING_V,_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9361,"ide_methods.bas");}while(r); -S_46492:; -if ((*__LONG_ERROR_HAPPENED)||new_error){ -if(qbevent){evnt(26070,9362,"ide_methods.bas");if(r)goto S_46492;} -do{ -*__LONG_ERROR_HAPPENED= 0 ; -if(!qbevent)break;evnt(26070,9364,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Error",5),__STRING_ERROR_MESSAGE,qbs_new_txt_len("#OK",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9365,"ide_methods.bas");}while(r); -do{ -*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+29))= 0 ; -if(!qbevent)break;evnt(26070,9366,"ide_methods.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+88))),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9367,"ide_methods.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9368,"ide_methods.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+104))),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9369,"ide_methods.bas");}while(r); -do{ -goto LABEL_UNWATCH; -if(!qbevent)break;evnt(26070,9370,"ide_methods.bas");}while(r); -}else{ -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP=*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP-*__LONG_ISUDT; -if(!qbevent)break;evnt(26070,9372,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP=*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP-*__LONG_ISREFERENCE; -if(!qbevent)break;evnt(26070,9373,"ide_methods.bas");}while(r); -S_46503:; -if ((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP&*__LONG_ISINCONVENTIONALMEMORY)||new_error){ -if(qbevent){evnt(26070,9374,"ide_methods.bas");if(r)goto S_46503;} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP=*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP-*__LONG_ISINCONVENTIONALMEMORY; -if(!qbevent)break;evnt(26070,9374,"ide_methods.bas");}while(r); -} -S_46506:; -if(qbevent){evnt(26070,9375,"ide_methods.bas");if(r)goto S_46506;} -S_46507:; -if (((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP==(*__LONG_BYTETYPE)))||new_error){ -if(qbevent){evnt(26070,9376,"ide_methods.bas");if(r)goto S_46507;} -do{ -qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_add(qbs_add(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_new_txt_len("_BYTE",5)),__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9377,"ide_methods.bas");}while(r); -sc_ec_339_end:; -goto sc_5122_end; -} -S_46509:; -if (((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP==(*__LONG_UBYTETYPE)))||new_error){ -if(qbevent){evnt(26070,9378,"ide_methods.bas");if(r)goto S_46509;} -do{ -qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_add(qbs_add(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_new_txt_len("_UNSIGNED _BYTE",15)),__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9379,"ide_methods.bas");}while(r); -sc_ec_340_end:; -goto sc_5122_end; -} -S_46511:; -if (((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP==(*__LONG_INTEGERTYPE)))||new_error){ -if(qbevent){evnt(26070,9380,"ide_methods.bas");if(r)goto S_46511;} -do{ -qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_add(qbs_add(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_new_txt_len("INTEGER",7)),__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9381,"ide_methods.bas");}while(r); -sc_ec_341_end:; -goto sc_5122_end; -} -S_46513:; -if (((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP==(*__LONG_UINTEGERTYPE)))||new_error){ -if(qbevent){evnt(26070,9382,"ide_methods.bas");if(r)goto S_46513;} -do{ -qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_add(qbs_add(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_new_txt_len("_UNSIGNED INTEGER",17)),__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9383,"ide_methods.bas");}while(r); -sc_ec_342_end:; -goto sc_5122_end; -} -S_46515:; -if (((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP==(*__LONG_LONGTYPE)))||new_error){ -if(qbevent){evnt(26070,9384,"ide_methods.bas");if(r)goto S_46515;} -do{ -qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_add(qbs_add(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_new_txt_len("LONG",4)),__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9385,"ide_methods.bas");}while(r); -sc_ec_343_end:; -goto sc_5122_end; -} -S_46517:; -if (((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP==(*__LONG_ULONGTYPE)))||new_error){ -if(qbevent){evnt(26070,9386,"ide_methods.bas");if(r)goto S_46517;} -do{ -qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_add(qbs_add(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_new_txt_len("_UNSIGNED LONG",14)),__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9387,"ide_methods.bas");}while(r); -sc_ec_344_end:; -goto sc_5122_end; -} -S_46519:; -if (((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP==(*__LONG_INTEGER64TYPE)))||new_error){ -if(qbevent){evnt(26070,9388,"ide_methods.bas");if(r)goto S_46519;} -do{ -qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_add(qbs_add(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_new_txt_len("_INTEGER64",10)),__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9389,"ide_methods.bas");}while(r); -sc_ec_345_end:; -goto sc_5122_end; -} -S_46521:; -if (((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP==(*__LONG_UINTEGER64TYPE)))||new_error){ -if(qbevent){evnt(26070,9390,"ide_methods.bas");if(r)goto S_46521;} -do{ -qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_add(qbs_add(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_new_txt_len("_UNSIGNED _INTEGER64",20)),__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9391,"ide_methods.bas");}while(r); -sc_ec_346_end:; -goto sc_5122_end; -} -S_46523:; -if (((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP==(*__LONG_SINGLETYPE)))||new_error){ -if(qbevent){evnt(26070,9392,"ide_methods.bas");if(r)goto S_46523;} -do{ -qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_add(qbs_add(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_new_txt_len("SINGLE",6)),__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9393,"ide_methods.bas");}while(r); -sc_ec_347_end:; -goto sc_5122_end; -} -S_46525:; -if (((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP==(*__LONG_DOUBLETYPE)))||new_error){ -if(qbevent){evnt(26070,9394,"ide_methods.bas");if(r)goto S_46525;} -do{ -qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_add(qbs_add(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_new_txt_len("DOUBLE",6)),__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9395,"ide_methods.bas");}while(r); -sc_ec_348_end:; -goto sc_5122_end; -} -S_46527:; -if (((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP==(*__LONG_FLOATTYPE)))||new_error){ -if(qbevent){evnt(26070,9396,"ide_methods.bas");if(r)goto S_46527;} -do{ -qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_add(qbs_add(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_new_txt_len("_FLOAT",6)),__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9397,"ide_methods.bas");}while(r); -sc_ec_349_end:; -goto sc_5122_end; -} -S_46529:; -if (((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP==(*__LONG_OFFSETTYPE)))||new_error){ -if(qbevent){evnt(26070,9398,"ide_methods.bas");if(r)goto S_46529;} -do{ -qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_add(qbs_add(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_new_txt_len("_OFFSET",7)),__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9399,"ide_methods.bas");}while(r); -sc_ec_350_end:; -goto sc_5122_end; -} -S_46531:; -if (((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP==(*__LONG_UOFFSETTYPE)))||new_error){ -if(qbevent){evnt(26070,9400,"ide_methods.bas");if(r)goto S_46531;} -do{ -qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_add(qbs_add(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_new_txt_len("_UNSIGNED _OFFSET",17)),__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9401,"ide_methods.bas");}while(r); -sc_ec_351_end:; -goto sc_5122_end; -} -S_46534:; -if ((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP&*__LONG_ISSTRING)||new_error){ -if(qbevent){evnt(26070,9403,"ide_methods.bas");if(r)goto S_46534;} -S_46535:; -if ((-((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ -if(qbevent){evnt(26070,9404,"ide_methods.bas");if(r)goto S_46535;} -do{ -qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_add(qbs_add(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_new_txt_len("STRING",6)),__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9405,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_add(qbs_add(qbs_add(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_new_txt_len("STRING *",8)),qbs_str((int32)(((int32*)(__ARRAY_LONG_UDTETYPESIZE[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTETYPESIZE[4],__ARRAY_LONG_UDTETYPESIZE[5])]))),__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9408,"ide_methods.bas");}while(r); -} -}else{ -do{ -*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+29))= 0 ; -if(!qbevent)break;evnt(26070,9412,"ide_methods.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+88))),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9413,"ide_methods.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9414,"ide_methods.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+104))),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9415,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Error",5),qbs_new_txt_len("Cannot add full UDT to Watch List",33),qbs_new_txt_len("#OK",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9416,"ide_methods.bas");}while(r); -do{ -goto LABEL_UNWATCH; -if(!qbevent)break;evnt(26070,9417,"ide_methods.bas");}while(r); -} -sc_5122_end:; -do{ -qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+104))),qbs_add(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+104))),l2string(qbr(func_val(func_mid(_FUNC_IDEVARIABLEWATCHBOX_STRING_RESULT,func__instrrev(NULL,_FUNC_IDEVARIABLEWATCHBOX_STRING_RESULT,__STRING1_SP3,0)+ 1 ,NULL,0)))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9420,"ide_methods.bas");}while(r); -} -dl_continue_5118:; -}while(1); -dl_exit_5118:; -do{ -qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+88))),qbs_left(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+88))),(*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+88)))->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9425,"ide_methods.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_left(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),(*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96)))->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9426,"ide_methods.bas");}while(r); -}else{ -do{ -*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+29))= 0 ; -if(!qbevent)break;evnt(26070,9428,"ide_methods.bas");}while(r); -do{ -goto LABEL_UNWATCH; -if(!qbevent)break;evnt(26070,9429,"ide_methods.bas");}while(r); -} -} -do{ -tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ -tmp_fileno=*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+8)); if (!new_error){ -tmp_long=*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARIABLENAMECOLOR; if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(26070,9433,"ide_methods.bas");}while(r); -do{ -tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ -tmp_fileno=*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+12)); if (!new_error){ -tmp_long=*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYPECOLUMNCOLOR; if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(26070,9434,"ide_methods.bas");}while(r); -do{ -tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ -tmp_fileno=*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+4)); if (!new_error){ -tmp_long=*_FUNC_IDEVARIABLEWATCHBOX_LONG_SELECTEDBG; if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(26070,9435,"ide_methods.bas");}while(r); -do{ -tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ -tmp_fileno=*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+16)); if (!new_error){ -tmp_long= 43 ; if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(26070,9436,"ide_methods.bas");}while(r); -}else{ -LABEL_UNWATCH:; -if(qbevent){evnt(26070,9438,"ide_methods.bas");r=0;} -do{ -tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ -tmp_fileno=*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+8)); if (!new_error){ -tmp_long= 16 ; if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(26070,9439,"ide_methods.bas");}while(r); -do{ -tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ -tmp_fileno=*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+12)); if (!new_error){ -tmp_long= 2 ; if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(26070,9440,"ide_methods.bas");}while(r); -do{ -tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ -tmp_fileno=*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+4)); if (!new_error){ -tmp_long= 17 ; if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(26070,9441,"ide_methods.bas");}while(r); -do{ -tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ -tmp_fileno=*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+16)); if (!new_error){ -tmp_long= 32 ; if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(26070,9442,"ide_methods.bas");}while(r); -} -} -do{ -goto dl_continue_5039; -if(!qbevent)break;evnt(26070,9446,"ide_methods.bas");}while(r); -} -S_46572:; -if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS== 2 ))&(((qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("C",1)))&(-(*__LONG_KCTRL!= 0 ))))))||new_error){ -if(qbevent){evnt(26070,9449,"ide_methods.bas");if(r)goto S_46572;} -do{ -return_point[next_return_point++]=149; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_COPYLIST; -RETURN_149:; -if(!qbevent)break;evnt(26070,9450,"ide_methods.bas");}while(r); -do{ -goto dl_continue_5039; -if(!qbevent)break;evnt(26070,9451,"ide_methods.bas");}while(r); -} -S_46576:; -if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS==*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX))&(((qbs_greaterorequal(__STRING_K,qbs_new_txt_len(" ",1)))&(qbs_lessorequal(__STRING_K,func_chr( 126 )))))))||new_error){ -if(qbevent){evnt(26070,9454,"ide_methods.bas");if(r)goto S_46576;} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS=*_FUNC_IDEVARIABLEWATCHBOX_LONG_FILTERBOX; -if(!qbevent)break;evnt(26070,9455,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_PREVFOCUS=*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS; -if(!qbevent)break;evnt(26070,9456,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),__STRING_K); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9457,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; -if(!qbevent)break;evnt(26070,9458,"ide_methods.bas");}while(r); -do{ -*(int8*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+76))= 0 ; -if(!qbevent)break;evnt(26070,9459,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_SEARCHTERM,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9460,"ide_methods.bas");}while(r); -do{ -goto dl_continue_5039; -if(!qbevent)break;evnt(26070,9461,"ide_methods.bas");}while(r); -} -S_46585:; -if (((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS==*_FUNC_IDEVARIABLEWATCHBOX_LONG_FILTERBOX))&(((-(*__LONG_KB== 18432 ))|(-(*__LONG_KB== 20480 )))))||new_error){ -if(qbevent){evnt(26070,9464,"ide_methods.bas");if(r)goto S_46585;} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS=*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX; -if(!qbevent)break;evnt(26070,9465,"ide_methods.bas");}while(r); -do{ -goto dl_continue_5039; -if(!qbevent)break;evnt(26070,9466,"ide_methods.bas");}while(r); -} -S_46589:; -if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS==*_FUNC_IDEVARIABLEWATCHBOX_LONG_FILTERBOX))&(qbs_notequal(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_FILTERBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])),_FUNC_IDEVARIABLEWATCHBOX_STRING_SEARCHTERM))))||new_error){ -if(qbevent){evnt(26070,9469,"ide_methods.bas");if(r)goto S_46589;} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_FILTER,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_FILTERBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9470,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_SEARCHTERM,qbs_ucase(_FUNC_IDEVARIABLEWATCHBOX_STRING_FILTER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9471,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=150; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_BUILDLIST; -RETURN_150:; -if(!qbevent)break;evnt(26070,9473,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDEVARIABLEWATCHBOX_STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9474,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+64))= 0 ; -if(!qbevent)break;evnt(26070,9475,"ide_methods.bas");}while(r); -S_46595:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDEVARIABLEWATCHBOX_STRING_SEARCHTERM->len))||new_error){ -if(qbevent){evnt(26070,9476,"ide_methods.bas");if(r)goto S_46595;} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,qbs_new_txt_len(", filtered",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9476,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9476,"ide_methods.bas");}while(r); -} -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_UDT_P)+(16)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Add Watch - Variable List (",27),qbs_ltrim(qbs_str((int32)(*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALVISIBLEVARIABLES)))),_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9477,"ide_methods.bas");}while(r); -} -LABEL_DLGLOOP:; -if(qbevent){evnt(26070,9480,"ide_methods.bas");r=0;} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_MOUSEDOWN= 0 ; -if(!qbevent)break;evnt(26070,9482,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_MOUSEUP= 0 ; -if(!qbevent)break;evnt(26070,9483,"ide_methods.bas");}while(r); -dl_continue_5039:; -}while(1); -dl_exit_5039:; -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_IDEVARIABLEWATCHBOX,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9486,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,9487,"ide_methods.bas");}while(r); -LABEL_COPYLIST:; -if(qbevent){evnt(26070,9489,"ide_methods.bas");r=0;} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9490,"ide_methods.bas");}while(r); -S_46608:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_IDEPROGNAME,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,9491,"ide_methods.bas");if(r)goto S_46608;} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_PROPOSEDTITLE,FUNC_FINDPROPOSEDTITLE()); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9492,"ide_methods.bas");}while(r); -S_46610:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEVARIABLEWATCHBOX_STRING_PROPOSEDTITLE,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,9493,"ide_methods.bas");if(r)goto S_46610;} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("QB64 - Variable List Report: untitled",37),__STRING_TEMPFOLDERINDEXSTR),qbs_new_txt_len(".bas",4)),func_chr( 10 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9494,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("QB64 - Variable List Report: ",29),_FUNC_IDEVARIABLEWATCHBOX_STRING_PROPOSEDTITLE),qbs_new_txt_len(".bas",4)),func_chr( 10 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9496,"ide_methods.bas");}while(r); -} -}else{ -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,qbs_add(qbs_add(qbs_new_txt_len("QB64 - Variable List Report: ",29),__STRING_IDEPROGNAME),func_chr( 10 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9499,"ide_methods.bas");}while(r); -} -S_46618:; -fornext_value5126= 1 ; -fornext_finalvalue5126=*__LONG_TOTALVARIABLESCREATED; -fornext_step5126= 1 ; -if (fornext_step5126<0) fornext_step_negative5126=1; else fornext_step_negative5126=0; -if (new_error) goto fornext_error5126; -goto fornext_entrylabel5126; -while(1){ -fornext_value5126=fornext_step5126+(*_FUNC_IDEVARIABLEWATCHBOX_LONG_X); -fornext_entrylabel5126: -*_FUNC_IDEVARIABLEWATCHBOX_LONG_X=fornext_value5126; -if (fornext_step_negative5126){ -if (fornext_value5126fornext_finalvalue5126) break; -} -fornext_error5126:; -if(qbevent){evnt(26070,9502,"ide_methods.bas");if(r)goto S_46618;} -S_46619:; -if ((*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+12)))||new_error){ -if(qbevent){evnt(26070,9503,"ide_methods.bas");if(r)goto S_46619;} -do{ -goto fornext_continue_5125; -if(!qbevent)break;evnt(26070,9503,"ide_methods.bas");}while(r); -} -S_46622:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDEVARIABLEWATCHBOX_STRING_SEARCHTERM->len))||new_error){ -if(qbevent){evnt(26070,9505,"ide_methods.bas");if(r)goto S_46622;} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_THISSCOPE,*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+64)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9506,"ide_methods.bas");}while(r); -S_46624:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEVARIABLEWATCHBOX_STRING_THISSCOPE,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,9507,"ide_methods.bas");if(r)goto S_46624;} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_THISSCOPE,_FUNC_IDEVARIABLEWATCHBOX_STRING_MAINMODULE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9507,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_ITEM,qbs_add(qbs_add(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+32))),*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+48)))),_FUNC_IDEVARIABLEWATCHBOX_STRING_THISSCOPE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9508,"ide_methods.bas");}while(r); -S_46628:; -if ((qbs_cleanup(qbs_tmp_base,-(FUNC_MULTISEARCH(_FUNC_IDEVARIABLEWATCHBOX_STRING_ITEM,_FUNC_IDEVARIABLEWATCHBOX_STRING_SEARCHTERM)== 0 )))||new_error){ -if(qbevent){evnt(26070,9509,"ide_methods.bas");if(r)goto S_46628;} -do{ -goto fornext_continue_5125; -if(!qbevent)break;evnt(26070,9510,"ide_methods.bas");}while(r); -} -} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,qbs_add(qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+32)))),qbs_new_txt_len(" ",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9514,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,func_space(*_FUNC_IDEVARIABLEWATCHBOX_LONG_MAXVARLEN-(*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+32)))->len))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9515,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,qbs_add(qbs_add(qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,qbs_new_txt_len(" ",1)),*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+48)))),func_space(*_FUNC_IDEVARIABLEWATCHBOX_LONG_MAXTYPELEN-(*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+48)))->len))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9516,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_L3,func_space( 2 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9518,"ide_methods.bas");}while(r); -S_46636:; -if ((qbs_cleanup(qbs_tmp_base,-((*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+64)))->len> 0 )))||new_error){ -if(qbevent){evnt(26070,9519,"ide_methods.bas");if(r)goto S_46636;} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_L3,qbs_add(qbs_add(qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_L3,*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+64)))),func_space(*_FUNC_IDEVARIABLEWATCHBOX_LONG_MAXMODULENAMELEN-(*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+64)))->len)),func_chr( 10 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9520,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_L3,qbs_add(qbs_add(qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_L3,_FUNC_IDEVARIABLEWATCHBOX_STRING_MAINMODULE),func_space(*_FUNC_IDEVARIABLEWATCHBOX_LONG_MAXMODULENAMELEN-_FUNC_IDEVARIABLEWATCHBOX_STRING_MAINMODULE->len)),func_chr( 10 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9522,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,_FUNC_IDEVARIABLEWATCHBOX_STRING_L3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9525,"ide_methods.bas");}while(r); -fornext_continue_5125:; -} -fornext_exit_5125:; -do{ -sub__clipboard(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9527,"ide_methods.bas");}while(r); -do{ -#include "ret176.txt" -if(!qbevent)break;evnt(26070,9528,"ide_methods.bas");}while(r); -LABEL_BUILDLIST:; -if(qbevent){evnt(26070,9530,"ide_methods.bas");r=0;} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_MAXVARLEN=((int32)(qbs_new_txt_len("Variable",8))->len); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9531,"ide_methods.bas");}while(r); -S_46646:; -fornext_value5130= 1 ; -fornext_finalvalue5130=*__LONG_TOTALVARIABLESCREATED; -fornext_step5130= 1 ; -if (fornext_step5130<0) fornext_step_negative5130=1; else fornext_step_negative5130=0; -if (new_error) goto fornext_error5130; -goto fornext_entrylabel5130; -while(1){ -fornext_value5130=fornext_step5130+(*_FUNC_IDEVARIABLEWATCHBOX_LONG_X); -fornext_entrylabel5130: -*_FUNC_IDEVARIABLEWATCHBOX_LONG_X=fornext_value5130; -if (fornext_step_negative5130){ -if (fornext_value5130fornext_finalvalue5130) break; -} -fornext_error5130:; -if(qbevent){evnt(26070,9532,"ide_methods.bas");if(r)goto S_46646;} -S_46647:; -if ((*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+12)))||new_error){ -if(qbevent){evnt(26070,9533,"ide_methods.bas");if(r)goto S_46647;} -do{ -goto fornext_continue_5129; -if(!qbevent)break;evnt(26070,9533,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISLEN=(*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+32)))->len+ 3 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9534,"ide_methods.bas");}while(r); -S_46651:; -if ((qbs_cleanup(qbs_tmp_base,-((*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+72)))->len> 0 )))||new_error){ -if(qbevent){evnt(26070,9535,"ide_methods.bas");if(r)goto S_46651;} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISLEN=*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISLEN+(*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+72)))->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9536,"ide_methods.bas");}while(r); -} -S_46654:; -if ((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISLEN>*_FUNC_IDEVARIABLEWATCHBOX_LONG_MAXVARLEN))||new_error){ -if(qbevent){evnt(26070,9538,"ide_methods.bas");if(r)goto S_46654;} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_MAXVARLEN=*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISLEN; -if(!qbevent)break;evnt(26070,9538,"ide_methods.bas");}while(r); -} -fornext_continue_5129:; -} -fornext_exit_5129:; -S_46658:; -if ((*_FUNC_IDEVARIABLEWATCHBOX_LONG_FIRSTRUN)||new_error){ -if(qbevent){evnt(26070,9541,"ide_methods.bas");if(r)goto S_46658;} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_MSG,qbs_new_txt_len("Building Variable List...",25)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9542,"ide_methods.bas");}while(r); -S_46660:; -if ((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_SELECTVAR== -1 ))||new_error){ -if(qbevent){evnt(26070,9543,"ide_methods.bas");if(r)goto S_46660;} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_MSG,qbs_new_txt_len("Analyzing Variable List...",26)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9543,"ide_methods.bas");}while(r); -} -do{ -SUB_IDEPAR((void*)( ((char*)(_FUNC_IDEVARIABLEWATCHBOX_UDT_P)) + (0) ),&(pass5131= 60 ),&(pass5132= 1 ),_FUNC_IDEVARIABLEWATCHBOX_STRING_MSG); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9544,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9547,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALVISIBLEVARIABLES= 0 ; -if(!qbevent)break;evnt(26070,9548,"ide_methods.bas");}while(r); -S_46667:; -fornext_value5134= 1 ; -fornext_finalvalue5134=*__LONG_TOTALVARIABLESCREATED; -fornext_step5134= 1 ; -if (fornext_step5134<0) fornext_step_negative5134=1; else fornext_step_negative5134=0; -if (new_error) goto fornext_error5134; -goto fornext_entrylabel5134; -while(1){ -fornext_value5134=fornext_step5134+(*_FUNC_IDEVARIABLEWATCHBOX_LONG_X); -fornext_entrylabel5134: -*_FUNC_IDEVARIABLEWATCHBOX_LONG_X=fornext_value5134; -if (fornext_step_negative5134){ -if (fornext_value5134fornext_finalvalue5134) break; -} -fornext_error5134:; -if(qbevent){evnt(26070,9549,"ide_methods.bas");if(r)goto S_46667;} -S_46668:; -if ((*_FUNC_IDEVARIABLEWATCHBOX_LONG_FIRSTRUN)||new_error){ -if(qbevent){evnt(26070,9551,"ide_methods.bas");if(r)goto S_46668;} -do{ -SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDEVARIABLEWATCHBOX_UDT_P)) + (0) )); -if(!qbevent)break;evnt(26070,9552,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,9553,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_C=*__LONG_TOTALVARIABLESCREATED; -if(!qbevent)break;evnt(26070,9554,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_N=*_FUNC_IDEVARIABLEWATCHBOX_LONG_X; -if(!qbevent)break;evnt(26070,9555,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_MAXPROGRESSWIDTH= 52 ; -if(!qbevent)break;evnt(26070,9557,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_PERCENTAGE=qbr(floor(*_FUNC_IDEVARIABLEWATCHBOX_LONG_N/ ((long double)(*_FUNC_IDEVARIABLEWATCHBOX_LONG_C))* 100 )); -if(!qbevent)break;evnt(26070,9558,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_PERCENTAGECHARS=qbr(floor(*_FUNC_IDEVARIABLEWATCHBOX_LONG_MAXPROGRESSWIDTH**_FUNC_IDEVARIABLEWATCHBOX_LONG_N/ ((long double)(*_FUNC_IDEVARIABLEWATCHBOX_LONG_C)))); -if(!qbevent)break;evnt(26070,9559,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_PERCENTAGEMSG,qbs_add(qbs_add(qbs_add(func_string(*_FUNC_IDEVARIABLEWATCHBOX_LONG_PERCENTAGECHARS, 219 ),func_string(*_FUNC_IDEVARIABLEWATCHBOX_LONG_MAXPROGRESSWIDTH-*_FUNC_IDEVARIABLEWATCHBOX_LONG_PERCENTAGECHARS, 176 )),qbs_str((int32)(*_FUNC_IDEVARIABLEWATCHBOX_LONG_PERCENTAGE))),qbs_new_txt_len("%",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9560,"ide_methods.bas");}while(r); -do{ -sub__printstring(*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_UDT_P)+(0))+((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_UDT_P)+(8))/ 2 )-(_FUNC_IDEVARIABLEWATCHBOX_STRING_PERCENTAGEMSG->len/ 2 ))+ 1 ,*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_UDT_P)+(4))+ 1 ,_FUNC_IDEVARIABLEWATCHBOX_STRING_PERCENTAGEMSG,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9561,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 1 , 0 ); -if(!qbevent)break;evnt(26070,9563,"ide_methods.bas");}while(r); -} -S_46680:; -if ((*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+12)))||new_error){ -if(qbevent){evnt(26070,9566,"ide_methods.bas");if(r)goto S_46680;} -do{ -goto fornext_continue_5133; -if(!qbevent)break;evnt(26070,9566,"ide_methods.bas");}while(r); -} -S_46683:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDEVARIABLEWATCHBOX_STRING_SEARCHTERM->len))||new_error){ -if(qbevent){evnt(26070,9568,"ide_methods.bas");if(r)goto S_46683;} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_THISSCOPE,*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+64)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9569,"ide_methods.bas");}while(r); -S_46685:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEVARIABLEWATCHBOX_STRING_THISSCOPE,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,9570,"ide_methods.bas");if(r)goto S_46685;} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_THISSCOPE,_FUNC_IDEVARIABLEWATCHBOX_STRING_MAINMODULE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9570,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_ITEM,qbs_add(qbs_add(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+32))),*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+48)))),_FUNC_IDEVARIABLEWATCHBOX_STRING_THISSCOPE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9571,"ide_methods.bas");}while(r); -S_46689:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_IDEDEBUGMODE> 0 ))&(-(*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+30))== 0 ))&(-((*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+88)))->len== 0 ))&(-((*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+112)))->len== 4 ))))||new_error){ -if(qbevent){evnt(26070,9572,"ide_methods.bas");if(r)goto S_46689;} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_ITEM,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_ITEM,FUNC_STRREPLACE(((qbs*)(((uint64*)(__ARRAY_STRING_VWATCHRECEIVEDDATA[0]))[array_check((string2l(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+112)))))-__ARRAY_STRING_VWATCHRECEIVEDDATA[4],__ARRAY_STRING_VWATCHRECEIVEDDATA[5])])),func_chr( 0 ),qbs_new_txt_len(" ",1)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9574,"ide_methods.bas");}while(r); -} -S_46692:; -if ((qbs_cleanup(qbs_tmp_base,-(FUNC_MULTISEARCH(_FUNC_IDEVARIABLEWATCHBOX_STRING_ITEM,_FUNC_IDEVARIABLEWATCHBOX_STRING_SEARCHTERM)== 0 )))||new_error){ -if(qbevent){evnt(26070,9576,"ide_methods.bas");if(r)goto S_46692;} -do{ -goto fornext_continue_5133; -if(!qbevent)break;evnt(26070,9577,"ide_methods.bas");}while(r); -} -} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALVISIBLEVARIABLES=*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALVISIBLEVARIABLES+ 1 ; -if(!qbevent)break;evnt(26070,9581,"ide_methods.bas");}while(r); -S_46697:; -while((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALVISIBLEVARIABLES>func_ubound(_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST,1,1)))||new_error){ -if(qbevent){evnt(26070,9582,"ide_methods.bas");if(r)goto S_46697;} -do{ +} +if(!qbevent)break;evnt(26070,9193,"ide_methods.bas");}while(r); +ww_continue_5104:; +} +ww_exit_5104:; +do{ +qbs_set(__STRING_VARIABLEWATCHLIST,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_VARIABLEWATCHLIST,l2string( -1 )),l2string(*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)),l2string( 0 )),l2string( 0 )),l2string( 0 )),l2string(*__LONG_NEXTVWATCHDATASLOT))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9195,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALVISIBLEVARIABLES=*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALVISIBLEVARIABLES+ 1 ; +if(!qbevent)break;evnt(26070,9196,"ide_methods.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+112))),l2string(*__LONG_NEXTVWATCHDATASLOT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9197,"ide_methods.bas");}while(r); +} +} +} +} +} +fornext_continue_5085:; +} +fornext_exit_5085:; +S_46318:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_VARIABLEWATCHLIST->len))||new_error){ +if(qbevent){evnt(26070,9201,"ide_methods.bas");if(r)goto S_46318;} +do{ +sub_mid(__STRING_VARIABLEWATCHLIST, 5 , 4 ,l2string(*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALVISIBLEVARIABLES),1); +if(!qbevent)break;evnt(26070,9201,"ide_methods.bas");}while(r); +} +do{ +SUB_CLEARMOUSE(); +if(!qbevent)break;evnt(26070,9202,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,9203,"ide_methods.bas");}while(r); +} +S_46324:; +if ((*__LONG_MCLICK&(-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS== 2 )))||new_error){ +if(qbevent){evnt(26070,9206,"ide_methods.bas");if(r)goto S_46324;} +S_46325:; +if (((-(((float)(FUNC_TIMEELAPSEDSINCE(_FUNC_IDEVARIABLEWATCHBOX_SINGLE_LASTCLICK)))<((float)( 0.3E+0 ))))&(-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_CLICKEDITEM==*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+64)))))||new_error){ +if(qbevent){evnt(26070,9207,"ide_methods.bas");if(r)goto S_46325;} +S_46326:; +if (((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_DOUBLECLICKTHRESHOLD> 0 ))&(-(*__LONG_MX>=(*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_UDT_P)+(0))+*_FUNC_IDEVARIABLEWATCHBOX_LONG_DOUBLECLICKTHRESHOLD)))&(-(*__LONG_IDEDEBUGMODE> 0 )))||new_error){ +if(qbevent){evnt(26070,9208,"ide_methods.bas");if(r)goto S_46326;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS= 5 ; +if(!qbevent)break;evnt(26070,9209,"ide_methods.bas");}while(r); +do{ +goto LABEL_SENDVALUE; +if(!qbevent)break;evnt(26070,9210,"ide_methods.bas");}while(r); +S_46329:; +}else{ +if ((((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_DOUBLECLICKTHRESHOLD> 0 ))&(-(*__LONG_MX<(*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_UDT_P)+(0))+*_FUNC_IDEVARIABLEWATCHBOX_LONG_DOUBLECLICKTHRESHOLD- 1 )))&(-(*__LONG_IDEDEBUGMODE> 0 ))))|(-(*__LONG_IDEDEBUGMODE== 0 ))){ +if(qbevent){evnt(26070,9212,"ide_methods.bas");if(r)goto S_46329;} +do{ +goto LABEL_TOGGLEWATCH; +if(!qbevent)break;evnt(26070,9213,"ide_methods.bas");}while(r); +} +} +S_46332:; +}else{ +if (-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_CLICKEDITEM==*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+64)))){ +if(qbevent){evnt(26070,9215,"ide_methods.bas");if(r)goto S_46332;} +S_46333:; +if (((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_DOUBLECLICKTHRESHOLD> 0 ))&(-(*__LONG_MX==(*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_UDT_P)+(0))+*_FUNC_IDEVARIABLEWATCHBOX_LONG_DOUBLECLICKTHRESHOLD- 1 )))&(-(*__LONG_IDEDEBUGMODE> 0 )))||new_error){ +if(qbevent){evnt(26070,9216,"ide_methods.bas");if(r)goto S_46333;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y=func_abs((int32)(*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+64)))); +if(!qbevent)break;evnt(26070,9217,"ide_methods.bas");}while(r); +S_46335:; +if ((qbs_cleanup(qbs_tmp_base,(-(func_instr(NULL,*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+48))),qbs_new_txt_len("STRING *",8),0)== 0 ))&(qbs_notequal(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+48))),qbs_new_txt_len("STRING",6)))))||new_error){ +if(qbevent){evnt(26070,9218,"ide_methods.bas");if(r)goto S_46335;} +do{ +*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+31))=*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+31))+ 1 ; +if(!qbevent)break;evnt(26070,9219,"ide_methods.bas");}while(r); +S_46337:; +if ((-(*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+31))> 3 ))||new_error){ +if(qbevent){evnt(26070,9220,"ide_methods.bas");if(r)goto S_46337;} +do{ +*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+31))= 0 ; +if(!qbevent)break;evnt(26070,9221,"ide_methods.bas");}while(r); +} +do{ +return_point[next_return_point++]=145; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_BUILDLIST; +RETURN_145:; +if(!qbevent)break;evnt(26070,9223,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDEVARIABLEWATCHBOX_STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9224,"ide_methods.bas");}while(r); +} +} +} +} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_SINGLE_LASTCLICK=func_timer(NULL,0); +if(!qbevent)break;evnt(26070,9228,"ide_methods.bas");}while(r); +S_46346:; +if ((-(*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+64))> 0 ))||new_error){ +if(qbevent){evnt(26070,9229,"ide_methods.bas");if(r)goto S_46346;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_CLICKEDITEM=*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26070,9229,"ide_methods.bas");}while(r); +} +do{ +goto dl_continue_5039; +if(!qbevent)break;evnt(26070,9230,"ide_methods.bas");}while(r); +} +S_46351:; +if ((qbs_cleanup(qbs_tmp_base,((qbs_equal(__STRING_K,func_chr( 13 )))&(-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS== 2 )))))||new_error){ +if(qbevent){evnt(26070,9233,"ide_methods.bas");if(r)goto S_46351;} +do{ +qbs_set(__STRING_K,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9234,"ide_methods.bas");}while(r); +LABEL_TOGGLEWATCH:; +if(qbevent){evnt(26070,9235,"ide_methods.bas");r=0;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y=func_abs((int32)(*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+64)))); +if(!qbevent)break;evnt(26070,9236,"ide_methods.bas");}while(r); +S_46354:; +if (((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y>= 1 ))&(-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y<=*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALVISIBLEVARIABLES)))||new_error){ +if(qbevent){evnt(26070,9238,"ide_methods.bas");if(r)goto S_46354;} +do{ +*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+64))=*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y; +if(!qbevent)break;evnt(26070,9239,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_QUICKDLGUPDATE= -1 ; +if(!qbevent)break;evnt(26070,9240,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=146; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_DLGUPDATE; +RETURN_146:; +if(!qbevent)break;evnt(26070,9240,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y=*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26070,9241,"ide_methods.bas");}while(r); +S_46359:; +if (((-(*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+29))!= 0 ))&*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+30)))||new_error){ +if(qbevent){evnt(26070,9242,"ide_methods.bas");if(r)goto S_46359;} +do{ +goto LABEL_SETARRAYRANGE; +if(!qbevent)break;evnt(26070,9243,"ide_methods.bas");}while(r); +} +do{ +*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+29))=~(*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+29))); +if(!qbevent)break;evnt(26070,9245,"ide_methods.bas");}while(r); +S_46363:; +if ((*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+29)))||new_error){ +if(qbevent){evnt(26070,9246,"ide_methods.bas");if(r)goto S_46363;} +S_46364:; +if ((*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+30)))||new_error){ +if(qbevent){evnt(26070,9247,"ide_methods.bas");if(r)goto S_46364;} +LABEL_SETARRAYRANGE:; +if(qbevent){evnt(26070,9248,"ide_methods.bas");r=0;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9249,"ide_methods.bas");}while(r); +S_46366:; +if ((qbs_cleanup(qbs_tmp_base,(*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+80)))->len))||new_error){ +if(qbevent){evnt(26070,9250,"ide_methods.bas");if(r)goto S_46366;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+72)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9251,"ide_methods.bas");}while(r); +} +LABEL_SETARRAYRANGE2:; +if(qbevent){evnt(26070,9253,"ide_methods.bas");r=0;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_V,FUNC_IDEINPUTBOX(qbs_new_txt_len("Watch Array",11),qbs_add(qbs_new_txt_len("#Indexes",8),_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPPROMPT),_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,qbs_new_txt_len("01234567890,-; TOto",19),&(pass5106= 45 ),&(pass5107= 0 ),_FUNC_IDEVARIABLEWATCHBOX_LONG_OK)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9254,"ide_methods.bas");}while(r); +S_46370:; +if ((*_FUNC_IDEVARIABLEWATCHBOX_LONG_OK)||new_error){ +if(qbevent){evnt(26070,9255,"ide_methods.bas");if(r)goto S_46370;} +S_46371:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDEVARIABLEWATCHBOX_STRING_V->len> 0 )))||new_error){ +if(qbevent){evnt(26070,9256,"ide_methods.bas");if(r)goto S_46371;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_V,qbs_ucase(_FUNC_IDEVARIABLEWATCHBOX_STRING_V)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9257,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_V,FUNC_STRREPLACE(_FUNC_IDEVARIABLEWATCHBOX_STRING_V,qbs_new_txt_len(" TO ",4),qbs_new_txt_len("-",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9258,"ide_methods.bas");}while(r); +S_46374:; +while((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_FUNC_IDEVARIABLEWATCHBOX_STRING_V, 1 ),qbs_new_txt_len(",",1))))||new_error){ +if(qbevent){evnt(26070,9259,"ide_methods.bas");if(r)goto S_46374;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_V,qbs_left(_FUNC_IDEVARIABLEWATCHBOX_STRING_V,_FUNC_IDEVARIABLEWATCHBOX_STRING_V->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9259,"ide_methods.bas");}while(r); +ww_continue_5109:; +} +ww_exit_5109:; +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,FUNC_LINEFORMAT(_FUNC_IDEVARIABLEWATCHBOX_STRING_V)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9260,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_I=FUNC_COUNTELEMENTS(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9261,"ide_methods.bas");}while(r); +S_46379:; +if ((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_I!=func_abs((int16)(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120)))-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+516))))))||new_error){ +if(qbevent){evnt(26070,9262,"ide_methods.bas");if(r)goto S_46379;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Error",5),qbs_add(qbs_add(qbs_new_txt_len("Array has",9),qbs_str((int16)(func_abs((int16)(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120)))-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+516))))))),qbs_new_txt_len(" dimension(s).",14)),qbs_new_txt_len("#OK",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9263,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,qbs__trim(_FUNC_IDEVARIABLEWATCHBOX_STRING_V)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9264,"ide_methods.bas");}while(r); +do{ +goto LABEL_SETARRAYRANGE2; +if(!qbevent)break;evnt(26070,9265,"ide_methods.bas");}while(r); +} +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+80))),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9267,"ide_methods.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+72))),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9268,"ide_methods.bas");}while(r); +S_46386:; +while((*_FUNC_IDEVARIABLEWATCHBOX_LONG_I)||new_error){ +if(qbevent){evnt(26070,9269,"ide_methods.bas");if(r)goto S_46386;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOUNDCOMMA=func_instr(NULL,_FUNC_IDEVARIABLEWATCHBOX_STRING_V,qbs_new_txt_len(",",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9270,"ide_methods.bas");}while(r); +S_46388:; +if ((*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOUNDCOMMA)||new_error){ +if(qbevent){evnt(26070,9271,"ide_methods.bas");if(r)goto S_46388;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,qbs_left(_FUNC_IDEVARIABLEWATCHBOX_STRING_V,*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOUNDCOMMA- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9272,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_V,func_mid(_FUNC_IDEVARIABLEWATCHBOX_STRING_V,*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOUNDCOMMA+ 1 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9273,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,_FUNC_IDEVARIABLEWATCHBOX_STRING_V); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9275,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,FUNC_PARSERANGE(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9277,"ide_methods.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+80))),qbs_add(qbs_add(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+80))),l2string(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP->len)),_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9278,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,FUNC_FORMATRANGE(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9279,"ide_methods.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+72))),qbs_add(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+72))),_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9280,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_I=*_FUNC_IDEVARIABLEWATCHBOX_LONG_I- 1 ; +if(!qbevent)break;evnt(26070,9281,"ide_methods.bas");}while(r); +S_46399:; +if ((*_FUNC_IDEVARIABLEWATCHBOX_LONG_I)||new_error){ +if(qbevent){evnt(26070,9282,"ide_methods.bas");if(r)goto S_46399;} +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+72))),qbs_add(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+72))),qbs_new_txt_len(",",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9282,"ide_methods.bas");}while(r); +} +ww_continue_5111:; +} +ww_exit_5111:; +}else{ +do{ +*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+29))= 0 ; +if(!qbevent)break;evnt(26070,9285,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=147; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_BUILDLIST; +RETURN_147:; +if(!qbevent)break;evnt(26070,9286,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDEVARIABLEWATCHBOX_STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9287,"ide_methods.bas");}while(r); +do{ +goto LABEL_UNWATCH; +if(!qbevent)break;evnt(26070,9288,"ide_methods.bas");}while(r); +} +do{ +return_point[next_return_point++]=148; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_BUILDLIST; +RETURN_148:; +if(!qbevent)break;evnt(26070,9290,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDEVARIABLEWATCHBOX_STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9291,"ide_methods.bas");}while(r); +}else{ +do{ +*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+29))= 0 ; +if(!qbevent)break;evnt(26070,9293,"ide_methods.bas");}while(r); +do{ +goto LABEL_UNWATCH; +if(!qbevent)break;evnt(26070,9294,"ide_methods.bas");}while(r); +} +} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+48)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9299,"ide_methods.bas");}while(r); +S_46417:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("STRING *",8),0)))||new_error){ +if(qbevent){evnt(26070,9300,"ide_methods.bas");if(r)goto S_46417;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("STRING",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9300,"ide_methods.bas");}while(r); +} +S_46420:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("BIT *",5),0)))||new_error){ +if(qbevent){evnt(26070,9301,"ide_methods.bas");if(r)goto S_46420;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("_BIT",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9301,"ide_methods.bas");}while(r); +} +S_46423:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,__STRING_NATIVEDATATYPES,_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE,0)== 0 )))||new_error){ +if(qbevent){evnt(26070,9302,"ide_methods.bas");if(r)goto S_46423;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_ELEMENTINDEXES,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9304,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISUDT= 0 ; +if(!qbevent)break;evnt(26070,9305,"ide_methods.bas");}while(r); +do{ +*__LONG_E= 0 ; +if(!qbevent)break;evnt(26070,9306,"ide_methods.bas");}while(r); +S_46427:; +fornext_value5114= 1 ; +fornext_finalvalue5114=*__LONG_LASTTYPE; +fornext_step5114= 1 ; +if (fornext_step5114<0) fornext_step_negative5114=1; else fornext_step_negative5114=0; +if (new_error) goto fornext_error5114; +goto fornext_entrylabel5114; +while(1){ +fornext_value5114=fornext_step5114+(*_FUNC_IDEVARIABLEWATCHBOX_LONG_I); +fornext_entrylabel5114: +*_FUNC_IDEVARIABLEWATCHBOX_LONG_I=fornext_value5114; +if (fornext_step_negative5114){ +if (fornext_value5114fornext_finalvalue5114) break; +} +fornext_error5114:; +if(qbevent){evnt(26070,9307,"ide_methods.bas");if(r)goto S_46427;} +S_46428:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[(array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_I)-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]))*256],256,1)),_FUNC_IDEVARIABLEWATCHBOX_STRING_VARTYPE)))||new_error){ +if(qbevent){evnt(26070,9308,"ide_methods.bas");if(r)goto S_46428;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISUDT=*_FUNC_IDEVARIABLEWATCHBOX_LONG_I; +if(!qbevent)break;evnt(26070,9308,"ide_methods.bas");}while(r); +do{ +goto fornext_exit_5113; +if(!qbevent)break;evnt(26070,9308,"ide_methods.bas");}while(r); +} +fornext_continue_5113:; +} +fornext_exit_5113:; +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_I= 0 ; +if(!qbevent)break;evnt(26070,9311,"ide_methods.bas");}while(r); +S_46434:; +do{ +if(qbevent){evnt(26070,9312,"ide_methods.bas");if(r)goto S_46434;} +S_46435:; +if ((-(*__LONG_E== 0 ))||new_error){ +if(qbevent){evnt(26070,9313,"ide_methods.bas");if(r)goto S_46435;} +do{ +*__LONG_E=((int32*)(__ARRAY_LONG_UDTXNEXT[0]))[array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISUDT)-__ARRAY_LONG_UDTXNEXT[4],__ARRAY_LONG_UDTXNEXT[5])]; +if(!qbevent)break;evnt(26070,9313,"ide_methods.bas");}while(r); +}else{ +do{ +*__LONG_E=((int32*)(__ARRAY_LONG_UDTENEXT[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5])]; +if(!qbevent)break;evnt(26070,9313,"ide_methods.bas");}while(r); +} +S_46440:; +if ((-(*__LONG_E== 0 ))||new_error){ +if(qbevent){evnt(26070,9314,"ide_methods.bas");if(r)goto S_46440;} +do{ +goto dl_exit_5115; +if(!qbevent)break;evnt(26070,9314,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_ELEMENTINDEXES,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_ELEMENTINDEXES,l2string(*__LONG_E))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9315,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_I=*_FUNC_IDEVARIABLEWATCHBOX_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,9316,"ide_methods.bas");}while(r); +dl_continue_5115:; +}while(1); +dl_exit_5115:; +do{ +sub_pcopy( 0 , 4 ); +if(!qbevent)break;evnt(26070,9318,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_V,FUNC_IDEELEMENTWATCHBOX(qbs_add(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+32))),qbs_new_txt_len(".",1)),_FUNC_IDEVARIABLEWATCHBOX_STRING_ELEMENTINDEXES,&(pass5116= 0 ),&(pass5117= 0 ),_FUNC_IDEVARIABLEWATCHBOX_LONG_OK)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9319,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 2 , 0 ); +if(!qbevent)break;evnt(26070,9320,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 2 , 1 ); +if(!qbevent)break;evnt(26070,9321,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,9322,"ide_methods.bas");}while(r); +S_46451:; +if ((*_FUNC_IDEVARIABLEWATCHBOX_LONG_OK)||new_error){ +if(qbevent){evnt(26070,9323,"ide_methods.bas");if(r)goto S_46451;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_LONGESTELEMENTNAME= 0 ; +if(!qbevent)break;evnt(26070,9324,"ide_methods.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+88))),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9325,"ide_methods.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9326,"ide_methods.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+104))),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9327,"ide_methods.bas");}while(r); +do{ +SUB_GETID((int32*)(void*)( ((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])) + ((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120) )); +if(!qbevent)break;evnt(26070,9328,"ide_methods.bas");}while(r); +S_46457:; +if ((-(*(int32*)(((char*)__UDT_ID)+(536))== 0 ))||new_error){ +if(qbevent){evnt(26070,9329,"ide_methods.bas");if(r)goto S_46457;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP=*(int32*)(((char*)__UDT_ID)+(512))& 511 ; +if(!qbevent)break;evnt(26070,9330,"ide_methods.bas");}while(r); +S_46459:; +if ((*(int32*)(((char*)__UDT_ID)+(512))&*__LONG_ISINCONVENTIONALMEMORY)||new_error){ +if(qbevent){evnt(26070,9331,"ide_methods.bas");if(r)goto S_46459;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP=*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP-*__LONG_ISINCONVENTIONALMEMORY; +if(!qbevent)break;evnt(26070,9332,"ide_methods.bas");}while(r); +} +do{ +*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+24))=((int32*)(__ARRAY_LONG_UDTXSIZE[0]))[array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP)-__ARRAY_LONG_UDTXSIZE[4],__ARRAY_LONG_UDTXSIZE[5])]; +if(!qbevent)break;evnt(26070,9335,"ide_methods.bas");}while(r); +S_46463:; +if ((((int16*)(__ARRAY_INTEGER_UDTXBYTEALIGN[0]))[array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP)-__ARRAY_INTEGER_UDTXBYTEALIGN[4],__ARRAY_INTEGER_UDTXBYTEALIGN[5])])||new_error){ +if(qbevent){evnt(26070,9336,"ide_methods.bas");if(r)goto S_46463;} +S_46464:; +if ((*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+24))% 8 )||new_error){ +if(qbevent){evnt(26070,9337,"ide_methods.bas");if(r)goto S_46464;} +do{ +*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+24))=*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+24))+( 8 -(*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+24))% 8 )); +if(!qbevent)break;evnt(26070,9337,"ide_methods.bas");}while(r); +} +do{ +*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+24))=*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+24))/ 8 ; +if(!qbevent)break;evnt(26070,9338,"ide_methods.bas");}while(r); +} +}else{ +do{ +*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+24))= 0 ; +if(!qbevent)break;evnt(26070,9341,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,_FUNC_IDEVARIABLEWATCHBOX_STRING_V); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9344,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_I= 0 ; +if(!qbevent)break;evnt(26070,9345,"ide_methods.bas");}while(r); +S_46474:; +do{ +if(qbevent){evnt(26070,9346,"ide_methods.bas");if(r)goto S_46474;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_I=*_FUNC_IDEVARIABLEWATCHBOX_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,9347,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_V,FUNC_GETELEMENT(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,_FUNC_IDEVARIABLEWATCHBOX_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9348,"ide_methods.bas");}while(r); +S_46477:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDEVARIABLEWATCHBOX_STRING_V->len== 0 )))||new_error){ +if(qbevent){evnt(26070,9349,"ide_methods.bas");if(r)goto S_46477;} +do{ +goto dl_exit_5118; +if(!qbevent)break;evnt(26070,9349,"ide_methods.bas");}while(r); +} +S_46480:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDEVARIABLEWATCHBOX_STRING_V->len>*_FUNC_IDEVARIABLEWATCHBOX_LONG_LONGESTELEMENTNAME)))||new_error){ +if(qbevent){evnt(26070,9352,"ide_methods.bas");if(r)goto S_46480;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_LONGESTELEMENTNAME=_FUNC_IDEVARIABLEWATCHBOX_STRING_V->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9352,"ide_methods.bas");}while(r); +} +S_46483:; +if ((qbs_cleanup(qbs_tmp_base,-((*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+88)))->len== 0 )))||new_error){ +if(qbevent){evnt(26070,9353,"ide_methods.bas");if(r)goto S_46483;} +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+88))),l2string(*_FUNC_IDEVARIABLEWATCHBOX_LONG_LONGESTELEMENTNAME)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9354,"ide_methods.bas");}while(r); +}else{ +do{ +sub_mid(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+88))), 1 , 4 ,l2string(*_FUNC_IDEVARIABLEWATCHBOX_LONG_LONGESTELEMENTNAME),1); +if(!qbevent)break;evnt(26070,9356,"ide_methods.bas");}while(r); +} +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+88))),qbs_add(qbs_add(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+88))),_FUNC_IDEVARIABLEWATCHBOX_STRING_V),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9358,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_V,FUNC_LINEFORMAT(qbs_ucase(_FUNC_IDEVARIABLEWATCHBOX_STRING_V))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9359,"ide_methods.bas");}while(r); +do{ +*__LONG_ERROR_HAPPENED= 0 ; +if(!qbevent)break;evnt(26070,9360,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_RESULT,FUNC_UDTREFERENCE(qbs_new_txt_len("",0),_FUNC_IDEVARIABLEWATCHBOX_STRING_V,_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9361,"ide_methods.bas");}while(r); +S_46492:; +if ((*__LONG_ERROR_HAPPENED)||new_error){ +if(qbevent){evnt(26070,9362,"ide_methods.bas");if(r)goto S_46492;} +do{ +*__LONG_ERROR_HAPPENED= 0 ; +if(!qbevent)break;evnt(26070,9364,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Error",5),__STRING_ERROR_MESSAGE,qbs_new_txt_len("#OK",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9365,"ide_methods.bas");}while(r); +do{ +*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+29))= 0 ; +if(!qbevent)break;evnt(26070,9366,"ide_methods.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+88))),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9367,"ide_methods.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9368,"ide_methods.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+104))),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9369,"ide_methods.bas");}while(r); +do{ +goto LABEL_UNWATCH; +if(!qbevent)break;evnt(26070,9370,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP=*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP-*__LONG_ISUDT; +if(!qbevent)break;evnt(26070,9372,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP=*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP-*__LONG_ISREFERENCE; +if(!qbevent)break;evnt(26070,9373,"ide_methods.bas");}while(r); +S_46503:; +if ((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP&*__LONG_ISINCONVENTIONALMEMORY)||new_error){ +if(qbevent){evnt(26070,9374,"ide_methods.bas");if(r)goto S_46503;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP=*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP-*__LONG_ISINCONVENTIONALMEMORY; +if(!qbevent)break;evnt(26070,9374,"ide_methods.bas");}while(r); +} +S_46506:; +if(qbevent){evnt(26070,9375,"ide_methods.bas");if(r)goto S_46506;} +S_46507:; +if (((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP==(*__LONG_BYTETYPE)))||new_error){ +if(qbevent){evnt(26070,9376,"ide_methods.bas");if(r)goto S_46507;} +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_add(qbs_add(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_new_txt_len("_BYTE",5)),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9377,"ide_methods.bas");}while(r); +sc_ec_339_end:; +goto sc_5122_end; +} +S_46509:; +if (((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP==(*__LONG_UBYTETYPE)))||new_error){ +if(qbevent){evnt(26070,9378,"ide_methods.bas");if(r)goto S_46509;} +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_add(qbs_add(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_new_txt_len("_UNSIGNED _BYTE",15)),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9379,"ide_methods.bas");}while(r); +sc_ec_340_end:; +goto sc_5122_end; +} +S_46511:; +if (((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP==(*__LONG_INTEGERTYPE)))||new_error){ +if(qbevent){evnt(26070,9380,"ide_methods.bas");if(r)goto S_46511;} +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_add(qbs_add(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_new_txt_len("INTEGER",7)),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9381,"ide_methods.bas");}while(r); +sc_ec_341_end:; +goto sc_5122_end; +} +S_46513:; +if (((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP==(*__LONG_UINTEGERTYPE)))||new_error){ +if(qbevent){evnt(26070,9382,"ide_methods.bas");if(r)goto S_46513;} +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_add(qbs_add(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_new_txt_len("_UNSIGNED INTEGER",17)),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9383,"ide_methods.bas");}while(r); +sc_ec_342_end:; +goto sc_5122_end; +} +S_46515:; +if (((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP==(*__LONG_LONGTYPE)))||new_error){ +if(qbevent){evnt(26070,9384,"ide_methods.bas");if(r)goto S_46515;} +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_add(qbs_add(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_new_txt_len("LONG",4)),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9385,"ide_methods.bas");}while(r); +sc_ec_343_end:; +goto sc_5122_end; +} +S_46517:; +if (((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP==(*__LONG_ULONGTYPE)))||new_error){ +if(qbevent){evnt(26070,9386,"ide_methods.bas");if(r)goto S_46517;} +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_add(qbs_add(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_new_txt_len("_UNSIGNED LONG",14)),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9387,"ide_methods.bas");}while(r); +sc_ec_344_end:; +goto sc_5122_end; +} +S_46519:; +if (((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP==(*__LONG_INTEGER64TYPE)))||new_error){ +if(qbevent){evnt(26070,9388,"ide_methods.bas");if(r)goto S_46519;} +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_add(qbs_add(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_new_txt_len("_INTEGER64",10)),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9389,"ide_methods.bas");}while(r); +sc_ec_345_end:; +goto sc_5122_end; +} +S_46521:; +if (((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP==(*__LONG_UINTEGER64TYPE)))||new_error){ +if(qbevent){evnt(26070,9390,"ide_methods.bas");if(r)goto S_46521;} +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_add(qbs_add(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_new_txt_len("_UNSIGNED _INTEGER64",20)),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9391,"ide_methods.bas");}while(r); +sc_ec_346_end:; +goto sc_5122_end; +} +S_46523:; +if (((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP==(*__LONG_SINGLETYPE)))||new_error){ +if(qbevent){evnt(26070,9392,"ide_methods.bas");if(r)goto S_46523;} +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_add(qbs_add(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_new_txt_len("SINGLE",6)),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9393,"ide_methods.bas");}while(r); +sc_ec_347_end:; +goto sc_5122_end; +} +S_46525:; +if (((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP==(*__LONG_DOUBLETYPE)))||new_error){ +if(qbevent){evnt(26070,9394,"ide_methods.bas");if(r)goto S_46525;} +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_add(qbs_add(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_new_txt_len("DOUBLE",6)),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9395,"ide_methods.bas");}while(r); +sc_ec_348_end:; +goto sc_5122_end; +} +S_46527:; +if (((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP==(*__LONG_FLOATTYPE)))||new_error){ +if(qbevent){evnt(26070,9396,"ide_methods.bas");if(r)goto S_46527;} +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_add(qbs_add(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_new_txt_len("_FLOAT",6)),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9397,"ide_methods.bas");}while(r); +sc_ec_349_end:; +goto sc_5122_end; +} +S_46529:; +if (((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP==(*__LONG_OFFSETTYPE)))||new_error){ +if(qbevent){evnt(26070,9398,"ide_methods.bas");if(r)goto S_46529;} +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_add(qbs_add(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_new_txt_len("_OFFSET",7)),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9399,"ide_methods.bas");}while(r); +sc_ec_350_end:; +goto sc_5122_end; +} +S_46531:; +if (((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP==(*__LONG_UOFFSETTYPE)))||new_error){ +if(qbevent){evnt(26070,9400,"ide_methods.bas");if(r)goto S_46531;} +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_add(qbs_add(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_new_txt_len("_UNSIGNED _OFFSET",17)),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9401,"ide_methods.bas");}while(r); +sc_ec_351_end:; +goto sc_5122_end; +} +S_46534:; +if ((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP&*__LONG_ISSTRING)||new_error){ +if(qbevent){evnt(26070,9403,"ide_methods.bas");if(r)goto S_46534;} +S_46535:; +if ((-((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYP&*__LONG_ISFIXEDLENGTH)== 0 ))||new_error){ +if(qbevent){evnt(26070,9404,"ide_methods.bas");if(r)goto S_46535;} +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_add(qbs_add(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_new_txt_len("STRING",6)),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9405,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_add(qbs_add(qbs_add(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_new_txt_len("STRING *",8)),qbs_str((int32)(((int32*)(__ARRAY_LONG_UDTETYPESIZE[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTETYPESIZE[4],__ARRAY_LONG_UDTETYPESIZE[5])]))),__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9408,"ide_methods.bas");}while(r); +} +}else{ +do{ +*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+29))= 0 ; +if(!qbevent)break;evnt(26070,9412,"ide_methods.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+88))),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9413,"ide_methods.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9414,"ide_methods.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+104))),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9415,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Error",5),qbs_new_txt_len("Cannot add full UDT to Watch List",33),qbs_new_txt_len("#OK",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9416,"ide_methods.bas");}while(r); +do{ +goto LABEL_UNWATCH; +if(!qbevent)break;evnt(26070,9417,"ide_methods.bas");}while(r); +} +sc_5122_end:; +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+104))),qbs_add(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+104))),l2string(qbr(func_val(func_mid(_FUNC_IDEVARIABLEWATCHBOX_STRING_RESULT,func__instrrev(NULL,_FUNC_IDEVARIABLEWATCHBOX_STRING_RESULT,__STRING1_SP3,0)+ 1 ,NULL,0)))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9420,"ide_methods.bas");}while(r); +} +dl_continue_5118:; +}while(1); +dl_exit_5118:; +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+88))),qbs_left(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+88))),(*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+88)))->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9425,"ide_methods.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),qbs_left(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96))),(*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+96)))->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9426,"ide_methods.bas");}while(r); +}else{ +do{ +*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+29))= 0 ; +if(!qbevent)break;evnt(26070,9428,"ide_methods.bas");}while(r); +do{ +goto LABEL_UNWATCH; +if(!qbevent)break;evnt(26070,9429,"ide_methods.bas");}while(r); +} +} +do{ +tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ +tmp_fileno=*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+8)); if (!new_error){ +tmp_long=*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARIABLENAMECOLOR; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26070,9433,"ide_methods.bas");}while(r); +do{ +tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ +tmp_fileno=*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+12)); if (!new_error){ +tmp_long=*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYPECOLUMNCOLOR; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26070,9434,"ide_methods.bas");}while(r); +do{ +tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ +tmp_fileno=*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+4)); if (!new_error){ +tmp_long=*_FUNC_IDEVARIABLEWATCHBOX_LONG_SELECTEDBG; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26070,9435,"ide_methods.bas");}while(r); +do{ +tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ +tmp_fileno=*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+16)); if (!new_error){ +tmp_long= 43 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26070,9436,"ide_methods.bas");}while(r); +}else{ +LABEL_UNWATCH:; +if(qbevent){evnt(26070,9438,"ide_methods.bas");r=0;} +do{ +tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ +tmp_fileno=*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+8)); if (!new_error){ +tmp_long= 16 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26070,9439,"ide_methods.bas");}while(r); +do{ +tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ +tmp_fileno=*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+12)); if (!new_error){ +tmp_long= 2 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26070,9440,"ide_methods.bas");}while(r); +do{ +tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ +tmp_fileno=*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+4)); if (!new_error){ +tmp_long= 17 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26070,9441,"ide_methods.bas");}while(r); +do{ +tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ +tmp_fileno=*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_Y)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+16)); if (!new_error){ +tmp_long= 32 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26070,9442,"ide_methods.bas");}while(r); +} +} +do{ +goto dl_continue_5039; +if(!qbevent)break;evnt(26070,9446,"ide_methods.bas");}while(r); +} +S_46572:; +if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS== 2 ))&(((qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("C",1)))&(-(*__LONG_KCTRL!= 0 ))))))||new_error){ +if(qbevent){evnt(26070,9449,"ide_methods.bas");if(r)goto S_46572;} +do{ +return_point[next_return_point++]=149; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_COPYLIST; +RETURN_149:; +if(!qbevent)break;evnt(26070,9450,"ide_methods.bas");}while(r); +do{ +goto dl_continue_5039; +if(!qbevent)break;evnt(26070,9451,"ide_methods.bas");}while(r); +} +S_46576:; +if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS==*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX))&(((qbs_greaterorequal(__STRING_K,qbs_new_txt_len(" ",1)))&(qbs_lessorequal(__STRING_K,func_chr( 126 )))))))||new_error){ +if(qbevent){evnt(26070,9454,"ide_methods.bas");if(r)goto S_46576;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS=*_FUNC_IDEVARIABLEWATCHBOX_LONG_FILTERBOX; +if(!qbevent)break;evnt(26070,9455,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_PREVFOCUS=*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS; +if(!qbevent)break;evnt(26070,9456,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),__STRING_K); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9457,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; +if(!qbevent)break;evnt(26070,9458,"ide_methods.bas");}while(r); +do{ +*(int8*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+76))= 0 ; +if(!qbevent)break;evnt(26070,9459,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_SEARCHTERM,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9460,"ide_methods.bas");}while(r); +do{ +goto dl_continue_5039; +if(!qbevent)break;evnt(26070,9461,"ide_methods.bas");}while(r); +} +S_46585:; +if (((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS==*_FUNC_IDEVARIABLEWATCHBOX_LONG_FILTERBOX))&(((-(*__LONG_KB== 18432 ))|(-(*__LONG_KB== 20480 )))))||new_error){ +if(qbevent){evnt(26070,9464,"ide_methods.bas");if(r)goto S_46585;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS=*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX; +if(!qbevent)break;evnt(26070,9465,"ide_methods.bas");}while(r); +do{ +goto dl_continue_5039; +if(!qbevent)break;evnt(26070,9466,"ide_methods.bas");}while(r); +} +S_46589:; +if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_FOCUS==*_FUNC_IDEVARIABLEWATCHBOX_LONG_FILTERBOX))&(qbs_notequal(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_FILTERBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])),_FUNC_IDEVARIABLEWATCHBOX_STRING_SEARCHTERM))))||new_error){ +if(qbevent){evnt(26070,9469,"ide_methods.bas");if(r)goto S_46589;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_FILTER,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_FILTERBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9470,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_SEARCHTERM,qbs_ucase(_FUNC_IDEVARIABLEWATCHBOX_STRING_FILTER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9471,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=150; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_BUILDLIST; +RETURN_150:; +if(!qbevent)break;evnt(26070,9473,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDEVARIABLEWATCHBOX_STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9474,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+64))= 0 ; +if(!qbevent)break;evnt(26070,9475,"ide_methods.bas");}while(r); +S_46595:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDEVARIABLEWATCHBOX_STRING_SEARCHTERM->len))||new_error){ +if(qbevent){evnt(26070,9476,"ide_methods.bas");if(r)goto S_46595;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,qbs_new_txt_len(", filtered",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9476,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9476,"ide_methods.bas");}while(r); +} +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_UDT_P)+(16)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Add Watch - Variable List (",27),qbs_ltrim(qbs_str((int32)(*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALVISIBLEVARIABLES)))),_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9477,"ide_methods.bas");}while(r); +} +LABEL_DLGLOOP:; +if(qbevent){evnt(26070,9480,"ide_methods.bas");r=0;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_MOUSEDOWN= 0 ; +if(!qbevent)break;evnt(26070,9482,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_MOUSEUP= 0 ; +if(!qbevent)break;evnt(26070,9483,"ide_methods.bas");}while(r); +dl_continue_5039:; +}while(1); +dl_exit_5039:; +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_IDEVARIABLEWATCHBOX,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9486,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,9487,"ide_methods.bas");}while(r); +LABEL_COPYLIST:; +if(qbevent){evnt(26070,9489,"ide_methods.bas");r=0;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9490,"ide_methods.bas");}while(r); +S_46608:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_IDEPROGNAME,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,9491,"ide_methods.bas");if(r)goto S_46608;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_PROPOSEDTITLE,FUNC_FINDPROPOSEDTITLE()); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9492,"ide_methods.bas");}while(r); +S_46610:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEVARIABLEWATCHBOX_STRING_PROPOSEDTITLE,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,9493,"ide_methods.bas");if(r)goto S_46610;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("QB64 - Variable List Report: untitled",37),__STRING_TEMPFOLDERINDEXSTR),qbs_new_txt_len(".bas",4)),func_chr( 10 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9494,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("QB64 - Variable List Report: ",29),_FUNC_IDEVARIABLEWATCHBOX_STRING_PROPOSEDTITLE),qbs_new_txt_len(".bas",4)),func_chr( 10 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9496,"ide_methods.bas");}while(r); +} +}else{ +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,qbs_add(qbs_add(qbs_new_txt_len("QB64 - Variable List Report: ",29),__STRING_IDEPROGNAME),func_chr( 10 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9499,"ide_methods.bas");}while(r); +} +S_46618:; +fornext_value5126= 1 ; +fornext_finalvalue5126=*__LONG_TOTALVARIABLESCREATED; +fornext_step5126= 1 ; +if (fornext_step5126<0) fornext_step_negative5126=1; else fornext_step_negative5126=0; +if (new_error) goto fornext_error5126; +goto fornext_entrylabel5126; +while(1){ +fornext_value5126=fornext_step5126+(*_FUNC_IDEVARIABLEWATCHBOX_LONG_X); +fornext_entrylabel5126: +*_FUNC_IDEVARIABLEWATCHBOX_LONG_X=fornext_value5126; +if (fornext_step_negative5126){ +if (fornext_value5126fornext_finalvalue5126) break; +} +fornext_error5126:; +if(qbevent){evnt(26070,9502,"ide_methods.bas");if(r)goto S_46618;} +S_46619:; +if ((*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+12)))||new_error){ +if(qbevent){evnt(26070,9503,"ide_methods.bas");if(r)goto S_46619;} +do{ +goto fornext_continue_5125; +if(!qbevent)break;evnt(26070,9503,"ide_methods.bas");}while(r); +} +S_46622:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDEVARIABLEWATCHBOX_STRING_SEARCHTERM->len))||new_error){ +if(qbevent){evnt(26070,9505,"ide_methods.bas");if(r)goto S_46622;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_THISSCOPE,*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+64)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9506,"ide_methods.bas");}while(r); +S_46624:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEVARIABLEWATCHBOX_STRING_THISSCOPE,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,9507,"ide_methods.bas");if(r)goto S_46624;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_THISSCOPE,_FUNC_IDEVARIABLEWATCHBOX_STRING_MAINMODULE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9507,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_ITEM,qbs_add(qbs_add(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+32))),*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+48)))),_FUNC_IDEVARIABLEWATCHBOX_STRING_THISSCOPE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9508,"ide_methods.bas");}while(r); +S_46628:; +if ((qbs_cleanup(qbs_tmp_base,-(FUNC_MULTISEARCH(_FUNC_IDEVARIABLEWATCHBOX_STRING_ITEM,_FUNC_IDEVARIABLEWATCHBOX_STRING_SEARCHTERM)== 0 )))||new_error){ +if(qbevent){evnt(26070,9509,"ide_methods.bas");if(r)goto S_46628;} +do{ +goto fornext_continue_5125; +if(!qbevent)break;evnt(26070,9510,"ide_methods.bas");}while(r); +} +} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,qbs_add(qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+32)))),qbs_new_txt_len(" ",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9514,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,func_space(*_FUNC_IDEVARIABLEWATCHBOX_LONG_MAXVARLEN-(*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+32)))->len))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9515,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,qbs_add(qbs_add(qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,qbs_new_txt_len(" ",1)),*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+48)))),func_space(*_FUNC_IDEVARIABLEWATCHBOX_LONG_MAXTYPELEN-(*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+48)))->len))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9516,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_L3,func_space( 2 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9518,"ide_methods.bas");}while(r); +S_46636:; +if ((qbs_cleanup(qbs_tmp_base,-((*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+64)))->len> 0 )))||new_error){ +if(qbevent){evnt(26070,9519,"ide_methods.bas");if(r)goto S_46636;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_L3,qbs_add(qbs_add(qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_L3,*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+64)))),func_space(*_FUNC_IDEVARIABLEWATCHBOX_LONG_MAXMODULENAMELEN-(*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+64)))->len)),func_chr( 10 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9520,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_L3,qbs_add(qbs_add(qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_L3,_FUNC_IDEVARIABLEWATCHBOX_STRING_MAINMODULE),func_space(*_FUNC_IDEVARIABLEWATCHBOX_LONG_MAXMODULENAMELEN-_FUNC_IDEVARIABLEWATCHBOX_STRING_MAINMODULE->len)),func_chr( 10 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9522,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,_FUNC_IDEVARIABLEWATCHBOX_STRING_L3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9525,"ide_methods.bas");}while(r); +fornext_continue_5125:; +} +fornext_exit_5125:; +do{ +sub__clipboard(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9527,"ide_methods.bas");}while(r); +do{ +#include "ret176.txt" +if(!qbevent)break;evnt(26070,9528,"ide_methods.bas");}while(r); +LABEL_BUILDLIST:; +if(qbevent){evnt(26070,9530,"ide_methods.bas");r=0;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_MAXVARLEN=((int32)(qbs_new_txt_len("Variable",8))->len); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9531,"ide_methods.bas");}while(r); +S_46646:; +fornext_value5130= 1 ; +fornext_finalvalue5130=*__LONG_TOTALVARIABLESCREATED; +fornext_step5130= 1 ; +if (fornext_step5130<0) fornext_step_negative5130=1; else fornext_step_negative5130=0; +if (new_error) goto fornext_error5130; +goto fornext_entrylabel5130; +while(1){ +fornext_value5130=fornext_step5130+(*_FUNC_IDEVARIABLEWATCHBOX_LONG_X); +fornext_entrylabel5130: +*_FUNC_IDEVARIABLEWATCHBOX_LONG_X=fornext_value5130; +if (fornext_step_negative5130){ +if (fornext_value5130fornext_finalvalue5130) break; +} +fornext_error5130:; +if(qbevent){evnt(26070,9532,"ide_methods.bas");if(r)goto S_46646;} +S_46647:; +if ((*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+12)))||new_error){ +if(qbevent){evnt(26070,9533,"ide_methods.bas");if(r)goto S_46647;} +do{ +goto fornext_continue_5129; +if(!qbevent)break;evnt(26070,9533,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISLEN=(*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+32)))->len+ 3 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9534,"ide_methods.bas");}while(r); +S_46651:; +if ((qbs_cleanup(qbs_tmp_base,-((*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+72)))->len> 0 )))||new_error){ +if(qbevent){evnt(26070,9535,"ide_methods.bas");if(r)goto S_46651;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISLEN=*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISLEN+(*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+72)))->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9536,"ide_methods.bas");}while(r); +} +S_46654:; +if ((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISLEN>*_FUNC_IDEVARIABLEWATCHBOX_LONG_MAXVARLEN))||new_error){ +if(qbevent){evnt(26070,9538,"ide_methods.bas");if(r)goto S_46654;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_MAXVARLEN=*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISLEN; +if(!qbevent)break;evnt(26070,9538,"ide_methods.bas");}while(r); +} +fornext_continue_5129:; +} +fornext_exit_5129:; +S_46658:; +if ((*_FUNC_IDEVARIABLEWATCHBOX_LONG_FIRSTRUN)||new_error){ +if(qbevent){evnt(26070,9541,"ide_methods.bas");if(r)goto S_46658;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_MSG,qbs_new_txt_len("Building Variable List...",25)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9542,"ide_methods.bas");}while(r); +S_46660:; +if ((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_SELECTVAR== -1 ))||new_error){ +if(qbevent){evnt(26070,9543,"ide_methods.bas");if(r)goto S_46660;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_MSG,qbs_new_txt_len("Analyzing Variable List...",26)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9543,"ide_methods.bas");}while(r); +} +do{ +SUB_IDEPAR((void*)( ((char*)(_FUNC_IDEVARIABLEWATCHBOX_UDT_P)) + (0) ),&(pass5131= 60 ),&(pass5132= 1 ),_FUNC_IDEVARIABLEWATCHBOX_STRING_MSG); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9544,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9547,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALVISIBLEVARIABLES= 0 ; +if(!qbevent)break;evnt(26070,9548,"ide_methods.bas");}while(r); +S_46667:; +fornext_value5134= 1 ; +fornext_finalvalue5134=*__LONG_TOTALVARIABLESCREATED; +fornext_step5134= 1 ; +if (fornext_step5134<0) fornext_step_negative5134=1; else fornext_step_negative5134=0; +if (new_error) goto fornext_error5134; +goto fornext_entrylabel5134; +while(1){ +fornext_value5134=fornext_step5134+(*_FUNC_IDEVARIABLEWATCHBOX_LONG_X); +fornext_entrylabel5134: +*_FUNC_IDEVARIABLEWATCHBOX_LONG_X=fornext_value5134; +if (fornext_step_negative5134){ +if (fornext_value5134fornext_finalvalue5134) break; +} +fornext_error5134:; +if(qbevent){evnt(26070,9549,"ide_methods.bas");if(r)goto S_46667;} +S_46668:; +if ((*_FUNC_IDEVARIABLEWATCHBOX_LONG_FIRSTRUN)||new_error){ +if(qbevent){evnt(26070,9551,"ide_methods.bas");if(r)goto S_46668;} +do{ +SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDEVARIABLEWATCHBOX_UDT_P)) + (0) )); +if(!qbevent)break;evnt(26070,9552,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,9553,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_C=*__LONG_TOTALVARIABLESCREATED; +if(!qbevent)break;evnt(26070,9554,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_N=*_FUNC_IDEVARIABLEWATCHBOX_LONG_X; +if(!qbevent)break;evnt(26070,9555,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_MAXPROGRESSWIDTH= 52 ; +if(!qbevent)break;evnt(26070,9557,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_PERCENTAGE=qbr(floor(*_FUNC_IDEVARIABLEWATCHBOX_LONG_N/ ((long double)(*_FUNC_IDEVARIABLEWATCHBOX_LONG_C))* 100 )); +if(!qbevent)break;evnt(26070,9558,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_PERCENTAGECHARS=qbr(floor(*_FUNC_IDEVARIABLEWATCHBOX_LONG_MAXPROGRESSWIDTH**_FUNC_IDEVARIABLEWATCHBOX_LONG_N/ ((long double)(*_FUNC_IDEVARIABLEWATCHBOX_LONG_C)))); +if(!qbevent)break;evnt(26070,9559,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_PERCENTAGEMSG,qbs_add(qbs_add(qbs_add(func_string(*_FUNC_IDEVARIABLEWATCHBOX_LONG_PERCENTAGECHARS, 219 ),func_string(*_FUNC_IDEVARIABLEWATCHBOX_LONG_MAXPROGRESSWIDTH-*_FUNC_IDEVARIABLEWATCHBOX_LONG_PERCENTAGECHARS, 176 )),qbs_str((int32)(*_FUNC_IDEVARIABLEWATCHBOX_LONG_PERCENTAGE))),qbs_new_txt_len("%",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9560,"ide_methods.bas");}while(r); +do{ +sub__printstring(*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_UDT_P)+(0))+((*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_UDT_P)+(8))/ 2 )-(_FUNC_IDEVARIABLEWATCHBOX_STRING_PERCENTAGEMSG->len/ 2 ))+ 1 ,*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_UDT_P)+(4))+ 1 ,_FUNC_IDEVARIABLEWATCHBOX_STRING_PERCENTAGEMSG,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9561,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 1 , 0 ); +if(!qbevent)break;evnt(26070,9563,"ide_methods.bas");}while(r); +} +S_46680:; +if ((*(int32*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+12)))||new_error){ +if(qbevent){evnt(26070,9566,"ide_methods.bas");if(r)goto S_46680;} +do{ +goto fornext_continue_5133; +if(!qbevent)break;evnt(26070,9566,"ide_methods.bas");}while(r); +} +S_46683:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDEVARIABLEWATCHBOX_STRING_SEARCHTERM->len))||new_error){ +if(qbevent){evnt(26070,9568,"ide_methods.bas");if(r)goto S_46683;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_THISSCOPE,*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+64)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9569,"ide_methods.bas");}while(r); +S_46685:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEVARIABLEWATCHBOX_STRING_THISSCOPE,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,9570,"ide_methods.bas");if(r)goto S_46685;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_THISSCOPE,_FUNC_IDEVARIABLEWATCHBOX_STRING_MAINMODULE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9570,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_ITEM,qbs_add(qbs_add(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+32))),*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+48)))),_FUNC_IDEVARIABLEWATCHBOX_STRING_THISSCOPE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9571,"ide_methods.bas");}while(r); +S_46689:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_IDEDEBUGMODE> 0 ))&(-(*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+30))== 0 ))&(-((*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+88)))->len== 0 ))&(-((*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+112)))->len== 4 ))))||new_error){ +if(qbevent){evnt(26070,9572,"ide_methods.bas");if(r)goto S_46689;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_ITEM,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_ITEM,FUNC_STRREPLACE(((qbs*)(((uint64*)(__ARRAY_STRING_VWATCHRECEIVEDDATA[0]))[array_check((string2l(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+112)))))-__ARRAY_STRING_VWATCHRECEIVEDDATA[4],__ARRAY_STRING_VWATCHRECEIVEDDATA[5])])),func_chr( 0 ),qbs_new_txt_len(" ",1)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9574,"ide_methods.bas");}while(r); +} +S_46692:; +if ((qbs_cleanup(qbs_tmp_base,-(FUNC_MULTISEARCH(_FUNC_IDEVARIABLEWATCHBOX_STRING_ITEM,_FUNC_IDEVARIABLEWATCHBOX_STRING_SEARCHTERM)== 0 )))||new_error){ +if(qbevent){evnt(26070,9576,"ide_methods.bas");if(r)goto S_46692;} +do{ +goto fornext_continue_5133; +if(!qbevent)break;evnt(26070,9577,"ide_methods.bas");}while(r); +} +} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALVISIBLEVARIABLES=*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALVISIBLEVARIABLES+ 1 ; +if(!qbevent)break;evnt(26070,9581,"ide_methods.bas");}while(r); +S_46697:; +while((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALVISIBLEVARIABLES>func_ubound(_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST,1,1)))||new_error){ +if(qbevent){evnt(26070,9582,"ide_methods.bas");if(r)goto S_46697;} +do{ if (_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[2]&2){ error(10); @@ -156174,440 +156174,440 @@ tmp_long=_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]; while(tmp_long--){ *(qbs**)(_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0]+(264/8+1-1)*tmp_long+ 25)=qbs_new(0,0);} } -} -if(!qbevent)break;evnt(26070,9583,"ide_methods.bas");}while(r); -ww_continue_5137:; -} -ww_exit_5137:; -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,func_chr( 17 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9586,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALVISIBLEVARIABLES)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+4))=_FUNC_IDEVARIABLEWATCHBOX_STRING_L->len+ 1 ; -if(!qbevent)break;evnt(26070,9587,"ide_methods.bas");}while(r); -S_46702:; -if ((*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+29)))||new_error){ -if(qbevent){evnt(26070,9588,"ide_methods.bas");if(r)goto S_46702;} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,func_chr(*_FUNC_IDEVARIABLEWATCHBOX_LONG_SELECTEDBG))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9589,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,func_chr( 17 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9591,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,func_chr( 16 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9594,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALVISIBLEVARIABLES)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33))=*_FUNC_IDEVARIABLEWATCHBOX_LONG_X; -if(!qbevent)break;evnt(26070,9595,"ide_methods.bas");}while(r); -S_46709:; -if (((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_ITEMTOSELECT> 0 ))&(-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_X==*_FUNC_IDEVARIABLEWATCHBOX_LONG_ITEMTOSELECT)))||new_error){ -if(qbevent){evnt(26070,9596,"ide_methods.bas");if(r)goto S_46709;} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_ITEMTOSELECT= 0 ; -if(!qbevent)break;evnt(26070,9596,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+64))=*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALVISIBLEVARIABLES; -if(!qbevent)break;evnt(26070,9596,"ide_methods.bas");}while(r); -} -do{ -*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALVISIBLEVARIABLES)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+8))=_FUNC_IDEVARIABLEWATCHBOX_STRING_L->len+ 1 ; -if(!qbevent)break;evnt(26070,9597,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALVISIBLEVARIABLES)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+16))=_FUNC_IDEVARIABLEWATCHBOX_STRING_L->len+ 2 ; -if(!qbevent)break;evnt(26070,9598,"ide_methods.bas");}while(r); -S_46715:; -if ((*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+29)))||new_error){ -if(qbevent){evnt(26070,9599,"ide_methods.bas");if(r)goto S_46715;} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,qbs_add(qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,func_chr(*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARIABLENAMECOLOR)),qbs_new_txt_len("+",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9600,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,qbs_add(qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,func_chr( 16 )),qbs_new_txt_len(" ",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9602,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_THISNAME,*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+32)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9605,"ide_methods.bas");}while(r); -S_46721:; -if ((qbs_cleanup(qbs_tmp_base,(*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+72)))->len))||new_error){ -if(qbevent){evnt(26070,9606,"ide_methods.bas");if(r)goto S_46721;} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_THISNAME,qbs_add(qbs_add(qbs_left(_FUNC_IDEVARIABLEWATCHBOX_STRING_THISNAME,_FUNC_IDEVARIABLEWATCHBOX_STRING_THISNAME->len- 1 ),*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+72)))),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9607,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,l2string(*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9611,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_I= 0 ; -if(!qbevent)break;evnt(26070,9612,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_I=func_instr(*_FUNC_IDEVARIABLEWATCHBOX_LONG_I+ 1 ,__STRING_WATCHPOINTLIST,l2string( -1 ),0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9613,"ide_methods.bas");}while(r); -S_46727:; -while((*_FUNC_IDEVARIABLEWATCHBOX_LONG_I)||new_error){ -if(qbevent){evnt(26070,9614,"ide_methods.bas");if(r)goto S_46727;} -S_46728:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(__STRING_WATCHPOINTLIST,*_FUNC_IDEVARIABLEWATCHBOX_LONG_I+ 8 ,_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP->len,0|1),_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP)))||new_error){ -if(qbevent){evnt(26070,9615,"ide_methods.bas");if(r)goto S_46728;} -do{ -goto dl_exit_5142; -if(!qbevent)break;evnt(26070,9615,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_I=func_instr(*_FUNC_IDEVARIABLEWATCHBOX_LONG_I+ 1 ,__STRING_WATCHPOINTLIST,l2string( -1 ),0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9616,"ide_methods.bas");}while(r); -dl_continue_5142:; -} -dl_exit_5142:; -S_46733:; -if ((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_I> 0 ))||new_error){ -if(qbevent){evnt(26070,9619,"ide_methods.bas");if(r)goto S_46733;} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_THISNAME,qbs_add(qbs_add(qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_THISNAME,func_chr( 16 )),func_chr( 4 )),func_chr( 7 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9620,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_THISNAME,qbs_add(qbs_add(qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_THISNAME,func_chr( 16 )),func_chr( 16 )),qbs_new_txt_len(" ",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9622,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEXT,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_THISNAME,func_chr( 16 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9625,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALVISIBLEVARIABLES)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+12))=_FUNC_IDEVARIABLEWATCHBOX_STRING_L->len+_FUNC_IDEVARIABLEWATCHBOX_STRING_TEXT->len+ 1 ; -if(!qbevent)break;evnt(26070,9626,"ide_methods.bas");}while(r); -S_46740:; -if ((*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+29)))||new_error){ -if(qbevent){evnt(26070,9627,"ide_methods.bas");if(r)goto S_46740;} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEXT,qbs_add(qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEXT,func_chr(*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYPECOLUMNCOLOR)),qbs_new_txt_len(" ",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9628,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEXT,qbs_add(qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEXT,func_chr( 2 )),qbs_new_txt_len(" ",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9630,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEXT,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEXT,func_space(*_FUNC_IDEVARIABLEWATCHBOX_LONG_MAXVARLEN-_FUNC_IDEVARIABLEWATCHBOX_STRING_THISNAME->len))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9632,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEXT,qbs_add(qbs_add(qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEXT,qbs_new_txt_len(" ",1)),*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+48)))),func_space(*_FUNC_IDEVARIABLEWATCHBOX_LONG_MAXTYPELEN-(*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+48)))->len))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9633,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_L3,func_space( 2 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9635,"ide_methods.bas");}while(r); -S_46748:; -if ((qbs_cleanup(qbs_tmp_base,-((*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+64)))->len> 0 )))||new_error){ -if(qbevent){evnt(26070,9636,"ide_methods.bas");if(r)goto S_46748;} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_L3,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_L3,*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+64)))),func_space(*_FUNC_IDEVARIABLEWATCHBOX_LONG_MAXMODULENAMELEN-(*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+64)))->len)),func_chr( 16 )),func_chr( 16 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9637,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_L3,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_L3,_FUNC_IDEVARIABLEWATCHBOX_STRING_MAINMODULE),func_space(*_FUNC_IDEVARIABLEWATCHBOX_LONG_MAXMODULENAMELEN-_FUNC_IDEVARIABLEWATCHBOX_STRING_MAINMODULE->len)),func_chr( 16 )),func_chr( 16 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9639,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,qbs_add(qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,_FUNC_IDEVARIABLEWATCHBOX_STRING_TEXT),_FUNC_IDEVARIABLEWATCHBOX_STRING_L3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9642,"ide_methods.bas");}while(r); -S_46754:; -if ((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_X== 1 ))||new_error){ -if(qbevent){evnt(26070,9643,"ide_methods.bas");if(r)goto S_46754;} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_DOUBLECLICKTHRESHOLD=_FUNC_IDEVARIABLEWATCHBOX_STRING_L->len- 3 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9643,"ide_methods.bas");}while(r); -} -S_46757:; -if ((-(*__LONG_IDEDEBUGMODE> 0 ))||new_error){ -if(qbevent){evnt(26070,9645,"ide_methods.bas");if(r)goto S_46757;} -S_46758:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+64))),_FUNC_IDEVARIABLEWATCHBOX_STRING_CURRENTSCOPE))|(qbs_equal(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+64))),qbs_new_txt_len("",0)))))||new_error){ -if(qbevent){evnt(26070,9646,"ide_methods.bas");if(r)goto S_46758;} -S_46759:; -if ((*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+29)))||new_error){ -if(qbevent){evnt(26070,9647,"ide_methods.bas");if(r)goto S_46759;} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISISASTRING=((-(func_instr(NULL,*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+48))),qbs_new_txt_len("STRING *",8),0)> 0 ))|(qbs_equal(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+48))),qbs_new_txt_len("STRING",6)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9648,"ide_methods.bas");}while(r); -S_46761:; -if ((qbs_cleanup(qbs_tmp_base,(-(*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+30))!= 0 ))&(-((*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+88)))->len== 0 ))))||new_error){ -if(qbevent){evnt(26070,9649,"ide_methods.bas");if(r)goto S_46761;} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+112)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9651,"ide_methods.bas");}while(r); -S_46763:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP->len))||new_error){ -if(qbevent){evnt(26070,9652,"ide_methods.bas");if(r)goto S_46763;} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,qbs_new_txt_len(" = ",3)),func_chr( 16 )),func_chr(*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARIABLENAMECOLOR)),qbs_new_txt_len("{",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9652,"ide_methods.bas");}while(r); -} -S_46766:; -while((qbs_cleanup(qbs_tmp_base,_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP->len))||new_error){ -if(qbevent){evnt(26070,9653,"ide_methods.bas");if(r)goto S_46766;} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_STORAGESLOT=string2l(qbs_left(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP, 4 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9654,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,func_mid(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP, 5 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9655,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPVALUE,FUNC_STRREPLACE(((qbs*)(((uint64*)(__ARRAY_STRING_VWATCHRECEIVEDDATA[0]))[array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_STORAGESLOT)-__ARRAY_STRING_VWATCHRECEIVEDDATA[4],__ARRAY_STRING_VWATCHRECEIVEDDATA[5])])),func_chr( 0 ),qbs_new_txt_len(" ",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9656,"ide_methods.bas");}while(r); -S_46770:; -if ((*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISISASTRING)||new_error){ -if(qbevent){evnt(26070,9657,"ide_methods.bas");if(r)goto S_46770;} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,func_chr( 34 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9658,"ide_methods.bas");}while(r); -}else{ -S_46773:; -sc_5152=*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+31)); -if(qbevent){evnt(26070,9660,"ide_methods.bas");if(r)goto S_46773;} -S_46774:; -if (((sc_5152==( 1 )))||new_error){ -if(qbevent){evnt(26070,9662,"ide_methods.bas");if(r)goto S_46774;} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPVALUE,qbs_add(qbs_new_txt_len("&H",2),func_hex_float(func_val(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPVALUE)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9662,"ide_methods.bas");}while(r); -sc_ec_352_end:; -goto sc_5152_end; -} -S_46776:; -if (((sc_5152==( 2 )))||new_error){ -if(qbevent){evnt(26070,9663,"ide_methods.bas");if(r)goto S_46776;} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPVALUE,qbs_add(qbs_new_txt_len("&B",2),func__bin_float(func_val(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPVALUE)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9663,"ide_methods.bas");}while(r); -sc_ec_353_end:; -goto sc_5152_end; -} -S_46778:; -if (((sc_5152==( 3 )))||new_error){ -if(qbevent){evnt(26070,9664,"ide_methods.bas");if(r)goto S_46778;} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPVALUE,qbs_add(qbs_new_txt_len("&O",2),func_oct_float(func_val(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPVALUE)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9664,"ide_methods.bas");}while(r); -sc_ec_354_end:; -goto sc_5152_end; -} -sc_5152_end:; -} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPVALUE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9667,"ide_methods.bas");}while(r); -S_46783:; -if ((*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISISASTRING)||new_error){ -if(qbevent){evnt(26070,9668,"ide_methods.bas");if(r)goto S_46783;} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,func_chr( 34 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9668,"ide_methods.bas");}while(r); -} -S_46786:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP->len))||new_error){ -if(qbevent){evnt(26070,9669,"ide_methods.bas");if(r)goto S_46786;} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,qbs_new_txt_len(",",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9669,"ide_methods.bas");}while(r); -} -dl_continue_5151:; -} -dl_exit_5151:; -S_46790:; -if ((qbs_cleanup(qbs_tmp_base,(*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+112)))->len))||new_error){ -if(qbevent){evnt(26070,9671,"ide_methods.bas");if(r)goto S_46790;} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,qbs_new_txt_len("}",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9671,"ide_methods.bas");}while(r); -} -S_46793:; -}else{ -if (qbs_cleanup(qbs_tmp_base,(-(*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+30))== 0 ))&(-((*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+88)))->len== 0 )))){ -if(qbevent){evnt(26070,9672,"ide_methods.bas");if(r)goto S_46793;} -S_46794:; -if ((qbs_cleanup(qbs_tmp_base,-((*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+112)))->len== 4 )))||new_error){ -if(qbevent){evnt(26070,9674,"ide_methods.bas");if(r)goto S_46794;} -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_STORAGESLOT=string2l(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+112)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9675,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,qbs_add(qbs_add(qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,qbs_new_txt_len(" = ",3)),func_chr( 16 )),func_chr(*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARIABLENAMECOLOR))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9676,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPVALUE,FUNC_STRREPLACE(((qbs*)(((uint64*)(__ARRAY_STRING_VWATCHRECEIVEDDATA[0]))[array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_STORAGESLOT)-__ARRAY_STRING_VWATCHRECEIVEDDATA[4],__ARRAY_STRING_VWATCHRECEIVEDDATA[5])])),func_chr( 0 ),qbs_new_txt_len(" ",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9677,"ide_methods.bas");}while(r); -S_46798:; -if ((*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISISASTRING)||new_error){ -if(qbevent){evnt(26070,9678,"ide_methods.bas");if(r)goto S_46798;} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,func_chr( 34 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9679,"ide_methods.bas");}while(r); -}else{ -S_46801:; -sc_5154=*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+31)); -if(qbevent){evnt(26070,9681,"ide_methods.bas");if(r)goto S_46801;} -S_46802:; -if (((sc_5154==( 1 )))||new_error){ -if(qbevent){evnt(26070,9683,"ide_methods.bas");if(r)goto S_46802;} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPVALUE,qbs_add(qbs_new_txt_len("&H",2),func_hex_float(func_val(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPVALUE)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9683,"ide_methods.bas");}while(r); -sc_ec_355_end:; -goto sc_5154_end; -} -S_46804:; -if (((sc_5154==( 2 )))||new_error){ -if(qbevent){evnt(26070,9684,"ide_methods.bas");if(r)goto S_46804;} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPVALUE,qbs_add(qbs_new_txt_len("&B",2),func__bin_float(func_val(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPVALUE)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9684,"ide_methods.bas");}while(r); -sc_ec_356_end:; -goto sc_5154_end; -} -S_46806:; -if (((sc_5154==( 3 )))||new_error){ -if(qbevent){evnt(26070,9685,"ide_methods.bas");if(r)goto S_46806;} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPVALUE,qbs_add(qbs_new_txt_len("&O",2),func_oct_float(func_val(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPVALUE)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9685,"ide_methods.bas");}while(r); -sc_ec_357_end:; -goto sc_5154_end; -} -sc_5154_end:; -} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPVALUE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9688,"ide_methods.bas");}while(r); -S_46811:; -if ((*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISISASTRING)||new_error){ -if(qbevent){evnt(26070,9689,"ide_methods.bas");if(r)goto S_46811;} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,func_chr( 34 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9689,"ide_methods.bas");}while(r); -} -} -}else{ -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,qbs_add(qbs_add(qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,qbs_new_txt_len(" = ",3)),func_chr( 16 )),func_chr(*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARIABLENAMECOLOR))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9692,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,qbs_new_txt_len("",17))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9693,"ide_methods.bas");}while(r); -} -} -} -}else{ -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,qbs_new_txt_len(" ",17))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9697,"ide_methods.bas");}while(r); -} -} -S_46824:; -if ((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_X<*__LONG_TOTALVARIABLESCREATED))||new_error){ -if(qbevent){evnt(26070,9700,"ide_methods.bas");if(r)goto S_46824;} -do{ -qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,_FUNC_IDEVARIABLEWATCHBOX_STRING1_SEP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9700,"ide_methods.bas");}while(r); -} -fornext_continue_5133:; -} -fornext_exit_5133:; -do{ -*_FUNC_IDEVARIABLEWATCHBOX_LONG_ITEMTOSELECT= 0 ; -if(!qbevent)break;evnt(26070,9702,"ide_methods.bas");}while(r); -do{ -#include "ret176.txt" -if(!qbevent)break;evnt(26070,9703,"ide_methods.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free176.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_IDEVARIABLEWATCHBOX_STRING_IDEVARIABLEWATCHBOX);return _FUNC_IDEVARIABLEWATCHBOX_STRING_IDEVARIABLEWATCHBOX; -} -qbs* FUNC_IDEELEMENTWATCHBOX(qbs*_FUNC_IDEELEMENTWATCHBOX_STRING_CURRENTPATH,qbs*_FUNC_IDEELEMENTWATCHBOX_STRING_ELEMENTINDEXES,int32*_FUNC_IDEELEMENTWATCHBOX_LONG_LEVEL,int32*_FUNC_IDEELEMENTWATCHBOX_LONG_SINGLEELEMENTSELECTION,int32*_FUNC_IDEELEMENTWATCHBOX_LONG_OK){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data177.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -sub_pcopy( 4 , 0 ); -if(!qbevent)break;evnt(26070,9709,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 0 , 1 ); -if(!qbevent)break;evnt(26070,9710,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,9711,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEELEMENTWATCHBOX_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(26070,9712,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(26070,9713,"ide_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26070,9583,"ide_methods.bas");}while(r); +ww_continue_5137:; +} +ww_exit_5137:; +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,func_chr( 17 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9586,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALVISIBLEVARIABLES)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+4))=_FUNC_IDEVARIABLEWATCHBOX_STRING_L->len+ 1 ; +if(!qbevent)break;evnt(26070,9587,"ide_methods.bas");}while(r); +S_46702:; +if ((*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+29)))||new_error){ +if(qbevent){evnt(26070,9588,"ide_methods.bas");if(r)goto S_46702;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,func_chr(*_FUNC_IDEVARIABLEWATCHBOX_LONG_SELECTEDBG))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9589,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,func_chr( 17 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9591,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,func_chr( 16 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9594,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALVISIBLEVARIABLES)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33))=*_FUNC_IDEVARIABLEWATCHBOX_LONG_X; +if(!qbevent)break;evnt(26070,9595,"ide_methods.bas");}while(r); +S_46709:; +if (((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_ITEMTOSELECT> 0 ))&(-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_X==*_FUNC_IDEVARIABLEWATCHBOX_LONG_ITEMTOSELECT)))||new_error){ +if(qbevent){evnt(26070,9596,"ide_methods.bas");if(r)goto S_46709;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_ITEMTOSELECT= 0 ; +if(!qbevent)break;evnt(26070,9596,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_O[5]))*89+64))=*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALVISIBLEVARIABLES; +if(!qbevent)break;evnt(26070,9596,"ide_methods.bas");}while(r); +} +do{ +*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALVISIBLEVARIABLES)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+8))=_FUNC_IDEVARIABLEWATCHBOX_STRING_L->len+ 1 ; +if(!qbevent)break;evnt(26070,9597,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALVISIBLEVARIABLES)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+16))=_FUNC_IDEVARIABLEWATCHBOX_STRING_L->len+ 2 ; +if(!qbevent)break;evnt(26070,9598,"ide_methods.bas");}while(r); +S_46715:; +if ((*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+29)))||new_error){ +if(qbevent){evnt(26070,9599,"ide_methods.bas");if(r)goto S_46715;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,qbs_add(qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,func_chr(*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARIABLENAMECOLOR)),qbs_new_txt_len("+",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9600,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,qbs_add(qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,func_chr( 16 )),qbs_new_txt_len(" ",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9602,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_THISNAME,*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+32)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9605,"ide_methods.bas");}while(r); +S_46721:; +if ((qbs_cleanup(qbs_tmp_base,(*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+72)))->len))||new_error){ +if(qbevent){evnt(26070,9606,"ide_methods.bas");if(r)goto S_46721;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_THISNAME,qbs_add(qbs_add(qbs_left(_FUNC_IDEVARIABLEWATCHBOX_STRING_THISNAME,_FUNC_IDEVARIABLEWATCHBOX_STRING_THISNAME->len- 1 ),*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+72)))),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9607,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,l2string(*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9611,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_I= 0 ; +if(!qbevent)break;evnt(26070,9612,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_I=func_instr(*_FUNC_IDEVARIABLEWATCHBOX_LONG_I+ 1 ,__STRING_WATCHPOINTLIST,l2string( -1 ),0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9613,"ide_methods.bas");}while(r); +S_46727:; +while((*_FUNC_IDEVARIABLEWATCHBOX_LONG_I)||new_error){ +if(qbevent){evnt(26070,9614,"ide_methods.bas");if(r)goto S_46727;} +S_46728:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(__STRING_WATCHPOINTLIST,*_FUNC_IDEVARIABLEWATCHBOX_LONG_I+ 8 ,_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP->len,0|1),_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP)))||new_error){ +if(qbevent){evnt(26070,9615,"ide_methods.bas");if(r)goto S_46728;} +do{ +goto dl_exit_5142; +if(!qbevent)break;evnt(26070,9615,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_I=func_instr(*_FUNC_IDEVARIABLEWATCHBOX_LONG_I+ 1 ,__STRING_WATCHPOINTLIST,l2string( -1 ),0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9616,"ide_methods.bas");}while(r); +dl_continue_5142:; +} +dl_exit_5142:; +S_46733:; +if ((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_I> 0 ))||new_error){ +if(qbevent){evnt(26070,9619,"ide_methods.bas");if(r)goto S_46733;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_THISNAME,qbs_add(qbs_add(qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_THISNAME,func_chr( 16 )),func_chr( 4 )),func_chr( 7 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9620,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_THISNAME,qbs_add(qbs_add(qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_THISNAME,func_chr( 16 )),func_chr( 16 )),qbs_new_txt_len(" ",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9622,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEXT,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_THISNAME,func_chr( 16 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9625,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_TOTALVISIBLEVARIABLES)-_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEVARIABLEWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+12))=_FUNC_IDEVARIABLEWATCHBOX_STRING_L->len+_FUNC_IDEVARIABLEWATCHBOX_STRING_TEXT->len+ 1 ; +if(!qbevent)break;evnt(26070,9626,"ide_methods.bas");}while(r); +S_46740:; +if ((*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+29)))||new_error){ +if(qbevent){evnt(26070,9627,"ide_methods.bas");if(r)goto S_46740;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEXT,qbs_add(qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEXT,func_chr(*_FUNC_IDEVARIABLEWATCHBOX_LONG_TYPECOLUMNCOLOR)),qbs_new_txt_len(" ",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9628,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEXT,qbs_add(qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEXT,func_chr( 2 )),qbs_new_txt_len(" ",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9630,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEXT,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEXT,func_space(*_FUNC_IDEVARIABLEWATCHBOX_LONG_MAXVARLEN-_FUNC_IDEVARIABLEWATCHBOX_STRING_THISNAME->len))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9632,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEXT,qbs_add(qbs_add(qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEXT,qbs_new_txt_len(" ",1)),*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+48)))),func_space(*_FUNC_IDEVARIABLEWATCHBOX_LONG_MAXTYPELEN-(*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+48)))->len))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9633,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_L3,func_space( 2 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9635,"ide_methods.bas");}while(r); +S_46748:; +if ((qbs_cleanup(qbs_tmp_base,-((*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+64)))->len> 0 )))||new_error){ +if(qbevent){evnt(26070,9636,"ide_methods.bas");if(r)goto S_46748;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_L3,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_L3,*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+64)))),func_space(*_FUNC_IDEVARIABLEWATCHBOX_LONG_MAXMODULENAMELEN-(*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+64)))->len)),func_chr( 16 )),func_chr( 16 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9637,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_L3,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_L3,_FUNC_IDEVARIABLEWATCHBOX_STRING_MAINMODULE),func_space(*_FUNC_IDEVARIABLEWATCHBOX_LONG_MAXMODULENAMELEN-_FUNC_IDEVARIABLEWATCHBOX_STRING_MAINMODULE->len)),func_chr( 16 )),func_chr( 16 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9639,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,qbs_add(qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,_FUNC_IDEVARIABLEWATCHBOX_STRING_TEXT),_FUNC_IDEVARIABLEWATCHBOX_STRING_L3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9642,"ide_methods.bas");}while(r); +S_46754:; +if ((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_X== 1 ))||new_error){ +if(qbevent){evnt(26070,9643,"ide_methods.bas");if(r)goto S_46754;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_DOUBLECLICKTHRESHOLD=_FUNC_IDEVARIABLEWATCHBOX_STRING_L->len- 3 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9643,"ide_methods.bas");}while(r); +} +S_46757:; +if ((-(*__LONG_IDEDEBUGMODE> 0 ))||new_error){ +if(qbevent){evnt(26070,9645,"ide_methods.bas");if(r)goto S_46757;} +S_46758:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+64))),_FUNC_IDEVARIABLEWATCHBOX_STRING_CURRENTSCOPE))|(qbs_equal(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+64))),qbs_new_txt_len("",0)))))||new_error){ +if(qbevent){evnt(26070,9646,"ide_methods.bas");if(r)goto S_46758;} +S_46759:; +if ((*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+29)))||new_error){ +if(qbevent){evnt(26070,9647,"ide_methods.bas");if(r)goto S_46759;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISISASTRING=((-(func_instr(NULL,*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+48))),qbs_new_txt_len("STRING *",8),0)> 0 ))|(qbs_equal(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+48))),qbs_new_txt_len("STRING",6)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9648,"ide_methods.bas");}while(r); +S_46761:; +if ((qbs_cleanup(qbs_tmp_base,(-(*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+30))!= 0 ))&(-((*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+88)))->len== 0 ))))||new_error){ +if(qbevent){evnt(26070,9649,"ide_methods.bas");if(r)goto S_46761;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+112)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9651,"ide_methods.bas");}while(r); +S_46763:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP->len))||new_error){ +if(qbevent){evnt(26070,9652,"ide_methods.bas");if(r)goto S_46763;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,qbs_new_txt_len(" = ",3)),func_chr( 16 )),func_chr(*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARIABLENAMECOLOR)),qbs_new_txt_len("{",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9652,"ide_methods.bas");}while(r); +} +S_46766:; +while((qbs_cleanup(qbs_tmp_base,_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP->len))||new_error){ +if(qbevent){evnt(26070,9653,"ide_methods.bas");if(r)goto S_46766;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_STORAGESLOT=string2l(qbs_left(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP, 4 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9654,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP,func_mid(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP, 5 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9655,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPVALUE,FUNC_STRREPLACE(((qbs*)(((uint64*)(__ARRAY_STRING_VWATCHRECEIVEDDATA[0]))[array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_STORAGESLOT)-__ARRAY_STRING_VWATCHRECEIVEDDATA[4],__ARRAY_STRING_VWATCHRECEIVEDDATA[5])])),func_chr( 0 ),qbs_new_txt_len(" ",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9656,"ide_methods.bas");}while(r); +S_46770:; +if ((*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISISASTRING)||new_error){ +if(qbevent){evnt(26070,9657,"ide_methods.bas");if(r)goto S_46770;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,func_chr( 34 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9658,"ide_methods.bas");}while(r); +}else{ +S_46773:; +sc_5152=*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+31)); +if(qbevent){evnt(26070,9660,"ide_methods.bas");if(r)goto S_46773;} +S_46774:; +if (((sc_5152==( 1 )))||new_error){ +if(qbevent){evnt(26070,9662,"ide_methods.bas");if(r)goto S_46774;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPVALUE,qbs_add(qbs_new_txt_len("&H",2),func_hex_float(func_val(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPVALUE)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9662,"ide_methods.bas");}while(r); +sc_ec_352_end:; +goto sc_5152_end; +} +S_46776:; +if (((sc_5152==( 2 )))||new_error){ +if(qbevent){evnt(26070,9663,"ide_methods.bas");if(r)goto S_46776;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPVALUE,qbs_add(qbs_new_txt_len("&B",2),func__bin_float(func_val(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPVALUE)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9663,"ide_methods.bas");}while(r); +sc_ec_353_end:; +goto sc_5152_end; +} +S_46778:; +if (((sc_5152==( 3 )))||new_error){ +if(qbevent){evnt(26070,9664,"ide_methods.bas");if(r)goto S_46778;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPVALUE,qbs_add(qbs_new_txt_len("&O",2),func_oct_float(func_val(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPVALUE)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9664,"ide_methods.bas");}while(r); +sc_ec_354_end:; +goto sc_5152_end; +} +sc_5152_end:; +} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPVALUE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9667,"ide_methods.bas");}while(r); +S_46783:; +if ((*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISISASTRING)||new_error){ +if(qbevent){evnt(26070,9668,"ide_methods.bas");if(r)goto S_46783;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,func_chr( 34 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9668,"ide_methods.bas");}while(r); +} +S_46786:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMP->len))||new_error){ +if(qbevent){evnt(26070,9669,"ide_methods.bas");if(r)goto S_46786;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,qbs_new_txt_len(",",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9669,"ide_methods.bas");}while(r); +} +dl_continue_5151:; +} +dl_exit_5151:; +S_46790:; +if ((qbs_cleanup(qbs_tmp_base,(*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+112)))->len))||new_error){ +if(qbevent){evnt(26070,9671,"ide_methods.bas");if(r)goto S_46790;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,qbs_new_txt_len("}",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9671,"ide_methods.bas");}while(r); +} +S_46793:; +}else{ +if (qbs_cleanup(qbs_tmp_base,(-(*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+30))== 0 ))&(-((*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+88)))->len== 0 )))){ +if(qbevent){evnt(26070,9672,"ide_methods.bas");if(r)goto S_46793;} +S_46794:; +if ((qbs_cleanup(qbs_tmp_base,-((*(qbs**)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+112)))->len== 4 )))||new_error){ +if(qbevent){evnt(26070,9674,"ide_methods.bas");if(r)goto S_46794;} +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_STORAGESLOT=string2l(*((qbs**)((char*)__ARRAY_UDT_USEDVARIABLELIST[0]+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+112)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9675,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,qbs_add(qbs_add(qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,qbs_new_txt_len(" = ",3)),func_chr( 16 )),func_chr(*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARIABLENAMECOLOR))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9676,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPVALUE,FUNC_STRREPLACE(((qbs*)(((uint64*)(__ARRAY_STRING_VWATCHRECEIVEDDATA[0]))[array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_STORAGESLOT)-__ARRAY_STRING_VWATCHRECEIVEDDATA[4],__ARRAY_STRING_VWATCHRECEIVEDDATA[5])])),func_chr( 0 ),qbs_new_txt_len(" ",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9677,"ide_methods.bas");}while(r); +S_46798:; +if ((*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISISASTRING)||new_error){ +if(qbevent){evnt(26070,9678,"ide_methods.bas");if(r)goto S_46798;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,func_chr( 34 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9679,"ide_methods.bas");}while(r); +}else{ +S_46801:; +sc_5154=*(int8*)(((char*)__ARRAY_UDT_USEDVARIABLELIST[0])+((array_check((*_FUNC_IDEVARIABLEWATCHBOX_LONG_X)-__ARRAY_UDT_USEDVARIABLELIST[4],__ARRAY_UDT_USEDVARIABLELIST[5]))*120+31)); +if(qbevent){evnt(26070,9681,"ide_methods.bas");if(r)goto S_46801;} +S_46802:; +if (((sc_5154==( 1 )))||new_error){ +if(qbevent){evnt(26070,9683,"ide_methods.bas");if(r)goto S_46802;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPVALUE,qbs_add(qbs_new_txt_len("&H",2),func_hex_float(func_val(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPVALUE)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9683,"ide_methods.bas");}while(r); +sc_ec_355_end:; +goto sc_5154_end; +} +S_46804:; +if (((sc_5154==( 2 )))||new_error){ +if(qbevent){evnt(26070,9684,"ide_methods.bas");if(r)goto S_46804;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPVALUE,qbs_add(qbs_new_txt_len("&B",2),func__bin_float(func_val(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPVALUE)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9684,"ide_methods.bas");}while(r); +sc_ec_356_end:; +goto sc_5154_end; +} +S_46806:; +if (((sc_5154==( 3 )))||new_error){ +if(qbevent){evnt(26070,9685,"ide_methods.bas");if(r)goto S_46806;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPVALUE,qbs_add(qbs_new_txt_len("&O",2),func_oct_float(func_val(_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPVALUE)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9685,"ide_methods.bas");}while(r); +sc_ec_357_end:; +goto sc_5154_end; +} +sc_5154_end:; +} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,_FUNC_IDEVARIABLEWATCHBOX_STRING_TEMPVALUE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9688,"ide_methods.bas");}while(r); +S_46811:; +if ((*_FUNC_IDEVARIABLEWATCHBOX_LONG_THISISASTRING)||new_error){ +if(qbevent){evnt(26070,9689,"ide_methods.bas");if(r)goto S_46811;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,func_chr( 34 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9689,"ide_methods.bas");}while(r); +} +} +}else{ +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,qbs_add(qbs_add(qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,qbs_new_txt_len(" = ",3)),func_chr( 16 )),func_chr(*_FUNC_IDEVARIABLEWATCHBOX_LONG_VARIABLENAMECOLOR))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9692,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,qbs_new_txt_len("",17))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9693,"ide_methods.bas");}while(r); +} +} +} +}else{ +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,qbs_new_txt_len(" ",17))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9697,"ide_methods.bas");}while(r); +} +} +S_46824:; +if ((-(*_FUNC_IDEVARIABLEWATCHBOX_LONG_X<*__LONG_TOTALVARIABLESCREATED))||new_error){ +if(qbevent){evnt(26070,9700,"ide_methods.bas");if(r)goto S_46824;} +do{ +qbs_set(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,qbs_add(_FUNC_IDEVARIABLEWATCHBOX_STRING_L,_FUNC_IDEVARIABLEWATCHBOX_STRING1_SEP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9700,"ide_methods.bas");}while(r); +} +fornext_continue_5133:; +} +fornext_exit_5133:; +do{ +*_FUNC_IDEVARIABLEWATCHBOX_LONG_ITEMTOSELECT= 0 ; +if(!qbevent)break;evnt(26070,9702,"ide_methods.bas");}while(r); +do{ +#include "ret176.txt" +if(!qbevent)break;evnt(26070,9703,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free176.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_IDEVARIABLEWATCHBOX_STRING_IDEVARIABLEWATCHBOX);return _FUNC_IDEVARIABLEWATCHBOX_STRING_IDEVARIABLEWATCHBOX; +} +qbs* FUNC_IDEELEMENTWATCHBOX(qbs*_FUNC_IDEELEMENTWATCHBOX_STRING_CURRENTPATH,qbs*_FUNC_IDEELEMENTWATCHBOX_STRING_ELEMENTINDEXES,int32*_FUNC_IDEELEMENTWATCHBOX_LONG_LEVEL,int32*_FUNC_IDEELEMENTWATCHBOX_LONG_SINGLEELEMENTSELECTION,int32*_FUNC_IDEELEMENTWATCHBOX_LONG_OK){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data177.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +sub_pcopy( 4 , 0 ); +if(!qbevent)break;evnt(26070,9709,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 0 , 1 ); +if(!qbevent)break;evnt(26070,9710,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,9711,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_FOCUS= 1 ; +if(!qbevent)break;evnt(26070,9712,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26070,9713,"ide_methods.bas");}while(r); +do{ if (_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[2]&2){ error(10); @@ -156627,41 +156627,41 @@ if (!_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0]) error(257); } _FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[2]|=1; } -} -if(!qbevent)break;evnt(26070,9714,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(26070,9715,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING1_SEP,func_chr( 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9716,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(26070,9721,"ide_methods.bas");}while(r); -S_46839:; -if ((-(*_FUNC_IDEELEMENTWATCHBOX_LONG_LEVEL== 0 ))||new_error){ -if(qbevent){evnt(26070,9722,"ide_methods.bas");if(r)goto S_46839;} -do{ -qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_RETURNLIST,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9722,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEELEMENTWATCHBOX_LONG_OK= 0 ; -if(!qbevent)break;evnt(26070,9724,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEELEMENTWATCHBOX_LONG_VARIABLENAMECOLOR= 3 ; -if(!qbevent)break;evnt(26070,9725,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEELEMENTWATCHBOX_LONG_TYPECOLUMNCOLOR= 15 ; -if(!qbevent)break;evnt(26070,9726,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEELEMENTWATCHBOX_LONG_SELECTEDBG= 2 ; -if(!qbevent)break;evnt(26070,9727,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEELEMENTWATCHBOX_LONG_TOTALELEMENTS=_FUNC_IDEELEMENTWATCHBOX_STRING_ELEMENTINDEXES->len/ 4 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9729,"ide_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26070,9714,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26070,9715,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING1_SEP,func_chr( 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9716,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26070,9721,"ide_methods.bas");}while(r); +S_46839:; +if ((-(*_FUNC_IDEELEMENTWATCHBOX_LONG_LEVEL== 0 ))||new_error){ +if(qbevent){evnt(26070,9722,"ide_methods.bas");if(r)goto S_46839;} +do{ +qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_RETURNLIST,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9722,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_OK= 0 ; +if(!qbevent)break;evnt(26070,9724,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_VARIABLENAMECOLOR= 3 ; +if(!qbevent)break;evnt(26070,9725,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_TYPECOLUMNCOLOR= 15 ; +if(!qbevent)break;evnt(26070,9726,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_SELECTEDBG= 2 ; +if(!qbevent)break;evnt(26070,9727,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_TOTALELEMENTS=_FUNC_IDEELEMENTWATCHBOX_STRING_ELEMENTINDEXES->len/ 4 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9729,"ide_methods.bas");}while(r); +do{ if (_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[2]&2){ error(10); @@ -156686,1865 +156686,1865 @@ _FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[2]|=1; tmp_long=_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]; while(tmp_long--){ *(qbs**)(_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0]+(264/8+1-1)*tmp_long+ 25)=qbs_new(0,0);} -} -if(!qbevent)break;evnt(26070,9730,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEELEMENTWATCHBOX_LONG_DIALOGHEIGHT=*_FUNC_IDEELEMENTWATCHBOX_LONG_TOTALELEMENTS+ 4 ; -if(!qbevent)break;evnt(26070,9731,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEELEMENTWATCHBOX_LONG_I= 0 ; -if(!qbevent)break;evnt(26070,9732,"ide_methods.bas");}while(r); -S_46850:; -if ((-(*_FUNC_IDEELEMENTWATCHBOX_LONG_DIALOGHEIGHT>(*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 6 )))||new_error){ -if(qbevent){evnt(26070,9733,"ide_methods.bas");if(r)goto S_46850;} -do{ -*_FUNC_IDEELEMENTWATCHBOX_LONG_DIALOGHEIGHT=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 6 ; -if(!qbevent)break;evnt(26070,9734,"ide_methods.bas");}while(r); -} -S_46853:; -if ((-(*_FUNC_IDEELEMENTWATCHBOX_LONG_DIALOGHEIGHT< 5 ))||new_error){ -if(qbevent){evnt(26070,9736,"ide_methods.bas");if(r)goto S_46853;} -do{ -*_FUNC_IDEELEMENTWATCHBOX_LONG_DIALOGHEIGHT= 5 ; -if(!qbevent)break;evnt(26070,9736,"ide_methods.bas");}while(r); -} -do{ -return_point[next_return_point++]=151; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_BUILDLIST; -RETURN_151:; -if(!qbevent)break;evnt(26070,9739,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEELEMENTWATCHBOX_LONG_DIALOGWIDTH= 6 +*_FUNC_IDEELEMENTWATCHBOX_LONG_LONGESTNAME+*_FUNC_IDEELEMENTWATCHBOX_LONG_MAXTYPELEN; -if(!qbevent)break;evnt(26070,9740,"ide_methods.bas");}while(r); -S_46858:; -if ((-(*_FUNC_IDEELEMENTWATCHBOX_LONG_DIALOGWIDTH< 40 ))||new_error){ -if(qbevent){evnt(26070,9741,"ide_methods.bas");if(r)goto S_46858;} -do{ -*_FUNC_IDEELEMENTWATCHBOX_LONG_DIALOGWIDTH= 40 ; -if(!qbevent)break;evnt(26070,9741,"ide_methods.bas");}while(r); -} -S_46861:; -if ((-(*_FUNC_IDEELEMENTWATCHBOX_LONG_DIALOGWIDTH>(*__LONG_IDEWX- 8 )))||new_error){ -if(qbevent){evnt(26070,9742,"ide_methods.bas");if(r)goto S_46861;} -do{ -*_FUNC_IDEELEMENTWATCHBOX_LONG_DIALOGWIDTH=*__LONG_IDEWX- 8 ; -if(!qbevent)break;evnt(26070,9742,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_TITLE,qbs_new_txt_len("Add UDT Elements",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9744,"ide_methods.bas");}while(r); -S_46865:; -if ((*_FUNC_IDEELEMENTWATCHBOX_LONG_SINGLEELEMENTSELECTION)||new_error){ -if(qbevent){evnt(26070,9745,"ide_methods.bas");if(r)goto S_46865;} -do{ -qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_TITLE,qbs_new_txt_len("Choose UDT Element",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9745,"ide_methods.bas");}while(r); -} -do{ -SUB_IDEPAR((void*)( ((char*)(_FUNC_IDEELEMENTWATCHBOX_UDT_P)) + (0) ),_FUNC_IDEELEMENTWATCHBOX_LONG_DIALOGWIDTH,_FUNC_IDEELEMENTWATCHBOX_LONG_DIALOGHEIGHT,_FUNC_IDEELEMENTWATCHBOX_STRING_TITLE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9746,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEELEMENTWATCHBOX_LONG_I=*_FUNC_IDEELEMENTWATCHBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,9748,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX=*_FUNC_IDEELEMENTWATCHBOX_LONG_I; -if(!qbevent)break;evnt(26070,9748,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+36))= 2 ; -if(!qbevent)break;evnt(26070,9749,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+24))= 2 ; -if(!qbevent)break;evnt(26070,9750,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+28))=*_FUNC_IDEELEMENTWATCHBOX_LONG_DIALOGWIDTH- 4 ; -if(!qbevent)break;evnt(26070,9751,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_I)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+32))=*_FUNC_IDEELEMENTWATCHBOX_LONG_DIALOGHEIGHT- 4 ; -if(!qbevent)break;evnt(26070,9751,"ide_methods.bas");}while(r); -S_46875:; -if ((-(*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44))== 0 ))||new_error){ -if(qbevent){evnt(26070,9752,"ide_methods.bas");if(r)goto S_46875;} -do{ -*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDEELEMENTWATCHBOX_STRING_L); -if(!qbevent)break;evnt(26070,9752,"ide_methods.bas");}while(r); -}else{ -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDEELEMENTWATCHBOX_STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9752,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEELEMENTWATCHBOX_LONG_I=*_FUNC_IDEELEMENTWATCHBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,9754,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEELEMENTWATCHBOX_LONG_BUTTONSET=*_FUNC_IDEELEMENTWATCHBOX_LONG_I; -if(!qbevent)break;evnt(26070,9754,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_BUTTONSET)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+36))= 3 ; -if(!qbevent)break;evnt(26070,9755,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_BUTTONSET)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+24))=*_FUNC_IDEELEMENTWATCHBOX_LONG_DIALOGHEIGHT; -if(!qbevent)break;evnt(26070,9756,"ide_methods.bas");}while(r); -S_46884:; -if ((-(*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_BUTTONSET)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44))== 0 ))||new_error){ -if(qbevent){evnt(26070,9757,"ide_methods.bas");if(r)goto S_46884;} -S_46885:; -if ((*_FUNC_IDEELEMENTWATCHBOX_LONG_SINGLEELEMENTSELECTION)||new_error){ -if(qbevent){evnt(26070,9758,"ide_methods.bas");if(r)goto S_46885;} -do{ -*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_BUTTONSET)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("#OK",3),_FUNC_IDEELEMENTWATCHBOX_STRING1_SEP),qbs_new_txt_len("#Cancel",7)),_FUNC_IDEELEMENTWATCHBOX_STRING1_SEP),qbs_new_txt_len("#Up One Level",13))); -if(!qbevent)break;evnt(26070,9759,"ide_methods.bas");}while(r); -}else{ -do{ -*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_BUTTONSET)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("#Add All",8),_FUNC_IDEELEMENTWATCHBOX_STRING1_SEP),qbs_new_txt_len("#Remove All",11)),_FUNC_IDEELEMENTWATCHBOX_STRING1_SEP),qbs_new_txt_len("#Close",6))); -if(!qbevent)break;evnt(26070,9761,"ide_methods.bas");}while(r); -} -} -S_46891:; -fornext_value5159= 1 ; -fornext_finalvalue5159= 100 ; -fornext_step5159= 1 ; -if (fornext_step5159<0) fornext_step_negative5159=1; else fornext_step_negative5159=0; -if (new_error) goto fornext_error5159; -goto fornext_entrylabel5159; -while(1){ -fornext_value5159=fornext_step5159+(*_FUNC_IDEELEMENTWATCHBOX_LONG_I); -fornext_entrylabel5159: -*_FUNC_IDEELEMENTWATCHBOX_LONG_I=fornext_value5159; -if (fornext_step_negative5159){ -if (fornext_value5159fornext_finalvalue5159) break; -} -fornext_error5159:; -if(qbevent){evnt(26070,9768,"ide_methods.bas");if(r)goto S_46891;} -do{ -memcpy(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_I)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89)+ 0,((char*)_FUNC_IDEELEMENTWATCHBOX_UDT_P)+(0)+ 0, 20); -if(!qbevent)break;evnt(26070,9768,"ide_methods.bas");}while(r); -fornext_continue_5158:; -} -fornext_exit_5158:; -S_46894:; -do{ -if(qbevent){evnt(26070,9771,"ide_methods.bas");if(r)goto S_46894;} -do{ -SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDEELEMENTWATCHBOX_UDT_P)) + (0) )); -if(!qbevent)break;evnt(26070,9774,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEELEMENTWATCHBOX_LONG_F= 1 ; -if(!qbevent)break;evnt(26070,9775,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEELEMENTWATCHBOX_LONG_CX= 0 ; -if(!qbevent)break;evnt(26070,9775,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEELEMENTWATCHBOX_LONG_CY= 0 ; -if(!qbevent)break;evnt(26070,9775,"ide_methods.bas");}while(r); -S_46899:; -fornext_value5162= 1 ; -fornext_finalvalue5162= 100 ; -fornext_step5162= 1 ; -if (fornext_step5162<0) fornext_step_negative5162=1; else fornext_step_negative5162=0; -if (new_error) goto fornext_error5162; -goto fornext_entrylabel5162; -while(1){ -fornext_value5162=fornext_step5162+(*_FUNC_IDEELEMENTWATCHBOX_LONG_I); -fornext_entrylabel5162: -*_FUNC_IDEELEMENTWATCHBOX_LONG_I=fornext_value5162; -if (fornext_step_negative5162){ -if (fornext_value5162fornext_finalvalue5162) break; -} -fornext_error5162:; -if(qbevent){evnt(26070,9776,"ide_methods.bas");if(r)goto S_46899;} -S_46900:; -if ((*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_I)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+36)))||new_error){ -if(qbevent){evnt(26070,9777,"ide_methods.bas");if(r)goto S_46900;} -do{ -*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_I)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+60))=*_FUNC_IDEELEMENTWATCHBOX_LONG_FOCUS-*_FUNC_IDEELEMENTWATCHBOX_LONG_F; -if(!qbevent)break;evnt(26070,9779,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_I)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+52))= 0 ; -if(!qbevent)break;evnt(26070,9780,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_I)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+56))= 0 ; -if(!qbevent)break;evnt(26070,9780,"ide_methods.bas");}while(r); -do{ -SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_I)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDEELEMENTWATCHBOX_LONG_F); -if(!qbevent)break;evnt(26070,9781,"ide_methods.bas");}while(r); -S_46905:; -if ((*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_I)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+52)))||new_error){ -if(qbevent){evnt(26070,9782,"ide_methods.bas");if(r)goto S_46905;} -do{ -*_FUNC_IDEELEMENTWATCHBOX_LONG_CX=*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_I)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+52)); -if(!qbevent)break;evnt(26070,9782,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEELEMENTWATCHBOX_LONG_CY=*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_I)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+56)); -if(!qbevent)break;evnt(26070,9782,"ide_methods.bas");}while(r); -} -} -fornext_continue_5161:; -} -fornext_exit_5161:; -do{ -*_FUNC_IDEELEMENTWATCHBOX_LONG_LASTFOCUS=*_FUNC_IDEELEMENTWATCHBOX_LONG_F- 1 ; -if(!qbevent)break;evnt(26070,9785,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,9789,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_TEMP,_FUNC_IDEELEMENTWATCHBOX_STRING_CURRENTPATH); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9790,"ide_methods.bas");}while(r); -S_46914:; -if ((qbs_cleanup(qbs_tmp_base,-((_FUNC_IDEELEMENTWATCHBOX_STRING_TEMP->len)>(*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_UDT_P)+(8))- 4 ))))||new_error){ -if(qbevent){evnt(26070,9791,"ide_methods.bas");if(r)goto S_46914;} -do{ -qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_TEMP,qbs_add(func_string( 3 , 250 ),qbs_right(_FUNC_IDEELEMENTWATCHBOX_STRING_TEMP,*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_UDT_P)+(8))- 7 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9791,"ide_methods.bas");}while(r); -} -do{ -sub__printstring(*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_UDT_P)+(0))+ 2 ,*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_UDT_P)+(4))+ 1 ,_FUNC_IDEELEMENTWATCHBOX_STRING_TEMP,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9792,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 1 , 0 ); -if(!qbevent)break;evnt(26070,9797,"ide_methods.bas");}while(r); -S_46919:; -if ((*_FUNC_IDEELEMENTWATCHBOX_LONG_CX)||new_error){ -if(qbevent){evnt(26070,9798,"ide_methods.bas");if(r)goto S_46919;} -do{ -qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,9798,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*_FUNC_IDEELEMENTWATCHBOX_LONG_CY,*_FUNC_IDEELEMENTWATCHBOX_LONG_CX, 1 ,NULL,NULL,7); -if(!qbevent)break;evnt(26070,9798,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,9798,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEELEMENTWATCHBOX_LONG_CHANGE= 0 ; -if(!qbevent)break;evnt(26070,9801,"ide_methods.bas");}while(r); -S_46925:; -do{ -if(qbevent){evnt(26070,9802,"ide_methods.bas");if(r)goto S_46925;} -do{ -SUB_GETINPUT(); -if(!qbevent)break;evnt(26070,9803,"ide_methods.bas");}while(r); -S_46927:; -if ((*__LONG_MWHEEL)||new_error){ -if(qbevent){evnt(26070,9804,"ide_methods.bas");if(r)goto S_46927;} -do{ -*_FUNC_IDEELEMENTWATCHBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,9804,"ide_methods.bas");}while(r); -} -S_46930:; -if ((*__LONG_KB)||new_error){ -if(qbevent){evnt(26070,9805,"ide_methods.bas");if(r)goto S_46930;} -do{ -*_FUNC_IDEELEMENTWATCHBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,9805,"ide_methods.bas");}while(r); -} -S_46933:; -if ((*__LONG_MCLICK)||new_error){ -if(qbevent){evnt(26070,9806,"ide_methods.bas");if(r)goto S_46933;} -do{ -*_FUNC_IDEELEMENTWATCHBOX_LONG_MOUSEDOWN= 1 ; -if(!qbevent)break;evnt(26070,9806,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEELEMENTWATCHBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,9806,"ide_methods.bas");}while(r); -} -S_46937:; -if ((*__LONG_MRELEASE)||new_error){ -if(qbevent){evnt(26070,9807,"ide_methods.bas");if(r)goto S_46937;} -do{ -*_FUNC_IDEELEMENTWATCHBOX_LONG_MOUSEUP= 1 ; -if(!qbevent)break;evnt(26070,9807,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEELEMENTWATCHBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,9807,"ide_methods.bas");}while(r); -} -S_46941:; -if ((*__LONG_MB)||new_error){ -if(qbevent){evnt(26070,9808,"ide_methods.bas");if(r)goto S_46941;} -do{ -*_FUNC_IDEELEMENTWATCHBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,9808,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEELEMENTWATCHBOX_LONG_ALT=*__LONG_KALT; -if(!qbevent)break;evnt(26070,9809,"ide_methods.bas");}while(r); -S_46945:; -if ((-(*_FUNC_IDEELEMENTWATCHBOX_LONG_ALT!=*_FUNC_IDEELEMENTWATCHBOX_LONG_OLDALT))||new_error){ -if(qbevent){evnt(26070,9809,"ide_methods.bas");if(r)goto S_46945;} -do{ -*_FUNC_IDEELEMENTWATCHBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,9809,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEELEMENTWATCHBOX_LONG_OLDALT=*_FUNC_IDEELEMENTWATCHBOX_LONG_ALT; -if(!qbevent)break;evnt(26070,9810,"ide_methods.bas");}while(r); -do{ -sub__limit( 100 ); -if(!qbevent)break;evnt(26070,9811,"ide_methods.bas");}while(r); -S_46950:; -dl_continue_5164:; -}while((!(*_FUNC_IDEELEMENTWATCHBOX_LONG_CHANGE))&&(!new_error)); -dl_exit_5164:; -if(qbevent){evnt(26070,9812,"ide_methods.bas");if(r)goto S_46950;} -S_46951:; -if ((*_FUNC_IDEELEMENTWATCHBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(26070,9813,"ide_methods.bas");if(r)goto S_46951;} -do{ -*__LONG_IDEHL= 1 ; -if(!qbevent)break;evnt(26070,9813,"ide_methods.bas");}while(r); -}else{ -do{ -*__LONG_IDEHL= 0 ; -if(!qbevent)break;evnt(26070,9813,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_ALTLETTER,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9815,"ide_methods.bas");}while(r); -S_46957:; -if ((*_FUNC_IDEELEMENTWATCHBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(26070,9816,"ide_methods.bas");if(r)goto S_46957;} -S_46958:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ -if(qbevent){evnt(26070,9817,"ide_methods.bas");if(r)goto S_46958;} -do{ -*_FUNC_IDEELEMENTWATCHBOX_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9818,"ide_methods.bas");}while(r); -S_46960:; -if (((-(*_FUNC_IDEELEMENTWATCHBOX_LONG_K>= 65 ))&(-(*_FUNC_IDEELEMENTWATCHBOX_LONG_K<= 90 )))||new_error){ -if(qbevent){evnt(26070,9819,"ide_methods.bas");if(r)goto S_46960;} -do{ -qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_ALTLETTER,func_chr(*_FUNC_IDEELEMENTWATCHBOX_LONG_K)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9819,"ide_methods.bas");}while(r); -} -} -} -do{ -qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,9822,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); -if(!qbevent)break;evnt(26070,9822,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,9822,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEELEMENTWATCHBOX_LONG_INFO= 0 ; -if(!qbevent)break;evnt(26070,9826,"ide_methods.bas");}while(r); -S_46969:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,9827,"ide_methods.bas");if(r)goto S_46969;} -do{ -qbs_set(__STRING_K,func_chr( 255 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9827,"ide_methods.bas");}while(r); -} -S_46972:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ -if(qbevent){evnt(26070,9828,"ide_methods.bas");if(r)goto S_46972;} -do{ -*_FUNC_IDEELEMENTWATCHBOX_LONG_FOCUS=*_FUNC_IDEELEMENTWATCHBOX_LONG_FOCUS+ 1 ; -if(!qbevent)break;evnt(26070,9828,"ide_methods.bas");}while(r); -} -S_46975:; -if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||new_error){ -if(qbevent){evnt(26070,9829,"ide_methods.bas");if(r)goto S_46975;} -do{ -*_FUNC_IDEELEMENTWATCHBOX_LONG_FOCUS=*_FUNC_IDEELEMENTWATCHBOX_LONG_FOCUS- 1 ; -if(!qbevent)break;evnt(26070,9829,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_K,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9829,"ide_methods.bas");}while(r); -} -S_46979:; -if ((-(*_FUNC_IDEELEMENTWATCHBOX_LONG_FOCUS< 1 ))||new_error){ -if(qbevent){evnt(26070,9830,"ide_methods.bas");if(r)goto S_46979;} -do{ -*_FUNC_IDEELEMENTWATCHBOX_LONG_FOCUS=*_FUNC_IDEELEMENTWATCHBOX_LONG_LASTFOCUS; -if(!qbevent)break;evnt(26070,9830,"ide_methods.bas");}while(r); -} -S_46982:; -if ((-(*_FUNC_IDEELEMENTWATCHBOX_LONG_FOCUS>*_FUNC_IDEELEMENTWATCHBOX_LONG_LASTFOCUS))||new_error){ -if(qbevent){evnt(26070,9831,"ide_methods.bas");if(r)goto S_46982;} -do{ -*_FUNC_IDEELEMENTWATCHBOX_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(26070,9831,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEELEMENTWATCHBOX_LONG_F= 1 ; -if(!qbevent)break;evnt(26070,9832,"ide_methods.bas");}while(r); -S_46986:; -fornext_value5167= 1 ; -fornext_finalvalue5167= 100 ; -fornext_step5167= 1 ; -if (fornext_step5167<0) fornext_step_negative5167=1; else fornext_step_negative5167=0; -if (new_error) goto fornext_error5167; -goto fornext_entrylabel5167; -while(1){ -fornext_value5167=fornext_step5167+(*_FUNC_IDEELEMENTWATCHBOX_LONG_I); -fornext_entrylabel5167: -*_FUNC_IDEELEMENTWATCHBOX_LONG_I=fornext_value5167; -if (fornext_step_negative5167){ -if (fornext_value5167fornext_finalvalue5167) break; -} -fornext_error5167:; -if(qbevent){evnt(26070,9833,"ide_methods.bas");if(r)goto S_46986;} -do{ -*_FUNC_IDEELEMENTWATCHBOX_LONG_T=*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_I)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+36)); -if(!qbevent)break;evnt(26070,9834,"ide_methods.bas");}while(r); -S_46988:; -if ((*_FUNC_IDEELEMENTWATCHBOX_LONG_T)||new_error){ -if(qbevent){evnt(26070,9835,"ide_methods.bas");if(r)goto S_46988;} -do{ -*_FUNC_IDEELEMENTWATCHBOX_LONG_FOCUSOFFSET=*_FUNC_IDEELEMENTWATCHBOX_LONG_FOCUS-*_FUNC_IDEELEMENTWATCHBOX_LONG_F; -if(!qbevent)break;evnt(26070,9836,"ide_methods.bas");}while(r); -do{ -SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_I)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDEELEMENTWATCHBOX_LONG_FOCUS,_FUNC_IDEELEMENTWATCHBOX_LONG_F,_FUNC_IDEELEMENTWATCHBOX_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDEELEMENTWATCHBOX_STRING_ALTLETTER,__LONG_MB,_FUNC_IDEELEMENTWATCHBOX_LONG_MOUSEDOWN,_FUNC_IDEELEMENTWATCHBOX_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDEELEMENTWATCHBOX_LONG_INFO,__LONG_MWHEEL); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9837,"ide_methods.bas");}while(r); -} -fornext_continue_5166:; -} -fornext_exit_5166:; -S_46993:; -if ((((-(*_FUNC_IDEELEMENTWATCHBOX_LONG_FOCUS== 2 ))&(-(*_FUNC_IDEELEMENTWATCHBOX_LONG_INFO!= 0 ))))||new_error){ -if(qbevent){evnt(26070,9841,"ide_methods.bas");if(r)goto S_46993;} -S_46994:; -if ((*_FUNC_IDEELEMENTWATCHBOX_LONG_SINGLEELEMENTSELECTION)||new_error){ -if(qbevent){evnt(26070,9842,"ide_methods.bas");if(r)goto S_46994;} -do{ -*_FUNC_IDEELEMENTWATCHBOX_LONG_Y=func_abs((int32)(*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+64)))); -if(!qbevent)break;evnt(26070,9844,"ide_methods.bas");}while(r); -S_46996:; -if (((-(*_FUNC_IDEELEMENTWATCHBOX_LONG_Y>= 1 ))&(-(*_FUNC_IDEELEMENTWATCHBOX_LONG_Y<=*_FUNC_IDEELEMENTWATCHBOX_LONG_TOTALELEMENTS)))||new_error){ -if(qbevent){evnt(26070,9845,"ide_methods.bas");if(r)goto S_46996;} -do{ -*_FUNC_IDEELEMENTWATCHBOX_LONG_TOGGLEANDRETURN= -1 ; -if(!qbevent)break;evnt(26070,9846,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=152; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_TOGGLEWATCH; -RETURN_152:; -if(!qbevent)break;evnt(26070,9846,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEELEMENTWATCHBOX_LONG_TOGGLEANDRETURN= 0 ; -if(!qbevent)break;evnt(26070,9846,"ide_methods.bas");}while(r); -do{ -goto LABEL_BUILDLISTTORETURN; -if(!qbevent)break;evnt(26070,9847,"ide_methods.bas");}while(r); -} -}else{ -S_47003:; -fornext_value5169= 1 ; -fornext_finalvalue5169=*_FUNC_IDEELEMENTWATCHBOX_LONG_TOTALELEMENTS; -fornext_step5169= 1 ; -if (fornext_step5169<0) fornext_step_negative5169=1; else fornext_step_negative5169=0; -if (new_error) goto fornext_error5169; -goto fornext_entrylabel5169; -while(1){ -fornext_value5169=fornext_step5169+(*_FUNC_IDEELEMENTWATCHBOX_LONG_Y); -fornext_entrylabel5169: -*_FUNC_IDEELEMENTWATCHBOX_LONG_Y=fornext_value5169; -if (fornext_step_negative5169){ -if (fornext_value5169fornext_finalvalue5169) break; -} -fornext_error5169:; -if(qbevent){evnt(26070,9851,"ide_methods.bas");if(r)goto S_47003;} -do{ -qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_VARTYPE,*((qbs**)((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0]+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_Y)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+25)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9852,"ide_methods.bas");}while(r); -S_47005:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_IDEELEMENTWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("STRING *",8),0)))||new_error){ -if(qbevent){evnt(26070,9853,"ide_methods.bas");if(r)goto S_47005;} -do{ -qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("STRING",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9853,"ide_methods.bas");}while(r); -} -S_47008:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_IDEELEMENTWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("BIT *",5),0)))||new_error){ -if(qbevent){evnt(26070,9854,"ide_methods.bas");if(r)goto S_47008;} -do{ -qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("_BIT",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9854,"ide_methods.bas");}while(r); -} -S_47011:; -if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,__STRING_NATIVEDATATYPES,_FUNC_IDEELEMENTWATCHBOX_STRING_VARTYPE,0)> 0 )))||new_error){ -if(qbevent){evnt(26070,9855,"ide_methods.bas");if(r)goto S_47011;} -do{ -*(int8*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_Y)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+24))= -1 ; -if(!qbevent)break;evnt(26070,9856,"ide_methods.bas");}while(r); -do{ -tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ -tmp_fileno=*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_Y)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+8)); if (!new_error){ -tmp_long=*_FUNC_IDEELEMENTWATCHBOX_LONG_VARIABLENAMECOLOR; if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(26070,9857,"ide_methods.bas");}while(r); -do{ -tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ -tmp_fileno=*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_Y)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+12)); if (!new_error){ -tmp_long=*_FUNC_IDEELEMENTWATCHBOX_LONG_TYPECOLUMNCOLOR; if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(26070,9858,"ide_methods.bas");}while(r); -do{ -tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ -tmp_fileno=*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_Y)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+4)); if (!new_error){ -tmp_long=*_FUNC_IDEELEMENTWATCHBOX_LONG_SELECTEDBG; if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(26070,9859,"ide_methods.bas");}while(r); -do{ -tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ -tmp_fileno=*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_Y)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+16)); if (!new_error){ -tmp_long= 43 ; if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(26070,9860,"ide_methods.bas");}while(r); -} -fornext_continue_5168:; -} -fornext_exit_5168:; -} -do{ -goto dl_continue_5160; -if(!qbevent)break;evnt(26070,9864,"ide_methods.bas");}while(r); -} -S_47022:; -if ((((-(*_FUNC_IDEELEMENTWATCHBOX_LONG_FOCUS== 3 ))&(-(*_FUNC_IDEELEMENTWATCHBOX_LONG_INFO!= 0 ))))||new_error){ -if(qbevent){evnt(26070,9867,"ide_methods.bas");if(r)goto S_47022;} -S_47023:; -if ((*_FUNC_IDEELEMENTWATCHBOX_LONG_SINGLEELEMENTSELECTION)||new_error){ -if(qbevent){evnt(26070,9868,"ide_methods.bas");if(r)goto S_47023;} -do{ -*_FUNC_IDEELEMENTWATCHBOX_LONG_OK= -3 ; -if(!qbevent)break;evnt(26070,9870,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,9871,"ide_methods.bas");}while(r); -}else{ -S_47027:; -fornext_value5171= 1 ; -fornext_finalvalue5171=*_FUNC_IDEELEMENTWATCHBOX_LONG_TOTALELEMENTS; -fornext_step5171= 1 ; -if (fornext_step5171<0) fornext_step_negative5171=1; else fornext_step_negative5171=0; -if (new_error) goto fornext_error5171; -goto fornext_entrylabel5171; -while(1){ -fornext_value5171=fornext_step5171+(*_FUNC_IDEELEMENTWATCHBOX_LONG_Y); -fornext_entrylabel5171: -*_FUNC_IDEELEMENTWATCHBOX_LONG_Y=fornext_value5171; -if (fornext_step_negative5171){ -if (fornext_value5171fornext_finalvalue5171) break; -} -fornext_error5171:; -if(qbevent){evnt(26070,9874,"ide_methods.bas");if(r)goto S_47027;} -do{ -*(int8*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_Y)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+24))= 0 ; -if(!qbevent)break;evnt(26070,9875,"ide_methods.bas");}while(r); -do{ -tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ -tmp_fileno=*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_Y)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+8)); if (!new_error){ -tmp_long= 16 ; if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(26070,9876,"ide_methods.bas");}while(r); -do{ -tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ -tmp_fileno=*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_Y)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+12)); if (!new_error){ -tmp_long= 2 ; if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(26070,9877,"ide_methods.bas");}while(r); -do{ -tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ -tmp_fileno=*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_Y)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+4)); if (!new_error){ -tmp_long= 17 ; if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(26070,9878,"ide_methods.bas");}while(r); -do{ -tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ -tmp_fileno=*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_Y)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+16)); if (!new_error){ -tmp_long= 32 ; if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(26070,9879,"ide_methods.bas");}while(r); -fornext_continue_5170:; -} -fornext_exit_5170:; -} -do{ -goto dl_continue_5160; -if(!qbevent)break;evnt(26070,9882,"ide_methods.bas");}while(r); -} -S_47037:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 27 )))|(((-(*_FUNC_IDEELEMENTWATCHBOX_LONG_FOCUS== 4 ))&(-(*_FUNC_IDEELEMENTWATCHBOX_LONG_INFO!= 0 ))))))||new_error){ -if(qbevent){evnt(26070,9885,"ide_methods.bas");if(r)goto S_47037;} -S_47038:; -if ((*_FUNC_IDEELEMENTWATCHBOX_LONG_SINGLEELEMENTSELECTION)||new_error){ -if(qbevent){evnt(26070,9886,"ide_methods.bas");if(r)goto S_47038;} -do{ -*_FUNC_IDEELEMENTWATCHBOX_LONG_OK= -4 ; -if(!qbevent)break;evnt(26070,9887,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,9888,"ide_methods.bas");}while(r); -}else{ -LABEL_BUILDLISTTORETURN:; -if(qbevent){evnt(26070,9891,"ide_methods.bas");r=0;} -S_47042:; -fornext_value5173= 1 ; -fornext_finalvalue5173=*_FUNC_IDEELEMENTWATCHBOX_LONG_TOTALELEMENTS; -fornext_step5173= 1 ; -if (fornext_step5173<0) fornext_step_negative5173=1; else fornext_step_negative5173=0; -if (new_error) goto fornext_error5173; -goto fornext_entrylabel5173; -while(1){ -fornext_value5173=fornext_step5173+(*_FUNC_IDEELEMENTWATCHBOX_LONG_Y); -fornext_entrylabel5173: -*_FUNC_IDEELEMENTWATCHBOX_LONG_Y=fornext_value5173; -if (fornext_step_negative5173){ -if (fornext_value5173fornext_finalvalue5173) break; -} -fornext_error5173:; -if(qbevent){evnt(26070,9892,"ide_methods.bas");if(r)goto S_47042;} -S_47043:; -if ((*(int8*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_Y)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+24)))||new_error){ -if(qbevent){evnt(26070,9893,"ide_methods.bas");if(r)goto S_47043;} -do{ -qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_VARTYPE,*((qbs**)((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0]+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_Y)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+25)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9894,"ide_methods.bas");}while(r); -S_47045:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_IDEELEMENTWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("STRING *",8),0)))||new_error){ -if(qbevent){evnt(26070,9895,"ide_methods.bas");if(r)goto S_47045;} -do{ -qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("STRING",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9895,"ide_methods.bas");}while(r); -} -S_47048:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_IDEELEMENTWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("BIT *",5),0)))||new_error){ -if(qbevent){evnt(26070,9896,"ide_methods.bas");if(r)goto S_47048;} -do{ -qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("_BIT",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9896,"ide_methods.bas");}while(r); -} -S_47051:; -if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,__STRING_NATIVEDATATYPES,_FUNC_IDEELEMENTWATCHBOX_STRING_VARTYPE,0)> 0 )))||new_error){ -if(qbevent){evnt(26070,9897,"ide_methods.bas");if(r)goto S_47051;} -do{ -qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_THISNAME,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTECNAME[0]))[(array_check((*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_Y)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_STRING256_UDTECNAME[4],__ARRAY_STRING256_UDTECNAME[5]))*256],256,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9899,"ide_methods.bas");}while(r); -S_47053:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDEELEMENTWATCHBOX_STRING_RETURNLIST->len))||new_error){ -if(qbevent){evnt(26070,9900,"ide_methods.bas");if(r)goto S_47053;} -do{ -qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_RETURNLIST,qbs_add(_FUNC_IDEELEMENTWATCHBOX_STRING_RETURNLIST,__STRING1_SP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9900,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_RETURNLIST,qbs_add(qbs_add(_FUNC_IDEELEMENTWATCHBOX_STRING_RETURNLIST,_FUNC_IDEELEMENTWATCHBOX_STRING_CURRENTPATH),_FUNC_IDEELEMENTWATCHBOX_STRING_THISNAME)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9901,"ide_methods.bas");}while(r); -} -} -fornext_continue_5172:; -} -fornext_exit_5172:; -S_47060:; -if ((*_FUNC_IDEELEMENTWATCHBOX_LONG_SINGLEELEMENTSELECTION)||new_error){ -if(qbevent){evnt(26070,9906,"ide_methods.bas");if(r)goto S_47060;} -S_47061:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDEELEMENTWATCHBOX_STRING_RETURNLIST->len> 0 )))||new_error){ -if(qbevent){evnt(26070,9907,"ide_methods.bas");if(r)goto S_47061;} -do{ -*_FUNC_IDEELEMENTWATCHBOX_LONG_OK= -2 ; -if(!qbevent)break;evnt(26070,9908,"ide_methods.bas");}while(r); -}else{ -do{ -*_FUNC_IDEELEMENTWATCHBOX_LONG_OK= 0 ; -if(!qbevent)break;evnt(26070,9910,"ide_methods.bas");}while(r); -} -}else{ -do{ -*_FUNC_IDEELEMENTWATCHBOX_LONG_OK=-(_FUNC_IDEELEMENTWATCHBOX_STRING_RETURNLIST->len> 0 ); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9913,"ide_methods.bas");}while(r); -} -S_47069:; -if ((-(*_FUNC_IDEELEMENTWATCHBOX_LONG_LEVEL== 0 ))||new_error){ -if(qbevent){evnt(26070,9915,"ide_methods.bas");if(r)goto S_47069;} -do{ -qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_RETURNLIST,FUNC_STRREPLACE(_FUNC_IDEELEMENTWATCHBOX_STRING_RETURNLIST,_FUNC_IDEELEMENTWATCHBOX_STRING_CURRENTPATH,qbs_new_txt_len(".",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9915,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_IDEELEMENTWATCHBOX,_FUNC_IDEELEMENTWATCHBOX_STRING_RETURNLIST); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9916,"ide_methods.bas");}while(r); -} -do{ -SUB_CLEARMOUSE(); -if(!qbevent)break;evnt(26070,9919,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,9920,"ide_methods.bas");}while(r); -} -S_47077:; -if ((*__LONG_MCLICK&(-(*_FUNC_IDEELEMENTWATCHBOX_LONG_FOCUS== 1 )))||new_error){ -if(qbevent){evnt(26070,9923,"ide_methods.bas");if(r)goto S_47077;} -S_47078:; -if (((-(((float)(FUNC_TIMEELAPSEDSINCE(_FUNC_IDEELEMENTWATCHBOX_SINGLE_LASTCLICK)))<((float)( 0.3E+0 ))))&(-(*_FUNC_IDEELEMENTWATCHBOX_LONG_CLICKEDITEM==*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+64)))))||new_error){ -if(qbevent){evnt(26070,9924,"ide_methods.bas");if(r)goto S_47078;} -S_47079:; -if ((-(*_FUNC_IDEELEMENTWATCHBOX_LONG_SINGLEELEMENTSELECTION== 0 ))||new_error){ -if(qbevent){evnt(26070,9925,"ide_methods.bas");if(r)goto S_47079;} -do{ -goto LABEL_TOGGLEWATCH; -if(!qbevent)break;evnt(26070,9926,"ide_methods.bas");}while(r); -}else{ -do{ -*_FUNC_IDEELEMENTWATCHBOX_LONG_Y=func_abs((int32)(*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+64)))); -if(!qbevent)break;evnt(26070,9928,"ide_methods.bas");}while(r); -S_47083:; -if (((-(*_FUNC_IDEELEMENTWATCHBOX_LONG_Y>= 1 ))&(-(*_FUNC_IDEELEMENTWATCHBOX_LONG_Y<=*_FUNC_IDEELEMENTWATCHBOX_LONG_TOTALELEMENTS)))||new_error){ -if(qbevent){evnt(26070,9929,"ide_methods.bas");if(r)goto S_47083;} -do{ -*_FUNC_IDEELEMENTWATCHBOX_LONG_TOGGLEANDRETURN= -1 ; -if(!qbevent)break;evnt(26070,9930,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=153; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_TOGGLEWATCH; -RETURN_153:; -if(!qbevent)break;evnt(26070,9930,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEELEMENTWATCHBOX_LONG_TOGGLEANDRETURN= 0 ; -if(!qbevent)break;evnt(26070,9930,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEELEMENTWATCHBOX_LONG_Y=func_abs((int32)(*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+64)))); -if(!qbevent)break;evnt(26070,9931,"ide_methods.bas");}while(r); -do{ -goto LABEL_BUILDLISTTORETURN; -if(!qbevent)break;evnt(26070,9932,"ide_methods.bas");}while(r); -} -} -} -do{ -*_FUNC_IDEELEMENTWATCHBOX_SINGLE_LASTCLICK=func_timer(NULL,0); -if(!qbevent)break;evnt(26070,9936,"ide_methods.bas");}while(r); -S_47093:; -if ((-(*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+64))> 0 ))||new_error){ -if(qbevent){evnt(26070,9937,"ide_methods.bas");if(r)goto S_47093;} -do{ -*_FUNC_IDEELEMENTWATCHBOX_LONG_CLICKEDITEM=*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+64)); -if(!qbevent)break;evnt(26070,9937,"ide_methods.bas");}while(r); -} -do{ -goto dl_continue_5160; -if(!qbevent)break;evnt(26070,9938,"ide_methods.bas");}while(r); -} -S_47098:; -if ((qbs_cleanup(qbs_tmp_base,((qbs_equal(__STRING_K,func_chr( 13 )))&(-(*_FUNC_IDEELEMENTWATCHBOX_LONG_FOCUS== 1 )))))||new_error){ -if(qbevent){evnt(26070,9941,"ide_methods.bas");if(r)goto S_47098;} -do{ -qbs_set(__STRING_K,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9942,"ide_methods.bas");}while(r); -LABEL_TOGGLEWATCH:; -if(qbevent){evnt(26070,9943,"ide_methods.bas");r=0;} -do{ -*_FUNC_IDEELEMENTWATCHBOX_LONG_Y=func_abs((int32)(*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+64)))); -if(!qbevent)break;evnt(26070,9944,"ide_methods.bas");}while(r); -S_47101:; -if (((-(*_FUNC_IDEELEMENTWATCHBOX_LONG_Y>= 1 ))&(-(*_FUNC_IDEELEMENTWATCHBOX_LONG_Y<=*_FUNC_IDEELEMENTWATCHBOX_LONG_TOTALELEMENTS)))||new_error){ -if(qbevent){evnt(26070,9946,"ide_methods.bas");if(r)goto S_47101;} -S_47102:; -if ((*_FUNC_IDEELEMENTWATCHBOX_LONG_SINGLEELEMENTSELECTION)||new_error){ -if(qbevent){evnt(26070,9947,"ide_methods.bas");if(r)goto S_47102;} -do{ -*(int8*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_Y)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+24))= -1 ; -if(!qbevent)break;evnt(26070,9948,"ide_methods.bas");}while(r); -}else{ -do{ -*(int8*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_Y)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+24))=~(*(int8*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_Y)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+24))); -if(!qbevent)break;evnt(26070,9950,"ide_methods.bas");}while(r); -} -S_47107:; -if ((*(int8*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_Y)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+24)))||new_error){ -if(qbevent){evnt(26070,9952,"ide_methods.bas");if(r)goto S_47107;} -S_47108:; -if ((*_FUNC_IDEELEMENTWATCHBOX_LONG_SINGLEELEMENTSELECTION)||new_error){ -if(qbevent){evnt(26070,9953,"ide_methods.bas");if(r)goto S_47108;} -S_47109:; -fornext_value5178= 1 ; -fornext_finalvalue5178=*_FUNC_IDEELEMENTWATCHBOX_LONG_TOTALELEMENTS; -fornext_step5178= 1 ; -if (fornext_step5178<0) fornext_step_negative5178=1; else fornext_step_negative5178=0; -if (new_error) goto fornext_error5178; -goto fornext_entrylabel5178; -while(1){ -fornext_value5178=fornext_step5178+(*_FUNC_IDEELEMENTWATCHBOX_LONG_I); -fornext_entrylabel5178: -*_FUNC_IDEELEMENTWATCHBOX_LONG_I=fornext_value5178; -if (fornext_step_negative5178){ -if (fornext_value5178fornext_finalvalue5178) break; -} -fornext_error5178:; -if(qbevent){evnt(26070,9954,"ide_methods.bas");if(r)goto S_47109;} -S_47110:; -if ((-(*_FUNC_IDEELEMENTWATCHBOX_LONG_I==*_FUNC_IDEELEMENTWATCHBOX_LONG_Y))||new_error){ -if(qbevent){evnt(26070,9955,"ide_methods.bas");if(r)goto S_47110;} -do{ -goto fornext_continue_5177; -if(!qbevent)break;evnt(26070,9955,"ide_methods.bas");}while(r); -} -do{ -*(int8*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_I)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+24))= 0 ; -if(!qbevent)break;evnt(26070,9956,"ide_methods.bas");}while(r); -do{ -tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ -tmp_fileno=*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_I)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+8)); if (!new_error){ -tmp_long= 16 ; if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(26070,9957,"ide_methods.bas");}while(r); -do{ -tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ -tmp_fileno=*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_I)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+12)); if (!new_error){ -tmp_long= 2 ; if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(26070,9958,"ide_methods.bas");}while(r); -do{ -tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ -tmp_fileno=*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_I)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+4)); if (!new_error){ -tmp_long= 17 ; if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(26070,9959,"ide_methods.bas");}while(r); -do{ -tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ -tmp_fileno=*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_I)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+16)); if (!new_error){ -tmp_long= 32 ; if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(26070,9960,"ide_methods.bas");}while(r); -fornext_continue_5177:; -} -fornext_exit_5177:; -} -do{ -qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_VARTYPE,*((qbs**)((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0]+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_Y)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+25)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9964,"ide_methods.bas");}while(r); -S_47121:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_IDEELEMENTWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("STRING *",8),0)))||new_error){ -if(qbevent){evnt(26070,9965,"ide_methods.bas");if(r)goto S_47121;} -do{ -qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("STRING",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9965,"ide_methods.bas");}while(r); -} -S_47124:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_IDEELEMENTWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("BIT *",5),0)))||new_error){ -if(qbevent){evnt(26070,9966,"ide_methods.bas");if(r)goto S_47124;} -do{ -qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("_BIT",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9966,"ide_methods.bas");}while(r); -} -S_47127:; -if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,__STRING_NATIVEDATATYPES,_FUNC_IDEELEMENTWATCHBOX_STRING_VARTYPE,0)== 0 )))||new_error){ -if(qbevent){evnt(26070,9967,"ide_methods.bas");if(r)goto S_47127;} -do{ -qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_ELEMENTINDEXES2,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9969,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEELEMENTWATCHBOX_LONG_THISUDT= 0 ; -if(!qbevent)break;evnt(26070,9970,"ide_methods.bas");}while(r); -do{ -*__LONG_E= 0 ; -if(!qbevent)break;evnt(26070,9971,"ide_methods.bas");}while(r); -S_47131:; -fornext_value5180= 1 ; -fornext_finalvalue5180=*__LONG_LASTTYPE; -fornext_step5180= 1 ; -if (fornext_step5180<0) fornext_step_negative5180=1; else fornext_step_negative5180=0; -if (new_error) goto fornext_error5180; -goto fornext_entrylabel5180; -while(1){ -fornext_value5180=fornext_step5180+(*_FUNC_IDEELEMENTWATCHBOX_LONG_I); -fornext_entrylabel5180: -*_FUNC_IDEELEMENTWATCHBOX_LONG_I=fornext_value5180; -if (fornext_step_negative5180){ -if (fornext_value5180fornext_finalvalue5180) break; -} -fornext_error5180:; -if(qbevent){evnt(26070,9972,"ide_methods.bas");if(r)goto S_47131;} -S_47132:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[(array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_I)-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]))*256],256,1)),_FUNC_IDEELEMENTWATCHBOX_STRING_VARTYPE)))||new_error){ -if(qbevent){evnt(26070,9973,"ide_methods.bas");if(r)goto S_47132;} -do{ -*_FUNC_IDEELEMENTWATCHBOX_LONG_THISUDT=*_FUNC_IDEELEMENTWATCHBOX_LONG_I; -if(!qbevent)break;evnt(26070,9973,"ide_methods.bas");}while(r); -do{ -goto fornext_exit_5179; -if(!qbevent)break;evnt(26070,9973,"ide_methods.bas");}while(r); -} -fornext_continue_5179:; -} -fornext_exit_5179:; -do{ -*_FUNC_IDEELEMENTWATCHBOX_LONG_I= 0 ; -if(!qbevent)break;evnt(26070,9976,"ide_methods.bas");}while(r); -S_47138:; -do{ -if(qbevent){evnt(26070,9977,"ide_methods.bas");if(r)goto S_47138;} -S_47139:; -if ((-(*__LONG_E== 0 ))||new_error){ -if(qbevent){evnt(26070,9978,"ide_methods.bas");if(r)goto S_47139;} -do{ -*__LONG_E=((int32*)(__ARRAY_LONG_UDTXNEXT[0]))[array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_THISUDT)-__ARRAY_LONG_UDTXNEXT[4],__ARRAY_LONG_UDTXNEXT[5])]; -if(!qbevent)break;evnt(26070,9978,"ide_methods.bas");}while(r); -}else{ -do{ -*__LONG_E=((int32*)(__ARRAY_LONG_UDTENEXT[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5])]; -if(!qbevent)break;evnt(26070,9978,"ide_methods.bas");}while(r); -} -S_47144:; -if ((-(*__LONG_E== 0 ))||new_error){ -if(qbevent){evnt(26070,9979,"ide_methods.bas");if(r)goto S_47144;} -do{ -goto dl_exit_5181; -if(!qbevent)break;evnt(26070,9979,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_ELEMENTINDEXES2,qbs_add(_FUNC_IDEELEMENTWATCHBOX_STRING_ELEMENTINDEXES2,l2string(*__LONG_E))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9980,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEELEMENTWATCHBOX_LONG_I=*_FUNC_IDEELEMENTWATCHBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,9981,"ide_methods.bas");}while(r); -dl_continue_5181:; -}while(1); -dl_exit_5181:; -do{ -qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_V,FUNC_IDEELEMENTWATCHBOX(qbs_add(qbs_add(_FUNC_IDEELEMENTWATCHBOX_STRING_CURRENTPATH,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTECNAME[0]))[(array_check((*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_Y)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_STRING256_UDTECNAME[4],__ARRAY_STRING256_UDTECNAME[5]))*256],256,1))),qbs_new_txt_len(".",1)),_FUNC_IDEELEMENTWATCHBOX_STRING_ELEMENTINDEXES2,&(pass5182=*_FUNC_IDEELEMENTWATCHBOX_LONG_LEVEL+ 1 ),_FUNC_IDEELEMENTWATCHBOX_LONG_SINGLEELEMENTSELECTION,_FUNC_IDEELEMENTWATCHBOX_LONG_OK2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,9983,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEELEMENTWATCHBOX_LONG_OK=*_FUNC_IDEELEMENTWATCHBOX_LONG_OK2; -if(!qbevent)break;evnt(26070,9984,"ide_methods.bas");}while(r); -S_47152:; -if ((-(*_FUNC_IDEELEMENTWATCHBOX_LONG_OK2== -2 ))||new_error){ -if(qbevent){evnt(26070,9985,"ide_methods.bas");if(r)goto S_47152;} -do{ -goto LABEL_BUILDLISTTORETURN; -if(!qbevent)break;evnt(26070,9987,"ide_methods.bas");}while(r); -S_47154:; -}else{ -if (-(*_FUNC_IDEELEMENTWATCHBOX_LONG_OK2== -3 )){ -if(qbevent){evnt(26070,9988,"ide_methods.bas");if(r)goto S_47154;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,9990,"ide_methods.bas");}while(r); -S_47156:; -}else{ -if (-(*_FUNC_IDEELEMENTWATCHBOX_LONG_OK2== -4 )){ -if(qbevent){evnt(26070,9991,"ide_methods.bas");if(r)goto S_47156;} -do{ -*_FUNC_IDEELEMENTWATCHBOX_LONG_I=*_FUNC_IDEELEMENTWATCHBOX_LONG_Y; -if(!qbevent)break;evnt(26070,9992,"ide_methods.bas");}while(r); -do{ -*(int8*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_I)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+24))= 0 ; -if(!qbevent)break;evnt(26070,9993,"ide_methods.bas");}while(r); -do{ -tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ -tmp_fileno=*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_I)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+8)); if (!new_error){ -tmp_long= 16 ; if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(26070,9994,"ide_methods.bas");}while(r); -do{ -tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ -tmp_fileno=*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_I)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+12)); if (!new_error){ -tmp_long= 2 ; if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(26070,9995,"ide_methods.bas");}while(r); -do{ -tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ -tmp_fileno=*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_I)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+4)); if (!new_error){ -tmp_long= 17 ; if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(26070,9996,"ide_methods.bas");}while(r); -do{ -tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ -tmp_fileno=*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_I)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+16)); if (!new_error){ -tmp_long= 32 ; if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(26070,9997,"ide_methods.bas");}while(r); -do{ -goto dl_continue_5160; -if(!qbevent)break;evnt(26070,9998,"ide_methods.bas");}while(r); -} -} -} -} -do{ -tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ -tmp_fileno=*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_Y)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+8)); if (!new_error){ -tmp_long=*_FUNC_IDEELEMENTWATCHBOX_LONG_VARIABLENAMECOLOR; if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(26070,10002,"ide_methods.bas");}while(r); -do{ -tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ -tmp_fileno=*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_Y)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+12)); if (!new_error){ -tmp_long=*_FUNC_IDEELEMENTWATCHBOX_LONG_TYPECOLUMNCOLOR; if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(26070,10003,"ide_methods.bas");}while(r); -do{ -tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ -tmp_fileno=*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_Y)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+4)); if (!new_error){ -tmp_long=*_FUNC_IDEELEMENTWATCHBOX_LONG_SELECTEDBG; if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(26070,10004,"ide_methods.bas");}while(r); -do{ -tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ -tmp_fileno=*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_Y)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+16)); if (!new_error){ -tmp_long= 43 ; if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(26070,10005,"ide_methods.bas");}while(r); -}else{ -do{ -tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ -tmp_fileno=*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_Y)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+8)); if (!new_error){ -tmp_long= 16 ; if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(26070,10007,"ide_methods.bas");}while(r); -do{ -tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ -tmp_fileno=*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_Y)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+12)); if (!new_error){ -tmp_long= 2 ; if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(26070,10008,"ide_methods.bas");}while(r); -do{ -tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ -tmp_fileno=*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_Y)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+4)); if (!new_error){ -tmp_long= 17 ; if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(26070,10009,"ide_methods.bas");}while(r); -do{ -tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ -tmp_fileno=*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_Y)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+16)); if (!new_error){ -tmp_long= 32 ; if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(26070,10010,"ide_methods.bas");}while(r); -} -} -S_47177:; -if ((*_FUNC_IDEELEMENTWATCHBOX_LONG_TOGGLEANDRETURN)||new_error){ -if(qbevent){evnt(26070,10013,"ide_methods.bas");if(r)goto S_47177;} -do{ -#include "ret177.txt" -if(!qbevent)break;evnt(26070,10013,"ide_methods.bas");}while(r); -} -do{ -goto dl_continue_5160; -if(!qbevent)break;evnt(26070,10014,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEELEMENTWATCHBOX_LONG_MOUSEDOWN= 0 ; -if(!qbevent)break;evnt(26070,10018,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEELEMENTWATCHBOX_LONG_MOUSEUP= 0 ; -if(!qbevent)break;evnt(26070,10019,"ide_methods.bas");}while(r); -dl_continue_5160:; -}while(1); -dl_exit_5160:; -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,10022,"ide_methods.bas");}while(r); -LABEL_BUILDLIST:; -if(qbevent){evnt(26070,10024,"ide_methods.bas");r=0;} -do{ -*_FUNC_IDEELEMENTWATCHBOX_LONG_MAXTYPELEN= 0 ; -if(!qbevent)break;evnt(26070,10025,"ide_methods.bas");}while(r); -S_47187:; -fornext_value5184= 1 ; -fornext_finalvalue5184=*_FUNC_IDEELEMENTWATCHBOX_LONG_TOTALELEMENTS; -fornext_step5184= 1 ; -if (fornext_step5184<0) fornext_step_negative5184=1; else fornext_step_negative5184=0; -if (new_error) goto fornext_error5184; -goto fornext_entrylabel5184; -while(1){ -fornext_value5184=fornext_step5184+(*_FUNC_IDEELEMENTWATCHBOX_LONG_X); -fornext_entrylabel5184: -*_FUNC_IDEELEMENTWATCHBOX_LONG_X=fornext_value5184; -if (fornext_step_negative5184){ -if (fornext_value5184fornext_finalvalue5184) break; -} -fornext_error5184:; -if(qbevent){evnt(26070,10026,"ide_methods.bas");if(r)goto S_47187;} -do{ -*_FUNC_IDEELEMENTWATCHBOX_LONG_THISTYPE=string2l(func_mid(_FUNC_IDEELEMENTWATCHBOX_STRING_ELEMENTINDEXES,(*_FUNC_IDEELEMENTWATCHBOX_LONG_X* 4 )-( 3 ), 4 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10027,"ide_methods.bas");}while(r); -S_47189:; -if ((qbs_cleanup(qbs_tmp_base,-(((int32)(qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTECNAME[0]))[(array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_THISTYPE)-__ARRAY_STRING256_UDTECNAME[4],__ARRAY_STRING256_UDTECNAME[5]))*256],256,1)))->len)>*_FUNC_IDEELEMENTWATCHBOX_LONG_LONGESTNAME)))||new_error){ -if(qbevent){evnt(26070,10028,"ide_methods.bas");if(r)goto S_47189;} -do{ -*_FUNC_IDEELEMENTWATCHBOX_LONG_LONGESTNAME=((int32)(qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTECNAME[0]))[(array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_THISTYPE)-__ARRAY_STRING256_UDTECNAME[4],__ARRAY_STRING256_UDTECNAME[5]))*256],256,1)))->len); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10028,"ide_methods.bas");}while(r); -} -do{ -*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_X)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33))=*_FUNC_IDEELEMENTWATCHBOX_LONG_THISTYPE; -if(!qbevent)break;evnt(26070,10029,"ide_methods.bas");}while(r); -do{ -*(int8*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_X)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+24))= 0 ; -if(!qbevent)break;evnt(26070,10030,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(536))=((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_THISTYPE)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]; -if(!qbevent)break;evnt(26070,10031,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)__UDT_ID)+(540))=((int32*)(__ARRAY_LONG_UDTESIZE[0]))[array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_THISTYPE)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5])]; -if(!qbevent)break;evnt(26070,10032,"ide_methods.bas");}while(r); -S_47196:; -if ((*(int32*)(((char*)__UDT_ID)+(536))&*__LONG_ISFIXEDLENGTH)||new_error){ -if(qbevent){evnt(26070,10034,"ide_methods.bas");if(r)goto S_47196;} -do{ -*(int32*)(((char*)__UDT_ID)+(540))=((int32*)(__ARRAY_LONG_UDTETYPESIZE[0]))[array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_THISTYPE)-__ARRAY_LONG_UDTETYPESIZE[4],__ARRAY_LONG_UDTETYPESIZE[5])]; -if(!qbevent)break;evnt(26070,10035,"ide_methods.bas");}while(r); -} -do{ -qbs_set(*((qbs**)((char*)(_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_X)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+25))),FUNC_ID2FULLTYPENAME()); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10038,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEELEMENTWATCHBOX_LONG_THISLEN=(*(qbs**)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_X)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+25)))->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10039,"ide_methods.bas");}while(r); -S_47201:; -if ((-(*_FUNC_IDEELEMENTWATCHBOX_LONG_THISLEN>*_FUNC_IDEELEMENTWATCHBOX_LONG_MAXTYPELEN))||new_error){ -if(qbevent){evnt(26070,10040,"ide_methods.bas");if(r)goto S_47201;} -do{ -*_FUNC_IDEELEMENTWATCHBOX_LONG_MAXTYPELEN=*_FUNC_IDEELEMENTWATCHBOX_LONG_THISLEN; -if(!qbevent)break;evnt(26070,10040,"ide_methods.bas");}while(r); -} -fornext_continue_5183:; -} -fornext_exit_5183:; -do{ -qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_L,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10043,"ide_methods.bas");}while(r); -S_47206:; -fornext_value5186= 1 ; -fornext_finalvalue5186=*_FUNC_IDEELEMENTWATCHBOX_LONG_TOTALELEMENTS; -fornext_step5186= 1 ; -if (fornext_step5186<0) fornext_step_negative5186=1; else fornext_step_negative5186=0; -if (new_error) goto fornext_error5186; -goto fornext_entrylabel5186; -while(1){ -fornext_value5186=fornext_step5186+(*_FUNC_IDEELEMENTWATCHBOX_LONG_X); -fornext_entrylabel5186: -*_FUNC_IDEELEMENTWATCHBOX_LONG_X=fornext_value5186; -if (fornext_step_negative5186){ -if (fornext_value5186fornext_finalvalue5186) break; -} -fornext_error5186:; -if(qbevent){evnt(26070,10044,"ide_methods.bas");if(r)goto S_47206;} -do{ -*_FUNC_IDEELEMENTWATCHBOX_LONG_THISELEMENT=*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_X)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)); -if(!qbevent)break;evnt(26070,10045,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_L,qbs_add(_FUNC_IDEELEMENTWATCHBOX_STRING_L,func_chr( 17 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10046,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_X)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+4))=_FUNC_IDEELEMENTWATCHBOX_STRING_L->len+ 1 ; -if(!qbevent)break;evnt(26070,10047,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_L,qbs_add(_FUNC_IDEELEMENTWATCHBOX_STRING_L,func_chr( 17 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10048,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_L,qbs_add(_FUNC_IDEELEMENTWATCHBOX_STRING_L,func_chr( 16 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10050,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_X)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+8))=_FUNC_IDEELEMENTWATCHBOX_STRING_L->len+ 1 ; -if(!qbevent)break;evnt(26070,10051,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_X)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+16))=_FUNC_IDEELEMENTWATCHBOX_STRING_L->len+ 2 ; -if(!qbevent)break;evnt(26070,10052,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_L,qbs_add(qbs_add(_FUNC_IDEELEMENTWATCHBOX_STRING_L,func_chr( 16 )),qbs_new_txt_len(" ",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10053,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_THISNAME,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTECNAME[0]))[(array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_THISELEMENT)-__ARRAY_STRING256_UDTECNAME[4],__ARRAY_STRING256_UDTECNAME[5]))*256],256,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10055,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_TEXT,qbs_add(_FUNC_IDEELEMENTWATCHBOX_STRING_THISNAME,func_chr( 16 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10056,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_X)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+12))=_FUNC_IDEELEMENTWATCHBOX_STRING_L->len+_FUNC_IDEELEMENTWATCHBOX_STRING_TEXT->len+ 1 ; -if(!qbevent)break;evnt(26070,10057,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_TEXT,qbs_add(qbs_add(_FUNC_IDEELEMENTWATCHBOX_STRING_TEXT,func_chr( 2 )),qbs_new_txt_len(" ",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10058,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_TEXT,qbs_add(_FUNC_IDEELEMENTWATCHBOX_STRING_TEXT,func_space(*_FUNC_IDEELEMENTWATCHBOX_LONG_LONGESTNAME-_FUNC_IDEELEMENTWATCHBOX_STRING_THISNAME->len))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10059,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_TEXT,qbs_add(qbs_add(qbs_add(_FUNC_IDEELEMENTWATCHBOX_STRING_TEXT,qbs_new_txt_len(" ",1)),*((qbs**)((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0]+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_X)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+25)))),func_space(*_FUNC_IDEELEMENTWATCHBOX_LONG_MAXTYPELEN-(*(qbs**)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_X)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+25)))->len))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10060,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_L,qbs_add(_FUNC_IDEELEMENTWATCHBOX_STRING_L,_FUNC_IDEELEMENTWATCHBOX_STRING_TEXT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10062,"ide_methods.bas");}while(r); -S_47222:; -if ((-(*_FUNC_IDEELEMENTWATCHBOX_LONG_X<*_FUNC_IDEELEMENTWATCHBOX_LONG_TOTALELEMENTS))||new_error){ -if(qbevent){evnt(26070,10063,"ide_methods.bas");if(r)goto S_47222;} -do{ -qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_L,qbs_add(_FUNC_IDEELEMENTWATCHBOX_STRING_L,_FUNC_IDEELEMENTWATCHBOX_STRING1_SEP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10063,"ide_methods.bas");}while(r); -} -fornext_continue_5185:; -} -fornext_exit_5185:; -do{ -#include "ret177.txt" -if(!qbevent)break;evnt(26070,10065,"ide_methods.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free177.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_IDEELEMENTWATCHBOX_STRING_IDEELEMENTWATCHBOX);return _FUNC_IDEELEMENTWATCHBOX_STRING_IDEELEMENTWATCHBOX; -} -qbs* FUNC_FORMATRANGE(qbs*_FUNC_FORMATRANGE_STRING___TEXT){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data178.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -qbs_set(_FUNC_FORMATRANGE_STRING_TEMP,_FUNC_FORMATRANGE_STRING___TEXT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10070,"ide_methods.bas");}while(r); -do{ -*_FUNC_FORMATRANGE_LONG_V1= -1 ; -if(!qbevent)break;evnt(26070,10071,"ide_methods.bas");}while(r); -do{ -*_FUNC_FORMATRANGE_LONG_V2= -1 ; -if(!qbevent)break;evnt(26070,10072,"ide_methods.bas");}while(r); -S_47230:; -fornext_value5195= 1 ; -fornext_finalvalue5195=_FUNC_FORMATRANGE_STRING_TEMP->len/ 4 ; -fornext_step5195= 1 ; -if (fornext_step5195<0) fornext_step_negative5195=1; else fornext_step_negative5195=0; -if (new_error) goto fornext_error5195; -goto fornext_entrylabel5195; -while(1){ -fornext_value5195=fornext_step5195+(*_FUNC_FORMATRANGE_LONG_I); -fornext_entrylabel5195: -*_FUNC_FORMATRANGE_LONG_I=fornext_value5195; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative5195){ -if (fornext_value5195fornext_finalvalue5195) break; -} -fornext_error5195:; -if(qbevent){evnt(26070,10073,"ide_methods.bas");if(r)goto S_47230;} -do{ -*_FUNC_FORMATRANGE_LONG_V=string2l(func_mid(_FUNC_FORMATRANGE_STRING_TEMP,(*_FUNC_FORMATRANGE_LONG_I* 4 )-( 3 ), 4 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10074,"ide_methods.bas");}while(r); -S_47232:; -if ((-(*_FUNC_FORMATRANGE_LONG_V1== -1 ))||new_error){ -if(qbevent){evnt(26070,10075,"ide_methods.bas");if(r)goto S_47232;} -do{ -*_FUNC_FORMATRANGE_LONG_V1=*_FUNC_FORMATRANGE_LONG_V; -if(!qbevent)break;evnt(26070,10076,"ide_methods.bas");}while(r); -}else{ -S_47235:; -if (((-(*_FUNC_FORMATRANGE_LONG_V==(*_FUNC_FORMATRANGE_LONG_V1+ 1 )))|(-(*_FUNC_FORMATRANGE_LONG_V==(*_FUNC_FORMATRANGE_LONG_V2+ 1 ))))||new_error){ -if(qbevent){evnt(26070,10078,"ide_methods.bas");if(r)goto S_47235;} -do{ -*_FUNC_FORMATRANGE_LONG_V2=*_FUNC_FORMATRANGE_LONG_V; -if(!qbevent)break;evnt(26070,10079,"ide_methods.bas");}while(r); -}else{ -S_47238:; -if ((-(*_FUNC_FORMATRANGE_LONG_V2== -1 ))||new_error){ -if(qbevent){evnt(26070,10081,"ide_methods.bas");if(r)goto S_47238;} -do{ -qbs_set(_FUNC_FORMATRANGE_STRING_A2,qbs_add(qbs_add(_FUNC_FORMATRANGE_STRING_A2,qbs_ltrim(qbs_str((int32)(*_FUNC_FORMATRANGE_LONG_V1)))),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10082,"ide_methods.bas");}while(r); -do{ -*_FUNC_FORMATRANGE_LONG_V1=*_FUNC_FORMATRANGE_LONG_V; -if(!qbevent)break;evnt(26070,10083,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_FORMATRANGE_STRING_A2,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_FORMATRANGE_STRING_A2,qbs_ltrim(qbs_str((int32)(*_FUNC_FORMATRANGE_LONG_V1)))),qbs_new_txt_len("-",1)),qbs_ltrim(qbs_str((int32)(*_FUNC_FORMATRANGE_LONG_V2)))),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10085,"ide_methods.bas");}while(r); -do{ -*_FUNC_FORMATRANGE_LONG_V1=*_FUNC_FORMATRANGE_LONG_V; -if(!qbevent)break;evnt(26070,10086,"ide_methods.bas");}while(r); -do{ -*_FUNC_FORMATRANGE_LONG_V2= -1 ; -if(!qbevent)break;evnt(26070,10087,"ide_methods.bas");}while(r); -} -} -} -fornext_continue_5194:; -} -fornext_exit_5194:; -S_47249:; -if (((-(*_FUNC_FORMATRANGE_LONG_V1!= -1 ))&(-(*_FUNC_FORMATRANGE_LONG_V2== -1 )))||new_error){ -if(qbevent){evnt(26070,10092,"ide_methods.bas");if(r)goto S_47249;} -do{ -qbs_set(_FUNC_FORMATRANGE_STRING_A2,qbs_add(_FUNC_FORMATRANGE_STRING_A2,qbs_ltrim(qbs_str((int32)(*_FUNC_FORMATRANGE_LONG_V1))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10092,"ide_methods.bas");}while(r); -} -S_47252:; -if (((-(*_FUNC_FORMATRANGE_LONG_V1!= -1 ))&(-(*_FUNC_FORMATRANGE_LONG_V2!= -1 )))||new_error){ -if(qbevent){evnt(26070,10093,"ide_methods.bas");if(r)goto S_47252;} -do{ -qbs_set(_FUNC_FORMATRANGE_STRING_A2,qbs_add(qbs_add(qbs_add(_FUNC_FORMATRANGE_STRING_A2,qbs_ltrim(qbs_str((int32)(*_FUNC_FORMATRANGE_LONG_V1)))),qbs_new_txt_len("-",1)),qbs_ltrim(qbs_str((int32)(*_FUNC_FORMATRANGE_LONG_V2))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10093,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_FORMATRANGE_STRING_FORMATRANGE,_FUNC_FORMATRANGE_STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10094,"ide_methods.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free178.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_FORMATRANGE_STRING_FORMATRANGE);return _FUNC_FORMATRANGE_STRING_FORMATRANGE; -} -qbs* FUNC_EXPANDARRAY(qbs*_FUNC_EXPANDARRAY_STRING___INDEXES,qbs*_FUNC_EXPANDARRAY_STRING___PATH){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data179.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -if(!qbevent)break;evnt(26070,10098,"ide_methods.bas");}while(r); -S_47257:; -if ((-(*_FUNC_EXPANDARRAY_LONG_THISLEVEL== 0 ))||new_error){ -if(qbevent){evnt(26070,10100,"ide_methods.bas");if(r)goto S_47257;} -do{ -qbs_set(_FUNC_EXPANDARRAY_STRING_RETURNVALUE,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10101,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_EXPANDARRAY_LONG_THISLEVEL=*_FUNC_EXPANDARRAY_LONG_THISLEVEL+ 1 ; -if(!qbevent)break;evnt(26070,10104,"ide_methods.bas");}while(r); -do{ -*_FUNC_EXPANDARRAY_LONG_TOTALINDEXES=string2l(qbs_left(_FUNC_EXPANDARRAY_STRING___INDEXES, 4 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10106,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_EXPANDARRAY_STRING_INDEXES,func_mid(_FUNC_EXPANDARRAY_STRING___INDEXES, 5 ,*_FUNC_EXPANDARRAY_LONG_TOTALINDEXES,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10107,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_EXPANDARRAY_STRING_REMAININGINDEXES,func_mid(_FUNC_EXPANDARRAY_STRING___INDEXES, 5 +*_FUNC_EXPANDARRAY_LONG_TOTALINDEXES,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10108,"ide_methods.bas");}while(r); -do{ -*_FUNC_EXPANDARRAY_LONG_TOTALINDEXES=*_FUNC_EXPANDARRAY_LONG_TOTALINDEXES/ 4 ; -if(!qbevent)break;evnt(26070,10109,"ide_methods.bas");}while(r); -S_47265:; -fornext_value5200= 1 ; -fornext_finalvalue5200=*_FUNC_EXPANDARRAY_LONG_TOTALINDEXES; -fornext_step5200= 1 ; -if (fornext_step5200<0) fornext_step_negative5200=1; else fornext_step_negative5200=0; -if (new_error) goto fornext_error5200; -goto fornext_entrylabel5200; -while(1){ -fornext_value5200=fornext_step5200+(*_FUNC_EXPANDARRAY_LONG_I); -fornext_entrylabel5200: -*_FUNC_EXPANDARRAY_LONG_I=fornext_value5200; -if (fornext_step_negative5200){ -if (fornext_value5200fornext_finalvalue5200) break; -} -fornext_error5200:; -if(qbevent){evnt(26070,10111,"ide_methods.bas");if(r)goto S_47265;} -do{ -qbs_set(_FUNC_EXPANDARRAY_STRING_TEMP,qbs_add(_FUNC_EXPANDARRAY_STRING___PATH,func_mid(_FUNC_EXPANDARRAY_STRING_INDEXES,(*_FUNC_EXPANDARRAY_LONG_I* 4 )-( 3 ), 4 ,0|1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10112,"ide_methods.bas");}while(r); -S_47267:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_EXPANDARRAY_STRING_REMAININGINDEXES->len))||new_error){ -if(qbevent){evnt(26070,10113,"ide_methods.bas");if(r)goto S_47267;} -do{ -qbs_set(_FUNC_EXPANDARRAY_STRING_TEMP,FUNC_EXPANDARRAY(_FUNC_EXPANDARRAY_STRING_REMAININGINDEXES,_FUNC_EXPANDARRAY_STRING_TEMP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10114,"ide_methods.bas");}while(r); -} -S_47270:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_EXPANDARRAY_STRING_TEMP->len))||new_error){ -if(qbevent){evnt(26070,10116,"ide_methods.bas");if(r)goto S_47270;} -do{ -qbs_set(_FUNC_EXPANDARRAY_STRING_RETURNVALUE,qbs_add(qbs_add(_FUNC_EXPANDARRAY_STRING_RETURNVALUE,l2string(_FUNC_EXPANDARRAY_STRING_TEMP->len)),_FUNC_EXPANDARRAY_STRING_TEMP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10117,"ide_methods.bas");}while(r); -} -fornext_continue_5199:; -} -fornext_exit_5199:; -do{ -*_FUNC_EXPANDARRAY_LONG_THISLEVEL=*_FUNC_EXPANDARRAY_LONG_THISLEVEL- 1 ; -if(!qbevent)break;evnt(26070,10121,"ide_methods.bas");}while(r); -S_47275:; -if ((-(*_FUNC_EXPANDARRAY_LONG_THISLEVEL== 0 ))||new_error){ -if(qbevent){evnt(26070,10123,"ide_methods.bas");if(r)goto S_47275;} -do{ -qbs_set(_FUNC_EXPANDARRAY_STRING_EXPANDARRAY,_FUNC_EXPANDARRAY_STRING_RETURNVALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10124,"ide_methods.bas");}while(r); -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free179.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_EXPANDARRAY_STRING_EXPANDARRAY);return _FUNC_EXPANDARRAY_STRING_EXPANDARRAY; -} -qbs* FUNC_PARSERANGE(qbs*_FUNC_PARSERANGE_STRING___TEXT){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data180.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -S_47278:; -if ((qbs_cleanup(qbs_tmp_base,-(((int32)(qbs__trim(_FUNC_PARSERANGE_STRING___TEXT))->len)== 0 )))||new_error){ -if(qbevent){evnt(26070,10134,"ide_methods.bas");if(r)goto S_47278;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,10134,"ide_methods.bas");}while(r); -} -do{ -if(!qbevent)break;evnt(26070,10136,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_PARSERANGE_STRING_FILTER,qbs__trim(_FUNC_PARSERANGE_STRING___TEXT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10138,"ide_methods.bas");}while(r); -do{ -*_FUNC_PARSERANGE_LONG_J=func_instr(NULL,_FUNC_PARSERANGE_STRING_FILTER,qbs_new_txt_len("-",1),0)+func_instr(NULL,_FUNC_PARSERANGE_STRING_FILTER,qbs_new_txt_len(";",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10139,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_PARSERANGE_STRING_TEMP,func_space( 1000 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10140,"ide_methods.bas");}while(r); -S_47285:; -if ((-(*_FUNC_PARSERANGE_LONG_J== 0 ))||new_error){ -if(qbevent){evnt(26070,10142,"ide_methods.bas");if(r)goto S_47285;} -do{ -qbs_set(_FUNC_PARSERANGE_STRING_PARSERANGE,l2string(qbr(func_val(_FUNC_PARSERANGE_STRING_FILTER)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10143,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,10144,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_PARSERANGE_LONG_READING= 1 ; -if(!qbevent)break;evnt(26070,10147,"ide_methods.bas");}while(r); -S_47290:; -fornext_value5206= 1 ; -fornext_finalvalue5206=_FUNC_PARSERANGE_STRING_FILTER->len; -fornext_step5206= 1 ; -if (fornext_step5206<0) fornext_step_negative5206=1; else fornext_step_negative5206=0; -if (new_error) goto fornext_error5206; -goto fornext_entrylabel5206; -while(1){ -fornext_value5206=fornext_step5206+(*_FUNC_PARSERANGE_LONG_J); -fornext_entrylabel5206: -*_FUNC_PARSERANGE_LONG_J=fornext_value5206; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative5206){ -if (fornext_value5206fornext_finalvalue5206) break; -} -fornext_error5206:; -if(qbevent){evnt(26070,10148,"ide_methods.bas");if(r)goto S_47290;} -do{ -*_FUNC_PARSERANGE_LONG_V=qbs_asc(_FUNC_PARSERANGE_STRING_FILTER,*_FUNC_PARSERANGE_LONG_J); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10149,"ide_methods.bas");}while(r); -S_47292:; -if(qbevent){evnt(26070,10150,"ide_methods.bas");if(r)goto S_47292;} -S_47293:; -if (((*_FUNC_PARSERANGE_LONG_V==( 59 )))||new_error){ -if(qbevent){evnt(26070,10151,"ide_methods.bas");if(r)goto S_47293;} -do{ -*_FUNC_PARSERANGE_LONG_READING= 1 ; -if(!qbevent)break;evnt(26070,10152,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=154; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_PARSEIT; -RETURN_154:; -if(!qbevent)break;evnt(26070,10153,"ide_methods.bas");}while(r); -sc_ec_358_end:; -goto sc_5208_end; -} -S_47296:; -if (((*_FUNC_PARSERANGE_LONG_V==( 45 )))||new_error){ -if(qbevent){evnt(26070,10154,"ide_methods.bas");if(r)goto S_47296;} -S_47297:; -if ((-(*_FUNC_PARSERANGE_LONG_PREVCHAR!= 45 ))||new_error){ -if(qbevent){evnt(26070,10155,"ide_methods.bas");if(r)goto S_47297;} -do{ -*_FUNC_PARSERANGE_LONG_READING=*_FUNC_PARSERANGE_LONG_READING+ 1 ; -if(!qbevent)break;evnt(26070,10156,"ide_methods.bas");}while(r); -S_47299:; -if ((-(*_FUNC_PARSERANGE_LONG_READING== 2 ))||new_error){ -if(qbevent){evnt(26070,10157,"ide_methods.bas");if(r)goto S_47299;} -S_47300:; -if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_PARSERANGE_LONG_J==_FUNC_PARSERANGE_STRING_FILTER->len)))||new_error){ -if(qbevent){evnt(26070,10158,"ide_methods.bas");if(r)goto S_47300;} -do{ -return_point[next_return_point++]=155; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_PARSEIT; -RETURN_155:; -if(!qbevent)break;evnt(26070,10158,"ide_methods.bas");}while(r); -} -} -} -sc_ec_359_end:; -goto sc_5208_end; -} -S_47305:; -if ((((*_FUNC_PARSERANGE_LONG_V>=( 48 ))&&(*_FUNC_PARSERANGE_LONG_V<=( 57 ))))||new_error){ -if(qbevent){evnt(26070,10161,"ide_methods.bas");if(r)goto S_47305;} -S_47306:; -if ((-(*_FUNC_PARSERANGE_LONG_READING== 1 ))||new_error){ -if(qbevent){evnt(26070,10162,"ide_methods.bas");if(r)goto S_47306;} -do{ -qbs_set(_FUNC_PARSERANGE_STRING_V1,qbs_add(_FUNC_PARSERANGE_STRING_V1,func_chr(*_FUNC_PARSERANGE_LONG_V))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10163,"ide_methods.bas");}while(r); -S_47308:; -}else{ -if (-(*_FUNC_PARSERANGE_LONG_READING== 2 )){ -if(qbevent){evnt(26070,10164,"ide_methods.bas");if(r)goto S_47308;} -do{ -qbs_set(_FUNC_PARSERANGE_STRING_V2,qbs_add(_FUNC_PARSERANGE_STRING_V2,func_chr(*_FUNC_PARSERANGE_LONG_V))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10165,"ide_methods.bas");}while(r); -} -} -S_47311:; -if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_PARSERANGE_LONG_J==_FUNC_PARSERANGE_STRING_FILTER->len)))||new_error){ -if(qbevent){evnt(26070,10167,"ide_methods.bas");if(r)goto S_47311;} -do{ -return_point[next_return_point++]=156; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_PARSEIT; -RETURN_156:; -if(!qbevent)break;evnt(26070,10167,"ide_methods.bas");}while(r); -} -sc_ec_360_end:; -goto sc_5208_end; -} -sc_5208_end:; -do{ -*_FUNC_PARSERANGE_LONG_PREVCHAR=*_FUNC_PARSERANGE_LONG_V; -if(!qbevent)break;evnt(26070,10169,"ide_methods.bas");}while(r); -fornext_continue_5205:; -} -fornext_exit_5205:; -do{ -qbs_set(_FUNC_PARSERANGE_STRING_RETURNVALUE,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10172,"ide_methods.bas");}while(r); -S_47318:; -if ((*_FUNC_PARSERANGE_BYTE_ZEROINCLUDED)||new_error){ -if(qbevent){evnt(26070,10173,"ide_methods.bas");if(r)goto S_47318;} -do{ -qbs_set(_FUNC_PARSERANGE_STRING_RETURNVALUE,l2string( 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10173,"ide_methods.bas");}while(r); -} -S_47321:; -fornext_value5212= 1 ; -fornext_finalvalue5212=_FUNC_PARSERANGE_STRING_TEMP->len; -fornext_step5212= 1 ; -if (fornext_step5212<0) fornext_step_negative5212=1; else fornext_step_negative5212=0; -if (new_error) goto fornext_error5212; -goto fornext_entrylabel5212; -while(1){ -fornext_value5212=fornext_step5212+(*_FUNC_PARSERANGE_LONG_I); -fornext_entrylabel5212: -*_FUNC_PARSERANGE_LONG_I=fornext_value5212; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative5212){ -if (fornext_value5212fornext_finalvalue5212) break; -} -fornext_error5212:; -if(qbevent){evnt(26070,10174,"ide_methods.bas");if(r)goto S_47321;} -S_47322:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_PARSERANGE_STRING_TEMP,*_FUNC_PARSERANGE_LONG_I)== 1 )))||new_error){ -if(qbevent){evnt(26070,10175,"ide_methods.bas");if(r)goto S_47322;} -do{ -qbs_set(_FUNC_PARSERANGE_STRING_RETURNVALUE,qbs_add(_FUNC_PARSERANGE_STRING_RETURNVALUE,l2string(*_FUNC_PARSERANGE_LONG_I))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10175,"ide_methods.bas");}while(r); -} -fornext_continue_5211:; -} -fornext_exit_5211:; -do{ -qbs_set(_FUNC_PARSERANGE_STRING_PARSERANGE,_FUNC_PARSERANGE_STRING_RETURNVALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10177,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,10179,"ide_methods.bas");}while(r); -LABEL_PARSEIT:; -if(qbevent){evnt(26070,10180,"ide_methods.bas");r=0;} -do{ -*_FUNC_PARSERANGE_LONG_V1=qbr(func_val(_FUNC_PARSERANGE_STRING_V1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10181,"ide_methods.bas");}while(r); -do{ -*_FUNC_PARSERANGE_LONG_V2=qbr(func_val(_FUNC_PARSERANGE_STRING_V2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10182,"ide_methods.bas");}while(r); -S_47330:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_PARSERANGE_STRING_V2->len> 0 )))||new_error){ -if(qbevent){evnt(26070,10183,"ide_methods.bas");if(r)goto S_47330;} -S_47331:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_PARSERANGE_STRING_V1->len> 0 )))||new_error){ -if(qbevent){evnt(26070,10184,"ide_methods.bas");if(r)goto S_47331;} -S_47332:; -if ((-(*_FUNC_PARSERANGE_LONG_V1>*_FUNC_PARSERANGE_LONG_V2))||new_error){ -if(qbevent){evnt(26070,10185,"ide_methods.bas");if(r)goto S_47332;} -do{ -swap_32(&*_FUNC_PARSERANGE_LONG_V1,&*_FUNC_PARSERANGE_LONG_V2); -if(!qbevent)break;evnt(26070,10185,"ide_methods.bas");}while(r); -} -S_47335:; -if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_PARSERANGE_LONG_V2>_FUNC_PARSERANGE_STRING_TEMP->len)))||new_error){ -if(qbevent){evnt(26070,10186,"ide_methods.bas");if(r)goto S_47335;} -do{ -qbs_set(_FUNC_PARSERANGE_STRING_TEMP,qbs_add(_FUNC_PARSERANGE_STRING_TEMP,func_space(*_FUNC_PARSERANGE_LONG_V2-_FUNC_PARSERANGE_STRING_TEMP->len))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10186,"ide_methods.bas");}while(r); -} -S_47338:; -if ((-(*_FUNC_PARSERANGE_LONG_V1== 0 ))||new_error){ -if(qbevent){evnt(26070,10187,"ide_methods.bas");if(r)goto S_47338;} -do{ -*_FUNC_PARSERANGE_BYTE_ZEROINCLUDED= -1 ; -if(!qbevent)break;evnt(26070,10187,"ide_methods.bas");}while(r); -do{ -*_FUNC_PARSERANGE_LONG_V1= 1 ; -if(!qbevent)break;evnt(26070,10187,"ide_methods.bas");}while(r); -} -S_47342:; -fornext_value5219=*_FUNC_PARSERANGE_LONG_V1; -fornext_finalvalue5219=*_FUNC_PARSERANGE_LONG_V2; -fornext_step5219= 1 ; -if (fornext_step5219<0) fornext_step_negative5219=1; else fornext_step_negative5219=0; -if (new_error) goto fornext_error5219; -goto fornext_entrylabel5219; -while(1){ -fornext_value5219=fornext_step5219+(*_FUNC_PARSERANGE_LONG_I); -fornext_entrylabel5219: -*_FUNC_PARSERANGE_LONG_I=fornext_value5219; -if (fornext_step_negative5219){ -if (fornext_value5219fornext_finalvalue5219) break; -} -fornext_error5219:; -if(qbevent){evnt(26070,10188,"ide_methods.bas");if(r)goto S_47342;} -do{ -tqbs=_FUNC_PARSERANGE_STRING_TEMP; if (!new_error){ -tmp_fileno=*_FUNC_PARSERANGE_LONG_I; if (!new_error){ -tmp_long= 1 ; if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(26070,10189,"ide_methods.bas");}while(r); -fornext_continue_5218:; -} -fornext_exit_5218:; -} -}else{ -S_47347:; -if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_PARSERANGE_LONG_V1>_FUNC_PARSERANGE_STRING_TEMP->len)))||new_error){ -if(qbevent){evnt(26070,10193,"ide_methods.bas");if(r)goto S_47347;} -do{ -qbs_set(_FUNC_PARSERANGE_STRING_TEMP,qbs_add(_FUNC_PARSERANGE_STRING_TEMP,func_space(*_FUNC_PARSERANGE_LONG_V1-_FUNC_PARSERANGE_STRING_TEMP->len))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10193,"ide_methods.bas");}while(r); -} -S_47350:; -if ((-(*_FUNC_PARSERANGE_LONG_V1== 0 ))||new_error){ -if(qbevent){evnt(26070,10194,"ide_methods.bas");if(r)goto S_47350;} -do{ -*_FUNC_PARSERANGE_BYTE_ZEROINCLUDED= -1 ; -if(!qbevent)break;evnt(26070,10195,"ide_methods.bas");}while(r); -}else{ -do{ -tqbs=_FUNC_PARSERANGE_STRING_TEMP; if (!new_error){ -tmp_fileno=*_FUNC_PARSERANGE_LONG_V1; if (!new_error){ -tmp_long= 1 ; if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(26070,10197,"ide_methods.bas");}while(r); -} -} -do{ -qbs_set(_FUNC_PARSERANGE_STRING_V1,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10200,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_PARSERANGE_STRING_V2,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10201,"ide_methods.bas");}while(r); -do{ -#include "ret180.txt" -if(!qbevent)break;evnt(26070,10202,"ide_methods.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free180.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_PARSERANGE_STRING_PARSERANGE);return _FUNC_PARSERANGE_STRING_PARSERANGE; -} -int32 FUNC_IDECALLSTACKBOX(){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data181.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -sub_pcopy( 0 , 2 ); -if(!qbevent)break;evnt(26070,10208,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 0 , 1 ); -if(!qbevent)break;evnt(26070,10209,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,10210,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECALLSTACKBOX_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(26070,10211,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(26070,10212,"ide_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26070,9730,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_DIALOGHEIGHT=*_FUNC_IDEELEMENTWATCHBOX_LONG_TOTALELEMENTS+ 4 ; +if(!qbevent)break;evnt(26070,9731,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_I= 0 ; +if(!qbevent)break;evnt(26070,9732,"ide_methods.bas");}while(r); +S_46850:; +if ((-(*_FUNC_IDEELEMENTWATCHBOX_LONG_DIALOGHEIGHT>(*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 6 )))||new_error){ +if(qbevent){evnt(26070,9733,"ide_methods.bas");if(r)goto S_46850;} +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_DIALOGHEIGHT=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 6 ; +if(!qbevent)break;evnt(26070,9734,"ide_methods.bas");}while(r); +} +S_46853:; +if ((-(*_FUNC_IDEELEMENTWATCHBOX_LONG_DIALOGHEIGHT< 5 ))||new_error){ +if(qbevent){evnt(26070,9736,"ide_methods.bas");if(r)goto S_46853;} +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_DIALOGHEIGHT= 5 ; +if(!qbevent)break;evnt(26070,9736,"ide_methods.bas");}while(r); +} +do{ +return_point[next_return_point++]=151; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_BUILDLIST; +RETURN_151:; +if(!qbevent)break;evnt(26070,9739,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_DIALOGWIDTH= 6 +*_FUNC_IDEELEMENTWATCHBOX_LONG_LONGESTNAME+*_FUNC_IDEELEMENTWATCHBOX_LONG_MAXTYPELEN; +if(!qbevent)break;evnt(26070,9740,"ide_methods.bas");}while(r); +S_46858:; +if ((-(*_FUNC_IDEELEMENTWATCHBOX_LONG_DIALOGWIDTH< 40 ))||new_error){ +if(qbevent){evnt(26070,9741,"ide_methods.bas");if(r)goto S_46858;} +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_DIALOGWIDTH= 40 ; +if(!qbevent)break;evnt(26070,9741,"ide_methods.bas");}while(r); +} +S_46861:; +if ((-(*_FUNC_IDEELEMENTWATCHBOX_LONG_DIALOGWIDTH>(*__LONG_IDEWX- 8 )))||new_error){ +if(qbevent){evnt(26070,9742,"ide_methods.bas");if(r)goto S_46861;} +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_DIALOGWIDTH=*__LONG_IDEWX- 8 ; +if(!qbevent)break;evnt(26070,9742,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_TITLE,qbs_new_txt_len("Add UDT Elements",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9744,"ide_methods.bas");}while(r); +S_46865:; +if ((*_FUNC_IDEELEMENTWATCHBOX_LONG_SINGLEELEMENTSELECTION)||new_error){ +if(qbevent){evnt(26070,9745,"ide_methods.bas");if(r)goto S_46865;} +do{ +qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_TITLE,qbs_new_txt_len("Choose UDT Element",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9745,"ide_methods.bas");}while(r); +} +do{ +SUB_IDEPAR((void*)( ((char*)(_FUNC_IDEELEMENTWATCHBOX_UDT_P)) + (0) ),_FUNC_IDEELEMENTWATCHBOX_LONG_DIALOGWIDTH,_FUNC_IDEELEMENTWATCHBOX_LONG_DIALOGHEIGHT,_FUNC_IDEELEMENTWATCHBOX_STRING_TITLE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9746,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_I=*_FUNC_IDEELEMENTWATCHBOX_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,9748,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX=*_FUNC_IDEELEMENTWATCHBOX_LONG_I; +if(!qbevent)break;evnt(26070,9748,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+36))= 2 ; +if(!qbevent)break;evnt(26070,9749,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+24))= 2 ; +if(!qbevent)break;evnt(26070,9750,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+28))=*_FUNC_IDEELEMENTWATCHBOX_LONG_DIALOGWIDTH- 4 ; +if(!qbevent)break;evnt(26070,9751,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_I)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+32))=*_FUNC_IDEELEMENTWATCHBOX_LONG_DIALOGHEIGHT- 4 ; +if(!qbevent)break;evnt(26070,9751,"ide_methods.bas");}while(r); +S_46875:; +if ((-(*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44))== 0 ))||new_error){ +if(qbevent){evnt(26070,9752,"ide_methods.bas");if(r)goto S_46875;} +do{ +*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDEELEMENTWATCHBOX_STRING_L); +if(!qbevent)break;evnt(26070,9752,"ide_methods.bas");}while(r); +}else{ +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDEELEMENTWATCHBOX_STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9752,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_I=*_FUNC_IDEELEMENTWATCHBOX_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,9754,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_BUTTONSET=*_FUNC_IDEELEMENTWATCHBOX_LONG_I; +if(!qbevent)break;evnt(26070,9754,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_BUTTONSET)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+36))= 3 ; +if(!qbevent)break;evnt(26070,9755,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_BUTTONSET)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+24))=*_FUNC_IDEELEMENTWATCHBOX_LONG_DIALOGHEIGHT; +if(!qbevent)break;evnt(26070,9756,"ide_methods.bas");}while(r); +S_46884:; +if ((-(*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_BUTTONSET)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44))== 0 ))||new_error){ +if(qbevent){evnt(26070,9757,"ide_methods.bas");if(r)goto S_46884;} +S_46885:; +if ((*_FUNC_IDEELEMENTWATCHBOX_LONG_SINGLEELEMENTSELECTION)||new_error){ +if(qbevent){evnt(26070,9758,"ide_methods.bas");if(r)goto S_46885;} +do{ +*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_BUTTONSET)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("#OK",3),_FUNC_IDEELEMENTWATCHBOX_STRING1_SEP),qbs_new_txt_len("#Cancel",7)),_FUNC_IDEELEMENTWATCHBOX_STRING1_SEP),qbs_new_txt_len("#Up One Level",13))); +if(!qbevent)break;evnt(26070,9759,"ide_methods.bas");}while(r); +}else{ +do{ +*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_BUTTONSET)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("#Add All",8),_FUNC_IDEELEMENTWATCHBOX_STRING1_SEP),qbs_new_txt_len("#Remove All",11)),_FUNC_IDEELEMENTWATCHBOX_STRING1_SEP),qbs_new_txt_len("#Close",6))); +if(!qbevent)break;evnt(26070,9761,"ide_methods.bas");}while(r); +} +} +S_46891:; +fornext_value5159= 1 ; +fornext_finalvalue5159= 100 ; +fornext_step5159= 1 ; +if (fornext_step5159<0) fornext_step_negative5159=1; else fornext_step_negative5159=0; +if (new_error) goto fornext_error5159; +goto fornext_entrylabel5159; +while(1){ +fornext_value5159=fornext_step5159+(*_FUNC_IDEELEMENTWATCHBOX_LONG_I); +fornext_entrylabel5159: +*_FUNC_IDEELEMENTWATCHBOX_LONG_I=fornext_value5159; +if (fornext_step_negative5159){ +if (fornext_value5159fornext_finalvalue5159) break; +} +fornext_error5159:; +if(qbevent){evnt(26070,9768,"ide_methods.bas");if(r)goto S_46891;} +do{ +memcpy(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_I)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89)+ 0,((char*)_FUNC_IDEELEMENTWATCHBOX_UDT_P)+(0)+ 0, 20); +if(!qbevent)break;evnt(26070,9768,"ide_methods.bas");}while(r); +fornext_continue_5158:; +} +fornext_exit_5158:; +S_46894:; +do{ +if(qbevent){evnt(26070,9771,"ide_methods.bas");if(r)goto S_46894;} +do{ +SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDEELEMENTWATCHBOX_UDT_P)) + (0) )); +if(!qbevent)break;evnt(26070,9774,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_F= 1 ; +if(!qbevent)break;evnt(26070,9775,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_CX= 0 ; +if(!qbevent)break;evnt(26070,9775,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_CY= 0 ; +if(!qbevent)break;evnt(26070,9775,"ide_methods.bas");}while(r); +S_46899:; +fornext_value5162= 1 ; +fornext_finalvalue5162= 100 ; +fornext_step5162= 1 ; +if (fornext_step5162<0) fornext_step_negative5162=1; else fornext_step_negative5162=0; +if (new_error) goto fornext_error5162; +goto fornext_entrylabel5162; +while(1){ +fornext_value5162=fornext_step5162+(*_FUNC_IDEELEMENTWATCHBOX_LONG_I); +fornext_entrylabel5162: +*_FUNC_IDEELEMENTWATCHBOX_LONG_I=fornext_value5162; +if (fornext_step_negative5162){ +if (fornext_value5162fornext_finalvalue5162) break; +} +fornext_error5162:; +if(qbevent){evnt(26070,9776,"ide_methods.bas");if(r)goto S_46899;} +S_46900:; +if ((*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_I)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+36)))||new_error){ +if(qbevent){evnt(26070,9777,"ide_methods.bas");if(r)goto S_46900;} +do{ +*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_I)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+60))=*_FUNC_IDEELEMENTWATCHBOX_LONG_FOCUS-*_FUNC_IDEELEMENTWATCHBOX_LONG_F; +if(!qbevent)break;evnt(26070,9779,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_I)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+52))= 0 ; +if(!qbevent)break;evnt(26070,9780,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_I)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+56))= 0 ; +if(!qbevent)break;evnt(26070,9780,"ide_methods.bas");}while(r); +do{ +SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_I)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDEELEMENTWATCHBOX_LONG_F); +if(!qbevent)break;evnt(26070,9781,"ide_methods.bas");}while(r); +S_46905:; +if ((*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_I)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+52)))||new_error){ +if(qbevent){evnt(26070,9782,"ide_methods.bas");if(r)goto S_46905;} +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_CX=*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_I)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+52)); +if(!qbevent)break;evnt(26070,9782,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_CY=*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_I)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+56)); +if(!qbevent)break;evnt(26070,9782,"ide_methods.bas");}while(r); +} +} +fornext_continue_5161:; +} +fornext_exit_5161:; +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_LASTFOCUS=*_FUNC_IDEELEMENTWATCHBOX_LONG_F- 1 ; +if(!qbevent)break;evnt(26070,9785,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,9789,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_TEMP,_FUNC_IDEELEMENTWATCHBOX_STRING_CURRENTPATH); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9790,"ide_methods.bas");}while(r); +S_46914:; +if ((qbs_cleanup(qbs_tmp_base,-((_FUNC_IDEELEMENTWATCHBOX_STRING_TEMP->len)>(*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_UDT_P)+(8))- 4 ))))||new_error){ +if(qbevent){evnt(26070,9791,"ide_methods.bas");if(r)goto S_46914;} +do{ +qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_TEMP,qbs_add(func_string( 3 , 250 ),qbs_right(_FUNC_IDEELEMENTWATCHBOX_STRING_TEMP,*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_UDT_P)+(8))- 7 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9791,"ide_methods.bas");}while(r); +} +do{ +sub__printstring(*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_UDT_P)+(0))+ 2 ,*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_UDT_P)+(4))+ 1 ,_FUNC_IDEELEMENTWATCHBOX_STRING_TEMP,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9792,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 1 , 0 ); +if(!qbevent)break;evnt(26070,9797,"ide_methods.bas");}while(r); +S_46919:; +if ((*_FUNC_IDEELEMENTWATCHBOX_LONG_CX)||new_error){ +if(qbevent){evnt(26070,9798,"ide_methods.bas");if(r)goto S_46919;} +do{ +qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,9798,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(*_FUNC_IDEELEMENTWATCHBOX_LONG_CY,*_FUNC_IDEELEMENTWATCHBOX_LONG_CX, 1 ,NULL,NULL,7); +if(!qbevent)break;evnt(26070,9798,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,9798,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_CHANGE= 0 ; +if(!qbevent)break;evnt(26070,9801,"ide_methods.bas");}while(r); +S_46925:; +do{ +if(qbevent){evnt(26070,9802,"ide_methods.bas");if(r)goto S_46925;} +do{ +SUB_GETINPUT(); +if(!qbevent)break;evnt(26070,9803,"ide_methods.bas");}while(r); +S_46927:; +if ((*__LONG_MWHEEL)||new_error){ +if(qbevent){evnt(26070,9804,"ide_methods.bas");if(r)goto S_46927;} +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,9804,"ide_methods.bas");}while(r); +} +S_46930:; +if ((*__LONG_KB)||new_error){ +if(qbevent){evnt(26070,9805,"ide_methods.bas");if(r)goto S_46930;} +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,9805,"ide_methods.bas");}while(r); +} +S_46933:; +if ((*__LONG_MCLICK)||new_error){ +if(qbevent){evnt(26070,9806,"ide_methods.bas");if(r)goto S_46933;} +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_MOUSEDOWN= 1 ; +if(!qbevent)break;evnt(26070,9806,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,9806,"ide_methods.bas");}while(r); +} +S_46937:; +if ((*__LONG_MRELEASE)||new_error){ +if(qbevent){evnt(26070,9807,"ide_methods.bas");if(r)goto S_46937;} +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_MOUSEUP= 1 ; +if(!qbevent)break;evnt(26070,9807,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,9807,"ide_methods.bas");}while(r); +} +S_46941:; +if ((*__LONG_MB)||new_error){ +if(qbevent){evnt(26070,9808,"ide_methods.bas");if(r)goto S_46941;} +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,9808,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_ALT=*__LONG_KALT; +if(!qbevent)break;evnt(26070,9809,"ide_methods.bas");}while(r); +S_46945:; +if ((-(*_FUNC_IDEELEMENTWATCHBOX_LONG_ALT!=*_FUNC_IDEELEMENTWATCHBOX_LONG_OLDALT))||new_error){ +if(qbevent){evnt(26070,9809,"ide_methods.bas");if(r)goto S_46945;} +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,9809,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_OLDALT=*_FUNC_IDEELEMENTWATCHBOX_LONG_ALT; +if(!qbevent)break;evnt(26070,9810,"ide_methods.bas");}while(r); +do{ +sub__limit( 100 ); +if(!qbevent)break;evnt(26070,9811,"ide_methods.bas");}while(r); +S_46950:; +dl_continue_5164:; +}while((!(*_FUNC_IDEELEMENTWATCHBOX_LONG_CHANGE))&&(!new_error)); +dl_exit_5164:; +if(qbevent){evnt(26070,9812,"ide_methods.bas");if(r)goto S_46950;} +S_46951:; +if ((*_FUNC_IDEELEMENTWATCHBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ +if(qbevent){evnt(26070,9813,"ide_methods.bas");if(r)goto S_46951;} +do{ +*__LONG_IDEHL= 1 ; +if(!qbevent)break;evnt(26070,9813,"ide_methods.bas");}while(r); +}else{ +do{ +*__LONG_IDEHL= 0 ; +if(!qbevent)break;evnt(26070,9813,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_ALTLETTER,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9815,"ide_methods.bas");}while(r); +S_46957:; +if ((*_FUNC_IDEELEMENTWATCHBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ +if(qbevent){evnt(26070,9816,"ide_methods.bas");if(r)goto S_46957;} +S_46958:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ +if(qbevent){evnt(26070,9817,"ide_methods.bas");if(r)goto S_46958;} +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9818,"ide_methods.bas");}while(r); +S_46960:; +if (((-(*_FUNC_IDEELEMENTWATCHBOX_LONG_K>= 65 ))&(-(*_FUNC_IDEELEMENTWATCHBOX_LONG_K<= 90 )))||new_error){ +if(qbevent){evnt(26070,9819,"ide_methods.bas");if(r)goto S_46960;} +do{ +qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_ALTLETTER,func_chr(*_FUNC_IDEELEMENTWATCHBOX_LONG_K)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9819,"ide_methods.bas");}while(r); +} +} +} +do{ +qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,9822,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); +if(!qbevent)break;evnt(26070,9822,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,9822,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_INFO= 0 ; +if(!qbevent)break;evnt(26070,9826,"ide_methods.bas");}while(r); +S_46969:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,9827,"ide_methods.bas");if(r)goto S_46969;} +do{ +qbs_set(__STRING_K,func_chr( 255 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9827,"ide_methods.bas");}while(r); +} +S_46972:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ +if(qbevent){evnt(26070,9828,"ide_methods.bas");if(r)goto S_46972;} +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_FOCUS=*_FUNC_IDEELEMENTWATCHBOX_LONG_FOCUS+ 1 ; +if(!qbevent)break;evnt(26070,9828,"ide_methods.bas");}while(r); +} +S_46975:; +if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||new_error){ +if(qbevent){evnt(26070,9829,"ide_methods.bas");if(r)goto S_46975;} +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_FOCUS=*_FUNC_IDEELEMENTWATCHBOX_LONG_FOCUS- 1 ; +if(!qbevent)break;evnt(26070,9829,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_K,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9829,"ide_methods.bas");}while(r); +} +S_46979:; +if ((-(*_FUNC_IDEELEMENTWATCHBOX_LONG_FOCUS< 1 ))||new_error){ +if(qbevent){evnt(26070,9830,"ide_methods.bas");if(r)goto S_46979;} +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_FOCUS=*_FUNC_IDEELEMENTWATCHBOX_LONG_LASTFOCUS; +if(!qbevent)break;evnt(26070,9830,"ide_methods.bas");}while(r); +} +S_46982:; +if ((-(*_FUNC_IDEELEMENTWATCHBOX_LONG_FOCUS>*_FUNC_IDEELEMENTWATCHBOX_LONG_LASTFOCUS))||new_error){ +if(qbevent){evnt(26070,9831,"ide_methods.bas");if(r)goto S_46982;} +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_FOCUS= 1 ; +if(!qbevent)break;evnt(26070,9831,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_F= 1 ; +if(!qbevent)break;evnt(26070,9832,"ide_methods.bas");}while(r); +S_46986:; +fornext_value5167= 1 ; +fornext_finalvalue5167= 100 ; +fornext_step5167= 1 ; +if (fornext_step5167<0) fornext_step_negative5167=1; else fornext_step_negative5167=0; +if (new_error) goto fornext_error5167; +goto fornext_entrylabel5167; +while(1){ +fornext_value5167=fornext_step5167+(*_FUNC_IDEELEMENTWATCHBOX_LONG_I); +fornext_entrylabel5167: +*_FUNC_IDEELEMENTWATCHBOX_LONG_I=fornext_value5167; +if (fornext_step_negative5167){ +if (fornext_value5167fornext_finalvalue5167) break; +} +fornext_error5167:; +if(qbevent){evnt(26070,9833,"ide_methods.bas");if(r)goto S_46986;} +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_T=*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_I)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+36)); +if(!qbevent)break;evnt(26070,9834,"ide_methods.bas");}while(r); +S_46988:; +if ((*_FUNC_IDEELEMENTWATCHBOX_LONG_T)||new_error){ +if(qbevent){evnt(26070,9835,"ide_methods.bas");if(r)goto S_46988;} +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_FOCUSOFFSET=*_FUNC_IDEELEMENTWATCHBOX_LONG_FOCUS-*_FUNC_IDEELEMENTWATCHBOX_LONG_F; +if(!qbevent)break;evnt(26070,9836,"ide_methods.bas");}while(r); +do{ +SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_I)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDEELEMENTWATCHBOX_LONG_FOCUS,_FUNC_IDEELEMENTWATCHBOX_LONG_F,_FUNC_IDEELEMENTWATCHBOX_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDEELEMENTWATCHBOX_STRING_ALTLETTER,__LONG_MB,_FUNC_IDEELEMENTWATCHBOX_LONG_MOUSEDOWN,_FUNC_IDEELEMENTWATCHBOX_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDEELEMENTWATCHBOX_LONG_INFO,__LONG_MWHEEL); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9837,"ide_methods.bas");}while(r); +} +fornext_continue_5166:; +} +fornext_exit_5166:; +S_46993:; +if ((((-(*_FUNC_IDEELEMENTWATCHBOX_LONG_FOCUS== 2 ))&(-(*_FUNC_IDEELEMENTWATCHBOX_LONG_INFO!= 0 ))))||new_error){ +if(qbevent){evnt(26070,9841,"ide_methods.bas");if(r)goto S_46993;} +S_46994:; +if ((*_FUNC_IDEELEMENTWATCHBOX_LONG_SINGLEELEMENTSELECTION)||new_error){ +if(qbevent){evnt(26070,9842,"ide_methods.bas");if(r)goto S_46994;} +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_Y=func_abs((int32)(*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+64)))); +if(!qbevent)break;evnt(26070,9844,"ide_methods.bas");}while(r); +S_46996:; +if (((-(*_FUNC_IDEELEMENTWATCHBOX_LONG_Y>= 1 ))&(-(*_FUNC_IDEELEMENTWATCHBOX_LONG_Y<=*_FUNC_IDEELEMENTWATCHBOX_LONG_TOTALELEMENTS)))||new_error){ +if(qbevent){evnt(26070,9845,"ide_methods.bas");if(r)goto S_46996;} +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_TOGGLEANDRETURN= -1 ; +if(!qbevent)break;evnt(26070,9846,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=152; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_TOGGLEWATCH; +RETURN_152:; +if(!qbevent)break;evnt(26070,9846,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_TOGGLEANDRETURN= 0 ; +if(!qbevent)break;evnt(26070,9846,"ide_methods.bas");}while(r); +do{ +goto LABEL_BUILDLISTTORETURN; +if(!qbevent)break;evnt(26070,9847,"ide_methods.bas");}while(r); +} +}else{ +S_47003:; +fornext_value5169= 1 ; +fornext_finalvalue5169=*_FUNC_IDEELEMENTWATCHBOX_LONG_TOTALELEMENTS; +fornext_step5169= 1 ; +if (fornext_step5169<0) fornext_step_negative5169=1; else fornext_step_negative5169=0; +if (new_error) goto fornext_error5169; +goto fornext_entrylabel5169; +while(1){ +fornext_value5169=fornext_step5169+(*_FUNC_IDEELEMENTWATCHBOX_LONG_Y); +fornext_entrylabel5169: +*_FUNC_IDEELEMENTWATCHBOX_LONG_Y=fornext_value5169; +if (fornext_step_negative5169){ +if (fornext_value5169fornext_finalvalue5169) break; +} +fornext_error5169:; +if(qbevent){evnt(26070,9851,"ide_methods.bas");if(r)goto S_47003;} +do{ +qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_VARTYPE,*((qbs**)((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0]+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_Y)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+25)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9852,"ide_methods.bas");}while(r); +S_47005:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_IDEELEMENTWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("STRING *",8),0)))||new_error){ +if(qbevent){evnt(26070,9853,"ide_methods.bas");if(r)goto S_47005;} +do{ +qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("STRING",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9853,"ide_methods.bas");}while(r); +} +S_47008:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_IDEELEMENTWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("BIT *",5),0)))||new_error){ +if(qbevent){evnt(26070,9854,"ide_methods.bas");if(r)goto S_47008;} +do{ +qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("_BIT",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9854,"ide_methods.bas");}while(r); +} +S_47011:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,__STRING_NATIVEDATATYPES,_FUNC_IDEELEMENTWATCHBOX_STRING_VARTYPE,0)> 0 )))||new_error){ +if(qbevent){evnt(26070,9855,"ide_methods.bas");if(r)goto S_47011;} +do{ +*(int8*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_Y)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+24))= -1 ; +if(!qbevent)break;evnt(26070,9856,"ide_methods.bas");}while(r); +do{ +tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ +tmp_fileno=*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_Y)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+8)); if (!new_error){ +tmp_long=*_FUNC_IDEELEMENTWATCHBOX_LONG_VARIABLENAMECOLOR; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26070,9857,"ide_methods.bas");}while(r); +do{ +tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ +tmp_fileno=*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_Y)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+12)); if (!new_error){ +tmp_long=*_FUNC_IDEELEMENTWATCHBOX_LONG_TYPECOLUMNCOLOR; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26070,9858,"ide_methods.bas");}while(r); +do{ +tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ +tmp_fileno=*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_Y)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+4)); if (!new_error){ +tmp_long=*_FUNC_IDEELEMENTWATCHBOX_LONG_SELECTEDBG; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26070,9859,"ide_methods.bas");}while(r); +do{ +tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ +tmp_fileno=*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_Y)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+16)); if (!new_error){ +tmp_long= 43 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26070,9860,"ide_methods.bas");}while(r); +} +fornext_continue_5168:; +} +fornext_exit_5168:; +} +do{ +goto dl_continue_5160; +if(!qbevent)break;evnt(26070,9864,"ide_methods.bas");}while(r); +} +S_47022:; +if ((((-(*_FUNC_IDEELEMENTWATCHBOX_LONG_FOCUS== 3 ))&(-(*_FUNC_IDEELEMENTWATCHBOX_LONG_INFO!= 0 ))))||new_error){ +if(qbevent){evnt(26070,9867,"ide_methods.bas");if(r)goto S_47022;} +S_47023:; +if ((*_FUNC_IDEELEMENTWATCHBOX_LONG_SINGLEELEMENTSELECTION)||new_error){ +if(qbevent){evnt(26070,9868,"ide_methods.bas");if(r)goto S_47023;} +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_OK= -3 ; +if(!qbevent)break;evnt(26070,9870,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,9871,"ide_methods.bas");}while(r); +}else{ +S_47027:; +fornext_value5171= 1 ; +fornext_finalvalue5171=*_FUNC_IDEELEMENTWATCHBOX_LONG_TOTALELEMENTS; +fornext_step5171= 1 ; +if (fornext_step5171<0) fornext_step_negative5171=1; else fornext_step_negative5171=0; +if (new_error) goto fornext_error5171; +goto fornext_entrylabel5171; +while(1){ +fornext_value5171=fornext_step5171+(*_FUNC_IDEELEMENTWATCHBOX_LONG_Y); +fornext_entrylabel5171: +*_FUNC_IDEELEMENTWATCHBOX_LONG_Y=fornext_value5171; +if (fornext_step_negative5171){ +if (fornext_value5171fornext_finalvalue5171) break; +} +fornext_error5171:; +if(qbevent){evnt(26070,9874,"ide_methods.bas");if(r)goto S_47027;} +do{ +*(int8*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_Y)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+24))= 0 ; +if(!qbevent)break;evnt(26070,9875,"ide_methods.bas");}while(r); +do{ +tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ +tmp_fileno=*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_Y)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+8)); if (!new_error){ +tmp_long= 16 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26070,9876,"ide_methods.bas");}while(r); +do{ +tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ +tmp_fileno=*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_Y)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+12)); if (!new_error){ +tmp_long= 2 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26070,9877,"ide_methods.bas");}while(r); +do{ +tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ +tmp_fileno=*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_Y)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+4)); if (!new_error){ +tmp_long= 17 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26070,9878,"ide_methods.bas");}while(r); +do{ +tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ +tmp_fileno=*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_Y)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+16)); if (!new_error){ +tmp_long= 32 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26070,9879,"ide_methods.bas");}while(r); +fornext_continue_5170:; +} +fornext_exit_5170:; +} +do{ +goto dl_continue_5160; +if(!qbevent)break;evnt(26070,9882,"ide_methods.bas");}while(r); +} +S_47037:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 27 )))|(((-(*_FUNC_IDEELEMENTWATCHBOX_LONG_FOCUS== 4 ))&(-(*_FUNC_IDEELEMENTWATCHBOX_LONG_INFO!= 0 ))))))||new_error){ +if(qbevent){evnt(26070,9885,"ide_methods.bas");if(r)goto S_47037;} +S_47038:; +if ((*_FUNC_IDEELEMENTWATCHBOX_LONG_SINGLEELEMENTSELECTION)||new_error){ +if(qbevent){evnt(26070,9886,"ide_methods.bas");if(r)goto S_47038;} +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_OK= -4 ; +if(!qbevent)break;evnt(26070,9887,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,9888,"ide_methods.bas");}while(r); +}else{ +LABEL_BUILDLISTTORETURN:; +if(qbevent){evnt(26070,9891,"ide_methods.bas");r=0;} +S_47042:; +fornext_value5173= 1 ; +fornext_finalvalue5173=*_FUNC_IDEELEMENTWATCHBOX_LONG_TOTALELEMENTS; +fornext_step5173= 1 ; +if (fornext_step5173<0) fornext_step_negative5173=1; else fornext_step_negative5173=0; +if (new_error) goto fornext_error5173; +goto fornext_entrylabel5173; +while(1){ +fornext_value5173=fornext_step5173+(*_FUNC_IDEELEMENTWATCHBOX_LONG_Y); +fornext_entrylabel5173: +*_FUNC_IDEELEMENTWATCHBOX_LONG_Y=fornext_value5173; +if (fornext_step_negative5173){ +if (fornext_value5173fornext_finalvalue5173) break; +} +fornext_error5173:; +if(qbevent){evnt(26070,9892,"ide_methods.bas");if(r)goto S_47042;} +S_47043:; +if ((*(int8*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_Y)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+24)))||new_error){ +if(qbevent){evnt(26070,9893,"ide_methods.bas");if(r)goto S_47043;} +do{ +qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_VARTYPE,*((qbs**)((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0]+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_Y)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+25)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9894,"ide_methods.bas");}while(r); +S_47045:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_IDEELEMENTWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("STRING *",8),0)))||new_error){ +if(qbevent){evnt(26070,9895,"ide_methods.bas");if(r)goto S_47045;} +do{ +qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("STRING",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9895,"ide_methods.bas");}while(r); +} +S_47048:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_IDEELEMENTWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("BIT *",5),0)))||new_error){ +if(qbevent){evnt(26070,9896,"ide_methods.bas");if(r)goto S_47048;} +do{ +qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("_BIT",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9896,"ide_methods.bas");}while(r); +} +S_47051:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,__STRING_NATIVEDATATYPES,_FUNC_IDEELEMENTWATCHBOX_STRING_VARTYPE,0)> 0 )))||new_error){ +if(qbevent){evnt(26070,9897,"ide_methods.bas");if(r)goto S_47051;} +do{ +qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_THISNAME,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTECNAME[0]))[(array_check((*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_Y)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_STRING256_UDTECNAME[4],__ARRAY_STRING256_UDTECNAME[5]))*256],256,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9899,"ide_methods.bas");}while(r); +S_47053:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDEELEMENTWATCHBOX_STRING_RETURNLIST->len))||new_error){ +if(qbevent){evnt(26070,9900,"ide_methods.bas");if(r)goto S_47053;} +do{ +qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_RETURNLIST,qbs_add(_FUNC_IDEELEMENTWATCHBOX_STRING_RETURNLIST,__STRING1_SP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9900,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_RETURNLIST,qbs_add(qbs_add(_FUNC_IDEELEMENTWATCHBOX_STRING_RETURNLIST,_FUNC_IDEELEMENTWATCHBOX_STRING_CURRENTPATH),_FUNC_IDEELEMENTWATCHBOX_STRING_THISNAME)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9901,"ide_methods.bas");}while(r); +} +} +fornext_continue_5172:; +} +fornext_exit_5172:; +S_47060:; +if ((*_FUNC_IDEELEMENTWATCHBOX_LONG_SINGLEELEMENTSELECTION)||new_error){ +if(qbevent){evnt(26070,9906,"ide_methods.bas");if(r)goto S_47060;} +S_47061:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDEELEMENTWATCHBOX_STRING_RETURNLIST->len> 0 )))||new_error){ +if(qbevent){evnt(26070,9907,"ide_methods.bas");if(r)goto S_47061;} +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_OK= -2 ; +if(!qbevent)break;evnt(26070,9908,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_OK= 0 ; +if(!qbevent)break;evnt(26070,9910,"ide_methods.bas");}while(r); +} +}else{ +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_OK=-(_FUNC_IDEELEMENTWATCHBOX_STRING_RETURNLIST->len> 0 ); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9913,"ide_methods.bas");}while(r); +} +S_47069:; +if ((-(*_FUNC_IDEELEMENTWATCHBOX_LONG_LEVEL== 0 ))||new_error){ +if(qbevent){evnt(26070,9915,"ide_methods.bas");if(r)goto S_47069;} +do{ +qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_RETURNLIST,FUNC_STRREPLACE(_FUNC_IDEELEMENTWATCHBOX_STRING_RETURNLIST,_FUNC_IDEELEMENTWATCHBOX_STRING_CURRENTPATH,qbs_new_txt_len(".",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9915,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_IDEELEMENTWATCHBOX,_FUNC_IDEELEMENTWATCHBOX_STRING_RETURNLIST); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9916,"ide_methods.bas");}while(r); +} +do{ +SUB_CLEARMOUSE(); +if(!qbevent)break;evnt(26070,9919,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,9920,"ide_methods.bas");}while(r); +} +S_47077:; +if ((*__LONG_MCLICK&(-(*_FUNC_IDEELEMENTWATCHBOX_LONG_FOCUS== 1 )))||new_error){ +if(qbevent){evnt(26070,9923,"ide_methods.bas");if(r)goto S_47077;} +S_47078:; +if (((-(((float)(FUNC_TIMEELAPSEDSINCE(_FUNC_IDEELEMENTWATCHBOX_SINGLE_LASTCLICK)))<((float)( 0.3E+0 ))))&(-(*_FUNC_IDEELEMENTWATCHBOX_LONG_CLICKEDITEM==*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+64)))))||new_error){ +if(qbevent){evnt(26070,9924,"ide_methods.bas");if(r)goto S_47078;} +S_47079:; +if ((-(*_FUNC_IDEELEMENTWATCHBOX_LONG_SINGLEELEMENTSELECTION== 0 ))||new_error){ +if(qbevent){evnt(26070,9925,"ide_methods.bas");if(r)goto S_47079;} +do{ +goto LABEL_TOGGLEWATCH; +if(!qbevent)break;evnt(26070,9926,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_Y=func_abs((int32)(*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+64)))); +if(!qbevent)break;evnt(26070,9928,"ide_methods.bas");}while(r); +S_47083:; +if (((-(*_FUNC_IDEELEMENTWATCHBOX_LONG_Y>= 1 ))&(-(*_FUNC_IDEELEMENTWATCHBOX_LONG_Y<=*_FUNC_IDEELEMENTWATCHBOX_LONG_TOTALELEMENTS)))||new_error){ +if(qbevent){evnt(26070,9929,"ide_methods.bas");if(r)goto S_47083;} +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_TOGGLEANDRETURN= -1 ; +if(!qbevent)break;evnt(26070,9930,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=153; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_TOGGLEWATCH; +RETURN_153:; +if(!qbevent)break;evnt(26070,9930,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_TOGGLEANDRETURN= 0 ; +if(!qbevent)break;evnt(26070,9930,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_Y=func_abs((int32)(*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+64)))); +if(!qbevent)break;evnt(26070,9931,"ide_methods.bas");}while(r); +do{ +goto LABEL_BUILDLISTTORETURN; +if(!qbevent)break;evnt(26070,9932,"ide_methods.bas");}while(r); +} +} +} +do{ +*_FUNC_IDEELEMENTWATCHBOX_SINGLE_LASTCLICK=func_timer(NULL,0); +if(!qbevent)break;evnt(26070,9936,"ide_methods.bas");}while(r); +S_47093:; +if ((-(*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+64))> 0 ))||new_error){ +if(qbevent){evnt(26070,9937,"ide_methods.bas");if(r)goto S_47093;} +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_CLICKEDITEM=*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26070,9937,"ide_methods.bas");}while(r); +} +do{ +goto dl_continue_5160; +if(!qbevent)break;evnt(26070,9938,"ide_methods.bas");}while(r); +} +S_47098:; +if ((qbs_cleanup(qbs_tmp_base,((qbs_equal(__STRING_K,func_chr( 13 )))&(-(*_FUNC_IDEELEMENTWATCHBOX_LONG_FOCUS== 1 )))))||new_error){ +if(qbevent){evnt(26070,9941,"ide_methods.bas");if(r)goto S_47098;} +do{ +qbs_set(__STRING_K,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9942,"ide_methods.bas");}while(r); +LABEL_TOGGLEWATCH:; +if(qbevent){evnt(26070,9943,"ide_methods.bas");r=0;} +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_Y=func_abs((int32)(*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+64)))); +if(!qbevent)break;evnt(26070,9944,"ide_methods.bas");}while(r); +S_47101:; +if (((-(*_FUNC_IDEELEMENTWATCHBOX_LONG_Y>= 1 ))&(-(*_FUNC_IDEELEMENTWATCHBOX_LONG_Y<=*_FUNC_IDEELEMENTWATCHBOX_LONG_TOTALELEMENTS)))||new_error){ +if(qbevent){evnt(26070,9946,"ide_methods.bas");if(r)goto S_47101;} +S_47102:; +if ((*_FUNC_IDEELEMENTWATCHBOX_LONG_SINGLEELEMENTSELECTION)||new_error){ +if(qbevent){evnt(26070,9947,"ide_methods.bas");if(r)goto S_47102;} +do{ +*(int8*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_Y)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+24))= -1 ; +if(!qbevent)break;evnt(26070,9948,"ide_methods.bas");}while(r); +}else{ +do{ +*(int8*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_Y)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+24))=~(*(int8*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_Y)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+24))); +if(!qbevent)break;evnt(26070,9950,"ide_methods.bas");}while(r); +} +S_47107:; +if ((*(int8*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_Y)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+24)))||new_error){ +if(qbevent){evnt(26070,9952,"ide_methods.bas");if(r)goto S_47107;} +S_47108:; +if ((*_FUNC_IDEELEMENTWATCHBOX_LONG_SINGLEELEMENTSELECTION)||new_error){ +if(qbevent){evnt(26070,9953,"ide_methods.bas");if(r)goto S_47108;} +S_47109:; +fornext_value5178= 1 ; +fornext_finalvalue5178=*_FUNC_IDEELEMENTWATCHBOX_LONG_TOTALELEMENTS; +fornext_step5178= 1 ; +if (fornext_step5178<0) fornext_step_negative5178=1; else fornext_step_negative5178=0; +if (new_error) goto fornext_error5178; +goto fornext_entrylabel5178; +while(1){ +fornext_value5178=fornext_step5178+(*_FUNC_IDEELEMENTWATCHBOX_LONG_I); +fornext_entrylabel5178: +*_FUNC_IDEELEMENTWATCHBOX_LONG_I=fornext_value5178; +if (fornext_step_negative5178){ +if (fornext_value5178fornext_finalvalue5178) break; +} +fornext_error5178:; +if(qbevent){evnt(26070,9954,"ide_methods.bas");if(r)goto S_47109;} +S_47110:; +if ((-(*_FUNC_IDEELEMENTWATCHBOX_LONG_I==*_FUNC_IDEELEMENTWATCHBOX_LONG_Y))||new_error){ +if(qbevent){evnt(26070,9955,"ide_methods.bas");if(r)goto S_47110;} +do{ +goto fornext_continue_5177; +if(!qbevent)break;evnt(26070,9955,"ide_methods.bas");}while(r); +} +do{ +*(int8*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_I)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+24))= 0 ; +if(!qbevent)break;evnt(26070,9956,"ide_methods.bas");}while(r); +do{ +tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ +tmp_fileno=*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_I)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+8)); if (!new_error){ +tmp_long= 16 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26070,9957,"ide_methods.bas");}while(r); +do{ +tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ +tmp_fileno=*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_I)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+12)); if (!new_error){ +tmp_long= 2 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26070,9958,"ide_methods.bas");}while(r); +do{ +tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ +tmp_fileno=*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_I)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+4)); if (!new_error){ +tmp_long= 17 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26070,9959,"ide_methods.bas");}while(r); +do{ +tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ +tmp_fileno=*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_I)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+16)); if (!new_error){ +tmp_long= 32 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26070,9960,"ide_methods.bas");}while(r); +fornext_continue_5177:; +} +fornext_exit_5177:; +} +do{ +qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_VARTYPE,*((qbs**)((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0]+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_Y)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+25)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9964,"ide_methods.bas");}while(r); +S_47121:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_IDEELEMENTWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("STRING *",8),0)))||new_error){ +if(qbevent){evnt(26070,9965,"ide_methods.bas");if(r)goto S_47121;} +do{ +qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("STRING",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9965,"ide_methods.bas");}while(r); +} +S_47124:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_IDEELEMENTWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("BIT *",5),0)))||new_error){ +if(qbevent){evnt(26070,9966,"ide_methods.bas");if(r)goto S_47124;} +do{ +qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_VARTYPE,qbs_new_txt_len("_BIT",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9966,"ide_methods.bas");}while(r); +} +S_47127:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,__STRING_NATIVEDATATYPES,_FUNC_IDEELEMENTWATCHBOX_STRING_VARTYPE,0)== 0 )))||new_error){ +if(qbevent){evnt(26070,9967,"ide_methods.bas");if(r)goto S_47127;} +do{ +qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_ELEMENTINDEXES2,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9969,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_THISUDT= 0 ; +if(!qbevent)break;evnt(26070,9970,"ide_methods.bas");}while(r); +do{ +*__LONG_E= 0 ; +if(!qbevent)break;evnt(26070,9971,"ide_methods.bas");}while(r); +S_47131:; +fornext_value5180= 1 ; +fornext_finalvalue5180=*__LONG_LASTTYPE; +fornext_step5180= 1 ; +if (fornext_step5180<0) fornext_step_negative5180=1; else fornext_step_negative5180=0; +if (new_error) goto fornext_error5180; +goto fornext_entrylabel5180; +while(1){ +fornext_value5180=fornext_step5180+(*_FUNC_IDEELEMENTWATCHBOX_LONG_I); +fornext_entrylabel5180: +*_FUNC_IDEELEMENTWATCHBOX_LONG_I=fornext_value5180; +if (fornext_step_negative5180){ +if (fornext_value5180fornext_finalvalue5180) break; +} +fornext_error5180:; +if(qbevent){evnt(26070,9972,"ide_methods.bas");if(r)goto S_47131;} +S_47132:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTXCNAME[0]))[(array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_I)-__ARRAY_STRING256_UDTXCNAME[4],__ARRAY_STRING256_UDTXCNAME[5]))*256],256,1)),_FUNC_IDEELEMENTWATCHBOX_STRING_VARTYPE)))||new_error){ +if(qbevent){evnt(26070,9973,"ide_methods.bas");if(r)goto S_47132;} +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_THISUDT=*_FUNC_IDEELEMENTWATCHBOX_LONG_I; +if(!qbevent)break;evnt(26070,9973,"ide_methods.bas");}while(r); +do{ +goto fornext_exit_5179; +if(!qbevent)break;evnt(26070,9973,"ide_methods.bas");}while(r); +} +fornext_continue_5179:; +} +fornext_exit_5179:; +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_I= 0 ; +if(!qbevent)break;evnt(26070,9976,"ide_methods.bas");}while(r); +S_47138:; +do{ +if(qbevent){evnt(26070,9977,"ide_methods.bas");if(r)goto S_47138;} +S_47139:; +if ((-(*__LONG_E== 0 ))||new_error){ +if(qbevent){evnt(26070,9978,"ide_methods.bas");if(r)goto S_47139;} +do{ +*__LONG_E=((int32*)(__ARRAY_LONG_UDTXNEXT[0]))[array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_THISUDT)-__ARRAY_LONG_UDTXNEXT[4],__ARRAY_LONG_UDTXNEXT[5])]; +if(!qbevent)break;evnt(26070,9978,"ide_methods.bas");}while(r); +}else{ +do{ +*__LONG_E=((int32*)(__ARRAY_LONG_UDTENEXT[0]))[array_check((*__LONG_E)-__ARRAY_LONG_UDTENEXT[4],__ARRAY_LONG_UDTENEXT[5])]; +if(!qbevent)break;evnt(26070,9978,"ide_methods.bas");}while(r); +} +S_47144:; +if ((-(*__LONG_E== 0 ))||new_error){ +if(qbevent){evnt(26070,9979,"ide_methods.bas");if(r)goto S_47144;} +do{ +goto dl_exit_5181; +if(!qbevent)break;evnt(26070,9979,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_ELEMENTINDEXES2,qbs_add(_FUNC_IDEELEMENTWATCHBOX_STRING_ELEMENTINDEXES2,l2string(*__LONG_E))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9980,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_I=*_FUNC_IDEELEMENTWATCHBOX_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,9981,"ide_methods.bas");}while(r); +dl_continue_5181:; +}while(1); +dl_exit_5181:; +do{ +qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_V,FUNC_IDEELEMENTWATCHBOX(qbs_add(qbs_add(_FUNC_IDEELEMENTWATCHBOX_STRING_CURRENTPATH,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTECNAME[0]))[(array_check((*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_Y)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)))-__ARRAY_STRING256_UDTECNAME[4],__ARRAY_STRING256_UDTECNAME[5]))*256],256,1))),qbs_new_txt_len(".",1)),_FUNC_IDEELEMENTWATCHBOX_STRING_ELEMENTINDEXES2,&(pass5182=*_FUNC_IDEELEMENTWATCHBOX_LONG_LEVEL+ 1 ),_FUNC_IDEELEMENTWATCHBOX_LONG_SINGLEELEMENTSELECTION,_FUNC_IDEELEMENTWATCHBOX_LONG_OK2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,9983,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_OK=*_FUNC_IDEELEMENTWATCHBOX_LONG_OK2; +if(!qbevent)break;evnt(26070,9984,"ide_methods.bas");}while(r); +S_47152:; +if ((-(*_FUNC_IDEELEMENTWATCHBOX_LONG_OK2== -2 ))||new_error){ +if(qbevent){evnt(26070,9985,"ide_methods.bas");if(r)goto S_47152;} +do{ +goto LABEL_BUILDLISTTORETURN; +if(!qbevent)break;evnt(26070,9987,"ide_methods.bas");}while(r); +S_47154:; +}else{ +if (-(*_FUNC_IDEELEMENTWATCHBOX_LONG_OK2== -3 )){ +if(qbevent){evnt(26070,9988,"ide_methods.bas");if(r)goto S_47154;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,9990,"ide_methods.bas");}while(r); +S_47156:; +}else{ +if (-(*_FUNC_IDEELEMENTWATCHBOX_LONG_OK2== -4 )){ +if(qbevent){evnt(26070,9991,"ide_methods.bas");if(r)goto S_47156;} +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_I=*_FUNC_IDEELEMENTWATCHBOX_LONG_Y; +if(!qbevent)break;evnt(26070,9992,"ide_methods.bas");}while(r); +do{ +*(int8*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_I)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+24))= 0 ; +if(!qbevent)break;evnt(26070,9993,"ide_methods.bas");}while(r); +do{ +tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ +tmp_fileno=*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_I)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+8)); if (!new_error){ +tmp_long= 16 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26070,9994,"ide_methods.bas");}while(r); +do{ +tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ +tmp_fileno=*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_I)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+12)); if (!new_error){ +tmp_long= 2 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26070,9995,"ide_methods.bas");}while(r); +do{ +tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ +tmp_fileno=*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_I)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+4)); if (!new_error){ +tmp_long= 17 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26070,9996,"ide_methods.bas");}while(r); +do{ +tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ +tmp_fileno=*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_I)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+16)); if (!new_error){ +tmp_long= 32 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26070,9997,"ide_methods.bas");}while(r); +do{ +goto dl_continue_5160; +if(!qbevent)break;evnt(26070,9998,"ide_methods.bas");}while(r); +} +} +} +} +do{ +tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ +tmp_fileno=*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_Y)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+8)); if (!new_error){ +tmp_long=*_FUNC_IDEELEMENTWATCHBOX_LONG_VARIABLENAMECOLOR; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26070,10002,"ide_methods.bas");}while(r); +do{ +tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ +tmp_fileno=*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_Y)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+12)); if (!new_error){ +tmp_long=*_FUNC_IDEELEMENTWATCHBOX_LONG_TYPECOLUMNCOLOR; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26070,10003,"ide_methods.bas");}while(r); +do{ +tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ +tmp_fileno=*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_Y)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+4)); if (!new_error){ +tmp_long=*_FUNC_IDEELEMENTWATCHBOX_LONG_SELECTEDBG; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26070,10004,"ide_methods.bas");}while(r); +do{ +tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ +tmp_fileno=*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_Y)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+16)); if (!new_error){ +tmp_long= 43 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26070,10005,"ide_methods.bas");}while(r); +}else{ +do{ +tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ +tmp_fileno=*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_Y)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+8)); if (!new_error){ +tmp_long= 16 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26070,10007,"ide_methods.bas");}while(r); +do{ +tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ +tmp_fileno=*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_Y)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+12)); if (!new_error){ +tmp_long= 2 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26070,10008,"ide_methods.bas");}while(r); +do{ +tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ +tmp_fileno=*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_Y)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+4)); if (!new_error){ +tmp_long= 17 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26070,10009,"ide_methods.bas");}while(r); +do{ +tqbs=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_VARLISTBOX)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])); if (!new_error){ +tmp_fileno=*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_Y)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+16)); if (!new_error){ +tmp_long= 32 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26070,10010,"ide_methods.bas");}while(r); +} +} +S_47177:; +if ((*_FUNC_IDEELEMENTWATCHBOX_LONG_TOGGLEANDRETURN)||new_error){ +if(qbevent){evnt(26070,10013,"ide_methods.bas");if(r)goto S_47177;} +do{ +#include "ret177.txt" +if(!qbevent)break;evnt(26070,10013,"ide_methods.bas");}while(r); +} +do{ +goto dl_continue_5160; +if(!qbevent)break;evnt(26070,10014,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_MOUSEDOWN= 0 ; +if(!qbevent)break;evnt(26070,10018,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_MOUSEUP= 0 ; +if(!qbevent)break;evnt(26070,10019,"ide_methods.bas");}while(r); +dl_continue_5160:; +}while(1); +dl_exit_5160:; +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,10022,"ide_methods.bas");}while(r); +LABEL_BUILDLIST:; +if(qbevent){evnt(26070,10024,"ide_methods.bas");r=0;} +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_MAXTYPELEN= 0 ; +if(!qbevent)break;evnt(26070,10025,"ide_methods.bas");}while(r); +S_47187:; +fornext_value5184= 1 ; +fornext_finalvalue5184=*_FUNC_IDEELEMENTWATCHBOX_LONG_TOTALELEMENTS; +fornext_step5184= 1 ; +if (fornext_step5184<0) fornext_step_negative5184=1; else fornext_step_negative5184=0; +if (new_error) goto fornext_error5184; +goto fornext_entrylabel5184; +while(1){ +fornext_value5184=fornext_step5184+(*_FUNC_IDEELEMENTWATCHBOX_LONG_X); +fornext_entrylabel5184: +*_FUNC_IDEELEMENTWATCHBOX_LONG_X=fornext_value5184; +if (fornext_step_negative5184){ +if (fornext_value5184fornext_finalvalue5184) break; +} +fornext_error5184:; +if(qbevent){evnt(26070,10026,"ide_methods.bas");if(r)goto S_47187;} +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_THISTYPE=string2l(func_mid(_FUNC_IDEELEMENTWATCHBOX_STRING_ELEMENTINDEXES,(*_FUNC_IDEELEMENTWATCHBOX_LONG_X* 4 )-( 3 ), 4 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10027,"ide_methods.bas");}while(r); +S_47189:; +if ((qbs_cleanup(qbs_tmp_base,-(((int32)(qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTECNAME[0]))[(array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_THISTYPE)-__ARRAY_STRING256_UDTECNAME[4],__ARRAY_STRING256_UDTECNAME[5]))*256],256,1)))->len)>*_FUNC_IDEELEMENTWATCHBOX_LONG_LONGESTNAME)))||new_error){ +if(qbevent){evnt(26070,10028,"ide_methods.bas");if(r)goto S_47189;} +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_LONGESTNAME=((int32)(qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTECNAME[0]))[(array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_THISTYPE)-__ARRAY_STRING256_UDTECNAME[4],__ARRAY_STRING256_UDTECNAME[5]))*256],256,1)))->len); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10028,"ide_methods.bas");}while(r); +} +do{ +*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_X)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33))=*_FUNC_IDEELEMENTWATCHBOX_LONG_THISTYPE; +if(!qbevent)break;evnt(26070,10029,"ide_methods.bas");}while(r); +do{ +*(int8*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_X)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+24))= 0 ; +if(!qbevent)break;evnt(26070,10030,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(536))=((int32*)(__ARRAY_LONG_UDTETYPE[0]))[array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_THISTYPE)-__ARRAY_LONG_UDTETYPE[4],__ARRAY_LONG_UDTETYPE[5])]; +if(!qbevent)break;evnt(26070,10031,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)__UDT_ID)+(540))=((int32*)(__ARRAY_LONG_UDTESIZE[0]))[array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_THISTYPE)-__ARRAY_LONG_UDTESIZE[4],__ARRAY_LONG_UDTESIZE[5])]; +if(!qbevent)break;evnt(26070,10032,"ide_methods.bas");}while(r); +S_47196:; +if ((*(int32*)(((char*)__UDT_ID)+(536))&*__LONG_ISFIXEDLENGTH)||new_error){ +if(qbevent){evnt(26070,10034,"ide_methods.bas");if(r)goto S_47196;} +do{ +*(int32*)(((char*)__UDT_ID)+(540))=((int32*)(__ARRAY_LONG_UDTETYPESIZE[0]))[array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_THISTYPE)-__ARRAY_LONG_UDTETYPESIZE[4],__ARRAY_LONG_UDTETYPESIZE[5])]; +if(!qbevent)break;evnt(26070,10035,"ide_methods.bas");}while(r); +} +do{ +qbs_set(*((qbs**)((char*)(_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_X)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+25))),FUNC_ID2FULLTYPENAME()); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10038,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_THISLEN=(*(qbs**)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_X)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+25)))->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10039,"ide_methods.bas");}while(r); +S_47201:; +if ((-(*_FUNC_IDEELEMENTWATCHBOX_LONG_THISLEN>*_FUNC_IDEELEMENTWATCHBOX_LONG_MAXTYPELEN))||new_error){ +if(qbevent){evnt(26070,10040,"ide_methods.bas");if(r)goto S_47201;} +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_MAXTYPELEN=*_FUNC_IDEELEMENTWATCHBOX_LONG_THISLEN; +if(!qbevent)break;evnt(26070,10040,"ide_methods.bas");}while(r); +} +fornext_continue_5183:; +} +fornext_exit_5183:; +do{ +qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_L,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10043,"ide_methods.bas");}while(r); +S_47206:; +fornext_value5186= 1 ; +fornext_finalvalue5186=*_FUNC_IDEELEMENTWATCHBOX_LONG_TOTALELEMENTS; +fornext_step5186= 1 ; +if (fornext_step5186<0) fornext_step_negative5186=1; else fornext_step_negative5186=0; +if (new_error) goto fornext_error5186; +goto fornext_entrylabel5186; +while(1){ +fornext_value5186=fornext_step5186+(*_FUNC_IDEELEMENTWATCHBOX_LONG_X); +fornext_entrylabel5186: +*_FUNC_IDEELEMENTWATCHBOX_LONG_X=fornext_value5186; +if (fornext_step_negative5186){ +if (fornext_value5186fornext_finalvalue5186) break; +} +fornext_error5186:; +if(qbevent){evnt(26070,10044,"ide_methods.bas");if(r)goto S_47206;} +do{ +*_FUNC_IDEELEMENTWATCHBOX_LONG_THISELEMENT=*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_X)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33)); +if(!qbevent)break;evnt(26070,10045,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_L,qbs_add(_FUNC_IDEELEMENTWATCHBOX_STRING_L,func_chr( 17 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10046,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_X)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+4))=_FUNC_IDEELEMENTWATCHBOX_STRING_L->len+ 1 ; +if(!qbevent)break;evnt(26070,10047,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_L,qbs_add(_FUNC_IDEELEMENTWATCHBOX_STRING_L,func_chr( 17 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10048,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_L,qbs_add(_FUNC_IDEELEMENTWATCHBOX_STRING_L,func_chr( 16 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10050,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_X)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+8))=_FUNC_IDEELEMENTWATCHBOX_STRING_L->len+ 1 ; +if(!qbevent)break;evnt(26070,10051,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_X)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+16))=_FUNC_IDEELEMENTWATCHBOX_STRING_L->len+ 2 ; +if(!qbevent)break;evnt(26070,10052,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_L,qbs_add(qbs_add(_FUNC_IDEELEMENTWATCHBOX_STRING_L,func_chr( 16 )),qbs_new_txt_len(" ",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10053,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_THISNAME,qbs_rtrim(qbs_new_fixed(&((uint8*)(__ARRAY_STRING256_UDTECNAME[0]))[(array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_THISELEMENT)-__ARRAY_STRING256_UDTECNAME[4],__ARRAY_STRING256_UDTECNAME[5]))*256],256,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10055,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_TEXT,qbs_add(_FUNC_IDEELEMENTWATCHBOX_STRING_THISNAME,func_chr( 16 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10056,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_X)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+12))=_FUNC_IDEELEMENTWATCHBOX_STRING_L->len+_FUNC_IDEELEMENTWATCHBOX_STRING_TEXT->len+ 1 ; +if(!qbevent)break;evnt(26070,10057,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_TEXT,qbs_add(qbs_add(_FUNC_IDEELEMENTWATCHBOX_STRING_TEXT,func_chr( 2 )),qbs_new_txt_len(" ",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10058,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_TEXT,qbs_add(_FUNC_IDEELEMENTWATCHBOX_STRING_TEXT,func_space(*_FUNC_IDEELEMENTWATCHBOX_LONG_LONGESTNAME-_FUNC_IDEELEMENTWATCHBOX_STRING_THISNAME->len))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10059,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_TEXT,qbs_add(qbs_add(qbs_add(_FUNC_IDEELEMENTWATCHBOX_STRING_TEXT,qbs_new_txt_len(" ",1)),*((qbs**)((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0]+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_X)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+25)))),func_space(*_FUNC_IDEELEMENTWATCHBOX_LONG_MAXTYPELEN-(*(qbs**)(((char*)_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[0])+((array_check((*_FUNC_IDEELEMENTWATCHBOX_LONG_X)-_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[4],_FUNC_IDEELEMENTWATCHBOX_ARRAY_UDT_VARDLGLIST[5]))*33+25)))->len))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10060,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_L,qbs_add(_FUNC_IDEELEMENTWATCHBOX_STRING_L,_FUNC_IDEELEMENTWATCHBOX_STRING_TEXT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10062,"ide_methods.bas");}while(r); +S_47222:; +if ((-(*_FUNC_IDEELEMENTWATCHBOX_LONG_X<*_FUNC_IDEELEMENTWATCHBOX_LONG_TOTALELEMENTS))||new_error){ +if(qbevent){evnt(26070,10063,"ide_methods.bas");if(r)goto S_47222;} +do{ +qbs_set(_FUNC_IDEELEMENTWATCHBOX_STRING_L,qbs_add(_FUNC_IDEELEMENTWATCHBOX_STRING_L,_FUNC_IDEELEMENTWATCHBOX_STRING1_SEP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10063,"ide_methods.bas");}while(r); +} +fornext_continue_5185:; +} +fornext_exit_5185:; +do{ +#include "ret177.txt" +if(!qbevent)break;evnt(26070,10065,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free177.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_IDEELEMENTWATCHBOX_STRING_IDEELEMENTWATCHBOX);return _FUNC_IDEELEMENTWATCHBOX_STRING_IDEELEMENTWATCHBOX; +} +qbs* FUNC_FORMATRANGE(qbs*_FUNC_FORMATRANGE_STRING___TEXT){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data178.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +qbs_set(_FUNC_FORMATRANGE_STRING_TEMP,_FUNC_FORMATRANGE_STRING___TEXT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10070,"ide_methods.bas");}while(r); +do{ +*_FUNC_FORMATRANGE_LONG_V1= -1 ; +if(!qbevent)break;evnt(26070,10071,"ide_methods.bas");}while(r); +do{ +*_FUNC_FORMATRANGE_LONG_V2= -1 ; +if(!qbevent)break;evnt(26070,10072,"ide_methods.bas");}while(r); +S_47230:; +fornext_value5195= 1 ; +fornext_finalvalue5195=_FUNC_FORMATRANGE_STRING_TEMP->len/ 4 ; +fornext_step5195= 1 ; +if (fornext_step5195<0) fornext_step_negative5195=1; else fornext_step_negative5195=0; +if (new_error) goto fornext_error5195; +goto fornext_entrylabel5195; +while(1){ +fornext_value5195=fornext_step5195+(*_FUNC_FORMATRANGE_LONG_I); +fornext_entrylabel5195: +*_FUNC_FORMATRANGE_LONG_I=fornext_value5195; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative5195){ +if (fornext_value5195fornext_finalvalue5195) break; +} +fornext_error5195:; +if(qbevent){evnt(26070,10073,"ide_methods.bas");if(r)goto S_47230;} +do{ +*_FUNC_FORMATRANGE_LONG_V=string2l(func_mid(_FUNC_FORMATRANGE_STRING_TEMP,(*_FUNC_FORMATRANGE_LONG_I* 4 )-( 3 ), 4 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10074,"ide_methods.bas");}while(r); +S_47232:; +if ((-(*_FUNC_FORMATRANGE_LONG_V1== -1 ))||new_error){ +if(qbevent){evnt(26070,10075,"ide_methods.bas");if(r)goto S_47232;} +do{ +*_FUNC_FORMATRANGE_LONG_V1=*_FUNC_FORMATRANGE_LONG_V; +if(!qbevent)break;evnt(26070,10076,"ide_methods.bas");}while(r); +}else{ +S_47235:; +if (((-(*_FUNC_FORMATRANGE_LONG_V==(*_FUNC_FORMATRANGE_LONG_V1+ 1 )))|(-(*_FUNC_FORMATRANGE_LONG_V==(*_FUNC_FORMATRANGE_LONG_V2+ 1 ))))||new_error){ +if(qbevent){evnt(26070,10078,"ide_methods.bas");if(r)goto S_47235;} +do{ +*_FUNC_FORMATRANGE_LONG_V2=*_FUNC_FORMATRANGE_LONG_V; +if(!qbevent)break;evnt(26070,10079,"ide_methods.bas");}while(r); +}else{ +S_47238:; +if ((-(*_FUNC_FORMATRANGE_LONG_V2== -1 ))||new_error){ +if(qbevent){evnt(26070,10081,"ide_methods.bas");if(r)goto S_47238;} +do{ +qbs_set(_FUNC_FORMATRANGE_STRING_A2,qbs_add(qbs_add(_FUNC_FORMATRANGE_STRING_A2,qbs_ltrim(qbs_str((int32)(*_FUNC_FORMATRANGE_LONG_V1)))),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10082,"ide_methods.bas");}while(r); +do{ +*_FUNC_FORMATRANGE_LONG_V1=*_FUNC_FORMATRANGE_LONG_V; +if(!qbevent)break;evnt(26070,10083,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_FORMATRANGE_STRING_A2,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_FORMATRANGE_STRING_A2,qbs_ltrim(qbs_str((int32)(*_FUNC_FORMATRANGE_LONG_V1)))),qbs_new_txt_len("-",1)),qbs_ltrim(qbs_str((int32)(*_FUNC_FORMATRANGE_LONG_V2)))),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10085,"ide_methods.bas");}while(r); +do{ +*_FUNC_FORMATRANGE_LONG_V1=*_FUNC_FORMATRANGE_LONG_V; +if(!qbevent)break;evnt(26070,10086,"ide_methods.bas");}while(r); +do{ +*_FUNC_FORMATRANGE_LONG_V2= -1 ; +if(!qbevent)break;evnt(26070,10087,"ide_methods.bas");}while(r); +} +} +} +fornext_continue_5194:; +} +fornext_exit_5194:; +S_47249:; +if (((-(*_FUNC_FORMATRANGE_LONG_V1!= -1 ))&(-(*_FUNC_FORMATRANGE_LONG_V2== -1 )))||new_error){ +if(qbevent){evnt(26070,10092,"ide_methods.bas");if(r)goto S_47249;} +do{ +qbs_set(_FUNC_FORMATRANGE_STRING_A2,qbs_add(_FUNC_FORMATRANGE_STRING_A2,qbs_ltrim(qbs_str((int32)(*_FUNC_FORMATRANGE_LONG_V1))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10092,"ide_methods.bas");}while(r); +} +S_47252:; +if (((-(*_FUNC_FORMATRANGE_LONG_V1!= -1 ))&(-(*_FUNC_FORMATRANGE_LONG_V2!= -1 )))||new_error){ +if(qbevent){evnt(26070,10093,"ide_methods.bas");if(r)goto S_47252;} +do{ +qbs_set(_FUNC_FORMATRANGE_STRING_A2,qbs_add(qbs_add(qbs_add(_FUNC_FORMATRANGE_STRING_A2,qbs_ltrim(qbs_str((int32)(*_FUNC_FORMATRANGE_LONG_V1)))),qbs_new_txt_len("-",1)),qbs_ltrim(qbs_str((int32)(*_FUNC_FORMATRANGE_LONG_V2))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10093,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_FORMATRANGE_STRING_FORMATRANGE,_FUNC_FORMATRANGE_STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10094,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free178.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_FORMATRANGE_STRING_FORMATRANGE);return _FUNC_FORMATRANGE_STRING_FORMATRANGE; +} +qbs* FUNC_EXPANDARRAY(qbs*_FUNC_EXPANDARRAY_STRING___INDEXES,qbs*_FUNC_EXPANDARRAY_STRING___PATH){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data179.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +if(!qbevent)break;evnt(26070,10098,"ide_methods.bas");}while(r); +S_47257:; +if ((-(*_FUNC_EXPANDARRAY_LONG_THISLEVEL== 0 ))||new_error){ +if(qbevent){evnt(26070,10100,"ide_methods.bas");if(r)goto S_47257;} +do{ +qbs_set(_FUNC_EXPANDARRAY_STRING_RETURNVALUE,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10101,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_EXPANDARRAY_LONG_THISLEVEL=*_FUNC_EXPANDARRAY_LONG_THISLEVEL+ 1 ; +if(!qbevent)break;evnt(26070,10104,"ide_methods.bas");}while(r); +do{ +*_FUNC_EXPANDARRAY_LONG_TOTALINDEXES=string2l(qbs_left(_FUNC_EXPANDARRAY_STRING___INDEXES, 4 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10106,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_EXPANDARRAY_STRING_INDEXES,func_mid(_FUNC_EXPANDARRAY_STRING___INDEXES, 5 ,*_FUNC_EXPANDARRAY_LONG_TOTALINDEXES,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10107,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_EXPANDARRAY_STRING_REMAININGINDEXES,func_mid(_FUNC_EXPANDARRAY_STRING___INDEXES, 5 +*_FUNC_EXPANDARRAY_LONG_TOTALINDEXES,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10108,"ide_methods.bas");}while(r); +do{ +*_FUNC_EXPANDARRAY_LONG_TOTALINDEXES=*_FUNC_EXPANDARRAY_LONG_TOTALINDEXES/ 4 ; +if(!qbevent)break;evnt(26070,10109,"ide_methods.bas");}while(r); +S_47265:; +fornext_value5200= 1 ; +fornext_finalvalue5200=*_FUNC_EXPANDARRAY_LONG_TOTALINDEXES; +fornext_step5200= 1 ; +if (fornext_step5200<0) fornext_step_negative5200=1; else fornext_step_negative5200=0; +if (new_error) goto fornext_error5200; +goto fornext_entrylabel5200; +while(1){ +fornext_value5200=fornext_step5200+(*_FUNC_EXPANDARRAY_LONG_I); +fornext_entrylabel5200: +*_FUNC_EXPANDARRAY_LONG_I=fornext_value5200; +if (fornext_step_negative5200){ +if (fornext_value5200fornext_finalvalue5200) break; +} +fornext_error5200:; +if(qbevent){evnt(26070,10111,"ide_methods.bas");if(r)goto S_47265;} +do{ +qbs_set(_FUNC_EXPANDARRAY_STRING_TEMP,qbs_add(_FUNC_EXPANDARRAY_STRING___PATH,func_mid(_FUNC_EXPANDARRAY_STRING_INDEXES,(*_FUNC_EXPANDARRAY_LONG_I* 4 )-( 3 ), 4 ,0|1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10112,"ide_methods.bas");}while(r); +S_47267:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_EXPANDARRAY_STRING_REMAININGINDEXES->len))||new_error){ +if(qbevent){evnt(26070,10113,"ide_methods.bas");if(r)goto S_47267;} +do{ +qbs_set(_FUNC_EXPANDARRAY_STRING_TEMP,FUNC_EXPANDARRAY(_FUNC_EXPANDARRAY_STRING_REMAININGINDEXES,_FUNC_EXPANDARRAY_STRING_TEMP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10114,"ide_methods.bas");}while(r); +} +S_47270:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_EXPANDARRAY_STRING_TEMP->len))||new_error){ +if(qbevent){evnt(26070,10116,"ide_methods.bas");if(r)goto S_47270;} +do{ +qbs_set(_FUNC_EXPANDARRAY_STRING_RETURNVALUE,qbs_add(qbs_add(_FUNC_EXPANDARRAY_STRING_RETURNVALUE,l2string(_FUNC_EXPANDARRAY_STRING_TEMP->len)),_FUNC_EXPANDARRAY_STRING_TEMP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10117,"ide_methods.bas");}while(r); +} +fornext_continue_5199:; +} +fornext_exit_5199:; +do{ +*_FUNC_EXPANDARRAY_LONG_THISLEVEL=*_FUNC_EXPANDARRAY_LONG_THISLEVEL- 1 ; +if(!qbevent)break;evnt(26070,10121,"ide_methods.bas");}while(r); +S_47275:; +if ((-(*_FUNC_EXPANDARRAY_LONG_THISLEVEL== 0 ))||new_error){ +if(qbevent){evnt(26070,10123,"ide_methods.bas");if(r)goto S_47275;} +do{ +qbs_set(_FUNC_EXPANDARRAY_STRING_EXPANDARRAY,_FUNC_EXPANDARRAY_STRING_RETURNVALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10124,"ide_methods.bas");}while(r); +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free179.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_EXPANDARRAY_STRING_EXPANDARRAY);return _FUNC_EXPANDARRAY_STRING_EXPANDARRAY; +} +qbs* FUNC_PARSERANGE(qbs*_FUNC_PARSERANGE_STRING___TEXT){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data180.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +S_47278:; +if ((qbs_cleanup(qbs_tmp_base,-(((int32)(qbs__trim(_FUNC_PARSERANGE_STRING___TEXT))->len)== 0 )))||new_error){ +if(qbevent){evnt(26070,10134,"ide_methods.bas");if(r)goto S_47278;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,10134,"ide_methods.bas");}while(r); +} +do{ +if(!qbevent)break;evnt(26070,10136,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_PARSERANGE_STRING_FILTER,qbs__trim(_FUNC_PARSERANGE_STRING___TEXT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10138,"ide_methods.bas");}while(r); +do{ +*_FUNC_PARSERANGE_LONG_J=func_instr(NULL,_FUNC_PARSERANGE_STRING_FILTER,qbs_new_txt_len("-",1),0)+func_instr(NULL,_FUNC_PARSERANGE_STRING_FILTER,qbs_new_txt_len(";",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10139,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_PARSERANGE_STRING_TEMP,func_space( 1000 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10140,"ide_methods.bas");}while(r); +S_47285:; +if ((-(*_FUNC_PARSERANGE_LONG_J== 0 ))||new_error){ +if(qbevent){evnt(26070,10142,"ide_methods.bas");if(r)goto S_47285;} +do{ +qbs_set(_FUNC_PARSERANGE_STRING_PARSERANGE,l2string(qbr(func_val(_FUNC_PARSERANGE_STRING_FILTER)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10143,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,10144,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_PARSERANGE_LONG_READING= 1 ; +if(!qbevent)break;evnt(26070,10147,"ide_methods.bas");}while(r); +S_47290:; +fornext_value5206= 1 ; +fornext_finalvalue5206=_FUNC_PARSERANGE_STRING_FILTER->len; +fornext_step5206= 1 ; +if (fornext_step5206<0) fornext_step_negative5206=1; else fornext_step_negative5206=0; +if (new_error) goto fornext_error5206; +goto fornext_entrylabel5206; +while(1){ +fornext_value5206=fornext_step5206+(*_FUNC_PARSERANGE_LONG_J); +fornext_entrylabel5206: +*_FUNC_PARSERANGE_LONG_J=fornext_value5206; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative5206){ +if (fornext_value5206fornext_finalvalue5206) break; +} +fornext_error5206:; +if(qbevent){evnt(26070,10148,"ide_methods.bas");if(r)goto S_47290;} +do{ +*_FUNC_PARSERANGE_LONG_V=qbs_asc(_FUNC_PARSERANGE_STRING_FILTER,*_FUNC_PARSERANGE_LONG_J); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10149,"ide_methods.bas");}while(r); +S_47292:; +if(qbevent){evnt(26070,10150,"ide_methods.bas");if(r)goto S_47292;} +S_47293:; +if (((*_FUNC_PARSERANGE_LONG_V==( 59 )))||new_error){ +if(qbevent){evnt(26070,10151,"ide_methods.bas");if(r)goto S_47293;} +do{ +*_FUNC_PARSERANGE_LONG_READING= 1 ; +if(!qbevent)break;evnt(26070,10152,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=154; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_PARSEIT; +RETURN_154:; +if(!qbevent)break;evnt(26070,10153,"ide_methods.bas");}while(r); +sc_ec_358_end:; +goto sc_5208_end; +} +S_47296:; +if (((*_FUNC_PARSERANGE_LONG_V==( 45 )))||new_error){ +if(qbevent){evnt(26070,10154,"ide_methods.bas");if(r)goto S_47296;} +S_47297:; +if ((-(*_FUNC_PARSERANGE_LONG_PREVCHAR!= 45 ))||new_error){ +if(qbevent){evnt(26070,10155,"ide_methods.bas");if(r)goto S_47297;} +do{ +*_FUNC_PARSERANGE_LONG_READING=*_FUNC_PARSERANGE_LONG_READING+ 1 ; +if(!qbevent)break;evnt(26070,10156,"ide_methods.bas");}while(r); +S_47299:; +if ((-(*_FUNC_PARSERANGE_LONG_READING== 2 ))||new_error){ +if(qbevent){evnt(26070,10157,"ide_methods.bas");if(r)goto S_47299;} +S_47300:; +if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_PARSERANGE_LONG_J==_FUNC_PARSERANGE_STRING_FILTER->len)))||new_error){ +if(qbevent){evnt(26070,10158,"ide_methods.bas");if(r)goto S_47300;} +do{ +return_point[next_return_point++]=155; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_PARSEIT; +RETURN_155:; +if(!qbevent)break;evnt(26070,10158,"ide_methods.bas");}while(r); +} +} +} +sc_ec_359_end:; +goto sc_5208_end; +} +S_47305:; +if ((((*_FUNC_PARSERANGE_LONG_V>=( 48 ))&&(*_FUNC_PARSERANGE_LONG_V<=( 57 ))))||new_error){ +if(qbevent){evnt(26070,10161,"ide_methods.bas");if(r)goto S_47305;} +S_47306:; +if ((-(*_FUNC_PARSERANGE_LONG_READING== 1 ))||new_error){ +if(qbevent){evnt(26070,10162,"ide_methods.bas");if(r)goto S_47306;} +do{ +qbs_set(_FUNC_PARSERANGE_STRING_V1,qbs_add(_FUNC_PARSERANGE_STRING_V1,func_chr(*_FUNC_PARSERANGE_LONG_V))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10163,"ide_methods.bas");}while(r); +S_47308:; +}else{ +if (-(*_FUNC_PARSERANGE_LONG_READING== 2 )){ +if(qbevent){evnt(26070,10164,"ide_methods.bas");if(r)goto S_47308;} +do{ +qbs_set(_FUNC_PARSERANGE_STRING_V2,qbs_add(_FUNC_PARSERANGE_STRING_V2,func_chr(*_FUNC_PARSERANGE_LONG_V))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10165,"ide_methods.bas");}while(r); +} +} +S_47311:; +if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_PARSERANGE_LONG_J==_FUNC_PARSERANGE_STRING_FILTER->len)))||new_error){ +if(qbevent){evnt(26070,10167,"ide_methods.bas");if(r)goto S_47311;} +do{ +return_point[next_return_point++]=156; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_PARSEIT; +RETURN_156:; +if(!qbevent)break;evnt(26070,10167,"ide_methods.bas");}while(r); +} +sc_ec_360_end:; +goto sc_5208_end; +} +sc_5208_end:; +do{ +*_FUNC_PARSERANGE_LONG_PREVCHAR=*_FUNC_PARSERANGE_LONG_V; +if(!qbevent)break;evnt(26070,10169,"ide_methods.bas");}while(r); +fornext_continue_5205:; +} +fornext_exit_5205:; +do{ +qbs_set(_FUNC_PARSERANGE_STRING_RETURNVALUE,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10172,"ide_methods.bas");}while(r); +S_47318:; +if ((*_FUNC_PARSERANGE_BYTE_ZEROINCLUDED)||new_error){ +if(qbevent){evnt(26070,10173,"ide_methods.bas");if(r)goto S_47318;} +do{ +qbs_set(_FUNC_PARSERANGE_STRING_RETURNVALUE,l2string( 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10173,"ide_methods.bas");}while(r); +} +S_47321:; +fornext_value5212= 1 ; +fornext_finalvalue5212=_FUNC_PARSERANGE_STRING_TEMP->len; +fornext_step5212= 1 ; +if (fornext_step5212<0) fornext_step_negative5212=1; else fornext_step_negative5212=0; +if (new_error) goto fornext_error5212; +goto fornext_entrylabel5212; +while(1){ +fornext_value5212=fornext_step5212+(*_FUNC_PARSERANGE_LONG_I); +fornext_entrylabel5212: +*_FUNC_PARSERANGE_LONG_I=fornext_value5212; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative5212){ +if (fornext_value5212fornext_finalvalue5212) break; +} +fornext_error5212:; +if(qbevent){evnt(26070,10174,"ide_methods.bas");if(r)goto S_47321;} +S_47322:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_PARSERANGE_STRING_TEMP,*_FUNC_PARSERANGE_LONG_I)== 1 )))||new_error){ +if(qbevent){evnt(26070,10175,"ide_methods.bas");if(r)goto S_47322;} +do{ +qbs_set(_FUNC_PARSERANGE_STRING_RETURNVALUE,qbs_add(_FUNC_PARSERANGE_STRING_RETURNVALUE,l2string(*_FUNC_PARSERANGE_LONG_I))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10175,"ide_methods.bas");}while(r); +} +fornext_continue_5211:; +} +fornext_exit_5211:; +do{ +qbs_set(_FUNC_PARSERANGE_STRING_PARSERANGE,_FUNC_PARSERANGE_STRING_RETURNVALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10177,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,10179,"ide_methods.bas");}while(r); +LABEL_PARSEIT:; +if(qbevent){evnt(26070,10180,"ide_methods.bas");r=0;} +do{ +*_FUNC_PARSERANGE_LONG_V1=qbr(func_val(_FUNC_PARSERANGE_STRING_V1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10181,"ide_methods.bas");}while(r); +do{ +*_FUNC_PARSERANGE_LONG_V2=qbr(func_val(_FUNC_PARSERANGE_STRING_V2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10182,"ide_methods.bas");}while(r); +S_47330:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_PARSERANGE_STRING_V2->len> 0 )))||new_error){ +if(qbevent){evnt(26070,10183,"ide_methods.bas");if(r)goto S_47330;} +S_47331:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_PARSERANGE_STRING_V1->len> 0 )))||new_error){ +if(qbevent){evnt(26070,10184,"ide_methods.bas");if(r)goto S_47331;} +S_47332:; +if ((-(*_FUNC_PARSERANGE_LONG_V1>*_FUNC_PARSERANGE_LONG_V2))||new_error){ +if(qbevent){evnt(26070,10185,"ide_methods.bas");if(r)goto S_47332;} +do{ +swap_32(&*_FUNC_PARSERANGE_LONG_V1,&*_FUNC_PARSERANGE_LONG_V2); +if(!qbevent)break;evnt(26070,10185,"ide_methods.bas");}while(r); +} +S_47335:; +if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_PARSERANGE_LONG_V2>_FUNC_PARSERANGE_STRING_TEMP->len)))||new_error){ +if(qbevent){evnt(26070,10186,"ide_methods.bas");if(r)goto S_47335;} +do{ +qbs_set(_FUNC_PARSERANGE_STRING_TEMP,qbs_add(_FUNC_PARSERANGE_STRING_TEMP,func_space(*_FUNC_PARSERANGE_LONG_V2-_FUNC_PARSERANGE_STRING_TEMP->len))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10186,"ide_methods.bas");}while(r); +} +S_47338:; +if ((-(*_FUNC_PARSERANGE_LONG_V1== 0 ))||new_error){ +if(qbevent){evnt(26070,10187,"ide_methods.bas");if(r)goto S_47338;} +do{ +*_FUNC_PARSERANGE_BYTE_ZEROINCLUDED= -1 ; +if(!qbevent)break;evnt(26070,10187,"ide_methods.bas");}while(r); +do{ +*_FUNC_PARSERANGE_LONG_V1= 1 ; +if(!qbevent)break;evnt(26070,10187,"ide_methods.bas");}while(r); +} +S_47342:; +fornext_value5219=*_FUNC_PARSERANGE_LONG_V1; +fornext_finalvalue5219=*_FUNC_PARSERANGE_LONG_V2; +fornext_step5219= 1 ; +if (fornext_step5219<0) fornext_step_negative5219=1; else fornext_step_negative5219=0; +if (new_error) goto fornext_error5219; +goto fornext_entrylabel5219; +while(1){ +fornext_value5219=fornext_step5219+(*_FUNC_PARSERANGE_LONG_I); +fornext_entrylabel5219: +*_FUNC_PARSERANGE_LONG_I=fornext_value5219; +if (fornext_step_negative5219){ +if (fornext_value5219fornext_finalvalue5219) break; +} +fornext_error5219:; +if(qbevent){evnt(26070,10188,"ide_methods.bas");if(r)goto S_47342;} +do{ +tqbs=_FUNC_PARSERANGE_STRING_TEMP; if (!new_error){ +tmp_fileno=*_FUNC_PARSERANGE_LONG_I; if (!new_error){ +tmp_long= 1 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26070,10189,"ide_methods.bas");}while(r); +fornext_continue_5218:; +} +fornext_exit_5218:; +} +}else{ +S_47347:; +if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_PARSERANGE_LONG_V1>_FUNC_PARSERANGE_STRING_TEMP->len)))||new_error){ +if(qbevent){evnt(26070,10193,"ide_methods.bas");if(r)goto S_47347;} +do{ +qbs_set(_FUNC_PARSERANGE_STRING_TEMP,qbs_add(_FUNC_PARSERANGE_STRING_TEMP,func_space(*_FUNC_PARSERANGE_LONG_V1-_FUNC_PARSERANGE_STRING_TEMP->len))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10193,"ide_methods.bas");}while(r); +} +S_47350:; +if ((-(*_FUNC_PARSERANGE_LONG_V1== 0 ))||new_error){ +if(qbevent){evnt(26070,10194,"ide_methods.bas");if(r)goto S_47350;} +do{ +*_FUNC_PARSERANGE_BYTE_ZEROINCLUDED= -1 ; +if(!qbevent)break;evnt(26070,10195,"ide_methods.bas");}while(r); +}else{ +do{ +tqbs=_FUNC_PARSERANGE_STRING_TEMP; if (!new_error){ +tmp_fileno=*_FUNC_PARSERANGE_LONG_V1; if (!new_error){ +tmp_long= 1 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26070,10197,"ide_methods.bas");}while(r); +} +} +do{ +qbs_set(_FUNC_PARSERANGE_STRING_V1,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10200,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_PARSERANGE_STRING_V2,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10201,"ide_methods.bas");}while(r); +do{ +#include "ret180.txt" +if(!qbevent)break;evnt(26070,10202,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free180.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_PARSERANGE_STRING_PARSERANGE);return _FUNC_PARSERANGE_STRING_PARSERANGE; +} +int32 FUNC_IDECALLSTACKBOX(){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data181.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +sub_pcopy( 0 , 2 ); +if(!qbevent)break;evnt(26070,10208,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 0 , 1 ); +if(!qbevent)break;evnt(26070,10209,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,10210,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECALLSTACKBOX_LONG_FOCUS= 1 ; +if(!qbevent)break;evnt(26070,10211,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26070,10212,"ide_methods.bas");}while(r); +do{ if (_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[2]&2){ error(10); @@ -158564,712 +158564,712 @@ if (!_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0]) error(257); } _FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[2]|=1; } -} -if(!qbevent)break;evnt(26070,10213,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(26070,10214,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECALLSTACKBOX_STRING1_SEP,func_chr( 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10215,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECALLSTACKBOX_LONG_DIALOGHEIGHT=*__LONG_CALLSTACKLENGTH+ 4 ; -if(!qbevent)break;evnt(26070,10220,"ide_methods.bas");}while(r); -S_47368:; -if ((-(*_FUNC_IDECALLSTACKBOX_LONG_DIALOGHEIGHT>(*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 6 )))||new_error){ -if(qbevent){evnt(26070,10221,"ide_methods.bas");if(r)goto S_47368;} -do{ -*_FUNC_IDECALLSTACKBOX_LONG_DIALOGHEIGHT=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 6 ; -if(!qbevent)break;evnt(26070,10222,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDECALLSTACKBOX_LONG_DIALOGWIDTH= 52 ; -if(!qbevent)break;evnt(26070,10225,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECALLSTACKBOX_STRING_TEMP,__STRING_CALLSTACKLIST); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10226,"ide_methods.bas");}while(r); -S_47373:; -do{ -if(qbevent){evnt(26070,10227,"ide_methods.bas");if(r)goto S_47373;} -do{ -*_FUNC_IDECALLSTACKBOX_LONG_I=func_instr(NULL,_FUNC_IDECALLSTACKBOX_STRING_TEMP,_FUNC_IDECALLSTACKBOX_STRING1_SEP,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10228,"ide_methods.bas");}while(r); -S_47375:; -if ((*_FUNC_IDECALLSTACKBOX_LONG_I)||new_error){ -if(qbevent){evnt(26070,10229,"ide_methods.bas");if(r)goto S_47375;} -do{ -qbs_set(_FUNC_IDECALLSTACKBOX_STRING_TEMP2,qbs_left(_FUNC_IDECALLSTACKBOX_STRING_TEMP,*_FUNC_IDECALLSTACKBOX_LONG_I- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10230,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECALLSTACKBOX_STRING_TEMP,func_mid(_FUNC_IDECALLSTACKBOX_STRING_TEMP,*_FUNC_IDECALLSTACKBOX_LONG_I+ 1 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10231,"ide_methods.bas");}while(r); -S_47378:; -if ((qbs_cleanup(qbs_tmp_base,-((_FUNC_IDECALLSTACKBOX_STRING_TEMP2->len+ 6 )>*_FUNC_IDECALLSTACKBOX_LONG_DIALOGWIDTH)))||new_error){ -if(qbevent){evnt(26070,10232,"ide_methods.bas");if(r)goto S_47378;} -do{ -*_FUNC_IDECALLSTACKBOX_LONG_DIALOGWIDTH=_FUNC_IDECALLSTACKBOX_STRING_TEMP2->len+ 6 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10232,"ide_methods.bas");}while(r); -} -}else{ -S_47382:; -if ((qbs_cleanup(qbs_tmp_base,-((_FUNC_IDECALLSTACKBOX_STRING_TEMP->len+ 6 )>*_FUNC_IDECALLSTACKBOX_LONG_DIALOGWIDTH)))||new_error){ -if(qbevent){evnt(26070,10234,"ide_methods.bas");if(r)goto S_47382;} -do{ -*_FUNC_IDECALLSTACKBOX_LONG_DIALOGWIDTH=_FUNC_IDECALLSTACKBOX_STRING_TEMP->len+ 6 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10234,"ide_methods.bas");}while(r); -} -do{ -goto dl_exit_5222; -if(!qbevent)break;evnt(26070,10235,"ide_methods.bas");}while(r); -} -dl_continue_5222:; -}while(1); -dl_exit_5222:; -S_47388:; -if ((-(*_FUNC_IDECALLSTACKBOX_LONG_DIALOGWIDTH>(*__LONG_IDEWX- 8 )))||new_error){ -if(qbevent){evnt(26070,10239,"ide_methods.bas");if(r)goto S_47388;} -do{ -*_FUNC_IDECALLSTACKBOX_LONG_DIALOGWIDTH=*__LONG_IDEWX- 8 ; -if(!qbevent)break;evnt(26070,10239,"ide_methods.bas");}while(r); -} -do{ -SUB_IDEPAR((void*)( ((char*)(_FUNC_IDECALLSTACKBOX_UDT_P)) + (0) ),_FUNC_IDECALLSTACKBOX_LONG_DIALOGWIDTH,_FUNC_IDECALLSTACKBOX_LONG_DIALOGHEIGHT,qbs_new_txt_len("$DEBUG MODE",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10241,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECALLSTACKBOX_LONG_I= 0 ; -if(!qbevent)break;evnt(26070,10243,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECALLSTACKBOX_LONG_I=*_FUNC_IDECALLSTACKBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,10244,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECALLSTACKBOX_LONG_I)-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*89+36))= 2 ; -if(!qbevent)break;evnt(26070,10245,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECALLSTACKBOX_LONG_I)-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*89+24))= 2 ; -if(!qbevent)break;evnt(26070,10246,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECALLSTACKBOX_LONG_I)-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*89+28))=*_FUNC_IDECALLSTACKBOX_LONG_DIALOGWIDTH- 4 ; -if(!qbevent)break;evnt(26070,10247,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECALLSTACKBOX_LONG_I)-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*89+32))=*_FUNC_IDECALLSTACKBOX_LONG_DIALOGHEIGHT- 4 ; -if(!qbevent)break;evnt(26070,10247,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECALLSTACKBOX_LONG_I)-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(__STRING_CALLSTACKLIST); -if(!qbevent)break;evnt(26070,10248,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECALLSTACKBOX_LONG_I)-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*89+64))=*__LONG_CALLSTACKLENGTH; -if(!qbevent)break;evnt(26070,10249,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECALLSTACKBOX_LONG_I)-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("Call Stack",10)); -if(!qbevent)break;evnt(26070,10250,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECALLSTACKBOX_LONG_I=*_FUNC_IDECALLSTACKBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,10252,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECALLSTACKBOX_LONG_I)-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*89+36))= 3 ; -if(!qbevent)break;evnt(26070,10253,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECALLSTACKBOX_LONG_I)-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*89+24))=*_FUNC_IDECALLSTACKBOX_LONG_DIALOGHEIGHT; -if(!qbevent)break;evnt(26070,10254,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECALLSTACKBOX_LONG_I)-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("#Go To Line",11),_FUNC_IDECALLSTACKBOX_STRING1_SEP),qbs_new_txt_len("#Close",6)),_FUNC_IDECALLSTACKBOX_STRING1_SEP),qbs_new_txt_len("Co#py",5))); -if(!qbevent)break;evnt(26070,10255,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECALLSTACKBOX_LONG_I)-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*89+48))= 1 ; -if(!qbevent)break;evnt(26070,10256,"ide_methods.bas");}while(r); -S_47406:; -fornext_value5228= 1 ; -fornext_finalvalue5228= 100 ; -fornext_step5228= 1 ; -if (fornext_step5228<0) fornext_step_negative5228=1; else fornext_step_negative5228=0; -if (new_error) goto fornext_error5228; -goto fornext_entrylabel5228; -while(1){ -fornext_value5228=fornext_step5228+(*_FUNC_IDECALLSTACKBOX_LONG_I); -fornext_entrylabel5228: -*_FUNC_IDECALLSTACKBOX_LONG_I=fornext_value5228; -if (fornext_step_negative5228){ -if (fornext_value5228fornext_finalvalue5228) break; -} -fornext_error5228:; -if(qbevent){evnt(26070,10262,"ide_methods.bas");if(r)goto S_47406;} -do{ -memcpy(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECALLSTACKBOX_LONG_I)-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*89)+ 0,((char*)_FUNC_IDECALLSTACKBOX_UDT_P)+(0)+ 0, 20); -if(!qbevent)break;evnt(26070,10262,"ide_methods.bas");}while(r); -fornext_continue_5227:; -} -fornext_exit_5227:; -S_47409:; -do{ -if(qbevent){evnt(26070,10265,"ide_methods.bas");if(r)goto S_47409;} -do{ -SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDECALLSTACKBOX_UDT_P)) + (0) )); -if(!qbevent)break;evnt(26070,10268,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECALLSTACKBOX_LONG_F= 1 ; -if(!qbevent)break;evnt(26070,10269,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECALLSTACKBOX_LONG_CX= 0 ; -if(!qbevent)break;evnt(26070,10269,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECALLSTACKBOX_LONG_CY= 0 ; -if(!qbevent)break;evnt(26070,10269,"ide_methods.bas");}while(r); -S_47414:; -fornext_value5231= 1 ; -fornext_finalvalue5231= 100 ; -fornext_step5231= 1 ; -if (fornext_step5231<0) fornext_step_negative5231=1; else fornext_step_negative5231=0; -if (new_error) goto fornext_error5231; -goto fornext_entrylabel5231; -while(1){ -fornext_value5231=fornext_step5231+(*_FUNC_IDECALLSTACKBOX_LONG_I); -fornext_entrylabel5231: -*_FUNC_IDECALLSTACKBOX_LONG_I=fornext_value5231; -if (fornext_step_negative5231){ -if (fornext_value5231fornext_finalvalue5231) break; -} -fornext_error5231:; -if(qbevent){evnt(26070,10270,"ide_methods.bas");if(r)goto S_47414;} -S_47415:; -if ((*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECALLSTACKBOX_LONG_I)-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*89+36)))||new_error){ -if(qbevent){evnt(26070,10271,"ide_methods.bas");if(r)goto S_47415;} -do{ -*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECALLSTACKBOX_LONG_I)-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*89+60))=*_FUNC_IDECALLSTACKBOX_LONG_FOCUS-*_FUNC_IDECALLSTACKBOX_LONG_F; -if(!qbevent)break;evnt(26070,10273,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECALLSTACKBOX_LONG_I)-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*89+52))= 0 ; -if(!qbevent)break;evnt(26070,10274,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECALLSTACKBOX_LONG_I)-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*89+56))= 0 ; -if(!qbevent)break;evnt(26070,10274,"ide_methods.bas");}while(r); -do{ -SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDECALLSTACKBOX_LONG_I)-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDECALLSTACKBOX_LONG_F); -if(!qbevent)break;evnt(26070,10275,"ide_methods.bas");}while(r); -S_47420:; -if ((*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECALLSTACKBOX_LONG_I)-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*89+52)))||new_error){ -if(qbevent){evnt(26070,10276,"ide_methods.bas");if(r)goto S_47420;} -do{ -*_FUNC_IDECALLSTACKBOX_LONG_CX=*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECALLSTACKBOX_LONG_I)-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*89+52)); -if(!qbevent)break;evnt(26070,10276,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECALLSTACKBOX_LONG_CY=*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECALLSTACKBOX_LONG_I)-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*89+56)); -if(!qbevent)break;evnt(26070,10276,"ide_methods.bas");}while(r); -} -} -fornext_continue_5230:; -} -fornext_exit_5230:; -do{ -*_FUNC_IDECALLSTACKBOX_LONG_LASTFOCUS=*_FUNC_IDECALLSTACKBOX_LONG_F- 1 ; -if(!qbevent)break;evnt(26070,10279,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,10283,"ide_methods.bas");}while(r); -do{ -sub__printstring(*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_UDT_P)+(0))+ 2 ,*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_UDT_P)+(4))+ 1 ,qbs_new_txt_len("Most recent sub/function calls in your program:",47),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10283,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 1 , 0 ); -if(!qbevent)break;evnt(26070,10288,"ide_methods.bas");}while(r); -S_47430:; -if ((*_FUNC_IDECALLSTACKBOX_LONG_CX)||new_error){ -if(qbevent){evnt(26070,10289,"ide_methods.bas");if(r)goto S_47430;} -do{ -qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,10289,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*_FUNC_IDECALLSTACKBOX_LONG_CY,*_FUNC_IDECALLSTACKBOX_LONG_CX, 1 ,NULL,NULL,7); -if(!qbevent)break;evnt(26070,10289,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,10289,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDECALLSTACKBOX_LONG_CHANGE= 0 ; -if(!qbevent)break;evnt(26070,10292,"ide_methods.bas");}while(r); -S_47436:; -do{ -if(qbevent){evnt(26070,10293,"ide_methods.bas");if(r)goto S_47436;} -do{ -SUB_GETINPUT(); -if(!qbevent)break;evnt(26070,10294,"ide_methods.bas");}while(r); -S_47438:; -if ((*__LONG_MWHEEL)||new_error){ -if(qbevent){evnt(26070,10295,"ide_methods.bas");if(r)goto S_47438;} -do{ -*_FUNC_IDECALLSTACKBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,10295,"ide_methods.bas");}while(r); -} -S_47441:; -if ((*__LONG_KB)||new_error){ -if(qbevent){evnt(26070,10296,"ide_methods.bas");if(r)goto S_47441;} -do{ -*_FUNC_IDECALLSTACKBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,10296,"ide_methods.bas");}while(r); -} -S_47444:; -if ((*__LONG_MCLICK)||new_error){ -if(qbevent){evnt(26070,10297,"ide_methods.bas");if(r)goto S_47444;} -do{ -*_FUNC_IDECALLSTACKBOX_LONG_MOUSEDOWN= 1 ; -if(!qbevent)break;evnt(26070,10297,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECALLSTACKBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,10297,"ide_methods.bas");}while(r); -} -S_47448:; -if ((*__LONG_MRELEASE)||new_error){ -if(qbevent){evnt(26070,10298,"ide_methods.bas");if(r)goto S_47448;} -do{ -*_FUNC_IDECALLSTACKBOX_LONG_MOUSEUP= 1 ; -if(!qbevent)break;evnt(26070,10298,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECALLSTACKBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,10298,"ide_methods.bas");}while(r); -} -S_47452:; -if ((*__LONG_MB)||new_error){ -if(qbevent){evnt(26070,10299,"ide_methods.bas");if(r)goto S_47452;} -do{ -*_FUNC_IDECALLSTACKBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,10299,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDECALLSTACKBOX_LONG_ALT=*__LONG_KALT; -if(!qbevent)break;evnt(26070,10300,"ide_methods.bas");}while(r); -S_47456:; -if ((-(*_FUNC_IDECALLSTACKBOX_LONG_ALT!=*_FUNC_IDECALLSTACKBOX_LONG_OLDALT))||new_error){ -if(qbevent){evnt(26070,10300,"ide_methods.bas");if(r)goto S_47456;} -do{ -*_FUNC_IDECALLSTACKBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,10300,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDECALLSTACKBOX_LONG_OLDALT=*_FUNC_IDECALLSTACKBOX_LONG_ALT; -if(!qbevent)break;evnt(26070,10301,"ide_methods.bas");}while(r); -do{ -sub__limit( 100 ); -if(!qbevent)break;evnt(26070,10302,"ide_methods.bas");}while(r); -S_47461:; -dl_continue_5232:; -}while((!(*_FUNC_IDECALLSTACKBOX_LONG_CHANGE))&&(!new_error)); -dl_exit_5232:; -if(qbevent){evnt(26070,10303,"ide_methods.bas");if(r)goto S_47461;} -S_47462:; -if ((*_FUNC_IDECALLSTACKBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(26070,10304,"ide_methods.bas");if(r)goto S_47462;} -do{ -*__LONG_IDEHL= 1 ; -if(!qbevent)break;evnt(26070,10304,"ide_methods.bas");}while(r); -}else{ -do{ -*__LONG_IDEHL= 0 ; -if(!qbevent)break;evnt(26070,10304,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDECALLSTACKBOX_STRING_ALTLETTER,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10306,"ide_methods.bas");}while(r); -S_47468:; -if ((*_FUNC_IDECALLSTACKBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(26070,10307,"ide_methods.bas");if(r)goto S_47468;} -S_47469:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ -if(qbevent){evnt(26070,10308,"ide_methods.bas");if(r)goto S_47469;} -do{ -*_FUNC_IDECALLSTACKBOX_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10309,"ide_methods.bas");}while(r); -S_47471:; -if (((-(*_FUNC_IDECALLSTACKBOX_LONG_K>= 65 ))&(-(*_FUNC_IDECALLSTACKBOX_LONG_K<= 90 )))||new_error){ -if(qbevent){evnt(26070,10310,"ide_methods.bas");if(r)goto S_47471;} -do{ -qbs_set(_FUNC_IDECALLSTACKBOX_STRING_ALTLETTER,func_chr(*_FUNC_IDECALLSTACKBOX_LONG_K)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10310,"ide_methods.bas");}while(r); -} -} -} -do{ -qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,10313,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); -if(!qbevent)break;evnt(26070,10313,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,10313,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECALLSTACKBOX_LONG_INFO= 0 ; -if(!qbevent)break;evnt(26070,10317,"ide_methods.bas");}while(r); -S_47480:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,10318,"ide_methods.bas");if(r)goto S_47480;} -do{ -qbs_set(__STRING_K,func_chr( 255 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10318,"ide_methods.bas");}while(r); -} -S_47483:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ -if(qbevent){evnt(26070,10319,"ide_methods.bas");if(r)goto S_47483;} -do{ -*_FUNC_IDECALLSTACKBOX_LONG_FOCUS=*_FUNC_IDECALLSTACKBOX_LONG_FOCUS+ 1 ; -if(!qbevent)break;evnt(26070,10319,"ide_methods.bas");}while(r); -} -S_47486:; -if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||new_error){ -if(qbevent){evnt(26070,10320,"ide_methods.bas");if(r)goto S_47486;} -do{ -*_FUNC_IDECALLSTACKBOX_LONG_FOCUS=*_FUNC_IDECALLSTACKBOX_LONG_FOCUS- 1 ; -if(!qbevent)break;evnt(26070,10320,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_K,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10320,"ide_methods.bas");}while(r); -} -S_47490:; -if ((-(*_FUNC_IDECALLSTACKBOX_LONG_FOCUS< 1 ))||new_error){ -if(qbevent){evnt(26070,10321,"ide_methods.bas");if(r)goto S_47490;} -do{ -*_FUNC_IDECALLSTACKBOX_LONG_FOCUS=*_FUNC_IDECALLSTACKBOX_LONG_LASTFOCUS; -if(!qbevent)break;evnt(26070,10321,"ide_methods.bas");}while(r); -} -S_47493:; -if ((-(*_FUNC_IDECALLSTACKBOX_LONG_FOCUS>*_FUNC_IDECALLSTACKBOX_LONG_LASTFOCUS))||new_error){ -if(qbevent){evnt(26070,10322,"ide_methods.bas");if(r)goto S_47493;} -do{ -*_FUNC_IDECALLSTACKBOX_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(26070,10322,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDECALLSTACKBOX_LONG_F= 1 ; -if(!qbevent)break;evnt(26070,10323,"ide_methods.bas");}while(r); -S_47497:; -fornext_value5235= 1 ; -fornext_finalvalue5235= 100 ; -fornext_step5235= 1 ; -if (fornext_step5235<0) fornext_step_negative5235=1; else fornext_step_negative5235=0; -if (new_error) goto fornext_error5235; -goto fornext_entrylabel5235; -while(1){ -fornext_value5235=fornext_step5235+(*_FUNC_IDECALLSTACKBOX_LONG_I); -fornext_entrylabel5235: -*_FUNC_IDECALLSTACKBOX_LONG_I=fornext_value5235; -if (fornext_step_negative5235){ -if (fornext_value5235fornext_finalvalue5235) break; -} -fornext_error5235:; -if(qbevent){evnt(26070,10324,"ide_methods.bas");if(r)goto S_47497;} -do{ -*_FUNC_IDECALLSTACKBOX_LONG_T=*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECALLSTACKBOX_LONG_I)-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*89+36)); -if(!qbevent)break;evnt(26070,10325,"ide_methods.bas");}while(r); -S_47499:; -if ((*_FUNC_IDECALLSTACKBOX_LONG_T)||new_error){ -if(qbevent){evnt(26070,10326,"ide_methods.bas");if(r)goto S_47499;} -do{ -*_FUNC_IDECALLSTACKBOX_LONG_FOCUSOFFSET=*_FUNC_IDECALLSTACKBOX_LONG_FOCUS-*_FUNC_IDECALLSTACKBOX_LONG_F; -if(!qbevent)break;evnt(26070,10327,"ide_methods.bas");}while(r); -do{ -SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDECALLSTACKBOX_LONG_I)-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDECALLSTACKBOX_LONG_FOCUS,_FUNC_IDECALLSTACKBOX_LONG_F,_FUNC_IDECALLSTACKBOX_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDECALLSTACKBOX_STRING_ALTLETTER,__LONG_MB,_FUNC_IDECALLSTACKBOX_LONG_MOUSEDOWN,_FUNC_IDECALLSTACKBOX_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDECALLSTACKBOX_LONG_INFO,__LONG_MWHEEL); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10328,"ide_methods.bas");}while(r); -} -fornext_continue_5234:; -} -fornext_exit_5234:; -S_47504:; -if ((*__LONG_MCLICK&(-(*_FUNC_IDECALLSTACKBOX_LONG_FOCUS== 1 )))||new_error){ -if(qbevent){evnt(26070,10333,"ide_methods.bas");if(r)goto S_47504;} -S_47505:; -if (((-(((float)(FUNC_TIMEELAPSEDSINCE(_FUNC_IDECALLSTACKBOX_SINGLE_LASTCLICK)))<((float)( 0.3E+0 ))))&(-(*_FUNC_IDECALLSTACKBOX_LONG_CLICKEDITEM==*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*89+64)))))||new_error){ -if(qbevent){evnt(26070,10334,"ide_methods.bas");if(r)goto S_47505;} -do{ -goto LABEL_SETIDECY; -if(!qbevent)break;evnt(26070,10335,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDECALLSTACKBOX_SINGLE_LASTCLICK=func_timer(NULL,0); -if(!qbevent)break;evnt(26070,10337,"ide_methods.bas");}while(r); -S_47509:; -if ((-(*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*89+64))> 0 ))||new_error){ -if(qbevent){evnt(26070,10338,"ide_methods.bas");if(r)goto S_47509;} -do{ -*_FUNC_IDECALLSTACKBOX_LONG_CLICKEDITEM=*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*89+64)); -if(!qbevent)break;evnt(26070,10338,"ide_methods.bas");}while(r); -} -do{ -goto dl_continue_5229; -if(!qbevent)break;evnt(26070,10339,"ide_methods.bas");}while(r); -} -S_47514:; -if ((qbs_cleanup(qbs_tmp_base,((-(*_FUNC_IDECALLSTACKBOX_LONG_FOCUS== 1 ))&(qbs_equal(__STRING_K,func_chr( 13 ))))|((-(*_FUNC_IDECALLSTACKBOX_LONG_FOCUS== 2 ))&(-(*_FUNC_IDECALLSTACKBOX_LONG_INFO!= 0 )))))||new_error){ -if(qbevent){evnt(26070,10342,"ide_methods.bas");if(r)goto S_47514;} -LABEL_SETIDECY:; -if(qbevent){evnt(26070,10343,"ide_methods.bas");r=0;} -do{ -*_FUNC_IDECALLSTACKBOX_LONG_Y=func_abs((int32)(*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*89+64)))); -if(!qbevent)break;evnt(26070,10344,"ide_methods.bas");}while(r); -S_47516:; -if (((-(*_FUNC_IDECALLSTACKBOX_LONG_Y>= 1 ))&(-(*_FUNC_IDECALLSTACKBOX_LONG_Y<=*__LONG_CALLSTACKLENGTH)))||new_error){ -if(qbevent){evnt(26070,10345,"ide_methods.bas");if(r)goto S_47516;} -do{ -qbs_set(_FUNC_IDECALLSTACKBOX_STRING_TEMP,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*89+72)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10346,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEGOTOBOX_LASTLINENUM=qbr(func_val(func_mid(_FUNC_IDECALLSTACKBOX_STRING_TEMP,func__instrrev(NULL,_FUNC_IDECALLSTACKBOX_STRING_TEMP,qbs_new_txt_len(" ",1),0)+ 1 ,NULL,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10347,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECY=*__LONG_IDEGOTOBOX_LASTLINENUM; -if(!qbevent)break;evnt(26070,10348,"ide_methods.bas");}while(r); -do{ -SUB_IDECENTERCURRENTLINE(); -if(!qbevent)break;evnt(26070,10349,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(26070,10350,"ide_methods.bas");}while(r); -do{ -SUB_CLEARMOUSE(); -if(!qbevent)break;evnt(26070,10351,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,10352,"ide_methods.bas");}while(r); -} -} -S_47526:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 27 )))|(((-(*_FUNC_IDECALLSTACKBOX_LONG_FOCUS== 3 ))&(-(*_FUNC_IDECALLSTACKBOX_LONG_INFO!= 0 ))))))||new_error){ -if(qbevent){evnt(26070,10356,"ide_methods.bas");if(r)goto S_47526;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,10357,"ide_methods.bas");}while(r); -} -S_47529:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 13 )))|(((-(*_FUNC_IDECALLSTACKBOX_LONG_FOCUS== 3 ))&(-(*_FUNC_IDECALLSTACKBOX_LONG_INFO!= 0 ))))))||new_error){ -if(qbevent){evnt(26070,10360,"ide_methods.bas");if(r)goto S_47529;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,10361,"ide_methods.bas");}while(r); -} -S_47532:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 13 )))|(((-(*_FUNC_IDECALLSTACKBOX_LONG_FOCUS== 4 ))&(-(*_FUNC_IDECALLSTACKBOX_LONG_INFO!= 0 ))))|(((qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("C",1)))&(-(*__LONG_KCTRL!= 0 ))))))||new_error){ -if(qbevent){evnt(26070,10364,"ide_methods.bas");if(r)goto S_47532;} -do{ -sub__clipboard(FUNC_STRREPLACE(__STRING_CALLSTACKLIST,_FUNC_IDECALLSTACKBOX_STRING1_SEP,func_chr( 10 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10365,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDECALLSTACKBOX_LONG_MOUSEDOWN= 0 ; -if(!qbevent)break;evnt(26070,10369,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECALLSTACKBOX_LONG_MOUSEUP= 0 ; -if(!qbevent)break;evnt(26070,10370,"ide_methods.bas");}while(r); -dl_continue_5229:; -}while(1); -dl_exit_5229:; -do{ -*_FUNC_IDECALLSTACKBOX_LONG_IDECALLSTACKBOX= 0 ; -if(!qbevent)break;evnt(26070,10373,"ide_methods.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free181.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -return *_FUNC_IDECALLSTACKBOX_LONG_IDECALLSTACKBOX; -} -void SUB_IDEBOX(int32*_SUB_IDEBOX_LONG_X,int32*_SUB_IDEBOX_LONG_Y,int32*_SUB_IDEBOX_LONG_W,int32*_SUB_IDEBOX_LONG_H){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data182.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -sub__printstring(*_SUB_IDEBOX_LONG_X,*_SUB_IDEBOX_LONG_Y,qbs_add(qbs_add(func_chr( 218 ),func_string(*_SUB_IDEBOX_LONG_W- 2 , 196 )),func_chr( 191 )),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10378,"ide_methods.bas");}while(r); -S_47540:; -fornext_value5237=*_SUB_IDEBOX_LONG_Y+ 1 ; -fornext_finalvalue5237=*_SUB_IDEBOX_LONG_Y+*_SUB_IDEBOX_LONG_H- 2 ; -fornext_step5237= 1 ; -if (fornext_step5237<0) fornext_step_negative5237=1; else fornext_step_negative5237=0; -if (new_error) goto fornext_error5237; -goto fornext_entrylabel5237; -while(1){ -fornext_value5237=fornext_step5237+(*_SUB_IDEBOX_LONG_Y2); -fornext_entrylabel5237: -*_SUB_IDEBOX_LONG_Y2=fornext_value5237; -if (fornext_step_negative5237){ -if (fornext_value5237fornext_finalvalue5237) break; -} -fornext_error5237:; -if(qbevent){evnt(26070,10379,"ide_methods.bas");if(r)goto S_47540;} -do{ -sub__printstring(*_SUB_IDEBOX_LONG_X,*_SUB_IDEBOX_LONG_Y2,qbs_add(qbs_add(func_chr( 179 ),func_space(*_SUB_IDEBOX_LONG_W- 2 )),func_chr( 179 )),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10380,"ide_methods.bas");}while(r); -fornext_continue_5236:; -} -fornext_exit_5236:; -do{ -sub__printstring(*_SUB_IDEBOX_LONG_X,*_SUB_IDEBOX_LONG_Y+*_SUB_IDEBOX_LONG_H- 1 ,qbs_add(qbs_add(func_chr( 192 ),func_string(*_SUB_IDEBOX_LONG_W- 2 , 196 )),func_chr( 217 )),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10382,"ide_methods.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free182.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -void SUB_IDEBOXSHADOW(int32*_SUB_IDEBOXSHADOW_LONG_X,int32*_SUB_IDEBOXSHADOW_LONG_Y,int32*_SUB_IDEBOXSHADOW_LONG_W,int32*_SUB_IDEBOXSHADOW_LONG_H){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data183.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -SUB_IDEBOX(_SUB_IDEBOXSHADOW_LONG_X,_SUB_IDEBOXSHADOW_LONG_Y,_SUB_IDEBOXSHADOW_LONG_W,_SUB_IDEBOXSHADOW_LONG_H); -if(!qbevent)break;evnt(26070,10387,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 2 , 0 ,NULL,3); -if(!qbevent)break;evnt(26070,10390,"ide_methods.bas");}while(r); -S_47546:; -fornext_value5239=*_SUB_IDEBOXSHADOW_LONG_Y+ 1 ; -fornext_finalvalue5239=*_SUB_IDEBOXSHADOW_LONG_Y+*_SUB_IDEBOXSHADOW_LONG_H- 1 ; -fornext_step5239= 1 ; -if (fornext_step5239<0) fornext_step_negative5239=1; else fornext_step_negative5239=0; -if (new_error) goto fornext_error5239; -goto fornext_entrylabel5239; -while(1){ -fornext_value5239=fornext_step5239+(*_SUB_IDEBOXSHADOW_LONG_Y2); -fornext_entrylabel5239: -*_SUB_IDEBOXSHADOW_LONG_Y2=fornext_value5239; -if (fornext_step_negative5239){ -if (fornext_value5239fornext_finalvalue5239) break; -} -fornext_error5239:; -if(qbevent){evnt(26070,10391,"ide_methods.bas");if(r)goto S_47546;} -S_47547:; -fornext_value5241=*_SUB_IDEBOXSHADOW_LONG_X+*_SUB_IDEBOXSHADOW_LONG_W; -fornext_finalvalue5241=*_SUB_IDEBOXSHADOW_LONG_X+*_SUB_IDEBOXSHADOW_LONG_W+ 1 ; -fornext_step5241= 1 ; -if (fornext_step5241<0) fornext_step_negative5241=1; else fornext_step_negative5241=0; -if (new_error) goto fornext_error5241; -goto fornext_entrylabel5241; -while(1){ -fornext_value5241=fornext_step5241+(*_SUB_IDEBOXSHADOW_LONG_X2); -fornext_entrylabel5241: -*_SUB_IDEBOXSHADOW_LONG_X2=fornext_value5241; -if (fornext_step_negative5241){ -if (fornext_value5241fornext_finalvalue5241) break; -} -fornext_error5241:; -if(qbevent){evnt(26070,10392,"ide_methods.bas");if(r)goto S_47547;} -S_47548:; -if (((-(*_SUB_IDEBOXSHADOW_LONG_X2<=*__LONG_IDEWX))&(-(*_SUB_IDEBOXSHADOW_LONG_Y2<=(*__LONG_IDEWY+*__LONG_IDESUBWINDOW))))||new_error){ -if(qbevent){evnt(26070,10393,"ide_methods.bas");if(r)goto S_47548;} -do{ -sub__printstring(*_SUB_IDEBOXSHADOW_LONG_X2,*_SUB_IDEBOXSHADOW_LONG_Y2,func_chr(func_screen(*_SUB_IDEBOXSHADOW_LONG_Y2,*_SUB_IDEBOXSHADOW_LONG_X2,NULL,0)),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10394,"ide_methods.bas");}while(r); -} -fornext_continue_5240:; -} -fornext_exit_5240:; -fornext_continue_5238:; -} -fornext_exit_5238:; -do{ -*_SUB_IDEBOXSHADOW_LONG_Y2=*_SUB_IDEBOXSHADOW_LONG_Y+*_SUB_IDEBOXSHADOW_LONG_H; -if(!qbevent)break;evnt(26070,10399,"ide_methods.bas");}while(r); -S_47554:; -if ((-(*_SUB_IDEBOXSHADOW_LONG_Y2<=(*__LONG_IDEWY+*__LONG_IDESUBWINDOW)))||new_error){ -if(qbevent){evnt(26070,10400,"ide_methods.bas");if(r)goto S_47554;} -S_47555:; -fornext_value5243=*_SUB_IDEBOXSHADOW_LONG_X+ 2 ; -fornext_finalvalue5243=*_SUB_IDEBOXSHADOW_LONG_X+*_SUB_IDEBOXSHADOW_LONG_W+ 1 ; -fornext_step5243= 1 ; -if (fornext_step5243<0) fornext_step_negative5243=1; else fornext_step_negative5243=0; -if (new_error) goto fornext_error5243; -goto fornext_entrylabel5243; -while(1){ -fornext_value5243=fornext_step5243+(*_SUB_IDEBOXSHADOW_LONG_X2); -fornext_entrylabel5243: -*_SUB_IDEBOXSHADOW_LONG_X2=fornext_value5243; -if (fornext_step_negative5243){ -if (fornext_value5243fornext_finalvalue5243) break; -} -fornext_error5243:; -if(qbevent){evnt(26070,10401,"ide_methods.bas");if(r)goto S_47555;} -S_47556:; -if ((-(*_SUB_IDEBOXSHADOW_LONG_X2<=*__LONG_IDEWX))||new_error){ -if(qbevent){evnt(26070,10402,"ide_methods.bas");if(r)goto S_47556;} -do{ -sub__printstring(*_SUB_IDEBOXSHADOW_LONG_X2,*_SUB_IDEBOXSHADOW_LONG_Y2,func_chr(func_screen(*_SUB_IDEBOXSHADOW_LONG_Y2,*_SUB_IDEBOXSHADOW_LONG_X2,NULL,0)),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10403,"ide_methods.bas");}while(r); -} -fornext_continue_5242:; -} -fornext_exit_5242:; -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free183.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -qbs* FUNC_IDECHANGE(){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data184.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ +} +if(!qbevent)break;evnt(26070,10213,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26070,10214,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECALLSTACKBOX_STRING1_SEP,func_chr( 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10215,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECALLSTACKBOX_LONG_DIALOGHEIGHT=*__LONG_CALLSTACKLENGTH+ 4 ; +if(!qbevent)break;evnt(26070,10220,"ide_methods.bas");}while(r); +S_47368:; +if ((-(*_FUNC_IDECALLSTACKBOX_LONG_DIALOGHEIGHT>(*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 6 )))||new_error){ +if(qbevent){evnt(26070,10221,"ide_methods.bas");if(r)goto S_47368;} +do{ +*_FUNC_IDECALLSTACKBOX_LONG_DIALOGHEIGHT=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 6 ; +if(!qbevent)break;evnt(26070,10222,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDECALLSTACKBOX_LONG_DIALOGWIDTH= 52 ; +if(!qbevent)break;evnt(26070,10225,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECALLSTACKBOX_STRING_TEMP,__STRING_CALLSTACKLIST); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10226,"ide_methods.bas");}while(r); +S_47373:; +do{ +if(qbevent){evnt(26070,10227,"ide_methods.bas");if(r)goto S_47373;} +do{ +*_FUNC_IDECALLSTACKBOX_LONG_I=func_instr(NULL,_FUNC_IDECALLSTACKBOX_STRING_TEMP,_FUNC_IDECALLSTACKBOX_STRING1_SEP,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10228,"ide_methods.bas");}while(r); +S_47375:; +if ((*_FUNC_IDECALLSTACKBOX_LONG_I)||new_error){ +if(qbevent){evnt(26070,10229,"ide_methods.bas");if(r)goto S_47375;} +do{ +qbs_set(_FUNC_IDECALLSTACKBOX_STRING_TEMP2,qbs_left(_FUNC_IDECALLSTACKBOX_STRING_TEMP,*_FUNC_IDECALLSTACKBOX_LONG_I- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10230,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECALLSTACKBOX_STRING_TEMP,func_mid(_FUNC_IDECALLSTACKBOX_STRING_TEMP,*_FUNC_IDECALLSTACKBOX_LONG_I+ 1 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10231,"ide_methods.bas");}while(r); +S_47378:; +if ((qbs_cleanup(qbs_tmp_base,-((_FUNC_IDECALLSTACKBOX_STRING_TEMP2->len+ 6 )>*_FUNC_IDECALLSTACKBOX_LONG_DIALOGWIDTH)))||new_error){ +if(qbevent){evnt(26070,10232,"ide_methods.bas");if(r)goto S_47378;} +do{ +*_FUNC_IDECALLSTACKBOX_LONG_DIALOGWIDTH=_FUNC_IDECALLSTACKBOX_STRING_TEMP2->len+ 6 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10232,"ide_methods.bas");}while(r); +} +}else{ +S_47382:; +if ((qbs_cleanup(qbs_tmp_base,-((_FUNC_IDECALLSTACKBOX_STRING_TEMP->len+ 6 )>*_FUNC_IDECALLSTACKBOX_LONG_DIALOGWIDTH)))||new_error){ +if(qbevent){evnt(26070,10234,"ide_methods.bas");if(r)goto S_47382;} +do{ +*_FUNC_IDECALLSTACKBOX_LONG_DIALOGWIDTH=_FUNC_IDECALLSTACKBOX_STRING_TEMP->len+ 6 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10234,"ide_methods.bas");}while(r); +} +do{ +goto dl_exit_5222; +if(!qbevent)break;evnt(26070,10235,"ide_methods.bas");}while(r); +} +dl_continue_5222:; +}while(1); +dl_exit_5222:; +S_47388:; +if ((-(*_FUNC_IDECALLSTACKBOX_LONG_DIALOGWIDTH>(*__LONG_IDEWX- 8 )))||new_error){ +if(qbevent){evnt(26070,10239,"ide_methods.bas");if(r)goto S_47388;} +do{ +*_FUNC_IDECALLSTACKBOX_LONG_DIALOGWIDTH=*__LONG_IDEWX- 8 ; +if(!qbevent)break;evnt(26070,10239,"ide_methods.bas");}while(r); +} +do{ +SUB_IDEPAR((void*)( ((char*)(_FUNC_IDECALLSTACKBOX_UDT_P)) + (0) ),_FUNC_IDECALLSTACKBOX_LONG_DIALOGWIDTH,_FUNC_IDECALLSTACKBOX_LONG_DIALOGHEIGHT,qbs_new_txt_len("$DEBUG MODE",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10241,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECALLSTACKBOX_LONG_I= 0 ; +if(!qbevent)break;evnt(26070,10243,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECALLSTACKBOX_LONG_I=*_FUNC_IDECALLSTACKBOX_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,10244,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECALLSTACKBOX_LONG_I)-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*89+36))= 2 ; +if(!qbevent)break;evnt(26070,10245,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECALLSTACKBOX_LONG_I)-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*89+24))= 2 ; +if(!qbevent)break;evnt(26070,10246,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECALLSTACKBOX_LONG_I)-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*89+28))=*_FUNC_IDECALLSTACKBOX_LONG_DIALOGWIDTH- 4 ; +if(!qbevent)break;evnt(26070,10247,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECALLSTACKBOX_LONG_I)-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*89+32))=*_FUNC_IDECALLSTACKBOX_LONG_DIALOGHEIGHT- 4 ; +if(!qbevent)break;evnt(26070,10247,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECALLSTACKBOX_LONG_I)-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(__STRING_CALLSTACKLIST); +if(!qbevent)break;evnt(26070,10248,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECALLSTACKBOX_LONG_I)-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*89+64))=*__LONG_CALLSTACKLENGTH; +if(!qbevent)break;evnt(26070,10249,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECALLSTACKBOX_LONG_I)-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("Call Stack",10)); +if(!qbevent)break;evnt(26070,10250,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECALLSTACKBOX_LONG_I=*_FUNC_IDECALLSTACKBOX_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,10252,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECALLSTACKBOX_LONG_I)-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*89+36))= 3 ; +if(!qbevent)break;evnt(26070,10253,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECALLSTACKBOX_LONG_I)-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*89+24))=*_FUNC_IDECALLSTACKBOX_LONG_DIALOGHEIGHT; +if(!qbevent)break;evnt(26070,10254,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECALLSTACKBOX_LONG_I)-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("#Go To Line",11),_FUNC_IDECALLSTACKBOX_STRING1_SEP),qbs_new_txt_len("#Close",6)),_FUNC_IDECALLSTACKBOX_STRING1_SEP),qbs_new_txt_len("Co#py",5))); +if(!qbevent)break;evnt(26070,10255,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECALLSTACKBOX_LONG_I)-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*89+48))= 1 ; +if(!qbevent)break;evnt(26070,10256,"ide_methods.bas");}while(r); +S_47406:; +fornext_value5228= 1 ; +fornext_finalvalue5228= 100 ; +fornext_step5228= 1 ; +if (fornext_step5228<0) fornext_step_negative5228=1; else fornext_step_negative5228=0; +if (new_error) goto fornext_error5228; +goto fornext_entrylabel5228; +while(1){ +fornext_value5228=fornext_step5228+(*_FUNC_IDECALLSTACKBOX_LONG_I); +fornext_entrylabel5228: +*_FUNC_IDECALLSTACKBOX_LONG_I=fornext_value5228; +if (fornext_step_negative5228){ +if (fornext_value5228fornext_finalvalue5228) break; +} +fornext_error5228:; +if(qbevent){evnt(26070,10262,"ide_methods.bas");if(r)goto S_47406;} +do{ +memcpy(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECALLSTACKBOX_LONG_I)-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*89)+ 0,((char*)_FUNC_IDECALLSTACKBOX_UDT_P)+(0)+ 0, 20); +if(!qbevent)break;evnt(26070,10262,"ide_methods.bas");}while(r); +fornext_continue_5227:; +} +fornext_exit_5227:; +S_47409:; +do{ +if(qbevent){evnt(26070,10265,"ide_methods.bas");if(r)goto S_47409;} +do{ +SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDECALLSTACKBOX_UDT_P)) + (0) )); +if(!qbevent)break;evnt(26070,10268,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECALLSTACKBOX_LONG_F= 1 ; +if(!qbevent)break;evnt(26070,10269,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECALLSTACKBOX_LONG_CX= 0 ; +if(!qbevent)break;evnt(26070,10269,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECALLSTACKBOX_LONG_CY= 0 ; +if(!qbevent)break;evnt(26070,10269,"ide_methods.bas");}while(r); +S_47414:; +fornext_value5231= 1 ; +fornext_finalvalue5231= 100 ; +fornext_step5231= 1 ; +if (fornext_step5231<0) fornext_step_negative5231=1; else fornext_step_negative5231=0; +if (new_error) goto fornext_error5231; +goto fornext_entrylabel5231; +while(1){ +fornext_value5231=fornext_step5231+(*_FUNC_IDECALLSTACKBOX_LONG_I); +fornext_entrylabel5231: +*_FUNC_IDECALLSTACKBOX_LONG_I=fornext_value5231; +if (fornext_step_negative5231){ +if (fornext_value5231fornext_finalvalue5231) break; +} +fornext_error5231:; +if(qbevent){evnt(26070,10270,"ide_methods.bas");if(r)goto S_47414;} +S_47415:; +if ((*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECALLSTACKBOX_LONG_I)-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*89+36)))||new_error){ +if(qbevent){evnt(26070,10271,"ide_methods.bas");if(r)goto S_47415;} +do{ +*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECALLSTACKBOX_LONG_I)-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*89+60))=*_FUNC_IDECALLSTACKBOX_LONG_FOCUS-*_FUNC_IDECALLSTACKBOX_LONG_F; +if(!qbevent)break;evnt(26070,10273,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECALLSTACKBOX_LONG_I)-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*89+52))= 0 ; +if(!qbevent)break;evnt(26070,10274,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECALLSTACKBOX_LONG_I)-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*89+56))= 0 ; +if(!qbevent)break;evnt(26070,10274,"ide_methods.bas");}while(r); +do{ +SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDECALLSTACKBOX_LONG_I)-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDECALLSTACKBOX_LONG_F); +if(!qbevent)break;evnt(26070,10275,"ide_methods.bas");}while(r); +S_47420:; +if ((*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECALLSTACKBOX_LONG_I)-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*89+52)))||new_error){ +if(qbevent){evnt(26070,10276,"ide_methods.bas");if(r)goto S_47420;} +do{ +*_FUNC_IDECALLSTACKBOX_LONG_CX=*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECALLSTACKBOX_LONG_I)-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*89+52)); +if(!qbevent)break;evnt(26070,10276,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECALLSTACKBOX_LONG_CY=*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECALLSTACKBOX_LONG_I)-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*89+56)); +if(!qbevent)break;evnt(26070,10276,"ide_methods.bas");}while(r); +} +} +fornext_continue_5230:; +} +fornext_exit_5230:; +do{ +*_FUNC_IDECALLSTACKBOX_LONG_LASTFOCUS=*_FUNC_IDECALLSTACKBOX_LONG_F- 1 ; +if(!qbevent)break;evnt(26070,10279,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,10283,"ide_methods.bas");}while(r); +do{ +sub__printstring(*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_UDT_P)+(0))+ 2 ,*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_UDT_P)+(4))+ 1 ,qbs_new_txt_len("Most recent sub/function calls in your program:",47),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10283,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 1 , 0 ); +if(!qbevent)break;evnt(26070,10288,"ide_methods.bas");}while(r); +S_47430:; +if ((*_FUNC_IDECALLSTACKBOX_LONG_CX)||new_error){ +if(qbevent){evnt(26070,10289,"ide_methods.bas");if(r)goto S_47430;} +do{ +qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,10289,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(*_FUNC_IDECALLSTACKBOX_LONG_CY,*_FUNC_IDECALLSTACKBOX_LONG_CX, 1 ,NULL,NULL,7); +if(!qbevent)break;evnt(26070,10289,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,10289,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDECALLSTACKBOX_LONG_CHANGE= 0 ; +if(!qbevent)break;evnt(26070,10292,"ide_methods.bas");}while(r); +S_47436:; +do{ +if(qbevent){evnt(26070,10293,"ide_methods.bas");if(r)goto S_47436;} +do{ +SUB_GETINPUT(); +if(!qbevent)break;evnt(26070,10294,"ide_methods.bas");}while(r); +S_47438:; +if ((*__LONG_MWHEEL)||new_error){ +if(qbevent){evnt(26070,10295,"ide_methods.bas");if(r)goto S_47438;} +do{ +*_FUNC_IDECALLSTACKBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,10295,"ide_methods.bas");}while(r); +} +S_47441:; +if ((*__LONG_KB)||new_error){ +if(qbevent){evnt(26070,10296,"ide_methods.bas");if(r)goto S_47441;} +do{ +*_FUNC_IDECALLSTACKBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,10296,"ide_methods.bas");}while(r); +} +S_47444:; +if ((*__LONG_MCLICK)||new_error){ +if(qbevent){evnt(26070,10297,"ide_methods.bas");if(r)goto S_47444;} +do{ +*_FUNC_IDECALLSTACKBOX_LONG_MOUSEDOWN= 1 ; +if(!qbevent)break;evnt(26070,10297,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECALLSTACKBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,10297,"ide_methods.bas");}while(r); +} +S_47448:; +if ((*__LONG_MRELEASE)||new_error){ +if(qbevent){evnt(26070,10298,"ide_methods.bas");if(r)goto S_47448;} +do{ +*_FUNC_IDECALLSTACKBOX_LONG_MOUSEUP= 1 ; +if(!qbevent)break;evnt(26070,10298,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECALLSTACKBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,10298,"ide_methods.bas");}while(r); +} +S_47452:; +if ((*__LONG_MB)||new_error){ +if(qbevent){evnt(26070,10299,"ide_methods.bas");if(r)goto S_47452;} +do{ +*_FUNC_IDECALLSTACKBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,10299,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDECALLSTACKBOX_LONG_ALT=*__LONG_KALT; +if(!qbevent)break;evnt(26070,10300,"ide_methods.bas");}while(r); +S_47456:; +if ((-(*_FUNC_IDECALLSTACKBOX_LONG_ALT!=*_FUNC_IDECALLSTACKBOX_LONG_OLDALT))||new_error){ +if(qbevent){evnt(26070,10300,"ide_methods.bas");if(r)goto S_47456;} +do{ +*_FUNC_IDECALLSTACKBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,10300,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDECALLSTACKBOX_LONG_OLDALT=*_FUNC_IDECALLSTACKBOX_LONG_ALT; +if(!qbevent)break;evnt(26070,10301,"ide_methods.bas");}while(r); +do{ +sub__limit( 100 ); +if(!qbevent)break;evnt(26070,10302,"ide_methods.bas");}while(r); +S_47461:; +dl_continue_5232:; +}while((!(*_FUNC_IDECALLSTACKBOX_LONG_CHANGE))&&(!new_error)); +dl_exit_5232:; +if(qbevent){evnt(26070,10303,"ide_methods.bas");if(r)goto S_47461;} +S_47462:; +if ((*_FUNC_IDECALLSTACKBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ +if(qbevent){evnt(26070,10304,"ide_methods.bas");if(r)goto S_47462;} +do{ +*__LONG_IDEHL= 1 ; +if(!qbevent)break;evnt(26070,10304,"ide_methods.bas");}while(r); +}else{ +do{ +*__LONG_IDEHL= 0 ; +if(!qbevent)break;evnt(26070,10304,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDECALLSTACKBOX_STRING_ALTLETTER,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10306,"ide_methods.bas");}while(r); +S_47468:; +if ((*_FUNC_IDECALLSTACKBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ +if(qbevent){evnt(26070,10307,"ide_methods.bas");if(r)goto S_47468;} +S_47469:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ +if(qbevent){evnt(26070,10308,"ide_methods.bas");if(r)goto S_47469;} +do{ +*_FUNC_IDECALLSTACKBOX_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10309,"ide_methods.bas");}while(r); +S_47471:; +if (((-(*_FUNC_IDECALLSTACKBOX_LONG_K>= 65 ))&(-(*_FUNC_IDECALLSTACKBOX_LONG_K<= 90 )))||new_error){ +if(qbevent){evnt(26070,10310,"ide_methods.bas");if(r)goto S_47471;} +do{ +qbs_set(_FUNC_IDECALLSTACKBOX_STRING_ALTLETTER,func_chr(*_FUNC_IDECALLSTACKBOX_LONG_K)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10310,"ide_methods.bas");}while(r); +} +} +} +do{ +qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,10313,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); +if(!qbevent)break;evnt(26070,10313,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,10313,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECALLSTACKBOX_LONG_INFO= 0 ; +if(!qbevent)break;evnt(26070,10317,"ide_methods.bas");}while(r); +S_47480:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,10318,"ide_methods.bas");if(r)goto S_47480;} +do{ +qbs_set(__STRING_K,func_chr( 255 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10318,"ide_methods.bas");}while(r); +} +S_47483:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ +if(qbevent){evnt(26070,10319,"ide_methods.bas");if(r)goto S_47483;} +do{ +*_FUNC_IDECALLSTACKBOX_LONG_FOCUS=*_FUNC_IDECALLSTACKBOX_LONG_FOCUS+ 1 ; +if(!qbevent)break;evnt(26070,10319,"ide_methods.bas");}while(r); +} +S_47486:; +if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||new_error){ +if(qbevent){evnt(26070,10320,"ide_methods.bas");if(r)goto S_47486;} +do{ +*_FUNC_IDECALLSTACKBOX_LONG_FOCUS=*_FUNC_IDECALLSTACKBOX_LONG_FOCUS- 1 ; +if(!qbevent)break;evnt(26070,10320,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_K,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10320,"ide_methods.bas");}while(r); +} +S_47490:; +if ((-(*_FUNC_IDECALLSTACKBOX_LONG_FOCUS< 1 ))||new_error){ +if(qbevent){evnt(26070,10321,"ide_methods.bas");if(r)goto S_47490;} +do{ +*_FUNC_IDECALLSTACKBOX_LONG_FOCUS=*_FUNC_IDECALLSTACKBOX_LONG_LASTFOCUS; +if(!qbevent)break;evnt(26070,10321,"ide_methods.bas");}while(r); +} +S_47493:; +if ((-(*_FUNC_IDECALLSTACKBOX_LONG_FOCUS>*_FUNC_IDECALLSTACKBOX_LONG_LASTFOCUS))||new_error){ +if(qbevent){evnt(26070,10322,"ide_methods.bas");if(r)goto S_47493;} +do{ +*_FUNC_IDECALLSTACKBOX_LONG_FOCUS= 1 ; +if(!qbevent)break;evnt(26070,10322,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDECALLSTACKBOX_LONG_F= 1 ; +if(!qbevent)break;evnt(26070,10323,"ide_methods.bas");}while(r); +S_47497:; +fornext_value5235= 1 ; +fornext_finalvalue5235= 100 ; +fornext_step5235= 1 ; +if (fornext_step5235<0) fornext_step_negative5235=1; else fornext_step_negative5235=0; +if (new_error) goto fornext_error5235; +goto fornext_entrylabel5235; +while(1){ +fornext_value5235=fornext_step5235+(*_FUNC_IDECALLSTACKBOX_LONG_I); +fornext_entrylabel5235: +*_FUNC_IDECALLSTACKBOX_LONG_I=fornext_value5235; +if (fornext_step_negative5235){ +if (fornext_value5235fornext_finalvalue5235) break; +} +fornext_error5235:; +if(qbevent){evnt(26070,10324,"ide_methods.bas");if(r)goto S_47497;} +do{ +*_FUNC_IDECALLSTACKBOX_LONG_T=*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECALLSTACKBOX_LONG_I)-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*89+36)); +if(!qbevent)break;evnt(26070,10325,"ide_methods.bas");}while(r); +S_47499:; +if ((*_FUNC_IDECALLSTACKBOX_LONG_T)||new_error){ +if(qbevent){evnt(26070,10326,"ide_methods.bas");if(r)goto S_47499;} +do{ +*_FUNC_IDECALLSTACKBOX_LONG_FOCUSOFFSET=*_FUNC_IDECALLSTACKBOX_LONG_FOCUS-*_FUNC_IDECALLSTACKBOX_LONG_F; +if(!qbevent)break;evnt(26070,10327,"ide_methods.bas");}while(r); +do{ +SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDECALLSTACKBOX_LONG_I)-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDECALLSTACKBOX_LONG_FOCUS,_FUNC_IDECALLSTACKBOX_LONG_F,_FUNC_IDECALLSTACKBOX_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDECALLSTACKBOX_STRING_ALTLETTER,__LONG_MB,_FUNC_IDECALLSTACKBOX_LONG_MOUSEDOWN,_FUNC_IDECALLSTACKBOX_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDECALLSTACKBOX_LONG_INFO,__LONG_MWHEEL); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10328,"ide_methods.bas");}while(r); +} +fornext_continue_5234:; +} +fornext_exit_5234:; +S_47504:; +if ((*__LONG_MCLICK&(-(*_FUNC_IDECALLSTACKBOX_LONG_FOCUS== 1 )))||new_error){ +if(qbevent){evnt(26070,10333,"ide_methods.bas");if(r)goto S_47504;} +S_47505:; +if (((-(((float)(FUNC_TIMEELAPSEDSINCE(_FUNC_IDECALLSTACKBOX_SINGLE_LASTCLICK)))<((float)( 0.3E+0 ))))&(-(*_FUNC_IDECALLSTACKBOX_LONG_CLICKEDITEM==*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*89+64)))))||new_error){ +if(qbevent){evnt(26070,10334,"ide_methods.bas");if(r)goto S_47505;} +do{ +goto LABEL_SETIDECY; +if(!qbevent)break;evnt(26070,10335,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDECALLSTACKBOX_SINGLE_LASTCLICK=func_timer(NULL,0); +if(!qbevent)break;evnt(26070,10337,"ide_methods.bas");}while(r); +S_47509:; +if ((-(*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*89+64))> 0 ))||new_error){ +if(qbevent){evnt(26070,10338,"ide_methods.bas");if(r)goto S_47509;} +do{ +*_FUNC_IDECALLSTACKBOX_LONG_CLICKEDITEM=*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26070,10338,"ide_methods.bas");}while(r); +} +do{ +goto dl_continue_5229; +if(!qbevent)break;evnt(26070,10339,"ide_methods.bas");}while(r); +} +S_47514:; +if ((qbs_cleanup(qbs_tmp_base,((-(*_FUNC_IDECALLSTACKBOX_LONG_FOCUS== 1 ))&(qbs_equal(__STRING_K,func_chr( 13 ))))|((-(*_FUNC_IDECALLSTACKBOX_LONG_FOCUS== 2 ))&(-(*_FUNC_IDECALLSTACKBOX_LONG_INFO!= 0 )))))||new_error){ +if(qbevent){evnt(26070,10342,"ide_methods.bas");if(r)goto S_47514;} +LABEL_SETIDECY:; +if(qbevent){evnt(26070,10343,"ide_methods.bas");r=0;} +do{ +*_FUNC_IDECALLSTACKBOX_LONG_Y=func_abs((int32)(*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*89+64)))); +if(!qbevent)break;evnt(26070,10344,"ide_methods.bas");}while(r); +S_47516:; +if (((-(*_FUNC_IDECALLSTACKBOX_LONG_Y>= 1 ))&(-(*_FUNC_IDECALLSTACKBOX_LONG_Y<=*__LONG_CALLSTACKLENGTH)))||new_error){ +if(qbevent){evnt(26070,10345,"ide_methods.bas");if(r)goto S_47516;} +do{ +qbs_set(_FUNC_IDECALLSTACKBOX_STRING_TEMP,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[4],_FUNC_IDECALLSTACKBOX_ARRAY_UDT_O[5]))*89+72)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10346,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEGOTOBOX_LASTLINENUM=qbr(func_val(func_mid(_FUNC_IDECALLSTACKBOX_STRING_TEMP,func__instrrev(NULL,_FUNC_IDECALLSTACKBOX_STRING_TEMP,qbs_new_txt_len(" ",1),0)+ 1 ,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10347,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECY=*__LONG_IDEGOTOBOX_LASTLINENUM; +if(!qbevent)break;evnt(26070,10348,"ide_methods.bas");}while(r); +do{ +SUB_IDECENTERCURRENTLINE(); +if(!qbevent)break;evnt(26070,10349,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESELECT= 0 ; +if(!qbevent)break;evnt(26070,10350,"ide_methods.bas");}while(r); +do{ +SUB_CLEARMOUSE(); +if(!qbevent)break;evnt(26070,10351,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,10352,"ide_methods.bas");}while(r); +} +} +S_47526:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 27 )))|(((-(*_FUNC_IDECALLSTACKBOX_LONG_FOCUS== 3 ))&(-(*_FUNC_IDECALLSTACKBOX_LONG_INFO!= 0 ))))))||new_error){ +if(qbevent){evnt(26070,10356,"ide_methods.bas");if(r)goto S_47526;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,10357,"ide_methods.bas");}while(r); +} +S_47529:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 13 )))|(((-(*_FUNC_IDECALLSTACKBOX_LONG_FOCUS== 3 ))&(-(*_FUNC_IDECALLSTACKBOX_LONG_INFO!= 0 ))))))||new_error){ +if(qbevent){evnt(26070,10360,"ide_methods.bas");if(r)goto S_47529;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,10361,"ide_methods.bas");}while(r); +} +S_47532:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 13 )))|(((-(*_FUNC_IDECALLSTACKBOX_LONG_FOCUS== 4 ))&(-(*_FUNC_IDECALLSTACKBOX_LONG_INFO!= 0 ))))|(((qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("C",1)))&(-(*__LONG_KCTRL!= 0 ))))))||new_error){ +if(qbevent){evnt(26070,10364,"ide_methods.bas");if(r)goto S_47532;} +do{ +sub__clipboard(FUNC_STRREPLACE(__STRING_CALLSTACKLIST,_FUNC_IDECALLSTACKBOX_STRING1_SEP,func_chr( 10 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10365,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDECALLSTACKBOX_LONG_MOUSEDOWN= 0 ; +if(!qbevent)break;evnt(26070,10369,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECALLSTACKBOX_LONG_MOUSEUP= 0 ; +if(!qbevent)break;evnt(26070,10370,"ide_methods.bas");}while(r); +dl_continue_5229:; +}while(1); +dl_exit_5229:; +do{ +*_FUNC_IDECALLSTACKBOX_LONG_IDECALLSTACKBOX= 0 ; +if(!qbevent)break;evnt(26070,10373,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free181.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +return *_FUNC_IDECALLSTACKBOX_LONG_IDECALLSTACKBOX; +} +void SUB_IDEBOX(int32*_SUB_IDEBOX_LONG_X,int32*_SUB_IDEBOX_LONG_Y,int32*_SUB_IDEBOX_LONG_W,int32*_SUB_IDEBOX_LONG_H){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data182.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +sub__printstring(*_SUB_IDEBOX_LONG_X,*_SUB_IDEBOX_LONG_Y,qbs_add(qbs_add(func_chr( 218 ),func_string(*_SUB_IDEBOX_LONG_W- 2 , 196 )),func_chr( 191 )),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10378,"ide_methods.bas");}while(r); +S_47540:; +fornext_value5237=*_SUB_IDEBOX_LONG_Y+ 1 ; +fornext_finalvalue5237=*_SUB_IDEBOX_LONG_Y+*_SUB_IDEBOX_LONG_H- 2 ; +fornext_step5237= 1 ; +if (fornext_step5237<0) fornext_step_negative5237=1; else fornext_step_negative5237=0; +if (new_error) goto fornext_error5237; +goto fornext_entrylabel5237; +while(1){ +fornext_value5237=fornext_step5237+(*_SUB_IDEBOX_LONG_Y2); +fornext_entrylabel5237: +*_SUB_IDEBOX_LONG_Y2=fornext_value5237; +if (fornext_step_negative5237){ +if (fornext_value5237fornext_finalvalue5237) break; +} +fornext_error5237:; +if(qbevent){evnt(26070,10379,"ide_methods.bas");if(r)goto S_47540;} +do{ +sub__printstring(*_SUB_IDEBOX_LONG_X,*_SUB_IDEBOX_LONG_Y2,qbs_add(qbs_add(func_chr( 179 ),func_space(*_SUB_IDEBOX_LONG_W- 2 )),func_chr( 179 )),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10380,"ide_methods.bas");}while(r); +fornext_continue_5236:; +} +fornext_exit_5236:; +do{ +sub__printstring(*_SUB_IDEBOX_LONG_X,*_SUB_IDEBOX_LONG_Y+*_SUB_IDEBOX_LONG_H- 1 ,qbs_add(qbs_add(func_chr( 192 ),func_string(*_SUB_IDEBOX_LONG_W- 2 , 196 )),func_chr( 217 )),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10382,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free182.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +void SUB_IDEBOXSHADOW(int32*_SUB_IDEBOXSHADOW_LONG_X,int32*_SUB_IDEBOXSHADOW_LONG_Y,int32*_SUB_IDEBOXSHADOW_LONG_W,int32*_SUB_IDEBOXSHADOW_LONG_H){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data183.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +SUB_IDEBOX(_SUB_IDEBOXSHADOW_LONG_X,_SUB_IDEBOXSHADOW_LONG_Y,_SUB_IDEBOXSHADOW_LONG_W,_SUB_IDEBOXSHADOW_LONG_H); +if(!qbevent)break;evnt(26070,10387,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 2 , 0 ,NULL,3); +if(!qbevent)break;evnt(26070,10390,"ide_methods.bas");}while(r); +S_47546:; +fornext_value5239=*_SUB_IDEBOXSHADOW_LONG_Y+ 1 ; +fornext_finalvalue5239=*_SUB_IDEBOXSHADOW_LONG_Y+*_SUB_IDEBOXSHADOW_LONG_H- 1 ; +fornext_step5239= 1 ; +if (fornext_step5239<0) fornext_step_negative5239=1; else fornext_step_negative5239=0; +if (new_error) goto fornext_error5239; +goto fornext_entrylabel5239; +while(1){ +fornext_value5239=fornext_step5239+(*_SUB_IDEBOXSHADOW_LONG_Y2); +fornext_entrylabel5239: +*_SUB_IDEBOXSHADOW_LONG_Y2=fornext_value5239; +if (fornext_step_negative5239){ +if (fornext_value5239fornext_finalvalue5239) break; +} +fornext_error5239:; +if(qbevent){evnt(26070,10391,"ide_methods.bas");if(r)goto S_47546;} +S_47547:; +fornext_value5241=*_SUB_IDEBOXSHADOW_LONG_X+*_SUB_IDEBOXSHADOW_LONG_W; +fornext_finalvalue5241=*_SUB_IDEBOXSHADOW_LONG_X+*_SUB_IDEBOXSHADOW_LONG_W+ 1 ; +fornext_step5241= 1 ; +if (fornext_step5241<0) fornext_step_negative5241=1; else fornext_step_negative5241=0; +if (new_error) goto fornext_error5241; +goto fornext_entrylabel5241; +while(1){ +fornext_value5241=fornext_step5241+(*_SUB_IDEBOXSHADOW_LONG_X2); +fornext_entrylabel5241: +*_SUB_IDEBOXSHADOW_LONG_X2=fornext_value5241; +if (fornext_step_negative5241){ +if (fornext_value5241fornext_finalvalue5241) break; +} +fornext_error5241:; +if(qbevent){evnt(26070,10392,"ide_methods.bas");if(r)goto S_47547;} +S_47548:; +if (((-(*_SUB_IDEBOXSHADOW_LONG_X2<=*__LONG_IDEWX))&(-(*_SUB_IDEBOXSHADOW_LONG_Y2<=(*__LONG_IDEWY+*__LONG_IDESUBWINDOW))))||new_error){ +if(qbevent){evnt(26070,10393,"ide_methods.bas");if(r)goto S_47548;} +do{ +sub__printstring(*_SUB_IDEBOXSHADOW_LONG_X2,*_SUB_IDEBOXSHADOW_LONG_Y2,func_chr(func_screen(*_SUB_IDEBOXSHADOW_LONG_Y2,*_SUB_IDEBOXSHADOW_LONG_X2,NULL,0)),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10394,"ide_methods.bas");}while(r); +} +fornext_continue_5240:; +} +fornext_exit_5240:; +fornext_continue_5238:; +} +fornext_exit_5238:; +do{ +*_SUB_IDEBOXSHADOW_LONG_Y2=*_SUB_IDEBOXSHADOW_LONG_Y+*_SUB_IDEBOXSHADOW_LONG_H; +if(!qbevent)break;evnt(26070,10399,"ide_methods.bas");}while(r); +S_47554:; +if ((-(*_SUB_IDEBOXSHADOW_LONG_Y2<=(*__LONG_IDEWY+*__LONG_IDESUBWINDOW)))||new_error){ +if(qbevent){evnt(26070,10400,"ide_methods.bas");if(r)goto S_47554;} +S_47555:; +fornext_value5243=*_SUB_IDEBOXSHADOW_LONG_X+ 2 ; +fornext_finalvalue5243=*_SUB_IDEBOXSHADOW_LONG_X+*_SUB_IDEBOXSHADOW_LONG_W+ 1 ; +fornext_step5243= 1 ; +if (fornext_step5243<0) fornext_step_negative5243=1; else fornext_step_negative5243=0; +if (new_error) goto fornext_error5243; +goto fornext_entrylabel5243; +while(1){ +fornext_value5243=fornext_step5243+(*_SUB_IDEBOXSHADOW_LONG_X2); +fornext_entrylabel5243: +*_SUB_IDEBOXSHADOW_LONG_X2=fornext_value5243; +if (fornext_step_negative5243){ +if (fornext_value5243fornext_finalvalue5243) break; +} +fornext_error5243:; +if(qbevent){evnt(26070,10401,"ide_methods.bas");if(r)goto S_47555;} +S_47556:; +if ((-(*_SUB_IDEBOXSHADOW_LONG_X2<=*__LONG_IDEWX))||new_error){ +if(qbevent){evnt(26070,10402,"ide_methods.bas");if(r)goto S_47556;} +do{ +sub__printstring(*_SUB_IDEBOXSHADOW_LONG_X2,*_SUB_IDEBOXSHADOW_LONG_Y2,func_chr(func_screen(*_SUB_IDEBOXSHADOW_LONG_Y2,*_SUB_IDEBOXSHADOW_LONG_X2,NULL,0)),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10403,"ide_methods.bas");}while(r); +} +fornext_continue_5242:; +} +fornext_exit_5242:; +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free183.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +qbs* FUNC_IDECHANGE(){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data184.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ if (_FUNC_IDECHANGE_ARRAY_STRING_SEARCHHISTORY[2]&2){ error(10); @@ -159292,23 +159292,23 @@ while(tmp_long--) ((uint64*)(_FUNC_IDECHANGE_ARRAY_STRING_SEARCHHISTORY[0]))[tmp }else{ while(tmp_long--) ((uint64*)(_FUNC_IDECHANGE_ARRAY_STRING_SEARCHHISTORY[0]))[tmp_long]=(uint64)qbs_new(0,0); } -} -if(!qbevent)break;evnt(26070,10412,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 0 , 2 ); -if(!qbevent)break;evnt(26070,10415,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 0 , 1 ); -if(!qbevent)break;evnt(26070,10416,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,10417,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHANGE_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(26070,10418,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(26070,10419,"ide_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26070,10412,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 0 , 2 ); +if(!qbevent)break;evnt(26070,10415,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 0 , 1 ); +if(!qbevent)break;evnt(26070,10416,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,10417,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHANGE_LONG_FOCUS= 1 ; +if(!qbevent)break;evnt(26070,10418,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26070,10419,"ide_methods.bas");}while(r); +do{ if (_FUNC_IDECHANGE_ARRAY_UDT_O[2]&2){ error(10); @@ -159328,1293 +159328,1293 @@ if (!_FUNC_IDECHANGE_ARRAY_UDT_O[0]) error(257); } _FUNC_IDECHANGE_ARRAY_UDT_O[2]|=1; } -} -if(!qbevent)break;evnt(26070,10420,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(26070,10421,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHANGE_STRING1_SEP,func_chr( 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10422,"ide_methods.bas");}while(r); -S_47570:; -if ((*__LONG_IDESELECT)||new_error){ -if(qbevent){evnt(26070,10428,"ide_methods.bas");if(r)goto S_47570;} -S_47571:; -if ((-(*__LONG_IDESELECTY1==*__LONG_IDECY))||new_error){ -if(qbevent){evnt(26070,10429,"ide_methods.bas");if(r)goto S_47571;} -do{ -qbs_set(_FUNC_IDECHANGE_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10430,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHANGE_STRING_A2,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10431,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHANGE_LONG_SX1=*__LONG_IDESELECTX1; -if(!qbevent)break;evnt(26070,10432,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHANGE_LONG_SX2=*__LONG_IDECX; -if(!qbevent)break;evnt(26070,10432,"ide_methods.bas");}while(r); -S_47576:; -if ((-(*_FUNC_IDECHANGE_LONG_SX2<*_FUNC_IDECHANGE_LONG_SX1))||new_error){ -if(qbevent){evnt(26070,10433,"ide_methods.bas");if(r)goto S_47576;} -do{ -swap_32(&*_FUNC_IDECHANGE_LONG_SX1,&*_FUNC_IDECHANGE_LONG_SX2); -if(!qbevent)break;evnt(26070,10433,"ide_methods.bas");}while(r); -} -S_47579:; -fornext_value5245=*_FUNC_IDECHANGE_LONG_SX1; -fornext_finalvalue5245=*_FUNC_IDECHANGE_LONG_SX2- 1 ; -fornext_step5245= 1 ; -if (fornext_step5245<0) fornext_step_negative5245=1; else fornext_step_negative5245=0; -if (new_error) goto fornext_error5245; -goto fornext_entrylabel5245; -while(1){ -fornext_value5245=fornext_step5245+(*_FUNC_IDECHANGE_LONG_X); -fornext_entrylabel5245: -*_FUNC_IDECHANGE_LONG_X=fornext_value5245; -if (fornext_step_negative5245){ -if (fornext_value5245fornext_finalvalue5245) break; -} -fornext_error5245:; -if(qbevent){evnt(26070,10434,"ide_methods.bas");if(r)goto S_47579;} -S_47580:; -if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDECHANGE_LONG_X<=_FUNC_IDECHANGE_STRING_A->len)))||new_error){ -if(qbevent){evnt(26070,10435,"ide_methods.bas");if(r)goto S_47580;} -do{ -qbs_set(_FUNC_IDECHANGE_STRING_A2,qbs_add(_FUNC_IDECHANGE_STRING_A2,func_mid(_FUNC_IDECHANGE_STRING_A,*_FUNC_IDECHANGE_LONG_X, 1 ,0|1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10435,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDECHANGE_STRING_A2,qbs_add(_FUNC_IDECHANGE_STRING_A2,qbs_new_txt_len(" ",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10435,"ide_methods.bas");}while(r); -} -fornext_continue_5244:; -} -fornext_exit_5244:; -} -} -S_47588:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDECHANGE_STRING_A2,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,10439,"ide_methods.bas");if(r)goto S_47588;} -do{ -qbs_set(_FUNC_IDECHANGE_STRING_A2,__STRING_IDEFINDTEXT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10440,"ide_methods.bas");}while(r); -} -do{ -SUB_RETRIEVESEARCHHISTORY(_FUNC_IDECHANGE_ARRAY_STRING_SEARCHHISTORY); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10443,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHANGE_LONG_I= 0 ; -if(!qbevent)break;evnt(26070,10445,"ide_methods.bas");}while(r); -do{ -SUB_IDEPAR((void*)( ((char*)(_FUNC_IDECHANGE_UDT_P)) + (0) ),&(pass5247= 60 ),&(pass5248= 14 ),qbs_new_txt_len("Change",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10446,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHANGE_LONG_I=*_FUNC_IDECHANGE_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,10447,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHANGE_LONG_PREVFOCUS= 1 ; -if(!qbevent)break;evnt(26070,10448,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+36))= 1 ; -if(!qbevent)break;evnt(26070,10449,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+24))= 2 ; -if(!qbevent)break;evnt(26070,10450,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Find What",10)); -if(!qbevent)break;evnt(26070,10451,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDECHANGE_STRING_A2); -if(!qbevent)break;evnt(26070,10452,"ide_methods.bas");}while(r); -S_47600:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDECHANGE_STRING_A2->len> 0 )))||new_error){ -if(qbevent){evnt(26070,10453,"ide_methods.bas");if(r)goto S_47600;} -do{ -*(int8*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+76))= -1 ; -if(!qbevent)break;evnt(26070,10454,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+77))= 0 ; -if(!qbevent)break;evnt(26070,10455,"ide_methods.bas");}while(r); -} -do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+81))=_FUNC_IDECHANGE_STRING_A2->len; -if(!qbevent)break;evnt(26070,10457,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHANGE_LONG_I=*_FUNC_IDECHANGE_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,10459,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+36))= 1 ; -if(!qbevent)break;evnt(26070,10460,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+24))= 5 ; -if(!qbevent)break;evnt(26070,10461,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("Change #To",10)); -if(!qbevent)break;evnt(26070,10462,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(__STRING_IDECHANGETO); -if(!qbevent)break;evnt(26070,10463,"ide_methods.bas");}while(r); -S_47610:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_IDECHANGETO->len> 0 )))||new_error){ -if(qbevent){evnt(26070,10464,"ide_methods.bas");if(r)goto S_47610;} -do{ -*(int8*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+76))= -1 ; -if(!qbevent)break;evnt(26070,10465,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+77))= 0 ; -if(!qbevent)break;evnt(26070,10466,"ide_methods.bas");}while(r); -} -do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+81))=__STRING_IDECHANGETO->len; -if(!qbevent)break;evnt(26070,10468,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHANGE_LONG_I=*_FUNC_IDECHANGE_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,10470,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+36))= 4 ; -if(!qbevent)break;evnt(26070,10471,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+24))= 8 ; -if(!qbevent)break;evnt(26070,10472,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Match Upper/Lowercase",22)); -if(!qbevent)break;evnt(26070,10473,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64))=*__INTEGER_IDEFINDCASESENS; -if(!qbevent)break;evnt(26070,10474,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHANGE_LONG_I=*_FUNC_IDECHANGE_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,10475,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+36))= 4 ; -if(!qbevent)break;evnt(26070,10476,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+24))= 9 ; -if(!qbevent)break;evnt(26070,10477,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Whole Word",11)); -if(!qbevent)break;evnt(26070,10478,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64))=*__INTEGER_IDEFINDWHOLEWORD; -if(!qbevent)break;evnt(26070,10479,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHANGE_LONG_I=*_FUNC_IDECHANGE_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,10480,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+36))= 4 ; -if(!qbevent)break;evnt(26070,10481,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+24))= 10 ; -if(!qbevent)break;evnt(26070,10482,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Search Backwards",17)); -if(!qbevent)break;evnt(26070,10483,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64))=*__INTEGER_IDEFINDBACKWARDS; -if(!qbevent)break;evnt(26070,10484,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHANGE_LONG_I=*_FUNC_IDECHANGE_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,10486,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+36))= 4 ; -if(!qbevent)break;evnt(26070,10487,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+24))= 11 ; -if(!qbevent)break;evnt(26070,10488,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Ignore 'comments",17)); -if(!qbevent)break;evnt(26070,10489,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64))=*__INTEGER_IDEFINDNOCOMMENTS; -if(!qbevent)break;evnt(26070,10490,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHANGE_LONG_I=*_FUNC_IDECHANGE_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,10492,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+36))= 4 ; -if(!qbevent)break;evnt(26070,10493,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+20))= 29 ; -if(!qbevent)break;evnt(26070,10494,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+24))= 11 ; -if(!qbevent)break;evnt(26070,10495,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Look only in 'comments",23)); -if(!qbevent)break;evnt(26070,10496,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64))=*__INTEGER_IDEFINDONLYCOMMENTS; -if(!qbevent)break;evnt(26070,10497,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHANGE_LONG_I=*_FUNC_IDECHANGE_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,10499,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+36))= 4 ; -if(!qbevent)break;evnt(26070,10500,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+24))= 12 ; -if(!qbevent)break;evnt(26070,10501,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Ignore ",7),func_chr( 34 )),qbs_new_txt_len("#strings",8)),func_chr( 34 ))); -if(!qbevent)break;evnt(26070,10502,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64))=*__INTEGER_IDEFINDNOSTRINGS; -if(!qbevent)break;evnt(26070,10503,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHANGE_LONG_I=*_FUNC_IDECHANGE_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,10505,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+36))= 4 ; -if(!qbevent)break;evnt(26070,10506,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+20))= 29 ; -if(!qbevent)break;evnt(26070,10507,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+24))= 12 ; -if(!qbevent)break;evnt(26070,10508,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Look only in ",13),func_chr( 34 )),qbs_new_txt_len("st#rings",8)),func_chr( 34 ))); -if(!qbevent)break;evnt(26070,10509,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64))=*__INTEGER_IDEFINDONLYSTRINGS; -if(!qbevent)break;evnt(26070,10510,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHANGE_LONG_I=*_FUNC_IDECHANGE_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,10512,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHANGE_LONG_BUTTONSID=*_FUNC_IDECHANGE_LONG_I; -if(!qbevent)break;evnt(26070,10513,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+36))= 3 ; -if(!qbevent)break;evnt(26070,10514,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+24))= 14 ; -if(!qbevent)break;evnt(26070,10515,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Find and #Verify",16),_FUNC_IDECHANGE_STRING1_SEP),qbs_new_txt_len("#Change All",11)),_FUNC_IDECHANGE_STRING1_SEP),qbs_new_txt_len("Cancel",6))); -if(!qbevent)break;evnt(26070,10516,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+48))= 1 ; -if(!qbevent)break;evnt(26070,10517,"ide_methods.bas");}while(r); -S_47658:; -fornext_value5254= 1 ; -fornext_finalvalue5254= 100 ; -fornext_step5254= 1 ; -if (fornext_step5254<0) fornext_step_negative5254=1; else fornext_step_negative5254=0; -if (new_error) goto fornext_error5254; -goto fornext_entrylabel5254; -while(1){ -fornext_value5254=fornext_step5254+(*_FUNC_IDECHANGE_LONG_I); -fornext_entrylabel5254: -*_FUNC_IDECHANGE_LONG_I=fornext_value5254; -if (fornext_step_negative5254){ -if (fornext_value5254fornext_finalvalue5254) break; -} -fornext_error5254:; -if(qbevent){evnt(26070,10521,"ide_methods.bas");if(r)goto S_47658;} -do{ -memcpy(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89)+ 0,((char*)_FUNC_IDECHANGE_UDT_P)+(0)+ 0, 20); -if(!qbevent)break;evnt(26070,10521,"ide_methods.bas");}while(r); -fornext_continue_5253:; -} -fornext_exit_5253:; -S_47661:; -do{ -if(qbevent){evnt(26070,10524,"ide_methods.bas");if(r)goto S_47661;} -do{ -return_point[next_return_point++]=157; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_DISPLAYDIALOG; -RETURN_157:; -if(!qbevent)break;evnt(26070,10527,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHANGE_LONG_LASTFOCUS=*_FUNC_IDECHANGE_LONG_F- 1 ; -if(!qbevent)break;evnt(26070,10528,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 1 , 0 ); -if(!qbevent)break;evnt(26070,10535,"ide_methods.bas");}while(r); -S_47665:; -if ((*_FUNC_IDECHANGE_LONG_CX)||new_error){ -if(qbevent){evnt(26070,10536,"ide_methods.bas");if(r)goto S_47665;} -do{ -qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,10536,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*_FUNC_IDECHANGE_LONG_CY,*_FUNC_IDECHANGE_LONG_CX, 1 ,NULL,NULL,7); -if(!qbevent)break;evnt(26070,10536,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,10536,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDECHANGE_LONG_CHANGE= 0 ; -if(!qbevent)break;evnt(26070,10539,"ide_methods.bas");}while(r); -S_47671:; -do{ -if(qbevent){evnt(26070,10540,"ide_methods.bas");if(r)goto S_47671;} -do{ -SUB_GETINPUT(); -if(!qbevent)break;evnt(26070,10541,"ide_methods.bas");}while(r); -S_47673:; -if ((*__LONG_MWHEEL)||new_error){ -if(qbevent){evnt(26070,10542,"ide_methods.bas");if(r)goto S_47673;} -do{ -*_FUNC_IDECHANGE_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,10542,"ide_methods.bas");}while(r); -} -S_47676:; -if ((*__LONG_KB)||new_error){ -if(qbevent){evnt(26070,10543,"ide_methods.bas");if(r)goto S_47676;} -do{ -*_FUNC_IDECHANGE_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,10543,"ide_methods.bas");}while(r); -} -S_47679:; -if ((*__LONG_MCLICK)||new_error){ -if(qbevent){evnt(26070,10544,"ide_methods.bas");if(r)goto S_47679;} -do{ -*_FUNC_IDECHANGE_LONG_MOUSEDOWN= 1 ; -if(!qbevent)break;evnt(26070,10544,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHANGE_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,10544,"ide_methods.bas");}while(r); -} -S_47683:; -if ((*__LONG_MRELEASE)||new_error){ -if(qbevent){evnt(26070,10545,"ide_methods.bas");if(r)goto S_47683;} -do{ -*_FUNC_IDECHANGE_LONG_MOUSEUP= 1 ; -if(!qbevent)break;evnt(26070,10545,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHANGE_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,10545,"ide_methods.bas");}while(r); -} -S_47687:; -if ((*__LONG_MB)||new_error){ -if(qbevent){evnt(26070,10546,"ide_methods.bas");if(r)goto S_47687;} -do{ -*_FUNC_IDECHANGE_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,10546,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDECHANGE_LONG_ALT=*__LONG_KALT; -if(!qbevent)break;evnt(26070,10547,"ide_methods.bas");}while(r); -S_47691:; -if ((-(*_FUNC_IDECHANGE_LONG_ALT!=*_FUNC_IDECHANGE_LONG_OLDALT))||new_error){ -if(qbevent){evnt(26070,10547,"ide_methods.bas");if(r)goto S_47691;} -do{ -*_FUNC_IDECHANGE_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,10547,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDECHANGE_LONG_OLDALT=*_FUNC_IDECHANGE_LONG_ALT; -if(!qbevent)break;evnt(26070,10548,"ide_methods.bas");}while(r); -do{ -sub__limit( 100 ); -if(!qbevent)break;evnt(26070,10549,"ide_methods.bas");}while(r); -S_47696:; -dl_continue_5256:; -}while((!(*_FUNC_IDECHANGE_LONG_CHANGE))&&(!new_error)); -dl_exit_5256:; -if(qbevent){evnt(26070,10550,"ide_methods.bas");if(r)goto S_47696;} -S_47697:; -if ((*_FUNC_IDECHANGE_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(26070,10551,"ide_methods.bas");if(r)goto S_47697;} -do{ -*__LONG_IDEHL= 1 ; -if(!qbevent)break;evnt(26070,10551,"ide_methods.bas");}while(r); -}else{ -do{ -*__LONG_IDEHL= 0 ; -if(!qbevent)break;evnt(26070,10551,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDECHANGE_STRING_ALTLETTER,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10553,"ide_methods.bas");}while(r); -S_47703:; -if ((*_FUNC_IDECHANGE_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(26070,10554,"ide_methods.bas");if(r)goto S_47703;} -S_47704:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ -if(qbevent){evnt(26070,10555,"ide_methods.bas");if(r)goto S_47704;} -do{ -*_FUNC_IDECHANGE_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10556,"ide_methods.bas");}while(r); -S_47706:; -if (((-(*_FUNC_IDECHANGE_LONG_K>= 65 ))&(-(*_FUNC_IDECHANGE_LONG_K<= 90 )))||new_error){ -if(qbevent){evnt(26070,10557,"ide_methods.bas");if(r)goto S_47706;} -do{ -qbs_set(_FUNC_IDECHANGE_STRING_ALTLETTER,func_chr(*_FUNC_IDECHANGE_LONG_K)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10557,"ide_methods.bas");}while(r); -} -} -} -do{ -qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,10560,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); -if(!qbevent)break;evnt(26070,10560,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,10560,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHANGE_LONG_INFO= 0 ; -if(!qbevent)break;evnt(26070,10564,"ide_methods.bas");}while(r); -S_47715:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,10565,"ide_methods.bas");if(r)goto S_47715;} -do{ -qbs_set(__STRING_K,func_chr( 255 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10565,"ide_methods.bas");}while(r); -} -S_47718:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ -if(qbevent){evnt(26070,10566,"ide_methods.bas");if(r)goto S_47718;} -do{ -*_FUNC_IDECHANGE_LONG_FOCUS=*_FUNC_IDECHANGE_LONG_FOCUS+ 1 ; -if(!qbevent)break;evnt(26070,10566,"ide_methods.bas");}while(r); -} -S_47721:; -if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||new_error){ -if(qbevent){evnt(26070,10567,"ide_methods.bas");if(r)goto S_47721;} -do{ -*_FUNC_IDECHANGE_LONG_FOCUS=*_FUNC_IDECHANGE_LONG_FOCUS- 1 ; -if(!qbevent)break;evnt(26070,10567,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_K,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10567,"ide_methods.bas");}while(r); -} -S_47725:; -if ((-(*_FUNC_IDECHANGE_LONG_FOCUS< 1 ))||new_error){ -if(qbevent){evnt(26070,10568,"ide_methods.bas");if(r)goto S_47725;} -do{ -*_FUNC_IDECHANGE_LONG_FOCUS=*_FUNC_IDECHANGE_LONG_LASTFOCUS; -if(!qbevent)break;evnt(26070,10568,"ide_methods.bas");}while(r); -} -S_47728:; -if ((-(*_FUNC_IDECHANGE_LONG_FOCUS>*_FUNC_IDECHANGE_LONG_LASTFOCUS))||new_error){ -if(qbevent){evnt(26070,10569,"ide_methods.bas");if(r)goto S_47728;} -do{ -*_FUNC_IDECHANGE_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(26070,10569,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDECHANGE_LONG_F= 1 ; -if(!qbevent)break;evnt(26070,10570,"ide_methods.bas");}while(r); -S_47732:; -fornext_value5259= 1 ; -fornext_finalvalue5259= 100 ; -fornext_step5259= 1 ; -if (fornext_step5259<0) fornext_step_negative5259=1; else fornext_step_negative5259=0; -if (new_error) goto fornext_error5259; -goto fornext_entrylabel5259; -while(1){ -fornext_value5259=fornext_step5259+(*_FUNC_IDECHANGE_LONG_I); -fornext_entrylabel5259: -*_FUNC_IDECHANGE_LONG_I=fornext_value5259; -if (fornext_step_negative5259){ -if (fornext_value5259fornext_finalvalue5259) break; -} -fornext_error5259:; -if(qbevent){evnt(26070,10571,"ide_methods.bas");if(r)goto S_47732;} -do{ -*_FUNC_IDECHANGE_LONG_T=*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+36)); -if(!qbevent)break;evnt(26070,10572,"ide_methods.bas");}while(r); -S_47734:; -if ((*_FUNC_IDECHANGE_LONG_T)||new_error){ -if(qbevent){evnt(26070,10573,"ide_methods.bas");if(r)goto S_47734;} -do{ -*_FUNC_IDECHANGE_LONG_FOCUSOFFSET=*_FUNC_IDECHANGE_LONG_FOCUS-*_FUNC_IDECHANGE_LONG_F; -if(!qbevent)break;evnt(26070,10574,"ide_methods.bas");}while(r); -do{ -SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDECHANGE_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89) ),_FUNC_IDECHANGE_LONG_FOCUS,_FUNC_IDECHANGE_LONG_F,_FUNC_IDECHANGE_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDECHANGE_STRING_ALTLETTER,__LONG_MB,_FUNC_IDECHANGE_LONG_MOUSEDOWN,_FUNC_IDECHANGE_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDECHANGE_LONG_INFO,__LONG_MWHEEL); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10575,"ide_methods.bas");}while(r); -} -fornext_continue_5258:; -} -fornext_exit_5258:; -S_47739:; -if ((-(*_FUNC_IDECHANGE_LONG_FOCUS!=*_FUNC_IDECHANGE_LONG_PREVFOCUS))||new_error){ -if(qbevent){evnt(26070,10581,"ide_methods.bas");if(r)goto S_47739;} -do{ -*_FUNC_IDECHANGE_LONG_PREVFOCUS=*_FUNC_IDECHANGE_LONG_FOCUS; -if(!qbevent)break;evnt(26070,10583,"ide_methods.bas");}while(r); -S_47741:; -if (((-(*_FUNC_IDECHANGE_LONG_FOCUS== 1 ))|(-(*_FUNC_IDECHANGE_LONG_FOCUS== 2 )))||new_error){ -if(qbevent){evnt(26070,10584,"ide_methods.bas");if(r)goto S_47741;} -do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_FOCUS)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_FOCUS)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; -if(!qbevent)break;evnt(26070,10585,"ide_methods.bas");}while(r); -S_47743:; -if ((-(*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_FOCUS)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+81))> 0 ))||new_error){ -if(qbevent){evnt(26070,10586,"ide_methods.bas");if(r)goto S_47743;} -do{ -*(int8*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_FOCUS)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+76))= -1 ; -if(!qbevent)break;evnt(26070,10586,"ide_methods.bas");}while(r); -} -do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_FOCUS)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+77))= 0 ; -if(!qbevent)break;evnt(26070,10587,"ide_methods.bas");}while(r); -} -} -S_47749:; -if (((-(*_FUNC_IDECHANGE_LONG_FOCUS== 6 ))&(-(*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 6 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64))== 1 )))||new_error){ -if(qbevent){evnt(26070,10592,"ide_methods.bas");if(r)goto S_47749;} -do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 7 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64))= 0 ; -if(!qbevent)break;evnt(26070,10593,"ide_methods.bas");}while(r); -S_47751:; -}else{ -if ((-(*_FUNC_IDECHANGE_LONG_FOCUS== 7 ))&(-(*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 7 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64))== 1 ))){ -if(qbevent){evnt(26070,10594,"ide_methods.bas");if(r)goto S_47751;} -do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 6 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64))= 0 ; -if(!qbevent)break;evnt(26070,10595,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 8 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64))= 0 ; -if(!qbevent)break;evnt(26070,10596,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64))= 0 ; -if(!qbevent)break;evnt(26070,10597,"ide_methods.bas");}while(r); -S_47755:; -}else{ -if ((-(*_FUNC_IDECHANGE_LONG_FOCUS== 8 ))&(-(*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 8 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64))== 1 ))){ -if(qbevent){evnt(26070,10598,"ide_methods.bas");if(r)goto S_47755;} -do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64))= 0 ; -if(!qbevent)break;evnt(26070,10599,"ide_methods.bas");}while(r); -S_47757:; -}else{ -if ((-(*_FUNC_IDECHANGE_LONG_FOCUS== 9 ))&(-(*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64))== 1 ))){ -if(qbevent){evnt(26070,10600,"ide_methods.bas");if(r)goto S_47757;} -do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 6 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64))= 0 ; -if(!qbevent)break;evnt(26070,10601,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 7 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64))= 0 ; -if(!qbevent)break;evnt(26070,10602,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 8 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64))= 0 ; -if(!qbevent)break;evnt(26070,10603,"ide_methods.bas");}while(r); -} -} -} -} -S_47762:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 27 )))|(((-(*_FUNC_IDECHANGE_LONG_FOCUS== 12 ))&(-(*_FUNC_IDECHANGE_LONG_INFO!= 0 ))))))||new_error){ -if(qbevent){evnt(26070,10606,"ide_methods.bas");if(r)goto S_47762;} -do{ -qbs_set(_FUNC_IDECHANGE_STRING_IDECHANGE,qbs_new_txt_len("C",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10607,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,10608,"ide_methods.bas");}while(r); -} -S_47766:; -if ((qbs_cleanup(qbs_tmp_base,-(func_ubound(_FUNC_IDECHANGE_ARRAY_STRING_SEARCHHISTORY,1,1)> 0 )))||new_error){ -if(qbevent){evnt(26070,10611,"ide_methods.bas");if(r)goto S_47766;} -S_47767:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,(qbs_add(func_chr( 0 ),func_chr( 72 )))))&(-(*_FUNC_IDECHANGE_LONG_FOCUS== 1 ))))||new_error){ -if(qbevent){evnt(26070,10612,"ide_methods.bas");if(r)goto S_47767;} -S_47768:; -if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDECHANGE_LONG_LNlen; -if(!qbevent)break;evnt(26070,10617,"ide_methods.bas");}while(r); -} -S_47776:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,(qbs_add(func_chr( 0 ),func_chr( 80 )))))&(-(*_FUNC_IDECHANGE_LONG_FOCUS== 1 ))))||new_error){ -if(qbevent){evnt(26070,10620,"ide_methods.bas");if(r)goto S_47776;} -S_47777:; -if ((-(*_FUNC_IDECHANGE_LONG_LN> 1 ))||new_error){ -if(qbevent){evnt(26070,10621,"ide_methods.bas");if(r)goto S_47777;} -do{ -*_FUNC_IDECHANGE_LONG_LN=*_FUNC_IDECHANGE_LONG_LN- 1 ; -if(!qbevent)break;evnt(26070,10622,"ide_methods.bas");}while(r); -}else{ -do{ -*_FUNC_IDECHANGE_LONG_LN= 1 ; -if(!qbevent)break;evnt(26070,10624,"ide_methods.bas");}while(r); -} -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),((qbs*)(((uint64*)(_FUNC_IDECHANGE_ARRAY_STRING_SEARCHHISTORY[0]))[array_check((*_FUNC_IDECHANGE_LONG_LN)-_FUNC_IDECHANGE_ARRAY_STRING_SEARCHHISTORY[4],_FUNC_IDECHANGE_ARRAY_STRING_SEARCHHISTORY[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10626,"ide_methods.bas");}while(r); -do{ -*(int8*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+76))= -1 ; -if(!qbevent)break;evnt(26070,10627,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+77))= 0 ; -if(!qbevent)break;evnt(26070,10627,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; -if(!qbevent)break;evnt(26070,10627,"ide_methods.bas");}while(r); -} -} -S_47788:; -if (((-(*_FUNC_IDECHANGE_LONG_FOCUS== 11 ))&(-(*_FUNC_IDECHANGE_LONG_INFO!= 0 )))||new_error){ -if(qbevent){evnt(26070,10631,"ide_methods.bas");if(r)goto S_47788;} -do{ -*__INTEGER_IDEFINDCASESENS=*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64)); -if(!qbevent)break;evnt(26070,10632,"ide_methods.bas");}while(r); -do{ -*__INTEGER_IDEFINDWHOLEWORD=*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 4 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64)); -if(!qbevent)break;evnt(26070,10633,"ide_methods.bas");}while(r); -do{ -*__INTEGER_IDEFINDBACKWARDS=*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 5 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64)); -if(!qbevent)break;evnt(26070,10634,"ide_methods.bas");}while(r); -do{ -*__INTEGER_IDEFINDNOCOMMENTS=*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 6 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64)); -if(!qbevent)break;evnt(26070,10635,"ide_methods.bas");}while(r); -do{ -*__INTEGER_IDEFINDONLYCOMMENTS=*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 7 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64)); -if(!qbevent)break;evnt(26070,10636,"ide_methods.bas");}while(r); -do{ -*__INTEGER_IDEFINDNOSTRINGS=*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 8 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64)); -if(!qbevent)break;evnt(26070,10637,"ide_methods.bas");}while(r); -do{ -*__INTEGER_IDEFINDONLYSTRINGS=*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64)); -if(!qbevent)break;evnt(26070,10638,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHANGE_STRING_S,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10640,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_IDEFINDTEXT,_FUNC_IDECHANGE_STRING_S); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10641,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_IDECHANGETO,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10642,"ide_methods.bas");}while(r); -do{ -SUB_IDEADDSEARCHED(__STRING_IDEFINDTEXT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10643,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHANGE_LONG_CHANGED= 0 ; -if(!qbevent)break;evnt(26070,10645,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHANGE_STRING_S,__STRING_IDEFINDTEXT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10647,"ide_methods.bas");}while(r); -S_47802:; -if ((-(*__INTEGER_IDEFINDCASESENS== 0 ))||new_error){ -if(qbevent){evnt(26070,10648,"ide_methods.bas");if(r)goto S_47802;} -do{ -qbs_set(_FUNC_IDECHANGE_STRING_S,qbs_ucase(_FUNC_IDECHANGE_STRING_S)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10648,"ide_methods.bas");}while(r); -} -S_47805:; -fornext_value5264= 1 ; -fornext_finalvalue5264=*__LONG_IDEN; -fornext_step5264= 1 ; -if (fornext_step5264<0) fornext_step_negative5264=1; else fornext_step_negative5264=0; -if (new_error) goto fornext_error5264; -goto fornext_entrylabel5264; -while(1){ -fornext_value5264=fornext_step5264+(*_FUNC_IDECHANGE_LONG_Y); -fornext_entrylabel5264: -*_FUNC_IDECHANGE_LONG_Y=fornext_value5264; -if (fornext_step_negative5264){ -if (fornext_value5264fornext_finalvalue5264) break; -} -fornext_error5264:; -if(qbevent){evnt(26070,10650,"ide_methods.bas");if(r)goto S_47805;} -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,10651,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHANGE_LONG_MAXPROGRESSWIDTH=*(int32*)(((char*)_FUNC_IDECHANGE_UDT_P)+(8))- 4 ; -if(!qbevent)break;evnt(26070,10652,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHANGE_LONG_PERCENTAGE=qbr(floor(*_FUNC_IDECHANGE_LONG_Y/ ((long double)(*__LONG_IDEN))* 100 )); -if(!qbevent)break;evnt(26070,10653,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHANGE_LONG_PERCENTAGECHARS=qbr(floor(*_FUNC_IDECHANGE_LONG_MAXPROGRESSWIDTH**_FUNC_IDECHANGE_LONG_Y/ ((long double)(*__LONG_IDEN)))); -if(!qbevent)break;evnt(26070,10654,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHANGE_STRING_PERCENTAGEMSG,qbs_add(func_string(*_FUNC_IDECHANGE_LONG_PERCENTAGECHARS, 219 ),func_string(*_FUNC_IDECHANGE_LONG_MAXPROGRESSWIDTH-*_FUNC_IDECHANGE_LONG_PERCENTAGECHARS, 176 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10655,"ide_methods.bas");}while(r); -do{ -sub__printstring(*(int32*)(((char*)_FUNC_IDECHANGE_UDT_P)+(0))+ 2 ,*(int32*)(((char*)_FUNC_IDECHANGE_UDT_P)+(4))+ 7 ,_FUNC_IDECHANGE_STRING_PERCENTAGEMSG,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10656,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 1 , 0 ); -if(!qbevent)break;evnt(26070,10657,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHANGE_STRING_L,FUNC_IDEGETLINE(_FUNC_IDECHANGE_LONG_Y)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10659,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHANGE_STRING_L2,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10660,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHANGE_LONG_X1= 1 ; -if(!qbevent)break;evnt(26070,10662,"ide_methods.bas");}while(r); -LABEL_IDECHANGEALL:; -if(qbevent){evnt(26070,10663,"ide_methods.bas");r=0;} -S_47816:; -if ((-(*__INTEGER_IDEFINDCASESENS== 0 ))||new_error){ -if(qbevent){evnt(26070,10664,"ide_methods.bas");if(r)goto S_47816;} -do{ -qbs_set(_FUNC_IDECHANGE_STRING_L3,qbs_ucase(_FUNC_IDECHANGE_STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10664,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDECHANGE_STRING_L3,_FUNC_IDECHANGE_STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10664,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDECHANGE_LONG_X=func_instr(*_FUNC_IDECHANGE_LONG_X1,_FUNC_IDECHANGE_STRING_L3,_FUNC_IDECHANGE_STRING_S,0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10665,"ide_methods.bas");}while(r); -S_47822:; -if ((*_FUNC_IDECHANGE_LONG_X)||new_error){ -if(qbevent){evnt(26070,10667,"ide_methods.bas");if(r)goto S_47822;} -S_47823:; -if ((*__INTEGER_IDEFINDWHOLEWORD)||new_error){ -if(qbevent){evnt(26070,10668,"ide_methods.bas");if(r)goto S_47823;} -do{ -*_FUNC_IDECHANGE_LONG_WHOLE= 1 ; -if(!qbevent)break;evnt(26070,10669,"ide_methods.bas");}while(r); -S_47825:; -if ((-(*_FUNC_IDECHANGE_LONG_X> 1 ))||new_error){ -if(qbevent){evnt(26070,10670,"ide_methods.bas");if(r)goto S_47825;} -do{ -*_FUNC_IDECHANGE_LONG_C=qbs_asc(qbs_ucase(func_mid(_FUNC_IDECHANGE_STRING_L,*_FUNC_IDECHANGE_LONG_X- 1 , 1 ,0|1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10671,"ide_methods.bas");}while(r); -S_47827:; -if (((-(*_FUNC_IDECHANGE_LONG_C>= 65 ))&(-(*_FUNC_IDECHANGE_LONG_C<= 90 )))||new_error){ -if(qbevent){evnt(26070,10672,"ide_methods.bas");if(r)goto S_47827;} -do{ -*_FUNC_IDECHANGE_LONG_WHOLE= 0 ; -if(!qbevent)break;evnt(26070,10672,"ide_methods.bas");}while(r); -} -S_47830:; -if (((-(*_FUNC_IDECHANGE_LONG_C>= 48 ))&(-(*_FUNC_IDECHANGE_LONG_C<= 57 )))||new_error){ -if(qbevent){evnt(26070,10673,"ide_methods.bas");if(r)goto S_47830;} -do{ -*_FUNC_IDECHANGE_LONG_WHOLE= 0 ; -if(!qbevent)break;evnt(26070,10673,"ide_methods.bas");}while(r); -} -} -S_47834:; -if ((qbs_cleanup(qbs_tmp_base,-((*_FUNC_IDECHANGE_LONG_X+_FUNC_IDECHANGE_STRING_S->len)<=(_FUNC_IDECHANGE_STRING_L->len))))||new_error){ -if(qbevent){evnt(26070,10675,"ide_methods.bas");if(r)goto S_47834;} -do{ -*_FUNC_IDECHANGE_LONG_C=qbs_asc(qbs_ucase(func_mid(_FUNC_IDECHANGE_STRING_L,*_FUNC_IDECHANGE_LONG_X+_FUNC_IDECHANGE_STRING_S->len, 1 ,0|1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10676,"ide_methods.bas");}while(r); -S_47836:; -if (((-(*_FUNC_IDECHANGE_LONG_C>= 65 ))&(-(*_FUNC_IDECHANGE_LONG_C<= 90 )))||new_error){ -if(qbevent){evnt(26070,10677,"ide_methods.bas");if(r)goto S_47836;} -do{ -*_FUNC_IDECHANGE_LONG_WHOLE= 0 ; -if(!qbevent)break;evnt(26070,10677,"ide_methods.bas");}while(r); -} -S_47839:; -if (((-(*_FUNC_IDECHANGE_LONG_C>= 48 ))&(-(*_FUNC_IDECHANGE_LONG_C<= 57 )))||new_error){ -if(qbevent){evnt(26070,10678,"ide_methods.bas");if(r)goto S_47839;} -do{ -*_FUNC_IDECHANGE_LONG_WHOLE= 0 ; -if(!qbevent)break;evnt(26070,10678,"ide_methods.bas");}while(r); -} -} -S_47843:; -if ((-(*_FUNC_IDECHANGE_LONG_WHOLE== 0 ))||new_error){ -if(qbevent){evnt(26070,10680,"ide_methods.bas");if(r)goto S_47843;} -S_47844:; -if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDECHANGE_LONG_X1<=_FUNC_IDECHANGE_STRING_L->len)))||new_error){ -if(qbevent){evnt(26070,10681,"ide_methods.bas");if(r)goto S_47844;} -do{ -qbs_set(_FUNC_IDECHANGE_STRING_L2,qbs_add(_FUNC_IDECHANGE_STRING_L2,func_mid(_FUNC_IDECHANGE_STRING_L,*_FUNC_IDECHANGE_LONG_X1,*_FUNC_IDECHANGE_LONG_X-*_FUNC_IDECHANGE_LONG_X1+ 1 ,0|1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10682,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHANGE_LONG_X1=*_FUNC_IDECHANGE_LONG_X+ 1 ; -if(!qbevent)break;evnt(26070,10683,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDECHANGEALL; -if(!qbevent)break;evnt(26070,10684,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDECHANGE_LONG_X= 0 ; -if(!qbevent)break;evnt(26070,10686,"ide_methods.bas");}while(r); -} -} -} -do{ -if(!qbevent)break;evnt(26070,10691,"ide_methods.bas");}while(r); -S_47854:; -if ((*_FUNC_IDECHANGE_LONG_X)||new_error){ -if(qbevent){evnt(26070,10692,"ide_methods.bas");if(r)goto S_47854;} -do{ -SUB_FINDQUOTECOMMENT(_FUNC_IDECHANGE_STRING_L,_FUNC_IDECHANGE_LONG_X,_FUNC_IDECHANGE_BYTE_COMMENT,_FUNC_IDECHANGE_BYTE_QUOTE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10693,"ide_methods.bas");}while(r); -S_47856:; -if (((-(*__INTEGER_IDEFINDNOCOMMENTS!= 0 ))&*_FUNC_IDECHANGE_BYTE_COMMENT)||new_error){ -if(qbevent){evnt(26070,10694,"ide_methods.bas");if(r)goto S_47856;} -do{ -*_FUNC_IDECHANGE_LONG_X= 0 ; -if(!qbevent)break;evnt(26070,10694,"ide_methods.bas");}while(r); -} -S_47859:; -if (((-(*__INTEGER_IDEFINDNOSTRINGS!= 0 ))&*_FUNC_IDECHANGE_BYTE_QUOTE)||new_error){ -if(qbevent){evnt(26070,10695,"ide_methods.bas");if(r)goto S_47859;} -do{ -*_FUNC_IDECHANGE_LONG_X= 0 ; -if(!qbevent)break;evnt(26070,10695,"ide_methods.bas");}while(r); -} -S_47862:; -if (((-(*__INTEGER_IDEFINDONLYCOMMENTS!= 0 ))&(-(*_FUNC_IDECHANGE_BYTE_COMMENT== 0 )))||new_error){ -if(qbevent){evnt(26070,10696,"ide_methods.bas");if(r)goto S_47862;} -do{ -*_FUNC_IDECHANGE_LONG_X= 0 ; -if(!qbevent)break;evnt(26070,10696,"ide_methods.bas");}while(r); -} -S_47865:; -if (((-(*__INTEGER_IDEFINDONLYSTRINGS!= 0 ))&(-(*_FUNC_IDECHANGE_BYTE_QUOTE== 0 )))||new_error){ -if(qbevent){evnt(26070,10697,"ide_methods.bas");if(r)goto S_47865;} -do{ -*_FUNC_IDECHANGE_LONG_X= 0 ; -if(!qbevent)break;evnt(26070,10697,"ide_methods.bas");}while(r); -} -} -S_47869:; -if ((*_FUNC_IDECHANGE_LONG_X)||new_error){ -if(qbevent){evnt(26070,10700,"ide_methods.bas");if(r)goto S_47869;} -do{ -qbs_set(_FUNC_IDECHANGE_STRING_L2,qbs_add(qbs_add(_FUNC_IDECHANGE_STRING_L2,func_mid(_FUNC_IDECHANGE_STRING_L,*_FUNC_IDECHANGE_LONG_X1,*_FUNC_IDECHANGE_LONG_X-*_FUNC_IDECHANGE_LONG_X1,0|1)),__STRING_IDECHANGETO)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10701,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHANGE_LONG_CHANGED=*_FUNC_IDECHANGE_LONG_CHANGED+ 1 ; -if(!qbevent)break;evnt(26070,10702,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHANGE_LONG_X1=*_FUNC_IDECHANGE_LONG_X+_FUNC_IDECHANGE_STRING_S->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10703,"ide_methods.bas");}while(r); -S_47873:; -if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDECHANGE_LONG_X1<=_FUNC_IDECHANGE_STRING_L->len)))||new_error){ -if(qbevent){evnt(26070,10704,"ide_methods.bas");if(r)goto S_47873;} -do{ -goto LABEL_IDECHANGEALL; -if(!qbevent)break;evnt(26070,10704,"ide_methods.bas");}while(r); -} -} -do{ -qbs_set(_FUNC_IDECHANGE_STRING_L2,qbs_add(_FUNC_IDECHANGE_STRING_L2,func_mid(_FUNC_IDECHANGE_STRING_L,*_FUNC_IDECHANGE_LONG_X1,_FUNC_IDECHANGE_STRING_L->len-*_FUNC_IDECHANGE_LONG_X1+ 1 ,0|1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10707,"ide_methods.bas");}while(r); -S_47878:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_IDECHANGE_STRING_L2,_FUNC_IDECHANGE_STRING_L)))||new_error){ -if(qbevent){evnt(26070,10709,"ide_methods.bas");if(r)goto S_47878;} -do{ -SUB_IDESETLINE(_FUNC_IDECHANGE_LONG_Y,_FUNC_IDECHANGE_STRING_L2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10709,"ide_methods.bas");}while(r); -} -fornext_continue_5263:; -} -fornext_exit_5263:; -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,10713,"ide_methods.bas");}while(r); -do{ -SUB_CLEARSTATUSWINDOW(&(pass5272= 0 )); -if(!qbevent)break;evnt(26070,10714,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEFOCUSLINE= 0 ; -if(!qbevent)break;evnt(26070,10715,"ide_methods.bas");}while(r); -do{ -SUB_IDESHOWTEXT(); -if(!qbevent)break;evnt(26070,10716,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,10717,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 0 , 2 ); -if(!qbevent)break;evnt(26070,10718,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 0 , 1 ); -if(!qbevent)break;evnt(26070,10719,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,10720,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=158; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_DISPLAYDIALOG; -RETURN_158:; -if(!qbevent)break;evnt(26070,10721,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 1 , 0 ); -if(!qbevent)break;evnt(26070,10722,"ide_methods.bas");}while(r); -S_47892:; -if ((-(*_FUNC_IDECHANGE_LONG_CHANGED== 0 ))||new_error){ -if(qbevent){evnt(26070,10724,"ide_methods.bas");if(r)goto S_47892;} -do{ -SUB_IDENOMATCH(&(pass5273= 0 )); -if(!qbevent)break;evnt(26070,10725,"ide_methods.bas");}while(r); -}else{ -do{ -SUB_IDECHANGED(_FUNC_IDECHANGE_LONG_CHANGED); -if(!qbevent)break;evnt(26070,10727,"ide_methods.bas");}while(r); -do{ -*__INTEGER_IDECHANGEMADE= 1 ; -if(!qbevent)break;evnt(26070,10727,"ide_methods.bas");}while(r); -do{ -*__BYTE_STARTPAUSEDPENDING= 0 ; -if(!qbevent)break;evnt(26070,10727,"ide_methods.bas");}while(r); -} -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_BUTTONSID)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Find and #Verify",16),_FUNC_IDECHANGE_STRING1_SEP),qbs_new_txt_len("#Change All",11)),_FUNC_IDECHANGE_STRING1_SEP),qbs_new_txt_len("Close",5))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10730,"ide_methods.bas");}while(r); -} -S_47901:; -if ((qbs_cleanup(qbs_tmp_base,(((-(*_FUNC_IDECHANGE_LONG_FOCUS== 10 ))&(-(*_FUNC_IDECHANGE_LONG_INFO!= 0 ))))|(qbs_equal(__STRING_K,func_chr( 13 )))))||new_error){ -if(qbevent){evnt(26070,10734,"ide_methods.bas");if(r)goto S_47901;} -do{ -*__INTEGER_IDEFINDCASESENS=*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64)); -if(!qbevent)break;evnt(26070,10735,"ide_methods.bas");}while(r); -do{ -*__INTEGER_IDEFINDWHOLEWORD=*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 4 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64)); -if(!qbevent)break;evnt(26070,10736,"ide_methods.bas");}while(r); -do{ -*__INTEGER_IDEFINDBACKWARDS=*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 5 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64)); -if(!qbevent)break;evnt(26070,10737,"ide_methods.bas");}while(r); -do{ -*__INTEGER_IDEFINDNOCOMMENTS=*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 6 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64)); -if(!qbevent)break;evnt(26070,10738,"ide_methods.bas");}while(r); -do{ -*__INTEGER_IDEFINDONLYCOMMENTS=*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 7 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64)); -if(!qbevent)break;evnt(26070,10739,"ide_methods.bas");}while(r); -do{ -*__INTEGER_IDEFINDNOSTRINGS=*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 8 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64)); -if(!qbevent)break;evnt(26070,10740,"ide_methods.bas");}while(r); -do{ -*__INTEGER_IDEFINDONLYSTRINGS=*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64)); -if(!qbevent)break;evnt(26070,10741,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_IDEFINDTEXT,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10742,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_IDECHANGETO,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10743,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHANGE_STRING_IDECHANGE,qbs_new_txt_len("V",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10744,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,10745,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDECHANGE_LONG_MOUSEDOWN= 0 ; -if(!qbevent)break;evnt(26070,10753,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHANGE_LONG_MOUSEUP= 0 ; -if(!qbevent)break;evnt(26070,10754,"ide_methods.bas");}while(r); -dl_continue_5255:; -}while(1); -dl_exit_5255:; -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,10756,"ide_methods.bas");}while(r); -LABEL_DISPLAYDIALOG:; -if(qbevent){evnt(26070,10757,"ide_methods.bas");r=0;} -do{ -SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDECHANGE_UDT_P)) + (0) )); -if(!qbevent)break;evnt(26070,10758,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHANGE_LONG_F= 1 ; -if(!qbevent)break;evnt(26070,10759,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHANGE_LONG_CX= 0 ; -if(!qbevent)break;evnt(26070,10759,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHANGE_LONG_CY= 0 ; -if(!qbevent)break;evnt(26070,10759,"ide_methods.bas");}while(r); -S_47922:; -fornext_value5275= 1 ; -fornext_finalvalue5275= 100 ; -fornext_step5275= 1 ; -if (fornext_step5275<0) fornext_step_negative5275=1; else fornext_step_negative5275=0; -if (new_error) goto fornext_error5275; -goto fornext_entrylabel5275; -while(1){ -fornext_value5275=fornext_step5275+(*_FUNC_IDECHANGE_LONG_I); -fornext_entrylabel5275: -*_FUNC_IDECHANGE_LONG_I=fornext_value5275; -if (fornext_step_negative5275){ -if (fornext_value5275fornext_finalvalue5275) break; -} -fornext_error5275:; -if(qbevent){evnt(26070,10760,"ide_methods.bas");if(r)goto S_47922;} -S_47923:; -if ((*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+36)))||new_error){ -if(qbevent){evnt(26070,10762,"ide_methods.bas");if(r)goto S_47923;} -do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+60))=*_FUNC_IDECHANGE_LONG_FOCUS-*_FUNC_IDECHANGE_LONG_F; -if(!qbevent)break;evnt(26070,10765,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+52))= 0 ; -if(!qbevent)break;evnt(26070,10767,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+56))= 0 ; -if(!qbevent)break;evnt(26070,10767,"ide_methods.bas");}while(r); -do{ -SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDECHANGE_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89) ),_FUNC_IDECHANGE_LONG_F); -if(!qbevent)break;evnt(26070,10769,"ide_methods.bas");}while(r); -S_47928:; -if ((*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+52)))||new_error){ -if(qbevent){evnt(26070,10771,"ide_methods.bas");if(r)goto S_47928;} -do{ -*_FUNC_IDECHANGE_LONG_CX=*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+52)); -if(!qbevent)break;evnt(26070,10771,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHANGE_LONG_CY=*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+56)); -if(!qbevent)break;evnt(26070,10771,"ide_methods.bas");}while(r); -} -} -fornext_continue_5274:; -} -fornext_exit_5274:; -do{ -#include "ret184.txt" -if(!qbevent)break;evnt(26070,10775,"ide_methods.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free184.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_IDECHANGE_STRING_IDECHANGE);return _FUNC_IDECHANGE_STRING_IDECHANGE; -} -void SUB_FINDQUOTECOMMENT(qbs*_SUB_FINDQUOTECOMMENT_STRING_TEXT,int32*_SUB_FINDQUOTECOMMENT_LONG___CURSOR,int8*_SUB_FINDQUOTECOMMENT_BYTE_C,int8*_SUB_FINDQUOTECOMMENT_BYTE_Q){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data185.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -*_SUB_FINDQUOTECOMMENT_BYTE_C= 0 ; -if(!qbevent)break;evnt(26070,10779,"ide_methods.bas");}while(r); -do{ -*_SUB_FINDQUOTECOMMENT_BYTE_Q= 0 ; -if(!qbevent)break;evnt(26070,10779,"ide_methods.bas");}while(r); -do{ -*_SUB_FINDQUOTECOMMENT_LONG_CURSOR=*_SUB_FINDQUOTECOMMENT_LONG___CURSOR; -if(!qbevent)break;evnt(26070,10780,"ide_methods.bas");}while(r); -S_47938:; -if ((qbs_cleanup(qbs_tmp_base,-(*_SUB_FINDQUOTECOMMENT_LONG_CURSOR>_SUB_FINDQUOTECOMMENT_STRING_TEXT->len)))||new_error){ -if(qbevent){evnt(26070,10781,"ide_methods.bas");if(r)goto S_47938;} -do{ -*_SUB_FINDQUOTECOMMENT_LONG_CURSOR=_SUB_FINDQUOTECOMMENT_STRING_TEXT->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10781,"ide_methods.bas");}while(r); -} -S_47941:; -fornext_value5280= 1 ; -fornext_finalvalue5280=*_SUB_FINDQUOTECOMMENT_LONG_CURSOR; -fornext_step5280= 1 ; -if (fornext_step5280<0) fornext_step_negative5280=1; else fornext_step_negative5280=0; -if (new_error) goto fornext_error5280; -goto fornext_entrylabel5280; -while(1){ -fornext_value5280=fornext_step5280+(*_SUB_FINDQUOTECOMMENT_LONG_FIND_K); -fornext_entrylabel5280: -*_SUB_FINDQUOTECOMMENT_LONG_FIND_K=fornext_value5280; -if (fornext_step_negative5280){ -if (fornext_value5280fornext_finalvalue5280) break; -} -fornext_error5280:; -if(qbevent){evnt(26070,10782,"ide_methods.bas");if(r)goto S_47941;} -S_47942:; -qbs_set(sc_5281,func_mid(_SUB_FINDQUOTECOMMENT_STRING_TEXT,*_SUB_FINDQUOTECOMMENT_LONG_FIND_K, 1 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(qbevent){evnt(26070,10783,"ide_methods.bas");if(r)goto S_47942;} -S_47943:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_5281,func_chr( 34 ))))||new_error){ -if(qbevent){evnt(26070,10784,"ide_methods.bas");if(r)goto S_47943;} -do{ -*_SUB_FINDQUOTECOMMENT_BYTE_Q=~(*_SUB_FINDQUOTECOMMENT_BYTE_Q); -if(!qbevent)break;evnt(26070,10784,"ide_methods.bas");}while(r); -sc_ec_361_end:; -goto sc_5281_end; -} -S_47945:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_5281,qbs_new_txt_len("'",1))))||new_error){ -if(qbevent){evnt(26070,10785,"ide_methods.bas");if(r)goto S_47945;} -S_47946:; -if ((-(*_SUB_FINDQUOTECOMMENT_BYTE_Q== 0 ))||new_error){ -if(qbevent){evnt(26070,10785,"ide_methods.bas");if(r)goto S_47946;} -do{ -*_SUB_FINDQUOTECOMMENT_BYTE_C= -1 ; -if(!qbevent)break;evnt(26070,10785,"ide_methods.bas");}while(r); -do{ -goto fornext_exit_5279; -if(!qbevent)break;evnt(26070,10785,"ide_methods.bas");}while(r); -} -sc_ec_362_end:; -goto sc_5281_end; -} -S_47950:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_5281,qbs_new_txt_len("R",1))||qbs_equal(sc_5281,qbs_new_txt_len("r",1))))||new_error){ -if(qbevent){evnt(26070,10786,"ide_methods.bas");if(r)goto S_47950;} -S_47951:; -if ((-(*_SUB_FINDQUOTECOMMENT_BYTE_Q== 0 ))||new_error){ -if(qbevent){evnt(26070,10787,"ide_methods.bas");if(r)goto S_47951;} -S_47952:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(func_mid(_SUB_FINDQUOTECOMMENT_STRING_TEXT,*_SUB_FINDQUOTECOMMENT_LONG_FIND_K- 1 , 5 ,0|1)),qbs_new_txt_len(" REM ",5)))|(qbs_equal(qbs_ucase(func_mid(_SUB_FINDQUOTECOMMENT_STRING_TEXT,*_SUB_FINDQUOTECOMMENT_LONG_FIND_K- 1 , 5 ,0|1)),qbs_new_txt_len(":REM ",5)))|(((-((*_SUB_FINDQUOTECOMMENT_LONG_FIND_K+ 2 )==(_SUB_FINDQUOTECOMMENT_STRING_TEXT->len)))&(qbs_equal(qbs_ucase(func_mid(_SUB_FINDQUOTECOMMENT_STRING_TEXT,*_SUB_FINDQUOTECOMMENT_LONG_FIND_K- 1 , 4 ,0|1)),qbs_new_txt_len(" REM",4)))))|(((-((*_SUB_FINDQUOTECOMMENT_LONG_FIND_K+ 2 )==(_SUB_FINDQUOTECOMMENT_STRING_TEXT->len)))&(qbs_equal(qbs_ucase(func_mid(_SUB_FINDQUOTECOMMENT_STRING_TEXT,*_SUB_FINDQUOTECOMMENT_LONG_FIND_K- 1 , 4 ,0|1)),qbs_new_txt_len(":REM",4)))))|(((-(*_SUB_FINDQUOTECOMMENT_LONG_FIND_K== 1 ))&(qbs_equal(qbs_ucase(qbs_left(_SUB_FINDQUOTECOMMENT_STRING_TEXT, 4 )),qbs_new_txt_len("REM ",4)))))|(((-(*_SUB_FINDQUOTECOMMENT_LONG_FIND_K== 1 ))&(qbs_equal(qbs_ucase(_SUB_FINDQUOTECOMMENT_STRING_TEXT),qbs_new_txt_len("REM",3)))))))||new_error){ -if(qbevent){evnt(26070,10793,"ide_methods.bas");if(r)goto S_47952;} -do{ -*_SUB_FINDQUOTECOMMENT_BYTE_C= -1 ; -if(!qbevent)break;evnt(26070,10794,"ide_methods.bas");}while(r); -do{ -goto fornext_exit_5279; -if(!qbevent)break;evnt(26070,10794,"ide_methods.bas");}while(r); -} -} -sc_ec_363_end:; -goto sc_5281_end; -} -sc_5281_end:; -fornext_continue_5279:; -} -fornext_exit_5279:; -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free185.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -void SUB_IDECHANGED(int32*_SUB_IDECHANGED_LONG_TOTALCHANGES){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data186.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -S_47959:; -if ((-(*_SUB_IDECHANGED_LONG_TOTALCHANGES> 1 ))||new_error){ -if(qbevent){evnt(26070,10802,"ide_methods.bas");if(r)goto S_47959;} -do{ -qbs_set(_SUB_IDECHANGED_STRING_PL,qbs_new_txt_len("s",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10802,"ide_methods.bas");}while(r); -} -do{ -*_SUB_IDECHANGED_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Change Complete",15),qbs_add(qbs_add(qbs_add(qbs_ltrim(qbs_str((int32)(*_SUB_IDECHANGED_LONG_TOTALCHANGES))),qbs_new_txt_len(" substitution",13)),_SUB_IDECHANGED_STRING_PL),qbs_new_txt_len(".",1)),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10803,"ide_methods.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free186.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -qbs* FUNC_IDECHANGEIT(){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data187.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,10809,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 0 , 2 ); -if(!qbevent)break;evnt(26070,10810,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 0 , 1 ); -if(!qbevent)break;evnt(26070,10811,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,10812,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHANGEIT_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(26070,10813,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(26070,10814,"ide_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26070,10420,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26070,10421,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHANGE_STRING1_SEP,func_chr( 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10422,"ide_methods.bas");}while(r); +S_47570:; +if ((*__LONG_IDESELECT)||new_error){ +if(qbevent){evnt(26070,10428,"ide_methods.bas");if(r)goto S_47570;} +S_47571:; +if ((-(*__LONG_IDESELECTY1==*__LONG_IDECY))||new_error){ +if(qbevent){evnt(26070,10429,"ide_methods.bas");if(r)goto S_47571;} +do{ +qbs_set(_FUNC_IDECHANGE_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10430,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHANGE_STRING_A2,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10431,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHANGE_LONG_SX1=*__LONG_IDESELECTX1; +if(!qbevent)break;evnt(26070,10432,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHANGE_LONG_SX2=*__LONG_IDECX; +if(!qbevent)break;evnt(26070,10432,"ide_methods.bas");}while(r); +S_47576:; +if ((-(*_FUNC_IDECHANGE_LONG_SX2<*_FUNC_IDECHANGE_LONG_SX1))||new_error){ +if(qbevent){evnt(26070,10433,"ide_methods.bas");if(r)goto S_47576;} +do{ +swap_32(&*_FUNC_IDECHANGE_LONG_SX1,&*_FUNC_IDECHANGE_LONG_SX2); +if(!qbevent)break;evnt(26070,10433,"ide_methods.bas");}while(r); +} +S_47579:; +fornext_value5245=*_FUNC_IDECHANGE_LONG_SX1; +fornext_finalvalue5245=*_FUNC_IDECHANGE_LONG_SX2- 1 ; +fornext_step5245= 1 ; +if (fornext_step5245<0) fornext_step_negative5245=1; else fornext_step_negative5245=0; +if (new_error) goto fornext_error5245; +goto fornext_entrylabel5245; +while(1){ +fornext_value5245=fornext_step5245+(*_FUNC_IDECHANGE_LONG_X); +fornext_entrylabel5245: +*_FUNC_IDECHANGE_LONG_X=fornext_value5245; +if (fornext_step_negative5245){ +if (fornext_value5245fornext_finalvalue5245) break; +} +fornext_error5245:; +if(qbevent){evnt(26070,10434,"ide_methods.bas");if(r)goto S_47579;} +S_47580:; +if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDECHANGE_LONG_X<=_FUNC_IDECHANGE_STRING_A->len)))||new_error){ +if(qbevent){evnt(26070,10435,"ide_methods.bas");if(r)goto S_47580;} +do{ +qbs_set(_FUNC_IDECHANGE_STRING_A2,qbs_add(_FUNC_IDECHANGE_STRING_A2,func_mid(_FUNC_IDECHANGE_STRING_A,*_FUNC_IDECHANGE_LONG_X, 1 ,0|1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10435,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDECHANGE_STRING_A2,qbs_add(_FUNC_IDECHANGE_STRING_A2,qbs_new_txt_len(" ",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10435,"ide_methods.bas");}while(r); +} +fornext_continue_5244:; +} +fornext_exit_5244:; +} +} +S_47588:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDECHANGE_STRING_A2,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,10439,"ide_methods.bas");if(r)goto S_47588;} +do{ +qbs_set(_FUNC_IDECHANGE_STRING_A2,__STRING_IDEFINDTEXT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10440,"ide_methods.bas");}while(r); +} +do{ +SUB_RETRIEVESEARCHHISTORY(_FUNC_IDECHANGE_ARRAY_STRING_SEARCHHISTORY); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10443,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHANGE_LONG_I= 0 ; +if(!qbevent)break;evnt(26070,10445,"ide_methods.bas");}while(r); +do{ +SUB_IDEPAR((void*)( ((char*)(_FUNC_IDECHANGE_UDT_P)) + (0) ),&(pass5247= 60 ),&(pass5248= 14 ),qbs_new_txt_len("Change",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10446,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHANGE_LONG_I=*_FUNC_IDECHANGE_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,10447,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHANGE_LONG_PREVFOCUS= 1 ; +if(!qbevent)break;evnt(26070,10448,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+36))= 1 ; +if(!qbevent)break;evnt(26070,10449,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+24))= 2 ; +if(!qbevent)break;evnt(26070,10450,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Find What",10)); +if(!qbevent)break;evnt(26070,10451,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDECHANGE_STRING_A2); +if(!qbevent)break;evnt(26070,10452,"ide_methods.bas");}while(r); +S_47600:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDECHANGE_STRING_A2->len> 0 )))||new_error){ +if(qbevent){evnt(26070,10453,"ide_methods.bas");if(r)goto S_47600;} +do{ +*(int8*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+76))= -1 ; +if(!qbevent)break;evnt(26070,10454,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+77))= 0 ; +if(!qbevent)break;evnt(26070,10455,"ide_methods.bas");}while(r); +} +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+81))=_FUNC_IDECHANGE_STRING_A2->len; +if(!qbevent)break;evnt(26070,10457,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHANGE_LONG_I=*_FUNC_IDECHANGE_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,10459,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+36))= 1 ; +if(!qbevent)break;evnt(26070,10460,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+24))= 5 ; +if(!qbevent)break;evnt(26070,10461,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("Change #To",10)); +if(!qbevent)break;evnt(26070,10462,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(__STRING_IDECHANGETO); +if(!qbevent)break;evnt(26070,10463,"ide_methods.bas");}while(r); +S_47610:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_IDECHANGETO->len> 0 )))||new_error){ +if(qbevent){evnt(26070,10464,"ide_methods.bas");if(r)goto S_47610;} +do{ +*(int8*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+76))= -1 ; +if(!qbevent)break;evnt(26070,10465,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+77))= 0 ; +if(!qbevent)break;evnt(26070,10466,"ide_methods.bas");}while(r); +} +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+81))=__STRING_IDECHANGETO->len; +if(!qbevent)break;evnt(26070,10468,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHANGE_LONG_I=*_FUNC_IDECHANGE_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,10470,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+36))= 4 ; +if(!qbevent)break;evnt(26070,10471,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+24))= 8 ; +if(!qbevent)break;evnt(26070,10472,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Match Upper/Lowercase",22)); +if(!qbevent)break;evnt(26070,10473,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64))=*__INTEGER_IDEFINDCASESENS; +if(!qbevent)break;evnt(26070,10474,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHANGE_LONG_I=*_FUNC_IDECHANGE_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,10475,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+36))= 4 ; +if(!qbevent)break;evnt(26070,10476,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+24))= 9 ; +if(!qbevent)break;evnt(26070,10477,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Whole Word",11)); +if(!qbevent)break;evnt(26070,10478,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64))=*__INTEGER_IDEFINDWHOLEWORD; +if(!qbevent)break;evnt(26070,10479,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHANGE_LONG_I=*_FUNC_IDECHANGE_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,10480,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+36))= 4 ; +if(!qbevent)break;evnt(26070,10481,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+24))= 10 ; +if(!qbevent)break;evnt(26070,10482,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Search Backwards",17)); +if(!qbevent)break;evnt(26070,10483,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64))=*__INTEGER_IDEFINDBACKWARDS; +if(!qbevent)break;evnt(26070,10484,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHANGE_LONG_I=*_FUNC_IDECHANGE_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,10486,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+36))= 4 ; +if(!qbevent)break;evnt(26070,10487,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+24))= 11 ; +if(!qbevent)break;evnt(26070,10488,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Ignore 'comments",17)); +if(!qbevent)break;evnt(26070,10489,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64))=*__INTEGER_IDEFINDNOCOMMENTS; +if(!qbevent)break;evnt(26070,10490,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHANGE_LONG_I=*_FUNC_IDECHANGE_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,10492,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+36))= 4 ; +if(!qbevent)break;evnt(26070,10493,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+20))= 29 ; +if(!qbevent)break;evnt(26070,10494,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+24))= 11 ; +if(!qbevent)break;evnt(26070,10495,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Look only in 'comments",23)); +if(!qbevent)break;evnt(26070,10496,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64))=*__INTEGER_IDEFINDONLYCOMMENTS; +if(!qbevent)break;evnt(26070,10497,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHANGE_LONG_I=*_FUNC_IDECHANGE_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,10499,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+36))= 4 ; +if(!qbevent)break;evnt(26070,10500,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+24))= 12 ; +if(!qbevent)break;evnt(26070,10501,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Ignore ",7),func_chr( 34 )),qbs_new_txt_len("#strings",8)),func_chr( 34 ))); +if(!qbevent)break;evnt(26070,10502,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64))=*__INTEGER_IDEFINDNOSTRINGS; +if(!qbevent)break;evnt(26070,10503,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHANGE_LONG_I=*_FUNC_IDECHANGE_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,10505,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+36))= 4 ; +if(!qbevent)break;evnt(26070,10506,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+20))= 29 ; +if(!qbevent)break;evnt(26070,10507,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+24))= 12 ; +if(!qbevent)break;evnt(26070,10508,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Look only in ",13),func_chr( 34 )),qbs_new_txt_len("st#rings",8)),func_chr( 34 ))); +if(!qbevent)break;evnt(26070,10509,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64))=*__INTEGER_IDEFINDONLYSTRINGS; +if(!qbevent)break;evnt(26070,10510,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHANGE_LONG_I=*_FUNC_IDECHANGE_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,10512,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHANGE_LONG_BUTTONSID=*_FUNC_IDECHANGE_LONG_I; +if(!qbevent)break;evnt(26070,10513,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+36))= 3 ; +if(!qbevent)break;evnt(26070,10514,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+24))= 14 ; +if(!qbevent)break;evnt(26070,10515,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Find and #Verify",16),_FUNC_IDECHANGE_STRING1_SEP),qbs_new_txt_len("#Change All",11)),_FUNC_IDECHANGE_STRING1_SEP),qbs_new_txt_len("Cancel",6))); +if(!qbevent)break;evnt(26070,10516,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+48))= 1 ; +if(!qbevent)break;evnt(26070,10517,"ide_methods.bas");}while(r); +S_47658:; +fornext_value5254= 1 ; +fornext_finalvalue5254= 100 ; +fornext_step5254= 1 ; +if (fornext_step5254<0) fornext_step_negative5254=1; else fornext_step_negative5254=0; +if (new_error) goto fornext_error5254; +goto fornext_entrylabel5254; +while(1){ +fornext_value5254=fornext_step5254+(*_FUNC_IDECHANGE_LONG_I); +fornext_entrylabel5254: +*_FUNC_IDECHANGE_LONG_I=fornext_value5254; +if (fornext_step_negative5254){ +if (fornext_value5254fornext_finalvalue5254) break; +} +fornext_error5254:; +if(qbevent){evnt(26070,10521,"ide_methods.bas");if(r)goto S_47658;} +do{ +memcpy(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89)+ 0,((char*)_FUNC_IDECHANGE_UDT_P)+(0)+ 0, 20); +if(!qbevent)break;evnt(26070,10521,"ide_methods.bas");}while(r); +fornext_continue_5253:; +} +fornext_exit_5253:; +S_47661:; +do{ +if(qbevent){evnt(26070,10524,"ide_methods.bas");if(r)goto S_47661;} +do{ +return_point[next_return_point++]=157; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_DISPLAYDIALOG; +RETURN_157:; +if(!qbevent)break;evnt(26070,10527,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHANGE_LONG_LASTFOCUS=*_FUNC_IDECHANGE_LONG_F- 1 ; +if(!qbevent)break;evnt(26070,10528,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 1 , 0 ); +if(!qbevent)break;evnt(26070,10535,"ide_methods.bas");}while(r); +S_47665:; +if ((*_FUNC_IDECHANGE_LONG_CX)||new_error){ +if(qbevent){evnt(26070,10536,"ide_methods.bas");if(r)goto S_47665;} +do{ +qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,10536,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(*_FUNC_IDECHANGE_LONG_CY,*_FUNC_IDECHANGE_LONG_CX, 1 ,NULL,NULL,7); +if(!qbevent)break;evnt(26070,10536,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,10536,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDECHANGE_LONG_CHANGE= 0 ; +if(!qbevent)break;evnt(26070,10539,"ide_methods.bas");}while(r); +S_47671:; +do{ +if(qbevent){evnt(26070,10540,"ide_methods.bas");if(r)goto S_47671;} +do{ +SUB_GETINPUT(); +if(!qbevent)break;evnt(26070,10541,"ide_methods.bas");}while(r); +S_47673:; +if ((*__LONG_MWHEEL)||new_error){ +if(qbevent){evnt(26070,10542,"ide_methods.bas");if(r)goto S_47673;} +do{ +*_FUNC_IDECHANGE_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,10542,"ide_methods.bas");}while(r); +} +S_47676:; +if ((*__LONG_KB)||new_error){ +if(qbevent){evnt(26070,10543,"ide_methods.bas");if(r)goto S_47676;} +do{ +*_FUNC_IDECHANGE_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,10543,"ide_methods.bas");}while(r); +} +S_47679:; +if ((*__LONG_MCLICK)||new_error){ +if(qbevent){evnt(26070,10544,"ide_methods.bas");if(r)goto S_47679;} +do{ +*_FUNC_IDECHANGE_LONG_MOUSEDOWN= 1 ; +if(!qbevent)break;evnt(26070,10544,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHANGE_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,10544,"ide_methods.bas");}while(r); +} +S_47683:; +if ((*__LONG_MRELEASE)||new_error){ +if(qbevent){evnt(26070,10545,"ide_methods.bas");if(r)goto S_47683;} +do{ +*_FUNC_IDECHANGE_LONG_MOUSEUP= 1 ; +if(!qbevent)break;evnt(26070,10545,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHANGE_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,10545,"ide_methods.bas");}while(r); +} +S_47687:; +if ((*__LONG_MB)||new_error){ +if(qbevent){evnt(26070,10546,"ide_methods.bas");if(r)goto S_47687;} +do{ +*_FUNC_IDECHANGE_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,10546,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDECHANGE_LONG_ALT=*__LONG_KALT; +if(!qbevent)break;evnt(26070,10547,"ide_methods.bas");}while(r); +S_47691:; +if ((-(*_FUNC_IDECHANGE_LONG_ALT!=*_FUNC_IDECHANGE_LONG_OLDALT))||new_error){ +if(qbevent){evnt(26070,10547,"ide_methods.bas");if(r)goto S_47691;} +do{ +*_FUNC_IDECHANGE_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,10547,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDECHANGE_LONG_OLDALT=*_FUNC_IDECHANGE_LONG_ALT; +if(!qbevent)break;evnt(26070,10548,"ide_methods.bas");}while(r); +do{ +sub__limit( 100 ); +if(!qbevent)break;evnt(26070,10549,"ide_methods.bas");}while(r); +S_47696:; +dl_continue_5256:; +}while((!(*_FUNC_IDECHANGE_LONG_CHANGE))&&(!new_error)); +dl_exit_5256:; +if(qbevent){evnt(26070,10550,"ide_methods.bas");if(r)goto S_47696;} +S_47697:; +if ((*_FUNC_IDECHANGE_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ +if(qbevent){evnt(26070,10551,"ide_methods.bas");if(r)goto S_47697;} +do{ +*__LONG_IDEHL= 1 ; +if(!qbevent)break;evnt(26070,10551,"ide_methods.bas");}while(r); +}else{ +do{ +*__LONG_IDEHL= 0 ; +if(!qbevent)break;evnt(26070,10551,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDECHANGE_STRING_ALTLETTER,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10553,"ide_methods.bas");}while(r); +S_47703:; +if ((*_FUNC_IDECHANGE_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ +if(qbevent){evnt(26070,10554,"ide_methods.bas");if(r)goto S_47703;} +S_47704:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ +if(qbevent){evnt(26070,10555,"ide_methods.bas");if(r)goto S_47704;} +do{ +*_FUNC_IDECHANGE_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10556,"ide_methods.bas");}while(r); +S_47706:; +if (((-(*_FUNC_IDECHANGE_LONG_K>= 65 ))&(-(*_FUNC_IDECHANGE_LONG_K<= 90 )))||new_error){ +if(qbevent){evnt(26070,10557,"ide_methods.bas");if(r)goto S_47706;} +do{ +qbs_set(_FUNC_IDECHANGE_STRING_ALTLETTER,func_chr(*_FUNC_IDECHANGE_LONG_K)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10557,"ide_methods.bas");}while(r); +} +} +} +do{ +qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,10560,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); +if(!qbevent)break;evnt(26070,10560,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,10560,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHANGE_LONG_INFO= 0 ; +if(!qbevent)break;evnt(26070,10564,"ide_methods.bas");}while(r); +S_47715:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,10565,"ide_methods.bas");if(r)goto S_47715;} +do{ +qbs_set(__STRING_K,func_chr( 255 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10565,"ide_methods.bas");}while(r); +} +S_47718:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ +if(qbevent){evnt(26070,10566,"ide_methods.bas");if(r)goto S_47718;} +do{ +*_FUNC_IDECHANGE_LONG_FOCUS=*_FUNC_IDECHANGE_LONG_FOCUS+ 1 ; +if(!qbevent)break;evnt(26070,10566,"ide_methods.bas");}while(r); +} +S_47721:; +if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||new_error){ +if(qbevent){evnt(26070,10567,"ide_methods.bas");if(r)goto S_47721;} +do{ +*_FUNC_IDECHANGE_LONG_FOCUS=*_FUNC_IDECHANGE_LONG_FOCUS- 1 ; +if(!qbevent)break;evnt(26070,10567,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_K,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10567,"ide_methods.bas");}while(r); +} +S_47725:; +if ((-(*_FUNC_IDECHANGE_LONG_FOCUS< 1 ))||new_error){ +if(qbevent){evnt(26070,10568,"ide_methods.bas");if(r)goto S_47725;} +do{ +*_FUNC_IDECHANGE_LONG_FOCUS=*_FUNC_IDECHANGE_LONG_LASTFOCUS; +if(!qbevent)break;evnt(26070,10568,"ide_methods.bas");}while(r); +} +S_47728:; +if ((-(*_FUNC_IDECHANGE_LONG_FOCUS>*_FUNC_IDECHANGE_LONG_LASTFOCUS))||new_error){ +if(qbevent){evnt(26070,10569,"ide_methods.bas");if(r)goto S_47728;} +do{ +*_FUNC_IDECHANGE_LONG_FOCUS= 1 ; +if(!qbevent)break;evnt(26070,10569,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDECHANGE_LONG_F= 1 ; +if(!qbevent)break;evnt(26070,10570,"ide_methods.bas");}while(r); +S_47732:; +fornext_value5259= 1 ; +fornext_finalvalue5259= 100 ; +fornext_step5259= 1 ; +if (fornext_step5259<0) fornext_step_negative5259=1; else fornext_step_negative5259=0; +if (new_error) goto fornext_error5259; +goto fornext_entrylabel5259; +while(1){ +fornext_value5259=fornext_step5259+(*_FUNC_IDECHANGE_LONG_I); +fornext_entrylabel5259: +*_FUNC_IDECHANGE_LONG_I=fornext_value5259; +if (fornext_step_negative5259){ +if (fornext_value5259fornext_finalvalue5259) break; +} +fornext_error5259:; +if(qbevent){evnt(26070,10571,"ide_methods.bas");if(r)goto S_47732;} +do{ +*_FUNC_IDECHANGE_LONG_T=*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+36)); +if(!qbevent)break;evnt(26070,10572,"ide_methods.bas");}while(r); +S_47734:; +if ((*_FUNC_IDECHANGE_LONG_T)||new_error){ +if(qbevent){evnt(26070,10573,"ide_methods.bas");if(r)goto S_47734;} +do{ +*_FUNC_IDECHANGE_LONG_FOCUSOFFSET=*_FUNC_IDECHANGE_LONG_FOCUS-*_FUNC_IDECHANGE_LONG_F; +if(!qbevent)break;evnt(26070,10574,"ide_methods.bas");}while(r); +do{ +SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDECHANGE_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89) ),_FUNC_IDECHANGE_LONG_FOCUS,_FUNC_IDECHANGE_LONG_F,_FUNC_IDECHANGE_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDECHANGE_STRING_ALTLETTER,__LONG_MB,_FUNC_IDECHANGE_LONG_MOUSEDOWN,_FUNC_IDECHANGE_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDECHANGE_LONG_INFO,__LONG_MWHEEL); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10575,"ide_methods.bas");}while(r); +} +fornext_continue_5258:; +} +fornext_exit_5258:; +S_47739:; +if ((-(*_FUNC_IDECHANGE_LONG_FOCUS!=*_FUNC_IDECHANGE_LONG_PREVFOCUS))||new_error){ +if(qbevent){evnt(26070,10581,"ide_methods.bas");if(r)goto S_47739;} +do{ +*_FUNC_IDECHANGE_LONG_PREVFOCUS=*_FUNC_IDECHANGE_LONG_FOCUS; +if(!qbevent)break;evnt(26070,10583,"ide_methods.bas");}while(r); +S_47741:; +if (((-(*_FUNC_IDECHANGE_LONG_FOCUS== 1 ))|(-(*_FUNC_IDECHANGE_LONG_FOCUS== 2 )))||new_error){ +if(qbevent){evnt(26070,10584,"ide_methods.bas");if(r)goto S_47741;} +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_FOCUS)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_FOCUS)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; +if(!qbevent)break;evnt(26070,10585,"ide_methods.bas");}while(r); +S_47743:; +if ((-(*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_FOCUS)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+81))> 0 ))||new_error){ +if(qbevent){evnt(26070,10586,"ide_methods.bas");if(r)goto S_47743;} +do{ +*(int8*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_FOCUS)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+76))= -1 ; +if(!qbevent)break;evnt(26070,10586,"ide_methods.bas");}while(r); +} +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_FOCUS)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+77))= 0 ; +if(!qbevent)break;evnt(26070,10587,"ide_methods.bas");}while(r); +} +} +S_47749:; +if (((-(*_FUNC_IDECHANGE_LONG_FOCUS== 6 ))&(-(*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 6 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64))== 1 )))||new_error){ +if(qbevent){evnt(26070,10592,"ide_methods.bas");if(r)goto S_47749;} +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 7 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64))= 0 ; +if(!qbevent)break;evnt(26070,10593,"ide_methods.bas");}while(r); +S_47751:; +}else{ +if ((-(*_FUNC_IDECHANGE_LONG_FOCUS== 7 ))&(-(*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 7 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64))== 1 ))){ +if(qbevent){evnt(26070,10594,"ide_methods.bas");if(r)goto S_47751;} +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 6 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64))= 0 ; +if(!qbevent)break;evnt(26070,10595,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 8 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64))= 0 ; +if(!qbevent)break;evnt(26070,10596,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64))= 0 ; +if(!qbevent)break;evnt(26070,10597,"ide_methods.bas");}while(r); +S_47755:; +}else{ +if ((-(*_FUNC_IDECHANGE_LONG_FOCUS== 8 ))&(-(*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 8 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64))== 1 ))){ +if(qbevent){evnt(26070,10598,"ide_methods.bas");if(r)goto S_47755;} +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64))= 0 ; +if(!qbevent)break;evnt(26070,10599,"ide_methods.bas");}while(r); +S_47757:; +}else{ +if ((-(*_FUNC_IDECHANGE_LONG_FOCUS== 9 ))&(-(*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64))== 1 ))){ +if(qbevent){evnt(26070,10600,"ide_methods.bas");if(r)goto S_47757;} +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 6 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64))= 0 ; +if(!qbevent)break;evnt(26070,10601,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 7 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64))= 0 ; +if(!qbevent)break;evnt(26070,10602,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 8 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64))= 0 ; +if(!qbevent)break;evnt(26070,10603,"ide_methods.bas");}while(r); +} +} +} +} +S_47762:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 27 )))|(((-(*_FUNC_IDECHANGE_LONG_FOCUS== 12 ))&(-(*_FUNC_IDECHANGE_LONG_INFO!= 0 ))))))||new_error){ +if(qbevent){evnt(26070,10606,"ide_methods.bas");if(r)goto S_47762;} +do{ +qbs_set(_FUNC_IDECHANGE_STRING_IDECHANGE,qbs_new_txt_len("C",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10607,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,10608,"ide_methods.bas");}while(r); +} +S_47766:; +if ((qbs_cleanup(qbs_tmp_base,-(func_ubound(_FUNC_IDECHANGE_ARRAY_STRING_SEARCHHISTORY,1,1)> 0 )))||new_error){ +if(qbevent){evnt(26070,10611,"ide_methods.bas");if(r)goto S_47766;} +S_47767:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,(qbs_add(func_chr( 0 ),func_chr( 72 )))))&(-(*_FUNC_IDECHANGE_LONG_FOCUS== 1 ))))||new_error){ +if(qbevent){evnt(26070,10612,"ide_methods.bas");if(r)goto S_47767;} +S_47768:; +if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDECHANGE_LONG_LNlen; +if(!qbevent)break;evnt(26070,10617,"ide_methods.bas");}while(r); +} +S_47776:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,(qbs_add(func_chr( 0 ),func_chr( 80 )))))&(-(*_FUNC_IDECHANGE_LONG_FOCUS== 1 ))))||new_error){ +if(qbevent){evnt(26070,10620,"ide_methods.bas");if(r)goto S_47776;} +S_47777:; +if ((-(*_FUNC_IDECHANGE_LONG_LN> 1 ))||new_error){ +if(qbevent){evnt(26070,10621,"ide_methods.bas");if(r)goto S_47777;} +do{ +*_FUNC_IDECHANGE_LONG_LN=*_FUNC_IDECHANGE_LONG_LN- 1 ; +if(!qbevent)break;evnt(26070,10622,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_IDECHANGE_LONG_LN= 1 ; +if(!qbevent)break;evnt(26070,10624,"ide_methods.bas");}while(r); +} +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),((qbs*)(((uint64*)(_FUNC_IDECHANGE_ARRAY_STRING_SEARCHHISTORY[0]))[array_check((*_FUNC_IDECHANGE_LONG_LN)-_FUNC_IDECHANGE_ARRAY_STRING_SEARCHHISTORY[4],_FUNC_IDECHANGE_ARRAY_STRING_SEARCHHISTORY[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10626,"ide_methods.bas");}while(r); +do{ +*(int8*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+76))= -1 ; +if(!qbevent)break;evnt(26070,10627,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+77))= 0 ; +if(!qbevent)break;evnt(26070,10627,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; +if(!qbevent)break;evnt(26070,10627,"ide_methods.bas");}while(r); +} +} +S_47788:; +if (((-(*_FUNC_IDECHANGE_LONG_FOCUS== 11 ))&(-(*_FUNC_IDECHANGE_LONG_INFO!= 0 )))||new_error){ +if(qbevent){evnt(26070,10631,"ide_methods.bas");if(r)goto S_47788;} +do{ +*__INTEGER_IDEFINDCASESENS=*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26070,10632,"ide_methods.bas");}while(r); +do{ +*__INTEGER_IDEFINDWHOLEWORD=*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 4 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26070,10633,"ide_methods.bas");}while(r); +do{ +*__INTEGER_IDEFINDBACKWARDS=*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 5 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26070,10634,"ide_methods.bas");}while(r); +do{ +*__INTEGER_IDEFINDNOCOMMENTS=*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 6 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26070,10635,"ide_methods.bas");}while(r); +do{ +*__INTEGER_IDEFINDONLYCOMMENTS=*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 7 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26070,10636,"ide_methods.bas");}while(r); +do{ +*__INTEGER_IDEFINDNOSTRINGS=*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 8 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26070,10637,"ide_methods.bas");}while(r); +do{ +*__INTEGER_IDEFINDONLYSTRINGS=*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26070,10638,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHANGE_STRING_S,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10640,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_IDEFINDTEXT,_FUNC_IDECHANGE_STRING_S); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10641,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_IDECHANGETO,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10642,"ide_methods.bas");}while(r); +do{ +SUB_IDEADDSEARCHED(__STRING_IDEFINDTEXT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10643,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHANGE_LONG_CHANGED= 0 ; +if(!qbevent)break;evnt(26070,10645,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHANGE_STRING_S,__STRING_IDEFINDTEXT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10647,"ide_methods.bas");}while(r); +S_47802:; +if ((-(*__INTEGER_IDEFINDCASESENS== 0 ))||new_error){ +if(qbevent){evnt(26070,10648,"ide_methods.bas");if(r)goto S_47802;} +do{ +qbs_set(_FUNC_IDECHANGE_STRING_S,qbs_ucase(_FUNC_IDECHANGE_STRING_S)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10648,"ide_methods.bas");}while(r); +} +S_47805:; +fornext_value5264= 1 ; +fornext_finalvalue5264=*__LONG_IDEN; +fornext_step5264= 1 ; +if (fornext_step5264<0) fornext_step_negative5264=1; else fornext_step_negative5264=0; +if (new_error) goto fornext_error5264; +goto fornext_entrylabel5264; +while(1){ +fornext_value5264=fornext_step5264+(*_FUNC_IDECHANGE_LONG_Y); +fornext_entrylabel5264: +*_FUNC_IDECHANGE_LONG_Y=fornext_value5264; +if (fornext_step_negative5264){ +if (fornext_value5264fornext_finalvalue5264) break; +} +fornext_error5264:; +if(qbevent){evnt(26070,10650,"ide_methods.bas");if(r)goto S_47805;} +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,10651,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHANGE_LONG_MAXPROGRESSWIDTH=*(int32*)(((char*)_FUNC_IDECHANGE_UDT_P)+(8))- 4 ; +if(!qbevent)break;evnt(26070,10652,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHANGE_LONG_PERCENTAGE=qbr(floor(*_FUNC_IDECHANGE_LONG_Y/ ((long double)(*__LONG_IDEN))* 100 )); +if(!qbevent)break;evnt(26070,10653,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHANGE_LONG_PERCENTAGECHARS=qbr(floor(*_FUNC_IDECHANGE_LONG_MAXPROGRESSWIDTH**_FUNC_IDECHANGE_LONG_Y/ ((long double)(*__LONG_IDEN)))); +if(!qbevent)break;evnt(26070,10654,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHANGE_STRING_PERCENTAGEMSG,qbs_add(func_string(*_FUNC_IDECHANGE_LONG_PERCENTAGECHARS, 219 ),func_string(*_FUNC_IDECHANGE_LONG_MAXPROGRESSWIDTH-*_FUNC_IDECHANGE_LONG_PERCENTAGECHARS, 176 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10655,"ide_methods.bas");}while(r); +do{ +sub__printstring(*(int32*)(((char*)_FUNC_IDECHANGE_UDT_P)+(0))+ 2 ,*(int32*)(((char*)_FUNC_IDECHANGE_UDT_P)+(4))+ 7 ,_FUNC_IDECHANGE_STRING_PERCENTAGEMSG,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10656,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 1 , 0 ); +if(!qbevent)break;evnt(26070,10657,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHANGE_STRING_L,FUNC_IDEGETLINE(_FUNC_IDECHANGE_LONG_Y)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10659,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHANGE_STRING_L2,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10660,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHANGE_LONG_X1= 1 ; +if(!qbevent)break;evnt(26070,10662,"ide_methods.bas");}while(r); +LABEL_IDECHANGEALL:; +if(qbevent){evnt(26070,10663,"ide_methods.bas");r=0;} +S_47816:; +if ((-(*__INTEGER_IDEFINDCASESENS== 0 ))||new_error){ +if(qbevent){evnt(26070,10664,"ide_methods.bas");if(r)goto S_47816;} +do{ +qbs_set(_FUNC_IDECHANGE_STRING_L3,qbs_ucase(_FUNC_IDECHANGE_STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10664,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDECHANGE_STRING_L3,_FUNC_IDECHANGE_STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10664,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDECHANGE_LONG_X=func_instr(*_FUNC_IDECHANGE_LONG_X1,_FUNC_IDECHANGE_STRING_L3,_FUNC_IDECHANGE_STRING_S,0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10665,"ide_methods.bas");}while(r); +S_47822:; +if ((*_FUNC_IDECHANGE_LONG_X)||new_error){ +if(qbevent){evnt(26070,10667,"ide_methods.bas");if(r)goto S_47822;} +S_47823:; +if ((*__INTEGER_IDEFINDWHOLEWORD)||new_error){ +if(qbevent){evnt(26070,10668,"ide_methods.bas");if(r)goto S_47823;} +do{ +*_FUNC_IDECHANGE_LONG_WHOLE= 1 ; +if(!qbevent)break;evnt(26070,10669,"ide_methods.bas");}while(r); +S_47825:; +if ((-(*_FUNC_IDECHANGE_LONG_X> 1 ))||new_error){ +if(qbevent){evnt(26070,10670,"ide_methods.bas");if(r)goto S_47825;} +do{ +*_FUNC_IDECHANGE_LONG_C=qbs_asc(qbs_ucase(func_mid(_FUNC_IDECHANGE_STRING_L,*_FUNC_IDECHANGE_LONG_X- 1 , 1 ,0|1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10671,"ide_methods.bas");}while(r); +S_47827:; +if (((-(*_FUNC_IDECHANGE_LONG_C>= 65 ))&(-(*_FUNC_IDECHANGE_LONG_C<= 90 )))||new_error){ +if(qbevent){evnt(26070,10672,"ide_methods.bas");if(r)goto S_47827;} +do{ +*_FUNC_IDECHANGE_LONG_WHOLE= 0 ; +if(!qbevent)break;evnt(26070,10672,"ide_methods.bas");}while(r); +} +S_47830:; +if (((-(*_FUNC_IDECHANGE_LONG_C>= 48 ))&(-(*_FUNC_IDECHANGE_LONG_C<= 57 )))||new_error){ +if(qbevent){evnt(26070,10673,"ide_methods.bas");if(r)goto S_47830;} +do{ +*_FUNC_IDECHANGE_LONG_WHOLE= 0 ; +if(!qbevent)break;evnt(26070,10673,"ide_methods.bas");}while(r); +} +} +S_47834:; +if ((qbs_cleanup(qbs_tmp_base,-((*_FUNC_IDECHANGE_LONG_X+_FUNC_IDECHANGE_STRING_S->len)<=(_FUNC_IDECHANGE_STRING_L->len))))||new_error){ +if(qbevent){evnt(26070,10675,"ide_methods.bas");if(r)goto S_47834;} +do{ +*_FUNC_IDECHANGE_LONG_C=qbs_asc(qbs_ucase(func_mid(_FUNC_IDECHANGE_STRING_L,*_FUNC_IDECHANGE_LONG_X+_FUNC_IDECHANGE_STRING_S->len, 1 ,0|1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10676,"ide_methods.bas");}while(r); +S_47836:; +if (((-(*_FUNC_IDECHANGE_LONG_C>= 65 ))&(-(*_FUNC_IDECHANGE_LONG_C<= 90 )))||new_error){ +if(qbevent){evnt(26070,10677,"ide_methods.bas");if(r)goto S_47836;} +do{ +*_FUNC_IDECHANGE_LONG_WHOLE= 0 ; +if(!qbevent)break;evnt(26070,10677,"ide_methods.bas");}while(r); +} +S_47839:; +if (((-(*_FUNC_IDECHANGE_LONG_C>= 48 ))&(-(*_FUNC_IDECHANGE_LONG_C<= 57 )))||new_error){ +if(qbevent){evnt(26070,10678,"ide_methods.bas");if(r)goto S_47839;} +do{ +*_FUNC_IDECHANGE_LONG_WHOLE= 0 ; +if(!qbevent)break;evnt(26070,10678,"ide_methods.bas");}while(r); +} +} +S_47843:; +if ((-(*_FUNC_IDECHANGE_LONG_WHOLE== 0 ))||new_error){ +if(qbevent){evnt(26070,10680,"ide_methods.bas");if(r)goto S_47843;} +S_47844:; +if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDECHANGE_LONG_X1<=_FUNC_IDECHANGE_STRING_L->len)))||new_error){ +if(qbevent){evnt(26070,10681,"ide_methods.bas");if(r)goto S_47844;} +do{ +qbs_set(_FUNC_IDECHANGE_STRING_L2,qbs_add(_FUNC_IDECHANGE_STRING_L2,func_mid(_FUNC_IDECHANGE_STRING_L,*_FUNC_IDECHANGE_LONG_X1,*_FUNC_IDECHANGE_LONG_X-*_FUNC_IDECHANGE_LONG_X1+ 1 ,0|1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10682,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHANGE_LONG_X1=*_FUNC_IDECHANGE_LONG_X+ 1 ; +if(!qbevent)break;evnt(26070,10683,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDECHANGEALL; +if(!qbevent)break;evnt(26070,10684,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDECHANGE_LONG_X= 0 ; +if(!qbevent)break;evnt(26070,10686,"ide_methods.bas");}while(r); +} +} +} +do{ +if(!qbevent)break;evnt(26070,10691,"ide_methods.bas");}while(r); +S_47854:; +if ((*_FUNC_IDECHANGE_LONG_X)||new_error){ +if(qbevent){evnt(26070,10692,"ide_methods.bas");if(r)goto S_47854;} +do{ +SUB_FINDQUOTECOMMENT(_FUNC_IDECHANGE_STRING_L,_FUNC_IDECHANGE_LONG_X,_FUNC_IDECHANGE_BYTE_COMMENT,_FUNC_IDECHANGE_BYTE_QUOTE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10693,"ide_methods.bas");}while(r); +S_47856:; +if (((-(*__INTEGER_IDEFINDNOCOMMENTS!= 0 ))&*_FUNC_IDECHANGE_BYTE_COMMENT)||new_error){ +if(qbevent){evnt(26070,10694,"ide_methods.bas");if(r)goto S_47856;} +do{ +*_FUNC_IDECHANGE_LONG_X= 0 ; +if(!qbevent)break;evnt(26070,10694,"ide_methods.bas");}while(r); +} +S_47859:; +if (((-(*__INTEGER_IDEFINDNOSTRINGS!= 0 ))&*_FUNC_IDECHANGE_BYTE_QUOTE)||new_error){ +if(qbevent){evnt(26070,10695,"ide_methods.bas");if(r)goto S_47859;} +do{ +*_FUNC_IDECHANGE_LONG_X= 0 ; +if(!qbevent)break;evnt(26070,10695,"ide_methods.bas");}while(r); +} +S_47862:; +if (((-(*__INTEGER_IDEFINDONLYCOMMENTS!= 0 ))&(-(*_FUNC_IDECHANGE_BYTE_COMMENT== 0 )))||new_error){ +if(qbevent){evnt(26070,10696,"ide_methods.bas");if(r)goto S_47862;} +do{ +*_FUNC_IDECHANGE_LONG_X= 0 ; +if(!qbevent)break;evnt(26070,10696,"ide_methods.bas");}while(r); +} +S_47865:; +if (((-(*__INTEGER_IDEFINDONLYSTRINGS!= 0 ))&(-(*_FUNC_IDECHANGE_BYTE_QUOTE== 0 )))||new_error){ +if(qbevent){evnt(26070,10697,"ide_methods.bas");if(r)goto S_47865;} +do{ +*_FUNC_IDECHANGE_LONG_X= 0 ; +if(!qbevent)break;evnt(26070,10697,"ide_methods.bas");}while(r); +} +} +S_47869:; +if ((*_FUNC_IDECHANGE_LONG_X)||new_error){ +if(qbevent){evnt(26070,10700,"ide_methods.bas");if(r)goto S_47869;} +do{ +qbs_set(_FUNC_IDECHANGE_STRING_L2,qbs_add(qbs_add(_FUNC_IDECHANGE_STRING_L2,func_mid(_FUNC_IDECHANGE_STRING_L,*_FUNC_IDECHANGE_LONG_X1,*_FUNC_IDECHANGE_LONG_X-*_FUNC_IDECHANGE_LONG_X1,0|1)),__STRING_IDECHANGETO)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10701,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHANGE_LONG_CHANGED=*_FUNC_IDECHANGE_LONG_CHANGED+ 1 ; +if(!qbevent)break;evnt(26070,10702,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHANGE_LONG_X1=*_FUNC_IDECHANGE_LONG_X+_FUNC_IDECHANGE_STRING_S->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10703,"ide_methods.bas");}while(r); +S_47873:; +if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDECHANGE_LONG_X1<=_FUNC_IDECHANGE_STRING_L->len)))||new_error){ +if(qbevent){evnt(26070,10704,"ide_methods.bas");if(r)goto S_47873;} +do{ +goto LABEL_IDECHANGEALL; +if(!qbevent)break;evnt(26070,10704,"ide_methods.bas");}while(r); +} +} +do{ +qbs_set(_FUNC_IDECHANGE_STRING_L2,qbs_add(_FUNC_IDECHANGE_STRING_L2,func_mid(_FUNC_IDECHANGE_STRING_L,*_FUNC_IDECHANGE_LONG_X1,_FUNC_IDECHANGE_STRING_L->len-*_FUNC_IDECHANGE_LONG_X1+ 1 ,0|1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10707,"ide_methods.bas");}while(r); +S_47878:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_IDECHANGE_STRING_L2,_FUNC_IDECHANGE_STRING_L)))||new_error){ +if(qbevent){evnt(26070,10709,"ide_methods.bas");if(r)goto S_47878;} +do{ +SUB_IDESETLINE(_FUNC_IDECHANGE_LONG_Y,_FUNC_IDECHANGE_STRING_L2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10709,"ide_methods.bas");}while(r); +} +fornext_continue_5263:; +} +fornext_exit_5263:; +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,10713,"ide_methods.bas");}while(r); +do{ +SUB_CLEARSTATUSWINDOW(&(pass5272= 0 )); +if(!qbevent)break;evnt(26070,10714,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEFOCUSLINE= 0 ; +if(!qbevent)break;evnt(26070,10715,"ide_methods.bas");}while(r); +do{ +SUB_IDESHOWTEXT(); +if(!qbevent)break;evnt(26070,10716,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,10717,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 0 , 2 ); +if(!qbevent)break;evnt(26070,10718,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 0 , 1 ); +if(!qbevent)break;evnt(26070,10719,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,10720,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=158; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_DISPLAYDIALOG; +RETURN_158:; +if(!qbevent)break;evnt(26070,10721,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 1 , 0 ); +if(!qbevent)break;evnt(26070,10722,"ide_methods.bas");}while(r); +S_47892:; +if ((-(*_FUNC_IDECHANGE_LONG_CHANGED== 0 ))||new_error){ +if(qbevent){evnt(26070,10724,"ide_methods.bas");if(r)goto S_47892;} +do{ +SUB_IDENOMATCH(&(pass5273= 0 )); +if(!qbevent)break;evnt(26070,10725,"ide_methods.bas");}while(r); +}else{ +do{ +SUB_IDECHANGED(_FUNC_IDECHANGE_LONG_CHANGED); +if(!qbevent)break;evnt(26070,10727,"ide_methods.bas");}while(r); +do{ +*__INTEGER_IDECHANGEMADE= 1 ; +if(!qbevent)break;evnt(26070,10727,"ide_methods.bas");}while(r); +do{ +*__BYTE_STARTPAUSEDPENDING= 0 ; +if(!qbevent)break;evnt(26070,10727,"ide_methods.bas");}while(r); +} +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_BUTTONSID)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Find and #Verify",16),_FUNC_IDECHANGE_STRING1_SEP),qbs_new_txt_len("#Change All",11)),_FUNC_IDECHANGE_STRING1_SEP),qbs_new_txt_len("Close",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10730,"ide_methods.bas");}while(r); +} +S_47901:; +if ((qbs_cleanup(qbs_tmp_base,(((-(*_FUNC_IDECHANGE_LONG_FOCUS== 10 ))&(-(*_FUNC_IDECHANGE_LONG_INFO!= 0 ))))|(qbs_equal(__STRING_K,func_chr( 13 )))))||new_error){ +if(qbevent){evnt(26070,10734,"ide_methods.bas");if(r)goto S_47901;} +do{ +*__INTEGER_IDEFINDCASESENS=*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26070,10735,"ide_methods.bas");}while(r); +do{ +*__INTEGER_IDEFINDWHOLEWORD=*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 4 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26070,10736,"ide_methods.bas");}while(r); +do{ +*__INTEGER_IDEFINDBACKWARDS=*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 5 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26070,10737,"ide_methods.bas");}while(r); +do{ +*__INTEGER_IDEFINDNOCOMMENTS=*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 6 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26070,10738,"ide_methods.bas");}while(r); +do{ +*__INTEGER_IDEFINDONLYCOMMENTS=*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 7 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26070,10739,"ide_methods.bas");}while(r); +do{ +*__INTEGER_IDEFINDNOSTRINGS=*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 8 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26070,10740,"ide_methods.bas");}while(r); +do{ +*__INTEGER_IDEFINDONLYSTRINGS=*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26070,10741,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_IDEFINDTEXT,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10742,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_IDECHANGETO,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10743,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHANGE_STRING_IDECHANGE,qbs_new_txt_len("V",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10744,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,10745,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDECHANGE_LONG_MOUSEDOWN= 0 ; +if(!qbevent)break;evnt(26070,10753,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHANGE_LONG_MOUSEUP= 0 ; +if(!qbevent)break;evnt(26070,10754,"ide_methods.bas");}while(r); +dl_continue_5255:; +}while(1); +dl_exit_5255:; +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,10756,"ide_methods.bas");}while(r); +LABEL_DISPLAYDIALOG:; +if(qbevent){evnt(26070,10757,"ide_methods.bas");r=0;} +do{ +SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDECHANGE_UDT_P)) + (0) )); +if(!qbevent)break;evnt(26070,10758,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHANGE_LONG_F= 1 ; +if(!qbevent)break;evnt(26070,10759,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHANGE_LONG_CX= 0 ; +if(!qbevent)break;evnt(26070,10759,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHANGE_LONG_CY= 0 ; +if(!qbevent)break;evnt(26070,10759,"ide_methods.bas");}while(r); +S_47922:; +fornext_value5275= 1 ; +fornext_finalvalue5275= 100 ; +fornext_step5275= 1 ; +if (fornext_step5275<0) fornext_step_negative5275=1; else fornext_step_negative5275=0; +if (new_error) goto fornext_error5275; +goto fornext_entrylabel5275; +while(1){ +fornext_value5275=fornext_step5275+(*_FUNC_IDECHANGE_LONG_I); +fornext_entrylabel5275: +*_FUNC_IDECHANGE_LONG_I=fornext_value5275; +if (fornext_step_negative5275){ +if (fornext_value5275fornext_finalvalue5275) break; +} +fornext_error5275:; +if(qbevent){evnt(26070,10760,"ide_methods.bas");if(r)goto S_47922;} +S_47923:; +if ((*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+36)))||new_error){ +if(qbevent){evnt(26070,10762,"ide_methods.bas");if(r)goto S_47923;} +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+60))=*_FUNC_IDECHANGE_LONG_FOCUS-*_FUNC_IDECHANGE_LONG_F; +if(!qbevent)break;evnt(26070,10765,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+52))= 0 ; +if(!qbevent)break;evnt(26070,10767,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+56))= 0 ; +if(!qbevent)break;evnt(26070,10767,"ide_methods.bas");}while(r); +do{ +SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDECHANGE_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89) ),_FUNC_IDECHANGE_LONG_F); +if(!qbevent)break;evnt(26070,10769,"ide_methods.bas");}while(r); +S_47928:; +if ((*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+52)))||new_error){ +if(qbevent){evnt(26070,10771,"ide_methods.bas");if(r)goto S_47928;} +do{ +*_FUNC_IDECHANGE_LONG_CX=*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+52)); +if(!qbevent)break;evnt(26070,10771,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHANGE_LONG_CY=*(int32*)(((char*)_FUNC_IDECHANGE_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGE_LONG_I)-_FUNC_IDECHANGE_ARRAY_UDT_O[4],_FUNC_IDECHANGE_ARRAY_UDT_O[5]))*89+56)); +if(!qbevent)break;evnt(26070,10771,"ide_methods.bas");}while(r); +} +} +fornext_continue_5274:; +} +fornext_exit_5274:; +do{ +#include "ret184.txt" +if(!qbevent)break;evnt(26070,10775,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free184.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_IDECHANGE_STRING_IDECHANGE);return _FUNC_IDECHANGE_STRING_IDECHANGE; +} +void SUB_FINDQUOTECOMMENT(qbs*_SUB_FINDQUOTECOMMENT_STRING_TEXT,int32*_SUB_FINDQUOTECOMMENT_LONG___CURSOR,int8*_SUB_FINDQUOTECOMMENT_BYTE_C,int8*_SUB_FINDQUOTECOMMENT_BYTE_Q){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data185.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +*_SUB_FINDQUOTECOMMENT_BYTE_C= 0 ; +if(!qbevent)break;evnt(26070,10779,"ide_methods.bas");}while(r); +do{ +*_SUB_FINDQUOTECOMMENT_BYTE_Q= 0 ; +if(!qbevent)break;evnt(26070,10779,"ide_methods.bas");}while(r); +do{ +*_SUB_FINDQUOTECOMMENT_LONG_CURSOR=*_SUB_FINDQUOTECOMMENT_LONG___CURSOR; +if(!qbevent)break;evnt(26070,10780,"ide_methods.bas");}while(r); +S_47938:; +if ((qbs_cleanup(qbs_tmp_base,-(*_SUB_FINDQUOTECOMMENT_LONG_CURSOR>_SUB_FINDQUOTECOMMENT_STRING_TEXT->len)))||new_error){ +if(qbevent){evnt(26070,10781,"ide_methods.bas");if(r)goto S_47938;} +do{ +*_SUB_FINDQUOTECOMMENT_LONG_CURSOR=_SUB_FINDQUOTECOMMENT_STRING_TEXT->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10781,"ide_methods.bas");}while(r); +} +S_47941:; +fornext_value5280= 1 ; +fornext_finalvalue5280=*_SUB_FINDQUOTECOMMENT_LONG_CURSOR; +fornext_step5280= 1 ; +if (fornext_step5280<0) fornext_step_negative5280=1; else fornext_step_negative5280=0; +if (new_error) goto fornext_error5280; +goto fornext_entrylabel5280; +while(1){ +fornext_value5280=fornext_step5280+(*_SUB_FINDQUOTECOMMENT_LONG_FIND_K); +fornext_entrylabel5280: +*_SUB_FINDQUOTECOMMENT_LONG_FIND_K=fornext_value5280; +if (fornext_step_negative5280){ +if (fornext_value5280fornext_finalvalue5280) break; +} +fornext_error5280:; +if(qbevent){evnt(26070,10782,"ide_methods.bas");if(r)goto S_47941;} +S_47942:; +qbs_set(sc_5281,func_mid(_SUB_FINDQUOTECOMMENT_STRING_TEXT,*_SUB_FINDQUOTECOMMENT_LONG_FIND_K, 1 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(qbevent){evnt(26070,10783,"ide_methods.bas");if(r)goto S_47942;} +S_47943:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_5281,func_chr( 34 ))))||new_error){ +if(qbevent){evnt(26070,10784,"ide_methods.bas");if(r)goto S_47943;} +do{ +*_SUB_FINDQUOTECOMMENT_BYTE_Q=~(*_SUB_FINDQUOTECOMMENT_BYTE_Q); +if(!qbevent)break;evnt(26070,10784,"ide_methods.bas");}while(r); +sc_ec_361_end:; +goto sc_5281_end; +} +S_47945:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_5281,qbs_new_txt_len("'",1))))||new_error){ +if(qbevent){evnt(26070,10785,"ide_methods.bas");if(r)goto S_47945;} +S_47946:; +if ((-(*_SUB_FINDQUOTECOMMENT_BYTE_Q== 0 ))||new_error){ +if(qbevent){evnt(26070,10785,"ide_methods.bas");if(r)goto S_47946;} +do{ +*_SUB_FINDQUOTECOMMENT_BYTE_C= -1 ; +if(!qbevent)break;evnt(26070,10785,"ide_methods.bas");}while(r); +do{ +goto fornext_exit_5279; +if(!qbevent)break;evnt(26070,10785,"ide_methods.bas");}while(r); +} +sc_ec_362_end:; +goto sc_5281_end; +} +S_47950:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_5281,qbs_new_txt_len("R",1))||qbs_equal(sc_5281,qbs_new_txt_len("r",1))))||new_error){ +if(qbevent){evnt(26070,10786,"ide_methods.bas");if(r)goto S_47950;} +S_47951:; +if ((-(*_SUB_FINDQUOTECOMMENT_BYTE_Q== 0 ))||new_error){ +if(qbevent){evnt(26070,10787,"ide_methods.bas");if(r)goto S_47951;} +S_47952:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_ucase(func_mid(_SUB_FINDQUOTECOMMENT_STRING_TEXT,*_SUB_FINDQUOTECOMMENT_LONG_FIND_K- 1 , 5 ,0|1)),qbs_new_txt_len(" REM ",5)))|(qbs_equal(qbs_ucase(func_mid(_SUB_FINDQUOTECOMMENT_STRING_TEXT,*_SUB_FINDQUOTECOMMENT_LONG_FIND_K- 1 , 5 ,0|1)),qbs_new_txt_len(":REM ",5)))|(((-((*_SUB_FINDQUOTECOMMENT_LONG_FIND_K+ 2 )==(_SUB_FINDQUOTECOMMENT_STRING_TEXT->len)))&(qbs_equal(qbs_ucase(func_mid(_SUB_FINDQUOTECOMMENT_STRING_TEXT,*_SUB_FINDQUOTECOMMENT_LONG_FIND_K- 1 , 4 ,0|1)),qbs_new_txt_len(" REM",4)))))|(((-((*_SUB_FINDQUOTECOMMENT_LONG_FIND_K+ 2 )==(_SUB_FINDQUOTECOMMENT_STRING_TEXT->len)))&(qbs_equal(qbs_ucase(func_mid(_SUB_FINDQUOTECOMMENT_STRING_TEXT,*_SUB_FINDQUOTECOMMENT_LONG_FIND_K- 1 , 4 ,0|1)),qbs_new_txt_len(":REM",4)))))|(((-(*_SUB_FINDQUOTECOMMENT_LONG_FIND_K== 1 ))&(qbs_equal(qbs_ucase(qbs_left(_SUB_FINDQUOTECOMMENT_STRING_TEXT, 4 )),qbs_new_txt_len("REM ",4)))))|(((-(*_SUB_FINDQUOTECOMMENT_LONG_FIND_K== 1 ))&(qbs_equal(qbs_ucase(_SUB_FINDQUOTECOMMENT_STRING_TEXT),qbs_new_txt_len("REM",3)))))))||new_error){ +if(qbevent){evnt(26070,10793,"ide_methods.bas");if(r)goto S_47952;} +do{ +*_SUB_FINDQUOTECOMMENT_BYTE_C= -1 ; +if(!qbevent)break;evnt(26070,10794,"ide_methods.bas");}while(r); +do{ +goto fornext_exit_5279; +if(!qbevent)break;evnt(26070,10794,"ide_methods.bas");}while(r); +} +} +sc_ec_363_end:; +goto sc_5281_end; +} +sc_5281_end:; +fornext_continue_5279:; +} +fornext_exit_5279:; +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free185.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +void SUB_IDECHANGED(int32*_SUB_IDECHANGED_LONG_TOTALCHANGES){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data186.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +S_47959:; +if ((-(*_SUB_IDECHANGED_LONG_TOTALCHANGES> 1 ))||new_error){ +if(qbevent){evnt(26070,10802,"ide_methods.bas");if(r)goto S_47959;} +do{ +qbs_set(_SUB_IDECHANGED_STRING_PL,qbs_new_txt_len("s",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10802,"ide_methods.bas");}while(r); +} +do{ +*_SUB_IDECHANGED_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Change Complete",15),qbs_add(qbs_add(qbs_add(qbs_ltrim(qbs_str((int32)(*_SUB_IDECHANGED_LONG_TOTALCHANGES))),qbs_new_txt_len(" substitution",13)),_SUB_IDECHANGED_STRING_PL),qbs_new_txt_len(".",1)),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10803,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free186.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +qbs* FUNC_IDECHANGEIT(){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data187.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,10809,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 0 , 2 ); +if(!qbevent)break;evnt(26070,10810,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 0 , 1 ); +if(!qbevent)break;evnt(26070,10811,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,10812,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHANGEIT_LONG_FOCUS= 1 ; +if(!qbevent)break;evnt(26070,10813,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26070,10814,"ide_methods.bas");}while(r); +do{ if (_FUNC_IDECHANGEIT_ARRAY_UDT_O[2]&2){ error(10); @@ -160634,483 +160634,483 @@ if (!_FUNC_IDECHANGEIT_ARRAY_UDT_O[0]) error(257); } _FUNC_IDECHANGEIT_ARRAY_UDT_O[2]|=1; } -} -if(!qbevent)break;evnt(26070,10815,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(26070,10816,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHANGEIT_STRING1_SEP,func_chr( 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10817,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHANGEIT_LONG_I= 0 ; -if(!qbevent)break;evnt(26070,10821,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHANGEIT_LONG_W= 45 ; -if(!qbevent)break;evnt(26070,10822,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHANGEIT_UDT_P)+(0))=( 40 )-(*_FUNC_IDECHANGEIT_LONG_W/ 2 ); -if(!qbevent)break;evnt(26070,10823,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHANGEIT_UDT_P)+(4))=*__LONG_IDEWY- 4 ; -if(!qbevent)break;evnt(26070,10824,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHANGEIT_UDT_P)+(8))=*_FUNC_IDECHANGEIT_LONG_W; -if(!qbevent)break;evnt(26070,10825,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHANGEIT_UDT_P)+(12))= 2 ; -if(!qbevent)break;evnt(26070,10826,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHANGEIT_UDT_P)+(16))=FUNC_IDENEWTXT(qbs_new_txt_len("Change",6)); -if(!qbevent)break;evnt(26070,10827,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHANGEIT_LONG_I=*_FUNC_IDECHANGEIT_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,10829,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHANGEIT_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGEIT_LONG_I)-_FUNC_IDECHANGEIT_ARRAY_UDT_O[4],_FUNC_IDECHANGEIT_ARRAY_UDT_O[5]))*89+36))= 3 ; -if(!qbevent)break;evnt(26070,10830,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHANGEIT_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGEIT_LONG_I)-_FUNC_IDECHANGEIT_ARRAY_UDT_O[4],_FUNC_IDECHANGEIT_ARRAY_UDT_O[5]))*89+24))= 2 ; -if(!qbevent)break;evnt(26070,10831,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHANGEIT_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGEIT_LONG_I)-_FUNC_IDECHANGEIT_ARRAY_UDT_O[4],_FUNC_IDECHANGEIT_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("#Change",7),_FUNC_IDECHANGEIT_STRING1_SEP),qbs_new_txt_len("#Skip",5)),_FUNC_IDECHANGEIT_STRING1_SEP),qbs_new_txt_len("Cancel",6))); -if(!qbevent)break;evnt(26070,10832,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHANGEIT_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGEIT_LONG_I)-_FUNC_IDECHANGEIT_ARRAY_UDT_O[4],_FUNC_IDECHANGEIT_ARRAY_UDT_O[5]))*89+48))= 1 ; -if(!qbevent)break;evnt(26070,10833,"ide_methods.bas");}while(r); -S_47984:; -fornext_value5285= 1 ; -fornext_finalvalue5285= 100 ; -fornext_step5285= 1 ; -if (fornext_step5285<0) fornext_step_negative5285=1; else fornext_step_negative5285=0; -if (new_error) goto fornext_error5285; -goto fornext_entrylabel5285; -while(1){ -fornext_value5285=fornext_step5285+(*_FUNC_IDECHANGEIT_LONG_I); -fornext_entrylabel5285: -*_FUNC_IDECHANGEIT_LONG_I=fornext_value5285; -if (fornext_step_negative5285){ -if (fornext_value5285fornext_finalvalue5285) break; -} -fornext_error5285:; -if(qbevent){evnt(26070,10837,"ide_methods.bas");if(r)goto S_47984;} -do{ -memcpy(((char*)_FUNC_IDECHANGEIT_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGEIT_LONG_I)-_FUNC_IDECHANGEIT_ARRAY_UDT_O[4],_FUNC_IDECHANGEIT_ARRAY_UDT_O[5]))*89)+ 0,((char*)_FUNC_IDECHANGEIT_UDT_P)+(0)+ 0, 20); -if(!qbevent)break;evnt(26070,10837,"ide_methods.bas");}while(r); -fornext_continue_5284:; -} -fornext_exit_5284:; -S_47987:; -do{ -if(qbevent){evnt(26070,10840,"ide_methods.bas");if(r)goto S_47987;} -do{ -SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDECHANGEIT_UDT_P)) + (0) )); -if(!qbevent)break;evnt(26070,10843,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHANGEIT_LONG_F= 1 ; -if(!qbevent)break;evnt(26070,10844,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHANGEIT_LONG_CX= 0 ; -if(!qbevent)break;evnt(26070,10844,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHANGEIT_LONG_CY= 0 ; -if(!qbevent)break;evnt(26070,10844,"ide_methods.bas");}while(r); -S_47992:; -fornext_value5288= 1 ; -fornext_finalvalue5288= 100 ; -fornext_step5288= 1 ; -if (fornext_step5288<0) fornext_step_negative5288=1; else fornext_step_negative5288=0; -if (new_error) goto fornext_error5288; -goto fornext_entrylabel5288; -while(1){ -fornext_value5288=fornext_step5288+(*_FUNC_IDECHANGEIT_LONG_I); -fornext_entrylabel5288: -*_FUNC_IDECHANGEIT_LONG_I=fornext_value5288; -if (fornext_step_negative5288){ -if (fornext_value5288fornext_finalvalue5288) break; -} -fornext_error5288:; -if(qbevent){evnt(26070,10845,"ide_methods.bas");if(r)goto S_47992;} -S_47993:; -if ((*(int32*)(((char*)_FUNC_IDECHANGEIT_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGEIT_LONG_I)-_FUNC_IDECHANGEIT_ARRAY_UDT_O[4],_FUNC_IDECHANGEIT_ARRAY_UDT_O[5]))*89+36)))||new_error){ -if(qbevent){evnt(26070,10846,"ide_methods.bas");if(r)goto S_47993;} -do{ -*(int32*)(((char*)_FUNC_IDECHANGEIT_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGEIT_LONG_I)-_FUNC_IDECHANGEIT_ARRAY_UDT_O[4],_FUNC_IDECHANGEIT_ARRAY_UDT_O[5]))*89+60))=*_FUNC_IDECHANGEIT_LONG_FOCUS-*_FUNC_IDECHANGEIT_LONG_F; -if(!qbevent)break;evnt(26070,10848,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHANGEIT_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGEIT_LONG_I)-_FUNC_IDECHANGEIT_ARRAY_UDT_O[4],_FUNC_IDECHANGEIT_ARRAY_UDT_O[5]))*89+52))= 0 ; -if(!qbevent)break;evnt(26070,10849,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHANGEIT_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGEIT_LONG_I)-_FUNC_IDECHANGEIT_ARRAY_UDT_O[4],_FUNC_IDECHANGEIT_ARRAY_UDT_O[5]))*89+56))= 0 ; -if(!qbevent)break;evnt(26070,10849,"ide_methods.bas");}while(r); -do{ -SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDECHANGEIT_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDECHANGEIT_LONG_I)-_FUNC_IDECHANGEIT_ARRAY_UDT_O[4],_FUNC_IDECHANGEIT_ARRAY_UDT_O[5]))*89) ),_FUNC_IDECHANGEIT_LONG_F); -if(!qbevent)break;evnt(26070,10850,"ide_methods.bas");}while(r); -S_47998:; -if ((*(int32*)(((char*)_FUNC_IDECHANGEIT_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGEIT_LONG_I)-_FUNC_IDECHANGEIT_ARRAY_UDT_O[4],_FUNC_IDECHANGEIT_ARRAY_UDT_O[5]))*89+52)))||new_error){ -if(qbevent){evnt(26070,10851,"ide_methods.bas");if(r)goto S_47998;} -do{ -*_FUNC_IDECHANGEIT_LONG_CX=*(int32*)(((char*)_FUNC_IDECHANGEIT_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGEIT_LONG_I)-_FUNC_IDECHANGEIT_ARRAY_UDT_O[4],_FUNC_IDECHANGEIT_ARRAY_UDT_O[5]))*89+52)); -if(!qbevent)break;evnt(26070,10851,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHANGEIT_LONG_CY=*(int32*)(((char*)_FUNC_IDECHANGEIT_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGEIT_LONG_I)-_FUNC_IDECHANGEIT_ARRAY_UDT_O[4],_FUNC_IDECHANGEIT_ARRAY_UDT_O[5]))*89+56)); -if(!qbevent)break;evnt(26070,10851,"ide_methods.bas");}while(r); -} -} -fornext_continue_5287:; -} -fornext_exit_5287:; -do{ -*_FUNC_IDECHANGEIT_LONG_LASTFOCUS=*_FUNC_IDECHANGEIT_LONG_F- 1 ; -if(!qbevent)break;evnt(26070,10854,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 1 , 0 ); -if(!qbevent)break;evnt(26070,10861,"ide_methods.bas");}while(r); -S_48006:; -if ((*_FUNC_IDECHANGEIT_LONG_CX)||new_error){ -if(qbevent){evnt(26070,10862,"ide_methods.bas");if(r)goto S_48006;} -do{ -qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,10862,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*_FUNC_IDECHANGEIT_LONG_CY,*_FUNC_IDECHANGEIT_LONG_CX, 1 ,NULL,NULL,7); -if(!qbevent)break;evnt(26070,10862,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,10862,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDECHANGEIT_LONG_CHANGE= 0 ; -if(!qbevent)break;evnt(26070,10865,"ide_methods.bas");}while(r); -S_48012:; -do{ -if(qbevent){evnt(26070,10866,"ide_methods.bas");if(r)goto S_48012;} -do{ -SUB_GETINPUT(); -if(!qbevent)break;evnt(26070,10867,"ide_methods.bas");}while(r); -S_48014:; -if ((*__LONG_MWHEEL)||new_error){ -if(qbevent){evnt(26070,10868,"ide_methods.bas");if(r)goto S_48014;} -do{ -*_FUNC_IDECHANGEIT_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,10868,"ide_methods.bas");}while(r); -} -S_48017:; -if ((*__LONG_KB)||new_error){ -if(qbevent){evnt(26070,10869,"ide_methods.bas");if(r)goto S_48017;} -do{ -*_FUNC_IDECHANGEIT_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,10869,"ide_methods.bas");}while(r); -} -S_48020:; -if ((*__LONG_MCLICK)||new_error){ -if(qbevent){evnt(26070,10870,"ide_methods.bas");if(r)goto S_48020;} -do{ -*_FUNC_IDECHANGEIT_LONG_MOUSEDOWN= 1 ; -if(!qbevent)break;evnt(26070,10870,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHANGEIT_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,10870,"ide_methods.bas");}while(r); -} -S_48024:; -if ((*__LONG_MRELEASE)||new_error){ -if(qbevent){evnt(26070,10871,"ide_methods.bas");if(r)goto S_48024;} -do{ -*_FUNC_IDECHANGEIT_LONG_MOUSEUP= 1 ; -if(!qbevent)break;evnt(26070,10871,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHANGEIT_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,10871,"ide_methods.bas");}while(r); -} -S_48028:; -if ((*__LONG_MB)||new_error){ -if(qbevent){evnt(26070,10872,"ide_methods.bas");if(r)goto S_48028;} -do{ -*_FUNC_IDECHANGEIT_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,10872,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDECHANGEIT_LONG_ALT=*__LONG_KALT; -if(!qbevent)break;evnt(26070,10873,"ide_methods.bas");}while(r); -S_48032:; -if ((-(*_FUNC_IDECHANGEIT_LONG_ALT!=*_FUNC_IDECHANGEIT_LONG_OLDALT))||new_error){ -if(qbevent){evnt(26070,10873,"ide_methods.bas");if(r)goto S_48032;} -do{ -*_FUNC_IDECHANGEIT_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,10873,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDECHANGEIT_LONG_OLDALT=*_FUNC_IDECHANGEIT_LONG_ALT; -if(!qbevent)break;evnt(26070,10874,"ide_methods.bas");}while(r); -do{ -sub__limit( 100 ); -if(!qbevent)break;evnt(26070,10875,"ide_methods.bas");}while(r); -S_48037:; -dl_continue_5289:; -}while((!(*_FUNC_IDECHANGEIT_LONG_CHANGE))&&(!new_error)); -dl_exit_5289:; -if(qbevent){evnt(26070,10876,"ide_methods.bas");if(r)goto S_48037;} -S_48038:; -if ((*_FUNC_IDECHANGEIT_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(26070,10877,"ide_methods.bas");if(r)goto S_48038;} -do{ -*__LONG_IDEHL= 1 ; -if(!qbevent)break;evnt(26070,10877,"ide_methods.bas");}while(r); -}else{ -do{ -*__LONG_IDEHL= 0 ; -if(!qbevent)break;evnt(26070,10877,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDECHANGEIT_STRING_ALTLETTER,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10879,"ide_methods.bas");}while(r); -S_48044:; -if ((*_FUNC_IDECHANGEIT_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(26070,10880,"ide_methods.bas");if(r)goto S_48044;} -S_48045:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ -if(qbevent){evnt(26070,10881,"ide_methods.bas");if(r)goto S_48045;} -do{ -*_FUNC_IDECHANGEIT_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10882,"ide_methods.bas");}while(r); -S_48047:; -if (((-(*_FUNC_IDECHANGEIT_LONG_K>= 65 ))&(-(*_FUNC_IDECHANGEIT_LONG_K<= 90 )))||new_error){ -if(qbevent){evnt(26070,10883,"ide_methods.bas");if(r)goto S_48047;} -do{ -qbs_set(_FUNC_IDECHANGEIT_STRING_ALTLETTER,func_chr(*_FUNC_IDECHANGEIT_LONG_K)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10883,"ide_methods.bas");}while(r); -} -} -} -do{ -qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,10886,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); -if(!qbevent)break;evnt(26070,10886,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,10886,"ide_methods.bas");}while(r); -S_48055:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("C",1))))||new_error){ -if(qbevent){evnt(26070,10889,"ide_methods.bas");if(r)goto S_48055;} -do{ -qbs_set(_FUNC_IDECHANGEIT_STRING_ALTLETTER,qbs_new_txt_len("C",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10889,"ide_methods.bas");}while(r); -} -S_48058:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("S",1))))||new_error){ -if(qbevent){evnt(26070,10890,"ide_methods.bas");if(r)goto S_48058;} -do{ -qbs_set(_FUNC_IDECHANGEIT_STRING_ALTLETTER,qbs_new_txt_len("S",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10890,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDECHANGEIT_LONG_INFO= 0 ; -if(!qbevent)break;evnt(26070,10893,"ide_methods.bas");}while(r); -S_48062:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,10894,"ide_methods.bas");if(r)goto S_48062;} -do{ -qbs_set(__STRING_K,func_chr( 255 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10894,"ide_methods.bas");}while(r); -} -S_48065:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ -if(qbevent){evnt(26070,10895,"ide_methods.bas");if(r)goto S_48065;} -do{ -*_FUNC_IDECHANGEIT_LONG_FOCUS=*_FUNC_IDECHANGEIT_LONG_FOCUS+ 1 ; -if(!qbevent)break;evnt(26070,10895,"ide_methods.bas");}while(r); -} -S_48068:; -if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||new_error){ -if(qbevent){evnt(26070,10896,"ide_methods.bas");if(r)goto S_48068;} -do{ -*_FUNC_IDECHANGEIT_LONG_FOCUS=*_FUNC_IDECHANGEIT_LONG_FOCUS- 1 ; -if(!qbevent)break;evnt(26070,10896,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_K,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10896,"ide_methods.bas");}while(r); -} -S_48072:; -if ((-(*_FUNC_IDECHANGEIT_LONG_FOCUS< 1 ))||new_error){ -if(qbevent){evnt(26070,10897,"ide_methods.bas");if(r)goto S_48072;} -do{ -*_FUNC_IDECHANGEIT_LONG_FOCUS=*_FUNC_IDECHANGEIT_LONG_LASTFOCUS; -if(!qbevent)break;evnt(26070,10897,"ide_methods.bas");}while(r); -} -S_48075:; -if ((-(*_FUNC_IDECHANGEIT_LONG_FOCUS>*_FUNC_IDECHANGEIT_LONG_LASTFOCUS))||new_error){ -if(qbevent){evnt(26070,10898,"ide_methods.bas");if(r)goto S_48075;} -do{ -*_FUNC_IDECHANGEIT_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(26070,10898,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDECHANGEIT_LONG_F= 1 ; -if(!qbevent)break;evnt(26070,10899,"ide_methods.bas");}while(r); -S_48079:; -fornext_value5292= 1 ; -fornext_finalvalue5292= 100 ; -fornext_step5292= 1 ; -if (fornext_step5292<0) fornext_step_negative5292=1; else fornext_step_negative5292=0; -if (new_error) goto fornext_error5292; -goto fornext_entrylabel5292; -while(1){ -fornext_value5292=fornext_step5292+(*_FUNC_IDECHANGEIT_LONG_I); -fornext_entrylabel5292: -*_FUNC_IDECHANGEIT_LONG_I=fornext_value5292; -if (fornext_step_negative5292){ -if (fornext_value5292fornext_finalvalue5292) break; -} -fornext_error5292:; -if(qbevent){evnt(26070,10900,"ide_methods.bas");if(r)goto S_48079;} -do{ -*_FUNC_IDECHANGEIT_LONG_T=*(int32*)(((char*)_FUNC_IDECHANGEIT_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGEIT_LONG_I)-_FUNC_IDECHANGEIT_ARRAY_UDT_O[4],_FUNC_IDECHANGEIT_ARRAY_UDT_O[5]))*89+36)); -if(!qbevent)break;evnt(26070,10901,"ide_methods.bas");}while(r); -S_48081:; -if ((*_FUNC_IDECHANGEIT_LONG_T)||new_error){ -if(qbevent){evnt(26070,10902,"ide_methods.bas");if(r)goto S_48081;} -do{ -*_FUNC_IDECHANGEIT_LONG_FOCUSOFFSET=*_FUNC_IDECHANGEIT_LONG_FOCUS-*_FUNC_IDECHANGEIT_LONG_F; -if(!qbevent)break;evnt(26070,10903,"ide_methods.bas");}while(r); -do{ -SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDECHANGEIT_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDECHANGEIT_LONG_I)-_FUNC_IDECHANGEIT_ARRAY_UDT_O[4],_FUNC_IDECHANGEIT_ARRAY_UDT_O[5]))*89) ),_FUNC_IDECHANGEIT_LONG_FOCUS,_FUNC_IDECHANGEIT_LONG_F,_FUNC_IDECHANGEIT_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDECHANGEIT_STRING_ALTLETTER,__LONG_MB,_FUNC_IDECHANGEIT_LONG_MOUSEDOWN,_FUNC_IDECHANGEIT_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDECHANGEIT_LONG_INFO,__LONG_MWHEEL); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10904,"ide_methods.bas");}while(r); -} -fornext_continue_5291:; -} -fornext_exit_5291:; -S_48086:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,func_chr( 27 ))))||new_error){ -if(qbevent){evnt(26070,10909,"ide_methods.bas");if(r)goto S_48086;} -do{ -qbs_set(_FUNC_IDECHANGEIT_STRING_IDECHANGEIT,qbs_new_txt_len("C",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10910,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,10911,"ide_methods.bas");}while(r); -} -S_48090:; -if ((*_FUNC_IDECHANGEIT_LONG_INFO)||new_error){ -if(qbevent){evnt(26070,10914,"ide_methods.bas");if(r)goto S_48090;} -S_48091:; -if ((-(*_FUNC_IDECHANGEIT_LONG_INFO== 1 ))||new_error){ -if(qbevent){evnt(26070,10915,"ide_methods.bas");if(r)goto S_48091;} -do{ -qbs_set(_FUNC_IDECHANGEIT_STRING_IDECHANGEIT,qbs_new_txt_len("Y",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10915,"ide_methods.bas");}while(r); -} -S_48094:; -if ((-(*_FUNC_IDECHANGEIT_LONG_INFO== 2 ))||new_error){ -if(qbevent){evnt(26070,10916,"ide_methods.bas");if(r)goto S_48094;} -do{ -qbs_set(_FUNC_IDECHANGEIT_STRING_IDECHANGEIT,qbs_new_txt_len("N",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10916,"ide_methods.bas");}while(r); -} -S_48097:; -if ((-(*_FUNC_IDECHANGEIT_LONG_INFO== 3 ))||new_error){ -if(qbevent){evnt(26070,10917,"ide_methods.bas");if(r)goto S_48097;} -do{ -qbs_set(_FUNC_IDECHANGEIT_STRING_IDECHANGEIT,qbs_new_txt_len("C",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10917,"ide_methods.bas");}while(r); -} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,10918,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDECHANGEIT_LONG_MOUSEDOWN= 0 ; -if(!qbevent)break;evnt(26070,10922,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHANGEIT_LONG_MOUSEUP= 0 ; -if(!qbevent)break;evnt(26070,10923,"ide_methods.bas");}while(r); -dl_continue_5286:; -}while(1); -dl_exit_5286:; -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free187.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_IDECHANGEIT_STRING_IDECHANGEIT);return _FUNC_IDECHANGEIT_STRING_IDECHANGEIT; -} -void SUB_IDEDELLINE(int32*_SUB_IDEDELLINE_LONG_I){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data188.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -S_48105:; -fornext_value5294= 1 ; -fornext_finalvalue5294=*__LONG_IDEBMKN; -fornext_step5294= 1 ; -if (fornext_step5294<0) fornext_step_negative5294=1; else fornext_step_negative5294=0; -if (new_error) goto fornext_error5294; -goto fornext_entrylabel5294; -while(1){ -fornext_value5294=fornext_step5294+(*_SUB_IDEDELLINE_LONG_B); -fornext_entrylabel5294: -*_SUB_IDEDELLINE_LONG_B=fornext_value5294; -if (fornext_step_negative5294){ -if (fornext_value5294fornext_finalvalue5294) break; -} -fornext_error5294:; -if(qbevent){evnt(26070,10931,"ide_methods.bas");if(r)goto S_48105;} -S_48106:; -if ((-(*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_SUB_IDEDELLINE_LONG_B)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16))>=*_SUB_IDEDELLINE_LONG_I))||new_error){ -if(qbevent){evnt(26070,10932,"ide_methods.bas");if(r)goto S_48106;} -do{ -*_SUB_IDEDELLINE_LONG_Y=*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_SUB_IDEDELLINE_LONG_B)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16))- 1 ; -if(!qbevent)break;evnt(26070,10933,"ide_methods.bas");}while(r); -S_48108:; -if ((-(*_SUB_IDEDELLINE_LONG_Y== 0 ))||new_error){ -if(qbevent){evnt(26070,10933,"ide_methods.bas");if(r)goto S_48108;} -do{ -*_SUB_IDEDELLINE_LONG_Y= 1 ; -if(!qbevent)break;evnt(26070,10933,"ide_methods.bas");}while(r); -} -do{ -*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_SUB_IDEDELLINE_LONG_B)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16))=*_SUB_IDEDELLINE_LONG_Y; -if(!qbevent)break;evnt(26070,10934,"ide_methods.bas");}while(r); -} -fornext_continue_5293:; -} -fornext_exit_5293:; -S_48114:; -if ((*__LONG_VWATCHON)||new_error){ -if(qbevent){evnt(26070,10938,"ide_methods.bas");if(r)goto S_48114;} -S_48115:; -if (((-(*__LONG_IDEN>func_ubound(__ARRAY_BYTE_IDEBREAKPOINTS,1,1)))|(-(*__LONG_IDEN>func_ubound(__ARRAY_BYTE_IDESKIPLINES,1,1))))||new_error){ -if(qbevent){evnt(26070,10939,"ide_methods.bas");if(r)goto S_48115;} -do{ +} +if(!qbevent)break;evnt(26070,10815,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26070,10816,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHANGEIT_STRING1_SEP,func_chr( 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10817,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHANGEIT_LONG_I= 0 ; +if(!qbevent)break;evnt(26070,10821,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHANGEIT_LONG_W= 45 ; +if(!qbevent)break;evnt(26070,10822,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHANGEIT_UDT_P)+(0))=( 40 )-(*_FUNC_IDECHANGEIT_LONG_W/ 2 ); +if(!qbevent)break;evnt(26070,10823,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHANGEIT_UDT_P)+(4))=*__LONG_IDEWY- 4 ; +if(!qbevent)break;evnt(26070,10824,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHANGEIT_UDT_P)+(8))=*_FUNC_IDECHANGEIT_LONG_W; +if(!qbevent)break;evnt(26070,10825,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHANGEIT_UDT_P)+(12))= 2 ; +if(!qbevent)break;evnt(26070,10826,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHANGEIT_UDT_P)+(16))=FUNC_IDENEWTXT(qbs_new_txt_len("Change",6)); +if(!qbevent)break;evnt(26070,10827,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHANGEIT_LONG_I=*_FUNC_IDECHANGEIT_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,10829,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHANGEIT_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGEIT_LONG_I)-_FUNC_IDECHANGEIT_ARRAY_UDT_O[4],_FUNC_IDECHANGEIT_ARRAY_UDT_O[5]))*89+36))= 3 ; +if(!qbevent)break;evnt(26070,10830,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHANGEIT_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGEIT_LONG_I)-_FUNC_IDECHANGEIT_ARRAY_UDT_O[4],_FUNC_IDECHANGEIT_ARRAY_UDT_O[5]))*89+24))= 2 ; +if(!qbevent)break;evnt(26070,10831,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHANGEIT_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGEIT_LONG_I)-_FUNC_IDECHANGEIT_ARRAY_UDT_O[4],_FUNC_IDECHANGEIT_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("#Change",7),_FUNC_IDECHANGEIT_STRING1_SEP),qbs_new_txt_len("#Skip",5)),_FUNC_IDECHANGEIT_STRING1_SEP),qbs_new_txt_len("Cancel",6))); +if(!qbevent)break;evnt(26070,10832,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHANGEIT_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGEIT_LONG_I)-_FUNC_IDECHANGEIT_ARRAY_UDT_O[4],_FUNC_IDECHANGEIT_ARRAY_UDT_O[5]))*89+48))= 1 ; +if(!qbevent)break;evnt(26070,10833,"ide_methods.bas");}while(r); +S_47984:; +fornext_value5285= 1 ; +fornext_finalvalue5285= 100 ; +fornext_step5285= 1 ; +if (fornext_step5285<0) fornext_step_negative5285=1; else fornext_step_negative5285=0; +if (new_error) goto fornext_error5285; +goto fornext_entrylabel5285; +while(1){ +fornext_value5285=fornext_step5285+(*_FUNC_IDECHANGEIT_LONG_I); +fornext_entrylabel5285: +*_FUNC_IDECHANGEIT_LONG_I=fornext_value5285; +if (fornext_step_negative5285){ +if (fornext_value5285fornext_finalvalue5285) break; +} +fornext_error5285:; +if(qbevent){evnt(26070,10837,"ide_methods.bas");if(r)goto S_47984;} +do{ +memcpy(((char*)_FUNC_IDECHANGEIT_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGEIT_LONG_I)-_FUNC_IDECHANGEIT_ARRAY_UDT_O[4],_FUNC_IDECHANGEIT_ARRAY_UDT_O[5]))*89)+ 0,((char*)_FUNC_IDECHANGEIT_UDT_P)+(0)+ 0, 20); +if(!qbevent)break;evnt(26070,10837,"ide_methods.bas");}while(r); +fornext_continue_5284:; +} +fornext_exit_5284:; +S_47987:; +do{ +if(qbevent){evnt(26070,10840,"ide_methods.bas");if(r)goto S_47987;} +do{ +SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDECHANGEIT_UDT_P)) + (0) )); +if(!qbevent)break;evnt(26070,10843,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHANGEIT_LONG_F= 1 ; +if(!qbevent)break;evnt(26070,10844,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHANGEIT_LONG_CX= 0 ; +if(!qbevent)break;evnt(26070,10844,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHANGEIT_LONG_CY= 0 ; +if(!qbevent)break;evnt(26070,10844,"ide_methods.bas");}while(r); +S_47992:; +fornext_value5288= 1 ; +fornext_finalvalue5288= 100 ; +fornext_step5288= 1 ; +if (fornext_step5288<0) fornext_step_negative5288=1; else fornext_step_negative5288=0; +if (new_error) goto fornext_error5288; +goto fornext_entrylabel5288; +while(1){ +fornext_value5288=fornext_step5288+(*_FUNC_IDECHANGEIT_LONG_I); +fornext_entrylabel5288: +*_FUNC_IDECHANGEIT_LONG_I=fornext_value5288; +if (fornext_step_negative5288){ +if (fornext_value5288fornext_finalvalue5288) break; +} +fornext_error5288:; +if(qbevent){evnt(26070,10845,"ide_methods.bas");if(r)goto S_47992;} +S_47993:; +if ((*(int32*)(((char*)_FUNC_IDECHANGEIT_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGEIT_LONG_I)-_FUNC_IDECHANGEIT_ARRAY_UDT_O[4],_FUNC_IDECHANGEIT_ARRAY_UDT_O[5]))*89+36)))||new_error){ +if(qbevent){evnt(26070,10846,"ide_methods.bas");if(r)goto S_47993;} +do{ +*(int32*)(((char*)_FUNC_IDECHANGEIT_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGEIT_LONG_I)-_FUNC_IDECHANGEIT_ARRAY_UDT_O[4],_FUNC_IDECHANGEIT_ARRAY_UDT_O[5]))*89+60))=*_FUNC_IDECHANGEIT_LONG_FOCUS-*_FUNC_IDECHANGEIT_LONG_F; +if(!qbevent)break;evnt(26070,10848,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHANGEIT_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGEIT_LONG_I)-_FUNC_IDECHANGEIT_ARRAY_UDT_O[4],_FUNC_IDECHANGEIT_ARRAY_UDT_O[5]))*89+52))= 0 ; +if(!qbevent)break;evnt(26070,10849,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHANGEIT_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGEIT_LONG_I)-_FUNC_IDECHANGEIT_ARRAY_UDT_O[4],_FUNC_IDECHANGEIT_ARRAY_UDT_O[5]))*89+56))= 0 ; +if(!qbevent)break;evnt(26070,10849,"ide_methods.bas");}while(r); +do{ +SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDECHANGEIT_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDECHANGEIT_LONG_I)-_FUNC_IDECHANGEIT_ARRAY_UDT_O[4],_FUNC_IDECHANGEIT_ARRAY_UDT_O[5]))*89) ),_FUNC_IDECHANGEIT_LONG_F); +if(!qbevent)break;evnt(26070,10850,"ide_methods.bas");}while(r); +S_47998:; +if ((*(int32*)(((char*)_FUNC_IDECHANGEIT_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGEIT_LONG_I)-_FUNC_IDECHANGEIT_ARRAY_UDT_O[4],_FUNC_IDECHANGEIT_ARRAY_UDT_O[5]))*89+52)))||new_error){ +if(qbevent){evnt(26070,10851,"ide_methods.bas");if(r)goto S_47998;} +do{ +*_FUNC_IDECHANGEIT_LONG_CX=*(int32*)(((char*)_FUNC_IDECHANGEIT_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGEIT_LONG_I)-_FUNC_IDECHANGEIT_ARRAY_UDT_O[4],_FUNC_IDECHANGEIT_ARRAY_UDT_O[5]))*89+52)); +if(!qbevent)break;evnt(26070,10851,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHANGEIT_LONG_CY=*(int32*)(((char*)_FUNC_IDECHANGEIT_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGEIT_LONG_I)-_FUNC_IDECHANGEIT_ARRAY_UDT_O[4],_FUNC_IDECHANGEIT_ARRAY_UDT_O[5]))*89+56)); +if(!qbevent)break;evnt(26070,10851,"ide_methods.bas");}while(r); +} +} +fornext_continue_5287:; +} +fornext_exit_5287:; +do{ +*_FUNC_IDECHANGEIT_LONG_LASTFOCUS=*_FUNC_IDECHANGEIT_LONG_F- 1 ; +if(!qbevent)break;evnt(26070,10854,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 1 , 0 ); +if(!qbevent)break;evnt(26070,10861,"ide_methods.bas");}while(r); +S_48006:; +if ((*_FUNC_IDECHANGEIT_LONG_CX)||new_error){ +if(qbevent){evnt(26070,10862,"ide_methods.bas");if(r)goto S_48006;} +do{ +qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,10862,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(*_FUNC_IDECHANGEIT_LONG_CY,*_FUNC_IDECHANGEIT_LONG_CX, 1 ,NULL,NULL,7); +if(!qbevent)break;evnt(26070,10862,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,10862,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDECHANGEIT_LONG_CHANGE= 0 ; +if(!qbevent)break;evnt(26070,10865,"ide_methods.bas");}while(r); +S_48012:; +do{ +if(qbevent){evnt(26070,10866,"ide_methods.bas");if(r)goto S_48012;} +do{ +SUB_GETINPUT(); +if(!qbevent)break;evnt(26070,10867,"ide_methods.bas");}while(r); +S_48014:; +if ((*__LONG_MWHEEL)||new_error){ +if(qbevent){evnt(26070,10868,"ide_methods.bas");if(r)goto S_48014;} +do{ +*_FUNC_IDECHANGEIT_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,10868,"ide_methods.bas");}while(r); +} +S_48017:; +if ((*__LONG_KB)||new_error){ +if(qbevent){evnt(26070,10869,"ide_methods.bas");if(r)goto S_48017;} +do{ +*_FUNC_IDECHANGEIT_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,10869,"ide_methods.bas");}while(r); +} +S_48020:; +if ((*__LONG_MCLICK)||new_error){ +if(qbevent){evnt(26070,10870,"ide_methods.bas");if(r)goto S_48020;} +do{ +*_FUNC_IDECHANGEIT_LONG_MOUSEDOWN= 1 ; +if(!qbevent)break;evnt(26070,10870,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHANGEIT_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,10870,"ide_methods.bas");}while(r); +} +S_48024:; +if ((*__LONG_MRELEASE)||new_error){ +if(qbevent){evnt(26070,10871,"ide_methods.bas");if(r)goto S_48024;} +do{ +*_FUNC_IDECHANGEIT_LONG_MOUSEUP= 1 ; +if(!qbevent)break;evnt(26070,10871,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHANGEIT_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,10871,"ide_methods.bas");}while(r); +} +S_48028:; +if ((*__LONG_MB)||new_error){ +if(qbevent){evnt(26070,10872,"ide_methods.bas");if(r)goto S_48028;} +do{ +*_FUNC_IDECHANGEIT_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,10872,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDECHANGEIT_LONG_ALT=*__LONG_KALT; +if(!qbevent)break;evnt(26070,10873,"ide_methods.bas");}while(r); +S_48032:; +if ((-(*_FUNC_IDECHANGEIT_LONG_ALT!=*_FUNC_IDECHANGEIT_LONG_OLDALT))||new_error){ +if(qbevent){evnt(26070,10873,"ide_methods.bas");if(r)goto S_48032;} +do{ +*_FUNC_IDECHANGEIT_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,10873,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDECHANGEIT_LONG_OLDALT=*_FUNC_IDECHANGEIT_LONG_ALT; +if(!qbevent)break;evnt(26070,10874,"ide_methods.bas");}while(r); +do{ +sub__limit( 100 ); +if(!qbevent)break;evnt(26070,10875,"ide_methods.bas");}while(r); +S_48037:; +dl_continue_5289:; +}while((!(*_FUNC_IDECHANGEIT_LONG_CHANGE))&&(!new_error)); +dl_exit_5289:; +if(qbevent){evnt(26070,10876,"ide_methods.bas");if(r)goto S_48037;} +S_48038:; +if ((*_FUNC_IDECHANGEIT_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ +if(qbevent){evnt(26070,10877,"ide_methods.bas");if(r)goto S_48038;} +do{ +*__LONG_IDEHL= 1 ; +if(!qbevent)break;evnt(26070,10877,"ide_methods.bas");}while(r); +}else{ +do{ +*__LONG_IDEHL= 0 ; +if(!qbevent)break;evnt(26070,10877,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDECHANGEIT_STRING_ALTLETTER,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10879,"ide_methods.bas");}while(r); +S_48044:; +if ((*_FUNC_IDECHANGEIT_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ +if(qbevent){evnt(26070,10880,"ide_methods.bas");if(r)goto S_48044;} +S_48045:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ +if(qbevent){evnt(26070,10881,"ide_methods.bas");if(r)goto S_48045;} +do{ +*_FUNC_IDECHANGEIT_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10882,"ide_methods.bas");}while(r); +S_48047:; +if (((-(*_FUNC_IDECHANGEIT_LONG_K>= 65 ))&(-(*_FUNC_IDECHANGEIT_LONG_K<= 90 )))||new_error){ +if(qbevent){evnt(26070,10883,"ide_methods.bas");if(r)goto S_48047;} +do{ +qbs_set(_FUNC_IDECHANGEIT_STRING_ALTLETTER,func_chr(*_FUNC_IDECHANGEIT_LONG_K)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10883,"ide_methods.bas");}while(r); +} +} +} +do{ +qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,10886,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); +if(!qbevent)break;evnt(26070,10886,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,10886,"ide_methods.bas");}while(r); +S_48055:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("C",1))))||new_error){ +if(qbevent){evnt(26070,10889,"ide_methods.bas");if(r)goto S_48055;} +do{ +qbs_set(_FUNC_IDECHANGEIT_STRING_ALTLETTER,qbs_new_txt_len("C",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10889,"ide_methods.bas");}while(r); +} +S_48058:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("S",1))))||new_error){ +if(qbevent){evnt(26070,10890,"ide_methods.bas");if(r)goto S_48058;} +do{ +qbs_set(_FUNC_IDECHANGEIT_STRING_ALTLETTER,qbs_new_txt_len("S",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10890,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDECHANGEIT_LONG_INFO= 0 ; +if(!qbevent)break;evnt(26070,10893,"ide_methods.bas");}while(r); +S_48062:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,10894,"ide_methods.bas");if(r)goto S_48062;} +do{ +qbs_set(__STRING_K,func_chr( 255 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10894,"ide_methods.bas");}while(r); +} +S_48065:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ +if(qbevent){evnt(26070,10895,"ide_methods.bas");if(r)goto S_48065;} +do{ +*_FUNC_IDECHANGEIT_LONG_FOCUS=*_FUNC_IDECHANGEIT_LONG_FOCUS+ 1 ; +if(!qbevent)break;evnt(26070,10895,"ide_methods.bas");}while(r); +} +S_48068:; +if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||new_error){ +if(qbevent){evnt(26070,10896,"ide_methods.bas");if(r)goto S_48068;} +do{ +*_FUNC_IDECHANGEIT_LONG_FOCUS=*_FUNC_IDECHANGEIT_LONG_FOCUS- 1 ; +if(!qbevent)break;evnt(26070,10896,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_K,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10896,"ide_methods.bas");}while(r); +} +S_48072:; +if ((-(*_FUNC_IDECHANGEIT_LONG_FOCUS< 1 ))||new_error){ +if(qbevent){evnt(26070,10897,"ide_methods.bas");if(r)goto S_48072;} +do{ +*_FUNC_IDECHANGEIT_LONG_FOCUS=*_FUNC_IDECHANGEIT_LONG_LASTFOCUS; +if(!qbevent)break;evnt(26070,10897,"ide_methods.bas");}while(r); +} +S_48075:; +if ((-(*_FUNC_IDECHANGEIT_LONG_FOCUS>*_FUNC_IDECHANGEIT_LONG_LASTFOCUS))||new_error){ +if(qbevent){evnt(26070,10898,"ide_methods.bas");if(r)goto S_48075;} +do{ +*_FUNC_IDECHANGEIT_LONG_FOCUS= 1 ; +if(!qbevent)break;evnt(26070,10898,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDECHANGEIT_LONG_F= 1 ; +if(!qbevent)break;evnt(26070,10899,"ide_methods.bas");}while(r); +S_48079:; +fornext_value5292= 1 ; +fornext_finalvalue5292= 100 ; +fornext_step5292= 1 ; +if (fornext_step5292<0) fornext_step_negative5292=1; else fornext_step_negative5292=0; +if (new_error) goto fornext_error5292; +goto fornext_entrylabel5292; +while(1){ +fornext_value5292=fornext_step5292+(*_FUNC_IDECHANGEIT_LONG_I); +fornext_entrylabel5292: +*_FUNC_IDECHANGEIT_LONG_I=fornext_value5292; +if (fornext_step_negative5292){ +if (fornext_value5292fornext_finalvalue5292) break; +} +fornext_error5292:; +if(qbevent){evnt(26070,10900,"ide_methods.bas");if(r)goto S_48079;} +do{ +*_FUNC_IDECHANGEIT_LONG_T=*(int32*)(((char*)_FUNC_IDECHANGEIT_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHANGEIT_LONG_I)-_FUNC_IDECHANGEIT_ARRAY_UDT_O[4],_FUNC_IDECHANGEIT_ARRAY_UDT_O[5]))*89+36)); +if(!qbevent)break;evnt(26070,10901,"ide_methods.bas");}while(r); +S_48081:; +if ((*_FUNC_IDECHANGEIT_LONG_T)||new_error){ +if(qbevent){evnt(26070,10902,"ide_methods.bas");if(r)goto S_48081;} +do{ +*_FUNC_IDECHANGEIT_LONG_FOCUSOFFSET=*_FUNC_IDECHANGEIT_LONG_FOCUS-*_FUNC_IDECHANGEIT_LONG_F; +if(!qbevent)break;evnt(26070,10903,"ide_methods.bas");}while(r); +do{ +SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDECHANGEIT_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDECHANGEIT_LONG_I)-_FUNC_IDECHANGEIT_ARRAY_UDT_O[4],_FUNC_IDECHANGEIT_ARRAY_UDT_O[5]))*89) ),_FUNC_IDECHANGEIT_LONG_FOCUS,_FUNC_IDECHANGEIT_LONG_F,_FUNC_IDECHANGEIT_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDECHANGEIT_STRING_ALTLETTER,__LONG_MB,_FUNC_IDECHANGEIT_LONG_MOUSEDOWN,_FUNC_IDECHANGEIT_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDECHANGEIT_LONG_INFO,__LONG_MWHEEL); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10904,"ide_methods.bas");}while(r); +} +fornext_continue_5291:; +} +fornext_exit_5291:; +S_48086:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,func_chr( 27 ))))||new_error){ +if(qbevent){evnt(26070,10909,"ide_methods.bas");if(r)goto S_48086;} +do{ +qbs_set(_FUNC_IDECHANGEIT_STRING_IDECHANGEIT,qbs_new_txt_len("C",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10910,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,10911,"ide_methods.bas");}while(r); +} +S_48090:; +if ((*_FUNC_IDECHANGEIT_LONG_INFO)||new_error){ +if(qbevent){evnt(26070,10914,"ide_methods.bas");if(r)goto S_48090;} +S_48091:; +if ((-(*_FUNC_IDECHANGEIT_LONG_INFO== 1 ))||new_error){ +if(qbevent){evnt(26070,10915,"ide_methods.bas");if(r)goto S_48091;} +do{ +qbs_set(_FUNC_IDECHANGEIT_STRING_IDECHANGEIT,qbs_new_txt_len("Y",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10915,"ide_methods.bas");}while(r); +} +S_48094:; +if ((-(*_FUNC_IDECHANGEIT_LONG_INFO== 2 ))||new_error){ +if(qbevent){evnt(26070,10916,"ide_methods.bas");if(r)goto S_48094;} +do{ +qbs_set(_FUNC_IDECHANGEIT_STRING_IDECHANGEIT,qbs_new_txt_len("N",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10916,"ide_methods.bas");}while(r); +} +S_48097:; +if ((-(*_FUNC_IDECHANGEIT_LONG_INFO== 3 ))||new_error){ +if(qbevent){evnt(26070,10917,"ide_methods.bas");if(r)goto S_48097;} +do{ +qbs_set(_FUNC_IDECHANGEIT_STRING_IDECHANGEIT,qbs_new_txt_len("C",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10917,"ide_methods.bas");}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,10918,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDECHANGEIT_LONG_MOUSEDOWN= 0 ; +if(!qbevent)break;evnt(26070,10922,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHANGEIT_LONG_MOUSEUP= 0 ; +if(!qbevent)break;evnt(26070,10923,"ide_methods.bas");}while(r); +dl_continue_5286:; +}while(1); +dl_exit_5286:; +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free187.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_IDECHANGEIT_STRING_IDECHANGEIT);return _FUNC_IDECHANGEIT_STRING_IDECHANGEIT; +} +void SUB_IDEDELLINE(int32*_SUB_IDEDELLINE_LONG_I){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data188.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +S_48105:; +fornext_value5294= 1 ; +fornext_finalvalue5294=*__LONG_IDEBMKN; +fornext_step5294= 1 ; +if (fornext_step5294<0) fornext_step_negative5294=1; else fornext_step_negative5294=0; +if (new_error) goto fornext_error5294; +goto fornext_entrylabel5294; +while(1){ +fornext_value5294=fornext_step5294+(*_SUB_IDEDELLINE_LONG_B); +fornext_entrylabel5294: +*_SUB_IDEDELLINE_LONG_B=fornext_value5294; +if (fornext_step_negative5294){ +if (fornext_value5294fornext_finalvalue5294) break; +} +fornext_error5294:; +if(qbevent){evnt(26070,10931,"ide_methods.bas");if(r)goto S_48105;} +S_48106:; +if ((-(*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_SUB_IDEDELLINE_LONG_B)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16))>=*_SUB_IDEDELLINE_LONG_I))||new_error){ +if(qbevent){evnt(26070,10932,"ide_methods.bas");if(r)goto S_48106;} +do{ +*_SUB_IDEDELLINE_LONG_Y=*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_SUB_IDEDELLINE_LONG_B)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16))- 1 ; +if(!qbevent)break;evnt(26070,10933,"ide_methods.bas");}while(r); +S_48108:; +if ((-(*_SUB_IDEDELLINE_LONG_Y== 0 ))||new_error){ +if(qbevent){evnt(26070,10933,"ide_methods.bas");if(r)goto S_48108;} +do{ +*_SUB_IDEDELLINE_LONG_Y= 1 ; +if(!qbevent)break;evnt(26070,10933,"ide_methods.bas");}while(r); +} +do{ +*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_SUB_IDEDELLINE_LONG_B)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16))=*_SUB_IDEDELLINE_LONG_Y; +if(!qbevent)break;evnt(26070,10934,"ide_methods.bas");}while(r); +} +fornext_continue_5293:; +} +fornext_exit_5293:; +S_48114:; +if ((*__LONG_VWATCHON)||new_error){ +if(qbevent){evnt(26070,10938,"ide_methods.bas");if(r)goto S_48114;} +S_48115:; +if (((-(*__LONG_IDEN>func_ubound(__ARRAY_BYTE_IDEBREAKPOINTS,1,1)))|(-(*__LONG_IDEN>func_ubound(__ARRAY_BYTE_IDESKIPLINES,1,1))))||new_error){ +if(qbevent){evnt(26070,10939,"ide_methods.bas");if(r)goto S_48115;} +do{ if (__ARRAY_BYTE_IDEBREAKPOINTS[2]&2){ error(10); @@ -161148,9 +161148,9 @@ if (!__ARRAY_BYTE_IDEBREAKPOINTS[0]) error(257); } } __ARRAY_BYTE_IDEBREAKPOINTS[2]|=1; -} -if(!qbevent)break;evnt(26070,10940,"ide_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26070,10940,"ide_methods.bas");}while(r); +do{ if (__ARRAY_BYTE_IDESKIPLINES[2]&2){ error(10); @@ -161188,34 +161188,34 @@ if (!__ARRAY_BYTE_IDESKIPLINES[0]) error(257); } } __ARRAY_BYTE_IDESKIPLINES[2]|=1; -} -if(!qbevent)break;evnt(26070,10941,"ide_methods.bas");}while(r); -} -S_48119:; -fornext_value5296=*_SUB_IDEDELLINE_LONG_I; -fornext_finalvalue5296=*__LONG_IDEN- 1 ; -fornext_step5296= 1 ; -if (fornext_step5296<0) fornext_step_negative5296=1; else fornext_step_negative5296=0; -if (new_error) goto fornext_error5296; -goto fornext_entrylabel5296; -while(1){ -fornext_value5296=fornext_step5296+(*_SUB_IDEDELLINE_LONG_B); -fornext_entrylabel5296: -*_SUB_IDEDELLINE_LONG_B=fornext_value5296; -if (fornext_step_negative5296){ -if (fornext_value5296fornext_finalvalue5296) break; -} -fornext_error5296:; -if(qbevent){evnt(26070,10944,"ide_methods.bas");if(r)goto S_48119;} -do{ -swap_8(&((int8*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]))[array_check((*_SUB_IDEDELLINE_LONG_B)-__ARRAY_BYTE_IDEBREAKPOINTS[4],__ARRAY_BYTE_IDEBREAKPOINTS[5])],&((int8*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]))[array_check((*_SUB_IDEDELLINE_LONG_B+ 1 )-__ARRAY_BYTE_IDEBREAKPOINTS[4],__ARRAY_BYTE_IDEBREAKPOINTS[5])]); -if(!qbevent)break;evnt(26070,10945,"ide_methods.bas");}while(r); -fornext_continue_5295:; -} -fornext_exit_5295:; -do{ +} +if(!qbevent)break;evnt(26070,10941,"ide_methods.bas");}while(r); +} +S_48119:; +fornext_value5296=*_SUB_IDEDELLINE_LONG_I; +fornext_finalvalue5296=*__LONG_IDEN- 1 ; +fornext_step5296= 1 ; +if (fornext_step5296<0) fornext_step_negative5296=1; else fornext_step_negative5296=0; +if (new_error) goto fornext_error5296; +goto fornext_entrylabel5296; +while(1){ +fornext_value5296=fornext_step5296+(*_SUB_IDEDELLINE_LONG_B); +fornext_entrylabel5296: +*_SUB_IDEDELLINE_LONG_B=fornext_value5296; +if (fornext_step_negative5296){ +if (fornext_value5296fornext_finalvalue5296) break; +} +fornext_error5296:; +if(qbevent){evnt(26070,10944,"ide_methods.bas");if(r)goto S_48119;} +do{ +swap_8(&((int8*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]))[array_check((*_SUB_IDEDELLINE_LONG_B)-__ARRAY_BYTE_IDEBREAKPOINTS[4],__ARRAY_BYTE_IDEBREAKPOINTS[5])],&((int8*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]))[array_check((*_SUB_IDEDELLINE_LONG_B+ 1 )-__ARRAY_BYTE_IDEBREAKPOINTS[4],__ARRAY_BYTE_IDEBREAKPOINTS[5])]); +if(!qbevent)break;evnt(26070,10945,"ide_methods.bas");}while(r); +fornext_continue_5295:; +} +fornext_exit_5295:; +do{ if (__ARRAY_BYTE_IDEBREAKPOINTS[2]&2){ error(10); @@ -161253,33 +161253,33 @@ if (!__ARRAY_BYTE_IDEBREAKPOINTS[0]) error(257); } } __ARRAY_BYTE_IDEBREAKPOINTS[2]|=1; -} -if(!qbevent)break;evnt(26070,10947,"ide_methods.bas");}while(r); -S_48123:; -fornext_value5298=*_SUB_IDEDELLINE_LONG_I; -fornext_finalvalue5298=*__LONG_IDEN- 1 ; -fornext_step5298= 1 ; -if (fornext_step5298<0) fornext_step_negative5298=1; else fornext_step_negative5298=0; -if (new_error) goto fornext_error5298; -goto fornext_entrylabel5298; -while(1){ -fornext_value5298=fornext_step5298+(*_SUB_IDEDELLINE_LONG_B); -fornext_entrylabel5298: -*_SUB_IDEDELLINE_LONG_B=fornext_value5298; -if (fornext_step_negative5298){ -if (fornext_value5298fornext_finalvalue5298) break; -} -fornext_error5298:; -if(qbevent){evnt(26070,10949,"ide_methods.bas");if(r)goto S_48123;} -do{ -swap_8(&((int8*)(__ARRAY_BYTE_IDESKIPLINES[0]))[array_check((*_SUB_IDEDELLINE_LONG_B)-__ARRAY_BYTE_IDESKIPLINES[4],__ARRAY_BYTE_IDESKIPLINES[5])],&((int8*)(__ARRAY_BYTE_IDESKIPLINES[0]))[array_check((*_SUB_IDEDELLINE_LONG_B- 1 )-__ARRAY_BYTE_IDESKIPLINES[4],__ARRAY_BYTE_IDESKIPLINES[5])]); -if(!qbevent)break;evnt(26070,10950,"ide_methods.bas");}while(r); -fornext_continue_5297:; -} -fornext_exit_5297:; -do{ +} +if(!qbevent)break;evnt(26070,10947,"ide_methods.bas");}while(r); +S_48123:; +fornext_value5298=*_SUB_IDEDELLINE_LONG_I; +fornext_finalvalue5298=*__LONG_IDEN- 1 ; +fornext_step5298= 1 ; +if (fornext_step5298<0) fornext_step_negative5298=1; else fornext_step_negative5298=0; +if (new_error) goto fornext_error5298; +goto fornext_entrylabel5298; +while(1){ +fornext_value5298=fornext_step5298+(*_SUB_IDEDELLINE_LONG_B); +fornext_entrylabel5298: +*_SUB_IDEDELLINE_LONG_B=fornext_value5298; +if (fornext_step_negative5298){ +if (fornext_value5298fornext_finalvalue5298) break; +} +fornext_error5298:; +if(qbevent){evnt(26070,10949,"ide_methods.bas");if(r)goto S_48123;} +do{ +swap_8(&((int8*)(__ARRAY_BYTE_IDESKIPLINES[0]))[array_check((*_SUB_IDEDELLINE_LONG_B)-__ARRAY_BYTE_IDESKIPLINES[4],__ARRAY_BYTE_IDESKIPLINES[5])],&((int8*)(__ARRAY_BYTE_IDESKIPLINES[0]))[array_check((*_SUB_IDEDELLINE_LONG_B- 1 )-__ARRAY_BYTE_IDESKIPLINES[4],__ARRAY_BYTE_IDESKIPLINES[5])]); +if(!qbevent)break;evnt(26070,10950,"ide_methods.bas");}while(r); +fornext_continue_5297:; +} +fornext_exit_5297:; +do{ if (__ARRAY_BYTE_IDESKIPLINES[2]&2){ error(10); @@ -161317,1229 +161317,1229 @@ if (!__ARRAY_BYTE_IDESKIPLINES[0]) error(257); } } __ARRAY_BYTE_IDESKIPLINES[2]|=1; -} -if(!qbevent)break;evnt(26070,10952,"ide_methods.bas");}while(r); -} -do{ -SUB_IDEGOTOLINE(_SUB_IDEDELLINE_LONG_I); -if(!qbevent)break;evnt(26070,10955,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEDELLINE_LONG_TEXTLEN=string2l(func_mid(__STRING_IDET,*__LONG_IDELI, 4 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10956,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_IDET,qbs_add(qbs_left(__STRING_IDET,*__LONG_IDELI- 1 ),qbs_right(__STRING_IDET,__STRING_IDET->len-*__LONG_IDELI+ 1 - 8 -*_SUB_IDEDELLINE_LONG_TEXTLEN))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10957,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEN=*__LONG_IDEN- 1 ; -if(!qbevent)break;evnt(26070,10958,"ide_methods.bas");}while(r); -S_48132:; -if ((-(*_SUB_IDEDELLINE_LONG_I>*__LONG_IDEN))||new_error){ -if(qbevent){evnt(26070,10960,"ide_methods.bas");if(r)goto S_48132;} -do{ -SUB_IDEGOTOLINE(__LONG_IDEN); -if(!qbevent)break;evnt(26070,10960,"ide_methods.bas");}while(r); -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free188.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -void SUB_IDEDELTXT(){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data189.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -*__INTEGER_IDETXTLAST= 0 ; -if(!qbevent)break;evnt(26070,10965,"ide_methods.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free189.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -void SUB_IDEDRAWOBJ(void*_SUB_IDEDRAWOBJ_UDT_O,int32*_SUB_IDEDRAWOBJ_LONG_F){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data190.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -if(!qbevent)break;evnt(26070,10969,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_IDEDRAWOBJ_STRING1_SEP,func_chr( 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10970,"ide_methods.bas");}while(r); -S_48138:; -if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(36))== 1 ))||new_error){ -if(qbevent){evnt(26070,10973,"ide_methods.bas");if(r)goto S_48138;} -S_48139:; -if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(20))== 0 ))||new_error){ -if(qbevent){evnt(26070,10974,"ide_methods.bas");if(r)goto S_48139;} -do{ -*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(20))= 2 ; -if(!qbevent)break;evnt(26070,10974,"ide_methods.bas");}while(r); -} -do{ -*_SUB_IDEDRAWOBJ_LONG_X=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(0))+*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(20)); -if(!qbevent)break;evnt(26070,10975,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEDRAWOBJ_LONG_Y=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(4))+*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(24)); -if(!qbevent)break;evnt(26070,10975,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,10976,"ide_methods.bas");}while(r); -S_48145:; -if ((*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(40)))||new_error){ -if(qbevent){evnt(26070,10977,"ide_methods.bas");if(r)goto S_48145;} -do{ -qbs_set(_SUB_IDEDRAWOBJ_STRING_A,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(40)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10978,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*_SUB_IDEDRAWOBJ_LONG_Y,*_SUB_IDEDRAWOBJ_LONG_X,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(26070,10979,"ide_methods.bas");}while(r); -do{ -SUB_IDEHPRINT(qbs_add(_SUB_IDEDRAWOBJ_STRING_A,qbs_new_txt_len(":",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10979,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEDRAWOBJ_LONG_X=*_SUB_IDEDRAWOBJ_LONG_X+FUNC_IDEHLEN(_SUB_IDEDRAWOBJ_STRING_A)+ 2 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10980,"ide_methods.bas");}while(r); -} -S_48151:; -if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(28))== 0 ))||new_error){ -if(qbevent){evnt(26070,10982,"ide_methods.bas");if(r)goto S_48151;} -do{ -*_SUB_IDEDRAWOBJ_LONG_X2=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(0))+*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(8))- 1 ; -if(!qbevent)break;evnt(26070,10982,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(28))=*_SUB_IDEDRAWOBJ_LONG_X2-*_SUB_IDEDRAWOBJ_LONG_X- 3 ; -if(!qbevent)break;evnt(26070,10982,"ide_methods.bas");}while(r); -} -do{ -SUB_IDEBOX(_SUB_IDEDRAWOBJ_LONG_X,&(pass5300=*_SUB_IDEDRAWOBJ_LONG_Y- 1 ),&(pass5301=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(28))+ 4 ),&(pass5302= 3 )); -if(!qbevent)break;evnt(26070,10983,"ide_methods.bas");}while(r); -S_48156:; -if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(44))== 0 ))||new_error){ -if(qbevent){evnt(26070,10984,"ide_methods.bas");if(r)goto S_48156;} -do{ -*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(44))=FUNC_IDENEWTXT(qbs_new_txt_len("",0)); -if(!qbevent)break;evnt(26070,10984,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_SUB_IDEDRAWOBJ_STRING_A,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10985,"ide_methods.bas");}while(r); -S_48160:; -if ((qbs_cleanup(qbs_tmp_base,-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(81))>_SUB_IDEDRAWOBJ_STRING_A->len)))||new_error){ -if(qbevent){evnt(26070,10986,"ide_methods.bas");if(r)goto S_48160;} -do{ -*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(81))=_SUB_IDEDRAWOBJ_STRING_A->len; -if(!qbevent)break;evnt(26070,10986,"ide_methods.bas");}while(r); -} -do{ -*_SUB_IDEDRAWOBJ_LONG_CX=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(81)); -if(!qbevent)break;evnt(26070,10987,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEDRAWOBJ_LONG_TX= 1 ; -if(!qbevent)break;evnt(26070,10989,"ide_methods.bas");}while(r); -S_48165:; -if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDEDRAWOBJ_STRING_A->len>*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(28)))))||new_error){ -if(qbevent){evnt(26070,10990,"ide_methods.bas");if(r)goto S_48165;} -S_48166:; -if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(60))== 0 ))||new_error){ -if(qbevent){evnt(26070,10991,"ide_methods.bas");if(r)goto S_48166;} -do{ -*_SUB_IDEDRAWOBJ_LONG_TX=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(81))-*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(28))+ 1 ; -if(!qbevent)break;evnt(26070,10992,"ide_methods.bas");}while(r); -S_48168:; -if ((-(*_SUB_IDEDRAWOBJ_LONG_TX< 1 ))||new_error){ -if(qbevent){evnt(26070,10993,"ide_methods.bas");if(r)goto S_48168;} -do{ -*_SUB_IDEDRAWOBJ_LONG_TX= 1 ; -if(!qbevent)break;evnt(26070,10993,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_SUB_IDEDRAWOBJ_STRING_A,func_mid(_SUB_IDEDRAWOBJ_STRING_A,*_SUB_IDEDRAWOBJ_LONG_TX,*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(28)),0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10994,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEDRAWOBJ_LONG_CX=*_SUB_IDEDRAWOBJ_LONG_CX-*_SUB_IDEDRAWOBJ_LONG_TX+ 1 ; -if(!qbevent)break;evnt(26070,10995,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_SUB_IDEDRAWOBJ_STRING_A,qbs_left(_SUB_IDEDRAWOBJ_STRING_A,*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(28)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,10997,"ide_methods.bas");}while(r); -} -} -do{ -*_SUB_IDEDRAWOBJ_LONG_SX1=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(77)); -if(!qbevent)break;evnt(26070,11001,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEDRAWOBJ_LONG_SX2=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(81)); -if(!qbevent)break;evnt(26070,11001,"ide_methods.bas");}while(r); -S_48179:; -if ((-(*_SUB_IDEDRAWOBJ_LONG_SX1>*_SUB_IDEDRAWOBJ_LONG_SX2))||new_error){ -if(qbevent){evnt(26070,11002,"ide_methods.bas");if(r)goto S_48179;} -do{ -swap_32(&*_SUB_IDEDRAWOBJ_LONG_SX1,&*_SUB_IDEDRAWOBJ_LONG_SX2); -if(!qbevent)break;evnt(26070,11002,"ide_methods.bas");}while(r); -} -do{ -*_SUB_IDEDRAWOBJ_LONG_X=*_SUB_IDEDRAWOBJ_LONG_X+ 2 ; -if(!qbevent)break;evnt(26070,11004,"ide_methods.bas");}while(r); -S_48183:; -if (((-(*(int8*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(76))== 0 ))|(-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(60))!= 0 )))||new_error){ -if(qbevent){evnt(26070,11006,"ide_methods.bas");if(r)goto S_48183;} -do{ -sub__printstring(*_SUB_IDEDRAWOBJ_LONG_X,*_SUB_IDEDRAWOBJ_LONG_Y,_SUB_IDEDRAWOBJ_STRING_A,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11007,"ide_methods.bas");}while(r); -}else{ -S_48186:; -fornext_value5307= 1 ; -fornext_finalvalue5307=_SUB_IDEDRAWOBJ_STRING_A->len; -fornext_step5307= 1 ; -if (fornext_step5307<0) fornext_step_negative5307=1; else fornext_step_negative5307=0; -if (new_error) goto fornext_error5307; -goto fornext_entrylabel5307; -while(1){ -fornext_value5307=fornext_step5307+(*_SUB_IDEDRAWOBJ_LONG_COLORCHAR); -fornext_entrylabel5307: -*_SUB_IDEDRAWOBJ_LONG_COLORCHAR=fornext_value5307; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative5307){ -if (fornext_value5307fornext_finalvalue5307) break; -} -fornext_error5307:; -if(qbevent){evnt(26070,11009,"ide_methods.bas");if(r)goto S_48186;} -S_48187:; -if (((-((*_SUB_IDEDRAWOBJ_LONG_COLORCHAR+*_SUB_IDEDRAWOBJ_LONG_TX- 2 )>=*_SUB_IDEDRAWOBJ_LONG_SX1))&(-((*_SUB_IDEDRAWOBJ_LONG_COLORCHAR+*_SUB_IDEDRAWOBJ_LONG_TX- 2 )<*_SUB_IDEDRAWOBJ_LONG_SX2)))||new_error){ -if(qbevent){evnt(26070,11010,"ide_methods.bas");if(r)goto S_48187;} -do{ -qbg_sub_color( 7 , 0 ,NULL,3); -if(!qbevent)break;evnt(26070,11010,"ide_methods.bas");}while(r); -}else{ -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,11010,"ide_methods.bas");}while(r); -} -do{ -sub__printstring(*_SUB_IDEDRAWOBJ_LONG_X- 1 +*_SUB_IDEDRAWOBJ_LONG_COLORCHAR,*_SUB_IDEDRAWOBJ_LONG_Y,func_mid(_SUB_IDEDRAWOBJ_STRING_A,*_SUB_IDEDRAWOBJ_LONG_COLORCHAR, 1 ,0|1),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11011,"ide_methods.bas");}while(r); -fornext_continue_5306:; -} -fornext_exit_5306:; -} -S_48195:; -if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(60))== 0 ))||new_error){ -if(qbevent){evnt(26070,11015,"ide_methods.bas");if(r)goto S_48195;} -do{ -*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(52))=*_SUB_IDEDRAWOBJ_LONG_X+*_SUB_IDEDRAWOBJ_LONG_CX; -if(!qbevent)break;evnt(26070,11015,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(56))=*_SUB_IDEDRAWOBJ_LONG_Y; -if(!qbevent)break;evnt(26070,11015,"ide_methods.bas");}while(r); -} -do{ -*_SUB_IDEDRAWOBJ_LONG_F=*_SUB_IDEDRAWOBJ_LONG_F+ 1 ; -if(!qbevent)break;evnt(26070,11016,"ide_methods.bas");}while(r); -} -S_48201:; -if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(36))== 2 ))||new_error){ -if(qbevent){evnt(26070,11020,"ide_methods.bas");if(r)goto S_48201;} -S_48202:; -if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(20))== 0 ))||new_error){ -if(qbevent){evnt(26070,11021,"ide_methods.bas");if(r)goto S_48202;} -do{ -*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(20))= 2 ; -if(!qbevent)break;evnt(26070,11021,"ide_methods.bas");}while(r); -} -S_48205:; -if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(28))== 0 ))||new_error){ -if(qbevent){evnt(26070,11022,"ide_methods.bas");if(r)goto S_48205;} -do{ -*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(28))=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(8))- 2 -*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(20)); -if(!qbevent)break;evnt(26070,11022,"ide_methods.bas");}while(r); -} -S_48208:; -if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(32))== 0 ))||new_error){ -if(qbevent){evnt(26070,11023,"ide_methods.bas");if(r)goto S_48208;} -do{ -*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(32))=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(12))- 1 -*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(24)); -if(!qbevent)break;evnt(26070,11023,"ide_methods.bas");}while(r); -} -do{ -*_SUB_IDEDRAWOBJ_LONG_X=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(0))+*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(20)); -if(!qbevent)break;evnt(26070,11024,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEDRAWOBJ_LONG_Y=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(4))+*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(24)); -if(!qbevent)break;evnt(26070,11024,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,11025,"ide_methods.bas");}while(r); -do{ -SUB_IDEBOX(_SUB_IDEDRAWOBJ_LONG_X,_SUB_IDEDRAWOBJ_LONG_Y,&(pass5309=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(28))+ 2 ),&(pass5310=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(32))+ 2 )); -if(!qbevent)break;evnt(26070,11026,"ide_methods.bas");}while(r); -S_48215:; -if ((*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(40)))||new_error){ -if(qbevent){evnt(26070,11027,"ide_methods.bas");if(r)goto S_48215;} -do{ -qbs_set(_SUB_IDEDRAWOBJ_STRING_A,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(40)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11028,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEDRAWOBJ_LONG_W=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(28))+ 2 ; -if(!qbevent)break;evnt(26070,11029,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEDRAWOBJ_LONG_M=*_SUB_IDEDRAWOBJ_LONG_W/ 2 ; -if(!qbevent)break;evnt(26070,11030,"ide_methods.bas");}while(r); -S_48219:; -if ((*_SUB_IDEDRAWOBJ_LONG_W& 1 )||new_error){ -if(qbevent){evnt(26070,11030,"ide_methods.bas");if(r)goto S_48219;} -do{ -*_SUB_IDEDRAWOBJ_LONG_M=*_SUB_IDEDRAWOBJ_LONG_M+ 1 ; -if(!qbevent)break;evnt(26070,11030,"ide_methods.bas");}while(r); -} -do{ -qbg_sub_locate(*_SUB_IDEDRAWOBJ_LONG_Y,*_SUB_IDEDRAWOBJ_LONG_X+*_SUB_IDEDRAWOBJ_LONG_M-( 1 )-(((FUNC_IDEHLEN(_SUB_IDEDRAWOBJ_STRING_A)+ 2 )- 1 )/ 2 ),NULL,NULL,NULL,3); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11031,"ide_methods.bas");}while(r); -do{ -SUB_IDEHPRINT(qbs_add(qbs_add(qbs_new_txt_len(" ",1),_SUB_IDEDRAWOBJ_STRING_A),qbs_new_txt_len(" ",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11031,"ide_methods.bas");}while(r); -} -S_48225:; -if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(64))== 0 ))||new_error){ -if(qbevent){evnt(26070,11034,"ide_methods.bas");if(r)goto S_48225;} -do{ -*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(64))= -1 ; -if(!qbevent)break;evnt(26070,11034,"ide_methods.bas");}while(r); -} -S_48228:; -if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(44))== 0 ))||new_error){ -if(qbevent){evnt(26070,11035,"ide_methods.bas");if(r)goto S_48228;} -do{ -*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(44))=FUNC_IDENEWTXT(qbs_new_txt_len("",0)); -if(!qbevent)break;evnt(26070,11035,"ide_methods.bas");}while(r); -} -S_48231:; -if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(72))== 0 ))||new_error){ -if(qbevent){evnt(26070,11036,"ide_methods.bas");if(r)goto S_48231;} -do{ -*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(72))=FUNC_IDENEWTXT(qbs_new_txt_len("",0)); -if(!qbevent)break;evnt(26070,11036,"ide_methods.bas");}while(r); -} -S_48234:; -if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(81))== 0 ))||new_error){ -if(qbevent){evnt(26070,11037,"ide_methods.bas");if(r)goto S_48234;} -do{ -*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(81))= 1 ; -if(!qbevent)break;evnt(26070,11037,"ide_methods.bas");}while(r); -} -do{ -*_SUB_IDEDRAWOBJ_LONG_S=func_abs((int32)(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(64)))); -if(!qbevent)break;evnt(26070,11038,"ide_methods.bas");}while(r); -S_48238:; -if ((-(*_SUB_IDEDRAWOBJ_LONG_S>=(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(81))+*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(32)))))||new_error){ -if(qbevent){evnt(26070,11039,"ide_methods.bas");if(r)goto S_48238;} -do{ -*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(81))=*_SUB_IDEDRAWOBJ_LONG_S-*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(32))+ 1 ; -if(!qbevent)break;evnt(26070,11039,"ide_methods.bas");}while(r); -} -S_48241:; -if ((-(*_SUB_IDEDRAWOBJ_LONG_S<*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(81))))||new_error){ -if(qbevent){evnt(26070,11040,"ide_methods.bas");if(r)goto S_48241;} -do{ -*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(81))=*_SUB_IDEDRAWOBJ_LONG_S; -if(!qbevent)break;evnt(26070,11040,"ide_methods.bas");}while(r); -} -S_48244:; -if (((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(60))!= 0 ))&(-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(64))> 0 )))||new_error){ -if(qbevent){evnt(26070,11041,"ide_methods.bas");if(r)goto S_48244;} -do{ -*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(64))=-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(64))); -if(!qbevent)break;evnt(26070,11041,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_SUB_IDEDRAWOBJ_STRING_A,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11042,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEDRAWOBJ_LONG_N= 1 ; -if(!qbevent)break;evnt(26070,11043,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEDRAWOBJ_LONG_Y= 1 ; -if(!qbevent)break;evnt(26070,11044,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEDRAWOBJ_LONG_V1=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(81)); -if(!qbevent)break;evnt(26070,11045,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_IDEDRAWOBJ_STRING_A3,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11046,"ide_methods.bas");}while(r); -S_48252:; -fornext_value5312= 1 ; -fornext_finalvalue5312=_SUB_IDEDRAWOBJ_STRING_A->len; -fornext_step5312= 1 ; -if (fornext_step5312<0) fornext_step_negative5312=1; else fornext_step_negative5312=0; -if (new_error) goto fornext_error5312; -goto fornext_entrylabel5312; -while(1){ -fornext_value5312=fornext_step5312+(*_SUB_IDEDRAWOBJ_LONG_I2); -fornext_entrylabel5312: -*_SUB_IDEDRAWOBJ_LONG_I2=fornext_value5312; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative5312){ -if (fornext_value5312fornext_finalvalue5312) break; -} -fornext_error5312:; -if(qbevent){evnt(26070,11047,"ide_methods.bas");if(r)goto S_48252;} -do{ -qbs_set(_SUB_IDEDRAWOBJ_STRING_A2,func_mid(_SUB_IDEDRAWOBJ_STRING_A,*_SUB_IDEDRAWOBJ_LONG_I2, 1 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11048,"ide_methods.bas");}while(r); -S_48254:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_IDEDRAWOBJ_STRING_A2,_SUB_IDEDRAWOBJ_STRING1_SEP)))||new_error){ -if(qbevent){evnt(26070,11049,"ide_methods.bas");if(r)goto S_48254;} -do{ -qbs_set(_SUB_IDEDRAWOBJ_STRING_A3,qbs_add(_SUB_IDEDRAWOBJ_STRING_A3,_SUB_IDEDRAWOBJ_STRING_A2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11049,"ide_methods.bas");}while(r); -} -S_48257:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_IDEDRAWOBJ_STRING_A2,_SUB_IDEDRAWOBJ_STRING1_SEP))|(-(*_SUB_IDEDRAWOBJ_LONG_I2==_SUB_IDEDRAWOBJ_STRING_A->len))))||new_error){ -if(qbevent){evnt(26070,11050,"ide_methods.bas");if(r)goto S_48257;} -S_48258:; -if ((-(*_SUB_IDEDRAWOBJ_LONG_N<*_SUB_IDEDRAWOBJ_LONG_V1))||new_error){ -if(qbevent){evnt(26070,11051,"ide_methods.bas");if(r)goto S_48258;} -}else{ -S_48260:; -if ((-(*_SUB_IDEDRAWOBJ_LONG_Y<=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(32))))||new_error){ -if(qbevent){evnt(26070,11054,"ide_methods.bas");if(r)goto S_48260;} -do{ -qbs_set(_SUB_IDEDRAWOBJ_STRING_A3,qbs_add(qbs_new_txt_len(" ",1),qbs_rtrim(_SUB_IDEDRAWOBJ_STRING_A3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11055,"ide_methods.bas");}while(r); -S_48262:; -if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(64))==*_SUB_IDEDRAWOBJ_LONG_N))||new_error){ -if(qbevent){evnt(26070,11056,"ide_methods.bas");if(r)goto S_48262;} -do{ -qbg_sub_color( 7 , 0 ,NULL,3); -if(!qbevent)break;evnt(26070,11057,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(68))=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(4))+*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(24))+*_SUB_IDEDRAWOBJ_LONG_Y; -if(!qbevent)break;evnt(26070,11058,"ide_methods.bas");}while(r); -}else{ -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,11060,"ide_methods.bas");}while(r); -} -S_48268:; -if (((((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(64))==*_SUB_IDEDRAWOBJ_LONG_N))|(-((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(64))))==*_SUB_IDEDRAWOBJ_LONG_N))))&(-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(60))== 0 )))||new_error){ -if(qbevent){evnt(26070,11062,"ide_methods.bas");if(r)goto S_48268;} -do{ -*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(52))=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(0))+*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(20))+ 2 ; -if(!qbevent)break;evnt(26070,11063,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(56))=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(4))+*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(24))+*_SUB_IDEDRAWOBJ_LONG_Y; -if(!qbevent)break;evnt(26070,11063,"ide_methods.bas");}while(r); -S_48271:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal((qbs_left(_SUB_IDEDRAWOBJ_STRING_A3, 2 )),(qbs_add(func_chr( 32 ),func_chr( 195 )))))|(qbs_equal((qbs_left(_SUB_IDEDRAWOBJ_STRING_A3, 2 )),(qbs_add(func_chr( 32 ),func_chr( 192 )))))))||new_error){ -if(qbevent){evnt(26070,11064,"ide_methods.bas");if(r)goto S_48271;} -do{ -*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(52))=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(52))+ 2 ; -if(!qbevent)break;evnt(26070,11065,"ide_methods.bas");}while(r); -} -} -do{ -qbg_sub_locate(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(4))+*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(24))+*_SUB_IDEDRAWOBJ_LONG_Y,*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(0))+*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(20))+ 1 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(26070,11069,"ide_methods.bas");}while(r); -S_48276:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_IDEDRAWOBJ_STRING_A3,func_chr( 16 ),0)))||new_error){ -if(qbevent){evnt(26070,11070,"ide_methods.bas");if(r)goto S_48276;} -do{ -*_SUB_IDEDRAWOBJ_LONG_CHARACTER= 0 ; -if(!qbevent)break;evnt(26070,11075,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEDRAWOBJ_LONG_RIGHTSIDELIMIT=func_pos( 1 )+*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(28))- 1 ; -if(!qbevent)break;evnt(26070,11076,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEDRAWOBJ_LONG_CF=func_pos( 1 ); -if(!qbevent)break;evnt(26070,11077,"ide_methods.bas");}while(r); -S_48280:; -do{ -if(qbevent){evnt(26070,11078,"ide_methods.bas");if(r)goto S_48280;} -do{ -*_SUB_IDEDRAWOBJ_LONG_CHARACTER=*_SUB_IDEDRAWOBJ_LONG_CHARACTER+ 1 ; -if(!qbevent)break;evnt(26070,11079,"ide_methods.bas");}while(r); -S_48282:; -if ((qbs_cleanup(qbs_tmp_base,-(*_SUB_IDEDRAWOBJ_LONG_CHARACTER>_SUB_IDEDRAWOBJ_STRING_A3->len)))||new_error){ -if(qbevent){evnt(26070,11080,"ide_methods.bas");if(r)goto S_48282;} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_space(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(28))-(func_pos( 1 )-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(0))+*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(20))))+ 1 )); -if (new_error) goto skip5317; -makefit(tqbs); -qbs_print(tqbs,0); -skip5317: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11081,"ide_methods.bas");}while(r); -do{ -goto dl_exit_5315; -if(!qbevent)break;evnt(26070,11082,"ide_methods.bas");}while(r); -} -S_48286:; -if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(_SUB_IDEDRAWOBJ_STRING_A3,*_SUB_IDEDRAWOBJ_LONG_CHARACTER)== 16 ))&(-(*_SUB_IDEDRAWOBJ_LONG_CHARACTER<_SUB_IDEDRAWOBJ_STRING_A3->len))))||new_error){ -if(qbevent){evnt(26070,11084,"ide_methods.bas");if(r)goto S_48286;} -S_48287:; -if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(_SUB_IDEDRAWOBJ_STRING_A3,*_SUB_IDEDRAWOBJ_LONG_CHARACTER+ 1 )>= 0 ))&(-(qbs_asc(_SUB_IDEDRAWOBJ_STRING_A3,*_SUB_IDEDRAWOBJ_LONG_CHARACTER+ 1 )<= 15 ))))||new_error){ -if(qbevent){evnt(26070,11085,"ide_methods.bas");if(r)goto S_48287;} -do{ -qbg_sub_color(qbs_asc(_SUB_IDEDRAWOBJ_STRING_A3,*_SUB_IDEDRAWOBJ_LONG_CHARACTER+ 1 ),NULL,NULL,1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11086,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEDRAWOBJ_LONG_CHARACTER=*_SUB_IDEDRAWOBJ_LONG_CHARACTER+ 1 ; -if(!qbevent)break;evnt(26070,11087,"ide_methods.bas");}while(r); -do{ -goto dl_continue_5315; -if(!qbevent)break;evnt(26070,11088,"ide_methods.bas");}while(r); -S_48291:; -}else{ -if (qbs_cleanup(qbs_tmp_base,-(qbs_asc(_SUB_IDEDRAWOBJ_STRING_A3,*_SUB_IDEDRAWOBJ_LONG_CHARACTER+ 1 )== 16 ))){ -if(qbevent){evnt(26070,11089,"ide_methods.bas");if(r)goto S_48291;} -S_48292:; -if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(64))==*_SUB_IDEDRAWOBJ_LONG_N))||new_error){ -if(qbevent){evnt(26070,11090,"ide_methods.bas");if(r)goto S_48292;} -do{ -qbg_sub_color( 7 ,NULL,NULL,1); -if(!qbevent)break;evnt(26070,11090,"ide_methods.bas");}while(r); -}else{ -do{ -qbg_sub_color( 0 ,NULL,NULL,1); -if(!qbevent)break;evnt(26070,11090,"ide_methods.bas");}while(r); -} -do{ -*_SUB_IDEDRAWOBJ_LONG_CHARACTER=*_SUB_IDEDRAWOBJ_LONG_CHARACTER+ 1 ; -if(!qbevent)break;evnt(26070,11091,"ide_methods.bas");}while(r); -do{ -goto dl_continue_5315; -if(!qbevent)break;evnt(26070,11092,"ide_methods.bas");}while(r); -} -} -S_48300:; -}else{ -if (qbs_cleanup(qbs_tmp_base,(-(qbs_asc(_SUB_IDEDRAWOBJ_STRING_A3,*_SUB_IDEDRAWOBJ_LONG_CHARACTER)== 17 ))&(-(*_SUB_IDEDRAWOBJ_LONG_CHARACTER<_SUB_IDEDRAWOBJ_STRING_A3->len)))){ -if(qbevent){evnt(26070,11094,"ide_methods.bas");if(r)goto S_48300;} -S_48301:; -if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(_SUB_IDEDRAWOBJ_STRING_A3,*_SUB_IDEDRAWOBJ_LONG_CHARACTER+ 1 )>= 0 ))&(-(qbs_asc(_SUB_IDEDRAWOBJ_STRING_A3,*_SUB_IDEDRAWOBJ_LONG_CHARACTER+ 1 )<= 15 ))))||new_error){ -if(qbevent){evnt(26070,11095,"ide_methods.bas");if(r)goto S_48301;} -S_48302:; -if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(64))!=*_SUB_IDEDRAWOBJ_LONG_N))||new_error){ -if(qbevent){evnt(26070,11096,"ide_methods.bas");if(r)goto S_48302;} -do{ -qbg_sub_color(NULL,qbs_asc(_SUB_IDEDRAWOBJ_STRING_A3,*_SUB_IDEDRAWOBJ_LONG_CHARACTER+ 1 ),NULL,2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11096,"ide_methods.bas");}while(r); -} -do{ -*_SUB_IDEDRAWOBJ_LONG_CHARACTER=*_SUB_IDEDRAWOBJ_LONG_CHARACTER+ 1 ; -if(!qbevent)break;evnt(26070,11097,"ide_methods.bas");}while(r); -do{ -goto dl_continue_5315; -if(!qbevent)break;evnt(26070,11098,"ide_methods.bas");}while(r); -S_48307:; -}else{ -if (qbs_cleanup(qbs_tmp_base,-(qbs_asc(_SUB_IDEDRAWOBJ_STRING_A3,*_SUB_IDEDRAWOBJ_LONG_CHARACTER+ 1 )== 17 ))){ -if(qbevent){evnt(26070,11099,"ide_methods.bas");if(r)goto S_48307;} -S_48308:; -if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(64))==*_SUB_IDEDRAWOBJ_LONG_N))||new_error){ -if(qbevent){evnt(26070,11100,"ide_methods.bas");if(r)goto S_48308;} -do{ -qbg_sub_color(NULL, 0 ,NULL,2); -if(!qbevent)break;evnt(26070,11100,"ide_methods.bas");}while(r); -}else{ -do{ -qbg_sub_color(NULL, 7 ,NULL,2); -if(!qbevent)break;evnt(26070,11100,"ide_methods.bas");}while(r); -} -do{ -*_SUB_IDEDRAWOBJ_LONG_CHARACTER=*_SUB_IDEDRAWOBJ_LONG_CHARACTER+ 1 ; -if(!qbevent)break;evnt(26070,11101,"ide_methods.bas");}while(r); -do{ -goto dl_continue_5315; -if(!qbevent)break;evnt(26070,11102,"ide_methods.bas");}while(r); -} -} -S_48316:; -}else{ -if (qbs_cleanup(qbs_tmp_base,(-(*_SUB_IDEDRAWOBJ_LONG_CHARACTER== 1 ))&(((qbs_equal((qbs_left(_SUB_IDEDRAWOBJ_STRING_A3, 2 )),(qbs_add(func_chr( 32 ),func_chr( 195 )))))|(qbs_equal((qbs_left(_SUB_IDEDRAWOBJ_STRING_A3, 2 )),(qbs_add(func_chr( 32 ),func_chr( 192 ))))))))){ -if(qbevent){evnt(26070,11104,"ide_methods.bas");if(r)goto S_48316;} -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,11105,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_left(_SUB_IDEDRAWOBJ_STRING_A3, 3 )); -if (new_error) goto skip5320; -makefit(tqbs); -qbs_print(tqbs,0); -skip5320: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11106,"ide_methods.bas");}while(r); -S_48319:; -if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(64))==*_SUB_IDEDRAWOBJ_LONG_N))||new_error){ -if(qbevent){evnt(26070,11107,"ide_methods.bas");if(r)goto S_48319;} -do{ -qbg_sub_color( 7 , 0 ,NULL,3); -if(!qbevent)break;evnt(26070,11107,"ide_methods.bas");}while(r); -}else{ -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,11107,"ide_methods.bas");}while(r); -} -do{ -*_SUB_IDEDRAWOBJ_LONG_CHARACTER= 3 ; -if(!qbevent)break;evnt(26070,11108,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEDRAWOBJ_LONG_CF=*_SUB_IDEDRAWOBJ_LONG_CF+ 3 ; -if(!qbevent)break;evnt(26070,11109,"ide_methods.bas");}while(r); -do{ -goto dl_continue_5315; -if(!qbevent)break;evnt(26070,11110,"ide_methods.bas");}while(r); -} -} -} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_mid(_SUB_IDEDRAWOBJ_STRING_A3,*_SUB_IDEDRAWOBJ_LONG_CHARACTER, 1 ,0|1)); -if (new_error) goto skip5321; -makefit(tqbs); -qbs_print(tqbs,0); -skip5321: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11112,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEDRAWOBJ_LONG_CF=*_SUB_IDEDRAWOBJ_LONG_CF+ 1 ; -if(!qbevent)break;evnt(26070,11113,"ide_methods.bas");}while(r); -S_48330:; -dl_continue_5315:; -}while((!(-(*_SUB_IDEDRAWOBJ_LONG_CF>*_SUB_IDEDRAWOBJ_LONG_RIGHTSIDELIMIT)))&&(!new_error)); -dl_exit_5315:; -if(qbevent){evnt(26070,11114,"ide_methods.bas");if(r)goto S_48330;} -S_48331:; -if ((qbs_cleanup(qbs_tmp_base,-(*_SUB_IDEDRAWOBJ_LONG_CHARACTER<_SUB_IDEDRAWOBJ_STRING_A3->len)))||new_error){ -if(qbevent){evnt(26070,11115,"ide_methods.bas");if(r)goto S_48331;} -do{ -sub__printstring(*_SUB_IDEDRAWOBJ_LONG_RIGHTSIDELIMIT,func_csrlin(),func_chr( 26 ),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11115,"ide_methods.bas");}while(r); -} -S_48334:; -if ((-(func_pos( 1 )<*_SUB_IDEDRAWOBJ_LONG_RIGHTSIDELIMIT))||new_error){ -if(qbevent){evnt(26070,11116,"ide_methods.bas");if(r)goto S_48334;} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_space(*_SUB_IDEDRAWOBJ_LONG_RIGHTSIDELIMIT-func_pos( 1 ))); -if (new_error) goto skip5323; -makefit(tqbs); -qbs_print(tqbs,0); -skip5323: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11117,"ide_methods.bas");}while(r); -} -}else{ -S_48338:; -if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDEDRAWOBJ_STRING_A3->len>*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(28)))))||new_error){ -if(qbevent){evnt(26070,11120,"ide_methods.bas");if(r)goto S_48338;} -do{ -sub_mid(_SUB_IDEDRAWOBJ_STRING_A3,*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(28)), 1 ,func_chr( 26 ),1); -if(!qbevent)break;evnt(26070,11120,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_SUB_IDEDRAWOBJ_STRING_A3,qbs_add(_SUB_IDEDRAWOBJ_STRING_A3,func_space(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(28))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11121,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_IDEDRAWOBJ_STRING_A3,qbs_left(_SUB_IDEDRAWOBJ_STRING_A3,*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(28)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11122,"ide_methods.bas");}while(r); -S_48343:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal((qbs_left(_SUB_IDEDRAWOBJ_STRING_A3, 2 )),(qbs_add(func_chr( 32 ),func_chr( 195 )))))|(qbs_equal((qbs_left(_SUB_IDEDRAWOBJ_STRING_A3, 2 )),(qbs_add(func_chr( 32 ),func_chr( 192 )))))))||new_error){ -if(qbevent){evnt(26070,11124,"ide_methods.bas");if(r)goto S_48343;} -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,11125,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_left(_SUB_IDEDRAWOBJ_STRING_A3, 3 )); -if (new_error) goto skip5325; -makefit(tqbs); -qbs_print(tqbs,0); -skip5325: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11126,"ide_methods.bas");}while(r); -S_48346:; -if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(64))==*_SUB_IDEDRAWOBJ_LONG_N))||new_error){ -if(qbevent){evnt(26070,11127,"ide_methods.bas");if(r)goto S_48346;} -do{ -qbg_sub_color( 7 , 0 ,NULL,3); -if(!qbevent)break;evnt(26070,11127,"ide_methods.bas");}while(r); -}else{ -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,11127,"ide_methods.bas");}while(r); -} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_mid(_SUB_IDEDRAWOBJ_STRING_A3, 4 ,NULL,0)); -if (new_error) goto skip5326; -makefit(tqbs); -qbs_print(tqbs,0); -skip5326: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11128,"ide_methods.bas");}while(r); -}else{ -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,_SUB_IDEDRAWOBJ_STRING_A3); -if (new_error) goto skip5327; -makefit(tqbs); -qbs_print(tqbs,0); -skip5327: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11130,"ide_methods.bas");}while(r); -} -} -S_48356:; -if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_SUB_IDEDRAWOBJ_STRING_A3,qbs_add(func_chr( 196 ),qbs_new_txt_len("*",1)),0)> 0 )))||new_error){ -if(qbevent){evnt(26070,11134,"ide_methods.bas");if(r)goto S_48356;} -S_48357:; -if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(64))==*_SUB_IDEDRAWOBJ_LONG_N))||new_error){ -if(qbevent){evnt(26070,11135,"ide_methods.bas");if(r)goto S_48357;} -do{ -qbg_sub_color( 2 , 0 ,NULL,3); -if(!qbevent)break;evnt(26070,11135,"ide_methods.bas");}while(r); -}else{ -do{ -qbg_sub_color( 2 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,11135,"ide_methods.bas");}while(r); -} -do{ -sub__printstring(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(0))+*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(20))+ 4 ,*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(4))+*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(24))+*_SUB_IDEDRAWOBJ_LONG_Y,qbs_new_txt_len("*",1),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11136,"ide_methods.bas");}while(r); -} -do{ -*_SUB_IDEDRAWOBJ_LONG_Y=*_SUB_IDEDRAWOBJ_LONG_Y+ 1 ; -if(!qbevent)break;evnt(26070,11138,"ide_methods.bas");}while(r); -} -} -do{ -*_SUB_IDEDRAWOBJ_LONG_N=*_SUB_IDEDRAWOBJ_LONG_N+ 1 ; -if(!qbevent)break;evnt(26070,11141,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_IDEDRAWOBJ_STRING_A3,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11142,"ide_methods.bas");}while(r); -} -fornext_continue_5311:; -} -fornext_exit_5311:; -do{ -*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(85))=*_SUB_IDEDRAWOBJ_LONG_N- 1 ; -if(!qbevent)break;evnt(26070,11145,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEDRAWOBJ_LONG_TNUM=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(85)); -if(!qbevent)break;evnt(26070,11147,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEDRAWOBJ_LONG_TSEL=func_abs((int32)(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(64)))); -if(!qbevent)break;evnt(26070,11148,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEDRAWOBJ_LONG_Q=FUNC_IDEVBAR(&(pass5328=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(0))+*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(20))+*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(28))+ 1 ),&(pass5329=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(4))+*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(24))+ 1 ),(int32*)(void*)( ((char*)(_SUB_IDEDRAWOBJ_UDT_O)) + (32) ),_SUB_IDEDRAWOBJ_LONG_TSEL,_SUB_IDEDRAWOBJ_LONG_TNUM); -if(!qbevent)break;evnt(26070,11150,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEDRAWOBJ_LONG_F=*_SUB_IDEDRAWOBJ_LONG_F+ 1 ; -if(!qbevent)break;evnt(26070,11152,"ide_methods.bas");}while(r); -} -S_48377:; -if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(36))== 3 ))||new_error){ -if(qbevent){evnt(26070,11156,"ide_methods.bas");if(r)goto S_48377;} -S_48378:; -if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(20))== 0 ))||new_error){ -if(qbevent){evnt(26070,11157,"ide_methods.bas");if(r)goto S_48378;} -do{ -*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(20))= 2 ; -if(!qbevent)break;evnt(26070,11157,"ide_methods.bas");}while(r); -} -S_48381:; -if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(28))== 0 ))||new_error){ -if(qbevent){evnt(26070,11158,"ide_methods.bas");if(r)goto S_48381;} -do{ -*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(28))=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(8))-*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(20)); -if(!qbevent)break;evnt(26070,11158,"ide_methods.bas");}while(r); -} -S_48384:; -if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(44))== 0 ))||new_error){ -if(qbevent){evnt(26070,11159,"ide_methods.bas");if(r)goto S_48384;} -do{ -*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(44))=FUNC_IDENEWTXT(qbs_new_txt_len("#OK",3)); -if(!qbevent)break;evnt(26070,11159,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_SUB_IDEDRAWOBJ_STRING_A,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11160,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEDRAWOBJ_LONG_N= 1 ; -if(!qbevent)break;evnt(26070,11161,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEDRAWOBJ_LONG_C= 0 ; -if(!qbevent)break;evnt(26070,11162,"ide_methods.bas");}while(r); -S_48390:; -fornext_value5331= 1 ; -fornext_finalvalue5331=_SUB_IDEDRAWOBJ_STRING_A->len; -fornext_step5331= 1 ; -if (fornext_step5331<0) fornext_step_negative5331=1; else fornext_step_negative5331=0; -if (new_error) goto fornext_error5331; -goto fornext_entrylabel5331; -while(1){ -fornext_value5331=fornext_step5331+(*_SUB_IDEDRAWOBJ_LONG_I2); -fornext_entrylabel5331: -*_SUB_IDEDRAWOBJ_LONG_I2=fornext_value5331; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative5331){ -if (fornext_value5331fornext_finalvalue5331) break; -} -fornext_error5331:; -if(qbevent){evnt(26070,11163,"ide_methods.bas");if(r)goto S_48390;} -do{ -qbs_set(_SUB_IDEDRAWOBJ_STRING_A2,func_mid(_SUB_IDEDRAWOBJ_STRING_A,*_SUB_IDEDRAWOBJ_LONG_I2, 1 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11164,"ide_methods.bas");}while(r); -S_48392:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDEDRAWOBJ_STRING_A2,func_chr( 0 ))))||new_error){ -if(qbevent){evnt(26070,11165,"ide_methods.bas");if(r)goto S_48392;} -do{ -*_SUB_IDEDRAWOBJ_LONG_N=*_SUB_IDEDRAWOBJ_LONG_N+ 1 ; -if(!qbevent)break;evnt(26070,11166,"ide_methods.bas");}while(r); -}else{ -S_48395:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_IDEDRAWOBJ_STRING_A,qbs_new_txt_len("#",1))))||new_error){ -if(qbevent){evnt(26070,11168,"ide_methods.bas");if(r)goto S_48395;} -do{ -*_SUB_IDEDRAWOBJ_LONG_C=*_SUB_IDEDRAWOBJ_LONG_C+ 1 ; -if(!qbevent)break;evnt(26070,11168,"ide_methods.bas");}while(r); -} -} -fornext_continue_5330:; -} -fornext_exit_5330:; -do{ -*_SUB_IDEDRAWOBJ_LONG_W=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(28)); -if(!qbevent)break;evnt(26070,11171,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEDRAWOBJ_LONG_C=*_SUB_IDEDRAWOBJ_LONG_C+(*_SUB_IDEDRAWOBJ_LONG_N* 4 ); -if(!qbevent)break;evnt(26070,11172,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEDRAWOBJ_LONG_WHITESPACE=*_SUB_IDEDRAWOBJ_LONG_W-*_SUB_IDEDRAWOBJ_LONG_C; -if(!qbevent)break;evnt(26070,11173,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEDRAWOBJ_LONG_SPACING=*_SUB_IDEDRAWOBJ_LONG_WHITESPACE/ (*_SUB_IDEDRAWOBJ_LONG_N+ 1 ); -if(!qbevent)break;evnt(26070,11174,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEDRAWOBJ_LONG_F2=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(60))+ 1 ; -if(!qbevent)break;evnt(26070,11175,"ide_methods.bas");}while(r); -S_48405:; -if (((-(*_SUB_IDEDRAWOBJ_LONG_F2< 1 ))|(-(*_SUB_IDEDRAWOBJ_LONG_F2>*_SUB_IDEDRAWOBJ_LONG_N)))||new_error){ -if(qbevent){evnt(26070,11176,"ide_methods.bas");if(r)goto S_48405;} -S_48406:; -if ((*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(48)))||new_error){ -if(qbevent){evnt(26070,11177,"ide_methods.bas");if(r)goto S_48406;} -do{ -*_SUB_IDEDRAWOBJ_LONG_F2=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(48)); -if(!qbevent)break;evnt(26070,11177,"ide_methods.bas");}while(r); -} -} -do{ -*_SUB_IDEDRAWOBJ_LONG_N2= 1 ; -if(!qbevent)break;evnt(26070,11179,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_IDEDRAWOBJ_STRING_A3,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11180,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(4))+*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(24)),*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(0))+*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(20)),NULL,NULL,NULL,3); -if(!qbevent)break;evnt(26070,11181,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEDRAWOBJ_LONG_X=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(0))+*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(20)); -if(!qbevent)break;evnt(26070,11182,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,11183,"ide_methods.bas");}while(r); -S_48415:; -fornext_value5334= 1 ; -fornext_finalvalue5334=_SUB_IDEDRAWOBJ_STRING_A->len; -fornext_step5334= 1 ; -if (fornext_step5334<0) fornext_step_negative5334=1; else fornext_step_negative5334=0; -if (new_error) goto fornext_error5334; -goto fornext_entrylabel5334; -while(1){ -fornext_value5334=fornext_step5334+(*_SUB_IDEDRAWOBJ_LONG_I2); -fornext_entrylabel5334: -*_SUB_IDEDRAWOBJ_LONG_I2=fornext_value5334; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative5334){ -if (fornext_value5334fornext_finalvalue5334) break; -} -fornext_error5334:; -if(qbevent){evnt(26070,11184,"ide_methods.bas");if(r)goto S_48415;} -do{ -qbs_set(_SUB_IDEDRAWOBJ_STRING_A2,func_mid(_SUB_IDEDRAWOBJ_STRING_A,*_SUB_IDEDRAWOBJ_LONG_I2, 1 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11185,"ide_methods.bas");}while(r); -S_48417:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_IDEDRAWOBJ_STRING_A2,func_chr( 0 ))))||new_error){ -if(qbevent){evnt(26070,11186,"ide_methods.bas");if(r)goto S_48417;} -do{ -qbs_set(_SUB_IDEDRAWOBJ_STRING_A3,qbs_add(_SUB_IDEDRAWOBJ_STRING_A3,_SUB_IDEDRAWOBJ_STRING_A2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11186,"ide_methods.bas");}while(r); -} -S_48420:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_IDEDRAWOBJ_STRING_A2,func_chr( 0 )))|(-(*_SUB_IDEDRAWOBJ_LONG_I2==_SUB_IDEDRAWOBJ_STRING_A->len))))||new_error){ -if(qbevent){evnt(26070,11187,"ide_methods.bas");if(r)goto S_48420;} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_space(*_SUB_IDEDRAWOBJ_LONG_SPACING)); -if (new_error) goto skip5337; -makefit(tqbs); -qbs_print(tqbs,0); -skip5337: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11188,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEDRAWOBJ_LONG_X=*_SUB_IDEDRAWOBJ_LONG_X+*_SUB_IDEDRAWOBJ_LONG_SPACING; -if(!qbevent)break;evnt(26070,11189,"ide_methods.bas");}while(r); -S_48423:; -if ((-(*_SUB_IDEDRAWOBJ_LONG_F2==*_SUB_IDEDRAWOBJ_LONG_N2))||new_error){ -if(qbevent){evnt(26070,11190,"ide_methods.bas");if(r)goto S_48423;} -do{ -qbg_sub_color( 15 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,11190,"ide_methods.bas");}while(r); -}else{ -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,11190,"ide_methods.bas");}while(r); -} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("< ",2)); -if (new_error) goto skip5338; -makefit(tqbs); -qbs_print(tqbs,0); -skip5338: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11191,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,11192,"ide_methods.bas");}while(r); -do{ -SUB_IDEHPRINT(_SUB_IDEDRAWOBJ_STRING_A3); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11192,"ide_methods.bas");}while(r); -S_48431:; -if ((-(*_SUB_IDEDRAWOBJ_LONG_F2==*_SUB_IDEDRAWOBJ_LONG_N2))||new_error){ -if(qbevent){evnt(26070,11193,"ide_methods.bas");if(r)goto S_48431;} -do{ -qbg_sub_color( 15 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,11193,"ide_methods.bas");}while(r); -}else{ -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,11193,"ide_methods.bas");}while(r); -} -S_48436:; -if ((-(*_SUB_IDEDRAWOBJ_LONG_N2==(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(60))+ 1 )))||new_error){ -if(qbevent){evnt(26070,11194,"ide_methods.bas");if(r)goto S_48436;} -do{ -*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(52))=*_SUB_IDEDRAWOBJ_LONG_X+ 2 ; -if(!qbevent)break;evnt(26070,11195,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(56))=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(4))+*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(24)); -if(!qbevent)break;evnt(26070,11195,"ide_methods.bas");}while(r); -} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len(" >",2)); -if (new_error) goto skip5339; -makefit(tqbs); -qbs_print(tqbs,0); -skip5339: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11197,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,11198,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEDRAWOBJ_LONG_X=*_SUB_IDEDRAWOBJ_LONG_X+FUNC_IDEHLEN(_SUB_IDEDRAWOBJ_STRING_A3)+ 4 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11199,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_IDEDRAWOBJ_STRING_A3,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11200,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEDRAWOBJ_LONG_N2=*_SUB_IDEDRAWOBJ_LONG_N2+ 1 ; -if(!qbevent)break;evnt(26070,11201,"ide_methods.bas");}while(r); -} -fornext_continue_5333:; -} -fornext_exit_5333:; -do{ -*_SUB_IDEDRAWOBJ_LONG_F=*_SUB_IDEDRAWOBJ_LONG_F+*_SUB_IDEDRAWOBJ_LONG_N; -if(!qbevent)break;evnt(26070,11204,"ide_methods.bas");}while(r); -} -S_48449:; -if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(36))== 4 ))||new_error){ -if(qbevent){evnt(26070,11208,"ide_methods.bas");if(r)goto S_48449;} -S_48450:; -if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(20))== 0 ))||new_error){ -if(qbevent){evnt(26070,11209,"ide_methods.bas");if(r)goto S_48450;} -do{ -*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(20))= 2 ; -if(!qbevent)break;evnt(26070,11209,"ide_methods.bas");}while(r); -} -do{ -*_SUB_IDEDRAWOBJ_LONG_X=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(0))+*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(20)); -if(!qbevent)break;evnt(26070,11210,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEDRAWOBJ_LONG_Y=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(4))+*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(24)); -if(!qbevent)break;evnt(26070,11210,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*_SUB_IDEDRAWOBJ_LONG_Y,*_SUB_IDEDRAWOBJ_LONG_X,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(26070,11211,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,11212,"ide_methods.bas");}while(r); -S_48457:; -if ((*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(64)))||new_error){ -if(qbevent){evnt(26070,11213,"ide_methods.bas");if(r)goto S_48457;} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("[X] ",4)); -if (new_error) goto skip5340; -makefit(tqbs); -qbs_print(tqbs,0); -skip5340: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11214,"ide_methods.bas");}while(r); -}else{ -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("[ ] ",4)); -if (new_error) goto skip5341; -makefit(tqbs); -qbs_print(tqbs,0); -skip5341: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11216,"ide_methods.bas");}while(r); -} -S_48462:; -if ((*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(40)))||new_error){ -if(qbevent){evnt(26070,11218,"ide_methods.bas");if(r)goto S_48462;} -do{ -qbs_set(_SUB_IDEDRAWOBJ_STRING_A,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(40)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11219,"ide_methods.bas");}while(r); -do{ -SUB_IDEHPRINT(_SUB_IDEDRAWOBJ_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11220,"ide_methods.bas");}while(r); -} -S_48466:; -if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(60))== 0 ))||new_error){ -if(qbevent){evnt(26070,11222,"ide_methods.bas");if(r)goto S_48466;} -do{ -*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(52))=*_SUB_IDEDRAWOBJ_LONG_X+ 1 ; -if(!qbevent)break;evnt(26070,11222,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(56))=*_SUB_IDEDRAWOBJ_LONG_Y; -if(!qbevent)break;evnt(26070,11222,"ide_methods.bas");}while(r); -} -do{ -*_SUB_IDEDRAWOBJ_LONG_F=*_SUB_IDEDRAWOBJ_LONG_F+ 1 ; -if(!qbevent)break;evnt(26070,11223,"ide_methods.bas");}while(r); -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free190.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -void SUB_IDEDRAWPAR(void*_SUB_IDEDRAWPAR_UDT_P){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data191.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,11229,"ide_methods.bas");}while(r); -do{ -SUB_IDEBOXSHADOW((int32*)(void*)( ((char*)(_SUB_IDEDRAWPAR_UDT_P)) + (0) ),(int32*)(void*)( ((char*)(_SUB_IDEDRAWPAR_UDT_P)) + (4) ),&(pass5342=*(int32*)(((char*)_SUB_IDEDRAWPAR_UDT_P)+(8))+ 2 ),&(pass5343=*(int32*)(((char*)_SUB_IDEDRAWPAR_UDT_P)+(12))+ 2 )); -if(!qbevent)break;evnt(26070,11229,"ide_methods.bas");}while(r); -S_48474:; -if ((*(int32*)(((char*)_SUB_IDEDRAWPAR_UDT_P)+(16)))||new_error){ -if(qbevent){evnt(26070,11230,"ide_methods.bas");if(r)goto S_48474;} -do{ -*_SUB_IDEDRAWPAR_LONG_X=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_SUB_IDEDRAWPAR_UDT_P)+(16)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len+ 2 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11231,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,11232,"ide_methods.bas");}while(r); -do{ -sub__printstring(*(int32*)(((char*)_SUB_IDEDRAWPAR_UDT_P)+(0))+((*(int32*)(((char*)_SUB_IDEDRAWPAR_UDT_P)+(8))/ 2 ))-((*_SUB_IDEDRAWPAR_LONG_X- 1 )/ 2 ),*(int32*)(((char*)_SUB_IDEDRAWPAR_UDT_P)+(4)),qbs_add(qbs_add(qbs_new_txt_len(" ",1),((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_SUB_IDEDRAWPAR_UDT_P)+(16)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))),qbs_new_txt_len(" ",1)),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11232,"ide_methods.bas");}while(r); -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free191.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -qbs* FUNC_IDEFILEEXISTS(qbs*_FUNC_IDEFILEEXISTS_STRING_F){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data192.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -*_FUNC_IDEFILEEXISTS_LONG_L=_FUNC_IDEFILEEXISTS_STRING_F->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11237,"ide_methods.bas");}while(r); -S_48480:; -do{ -if(qbevent){evnt(26070,11238,"ide_methods.bas");if(r)goto S_48480;} -S_48481:; -if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDEFILEEXISTS_LONG_L<_FUNC_IDEFILEEXISTS_STRING_F->len)))||new_error){ -if(qbevent){evnt(26070,11239,"ide_methods.bas");if(r)goto S_48481;} -do{ -qbs_set(_FUNC_IDEFILEEXISTS_STRING_M,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("File ",5),func_chr( 34 )),func_string( 3 , 250 )),qbs_right(_FUNC_IDEFILEEXISTS_STRING_F,*_FUNC_IDEFILEEXISTS_LONG_L)),func_chr( 34 )),qbs_new_txt_len(" already exists. Overwrite?",27))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11240,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDEFILEEXISTS_STRING_M,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("File ",5),func_chr( 34 )),_FUNC_IDEFILEEXISTS_STRING_F),func_chr( 34 )),qbs_new_txt_len(" already exists. Overwrite?",27))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11242,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEFILEEXISTS_LONG_L=*_FUNC_IDEFILEEXISTS_LONG_L- 1 ; -if(!qbevent)break;evnt(26070,11244,"ide_methods.bas");}while(r); -S_48487:; -dl_continue_5347:; -}while((!(qbs_cleanup(qbs_tmp_base,-((_FUNC_IDEFILEEXISTS_STRING_M->len+ 4 )<((*__LONG_IDEWX- 6 ))))))&&(!new_error)); -dl_exit_5347:; -if(qbevent){evnt(26070,11245,"ide_methods.bas");if(r)goto S_48487;} -do{ -*_FUNC_IDEFILEEXISTS_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Save",4),_FUNC_IDEFILEEXISTS_STRING_M,qbs_new_txt_len("#Yes;#No",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11247,"ide_methods.bas");}while(r); -S_48489:; -if ((-(*_FUNC_IDEFILEEXISTS_LONG_RESULT== 1 ))||new_error){ -if(qbevent){evnt(26070,11248,"ide_methods.bas");if(r)goto S_48489;} -do{ -qbs_set(_FUNC_IDEFILEEXISTS_STRING_IDEFILEEXISTS,qbs_new_txt_len("Y",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11248,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDEFILEEXISTS_STRING_IDEFILEEXISTS,qbs_new_txt_len("N",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11248,"ide_methods.bas");}while(r); -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free192.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_IDEFILEEXISTS_STRING_IDEFILEEXISTS);return _FUNC_IDEFILEEXISTS_STRING_IDEFILEEXISTS; -} -qbs* FUNC_IDEFIND(){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data193.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ +} +if(!qbevent)break;evnt(26070,10952,"ide_methods.bas");}while(r); +} +do{ +SUB_IDEGOTOLINE(_SUB_IDEDELLINE_LONG_I); +if(!qbevent)break;evnt(26070,10955,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEDELLINE_LONG_TEXTLEN=string2l(func_mid(__STRING_IDET,*__LONG_IDELI, 4 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10956,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_IDET,qbs_add(qbs_left(__STRING_IDET,*__LONG_IDELI- 1 ),qbs_right(__STRING_IDET,__STRING_IDET->len-*__LONG_IDELI+ 1 - 8 -*_SUB_IDEDELLINE_LONG_TEXTLEN))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10957,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEN=*__LONG_IDEN- 1 ; +if(!qbevent)break;evnt(26070,10958,"ide_methods.bas");}while(r); +S_48132:; +if ((-(*_SUB_IDEDELLINE_LONG_I>*__LONG_IDEN))||new_error){ +if(qbevent){evnt(26070,10960,"ide_methods.bas");if(r)goto S_48132;} +do{ +SUB_IDEGOTOLINE(__LONG_IDEN); +if(!qbevent)break;evnt(26070,10960,"ide_methods.bas");}while(r); +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free188.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +void SUB_IDEDELTXT(){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data189.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +*__INTEGER_IDETXTLAST= 0 ; +if(!qbevent)break;evnt(26070,10965,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free189.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +void SUB_IDEDRAWOBJ(void*_SUB_IDEDRAWOBJ_UDT_O,int32*_SUB_IDEDRAWOBJ_LONG_F){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data190.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +if(!qbevent)break;evnt(26070,10969,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_IDEDRAWOBJ_STRING1_SEP,func_chr( 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10970,"ide_methods.bas");}while(r); +S_48138:; +if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(36))== 1 ))||new_error){ +if(qbevent){evnt(26070,10973,"ide_methods.bas");if(r)goto S_48138;} +S_48139:; +if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(20))== 0 ))||new_error){ +if(qbevent){evnt(26070,10974,"ide_methods.bas");if(r)goto S_48139;} +do{ +*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(20))= 2 ; +if(!qbevent)break;evnt(26070,10974,"ide_methods.bas");}while(r); +} +do{ +*_SUB_IDEDRAWOBJ_LONG_X=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(0))+*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(20)); +if(!qbevent)break;evnt(26070,10975,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEDRAWOBJ_LONG_Y=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(4))+*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(24)); +if(!qbevent)break;evnt(26070,10975,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,10976,"ide_methods.bas");}while(r); +S_48145:; +if ((*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(40)))||new_error){ +if(qbevent){evnt(26070,10977,"ide_methods.bas");if(r)goto S_48145;} +do{ +qbs_set(_SUB_IDEDRAWOBJ_STRING_A,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(40)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10978,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(*_SUB_IDEDRAWOBJ_LONG_Y,*_SUB_IDEDRAWOBJ_LONG_X,NULL,NULL,NULL,3); +if(!qbevent)break;evnt(26070,10979,"ide_methods.bas");}while(r); +do{ +SUB_IDEHPRINT(qbs_add(_SUB_IDEDRAWOBJ_STRING_A,qbs_new_txt_len(":",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10979,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEDRAWOBJ_LONG_X=*_SUB_IDEDRAWOBJ_LONG_X+FUNC_IDEHLEN(_SUB_IDEDRAWOBJ_STRING_A)+ 2 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10980,"ide_methods.bas");}while(r); +} +S_48151:; +if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(28))== 0 ))||new_error){ +if(qbevent){evnt(26070,10982,"ide_methods.bas");if(r)goto S_48151;} +do{ +*_SUB_IDEDRAWOBJ_LONG_X2=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(0))+*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(8))- 1 ; +if(!qbevent)break;evnt(26070,10982,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(28))=*_SUB_IDEDRAWOBJ_LONG_X2-*_SUB_IDEDRAWOBJ_LONG_X- 3 ; +if(!qbevent)break;evnt(26070,10982,"ide_methods.bas");}while(r); +} +do{ +SUB_IDEBOX(_SUB_IDEDRAWOBJ_LONG_X,&(pass5300=*_SUB_IDEDRAWOBJ_LONG_Y- 1 ),&(pass5301=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(28))+ 4 ),&(pass5302= 3 )); +if(!qbevent)break;evnt(26070,10983,"ide_methods.bas");}while(r); +S_48156:; +if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(44))== 0 ))||new_error){ +if(qbevent){evnt(26070,10984,"ide_methods.bas");if(r)goto S_48156;} +do{ +*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(44))=FUNC_IDENEWTXT(qbs_new_txt_len("",0)); +if(!qbevent)break;evnt(26070,10984,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_IDEDRAWOBJ_STRING_A,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10985,"ide_methods.bas");}while(r); +S_48160:; +if ((qbs_cleanup(qbs_tmp_base,-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(81))>_SUB_IDEDRAWOBJ_STRING_A->len)))||new_error){ +if(qbevent){evnt(26070,10986,"ide_methods.bas");if(r)goto S_48160;} +do{ +*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(81))=_SUB_IDEDRAWOBJ_STRING_A->len; +if(!qbevent)break;evnt(26070,10986,"ide_methods.bas");}while(r); +} +do{ +*_SUB_IDEDRAWOBJ_LONG_CX=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(81)); +if(!qbevent)break;evnt(26070,10987,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEDRAWOBJ_LONG_TX= 1 ; +if(!qbevent)break;evnt(26070,10989,"ide_methods.bas");}while(r); +S_48165:; +if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDEDRAWOBJ_STRING_A->len>*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(28)))))||new_error){ +if(qbevent){evnt(26070,10990,"ide_methods.bas");if(r)goto S_48165;} +S_48166:; +if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(60))== 0 ))||new_error){ +if(qbevent){evnt(26070,10991,"ide_methods.bas");if(r)goto S_48166;} +do{ +*_SUB_IDEDRAWOBJ_LONG_TX=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(81))-*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(28))+ 1 ; +if(!qbevent)break;evnt(26070,10992,"ide_methods.bas");}while(r); +S_48168:; +if ((-(*_SUB_IDEDRAWOBJ_LONG_TX< 1 ))||new_error){ +if(qbevent){evnt(26070,10993,"ide_methods.bas");if(r)goto S_48168;} +do{ +*_SUB_IDEDRAWOBJ_LONG_TX= 1 ; +if(!qbevent)break;evnt(26070,10993,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_IDEDRAWOBJ_STRING_A,func_mid(_SUB_IDEDRAWOBJ_STRING_A,*_SUB_IDEDRAWOBJ_LONG_TX,*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(28)),0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10994,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEDRAWOBJ_LONG_CX=*_SUB_IDEDRAWOBJ_LONG_CX-*_SUB_IDEDRAWOBJ_LONG_TX+ 1 ; +if(!qbevent)break;evnt(26070,10995,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_IDEDRAWOBJ_STRING_A,qbs_left(_SUB_IDEDRAWOBJ_STRING_A,*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(28)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,10997,"ide_methods.bas");}while(r); +} +} +do{ +*_SUB_IDEDRAWOBJ_LONG_SX1=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(77)); +if(!qbevent)break;evnt(26070,11001,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEDRAWOBJ_LONG_SX2=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(81)); +if(!qbevent)break;evnt(26070,11001,"ide_methods.bas");}while(r); +S_48179:; +if ((-(*_SUB_IDEDRAWOBJ_LONG_SX1>*_SUB_IDEDRAWOBJ_LONG_SX2))||new_error){ +if(qbevent){evnt(26070,11002,"ide_methods.bas");if(r)goto S_48179;} +do{ +swap_32(&*_SUB_IDEDRAWOBJ_LONG_SX1,&*_SUB_IDEDRAWOBJ_LONG_SX2); +if(!qbevent)break;evnt(26070,11002,"ide_methods.bas");}while(r); +} +do{ +*_SUB_IDEDRAWOBJ_LONG_X=*_SUB_IDEDRAWOBJ_LONG_X+ 2 ; +if(!qbevent)break;evnt(26070,11004,"ide_methods.bas");}while(r); +S_48183:; +if (((-(*(int8*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(76))== 0 ))|(-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(60))!= 0 )))||new_error){ +if(qbevent){evnt(26070,11006,"ide_methods.bas");if(r)goto S_48183;} +do{ +sub__printstring(*_SUB_IDEDRAWOBJ_LONG_X,*_SUB_IDEDRAWOBJ_LONG_Y,_SUB_IDEDRAWOBJ_STRING_A,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11007,"ide_methods.bas");}while(r); +}else{ +S_48186:; +fornext_value5307= 1 ; +fornext_finalvalue5307=_SUB_IDEDRAWOBJ_STRING_A->len; +fornext_step5307= 1 ; +if (fornext_step5307<0) fornext_step_negative5307=1; else fornext_step_negative5307=0; +if (new_error) goto fornext_error5307; +goto fornext_entrylabel5307; +while(1){ +fornext_value5307=fornext_step5307+(*_SUB_IDEDRAWOBJ_LONG_COLORCHAR); +fornext_entrylabel5307: +*_SUB_IDEDRAWOBJ_LONG_COLORCHAR=fornext_value5307; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative5307){ +if (fornext_value5307fornext_finalvalue5307) break; +} +fornext_error5307:; +if(qbevent){evnt(26070,11009,"ide_methods.bas");if(r)goto S_48186;} +S_48187:; +if (((-((*_SUB_IDEDRAWOBJ_LONG_COLORCHAR+*_SUB_IDEDRAWOBJ_LONG_TX- 2 )>=*_SUB_IDEDRAWOBJ_LONG_SX1))&(-((*_SUB_IDEDRAWOBJ_LONG_COLORCHAR+*_SUB_IDEDRAWOBJ_LONG_TX- 2 )<*_SUB_IDEDRAWOBJ_LONG_SX2)))||new_error){ +if(qbevent){evnt(26070,11010,"ide_methods.bas");if(r)goto S_48187;} +do{ +qbg_sub_color( 7 , 0 ,NULL,3); +if(!qbevent)break;evnt(26070,11010,"ide_methods.bas");}while(r); +}else{ +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,11010,"ide_methods.bas");}while(r); +} +do{ +sub__printstring(*_SUB_IDEDRAWOBJ_LONG_X- 1 +*_SUB_IDEDRAWOBJ_LONG_COLORCHAR,*_SUB_IDEDRAWOBJ_LONG_Y,func_mid(_SUB_IDEDRAWOBJ_STRING_A,*_SUB_IDEDRAWOBJ_LONG_COLORCHAR, 1 ,0|1),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11011,"ide_methods.bas");}while(r); +fornext_continue_5306:; +} +fornext_exit_5306:; +} +S_48195:; +if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(60))== 0 ))||new_error){ +if(qbevent){evnt(26070,11015,"ide_methods.bas");if(r)goto S_48195;} +do{ +*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(52))=*_SUB_IDEDRAWOBJ_LONG_X+*_SUB_IDEDRAWOBJ_LONG_CX; +if(!qbevent)break;evnt(26070,11015,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(56))=*_SUB_IDEDRAWOBJ_LONG_Y; +if(!qbevent)break;evnt(26070,11015,"ide_methods.bas");}while(r); +} +do{ +*_SUB_IDEDRAWOBJ_LONG_F=*_SUB_IDEDRAWOBJ_LONG_F+ 1 ; +if(!qbevent)break;evnt(26070,11016,"ide_methods.bas");}while(r); +} +S_48201:; +if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(36))== 2 ))||new_error){ +if(qbevent){evnt(26070,11020,"ide_methods.bas");if(r)goto S_48201;} +S_48202:; +if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(20))== 0 ))||new_error){ +if(qbevent){evnt(26070,11021,"ide_methods.bas");if(r)goto S_48202;} +do{ +*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(20))= 2 ; +if(!qbevent)break;evnt(26070,11021,"ide_methods.bas");}while(r); +} +S_48205:; +if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(28))== 0 ))||new_error){ +if(qbevent){evnt(26070,11022,"ide_methods.bas");if(r)goto S_48205;} +do{ +*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(28))=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(8))- 2 -*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(20)); +if(!qbevent)break;evnt(26070,11022,"ide_methods.bas");}while(r); +} +S_48208:; +if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(32))== 0 ))||new_error){ +if(qbevent){evnt(26070,11023,"ide_methods.bas");if(r)goto S_48208;} +do{ +*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(32))=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(12))- 1 -*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(24)); +if(!qbevent)break;evnt(26070,11023,"ide_methods.bas");}while(r); +} +do{ +*_SUB_IDEDRAWOBJ_LONG_X=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(0))+*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(20)); +if(!qbevent)break;evnt(26070,11024,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEDRAWOBJ_LONG_Y=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(4))+*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(24)); +if(!qbevent)break;evnt(26070,11024,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,11025,"ide_methods.bas");}while(r); +do{ +SUB_IDEBOX(_SUB_IDEDRAWOBJ_LONG_X,_SUB_IDEDRAWOBJ_LONG_Y,&(pass5309=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(28))+ 2 ),&(pass5310=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(32))+ 2 )); +if(!qbevent)break;evnt(26070,11026,"ide_methods.bas");}while(r); +S_48215:; +if ((*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(40)))||new_error){ +if(qbevent){evnt(26070,11027,"ide_methods.bas");if(r)goto S_48215;} +do{ +qbs_set(_SUB_IDEDRAWOBJ_STRING_A,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(40)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11028,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEDRAWOBJ_LONG_W=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(28))+ 2 ; +if(!qbevent)break;evnt(26070,11029,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEDRAWOBJ_LONG_M=*_SUB_IDEDRAWOBJ_LONG_W/ 2 ; +if(!qbevent)break;evnt(26070,11030,"ide_methods.bas");}while(r); +S_48219:; +if ((*_SUB_IDEDRAWOBJ_LONG_W& 1 )||new_error){ +if(qbevent){evnt(26070,11030,"ide_methods.bas");if(r)goto S_48219;} +do{ +*_SUB_IDEDRAWOBJ_LONG_M=*_SUB_IDEDRAWOBJ_LONG_M+ 1 ; +if(!qbevent)break;evnt(26070,11030,"ide_methods.bas");}while(r); +} +do{ +qbg_sub_locate(*_SUB_IDEDRAWOBJ_LONG_Y,*_SUB_IDEDRAWOBJ_LONG_X+*_SUB_IDEDRAWOBJ_LONG_M-( 1 )-(((FUNC_IDEHLEN(_SUB_IDEDRAWOBJ_STRING_A)+ 2 )- 1 )/ 2 ),NULL,NULL,NULL,3); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11031,"ide_methods.bas");}while(r); +do{ +SUB_IDEHPRINT(qbs_add(qbs_add(qbs_new_txt_len(" ",1),_SUB_IDEDRAWOBJ_STRING_A),qbs_new_txt_len(" ",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11031,"ide_methods.bas");}while(r); +} +S_48225:; +if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(64))== 0 ))||new_error){ +if(qbevent){evnt(26070,11034,"ide_methods.bas");if(r)goto S_48225;} +do{ +*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(64))= -1 ; +if(!qbevent)break;evnt(26070,11034,"ide_methods.bas");}while(r); +} +S_48228:; +if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(44))== 0 ))||new_error){ +if(qbevent){evnt(26070,11035,"ide_methods.bas");if(r)goto S_48228;} +do{ +*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(44))=FUNC_IDENEWTXT(qbs_new_txt_len("",0)); +if(!qbevent)break;evnt(26070,11035,"ide_methods.bas");}while(r); +} +S_48231:; +if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(72))== 0 ))||new_error){ +if(qbevent){evnt(26070,11036,"ide_methods.bas");if(r)goto S_48231;} +do{ +*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(72))=FUNC_IDENEWTXT(qbs_new_txt_len("",0)); +if(!qbevent)break;evnt(26070,11036,"ide_methods.bas");}while(r); +} +S_48234:; +if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(81))== 0 ))||new_error){ +if(qbevent){evnt(26070,11037,"ide_methods.bas");if(r)goto S_48234;} +do{ +*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(81))= 1 ; +if(!qbevent)break;evnt(26070,11037,"ide_methods.bas");}while(r); +} +do{ +*_SUB_IDEDRAWOBJ_LONG_S=func_abs((int32)(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(64)))); +if(!qbevent)break;evnt(26070,11038,"ide_methods.bas");}while(r); +S_48238:; +if ((-(*_SUB_IDEDRAWOBJ_LONG_S>=(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(81))+*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(32)))))||new_error){ +if(qbevent){evnt(26070,11039,"ide_methods.bas");if(r)goto S_48238;} +do{ +*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(81))=*_SUB_IDEDRAWOBJ_LONG_S-*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(32))+ 1 ; +if(!qbevent)break;evnt(26070,11039,"ide_methods.bas");}while(r); +} +S_48241:; +if ((-(*_SUB_IDEDRAWOBJ_LONG_S<*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(81))))||new_error){ +if(qbevent){evnt(26070,11040,"ide_methods.bas");if(r)goto S_48241;} +do{ +*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(81))=*_SUB_IDEDRAWOBJ_LONG_S; +if(!qbevent)break;evnt(26070,11040,"ide_methods.bas");}while(r); +} +S_48244:; +if (((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(60))!= 0 ))&(-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(64))> 0 )))||new_error){ +if(qbevent){evnt(26070,11041,"ide_methods.bas");if(r)goto S_48244;} +do{ +*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(64))=-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(64))); +if(!qbevent)break;evnt(26070,11041,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_IDEDRAWOBJ_STRING_A,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11042,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEDRAWOBJ_LONG_N= 1 ; +if(!qbevent)break;evnt(26070,11043,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEDRAWOBJ_LONG_Y= 1 ; +if(!qbevent)break;evnt(26070,11044,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEDRAWOBJ_LONG_V1=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(81)); +if(!qbevent)break;evnt(26070,11045,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_IDEDRAWOBJ_STRING_A3,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11046,"ide_methods.bas");}while(r); +S_48252:; +fornext_value5312= 1 ; +fornext_finalvalue5312=_SUB_IDEDRAWOBJ_STRING_A->len; +fornext_step5312= 1 ; +if (fornext_step5312<0) fornext_step_negative5312=1; else fornext_step_negative5312=0; +if (new_error) goto fornext_error5312; +goto fornext_entrylabel5312; +while(1){ +fornext_value5312=fornext_step5312+(*_SUB_IDEDRAWOBJ_LONG_I2); +fornext_entrylabel5312: +*_SUB_IDEDRAWOBJ_LONG_I2=fornext_value5312; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative5312){ +if (fornext_value5312fornext_finalvalue5312) break; +} +fornext_error5312:; +if(qbevent){evnt(26070,11047,"ide_methods.bas");if(r)goto S_48252;} +do{ +qbs_set(_SUB_IDEDRAWOBJ_STRING_A2,func_mid(_SUB_IDEDRAWOBJ_STRING_A,*_SUB_IDEDRAWOBJ_LONG_I2, 1 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11048,"ide_methods.bas");}while(r); +S_48254:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_IDEDRAWOBJ_STRING_A2,_SUB_IDEDRAWOBJ_STRING1_SEP)))||new_error){ +if(qbevent){evnt(26070,11049,"ide_methods.bas");if(r)goto S_48254;} +do{ +qbs_set(_SUB_IDEDRAWOBJ_STRING_A3,qbs_add(_SUB_IDEDRAWOBJ_STRING_A3,_SUB_IDEDRAWOBJ_STRING_A2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11049,"ide_methods.bas");}while(r); +} +S_48257:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_IDEDRAWOBJ_STRING_A2,_SUB_IDEDRAWOBJ_STRING1_SEP))|(-(*_SUB_IDEDRAWOBJ_LONG_I2==_SUB_IDEDRAWOBJ_STRING_A->len))))||new_error){ +if(qbevent){evnt(26070,11050,"ide_methods.bas");if(r)goto S_48257;} +S_48258:; +if ((-(*_SUB_IDEDRAWOBJ_LONG_N<*_SUB_IDEDRAWOBJ_LONG_V1))||new_error){ +if(qbevent){evnt(26070,11051,"ide_methods.bas");if(r)goto S_48258;} +}else{ +S_48260:; +if ((-(*_SUB_IDEDRAWOBJ_LONG_Y<=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(32))))||new_error){ +if(qbevent){evnt(26070,11054,"ide_methods.bas");if(r)goto S_48260;} +do{ +qbs_set(_SUB_IDEDRAWOBJ_STRING_A3,qbs_add(qbs_new_txt_len(" ",1),qbs_rtrim(_SUB_IDEDRAWOBJ_STRING_A3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11055,"ide_methods.bas");}while(r); +S_48262:; +if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(64))==*_SUB_IDEDRAWOBJ_LONG_N))||new_error){ +if(qbevent){evnt(26070,11056,"ide_methods.bas");if(r)goto S_48262;} +do{ +qbg_sub_color( 7 , 0 ,NULL,3); +if(!qbevent)break;evnt(26070,11057,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(68))=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(4))+*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(24))+*_SUB_IDEDRAWOBJ_LONG_Y; +if(!qbevent)break;evnt(26070,11058,"ide_methods.bas");}while(r); +}else{ +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,11060,"ide_methods.bas");}while(r); +} +S_48268:; +if (((((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(64))==*_SUB_IDEDRAWOBJ_LONG_N))|(-((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(64))))==*_SUB_IDEDRAWOBJ_LONG_N))))&(-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(60))== 0 )))||new_error){ +if(qbevent){evnt(26070,11062,"ide_methods.bas");if(r)goto S_48268;} +do{ +*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(52))=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(0))+*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(20))+ 2 ; +if(!qbevent)break;evnt(26070,11063,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(56))=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(4))+*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(24))+*_SUB_IDEDRAWOBJ_LONG_Y; +if(!qbevent)break;evnt(26070,11063,"ide_methods.bas");}while(r); +S_48271:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal((qbs_left(_SUB_IDEDRAWOBJ_STRING_A3, 2 )),(qbs_add(func_chr( 32 ),func_chr( 195 )))))|(qbs_equal((qbs_left(_SUB_IDEDRAWOBJ_STRING_A3, 2 )),(qbs_add(func_chr( 32 ),func_chr( 192 )))))))||new_error){ +if(qbevent){evnt(26070,11064,"ide_methods.bas");if(r)goto S_48271;} +do{ +*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(52))=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(52))+ 2 ; +if(!qbevent)break;evnt(26070,11065,"ide_methods.bas");}while(r); +} +} +do{ +qbg_sub_locate(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(4))+*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(24))+*_SUB_IDEDRAWOBJ_LONG_Y,*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(0))+*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(20))+ 1 ,NULL,NULL,NULL,3); +if(!qbevent)break;evnt(26070,11069,"ide_methods.bas");}while(r); +S_48276:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_IDEDRAWOBJ_STRING_A3,func_chr( 16 ),0)))||new_error){ +if(qbevent){evnt(26070,11070,"ide_methods.bas");if(r)goto S_48276;} +do{ +*_SUB_IDEDRAWOBJ_LONG_CHARACTER= 0 ; +if(!qbevent)break;evnt(26070,11075,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEDRAWOBJ_LONG_RIGHTSIDELIMIT=func_pos( 1 )+*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(28))- 1 ; +if(!qbevent)break;evnt(26070,11076,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEDRAWOBJ_LONG_CF=func_pos( 1 ); +if(!qbevent)break;evnt(26070,11077,"ide_methods.bas");}while(r); +S_48280:; +do{ +if(qbevent){evnt(26070,11078,"ide_methods.bas");if(r)goto S_48280;} +do{ +*_SUB_IDEDRAWOBJ_LONG_CHARACTER=*_SUB_IDEDRAWOBJ_LONG_CHARACTER+ 1 ; +if(!qbevent)break;evnt(26070,11079,"ide_methods.bas");}while(r); +S_48282:; +if ((qbs_cleanup(qbs_tmp_base,-(*_SUB_IDEDRAWOBJ_LONG_CHARACTER>_SUB_IDEDRAWOBJ_STRING_A3->len)))||new_error){ +if(qbevent){evnt(26070,11080,"ide_methods.bas");if(r)goto S_48282;} +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,func_space(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(28))-(func_pos( 1 )-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(0))+*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(20))))+ 1 )); +if (new_error) goto skip5317; +makefit(tqbs); +qbs_print(tqbs,0); +skip5317: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11081,"ide_methods.bas");}while(r); +do{ +goto dl_exit_5315; +if(!qbevent)break;evnt(26070,11082,"ide_methods.bas");}while(r); +} +S_48286:; +if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(_SUB_IDEDRAWOBJ_STRING_A3,*_SUB_IDEDRAWOBJ_LONG_CHARACTER)== 16 ))&(-(*_SUB_IDEDRAWOBJ_LONG_CHARACTER<_SUB_IDEDRAWOBJ_STRING_A3->len))))||new_error){ +if(qbevent){evnt(26070,11084,"ide_methods.bas");if(r)goto S_48286;} +S_48287:; +if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(_SUB_IDEDRAWOBJ_STRING_A3,*_SUB_IDEDRAWOBJ_LONG_CHARACTER+ 1 )>= 0 ))&(-(qbs_asc(_SUB_IDEDRAWOBJ_STRING_A3,*_SUB_IDEDRAWOBJ_LONG_CHARACTER+ 1 )<= 15 ))))||new_error){ +if(qbevent){evnt(26070,11085,"ide_methods.bas");if(r)goto S_48287;} +do{ +qbg_sub_color(qbs_asc(_SUB_IDEDRAWOBJ_STRING_A3,*_SUB_IDEDRAWOBJ_LONG_CHARACTER+ 1 ),NULL,NULL,1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11086,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEDRAWOBJ_LONG_CHARACTER=*_SUB_IDEDRAWOBJ_LONG_CHARACTER+ 1 ; +if(!qbevent)break;evnt(26070,11087,"ide_methods.bas");}while(r); +do{ +goto dl_continue_5315; +if(!qbevent)break;evnt(26070,11088,"ide_methods.bas");}while(r); +S_48291:; +}else{ +if (qbs_cleanup(qbs_tmp_base,-(qbs_asc(_SUB_IDEDRAWOBJ_STRING_A3,*_SUB_IDEDRAWOBJ_LONG_CHARACTER+ 1 )== 16 ))){ +if(qbevent){evnt(26070,11089,"ide_methods.bas");if(r)goto S_48291;} +S_48292:; +if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(64))==*_SUB_IDEDRAWOBJ_LONG_N))||new_error){ +if(qbevent){evnt(26070,11090,"ide_methods.bas");if(r)goto S_48292;} +do{ +qbg_sub_color( 7 ,NULL,NULL,1); +if(!qbevent)break;evnt(26070,11090,"ide_methods.bas");}while(r); +}else{ +do{ +qbg_sub_color( 0 ,NULL,NULL,1); +if(!qbevent)break;evnt(26070,11090,"ide_methods.bas");}while(r); +} +do{ +*_SUB_IDEDRAWOBJ_LONG_CHARACTER=*_SUB_IDEDRAWOBJ_LONG_CHARACTER+ 1 ; +if(!qbevent)break;evnt(26070,11091,"ide_methods.bas");}while(r); +do{ +goto dl_continue_5315; +if(!qbevent)break;evnt(26070,11092,"ide_methods.bas");}while(r); +} +} +S_48300:; +}else{ +if (qbs_cleanup(qbs_tmp_base,(-(qbs_asc(_SUB_IDEDRAWOBJ_STRING_A3,*_SUB_IDEDRAWOBJ_LONG_CHARACTER)== 17 ))&(-(*_SUB_IDEDRAWOBJ_LONG_CHARACTER<_SUB_IDEDRAWOBJ_STRING_A3->len)))){ +if(qbevent){evnt(26070,11094,"ide_methods.bas");if(r)goto S_48300;} +S_48301:; +if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(_SUB_IDEDRAWOBJ_STRING_A3,*_SUB_IDEDRAWOBJ_LONG_CHARACTER+ 1 )>= 0 ))&(-(qbs_asc(_SUB_IDEDRAWOBJ_STRING_A3,*_SUB_IDEDRAWOBJ_LONG_CHARACTER+ 1 )<= 15 ))))||new_error){ +if(qbevent){evnt(26070,11095,"ide_methods.bas");if(r)goto S_48301;} +S_48302:; +if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(64))!=*_SUB_IDEDRAWOBJ_LONG_N))||new_error){ +if(qbevent){evnt(26070,11096,"ide_methods.bas");if(r)goto S_48302;} +do{ +qbg_sub_color(NULL,qbs_asc(_SUB_IDEDRAWOBJ_STRING_A3,*_SUB_IDEDRAWOBJ_LONG_CHARACTER+ 1 ),NULL,2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11096,"ide_methods.bas");}while(r); +} +do{ +*_SUB_IDEDRAWOBJ_LONG_CHARACTER=*_SUB_IDEDRAWOBJ_LONG_CHARACTER+ 1 ; +if(!qbevent)break;evnt(26070,11097,"ide_methods.bas");}while(r); +do{ +goto dl_continue_5315; +if(!qbevent)break;evnt(26070,11098,"ide_methods.bas");}while(r); +S_48307:; +}else{ +if (qbs_cleanup(qbs_tmp_base,-(qbs_asc(_SUB_IDEDRAWOBJ_STRING_A3,*_SUB_IDEDRAWOBJ_LONG_CHARACTER+ 1 )== 17 ))){ +if(qbevent){evnt(26070,11099,"ide_methods.bas");if(r)goto S_48307;} +S_48308:; +if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(64))==*_SUB_IDEDRAWOBJ_LONG_N))||new_error){ +if(qbevent){evnt(26070,11100,"ide_methods.bas");if(r)goto S_48308;} +do{ +qbg_sub_color(NULL, 0 ,NULL,2); +if(!qbevent)break;evnt(26070,11100,"ide_methods.bas");}while(r); +}else{ +do{ +qbg_sub_color(NULL, 7 ,NULL,2); +if(!qbevent)break;evnt(26070,11100,"ide_methods.bas");}while(r); +} +do{ +*_SUB_IDEDRAWOBJ_LONG_CHARACTER=*_SUB_IDEDRAWOBJ_LONG_CHARACTER+ 1 ; +if(!qbevent)break;evnt(26070,11101,"ide_methods.bas");}while(r); +do{ +goto dl_continue_5315; +if(!qbevent)break;evnt(26070,11102,"ide_methods.bas");}while(r); +} +} +S_48316:; +}else{ +if (qbs_cleanup(qbs_tmp_base,(-(*_SUB_IDEDRAWOBJ_LONG_CHARACTER== 1 ))&(((qbs_equal((qbs_left(_SUB_IDEDRAWOBJ_STRING_A3, 2 )),(qbs_add(func_chr( 32 ),func_chr( 195 )))))|(qbs_equal((qbs_left(_SUB_IDEDRAWOBJ_STRING_A3, 2 )),(qbs_add(func_chr( 32 ),func_chr( 192 ))))))))){ +if(qbevent){evnt(26070,11104,"ide_methods.bas");if(r)goto S_48316;} +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,11105,"ide_methods.bas");}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_left(_SUB_IDEDRAWOBJ_STRING_A3, 3 )); +if (new_error) goto skip5320; +makefit(tqbs); +qbs_print(tqbs,0); +skip5320: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11106,"ide_methods.bas");}while(r); +S_48319:; +if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(64))==*_SUB_IDEDRAWOBJ_LONG_N))||new_error){ +if(qbevent){evnt(26070,11107,"ide_methods.bas");if(r)goto S_48319;} +do{ +qbg_sub_color( 7 , 0 ,NULL,3); +if(!qbevent)break;evnt(26070,11107,"ide_methods.bas");}while(r); +}else{ +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,11107,"ide_methods.bas");}while(r); +} +do{ +*_SUB_IDEDRAWOBJ_LONG_CHARACTER= 3 ; +if(!qbevent)break;evnt(26070,11108,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEDRAWOBJ_LONG_CF=*_SUB_IDEDRAWOBJ_LONG_CF+ 3 ; +if(!qbevent)break;evnt(26070,11109,"ide_methods.bas");}while(r); +do{ +goto dl_continue_5315; +if(!qbevent)break;evnt(26070,11110,"ide_methods.bas");}while(r); +} +} +} +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,func_mid(_SUB_IDEDRAWOBJ_STRING_A3,*_SUB_IDEDRAWOBJ_LONG_CHARACTER, 1 ,0|1)); +if (new_error) goto skip5321; +makefit(tqbs); +qbs_print(tqbs,0); +skip5321: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11112,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEDRAWOBJ_LONG_CF=*_SUB_IDEDRAWOBJ_LONG_CF+ 1 ; +if(!qbevent)break;evnt(26070,11113,"ide_methods.bas");}while(r); +S_48330:; +dl_continue_5315:; +}while((!(-(*_SUB_IDEDRAWOBJ_LONG_CF>*_SUB_IDEDRAWOBJ_LONG_RIGHTSIDELIMIT)))&&(!new_error)); +dl_exit_5315:; +if(qbevent){evnt(26070,11114,"ide_methods.bas");if(r)goto S_48330;} +S_48331:; +if ((qbs_cleanup(qbs_tmp_base,-(*_SUB_IDEDRAWOBJ_LONG_CHARACTER<_SUB_IDEDRAWOBJ_STRING_A3->len)))||new_error){ +if(qbevent){evnt(26070,11115,"ide_methods.bas");if(r)goto S_48331;} +do{ +sub__printstring(*_SUB_IDEDRAWOBJ_LONG_RIGHTSIDELIMIT,func_csrlin(),func_chr( 26 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11115,"ide_methods.bas");}while(r); +} +S_48334:; +if ((-(func_pos( 1 )<*_SUB_IDEDRAWOBJ_LONG_RIGHTSIDELIMIT))||new_error){ +if(qbevent){evnt(26070,11116,"ide_methods.bas");if(r)goto S_48334;} +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,func_space(*_SUB_IDEDRAWOBJ_LONG_RIGHTSIDELIMIT-func_pos( 1 ))); +if (new_error) goto skip5323; +makefit(tqbs); +qbs_print(tqbs,0); +skip5323: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11117,"ide_methods.bas");}while(r); +} +}else{ +S_48338:; +if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDEDRAWOBJ_STRING_A3->len>*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(28)))))||new_error){ +if(qbevent){evnt(26070,11120,"ide_methods.bas");if(r)goto S_48338;} +do{ +sub_mid(_SUB_IDEDRAWOBJ_STRING_A3,*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(28)), 1 ,func_chr( 26 ),1); +if(!qbevent)break;evnt(26070,11120,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_IDEDRAWOBJ_STRING_A3,qbs_add(_SUB_IDEDRAWOBJ_STRING_A3,func_space(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(28))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11121,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_IDEDRAWOBJ_STRING_A3,qbs_left(_SUB_IDEDRAWOBJ_STRING_A3,*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(28)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11122,"ide_methods.bas");}while(r); +S_48343:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal((qbs_left(_SUB_IDEDRAWOBJ_STRING_A3, 2 )),(qbs_add(func_chr( 32 ),func_chr( 195 )))))|(qbs_equal((qbs_left(_SUB_IDEDRAWOBJ_STRING_A3, 2 )),(qbs_add(func_chr( 32 ),func_chr( 192 )))))))||new_error){ +if(qbevent){evnt(26070,11124,"ide_methods.bas");if(r)goto S_48343;} +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,11125,"ide_methods.bas");}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_left(_SUB_IDEDRAWOBJ_STRING_A3, 3 )); +if (new_error) goto skip5325; +makefit(tqbs); +qbs_print(tqbs,0); +skip5325: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11126,"ide_methods.bas");}while(r); +S_48346:; +if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(64))==*_SUB_IDEDRAWOBJ_LONG_N))||new_error){ +if(qbevent){evnt(26070,11127,"ide_methods.bas");if(r)goto S_48346;} +do{ +qbg_sub_color( 7 , 0 ,NULL,3); +if(!qbevent)break;evnt(26070,11127,"ide_methods.bas");}while(r); +}else{ +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,11127,"ide_methods.bas");}while(r); +} +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,func_mid(_SUB_IDEDRAWOBJ_STRING_A3, 4 ,NULL,0)); +if (new_error) goto skip5326; +makefit(tqbs); +qbs_print(tqbs,0); +skip5326: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11128,"ide_methods.bas");}while(r); +}else{ +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,_SUB_IDEDRAWOBJ_STRING_A3); +if (new_error) goto skip5327; +makefit(tqbs); +qbs_print(tqbs,0); +skip5327: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11130,"ide_methods.bas");}while(r); +} +} +S_48356:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_SUB_IDEDRAWOBJ_STRING_A3,qbs_add(func_chr( 196 ),qbs_new_txt_len("*",1)),0)> 0 )))||new_error){ +if(qbevent){evnt(26070,11134,"ide_methods.bas");if(r)goto S_48356;} +S_48357:; +if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(64))==*_SUB_IDEDRAWOBJ_LONG_N))||new_error){ +if(qbevent){evnt(26070,11135,"ide_methods.bas");if(r)goto S_48357;} +do{ +qbg_sub_color( 2 , 0 ,NULL,3); +if(!qbevent)break;evnt(26070,11135,"ide_methods.bas");}while(r); +}else{ +do{ +qbg_sub_color( 2 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,11135,"ide_methods.bas");}while(r); +} +do{ +sub__printstring(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(0))+*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(20))+ 4 ,*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(4))+*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(24))+*_SUB_IDEDRAWOBJ_LONG_Y,qbs_new_txt_len("*",1),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11136,"ide_methods.bas");}while(r); +} +do{ +*_SUB_IDEDRAWOBJ_LONG_Y=*_SUB_IDEDRAWOBJ_LONG_Y+ 1 ; +if(!qbevent)break;evnt(26070,11138,"ide_methods.bas");}while(r); +} +} +do{ +*_SUB_IDEDRAWOBJ_LONG_N=*_SUB_IDEDRAWOBJ_LONG_N+ 1 ; +if(!qbevent)break;evnt(26070,11141,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_IDEDRAWOBJ_STRING_A3,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11142,"ide_methods.bas");}while(r); +} +fornext_continue_5311:; +} +fornext_exit_5311:; +do{ +*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(85))=*_SUB_IDEDRAWOBJ_LONG_N- 1 ; +if(!qbevent)break;evnt(26070,11145,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEDRAWOBJ_LONG_TNUM=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(85)); +if(!qbevent)break;evnt(26070,11147,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEDRAWOBJ_LONG_TSEL=func_abs((int32)(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(64)))); +if(!qbevent)break;evnt(26070,11148,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEDRAWOBJ_LONG_Q=FUNC_IDEVBAR(&(pass5328=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(0))+*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(20))+*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(28))+ 1 ),&(pass5329=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(4))+*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(24))+ 1 ),(int32*)(void*)( ((char*)(_SUB_IDEDRAWOBJ_UDT_O)) + (32) ),_SUB_IDEDRAWOBJ_LONG_TSEL,_SUB_IDEDRAWOBJ_LONG_TNUM); +if(!qbevent)break;evnt(26070,11150,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEDRAWOBJ_LONG_F=*_SUB_IDEDRAWOBJ_LONG_F+ 1 ; +if(!qbevent)break;evnt(26070,11152,"ide_methods.bas");}while(r); +} +S_48377:; +if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(36))== 3 ))||new_error){ +if(qbevent){evnt(26070,11156,"ide_methods.bas");if(r)goto S_48377;} +S_48378:; +if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(20))== 0 ))||new_error){ +if(qbevent){evnt(26070,11157,"ide_methods.bas");if(r)goto S_48378;} +do{ +*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(20))= 2 ; +if(!qbevent)break;evnt(26070,11157,"ide_methods.bas");}while(r); +} +S_48381:; +if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(28))== 0 ))||new_error){ +if(qbevent){evnt(26070,11158,"ide_methods.bas");if(r)goto S_48381;} +do{ +*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(28))=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(8))-*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(20)); +if(!qbevent)break;evnt(26070,11158,"ide_methods.bas");}while(r); +} +S_48384:; +if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(44))== 0 ))||new_error){ +if(qbevent){evnt(26070,11159,"ide_methods.bas");if(r)goto S_48384;} +do{ +*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(44))=FUNC_IDENEWTXT(qbs_new_txt_len("#OK",3)); +if(!qbevent)break;evnt(26070,11159,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_IDEDRAWOBJ_STRING_A,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11160,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEDRAWOBJ_LONG_N= 1 ; +if(!qbevent)break;evnt(26070,11161,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEDRAWOBJ_LONG_C= 0 ; +if(!qbevent)break;evnt(26070,11162,"ide_methods.bas");}while(r); +S_48390:; +fornext_value5331= 1 ; +fornext_finalvalue5331=_SUB_IDEDRAWOBJ_STRING_A->len; +fornext_step5331= 1 ; +if (fornext_step5331<0) fornext_step_negative5331=1; else fornext_step_negative5331=0; +if (new_error) goto fornext_error5331; +goto fornext_entrylabel5331; +while(1){ +fornext_value5331=fornext_step5331+(*_SUB_IDEDRAWOBJ_LONG_I2); +fornext_entrylabel5331: +*_SUB_IDEDRAWOBJ_LONG_I2=fornext_value5331; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative5331){ +if (fornext_value5331fornext_finalvalue5331) break; +} +fornext_error5331:; +if(qbevent){evnt(26070,11163,"ide_methods.bas");if(r)goto S_48390;} +do{ +qbs_set(_SUB_IDEDRAWOBJ_STRING_A2,func_mid(_SUB_IDEDRAWOBJ_STRING_A,*_SUB_IDEDRAWOBJ_LONG_I2, 1 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11164,"ide_methods.bas");}while(r); +S_48392:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDEDRAWOBJ_STRING_A2,func_chr( 0 ))))||new_error){ +if(qbevent){evnt(26070,11165,"ide_methods.bas");if(r)goto S_48392;} +do{ +*_SUB_IDEDRAWOBJ_LONG_N=*_SUB_IDEDRAWOBJ_LONG_N+ 1 ; +if(!qbevent)break;evnt(26070,11166,"ide_methods.bas");}while(r); +}else{ +S_48395:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_IDEDRAWOBJ_STRING_A,qbs_new_txt_len("#",1))))||new_error){ +if(qbevent){evnt(26070,11168,"ide_methods.bas");if(r)goto S_48395;} +do{ +*_SUB_IDEDRAWOBJ_LONG_C=*_SUB_IDEDRAWOBJ_LONG_C+ 1 ; +if(!qbevent)break;evnt(26070,11168,"ide_methods.bas");}while(r); +} +} +fornext_continue_5330:; +} +fornext_exit_5330:; +do{ +*_SUB_IDEDRAWOBJ_LONG_W=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(28)); +if(!qbevent)break;evnt(26070,11171,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEDRAWOBJ_LONG_C=*_SUB_IDEDRAWOBJ_LONG_C+(*_SUB_IDEDRAWOBJ_LONG_N* 4 ); +if(!qbevent)break;evnt(26070,11172,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEDRAWOBJ_LONG_WHITESPACE=*_SUB_IDEDRAWOBJ_LONG_W-*_SUB_IDEDRAWOBJ_LONG_C; +if(!qbevent)break;evnt(26070,11173,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEDRAWOBJ_LONG_SPACING=*_SUB_IDEDRAWOBJ_LONG_WHITESPACE/ (*_SUB_IDEDRAWOBJ_LONG_N+ 1 ); +if(!qbevent)break;evnt(26070,11174,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEDRAWOBJ_LONG_F2=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(60))+ 1 ; +if(!qbevent)break;evnt(26070,11175,"ide_methods.bas");}while(r); +S_48405:; +if (((-(*_SUB_IDEDRAWOBJ_LONG_F2< 1 ))|(-(*_SUB_IDEDRAWOBJ_LONG_F2>*_SUB_IDEDRAWOBJ_LONG_N)))||new_error){ +if(qbevent){evnt(26070,11176,"ide_methods.bas");if(r)goto S_48405;} +S_48406:; +if ((*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(48)))||new_error){ +if(qbevent){evnt(26070,11177,"ide_methods.bas");if(r)goto S_48406;} +do{ +*_SUB_IDEDRAWOBJ_LONG_F2=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(48)); +if(!qbevent)break;evnt(26070,11177,"ide_methods.bas");}while(r); +} +} +do{ +*_SUB_IDEDRAWOBJ_LONG_N2= 1 ; +if(!qbevent)break;evnt(26070,11179,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_IDEDRAWOBJ_STRING_A3,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11180,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(4))+*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(24)),*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(0))+*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(20)),NULL,NULL,NULL,3); +if(!qbevent)break;evnt(26070,11181,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEDRAWOBJ_LONG_X=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(0))+*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(20)); +if(!qbevent)break;evnt(26070,11182,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,11183,"ide_methods.bas");}while(r); +S_48415:; +fornext_value5334= 1 ; +fornext_finalvalue5334=_SUB_IDEDRAWOBJ_STRING_A->len; +fornext_step5334= 1 ; +if (fornext_step5334<0) fornext_step_negative5334=1; else fornext_step_negative5334=0; +if (new_error) goto fornext_error5334; +goto fornext_entrylabel5334; +while(1){ +fornext_value5334=fornext_step5334+(*_SUB_IDEDRAWOBJ_LONG_I2); +fornext_entrylabel5334: +*_SUB_IDEDRAWOBJ_LONG_I2=fornext_value5334; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative5334){ +if (fornext_value5334fornext_finalvalue5334) break; +} +fornext_error5334:; +if(qbevent){evnt(26070,11184,"ide_methods.bas");if(r)goto S_48415;} +do{ +qbs_set(_SUB_IDEDRAWOBJ_STRING_A2,func_mid(_SUB_IDEDRAWOBJ_STRING_A,*_SUB_IDEDRAWOBJ_LONG_I2, 1 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11185,"ide_methods.bas");}while(r); +S_48417:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_IDEDRAWOBJ_STRING_A2,func_chr( 0 ))))||new_error){ +if(qbevent){evnt(26070,11186,"ide_methods.bas");if(r)goto S_48417;} +do{ +qbs_set(_SUB_IDEDRAWOBJ_STRING_A3,qbs_add(_SUB_IDEDRAWOBJ_STRING_A3,_SUB_IDEDRAWOBJ_STRING_A2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11186,"ide_methods.bas");}while(r); +} +S_48420:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_IDEDRAWOBJ_STRING_A2,func_chr( 0 )))|(-(*_SUB_IDEDRAWOBJ_LONG_I2==_SUB_IDEDRAWOBJ_STRING_A->len))))||new_error){ +if(qbevent){evnt(26070,11187,"ide_methods.bas");if(r)goto S_48420;} +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,func_space(*_SUB_IDEDRAWOBJ_LONG_SPACING)); +if (new_error) goto skip5337; +makefit(tqbs); +qbs_print(tqbs,0); +skip5337: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11188,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEDRAWOBJ_LONG_X=*_SUB_IDEDRAWOBJ_LONG_X+*_SUB_IDEDRAWOBJ_LONG_SPACING; +if(!qbevent)break;evnt(26070,11189,"ide_methods.bas");}while(r); +S_48423:; +if ((-(*_SUB_IDEDRAWOBJ_LONG_F2==*_SUB_IDEDRAWOBJ_LONG_N2))||new_error){ +if(qbevent){evnt(26070,11190,"ide_methods.bas");if(r)goto S_48423;} +do{ +qbg_sub_color( 15 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,11190,"ide_methods.bas");}while(r); +}else{ +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,11190,"ide_methods.bas");}while(r); +} +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("< ",2)); +if (new_error) goto skip5338; +makefit(tqbs); +qbs_print(tqbs,0); +skip5338: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11191,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,11192,"ide_methods.bas");}while(r); +do{ +SUB_IDEHPRINT(_SUB_IDEDRAWOBJ_STRING_A3); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11192,"ide_methods.bas");}while(r); +S_48431:; +if ((-(*_SUB_IDEDRAWOBJ_LONG_F2==*_SUB_IDEDRAWOBJ_LONG_N2))||new_error){ +if(qbevent){evnt(26070,11193,"ide_methods.bas");if(r)goto S_48431;} +do{ +qbg_sub_color( 15 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,11193,"ide_methods.bas");}while(r); +}else{ +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,11193,"ide_methods.bas");}while(r); +} +S_48436:; +if ((-(*_SUB_IDEDRAWOBJ_LONG_N2==(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(60))+ 1 )))||new_error){ +if(qbevent){evnt(26070,11194,"ide_methods.bas");if(r)goto S_48436;} +do{ +*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(52))=*_SUB_IDEDRAWOBJ_LONG_X+ 2 ; +if(!qbevent)break;evnt(26070,11195,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(56))=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(4))+*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(24)); +if(!qbevent)break;evnt(26070,11195,"ide_methods.bas");}while(r); +} +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len(" >",2)); +if (new_error) goto skip5339; +makefit(tqbs); +qbs_print(tqbs,0); +skip5339: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11197,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,11198,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEDRAWOBJ_LONG_X=*_SUB_IDEDRAWOBJ_LONG_X+FUNC_IDEHLEN(_SUB_IDEDRAWOBJ_STRING_A3)+ 4 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11199,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_IDEDRAWOBJ_STRING_A3,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11200,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEDRAWOBJ_LONG_N2=*_SUB_IDEDRAWOBJ_LONG_N2+ 1 ; +if(!qbevent)break;evnt(26070,11201,"ide_methods.bas");}while(r); +} +fornext_continue_5333:; +} +fornext_exit_5333:; +do{ +*_SUB_IDEDRAWOBJ_LONG_F=*_SUB_IDEDRAWOBJ_LONG_F+*_SUB_IDEDRAWOBJ_LONG_N; +if(!qbevent)break;evnt(26070,11204,"ide_methods.bas");}while(r); +} +S_48449:; +if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(36))== 4 ))||new_error){ +if(qbevent){evnt(26070,11208,"ide_methods.bas");if(r)goto S_48449;} +S_48450:; +if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(20))== 0 ))||new_error){ +if(qbevent){evnt(26070,11209,"ide_methods.bas");if(r)goto S_48450;} +do{ +*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(20))= 2 ; +if(!qbevent)break;evnt(26070,11209,"ide_methods.bas");}while(r); +} +do{ +*_SUB_IDEDRAWOBJ_LONG_X=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(0))+*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(20)); +if(!qbevent)break;evnt(26070,11210,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEDRAWOBJ_LONG_Y=*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(4))+*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(24)); +if(!qbevent)break;evnt(26070,11210,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(*_SUB_IDEDRAWOBJ_LONG_Y,*_SUB_IDEDRAWOBJ_LONG_X,NULL,NULL,NULL,3); +if(!qbevent)break;evnt(26070,11211,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,11212,"ide_methods.bas");}while(r); +S_48457:; +if ((*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(64)))||new_error){ +if(qbevent){evnt(26070,11213,"ide_methods.bas");if(r)goto S_48457;} +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("[X] ",4)); +if (new_error) goto skip5340; +makefit(tqbs); +qbs_print(tqbs,0); +skip5340: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11214,"ide_methods.bas");}while(r); +}else{ +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("[ ] ",4)); +if (new_error) goto skip5341; +makefit(tqbs); +qbs_print(tqbs,0); +skip5341: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11216,"ide_methods.bas");}while(r); +} +S_48462:; +if ((*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(40)))||new_error){ +if(qbevent){evnt(26070,11218,"ide_methods.bas");if(r)goto S_48462;} +do{ +qbs_set(_SUB_IDEDRAWOBJ_STRING_A,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(40)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11219,"ide_methods.bas");}while(r); +do{ +SUB_IDEHPRINT(_SUB_IDEDRAWOBJ_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11220,"ide_methods.bas");}while(r); +} +S_48466:; +if ((-(*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(60))== 0 ))||new_error){ +if(qbevent){evnt(26070,11222,"ide_methods.bas");if(r)goto S_48466;} +do{ +*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(52))=*_SUB_IDEDRAWOBJ_LONG_X+ 1 ; +if(!qbevent)break;evnt(26070,11222,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_SUB_IDEDRAWOBJ_UDT_O)+(56))=*_SUB_IDEDRAWOBJ_LONG_Y; +if(!qbevent)break;evnt(26070,11222,"ide_methods.bas");}while(r); +} +do{ +*_SUB_IDEDRAWOBJ_LONG_F=*_SUB_IDEDRAWOBJ_LONG_F+ 1 ; +if(!qbevent)break;evnt(26070,11223,"ide_methods.bas");}while(r); +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free190.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +void SUB_IDEDRAWPAR(void*_SUB_IDEDRAWPAR_UDT_P){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data191.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,11229,"ide_methods.bas");}while(r); +do{ +SUB_IDEBOXSHADOW((int32*)(void*)( ((char*)(_SUB_IDEDRAWPAR_UDT_P)) + (0) ),(int32*)(void*)( ((char*)(_SUB_IDEDRAWPAR_UDT_P)) + (4) ),&(pass5342=*(int32*)(((char*)_SUB_IDEDRAWPAR_UDT_P)+(8))+ 2 ),&(pass5343=*(int32*)(((char*)_SUB_IDEDRAWPAR_UDT_P)+(12))+ 2 )); +if(!qbevent)break;evnt(26070,11229,"ide_methods.bas");}while(r); +S_48474:; +if ((*(int32*)(((char*)_SUB_IDEDRAWPAR_UDT_P)+(16)))||new_error){ +if(qbevent){evnt(26070,11230,"ide_methods.bas");if(r)goto S_48474;} +do{ +*_SUB_IDEDRAWPAR_LONG_X=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_SUB_IDEDRAWPAR_UDT_P)+(16)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len+ 2 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11231,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,11232,"ide_methods.bas");}while(r); +do{ +sub__printstring(*(int32*)(((char*)_SUB_IDEDRAWPAR_UDT_P)+(0))+((*(int32*)(((char*)_SUB_IDEDRAWPAR_UDT_P)+(8))/ 2 ))-((*_SUB_IDEDRAWPAR_LONG_X- 1 )/ 2 ),*(int32*)(((char*)_SUB_IDEDRAWPAR_UDT_P)+(4)),qbs_add(qbs_add(qbs_new_txt_len(" ",1),((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_SUB_IDEDRAWPAR_UDT_P)+(16)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))),qbs_new_txt_len(" ",1)),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11232,"ide_methods.bas");}while(r); +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free191.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +qbs* FUNC_IDEFILEEXISTS(qbs*_FUNC_IDEFILEEXISTS_STRING_F){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data192.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +*_FUNC_IDEFILEEXISTS_LONG_L=_FUNC_IDEFILEEXISTS_STRING_F->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11237,"ide_methods.bas");}while(r); +S_48480:; +do{ +if(qbevent){evnt(26070,11238,"ide_methods.bas");if(r)goto S_48480;} +S_48481:; +if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDEFILEEXISTS_LONG_L<_FUNC_IDEFILEEXISTS_STRING_F->len)))||new_error){ +if(qbevent){evnt(26070,11239,"ide_methods.bas");if(r)goto S_48481;} +do{ +qbs_set(_FUNC_IDEFILEEXISTS_STRING_M,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("File ",5),func_chr( 34 )),func_string( 3 , 250 )),qbs_right(_FUNC_IDEFILEEXISTS_STRING_F,*_FUNC_IDEFILEEXISTS_LONG_L)),func_chr( 34 )),qbs_new_txt_len(" already exists. Overwrite?",27))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11240,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDEFILEEXISTS_STRING_M,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("File ",5),func_chr( 34 )),_FUNC_IDEFILEEXISTS_STRING_F),func_chr( 34 )),qbs_new_txt_len(" already exists. Overwrite?",27))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11242,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEFILEEXISTS_LONG_L=*_FUNC_IDEFILEEXISTS_LONG_L- 1 ; +if(!qbevent)break;evnt(26070,11244,"ide_methods.bas");}while(r); +S_48487:; +dl_continue_5347:; +}while((!(qbs_cleanup(qbs_tmp_base,-((_FUNC_IDEFILEEXISTS_STRING_M->len+ 4 )<((*__LONG_IDEWX- 6 ))))))&&(!new_error)); +dl_exit_5347:; +if(qbevent){evnt(26070,11245,"ide_methods.bas");if(r)goto S_48487;} +do{ +*_FUNC_IDEFILEEXISTS_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Save",4),_FUNC_IDEFILEEXISTS_STRING_M,qbs_new_txt_len("#Yes;#No",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11247,"ide_methods.bas");}while(r); +S_48489:; +if ((-(*_FUNC_IDEFILEEXISTS_LONG_RESULT== 1 ))||new_error){ +if(qbevent){evnt(26070,11248,"ide_methods.bas");if(r)goto S_48489;} +do{ +qbs_set(_FUNC_IDEFILEEXISTS_STRING_IDEFILEEXISTS,qbs_new_txt_len("Y",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11248,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDEFILEEXISTS_STRING_IDEFILEEXISTS,qbs_new_txt_len("N",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11248,"ide_methods.bas");}while(r); +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free192.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_IDEFILEEXISTS_STRING_IDEFILEEXISTS);return _FUNC_IDEFILEEXISTS_STRING_IDEFILEEXISTS; +} +qbs* FUNC_IDEFIND(){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data193.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ if (_FUNC_IDEFIND_ARRAY_STRING_SEARCHHISTORY[2]&2){ error(10); @@ -162562,23 +162562,23 @@ while(tmp_long--) ((uint64*)(_FUNC_IDEFIND_ARRAY_STRING_SEARCHHISTORY[0]))[tmp_l }else{ while(tmp_long--) ((uint64*)(_FUNC_IDEFIND_ARRAY_STRING_SEARCHHISTORY[0]))[tmp_long]=(uint64)qbs_new(0,0); } -} -if(!qbevent)break;evnt(26070,11253,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 0 , 2 ); -if(!qbevent)break;evnt(26070,11255,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 0 , 1 ); -if(!qbevent)break;evnt(26070,11256,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,11257,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEFIND_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(26070,11258,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(26070,11259,"ide_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26070,11253,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 0 , 2 ); +if(!qbevent)break;evnt(26070,11255,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 0 , 1 ); +if(!qbevent)break;evnt(26070,11256,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,11257,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEFIND_LONG_FOCUS= 1 ; +if(!qbevent)break;evnt(26070,11258,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26070,11259,"ide_methods.bas");}while(r); +do{ if (_FUNC_IDEFIND_ARRAY_UDT_O[2]&2){ error(10); @@ -162598,1743 +162598,1743 @@ if (!_FUNC_IDEFIND_ARRAY_UDT_O[0]) error(257); } _FUNC_IDEFIND_ARRAY_UDT_O[2]|=1; } -} -if(!qbevent)break;evnt(26070,11260,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(26070,11261,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEFIND_STRING1_SEP,func_chr( 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11262,"ide_methods.bas");}while(r); -S_48503:; -if ((*__LONG_IDESELECT)||new_error){ -if(qbevent){evnt(26070,11268,"ide_methods.bas");if(r)goto S_48503;} -S_48504:; -if ((-(*__LONG_IDESELECTY1==*__LONG_IDECY))||new_error){ -if(qbevent){evnt(26070,11269,"ide_methods.bas");if(r)goto S_48504;} -do{ -qbs_set(_FUNC_IDEFIND_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11270,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEFIND_STRING_A2,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11271,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEFIND_LONG_SX1=*__LONG_IDESELECTX1; -if(!qbevent)break;evnt(26070,11272,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEFIND_LONG_SX2=*__LONG_IDECX; -if(!qbevent)break;evnt(26070,11272,"ide_methods.bas");}while(r); -S_48509:; -if ((-(*_FUNC_IDEFIND_LONG_SX2<*_FUNC_IDEFIND_LONG_SX1))||new_error){ -if(qbevent){evnt(26070,11273,"ide_methods.bas");if(r)goto S_48509;} -do{ -swap_32(&*_FUNC_IDEFIND_LONG_SX1,&*_FUNC_IDEFIND_LONG_SX2); -if(!qbevent)break;evnt(26070,11273,"ide_methods.bas");}while(r); -} -S_48512:; -fornext_value5351=*_FUNC_IDEFIND_LONG_SX1; -fornext_finalvalue5351=*_FUNC_IDEFIND_LONG_SX2- 1 ; -fornext_step5351= 1 ; -if (fornext_step5351<0) fornext_step_negative5351=1; else fornext_step_negative5351=0; -if (new_error) goto fornext_error5351; -goto fornext_entrylabel5351; -while(1){ -fornext_value5351=fornext_step5351+(*_FUNC_IDEFIND_LONG_X); -fornext_entrylabel5351: -*_FUNC_IDEFIND_LONG_X=fornext_value5351; -if (fornext_step_negative5351){ -if (fornext_value5351fornext_finalvalue5351) break; -} -fornext_error5351:; -if(qbevent){evnt(26070,11274,"ide_methods.bas");if(r)goto S_48512;} -S_48513:; -if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDEFIND_LONG_X<=_FUNC_IDEFIND_STRING_A->len)))||new_error){ -if(qbevent){evnt(26070,11275,"ide_methods.bas");if(r)goto S_48513;} -do{ -qbs_set(_FUNC_IDEFIND_STRING_A2,qbs_add(_FUNC_IDEFIND_STRING_A2,func_mid(_FUNC_IDEFIND_STRING_A,*_FUNC_IDEFIND_LONG_X, 1 ,0|1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11275,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDEFIND_STRING_A2,qbs_add(_FUNC_IDEFIND_STRING_A2,qbs_new_txt_len(" ",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11275,"ide_methods.bas");}while(r); -} -fornext_continue_5350:; -} -fornext_exit_5350:; -} -} -S_48521:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEFIND_STRING_A2,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,11279,"ide_methods.bas");if(r)goto S_48521;} -do{ -qbs_set(_FUNC_IDEFIND_STRING_A2,__STRING_IDEFINDTEXT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11280,"ide_methods.bas");}while(r); -} -do{ -SUB_RETRIEVESEARCHHISTORY(_FUNC_IDEFIND_ARRAY_STRING_SEARCHHISTORY); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11283,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEFIND_LONG_I= 0 ; -if(!qbevent)break;evnt(26070,11285,"ide_methods.bas");}while(r); -do{ -SUB_IDEPAR((void*)( ((char*)(_FUNC_IDEFIND_UDT_P)) + (0) ),&(pass5353= 60 ),&(pass5354= 11 ),qbs_new_txt_len("Find",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11286,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEFIND_LONG_I=*_FUNC_IDEFIND_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,11287,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEFIND_LONG_PREVFOCUS= 1 ; -if(!qbevent)break;evnt(26070,11288,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+36))= 1 ; -if(!qbevent)break;evnt(26070,11289,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+24))= 2 ; -if(!qbevent)break;evnt(26070,11290,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Find What",10)); -if(!qbevent)break;evnt(26070,11291,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDEFIND_STRING_A2); -if(!qbevent)break;evnt(26070,11292,"ide_methods.bas");}while(r); -S_48533:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDEFIND_STRING_A2->len> 0 )))||new_error){ -if(qbevent){evnt(26070,11293,"ide_methods.bas");if(r)goto S_48533;} -do{ -*(int8*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+76))= -1 ; -if(!qbevent)break;evnt(26070,11294,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+77))= 0 ; -if(!qbevent)break;evnt(26070,11295,"ide_methods.bas");}while(r); -} -do{ -*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+81))=_FUNC_IDEFIND_STRING_A2->len; -if(!qbevent)break;evnt(26070,11297,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEFIND_LONG_I=*_FUNC_IDEFIND_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,11301,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+36))= 4 ; -if(!qbevent)break;evnt(26070,11302,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+24))= 5 ; -if(!qbevent)break;evnt(26070,11303,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Match Upper/Lowercase",22)); -if(!qbevent)break;evnt(26070,11304,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+64))=*__INTEGER_IDEFINDCASESENS; -if(!qbevent)break;evnt(26070,11305,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEFIND_LONG_I=*_FUNC_IDEFIND_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,11307,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+36))= 4 ; -if(!qbevent)break;evnt(26070,11308,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+24))= 6 ; -if(!qbevent)break;evnt(26070,11309,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Whole Word",11)); -if(!qbevent)break;evnt(26070,11310,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+64))=*__INTEGER_IDEFINDWHOLEWORD; -if(!qbevent)break;evnt(26070,11311,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEFIND_LONG_I=*_FUNC_IDEFIND_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,11313,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+36))= 4 ; -if(!qbevent)break;evnt(26070,11314,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+24))= 7 ; -if(!qbevent)break;evnt(26070,11315,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Search Backwards",17)); -if(!qbevent)break;evnt(26070,11316,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+64))=*__INTEGER_IDEFINDBACKWARDS; -if(!qbevent)break;evnt(26070,11317,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEFIND_LONG_I=*_FUNC_IDEFIND_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,11319,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+36))= 4 ; -if(!qbevent)break;evnt(26070,11320,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+24))= 8 ; -if(!qbevent)break;evnt(26070,11321,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Ignore 'comments",17)); -if(!qbevent)break;evnt(26070,11322,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+64))=*__INTEGER_IDEFINDNOCOMMENTS; -if(!qbevent)break;evnt(26070,11323,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEFIND_LONG_I=*_FUNC_IDEFIND_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,11325,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+36))= 4 ; -if(!qbevent)break;evnt(26070,11326,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+20))= 29 ; -if(!qbevent)break;evnt(26070,11327,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+24))= 8 ; -if(!qbevent)break;evnt(26070,11328,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Look only in 'comments",23)); -if(!qbevent)break;evnt(26070,11329,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+64))=*__INTEGER_IDEFINDONLYCOMMENTS; -if(!qbevent)break;evnt(26070,11330,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEFIND_LONG_I=*_FUNC_IDEFIND_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,11332,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+36))= 4 ; -if(!qbevent)break;evnt(26070,11333,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+24))= 9 ; -if(!qbevent)break;evnt(26070,11334,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Ignore ",7),func_chr( 34 )),qbs_new_txt_len("s#trings",8)),func_chr( 34 ))); -if(!qbevent)break;evnt(26070,11335,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+64))=*__INTEGER_IDEFINDNOSTRINGS; -if(!qbevent)break;evnt(26070,11336,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEFIND_LONG_I=*_FUNC_IDEFIND_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,11338,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+36))= 4 ; -if(!qbevent)break;evnt(26070,11339,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+20))= 29 ; -if(!qbevent)break;evnt(26070,11340,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+24))= 9 ; -if(!qbevent)break;evnt(26070,11341,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Look only in ",13),func_chr( 34 )),qbs_new_txt_len("st#rings",8)),func_chr( 34 ))); -if(!qbevent)break;evnt(26070,11342,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+64))=*__INTEGER_IDEFINDONLYSTRINGS; -if(!qbevent)break;evnt(26070,11343,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEFIND_LONG_I=*_FUNC_IDEFIND_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,11345,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+36))= 3 ; -if(!qbevent)break;evnt(26070,11346,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+24))= 11 ; -if(!qbevent)break;evnt(26070,11347,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_new_txt_len("#OK",3),_FUNC_IDEFIND_STRING1_SEP),qbs_new_txt_len("#Cancel",7))); -if(!qbevent)break;evnt(26070,11348,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+48))= 1 ; -if(!qbevent)break;evnt(26070,11349,"ide_methods.bas");}while(r); -S_48580:; -fornext_value5358= 1 ; -fornext_finalvalue5358= 100 ; -fornext_step5358= 1 ; -if (fornext_step5358<0) fornext_step_negative5358=1; else fornext_step_negative5358=0; -if (new_error) goto fornext_error5358; -goto fornext_entrylabel5358; -while(1){ -fornext_value5358=fornext_step5358+(*_FUNC_IDEFIND_LONG_I); -fornext_entrylabel5358: -*_FUNC_IDEFIND_LONG_I=fornext_value5358; -if (fornext_step_negative5358){ -if (fornext_value5358fornext_finalvalue5358) break; -} -fornext_error5358:; -if(qbevent){evnt(26070,11353,"ide_methods.bas");if(r)goto S_48580;} -do{ -memcpy(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89)+ 0,((char*)_FUNC_IDEFIND_UDT_P)+(0)+ 0, 20); -if(!qbevent)break;evnt(26070,11353,"ide_methods.bas");}while(r); -fornext_continue_5357:; -} -fornext_exit_5357:; -S_48583:; -do{ -if(qbevent){evnt(26070,11356,"ide_methods.bas");if(r)goto S_48583;} -do{ -SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDEFIND_UDT_P)) + (0) )); -if(!qbevent)break;evnt(26070,11360,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEFIND_LONG_F= 1 ; -if(!qbevent)break;evnt(26070,11361,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEFIND_LONG_CX= 0 ; -if(!qbevent)break;evnt(26070,11361,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEFIND_LONG_CY= 0 ; -if(!qbevent)break;evnt(26070,11361,"ide_methods.bas");}while(r); -S_48588:; -fornext_value5361= 1 ; -fornext_finalvalue5361= 100 ; -fornext_step5361= 1 ; -if (fornext_step5361<0) fornext_step_negative5361=1; else fornext_step_negative5361=0; -if (new_error) goto fornext_error5361; -goto fornext_entrylabel5361; -while(1){ -fornext_value5361=fornext_step5361+(*_FUNC_IDEFIND_LONG_I); -fornext_entrylabel5361: -*_FUNC_IDEFIND_LONG_I=fornext_value5361; -if (fornext_step_negative5361){ -if (fornext_value5361fornext_finalvalue5361) break; -} -fornext_error5361:; -if(qbevent){evnt(26070,11362,"ide_methods.bas");if(r)goto S_48588;} -S_48589:; -if ((*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+36)))||new_error){ -if(qbevent){evnt(26070,11363,"ide_methods.bas");if(r)goto S_48589;} -do{ -*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+60))=*_FUNC_IDEFIND_LONG_FOCUS-*_FUNC_IDEFIND_LONG_F; -if(!qbevent)break;evnt(26070,11366,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+52))= 0 ; -if(!qbevent)break;evnt(26070,11367,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+56))= 0 ; -if(!qbevent)break;evnt(26070,11367,"ide_methods.bas");}while(r); -do{ -SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDEFIND_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89) ),_FUNC_IDEFIND_LONG_F); -if(!qbevent)break;evnt(26070,11368,"ide_methods.bas");}while(r); -S_48594:; -if ((*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+52)))||new_error){ -if(qbevent){evnt(26070,11369,"ide_methods.bas");if(r)goto S_48594;} -do{ -*_FUNC_IDEFIND_LONG_CX=*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+52)); -if(!qbevent)break;evnt(26070,11369,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEFIND_LONG_CY=*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+56)); -if(!qbevent)break;evnt(26070,11369,"ide_methods.bas");}while(r); -} -} -fornext_continue_5360:; -} -fornext_exit_5360:; -do{ -*_FUNC_IDEFIND_LONG_LASTFOCUS=*_FUNC_IDEFIND_LONG_F- 1 ; -if(!qbevent)break;evnt(26070,11372,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 1 , 0 ); -if(!qbevent)break;evnt(26070,11379,"ide_methods.bas");}while(r); -S_48602:; -if ((*_FUNC_IDEFIND_LONG_CX)||new_error){ -if(qbevent){evnt(26070,11380,"ide_methods.bas");if(r)goto S_48602;} -do{ -qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,11380,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*_FUNC_IDEFIND_LONG_CY,*_FUNC_IDEFIND_LONG_CX, 1 ,NULL,NULL,7); -if(!qbevent)break;evnt(26070,11380,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,11380,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEFIND_LONG_CHANGE= 0 ; -if(!qbevent)break;evnt(26070,11383,"ide_methods.bas");}while(r); -S_48608:; -do{ -if(qbevent){evnt(26070,11384,"ide_methods.bas");if(r)goto S_48608;} -do{ -SUB_GETINPUT(); -if(!qbevent)break;evnt(26070,11385,"ide_methods.bas");}while(r); -S_48610:; -if ((*__LONG_MWHEEL)||new_error){ -if(qbevent){evnt(26070,11386,"ide_methods.bas");if(r)goto S_48610;} -do{ -*_FUNC_IDEFIND_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,11386,"ide_methods.bas");}while(r); -} -S_48613:; -if ((*__LONG_KB)||new_error){ -if(qbevent){evnt(26070,11387,"ide_methods.bas");if(r)goto S_48613;} -do{ -*_FUNC_IDEFIND_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,11387,"ide_methods.bas");}while(r); -} -S_48616:; -if ((*__LONG_MCLICK)||new_error){ -if(qbevent){evnt(26070,11388,"ide_methods.bas");if(r)goto S_48616;} -do{ -*_FUNC_IDEFIND_LONG_MOUSEDOWN= 1 ; -if(!qbevent)break;evnt(26070,11388,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEFIND_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,11388,"ide_methods.bas");}while(r); -} -S_48620:; -if ((*__LONG_MRELEASE)||new_error){ -if(qbevent){evnt(26070,11389,"ide_methods.bas");if(r)goto S_48620;} -do{ -*_FUNC_IDEFIND_LONG_MOUSEUP= 1 ; -if(!qbevent)break;evnt(26070,11389,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEFIND_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,11389,"ide_methods.bas");}while(r); -} -S_48624:; -if ((*__LONG_MB)||new_error){ -if(qbevent){evnt(26070,11390,"ide_methods.bas");if(r)goto S_48624;} -do{ -*_FUNC_IDEFIND_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,11390,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEFIND_LONG_ALT=*__LONG_KALT; -if(!qbevent)break;evnt(26070,11391,"ide_methods.bas");}while(r); -S_48628:; -if ((-(*_FUNC_IDEFIND_LONG_ALT!=*_FUNC_IDEFIND_LONG_OLDALT))||new_error){ -if(qbevent){evnt(26070,11391,"ide_methods.bas");if(r)goto S_48628;} -do{ -*_FUNC_IDEFIND_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,11391,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEFIND_LONG_OLDALT=*_FUNC_IDEFIND_LONG_ALT; -if(!qbevent)break;evnt(26070,11392,"ide_methods.bas");}while(r); -do{ -sub__limit( 100 ); -if(!qbevent)break;evnt(26070,11393,"ide_methods.bas");}while(r); -S_48633:; -dl_continue_5362:; -}while((!(*_FUNC_IDEFIND_LONG_CHANGE))&&(!new_error)); -dl_exit_5362:; -if(qbevent){evnt(26070,11394,"ide_methods.bas");if(r)goto S_48633;} -S_48634:; -if ((*_FUNC_IDEFIND_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(26070,11395,"ide_methods.bas");if(r)goto S_48634;} -do{ -*__LONG_IDEHL= 1 ; -if(!qbevent)break;evnt(26070,11395,"ide_methods.bas");}while(r); -}else{ -do{ -*__LONG_IDEHL= 0 ; -if(!qbevent)break;evnt(26070,11395,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDEFIND_STRING_ALTLETTER,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11397,"ide_methods.bas");}while(r); -S_48640:; -if ((*_FUNC_IDEFIND_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(26070,11398,"ide_methods.bas");if(r)goto S_48640;} -S_48641:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ -if(qbevent){evnt(26070,11399,"ide_methods.bas");if(r)goto S_48641;} -do{ -*_FUNC_IDEFIND_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11400,"ide_methods.bas");}while(r); -S_48643:; -if (((-(*_FUNC_IDEFIND_LONG_K>= 65 ))&(-(*_FUNC_IDEFIND_LONG_K<= 90 )))||new_error){ -if(qbevent){evnt(26070,11401,"ide_methods.bas");if(r)goto S_48643;} -do{ -qbs_set(_FUNC_IDEFIND_STRING_ALTLETTER,func_chr(*_FUNC_IDEFIND_LONG_K)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11401,"ide_methods.bas");}while(r); -} -} -} -do{ -qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,11404,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); -if(!qbevent)break;evnt(26070,11404,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,11404,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEFIND_LONG_INFO= 0 ; -if(!qbevent)break;evnt(26070,11408,"ide_methods.bas");}while(r); -S_48652:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,11409,"ide_methods.bas");if(r)goto S_48652;} -do{ -qbs_set(__STRING_K,func_chr( 255 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11409,"ide_methods.bas");}while(r); -} -S_48655:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ -if(qbevent){evnt(26070,11410,"ide_methods.bas");if(r)goto S_48655;} -do{ -*_FUNC_IDEFIND_LONG_FOCUS=*_FUNC_IDEFIND_LONG_FOCUS+ 1 ; -if(!qbevent)break;evnt(26070,11410,"ide_methods.bas");}while(r); -} -S_48658:; -if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||new_error){ -if(qbevent){evnt(26070,11411,"ide_methods.bas");if(r)goto S_48658;} -do{ -*_FUNC_IDEFIND_LONG_FOCUS=*_FUNC_IDEFIND_LONG_FOCUS- 1 ; -if(!qbevent)break;evnt(26070,11411,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_K,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11411,"ide_methods.bas");}while(r); -} -S_48662:; -if ((-(*_FUNC_IDEFIND_LONG_FOCUS< 1 ))||new_error){ -if(qbevent){evnt(26070,11412,"ide_methods.bas");if(r)goto S_48662;} -do{ -*_FUNC_IDEFIND_LONG_FOCUS=*_FUNC_IDEFIND_LONG_LASTFOCUS; -if(!qbevent)break;evnt(26070,11412,"ide_methods.bas");}while(r); -} -S_48665:; -if ((-(*_FUNC_IDEFIND_LONG_FOCUS>*_FUNC_IDEFIND_LONG_LASTFOCUS))||new_error){ -if(qbevent){evnt(26070,11413,"ide_methods.bas");if(r)goto S_48665;} -do{ -*_FUNC_IDEFIND_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(26070,11413,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEFIND_LONG_F= 1 ; -if(!qbevent)break;evnt(26070,11414,"ide_methods.bas");}while(r); -S_48669:; -fornext_value5365= 1 ; -fornext_finalvalue5365= 100 ; -fornext_step5365= 1 ; -if (fornext_step5365<0) fornext_step_negative5365=1; else fornext_step_negative5365=0; -if (new_error) goto fornext_error5365; -goto fornext_entrylabel5365; -while(1){ -fornext_value5365=fornext_step5365+(*_FUNC_IDEFIND_LONG_I); -fornext_entrylabel5365: -*_FUNC_IDEFIND_LONG_I=fornext_value5365; -if (fornext_step_negative5365){ -if (fornext_value5365fornext_finalvalue5365) break; -} -fornext_error5365:; -if(qbevent){evnt(26070,11415,"ide_methods.bas");if(r)goto S_48669;} -do{ -*_FUNC_IDEFIND_LONG_T=*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+36)); -if(!qbevent)break;evnt(26070,11416,"ide_methods.bas");}while(r); -S_48671:; -if ((*_FUNC_IDEFIND_LONG_T)||new_error){ -if(qbevent){evnt(26070,11417,"ide_methods.bas");if(r)goto S_48671;} -do{ -*_FUNC_IDEFIND_LONG_FOCUSOFFSET=*_FUNC_IDEFIND_LONG_FOCUS-*_FUNC_IDEFIND_LONG_F; -if(!qbevent)break;evnt(26070,11418,"ide_methods.bas");}while(r); -do{ -SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDEFIND_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89) ),_FUNC_IDEFIND_LONG_FOCUS,_FUNC_IDEFIND_LONG_F,_FUNC_IDEFIND_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDEFIND_STRING_ALTLETTER,__LONG_MB,_FUNC_IDEFIND_LONG_MOUSEDOWN,_FUNC_IDEFIND_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDEFIND_LONG_INFO,__LONG_MWHEEL); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11419,"ide_methods.bas");}while(r); -} -fornext_continue_5364:; -} -fornext_exit_5364:; -S_48676:; -if ((-(*_FUNC_IDEFIND_LONG_FOCUS!=*_FUNC_IDEFIND_LONG_PREVFOCUS))||new_error){ -if(qbevent){evnt(26070,11425,"ide_methods.bas");if(r)goto S_48676;} -do{ -*_FUNC_IDEFIND_LONG_PREVFOCUS=*_FUNC_IDEFIND_LONG_FOCUS; -if(!qbevent)break;evnt(26070,11427,"ide_methods.bas");}while(r); -S_48678:; -if ((-(*_FUNC_IDEFIND_LONG_FOCUS== 1 ))||new_error){ -if(qbevent){evnt(26070,11428,"ide_methods.bas");if(r)goto S_48678;} -do{ -*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_FOCUS)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_FOCUS)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; -if(!qbevent)break;evnt(26070,11429,"ide_methods.bas");}while(r); -S_48680:; -if ((-(*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_FOCUS)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+81))> 0 ))||new_error){ -if(qbevent){evnt(26070,11430,"ide_methods.bas");if(r)goto S_48680;} -do{ -*(int8*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_FOCUS)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+76))= -1 ; -if(!qbevent)break;evnt(26070,11430,"ide_methods.bas");}while(r); -} -do{ -*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_FOCUS)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+77))= 0 ; -if(!qbevent)break;evnt(26070,11431,"ide_methods.bas");}while(r); -} -} -S_48686:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 27 )))|(((-(*_FUNC_IDEFIND_LONG_FOCUS== 10 ))&(-(*_FUNC_IDEFIND_LONG_INFO!= 0 ))))))||new_error){ -if(qbevent){evnt(26070,11435,"ide_methods.bas");if(r)goto S_48686;} -do{ -qbs_set(_FUNC_IDEFIND_STRING_IDEFIND,qbs_new_txt_len("C",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11436,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,11437,"ide_methods.bas");}while(r); -} -S_48690:; -if (((-(*_FUNC_IDEFIND_LONG_FOCUS== 5 ))&(-(*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 5 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+64))== 1 )))||new_error){ -if(qbevent){evnt(26070,11441,"ide_methods.bas");if(r)goto S_48690;} -do{ -*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 6 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+64))= 0 ; -if(!qbevent)break;evnt(26070,11442,"ide_methods.bas");}while(r); -S_48692:; -}else{ -if ((-(*_FUNC_IDEFIND_LONG_FOCUS== 6 ))&(-(*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 6 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+64))== 1 ))){ -if(qbevent){evnt(26070,11443,"ide_methods.bas");if(r)goto S_48692;} -do{ -*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 5 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+64))= 0 ; -if(!qbevent)break;evnt(26070,11444,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 7 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+64))= 0 ; -if(!qbevent)break;evnt(26070,11445,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 8 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+64))= 0 ; -if(!qbevent)break;evnt(26070,11446,"ide_methods.bas");}while(r); -S_48696:; -}else{ -if ((-(*_FUNC_IDEFIND_LONG_FOCUS== 7 ))&(-(*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 7 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+64))== 1 ))){ -if(qbevent){evnt(26070,11447,"ide_methods.bas");if(r)goto S_48696;} -do{ -*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 8 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+64))= 0 ; -if(!qbevent)break;evnt(26070,11448,"ide_methods.bas");}while(r); -S_48698:; -}else{ -if ((-(*_FUNC_IDEFIND_LONG_FOCUS== 8 ))&(-(*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 8 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+64))== 1 ))){ -if(qbevent){evnt(26070,11449,"ide_methods.bas");if(r)goto S_48698;} -do{ -*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 5 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+64))= 0 ; -if(!qbevent)break;evnt(26070,11450,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 6 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+64))= 0 ; -if(!qbevent)break;evnt(26070,11451,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 7 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+64))= 0 ; -if(!qbevent)break;evnt(26070,11452,"ide_methods.bas");}while(r); -} -} -} -} -S_48703:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 13 )))|(((-(*_FUNC_IDEFIND_LONG_FOCUS== 9 ))&(-(*_FUNC_IDEFIND_LONG_INFO!= 0 ))))))||new_error){ -if(qbevent){evnt(26070,11455,"ide_methods.bas");if(r)goto S_48703;} -do{ -*__INTEGER_IDEFINDCASESENS=*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+64)); -if(!qbevent)break;evnt(26070,11456,"ide_methods.bas");}while(r); -do{ -*__INTEGER_IDEFINDWHOLEWORD=*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+64)); -if(!qbevent)break;evnt(26070,11457,"ide_methods.bas");}while(r); -do{ -*__INTEGER_IDEFINDBACKWARDS=*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 4 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+64)); -if(!qbevent)break;evnt(26070,11458,"ide_methods.bas");}while(r); -do{ -*__INTEGER_IDEFINDNOCOMMENTS=*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 5 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+64)); -if(!qbevent)break;evnt(26070,11459,"ide_methods.bas");}while(r); -do{ -*__INTEGER_IDEFINDONLYCOMMENTS=*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 6 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+64)); -if(!qbevent)break;evnt(26070,11460,"ide_methods.bas");}while(r); -do{ -*__INTEGER_IDEFINDNOSTRINGS=*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 7 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+64)); -if(!qbevent)break;evnt(26070,11461,"ide_methods.bas");}while(r); -do{ -*__INTEGER_IDEFINDONLYSTRINGS=*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 8 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+64)); -if(!qbevent)break;evnt(26070,11462,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEFIND_STRING_S,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11463,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_IDEFINDTEXT,_FUNC_IDEFIND_STRING_S); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11464,"ide_methods.bas");}while(r); -do{ -SUB_IDEADDSEARCHED(__STRING_IDEFINDTEXT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11465,"ide_methods.bas");}while(r); -do{ -SUB_IDEFINDAGAIN(&(pass5367= 0 )); -if(!qbevent)break;evnt(26070,11466,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,11467,"ide_methods.bas");}while(r); -} -S_48717:; -if ((qbs_cleanup(qbs_tmp_base,-(func_ubound(_FUNC_IDEFIND_ARRAY_STRING_SEARCHHISTORY,1,1)> 0 )))||new_error){ -if(qbevent){evnt(26070,11470,"ide_methods.bas");if(r)goto S_48717;} -S_48718:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,(qbs_add(func_chr( 0 ),func_chr( 72 )))))&(-(*_FUNC_IDEFIND_LONG_FOCUS== 1 ))))||new_error){ -if(qbevent){evnt(26070,11471,"ide_methods.bas");if(r)goto S_48718;} -S_48719:; -if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDEFIND_LONG_LNlen; -if(!qbevent)break;evnt(26070,11476,"ide_methods.bas");}while(r); -} -S_48727:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,(qbs_add(func_chr( 0 ),func_chr( 80 )))))&(-(*_FUNC_IDEFIND_LONG_FOCUS== 1 ))))||new_error){ -if(qbevent){evnt(26070,11479,"ide_methods.bas");if(r)goto S_48727;} -S_48728:; -if ((-(*_FUNC_IDEFIND_LONG_LN> 1 ))||new_error){ -if(qbevent){evnt(26070,11480,"ide_methods.bas");if(r)goto S_48728;} -do{ -*_FUNC_IDEFIND_LONG_LN=*_FUNC_IDEFIND_LONG_LN- 1 ; -if(!qbevent)break;evnt(26070,11481,"ide_methods.bas");}while(r); -}else{ -do{ -*_FUNC_IDEFIND_LONG_LN= 1 ; -if(!qbevent)break;evnt(26070,11483,"ide_methods.bas");}while(r); -} -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),((qbs*)(((uint64*)(_FUNC_IDEFIND_ARRAY_STRING_SEARCHHISTORY[0]))[array_check((*_FUNC_IDEFIND_LONG_LN)-_FUNC_IDEFIND_ARRAY_STRING_SEARCHHISTORY[4],_FUNC_IDEFIND_ARRAY_STRING_SEARCHHISTORY[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11485,"ide_methods.bas");}while(r); -do{ -*(int8*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+76))= -1 ; -if(!qbevent)break;evnt(26070,11486,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+77))= 0 ; -if(!qbevent)break;evnt(26070,11486,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; -if(!qbevent)break;evnt(26070,11486,"ide_methods.bas");}while(r); -} -} -do{ -*_FUNC_IDEFIND_LONG_MOUSEDOWN= 0 ; -if(!qbevent)break;evnt(26070,11493,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEFIND_LONG_MOUSEUP= 0 ; -if(!qbevent)break;evnt(26070,11494,"ide_methods.bas");}while(r); -dl_continue_5359:; -}while(1); -dl_exit_5359:; -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free193.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_IDEFIND_STRING_IDEFIND);return _FUNC_IDEFIND_STRING_IDEFIND; -} -void SUB_IDEFINDAGAIN(int8*_SUB_IDEFINDAGAIN_BYTE_SHOWFLAGS){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data194.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -if(!qbevent)break;evnt(26070,11499,"ide_methods.bas");}while(r); -S_48743:; -if ((*__INTEGER_IDEFINDINVERT)||new_error){ -if(qbevent){evnt(26070,11501,"ide_methods.bas");if(r)goto S_48743;} -S_48744:; -if ((-(*__INTEGER_IDEFINDBACKWARDS== 0 ))||new_error){ -if(qbevent){evnt(26070,11502,"ide_methods.bas");if(r)goto S_48744;} -do{ -*__INTEGER_IDEFINDBACKWARDS= 1 ; -if(!qbevent)break;evnt(26070,11502,"ide_methods.bas");}while(r); -}else{ -do{ -*__INTEGER_IDEFINDBACKWARDS= 0 ; -if(!qbevent)break;evnt(26070,11502,"ide_methods.bas");}while(r); -} -} -do{ -qbs_set(_SUB_IDEFINDAGAIN_STRING_S,__STRING_IDEFINDTEXT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11505,"ide_methods.bas");}while(r); -S_48751:; -if ((-(*__INTEGER_IDEFINDCASESENS== 0 ))||new_error){ -if(qbevent){evnt(26070,11506,"ide_methods.bas");if(r)goto S_48751;} -do{ -qbs_set(_SUB_IDEFINDAGAIN_STRING_S,qbs_ucase(_SUB_IDEFINDAGAIN_STRING_S)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11506,"ide_methods.bas");}while(r); -} -do{ -*_SUB_IDEFINDAGAIN_LONG_START=*__LONG_IDECY; -if(!qbevent)break;evnt(26070,11507,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEFINDAGAIN_LONG_Y=*_SUB_IDEFINDAGAIN_LONG_START; -if(!qbevent)break;evnt(26070,11508,"ide_methods.bas");}while(r); -LABEL_IDEFINDNEXT2:; -if(qbevent){evnt(26070,11510,"ide_methods.bas");r=0;} -do{ -qbs_set(_SUB_IDEFINDAGAIN_STRING_L,FUNC_IDEGETLINE(_SUB_IDEFINDAGAIN_LONG_Y)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11511,"ide_methods.bas");}while(r); -S_48757:; -if ((-(*__INTEGER_IDEFINDCASESENS== 0 ))||new_error){ -if(qbevent){evnt(26070,11512,"ide_methods.bas");if(r)goto S_48757;} -do{ -qbs_set(_SUB_IDEFINDAGAIN_STRING_L,qbs_ucase(_SUB_IDEFINDAGAIN_STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11512,"ide_methods.bas");}while(r); -} -S_48760:; -if ((-(*_SUB_IDEFINDAGAIN_LONG_Y==*_SUB_IDEFINDAGAIN_LONG_START))||new_error){ -if(qbevent){evnt(26070,11514,"ide_methods.bas");if(r)goto S_48760;} -S_48761:; -if ((-(*_SUB_IDEFINDAGAIN_LONG_LOOPED== 1 ))||new_error){ -if(qbevent){evnt(26070,11516,"ide_methods.bas");if(r)goto S_48761;} -S_48762:; -if ((*__INTEGER_IDEFINDBACKWARDS)||new_error){ -if(qbevent){evnt(26070,11517,"ide_methods.bas");if(r)goto S_48762;} -S_48763:; -if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDEFINDAGAIN_STRING_L->len>*__LONG_IDECX)))||new_error){ -if(qbevent){evnt(26070,11518,"ide_methods.bas");if(r)goto S_48763;} -do{ -qbs_set(_SUB_IDEFINDAGAIN_STRING_L,qbs_add(func_string(*__LONG_IDECX, 255 ),qbs_right(_SUB_IDEFINDAGAIN_STRING_L,_SUB_IDEFINDAGAIN_STRING_L->len-*__LONG_IDECX))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11518,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_SUB_IDEFINDAGAIN_STRING_L,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11518,"ide_methods.bas");}while(r); -} -}else{ -S_48769:; -if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDEFINDAGAIN_STRING_L->len>*__LONG_IDECX)))||new_error){ -if(qbevent){evnt(26070,11520,"ide_methods.bas");if(r)goto S_48769;} -do{ -qbs_set(_SUB_IDEFINDAGAIN_STRING_L,qbs_left(_SUB_IDEFINDAGAIN_STRING_L,*__LONG_IDECX)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11520,"ide_methods.bas");}while(r); -} -} -}else{ -S_48774:; -if ((*__INTEGER_IDEFINDBACKWARDS)||new_error){ -if(qbevent){evnt(26070,11523,"ide_methods.bas");if(r)goto S_48774;} -S_48775:; -if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDEFINDAGAIN_STRING_L->len>*__LONG_IDECX)))||new_error){ -if(qbevent){evnt(26070,11524,"ide_methods.bas");if(r)goto S_48775;} -do{ -qbs_set(_SUB_IDEFINDAGAIN_STRING_L,qbs_left(_SUB_IDEFINDAGAIN_STRING_L,*__LONG_IDECX- 1 +(_SUB_IDEFINDAGAIN_STRING_S->len- 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11524,"ide_methods.bas");}while(r); -} -}else{ -S_48779:; -if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDEFINDAGAIN_STRING_L->len>*__LONG_IDECX)))||new_error){ -if(qbevent){evnt(26070,11526,"ide_methods.bas");if(r)goto S_48779;} -do{ -qbs_set(_SUB_IDEFINDAGAIN_STRING_L,qbs_add(func_string(*__LONG_IDECX, 255 ),qbs_right(_SUB_IDEFINDAGAIN_STRING_L,_SUB_IDEFINDAGAIN_STRING_L->len-*__LONG_IDECX))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11526,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_SUB_IDEFINDAGAIN_STRING_L,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11526,"ide_methods.bas");}while(r); -} -} -} -} -do{ -*_SUB_IDEFINDAGAIN_LONG_X1= 1 ; -if(!qbevent)break;evnt(26070,11531,"ide_methods.bas");}while(r); -S_48788:; -if ((*__INTEGER_IDEFINDBACKWARDS)||new_error){ -if(qbevent){evnt(26070,11532,"ide_methods.bas");if(r)goto S_48788;} -do{ -*_SUB_IDEFINDAGAIN_LONG_X1=_SUB_IDEFINDAGAIN_STRING_L->len-_SUB_IDEFINDAGAIN_STRING_S->len+ 1 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11533,"ide_methods.bas");}while(r); -S_48790:; -if ((-(*_SUB_IDEFINDAGAIN_LONG_X1< 0 ))||new_error){ -if(qbevent){evnt(26070,11534,"ide_methods.bas");if(r)goto S_48790;} -do{ -*_SUB_IDEFINDAGAIN_LONG_X1= 0 ; -if(!qbevent)break;evnt(26070,11534,"ide_methods.bas");}while(r); -} -} -LABEL_IDEFINDAGAIN2:; -if(qbevent){evnt(26070,11537,"ide_methods.bas");r=0;} -S_48794:; -if ((*__INTEGER_IDEFINDBACKWARDS)||new_error){ -if(qbevent){evnt(26070,11539,"ide_methods.bas");if(r)goto S_48794;} -do{ -*_SUB_IDEFINDAGAIN_LONG_X= 0 ; -if(!qbevent)break;evnt(26070,11540,"ide_methods.bas");}while(r); -S_48796:; -fornext_value5380=*_SUB_IDEFINDAGAIN_LONG_X1; -fornext_finalvalue5380= 1 ; -fornext_step5380= -1 ; -if (fornext_step5380<0) fornext_step_negative5380=1; else fornext_step_negative5380=0; -if (new_error) goto fornext_error5380; -goto fornext_entrylabel5380; -while(1){ -fornext_value5380=fornext_step5380+(*_SUB_IDEFINDAGAIN_LONG_XX); -fornext_entrylabel5380: -*_SUB_IDEFINDAGAIN_LONG_XX=fornext_value5380; -if (fornext_step_negative5380){ -if (fornext_value5380fornext_finalvalue5380) break; -} -fornext_error5380:; -if(qbevent){evnt(26070,11541,"ide_methods.bas");if(r)goto S_48796;} -S_48797:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_SUB_IDEFINDAGAIN_STRING_L,*_SUB_IDEFINDAGAIN_LONG_XX)==qbs_asc(_SUB_IDEFINDAGAIN_STRING_S))))||new_error){ -if(qbevent){evnt(26070,11542,"ide_methods.bas");if(r)goto S_48797;} -do{ -*_SUB_IDEFINDAGAIN_LONG_XXO=*_SUB_IDEFINDAGAIN_LONG_XX- 1 ; -if(!qbevent)break;evnt(26070,11543,"ide_methods.bas");}while(r); -S_48799:; -fornext_value5382=*_SUB_IDEFINDAGAIN_LONG_XX; -fornext_finalvalue5382=*_SUB_IDEFINDAGAIN_LONG_XX+_SUB_IDEFINDAGAIN_STRING_S->len- 1 ; -fornext_step5382= 1 ; -if (fornext_step5382<0) fornext_step_negative5382=1; else fornext_step_negative5382=0; -if (new_error) goto fornext_error5382; -goto fornext_entrylabel5382; -while(1){ -fornext_value5382=fornext_step5382+(*_SUB_IDEFINDAGAIN_LONG_XX2); -fornext_entrylabel5382: -*_SUB_IDEFINDAGAIN_LONG_XX2=fornext_value5382; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative5382){ -if (fornext_value5382fornext_finalvalue5382) break; -} -fornext_error5382:; -if(qbevent){evnt(26070,11544,"ide_methods.bas");if(r)goto S_48799;} -S_48800:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_SUB_IDEFINDAGAIN_STRING_L,*_SUB_IDEFINDAGAIN_LONG_XX2)!=qbs_asc(_SUB_IDEFINDAGAIN_STRING_S,*_SUB_IDEFINDAGAIN_LONG_XX2-*_SUB_IDEFINDAGAIN_LONG_XXO))))||new_error){ -if(qbevent){evnt(26070,11545,"ide_methods.bas");if(r)goto S_48800;} -do{ -goto fornext_exit_5381; -if(!qbevent)break;evnt(26070,11545,"ide_methods.bas");}while(r); -} -fornext_continue_5381:; -} -fornext_exit_5381:; -S_48804:; -if ((qbs_cleanup(qbs_tmp_base,-(*_SUB_IDEFINDAGAIN_LONG_XX2==(*_SUB_IDEFINDAGAIN_LONG_XX+_SUB_IDEFINDAGAIN_STRING_S->len))))||new_error){ -if(qbevent){evnt(26070,11547,"ide_methods.bas");if(r)goto S_48804;} -do{ -*_SUB_IDEFINDAGAIN_LONG_X=*_SUB_IDEFINDAGAIN_LONG_XX; -if(!qbevent)break;evnt(26070,11549,"ide_methods.bas");}while(r); -do{ -goto fornext_exit_5379; -if(!qbevent)break;evnt(26070,11550,"ide_methods.bas");}while(r); -} -} -fornext_continue_5379:; -} -fornext_exit_5379:; -}else{ -do{ -*_SUB_IDEFINDAGAIN_LONG_X=func_instr(*_SUB_IDEFINDAGAIN_LONG_X1,_SUB_IDEFINDAGAIN_STRING_L,_SUB_IDEFINDAGAIN_STRING_S,0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11555,"ide_methods.bas");}while(r); -} -S_48813:; -if ((*_SUB_IDEFINDAGAIN_LONG_X)||new_error){ -if(qbevent){evnt(26070,11559,"ide_methods.bas");if(r)goto S_48813;} -S_48814:; -if ((*__INTEGER_IDEFINDWHOLEWORD)||new_error){ -if(qbevent){evnt(26070,11560,"ide_methods.bas");if(r)goto S_48814;} -do{ -*_SUB_IDEFINDAGAIN_LONG_WHOLE= 1 ; -if(!qbevent)break;evnt(26070,11561,"ide_methods.bas");}while(r); -S_48816:; -if ((-(*_SUB_IDEFINDAGAIN_LONG_X> 1 ))||new_error){ -if(qbevent){evnt(26070,11562,"ide_methods.bas");if(r)goto S_48816;} -do{ -*_SUB_IDEFINDAGAIN_LONG_C=qbs_asc(qbs_ucase(func_mid(_SUB_IDEFINDAGAIN_STRING_L,*_SUB_IDEFINDAGAIN_LONG_X- 1 , 1 ,0|1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11563,"ide_methods.bas");}while(r); -S_48818:; -if (((-(*_SUB_IDEFINDAGAIN_LONG_C>= 65 ))&(-(*_SUB_IDEFINDAGAIN_LONG_C<= 90 )))||new_error){ -if(qbevent){evnt(26070,11564,"ide_methods.bas");if(r)goto S_48818;} -do{ -*_SUB_IDEFINDAGAIN_LONG_WHOLE= 0 ; -if(!qbevent)break;evnt(26070,11564,"ide_methods.bas");}while(r); -} -S_48821:; -if (((-(*_SUB_IDEFINDAGAIN_LONG_C>= 48 ))&(-(*_SUB_IDEFINDAGAIN_LONG_C<= 57 )))||new_error){ -if(qbevent){evnt(26070,11565,"ide_methods.bas");if(r)goto S_48821;} -do{ -*_SUB_IDEFINDAGAIN_LONG_WHOLE= 0 ; -if(!qbevent)break;evnt(26070,11565,"ide_methods.bas");}while(r); -} -} -S_48825:; -if ((qbs_cleanup(qbs_tmp_base,-((*_SUB_IDEFINDAGAIN_LONG_X+_SUB_IDEFINDAGAIN_STRING_S->len)<=(_SUB_IDEFINDAGAIN_STRING_L->len))))||new_error){ -if(qbevent){evnt(26070,11567,"ide_methods.bas");if(r)goto S_48825;} -do{ -*_SUB_IDEFINDAGAIN_LONG_C=qbs_asc(qbs_ucase(func_mid(_SUB_IDEFINDAGAIN_STRING_L,*_SUB_IDEFINDAGAIN_LONG_X+_SUB_IDEFINDAGAIN_STRING_S->len, 1 ,0|1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11568,"ide_methods.bas");}while(r); -S_48827:; -if (((-(*_SUB_IDEFINDAGAIN_LONG_C>= 65 ))&(-(*_SUB_IDEFINDAGAIN_LONG_C<= 90 )))||new_error){ -if(qbevent){evnt(26070,11569,"ide_methods.bas");if(r)goto S_48827;} -do{ -*_SUB_IDEFINDAGAIN_LONG_WHOLE= 0 ; -if(!qbevent)break;evnt(26070,11569,"ide_methods.bas");}while(r); -} -S_48830:; -if (((-(*_SUB_IDEFINDAGAIN_LONG_C>= 48 ))&(-(*_SUB_IDEFINDAGAIN_LONG_C<= 57 )))||new_error){ -if(qbevent){evnt(26070,11570,"ide_methods.bas");if(r)goto S_48830;} -do{ -*_SUB_IDEFINDAGAIN_LONG_WHOLE= 0 ; -if(!qbevent)break;evnt(26070,11570,"ide_methods.bas");}while(r); -} -} -S_48834:; -if ((-(*_SUB_IDEFINDAGAIN_LONG_WHOLE== 0 ))||new_error){ -if(qbevent){evnt(26070,11572,"ide_methods.bas");if(r)goto S_48834;} -do{ -*_SUB_IDEFINDAGAIN_LONG_X1=*_SUB_IDEFINDAGAIN_LONG_X+ 1 ; -if(!qbevent)break;evnt(26070,11573,"ide_methods.bas");}while(r); -S_48836:; -if ((*__INTEGER_IDEFINDBACKWARDS)||new_error){ -if(qbevent){evnt(26070,11573,"ide_methods.bas");if(r)goto S_48836;} -do{ -*_SUB_IDEFINDAGAIN_LONG_X1=*_SUB_IDEFINDAGAIN_LONG_X- 1 ; -if(!qbevent)break;evnt(26070,11573,"ide_methods.bas");}while(r); -} -do{ -*_SUB_IDEFINDAGAIN_LONG_X= 0 ; -if(!qbevent)break;evnt(26070,11574,"ide_methods.bas");}while(r); -S_48840:; -if ((qbs_cleanup(qbs_tmp_base,(-(*_SUB_IDEFINDAGAIN_LONG_X1> 0 ))&(-(*_SUB_IDEFINDAGAIN_LONG_X1<=_SUB_IDEFINDAGAIN_STRING_L->len))))||new_error){ -if(qbevent){evnt(26070,11575,"ide_methods.bas");if(r)goto S_48840;} -do{ -goto LABEL_IDEFINDAGAIN2; -if(!qbevent)break;evnt(26070,11575,"ide_methods.bas");}while(r); -} -} -} -} -S_48846:; -if ((*_SUB_IDEFINDAGAIN_LONG_X)||new_error){ -if(qbevent){evnt(26070,11580,"ide_methods.bas");if(r)goto S_48846;} -do{ -SUB_FINDQUOTECOMMENT(_SUB_IDEFINDAGAIN_STRING_L,_SUB_IDEFINDAGAIN_LONG_X,_SUB_IDEFINDAGAIN_BYTE_COMMENT,_SUB_IDEFINDAGAIN_BYTE_QUOTE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11581,"ide_methods.bas");}while(r); -S_48848:; -if (((-(*__INTEGER_IDEFINDNOCOMMENTS!= 0 ))&*_SUB_IDEFINDAGAIN_BYTE_COMMENT)||new_error){ -if(qbevent){evnt(26070,11582,"ide_methods.bas");if(r)goto S_48848;} -do{ -*_SUB_IDEFINDAGAIN_LONG_X= 0 ; -if(!qbevent)break;evnt(26070,11582,"ide_methods.bas");}while(r); -} -S_48851:; -if (((-(*__INTEGER_IDEFINDNOSTRINGS!= 0 ))&*_SUB_IDEFINDAGAIN_BYTE_QUOTE)||new_error){ -if(qbevent){evnt(26070,11583,"ide_methods.bas");if(r)goto S_48851;} -do{ -*_SUB_IDEFINDAGAIN_LONG_X= 0 ; -if(!qbevent)break;evnt(26070,11583,"ide_methods.bas");}while(r); -} -S_48854:; -if (((-(*__INTEGER_IDEFINDONLYCOMMENTS!= 0 ))&(-(*_SUB_IDEFINDAGAIN_BYTE_COMMENT== 0 )))||new_error){ -if(qbevent){evnt(26070,11584,"ide_methods.bas");if(r)goto S_48854;} -do{ -*_SUB_IDEFINDAGAIN_LONG_X= 0 ; -if(!qbevent)break;evnt(26070,11584,"ide_methods.bas");}while(r); -} -S_48857:; -if (((-(*__INTEGER_IDEFINDONLYSTRINGS!= 0 ))&(-(*_SUB_IDEFINDAGAIN_BYTE_QUOTE== 0 )))||new_error){ -if(qbevent){evnt(26070,11585,"ide_methods.bas");if(r)goto S_48857;} -do{ -*_SUB_IDEFINDAGAIN_LONG_X= 0 ; -if(!qbevent)break;evnt(26070,11585,"ide_methods.bas");}while(r); -} -} -S_48861:; -if ((*_SUB_IDEFINDAGAIN_LONG_X)||new_error){ -if(qbevent){evnt(26070,11588,"ide_methods.bas");if(r)goto S_48861;} -do{ -*__LONG_IDESELECT= 1 ; -if(!qbevent)break;evnt(26070,11589,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECX=*_SUB_IDEFINDAGAIN_LONG_X; -if(!qbevent)break;evnt(26070,11590,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECY=*_SUB_IDEFINDAGAIN_LONG_Y; -if(!qbevent)break;evnt(26070,11590,"ide_methods.bas");}while(r); -do{ -*__LONG_SEARCHSTRINGFOUNDON=*__LONG_IDECY; -if(!qbevent)break;evnt(26070,11591,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESELECTX1=*_SUB_IDEFINDAGAIN_LONG_X+_SUB_IDEFINDAGAIN_STRING_S->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11592,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESELECTY1=*_SUB_IDEFINDAGAIN_LONG_Y; -if(!qbevent)break;evnt(26070,11592,"ide_methods.bas");}while(r); -S_48868:; -if ((*__INTEGER_IDEFINDINVERT)||new_error){ -if(qbevent){evnt(26070,11594,"ide_methods.bas");if(r)goto S_48868;} -S_48869:; -if ((-(*__INTEGER_IDEFINDBACKWARDS== 0 ))||new_error){ -if(qbevent){evnt(26070,11595,"ide_methods.bas");if(r)goto S_48869;} -do{ -*__INTEGER_IDEFINDBACKWARDS= 1 ; -if(!qbevent)break;evnt(26070,11595,"ide_methods.bas");}while(r); -}else{ -do{ -*__INTEGER_IDEFINDBACKWARDS= 0 ; -if(!qbevent)break;evnt(26070,11595,"ide_methods.bas");}while(r); -} -do{ -*__INTEGER_IDEFINDINVERT= 0 ; -if(!qbevent)break;evnt(26070,11596,"ide_methods.bas");}while(r); -} -do{ -SUB_IDECENTERCURRENTLINE(); -if(!qbevent)break;evnt(26070,11598,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,11599,"ide_methods.bas");}while(r); -} -S_48879:; -if ((*__INTEGER_IDEFINDBACKWARDS)||new_error){ -if(qbevent){evnt(26070,11602,"ide_methods.bas");if(r)goto S_48879;} -do{ -*_SUB_IDEFINDAGAIN_LONG_Y=*_SUB_IDEFINDAGAIN_LONG_Y- 1 ; -if(!qbevent)break;evnt(26070,11603,"ide_methods.bas");}while(r); -S_48881:; -if (((-(*_SUB_IDEFINDAGAIN_LONG_Y==(*_SUB_IDEFINDAGAIN_LONG_START- 1 )))&(-(*_SUB_IDEFINDAGAIN_LONG_LOOPED== 1 )))||new_error){ -if(qbevent){evnt(26070,11604,"ide_methods.bas");if(r)goto S_48881;} -do{ -SUB_IDENOMATCH(_SUB_IDEFINDAGAIN_BYTE_SHOWFLAGS); -if(!qbevent)break;evnt(26070,11605,"ide_methods.bas");}while(r); -S_48883:; -if ((*__INTEGER_IDEFINDINVERT)||new_error){ -if(qbevent){evnt(26070,11606,"ide_methods.bas");if(r)goto S_48883;} -S_48884:; -if ((-(*__INTEGER_IDEFINDBACKWARDS== 0 ))||new_error){ -if(qbevent){evnt(26070,11607,"ide_methods.bas");if(r)goto S_48884;} -do{ -*__INTEGER_IDEFINDBACKWARDS= 1 ; -if(!qbevent)break;evnt(26070,11607,"ide_methods.bas");}while(r); -}else{ -do{ -*__INTEGER_IDEFINDBACKWARDS= 0 ; -if(!qbevent)break;evnt(26070,11607,"ide_methods.bas");}while(r); -} -do{ -*__INTEGER_IDEFINDINVERT= 0 ; -if(!qbevent)break;evnt(26070,11608,"ide_methods.bas");}while(r); -} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,11610,"ide_methods.bas");}while(r); -} -S_48893:; -if ((-(*_SUB_IDEFINDAGAIN_LONG_Y< 1 ))||new_error){ -if(qbevent){evnt(26070,11612,"ide_methods.bas");if(r)goto S_48893;} -do{ -*_SUB_IDEFINDAGAIN_LONG_Y=*__LONG_IDEN; -if(!qbevent)break;evnt(26070,11612,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEFINDAGAIN_LONG_LOOPED= 1 ; -if(!qbevent)break;evnt(26070,11612,"ide_methods.bas");}while(r); -} -do{ -goto LABEL_IDEFINDNEXT2; -if(!qbevent)break;evnt(26070,11613,"ide_methods.bas");}while(r); -}else{ -do{ -*_SUB_IDEFINDAGAIN_LONG_Y=*_SUB_IDEFINDAGAIN_LONG_Y+ 1 ; -if(!qbevent)break;evnt(26070,11615,"ide_methods.bas");}while(r); -S_48900:; -if (((-(*_SUB_IDEFINDAGAIN_LONG_Y==(*_SUB_IDEFINDAGAIN_LONG_START+ 1 )))&(-(*_SUB_IDEFINDAGAIN_LONG_LOOPED== 1 )))||new_error){ -if(qbevent){evnt(26070,11616,"ide_methods.bas");if(r)goto S_48900;} -do{ -SUB_IDENOMATCH(_SUB_IDEFINDAGAIN_BYTE_SHOWFLAGS); -if(!qbevent)break;evnt(26070,11617,"ide_methods.bas");}while(r); -S_48902:; -if ((*__INTEGER_IDEFINDINVERT)||new_error){ -if(qbevent){evnt(26070,11618,"ide_methods.bas");if(r)goto S_48902;} -S_48903:; -if ((-(*__INTEGER_IDEFINDBACKWARDS== 0 ))||new_error){ -if(qbevent){evnt(26070,11619,"ide_methods.bas");if(r)goto S_48903;} -do{ -*__INTEGER_IDEFINDBACKWARDS= 1 ; -if(!qbevent)break;evnt(26070,11619,"ide_methods.bas");}while(r); -}else{ -do{ -*__INTEGER_IDEFINDBACKWARDS= 0 ; -if(!qbevent)break;evnt(26070,11619,"ide_methods.bas");}while(r); -} -do{ -*__INTEGER_IDEFINDINVERT= 0 ; -if(!qbevent)break;evnt(26070,11620,"ide_methods.bas");}while(r); -} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,11622,"ide_methods.bas");}while(r); -} -S_48912:; -if ((-(*_SUB_IDEFINDAGAIN_LONG_Y>*__LONG_IDEN))||new_error){ -if(qbevent){evnt(26070,11624,"ide_methods.bas");if(r)goto S_48912;} -do{ -*_SUB_IDEFINDAGAIN_LONG_Y= 1 ; -if(!qbevent)break;evnt(26070,11624,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEFINDAGAIN_LONG_LOOPED= 1 ; -if(!qbevent)break;evnt(26070,11624,"ide_methods.bas");}while(r); -} -do{ -goto LABEL_IDEFINDNEXT2; -if(!qbevent)break;evnt(26070,11625,"ide_methods.bas");}while(r); -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free194.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -qbs* FUNC_IDEGETLINE(int32*_FUNC_IDEGETLINE_LONG_I){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data195.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -S_48918:; -if ((-(*_FUNC_IDEGETLINE_LONG_I!= -1 ))||new_error){ -if(qbevent){evnt(26070,11630,"ide_methods.bas");if(r)goto S_48918;} -do{ -SUB_IDEGOTOLINE(_FUNC_IDEGETLINE_LONG_I); -if(!qbevent)break;evnt(26070,11630,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDEGETLINE_STRING_IDEGETLINE,func_mid(__STRING_IDET,*__LONG_IDELI+ 4 ,string2l(func_mid(__STRING_IDET,*__LONG_IDELI, 4 ,0|1)),0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11631,"ide_methods.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free195.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_IDEGETLINE_STRING_IDEGETLINE);return _FUNC_IDEGETLINE_STRING_IDEGETLINE; -} -void SUB_IDECENTERCURRENTLINE(){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data196.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -S_48922:; -if ((-(*__LONG_IDEN<=(*__LONG_IDEWY- 8 )))||new_error){ -if(qbevent){evnt(26070,11635,"ide_methods.bas");if(r)goto S_48922;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,11635,"ide_methods.bas");}while(r); -} -do{ -*__LONG_IDESY=*__LONG_IDECY-((*__LONG_IDEWY- 8 )/ 2 ); -if(!qbevent)break;evnt(26070,11636,"ide_methods.bas");}while(r); -S_48926:; -if ((-(*__LONG_IDESY< 1 ))||new_error){ -if(qbevent){evnt(26070,11637,"ide_methods.bas");if(r)goto S_48926;} -do{ -*__LONG_IDESY= 1 ; -if(!qbevent)break;evnt(26070,11637,"ide_methods.bas");}while(r); -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free196.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -void SUB_IDEGOTOLINE(int32*_SUB_IDEGOTOLINE_LONG_I){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data197.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -S_48929:; -if ((-(*__LONG_IDEL==*_SUB_IDEGOTOLINE_LONG_I))||new_error){ -if(qbevent){evnt(26070,11641,"ide_methods.bas");if(r)goto S_48929;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,11641,"ide_methods.bas");}while(r); -} -S_48932:; -if ((-(*_SUB_IDEGOTOLINE_LONG_I< 1 ))||new_error){ -if(qbevent){evnt(26070,11642,"ide_methods.bas");if(r)goto S_48932;} -do{ -*_SUB_IDEGOTOLINE_LONG_I= 1 ; -if(!qbevent)break;evnt(26070,11642,"ide_methods.bas");}while(r); -} -S_48935:; -if ((-(*_SUB_IDEGOTOLINE_LONG_I<*__LONG_IDEL))||new_error){ -if(qbevent){evnt(26070,11644,"ide_methods.bas");if(r)goto S_48935;} -S_48936:; -do{ -if(qbevent){evnt(26070,11645,"ide_methods.bas");if(r)goto S_48936;} -do{ -*__LONG_IDEL=*__LONG_IDEL- 1 ; -if(!qbevent)break;evnt(26070,11646,"ide_methods.bas");}while(r); -do{ -*__LONG_IDELI=*__LONG_IDELI-string2l(func_mid(__STRING_IDET,*__LONG_IDELI- 4 , 4 ,0|1))- 8 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11647,"ide_methods.bas");}while(r); -S_48939:; -dl_continue_5390:; -}while((!(-(*__LONG_IDEL==*_SUB_IDEGOTOLINE_LONG_I)))&&(!new_error)); -dl_exit_5390:; -if(qbevent){evnt(26070,11648,"ide_methods.bas");if(r)goto S_48939;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,11649,"ide_methods.bas");}while(r); -} -S_48942:; -do{ -if(qbevent){evnt(26070,11652,"ide_methods.bas");if(r)goto S_48942;} -S_48943:; -if ((-(*__LONG_IDEL==*__LONG_IDEN))||new_error){ -if(qbevent){evnt(26070,11653,"ide_methods.bas");if(r)goto S_48943;} -do{ -qbs_set(__STRING_IDET,qbs_add(qbs_add(__STRING_IDET,l2string( 0 )),l2string( 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11653,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEN=*__LONG_IDEN+ 1 ; -if(!qbevent)break;evnt(26070,11653,"ide_methods.bas");}while(r); -} -do{ -*__LONG_IDEL=*__LONG_IDEL+ 1 ; -if(!qbevent)break;evnt(26070,11654,"ide_methods.bas");}while(r); -do{ -*__LONG_IDELI=*__LONG_IDELI+string2l(func_mid(__STRING_IDET,*__LONG_IDELI, 4 ,0|1))+ 8 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11655,"ide_methods.bas");}while(r); -S_48949:; -dl_continue_5391:; -}while((!(-(*__LONG_IDEL==*_SUB_IDEGOTOLINE_LONG_I)))&&(!new_error)); -dl_exit_5391:; -if(qbevent){evnt(26070,11656,"ide_methods.bas");if(r)goto S_48949;} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free197.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -int32 FUNC_IDEHBAR(int32*_FUNC_IDEHBAR_LONG_X,int32*_FUNC_IDEHBAR_LONG_Y,int32*_FUNC_IDEHBAR_LONG_H,int32*_FUNC_IDEHBAR_LONG_I2,int32*_FUNC_IDEHBAR_LONG_N2){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data198.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -*_FUNC_IDEHBAR_LONG_I=*_FUNC_IDEHBAR_LONG_I2; -if(!qbevent)break;evnt(26070,11660,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEHBAR_LONG_N=*_FUNC_IDEHBAR_LONG_N2; -if(!qbevent)break;evnt(26070,11660,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,11678,"ide_methods.bas");}while(r); -do{ -sub__printstring(*_FUNC_IDEHBAR_LONG_X,*_FUNC_IDEHBAR_LONG_Y,func_chr( 27 ),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11679,"ide_methods.bas");}while(r); -do{ -sub__printstring(*_FUNC_IDEHBAR_LONG_X+*_FUNC_IDEHBAR_LONG_H- 1 ,*_FUNC_IDEHBAR_LONG_Y,func_chr( 26 ),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11680,"ide_methods.bas");}while(r); -S_48955:; -fornext_value5393=*_FUNC_IDEHBAR_LONG_X+ 1 ; -fornext_finalvalue5393=*_FUNC_IDEHBAR_LONG_X+*_FUNC_IDEHBAR_LONG_H- 2 ; -fornext_step5393= 1 ; -if (fornext_step5393<0) fornext_step_negative5393=1; else fornext_step_negative5393=0; -if (new_error) goto fornext_error5393; -goto fornext_entrylabel5393; -while(1){ -fornext_value5393=fornext_step5393+(*_FUNC_IDEHBAR_LONG_X2); -fornext_entrylabel5393: -*_FUNC_IDEHBAR_LONG_X2=fornext_value5393; -if (fornext_step_negative5393){ -if (fornext_value5393fornext_finalvalue5393) break; -} -fornext_error5393:; -if(qbevent){evnt(26070,11681,"ide_methods.bas");if(r)goto S_48955;} -do{ -sub__printstring(*_FUNC_IDEHBAR_LONG_X2,*_FUNC_IDEHBAR_LONG_Y,func_chr( 176 ),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11682,"ide_methods.bas");}while(r); -fornext_continue_5392:; -} -fornext_exit_5392:; -S_48958:; -if ((-(*_FUNC_IDEHBAR_LONG_N< 1 ))||new_error){ -if(qbevent){evnt(26070,11687,"ide_methods.bas");if(r)goto S_48958;} -do{ -*_FUNC_IDEHBAR_LONG_N= 1 ; -if(!qbevent)break;evnt(26070,11687,"ide_methods.bas");}while(r); -} -S_48961:; -if ((-(*_FUNC_IDEHBAR_LONG_I< 1 ))||new_error){ -if(qbevent){evnt(26070,11688,"ide_methods.bas");if(r)goto S_48961;} -do{ -*_FUNC_IDEHBAR_LONG_I= 1 ; -if(!qbevent)break;evnt(26070,11688,"ide_methods.bas");}while(r); -} -S_48964:; -if ((-(*_FUNC_IDEHBAR_LONG_I>*_FUNC_IDEHBAR_LONG_N))||new_error){ -if(qbevent){evnt(26070,11689,"ide_methods.bas");if(r)goto S_48964;} -do{ -*_FUNC_IDEHBAR_LONG_I=*_FUNC_IDEHBAR_LONG_N; -if(!qbevent)break;evnt(26070,11689,"ide_methods.bas");}while(r); -} -S_48967:; -if ((-(*_FUNC_IDEHBAR_LONG_H== 2 ))||new_error){ -if(qbevent){evnt(26070,11691,"ide_methods.bas");if(r)goto S_48967;} -do{ -*_FUNC_IDEHBAR_LONG_IDEHBAR=*_FUNC_IDEHBAR_LONG_X; -if(!qbevent)break;evnt(26070,11692,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,11693,"ide_methods.bas");}while(r); -} -S_48971:; -if ((-(*_FUNC_IDEHBAR_LONG_H== 3 ))||new_error){ -if(qbevent){evnt(26070,11696,"ide_methods.bas");if(r)goto S_48971;} -do{ -*_FUNC_IDEHBAR_LONG_IDEHBAR=*_FUNC_IDEHBAR_LONG_X+ 1 ; -if(!qbevent)break;evnt(26070,11697,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,11699,"ide_methods.bas");}while(r); -} -S_48975:; -if ((-(*_FUNC_IDEHBAR_LONG_H== 4 ))||new_error){ -if(qbevent){evnt(26070,11702,"ide_methods.bas");if(r)goto S_48975;} -S_48976:; -if ((-(*_FUNC_IDEHBAR_LONG_N== 1 ))||new_error){ -if(qbevent){evnt(26070,11703,"ide_methods.bas");if(r)goto S_48976;} -do{ -*_FUNC_IDEHBAR_LONG_IDEHBAR=*_FUNC_IDEHBAR_LONG_X+ 1 ; -if(!qbevent)break;evnt(26070,11704,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,11706,"ide_methods.bas");}while(r); -}else{ -do{ -*_FUNC_IDEHBAR_SINGLE_P=(*_FUNC_IDEHBAR_LONG_I- 1 )/ ((long double)((*_FUNC_IDEHBAR_LONG_N- 1 ))); -if(!qbevent)break;evnt(26070,11709,"ide_methods.bas");}while(r); -S_48981:; -if ((-(((float)(*_FUNC_IDEHBAR_SINGLE_P))<((float)( 0.5E+0 ))))||new_error){ -if(qbevent){evnt(26070,11710,"ide_methods.bas");if(r)goto S_48981;} -do{ -*_FUNC_IDEHBAR_LONG_X2=*_FUNC_IDEHBAR_LONG_X+ 1 ; -if(!qbevent)break;evnt(26070,11710,"ide_methods.bas");}while(r); -}else{ -do{ -*_FUNC_IDEHBAR_LONG_X2=*_FUNC_IDEHBAR_LONG_X+ 2 ; -if(!qbevent)break;evnt(26070,11710,"ide_methods.bas");}while(r); -} -do{ -sub__printstring(*_FUNC_IDEHBAR_LONG_X2,*_FUNC_IDEHBAR_LONG_Y,func_chr( 219 ),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11711,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEHBAR_LONG_IDEHBAR=*_FUNC_IDEHBAR_LONG_X2; -if(!qbevent)break;evnt(26070,11712,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,11713,"ide_methods.bas");}while(r); -} -} -S_48991:; -if ((-(*_FUNC_IDEHBAR_LONG_H> 4 ))||new_error){ -if(qbevent){evnt(26070,11717,"ide_methods.bas");if(r)goto S_48991;} -S_48992:; -if ((-(*_FUNC_IDEHBAR_LONG_N== 1 ))||new_error){ -if(qbevent){evnt(26070,11718,"ide_methods.bas");if(r)goto S_48992;} -do{ -*_FUNC_IDEHBAR_LONG_IDEHBAR=*_FUNC_IDEHBAR_LONG_X+(*_FUNC_IDEHBAR_LONG_H/ 4 ); -if(!qbevent)break;evnt(26070,11719,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,11721,"ide_methods.bas");}while(r); -} -S_48996:; -if ((-(*_FUNC_IDEHBAR_LONG_I== 1 ))||new_error){ -if(qbevent){evnt(26070,11723,"ide_methods.bas");if(r)goto S_48996;} -do{ -*_FUNC_IDEHBAR_LONG_X2=*_FUNC_IDEHBAR_LONG_X+ 1 ; -if(!qbevent)break;evnt(26070,11724,"ide_methods.bas");}while(r); -do{ -sub__printstring(*_FUNC_IDEHBAR_LONG_X2,*_FUNC_IDEHBAR_LONG_Y,func_chr( 219 ),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11725,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEHBAR_LONG_IDEHBAR=*_FUNC_IDEHBAR_LONG_X2; -if(!qbevent)break;evnt(26070,11726,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,11727,"ide_methods.bas");}while(r); -} -S_49002:; -if ((-(*_FUNC_IDEHBAR_LONG_I==*_FUNC_IDEHBAR_LONG_N))||new_error){ -if(qbevent){evnt(26070,11729,"ide_methods.bas");if(r)goto S_49002;} -do{ -*_FUNC_IDEHBAR_LONG_X2=*_FUNC_IDEHBAR_LONG_X+*_FUNC_IDEHBAR_LONG_H- 2 ; -if(!qbevent)break;evnt(26070,11730,"ide_methods.bas");}while(r); -do{ -sub__printstring(*_FUNC_IDEHBAR_LONG_X2,*_FUNC_IDEHBAR_LONG_Y,func_chr( 219 ),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11731,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEHBAR_LONG_IDEHBAR=*_FUNC_IDEHBAR_LONG_X2; -if(!qbevent)break;evnt(26070,11732,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,11733,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEHBAR_SINGLE_P=(*_FUNC_IDEHBAR_LONG_I- 1 )/ ((long double)((*_FUNC_IDEHBAR_LONG_N- 1 ))); -if(!qbevent)break;evnt(26070,11736,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEHBAR_SINGLE_P=*_FUNC_IDEHBAR_SINGLE_P*(*_FUNC_IDEHBAR_LONG_H- 4 ); -if(!qbevent)break;evnt(26070,11737,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEHBAR_LONG_X2=qbr(*_FUNC_IDEHBAR_LONG_X+ 2 +floor(*_FUNC_IDEHBAR_SINGLE_P)); -if(!qbevent)break;evnt(26070,11738,"ide_methods.bas");}while(r); -do{ -sub__printstring(*_FUNC_IDEHBAR_LONG_X2,*_FUNC_IDEHBAR_LONG_Y,func_chr( 219 ),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11739,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEHBAR_LONG_IDEHBAR=*_FUNC_IDEHBAR_LONG_X2; -if(!qbevent)break;evnt(26070,11740,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,11741,"ide_methods.bas");}while(r); -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free198.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -return *_FUNC_IDEHBAR_LONG_IDEHBAR; -} -int32 FUNC_IDEHLEN(qbs*_FUNC_IDEHLEN_STRING_A){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data199.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -S_49015:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_IDEHLEN_STRING_A,qbs_new_txt_len("#",1),0)))||new_error){ -if(qbevent){evnt(26070,11748,"ide_methods.bas");if(r)goto S_49015;} -do{ -*_FUNC_IDEHLEN_LONG_IDEHLEN=_FUNC_IDEHLEN_STRING_A->len- 1 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11748,"ide_methods.bas");}while(r); -}else{ -do{ -*_FUNC_IDEHLEN_LONG_IDEHLEN=_FUNC_IDEHLEN_STRING_A->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11748,"ide_methods.bas");}while(r); -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free199.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -return *_FUNC_IDEHLEN_LONG_IDEHLEN; -} -void SUB_IDEHPRINT(qbs*_SUB_IDEHPRINT_STRING_A){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data200.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,11752,"ide_methods.bas");}while(r); -S_49021:; -fornext_value5399= 1 ; -fornext_finalvalue5399=_SUB_IDEHPRINT_STRING_A->len; -fornext_step5399= 1 ; -if (fornext_step5399<0) fornext_step_negative5399=1; else fornext_step_negative5399=0; -if (new_error) goto fornext_error5399; -goto fornext_entrylabel5399; -while(1){ -fornext_value5399=fornext_step5399+(*_SUB_IDEHPRINT_LONG_I); -fornext_entrylabel5399: -*_SUB_IDEHPRINT_LONG_I=fornext_value5399; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative5399){ -if (fornext_value5399fornext_finalvalue5399) break; -} -fornext_error5399:; -if(qbevent){evnt(26070,11753,"ide_methods.bas");if(r)goto S_49021;} -do{ -qbs_set(_SUB_IDEHPRINT_STRING_C,func_mid(_SUB_IDEHPRINT_STRING_A,*_SUB_IDEHPRINT_LONG_I, 1 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11754,"ide_methods.bas");}while(r); -S_49023:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDEHPRINT_STRING_C,qbs_new_txt_len("#",1))))||new_error){ -if(qbevent){evnt(26070,11755,"ide_methods.bas");if(r)goto S_49023;} -S_49024:; -if ((*__LONG_IDEHL)||new_error){ -if(qbevent){evnt(26070,11756,"ide_methods.bas");if(r)goto S_49024;} -do{ -qbg_sub_color( 15 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,11756,"ide_methods.bas");}while(r); -} -}else{ -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,_SUB_IDEHPRINT_STRING_C); -if (new_error) goto skip5401; -makefit(tqbs); -qbs_print(tqbs,0); -skip5401: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11758,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,11758,"ide_methods.bas");}while(r); -} -fornext_continue_5398:; -} -fornext_exit_5398:; -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free200.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -void SUB_IDEINSLINE(int32*_SUB_IDEINSLINE_LONG_I,qbs*_SUB_IDEINSLINE_STRING_TEXT){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data201.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -S_49032:; -fornext_value5404= 1 ; -fornext_finalvalue5404=*__LONG_IDEBMKN; -fornext_step5404= 1 ; -if (fornext_step5404<0) fornext_step_negative5404=1; else fornext_step_negative5404=0; -if (new_error) goto fornext_error5404; -goto fornext_entrylabel5404; -while(1){ -fornext_value5404=fornext_step5404+(*_SUB_IDEINSLINE_LONG_B); -fornext_entrylabel5404: -*_SUB_IDEINSLINE_LONG_B=fornext_value5404; -if (fornext_step_negative5404){ -if (fornext_value5404fornext_finalvalue5404) break; -} -fornext_error5404:; -if(qbevent){evnt(26070,11766,"ide_methods.bas");if(r)goto S_49032;} -S_49033:; -if ((-(*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_SUB_IDEINSLINE_LONG_B)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16))>=*_SUB_IDEINSLINE_LONG_I))||new_error){ -if(qbevent){evnt(26070,11767,"ide_methods.bas");if(r)goto S_49033;} -do{ -*_SUB_IDEINSLINE_LONG_Y=*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_SUB_IDEINSLINE_LONG_B)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16))+ 1 ; -if(!qbevent)break;evnt(26070,11768,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_SUB_IDEINSLINE_LONG_B)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16))=*_SUB_IDEINSLINE_LONG_Y; -if(!qbevent)break;evnt(26070,11769,"ide_methods.bas");}while(r); -} -fornext_continue_5403:; -} -fornext_exit_5403:; -S_49038:; -if ((*__LONG_VWATCHON)||new_error){ -if(qbevent){evnt(26070,11773,"ide_methods.bas");if(r)goto S_49038;} -do{ +} +if(!qbevent)break;evnt(26070,11260,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26070,11261,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEFIND_STRING1_SEP,func_chr( 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11262,"ide_methods.bas");}while(r); +S_48503:; +if ((*__LONG_IDESELECT)||new_error){ +if(qbevent){evnt(26070,11268,"ide_methods.bas");if(r)goto S_48503;} +S_48504:; +if ((-(*__LONG_IDESELECTY1==*__LONG_IDECY))||new_error){ +if(qbevent){evnt(26070,11269,"ide_methods.bas");if(r)goto S_48504;} +do{ +qbs_set(_FUNC_IDEFIND_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11270,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEFIND_STRING_A2,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11271,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEFIND_LONG_SX1=*__LONG_IDESELECTX1; +if(!qbevent)break;evnt(26070,11272,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEFIND_LONG_SX2=*__LONG_IDECX; +if(!qbevent)break;evnt(26070,11272,"ide_methods.bas");}while(r); +S_48509:; +if ((-(*_FUNC_IDEFIND_LONG_SX2<*_FUNC_IDEFIND_LONG_SX1))||new_error){ +if(qbevent){evnt(26070,11273,"ide_methods.bas");if(r)goto S_48509;} +do{ +swap_32(&*_FUNC_IDEFIND_LONG_SX1,&*_FUNC_IDEFIND_LONG_SX2); +if(!qbevent)break;evnt(26070,11273,"ide_methods.bas");}while(r); +} +S_48512:; +fornext_value5351=*_FUNC_IDEFIND_LONG_SX1; +fornext_finalvalue5351=*_FUNC_IDEFIND_LONG_SX2- 1 ; +fornext_step5351= 1 ; +if (fornext_step5351<0) fornext_step_negative5351=1; else fornext_step_negative5351=0; +if (new_error) goto fornext_error5351; +goto fornext_entrylabel5351; +while(1){ +fornext_value5351=fornext_step5351+(*_FUNC_IDEFIND_LONG_X); +fornext_entrylabel5351: +*_FUNC_IDEFIND_LONG_X=fornext_value5351; +if (fornext_step_negative5351){ +if (fornext_value5351fornext_finalvalue5351) break; +} +fornext_error5351:; +if(qbevent){evnt(26070,11274,"ide_methods.bas");if(r)goto S_48512;} +S_48513:; +if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDEFIND_LONG_X<=_FUNC_IDEFIND_STRING_A->len)))||new_error){ +if(qbevent){evnt(26070,11275,"ide_methods.bas");if(r)goto S_48513;} +do{ +qbs_set(_FUNC_IDEFIND_STRING_A2,qbs_add(_FUNC_IDEFIND_STRING_A2,func_mid(_FUNC_IDEFIND_STRING_A,*_FUNC_IDEFIND_LONG_X, 1 ,0|1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11275,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDEFIND_STRING_A2,qbs_add(_FUNC_IDEFIND_STRING_A2,qbs_new_txt_len(" ",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11275,"ide_methods.bas");}while(r); +} +fornext_continue_5350:; +} +fornext_exit_5350:; +} +} +S_48521:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEFIND_STRING_A2,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,11279,"ide_methods.bas");if(r)goto S_48521;} +do{ +qbs_set(_FUNC_IDEFIND_STRING_A2,__STRING_IDEFINDTEXT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11280,"ide_methods.bas");}while(r); +} +do{ +SUB_RETRIEVESEARCHHISTORY(_FUNC_IDEFIND_ARRAY_STRING_SEARCHHISTORY); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11283,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEFIND_LONG_I= 0 ; +if(!qbevent)break;evnt(26070,11285,"ide_methods.bas");}while(r); +do{ +SUB_IDEPAR((void*)( ((char*)(_FUNC_IDEFIND_UDT_P)) + (0) ),&(pass5353= 60 ),&(pass5354= 11 ),qbs_new_txt_len("Find",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11286,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEFIND_LONG_I=*_FUNC_IDEFIND_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,11287,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEFIND_LONG_PREVFOCUS= 1 ; +if(!qbevent)break;evnt(26070,11288,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+36))= 1 ; +if(!qbevent)break;evnt(26070,11289,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+24))= 2 ; +if(!qbevent)break;evnt(26070,11290,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Find What",10)); +if(!qbevent)break;evnt(26070,11291,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDEFIND_STRING_A2); +if(!qbevent)break;evnt(26070,11292,"ide_methods.bas");}while(r); +S_48533:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDEFIND_STRING_A2->len> 0 )))||new_error){ +if(qbevent){evnt(26070,11293,"ide_methods.bas");if(r)goto S_48533;} +do{ +*(int8*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+76))= -1 ; +if(!qbevent)break;evnt(26070,11294,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+77))= 0 ; +if(!qbevent)break;evnt(26070,11295,"ide_methods.bas");}while(r); +} +do{ +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+81))=_FUNC_IDEFIND_STRING_A2->len; +if(!qbevent)break;evnt(26070,11297,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEFIND_LONG_I=*_FUNC_IDEFIND_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,11301,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+36))= 4 ; +if(!qbevent)break;evnt(26070,11302,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+24))= 5 ; +if(!qbevent)break;evnt(26070,11303,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Match Upper/Lowercase",22)); +if(!qbevent)break;evnt(26070,11304,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+64))=*__INTEGER_IDEFINDCASESENS; +if(!qbevent)break;evnt(26070,11305,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEFIND_LONG_I=*_FUNC_IDEFIND_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,11307,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+36))= 4 ; +if(!qbevent)break;evnt(26070,11308,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+24))= 6 ; +if(!qbevent)break;evnt(26070,11309,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Whole Word",11)); +if(!qbevent)break;evnt(26070,11310,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+64))=*__INTEGER_IDEFINDWHOLEWORD; +if(!qbevent)break;evnt(26070,11311,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEFIND_LONG_I=*_FUNC_IDEFIND_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,11313,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+36))= 4 ; +if(!qbevent)break;evnt(26070,11314,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+24))= 7 ; +if(!qbevent)break;evnt(26070,11315,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Search Backwards",17)); +if(!qbevent)break;evnt(26070,11316,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+64))=*__INTEGER_IDEFINDBACKWARDS; +if(!qbevent)break;evnt(26070,11317,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEFIND_LONG_I=*_FUNC_IDEFIND_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,11319,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+36))= 4 ; +if(!qbevent)break;evnt(26070,11320,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+24))= 8 ; +if(!qbevent)break;evnt(26070,11321,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Ignore 'comments",17)); +if(!qbevent)break;evnt(26070,11322,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+64))=*__INTEGER_IDEFINDNOCOMMENTS; +if(!qbevent)break;evnt(26070,11323,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEFIND_LONG_I=*_FUNC_IDEFIND_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,11325,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+36))= 4 ; +if(!qbevent)break;evnt(26070,11326,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+20))= 29 ; +if(!qbevent)break;evnt(26070,11327,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+24))= 8 ; +if(!qbevent)break;evnt(26070,11328,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Look only in 'comments",23)); +if(!qbevent)break;evnt(26070,11329,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+64))=*__INTEGER_IDEFINDONLYCOMMENTS; +if(!qbevent)break;evnt(26070,11330,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEFIND_LONG_I=*_FUNC_IDEFIND_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,11332,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+36))= 4 ; +if(!qbevent)break;evnt(26070,11333,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+24))= 9 ; +if(!qbevent)break;evnt(26070,11334,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Ignore ",7),func_chr( 34 )),qbs_new_txt_len("s#trings",8)),func_chr( 34 ))); +if(!qbevent)break;evnt(26070,11335,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+64))=*__INTEGER_IDEFINDNOSTRINGS; +if(!qbevent)break;evnt(26070,11336,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEFIND_LONG_I=*_FUNC_IDEFIND_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,11338,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+36))= 4 ; +if(!qbevent)break;evnt(26070,11339,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+20))= 29 ; +if(!qbevent)break;evnt(26070,11340,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+24))= 9 ; +if(!qbevent)break;evnt(26070,11341,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Look only in ",13),func_chr( 34 )),qbs_new_txt_len("st#rings",8)),func_chr( 34 ))); +if(!qbevent)break;evnt(26070,11342,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+64))=*__INTEGER_IDEFINDONLYSTRINGS; +if(!qbevent)break;evnt(26070,11343,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEFIND_LONG_I=*_FUNC_IDEFIND_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,11345,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+36))= 3 ; +if(!qbevent)break;evnt(26070,11346,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+24))= 11 ; +if(!qbevent)break;evnt(26070,11347,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_new_txt_len("#OK",3),_FUNC_IDEFIND_STRING1_SEP),qbs_new_txt_len("#Cancel",7))); +if(!qbevent)break;evnt(26070,11348,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+48))= 1 ; +if(!qbevent)break;evnt(26070,11349,"ide_methods.bas");}while(r); +S_48580:; +fornext_value5358= 1 ; +fornext_finalvalue5358= 100 ; +fornext_step5358= 1 ; +if (fornext_step5358<0) fornext_step_negative5358=1; else fornext_step_negative5358=0; +if (new_error) goto fornext_error5358; +goto fornext_entrylabel5358; +while(1){ +fornext_value5358=fornext_step5358+(*_FUNC_IDEFIND_LONG_I); +fornext_entrylabel5358: +*_FUNC_IDEFIND_LONG_I=fornext_value5358; +if (fornext_step_negative5358){ +if (fornext_value5358fornext_finalvalue5358) break; +} +fornext_error5358:; +if(qbevent){evnt(26070,11353,"ide_methods.bas");if(r)goto S_48580;} +do{ +memcpy(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89)+ 0,((char*)_FUNC_IDEFIND_UDT_P)+(0)+ 0, 20); +if(!qbevent)break;evnt(26070,11353,"ide_methods.bas");}while(r); +fornext_continue_5357:; +} +fornext_exit_5357:; +S_48583:; +do{ +if(qbevent){evnt(26070,11356,"ide_methods.bas");if(r)goto S_48583;} +do{ +SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDEFIND_UDT_P)) + (0) )); +if(!qbevent)break;evnt(26070,11360,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEFIND_LONG_F= 1 ; +if(!qbevent)break;evnt(26070,11361,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEFIND_LONG_CX= 0 ; +if(!qbevent)break;evnt(26070,11361,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEFIND_LONG_CY= 0 ; +if(!qbevent)break;evnt(26070,11361,"ide_methods.bas");}while(r); +S_48588:; +fornext_value5361= 1 ; +fornext_finalvalue5361= 100 ; +fornext_step5361= 1 ; +if (fornext_step5361<0) fornext_step_negative5361=1; else fornext_step_negative5361=0; +if (new_error) goto fornext_error5361; +goto fornext_entrylabel5361; +while(1){ +fornext_value5361=fornext_step5361+(*_FUNC_IDEFIND_LONG_I); +fornext_entrylabel5361: +*_FUNC_IDEFIND_LONG_I=fornext_value5361; +if (fornext_step_negative5361){ +if (fornext_value5361fornext_finalvalue5361) break; +} +fornext_error5361:; +if(qbevent){evnt(26070,11362,"ide_methods.bas");if(r)goto S_48588;} +S_48589:; +if ((*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+36)))||new_error){ +if(qbevent){evnt(26070,11363,"ide_methods.bas");if(r)goto S_48589;} +do{ +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+60))=*_FUNC_IDEFIND_LONG_FOCUS-*_FUNC_IDEFIND_LONG_F; +if(!qbevent)break;evnt(26070,11366,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+52))= 0 ; +if(!qbevent)break;evnt(26070,11367,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+56))= 0 ; +if(!qbevent)break;evnt(26070,11367,"ide_methods.bas");}while(r); +do{ +SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDEFIND_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89) ),_FUNC_IDEFIND_LONG_F); +if(!qbevent)break;evnt(26070,11368,"ide_methods.bas");}while(r); +S_48594:; +if ((*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+52)))||new_error){ +if(qbevent){evnt(26070,11369,"ide_methods.bas");if(r)goto S_48594;} +do{ +*_FUNC_IDEFIND_LONG_CX=*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+52)); +if(!qbevent)break;evnt(26070,11369,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEFIND_LONG_CY=*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+56)); +if(!qbevent)break;evnt(26070,11369,"ide_methods.bas");}while(r); +} +} +fornext_continue_5360:; +} +fornext_exit_5360:; +do{ +*_FUNC_IDEFIND_LONG_LASTFOCUS=*_FUNC_IDEFIND_LONG_F- 1 ; +if(!qbevent)break;evnt(26070,11372,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 1 , 0 ); +if(!qbevent)break;evnt(26070,11379,"ide_methods.bas");}while(r); +S_48602:; +if ((*_FUNC_IDEFIND_LONG_CX)||new_error){ +if(qbevent){evnt(26070,11380,"ide_methods.bas");if(r)goto S_48602;} +do{ +qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,11380,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(*_FUNC_IDEFIND_LONG_CY,*_FUNC_IDEFIND_LONG_CX, 1 ,NULL,NULL,7); +if(!qbevent)break;evnt(26070,11380,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,11380,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEFIND_LONG_CHANGE= 0 ; +if(!qbevent)break;evnt(26070,11383,"ide_methods.bas");}while(r); +S_48608:; +do{ +if(qbevent){evnt(26070,11384,"ide_methods.bas");if(r)goto S_48608;} +do{ +SUB_GETINPUT(); +if(!qbevent)break;evnt(26070,11385,"ide_methods.bas");}while(r); +S_48610:; +if ((*__LONG_MWHEEL)||new_error){ +if(qbevent){evnt(26070,11386,"ide_methods.bas");if(r)goto S_48610;} +do{ +*_FUNC_IDEFIND_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,11386,"ide_methods.bas");}while(r); +} +S_48613:; +if ((*__LONG_KB)||new_error){ +if(qbevent){evnt(26070,11387,"ide_methods.bas");if(r)goto S_48613;} +do{ +*_FUNC_IDEFIND_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,11387,"ide_methods.bas");}while(r); +} +S_48616:; +if ((*__LONG_MCLICK)||new_error){ +if(qbevent){evnt(26070,11388,"ide_methods.bas");if(r)goto S_48616;} +do{ +*_FUNC_IDEFIND_LONG_MOUSEDOWN= 1 ; +if(!qbevent)break;evnt(26070,11388,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEFIND_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,11388,"ide_methods.bas");}while(r); +} +S_48620:; +if ((*__LONG_MRELEASE)||new_error){ +if(qbevent){evnt(26070,11389,"ide_methods.bas");if(r)goto S_48620;} +do{ +*_FUNC_IDEFIND_LONG_MOUSEUP= 1 ; +if(!qbevent)break;evnt(26070,11389,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEFIND_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,11389,"ide_methods.bas");}while(r); +} +S_48624:; +if ((*__LONG_MB)||new_error){ +if(qbevent){evnt(26070,11390,"ide_methods.bas");if(r)goto S_48624;} +do{ +*_FUNC_IDEFIND_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,11390,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEFIND_LONG_ALT=*__LONG_KALT; +if(!qbevent)break;evnt(26070,11391,"ide_methods.bas");}while(r); +S_48628:; +if ((-(*_FUNC_IDEFIND_LONG_ALT!=*_FUNC_IDEFIND_LONG_OLDALT))||new_error){ +if(qbevent){evnt(26070,11391,"ide_methods.bas");if(r)goto S_48628;} +do{ +*_FUNC_IDEFIND_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,11391,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEFIND_LONG_OLDALT=*_FUNC_IDEFIND_LONG_ALT; +if(!qbevent)break;evnt(26070,11392,"ide_methods.bas");}while(r); +do{ +sub__limit( 100 ); +if(!qbevent)break;evnt(26070,11393,"ide_methods.bas");}while(r); +S_48633:; +dl_continue_5362:; +}while((!(*_FUNC_IDEFIND_LONG_CHANGE))&&(!new_error)); +dl_exit_5362:; +if(qbevent){evnt(26070,11394,"ide_methods.bas");if(r)goto S_48633;} +S_48634:; +if ((*_FUNC_IDEFIND_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ +if(qbevent){evnt(26070,11395,"ide_methods.bas");if(r)goto S_48634;} +do{ +*__LONG_IDEHL= 1 ; +if(!qbevent)break;evnt(26070,11395,"ide_methods.bas");}while(r); +}else{ +do{ +*__LONG_IDEHL= 0 ; +if(!qbevent)break;evnt(26070,11395,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDEFIND_STRING_ALTLETTER,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11397,"ide_methods.bas");}while(r); +S_48640:; +if ((*_FUNC_IDEFIND_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ +if(qbevent){evnt(26070,11398,"ide_methods.bas");if(r)goto S_48640;} +S_48641:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ +if(qbevent){evnt(26070,11399,"ide_methods.bas");if(r)goto S_48641;} +do{ +*_FUNC_IDEFIND_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11400,"ide_methods.bas");}while(r); +S_48643:; +if (((-(*_FUNC_IDEFIND_LONG_K>= 65 ))&(-(*_FUNC_IDEFIND_LONG_K<= 90 )))||new_error){ +if(qbevent){evnt(26070,11401,"ide_methods.bas");if(r)goto S_48643;} +do{ +qbs_set(_FUNC_IDEFIND_STRING_ALTLETTER,func_chr(*_FUNC_IDEFIND_LONG_K)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11401,"ide_methods.bas");}while(r); +} +} +} +do{ +qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,11404,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); +if(!qbevent)break;evnt(26070,11404,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,11404,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEFIND_LONG_INFO= 0 ; +if(!qbevent)break;evnt(26070,11408,"ide_methods.bas");}while(r); +S_48652:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,11409,"ide_methods.bas");if(r)goto S_48652;} +do{ +qbs_set(__STRING_K,func_chr( 255 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11409,"ide_methods.bas");}while(r); +} +S_48655:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ +if(qbevent){evnt(26070,11410,"ide_methods.bas");if(r)goto S_48655;} +do{ +*_FUNC_IDEFIND_LONG_FOCUS=*_FUNC_IDEFIND_LONG_FOCUS+ 1 ; +if(!qbevent)break;evnt(26070,11410,"ide_methods.bas");}while(r); +} +S_48658:; +if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||new_error){ +if(qbevent){evnt(26070,11411,"ide_methods.bas");if(r)goto S_48658;} +do{ +*_FUNC_IDEFIND_LONG_FOCUS=*_FUNC_IDEFIND_LONG_FOCUS- 1 ; +if(!qbevent)break;evnt(26070,11411,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_K,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11411,"ide_methods.bas");}while(r); +} +S_48662:; +if ((-(*_FUNC_IDEFIND_LONG_FOCUS< 1 ))||new_error){ +if(qbevent){evnt(26070,11412,"ide_methods.bas");if(r)goto S_48662;} +do{ +*_FUNC_IDEFIND_LONG_FOCUS=*_FUNC_IDEFIND_LONG_LASTFOCUS; +if(!qbevent)break;evnt(26070,11412,"ide_methods.bas");}while(r); +} +S_48665:; +if ((-(*_FUNC_IDEFIND_LONG_FOCUS>*_FUNC_IDEFIND_LONG_LASTFOCUS))||new_error){ +if(qbevent){evnt(26070,11413,"ide_methods.bas");if(r)goto S_48665;} +do{ +*_FUNC_IDEFIND_LONG_FOCUS= 1 ; +if(!qbevent)break;evnt(26070,11413,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEFIND_LONG_F= 1 ; +if(!qbevent)break;evnt(26070,11414,"ide_methods.bas");}while(r); +S_48669:; +fornext_value5365= 1 ; +fornext_finalvalue5365= 100 ; +fornext_step5365= 1 ; +if (fornext_step5365<0) fornext_step_negative5365=1; else fornext_step_negative5365=0; +if (new_error) goto fornext_error5365; +goto fornext_entrylabel5365; +while(1){ +fornext_value5365=fornext_step5365+(*_FUNC_IDEFIND_LONG_I); +fornext_entrylabel5365: +*_FUNC_IDEFIND_LONG_I=fornext_value5365; +if (fornext_step_negative5365){ +if (fornext_value5365fornext_finalvalue5365) break; +} +fornext_error5365:; +if(qbevent){evnt(26070,11415,"ide_methods.bas");if(r)goto S_48669;} +do{ +*_FUNC_IDEFIND_LONG_T=*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+36)); +if(!qbevent)break;evnt(26070,11416,"ide_methods.bas");}while(r); +S_48671:; +if ((*_FUNC_IDEFIND_LONG_T)||new_error){ +if(qbevent){evnt(26070,11417,"ide_methods.bas");if(r)goto S_48671;} +do{ +*_FUNC_IDEFIND_LONG_FOCUSOFFSET=*_FUNC_IDEFIND_LONG_FOCUS-*_FUNC_IDEFIND_LONG_F; +if(!qbevent)break;evnt(26070,11418,"ide_methods.bas");}while(r); +do{ +SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDEFIND_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEFIND_LONG_I)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89) ),_FUNC_IDEFIND_LONG_FOCUS,_FUNC_IDEFIND_LONG_F,_FUNC_IDEFIND_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDEFIND_STRING_ALTLETTER,__LONG_MB,_FUNC_IDEFIND_LONG_MOUSEDOWN,_FUNC_IDEFIND_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDEFIND_LONG_INFO,__LONG_MWHEEL); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11419,"ide_methods.bas");}while(r); +} +fornext_continue_5364:; +} +fornext_exit_5364:; +S_48676:; +if ((-(*_FUNC_IDEFIND_LONG_FOCUS!=*_FUNC_IDEFIND_LONG_PREVFOCUS))||new_error){ +if(qbevent){evnt(26070,11425,"ide_methods.bas");if(r)goto S_48676;} +do{ +*_FUNC_IDEFIND_LONG_PREVFOCUS=*_FUNC_IDEFIND_LONG_FOCUS; +if(!qbevent)break;evnt(26070,11427,"ide_methods.bas");}while(r); +S_48678:; +if ((-(*_FUNC_IDEFIND_LONG_FOCUS== 1 ))||new_error){ +if(qbevent){evnt(26070,11428,"ide_methods.bas");if(r)goto S_48678;} +do{ +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_FOCUS)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_FOCUS)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; +if(!qbevent)break;evnt(26070,11429,"ide_methods.bas");}while(r); +S_48680:; +if ((-(*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_FOCUS)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+81))> 0 ))||new_error){ +if(qbevent){evnt(26070,11430,"ide_methods.bas");if(r)goto S_48680;} +do{ +*(int8*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_FOCUS)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+76))= -1 ; +if(!qbevent)break;evnt(26070,11430,"ide_methods.bas");}while(r); +} +do{ +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFIND_LONG_FOCUS)-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+77))= 0 ; +if(!qbevent)break;evnt(26070,11431,"ide_methods.bas");}while(r); +} +} +S_48686:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 27 )))|(((-(*_FUNC_IDEFIND_LONG_FOCUS== 10 ))&(-(*_FUNC_IDEFIND_LONG_INFO!= 0 ))))))||new_error){ +if(qbevent){evnt(26070,11435,"ide_methods.bas");if(r)goto S_48686;} +do{ +qbs_set(_FUNC_IDEFIND_STRING_IDEFIND,qbs_new_txt_len("C",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11436,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,11437,"ide_methods.bas");}while(r); +} +S_48690:; +if (((-(*_FUNC_IDEFIND_LONG_FOCUS== 5 ))&(-(*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 5 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+64))== 1 )))||new_error){ +if(qbevent){evnt(26070,11441,"ide_methods.bas");if(r)goto S_48690;} +do{ +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 6 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+64))= 0 ; +if(!qbevent)break;evnt(26070,11442,"ide_methods.bas");}while(r); +S_48692:; +}else{ +if ((-(*_FUNC_IDEFIND_LONG_FOCUS== 6 ))&(-(*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 6 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+64))== 1 ))){ +if(qbevent){evnt(26070,11443,"ide_methods.bas");if(r)goto S_48692;} +do{ +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 5 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+64))= 0 ; +if(!qbevent)break;evnt(26070,11444,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 7 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+64))= 0 ; +if(!qbevent)break;evnt(26070,11445,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 8 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+64))= 0 ; +if(!qbevent)break;evnt(26070,11446,"ide_methods.bas");}while(r); +S_48696:; +}else{ +if ((-(*_FUNC_IDEFIND_LONG_FOCUS== 7 ))&(-(*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 7 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+64))== 1 ))){ +if(qbevent){evnt(26070,11447,"ide_methods.bas");if(r)goto S_48696;} +do{ +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 8 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+64))= 0 ; +if(!qbevent)break;evnt(26070,11448,"ide_methods.bas");}while(r); +S_48698:; +}else{ +if ((-(*_FUNC_IDEFIND_LONG_FOCUS== 8 ))&(-(*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 8 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+64))== 1 ))){ +if(qbevent){evnt(26070,11449,"ide_methods.bas");if(r)goto S_48698;} +do{ +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 5 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+64))= 0 ; +if(!qbevent)break;evnt(26070,11450,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 6 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+64))= 0 ; +if(!qbevent)break;evnt(26070,11451,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 7 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+64))= 0 ; +if(!qbevent)break;evnt(26070,11452,"ide_methods.bas");}while(r); +} +} +} +} +S_48703:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 13 )))|(((-(*_FUNC_IDEFIND_LONG_FOCUS== 9 ))&(-(*_FUNC_IDEFIND_LONG_INFO!= 0 ))))))||new_error){ +if(qbevent){evnt(26070,11455,"ide_methods.bas");if(r)goto S_48703;} +do{ +*__INTEGER_IDEFINDCASESENS=*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26070,11456,"ide_methods.bas");}while(r); +do{ +*__INTEGER_IDEFINDWHOLEWORD=*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26070,11457,"ide_methods.bas");}while(r); +do{ +*__INTEGER_IDEFINDBACKWARDS=*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 4 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26070,11458,"ide_methods.bas");}while(r); +do{ +*__INTEGER_IDEFINDNOCOMMENTS=*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 5 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26070,11459,"ide_methods.bas");}while(r); +do{ +*__INTEGER_IDEFINDONLYCOMMENTS=*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 6 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26070,11460,"ide_methods.bas");}while(r); +do{ +*__INTEGER_IDEFINDNOSTRINGS=*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 7 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26070,11461,"ide_methods.bas");}while(r); +do{ +*__INTEGER_IDEFINDONLYSTRINGS=*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 8 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26070,11462,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEFIND_STRING_S,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11463,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_IDEFINDTEXT,_FUNC_IDEFIND_STRING_S); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11464,"ide_methods.bas");}while(r); +do{ +SUB_IDEADDSEARCHED(__STRING_IDEFINDTEXT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11465,"ide_methods.bas");}while(r); +do{ +SUB_IDEFINDAGAIN(&(pass5367= 0 )); +if(!qbevent)break;evnt(26070,11466,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,11467,"ide_methods.bas");}while(r); +} +S_48717:; +if ((qbs_cleanup(qbs_tmp_base,-(func_ubound(_FUNC_IDEFIND_ARRAY_STRING_SEARCHHISTORY,1,1)> 0 )))||new_error){ +if(qbevent){evnt(26070,11470,"ide_methods.bas");if(r)goto S_48717;} +S_48718:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,(qbs_add(func_chr( 0 ),func_chr( 72 )))))&(-(*_FUNC_IDEFIND_LONG_FOCUS== 1 ))))||new_error){ +if(qbevent){evnt(26070,11471,"ide_methods.bas");if(r)goto S_48718;} +S_48719:; +if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDEFIND_LONG_LNlen; +if(!qbevent)break;evnt(26070,11476,"ide_methods.bas");}while(r); +} +S_48727:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,(qbs_add(func_chr( 0 ),func_chr( 80 )))))&(-(*_FUNC_IDEFIND_LONG_FOCUS== 1 ))))||new_error){ +if(qbevent){evnt(26070,11479,"ide_methods.bas");if(r)goto S_48727;} +S_48728:; +if ((-(*_FUNC_IDEFIND_LONG_LN> 1 ))||new_error){ +if(qbevent){evnt(26070,11480,"ide_methods.bas");if(r)goto S_48728;} +do{ +*_FUNC_IDEFIND_LONG_LN=*_FUNC_IDEFIND_LONG_LN- 1 ; +if(!qbevent)break;evnt(26070,11481,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_IDEFIND_LONG_LN= 1 ; +if(!qbevent)break;evnt(26070,11483,"ide_methods.bas");}while(r); +} +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),((qbs*)(((uint64*)(_FUNC_IDEFIND_ARRAY_STRING_SEARCHHISTORY[0]))[array_check((*_FUNC_IDEFIND_LONG_LN)-_FUNC_IDEFIND_ARRAY_STRING_SEARCHHISTORY[4],_FUNC_IDEFIND_ARRAY_STRING_SEARCHHISTORY[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11485,"ide_methods.bas");}while(r); +do{ +*(int8*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+76))= -1 ; +if(!qbevent)break;evnt(26070,11486,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+77))= 0 ; +if(!qbevent)break;evnt(26070,11486,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEFIND_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEFIND_ARRAY_UDT_O[4],_FUNC_IDEFIND_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; +if(!qbevent)break;evnt(26070,11486,"ide_methods.bas");}while(r); +} +} +do{ +*_FUNC_IDEFIND_LONG_MOUSEDOWN= 0 ; +if(!qbevent)break;evnt(26070,11493,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEFIND_LONG_MOUSEUP= 0 ; +if(!qbevent)break;evnt(26070,11494,"ide_methods.bas");}while(r); +dl_continue_5359:; +}while(1); +dl_exit_5359:; +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free193.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_IDEFIND_STRING_IDEFIND);return _FUNC_IDEFIND_STRING_IDEFIND; +} +void SUB_IDEFINDAGAIN(int8*_SUB_IDEFINDAGAIN_BYTE_SHOWFLAGS){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data194.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +if(!qbevent)break;evnt(26070,11499,"ide_methods.bas");}while(r); +S_48743:; +if ((*__INTEGER_IDEFINDINVERT)||new_error){ +if(qbevent){evnt(26070,11501,"ide_methods.bas");if(r)goto S_48743;} +S_48744:; +if ((-(*__INTEGER_IDEFINDBACKWARDS== 0 ))||new_error){ +if(qbevent){evnt(26070,11502,"ide_methods.bas");if(r)goto S_48744;} +do{ +*__INTEGER_IDEFINDBACKWARDS= 1 ; +if(!qbevent)break;evnt(26070,11502,"ide_methods.bas");}while(r); +}else{ +do{ +*__INTEGER_IDEFINDBACKWARDS= 0 ; +if(!qbevent)break;evnt(26070,11502,"ide_methods.bas");}while(r); +} +} +do{ +qbs_set(_SUB_IDEFINDAGAIN_STRING_S,__STRING_IDEFINDTEXT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11505,"ide_methods.bas");}while(r); +S_48751:; +if ((-(*__INTEGER_IDEFINDCASESENS== 0 ))||new_error){ +if(qbevent){evnt(26070,11506,"ide_methods.bas");if(r)goto S_48751;} +do{ +qbs_set(_SUB_IDEFINDAGAIN_STRING_S,qbs_ucase(_SUB_IDEFINDAGAIN_STRING_S)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11506,"ide_methods.bas");}while(r); +} +do{ +*_SUB_IDEFINDAGAIN_LONG_START=*__LONG_IDECY; +if(!qbevent)break;evnt(26070,11507,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEFINDAGAIN_LONG_Y=*_SUB_IDEFINDAGAIN_LONG_START; +if(!qbevent)break;evnt(26070,11508,"ide_methods.bas");}while(r); +LABEL_IDEFINDNEXT2:; +if(qbevent){evnt(26070,11510,"ide_methods.bas");r=0;} +do{ +qbs_set(_SUB_IDEFINDAGAIN_STRING_L,FUNC_IDEGETLINE(_SUB_IDEFINDAGAIN_LONG_Y)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11511,"ide_methods.bas");}while(r); +S_48757:; +if ((-(*__INTEGER_IDEFINDCASESENS== 0 ))||new_error){ +if(qbevent){evnt(26070,11512,"ide_methods.bas");if(r)goto S_48757;} +do{ +qbs_set(_SUB_IDEFINDAGAIN_STRING_L,qbs_ucase(_SUB_IDEFINDAGAIN_STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11512,"ide_methods.bas");}while(r); +} +S_48760:; +if ((-(*_SUB_IDEFINDAGAIN_LONG_Y==*_SUB_IDEFINDAGAIN_LONG_START))||new_error){ +if(qbevent){evnt(26070,11514,"ide_methods.bas");if(r)goto S_48760;} +S_48761:; +if ((-(*_SUB_IDEFINDAGAIN_LONG_LOOPED== 1 ))||new_error){ +if(qbevent){evnt(26070,11516,"ide_methods.bas");if(r)goto S_48761;} +S_48762:; +if ((*__INTEGER_IDEFINDBACKWARDS)||new_error){ +if(qbevent){evnt(26070,11517,"ide_methods.bas");if(r)goto S_48762;} +S_48763:; +if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDEFINDAGAIN_STRING_L->len>*__LONG_IDECX)))||new_error){ +if(qbevent){evnt(26070,11518,"ide_methods.bas");if(r)goto S_48763;} +do{ +qbs_set(_SUB_IDEFINDAGAIN_STRING_L,qbs_add(func_string(*__LONG_IDECX, 255 ),qbs_right(_SUB_IDEFINDAGAIN_STRING_L,_SUB_IDEFINDAGAIN_STRING_L->len-*__LONG_IDECX))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11518,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_IDEFINDAGAIN_STRING_L,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11518,"ide_methods.bas");}while(r); +} +}else{ +S_48769:; +if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDEFINDAGAIN_STRING_L->len>*__LONG_IDECX)))||new_error){ +if(qbevent){evnt(26070,11520,"ide_methods.bas");if(r)goto S_48769;} +do{ +qbs_set(_SUB_IDEFINDAGAIN_STRING_L,qbs_left(_SUB_IDEFINDAGAIN_STRING_L,*__LONG_IDECX)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11520,"ide_methods.bas");}while(r); +} +} +}else{ +S_48774:; +if ((*__INTEGER_IDEFINDBACKWARDS)||new_error){ +if(qbevent){evnt(26070,11523,"ide_methods.bas");if(r)goto S_48774;} +S_48775:; +if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDEFINDAGAIN_STRING_L->len>*__LONG_IDECX)))||new_error){ +if(qbevent){evnt(26070,11524,"ide_methods.bas");if(r)goto S_48775;} +do{ +qbs_set(_SUB_IDEFINDAGAIN_STRING_L,qbs_left(_SUB_IDEFINDAGAIN_STRING_L,*__LONG_IDECX- 1 +(_SUB_IDEFINDAGAIN_STRING_S->len- 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11524,"ide_methods.bas");}while(r); +} +}else{ +S_48779:; +if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDEFINDAGAIN_STRING_L->len>*__LONG_IDECX)))||new_error){ +if(qbevent){evnt(26070,11526,"ide_methods.bas");if(r)goto S_48779;} +do{ +qbs_set(_SUB_IDEFINDAGAIN_STRING_L,qbs_add(func_string(*__LONG_IDECX, 255 ),qbs_right(_SUB_IDEFINDAGAIN_STRING_L,_SUB_IDEFINDAGAIN_STRING_L->len-*__LONG_IDECX))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11526,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_IDEFINDAGAIN_STRING_L,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11526,"ide_methods.bas");}while(r); +} +} +} +} +do{ +*_SUB_IDEFINDAGAIN_LONG_X1= 1 ; +if(!qbevent)break;evnt(26070,11531,"ide_methods.bas");}while(r); +S_48788:; +if ((*__INTEGER_IDEFINDBACKWARDS)||new_error){ +if(qbevent){evnt(26070,11532,"ide_methods.bas");if(r)goto S_48788;} +do{ +*_SUB_IDEFINDAGAIN_LONG_X1=_SUB_IDEFINDAGAIN_STRING_L->len-_SUB_IDEFINDAGAIN_STRING_S->len+ 1 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11533,"ide_methods.bas");}while(r); +S_48790:; +if ((-(*_SUB_IDEFINDAGAIN_LONG_X1< 0 ))||new_error){ +if(qbevent){evnt(26070,11534,"ide_methods.bas");if(r)goto S_48790;} +do{ +*_SUB_IDEFINDAGAIN_LONG_X1= 0 ; +if(!qbevent)break;evnt(26070,11534,"ide_methods.bas");}while(r); +} +} +LABEL_IDEFINDAGAIN2:; +if(qbevent){evnt(26070,11537,"ide_methods.bas");r=0;} +S_48794:; +if ((*__INTEGER_IDEFINDBACKWARDS)||new_error){ +if(qbevent){evnt(26070,11539,"ide_methods.bas");if(r)goto S_48794;} +do{ +*_SUB_IDEFINDAGAIN_LONG_X= 0 ; +if(!qbevent)break;evnt(26070,11540,"ide_methods.bas");}while(r); +S_48796:; +fornext_value5380=*_SUB_IDEFINDAGAIN_LONG_X1; +fornext_finalvalue5380= 1 ; +fornext_step5380= -1 ; +if (fornext_step5380<0) fornext_step_negative5380=1; else fornext_step_negative5380=0; +if (new_error) goto fornext_error5380; +goto fornext_entrylabel5380; +while(1){ +fornext_value5380=fornext_step5380+(*_SUB_IDEFINDAGAIN_LONG_XX); +fornext_entrylabel5380: +*_SUB_IDEFINDAGAIN_LONG_XX=fornext_value5380; +if (fornext_step_negative5380){ +if (fornext_value5380fornext_finalvalue5380) break; +} +fornext_error5380:; +if(qbevent){evnt(26070,11541,"ide_methods.bas");if(r)goto S_48796;} +S_48797:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_SUB_IDEFINDAGAIN_STRING_L,*_SUB_IDEFINDAGAIN_LONG_XX)==qbs_asc(_SUB_IDEFINDAGAIN_STRING_S))))||new_error){ +if(qbevent){evnt(26070,11542,"ide_methods.bas");if(r)goto S_48797;} +do{ +*_SUB_IDEFINDAGAIN_LONG_XXO=*_SUB_IDEFINDAGAIN_LONG_XX- 1 ; +if(!qbevent)break;evnt(26070,11543,"ide_methods.bas");}while(r); +S_48799:; +fornext_value5382=*_SUB_IDEFINDAGAIN_LONG_XX; +fornext_finalvalue5382=*_SUB_IDEFINDAGAIN_LONG_XX+_SUB_IDEFINDAGAIN_STRING_S->len- 1 ; +fornext_step5382= 1 ; +if (fornext_step5382<0) fornext_step_negative5382=1; else fornext_step_negative5382=0; +if (new_error) goto fornext_error5382; +goto fornext_entrylabel5382; +while(1){ +fornext_value5382=fornext_step5382+(*_SUB_IDEFINDAGAIN_LONG_XX2); +fornext_entrylabel5382: +*_SUB_IDEFINDAGAIN_LONG_XX2=fornext_value5382; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative5382){ +if (fornext_value5382fornext_finalvalue5382) break; +} +fornext_error5382:; +if(qbevent){evnt(26070,11544,"ide_methods.bas");if(r)goto S_48799;} +S_48800:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_SUB_IDEFINDAGAIN_STRING_L,*_SUB_IDEFINDAGAIN_LONG_XX2)!=qbs_asc(_SUB_IDEFINDAGAIN_STRING_S,*_SUB_IDEFINDAGAIN_LONG_XX2-*_SUB_IDEFINDAGAIN_LONG_XXO))))||new_error){ +if(qbevent){evnt(26070,11545,"ide_methods.bas");if(r)goto S_48800;} +do{ +goto fornext_exit_5381; +if(!qbevent)break;evnt(26070,11545,"ide_methods.bas");}while(r); +} +fornext_continue_5381:; +} +fornext_exit_5381:; +S_48804:; +if ((qbs_cleanup(qbs_tmp_base,-(*_SUB_IDEFINDAGAIN_LONG_XX2==(*_SUB_IDEFINDAGAIN_LONG_XX+_SUB_IDEFINDAGAIN_STRING_S->len))))||new_error){ +if(qbevent){evnt(26070,11547,"ide_methods.bas");if(r)goto S_48804;} +do{ +*_SUB_IDEFINDAGAIN_LONG_X=*_SUB_IDEFINDAGAIN_LONG_XX; +if(!qbevent)break;evnt(26070,11549,"ide_methods.bas");}while(r); +do{ +goto fornext_exit_5379; +if(!qbevent)break;evnt(26070,11550,"ide_methods.bas");}while(r); +} +} +fornext_continue_5379:; +} +fornext_exit_5379:; +}else{ +do{ +*_SUB_IDEFINDAGAIN_LONG_X=func_instr(*_SUB_IDEFINDAGAIN_LONG_X1,_SUB_IDEFINDAGAIN_STRING_L,_SUB_IDEFINDAGAIN_STRING_S,0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11555,"ide_methods.bas");}while(r); +} +S_48813:; +if ((*_SUB_IDEFINDAGAIN_LONG_X)||new_error){ +if(qbevent){evnt(26070,11559,"ide_methods.bas");if(r)goto S_48813;} +S_48814:; +if ((*__INTEGER_IDEFINDWHOLEWORD)||new_error){ +if(qbevent){evnt(26070,11560,"ide_methods.bas");if(r)goto S_48814;} +do{ +*_SUB_IDEFINDAGAIN_LONG_WHOLE= 1 ; +if(!qbevent)break;evnt(26070,11561,"ide_methods.bas");}while(r); +S_48816:; +if ((-(*_SUB_IDEFINDAGAIN_LONG_X> 1 ))||new_error){ +if(qbevent){evnt(26070,11562,"ide_methods.bas");if(r)goto S_48816;} +do{ +*_SUB_IDEFINDAGAIN_LONG_C=qbs_asc(qbs_ucase(func_mid(_SUB_IDEFINDAGAIN_STRING_L,*_SUB_IDEFINDAGAIN_LONG_X- 1 , 1 ,0|1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11563,"ide_methods.bas");}while(r); +S_48818:; +if (((-(*_SUB_IDEFINDAGAIN_LONG_C>= 65 ))&(-(*_SUB_IDEFINDAGAIN_LONG_C<= 90 )))||new_error){ +if(qbevent){evnt(26070,11564,"ide_methods.bas");if(r)goto S_48818;} +do{ +*_SUB_IDEFINDAGAIN_LONG_WHOLE= 0 ; +if(!qbevent)break;evnt(26070,11564,"ide_methods.bas");}while(r); +} +S_48821:; +if (((-(*_SUB_IDEFINDAGAIN_LONG_C>= 48 ))&(-(*_SUB_IDEFINDAGAIN_LONG_C<= 57 )))||new_error){ +if(qbevent){evnt(26070,11565,"ide_methods.bas");if(r)goto S_48821;} +do{ +*_SUB_IDEFINDAGAIN_LONG_WHOLE= 0 ; +if(!qbevent)break;evnt(26070,11565,"ide_methods.bas");}while(r); +} +} +S_48825:; +if ((qbs_cleanup(qbs_tmp_base,-((*_SUB_IDEFINDAGAIN_LONG_X+_SUB_IDEFINDAGAIN_STRING_S->len)<=(_SUB_IDEFINDAGAIN_STRING_L->len))))||new_error){ +if(qbevent){evnt(26070,11567,"ide_methods.bas");if(r)goto S_48825;} +do{ +*_SUB_IDEFINDAGAIN_LONG_C=qbs_asc(qbs_ucase(func_mid(_SUB_IDEFINDAGAIN_STRING_L,*_SUB_IDEFINDAGAIN_LONG_X+_SUB_IDEFINDAGAIN_STRING_S->len, 1 ,0|1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11568,"ide_methods.bas");}while(r); +S_48827:; +if (((-(*_SUB_IDEFINDAGAIN_LONG_C>= 65 ))&(-(*_SUB_IDEFINDAGAIN_LONG_C<= 90 )))||new_error){ +if(qbevent){evnt(26070,11569,"ide_methods.bas");if(r)goto S_48827;} +do{ +*_SUB_IDEFINDAGAIN_LONG_WHOLE= 0 ; +if(!qbevent)break;evnt(26070,11569,"ide_methods.bas");}while(r); +} +S_48830:; +if (((-(*_SUB_IDEFINDAGAIN_LONG_C>= 48 ))&(-(*_SUB_IDEFINDAGAIN_LONG_C<= 57 )))||new_error){ +if(qbevent){evnt(26070,11570,"ide_methods.bas");if(r)goto S_48830;} +do{ +*_SUB_IDEFINDAGAIN_LONG_WHOLE= 0 ; +if(!qbevent)break;evnt(26070,11570,"ide_methods.bas");}while(r); +} +} +S_48834:; +if ((-(*_SUB_IDEFINDAGAIN_LONG_WHOLE== 0 ))||new_error){ +if(qbevent){evnt(26070,11572,"ide_methods.bas");if(r)goto S_48834;} +do{ +*_SUB_IDEFINDAGAIN_LONG_X1=*_SUB_IDEFINDAGAIN_LONG_X+ 1 ; +if(!qbevent)break;evnt(26070,11573,"ide_methods.bas");}while(r); +S_48836:; +if ((*__INTEGER_IDEFINDBACKWARDS)||new_error){ +if(qbevent){evnt(26070,11573,"ide_methods.bas");if(r)goto S_48836;} +do{ +*_SUB_IDEFINDAGAIN_LONG_X1=*_SUB_IDEFINDAGAIN_LONG_X- 1 ; +if(!qbevent)break;evnt(26070,11573,"ide_methods.bas");}while(r); +} +do{ +*_SUB_IDEFINDAGAIN_LONG_X= 0 ; +if(!qbevent)break;evnt(26070,11574,"ide_methods.bas");}while(r); +S_48840:; +if ((qbs_cleanup(qbs_tmp_base,(-(*_SUB_IDEFINDAGAIN_LONG_X1> 0 ))&(-(*_SUB_IDEFINDAGAIN_LONG_X1<=_SUB_IDEFINDAGAIN_STRING_L->len))))||new_error){ +if(qbevent){evnt(26070,11575,"ide_methods.bas");if(r)goto S_48840;} +do{ +goto LABEL_IDEFINDAGAIN2; +if(!qbevent)break;evnt(26070,11575,"ide_methods.bas");}while(r); +} +} +} +} +S_48846:; +if ((*_SUB_IDEFINDAGAIN_LONG_X)||new_error){ +if(qbevent){evnt(26070,11580,"ide_methods.bas");if(r)goto S_48846;} +do{ +SUB_FINDQUOTECOMMENT(_SUB_IDEFINDAGAIN_STRING_L,_SUB_IDEFINDAGAIN_LONG_X,_SUB_IDEFINDAGAIN_BYTE_COMMENT,_SUB_IDEFINDAGAIN_BYTE_QUOTE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11581,"ide_methods.bas");}while(r); +S_48848:; +if (((-(*__INTEGER_IDEFINDNOCOMMENTS!= 0 ))&*_SUB_IDEFINDAGAIN_BYTE_COMMENT)||new_error){ +if(qbevent){evnt(26070,11582,"ide_methods.bas");if(r)goto S_48848;} +do{ +*_SUB_IDEFINDAGAIN_LONG_X= 0 ; +if(!qbevent)break;evnt(26070,11582,"ide_methods.bas");}while(r); +} +S_48851:; +if (((-(*__INTEGER_IDEFINDNOSTRINGS!= 0 ))&*_SUB_IDEFINDAGAIN_BYTE_QUOTE)||new_error){ +if(qbevent){evnt(26070,11583,"ide_methods.bas");if(r)goto S_48851;} +do{ +*_SUB_IDEFINDAGAIN_LONG_X= 0 ; +if(!qbevent)break;evnt(26070,11583,"ide_methods.bas");}while(r); +} +S_48854:; +if (((-(*__INTEGER_IDEFINDONLYCOMMENTS!= 0 ))&(-(*_SUB_IDEFINDAGAIN_BYTE_COMMENT== 0 )))||new_error){ +if(qbevent){evnt(26070,11584,"ide_methods.bas");if(r)goto S_48854;} +do{ +*_SUB_IDEFINDAGAIN_LONG_X= 0 ; +if(!qbevent)break;evnt(26070,11584,"ide_methods.bas");}while(r); +} +S_48857:; +if (((-(*__INTEGER_IDEFINDONLYSTRINGS!= 0 ))&(-(*_SUB_IDEFINDAGAIN_BYTE_QUOTE== 0 )))||new_error){ +if(qbevent){evnt(26070,11585,"ide_methods.bas");if(r)goto S_48857;} +do{ +*_SUB_IDEFINDAGAIN_LONG_X= 0 ; +if(!qbevent)break;evnt(26070,11585,"ide_methods.bas");}while(r); +} +} +S_48861:; +if ((*_SUB_IDEFINDAGAIN_LONG_X)||new_error){ +if(qbevent){evnt(26070,11588,"ide_methods.bas");if(r)goto S_48861;} +do{ +*__LONG_IDESELECT= 1 ; +if(!qbevent)break;evnt(26070,11589,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECX=*_SUB_IDEFINDAGAIN_LONG_X; +if(!qbevent)break;evnt(26070,11590,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECY=*_SUB_IDEFINDAGAIN_LONG_Y; +if(!qbevent)break;evnt(26070,11590,"ide_methods.bas");}while(r); +do{ +*__LONG_SEARCHSTRINGFOUNDON=*__LONG_IDECY; +if(!qbevent)break;evnt(26070,11591,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESELECTX1=*_SUB_IDEFINDAGAIN_LONG_X+_SUB_IDEFINDAGAIN_STRING_S->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11592,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESELECTY1=*_SUB_IDEFINDAGAIN_LONG_Y; +if(!qbevent)break;evnt(26070,11592,"ide_methods.bas");}while(r); +S_48868:; +if ((*__INTEGER_IDEFINDINVERT)||new_error){ +if(qbevent){evnt(26070,11594,"ide_methods.bas");if(r)goto S_48868;} +S_48869:; +if ((-(*__INTEGER_IDEFINDBACKWARDS== 0 ))||new_error){ +if(qbevent){evnt(26070,11595,"ide_methods.bas");if(r)goto S_48869;} +do{ +*__INTEGER_IDEFINDBACKWARDS= 1 ; +if(!qbevent)break;evnt(26070,11595,"ide_methods.bas");}while(r); +}else{ +do{ +*__INTEGER_IDEFINDBACKWARDS= 0 ; +if(!qbevent)break;evnt(26070,11595,"ide_methods.bas");}while(r); +} +do{ +*__INTEGER_IDEFINDINVERT= 0 ; +if(!qbevent)break;evnt(26070,11596,"ide_methods.bas");}while(r); +} +do{ +SUB_IDECENTERCURRENTLINE(); +if(!qbevent)break;evnt(26070,11598,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,11599,"ide_methods.bas");}while(r); +} +S_48879:; +if ((*__INTEGER_IDEFINDBACKWARDS)||new_error){ +if(qbevent){evnt(26070,11602,"ide_methods.bas");if(r)goto S_48879;} +do{ +*_SUB_IDEFINDAGAIN_LONG_Y=*_SUB_IDEFINDAGAIN_LONG_Y- 1 ; +if(!qbevent)break;evnt(26070,11603,"ide_methods.bas");}while(r); +S_48881:; +if (((-(*_SUB_IDEFINDAGAIN_LONG_Y==(*_SUB_IDEFINDAGAIN_LONG_START- 1 )))&(-(*_SUB_IDEFINDAGAIN_LONG_LOOPED== 1 )))||new_error){ +if(qbevent){evnt(26070,11604,"ide_methods.bas");if(r)goto S_48881;} +do{ +SUB_IDENOMATCH(_SUB_IDEFINDAGAIN_BYTE_SHOWFLAGS); +if(!qbevent)break;evnt(26070,11605,"ide_methods.bas");}while(r); +S_48883:; +if ((*__INTEGER_IDEFINDINVERT)||new_error){ +if(qbevent){evnt(26070,11606,"ide_methods.bas");if(r)goto S_48883;} +S_48884:; +if ((-(*__INTEGER_IDEFINDBACKWARDS== 0 ))||new_error){ +if(qbevent){evnt(26070,11607,"ide_methods.bas");if(r)goto S_48884;} +do{ +*__INTEGER_IDEFINDBACKWARDS= 1 ; +if(!qbevent)break;evnt(26070,11607,"ide_methods.bas");}while(r); +}else{ +do{ +*__INTEGER_IDEFINDBACKWARDS= 0 ; +if(!qbevent)break;evnt(26070,11607,"ide_methods.bas");}while(r); +} +do{ +*__INTEGER_IDEFINDINVERT= 0 ; +if(!qbevent)break;evnt(26070,11608,"ide_methods.bas");}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,11610,"ide_methods.bas");}while(r); +} +S_48893:; +if ((-(*_SUB_IDEFINDAGAIN_LONG_Y< 1 ))||new_error){ +if(qbevent){evnt(26070,11612,"ide_methods.bas");if(r)goto S_48893;} +do{ +*_SUB_IDEFINDAGAIN_LONG_Y=*__LONG_IDEN; +if(!qbevent)break;evnt(26070,11612,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEFINDAGAIN_LONG_LOOPED= 1 ; +if(!qbevent)break;evnt(26070,11612,"ide_methods.bas");}while(r); +} +do{ +goto LABEL_IDEFINDNEXT2; +if(!qbevent)break;evnt(26070,11613,"ide_methods.bas");}while(r); +}else{ +do{ +*_SUB_IDEFINDAGAIN_LONG_Y=*_SUB_IDEFINDAGAIN_LONG_Y+ 1 ; +if(!qbevent)break;evnt(26070,11615,"ide_methods.bas");}while(r); +S_48900:; +if (((-(*_SUB_IDEFINDAGAIN_LONG_Y==(*_SUB_IDEFINDAGAIN_LONG_START+ 1 )))&(-(*_SUB_IDEFINDAGAIN_LONG_LOOPED== 1 )))||new_error){ +if(qbevent){evnt(26070,11616,"ide_methods.bas");if(r)goto S_48900;} +do{ +SUB_IDENOMATCH(_SUB_IDEFINDAGAIN_BYTE_SHOWFLAGS); +if(!qbevent)break;evnt(26070,11617,"ide_methods.bas");}while(r); +S_48902:; +if ((*__INTEGER_IDEFINDINVERT)||new_error){ +if(qbevent){evnt(26070,11618,"ide_methods.bas");if(r)goto S_48902;} +S_48903:; +if ((-(*__INTEGER_IDEFINDBACKWARDS== 0 ))||new_error){ +if(qbevent){evnt(26070,11619,"ide_methods.bas");if(r)goto S_48903;} +do{ +*__INTEGER_IDEFINDBACKWARDS= 1 ; +if(!qbevent)break;evnt(26070,11619,"ide_methods.bas");}while(r); +}else{ +do{ +*__INTEGER_IDEFINDBACKWARDS= 0 ; +if(!qbevent)break;evnt(26070,11619,"ide_methods.bas");}while(r); +} +do{ +*__INTEGER_IDEFINDINVERT= 0 ; +if(!qbevent)break;evnt(26070,11620,"ide_methods.bas");}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,11622,"ide_methods.bas");}while(r); +} +S_48912:; +if ((-(*_SUB_IDEFINDAGAIN_LONG_Y>*__LONG_IDEN))||new_error){ +if(qbevent){evnt(26070,11624,"ide_methods.bas");if(r)goto S_48912;} +do{ +*_SUB_IDEFINDAGAIN_LONG_Y= 1 ; +if(!qbevent)break;evnt(26070,11624,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEFINDAGAIN_LONG_LOOPED= 1 ; +if(!qbevent)break;evnt(26070,11624,"ide_methods.bas");}while(r); +} +do{ +goto LABEL_IDEFINDNEXT2; +if(!qbevent)break;evnt(26070,11625,"ide_methods.bas");}while(r); +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free194.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +qbs* FUNC_IDEGETLINE(int32*_FUNC_IDEGETLINE_LONG_I){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data195.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +S_48918:; +if ((-(*_FUNC_IDEGETLINE_LONG_I!= -1 ))||new_error){ +if(qbevent){evnt(26070,11630,"ide_methods.bas");if(r)goto S_48918;} +do{ +SUB_IDEGOTOLINE(_FUNC_IDEGETLINE_LONG_I); +if(!qbevent)break;evnt(26070,11630,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDEGETLINE_STRING_IDEGETLINE,func_mid(__STRING_IDET,*__LONG_IDELI+ 4 ,string2l(func_mid(__STRING_IDET,*__LONG_IDELI, 4 ,0|1)),0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11631,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free195.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_IDEGETLINE_STRING_IDEGETLINE);return _FUNC_IDEGETLINE_STRING_IDEGETLINE; +} +void SUB_IDECENTERCURRENTLINE(){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data196.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +S_48922:; +if ((-(*__LONG_IDEN<=(*__LONG_IDEWY- 8 )))||new_error){ +if(qbevent){evnt(26070,11635,"ide_methods.bas");if(r)goto S_48922;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,11635,"ide_methods.bas");}while(r); +} +do{ +*__LONG_IDESY=*__LONG_IDECY-((*__LONG_IDEWY- 8 )/ 2 ); +if(!qbevent)break;evnt(26070,11636,"ide_methods.bas");}while(r); +S_48926:; +if ((-(*__LONG_IDESY< 1 ))||new_error){ +if(qbevent){evnt(26070,11637,"ide_methods.bas");if(r)goto S_48926;} +do{ +*__LONG_IDESY= 1 ; +if(!qbevent)break;evnt(26070,11637,"ide_methods.bas");}while(r); +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free196.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +void SUB_IDEGOTOLINE(int32*_SUB_IDEGOTOLINE_LONG_I){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data197.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +S_48929:; +if ((-(*__LONG_IDEL==*_SUB_IDEGOTOLINE_LONG_I))||new_error){ +if(qbevent){evnt(26070,11641,"ide_methods.bas");if(r)goto S_48929;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,11641,"ide_methods.bas");}while(r); +} +S_48932:; +if ((-(*_SUB_IDEGOTOLINE_LONG_I< 1 ))||new_error){ +if(qbevent){evnt(26070,11642,"ide_methods.bas");if(r)goto S_48932;} +do{ +*_SUB_IDEGOTOLINE_LONG_I= 1 ; +if(!qbevent)break;evnt(26070,11642,"ide_methods.bas");}while(r); +} +S_48935:; +if ((-(*_SUB_IDEGOTOLINE_LONG_I<*__LONG_IDEL))||new_error){ +if(qbevent){evnt(26070,11644,"ide_methods.bas");if(r)goto S_48935;} +S_48936:; +do{ +if(qbevent){evnt(26070,11645,"ide_methods.bas");if(r)goto S_48936;} +do{ +*__LONG_IDEL=*__LONG_IDEL- 1 ; +if(!qbevent)break;evnt(26070,11646,"ide_methods.bas");}while(r); +do{ +*__LONG_IDELI=*__LONG_IDELI-string2l(func_mid(__STRING_IDET,*__LONG_IDELI- 4 , 4 ,0|1))- 8 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11647,"ide_methods.bas");}while(r); +S_48939:; +dl_continue_5390:; +}while((!(-(*__LONG_IDEL==*_SUB_IDEGOTOLINE_LONG_I)))&&(!new_error)); +dl_exit_5390:; +if(qbevent){evnt(26070,11648,"ide_methods.bas");if(r)goto S_48939;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,11649,"ide_methods.bas");}while(r); +} +S_48942:; +do{ +if(qbevent){evnt(26070,11652,"ide_methods.bas");if(r)goto S_48942;} +S_48943:; +if ((-(*__LONG_IDEL==*__LONG_IDEN))||new_error){ +if(qbevent){evnt(26070,11653,"ide_methods.bas");if(r)goto S_48943;} +do{ +qbs_set(__STRING_IDET,qbs_add(qbs_add(__STRING_IDET,l2string( 0 )),l2string( 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11653,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEN=*__LONG_IDEN+ 1 ; +if(!qbevent)break;evnt(26070,11653,"ide_methods.bas");}while(r); +} +do{ +*__LONG_IDEL=*__LONG_IDEL+ 1 ; +if(!qbevent)break;evnt(26070,11654,"ide_methods.bas");}while(r); +do{ +*__LONG_IDELI=*__LONG_IDELI+string2l(func_mid(__STRING_IDET,*__LONG_IDELI, 4 ,0|1))+ 8 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11655,"ide_methods.bas");}while(r); +S_48949:; +dl_continue_5391:; +}while((!(-(*__LONG_IDEL==*_SUB_IDEGOTOLINE_LONG_I)))&&(!new_error)); +dl_exit_5391:; +if(qbevent){evnt(26070,11656,"ide_methods.bas");if(r)goto S_48949;} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free197.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +int32 FUNC_IDEHBAR(int32*_FUNC_IDEHBAR_LONG_X,int32*_FUNC_IDEHBAR_LONG_Y,int32*_FUNC_IDEHBAR_LONG_H,int32*_FUNC_IDEHBAR_LONG_I2,int32*_FUNC_IDEHBAR_LONG_N2){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data198.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +*_FUNC_IDEHBAR_LONG_I=*_FUNC_IDEHBAR_LONG_I2; +if(!qbevent)break;evnt(26070,11660,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEHBAR_LONG_N=*_FUNC_IDEHBAR_LONG_N2; +if(!qbevent)break;evnt(26070,11660,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,11678,"ide_methods.bas");}while(r); +do{ +sub__printstring(*_FUNC_IDEHBAR_LONG_X,*_FUNC_IDEHBAR_LONG_Y,func_chr( 27 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11679,"ide_methods.bas");}while(r); +do{ +sub__printstring(*_FUNC_IDEHBAR_LONG_X+*_FUNC_IDEHBAR_LONG_H- 1 ,*_FUNC_IDEHBAR_LONG_Y,func_chr( 26 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11680,"ide_methods.bas");}while(r); +S_48955:; +fornext_value5393=*_FUNC_IDEHBAR_LONG_X+ 1 ; +fornext_finalvalue5393=*_FUNC_IDEHBAR_LONG_X+*_FUNC_IDEHBAR_LONG_H- 2 ; +fornext_step5393= 1 ; +if (fornext_step5393<0) fornext_step_negative5393=1; else fornext_step_negative5393=0; +if (new_error) goto fornext_error5393; +goto fornext_entrylabel5393; +while(1){ +fornext_value5393=fornext_step5393+(*_FUNC_IDEHBAR_LONG_X2); +fornext_entrylabel5393: +*_FUNC_IDEHBAR_LONG_X2=fornext_value5393; +if (fornext_step_negative5393){ +if (fornext_value5393fornext_finalvalue5393) break; +} +fornext_error5393:; +if(qbevent){evnt(26070,11681,"ide_methods.bas");if(r)goto S_48955;} +do{ +sub__printstring(*_FUNC_IDEHBAR_LONG_X2,*_FUNC_IDEHBAR_LONG_Y,func_chr( 176 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11682,"ide_methods.bas");}while(r); +fornext_continue_5392:; +} +fornext_exit_5392:; +S_48958:; +if ((-(*_FUNC_IDEHBAR_LONG_N< 1 ))||new_error){ +if(qbevent){evnt(26070,11687,"ide_methods.bas");if(r)goto S_48958;} +do{ +*_FUNC_IDEHBAR_LONG_N= 1 ; +if(!qbevent)break;evnt(26070,11687,"ide_methods.bas");}while(r); +} +S_48961:; +if ((-(*_FUNC_IDEHBAR_LONG_I< 1 ))||new_error){ +if(qbevent){evnt(26070,11688,"ide_methods.bas");if(r)goto S_48961;} +do{ +*_FUNC_IDEHBAR_LONG_I= 1 ; +if(!qbevent)break;evnt(26070,11688,"ide_methods.bas");}while(r); +} +S_48964:; +if ((-(*_FUNC_IDEHBAR_LONG_I>*_FUNC_IDEHBAR_LONG_N))||new_error){ +if(qbevent){evnt(26070,11689,"ide_methods.bas");if(r)goto S_48964;} +do{ +*_FUNC_IDEHBAR_LONG_I=*_FUNC_IDEHBAR_LONG_N; +if(!qbevent)break;evnt(26070,11689,"ide_methods.bas");}while(r); +} +S_48967:; +if ((-(*_FUNC_IDEHBAR_LONG_H== 2 ))||new_error){ +if(qbevent){evnt(26070,11691,"ide_methods.bas");if(r)goto S_48967;} +do{ +*_FUNC_IDEHBAR_LONG_IDEHBAR=*_FUNC_IDEHBAR_LONG_X; +if(!qbevent)break;evnt(26070,11692,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,11693,"ide_methods.bas");}while(r); +} +S_48971:; +if ((-(*_FUNC_IDEHBAR_LONG_H== 3 ))||new_error){ +if(qbevent){evnt(26070,11696,"ide_methods.bas");if(r)goto S_48971;} +do{ +*_FUNC_IDEHBAR_LONG_IDEHBAR=*_FUNC_IDEHBAR_LONG_X+ 1 ; +if(!qbevent)break;evnt(26070,11697,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,11699,"ide_methods.bas");}while(r); +} +S_48975:; +if ((-(*_FUNC_IDEHBAR_LONG_H== 4 ))||new_error){ +if(qbevent){evnt(26070,11702,"ide_methods.bas");if(r)goto S_48975;} +S_48976:; +if ((-(*_FUNC_IDEHBAR_LONG_N== 1 ))||new_error){ +if(qbevent){evnt(26070,11703,"ide_methods.bas");if(r)goto S_48976;} +do{ +*_FUNC_IDEHBAR_LONG_IDEHBAR=*_FUNC_IDEHBAR_LONG_X+ 1 ; +if(!qbevent)break;evnt(26070,11704,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,11706,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_IDEHBAR_SINGLE_P=(*_FUNC_IDEHBAR_LONG_I- 1 )/ ((long double)((*_FUNC_IDEHBAR_LONG_N- 1 ))); +if(!qbevent)break;evnt(26070,11709,"ide_methods.bas");}while(r); +S_48981:; +if ((-(((float)(*_FUNC_IDEHBAR_SINGLE_P))<((float)( 0.5E+0 ))))||new_error){ +if(qbevent){evnt(26070,11710,"ide_methods.bas");if(r)goto S_48981;} +do{ +*_FUNC_IDEHBAR_LONG_X2=*_FUNC_IDEHBAR_LONG_X+ 1 ; +if(!qbevent)break;evnt(26070,11710,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_IDEHBAR_LONG_X2=*_FUNC_IDEHBAR_LONG_X+ 2 ; +if(!qbevent)break;evnt(26070,11710,"ide_methods.bas");}while(r); +} +do{ +sub__printstring(*_FUNC_IDEHBAR_LONG_X2,*_FUNC_IDEHBAR_LONG_Y,func_chr( 219 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11711,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEHBAR_LONG_IDEHBAR=*_FUNC_IDEHBAR_LONG_X2; +if(!qbevent)break;evnt(26070,11712,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,11713,"ide_methods.bas");}while(r); +} +} +S_48991:; +if ((-(*_FUNC_IDEHBAR_LONG_H> 4 ))||new_error){ +if(qbevent){evnt(26070,11717,"ide_methods.bas");if(r)goto S_48991;} +S_48992:; +if ((-(*_FUNC_IDEHBAR_LONG_N== 1 ))||new_error){ +if(qbevent){evnt(26070,11718,"ide_methods.bas");if(r)goto S_48992;} +do{ +*_FUNC_IDEHBAR_LONG_IDEHBAR=*_FUNC_IDEHBAR_LONG_X+(*_FUNC_IDEHBAR_LONG_H/ 4 ); +if(!qbevent)break;evnt(26070,11719,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,11721,"ide_methods.bas");}while(r); +} +S_48996:; +if ((-(*_FUNC_IDEHBAR_LONG_I== 1 ))||new_error){ +if(qbevent){evnt(26070,11723,"ide_methods.bas");if(r)goto S_48996;} +do{ +*_FUNC_IDEHBAR_LONG_X2=*_FUNC_IDEHBAR_LONG_X+ 1 ; +if(!qbevent)break;evnt(26070,11724,"ide_methods.bas");}while(r); +do{ +sub__printstring(*_FUNC_IDEHBAR_LONG_X2,*_FUNC_IDEHBAR_LONG_Y,func_chr( 219 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11725,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEHBAR_LONG_IDEHBAR=*_FUNC_IDEHBAR_LONG_X2; +if(!qbevent)break;evnt(26070,11726,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,11727,"ide_methods.bas");}while(r); +} +S_49002:; +if ((-(*_FUNC_IDEHBAR_LONG_I==*_FUNC_IDEHBAR_LONG_N))||new_error){ +if(qbevent){evnt(26070,11729,"ide_methods.bas");if(r)goto S_49002;} +do{ +*_FUNC_IDEHBAR_LONG_X2=*_FUNC_IDEHBAR_LONG_X+*_FUNC_IDEHBAR_LONG_H- 2 ; +if(!qbevent)break;evnt(26070,11730,"ide_methods.bas");}while(r); +do{ +sub__printstring(*_FUNC_IDEHBAR_LONG_X2,*_FUNC_IDEHBAR_LONG_Y,func_chr( 219 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11731,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEHBAR_LONG_IDEHBAR=*_FUNC_IDEHBAR_LONG_X2; +if(!qbevent)break;evnt(26070,11732,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,11733,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEHBAR_SINGLE_P=(*_FUNC_IDEHBAR_LONG_I- 1 )/ ((long double)((*_FUNC_IDEHBAR_LONG_N- 1 ))); +if(!qbevent)break;evnt(26070,11736,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEHBAR_SINGLE_P=*_FUNC_IDEHBAR_SINGLE_P*(*_FUNC_IDEHBAR_LONG_H- 4 ); +if(!qbevent)break;evnt(26070,11737,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEHBAR_LONG_X2=qbr(*_FUNC_IDEHBAR_LONG_X+ 2 +floor(*_FUNC_IDEHBAR_SINGLE_P)); +if(!qbevent)break;evnt(26070,11738,"ide_methods.bas");}while(r); +do{ +sub__printstring(*_FUNC_IDEHBAR_LONG_X2,*_FUNC_IDEHBAR_LONG_Y,func_chr( 219 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11739,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEHBAR_LONG_IDEHBAR=*_FUNC_IDEHBAR_LONG_X2; +if(!qbevent)break;evnt(26070,11740,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,11741,"ide_methods.bas");}while(r); +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free198.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +return *_FUNC_IDEHBAR_LONG_IDEHBAR; +} +int32 FUNC_IDEHLEN(qbs*_FUNC_IDEHLEN_STRING_A){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data199.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +S_49015:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_IDEHLEN_STRING_A,qbs_new_txt_len("#",1),0)))||new_error){ +if(qbevent){evnt(26070,11748,"ide_methods.bas");if(r)goto S_49015;} +do{ +*_FUNC_IDEHLEN_LONG_IDEHLEN=_FUNC_IDEHLEN_STRING_A->len- 1 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11748,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_IDEHLEN_LONG_IDEHLEN=_FUNC_IDEHLEN_STRING_A->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11748,"ide_methods.bas");}while(r); +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free199.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +return *_FUNC_IDEHLEN_LONG_IDEHLEN; +} +void SUB_IDEHPRINT(qbs*_SUB_IDEHPRINT_STRING_A){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data200.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,11752,"ide_methods.bas");}while(r); +S_49021:; +fornext_value5399= 1 ; +fornext_finalvalue5399=_SUB_IDEHPRINT_STRING_A->len; +fornext_step5399= 1 ; +if (fornext_step5399<0) fornext_step_negative5399=1; else fornext_step_negative5399=0; +if (new_error) goto fornext_error5399; +goto fornext_entrylabel5399; +while(1){ +fornext_value5399=fornext_step5399+(*_SUB_IDEHPRINT_LONG_I); +fornext_entrylabel5399: +*_SUB_IDEHPRINT_LONG_I=fornext_value5399; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative5399){ +if (fornext_value5399fornext_finalvalue5399) break; +} +fornext_error5399:; +if(qbevent){evnt(26070,11753,"ide_methods.bas");if(r)goto S_49021;} +do{ +qbs_set(_SUB_IDEHPRINT_STRING_C,func_mid(_SUB_IDEHPRINT_STRING_A,*_SUB_IDEHPRINT_LONG_I, 1 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11754,"ide_methods.bas");}while(r); +S_49023:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDEHPRINT_STRING_C,qbs_new_txt_len("#",1))))||new_error){ +if(qbevent){evnt(26070,11755,"ide_methods.bas");if(r)goto S_49023;} +S_49024:; +if ((*__LONG_IDEHL)||new_error){ +if(qbevent){evnt(26070,11756,"ide_methods.bas");if(r)goto S_49024;} +do{ +qbg_sub_color( 15 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,11756,"ide_methods.bas");}while(r); +} +}else{ +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,_SUB_IDEHPRINT_STRING_C); +if (new_error) goto skip5401; +makefit(tqbs); +qbs_print(tqbs,0); +skip5401: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11758,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,11758,"ide_methods.bas");}while(r); +} +fornext_continue_5398:; +} +fornext_exit_5398:; +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free200.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +void SUB_IDEINSLINE(int32*_SUB_IDEINSLINE_LONG_I,qbs*_SUB_IDEINSLINE_STRING_TEXT){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data201.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +S_49032:; +fornext_value5404= 1 ; +fornext_finalvalue5404=*__LONG_IDEBMKN; +fornext_step5404= 1 ; +if (fornext_step5404<0) fornext_step_negative5404=1; else fornext_step_negative5404=0; +if (new_error) goto fornext_error5404; +goto fornext_entrylabel5404; +while(1){ +fornext_value5404=fornext_step5404+(*_SUB_IDEINSLINE_LONG_B); +fornext_entrylabel5404: +*_SUB_IDEINSLINE_LONG_B=fornext_value5404; +if (fornext_step_negative5404){ +if (fornext_value5404fornext_finalvalue5404) break; +} +fornext_error5404:; +if(qbevent){evnt(26070,11766,"ide_methods.bas");if(r)goto S_49032;} +S_49033:; +if ((-(*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_SUB_IDEINSLINE_LONG_B)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16))>=*_SUB_IDEINSLINE_LONG_I))||new_error){ +if(qbevent){evnt(26070,11767,"ide_methods.bas");if(r)goto S_49033;} +do{ +*_SUB_IDEINSLINE_LONG_Y=*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_SUB_IDEINSLINE_LONG_B)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16))+ 1 ; +if(!qbevent)break;evnt(26070,11768,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_SUB_IDEINSLINE_LONG_B)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16))=*_SUB_IDEINSLINE_LONG_Y; +if(!qbevent)break;evnt(26070,11769,"ide_methods.bas");}while(r); +} +fornext_continue_5403:; +} +fornext_exit_5403:; +S_49038:; +if ((*__LONG_VWATCHON)||new_error){ +if(qbevent){evnt(26070,11773,"ide_methods.bas");if(r)goto S_49038;} +do{ if (__ARRAY_BYTE_IDEBREAKPOINTS[2]&2){ error(10); @@ -164372,37 +164372,37 @@ if (!__ARRAY_BYTE_IDEBREAKPOINTS[0]) error(257); } } __ARRAY_BYTE_IDEBREAKPOINTS[2]|=1; -} -if(!qbevent)break;evnt(26070,11774,"ide_methods.bas");}while(r); -S_49040:; -fornext_value5406=*__LONG_IDEN+ 1 ; -fornext_finalvalue5406=*_SUB_IDEINSLINE_LONG_I; -fornext_step5406= -1 ; -if (fornext_step5406<0) fornext_step_negative5406=1; else fornext_step_negative5406=0; -if (new_error) goto fornext_error5406; -goto fornext_entrylabel5406; -while(1){ -fornext_value5406=fornext_step5406+(*_SUB_IDEINSLINE_LONG_B); -fornext_entrylabel5406: -*_SUB_IDEINSLINE_LONG_B=fornext_value5406; -if (fornext_step_negative5406){ -if (fornext_value5406fornext_finalvalue5406) break; -} -fornext_error5406:; -if(qbevent){evnt(26070,11775,"ide_methods.bas");if(r)goto S_49040;} -do{ -swap_8(&((int8*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]))[array_check((*_SUB_IDEINSLINE_LONG_B)-__ARRAY_BYTE_IDEBREAKPOINTS[4],__ARRAY_BYTE_IDEBREAKPOINTS[5])],&((int8*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]))[array_check((*_SUB_IDEINSLINE_LONG_B- 1 )-__ARRAY_BYTE_IDEBREAKPOINTS[4],__ARRAY_BYTE_IDEBREAKPOINTS[5])]); -if(!qbevent)break;evnt(26070,11776,"ide_methods.bas");}while(r); -fornext_continue_5405:; -} -fornext_exit_5405:; -do{ -tmp_long=array_check((*_SUB_IDEINSLINE_LONG_I)-__ARRAY_BYTE_IDEBREAKPOINTS[4],__ARRAY_BYTE_IDEBREAKPOINTS[5]); -if (!new_error) ((int8*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(26070,11778,"ide_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26070,11774,"ide_methods.bas");}while(r); +S_49040:; +fornext_value5406=*__LONG_IDEN+ 1 ; +fornext_finalvalue5406=*_SUB_IDEINSLINE_LONG_I; +fornext_step5406= -1 ; +if (fornext_step5406<0) fornext_step_negative5406=1; else fornext_step_negative5406=0; +if (new_error) goto fornext_error5406; +goto fornext_entrylabel5406; +while(1){ +fornext_value5406=fornext_step5406+(*_SUB_IDEINSLINE_LONG_B); +fornext_entrylabel5406: +*_SUB_IDEINSLINE_LONG_B=fornext_value5406; +if (fornext_step_negative5406){ +if (fornext_value5406fornext_finalvalue5406) break; +} +fornext_error5406:; +if(qbevent){evnt(26070,11775,"ide_methods.bas");if(r)goto S_49040;} +do{ +swap_8(&((int8*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]))[array_check((*_SUB_IDEINSLINE_LONG_B)-__ARRAY_BYTE_IDEBREAKPOINTS[4],__ARRAY_BYTE_IDEBREAKPOINTS[5])],&((int8*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]))[array_check((*_SUB_IDEINSLINE_LONG_B- 1 )-__ARRAY_BYTE_IDEBREAKPOINTS[4],__ARRAY_BYTE_IDEBREAKPOINTS[5])]); +if(!qbevent)break;evnt(26070,11776,"ide_methods.bas");}while(r); +fornext_continue_5405:; +} +fornext_exit_5405:; +do{ +tmp_long=array_check((*_SUB_IDEINSLINE_LONG_I)-__ARRAY_BYTE_IDEBREAKPOINTS[4],__ARRAY_BYTE_IDEBREAKPOINTS[5]); +if (!new_error) ((int8*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]))[tmp_long]= 0 ; +if(!qbevent)break;evnt(26070,11778,"ide_methods.bas");}while(r); +do{ if (__ARRAY_BYTE_IDESKIPLINES[2]&2){ error(10); @@ -164440,107 +164440,107 @@ if (!__ARRAY_BYTE_IDESKIPLINES[0]) error(257); } } __ARRAY_BYTE_IDESKIPLINES[2]|=1; -} -if(!qbevent)break;evnt(26070,11780,"ide_methods.bas");}while(r); -S_49045:; -fornext_value5408=*__LONG_IDEN+ 1 ; -fornext_finalvalue5408=*_SUB_IDEINSLINE_LONG_I; -fornext_step5408= -1 ; -if (fornext_step5408<0) fornext_step_negative5408=1; else fornext_step_negative5408=0; -if (new_error) goto fornext_error5408; -goto fornext_entrylabel5408; -while(1){ -fornext_value5408=fornext_step5408+(*_SUB_IDEINSLINE_LONG_B); -fornext_entrylabel5408: -*_SUB_IDEINSLINE_LONG_B=fornext_value5408; -if (fornext_step_negative5408){ -if (fornext_value5408fornext_finalvalue5408) break; -} -fornext_error5408:; -if(qbevent){evnt(26070,11781,"ide_methods.bas");if(r)goto S_49045;} -do{ -swap_8(&((int8*)(__ARRAY_BYTE_IDESKIPLINES[0]))[array_check((*_SUB_IDEINSLINE_LONG_B)-__ARRAY_BYTE_IDESKIPLINES[4],__ARRAY_BYTE_IDESKIPLINES[5])],&((int8*)(__ARRAY_BYTE_IDESKIPLINES[0]))[array_check((*_SUB_IDEINSLINE_LONG_B- 1 )-__ARRAY_BYTE_IDESKIPLINES[4],__ARRAY_BYTE_IDESKIPLINES[5])]); -if(!qbevent)break;evnt(26070,11782,"ide_methods.bas");}while(r); -fornext_continue_5407:; -} -fornext_exit_5407:; -do{ -tmp_long=array_check((*_SUB_IDEINSLINE_LONG_I)-__ARRAY_BYTE_IDESKIPLINES[4],__ARRAY_BYTE_IDESKIPLINES[5]); -if (!new_error) ((int8*)(__ARRAY_BYTE_IDESKIPLINES[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(26070,11784,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_SUB_IDEINSLINE_STRING_TEXT,qbs_rtrim(_SUB_IDEINSLINE_STRING_TEXT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11787,"ide_methods.bas");}while(r); -S_49051:; -if ((-(*_SUB_IDEINSLINE_LONG_I== -1 ))||new_error){ -if(qbevent){evnt(26070,11789,"ide_methods.bas");if(r)goto S_49051;} -do{ -*_SUB_IDEINSLINE_LONG_I=*__LONG_IDEL; -if(!qbevent)break;evnt(26070,11789,"ide_methods.bas");}while(r); -} -S_49054:; -if ((-(*_SUB_IDEINSLINE_LONG_I>*__LONG_IDEN))||new_error){ -if(qbevent){evnt(26070,11791,"ide_methods.bas");if(r)goto S_49054;} -do{ -SUB_IDESETLINE(_SUB_IDEINSLINE_LONG_I,_SUB_IDEINSLINE_STRING_TEXT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11792,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,11793,"ide_methods.bas");}while(r); -} -do{ -SUB_IDEGOTOLINE(_SUB_IDEINSLINE_LONG_I); -if(!qbevent)break;evnt(26070,11795,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEINSLINE_LONG_TEXTLEN=_SUB_IDEINSLINE_STRING_TEXT->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11797,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_IDET,qbs_add(qbs_add(qbs_add(qbs_add(qbs_left(__STRING_IDET,*__LONG_IDELI- 1 ),l2string(*_SUB_IDEINSLINE_LONG_TEXTLEN)),_SUB_IDEINSLINE_STRING_TEXT),l2string(*_SUB_IDEINSLINE_LONG_TEXTLEN)),qbs_right(__STRING_IDET,__STRING_IDET->len-*__LONG_IDELI+ 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11798,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEN=*__LONG_IDEN+ 1 ; -if(!qbevent)break;evnt(26070,11799,"ide_methods.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free201.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -qbs* FUNC_IDEINPUTBOX(qbs*_FUNC_IDEINPUTBOX_STRING_TITLE,qbs*_FUNC_IDEINPUTBOX_STRING_CAPTION,qbs*_FUNC_IDEINPUTBOX_STRING_INITIALVALUE,qbs*_FUNC_IDEINPUTBOX_STRING_VALIDINPUT,int32*_FUNC_IDEINPUTBOX_LONG_BOXWIDTH,int32*_FUNC_IDEINPUTBOX_LONG_MAXLENGTH,int32*_FUNC_IDEINPUTBOX_LONG_OK){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data202.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -sub_pcopy( 0 , 2 ); -if(!qbevent)break;evnt(26070,11806,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 0 , 1 ); -if(!qbevent)break;evnt(26070,11807,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,11808,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEINPUTBOX_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(26070,11809,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(26070,11810,"ide_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26070,11780,"ide_methods.bas");}while(r); +S_49045:; +fornext_value5408=*__LONG_IDEN+ 1 ; +fornext_finalvalue5408=*_SUB_IDEINSLINE_LONG_I; +fornext_step5408= -1 ; +if (fornext_step5408<0) fornext_step_negative5408=1; else fornext_step_negative5408=0; +if (new_error) goto fornext_error5408; +goto fornext_entrylabel5408; +while(1){ +fornext_value5408=fornext_step5408+(*_SUB_IDEINSLINE_LONG_B); +fornext_entrylabel5408: +*_SUB_IDEINSLINE_LONG_B=fornext_value5408; +if (fornext_step_negative5408){ +if (fornext_value5408fornext_finalvalue5408) break; +} +fornext_error5408:; +if(qbevent){evnt(26070,11781,"ide_methods.bas");if(r)goto S_49045;} +do{ +swap_8(&((int8*)(__ARRAY_BYTE_IDESKIPLINES[0]))[array_check((*_SUB_IDEINSLINE_LONG_B)-__ARRAY_BYTE_IDESKIPLINES[4],__ARRAY_BYTE_IDESKIPLINES[5])],&((int8*)(__ARRAY_BYTE_IDESKIPLINES[0]))[array_check((*_SUB_IDEINSLINE_LONG_B- 1 )-__ARRAY_BYTE_IDESKIPLINES[4],__ARRAY_BYTE_IDESKIPLINES[5])]); +if(!qbevent)break;evnt(26070,11782,"ide_methods.bas");}while(r); +fornext_continue_5407:; +} +fornext_exit_5407:; +do{ +tmp_long=array_check((*_SUB_IDEINSLINE_LONG_I)-__ARRAY_BYTE_IDESKIPLINES[4],__ARRAY_BYTE_IDESKIPLINES[5]); +if (!new_error) ((int8*)(__ARRAY_BYTE_IDESKIPLINES[0]))[tmp_long]= 0 ; +if(!qbevent)break;evnt(26070,11784,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_IDEINSLINE_STRING_TEXT,qbs_rtrim(_SUB_IDEINSLINE_STRING_TEXT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11787,"ide_methods.bas");}while(r); +S_49051:; +if ((-(*_SUB_IDEINSLINE_LONG_I== -1 ))||new_error){ +if(qbevent){evnt(26070,11789,"ide_methods.bas");if(r)goto S_49051;} +do{ +*_SUB_IDEINSLINE_LONG_I=*__LONG_IDEL; +if(!qbevent)break;evnt(26070,11789,"ide_methods.bas");}while(r); +} +S_49054:; +if ((-(*_SUB_IDEINSLINE_LONG_I>*__LONG_IDEN))||new_error){ +if(qbevent){evnt(26070,11791,"ide_methods.bas");if(r)goto S_49054;} +do{ +SUB_IDESETLINE(_SUB_IDEINSLINE_LONG_I,_SUB_IDEINSLINE_STRING_TEXT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11792,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,11793,"ide_methods.bas");}while(r); +} +do{ +SUB_IDEGOTOLINE(_SUB_IDEINSLINE_LONG_I); +if(!qbevent)break;evnt(26070,11795,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEINSLINE_LONG_TEXTLEN=_SUB_IDEINSLINE_STRING_TEXT->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11797,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_IDET,qbs_add(qbs_add(qbs_add(qbs_add(qbs_left(__STRING_IDET,*__LONG_IDELI- 1 ),l2string(*_SUB_IDEINSLINE_LONG_TEXTLEN)),_SUB_IDEINSLINE_STRING_TEXT),l2string(*_SUB_IDEINSLINE_LONG_TEXTLEN)),qbs_right(__STRING_IDET,__STRING_IDET->len-*__LONG_IDELI+ 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11798,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEN=*__LONG_IDEN+ 1 ; +if(!qbevent)break;evnt(26070,11799,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free201.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +qbs* FUNC_IDEINPUTBOX(qbs*_FUNC_IDEINPUTBOX_STRING_TITLE,qbs*_FUNC_IDEINPUTBOX_STRING_CAPTION,qbs*_FUNC_IDEINPUTBOX_STRING_INITIALVALUE,qbs*_FUNC_IDEINPUTBOX_STRING_VALIDINPUT,int32*_FUNC_IDEINPUTBOX_LONG_BOXWIDTH,int32*_FUNC_IDEINPUTBOX_LONG_MAXLENGTH,int32*_FUNC_IDEINPUTBOX_LONG_OK){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data202.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +sub_pcopy( 0 , 2 ); +if(!qbevent)break;evnt(26070,11806,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 0 , 1 ); +if(!qbevent)break;evnt(26070,11807,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,11808,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEINPUTBOX_LONG_FOCUS= 1 ; +if(!qbevent)break;evnt(26070,11809,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26070,11810,"ide_methods.bas");}while(r); +do{ if (_FUNC_IDEINPUTBOX_ARRAY_UDT_O[2]&2){ error(10); @@ -164560,867 +164560,867 @@ if (!_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0]) error(257); } _FUNC_IDEINPUTBOX_ARRAY_UDT_O[2]|=1; } -} -if(!qbevent)break;evnt(26070,11811,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(26070,11812,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEINPUTBOX_STRING1_SEP,func_chr( 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11813,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEINPUTBOX_LONG_I= 0 ; -if(!qbevent)break;evnt(26070,11818,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEINPUTBOX_LONG_OK= 0 ; -if(!qbevent)break;evnt(26070,11819,"ide_methods.bas");}while(r); -do{ -SUB_IDEPAR((void*)( ((char*)(_FUNC_IDEINPUTBOX_UDT_P)) + (0) ),_FUNC_IDEINPUTBOX_LONG_BOXWIDTH,&(pass5415= 5 ),_FUNC_IDEINPUTBOX_STRING_TITLE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11821,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEINPUTBOX_LONG_I=*_FUNC_IDEINPUTBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,11823,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEINPUTBOX_LONG_PREVFOCUS= 1 ; -if(!qbevent)break;evnt(26070,11824,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEINPUTBOX_LONG_I)-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89+36))= 1 ; -if(!qbevent)break;evnt(26070,11825,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEINPUTBOX_LONG_I)-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89+24))= 2 ; -if(!qbevent)break;evnt(26070,11826,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEINPUTBOX_LONG_I)-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(_FUNC_IDEINPUTBOX_STRING_CAPTION); -if(!qbevent)break;evnt(26070,11827,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEINPUTBOX_LONG_I)-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDEINPUTBOX_STRING_INITIALVALUE); -if(!qbevent)break;evnt(26070,11828,"ide_methods.bas");}while(r); -S_49079:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDEINPUTBOX_STRING_INITIALVALUE->len> 0 )))||new_error){ -if(qbevent){evnt(26070,11829,"ide_methods.bas");if(r)goto S_49079;} -do{ -*(int8*)(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEINPUTBOX_LONG_I)-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89+76))= -1 ; -if(!qbevent)break;evnt(26070,11829,"ide_methods.bas");}while(r); -} -do{ -*(int32*)(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEINPUTBOX_LONG_I)-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89+77))= 0 ; -if(!qbevent)break;evnt(26070,11830,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEINPUTBOX_LONG_I)-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89+81))=_FUNC_IDEINPUTBOX_STRING_INITIALVALUE->len; -if(!qbevent)break;evnt(26070,11831,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEINPUTBOX_LONG_I=*_FUNC_IDEINPUTBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,11833,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEINPUTBOX_LONG_I)-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89+36))= 3 ; -if(!qbevent)break;evnt(26070,11834,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEINPUTBOX_LONG_I)-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89+24))= 5 ; -if(!qbevent)break;evnt(26070,11835,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEINPUTBOX_LONG_I)-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_new_txt_len("#OK",3),_FUNC_IDEINPUTBOX_STRING1_SEP),qbs_new_txt_len("#Cancel",7))); -if(!qbevent)break;evnt(26070,11836,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEINPUTBOX_LONG_I)-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89+48))= 1 ; -if(!qbevent)break;evnt(26070,11837,"ide_methods.bas");}while(r); -S_49089:; -fornext_value5419= 1 ; -fornext_finalvalue5419= 100 ; -fornext_step5419= 1 ; -if (fornext_step5419<0) fornext_step_negative5419=1; else fornext_step_negative5419=0; -if (new_error) goto fornext_error5419; -goto fornext_entrylabel5419; -while(1){ -fornext_value5419=fornext_step5419+(*_FUNC_IDEINPUTBOX_LONG_I); -fornext_entrylabel5419: -*_FUNC_IDEINPUTBOX_LONG_I=fornext_value5419; -if (fornext_step_negative5419){ -if (fornext_value5419fornext_finalvalue5419) break; -} -fornext_error5419:; -if(qbevent){evnt(26070,11841,"ide_methods.bas");if(r)goto S_49089;} -do{ -memcpy(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEINPUTBOX_LONG_I)-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89)+ 0,((char*)_FUNC_IDEINPUTBOX_UDT_P)+(0)+ 0, 20); -if(!qbevent)break;evnt(26070,11841,"ide_methods.bas");}while(r); -fornext_continue_5418:; -} -fornext_exit_5418:; -S_49092:; -do{ -if(qbevent){evnt(26070,11844,"ide_methods.bas");if(r)goto S_49092;} -do{ -SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDEINPUTBOX_UDT_P)) + (0) )); -if(!qbevent)break;evnt(26070,11848,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEINPUTBOX_LONG_F= 1 ; -if(!qbevent)break;evnt(26070,11849,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEINPUTBOX_LONG_CX= 0 ; -if(!qbevent)break;evnt(26070,11849,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEINPUTBOX_LONG_CY= 0 ; -if(!qbevent)break;evnt(26070,11849,"ide_methods.bas");}while(r); -S_49097:; -fornext_value5422= 1 ; -fornext_finalvalue5422= 100 ; -fornext_step5422= 1 ; -if (fornext_step5422<0) fornext_step_negative5422=1; else fornext_step_negative5422=0; -if (new_error) goto fornext_error5422; -goto fornext_entrylabel5422; -while(1){ -fornext_value5422=fornext_step5422+(*_FUNC_IDEINPUTBOX_LONG_I); -fornext_entrylabel5422: -*_FUNC_IDEINPUTBOX_LONG_I=fornext_value5422; -if (fornext_step_negative5422){ -if (fornext_value5422fornext_finalvalue5422) break; -} -fornext_error5422:; -if(qbevent){evnt(26070,11850,"ide_methods.bas");if(r)goto S_49097;} -S_49098:; -if ((*(int32*)(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEINPUTBOX_LONG_I)-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89+36)))||new_error){ -if(qbevent){evnt(26070,11851,"ide_methods.bas");if(r)goto S_49098;} -do{ -*(int32*)(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEINPUTBOX_LONG_I)-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89+60))=*_FUNC_IDEINPUTBOX_LONG_FOCUS-*_FUNC_IDEINPUTBOX_LONG_F; -if(!qbevent)break;evnt(26070,11854,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEINPUTBOX_LONG_I)-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89+52))= 0 ; -if(!qbevent)break;evnt(26070,11855,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEINPUTBOX_LONG_I)-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89+56))= 0 ; -if(!qbevent)break;evnt(26070,11855,"ide_methods.bas");}while(r); -do{ -SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEINPUTBOX_LONG_I)-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDEINPUTBOX_LONG_F); -if(!qbevent)break;evnt(26070,11856,"ide_methods.bas");}while(r); -S_49103:; -if ((*(int32*)(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEINPUTBOX_LONG_I)-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89+52)))||new_error){ -if(qbevent){evnt(26070,11857,"ide_methods.bas");if(r)goto S_49103;} -do{ -*_FUNC_IDEINPUTBOX_LONG_CX=*(int32*)(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEINPUTBOX_LONG_I)-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89+52)); -if(!qbevent)break;evnt(26070,11857,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEINPUTBOX_LONG_CY=*(int32*)(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEINPUTBOX_LONG_I)-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89+56)); -if(!qbevent)break;evnt(26070,11857,"ide_methods.bas");}while(r); -} -} -fornext_continue_5421:; -} -fornext_exit_5421:; -do{ -*_FUNC_IDEINPUTBOX_LONG_LASTFOCUS=*_FUNC_IDEINPUTBOX_LONG_F- 1 ; -if(!qbevent)break;evnt(26070,11860,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 1 , 0 ); -if(!qbevent)break;evnt(26070,11867,"ide_methods.bas");}while(r); -S_49111:; -if ((*_FUNC_IDEINPUTBOX_LONG_CX)||new_error){ -if(qbevent){evnt(26070,11868,"ide_methods.bas");if(r)goto S_49111;} -do{ -qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,11868,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*_FUNC_IDEINPUTBOX_LONG_CY,*_FUNC_IDEINPUTBOX_LONG_CX, 1 ,NULL,NULL,7); -if(!qbevent)break;evnt(26070,11868,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,11868,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEINPUTBOX_LONG_CHANGE= 0 ; -if(!qbevent)break;evnt(26070,11871,"ide_methods.bas");}while(r); -S_49117:; -do{ -if(qbevent){evnt(26070,11872,"ide_methods.bas");if(r)goto S_49117;} -do{ -SUB_GETINPUT(); -if(!qbevent)break;evnt(26070,11873,"ide_methods.bas");}while(r); -S_49119:; -if ((*__LONG_MWHEEL)||new_error){ -if(qbevent){evnt(26070,11874,"ide_methods.bas");if(r)goto S_49119;} -do{ -*_FUNC_IDEINPUTBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,11874,"ide_methods.bas");}while(r); -} -S_49122:; -if ((*__LONG_KB)||new_error){ -if(qbevent){evnt(26070,11875,"ide_methods.bas");if(r)goto S_49122;} -do{ -*_FUNC_IDEINPUTBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,11875,"ide_methods.bas");}while(r); -} -S_49125:; -if ((*__LONG_MCLICK)||new_error){ -if(qbevent){evnt(26070,11876,"ide_methods.bas");if(r)goto S_49125;} -do{ -*_FUNC_IDEINPUTBOX_LONG_MOUSEDOWN= 1 ; -if(!qbevent)break;evnt(26070,11876,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEINPUTBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,11876,"ide_methods.bas");}while(r); -} -S_49129:; -if ((*__LONG_MRELEASE)||new_error){ -if(qbevent){evnt(26070,11877,"ide_methods.bas");if(r)goto S_49129;} -do{ -*_FUNC_IDEINPUTBOX_LONG_MOUSEUP= 1 ; -if(!qbevent)break;evnt(26070,11877,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEINPUTBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,11877,"ide_methods.bas");}while(r); -} -S_49133:; -if ((*__LONG_MB)||new_error){ -if(qbevent){evnt(26070,11878,"ide_methods.bas");if(r)goto S_49133;} -do{ -*_FUNC_IDEINPUTBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,11878,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEINPUTBOX_LONG_ALT=*__LONG_KALT; -if(!qbevent)break;evnt(26070,11879,"ide_methods.bas");}while(r); -S_49137:; -if ((-(*_FUNC_IDEINPUTBOX_LONG_ALT!=*_FUNC_IDEINPUTBOX_LONG_OLDALT))||new_error){ -if(qbevent){evnt(26070,11879,"ide_methods.bas");if(r)goto S_49137;} -do{ -*_FUNC_IDEINPUTBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,11879,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEINPUTBOX_LONG_OLDALT=*_FUNC_IDEINPUTBOX_LONG_ALT; -if(!qbevent)break;evnt(26070,11880,"ide_methods.bas");}while(r); -do{ -sub__limit( 100 ); -if(!qbevent)break;evnt(26070,11881,"ide_methods.bas");}while(r); -S_49142:; -dl_continue_5423:; -}while((!(*_FUNC_IDEINPUTBOX_LONG_CHANGE))&&(!new_error)); -dl_exit_5423:; -if(qbevent){evnt(26070,11882,"ide_methods.bas");if(r)goto S_49142;} -S_49143:; -if ((*_FUNC_IDEINPUTBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(26070,11883,"ide_methods.bas");if(r)goto S_49143;} -do{ -*__LONG_IDEHL= 1 ; -if(!qbevent)break;evnt(26070,11883,"ide_methods.bas");}while(r); -}else{ -do{ -*__LONG_IDEHL= 0 ; -if(!qbevent)break;evnt(26070,11883,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDEINPUTBOX_STRING_ALTLETTER,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11885,"ide_methods.bas");}while(r); -S_49149:; -if ((*_FUNC_IDEINPUTBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(26070,11886,"ide_methods.bas");if(r)goto S_49149;} -S_49150:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ -if(qbevent){evnt(26070,11887,"ide_methods.bas");if(r)goto S_49150;} -do{ -*_FUNC_IDEINPUTBOX_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11888,"ide_methods.bas");}while(r); -S_49152:; -if (((-(*_FUNC_IDEINPUTBOX_LONG_K>= 65 ))&(-(*_FUNC_IDEINPUTBOX_LONG_K<= 90 )))||new_error){ -if(qbevent){evnt(26070,11889,"ide_methods.bas");if(r)goto S_49152;} -do{ -qbs_set(_FUNC_IDEINPUTBOX_STRING_ALTLETTER,func_chr(*_FUNC_IDEINPUTBOX_LONG_K)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11889,"ide_methods.bas");}while(r); -} -} -} -do{ -qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,11892,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); -if(!qbevent)break;evnt(26070,11892,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,11892,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEINPUTBOX_LONG_INFO= 0 ; -if(!qbevent)break;evnt(26070,11896,"ide_methods.bas");}while(r); -S_49161:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,11897,"ide_methods.bas");if(r)goto S_49161;} -do{ -qbs_set(__STRING_K,func_chr( 255 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11897,"ide_methods.bas");}while(r); -} -S_49164:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ -if(qbevent){evnt(26070,11898,"ide_methods.bas");if(r)goto S_49164;} -do{ -*_FUNC_IDEINPUTBOX_LONG_FOCUS=*_FUNC_IDEINPUTBOX_LONG_FOCUS+ 1 ; -if(!qbevent)break;evnt(26070,11898,"ide_methods.bas");}while(r); -} -S_49167:; -if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||new_error){ -if(qbevent){evnt(26070,11899,"ide_methods.bas");if(r)goto S_49167;} -do{ -*_FUNC_IDEINPUTBOX_LONG_FOCUS=*_FUNC_IDEINPUTBOX_LONG_FOCUS- 1 ; -if(!qbevent)break;evnt(26070,11899,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_K,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11899,"ide_methods.bas");}while(r); -} -S_49171:; -if ((-(*_FUNC_IDEINPUTBOX_LONG_FOCUS< 1 ))||new_error){ -if(qbevent){evnt(26070,11900,"ide_methods.bas");if(r)goto S_49171;} -do{ -*_FUNC_IDEINPUTBOX_LONG_FOCUS=*_FUNC_IDEINPUTBOX_LONG_LASTFOCUS; -if(!qbevent)break;evnt(26070,11900,"ide_methods.bas");}while(r); -} -S_49174:; -if ((-(*_FUNC_IDEINPUTBOX_LONG_FOCUS>*_FUNC_IDEINPUTBOX_LONG_LASTFOCUS))||new_error){ -if(qbevent){evnt(26070,11901,"ide_methods.bas");if(r)goto S_49174;} -do{ -*_FUNC_IDEINPUTBOX_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(26070,11901,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEINPUTBOX_LONG_F= 1 ; -if(!qbevent)break;evnt(26070,11902,"ide_methods.bas");}while(r); -S_49178:; -fornext_value5426= 1 ; -fornext_finalvalue5426= 100 ; -fornext_step5426= 1 ; -if (fornext_step5426<0) fornext_step_negative5426=1; else fornext_step_negative5426=0; -if (new_error) goto fornext_error5426; -goto fornext_entrylabel5426; -while(1){ -fornext_value5426=fornext_step5426+(*_FUNC_IDEINPUTBOX_LONG_I); -fornext_entrylabel5426: -*_FUNC_IDEINPUTBOX_LONG_I=fornext_value5426; -if (fornext_step_negative5426){ -if (fornext_value5426fornext_finalvalue5426) break; -} -fornext_error5426:; -if(qbevent){evnt(26070,11903,"ide_methods.bas");if(r)goto S_49178;} -do{ -*_FUNC_IDEINPUTBOX_LONG_T=*(int32*)(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEINPUTBOX_LONG_I)-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89+36)); -if(!qbevent)break;evnt(26070,11904,"ide_methods.bas");}while(r); -S_49180:; -if ((*_FUNC_IDEINPUTBOX_LONG_T)||new_error){ -if(qbevent){evnt(26070,11905,"ide_methods.bas");if(r)goto S_49180;} -do{ -*_FUNC_IDEINPUTBOX_LONG_FOCUSOFFSET=*_FUNC_IDEINPUTBOX_LONG_FOCUS-*_FUNC_IDEINPUTBOX_LONG_F; -if(!qbevent)break;evnt(26070,11906,"ide_methods.bas");}while(r); -do{ -SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEINPUTBOX_LONG_I)-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDEINPUTBOX_LONG_FOCUS,_FUNC_IDEINPUTBOX_LONG_F,_FUNC_IDEINPUTBOX_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDEINPUTBOX_STRING_ALTLETTER,__LONG_MB,_FUNC_IDEINPUTBOX_LONG_MOUSEDOWN,_FUNC_IDEINPUTBOX_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDEINPUTBOX_LONG_INFO,__LONG_MWHEEL); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11907,"ide_methods.bas");}while(r); -} -fornext_continue_5425:; -} -fornext_exit_5425:; -S_49185:; -if ((-(*_FUNC_IDEINPUTBOX_LONG_FOCUS!=*_FUNC_IDEINPUTBOX_LONG_PREVFOCUS))||new_error){ -if(qbevent){evnt(26070,11913,"ide_methods.bas");if(r)goto S_49185;} -do{ -*_FUNC_IDEINPUTBOX_LONG_PREVFOCUS=*_FUNC_IDEINPUTBOX_LONG_FOCUS; -if(!qbevent)break;evnt(26070,11915,"ide_methods.bas");}while(r); -S_49187:; -if ((-(*_FUNC_IDEINPUTBOX_LONG_FOCUS== 1 ))||new_error){ -if(qbevent){evnt(26070,11916,"ide_methods.bas");if(r)goto S_49187;} -do{ -*(int32*)(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEINPUTBOX_LONG_FOCUS)-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEINPUTBOX_LONG_FOCUS)-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; -if(!qbevent)break;evnt(26070,11917,"ide_methods.bas");}while(r); -S_49189:; -if ((-(*(int32*)(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEINPUTBOX_LONG_FOCUS)-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89+81))> 0 ))||new_error){ -if(qbevent){evnt(26070,11918,"ide_methods.bas");if(r)goto S_49189;} -do{ -*(int8*)(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEINPUTBOX_LONG_FOCUS)-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89+76))= -1 ; -if(!qbevent)break;evnt(26070,11918,"ide_methods.bas");}while(r); -} -do{ -*(int32*)(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEINPUTBOX_LONG_FOCUS)-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89+77))= 0 ; -if(!qbevent)break;evnt(26070,11919,"ide_methods.bas");}while(r); -} -} -S_49195:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDEINPUTBOX_STRING_VALIDINPUT->len))||new_error){ -if(qbevent){evnt(26070,11923,"ide_methods.bas");if(r)goto S_49195;} -do{ -qbs_set(_FUNC_IDEINPUTBOX_STRING_A,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11924,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEINPUTBOX_STRING_TEMPA,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11925,"ide_methods.bas");}while(r); -S_49198:; -fornext_value5430= 1 ; -fornext_finalvalue5430=_FUNC_IDEINPUTBOX_STRING_A->len; -fornext_step5430= 1 ; -if (fornext_step5430<0) fornext_step_negative5430=1; else fornext_step_negative5430=0; -if (new_error) goto fornext_error5430; -goto fornext_entrylabel5430; -while(1){ -fornext_value5430=fornext_step5430+(*_FUNC_IDEINPUTBOX_LONG_I); -fornext_entrylabel5430: -*_FUNC_IDEINPUTBOX_LONG_I=fornext_value5430; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative5430){ -if (fornext_value5430fornext_finalvalue5430) break; -} -fornext_error5430:; -if(qbevent){evnt(26070,11926,"ide_methods.bas");if(r)goto S_49198;} -S_49199:; -if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_FUNC_IDEINPUTBOX_STRING_VALIDINPUT,func_mid(_FUNC_IDEINPUTBOX_STRING_A,*_FUNC_IDEINPUTBOX_LONG_I, 1 ,0|1),0)> 0 )))||new_error){ -if(qbevent){evnt(26070,11927,"ide_methods.bas");if(r)goto S_49199;} -do{ -qbs_set(_FUNC_IDEINPUTBOX_STRING_TEMPA,qbs_add(_FUNC_IDEINPUTBOX_STRING_TEMPA,func_mid(_FUNC_IDEINPUTBOX_STRING_A,*_FUNC_IDEINPUTBOX_LONG_I, 1 ,0|1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11928,"ide_methods.bas");}while(r); -} -fornext_continue_5429:; -} -fornext_exit_5429:; -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDEINPUTBOX_STRING_TEMPA); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11931,"ide_methods.bas");}while(r); -} -S_49205:; -if ((*_FUNC_IDEINPUTBOX_LONG_MAXLENGTH)||new_error){ -if(qbevent){evnt(26070,11934,"ide_methods.bas");if(r)goto S_49205;} -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])),*_FUNC_IDEINPUTBOX_LONG_MAXLENGTH)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11935,"ide_methods.bas");}while(r); -} -S_49208:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 27 )))|(((-(*_FUNC_IDEINPUTBOX_LONG_FOCUS== 3 ))&(-(*_FUNC_IDEINPUTBOX_LONG_INFO!= 0 ))))))||new_error){ -if(qbevent){evnt(26070,11938,"ide_methods.bas");if(r)goto S_49208;} -do{ -SUB_CLEARMOUSE(); -if(!qbevent)break;evnt(26070,11939,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,11940,"ide_methods.bas");}while(r); -} -S_49212:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 13 )))|(((-(*_FUNC_IDEINPUTBOX_LONG_FOCUS== 2 ))&(-(*_FUNC_IDEINPUTBOX_LONG_INFO!= 0 ))))))||new_error){ -if(qbevent){evnt(26070,11943,"ide_methods.bas");if(r)goto S_49212;} -do{ -qbs_set(_FUNC_IDEINPUTBOX_STRING_IDEINPUTBOX,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11944,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEINPUTBOX_LONG_OK= -1 ; -if(!qbevent)break;evnt(26070,11945,"ide_methods.bas");}while(r); -do{ -SUB_CLEARMOUSE(); -if(!qbevent)break;evnt(26070,11946,"ide_methods.bas");}while(r); -do{ -sub__keyclear(NULL,0); -if(!qbevent)break;evnt(26070,11947,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,11948,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEINPUTBOX_LONG_MOUSEDOWN= 0 ; -if(!qbevent)break;evnt(26070,11952,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEINPUTBOX_LONG_MOUSEUP= 0 ; -if(!qbevent)break;evnt(26070,11953,"ide_methods.bas");}while(r); -dl_continue_5420:; -}while(1); -dl_exit_5420:; -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free202.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_IDEINPUTBOX_STRING_IDEINPUTBOX);return _FUNC_IDEINPUTBOX_STRING_IDEINPUTBOX; -} -void SUB_IDENEWSF(qbs*_SUB_IDENEWSF_STRING_SF){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data203.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -S_49222:; -if ((*__LONG_IDESELECT)||new_error){ -if(qbevent){evnt(26070,11960,"ide_methods.bas");if(r)goto S_49222;} -S_49223:; -if ((-(*__LONG_IDESELECTY1==*__LONG_IDECY))||new_error){ -if(qbevent){evnt(26070,11961,"ide_methods.bas");if(r)goto S_49223;} -do{ -qbs_set(_SUB_IDENEWSF_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11962,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_IDENEWSF_STRING_A2,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11963,"ide_methods.bas");}while(r); -do{ -*_SUB_IDENEWSF_LONG_SX1=*__LONG_IDESELECTX1; -if(!qbevent)break;evnt(26070,11964,"ide_methods.bas");}while(r); -do{ -*_SUB_IDENEWSF_LONG_SX2=*__LONG_IDECX; -if(!qbevent)break;evnt(26070,11964,"ide_methods.bas");}while(r); -S_49228:; -if ((-(*_SUB_IDENEWSF_LONG_SX2<*_SUB_IDENEWSF_LONG_SX1))||new_error){ -if(qbevent){evnt(26070,11965,"ide_methods.bas");if(r)goto S_49228;} -do{ -swap_32(&*_SUB_IDENEWSF_LONG_SX1,&*_SUB_IDENEWSF_LONG_SX2); -if(!qbevent)break;evnt(26070,11965,"ide_methods.bas");}while(r); -} -S_49231:; -fornext_value5434=*_SUB_IDENEWSF_LONG_SX1; -fornext_finalvalue5434=*_SUB_IDENEWSF_LONG_SX2- 1 ; -fornext_step5434= 1 ; -if (fornext_step5434<0) fornext_step_negative5434=1; else fornext_step_negative5434=0; -if (new_error) goto fornext_error5434; -goto fornext_entrylabel5434; -while(1){ -fornext_value5434=fornext_step5434+(*_SUB_IDENEWSF_LONG_X); -fornext_entrylabel5434: -*_SUB_IDENEWSF_LONG_X=fornext_value5434; -if (fornext_step_negative5434){ -if (fornext_value5434fornext_finalvalue5434) break; -} -fornext_error5434:; -if(qbevent){evnt(26070,11966,"ide_methods.bas");if(r)goto S_49231;} -S_49232:; -if ((qbs_cleanup(qbs_tmp_base,-(*_SUB_IDENEWSF_LONG_X<=_SUB_IDENEWSF_STRING_A->len)))||new_error){ -if(qbevent){evnt(26070,11967,"ide_methods.bas");if(r)goto S_49232;} -do{ -qbs_set(_SUB_IDENEWSF_STRING_A2,qbs_add(_SUB_IDENEWSF_STRING_A2,func_mid(_SUB_IDENEWSF_STRING_A,*_SUB_IDENEWSF_LONG_X, 1 ,0|1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11967,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_SUB_IDENEWSF_STRING_A2,qbs_add(_SUB_IDENEWSF_STRING_A2,qbs_new_txt_len(" ",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11967,"ide_methods.bas");}while(r); -} -fornext_continue_5433:; -} -fornext_exit_5433:; -} -} -do{ -qbs_set(_SUB_IDENEWSF_STRING_NEWSF,FUNC_IDEINPUTBOX(qbs_add(qbs_new_txt_len("New ",4),_SUB_IDENEWSF_STRING_SF),qbs_new_txt_len("#Name",5),_SUB_IDENEWSF_STRING_A2,qbs_new_txt_len("",0),&(pass5436= 60 ),&(pass5437= 40 ),&(pass5438= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11972,"ide_methods.bas");}while(r); -S_49241:; -if ((qbs_cleanup(qbs_tmp_base,_SUB_IDENEWSF_STRING_NEWSF->len))||new_error){ -if(qbevent){evnt(26070,11974,"ide_methods.bas");if(r)goto S_49241;} -do{ -*_SUB_IDENEWSF_LONG_Y=*__LONG_IDEN; -if(!qbevent)break;evnt(26070,11975,"ide_methods.bas");}while(r); -do{ -*_SUB_IDENEWSF_LONG_Y=*_SUB_IDENEWSF_LONG_Y+ 1 ; -if(!qbevent)break;evnt(26070,11976,"ide_methods.bas");}while(r); -do{ -SUB_IDESETLINE(_SUB_IDENEWSF_LONG_Y,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11976,"ide_methods.bas");}while(r); -do{ -*_SUB_IDENEWSF_LONG_Y=*_SUB_IDENEWSF_LONG_Y+ 1 ; -if(!qbevent)break;evnt(26070,11977,"ide_methods.bas");}while(r); -do{ -SUB_IDESETLINE(_SUB_IDENEWSF_LONG_Y,qbs_add(qbs_add(_SUB_IDENEWSF_STRING_SF,qbs_new_txt_len(" ",1)),_SUB_IDENEWSF_STRING_NEWSF)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11977,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESY=*_SUB_IDENEWSF_LONG_Y; -if(!qbevent)break;evnt(26070,11978,"ide_methods.bas");}while(r); -do{ -*_SUB_IDENEWSF_LONG_Y=*_SUB_IDENEWSF_LONG_Y+ 1 ; -if(!qbevent)break;evnt(26070,11979,"ide_methods.bas");}while(r); -do{ -SUB_IDESETLINE(_SUB_IDENEWSF_LONG_Y,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11979,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECY=*_SUB_IDENEWSF_LONG_Y; -if(!qbevent)break;evnt(26070,11980,"ide_methods.bas");}while(r); -do{ -*_SUB_IDENEWSF_LONG_Y=*_SUB_IDENEWSF_LONG_Y+ 1 ; -if(!qbevent)break;evnt(26070,11981,"ide_methods.bas");}while(r); -do{ -SUB_IDESETLINE(_SUB_IDENEWSF_LONG_Y,qbs_add(qbs_new_txt_len("END ",4),_SUB_IDENEWSF_STRING_SF)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11981,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECX= 1 ; -if(!qbevent)break;evnt(26070,11982,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESX= 1 ; -if(!qbevent)break;evnt(26070,11982,"ide_methods.bas");}while(r); -do{ -*__INTEGER_IDECHANGEMADE= 1 ; -if(!qbevent)break;evnt(26070,11983,"ide_methods.bas");}while(r); -do{ -*__BYTE_STARTPAUSEDPENDING= 0 ; -if(!qbevent)break;evnt(26070,11984,"ide_methods.bas");}while(r); -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free203.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -qbs* FUNC_IDENEWFOLDER(qbs*_FUNC_IDENEWFOLDER_STRING_THISPATH){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data204.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -qbs_set(_FUNC_IDENEWFOLDER_STRING_NEWFOLDER,FUNC_IDEINPUTBOX(qbs_new_txt_len("New Folder",10),qbs_new_txt_len("#Name",5),qbs_new_txt_len("",0),qbs_new_txt_len("",0),&(pass5441= 60 ),&(pass5442= 0 ),&(pass5443= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11989,"ide_methods.bas");}while(r); -S_49259:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDENEWFOLDER_STRING_NEWFOLDER->len))||new_error){ -if(qbevent){evnt(26070,11991,"ide_methods.bas");if(r)goto S_49259;} -S_49260:; -if ((qbs_cleanup(qbs_tmp_base,func__direxists(qbs_add(qbs_add(_FUNC_IDENEWFOLDER_STRING_THISPATH,__STRING1_IDEPATHSEP),_FUNC_IDENEWFOLDER_STRING_NEWFOLDER))))||new_error){ -if(qbevent){evnt(26070,11992,"ide_methods.bas");if(r)goto S_49260;} -do{ -qbs_set(_FUNC_IDENEWFOLDER_STRING_IDENEWFOLDER,_FUNC_IDENEWFOLDER_STRING_NEWFOLDER); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11993,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,11994,"ide_methods.bas");}while(r); -} -do{ -*__LONG_IDEERROR= 5 ; -if(!qbevent)break;evnt(26070,11996,"ide_methods.bas");}while(r); -do{ -sub_mkdir(qbs_add(qbs_add(_FUNC_IDENEWFOLDER_STRING_THISPATH,__STRING1_IDEPATHSEP),_FUNC_IDENEWFOLDER_STRING_NEWFOLDER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11997,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEERROR= 1 ; -if(!qbevent)break;evnt(26070,11998,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDENEWFOLDER_STRING_IDENEWFOLDER,_FUNC_IDENEWFOLDER_STRING_NEWFOLDER); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11999,"ide_methods.bas");}while(r); -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free204.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_IDENEWFOLDER_STRING_IDENEWFOLDER);return _FUNC_IDENEWFOLDER_STRING_IDENEWFOLDER; -} -int32 FUNC_IDENEWTXT(qbs*_FUNC_IDENEWTXT_STRING_A){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data205.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -*__INTEGER_IDETXTLAST=*__INTEGER_IDETXTLAST+ 1 ; -if(!qbevent)break;evnt(26070,12005,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*__INTEGER_IDETXTLAST)-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDENEWTXT_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12006,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDENEWTXT_LONG_IDENEWTXT=*__INTEGER_IDETXTLAST; -if(!qbevent)break;evnt(26070,12007,"ide_methods.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free205.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -return *_FUNC_IDENEWTXT_LONG_IDENEWTXT; -} -void SUB_IDENOMATCH(int8*_SUB_IDENOMATCH_BYTE_SHOWFLAGS){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data206.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -qbs_set(_SUB_IDENOMATCH_STRING_MSG,qbs_new_txt_len("Match not found.",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12011,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_IDENOMATCH_STRING_C,qbs_new_txt_len(", ",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12012,"ide_methods.bas");}while(r); -S_49274:; -if ((*_SUB_IDENOMATCH_BYTE_SHOWFLAGS)||new_error){ -if(qbevent){evnt(26070,12013,"ide_methods.bas");if(r)goto S_49274;} -S_49275:; -if ((*__INTEGER_IDEFINDCASESENS)||new_error){ -if(qbevent){evnt(26070,12014,"ide_methods.bas");if(r)goto S_49275;} -do{ -qbs_set(_SUB_IDENOMATCH_STRING_FLAGS,qbs_add(_SUB_IDENOMATCH_STRING_FLAGS,qbs_new_txt_len("match case",10))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12014,"ide_methods.bas");}while(r); -do{ -*_SUB_IDENOMATCH_LONG_FLAGSET=*_SUB_IDENOMATCH_LONG_FLAGSET+ 1 ; -if(!qbevent)break;evnt(26070,12014,"ide_methods.bas");}while(r); -} -S_49279:; -if ((*__INTEGER_IDEFINDWHOLEWORD)||new_error){ -if(qbevent){evnt(26070,12015,"ide_methods.bas");if(r)goto S_49279;} -do{ -qbs_set(_SUB_IDENOMATCH_STRING_FLAGS,qbs_add(qbs_add(_SUB_IDENOMATCH_STRING_FLAGS,qbs_left(_SUB_IDENOMATCH_STRING_C,func_abs((int32)(*_SUB_IDENOMATCH_LONG_FLAGSET))* 2 )),qbs_new_txt_len("whole word",10))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12015,"ide_methods.bas");}while(r); -do{ -*_SUB_IDENOMATCH_LONG_FLAGSET=*_SUB_IDENOMATCH_LONG_FLAGSET+ 1 ; -if(!qbevent)break;evnt(26070,12015,"ide_methods.bas");}while(r); -} -S_49283:; -if ((*__INTEGER_IDEFINDNOCOMMENTS)||new_error){ -if(qbevent){evnt(26070,12016,"ide_methods.bas");if(r)goto S_49283;} -do{ -qbs_set(_SUB_IDENOMATCH_STRING_FLAGS,qbs_add(qbs_add(_SUB_IDENOMATCH_STRING_FLAGS,qbs_left(_SUB_IDENOMATCH_STRING_C,func_abs((int32)(*_SUB_IDENOMATCH_LONG_FLAGSET))* 2 )),qbs_new_txt_len("no comments",11))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12016,"ide_methods.bas");}while(r); -do{ -*_SUB_IDENOMATCH_LONG_FLAGSET=*_SUB_IDENOMATCH_LONG_FLAGSET+ 1 ; -if(!qbevent)break;evnt(26070,12016,"ide_methods.bas");}while(r); -} -S_49287:; -if ((*__INTEGER_IDEFINDONLYCOMMENTS)||new_error){ -if(qbevent){evnt(26070,12017,"ide_methods.bas");if(r)goto S_49287;} -do{ -qbs_set(_SUB_IDENOMATCH_STRING_FLAGS,qbs_add(qbs_add(_SUB_IDENOMATCH_STRING_FLAGS,qbs_left(_SUB_IDENOMATCH_STRING_C,func_abs((int32)(*_SUB_IDENOMATCH_LONG_FLAGSET))* 2 )),qbs_new_txt_len("only comments",13))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12017,"ide_methods.bas");}while(r); -do{ -*_SUB_IDENOMATCH_LONG_FLAGSET=*_SUB_IDENOMATCH_LONG_FLAGSET+ 1 ; -if(!qbevent)break;evnt(26070,12017,"ide_methods.bas");}while(r); -} -S_49291:; -if ((*__INTEGER_IDEFINDNOSTRINGS)||new_error){ -if(qbevent){evnt(26070,12018,"ide_methods.bas");if(r)goto S_49291;} -do{ -qbs_set(_SUB_IDENOMATCH_STRING_FLAGS,qbs_add(qbs_add(_SUB_IDENOMATCH_STRING_FLAGS,qbs_left(_SUB_IDENOMATCH_STRING_C,func_abs((int32)(*_SUB_IDENOMATCH_LONG_FLAGSET))* 2 )),qbs_new_txt_len("no strings",10))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12018,"ide_methods.bas");}while(r); -do{ -*_SUB_IDENOMATCH_LONG_FLAGSET=*_SUB_IDENOMATCH_LONG_FLAGSET+ 1 ; -if(!qbevent)break;evnt(26070,12018,"ide_methods.bas");}while(r); -} -S_49295:; -if ((*__INTEGER_IDEFINDONLYSTRINGS)||new_error){ -if(qbevent){evnt(26070,12019,"ide_methods.bas");if(r)goto S_49295;} -do{ -qbs_set(_SUB_IDENOMATCH_STRING_FLAGS,qbs_add(qbs_add(_SUB_IDENOMATCH_STRING_FLAGS,qbs_left(_SUB_IDENOMATCH_STRING_C,func_abs((int32)(*_SUB_IDENOMATCH_LONG_FLAGSET))* 2 )),qbs_new_txt_len("only strings",12))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12019,"ide_methods.bas");}while(r); -do{ -*_SUB_IDENOMATCH_LONG_FLAGSET=*_SUB_IDENOMATCH_LONG_FLAGSET+ 1 ; -if(!qbevent)break;evnt(26070,12019,"ide_methods.bas");}while(r); -} -S_49299:; -if ((-(*_SUB_IDENOMATCH_LONG_FLAGSET> 1 ))||new_error){ -if(qbevent){evnt(26070,12020,"ide_methods.bas");if(r)goto S_49299;} -do{ -qbs_set(_SUB_IDENOMATCH_STRING_PL,qbs_new_txt_len("s",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12020,"ide_methods.bas");}while(r); -} -S_49302:; -if ((*_SUB_IDENOMATCH_LONG_FLAGSET)||new_error){ -if(qbevent){evnt(26070,12021,"ide_methods.bas");if(r)goto S_49302;} -do{ -qbs_set(_SUB_IDENOMATCH_STRING_MSG,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_IDENOMATCH_STRING_MSG,qbs_new_txt_len("\\n(Flag",7)),_SUB_IDENOMATCH_STRING_PL),qbs_new_txt_len(": ",2)),_SUB_IDENOMATCH_STRING_FLAGS),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12021,"ide_methods.bas");}while(r); -} -} -do{ -*_SUB_IDENOMATCH_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Search complete",15),_SUB_IDENOMATCH_STRING_MSG,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12023,"ide_methods.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free206.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -qbs* FUNC_IDEFILEDIALOG(qbs*_FUNC_IDEFILEDIALOG_STRING_PROGRAMNAME,int8*_FUNC_IDEFILEDIALOG_BYTE_MODE){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data207.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -if(!qbevent)break;evnt(26070,12027,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 0 , 2 ); -if(!qbevent)break;evnt(26070,12030,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 0 , 1 ); -if(!qbevent)break;evnt(26070,12031,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,12032,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEFILEDIALOG_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(26070,12033,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(26070,12034,"ide_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26070,11811,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26070,11812,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEINPUTBOX_STRING1_SEP,func_chr( 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11813,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEINPUTBOX_LONG_I= 0 ; +if(!qbevent)break;evnt(26070,11818,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEINPUTBOX_LONG_OK= 0 ; +if(!qbevent)break;evnt(26070,11819,"ide_methods.bas");}while(r); +do{ +SUB_IDEPAR((void*)( ((char*)(_FUNC_IDEINPUTBOX_UDT_P)) + (0) ),_FUNC_IDEINPUTBOX_LONG_BOXWIDTH,&(pass5415= 5 ),_FUNC_IDEINPUTBOX_STRING_TITLE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11821,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEINPUTBOX_LONG_I=*_FUNC_IDEINPUTBOX_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,11823,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEINPUTBOX_LONG_PREVFOCUS= 1 ; +if(!qbevent)break;evnt(26070,11824,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEINPUTBOX_LONG_I)-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89+36))= 1 ; +if(!qbevent)break;evnt(26070,11825,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEINPUTBOX_LONG_I)-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89+24))= 2 ; +if(!qbevent)break;evnt(26070,11826,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEINPUTBOX_LONG_I)-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(_FUNC_IDEINPUTBOX_STRING_CAPTION); +if(!qbevent)break;evnt(26070,11827,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEINPUTBOX_LONG_I)-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDEINPUTBOX_STRING_INITIALVALUE); +if(!qbevent)break;evnt(26070,11828,"ide_methods.bas");}while(r); +S_49079:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDEINPUTBOX_STRING_INITIALVALUE->len> 0 )))||new_error){ +if(qbevent){evnt(26070,11829,"ide_methods.bas");if(r)goto S_49079;} +do{ +*(int8*)(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEINPUTBOX_LONG_I)-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89+76))= -1 ; +if(!qbevent)break;evnt(26070,11829,"ide_methods.bas");}while(r); +} +do{ +*(int32*)(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEINPUTBOX_LONG_I)-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89+77))= 0 ; +if(!qbevent)break;evnt(26070,11830,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEINPUTBOX_LONG_I)-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89+81))=_FUNC_IDEINPUTBOX_STRING_INITIALVALUE->len; +if(!qbevent)break;evnt(26070,11831,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEINPUTBOX_LONG_I=*_FUNC_IDEINPUTBOX_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,11833,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEINPUTBOX_LONG_I)-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89+36))= 3 ; +if(!qbevent)break;evnt(26070,11834,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEINPUTBOX_LONG_I)-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89+24))= 5 ; +if(!qbevent)break;evnt(26070,11835,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEINPUTBOX_LONG_I)-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_new_txt_len("#OK",3),_FUNC_IDEINPUTBOX_STRING1_SEP),qbs_new_txt_len("#Cancel",7))); +if(!qbevent)break;evnt(26070,11836,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEINPUTBOX_LONG_I)-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89+48))= 1 ; +if(!qbevent)break;evnt(26070,11837,"ide_methods.bas");}while(r); +S_49089:; +fornext_value5419= 1 ; +fornext_finalvalue5419= 100 ; +fornext_step5419= 1 ; +if (fornext_step5419<0) fornext_step_negative5419=1; else fornext_step_negative5419=0; +if (new_error) goto fornext_error5419; +goto fornext_entrylabel5419; +while(1){ +fornext_value5419=fornext_step5419+(*_FUNC_IDEINPUTBOX_LONG_I); +fornext_entrylabel5419: +*_FUNC_IDEINPUTBOX_LONG_I=fornext_value5419; +if (fornext_step_negative5419){ +if (fornext_value5419fornext_finalvalue5419) break; +} +fornext_error5419:; +if(qbevent){evnt(26070,11841,"ide_methods.bas");if(r)goto S_49089;} +do{ +memcpy(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEINPUTBOX_LONG_I)-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89)+ 0,((char*)_FUNC_IDEINPUTBOX_UDT_P)+(0)+ 0, 20); +if(!qbevent)break;evnt(26070,11841,"ide_methods.bas");}while(r); +fornext_continue_5418:; +} +fornext_exit_5418:; +S_49092:; +do{ +if(qbevent){evnt(26070,11844,"ide_methods.bas");if(r)goto S_49092;} +do{ +SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDEINPUTBOX_UDT_P)) + (0) )); +if(!qbevent)break;evnt(26070,11848,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEINPUTBOX_LONG_F= 1 ; +if(!qbevent)break;evnt(26070,11849,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEINPUTBOX_LONG_CX= 0 ; +if(!qbevent)break;evnt(26070,11849,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEINPUTBOX_LONG_CY= 0 ; +if(!qbevent)break;evnt(26070,11849,"ide_methods.bas");}while(r); +S_49097:; +fornext_value5422= 1 ; +fornext_finalvalue5422= 100 ; +fornext_step5422= 1 ; +if (fornext_step5422<0) fornext_step_negative5422=1; else fornext_step_negative5422=0; +if (new_error) goto fornext_error5422; +goto fornext_entrylabel5422; +while(1){ +fornext_value5422=fornext_step5422+(*_FUNC_IDEINPUTBOX_LONG_I); +fornext_entrylabel5422: +*_FUNC_IDEINPUTBOX_LONG_I=fornext_value5422; +if (fornext_step_negative5422){ +if (fornext_value5422fornext_finalvalue5422) break; +} +fornext_error5422:; +if(qbevent){evnt(26070,11850,"ide_methods.bas");if(r)goto S_49097;} +S_49098:; +if ((*(int32*)(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEINPUTBOX_LONG_I)-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89+36)))||new_error){ +if(qbevent){evnt(26070,11851,"ide_methods.bas");if(r)goto S_49098;} +do{ +*(int32*)(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEINPUTBOX_LONG_I)-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89+60))=*_FUNC_IDEINPUTBOX_LONG_FOCUS-*_FUNC_IDEINPUTBOX_LONG_F; +if(!qbevent)break;evnt(26070,11854,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEINPUTBOX_LONG_I)-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89+52))= 0 ; +if(!qbevent)break;evnt(26070,11855,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEINPUTBOX_LONG_I)-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89+56))= 0 ; +if(!qbevent)break;evnt(26070,11855,"ide_methods.bas");}while(r); +do{ +SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEINPUTBOX_LONG_I)-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDEINPUTBOX_LONG_F); +if(!qbevent)break;evnt(26070,11856,"ide_methods.bas");}while(r); +S_49103:; +if ((*(int32*)(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEINPUTBOX_LONG_I)-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89+52)))||new_error){ +if(qbevent){evnt(26070,11857,"ide_methods.bas");if(r)goto S_49103;} +do{ +*_FUNC_IDEINPUTBOX_LONG_CX=*(int32*)(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEINPUTBOX_LONG_I)-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89+52)); +if(!qbevent)break;evnt(26070,11857,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEINPUTBOX_LONG_CY=*(int32*)(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEINPUTBOX_LONG_I)-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89+56)); +if(!qbevent)break;evnt(26070,11857,"ide_methods.bas");}while(r); +} +} +fornext_continue_5421:; +} +fornext_exit_5421:; +do{ +*_FUNC_IDEINPUTBOX_LONG_LASTFOCUS=*_FUNC_IDEINPUTBOX_LONG_F- 1 ; +if(!qbevent)break;evnt(26070,11860,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 1 , 0 ); +if(!qbevent)break;evnt(26070,11867,"ide_methods.bas");}while(r); +S_49111:; +if ((*_FUNC_IDEINPUTBOX_LONG_CX)||new_error){ +if(qbevent){evnt(26070,11868,"ide_methods.bas");if(r)goto S_49111;} +do{ +qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,11868,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(*_FUNC_IDEINPUTBOX_LONG_CY,*_FUNC_IDEINPUTBOX_LONG_CX, 1 ,NULL,NULL,7); +if(!qbevent)break;evnt(26070,11868,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,11868,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEINPUTBOX_LONG_CHANGE= 0 ; +if(!qbevent)break;evnt(26070,11871,"ide_methods.bas");}while(r); +S_49117:; +do{ +if(qbevent){evnt(26070,11872,"ide_methods.bas");if(r)goto S_49117;} +do{ +SUB_GETINPUT(); +if(!qbevent)break;evnt(26070,11873,"ide_methods.bas");}while(r); +S_49119:; +if ((*__LONG_MWHEEL)||new_error){ +if(qbevent){evnt(26070,11874,"ide_methods.bas");if(r)goto S_49119;} +do{ +*_FUNC_IDEINPUTBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,11874,"ide_methods.bas");}while(r); +} +S_49122:; +if ((*__LONG_KB)||new_error){ +if(qbevent){evnt(26070,11875,"ide_methods.bas");if(r)goto S_49122;} +do{ +*_FUNC_IDEINPUTBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,11875,"ide_methods.bas");}while(r); +} +S_49125:; +if ((*__LONG_MCLICK)||new_error){ +if(qbevent){evnt(26070,11876,"ide_methods.bas");if(r)goto S_49125;} +do{ +*_FUNC_IDEINPUTBOX_LONG_MOUSEDOWN= 1 ; +if(!qbevent)break;evnt(26070,11876,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEINPUTBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,11876,"ide_methods.bas");}while(r); +} +S_49129:; +if ((*__LONG_MRELEASE)||new_error){ +if(qbevent){evnt(26070,11877,"ide_methods.bas");if(r)goto S_49129;} +do{ +*_FUNC_IDEINPUTBOX_LONG_MOUSEUP= 1 ; +if(!qbevent)break;evnt(26070,11877,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEINPUTBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,11877,"ide_methods.bas");}while(r); +} +S_49133:; +if ((*__LONG_MB)||new_error){ +if(qbevent){evnt(26070,11878,"ide_methods.bas");if(r)goto S_49133;} +do{ +*_FUNC_IDEINPUTBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,11878,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEINPUTBOX_LONG_ALT=*__LONG_KALT; +if(!qbevent)break;evnt(26070,11879,"ide_methods.bas");}while(r); +S_49137:; +if ((-(*_FUNC_IDEINPUTBOX_LONG_ALT!=*_FUNC_IDEINPUTBOX_LONG_OLDALT))||new_error){ +if(qbevent){evnt(26070,11879,"ide_methods.bas");if(r)goto S_49137;} +do{ +*_FUNC_IDEINPUTBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,11879,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEINPUTBOX_LONG_OLDALT=*_FUNC_IDEINPUTBOX_LONG_ALT; +if(!qbevent)break;evnt(26070,11880,"ide_methods.bas");}while(r); +do{ +sub__limit( 100 ); +if(!qbevent)break;evnt(26070,11881,"ide_methods.bas");}while(r); +S_49142:; +dl_continue_5423:; +}while((!(*_FUNC_IDEINPUTBOX_LONG_CHANGE))&&(!new_error)); +dl_exit_5423:; +if(qbevent){evnt(26070,11882,"ide_methods.bas");if(r)goto S_49142;} +S_49143:; +if ((*_FUNC_IDEINPUTBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ +if(qbevent){evnt(26070,11883,"ide_methods.bas");if(r)goto S_49143;} +do{ +*__LONG_IDEHL= 1 ; +if(!qbevent)break;evnt(26070,11883,"ide_methods.bas");}while(r); +}else{ +do{ +*__LONG_IDEHL= 0 ; +if(!qbevent)break;evnt(26070,11883,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDEINPUTBOX_STRING_ALTLETTER,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11885,"ide_methods.bas");}while(r); +S_49149:; +if ((*_FUNC_IDEINPUTBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ +if(qbevent){evnt(26070,11886,"ide_methods.bas");if(r)goto S_49149;} +S_49150:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ +if(qbevent){evnt(26070,11887,"ide_methods.bas");if(r)goto S_49150;} +do{ +*_FUNC_IDEINPUTBOX_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11888,"ide_methods.bas");}while(r); +S_49152:; +if (((-(*_FUNC_IDEINPUTBOX_LONG_K>= 65 ))&(-(*_FUNC_IDEINPUTBOX_LONG_K<= 90 )))||new_error){ +if(qbevent){evnt(26070,11889,"ide_methods.bas");if(r)goto S_49152;} +do{ +qbs_set(_FUNC_IDEINPUTBOX_STRING_ALTLETTER,func_chr(*_FUNC_IDEINPUTBOX_LONG_K)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11889,"ide_methods.bas");}while(r); +} +} +} +do{ +qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,11892,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); +if(!qbevent)break;evnt(26070,11892,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,11892,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEINPUTBOX_LONG_INFO= 0 ; +if(!qbevent)break;evnt(26070,11896,"ide_methods.bas");}while(r); +S_49161:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,11897,"ide_methods.bas");if(r)goto S_49161;} +do{ +qbs_set(__STRING_K,func_chr( 255 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11897,"ide_methods.bas");}while(r); +} +S_49164:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ +if(qbevent){evnt(26070,11898,"ide_methods.bas");if(r)goto S_49164;} +do{ +*_FUNC_IDEINPUTBOX_LONG_FOCUS=*_FUNC_IDEINPUTBOX_LONG_FOCUS+ 1 ; +if(!qbevent)break;evnt(26070,11898,"ide_methods.bas");}while(r); +} +S_49167:; +if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||new_error){ +if(qbevent){evnt(26070,11899,"ide_methods.bas");if(r)goto S_49167;} +do{ +*_FUNC_IDEINPUTBOX_LONG_FOCUS=*_FUNC_IDEINPUTBOX_LONG_FOCUS- 1 ; +if(!qbevent)break;evnt(26070,11899,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_K,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11899,"ide_methods.bas");}while(r); +} +S_49171:; +if ((-(*_FUNC_IDEINPUTBOX_LONG_FOCUS< 1 ))||new_error){ +if(qbevent){evnt(26070,11900,"ide_methods.bas");if(r)goto S_49171;} +do{ +*_FUNC_IDEINPUTBOX_LONG_FOCUS=*_FUNC_IDEINPUTBOX_LONG_LASTFOCUS; +if(!qbevent)break;evnt(26070,11900,"ide_methods.bas");}while(r); +} +S_49174:; +if ((-(*_FUNC_IDEINPUTBOX_LONG_FOCUS>*_FUNC_IDEINPUTBOX_LONG_LASTFOCUS))||new_error){ +if(qbevent){evnt(26070,11901,"ide_methods.bas");if(r)goto S_49174;} +do{ +*_FUNC_IDEINPUTBOX_LONG_FOCUS= 1 ; +if(!qbevent)break;evnt(26070,11901,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEINPUTBOX_LONG_F= 1 ; +if(!qbevent)break;evnt(26070,11902,"ide_methods.bas");}while(r); +S_49178:; +fornext_value5426= 1 ; +fornext_finalvalue5426= 100 ; +fornext_step5426= 1 ; +if (fornext_step5426<0) fornext_step_negative5426=1; else fornext_step_negative5426=0; +if (new_error) goto fornext_error5426; +goto fornext_entrylabel5426; +while(1){ +fornext_value5426=fornext_step5426+(*_FUNC_IDEINPUTBOX_LONG_I); +fornext_entrylabel5426: +*_FUNC_IDEINPUTBOX_LONG_I=fornext_value5426; +if (fornext_step_negative5426){ +if (fornext_value5426fornext_finalvalue5426) break; +} +fornext_error5426:; +if(qbevent){evnt(26070,11903,"ide_methods.bas");if(r)goto S_49178;} +do{ +*_FUNC_IDEINPUTBOX_LONG_T=*(int32*)(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEINPUTBOX_LONG_I)-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89+36)); +if(!qbevent)break;evnt(26070,11904,"ide_methods.bas");}while(r); +S_49180:; +if ((*_FUNC_IDEINPUTBOX_LONG_T)||new_error){ +if(qbevent){evnt(26070,11905,"ide_methods.bas");if(r)goto S_49180;} +do{ +*_FUNC_IDEINPUTBOX_LONG_FOCUSOFFSET=*_FUNC_IDEINPUTBOX_LONG_FOCUS-*_FUNC_IDEINPUTBOX_LONG_F; +if(!qbevent)break;evnt(26070,11906,"ide_methods.bas");}while(r); +do{ +SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEINPUTBOX_LONG_I)-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDEINPUTBOX_LONG_FOCUS,_FUNC_IDEINPUTBOX_LONG_F,_FUNC_IDEINPUTBOX_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDEINPUTBOX_STRING_ALTLETTER,__LONG_MB,_FUNC_IDEINPUTBOX_LONG_MOUSEDOWN,_FUNC_IDEINPUTBOX_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDEINPUTBOX_LONG_INFO,__LONG_MWHEEL); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11907,"ide_methods.bas");}while(r); +} +fornext_continue_5425:; +} +fornext_exit_5425:; +S_49185:; +if ((-(*_FUNC_IDEINPUTBOX_LONG_FOCUS!=*_FUNC_IDEINPUTBOX_LONG_PREVFOCUS))||new_error){ +if(qbevent){evnt(26070,11913,"ide_methods.bas");if(r)goto S_49185;} +do{ +*_FUNC_IDEINPUTBOX_LONG_PREVFOCUS=*_FUNC_IDEINPUTBOX_LONG_FOCUS; +if(!qbevent)break;evnt(26070,11915,"ide_methods.bas");}while(r); +S_49187:; +if ((-(*_FUNC_IDEINPUTBOX_LONG_FOCUS== 1 ))||new_error){ +if(qbevent){evnt(26070,11916,"ide_methods.bas");if(r)goto S_49187;} +do{ +*(int32*)(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEINPUTBOX_LONG_FOCUS)-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEINPUTBOX_LONG_FOCUS)-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; +if(!qbevent)break;evnt(26070,11917,"ide_methods.bas");}while(r); +S_49189:; +if ((-(*(int32*)(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEINPUTBOX_LONG_FOCUS)-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89+81))> 0 ))||new_error){ +if(qbevent){evnt(26070,11918,"ide_methods.bas");if(r)goto S_49189;} +do{ +*(int8*)(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEINPUTBOX_LONG_FOCUS)-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89+76))= -1 ; +if(!qbevent)break;evnt(26070,11918,"ide_methods.bas");}while(r); +} +do{ +*(int32*)(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEINPUTBOX_LONG_FOCUS)-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89+77))= 0 ; +if(!qbevent)break;evnt(26070,11919,"ide_methods.bas");}while(r); +} +} +S_49195:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDEINPUTBOX_STRING_VALIDINPUT->len))||new_error){ +if(qbevent){evnt(26070,11923,"ide_methods.bas");if(r)goto S_49195;} +do{ +qbs_set(_FUNC_IDEINPUTBOX_STRING_A,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11924,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEINPUTBOX_STRING_TEMPA,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11925,"ide_methods.bas");}while(r); +S_49198:; +fornext_value5430= 1 ; +fornext_finalvalue5430=_FUNC_IDEINPUTBOX_STRING_A->len; +fornext_step5430= 1 ; +if (fornext_step5430<0) fornext_step_negative5430=1; else fornext_step_negative5430=0; +if (new_error) goto fornext_error5430; +goto fornext_entrylabel5430; +while(1){ +fornext_value5430=fornext_step5430+(*_FUNC_IDEINPUTBOX_LONG_I); +fornext_entrylabel5430: +*_FUNC_IDEINPUTBOX_LONG_I=fornext_value5430; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative5430){ +if (fornext_value5430fornext_finalvalue5430) break; +} +fornext_error5430:; +if(qbevent){evnt(26070,11926,"ide_methods.bas");if(r)goto S_49198;} +S_49199:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_FUNC_IDEINPUTBOX_STRING_VALIDINPUT,func_mid(_FUNC_IDEINPUTBOX_STRING_A,*_FUNC_IDEINPUTBOX_LONG_I, 1 ,0|1),0)> 0 )))||new_error){ +if(qbevent){evnt(26070,11927,"ide_methods.bas");if(r)goto S_49199;} +do{ +qbs_set(_FUNC_IDEINPUTBOX_STRING_TEMPA,qbs_add(_FUNC_IDEINPUTBOX_STRING_TEMPA,func_mid(_FUNC_IDEINPUTBOX_STRING_A,*_FUNC_IDEINPUTBOX_LONG_I, 1 ,0|1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11928,"ide_methods.bas");}while(r); +} +fornext_continue_5429:; +} +fornext_exit_5429:; +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDEINPUTBOX_STRING_TEMPA); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11931,"ide_methods.bas");}while(r); +} +S_49205:; +if ((*_FUNC_IDEINPUTBOX_LONG_MAXLENGTH)||new_error){ +if(qbevent){evnt(26070,11934,"ide_methods.bas");if(r)goto S_49205;} +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])),*_FUNC_IDEINPUTBOX_LONG_MAXLENGTH)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11935,"ide_methods.bas");}while(r); +} +S_49208:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 27 )))|(((-(*_FUNC_IDEINPUTBOX_LONG_FOCUS== 3 ))&(-(*_FUNC_IDEINPUTBOX_LONG_INFO!= 0 ))))))||new_error){ +if(qbevent){evnt(26070,11938,"ide_methods.bas");if(r)goto S_49208;} +do{ +SUB_CLEARMOUSE(); +if(!qbevent)break;evnt(26070,11939,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,11940,"ide_methods.bas");}while(r); +} +S_49212:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 13 )))|(((-(*_FUNC_IDEINPUTBOX_LONG_FOCUS== 2 ))&(-(*_FUNC_IDEINPUTBOX_LONG_INFO!= 0 ))))))||new_error){ +if(qbevent){evnt(26070,11943,"ide_methods.bas");if(r)goto S_49212;} +do{ +qbs_set(_FUNC_IDEINPUTBOX_STRING_IDEINPUTBOX,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEINPUTBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEINPUTBOX_ARRAY_UDT_O[4],_FUNC_IDEINPUTBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11944,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEINPUTBOX_LONG_OK= -1 ; +if(!qbevent)break;evnt(26070,11945,"ide_methods.bas");}while(r); +do{ +SUB_CLEARMOUSE(); +if(!qbevent)break;evnt(26070,11946,"ide_methods.bas");}while(r); +do{ +sub__keyclear(NULL,0); +if(!qbevent)break;evnt(26070,11947,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,11948,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEINPUTBOX_LONG_MOUSEDOWN= 0 ; +if(!qbevent)break;evnt(26070,11952,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEINPUTBOX_LONG_MOUSEUP= 0 ; +if(!qbevent)break;evnt(26070,11953,"ide_methods.bas");}while(r); +dl_continue_5420:; +}while(1); +dl_exit_5420:; +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free202.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_IDEINPUTBOX_STRING_IDEINPUTBOX);return _FUNC_IDEINPUTBOX_STRING_IDEINPUTBOX; +} +void SUB_IDENEWSF(qbs*_SUB_IDENEWSF_STRING_SF){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data203.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +S_49222:; +if ((*__LONG_IDESELECT)||new_error){ +if(qbevent){evnt(26070,11960,"ide_methods.bas");if(r)goto S_49222;} +S_49223:; +if ((-(*__LONG_IDESELECTY1==*__LONG_IDECY))||new_error){ +if(qbevent){evnt(26070,11961,"ide_methods.bas");if(r)goto S_49223;} +do{ +qbs_set(_SUB_IDENEWSF_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11962,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_IDENEWSF_STRING_A2,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11963,"ide_methods.bas");}while(r); +do{ +*_SUB_IDENEWSF_LONG_SX1=*__LONG_IDESELECTX1; +if(!qbevent)break;evnt(26070,11964,"ide_methods.bas");}while(r); +do{ +*_SUB_IDENEWSF_LONG_SX2=*__LONG_IDECX; +if(!qbevent)break;evnt(26070,11964,"ide_methods.bas");}while(r); +S_49228:; +if ((-(*_SUB_IDENEWSF_LONG_SX2<*_SUB_IDENEWSF_LONG_SX1))||new_error){ +if(qbevent){evnt(26070,11965,"ide_methods.bas");if(r)goto S_49228;} +do{ +swap_32(&*_SUB_IDENEWSF_LONG_SX1,&*_SUB_IDENEWSF_LONG_SX2); +if(!qbevent)break;evnt(26070,11965,"ide_methods.bas");}while(r); +} +S_49231:; +fornext_value5434=*_SUB_IDENEWSF_LONG_SX1; +fornext_finalvalue5434=*_SUB_IDENEWSF_LONG_SX2- 1 ; +fornext_step5434= 1 ; +if (fornext_step5434<0) fornext_step_negative5434=1; else fornext_step_negative5434=0; +if (new_error) goto fornext_error5434; +goto fornext_entrylabel5434; +while(1){ +fornext_value5434=fornext_step5434+(*_SUB_IDENEWSF_LONG_X); +fornext_entrylabel5434: +*_SUB_IDENEWSF_LONG_X=fornext_value5434; +if (fornext_step_negative5434){ +if (fornext_value5434fornext_finalvalue5434) break; +} +fornext_error5434:; +if(qbevent){evnt(26070,11966,"ide_methods.bas");if(r)goto S_49231;} +S_49232:; +if ((qbs_cleanup(qbs_tmp_base,-(*_SUB_IDENEWSF_LONG_X<=_SUB_IDENEWSF_STRING_A->len)))||new_error){ +if(qbevent){evnt(26070,11967,"ide_methods.bas");if(r)goto S_49232;} +do{ +qbs_set(_SUB_IDENEWSF_STRING_A2,qbs_add(_SUB_IDENEWSF_STRING_A2,func_mid(_SUB_IDENEWSF_STRING_A,*_SUB_IDENEWSF_LONG_X, 1 ,0|1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11967,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_IDENEWSF_STRING_A2,qbs_add(_SUB_IDENEWSF_STRING_A2,qbs_new_txt_len(" ",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11967,"ide_methods.bas");}while(r); +} +fornext_continue_5433:; +} +fornext_exit_5433:; +} +} +do{ +qbs_set(_SUB_IDENEWSF_STRING_NEWSF,FUNC_IDEINPUTBOX(qbs_add(qbs_new_txt_len("New ",4),_SUB_IDENEWSF_STRING_SF),qbs_new_txt_len("#Name",5),_SUB_IDENEWSF_STRING_A2,qbs_new_txt_len("",0),&(pass5436= 60 ),&(pass5437= 40 ),&(pass5438= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11972,"ide_methods.bas");}while(r); +S_49241:; +if ((qbs_cleanup(qbs_tmp_base,_SUB_IDENEWSF_STRING_NEWSF->len))||new_error){ +if(qbevent){evnt(26070,11974,"ide_methods.bas");if(r)goto S_49241;} +do{ +*_SUB_IDENEWSF_LONG_Y=*__LONG_IDEN; +if(!qbevent)break;evnt(26070,11975,"ide_methods.bas");}while(r); +do{ +*_SUB_IDENEWSF_LONG_Y=*_SUB_IDENEWSF_LONG_Y+ 1 ; +if(!qbevent)break;evnt(26070,11976,"ide_methods.bas");}while(r); +do{ +SUB_IDESETLINE(_SUB_IDENEWSF_LONG_Y,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11976,"ide_methods.bas");}while(r); +do{ +*_SUB_IDENEWSF_LONG_Y=*_SUB_IDENEWSF_LONG_Y+ 1 ; +if(!qbevent)break;evnt(26070,11977,"ide_methods.bas");}while(r); +do{ +SUB_IDESETLINE(_SUB_IDENEWSF_LONG_Y,qbs_add(qbs_add(_SUB_IDENEWSF_STRING_SF,qbs_new_txt_len(" ",1)),_SUB_IDENEWSF_STRING_NEWSF)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11977,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESY=*_SUB_IDENEWSF_LONG_Y; +if(!qbevent)break;evnt(26070,11978,"ide_methods.bas");}while(r); +do{ +*_SUB_IDENEWSF_LONG_Y=*_SUB_IDENEWSF_LONG_Y+ 1 ; +if(!qbevent)break;evnt(26070,11979,"ide_methods.bas");}while(r); +do{ +SUB_IDESETLINE(_SUB_IDENEWSF_LONG_Y,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11979,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECY=*_SUB_IDENEWSF_LONG_Y; +if(!qbevent)break;evnt(26070,11980,"ide_methods.bas");}while(r); +do{ +*_SUB_IDENEWSF_LONG_Y=*_SUB_IDENEWSF_LONG_Y+ 1 ; +if(!qbevent)break;evnt(26070,11981,"ide_methods.bas");}while(r); +do{ +SUB_IDESETLINE(_SUB_IDENEWSF_LONG_Y,qbs_add(qbs_new_txt_len("END ",4),_SUB_IDENEWSF_STRING_SF)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11981,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECX= 1 ; +if(!qbevent)break;evnt(26070,11982,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESX= 1 ; +if(!qbevent)break;evnt(26070,11982,"ide_methods.bas");}while(r); +do{ +*__INTEGER_IDECHANGEMADE= 1 ; +if(!qbevent)break;evnt(26070,11983,"ide_methods.bas");}while(r); +do{ +*__BYTE_STARTPAUSEDPENDING= 0 ; +if(!qbevent)break;evnt(26070,11984,"ide_methods.bas");}while(r); +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free203.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +qbs* FUNC_IDENEWFOLDER(qbs*_FUNC_IDENEWFOLDER_STRING_THISPATH){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data204.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +qbs_set(_FUNC_IDENEWFOLDER_STRING_NEWFOLDER,FUNC_IDEINPUTBOX(qbs_new_txt_len("New Folder",10),qbs_new_txt_len("#Name",5),qbs_new_txt_len("",0),qbs_new_txt_len("",0),&(pass5441= 60 ),&(pass5442= 0 ),&(pass5443= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11989,"ide_methods.bas");}while(r); +S_49259:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDENEWFOLDER_STRING_NEWFOLDER->len))||new_error){ +if(qbevent){evnt(26070,11991,"ide_methods.bas");if(r)goto S_49259;} +S_49260:; +if ((qbs_cleanup(qbs_tmp_base,func__direxists(qbs_add(qbs_add(_FUNC_IDENEWFOLDER_STRING_THISPATH,__STRING1_IDEPATHSEP),_FUNC_IDENEWFOLDER_STRING_NEWFOLDER))))||new_error){ +if(qbevent){evnt(26070,11992,"ide_methods.bas");if(r)goto S_49260;} +do{ +qbs_set(_FUNC_IDENEWFOLDER_STRING_IDENEWFOLDER,_FUNC_IDENEWFOLDER_STRING_NEWFOLDER); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11993,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,11994,"ide_methods.bas");}while(r); +} +do{ +*__LONG_IDEERROR= 5 ; +if(!qbevent)break;evnt(26070,11996,"ide_methods.bas");}while(r); +do{ +sub_mkdir(qbs_add(qbs_add(_FUNC_IDENEWFOLDER_STRING_THISPATH,__STRING1_IDEPATHSEP),_FUNC_IDENEWFOLDER_STRING_NEWFOLDER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11997,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEERROR= 1 ; +if(!qbevent)break;evnt(26070,11998,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDENEWFOLDER_STRING_IDENEWFOLDER,_FUNC_IDENEWFOLDER_STRING_NEWFOLDER); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11999,"ide_methods.bas");}while(r); +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free204.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_IDENEWFOLDER_STRING_IDENEWFOLDER);return _FUNC_IDENEWFOLDER_STRING_IDENEWFOLDER; +} +int32 FUNC_IDENEWTXT(qbs*_FUNC_IDENEWTXT_STRING_A){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data205.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +*__INTEGER_IDETXTLAST=*__INTEGER_IDETXTLAST+ 1 ; +if(!qbevent)break;evnt(26070,12005,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*__INTEGER_IDETXTLAST)-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDENEWTXT_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12006,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDENEWTXT_LONG_IDENEWTXT=*__INTEGER_IDETXTLAST; +if(!qbevent)break;evnt(26070,12007,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free205.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +return *_FUNC_IDENEWTXT_LONG_IDENEWTXT; +} +void SUB_IDENOMATCH(int8*_SUB_IDENOMATCH_BYTE_SHOWFLAGS){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data206.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +qbs_set(_SUB_IDENOMATCH_STRING_MSG,qbs_new_txt_len("Match not found.",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12011,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_IDENOMATCH_STRING_C,qbs_new_txt_len(", ",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12012,"ide_methods.bas");}while(r); +S_49274:; +if ((*_SUB_IDENOMATCH_BYTE_SHOWFLAGS)||new_error){ +if(qbevent){evnt(26070,12013,"ide_methods.bas");if(r)goto S_49274;} +S_49275:; +if ((*__INTEGER_IDEFINDCASESENS)||new_error){ +if(qbevent){evnt(26070,12014,"ide_methods.bas");if(r)goto S_49275;} +do{ +qbs_set(_SUB_IDENOMATCH_STRING_FLAGS,qbs_add(_SUB_IDENOMATCH_STRING_FLAGS,qbs_new_txt_len("match case",10))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12014,"ide_methods.bas");}while(r); +do{ +*_SUB_IDENOMATCH_LONG_FLAGSET=*_SUB_IDENOMATCH_LONG_FLAGSET+ 1 ; +if(!qbevent)break;evnt(26070,12014,"ide_methods.bas");}while(r); +} +S_49279:; +if ((*__INTEGER_IDEFINDWHOLEWORD)||new_error){ +if(qbevent){evnt(26070,12015,"ide_methods.bas");if(r)goto S_49279;} +do{ +qbs_set(_SUB_IDENOMATCH_STRING_FLAGS,qbs_add(qbs_add(_SUB_IDENOMATCH_STRING_FLAGS,qbs_left(_SUB_IDENOMATCH_STRING_C,func_abs((int32)(*_SUB_IDENOMATCH_LONG_FLAGSET))* 2 )),qbs_new_txt_len("whole word",10))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12015,"ide_methods.bas");}while(r); +do{ +*_SUB_IDENOMATCH_LONG_FLAGSET=*_SUB_IDENOMATCH_LONG_FLAGSET+ 1 ; +if(!qbevent)break;evnt(26070,12015,"ide_methods.bas");}while(r); +} +S_49283:; +if ((*__INTEGER_IDEFINDNOCOMMENTS)||new_error){ +if(qbevent){evnt(26070,12016,"ide_methods.bas");if(r)goto S_49283;} +do{ +qbs_set(_SUB_IDENOMATCH_STRING_FLAGS,qbs_add(qbs_add(_SUB_IDENOMATCH_STRING_FLAGS,qbs_left(_SUB_IDENOMATCH_STRING_C,func_abs((int32)(*_SUB_IDENOMATCH_LONG_FLAGSET))* 2 )),qbs_new_txt_len("no comments",11))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12016,"ide_methods.bas");}while(r); +do{ +*_SUB_IDENOMATCH_LONG_FLAGSET=*_SUB_IDENOMATCH_LONG_FLAGSET+ 1 ; +if(!qbevent)break;evnt(26070,12016,"ide_methods.bas");}while(r); +} +S_49287:; +if ((*__INTEGER_IDEFINDONLYCOMMENTS)||new_error){ +if(qbevent){evnt(26070,12017,"ide_methods.bas");if(r)goto S_49287;} +do{ +qbs_set(_SUB_IDENOMATCH_STRING_FLAGS,qbs_add(qbs_add(_SUB_IDENOMATCH_STRING_FLAGS,qbs_left(_SUB_IDENOMATCH_STRING_C,func_abs((int32)(*_SUB_IDENOMATCH_LONG_FLAGSET))* 2 )),qbs_new_txt_len("only comments",13))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12017,"ide_methods.bas");}while(r); +do{ +*_SUB_IDENOMATCH_LONG_FLAGSET=*_SUB_IDENOMATCH_LONG_FLAGSET+ 1 ; +if(!qbevent)break;evnt(26070,12017,"ide_methods.bas");}while(r); +} +S_49291:; +if ((*__INTEGER_IDEFINDNOSTRINGS)||new_error){ +if(qbevent){evnt(26070,12018,"ide_methods.bas");if(r)goto S_49291;} +do{ +qbs_set(_SUB_IDENOMATCH_STRING_FLAGS,qbs_add(qbs_add(_SUB_IDENOMATCH_STRING_FLAGS,qbs_left(_SUB_IDENOMATCH_STRING_C,func_abs((int32)(*_SUB_IDENOMATCH_LONG_FLAGSET))* 2 )),qbs_new_txt_len("no strings",10))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12018,"ide_methods.bas");}while(r); +do{ +*_SUB_IDENOMATCH_LONG_FLAGSET=*_SUB_IDENOMATCH_LONG_FLAGSET+ 1 ; +if(!qbevent)break;evnt(26070,12018,"ide_methods.bas");}while(r); +} +S_49295:; +if ((*__INTEGER_IDEFINDONLYSTRINGS)||new_error){ +if(qbevent){evnt(26070,12019,"ide_methods.bas");if(r)goto S_49295;} +do{ +qbs_set(_SUB_IDENOMATCH_STRING_FLAGS,qbs_add(qbs_add(_SUB_IDENOMATCH_STRING_FLAGS,qbs_left(_SUB_IDENOMATCH_STRING_C,func_abs((int32)(*_SUB_IDENOMATCH_LONG_FLAGSET))* 2 )),qbs_new_txt_len("only strings",12))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12019,"ide_methods.bas");}while(r); +do{ +*_SUB_IDENOMATCH_LONG_FLAGSET=*_SUB_IDENOMATCH_LONG_FLAGSET+ 1 ; +if(!qbevent)break;evnt(26070,12019,"ide_methods.bas");}while(r); +} +S_49299:; +if ((-(*_SUB_IDENOMATCH_LONG_FLAGSET> 1 ))||new_error){ +if(qbevent){evnt(26070,12020,"ide_methods.bas");if(r)goto S_49299;} +do{ +qbs_set(_SUB_IDENOMATCH_STRING_PL,qbs_new_txt_len("s",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12020,"ide_methods.bas");}while(r); +} +S_49302:; +if ((*_SUB_IDENOMATCH_LONG_FLAGSET)||new_error){ +if(qbevent){evnt(26070,12021,"ide_methods.bas");if(r)goto S_49302;} +do{ +qbs_set(_SUB_IDENOMATCH_STRING_MSG,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_IDENOMATCH_STRING_MSG,qbs_new_txt_len("\\n(Flag",7)),_SUB_IDENOMATCH_STRING_PL),qbs_new_txt_len(": ",2)),_SUB_IDENOMATCH_STRING_FLAGS),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12021,"ide_methods.bas");}while(r); +} +} +do{ +*_SUB_IDENOMATCH_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Search complete",15),_SUB_IDENOMATCH_STRING_MSG,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12023,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free206.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +qbs* FUNC_IDEFILEDIALOG(qbs*_FUNC_IDEFILEDIALOG_STRING_PROGRAMNAME,int8*_FUNC_IDEFILEDIALOG_BYTE_MODE){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data207.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +if(!qbevent)break;evnt(26070,12027,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 0 , 2 ); +if(!qbevent)break;evnt(26070,12030,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 0 , 1 ); +if(!qbevent)break;evnt(26070,12031,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,12032,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEFILEDIALOG_LONG_FOCUS= 1 ; +if(!qbevent)break;evnt(26070,12033,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26070,12034,"ide_methods.bas");}while(r); +do{ if (_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[2]&2){ error(10); @@ -165440,1169 +165440,1169 @@ if (!_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0]) error(257); } _FUNC_IDEFILEDIALOG_ARRAY_UDT_O[2]|=1; } -} -if(!qbevent)break;evnt(26070,12035,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(26070,12036,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEFILEDIALOG_STRING1_SEP,func_chr( 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12037,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEFILEDIALOG_STRING_PATH,__STRING_IDEPATH); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12041,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEFILEDIALOG_STRING_FILELIST,FUNC_IDEZFILELIST(_FUNC_IDEFILEDIALOG_STRING_PATH,_FUNC_IDEFILEDIALOG_LONG_ALLFILES,qbs_new_txt_len("",0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12042,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEFILEDIALOG_STRING_PATHLIST,FUNC_IDEZPATHLIST(_FUNC_IDEFILEDIALOG_STRING_PATH)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12043,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEFILEDIALOG_LONG_I= 0 ; -if(!qbevent)break;evnt(26070,12045,"ide_methods.bas");}while(r); -S_49320:; -if ((-(*_FUNC_IDEFILEDIALOG_BYTE_MODE== 1 ))||new_error){ -if(qbevent){evnt(26070,12046,"ide_methods.bas");if(r)goto S_49320;} -do{ -SUB_IDEPAR((void*)( ((char*)(_FUNC_IDEFILEDIALOG_UDT_P)) + (0) ),&(pass5447= 70 ),&(pass5448=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 7 ),qbs_new_txt_len("Open",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12047,"ide_methods.bas");}while(r); -S_49322:; -}else{ -if (-(*_FUNC_IDEFILEDIALOG_BYTE_MODE== 2 )){ -if(qbevent){evnt(26070,12048,"ide_methods.bas");if(r)goto S_49322;} -do{ -SUB_IDEPAR((void*)( ((char*)(_FUNC_IDEFILEDIALOG_UDT_P)) + (0) ),&(pass5449= 70 ),&(pass5450=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 7 ),qbs_new_txt_len("Save As",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12049,"ide_methods.bas");}while(r); -} -} -do{ -*_FUNC_IDEFILEDIALOG_LONG_I=*_FUNC_IDEFILEDIALOG_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,12051,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEFILEDIALOG_LONG_PREVFOCUS= 1 ; -if(!qbevent)break;evnt(26070,12052,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+36))= 1 ; -if(!qbevent)break;evnt(26070,12053,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+24))= 2 ; -if(!qbevent)break;evnt(26070,12054,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("File #Name",10)); -if(!qbevent)break;evnt(26070,12055,"ide_methods.bas");}while(r); -S_49330:; -if ((-(*_FUNC_IDEFILEDIALOG_BYTE_MODE== 2 ))||new_error){ -if(qbevent){evnt(26070,12056,"ide_methods.bas");if(r)goto S_49330;} -do{ -*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDEFILEDIALOG_STRING_PROGRAMNAME); -if(!qbevent)break;evnt(26070,12057,"ide_methods.bas");}while(r); -do{ -*(int8*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+76))= -1 ; -if(!qbevent)break;evnt(26070,12058,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+77))= 0 ; -if(!qbevent)break;evnt(26070,12059,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+81))=_FUNC_IDEFILEDIALOG_STRING_PROGRAMNAME->len; -if(!qbevent)break;evnt(26070,12060,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEFILEDIALOG_LONG_I=*_FUNC_IDEFILEDIALOG_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,12063,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+36))= 2 ; -if(!qbevent)break;evnt(26070,12064,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+24))= 5 ; -if(!qbevent)break;evnt(26070,12065,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+28))= 32 ; -if(!qbevent)break;evnt(26070,12066,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+32))=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 14 ; -if(!qbevent)break;evnt(26070,12066,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Files",6)); -if(!qbevent)break;evnt(26070,12067,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDEFILEDIALOG_STRING_FILELIST); -if(!qbevent)break;evnt(26070,12068,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEFILEDIALOG_STRING_FILELIST,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12068,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEFILEDIALOG_LONG_I=*_FUNC_IDEFILEDIALOG_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,12069,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+36))= 2 ; -if(!qbevent)break;evnt(26070,12070,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+20))= 37 ; -if(!qbevent)break;evnt(26070,12071,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+24))= 5 ; -if(!qbevent)break;evnt(26070,12071,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+28))= 31 ; -if(!qbevent)break;evnt(26070,12072,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+32))=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 16 ; -if(!qbevent)break;evnt(26070,12072,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Paths",6)); -if(!qbevent)break;evnt(26070,12073,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDEFILEDIALOG_STRING_PATHLIST); -if(!qbevent)break;evnt(26070,12074,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEFILEDIALOG_STRING_PATHLIST,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12074,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEFILEDIALOG_LONG_I=*_FUNC_IDEFILEDIALOG_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,12075,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+36))= 4 ; -if(!qbevent)break;evnt(26070,12076,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+20))= 37 ; -if(!qbevent)break;evnt(26070,12077,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+24))=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 9 ; -if(!qbevent)break;evnt(26070,12078,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len(".#BAS Only",10)); -if(!qbevent)break;evnt(26070,12079,"ide_methods.bas");}while(r); -S_49358:; -if ((*_FUNC_IDEFILEDIALOG_LONG_ALLFILES)||new_error){ -if(qbevent){evnt(26070,12080,"ide_methods.bas");if(r)goto S_49358;} -do{ -*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+64))= 0 ; -if(!qbevent)break;evnt(26070,12080,"ide_methods.bas");}while(r); -}else{ -do{ -*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+64))= 1 ; -if(!qbevent)break;evnt(26070,12080,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEFILEDIALOG_LONG_PREVBASONLY=*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+64)); -if(!qbevent)break;evnt(26070,12081,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEFILEDIALOG_LONG_I=*_FUNC_IDEFILEDIALOG_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,12082,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+36))= 3 ; -if(!qbevent)break;evnt(26070,12083,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+20))= 56 ; -if(!qbevent)break;evnt(26070,12084,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+24))=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 9 ; -if(!qbevent)break;evnt(26070,12085,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(qbs_new_txt_len("Ne#w Folder",11)); -if(!qbevent)break;evnt(26070,12086,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEFILEDIALOG_LONG_I=*_FUNC_IDEFILEDIALOG_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,12087,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+36))= 3 ; -if(!qbevent)break;evnt(26070,12088,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+24))=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 7 ; -if(!qbevent)break;evnt(26070,12089,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_new_txt_len("#OK",3),_FUNC_IDEFILEDIALOG_STRING1_SEP),qbs_new_txt_len("#Cancel",7))); -if(!qbevent)break;evnt(26070,12090,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+48))= 1 ; -if(!qbevent)break;evnt(26070,12091,"ide_methods.bas");}while(r); -S_49374:; -fornext_value5453= 1 ; -fornext_finalvalue5453= 100 ; -fornext_step5453= 1 ; -if (fornext_step5453<0) fornext_step_negative5453=1; else fornext_step_negative5453=0; -if (new_error) goto fornext_error5453; -goto fornext_entrylabel5453; -while(1){ -fornext_value5453=fornext_step5453+(*_FUNC_IDEFILEDIALOG_LONG_I); -fornext_entrylabel5453: -*_FUNC_IDEFILEDIALOG_LONG_I=fornext_value5453; -if (fornext_step_negative5453){ -if (fornext_value5453fornext_finalvalue5453) break; -} -fornext_error5453:; -if(qbevent){evnt(26070,12095,"ide_methods.bas");if(r)goto S_49374;} -do{ -memcpy(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89)+ 0,((char*)_FUNC_IDEFILEDIALOG_UDT_P)+(0)+ 0, 20); -if(!qbevent)break;evnt(26070,12095,"ide_methods.bas");}while(r); -fornext_continue_5452:; -} -fornext_exit_5452:; -S_49377:; -if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_IDEFILEDIALOG_BYTE_MODE== 1 ))&(-(__STRING_IDEOPENFILE->len> 0 ))))||new_error){ -if(qbevent){evnt(26070,12098,"ide_methods.bas");if(r)goto S_49377;} -do{ -qbs_set(_FUNC_IDEFILEDIALOG_STRING_F,__STRING_IDEOPENFILE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12098,"ide_methods.bas");}while(r); -do{ -goto LABEL_DIRECTLOAD; -if(!qbevent)break;evnt(26070,12098,"ide_methods.bas");}while(r); -} -S_49381:; -do{ -if(qbevent){evnt(26070,12100,"ide_methods.bas");if(r)goto S_49381;} -do{ -SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDEFILEDIALOG_UDT_P)) + (0) )); -if(!qbevent)break;evnt(26070,12103,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEFILEDIALOG_LONG_F= 1 ; -if(!qbevent)break;evnt(26070,12104,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEFILEDIALOG_LONG_CX= 0 ; -if(!qbevent)break;evnt(26070,12104,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEFILEDIALOG_LONG_CY= 0 ; -if(!qbevent)break;evnt(26070,12104,"ide_methods.bas");}while(r); -S_49386:; -fornext_value5457= 1 ; -fornext_finalvalue5457= 100 ; -fornext_step5457= 1 ; -if (fornext_step5457<0) fornext_step_negative5457=1; else fornext_step_negative5457=0; -if (new_error) goto fornext_error5457; -goto fornext_entrylabel5457; -while(1){ -fornext_value5457=fornext_step5457+(*_FUNC_IDEFILEDIALOG_LONG_I); -fornext_entrylabel5457: -*_FUNC_IDEFILEDIALOG_LONG_I=fornext_value5457; -if (fornext_step_negative5457){ -if (fornext_value5457fornext_finalvalue5457) break; -} -fornext_error5457:; -if(qbevent){evnt(26070,12105,"ide_methods.bas");if(r)goto S_49386;} -S_49387:; -if ((*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+36)))||new_error){ -if(qbevent){evnt(26070,12106,"ide_methods.bas");if(r)goto S_49387;} -do{ -*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+60))=*_FUNC_IDEFILEDIALOG_LONG_FOCUS-*_FUNC_IDEFILEDIALOG_LONG_F; -if(!qbevent)break;evnt(26070,12108,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+52))= 0 ; -if(!qbevent)break;evnt(26070,12109,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+56))= 0 ; -if(!qbevent)break;evnt(26070,12109,"ide_methods.bas");}while(r); -do{ -SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89) ),_FUNC_IDEFILEDIALOG_LONG_F); -if(!qbevent)break;evnt(26070,12110,"ide_methods.bas");}while(r); -S_49392:; -if ((*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+52)))||new_error){ -if(qbevent){evnt(26070,12111,"ide_methods.bas");if(r)goto S_49392;} -do{ -*_FUNC_IDEFILEDIALOG_LONG_CX=*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+52)); -if(!qbevent)break;evnt(26070,12111,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEFILEDIALOG_LONG_CY=*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+56)); -if(!qbevent)break;evnt(26070,12111,"ide_methods.bas");}while(r); -} -} -fornext_continue_5456:; -} -fornext_exit_5456:; -do{ -*_FUNC_IDEFILEDIALOG_LONG_LASTFOCUS=*_FUNC_IDEFILEDIALOG_LONG_F- 1 ; -if(!qbevent)break;evnt(26070,12114,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,12118,"ide_methods.bas");}while(r); -do{ -sub__printstring(*(int32*)(((char*)_FUNC_IDEFILEDIALOG_UDT_P)+(0))+ 2 ,*(int32*)(((char*)_FUNC_IDEFILEDIALOG_UDT_P)+(4))+ 4 ,qbs_new_txt_len("Path: ",6),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12118,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEFILEDIALOG_STRING_A,_FUNC_IDEFILEDIALOG_STRING_PATH); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12119,"ide_methods.bas");}while(r); -S_49402:; -if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_IDEFILEDIALOG_STRING_A->len== 2 ))&(qbs_equal(qbs_right(_FUNC_IDEFILEDIALOG_STRING_A, 1 ),qbs_new_txt_len(":",1)))))||new_error){ -if(qbevent){evnt(26070,12120,"ide_methods.bas");if(r)goto S_49402;} -do{ -qbs_set(_FUNC_IDEFILEDIALOG_STRING_A,qbs_add(_FUNC_IDEFILEDIALOG_STRING_A,qbs_new_txt_len("\\",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12120,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEFILEDIALOG_LONG_W=*(int32*)(((char*)_FUNC_IDEFILEDIALOG_UDT_P)+(8))- 8 ; -if(!qbevent)break;evnt(26070,12121,"ide_methods.bas");}while(r); -S_49406:; -if ((qbs_cleanup(qbs_tmp_base,-((_FUNC_IDEFILEDIALOG_STRING_A->len)>(*_FUNC_IDEFILEDIALOG_LONG_W- 3 ))))||new_error){ -if(qbevent){evnt(26070,12122,"ide_methods.bas");if(r)goto S_49406;} -do{ -qbs_set(_FUNC_IDEFILEDIALOG_STRING_A,qbs_add(func_string( 3 , 250 ),qbs_right(_FUNC_IDEFILEDIALOG_STRING_A,*_FUNC_IDEFILEDIALOG_LONG_W- 3 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12122,"ide_methods.bas");}while(r); -} -do{ -sub__printstring(*(int32*)(((char*)_FUNC_IDEFILEDIALOG_UDT_P)+(0))+ 2 + 6 ,*(int32*)(((char*)_FUNC_IDEFILEDIALOG_UDT_P)+(4))+ 4 ,_FUNC_IDEFILEDIALOG_STRING_A,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12123,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 1 , 0 ); -if(!qbevent)break;evnt(26070,12128,"ide_methods.bas");}while(r); -S_49411:; -if ((*_FUNC_IDEFILEDIALOG_LONG_CX)||new_error){ -if(qbevent){evnt(26070,12129,"ide_methods.bas");if(r)goto S_49411;} -do{ -qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,12129,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*_FUNC_IDEFILEDIALOG_LONG_CY,*_FUNC_IDEFILEDIALOG_LONG_CX, 1 ,NULL,NULL,7); -if(!qbevent)break;evnt(26070,12129,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,12129,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEFILEDIALOG_LONG_CHANGE= 0 ; -if(!qbevent)break;evnt(26070,12132,"ide_methods.bas");}while(r); -S_49417:; -do{ -if(qbevent){evnt(26070,12133,"ide_methods.bas");if(r)goto S_49417;} -do{ -SUB_GETINPUT(); -if(!qbevent)break;evnt(26070,12134,"ide_methods.bas");}while(r); -S_49419:; -if ((*__LONG_MWHEEL)||new_error){ -if(qbevent){evnt(26070,12135,"ide_methods.bas");if(r)goto S_49419;} -do{ -*_FUNC_IDEFILEDIALOG_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,12135,"ide_methods.bas");}while(r); -} -S_49422:; -if ((*__LONG_KB)||new_error){ -if(qbevent){evnt(26070,12136,"ide_methods.bas");if(r)goto S_49422;} -do{ -*_FUNC_IDEFILEDIALOG_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,12136,"ide_methods.bas");}while(r); -} -S_49425:; -if ((*__LONG_MCLICK)||new_error){ -if(qbevent){evnt(26070,12137,"ide_methods.bas");if(r)goto S_49425;} -do{ -*_FUNC_IDEFILEDIALOG_LONG_MOUSEDOWN= 1 ; -if(!qbevent)break;evnt(26070,12137,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEFILEDIALOG_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,12137,"ide_methods.bas");}while(r); -} -S_49429:; -if ((*__LONG_MRELEASE)||new_error){ -if(qbevent){evnt(26070,12138,"ide_methods.bas");if(r)goto S_49429;} -do{ -*_FUNC_IDEFILEDIALOG_LONG_MOUSEUP= 1 ; -if(!qbevent)break;evnt(26070,12138,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEFILEDIALOG_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,12138,"ide_methods.bas");}while(r); -} -S_49433:; -if ((*__LONG_MB)||new_error){ -if(qbevent){evnt(26070,12139,"ide_methods.bas");if(r)goto S_49433;} -do{ -*_FUNC_IDEFILEDIALOG_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,12139,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEFILEDIALOG_LONG_ALT=*__LONG_KALT; -if(!qbevent)break;evnt(26070,12140,"ide_methods.bas");}while(r); -S_49437:; -if ((-(*_FUNC_IDEFILEDIALOG_LONG_ALT!=*_FUNC_IDEFILEDIALOG_LONG_OLDALT))||new_error){ -if(qbevent){evnt(26070,12140,"ide_methods.bas");if(r)goto S_49437;} -do{ -*_FUNC_IDEFILEDIALOG_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,12140,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEFILEDIALOG_LONG_OLDALT=*_FUNC_IDEFILEDIALOG_LONG_ALT; -if(!qbevent)break;evnt(26070,12141,"ide_methods.bas");}while(r); -S_49441:; -if ((-(*_FUNC_IDEFILEDIALOG_BYTE_MODE== 1 ))||new_error){ -if(qbevent){evnt(26070,12143,"ide_methods.bas");if(r)goto S_49441;} -S_49442:; -if ((-(func__totaldroppedfiles()> 0 ))||new_error){ -if(qbevent){evnt(26070,12144,"ide_methods.bas");if(r)goto S_49442;} -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),func__droppedfile( 1 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12145,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; -if(!qbevent)break;evnt(26070,12146,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEFILEDIALOG_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(26070,12147,"ide_methods.bas");}while(r); -do{ -sub__finishdrop(); -if(!qbevent)break;evnt(26070,12148,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEFILEDIALOG_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,12149,"ide_methods.bas");}while(r); -} -} -do{ -sub__limit( 100 ); -if(!qbevent)break;evnt(26070,12153,"ide_methods.bas");}while(r); -S_49451:; -dl_continue_5460:; -}while((!(*_FUNC_IDEFILEDIALOG_LONG_CHANGE))&&(!new_error)); -dl_exit_5460:; -if(qbevent){evnt(26070,12154,"ide_methods.bas");if(r)goto S_49451;} -S_49452:; -if ((*_FUNC_IDEFILEDIALOG_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(26070,12155,"ide_methods.bas");if(r)goto S_49452;} -do{ -*__LONG_IDEHL= 1 ; -if(!qbevent)break;evnt(26070,12155,"ide_methods.bas");}while(r); -}else{ -do{ -*__LONG_IDEHL= 0 ; -if(!qbevent)break;evnt(26070,12155,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDEFILEDIALOG_STRING_ALTLETTER,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12157,"ide_methods.bas");}while(r); -S_49458:; -if ((*_FUNC_IDEFILEDIALOG_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(26070,12158,"ide_methods.bas");if(r)goto S_49458;} -S_49459:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ -if(qbevent){evnt(26070,12159,"ide_methods.bas");if(r)goto S_49459;} -do{ -*_FUNC_IDEFILEDIALOG_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12160,"ide_methods.bas");}while(r); -S_49461:; -if (((-(*_FUNC_IDEFILEDIALOG_LONG_K>= 65 ))&(-(*_FUNC_IDEFILEDIALOG_LONG_K<= 90 )))||new_error){ -if(qbevent){evnt(26070,12161,"ide_methods.bas");if(r)goto S_49461;} -do{ -qbs_set(_FUNC_IDEFILEDIALOG_STRING_ALTLETTER,func_chr(*_FUNC_IDEFILEDIALOG_LONG_K)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12161,"ide_methods.bas");}while(r); -} -} -} -do{ -qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,12164,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); -if(!qbevent)break;evnt(26070,12164,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,12164,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEFILEDIALOG_LONG_INFO= 0 ; -if(!qbevent)break;evnt(26070,12168,"ide_methods.bas");}while(r); -S_49470:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,12169,"ide_methods.bas");if(r)goto S_49470;} -do{ -qbs_set(__STRING_K,func_chr( 255 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12169,"ide_methods.bas");}while(r); -} -S_49473:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ -if(qbevent){evnt(26070,12170,"ide_methods.bas");if(r)goto S_49473;} -do{ -*_FUNC_IDEFILEDIALOG_LONG_FOCUS=*_FUNC_IDEFILEDIALOG_LONG_FOCUS+ 1 ; -if(!qbevent)break;evnt(26070,12170,"ide_methods.bas");}while(r); -} -S_49476:; -if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||new_error){ -if(qbevent){evnt(26070,12171,"ide_methods.bas");if(r)goto S_49476;} -do{ -*_FUNC_IDEFILEDIALOG_LONG_FOCUS=*_FUNC_IDEFILEDIALOG_LONG_FOCUS- 1 ; -if(!qbevent)break;evnt(26070,12171,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_K,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12171,"ide_methods.bas");}while(r); -} -S_49480:; -if ((-(*_FUNC_IDEFILEDIALOG_LONG_FOCUS< 1 ))||new_error){ -if(qbevent){evnt(26070,12172,"ide_methods.bas");if(r)goto S_49480;} -do{ -*_FUNC_IDEFILEDIALOG_LONG_FOCUS=*_FUNC_IDEFILEDIALOG_LONG_LASTFOCUS; -if(!qbevent)break;evnt(26070,12172,"ide_methods.bas");}while(r); -} -S_49483:; -if ((-(*_FUNC_IDEFILEDIALOG_LONG_FOCUS>*_FUNC_IDEFILEDIALOG_LONG_LASTFOCUS))||new_error){ -if(qbevent){evnt(26070,12173,"ide_methods.bas");if(r)goto S_49483;} -do{ -*_FUNC_IDEFILEDIALOG_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(26070,12173,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEFILEDIALOG_LONG_F= 1 ; -if(!qbevent)break;evnt(26070,12174,"ide_methods.bas");}while(r); -S_49487:; -fornext_value5464= 1 ; -fornext_finalvalue5464= 100 ; -fornext_step5464= 1 ; -if (fornext_step5464<0) fornext_step_negative5464=1; else fornext_step_negative5464=0; -if (new_error) goto fornext_error5464; -goto fornext_entrylabel5464; -while(1){ -fornext_value5464=fornext_step5464+(*_FUNC_IDEFILEDIALOG_LONG_I); -fornext_entrylabel5464: -*_FUNC_IDEFILEDIALOG_LONG_I=fornext_value5464; -if (fornext_step_negative5464){ -if (fornext_value5464fornext_finalvalue5464) break; -} -fornext_error5464:; -if(qbevent){evnt(26070,12175,"ide_methods.bas");if(r)goto S_49487;} -do{ -*_FUNC_IDEFILEDIALOG_LONG_T=*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+36)); -if(!qbevent)break;evnt(26070,12176,"ide_methods.bas");}while(r); -S_49489:; -if ((*_FUNC_IDEFILEDIALOG_LONG_T)||new_error){ -if(qbevent){evnt(26070,12177,"ide_methods.bas");if(r)goto S_49489;} -do{ -*_FUNC_IDEFILEDIALOG_LONG_FOCUSOFFSET=*_FUNC_IDEFILEDIALOG_LONG_FOCUS-*_FUNC_IDEFILEDIALOG_LONG_F; -if(!qbevent)break;evnt(26070,12178,"ide_methods.bas");}while(r); -do{ -SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89) ),_FUNC_IDEFILEDIALOG_LONG_FOCUS,_FUNC_IDEFILEDIALOG_LONG_F,_FUNC_IDEFILEDIALOG_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDEFILEDIALOG_STRING_ALTLETTER,__LONG_MB,_FUNC_IDEFILEDIALOG_LONG_MOUSEDOWN,_FUNC_IDEFILEDIALOG_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDEFILEDIALOG_LONG_INFO,__LONG_MWHEEL); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12179,"ide_methods.bas");}while(r); -} -fornext_continue_5463:; -} -fornext_exit_5463:; -S_49494:; -if ((-(*_FUNC_IDEFILEDIALOG_LONG_FOCUS!=*_FUNC_IDEFILEDIALOG_LONG_PREVFOCUS))||new_error){ -if(qbevent){evnt(26070,12194,"ide_methods.bas");if(r)goto S_49494;} -do{ -*_FUNC_IDEFILEDIALOG_LONG_PREVFOCUS=*_FUNC_IDEFILEDIALOG_LONG_FOCUS; -if(!qbevent)break;evnt(26070,12196,"ide_methods.bas");}while(r); -S_49496:; -if ((-(*_FUNC_IDEFILEDIALOG_LONG_FOCUS== 1 ))||new_error){ -if(qbevent){evnt(26070,12197,"ide_methods.bas");if(r)goto S_49496;} -do{ -*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_FOCUS)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_FOCUS)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; -if(!qbevent)break;evnt(26070,12198,"ide_methods.bas");}while(r); -S_49498:; -if ((-(*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_FOCUS)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+81))> 0 ))||new_error){ -if(qbevent){evnt(26070,12199,"ide_methods.bas");if(r)goto S_49498;} -do{ -*(int8*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_FOCUS)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+76))= -1 ; -if(!qbevent)break;evnt(26070,12199,"ide_methods.bas");}while(r); -} -do{ -*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_FOCUS)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+77))= 0 ; -if(!qbevent)break;evnt(26070,12200,"ide_methods.bas");}while(r); -} -} -S_49504:; -if ((-(*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 4 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+64))!=*_FUNC_IDEFILEDIALOG_LONG_PREVBASONLY))||new_error){ -if(qbevent){evnt(26070,12204,"ide_methods.bas");if(r)goto S_49504;} -do{ -*_FUNC_IDEFILEDIALOG_LONG_PREVBASONLY=*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 4 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+64)); -if(!qbevent)break;evnt(26070,12205,"ide_methods.bas");}while(r); -S_49506:; -if ((-(*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 4 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+64))== 0 ))||new_error){ -if(qbevent){evnt(26070,12206,"ide_methods.bas");if(r)goto S_49506;} -do{ -*_FUNC_IDEFILEDIALOG_LONG_ALLFILES= 1 ; -if(!qbevent)break;evnt(26070,12206,"ide_methods.bas");}while(r); -}else{ -do{ -*_FUNC_IDEFILEDIALOG_LONG_ALLFILES= 0 ; -if(!qbevent)break;evnt(26070,12206,"ide_methods.bas");}while(r); -} -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_IDEZFILELIST(_FUNC_IDEFILEDIALOG_STRING_PATH,_FUNC_IDEFILEDIALOG_LONG_ALLFILES,qbs_new_txt_len("",0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12207,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+64))= -1 ; -if(!qbevent)break;evnt(26070,12208,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDEOPENLOOP; -if(!qbevent)break;evnt(26070,12209,"ide_methods.bas");}while(r); -} -S_49515:; -if (((-(*_FUNC_IDEFILEDIALOG_LONG_FOCUS== 5 ))&(-(*_FUNC_IDEFILEDIALOG_LONG_INFO!= 0 )))||new_error){ -if(qbevent){evnt(26070,12212,"ide_methods.bas");if(r)goto S_49515;} -do{ -qbs_set(_FUNC_IDEFILEDIALOG_STRING_NEWPATH,FUNC_IDENEWFOLDER(_FUNC_IDEFILEDIALOG_STRING_PATH)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12214,"ide_methods.bas");}while(r); -S_49517:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDEFILEDIALOG_STRING_NEWPATH->len))||new_error){ -if(qbevent){evnt(26070,12215,"ide_methods.bas");if(r)goto S_49517;} -do{ -qbs_set(_FUNC_IDEFILEDIALOG_STRING_F,FUNC_REMOVEDOUBLESLASHES(_FUNC_IDEFILEDIALOG_STRING_NEWPATH)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12216,"ide_methods.bas");}while(r); -do{ -goto LABEL_CHANGEPATH; -if(!qbevent)break;evnt(26070,12217,"ide_methods.bas");}while(r); -}else{ -do{ -goto LABEL_IDEOPENLOOP; -if(!qbevent)break;evnt(26070,12219,"ide_methods.bas");}while(r); -} -} -S_49524:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 27 )))|(((-(*_FUNC_IDEFILEDIALOG_LONG_FOCUS== 7 ))&(-(*_FUNC_IDEFILEDIALOG_LONG_INFO!= 0 ))))))||new_error){ -if(qbevent){evnt(26070,12223,"ide_methods.bas");if(r)goto S_49524;} -do{ -qbs_set(_FUNC_IDEFILEDIALOG_STRING_IDEFILEDIALOG,qbs_new_txt_len("C",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12224,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,12225,"ide_methods.bas");}while(r); -} -S_49528:; -if (((-(*_FUNC_IDEFILEDIALOG_LONG_FOCUS== 2 ))&(-(*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+64))!=*_FUNC_IDEFILEDIALOG_LONG_PREVFILEBOXSEL)))||new_error){ -if(qbevent){evnt(26070,12228,"ide_methods.bas");if(r)goto S_49528;} -do{ -*_FUNC_IDEFILEDIALOG_LONG_PREVFILEBOXSEL=*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+64)); -if(!qbevent)break;evnt(26070,12229,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+72)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12230,"ide_methods.bas");}while(r); -do{ -*(int8*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+76))= 0 ; -if(!qbevent)break;evnt(26070,12231,"ide_methods.bas");}while(r); -} -S_49533:; -if ((-(*_FUNC_IDEFILEDIALOG_LONG_FOCUS== 3 ))||new_error){ -if(qbevent){evnt(26070,12234,"ide_methods.bas");if(r)goto S_49533;} -S_49534:; -if ((qbs_cleanup(qbs_tmp_base,(((qbs_equal(__STRING_K,func_chr( 13 )))|(-(*_FUNC_IDEFILEDIALOG_LONG_INFO== 1 ))))&(-(*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+64))>= 1 ))))||new_error){ -if(qbevent){evnt(26070,12235,"ide_methods.bas");if(r)goto S_49534;} -do{ -qbs_set(_FUNC_IDEFILEDIALOG_STRING_NEWPATH,FUNC_REMOVEDOUBLESLASHES(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+72)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12236,"ide_methods.bas");}while(r); -S_49536:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEFILEDIALOG_STRING_NEWPATH,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,12237,"ide_methods.bas");if(r)goto S_49536;} -do{ -qbs_set(_FUNC_IDEFILEDIALOG_STRING_NEWPATH,qbs_new_txt_len("..",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12238,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEFILEDIALOG_STRING_F,_FUNC_IDEFILEDIALOG_STRING_NEWPATH); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12239,"ide_methods.bas");}while(r); -do{ -goto LABEL_CHANGEPATH; -if(!qbevent)break;evnt(26070,12240,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDEFILEDIALOG_STRING_PATH,FUNC_REMOVEDOUBLESLASHES(FUNC_IDEZCHANGEPATH(_FUNC_IDEFILEDIALOG_STRING_PATH,_FUNC_IDEFILEDIALOG_STRING_NEWPATH))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12242,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_IDEZFILELIST(_FUNC_IDEFILEDIALOG_STRING_PATH,_FUNC_IDEFILEDIALOG_LONG_ALLFILES,qbs_new_txt_len("",0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12243,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_IDEZPATHLIST(_FUNC_IDEFILEDIALOG_STRING_PATH)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12244,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+64))= -1 ; -if(!qbevent)break;evnt(26070,12246,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+64))= 1 ; -if(!qbevent)break;evnt(26070,12247,"ide_methods.bas");}while(r); -S_49546:; -if ((-(*_FUNC_IDEFILEDIALOG_LONG_INFO== 1 ))||new_error){ -if(qbevent){evnt(26070,12248,"ide_methods.bas");if(r)goto S_49546;} -do{ -*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+64))= -1 ; -if(!qbevent)break;evnt(26070,12248,"ide_methods.bas");}while(r); -} -do{ -goto LABEL_IDEOPENLOOP; -if(!qbevent)break;evnt(26070,12249,"ide_methods.bas");}while(r); -} -} -} -S_49553:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 13 )))|(((-(*_FUNC_IDEFILEDIALOG_LONG_INFO== 1 ))&(-(*_FUNC_IDEFILEDIALOG_LONG_FOCUS== 2 ))))|(((-(*_FUNC_IDEFILEDIALOG_LONG_FOCUS== 6 ))&(-(*_FUNC_IDEFILEDIALOG_LONG_INFO!= 0 ))))))||new_error){ -if(qbevent){evnt(26070,12255,"ide_methods.bas");if(r)goto S_49553;} -do{ -qbs_set(_FUNC_IDEFILEDIALOG_STRING_F,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12256,"ide_methods.bas");}while(r); -S_49555:; -if ((qbs_cleanup(qbs_tmp_base,func__fileexists(_FUNC_IDEFILEDIALOG_STRING_F)))||new_error){ -if(qbevent){evnt(26070,12258,"ide_methods.bas");if(r)goto S_49555;} -do{ -goto LABEL_DIRECTLOAD; -if(!qbevent)break;evnt(26070,12258,"ide_methods.bas");}while(r); -} -S_49558:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_IDEFILEDIALOG_STRING_F,qbs_new_txt_len("",0)))&(-(*_FUNC_IDEFILEDIALOG_LONG_FOCUS== 1 ))&(qbs_equal(__STRING_K,func_chr( 13 )))))||new_error){ -if(qbevent){evnt(26070,12260,"ide_methods.bas");if(r)goto S_49558;} -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_IDEZFILELIST(_FUNC_IDEFILEDIALOG_STRING_PATH,_FUNC_IDEFILEDIALOG_LONG_ALLFILES,qbs_new_txt_len("",0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12262,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+64))= -1 ; -if(!qbevent)break;evnt(26070,12263,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDEOPENLOOP; -if(!qbevent)break;evnt(26070,12264,"ide_methods.bas");}while(r); -S_49562:; -}else{ -if (qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_IDEFILEDIALOG_STRING_F,qbs_new_txt_len("",0)))&(-(*_FUNC_IDEFILEDIALOG_LONG_FOCUS== 6 ))&(-(*_FUNC_IDEFILEDIALOG_LONG_INFO!= 0 )))){ -if(qbevent){evnt(26070,12265,"ide_methods.bas");if(r)goto S_49562;} -do{ -goto LABEL_IDEOPENLOOP; -if(!qbevent)break;evnt(26070,12266,"ide_methods.bas");}while(r); -} -} -LABEL_CHANGEPATH:; -if(qbevent){evnt(26070,12270,"ide_methods.bas");r=0;} -S_49565:; -if ((qbs_cleanup(qbs_tmp_base,func__direxists(qbs_add(qbs_add(_FUNC_IDEFILEDIALOG_STRING_PATH,__STRING1_IDEPATHSEP),_FUNC_IDEFILEDIALOG_STRING_F))))||new_error){ -if(qbevent){evnt(26070,12271,"ide_methods.bas");if(r)goto S_49565;} -do{ -qbs_set(_FUNC_IDEFILEDIALOG_STRING_PATH,FUNC_REMOVEDOUBLESLASHES(FUNC_IDEZGETFILEPATH(_FUNC_IDEFILEDIALOG_STRING_PATH,qbs_add(_FUNC_IDEFILEDIALOG_STRING_F,__STRING1_IDEPATHSEP)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12273,"ide_methods.bas");}while(r); -S_49567:; -if ((-(*__LONG_IDEERROR> 1 ))||new_error){ -if(qbevent){evnt(26070,12274,"ide_methods.bas");if(r)goto S_49567;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,12274,"ide_methods.bas");}while(r); -} -S_49570:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDEFILEDIALOG_STRING_NEWPATH->len== 0 )))||new_error){ -if(qbevent){evnt(26070,12276,"ide_methods.bas");if(r)goto S_49570;} -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12277,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEFILEDIALOG_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(26070,12278,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDEFILEDIALOG_STRING_NEWPATH,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12280,"ide_methods.bas");}while(r); -} -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_IDEZFILELIST(_FUNC_IDEFILEDIALOG_STRING_PATH,_FUNC_IDEFILEDIALOG_LONG_ALLFILES,qbs_new_txt_len("",0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12282,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+64))= -1 ; -if(!qbevent)break;evnt(26070,12283,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_IDEZPATHLIST(_FUNC_IDEFILEDIALOG_STRING_PATH)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12284,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+64))= -1 ; -if(!qbevent)break;evnt(26070,12285,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDEOPENLOOP; -if(!qbevent)break;evnt(26070,12286,"ide_methods.bas");}while(r); -} -S_49582:; -if ((qbs_cleanup(qbs_tmp_base,(-(func_instr(NULL,_FUNC_IDEFILEDIALOG_STRING_F,qbs_new_txt_len("?",1),0)> 0 ))|(-(func_instr(NULL,_FUNC_IDEFILEDIALOG_STRING_F,qbs_new_txt_len("*",1),0)> 0 ))))||new_error){ -if(qbevent){evnt(26070,12290,"ide_methods.bas");if(r)goto S_49582;} -S_49583:; -if ((qbs_cleanup(qbs_tmp_base,(-(func_instr(NULL,_FUNC_IDEFILEDIALOG_STRING_F,qbs_new_txt_len("/",1),0)> 0 ))|(-(func_instr(NULL,_FUNC_IDEFILEDIALOG_STRING_F,qbs_new_txt_len("\\",1),0)> 0 ))))||new_error){ -if(qbevent){evnt(26070,12291,"ide_methods.bas");if(r)goto S_49583;} -do{ -qbs_set(_FUNC_IDEFILEDIALOG_STRING_PATH,FUNC_REMOVEDOUBLESLASHES(FUNC_IDEZGETFILEPATH(_FUNC_IDEFILEDIALOG_STRING_PATH,_FUNC_IDEFILEDIALOG_STRING_F))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12293,"ide_methods.bas");}while(r); -S_49585:; -if ((-(*__LONG_IDEERROR> 1 ))||new_error){ -if(qbevent){evnt(26070,12294,"ide_methods.bas");if(r)goto S_49585;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,12294,"ide_methods.bas");}while(r); -} -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_IDEZPATHLIST(_FUNC_IDEFILEDIALOG_STRING_PATH)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12295,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+64))= -1 ; -if(!qbevent)break;evnt(26070,12296,"ide_methods.bas");}while(r); -} -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDEFILEDIALOG_STRING_F); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12298,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_IDEZFILELIST(_FUNC_IDEFILEDIALOG_STRING_PATH,&(pass5468= 2 ),_FUNC_IDEFILEDIALOG_STRING_F)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12299,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+64))= -1 ; -if(!qbevent)break;evnt(26070,12300,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; -if(!qbevent)break;evnt(26070,12301,"ide_methods.bas");}while(r); -do{ -*(int8*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+76))= -1 ; -if(!qbevent)break;evnt(26070,12302,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+77))= 0 ; -if(!qbevent)break;evnt(26070,12303,"ide_methods.bas");}while(r); -S_49597:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_lcase(qbs_right(_FUNC_IDEFILEDIALOG_STRING_F, 4 )),qbs_new_txt_len(".bas",4))))||new_error){ -if(qbevent){evnt(26070,12304,"ide_methods.bas");if(r)goto S_49597;} -do{ -*_FUNC_IDEFILEDIALOG_LONG_ALLFILES= 0 ; -if(!qbevent)break;evnt(26070,12305,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 4 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+64))= 0 ; -if(!qbevent)break;evnt(26070,12306,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEFILEDIALOG_LONG_PREVBASONLY=*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 4 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+64)); -if(!qbevent)break;evnt(26070,12307,"ide_methods.bas");}while(r); -} -do{ -goto LABEL_IDEOPENLOOP; -if(!qbevent)break;evnt(26070,12309,"ide_methods.bas");}while(r); -} -LABEL_DIRECTLOAD:; -if(qbevent){evnt(26070,12312,"ide_methods.bas");r=0;} -do{ -qbs_set(_FUNC_IDEFILEDIALOG_STRING_PATH,FUNC_REMOVEDOUBLESLASHES(FUNC_IDEZGETFILEPATH(_FUNC_IDEFILEDIALOG_STRING_PATH,_FUNC_IDEFILEDIALOG_STRING_F))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12313,"ide_methods.bas");}while(r); -S_49605:; -if ((-(*__LONG_IDEERROR> 1 ))||new_error){ -if(qbevent){evnt(26070,12314,"ide_methods.bas");if(r)goto S_49605;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,12314,"ide_methods.bas");}while(r); -} -S_49608:; -if ((-(*_FUNC_IDEFILEDIALOG_BYTE_MODE== 1 ))||new_error){ -if(qbevent){evnt(26070,12316,"ide_methods.bas");if(r)goto S_49608;} -S_49609:; -if ((qbs_cleanup(qbs_tmp_base,-(func__fileexists(qbs_add(qbs_add(_FUNC_IDEFILEDIALOG_STRING_PATH,__STRING1_IDEPATHSEP),_FUNC_IDEFILEDIALOG_STRING_F))== 0 )))||new_error){ -if(qbevent){evnt(26070,12317,"ide_methods.bas");if(r)goto S_49609;} -S_49610:; -if ((qbs_cleanup(qbs_tmp_base,((qbs_notequal(qbs_lcase(qbs_right(_FUNC_IDEFILEDIALOG_STRING_F, 4 )),qbs_new_txt_len(".bas",4))))&(-(*_FUNC_IDEFILEDIALOG_LONG_ALLFILES== 0 ))))||new_error){ -if(qbevent){evnt(26070,12319,"ide_methods.bas");if(r)goto S_49610;} -do{ -qbs_set(_FUNC_IDEFILEDIALOG_STRING_F,qbs_add(_FUNC_IDEFILEDIALOG_STRING_F,qbs_new_txt_len(".bas",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12319,"ide_methods.bas");}while(r); -} -} -do{ -*__LONG_IDEERROR= 2 ; -if(!qbevent)break;evnt(26070,12323,"ide_methods.bas");}while(r); -S_49615:; -if ((qbs_cleanup(qbs_tmp_base,-(func__fileexists(qbs_add(qbs_add(_FUNC_IDEFILEDIALOG_STRING_PATH,__STRING1_IDEPATHSEP),_FUNC_IDEFILEDIALOG_STRING_F))== 0 )))||new_error){ -if(qbevent){evnt(26070,12324,"ide_methods.bas");if(r)goto S_49615;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,12324,"ide_methods.bas");}while(r); -} -S_49618:; -if ((qbs_cleanup(qbs_tmp_base,-(FUNC_BINARYFORMATCHECK(_FUNC_IDEFILEDIALOG_STRING_PATH,__STRING1_IDEPATHSEP,_FUNC_IDEFILEDIALOG_STRING_F)> 0 )))||new_error){ -if(qbevent){evnt(26070,12326,"ide_methods.bas");if(r)goto S_49618;} -S_49619:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_IDEOPENFILE->len))||new_error){ -if(qbevent){evnt(26070,12327,"ide_methods.bas");if(r)goto S_49619;} -do{ -qbs_set(_FUNC_IDEFILEDIALOG_STRING_IDEFILEDIALOG,qbs_new_txt_len("C",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12328,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,12329,"ide_methods.bas");}while(r); -}else{ -do{ -*_FUNC_IDEFILEDIALOG_LONG_INFO= 0 ; -if(!qbevent)break;evnt(26070,12331,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDEOPENLOOP; -if(!qbevent)break;evnt(26070,12331,"ide_methods.bas");}while(r); -} -} -do{ -*__LONG_IDEERROR= 3 ; -if(!qbevent)break;evnt(26070,12336,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_IDET,qbs_add(l2string( 0 ),l2string( 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12337,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEL= 1 ; -if(!qbevent)break;evnt(26070,12337,"ide_methods.bas");}while(r); -do{ -*__LONG_IDELI= 1 ; -if(!qbevent)break;evnt(26070,12337,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEN= 1 ; -if(!qbevent)break;evnt(26070,12337,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEBMKN= 0 ; -if(!qbevent)break;evnt(26070,12337,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESX= 1 ; -if(!qbevent)break;evnt(26070,12338,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESY= 1 ; -if(!qbevent)break;evnt(26070,12339,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECX= 1 ; -if(!qbevent)break;evnt(26070,12340,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECY= 1 ; -if(!qbevent)break;evnt(26070,12341,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(26070,12342,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEFOCUSLINE= 0 ; -if(!qbevent)break;evnt(26070,12343,"ide_methods.bas");}while(r); -do{ -SUB_LINEINPUT3LOAD(qbs_add(qbs_add(_FUNC_IDEFILEDIALOG_STRING_PATH,__STRING1_IDEPATHSEP),_FUNC_IDEFILEDIALOG_STRING_F)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12344,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_IDET,func_space(__STRING_LINEINPUT3BUFFER->len* 8 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12345,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEFILEDIALOG_LONG_I2= 1 ; -if(!qbevent)break;evnt(26070,12346,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEFILEDIALOG_LONG_N= 0 ; -if(!qbevent)break;evnt(26070,12347,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEFILEDIALOG_STRING_CHRTAB,func_chr( 9 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12348,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEFILEDIALOG_STRING_SPACE1,qbs_new_txt_len(" ",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12349,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEFILEDIALOG_STRING_SPACE2,qbs_new_txt_len(" ",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12349,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEFILEDIALOG_STRING_SPACE3,qbs_new_txt_len(" ",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12349,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEFILEDIALOG_STRING_SPACE4,qbs_new_txt_len(" ",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12349,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEFILEDIALOG_STRING_CHR7,func_chr( 7 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12350,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEFILEDIALOG_STRING_CHR11,func_chr( 11 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12350,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEFILEDIALOG_STRING_CHR12,func_chr( 12 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12350,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEFILEDIALOG_STRING_CHR28,func_chr( 28 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12350,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEFILEDIALOG_STRING_CHR29,func_chr( 29 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12350,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEFILEDIALOG_STRING_CHR30,func_chr( 30 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12350,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEFILEDIALOG_STRING_CHR31,func_chr( 31 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12350,"ide_methods.bas");}while(r); -S_49655:; -do{ -if(qbevent){evnt(26070,12351,"ide_methods.bas");if(r)goto S_49655;} -do{ -qbs_set(_FUNC_IDEFILEDIALOG_STRING_A,FUNC_LINEINPUT3()); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12352,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEFILEDIALOG_LONG_L=_FUNC_IDEFILEDIALOG_STRING_A->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12353,"ide_methods.bas");}while(r); -S_49658:; -if ((*_FUNC_IDEFILEDIALOG_LONG_L)||new_error){ -if(qbevent){evnt(26070,12354,"ide_methods.bas");if(r)goto S_49658;} -do{ -*_FUNC_IDEFILEDIALOG_LONG_ASCA=qbs_asc(_FUNC_IDEFILEDIALOG_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12354,"ide_methods.bas");}while(r); -}else{ -do{ -*_FUNC_IDEFILEDIALOG_LONG_ASCA= -1 ; -if(!qbevent)break;evnt(26070,12354,"ide_methods.bas");}while(r); -} -S_49663:; -if ((-(*_FUNC_IDEFILEDIALOG_LONG_ASCA!= 13 ))||new_error){ -if(qbevent){evnt(26070,12355,"ide_methods.bas");if(r)goto S_49663;} -S_49664:; -if ((-(*_FUNC_IDEFILEDIALOG_LONG_ASCA!= -1 ))||new_error){ -if(qbevent){evnt(26070,12356,"ide_methods.bas");if(r)goto S_49664;} -LABEL_IDEOPENFIXTABS:; -if(qbevent){evnt(26070,12358,"ide_methods.bas");r=0;} -do{ -*_FUNC_IDEFILEDIALOG_LONG_X=func_instr(NULL,_FUNC_IDEFILEDIALOG_STRING_A,_FUNC_IDEFILEDIALOG_STRING_CHRTAB,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12359,"ide_methods.bas");}while(r); -S_49666:; -if ((*_FUNC_IDEFILEDIALOG_LONG_X)||new_error){ -if(qbevent){evnt(26070,12360,"ide_methods.bas");if(r)goto S_49666;} -do{ -*_FUNC_IDEFILEDIALOG_LONG_X2=(*_FUNC_IDEFILEDIALOG_LONG_X- 1 )% 4 ; -if(!qbevent)break;evnt(26070,12361,"ide_methods.bas");}while(r); -S_49668:; -if ((-(*_FUNC_IDEFILEDIALOG_LONG_X2== 0 ))||new_error){ -if(qbevent){evnt(26070,12362,"ide_methods.bas");if(r)goto S_49668;} -do{ -qbs_set(_FUNC_IDEFILEDIALOG_STRING_A,qbs_add(qbs_add(qbs_left(_FUNC_IDEFILEDIALOG_STRING_A,*_FUNC_IDEFILEDIALOG_LONG_X- 1 ),_FUNC_IDEFILEDIALOG_STRING_SPACE4),qbs_right(_FUNC_IDEFILEDIALOG_STRING_A,*_FUNC_IDEFILEDIALOG_LONG_L-*_FUNC_IDEFILEDIALOG_LONG_X))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12362,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEFILEDIALOG_LONG_L=*_FUNC_IDEFILEDIALOG_LONG_L+ 3 ; -if(!qbevent)break;evnt(26070,12362,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDEOPENFIXTABS; -if(!qbevent)break;evnt(26070,12362,"ide_methods.bas");}while(r); -} -S_49673:; -if ((-(*_FUNC_IDEFILEDIALOG_LONG_X2== 1 ))||new_error){ -if(qbevent){evnt(26070,12363,"ide_methods.bas");if(r)goto S_49673;} -do{ -qbs_set(_FUNC_IDEFILEDIALOG_STRING_A,qbs_add(qbs_add(qbs_left(_FUNC_IDEFILEDIALOG_STRING_A,*_FUNC_IDEFILEDIALOG_LONG_X- 1 ),_FUNC_IDEFILEDIALOG_STRING_SPACE3),qbs_right(_FUNC_IDEFILEDIALOG_STRING_A,*_FUNC_IDEFILEDIALOG_LONG_L-*_FUNC_IDEFILEDIALOG_LONG_X))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12363,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEFILEDIALOG_LONG_L=*_FUNC_IDEFILEDIALOG_LONG_L+ 2 ; -if(!qbevent)break;evnt(26070,12363,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDEOPENFIXTABS; -if(!qbevent)break;evnt(26070,12363,"ide_methods.bas");}while(r); -} -S_49678:; -if ((-(*_FUNC_IDEFILEDIALOG_LONG_X2== 2 ))||new_error){ -if(qbevent){evnt(26070,12364,"ide_methods.bas");if(r)goto S_49678;} -do{ -qbs_set(_FUNC_IDEFILEDIALOG_STRING_A,qbs_add(qbs_add(qbs_left(_FUNC_IDEFILEDIALOG_STRING_A,*_FUNC_IDEFILEDIALOG_LONG_X- 1 ),_FUNC_IDEFILEDIALOG_STRING_SPACE2),qbs_right(_FUNC_IDEFILEDIALOG_STRING_A,*_FUNC_IDEFILEDIALOG_LONG_L-*_FUNC_IDEFILEDIALOG_LONG_X))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12364,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEFILEDIALOG_LONG_L=*_FUNC_IDEFILEDIALOG_LONG_L+ 1 ; -if(!qbevent)break;evnt(26070,12364,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDEOPENFIXTABS; -if(!qbevent)break;evnt(26070,12364,"ide_methods.bas");}while(r); -} -S_49683:; -if ((-(*_FUNC_IDEFILEDIALOG_LONG_X2== 3 ))||new_error){ -if(qbevent){evnt(26070,12365,"ide_methods.bas");if(r)goto S_49683;} -do{ -qbs_set(_FUNC_IDEFILEDIALOG_STRING_A,qbs_add(qbs_add(qbs_left(_FUNC_IDEFILEDIALOG_STRING_A,*_FUNC_IDEFILEDIALOG_LONG_X- 1 ),_FUNC_IDEFILEDIALOG_STRING_SPACE1),qbs_right(_FUNC_IDEFILEDIALOG_STRING_A,*_FUNC_IDEFILEDIALOG_LONG_L-*_FUNC_IDEFILEDIALOG_LONG_X))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12365,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDEOPENFIXTABS; -if(!qbevent)break;evnt(26070,12365,"ide_methods.bas");}while(r); -} -} -} -do{ -sub_mid(__STRING_IDET,*_FUNC_IDEFILEDIALOG_LONG_I2,*_FUNC_IDEFILEDIALOG_LONG_L+ 8 ,qbs_add(qbs_add(l2string(*_FUNC_IDEFILEDIALOG_LONG_L),_FUNC_IDEFILEDIALOG_STRING_A),l2string(*_FUNC_IDEFILEDIALOG_LONG_L)),1); -if(!qbevent)break;evnt(26070,12368,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEFILEDIALOG_LONG_I2=*_FUNC_IDEFILEDIALOG_LONG_I2+*_FUNC_IDEFILEDIALOG_LONG_L+ 8 ; -if(!qbevent)break;evnt(26070,12368,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEFILEDIALOG_LONG_N=*_FUNC_IDEFILEDIALOG_LONG_N+ 1 ; -if(!qbevent)break;evnt(26070,12368,"ide_methods.bas");}while(r); -} -S_49693:; -dl_continue_5472:; -}while((!(-(*_FUNC_IDEFILEDIALOG_LONG_ASCA== 13 )))&&(!new_error)); -dl_exit_5472:; -if(qbevent){evnt(26070,12370,"ide_methods.bas");if(r)goto S_49693;} -do{ -qbs_set(__STRING_LINEINPUT3BUFFER,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12371,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEN=*_FUNC_IDEFILEDIALOG_LONG_N; -if(!qbevent)break;evnt(26070,12372,"ide_methods.bas");}while(r); -S_49696:; -if ((-(*_FUNC_IDEFILEDIALOG_LONG_N== 0 ))||new_error){ -if(qbevent){evnt(26070,12372,"ide_methods.bas");if(r)goto S_49696;} -do{ -qbs_set(__STRING_IDET,qbs_add(l2string( 0 ),l2string( 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12372,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEN= 1 ; -if(!qbevent)break;evnt(26070,12372,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(__STRING_IDET,qbs_left(__STRING_IDET,*_FUNC_IDEFILEDIALOG_LONG_I2- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12372,"ide_methods.bas");}while(r); -} -do{ +} +if(!qbevent)break;evnt(26070,12035,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26070,12036,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING1_SEP,func_chr( 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12037,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING_PATH,__STRING_IDEPATH); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12041,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING_FILELIST,FUNC_IDEZFILELIST(_FUNC_IDEFILEDIALOG_STRING_PATH,_FUNC_IDEFILEDIALOG_LONG_ALLFILES,qbs_new_txt_len("",0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12042,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING_PATHLIST,FUNC_IDEZPATHLIST(_FUNC_IDEFILEDIALOG_STRING_PATH)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12043,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEFILEDIALOG_LONG_I= 0 ; +if(!qbevent)break;evnt(26070,12045,"ide_methods.bas");}while(r); +S_49320:; +if ((-(*_FUNC_IDEFILEDIALOG_BYTE_MODE== 1 ))||new_error){ +if(qbevent){evnt(26070,12046,"ide_methods.bas");if(r)goto S_49320;} +do{ +SUB_IDEPAR((void*)( ((char*)(_FUNC_IDEFILEDIALOG_UDT_P)) + (0) ),&(pass5447= 70 ),&(pass5448=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 7 ),qbs_new_txt_len("Open",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12047,"ide_methods.bas");}while(r); +S_49322:; +}else{ +if (-(*_FUNC_IDEFILEDIALOG_BYTE_MODE== 2 )){ +if(qbevent){evnt(26070,12048,"ide_methods.bas");if(r)goto S_49322;} +do{ +SUB_IDEPAR((void*)( ((char*)(_FUNC_IDEFILEDIALOG_UDT_P)) + (0) ),&(pass5449= 70 ),&(pass5450=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 7 ),qbs_new_txt_len("Save As",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12049,"ide_methods.bas");}while(r); +} +} +do{ +*_FUNC_IDEFILEDIALOG_LONG_I=*_FUNC_IDEFILEDIALOG_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,12051,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEFILEDIALOG_LONG_PREVFOCUS= 1 ; +if(!qbevent)break;evnt(26070,12052,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+36))= 1 ; +if(!qbevent)break;evnt(26070,12053,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+24))= 2 ; +if(!qbevent)break;evnt(26070,12054,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("File #Name",10)); +if(!qbevent)break;evnt(26070,12055,"ide_methods.bas");}while(r); +S_49330:; +if ((-(*_FUNC_IDEFILEDIALOG_BYTE_MODE== 2 ))||new_error){ +if(qbevent){evnt(26070,12056,"ide_methods.bas");if(r)goto S_49330;} +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDEFILEDIALOG_STRING_PROGRAMNAME); +if(!qbevent)break;evnt(26070,12057,"ide_methods.bas");}while(r); +do{ +*(int8*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+76))= -1 ; +if(!qbevent)break;evnt(26070,12058,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+77))= 0 ; +if(!qbevent)break;evnt(26070,12059,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+81))=_FUNC_IDEFILEDIALOG_STRING_PROGRAMNAME->len; +if(!qbevent)break;evnt(26070,12060,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEFILEDIALOG_LONG_I=*_FUNC_IDEFILEDIALOG_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,12063,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+36))= 2 ; +if(!qbevent)break;evnt(26070,12064,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+24))= 5 ; +if(!qbevent)break;evnt(26070,12065,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+28))= 32 ; +if(!qbevent)break;evnt(26070,12066,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+32))=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 14 ; +if(!qbevent)break;evnt(26070,12066,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Files",6)); +if(!qbevent)break;evnt(26070,12067,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDEFILEDIALOG_STRING_FILELIST); +if(!qbevent)break;evnt(26070,12068,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING_FILELIST,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12068,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEFILEDIALOG_LONG_I=*_FUNC_IDEFILEDIALOG_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,12069,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+36))= 2 ; +if(!qbevent)break;evnt(26070,12070,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+20))= 37 ; +if(!qbevent)break;evnt(26070,12071,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+24))= 5 ; +if(!qbevent)break;evnt(26070,12071,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+28))= 31 ; +if(!qbevent)break;evnt(26070,12072,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+32))=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 16 ; +if(!qbevent)break;evnt(26070,12072,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Paths",6)); +if(!qbevent)break;evnt(26070,12073,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDEFILEDIALOG_STRING_PATHLIST); +if(!qbevent)break;evnt(26070,12074,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING_PATHLIST,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12074,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEFILEDIALOG_LONG_I=*_FUNC_IDEFILEDIALOG_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,12075,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+36))= 4 ; +if(!qbevent)break;evnt(26070,12076,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+20))= 37 ; +if(!qbevent)break;evnt(26070,12077,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+24))=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 9 ; +if(!qbevent)break;evnt(26070,12078,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len(".#BAS Only",10)); +if(!qbevent)break;evnt(26070,12079,"ide_methods.bas");}while(r); +S_49358:; +if ((*_FUNC_IDEFILEDIALOG_LONG_ALLFILES)||new_error){ +if(qbevent){evnt(26070,12080,"ide_methods.bas");if(r)goto S_49358;} +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+64))= 0 ; +if(!qbevent)break;evnt(26070,12080,"ide_methods.bas");}while(r); +}else{ +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+64))= 1 ; +if(!qbevent)break;evnt(26070,12080,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEFILEDIALOG_LONG_PREVBASONLY=*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26070,12081,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEFILEDIALOG_LONG_I=*_FUNC_IDEFILEDIALOG_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,12082,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+36))= 3 ; +if(!qbevent)break;evnt(26070,12083,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+20))= 56 ; +if(!qbevent)break;evnt(26070,12084,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+24))=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 9 ; +if(!qbevent)break;evnt(26070,12085,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(qbs_new_txt_len("Ne#w Folder",11)); +if(!qbevent)break;evnt(26070,12086,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEFILEDIALOG_LONG_I=*_FUNC_IDEFILEDIALOG_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,12087,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+36))= 3 ; +if(!qbevent)break;evnt(26070,12088,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+24))=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 7 ; +if(!qbevent)break;evnt(26070,12089,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_new_txt_len("#OK",3),_FUNC_IDEFILEDIALOG_STRING1_SEP),qbs_new_txt_len("#Cancel",7))); +if(!qbevent)break;evnt(26070,12090,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+48))= 1 ; +if(!qbevent)break;evnt(26070,12091,"ide_methods.bas");}while(r); +S_49374:; +fornext_value5453= 1 ; +fornext_finalvalue5453= 100 ; +fornext_step5453= 1 ; +if (fornext_step5453<0) fornext_step_negative5453=1; else fornext_step_negative5453=0; +if (new_error) goto fornext_error5453; +goto fornext_entrylabel5453; +while(1){ +fornext_value5453=fornext_step5453+(*_FUNC_IDEFILEDIALOG_LONG_I); +fornext_entrylabel5453: +*_FUNC_IDEFILEDIALOG_LONG_I=fornext_value5453; +if (fornext_step_negative5453){ +if (fornext_value5453fornext_finalvalue5453) break; +} +fornext_error5453:; +if(qbevent){evnt(26070,12095,"ide_methods.bas");if(r)goto S_49374;} +do{ +memcpy(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89)+ 0,((char*)_FUNC_IDEFILEDIALOG_UDT_P)+(0)+ 0, 20); +if(!qbevent)break;evnt(26070,12095,"ide_methods.bas");}while(r); +fornext_continue_5452:; +} +fornext_exit_5452:; +S_49377:; +if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_IDEFILEDIALOG_BYTE_MODE== 1 ))&(-(__STRING_IDEOPENFILE->len> 0 ))))||new_error){ +if(qbevent){evnt(26070,12098,"ide_methods.bas");if(r)goto S_49377;} +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING_F,__STRING_IDEOPENFILE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12098,"ide_methods.bas");}while(r); +do{ +goto LABEL_DIRECTLOAD; +if(!qbevent)break;evnt(26070,12098,"ide_methods.bas");}while(r); +} +S_49381:; +do{ +if(qbevent){evnt(26070,12100,"ide_methods.bas");if(r)goto S_49381;} +do{ +SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDEFILEDIALOG_UDT_P)) + (0) )); +if(!qbevent)break;evnt(26070,12103,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEFILEDIALOG_LONG_F= 1 ; +if(!qbevent)break;evnt(26070,12104,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEFILEDIALOG_LONG_CX= 0 ; +if(!qbevent)break;evnt(26070,12104,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEFILEDIALOG_LONG_CY= 0 ; +if(!qbevent)break;evnt(26070,12104,"ide_methods.bas");}while(r); +S_49386:; +fornext_value5457= 1 ; +fornext_finalvalue5457= 100 ; +fornext_step5457= 1 ; +if (fornext_step5457<0) fornext_step_negative5457=1; else fornext_step_negative5457=0; +if (new_error) goto fornext_error5457; +goto fornext_entrylabel5457; +while(1){ +fornext_value5457=fornext_step5457+(*_FUNC_IDEFILEDIALOG_LONG_I); +fornext_entrylabel5457: +*_FUNC_IDEFILEDIALOG_LONG_I=fornext_value5457; +if (fornext_step_negative5457){ +if (fornext_value5457fornext_finalvalue5457) break; +} +fornext_error5457:; +if(qbevent){evnt(26070,12105,"ide_methods.bas");if(r)goto S_49386;} +S_49387:; +if ((*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+36)))||new_error){ +if(qbevent){evnt(26070,12106,"ide_methods.bas");if(r)goto S_49387;} +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+60))=*_FUNC_IDEFILEDIALOG_LONG_FOCUS-*_FUNC_IDEFILEDIALOG_LONG_F; +if(!qbevent)break;evnt(26070,12108,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+52))= 0 ; +if(!qbevent)break;evnt(26070,12109,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+56))= 0 ; +if(!qbevent)break;evnt(26070,12109,"ide_methods.bas");}while(r); +do{ +SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89) ),_FUNC_IDEFILEDIALOG_LONG_F); +if(!qbevent)break;evnt(26070,12110,"ide_methods.bas");}while(r); +S_49392:; +if ((*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+52)))||new_error){ +if(qbevent){evnt(26070,12111,"ide_methods.bas");if(r)goto S_49392;} +do{ +*_FUNC_IDEFILEDIALOG_LONG_CX=*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+52)); +if(!qbevent)break;evnt(26070,12111,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEFILEDIALOG_LONG_CY=*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+56)); +if(!qbevent)break;evnt(26070,12111,"ide_methods.bas");}while(r); +} +} +fornext_continue_5456:; +} +fornext_exit_5456:; +do{ +*_FUNC_IDEFILEDIALOG_LONG_LASTFOCUS=*_FUNC_IDEFILEDIALOG_LONG_F- 1 ; +if(!qbevent)break;evnt(26070,12114,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,12118,"ide_methods.bas");}while(r); +do{ +sub__printstring(*(int32*)(((char*)_FUNC_IDEFILEDIALOG_UDT_P)+(0))+ 2 ,*(int32*)(((char*)_FUNC_IDEFILEDIALOG_UDT_P)+(4))+ 4 ,qbs_new_txt_len("Path: ",6),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12118,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING_A,_FUNC_IDEFILEDIALOG_STRING_PATH); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12119,"ide_methods.bas");}while(r); +S_49402:; +if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_IDEFILEDIALOG_STRING_A->len== 2 ))&(qbs_equal(qbs_right(_FUNC_IDEFILEDIALOG_STRING_A, 1 ),qbs_new_txt_len(":",1)))))||new_error){ +if(qbevent){evnt(26070,12120,"ide_methods.bas");if(r)goto S_49402;} +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING_A,qbs_add(_FUNC_IDEFILEDIALOG_STRING_A,qbs_new_txt_len("\\",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12120,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEFILEDIALOG_LONG_W=*(int32*)(((char*)_FUNC_IDEFILEDIALOG_UDT_P)+(8))- 8 ; +if(!qbevent)break;evnt(26070,12121,"ide_methods.bas");}while(r); +S_49406:; +if ((qbs_cleanup(qbs_tmp_base,-((_FUNC_IDEFILEDIALOG_STRING_A->len)>(*_FUNC_IDEFILEDIALOG_LONG_W- 3 ))))||new_error){ +if(qbevent){evnt(26070,12122,"ide_methods.bas");if(r)goto S_49406;} +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING_A,qbs_add(func_string( 3 , 250 ),qbs_right(_FUNC_IDEFILEDIALOG_STRING_A,*_FUNC_IDEFILEDIALOG_LONG_W- 3 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12122,"ide_methods.bas");}while(r); +} +do{ +sub__printstring(*(int32*)(((char*)_FUNC_IDEFILEDIALOG_UDT_P)+(0))+ 2 + 6 ,*(int32*)(((char*)_FUNC_IDEFILEDIALOG_UDT_P)+(4))+ 4 ,_FUNC_IDEFILEDIALOG_STRING_A,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12123,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 1 , 0 ); +if(!qbevent)break;evnt(26070,12128,"ide_methods.bas");}while(r); +S_49411:; +if ((*_FUNC_IDEFILEDIALOG_LONG_CX)||new_error){ +if(qbevent){evnt(26070,12129,"ide_methods.bas");if(r)goto S_49411;} +do{ +qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,12129,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(*_FUNC_IDEFILEDIALOG_LONG_CY,*_FUNC_IDEFILEDIALOG_LONG_CX, 1 ,NULL,NULL,7); +if(!qbevent)break;evnt(26070,12129,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,12129,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEFILEDIALOG_LONG_CHANGE= 0 ; +if(!qbevent)break;evnt(26070,12132,"ide_methods.bas");}while(r); +S_49417:; +do{ +if(qbevent){evnt(26070,12133,"ide_methods.bas");if(r)goto S_49417;} +do{ +SUB_GETINPUT(); +if(!qbevent)break;evnt(26070,12134,"ide_methods.bas");}while(r); +S_49419:; +if ((*__LONG_MWHEEL)||new_error){ +if(qbevent){evnt(26070,12135,"ide_methods.bas");if(r)goto S_49419;} +do{ +*_FUNC_IDEFILEDIALOG_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,12135,"ide_methods.bas");}while(r); +} +S_49422:; +if ((*__LONG_KB)||new_error){ +if(qbevent){evnt(26070,12136,"ide_methods.bas");if(r)goto S_49422;} +do{ +*_FUNC_IDEFILEDIALOG_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,12136,"ide_methods.bas");}while(r); +} +S_49425:; +if ((*__LONG_MCLICK)||new_error){ +if(qbevent){evnt(26070,12137,"ide_methods.bas");if(r)goto S_49425;} +do{ +*_FUNC_IDEFILEDIALOG_LONG_MOUSEDOWN= 1 ; +if(!qbevent)break;evnt(26070,12137,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEFILEDIALOG_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,12137,"ide_methods.bas");}while(r); +} +S_49429:; +if ((*__LONG_MRELEASE)||new_error){ +if(qbevent){evnt(26070,12138,"ide_methods.bas");if(r)goto S_49429;} +do{ +*_FUNC_IDEFILEDIALOG_LONG_MOUSEUP= 1 ; +if(!qbevent)break;evnt(26070,12138,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEFILEDIALOG_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,12138,"ide_methods.bas");}while(r); +} +S_49433:; +if ((*__LONG_MB)||new_error){ +if(qbevent){evnt(26070,12139,"ide_methods.bas");if(r)goto S_49433;} +do{ +*_FUNC_IDEFILEDIALOG_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,12139,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEFILEDIALOG_LONG_ALT=*__LONG_KALT; +if(!qbevent)break;evnt(26070,12140,"ide_methods.bas");}while(r); +S_49437:; +if ((-(*_FUNC_IDEFILEDIALOG_LONG_ALT!=*_FUNC_IDEFILEDIALOG_LONG_OLDALT))||new_error){ +if(qbevent){evnt(26070,12140,"ide_methods.bas");if(r)goto S_49437;} +do{ +*_FUNC_IDEFILEDIALOG_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,12140,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEFILEDIALOG_LONG_OLDALT=*_FUNC_IDEFILEDIALOG_LONG_ALT; +if(!qbevent)break;evnt(26070,12141,"ide_methods.bas");}while(r); +S_49441:; +if ((-(*_FUNC_IDEFILEDIALOG_BYTE_MODE== 1 ))||new_error){ +if(qbevent){evnt(26070,12143,"ide_methods.bas");if(r)goto S_49441;} +S_49442:; +if ((-(func__totaldroppedfiles()> 0 ))||new_error){ +if(qbevent){evnt(26070,12144,"ide_methods.bas");if(r)goto S_49442;} +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),func__droppedfile( 1 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12145,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; +if(!qbevent)break;evnt(26070,12146,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEFILEDIALOG_LONG_FOCUS= 1 ; +if(!qbevent)break;evnt(26070,12147,"ide_methods.bas");}while(r); +do{ +sub__finishdrop(); +if(!qbevent)break;evnt(26070,12148,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEFILEDIALOG_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,12149,"ide_methods.bas");}while(r); +} +} +do{ +sub__limit( 100 ); +if(!qbevent)break;evnt(26070,12153,"ide_methods.bas");}while(r); +S_49451:; +dl_continue_5460:; +}while((!(*_FUNC_IDEFILEDIALOG_LONG_CHANGE))&&(!new_error)); +dl_exit_5460:; +if(qbevent){evnt(26070,12154,"ide_methods.bas");if(r)goto S_49451;} +S_49452:; +if ((*_FUNC_IDEFILEDIALOG_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ +if(qbevent){evnt(26070,12155,"ide_methods.bas");if(r)goto S_49452;} +do{ +*__LONG_IDEHL= 1 ; +if(!qbevent)break;evnt(26070,12155,"ide_methods.bas");}while(r); +}else{ +do{ +*__LONG_IDEHL= 0 ; +if(!qbevent)break;evnt(26070,12155,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING_ALTLETTER,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12157,"ide_methods.bas");}while(r); +S_49458:; +if ((*_FUNC_IDEFILEDIALOG_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ +if(qbevent){evnt(26070,12158,"ide_methods.bas");if(r)goto S_49458;} +S_49459:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ +if(qbevent){evnt(26070,12159,"ide_methods.bas");if(r)goto S_49459;} +do{ +*_FUNC_IDEFILEDIALOG_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12160,"ide_methods.bas");}while(r); +S_49461:; +if (((-(*_FUNC_IDEFILEDIALOG_LONG_K>= 65 ))&(-(*_FUNC_IDEFILEDIALOG_LONG_K<= 90 )))||new_error){ +if(qbevent){evnt(26070,12161,"ide_methods.bas");if(r)goto S_49461;} +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING_ALTLETTER,func_chr(*_FUNC_IDEFILEDIALOG_LONG_K)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12161,"ide_methods.bas");}while(r); +} +} +} +do{ +qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,12164,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); +if(!qbevent)break;evnt(26070,12164,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,12164,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEFILEDIALOG_LONG_INFO= 0 ; +if(!qbevent)break;evnt(26070,12168,"ide_methods.bas");}while(r); +S_49470:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,12169,"ide_methods.bas");if(r)goto S_49470;} +do{ +qbs_set(__STRING_K,func_chr( 255 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12169,"ide_methods.bas");}while(r); +} +S_49473:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ +if(qbevent){evnt(26070,12170,"ide_methods.bas");if(r)goto S_49473;} +do{ +*_FUNC_IDEFILEDIALOG_LONG_FOCUS=*_FUNC_IDEFILEDIALOG_LONG_FOCUS+ 1 ; +if(!qbevent)break;evnt(26070,12170,"ide_methods.bas");}while(r); +} +S_49476:; +if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||new_error){ +if(qbevent){evnt(26070,12171,"ide_methods.bas");if(r)goto S_49476;} +do{ +*_FUNC_IDEFILEDIALOG_LONG_FOCUS=*_FUNC_IDEFILEDIALOG_LONG_FOCUS- 1 ; +if(!qbevent)break;evnt(26070,12171,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_K,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12171,"ide_methods.bas");}while(r); +} +S_49480:; +if ((-(*_FUNC_IDEFILEDIALOG_LONG_FOCUS< 1 ))||new_error){ +if(qbevent){evnt(26070,12172,"ide_methods.bas");if(r)goto S_49480;} +do{ +*_FUNC_IDEFILEDIALOG_LONG_FOCUS=*_FUNC_IDEFILEDIALOG_LONG_LASTFOCUS; +if(!qbevent)break;evnt(26070,12172,"ide_methods.bas");}while(r); +} +S_49483:; +if ((-(*_FUNC_IDEFILEDIALOG_LONG_FOCUS>*_FUNC_IDEFILEDIALOG_LONG_LASTFOCUS))||new_error){ +if(qbevent){evnt(26070,12173,"ide_methods.bas");if(r)goto S_49483;} +do{ +*_FUNC_IDEFILEDIALOG_LONG_FOCUS= 1 ; +if(!qbevent)break;evnt(26070,12173,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEFILEDIALOG_LONG_F= 1 ; +if(!qbevent)break;evnt(26070,12174,"ide_methods.bas");}while(r); +S_49487:; +fornext_value5464= 1 ; +fornext_finalvalue5464= 100 ; +fornext_step5464= 1 ; +if (fornext_step5464<0) fornext_step_negative5464=1; else fornext_step_negative5464=0; +if (new_error) goto fornext_error5464; +goto fornext_entrylabel5464; +while(1){ +fornext_value5464=fornext_step5464+(*_FUNC_IDEFILEDIALOG_LONG_I); +fornext_entrylabel5464: +*_FUNC_IDEFILEDIALOG_LONG_I=fornext_value5464; +if (fornext_step_negative5464){ +if (fornext_value5464fornext_finalvalue5464) break; +} +fornext_error5464:; +if(qbevent){evnt(26070,12175,"ide_methods.bas");if(r)goto S_49487;} +do{ +*_FUNC_IDEFILEDIALOG_LONG_T=*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+36)); +if(!qbevent)break;evnt(26070,12176,"ide_methods.bas");}while(r); +S_49489:; +if ((*_FUNC_IDEFILEDIALOG_LONG_T)||new_error){ +if(qbevent){evnt(26070,12177,"ide_methods.bas");if(r)goto S_49489;} +do{ +*_FUNC_IDEFILEDIALOG_LONG_FOCUSOFFSET=*_FUNC_IDEFILEDIALOG_LONG_FOCUS-*_FUNC_IDEFILEDIALOG_LONG_F; +if(!qbevent)break;evnt(26070,12178,"ide_methods.bas");}while(r); +do{ +SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEFILEDIALOG_LONG_I)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89) ),_FUNC_IDEFILEDIALOG_LONG_FOCUS,_FUNC_IDEFILEDIALOG_LONG_F,_FUNC_IDEFILEDIALOG_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDEFILEDIALOG_STRING_ALTLETTER,__LONG_MB,_FUNC_IDEFILEDIALOG_LONG_MOUSEDOWN,_FUNC_IDEFILEDIALOG_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDEFILEDIALOG_LONG_INFO,__LONG_MWHEEL); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12179,"ide_methods.bas");}while(r); +} +fornext_continue_5463:; +} +fornext_exit_5463:; +S_49494:; +if ((-(*_FUNC_IDEFILEDIALOG_LONG_FOCUS!=*_FUNC_IDEFILEDIALOG_LONG_PREVFOCUS))||new_error){ +if(qbevent){evnt(26070,12194,"ide_methods.bas");if(r)goto S_49494;} +do{ +*_FUNC_IDEFILEDIALOG_LONG_PREVFOCUS=*_FUNC_IDEFILEDIALOG_LONG_FOCUS; +if(!qbevent)break;evnt(26070,12196,"ide_methods.bas");}while(r); +S_49496:; +if ((-(*_FUNC_IDEFILEDIALOG_LONG_FOCUS== 1 ))||new_error){ +if(qbevent){evnt(26070,12197,"ide_methods.bas");if(r)goto S_49496;} +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_FOCUS)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_FOCUS)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; +if(!qbevent)break;evnt(26070,12198,"ide_methods.bas");}while(r); +S_49498:; +if ((-(*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_FOCUS)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+81))> 0 ))||new_error){ +if(qbevent){evnt(26070,12199,"ide_methods.bas");if(r)goto S_49498;} +do{ +*(int8*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_FOCUS)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+76))= -1 ; +if(!qbevent)break;evnt(26070,12199,"ide_methods.bas");}while(r); +} +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEFILEDIALOG_LONG_FOCUS)-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+77))= 0 ; +if(!qbevent)break;evnt(26070,12200,"ide_methods.bas");}while(r); +} +} +S_49504:; +if ((-(*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 4 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+64))!=*_FUNC_IDEFILEDIALOG_LONG_PREVBASONLY))||new_error){ +if(qbevent){evnt(26070,12204,"ide_methods.bas");if(r)goto S_49504;} +do{ +*_FUNC_IDEFILEDIALOG_LONG_PREVBASONLY=*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 4 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26070,12205,"ide_methods.bas");}while(r); +S_49506:; +if ((-(*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 4 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+64))== 0 ))||new_error){ +if(qbevent){evnt(26070,12206,"ide_methods.bas");if(r)goto S_49506;} +do{ +*_FUNC_IDEFILEDIALOG_LONG_ALLFILES= 1 ; +if(!qbevent)break;evnt(26070,12206,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_IDEFILEDIALOG_LONG_ALLFILES= 0 ; +if(!qbevent)break;evnt(26070,12206,"ide_methods.bas");}while(r); +} +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_IDEZFILELIST(_FUNC_IDEFILEDIALOG_STRING_PATH,_FUNC_IDEFILEDIALOG_LONG_ALLFILES,qbs_new_txt_len("",0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12207,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+64))= -1 ; +if(!qbevent)break;evnt(26070,12208,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDEOPENLOOP; +if(!qbevent)break;evnt(26070,12209,"ide_methods.bas");}while(r); +} +S_49515:; +if (((-(*_FUNC_IDEFILEDIALOG_LONG_FOCUS== 5 ))&(-(*_FUNC_IDEFILEDIALOG_LONG_INFO!= 0 )))||new_error){ +if(qbevent){evnt(26070,12212,"ide_methods.bas");if(r)goto S_49515;} +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING_NEWPATH,FUNC_IDENEWFOLDER(_FUNC_IDEFILEDIALOG_STRING_PATH)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12214,"ide_methods.bas");}while(r); +S_49517:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDEFILEDIALOG_STRING_NEWPATH->len))||new_error){ +if(qbevent){evnt(26070,12215,"ide_methods.bas");if(r)goto S_49517;} +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING_F,FUNC_REMOVEDOUBLESLASHES(_FUNC_IDEFILEDIALOG_STRING_NEWPATH)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12216,"ide_methods.bas");}while(r); +do{ +goto LABEL_CHANGEPATH; +if(!qbevent)break;evnt(26070,12217,"ide_methods.bas");}while(r); +}else{ +do{ +goto LABEL_IDEOPENLOOP; +if(!qbevent)break;evnt(26070,12219,"ide_methods.bas");}while(r); +} +} +S_49524:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 27 )))|(((-(*_FUNC_IDEFILEDIALOG_LONG_FOCUS== 7 ))&(-(*_FUNC_IDEFILEDIALOG_LONG_INFO!= 0 ))))))||new_error){ +if(qbevent){evnt(26070,12223,"ide_methods.bas");if(r)goto S_49524;} +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING_IDEFILEDIALOG,qbs_new_txt_len("C",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12224,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,12225,"ide_methods.bas");}while(r); +} +S_49528:; +if (((-(*_FUNC_IDEFILEDIALOG_LONG_FOCUS== 2 ))&(-(*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+64))!=*_FUNC_IDEFILEDIALOG_LONG_PREVFILEBOXSEL)))||new_error){ +if(qbevent){evnt(26070,12228,"ide_methods.bas");if(r)goto S_49528;} +do{ +*_FUNC_IDEFILEDIALOG_LONG_PREVFILEBOXSEL=*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26070,12229,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+72)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12230,"ide_methods.bas");}while(r); +do{ +*(int8*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+76))= 0 ; +if(!qbevent)break;evnt(26070,12231,"ide_methods.bas");}while(r); +} +S_49533:; +if ((-(*_FUNC_IDEFILEDIALOG_LONG_FOCUS== 3 ))||new_error){ +if(qbevent){evnt(26070,12234,"ide_methods.bas");if(r)goto S_49533;} +S_49534:; +if ((qbs_cleanup(qbs_tmp_base,(((qbs_equal(__STRING_K,func_chr( 13 )))|(-(*_FUNC_IDEFILEDIALOG_LONG_INFO== 1 ))))&(-(*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+64))>= 1 ))))||new_error){ +if(qbevent){evnt(26070,12235,"ide_methods.bas");if(r)goto S_49534;} +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING_NEWPATH,FUNC_REMOVEDOUBLESLASHES(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+72)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12236,"ide_methods.bas");}while(r); +S_49536:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEFILEDIALOG_STRING_NEWPATH,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,12237,"ide_methods.bas");if(r)goto S_49536;} +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING_NEWPATH,qbs_new_txt_len("..",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12238,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING_F,_FUNC_IDEFILEDIALOG_STRING_NEWPATH); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12239,"ide_methods.bas");}while(r); +do{ +goto LABEL_CHANGEPATH; +if(!qbevent)break;evnt(26070,12240,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING_PATH,FUNC_REMOVEDOUBLESLASHES(FUNC_IDEZCHANGEPATH(_FUNC_IDEFILEDIALOG_STRING_PATH,_FUNC_IDEFILEDIALOG_STRING_NEWPATH))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12242,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_IDEZFILELIST(_FUNC_IDEFILEDIALOG_STRING_PATH,_FUNC_IDEFILEDIALOG_LONG_ALLFILES,qbs_new_txt_len("",0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12243,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_IDEZPATHLIST(_FUNC_IDEFILEDIALOG_STRING_PATH)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12244,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+64))= -1 ; +if(!qbevent)break;evnt(26070,12246,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+64))= 1 ; +if(!qbevent)break;evnt(26070,12247,"ide_methods.bas");}while(r); +S_49546:; +if ((-(*_FUNC_IDEFILEDIALOG_LONG_INFO== 1 ))||new_error){ +if(qbevent){evnt(26070,12248,"ide_methods.bas");if(r)goto S_49546;} +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+64))= -1 ; +if(!qbevent)break;evnt(26070,12248,"ide_methods.bas");}while(r); +} +do{ +goto LABEL_IDEOPENLOOP; +if(!qbevent)break;evnt(26070,12249,"ide_methods.bas");}while(r); +} +} +} +S_49553:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 13 )))|(((-(*_FUNC_IDEFILEDIALOG_LONG_INFO== 1 ))&(-(*_FUNC_IDEFILEDIALOG_LONG_FOCUS== 2 ))))|(((-(*_FUNC_IDEFILEDIALOG_LONG_FOCUS== 6 ))&(-(*_FUNC_IDEFILEDIALOG_LONG_INFO!= 0 ))))))||new_error){ +if(qbevent){evnt(26070,12255,"ide_methods.bas");if(r)goto S_49553;} +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING_F,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12256,"ide_methods.bas");}while(r); +S_49555:; +if ((qbs_cleanup(qbs_tmp_base,func__fileexists(_FUNC_IDEFILEDIALOG_STRING_F)))||new_error){ +if(qbevent){evnt(26070,12258,"ide_methods.bas");if(r)goto S_49555;} +do{ +goto LABEL_DIRECTLOAD; +if(!qbevent)break;evnt(26070,12258,"ide_methods.bas");}while(r); +} +S_49558:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_IDEFILEDIALOG_STRING_F,qbs_new_txt_len("",0)))&(-(*_FUNC_IDEFILEDIALOG_LONG_FOCUS== 1 ))&(qbs_equal(__STRING_K,func_chr( 13 )))))||new_error){ +if(qbevent){evnt(26070,12260,"ide_methods.bas");if(r)goto S_49558;} +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_IDEZFILELIST(_FUNC_IDEFILEDIALOG_STRING_PATH,_FUNC_IDEFILEDIALOG_LONG_ALLFILES,qbs_new_txt_len("",0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12262,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+64))= -1 ; +if(!qbevent)break;evnt(26070,12263,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDEOPENLOOP; +if(!qbevent)break;evnt(26070,12264,"ide_methods.bas");}while(r); +S_49562:; +}else{ +if (qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_IDEFILEDIALOG_STRING_F,qbs_new_txt_len("",0)))&(-(*_FUNC_IDEFILEDIALOG_LONG_FOCUS== 6 ))&(-(*_FUNC_IDEFILEDIALOG_LONG_INFO!= 0 )))){ +if(qbevent){evnt(26070,12265,"ide_methods.bas");if(r)goto S_49562;} +do{ +goto LABEL_IDEOPENLOOP; +if(!qbevent)break;evnt(26070,12266,"ide_methods.bas");}while(r); +} +} +LABEL_CHANGEPATH:; +if(qbevent){evnt(26070,12270,"ide_methods.bas");r=0;} +S_49565:; +if ((qbs_cleanup(qbs_tmp_base,func__direxists(qbs_add(qbs_add(_FUNC_IDEFILEDIALOG_STRING_PATH,__STRING1_IDEPATHSEP),_FUNC_IDEFILEDIALOG_STRING_F))))||new_error){ +if(qbevent){evnt(26070,12271,"ide_methods.bas");if(r)goto S_49565;} +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING_PATH,FUNC_REMOVEDOUBLESLASHES(FUNC_IDEZGETFILEPATH(_FUNC_IDEFILEDIALOG_STRING_PATH,qbs_add(_FUNC_IDEFILEDIALOG_STRING_F,__STRING1_IDEPATHSEP)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12273,"ide_methods.bas");}while(r); +S_49567:; +if ((-(*__LONG_IDEERROR> 1 ))||new_error){ +if(qbevent){evnt(26070,12274,"ide_methods.bas");if(r)goto S_49567;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,12274,"ide_methods.bas");}while(r); +} +S_49570:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDEFILEDIALOG_STRING_NEWPATH->len== 0 )))||new_error){ +if(qbevent){evnt(26070,12276,"ide_methods.bas");if(r)goto S_49570;} +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12277,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEFILEDIALOG_LONG_FOCUS= 1 ; +if(!qbevent)break;evnt(26070,12278,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING_NEWPATH,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12280,"ide_methods.bas");}while(r); +} +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_IDEZFILELIST(_FUNC_IDEFILEDIALOG_STRING_PATH,_FUNC_IDEFILEDIALOG_LONG_ALLFILES,qbs_new_txt_len("",0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12282,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+64))= -1 ; +if(!qbevent)break;evnt(26070,12283,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_IDEZPATHLIST(_FUNC_IDEFILEDIALOG_STRING_PATH)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12284,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+64))= -1 ; +if(!qbevent)break;evnt(26070,12285,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDEOPENLOOP; +if(!qbevent)break;evnt(26070,12286,"ide_methods.bas");}while(r); +} +S_49582:; +if ((qbs_cleanup(qbs_tmp_base,(-(func_instr(NULL,_FUNC_IDEFILEDIALOG_STRING_F,qbs_new_txt_len("?",1),0)> 0 ))|(-(func_instr(NULL,_FUNC_IDEFILEDIALOG_STRING_F,qbs_new_txt_len("*",1),0)> 0 ))))||new_error){ +if(qbevent){evnt(26070,12290,"ide_methods.bas");if(r)goto S_49582;} +S_49583:; +if ((qbs_cleanup(qbs_tmp_base,(-(func_instr(NULL,_FUNC_IDEFILEDIALOG_STRING_F,qbs_new_txt_len("/",1),0)> 0 ))|(-(func_instr(NULL,_FUNC_IDEFILEDIALOG_STRING_F,qbs_new_txt_len("\\",1),0)> 0 ))))||new_error){ +if(qbevent){evnt(26070,12291,"ide_methods.bas");if(r)goto S_49583;} +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING_PATH,FUNC_REMOVEDOUBLESLASHES(FUNC_IDEZGETFILEPATH(_FUNC_IDEFILEDIALOG_STRING_PATH,_FUNC_IDEFILEDIALOG_STRING_F))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12293,"ide_methods.bas");}while(r); +S_49585:; +if ((-(*__LONG_IDEERROR> 1 ))||new_error){ +if(qbevent){evnt(26070,12294,"ide_methods.bas");if(r)goto S_49585;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,12294,"ide_methods.bas");}while(r); +} +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_IDEZPATHLIST(_FUNC_IDEFILEDIALOG_STRING_PATH)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12295,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+64))= -1 ; +if(!qbevent)break;evnt(26070,12296,"ide_methods.bas");}while(r); +} +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDEFILEDIALOG_STRING_F); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12298,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_IDEZFILELIST(_FUNC_IDEFILEDIALOG_STRING_PATH,&(pass5468= 2 ),_FUNC_IDEFILEDIALOG_STRING_F)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12299,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+64))= -1 ; +if(!qbevent)break;evnt(26070,12300,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; +if(!qbevent)break;evnt(26070,12301,"ide_methods.bas");}while(r); +do{ +*(int8*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+76))= -1 ; +if(!qbevent)break;evnt(26070,12302,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+77))= 0 ; +if(!qbevent)break;evnt(26070,12303,"ide_methods.bas");}while(r); +S_49597:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_lcase(qbs_right(_FUNC_IDEFILEDIALOG_STRING_F, 4 )),qbs_new_txt_len(".bas",4))))||new_error){ +if(qbevent){evnt(26070,12304,"ide_methods.bas");if(r)goto S_49597;} +do{ +*_FUNC_IDEFILEDIALOG_LONG_ALLFILES= 0 ; +if(!qbevent)break;evnt(26070,12305,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 4 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+64))= 0 ; +if(!qbevent)break;evnt(26070,12306,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEFILEDIALOG_LONG_PREVBASONLY=*(int32*)(((char*)_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[0])+((array_check(( 4 )-_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[4],_FUNC_IDEFILEDIALOG_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26070,12307,"ide_methods.bas");}while(r); +} +do{ +goto LABEL_IDEOPENLOOP; +if(!qbevent)break;evnt(26070,12309,"ide_methods.bas");}while(r); +} +LABEL_DIRECTLOAD:; +if(qbevent){evnt(26070,12312,"ide_methods.bas");r=0;} +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING_PATH,FUNC_REMOVEDOUBLESLASHES(FUNC_IDEZGETFILEPATH(_FUNC_IDEFILEDIALOG_STRING_PATH,_FUNC_IDEFILEDIALOG_STRING_F))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12313,"ide_methods.bas");}while(r); +S_49605:; +if ((-(*__LONG_IDEERROR> 1 ))||new_error){ +if(qbevent){evnt(26070,12314,"ide_methods.bas");if(r)goto S_49605;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,12314,"ide_methods.bas");}while(r); +} +S_49608:; +if ((-(*_FUNC_IDEFILEDIALOG_BYTE_MODE== 1 ))||new_error){ +if(qbevent){evnt(26070,12316,"ide_methods.bas");if(r)goto S_49608;} +S_49609:; +if ((qbs_cleanup(qbs_tmp_base,-(func__fileexists(qbs_add(qbs_add(_FUNC_IDEFILEDIALOG_STRING_PATH,__STRING1_IDEPATHSEP),_FUNC_IDEFILEDIALOG_STRING_F))== 0 )))||new_error){ +if(qbevent){evnt(26070,12317,"ide_methods.bas");if(r)goto S_49609;} +S_49610:; +if ((qbs_cleanup(qbs_tmp_base,((qbs_notequal(qbs_lcase(qbs_right(_FUNC_IDEFILEDIALOG_STRING_F, 4 )),qbs_new_txt_len(".bas",4))))&(-(*_FUNC_IDEFILEDIALOG_LONG_ALLFILES== 0 ))))||new_error){ +if(qbevent){evnt(26070,12319,"ide_methods.bas");if(r)goto S_49610;} +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING_F,qbs_add(_FUNC_IDEFILEDIALOG_STRING_F,qbs_new_txt_len(".bas",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12319,"ide_methods.bas");}while(r); +} +} +do{ +*__LONG_IDEERROR= 2 ; +if(!qbevent)break;evnt(26070,12323,"ide_methods.bas");}while(r); +S_49615:; +if ((qbs_cleanup(qbs_tmp_base,-(func__fileexists(qbs_add(qbs_add(_FUNC_IDEFILEDIALOG_STRING_PATH,__STRING1_IDEPATHSEP),_FUNC_IDEFILEDIALOG_STRING_F))== 0 )))||new_error){ +if(qbevent){evnt(26070,12324,"ide_methods.bas");if(r)goto S_49615;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,12324,"ide_methods.bas");}while(r); +} +S_49618:; +if ((qbs_cleanup(qbs_tmp_base,-(FUNC_BINARYFORMATCHECK(_FUNC_IDEFILEDIALOG_STRING_PATH,__STRING1_IDEPATHSEP,_FUNC_IDEFILEDIALOG_STRING_F)> 0 )))||new_error){ +if(qbevent){evnt(26070,12326,"ide_methods.bas");if(r)goto S_49618;} +S_49619:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_IDEOPENFILE->len))||new_error){ +if(qbevent){evnt(26070,12327,"ide_methods.bas");if(r)goto S_49619;} +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING_IDEFILEDIALOG,qbs_new_txt_len("C",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12328,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,12329,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_IDEFILEDIALOG_LONG_INFO= 0 ; +if(!qbevent)break;evnt(26070,12331,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDEOPENLOOP; +if(!qbevent)break;evnt(26070,12331,"ide_methods.bas");}while(r); +} +} +do{ +*__LONG_IDEERROR= 3 ; +if(!qbevent)break;evnt(26070,12336,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_IDET,qbs_add(l2string( 0 ),l2string( 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12337,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEL= 1 ; +if(!qbevent)break;evnt(26070,12337,"ide_methods.bas");}while(r); +do{ +*__LONG_IDELI= 1 ; +if(!qbevent)break;evnt(26070,12337,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEN= 1 ; +if(!qbevent)break;evnt(26070,12337,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEBMKN= 0 ; +if(!qbevent)break;evnt(26070,12337,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESX= 1 ; +if(!qbevent)break;evnt(26070,12338,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESY= 1 ; +if(!qbevent)break;evnt(26070,12339,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECX= 1 ; +if(!qbevent)break;evnt(26070,12340,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECY= 1 ; +if(!qbevent)break;evnt(26070,12341,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESELECT= 0 ; +if(!qbevent)break;evnt(26070,12342,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEFOCUSLINE= 0 ; +if(!qbevent)break;evnt(26070,12343,"ide_methods.bas");}while(r); +do{ +SUB_LINEINPUT3LOAD(qbs_add(qbs_add(_FUNC_IDEFILEDIALOG_STRING_PATH,__STRING1_IDEPATHSEP),_FUNC_IDEFILEDIALOG_STRING_F)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12344,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_IDET,func_space(__STRING_LINEINPUT3BUFFER->len* 8 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12345,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEFILEDIALOG_LONG_I2= 1 ; +if(!qbevent)break;evnt(26070,12346,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEFILEDIALOG_LONG_N= 0 ; +if(!qbevent)break;evnt(26070,12347,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING_CHRTAB,func_chr( 9 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12348,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING_SPACE1,qbs_new_txt_len(" ",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12349,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING_SPACE2,qbs_new_txt_len(" ",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12349,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING_SPACE3,qbs_new_txt_len(" ",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12349,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING_SPACE4,qbs_new_txt_len(" ",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12349,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING_CHR7,func_chr( 7 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12350,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING_CHR11,func_chr( 11 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12350,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING_CHR12,func_chr( 12 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12350,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING_CHR28,func_chr( 28 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12350,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING_CHR29,func_chr( 29 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12350,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING_CHR30,func_chr( 30 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12350,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING_CHR31,func_chr( 31 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12350,"ide_methods.bas");}while(r); +S_49655:; +do{ +if(qbevent){evnt(26070,12351,"ide_methods.bas");if(r)goto S_49655;} +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING_A,FUNC_LINEINPUT3()); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12352,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEFILEDIALOG_LONG_L=_FUNC_IDEFILEDIALOG_STRING_A->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12353,"ide_methods.bas");}while(r); +S_49658:; +if ((*_FUNC_IDEFILEDIALOG_LONG_L)||new_error){ +if(qbevent){evnt(26070,12354,"ide_methods.bas");if(r)goto S_49658;} +do{ +*_FUNC_IDEFILEDIALOG_LONG_ASCA=qbs_asc(_FUNC_IDEFILEDIALOG_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12354,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_IDEFILEDIALOG_LONG_ASCA= -1 ; +if(!qbevent)break;evnt(26070,12354,"ide_methods.bas");}while(r); +} +S_49663:; +if ((-(*_FUNC_IDEFILEDIALOG_LONG_ASCA!= 13 ))||new_error){ +if(qbevent){evnt(26070,12355,"ide_methods.bas");if(r)goto S_49663;} +S_49664:; +if ((-(*_FUNC_IDEFILEDIALOG_LONG_ASCA!= -1 ))||new_error){ +if(qbevent){evnt(26070,12356,"ide_methods.bas");if(r)goto S_49664;} +LABEL_IDEOPENFIXTABS:; +if(qbevent){evnt(26070,12358,"ide_methods.bas");r=0;} +do{ +*_FUNC_IDEFILEDIALOG_LONG_X=func_instr(NULL,_FUNC_IDEFILEDIALOG_STRING_A,_FUNC_IDEFILEDIALOG_STRING_CHRTAB,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12359,"ide_methods.bas");}while(r); +S_49666:; +if ((*_FUNC_IDEFILEDIALOG_LONG_X)||new_error){ +if(qbevent){evnt(26070,12360,"ide_methods.bas");if(r)goto S_49666;} +do{ +*_FUNC_IDEFILEDIALOG_LONG_X2=(*_FUNC_IDEFILEDIALOG_LONG_X- 1 )% 4 ; +if(!qbevent)break;evnt(26070,12361,"ide_methods.bas");}while(r); +S_49668:; +if ((-(*_FUNC_IDEFILEDIALOG_LONG_X2== 0 ))||new_error){ +if(qbevent){evnt(26070,12362,"ide_methods.bas");if(r)goto S_49668;} +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING_A,qbs_add(qbs_add(qbs_left(_FUNC_IDEFILEDIALOG_STRING_A,*_FUNC_IDEFILEDIALOG_LONG_X- 1 ),_FUNC_IDEFILEDIALOG_STRING_SPACE4),qbs_right(_FUNC_IDEFILEDIALOG_STRING_A,*_FUNC_IDEFILEDIALOG_LONG_L-*_FUNC_IDEFILEDIALOG_LONG_X))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12362,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEFILEDIALOG_LONG_L=*_FUNC_IDEFILEDIALOG_LONG_L+ 3 ; +if(!qbevent)break;evnt(26070,12362,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDEOPENFIXTABS; +if(!qbevent)break;evnt(26070,12362,"ide_methods.bas");}while(r); +} +S_49673:; +if ((-(*_FUNC_IDEFILEDIALOG_LONG_X2== 1 ))||new_error){ +if(qbevent){evnt(26070,12363,"ide_methods.bas");if(r)goto S_49673;} +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING_A,qbs_add(qbs_add(qbs_left(_FUNC_IDEFILEDIALOG_STRING_A,*_FUNC_IDEFILEDIALOG_LONG_X- 1 ),_FUNC_IDEFILEDIALOG_STRING_SPACE3),qbs_right(_FUNC_IDEFILEDIALOG_STRING_A,*_FUNC_IDEFILEDIALOG_LONG_L-*_FUNC_IDEFILEDIALOG_LONG_X))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12363,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEFILEDIALOG_LONG_L=*_FUNC_IDEFILEDIALOG_LONG_L+ 2 ; +if(!qbevent)break;evnt(26070,12363,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDEOPENFIXTABS; +if(!qbevent)break;evnt(26070,12363,"ide_methods.bas");}while(r); +} +S_49678:; +if ((-(*_FUNC_IDEFILEDIALOG_LONG_X2== 2 ))||new_error){ +if(qbevent){evnt(26070,12364,"ide_methods.bas");if(r)goto S_49678;} +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING_A,qbs_add(qbs_add(qbs_left(_FUNC_IDEFILEDIALOG_STRING_A,*_FUNC_IDEFILEDIALOG_LONG_X- 1 ),_FUNC_IDEFILEDIALOG_STRING_SPACE2),qbs_right(_FUNC_IDEFILEDIALOG_STRING_A,*_FUNC_IDEFILEDIALOG_LONG_L-*_FUNC_IDEFILEDIALOG_LONG_X))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12364,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEFILEDIALOG_LONG_L=*_FUNC_IDEFILEDIALOG_LONG_L+ 1 ; +if(!qbevent)break;evnt(26070,12364,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDEOPENFIXTABS; +if(!qbevent)break;evnt(26070,12364,"ide_methods.bas");}while(r); +} +S_49683:; +if ((-(*_FUNC_IDEFILEDIALOG_LONG_X2== 3 ))||new_error){ +if(qbevent){evnt(26070,12365,"ide_methods.bas");if(r)goto S_49683;} +do{ +qbs_set(_FUNC_IDEFILEDIALOG_STRING_A,qbs_add(qbs_add(qbs_left(_FUNC_IDEFILEDIALOG_STRING_A,*_FUNC_IDEFILEDIALOG_LONG_X- 1 ),_FUNC_IDEFILEDIALOG_STRING_SPACE1),qbs_right(_FUNC_IDEFILEDIALOG_STRING_A,*_FUNC_IDEFILEDIALOG_LONG_L-*_FUNC_IDEFILEDIALOG_LONG_X))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12365,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDEOPENFIXTABS; +if(!qbevent)break;evnt(26070,12365,"ide_methods.bas");}while(r); +} +} +} +do{ +sub_mid(__STRING_IDET,*_FUNC_IDEFILEDIALOG_LONG_I2,*_FUNC_IDEFILEDIALOG_LONG_L+ 8 ,qbs_add(qbs_add(l2string(*_FUNC_IDEFILEDIALOG_LONG_L),_FUNC_IDEFILEDIALOG_STRING_A),l2string(*_FUNC_IDEFILEDIALOG_LONG_L)),1); +if(!qbevent)break;evnt(26070,12368,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEFILEDIALOG_LONG_I2=*_FUNC_IDEFILEDIALOG_LONG_I2+*_FUNC_IDEFILEDIALOG_LONG_L+ 8 ; +if(!qbevent)break;evnt(26070,12368,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEFILEDIALOG_LONG_N=*_FUNC_IDEFILEDIALOG_LONG_N+ 1 ; +if(!qbevent)break;evnt(26070,12368,"ide_methods.bas");}while(r); +} +S_49693:; +dl_continue_5472:; +}while((!(-(*_FUNC_IDEFILEDIALOG_LONG_ASCA== 13 )))&&(!new_error)); +dl_exit_5472:; +if(qbevent){evnt(26070,12370,"ide_methods.bas");if(r)goto S_49693;} +do{ +qbs_set(__STRING_LINEINPUT3BUFFER,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12371,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEN=*_FUNC_IDEFILEDIALOG_LONG_N; +if(!qbevent)break;evnt(26070,12372,"ide_methods.bas");}while(r); +S_49696:; +if ((-(*_FUNC_IDEFILEDIALOG_LONG_N== 0 ))||new_error){ +if(qbevent){evnt(26070,12372,"ide_methods.bas");if(r)goto S_49696;} +do{ +qbs_set(__STRING_IDET,qbs_add(l2string( 0 ),l2string( 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12372,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEN= 1 ; +if(!qbevent)break;evnt(26070,12372,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(__STRING_IDET,qbs_left(__STRING_IDET,*_FUNC_IDEFILEDIALOG_LONG_I2- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12372,"ide_methods.bas");}while(r); +} +do{ if (__ARRAY_BYTE_IDEBREAKPOINTS[2]&2){ error(10); @@ -166626,9 +166626,9 @@ __ARRAY_BYTE_IDEBREAKPOINTS[0]=(ptrszint)calloc(__ARRAY_BYTE_IDEBREAKPOINTS[5]*1 if (!__ARRAY_BYTE_IDEBREAKPOINTS[0]) error(257); } __ARRAY_BYTE_IDEBREAKPOINTS[2]|=1; -} -if(!qbevent)break;evnt(26070,12373,"ide_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26070,12373,"ide_methods.bas");}while(r); +do{ if (__ARRAY_BYTE_IDESKIPLINES[2]&2){ error(10); @@ -166652,17 +166652,17 @@ __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(26070,12374,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_VARIABLEWATCHLIST,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12375,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_BACKUPVARIABLEWATCHLIST,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12376,"ide_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26070,12374,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_VARIABLEWATCHLIST,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12375,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_BACKUPVARIABLEWATCHLIST,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12376,"ide_methods.bas");}while(r); +do{ if (__ARRAY_UDT_BACKUPUSEDVARIABLELIST[2]&2){ error(10); @@ -166707,1176 +166707,1176 @@ while(tmp_long--){ *(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 96)=qbs_new(0,0); *(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 104)=qbs_new(0,0); *(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 112)=qbs_new(0,0);} -} -if(!qbevent)break;evnt(26070,12376,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_BACKUPTYPEDEFINITIONS,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12377,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_CALLSTACKLIST,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12378,"ide_methods.bas");}while(r); -do{ -*__LONG_CALLSTACKLENGTH= 0 ; -if(!qbevent)break;evnt(26070,12378,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEERROR= 1 ; -if(!qbevent)break;evnt(26070,12380,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_IDEPROGNAME,_FUNC_IDEFILEDIALOG_STRING_F); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12381,"ide_methods.bas");}while(r); -do{ -sub__title(qbs_add(qbs_add(__STRING_IDEPROGNAME,qbs_new_txt_len(" - ",3)),__STRING_WINDOWTITLE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12381,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_LISTOFCUSTOMKEYWORDS,qbs_left(__STRING_LISTOFCUSTOMKEYWORDS,*__LONG_CUSTOMKEYWORDSLENGTH)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12382,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_IDEPATH,_FUNC_IDEFILEDIALOG_STRING_PATH); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12383,"ide_methods.bas");}while(r); -do{ -SUB_IDEADDRECENT(qbs_add(qbs_add(__STRING_IDEPATH,__STRING1_IDEPATHSEP),__STRING_IDEPROGNAME)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12384,"ide_methods.bas");}while(r); -do{ -SUB_IDEIMPORTBOOKMARKS(qbs_add(qbs_add(__STRING_IDEPATH,__STRING1_IDEPATHSEP),__STRING_IDEPROGNAME)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12385,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,12386,"ide_methods.bas");}while(r); -S_49718:; -}else{ -if (-(*_FUNC_IDEFILEDIALOG_BYTE_MODE== 2 )){ -if(qbevent){evnt(26070,12387,"ide_methods.bas");if(r)goto S_49718;} -S_49719:; -if ((qbs_cleanup(qbs_tmp_base,-(FUNC_FILEHASEXTENSION(_FUNC_IDEFILEDIALOG_STRING_F)== 0 )))||new_error){ -if(qbevent){evnt(26070,12388,"ide_methods.bas");if(r)goto S_49719;} -do{ -qbs_set(_FUNC_IDEFILEDIALOG_STRING_F,qbs_add(_FUNC_IDEFILEDIALOG_STRING_F,qbs_new_txt_len(".bas",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12388,"ide_methods.bas");}while(r); -} -do{ -*__LONG_IDEERROR= 3 ; -if(!qbevent)break;evnt(26070,12390,"ide_methods.bas");}while(r); -do{ -sub_open(qbs_add(qbs_add(_FUNC_IDEFILEDIALOG_STRING_PATH,__STRING1_IDEPATHSEP),_FUNC_IDEFILEDIALOG_STRING_F), 2 ,NULL,NULL, 150 ,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12391,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEERROR= 1 ; -if(!qbevent)break;evnt(26070,12392,"ide_methods.bas");}while(r); -S_49725:; -if ((func_lof( 150 ))||new_error){ -if(qbevent){evnt(26070,12393,"ide_methods.bas");if(r)goto S_49725;} -do{ -sub_close( 150 ,1); -if(!qbevent)break;evnt(26070,12394,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEFILEDIALOG_STRING_A,FUNC_IDEFILEEXISTS(_FUNC_IDEFILEDIALOG_STRING_F)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12395,"ide_methods.bas");}while(r); -S_49728:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEFILEDIALOG_STRING_A,qbs_new_txt_len("N",1))))||new_error){ -if(qbevent){evnt(26070,12396,"ide_methods.bas");if(r)goto S_49728;} -do{ -qbs_set(_FUNC_IDEFILEDIALOG_STRING_IDEFILEDIALOG,qbs_new_txt_len("C",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12397,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,12398,"ide_methods.bas");}while(r); -} -}else{ -do{ -sub_close( 150 ,1); -if(!qbevent)break;evnt(26070,12401,"ide_methods.bas");}while(r); -} -do{ -qbs_set(__STRING_IDEPROGNAME,_FUNC_IDEFILEDIALOG_STRING_F); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12403,"ide_methods.bas");}while(r); -do{ -sub__title(qbs_add(qbs_add(__STRING_IDEPROGNAME,qbs_new_txt_len(" - ",3)),__STRING_WINDOWTITLE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12403,"ide_methods.bas");}while(r); -do{ -SUB_IDESAVE(qbs_add(qbs_add(_FUNC_IDEFILEDIALOG_STRING_PATH,__STRING1_IDEPATHSEP),_FUNC_IDEFILEDIALOG_STRING_F)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12404,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_IDEPATH,_FUNC_IDEFILEDIALOG_STRING_PATH); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12405,"ide_methods.bas");}while(r); -do{ -SUB_IDEADDRECENT(qbs_add(qbs_add(__STRING_IDEPATH,__STRING1_IDEPATHSEP),__STRING_IDEPROGNAME)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12406,"ide_methods.bas");}while(r); -do{ -SUB_IDESAVEBOOKMARKS(qbs_add(qbs_add(__STRING_IDEPATH,__STRING1_IDEPATHSEP),__STRING_IDEPROGNAME)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12407,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,12408,"ide_methods.bas");}while(r); -} -} -} -LABEL_IDEOPENLOOP:; -if(qbevent){evnt(26070,12412,"ide_methods.bas");r=0;} -do{ -*_FUNC_IDEFILEDIALOG_LONG_MOUSEDOWN= 0 ; -if(!qbevent)break;evnt(26070,12415,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEFILEDIALOG_LONG_MOUSEUP= 0 ; -if(!qbevent)break;evnt(26070,12416,"ide_methods.bas");}while(r); -dl_continue_5455:; -}while(1); -dl_exit_5455:; -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free207.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_IDEFILEDIALOG_STRING_IDEFILEDIALOG);return _FUNC_IDEFILEDIALOG_STRING_IDEFILEDIALOG; -} -void SUB_IDEPAR(void*_SUB_IDEPAR_UDT_PAR,int32*_SUB_IDEPAR_LONG_W,int32*_SUB_IDEPAR_LONG_H,qbs*_SUB_IDEPAR_STRING_TITLE){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data208.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -*(int32*)(((char*)_SUB_IDEPAR_UDT_PAR)+(0))=((*__LONG_IDEWX/ 2 ))-(*_SUB_IDEPAR_LONG_W/ 2 ); -if(!qbevent)break;evnt(26070,12421,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_SUB_IDEPAR_UDT_PAR)+(4))=(((*__LONG_IDEWY+*__LONG_IDESUBWINDOW)/ 2 ))-(*_SUB_IDEPAR_LONG_H/ 2 ); -if(!qbevent)break;evnt(26070,12422,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_SUB_IDEPAR_UDT_PAR)+(8))=*_SUB_IDEPAR_LONG_W; -if(!qbevent)break;evnt(26070,12423,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_SUB_IDEPAR_UDT_PAR)+(12))=*_SUB_IDEPAR_LONG_H; -if(!qbevent)break;evnt(26070,12424,"ide_methods.bas");}while(r); -S_49751:; -if ((qbs_cleanup(qbs_tmp_base,_SUB_IDEPAR_STRING_TITLE->len))||new_error){ -if(qbevent){evnt(26070,12425,"ide_methods.bas");if(r)goto S_49751;} -do{ -*(int32*)(((char*)_SUB_IDEPAR_UDT_PAR)+(16))=FUNC_IDENEWTXT(_SUB_IDEPAR_STRING_TITLE); -if(!qbevent)break;evnt(26070,12425,"ide_methods.bas");}while(r); -} -do{ -sub__resize( 2 ,NULL); -if(!qbevent)break;evnt(26070,12426,"ide_methods.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free208.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -qbs* FUNC_IDERESTORE(){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data209.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,12430,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 0 , 2 ); -if(!qbevent)break;evnt(26070,12431,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 0 , 1 ); -if(!qbevent)break;evnt(26070,12432,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,12433,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDERESTORE_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Backup found",12),qbs_new_txt_len("Recover program from auto-saved backup?",39),qbs_new_txt_len("#Yes;#No",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12434,"ide_methods.bas");}while(r); -S_49760:; -if ((-(*_FUNC_IDERESTORE_LONG_RESULT== 1 ))||new_error){ -if(qbevent){evnt(26070,12435,"ide_methods.bas");if(r)goto S_49760;} -do{ -qbs_set(_FUNC_IDERESTORE_STRING_IDERESTORE,qbs_new_txt_len("Y",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12435,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDERESTORE_STRING_IDERESTORE,qbs_new_txt_len("N",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12435,"ide_methods.bas");}while(r); -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free209.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_IDERESTORE_STRING_IDERESTORE);return _FUNC_IDERESTORE_STRING_IDERESTORE; -} -qbs* FUNC_IDECLEARHISTORY(qbs*_FUNC_IDECLEARHISTORY_STRING_WHICHHISTORY){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data210.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -S_49765:; -if(qbevent){evnt(26070,12439,"ide_methods.bas");if(r)goto S_49765;} -S_49766:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDECLEARHISTORY_STRING_WHICHHISTORY,qbs_new_txt_len("SEARCH",6))))||new_error){ -if(qbevent){evnt(26070,12440,"ide_methods.bas");if(r)goto S_49766;} -do{ -qbs_set(_FUNC_IDECLEARHISTORY_STRING_T,qbs_new_txt_len("Clear search history",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12440,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECLEARHISTORY_STRING_M,qbs_new_txt_len("This cannot be undone. Proceed?",31)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12440,"ide_methods.bas");}while(r); -sc_ec_364_end:; -goto sc_5477_end; -} -S_49769:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDECLEARHISTORY_STRING_WHICHHISTORY,qbs_new_txt_len("FILES",5))))||new_error){ -if(qbevent){evnt(26070,12441,"ide_methods.bas");if(r)goto S_49769;} -do{ -qbs_set(_FUNC_IDECLEARHISTORY_STRING_T,qbs_new_txt_len("Clear recent files",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12441,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECLEARHISTORY_STRING_M,qbs_new_txt_len("This cannot be undone. Proceed?",31)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12441,"ide_methods.bas");}while(r); -sc_ec_365_end:; -goto sc_5477_end; -} -sc_5477_end:; -do{ -*_FUNC_IDECLEARHISTORY_LONG_RESULT=FUNC_IDEMESSAGEBOX(_FUNC_IDECLEARHISTORY_STRING_T,_FUNC_IDECLEARHISTORY_STRING_M,qbs_new_txt_len("#Yes;#No",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12443,"ide_methods.bas");}while(r); -S_49774:; -if ((-(*_FUNC_IDECLEARHISTORY_LONG_RESULT== 1 ))||new_error){ -if(qbevent){evnt(26070,12444,"ide_methods.bas");if(r)goto S_49774;} -do{ -qbs_set(_FUNC_IDECLEARHISTORY_STRING_IDECLEARHISTORY,qbs_new_txt_len("Y",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12444,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDECLEARHISTORY_STRING_IDECLEARHISTORY,qbs_new_txt_len("N",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12444,"ide_methods.bas");}while(r); -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free210.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_IDECLEARHISTORY_STRING_IDECLEARHISTORY);return _FUNC_IDECLEARHISTORY_STRING_IDECLEARHISTORY; -} -void SUB_IDESAVE(qbs*_SUB_IDESAVE_STRING_F){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data211.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -*__LONG_IDEERROR= 6 ; -if(!qbevent)break;evnt(26070,12448,"ide_methods.bas");}while(r); -do{ -sub_open(_SUB_IDESAVE_STRING_F, 4 ,NULL,NULL, 151 ,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12449,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEERROR= 1 ; -if(!qbevent)break;evnt(26070,12450,"ide_methods.bas");}while(r); -S_49782:; -fornext_value5480= 1 ; -fornext_finalvalue5480=*__LONG_IDEN; -fornext_step5480= 1 ; -if (fornext_step5480<0) fornext_step_negative5480=1; else fornext_step_negative5480=0; -if (new_error) goto fornext_error5480; -goto fornext_entrylabel5480; -while(1){ -fornext_value5480=fornext_step5480+(*_SUB_IDESAVE_LONG_I); -fornext_entrylabel5480: -*_SUB_IDESAVE_LONG_I=fornext_value5480; -if (fornext_step_negative5480){ -if (fornext_value5480fornext_finalvalue5480) break; -} -fornext_error5480:; -if(qbevent){evnt(26070,12451,"ide_methods.bas");if(r)goto S_49782;} -do{ -qbs_set(_SUB_IDESAVE_STRING_A,FUNC_IDEGETLINE(_SUB_IDESAVE_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12452,"ide_methods.bas");}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 151 ; -if (new_error) goto skip5481; -sub_file_print(tmp_fileno,_SUB_IDESAVE_STRING_A, 0, 0, 1); -if (new_error) goto skip5481; -skip5481: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(26070,12453,"ide_methods.bas");}while(r); -fornext_continue_5479:; -} -fornext_exit_5479:; -do{ -sub_close( 151 ,1); -if(!qbevent)break;evnt(26070,12455,"ide_methods.bas");}while(r); -do{ -SUB_IDESAVEBOOKMARKS(_SUB_IDESAVE_STRING_F); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12456,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEUNSAVED= 0 ; -if(!qbevent)break;evnt(26070,12457,"ide_methods.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free211.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -qbs* FUNC_IDESAVENOW(){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data212.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -qbs_set(_FUNC_IDESAVENOW_STRING_M,qbs_new_txt_len("Program is not saved. Save it now?",34)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12461,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDESAVENOW_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("",0),_FUNC_IDESAVENOW_STRING_M,qbs_new_txt_len("#Yes;#No;#Cancel",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12462,"ide_methods.bas");}while(r); -S_49791:; -if(qbevent){evnt(26070,12463,"ide_methods.bas");if(r)goto S_49791;} -S_49792:; -if (((*_FUNC_IDESAVENOW_LONG_RESULT==( 1 )))||new_error){ -if(qbevent){evnt(26070,12464,"ide_methods.bas");if(r)goto S_49792;} -do{ -qbs_set(_FUNC_IDESAVENOW_STRING_IDESAVENOW,qbs_new_txt_len("Y",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12464,"ide_methods.bas");}while(r); -sc_ec_366_end:; -goto sc_5482_end; -} -S_49794:; -if (((*_FUNC_IDESAVENOW_LONG_RESULT==( 2 )))||new_error){ -if(qbevent){evnt(26070,12465,"ide_methods.bas");if(r)goto S_49794;} -do{ -qbs_set(_FUNC_IDESAVENOW_STRING_IDESAVENOW,qbs_new_txt_len("N",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12465,"ide_methods.bas");}while(r); -sc_ec_367_end:; -goto sc_5482_end; -} -S_49796:; -if (((*_FUNC_IDESAVENOW_LONG_RESULT==( 0 ))||(*_FUNC_IDESAVENOW_LONG_RESULT==( 3 )))||new_error){ -if(qbevent){evnt(26070,12466,"ide_methods.bas");if(r)goto S_49796;} -do{ -qbs_set(_FUNC_IDESAVENOW_STRING_IDESAVENOW,qbs_new_txt_len("C",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12466,"ide_methods.bas");}while(r); -sc_ec_368_end:; -goto sc_5482_end; -} -sc_5482_end:; -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free212.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_IDESAVENOW_STRING_IDESAVENOW);return _FUNC_IDESAVENOW_STRING_IDESAVENOW; -} -void SUB_IDESETLINE(int32*_SUB_IDESETLINE_LONG_I,qbs*_SUB_IDESETLINE_STRING_TEXT){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data213.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -qbs_set(_SUB_IDESETLINE_STRING_TEXT,qbs_rtrim(_SUB_IDESETLINE_STRING_TEXT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12472,"ide_methods.bas");}while(r); -S_49800:; -if ((-(*_SUB_IDESETLINE_LONG_I!= -1 ))||new_error){ -if(qbevent){evnt(26070,12474,"ide_methods.bas");if(r)goto S_49800;} -do{ -SUB_IDEGOTOLINE(_SUB_IDESETLINE_LONG_I); -if(!qbevent)break;evnt(26070,12474,"ide_methods.bas");}while(r); -} -do{ -*_SUB_IDESETLINE_LONG_TEXTLEN=_SUB_IDESETLINE_STRING_TEXT->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12475,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_IDET,qbs_add(qbs_add(qbs_add(qbs_add(qbs_left(__STRING_IDET,*__LONG_IDELI- 1 ),l2string(*_SUB_IDESETLINE_LONG_TEXTLEN)),_SUB_IDESETLINE_STRING_TEXT),l2string(*_SUB_IDESETLINE_LONG_TEXTLEN)),qbs_right(__STRING_IDET,__STRING_IDET->len-*__LONG_IDELI+ 1 -string2l(func_mid(__STRING_IDET,*__LONG_IDELI, 4 ,0|1))- 8 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12476,"ide_methods.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free213.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -float FUNC_TIMEELAPSEDSINCE(float*_FUNC_TIMEELAPSEDSINCE_SINGLE_STARTTIME){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data214.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -S_49805:; -if ((-(((float)(*_FUNC_TIMEELAPSEDSINCE_SINGLE_STARTTIME))>((float)(func_timer(NULL,0)))))||new_error){ -if(qbevent){evnt(26070,12481,"ide_methods.bas");if(r)goto S_49805;} -do{ -*_FUNC_TIMEELAPSEDSINCE_SINGLE_STARTTIME=*_FUNC_TIMEELAPSEDSINCE_SINGLE_STARTTIME- 86400 ; -if(!qbevent)break;evnt(26070,12481,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_TIMEELAPSEDSINCE_SINGLE_TIMEELAPSEDSINCE=func_timer(NULL,0)-*_FUNC_TIMEELAPSEDSINCE_SINGLE_STARTTIME; -if(!qbevent)break;evnt(26070,12482,"ide_methods.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free214.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -return *_FUNC_TIMEELAPSEDSINCE_SINGLE_TIMEELAPSEDSINCE; -} -void SUB_IDESHOWTEXT(){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data215.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -S_49809:; -if ((-(*__BYTE_IDESHOWTEXTBYPASSCOLORRESTORE== 0 ))||new_error){ -if(qbevent){evnt(26070,12487,"ide_methods.bas");if(r)goto S_49809;} -do{ -sub__palettecolor( 1 ,*__ULONG_IDEBACKGROUNDCOLOR, 0 ,1); -if(!qbevent)break;evnt(26070,12488,"ide_methods.bas");}while(r); -do{ -sub__palettecolor( 2 ,func__rgb32( 84 , 84 , 84 ), 0 ,1); -if(!qbevent)break;evnt(26070,12489,"ide_methods.bas");}while(r); -do{ -sub__palettecolor( 4 ,*__ULONG_IDEERRORCOLOR, 0 ,1); -if(!qbevent)break;evnt(26070,12490,"ide_methods.bas");}while(r); -do{ -sub__palettecolor( 5 ,*__ULONG_IDEBRACKETHIGHLIGHTCOLOR, 0 ,1); -if(!qbevent)break;evnt(26070,12491,"ide_methods.bas");}while(r); -do{ -sub__palettecolor( 6 ,*__ULONG_IDEBACKGROUNDCOLOR2, 0 ,1); -if(!qbevent)break;evnt(26070,12492,"ide_methods.bas");}while(r); -do{ -sub__palettecolor( 7 ,*__ULONG_IDECHROMACOLOR, 0 ,1); -if(!qbevent)break;evnt(26070,12493,"ide_methods.bas");}while(r); -do{ -sub__palettecolor( 8 ,*__ULONG_IDENUMBERSCOLOR, 0 ,1); -if(!qbevent)break;evnt(26070,12494,"ide_methods.bas");}while(r); -do{ -sub__palettecolor( 10 ,*__ULONG_IDEMETACOMMANDCOLOR, 0 ,1); -if(!qbevent)break;evnt(26070,12495,"ide_methods.bas");}while(r); -do{ -sub__palettecolor( 11 ,*__ULONG_IDECOMMENTCOLOR, 0 ,1); -if(!qbevent)break;evnt(26070,12496,"ide_methods.bas");}while(r); -do{ -sub__palettecolor( 12 ,*__ULONG_IDEKEYWORDCOLOR, 0 ,1); -if(!qbevent)break;evnt(26070,12497,"ide_methods.bas");}while(r); -do{ -sub__palettecolor( 13 ,*__ULONG_IDETEXTCOLOR, 0 ,1); -if(!qbevent)break;evnt(26070,12498,"ide_methods.bas");}while(r); -do{ -sub__palettecolor( 14 ,*__ULONG_IDEQUOTECOLOR, 0 ,1); -if(!qbevent)break;evnt(26070,12499,"ide_methods.bas");}while(r); -} -do{ -*__BYTE_IDESHOWTEXTBYPASSCOLORRESTORE= 0 ; -if(!qbevent)break;evnt(26070,12501,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_CHAR__ASCII_CHR_046__SEP,qbs_add(func_chr( 34 ),qbs_new_txt_len(" =<>+-/\\^:;,*()'",16))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12503,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_INITIALNUM__ASCII_CHR_046__CHAR,qbs_new_txt_len("0123456789-.&",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12504,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_NUM__ASCII_CHR_046__CHAR,qbs_new_txt_len("0123456789EDed+-.`%&!#~HBOhboACFacf",35)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12505,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(26070,12507,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(26070,12509,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(26070,12510,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESHOWTEXT_SINGLE_STARTTIME=func_timer(NULL,0); -if(!qbevent)break;evnt(26070,12512,"ide_methods.bas");}while(r); -S_49831:; -if ((~(*__BYTE_DISABLESYNTAXHIGHLIGHTER))||new_error){ -if(qbevent){evnt(26070,12514,"ide_methods.bas");if(r)goto S_49831;} -S_49832:; -if ((-(*__LONG_IDEFOCUSLINE!= 0 ))||new_error){ -if(qbevent){evnt(26070,12515,"ide_methods.bas");if(r)goto S_49832;} -S_49833:; -if ((*__INTEGER_IDECHANGEMADE)||new_error){ -if(qbevent){evnt(26070,12519,"ide_methods.bas");if(r)goto S_49833;} -do{ -*_SUB_IDESHOWTEXT_BYTE_MANUALLIST= 0 ; -if(!qbevent)break;evnt(26070,12519,"ide_methods.bas");}while(r); -} -S_49836:; -if ((-(*_SUB_IDESHOWTEXT_BYTE_MANUALLIST== 0 ))||new_error){ -if(qbevent){evnt(26070,12520,"ide_methods.bas");if(r)goto S_49836;} -do{ -*_SUB_IDESHOWTEXT_BYTE_MANUALLIST= -1 ; -if(!qbevent)break;evnt(26070,12521,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_LISTOFCUSTOMKEYWORDS,qbs_left(__STRING_LISTOFCUSTOMKEYWORDS,*__LONG_CUSTOMKEYWORDSLENGTH)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12522,"ide_methods.bas");}while(r); -S_49839:; -fornext_value5487= 1 ; -fornext_finalvalue5487=*__LONG_IDEN; -fornext_step5487= 1 ; -if (fornext_step5487<0) fornext_step_negative5487=1; else fornext_step_negative5487=0; -if (new_error) goto fornext_error5487; -goto fornext_entrylabel5487; -while(1){ -fornext_value5487=fornext_step5487+(*_SUB_IDESHOWTEXT_LONG_Y); -fornext_entrylabel5487: -*_SUB_IDESHOWTEXT_LONG_Y=fornext_value5487; -if (fornext_step_negative5487){ -if (fornext_value5487fornext_finalvalue5487) break; -} -fornext_error5487:; -if(qbevent){evnt(26070,12523,"ide_methods.bas");if(r)goto S_49839;} -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_A,qbs_ucase(qbs__trim(FUNC_IDEGETLINE(_SUB_IDESHOWTEXT_LONG_Y)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12524,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESHOWTEXT_LONG_SF= 0 ; -if(!qbevent)break;evnt(26070,12525,"ide_methods.bas");}while(r); -S_49842:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_IDESHOWTEXT_STRING_A, 4 ),qbs_new_txt_len("SUB ",4))))||new_error){ -if(qbevent){evnt(26070,12526,"ide_methods.bas");if(r)goto S_49842;} -do{ -*_SUB_IDESHOWTEXT_LONG_SF= 1 ; -if(!qbevent)break;evnt(26070,12526,"ide_methods.bas");}while(r); -} -S_49845:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_IDESHOWTEXT_STRING_A, 9 ),qbs_new_txt_len("FUNCTION ",9))))||new_error){ -if(qbevent){evnt(26070,12527,"ide_methods.bas");if(r)goto S_49845;} -do{ -*_SUB_IDESHOWTEXT_LONG_SF= 2 ; -if(!qbevent)break;evnt(26070,12527,"ide_methods.bas");}while(r); -} -S_49848:; -if ((*_SUB_IDESHOWTEXT_LONG_SF)||new_error){ -if(qbevent){evnt(26070,12528,"ide_methods.bas");if(r)goto S_49848;} -S_49849:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_SUB_IDESHOWTEXT_STRING_A, 7 ),qbs_new_txt_len(" STATIC",7))))||new_error){ -if(qbevent){evnt(26070,12529,"ide_methods.bas");if(r)goto S_49849;} -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_A,qbs_rtrim(qbs_left(_SUB_IDESHOWTEXT_STRING_A,_SUB_IDESHOWTEXT_STRING_A->len- 7 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12530,"ide_methods.bas");}while(r); -} -S_49852:; -if ((-(*_SUB_IDESHOWTEXT_LONG_SF== 1 ))||new_error){ -if(qbevent){evnt(26070,12533,"ide_methods.bas");if(r)goto S_49852;} -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_A,func_mid(_SUB_IDESHOWTEXT_STRING_A, 5 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12534,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_A,func_mid(_SUB_IDESHOWTEXT_STRING_A, 10 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12536,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_A,qbs_ltrim(qbs_rtrim(_SUB_IDESHOWTEXT_STRING_A))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12539,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESHOWTEXT_LONG_X=func_instr(NULL,_SUB_IDESHOWTEXT_STRING_A,qbs_new_txt_len("(",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12540,"ide_methods.bas");}while(r); -S_49859:; -if ((*_SUB_IDESHOWTEXT_LONG_X)||new_error){ -if(qbevent){evnt(26070,12541,"ide_methods.bas");if(r)goto S_49859;} -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_A,qbs_rtrim(qbs_left(_SUB_IDESHOWTEXT_STRING_A,*_SUB_IDESHOWTEXT_LONG_X- 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12542,"ide_methods.bas");}while(r); -}else{ -do{ -SUB_CLEANSUBNAME(_SUB_IDESHOWTEXT_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12544,"ide_methods.bas");}while(r); -} -do{ -qbs_set(__STRING_LISTOFCUSTOMKEYWORDS,qbs_add(qbs_add(qbs_add(__STRING_LISTOFCUSTOMKEYWORDS,qbs_new_txt_len("@",1)),FUNC_REMOVESYMBOL2(_SUB_IDESHOWTEXT_STRING_A)),qbs_new_txt_len("@",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12546,"ide_methods.bas");}while(r); -} -fornext_continue_5486:; -} -fornext_exit_5486:; -} -}else{ -do{ -*_SUB_IDESHOWTEXT_BYTE_MANUALLIST= 0 ; -if(!qbevent)break;evnt(26070,12551,"ide_methods.bas");}while(r); -} -S_49871:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_IDESHOWTEXT_STRING_PREVLISTOFCUSTOMWORDS,__STRING_LISTOFCUSTOMKEYWORDS)))||new_error){ -if(qbevent){evnt(26070,12554,"ide_methods.bas");if(r)goto S_49871;} -S_49872:; -if ((-(*_SUB_IDESHOWTEXT_BYTE_MANUALLIST== 0 ))||new_error){ -if(qbevent){evnt(26070,12555,"ide_methods.bas");if(r)goto S_49872;} -S_49873:; -do{ -if(qbevent){evnt(26070,12556,"ide_methods.bas");if(r)goto S_49873;} -do{ -*_SUB_IDESHOWTEXT_LONG_ATSIGN=func_instr(*_SUB_IDESHOWTEXT_LONG_ATSIGN+ 1 ,__STRING_LISTOFCUSTOMKEYWORDS,qbs_new_txt_len("@",1),0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12557,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESHOWTEXT_LONG_NEXTAT=func_instr(*_SUB_IDESHOWTEXT_LONG_ATSIGN+ 1 ,__STRING_LISTOFCUSTOMKEYWORDS,qbs_new_txt_len("@",1),0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12558,"ide_methods.bas");}while(r); -S_49876:; -if ((-(*_SUB_IDESHOWTEXT_LONG_NEXTAT== 0 ))||new_error){ -if(qbevent){evnt(26070,12559,"ide_methods.bas");if(r)goto S_49876;} -do{ -goto dl_exit_5489; -if(!qbevent)break;evnt(26070,12559,"ide_methods.bas");}while(r); -} -S_49879:; -if ((-(*_SUB_IDESHOWTEXT_LONG_ATSIGN>*__LONG_CUSTOMKEYWORDSLENGTH))||new_error){ -if(qbevent){evnt(26070,12560,"ide_methods.bas");if(r)goto S_49879;} -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,FUNC_REMOVESYMBOL2(func_mid(__STRING_LISTOFCUSTOMKEYWORDS,*_SUB_IDESHOWTEXT_LONG_ATSIGN+ 1 ,(*_SUB_IDESHOWTEXT_LONG_NEXTAT-*_SUB_IDESHOWTEXT_LONG_ATSIGN)- 1 ,0|1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12561,"ide_methods.bas");}while(r); -S_49881:; -if ((qbs_cleanup(qbs_tmp_base,_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD->len))||new_error){ -if(qbevent){evnt(26070,12562,"ide_methods.bas");if(r)goto S_49881;} -do{ -*_SUB_IDESHOWTEXT_LONG_HASHCHKFLAGS= 8 + 1024 ; -if(!qbevent)break;evnt(26070,12563,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESHOWTEXT_LONG_HASHCHKFLAGS=*_SUB_IDESHOWTEXT_LONG_HASHCHKFLAGS+ 128 ; -if(!qbevent)break;evnt(26070,12564,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESHOWTEXT_LONG_HASHRES1=FUNC_HASHFIND(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,_SUB_IDESHOWTEXT_LONG_HASHCHKFLAGS,_SUB_IDESHOWTEXT_LONG_HASHRESFLAGS,_SUB_IDESHOWTEXT_LONG_HASHRESREF); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12565,"ide_methods.bas");}while(r); -S_49885:; -if ((-(*_SUB_IDESHOWTEXT_LONG_HASHRES1!= 0 ))||new_error){ -if(qbevent){evnt(26070,12566,"ide_methods.bas");if(r)goto S_49885;} -do{ -*_SUB_IDESHOWTEXT_LONG_HASHRES1= 1 ; -if(!qbevent)break;evnt(26070,12566,"ide_methods.bas");}while(r); -} -do{ -*_SUB_IDESHOWTEXT_LONG_HASHCHKFLAGS= 8 + 1024 ; -if(!qbevent)break;evnt(26070,12567,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESHOWTEXT_LONG_HASHCHKFLAGS=*_SUB_IDESHOWTEXT_LONG_HASHCHKFLAGS+ 64 ; -if(!qbevent)break;evnt(26070,12568,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESHOWTEXT_LONG_HASHRES2=FUNC_HASHFIND(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,_SUB_IDESHOWTEXT_LONG_HASHCHKFLAGS,_SUB_IDESHOWTEXT_LONG_HASHRESFLAGS,_SUB_IDESHOWTEXT_LONG_HASHRESREF); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12569,"ide_methods.bas");}while(r); -S_49891:; -if ((-(*_SUB_IDESHOWTEXT_LONG_HASHRES2!= 0 ))||new_error){ -if(qbevent){evnt(26070,12570,"ide_methods.bas");if(r)goto S_49891;} -do{ -*_SUB_IDESHOWTEXT_LONG_HASHRES2= 1 ; -if(!qbevent)break;evnt(26070,12570,"ide_methods.bas");}while(r); -} -S_49894:; -if ((-((*_SUB_IDESHOWTEXT_LONG_HASHRES1+*_SUB_IDESHOWTEXT_LONG_HASHRES2)==( 0 )))||new_error){ -if(qbevent){evnt(26070,12571,"ide_methods.bas");if(r)goto S_49894;} -do{ -sub_mid(__STRING_LISTOFCUSTOMKEYWORDS,*_SUB_IDESHOWTEXT_LONG_ATSIGN+ 1 ,(*_SUB_IDESHOWTEXT_LONG_NEXTAT-*_SUB_IDESHOWTEXT_LONG_ATSIGN)- 1 ,func_string(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD->len,(qbs_new_txt_len("@",1)->chr[0])),1); -if(!qbevent)break;evnt(26070,12573,"ide_methods.bas");}while(r); -} -} -} -dl_continue_5489:; -}while(1); -dl_exit_5489:; -} -S_49901:; -fornext_value5493= 1 ; -fornext_finalvalue5493=__STRING_LISTOFCUSTOMKEYWORDS->len; -fornext_step5493= 1 ; -if (fornext_step5493<0) fornext_step_negative5493=1; else fornext_step_negative5493=0; -if (new_error) goto fornext_error5493; -goto fornext_entrylabel5493; -while(1){ -fornext_value5493=fornext_step5493+(*_SUB_IDESHOWTEXT_LONG_I); -fornext_entrylabel5493: -*_SUB_IDESHOWTEXT_LONG_I=fornext_value5493; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative5493){ -if (fornext_value5493fornext_finalvalue5493) break; -} -fornext_error5493:; -if(qbevent){evnt(26070,12580,"ide_methods.bas");if(r)goto S_49901;} -do{ -*_SUB_IDESHOWTEXT_LONG_CHECKCHAR=qbs_asc(__STRING_LISTOFCUSTOMKEYWORDS,*_SUB_IDESHOWTEXT_LONG_I); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12581,"ide_methods.bas");}while(r); -S_49903:; -if ((-(*_SUB_IDESHOWTEXT_LONG_CHECKCHAR== 64 ))||new_error){ -if(qbevent){evnt(26070,12582,"ide_methods.bas");if(r)goto S_49903;} -S_49904:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_right(_SUB_IDESHOWTEXT_STRING_TEMPLIST, 1 ),qbs_new_txt_len("@",1))))||new_error){ -if(qbevent){evnt(26070,12583,"ide_methods.bas");if(r)goto S_49904;} -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_TEMPLIST,qbs_add(_SUB_IDESHOWTEXT_STRING_TEMPLIST,qbs_new_txt_len("@",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12583,"ide_methods.bas");}while(r); -} -}else{ -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_TEMPLIST,qbs_add(_SUB_IDESHOWTEXT_STRING_TEMPLIST,func_chr(*_SUB_IDESHOWTEXT_LONG_CHECKCHAR))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12585,"ide_methods.bas");}while(r); -} -fornext_continue_5492:; -} -fornext_exit_5492:; -do{ -qbs_set(__STRING_LISTOFCUSTOMKEYWORDS,_SUB_IDESHOWTEXT_STRING_TEMPLIST); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12588,"ide_methods.bas");}while(r); -S_49912:; -while((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_LISTOFCUSTOMKEYWORDS,__STRING_FIX046,0)))||new_error){ -if(qbevent){evnt(26070,12590,"ide_methods.bas");if(r)goto S_49912;} -do{ -*_SUB_IDESHOWTEXT_LONG_X=func_instr(NULL,__STRING_LISTOFCUSTOMKEYWORDS,__STRING_FIX046,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12591,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_LISTOFCUSTOMKEYWORDS,qbs_add(qbs_add(qbs_left(__STRING_LISTOFCUSTOMKEYWORDS,*_SUB_IDESHOWTEXT_LONG_X- 1 ),qbs_new_txt_len(".",1)),qbs_right(__STRING_LISTOFCUSTOMKEYWORDS,__STRING_LISTOFCUSTOMKEYWORDS->len-*_SUB_IDESHOWTEXT_LONG_X+ 1 -__STRING_FIX046->len))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12592,"ide_methods.bas");}while(r); -dl_continue_5495:; -} -dl_exit_5495:; -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_PREVLISTOFCUSTOMWORDS,__STRING_LISTOFCUSTOMKEYWORDS); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12595,"ide_methods.bas");}while(r); -} -} -do{ -*_SUB_IDESHOWTEXT_LONG_CC= -1 ; -if(!qbevent)break;evnt(26070,12600,"ide_methods.bas");}while(r); -S_49920:; -if ((-(*__LONG_IDECX<*__LONG_IDESX))||new_error){ -if(qbevent){evnt(26070,12602,"ide_methods.bas");if(r)goto S_49920;} -do{ -*__LONG_IDESX=*__LONG_IDECX; -if(!qbevent)break;evnt(26070,12602,"ide_methods.bas");}while(r); -} -S_49923:; -if ((-(*__LONG_IDECY<*__LONG_IDESY))||new_error){ -if(qbevent){evnt(26070,12603,"ide_methods.bas");if(r)goto S_49923;} -do{ -*__LONG_IDESY=*__LONG_IDECY; -if(!qbevent)break;evnt(26070,12603,"ide_methods.bas");}while(r); -} -S_49926:; -if ((-(((*__LONG_IDECX+*__LONG_MAXLINENUMBERLENGTH)-*__LONG_IDESX)>=((*__LONG_IDEWX- 2 ))))||new_error){ -if(qbevent){evnt(26070,12604,"ide_methods.bas");if(r)goto S_49926;} -do{ -*__LONG_IDESX=(*__LONG_IDECX+*__LONG_MAXLINENUMBERLENGTH)-(*__LONG_IDEWX- 3 ); -if(!qbevent)break;evnt(26070,12604,"ide_methods.bas");}while(r); -} -S_49929:; -if ((-((*__LONG_IDECY-*__LONG_IDESY)>=((*__LONG_IDEWY- 8 ))))||new_error){ -if(qbevent){evnt(26070,12605,"ide_methods.bas");if(r)goto S_49929;} -do{ -*__LONG_IDESY=*__LONG_IDECY-(*__LONG_IDEWY- 9 ); -if(!qbevent)break;evnt(26070,12605,"ide_methods.bas");}while(r); -} -do{ -*_SUB_IDESHOWTEXT_LONG_SY1=*__LONG_IDESELECTY1; -if(!qbevent)break;evnt(26070,12607,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESHOWTEXT_LONG_SY2=*__LONG_IDECY; -if(!qbevent)break;evnt(26070,12608,"ide_methods.bas");}while(r); -S_49934:; -if ((-(*_SUB_IDESHOWTEXT_LONG_SY1>*_SUB_IDESHOWTEXT_LONG_SY2))||new_error){ -if(qbevent){evnt(26070,12609,"ide_methods.bas");if(r)goto S_49934;} -do{ -swap_32(&*_SUB_IDESHOWTEXT_LONG_SY1,&*_SUB_IDESHOWTEXT_LONG_SY2); -if(!qbevent)break;evnt(26070,12609,"ide_methods.bas");}while(r); -} -do{ -*_SUB_IDESHOWTEXT_LONG_SX1=*__LONG_IDESELECTX1; -if(!qbevent)break;evnt(26070,12610,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESHOWTEXT_LONG_SX2=*__LONG_IDECX; -if(!qbevent)break;evnt(26070,12611,"ide_methods.bas");}while(r); -S_49939:; -if ((-(*_SUB_IDESHOWTEXT_LONG_SX1>*_SUB_IDESHOWTEXT_LONG_SX2))||new_error){ -if(qbevent){evnt(26070,12612,"ide_methods.bas");if(r)goto S_49939;} -do{ -swap_32(&*_SUB_IDESHOWTEXT_LONG_SX1,&*_SUB_IDESHOWTEXT_LONG_SX2); -if(!qbevent)break;evnt(26070,12612,"ide_methods.bas");}while(r); -} -do{ -*_SUB_IDESHOWTEXT_LONG_L=*__LONG_IDESY; -if(!qbevent)break;evnt(26070,12614,"ide_methods.bas");}while(r); -do{ -*__BYTE_ENTERINGRGB= 0 ; -if(!qbevent)break;evnt(26070,12615,"ide_methods.bas");}while(r); -S_49944:; -if ((~(*__BYTE_DISABLESYNTAXHIGHLIGHTER))||new_error){ -if(qbevent){evnt(26070,12617,"ide_methods.bas");if(r)goto S_49944;} -do{ -*_SUB_IDESHOWTEXT_LONG_IDECY_MULTILINESTART= 0 ; -if(!qbevent)break;evnt(26070,12618,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESHOWTEXT_LONG_IDECY_MULTILINEEND= 0 ; -if(!qbevent)break;evnt(26070,12619,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12620,"ide_methods.bas");}while(r); -do{ -SUB_FINDQUOTECOMMENT(_SUB_IDESHOWTEXT_STRING_A,&(pass5499=_SUB_IDESHOWTEXT_STRING_A->len),_SUB_IDESHOWTEXT_BYTE_IDESHOWTEXT_COMMENT,_SUB_IDESHOWTEXT_BYTE_IDESHOWTEXT_QUOTE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12621,"ide_methods.bas");}while(r); -S_49949:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_right(_SUB_IDESHOWTEXT_STRING_A, 1 ),qbs_new_txt_len("_",1)))&(-(*_SUB_IDESHOWTEXT_BYTE_IDESHOWTEXT_COMMENT== 0 ))))||new_error){ -if(qbevent){evnt(26070,12622,"ide_methods.bas");if(r)goto S_49949;} -S_49950:; -fornext_value5501=*__LONG_IDECY- 1 ; -fornext_finalvalue5501= 1 ; -fornext_step5501= -1 ; -if (fornext_step5501<0) fornext_step_negative5501=1; else fornext_step_negative5501=0; -if (new_error) goto fornext_error5501; -goto fornext_entrylabel5501; -while(1){ -fornext_value5501=fornext_step5501+(*_SUB_IDESHOWTEXT_LONG_IDECY_I); -fornext_entrylabel5501: -*_SUB_IDESHOWTEXT_LONG_IDECY_I=fornext_value5501; -if (fornext_step_negative5501){ -if (fornext_value5501fornext_finalvalue5501) break; -} -fornext_error5501:; -if(qbevent){evnt(26070,12624,"ide_methods.bas");if(r)goto S_49950;} -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_B,FUNC_IDEGETLINE(_SUB_IDESHOWTEXT_LONG_IDECY_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12625,"ide_methods.bas");}while(r); -do{ -SUB_FINDQUOTECOMMENT(_SUB_IDESHOWTEXT_STRING_B,&(pass5503=_SUB_IDESHOWTEXT_STRING_B->len),_SUB_IDESHOWTEXT_BYTE_IDESHOWTEXT_COMMENT,_SUB_IDESHOWTEXT_BYTE_IDESHOWTEXT_QUOTE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12626,"ide_methods.bas");}while(r); -S_49953:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(qbs_right(_SUB_IDESHOWTEXT_STRING_B, 1 ),qbs_new_txt_len("_",1)))|(-(*_SUB_IDESHOWTEXT_BYTE_IDESHOWTEXT_COMMENT== -1 ))))||new_error){ -if(qbevent){evnt(26070,12627,"ide_methods.bas");if(r)goto S_49953;} -do{ -*_SUB_IDESHOWTEXT_LONG_IDECY_MULTILINESTART=*_SUB_IDESHOWTEXT_LONG_IDECY_I+ 1 ; -if(!qbevent)break;evnt(26070,12627,"ide_methods.bas");}while(r); -do{ -goto fornext_exit_5500; -if(!qbevent)break;evnt(26070,12627,"ide_methods.bas");}while(r); -} -fornext_continue_5500:; -} -fornext_exit_5500:; -S_49958:; -if ((-(*_SUB_IDESHOWTEXT_LONG_IDECY_MULTILINESTART== 0 ))||new_error){ -if(qbevent){evnt(26070,12629,"ide_methods.bas");if(r)goto S_49958;} -do{ -*_SUB_IDESHOWTEXT_LONG_IDECY_MULTILINESTART= 1 ; -if(!qbevent)break;evnt(26070,12629,"ide_methods.bas");}while(r); -} -S_49961:; -fornext_value5505=*__LONG_IDECY+ 1 ; -fornext_finalvalue5505=*__LONG_IDEN; -fornext_step5505= 1 ; -if (fornext_step5505<0) fornext_step_negative5505=1; else fornext_step_negative5505=0; -if (new_error) goto fornext_error5505; -goto fornext_entrylabel5505; -while(1){ -fornext_value5505=fornext_step5505+(*_SUB_IDESHOWTEXT_LONG_IDECY_I); -fornext_entrylabel5505: -*_SUB_IDESHOWTEXT_LONG_IDECY_I=fornext_value5505; -if (fornext_step_negative5505){ -if (fornext_value5505fornext_finalvalue5505) break; -} -fornext_error5505:; -if(qbevent){evnt(26070,12632,"ide_methods.bas");if(r)goto S_49961;} -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_B,FUNC_IDEGETLINE(_SUB_IDESHOWTEXT_LONG_IDECY_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12633,"ide_methods.bas");}while(r); -do{ -SUB_FINDQUOTECOMMENT(_SUB_IDESHOWTEXT_STRING_B,&(pass5507=_SUB_IDESHOWTEXT_STRING_B->len),_SUB_IDESHOWTEXT_BYTE_IDESHOWTEXT_COMMENT,_SUB_IDESHOWTEXT_BYTE_IDESHOWTEXT_QUOTE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12634,"ide_methods.bas");}while(r); -S_49964:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(qbs_right(_SUB_IDESHOWTEXT_STRING_B, 1 ),qbs_new_txt_len("_",1)))|(-(*_SUB_IDESHOWTEXT_BYTE_IDESHOWTEXT_COMMENT== -1 ))))||new_error){ -if(qbevent){evnt(26070,12635,"ide_methods.bas");if(r)goto S_49964;} -do{ -*_SUB_IDESHOWTEXT_LONG_IDECY_MULTILINEEND=*_SUB_IDESHOWTEXT_LONG_IDECY_I; -if(!qbevent)break;evnt(26070,12635,"ide_methods.bas");}while(r); -do{ -goto fornext_exit_5504; -if(!qbevent)break;evnt(26070,12635,"ide_methods.bas");}while(r); -} -fornext_continue_5504:; -} -fornext_exit_5504:; -S_49969:; -if ((-(*_SUB_IDESHOWTEXT_LONG_IDECY_MULTILINEEND== 0 ))||new_error){ -if(qbevent){evnt(26070,12637,"ide_methods.bas");if(r)goto S_49969;} -do{ -*_SUB_IDESHOWTEXT_LONG_IDECY_MULTILINESTART=*__LONG_IDEN; -if(!qbevent)break;evnt(26070,12637,"ide_methods.bas");}while(r); -} -}else{ -S_49973:; -if ((-(*__LONG_IDECY> 1 ))||new_error){ -if(qbevent){evnt(26070,12639,"ide_methods.bas");if(r)goto S_49973;} -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_B,FUNC_IDEGETLINE(&(pass5508=*__LONG_IDECY- 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12639,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_B,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12639,"ide_methods.bas");}while(r); -} -do{ -SUB_FINDQUOTECOMMENT(_SUB_IDESHOWTEXT_STRING_B,&(pass5510=_SUB_IDESHOWTEXT_STRING_B->len),_SUB_IDESHOWTEXT_BYTE_IDESHOWTEXT_COMMENT,_SUB_IDESHOWTEXT_BYTE_IDESHOWTEXT_QUOTE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12640,"ide_methods.bas");}while(r); -S_49979:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_right(_SUB_IDESHOWTEXT_STRING_B, 1 ),qbs_new_txt_len("_",1)))&(-(*_SUB_IDESHOWTEXT_BYTE_IDESHOWTEXT_COMMENT== 0 ))))||new_error){ -if(qbevent){evnt(26070,12641,"ide_methods.bas");if(r)goto S_49979;} -do{ -*_SUB_IDESHOWTEXT_LONG_IDECY_MULTILINEEND=*__LONG_IDECY; -if(!qbevent)break;evnt(26070,12642,"ide_methods.bas");}while(r); -S_49981:; -fornext_value5512=*__LONG_IDECY- 1 ; -fornext_finalvalue5512= 1 ; -fornext_step5512= -1 ; -if (fornext_step5512<0) fornext_step_negative5512=1; else fornext_step_negative5512=0; -if (new_error) goto fornext_error5512; -goto fornext_entrylabel5512; -while(1){ -fornext_value5512=fornext_step5512+(*_SUB_IDESHOWTEXT_LONG_IDECY_I); -fornext_entrylabel5512: -*_SUB_IDESHOWTEXT_LONG_IDECY_I=fornext_value5512; -if (fornext_step_negative5512){ -if (fornext_value5512fornext_finalvalue5512) break; -} -fornext_error5512:; -if(qbevent){evnt(26070,12645,"ide_methods.bas");if(r)goto S_49981;} -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_B,FUNC_IDEGETLINE(_SUB_IDESHOWTEXT_LONG_IDECY_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12646,"ide_methods.bas");}while(r); -do{ -SUB_FINDQUOTECOMMENT(_SUB_IDESHOWTEXT_STRING_B,&(pass5514=_SUB_IDESHOWTEXT_STRING_B->len),_SUB_IDESHOWTEXT_BYTE_IDESHOWTEXT_COMMENT,_SUB_IDESHOWTEXT_BYTE_IDESHOWTEXT_QUOTE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12647,"ide_methods.bas");}while(r); -S_49984:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(qbs_right(_SUB_IDESHOWTEXT_STRING_B, 1 ),qbs_new_txt_len("_",1)))|(-(*_SUB_IDESHOWTEXT_BYTE_IDESHOWTEXT_COMMENT== -1 ))))||new_error){ -if(qbevent){evnt(26070,12648,"ide_methods.bas");if(r)goto S_49984;} -do{ -*_SUB_IDESHOWTEXT_LONG_IDECY_MULTILINESTART=*_SUB_IDESHOWTEXT_LONG_IDECY_I+ 1 ; -if(!qbevent)break;evnt(26070,12648,"ide_methods.bas");}while(r); -do{ -goto fornext_exit_5511; -if(!qbevent)break;evnt(26070,12648,"ide_methods.bas");}while(r); -} -fornext_continue_5511:; -} -fornext_exit_5511:; -S_49989:; -if ((-(*_SUB_IDESHOWTEXT_LONG_IDECY_MULTILINESTART== 0 ))||new_error){ -if(qbevent){evnt(26070,12650,"ide_methods.bas");if(r)goto S_49989;} -do{ -*_SUB_IDESHOWTEXT_LONG_IDECY_MULTILINESTART= 1 ; -if(!qbevent)break;evnt(26070,12650,"ide_methods.bas");}while(r); -} -} -} -S_49994:; -if ((-(*__LONG_IDECY> 1 ))||new_error){ -if(qbevent){evnt(26070,12654,"ide_methods.bas");if(r)goto S_49994;} -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_B,FUNC_IDEGETLINE(&(pass5515=*__LONG_IDECY- 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12654,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_B,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12654,"ide_methods.bas");}while(r); -} -do{ -*__LONG_ACTIVEINCLUDELINK= 0 ; -if(!qbevent)break;evnt(26070,12656,"ide_methods.bas");}while(r); -S_50000:; -fornext_value5517= 0 ; -fornext_finalvalue5517=(*__LONG_IDEWY- 9 ); -fornext_step5517= 1 ; -if (fornext_step5517<0) fornext_step_negative5517=1; else fornext_step_negative5517=0; -if (new_error) goto fornext_error5517; -goto fornext_entrylabel5517; -while(1){ -fornext_value5517=fornext_step5517+(*_SUB_IDESHOWTEXT_LONG_Y); -fornext_entrylabel5517: -*_SUB_IDESHOWTEXT_LONG_Y=fornext_value5517; -if (fornext_step_negative5517){ -if (fornext_value5517fornext_finalvalue5517) break; -} -fornext_error5517:; -if(qbevent){evnt(26070,12658,"ide_methods.bas");if(r)goto S_50000;} -do{ -qbg_sub_color( 7 , 1 ,NULL,3); -if(!qbevent)break;evnt(26070,12659,"ide_methods.bas");}while(r); -do{ -sub__printstring( 1 ,*_SUB_IDESHOWTEXT_LONG_Y+ 3 ,func_chr( 179 ),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12660,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=159; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_SHOWLINENUMBER; -RETURN_159:; -if(!qbevent)break;evnt(26070,12662,"ide_methods.bas");}while(r); -S_50004:; -if ((((-(*_SUB_IDESHOWTEXT_LONG_L==*__LONG_IDEFOCUSLINE))&(-(*__LONG_IDECY!=*_SUB_IDESHOWTEXT_LONG_L))&(-(*__LONG_IDEDEBUGMODE== 0 )))|((-(*_SUB_IDESHOWTEXT_LONG_L==*__LONG_IDEFOCUSLINE))&(-(*__LONG_IDECY==*_SUB_IDESHOWTEXT_LONG_L))&(-(*__LONG_IDEDEBUGMODE!= 0 ))))||new_error){ -if(qbevent){evnt(26070,12664,"ide_methods.bas");if(r)goto S_50004;} -do{ -qbg_sub_color( 7 , 4 ,NULL,3); -if(!qbevent)break;evnt(26070,12665,"ide_methods.bas");}while(r); -S_50006:; -}else{ -if ((-(*__LONG_IDECY==*_SUB_IDESHOWTEXT_LONG_L))|(((-(*_SUB_IDESHOWTEXT_LONG_L>=*_SUB_IDESHOWTEXT_LONG_IDECY_MULTILINESTART))&(-(*_SUB_IDESHOWTEXT_LONG_L<=*_SUB_IDESHOWTEXT_LONG_IDECY_MULTILINEEND))))){ -if(qbevent){evnt(26070,12666,"ide_methods.bas");if(r)goto S_50006;} -S_50007:; -if (((-(*__BYTE_HIDECURRENTLINEHIGHLIGHT== 0 ))&(-(*__LONG_IDESYSTEM== 1 )))||new_error){ -if(qbevent){evnt(26070,12667,"ide_methods.bas");if(r)goto S_50007;} -do{ -qbg_sub_color( 7 , 6 ,NULL,3); -if(!qbevent)break;evnt(26070,12667,"ide_methods.bas");}while(r); -} -}else{ -do{ -qbg_sub_color( 7 , 1 ,NULL,3); -if(!qbevent)break;evnt(26070,12669,"ide_methods.bas");}while(r); -} -} -S_50013:; -if ((-(*_SUB_IDESHOWTEXT_LONG_L<=*__LONG_IDEN))||new_error){ -if(qbevent){evnt(26070,12672,"ide_methods.bas");if(r)goto S_50013;} -S_50014:; -while((!(-(*_SUB_IDESHOWTEXT_LONG_L=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_IDEFILEDIALOG_STRING_IDEFILEDIALOG);return _FUNC_IDEFILEDIALOG_STRING_IDEFILEDIALOG; +} +void SUB_IDEPAR(void*_SUB_IDEPAR_UDT_PAR,int32*_SUB_IDEPAR_LONG_W,int32*_SUB_IDEPAR_LONG_H,qbs*_SUB_IDEPAR_STRING_TITLE){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data208.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +*(int32*)(((char*)_SUB_IDEPAR_UDT_PAR)+(0))=((*__LONG_IDEWX/ 2 ))-(*_SUB_IDEPAR_LONG_W/ 2 ); +if(!qbevent)break;evnt(26070,12421,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_SUB_IDEPAR_UDT_PAR)+(4))=(((*__LONG_IDEWY+*__LONG_IDESUBWINDOW)/ 2 ))-(*_SUB_IDEPAR_LONG_H/ 2 ); +if(!qbevent)break;evnt(26070,12422,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_SUB_IDEPAR_UDT_PAR)+(8))=*_SUB_IDEPAR_LONG_W; +if(!qbevent)break;evnt(26070,12423,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_SUB_IDEPAR_UDT_PAR)+(12))=*_SUB_IDEPAR_LONG_H; +if(!qbevent)break;evnt(26070,12424,"ide_methods.bas");}while(r); +S_49751:; +if ((qbs_cleanup(qbs_tmp_base,_SUB_IDEPAR_STRING_TITLE->len))||new_error){ +if(qbevent){evnt(26070,12425,"ide_methods.bas");if(r)goto S_49751;} +do{ +*(int32*)(((char*)_SUB_IDEPAR_UDT_PAR)+(16))=FUNC_IDENEWTXT(_SUB_IDEPAR_STRING_TITLE); +if(!qbevent)break;evnt(26070,12425,"ide_methods.bas");}while(r); +} +do{ +sub__resize( 2 ,NULL); +if(!qbevent)break;evnt(26070,12426,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free208.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +qbs* FUNC_IDERESTORE(){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data209.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,12430,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 0 , 2 ); +if(!qbevent)break;evnt(26070,12431,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 0 , 1 ); +if(!qbevent)break;evnt(26070,12432,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,12433,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDERESTORE_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Backup found",12),qbs_new_txt_len("Recover program from auto-saved backup?",39),qbs_new_txt_len("#Yes;#No",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12434,"ide_methods.bas");}while(r); +S_49760:; +if ((-(*_FUNC_IDERESTORE_LONG_RESULT== 1 ))||new_error){ +if(qbevent){evnt(26070,12435,"ide_methods.bas");if(r)goto S_49760;} +do{ +qbs_set(_FUNC_IDERESTORE_STRING_IDERESTORE,qbs_new_txt_len("Y",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12435,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDERESTORE_STRING_IDERESTORE,qbs_new_txt_len("N",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12435,"ide_methods.bas");}while(r); +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free209.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_IDERESTORE_STRING_IDERESTORE);return _FUNC_IDERESTORE_STRING_IDERESTORE; +} +qbs* FUNC_IDECLEARHISTORY(qbs*_FUNC_IDECLEARHISTORY_STRING_WHICHHISTORY){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data210.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +S_49765:; +if(qbevent){evnt(26070,12439,"ide_methods.bas");if(r)goto S_49765;} +S_49766:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDECLEARHISTORY_STRING_WHICHHISTORY,qbs_new_txt_len("SEARCH",6))))||new_error){ +if(qbevent){evnt(26070,12440,"ide_methods.bas");if(r)goto S_49766;} +do{ +qbs_set(_FUNC_IDECLEARHISTORY_STRING_T,qbs_new_txt_len("Clear search history",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12440,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECLEARHISTORY_STRING_M,qbs_new_txt_len("This cannot be undone. Proceed?",31)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12440,"ide_methods.bas");}while(r); +sc_ec_364_end:; +goto sc_5477_end; +} +S_49769:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDECLEARHISTORY_STRING_WHICHHISTORY,qbs_new_txt_len("FILES",5))))||new_error){ +if(qbevent){evnt(26070,12441,"ide_methods.bas");if(r)goto S_49769;} +do{ +qbs_set(_FUNC_IDECLEARHISTORY_STRING_T,qbs_new_txt_len("Clear recent files",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12441,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECLEARHISTORY_STRING_M,qbs_new_txt_len("This cannot be undone. Proceed?",31)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12441,"ide_methods.bas");}while(r); +sc_ec_365_end:; +goto sc_5477_end; +} +sc_5477_end:; +do{ +*_FUNC_IDECLEARHISTORY_LONG_RESULT=FUNC_IDEMESSAGEBOX(_FUNC_IDECLEARHISTORY_STRING_T,_FUNC_IDECLEARHISTORY_STRING_M,qbs_new_txt_len("#Yes;#No",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12443,"ide_methods.bas");}while(r); +S_49774:; +if ((-(*_FUNC_IDECLEARHISTORY_LONG_RESULT== 1 ))||new_error){ +if(qbevent){evnt(26070,12444,"ide_methods.bas");if(r)goto S_49774;} +do{ +qbs_set(_FUNC_IDECLEARHISTORY_STRING_IDECLEARHISTORY,qbs_new_txt_len("Y",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12444,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDECLEARHISTORY_STRING_IDECLEARHISTORY,qbs_new_txt_len("N",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12444,"ide_methods.bas");}while(r); +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free210.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_IDECLEARHISTORY_STRING_IDECLEARHISTORY);return _FUNC_IDECLEARHISTORY_STRING_IDECLEARHISTORY; +} +void SUB_IDESAVE(qbs*_SUB_IDESAVE_STRING_F){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data211.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +*__LONG_IDEERROR= 6 ; +if(!qbevent)break;evnt(26070,12448,"ide_methods.bas");}while(r); +do{ +sub_open(_SUB_IDESAVE_STRING_F, 4 ,NULL,NULL, 151 ,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12449,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEERROR= 1 ; +if(!qbevent)break;evnt(26070,12450,"ide_methods.bas");}while(r); +S_49782:; +fornext_value5480= 1 ; +fornext_finalvalue5480=*__LONG_IDEN; +fornext_step5480= 1 ; +if (fornext_step5480<0) fornext_step_negative5480=1; else fornext_step_negative5480=0; +if (new_error) goto fornext_error5480; +goto fornext_entrylabel5480; +while(1){ +fornext_value5480=fornext_step5480+(*_SUB_IDESAVE_LONG_I); +fornext_entrylabel5480: +*_SUB_IDESAVE_LONG_I=fornext_value5480; +if (fornext_step_negative5480){ +if (fornext_value5480fornext_finalvalue5480) break; +} +fornext_error5480:; +if(qbevent){evnt(26070,12451,"ide_methods.bas");if(r)goto S_49782;} +do{ +qbs_set(_SUB_IDESAVE_STRING_A,FUNC_IDEGETLINE(_SUB_IDESAVE_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12452,"ide_methods.bas");}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 151 ; +if (new_error) goto skip5481; +sub_file_print(tmp_fileno,_SUB_IDESAVE_STRING_A, 0, 0, 1); +if (new_error) goto skip5481; +skip5481: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(26070,12453,"ide_methods.bas");}while(r); +fornext_continue_5479:; +} +fornext_exit_5479:; +do{ +sub_close( 151 ,1); +if(!qbevent)break;evnt(26070,12455,"ide_methods.bas");}while(r); +do{ +SUB_IDESAVEBOOKMARKS(_SUB_IDESAVE_STRING_F); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12456,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEUNSAVED= 0 ; +if(!qbevent)break;evnt(26070,12457,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free211.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +qbs* FUNC_IDESAVENOW(){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data212.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +qbs_set(_FUNC_IDESAVENOW_STRING_M,qbs_new_txt_len("Program is not saved. Save it now?",34)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12461,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDESAVENOW_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("",0),_FUNC_IDESAVENOW_STRING_M,qbs_new_txt_len("#Yes;#No;#Cancel",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12462,"ide_methods.bas");}while(r); +S_49791:; +if(qbevent){evnt(26070,12463,"ide_methods.bas");if(r)goto S_49791;} +S_49792:; +if (((*_FUNC_IDESAVENOW_LONG_RESULT==( 1 )))||new_error){ +if(qbevent){evnt(26070,12464,"ide_methods.bas");if(r)goto S_49792;} +do{ +qbs_set(_FUNC_IDESAVENOW_STRING_IDESAVENOW,qbs_new_txt_len("Y",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12464,"ide_methods.bas");}while(r); +sc_ec_366_end:; +goto sc_5482_end; +} +S_49794:; +if (((*_FUNC_IDESAVENOW_LONG_RESULT==( 2 )))||new_error){ +if(qbevent){evnt(26070,12465,"ide_methods.bas");if(r)goto S_49794;} +do{ +qbs_set(_FUNC_IDESAVENOW_STRING_IDESAVENOW,qbs_new_txt_len("N",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12465,"ide_methods.bas");}while(r); +sc_ec_367_end:; +goto sc_5482_end; +} +S_49796:; +if (((*_FUNC_IDESAVENOW_LONG_RESULT==( 0 ))||(*_FUNC_IDESAVENOW_LONG_RESULT==( 3 )))||new_error){ +if(qbevent){evnt(26070,12466,"ide_methods.bas");if(r)goto S_49796;} +do{ +qbs_set(_FUNC_IDESAVENOW_STRING_IDESAVENOW,qbs_new_txt_len("C",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12466,"ide_methods.bas");}while(r); +sc_ec_368_end:; +goto sc_5482_end; +} +sc_5482_end:; +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free212.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_IDESAVENOW_STRING_IDESAVENOW);return _FUNC_IDESAVENOW_STRING_IDESAVENOW; +} +void SUB_IDESETLINE(int32*_SUB_IDESETLINE_LONG_I,qbs*_SUB_IDESETLINE_STRING_TEXT){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data213.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +qbs_set(_SUB_IDESETLINE_STRING_TEXT,qbs_rtrim(_SUB_IDESETLINE_STRING_TEXT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12472,"ide_methods.bas");}while(r); +S_49800:; +if ((-(*_SUB_IDESETLINE_LONG_I!= -1 ))||new_error){ +if(qbevent){evnt(26070,12474,"ide_methods.bas");if(r)goto S_49800;} +do{ +SUB_IDEGOTOLINE(_SUB_IDESETLINE_LONG_I); +if(!qbevent)break;evnt(26070,12474,"ide_methods.bas");}while(r); +} +do{ +*_SUB_IDESETLINE_LONG_TEXTLEN=_SUB_IDESETLINE_STRING_TEXT->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12475,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_IDET,qbs_add(qbs_add(qbs_add(qbs_add(qbs_left(__STRING_IDET,*__LONG_IDELI- 1 ),l2string(*_SUB_IDESETLINE_LONG_TEXTLEN)),_SUB_IDESETLINE_STRING_TEXT),l2string(*_SUB_IDESETLINE_LONG_TEXTLEN)),qbs_right(__STRING_IDET,__STRING_IDET->len-*__LONG_IDELI+ 1 -string2l(func_mid(__STRING_IDET,*__LONG_IDELI, 4 ,0|1))- 8 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12476,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free213.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +float FUNC_TIMEELAPSEDSINCE(float*_FUNC_TIMEELAPSEDSINCE_SINGLE_STARTTIME){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data214.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +S_49805:; +if ((-(((float)(*_FUNC_TIMEELAPSEDSINCE_SINGLE_STARTTIME))>((float)(func_timer(NULL,0)))))||new_error){ +if(qbevent){evnt(26070,12481,"ide_methods.bas");if(r)goto S_49805;} +do{ +*_FUNC_TIMEELAPSEDSINCE_SINGLE_STARTTIME=*_FUNC_TIMEELAPSEDSINCE_SINGLE_STARTTIME- 86400 ; +if(!qbevent)break;evnt(26070,12481,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_TIMEELAPSEDSINCE_SINGLE_TIMEELAPSEDSINCE=func_timer(NULL,0)-*_FUNC_TIMEELAPSEDSINCE_SINGLE_STARTTIME; +if(!qbevent)break;evnt(26070,12482,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free214.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +return *_FUNC_TIMEELAPSEDSINCE_SINGLE_TIMEELAPSEDSINCE; +} +void SUB_IDESHOWTEXT(){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data215.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +S_49809:; +if ((-(*__BYTE_IDESHOWTEXTBYPASSCOLORRESTORE== 0 ))||new_error){ +if(qbevent){evnt(26070,12487,"ide_methods.bas");if(r)goto S_49809;} +do{ +sub__palettecolor( 1 ,*__ULONG_IDEBACKGROUNDCOLOR, 0 ,1); +if(!qbevent)break;evnt(26070,12488,"ide_methods.bas");}while(r); +do{ +sub__palettecolor( 2 ,func__rgb32( 84 , 84 , 84 ), 0 ,1); +if(!qbevent)break;evnt(26070,12489,"ide_methods.bas");}while(r); +do{ +sub__palettecolor( 4 ,*__ULONG_IDEERRORCOLOR, 0 ,1); +if(!qbevent)break;evnt(26070,12490,"ide_methods.bas");}while(r); +do{ +sub__palettecolor( 5 ,*__ULONG_IDEBRACKETHIGHLIGHTCOLOR, 0 ,1); +if(!qbevent)break;evnt(26070,12491,"ide_methods.bas");}while(r); +do{ +sub__palettecolor( 6 ,*__ULONG_IDEBACKGROUNDCOLOR2, 0 ,1); +if(!qbevent)break;evnt(26070,12492,"ide_methods.bas");}while(r); +do{ +sub__palettecolor( 7 ,*__ULONG_IDECHROMACOLOR, 0 ,1); +if(!qbevent)break;evnt(26070,12493,"ide_methods.bas");}while(r); +do{ +sub__palettecolor( 8 ,*__ULONG_IDENUMBERSCOLOR, 0 ,1); +if(!qbevent)break;evnt(26070,12494,"ide_methods.bas");}while(r); +do{ +sub__palettecolor( 10 ,*__ULONG_IDEMETACOMMANDCOLOR, 0 ,1); +if(!qbevent)break;evnt(26070,12495,"ide_methods.bas");}while(r); +do{ +sub__palettecolor( 11 ,*__ULONG_IDECOMMENTCOLOR, 0 ,1); +if(!qbevent)break;evnt(26070,12496,"ide_methods.bas");}while(r); +do{ +sub__palettecolor( 12 ,*__ULONG_IDEKEYWORDCOLOR, 0 ,1); +if(!qbevent)break;evnt(26070,12497,"ide_methods.bas");}while(r); +do{ +sub__palettecolor( 13 ,*__ULONG_IDETEXTCOLOR, 0 ,1); +if(!qbevent)break;evnt(26070,12498,"ide_methods.bas");}while(r); +do{ +sub__palettecolor( 14 ,*__ULONG_IDEQUOTECOLOR, 0 ,1); +if(!qbevent)break;evnt(26070,12499,"ide_methods.bas");}while(r); +} +do{ +*__BYTE_IDESHOWTEXTBYPASSCOLORRESTORE= 0 ; +if(!qbevent)break;evnt(26070,12501,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_CHAR__ASCII_CHR_046__SEP,qbs_add(func_chr( 34 ),qbs_new_txt_len(" =<>+-/\\^:;,*()'",16))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12503,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_INITIALNUM__ASCII_CHR_046__CHAR,qbs_new_txt_len("0123456789-.&",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12504,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_NUM__ASCII_CHR_046__CHAR,qbs_new_txt_len("0123456789EDed+-.`%&!#~HBOhboACFacf",35)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12505,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26070,12507,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26070,12509,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26070,12510,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESHOWTEXT_SINGLE_STARTTIME=func_timer(NULL,0); +if(!qbevent)break;evnt(26070,12512,"ide_methods.bas");}while(r); +S_49831:; +if ((~(*__BYTE_DISABLESYNTAXHIGHLIGHTER))||new_error){ +if(qbevent){evnt(26070,12514,"ide_methods.bas");if(r)goto S_49831;} +S_49832:; +if ((-(*__LONG_IDEFOCUSLINE!= 0 ))||new_error){ +if(qbevent){evnt(26070,12515,"ide_methods.bas");if(r)goto S_49832;} +S_49833:; +if ((*__INTEGER_IDECHANGEMADE)||new_error){ +if(qbevent){evnt(26070,12519,"ide_methods.bas");if(r)goto S_49833;} +do{ +*_SUB_IDESHOWTEXT_BYTE_MANUALLIST= 0 ; +if(!qbevent)break;evnt(26070,12519,"ide_methods.bas");}while(r); +} +S_49836:; +if ((-(*_SUB_IDESHOWTEXT_BYTE_MANUALLIST== 0 ))||new_error){ +if(qbevent){evnt(26070,12520,"ide_methods.bas");if(r)goto S_49836;} +do{ +*_SUB_IDESHOWTEXT_BYTE_MANUALLIST= -1 ; +if(!qbevent)break;evnt(26070,12521,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_LISTOFCUSTOMKEYWORDS,qbs_left(__STRING_LISTOFCUSTOMKEYWORDS,*__LONG_CUSTOMKEYWORDSLENGTH)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12522,"ide_methods.bas");}while(r); +S_49839:; +fornext_value5487= 1 ; +fornext_finalvalue5487=*__LONG_IDEN; +fornext_step5487= 1 ; +if (fornext_step5487<0) fornext_step_negative5487=1; else fornext_step_negative5487=0; +if (new_error) goto fornext_error5487; +goto fornext_entrylabel5487; +while(1){ +fornext_value5487=fornext_step5487+(*_SUB_IDESHOWTEXT_LONG_Y); +fornext_entrylabel5487: +*_SUB_IDESHOWTEXT_LONG_Y=fornext_value5487; +if (fornext_step_negative5487){ +if (fornext_value5487fornext_finalvalue5487) break; +} +fornext_error5487:; +if(qbevent){evnt(26070,12523,"ide_methods.bas");if(r)goto S_49839;} +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_A,qbs_ucase(qbs__trim(FUNC_IDEGETLINE(_SUB_IDESHOWTEXT_LONG_Y)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12524,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESHOWTEXT_LONG_SF= 0 ; +if(!qbevent)break;evnt(26070,12525,"ide_methods.bas");}while(r); +S_49842:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_IDESHOWTEXT_STRING_A, 4 ),qbs_new_txt_len("SUB ",4))))||new_error){ +if(qbevent){evnt(26070,12526,"ide_methods.bas");if(r)goto S_49842;} +do{ +*_SUB_IDESHOWTEXT_LONG_SF= 1 ; +if(!qbevent)break;evnt(26070,12526,"ide_methods.bas");}while(r); +} +S_49845:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_IDESHOWTEXT_STRING_A, 9 ),qbs_new_txt_len("FUNCTION ",9))))||new_error){ +if(qbevent){evnt(26070,12527,"ide_methods.bas");if(r)goto S_49845;} +do{ +*_SUB_IDESHOWTEXT_LONG_SF= 2 ; +if(!qbevent)break;evnt(26070,12527,"ide_methods.bas");}while(r); +} +S_49848:; +if ((*_SUB_IDESHOWTEXT_LONG_SF)||new_error){ +if(qbevent){evnt(26070,12528,"ide_methods.bas");if(r)goto S_49848;} +S_49849:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_SUB_IDESHOWTEXT_STRING_A, 7 ),qbs_new_txt_len(" STATIC",7))))||new_error){ +if(qbevent){evnt(26070,12529,"ide_methods.bas");if(r)goto S_49849;} +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_A,qbs_rtrim(qbs_left(_SUB_IDESHOWTEXT_STRING_A,_SUB_IDESHOWTEXT_STRING_A->len- 7 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12530,"ide_methods.bas");}while(r); +} +S_49852:; +if ((-(*_SUB_IDESHOWTEXT_LONG_SF== 1 ))||new_error){ +if(qbevent){evnt(26070,12533,"ide_methods.bas");if(r)goto S_49852;} +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_A,func_mid(_SUB_IDESHOWTEXT_STRING_A, 5 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12534,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_A,func_mid(_SUB_IDESHOWTEXT_STRING_A, 10 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12536,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_A,qbs_ltrim(qbs_rtrim(_SUB_IDESHOWTEXT_STRING_A))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12539,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESHOWTEXT_LONG_X=func_instr(NULL,_SUB_IDESHOWTEXT_STRING_A,qbs_new_txt_len("(",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12540,"ide_methods.bas");}while(r); +S_49859:; +if ((*_SUB_IDESHOWTEXT_LONG_X)||new_error){ +if(qbevent){evnt(26070,12541,"ide_methods.bas");if(r)goto S_49859;} +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_A,qbs_rtrim(qbs_left(_SUB_IDESHOWTEXT_STRING_A,*_SUB_IDESHOWTEXT_LONG_X- 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12542,"ide_methods.bas");}while(r); +}else{ +do{ +SUB_CLEANSUBNAME(_SUB_IDESHOWTEXT_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12544,"ide_methods.bas");}while(r); +} +do{ +qbs_set(__STRING_LISTOFCUSTOMKEYWORDS,qbs_add(qbs_add(qbs_add(__STRING_LISTOFCUSTOMKEYWORDS,qbs_new_txt_len("@",1)),FUNC_REMOVESYMBOL2(_SUB_IDESHOWTEXT_STRING_A)),qbs_new_txt_len("@",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12546,"ide_methods.bas");}while(r); +} +fornext_continue_5486:; +} +fornext_exit_5486:; +} +}else{ +do{ +*_SUB_IDESHOWTEXT_BYTE_MANUALLIST= 0 ; +if(!qbevent)break;evnt(26070,12551,"ide_methods.bas");}while(r); +} +S_49871:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_IDESHOWTEXT_STRING_PREVLISTOFCUSTOMWORDS,__STRING_LISTOFCUSTOMKEYWORDS)))||new_error){ +if(qbevent){evnt(26070,12554,"ide_methods.bas");if(r)goto S_49871;} +S_49872:; +if ((-(*_SUB_IDESHOWTEXT_BYTE_MANUALLIST== 0 ))||new_error){ +if(qbevent){evnt(26070,12555,"ide_methods.bas");if(r)goto S_49872;} +S_49873:; +do{ +if(qbevent){evnt(26070,12556,"ide_methods.bas");if(r)goto S_49873;} +do{ +*_SUB_IDESHOWTEXT_LONG_ATSIGN=func_instr(*_SUB_IDESHOWTEXT_LONG_ATSIGN+ 1 ,__STRING_LISTOFCUSTOMKEYWORDS,qbs_new_txt_len("@",1),0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12557,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESHOWTEXT_LONG_NEXTAT=func_instr(*_SUB_IDESHOWTEXT_LONG_ATSIGN+ 1 ,__STRING_LISTOFCUSTOMKEYWORDS,qbs_new_txt_len("@",1),0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12558,"ide_methods.bas");}while(r); +S_49876:; +if ((-(*_SUB_IDESHOWTEXT_LONG_NEXTAT== 0 ))||new_error){ +if(qbevent){evnt(26070,12559,"ide_methods.bas");if(r)goto S_49876;} +do{ +goto dl_exit_5489; +if(!qbevent)break;evnt(26070,12559,"ide_methods.bas");}while(r); +} +S_49879:; +if ((-(*_SUB_IDESHOWTEXT_LONG_ATSIGN>*__LONG_CUSTOMKEYWORDSLENGTH))||new_error){ +if(qbevent){evnt(26070,12560,"ide_methods.bas");if(r)goto S_49879;} +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,FUNC_REMOVESYMBOL2(func_mid(__STRING_LISTOFCUSTOMKEYWORDS,*_SUB_IDESHOWTEXT_LONG_ATSIGN+ 1 ,(*_SUB_IDESHOWTEXT_LONG_NEXTAT-*_SUB_IDESHOWTEXT_LONG_ATSIGN)- 1 ,0|1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12561,"ide_methods.bas");}while(r); +S_49881:; +if ((qbs_cleanup(qbs_tmp_base,_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD->len))||new_error){ +if(qbevent){evnt(26070,12562,"ide_methods.bas");if(r)goto S_49881;} +do{ +*_SUB_IDESHOWTEXT_LONG_HASHCHKFLAGS= 8 + 1024 ; +if(!qbevent)break;evnt(26070,12563,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESHOWTEXT_LONG_HASHCHKFLAGS=*_SUB_IDESHOWTEXT_LONG_HASHCHKFLAGS+ 128 ; +if(!qbevent)break;evnt(26070,12564,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESHOWTEXT_LONG_HASHRES1=FUNC_HASHFIND(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,_SUB_IDESHOWTEXT_LONG_HASHCHKFLAGS,_SUB_IDESHOWTEXT_LONG_HASHRESFLAGS,_SUB_IDESHOWTEXT_LONG_HASHRESREF); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12565,"ide_methods.bas");}while(r); +S_49885:; +if ((-(*_SUB_IDESHOWTEXT_LONG_HASHRES1!= 0 ))||new_error){ +if(qbevent){evnt(26070,12566,"ide_methods.bas");if(r)goto S_49885;} +do{ +*_SUB_IDESHOWTEXT_LONG_HASHRES1= 1 ; +if(!qbevent)break;evnt(26070,12566,"ide_methods.bas");}while(r); +} +do{ +*_SUB_IDESHOWTEXT_LONG_HASHCHKFLAGS= 8 + 1024 ; +if(!qbevent)break;evnt(26070,12567,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESHOWTEXT_LONG_HASHCHKFLAGS=*_SUB_IDESHOWTEXT_LONG_HASHCHKFLAGS+ 64 ; +if(!qbevent)break;evnt(26070,12568,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESHOWTEXT_LONG_HASHRES2=FUNC_HASHFIND(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,_SUB_IDESHOWTEXT_LONG_HASHCHKFLAGS,_SUB_IDESHOWTEXT_LONG_HASHRESFLAGS,_SUB_IDESHOWTEXT_LONG_HASHRESREF); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12569,"ide_methods.bas");}while(r); +S_49891:; +if ((-(*_SUB_IDESHOWTEXT_LONG_HASHRES2!= 0 ))||new_error){ +if(qbevent){evnt(26070,12570,"ide_methods.bas");if(r)goto S_49891;} +do{ +*_SUB_IDESHOWTEXT_LONG_HASHRES2= 1 ; +if(!qbevent)break;evnt(26070,12570,"ide_methods.bas");}while(r); +} +S_49894:; +if ((-((*_SUB_IDESHOWTEXT_LONG_HASHRES1+*_SUB_IDESHOWTEXT_LONG_HASHRES2)==( 0 )))||new_error){ +if(qbevent){evnt(26070,12571,"ide_methods.bas");if(r)goto S_49894;} +do{ +sub_mid(__STRING_LISTOFCUSTOMKEYWORDS,*_SUB_IDESHOWTEXT_LONG_ATSIGN+ 1 ,(*_SUB_IDESHOWTEXT_LONG_NEXTAT-*_SUB_IDESHOWTEXT_LONG_ATSIGN)- 1 ,func_string(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD->len,(qbs_new_txt_len("@",1)->chr[0])),1); +if(!qbevent)break;evnt(26070,12573,"ide_methods.bas");}while(r); +} +} +} +dl_continue_5489:; +}while(1); +dl_exit_5489:; +} +S_49901:; +fornext_value5493= 1 ; +fornext_finalvalue5493=__STRING_LISTOFCUSTOMKEYWORDS->len; +fornext_step5493= 1 ; +if (fornext_step5493<0) fornext_step_negative5493=1; else fornext_step_negative5493=0; +if (new_error) goto fornext_error5493; +goto fornext_entrylabel5493; +while(1){ +fornext_value5493=fornext_step5493+(*_SUB_IDESHOWTEXT_LONG_I); +fornext_entrylabel5493: +*_SUB_IDESHOWTEXT_LONG_I=fornext_value5493; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative5493){ +if (fornext_value5493fornext_finalvalue5493) break; +} +fornext_error5493:; +if(qbevent){evnt(26070,12580,"ide_methods.bas");if(r)goto S_49901;} +do{ +*_SUB_IDESHOWTEXT_LONG_CHECKCHAR=qbs_asc(__STRING_LISTOFCUSTOMKEYWORDS,*_SUB_IDESHOWTEXT_LONG_I); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12581,"ide_methods.bas");}while(r); +S_49903:; +if ((-(*_SUB_IDESHOWTEXT_LONG_CHECKCHAR== 64 ))||new_error){ +if(qbevent){evnt(26070,12582,"ide_methods.bas");if(r)goto S_49903;} +S_49904:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_right(_SUB_IDESHOWTEXT_STRING_TEMPLIST, 1 ),qbs_new_txt_len("@",1))))||new_error){ +if(qbevent){evnt(26070,12583,"ide_methods.bas");if(r)goto S_49904;} +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_TEMPLIST,qbs_add(_SUB_IDESHOWTEXT_STRING_TEMPLIST,qbs_new_txt_len("@",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12583,"ide_methods.bas");}while(r); +} +}else{ +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_TEMPLIST,qbs_add(_SUB_IDESHOWTEXT_STRING_TEMPLIST,func_chr(*_SUB_IDESHOWTEXT_LONG_CHECKCHAR))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12585,"ide_methods.bas");}while(r); +} +fornext_continue_5492:; +} +fornext_exit_5492:; +do{ +qbs_set(__STRING_LISTOFCUSTOMKEYWORDS,_SUB_IDESHOWTEXT_STRING_TEMPLIST); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12588,"ide_methods.bas");}while(r); +S_49912:; +while((qbs_cleanup(qbs_tmp_base,func_instr(NULL,__STRING_LISTOFCUSTOMKEYWORDS,__STRING_FIX046,0)))||new_error){ +if(qbevent){evnt(26070,12590,"ide_methods.bas");if(r)goto S_49912;} +do{ +*_SUB_IDESHOWTEXT_LONG_X=func_instr(NULL,__STRING_LISTOFCUSTOMKEYWORDS,__STRING_FIX046,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12591,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_LISTOFCUSTOMKEYWORDS,qbs_add(qbs_add(qbs_left(__STRING_LISTOFCUSTOMKEYWORDS,*_SUB_IDESHOWTEXT_LONG_X- 1 ),qbs_new_txt_len(".",1)),qbs_right(__STRING_LISTOFCUSTOMKEYWORDS,__STRING_LISTOFCUSTOMKEYWORDS->len-*_SUB_IDESHOWTEXT_LONG_X+ 1 -__STRING_FIX046->len))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12592,"ide_methods.bas");}while(r); +dl_continue_5495:; +} +dl_exit_5495:; +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_PREVLISTOFCUSTOMWORDS,__STRING_LISTOFCUSTOMKEYWORDS); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12595,"ide_methods.bas");}while(r); +} +} +do{ +*_SUB_IDESHOWTEXT_LONG_CC= -1 ; +if(!qbevent)break;evnt(26070,12600,"ide_methods.bas");}while(r); +S_49920:; +if ((-(*__LONG_IDECX<*__LONG_IDESX))||new_error){ +if(qbevent){evnt(26070,12602,"ide_methods.bas");if(r)goto S_49920;} +do{ +*__LONG_IDESX=*__LONG_IDECX; +if(!qbevent)break;evnt(26070,12602,"ide_methods.bas");}while(r); +} +S_49923:; +if ((-(*__LONG_IDECY<*__LONG_IDESY))||new_error){ +if(qbevent){evnt(26070,12603,"ide_methods.bas");if(r)goto S_49923;} +do{ +*__LONG_IDESY=*__LONG_IDECY; +if(!qbevent)break;evnt(26070,12603,"ide_methods.bas");}while(r); +} +S_49926:; +if ((-(((*__LONG_IDECX+*__LONG_MAXLINENUMBERLENGTH)-*__LONG_IDESX)>=((*__LONG_IDEWX- 2 ))))||new_error){ +if(qbevent){evnt(26070,12604,"ide_methods.bas");if(r)goto S_49926;} +do{ +*__LONG_IDESX=(*__LONG_IDECX+*__LONG_MAXLINENUMBERLENGTH)-(*__LONG_IDEWX- 3 ); +if(!qbevent)break;evnt(26070,12604,"ide_methods.bas");}while(r); +} +S_49929:; +if ((-((*__LONG_IDECY-*__LONG_IDESY)>=((*__LONG_IDEWY- 8 ))))||new_error){ +if(qbevent){evnt(26070,12605,"ide_methods.bas");if(r)goto S_49929;} +do{ +*__LONG_IDESY=*__LONG_IDECY-(*__LONG_IDEWY- 9 ); +if(!qbevent)break;evnt(26070,12605,"ide_methods.bas");}while(r); +} +do{ +*_SUB_IDESHOWTEXT_LONG_SY1=*__LONG_IDESELECTY1; +if(!qbevent)break;evnt(26070,12607,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESHOWTEXT_LONG_SY2=*__LONG_IDECY; +if(!qbevent)break;evnt(26070,12608,"ide_methods.bas");}while(r); +S_49934:; +if ((-(*_SUB_IDESHOWTEXT_LONG_SY1>*_SUB_IDESHOWTEXT_LONG_SY2))||new_error){ +if(qbevent){evnt(26070,12609,"ide_methods.bas");if(r)goto S_49934;} +do{ +swap_32(&*_SUB_IDESHOWTEXT_LONG_SY1,&*_SUB_IDESHOWTEXT_LONG_SY2); +if(!qbevent)break;evnt(26070,12609,"ide_methods.bas");}while(r); +} +do{ +*_SUB_IDESHOWTEXT_LONG_SX1=*__LONG_IDESELECTX1; +if(!qbevent)break;evnt(26070,12610,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESHOWTEXT_LONG_SX2=*__LONG_IDECX; +if(!qbevent)break;evnt(26070,12611,"ide_methods.bas");}while(r); +S_49939:; +if ((-(*_SUB_IDESHOWTEXT_LONG_SX1>*_SUB_IDESHOWTEXT_LONG_SX2))||new_error){ +if(qbevent){evnt(26070,12612,"ide_methods.bas");if(r)goto S_49939;} +do{ +swap_32(&*_SUB_IDESHOWTEXT_LONG_SX1,&*_SUB_IDESHOWTEXT_LONG_SX2); +if(!qbevent)break;evnt(26070,12612,"ide_methods.bas");}while(r); +} +do{ +*_SUB_IDESHOWTEXT_LONG_L=*__LONG_IDESY; +if(!qbevent)break;evnt(26070,12614,"ide_methods.bas");}while(r); +do{ +*__BYTE_ENTERINGRGB= 0 ; +if(!qbevent)break;evnt(26070,12615,"ide_methods.bas");}while(r); +S_49944:; +if ((~(*__BYTE_DISABLESYNTAXHIGHLIGHTER))||new_error){ +if(qbevent){evnt(26070,12617,"ide_methods.bas");if(r)goto S_49944;} +do{ +*_SUB_IDESHOWTEXT_LONG_IDECY_MULTILINESTART= 0 ; +if(!qbevent)break;evnt(26070,12618,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESHOWTEXT_LONG_IDECY_MULTILINEEND= 0 ; +if(!qbevent)break;evnt(26070,12619,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12620,"ide_methods.bas");}while(r); +do{ +SUB_FINDQUOTECOMMENT(_SUB_IDESHOWTEXT_STRING_A,&(pass5499=_SUB_IDESHOWTEXT_STRING_A->len),_SUB_IDESHOWTEXT_BYTE_IDESHOWTEXT_COMMENT,_SUB_IDESHOWTEXT_BYTE_IDESHOWTEXT_QUOTE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12621,"ide_methods.bas");}while(r); +S_49949:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_right(_SUB_IDESHOWTEXT_STRING_A, 1 ),qbs_new_txt_len("_",1)))&(-(*_SUB_IDESHOWTEXT_BYTE_IDESHOWTEXT_COMMENT== 0 ))))||new_error){ +if(qbevent){evnt(26070,12622,"ide_methods.bas");if(r)goto S_49949;} +S_49950:; +fornext_value5501=*__LONG_IDECY- 1 ; +fornext_finalvalue5501= 1 ; +fornext_step5501= -1 ; +if (fornext_step5501<0) fornext_step_negative5501=1; else fornext_step_negative5501=0; +if (new_error) goto fornext_error5501; +goto fornext_entrylabel5501; +while(1){ +fornext_value5501=fornext_step5501+(*_SUB_IDESHOWTEXT_LONG_IDECY_I); +fornext_entrylabel5501: +*_SUB_IDESHOWTEXT_LONG_IDECY_I=fornext_value5501; +if (fornext_step_negative5501){ +if (fornext_value5501fornext_finalvalue5501) break; +} +fornext_error5501:; +if(qbevent){evnt(26070,12624,"ide_methods.bas");if(r)goto S_49950;} +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_B,FUNC_IDEGETLINE(_SUB_IDESHOWTEXT_LONG_IDECY_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12625,"ide_methods.bas");}while(r); +do{ +SUB_FINDQUOTECOMMENT(_SUB_IDESHOWTEXT_STRING_B,&(pass5503=_SUB_IDESHOWTEXT_STRING_B->len),_SUB_IDESHOWTEXT_BYTE_IDESHOWTEXT_COMMENT,_SUB_IDESHOWTEXT_BYTE_IDESHOWTEXT_QUOTE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12626,"ide_methods.bas");}while(r); +S_49953:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(qbs_right(_SUB_IDESHOWTEXT_STRING_B, 1 ),qbs_new_txt_len("_",1)))|(-(*_SUB_IDESHOWTEXT_BYTE_IDESHOWTEXT_COMMENT== -1 ))))||new_error){ +if(qbevent){evnt(26070,12627,"ide_methods.bas");if(r)goto S_49953;} +do{ +*_SUB_IDESHOWTEXT_LONG_IDECY_MULTILINESTART=*_SUB_IDESHOWTEXT_LONG_IDECY_I+ 1 ; +if(!qbevent)break;evnt(26070,12627,"ide_methods.bas");}while(r); +do{ +goto fornext_exit_5500; +if(!qbevent)break;evnt(26070,12627,"ide_methods.bas");}while(r); +} +fornext_continue_5500:; +} +fornext_exit_5500:; +S_49958:; +if ((-(*_SUB_IDESHOWTEXT_LONG_IDECY_MULTILINESTART== 0 ))||new_error){ +if(qbevent){evnt(26070,12629,"ide_methods.bas");if(r)goto S_49958;} +do{ +*_SUB_IDESHOWTEXT_LONG_IDECY_MULTILINESTART= 1 ; +if(!qbevent)break;evnt(26070,12629,"ide_methods.bas");}while(r); +} +S_49961:; +fornext_value5505=*__LONG_IDECY+ 1 ; +fornext_finalvalue5505=*__LONG_IDEN; +fornext_step5505= 1 ; +if (fornext_step5505<0) fornext_step_negative5505=1; else fornext_step_negative5505=0; +if (new_error) goto fornext_error5505; +goto fornext_entrylabel5505; +while(1){ +fornext_value5505=fornext_step5505+(*_SUB_IDESHOWTEXT_LONG_IDECY_I); +fornext_entrylabel5505: +*_SUB_IDESHOWTEXT_LONG_IDECY_I=fornext_value5505; +if (fornext_step_negative5505){ +if (fornext_value5505fornext_finalvalue5505) break; +} +fornext_error5505:; +if(qbevent){evnt(26070,12632,"ide_methods.bas");if(r)goto S_49961;} +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_B,FUNC_IDEGETLINE(_SUB_IDESHOWTEXT_LONG_IDECY_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12633,"ide_methods.bas");}while(r); +do{ +SUB_FINDQUOTECOMMENT(_SUB_IDESHOWTEXT_STRING_B,&(pass5507=_SUB_IDESHOWTEXT_STRING_B->len),_SUB_IDESHOWTEXT_BYTE_IDESHOWTEXT_COMMENT,_SUB_IDESHOWTEXT_BYTE_IDESHOWTEXT_QUOTE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12634,"ide_methods.bas");}while(r); +S_49964:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(qbs_right(_SUB_IDESHOWTEXT_STRING_B, 1 ),qbs_new_txt_len("_",1)))|(-(*_SUB_IDESHOWTEXT_BYTE_IDESHOWTEXT_COMMENT== -1 ))))||new_error){ +if(qbevent){evnt(26070,12635,"ide_methods.bas");if(r)goto S_49964;} +do{ +*_SUB_IDESHOWTEXT_LONG_IDECY_MULTILINEEND=*_SUB_IDESHOWTEXT_LONG_IDECY_I; +if(!qbevent)break;evnt(26070,12635,"ide_methods.bas");}while(r); +do{ +goto fornext_exit_5504; +if(!qbevent)break;evnt(26070,12635,"ide_methods.bas");}while(r); +} +fornext_continue_5504:; +} +fornext_exit_5504:; +S_49969:; +if ((-(*_SUB_IDESHOWTEXT_LONG_IDECY_MULTILINEEND== 0 ))||new_error){ +if(qbevent){evnt(26070,12637,"ide_methods.bas");if(r)goto S_49969;} +do{ +*_SUB_IDESHOWTEXT_LONG_IDECY_MULTILINESTART=*__LONG_IDEN; +if(!qbevent)break;evnt(26070,12637,"ide_methods.bas");}while(r); +} +}else{ +S_49973:; +if ((-(*__LONG_IDECY> 1 ))||new_error){ +if(qbevent){evnt(26070,12639,"ide_methods.bas");if(r)goto S_49973;} +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_B,FUNC_IDEGETLINE(&(pass5508=*__LONG_IDECY- 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12639,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_B,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12639,"ide_methods.bas");}while(r); +} +do{ +SUB_FINDQUOTECOMMENT(_SUB_IDESHOWTEXT_STRING_B,&(pass5510=_SUB_IDESHOWTEXT_STRING_B->len),_SUB_IDESHOWTEXT_BYTE_IDESHOWTEXT_COMMENT,_SUB_IDESHOWTEXT_BYTE_IDESHOWTEXT_QUOTE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12640,"ide_methods.bas");}while(r); +S_49979:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_right(_SUB_IDESHOWTEXT_STRING_B, 1 ),qbs_new_txt_len("_",1)))&(-(*_SUB_IDESHOWTEXT_BYTE_IDESHOWTEXT_COMMENT== 0 ))))||new_error){ +if(qbevent){evnt(26070,12641,"ide_methods.bas");if(r)goto S_49979;} +do{ +*_SUB_IDESHOWTEXT_LONG_IDECY_MULTILINEEND=*__LONG_IDECY; +if(!qbevent)break;evnt(26070,12642,"ide_methods.bas");}while(r); +S_49981:; +fornext_value5512=*__LONG_IDECY- 1 ; +fornext_finalvalue5512= 1 ; +fornext_step5512= -1 ; +if (fornext_step5512<0) fornext_step_negative5512=1; else fornext_step_negative5512=0; +if (new_error) goto fornext_error5512; +goto fornext_entrylabel5512; +while(1){ +fornext_value5512=fornext_step5512+(*_SUB_IDESHOWTEXT_LONG_IDECY_I); +fornext_entrylabel5512: +*_SUB_IDESHOWTEXT_LONG_IDECY_I=fornext_value5512; +if (fornext_step_negative5512){ +if (fornext_value5512fornext_finalvalue5512) break; +} +fornext_error5512:; +if(qbevent){evnt(26070,12645,"ide_methods.bas");if(r)goto S_49981;} +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_B,FUNC_IDEGETLINE(_SUB_IDESHOWTEXT_LONG_IDECY_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12646,"ide_methods.bas");}while(r); +do{ +SUB_FINDQUOTECOMMENT(_SUB_IDESHOWTEXT_STRING_B,&(pass5514=_SUB_IDESHOWTEXT_STRING_B->len),_SUB_IDESHOWTEXT_BYTE_IDESHOWTEXT_COMMENT,_SUB_IDESHOWTEXT_BYTE_IDESHOWTEXT_QUOTE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12647,"ide_methods.bas");}while(r); +S_49984:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(qbs_right(_SUB_IDESHOWTEXT_STRING_B, 1 ),qbs_new_txt_len("_",1)))|(-(*_SUB_IDESHOWTEXT_BYTE_IDESHOWTEXT_COMMENT== -1 ))))||new_error){ +if(qbevent){evnt(26070,12648,"ide_methods.bas");if(r)goto S_49984;} +do{ +*_SUB_IDESHOWTEXT_LONG_IDECY_MULTILINESTART=*_SUB_IDESHOWTEXT_LONG_IDECY_I+ 1 ; +if(!qbevent)break;evnt(26070,12648,"ide_methods.bas");}while(r); +do{ +goto fornext_exit_5511; +if(!qbevent)break;evnt(26070,12648,"ide_methods.bas");}while(r); +} +fornext_continue_5511:; +} +fornext_exit_5511:; +S_49989:; +if ((-(*_SUB_IDESHOWTEXT_LONG_IDECY_MULTILINESTART== 0 ))||new_error){ +if(qbevent){evnt(26070,12650,"ide_methods.bas");if(r)goto S_49989;} +do{ +*_SUB_IDESHOWTEXT_LONG_IDECY_MULTILINESTART= 1 ; +if(!qbevent)break;evnt(26070,12650,"ide_methods.bas");}while(r); +} +} +} +S_49994:; +if ((-(*__LONG_IDECY> 1 ))||new_error){ +if(qbevent){evnt(26070,12654,"ide_methods.bas");if(r)goto S_49994;} +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_B,FUNC_IDEGETLINE(&(pass5515=*__LONG_IDECY- 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12654,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_B,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12654,"ide_methods.bas");}while(r); +} +do{ +*__LONG_ACTIVEINCLUDELINK= 0 ; +if(!qbevent)break;evnt(26070,12656,"ide_methods.bas");}while(r); +S_50000:; +fornext_value5517= 0 ; +fornext_finalvalue5517=(*__LONG_IDEWY- 9 ); +fornext_step5517= 1 ; +if (fornext_step5517<0) fornext_step_negative5517=1; else fornext_step_negative5517=0; +if (new_error) goto fornext_error5517; +goto fornext_entrylabel5517; +while(1){ +fornext_value5517=fornext_step5517+(*_SUB_IDESHOWTEXT_LONG_Y); +fornext_entrylabel5517: +*_SUB_IDESHOWTEXT_LONG_Y=fornext_value5517; +if (fornext_step_negative5517){ +if (fornext_value5517fornext_finalvalue5517) break; +} +fornext_error5517:; +if(qbevent){evnt(26070,12658,"ide_methods.bas");if(r)goto S_50000;} +do{ +qbg_sub_color( 7 , 1 ,NULL,3); +if(!qbevent)break;evnt(26070,12659,"ide_methods.bas");}while(r); +do{ +sub__printstring( 1 ,*_SUB_IDESHOWTEXT_LONG_Y+ 3 ,func_chr( 179 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12660,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=159; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SHOWLINENUMBER; +RETURN_159:; +if(!qbevent)break;evnt(26070,12662,"ide_methods.bas");}while(r); +S_50004:; +if ((((-(*_SUB_IDESHOWTEXT_LONG_L==*__LONG_IDEFOCUSLINE))&(-(*__LONG_IDECY!=*_SUB_IDESHOWTEXT_LONG_L))&(-(*__LONG_IDEDEBUGMODE== 0 )))|((-(*_SUB_IDESHOWTEXT_LONG_L==*__LONG_IDEFOCUSLINE))&(-(*__LONG_IDECY==*_SUB_IDESHOWTEXT_LONG_L))&(-(*__LONG_IDEDEBUGMODE!= 0 ))))||new_error){ +if(qbevent){evnt(26070,12664,"ide_methods.bas");if(r)goto S_50004;} +do{ +qbg_sub_color( 7 , 4 ,NULL,3); +if(!qbevent)break;evnt(26070,12665,"ide_methods.bas");}while(r); +S_50006:; +}else{ +if ((-(*__LONG_IDECY==*_SUB_IDESHOWTEXT_LONG_L))|(((-(*_SUB_IDESHOWTEXT_LONG_L>=*_SUB_IDESHOWTEXT_LONG_IDECY_MULTILINESTART))&(-(*_SUB_IDESHOWTEXT_LONG_L<=*_SUB_IDESHOWTEXT_LONG_IDECY_MULTILINEEND))))){ +if(qbevent){evnt(26070,12666,"ide_methods.bas");if(r)goto S_50006;} +S_50007:; +if (((-(*__BYTE_HIDECURRENTLINEHIGHLIGHT== 0 ))&(-(*__LONG_IDESYSTEM== 1 )))||new_error){ +if(qbevent){evnt(26070,12667,"ide_methods.bas");if(r)goto S_50007;} +do{ +qbg_sub_color( 7 , 6 ,NULL,3); +if(!qbevent)break;evnt(26070,12667,"ide_methods.bas");}while(r); +} +}else{ +do{ +qbg_sub_color( 7 , 1 ,NULL,3); +if(!qbevent)break;evnt(26070,12669,"ide_methods.bas");}while(r); +} +} +S_50013:; +if ((-(*_SUB_IDESHOWTEXT_LONG_L<=*__LONG_IDEN))||new_error){ +if(qbevent){evnt(26070,12672,"ide_methods.bas");if(r)goto S_50013;} +S_50014:; +while((!(-(*_SUB_IDESHOWTEXT_LONG_Llen))&(-(*__LONG_IDECX>= 1 ))))||new_error){ -if(qbevent){evnt(26070,12681,"ide_methods.bas");if(r)goto S_50021;} -do{ -*_SUB_IDESHOWTEXT_LONG_CC=qbs_asc(_SUB_IDESHOWTEXT_STRING_A,*__LONG_IDECX); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12682,"ide_methods.bas");}while(r); -S_50023:; -if ((-(*_SUB_IDESHOWTEXT_LONG_CC== 32 ))||new_error){ -if(qbevent){evnt(26070,12683,"ide_methods.bas");if(r)goto S_50023;} -S_50024:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ltrim(qbs_left(_SUB_IDESHOWTEXT_STRING_A,*__LONG_IDECX)),qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,12684,"ide_methods.bas");if(r)goto S_50024;} -do{ -*_SUB_IDESHOWTEXT_LONG_CC= -1 ; -if(!qbevent)break;evnt(26070,12684,"ide_methods.bas");}while(r); -} -} -} -do{ -SUB_FINDQUOTECOMMENT(_SUB_IDESHOWTEXT_STRING_A,__LONG_IDECX,_SUB_IDESHOWTEXT_BYTE_IDESHOWTEXT_COMMENT,_SUB_IDESHOWTEXT_BYTE_IDESHOWTEXT_QUOTE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12690,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESHOWTEXT_LONG_IDECX_COMMENT=*_SUB_IDESHOWTEXT_BYTE_IDESHOWTEXT_COMMENT; -if(!qbevent)break;evnt(26070,12691,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESHOWTEXT_LONG_IDECX_QUOTE=*_SUB_IDESHOWTEXT_BYTE_IDESHOWTEXT_QUOTE; -if(!qbevent)break;evnt(26070,12692,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESHOWTEXT_LONG_BRACKETS= 0 ; -if(!qbevent)break;evnt(26070,12695,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESHOWTEXT_LONG_BRACKET1= 0 ; -if(!qbevent)break;evnt(26070,12696,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESHOWTEXT_LONG_BRACKET2= 0 ; -if(!qbevent)break;evnt(26070,12697,"ide_methods.bas");}while(r); -S_50035:; -if (((-((*_SUB_IDESHOWTEXT_LONG_IDECX_COMMENT+*_SUB_IDESHOWTEXT_LONG_IDECX_QUOTE)==( 0 )))&(-(*__INTEGER_BRACKETHIGHLIGHT== -1 )))||new_error){ -if(qbevent){evnt(26070,12698,"ide_methods.bas");if(r)goto S_50035;} -do{ -*_SUB_IDESHOWTEXT_LONG_INQUOTE= 0 ; -if(!qbevent)break;evnt(26070,12699,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESHOWTEXT_LONG_COMMENT= 0 ; -if(!qbevent)break;evnt(26070,12700,"ide_methods.bas");}while(r); -S_50038:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A,*__LONG_IDECX, 1 ,0|1),qbs_new_txt_len("(",1))))||new_error){ -if(qbevent){evnt(26070,12701,"ide_methods.bas");if(r)goto S_50038;} -do{ -*_SUB_IDESHOWTEXT_LONG_BRACKETS= 1 ; -if(!qbevent)break;evnt(26070,12702,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESHOWTEXT_LONG_BRACKET1=*__LONG_IDECX; -if(!qbevent)break;evnt(26070,12703,"ide_methods.bas");}while(r); -LABEL_SCANBRACKET2:; -if(qbevent){evnt(26070,12704,"ide_methods.bas");r=0;} -S_50041:; -fornext_value5521=*_SUB_IDESHOWTEXT_LONG_BRACKET1+ 1 ; -fornext_finalvalue5521=_SUB_IDESHOWTEXT_STRING_A->len; -fornext_step5521= 1 ; -if (fornext_step5521<0) fornext_step_negative5521=1; else fornext_step_negative5521=0; -if (new_error) goto fornext_error5521; -goto fornext_entrylabel5521; -while(1){ -fornext_value5521=fornext_step5521+(*_SUB_IDESHOWTEXT_LONG_K); -fornext_entrylabel5521: -*_SUB_IDESHOWTEXT_LONG_K=fornext_value5521; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative5521){ -if (fornext_value5521fornext_finalvalue5521) break; -} -fornext_error5521:; -if(qbevent){evnt(26070,12705,"ide_methods.bas");if(r)goto S_50041;} -S_50042:; -qbs_set(sc_5523,func_mid(_SUB_IDESHOWTEXT_STRING_A,*_SUB_IDESHOWTEXT_LONG_K, 1 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(qbevent){evnt(26070,12706,"ide_methods.bas");if(r)goto S_50042;} -S_50043:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_5523,func_chr( 34 ))))||new_error){ -if(qbevent){evnt(26070,12707,"ide_methods.bas");if(r)goto S_50043;} -do{ -*_SUB_IDESHOWTEXT_LONG_INQUOTE=~(*_SUB_IDESHOWTEXT_LONG_INQUOTE); -if(!qbevent)break;evnt(26070,12708,"ide_methods.bas");}while(r); -sc_ec_369_end:; -goto sc_5523_end; -} -S_50045:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_5523,qbs_new_txt_len("'",1))))||new_error){ -if(qbevent){evnt(26070,12709,"ide_methods.bas");if(r)goto S_50045;} -S_50046:; -if ((-(*_SUB_IDESHOWTEXT_LONG_INQUOTE== 0 ))||new_error){ -if(qbevent){evnt(26070,12710,"ide_methods.bas");if(r)goto S_50046;} -do{ -*_SUB_IDESHOWTEXT_LONG_COMMENT= -1 ; -if(!qbevent)break;evnt(26070,12710,"ide_methods.bas");}while(r); -do{ -goto fornext_exit_5520; -if(!qbevent)break;evnt(26070,12710,"ide_methods.bas");}while(r); -} -sc_ec_370_end:; -goto sc_5523_end; -} -sc_5523_end:; -S_50051:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A,*_SUB_IDESHOWTEXT_LONG_K, 1 ,0|1),qbs_new_txt_len(")",1)))&(-(*_SUB_IDESHOWTEXT_LONG_INQUOTE== 0 ))))||new_error){ -if(qbevent){evnt(26070,12712,"ide_methods.bas");if(r)goto S_50051;} -do{ -*_SUB_IDESHOWTEXT_LONG_BRACKETS=*_SUB_IDESHOWTEXT_LONG_BRACKETS- 1 ; -if(!qbevent)break;evnt(26070,12713,"ide_methods.bas");}while(r); -S_50053:; -if ((-(*_SUB_IDESHOWTEXT_LONG_BRACKETS== 0 ))||new_error){ -if(qbevent){evnt(26070,12714,"ide_methods.bas");if(r)goto S_50053;} -do{ -*_SUB_IDESHOWTEXT_LONG_BRACKET2=*_SUB_IDESHOWTEXT_LONG_K; -if(!qbevent)break;evnt(26070,12714,"ide_methods.bas");}while(r); -do{ -goto fornext_exit_5520; -if(!qbevent)break;evnt(26070,12714,"ide_methods.bas");}while(r); -} -S_50057:; -}else{ -if (qbs_cleanup(qbs_tmp_base,(qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A,*_SUB_IDESHOWTEXT_LONG_K, 1 ,0|1),qbs_new_txt_len("(",1)))&(-(*_SUB_IDESHOWTEXT_LONG_INQUOTE== 0 )))){ -if(qbevent){evnt(26070,12715,"ide_methods.bas");if(r)goto S_50057;} -do{ -*_SUB_IDESHOWTEXT_LONG_BRACKETS=*_SUB_IDESHOWTEXT_LONG_BRACKETS+ 1 ; -if(!qbevent)break;evnt(26070,12716,"ide_methods.bas");}while(r); -} -} -fornext_continue_5520:; -} -fornext_exit_5520:; -S_50061:; -}else{ -if (qbs_cleanup(qbs_tmp_base,(qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A,*__LONG_IDECX- 1 , 1 ,0|1),qbs_new_txt_len("(",1)))&(qbs_notequal(func_mid(_SUB_IDESHOWTEXT_STRING_A,*__LONG_IDECX, 1 ,0|1),func_chr( 34 ))))){ -if(qbevent){evnt(26070,12719,"ide_methods.bas");if(r)goto S_50061;} -do{ -*_SUB_IDESHOWTEXT_LONG_BRACKETS= 1 ; -if(!qbevent)break;evnt(26070,12720,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESHOWTEXT_LONG_BRACKET1=*__LONG_IDECX- 1 ; -if(!qbevent)break;evnt(26070,12721,"ide_methods.bas");}while(r); -do{ -goto LABEL_SCANBRACKET2; -if(!qbevent)break;evnt(26070,12722,"ide_methods.bas");}while(r); -S_50065:; -}else{ -if (qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A,*__LONG_IDECX, 1 ,0|1),qbs_new_txt_len(")",1)))){ -if(qbevent){evnt(26070,12723,"ide_methods.bas");if(r)goto S_50065;} -do{ -*_SUB_IDESHOWTEXT_LONG_BRACKETS= 1 ; -if(!qbevent)break;evnt(26070,12724,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESHOWTEXT_LONG_BRACKET2=*__LONG_IDECX; -if(!qbevent)break;evnt(26070,12725,"ide_methods.bas");}while(r); -LABEL_SCANBRACKET1:; -if(qbevent){evnt(26070,12726,"ide_methods.bas");r=0;} -S_50068:; -fornext_value5525=*_SUB_IDESHOWTEXT_LONG_BRACKET2- 1 ; -fornext_finalvalue5525= 1 ; -fornext_step5525= -1 ; -if (fornext_step5525<0) fornext_step_negative5525=1; else fornext_step_negative5525=0; -if (new_error) goto fornext_error5525; -goto fornext_entrylabel5525; -while(1){ -fornext_value5525=fornext_step5525+(*_SUB_IDESHOWTEXT_LONG_K); -fornext_entrylabel5525: -*_SUB_IDESHOWTEXT_LONG_K=fornext_value5525; -if (fornext_step_negative5525){ -if (fornext_value5525fornext_finalvalue5525) break; -} -fornext_error5525:; -if(qbevent){evnt(26070,12727,"ide_methods.bas");if(r)goto S_50068;} -S_50069:; -qbs_set(sc_5526,func_mid(_SUB_IDESHOWTEXT_STRING_A,*_SUB_IDESHOWTEXT_LONG_K, 1 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(qbevent){evnt(26070,12728,"ide_methods.bas");if(r)goto S_50069;} -S_50070:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_5526,func_chr( 34 ))))||new_error){ -if(qbevent){evnt(26070,12729,"ide_methods.bas");if(r)goto S_50070;} -do{ -*_SUB_IDESHOWTEXT_LONG_INQUOTE=~(*_SUB_IDESHOWTEXT_LONG_INQUOTE); -if(!qbevent)break;evnt(26070,12730,"ide_methods.bas");}while(r); -sc_ec_371_end:; -goto sc_5526_end; -} -sc_5526_end:; -S_50073:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A,*_SUB_IDESHOWTEXT_LONG_K, 1 ,0|1),qbs_new_txt_len("(",1)))&(-(*_SUB_IDESHOWTEXT_LONG_INQUOTE== 0 ))))||new_error){ -if(qbevent){evnt(26070,12732,"ide_methods.bas");if(r)goto S_50073;} -do{ -*_SUB_IDESHOWTEXT_LONG_BRACKETS=*_SUB_IDESHOWTEXT_LONG_BRACKETS- 1 ; -if(!qbevent)break;evnt(26070,12733,"ide_methods.bas");}while(r); -S_50075:; -if ((-(*_SUB_IDESHOWTEXT_LONG_BRACKETS== 0 ))||new_error){ -if(qbevent){evnt(26070,12734,"ide_methods.bas");if(r)goto S_50075;} -do{ -*_SUB_IDESHOWTEXT_LONG_BRACKET1=*_SUB_IDESHOWTEXT_LONG_K; -if(!qbevent)break;evnt(26070,12734,"ide_methods.bas");}while(r); -do{ -goto fornext_exit_5524; -if(!qbevent)break;evnt(26070,12734,"ide_methods.bas");}while(r); -} -S_50079:; -}else{ -if (qbs_cleanup(qbs_tmp_base,(qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A,*_SUB_IDESHOWTEXT_LONG_K, 1 ,0|1),qbs_new_txt_len(")",1)))&(-(*_SUB_IDESHOWTEXT_LONG_INQUOTE== 0 )))){ -if(qbevent){evnt(26070,12735,"ide_methods.bas");if(r)goto S_50079;} -do{ -*_SUB_IDESHOWTEXT_LONG_BRACKETS=*_SUB_IDESHOWTEXT_LONG_BRACKETS+ 1 ; -if(!qbevent)break;evnt(26070,12736,"ide_methods.bas");}while(r); -} -} -fornext_continue_5524:; -} -fornext_exit_5524:; -S_50083:; -}else{ -if (qbs_cleanup(qbs_tmp_base,(qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A,*__LONG_IDECX- 1 , 1 ,0|1),qbs_new_txt_len(")",1)))&(qbs_notequal(func_mid(_SUB_IDESHOWTEXT_STRING_A,*__LONG_IDECX, 1 ,0|1),func_chr( 34 ))))){ -if(qbevent){evnt(26070,12739,"ide_methods.bas");if(r)goto S_50083;} -do{ -*_SUB_IDESHOWTEXT_LONG_BRACKETS= 1 ; -if(!qbevent)break;evnt(26070,12740,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESHOWTEXT_LONG_BRACKET2=*__LONG_IDECX- 1 ; -if(!qbevent)break;evnt(26070,12741,"ide_methods.bas");}while(r); -do{ -goto LABEL_SCANBRACKET1; -if(!qbevent)break;evnt(26070,12742,"ide_methods.bas");}while(r); -} -} -} -} -} -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_A2,qbs_ucase(_SUB_IDESHOWTEXT_STRING_A)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12749,"ide_methods.bas");}while(r); -S_50090:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_IDECX==(_SUB_IDESHOWTEXT_STRING_A->len+ 1 )))&(-((*_SUB_IDESHOWTEXT_LONG_IDECX_COMMENT+*_SUB_IDESHOWTEXT_LONG_IDECX_QUOTE)==( 0 )))))||new_error){ -if(qbevent){evnt(26070,12751,"ide_methods.bas");if(r)goto S_50090;} -S_50091:; -if ((qbs_cleanup(qbs_tmp_base,((qbs_equal(qbs_right(_SUB_IDESHOWTEXT_STRING_A2, 5 ),qbs_new_txt_len("_RGB(",5)))|(qbs_equal(qbs_right(_SUB_IDESHOWTEXT_STRING_A2, 7 ),qbs_new_txt_len("_RGB32(",7)))|(qbs_equal(qbs_right(_SUB_IDESHOWTEXT_STRING_A2, 6 ),qbs_new_txt_len("_RGBA(",6)))|(qbs_equal(qbs_right(_SUB_IDESHOWTEXT_STRING_A2, 8 ),qbs_new_txt_len("_RGBA32(",8))))|((((qbs_equal(qbs_right(_SUB_IDESHOWTEXT_STRING_A2, 4 ),qbs_new_txt_len("RGB(",4)))|(qbs_equal(qbs_right(_SUB_IDESHOWTEXT_STRING_A2, 6 ),qbs_new_txt_len("RGB32(",6)))|(qbs_equal(qbs_right(_SUB_IDESHOWTEXT_STRING_A2, 5 ),qbs_new_txt_len("RGBA(",5)))|(qbs_equal(qbs_right(_SUB_IDESHOWTEXT_STRING_A2, 7 ),qbs_new_txt_len("RGBA32(",7)))))&(-(*__LONG_QB64PREFIX_SET== 1 )))))||new_error){ -if(qbevent){evnt(26070,12759,"ide_methods.bas");if(r)goto S_50091;} -do{ -*_SUB_IDESHOWTEXT_LONG_SHIFTENTER_IDECX=_SUB_IDESHOWTEXT_STRING_A->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12760,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_A,qbs_add(_SUB_IDESHOWTEXT_STRING_A,qbs_new_txt_len(" --> Shift+ENTER to open the RGB mixer",38))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12761,"ide_methods.bas");}while(r); -do{ -*__BYTE_ENTERINGRGB= -1 ; -if(!qbevent)break;evnt(26070,12762,"ide_methods.bas");}while(r); -} -S_50096:; -}else{ -if (-((*_SUB_IDESHOWTEXT_LONG_IDECX_COMMENT+*_SUB_IDESHOWTEXT_LONG_IDECX_QUOTE)==( 0 ))){ -if(qbevent){evnt(26070,12764,"ide_methods.bas");if(r)goto S_50096;} -S_50097:; -if ((qbs_cleanup(qbs_tmp_base,((qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A2,*__LONG_IDECX- 5 , 5 ,0|1),qbs_new_txt_len("_RGB(",5)))|(qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A2,*__LONG_IDECX- 7 , 7 ,0|1),qbs_new_txt_len("_RGB32(",7)))|(qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A2,*__LONG_IDECX- 6 , 6 ,0|1),qbs_new_txt_len("_RGBA(",6)))|(qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A2,*__LONG_IDECX- 8 , 8 ,0|1),qbs_new_txt_len("_RGBA32(",8))))|((((qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A2,*__LONG_IDECX- 4 , 4 ,0|1),qbs_new_txt_len("RGB(",4)))|(qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A2,*__LONG_IDECX- 6 , 6 ,0|1),qbs_new_txt_len("RGB32(",6)))|(qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A2,*__LONG_IDECX- 5 , 5 ,0|1),qbs_new_txt_len("RGBA(",5)))|(qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A2,*__LONG_IDECX- 7 , 7 ,0|1),qbs_new_txt_len("RGBA32(",7)))))&(-(*__LONG_QB64PREFIX_SET== 1 )))))||new_error){ -if(qbevent){evnt(26070,12772,"ide_methods.bas");if(r)goto S_50097;} -S_50098:; -if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,qbs_new_txt_len("0123456789",10),func_mid(_SUB_IDESHOWTEXT_STRING_A2,*__LONG_IDECX, 1 ,0|1),0)== 0 )))||new_error){ -if(qbevent){evnt(26070,12773,"ide_methods.bas");if(r)goto S_50098;} -do{ -*__BYTE_ENTERINGRGB= -1 ; -if(!qbevent)break;evnt(26070,12773,"ide_methods.bas");}while(r); -} -} -} -} -do{ -*_SUB_IDESHOWTEXT_LONG_FINDINCLUDE=func__instrrev(NULL,_SUB_IDESHOWTEXT_STRING_A2,qbs_new_txt_len("$INCLUDE",8),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12777,"ide_methods.bas");}while(r); -S_50104:; -if ((-(*_SUB_IDESHOWTEXT_LONG_FINDINCLUDE> 0 ))||new_error){ -if(qbevent){evnt(26070,12778,"ide_methods.bas");if(r)goto S_50104;} -do{ -*_SUB_IDESHOWTEXT_LONG_LINK_IDECX=_SUB_IDESHOWTEXT_STRING_A->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12779,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESHOWTEXT_LONG_FINDAPOSTROPHE1=func_instr(*_SUB_IDESHOWTEXT_LONG_FINDINCLUDE+ 8 ,_SUB_IDESHOWTEXT_STRING_A2,qbs_new_txt_len("'",1),0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12780,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESHOWTEXT_LONG_FINDAPOSTROPHE2=func_instr(*_SUB_IDESHOWTEXT_LONG_FINDAPOSTROPHE1+ 1 ,_SUB_IDESHOWTEXT_STRING_A2,qbs_new_txt_len("'",1),0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12781,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_ACTIVEINCLUDELINKFILE,func_mid(_SUB_IDESHOWTEXT_STRING_A,*_SUB_IDESHOWTEXT_LONG_FINDAPOSTROPHE1+ 1 ,*_SUB_IDESHOWTEXT_LONG_FINDAPOSTROPHE2-*_SUB_IDESHOWTEXT_LONG_FINDAPOSTROPHE1- 1 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12782,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_P,qbs_add(__STRING_IDEPATH,__STRING1_PATHSEP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12783,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_F,qbs_add(_SUB_IDESHOWTEXT_STRING_P,__STRING_ACTIVEINCLUDELINKFILE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12784,"ide_methods.bas");}while(r); -S_50111:; -if ((qbs_cleanup(qbs_tmp_base,func__fileexists(_SUB_IDESHOWTEXT_STRING_F)|func__fileexists(__STRING_ACTIVEINCLUDELINKFILE)))||new_error){ -if(qbevent){evnt(26070,12785,"ide_methods.bas");if(r)goto S_50111;} -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_A,qbs_add(_SUB_IDESHOWTEXT_STRING_A,qbs_new_txt_len(" --> Double-click to open",25))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12786,"ide_methods.bas");}while(r); -do{ -*__LONG_ACTIVEINCLUDELINK=*__LONG_IDECY; -if(!qbevent)break;evnt(26070,12786,"ide_methods.bas");}while(r); -} -} -} -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_A2,func_space(*__LONG_IDESX+(*__LONG_IDEWX- 3 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12791,"ide_methods.bas");}while(r); -do{ -sub_mid(_SUB_IDESHOWTEXT_STRING_A2, 1 ,0,_SUB_IDESHOWTEXT_STRING_A,0); -if(!qbevent)break;evnt(26070,12792,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_A2,func_space((*__LONG_IDEWX- 2 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12794,"ide_methods.bas");}while(r); -} -do{ -*_SUB_IDESHOWTEXT_LONG_INQUOTE= 0 ; -if(!qbevent)break;evnt(26070,12798,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESHOWTEXT_LONG_METACOMMAND= 0 ; -if(!qbevent)break;evnt(26070,12799,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESHOWTEXT_LONG_COMMENT= 0 ; -if(!qbevent)break;evnt(26070,12800,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESHOWTEXT_LONG_ISKEYWORD= 0 ; -if(!qbevent)break;evnt(26070,12801,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_OLDCHAR,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12801,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESHOWTEXT_LONG_ISCUSTOMKEYWORD= 0 ; -if(!qbevent)break;evnt(26070,12802,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESHOWTEXT_LONG_MULTIHIGHLIGHTLENGTH= 0 ; -if(!qbevent)break;evnt(26070,12803,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESHOWTEXT_INTEGER_PREVBG=func__backgroundcolor(NULL,0); -if(!qbevent)break;evnt(26070,12804,"ide_methods.bas");}while(r); -S_50130:; -fornext_value5531= 1 ; -fornext_finalvalue5531=_SUB_IDESHOWTEXT_STRING_A2->len; -fornext_step5531= 1 ; -if (fornext_step5531<0) fornext_step_negative5531=1; else fornext_step_negative5531=0; -if (new_error) goto fornext_error5531; -goto fornext_entrylabel5531; -while(1){ -fornext_value5531=fornext_step5531+(*_SUB_IDESHOWTEXT_LONG_M); -fornext_entrylabel5531: -*_SUB_IDESHOWTEXT_LONG_M=fornext_value5531; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative5531){ -if (fornext_value5531fornext_finalvalue5531) break; -} -fornext_error5531:; -if(qbevent){evnt(26070,12806,"ide_methods.bas");if(r)goto S_50130;} -S_50131:; -if ((-(FUNC_TIMEELAPSEDSINCE(_SUB_IDESHOWTEXT_SINGLE_STARTTIME)> 1 ))||new_error){ -if(qbevent){evnt(26070,12807,"ide_methods.bas");if(r)goto S_50131;} -do{ -*_SUB_IDESHOWTEXT_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Syntax Highlighter Disabled",27),qbs_new_txt_len("Syntax Highlighter has been disabled to avoid slowing down the IDE.\\nYou can reenable the Highlighter in the 'Options' menu.",124),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12808,"ide_methods.bas");}while(r); -do{ -*__BYTE_DISABLESYNTAXHIGHLIGHTER= -1 ; -if(!qbevent)break;evnt(26070,12809,"ide_methods.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("DisableSyntaxHighlighter",24),qbs_new_txt_len("True",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12810,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*__INTEGER_OPTIONSMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_OPTIONSMENUDISABLESYNTAX)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Syntax #Highlighter",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12811,"ide_methods.bas");}while(r); -do{ -goto LABEL_NOSYNTAXHIGHLIGHTING; -if(!qbevent)break;evnt(26070,12812,"ide_methods.bas");}while(r); -} -S_50138:; -if ((-(*_SUB_IDESHOWTEXT_LONG_M>(*__LONG_IDESX+*__LONG_IDEWX- 2 )))||new_error){ -if(qbevent){evnt(26070,12814,"ide_methods.bas");if(r)goto S_50138;} -do{ -goto fornext_exit_5530; -if(!qbevent)break;evnt(26070,12814,"ide_methods.bas");}while(r); -} -S_50141:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_IDESELECT== 1 ))&(-(__STRING_IDECURRENTSINGLELINESELECTION->len> 0 ))&(-(*_SUB_IDESHOWTEXT_LONG_MULTIHIGHLIGHTLENGTH== 0 ))&(-(*__INTEGER_MULTIHIGHLIGHT== -1 ))))||new_error){ -if(qbevent){evnt(26070,12815,"ide_methods.bas");if(r)goto S_50141;} -S_50142:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_lcase(func_mid(_SUB_IDESHOWTEXT_STRING_A2,*_SUB_IDESHOWTEXT_LONG_M,__STRING_IDECURRENTSINGLELINESELECTION->len,0|1)),qbs_lcase(__STRING_IDECURRENTSINGLELINESELECTION))))||new_error){ -if(qbevent){evnt(26070,12816,"ide_methods.bas");if(r)goto S_50142;} -S_50143:; -if ((-(*_SUB_IDESHOWTEXT_LONG_M> 1 ))||new_error){ -if(qbevent){evnt(26070,12818,"ide_methods.bas");if(r)goto S_50143;} -S_50144:; -if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_SUB_IDESHOWTEXT_STRING_CHAR__ASCII_CHR_046__SEP,func_mid(_SUB_IDESHOWTEXT_STRING_A2,*_SUB_IDESHOWTEXT_LONG_M- 1 , 1 ,0|1),0)> 0 )))||new_error){ -if(qbevent){evnt(26070,12819,"ide_methods.bas");if(r)goto S_50144;} -S_50145:; -if ((qbs_cleanup(qbs_tmp_base,(-((*_SUB_IDESHOWTEXT_LONG_M+__STRING_IDECURRENTSINGLELINESELECTION->len)<(_SUB_IDESHOWTEXT_STRING_A2->len)))&(((-(func_instr(NULL,_SUB_IDESHOWTEXT_STRING_CHAR__ASCII_CHR_046__SEP,func_mid(_SUB_IDESHOWTEXT_STRING_A2,*_SUB_IDESHOWTEXT_LONG_M+__STRING_IDECURRENTSINGLELINESELECTION->len, 1 ,0|1),0)> 0 ))|(qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A2,*_SUB_IDESHOWTEXT_LONG_M+__STRING_IDECURRENTSINGLELINESELECTION->len, 1 ,0|1),qbs_new_txt_len(".",1)))))))||new_error){ -if(qbevent){evnt(26070,12822,"ide_methods.bas");if(r)goto S_50145;} -do{ -*_SUB_IDESHOWTEXT_LONG_MULTIHIGHLIGHTLENGTH=__STRING_IDECURRENTSINGLELINESELECTION->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12823,"ide_methods.bas");}while(r); -S_50147:; -}else{ -if (qbs_cleanup(qbs_tmp_base,-((*_SUB_IDESHOWTEXT_LONG_M+__STRING_IDECURRENTSINGLELINESELECTION->len)>=(_SUB_IDESHOWTEXT_STRING_A2->len)))){ -if(qbevent){evnt(26070,12824,"ide_methods.bas");if(r)goto S_50147;} -do{ -*_SUB_IDESHOWTEXT_LONG_MULTIHIGHLIGHTLENGTH=__STRING_IDECURRENTSINGLELINESELECTION->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12825,"ide_methods.bas");}while(r); -} -} -} -}else{ -S_50152:; -if ((qbs_cleanup(qbs_tmp_base,(-((*_SUB_IDESHOWTEXT_LONG_M+__STRING_IDECURRENTSINGLELINESELECTION->len)<(_SUB_IDESHOWTEXT_STRING_A2->len)))&(((-(func_instr(NULL,_SUB_IDESHOWTEXT_STRING_CHAR__ASCII_CHR_046__SEP,func_mid(_SUB_IDESHOWTEXT_STRING_A2,*_SUB_IDESHOWTEXT_LONG_M+__STRING_IDECURRENTSINGLELINESELECTION->len, 1 ,0|1),0)> 0 ))|(qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A2,*_SUB_IDESHOWTEXT_LONG_M+__STRING_IDECURRENTSINGLELINESELECTION->len, 1 ,0|1),qbs_new_txt_len(".",1)))))))||new_error){ -if(qbevent){evnt(26070,12831,"ide_methods.bas");if(r)goto S_50152;} -do{ -*_SUB_IDESHOWTEXT_LONG_MULTIHIGHLIGHTLENGTH=__STRING_IDECURRENTSINGLELINESELECTION->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12832,"ide_methods.bas");}while(r); -S_50154:; -}else{ -if (qbs_cleanup(qbs_tmp_base,-((*_SUB_IDESHOWTEXT_LONG_M+__STRING_IDECURRENTSINGLELINESELECTION->len)>=(_SUB_IDESHOWTEXT_STRING_A2->len)))){ -if(qbevent){evnt(26070,12833,"ide_methods.bas");if(r)goto S_50154;} -do{ -*_SUB_IDESHOWTEXT_LONG_MULTIHIGHLIGHTLENGTH=__STRING_IDECURRENTSINGLELINESELECTION->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12834,"ide_methods.bas");}while(r); -} -} -} -} -} -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_THISCHAR,func_mid(_SUB_IDESHOWTEXT_STRING_A2,*_SUB_IDESHOWTEXT_LONG_M, 1 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12840,"ide_methods.bas");}while(r); -S_50161:; -if ((-(*_SUB_IDESHOWTEXT_LONG_COMMENT== 0 ))||new_error){ -if(qbevent){evnt(26070,12842,"ide_methods.bas");if(r)goto S_50161;} -S_50162:; -if(qbevent){evnt(26070,12843,"ide_methods.bas");if(r)goto S_50162;} -S_50163:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDESHOWTEXT_STRING_THISCHAR,func_chr( 34 ))))||new_error){ -if(qbevent){evnt(26070,12844,"ide_methods.bas");if(r)goto S_50163;} -do{ -*_SUB_IDESHOWTEXT_LONG_INQUOTE=~(*_SUB_IDESHOWTEXT_LONG_INQUOTE); -if(!qbevent)break;evnt(26070,12844,"ide_methods.bas");}while(r); -sc_ec_372_end:; -goto sc_5551_end; -} -S_50165:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDESHOWTEXT_STRING_THISCHAR,qbs_new_txt_len("'",1))))||new_error){ -if(qbevent){evnt(26070,12845,"ide_methods.bas");if(r)goto S_50165;} -S_50166:; -if ((-(*_SUB_IDESHOWTEXT_LONG_INQUOTE== 0 ))||new_error){ -if(qbevent){evnt(26070,12845,"ide_methods.bas");if(r)goto S_50166;} -do{ -*_SUB_IDESHOWTEXT_LONG_COMMENT= -1 ; -if(!qbevent)break;evnt(26070,12845,"ide_methods.bas");}while(r); -} -sc_ec_373_end:; -goto sc_5551_end; -} -sc_5551_end:; -} -do{ -qbg_sub_color( 13 ,NULL,NULL,1); -if(!qbevent)break;evnt(26070,12849,"ide_methods.bas");}while(r); -S_50172:; -if ((((int8*)(__ARRAY_BYTE_INVALIDLINE[0]))[array_check((*_SUB_IDESHOWTEXT_LONG_L)-__ARRAY_BYTE_INVALIDLINE[4],__ARRAY_BYTE_INVALIDLINE[5])])||new_error){ -if(qbevent){evnt(26070,12851,"ide_methods.bas");if(r)goto S_50172;} -do{ -qbg_sub_color( 7 ,NULL,NULL,1); -if(!qbevent)break;evnt(26070,12851,"ide_methods.bas");}while(r); -do{ -goto LABEL_SKIPSYNTAXHIGHLIGHTER; -if(!qbevent)break;evnt(26070,12851,"ide_methods.bas");}while(r); -} -S_50176:; -if ((qbs_cleanup(qbs_tmp_base,(((-(_SUB_IDESHOWTEXT_STRING_OLDCHAR->len> 0 ))|(-(*_SUB_IDESHOWTEXT_LONG_M== 1 ))))&(-(*_SUB_IDESHOWTEXT_LONG_INQUOTE== 0 ))&(-(*_SUB_IDESHOWTEXT_LONG_ISKEYWORD== 0 ))))||new_error){ -if(qbevent){evnt(26070,12853,"ide_methods.bas");if(r)goto S_50176;} -S_50177:; -if ((qbs_cleanup(qbs_tmp_base,(-(func_instr(NULL,_SUB_IDESHOWTEXT_STRING_INITIALNUM__ASCII_CHR_046__CHAR,_SUB_IDESHOWTEXT_STRING_THISCHAR,0)> 0 ))&(qbs_notequal(_SUB_IDESHOWTEXT_STRING_OLDCHAR,qbs_new_txt_len(")",1)))&(((-(func_instr(NULL,_SUB_IDESHOWTEXT_STRING_CHAR__ASCII_CHR_046__SEP,_SUB_IDESHOWTEXT_STRING_OLDCHAR,0)> 0 ))|(qbs_equal(_SUB_IDESHOWTEXT_STRING_OLDCHAR,qbs_new_txt_len("?",1)))))))||new_error){ -if(qbevent){evnt(26070,12854,"ide_methods.bas");if(r)goto S_50177;} -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12856,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESHOWTEXT_LONG_IS_NUMBER= 0 ; -if(!qbevent)break;evnt(26070,12857,"ide_methods.bas");}while(r); -S_50180:; -fornext_value5554=*_SUB_IDESHOWTEXT_LONG_M; -fornext_finalvalue5554=_SUB_IDESHOWTEXT_STRING_A2->len; -fornext_step5554= 1 ; -if (fornext_step5554<0) fornext_step_negative5554=1; else fornext_step_negative5554=0; -if (new_error) goto fornext_error5554; -goto fornext_entrylabel5554; -while(1){ -fornext_value5554=fornext_step5554+(*_SUB_IDESHOWTEXT_LONG_I); -fornext_entrylabel5554: -*_SUB_IDESHOWTEXT_LONG_I=fornext_value5554; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative5554){ -if (fornext_value5554fornext_finalvalue5554) break; -} -fornext_error5554:; -if(qbevent){evnt(26070,12859,"ide_methods.bas");if(r)goto S_50180;} -S_50181:; -if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_SUB_IDESHOWTEXT_STRING_NUM__ASCII_CHR_046__CHAR,func_mid(_SUB_IDESHOWTEXT_STRING_A2,*_SUB_IDESHOWTEXT_LONG_I, 1 ,0|1),0)== 0 )))||new_error){ -if(qbevent){evnt(26070,12860,"ide_methods.bas");if(r)goto S_50181;} -do{ -goto fornext_exit_5553; -if(!qbevent)break;evnt(26070,12860,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,qbs_add(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,func_mid(_SUB_IDESHOWTEXT_STRING_A2,*_SUB_IDESHOWTEXT_LONG_I, 1 ,0|1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12861,"ide_methods.bas");}while(r); -fornext_continue_5553:; -} -fornext_exit_5553:; -S_50186:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,qbs_new_txt_len("-",1)))|(qbs_equal(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,qbs_new_txt_len(".",1)))|(qbs_equal(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,qbs_new_txt_len("&",1)))))||new_error){ -if(qbevent){evnt(26070,12864,"ide_methods.bas");if(r)goto S_50186;} -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12865,"ide_methods.bas");}while(r); -}else{ -S_50189:; -if ((qbs_cleanup(qbs_tmp_base,FUNC_ISNUMBER(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD)))||new_error){ -if(qbevent){evnt(26070,12867,"ide_methods.bas");if(r)goto S_50189;} -do{ -*_SUB_IDESHOWTEXT_LONG_IS_NUMBER= -1 ; -if(!qbevent)break;evnt(26070,12868,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESHOWTEXT_LONG_ISKEYWORD=_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12869,"ide_methods.bas");}while(r); -S_50192:; -}else{ -if (qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,__STRING_USERDEFINELIST,qbs_add(qbs_new_txt_len("@",1),qbs_ucase(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD)),0)> 0 ))){ -if(qbevent){evnt(26070,12870,"ide_methods.bas");if(r)goto S_50192;} -S_50193:; -fornext_value5558=*_SUB_IDESHOWTEXT_LONG_I; -fornext_finalvalue5558=_SUB_IDESHOWTEXT_STRING_A2->len; -fornext_step5558= 1 ; -if (fornext_step5558<0) fornext_step_negative5558=1; else fornext_step_negative5558=0; -if (new_error) goto fornext_error5558; -goto fornext_entrylabel5558; -while(1){ -fornext_value5558=fornext_step5558+(*_SUB_IDESHOWTEXT_LONG_I); -fornext_entrylabel5558: -*_SUB_IDESHOWTEXT_LONG_I=fornext_value5558; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative5558){ -if (fornext_value5558fornext_finalvalue5558) break; -} -fornext_error5558:; -if(qbevent){evnt(26070,12872,"ide_methods.bas");if(r)goto S_50193;} -S_50194:; -if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_SUB_IDESHOWTEXT_STRING_CHAR__ASCII_CHR_046__SEP,func_mid(_SUB_IDESHOWTEXT_STRING_A2,*_SUB_IDESHOWTEXT_LONG_I, 1 ,0|1),0)> 0 )))||new_error){ -if(qbevent){evnt(26070,12873,"ide_methods.bas");if(r)goto S_50194;} -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_RIGHT__ASCII_CHR_046__SEP,func_mid(_SUB_IDESHOWTEXT_STRING_A2,*_SUB_IDESHOWTEXT_LONG_I, 1 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12873,"ide_methods.bas");}while(r); -do{ -goto LABEL_KEYWORDACQUIRED; -if(!qbevent)break;evnt(26070,12873,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,qbs_add(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,func_mid(_SUB_IDESHOWTEXT_STRING_A2,*_SUB_IDESHOWTEXT_LONG_I, 1 ,0|1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12874,"ide_methods.bas");}while(r); -fornext_continue_5557:; -} -fornext_exit_5557:; -do{ -goto LABEL_KEYWORDACQUIRED; -if(!qbevent)break;evnt(26070,12876,"ide_methods.bas");}while(r); -} -} -} -do{ -goto LABEL_SETOLDCHAR; -if(!qbevent)break;evnt(26070,12879,"ide_methods.bas");}while(r); -} -S_50205:; -if ((qbs_cleanup(qbs_tmp_base,(((-(func_instr(NULL,_SUB_IDESHOWTEXT_STRING_CHAR__ASCII_CHR_046__SEP,_SUB_IDESHOWTEXT_STRING_OLDCHAR,0)> 0 ))|(qbs_equal(_SUB_IDESHOWTEXT_STRING_OLDCHAR,qbs_new_txt_len("?",1)))))&(-(func_instr(NULL,_SUB_IDESHOWTEXT_STRING_CHAR__ASCII_CHR_046__SEP,_SUB_IDESHOWTEXT_STRING_THISCHAR,0)== 0 ))))||new_error){ -if(qbevent){evnt(26070,12882,"ide_methods.bas");if(r)goto S_50205;} -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12884,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_RIGHT__ASCII_CHR_046__SEP,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12885,"ide_methods.bas");}while(r); -S_50208:; -fornext_value5561=*_SUB_IDESHOWTEXT_LONG_M; -fornext_finalvalue5561=_SUB_IDESHOWTEXT_STRING_A2->len; -fornext_step5561= 1 ; -if (fornext_step5561<0) fornext_step_negative5561=1; else fornext_step_negative5561=0; -if (new_error) goto fornext_error5561; -goto fornext_entrylabel5561; -while(1){ -fornext_value5561=fornext_step5561+(*_SUB_IDESHOWTEXT_LONG_I); -fornext_entrylabel5561: -*_SUB_IDESHOWTEXT_LONG_I=fornext_value5561; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative5561){ -if (fornext_value5561fornext_finalvalue5561) break; -} -fornext_error5561:; -if(qbevent){evnt(26070,12886,"ide_methods.bas");if(r)goto S_50208;} -S_50209:; -if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_SUB_IDESHOWTEXT_STRING_CHAR__ASCII_CHR_046__SEP,func_mid(_SUB_IDESHOWTEXT_STRING_A2,*_SUB_IDESHOWTEXT_LONG_I, 1 ,0|1),0)> 0 )))||new_error){ -if(qbevent){evnt(26070,12887,"ide_methods.bas");if(r)goto S_50209;} -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_RIGHT__ASCII_CHR_046__SEP,func_mid(_SUB_IDESHOWTEXT_STRING_A2,*_SUB_IDESHOWTEXT_LONG_I, 1 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12887,"ide_methods.bas");}while(r); -do{ -goto fornext_exit_5560; -if(!qbevent)break;evnt(26070,12887,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,qbs_add(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,func_mid(_SUB_IDESHOWTEXT_STRING_A2,*_SUB_IDESHOWTEXT_LONG_I, 1 ,0|1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12888,"ide_methods.bas");}while(r); -fornext_continue_5560:; -} -fornext_exit_5560:; -S_50215:; -if ((qbs_cleanup(qbs_tmp_base,(-(*_SUB_IDESHOWTEXT_LONG_COMMENT== 0 ))&(qbs_equal(qbs_left(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD, 1 ),qbs_new_txt_len("?",1)))))||new_error){ -if(qbevent){evnt(26070,12890,"ide_methods.bas");if(r)goto S_50215;} -do{ -*_SUB_IDESHOWTEXT_LONG_ISKEYWORD= 1 ; -if(!qbevent)break;evnt(26070,12890,"ide_methods.bas");}while(r); -do{ -goto LABEL_SETOLDCHAR; -if(!qbevent)break;evnt(26070,12890,"ide_methods.bas");}while(r); -} -LABEL_KEYWORDACQUIRED:; -if(qbevent){evnt(26070,12891,"ide_methods.bas");r=0;} -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,qbs_ucase(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12892,"ide_methods.bas");}while(r); -S_50220:; -if ((qbs_cleanup(qbs_tmp_base,(-(func_instr(NULL,__STRING_LISTOFKEYWORDS,qbs_add(qbs_add(qbs_new_txt_len("@",1),_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD),qbs_new_txt_len("@",1)),0)> 0 ))|(((-(*__LONG_QB64PREFIX_SET== 1 ))&(-(func_instr(NULL,__STRING_LISTOFKEYWORDS,qbs_add(qbs_add(qbs_new_txt_len("@_",2),_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD),qbs_new_txt_len("@",1)),0)> 0 ))))))||new_error){ -if(qbevent){evnt(26070,12894,"ide_methods.bas");if(r)goto S_50220;} -S_50221:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,qbs_new_txt_len("$END",4))))||new_error){ -if(qbevent){evnt(26070,12896,"ide_methods.bas");if(r)goto S_50221;} -S_50222:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(func_mid(_SUB_IDESHOWTEXT_STRING_A2,*_SUB_IDESHOWTEXT_LONG_M, 7 ,0|1)),qbs_new_txt_len("$END IF",7))))||new_error){ -if(qbevent){evnt(26070,12897,"ide_methods.bas");if(r)goto S_50222;} -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,qbs_new_txt_len("$END IF",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12897,"ide_methods.bas");}while(r); -} -S_50225:; -}else{ -if (qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,qbs_new_txt_len("THEN",4)))&(((qbs_equal(qbs_ucase(qbs_left(qbs_ltrim(_SUB_IDESHOWTEXT_STRING_A2), 3 )),qbs_new_txt_len("$IF",3)))|(qbs_equal(qbs_ucase(qbs_left(qbs_ltrim(_SUB_IDESHOWTEXT_STRING_A2), 7 )),qbs_new_txt_len("$ELSEIF",7))))))){ -if(qbevent){evnt(26070,12900,"ide_methods.bas");if(r)goto S_50225;} -do{ -*_SUB_IDESHOWTEXT_LONG_METACOMMAND= -1 ; -if(!qbevent)break;evnt(26070,12901,"ide_methods.bas");}while(r); -S_50227:; -}else{ -if (qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,qbs_new_txt_len("$ASSERTS",8)))){ -if(qbevent){evnt(26070,12902,"ide_methods.bas");if(r)goto S_50227;} -S_50228:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs__trim(_SUB_IDESHOWTEXT_STRING_A2)),qbs_new_txt_len("$ASSERTS:CONSOLE",16))))||new_error){ -if(qbevent){evnt(26070,12903,"ide_methods.bas");if(r)goto S_50228;} -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,qbs_new_txt_len("$ASSERTS:CONSOLE",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12904,"ide_methods.bas");}while(r); -} -} -} -} -do{ -*_SUB_IDESHOWTEXT_LONG_ISKEYWORD=_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12907,"ide_methods.bas");}while(r); -S_50233:; -}else{ -if (qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,__STRING_LISTOFCUSTOMKEYWORDS,qbs_add(qbs_add(qbs_new_txt_len("@",1),FUNC_REMOVESYMBOL2(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD)),qbs_new_txt_len("@",1)),0)> 0 ))){ -if(qbevent){evnt(26070,12908,"ide_methods.bas");if(r)goto S_50233;} -do{ -*_SUB_IDESHOWTEXT_LONG_ISCUSTOMKEYWORD= -1 ; -if(!qbevent)break;evnt(26070,12909,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESHOWTEXT_LONG_ISKEYWORD=_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12910,"ide_methods.bas");}while(r); -S_50236:; -}else{ -if (qbs_cleanup(qbs_tmp_base,(-(func_instr(NULL,__STRING_USERDEFINELIST,qbs_add(qbs_add(qbs_new_txt_len("@",1),_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD),qbs_new_txt_len("@",1)),0)> 0 ))&(((qbs_equal(qbs_ucase(qbs_left(qbs_ltrim(_SUB_IDESHOWTEXT_STRING_A2), 3 )),qbs_new_txt_len("$IF",3)))|(qbs_equal(qbs_ucase(qbs_left(qbs_ltrim(_SUB_IDESHOWTEXT_STRING_A2), 7 )),qbs_new_txt_len("$ELSEIF",7))))))){ -if(qbevent){evnt(26070,12913,"ide_methods.bas");if(r)goto S_50236;} -do{ -*_SUB_IDESHOWTEXT_LONG_ISCUSTOMKEYWORD= -1 ; -if(!qbevent)break;evnt(26070,12914,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESHOWTEXT_LONG_ISKEYWORD=_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12915,"ide_methods.bas");}while(r); -} -} -} -} -} -LABEL_SETOLDCHAR:; -if(qbevent){evnt(26070,12919,"ide_methods.bas");r=0;} -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_OLDCHAR,_SUB_IDESHOWTEXT_STRING_THISCHAR); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12920,"ide_methods.bas");}while(r); -S_50243:; -if (((-(*_SUB_IDESHOWTEXT_LONG_ISKEYWORD> 0 ))&*__INTEGER_KEYWORDHIGHLIGHT)||new_error){ -if(qbevent){evnt(26070,12922,"ide_methods.bas");if(r)goto S_50243;} -S_50244:; -if ((*_SUB_IDESHOWTEXT_LONG_IS_NUMBER)||new_error){ -if(qbevent){evnt(26070,12923,"ide_methods.bas");if(r)goto S_50244;} -do{ -qbg_sub_color( 8 ,NULL,NULL,1); -if(!qbevent)break;evnt(26070,12924,"ide_methods.bas");}while(r); -S_50246:; -}else{ -if (*_SUB_IDESHOWTEXT_LONG_ISCUSTOMKEYWORD){ -if(qbevent){evnt(26070,12925,"ide_methods.bas");if(r)goto S_50246;} -do{ -qbg_sub_color( 10 ,NULL,NULL,1); -if(!qbevent)break;evnt(26070,12926,"ide_methods.bas");}while(r); -}else{ -do{ -qbg_sub_color( 12 ,NULL,NULL,1); -if(!qbevent)break;evnt(26070,12928,"ide_methods.bas");}while(r); -} -} -S_50251:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD, 1 ),qbs_new_txt_len("$",1))))||new_error){ -if(qbevent){evnt(26070,12930,"ide_methods.bas");if(r)goto S_50251;} -do{ -*_SUB_IDESHOWTEXT_LONG_METACOMMAND= -1 ; -if(!qbevent)break;evnt(26070,12930,"ide_methods.bas");}while(r); -} -} -S_50255:; -if ((*_SUB_IDESHOWTEXT_LONG_COMMENT)||new_error){ -if(qbevent){evnt(26070,12933,"ide_methods.bas");if(r)goto S_50255;} -do{ -qbg_sub_color( 11 ,NULL,NULL,1); -if(!qbevent)break;evnt(26070,12934,"ide_methods.bas");}while(r); -S_50257:; -if ((*_SUB_IDESHOWTEXT_LONG_METACOMMAND)||new_error){ -if(qbevent){evnt(26070,12935,"ide_methods.bas");if(r)goto S_50257;} -S_50258:; -if(qbevent){evnt(26070,12936,"ide_methods.bas");if(r)goto S_50258;} -S_50259:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,qbs_new_txt_len("$INCLUDE",8))))||new_error){ -if(qbevent){evnt(26070,12937,"ide_methods.bas");if(r)goto S_50259;} -S_50260:; -if ((qbs_cleanup(qbs_tmp_base,-(func_instr(*_SUB_IDESHOWTEXT_LONG_M+ 1 ,qbs_ucase(_SUB_IDESHOWTEXT_STRING_A2),_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,0|1)== 0 )))||new_error){ -if(qbevent){evnt(26070,12938,"ide_methods.bas");if(r)goto S_50260;} -do{ -qbg_sub_color( 10 ,NULL,NULL,1); -if(!qbevent)break;evnt(26070,12938,"ide_methods.bas");}while(r); -} -sc_ec_374_end:; -goto sc_5566_end; -} -S_50263:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,qbs_new_txt_len("$DYNAMIC",8))||qbs_equal(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,qbs_new_txt_len("$STATIC",7))))||new_error){ -if(qbevent){evnt(26070,12939,"ide_methods.bas");if(r)goto S_50263;} -S_50264:; -if ((qbs_cleanup(qbs_tmp_base,(-(func_instr(*_SUB_IDESHOWTEXT_LONG_M+ 1 ,qbs_ucase(_SUB_IDESHOWTEXT_STRING_A2),qbs_new_txt_len("$DYNAMIC",8),0|1)== 0 ))&(-(func_instr(*_SUB_IDESHOWTEXT_LONG_M+ 1 ,qbs_ucase(_SUB_IDESHOWTEXT_STRING_A2),qbs_new_txt_len("$STATIC",7),0|1)== 0 ))))||new_error){ -if(qbevent){evnt(26070,12940,"ide_methods.bas");if(r)goto S_50264;} -do{ -qbg_sub_color( 10 ,NULL,NULL,1); -if(!qbevent)break;evnt(26070,12940,"ide_methods.bas");}while(r); -} -sc_ec_375_end:; -goto sc_5566_end; -} -sc_5566_end:; -} -S_50269:; -}else{ -if (*_SUB_IDESHOWTEXT_LONG_METACOMMAND){ -if(qbevent){evnt(26070,12943,"ide_methods.bas");if(r)goto S_50269;} -do{ -qbg_sub_color( 10 ,NULL,NULL,1); -if(!qbevent)break;evnt(26070,12944,"ide_methods.bas");}while(r); -S_50271:; -}else{ -if (qbs_cleanup(qbs_tmp_base,*_SUB_IDESHOWTEXT_LONG_INQUOTE|(qbs_equal(_SUB_IDESHOWTEXT_STRING_THISCHAR,func_chr( 34 ))))){ -if(qbevent){evnt(26070,12945,"ide_methods.bas");if(r)goto S_50271;} -do{ -qbg_sub_color( 14 ,NULL,NULL,1); -if(!qbevent)break;evnt(26070,12946,"ide_methods.bas");}while(r); -} -} -} -LABEL_SKIPSYNTAXHIGHLIGHTER:; -if(qbevent){evnt(26070,12949,"ide_methods.bas");r=0;} -S_50274:; -if (((-(*_SUB_IDESHOWTEXT_LONG_L==*__LONG_IDECY))&(((-(*_SUB_IDESHOWTEXT_LONG_LINK_IDECX> 0 ))&(-(*_SUB_IDESHOWTEXT_LONG_M>*_SUB_IDESHOWTEXT_LONG_LINK_IDECX)))))||new_error){ -if(qbevent){evnt(26070,12951,"ide_methods.bas");if(r)goto S_50274;} -do{ -qbg_sub_color( 10 ,NULL,NULL,1); -if(!qbevent)break;evnt(26070,12951,"ide_methods.bas");}while(r); -} -S_50277:; -if ((((-(*_SUB_IDESHOWTEXT_LONG_SHIFTENTER_IDECX> 0 ))&(-(*_SUB_IDESHOWTEXT_LONG_M>*_SUB_IDESHOWTEXT_LONG_SHIFTENTER_IDECX))))||new_error){ -if(qbevent){evnt(26070,12952,"ide_methods.bas");if(r)goto S_50277;} -do{ -qbg_sub_color( 10 ,NULL,NULL,1); -if(!qbevent)break;evnt(26070,12952,"ide_methods.bas");}while(r); -} -S_50280:; -if (((-(*_SUB_IDESHOWTEXT_LONG_L==*__LONG_IDECY))&(((-(*_SUB_IDESHOWTEXT_LONG_M==*_SUB_IDESHOWTEXT_LONG_BRACKET1))|(-(*_SUB_IDESHOWTEXT_LONG_M==*_SUB_IDESHOWTEXT_LONG_BRACKET2)))))||new_error){ -if(qbevent){evnt(26070,12954,"ide_methods.bas");if(r)goto S_50280;} -do{ -qbg_sub_color(NULL, 5 ,NULL,2); -if(!qbevent)break;evnt(26070,12955,"ide_methods.bas");}while(r); -S_50282:; -}else{ -if ((-(*_SUB_IDESHOWTEXT_LONG_MULTIHIGHLIGHTLENGTH> 0 ))&(-(*__INTEGER_MULTIHIGHLIGHT== -1 ))){ -if(qbevent){evnt(26070,12956,"ide_methods.bas");if(r)goto S_50282;} -do{ -*_SUB_IDESHOWTEXT_LONG_MULTIHIGHLIGHTLENGTH=*_SUB_IDESHOWTEXT_LONG_MULTIHIGHLIGHTLENGTH- 1 ; -if(!qbevent)break;evnt(26070,12957,"ide_methods.bas");}while(r); -do{ -qbg_sub_color(NULL, 5 ,NULL,2); -if(!qbevent)break;evnt(26070,12958,"ide_methods.bas");}while(r); -}else{ -do{ -qbg_sub_color(NULL,*_SUB_IDESHOWTEXT_INTEGER_PREVBG,NULL,2); -if(!qbevent)break;evnt(26070,12960,"ide_methods.bas");}while(r); -} -} -S_50288:; -if ((*__BYTE_SHOWLINENUMBERS)||new_error){ -if(qbevent){evnt(26070,12963,"ide_methods.bas");if(r)goto S_50288;} -S_50289:; -if (((-((( 2 +*_SUB_IDESHOWTEXT_LONG_M-*__LONG_IDESX)+*__LONG_MAXLINENUMBERLENGTH)>=( 2 +*__LONG_MAXLINENUMBERLENGTH)))&(-((( 2 +*_SUB_IDESHOWTEXT_LONG_M-*__LONG_IDESX)+*__LONG_MAXLINENUMBERLENGTH)<*__LONG_IDEWX)))||new_error){ -if(qbevent){evnt(26070,12964,"ide_methods.bas");if(r)goto S_50289;} -do{ -sub__printstring(( 2 +*_SUB_IDESHOWTEXT_LONG_M-*__LONG_IDESX)+*__LONG_MAXLINENUMBERLENGTH,*_SUB_IDESHOWTEXT_LONG_Y+ 3 ,_SUB_IDESHOWTEXT_STRING_THISCHAR,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12965,"ide_methods.bas");}while(r); -} -}else{ -S_50293:; -if (((-(( 2 +*_SUB_IDESHOWTEXT_LONG_M-*__LONG_IDESX)>=( 2 )))&(-(( 2 +*_SUB_IDESHOWTEXT_LONG_M-*__LONG_IDESX)<*__LONG_IDEWX)))||new_error){ -if(qbevent){evnt(26070,12968,"ide_methods.bas");if(r)goto S_50293;} -do{ -sub__printstring( 2 +*_SUB_IDESHOWTEXT_LONG_M-*__LONG_IDESX,*_SUB_IDESHOWTEXT_LONG_Y+ 3 ,_SUB_IDESHOWTEXT_STRING_THISCHAR,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12969,"ide_methods.bas");}while(r); -} -} -S_50297:; -if ((-(*_SUB_IDESHOWTEXT_LONG_L==*__LONG_IDECY))||new_error){ -if(qbevent){evnt(26070,12974,"ide_methods.bas");if(r)goto S_50297;} -do{ -qbg_sub_color(NULL, 6 ,NULL,2); -if(!qbevent)break;evnt(26070,12974,"ide_methods.bas");}while(r); -} -S_50300:; -if ((-(*_SUB_IDESHOWTEXT_LONG_ISKEYWORD> 0 ))||new_error){ -if(qbevent){evnt(26070,12975,"ide_methods.bas");if(r)goto S_50300;} -do{ -*_SUB_IDESHOWTEXT_LONG_ISKEYWORD=*_SUB_IDESHOWTEXT_LONG_ISKEYWORD- 1 ; -if(!qbevent)break;evnt(26070,12975,"ide_methods.bas");}while(r); -} -S_50303:; -if ((qbs_cleanup(qbs_tmp_base,(-(*_SUB_IDESHOWTEXT_LONG_ISKEYWORD== 0 ))&(qbs_equal(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,qbs_new_txt_len("REM",3)))))||new_error){ -if(qbevent){evnt(26070,12976,"ide_methods.bas");if(r)goto S_50303;} -do{ -*_SUB_IDESHOWTEXT_LONG_COMMENT= -1 ; -if(!qbevent)break;evnt(26070,12976,"ide_methods.bas");}while(r); -} -S_50306:; -if ((-(*_SUB_IDESHOWTEXT_LONG_ISKEYWORD== 0 ))||new_error){ -if(qbevent){evnt(26070,12977,"ide_methods.bas");if(r)goto S_50306;} -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12977,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESHOWTEXT_LONG_METACOMMAND= 0 ; -if(!qbevent)break;evnt(26070,12977,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESHOWTEXT_LONG_IS_NUMBER= 0 ; -if(!qbevent)break;evnt(26070,12977,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESHOWTEXT_LONG_ISCUSTOMKEYWORD= 0 ; -if(!qbevent)break;evnt(26070,12977,"ide_methods.bas");}while(r); -} -fornext_continue_5530:; -} -fornext_exit_5530:; -S_50313:; -if (((((-(*__LONG_IDESYSTEM== 1 ))|(-(*__LONG_IDESYSTEM== 2 ))))&(-(*__LONG_IDESELECT!= 0 )))||new_error){ -if(qbevent){evnt(26070,12981,"ide_methods.bas");if(r)goto S_50313;} -S_50314:; -if (((-(*_SUB_IDESHOWTEXT_LONG_L>=*_SUB_IDESHOWTEXT_LONG_SY1))&(-(*_SUB_IDESHOWTEXT_LONG_L<=*_SUB_IDESHOWTEXT_LONG_SY2)))||new_error){ -if(qbevent){evnt(26070,12982,"ide_methods.bas");if(r)goto S_50314;} -S_50315:; -if ((-(*_SUB_IDESHOWTEXT_LONG_SY1==*_SUB_IDESHOWTEXT_LONG_SY2))||new_error){ -if(qbevent){evnt(26070,12983,"ide_methods.bas");if(r)goto S_50315;} -do{ -qbg_sub_color( 1 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,12984,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESHOWTEXT_LONG_X2=*__LONG_IDESX; -if(!qbevent)break;evnt(26070,12985,"ide_methods.bas");}while(r); -S_50318:; -fornext_value5568= 2 +*__LONG_MAXLINENUMBERLENGTH; -fornext_finalvalue5568=(*__LONG_IDEWX- 1 ); -fornext_step5568= 1 ; -if (fornext_step5568<0) fornext_step_negative5568=1; else fornext_step_negative5568=0; -if (new_error) goto fornext_error5568; -goto fornext_entrylabel5568; -while(1){ -fornext_value5568=fornext_step5568+(*_SUB_IDESHOWTEXT_LONG_X); -fornext_entrylabel5568: -*_SUB_IDESHOWTEXT_LONG_X=fornext_value5568; -if (fornext_step_negative5568){ -if (fornext_value5568fornext_finalvalue5568) break; -} -fornext_error5568:; -if(qbevent){evnt(26070,12986,"ide_methods.bas");if(r)goto S_50318;} -S_50319:; -if (((-(*_SUB_IDESHOWTEXT_LONG_X2>=*_SUB_IDESHOWTEXT_LONG_SX1))&(-(*_SUB_IDESHOWTEXT_LONG_X2<*_SUB_IDESHOWTEXT_LONG_SX2)))||new_error){ -if(qbevent){evnt(26070,12987,"ide_methods.bas");if(r)goto S_50319;} -do{ -*_SUB_IDESHOWTEXT_LONG_A=func_screen(*_SUB_IDESHOWTEXT_LONG_Y+ 3 ,*_SUB_IDESHOWTEXT_LONG_X,NULL,0); -if(!qbevent)break;evnt(26070,12988,"ide_methods.bas");}while(r); -S_50321:; -if ((-(*_SUB_IDESHOWTEXT_LONG_A== 63 ))||new_error){ -if(qbevent){evnt(26070,12990,"ide_methods.bas");if(r)goto S_50321;} -do{ -*_SUB_IDESHOWTEXT_LONG_C=func_screen(*_SUB_IDESHOWTEXT_LONG_Y+ 3 ,*_SUB_IDESHOWTEXT_LONG_X, 1 ,0|1); -if(!qbevent)break;evnt(26070,12991,"ide_methods.bas");}while(r); -}else{ -do{ -*_SUB_IDESHOWTEXT_LONG_C= 1 ; -if(!qbevent)break;evnt(26070,12993,"ide_methods.bas");}while(r); -} -S_50326:; -if ((-((*_SUB_IDESHOWTEXT_LONG_C& 15 )== 0 ))||new_error){ -if(qbevent){evnt(26070,12995,"ide_methods.bas");if(r)goto S_50326;} -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,12996,"ide_methods.bas");}while(r); -do{ -sub__printstring(*_SUB_IDESHOWTEXT_LONG_X,*_SUB_IDESHOWTEXT_LONG_Y+ 3 ,qbs_new_txt_len("?",1),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,12997,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 1 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,12998,"ide_methods.bas");}while(r); -}else{ -do{ -sub__printstring(*_SUB_IDESHOWTEXT_LONG_X,*_SUB_IDESHOWTEXT_LONG_Y+ 3 ,func_chr(*_SUB_IDESHOWTEXT_LONG_A),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13000,"ide_methods.bas");}while(r); -} -} -do{ -*_SUB_IDESHOWTEXT_LONG_X2=*_SUB_IDESHOWTEXT_LONG_X2+ 1 ; -if(!qbevent)break;evnt(26070,13005,"ide_methods.bas");}while(r); -fornext_continue_5567:; -} -fornext_exit_5567:; -do{ -qbg_sub_color( 7 , 1 ,NULL,3); -if(!qbevent)break;evnt(26070,13007,"ide_methods.bas");}while(r); -}else{ -S_50338:; -if (((-(*__LONG_IDECX== 1 ))&(-(*_SUB_IDESHOWTEXT_LONG_L==*_SUB_IDESHOWTEXT_LONG_SY2))&(-(*__LONG_IDECY>*_SUB_IDESHOWTEXT_LONG_SY1)))||new_error){ -if(qbevent){evnt(26070,13009,"ide_methods.bas");if(r)goto S_50338;} -do{ -goto LABEL_NOFINALSELECT; -if(!qbevent)break;evnt(26070,13009,"ide_methods.bas");}while(r); -} -do{ -qbg_sub_locate(*_SUB_IDESHOWTEXT_LONG_Y+ 3 , 2 +*__LONG_MAXLINENUMBERLENGTH,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(26070,13010,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 1 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,13011,"ide_methods.bas");}while(r); -S_50343:; -fornext_value5570=*__LONG_IDESX; -fornext_finalvalue5570=*__LONG_IDESX+*__LONG_IDEWX-( 2 +*__LONG_MAXLINENUMBERLENGTH); -fornext_step5570= 1 ; -if (fornext_step5570<0) fornext_step_negative5570=1; else fornext_step_negative5570=0; -if (new_error) goto fornext_error5570; -goto fornext_entrylabel5570; -while(1){ -fornext_value5570=fornext_step5570+(*_SUB_IDESHOWTEXT_LONG_X); -fornext_entrylabel5570: -*_SUB_IDESHOWTEXT_LONG_X=fornext_value5570; -if (fornext_step_negative5570){ -if (fornext_value5570fornext_finalvalue5570) break; -} -fornext_error5570:; -if(qbevent){evnt(26070,13013,"ide_methods.bas");if(r)goto S_50343;} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_mid(_SUB_IDESHOWTEXT_STRING_A2,*_SUB_IDESHOWTEXT_LONG_X, 1 ,0|1)); -if (new_error) goto skip5571; -makefit(tqbs); -qbs_print(tqbs,0); -skip5571: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13014,"ide_methods.bas");}while(r); -fornext_continue_5569:; -} -fornext_exit_5569:; -do{ -qbg_sub_color( 7 , 1 ,NULL,3); -if(!qbevent)break;evnt(26070,13017,"ide_methods.bas");}while(r); -LABEL_NOFINALSELECT:; -if(qbevent){evnt(26070,13018,"ide_methods.bas");r=0;} -} -} -} -do{ -*_SUB_IDESHOWTEXT_LONG_L=*_SUB_IDESHOWTEXT_LONG_L+ 1 ; -if(!qbevent)break;evnt(26070,13023,"ide_methods.bas");}while(r); -fornext_continue_5516:; -} -fornext_exit_5516:; -}else{ -LABEL_NOSYNTAXHIGHLIGHTING:; -if(qbevent){evnt(26070,13026,"ide_methods.bas");r=0;} -do{ -qbg_sub_color( 13 , 1 ,NULL,3); -if(!qbevent)break;evnt(26070,13028,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESHOWTEXT_LONG_L=*__LONG_IDESY; -if(!qbevent)break;evnt(26070,13029,"ide_methods.bas");}while(r); -S_50355:; -fornext_value5573= 0 ; -fornext_finalvalue5573=(*__LONG_IDEWY- 9 ); -fornext_step5573= 1 ; -if (fornext_step5573<0) fornext_step_negative5573=1; else fornext_step_negative5573=0; -if (new_error) goto fornext_error5573; -goto fornext_entrylabel5573; -while(1){ -fornext_value5573=fornext_step5573+(*_SUB_IDESHOWTEXT_LONG_Y); -fornext_entrylabel5573: -*_SUB_IDESHOWTEXT_LONG_Y=fornext_value5573; -if (fornext_step_negative5573){ -if (fornext_value5573fornext_finalvalue5573) break; -} -fornext_error5573:; -if(qbevent){evnt(26070,13030,"ide_methods.bas");if(r)goto S_50355;} -do{ -qbg_sub_color( 7 , 1 ,NULL,3); -if(!qbevent)break;evnt(26070,13031,"ide_methods.bas");}while(r); -do{ -sub__printstring( 1 ,*_SUB_IDESHOWTEXT_LONG_Y+ 3 ,func_chr( 179 ),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13032,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=160; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_SHOWLINENUMBER; -RETURN_160:; -if(!qbevent)break;evnt(26070,13034,"ide_methods.bas");}while(r); -S_50359:; -if (((-(*_SUB_IDESHOWTEXT_LONG_L==*__LONG_IDEFOCUSLINE))&(-(*__LONG_IDECY!=*_SUB_IDESHOWTEXT_LONG_L)))||new_error){ -if(qbevent){evnt(26070,13036,"ide_methods.bas");if(r)goto S_50359;} -do{ -qbg_sub_color( 13 , 4 ,NULL,3); -if(!qbevent)break;evnt(26070,13036,"ide_methods.bas");}while(r); -}else{ -do{ -qbg_sub_color( 13 , 1 ,NULL,3); -if(!qbevent)break;evnt(26070,13036,"ide_methods.bas");}while(r); -} -S_50364:; -if ((-(*_SUB_IDESHOWTEXT_LONG_L<=*__LONG_IDEN))||new_error){ -if(qbevent){evnt(26070,13038,"ide_methods.bas");if(r)goto S_50364;} -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_A,FUNC_IDEGETLINE(_SUB_IDESHOWTEXT_LONG_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13039,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_A2,func_space(*__LONG_IDESX+(*__LONG_IDEWX- 3 )-*__LONG_MAXLINENUMBERLENGTH)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13040,"ide_methods.bas");}while(r); -do{ -sub_mid(_SUB_IDESHOWTEXT_STRING_A2, 1 ,0,_SUB_IDESHOWTEXT_STRING_A,0); -if(!qbevent)break;evnt(26070,13041,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_A2,qbs_right(_SUB_IDESHOWTEXT_STRING_A2,(*__LONG_IDEWX- 2 )-*__LONG_MAXLINENUMBERLENGTH)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13042,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_A2,func_space((*__LONG_IDEWX- 2 )-*__LONG_MAXLINENUMBERLENGTH)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13044,"ide_methods.bas");}while(r); -} -do{ -sub__printstring( 2 +*__LONG_MAXLINENUMBERLENGTH,*_SUB_IDESHOWTEXT_LONG_Y+ 3 ,_SUB_IDESHOWTEXT_STRING_A2,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13046,"ide_methods.bas");}while(r); -S_50373:; -if ((-(*_SUB_IDESHOWTEXT_LONG_L==*__LONG_IDECY))||new_error){ -if(qbevent){evnt(26070,13048,"ide_methods.bas");if(r)goto S_50373;} -S_50374:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_IDECX<=_SUB_IDESHOWTEXT_STRING_A->len))&(-(*__LONG_IDECX>= 1 ))))||new_error){ -if(qbevent){evnt(26070,13049,"ide_methods.bas");if(r)goto S_50374;} -do{ -*_SUB_IDESHOWTEXT_LONG_CC=qbs_asc(_SUB_IDESHOWTEXT_STRING_A,*__LONG_IDECX); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13050,"ide_methods.bas");}while(r); -S_50376:; -if ((-(*_SUB_IDESHOWTEXT_LONG_CC== 32 ))||new_error){ -if(qbevent){evnt(26070,13051,"ide_methods.bas");if(r)goto S_50376;} -S_50377:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ltrim(qbs_left(_SUB_IDESHOWTEXT_STRING_A,*__LONG_IDECX)),qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,13052,"ide_methods.bas");if(r)goto S_50377;} -do{ -*_SUB_IDESHOWTEXT_LONG_CC= -1 ; -if(!qbevent)break;evnt(26070,13052,"ide_methods.bas");}while(r); -} -} -} -} -S_50383:; -if ((*__LONG_IDESELECT)||new_error){ -if(qbevent){evnt(26070,13058,"ide_methods.bas");if(r)goto S_50383;} -S_50384:; -if (((-(*_SUB_IDESHOWTEXT_LONG_L>=*_SUB_IDESHOWTEXT_LONG_SY1))&(-(*_SUB_IDESHOWTEXT_LONG_L<=*_SUB_IDESHOWTEXT_LONG_SY2)))||new_error){ -if(qbevent){evnt(26070,13059,"ide_methods.bas");if(r)goto S_50384;} -S_50385:; -if ((-(*_SUB_IDESHOWTEXT_LONG_SY1==*_SUB_IDESHOWTEXT_LONG_SY2))||new_error){ -if(qbevent){evnt(26070,13060,"ide_methods.bas");if(r)goto S_50385;} -do{ -qbg_sub_color( 1 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,13061,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESHOWTEXT_LONG_X2=*__LONG_IDESX; -if(!qbevent)break;evnt(26070,13062,"ide_methods.bas");}while(r); -S_50388:; -fornext_value5576= 2 +*__LONG_MAXLINENUMBERLENGTH; -fornext_finalvalue5576=(*__LONG_IDEWX- 1 ); -fornext_step5576= 1 ; -if (fornext_step5576<0) fornext_step_negative5576=1; else fornext_step_negative5576=0; -if (new_error) goto fornext_error5576; -goto fornext_entrylabel5576; -while(1){ -fornext_value5576=fornext_step5576+(*_SUB_IDESHOWTEXT_LONG_X); -fornext_entrylabel5576: -*_SUB_IDESHOWTEXT_LONG_X=fornext_value5576; -if (fornext_step_negative5576){ -if (fornext_value5576fornext_finalvalue5576) break; -} -fornext_error5576:; -if(qbevent){evnt(26070,13063,"ide_methods.bas");if(r)goto S_50388;} -S_50389:; -if (((-(*_SUB_IDESHOWTEXT_LONG_X2>=*_SUB_IDESHOWTEXT_LONG_SX1))&(-(*_SUB_IDESHOWTEXT_LONG_X2<*_SUB_IDESHOWTEXT_LONG_SX2)))||new_error){ -if(qbevent){evnt(26070,13064,"ide_methods.bas");if(r)goto S_50389;} -do{ -*_SUB_IDESHOWTEXT_LONG_A=func_screen(*_SUB_IDESHOWTEXT_LONG_Y+ 3 ,*_SUB_IDESHOWTEXT_LONG_X,NULL,0); -if(!qbevent)break;evnt(26070,13065,"ide_methods.bas");}while(r); -do{ -sub__printstring(*_SUB_IDESHOWTEXT_LONG_X,*_SUB_IDESHOWTEXT_LONG_Y+ 3 ,func_chr(*_SUB_IDESHOWTEXT_LONG_A),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13065,"ide_methods.bas");}while(r); -} -do{ -*_SUB_IDESHOWTEXT_LONG_X2=*_SUB_IDESHOWTEXT_LONG_X2+ 1 ; -if(!qbevent)break;evnt(26070,13067,"ide_methods.bas");}while(r); -fornext_continue_5575:; -} -fornext_exit_5575:; -do{ -qbg_sub_color( 7 , 1 ,NULL,3); -if(!qbevent)break;evnt(26070,13069,"ide_methods.bas");}while(r); -}else{ -S_50397:; -if (((-(*__LONG_IDECX== 1 ))&(-(*_SUB_IDESHOWTEXT_LONG_L==*_SUB_IDESHOWTEXT_LONG_SY2))&(-(*__LONG_IDECY>*_SUB_IDESHOWTEXT_LONG_SY1)))||new_error){ -if(qbevent){evnt(26070,13071,"ide_methods.bas");if(r)goto S_50397;} -do{ -goto LABEL_NOFINALSELECT0; -if(!qbevent)break;evnt(26070,13071,"ide_methods.bas");}while(r); -} -do{ -qbg_sub_color( 1 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,13072,"ide_methods.bas");}while(r); -do{ -sub__printstring( 2 +*__LONG_MAXLINENUMBERLENGTH,*_SUB_IDESHOWTEXT_LONG_Y+ 3 ,_SUB_IDESHOWTEXT_STRING_A2,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13072,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 7 , 1 ,NULL,3); -if(!qbevent)break;evnt(26070,13073,"ide_methods.bas");}while(r); -LABEL_NOFINALSELECT0:; -if(qbevent){evnt(26070,13074,"ide_methods.bas");r=0;} -} -} -} -do{ -*_SUB_IDESHOWTEXT_LONG_L=*_SUB_IDESHOWTEXT_LONG_L+ 1 ; -if(!qbevent)break;evnt(26070,13079,"ide_methods.bas");}while(r); -fornext_continue_5572:; -} -fornext_exit_5572:; -} -do{ -qbg_sub_color( 7 , 1 ,NULL,3); -if(!qbevent)break;evnt(26070,13083,"ide_methods.bas");}while(r); -S_50410:; -fornext_value5578= 1 ; -fornext_finalvalue5578=*__LONG_IDEBMKN; -fornext_step5578= 1 ; -if (fornext_step5578<0) fornext_step_negative5578=1; else fornext_step_negative5578=0; -if (new_error) goto fornext_error5578; -goto fornext_entrylabel5578; -while(1){ -fornext_value5578=fornext_step5578+(*_SUB_IDESHOWTEXT_LONG_B); -fornext_entrylabel5578: -*_SUB_IDESHOWTEXT_LONG_B=fornext_value5578; -if (fornext_step_negative5578){ -if (fornext_value5578fornext_finalvalue5578) break; -} -fornext_error5578:; -if(qbevent){evnt(26070,13084,"ide_methods.bas");if(r)goto S_50410;} -do{ -*_SUB_IDESHOWTEXT_LONG_Y=*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_SUB_IDESHOWTEXT_LONG_B)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16)); -if(!qbevent)break;evnt(26070,13085,"ide_methods.bas");}while(r); -S_50412:; -if (((-(*_SUB_IDESHOWTEXT_LONG_Y>=*__LONG_IDESY))&(-(*_SUB_IDESHOWTEXT_LONG_Y<=(*__LONG_IDESY+(*__LONG_IDEWY- 9 )))))||new_error){ -if(qbevent){evnt(26070,13086,"ide_methods.bas");if(r)goto S_50412;} -do{ -sub__printstring( 1 , 3 +*_SUB_IDESHOWTEXT_LONG_Y-*__LONG_IDESY,func_chr( 197 ),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13087,"ide_methods.bas");}while(r); -} -fornext_continue_5577:; -} -fornext_exit_5577:; -do{ -*_SUB_IDESHOWTEXT_LONG_Q=FUNC_IDEVBAR(__LONG_IDEWX,&(pass5579= 3 ),&(pass5580=(*__LONG_IDEWY- 8 )),__LONG_IDECY,__LONG_IDEN); -if(!qbevent)break;evnt(26070,13091,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESHOWTEXT_LONG_Q=FUNC_IDEHBAR(&(pass5581= 2 ),&(pass5582=(*__LONG_IDEWY- 5 )),&(pass5583=(*__LONG_IDEWX- 2 )),__LONG_IDESX,&(pass5584= 608 )); -if(!qbevent)break;evnt(26070,13092,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 0 , 3 ,NULL,3); -if(!qbevent)break;evnt(26070,13095,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_A,func_space( 10 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13096,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_B,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13097,"ide_methods.bas");}while(r); -do{ -sub_rset(_SUB_IDESHOWTEXT_STRING_A,qbs_ltrim(qbs_str((int32)(*__LONG_IDECY)))); -if(!qbevent)break;evnt(26070,13098,"ide_methods.bas");}while(r); -S_50422:; -if ((-(*__LONG_IDECX< 100000 ))||new_error){ -if(qbevent){evnt(26070,13099,"ide_methods.bas");if(r)goto S_50422;} -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_B,func_space( 10 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13100,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_C,qbs_ltrim(qbs_str((int32)(*__LONG_IDECX)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13101,"ide_methods.bas");}while(r); -S_50425:; -if ((-(*_SUB_IDESHOWTEXT_LONG_CC!= -1 ))||new_error){ -if(qbevent){evnt(26070,13102,"ide_methods.bas");if(r)goto S_50425;} -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_C,qbs_add(qbs_add(qbs_add(_SUB_IDESHOWTEXT_STRING_C,qbs_new_txt_len("(",1)),FUNC_STR2(_SUB_IDESHOWTEXT_LONG_CC)),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13102,"ide_methods.bas");}while(r); -} -do{ -sub_lset(_SUB_IDESHOWTEXT_STRING_B,_SUB_IDESHOWTEXT_STRING_C); -if(!qbevent)break;evnt(26070,13103,"ide_methods.bas");}while(r); -} -do{ -qbs_set(__STRING_LINENUMBERSTATUS,qbs_add(qbs_add(_SUB_IDESHOWTEXT_STRING_A,qbs_new_txt_len(":",1)),_SUB_IDESHOWTEXT_STRING_B)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13105,"ide_methods.bas");}while(r); -do{ -sub__printstring(*__LONG_IDEWX- 20 ,*__LONG_IDEWY+*__LONG_IDESUBWINDOW,__STRING_LINENUMBERSTATUS,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13107,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,13109,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*__LONG_IDECY-*__LONG_IDESY+ 3 ,*__LONG_MAXLINENUMBERLENGTH+*__LONG_IDECX-*__LONG_IDESX+ 2 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(26070,13109,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,13109,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,13111,"ide_methods.bas");}while(r); -LABEL_SHOWLINENUMBER:; -if(qbevent){evnt(26070,13112,"ide_methods.bas");r=0;} -S_50436:; -while((-(*_SUB_IDESHOWTEXT_LONG_L>func_ubound(__ARRAY_BYTE_IDEBREAKPOINTS,1,1)))||new_error){ -if(qbevent){evnt(26070,13113,"ide_methods.bas");if(r)goto S_50436;} -do{ +} +if(!qbevent)break;evnt(26070,12674,"ide_methods.bas");}while(r); +dl_continue_5518:; +} +dl_exit_5518:; +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_A,FUNC_IDEGETLINE(_SUB_IDESHOWTEXT_LONG_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12677,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESHOWTEXT_LONG_LINK_IDECX= 0 ; +if(!qbevent)break;evnt(26070,12678,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESHOWTEXT_LONG_SHIFTENTER_IDECX= 0 ; +if(!qbevent)break;evnt(26070,12679,"ide_methods.bas");}while(r); +S_50020:; +if ((-(*_SUB_IDESHOWTEXT_LONG_L==*__LONG_IDECY))||new_error){ +if(qbevent){evnt(26070,12680,"ide_methods.bas");if(r)goto S_50020;} +S_50021:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_IDECX<=_SUB_IDESHOWTEXT_STRING_A->len))&(-(*__LONG_IDECX>= 1 ))))||new_error){ +if(qbevent){evnt(26070,12681,"ide_methods.bas");if(r)goto S_50021;} +do{ +*_SUB_IDESHOWTEXT_LONG_CC=qbs_asc(_SUB_IDESHOWTEXT_STRING_A,*__LONG_IDECX); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12682,"ide_methods.bas");}while(r); +S_50023:; +if ((-(*_SUB_IDESHOWTEXT_LONG_CC== 32 ))||new_error){ +if(qbevent){evnt(26070,12683,"ide_methods.bas");if(r)goto S_50023;} +S_50024:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ltrim(qbs_left(_SUB_IDESHOWTEXT_STRING_A,*__LONG_IDECX)),qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,12684,"ide_methods.bas");if(r)goto S_50024;} +do{ +*_SUB_IDESHOWTEXT_LONG_CC= -1 ; +if(!qbevent)break;evnt(26070,12684,"ide_methods.bas");}while(r); +} +} +} +do{ +SUB_FINDQUOTECOMMENT(_SUB_IDESHOWTEXT_STRING_A,__LONG_IDECX,_SUB_IDESHOWTEXT_BYTE_IDESHOWTEXT_COMMENT,_SUB_IDESHOWTEXT_BYTE_IDESHOWTEXT_QUOTE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12690,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESHOWTEXT_LONG_IDECX_COMMENT=*_SUB_IDESHOWTEXT_BYTE_IDESHOWTEXT_COMMENT; +if(!qbevent)break;evnt(26070,12691,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESHOWTEXT_LONG_IDECX_QUOTE=*_SUB_IDESHOWTEXT_BYTE_IDESHOWTEXT_QUOTE; +if(!qbevent)break;evnt(26070,12692,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESHOWTEXT_LONG_BRACKETS= 0 ; +if(!qbevent)break;evnt(26070,12695,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESHOWTEXT_LONG_BRACKET1= 0 ; +if(!qbevent)break;evnt(26070,12696,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESHOWTEXT_LONG_BRACKET2= 0 ; +if(!qbevent)break;evnt(26070,12697,"ide_methods.bas");}while(r); +S_50035:; +if (((-((*_SUB_IDESHOWTEXT_LONG_IDECX_COMMENT+*_SUB_IDESHOWTEXT_LONG_IDECX_QUOTE)==( 0 )))&(-(*__INTEGER_BRACKETHIGHLIGHT== -1 )))||new_error){ +if(qbevent){evnt(26070,12698,"ide_methods.bas");if(r)goto S_50035;} +do{ +*_SUB_IDESHOWTEXT_LONG_INQUOTE= 0 ; +if(!qbevent)break;evnt(26070,12699,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESHOWTEXT_LONG_COMMENT= 0 ; +if(!qbevent)break;evnt(26070,12700,"ide_methods.bas");}while(r); +S_50038:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A,*__LONG_IDECX, 1 ,0|1),qbs_new_txt_len("(",1))))||new_error){ +if(qbevent){evnt(26070,12701,"ide_methods.bas");if(r)goto S_50038;} +do{ +*_SUB_IDESHOWTEXT_LONG_BRACKETS= 1 ; +if(!qbevent)break;evnt(26070,12702,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESHOWTEXT_LONG_BRACKET1=*__LONG_IDECX; +if(!qbevent)break;evnt(26070,12703,"ide_methods.bas");}while(r); +LABEL_SCANBRACKET2:; +if(qbevent){evnt(26070,12704,"ide_methods.bas");r=0;} +S_50041:; +fornext_value5521=*_SUB_IDESHOWTEXT_LONG_BRACKET1+ 1 ; +fornext_finalvalue5521=_SUB_IDESHOWTEXT_STRING_A->len; +fornext_step5521= 1 ; +if (fornext_step5521<0) fornext_step_negative5521=1; else fornext_step_negative5521=0; +if (new_error) goto fornext_error5521; +goto fornext_entrylabel5521; +while(1){ +fornext_value5521=fornext_step5521+(*_SUB_IDESHOWTEXT_LONG_K); +fornext_entrylabel5521: +*_SUB_IDESHOWTEXT_LONG_K=fornext_value5521; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative5521){ +if (fornext_value5521fornext_finalvalue5521) break; +} +fornext_error5521:; +if(qbevent){evnt(26070,12705,"ide_methods.bas");if(r)goto S_50041;} +S_50042:; +qbs_set(sc_5523,func_mid(_SUB_IDESHOWTEXT_STRING_A,*_SUB_IDESHOWTEXT_LONG_K, 1 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(qbevent){evnt(26070,12706,"ide_methods.bas");if(r)goto S_50042;} +S_50043:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_5523,func_chr( 34 ))))||new_error){ +if(qbevent){evnt(26070,12707,"ide_methods.bas");if(r)goto S_50043;} +do{ +*_SUB_IDESHOWTEXT_LONG_INQUOTE=~(*_SUB_IDESHOWTEXT_LONG_INQUOTE); +if(!qbevent)break;evnt(26070,12708,"ide_methods.bas");}while(r); +sc_ec_369_end:; +goto sc_5523_end; +} +S_50045:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_5523,qbs_new_txt_len("'",1))))||new_error){ +if(qbevent){evnt(26070,12709,"ide_methods.bas");if(r)goto S_50045;} +S_50046:; +if ((-(*_SUB_IDESHOWTEXT_LONG_INQUOTE== 0 ))||new_error){ +if(qbevent){evnt(26070,12710,"ide_methods.bas");if(r)goto S_50046;} +do{ +*_SUB_IDESHOWTEXT_LONG_COMMENT= -1 ; +if(!qbevent)break;evnt(26070,12710,"ide_methods.bas");}while(r); +do{ +goto fornext_exit_5520; +if(!qbevent)break;evnt(26070,12710,"ide_methods.bas");}while(r); +} +sc_ec_370_end:; +goto sc_5523_end; +} +sc_5523_end:; +S_50051:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A,*_SUB_IDESHOWTEXT_LONG_K, 1 ,0|1),qbs_new_txt_len(")",1)))&(-(*_SUB_IDESHOWTEXT_LONG_INQUOTE== 0 ))))||new_error){ +if(qbevent){evnt(26070,12712,"ide_methods.bas");if(r)goto S_50051;} +do{ +*_SUB_IDESHOWTEXT_LONG_BRACKETS=*_SUB_IDESHOWTEXT_LONG_BRACKETS- 1 ; +if(!qbevent)break;evnt(26070,12713,"ide_methods.bas");}while(r); +S_50053:; +if ((-(*_SUB_IDESHOWTEXT_LONG_BRACKETS== 0 ))||new_error){ +if(qbevent){evnt(26070,12714,"ide_methods.bas");if(r)goto S_50053;} +do{ +*_SUB_IDESHOWTEXT_LONG_BRACKET2=*_SUB_IDESHOWTEXT_LONG_K; +if(!qbevent)break;evnt(26070,12714,"ide_methods.bas");}while(r); +do{ +goto fornext_exit_5520; +if(!qbevent)break;evnt(26070,12714,"ide_methods.bas");}while(r); +} +S_50057:; +}else{ +if (qbs_cleanup(qbs_tmp_base,(qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A,*_SUB_IDESHOWTEXT_LONG_K, 1 ,0|1),qbs_new_txt_len("(",1)))&(-(*_SUB_IDESHOWTEXT_LONG_INQUOTE== 0 )))){ +if(qbevent){evnt(26070,12715,"ide_methods.bas");if(r)goto S_50057;} +do{ +*_SUB_IDESHOWTEXT_LONG_BRACKETS=*_SUB_IDESHOWTEXT_LONG_BRACKETS+ 1 ; +if(!qbevent)break;evnt(26070,12716,"ide_methods.bas");}while(r); +} +} +fornext_continue_5520:; +} +fornext_exit_5520:; +S_50061:; +}else{ +if (qbs_cleanup(qbs_tmp_base,(qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A,*__LONG_IDECX- 1 , 1 ,0|1),qbs_new_txt_len("(",1)))&(qbs_notequal(func_mid(_SUB_IDESHOWTEXT_STRING_A,*__LONG_IDECX, 1 ,0|1),func_chr( 34 ))))){ +if(qbevent){evnt(26070,12719,"ide_methods.bas");if(r)goto S_50061;} +do{ +*_SUB_IDESHOWTEXT_LONG_BRACKETS= 1 ; +if(!qbevent)break;evnt(26070,12720,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESHOWTEXT_LONG_BRACKET1=*__LONG_IDECX- 1 ; +if(!qbevent)break;evnt(26070,12721,"ide_methods.bas");}while(r); +do{ +goto LABEL_SCANBRACKET2; +if(!qbevent)break;evnt(26070,12722,"ide_methods.bas");}while(r); +S_50065:; +}else{ +if (qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A,*__LONG_IDECX, 1 ,0|1),qbs_new_txt_len(")",1)))){ +if(qbevent){evnt(26070,12723,"ide_methods.bas");if(r)goto S_50065;} +do{ +*_SUB_IDESHOWTEXT_LONG_BRACKETS= 1 ; +if(!qbevent)break;evnt(26070,12724,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESHOWTEXT_LONG_BRACKET2=*__LONG_IDECX; +if(!qbevent)break;evnt(26070,12725,"ide_methods.bas");}while(r); +LABEL_SCANBRACKET1:; +if(qbevent){evnt(26070,12726,"ide_methods.bas");r=0;} +S_50068:; +fornext_value5525=*_SUB_IDESHOWTEXT_LONG_BRACKET2- 1 ; +fornext_finalvalue5525= 1 ; +fornext_step5525= -1 ; +if (fornext_step5525<0) fornext_step_negative5525=1; else fornext_step_negative5525=0; +if (new_error) goto fornext_error5525; +goto fornext_entrylabel5525; +while(1){ +fornext_value5525=fornext_step5525+(*_SUB_IDESHOWTEXT_LONG_K); +fornext_entrylabel5525: +*_SUB_IDESHOWTEXT_LONG_K=fornext_value5525; +if (fornext_step_negative5525){ +if (fornext_value5525fornext_finalvalue5525) break; +} +fornext_error5525:; +if(qbevent){evnt(26070,12727,"ide_methods.bas");if(r)goto S_50068;} +S_50069:; +qbs_set(sc_5526,func_mid(_SUB_IDESHOWTEXT_STRING_A,*_SUB_IDESHOWTEXT_LONG_K, 1 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(qbevent){evnt(26070,12728,"ide_methods.bas");if(r)goto S_50069;} +S_50070:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_5526,func_chr( 34 ))))||new_error){ +if(qbevent){evnt(26070,12729,"ide_methods.bas");if(r)goto S_50070;} +do{ +*_SUB_IDESHOWTEXT_LONG_INQUOTE=~(*_SUB_IDESHOWTEXT_LONG_INQUOTE); +if(!qbevent)break;evnt(26070,12730,"ide_methods.bas");}while(r); +sc_ec_371_end:; +goto sc_5526_end; +} +sc_5526_end:; +S_50073:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A,*_SUB_IDESHOWTEXT_LONG_K, 1 ,0|1),qbs_new_txt_len("(",1)))&(-(*_SUB_IDESHOWTEXT_LONG_INQUOTE== 0 ))))||new_error){ +if(qbevent){evnt(26070,12732,"ide_methods.bas");if(r)goto S_50073;} +do{ +*_SUB_IDESHOWTEXT_LONG_BRACKETS=*_SUB_IDESHOWTEXT_LONG_BRACKETS- 1 ; +if(!qbevent)break;evnt(26070,12733,"ide_methods.bas");}while(r); +S_50075:; +if ((-(*_SUB_IDESHOWTEXT_LONG_BRACKETS== 0 ))||new_error){ +if(qbevent){evnt(26070,12734,"ide_methods.bas");if(r)goto S_50075;} +do{ +*_SUB_IDESHOWTEXT_LONG_BRACKET1=*_SUB_IDESHOWTEXT_LONG_K; +if(!qbevent)break;evnt(26070,12734,"ide_methods.bas");}while(r); +do{ +goto fornext_exit_5524; +if(!qbevent)break;evnt(26070,12734,"ide_methods.bas");}while(r); +} +S_50079:; +}else{ +if (qbs_cleanup(qbs_tmp_base,(qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A,*_SUB_IDESHOWTEXT_LONG_K, 1 ,0|1),qbs_new_txt_len(")",1)))&(-(*_SUB_IDESHOWTEXT_LONG_INQUOTE== 0 )))){ +if(qbevent){evnt(26070,12735,"ide_methods.bas");if(r)goto S_50079;} +do{ +*_SUB_IDESHOWTEXT_LONG_BRACKETS=*_SUB_IDESHOWTEXT_LONG_BRACKETS+ 1 ; +if(!qbevent)break;evnt(26070,12736,"ide_methods.bas");}while(r); +} +} +fornext_continue_5524:; +} +fornext_exit_5524:; +S_50083:; +}else{ +if (qbs_cleanup(qbs_tmp_base,(qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A,*__LONG_IDECX- 1 , 1 ,0|1),qbs_new_txt_len(")",1)))&(qbs_notequal(func_mid(_SUB_IDESHOWTEXT_STRING_A,*__LONG_IDECX, 1 ,0|1),func_chr( 34 ))))){ +if(qbevent){evnt(26070,12739,"ide_methods.bas");if(r)goto S_50083;} +do{ +*_SUB_IDESHOWTEXT_LONG_BRACKETS= 1 ; +if(!qbevent)break;evnt(26070,12740,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESHOWTEXT_LONG_BRACKET2=*__LONG_IDECX- 1 ; +if(!qbevent)break;evnt(26070,12741,"ide_methods.bas");}while(r); +do{ +goto LABEL_SCANBRACKET1; +if(!qbevent)break;evnt(26070,12742,"ide_methods.bas");}while(r); +} +} +} +} +} +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_A2,qbs_ucase(_SUB_IDESHOWTEXT_STRING_A)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12749,"ide_methods.bas");}while(r); +S_50090:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_IDECX==(_SUB_IDESHOWTEXT_STRING_A->len+ 1 )))&(-((*_SUB_IDESHOWTEXT_LONG_IDECX_COMMENT+*_SUB_IDESHOWTEXT_LONG_IDECX_QUOTE)==( 0 )))))||new_error){ +if(qbevent){evnt(26070,12751,"ide_methods.bas");if(r)goto S_50090;} +S_50091:; +if ((qbs_cleanup(qbs_tmp_base,((qbs_equal(qbs_right(_SUB_IDESHOWTEXT_STRING_A2, 5 ),qbs_new_txt_len("_RGB(",5)))|(qbs_equal(qbs_right(_SUB_IDESHOWTEXT_STRING_A2, 7 ),qbs_new_txt_len("_RGB32(",7)))|(qbs_equal(qbs_right(_SUB_IDESHOWTEXT_STRING_A2, 6 ),qbs_new_txt_len("_RGBA(",6)))|(qbs_equal(qbs_right(_SUB_IDESHOWTEXT_STRING_A2, 8 ),qbs_new_txt_len("_RGBA32(",8))))|((((qbs_equal(qbs_right(_SUB_IDESHOWTEXT_STRING_A2, 4 ),qbs_new_txt_len("RGB(",4)))|(qbs_equal(qbs_right(_SUB_IDESHOWTEXT_STRING_A2, 6 ),qbs_new_txt_len("RGB32(",6)))|(qbs_equal(qbs_right(_SUB_IDESHOWTEXT_STRING_A2, 5 ),qbs_new_txt_len("RGBA(",5)))|(qbs_equal(qbs_right(_SUB_IDESHOWTEXT_STRING_A2, 7 ),qbs_new_txt_len("RGBA32(",7)))))&(-(*__LONG_QB64PREFIX_SET== 1 )))))||new_error){ +if(qbevent){evnt(26070,12759,"ide_methods.bas");if(r)goto S_50091;} +do{ +*_SUB_IDESHOWTEXT_LONG_SHIFTENTER_IDECX=_SUB_IDESHOWTEXT_STRING_A->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12760,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_A,qbs_add(_SUB_IDESHOWTEXT_STRING_A,qbs_new_txt_len(" --> Shift+ENTER to open the RGB mixer",38))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12761,"ide_methods.bas");}while(r); +do{ +*__BYTE_ENTERINGRGB= -1 ; +if(!qbevent)break;evnt(26070,12762,"ide_methods.bas");}while(r); +} +S_50096:; +}else{ +if (-((*_SUB_IDESHOWTEXT_LONG_IDECX_COMMENT+*_SUB_IDESHOWTEXT_LONG_IDECX_QUOTE)==( 0 ))){ +if(qbevent){evnt(26070,12764,"ide_methods.bas");if(r)goto S_50096;} +S_50097:; +if ((qbs_cleanup(qbs_tmp_base,((qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A2,*__LONG_IDECX- 5 , 5 ,0|1),qbs_new_txt_len("_RGB(",5)))|(qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A2,*__LONG_IDECX- 7 , 7 ,0|1),qbs_new_txt_len("_RGB32(",7)))|(qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A2,*__LONG_IDECX- 6 , 6 ,0|1),qbs_new_txt_len("_RGBA(",6)))|(qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A2,*__LONG_IDECX- 8 , 8 ,0|1),qbs_new_txt_len("_RGBA32(",8))))|((((qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A2,*__LONG_IDECX- 4 , 4 ,0|1),qbs_new_txt_len("RGB(",4)))|(qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A2,*__LONG_IDECX- 6 , 6 ,0|1),qbs_new_txt_len("RGB32(",6)))|(qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A2,*__LONG_IDECX- 5 , 5 ,0|1),qbs_new_txt_len("RGBA(",5)))|(qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A2,*__LONG_IDECX- 7 , 7 ,0|1),qbs_new_txt_len("RGBA32(",7)))))&(-(*__LONG_QB64PREFIX_SET== 1 )))))||new_error){ +if(qbevent){evnt(26070,12772,"ide_methods.bas");if(r)goto S_50097;} +S_50098:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,qbs_new_txt_len("0123456789",10),func_mid(_SUB_IDESHOWTEXT_STRING_A2,*__LONG_IDECX, 1 ,0|1),0)== 0 )))||new_error){ +if(qbevent){evnt(26070,12773,"ide_methods.bas");if(r)goto S_50098;} +do{ +*__BYTE_ENTERINGRGB= -1 ; +if(!qbevent)break;evnt(26070,12773,"ide_methods.bas");}while(r); +} +} +} +} +do{ +*_SUB_IDESHOWTEXT_LONG_FINDINCLUDE=func__instrrev(NULL,_SUB_IDESHOWTEXT_STRING_A2,qbs_new_txt_len("$INCLUDE",8),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12777,"ide_methods.bas");}while(r); +S_50104:; +if ((-(*_SUB_IDESHOWTEXT_LONG_FINDINCLUDE> 0 ))||new_error){ +if(qbevent){evnt(26070,12778,"ide_methods.bas");if(r)goto S_50104;} +do{ +*_SUB_IDESHOWTEXT_LONG_LINK_IDECX=_SUB_IDESHOWTEXT_STRING_A->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12779,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESHOWTEXT_LONG_FINDAPOSTROPHE1=func_instr(*_SUB_IDESHOWTEXT_LONG_FINDINCLUDE+ 8 ,_SUB_IDESHOWTEXT_STRING_A2,qbs_new_txt_len("'",1),0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12780,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESHOWTEXT_LONG_FINDAPOSTROPHE2=func_instr(*_SUB_IDESHOWTEXT_LONG_FINDAPOSTROPHE1+ 1 ,_SUB_IDESHOWTEXT_STRING_A2,qbs_new_txt_len("'",1),0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12781,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_ACTIVEINCLUDELINKFILE,func_mid(_SUB_IDESHOWTEXT_STRING_A,*_SUB_IDESHOWTEXT_LONG_FINDAPOSTROPHE1+ 1 ,*_SUB_IDESHOWTEXT_LONG_FINDAPOSTROPHE2-*_SUB_IDESHOWTEXT_LONG_FINDAPOSTROPHE1- 1 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12782,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_P,qbs_add(__STRING_IDEPATH,__STRING1_PATHSEP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12783,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_F,qbs_add(_SUB_IDESHOWTEXT_STRING_P,__STRING_ACTIVEINCLUDELINKFILE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12784,"ide_methods.bas");}while(r); +S_50111:; +if ((qbs_cleanup(qbs_tmp_base,func__fileexists(_SUB_IDESHOWTEXT_STRING_F)|func__fileexists(__STRING_ACTIVEINCLUDELINKFILE)))||new_error){ +if(qbevent){evnt(26070,12785,"ide_methods.bas");if(r)goto S_50111;} +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_A,qbs_add(_SUB_IDESHOWTEXT_STRING_A,qbs_new_txt_len(" --> Double-click to open",25))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12786,"ide_methods.bas");}while(r); +do{ +*__LONG_ACTIVEINCLUDELINK=*__LONG_IDECY; +if(!qbevent)break;evnt(26070,12786,"ide_methods.bas");}while(r); +} +} +} +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_A2,func_space(*__LONG_IDESX+(*__LONG_IDEWX- 3 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12791,"ide_methods.bas");}while(r); +do{ +sub_mid(_SUB_IDESHOWTEXT_STRING_A2, 1 ,0,_SUB_IDESHOWTEXT_STRING_A,0); +if(!qbevent)break;evnt(26070,12792,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_A2,func_space((*__LONG_IDEWX- 2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12794,"ide_methods.bas");}while(r); +} +do{ +*_SUB_IDESHOWTEXT_LONG_INQUOTE= 0 ; +if(!qbevent)break;evnt(26070,12798,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESHOWTEXT_LONG_METACOMMAND= 0 ; +if(!qbevent)break;evnt(26070,12799,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESHOWTEXT_LONG_COMMENT= 0 ; +if(!qbevent)break;evnt(26070,12800,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESHOWTEXT_LONG_ISKEYWORD= 0 ; +if(!qbevent)break;evnt(26070,12801,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_OLDCHAR,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12801,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESHOWTEXT_LONG_ISCUSTOMKEYWORD= 0 ; +if(!qbevent)break;evnt(26070,12802,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESHOWTEXT_LONG_MULTIHIGHLIGHTLENGTH= 0 ; +if(!qbevent)break;evnt(26070,12803,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESHOWTEXT_INTEGER_PREVBG=func__backgroundcolor(NULL,0); +if(!qbevent)break;evnt(26070,12804,"ide_methods.bas");}while(r); +S_50130:; +fornext_value5531= 1 ; +fornext_finalvalue5531=_SUB_IDESHOWTEXT_STRING_A2->len; +fornext_step5531= 1 ; +if (fornext_step5531<0) fornext_step_negative5531=1; else fornext_step_negative5531=0; +if (new_error) goto fornext_error5531; +goto fornext_entrylabel5531; +while(1){ +fornext_value5531=fornext_step5531+(*_SUB_IDESHOWTEXT_LONG_M); +fornext_entrylabel5531: +*_SUB_IDESHOWTEXT_LONG_M=fornext_value5531; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative5531){ +if (fornext_value5531fornext_finalvalue5531) break; +} +fornext_error5531:; +if(qbevent){evnt(26070,12806,"ide_methods.bas");if(r)goto S_50130;} +S_50131:; +if ((-(FUNC_TIMEELAPSEDSINCE(_SUB_IDESHOWTEXT_SINGLE_STARTTIME)> 1 ))||new_error){ +if(qbevent){evnt(26070,12807,"ide_methods.bas");if(r)goto S_50131;} +do{ +*_SUB_IDESHOWTEXT_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Syntax Highlighter Disabled",27),qbs_new_txt_len("Syntax Highlighter has been disabled to avoid slowing down the IDE.\\nYou can reenable the Highlighter in the 'Options' menu.",124),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12808,"ide_methods.bas");}while(r); +do{ +*__BYTE_DISABLESYNTAXHIGHLIGHTER= -1 ; +if(!qbevent)break;evnt(26070,12809,"ide_methods.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("DisableSyntaxHighlighter",24),qbs_new_txt_len("True",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12810,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*__INTEGER_OPTIONSMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_OPTIONSMENUDISABLESYNTAX)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Syntax #Highlighter",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12811,"ide_methods.bas");}while(r); +do{ +goto LABEL_NOSYNTAXHIGHLIGHTING; +if(!qbevent)break;evnt(26070,12812,"ide_methods.bas");}while(r); +} +S_50138:; +if ((-(*_SUB_IDESHOWTEXT_LONG_M>(*__LONG_IDESX+*__LONG_IDEWX- 2 )))||new_error){ +if(qbevent){evnt(26070,12814,"ide_methods.bas");if(r)goto S_50138;} +do{ +goto fornext_exit_5530; +if(!qbevent)break;evnt(26070,12814,"ide_methods.bas");}while(r); +} +S_50141:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_IDESELECT== 1 ))&(-(__STRING_IDECURRENTSINGLELINESELECTION->len> 0 ))&(-(*_SUB_IDESHOWTEXT_LONG_MULTIHIGHLIGHTLENGTH== 0 ))&(-(*__INTEGER_MULTIHIGHLIGHT== -1 ))))||new_error){ +if(qbevent){evnt(26070,12815,"ide_methods.bas");if(r)goto S_50141;} +S_50142:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_lcase(func_mid(_SUB_IDESHOWTEXT_STRING_A2,*_SUB_IDESHOWTEXT_LONG_M,__STRING_IDECURRENTSINGLELINESELECTION->len,0|1)),qbs_lcase(__STRING_IDECURRENTSINGLELINESELECTION))))||new_error){ +if(qbevent){evnt(26070,12816,"ide_methods.bas");if(r)goto S_50142;} +S_50143:; +if ((-(*_SUB_IDESHOWTEXT_LONG_M> 1 ))||new_error){ +if(qbevent){evnt(26070,12818,"ide_methods.bas");if(r)goto S_50143;} +S_50144:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_SUB_IDESHOWTEXT_STRING_CHAR__ASCII_CHR_046__SEP,func_mid(_SUB_IDESHOWTEXT_STRING_A2,*_SUB_IDESHOWTEXT_LONG_M- 1 , 1 ,0|1),0)> 0 )))||new_error){ +if(qbevent){evnt(26070,12819,"ide_methods.bas");if(r)goto S_50144;} +S_50145:; +if ((qbs_cleanup(qbs_tmp_base,(-((*_SUB_IDESHOWTEXT_LONG_M+__STRING_IDECURRENTSINGLELINESELECTION->len)<(_SUB_IDESHOWTEXT_STRING_A2->len)))&(((-(func_instr(NULL,_SUB_IDESHOWTEXT_STRING_CHAR__ASCII_CHR_046__SEP,func_mid(_SUB_IDESHOWTEXT_STRING_A2,*_SUB_IDESHOWTEXT_LONG_M+__STRING_IDECURRENTSINGLELINESELECTION->len, 1 ,0|1),0)> 0 ))|(qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A2,*_SUB_IDESHOWTEXT_LONG_M+__STRING_IDECURRENTSINGLELINESELECTION->len, 1 ,0|1),qbs_new_txt_len(".",1)))))))||new_error){ +if(qbevent){evnt(26070,12822,"ide_methods.bas");if(r)goto S_50145;} +do{ +*_SUB_IDESHOWTEXT_LONG_MULTIHIGHLIGHTLENGTH=__STRING_IDECURRENTSINGLELINESELECTION->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12823,"ide_methods.bas");}while(r); +S_50147:; +}else{ +if (qbs_cleanup(qbs_tmp_base,-((*_SUB_IDESHOWTEXT_LONG_M+__STRING_IDECURRENTSINGLELINESELECTION->len)>=(_SUB_IDESHOWTEXT_STRING_A2->len)))){ +if(qbevent){evnt(26070,12824,"ide_methods.bas");if(r)goto S_50147;} +do{ +*_SUB_IDESHOWTEXT_LONG_MULTIHIGHLIGHTLENGTH=__STRING_IDECURRENTSINGLELINESELECTION->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12825,"ide_methods.bas");}while(r); +} +} +} +}else{ +S_50152:; +if ((qbs_cleanup(qbs_tmp_base,(-((*_SUB_IDESHOWTEXT_LONG_M+__STRING_IDECURRENTSINGLELINESELECTION->len)<(_SUB_IDESHOWTEXT_STRING_A2->len)))&(((-(func_instr(NULL,_SUB_IDESHOWTEXT_STRING_CHAR__ASCII_CHR_046__SEP,func_mid(_SUB_IDESHOWTEXT_STRING_A2,*_SUB_IDESHOWTEXT_LONG_M+__STRING_IDECURRENTSINGLELINESELECTION->len, 1 ,0|1),0)> 0 ))|(qbs_equal(func_mid(_SUB_IDESHOWTEXT_STRING_A2,*_SUB_IDESHOWTEXT_LONG_M+__STRING_IDECURRENTSINGLELINESELECTION->len, 1 ,0|1),qbs_new_txt_len(".",1)))))))||new_error){ +if(qbevent){evnt(26070,12831,"ide_methods.bas");if(r)goto S_50152;} +do{ +*_SUB_IDESHOWTEXT_LONG_MULTIHIGHLIGHTLENGTH=__STRING_IDECURRENTSINGLELINESELECTION->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12832,"ide_methods.bas");}while(r); +S_50154:; +}else{ +if (qbs_cleanup(qbs_tmp_base,-((*_SUB_IDESHOWTEXT_LONG_M+__STRING_IDECURRENTSINGLELINESELECTION->len)>=(_SUB_IDESHOWTEXT_STRING_A2->len)))){ +if(qbevent){evnt(26070,12833,"ide_methods.bas");if(r)goto S_50154;} +do{ +*_SUB_IDESHOWTEXT_LONG_MULTIHIGHLIGHTLENGTH=__STRING_IDECURRENTSINGLELINESELECTION->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12834,"ide_methods.bas");}while(r); +} +} +} +} +} +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_THISCHAR,func_mid(_SUB_IDESHOWTEXT_STRING_A2,*_SUB_IDESHOWTEXT_LONG_M, 1 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12840,"ide_methods.bas");}while(r); +S_50161:; +if ((-(*_SUB_IDESHOWTEXT_LONG_COMMENT== 0 ))||new_error){ +if(qbevent){evnt(26070,12842,"ide_methods.bas");if(r)goto S_50161;} +S_50162:; +if(qbevent){evnt(26070,12843,"ide_methods.bas");if(r)goto S_50162;} +S_50163:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDESHOWTEXT_STRING_THISCHAR,func_chr( 34 ))))||new_error){ +if(qbevent){evnt(26070,12844,"ide_methods.bas");if(r)goto S_50163;} +do{ +*_SUB_IDESHOWTEXT_LONG_INQUOTE=~(*_SUB_IDESHOWTEXT_LONG_INQUOTE); +if(!qbevent)break;evnt(26070,12844,"ide_methods.bas");}while(r); +sc_ec_372_end:; +goto sc_5551_end; +} +S_50165:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDESHOWTEXT_STRING_THISCHAR,qbs_new_txt_len("'",1))))||new_error){ +if(qbevent){evnt(26070,12845,"ide_methods.bas");if(r)goto S_50165;} +S_50166:; +if ((-(*_SUB_IDESHOWTEXT_LONG_INQUOTE== 0 ))||new_error){ +if(qbevent){evnt(26070,12845,"ide_methods.bas");if(r)goto S_50166;} +do{ +*_SUB_IDESHOWTEXT_LONG_COMMENT= -1 ; +if(!qbevent)break;evnt(26070,12845,"ide_methods.bas");}while(r); +} +sc_ec_373_end:; +goto sc_5551_end; +} +sc_5551_end:; +} +do{ +qbg_sub_color( 13 ,NULL,NULL,1); +if(!qbevent)break;evnt(26070,12849,"ide_methods.bas");}while(r); +S_50172:; +if ((((int8*)(__ARRAY_BYTE_INVALIDLINE[0]))[array_check((*_SUB_IDESHOWTEXT_LONG_L)-__ARRAY_BYTE_INVALIDLINE[4],__ARRAY_BYTE_INVALIDLINE[5])])||new_error){ +if(qbevent){evnt(26070,12851,"ide_methods.bas");if(r)goto S_50172;} +do{ +qbg_sub_color( 7 ,NULL,NULL,1); +if(!qbevent)break;evnt(26070,12851,"ide_methods.bas");}while(r); +do{ +goto LABEL_SKIPSYNTAXHIGHLIGHTER; +if(!qbevent)break;evnt(26070,12851,"ide_methods.bas");}while(r); +} +S_50176:; +if ((qbs_cleanup(qbs_tmp_base,(((-(_SUB_IDESHOWTEXT_STRING_OLDCHAR->len> 0 ))|(-(*_SUB_IDESHOWTEXT_LONG_M== 1 ))))&(-(*_SUB_IDESHOWTEXT_LONG_INQUOTE== 0 ))&(-(*_SUB_IDESHOWTEXT_LONG_ISKEYWORD== 0 ))))||new_error){ +if(qbevent){evnt(26070,12853,"ide_methods.bas");if(r)goto S_50176;} +S_50177:; +if ((qbs_cleanup(qbs_tmp_base,(-(func_instr(NULL,_SUB_IDESHOWTEXT_STRING_INITIALNUM__ASCII_CHR_046__CHAR,_SUB_IDESHOWTEXT_STRING_THISCHAR,0)> 0 ))&(qbs_notequal(_SUB_IDESHOWTEXT_STRING_OLDCHAR,qbs_new_txt_len(")",1)))&(((-(func_instr(NULL,_SUB_IDESHOWTEXT_STRING_CHAR__ASCII_CHR_046__SEP,_SUB_IDESHOWTEXT_STRING_OLDCHAR,0)> 0 ))|(qbs_equal(_SUB_IDESHOWTEXT_STRING_OLDCHAR,qbs_new_txt_len("?",1)))))))||new_error){ +if(qbevent){evnt(26070,12854,"ide_methods.bas");if(r)goto S_50177;} +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12856,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESHOWTEXT_LONG_IS_NUMBER= 0 ; +if(!qbevent)break;evnt(26070,12857,"ide_methods.bas");}while(r); +S_50180:; +fornext_value5554=*_SUB_IDESHOWTEXT_LONG_M; +fornext_finalvalue5554=_SUB_IDESHOWTEXT_STRING_A2->len; +fornext_step5554= 1 ; +if (fornext_step5554<0) fornext_step_negative5554=1; else fornext_step_negative5554=0; +if (new_error) goto fornext_error5554; +goto fornext_entrylabel5554; +while(1){ +fornext_value5554=fornext_step5554+(*_SUB_IDESHOWTEXT_LONG_I); +fornext_entrylabel5554: +*_SUB_IDESHOWTEXT_LONG_I=fornext_value5554; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative5554){ +if (fornext_value5554fornext_finalvalue5554) break; +} +fornext_error5554:; +if(qbevent){evnt(26070,12859,"ide_methods.bas");if(r)goto S_50180;} +S_50181:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_SUB_IDESHOWTEXT_STRING_NUM__ASCII_CHR_046__CHAR,func_mid(_SUB_IDESHOWTEXT_STRING_A2,*_SUB_IDESHOWTEXT_LONG_I, 1 ,0|1),0)== 0 )))||new_error){ +if(qbevent){evnt(26070,12860,"ide_methods.bas");if(r)goto S_50181;} +do{ +goto fornext_exit_5553; +if(!qbevent)break;evnt(26070,12860,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,qbs_add(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,func_mid(_SUB_IDESHOWTEXT_STRING_A2,*_SUB_IDESHOWTEXT_LONG_I, 1 ,0|1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12861,"ide_methods.bas");}while(r); +fornext_continue_5553:; +} +fornext_exit_5553:; +S_50186:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,qbs_new_txt_len("-",1)))|(qbs_equal(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,qbs_new_txt_len(".",1)))|(qbs_equal(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,qbs_new_txt_len("&",1)))))||new_error){ +if(qbevent){evnt(26070,12864,"ide_methods.bas");if(r)goto S_50186;} +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12865,"ide_methods.bas");}while(r); +}else{ +S_50189:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_ISNUMBER(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD)))||new_error){ +if(qbevent){evnt(26070,12867,"ide_methods.bas");if(r)goto S_50189;} +do{ +*_SUB_IDESHOWTEXT_LONG_IS_NUMBER= -1 ; +if(!qbevent)break;evnt(26070,12868,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESHOWTEXT_LONG_ISKEYWORD=_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12869,"ide_methods.bas");}while(r); +S_50192:; +}else{ +if (qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,__STRING_USERDEFINELIST,qbs_add(qbs_new_txt_len("@",1),qbs_ucase(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD)),0)> 0 ))){ +if(qbevent){evnt(26070,12870,"ide_methods.bas");if(r)goto S_50192;} +S_50193:; +fornext_value5558=*_SUB_IDESHOWTEXT_LONG_I; +fornext_finalvalue5558=_SUB_IDESHOWTEXT_STRING_A2->len; +fornext_step5558= 1 ; +if (fornext_step5558<0) fornext_step_negative5558=1; else fornext_step_negative5558=0; +if (new_error) goto fornext_error5558; +goto fornext_entrylabel5558; +while(1){ +fornext_value5558=fornext_step5558+(*_SUB_IDESHOWTEXT_LONG_I); +fornext_entrylabel5558: +*_SUB_IDESHOWTEXT_LONG_I=fornext_value5558; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative5558){ +if (fornext_value5558fornext_finalvalue5558) break; +} +fornext_error5558:; +if(qbevent){evnt(26070,12872,"ide_methods.bas");if(r)goto S_50193;} +S_50194:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_SUB_IDESHOWTEXT_STRING_CHAR__ASCII_CHR_046__SEP,func_mid(_SUB_IDESHOWTEXT_STRING_A2,*_SUB_IDESHOWTEXT_LONG_I, 1 ,0|1),0)> 0 )))||new_error){ +if(qbevent){evnt(26070,12873,"ide_methods.bas");if(r)goto S_50194;} +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_RIGHT__ASCII_CHR_046__SEP,func_mid(_SUB_IDESHOWTEXT_STRING_A2,*_SUB_IDESHOWTEXT_LONG_I, 1 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12873,"ide_methods.bas");}while(r); +do{ +goto LABEL_KEYWORDACQUIRED; +if(!qbevent)break;evnt(26070,12873,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,qbs_add(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,func_mid(_SUB_IDESHOWTEXT_STRING_A2,*_SUB_IDESHOWTEXT_LONG_I, 1 ,0|1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12874,"ide_methods.bas");}while(r); +fornext_continue_5557:; +} +fornext_exit_5557:; +do{ +goto LABEL_KEYWORDACQUIRED; +if(!qbevent)break;evnt(26070,12876,"ide_methods.bas");}while(r); +} +} +} +do{ +goto LABEL_SETOLDCHAR; +if(!qbevent)break;evnt(26070,12879,"ide_methods.bas");}while(r); +} +S_50205:; +if ((qbs_cleanup(qbs_tmp_base,(((-(func_instr(NULL,_SUB_IDESHOWTEXT_STRING_CHAR__ASCII_CHR_046__SEP,_SUB_IDESHOWTEXT_STRING_OLDCHAR,0)> 0 ))|(qbs_equal(_SUB_IDESHOWTEXT_STRING_OLDCHAR,qbs_new_txt_len("?",1)))))&(-(func_instr(NULL,_SUB_IDESHOWTEXT_STRING_CHAR__ASCII_CHR_046__SEP,_SUB_IDESHOWTEXT_STRING_THISCHAR,0)== 0 ))))||new_error){ +if(qbevent){evnt(26070,12882,"ide_methods.bas");if(r)goto S_50205;} +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12884,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_RIGHT__ASCII_CHR_046__SEP,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12885,"ide_methods.bas");}while(r); +S_50208:; +fornext_value5561=*_SUB_IDESHOWTEXT_LONG_M; +fornext_finalvalue5561=_SUB_IDESHOWTEXT_STRING_A2->len; +fornext_step5561= 1 ; +if (fornext_step5561<0) fornext_step_negative5561=1; else fornext_step_negative5561=0; +if (new_error) goto fornext_error5561; +goto fornext_entrylabel5561; +while(1){ +fornext_value5561=fornext_step5561+(*_SUB_IDESHOWTEXT_LONG_I); +fornext_entrylabel5561: +*_SUB_IDESHOWTEXT_LONG_I=fornext_value5561; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative5561){ +if (fornext_value5561fornext_finalvalue5561) break; +} +fornext_error5561:; +if(qbevent){evnt(26070,12886,"ide_methods.bas");if(r)goto S_50208;} +S_50209:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_SUB_IDESHOWTEXT_STRING_CHAR__ASCII_CHR_046__SEP,func_mid(_SUB_IDESHOWTEXT_STRING_A2,*_SUB_IDESHOWTEXT_LONG_I, 1 ,0|1),0)> 0 )))||new_error){ +if(qbevent){evnt(26070,12887,"ide_methods.bas");if(r)goto S_50209;} +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_RIGHT__ASCII_CHR_046__SEP,func_mid(_SUB_IDESHOWTEXT_STRING_A2,*_SUB_IDESHOWTEXT_LONG_I, 1 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12887,"ide_methods.bas");}while(r); +do{ +goto fornext_exit_5560; +if(!qbevent)break;evnt(26070,12887,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,qbs_add(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,func_mid(_SUB_IDESHOWTEXT_STRING_A2,*_SUB_IDESHOWTEXT_LONG_I, 1 ,0|1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12888,"ide_methods.bas");}while(r); +fornext_continue_5560:; +} +fornext_exit_5560:; +S_50215:; +if ((qbs_cleanup(qbs_tmp_base,(-(*_SUB_IDESHOWTEXT_LONG_COMMENT== 0 ))&(qbs_equal(qbs_left(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD, 1 ),qbs_new_txt_len("?",1)))))||new_error){ +if(qbevent){evnt(26070,12890,"ide_methods.bas");if(r)goto S_50215;} +do{ +*_SUB_IDESHOWTEXT_LONG_ISKEYWORD= 1 ; +if(!qbevent)break;evnt(26070,12890,"ide_methods.bas");}while(r); +do{ +goto LABEL_SETOLDCHAR; +if(!qbevent)break;evnt(26070,12890,"ide_methods.bas");}while(r); +} +LABEL_KEYWORDACQUIRED:; +if(qbevent){evnt(26070,12891,"ide_methods.bas");r=0;} +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,qbs_ucase(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12892,"ide_methods.bas");}while(r); +S_50220:; +if ((qbs_cleanup(qbs_tmp_base,(-(func_instr(NULL,__STRING_LISTOFKEYWORDS,qbs_add(qbs_add(qbs_new_txt_len("@",1),_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD),qbs_new_txt_len("@",1)),0)> 0 ))|(((-(*__LONG_QB64PREFIX_SET== 1 ))&(-(func_instr(NULL,__STRING_LISTOFKEYWORDS,qbs_add(qbs_add(qbs_new_txt_len("@_",2),_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD),qbs_new_txt_len("@",1)),0)> 0 ))))))||new_error){ +if(qbevent){evnt(26070,12894,"ide_methods.bas");if(r)goto S_50220;} +S_50221:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,qbs_new_txt_len("$END",4))))||new_error){ +if(qbevent){evnt(26070,12896,"ide_methods.bas");if(r)goto S_50221;} +S_50222:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(func_mid(_SUB_IDESHOWTEXT_STRING_A2,*_SUB_IDESHOWTEXT_LONG_M, 7 ,0|1)),qbs_new_txt_len("$END IF",7))))||new_error){ +if(qbevent){evnt(26070,12897,"ide_methods.bas");if(r)goto S_50222;} +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,qbs_new_txt_len("$END IF",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12897,"ide_methods.bas");}while(r); +} +S_50225:; +}else{ +if (qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,qbs_new_txt_len("THEN",4)))&(((qbs_equal(qbs_ucase(qbs_left(qbs_ltrim(_SUB_IDESHOWTEXT_STRING_A2), 3 )),qbs_new_txt_len("$IF",3)))|(qbs_equal(qbs_ucase(qbs_left(qbs_ltrim(_SUB_IDESHOWTEXT_STRING_A2), 7 )),qbs_new_txt_len("$ELSEIF",7))))))){ +if(qbevent){evnt(26070,12900,"ide_methods.bas");if(r)goto S_50225;} +do{ +*_SUB_IDESHOWTEXT_LONG_METACOMMAND= -1 ; +if(!qbevent)break;evnt(26070,12901,"ide_methods.bas");}while(r); +S_50227:; +}else{ +if (qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,qbs_new_txt_len("$ASSERTS",8)))){ +if(qbevent){evnt(26070,12902,"ide_methods.bas");if(r)goto S_50227;} +S_50228:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs__trim(_SUB_IDESHOWTEXT_STRING_A2)),qbs_new_txt_len("$ASSERTS:CONSOLE",16))))||new_error){ +if(qbevent){evnt(26070,12903,"ide_methods.bas");if(r)goto S_50228;} +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,qbs_new_txt_len("$ASSERTS:CONSOLE",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12904,"ide_methods.bas");}while(r); +} +} +} +} +do{ +*_SUB_IDESHOWTEXT_LONG_ISKEYWORD=_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12907,"ide_methods.bas");}while(r); +S_50233:; +}else{ +if (qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,__STRING_LISTOFCUSTOMKEYWORDS,qbs_add(qbs_add(qbs_new_txt_len("@",1),FUNC_REMOVESYMBOL2(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD)),qbs_new_txt_len("@",1)),0)> 0 ))){ +if(qbevent){evnt(26070,12908,"ide_methods.bas");if(r)goto S_50233;} +do{ +*_SUB_IDESHOWTEXT_LONG_ISCUSTOMKEYWORD= -1 ; +if(!qbevent)break;evnt(26070,12909,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESHOWTEXT_LONG_ISKEYWORD=_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12910,"ide_methods.bas");}while(r); +S_50236:; +}else{ +if (qbs_cleanup(qbs_tmp_base,(-(func_instr(NULL,__STRING_USERDEFINELIST,qbs_add(qbs_add(qbs_new_txt_len("@",1),_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD),qbs_new_txt_len("@",1)),0)> 0 ))&(((qbs_equal(qbs_ucase(qbs_left(qbs_ltrim(_SUB_IDESHOWTEXT_STRING_A2), 3 )),qbs_new_txt_len("$IF",3)))|(qbs_equal(qbs_ucase(qbs_left(qbs_ltrim(_SUB_IDESHOWTEXT_STRING_A2), 7 )),qbs_new_txt_len("$ELSEIF",7))))))){ +if(qbevent){evnt(26070,12913,"ide_methods.bas");if(r)goto S_50236;} +do{ +*_SUB_IDESHOWTEXT_LONG_ISCUSTOMKEYWORD= -1 ; +if(!qbevent)break;evnt(26070,12914,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESHOWTEXT_LONG_ISKEYWORD=_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12915,"ide_methods.bas");}while(r); +} +} +} +} +} +LABEL_SETOLDCHAR:; +if(qbevent){evnt(26070,12919,"ide_methods.bas");r=0;} +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_OLDCHAR,_SUB_IDESHOWTEXT_STRING_THISCHAR); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12920,"ide_methods.bas");}while(r); +S_50243:; +if (((-(*_SUB_IDESHOWTEXT_LONG_ISKEYWORD> 0 ))&*__INTEGER_KEYWORDHIGHLIGHT)||new_error){ +if(qbevent){evnt(26070,12922,"ide_methods.bas");if(r)goto S_50243;} +S_50244:; +if ((*_SUB_IDESHOWTEXT_LONG_IS_NUMBER)||new_error){ +if(qbevent){evnt(26070,12923,"ide_methods.bas");if(r)goto S_50244;} +do{ +qbg_sub_color( 8 ,NULL,NULL,1); +if(!qbevent)break;evnt(26070,12924,"ide_methods.bas");}while(r); +S_50246:; +}else{ +if (*_SUB_IDESHOWTEXT_LONG_ISCUSTOMKEYWORD){ +if(qbevent){evnt(26070,12925,"ide_methods.bas");if(r)goto S_50246;} +do{ +qbg_sub_color( 10 ,NULL,NULL,1); +if(!qbevent)break;evnt(26070,12926,"ide_methods.bas");}while(r); +}else{ +do{ +qbg_sub_color( 12 ,NULL,NULL,1); +if(!qbevent)break;evnt(26070,12928,"ide_methods.bas");}while(r); +} +} +S_50251:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD, 1 ),qbs_new_txt_len("$",1))))||new_error){ +if(qbevent){evnt(26070,12930,"ide_methods.bas");if(r)goto S_50251;} +do{ +*_SUB_IDESHOWTEXT_LONG_METACOMMAND= -1 ; +if(!qbevent)break;evnt(26070,12930,"ide_methods.bas");}while(r); +} +} +S_50255:; +if ((*_SUB_IDESHOWTEXT_LONG_COMMENT)||new_error){ +if(qbevent){evnt(26070,12933,"ide_methods.bas");if(r)goto S_50255;} +do{ +qbg_sub_color( 11 ,NULL,NULL,1); +if(!qbevent)break;evnt(26070,12934,"ide_methods.bas");}while(r); +S_50257:; +if ((*_SUB_IDESHOWTEXT_LONG_METACOMMAND)||new_error){ +if(qbevent){evnt(26070,12935,"ide_methods.bas");if(r)goto S_50257;} +S_50258:; +if(qbevent){evnt(26070,12936,"ide_methods.bas");if(r)goto S_50258;} +S_50259:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,qbs_new_txt_len("$INCLUDE",8))))||new_error){ +if(qbevent){evnt(26070,12937,"ide_methods.bas");if(r)goto S_50259;} +S_50260:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(*_SUB_IDESHOWTEXT_LONG_M+ 1 ,qbs_ucase(_SUB_IDESHOWTEXT_STRING_A2),_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,0|1)== 0 )))||new_error){ +if(qbevent){evnt(26070,12938,"ide_methods.bas");if(r)goto S_50260;} +do{ +qbg_sub_color( 10 ,NULL,NULL,1); +if(!qbevent)break;evnt(26070,12938,"ide_methods.bas");}while(r); +} +sc_ec_374_end:; +goto sc_5566_end; +} +S_50263:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,qbs_new_txt_len("$DYNAMIC",8))||qbs_equal(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,qbs_new_txt_len("$STATIC",7))))||new_error){ +if(qbevent){evnt(26070,12939,"ide_methods.bas");if(r)goto S_50263;} +S_50264:; +if ((qbs_cleanup(qbs_tmp_base,(-(func_instr(*_SUB_IDESHOWTEXT_LONG_M+ 1 ,qbs_ucase(_SUB_IDESHOWTEXT_STRING_A2),qbs_new_txt_len("$DYNAMIC",8),0|1)== 0 ))&(-(func_instr(*_SUB_IDESHOWTEXT_LONG_M+ 1 ,qbs_ucase(_SUB_IDESHOWTEXT_STRING_A2),qbs_new_txt_len("$STATIC",7),0|1)== 0 ))))||new_error){ +if(qbevent){evnt(26070,12940,"ide_methods.bas");if(r)goto S_50264;} +do{ +qbg_sub_color( 10 ,NULL,NULL,1); +if(!qbevent)break;evnt(26070,12940,"ide_methods.bas");}while(r); +} +sc_ec_375_end:; +goto sc_5566_end; +} +sc_5566_end:; +} +S_50269:; +}else{ +if (*_SUB_IDESHOWTEXT_LONG_METACOMMAND){ +if(qbevent){evnt(26070,12943,"ide_methods.bas");if(r)goto S_50269;} +do{ +qbg_sub_color( 10 ,NULL,NULL,1); +if(!qbevent)break;evnt(26070,12944,"ide_methods.bas");}while(r); +S_50271:; +}else{ +if (qbs_cleanup(qbs_tmp_base,*_SUB_IDESHOWTEXT_LONG_INQUOTE|(qbs_equal(_SUB_IDESHOWTEXT_STRING_THISCHAR,func_chr( 34 ))))){ +if(qbevent){evnt(26070,12945,"ide_methods.bas");if(r)goto S_50271;} +do{ +qbg_sub_color( 14 ,NULL,NULL,1); +if(!qbevent)break;evnt(26070,12946,"ide_methods.bas");}while(r); +} +} +} +LABEL_SKIPSYNTAXHIGHLIGHTER:; +if(qbevent){evnt(26070,12949,"ide_methods.bas");r=0;} +S_50274:; +if (((-(*_SUB_IDESHOWTEXT_LONG_L==*__LONG_IDECY))&(((-(*_SUB_IDESHOWTEXT_LONG_LINK_IDECX> 0 ))&(-(*_SUB_IDESHOWTEXT_LONG_M>*_SUB_IDESHOWTEXT_LONG_LINK_IDECX)))))||new_error){ +if(qbevent){evnt(26070,12951,"ide_methods.bas");if(r)goto S_50274;} +do{ +qbg_sub_color( 10 ,NULL,NULL,1); +if(!qbevent)break;evnt(26070,12951,"ide_methods.bas");}while(r); +} +S_50277:; +if ((((-(*_SUB_IDESHOWTEXT_LONG_SHIFTENTER_IDECX> 0 ))&(-(*_SUB_IDESHOWTEXT_LONG_M>*_SUB_IDESHOWTEXT_LONG_SHIFTENTER_IDECX))))||new_error){ +if(qbevent){evnt(26070,12952,"ide_methods.bas");if(r)goto S_50277;} +do{ +qbg_sub_color( 10 ,NULL,NULL,1); +if(!qbevent)break;evnt(26070,12952,"ide_methods.bas");}while(r); +} +S_50280:; +if (((-(*_SUB_IDESHOWTEXT_LONG_L==*__LONG_IDECY))&(((-(*_SUB_IDESHOWTEXT_LONG_M==*_SUB_IDESHOWTEXT_LONG_BRACKET1))|(-(*_SUB_IDESHOWTEXT_LONG_M==*_SUB_IDESHOWTEXT_LONG_BRACKET2)))))||new_error){ +if(qbevent){evnt(26070,12954,"ide_methods.bas");if(r)goto S_50280;} +do{ +qbg_sub_color(NULL, 5 ,NULL,2); +if(!qbevent)break;evnt(26070,12955,"ide_methods.bas");}while(r); +S_50282:; +}else{ +if ((-(*_SUB_IDESHOWTEXT_LONG_MULTIHIGHLIGHTLENGTH> 0 ))&(-(*__INTEGER_MULTIHIGHLIGHT== -1 ))){ +if(qbevent){evnt(26070,12956,"ide_methods.bas");if(r)goto S_50282;} +do{ +*_SUB_IDESHOWTEXT_LONG_MULTIHIGHLIGHTLENGTH=*_SUB_IDESHOWTEXT_LONG_MULTIHIGHLIGHTLENGTH- 1 ; +if(!qbevent)break;evnt(26070,12957,"ide_methods.bas");}while(r); +do{ +qbg_sub_color(NULL, 5 ,NULL,2); +if(!qbevent)break;evnt(26070,12958,"ide_methods.bas");}while(r); +}else{ +do{ +qbg_sub_color(NULL,*_SUB_IDESHOWTEXT_INTEGER_PREVBG,NULL,2); +if(!qbevent)break;evnt(26070,12960,"ide_methods.bas");}while(r); +} +} +S_50288:; +if ((*__BYTE_SHOWLINENUMBERS)||new_error){ +if(qbevent){evnt(26070,12963,"ide_methods.bas");if(r)goto S_50288;} +S_50289:; +if (((-((( 2 +*_SUB_IDESHOWTEXT_LONG_M-*__LONG_IDESX)+*__LONG_MAXLINENUMBERLENGTH)>=( 2 +*__LONG_MAXLINENUMBERLENGTH)))&(-((( 2 +*_SUB_IDESHOWTEXT_LONG_M-*__LONG_IDESX)+*__LONG_MAXLINENUMBERLENGTH)<*__LONG_IDEWX)))||new_error){ +if(qbevent){evnt(26070,12964,"ide_methods.bas");if(r)goto S_50289;} +do{ +sub__printstring(( 2 +*_SUB_IDESHOWTEXT_LONG_M-*__LONG_IDESX)+*__LONG_MAXLINENUMBERLENGTH,*_SUB_IDESHOWTEXT_LONG_Y+ 3 ,_SUB_IDESHOWTEXT_STRING_THISCHAR,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12965,"ide_methods.bas");}while(r); +} +}else{ +S_50293:; +if (((-(( 2 +*_SUB_IDESHOWTEXT_LONG_M-*__LONG_IDESX)>=( 2 )))&(-(( 2 +*_SUB_IDESHOWTEXT_LONG_M-*__LONG_IDESX)<*__LONG_IDEWX)))||new_error){ +if(qbevent){evnt(26070,12968,"ide_methods.bas");if(r)goto S_50293;} +do{ +sub__printstring( 2 +*_SUB_IDESHOWTEXT_LONG_M-*__LONG_IDESX,*_SUB_IDESHOWTEXT_LONG_Y+ 3 ,_SUB_IDESHOWTEXT_STRING_THISCHAR,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12969,"ide_methods.bas");}while(r); +} +} +S_50297:; +if ((-(*_SUB_IDESHOWTEXT_LONG_L==*__LONG_IDECY))||new_error){ +if(qbevent){evnt(26070,12974,"ide_methods.bas");if(r)goto S_50297;} +do{ +qbg_sub_color(NULL, 6 ,NULL,2); +if(!qbevent)break;evnt(26070,12974,"ide_methods.bas");}while(r); +} +S_50300:; +if ((-(*_SUB_IDESHOWTEXT_LONG_ISKEYWORD> 0 ))||new_error){ +if(qbevent){evnt(26070,12975,"ide_methods.bas");if(r)goto S_50300;} +do{ +*_SUB_IDESHOWTEXT_LONG_ISKEYWORD=*_SUB_IDESHOWTEXT_LONG_ISKEYWORD- 1 ; +if(!qbevent)break;evnt(26070,12975,"ide_methods.bas");}while(r); +} +S_50303:; +if ((qbs_cleanup(qbs_tmp_base,(-(*_SUB_IDESHOWTEXT_LONG_ISKEYWORD== 0 ))&(qbs_equal(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,qbs_new_txt_len("REM",3)))))||new_error){ +if(qbevent){evnt(26070,12976,"ide_methods.bas");if(r)goto S_50303;} +do{ +*_SUB_IDESHOWTEXT_LONG_COMMENT= -1 ; +if(!qbevent)break;evnt(26070,12976,"ide_methods.bas");}while(r); +} +S_50306:; +if ((-(*_SUB_IDESHOWTEXT_LONG_ISKEYWORD== 0 ))||new_error){ +if(qbevent){evnt(26070,12977,"ide_methods.bas");if(r)goto S_50306;} +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_CHECKKEYWORD,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12977,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESHOWTEXT_LONG_METACOMMAND= 0 ; +if(!qbevent)break;evnt(26070,12977,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESHOWTEXT_LONG_IS_NUMBER= 0 ; +if(!qbevent)break;evnt(26070,12977,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESHOWTEXT_LONG_ISCUSTOMKEYWORD= 0 ; +if(!qbevent)break;evnt(26070,12977,"ide_methods.bas");}while(r); +} +fornext_continue_5530:; +} +fornext_exit_5530:; +S_50313:; +if (((((-(*__LONG_IDESYSTEM== 1 ))|(-(*__LONG_IDESYSTEM== 2 ))))&(-(*__LONG_IDESELECT!= 0 )))||new_error){ +if(qbevent){evnt(26070,12981,"ide_methods.bas");if(r)goto S_50313;} +S_50314:; +if (((-(*_SUB_IDESHOWTEXT_LONG_L>=*_SUB_IDESHOWTEXT_LONG_SY1))&(-(*_SUB_IDESHOWTEXT_LONG_L<=*_SUB_IDESHOWTEXT_LONG_SY2)))||new_error){ +if(qbevent){evnt(26070,12982,"ide_methods.bas");if(r)goto S_50314;} +S_50315:; +if ((-(*_SUB_IDESHOWTEXT_LONG_SY1==*_SUB_IDESHOWTEXT_LONG_SY2))||new_error){ +if(qbevent){evnt(26070,12983,"ide_methods.bas");if(r)goto S_50315;} +do{ +qbg_sub_color( 1 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,12984,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESHOWTEXT_LONG_X2=*__LONG_IDESX; +if(!qbevent)break;evnt(26070,12985,"ide_methods.bas");}while(r); +S_50318:; +fornext_value5568= 2 +*__LONG_MAXLINENUMBERLENGTH; +fornext_finalvalue5568=(*__LONG_IDEWX- 1 ); +fornext_step5568= 1 ; +if (fornext_step5568<0) fornext_step_negative5568=1; else fornext_step_negative5568=0; +if (new_error) goto fornext_error5568; +goto fornext_entrylabel5568; +while(1){ +fornext_value5568=fornext_step5568+(*_SUB_IDESHOWTEXT_LONG_X); +fornext_entrylabel5568: +*_SUB_IDESHOWTEXT_LONG_X=fornext_value5568; +if (fornext_step_negative5568){ +if (fornext_value5568fornext_finalvalue5568) break; +} +fornext_error5568:; +if(qbevent){evnt(26070,12986,"ide_methods.bas");if(r)goto S_50318;} +S_50319:; +if (((-(*_SUB_IDESHOWTEXT_LONG_X2>=*_SUB_IDESHOWTEXT_LONG_SX1))&(-(*_SUB_IDESHOWTEXT_LONG_X2<*_SUB_IDESHOWTEXT_LONG_SX2)))||new_error){ +if(qbevent){evnt(26070,12987,"ide_methods.bas");if(r)goto S_50319;} +do{ +*_SUB_IDESHOWTEXT_LONG_A=func_screen(*_SUB_IDESHOWTEXT_LONG_Y+ 3 ,*_SUB_IDESHOWTEXT_LONG_X,NULL,0); +if(!qbevent)break;evnt(26070,12988,"ide_methods.bas");}while(r); +S_50321:; +if ((-(*_SUB_IDESHOWTEXT_LONG_A== 63 ))||new_error){ +if(qbevent){evnt(26070,12990,"ide_methods.bas");if(r)goto S_50321;} +do{ +*_SUB_IDESHOWTEXT_LONG_C=func_screen(*_SUB_IDESHOWTEXT_LONG_Y+ 3 ,*_SUB_IDESHOWTEXT_LONG_X, 1 ,0|1); +if(!qbevent)break;evnt(26070,12991,"ide_methods.bas");}while(r); +}else{ +do{ +*_SUB_IDESHOWTEXT_LONG_C= 1 ; +if(!qbevent)break;evnt(26070,12993,"ide_methods.bas");}while(r); +} +S_50326:; +if ((-((*_SUB_IDESHOWTEXT_LONG_C& 15 )== 0 ))||new_error){ +if(qbevent){evnt(26070,12995,"ide_methods.bas");if(r)goto S_50326;} +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,12996,"ide_methods.bas");}while(r); +do{ +sub__printstring(*_SUB_IDESHOWTEXT_LONG_X,*_SUB_IDESHOWTEXT_LONG_Y+ 3 ,qbs_new_txt_len("?",1),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,12997,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 1 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,12998,"ide_methods.bas");}while(r); +}else{ +do{ +sub__printstring(*_SUB_IDESHOWTEXT_LONG_X,*_SUB_IDESHOWTEXT_LONG_Y+ 3 ,func_chr(*_SUB_IDESHOWTEXT_LONG_A),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13000,"ide_methods.bas");}while(r); +} +} +do{ +*_SUB_IDESHOWTEXT_LONG_X2=*_SUB_IDESHOWTEXT_LONG_X2+ 1 ; +if(!qbevent)break;evnt(26070,13005,"ide_methods.bas");}while(r); +fornext_continue_5567:; +} +fornext_exit_5567:; +do{ +qbg_sub_color( 7 , 1 ,NULL,3); +if(!qbevent)break;evnt(26070,13007,"ide_methods.bas");}while(r); +}else{ +S_50338:; +if (((-(*__LONG_IDECX== 1 ))&(-(*_SUB_IDESHOWTEXT_LONG_L==*_SUB_IDESHOWTEXT_LONG_SY2))&(-(*__LONG_IDECY>*_SUB_IDESHOWTEXT_LONG_SY1)))||new_error){ +if(qbevent){evnt(26070,13009,"ide_methods.bas");if(r)goto S_50338;} +do{ +goto LABEL_NOFINALSELECT; +if(!qbevent)break;evnt(26070,13009,"ide_methods.bas");}while(r); +} +do{ +qbg_sub_locate(*_SUB_IDESHOWTEXT_LONG_Y+ 3 , 2 +*__LONG_MAXLINENUMBERLENGTH,NULL,NULL,NULL,3); +if(!qbevent)break;evnt(26070,13010,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 1 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,13011,"ide_methods.bas");}while(r); +S_50343:; +fornext_value5570=*__LONG_IDESX; +fornext_finalvalue5570=*__LONG_IDESX+*__LONG_IDEWX-( 2 +*__LONG_MAXLINENUMBERLENGTH); +fornext_step5570= 1 ; +if (fornext_step5570<0) fornext_step_negative5570=1; else fornext_step_negative5570=0; +if (new_error) goto fornext_error5570; +goto fornext_entrylabel5570; +while(1){ +fornext_value5570=fornext_step5570+(*_SUB_IDESHOWTEXT_LONG_X); +fornext_entrylabel5570: +*_SUB_IDESHOWTEXT_LONG_X=fornext_value5570; +if (fornext_step_negative5570){ +if (fornext_value5570fornext_finalvalue5570) break; +} +fornext_error5570:; +if(qbevent){evnt(26070,13013,"ide_methods.bas");if(r)goto S_50343;} +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,func_mid(_SUB_IDESHOWTEXT_STRING_A2,*_SUB_IDESHOWTEXT_LONG_X, 1 ,0|1)); +if (new_error) goto skip5571; +makefit(tqbs); +qbs_print(tqbs,0); +skip5571: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13014,"ide_methods.bas");}while(r); +fornext_continue_5569:; +} +fornext_exit_5569:; +do{ +qbg_sub_color( 7 , 1 ,NULL,3); +if(!qbevent)break;evnt(26070,13017,"ide_methods.bas");}while(r); +LABEL_NOFINALSELECT:; +if(qbevent){evnt(26070,13018,"ide_methods.bas");r=0;} +} +} +} +do{ +*_SUB_IDESHOWTEXT_LONG_L=*_SUB_IDESHOWTEXT_LONG_L+ 1 ; +if(!qbevent)break;evnt(26070,13023,"ide_methods.bas");}while(r); +fornext_continue_5516:; +} +fornext_exit_5516:; +}else{ +LABEL_NOSYNTAXHIGHLIGHTING:; +if(qbevent){evnt(26070,13026,"ide_methods.bas");r=0;} +do{ +qbg_sub_color( 13 , 1 ,NULL,3); +if(!qbevent)break;evnt(26070,13028,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESHOWTEXT_LONG_L=*__LONG_IDESY; +if(!qbevent)break;evnt(26070,13029,"ide_methods.bas");}while(r); +S_50355:; +fornext_value5573= 0 ; +fornext_finalvalue5573=(*__LONG_IDEWY- 9 ); +fornext_step5573= 1 ; +if (fornext_step5573<0) fornext_step_negative5573=1; else fornext_step_negative5573=0; +if (new_error) goto fornext_error5573; +goto fornext_entrylabel5573; +while(1){ +fornext_value5573=fornext_step5573+(*_SUB_IDESHOWTEXT_LONG_Y); +fornext_entrylabel5573: +*_SUB_IDESHOWTEXT_LONG_Y=fornext_value5573; +if (fornext_step_negative5573){ +if (fornext_value5573fornext_finalvalue5573) break; +} +fornext_error5573:; +if(qbevent){evnt(26070,13030,"ide_methods.bas");if(r)goto S_50355;} +do{ +qbg_sub_color( 7 , 1 ,NULL,3); +if(!qbevent)break;evnt(26070,13031,"ide_methods.bas");}while(r); +do{ +sub__printstring( 1 ,*_SUB_IDESHOWTEXT_LONG_Y+ 3 ,func_chr( 179 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13032,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=160; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SHOWLINENUMBER; +RETURN_160:; +if(!qbevent)break;evnt(26070,13034,"ide_methods.bas");}while(r); +S_50359:; +if (((-(*_SUB_IDESHOWTEXT_LONG_L==*__LONG_IDEFOCUSLINE))&(-(*__LONG_IDECY!=*_SUB_IDESHOWTEXT_LONG_L)))||new_error){ +if(qbevent){evnt(26070,13036,"ide_methods.bas");if(r)goto S_50359;} +do{ +qbg_sub_color( 13 , 4 ,NULL,3); +if(!qbevent)break;evnt(26070,13036,"ide_methods.bas");}while(r); +}else{ +do{ +qbg_sub_color( 13 , 1 ,NULL,3); +if(!qbevent)break;evnt(26070,13036,"ide_methods.bas");}while(r); +} +S_50364:; +if ((-(*_SUB_IDESHOWTEXT_LONG_L<=*__LONG_IDEN))||new_error){ +if(qbevent){evnt(26070,13038,"ide_methods.bas");if(r)goto S_50364;} +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_A,FUNC_IDEGETLINE(_SUB_IDESHOWTEXT_LONG_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13039,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_A2,func_space(*__LONG_IDESX+(*__LONG_IDEWX- 3 )-*__LONG_MAXLINENUMBERLENGTH)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13040,"ide_methods.bas");}while(r); +do{ +sub_mid(_SUB_IDESHOWTEXT_STRING_A2, 1 ,0,_SUB_IDESHOWTEXT_STRING_A,0); +if(!qbevent)break;evnt(26070,13041,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_A2,qbs_right(_SUB_IDESHOWTEXT_STRING_A2,(*__LONG_IDEWX- 2 )-*__LONG_MAXLINENUMBERLENGTH)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13042,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_A2,func_space((*__LONG_IDEWX- 2 )-*__LONG_MAXLINENUMBERLENGTH)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13044,"ide_methods.bas");}while(r); +} +do{ +sub__printstring( 2 +*__LONG_MAXLINENUMBERLENGTH,*_SUB_IDESHOWTEXT_LONG_Y+ 3 ,_SUB_IDESHOWTEXT_STRING_A2,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13046,"ide_methods.bas");}while(r); +S_50373:; +if ((-(*_SUB_IDESHOWTEXT_LONG_L==*__LONG_IDECY))||new_error){ +if(qbevent){evnt(26070,13048,"ide_methods.bas");if(r)goto S_50373;} +S_50374:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_IDECX<=_SUB_IDESHOWTEXT_STRING_A->len))&(-(*__LONG_IDECX>= 1 ))))||new_error){ +if(qbevent){evnt(26070,13049,"ide_methods.bas");if(r)goto S_50374;} +do{ +*_SUB_IDESHOWTEXT_LONG_CC=qbs_asc(_SUB_IDESHOWTEXT_STRING_A,*__LONG_IDECX); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13050,"ide_methods.bas");}while(r); +S_50376:; +if ((-(*_SUB_IDESHOWTEXT_LONG_CC== 32 ))||new_error){ +if(qbevent){evnt(26070,13051,"ide_methods.bas");if(r)goto S_50376;} +S_50377:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ltrim(qbs_left(_SUB_IDESHOWTEXT_STRING_A,*__LONG_IDECX)),qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,13052,"ide_methods.bas");if(r)goto S_50377;} +do{ +*_SUB_IDESHOWTEXT_LONG_CC= -1 ; +if(!qbevent)break;evnt(26070,13052,"ide_methods.bas");}while(r); +} +} +} +} +S_50383:; +if ((*__LONG_IDESELECT)||new_error){ +if(qbevent){evnt(26070,13058,"ide_methods.bas");if(r)goto S_50383;} +S_50384:; +if (((-(*_SUB_IDESHOWTEXT_LONG_L>=*_SUB_IDESHOWTEXT_LONG_SY1))&(-(*_SUB_IDESHOWTEXT_LONG_L<=*_SUB_IDESHOWTEXT_LONG_SY2)))||new_error){ +if(qbevent){evnt(26070,13059,"ide_methods.bas");if(r)goto S_50384;} +S_50385:; +if ((-(*_SUB_IDESHOWTEXT_LONG_SY1==*_SUB_IDESHOWTEXT_LONG_SY2))||new_error){ +if(qbevent){evnt(26070,13060,"ide_methods.bas");if(r)goto S_50385;} +do{ +qbg_sub_color( 1 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,13061,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESHOWTEXT_LONG_X2=*__LONG_IDESX; +if(!qbevent)break;evnt(26070,13062,"ide_methods.bas");}while(r); +S_50388:; +fornext_value5576= 2 +*__LONG_MAXLINENUMBERLENGTH; +fornext_finalvalue5576=(*__LONG_IDEWX- 1 ); +fornext_step5576= 1 ; +if (fornext_step5576<0) fornext_step_negative5576=1; else fornext_step_negative5576=0; +if (new_error) goto fornext_error5576; +goto fornext_entrylabel5576; +while(1){ +fornext_value5576=fornext_step5576+(*_SUB_IDESHOWTEXT_LONG_X); +fornext_entrylabel5576: +*_SUB_IDESHOWTEXT_LONG_X=fornext_value5576; +if (fornext_step_negative5576){ +if (fornext_value5576fornext_finalvalue5576) break; +} +fornext_error5576:; +if(qbevent){evnt(26070,13063,"ide_methods.bas");if(r)goto S_50388;} +S_50389:; +if (((-(*_SUB_IDESHOWTEXT_LONG_X2>=*_SUB_IDESHOWTEXT_LONG_SX1))&(-(*_SUB_IDESHOWTEXT_LONG_X2<*_SUB_IDESHOWTEXT_LONG_SX2)))||new_error){ +if(qbevent){evnt(26070,13064,"ide_methods.bas");if(r)goto S_50389;} +do{ +*_SUB_IDESHOWTEXT_LONG_A=func_screen(*_SUB_IDESHOWTEXT_LONG_Y+ 3 ,*_SUB_IDESHOWTEXT_LONG_X,NULL,0); +if(!qbevent)break;evnt(26070,13065,"ide_methods.bas");}while(r); +do{ +sub__printstring(*_SUB_IDESHOWTEXT_LONG_X,*_SUB_IDESHOWTEXT_LONG_Y+ 3 ,func_chr(*_SUB_IDESHOWTEXT_LONG_A),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13065,"ide_methods.bas");}while(r); +} +do{ +*_SUB_IDESHOWTEXT_LONG_X2=*_SUB_IDESHOWTEXT_LONG_X2+ 1 ; +if(!qbevent)break;evnt(26070,13067,"ide_methods.bas");}while(r); +fornext_continue_5575:; +} +fornext_exit_5575:; +do{ +qbg_sub_color( 7 , 1 ,NULL,3); +if(!qbevent)break;evnt(26070,13069,"ide_methods.bas");}while(r); +}else{ +S_50397:; +if (((-(*__LONG_IDECX== 1 ))&(-(*_SUB_IDESHOWTEXT_LONG_L==*_SUB_IDESHOWTEXT_LONG_SY2))&(-(*__LONG_IDECY>*_SUB_IDESHOWTEXT_LONG_SY1)))||new_error){ +if(qbevent){evnt(26070,13071,"ide_methods.bas");if(r)goto S_50397;} +do{ +goto LABEL_NOFINALSELECT0; +if(!qbevent)break;evnt(26070,13071,"ide_methods.bas");}while(r); +} +do{ +qbg_sub_color( 1 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,13072,"ide_methods.bas");}while(r); +do{ +sub__printstring( 2 +*__LONG_MAXLINENUMBERLENGTH,*_SUB_IDESHOWTEXT_LONG_Y+ 3 ,_SUB_IDESHOWTEXT_STRING_A2,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13072,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 7 , 1 ,NULL,3); +if(!qbevent)break;evnt(26070,13073,"ide_methods.bas");}while(r); +LABEL_NOFINALSELECT0:; +if(qbevent){evnt(26070,13074,"ide_methods.bas");r=0;} +} +} +} +do{ +*_SUB_IDESHOWTEXT_LONG_L=*_SUB_IDESHOWTEXT_LONG_L+ 1 ; +if(!qbevent)break;evnt(26070,13079,"ide_methods.bas");}while(r); +fornext_continue_5572:; +} +fornext_exit_5572:; +} +do{ +qbg_sub_color( 7 , 1 ,NULL,3); +if(!qbevent)break;evnt(26070,13083,"ide_methods.bas");}while(r); +S_50410:; +fornext_value5578= 1 ; +fornext_finalvalue5578=*__LONG_IDEBMKN; +fornext_step5578= 1 ; +if (fornext_step5578<0) fornext_step_negative5578=1; else fornext_step_negative5578=0; +if (new_error) goto fornext_error5578; +goto fornext_entrylabel5578; +while(1){ +fornext_value5578=fornext_step5578+(*_SUB_IDESHOWTEXT_LONG_B); +fornext_entrylabel5578: +*_SUB_IDESHOWTEXT_LONG_B=fornext_value5578; +if (fornext_step_negative5578){ +if (fornext_value5578fornext_finalvalue5578) break; +} +fornext_error5578:; +if(qbevent){evnt(26070,13084,"ide_methods.bas");if(r)goto S_50410;} +do{ +*_SUB_IDESHOWTEXT_LONG_Y=*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_SUB_IDESHOWTEXT_LONG_B)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16)); +if(!qbevent)break;evnt(26070,13085,"ide_methods.bas");}while(r); +S_50412:; +if (((-(*_SUB_IDESHOWTEXT_LONG_Y>=*__LONG_IDESY))&(-(*_SUB_IDESHOWTEXT_LONG_Y<=(*__LONG_IDESY+(*__LONG_IDEWY- 9 )))))||new_error){ +if(qbevent){evnt(26070,13086,"ide_methods.bas");if(r)goto S_50412;} +do{ +sub__printstring( 1 , 3 +*_SUB_IDESHOWTEXT_LONG_Y-*__LONG_IDESY,func_chr( 197 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13087,"ide_methods.bas");}while(r); +} +fornext_continue_5577:; +} +fornext_exit_5577:; +do{ +*_SUB_IDESHOWTEXT_LONG_Q=FUNC_IDEVBAR(__LONG_IDEWX,&(pass5579= 3 ),&(pass5580=(*__LONG_IDEWY- 8 )),__LONG_IDECY,__LONG_IDEN); +if(!qbevent)break;evnt(26070,13091,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESHOWTEXT_LONG_Q=FUNC_IDEHBAR(&(pass5581= 2 ),&(pass5582=(*__LONG_IDEWY- 5 )),&(pass5583=(*__LONG_IDEWX- 2 )),__LONG_IDESX,&(pass5584= 608 )); +if(!qbevent)break;evnt(26070,13092,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 0 , 3 ,NULL,3); +if(!qbevent)break;evnt(26070,13095,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_A,func_space( 10 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13096,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_B,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13097,"ide_methods.bas");}while(r); +do{ +sub_rset(_SUB_IDESHOWTEXT_STRING_A,qbs_ltrim(qbs_str((int32)(*__LONG_IDECY)))); +if(!qbevent)break;evnt(26070,13098,"ide_methods.bas");}while(r); +S_50422:; +if ((-(*__LONG_IDECX< 100000 ))||new_error){ +if(qbevent){evnt(26070,13099,"ide_methods.bas");if(r)goto S_50422;} +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_B,func_space( 10 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13100,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_C,qbs_ltrim(qbs_str((int32)(*__LONG_IDECX)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13101,"ide_methods.bas");}while(r); +S_50425:; +if ((-(*_SUB_IDESHOWTEXT_LONG_CC!= -1 ))||new_error){ +if(qbevent){evnt(26070,13102,"ide_methods.bas");if(r)goto S_50425;} +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_C,qbs_add(qbs_add(qbs_add(_SUB_IDESHOWTEXT_STRING_C,qbs_new_txt_len("(",1)),FUNC_STR2(_SUB_IDESHOWTEXT_LONG_CC)),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13102,"ide_methods.bas");}while(r); +} +do{ +sub_lset(_SUB_IDESHOWTEXT_STRING_B,_SUB_IDESHOWTEXT_STRING_C); +if(!qbevent)break;evnt(26070,13103,"ide_methods.bas");}while(r); +} +do{ +qbs_set(__STRING_LINENUMBERSTATUS,qbs_add(qbs_add(_SUB_IDESHOWTEXT_STRING_A,qbs_new_txt_len(":",1)),_SUB_IDESHOWTEXT_STRING_B)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13105,"ide_methods.bas");}while(r); +do{ +sub__printstring(*__LONG_IDEWX- 20 ,*__LONG_IDEWY+*__LONG_IDESUBWINDOW,__STRING_LINENUMBERSTATUS,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13107,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,13109,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(*__LONG_IDECY-*__LONG_IDESY+ 3 ,*__LONG_MAXLINENUMBERLENGTH+*__LONG_IDECX-*__LONG_IDESX+ 2 ,NULL,NULL,NULL,3); +if(!qbevent)break;evnt(26070,13109,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,13109,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,13111,"ide_methods.bas");}while(r); +LABEL_SHOWLINENUMBER:; +if(qbevent){evnt(26070,13112,"ide_methods.bas");r=0;} +S_50436:; +while((-(*_SUB_IDESHOWTEXT_LONG_L>func_ubound(__ARRAY_BYTE_IDEBREAKPOINTS,1,1)))||new_error){ +if(qbevent){evnt(26070,13113,"ide_methods.bas");if(r)goto S_50436;} +do{ if (__ARRAY_BYTE_IDEBREAKPOINTS[2]&2){ error(10); @@ -169339,15 +169339,15 @@ if (!__ARRAY_BYTE_IDEBREAKPOINTS[0]) error(257); } } __ARRAY_BYTE_IDEBREAKPOINTS[2]|=1; -} -if(!qbevent)break;evnt(26070,13114,"ide_methods.bas");}while(r); -dl_continue_5585:; -} -dl_exit_5585:; -S_50439:; -while((-(*_SUB_IDESHOWTEXT_LONG_L>func_ubound(__ARRAY_BYTE_IDESKIPLINES,1,1)))||new_error){ -if(qbevent){evnt(26070,13117,"ide_methods.bas");if(r)goto S_50439;} -do{ +} +if(!qbevent)break;evnt(26070,13114,"ide_methods.bas");}while(r); +dl_continue_5585:; +} +dl_exit_5585:; +S_50439:; +while((-(*_SUB_IDESHOWTEXT_LONG_L>func_ubound(__ARRAY_BYTE_IDESKIPLINES,1,1)))||new_error){ +if(qbevent){evnt(26070,13117,"ide_methods.bas");if(r)goto S_50439;} +do{ if (__ARRAY_BYTE_IDESKIPLINES[2]&2){ error(10); @@ -169385,211 +169385,211 @@ if (!__ARRAY_BYTE_IDESKIPLINES[0]) error(257); } } __ARRAY_BYTE_IDESKIPLINES[2]|=1; -} -if(!qbevent)break;evnt(26070,13118,"ide_methods.bas");}while(r); -dl_continue_5586:; -} -dl_exit_5586:; -S_50442:; -if ((*__BYTE_SHOWLINENUMBERS)||new_error){ -if(qbevent){evnt(26070,13121,"ide_methods.bas");if(r)goto S_50442;} -S_50443:; -if ((*__BYTE_SHOWLINENUMBERSUSEBG)||new_error){ -if(qbevent){evnt(26070,13122,"ide_methods.bas");if(r)goto S_50443;} -do{ -qbg_sub_color(NULL, 6 ,NULL,2); -if(!qbevent)break;evnt(26070,13122,"ide_methods.bas");}while(r); -} -S_50446:; -if ((((-(*__LONG_SEARCHSTRINGFOUNDON> 0 ))&(-(*__LONG_SEARCHSTRINGFOUNDON==*_SUB_IDESHOWTEXT_LONG_L)))|((-(*_SUB_IDESHOWTEXT_LONG_L==*__LONG_DEBUGNEXTLINE))&(-(*__LONG_VWATCHON== 1 ))))||new_error){ -if(qbevent){evnt(26070,13123,"ide_methods.bas");if(r)goto S_50446;} -do{ -qbg_sub_color( 13 , 5 ,NULL,3); -if(!qbevent)break;evnt(26070,13124,"ide_methods.bas");}while(r); -S_50448:; -if (((-(*__LONG_SEARCHSTRINGFOUNDON> 0 ))&(-(*__LONG_SEARCHSTRINGFOUNDON==*_SUB_IDESHOWTEXT_LONG_L)))||new_error){ -if(qbevent){evnt(26070,13125,"ide_methods.bas");if(r)goto S_50448;} -do{ -*__LONG_SEARCHSTRINGFOUNDON= 0 ; -if(!qbevent)break;evnt(26070,13125,"ide_methods.bas");}while(r); -} -} -S_50452:; -if (((-(*__LONG_VWATCHON== 1 ))&(-(((int8*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]))[array_check((*_SUB_IDESHOWTEXT_LONG_L)-__ARRAY_BYTE_IDEBREAKPOINTS[4],__ARRAY_BYTE_IDEBREAKPOINTS[5])]!= 0 )))||new_error){ -if(qbevent){evnt(26070,13127,"ide_methods.bas");if(r)goto S_50452;} -do{ -qbg_sub_color(NULL, 4 ,NULL,2); -if(!qbevent)break;evnt(26070,13127,"ide_methods.bas");}while(r); -} -S_50455:; -if (((-(*__LONG_VWATCHON== 1 ))&(-(((int8*)(__ARRAY_BYTE_IDESKIPLINES[0]))[array_check((*_SUB_IDESHOWTEXT_LONG_L)-__ARRAY_BYTE_IDESKIPLINES[4],__ARRAY_BYTE_IDESKIPLINES[5])]!= 0 )))||new_error){ -if(qbevent){evnt(26070,13128,"ide_methods.bas");if(r)goto S_50455;} -do{ -qbg_sub_color( 14 ,NULL,NULL,1); -if(!qbevent)break;evnt(26070,13128,"ide_methods.bas");}while(r); -} -do{ -sub__printstring( 2 ,*_SUB_IDESHOWTEXT_LONG_Y+ 3 ,func_space(*__LONG_MAXLINENUMBERLENGTH),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13129,"ide_methods.bas");}while(r); -S_50459:; -if ((-(*_SUB_IDESHOWTEXT_LONG_L<=*__LONG_IDEN))||new_error){ -if(qbevent){evnt(26070,13130,"ide_methods.bas");if(r)goto S_50459;} -do{ -qbs_set(_SUB_IDESHOWTEXT_STRING_L2,qbs_str((int32)(*_SUB_IDESHOWTEXT_LONG_L))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13131,"ide_methods.bas");}while(r); -S_50461:; -if ((qbs_cleanup(qbs_tmp_base,-(( 2 +*__LONG_MAXLINENUMBERLENGTH-(_SUB_IDESHOWTEXT_STRING_L2->len+ 1 ))>=( 2 ))))||new_error){ -if(qbevent){evnt(26070,13132,"ide_methods.bas");if(r)goto S_50461;} -do{ -sub__printstring( 2 +*__LONG_MAXLINENUMBERLENGTH-(_SUB_IDESHOWTEXT_STRING_L2->len+ 1 ),*_SUB_IDESHOWTEXT_LONG_Y+ 3 ,_SUB_IDESHOWTEXT_STRING_L2,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13133,"ide_methods.bas");}while(r); -S_50463:; -if ((*__LONG_VWATCHON)||new_error){ -if(qbevent){evnt(26070,13134,"ide_methods.bas");if(r)goto S_50463;} -S_50464:; -if ((-(((int8*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]))[array_check((*_SUB_IDESHOWTEXT_LONG_L)-__ARRAY_BYTE_IDEBREAKPOINTS[4],__ARRAY_BYTE_IDEBREAKPOINTS[5])]!= 0 ))||new_error){ -if(qbevent){evnt(26070,13135,"ide_methods.bas");if(r)goto S_50464;} -do{ -sub__printstring( 2 ,*_SUB_IDESHOWTEXT_LONG_Y+ 3 ,func_chr( 7 ),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13136,"ide_methods.bas");}while(r); -S_50466:; -}else{ -if (-(((int8*)(__ARRAY_BYTE_IDESKIPLINES[0]))[array_check((*_SUB_IDESHOWTEXT_LONG_L)-__ARRAY_BYTE_IDESKIPLINES[4],__ARRAY_BYTE_IDESKIPLINES[5])]!= 0 )){ -if(qbevent){evnt(26070,13137,"ide_methods.bas");if(r)goto S_50466;} -do{ -sub__printstring( 2 ,*_SUB_IDESHOWTEXT_LONG_Y+ 3 ,qbs_new_txt_len("!",1),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13138,"ide_methods.bas");}while(r); -} -} -} -} -} -S_50472:; -if ((*__BYTE_SHOWLINENUMBERSSEPARATOR)||new_error){ -if(qbevent){evnt(26070,13143,"ide_methods.bas");if(r)goto S_50472;} -S_50473:; -if ((-(*_SUB_IDESHOWTEXT_LONG_L==*__LONG_DEBUGNEXTLINE))||new_error){ -if(qbevent){evnt(26070,13144,"ide_methods.bas");if(r)goto S_50473;} -do{ -qbg_sub_color( 10 ,NULL,NULL,1); -if(!qbevent)break;evnt(26070,13145,"ide_methods.bas");}while(r); -do{ -sub__printstring( 1 +*__LONG_MAXLINENUMBERLENGTH,*_SUB_IDESHOWTEXT_LONG_Y+ 3 ,func_chr( 16 ),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13146,"ide_methods.bas");}while(r); -}else{ -do{ -sub__printstring( 1 +*__LONG_MAXLINENUMBERLENGTH,*_SUB_IDESHOWTEXT_LONG_Y+ 3 ,func_chr( 179 ),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13148,"ide_methods.bas");}while(r); -} -}else{ -S_50480:; -if ((-(*_SUB_IDESHOWTEXT_LONG_L==*__LONG_DEBUGNEXTLINE))||new_error){ -if(qbevent){evnt(26070,13151,"ide_methods.bas");if(r)goto S_50480;} -do{ -qbg_sub_color( 10 ,NULL,NULL,1); -if(!qbevent)break;evnt(26070,13152,"ide_methods.bas");}while(r); -do{ -sub__printstring( 1 +*__LONG_MAXLINENUMBERLENGTH,*_SUB_IDESHOWTEXT_LONG_Y+ 3 ,func_chr( 16 ),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13153,"ide_methods.bas");}while(r); -} -} -do{ -qbg_sub_color(NULL, 1 ,NULL,2); -if(!qbevent)break;evnt(26070,13156,"ide_methods.bas");}while(r); -}else{ -S_50487:; -if (((-(*__LONG_VWATCHON== 1 ))&(((-(((int8*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]))[array_check((*_SUB_IDESHOWTEXT_LONG_L)-__ARRAY_BYTE_IDEBREAKPOINTS[4],__ARRAY_BYTE_IDEBREAKPOINTS[5])]!= 0 ))|(-(((int8*)(__ARRAY_BYTE_IDESKIPLINES[0]))[array_check((*_SUB_IDESHOWTEXT_LONG_L)-__ARRAY_BYTE_IDESKIPLINES[4],__ARRAY_BYTE_IDESKIPLINES[5])]!= 0 )))))||new_error){ -if(qbevent){evnt(26070,13158,"ide_methods.bas");if(r)goto S_50487;} -do{ -qbg_sub_color( 7 , 4 ,NULL,3); -if(!qbevent)break;evnt(26070,13159,"ide_methods.bas");}while(r); -S_50489:; -if ((-(*_SUB_IDESHOWTEXT_LONG_L==*__LONG_DEBUGNEXTLINE))||new_error){ -if(qbevent){evnt(26070,13160,"ide_methods.bas");if(r)goto S_50489;} -do{ -qbg_sub_color( 10 ,NULL,NULL,1); -if(!qbevent)break;evnt(26070,13161,"ide_methods.bas");}while(r); -do{ -sub__printstring( 1 ,*_SUB_IDESHOWTEXT_LONG_Y+ 3 ,func_chr( 16 ),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13162,"ide_methods.bas");}while(r); -S_50492:; -}else{ -if (-(((int8*)(__ARRAY_BYTE_IDESKIPLINES[0]))[array_check((*_SUB_IDESHOWTEXT_LONG_L)-__ARRAY_BYTE_IDESKIPLINES[4],__ARRAY_BYTE_IDESKIPLINES[5])]!= 0 )){ -if(qbevent){evnt(26070,13163,"ide_methods.bas");if(r)goto S_50492;} -do{ -qbg_sub_color( 14 , 1 ,NULL,3); -if(!qbevent)break;evnt(26070,13164,"ide_methods.bas");}while(r); -do{ -sub__printstring( 1 ,*_SUB_IDESHOWTEXT_LONG_Y+ 3 ,qbs_new_txt_len("!",1),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13165,"ide_methods.bas");}while(r); -}else{ -do{ -sub__printstring( 1 ,*_SUB_IDESHOWTEXT_LONG_Y+ 3 ,func_chr( 7 ),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13167,"ide_methods.bas");}while(r); -} -} -S_50498:; -}else{ -if ((-(*__LONG_VWATCHON== 1 ))&(-(*_SUB_IDESHOWTEXT_LONG_L==*__LONG_DEBUGNEXTLINE))){ -if(qbevent){evnt(26070,13169,"ide_methods.bas");if(r)goto S_50498;} -do{ -qbg_sub_color( 10 ,NULL,NULL,1); -if(!qbevent)break;evnt(26070,13170,"ide_methods.bas");}while(r); -do{ -sub__printstring( 1 ,*_SUB_IDESHOWTEXT_LONG_Y+ 3 ,func_chr( 16 ),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13171,"ide_methods.bas");}while(r); -} -} -} -do{ -#include "ret215.txt" -if(!qbevent)break;evnt(26070,13174,"ide_methods.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free215.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -qbs* FUNC_IDESUBS(){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data216.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -sub_pcopy( 0 , 2 ); -if(!qbevent)break;evnt(26070,13181,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 0 , 1 ); -if(!qbevent)break;evnt(26070,13182,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,13183,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDESUBS_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(26070,13184,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(26070,13185,"ide_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26070,13118,"ide_methods.bas");}while(r); +dl_continue_5586:; +} +dl_exit_5586:; +S_50442:; +if ((*__BYTE_SHOWLINENUMBERS)||new_error){ +if(qbevent){evnt(26070,13121,"ide_methods.bas");if(r)goto S_50442;} +S_50443:; +if ((*__BYTE_SHOWLINENUMBERSUSEBG)||new_error){ +if(qbevent){evnt(26070,13122,"ide_methods.bas");if(r)goto S_50443;} +do{ +qbg_sub_color(NULL, 6 ,NULL,2); +if(!qbevent)break;evnt(26070,13122,"ide_methods.bas");}while(r); +} +S_50446:; +if ((((-(*__LONG_SEARCHSTRINGFOUNDON> 0 ))&(-(*__LONG_SEARCHSTRINGFOUNDON==*_SUB_IDESHOWTEXT_LONG_L)))|((-(*_SUB_IDESHOWTEXT_LONG_L==*__LONG_DEBUGNEXTLINE))&(-(*__LONG_VWATCHON== 1 ))))||new_error){ +if(qbevent){evnt(26070,13123,"ide_methods.bas");if(r)goto S_50446;} +do{ +qbg_sub_color( 13 , 5 ,NULL,3); +if(!qbevent)break;evnt(26070,13124,"ide_methods.bas");}while(r); +S_50448:; +if (((-(*__LONG_SEARCHSTRINGFOUNDON> 0 ))&(-(*__LONG_SEARCHSTRINGFOUNDON==*_SUB_IDESHOWTEXT_LONG_L)))||new_error){ +if(qbevent){evnt(26070,13125,"ide_methods.bas");if(r)goto S_50448;} +do{ +*__LONG_SEARCHSTRINGFOUNDON= 0 ; +if(!qbevent)break;evnt(26070,13125,"ide_methods.bas");}while(r); +} +} +S_50452:; +if (((-(*__LONG_VWATCHON== 1 ))&(-(((int8*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]))[array_check((*_SUB_IDESHOWTEXT_LONG_L)-__ARRAY_BYTE_IDEBREAKPOINTS[4],__ARRAY_BYTE_IDEBREAKPOINTS[5])]!= 0 )))||new_error){ +if(qbevent){evnt(26070,13127,"ide_methods.bas");if(r)goto S_50452;} +do{ +qbg_sub_color(NULL, 4 ,NULL,2); +if(!qbevent)break;evnt(26070,13127,"ide_methods.bas");}while(r); +} +S_50455:; +if (((-(*__LONG_VWATCHON== 1 ))&(-(((int8*)(__ARRAY_BYTE_IDESKIPLINES[0]))[array_check((*_SUB_IDESHOWTEXT_LONG_L)-__ARRAY_BYTE_IDESKIPLINES[4],__ARRAY_BYTE_IDESKIPLINES[5])]!= 0 )))||new_error){ +if(qbevent){evnt(26070,13128,"ide_methods.bas");if(r)goto S_50455;} +do{ +qbg_sub_color( 14 ,NULL,NULL,1); +if(!qbevent)break;evnt(26070,13128,"ide_methods.bas");}while(r); +} +do{ +sub__printstring( 2 ,*_SUB_IDESHOWTEXT_LONG_Y+ 3 ,func_space(*__LONG_MAXLINENUMBERLENGTH),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13129,"ide_methods.bas");}while(r); +S_50459:; +if ((-(*_SUB_IDESHOWTEXT_LONG_L<=*__LONG_IDEN))||new_error){ +if(qbevent){evnt(26070,13130,"ide_methods.bas");if(r)goto S_50459;} +do{ +qbs_set(_SUB_IDESHOWTEXT_STRING_L2,qbs_str((int32)(*_SUB_IDESHOWTEXT_LONG_L))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13131,"ide_methods.bas");}while(r); +S_50461:; +if ((qbs_cleanup(qbs_tmp_base,-(( 2 +*__LONG_MAXLINENUMBERLENGTH-(_SUB_IDESHOWTEXT_STRING_L2->len+ 1 ))>=( 2 ))))||new_error){ +if(qbevent){evnt(26070,13132,"ide_methods.bas");if(r)goto S_50461;} +do{ +sub__printstring( 2 +*__LONG_MAXLINENUMBERLENGTH-(_SUB_IDESHOWTEXT_STRING_L2->len+ 1 ),*_SUB_IDESHOWTEXT_LONG_Y+ 3 ,_SUB_IDESHOWTEXT_STRING_L2,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13133,"ide_methods.bas");}while(r); +S_50463:; +if ((*__LONG_VWATCHON)||new_error){ +if(qbevent){evnt(26070,13134,"ide_methods.bas");if(r)goto S_50463;} +S_50464:; +if ((-(((int8*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]))[array_check((*_SUB_IDESHOWTEXT_LONG_L)-__ARRAY_BYTE_IDEBREAKPOINTS[4],__ARRAY_BYTE_IDEBREAKPOINTS[5])]!= 0 ))||new_error){ +if(qbevent){evnt(26070,13135,"ide_methods.bas");if(r)goto S_50464;} +do{ +sub__printstring( 2 ,*_SUB_IDESHOWTEXT_LONG_Y+ 3 ,func_chr( 7 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13136,"ide_methods.bas");}while(r); +S_50466:; +}else{ +if (-(((int8*)(__ARRAY_BYTE_IDESKIPLINES[0]))[array_check((*_SUB_IDESHOWTEXT_LONG_L)-__ARRAY_BYTE_IDESKIPLINES[4],__ARRAY_BYTE_IDESKIPLINES[5])]!= 0 )){ +if(qbevent){evnt(26070,13137,"ide_methods.bas");if(r)goto S_50466;} +do{ +sub__printstring( 2 ,*_SUB_IDESHOWTEXT_LONG_Y+ 3 ,qbs_new_txt_len("!",1),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13138,"ide_methods.bas");}while(r); +} +} +} +} +} +S_50472:; +if ((*__BYTE_SHOWLINENUMBERSSEPARATOR)||new_error){ +if(qbevent){evnt(26070,13143,"ide_methods.bas");if(r)goto S_50472;} +S_50473:; +if ((-(*_SUB_IDESHOWTEXT_LONG_L==*__LONG_DEBUGNEXTLINE))||new_error){ +if(qbevent){evnt(26070,13144,"ide_methods.bas");if(r)goto S_50473;} +do{ +qbg_sub_color( 10 ,NULL,NULL,1); +if(!qbevent)break;evnt(26070,13145,"ide_methods.bas");}while(r); +do{ +sub__printstring( 1 +*__LONG_MAXLINENUMBERLENGTH,*_SUB_IDESHOWTEXT_LONG_Y+ 3 ,func_chr( 16 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13146,"ide_methods.bas");}while(r); +}else{ +do{ +sub__printstring( 1 +*__LONG_MAXLINENUMBERLENGTH,*_SUB_IDESHOWTEXT_LONG_Y+ 3 ,func_chr( 179 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13148,"ide_methods.bas");}while(r); +} +}else{ +S_50480:; +if ((-(*_SUB_IDESHOWTEXT_LONG_L==*__LONG_DEBUGNEXTLINE))||new_error){ +if(qbevent){evnt(26070,13151,"ide_methods.bas");if(r)goto S_50480;} +do{ +qbg_sub_color( 10 ,NULL,NULL,1); +if(!qbevent)break;evnt(26070,13152,"ide_methods.bas");}while(r); +do{ +sub__printstring( 1 +*__LONG_MAXLINENUMBERLENGTH,*_SUB_IDESHOWTEXT_LONG_Y+ 3 ,func_chr( 16 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13153,"ide_methods.bas");}while(r); +} +} +do{ +qbg_sub_color(NULL, 1 ,NULL,2); +if(!qbevent)break;evnt(26070,13156,"ide_methods.bas");}while(r); +}else{ +S_50487:; +if (((-(*__LONG_VWATCHON== 1 ))&(((-(((int8*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]))[array_check((*_SUB_IDESHOWTEXT_LONG_L)-__ARRAY_BYTE_IDEBREAKPOINTS[4],__ARRAY_BYTE_IDEBREAKPOINTS[5])]!= 0 ))|(-(((int8*)(__ARRAY_BYTE_IDESKIPLINES[0]))[array_check((*_SUB_IDESHOWTEXT_LONG_L)-__ARRAY_BYTE_IDESKIPLINES[4],__ARRAY_BYTE_IDESKIPLINES[5])]!= 0 )))))||new_error){ +if(qbevent){evnt(26070,13158,"ide_methods.bas");if(r)goto S_50487;} +do{ +qbg_sub_color( 7 , 4 ,NULL,3); +if(!qbevent)break;evnt(26070,13159,"ide_methods.bas");}while(r); +S_50489:; +if ((-(*_SUB_IDESHOWTEXT_LONG_L==*__LONG_DEBUGNEXTLINE))||new_error){ +if(qbevent){evnt(26070,13160,"ide_methods.bas");if(r)goto S_50489;} +do{ +qbg_sub_color( 10 ,NULL,NULL,1); +if(!qbevent)break;evnt(26070,13161,"ide_methods.bas");}while(r); +do{ +sub__printstring( 1 ,*_SUB_IDESHOWTEXT_LONG_Y+ 3 ,func_chr( 16 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13162,"ide_methods.bas");}while(r); +S_50492:; +}else{ +if (-(((int8*)(__ARRAY_BYTE_IDESKIPLINES[0]))[array_check((*_SUB_IDESHOWTEXT_LONG_L)-__ARRAY_BYTE_IDESKIPLINES[4],__ARRAY_BYTE_IDESKIPLINES[5])]!= 0 )){ +if(qbevent){evnt(26070,13163,"ide_methods.bas");if(r)goto S_50492;} +do{ +qbg_sub_color( 14 , 1 ,NULL,3); +if(!qbevent)break;evnt(26070,13164,"ide_methods.bas");}while(r); +do{ +sub__printstring( 1 ,*_SUB_IDESHOWTEXT_LONG_Y+ 3 ,qbs_new_txt_len("!",1),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13165,"ide_methods.bas");}while(r); +}else{ +do{ +sub__printstring( 1 ,*_SUB_IDESHOWTEXT_LONG_Y+ 3 ,func_chr( 7 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13167,"ide_methods.bas");}while(r); +} +} +S_50498:; +}else{ +if ((-(*__LONG_VWATCHON== 1 ))&(-(*_SUB_IDESHOWTEXT_LONG_L==*__LONG_DEBUGNEXTLINE))){ +if(qbevent){evnt(26070,13169,"ide_methods.bas");if(r)goto S_50498;} +do{ +qbg_sub_color( 10 ,NULL,NULL,1); +if(!qbevent)break;evnt(26070,13170,"ide_methods.bas");}while(r); +do{ +sub__printstring( 1 ,*_SUB_IDESHOWTEXT_LONG_Y+ 3 ,func_chr( 16 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13171,"ide_methods.bas");}while(r); +} +} +} +do{ +#include "ret215.txt" +if(!qbevent)break;evnt(26070,13174,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free215.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +qbs* FUNC_IDESUBS(){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data216.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +sub_pcopy( 0 , 2 ); +if(!qbevent)break;evnt(26070,13181,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 0 , 1 ); +if(!qbevent)break;evnt(26070,13182,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,13183,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDESUBS_LONG_FOCUS= 1 ; +if(!qbevent)break;evnt(26070,13184,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26070,13185,"ide_methods.bas");}while(r); +do{ if (_FUNC_IDESUBS_ARRAY_UDT_O[2]&2){ error(10); @@ -169609,109 +169609,109 @@ if (!_FUNC_IDESUBS_ARRAY_UDT_O[0]) error(257); } _FUNC_IDESUBS_ARRAY_UDT_O[2]|=1; } -} -if(!qbevent)break;evnt(26070,13186,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(26070,13187,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDESUBS_STRING1_SEP,func_chr( 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13188,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDESUBS_STRING_A2,qbs_ucase(FUNC_GETWORDATCURSOR())); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13192,"ide_methods.bas");}while(r); -S_50513:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDESUBS_STRING_A2->len> 1 )))||new_error){ -if(qbevent){evnt(26070,13193,"ide_methods.bas");if(r)goto S_50513;} -S_50514:; -while((!(qbs_cleanup(qbs_tmp_base,((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(qbs_right(_FUNC_IDESUBS_STRING_A2, 1 )))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])])))||new_error){ -if(qbevent){evnt(26070,13194,"ide_methods.bas");if(r)goto S_50514;} -do{ -qbs_set(_FUNC_IDESUBS_STRING_A2,qbs_left(_FUNC_IDESUBS_STRING_A2,_FUNC_IDESUBS_STRING_A2->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13195,"ide_methods.bas");}while(r); -S_50516:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDESUBS_STRING_A2->len== 0 )))||new_error){ -if(qbevent){evnt(26070,13196,"ide_methods.bas");if(r)goto S_50516;} -do{ -goto dl_exit_5590; -if(!qbevent)break;evnt(26070,13196,"ide_methods.bas");}while(r); -} -dl_continue_5590:; -} -dl_exit_5590:; -} -do{ -qbs_set(_FUNC_IDESUBS_STRING_L,__STRING_IDEPROGNAME); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13202,"ide_methods.bas");}while(r); -S_50522:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDESUBS_STRING_L,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,13203,"ide_methods.bas");if(r)goto S_50522;} -do{ -qbs_set(_FUNC_IDESUBS_STRING_L,qbs_add(qbs_new_txt_len("Untitled",8),__STRING_TEMPFOLDERINDEXSTR)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13203,"ide_methods.bas");}while(r); -} -S_50525:; -if ((-(*__LONG_IDEWX< 100 ))||new_error){ -if(qbevent){evnt(26070,13205,"ide_methods.bas");if(r)goto S_50525;} -do{ -*_FUNC_IDESUBS_LONG_MODULENAMELENLIMIT= 20 ; -if(!qbevent)break;evnt(26070,13206,"ide_methods.bas");}while(r); -}else{ -do{ -*_FUNC_IDESUBS_LONG_MODULENAMELENLIMIT= 42 ; -if(!qbevent)break;evnt(26070,13208,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN=_FUNC_IDESUBS_STRING_L->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13211,"ide_methods.bas");}while(r); -S_50531:; -if ((-(*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN>(*_FUNC_IDESUBS_LONG_MODULENAMELENLIMIT+ 2 )))||new_error){ -if(qbevent){evnt(26070,13212,"ide_methods.bas");if(r)goto S_50531;} -do{ -qbs_set(_FUNC_IDESUBS_STRING_L,qbs_add(qbs_left(_FUNC_IDESUBS_STRING_L,*_FUNC_IDESUBS_LONG_MODULENAMELENLIMIT- 1 ),func_string( 3 , 250 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13213,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN=*_FUNC_IDESUBS_LONG_MODULENAMELENLIMIT; -if(!qbevent)break;evnt(26070,13214,"ide_methods.bas");}while(r); -S_50534:; -}else{ -if (-(*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN< 10 )){ -if(qbevent){evnt(26070,13215,"ide_methods.bas");if(r)goto S_50534;} -do{ -*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN= 10 ; -if(!qbevent)break;evnt(26070,13216,"ide_methods.bas");}while(r); -} -} -do{ -qbs_set(_FUNC_IDESUBS_STRING_LY,l2string( 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13219,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDESUBS_STRING_LYSORTED,_FUNC_IDESUBS_STRING_LY); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13220,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDESUBS_LONG_CURRENTLYVIEWINGWHICHSUBFUNC= 1 ; -if(!qbevent)break;evnt(26070,13221,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDESUBS_LONG_PREFERCURRENTCURSORSUBFUNC= 0 ; -if(!qbevent)break;evnt(26070,13222,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDESUBS_LONG_INSIDEDECLARE= 0 ; -if(!qbevent)break;evnt(26070,13223,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDESUBS_LONG_FOUNDEXTERNALSUBFUNC= 0 ; -if(!qbevent)break;evnt(26070,13224,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDESUBS_LONG_MAXLINECOUNT= 0 ; -if(!qbevent)break;evnt(26070,13225,"ide_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26070,13186,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26070,13187,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDESUBS_STRING1_SEP,func_chr( 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13188,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDESUBS_STRING_A2,qbs_ucase(FUNC_GETWORDATCURSOR())); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13192,"ide_methods.bas");}while(r); +S_50513:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDESUBS_STRING_A2->len> 1 )))||new_error){ +if(qbevent){evnt(26070,13193,"ide_methods.bas");if(r)goto S_50513;} +S_50514:; +while((!(qbs_cleanup(qbs_tmp_base,((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(qbs_right(_FUNC_IDESUBS_STRING_A2, 1 )))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])])))||new_error){ +if(qbevent){evnt(26070,13194,"ide_methods.bas");if(r)goto S_50514;} +do{ +qbs_set(_FUNC_IDESUBS_STRING_A2,qbs_left(_FUNC_IDESUBS_STRING_A2,_FUNC_IDESUBS_STRING_A2->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13195,"ide_methods.bas");}while(r); +S_50516:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDESUBS_STRING_A2->len== 0 )))||new_error){ +if(qbevent){evnt(26070,13196,"ide_methods.bas");if(r)goto S_50516;} +do{ +goto dl_exit_5590; +if(!qbevent)break;evnt(26070,13196,"ide_methods.bas");}while(r); +} +dl_continue_5590:; +} +dl_exit_5590:; +} +do{ +qbs_set(_FUNC_IDESUBS_STRING_L,__STRING_IDEPROGNAME); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13202,"ide_methods.bas");}while(r); +S_50522:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDESUBS_STRING_L,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,13203,"ide_methods.bas");if(r)goto S_50522;} +do{ +qbs_set(_FUNC_IDESUBS_STRING_L,qbs_add(qbs_new_txt_len("Untitled",8),__STRING_TEMPFOLDERINDEXSTR)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13203,"ide_methods.bas");}while(r); +} +S_50525:; +if ((-(*__LONG_IDEWX< 100 ))||new_error){ +if(qbevent){evnt(26070,13205,"ide_methods.bas");if(r)goto S_50525;} +do{ +*_FUNC_IDESUBS_LONG_MODULENAMELENLIMIT= 20 ; +if(!qbevent)break;evnt(26070,13206,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_IDESUBS_LONG_MODULENAMELENLIMIT= 42 ; +if(!qbevent)break;evnt(26070,13208,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN=_FUNC_IDESUBS_STRING_L->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13211,"ide_methods.bas");}while(r); +S_50531:; +if ((-(*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN>(*_FUNC_IDESUBS_LONG_MODULENAMELENLIMIT+ 2 )))||new_error){ +if(qbevent){evnt(26070,13212,"ide_methods.bas");if(r)goto S_50531;} +do{ +qbs_set(_FUNC_IDESUBS_STRING_L,qbs_add(qbs_left(_FUNC_IDESUBS_STRING_L,*_FUNC_IDESUBS_LONG_MODULENAMELENLIMIT- 1 ),func_string( 3 , 250 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13213,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN=*_FUNC_IDESUBS_LONG_MODULENAMELENLIMIT; +if(!qbevent)break;evnt(26070,13214,"ide_methods.bas");}while(r); +S_50534:; +}else{ +if (-(*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN< 10 )){ +if(qbevent){evnt(26070,13215,"ide_methods.bas");if(r)goto S_50534;} +do{ +*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN= 10 ; +if(!qbevent)break;evnt(26070,13216,"ide_methods.bas");}while(r); +} +} +do{ +qbs_set(_FUNC_IDESUBS_STRING_LY,l2string( 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13219,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDESUBS_STRING_LYSORTED,_FUNC_IDESUBS_STRING_LY); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13220,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDESUBS_LONG_CURRENTLYVIEWINGWHICHSUBFUNC= 1 ; +if(!qbevent)break;evnt(26070,13221,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDESUBS_LONG_PREFERCURRENTCURSORSUBFUNC= 0 ; +if(!qbevent)break;evnt(26070,13222,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDESUBS_LONG_INSIDEDECLARE= 0 ; +if(!qbevent)break;evnt(26070,13223,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDESUBS_LONG_FOUNDEXTERNALSUBFUNC= 0 ; +if(!qbevent)break;evnt(26070,13224,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDESUBS_LONG_MAXLINECOUNT= 0 ; +if(!qbevent)break;evnt(26070,13225,"ide_methods.bas");}while(r); +do{ if (_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[2]&2){ error(10); @@ -169735,9 +169735,9 @@ _FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]=(ptrszint)calloc(_FUNC_IDESUBS_A if (!_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]) error(257); } _FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[2]|=1; -} -if(!qbevent)break;evnt(26070,13227,"ide_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26070,13227,"ide_methods.bas");}while(r); +do{ if (_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[2]&2){ error(10); @@ -169761,9 +169761,9 @@ _FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0]=(ptrszint)calloc(_FUNC_IDESUBS_ if (!_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0]) error(257); } _FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[2]|=1; -} -if(!qbevent)break;evnt(26070,13228,"ide_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26070,13228,"ide_methods.bas");}while(r); +do{ if (_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[2]&2){ error(10); @@ -169787,9 +169787,9 @@ _FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0]=(ptrszint)calloc(_FUNC_IDESUBS_ARRAY_LONG if (!_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0]) error(257); } _FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[2]|=1; -} -if(!qbevent)break;evnt(26070,13229,"ide_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26070,13229,"ide_methods.bas");}while(r); +do{ if (_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[2]&2){ error(10); @@ -169812,9 +169812,9 @@ while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0]))[tmp_long]= }else{ while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0]))[tmp_long]=(uint64)qbs_new(0,0); } -} -if(!qbevent)break;evnt(26070,13230,"ide_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26070,13230,"ide_methods.bas");}while(r); +do{ if (_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[2]&2){ error(10); @@ -169838,9 +169838,9 @@ _FUNC_IDESUBS_ARRAY_LONG_SUBLINES[0]=(ptrszint)calloc(_FUNC_IDESUBS_ARRAY_LONG_S if (!_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[0]) error(257); } _FUNC_IDESUBS_ARRAY_LONG_SUBLINES[2]|=1; -} -if(!qbevent)break;evnt(26070,13231,"ide_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26070,13231,"ide_methods.bas");}while(r); +do{ if (_FUNC_IDESUBS_ARRAY_STRING_ARGS[2]&2){ error(10); @@ -169863,9 +169863,9 @@ while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_ARGS[0]))[tmp_long]=(uin }else{ while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_ARGS[0]))[tmp_long]=(uint64)qbs_new(0,0); } -} -if(!qbevent)break;evnt(26070,13232,"ide_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26070,13232,"ide_methods.bas");}while(r); +do{ if (_FUNC_IDESUBS_ARRAY_STRING_SF[2]&2){ error(10); @@ -169888,113 +169888,113 @@ while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_SF[0]))[tmp_long]=(uint6 }else{ while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_SF[0]))[tmp_long]=(uint64)qbs_new(0,0); } -} -if(!qbevent)break;evnt(26070,13233,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDESUBS_LONG_TOTALSUBS= 0 ; -if(!qbevent)break;evnt(26070,13235,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDESUBS_LONG_MODULESIZE= 0 ; -if(!qbevent)break;evnt(26070,13236,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDESUBS_LONG_SORTEDSUBSFLAG=*__BYTE_IDESORTSUBS; -if(!qbevent)break;evnt(26070,13237,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDESUBS_LONG_SUBCLOSED= 0 ; -if(!qbevent)break;evnt(26070,13238,"ide_methods.bas");}while(r); -S_50555:; -fornext_value5595= 1 ; -fornext_finalvalue5595=*__LONG_IDEN; -fornext_step5595= 1 ; -if (fornext_step5595<0) fornext_step_negative5595=1; else fornext_step_negative5595=0; -if (new_error) goto fornext_error5595; -goto fornext_entrylabel5595; -while(1){ -fornext_value5595=fornext_step5595+(*_FUNC_IDESUBS_LONG_Y); -fornext_entrylabel5595: -*_FUNC_IDESUBS_LONG_Y=fornext_value5595; -if (fornext_step_negative5595){ -if (fornext_value5595fornext_finalvalue5595) break; -} -fornext_error5595:; -if(qbevent){evnt(26070,13240,"ide_methods.bas");if(r)goto S_50555;} -do{ -qbs_set(_FUNC_IDESUBS_STRING_A,FUNC_IDEGETLINE(_FUNC_IDESUBS_LONG_Y)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13241,"ide_methods.bas");}while(r); -S_50557:; -if ((-(*_FUNC_IDESUBS_LONG_SUBCLOSED== 0 ))||new_error){ -if(qbevent){evnt(26070,13242,"ide_methods.bas");if(r)goto S_50557;} -do{ -*_FUNC_IDESUBS_LONG_MODULESIZE=*_FUNC_IDESUBS_LONG_MODULESIZE+ 1 ; -if(!qbevent)break;evnt(26070,13242,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDESUBS_STRING_A,qbs_ltrim(qbs_rtrim(_FUNC_IDESUBS_STRING_A))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13243,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDESUBS_LONG_SF= 0 ; -if(!qbevent)break;evnt(26070,13244,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDESUBS_STRING_NCA,qbs_ucase(_FUNC_IDESUBS_STRING_A)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13245,"ide_methods.bas");}while(r); -S_50563:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(_FUNC_IDESUBS_STRING_NCA, 8 ),qbs_new_txt_len("DECLARE ",8)))&(-(func_instr(NULL,_FUNC_IDESUBS_STRING_NCA,qbs_new_txt_len(" LIBRARY",8),0)> 0 ))))||new_error){ -if(qbevent){evnt(26070,13246,"ide_methods.bas");if(r)goto S_50563;} -do{ -*_FUNC_IDESUBS_LONG_INSIDEDECLARE= -1 ; -if(!qbevent)break;evnt(26070,13246,"ide_methods.bas");}while(r); -} -S_50566:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_IDESUBS_STRING_NCA, 11 ),qbs_new_txt_len("END DECLARE",11))))||new_error){ -if(qbevent){evnt(26070,13247,"ide_methods.bas");if(r)goto S_50566;} -do{ -*_FUNC_IDESUBS_LONG_INSIDEDECLARE= 0 ; -if(!qbevent)break;evnt(26070,13247,"ide_methods.bas");}while(r); -} -S_50569:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_IDESUBS_STRING_NCA, 4 ),qbs_new_txt_len("SUB ",4))))||new_error){ -if(qbevent){evnt(26070,13248,"ide_methods.bas");if(r)goto S_50569;} -do{ -*_FUNC_IDESUBS_LONG_SF= 1 ; -if(!qbevent)break;evnt(26070,13248,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDESUBS_STRING_SF,qbs_new_txt_len("SUB ",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13248,"ide_methods.bas");}while(r); -} -S_50573:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_IDESUBS_STRING_NCA, 9 ),qbs_new_txt_len("FUNCTION ",9))))||new_error){ -if(qbevent){evnt(26070,13249,"ide_methods.bas");if(r)goto S_50573;} -do{ -*_FUNC_IDESUBS_LONG_SF= 2 ; -if(!qbevent)break;evnt(26070,13249,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDESUBS_STRING_SF,qbs_new_txt_len("FUNC ",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13249,"ide_methods.bas");}while(r); -} -S_50577:; -if ((*_FUNC_IDESUBS_LONG_SF)||new_error){ -if(qbevent){evnt(26070,13250,"ide_methods.bas");if(r)goto S_50577;} -do{ -*_FUNC_IDESUBS_LONG_TOTALSUBS=*_FUNC_IDESUBS_LONG_TOTALSUBS+ 1 ; -if(!qbevent)break;evnt(26070,13252,"ide_methods.bas");}while(r); -S_50579:; -if ((~(*_FUNC_IDESUBS_LONG_INSIDEDECLARE))||new_error){ -if(qbevent){evnt(26070,13253,"ide_methods.bas");if(r)goto S_50579;} -do{ -*_FUNC_IDESUBS_LONG_LASTOPENSUB=*_FUNC_IDESUBS_LONG_TOTALSUBS; -if(!qbevent)break;evnt(26070,13253,"ide_methods.bas");}while(r); -} -S_50582:; -if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDESUBS_LONG_TOTALSUBS>func_ubound(_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST,1,1))))||new_error){ -if(qbevent){evnt(26070,13254,"ide_methods.bas");if(r)goto S_50582;} -do{ +} +if(!qbevent)break;evnt(26070,13233,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDESUBS_LONG_TOTALSUBS= 0 ; +if(!qbevent)break;evnt(26070,13235,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDESUBS_LONG_MODULESIZE= 0 ; +if(!qbevent)break;evnt(26070,13236,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDESUBS_LONG_SORTEDSUBSFLAG=*__BYTE_IDESORTSUBS; +if(!qbevent)break;evnt(26070,13237,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDESUBS_LONG_SUBCLOSED= 0 ; +if(!qbevent)break;evnt(26070,13238,"ide_methods.bas");}while(r); +S_50555:; +fornext_value5595= 1 ; +fornext_finalvalue5595=*__LONG_IDEN; +fornext_step5595= 1 ; +if (fornext_step5595<0) fornext_step_negative5595=1; else fornext_step_negative5595=0; +if (new_error) goto fornext_error5595; +goto fornext_entrylabel5595; +while(1){ +fornext_value5595=fornext_step5595+(*_FUNC_IDESUBS_LONG_Y); +fornext_entrylabel5595: +*_FUNC_IDESUBS_LONG_Y=fornext_value5595; +if (fornext_step_negative5595){ +if (fornext_value5595fornext_finalvalue5595) break; +} +fornext_error5595:; +if(qbevent){evnt(26070,13240,"ide_methods.bas");if(r)goto S_50555;} +do{ +qbs_set(_FUNC_IDESUBS_STRING_A,FUNC_IDEGETLINE(_FUNC_IDESUBS_LONG_Y)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13241,"ide_methods.bas");}while(r); +S_50557:; +if ((-(*_FUNC_IDESUBS_LONG_SUBCLOSED== 0 ))||new_error){ +if(qbevent){evnt(26070,13242,"ide_methods.bas");if(r)goto S_50557;} +do{ +*_FUNC_IDESUBS_LONG_MODULESIZE=*_FUNC_IDESUBS_LONG_MODULESIZE+ 1 ; +if(!qbevent)break;evnt(26070,13242,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDESUBS_STRING_A,qbs_ltrim(qbs_rtrim(_FUNC_IDESUBS_STRING_A))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13243,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDESUBS_LONG_SF= 0 ; +if(!qbevent)break;evnt(26070,13244,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDESUBS_STRING_NCA,qbs_ucase(_FUNC_IDESUBS_STRING_A)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13245,"ide_methods.bas");}while(r); +S_50563:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(_FUNC_IDESUBS_STRING_NCA, 8 ),qbs_new_txt_len("DECLARE ",8)))&(-(func_instr(NULL,_FUNC_IDESUBS_STRING_NCA,qbs_new_txt_len(" LIBRARY",8),0)> 0 ))))||new_error){ +if(qbevent){evnt(26070,13246,"ide_methods.bas");if(r)goto S_50563;} +do{ +*_FUNC_IDESUBS_LONG_INSIDEDECLARE= -1 ; +if(!qbevent)break;evnt(26070,13246,"ide_methods.bas");}while(r); +} +S_50566:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_IDESUBS_STRING_NCA, 11 ),qbs_new_txt_len("END DECLARE",11))))||new_error){ +if(qbevent){evnt(26070,13247,"ide_methods.bas");if(r)goto S_50566;} +do{ +*_FUNC_IDESUBS_LONG_INSIDEDECLARE= 0 ; +if(!qbevent)break;evnt(26070,13247,"ide_methods.bas");}while(r); +} +S_50569:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_IDESUBS_STRING_NCA, 4 ),qbs_new_txt_len("SUB ",4))))||new_error){ +if(qbevent){evnt(26070,13248,"ide_methods.bas");if(r)goto S_50569;} +do{ +*_FUNC_IDESUBS_LONG_SF= 1 ; +if(!qbevent)break;evnt(26070,13248,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDESUBS_STRING_SF,qbs_new_txt_len("SUB ",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13248,"ide_methods.bas");}while(r); +} +S_50573:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_IDESUBS_STRING_NCA, 9 ),qbs_new_txt_len("FUNCTION ",9))))||new_error){ +if(qbevent){evnt(26070,13249,"ide_methods.bas");if(r)goto S_50573;} +do{ +*_FUNC_IDESUBS_LONG_SF= 2 ; +if(!qbevent)break;evnt(26070,13249,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDESUBS_STRING_SF,qbs_new_txt_len("FUNC ",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13249,"ide_methods.bas");}while(r); +} +S_50577:; +if ((*_FUNC_IDESUBS_LONG_SF)||new_error){ +if(qbevent){evnt(26070,13250,"ide_methods.bas");if(r)goto S_50577;} +do{ +*_FUNC_IDESUBS_LONG_TOTALSUBS=*_FUNC_IDESUBS_LONG_TOTALSUBS+ 1 ; +if(!qbevent)break;evnt(26070,13252,"ide_methods.bas");}while(r); +S_50579:; +if ((~(*_FUNC_IDESUBS_LONG_INSIDEDECLARE))||new_error){ +if(qbevent){evnt(26070,13253,"ide_methods.bas");if(r)goto S_50579;} +do{ +*_FUNC_IDESUBS_LONG_LASTOPENSUB=*_FUNC_IDESUBS_LONG_TOTALSUBS; +if(!qbevent)break;evnt(26070,13253,"ide_methods.bas");}while(r); +} +S_50582:; +if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDESUBS_LONG_TOTALSUBS>func_ubound(_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST,1,1))))||new_error){ +if(qbevent){evnt(26070,13254,"ide_methods.bas");if(r)goto S_50582;} +do{ if (_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[2]&2){ error(10); @@ -170032,9 +170032,9 @@ if (!_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]) error(257); } } _FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[2]|=1; -} -if(!qbevent)break;evnt(26070,13255,"ide_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26070,13255,"ide_methods.bas");}while(r); +do{ if (_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[2]&2){ error(10); @@ -170072,9 +170072,9 @@ if (!_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0]) error(257); } } _FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[2]|=1; -} -if(!qbevent)break;evnt(26070,13256,"ide_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26070,13256,"ide_methods.bas");}while(r); +do{ if (_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[2]&2){ error(10); @@ -170112,9 +170112,9 @@ if (!_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0]) error(257); } } _FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[2]|=1; -} -if(!qbevent)break;evnt(26070,13257,"ide_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26070,13257,"ide_methods.bas");}while(r); +do{ if (_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[2]&2){ error(10); @@ -170157,9 +170157,9 @@ while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0]))[tmp_long]= while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -} -if(!qbevent)break;evnt(26070,13258,"ide_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26070,13258,"ide_methods.bas");}while(r); +do{ if (_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[2]&2){ error(10); @@ -170197,9 +170197,9 @@ if (!_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[0]) error(257); } } _FUNC_IDESUBS_ARRAY_LONG_SUBLINES[2]|=1; -} -if(!qbevent)break;evnt(26070,13259,"ide_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26070,13259,"ide_methods.bas");}while(r); +do{ if (_FUNC_IDESUBS_ARRAY_STRING_ARGS[2]&2){ error(10); @@ -170242,9 +170242,9 @@ while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_ARGS[0]))[tmp_long]=(uin while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_ARGS[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -} -if(!qbevent)break;evnt(26070,13260,"ide_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26070,13260,"ide_methods.bas");}while(r); +do{ if (_FUNC_IDESUBS_ARRAY_STRING_SF[2]&2){ error(10); @@ -170287,304 +170287,304 @@ while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_SF[0]))[tmp_long]=(uint6 while(tmp_long--) ((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_SF[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -} -if(!qbevent)break;evnt(26070,13261,"ide_methods.bas");}while(r); -} -S_50591:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_FUNC_IDESUBS_STRING_NCA, 7 ),qbs_new_txt_len(" STATIC",7))))||new_error){ -if(qbevent){evnt(26070,13264,"ide_methods.bas");if(r)goto S_50591;} -do{ -qbs_set(_FUNC_IDESUBS_STRING_A,qbs_rtrim(qbs_left(_FUNC_IDESUBS_STRING_A,_FUNC_IDESUBS_STRING_A->len- 7 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13265,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDESUBS_STRING_LY,qbs_add(_FUNC_IDESUBS_STRING_LY,l2string(*_FUNC_IDESUBS_LONG_Y))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13269,"ide_methods.bas");}while(r); -S_50595:; -if (((-(*__LONG_IDECY>=*_FUNC_IDESUBS_LONG_Y))&(~(*_FUNC_IDESUBS_LONG_INSIDEDECLARE)))||new_error){ -if(qbevent){evnt(26070,13273,"ide_methods.bas");if(r)goto S_50595;} -do{ -*_FUNC_IDESUBS_LONG_CURRENTLYVIEWINGWHICHSUBFUNC=qbr((_FUNC_IDESUBS_STRING_LY->len/ ((long double)( 4 )))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13274,"ide_methods.bas");}while(r); -} -S_50598:; -if ((-(*_FUNC_IDESUBS_LONG_SF== 1 ))||new_error){ -if(qbevent){evnt(26070,13278,"ide_methods.bas");if(r)goto S_50598;} -do{ -qbs_set(_FUNC_IDESUBS_STRING_A,qbs_right(_FUNC_IDESUBS_STRING_A,_FUNC_IDESUBS_STRING_A->len- 4 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13279,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDESUBS_STRING_A,qbs_right(_FUNC_IDESUBS_STRING_A,_FUNC_IDESUBS_STRING_A->len- 9 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13281,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDESUBS_STRING_A,qbs_ltrim(qbs_rtrim(_FUNC_IDESUBS_STRING_A))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13283,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDESUBS_LONG_X=func_instr(NULL,_FUNC_IDESUBS_STRING_A,qbs_new_txt_len("(",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13284,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(26070,13285,"ide_methods.bas");}while(r); -S_50606:; -if ((*_FUNC_IDESUBS_LONG_X)||new_error){ -if(qbevent){evnt(26070,13286,"ide_methods.bas");if(r)goto S_50606;} -do{ -SUB_FINDQUOTECOMMENT(_FUNC_IDESUBS_STRING_A,_FUNC_IDESUBS_LONG_X,_FUNC_IDESUBS_BYTE_COMMENT,_FUNC_IDESUBS_BYTE_QUOTE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13286,"ide_methods.bas");}while(r); -} -S_50609:; -if (((-(*_FUNC_IDESUBS_LONG_X> 0 ))&(-(*_FUNC_IDESUBS_BYTE_COMMENT== 0 ))&(-(*_FUNC_IDESUBS_BYTE_QUOTE== 0 )))||new_error){ -if(qbevent){evnt(26070,13287,"ide_methods.bas");if(r)goto S_50609;} -do{ -qbs_set(_FUNC_IDESUBS_STRING_N,qbs_rtrim(qbs_left(_FUNC_IDESUBS_STRING_A,*_FUNC_IDESUBS_LONG_X- 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13288,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDESUBS_STRING_ARGS,qbs_right(_FUNC_IDESUBS_STRING_A,_FUNC_IDESUBS_STRING_A->len-*_FUNC_IDESUBS_LONG_X+ 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13289,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDESUBS_LONG_X= 1 ; -if(!qbevent)break;evnt(26070,13290,"ide_methods.bas");}while(r); -S_50613:; -fornext_value5602= 2 ; -fornext_finalvalue5602=_FUNC_IDESUBS_STRING_ARGS->len; -fornext_step5602= 1 ; -if (fornext_step5602<0) fornext_step_negative5602=1; else fornext_step_negative5602=0; -if (new_error) goto fornext_error5602; -goto fornext_entrylabel5602; -while(1){ -fornext_value5602=fornext_step5602+(*_FUNC_IDESUBS_LONG_I); -fornext_entrylabel5602: -*_FUNC_IDESUBS_LONG_I=fornext_value5602; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative5602){ -if (fornext_value5602fornext_finalvalue5602) break; -} -fornext_error5602:; -if(qbevent){evnt(26070,13291,"ide_methods.bas");if(r)goto S_50613;} -S_50614:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_IDESUBS_STRING_ARGS,*_FUNC_IDESUBS_LONG_I)== 40 )))||new_error){ -if(qbevent){evnt(26070,13292,"ide_methods.bas");if(r)goto S_50614;} -do{ -*_FUNC_IDESUBS_LONG_X=*_FUNC_IDESUBS_LONG_X+ 1 ; -if(!qbevent)break;evnt(26070,13292,"ide_methods.bas");}while(r); -} -S_50617:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_IDESUBS_STRING_ARGS,*_FUNC_IDESUBS_LONG_I)== 41 )))||new_error){ -if(qbevent){evnt(26070,13293,"ide_methods.bas");if(r)goto S_50617;} -do{ -*_FUNC_IDESUBS_LONG_X=*_FUNC_IDESUBS_LONG_X- 1 ; -if(!qbevent)break;evnt(26070,13293,"ide_methods.bas");}while(r); -} -S_50620:; -if ((-(*_FUNC_IDESUBS_LONG_X== 0 ))||new_error){ -if(qbevent){evnt(26070,13294,"ide_methods.bas");if(r)goto S_50620;} -do{ -qbs_set(_FUNC_IDESUBS_STRING_ARGS,qbs_left(_FUNC_IDESUBS_STRING_ARGS,*_FUNC_IDESUBS_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13294,"ide_methods.bas");}while(r); -do{ -goto fornext_exit_5601; -if(!qbevent)break;evnt(26070,13294,"ide_methods.bas");}while(r); -} -fornext_continue_5601:; -} -fornext_exit_5601:; -}else{ -do{ -qbs_set(_FUNC_IDESUBS_STRING_N,_FUNC_IDESUBS_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13297,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDESUBS_STRING_ARGS,qbs_new_txt_len("()",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13298,"ide_methods.bas");}while(r); -} -do{ -SUB_CLEANSUBNAME(_FUNC_IDESUBS_STRING_N); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13300,"ide_methods.bas");}while(r); -S_50630:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDESUBS_STRING_N->len>*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN)))||new_error){ -if(qbevent){evnt(26070,13301,"ide_methods.bas");if(r)goto S_50630;} -do{ -*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN=_FUNC_IDESUBS_STRING_N->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13301,"ide_methods.bas");}while(r); -} -S_50633:; -if ((-(*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN>*_FUNC_IDESUBS_LONG_MODULENAMELENLIMIT))||new_error){ -if(qbevent){evnt(26070,13302,"ide_methods.bas");if(r)goto S_50633;} -do{ -*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN=*_FUNC_IDESUBS_LONG_MODULENAMELENLIMIT; -if(!qbevent)break;evnt(26070,13302,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDESUBS_STRING_N2,_FUNC_IDESUBS_STRING_N); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13306,"ide_methods.bas");}while(r); -S_50637:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDESUBS_STRING_N2->len> 1 )))||new_error){ -if(qbevent){evnt(26070,13307,"ide_methods.bas");if(r)goto S_50637;} -S_50638:; -while((!(qbs_cleanup(qbs_tmp_base,((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(qbs_right(_FUNC_IDESUBS_STRING_N2, 1 )))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])])))||new_error){ -if(qbevent){evnt(26070,13308,"ide_methods.bas");if(r)goto S_50638;} -do{ -qbs_set(_FUNC_IDESUBS_STRING_N2,qbs_left(_FUNC_IDESUBS_STRING_N,_FUNC_IDESUBS_STRING_N2->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13309,"ide_methods.bas");}while(r); -dl_continue_5607:; -} -dl_exit_5607:; -} -S_50642:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDESUBS_STRING_A2,qbs_ucase(_FUNC_IDESUBS_STRING_N2))))||new_error){ -if(qbevent){evnt(26070,13312,"ide_methods.bas");if(r)goto S_50642;} -do{ -*_FUNC_IDESUBS_LONG_PREFERCURRENTCURSORSUBFUNC=qbr((_FUNC_IDESUBS_STRING_LY->len/ ((long double)( 4 )))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13312,"ide_methods.bas");}while(r); -} -S_50645:; -if ((-(*_FUNC_IDESUBS_LONG_INSIDEDECLARE== -1 ))||new_error){ -if(qbevent){evnt(26070,13314,"ide_methods.bas");if(r)goto S_50645;} -do{ -qbs_set(_FUNC_IDESUBS_STRING_N,qbs_add(qbs_new_txt_len("*",1),_FUNC_IDESUBS_STRING_N)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13315,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDESUBS_LONG_FOUNDEXTERNALSUBFUNC= -1 ; -if(!qbevent)break;evnt(26070,13316,"ide_methods.bas");}while(r); -}else{ -S_50649:; -if ((-(*_FUNC_IDESUBS_LONG_SUBCLOSED== 0 ))||new_error){ -if(qbevent){evnt(26070,13318,"ide_methods.bas");if(r)goto S_50649;} -do{ -*_FUNC_IDESUBS_LONG_MODULESIZE= 0 ; -if(!qbevent)break;evnt(26070,13318,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=161; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_ADDLINECOUNT; -RETURN_161:; -if(!qbevent)break;evnt(26070,13318,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDESUBS_LONG_SUBCLOSED= 0 ; -if(!qbevent)break;evnt(26070,13319,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDESUBS_LONG_MODULESIZE= 0 ; -if(!qbevent)break;evnt(26070,13320,"ide_methods.bas");}while(r); -} -do{ -tmp_long=array_check((*_FUNC_IDESUBS_LONG_TOTALSUBS)-_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[4],_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0]))[tmp_long])),_FUNC_IDESUBS_STRING_N); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13324,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDESUBS_LONG_TOTALSUBS)-_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[4],_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[5]); -if (!new_error) ((int32*)(_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[0]))[tmp_long]=*_FUNC_IDESUBS_LONG_Y; -if(!qbevent)break;evnt(26070,13325,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDESUBS_LONG_TOTALSUBS)-_FUNC_IDESUBS_ARRAY_STRING_ARGS[4],_FUNC_IDESUBS_ARRAY_STRING_ARGS[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_ARGS[0]))[tmp_long])),_FUNC_IDESUBS_STRING_ARGS); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13326,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDESUBS_LONG_TOTALSUBS)-_FUNC_IDESUBS_ARRAY_STRING_SF[4],_FUNC_IDESUBS_ARRAY_STRING_SF[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_SF[0]))[tmp_long])),_FUNC_IDESUBS_STRING_SF); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13327,"ide_methods.bas");}while(r); -}else{ -do{ -*_FUNC_IDESUBS_LONG_I=func_instr(NULL,_FUNC_IDESUBS_STRING_NCA,qbs_new_txt_len(" ",2),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13330,"ide_methods.bas");}while(r); -S_50662:; -while((-(*_FUNC_IDESUBS_LONG_I> 0 ))||new_error){ -if(qbevent){evnt(26070,13331,"ide_methods.bas");if(r)goto S_50662;} -do{ -qbs_set(_FUNC_IDESUBS_STRING_NCA,qbs_add(qbs_left(_FUNC_IDESUBS_STRING_NCA,*_FUNC_IDESUBS_LONG_I),func_mid(_FUNC_IDESUBS_STRING_NCA,*_FUNC_IDESUBS_LONG_I+ 2 ,NULL,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13332,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDESUBS_LONG_I=func_instr(*_FUNC_IDESUBS_LONG_I,_FUNC_IDESUBS_STRING_NCA,qbs_new_txt_len(" ",2),0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13333,"ide_methods.bas");}while(r); -dl_continue_5610:; -} -dl_exit_5610:; -do{ -*_FUNC_IDESUBS_LONG_CURSOR= 0 ; -if(!qbevent)break;evnt(26070,13336,"ide_methods.bas");}while(r); -LABEL_LOOKFORENDSUB:; -if(qbevent){evnt(26070,13337,"ide_methods.bas");r=0;} -do{ -*_FUNC_IDESUBS_LONG_SF=func_instr(*_FUNC_IDESUBS_LONG_CURSOR+ 1 ,_FUNC_IDESUBS_STRING_NCA,qbs_new_txt_len("END SUB",7),0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13338,"ide_methods.bas");}while(r); -S_50668:; -if ((-(*_FUNC_IDESUBS_LONG_SF== 0 ))||new_error){ -if(qbevent){evnt(26070,13339,"ide_methods.bas");if(r)goto S_50668;} -do{ -*_FUNC_IDESUBS_LONG_SF=func_instr(*_FUNC_IDESUBS_LONG_CURSOR+ 1 ,_FUNC_IDESUBS_STRING_NCA,qbs_new_txt_len("END FUNCTION",12),0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13339,"ide_methods.bas");}while(r); -} -S_50671:; -if ((*_FUNC_IDESUBS_LONG_SF)||new_error){ -if(qbevent){evnt(26070,13341,"ide_methods.bas");if(r)goto S_50671;} -do{ -SUB_FINDQUOTECOMMENT(_FUNC_IDESUBS_STRING_NCA,_FUNC_IDESUBS_LONG_SF,_FUNC_IDESUBS_BYTE_COMMENT,_FUNC_IDESUBS_BYTE_QUOTE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13342,"ide_methods.bas");}while(r); -S_50673:; -if ((*_FUNC_IDESUBS_BYTE_COMMENT|*_FUNC_IDESUBS_BYTE_QUOTE)||new_error){ -if(qbevent){evnt(26070,13343,"ide_methods.bas");if(r)goto S_50673;} -do{ -*_FUNC_IDESUBS_LONG_CURSOR=*_FUNC_IDESUBS_LONG_SF; -if(!qbevent)break;evnt(26070,13343,"ide_methods.bas");}while(r); -do{ -goto LABEL_LOOKFORENDSUB; -if(!qbevent)break;evnt(26070,13343,"ide_methods.bas");}while(r); -} -do{ -return_point[next_return_point++]=162; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_ADDLINECOUNT; -RETURN_162:; -if(!qbevent)break;evnt(26070,13344,"ide_methods.bas");}while(r); -} -} -fornext_continue_5594:; -} -fornext_exit_5594:; -S_50681:; -if ((-(*_FUNC_IDESUBS_LONG_SUBCLOSED== 0 ))||new_error){ -if(qbevent){evnt(26070,13349,"ide_methods.bas");if(r)goto S_50681;} -do{ -return_point[next_return_point++]=163; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_ADDLINECOUNT; -RETURN_163:; -if(!qbevent)break;evnt(26070,13349,"ide_methods.bas");}while(r); -} -S_50684:; -if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_IDESUBS_LONG_TOTALSUBS> 0 ))&(-(*_FUNC_IDESUBS_LONG_TOTALSUBSlen- 7 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13265,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDESUBS_STRING_LY,qbs_add(_FUNC_IDESUBS_STRING_LY,l2string(*_FUNC_IDESUBS_LONG_Y))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13269,"ide_methods.bas");}while(r); +S_50595:; +if (((-(*__LONG_IDECY>=*_FUNC_IDESUBS_LONG_Y))&(~(*_FUNC_IDESUBS_LONG_INSIDEDECLARE)))||new_error){ +if(qbevent){evnt(26070,13273,"ide_methods.bas");if(r)goto S_50595;} +do{ +*_FUNC_IDESUBS_LONG_CURRENTLYVIEWINGWHICHSUBFUNC=qbr((_FUNC_IDESUBS_STRING_LY->len/ ((long double)( 4 )))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13274,"ide_methods.bas");}while(r); +} +S_50598:; +if ((-(*_FUNC_IDESUBS_LONG_SF== 1 ))||new_error){ +if(qbevent){evnt(26070,13278,"ide_methods.bas");if(r)goto S_50598;} +do{ +qbs_set(_FUNC_IDESUBS_STRING_A,qbs_right(_FUNC_IDESUBS_STRING_A,_FUNC_IDESUBS_STRING_A->len- 4 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13279,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDESUBS_STRING_A,qbs_right(_FUNC_IDESUBS_STRING_A,_FUNC_IDESUBS_STRING_A->len- 9 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13281,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDESUBS_STRING_A,qbs_ltrim(qbs_rtrim(_FUNC_IDESUBS_STRING_A))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13283,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDESUBS_LONG_X=func_instr(NULL,_FUNC_IDESUBS_STRING_A,qbs_new_txt_len("(",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13284,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26070,13285,"ide_methods.bas");}while(r); +S_50606:; +if ((*_FUNC_IDESUBS_LONG_X)||new_error){ +if(qbevent){evnt(26070,13286,"ide_methods.bas");if(r)goto S_50606;} +do{ +SUB_FINDQUOTECOMMENT(_FUNC_IDESUBS_STRING_A,_FUNC_IDESUBS_LONG_X,_FUNC_IDESUBS_BYTE_COMMENT,_FUNC_IDESUBS_BYTE_QUOTE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13286,"ide_methods.bas");}while(r); +} +S_50609:; +if (((-(*_FUNC_IDESUBS_LONG_X> 0 ))&(-(*_FUNC_IDESUBS_BYTE_COMMENT== 0 ))&(-(*_FUNC_IDESUBS_BYTE_QUOTE== 0 )))||new_error){ +if(qbevent){evnt(26070,13287,"ide_methods.bas");if(r)goto S_50609;} +do{ +qbs_set(_FUNC_IDESUBS_STRING_N,qbs_rtrim(qbs_left(_FUNC_IDESUBS_STRING_A,*_FUNC_IDESUBS_LONG_X- 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13288,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDESUBS_STRING_ARGS,qbs_right(_FUNC_IDESUBS_STRING_A,_FUNC_IDESUBS_STRING_A->len-*_FUNC_IDESUBS_LONG_X+ 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13289,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDESUBS_LONG_X= 1 ; +if(!qbevent)break;evnt(26070,13290,"ide_methods.bas");}while(r); +S_50613:; +fornext_value5602= 2 ; +fornext_finalvalue5602=_FUNC_IDESUBS_STRING_ARGS->len; +fornext_step5602= 1 ; +if (fornext_step5602<0) fornext_step_negative5602=1; else fornext_step_negative5602=0; +if (new_error) goto fornext_error5602; +goto fornext_entrylabel5602; +while(1){ +fornext_value5602=fornext_step5602+(*_FUNC_IDESUBS_LONG_I); +fornext_entrylabel5602: +*_FUNC_IDESUBS_LONG_I=fornext_value5602; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative5602){ +if (fornext_value5602fornext_finalvalue5602) break; +} +fornext_error5602:; +if(qbevent){evnt(26070,13291,"ide_methods.bas");if(r)goto S_50613;} +S_50614:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_IDESUBS_STRING_ARGS,*_FUNC_IDESUBS_LONG_I)== 40 )))||new_error){ +if(qbevent){evnt(26070,13292,"ide_methods.bas");if(r)goto S_50614;} +do{ +*_FUNC_IDESUBS_LONG_X=*_FUNC_IDESUBS_LONG_X+ 1 ; +if(!qbevent)break;evnt(26070,13292,"ide_methods.bas");}while(r); +} +S_50617:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_IDESUBS_STRING_ARGS,*_FUNC_IDESUBS_LONG_I)== 41 )))||new_error){ +if(qbevent){evnt(26070,13293,"ide_methods.bas");if(r)goto S_50617;} +do{ +*_FUNC_IDESUBS_LONG_X=*_FUNC_IDESUBS_LONG_X- 1 ; +if(!qbevent)break;evnt(26070,13293,"ide_methods.bas");}while(r); +} +S_50620:; +if ((-(*_FUNC_IDESUBS_LONG_X== 0 ))||new_error){ +if(qbevent){evnt(26070,13294,"ide_methods.bas");if(r)goto S_50620;} +do{ +qbs_set(_FUNC_IDESUBS_STRING_ARGS,qbs_left(_FUNC_IDESUBS_STRING_ARGS,*_FUNC_IDESUBS_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13294,"ide_methods.bas");}while(r); +do{ +goto fornext_exit_5601; +if(!qbevent)break;evnt(26070,13294,"ide_methods.bas");}while(r); +} +fornext_continue_5601:; +} +fornext_exit_5601:; +}else{ +do{ +qbs_set(_FUNC_IDESUBS_STRING_N,_FUNC_IDESUBS_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13297,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDESUBS_STRING_ARGS,qbs_new_txt_len("()",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13298,"ide_methods.bas");}while(r); +} +do{ +SUB_CLEANSUBNAME(_FUNC_IDESUBS_STRING_N); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13300,"ide_methods.bas");}while(r); +S_50630:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDESUBS_STRING_N->len>*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN)))||new_error){ +if(qbevent){evnt(26070,13301,"ide_methods.bas");if(r)goto S_50630;} +do{ +*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN=_FUNC_IDESUBS_STRING_N->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13301,"ide_methods.bas");}while(r); +} +S_50633:; +if ((-(*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN>*_FUNC_IDESUBS_LONG_MODULENAMELENLIMIT))||new_error){ +if(qbevent){evnt(26070,13302,"ide_methods.bas");if(r)goto S_50633;} +do{ +*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN=*_FUNC_IDESUBS_LONG_MODULENAMELENLIMIT; +if(!qbevent)break;evnt(26070,13302,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDESUBS_STRING_N2,_FUNC_IDESUBS_STRING_N); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13306,"ide_methods.bas");}while(r); +S_50637:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDESUBS_STRING_N2->len> 1 )))||new_error){ +if(qbevent){evnt(26070,13307,"ide_methods.bas");if(r)goto S_50637;} +S_50638:; +while((!(qbs_cleanup(qbs_tmp_base,((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(qbs_right(_FUNC_IDESUBS_STRING_N2, 1 )))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])])))||new_error){ +if(qbevent){evnt(26070,13308,"ide_methods.bas");if(r)goto S_50638;} +do{ +qbs_set(_FUNC_IDESUBS_STRING_N2,qbs_left(_FUNC_IDESUBS_STRING_N,_FUNC_IDESUBS_STRING_N2->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13309,"ide_methods.bas");}while(r); +dl_continue_5607:; +} +dl_exit_5607:; +} +S_50642:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDESUBS_STRING_A2,qbs_ucase(_FUNC_IDESUBS_STRING_N2))))||new_error){ +if(qbevent){evnt(26070,13312,"ide_methods.bas");if(r)goto S_50642;} +do{ +*_FUNC_IDESUBS_LONG_PREFERCURRENTCURSORSUBFUNC=qbr((_FUNC_IDESUBS_STRING_LY->len/ ((long double)( 4 )))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13312,"ide_methods.bas");}while(r); +} +S_50645:; +if ((-(*_FUNC_IDESUBS_LONG_INSIDEDECLARE== -1 ))||new_error){ +if(qbevent){evnt(26070,13314,"ide_methods.bas");if(r)goto S_50645;} +do{ +qbs_set(_FUNC_IDESUBS_STRING_N,qbs_add(qbs_new_txt_len("*",1),_FUNC_IDESUBS_STRING_N)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13315,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDESUBS_LONG_FOUNDEXTERNALSUBFUNC= -1 ; +if(!qbevent)break;evnt(26070,13316,"ide_methods.bas");}while(r); +}else{ +S_50649:; +if ((-(*_FUNC_IDESUBS_LONG_SUBCLOSED== 0 ))||new_error){ +if(qbevent){evnt(26070,13318,"ide_methods.bas");if(r)goto S_50649;} +do{ +*_FUNC_IDESUBS_LONG_MODULESIZE= 0 ; +if(!qbevent)break;evnt(26070,13318,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=161; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_ADDLINECOUNT; +RETURN_161:; +if(!qbevent)break;evnt(26070,13318,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDESUBS_LONG_SUBCLOSED= 0 ; +if(!qbevent)break;evnt(26070,13319,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDESUBS_LONG_MODULESIZE= 0 ; +if(!qbevent)break;evnt(26070,13320,"ide_methods.bas");}while(r); +} +do{ +tmp_long=array_check((*_FUNC_IDESUBS_LONG_TOTALSUBS)-_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[4],_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0]))[tmp_long])),_FUNC_IDESUBS_STRING_N); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13324,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDESUBS_LONG_TOTALSUBS)-_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[4],_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[5]); +if (!new_error) ((int32*)(_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[0]))[tmp_long]=*_FUNC_IDESUBS_LONG_Y; +if(!qbevent)break;evnt(26070,13325,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDESUBS_LONG_TOTALSUBS)-_FUNC_IDESUBS_ARRAY_STRING_ARGS[4],_FUNC_IDESUBS_ARRAY_STRING_ARGS[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_ARGS[0]))[tmp_long])),_FUNC_IDESUBS_STRING_ARGS); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13326,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDESUBS_LONG_TOTALSUBS)-_FUNC_IDESUBS_ARRAY_STRING_SF[4],_FUNC_IDESUBS_ARRAY_STRING_SF[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_SF[0]))[tmp_long])),_FUNC_IDESUBS_STRING_SF); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13327,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_IDESUBS_LONG_I=func_instr(NULL,_FUNC_IDESUBS_STRING_NCA,qbs_new_txt_len(" ",2),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13330,"ide_methods.bas");}while(r); +S_50662:; +while((-(*_FUNC_IDESUBS_LONG_I> 0 ))||new_error){ +if(qbevent){evnt(26070,13331,"ide_methods.bas");if(r)goto S_50662;} +do{ +qbs_set(_FUNC_IDESUBS_STRING_NCA,qbs_add(qbs_left(_FUNC_IDESUBS_STRING_NCA,*_FUNC_IDESUBS_LONG_I),func_mid(_FUNC_IDESUBS_STRING_NCA,*_FUNC_IDESUBS_LONG_I+ 2 ,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13332,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDESUBS_LONG_I=func_instr(*_FUNC_IDESUBS_LONG_I,_FUNC_IDESUBS_STRING_NCA,qbs_new_txt_len(" ",2),0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13333,"ide_methods.bas");}while(r); +dl_continue_5610:; +} +dl_exit_5610:; +do{ +*_FUNC_IDESUBS_LONG_CURSOR= 0 ; +if(!qbevent)break;evnt(26070,13336,"ide_methods.bas");}while(r); +LABEL_LOOKFORENDSUB:; +if(qbevent){evnt(26070,13337,"ide_methods.bas");r=0;} +do{ +*_FUNC_IDESUBS_LONG_SF=func_instr(*_FUNC_IDESUBS_LONG_CURSOR+ 1 ,_FUNC_IDESUBS_STRING_NCA,qbs_new_txt_len("END SUB",7),0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13338,"ide_methods.bas");}while(r); +S_50668:; +if ((-(*_FUNC_IDESUBS_LONG_SF== 0 ))||new_error){ +if(qbevent){evnt(26070,13339,"ide_methods.bas");if(r)goto S_50668;} +do{ +*_FUNC_IDESUBS_LONG_SF=func_instr(*_FUNC_IDESUBS_LONG_CURSOR+ 1 ,_FUNC_IDESUBS_STRING_NCA,qbs_new_txt_len("END FUNCTION",12),0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13339,"ide_methods.bas");}while(r); +} +S_50671:; +if ((*_FUNC_IDESUBS_LONG_SF)||new_error){ +if(qbevent){evnt(26070,13341,"ide_methods.bas");if(r)goto S_50671;} +do{ +SUB_FINDQUOTECOMMENT(_FUNC_IDESUBS_STRING_NCA,_FUNC_IDESUBS_LONG_SF,_FUNC_IDESUBS_BYTE_COMMENT,_FUNC_IDESUBS_BYTE_QUOTE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13342,"ide_methods.bas");}while(r); +S_50673:; +if ((*_FUNC_IDESUBS_BYTE_COMMENT|*_FUNC_IDESUBS_BYTE_QUOTE)||new_error){ +if(qbevent){evnt(26070,13343,"ide_methods.bas");if(r)goto S_50673;} +do{ +*_FUNC_IDESUBS_LONG_CURSOR=*_FUNC_IDESUBS_LONG_SF; +if(!qbevent)break;evnt(26070,13343,"ide_methods.bas");}while(r); +do{ +goto LABEL_LOOKFORENDSUB; +if(!qbevent)break;evnt(26070,13343,"ide_methods.bas");}while(r); +} +do{ +return_point[next_return_point++]=162; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_ADDLINECOUNT; +RETURN_162:; +if(!qbevent)break;evnt(26070,13344,"ide_methods.bas");}while(r); +} +} +fornext_continue_5594:; +} +fornext_exit_5594:; +S_50681:; +if ((-(*_FUNC_IDESUBS_LONG_SUBCLOSED== 0 ))||new_error){ +if(qbevent){evnt(26070,13349,"ide_methods.bas");if(r)goto S_50681;} +do{ +return_point[next_return_point++]=163; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_ADDLINECOUNT; +RETURN_163:; +if(!qbevent)break;evnt(26070,13349,"ide_methods.bas");}while(r); +} +S_50684:; +if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_IDESUBS_LONG_TOTALSUBS> 0 ))&(-(*_FUNC_IDESUBS_LONG_TOTALSUBS 0 ))||new_error){ -if(qbevent){evnt(26070,13363,"ide_methods.bas");if(r)goto S_50693;} -S_50694:; -if ((qbs_cleanup(qbs_tmp_base,-(((int32)(qbs_ltrim(qbs_str((int32)(*_FUNC_IDESUBS_LONG_MAXLINECOUNT))))->len)<= 10 )))||new_error){ -if(qbevent){evnt(26070,13364,"ide_methods.bas");if(r)goto S_50694;} -do{ -*_FUNC_IDESUBS_LONG_MAXLINECOUNTSPACE= 10 ; -if(!qbevent)break;evnt(26070,13365,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDESUBS_STRING_LINESHEADER,qbs_new_txt_len("Line count",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13366,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDESUBS_STRING_EXTERNAL,qbs_new_txt_len("external",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13367,"ide_methods.bas");}while(r); -} -S_50699:; -if ((qbs_cleanup(qbs_tmp_base,-(((int32)(qbs_ltrim(qbs_str((int32)(*_FUNC_IDESUBS_LONG_MAXLINECOUNT))))->len)<= 5 )))||new_error){ -if(qbevent){evnt(26070,13369,"ide_methods.bas");if(r)goto S_50699;} -do{ -*_FUNC_IDESUBS_LONG_MAXLINECOUNTSPACE= 5 ; -if(!qbevent)break;evnt(26070,13370,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDESUBS_STRING_LINESHEADER,qbs_new_txt_len("Lines",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13371,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDESUBS_STRING_EXTERNAL,func_chr( 196 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13372,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDESUBS_STRING_L,qbs_add(_FUNC_IDESUBS_STRING_L,func_space((*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN+ 2 )-_FUNC_IDESUBS_STRING_L->len))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13375,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDESUBS_STRING_LSIZED,_FUNC_IDESUBS_STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13376,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDESUBS_STRING_LSORTEDSIZED,_FUNC_IDESUBS_STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13377,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDESUBS_STRING_L,qbs_add(_FUNC_IDESUBS_STRING_L,qbs_new_txt_len(" Type Arguments",17))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13378,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDESUBS_STRING_LSORTED,_FUNC_IDESUBS_STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13379,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDESUBS_STRING_LSORTED,_FUNC_IDESUBS_STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13380,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDESUBS_STRING_LSIZED,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_IDESUBS_STRING_LSIZED,qbs_new_txt_len(" ",2)),_FUNC_IDESUBS_STRING_LINESHEADER),qbs_new_txt_len(" Type Arguments",17)),_FUNC_IDESUBS_STRING1_SEP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13381,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDESUBS_STRING_LSORTEDSIZED,qbs_add(qbs_add(qbs_add(_FUNC_IDESUBS_STRING_LSORTEDSIZED,qbs_new_txt_len(" ",2)),_FUNC_IDESUBS_STRING_LINESHEADER),qbs_new_txt_len(" Type Arguments",17))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13382,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDESUBS_STRING_L,__STRING_IDEPROGNAME); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13384,"ide_methods.bas");}while(r); -S_50714:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDESUBS_STRING_L,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,13385,"ide_methods.bas");if(r)goto S_50714;} -do{ -qbs_set(_FUNC_IDESUBS_STRING_L,qbs_add(qbs_new_txt_len("Untitled",8),__STRING_TEMPFOLDERINDEXSTR)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13385,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDESUBS_STRING_LSIZED,_FUNC_IDESUBS_STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13386,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDESUBS_LONG_DIALOGWIDTH= 50 ; -if(!qbevent)break;evnt(26070,13390,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDESUBS_LONG_ARGSLENGTH= 2 ; -if(!qbevent)break;evnt(26070,13391,"ide_methods.bas");}while(r); -S_50721:; -fornext_value5613= 1 ; -fornext_finalvalue5613=*_FUNC_IDESUBS_LONG_TOTALSUBS; -fornext_step5613= 1 ; -if (fornext_step5613<0) fornext_step_negative5613=1; else fornext_step_negative5613=0; -if (new_error) goto fornext_error5613; -goto fornext_entrylabel5613; -while(1){ -fornext_value5613=fornext_step5613+(*_FUNC_IDESUBS_LONG_X); -fornext_entrylabel5613: -*_FUNC_IDESUBS_LONG_X=fornext_value5613; -if (fornext_step_negative5613){ -if (fornext_value5613fornext_finalvalue5613) break; -} -fornext_error5613:; -if(qbevent){evnt(26070,13392,"ide_methods.bas");if(r)goto S_50721;} -do{ -qbs_set(_FUNC_IDESUBS_STRING_N,((qbs*)(((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0]))[array_check((*_FUNC_IDESUBS_LONG_X)-_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[4],_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13393,"ide_methods.bas");}while(r); -S_50723:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDESUBS_STRING_N->len>*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN)))||new_error){ -if(qbevent){evnt(26070,13394,"ide_methods.bas");if(r)goto S_50723;} -do{ -qbs_set(_FUNC_IDESUBS_STRING_N,qbs_add(qbs_left(_FUNC_IDESUBS_STRING_N,*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN- 3 ),func_string( 3 , 250 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13395,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDESUBS_STRING_N,qbs_add(_FUNC_IDESUBS_STRING_N,func_space(*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN-_FUNC_IDESUBS_STRING_N->len))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13397,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDESUBS_STRING_ARGS,((qbs*)(((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_ARGS[0]))[array_check((*_FUNC_IDESUBS_LONG_X)-_FUNC_IDESUBS_ARRAY_STRING_ARGS[4],_FUNC_IDESUBS_ARRAY_STRING_ARGS[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13400,"ide_methods.bas");}while(r); -S_50729:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDESUBS_STRING_ARGS->len>*_FUNC_IDESUBS_LONG_ARGSLENGTH)))||new_error){ -if(qbevent){evnt(26070,13401,"ide_methods.bas");if(r)goto S_50729;} -do{ -*_FUNC_IDESUBS_LONG_ARGSLENGTH=_FUNC_IDESUBS_STRING_ARGS->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13401,"ide_methods.bas");}while(r); -} -S_50732:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDESUBS_STRING_ARGS->len<=(*__LONG_IDEWX- 41 ))))||new_error){ -if(qbevent){evnt(26070,13402,"ide_methods.bas");if(r)goto S_50732;} -do{ -qbs_set(_FUNC_IDESUBS_STRING_ARGS,qbs_add(_FUNC_IDESUBS_STRING_ARGS,func_space((*__LONG_IDEWX- 41 )-_FUNC_IDESUBS_STRING_ARGS->len))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13403,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDESUBS_STRING_ARGS,qbs_add(qbs_left(_FUNC_IDESUBS_STRING_ARGS,(*__LONG_IDEWX- 44 )),func_string( 3 , 250 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13405,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDESUBS_STRING_SF,((qbs*)(((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_SF[0]))[array_check((*_FUNC_IDESUBS_LONG_X)-_FUNC_IDESUBS_ARRAY_STRING_SF[4],_FUNC_IDESUBS_ARRAY_STRING_SF[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13408,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDESUBS_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_IDESUBS_STRING_L,_FUNC_IDESUBS_STRING1_SEP),func_chr( 195 )),func_chr( 196 )),_FUNC_IDESUBS_STRING_N),qbs_new_txt_len(" ",2)),func_chr( 16 )),func_chr( 2 )),_FUNC_IDESUBS_STRING_SF),func_chr( 16 )),func_chr( 16 )),_FUNC_IDESUBS_STRING_ARGS)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13411,"ide_methods.bas");}while(r); -S_50739:; -if ((-(((int32*)(_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0]))[array_check((*_FUNC_IDESUBS_LONG_X)-_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[4],_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[5])]== 0 ))||new_error){ -if(qbevent){evnt(26070,13413,"ide_methods.bas");if(r)goto S_50739;} -do{ -qbs_set(_FUNC_IDESUBS_STRING_NUM,_FUNC_IDESUBS_STRING_EXTERNAL); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13413,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDESUBS_STRING_NUM,qbs_ltrim(qbs_str((int32)(((int32*)(_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0]))[array_check((*_FUNC_IDESUBS_LONG_X)-_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[4],_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13413,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDESUBS_STRING_LSIZED,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_IDESUBS_STRING_LSIZED,func_chr( 195 )),func_chr( 196 )),_FUNC_IDESUBS_STRING_N),qbs_new_txt_len(" ",2)),func_chr( 16 )),func_chr( 2 )),func_space(*_FUNC_IDESUBS_LONG_MAXLINECOUNTSPACE-_FUNC_IDESUBS_STRING_NUM->len)),_FUNC_IDESUBS_STRING_NUM),qbs_new_txt_len(" ",2)),_FUNC_IDESUBS_STRING_SF),func_chr( 16 )),func_chr( 16 )),_FUNC_IDESUBS_STRING_ARGS),_FUNC_IDESUBS_STRING1_SEP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13416,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDESUBS_STRING_LISTITEM,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_IDESUBS_STRING_N,qbs_new_txt_len(" ",2)),func_chr( 1 )),func_chr( 16 )),func_chr( 2 )),_FUNC_IDESUBS_STRING_SF),func_chr( 16 )),func_chr( 16 )),_FUNC_IDESUBS_STRING_ARGS)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13418,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDESUBS_LONG_LISTITEMLENGTH=_FUNC_IDESUBS_STRING_LISTITEM->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13419,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDESUBS_LONG_X)-_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[4],_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[5]); -if (!new_error) qbs_set(qbs_new_fixed(&((uint8*)(_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]))[tmp_long*998],998,1),qbs_ucase(_FUNC_IDESUBS_STRING_LISTITEM)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13420,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDESUBS_LONG_X)-_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[4],_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[5]); -if (!new_error) qbs_set(qbs_new_fixed(&((uint8*)(_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0]))[tmp_long*998],998,1),_FUNC_IDESUBS_STRING_LISTITEM); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13421,"ide_methods.bas");}while(r); -do{ -sub_mid(qbs_new_fixed(&((uint8*)(_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0]))[(array_check((*_FUNC_IDESUBS_LONG_X)-_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[4],_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[5]))*998],998,1), 992 , 6 ,qbs_add(l2string(((int32*)(_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[0]))[array_check((*_FUNC_IDESUBS_LONG_X)-_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[4],_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[5])]),i2string(*_FUNC_IDESUBS_LONG_LISTITEMLENGTH)),1); -if(!qbevent)break;evnt(26070,13422,"ide_methods.bas");}while(r); -do{ -sub_mid(qbs_new_fixed(&((uint8*)(_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]))[(array_check((*_FUNC_IDESUBS_LONG_X)-_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[4],_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[5]))*998],998,1), 992 , 6 ,qbs_add(l2string(((int32*)(_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[0]))[array_check((*_FUNC_IDESUBS_LONG_X)-_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[4],_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[5])]),i2string(*_FUNC_IDESUBS_LONG_LISTITEMLENGTH)),1); -if(!qbevent)break;evnt(26070,13423,"ide_methods.bas");}while(r); -fornext_continue_5612:; -} -fornext_exit_5612:; -do{ -sub_mid(_FUNC_IDESUBS_STRING_L,func__instrrev(NULL,_FUNC_IDESUBS_STRING_L,func_chr( 195 ),0), 1 ,func_chr( 192 ),1); -if(!qbevent)break;evnt(26070,13426,"ide_methods.bas");}while(r); -do{ -sub_mid(_FUNC_IDESUBS_STRING_LSIZED,func__instrrev(NULL,_FUNC_IDESUBS_STRING_LSIZED,func_chr( 195 ),0), 1 ,func_chr( 192 ),1); -if(!qbevent)break;evnt(26070,13427,"ide_methods.bas");}while(r); -S_50754:; -if ((-(*_FUNC_IDESUBS_LONG_TOTALSUBS> 1 ))||new_error){ -if(qbevent){evnt(26070,13429,"ide_methods.bas");if(r)goto S_50754;} -do{ -SUB_SORT(_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13430,"ide_methods.bas");}while(r); -S_50756:; -fornext_value5623= 1 ; -fornext_finalvalue5623=*_FUNC_IDESUBS_LONG_TOTALSUBS; -fornext_step5623= 1 ; -if (fornext_step5623<0) fornext_step_negative5623=1; else fornext_step_negative5623=0; -if (new_error) goto fornext_error5623; -goto fornext_entrylabel5623; -while(1){ -fornext_value5623=fornext_step5623+(*_FUNC_IDESUBS_LONG_X); -fornext_entrylabel5623: -*_FUNC_IDESUBS_LONG_X=fornext_value5623; -if (fornext_step_negative5623){ -if (fornext_value5623fornext_finalvalue5623) break; -} -fornext_error5623:; -if(qbevent){evnt(26070,13432,"ide_methods.bas");if(r)goto S_50756;} -do{ -*_FUNC_IDESUBS_LONG_LISTITEMLENGTH=string2i(func_mid(qbs_new_fixed(&((uint8*)(_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]))[(array_check((*_FUNC_IDESUBS_LONG_X)-_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[4],_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[5]))*998],998,1),998- 2 , 2 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13433,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDESUBS_STRING_LYSORTED,qbs_add(_FUNC_IDESUBS_STRING_LYSORTED,func_mid(qbs_new_fixed(&((uint8*)(_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]))[(array_check((*_FUNC_IDESUBS_LONG_X)-_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[4],_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[5]))*998],998,1),998- 6 , 4 ,0|1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13434,"ide_methods.bas");}while(r); -S_50759:; -fornext_value5627= 1 ; -fornext_finalvalue5627=*_FUNC_IDESUBS_LONG_TOTALSUBS; -fornext_step5627= 1 ; -if (fornext_step5627<0) fornext_step_negative5627=1; else fornext_step_negative5627=0; -if (new_error) goto fornext_error5627; -goto fornext_entrylabel5627; -while(1){ -fornext_value5627=fornext_step5627+(*_FUNC_IDESUBS_LONG_RESTORECASEBKP); -fornext_entrylabel5627: -*_FUNC_IDESUBS_LONG_RESTORECASEBKP=fornext_value5627; -if (fornext_step_negative5627){ -if (fornext_value5627fornext_finalvalue5627) break; -} -fornext_error5627:; -if(qbevent){evnt(26070,13435,"ide_methods.bas");if(r)goto S_50759;} -S_50760:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(qbs_new_fixed(&((uint8*)(_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]))[(array_check((*_FUNC_IDESUBS_LONG_X)-_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[4],_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[5]))*998],998,1),998- 6 , 4 ,0|1),func_mid(qbs_new_fixed(&((uint8*)(_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0]))[(array_check((*_FUNC_IDESUBS_LONG_RESTORECASEBKP)-_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[4],_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[5]))*998],998,1),998- 6 , 4 ,0|1))))||new_error){ -if(qbevent){evnt(26070,13436,"ide_methods.bas");if(r)goto S_50760;} -do{ -qbs_set(_FUNC_IDESUBS_STRING_LSORTED,qbs_add(qbs_add(qbs_add(_FUNC_IDESUBS_STRING_LSORTED,_FUNC_IDESUBS_STRING1_SEP),func_chr( 195 )),func_chr( 196 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13437,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDESUBS_STRING_TEMP,qbs_left(qbs_new_fixed(&((uint8*)(_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0]))[(array_check((*_FUNC_IDESUBS_LONG_RESTORECASEBKP)-_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[4],_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[5]))*998],998,1),*_FUNC_IDESUBS_LONG_LISTITEMLENGTH)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13438,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDESUBS_STRING_LSORTED,qbs_add(qbs_add(_FUNC_IDESUBS_STRING_LSORTED,qbs_left(_FUNC_IDESUBS_STRING_TEMP,func_instr(NULL,_FUNC_IDESUBS_STRING_TEMP,func_chr( 1 ),0)- 1 )),func_mid(_FUNC_IDESUBS_STRING_TEMP,func_instr(NULL,_FUNC_IDESUBS_STRING_TEMP,func_chr( 1 ),0)+ 1 ,NULL,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13440,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDESUBS_STRING_NUM,qbs_ltrim(qbs_str((int32)(((int32*)(_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0]))[array_check((*_FUNC_IDESUBS_LONG_RESTORECASEBKP)-_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[4],_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13442,"ide_methods.bas");}while(r); -S_50765:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_IDESUBS_STRING_TEMP, 1 ),qbs_new_txt_len("*",1))))||new_error){ -if(qbevent){evnt(26070,13443,"ide_methods.bas");if(r)goto S_50765;} -do{ -qbs_set(_FUNC_IDESUBS_STRING_NUM,_FUNC_IDESUBS_STRING_EXTERNAL); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13443,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDESUBS_STRING_LSORTEDSIZED,qbs_add(qbs_add(qbs_add(_FUNC_IDESUBS_STRING_LSORTEDSIZED,_FUNC_IDESUBS_STRING1_SEP),func_chr( 195 )),func_chr( 196 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13444,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDESUBS_STRING_LSORTEDSIZED,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_IDESUBS_STRING_LSORTEDSIZED,qbs_left(_FUNC_IDESUBS_STRING_TEMP,func_instr(NULL,_FUNC_IDESUBS_STRING_TEMP,func_chr( 1 ),0)- 1 )),func_space(*_FUNC_IDESUBS_LONG_MAXLINECOUNTSPACE-_FUNC_IDESUBS_STRING_NUM->len)),func_chr( 16 )),func_chr( 2 )),_FUNC_IDESUBS_STRING_NUM),qbs_new_txt_len(" ",2)),func_mid(_FUNC_IDESUBS_STRING_TEMP,func_instr(NULL,_FUNC_IDESUBS_STRING_TEMP,func_chr( 1 ),0)+ 1 ,NULL,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13447,"ide_methods.bas");}while(r); -do{ -goto fornext_exit_5626; -if(!qbevent)break;evnt(26070,13448,"ide_methods.bas");}while(r); -} -fornext_continue_5626:; -} -fornext_exit_5626:; -fornext_continue_5622:; -} -fornext_exit_5622:; -do{ -sub_mid(_FUNC_IDESUBS_STRING_LSORTED,func__instrrev(NULL,_FUNC_IDESUBS_STRING_LSORTED,func_chr( 195 ),0), 1 ,func_chr( 192 ),1); -if(!qbevent)break;evnt(26070,13453,"ide_methods.bas");}while(r); -do{ -sub_mid(_FUNC_IDESUBS_STRING_LSORTEDSIZED,func__instrrev(NULL,_FUNC_IDESUBS_STRING_LSORTEDSIZED,func_chr( 195 ),0), 1 ,func_chr( 192 ),1); -if(!qbevent)break;evnt(26070,13454,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDESUBS_LONG_SORTEDSUBSFLAG=*__BYTE_IDESORTSUBS; -if(!qbevent)break;evnt(26070,13455,"ide_methods.bas");}while(r); -}else{ -do{ -*_FUNC_IDESUBS_LONG_SORTEDSUBSFLAG= 0 ; -if(!qbevent)break;evnt(26070,13457,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDESUBS_LONG_I= 0 ; -if(!qbevent)break;evnt(26070,13461,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDESUBS_LONG_DIALOGHEIGHT=*_FUNC_IDESUBS_LONG_TOTALSUBS+ 4 ; -if(!qbevent)break;evnt(26070,13462,"ide_methods.bas");}while(r); -S_50782:; -if ((-(*_FUNC_IDESUBS_LONG_DIALOGHEIGHT>(*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 6 )))||new_error){ -if(qbevent){evnt(26070,13463,"ide_methods.bas");if(r)goto S_50782;} -do{ -*_FUNC_IDESUBS_LONG_DIALOGHEIGHT=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 6 ; -if(!qbevent)break;evnt(26070,13464,"ide_methods.bas");}while(r); -} -S_50785:; -if ((-((*_FUNC_IDESUBS_LONG_ARGSLENGTH+*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN+*_FUNC_IDESUBS_LONG_MAXLINECOUNTSPACE+ 20 )>*_FUNC_IDESUBS_LONG_DIALOGWIDTH))||new_error){ -if(qbevent){evnt(26070,13467,"ide_methods.bas");if(r)goto S_50785;} -do{ -*_FUNC_IDESUBS_LONG_DIALOGWIDTH=*_FUNC_IDESUBS_LONG_ARGSLENGTH+*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN+*_FUNC_IDESUBS_LONG_MAXLINECOUNTSPACE+ 20 ; -if(!qbevent)break;evnt(26070,13467,"ide_methods.bas");}while(r); -} -S_50788:; -if ((-(*_FUNC_IDESUBS_LONG_DIALOGWIDTH>(*__LONG_IDEWX- 8 )))||new_error){ -if(qbevent){evnt(26070,13468,"ide_methods.bas");if(r)goto S_50788;} -do{ -*_FUNC_IDESUBS_LONG_DIALOGWIDTH=*__LONG_IDEWX- 8 ; -if(!qbevent)break;evnt(26070,13468,"ide_methods.bas");}while(r); -} -do{ -SUB_IDEPAR((void*)( ((char*)(_FUNC_IDESUBS_UDT_P)) + (0) ),_FUNC_IDESUBS_LONG_DIALOGWIDTH,_FUNC_IDESUBS_LONG_DIALOGHEIGHT,qbs_new_txt_len("SUBs",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13470,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDESUBS_LONG_I=*_FUNC_IDESUBS_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,13472,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+36))= 2 ; -if(!qbevent)break;evnt(26070,13473,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+24))= 1 ; -if(!qbevent)break;evnt(26070,13474,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+28))=*_FUNC_IDESUBS_LONG_DIALOGWIDTH- 4 ; -if(!qbevent)break;evnt(26070,13476,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+32))=*_FUNC_IDESUBS_LONG_DIALOGHEIGHT- 3 ; -if(!qbevent)break;evnt(26070,13476,"ide_methods.bas");}while(r); -S_50797:; -if ((-(*_FUNC_IDESUBS_LONG_SORTEDSUBSFLAG== 0 ))||new_error){ -if(qbevent){evnt(26070,13477,"ide_methods.bas");if(r)goto S_50797;} -S_50798:; -if ((*__BYTE_IDESUBSLENGTH)||new_error){ -if(qbevent){evnt(26070,13478,"ide_methods.bas");if(r)goto S_50798;} -do{ -*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDESUBS_STRING_LSIZED); -if(!qbevent)break;evnt(26070,13479,"ide_methods.bas");}while(r); -}else{ -do{ -*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDESUBS_STRING_L); -if(!qbevent)break;evnt(26070,13481,"ide_methods.bas");}while(r); -} -S_50803:; -if ((-(*_FUNC_IDESUBS_LONG_PREFERCURRENTCURSORSUBFUNC!= 0 ))||new_error){ -if(qbevent){evnt(26070,13484,"ide_methods.bas");if(r)goto S_50803;} -do{ -*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+64))=*_FUNC_IDESUBS_LONG_PREFERCURRENTCURSORSUBFUNC; -if(!qbevent)break;evnt(26070,13485,"ide_methods.bas");}while(r); -}else{ -do{ -*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+64))=*_FUNC_IDESUBS_LONG_CURRENTLYVIEWINGWHICHSUBFUNC; -if(!qbevent)break;evnt(26070,13487,"ide_methods.bas");}while(r); -} -}else{ -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDESUBS_STRING_LSORTED); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13490,"ide_methods.bas");}while(r); -S_50810:; -if ((*__BYTE_IDESUBSLENGTH)||new_error){ -if(qbevent){evnt(26070,13491,"ide_methods.bas");if(r)goto S_50810;} -do{ -*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDESUBS_STRING_LSORTEDSIZED); -if(!qbevent)break;evnt(26070,13492,"ide_methods.bas");}while(r); -}else{ -do{ -*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDESUBS_STRING_LSORTED); -if(!qbevent)break;evnt(26070,13494,"ide_methods.bas");}while(r); -} -S_50815:; -if ((-(*_FUNC_IDESUBS_LONG_PREFERCURRENTCURSORSUBFUNC!= 0 ))||new_error){ -if(qbevent){evnt(26070,13496,"ide_methods.bas");if(r)goto S_50815;} -S_50816:; -fornext_value5632= 1 ; -fornext_finalvalue5632=*_FUNC_IDESUBS_LONG_TOTALSUBS; -fornext_step5632= 1 ; -if (fornext_step5632<0) fornext_step_negative5632=1; else fornext_step_negative5632=0; -if (new_error) goto fornext_error5632; -goto fornext_entrylabel5632; -while(1){ -fornext_value5632=fornext_step5632+(*_FUNC_IDESUBS_LONG_X); -fornext_entrylabel5632: -*_FUNC_IDESUBS_LONG_X=fornext_value5632; -if (fornext_step_negative5632){ -if (fornext_value5632fornext_finalvalue5632) break; -} -fornext_error5632:; -if(qbevent){evnt(26070,13497,"ide_methods.bas");if(r)goto S_50816;} -S_50817:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_IDESUBS_STRING_LY,(*_FUNC_IDESUBS_LONG_PREFERCURRENTCURSORSUBFUNC* 4 )-( 3 ), 4 ,0|1),func_mid(qbs_new_fixed(&((uint8*)(_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]))[(array_check((*_FUNC_IDESUBS_LONG_X)-_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[4],_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[5]))*998],998,1),998- 6 , 4 ,0|1))))||new_error){ -if(qbevent){evnt(26070,13498,"ide_methods.bas");if(r)goto S_50817;} -do{ -*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+64))=*_FUNC_IDESUBS_LONG_X+ 1 ; -if(!qbevent)break;evnt(26070,13499,"ide_methods.bas");}while(r); -do{ -goto fornext_exit_5631; -if(!qbevent)break;evnt(26070,13500,"ide_methods.bas");}while(r); -} -fornext_continue_5631:; -} -fornext_exit_5631:; -}else{ -S_50823:; -fornext_value5635= 1 ; -fornext_finalvalue5635=*_FUNC_IDESUBS_LONG_TOTALSUBS; -fornext_step5635= 1 ; -if (fornext_step5635<0) fornext_step_negative5635=1; else fornext_step_negative5635=0; -if (new_error) goto fornext_error5635; -goto fornext_entrylabel5635; -while(1){ -fornext_value5635=fornext_step5635+(*_FUNC_IDESUBS_LONG_X); -fornext_entrylabel5635: -*_FUNC_IDESUBS_LONG_X=fornext_value5635; -if (fornext_step_negative5635){ -if (fornext_value5635fornext_finalvalue5635) break; -} -fornext_error5635:; -if(qbevent){evnt(26070,13504,"ide_methods.bas");if(r)goto S_50823;} -S_50824:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_IDESUBS_STRING_LY,(*_FUNC_IDESUBS_LONG_CURRENTLYVIEWINGWHICHSUBFUNC* 4 )-( 3 ), 4 ,0|1),func_mid(qbs_new_fixed(&((uint8*)(_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]))[(array_check((*_FUNC_IDESUBS_LONG_X)-_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[4],_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[5]))*998],998,1),998- 6 , 4 ,0|1))))||new_error){ -if(qbevent){evnt(26070,13505,"ide_methods.bas");if(r)goto S_50824;} -do{ -*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+64))=*_FUNC_IDESUBS_LONG_X+ 1 ; -if(!qbevent)break;evnt(26070,13506,"ide_methods.bas");}while(r); -do{ -goto fornext_exit_5634; -if(!qbevent)break;evnt(26070,13507,"ide_methods.bas");}while(r); -} -fornext_continue_5634:; -} -fornext_exit_5634:; -} -} -do{ -*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("Program Items",13)); -if(!qbevent)break;evnt(26070,13512,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDESUBS_LONG_I=*_FUNC_IDESUBS_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,13514,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+36))= 4 ; -if(!qbevent)break;evnt(26070,13515,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+20))= 2 ; -if(!qbevent)break;evnt(26070,13516,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+24))=*_FUNC_IDESUBS_LONG_DIALOGHEIGHT; -if(!qbevent)break;evnt(26070,13517,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Line Count",11)); -if(!qbevent)break;evnt(26070,13518,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+64))=*__BYTE_IDESUBSLENGTH; -if(!qbevent)break;evnt(26070,13519,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDESUBS_LONG_I=*_FUNC_IDESUBS_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,13521,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+36))= 4 ; -if(!qbevent)break;evnt(26070,13522,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+20))= 18 ; -if(!qbevent)break;evnt(26070,13523,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+24))=*_FUNC_IDESUBS_LONG_DIALOGHEIGHT; -if(!qbevent)break;evnt(26070,13524,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Sort",5)); -if(!qbevent)break;evnt(26070,13525,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+64))=*_FUNC_IDESUBS_LONG_SORTEDSUBSFLAG; -if(!qbevent)break;evnt(26070,13526,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDESUBS_LONG_I=*_FUNC_IDESUBS_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,13528,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+36))= 3 ; -if(!qbevent)break;evnt(26070,13529,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+28))= 26 ; -if(!qbevent)break;evnt(26070,13530,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+20))=*_FUNC_IDESUBS_LONG_DIALOGWIDTH- 22 ; -if(!qbevent)break;evnt(26070,13531,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+24))=*_FUNC_IDESUBS_LONG_DIALOGHEIGHT; -if(!qbevent)break;evnt(26070,13532,"ide_methods.bas");}while(r); -S_50849:; -if ((-(*__LONG_IDEDEBUGMODE== 0 ))||new_error){ -if(qbevent){evnt(26070,13533,"ide_methods.bas");if(r)goto S_50849;} -do{ -*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_new_txt_len("#Edit",5),_FUNC_IDESUBS_STRING1_SEP),qbs_new_txt_len("#Cancel",7))); -if(!qbevent)break;evnt(26070,13534,"ide_methods.bas");}while(r); -}else{ -do{ -*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_new_txt_len("#View",5),_FUNC_IDESUBS_STRING1_SEP),qbs_new_txt_len("#Cancel",7))); -if(!qbevent)break;evnt(26070,13536,"ide_methods.bas");}while(r); -} -do{ -*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+48))= 1 ; -if(!qbevent)break;evnt(26070,13538,"ide_methods.bas");}while(r); -S_50855:; -fornext_value5638= 1 ; -fornext_finalvalue5638= 100 ; -fornext_step5638= 1 ; -if (fornext_step5638<0) fornext_step_negative5638=1; else fornext_step_negative5638=0; -if (new_error) goto fornext_error5638; -goto fornext_entrylabel5638; -while(1){ -fornext_value5638=fornext_step5638+(*_FUNC_IDESUBS_LONG_I); -fornext_entrylabel5638: -*_FUNC_IDESUBS_LONG_I=fornext_value5638; -if (fornext_step_negative5638){ -if (fornext_value5638fornext_finalvalue5638) break; -} -fornext_error5638:; -if(qbevent){evnt(26070,13544,"ide_methods.bas");if(r)goto S_50855;} -do{ -memcpy(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89)+ 0,((char*)_FUNC_IDESUBS_UDT_P)+(0)+ 0, 20); -if(!qbevent)break;evnt(26070,13544,"ide_methods.bas");}while(r); -fornext_continue_5637:; -} -fornext_exit_5637:; -S_50858:; -do{ -if(qbevent){evnt(26070,13547,"ide_methods.bas");if(r)goto S_50858;} -do{ -SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDESUBS_UDT_P)) + (0) )); -if(!qbevent)break;evnt(26070,13550,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDESUBS_LONG_F= 1 ; -if(!qbevent)break;evnt(26070,13551,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDESUBS_LONG_CX= 0 ; -if(!qbevent)break;evnt(26070,13551,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDESUBS_LONG_CY= 0 ; -if(!qbevent)break;evnt(26070,13551,"ide_methods.bas");}while(r); -S_50863:; -fornext_value5641= 1 ; -fornext_finalvalue5641= 100 ; -fornext_step5641= 1 ; -if (fornext_step5641<0) fornext_step_negative5641=1; else fornext_step_negative5641=0; -if (new_error) goto fornext_error5641; -goto fornext_entrylabel5641; -while(1){ -fornext_value5641=fornext_step5641+(*_FUNC_IDESUBS_LONG_I); -fornext_entrylabel5641: -*_FUNC_IDESUBS_LONG_I=fornext_value5641; -if (fornext_step_negative5641){ -if (fornext_value5641fornext_finalvalue5641) break; -} -fornext_error5641:; -if(qbevent){evnt(26070,13552,"ide_methods.bas");if(r)goto S_50863;} -S_50864:; -if ((*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+36)))||new_error){ -if(qbevent){evnt(26070,13553,"ide_methods.bas");if(r)goto S_50864;} -do{ -*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+60))=*_FUNC_IDESUBS_LONG_FOCUS-*_FUNC_IDESUBS_LONG_F; -if(!qbevent)break;evnt(26070,13556,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+52))= 0 ; -if(!qbevent)break;evnt(26070,13557,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+56))= 0 ; -if(!qbevent)break;evnt(26070,13557,"ide_methods.bas");}while(r); -do{ -SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDESUBS_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89) ),_FUNC_IDESUBS_LONG_F); -if(!qbevent)break;evnt(26070,13558,"ide_methods.bas");}while(r); -S_50869:; -if ((*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+52)))||new_error){ -if(qbevent){evnt(26070,13559,"ide_methods.bas");if(r)goto S_50869;} -do{ -*_FUNC_IDESUBS_LONG_CX=*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+52)); -if(!qbevent)break;evnt(26070,13559,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDESUBS_LONG_CY=*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+56)); -if(!qbevent)break;evnt(26070,13559,"ide_methods.bas");}while(r); -} -} -fornext_continue_5640:; -} -fornext_exit_5640:; -do{ -*_FUNC_IDESUBS_LONG_LASTFOCUS=*_FUNC_IDESUBS_LONG_F- 1 ; -if(!qbevent)break;evnt(26070,13562,"ide_methods.bas");}while(r); -S_50876:; -if ((*_FUNC_IDESUBS_LONG_FOUNDEXTERNALSUBFUNC)||new_error){ -if(qbevent){evnt(26070,13566,"ide_methods.bas");if(r)goto S_50876;} -do{ -qbg_sub_color( 2 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,13567,"ide_methods.bas");}while(r); -do{ -sub__printstring(*(int32*)(((char*)_FUNC_IDESUBS_UDT_P)+(0))+*(int32*)(((char*)_FUNC_IDESUBS_UDT_P)+(8))- 32 ,*(int32*)(((char*)_FUNC_IDESUBS_UDT_P)+(4))+*(int32*)(((char*)_FUNC_IDESUBS_UDT_P)+(12)),qbs_new_txt_len("* external",10),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13568,"ide_methods.bas");}while(r); -} -do{ -sub_pcopy( 1 , 0 ); -if(!qbevent)break;evnt(26070,13573,"ide_methods.bas");}while(r); -S_50881:; -if ((*_FUNC_IDESUBS_LONG_CX)||new_error){ -if(qbevent){evnt(26070,13574,"ide_methods.bas");if(r)goto S_50881;} -do{ -qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,13574,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*_FUNC_IDESUBS_LONG_CY,*_FUNC_IDESUBS_LONG_CX, 1 ,NULL,NULL,7); -if(!qbevent)break;evnt(26070,13574,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,13574,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDESUBS_LONG_CHANGE= 0 ; -if(!qbevent)break;evnt(26070,13577,"ide_methods.bas");}while(r); -S_50887:; -do{ -if(qbevent){evnt(26070,13578,"ide_methods.bas");if(r)goto S_50887;} -do{ -SUB_GETINPUT(); -if(!qbevent)break;evnt(26070,13579,"ide_methods.bas");}while(r); -S_50889:; -if ((*__LONG_MWHEEL)||new_error){ -if(qbevent){evnt(26070,13580,"ide_methods.bas");if(r)goto S_50889;} -do{ -*_FUNC_IDESUBS_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,13580,"ide_methods.bas");}while(r); -} -S_50892:; -if ((*__LONG_KB)||new_error){ -if(qbevent){evnt(26070,13581,"ide_methods.bas");if(r)goto S_50892;} -do{ -*_FUNC_IDESUBS_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,13581,"ide_methods.bas");}while(r); -} -S_50895:; -if ((*__LONG_MCLICK)||new_error){ -if(qbevent){evnt(26070,13582,"ide_methods.bas");if(r)goto S_50895;} -do{ -*_FUNC_IDESUBS_LONG_MOUSEDOWN= 1 ; -if(!qbevent)break;evnt(26070,13582,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDESUBS_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,13582,"ide_methods.bas");}while(r); -} -S_50899:; -if ((*__LONG_MRELEASE)||new_error){ -if(qbevent){evnt(26070,13583,"ide_methods.bas");if(r)goto S_50899;} -do{ -*_FUNC_IDESUBS_LONG_MOUSEUP= 1 ; -if(!qbevent)break;evnt(26070,13583,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDESUBS_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,13583,"ide_methods.bas");}while(r); -} -S_50903:; -if ((*__LONG_MB)||new_error){ -if(qbevent){evnt(26070,13584,"ide_methods.bas");if(r)goto S_50903;} -do{ -*_FUNC_IDESUBS_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,13584,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDESUBS_LONG_ALT=*__LONG_KALT; -if(!qbevent)break;evnt(26070,13585,"ide_methods.bas");}while(r); -S_50907:; -if ((-(*_FUNC_IDESUBS_LONG_ALT!=*_FUNC_IDESUBS_LONG_OLDALT))||new_error){ -if(qbevent){evnt(26070,13585,"ide_methods.bas");if(r)goto S_50907;} -do{ -*_FUNC_IDESUBS_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,13585,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDESUBS_LONG_OLDALT=*_FUNC_IDESUBS_LONG_ALT; -if(!qbevent)break;evnt(26070,13586,"ide_methods.bas");}while(r); -do{ -sub__limit( 100 ); -if(!qbevent)break;evnt(26070,13587,"ide_methods.bas");}while(r); -S_50912:; -dl_continue_5642:; -}while((!(*_FUNC_IDESUBS_LONG_CHANGE))&&(!new_error)); -dl_exit_5642:; -if(qbevent){evnt(26070,13588,"ide_methods.bas");if(r)goto S_50912;} -S_50913:; -if ((*_FUNC_IDESUBS_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(26070,13589,"ide_methods.bas");if(r)goto S_50913;} -do{ -*__LONG_IDEHL= 1 ; -if(!qbevent)break;evnt(26070,13589,"ide_methods.bas");}while(r); -}else{ -do{ -*__LONG_IDEHL= 0 ; -if(!qbevent)break;evnt(26070,13589,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDESUBS_STRING_ALTLETTER,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13591,"ide_methods.bas");}while(r); -S_50919:; -if ((*_FUNC_IDESUBS_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(26070,13592,"ide_methods.bas");if(r)goto S_50919;} -S_50920:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ -if(qbevent){evnt(26070,13593,"ide_methods.bas");if(r)goto S_50920;} -do{ -*_FUNC_IDESUBS_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13594,"ide_methods.bas");}while(r); -S_50922:; -if (((-(*_FUNC_IDESUBS_LONG_K>= 65 ))&(-(*_FUNC_IDESUBS_LONG_K<= 90 )))||new_error){ -if(qbevent){evnt(26070,13595,"ide_methods.bas");if(r)goto S_50922;} -do{ -qbs_set(_FUNC_IDESUBS_STRING_ALTLETTER,func_chr(*_FUNC_IDESUBS_LONG_K)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13595,"ide_methods.bas");}while(r); -} -} -} -do{ -qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,13598,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); -if(!qbevent)break;evnt(26070,13598,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,13598,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDESUBS_LONG_INFO= 0 ; -if(!qbevent)break;evnt(26070,13602,"ide_methods.bas");}while(r); -S_50931:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,13603,"ide_methods.bas");if(r)goto S_50931;} -do{ -qbs_set(__STRING_K,func_chr( 255 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13603,"ide_methods.bas");}while(r); -} -S_50934:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ -if(qbevent){evnt(26070,13604,"ide_methods.bas");if(r)goto S_50934;} -do{ -*_FUNC_IDESUBS_LONG_FOCUS=*_FUNC_IDESUBS_LONG_FOCUS+ 1 ; -if(!qbevent)break;evnt(26070,13604,"ide_methods.bas");}while(r); -} -S_50937:; -if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||new_error){ -if(qbevent){evnt(26070,13605,"ide_methods.bas");if(r)goto S_50937;} -do{ -*_FUNC_IDESUBS_LONG_FOCUS=*_FUNC_IDESUBS_LONG_FOCUS- 1 ; -if(!qbevent)break;evnt(26070,13605,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_K,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13605,"ide_methods.bas");}while(r); -} -S_50941:; -if ((-(*_FUNC_IDESUBS_LONG_FOCUS< 1 ))||new_error){ -if(qbevent){evnt(26070,13606,"ide_methods.bas");if(r)goto S_50941;} -do{ -*_FUNC_IDESUBS_LONG_FOCUS=*_FUNC_IDESUBS_LONG_LASTFOCUS; -if(!qbevent)break;evnt(26070,13606,"ide_methods.bas");}while(r); -} -S_50944:; -if ((-(*_FUNC_IDESUBS_LONG_FOCUS>*_FUNC_IDESUBS_LONG_LASTFOCUS))||new_error){ -if(qbevent){evnt(26070,13607,"ide_methods.bas");if(r)goto S_50944;} -do{ -*_FUNC_IDESUBS_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(26070,13607,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDESUBS_LONG_F= 1 ; -if(!qbevent)break;evnt(26070,13608,"ide_methods.bas");}while(r); -S_50948:; -fornext_value5645= 1 ; -fornext_finalvalue5645= 100 ; -fornext_step5645= 1 ; -if (fornext_step5645<0) fornext_step_negative5645=1; else fornext_step_negative5645=0; -if (new_error) goto fornext_error5645; -goto fornext_entrylabel5645; -while(1){ -fornext_value5645=fornext_step5645+(*_FUNC_IDESUBS_LONG_I); -fornext_entrylabel5645: -*_FUNC_IDESUBS_LONG_I=fornext_value5645; -if (fornext_step_negative5645){ -if (fornext_value5645fornext_finalvalue5645) break; -} -fornext_error5645:; -if(qbevent){evnt(26070,13609,"ide_methods.bas");if(r)goto S_50948;} -do{ -*_FUNC_IDESUBS_LONG_T=*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+36)); -if(!qbevent)break;evnt(26070,13610,"ide_methods.bas");}while(r); -S_50950:; -if ((*_FUNC_IDESUBS_LONG_T)||new_error){ -if(qbevent){evnt(26070,13611,"ide_methods.bas");if(r)goto S_50950;} -do{ -*_FUNC_IDESUBS_LONG_FOCUSOFFSET=*_FUNC_IDESUBS_LONG_FOCUS-*_FUNC_IDESUBS_LONG_F; -if(!qbevent)break;evnt(26070,13612,"ide_methods.bas");}while(r); -do{ -SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDESUBS_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89) ),_FUNC_IDESUBS_LONG_FOCUS,_FUNC_IDESUBS_LONG_F,_FUNC_IDESUBS_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDESUBS_STRING_ALTLETTER,__LONG_MB,_FUNC_IDESUBS_LONG_MOUSEDOWN,_FUNC_IDESUBS_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDESUBS_LONG_INFO,__LONG_MWHEEL); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13613,"ide_methods.bas");}while(r); -} -fornext_continue_5644:; -} -fornext_exit_5644:; -S_50955:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 27 )))|(((-(*_FUNC_IDESUBS_LONG_FOCUS== 5 ))&(-(*_FUNC_IDESUBS_LONG_INFO!= 0 ))))))||new_error){ -if(qbevent){evnt(26070,13618,"ide_methods.bas");if(r)goto S_50955;} -do{ -qbs_set(_FUNC_IDESUBS_STRING_IDESUBS,qbs_new_txt_len("C",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13619,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=164; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_SAVESORTSETTINGS; -RETURN_164:; -if(!qbevent)break;evnt(26070,13620,"ide_methods.bas");}while(r); -do{ -SUB_CLEARMOUSE(); -if(!qbevent)break;evnt(26070,13621,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,13622,"ide_methods.bas");}while(r); -} -S_50961:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 13 )))|(((-(*_FUNC_IDESUBS_LONG_FOCUS== 4 ))&(-(*_FUNC_IDESUBS_LONG_INFO!= 0 ))))|(((-(*_FUNC_IDESUBS_LONG_INFO== 1 ))&(-(*_FUNC_IDESUBS_LONG_FOCUS== 1 ))))))||new_error){ -if(qbevent){evnt(26070,13625,"ide_methods.bas");if(r)goto S_50961;} -do{ -*_FUNC_IDESUBS_LONG_Y=*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+64)); -if(!qbevent)break;evnt(26070,13626,"ide_methods.bas");}while(r); -S_50963:; -if ((-(*_FUNC_IDESUBS_LONG_Y< 1 ))||new_error){ -if(qbevent){evnt(26070,13627,"ide_methods.bas");if(r)goto S_50963;} -do{ -*_FUNC_IDESUBS_LONG_Y=-(*_FUNC_IDESUBS_LONG_Y); -if(!qbevent)break;evnt(26070,13627,"ide_methods.bas");}while(r); -} -do{ -SUB_ADDQUICKNAVHISTORY(); -if(!qbevent)break;evnt(26070,13628,"ide_methods.bas");}while(r); -S_50967:; -if ((-(*_FUNC_IDESUBS_LONG_SORTEDSUBSFLAG== 0 ))||new_error){ -if(qbevent){evnt(26070,13629,"ide_methods.bas");if(r)goto S_50967;} -do{ -*__LONG_IDECY=string2l(func_mid(_FUNC_IDESUBS_STRING_LY,(*_FUNC_IDESUBS_LONG_Y* 4 )-( 3 ), 4 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13630,"ide_methods.bas");}while(r); -}else{ -do{ -*__LONG_IDECY=string2l(func_mid(_FUNC_IDESUBS_STRING_LYSORTED,(*_FUNC_IDESUBS_LONG_Y* 4 )-( 3 ), 4 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13632,"ide_methods.bas");}while(r); -} -do{ -*__LONG_IDESY=*__LONG_IDECY; -if(!qbevent)break;evnt(26070,13634,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECX= 1 ; -if(!qbevent)break;evnt(26070,13635,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESX= 1 ; -if(!qbevent)break;evnt(26070,13636,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=165; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_SAVESORTSETTINGS; -RETURN_165:; -if(!qbevent)break;evnt(26070,13638,"ide_methods.bas");}while(r); -do{ -SUB_CLEARMOUSE(); -if(!qbevent)break;evnt(26070,13639,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,13640,"ide_methods.bas");}while(r); -} -S_50979:; -if ((-(*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+64))!=*__BYTE_IDESUBSLENGTH))||new_error){ -if(qbevent){evnt(26070,13643,"ide_methods.bas");if(r)goto S_50979;} -do{ -*__BYTE_IDESUBSLENGTH=*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+64)); -if(!qbevent)break;evnt(26070,13644,"ide_methods.bas");}while(r); -S_50981:; -if ((*__BYTE_IDESUBSLENGTH)||new_error){ -if(qbevent){evnt(26070,13645,"ide_methods.bas");if(r)goto S_50981;} -S_50982:; -if ((*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+64)))||new_error){ -if(qbevent){evnt(26070,13646,"ide_methods.bas");if(r)goto S_50982;} -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDESUBS_STRING_LSORTEDSIZED); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13647,"ide_methods.bas");}while(r); -}else{ -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDESUBS_STRING_LSIZED); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13649,"ide_methods.bas");}while(r); -} -}else{ -S_50988:; -if ((*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+64)))||new_error){ -if(qbevent){evnt(26070,13652,"ide_methods.bas");if(r)goto S_50988;} -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDESUBS_STRING_LSORTED); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13653,"ide_methods.bas");}while(r); -}else{ -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDESUBS_STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13655,"ide_methods.bas");}while(r); -} -} -do{ -*_FUNC_IDESUBS_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(26070,13658,"ide_methods.bas");}while(r); -} -S_50996:; -if ((-(*_FUNC_IDESUBS_LONG_TOTALSUBS> 1 ))||new_error){ -if(qbevent){evnt(26070,13661,"ide_methods.bas");if(r)goto S_50996;} -S_50997:; -if ((-(*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+64))!=*_FUNC_IDESUBS_LONG_SORTEDSUBSFLAG))||new_error){ -if(qbevent){evnt(26070,13662,"ide_methods.bas");if(r)goto S_50997;} -do{ -*_FUNC_IDESUBS_LONG_SORTEDSUBSFLAG=*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+64)); -if(!qbevent)break;evnt(26070,13663,"ide_methods.bas");}while(r); -S_50999:; -if ((-(*_FUNC_IDESUBS_LONG_SORTEDSUBSFLAG== 0 ))||new_error){ -if(qbevent){evnt(26070,13665,"ide_methods.bas");if(r)goto S_50999;} -do{ -*_FUNC_IDESUBS_LONG_PREVIOUSSELECTION= -1 ; -if(!qbevent)break;evnt(26070,13667,"ide_methods.bas");}while(r); -S_51001:; -if ((-(*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+64))> 0 ))||new_error){ -if(qbevent){evnt(26070,13668,"ide_methods.bas");if(r)goto S_51001;} -do{ -qbs_set(_FUNC_IDESUBS_STRING_TARGETSOURCELINE,func_mid(_FUNC_IDESUBS_STRING_LYSORTED,(*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+64))* 4 )-( 3 ), 4 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13669,"ide_methods.bas");}while(r); -S_51003:; -fornext_value5647= 1 ; -fornext_finalvalue5647=*_FUNC_IDESUBS_LONG_TOTALSUBS; -fornext_step5647= 1 ; -if (fornext_step5647<0) fornext_step_negative5647=1; else fornext_step_negative5647=0; -if (new_error) goto fornext_error5647; -goto fornext_entrylabel5647; -while(1){ -fornext_value5647=fornext_step5647+(*_FUNC_IDESUBS_LONG_X); -fornext_entrylabel5647: -*_FUNC_IDESUBS_LONG_X=fornext_value5647; -if (fornext_step_negative5647){ -if (fornext_value5647fornext_finalvalue5647) break; -} -fornext_error5647:; -if(qbevent){evnt(26070,13670,"ide_methods.bas");if(r)goto S_51003;} -S_51004:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_IDESUBS_STRING_LY,(*_FUNC_IDESUBS_LONG_X* 4 )-( 3 ), 4 ,0|1),_FUNC_IDESUBS_STRING_TARGETSOURCELINE)))||new_error){ -if(qbevent){evnt(26070,13671,"ide_methods.bas");if(r)goto S_51004;} -do{ -*_FUNC_IDESUBS_LONG_PREVIOUSSELECTION=*_FUNC_IDESUBS_LONG_X; -if(!qbevent)break;evnt(26070,13672,"ide_methods.bas");}while(r); -} -fornext_continue_5646:; -} -fornext_exit_5646:; -} -S_51009:; -if ((*__BYTE_IDESUBSLENGTH)||new_error){ -if(qbevent){evnt(26070,13677,"ide_methods.bas");if(r)goto S_51009;} -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDESUBS_STRING_LSIZED); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13678,"ide_methods.bas");}while(r); -}else{ -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDESUBS_STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13680,"ide_methods.bas");}while(r); -} -do{ -*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+64))=*_FUNC_IDESUBS_LONG_PREVIOUSSELECTION; -if(!qbevent)break;evnt(26070,13682,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDESUBS_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(26070,13683,"ide_methods.bas");}while(r); -}else{ -do{ -*_FUNC_IDESUBS_LONG_PREVIOUSSELECTION= -1 ; -if(!qbevent)break;evnt(26070,13686,"ide_methods.bas");}while(r); -S_51018:; -if ((-(*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+64))> 0 ))||new_error){ -if(qbevent){evnt(26070,13687,"ide_methods.bas");if(r)goto S_51018;} -do{ -qbs_set(_FUNC_IDESUBS_STRING_TARGETSOURCELINE,func_mid(_FUNC_IDESUBS_STRING_LY,(*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+64))* 4 )-( 3 ), 4 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13688,"ide_methods.bas");}while(r); -S_51020:; -fornext_value5649= 1 ; -fornext_finalvalue5649=*_FUNC_IDESUBS_LONG_TOTALSUBS; -fornext_step5649= 1 ; -if (fornext_step5649<0) fornext_step_negative5649=1; else fornext_step_negative5649=0; -if (new_error) goto fornext_error5649; -goto fornext_entrylabel5649; -while(1){ -fornext_value5649=fornext_step5649+(*_FUNC_IDESUBS_LONG_X); -fornext_entrylabel5649: -*_FUNC_IDESUBS_LONG_X=fornext_value5649; -if (fornext_step_negative5649){ -if (fornext_value5649fornext_finalvalue5649) break; -} -fornext_error5649:; -if(qbevent){evnt(26070,13689,"ide_methods.bas");if(r)goto S_51020;} -S_51021:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_IDESUBS_STRING_LYSORTED,(*_FUNC_IDESUBS_LONG_X* 4 )-( 3 ), 4 ,0|1),_FUNC_IDESUBS_STRING_TARGETSOURCELINE)))||new_error){ -if(qbevent){evnt(26070,13690,"ide_methods.bas");if(r)goto S_51021;} -do{ -*_FUNC_IDESUBS_LONG_PREVIOUSSELECTION=*_FUNC_IDESUBS_LONG_X; -if(!qbevent)break;evnt(26070,13691,"ide_methods.bas");}while(r); -} -fornext_continue_5648:; -} -fornext_exit_5648:; -} -S_51026:; -if ((*__BYTE_IDESUBSLENGTH)||new_error){ -if(qbevent){evnt(26070,13696,"ide_methods.bas");if(r)goto S_51026;} -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDESUBS_STRING_LSORTEDSIZED); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13697,"ide_methods.bas");}while(r); -}else{ -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDESUBS_STRING_LSORTED); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13699,"ide_methods.bas");}while(r); -} -do{ -*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+64))=*_FUNC_IDESUBS_LONG_PREVIOUSSELECTION; -if(!qbevent)break;evnt(26070,13701,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDESUBS_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(26070,13702,"ide_methods.bas");}while(r); -} -} -} -do{ -*_FUNC_IDESUBS_LONG_MOUSEDOWN= 0 ; -if(!qbevent)break;evnt(26070,13708,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDESUBS_LONG_MOUSEUP= 0 ; -if(!qbevent)break;evnt(26070,13709,"ide_methods.bas");}while(r); -dl_continue_5639:; -}while(1); -dl_exit_5639:; -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,13712,"ide_methods.bas");}while(r); -LABEL_SAVESORTSETTINGS:; -if(qbevent){evnt(26070,13713,"ide_methods.bas");r=0;} -do{ -*__BYTE_IDESORTSUBS=*_FUNC_IDESUBS_LONG_SORTEDSUBSFLAG; -if(!qbevent)break;evnt(26070,13714,"ide_methods.bas");}while(r); -S_51041:; -if ((*__BYTE_IDESORTSUBS)||new_error){ -if(qbevent){evnt(26070,13715,"ide_methods.bas");if(r)goto S_51041;} -do{ -SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_SortSUBs",12),qbs_new_txt_len("True",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13716,"ide_methods.bas");}while(r); -}else{ -do{ -SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_SortSUBs",12),qbs_new_txt_len("False",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13718,"ide_methods.bas");}while(r); -} -S_51046:; -if ((*__BYTE_IDESUBSLENGTH)||new_error){ -if(qbevent){evnt(26070,13721,"ide_methods.bas");if(r)goto S_51046;} -do{ -SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_SUBsLength",14),qbs_new_txt_len("True",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13722,"ide_methods.bas");}while(r); -}else{ -do{ -SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_SUBsLength",14),qbs_new_txt_len("False",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13724,"ide_methods.bas");}while(r); -} -do{ -#include "ret216.txt" -if(!qbevent)break;evnt(26070,13726,"ide_methods.bas");}while(r); -LABEL_ADDLINECOUNT:; -if(qbevent){evnt(26070,13728,"ide_methods.bas");r=0;} -do{ -*_FUNC_IDESUBS_LONG_MODULESIZE=*_FUNC_IDESUBS_LONG_MODULESIZE+ 1 ; -if(!qbevent)break;evnt(26070,13729,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_FUNC_IDESUBS_LONG_LASTOPENSUB)-_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[4],_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[5]); -if (!new_error) ((int32*)(_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0]))[tmp_long]=*_FUNC_IDESUBS_LONG_MODULESIZE; -if(!qbevent)break;evnt(26070,13730,"ide_methods.bas");}while(r); -S_51054:; -if ((-(*_FUNC_IDESUBS_LONG_MODULESIZE>*_FUNC_IDESUBS_LONG_MAXLINECOUNT))||new_error){ -if(qbevent){evnt(26070,13731,"ide_methods.bas");if(r)goto S_51054;} -do{ -*_FUNC_IDESUBS_LONG_MAXLINECOUNT=*_FUNC_IDESUBS_LONG_MODULESIZE; -if(!qbevent)break;evnt(26070,13731,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDESUBS_LONG_SUBCLOSED= -1 ; -if(!qbevent)break;evnt(26070,13732,"ide_methods.bas");}while(r); -do{ -#include "ret216.txt" -if(!qbevent)break;evnt(26070,13733,"ide_methods.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free216.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_IDESUBS_STRING_IDESUBS);return _FUNC_IDESUBS_STRING_IDESUBS; -} -int32 FUNC_IDELANGUAGEBOX(){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data217.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -sub_pcopy( 0 , 2 ); -if(!qbevent)break;evnt(26070,13740,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 0 , 1 ); -if(!qbevent)break;evnt(26070,13741,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,13742,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDELANGUAGEBOX_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(26070,13743,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(26070,13744,"ide_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26070,13359,"ide_methods.bas");}while(r); +} +S_50693:; +if ((-(*_FUNC_IDESUBS_LONG_TOTALSUBS> 0 ))||new_error){ +if(qbevent){evnt(26070,13363,"ide_methods.bas");if(r)goto S_50693;} +S_50694:; +if ((qbs_cleanup(qbs_tmp_base,-(((int32)(qbs_ltrim(qbs_str((int32)(*_FUNC_IDESUBS_LONG_MAXLINECOUNT))))->len)<= 10 )))||new_error){ +if(qbevent){evnt(26070,13364,"ide_methods.bas");if(r)goto S_50694;} +do{ +*_FUNC_IDESUBS_LONG_MAXLINECOUNTSPACE= 10 ; +if(!qbevent)break;evnt(26070,13365,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDESUBS_STRING_LINESHEADER,qbs_new_txt_len("Line count",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13366,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDESUBS_STRING_EXTERNAL,qbs_new_txt_len("external",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13367,"ide_methods.bas");}while(r); +} +S_50699:; +if ((qbs_cleanup(qbs_tmp_base,-(((int32)(qbs_ltrim(qbs_str((int32)(*_FUNC_IDESUBS_LONG_MAXLINECOUNT))))->len)<= 5 )))||new_error){ +if(qbevent){evnt(26070,13369,"ide_methods.bas");if(r)goto S_50699;} +do{ +*_FUNC_IDESUBS_LONG_MAXLINECOUNTSPACE= 5 ; +if(!qbevent)break;evnt(26070,13370,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDESUBS_STRING_LINESHEADER,qbs_new_txt_len("Lines",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13371,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDESUBS_STRING_EXTERNAL,func_chr( 196 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13372,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDESUBS_STRING_L,qbs_add(_FUNC_IDESUBS_STRING_L,func_space((*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN+ 2 )-_FUNC_IDESUBS_STRING_L->len))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13375,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDESUBS_STRING_LSIZED,_FUNC_IDESUBS_STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13376,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDESUBS_STRING_LSORTEDSIZED,_FUNC_IDESUBS_STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13377,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDESUBS_STRING_L,qbs_add(_FUNC_IDESUBS_STRING_L,qbs_new_txt_len(" Type Arguments",17))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13378,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDESUBS_STRING_LSORTED,_FUNC_IDESUBS_STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13379,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDESUBS_STRING_LSORTED,_FUNC_IDESUBS_STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13380,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDESUBS_STRING_LSIZED,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_IDESUBS_STRING_LSIZED,qbs_new_txt_len(" ",2)),_FUNC_IDESUBS_STRING_LINESHEADER),qbs_new_txt_len(" Type Arguments",17)),_FUNC_IDESUBS_STRING1_SEP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13381,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDESUBS_STRING_LSORTEDSIZED,qbs_add(qbs_add(qbs_add(_FUNC_IDESUBS_STRING_LSORTEDSIZED,qbs_new_txt_len(" ",2)),_FUNC_IDESUBS_STRING_LINESHEADER),qbs_new_txt_len(" Type Arguments",17))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13382,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDESUBS_STRING_L,__STRING_IDEPROGNAME); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13384,"ide_methods.bas");}while(r); +S_50714:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDESUBS_STRING_L,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,13385,"ide_methods.bas");if(r)goto S_50714;} +do{ +qbs_set(_FUNC_IDESUBS_STRING_L,qbs_add(qbs_new_txt_len("Untitled",8),__STRING_TEMPFOLDERINDEXSTR)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13385,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDESUBS_STRING_LSIZED,_FUNC_IDESUBS_STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13386,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDESUBS_LONG_DIALOGWIDTH= 50 ; +if(!qbevent)break;evnt(26070,13390,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDESUBS_LONG_ARGSLENGTH= 2 ; +if(!qbevent)break;evnt(26070,13391,"ide_methods.bas");}while(r); +S_50721:; +fornext_value5613= 1 ; +fornext_finalvalue5613=*_FUNC_IDESUBS_LONG_TOTALSUBS; +fornext_step5613= 1 ; +if (fornext_step5613<0) fornext_step_negative5613=1; else fornext_step_negative5613=0; +if (new_error) goto fornext_error5613; +goto fornext_entrylabel5613; +while(1){ +fornext_value5613=fornext_step5613+(*_FUNC_IDESUBS_LONG_X); +fornext_entrylabel5613: +*_FUNC_IDESUBS_LONG_X=fornext_value5613; +if (fornext_step_negative5613){ +if (fornext_value5613fornext_finalvalue5613) break; +} +fornext_error5613:; +if(qbevent){evnt(26070,13392,"ide_methods.bas");if(r)goto S_50721;} +do{ +qbs_set(_FUNC_IDESUBS_STRING_N,((qbs*)(((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[0]))[array_check((*_FUNC_IDESUBS_LONG_X)-_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[4],_FUNC_IDESUBS_ARRAY_STRING_SUBNAMES[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13393,"ide_methods.bas");}while(r); +S_50723:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDESUBS_STRING_N->len>*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN)))||new_error){ +if(qbevent){evnt(26070,13394,"ide_methods.bas");if(r)goto S_50723;} +do{ +qbs_set(_FUNC_IDESUBS_STRING_N,qbs_add(qbs_left(_FUNC_IDESUBS_STRING_N,*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN- 3 ),func_string( 3 , 250 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13395,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDESUBS_STRING_N,qbs_add(_FUNC_IDESUBS_STRING_N,func_space(*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN-_FUNC_IDESUBS_STRING_N->len))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13397,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDESUBS_STRING_ARGS,((qbs*)(((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_ARGS[0]))[array_check((*_FUNC_IDESUBS_LONG_X)-_FUNC_IDESUBS_ARRAY_STRING_ARGS[4],_FUNC_IDESUBS_ARRAY_STRING_ARGS[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13400,"ide_methods.bas");}while(r); +S_50729:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDESUBS_STRING_ARGS->len>*_FUNC_IDESUBS_LONG_ARGSLENGTH)))||new_error){ +if(qbevent){evnt(26070,13401,"ide_methods.bas");if(r)goto S_50729;} +do{ +*_FUNC_IDESUBS_LONG_ARGSLENGTH=_FUNC_IDESUBS_STRING_ARGS->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13401,"ide_methods.bas");}while(r); +} +S_50732:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDESUBS_STRING_ARGS->len<=(*__LONG_IDEWX- 41 ))))||new_error){ +if(qbevent){evnt(26070,13402,"ide_methods.bas");if(r)goto S_50732;} +do{ +qbs_set(_FUNC_IDESUBS_STRING_ARGS,qbs_add(_FUNC_IDESUBS_STRING_ARGS,func_space((*__LONG_IDEWX- 41 )-_FUNC_IDESUBS_STRING_ARGS->len))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13403,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDESUBS_STRING_ARGS,qbs_add(qbs_left(_FUNC_IDESUBS_STRING_ARGS,(*__LONG_IDEWX- 44 )),func_string( 3 , 250 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13405,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDESUBS_STRING_SF,((qbs*)(((uint64*)(_FUNC_IDESUBS_ARRAY_STRING_SF[0]))[array_check((*_FUNC_IDESUBS_LONG_X)-_FUNC_IDESUBS_ARRAY_STRING_SF[4],_FUNC_IDESUBS_ARRAY_STRING_SF[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13408,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDESUBS_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_IDESUBS_STRING_L,_FUNC_IDESUBS_STRING1_SEP),func_chr( 195 )),func_chr( 196 )),_FUNC_IDESUBS_STRING_N),qbs_new_txt_len(" ",2)),func_chr( 16 )),func_chr( 2 )),_FUNC_IDESUBS_STRING_SF),func_chr( 16 )),func_chr( 16 )),_FUNC_IDESUBS_STRING_ARGS)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13411,"ide_methods.bas");}while(r); +S_50739:; +if ((-(((int32*)(_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0]))[array_check((*_FUNC_IDESUBS_LONG_X)-_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[4],_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[5])]== 0 ))||new_error){ +if(qbevent){evnt(26070,13413,"ide_methods.bas");if(r)goto S_50739;} +do{ +qbs_set(_FUNC_IDESUBS_STRING_NUM,_FUNC_IDESUBS_STRING_EXTERNAL); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13413,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDESUBS_STRING_NUM,qbs_ltrim(qbs_str((int32)(((int32*)(_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0]))[array_check((*_FUNC_IDESUBS_LONG_X)-_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[4],_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13413,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDESUBS_STRING_LSIZED,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_IDESUBS_STRING_LSIZED,func_chr( 195 )),func_chr( 196 )),_FUNC_IDESUBS_STRING_N),qbs_new_txt_len(" ",2)),func_chr( 16 )),func_chr( 2 )),func_space(*_FUNC_IDESUBS_LONG_MAXLINECOUNTSPACE-_FUNC_IDESUBS_STRING_NUM->len)),_FUNC_IDESUBS_STRING_NUM),qbs_new_txt_len(" ",2)),_FUNC_IDESUBS_STRING_SF),func_chr( 16 )),func_chr( 16 )),_FUNC_IDESUBS_STRING_ARGS),_FUNC_IDESUBS_STRING1_SEP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13416,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDESUBS_STRING_LISTITEM,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_IDESUBS_STRING_N,qbs_new_txt_len(" ",2)),func_chr( 1 )),func_chr( 16 )),func_chr( 2 )),_FUNC_IDESUBS_STRING_SF),func_chr( 16 )),func_chr( 16 )),_FUNC_IDESUBS_STRING_ARGS)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13418,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDESUBS_LONG_LISTITEMLENGTH=_FUNC_IDESUBS_STRING_LISTITEM->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13419,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDESUBS_LONG_X)-_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[4],_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[5]); +if (!new_error) qbs_set(qbs_new_fixed(&((uint8*)(_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]))[tmp_long*998],998,1),qbs_ucase(_FUNC_IDESUBS_STRING_LISTITEM)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13420,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDESUBS_LONG_X)-_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[4],_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[5]); +if (!new_error) qbs_set(qbs_new_fixed(&((uint8*)(_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0]))[tmp_long*998],998,1),_FUNC_IDESUBS_STRING_LISTITEM); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13421,"ide_methods.bas");}while(r); +do{ +sub_mid(qbs_new_fixed(&((uint8*)(_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0]))[(array_check((*_FUNC_IDESUBS_LONG_X)-_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[4],_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[5]))*998],998,1), 992 , 6 ,qbs_add(l2string(((int32*)(_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[0]))[array_check((*_FUNC_IDESUBS_LONG_X)-_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[4],_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[5])]),i2string(*_FUNC_IDESUBS_LONG_LISTITEMLENGTH)),1); +if(!qbevent)break;evnt(26070,13422,"ide_methods.bas");}while(r); +do{ +sub_mid(qbs_new_fixed(&((uint8*)(_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]))[(array_check((*_FUNC_IDESUBS_LONG_X)-_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[4],_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[5]))*998],998,1), 992 , 6 ,qbs_add(l2string(((int32*)(_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[0]))[array_check((*_FUNC_IDESUBS_LONG_X)-_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[4],_FUNC_IDESUBS_ARRAY_LONG_SUBLINES[5])]),i2string(*_FUNC_IDESUBS_LONG_LISTITEMLENGTH)),1); +if(!qbevent)break;evnt(26070,13423,"ide_methods.bas");}while(r); +fornext_continue_5612:; +} +fornext_exit_5612:; +do{ +sub_mid(_FUNC_IDESUBS_STRING_L,func__instrrev(NULL,_FUNC_IDESUBS_STRING_L,func_chr( 195 ),0), 1 ,func_chr( 192 ),1); +if(!qbevent)break;evnt(26070,13426,"ide_methods.bas");}while(r); +do{ +sub_mid(_FUNC_IDESUBS_STRING_LSIZED,func__instrrev(NULL,_FUNC_IDESUBS_STRING_LSIZED,func_chr( 195 ),0), 1 ,func_chr( 192 ),1); +if(!qbevent)break;evnt(26070,13427,"ide_methods.bas");}while(r); +S_50754:; +if ((-(*_FUNC_IDESUBS_LONG_TOTALSUBS> 1 ))||new_error){ +if(qbevent){evnt(26070,13429,"ide_methods.bas");if(r)goto S_50754;} +do{ +SUB_SORT(_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13430,"ide_methods.bas");}while(r); +S_50756:; +fornext_value5623= 1 ; +fornext_finalvalue5623=*_FUNC_IDESUBS_LONG_TOTALSUBS; +fornext_step5623= 1 ; +if (fornext_step5623<0) fornext_step_negative5623=1; else fornext_step_negative5623=0; +if (new_error) goto fornext_error5623; +goto fornext_entrylabel5623; +while(1){ +fornext_value5623=fornext_step5623+(*_FUNC_IDESUBS_LONG_X); +fornext_entrylabel5623: +*_FUNC_IDESUBS_LONG_X=fornext_value5623; +if (fornext_step_negative5623){ +if (fornext_value5623fornext_finalvalue5623) break; +} +fornext_error5623:; +if(qbevent){evnt(26070,13432,"ide_methods.bas");if(r)goto S_50756;} +do{ +*_FUNC_IDESUBS_LONG_LISTITEMLENGTH=string2i(func_mid(qbs_new_fixed(&((uint8*)(_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]))[(array_check((*_FUNC_IDESUBS_LONG_X)-_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[4],_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[5]))*998],998,1),998- 2 , 2 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13433,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDESUBS_STRING_LYSORTED,qbs_add(_FUNC_IDESUBS_STRING_LYSORTED,func_mid(qbs_new_fixed(&((uint8*)(_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]))[(array_check((*_FUNC_IDESUBS_LONG_X)-_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[4],_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[5]))*998],998,1),998- 6 , 4 ,0|1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13434,"ide_methods.bas");}while(r); +S_50759:; +fornext_value5627= 1 ; +fornext_finalvalue5627=*_FUNC_IDESUBS_LONG_TOTALSUBS; +fornext_step5627= 1 ; +if (fornext_step5627<0) fornext_step_negative5627=1; else fornext_step_negative5627=0; +if (new_error) goto fornext_error5627; +goto fornext_entrylabel5627; +while(1){ +fornext_value5627=fornext_step5627+(*_FUNC_IDESUBS_LONG_RESTORECASEBKP); +fornext_entrylabel5627: +*_FUNC_IDESUBS_LONG_RESTORECASEBKP=fornext_value5627; +if (fornext_step_negative5627){ +if (fornext_value5627fornext_finalvalue5627) break; +} +fornext_error5627:; +if(qbevent){evnt(26070,13435,"ide_methods.bas");if(r)goto S_50759;} +S_50760:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(qbs_new_fixed(&((uint8*)(_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]))[(array_check((*_FUNC_IDESUBS_LONG_X)-_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[4],_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[5]))*998],998,1),998- 6 , 4 ,0|1),func_mid(qbs_new_fixed(&((uint8*)(_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0]))[(array_check((*_FUNC_IDESUBS_LONG_RESTORECASEBKP)-_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[4],_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[5]))*998],998,1),998- 6 , 4 ,0|1))))||new_error){ +if(qbevent){evnt(26070,13436,"ide_methods.bas");if(r)goto S_50760;} +do{ +qbs_set(_FUNC_IDESUBS_STRING_LSORTED,qbs_add(qbs_add(qbs_add(_FUNC_IDESUBS_STRING_LSORTED,_FUNC_IDESUBS_STRING1_SEP),func_chr( 195 )),func_chr( 196 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13437,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDESUBS_STRING_TEMP,qbs_left(qbs_new_fixed(&((uint8*)(_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[0]))[(array_check((*_FUNC_IDESUBS_LONG_RESTORECASEBKP)-_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[4],_FUNC_IDESUBS_ARRAY_STRING998_CASEBKPSUBSLIST[5]))*998],998,1),*_FUNC_IDESUBS_LONG_LISTITEMLENGTH)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13438,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDESUBS_STRING_LSORTED,qbs_add(qbs_add(_FUNC_IDESUBS_STRING_LSORTED,qbs_left(_FUNC_IDESUBS_STRING_TEMP,func_instr(NULL,_FUNC_IDESUBS_STRING_TEMP,func_chr( 1 ),0)- 1 )),func_mid(_FUNC_IDESUBS_STRING_TEMP,func_instr(NULL,_FUNC_IDESUBS_STRING_TEMP,func_chr( 1 ),0)+ 1 ,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13440,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDESUBS_STRING_NUM,qbs_ltrim(qbs_str((int32)(((int32*)(_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0]))[array_check((*_FUNC_IDESUBS_LONG_RESTORECASEBKP)-_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[4],_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13442,"ide_methods.bas");}while(r); +S_50765:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_IDESUBS_STRING_TEMP, 1 ),qbs_new_txt_len("*",1))))||new_error){ +if(qbevent){evnt(26070,13443,"ide_methods.bas");if(r)goto S_50765;} +do{ +qbs_set(_FUNC_IDESUBS_STRING_NUM,_FUNC_IDESUBS_STRING_EXTERNAL); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13443,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDESUBS_STRING_LSORTEDSIZED,qbs_add(qbs_add(qbs_add(_FUNC_IDESUBS_STRING_LSORTEDSIZED,_FUNC_IDESUBS_STRING1_SEP),func_chr( 195 )),func_chr( 196 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13444,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDESUBS_STRING_LSORTEDSIZED,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_IDESUBS_STRING_LSORTEDSIZED,qbs_left(_FUNC_IDESUBS_STRING_TEMP,func_instr(NULL,_FUNC_IDESUBS_STRING_TEMP,func_chr( 1 ),0)- 1 )),func_space(*_FUNC_IDESUBS_LONG_MAXLINECOUNTSPACE-_FUNC_IDESUBS_STRING_NUM->len)),func_chr( 16 )),func_chr( 2 )),_FUNC_IDESUBS_STRING_NUM),qbs_new_txt_len(" ",2)),func_mid(_FUNC_IDESUBS_STRING_TEMP,func_instr(NULL,_FUNC_IDESUBS_STRING_TEMP,func_chr( 1 ),0)+ 1 ,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13447,"ide_methods.bas");}while(r); +do{ +goto fornext_exit_5626; +if(!qbevent)break;evnt(26070,13448,"ide_methods.bas");}while(r); +} +fornext_continue_5626:; +} +fornext_exit_5626:; +fornext_continue_5622:; +} +fornext_exit_5622:; +do{ +sub_mid(_FUNC_IDESUBS_STRING_LSORTED,func__instrrev(NULL,_FUNC_IDESUBS_STRING_LSORTED,func_chr( 195 ),0), 1 ,func_chr( 192 ),1); +if(!qbevent)break;evnt(26070,13453,"ide_methods.bas");}while(r); +do{ +sub_mid(_FUNC_IDESUBS_STRING_LSORTEDSIZED,func__instrrev(NULL,_FUNC_IDESUBS_STRING_LSORTEDSIZED,func_chr( 195 ),0), 1 ,func_chr( 192 ),1); +if(!qbevent)break;evnt(26070,13454,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDESUBS_LONG_SORTEDSUBSFLAG=*__BYTE_IDESORTSUBS; +if(!qbevent)break;evnt(26070,13455,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_IDESUBS_LONG_SORTEDSUBSFLAG= 0 ; +if(!qbevent)break;evnt(26070,13457,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDESUBS_LONG_I= 0 ; +if(!qbevent)break;evnt(26070,13461,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDESUBS_LONG_DIALOGHEIGHT=*_FUNC_IDESUBS_LONG_TOTALSUBS+ 4 ; +if(!qbevent)break;evnt(26070,13462,"ide_methods.bas");}while(r); +S_50782:; +if ((-(*_FUNC_IDESUBS_LONG_DIALOGHEIGHT>(*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 6 )))||new_error){ +if(qbevent){evnt(26070,13463,"ide_methods.bas");if(r)goto S_50782;} +do{ +*_FUNC_IDESUBS_LONG_DIALOGHEIGHT=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 6 ; +if(!qbevent)break;evnt(26070,13464,"ide_methods.bas");}while(r); +} +S_50785:; +if ((-((*_FUNC_IDESUBS_LONG_ARGSLENGTH+*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN+*_FUNC_IDESUBS_LONG_MAXLINECOUNTSPACE+ 20 )>*_FUNC_IDESUBS_LONG_DIALOGWIDTH))||new_error){ +if(qbevent){evnt(26070,13467,"ide_methods.bas");if(r)goto S_50785;} +do{ +*_FUNC_IDESUBS_LONG_DIALOGWIDTH=*_FUNC_IDESUBS_LONG_ARGSLENGTH+*_FUNC_IDESUBS_LONG_MAXMODULENAMELEN+*_FUNC_IDESUBS_LONG_MAXLINECOUNTSPACE+ 20 ; +if(!qbevent)break;evnt(26070,13467,"ide_methods.bas");}while(r); +} +S_50788:; +if ((-(*_FUNC_IDESUBS_LONG_DIALOGWIDTH>(*__LONG_IDEWX- 8 )))||new_error){ +if(qbevent){evnt(26070,13468,"ide_methods.bas");if(r)goto S_50788;} +do{ +*_FUNC_IDESUBS_LONG_DIALOGWIDTH=*__LONG_IDEWX- 8 ; +if(!qbevent)break;evnt(26070,13468,"ide_methods.bas");}while(r); +} +do{ +SUB_IDEPAR((void*)( ((char*)(_FUNC_IDESUBS_UDT_P)) + (0) ),_FUNC_IDESUBS_LONG_DIALOGWIDTH,_FUNC_IDESUBS_LONG_DIALOGHEIGHT,qbs_new_txt_len("SUBs",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13470,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDESUBS_LONG_I=*_FUNC_IDESUBS_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,13472,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+36))= 2 ; +if(!qbevent)break;evnt(26070,13473,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+24))= 1 ; +if(!qbevent)break;evnt(26070,13474,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+28))=*_FUNC_IDESUBS_LONG_DIALOGWIDTH- 4 ; +if(!qbevent)break;evnt(26070,13476,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+32))=*_FUNC_IDESUBS_LONG_DIALOGHEIGHT- 3 ; +if(!qbevent)break;evnt(26070,13476,"ide_methods.bas");}while(r); +S_50797:; +if ((-(*_FUNC_IDESUBS_LONG_SORTEDSUBSFLAG== 0 ))||new_error){ +if(qbevent){evnt(26070,13477,"ide_methods.bas");if(r)goto S_50797;} +S_50798:; +if ((*__BYTE_IDESUBSLENGTH)||new_error){ +if(qbevent){evnt(26070,13478,"ide_methods.bas");if(r)goto S_50798;} +do{ +*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDESUBS_STRING_LSIZED); +if(!qbevent)break;evnt(26070,13479,"ide_methods.bas");}while(r); +}else{ +do{ +*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDESUBS_STRING_L); +if(!qbevent)break;evnt(26070,13481,"ide_methods.bas");}while(r); +} +S_50803:; +if ((-(*_FUNC_IDESUBS_LONG_PREFERCURRENTCURSORSUBFUNC!= 0 ))||new_error){ +if(qbevent){evnt(26070,13484,"ide_methods.bas");if(r)goto S_50803;} +do{ +*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+64))=*_FUNC_IDESUBS_LONG_PREFERCURRENTCURSORSUBFUNC; +if(!qbevent)break;evnt(26070,13485,"ide_methods.bas");}while(r); +}else{ +do{ +*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+64))=*_FUNC_IDESUBS_LONG_CURRENTLYVIEWINGWHICHSUBFUNC; +if(!qbevent)break;evnt(26070,13487,"ide_methods.bas");}while(r); +} +}else{ +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDESUBS_STRING_LSORTED); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13490,"ide_methods.bas");}while(r); +S_50810:; +if ((*__BYTE_IDESUBSLENGTH)||new_error){ +if(qbevent){evnt(26070,13491,"ide_methods.bas");if(r)goto S_50810;} +do{ +*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDESUBS_STRING_LSORTEDSIZED); +if(!qbevent)break;evnt(26070,13492,"ide_methods.bas");}while(r); +}else{ +do{ +*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDESUBS_STRING_LSORTED); +if(!qbevent)break;evnt(26070,13494,"ide_methods.bas");}while(r); +} +S_50815:; +if ((-(*_FUNC_IDESUBS_LONG_PREFERCURRENTCURSORSUBFUNC!= 0 ))||new_error){ +if(qbevent){evnt(26070,13496,"ide_methods.bas");if(r)goto S_50815;} +S_50816:; +fornext_value5632= 1 ; +fornext_finalvalue5632=*_FUNC_IDESUBS_LONG_TOTALSUBS; +fornext_step5632= 1 ; +if (fornext_step5632<0) fornext_step_negative5632=1; else fornext_step_negative5632=0; +if (new_error) goto fornext_error5632; +goto fornext_entrylabel5632; +while(1){ +fornext_value5632=fornext_step5632+(*_FUNC_IDESUBS_LONG_X); +fornext_entrylabel5632: +*_FUNC_IDESUBS_LONG_X=fornext_value5632; +if (fornext_step_negative5632){ +if (fornext_value5632fornext_finalvalue5632) break; +} +fornext_error5632:; +if(qbevent){evnt(26070,13497,"ide_methods.bas");if(r)goto S_50816;} +S_50817:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_IDESUBS_STRING_LY,(*_FUNC_IDESUBS_LONG_PREFERCURRENTCURSORSUBFUNC* 4 )-( 3 ), 4 ,0|1),func_mid(qbs_new_fixed(&((uint8*)(_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]))[(array_check((*_FUNC_IDESUBS_LONG_X)-_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[4],_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[5]))*998],998,1),998- 6 , 4 ,0|1))))||new_error){ +if(qbevent){evnt(26070,13498,"ide_methods.bas");if(r)goto S_50817;} +do{ +*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+64))=*_FUNC_IDESUBS_LONG_X+ 1 ; +if(!qbevent)break;evnt(26070,13499,"ide_methods.bas");}while(r); +do{ +goto fornext_exit_5631; +if(!qbevent)break;evnt(26070,13500,"ide_methods.bas");}while(r); +} +fornext_continue_5631:; +} +fornext_exit_5631:; +}else{ +S_50823:; +fornext_value5635= 1 ; +fornext_finalvalue5635=*_FUNC_IDESUBS_LONG_TOTALSUBS; +fornext_step5635= 1 ; +if (fornext_step5635<0) fornext_step_negative5635=1; else fornext_step_negative5635=0; +if (new_error) goto fornext_error5635; +goto fornext_entrylabel5635; +while(1){ +fornext_value5635=fornext_step5635+(*_FUNC_IDESUBS_LONG_X); +fornext_entrylabel5635: +*_FUNC_IDESUBS_LONG_X=fornext_value5635; +if (fornext_step_negative5635){ +if (fornext_value5635fornext_finalvalue5635) break; +} +fornext_error5635:; +if(qbevent){evnt(26070,13504,"ide_methods.bas");if(r)goto S_50823;} +S_50824:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_IDESUBS_STRING_LY,(*_FUNC_IDESUBS_LONG_CURRENTLYVIEWINGWHICHSUBFUNC* 4 )-( 3 ), 4 ,0|1),func_mid(qbs_new_fixed(&((uint8*)(_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[0]))[(array_check((*_FUNC_IDESUBS_LONG_X)-_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[4],_FUNC_IDESUBS_ARRAY_STRING998_SORTEDSUBSLIST[5]))*998],998,1),998- 6 , 4 ,0|1))))||new_error){ +if(qbevent){evnt(26070,13505,"ide_methods.bas");if(r)goto S_50824;} +do{ +*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+64))=*_FUNC_IDESUBS_LONG_X+ 1 ; +if(!qbevent)break;evnt(26070,13506,"ide_methods.bas");}while(r); +do{ +goto fornext_exit_5634; +if(!qbevent)break;evnt(26070,13507,"ide_methods.bas");}while(r); +} +fornext_continue_5634:; +} +fornext_exit_5634:; +} +} +do{ +*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("Program Items",13)); +if(!qbevent)break;evnt(26070,13512,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDESUBS_LONG_I=*_FUNC_IDESUBS_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,13514,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+36))= 4 ; +if(!qbevent)break;evnt(26070,13515,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+20))= 2 ; +if(!qbevent)break;evnt(26070,13516,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+24))=*_FUNC_IDESUBS_LONG_DIALOGHEIGHT; +if(!qbevent)break;evnt(26070,13517,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Line Count",11)); +if(!qbevent)break;evnt(26070,13518,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+64))=*__BYTE_IDESUBSLENGTH; +if(!qbevent)break;evnt(26070,13519,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDESUBS_LONG_I=*_FUNC_IDESUBS_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,13521,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+36))= 4 ; +if(!qbevent)break;evnt(26070,13522,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+20))= 18 ; +if(!qbevent)break;evnt(26070,13523,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+24))=*_FUNC_IDESUBS_LONG_DIALOGHEIGHT; +if(!qbevent)break;evnt(26070,13524,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Sort",5)); +if(!qbevent)break;evnt(26070,13525,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+64))=*_FUNC_IDESUBS_LONG_SORTEDSUBSFLAG; +if(!qbevent)break;evnt(26070,13526,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDESUBS_LONG_I=*_FUNC_IDESUBS_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,13528,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+36))= 3 ; +if(!qbevent)break;evnt(26070,13529,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+28))= 26 ; +if(!qbevent)break;evnt(26070,13530,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+20))=*_FUNC_IDESUBS_LONG_DIALOGWIDTH- 22 ; +if(!qbevent)break;evnt(26070,13531,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+24))=*_FUNC_IDESUBS_LONG_DIALOGHEIGHT; +if(!qbevent)break;evnt(26070,13532,"ide_methods.bas");}while(r); +S_50849:; +if ((-(*__LONG_IDEDEBUGMODE== 0 ))||new_error){ +if(qbevent){evnt(26070,13533,"ide_methods.bas");if(r)goto S_50849;} +do{ +*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_new_txt_len("#Edit",5),_FUNC_IDESUBS_STRING1_SEP),qbs_new_txt_len("#Cancel",7))); +if(!qbevent)break;evnt(26070,13534,"ide_methods.bas");}while(r); +}else{ +do{ +*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_new_txt_len("#View",5),_FUNC_IDESUBS_STRING1_SEP),qbs_new_txt_len("#Cancel",7))); +if(!qbevent)break;evnt(26070,13536,"ide_methods.bas");}while(r); +} +do{ +*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+48))= 1 ; +if(!qbevent)break;evnt(26070,13538,"ide_methods.bas");}while(r); +S_50855:; +fornext_value5638= 1 ; +fornext_finalvalue5638= 100 ; +fornext_step5638= 1 ; +if (fornext_step5638<0) fornext_step_negative5638=1; else fornext_step_negative5638=0; +if (new_error) goto fornext_error5638; +goto fornext_entrylabel5638; +while(1){ +fornext_value5638=fornext_step5638+(*_FUNC_IDESUBS_LONG_I); +fornext_entrylabel5638: +*_FUNC_IDESUBS_LONG_I=fornext_value5638; +if (fornext_step_negative5638){ +if (fornext_value5638fornext_finalvalue5638) break; +} +fornext_error5638:; +if(qbevent){evnt(26070,13544,"ide_methods.bas");if(r)goto S_50855;} +do{ +memcpy(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89)+ 0,((char*)_FUNC_IDESUBS_UDT_P)+(0)+ 0, 20); +if(!qbevent)break;evnt(26070,13544,"ide_methods.bas");}while(r); +fornext_continue_5637:; +} +fornext_exit_5637:; +S_50858:; +do{ +if(qbevent){evnt(26070,13547,"ide_methods.bas");if(r)goto S_50858;} +do{ +SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDESUBS_UDT_P)) + (0) )); +if(!qbevent)break;evnt(26070,13550,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDESUBS_LONG_F= 1 ; +if(!qbevent)break;evnt(26070,13551,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDESUBS_LONG_CX= 0 ; +if(!qbevent)break;evnt(26070,13551,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDESUBS_LONG_CY= 0 ; +if(!qbevent)break;evnt(26070,13551,"ide_methods.bas");}while(r); +S_50863:; +fornext_value5641= 1 ; +fornext_finalvalue5641= 100 ; +fornext_step5641= 1 ; +if (fornext_step5641<0) fornext_step_negative5641=1; else fornext_step_negative5641=0; +if (new_error) goto fornext_error5641; +goto fornext_entrylabel5641; +while(1){ +fornext_value5641=fornext_step5641+(*_FUNC_IDESUBS_LONG_I); +fornext_entrylabel5641: +*_FUNC_IDESUBS_LONG_I=fornext_value5641; +if (fornext_step_negative5641){ +if (fornext_value5641fornext_finalvalue5641) break; +} +fornext_error5641:; +if(qbevent){evnt(26070,13552,"ide_methods.bas");if(r)goto S_50863;} +S_50864:; +if ((*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+36)))||new_error){ +if(qbevent){evnt(26070,13553,"ide_methods.bas");if(r)goto S_50864;} +do{ +*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+60))=*_FUNC_IDESUBS_LONG_FOCUS-*_FUNC_IDESUBS_LONG_F; +if(!qbevent)break;evnt(26070,13556,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+52))= 0 ; +if(!qbevent)break;evnt(26070,13557,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+56))= 0 ; +if(!qbevent)break;evnt(26070,13557,"ide_methods.bas");}while(r); +do{ +SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDESUBS_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89) ),_FUNC_IDESUBS_LONG_F); +if(!qbevent)break;evnt(26070,13558,"ide_methods.bas");}while(r); +S_50869:; +if ((*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+52)))||new_error){ +if(qbevent){evnt(26070,13559,"ide_methods.bas");if(r)goto S_50869;} +do{ +*_FUNC_IDESUBS_LONG_CX=*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+52)); +if(!qbevent)break;evnt(26070,13559,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDESUBS_LONG_CY=*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+56)); +if(!qbevent)break;evnt(26070,13559,"ide_methods.bas");}while(r); +} +} +fornext_continue_5640:; +} +fornext_exit_5640:; +do{ +*_FUNC_IDESUBS_LONG_LASTFOCUS=*_FUNC_IDESUBS_LONG_F- 1 ; +if(!qbevent)break;evnt(26070,13562,"ide_methods.bas");}while(r); +S_50876:; +if ((*_FUNC_IDESUBS_LONG_FOUNDEXTERNALSUBFUNC)||new_error){ +if(qbevent){evnt(26070,13566,"ide_methods.bas");if(r)goto S_50876;} +do{ +qbg_sub_color( 2 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,13567,"ide_methods.bas");}while(r); +do{ +sub__printstring(*(int32*)(((char*)_FUNC_IDESUBS_UDT_P)+(0))+*(int32*)(((char*)_FUNC_IDESUBS_UDT_P)+(8))- 32 ,*(int32*)(((char*)_FUNC_IDESUBS_UDT_P)+(4))+*(int32*)(((char*)_FUNC_IDESUBS_UDT_P)+(12)),qbs_new_txt_len("* external",10),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13568,"ide_methods.bas");}while(r); +} +do{ +sub_pcopy( 1 , 0 ); +if(!qbevent)break;evnt(26070,13573,"ide_methods.bas");}while(r); +S_50881:; +if ((*_FUNC_IDESUBS_LONG_CX)||new_error){ +if(qbevent){evnt(26070,13574,"ide_methods.bas");if(r)goto S_50881;} +do{ +qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,13574,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(*_FUNC_IDESUBS_LONG_CY,*_FUNC_IDESUBS_LONG_CX, 1 ,NULL,NULL,7); +if(!qbevent)break;evnt(26070,13574,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,13574,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDESUBS_LONG_CHANGE= 0 ; +if(!qbevent)break;evnt(26070,13577,"ide_methods.bas");}while(r); +S_50887:; +do{ +if(qbevent){evnt(26070,13578,"ide_methods.bas");if(r)goto S_50887;} +do{ +SUB_GETINPUT(); +if(!qbevent)break;evnt(26070,13579,"ide_methods.bas");}while(r); +S_50889:; +if ((*__LONG_MWHEEL)||new_error){ +if(qbevent){evnt(26070,13580,"ide_methods.bas");if(r)goto S_50889;} +do{ +*_FUNC_IDESUBS_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,13580,"ide_methods.bas");}while(r); +} +S_50892:; +if ((*__LONG_KB)||new_error){ +if(qbevent){evnt(26070,13581,"ide_methods.bas");if(r)goto S_50892;} +do{ +*_FUNC_IDESUBS_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,13581,"ide_methods.bas");}while(r); +} +S_50895:; +if ((*__LONG_MCLICK)||new_error){ +if(qbevent){evnt(26070,13582,"ide_methods.bas");if(r)goto S_50895;} +do{ +*_FUNC_IDESUBS_LONG_MOUSEDOWN= 1 ; +if(!qbevent)break;evnt(26070,13582,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDESUBS_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,13582,"ide_methods.bas");}while(r); +} +S_50899:; +if ((*__LONG_MRELEASE)||new_error){ +if(qbevent){evnt(26070,13583,"ide_methods.bas");if(r)goto S_50899;} +do{ +*_FUNC_IDESUBS_LONG_MOUSEUP= 1 ; +if(!qbevent)break;evnt(26070,13583,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDESUBS_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,13583,"ide_methods.bas");}while(r); +} +S_50903:; +if ((*__LONG_MB)||new_error){ +if(qbevent){evnt(26070,13584,"ide_methods.bas");if(r)goto S_50903;} +do{ +*_FUNC_IDESUBS_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,13584,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDESUBS_LONG_ALT=*__LONG_KALT; +if(!qbevent)break;evnt(26070,13585,"ide_methods.bas");}while(r); +S_50907:; +if ((-(*_FUNC_IDESUBS_LONG_ALT!=*_FUNC_IDESUBS_LONG_OLDALT))||new_error){ +if(qbevent){evnt(26070,13585,"ide_methods.bas");if(r)goto S_50907;} +do{ +*_FUNC_IDESUBS_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,13585,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDESUBS_LONG_OLDALT=*_FUNC_IDESUBS_LONG_ALT; +if(!qbevent)break;evnt(26070,13586,"ide_methods.bas");}while(r); +do{ +sub__limit( 100 ); +if(!qbevent)break;evnt(26070,13587,"ide_methods.bas");}while(r); +S_50912:; +dl_continue_5642:; +}while((!(*_FUNC_IDESUBS_LONG_CHANGE))&&(!new_error)); +dl_exit_5642:; +if(qbevent){evnt(26070,13588,"ide_methods.bas");if(r)goto S_50912;} +S_50913:; +if ((*_FUNC_IDESUBS_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ +if(qbevent){evnt(26070,13589,"ide_methods.bas");if(r)goto S_50913;} +do{ +*__LONG_IDEHL= 1 ; +if(!qbevent)break;evnt(26070,13589,"ide_methods.bas");}while(r); +}else{ +do{ +*__LONG_IDEHL= 0 ; +if(!qbevent)break;evnt(26070,13589,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDESUBS_STRING_ALTLETTER,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13591,"ide_methods.bas");}while(r); +S_50919:; +if ((*_FUNC_IDESUBS_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ +if(qbevent){evnt(26070,13592,"ide_methods.bas");if(r)goto S_50919;} +S_50920:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ +if(qbevent){evnt(26070,13593,"ide_methods.bas");if(r)goto S_50920;} +do{ +*_FUNC_IDESUBS_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13594,"ide_methods.bas");}while(r); +S_50922:; +if (((-(*_FUNC_IDESUBS_LONG_K>= 65 ))&(-(*_FUNC_IDESUBS_LONG_K<= 90 )))||new_error){ +if(qbevent){evnt(26070,13595,"ide_methods.bas");if(r)goto S_50922;} +do{ +qbs_set(_FUNC_IDESUBS_STRING_ALTLETTER,func_chr(*_FUNC_IDESUBS_LONG_K)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13595,"ide_methods.bas");}while(r); +} +} +} +do{ +qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,13598,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); +if(!qbevent)break;evnt(26070,13598,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,13598,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDESUBS_LONG_INFO= 0 ; +if(!qbevent)break;evnt(26070,13602,"ide_methods.bas");}while(r); +S_50931:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,13603,"ide_methods.bas");if(r)goto S_50931;} +do{ +qbs_set(__STRING_K,func_chr( 255 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13603,"ide_methods.bas");}while(r); +} +S_50934:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ +if(qbevent){evnt(26070,13604,"ide_methods.bas");if(r)goto S_50934;} +do{ +*_FUNC_IDESUBS_LONG_FOCUS=*_FUNC_IDESUBS_LONG_FOCUS+ 1 ; +if(!qbevent)break;evnt(26070,13604,"ide_methods.bas");}while(r); +} +S_50937:; +if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||new_error){ +if(qbevent){evnt(26070,13605,"ide_methods.bas");if(r)goto S_50937;} +do{ +*_FUNC_IDESUBS_LONG_FOCUS=*_FUNC_IDESUBS_LONG_FOCUS- 1 ; +if(!qbevent)break;evnt(26070,13605,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_K,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13605,"ide_methods.bas");}while(r); +} +S_50941:; +if ((-(*_FUNC_IDESUBS_LONG_FOCUS< 1 ))||new_error){ +if(qbevent){evnt(26070,13606,"ide_methods.bas");if(r)goto S_50941;} +do{ +*_FUNC_IDESUBS_LONG_FOCUS=*_FUNC_IDESUBS_LONG_LASTFOCUS; +if(!qbevent)break;evnt(26070,13606,"ide_methods.bas");}while(r); +} +S_50944:; +if ((-(*_FUNC_IDESUBS_LONG_FOCUS>*_FUNC_IDESUBS_LONG_LASTFOCUS))||new_error){ +if(qbevent){evnt(26070,13607,"ide_methods.bas");if(r)goto S_50944;} +do{ +*_FUNC_IDESUBS_LONG_FOCUS= 1 ; +if(!qbevent)break;evnt(26070,13607,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDESUBS_LONG_F= 1 ; +if(!qbevent)break;evnt(26070,13608,"ide_methods.bas");}while(r); +S_50948:; +fornext_value5645= 1 ; +fornext_finalvalue5645= 100 ; +fornext_step5645= 1 ; +if (fornext_step5645<0) fornext_step_negative5645=1; else fornext_step_negative5645=0; +if (new_error) goto fornext_error5645; +goto fornext_entrylabel5645; +while(1){ +fornext_value5645=fornext_step5645+(*_FUNC_IDESUBS_LONG_I); +fornext_entrylabel5645: +*_FUNC_IDESUBS_LONG_I=fornext_value5645; +if (fornext_step_negative5645){ +if (fornext_value5645fornext_finalvalue5645) break; +} +fornext_error5645:; +if(qbevent){evnt(26070,13609,"ide_methods.bas");if(r)goto S_50948;} +do{ +*_FUNC_IDESUBS_LONG_T=*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+36)); +if(!qbevent)break;evnt(26070,13610,"ide_methods.bas");}while(r); +S_50950:; +if ((*_FUNC_IDESUBS_LONG_T)||new_error){ +if(qbevent){evnt(26070,13611,"ide_methods.bas");if(r)goto S_50950;} +do{ +*_FUNC_IDESUBS_LONG_FOCUSOFFSET=*_FUNC_IDESUBS_LONG_FOCUS-*_FUNC_IDESUBS_LONG_F; +if(!qbevent)break;evnt(26070,13612,"ide_methods.bas");}while(r); +do{ +SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDESUBS_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDESUBS_LONG_I)-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89) ),_FUNC_IDESUBS_LONG_FOCUS,_FUNC_IDESUBS_LONG_F,_FUNC_IDESUBS_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDESUBS_STRING_ALTLETTER,__LONG_MB,_FUNC_IDESUBS_LONG_MOUSEDOWN,_FUNC_IDESUBS_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDESUBS_LONG_INFO,__LONG_MWHEEL); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13613,"ide_methods.bas");}while(r); +} +fornext_continue_5644:; +} +fornext_exit_5644:; +S_50955:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 27 )))|(((-(*_FUNC_IDESUBS_LONG_FOCUS== 5 ))&(-(*_FUNC_IDESUBS_LONG_INFO!= 0 ))))))||new_error){ +if(qbevent){evnt(26070,13618,"ide_methods.bas");if(r)goto S_50955;} +do{ +qbs_set(_FUNC_IDESUBS_STRING_IDESUBS,qbs_new_txt_len("C",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13619,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=164; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SAVESORTSETTINGS; +RETURN_164:; +if(!qbevent)break;evnt(26070,13620,"ide_methods.bas");}while(r); +do{ +SUB_CLEARMOUSE(); +if(!qbevent)break;evnt(26070,13621,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,13622,"ide_methods.bas");}while(r); +} +S_50961:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 13 )))|(((-(*_FUNC_IDESUBS_LONG_FOCUS== 4 ))&(-(*_FUNC_IDESUBS_LONG_INFO!= 0 ))))|(((-(*_FUNC_IDESUBS_LONG_INFO== 1 ))&(-(*_FUNC_IDESUBS_LONG_FOCUS== 1 ))))))||new_error){ +if(qbevent){evnt(26070,13625,"ide_methods.bas");if(r)goto S_50961;} +do{ +*_FUNC_IDESUBS_LONG_Y=*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26070,13626,"ide_methods.bas");}while(r); +S_50963:; +if ((-(*_FUNC_IDESUBS_LONG_Y< 1 ))||new_error){ +if(qbevent){evnt(26070,13627,"ide_methods.bas");if(r)goto S_50963;} +do{ +*_FUNC_IDESUBS_LONG_Y=-(*_FUNC_IDESUBS_LONG_Y); +if(!qbevent)break;evnt(26070,13627,"ide_methods.bas");}while(r); +} +do{ +SUB_ADDQUICKNAVHISTORY(); +if(!qbevent)break;evnt(26070,13628,"ide_methods.bas");}while(r); +S_50967:; +if ((-(*_FUNC_IDESUBS_LONG_SORTEDSUBSFLAG== 0 ))||new_error){ +if(qbevent){evnt(26070,13629,"ide_methods.bas");if(r)goto S_50967;} +do{ +*__LONG_IDECY=string2l(func_mid(_FUNC_IDESUBS_STRING_LY,(*_FUNC_IDESUBS_LONG_Y* 4 )-( 3 ), 4 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13630,"ide_methods.bas");}while(r); +}else{ +do{ +*__LONG_IDECY=string2l(func_mid(_FUNC_IDESUBS_STRING_LYSORTED,(*_FUNC_IDESUBS_LONG_Y* 4 )-( 3 ), 4 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13632,"ide_methods.bas");}while(r); +} +do{ +*__LONG_IDESY=*__LONG_IDECY; +if(!qbevent)break;evnt(26070,13634,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECX= 1 ; +if(!qbevent)break;evnt(26070,13635,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESX= 1 ; +if(!qbevent)break;evnt(26070,13636,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=165; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SAVESORTSETTINGS; +RETURN_165:; +if(!qbevent)break;evnt(26070,13638,"ide_methods.bas");}while(r); +do{ +SUB_CLEARMOUSE(); +if(!qbevent)break;evnt(26070,13639,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,13640,"ide_methods.bas");}while(r); +} +S_50979:; +if ((-(*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+64))!=*__BYTE_IDESUBSLENGTH))||new_error){ +if(qbevent){evnt(26070,13643,"ide_methods.bas");if(r)goto S_50979;} +do{ +*__BYTE_IDESUBSLENGTH=*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26070,13644,"ide_methods.bas");}while(r); +S_50981:; +if ((*__BYTE_IDESUBSLENGTH)||new_error){ +if(qbevent){evnt(26070,13645,"ide_methods.bas");if(r)goto S_50981;} +S_50982:; +if ((*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+64)))||new_error){ +if(qbevent){evnt(26070,13646,"ide_methods.bas");if(r)goto S_50982;} +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDESUBS_STRING_LSORTEDSIZED); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13647,"ide_methods.bas");}while(r); +}else{ +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDESUBS_STRING_LSIZED); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13649,"ide_methods.bas");}while(r); +} +}else{ +S_50988:; +if ((*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+64)))||new_error){ +if(qbevent){evnt(26070,13652,"ide_methods.bas");if(r)goto S_50988;} +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDESUBS_STRING_LSORTED); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13653,"ide_methods.bas");}while(r); +}else{ +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDESUBS_STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13655,"ide_methods.bas");}while(r); +} +} +do{ +*_FUNC_IDESUBS_LONG_FOCUS= 1 ; +if(!qbevent)break;evnt(26070,13658,"ide_methods.bas");}while(r); +} +S_50996:; +if ((-(*_FUNC_IDESUBS_LONG_TOTALSUBS> 1 ))||new_error){ +if(qbevent){evnt(26070,13661,"ide_methods.bas");if(r)goto S_50996;} +S_50997:; +if ((-(*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+64))!=*_FUNC_IDESUBS_LONG_SORTEDSUBSFLAG))||new_error){ +if(qbevent){evnt(26070,13662,"ide_methods.bas");if(r)goto S_50997;} +do{ +*_FUNC_IDESUBS_LONG_SORTEDSUBSFLAG=*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26070,13663,"ide_methods.bas");}while(r); +S_50999:; +if ((-(*_FUNC_IDESUBS_LONG_SORTEDSUBSFLAG== 0 ))||new_error){ +if(qbevent){evnt(26070,13665,"ide_methods.bas");if(r)goto S_50999;} +do{ +*_FUNC_IDESUBS_LONG_PREVIOUSSELECTION= -1 ; +if(!qbevent)break;evnt(26070,13667,"ide_methods.bas");}while(r); +S_51001:; +if ((-(*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+64))> 0 ))||new_error){ +if(qbevent){evnt(26070,13668,"ide_methods.bas");if(r)goto S_51001;} +do{ +qbs_set(_FUNC_IDESUBS_STRING_TARGETSOURCELINE,func_mid(_FUNC_IDESUBS_STRING_LYSORTED,(*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+64))* 4 )-( 3 ), 4 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13669,"ide_methods.bas");}while(r); +S_51003:; +fornext_value5647= 1 ; +fornext_finalvalue5647=*_FUNC_IDESUBS_LONG_TOTALSUBS; +fornext_step5647= 1 ; +if (fornext_step5647<0) fornext_step_negative5647=1; else fornext_step_negative5647=0; +if (new_error) goto fornext_error5647; +goto fornext_entrylabel5647; +while(1){ +fornext_value5647=fornext_step5647+(*_FUNC_IDESUBS_LONG_X); +fornext_entrylabel5647: +*_FUNC_IDESUBS_LONG_X=fornext_value5647; +if (fornext_step_negative5647){ +if (fornext_value5647fornext_finalvalue5647) break; +} +fornext_error5647:; +if(qbevent){evnt(26070,13670,"ide_methods.bas");if(r)goto S_51003;} +S_51004:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_IDESUBS_STRING_LY,(*_FUNC_IDESUBS_LONG_X* 4 )-( 3 ), 4 ,0|1),_FUNC_IDESUBS_STRING_TARGETSOURCELINE)))||new_error){ +if(qbevent){evnt(26070,13671,"ide_methods.bas");if(r)goto S_51004;} +do{ +*_FUNC_IDESUBS_LONG_PREVIOUSSELECTION=*_FUNC_IDESUBS_LONG_X; +if(!qbevent)break;evnt(26070,13672,"ide_methods.bas");}while(r); +} +fornext_continue_5646:; +} +fornext_exit_5646:; +} +S_51009:; +if ((*__BYTE_IDESUBSLENGTH)||new_error){ +if(qbevent){evnt(26070,13677,"ide_methods.bas");if(r)goto S_51009;} +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDESUBS_STRING_LSIZED); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13678,"ide_methods.bas");}while(r); +}else{ +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDESUBS_STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13680,"ide_methods.bas");}while(r); +} +do{ +*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+64))=*_FUNC_IDESUBS_LONG_PREVIOUSSELECTION; +if(!qbevent)break;evnt(26070,13682,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDESUBS_LONG_FOCUS= 1 ; +if(!qbevent)break;evnt(26070,13683,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_IDESUBS_LONG_PREVIOUSSELECTION= -1 ; +if(!qbevent)break;evnt(26070,13686,"ide_methods.bas");}while(r); +S_51018:; +if ((-(*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+64))> 0 ))||new_error){ +if(qbevent){evnt(26070,13687,"ide_methods.bas");if(r)goto S_51018;} +do{ +qbs_set(_FUNC_IDESUBS_STRING_TARGETSOURCELINE,func_mid(_FUNC_IDESUBS_STRING_LY,(*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+64))* 4 )-( 3 ), 4 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13688,"ide_methods.bas");}while(r); +S_51020:; +fornext_value5649= 1 ; +fornext_finalvalue5649=*_FUNC_IDESUBS_LONG_TOTALSUBS; +fornext_step5649= 1 ; +if (fornext_step5649<0) fornext_step_negative5649=1; else fornext_step_negative5649=0; +if (new_error) goto fornext_error5649; +goto fornext_entrylabel5649; +while(1){ +fornext_value5649=fornext_step5649+(*_FUNC_IDESUBS_LONG_X); +fornext_entrylabel5649: +*_FUNC_IDESUBS_LONG_X=fornext_value5649; +if (fornext_step_negative5649){ +if (fornext_value5649fornext_finalvalue5649) break; +} +fornext_error5649:; +if(qbevent){evnt(26070,13689,"ide_methods.bas");if(r)goto S_51020;} +S_51021:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_IDESUBS_STRING_LYSORTED,(*_FUNC_IDESUBS_LONG_X* 4 )-( 3 ), 4 ,0|1),_FUNC_IDESUBS_STRING_TARGETSOURCELINE)))||new_error){ +if(qbevent){evnt(26070,13690,"ide_methods.bas");if(r)goto S_51021;} +do{ +*_FUNC_IDESUBS_LONG_PREVIOUSSELECTION=*_FUNC_IDESUBS_LONG_X; +if(!qbevent)break;evnt(26070,13691,"ide_methods.bas");}while(r); +} +fornext_continue_5648:; +} +fornext_exit_5648:; +} +S_51026:; +if ((*__BYTE_IDESUBSLENGTH)||new_error){ +if(qbevent){evnt(26070,13696,"ide_methods.bas");if(r)goto S_51026;} +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDESUBS_STRING_LSORTEDSIZED); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13697,"ide_methods.bas");}while(r); +}else{ +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDESUBS_STRING_LSORTED); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13699,"ide_methods.bas");}while(r); +} +do{ +*(int32*)(((char*)_FUNC_IDESUBS_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDESUBS_ARRAY_UDT_O[4],_FUNC_IDESUBS_ARRAY_UDT_O[5]))*89+64))=*_FUNC_IDESUBS_LONG_PREVIOUSSELECTION; +if(!qbevent)break;evnt(26070,13701,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDESUBS_LONG_FOCUS= 1 ; +if(!qbevent)break;evnt(26070,13702,"ide_methods.bas");}while(r); +} +} +} +do{ +*_FUNC_IDESUBS_LONG_MOUSEDOWN= 0 ; +if(!qbevent)break;evnt(26070,13708,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDESUBS_LONG_MOUSEUP= 0 ; +if(!qbevent)break;evnt(26070,13709,"ide_methods.bas");}while(r); +dl_continue_5639:; +}while(1); +dl_exit_5639:; +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,13712,"ide_methods.bas");}while(r); +LABEL_SAVESORTSETTINGS:; +if(qbevent){evnt(26070,13713,"ide_methods.bas");r=0;} +do{ +*__BYTE_IDESORTSUBS=*_FUNC_IDESUBS_LONG_SORTEDSUBSFLAG; +if(!qbevent)break;evnt(26070,13714,"ide_methods.bas");}while(r); +S_51041:; +if ((*__BYTE_IDESORTSUBS)||new_error){ +if(qbevent){evnt(26070,13715,"ide_methods.bas");if(r)goto S_51041;} +do{ +SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_SortSUBs",12),qbs_new_txt_len("True",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13716,"ide_methods.bas");}while(r); +}else{ +do{ +SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_SortSUBs",12),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13718,"ide_methods.bas");}while(r); +} +S_51046:; +if ((*__BYTE_IDESUBSLENGTH)||new_error){ +if(qbevent){evnt(26070,13721,"ide_methods.bas");if(r)goto S_51046;} +do{ +SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_SUBsLength",14),qbs_new_txt_len("True",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13722,"ide_methods.bas");}while(r); +}else{ +do{ +SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_SUBsLength",14),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13724,"ide_methods.bas");}while(r); +} +do{ +#include "ret216.txt" +if(!qbevent)break;evnt(26070,13726,"ide_methods.bas");}while(r); +LABEL_ADDLINECOUNT:; +if(qbevent){evnt(26070,13728,"ide_methods.bas");r=0;} +do{ +*_FUNC_IDESUBS_LONG_MODULESIZE=*_FUNC_IDESUBS_LONG_MODULESIZE+ 1 ; +if(!qbevent)break;evnt(26070,13729,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_FUNC_IDESUBS_LONG_LASTOPENSUB)-_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[4],_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[5]); +if (!new_error) ((int32*)(_FUNC_IDESUBS_ARRAY_LONG_TOTALLINES[0]))[tmp_long]=*_FUNC_IDESUBS_LONG_MODULESIZE; +if(!qbevent)break;evnt(26070,13730,"ide_methods.bas");}while(r); +S_51054:; +if ((-(*_FUNC_IDESUBS_LONG_MODULESIZE>*_FUNC_IDESUBS_LONG_MAXLINECOUNT))||new_error){ +if(qbevent){evnt(26070,13731,"ide_methods.bas");if(r)goto S_51054;} +do{ +*_FUNC_IDESUBS_LONG_MAXLINECOUNT=*_FUNC_IDESUBS_LONG_MODULESIZE; +if(!qbevent)break;evnt(26070,13731,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDESUBS_LONG_SUBCLOSED= -1 ; +if(!qbevent)break;evnt(26070,13732,"ide_methods.bas");}while(r); +do{ +#include "ret216.txt" +if(!qbevent)break;evnt(26070,13733,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free216.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_IDESUBS_STRING_IDESUBS);return _FUNC_IDESUBS_STRING_IDESUBS; +} +int32 FUNC_IDELANGUAGEBOX(){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data217.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +sub_pcopy( 0 , 2 ); +if(!qbevent)break;evnt(26070,13740,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 0 , 1 ); +if(!qbevent)break;evnt(26070,13741,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,13742,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDELANGUAGEBOX_LONG_FOCUS= 1 ; +if(!qbevent)break;evnt(26070,13743,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26070,13744,"ide_methods.bas");}while(r); +do{ if (_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[2]&2){ error(10); @@ -172107,567 +172107,567 @@ if (!_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0]) error(257); } _FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[2]|=1; } -} -if(!qbevent)break;evnt(26070,13745,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(26070,13746,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDELANGUAGEBOX_STRING1_SEP,func_chr( 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13747,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDELANGUAGEBOX_STRING_L,((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[array_check(( 1 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13753,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDELANGUAGEBOX_LONG_DIALOGWIDTH=_FUNC_IDELANGUAGEBOX_STRING_L->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13754,"ide_methods.bas");}while(r); -S_51069:; -fornext_value5652= 2 ; -fornext_finalvalue5652= 27 ; -fornext_step5652= 1 ; -if (fornext_step5652<0) fornext_step_negative5652=1; else fornext_step_negative5652=0; -if (new_error) goto fornext_error5652; -goto fornext_entrylabel5652; -while(1){ -fornext_value5652=fornext_step5652+(*_FUNC_IDELANGUAGEBOX_LONG_X); -fornext_entrylabel5652: -*_FUNC_IDELANGUAGEBOX_LONG_X=fornext_value5652; -if (fornext_step_negative5652){ -if (fornext_value5652fornext_finalvalue5652) break; -} -fornext_error5652:; -if(qbevent){evnt(26070,13755,"ide_methods.bas");if(r)goto S_51069;} -do{ -qbs_set(_FUNC_IDELANGUAGEBOX_STRING_L,qbs_add(qbs_add(_FUNC_IDELANGUAGEBOX_STRING_L,_FUNC_IDELANGUAGEBOX_STRING1_SEP),((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[array_check((*_FUNC_IDELANGUAGEBOX_LONG_X)-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13756,"ide_methods.bas");}while(r); -S_51071:; -if ((qbs_cleanup(qbs_tmp_base,-(((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[array_check((*_FUNC_IDELANGUAGEBOX_LONG_X)-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5])]))->len>*_FUNC_IDELANGUAGEBOX_LONG_DIALOGWIDTH)))||new_error){ -if(qbevent){evnt(26070,13757,"ide_methods.bas");if(r)goto S_51071;} -do{ -*_FUNC_IDELANGUAGEBOX_LONG_DIALOGWIDTH=((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[array_check((*_FUNC_IDELANGUAGEBOX_LONG_X)-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5])]))->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13757,"ide_methods.bas");}while(r); -} -fornext_continue_5651:; -} -fornext_exit_5651:; -do{ -qbs_set(_FUNC_IDELANGUAGEBOX_STRING_L,qbs_ucase(_FUNC_IDELANGUAGEBOX_STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13759,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDELANGUAGEBOX_LONG_I= 0 ; -if(!qbevent)break;evnt(26070,13761,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDELANGUAGEBOX_LONG_DIALOGHEIGHT= 27 + 5 ; -if(!qbevent)break;evnt(26070,13762,"ide_methods.bas");}while(r); -S_51078:; -if ((-(*_FUNC_IDELANGUAGEBOX_LONG_DIALOGHEIGHT>(*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 6 )))||new_error){ -if(qbevent){evnt(26070,13763,"ide_methods.bas");if(r)goto S_51078;} -do{ -*_FUNC_IDELANGUAGEBOX_LONG_DIALOGHEIGHT=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 6 ; -if(!qbevent)break;evnt(26070,13764,"ide_methods.bas");}while(r); -} -S_51081:; -if ((-(*_FUNC_IDELANGUAGEBOX_LONG_DIALOGWIDTH< 60 ))||new_error){ -if(qbevent){evnt(26070,13766,"ide_methods.bas");if(r)goto S_51081;} -do{ -*_FUNC_IDELANGUAGEBOX_LONG_DIALOGWIDTH= 60 ; -if(!qbevent)break;evnt(26070,13766,"ide_methods.bas");}while(r); -} -S_51084:; -if ((-(*_FUNC_IDELANGUAGEBOX_LONG_DIALOGWIDTH>(*__LONG_IDEWX- 8 )))||new_error){ -if(qbevent){evnt(26070,13767,"ide_methods.bas");if(r)goto S_51084;} -do{ -*_FUNC_IDELANGUAGEBOX_LONG_DIALOGWIDTH=*__LONG_IDEWX- 8 ; -if(!qbevent)break;evnt(26070,13767,"ide_methods.bas");}while(r); -} -do{ -SUB_IDEPAR((void*)( ((char*)(_FUNC_IDELANGUAGEBOX_UDT_P)) + (0) ),_FUNC_IDELANGUAGEBOX_LONG_DIALOGWIDTH,_FUNC_IDELANGUAGEBOX_LONG_DIALOGHEIGHT,qbs_new_txt_len("Language",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13769,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDELANGUAGEBOX_LONG_I=*_FUNC_IDELANGUAGEBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,13771,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*89+36))= 2 ; -if(!qbevent)break;evnt(26070,13772,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*89+24))= 3 ; -if(!qbevent)break;evnt(26070,13773,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*89+28))=*_FUNC_IDELANGUAGEBOX_LONG_DIALOGWIDTH- 4 ; -if(!qbevent)break;evnt(26070,13774,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*89+32))=*_FUNC_IDELANGUAGEBOX_LONG_DIALOGHEIGHT- 5 ; -if(!qbevent)break;evnt(26070,13774,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDELANGUAGEBOX_STRING_L); -if(!qbevent)break;evnt(26070,13775,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*89+64))= 1 ; -if(!qbevent)break;evnt(26070,13776,"ide_methods.bas");}while(r); -S_51095:; -if ((*__LONG_IDECPINDEX)||new_error){ -if(qbevent){evnt(26070,13776,"ide_methods.bas");if(r)goto S_51095;} -do{ -*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*89+64))=*__LONG_IDECPINDEX; -if(!qbevent)break;evnt(26070,13776,"ide_methods.bas");}while(r); -} -do{ -*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("Code Pages",10)); -if(!qbevent)break;evnt(26070,13777,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDELANGUAGEBOX_LONG_I=*_FUNC_IDELANGUAGEBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,13779,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*89+36))= 3 ; -if(!qbevent)break;evnt(26070,13780,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*89+24))=*_FUNC_IDELANGUAGEBOX_LONG_DIALOGHEIGHT; -if(!qbevent)break;evnt(26070,13781,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_new_txt_len("#OK",3),_FUNC_IDELANGUAGEBOX_STRING1_SEP),qbs_new_txt_len("#Cancel",7))); -if(!qbevent)break;evnt(26070,13782,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*89+48))= 1 ; -if(!qbevent)break;evnt(26070,13783,"ide_methods.bas");}while(r); -S_51104:; -fornext_value5656= 1 ; -fornext_finalvalue5656= 100 ; -fornext_step5656= 1 ; -if (fornext_step5656<0) fornext_step_negative5656=1; else fornext_step_negative5656=0; -if (new_error) goto fornext_error5656; -goto fornext_entrylabel5656; -while(1){ -fornext_value5656=fornext_step5656+(*_FUNC_IDELANGUAGEBOX_LONG_I); -fornext_entrylabel5656: -*_FUNC_IDELANGUAGEBOX_LONG_I=fornext_value5656; -if (fornext_step_negative5656){ -if (fornext_value5656fornext_finalvalue5656) break; -} -fornext_error5656:; -if(qbevent){evnt(26070,13792,"ide_methods.bas");if(r)goto S_51104;} -do{ -memcpy(((char*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*89)+ 0,((char*)_FUNC_IDELANGUAGEBOX_UDT_P)+(0)+ 0, 20); -if(!qbevent)break;evnt(26070,13792,"ide_methods.bas");}while(r); -fornext_continue_5655:; -} -fornext_exit_5655:; -S_51107:; -do{ -if(qbevent){evnt(26070,13795,"ide_methods.bas");if(r)goto S_51107;} -do{ -SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDELANGUAGEBOX_UDT_P)) + (0) )); -if(!qbevent)break;evnt(26070,13798,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDELANGUAGEBOX_LONG_F= 1 ; -if(!qbevent)break;evnt(26070,13799,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDELANGUAGEBOX_LONG_CX= 0 ; -if(!qbevent)break;evnt(26070,13799,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDELANGUAGEBOX_LONG_CY= 0 ; -if(!qbevent)break;evnt(26070,13799,"ide_methods.bas");}while(r); -S_51112:; -fornext_value5659= 1 ; -fornext_finalvalue5659= 100 ; -fornext_step5659= 1 ; -if (fornext_step5659<0) fornext_step_negative5659=1; else fornext_step_negative5659=0; -if (new_error) goto fornext_error5659; -goto fornext_entrylabel5659; -while(1){ -fornext_value5659=fornext_step5659+(*_FUNC_IDELANGUAGEBOX_LONG_I); -fornext_entrylabel5659: -*_FUNC_IDELANGUAGEBOX_LONG_I=fornext_value5659; -if (fornext_step_negative5659){ -if (fornext_value5659fornext_finalvalue5659) break; -} -fornext_error5659:; -if(qbevent){evnt(26070,13800,"ide_methods.bas");if(r)goto S_51112;} -S_51113:; -if ((*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*89+36)))||new_error){ -if(qbevent){evnt(26070,13801,"ide_methods.bas");if(r)goto S_51113;} -do{ -*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*89+60))=*_FUNC_IDELANGUAGEBOX_LONG_FOCUS-*_FUNC_IDELANGUAGEBOX_LONG_F; -if(!qbevent)break;evnt(26070,13803,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*89+52))= 0 ; -if(!qbevent)break;evnt(26070,13804,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*89+56))= 0 ; -if(!qbevent)break;evnt(26070,13804,"ide_methods.bas");}while(r); -do{ -SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDELANGUAGEBOX_LONG_F); -if(!qbevent)break;evnt(26070,13805,"ide_methods.bas");}while(r); -S_51118:; -if ((*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*89+52)))||new_error){ -if(qbevent){evnt(26070,13806,"ide_methods.bas");if(r)goto S_51118;} -do{ -*_FUNC_IDELANGUAGEBOX_LONG_CX=*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*89+52)); -if(!qbevent)break;evnt(26070,13806,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDELANGUAGEBOX_LONG_CY=*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*89+56)); -if(!qbevent)break;evnt(26070,13806,"ide_methods.bas");}while(r); -} -} -fornext_continue_5658:; -} -fornext_exit_5658:; -do{ -*_FUNC_IDELANGUAGEBOX_LONG_LASTFOCUS=*_FUNC_IDELANGUAGEBOX_LONG_F- 1 ; -if(!qbevent)break;evnt(26070,13809,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,13813,"ide_methods.bas");}while(r); -do{ -sub__printstring(*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_UDT_P)+(0))+ 2 ,*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_UDT_P)+(4))+ 1 ,qbs_new_txt_len("Code-page for ASCII-UNICODE mapping (Default = CP437):",54),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13814,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 2 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,13815,"ide_methods.bas");}while(r); -do{ -sub__printstring(*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_UDT_P)+(0))+ 2 ,*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_UDT_P)+(4))+ 2 ,qbs_new_txt_len("(affects the display of TTF fonts set in Options-Display)",57),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13816,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 1 , 0 ); -if(!qbevent)break;evnt(26070,13821,"ide_methods.bas");}while(r); -S_51130:; -if ((*_FUNC_IDELANGUAGEBOX_LONG_CX)||new_error){ -if(qbevent){evnt(26070,13822,"ide_methods.bas");if(r)goto S_51130;} -do{ -qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,13822,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*_FUNC_IDELANGUAGEBOX_LONG_CY,*_FUNC_IDELANGUAGEBOX_LONG_CX, 1 ,NULL,NULL,7); -if(!qbevent)break;evnt(26070,13822,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,13822,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDELANGUAGEBOX_LONG_CHANGE= 0 ; -if(!qbevent)break;evnt(26070,13825,"ide_methods.bas");}while(r); -S_51136:; -do{ -if(qbevent){evnt(26070,13826,"ide_methods.bas");if(r)goto S_51136;} -do{ -SUB_GETINPUT(); -if(!qbevent)break;evnt(26070,13827,"ide_methods.bas");}while(r); -S_51138:; -if ((*__LONG_MWHEEL)||new_error){ -if(qbevent){evnt(26070,13828,"ide_methods.bas");if(r)goto S_51138;} -do{ -*_FUNC_IDELANGUAGEBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,13828,"ide_methods.bas");}while(r); -} -S_51141:; -if ((*__LONG_KB)||new_error){ -if(qbevent){evnt(26070,13829,"ide_methods.bas");if(r)goto S_51141;} -do{ -*_FUNC_IDELANGUAGEBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,13829,"ide_methods.bas");}while(r); -} -S_51144:; -if ((*__LONG_MCLICK)||new_error){ -if(qbevent){evnt(26070,13830,"ide_methods.bas");if(r)goto S_51144;} -do{ -*_FUNC_IDELANGUAGEBOX_LONG_MOUSEDOWN= 1 ; -if(!qbevent)break;evnt(26070,13830,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDELANGUAGEBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,13830,"ide_methods.bas");}while(r); -} -S_51148:; -if ((*__LONG_MRELEASE)||new_error){ -if(qbevent){evnt(26070,13831,"ide_methods.bas");if(r)goto S_51148;} -do{ -*_FUNC_IDELANGUAGEBOX_LONG_MOUSEUP= 1 ; -if(!qbevent)break;evnt(26070,13831,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDELANGUAGEBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,13831,"ide_methods.bas");}while(r); -} -S_51152:; -if ((*__LONG_MB)||new_error){ -if(qbevent){evnt(26070,13832,"ide_methods.bas");if(r)goto S_51152;} -do{ -*_FUNC_IDELANGUAGEBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,13832,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDELANGUAGEBOX_LONG_ALT=*__LONG_KALT; -if(!qbevent)break;evnt(26070,13833,"ide_methods.bas");}while(r); -S_51156:; -if ((-(*_FUNC_IDELANGUAGEBOX_LONG_ALT!=*_FUNC_IDELANGUAGEBOX_LONG_OLDALT))||new_error){ -if(qbevent){evnt(26070,13833,"ide_methods.bas");if(r)goto S_51156;} -do{ -*_FUNC_IDELANGUAGEBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,13833,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDELANGUAGEBOX_LONG_OLDALT=*_FUNC_IDELANGUAGEBOX_LONG_ALT; -if(!qbevent)break;evnt(26070,13834,"ide_methods.bas");}while(r); -do{ -sub__limit( 100 ); -if(!qbevent)break;evnt(26070,13835,"ide_methods.bas");}while(r); -S_51161:; -dl_continue_5660:; -}while((!(*_FUNC_IDELANGUAGEBOX_LONG_CHANGE))&&(!new_error)); -dl_exit_5660:; -if(qbevent){evnt(26070,13836,"ide_methods.bas");if(r)goto S_51161;} -S_51162:; -if ((*_FUNC_IDELANGUAGEBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(26070,13837,"ide_methods.bas");if(r)goto S_51162;} -do{ -*__LONG_IDEHL= 1 ; -if(!qbevent)break;evnt(26070,13837,"ide_methods.bas");}while(r); -}else{ -do{ -*__LONG_IDEHL= 0 ; -if(!qbevent)break;evnt(26070,13837,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDELANGUAGEBOX_STRING_ALTLETTER,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13839,"ide_methods.bas");}while(r); -S_51168:; -if ((*_FUNC_IDELANGUAGEBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(26070,13840,"ide_methods.bas");if(r)goto S_51168;} -S_51169:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ -if(qbevent){evnt(26070,13841,"ide_methods.bas");if(r)goto S_51169;} -do{ -*_FUNC_IDELANGUAGEBOX_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13842,"ide_methods.bas");}while(r); -S_51171:; -if (((-(*_FUNC_IDELANGUAGEBOX_LONG_K>= 65 ))&(-(*_FUNC_IDELANGUAGEBOX_LONG_K<= 90 )))||new_error){ -if(qbevent){evnt(26070,13843,"ide_methods.bas");if(r)goto S_51171;} -do{ -qbs_set(_FUNC_IDELANGUAGEBOX_STRING_ALTLETTER,func_chr(*_FUNC_IDELANGUAGEBOX_LONG_K)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13843,"ide_methods.bas");}while(r); -} -} -} -do{ -qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,13846,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); -if(!qbevent)break;evnt(26070,13846,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,13846,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDELANGUAGEBOX_LONG_INFO= 0 ; -if(!qbevent)break;evnt(26070,13850,"ide_methods.bas");}while(r); -S_51180:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,13851,"ide_methods.bas");if(r)goto S_51180;} -do{ -qbs_set(__STRING_K,func_chr( 255 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13851,"ide_methods.bas");}while(r); -} -S_51183:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ -if(qbevent){evnt(26070,13852,"ide_methods.bas");if(r)goto S_51183;} -do{ -*_FUNC_IDELANGUAGEBOX_LONG_FOCUS=*_FUNC_IDELANGUAGEBOX_LONG_FOCUS+ 1 ; -if(!qbevent)break;evnt(26070,13852,"ide_methods.bas");}while(r); -} -S_51186:; -if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||new_error){ -if(qbevent){evnt(26070,13853,"ide_methods.bas");if(r)goto S_51186;} -do{ -*_FUNC_IDELANGUAGEBOX_LONG_FOCUS=*_FUNC_IDELANGUAGEBOX_LONG_FOCUS- 1 ; -if(!qbevent)break;evnt(26070,13853,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_K,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13853,"ide_methods.bas");}while(r); -} -S_51190:; -if ((-(*_FUNC_IDELANGUAGEBOX_LONG_FOCUS< 1 ))||new_error){ -if(qbevent){evnt(26070,13854,"ide_methods.bas");if(r)goto S_51190;} -do{ -*_FUNC_IDELANGUAGEBOX_LONG_FOCUS=*_FUNC_IDELANGUAGEBOX_LONG_LASTFOCUS; -if(!qbevent)break;evnt(26070,13854,"ide_methods.bas");}while(r); -} -S_51193:; -if ((-(*_FUNC_IDELANGUAGEBOX_LONG_FOCUS>*_FUNC_IDELANGUAGEBOX_LONG_LASTFOCUS))||new_error){ -if(qbevent){evnt(26070,13855,"ide_methods.bas");if(r)goto S_51193;} -do{ -*_FUNC_IDELANGUAGEBOX_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(26070,13855,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDELANGUAGEBOX_LONG_F= 1 ; -if(!qbevent)break;evnt(26070,13856,"ide_methods.bas");}while(r); -S_51197:; -fornext_value5663= 1 ; -fornext_finalvalue5663= 100 ; -fornext_step5663= 1 ; -if (fornext_step5663<0) fornext_step_negative5663=1; else fornext_step_negative5663=0; -if (new_error) goto fornext_error5663; -goto fornext_entrylabel5663; -while(1){ -fornext_value5663=fornext_step5663+(*_FUNC_IDELANGUAGEBOX_LONG_I); -fornext_entrylabel5663: -*_FUNC_IDELANGUAGEBOX_LONG_I=fornext_value5663; -if (fornext_step_negative5663){ -if (fornext_value5663fornext_finalvalue5663) break; -} -fornext_error5663:; -if(qbevent){evnt(26070,13857,"ide_methods.bas");if(r)goto S_51197;} -do{ -*_FUNC_IDELANGUAGEBOX_LONG_T=*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*89+36)); -if(!qbevent)break;evnt(26070,13858,"ide_methods.bas");}while(r); -S_51199:; -if ((*_FUNC_IDELANGUAGEBOX_LONG_T)||new_error){ -if(qbevent){evnt(26070,13859,"ide_methods.bas");if(r)goto S_51199;} -do{ -*_FUNC_IDELANGUAGEBOX_LONG_FOCUSOFFSET=*_FUNC_IDELANGUAGEBOX_LONG_FOCUS-*_FUNC_IDELANGUAGEBOX_LONG_F; -if(!qbevent)break;evnt(26070,13860,"ide_methods.bas");}while(r); -do{ -SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDELANGUAGEBOX_LONG_FOCUS,_FUNC_IDELANGUAGEBOX_LONG_F,_FUNC_IDELANGUAGEBOX_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDELANGUAGEBOX_STRING_ALTLETTER,__LONG_MB,_FUNC_IDELANGUAGEBOX_LONG_MOUSEDOWN,_FUNC_IDELANGUAGEBOX_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDELANGUAGEBOX_LONG_INFO,__LONG_MWHEEL); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13861,"ide_methods.bas");}while(r); -} -fornext_continue_5662:; -} -fornext_exit_5662:; -S_51204:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 27 )))|(((-(*_FUNC_IDELANGUAGEBOX_LONG_FOCUS== 3 ))&(-(*_FUNC_IDELANGUAGEBOX_LONG_INFO!= 0 ))))))||new_error){ -if(qbevent){evnt(26070,13866,"ide_methods.bas");if(r)goto S_51204;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,13868,"ide_methods.bas");}while(r); -} -S_51207:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 13 )))|(((-(*_FUNC_IDELANGUAGEBOX_LONG_FOCUS== 2 ))&(-(*_FUNC_IDELANGUAGEBOX_LONG_INFO!= 0 ))))|(((-(*_FUNC_IDELANGUAGEBOX_LONG_INFO== 1 ))&(-(*_FUNC_IDELANGUAGEBOX_LONG_FOCUS== 1 ))))))||new_error){ -if(qbevent){evnt(26070,13871,"ide_methods.bas");if(r)goto S_51207;} -do{ -*_FUNC_IDELANGUAGEBOX_LONG_Y=*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*89+64)); -if(!qbevent)break;evnt(26070,13872,"ide_methods.bas");}while(r); -S_51209:; -if ((-(*_FUNC_IDELANGUAGEBOX_LONG_Y< 1 ))||new_error){ -if(qbevent){evnt(26070,13873,"ide_methods.bas");if(r)goto S_51209;} -do{ -*_FUNC_IDELANGUAGEBOX_LONG_Y=-(*_FUNC_IDELANGUAGEBOX_LONG_Y); -if(!qbevent)break;evnt(26070,13873,"ide_methods.bas");}while(r); -} -S_51212:; -fornext_value5665= 128 ; -fornext_finalvalue5665= 255 ; -fornext_step5665= 1 ; -if (fornext_step5665<0) fornext_step_negative5665=1; else fornext_step_negative5665=0; -if (new_error) goto fornext_error5665; -goto fornext_entrylabel5665; -while(1){ -fornext_value5665=fornext_step5665+(*_FUNC_IDELANGUAGEBOX_LONG_X); -fornext_entrylabel5665: -*_FUNC_IDELANGUAGEBOX_LONG_X=fornext_value5665; -if (fornext_step_negative5665){ -if (fornext_value5665fornext_finalvalue5665) break; -} -fornext_error5665:; -if(qbevent){evnt(26070,13875,"ide_methods.bas");if(r)goto S_51212;} -do{ -*_FUNC_IDELANGUAGEBOX_LONG_U=qbr(func_val(qbs_add(qbs_add(qbs_new_txt_len("&H",2),func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_IDECP[0]))[array_check((*_FUNC_IDELANGUAGEBOX_LONG_Y)-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5])])),(*_FUNC_IDELANGUAGEBOX_LONG_X* 8 )+( 1 ), 8 ,0|1)),qbs_new_txt_len("&",1)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13876,"ide_methods.bas");}while(r); -S_51214:; -if ((-(*_FUNC_IDELANGUAGEBOX_LONG_U== 0 ))||new_error){ -if(qbevent){evnt(26070,13877,"ide_methods.bas");if(r)goto S_51214;} -do{ -*_FUNC_IDELANGUAGEBOX_LONG_U= 9744 ; -if(!qbevent)break;evnt(26070,13877,"ide_methods.bas");}while(r); -} -do{ -sub__mapunicode(*_FUNC_IDELANGUAGEBOX_LONG_U,*_FUNC_IDELANGUAGEBOX_LONG_X); -if(!qbevent)break;evnt(26070,13878,"ide_methods.bas");}while(r); -fornext_continue_5664:; -} -fornext_exit_5664:; -do{ -*_FUNC_IDELANGUAGEBOX_INTEGER_V=*_FUNC_IDELANGUAGEBOX_LONG_Y; -if(!qbevent)break;evnt(26070,13882,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECPINDEX=*_FUNC_IDELANGUAGEBOX_INTEGER_V; -if(!qbevent)break;evnt(26070,13882,"ide_methods.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_CodePage",12),qbs_str((int32)(*__LONG_IDECPINDEX))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13883,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,13884,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDELANGUAGEBOX_LONG_MOUSEDOWN= 0 ; -if(!qbevent)break;evnt(26070,13889,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDELANGUAGEBOX_LONG_MOUSEUP= 0 ; -if(!qbevent)break;evnt(26070,13890,"ide_methods.bas");}while(r); -dl_continue_5657:; -}while(1); -dl_exit_5657:; -do{ -*_FUNC_IDELANGUAGEBOX_LONG_IDELANGUAGEBOX= 0 ; -if(!qbevent)break;evnt(26070,13893,"ide_methods.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free217.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -return *_FUNC_IDELANGUAGEBOX_LONG_IDELANGUAGEBOX; -} -int32 FUNC_IDEWARNINGBOX(){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data218.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -sub_pcopy( 0 , 2 ); -if(!qbevent)break;evnt(26070,13900,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 0 , 1 ); -if(!qbevent)break;evnt(26070,13901,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,13902,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEWARNINGBOX_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(26070,13903,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(26070,13904,"ide_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26070,13745,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26070,13746,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDELANGUAGEBOX_STRING1_SEP,func_chr( 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13747,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDELANGUAGEBOX_STRING_L,((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[array_check(( 1 )-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13753,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDELANGUAGEBOX_LONG_DIALOGWIDTH=_FUNC_IDELANGUAGEBOX_STRING_L->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13754,"ide_methods.bas");}while(r); +S_51069:; +fornext_value5652= 2 ; +fornext_finalvalue5652= 27 ; +fornext_step5652= 1 ; +if (fornext_step5652<0) fornext_step_negative5652=1; else fornext_step_negative5652=0; +if (new_error) goto fornext_error5652; +goto fornext_entrylabel5652; +while(1){ +fornext_value5652=fornext_step5652+(*_FUNC_IDELANGUAGEBOX_LONG_X); +fornext_entrylabel5652: +*_FUNC_IDELANGUAGEBOX_LONG_X=fornext_value5652; +if (fornext_step_negative5652){ +if (fornext_value5652fornext_finalvalue5652) break; +} +fornext_error5652:; +if(qbevent){evnt(26070,13755,"ide_methods.bas");if(r)goto S_51069;} +do{ +qbs_set(_FUNC_IDELANGUAGEBOX_STRING_L,qbs_add(qbs_add(_FUNC_IDELANGUAGEBOX_STRING_L,_FUNC_IDELANGUAGEBOX_STRING1_SEP),((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[array_check((*_FUNC_IDELANGUAGEBOX_LONG_X)-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13756,"ide_methods.bas");}while(r); +S_51071:; +if ((qbs_cleanup(qbs_tmp_base,-(((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[array_check((*_FUNC_IDELANGUAGEBOX_LONG_X)-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5])]))->len>*_FUNC_IDELANGUAGEBOX_LONG_DIALOGWIDTH)))||new_error){ +if(qbevent){evnt(26070,13757,"ide_methods.bas");if(r)goto S_51071;} +do{ +*_FUNC_IDELANGUAGEBOX_LONG_DIALOGWIDTH=((qbs*)(((uint64*)(__ARRAY_STRING_IDECPNAME[0]))[array_check((*_FUNC_IDELANGUAGEBOX_LONG_X)-__ARRAY_STRING_IDECPNAME[4],__ARRAY_STRING_IDECPNAME[5])]))->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13757,"ide_methods.bas");}while(r); +} +fornext_continue_5651:; +} +fornext_exit_5651:; +do{ +qbs_set(_FUNC_IDELANGUAGEBOX_STRING_L,qbs_ucase(_FUNC_IDELANGUAGEBOX_STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13759,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDELANGUAGEBOX_LONG_I= 0 ; +if(!qbevent)break;evnt(26070,13761,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDELANGUAGEBOX_LONG_DIALOGHEIGHT= 27 + 5 ; +if(!qbevent)break;evnt(26070,13762,"ide_methods.bas");}while(r); +S_51078:; +if ((-(*_FUNC_IDELANGUAGEBOX_LONG_DIALOGHEIGHT>(*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 6 )))||new_error){ +if(qbevent){evnt(26070,13763,"ide_methods.bas");if(r)goto S_51078;} +do{ +*_FUNC_IDELANGUAGEBOX_LONG_DIALOGHEIGHT=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 6 ; +if(!qbevent)break;evnt(26070,13764,"ide_methods.bas");}while(r); +} +S_51081:; +if ((-(*_FUNC_IDELANGUAGEBOX_LONG_DIALOGWIDTH< 60 ))||new_error){ +if(qbevent){evnt(26070,13766,"ide_methods.bas");if(r)goto S_51081;} +do{ +*_FUNC_IDELANGUAGEBOX_LONG_DIALOGWIDTH= 60 ; +if(!qbevent)break;evnt(26070,13766,"ide_methods.bas");}while(r); +} +S_51084:; +if ((-(*_FUNC_IDELANGUAGEBOX_LONG_DIALOGWIDTH>(*__LONG_IDEWX- 8 )))||new_error){ +if(qbevent){evnt(26070,13767,"ide_methods.bas");if(r)goto S_51084;} +do{ +*_FUNC_IDELANGUAGEBOX_LONG_DIALOGWIDTH=*__LONG_IDEWX- 8 ; +if(!qbevent)break;evnt(26070,13767,"ide_methods.bas");}while(r); +} +do{ +SUB_IDEPAR((void*)( ((char*)(_FUNC_IDELANGUAGEBOX_UDT_P)) + (0) ),_FUNC_IDELANGUAGEBOX_LONG_DIALOGWIDTH,_FUNC_IDELANGUAGEBOX_LONG_DIALOGHEIGHT,qbs_new_txt_len("Language",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13769,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDELANGUAGEBOX_LONG_I=*_FUNC_IDELANGUAGEBOX_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,13771,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*89+36))= 2 ; +if(!qbevent)break;evnt(26070,13772,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*89+24))= 3 ; +if(!qbevent)break;evnt(26070,13773,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*89+28))=*_FUNC_IDELANGUAGEBOX_LONG_DIALOGWIDTH- 4 ; +if(!qbevent)break;evnt(26070,13774,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*89+32))=*_FUNC_IDELANGUAGEBOX_LONG_DIALOGHEIGHT- 5 ; +if(!qbevent)break;evnt(26070,13774,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDELANGUAGEBOX_STRING_L); +if(!qbevent)break;evnt(26070,13775,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*89+64))= 1 ; +if(!qbevent)break;evnt(26070,13776,"ide_methods.bas");}while(r); +S_51095:; +if ((*__LONG_IDECPINDEX)||new_error){ +if(qbevent){evnt(26070,13776,"ide_methods.bas");if(r)goto S_51095;} +do{ +*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*89+64))=*__LONG_IDECPINDEX; +if(!qbevent)break;evnt(26070,13776,"ide_methods.bas");}while(r); +} +do{ +*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("Code Pages",10)); +if(!qbevent)break;evnt(26070,13777,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDELANGUAGEBOX_LONG_I=*_FUNC_IDELANGUAGEBOX_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,13779,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*89+36))= 3 ; +if(!qbevent)break;evnt(26070,13780,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*89+24))=*_FUNC_IDELANGUAGEBOX_LONG_DIALOGHEIGHT; +if(!qbevent)break;evnt(26070,13781,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_new_txt_len("#OK",3),_FUNC_IDELANGUAGEBOX_STRING1_SEP),qbs_new_txt_len("#Cancel",7))); +if(!qbevent)break;evnt(26070,13782,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*89+48))= 1 ; +if(!qbevent)break;evnt(26070,13783,"ide_methods.bas");}while(r); +S_51104:; +fornext_value5656= 1 ; +fornext_finalvalue5656= 100 ; +fornext_step5656= 1 ; +if (fornext_step5656<0) fornext_step_negative5656=1; else fornext_step_negative5656=0; +if (new_error) goto fornext_error5656; +goto fornext_entrylabel5656; +while(1){ +fornext_value5656=fornext_step5656+(*_FUNC_IDELANGUAGEBOX_LONG_I); +fornext_entrylabel5656: +*_FUNC_IDELANGUAGEBOX_LONG_I=fornext_value5656; +if (fornext_step_negative5656){ +if (fornext_value5656fornext_finalvalue5656) break; +} +fornext_error5656:; +if(qbevent){evnt(26070,13792,"ide_methods.bas");if(r)goto S_51104;} +do{ +memcpy(((char*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*89)+ 0,((char*)_FUNC_IDELANGUAGEBOX_UDT_P)+(0)+ 0, 20); +if(!qbevent)break;evnt(26070,13792,"ide_methods.bas");}while(r); +fornext_continue_5655:; +} +fornext_exit_5655:; +S_51107:; +do{ +if(qbevent){evnt(26070,13795,"ide_methods.bas");if(r)goto S_51107;} +do{ +SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDELANGUAGEBOX_UDT_P)) + (0) )); +if(!qbevent)break;evnt(26070,13798,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDELANGUAGEBOX_LONG_F= 1 ; +if(!qbevent)break;evnt(26070,13799,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDELANGUAGEBOX_LONG_CX= 0 ; +if(!qbevent)break;evnt(26070,13799,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDELANGUAGEBOX_LONG_CY= 0 ; +if(!qbevent)break;evnt(26070,13799,"ide_methods.bas");}while(r); +S_51112:; +fornext_value5659= 1 ; +fornext_finalvalue5659= 100 ; +fornext_step5659= 1 ; +if (fornext_step5659<0) fornext_step_negative5659=1; else fornext_step_negative5659=0; +if (new_error) goto fornext_error5659; +goto fornext_entrylabel5659; +while(1){ +fornext_value5659=fornext_step5659+(*_FUNC_IDELANGUAGEBOX_LONG_I); +fornext_entrylabel5659: +*_FUNC_IDELANGUAGEBOX_LONG_I=fornext_value5659; +if (fornext_step_negative5659){ +if (fornext_value5659fornext_finalvalue5659) break; +} +fornext_error5659:; +if(qbevent){evnt(26070,13800,"ide_methods.bas");if(r)goto S_51112;} +S_51113:; +if ((*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*89+36)))||new_error){ +if(qbevent){evnt(26070,13801,"ide_methods.bas");if(r)goto S_51113;} +do{ +*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*89+60))=*_FUNC_IDELANGUAGEBOX_LONG_FOCUS-*_FUNC_IDELANGUAGEBOX_LONG_F; +if(!qbevent)break;evnt(26070,13803,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*89+52))= 0 ; +if(!qbevent)break;evnt(26070,13804,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*89+56))= 0 ; +if(!qbevent)break;evnt(26070,13804,"ide_methods.bas");}while(r); +do{ +SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDELANGUAGEBOX_LONG_F); +if(!qbevent)break;evnt(26070,13805,"ide_methods.bas");}while(r); +S_51118:; +if ((*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*89+52)))||new_error){ +if(qbevent){evnt(26070,13806,"ide_methods.bas");if(r)goto S_51118;} +do{ +*_FUNC_IDELANGUAGEBOX_LONG_CX=*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*89+52)); +if(!qbevent)break;evnt(26070,13806,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDELANGUAGEBOX_LONG_CY=*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*89+56)); +if(!qbevent)break;evnt(26070,13806,"ide_methods.bas");}while(r); +} +} +fornext_continue_5658:; +} +fornext_exit_5658:; +do{ +*_FUNC_IDELANGUAGEBOX_LONG_LASTFOCUS=*_FUNC_IDELANGUAGEBOX_LONG_F- 1 ; +if(!qbevent)break;evnt(26070,13809,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,13813,"ide_methods.bas");}while(r); +do{ +sub__printstring(*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_UDT_P)+(0))+ 2 ,*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_UDT_P)+(4))+ 1 ,qbs_new_txt_len("Code-page for ASCII-UNICODE mapping (Default = CP437):",54),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13814,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 2 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,13815,"ide_methods.bas");}while(r); +do{ +sub__printstring(*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_UDT_P)+(0))+ 2 ,*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_UDT_P)+(4))+ 2 ,qbs_new_txt_len("(affects the display of TTF fonts set in Options-Display)",57),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13816,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 1 , 0 ); +if(!qbevent)break;evnt(26070,13821,"ide_methods.bas");}while(r); +S_51130:; +if ((*_FUNC_IDELANGUAGEBOX_LONG_CX)||new_error){ +if(qbevent){evnt(26070,13822,"ide_methods.bas");if(r)goto S_51130;} +do{ +qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,13822,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(*_FUNC_IDELANGUAGEBOX_LONG_CY,*_FUNC_IDELANGUAGEBOX_LONG_CX, 1 ,NULL,NULL,7); +if(!qbevent)break;evnt(26070,13822,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,13822,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDELANGUAGEBOX_LONG_CHANGE= 0 ; +if(!qbevent)break;evnt(26070,13825,"ide_methods.bas");}while(r); +S_51136:; +do{ +if(qbevent){evnt(26070,13826,"ide_methods.bas");if(r)goto S_51136;} +do{ +SUB_GETINPUT(); +if(!qbevent)break;evnt(26070,13827,"ide_methods.bas");}while(r); +S_51138:; +if ((*__LONG_MWHEEL)||new_error){ +if(qbevent){evnt(26070,13828,"ide_methods.bas");if(r)goto S_51138;} +do{ +*_FUNC_IDELANGUAGEBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,13828,"ide_methods.bas");}while(r); +} +S_51141:; +if ((*__LONG_KB)||new_error){ +if(qbevent){evnt(26070,13829,"ide_methods.bas");if(r)goto S_51141;} +do{ +*_FUNC_IDELANGUAGEBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,13829,"ide_methods.bas");}while(r); +} +S_51144:; +if ((*__LONG_MCLICK)||new_error){ +if(qbevent){evnt(26070,13830,"ide_methods.bas");if(r)goto S_51144;} +do{ +*_FUNC_IDELANGUAGEBOX_LONG_MOUSEDOWN= 1 ; +if(!qbevent)break;evnt(26070,13830,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDELANGUAGEBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,13830,"ide_methods.bas");}while(r); +} +S_51148:; +if ((*__LONG_MRELEASE)||new_error){ +if(qbevent){evnt(26070,13831,"ide_methods.bas");if(r)goto S_51148;} +do{ +*_FUNC_IDELANGUAGEBOX_LONG_MOUSEUP= 1 ; +if(!qbevent)break;evnt(26070,13831,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDELANGUAGEBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,13831,"ide_methods.bas");}while(r); +} +S_51152:; +if ((*__LONG_MB)||new_error){ +if(qbevent){evnt(26070,13832,"ide_methods.bas");if(r)goto S_51152;} +do{ +*_FUNC_IDELANGUAGEBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,13832,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDELANGUAGEBOX_LONG_ALT=*__LONG_KALT; +if(!qbevent)break;evnt(26070,13833,"ide_methods.bas");}while(r); +S_51156:; +if ((-(*_FUNC_IDELANGUAGEBOX_LONG_ALT!=*_FUNC_IDELANGUAGEBOX_LONG_OLDALT))||new_error){ +if(qbevent){evnt(26070,13833,"ide_methods.bas");if(r)goto S_51156;} +do{ +*_FUNC_IDELANGUAGEBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,13833,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDELANGUAGEBOX_LONG_OLDALT=*_FUNC_IDELANGUAGEBOX_LONG_ALT; +if(!qbevent)break;evnt(26070,13834,"ide_methods.bas");}while(r); +do{ +sub__limit( 100 ); +if(!qbevent)break;evnt(26070,13835,"ide_methods.bas");}while(r); +S_51161:; +dl_continue_5660:; +}while((!(*_FUNC_IDELANGUAGEBOX_LONG_CHANGE))&&(!new_error)); +dl_exit_5660:; +if(qbevent){evnt(26070,13836,"ide_methods.bas");if(r)goto S_51161;} +S_51162:; +if ((*_FUNC_IDELANGUAGEBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ +if(qbevent){evnt(26070,13837,"ide_methods.bas");if(r)goto S_51162;} +do{ +*__LONG_IDEHL= 1 ; +if(!qbevent)break;evnt(26070,13837,"ide_methods.bas");}while(r); +}else{ +do{ +*__LONG_IDEHL= 0 ; +if(!qbevent)break;evnt(26070,13837,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDELANGUAGEBOX_STRING_ALTLETTER,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13839,"ide_methods.bas");}while(r); +S_51168:; +if ((*_FUNC_IDELANGUAGEBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ +if(qbevent){evnt(26070,13840,"ide_methods.bas");if(r)goto S_51168;} +S_51169:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ +if(qbevent){evnt(26070,13841,"ide_methods.bas");if(r)goto S_51169;} +do{ +*_FUNC_IDELANGUAGEBOX_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13842,"ide_methods.bas");}while(r); +S_51171:; +if (((-(*_FUNC_IDELANGUAGEBOX_LONG_K>= 65 ))&(-(*_FUNC_IDELANGUAGEBOX_LONG_K<= 90 )))||new_error){ +if(qbevent){evnt(26070,13843,"ide_methods.bas");if(r)goto S_51171;} +do{ +qbs_set(_FUNC_IDELANGUAGEBOX_STRING_ALTLETTER,func_chr(*_FUNC_IDELANGUAGEBOX_LONG_K)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13843,"ide_methods.bas");}while(r); +} +} +} +do{ +qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,13846,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); +if(!qbevent)break;evnt(26070,13846,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,13846,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDELANGUAGEBOX_LONG_INFO= 0 ; +if(!qbevent)break;evnt(26070,13850,"ide_methods.bas");}while(r); +S_51180:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,13851,"ide_methods.bas");if(r)goto S_51180;} +do{ +qbs_set(__STRING_K,func_chr( 255 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13851,"ide_methods.bas");}while(r); +} +S_51183:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ +if(qbevent){evnt(26070,13852,"ide_methods.bas");if(r)goto S_51183;} +do{ +*_FUNC_IDELANGUAGEBOX_LONG_FOCUS=*_FUNC_IDELANGUAGEBOX_LONG_FOCUS+ 1 ; +if(!qbevent)break;evnt(26070,13852,"ide_methods.bas");}while(r); +} +S_51186:; +if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||new_error){ +if(qbevent){evnt(26070,13853,"ide_methods.bas");if(r)goto S_51186;} +do{ +*_FUNC_IDELANGUAGEBOX_LONG_FOCUS=*_FUNC_IDELANGUAGEBOX_LONG_FOCUS- 1 ; +if(!qbevent)break;evnt(26070,13853,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_K,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13853,"ide_methods.bas");}while(r); +} +S_51190:; +if ((-(*_FUNC_IDELANGUAGEBOX_LONG_FOCUS< 1 ))||new_error){ +if(qbevent){evnt(26070,13854,"ide_methods.bas");if(r)goto S_51190;} +do{ +*_FUNC_IDELANGUAGEBOX_LONG_FOCUS=*_FUNC_IDELANGUAGEBOX_LONG_LASTFOCUS; +if(!qbevent)break;evnt(26070,13854,"ide_methods.bas");}while(r); +} +S_51193:; +if ((-(*_FUNC_IDELANGUAGEBOX_LONG_FOCUS>*_FUNC_IDELANGUAGEBOX_LONG_LASTFOCUS))||new_error){ +if(qbevent){evnt(26070,13855,"ide_methods.bas");if(r)goto S_51193;} +do{ +*_FUNC_IDELANGUAGEBOX_LONG_FOCUS= 1 ; +if(!qbevent)break;evnt(26070,13855,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDELANGUAGEBOX_LONG_F= 1 ; +if(!qbevent)break;evnt(26070,13856,"ide_methods.bas");}while(r); +S_51197:; +fornext_value5663= 1 ; +fornext_finalvalue5663= 100 ; +fornext_step5663= 1 ; +if (fornext_step5663<0) fornext_step_negative5663=1; else fornext_step_negative5663=0; +if (new_error) goto fornext_error5663; +goto fornext_entrylabel5663; +while(1){ +fornext_value5663=fornext_step5663+(*_FUNC_IDELANGUAGEBOX_LONG_I); +fornext_entrylabel5663: +*_FUNC_IDELANGUAGEBOX_LONG_I=fornext_value5663; +if (fornext_step_negative5663){ +if (fornext_value5663fornext_finalvalue5663) break; +} +fornext_error5663:; +if(qbevent){evnt(26070,13857,"ide_methods.bas");if(r)goto S_51197;} +do{ +*_FUNC_IDELANGUAGEBOX_LONG_T=*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*89+36)); +if(!qbevent)break;evnt(26070,13858,"ide_methods.bas");}while(r); +S_51199:; +if ((*_FUNC_IDELANGUAGEBOX_LONG_T)||new_error){ +if(qbevent){evnt(26070,13859,"ide_methods.bas");if(r)goto S_51199;} +do{ +*_FUNC_IDELANGUAGEBOX_LONG_FOCUSOFFSET=*_FUNC_IDELANGUAGEBOX_LONG_FOCUS-*_FUNC_IDELANGUAGEBOX_LONG_F; +if(!qbevent)break;evnt(26070,13860,"ide_methods.bas");}while(r); +do{ +SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDELANGUAGEBOX_LONG_I)-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDELANGUAGEBOX_LONG_FOCUS,_FUNC_IDELANGUAGEBOX_LONG_F,_FUNC_IDELANGUAGEBOX_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDELANGUAGEBOX_STRING_ALTLETTER,__LONG_MB,_FUNC_IDELANGUAGEBOX_LONG_MOUSEDOWN,_FUNC_IDELANGUAGEBOX_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDELANGUAGEBOX_LONG_INFO,__LONG_MWHEEL); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13861,"ide_methods.bas");}while(r); +} +fornext_continue_5662:; +} +fornext_exit_5662:; +S_51204:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 27 )))|(((-(*_FUNC_IDELANGUAGEBOX_LONG_FOCUS== 3 ))&(-(*_FUNC_IDELANGUAGEBOX_LONG_INFO!= 0 ))))))||new_error){ +if(qbevent){evnt(26070,13866,"ide_methods.bas");if(r)goto S_51204;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,13868,"ide_methods.bas");}while(r); +} +S_51207:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 13 )))|(((-(*_FUNC_IDELANGUAGEBOX_LONG_FOCUS== 2 ))&(-(*_FUNC_IDELANGUAGEBOX_LONG_INFO!= 0 ))))|(((-(*_FUNC_IDELANGUAGEBOX_LONG_INFO== 1 ))&(-(*_FUNC_IDELANGUAGEBOX_LONG_FOCUS== 1 ))))))||new_error){ +if(qbevent){evnt(26070,13871,"ide_methods.bas");if(r)goto S_51207;} +do{ +*_FUNC_IDELANGUAGEBOX_LONG_Y=*(int32*)(((char*)_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[4],_FUNC_IDELANGUAGEBOX_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26070,13872,"ide_methods.bas");}while(r); +S_51209:; +if ((-(*_FUNC_IDELANGUAGEBOX_LONG_Y< 1 ))||new_error){ +if(qbevent){evnt(26070,13873,"ide_methods.bas");if(r)goto S_51209;} +do{ +*_FUNC_IDELANGUAGEBOX_LONG_Y=-(*_FUNC_IDELANGUAGEBOX_LONG_Y); +if(!qbevent)break;evnt(26070,13873,"ide_methods.bas");}while(r); +} +S_51212:; +fornext_value5665= 128 ; +fornext_finalvalue5665= 255 ; +fornext_step5665= 1 ; +if (fornext_step5665<0) fornext_step_negative5665=1; else fornext_step_negative5665=0; +if (new_error) goto fornext_error5665; +goto fornext_entrylabel5665; +while(1){ +fornext_value5665=fornext_step5665+(*_FUNC_IDELANGUAGEBOX_LONG_X); +fornext_entrylabel5665: +*_FUNC_IDELANGUAGEBOX_LONG_X=fornext_value5665; +if (fornext_step_negative5665){ +if (fornext_value5665fornext_finalvalue5665) break; +} +fornext_error5665:; +if(qbevent){evnt(26070,13875,"ide_methods.bas");if(r)goto S_51212;} +do{ +*_FUNC_IDELANGUAGEBOX_LONG_U=qbr(func_val(qbs_add(qbs_add(qbs_new_txt_len("&H",2),func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_IDECP[0]))[array_check((*_FUNC_IDELANGUAGEBOX_LONG_Y)-__ARRAY_STRING_IDECP[4],__ARRAY_STRING_IDECP[5])])),(*_FUNC_IDELANGUAGEBOX_LONG_X* 8 )+( 1 ), 8 ,0|1)),qbs_new_txt_len("&",1)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13876,"ide_methods.bas");}while(r); +S_51214:; +if ((-(*_FUNC_IDELANGUAGEBOX_LONG_U== 0 ))||new_error){ +if(qbevent){evnt(26070,13877,"ide_methods.bas");if(r)goto S_51214;} +do{ +*_FUNC_IDELANGUAGEBOX_LONG_U= 9744 ; +if(!qbevent)break;evnt(26070,13877,"ide_methods.bas");}while(r); +} +do{ +sub__mapunicode(*_FUNC_IDELANGUAGEBOX_LONG_U,*_FUNC_IDELANGUAGEBOX_LONG_X); +if(!qbevent)break;evnt(26070,13878,"ide_methods.bas");}while(r); +fornext_continue_5664:; +} +fornext_exit_5664:; +do{ +*_FUNC_IDELANGUAGEBOX_INTEGER_V=*_FUNC_IDELANGUAGEBOX_LONG_Y; +if(!qbevent)break;evnt(26070,13882,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECPINDEX=*_FUNC_IDELANGUAGEBOX_INTEGER_V; +if(!qbevent)break;evnt(26070,13882,"ide_methods.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_CodePage",12),qbs_str((int32)(*__LONG_IDECPINDEX))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13883,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,13884,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDELANGUAGEBOX_LONG_MOUSEDOWN= 0 ; +if(!qbevent)break;evnt(26070,13889,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDELANGUAGEBOX_LONG_MOUSEUP= 0 ; +if(!qbevent)break;evnt(26070,13890,"ide_methods.bas");}while(r); +dl_continue_5657:; +}while(1); +dl_exit_5657:; +do{ +*_FUNC_IDELANGUAGEBOX_LONG_IDELANGUAGEBOX= 0 ; +if(!qbevent)break;evnt(26070,13893,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free217.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +return *_FUNC_IDELANGUAGEBOX_LONG_IDELANGUAGEBOX; +} +int32 FUNC_IDEWARNINGBOX(){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data218.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +sub_pcopy( 0 , 2 ); +if(!qbevent)break;evnt(26070,13900,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 0 , 1 ); +if(!qbevent)break;evnt(26070,13901,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,13902,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEWARNINGBOX_LONG_FOCUS= 1 ; +if(!qbevent)break;evnt(26070,13903,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26070,13904,"ide_methods.bas");}while(r); +do{ if (_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[2]&2){ error(10); @@ -172687,1294 +172687,1294 @@ if (!_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0]) error(257); } _FUNC_IDEWARNINGBOX_ARRAY_UDT_O[2]|=1; } -} -if(!qbevent)break;evnt(26070,13905,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(26070,13906,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEWARNINGBOX_STRING1_SEP,func_chr( 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13907,"ide_methods.bas");}while(r); -S_51236:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_IDEPROGNAME->len))||new_error){ -if(qbevent){evnt(26070,13912,"ide_methods.bas");if(r)goto S_51236;} -do{ -qbs_set(_FUNC_IDEWARNINGBOX_STRING_THISPROG,__STRING_IDEPROGNAME); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13912,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDEWARNINGBOX_STRING_THISPROG,qbs_add(qbs_new_txt_len("Untitled",8),__STRING_TEMPFOLDERINDEXSTR)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13912,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEWARNINGBOX_LONG_MAXMODULENAMELEN=_FUNC_IDEWARNINGBOX_STRING_THISPROG->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13913,"ide_methods.bas");}while(r); -S_51242:; -fornext_value5669= 1 ; -fornext_finalvalue5669=*__LONG_WARNINGLISTITEMS; -fornext_step5669= 1 ; -if (fornext_step5669<0) fornext_step_negative5669=1; else fornext_step_negative5669=0; -if (new_error) goto fornext_error5669; -goto fornext_entrylabel5669; -while(1){ -fornext_value5669=fornext_step5669+(*_FUNC_IDEWARNINGBOX_LONG_X); -fornext_entrylabel5669: -*_FUNC_IDEWARNINGBOX_LONG_X=fornext_value5669; -if (fornext_step_negative5669){ -if (fornext_value5669fornext_finalvalue5669) break; -} -fornext_error5669:; -if(qbevent){evnt(26070,13916,"ide_methods.bas");if(r)goto S_51242;} -S_51243:; -if ((-(((int32*)(__ARRAY_LONG_WARNINGLINES[0]))[array_check((*_FUNC_IDEWARNINGBOX_LONG_X)-__ARRAY_LONG_WARNINGLINES[4],__ARRAY_LONG_WARNINGLINES[5])]== 0 ))||new_error){ -if(qbevent){evnt(26070,13917,"ide_methods.bas");if(r)goto S_51243;} -do{ -goto fornext_continue_5668; -if(!qbevent)break;evnt(26070,13917,"ide_methods.bas");}while(r); -} -S_51246:; -if ((-(((int32*)(__ARRAY_LONG_WARNINGINCLINES[0]))[array_check((*_FUNC_IDEWARNINGBOX_LONG_X)-__ARRAY_LONG_WARNINGINCLINES[4],__ARRAY_LONG_WARNINGINCLINES[5])]> 0 ))||new_error){ -if(qbevent){evnt(26070,13919,"ide_methods.bas");if(r)goto S_51246;} -S_51247:; -if ((qbs_cleanup(qbs_tmp_base,-(((qbs*)(((uint64*)(__ARRAY_STRING_WARNINGINCFILES[0]))[array_check((*_FUNC_IDEWARNINGBOX_LONG_X)-__ARRAY_STRING_WARNINGINCFILES[4],__ARRAY_STRING_WARNINGINCFILES[5])]))->len>*_FUNC_IDEWARNINGBOX_LONG_MAXMODULENAMELEN)))||new_error){ -if(qbevent){evnt(26070,13920,"ide_methods.bas");if(r)goto S_51247;} -do{ -*_FUNC_IDEWARNINGBOX_LONG_MAXMODULENAMELEN=((qbs*)(((uint64*)(__ARRAY_STRING_WARNINGINCFILES[0]))[array_check((*_FUNC_IDEWARNINGBOX_LONG_X)-__ARRAY_STRING_WARNINGINCFILES[4],__ARRAY_STRING_WARNINGINCFILES[5])]))->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13921,"ide_methods.bas");}while(r); -} -} -fornext_continue_5668:; -} -fornext_exit_5668:; -do{ -*_FUNC_IDEWARNINGBOX_LONG_DIALOGWIDTH= 60 ; -if(!qbevent)break;evnt(26070,13927,"ide_methods.bas");}while(r); -S_51253:; -fornext_value5673= 1 ; -fornext_finalvalue5673=*__LONG_WARNINGLISTITEMS; -fornext_step5673= 1 ; -if (fornext_step5673<0) fornext_step_negative5673=1; else fornext_step_negative5673=0; -if (new_error) goto fornext_error5673; -goto fornext_entrylabel5673; -while(1){ -fornext_value5673=fornext_step5673+(*_FUNC_IDEWARNINGBOX_LONG_X); -fornext_entrylabel5673: -*_FUNC_IDEWARNINGBOX_LONG_X=fornext_value5673; -if (fornext_step_negative5673){ -if (fornext_value5673fornext_finalvalue5673) break; -} -fornext_error5673:; -if(qbevent){evnt(26070,13928,"ide_methods.bas");if(r)goto S_51253;} -S_51254:; -if ((-(((int32*)(__ARRAY_LONG_WARNINGLINES[0]))[array_check((*_FUNC_IDEWARNINGBOX_LONG_X)-__ARRAY_LONG_WARNINGLINES[4],__ARRAY_LONG_WARNINGLINES[5])]== 0 ))||new_error){ -if(qbevent){evnt(26070,13929,"ide_methods.bas");if(r)goto S_51254;} -do{ -qbs_set(_FUNC_IDEWARNINGBOX_STRING_L,qbs_add(_FUNC_IDEWARNINGBOX_STRING_L,((qbs*)(((uint64*)(__ARRAY_STRING_WARNING[0]))[array_check((*_FUNC_IDEWARNINGBOX_LONG_X)-__ARRAY_STRING_WARNING[4],__ARRAY_STRING_WARNING[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13930,"ide_methods.bas");}while(r); -S_51256:; -if (((-(*_FUNC_IDEWARNINGBOX_LONG_X> 1 ))&(-(*_FUNC_IDEWARNINGBOX_LONG_TREECONNECTION> 0 )))||new_error){ -if(qbevent){evnt(26070,13931,"ide_methods.bas");if(r)goto S_51256;} -do{ -tqbs=_FUNC_IDEWARNINGBOX_STRING_L; if (!new_error){ -tmp_fileno=*_FUNC_IDEWARNINGBOX_LONG_TREECONNECTION; if (!new_error){ -tmp_long= 192 ; if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(26070,13931,"ide_methods.bas");}while(r); -} -}else{ -do{ -qbs_set(_FUNC_IDEWARNINGBOX_STRING_L3,qbs_add(func_chr( 16 ),func_chr( 2 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13933,"ide_methods.bas");}while(r); -S_51261:; -if ((-(((int32*)(__ARRAY_LONG_WARNINGINCLINES[0]))[array_check((*_FUNC_IDEWARNINGBOX_LONG_X)-__ARRAY_LONG_WARNINGINCLINES[4],__ARRAY_LONG_WARNINGINCLINES[5])]> 0 ))||new_error){ -if(qbevent){evnt(26070,13934,"ide_methods.bas");if(r)goto S_51261;} -do{ -qbs_set(_FUNC_IDEWARNINGBOX_STRING_NUM,func_space(((int32)(qbs_str((int32)(*__LONG_MAXLINENUMBER)))->len)+ 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13935,"ide_methods.bas");}while(r); -do{ -sub_rset(_FUNC_IDEWARNINGBOX_STRING_NUM,FUNC_STR2((&(((int32*)(__ARRAY_LONG_WARNINGINCLINES[0]))[array_check((*_FUNC_IDEWARNINGBOX_LONG_X)-__ARRAY_LONG_WARNINGINCLINES[4],__ARRAY_LONG_WARNINGINCLINES[5])])))); -if(!qbevent)break;evnt(26070,13936,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEWARNINGBOX_STRING_L3,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_IDEWARNINGBOX_STRING_L3,((qbs*)(((uint64*)(__ARRAY_STRING_WARNINGINCFILES[0]))[array_check((*_FUNC_IDEWARNINGBOX_LONG_X)-__ARRAY_STRING_WARNINGINCFILES[4],__ARRAY_STRING_WARNINGINCFILES[5])]))),func_space(*_FUNC_IDEWARNINGBOX_LONG_MAXMODULENAMELEN-((qbs*)(((uint64*)(__ARRAY_STRING_WARNINGINCFILES[0]))[array_check((*_FUNC_IDEWARNINGBOX_LONG_X)-__ARRAY_STRING_WARNINGINCFILES[4],__ARRAY_STRING_WARNINGINCFILES[5])]))->len)),qbs_new_txt_len(":",1)),func_chr( 16 )),func_chr( 16 )),_FUNC_IDEWARNINGBOX_STRING_NUM)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13937,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDEWARNINGBOX_STRING_NUM,func_space(((int32)(qbs_str((int32)(*__LONG_MAXLINENUMBER)))->len)+ 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13939,"ide_methods.bas");}while(r); -do{ -sub_rset(_FUNC_IDEWARNINGBOX_STRING_NUM,FUNC_STR2((&(((int32*)(__ARRAY_LONG_WARNINGLINES[0]))[array_check((*_FUNC_IDEWARNINGBOX_LONG_X)-__ARRAY_LONG_WARNINGLINES[4],__ARRAY_LONG_WARNINGLINES[5])])))); -if(!qbevent)break;evnt(26070,13940,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEWARNINGBOX_STRING_L3,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_IDEWARNINGBOX_STRING_L3,_FUNC_IDEWARNINGBOX_STRING_THISPROG),func_space(*_FUNC_IDEWARNINGBOX_LONG_MAXMODULENAMELEN-_FUNC_IDEWARNINGBOX_STRING_THISPROG->len)),qbs_new_txt_len(":",1)),func_chr( 16 )),func_chr( 16 )),_FUNC_IDEWARNINGBOX_STRING_NUM)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13941,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEWARNINGBOX_LONG_TREECONNECTION=_FUNC_IDEWARNINGBOX_STRING_L->len+ 1 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13943,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEWARNINGBOX_STRING_TEXT,((qbs*)(((uint64*)(__ARRAY_STRING_WARNING[0]))[array_check((*_FUNC_IDEWARNINGBOX_LONG_X)-__ARRAY_STRING_WARNING[4],__ARRAY_STRING_WARNING[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13944,"ide_methods.bas");}while(r); -S_51272:; -if ((qbs_cleanup(qbs_tmp_base,-((((int32)(qbs_add(_FUNC_IDEWARNINGBOX_STRING_L3,_FUNC_IDEWARNINGBOX_STRING_TEXT))->len)+ 6 )>*_FUNC_IDEWARNINGBOX_LONG_DIALOGWIDTH)))||new_error){ -if(qbevent){evnt(26070,13945,"ide_methods.bas");if(r)goto S_51272;} -do{ -*_FUNC_IDEWARNINGBOX_LONG_DIALOGWIDTH=((int32)(qbs_add(_FUNC_IDEWARNINGBOX_STRING_L3,_FUNC_IDEWARNINGBOX_STRING_TEXT))->len)+ 6 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13945,"ide_methods.bas");}while(r); -} -S_51275:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDEWARNINGBOX_STRING_TEXT->len))||new_error){ -if(qbevent){evnt(26070,13946,"ide_methods.bas");if(r)goto S_51275;} -do{ -qbs_set(_FUNC_IDEWARNINGBOX_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_IDEWARNINGBOX_STRING_L,func_chr( 195 )),func_chr( 196 )),_FUNC_IDEWARNINGBOX_STRING_L3),qbs_new_txt_len(": ",2)),_FUNC_IDEWARNINGBOX_STRING_TEXT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13947,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDEWARNINGBOX_STRING_L,qbs_add(qbs_add(qbs_add(_FUNC_IDEWARNINGBOX_STRING_L,func_chr( 195 )),func_chr( 196 )),_FUNC_IDEWARNINGBOX_STRING_L3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13949,"ide_methods.bas");}while(r); -} -} -S_51281:; -if ((-(*_FUNC_IDEWARNINGBOX_LONG_X<*__LONG_WARNINGLISTITEMS))||new_error){ -if(qbevent){evnt(26070,13952,"ide_methods.bas");if(r)goto S_51281;} -do{ -qbs_set(_FUNC_IDEWARNINGBOX_STRING_L,qbs_add(_FUNC_IDEWARNINGBOX_STRING_L,_FUNC_IDEWARNINGBOX_STRING1_SEP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13952,"ide_methods.bas");}while(r); -} -fornext_continue_5672:; -} -fornext_exit_5672:; -S_51285:; -if ((-(((int32*)(__ARRAY_LONG_WARNINGLINES[0]))[array_check((*__LONG_WARNINGLISTITEMS)-__ARRAY_LONG_WARNINGLINES[4],__ARRAY_LONG_WARNINGLINES[5])]> 0 ))||new_error){ -if(qbevent){evnt(26070,13955,"ide_methods.bas");if(r)goto S_51285;} -do{ -tqbs=_FUNC_IDEWARNINGBOX_STRING_L; if (!new_error){ -tmp_fileno=*_FUNC_IDEWARNINGBOX_LONG_TREECONNECTION; if (!new_error){ -tmp_long= 192 ; if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(26070,13956,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEWARNINGBOX_LONG_I= 0 ; -if(!qbevent)break;evnt(26070,13959,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEWARNINGBOX_LONG_DIALOGHEIGHT=*__LONG_WARNINGLISTITEMS+ 4 ; -if(!qbevent)break;evnt(26070,13960,"ide_methods.bas");}while(r); -S_51290:; -if ((-(*_FUNC_IDEWARNINGBOX_LONG_DIALOGHEIGHT>(*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 6 )))||new_error){ -if(qbevent){evnt(26070,13961,"ide_methods.bas");if(r)goto S_51290;} -do{ -*_FUNC_IDEWARNINGBOX_LONG_DIALOGHEIGHT=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 6 ; -if(!qbevent)break;evnt(26070,13962,"ide_methods.bas");}while(r); -} -S_51293:; -if ((-(*_FUNC_IDEWARNINGBOX_LONG_DIALOGWIDTH>(*__LONG_IDEWX- 8 )))||new_error){ -if(qbevent){evnt(26070,13965,"ide_methods.bas");if(r)goto S_51293;} -do{ -*_FUNC_IDEWARNINGBOX_LONG_DIALOGWIDTH=*__LONG_IDEWX- 8 ; -if(!qbevent)break;evnt(26070,13965,"ide_methods.bas");}while(r); -} -do{ -SUB_IDEPAR((void*)( ((char*)(_FUNC_IDEWARNINGBOX_UDT_P)) + (0) ),_FUNC_IDEWARNINGBOX_LONG_DIALOGWIDTH,_FUNC_IDEWARNINGBOX_LONG_DIALOGHEIGHT,qbs_new_txt_len("Compilation status",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,13967,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEWARNINGBOX_LONG_I=*_FUNC_IDEWARNINGBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,13969,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*89+36))= 2 ; -if(!qbevent)break;evnt(26070,13970,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*89+24))= 2 ; -if(!qbevent)break;evnt(26070,13971,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*89+28))=*_FUNC_IDEWARNINGBOX_LONG_DIALOGWIDTH- 4 ; -if(!qbevent)break;evnt(26070,13972,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*89+32))=*_FUNC_IDEWARNINGBOX_LONG_DIALOGHEIGHT- 4 ; -if(!qbevent)break;evnt(26070,13972,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDEWARNINGBOX_STRING_L); -if(!qbevent)break;evnt(26070,13973,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*89+64))= 1 ; -if(!qbevent)break;evnt(26070,13974,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_new_txt_len("Warnings (",10),qbs_ltrim(qbs_str((int32)(*__LONG_TOTALWARNINGS)))),qbs_new_txt_len(")",1))); -if(!qbevent)break;evnt(26070,13975,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEWARNINGBOX_LONG_I=*_FUNC_IDEWARNINGBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,13977,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*89+36))= 3 ; -if(!qbevent)break;evnt(26070,13978,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*89+24))=*_FUNC_IDEWARNINGBOX_LONG_DIALOGHEIGHT; -if(!qbevent)break;evnt(26070,13979,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_new_txt_len("#Go to",6),_FUNC_IDEWARNINGBOX_STRING1_SEP),qbs_new_txt_len("#Close",6))); -if(!qbevent)break;evnt(26070,13980,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*89+48))= 1 ; -if(!qbevent)break;evnt(26070,13981,"ide_methods.bas");}while(r); -S_51310:; -fornext_value5679= 1 ; -fornext_finalvalue5679= 100 ; -fornext_step5679= 1 ; -if (fornext_step5679<0) fornext_step_negative5679=1; else fornext_step_negative5679=0; -if (new_error) goto fornext_error5679; -goto fornext_entrylabel5679; -while(1){ -fornext_value5679=fornext_step5679+(*_FUNC_IDEWARNINGBOX_LONG_I); -fornext_entrylabel5679: -*_FUNC_IDEWARNINGBOX_LONG_I=fornext_value5679; -if (fornext_step_negative5679){ -if (fornext_value5679fornext_finalvalue5679) break; -} -fornext_error5679:; -if(qbevent){evnt(26070,13990,"ide_methods.bas");if(r)goto S_51310;} -do{ -memcpy(((char*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*89)+ 0,((char*)_FUNC_IDEWARNINGBOX_UDT_P)+(0)+ 0, 20); -if(!qbevent)break;evnt(26070,13990,"ide_methods.bas");}while(r); -fornext_continue_5678:; -} -fornext_exit_5678:; -S_51313:; -do{ -if(qbevent){evnt(26070,13993,"ide_methods.bas");if(r)goto S_51313;} -do{ -SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDEWARNINGBOX_UDT_P)) + (0) )); -if(!qbevent)break;evnt(26070,13996,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEWARNINGBOX_LONG_F= 1 ; -if(!qbevent)break;evnt(26070,13997,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEWARNINGBOX_LONG_CX= 0 ; -if(!qbevent)break;evnt(26070,13997,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEWARNINGBOX_LONG_CY= 0 ; -if(!qbevent)break;evnt(26070,13997,"ide_methods.bas");}while(r); -S_51318:; -fornext_value5682= 1 ; -fornext_finalvalue5682= 100 ; -fornext_step5682= 1 ; -if (fornext_step5682<0) fornext_step_negative5682=1; else fornext_step_negative5682=0; -if (new_error) goto fornext_error5682; -goto fornext_entrylabel5682; -while(1){ -fornext_value5682=fornext_step5682+(*_FUNC_IDEWARNINGBOX_LONG_I); -fornext_entrylabel5682: -*_FUNC_IDEWARNINGBOX_LONG_I=fornext_value5682; -if (fornext_step_negative5682){ -if (fornext_value5682fornext_finalvalue5682) break; -} -fornext_error5682:; -if(qbevent){evnt(26070,13998,"ide_methods.bas");if(r)goto S_51318;} -S_51319:; -if ((*(int32*)(((char*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*89+36)))||new_error){ -if(qbevent){evnt(26070,13999,"ide_methods.bas");if(r)goto S_51319;} -do{ -*(int32*)(((char*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*89+60))=*_FUNC_IDEWARNINGBOX_LONG_FOCUS-*_FUNC_IDEWARNINGBOX_LONG_F; -if(!qbevent)break;evnt(26070,14001,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*89+52))= 0 ; -if(!qbevent)break;evnt(26070,14002,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*89+56))= 0 ; -if(!qbevent)break;evnt(26070,14002,"ide_methods.bas");}while(r); -do{ -SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDEWARNINGBOX_LONG_F); -if(!qbevent)break;evnt(26070,14003,"ide_methods.bas");}while(r); -S_51324:; -if ((*(int32*)(((char*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*89+52)))||new_error){ -if(qbevent){evnt(26070,14004,"ide_methods.bas");if(r)goto S_51324;} -do{ -*_FUNC_IDEWARNINGBOX_LONG_CX=*(int32*)(((char*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*89+52)); -if(!qbevent)break;evnt(26070,14004,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEWARNINGBOX_LONG_CY=*(int32*)(((char*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*89+56)); -if(!qbevent)break;evnt(26070,14004,"ide_methods.bas");}while(r); -} -} -fornext_continue_5681:; -} -fornext_exit_5681:; -do{ -*_FUNC_IDEWARNINGBOX_LONG_LASTFOCUS=*_FUNC_IDEWARNINGBOX_LONG_F- 1 ; -if(!qbevent)break;evnt(26070,14007,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,14011,"ide_methods.bas");}while(r); -do{ -sub__printstring(*(int32*)(((char*)_FUNC_IDEWARNINGBOX_UDT_P)+(0))+ 2 ,*(int32*)(((char*)_FUNC_IDEWARNINGBOX_UDT_P)+(4))+ 1 ,qbs_new_txt_len("Double-click on an item to jump to the line indicated",53),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14011,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 1 , 0 ); -if(!qbevent)break;evnt(26070,14016,"ide_methods.bas");}while(r); -S_51334:; -if ((*_FUNC_IDEWARNINGBOX_LONG_CX)||new_error){ -if(qbevent){evnt(26070,14017,"ide_methods.bas");if(r)goto S_51334;} -do{ -qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,14017,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*_FUNC_IDEWARNINGBOX_LONG_CY,*_FUNC_IDEWARNINGBOX_LONG_CX, 1 ,NULL,NULL,7); -if(!qbevent)break;evnt(26070,14017,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,14017,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEWARNINGBOX_LONG_CHANGE= 0 ; -if(!qbevent)break;evnt(26070,14020,"ide_methods.bas");}while(r); -S_51340:; -do{ -if(qbevent){evnt(26070,14021,"ide_methods.bas");if(r)goto S_51340;} -do{ -SUB_GETINPUT(); -if(!qbevent)break;evnt(26070,14022,"ide_methods.bas");}while(r); -S_51342:; -if ((*__LONG_MWHEEL)||new_error){ -if(qbevent){evnt(26070,14023,"ide_methods.bas");if(r)goto S_51342;} -do{ -*_FUNC_IDEWARNINGBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,14023,"ide_methods.bas");}while(r); -} -S_51345:; -if ((*__LONG_KB)||new_error){ -if(qbevent){evnt(26070,14024,"ide_methods.bas");if(r)goto S_51345;} -do{ -*_FUNC_IDEWARNINGBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,14024,"ide_methods.bas");}while(r); -} -S_51348:; -if ((*__LONG_MCLICK)||new_error){ -if(qbevent){evnt(26070,14025,"ide_methods.bas");if(r)goto S_51348;} -do{ -*_FUNC_IDEWARNINGBOX_LONG_MOUSEDOWN= 1 ; -if(!qbevent)break;evnt(26070,14025,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEWARNINGBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,14025,"ide_methods.bas");}while(r); -} -S_51352:; -if ((*__LONG_MRELEASE)||new_error){ -if(qbevent){evnt(26070,14026,"ide_methods.bas");if(r)goto S_51352;} -do{ -*_FUNC_IDEWARNINGBOX_LONG_MOUSEUP= 1 ; -if(!qbevent)break;evnt(26070,14026,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEWARNINGBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,14026,"ide_methods.bas");}while(r); -} -S_51356:; -if ((*__LONG_MB)||new_error){ -if(qbevent){evnt(26070,14027,"ide_methods.bas");if(r)goto S_51356;} -do{ -*_FUNC_IDEWARNINGBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,14027,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEWARNINGBOX_LONG_ALT=*__LONG_KALT; -if(!qbevent)break;evnt(26070,14028,"ide_methods.bas");}while(r); -S_51360:; -if ((-(*_FUNC_IDEWARNINGBOX_LONG_ALT!=*_FUNC_IDEWARNINGBOX_LONG_OLDALT))||new_error){ -if(qbevent){evnt(26070,14028,"ide_methods.bas");if(r)goto S_51360;} -do{ -*_FUNC_IDEWARNINGBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,14028,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEWARNINGBOX_LONG_OLDALT=*_FUNC_IDEWARNINGBOX_LONG_ALT; -if(!qbevent)break;evnt(26070,14029,"ide_methods.bas");}while(r); -do{ -sub__limit( 100 ); -if(!qbevent)break;evnt(26070,14030,"ide_methods.bas");}while(r); -S_51365:; -dl_continue_5683:; -}while((!(*_FUNC_IDEWARNINGBOX_LONG_CHANGE))&&(!new_error)); -dl_exit_5683:; -if(qbevent){evnt(26070,14031,"ide_methods.bas");if(r)goto S_51365;} -S_51366:; -if ((*_FUNC_IDEWARNINGBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(26070,14032,"ide_methods.bas");if(r)goto S_51366;} -do{ -*__LONG_IDEHL= 1 ; -if(!qbevent)break;evnt(26070,14032,"ide_methods.bas");}while(r); -}else{ -do{ -*__LONG_IDEHL= 0 ; -if(!qbevent)break;evnt(26070,14032,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDEWARNINGBOX_STRING_ALTLETTER,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14034,"ide_methods.bas");}while(r); -S_51372:; -if ((*_FUNC_IDEWARNINGBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(26070,14035,"ide_methods.bas");if(r)goto S_51372;} -S_51373:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ -if(qbevent){evnt(26070,14036,"ide_methods.bas");if(r)goto S_51373;} -do{ -*_FUNC_IDEWARNINGBOX_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14037,"ide_methods.bas");}while(r); -S_51375:; -if (((-(*_FUNC_IDEWARNINGBOX_LONG_K>= 65 ))&(-(*_FUNC_IDEWARNINGBOX_LONG_K<= 90 )))||new_error){ -if(qbevent){evnt(26070,14038,"ide_methods.bas");if(r)goto S_51375;} -do{ -qbs_set(_FUNC_IDEWARNINGBOX_STRING_ALTLETTER,func_chr(*_FUNC_IDEWARNINGBOX_LONG_K)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14038,"ide_methods.bas");}while(r); -} -} -} -do{ -qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,14041,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); -if(!qbevent)break;evnt(26070,14041,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,14041,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEWARNINGBOX_LONG_INFO= 0 ; -if(!qbevent)break;evnt(26070,14045,"ide_methods.bas");}while(r); -S_51384:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,14046,"ide_methods.bas");if(r)goto S_51384;} -do{ -qbs_set(__STRING_K,func_chr( 255 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14046,"ide_methods.bas");}while(r); -} -S_51387:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ -if(qbevent){evnt(26070,14047,"ide_methods.bas");if(r)goto S_51387;} -do{ -*_FUNC_IDEWARNINGBOX_LONG_FOCUS=*_FUNC_IDEWARNINGBOX_LONG_FOCUS+ 1 ; -if(!qbevent)break;evnt(26070,14047,"ide_methods.bas");}while(r); -} -S_51390:; -if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||new_error){ -if(qbevent){evnt(26070,14048,"ide_methods.bas");if(r)goto S_51390;} -do{ -*_FUNC_IDEWARNINGBOX_LONG_FOCUS=*_FUNC_IDEWARNINGBOX_LONG_FOCUS- 1 ; -if(!qbevent)break;evnt(26070,14048,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_K,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14048,"ide_methods.bas");}while(r); -} -S_51394:; -if ((-(*_FUNC_IDEWARNINGBOX_LONG_FOCUS< 1 ))||new_error){ -if(qbevent){evnt(26070,14049,"ide_methods.bas");if(r)goto S_51394;} -do{ -*_FUNC_IDEWARNINGBOX_LONG_FOCUS=*_FUNC_IDEWARNINGBOX_LONG_LASTFOCUS; -if(!qbevent)break;evnt(26070,14049,"ide_methods.bas");}while(r); -} -S_51397:; -if ((-(*_FUNC_IDEWARNINGBOX_LONG_FOCUS>*_FUNC_IDEWARNINGBOX_LONG_LASTFOCUS))||new_error){ -if(qbevent){evnt(26070,14050,"ide_methods.bas");if(r)goto S_51397;} -do{ -*_FUNC_IDEWARNINGBOX_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(26070,14050,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEWARNINGBOX_LONG_F= 1 ; -if(!qbevent)break;evnt(26070,14051,"ide_methods.bas");}while(r); -S_51401:; -fornext_value5686= 1 ; -fornext_finalvalue5686= 100 ; -fornext_step5686= 1 ; -if (fornext_step5686<0) fornext_step_negative5686=1; else fornext_step_negative5686=0; -if (new_error) goto fornext_error5686; -goto fornext_entrylabel5686; -while(1){ -fornext_value5686=fornext_step5686+(*_FUNC_IDEWARNINGBOX_LONG_I); -fornext_entrylabel5686: -*_FUNC_IDEWARNINGBOX_LONG_I=fornext_value5686; -if (fornext_step_negative5686){ -if (fornext_value5686fornext_finalvalue5686) break; -} -fornext_error5686:; -if(qbevent){evnt(26070,14052,"ide_methods.bas");if(r)goto S_51401;} -do{ -*_FUNC_IDEWARNINGBOX_LONG_T=*(int32*)(((char*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*89+36)); -if(!qbevent)break;evnt(26070,14053,"ide_methods.bas");}while(r); -S_51403:; -if ((*_FUNC_IDEWARNINGBOX_LONG_T)||new_error){ -if(qbevent){evnt(26070,14054,"ide_methods.bas");if(r)goto S_51403;} -do{ -*_FUNC_IDEWARNINGBOX_LONG_FOCUSOFFSET=*_FUNC_IDEWARNINGBOX_LONG_FOCUS-*_FUNC_IDEWARNINGBOX_LONG_F; -if(!qbevent)break;evnt(26070,14055,"ide_methods.bas");}while(r); -do{ -SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDEWARNINGBOX_LONG_FOCUS,_FUNC_IDEWARNINGBOX_LONG_F,_FUNC_IDEWARNINGBOX_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDEWARNINGBOX_STRING_ALTLETTER,__LONG_MB,_FUNC_IDEWARNINGBOX_LONG_MOUSEDOWN,_FUNC_IDEWARNINGBOX_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDEWARNINGBOX_LONG_INFO,__LONG_MWHEEL); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14056,"ide_methods.bas");}while(r); -} -fornext_continue_5685:; -} -fornext_exit_5685:; -S_51408:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 27 )))|(((-(*_FUNC_IDEWARNINGBOX_LONG_FOCUS== 3 ))&(-(*_FUNC_IDEWARNINGBOX_LONG_INFO!= 0 ))))))||new_error){ -if(qbevent){evnt(26070,14061,"ide_methods.bas");if(r)goto S_51408;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,14062,"ide_methods.bas");}while(r); -} -S_51411:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 13 )))|(((-(*_FUNC_IDEWARNINGBOX_LONG_FOCUS== 2 ))&(-(*_FUNC_IDEWARNINGBOX_LONG_INFO!= 0 ))))|(((-(*_FUNC_IDEWARNINGBOX_LONG_INFO== 1 ))&(-(*_FUNC_IDEWARNINGBOX_LONG_FOCUS== 1 ))))))||new_error){ -if(qbevent){evnt(26070,14065,"ide_methods.bas");if(r)goto S_51411;} -do{ -*_FUNC_IDEWARNINGBOX_LONG_Y=func_abs((int32)(*(int32*)(((char*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*89+64)))); -if(!qbevent)break;evnt(26070,14066,"ide_methods.bas");}while(r); -S_51413:; -if (((-(*_FUNC_IDEWARNINGBOX_LONG_Y>= 1 ))&(-(*_FUNC_IDEWARNINGBOX_LONG_Y<=*__LONG_WARNINGLISTITEMS))&(-(((int32*)(__ARRAY_LONG_WARNINGLINES[0]))[array_check((*_FUNC_IDEWARNINGBOX_LONG_Y)-__ARRAY_LONG_WARNINGLINES[4],__ARRAY_LONG_WARNINGLINES[5])]> 0 )))||new_error){ -if(qbevent){evnt(26070,14067,"ide_methods.bas");if(r)goto S_51413;} -do{ -*__LONG_IDEGOTOBOX_LASTLINENUM=((int32*)(__ARRAY_LONG_WARNINGLINES[0]))[array_check((*_FUNC_IDEWARNINGBOX_LONG_Y)-__ARRAY_LONG_WARNINGLINES[4],__ARRAY_LONG_WARNINGLINES[5])]; -if(!qbevent)break;evnt(26070,14068,"ide_methods.bas");}while(r); -do{ -SUB_ADDQUICKNAVHISTORY(); -if(!qbevent)break;evnt(26070,14069,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECY=*__LONG_IDEGOTOBOX_LASTLINENUM; -if(!qbevent)break;evnt(26070,14070,"ide_methods.bas");}while(r); -do{ -SUB_IDECENTERCURRENTLINE(); -if(!qbevent)break;evnt(26070,14071,"ide_methods.bas");}while(r); -S_51418:; -if ((-(((int32*)(__ARRAY_LONG_WARNINGINCLINES[0]))[array_check((*_FUNC_IDEWARNINGBOX_LONG_Y)-__ARRAY_LONG_WARNINGINCLINES[4],__ARRAY_LONG_WARNINGINCLINES[5])]> 0 ))||new_error){ -if(qbevent){evnt(26070,14072,"ide_methods.bas");if(r)goto S_51418;} -do{ -*__LONG_WARNINGININCLUDE=*__LONG_IDECY; -if(!qbevent)break;evnt(26070,14073,"ide_methods.bas");}while(r); -do{ -*__LONG_WARNINGININCLUDELINE=((int32*)(__ARRAY_LONG_WARNINGINCLINES[0]))[array_check((*_FUNC_IDEWARNINGBOX_LONG_Y)-__ARRAY_LONG_WARNINGINCLINES[4],__ARRAY_LONG_WARNINGINCLINES[5])]; -if(!qbevent)break;evnt(26070,14074,"ide_methods.bas");}while(r); -} -do{ -*__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(26070,14076,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,14077,"ide_methods.bas");}while(r); -} -} -do{ -*_FUNC_IDEWARNINGBOX_LONG_MOUSEDOWN= 0 ; -if(!qbevent)break;evnt(26070,14082,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEWARNINGBOX_LONG_MOUSEUP= 0 ; -if(!qbevent)break;evnt(26070,14083,"ide_methods.bas");}while(r); -dl_continue_5680:; -}while(1); -dl_exit_5680:; -do{ -*_FUNC_IDEWARNINGBOX_LONG_IDEWARNINGBOX= 0 ; -if(!qbevent)break;evnt(26070,14086,"ide_methods.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free218.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -return *_FUNC_IDEWARNINGBOX_LONG_IDEWARNINGBOX; -} -void SUB_IDEOBJUPDATE(void*_SUB_IDEOBJUPDATE_UDT_O,int32*_SUB_IDEOBJUPDATE_LONG_FOCUS,int32*_SUB_IDEOBJUPDATE_LONG_F,int32*_SUB_IDEOBJUPDATE_LONG_FOCUSOFFSET,qbs*_SUB_IDEOBJUPDATE_STRING_KK,qbs*_SUB_IDEOBJUPDATE_STRING_ALTLETTER,int32*_SUB_IDEOBJUPDATE_LONG_MB,int32*_SUB_IDEOBJUPDATE_LONG_MOUSEDOWN,int32*_SUB_IDEOBJUPDATE_LONG_MOUSEUP,int32*_SUB_IDEOBJUPDATE_LONG_MX,int32*_SUB_IDEOBJUPDATE_LONG_MY,int32*_SUB_IDEOBJUPDATE_LONG_INFO,int32*_SUB_IDEOBJUPDATE_LONG_MW){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data219.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -if(!qbevent)break;evnt(26070,14090,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(26070,14091,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_IDEOBJUPDATE_STRING1_SEP,func_chr( 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14092,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEOBJUPDATE_LONG_T=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(36)); -if(!qbevent)break;evnt(26070,14094,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEOBJUPDATE_LONG_MOUSEUP=*_SUB_IDEOBJUPDATE_LONG_MOUSEUP; -if(!qbevent)break;evnt(26070,14095,"ide_methods.bas");}while(r); -S_51435:; -if ((-(*_SUB_IDEOBJUPDATE_LONG_T== 1 ))||new_error){ -if(qbevent){evnt(26070,14096,"ide_methods.bas");if(r)goto S_51435;} -S_51436:; -if ((*_SUB_IDEOBJUPDATE_LONG_MOUSEDOWN)||new_error){ -if(qbevent){evnt(26070,14097,"ide_methods.bas");if(r)goto S_51436;} -do{ -*_SUB_IDEOBJUPDATE_LONG_X1=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(0))+*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(20)); -if(!qbevent)break;evnt(26070,14098,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEOBJUPDATE_LONG_Y=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(4))+*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(24)); -if(!qbevent)break;evnt(26070,14098,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEOBJUPDATE_LONG_X2=*_SUB_IDEOBJUPDATE_LONG_X1; -if(!qbevent)break;evnt(26070,14099,"ide_methods.bas");}while(r); -S_51440:; -if ((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(40)))||new_error){ -if(qbevent){evnt(26070,14100,"ide_methods.bas");if(r)goto S_51440;} -do{ -*_SUB_IDEOBJUPDATE_LONG_X2=*_SUB_IDEOBJUPDATE_LONG_X2+FUNC_IDEHLEN(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(40)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))+ 2 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14101,"ide_methods.bas");}while(r); -} -S_51443:; -if (((-(*_SUB_IDEOBJUPDATE_LONG_MY>=(*_SUB_IDEOBJUPDATE_LONG_Y- 1 )))&(-(*_SUB_IDEOBJUPDATE_LONG_MY<=(*_SUB_IDEOBJUPDATE_LONG_Y+ 1 ))))||new_error){ -if(qbevent){evnt(26070,14103,"ide_methods.bas");if(r)goto S_51443;} -S_51444:; -if (((-(*_SUB_IDEOBJUPDATE_LONG_MX>=*_SUB_IDEOBJUPDATE_LONG_X1))&(-(*_SUB_IDEOBJUPDATE_LONG_MX<=(*_SUB_IDEOBJUPDATE_LONG_X2+*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(28))+ 3 ))))||new_error){ -if(qbevent){evnt(26070,14104,"ide_methods.bas");if(r)goto S_51444;} -do{ -*_SUB_IDEOBJUPDATE_LONG_FOCUS=*_SUB_IDEOBJUPDATE_LONG_F; -if(!qbevent)break;evnt(26070,14105,"ide_methods.bas");}while(r); -S_51446:; -if ((-(*_SUB_IDEOBJUPDATE_LONG_MY==*_SUB_IDEOBJUPDATE_LONG_Y))||new_error){ -if(qbevent){evnt(26070,14107,"ide_methods.bas");if(r)goto S_51446;} -S_51447:; -if (((-(*_SUB_IDEOBJUPDATE_LONG_MX>(*_SUB_IDEOBJUPDATE_LONG_X2+ 1 )))&(-(*_SUB_IDEOBJUPDATE_LONG_MX<(*_SUB_IDEOBJUPDATE_LONG_X2+*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(28))+ 2 ))))||new_error){ -if(qbevent){evnt(26070,14108,"ide_methods.bas");if(r)goto S_51447;} -do{ -qbs_set(_SUB_IDEOBJUPDATE_STRING_A,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14109,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEOBJUPDATE_LONG_X=*_SUB_IDEOBJUPDATE_LONG_MX-*_SUB_IDEOBJUPDATE_LONG_X2- 2 ; -if(!qbevent)break;evnt(26070,14110,"ide_methods.bas");}while(r); -S_51450:; -if ((qbs_cleanup(qbs_tmp_base,(-(*_SUB_IDEOBJUPDATE_LONG_X==*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))))&(-(*_SUB_IDEOBJUPDATE_LONG_X!=_SUB_IDEOBJUPDATE_STRING_A->len))))||new_error){ -if(qbevent){evnt(26070,14111,"ide_methods.bas");if(r)goto S_51450;} -do{ -qbs_set(_SUB_IDEOBJUPDATE_STRING_A,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14112,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_SUB_IDEOBJUPDATE_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14113,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))= 0 ; -if(!qbevent)break;evnt(26070,14114,"ide_methods.bas");}while(r); -}else{ -S_51455:; -if ((qbs_cleanup(qbs_tmp_base,-(*_SUB_IDEOBJUPDATE_LONG_X<=_SUB_IDEOBJUPDATE_STRING_A->len)))||new_error){ -if(qbevent){evnt(26070,14116,"ide_methods.bas");if(r)goto S_51455;} -do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))=*_SUB_IDEOBJUPDATE_LONG_X; -if(!qbevent)break;evnt(26070,14116,"ide_methods.bas");}while(r); -}else{ -do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))=_SUB_IDEOBJUPDATE_STRING_A->len; -if(!qbevent)break;evnt(26070,14116,"ide_methods.bas");}while(r); -} -do{ -*(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(76))= 0 ; -if(!qbevent)break;evnt(26070,14117,"ide_methods.bas");}while(r); -} -} -} -} -} -} -do{ -qbs_set(_SUB_IDEOBJUPDATE_STRING_A,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14125,"ide_methods.bas");}while(r); -S_51468:; -if ((-(*_SUB_IDEOBJUPDATE_LONG_FOCUSOFFSET== 0 ))||new_error){ -if(qbevent){evnt(26070,14126,"ide_methods.bas");if(r)goto S_51468;} -S_51469:; -if ((qbs_cleanup(qbs_tmp_base,(-(_SUB_IDEOBJUPDATE_STRING_KK->len== 1 ))|(-(*__LONG_KB!= 0 ))))||new_error){ -if(qbevent){evnt(26070,14127,"ide_methods.bas");if(r)goto S_51469;} -S_51470:; -if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDEOBJUPDATE_STRING_KK->len== 1 )))||new_error){ -if(qbevent){evnt(26070,14128,"ide_methods.bas");if(r)goto S_51470;} -do{ -*_SUB_IDEOBJUPDATE_LONG_K=qbs_asc(_SUB_IDEOBJUPDATE_STRING_KK); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14128,"ide_methods.bas");}while(r); -} -S_51473:; -if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(-(*__LONG_KB== 20992 )))|(*__LONG_KCONTROL&(qbs_equal(qbs_ucase(_SUB_IDEOBJUPDATE_STRING_KK),qbs_new_txt_len("V",1))))))||new_error){ -if(qbevent){evnt(26070,14129,"ide_methods.bas");if(r)goto S_51473;} -do{ -qbs_set(_SUB_IDEOBJUPDATE_STRING_CLIP,func__clipboard()); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14130,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEOBJUPDATE_LONG_X=func_instr(NULL,_SUB_IDEOBJUPDATE_STRING_CLIP,func_chr( 13 ),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14131,"ide_methods.bas");}while(r); -S_51476:; -if ((*_SUB_IDEOBJUPDATE_LONG_X)||new_error){ -if(qbevent){evnt(26070,14132,"ide_methods.bas");if(r)goto S_51476;} -do{ -qbs_set(_SUB_IDEOBJUPDATE_STRING_CLIP,qbs_left(_SUB_IDEOBJUPDATE_STRING_CLIP,*_SUB_IDEOBJUPDATE_LONG_X- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14132,"ide_methods.bas");}while(r); -} -do{ -*_SUB_IDEOBJUPDATE_LONG_X=func_instr(NULL,_SUB_IDEOBJUPDATE_STRING_CLIP,func_chr( 10 ),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14133,"ide_methods.bas");}while(r); -S_51480:; -if ((*_SUB_IDEOBJUPDATE_LONG_X)||new_error){ -if(qbevent){evnt(26070,14134,"ide_methods.bas");if(r)goto S_51480;} -do{ -qbs_set(_SUB_IDEOBJUPDATE_STRING_CLIP,qbs_left(_SUB_IDEOBJUPDATE_STRING_CLIP,*_SUB_IDEOBJUPDATE_LONG_X- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14134,"ide_methods.bas");}while(r); -} -S_51483:; -if ((qbs_cleanup(qbs_tmp_base,_SUB_IDEOBJUPDATE_STRING_CLIP->len))||new_error){ -if(qbevent){evnt(26070,14135,"ide_methods.bas");if(r)goto S_51483;} -S_51484:; -if ((*(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(76)))||new_error){ -if(qbevent){evnt(26070,14136,"ide_methods.bas");if(r)goto S_51484;} -do{ -*_SUB_IDEOBJUPDATE_LONG_SX1=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77)); -if(!qbevent)break;evnt(26070,14137,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEOBJUPDATE_LONG_SX2=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81)); -if(!qbevent)break;evnt(26070,14137,"ide_methods.bas");}while(r); -S_51487:; -if ((-(*_SUB_IDEOBJUPDATE_LONG_SX1>*_SUB_IDEOBJUPDATE_LONG_SX2))||new_error){ -if(qbevent){evnt(26070,14138,"ide_methods.bas");if(r)goto S_51487;} -do{ -swap_32(&*_SUB_IDEOBJUPDATE_LONG_SX1,&*_SUB_IDEOBJUPDATE_LONG_SX2); -if(!qbevent)break;evnt(26070,14138,"ide_methods.bas");}while(r); -} -S_51490:; -if ((-((*_SUB_IDEOBJUPDATE_LONG_SX2-*_SUB_IDEOBJUPDATE_LONG_SX1)>( 0 )))||new_error){ -if(qbevent){evnt(26070,14139,"ide_methods.bas");if(r)goto S_51490;} -do{ -qbs_set(_SUB_IDEOBJUPDATE_STRING_A,qbs_add(qbs_add(qbs_left(_SUB_IDEOBJUPDATE_STRING_A,*_SUB_IDEOBJUPDATE_LONG_SX1),_SUB_IDEOBJUPDATE_STRING_CLIP),qbs_right(_SUB_IDEOBJUPDATE_STRING_A,_SUB_IDEOBJUPDATE_STRING_A->len-*_SUB_IDEOBJUPDATE_LONG_SX2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14140,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))=*_SUB_IDEOBJUPDATE_LONG_SX1; -if(!qbevent)break;evnt(26070,14141,"ide_methods.bas");}while(r); -S_51493:; -if ((*__BYTE_PASTECURSORATEND)||new_error){ -if(qbevent){evnt(26070,14142,"ide_methods.bas");if(r)goto S_51493;} -do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))=*_SUB_IDEOBJUPDATE_LONG_SX1+_SUB_IDEOBJUPDATE_STRING_CLIP->len; -if(!qbevent)break;evnt(26070,14142,"ide_methods.bas");}while(r); -} -do{ -*(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(76))= 0 ; -if(!qbevent)break;evnt(26070,14143,"ide_methods.bas");}while(r); -} -}else{ -do{ -qbs_set(_SUB_IDEOBJUPDATE_STRING_A,qbs_add(qbs_add(qbs_left(_SUB_IDEOBJUPDATE_STRING_A,*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))),_SUB_IDEOBJUPDATE_STRING_CLIP),qbs_right(_SUB_IDEOBJUPDATE_STRING_A,_SUB_IDEOBJUPDATE_STRING_A->len-*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14146,"ide_methods.bas");}while(r); -S_51500:; -if ((*__BYTE_PASTECURSORATEND)||new_error){ -if(qbevent){evnt(26070,14147,"ide_methods.bas");if(r)goto S_51500;} -do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))+_SUB_IDEOBJUPDATE_STRING_CLIP->len; -if(!qbevent)break;evnt(26070,14147,"ide_methods.bas");}while(r); -} -} -} -do{ -*_SUB_IDEOBJUPDATE_LONG_K= 255 ; -if(!qbevent)break;evnt(26070,14150,"ide_methods.bas");}while(r); -} -S_51507:; -if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KCONTROL&(qbs_equal(qbs_ucase(_SUB_IDEOBJUPDATE_STRING_KK),qbs_new_txt_len("A",1))))))||new_error){ -if(qbevent){evnt(26070,14153,"ide_methods.bas");if(r)goto S_51507;} -S_51508:; -if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDEOBJUPDATE_STRING_A->len> 0 )))||new_error){ -if(qbevent){evnt(26070,14154,"ide_methods.bas");if(r)goto S_51508;} -do{ -*(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(76))= -1 ; -if(!qbevent)break;evnt(26070,14155,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77))= 0 ; -if(!qbevent)break;evnt(26070,14156,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))=_SUB_IDEOBJUPDATE_STRING_A->len; -if(!qbevent)break;evnt(26070,14157,"ide_methods.bas");}while(r); -} -do{ -*_SUB_IDEOBJUPDATE_LONG_K= 255 ; -if(!qbevent)break;evnt(26070,14159,"ide_methods.bas");}while(r); -} -S_51515:; -if ((qbs_cleanup(qbs_tmp_base,((*__LONG_KCTRL&(-(*__LONG_KB== 20992 )))|(*__LONG_KCONTROL&(qbs_equal(qbs_ucase(_SUB_IDEOBJUPDATE_STRING_KK),qbs_new_txt_len("C",1)))))))||new_error){ -if(qbevent){evnt(26070,14162,"ide_methods.bas");if(r)goto S_51515;} -S_51516:; -if ((*(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(76)))||new_error){ -if(qbevent){evnt(26070,14163,"ide_methods.bas");if(r)goto S_51516;} -do{ -*_SUB_IDEOBJUPDATE_LONG_SX1=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77)); -if(!qbevent)break;evnt(26070,14164,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEOBJUPDATE_LONG_SX2=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81)); -if(!qbevent)break;evnt(26070,14164,"ide_methods.bas");}while(r); -S_51519:; -if ((-(*_SUB_IDEOBJUPDATE_LONG_SX1>*_SUB_IDEOBJUPDATE_LONG_SX2))||new_error){ -if(qbevent){evnt(26070,14165,"ide_methods.bas");if(r)goto S_51519;} -do{ -swap_32(&*_SUB_IDEOBJUPDATE_LONG_SX1,&*_SUB_IDEOBJUPDATE_LONG_SX2); -if(!qbevent)break;evnt(26070,14165,"ide_methods.bas");}while(r); -} -S_51522:; -if ((-((*_SUB_IDEOBJUPDATE_LONG_SX2-*_SUB_IDEOBJUPDATE_LONG_SX1)>( 0 )))||new_error){ -if(qbevent){evnt(26070,14166,"ide_methods.bas");if(r)goto S_51522;} -do{ -sub__clipboard(func_mid(_SUB_IDEOBJUPDATE_STRING_A,*_SUB_IDEOBJUPDATE_LONG_SX1+ 1 ,*_SUB_IDEOBJUPDATE_LONG_SX2-*_SUB_IDEOBJUPDATE_LONG_SX1,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14166,"ide_methods.bas");}while(r); -} -} -do{ -*_SUB_IDEOBJUPDATE_LONG_K= 255 ; -if(!qbevent)break;evnt(26070,14168,"ide_methods.bas");}while(r); -} -S_51528:; -if ((qbs_cleanup(qbs_tmp_base,((*__LONG_KSHIFT&(-(*__LONG_KB== 21248 )))|(*__LONG_KCONTROL&(qbs_equal(qbs_ucase(_SUB_IDEOBJUPDATE_STRING_KK),qbs_new_txt_len("X",1)))))))||new_error){ -if(qbevent){evnt(26070,14171,"ide_methods.bas");if(r)goto S_51528;} -S_51529:; -if ((*(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(76)))||new_error){ -if(qbevent){evnt(26070,14172,"ide_methods.bas");if(r)goto S_51529;} -do{ -*_SUB_IDEOBJUPDATE_LONG_SX1=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77)); -if(!qbevent)break;evnt(26070,14173,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEOBJUPDATE_LONG_SX2=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81)); -if(!qbevent)break;evnt(26070,14173,"ide_methods.bas");}while(r); -S_51532:; -if ((-(*_SUB_IDEOBJUPDATE_LONG_SX1>*_SUB_IDEOBJUPDATE_LONG_SX2))||new_error){ -if(qbevent){evnt(26070,14174,"ide_methods.bas");if(r)goto S_51532;} -do{ -swap_32(&*_SUB_IDEOBJUPDATE_LONG_SX1,&*_SUB_IDEOBJUPDATE_LONG_SX2); -if(!qbevent)break;evnt(26070,14174,"ide_methods.bas");}while(r); -} -S_51535:; -if ((-((*_SUB_IDEOBJUPDATE_LONG_SX2-*_SUB_IDEOBJUPDATE_LONG_SX1)>( 0 )))||new_error){ -if(qbevent){evnt(26070,14175,"ide_methods.bas");if(r)goto S_51535;} -do{ -sub__clipboard(func_mid(_SUB_IDEOBJUPDATE_STRING_A,*_SUB_IDEOBJUPDATE_LONG_SX1+ 1 ,*_SUB_IDEOBJUPDATE_LONG_SX2-*_SUB_IDEOBJUPDATE_LONG_SX1,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14176,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_IDEOBJUPDATE_STRING_A,qbs_add(qbs_left(_SUB_IDEOBJUPDATE_STRING_A,*_SUB_IDEOBJUPDATE_LONG_SX1),qbs_right(_SUB_IDEOBJUPDATE_STRING_A,_SUB_IDEOBJUPDATE_STRING_A->len-*_SUB_IDEOBJUPDATE_LONG_SX2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14178,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))=*_SUB_IDEOBJUPDATE_LONG_SX1; -if(!qbevent)break;evnt(26070,14179,"ide_methods.bas");}while(r); -do{ -*(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(76))= 0 ; -if(!qbevent)break;evnt(26070,14180,"ide_methods.bas");}while(r); -} -} -do{ -*_SUB_IDEOBJUPDATE_LONG_K= 255 ; -if(!qbevent)break;evnt(26070,14183,"ide_methods.bas");}while(r); -} -S_51544:; -if (((-(*_SUB_IDEOBJUPDATE_LONG_K== 8 ))&(-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))> 0 )))||new_error){ -if(qbevent){evnt(26070,14186,"ide_methods.bas");if(r)goto S_51544;} -S_51545:; -if ((*(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(76)))||new_error){ -if(qbevent){evnt(26070,14187,"ide_methods.bas");if(r)goto S_51545;} -do{ -*_SUB_IDEOBJUPDATE_LONG_SX1=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77)); -if(!qbevent)break;evnt(26070,14188,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEOBJUPDATE_LONG_SX2=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81)); -if(!qbevent)break;evnt(26070,14188,"ide_methods.bas");}while(r); -S_51548:; -if ((-(*_SUB_IDEOBJUPDATE_LONG_SX1>*_SUB_IDEOBJUPDATE_LONG_SX2))||new_error){ -if(qbevent){evnt(26070,14189,"ide_methods.bas");if(r)goto S_51548;} -do{ -swap_32(&*_SUB_IDEOBJUPDATE_LONG_SX1,&*_SUB_IDEOBJUPDATE_LONG_SX2); -if(!qbevent)break;evnt(26070,14189,"ide_methods.bas");}while(r); -} -S_51551:; -if ((-((*_SUB_IDEOBJUPDATE_LONG_SX2-*_SUB_IDEOBJUPDATE_LONG_SX1)>( 0 )))||new_error){ -if(qbevent){evnt(26070,14190,"ide_methods.bas");if(r)goto S_51551;} -do{ -qbs_set(_SUB_IDEOBJUPDATE_STRING_A,qbs_add(qbs_left(_SUB_IDEOBJUPDATE_STRING_A,*_SUB_IDEOBJUPDATE_LONG_SX1),qbs_right(_SUB_IDEOBJUPDATE_STRING_A,_SUB_IDEOBJUPDATE_STRING_A->len-*_SUB_IDEOBJUPDATE_LONG_SX2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14192,"ide_methods.bas");}while(r); -do{ -*(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(76))= 0 ; -if(!qbevent)break;evnt(26070,14193,"ide_methods.bas");}while(r); -} -}else{ -do{ -qbs_set(_SUB_IDEOBJUPDATE_STRING_A1,qbs_left(_SUB_IDEOBJUPDATE_STRING_A,*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14196,"ide_methods.bas");}while(r); -S_51557:; -if ((qbs_cleanup(qbs_tmp_base,-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))<=_SUB_IDEOBJUPDATE_STRING_A->len)))||new_error){ -if(qbevent){evnt(26070,14197,"ide_methods.bas");if(r)goto S_51557;} -do{ -qbs_set(_SUB_IDEOBJUPDATE_STRING_A2,qbs_right(_SUB_IDEOBJUPDATE_STRING_A,_SUB_IDEOBJUPDATE_STRING_A->len-*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14197,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_SUB_IDEOBJUPDATE_STRING_A2,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14197,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_SUB_IDEOBJUPDATE_STRING_A,qbs_add(_SUB_IDEOBJUPDATE_STRING_A1,_SUB_IDEOBJUPDATE_STRING_A2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14198,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))- 1 ; -if(!qbevent)break;evnt(26070,14198,"ide_methods.bas");}while(r); -} -S_51565:; -}else{ -if ((-(*_SUB_IDEOBJUPDATE_LONG_K== 8 ))&*(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(76))){ -if(qbevent){evnt(26070,14200,"ide_methods.bas");if(r)goto S_51565;} -do{ -*_SUB_IDEOBJUPDATE_LONG_SX1=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77)); -if(!qbevent)break;evnt(26070,14201,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEOBJUPDATE_LONG_SX2=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81)); -if(!qbevent)break;evnt(26070,14201,"ide_methods.bas");}while(r); -S_51568:; -if ((-(*_SUB_IDEOBJUPDATE_LONG_SX1>*_SUB_IDEOBJUPDATE_LONG_SX2))||new_error){ -if(qbevent){evnt(26070,14202,"ide_methods.bas");if(r)goto S_51568;} -do{ -swap_32(&*_SUB_IDEOBJUPDATE_LONG_SX1,&*_SUB_IDEOBJUPDATE_LONG_SX2); -if(!qbevent)break;evnt(26070,14202,"ide_methods.bas");}while(r); -} -S_51571:; -if ((-((*_SUB_IDEOBJUPDATE_LONG_SX2-*_SUB_IDEOBJUPDATE_LONG_SX1)>( 0 )))||new_error){ -if(qbevent){evnt(26070,14203,"ide_methods.bas");if(r)goto S_51571;} -do{ -qbs_set(_SUB_IDEOBJUPDATE_STRING_A,qbs_add(qbs_left(_SUB_IDEOBJUPDATE_STRING_A,*_SUB_IDEOBJUPDATE_LONG_SX1),qbs_right(_SUB_IDEOBJUPDATE_STRING_A,_SUB_IDEOBJUPDATE_STRING_A->len-*_SUB_IDEOBJUPDATE_LONG_SX2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14205,"ide_methods.bas");}while(r); -do{ -*(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(76))= 0 ; -if(!qbevent)break;evnt(26070,14206,"ide_methods.bas");}while(r); -} -} -} -S_51576:; -if (((-(*_SUB_IDEOBJUPDATE_LONG_K!= 8 ))&(-(*_SUB_IDEOBJUPDATE_LONG_K!= 9 ))&(-(*_SUB_IDEOBJUPDATE_LONG_K!= 0 ))&(-(*_SUB_IDEOBJUPDATE_LONG_K!= 10 ))&(-(*_SUB_IDEOBJUPDATE_LONG_K!= 13 ))&(-(*_SUB_IDEOBJUPDATE_LONG_K!= 26 ))&(-(*_SUB_IDEOBJUPDATE_LONG_K!= 255 ))&((((-(*__LONG_KALT== 0 ))&(-(*__LONG_KCTRL== 0 )))|((-(*__LONG_KALT== -1 ))&(-(*__LONG_KCTRL== -1 ))))))||new_error){ -if(qbevent){evnt(26070,14209,"ide_methods.bas");if(r)goto S_51576;} -S_51577:; -if ((*(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(76)))||new_error){ -if(qbevent){evnt(26070,14210,"ide_methods.bas");if(r)goto S_51577;} -do{ -*_SUB_IDEOBJUPDATE_LONG_SX1=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77)); -if(!qbevent)break;evnt(26070,14211,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEOBJUPDATE_LONG_SX2=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81)); -if(!qbevent)break;evnt(26070,14211,"ide_methods.bas");}while(r); -S_51580:; -if ((-(*_SUB_IDEOBJUPDATE_LONG_SX1>*_SUB_IDEOBJUPDATE_LONG_SX2))||new_error){ -if(qbevent){evnt(26070,14212,"ide_methods.bas");if(r)goto S_51580;} -do{ -swap_32(&*_SUB_IDEOBJUPDATE_LONG_SX1,&*_SUB_IDEOBJUPDATE_LONG_SX2); -if(!qbevent)break;evnt(26070,14212,"ide_methods.bas");}while(r); -} -S_51583:; -if ((-((*_SUB_IDEOBJUPDATE_LONG_SX2-*_SUB_IDEOBJUPDATE_LONG_SX1)>( 0 )))||new_error){ -if(qbevent){evnt(26070,14213,"ide_methods.bas");if(r)goto S_51583;} -do{ -qbs_set(_SUB_IDEOBJUPDATE_STRING_A,qbs_add(qbs_left(_SUB_IDEOBJUPDATE_STRING_A,*_SUB_IDEOBJUPDATE_LONG_SX1),qbs_right(_SUB_IDEOBJUPDATE_STRING_A,_SUB_IDEOBJUPDATE_STRING_A->len-*_SUB_IDEOBJUPDATE_LONG_SX2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14215,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_SUB_IDEOBJUPDATE_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14216,"ide_methods.bas");}while(r); -do{ -*(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(76))= 0 ; -if(!qbevent)break;evnt(26070,14217,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))=*_SUB_IDEOBJUPDATE_LONG_SX1; -if(!qbevent)break;evnt(26070,14218,"ide_methods.bas");}while(r); -} -} -S_51590:; -if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))> 0 ))||new_error){ -if(qbevent){evnt(26070,14221,"ide_methods.bas");if(r)goto S_51590;} -do{ -qbs_set(_SUB_IDEOBJUPDATE_STRING_A1,qbs_left(_SUB_IDEOBJUPDATE_STRING_A,*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14221,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_SUB_IDEOBJUPDATE_STRING_A1,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14221,"ide_methods.bas");}while(r); -} -S_51595:; -if ((qbs_cleanup(qbs_tmp_base,-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))<=_SUB_IDEOBJUPDATE_STRING_A->len)))||new_error){ -if(qbevent){evnt(26070,14222,"ide_methods.bas");if(r)goto S_51595;} -do{ -qbs_set(_SUB_IDEOBJUPDATE_STRING_A2,qbs_right(_SUB_IDEOBJUPDATE_STRING_A,_SUB_IDEOBJUPDATE_STRING_A->len-*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14222,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_SUB_IDEOBJUPDATE_STRING_A2,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14222,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_SUB_IDEOBJUPDATE_STRING_A,qbs_add(qbs_add(_SUB_IDEOBJUPDATE_STRING_A1,_SUB_IDEOBJUPDATE_STRING_KK),_SUB_IDEOBJUPDATE_STRING_A2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14223,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))+ 1 ; -if(!qbevent)break;evnt(26070,14223,"ide_methods.bas");}while(r); -} -do{ -tmp_long=array_check((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_SUB_IDEOBJUPDATE_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14225,"ide_methods.bas");}while(r); -} -S_51605:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDEOBJUPDATE_STRING_KK,(qbs_add(func_chr( 0 ),qbs_new_txt_len("S",1))))))||new_error){ -if(qbevent){evnt(26070,14227,"ide_methods.bas");if(r)goto S_51605;} -S_51606:; -if ((*(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(76)))||new_error){ -if(qbevent){evnt(26070,14228,"ide_methods.bas");if(r)goto S_51606;} -do{ -*_SUB_IDEOBJUPDATE_LONG_SX1=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77)); -if(!qbevent)break;evnt(26070,14229,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEOBJUPDATE_LONG_SX2=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81)); -if(!qbevent)break;evnt(26070,14229,"ide_methods.bas");}while(r); -S_51609:; -if ((-(*_SUB_IDEOBJUPDATE_LONG_SX1>*_SUB_IDEOBJUPDATE_LONG_SX2))||new_error){ -if(qbevent){evnt(26070,14230,"ide_methods.bas");if(r)goto S_51609;} -do{ -swap_32(&*_SUB_IDEOBJUPDATE_LONG_SX1,&*_SUB_IDEOBJUPDATE_LONG_SX2); -if(!qbevent)break;evnt(26070,14230,"ide_methods.bas");}while(r); -} -S_51612:; -if ((-((*_SUB_IDEOBJUPDATE_LONG_SX2-*_SUB_IDEOBJUPDATE_LONG_SX1)>( 0 )))||new_error){ -if(qbevent){evnt(26070,14231,"ide_methods.bas");if(r)goto S_51612;} -do{ -qbs_set(_SUB_IDEOBJUPDATE_STRING_A,qbs_add(qbs_left(_SUB_IDEOBJUPDATE_STRING_A,*_SUB_IDEOBJUPDATE_LONG_SX1),qbs_right(_SUB_IDEOBJUPDATE_STRING_A,_SUB_IDEOBJUPDATE_STRING_A->len-*_SUB_IDEOBJUPDATE_LONG_SX2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14233,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_SUB_IDEOBJUPDATE_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14234,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))=*_SUB_IDEOBJUPDATE_LONG_SX1; -if(!qbevent)break;evnt(26070,14235,"ide_methods.bas");}while(r); -do{ -*(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(76))= 0 ; -if(!qbevent)break;evnt(26070,14236,"ide_methods.bas");}while(r); -} -}else{ -S_51619:; -if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))> 0 ))||new_error){ -if(qbevent){evnt(26070,14239,"ide_methods.bas");if(r)goto S_51619;} -do{ -qbs_set(_SUB_IDEOBJUPDATE_STRING_A1,qbs_left(_SUB_IDEOBJUPDATE_STRING_A,*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14239,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_SUB_IDEOBJUPDATE_STRING_A1,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14239,"ide_methods.bas");}while(r); -} -S_51624:; -if ((qbs_cleanup(qbs_tmp_base,-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))<_SUB_IDEOBJUPDATE_STRING_A->len)))||new_error){ -if(qbevent){evnt(26070,14240,"ide_methods.bas");if(r)goto S_51624;} -do{ -qbs_set(_SUB_IDEOBJUPDATE_STRING_A2,qbs_right(_SUB_IDEOBJUPDATE_STRING_A,_SUB_IDEOBJUPDATE_STRING_A->len-*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14240,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_SUB_IDEOBJUPDATE_STRING_A2,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14240,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_SUB_IDEOBJUPDATE_STRING_A,qbs_add(_SUB_IDEOBJUPDATE_STRING_A1,_SUB_IDEOBJUPDATE_STRING_A2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14241,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_SUB_IDEOBJUPDATE_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14242,"ide_methods.bas");}while(r); -} -} -S_51633:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDEOBJUPDATE_STRING_KK,(qbs_add(func_chr( 0 ),qbs_new_txt_len("K",1))))))||new_error){ -if(qbevent){evnt(26070,14247,"ide_methods.bas");if(r)goto S_51633;} -do{ -return_point[next_return_point++]=166; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_SELECTCHECK; -RETURN_166:; -if(!qbevent)break;evnt(26070,14247,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))- 1 ; -if(!qbevent)break;evnt(26070,14247,"ide_methods.bas");}while(r); -} -S_51637:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDEOBJUPDATE_STRING_KK,(qbs_add(func_chr( 0 ),qbs_new_txt_len("M",1))))))||new_error){ -if(qbevent){evnt(26070,14248,"ide_methods.bas");if(r)goto S_51637;} -do{ -return_point[next_return_point++]=167; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_SELECTCHECK; -RETURN_167:; -if(!qbevent)break;evnt(26070,14248,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))+ 1 ; -if(!qbevent)break;evnt(26070,14248,"ide_methods.bas");}while(r); -} -S_51641:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDEOBJUPDATE_STRING_KK,(qbs_add(func_chr( 0 ),qbs_new_txt_len("G",1))))))||new_error){ -if(qbevent){evnt(26070,14249,"ide_methods.bas");if(r)goto S_51641;} -do{ -return_point[next_return_point++]=168; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_SELECTCHECK; -RETURN_168:; -if(!qbevent)break;evnt(26070,14249,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))= 0 ; -if(!qbevent)break;evnt(26070,14249,"ide_methods.bas");}while(r); -} -S_51645:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDEOBJUPDATE_STRING_KK,(qbs_add(func_chr( 0 ),qbs_new_txt_len("O",1))))))||new_error){ -if(qbevent){evnt(26070,14250,"ide_methods.bas");if(r)goto S_51645;} -do{ -return_point[next_return_point++]=169; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_SELECTCHECK; -RETURN_169:; -if(!qbevent)break;evnt(26070,14250,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))=_SUB_IDEOBJUPDATE_STRING_A->len; -if(!qbevent)break;evnt(26070,14250,"ide_methods.bas");}while(r); -} -S_51649:; -if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))< 0 ))||new_error){ -if(qbevent){evnt(26070,14251,"ide_methods.bas");if(r)goto S_51649;} -do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))= 0 ; -if(!qbevent)break;evnt(26070,14251,"ide_methods.bas");}while(r); -} -S_51652:; -if ((qbs_cleanup(qbs_tmp_base,-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))>_SUB_IDEOBJUPDATE_STRING_A->len)))||new_error){ -if(qbevent){evnt(26070,14252,"ide_methods.bas");if(r)goto S_51652;} -do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))=_SUB_IDEOBJUPDATE_STRING_A->len; -if(!qbevent)break;evnt(26070,14252,"ide_methods.bas");}while(r); -} -S_51655:; -if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))==*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77))))||new_error){ -if(qbevent){evnt(26070,14253,"ide_methods.bas");if(r)goto S_51655;} -do{ -*(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(76))= 0 ; -if(!qbevent)break;evnt(26070,14253,"ide_methods.bas");}while(r); -} -} -S_51659:; -if ((qbs_cleanup(qbs_tmp_base,_SUB_IDEOBJUPDATE_STRING_ALTLETTER->len))||new_error){ -if(qbevent){evnt(26070,14256,"ide_methods.bas");if(r)goto S_51659;} -S_51660:; -if ((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(40)))||new_error){ -if(qbevent){evnt(26070,14257,"ide_methods.bas");if(r)goto S_51660;} -do{ -*_SUB_IDEOBJUPDATE_LONG_X=func_instr(NULL,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(40)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])),qbs_new_txt_len("#",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14258,"ide_methods.bas");}while(r); -S_51662:; -if ((*_SUB_IDEOBJUPDATE_LONG_X)||new_error){ -if(qbevent){evnt(26070,14259,"ide_methods.bas");if(r)goto S_51662;} -S_51663:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(40)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])),*_SUB_IDEOBJUPDATE_LONG_X+ 1 , 1 ,0|1)),_SUB_IDEOBJUPDATE_STRING_ALTLETTER)))||new_error){ -if(qbevent){evnt(26070,14260,"ide_methods.bas");if(r)goto S_51663;} -do{ -*_SUB_IDEOBJUPDATE_LONG_FOCUS=*_SUB_IDEOBJUPDATE_LONG_F; -if(!qbevent)break;evnt(26070,14260,"ide_methods.bas");}while(r); -} -} -} -} -do{ -*_SUB_IDEOBJUPDATE_LONG_F=*_SUB_IDEOBJUPDATE_LONG_F+ 1 ; -if(!qbevent)break;evnt(26070,14264,"ide_methods.bas");}while(r); -} -S_51671:; -if ((-(*_SUB_IDEOBJUPDATE_LONG_T== 2 ))||new_error){ -if(qbevent){evnt(26070,14267,"ide_methods.bas");if(r)goto S_51671;} -do{ -tmp_long=array_check((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(72)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14268,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_IDEOBJUPDATE_STRING_A,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14271,"ide_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26070,13905,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26070,13906,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEWARNINGBOX_STRING1_SEP,func_chr( 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13907,"ide_methods.bas");}while(r); +S_51236:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_IDEPROGNAME->len))||new_error){ +if(qbevent){evnt(26070,13912,"ide_methods.bas");if(r)goto S_51236;} +do{ +qbs_set(_FUNC_IDEWARNINGBOX_STRING_THISPROG,__STRING_IDEPROGNAME); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13912,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDEWARNINGBOX_STRING_THISPROG,qbs_add(qbs_new_txt_len("Untitled",8),__STRING_TEMPFOLDERINDEXSTR)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13912,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEWARNINGBOX_LONG_MAXMODULENAMELEN=_FUNC_IDEWARNINGBOX_STRING_THISPROG->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13913,"ide_methods.bas");}while(r); +S_51242:; +fornext_value5669= 1 ; +fornext_finalvalue5669=*__LONG_WARNINGLISTITEMS; +fornext_step5669= 1 ; +if (fornext_step5669<0) fornext_step_negative5669=1; else fornext_step_negative5669=0; +if (new_error) goto fornext_error5669; +goto fornext_entrylabel5669; +while(1){ +fornext_value5669=fornext_step5669+(*_FUNC_IDEWARNINGBOX_LONG_X); +fornext_entrylabel5669: +*_FUNC_IDEWARNINGBOX_LONG_X=fornext_value5669; +if (fornext_step_negative5669){ +if (fornext_value5669fornext_finalvalue5669) break; +} +fornext_error5669:; +if(qbevent){evnt(26070,13916,"ide_methods.bas");if(r)goto S_51242;} +S_51243:; +if ((-(((int32*)(__ARRAY_LONG_WARNINGLINES[0]))[array_check((*_FUNC_IDEWARNINGBOX_LONG_X)-__ARRAY_LONG_WARNINGLINES[4],__ARRAY_LONG_WARNINGLINES[5])]== 0 ))||new_error){ +if(qbevent){evnt(26070,13917,"ide_methods.bas");if(r)goto S_51243;} +do{ +goto fornext_continue_5668; +if(!qbevent)break;evnt(26070,13917,"ide_methods.bas");}while(r); +} +S_51246:; +if ((-(((int32*)(__ARRAY_LONG_WARNINGINCLINES[0]))[array_check((*_FUNC_IDEWARNINGBOX_LONG_X)-__ARRAY_LONG_WARNINGINCLINES[4],__ARRAY_LONG_WARNINGINCLINES[5])]> 0 ))||new_error){ +if(qbevent){evnt(26070,13919,"ide_methods.bas");if(r)goto S_51246;} +S_51247:; +if ((qbs_cleanup(qbs_tmp_base,-(((qbs*)(((uint64*)(__ARRAY_STRING_WARNINGINCFILES[0]))[array_check((*_FUNC_IDEWARNINGBOX_LONG_X)-__ARRAY_STRING_WARNINGINCFILES[4],__ARRAY_STRING_WARNINGINCFILES[5])]))->len>*_FUNC_IDEWARNINGBOX_LONG_MAXMODULENAMELEN)))||new_error){ +if(qbevent){evnt(26070,13920,"ide_methods.bas");if(r)goto S_51247;} +do{ +*_FUNC_IDEWARNINGBOX_LONG_MAXMODULENAMELEN=((qbs*)(((uint64*)(__ARRAY_STRING_WARNINGINCFILES[0]))[array_check((*_FUNC_IDEWARNINGBOX_LONG_X)-__ARRAY_STRING_WARNINGINCFILES[4],__ARRAY_STRING_WARNINGINCFILES[5])]))->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13921,"ide_methods.bas");}while(r); +} +} +fornext_continue_5668:; +} +fornext_exit_5668:; +do{ +*_FUNC_IDEWARNINGBOX_LONG_DIALOGWIDTH= 60 ; +if(!qbevent)break;evnt(26070,13927,"ide_methods.bas");}while(r); +S_51253:; +fornext_value5673= 1 ; +fornext_finalvalue5673=*__LONG_WARNINGLISTITEMS; +fornext_step5673= 1 ; +if (fornext_step5673<0) fornext_step_negative5673=1; else fornext_step_negative5673=0; +if (new_error) goto fornext_error5673; +goto fornext_entrylabel5673; +while(1){ +fornext_value5673=fornext_step5673+(*_FUNC_IDEWARNINGBOX_LONG_X); +fornext_entrylabel5673: +*_FUNC_IDEWARNINGBOX_LONG_X=fornext_value5673; +if (fornext_step_negative5673){ +if (fornext_value5673fornext_finalvalue5673) break; +} +fornext_error5673:; +if(qbevent){evnt(26070,13928,"ide_methods.bas");if(r)goto S_51253;} +S_51254:; +if ((-(((int32*)(__ARRAY_LONG_WARNINGLINES[0]))[array_check((*_FUNC_IDEWARNINGBOX_LONG_X)-__ARRAY_LONG_WARNINGLINES[4],__ARRAY_LONG_WARNINGLINES[5])]== 0 ))||new_error){ +if(qbevent){evnt(26070,13929,"ide_methods.bas");if(r)goto S_51254;} +do{ +qbs_set(_FUNC_IDEWARNINGBOX_STRING_L,qbs_add(_FUNC_IDEWARNINGBOX_STRING_L,((qbs*)(((uint64*)(__ARRAY_STRING_WARNING[0]))[array_check((*_FUNC_IDEWARNINGBOX_LONG_X)-__ARRAY_STRING_WARNING[4],__ARRAY_STRING_WARNING[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13930,"ide_methods.bas");}while(r); +S_51256:; +if (((-(*_FUNC_IDEWARNINGBOX_LONG_X> 1 ))&(-(*_FUNC_IDEWARNINGBOX_LONG_TREECONNECTION> 0 )))||new_error){ +if(qbevent){evnt(26070,13931,"ide_methods.bas");if(r)goto S_51256;} +do{ +tqbs=_FUNC_IDEWARNINGBOX_STRING_L; if (!new_error){ +tmp_fileno=*_FUNC_IDEWARNINGBOX_LONG_TREECONNECTION; if (!new_error){ +tmp_long= 192 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26070,13931,"ide_methods.bas");}while(r); +} +}else{ +do{ +qbs_set(_FUNC_IDEWARNINGBOX_STRING_L3,qbs_add(func_chr( 16 ),func_chr( 2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13933,"ide_methods.bas");}while(r); +S_51261:; +if ((-(((int32*)(__ARRAY_LONG_WARNINGINCLINES[0]))[array_check((*_FUNC_IDEWARNINGBOX_LONG_X)-__ARRAY_LONG_WARNINGINCLINES[4],__ARRAY_LONG_WARNINGINCLINES[5])]> 0 ))||new_error){ +if(qbevent){evnt(26070,13934,"ide_methods.bas");if(r)goto S_51261;} +do{ +qbs_set(_FUNC_IDEWARNINGBOX_STRING_NUM,func_space(((int32)(qbs_str((int32)(*__LONG_MAXLINENUMBER)))->len)+ 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13935,"ide_methods.bas");}while(r); +do{ +sub_rset(_FUNC_IDEWARNINGBOX_STRING_NUM,FUNC_STR2((&(((int32*)(__ARRAY_LONG_WARNINGINCLINES[0]))[array_check((*_FUNC_IDEWARNINGBOX_LONG_X)-__ARRAY_LONG_WARNINGINCLINES[4],__ARRAY_LONG_WARNINGINCLINES[5])])))); +if(!qbevent)break;evnt(26070,13936,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEWARNINGBOX_STRING_L3,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_IDEWARNINGBOX_STRING_L3,((qbs*)(((uint64*)(__ARRAY_STRING_WARNINGINCFILES[0]))[array_check((*_FUNC_IDEWARNINGBOX_LONG_X)-__ARRAY_STRING_WARNINGINCFILES[4],__ARRAY_STRING_WARNINGINCFILES[5])]))),func_space(*_FUNC_IDEWARNINGBOX_LONG_MAXMODULENAMELEN-((qbs*)(((uint64*)(__ARRAY_STRING_WARNINGINCFILES[0]))[array_check((*_FUNC_IDEWARNINGBOX_LONG_X)-__ARRAY_STRING_WARNINGINCFILES[4],__ARRAY_STRING_WARNINGINCFILES[5])]))->len)),qbs_new_txt_len(":",1)),func_chr( 16 )),func_chr( 16 )),_FUNC_IDEWARNINGBOX_STRING_NUM)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13937,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDEWARNINGBOX_STRING_NUM,func_space(((int32)(qbs_str((int32)(*__LONG_MAXLINENUMBER)))->len)+ 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13939,"ide_methods.bas");}while(r); +do{ +sub_rset(_FUNC_IDEWARNINGBOX_STRING_NUM,FUNC_STR2((&(((int32*)(__ARRAY_LONG_WARNINGLINES[0]))[array_check((*_FUNC_IDEWARNINGBOX_LONG_X)-__ARRAY_LONG_WARNINGLINES[4],__ARRAY_LONG_WARNINGLINES[5])])))); +if(!qbevent)break;evnt(26070,13940,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEWARNINGBOX_STRING_L3,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_IDEWARNINGBOX_STRING_L3,_FUNC_IDEWARNINGBOX_STRING_THISPROG),func_space(*_FUNC_IDEWARNINGBOX_LONG_MAXMODULENAMELEN-_FUNC_IDEWARNINGBOX_STRING_THISPROG->len)),qbs_new_txt_len(":",1)),func_chr( 16 )),func_chr( 16 )),_FUNC_IDEWARNINGBOX_STRING_NUM)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13941,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEWARNINGBOX_LONG_TREECONNECTION=_FUNC_IDEWARNINGBOX_STRING_L->len+ 1 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13943,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEWARNINGBOX_STRING_TEXT,((qbs*)(((uint64*)(__ARRAY_STRING_WARNING[0]))[array_check((*_FUNC_IDEWARNINGBOX_LONG_X)-__ARRAY_STRING_WARNING[4],__ARRAY_STRING_WARNING[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13944,"ide_methods.bas");}while(r); +S_51272:; +if ((qbs_cleanup(qbs_tmp_base,-((((int32)(qbs_add(_FUNC_IDEWARNINGBOX_STRING_L3,_FUNC_IDEWARNINGBOX_STRING_TEXT))->len)+ 6 )>*_FUNC_IDEWARNINGBOX_LONG_DIALOGWIDTH)))||new_error){ +if(qbevent){evnt(26070,13945,"ide_methods.bas");if(r)goto S_51272;} +do{ +*_FUNC_IDEWARNINGBOX_LONG_DIALOGWIDTH=((int32)(qbs_add(_FUNC_IDEWARNINGBOX_STRING_L3,_FUNC_IDEWARNINGBOX_STRING_TEXT))->len)+ 6 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13945,"ide_methods.bas");}while(r); +} +S_51275:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDEWARNINGBOX_STRING_TEXT->len))||new_error){ +if(qbevent){evnt(26070,13946,"ide_methods.bas");if(r)goto S_51275;} +do{ +qbs_set(_FUNC_IDEWARNINGBOX_STRING_L,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_IDEWARNINGBOX_STRING_L,func_chr( 195 )),func_chr( 196 )),_FUNC_IDEWARNINGBOX_STRING_L3),qbs_new_txt_len(": ",2)),_FUNC_IDEWARNINGBOX_STRING_TEXT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13947,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDEWARNINGBOX_STRING_L,qbs_add(qbs_add(qbs_add(_FUNC_IDEWARNINGBOX_STRING_L,func_chr( 195 )),func_chr( 196 )),_FUNC_IDEWARNINGBOX_STRING_L3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13949,"ide_methods.bas");}while(r); +} +} +S_51281:; +if ((-(*_FUNC_IDEWARNINGBOX_LONG_X<*__LONG_WARNINGLISTITEMS))||new_error){ +if(qbevent){evnt(26070,13952,"ide_methods.bas");if(r)goto S_51281;} +do{ +qbs_set(_FUNC_IDEWARNINGBOX_STRING_L,qbs_add(_FUNC_IDEWARNINGBOX_STRING_L,_FUNC_IDEWARNINGBOX_STRING1_SEP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13952,"ide_methods.bas");}while(r); +} +fornext_continue_5672:; +} +fornext_exit_5672:; +S_51285:; +if ((-(((int32*)(__ARRAY_LONG_WARNINGLINES[0]))[array_check((*__LONG_WARNINGLISTITEMS)-__ARRAY_LONG_WARNINGLINES[4],__ARRAY_LONG_WARNINGLINES[5])]> 0 ))||new_error){ +if(qbevent){evnt(26070,13955,"ide_methods.bas");if(r)goto S_51285;} +do{ +tqbs=_FUNC_IDEWARNINGBOX_STRING_L; if (!new_error){ +tmp_fileno=*_FUNC_IDEWARNINGBOX_LONG_TREECONNECTION; if (!new_error){ +tmp_long= 192 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26070,13956,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEWARNINGBOX_LONG_I= 0 ; +if(!qbevent)break;evnt(26070,13959,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEWARNINGBOX_LONG_DIALOGHEIGHT=*__LONG_WARNINGLISTITEMS+ 4 ; +if(!qbevent)break;evnt(26070,13960,"ide_methods.bas");}while(r); +S_51290:; +if ((-(*_FUNC_IDEWARNINGBOX_LONG_DIALOGHEIGHT>(*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 6 )))||new_error){ +if(qbevent){evnt(26070,13961,"ide_methods.bas");if(r)goto S_51290;} +do{ +*_FUNC_IDEWARNINGBOX_LONG_DIALOGHEIGHT=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 6 ; +if(!qbevent)break;evnt(26070,13962,"ide_methods.bas");}while(r); +} +S_51293:; +if ((-(*_FUNC_IDEWARNINGBOX_LONG_DIALOGWIDTH>(*__LONG_IDEWX- 8 )))||new_error){ +if(qbevent){evnt(26070,13965,"ide_methods.bas");if(r)goto S_51293;} +do{ +*_FUNC_IDEWARNINGBOX_LONG_DIALOGWIDTH=*__LONG_IDEWX- 8 ; +if(!qbevent)break;evnt(26070,13965,"ide_methods.bas");}while(r); +} +do{ +SUB_IDEPAR((void*)( ((char*)(_FUNC_IDEWARNINGBOX_UDT_P)) + (0) ),_FUNC_IDEWARNINGBOX_LONG_DIALOGWIDTH,_FUNC_IDEWARNINGBOX_LONG_DIALOGHEIGHT,qbs_new_txt_len("Compilation status",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,13967,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEWARNINGBOX_LONG_I=*_FUNC_IDEWARNINGBOX_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,13969,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*89+36))= 2 ; +if(!qbevent)break;evnt(26070,13970,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*89+24))= 2 ; +if(!qbevent)break;evnt(26070,13971,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*89+28))=*_FUNC_IDEWARNINGBOX_LONG_DIALOGWIDTH- 4 ; +if(!qbevent)break;evnt(26070,13972,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*89+32))=*_FUNC_IDEWARNINGBOX_LONG_DIALOGHEIGHT- 4 ; +if(!qbevent)break;evnt(26070,13972,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDEWARNINGBOX_STRING_L); +if(!qbevent)break;evnt(26070,13973,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*89+64))= 1 ; +if(!qbevent)break;evnt(26070,13974,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_new_txt_len("Warnings (",10),qbs_ltrim(qbs_str((int32)(*__LONG_TOTALWARNINGS)))),qbs_new_txt_len(")",1))); +if(!qbevent)break;evnt(26070,13975,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEWARNINGBOX_LONG_I=*_FUNC_IDEWARNINGBOX_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,13977,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*89+36))= 3 ; +if(!qbevent)break;evnt(26070,13978,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*89+24))=*_FUNC_IDEWARNINGBOX_LONG_DIALOGHEIGHT; +if(!qbevent)break;evnt(26070,13979,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_new_txt_len("#Go to",6),_FUNC_IDEWARNINGBOX_STRING1_SEP),qbs_new_txt_len("#Close",6))); +if(!qbevent)break;evnt(26070,13980,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*89+48))= 1 ; +if(!qbevent)break;evnt(26070,13981,"ide_methods.bas");}while(r); +S_51310:; +fornext_value5679= 1 ; +fornext_finalvalue5679= 100 ; +fornext_step5679= 1 ; +if (fornext_step5679<0) fornext_step_negative5679=1; else fornext_step_negative5679=0; +if (new_error) goto fornext_error5679; +goto fornext_entrylabel5679; +while(1){ +fornext_value5679=fornext_step5679+(*_FUNC_IDEWARNINGBOX_LONG_I); +fornext_entrylabel5679: +*_FUNC_IDEWARNINGBOX_LONG_I=fornext_value5679; +if (fornext_step_negative5679){ +if (fornext_value5679fornext_finalvalue5679) break; +} +fornext_error5679:; +if(qbevent){evnt(26070,13990,"ide_methods.bas");if(r)goto S_51310;} +do{ +memcpy(((char*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*89)+ 0,((char*)_FUNC_IDEWARNINGBOX_UDT_P)+(0)+ 0, 20); +if(!qbevent)break;evnt(26070,13990,"ide_methods.bas");}while(r); +fornext_continue_5678:; +} +fornext_exit_5678:; +S_51313:; +do{ +if(qbevent){evnt(26070,13993,"ide_methods.bas");if(r)goto S_51313;} +do{ +SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDEWARNINGBOX_UDT_P)) + (0) )); +if(!qbevent)break;evnt(26070,13996,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEWARNINGBOX_LONG_F= 1 ; +if(!qbevent)break;evnt(26070,13997,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEWARNINGBOX_LONG_CX= 0 ; +if(!qbevent)break;evnt(26070,13997,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEWARNINGBOX_LONG_CY= 0 ; +if(!qbevent)break;evnt(26070,13997,"ide_methods.bas");}while(r); +S_51318:; +fornext_value5682= 1 ; +fornext_finalvalue5682= 100 ; +fornext_step5682= 1 ; +if (fornext_step5682<0) fornext_step_negative5682=1; else fornext_step_negative5682=0; +if (new_error) goto fornext_error5682; +goto fornext_entrylabel5682; +while(1){ +fornext_value5682=fornext_step5682+(*_FUNC_IDEWARNINGBOX_LONG_I); +fornext_entrylabel5682: +*_FUNC_IDEWARNINGBOX_LONG_I=fornext_value5682; +if (fornext_step_negative5682){ +if (fornext_value5682fornext_finalvalue5682) break; +} +fornext_error5682:; +if(qbevent){evnt(26070,13998,"ide_methods.bas");if(r)goto S_51318;} +S_51319:; +if ((*(int32*)(((char*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*89+36)))||new_error){ +if(qbevent){evnt(26070,13999,"ide_methods.bas");if(r)goto S_51319;} +do{ +*(int32*)(((char*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*89+60))=*_FUNC_IDEWARNINGBOX_LONG_FOCUS-*_FUNC_IDEWARNINGBOX_LONG_F; +if(!qbevent)break;evnt(26070,14001,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*89+52))= 0 ; +if(!qbevent)break;evnt(26070,14002,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*89+56))= 0 ; +if(!qbevent)break;evnt(26070,14002,"ide_methods.bas");}while(r); +do{ +SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDEWARNINGBOX_LONG_F); +if(!qbevent)break;evnt(26070,14003,"ide_methods.bas");}while(r); +S_51324:; +if ((*(int32*)(((char*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*89+52)))||new_error){ +if(qbevent){evnt(26070,14004,"ide_methods.bas");if(r)goto S_51324;} +do{ +*_FUNC_IDEWARNINGBOX_LONG_CX=*(int32*)(((char*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*89+52)); +if(!qbevent)break;evnt(26070,14004,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEWARNINGBOX_LONG_CY=*(int32*)(((char*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*89+56)); +if(!qbevent)break;evnt(26070,14004,"ide_methods.bas");}while(r); +} +} +fornext_continue_5681:; +} +fornext_exit_5681:; +do{ +*_FUNC_IDEWARNINGBOX_LONG_LASTFOCUS=*_FUNC_IDEWARNINGBOX_LONG_F- 1 ; +if(!qbevent)break;evnt(26070,14007,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,14011,"ide_methods.bas");}while(r); +do{ +sub__printstring(*(int32*)(((char*)_FUNC_IDEWARNINGBOX_UDT_P)+(0))+ 2 ,*(int32*)(((char*)_FUNC_IDEWARNINGBOX_UDT_P)+(4))+ 1 ,qbs_new_txt_len("Double-click on an item to jump to the line indicated",53),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14011,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 1 , 0 ); +if(!qbevent)break;evnt(26070,14016,"ide_methods.bas");}while(r); +S_51334:; +if ((*_FUNC_IDEWARNINGBOX_LONG_CX)||new_error){ +if(qbevent){evnt(26070,14017,"ide_methods.bas");if(r)goto S_51334;} +do{ +qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,14017,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(*_FUNC_IDEWARNINGBOX_LONG_CY,*_FUNC_IDEWARNINGBOX_LONG_CX, 1 ,NULL,NULL,7); +if(!qbevent)break;evnt(26070,14017,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,14017,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEWARNINGBOX_LONG_CHANGE= 0 ; +if(!qbevent)break;evnt(26070,14020,"ide_methods.bas");}while(r); +S_51340:; +do{ +if(qbevent){evnt(26070,14021,"ide_methods.bas");if(r)goto S_51340;} +do{ +SUB_GETINPUT(); +if(!qbevent)break;evnt(26070,14022,"ide_methods.bas");}while(r); +S_51342:; +if ((*__LONG_MWHEEL)||new_error){ +if(qbevent){evnt(26070,14023,"ide_methods.bas");if(r)goto S_51342;} +do{ +*_FUNC_IDEWARNINGBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,14023,"ide_methods.bas");}while(r); +} +S_51345:; +if ((*__LONG_KB)||new_error){ +if(qbevent){evnt(26070,14024,"ide_methods.bas");if(r)goto S_51345;} +do{ +*_FUNC_IDEWARNINGBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,14024,"ide_methods.bas");}while(r); +} +S_51348:; +if ((*__LONG_MCLICK)||new_error){ +if(qbevent){evnt(26070,14025,"ide_methods.bas");if(r)goto S_51348;} +do{ +*_FUNC_IDEWARNINGBOX_LONG_MOUSEDOWN= 1 ; +if(!qbevent)break;evnt(26070,14025,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEWARNINGBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,14025,"ide_methods.bas");}while(r); +} +S_51352:; +if ((*__LONG_MRELEASE)||new_error){ +if(qbevent){evnt(26070,14026,"ide_methods.bas");if(r)goto S_51352;} +do{ +*_FUNC_IDEWARNINGBOX_LONG_MOUSEUP= 1 ; +if(!qbevent)break;evnt(26070,14026,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEWARNINGBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,14026,"ide_methods.bas");}while(r); +} +S_51356:; +if ((*__LONG_MB)||new_error){ +if(qbevent){evnt(26070,14027,"ide_methods.bas");if(r)goto S_51356;} +do{ +*_FUNC_IDEWARNINGBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,14027,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEWARNINGBOX_LONG_ALT=*__LONG_KALT; +if(!qbevent)break;evnt(26070,14028,"ide_methods.bas");}while(r); +S_51360:; +if ((-(*_FUNC_IDEWARNINGBOX_LONG_ALT!=*_FUNC_IDEWARNINGBOX_LONG_OLDALT))||new_error){ +if(qbevent){evnt(26070,14028,"ide_methods.bas");if(r)goto S_51360;} +do{ +*_FUNC_IDEWARNINGBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,14028,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEWARNINGBOX_LONG_OLDALT=*_FUNC_IDEWARNINGBOX_LONG_ALT; +if(!qbevent)break;evnt(26070,14029,"ide_methods.bas");}while(r); +do{ +sub__limit( 100 ); +if(!qbevent)break;evnt(26070,14030,"ide_methods.bas");}while(r); +S_51365:; +dl_continue_5683:; +}while((!(*_FUNC_IDEWARNINGBOX_LONG_CHANGE))&&(!new_error)); +dl_exit_5683:; +if(qbevent){evnt(26070,14031,"ide_methods.bas");if(r)goto S_51365;} +S_51366:; +if ((*_FUNC_IDEWARNINGBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ +if(qbevent){evnt(26070,14032,"ide_methods.bas");if(r)goto S_51366;} +do{ +*__LONG_IDEHL= 1 ; +if(!qbevent)break;evnt(26070,14032,"ide_methods.bas");}while(r); +}else{ +do{ +*__LONG_IDEHL= 0 ; +if(!qbevent)break;evnt(26070,14032,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDEWARNINGBOX_STRING_ALTLETTER,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14034,"ide_methods.bas");}while(r); +S_51372:; +if ((*_FUNC_IDEWARNINGBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ +if(qbevent){evnt(26070,14035,"ide_methods.bas");if(r)goto S_51372;} +S_51373:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ +if(qbevent){evnt(26070,14036,"ide_methods.bas");if(r)goto S_51373;} +do{ +*_FUNC_IDEWARNINGBOX_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14037,"ide_methods.bas");}while(r); +S_51375:; +if (((-(*_FUNC_IDEWARNINGBOX_LONG_K>= 65 ))&(-(*_FUNC_IDEWARNINGBOX_LONG_K<= 90 )))||new_error){ +if(qbevent){evnt(26070,14038,"ide_methods.bas");if(r)goto S_51375;} +do{ +qbs_set(_FUNC_IDEWARNINGBOX_STRING_ALTLETTER,func_chr(*_FUNC_IDEWARNINGBOX_LONG_K)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14038,"ide_methods.bas");}while(r); +} +} +} +do{ +qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,14041,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); +if(!qbevent)break;evnt(26070,14041,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,14041,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEWARNINGBOX_LONG_INFO= 0 ; +if(!qbevent)break;evnt(26070,14045,"ide_methods.bas");}while(r); +S_51384:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,14046,"ide_methods.bas");if(r)goto S_51384;} +do{ +qbs_set(__STRING_K,func_chr( 255 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14046,"ide_methods.bas");}while(r); +} +S_51387:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ +if(qbevent){evnt(26070,14047,"ide_methods.bas");if(r)goto S_51387;} +do{ +*_FUNC_IDEWARNINGBOX_LONG_FOCUS=*_FUNC_IDEWARNINGBOX_LONG_FOCUS+ 1 ; +if(!qbevent)break;evnt(26070,14047,"ide_methods.bas");}while(r); +} +S_51390:; +if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||new_error){ +if(qbevent){evnt(26070,14048,"ide_methods.bas");if(r)goto S_51390;} +do{ +*_FUNC_IDEWARNINGBOX_LONG_FOCUS=*_FUNC_IDEWARNINGBOX_LONG_FOCUS- 1 ; +if(!qbevent)break;evnt(26070,14048,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_K,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14048,"ide_methods.bas");}while(r); +} +S_51394:; +if ((-(*_FUNC_IDEWARNINGBOX_LONG_FOCUS< 1 ))||new_error){ +if(qbevent){evnt(26070,14049,"ide_methods.bas");if(r)goto S_51394;} +do{ +*_FUNC_IDEWARNINGBOX_LONG_FOCUS=*_FUNC_IDEWARNINGBOX_LONG_LASTFOCUS; +if(!qbevent)break;evnt(26070,14049,"ide_methods.bas");}while(r); +} +S_51397:; +if ((-(*_FUNC_IDEWARNINGBOX_LONG_FOCUS>*_FUNC_IDEWARNINGBOX_LONG_LASTFOCUS))||new_error){ +if(qbevent){evnt(26070,14050,"ide_methods.bas");if(r)goto S_51397;} +do{ +*_FUNC_IDEWARNINGBOX_LONG_FOCUS= 1 ; +if(!qbevent)break;evnt(26070,14050,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEWARNINGBOX_LONG_F= 1 ; +if(!qbevent)break;evnt(26070,14051,"ide_methods.bas");}while(r); +S_51401:; +fornext_value5686= 1 ; +fornext_finalvalue5686= 100 ; +fornext_step5686= 1 ; +if (fornext_step5686<0) fornext_step_negative5686=1; else fornext_step_negative5686=0; +if (new_error) goto fornext_error5686; +goto fornext_entrylabel5686; +while(1){ +fornext_value5686=fornext_step5686+(*_FUNC_IDEWARNINGBOX_LONG_I); +fornext_entrylabel5686: +*_FUNC_IDEWARNINGBOX_LONG_I=fornext_value5686; +if (fornext_step_negative5686){ +if (fornext_value5686fornext_finalvalue5686) break; +} +fornext_error5686:; +if(qbevent){evnt(26070,14052,"ide_methods.bas");if(r)goto S_51401;} +do{ +*_FUNC_IDEWARNINGBOX_LONG_T=*(int32*)(((char*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*89+36)); +if(!qbevent)break;evnt(26070,14053,"ide_methods.bas");}while(r); +S_51403:; +if ((*_FUNC_IDEWARNINGBOX_LONG_T)||new_error){ +if(qbevent){evnt(26070,14054,"ide_methods.bas");if(r)goto S_51403;} +do{ +*_FUNC_IDEWARNINGBOX_LONG_FOCUSOFFSET=*_FUNC_IDEWARNINGBOX_LONG_FOCUS-*_FUNC_IDEWARNINGBOX_LONG_F; +if(!qbevent)break;evnt(26070,14055,"ide_methods.bas");}while(r); +do{ +SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEWARNINGBOX_LONG_I)-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDEWARNINGBOX_LONG_FOCUS,_FUNC_IDEWARNINGBOX_LONG_F,_FUNC_IDEWARNINGBOX_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDEWARNINGBOX_STRING_ALTLETTER,__LONG_MB,_FUNC_IDEWARNINGBOX_LONG_MOUSEDOWN,_FUNC_IDEWARNINGBOX_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDEWARNINGBOX_LONG_INFO,__LONG_MWHEEL); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14056,"ide_methods.bas");}while(r); +} +fornext_continue_5685:; +} +fornext_exit_5685:; +S_51408:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 27 )))|(((-(*_FUNC_IDEWARNINGBOX_LONG_FOCUS== 3 ))&(-(*_FUNC_IDEWARNINGBOX_LONG_INFO!= 0 ))))))||new_error){ +if(qbevent){evnt(26070,14061,"ide_methods.bas");if(r)goto S_51408;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,14062,"ide_methods.bas");}while(r); +} +S_51411:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 13 )))|(((-(*_FUNC_IDEWARNINGBOX_LONG_FOCUS== 2 ))&(-(*_FUNC_IDEWARNINGBOX_LONG_INFO!= 0 ))))|(((-(*_FUNC_IDEWARNINGBOX_LONG_INFO== 1 ))&(-(*_FUNC_IDEWARNINGBOX_LONG_FOCUS== 1 ))))))||new_error){ +if(qbevent){evnt(26070,14065,"ide_methods.bas");if(r)goto S_51411;} +do{ +*_FUNC_IDEWARNINGBOX_LONG_Y=func_abs((int32)(*(int32*)(((char*)_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[4],_FUNC_IDEWARNINGBOX_ARRAY_UDT_O[5]))*89+64)))); +if(!qbevent)break;evnt(26070,14066,"ide_methods.bas");}while(r); +S_51413:; +if (((-(*_FUNC_IDEWARNINGBOX_LONG_Y>= 1 ))&(-(*_FUNC_IDEWARNINGBOX_LONG_Y<=*__LONG_WARNINGLISTITEMS))&(-(((int32*)(__ARRAY_LONG_WARNINGLINES[0]))[array_check((*_FUNC_IDEWARNINGBOX_LONG_Y)-__ARRAY_LONG_WARNINGLINES[4],__ARRAY_LONG_WARNINGLINES[5])]> 0 )))||new_error){ +if(qbevent){evnt(26070,14067,"ide_methods.bas");if(r)goto S_51413;} +do{ +*__LONG_IDEGOTOBOX_LASTLINENUM=((int32*)(__ARRAY_LONG_WARNINGLINES[0]))[array_check((*_FUNC_IDEWARNINGBOX_LONG_Y)-__ARRAY_LONG_WARNINGLINES[4],__ARRAY_LONG_WARNINGLINES[5])]; +if(!qbevent)break;evnt(26070,14068,"ide_methods.bas");}while(r); +do{ +SUB_ADDQUICKNAVHISTORY(); +if(!qbevent)break;evnt(26070,14069,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECY=*__LONG_IDEGOTOBOX_LASTLINENUM; +if(!qbevent)break;evnt(26070,14070,"ide_methods.bas");}while(r); +do{ +SUB_IDECENTERCURRENTLINE(); +if(!qbevent)break;evnt(26070,14071,"ide_methods.bas");}while(r); +S_51418:; +if ((-(((int32*)(__ARRAY_LONG_WARNINGINCLINES[0]))[array_check((*_FUNC_IDEWARNINGBOX_LONG_Y)-__ARRAY_LONG_WARNINGINCLINES[4],__ARRAY_LONG_WARNINGINCLINES[5])]> 0 ))||new_error){ +if(qbevent){evnt(26070,14072,"ide_methods.bas");if(r)goto S_51418;} +do{ +*__LONG_WARNINGININCLUDE=*__LONG_IDECY; +if(!qbevent)break;evnt(26070,14073,"ide_methods.bas");}while(r); +do{ +*__LONG_WARNINGININCLUDELINE=((int32*)(__ARRAY_LONG_WARNINGINCLINES[0]))[array_check((*_FUNC_IDEWARNINGBOX_LONG_Y)-__ARRAY_LONG_WARNINGINCLINES[4],__ARRAY_LONG_WARNINGINCLINES[5])]; +if(!qbevent)break;evnt(26070,14074,"ide_methods.bas");}while(r); +} +do{ +*__LONG_IDESELECT= 0 ; +if(!qbevent)break;evnt(26070,14076,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,14077,"ide_methods.bas");}while(r); +} +} +do{ +*_FUNC_IDEWARNINGBOX_LONG_MOUSEDOWN= 0 ; +if(!qbevent)break;evnt(26070,14082,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEWARNINGBOX_LONG_MOUSEUP= 0 ; +if(!qbevent)break;evnt(26070,14083,"ide_methods.bas");}while(r); +dl_continue_5680:; +}while(1); +dl_exit_5680:; +do{ +*_FUNC_IDEWARNINGBOX_LONG_IDEWARNINGBOX= 0 ; +if(!qbevent)break;evnt(26070,14086,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free218.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +return *_FUNC_IDEWARNINGBOX_LONG_IDEWARNINGBOX; +} +void SUB_IDEOBJUPDATE(void*_SUB_IDEOBJUPDATE_UDT_O,int32*_SUB_IDEOBJUPDATE_LONG_FOCUS,int32*_SUB_IDEOBJUPDATE_LONG_F,int32*_SUB_IDEOBJUPDATE_LONG_FOCUSOFFSET,qbs*_SUB_IDEOBJUPDATE_STRING_KK,qbs*_SUB_IDEOBJUPDATE_STRING_ALTLETTER,int32*_SUB_IDEOBJUPDATE_LONG_MB,int32*_SUB_IDEOBJUPDATE_LONG_MOUSEDOWN,int32*_SUB_IDEOBJUPDATE_LONG_MOUSEUP,int32*_SUB_IDEOBJUPDATE_LONG_MX,int32*_SUB_IDEOBJUPDATE_LONG_MY,int32*_SUB_IDEOBJUPDATE_LONG_INFO,int32*_SUB_IDEOBJUPDATE_LONG_MW){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data219.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +if(!qbevent)break;evnt(26070,14090,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26070,14091,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_IDEOBJUPDATE_STRING1_SEP,func_chr( 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14092,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEOBJUPDATE_LONG_T=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(36)); +if(!qbevent)break;evnt(26070,14094,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEOBJUPDATE_LONG_MOUSEUP=*_SUB_IDEOBJUPDATE_LONG_MOUSEUP; +if(!qbevent)break;evnt(26070,14095,"ide_methods.bas");}while(r); +S_51435:; +if ((-(*_SUB_IDEOBJUPDATE_LONG_T== 1 ))||new_error){ +if(qbevent){evnt(26070,14096,"ide_methods.bas");if(r)goto S_51435;} +S_51436:; +if ((*_SUB_IDEOBJUPDATE_LONG_MOUSEDOWN)||new_error){ +if(qbevent){evnt(26070,14097,"ide_methods.bas");if(r)goto S_51436;} +do{ +*_SUB_IDEOBJUPDATE_LONG_X1=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(0))+*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(20)); +if(!qbevent)break;evnt(26070,14098,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEOBJUPDATE_LONG_Y=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(4))+*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(24)); +if(!qbevent)break;evnt(26070,14098,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEOBJUPDATE_LONG_X2=*_SUB_IDEOBJUPDATE_LONG_X1; +if(!qbevent)break;evnt(26070,14099,"ide_methods.bas");}while(r); +S_51440:; +if ((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(40)))||new_error){ +if(qbevent){evnt(26070,14100,"ide_methods.bas");if(r)goto S_51440;} +do{ +*_SUB_IDEOBJUPDATE_LONG_X2=*_SUB_IDEOBJUPDATE_LONG_X2+FUNC_IDEHLEN(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(40)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))+ 2 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14101,"ide_methods.bas");}while(r); +} +S_51443:; +if (((-(*_SUB_IDEOBJUPDATE_LONG_MY>=(*_SUB_IDEOBJUPDATE_LONG_Y- 1 )))&(-(*_SUB_IDEOBJUPDATE_LONG_MY<=(*_SUB_IDEOBJUPDATE_LONG_Y+ 1 ))))||new_error){ +if(qbevent){evnt(26070,14103,"ide_methods.bas");if(r)goto S_51443;} +S_51444:; +if (((-(*_SUB_IDEOBJUPDATE_LONG_MX>=*_SUB_IDEOBJUPDATE_LONG_X1))&(-(*_SUB_IDEOBJUPDATE_LONG_MX<=(*_SUB_IDEOBJUPDATE_LONG_X2+*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(28))+ 3 ))))||new_error){ +if(qbevent){evnt(26070,14104,"ide_methods.bas");if(r)goto S_51444;} +do{ +*_SUB_IDEOBJUPDATE_LONG_FOCUS=*_SUB_IDEOBJUPDATE_LONG_F; +if(!qbevent)break;evnt(26070,14105,"ide_methods.bas");}while(r); +S_51446:; +if ((-(*_SUB_IDEOBJUPDATE_LONG_MY==*_SUB_IDEOBJUPDATE_LONG_Y))||new_error){ +if(qbevent){evnt(26070,14107,"ide_methods.bas");if(r)goto S_51446;} +S_51447:; +if (((-(*_SUB_IDEOBJUPDATE_LONG_MX>(*_SUB_IDEOBJUPDATE_LONG_X2+ 1 )))&(-(*_SUB_IDEOBJUPDATE_LONG_MX<(*_SUB_IDEOBJUPDATE_LONG_X2+*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(28))+ 2 ))))||new_error){ +if(qbevent){evnt(26070,14108,"ide_methods.bas");if(r)goto S_51447;} +do{ +qbs_set(_SUB_IDEOBJUPDATE_STRING_A,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14109,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEOBJUPDATE_LONG_X=*_SUB_IDEOBJUPDATE_LONG_MX-*_SUB_IDEOBJUPDATE_LONG_X2- 2 ; +if(!qbevent)break;evnt(26070,14110,"ide_methods.bas");}while(r); +S_51450:; +if ((qbs_cleanup(qbs_tmp_base,(-(*_SUB_IDEOBJUPDATE_LONG_X==*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))))&(-(*_SUB_IDEOBJUPDATE_LONG_X!=_SUB_IDEOBJUPDATE_STRING_A->len))))||new_error){ +if(qbevent){evnt(26070,14111,"ide_methods.bas");if(r)goto S_51450;} +do{ +qbs_set(_SUB_IDEOBJUPDATE_STRING_A,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14112,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_SUB_IDEOBJUPDATE_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14113,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))= 0 ; +if(!qbevent)break;evnt(26070,14114,"ide_methods.bas");}while(r); +}else{ +S_51455:; +if ((qbs_cleanup(qbs_tmp_base,-(*_SUB_IDEOBJUPDATE_LONG_X<=_SUB_IDEOBJUPDATE_STRING_A->len)))||new_error){ +if(qbevent){evnt(26070,14116,"ide_methods.bas");if(r)goto S_51455;} +do{ +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))=*_SUB_IDEOBJUPDATE_LONG_X; +if(!qbevent)break;evnt(26070,14116,"ide_methods.bas");}while(r); +}else{ +do{ +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))=_SUB_IDEOBJUPDATE_STRING_A->len; +if(!qbevent)break;evnt(26070,14116,"ide_methods.bas");}while(r); +} +do{ +*(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(76))= 0 ; +if(!qbevent)break;evnt(26070,14117,"ide_methods.bas");}while(r); +} +} +} +} +} +} +do{ +qbs_set(_SUB_IDEOBJUPDATE_STRING_A,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14125,"ide_methods.bas");}while(r); +S_51468:; +if ((-(*_SUB_IDEOBJUPDATE_LONG_FOCUSOFFSET== 0 ))||new_error){ +if(qbevent){evnt(26070,14126,"ide_methods.bas");if(r)goto S_51468;} +S_51469:; +if ((qbs_cleanup(qbs_tmp_base,(-(_SUB_IDEOBJUPDATE_STRING_KK->len== 1 ))|(-(*__LONG_KB!= 0 ))))||new_error){ +if(qbevent){evnt(26070,14127,"ide_methods.bas");if(r)goto S_51469;} +S_51470:; +if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDEOBJUPDATE_STRING_KK->len== 1 )))||new_error){ +if(qbevent){evnt(26070,14128,"ide_methods.bas");if(r)goto S_51470;} +do{ +*_SUB_IDEOBJUPDATE_LONG_K=qbs_asc(_SUB_IDEOBJUPDATE_STRING_KK); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14128,"ide_methods.bas");}while(r); +} +S_51473:; +if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(-(*__LONG_KB== 20992 )))|(*__LONG_KCONTROL&(qbs_equal(qbs_ucase(_SUB_IDEOBJUPDATE_STRING_KK),qbs_new_txt_len("V",1))))))||new_error){ +if(qbevent){evnt(26070,14129,"ide_methods.bas");if(r)goto S_51473;} +do{ +qbs_set(_SUB_IDEOBJUPDATE_STRING_CLIP,func__clipboard()); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14130,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEOBJUPDATE_LONG_X=func_instr(NULL,_SUB_IDEOBJUPDATE_STRING_CLIP,func_chr( 13 ),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14131,"ide_methods.bas");}while(r); +S_51476:; +if ((*_SUB_IDEOBJUPDATE_LONG_X)||new_error){ +if(qbevent){evnt(26070,14132,"ide_methods.bas");if(r)goto S_51476;} +do{ +qbs_set(_SUB_IDEOBJUPDATE_STRING_CLIP,qbs_left(_SUB_IDEOBJUPDATE_STRING_CLIP,*_SUB_IDEOBJUPDATE_LONG_X- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14132,"ide_methods.bas");}while(r); +} +do{ +*_SUB_IDEOBJUPDATE_LONG_X=func_instr(NULL,_SUB_IDEOBJUPDATE_STRING_CLIP,func_chr( 10 ),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14133,"ide_methods.bas");}while(r); +S_51480:; +if ((*_SUB_IDEOBJUPDATE_LONG_X)||new_error){ +if(qbevent){evnt(26070,14134,"ide_methods.bas");if(r)goto S_51480;} +do{ +qbs_set(_SUB_IDEOBJUPDATE_STRING_CLIP,qbs_left(_SUB_IDEOBJUPDATE_STRING_CLIP,*_SUB_IDEOBJUPDATE_LONG_X- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14134,"ide_methods.bas");}while(r); +} +S_51483:; +if ((qbs_cleanup(qbs_tmp_base,_SUB_IDEOBJUPDATE_STRING_CLIP->len))||new_error){ +if(qbevent){evnt(26070,14135,"ide_methods.bas");if(r)goto S_51483;} +S_51484:; +if ((*(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(76)))||new_error){ +if(qbevent){evnt(26070,14136,"ide_methods.bas");if(r)goto S_51484;} +do{ +*_SUB_IDEOBJUPDATE_LONG_SX1=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77)); +if(!qbevent)break;evnt(26070,14137,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEOBJUPDATE_LONG_SX2=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81)); +if(!qbevent)break;evnt(26070,14137,"ide_methods.bas");}while(r); +S_51487:; +if ((-(*_SUB_IDEOBJUPDATE_LONG_SX1>*_SUB_IDEOBJUPDATE_LONG_SX2))||new_error){ +if(qbevent){evnt(26070,14138,"ide_methods.bas");if(r)goto S_51487;} +do{ +swap_32(&*_SUB_IDEOBJUPDATE_LONG_SX1,&*_SUB_IDEOBJUPDATE_LONG_SX2); +if(!qbevent)break;evnt(26070,14138,"ide_methods.bas");}while(r); +} +S_51490:; +if ((-((*_SUB_IDEOBJUPDATE_LONG_SX2-*_SUB_IDEOBJUPDATE_LONG_SX1)>( 0 )))||new_error){ +if(qbevent){evnt(26070,14139,"ide_methods.bas");if(r)goto S_51490;} +do{ +qbs_set(_SUB_IDEOBJUPDATE_STRING_A,qbs_add(qbs_add(qbs_left(_SUB_IDEOBJUPDATE_STRING_A,*_SUB_IDEOBJUPDATE_LONG_SX1),_SUB_IDEOBJUPDATE_STRING_CLIP),qbs_right(_SUB_IDEOBJUPDATE_STRING_A,_SUB_IDEOBJUPDATE_STRING_A->len-*_SUB_IDEOBJUPDATE_LONG_SX2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14140,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))=*_SUB_IDEOBJUPDATE_LONG_SX1; +if(!qbevent)break;evnt(26070,14141,"ide_methods.bas");}while(r); +S_51493:; +if ((*__BYTE_PASTECURSORATEND)||new_error){ +if(qbevent){evnt(26070,14142,"ide_methods.bas");if(r)goto S_51493;} +do{ +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))=*_SUB_IDEOBJUPDATE_LONG_SX1+_SUB_IDEOBJUPDATE_STRING_CLIP->len; +if(!qbevent)break;evnt(26070,14142,"ide_methods.bas");}while(r); +} +do{ +*(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(76))= 0 ; +if(!qbevent)break;evnt(26070,14143,"ide_methods.bas");}while(r); +} +}else{ +do{ +qbs_set(_SUB_IDEOBJUPDATE_STRING_A,qbs_add(qbs_add(qbs_left(_SUB_IDEOBJUPDATE_STRING_A,*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))),_SUB_IDEOBJUPDATE_STRING_CLIP),qbs_right(_SUB_IDEOBJUPDATE_STRING_A,_SUB_IDEOBJUPDATE_STRING_A->len-*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14146,"ide_methods.bas");}while(r); +S_51500:; +if ((*__BYTE_PASTECURSORATEND)||new_error){ +if(qbevent){evnt(26070,14147,"ide_methods.bas");if(r)goto S_51500;} +do{ +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))+_SUB_IDEOBJUPDATE_STRING_CLIP->len; +if(!qbevent)break;evnt(26070,14147,"ide_methods.bas");}while(r); +} +} +} +do{ +*_SUB_IDEOBJUPDATE_LONG_K= 255 ; +if(!qbevent)break;evnt(26070,14150,"ide_methods.bas");}while(r); +} +S_51507:; +if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KCONTROL&(qbs_equal(qbs_ucase(_SUB_IDEOBJUPDATE_STRING_KK),qbs_new_txt_len("A",1))))))||new_error){ +if(qbevent){evnt(26070,14153,"ide_methods.bas");if(r)goto S_51507;} +S_51508:; +if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDEOBJUPDATE_STRING_A->len> 0 )))||new_error){ +if(qbevent){evnt(26070,14154,"ide_methods.bas");if(r)goto S_51508;} +do{ +*(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(76))= -1 ; +if(!qbevent)break;evnt(26070,14155,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77))= 0 ; +if(!qbevent)break;evnt(26070,14156,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))=_SUB_IDEOBJUPDATE_STRING_A->len; +if(!qbevent)break;evnt(26070,14157,"ide_methods.bas");}while(r); +} +do{ +*_SUB_IDEOBJUPDATE_LONG_K= 255 ; +if(!qbevent)break;evnt(26070,14159,"ide_methods.bas");}while(r); +} +S_51515:; +if ((qbs_cleanup(qbs_tmp_base,((*__LONG_KCTRL&(-(*__LONG_KB== 20992 )))|(*__LONG_KCONTROL&(qbs_equal(qbs_ucase(_SUB_IDEOBJUPDATE_STRING_KK),qbs_new_txt_len("C",1)))))))||new_error){ +if(qbevent){evnt(26070,14162,"ide_methods.bas");if(r)goto S_51515;} +S_51516:; +if ((*(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(76)))||new_error){ +if(qbevent){evnt(26070,14163,"ide_methods.bas");if(r)goto S_51516;} +do{ +*_SUB_IDEOBJUPDATE_LONG_SX1=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77)); +if(!qbevent)break;evnt(26070,14164,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEOBJUPDATE_LONG_SX2=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81)); +if(!qbevent)break;evnt(26070,14164,"ide_methods.bas");}while(r); +S_51519:; +if ((-(*_SUB_IDEOBJUPDATE_LONG_SX1>*_SUB_IDEOBJUPDATE_LONG_SX2))||new_error){ +if(qbevent){evnt(26070,14165,"ide_methods.bas");if(r)goto S_51519;} +do{ +swap_32(&*_SUB_IDEOBJUPDATE_LONG_SX1,&*_SUB_IDEOBJUPDATE_LONG_SX2); +if(!qbevent)break;evnt(26070,14165,"ide_methods.bas");}while(r); +} +S_51522:; +if ((-((*_SUB_IDEOBJUPDATE_LONG_SX2-*_SUB_IDEOBJUPDATE_LONG_SX1)>( 0 )))||new_error){ +if(qbevent){evnt(26070,14166,"ide_methods.bas");if(r)goto S_51522;} +do{ +sub__clipboard(func_mid(_SUB_IDEOBJUPDATE_STRING_A,*_SUB_IDEOBJUPDATE_LONG_SX1+ 1 ,*_SUB_IDEOBJUPDATE_LONG_SX2-*_SUB_IDEOBJUPDATE_LONG_SX1,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14166,"ide_methods.bas");}while(r); +} +} +do{ +*_SUB_IDEOBJUPDATE_LONG_K= 255 ; +if(!qbevent)break;evnt(26070,14168,"ide_methods.bas");}while(r); +} +S_51528:; +if ((qbs_cleanup(qbs_tmp_base,((*__LONG_KSHIFT&(-(*__LONG_KB== 21248 )))|(*__LONG_KCONTROL&(qbs_equal(qbs_ucase(_SUB_IDEOBJUPDATE_STRING_KK),qbs_new_txt_len("X",1)))))))||new_error){ +if(qbevent){evnt(26070,14171,"ide_methods.bas");if(r)goto S_51528;} +S_51529:; +if ((*(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(76)))||new_error){ +if(qbevent){evnt(26070,14172,"ide_methods.bas");if(r)goto S_51529;} +do{ +*_SUB_IDEOBJUPDATE_LONG_SX1=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77)); +if(!qbevent)break;evnt(26070,14173,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEOBJUPDATE_LONG_SX2=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81)); +if(!qbevent)break;evnt(26070,14173,"ide_methods.bas");}while(r); +S_51532:; +if ((-(*_SUB_IDEOBJUPDATE_LONG_SX1>*_SUB_IDEOBJUPDATE_LONG_SX2))||new_error){ +if(qbevent){evnt(26070,14174,"ide_methods.bas");if(r)goto S_51532;} +do{ +swap_32(&*_SUB_IDEOBJUPDATE_LONG_SX1,&*_SUB_IDEOBJUPDATE_LONG_SX2); +if(!qbevent)break;evnt(26070,14174,"ide_methods.bas");}while(r); +} +S_51535:; +if ((-((*_SUB_IDEOBJUPDATE_LONG_SX2-*_SUB_IDEOBJUPDATE_LONG_SX1)>( 0 )))||new_error){ +if(qbevent){evnt(26070,14175,"ide_methods.bas");if(r)goto S_51535;} +do{ +sub__clipboard(func_mid(_SUB_IDEOBJUPDATE_STRING_A,*_SUB_IDEOBJUPDATE_LONG_SX1+ 1 ,*_SUB_IDEOBJUPDATE_LONG_SX2-*_SUB_IDEOBJUPDATE_LONG_SX1,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14176,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_IDEOBJUPDATE_STRING_A,qbs_add(qbs_left(_SUB_IDEOBJUPDATE_STRING_A,*_SUB_IDEOBJUPDATE_LONG_SX1),qbs_right(_SUB_IDEOBJUPDATE_STRING_A,_SUB_IDEOBJUPDATE_STRING_A->len-*_SUB_IDEOBJUPDATE_LONG_SX2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14178,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))=*_SUB_IDEOBJUPDATE_LONG_SX1; +if(!qbevent)break;evnt(26070,14179,"ide_methods.bas");}while(r); +do{ +*(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(76))= 0 ; +if(!qbevent)break;evnt(26070,14180,"ide_methods.bas");}while(r); +} +} +do{ +*_SUB_IDEOBJUPDATE_LONG_K= 255 ; +if(!qbevent)break;evnt(26070,14183,"ide_methods.bas");}while(r); +} +S_51544:; +if (((-(*_SUB_IDEOBJUPDATE_LONG_K== 8 ))&(-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))> 0 )))||new_error){ +if(qbevent){evnt(26070,14186,"ide_methods.bas");if(r)goto S_51544;} +S_51545:; +if ((*(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(76)))||new_error){ +if(qbevent){evnt(26070,14187,"ide_methods.bas");if(r)goto S_51545;} +do{ +*_SUB_IDEOBJUPDATE_LONG_SX1=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77)); +if(!qbevent)break;evnt(26070,14188,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEOBJUPDATE_LONG_SX2=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81)); +if(!qbevent)break;evnt(26070,14188,"ide_methods.bas");}while(r); +S_51548:; +if ((-(*_SUB_IDEOBJUPDATE_LONG_SX1>*_SUB_IDEOBJUPDATE_LONG_SX2))||new_error){ +if(qbevent){evnt(26070,14189,"ide_methods.bas");if(r)goto S_51548;} +do{ +swap_32(&*_SUB_IDEOBJUPDATE_LONG_SX1,&*_SUB_IDEOBJUPDATE_LONG_SX2); +if(!qbevent)break;evnt(26070,14189,"ide_methods.bas");}while(r); +} +S_51551:; +if ((-((*_SUB_IDEOBJUPDATE_LONG_SX2-*_SUB_IDEOBJUPDATE_LONG_SX1)>( 0 )))||new_error){ +if(qbevent){evnt(26070,14190,"ide_methods.bas");if(r)goto S_51551;} +do{ +qbs_set(_SUB_IDEOBJUPDATE_STRING_A,qbs_add(qbs_left(_SUB_IDEOBJUPDATE_STRING_A,*_SUB_IDEOBJUPDATE_LONG_SX1),qbs_right(_SUB_IDEOBJUPDATE_STRING_A,_SUB_IDEOBJUPDATE_STRING_A->len-*_SUB_IDEOBJUPDATE_LONG_SX2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14192,"ide_methods.bas");}while(r); +do{ +*(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(76))= 0 ; +if(!qbevent)break;evnt(26070,14193,"ide_methods.bas");}while(r); +} +}else{ +do{ +qbs_set(_SUB_IDEOBJUPDATE_STRING_A1,qbs_left(_SUB_IDEOBJUPDATE_STRING_A,*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14196,"ide_methods.bas");}while(r); +S_51557:; +if ((qbs_cleanup(qbs_tmp_base,-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))<=_SUB_IDEOBJUPDATE_STRING_A->len)))||new_error){ +if(qbevent){evnt(26070,14197,"ide_methods.bas");if(r)goto S_51557;} +do{ +qbs_set(_SUB_IDEOBJUPDATE_STRING_A2,qbs_right(_SUB_IDEOBJUPDATE_STRING_A,_SUB_IDEOBJUPDATE_STRING_A->len-*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14197,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_IDEOBJUPDATE_STRING_A2,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14197,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_IDEOBJUPDATE_STRING_A,qbs_add(_SUB_IDEOBJUPDATE_STRING_A1,_SUB_IDEOBJUPDATE_STRING_A2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14198,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))- 1 ; +if(!qbevent)break;evnt(26070,14198,"ide_methods.bas");}while(r); +} +S_51565:; +}else{ +if ((-(*_SUB_IDEOBJUPDATE_LONG_K== 8 ))&*(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(76))){ +if(qbevent){evnt(26070,14200,"ide_methods.bas");if(r)goto S_51565;} +do{ +*_SUB_IDEOBJUPDATE_LONG_SX1=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77)); +if(!qbevent)break;evnt(26070,14201,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEOBJUPDATE_LONG_SX2=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81)); +if(!qbevent)break;evnt(26070,14201,"ide_methods.bas");}while(r); +S_51568:; +if ((-(*_SUB_IDEOBJUPDATE_LONG_SX1>*_SUB_IDEOBJUPDATE_LONG_SX2))||new_error){ +if(qbevent){evnt(26070,14202,"ide_methods.bas");if(r)goto S_51568;} +do{ +swap_32(&*_SUB_IDEOBJUPDATE_LONG_SX1,&*_SUB_IDEOBJUPDATE_LONG_SX2); +if(!qbevent)break;evnt(26070,14202,"ide_methods.bas");}while(r); +} +S_51571:; +if ((-((*_SUB_IDEOBJUPDATE_LONG_SX2-*_SUB_IDEOBJUPDATE_LONG_SX1)>( 0 )))||new_error){ +if(qbevent){evnt(26070,14203,"ide_methods.bas");if(r)goto S_51571;} +do{ +qbs_set(_SUB_IDEOBJUPDATE_STRING_A,qbs_add(qbs_left(_SUB_IDEOBJUPDATE_STRING_A,*_SUB_IDEOBJUPDATE_LONG_SX1),qbs_right(_SUB_IDEOBJUPDATE_STRING_A,_SUB_IDEOBJUPDATE_STRING_A->len-*_SUB_IDEOBJUPDATE_LONG_SX2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14205,"ide_methods.bas");}while(r); +do{ +*(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(76))= 0 ; +if(!qbevent)break;evnt(26070,14206,"ide_methods.bas");}while(r); +} +} +} +S_51576:; +if (((-(*_SUB_IDEOBJUPDATE_LONG_K!= 8 ))&(-(*_SUB_IDEOBJUPDATE_LONG_K!= 9 ))&(-(*_SUB_IDEOBJUPDATE_LONG_K!= 0 ))&(-(*_SUB_IDEOBJUPDATE_LONG_K!= 10 ))&(-(*_SUB_IDEOBJUPDATE_LONG_K!= 13 ))&(-(*_SUB_IDEOBJUPDATE_LONG_K!= 26 ))&(-(*_SUB_IDEOBJUPDATE_LONG_K!= 255 ))&((((-(*__LONG_KALT== 0 ))&(-(*__LONG_KCTRL== 0 )))|((-(*__LONG_KALT== -1 ))&(-(*__LONG_KCTRL== -1 ))))))||new_error){ +if(qbevent){evnt(26070,14209,"ide_methods.bas");if(r)goto S_51576;} +S_51577:; +if ((*(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(76)))||new_error){ +if(qbevent){evnt(26070,14210,"ide_methods.bas");if(r)goto S_51577;} +do{ +*_SUB_IDEOBJUPDATE_LONG_SX1=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77)); +if(!qbevent)break;evnt(26070,14211,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEOBJUPDATE_LONG_SX2=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81)); +if(!qbevent)break;evnt(26070,14211,"ide_methods.bas");}while(r); +S_51580:; +if ((-(*_SUB_IDEOBJUPDATE_LONG_SX1>*_SUB_IDEOBJUPDATE_LONG_SX2))||new_error){ +if(qbevent){evnt(26070,14212,"ide_methods.bas");if(r)goto S_51580;} +do{ +swap_32(&*_SUB_IDEOBJUPDATE_LONG_SX1,&*_SUB_IDEOBJUPDATE_LONG_SX2); +if(!qbevent)break;evnt(26070,14212,"ide_methods.bas");}while(r); +} +S_51583:; +if ((-((*_SUB_IDEOBJUPDATE_LONG_SX2-*_SUB_IDEOBJUPDATE_LONG_SX1)>( 0 )))||new_error){ +if(qbevent){evnt(26070,14213,"ide_methods.bas");if(r)goto S_51583;} +do{ +qbs_set(_SUB_IDEOBJUPDATE_STRING_A,qbs_add(qbs_left(_SUB_IDEOBJUPDATE_STRING_A,*_SUB_IDEOBJUPDATE_LONG_SX1),qbs_right(_SUB_IDEOBJUPDATE_STRING_A,_SUB_IDEOBJUPDATE_STRING_A->len-*_SUB_IDEOBJUPDATE_LONG_SX2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14215,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_SUB_IDEOBJUPDATE_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14216,"ide_methods.bas");}while(r); +do{ +*(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(76))= 0 ; +if(!qbevent)break;evnt(26070,14217,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))=*_SUB_IDEOBJUPDATE_LONG_SX1; +if(!qbevent)break;evnt(26070,14218,"ide_methods.bas");}while(r); +} +} +S_51590:; +if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))> 0 ))||new_error){ +if(qbevent){evnt(26070,14221,"ide_methods.bas");if(r)goto S_51590;} +do{ +qbs_set(_SUB_IDEOBJUPDATE_STRING_A1,qbs_left(_SUB_IDEOBJUPDATE_STRING_A,*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14221,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_IDEOBJUPDATE_STRING_A1,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14221,"ide_methods.bas");}while(r); +} +S_51595:; +if ((qbs_cleanup(qbs_tmp_base,-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))<=_SUB_IDEOBJUPDATE_STRING_A->len)))||new_error){ +if(qbevent){evnt(26070,14222,"ide_methods.bas");if(r)goto S_51595;} +do{ +qbs_set(_SUB_IDEOBJUPDATE_STRING_A2,qbs_right(_SUB_IDEOBJUPDATE_STRING_A,_SUB_IDEOBJUPDATE_STRING_A->len-*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14222,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_IDEOBJUPDATE_STRING_A2,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14222,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_IDEOBJUPDATE_STRING_A,qbs_add(qbs_add(_SUB_IDEOBJUPDATE_STRING_A1,_SUB_IDEOBJUPDATE_STRING_KK),_SUB_IDEOBJUPDATE_STRING_A2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14223,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))+ 1 ; +if(!qbevent)break;evnt(26070,14223,"ide_methods.bas");}while(r); +} +do{ +tmp_long=array_check((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_SUB_IDEOBJUPDATE_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14225,"ide_methods.bas");}while(r); +} +S_51605:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDEOBJUPDATE_STRING_KK,(qbs_add(func_chr( 0 ),qbs_new_txt_len("S",1))))))||new_error){ +if(qbevent){evnt(26070,14227,"ide_methods.bas");if(r)goto S_51605;} +S_51606:; +if ((*(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(76)))||new_error){ +if(qbevent){evnt(26070,14228,"ide_methods.bas");if(r)goto S_51606;} +do{ +*_SUB_IDEOBJUPDATE_LONG_SX1=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77)); +if(!qbevent)break;evnt(26070,14229,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEOBJUPDATE_LONG_SX2=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81)); +if(!qbevent)break;evnt(26070,14229,"ide_methods.bas");}while(r); +S_51609:; +if ((-(*_SUB_IDEOBJUPDATE_LONG_SX1>*_SUB_IDEOBJUPDATE_LONG_SX2))||new_error){ +if(qbevent){evnt(26070,14230,"ide_methods.bas");if(r)goto S_51609;} +do{ +swap_32(&*_SUB_IDEOBJUPDATE_LONG_SX1,&*_SUB_IDEOBJUPDATE_LONG_SX2); +if(!qbevent)break;evnt(26070,14230,"ide_methods.bas");}while(r); +} +S_51612:; +if ((-((*_SUB_IDEOBJUPDATE_LONG_SX2-*_SUB_IDEOBJUPDATE_LONG_SX1)>( 0 )))||new_error){ +if(qbevent){evnt(26070,14231,"ide_methods.bas");if(r)goto S_51612;} +do{ +qbs_set(_SUB_IDEOBJUPDATE_STRING_A,qbs_add(qbs_left(_SUB_IDEOBJUPDATE_STRING_A,*_SUB_IDEOBJUPDATE_LONG_SX1),qbs_right(_SUB_IDEOBJUPDATE_STRING_A,_SUB_IDEOBJUPDATE_STRING_A->len-*_SUB_IDEOBJUPDATE_LONG_SX2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14233,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_SUB_IDEOBJUPDATE_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14234,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))=*_SUB_IDEOBJUPDATE_LONG_SX1; +if(!qbevent)break;evnt(26070,14235,"ide_methods.bas");}while(r); +do{ +*(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(76))= 0 ; +if(!qbevent)break;evnt(26070,14236,"ide_methods.bas");}while(r); +} +}else{ +S_51619:; +if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))> 0 ))||new_error){ +if(qbevent){evnt(26070,14239,"ide_methods.bas");if(r)goto S_51619;} +do{ +qbs_set(_SUB_IDEOBJUPDATE_STRING_A1,qbs_left(_SUB_IDEOBJUPDATE_STRING_A,*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14239,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_IDEOBJUPDATE_STRING_A1,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14239,"ide_methods.bas");}while(r); +} +S_51624:; +if ((qbs_cleanup(qbs_tmp_base,-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))<_SUB_IDEOBJUPDATE_STRING_A->len)))||new_error){ +if(qbevent){evnt(26070,14240,"ide_methods.bas");if(r)goto S_51624;} +do{ +qbs_set(_SUB_IDEOBJUPDATE_STRING_A2,qbs_right(_SUB_IDEOBJUPDATE_STRING_A,_SUB_IDEOBJUPDATE_STRING_A->len-*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14240,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_IDEOBJUPDATE_STRING_A2,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14240,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_IDEOBJUPDATE_STRING_A,qbs_add(_SUB_IDEOBJUPDATE_STRING_A1,_SUB_IDEOBJUPDATE_STRING_A2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14241,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_SUB_IDEOBJUPDATE_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14242,"ide_methods.bas");}while(r); +} +} +S_51633:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDEOBJUPDATE_STRING_KK,(qbs_add(func_chr( 0 ),qbs_new_txt_len("K",1))))))||new_error){ +if(qbevent){evnt(26070,14247,"ide_methods.bas");if(r)goto S_51633;} +do{ +return_point[next_return_point++]=166; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SELECTCHECK; +RETURN_166:; +if(!qbevent)break;evnt(26070,14247,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))- 1 ; +if(!qbevent)break;evnt(26070,14247,"ide_methods.bas");}while(r); +} +S_51637:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDEOBJUPDATE_STRING_KK,(qbs_add(func_chr( 0 ),qbs_new_txt_len("M",1))))))||new_error){ +if(qbevent){evnt(26070,14248,"ide_methods.bas");if(r)goto S_51637;} +do{ +return_point[next_return_point++]=167; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SELECTCHECK; +RETURN_167:; +if(!qbevent)break;evnt(26070,14248,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))+ 1 ; +if(!qbevent)break;evnt(26070,14248,"ide_methods.bas");}while(r); +} +S_51641:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDEOBJUPDATE_STRING_KK,(qbs_add(func_chr( 0 ),qbs_new_txt_len("G",1))))))||new_error){ +if(qbevent){evnt(26070,14249,"ide_methods.bas");if(r)goto S_51641;} +do{ +return_point[next_return_point++]=168; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SELECTCHECK; +RETURN_168:; +if(!qbevent)break;evnt(26070,14249,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))= 0 ; +if(!qbevent)break;evnt(26070,14249,"ide_methods.bas");}while(r); +} +S_51645:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDEOBJUPDATE_STRING_KK,(qbs_add(func_chr( 0 ),qbs_new_txt_len("O",1))))))||new_error){ +if(qbevent){evnt(26070,14250,"ide_methods.bas");if(r)goto S_51645;} +do{ +return_point[next_return_point++]=169; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_SELECTCHECK; +RETURN_169:; +if(!qbevent)break;evnt(26070,14250,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))=_SUB_IDEOBJUPDATE_STRING_A->len; +if(!qbevent)break;evnt(26070,14250,"ide_methods.bas");}while(r); +} +S_51649:; +if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))< 0 ))||new_error){ +if(qbevent){evnt(26070,14251,"ide_methods.bas");if(r)goto S_51649;} +do{ +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))= 0 ; +if(!qbevent)break;evnt(26070,14251,"ide_methods.bas");}while(r); +} +S_51652:; +if ((qbs_cleanup(qbs_tmp_base,-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))>_SUB_IDEOBJUPDATE_STRING_A->len)))||new_error){ +if(qbevent){evnt(26070,14252,"ide_methods.bas");if(r)goto S_51652;} +do{ +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))=_SUB_IDEOBJUPDATE_STRING_A->len; +if(!qbevent)break;evnt(26070,14252,"ide_methods.bas");}while(r); +} +S_51655:; +if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))==*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77))))||new_error){ +if(qbevent){evnt(26070,14253,"ide_methods.bas");if(r)goto S_51655;} +do{ +*(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(76))= 0 ; +if(!qbevent)break;evnt(26070,14253,"ide_methods.bas");}while(r); +} +} +S_51659:; +if ((qbs_cleanup(qbs_tmp_base,_SUB_IDEOBJUPDATE_STRING_ALTLETTER->len))||new_error){ +if(qbevent){evnt(26070,14256,"ide_methods.bas");if(r)goto S_51659;} +S_51660:; +if ((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(40)))||new_error){ +if(qbevent){evnt(26070,14257,"ide_methods.bas");if(r)goto S_51660;} +do{ +*_SUB_IDEOBJUPDATE_LONG_X=func_instr(NULL,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(40)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])),qbs_new_txt_len("#",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14258,"ide_methods.bas");}while(r); +S_51662:; +if ((*_SUB_IDEOBJUPDATE_LONG_X)||new_error){ +if(qbevent){evnt(26070,14259,"ide_methods.bas");if(r)goto S_51662;} +S_51663:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(40)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])),*_SUB_IDEOBJUPDATE_LONG_X+ 1 , 1 ,0|1)),_SUB_IDEOBJUPDATE_STRING_ALTLETTER)))||new_error){ +if(qbevent){evnt(26070,14260,"ide_methods.bas");if(r)goto S_51663;} +do{ +*_SUB_IDEOBJUPDATE_LONG_FOCUS=*_SUB_IDEOBJUPDATE_LONG_F; +if(!qbevent)break;evnt(26070,14260,"ide_methods.bas");}while(r); +} +} +} +} +do{ +*_SUB_IDEOBJUPDATE_LONG_F=*_SUB_IDEOBJUPDATE_LONG_F+ 1 ; +if(!qbevent)break;evnt(26070,14264,"ide_methods.bas");}while(r); +} +S_51671:; +if ((-(*_SUB_IDEOBJUPDATE_LONG_T== 2 ))||new_error){ +if(qbevent){evnt(26070,14267,"ide_methods.bas");if(r)goto S_51671;} +do{ +tmp_long=array_check((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(72)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14268,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_IDEOBJUPDATE_STRING_A,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14271,"ide_methods.bas");}while(r); +do{ if (_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[2]&2){ error(10); @@ -173997,9 +173997,9 @@ while(tmp_long--) ((uint64*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[0]))[tm }else{ while(tmp_long--) ((uint64*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[0]))[tmp_long]=(uint64)qbs_new(0,0); } -} -if(!qbevent)break;evnt(26070,14272,"ide_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26070,14272,"ide_methods.bas");}while(r); +do{ if (_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[2]&2){ error(10); @@ -174022,34 +174022,34 @@ while(tmp_long--) ((uint64*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS }else{ while(tmp_long--) ((uint64*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[0]))[tmp_long]=(uint64)qbs_new(0,0); } -} -if(!qbevent)break;evnt(26070,14273,"ide_methods.bas");}while(r); -S_51676:; -if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDEOBJUPDATE_STRING_A->len> 0 )))||new_error){ -if(qbevent){evnt(26070,14274,"ide_methods.bas");if(r)goto S_51676;} -do{ -*_SUB_IDEOBJUPDATE_LONG_N= 0 ; -if(!qbevent)break;evnt(26070,14275,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEOBJUPDATE_LONG_X= 1 ; -if(!qbevent)break;evnt(26070,14275,"ide_methods.bas");}while(r); -S_51679:; -do{ -if(qbevent){evnt(26070,14276,"ide_methods.bas");if(r)goto S_51679;} -do{ -*_SUB_IDEOBJUPDATE_LONG_X2=func_instr(*_SUB_IDEOBJUPDATE_LONG_X,_SUB_IDEOBJUPDATE_STRING_A,_SUB_IDEOBJUPDATE_STRING1_SEP,0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14277,"ide_methods.bas");}while(r); -S_51681:; -if ((-(*_SUB_IDEOBJUPDATE_LONG_X2> 0 ))||new_error){ -if(qbevent){evnt(26070,14278,"ide_methods.bas");if(r)goto S_51681;} -do{ -*_SUB_IDEOBJUPDATE_LONG_N=*_SUB_IDEOBJUPDATE_LONG_N+ 1 ; -if(!qbevent)break;evnt(26070,14279,"ide_methods.bas");}while(r); -S_51683:; -if ((qbs_cleanup(qbs_tmp_base,-(*_SUB_IDEOBJUPDATE_LONG_N>func_ubound(_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS,1,1))))||new_error){ -if(qbevent){evnt(26070,14280,"ide_methods.bas");if(r)goto S_51683;} -do{ +} +if(!qbevent)break;evnt(26070,14273,"ide_methods.bas");}while(r); +S_51676:; +if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDEOBJUPDATE_STRING_A->len> 0 )))||new_error){ +if(qbevent){evnt(26070,14274,"ide_methods.bas");if(r)goto S_51676;} +do{ +*_SUB_IDEOBJUPDATE_LONG_N= 0 ; +if(!qbevent)break;evnt(26070,14275,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEOBJUPDATE_LONG_X= 1 ; +if(!qbevent)break;evnt(26070,14275,"ide_methods.bas");}while(r); +S_51679:; +do{ +if(qbevent){evnt(26070,14276,"ide_methods.bas");if(r)goto S_51679;} +do{ +*_SUB_IDEOBJUPDATE_LONG_X2=func_instr(*_SUB_IDEOBJUPDATE_LONG_X,_SUB_IDEOBJUPDATE_STRING_A,_SUB_IDEOBJUPDATE_STRING1_SEP,0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14277,"ide_methods.bas");}while(r); +S_51681:; +if ((-(*_SUB_IDEOBJUPDATE_LONG_X2> 0 ))||new_error){ +if(qbevent){evnt(26070,14278,"ide_methods.bas");if(r)goto S_51681;} +do{ +*_SUB_IDEOBJUPDATE_LONG_N=*_SUB_IDEOBJUPDATE_LONG_N+ 1 ; +if(!qbevent)break;evnt(26070,14279,"ide_methods.bas");}while(r); +S_51683:; +if ((qbs_cleanup(qbs_tmp_base,-(*_SUB_IDEOBJUPDATE_LONG_N>func_ubound(_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS,1,1))))||new_error){ +if(qbevent){evnt(26070,14280,"ide_methods.bas");if(r)goto S_51683;} +do{ if (_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[2]&2){ error(10); @@ -174092,9 +174092,9 @@ while(tmp_long--) ((uint64*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[0]))[tm while(tmp_long--) ((uint64*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -} -if(!qbevent)break;evnt(26070,14281,"ide_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26070,14281,"ide_methods.bas");}while(r); +do{ if (_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[2]&2){ error(10); @@ -174137,49 +174137,49 @@ while(tmp_long--) ((uint64*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS while(tmp_long--) ((uint64*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -} -if(!qbevent)break;evnt(26070,14282,"ide_methods.bas");}while(r); -} -do{ -tmp_long=array_check((*_SUB_IDEOBJUPDATE_LONG_N)-_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[4],_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[0]))[tmp_long])),qbs__trim(func_mid(_SUB_IDEOBJUPDATE_STRING_A,*_SUB_IDEOBJUPDATE_LONG_X,*_SUB_IDEOBJUPDATE_LONG_X2-*_SUB_IDEOBJUPDATE_LONG_X,0|1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14284,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEOBJUPDATE_LONG_N)-_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[4],_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[0]))[tmp_long])),func_mid(_SUB_IDEOBJUPDATE_STRING_A,*_SUB_IDEOBJUPDATE_LONG_X,*_SUB_IDEOBJUPDATE_LONG_X2-*_SUB_IDEOBJUPDATE_LONG_X,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14285,"ide_methods.bas");}while(r); -S_51689:; -if ((qbs_cleanup(qbs_tmp_base,((qbs*)(((uint64*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[0]))[array_check((*_SUB_IDEOBJUPDATE_LONG_N)-_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[4],_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[5])]))->len))||new_error){ -if(qbevent){evnt(26070,14286,"ide_methods.bas");if(r)goto S_51689;} -S_51690:; -while((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(((qbs*)(((uint64*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[0]))[array_check((*_SUB_IDEOBJUPDATE_LONG_N)-_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[4],_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[5])])))< 32 ))|(-(qbs_asc(((qbs*)(((uint64*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[0]))[array_check((*_SUB_IDEOBJUPDATE_LONG_N)-_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[4],_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[5])])))> 126 ))))||new_error){ -if(qbevent){evnt(26070,14287,"ide_methods.bas");if(r)goto S_51690;} -do{ -tmp_long=array_check((*_SUB_IDEOBJUPDATE_LONG_N)-_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[4],_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[0]))[tmp_long])),func_mid(((qbs*)(((uint64*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[0]))[array_check((*_SUB_IDEOBJUPDATE_LONG_N)-_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[4],_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[5])])), 2 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14288,"ide_methods.bas");}while(r); -S_51692:; -if ((qbs_cleanup(qbs_tmp_base,-(((qbs*)(((uint64*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[0]))[array_check((*_SUB_IDEOBJUPDATE_LONG_N)-_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[4],_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[5])]))->len== 0 )))||new_error){ -if(qbevent){evnt(26070,14289,"ide_methods.bas");if(r)goto S_51692;} -do{ -goto dl_exit_5719; -if(!qbevent)break;evnt(26070,14289,"ide_methods.bas");}while(r); -} -dl_continue_5719:; -} -dl_exit_5719:; -} -}else{ -do{ -*_SUB_IDEOBJUPDATE_LONG_N=*_SUB_IDEOBJUPDATE_LONG_N+ 1 ; -if(!qbevent)break;evnt(26070,14293,"ide_methods.bas");}while(r); -S_51699:; -if ((qbs_cleanup(qbs_tmp_base,-(*_SUB_IDEOBJUPDATE_LONG_N>func_ubound(_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS,1,1))))||new_error){ -if(qbevent){evnt(26070,14294,"ide_methods.bas");if(r)goto S_51699;} -do{ +} +if(!qbevent)break;evnt(26070,14282,"ide_methods.bas");}while(r); +} +do{ +tmp_long=array_check((*_SUB_IDEOBJUPDATE_LONG_N)-_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[4],_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[0]))[tmp_long])),qbs__trim(func_mid(_SUB_IDEOBJUPDATE_STRING_A,*_SUB_IDEOBJUPDATE_LONG_X,*_SUB_IDEOBJUPDATE_LONG_X2-*_SUB_IDEOBJUPDATE_LONG_X,0|1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14284,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEOBJUPDATE_LONG_N)-_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[4],_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[0]))[tmp_long])),func_mid(_SUB_IDEOBJUPDATE_STRING_A,*_SUB_IDEOBJUPDATE_LONG_X,*_SUB_IDEOBJUPDATE_LONG_X2-*_SUB_IDEOBJUPDATE_LONG_X,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14285,"ide_methods.bas");}while(r); +S_51689:; +if ((qbs_cleanup(qbs_tmp_base,((qbs*)(((uint64*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[0]))[array_check((*_SUB_IDEOBJUPDATE_LONG_N)-_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[4],_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[5])]))->len))||new_error){ +if(qbevent){evnt(26070,14286,"ide_methods.bas");if(r)goto S_51689;} +S_51690:; +while((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(((qbs*)(((uint64*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[0]))[array_check((*_SUB_IDEOBJUPDATE_LONG_N)-_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[4],_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[5])])))< 32 ))|(-(qbs_asc(((qbs*)(((uint64*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[0]))[array_check((*_SUB_IDEOBJUPDATE_LONG_N)-_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[4],_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[5])])))> 126 ))))||new_error){ +if(qbevent){evnt(26070,14287,"ide_methods.bas");if(r)goto S_51690;} +do{ +tmp_long=array_check((*_SUB_IDEOBJUPDATE_LONG_N)-_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[4],_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[0]))[tmp_long])),func_mid(((qbs*)(((uint64*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[0]))[array_check((*_SUB_IDEOBJUPDATE_LONG_N)-_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[4],_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[5])])), 2 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14288,"ide_methods.bas");}while(r); +S_51692:; +if ((qbs_cleanup(qbs_tmp_base,-(((qbs*)(((uint64*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[0]))[array_check((*_SUB_IDEOBJUPDATE_LONG_N)-_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[4],_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[5])]))->len== 0 )))||new_error){ +if(qbevent){evnt(26070,14289,"ide_methods.bas");if(r)goto S_51692;} +do{ +goto dl_exit_5719; +if(!qbevent)break;evnt(26070,14289,"ide_methods.bas");}while(r); +} +dl_continue_5719:; +} +dl_exit_5719:; +} +}else{ +do{ +*_SUB_IDEOBJUPDATE_LONG_N=*_SUB_IDEOBJUPDATE_LONG_N+ 1 ; +if(!qbevent)break;evnt(26070,14293,"ide_methods.bas");}while(r); +S_51699:; +if ((qbs_cleanup(qbs_tmp_base,-(*_SUB_IDEOBJUPDATE_LONG_N>func_ubound(_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS,1,1))))||new_error){ +if(qbevent){evnt(26070,14294,"ide_methods.bas");if(r)goto S_51699;} +do{ if (_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[2]&2){ error(10); @@ -174222,9 +174222,9 @@ while(tmp_long--) ((uint64*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[0]))[tm while(tmp_long--) ((uint64*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -} -if(!qbevent)break;evnt(26070,14295,"ide_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26070,14295,"ide_methods.bas");}while(r); +do{ if (_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[2]&2){ error(10); @@ -174267,52 +174267,52 @@ while(tmp_long--) ((uint64*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS while(tmp_long--) ((uint64*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -} -if(!qbevent)break;evnt(26070,14296,"ide_methods.bas");}while(r); -} -do{ -tmp_long=array_check((*_SUB_IDEOBJUPDATE_LONG_N)-_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[4],_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[0]))[tmp_long])),qbs__trim(qbs_right(_SUB_IDEOBJUPDATE_STRING_A,_SUB_IDEOBJUPDATE_STRING_A->len-*_SUB_IDEOBJUPDATE_LONG_X+ 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14298,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEOBJUPDATE_LONG_N)-_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[4],_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[0]))[tmp_long])),qbs_right(_SUB_IDEOBJUPDATE_STRING_A,_SUB_IDEOBJUPDATE_STRING_A->len-*_SUB_IDEOBJUPDATE_LONG_X+ 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14299,"ide_methods.bas");}while(r); -S_51705:; -if ((qbs_cleanup(qbs_tmp_base,((qbs*)(((uint64*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[0]))[array_check((*_SUB_IDEOBJUPDATE_LONG_N)-_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[4],_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[5])]))->len))||new_error){ -if(qbevent){evnt(26070,14300,"ide_methods.bas");if(r)goto S_51705;} -S_51706:; -while((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(((qbs*)(((uint64*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[0]))[array_check((*_SUB_IDEOBJUPDATE_LONG_N)-_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[4],_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[5])])))< 32 ))|(-(qbs_asc(((qbs*)(((uint64*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[0]))[array_check((*_SUB_IDEOBJUPDATE_LONG_N)-_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[4],_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[5])])))> 126 ))))||new_error){ -if(qbevent){evnt(26070,14301,"ide_methods.bas");if(r)goto S_51706;} -do{ -tmp_long=array_check((*_SUB_IDEOBJUPDATE_LONG_N)-_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[4],_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[0]))[tmp_long])),func_mid(((qbs*)(((uint64*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[0]))[array_check((*_SUB_IDEOBJUPDATE_LONG_N)-_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[4],_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[5])])), 2 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14302,"ide_methods.bas");}while(r); -S_51708:; -if ((qbs_cleanup(qbs_tmp_base,-(((qbs*)(((uint64*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[0]))[array_check((*_SUB_IDEOBJUPDATE_LONG_N)-_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[4],_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[5])]))->len== 0 )))||new_error){ -if(qbevent){evnt(26070,14303,"ide_methods.bas");if(r)goto S_51708;} -do{ -goto dl_exit_5724; -if(!qbevent)break;evnt(26070,14303,"ide_methods.bas");}while(r); -} -dl_continue_5724:; -} -dl_exit_5724:; -} -do{ -goto dl_exit_5717; -if(!qbevent)break;evnt(26070,14306,"ide_methods.bas");}while(r); -} -do{ -*_SUB_IDEOBJUPDATE_LONG_X=*_SUB_IDEOBJUPDATE_LONG_X2+ 1 ; -if(!qbevent)break;evnt(26070,14308,"ide_methods.bas");}while(r); -dl_continue_5717:; -}while(1); -dl_exit_5717:; -do{ +} +if(!qbevent)break;evnt(26070,14296,"ide_methods.bas");}while(r); +} +do{ +tmp_long=array_check((*_SUB_IDEOBJUPDATE_LONG_N)-_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[4],_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[0]))[tmp_long])),qbs__trim(qbs_right(_SUB_IDEOBJUPDATE_STRING_A,_SUB_IDEOBJUPDATE_STRING_A->len-*_SUB_IDEOBJUPDATE_LONG_X+ 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14298,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEOBJUPDATE_LONG_N)-_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[4],_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[0]))[tmp_long])),qbs_right(_SUB_IDEOBJUPDATE_STRING_A,_SUB_IDEOBJUPDATE_STRING_A->len-*_SUB_IDEOBJUPDATE_LONG_X+ 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14299,"ide_methods.bas");}while(r); +S_51705:; +if ((qbs_cleanup(qbs_tmp_base,((qbs*)(((uint64*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[0]))[array_check((*_SUB_IDEOBJUPDATE_LONG_N)-_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[4],_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[5])]))->len))||new_error){ +if(qbevent){evnt(26070,14300,"ide_methods.bas");if(r)goto S_51705;} +S_51706:; +while((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(((qbs*)(((uint64*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[0]))[array_check((*_SUB_IDEOBJUPDATE_LONG_N)-_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[4],_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[5])])))< 32 ))|(-(qbs_asc(((qbs*)(((uint64*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[0]))[array_check((*_SUB_IDEOBJUPDATE_LONG_N)-_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[4],_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[5])])))> 126 ))))||new_error){ +if(qbevent){evnt(26070,14301,"ide_methods.bas");if(r)goto S_51706;} +do{ +tmp_long=array_check((*_SUB_IDEOBJUPDATE_LONG_N)-_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[4],_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[0]))[tmp_long])),func_mid(((qbs*)(((uint64*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[0]))[array_check((*_SUB_IDEOBJUPDATE_LONG_N)-_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[4],_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[5])])), 2 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14302,"ide_methods.bas");}while(r); +S_51708:; +if ((qbs_cleanup(qbs_tmp_base,-(((qbs*)(((uint64*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[0]))[array_check((*_SUB_IDEOBJUPDATE_LONG_N)-_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[4],_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[5])]))->len== 0 )))||new_error){ +if(qbevent){evnt(26070,14303,"ide_methods.bas");if(r)goto S_51708;} +do{ +goto dl_exit_5724; +if(!qbevent)break;evnt(26070,14303,"ide_methods.bas");}while(r); +} +dl_continue_5724:; +} +dl_exit_5724:; +} +do{ +goto dl_exit_5717; +if(!qbevent)break;evnt(26070,14306,"ide_methods.bas");}while(r); +} +do{ +*_SUB_IDEOBJUPDATE_LONG_X=*_SUB_IDEOBJUPDATE_LONG_X2+ 1 ; +if(!qbevent)break;evnt(26070,14308,"ide_methods.bas");}while(r); +dl_continue_5717:; +}while(1); +dl_exit_5717:; +do{ if (_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[2]&2){ error(10); @@ -174355,9 +174355,9 @@ while(tmp_long--) ((uint64*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[0]))[tm while(tmp_long--) ((uint64*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -} -if(!qbevent)break;evnt(26070,14310,"ide_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26070,14310,"ide_methods.bas");}while(r); +do{ if (_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[2]&2){ error(10); @@ -174400,2089 +174400,2089 @@ while(tmp_long--) ((uint64*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS while(tmp_long--) ((uint64*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -} -if(!qbevent)break;evnt(26070,14311,"ide_methods.bas");}while(r); -} -S_51720:; -if ((*_SUB_IDEOBJUPDATE_LONG_MOUSEDOWN)||new_error){ -if(qbevent){evnt(26070,14314,"ide_methods.bas");if(r)goto S_51720;} -do{ -*_SUB_IDEOBJUPDATE_LONG_X1=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(0))+*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(20)); -if(!qbevent)break;evnt(26070,14315,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEOBJUPDATE_LONG_Y1=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(4))+*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(24)); -if(!qbevent)break;evnt(26070,14315,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEOBJUPDATE_LONG_X2=*_SUB_IDEOBJUPDATE_LONG_X1+*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(28))+ 1 ; -if(!qbevent)break;evnt(26070,14316,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEOBJUPDATE_LONG_Y2=*_SUB_IDEOBJUPDATE_LONG_Y1+*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(32))+ 1 ; -if(!qbevent)break;evnt(26070,14316,"ide_methods.bas");}while(r); -S_51725:; -if (((-(*_SUB_IDEOBJUPDATE_LONG_MX>=*_SUB_IDEOBJUPDATE_LONG_X1))&(-(*_SUB_IDEOBJUPDATE_LONG_MX<=*_SUB_IDEOBJUPDATE_LONG_X2))&(-(*_SUB_IDEOBJUPDATE_LONG_MY>=*_SUB_IDEOBJUPDATE_LONG_Y1))&(-(*_SUB_IDEOBJUPDATE_LONG_MY<=*_SUB_IDEOBJUPDATE_LONG_Y2)))||new_error){ -if(qbevent){evnt(26070,14317,"ide_methods.bas");if(r)goto S_51725;} -do{ -*_SUB_IDEOBJUPDATE_LONG_FOCUS=*_SUB_IDEOBJUPDATE_LONG_F; -if(!qbevent)break;evnt(26070,14318,"ide_methods.bas");}while(r); -S_51727:; -if (((-(*_SUB_IDEOBJUPDATE_LONG_MX>*_SUB_IDEOBJUPDATE_LONG_X1))&(-(*_SUB_IDEOBJUPDATE_LONG_MX<*_SUB_IDEOBJUPDATE_LONG_X2))&(-(*_SUB_IDEOBJUPDATE_LONG_MY>*_SUB_IDEOBJUPDATE_LONG_Y1))&(-(*_SUB_IDEOBJUPDATE_LONG_MY<*_SUB_IDEOBJUPDATE_LONG_Y2)))||new_error){ -if(qbevent){evnt(26070,14319,"ide_methods.bas");if(r)goto S_51727;} -do{ -*_SUB_IDEOBJUPDATE_LONG_Y=*_SUB_IDEOBJUPDATE_LONG_MY-*_SUB_IDEOBJUPDATE_LONG_Y1- 1 ; -if(!qbevent)break;evnt(26070,14320,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEOBJUPDATE_LONG_Y=*_SUB_IDEOBJUPDATE_LONG_Y+*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81)); -if(!qbevent)break;evnt(26070,14321,"ide_methods.bas");}while(r); -S_51730:; -if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))==*_SUB_IDEOBJUPDATE_LONG_Y))||new_error){ -if(qbevent){evnt(26070,14322,"ide_methods.bas");if(r)goto S_51730;} -do{ -*_SUB_IDEOBJUPDATE_LONG_INFO= 1 ; -if(!qbevent)break;evnt(26070,14322,"ide_methods.bas");}while(r); -} -do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=*_SUB_IDEOBJUPDATE_LONG_Y; -if(!qbevent)break;evnt(26070,14323,"ide_methods.bas");}while(r); -S_51734:; -if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))>*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(85))))||new_error){ -if(qbevent){evnt(26070,14324,"ide_methods.bas");if(r)goto S_51734;} -do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(85))); -if(!qbevent)break;evnt(26070,14324,"ide_methods.bas");}while(r); -} -} -} -} -S_51740:; -if ((*_SUB_IDEOBJUPDATE_LONG_MB)||new_error){ -if(qbevent){evnt(26070,14330,"ide_methods.bas");if(r)goto S_51740;} -S_51741:; -if ((-(*_SUB_IDEOBJUPDATE_LONG_FOCUSOFFSET== 0 ))||new_error){ -if(qbevent){evnt(26070,14331,"ide_methods.bas");if(r)goto S_51741;} -do{ -*_SUB_IDEOBJUPDATE_LONG_X1=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(0))+*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(20)); -if(!qbevent)break;evnt(26070,14333,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEOBJUPDATE_LONG_Y1=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(4))+*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(24)); -if(!qbevent)break;evnt(26070,14333,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEOBJUPDATE_LONG_X2=*_SUB_IDEOBJUPDATE_LONG_X1+*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(28))+ 1 ; -if(!qbevent)break;evnt(26070,14334,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEOBJUPDATE_LONG_Y2=*_SUB_IDEOBJUPDATE_LONG_Y1+*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(32))+ 1 ; -if(!qbevent)break;evnt(26070,14334,"ide_methods.bas");}while(r); -S_51746:; -if (((-(*_SUB_IDEOBJUPDATE_LONG_MX>=*_SUB_IDEOBJUPDATE_LONG_X1))&(-(*_SUB_IDEOBJUPDATE_LONG_MX<=*_SUB_IDEOBJUPDATE_LONG_X2))&(-(*_SUB_IDEOBJUPDATE_LONG_MY>=*_SUB_IDEOBJUPDATE_LONG_Y1))&(-(*_SUB_IDEOBJUPDATE_LONG_MY<=*_SUB_IDEOBJUPDATE_LONG_Y2)))||new_error){ -if(qbevent){evnt(26070,14335,"ide_methods.bas");if(r)goto S_51746;} -S_51747:; -if (((-(*_SUB_IDEOBJUPDATE_LONG_MX==*_SUB_IDEOBJUPDATE_LONG_X2))&(-(*_SUB_IDEOBJUPDATE_LONG_MY>(*_SUB_IDEOBJUPDATE_LONG_Y1+ 1 )))&(-(*_SUB_IDEOBJUPDATE_LONG_MY<(*_SUB_IDEOBJUPDATE_LONG_Y2- 1 ))))||new_error){ -if(qbevent){evnt(26070,14337,"ide_methods.bas");if(r)goto S_51747;} -do{ -*_SUB_IDEOBJUPDATE_LONG_TSEL=func_abs((int32)(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64)))); -if(!qbevent)break;evnt(26070,14339,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEOBJUPDATE_LONG_TNUM=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(85)); -if(!qbevent)break;evnt(26070,14340,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEOBJUPDATE_LONG_Q=FUNC_IDEVBAR(_SUB_IDEOBJUPDATE_LONG_X2,&(pass5726=*_SUB_IDEOBJUPDATE_LONG_Y1+ 1 ),(int32*)(void*)( ((char*)(_SUB_IDEOBJUPDATE_UDT_O)) + (32) ),_SUB_IDEOBJUPDATE_LONG_TSEL,_SUB_IDEOBJUPDATE_LONG_TNUM); -if(!qbevent)break;evnt(26070,14341,"ide_methods.bas");}while(r); -S_51751:; -if ((-(*_SUB_IDEOBJUPDATE_LONG_MY<*_SUB_IDEOBJUPDATE_LONG_Q))||new_error){ -if(qbevent){evnt(26070,14343,"ide_methods.bas");if(r)goto S_51751;} -do{ -qbs_set(_SUB_IDEOBJUPDATE_STRING_KK,qbs_add(func_chr( 0 ),func_chr( 73 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14344,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT(); -if(!qbevent)break;evnt(26070,14345,"ide_methods.bas");}while(r); -} -S_51755:; -if ((-(*_SUB_IDEOBJUPDATE_LONG_MY>*_SUB_IDEOBJUPDATE_LONG_Q))||new_error){ -if(qbevent){evnt(26070,14347,"ide_methods.bas");if(r)goto S_51755;} -do{ -qbs_set(_SUB_IDEOBJUPDATE_STRING_KK,qbs_add(func_chr( 0 ),func_chr( 81 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14348,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT(); -if(!qbevent)break;evnt(26070,14349,"ide_methods.bas");}while(r); -} -} -S_51760:; -if (((-(*_SUB_IDEOBJUPDATE_LONG_MX==*_SUB_IDEOBJUPDATE_LONG_X2))&(-(*_SUB_IDEOBJUPDATE_LONG_MY==(*_SUB_IDEOBJUPDATE_LONG_Y1+ 1 ))))||new_error){ -if(qbevent){evnt(26070,14353,"ide_methods.bas");if(r)goto S_51760;} -do{ -qbs_set(_SUB_IDEOBJUPDATE_STRING_KK,qbs_add(func_chr( 0 ),func_chr( 72 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14354,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT(); -if(!qbevent)break;evnt(26070,14355,"ide_methods.bas");}while(r); -} -S_51764:; -if (((-(*_SUB_IDEOBJUPDATE_LONG_MX==*_SUB_IDEOBJUPDATE_LONG_X2))&(-(*_SUB_IDEOBJUPDATE_LONG_MY==(*_SUB_IDEOBJUPDATE_LONG_Y2- 1 ))))||new_error){ -if(qbevent){evnt(26070,14357,"ide_methods.bas");if(r)goto S_51764;} -do{ -qbs_set(_SUB_IDEOBJUPDATE_STRING_KK,qbs_add(func_chr( 0 ),func_chr( 80 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14358,"ide_methods.bas");}while(r); -do{ -SUB_IDEWAIT(); -if(!qbevent)break;evnt(26070,14359,"ide_methods.bas");}while(r); -} -} -} -} -S_51771:; -if ((-(*_SUB_IDEOBJUPDATE_LONG_FOCUSOFFSET== 0 ))||new_error){ -if(qbevent){evnt(26070,14367,"ide_methods.bas");if(r)goto S_51771;} -S_51772:; -if ((*_SUB_IDEOBJUPDATE_LONG_MW)||new_error){ -if(qbevent){evnt(26070,14368,"ide_methods.bas");if(r)goto S_51772;} -S_51773:; -if ((-(*_SUB_IDEOBJUPDATE_LONG_MW< 0 ))||new_error){ -if(qbevent){evnt(26070,14370,"ide_methods.bas");if(r)goto S_51773;} -S_51774:; -if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))>*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))))||new_error){ -if(qbevent){evnt(26070,14371,"ide_methods.bas");if(r)goto S_51774;} -do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81)); -if(!qbevent)break;evnt(26070,14371,"ide_methods.bas");}while(r); -} -}else{ -do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))+*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(32))- 1 ; -if(!qbevent)break;evnt(26070,14373,"ide_methods.bas");}while(r); -} -do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))+(*_SUB_IDEOBJUPDATE_LONG_MW* 3 ); -if(!qbevent)break;evnt(26070,14375,"ide_methods.bas");}while(r); -S_51781:; -if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))< 1 ))||new_error){ -if(qbevent){evnt(26070,14376,"ide_methods.bas");if(r)goto S_51781;} -do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))= 1 ; -if(!qbevent)break;evnt(26070,14376,"ide_methods.bas");}while(r); -} -S_51784:; -if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))>*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(85))))||new_error){ -if(qbevent){evnt(26070,14377,"ide_methods.bas");if(r)goto S_51784;} -do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(85)); -if(!qbevent)break;evnt(26070,14377,"ide_methods.bas");}while(r); -} -} -S_51788:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDEOBJUPDATE_STRING_KK,(qbs_add(func_chr( 0 ),func_chr( 72 ))))))||new_error){ -if(qbevent){evnt(26070,14380,"ide_methods.bas");if(r)goto S_51788;} -S_51789:; -if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))< 0 ))||new_error){ -if(qbevent){evnt(26070,14381,"ide_methods.bas");if(r)goto S_51789;} -do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))); -if(!qbevent)break;evnt(26070,14382,"ide_methods.bas");}while(r); -}else{ -do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))- 1 ; -if(!qbevent)break;evnt(26070,14384,"ide_methods.bas");}while(r); -S_51793:; -if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))< 1 ))||new_error){ -if(qbevent){evnt(26070,14385,"ide_methods.bas");if(r)goto S_51793;} -do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))= 1 ; -if(!qbevent)break;evnt(26070,14385,"ide_methods.bas");}while(r); -} -} -} -S_51798:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDEOBJUPDATE_STRING_KK,(qbs_add(func_chr( 0 ),func_chr( 80 ))))))||new_error){ -if(qbevent){evnt(26070,14389,"ide_methods.bas");if(r)goto S_51798;} -S_51799:; -if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))< 0 ))||new_error){ -if(qbevent){evnt(26070,14390,"ide_methods.bas");if(r)goto S_51799;} -do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))); -if(!qbevent)break;evnt(26070,14391,"ide_methods.bas");}while(r); -}else{ -do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))+ 1 ; -if(!qbevent)break;evnt(26070,14393,"ide_methods.bas");}while(r); -S_51803:; -if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))>*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(85))))||new_error){ -if(qbevent){evnt(26070,14394,"ide_methods.bas");if(r)goto S_51803;} -do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(85)); -if(!qbevent)break;evnt(26070,14394,"ide_methods.bas");}while(r); -} -} -} -S_51808:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDEOBJUPDATE_STRING_KK,(qbs_add(func_chr( 0 ),func_chr( 73 ))))))||new_error){ -if(qbevent){evnt(26070,14398,"ide_methods.bas");if(r)goto S_51808;} -S_51809:; -if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))< 0 ))||new_error){ -if(qbevent){evnt(26070,14399,"ide_methods.bas");if(r)goto S_51809;} -do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))); -if(!qbevent)break;evnt(26070,14400,"ide_methods.bas");}while(r); -} -do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))-*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(32))+ 1 ; -if(!qbevent)break;evnt(26070,14402,"ide_methods.bas");}while(r); -S_51813:; -if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))< 1 ))||new_error){ -if(qbevent){evnt(26070,14403,"ide_methods.bas");if(r)goto S_51813;} -do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))= 1 ; -if(!qbevent)break;evnt(26070,14403,"ide_methods.bas");}while(r); -} -} -S_51817:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDEOBJUPDATE_STRING_KK,(qbs_add(func_chr( 0 ),func_chr( 81 ))))))||new_error){ -if(qbevent){evnt(26070,14406,"ide_methods.bas");if(r)goto S_51817;} -S_51818:; -if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))< 0 ))||new_error){ -if(qbevent){evnt(26070,14407,"ide_methods.bas");if(r)goto S_51818;} -do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))); -if(!qbevent)break;evnt(26070,14408,"ide_methods.bas");}while(r); -} -do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))+*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(32))- 1 ; -if(!qbevent)break;evnt(26070,14410,"ide_methods.bas");}while(r); -S_51822:; -if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))>*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(85))))||new_error){ -if(qbevent){evnt(26070,14411,"ide_methods.bas");if(r)goto S_51822;} -do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(85)); -if(!qbevent)break;evnt(26070,14411,"ide_methods.bas");}while(r); -} -} -S_51826:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDEOBJUPDATE_STRING_KK,(qbs_add(func_chr( 0 ),qbs_new_txt_len("w",1))))))||new_error){ -if(qbevent){evnt(26070,14414,"ide_methods.bas");if(r)goto S_51826;} -do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))= 1 ; -if(!qbevent)break;evnt(26070,14415,"ide_methods.bas");}while(r); -} -S_51829:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDEOBJUPDATE_STRING_KK,(qbs_add(func_chr( 0 ),qbs_new_txt_len("u",1))))))||new_error){ -if(qbevent){evnt(26070,14418,"ide_methods.bas");if(r)goto S_51829;} -do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(85)); -if(!qbevent)break;evnt(26070,14419,"ide_methods.bas");}while(r); -} -S_51832:; -if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDEOBJUPDATE_STRING_KK->len== 1 )))||new_error){ -if(qbevent){evnt(26070,14422,"ide_methods.bas");if(r)goto S_51832;} -do{ -*_SUB_IDEOBJUPDATE_LONG_RESETKEYBTIMER= 0 ; -if(!qbevent)break;evnt(26070,14423,"ide_methods.bas");}while(r); -S_51834:; -if ((-(FUNC_TIMEELAPSEDSINCE(_SUB_IDEOBJUPDATE_SINGLE_LASTKEYBINPUT)> 1 ))||new_error){ -if(qbevent){evnt(26070,14424,"ide_methods.bas");if(r)goto S_51834;} -do{ -qbs_set(__STRING_FILEDLGSEARCHTERM,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14424,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEOBJUPDATE_LONG_RESETKEYBTIMER= -1 ; -if(!qbevent)break;evnt(26070,14424,"ide_methods.bas");}while(r); -} -do{ -*_SUB_IDEOBJUPDATE_SINGLE_LASTKEYBINPUT=func_timer(NULL,0); -if(!qbevent)break;evnt(26070,14425,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEOBJUPDATE_LONG_K=qbs_asc(qbs_ucase(_SUB_IDEOBJUPDATE_STRING_KK)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14426,"ide_methods.bas");}while(r); -S_51840:; -if (((-(*_SUB_IDEOBJUPDATE_LONG_K< 32 ))|(-(*_SUB_IDEOBJUPDATE_LONG_K> 126 )))||new_error){ -if(qbevent){evnt(26070,14427,"ide_methods.bas");if(r)goto S_51840;} -do{ -goto LABEL_SELECTED; -if(!qbevent)break;evnt(26070,14428,"ide_methods.bas");}while(r); -} -do{ -qbs_set(__STRING_FILEDLGSEARCHTERM,qbs_add(__STRING_FILEDLGSEARCHTERM,qbs_ucase(_SUB_IDEOBJUPDATE_STRING_KK))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14431,"ide_methods.bas");}while(r); -S_51844:; -if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_FILEDLGSEARCHTERM->len== 2 ))&(qbs_equal(qbs_left(__STRING_FILEDLGSEARCHTERM, 1 ),qbs_right(__STRING_FILEDLGSEARCHTERM, 1 )))))||new_error){ -if(qbevent){evnt(26070,14433,"ide_methods.bas");if(r)goto S_51844;} -do{ -*_SUB_IDEOBJUPDATE_LONG_RESETKEYBTIMER= -1 ; -if(!qbevent)break;evnt(26070,14436,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_FILEDLGSEARCHTERM,qbs_ucase(_SUB_IDEOBJUPDATE_STRING_KK)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14437,"ide_methods.bas");}while(r); -} -do{ -*_SUB_IDEOBJUPDATE_LONG_SEARCHPASS= 1 ; -if(!qbevent)break;evnt(26070,14440,"ide_methods.bas");}while(r); -S_51849:; -if ((~(*_SUB_IDEOBJUPDATE_LONG_RESETKEYBTIMER))||new_error){ -if(qbevent){evnt(26070,14441,"ide_methods.bas");if(r)goto S_51849;} -do{ -*_SUB_IDEOBJUPDATE_LONG_STARTSEARCH=func_abs((int32)(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64)))); -if(!qbevent)break;evnt(26070,14441,"ide_methods.bas");}while(r); -}else{ -do{ -*_SUB_IDEOBJUPDATE_LONG_STARTSEARCH=func_abs((int32)(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))))+ 1 ; -if(!qbevent)break;evnt(26070,14441,"ide_methods.bas");}while(r); -} -S_51854:; -if (((-(*_SUB_IDEOBJUPDATE_LONG_STARTSEARCH< 1 ))|(-(*_SUB_IDEOBJUPDATE_LONG_STARTSEARCH>*_SUB_IDEOBJUPDATE_LONG_N)))||new_error){ -if(qbevent){evnt(26070,14442,"ide_methods.bas");if(r)goto S_51854;} -do{ -*_SUB_IDEOBJUPDATE_LONG_STARTSEARCH= 1 ; -if(!qbevent)break;evnt(26070,14442,"ide_methods.bas");}while(r); -} -LABEL_RETRYFIND:; -if(qbevent){evnt(26070,14443,"ide_methods.bas");r=0;} -S_51857:; -if ((-(*_SUB_IDEOBJUPDATE_LONG_SEARCHPASS> 2 ))||new_error){ -if(qbevent){evnt(26070,14444,"ide_methods.bas");if(r)goto S_51857;} -do{ -goto LABEL_SELECTED; -if(!qbevent)break;evnt(26070,14444,"ide_methods.bas");}while(r); -} -S_51860:; -fornext_value5730=*_SUB_IDEOBJUPDATE_LONG_STARTSEARCH; -fornext_finalvalue5730=*_SUB_IDEOBJUPDATE_LONG_N; -fornext_step5730= 1 ; -if (fornext_step5730<0) fornext_step_negative5730=1; else fornext_step_negative5730=0; -if (new_error) goto fornext_error5730; -goto fornext_entrylabel5730; -while(1){ -fornext_value5730=fornext_step5730+(*_SUB_IDEOBJUPDATE_LONG_FINDMATCH); -fornext_entrylabel5730: -*_SUB_IDEOBJUPDATE_LONG_FINDMATCH=fornext_value5730; -if (fornext_step_negative5730){ -if (fornext_value5730fornext_finalvalue5730) break; -} -fornext_error5730:; -if(qbevent){evnt(26070,14445,"ide_methods.bas");if(r)goto S_51860;} -S_51861:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(((qbs*)(((uint64*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[0]))[array_check((*_SUB_IDEOBJUPDATE_LONG_FINDMATCH)-_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[4],_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[5])])),__STRING_FILEDLGSEARCHTERM->len)),qbs_ucase(__STRING_FILEDLGSEARCHTERM))))||new_error){ -if(qbevent){evnt(26070,14446,"ide_methods.bas");if(r)goto S_51861;} -do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=*_SUB_IDEOBJUPDATE_LONG_FINDMATCH; -if(!qbevent)break;evnt(26070,14447,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(72)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),((qbs*)(((uint64*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[0]))[array_check((*_SUB_IDEOBJUPDATE_LONG_FINDMATCH)-_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[4],_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14448,"ide_methods.bas");}while(r); -do{ -goto LABEL_SELECTED; -if(!qbevent)break;evnt(26070,14449,"ide_methods.bas");}while(r); -} -fornext_continue_5729:; -} -fornext_exit_5729:; -do{ -*_SUB_IDEOBJUPDATE_LONG_STARTSEARCH= 1 ; -if(!qbevent)break;evnt(26070,14453,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEOBJUPDATE_LONG_SEARCHPASS=*_SUB_IDEOBJUPDATE_LONG_SEARCHPASS+ 1 ; -if(!qbevent)break;evnt(26070,14454,"ide_methods.bas");}while(r); -do{ -goto LABEL_RETRYFIND; -if(!qbevent)break;evnt(26070,14455,"ide_methods.bas");}while(r); -LABEL_SELECTED:; -if(qbevent){evnt(26070,14456,"ide_methods.bas");r=0;} -} -} -S_51872:; -if ((qbs_cleanup(qbs_tmp_base,(-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))> 0 ))&(-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))<=func_ubound(_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS,1,1)))))||new_error){ -if(qbevent){evnt(26070,14459,"ide_methods.bas");if(r)goto S_51872;} -do{ -tmp_long=array_check((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(72)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),((qbs*)(((uint64*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[0]))[array_check((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64)))-_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[4],_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14459,"ide_methods.bas");}while(r); -} -S_51875:; -if ((qbs_cleanup(qbs_tmp_base,_SUB_IDEOBJUPDATE_STRING_ALTLETTER->len))||new_error){ -if(qbevent){evnt(26070,14462,"ide_methods.bas");if(r)goto S_51875;} -S_51876:; -if ((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(40)))||new_error){ -if(qbevent){evnt(26070,14463,"ide_methods.bas");if(r)goto S_51876;} -do{ -*_SUB_IDEOBJUPDATE_LONG_X=func_instr(NULL,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(40)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])),qbs_new_txt_len("#",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14464,"ide_methods.bas");}while(r); -S_51878:; -if ((*_SUB_IDEOBJUPDATE_LONG_X)||new_error){ -if(qbevent){evnt(26070,14465,"ide_methods.bas");if(r)goto S_51878;} -S_51879:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(40)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])),*_SUB_IDEOBJUPDATE_LONG_X+ 1 , 1 ,0|1)),_SUB_IDEOBJUPDATE_STRING_ALTLETTER)))||new_error){ -if(qbevent){evnt(26070,14466,"ide_methods.bas");if(r)goto S_51879;} -do{ -*_SUB_IDEOBJUPDATE_LONG_FOCUS=*_SUB_IDEOBJUPDATE_LONG_F; -if(!qbevent)break;evnt(26070,14466,"ide_methods.bas");}while(r); -} -} -} -} -do{ -*_SUB_IDEOBJUPDATE_LONG_F=*_SUB_IDEOBJUPDATE_LONG_F+ 1 ; -if(!qbevent)break;evnt(26070,14470,"ide_methods.bas");}while(r); -} -S_51887:; -if ((-(*_SUB_IDEOBJUPDATE_LONG_T== 3 ))||new_error){ -if(qbevent){evnt(26070,14473,"ide_methods.bas");if(r)goto S_51887;} -do{ -qbs_set(_SUB_IDEOBJUPDATE_STRING_A,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14476,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEOBJUPDATE_LONG_N= 1 ; -if(!qbevent)break;evnt(26070,14477,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEOBJUPDATE_LONG_X= 0 ; -if(!qbevent)break;evnt(26070,14478,"ide_methods.bas");}while(r); -S_51891:; -fornext_value5734= 1 ; -fornext_finalvalue5734=_SUB_IDEOBJUPDATE_STRING_A->len; -fornext_step5734= 1 ; -if (fornext_step5734<0) fornext_step_negative5734=1; else fornext_step_negative5734=0; -if (new_error) goto fornext_error5734; -goto fornext_entrylabel5734; -while(1){ -fornext_value5734=fornext_step5734+(*_SUB_IDEOBJUPDATE_LONG_I2); -fornext_entrylabel5734: -*_SUB_IDEOBJUPDATE_LONG_I2=fornext_value5734; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative5734){ -if (fornext_value5734fornext_finalvalue5734) break; -} -fornext_error5734:; -if(qbevent){evnt(26070,14479,"ide_methods.bas");if(r)goto S_51891;} -do{ -qbs_set(_SUB_IDEOBJUPDATE_STRING_A2,func_mid(_SUB_IDEOBJUPDATE_STRING_A,*_SUB_IDEOBJUPDATE_LONG_I2, 1 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14480,"ide_methods.bas");}while(r); -S_51893:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDEOBJUPDATE_STRING_A2,func_chr( 0 ))))||new_error){ -if(qbevent){evnt(26070,14481,"ide_methods.bas");if(r)goto S_51893;} -do{ -*_SUB_IDEOBJUPDATE_LONG_N=*_SUB_IDEOBJUPDATE_LONG_N+ 1 ; -if(!qbevent)break;evnt(26070,14481,"ide_methods.bas");}while(r); -} -S_51896:; -if ((-(*_SUB_IDEOBJUPDATE_LONG_X== 1 ))||new_error){ -if(qbevent){evnt(26070,14482,"ide_methods.bas");if(r)goto S_51896;} -S_51897:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_IDEOBJUPDATE_STRING_A2),_SUB_IDEOBJUPDATE_STRING_ALTLETTER)))||new_error){ -if(qbevent){evnt(26070,14483,"ide_methods.bas");if(r)goto S_51897;} -do{ -*_SUB_IDEOBJUPDATE_LONG_FOCUS=*_SUB_IDEOBJUPDATE_LONG_F+*_SUB_IDEOBJUPDATE_LONG_N- 1 ; -if(!qbevent)break;evnt(26070,14484,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEOBJUPDATE_LONG_INFO=*_SUB_IDEOBJUPDATE_LONG_N; -if(!qbevent)break;evnt(26070,14485,"ide_methods.bas");}while(r); -} -} -S_51902:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDEOBJUPDATE_STRING_A2,qbs_new_txt_len("#",1))))||new_error){ -if(qbevent){evnt(26070,14488,"ide_methods.bas");if(r)goto S_51902;} -do{ -*_SUB_IDEOBJUPDATE_LONG_X= 1 ; -if(!qbevent)break;evnt(26070,14488,"ide_methods.bas");}while(r); -}else{ -do{ -*_SUB_IDEOBJUPDATE_LONG_X= 0 ; -if(!qbevent)break;evnt(26070,14488,"ide_methods.bas");}while(r); -} -fornext_continue_5733:; -} -fornext_exit_5733:; -S_51908:; -if ((*_SUB_IDEOBJUPDATE_LONG_MOUSEDOWN)||new_error){ -if(qbevent){evnt(26070,14492,"ide_methods.bas");if(r)goto S_51908;} -S_51909:; -if ((-(*_SUB_IDEOBJUPDATE_LONG_MY==(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(4))+*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(24)))))||new_error){ -if(qbevent){evnt(26070,14493,"ide_methods.bas");if(r)goto S_51909;} -do{ -qbs_set(_SUB_IDEOBJUPDATE_STRING_A,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14494,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEOBJUPDATE_LONG_N= 1 ; -if(!qbevent)break;evnt(26070,14495,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEOBJUPDATE_LONG_C= 0 ; -if(!qbevent)break;evnt(26070,14496,"ide_methods.bas");}while(r); -S_51913:; -fornext_value5737= 1 ; -fornext_finalvalue5737=_SUB_IDEOBJUPDATE_STRING_A->len; -fornext_step5737= 1 ; -if (fornext_step5737<0) fornext_step_negative5737=1; else fornext_step_negative5737=0; -if (new_error) goto fornext_error5737; -goto fornext_entrylabel5737; -while(1){ -fornext_value5737=fornext_step5737+(*_SUB_IDEOBJUPDATE_LONG_I2); -fornext_entrylabel5737: -*_SUB_IDEOBJUPDATE_LONG_I2=fornext_value5737; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative5737){ -if (fornext_value5737fornext_finalvalue5737) break; -} -fornext_error5737:; -if(qbevent){evnt(26070,14497,"ide_methods.bas");if(r)goto S_51913;} -do{ -qbs_set(_SUB_IDEOBJUPDATE_STRING_A2,func_mid(_SUB_IDEOBJUPDATE_STRING_A,*_SUB_IDEOBJUPDATE_LONG_I2, 1 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14498,"ide_methods.bas");}while(r); -S_51915:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDEOBJUPDATE_STRING_A2,func_chr( 0 ))))||new_error){ -if(qbevent){evnt(26070,14499,"ide_methods.bas");if(r)goto S_51915;} -do{ -*_SUB_IDEOBJUPDATE_LONG_N=*_SUB_IDEOBJUPDATE_LONG_N+ 1 ; -if(!qbevent)break;evnt(26070,14500,"ide_methods.bas");}while(r); -}else{ -S_51918:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_IDEOBJUPDATE_STRING_A,qbs_new_txt_len("#",1))))||new_error){ -if(qbevent){evnt(26070,14502,"ide_methods.bas");if(r)goto S_51918;} -do{ -*_SUB_IDEOBJUPDATE_LONG_C=*_SUB_IDEOBJUPDATE_LONG_C+ 1 ; -if(!qbevent)break;evnt(26070,14502,"ide_methods.bas");}while(r); -} -} -fornext_continue_5736:; -} -fornext_exit_5736:; -do{ -*_SUB_IDEOBJUPDATE_LONG_W=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(28)); -if(!qbevent)break;evnt(26070,14505,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEOBJUPDATE_LONG_C=*_SUB_IDEOBJUPDATE_LONG_C+(*_SUB_IDEOBJUPDATE_LONG_N* 4 ); -if(!qbevent)break;evnt(26070,14506,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEOBJUPDATE_LONG_WHITESPACE=*_SUB_IDEOBJUPDATE_LONG_W-*_SUB_IDEOBJUPDATE_LONG_C; -if(!qbevent)break;evnt(26070,14507,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEOBJUPDATE_LONG_SPACING=*_SUB_IDEOBJUPDATE_LONG_WHITESPACE/ (*_SUB_IDEOBJUPDATE_LONG_N+ 1 ); -if(!qbevent)break;evnt(26070,14508,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEOBJUPDATE_LONG_N2= 1 ; -if(!qbevent)break;evnt(26070,14513,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_IDEOBJUPDATE_STRING_A3,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14514,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEOBJUPDATE_LONG_X=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(0))+*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(20)); -if(!qbevent)break;evnt(26070,14516,"ide_methods.bas");}while(r); -S_51930:; -fornext_value5740= 1 ; -fornext_finalvalue5740=_SUB_IDEOBJUPDATE_STRING_A->len; -fornext_step5740= 1 ; -if (fornext_step5740<0) fornext_step_negative5740=1; else fornext_step_negative5740=0; -if (new_error) goto fornext_error5740; -goto fornext_entrylabel5740; -while(1){ -fornext_value5740=fornext_step5740+(*_SUB_IDEOBJUPDATE_LONG_I2); -fornext_entrylabel5740: -*_SUB_IDEOBJUPDATE_LONG_I2=fornext_value5740; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative5740){ -if (fornext_value5740fornext_finalvalue5740) break; -} -fornext_error5740:; -if(qbevent){evnt(26070,14518,"ide_methods.bas");if(r)goto S_51930;} -do{ -qbs_set(_SUB_IDEOBJUPDATE_STRING_A2,func_mid(_SUB_IDEOBJUPDATE_STRING_A,*_SUB_IDEOBJUPDATE_LONG_I2, 1 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14519,"ide_methods.bas");}while(r); -S_51932:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_IDEOBJUPDATE_STRING_A2,func_chr( 0 ))))||new_error){ -if(qbevent){evnt(26070,14520,"ide_methods.bas");if(r)goto S_51932;} -do{ -qbs_set(_SUB_IDEOBJUPDATE_STRING_A3,qbs_add(_SUB_IDEOBJUPDATE_STRING_A3,_SUB_IDEOBJUPDATE_STRING_A2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14520,"ide_methods.bas");}while(r); -} -S_51935:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_IDEOBJUPDATE_STRING_A2,func_chr( 0 )))|(-(*_SUB_IDEOBJUPDATE_LONG_I2==_SUB_IDEOBJUPDATE_STRING_A->len))))||new_error){ -if(qbevent){evnt(26070,14521,"ide_methods.bas");if(r)goto S_51935;} -do{ -*_SUB_IDEOBJUPDATE_LONG_X=*_SUB_IDEOBJUPDATE_LONG_X+*_SUB_IDEOBJUPDATE_LONG_SPACING; -if(!qbevent)break;evnt(26070,14523,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEOBJUPDATE_LONG_X2=FUNC_IDEHLEN(_SUB_IDEOBJUPDATE_STRING_A3)+ 4 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14533,"ide_methods.bas");}while(r); -S_51938:; -if (((-(*_SUB_IDEOBJUPDATE_LONG_MX>=*_SUB_IDEOBJUPDATE_LONG_X))&(-(*_SUB_IDEOBJUPDATE_LONG_MX<(*_SUB_IDEOBJUPDATE_LONG_X+*_SUB_IDEOBJUPDATE_LONG_X2))))||new_error){ -if(qbevent){evnt(26070,14534,"ide_methods.bas");if(r)goto S_51938;} -do{ -*_SUB_IDEOBJUPDATE_LONG_INFO=*_SUB_IDEOBJUPDATE_LONG_N2; -if(!qbevent)break;evnt(26070,14534,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEOBJUPDATE_LONG_FOCUS=*_SUB_IDEOBJUPDATE_LONG_F+*_SUB_IDEOBJUPDATE_LONG_N2- 1 ; -if(!qbevent)break;evnt(26070,14534,"ide_methods.bas");}while(r); -} -do{ -*_SUB_IDEOBJUPDATE_LONG_X=*_SUB_IDEOBJUPDATE_LONG_X+*_SUB_IDEOBJUPDATE_LONG_X2; -if(!qbevent)break;evnt(26070,14537,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_IDEOBJUPDATE_STRING_A3,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14538,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEOBJUPDATE_LONG_N2=*_SUB_IDEOBJUPDATE_LONG_N2+ 1 ; -if(!qbevent)break;evnt(26070,14539,"ide_methods.bas");}while(r); -} -fornext_continue_5739:; -} -fornext_exit_5739:; -} -} -S_51949:; -if (((-(*_SUB_IDEOBJUPDATE_LONG_FOCUSOFFSET>= 0 ))&(-(*_SUB_IDEOBJUPDATE_LONG_FOCUSOFFSET<*_SUB_IDEOBJUPDATE_LONG_N)))||new_error){ -if(qbevent){evnt(26070,14546,"ide_methods.bas");if(r)goto S_51949;} -do{ -*_SUB_IDEOBJUPDATE_LONG_F2=*_SUB_IDEOBJUPDATE_LONG_F+*_SUB_IDEOBJUPDATE_LONG_FOCUSOFFSET; -if(!qbevent)break;evnt(26070,14547,"ide_methods.bas");}while(r); -S_51951:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_IDEOBJUPDATE_STRING_KK,func_chr( 13 )))|(qbs_equal(_SUB_IDEOBJUPDATE_STRING_KK,qbs_new_txt_len(" ",1)))))||new_error){ -if(qbevent){evnt(26070,14548,"ide_methods.bas");if(r)goto S_51951;} -do{ -*_SUB_IDEOBJUPDATE_LONG_INFO=*_SUB_IDEOBJUPDATE_LONG_FOCUSOFFSET+ 1 ; -if(!qbevent)break;evnt(26070,14549,"ide_methods.bas");}while(r); -} -} -do{ -*_SUB_IDEOBJUPDATE_LONG_F=*_SUB_IDEOBJUPDATE_LONG_F+*_SUB_IDEOBJUPDATE_LONG_N; -if(!qbevent)break;evnt(26070,14553,"ide_methods.bas");}while(r); -} -S_51957:; -if ((-(*_SUB_IDEOBJUPDATE_LONG_T== 4 ))||new_error){ -if(qbevent){evnt(26070,14556,"ide_methods.bas");if(r)goto S_51957;} -S_51958:; -if ((*_SUB_IDEOBJUPDATE_LONG_MOUSEDOWN)||new_error){ -if(qbevent){evnt(26070,14558,"ide_methods.bas");if(r)goto S_51958;} -do{ -*_SUB_IDEOBJUPDATE_LONG_Y=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(4))+*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(24)); -if(!qbevent)break;evnt(26070,14559,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEOBJUPDATE_LONG_X1=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(0))+*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(20)); -if(!qbevent)break;evnt(26070,14560,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEOBJUPDATE_LONG_X2=*_SUB_IDEOBJUPDATE_LONG_X1+ 2 ; -if(!qbevent)break;evnt(26070,14560,"ide_methods.bas");}while(r); -S_51962:; -if ((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(40)))||new_error){ -if(qbevent){evnt(26070,14561,"ide_methods.bas");if(r)goto S_51962;} -do{ -*_SUB_IDEOBJUPDATE_LONG_X2=*_SUB_IDEOBJUPDATE_LONG_X2+ 1 +FUNC_IDEHLEN(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(40)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14562,"ide_methods.bas");}while(r); -} -S_51965:; -if ((-(*_SUB_IDEOBJUPDATE_LONG_MY==*_SUB_IDEOBJUPDATE_LONG_Y))||new_error){ -if(qbevent){evnt(26070,14564,"ide_methods.bas");if(r)goto S_51965;} -S_51966:; -if (((-(*_SUB_IDEOBJUPDATE_LONG_MX>=*_SUB_IDEOBJUPDATE_LONG_X1))&(-(*_SUB_IDEOBJUPDATE_LONG_MX<=*_SUB_IDEOBJUPDATE_LONG_X2)))||new_error){ -if(qbevent){evnt(26070,14565,"ide_methods.bas");if(r)goto S_51966;} -do{ -*_SUB_IDEOBJUPDATE_LONG_FOCUS=*_SUB_IDEOBJUPDATE_LONG_F; -if(!qbevent)break;evnt(26070,14566,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))+ 1 ; -if(!qbevent)break;evnt(26070,14567,"ide_methods.bas");}while(r); -S_51969:; -if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))> 1 ))||new_error){ -if(qbevent){evnt(26070,14567,"ide_methods.bas");if(r)goto S_51969;} -do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))= 0 ; -if(!qbevent)break;evnt(26070,14567,"ide_methods.bas");}while(r); -} -} -} -} -S_51975:; -if ((-(*_SUB_IDEOBJUPDATE_LONG_FOCUSOFFSET== 0 ))||new_error){ -if(qbevent){evnt(26070,14571,"ide_methods.bas");if(r)goto S_51975;} -S_51976:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDEOBJUPDATE_STRING_KK,(qbs_add(func_chr( 0 ),qbs_new_txt_len("H",1))))))||new_error){ -if(qbevent){evnt(26070,14602,"ide_methods.bas");if(r)goto S_51976;} -do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))= 1 ; -if(!qbevent)break;evnt(26070,14602,"ide_methods.bas");}while(r); -} -S_51979:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDEOBJUPDATE_STRING_KK,(qbs_add(func_chr( 0 ),qbs_new_txt_len("P",1))))))||new_error){ -if(qbevent){evnt(26070,14603,"ide_methods.bas");if(r)goto S_51979;} -do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))= 0 ; -if(!qbevent)break;evnt(26070,14603,"ide_methods.bas");}while(r); -} -S_51982:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDEOBJUPDATE_STRING_KK,qbs_new_txt_len(" ",1))))||new_error){ -if(qbevent){evnt(26070,14604,"ide_methods.bas");if(r)goto S_51982;} -do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))+ 1 ; -if(!qbevent)break;evnt(26070,14605,"ide_methods.bas");}while(r); -S_51984:; -if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))> 1 ))||new_error){ -if(qbevent){evnt(26070,14605,"ide_methods.bas");if(r)goto S_51984;} -do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))= 0 ; -if(!qbevent)break;evnt(26070,14605,"ide_methods.bas");}while(r); -} -} -} -S_51989:; -if ((qbs_cleanup(qbs_tmp_base,_SUB_IDEOBJUPDATE_STRING_ALTLETTER->len))||new_error){ -if(qbevent){evnt(26070,14610,"ide_methods.bas");if(r)goto S_51989;} -S_51990:; -if ((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(40)))||new_error){ -if(qbevent){evnt(26070,14611,"ide_methods.bas");if(r)goto S_51990;} -do{ -*_SUB_IDEOBJUPDATE_LONG_X=func_instr(NULL,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(40)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])),qbs_new_txt_len("#",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14612,"ide_methods.bas");}while(r); -S_51992:; -if ((*_SUB_IDEOBJUPDATE_LONG_X)||new_error){ -if(qbevent){evnt(26070,14613,"ide_methods.bas");if(r)goto S_51992;} -S_51993:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(40)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])),*_SUB_IDEOBJUPDATE_LONG_X+ 1 , 1 ,0|1)),_SUB_IDEOBJUPDATE_STRING_ALTLETTER)))||new_error){ -if(qbevent){evnt(26070,14614,"ide_methods.bas");if(r)goto S_51993;} -do{ -*_SUB_IDEOBJUPDATE_LONG_FOCUS=*_SUB_IDEOBJUPDATE_LONG_F; -if(!qbevent)break;evnt(26070,14614,"ide_methods.bas");}while(r); -} -} -} -} -do{ -*_SUB_IDEOBJUPDATE_LONG_F=*_SUB_IDEOBJUPDATE_LONG_F+ 1 ; -if(!qbevent)break;evnt(26070,14618,"ide_methods.bas");}while(r); -} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,14621,"ide_methods.bas");}while(r); -LABEL_SELECTCHECK:; -if(qbevent){evnt(26070,14622,"ide_methods.bas");r=0;} -S_52002:; -if ((*__LONG_KSHIFT&(-(*(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(76))== 0 )))||new_error){ -if(qbevent){evnt(26070,14623,"ide_methods.bas");if(r)goto S_52002;} -do{ -*(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(76))= -1 ; -if(!qbevent)break;evnt(26070,14623,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81)); -if(!qbevent)break;evnt(26070,14623,"ide_methods.bas");}while(r); -} -S_52006:; -if ((-(*__LONG_KSHIFT== 0 ))||new_error){ -if(qbevent){evnt(26070,14624,"ide_methods.bas");if(r)goto S_52006;} -do{ -*(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(76))= 0 ; -if(!qbevent)break;evnt(26070,14624,"ide_methods.bas");}while(r); -} -do{ -#include "ret219.txt" -if(!qbevent)break;evnt(26070,14625,"ide_methods.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free219.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -int32 FUNC_IDEVBAR(int32*_FUNC_IDEVBAR_LONG_X,int32*_FUNC_IDEVBAR_LONG_Y,int32*_FUNC_IDEVBAR_LONG_H,int32*_FUNC_IDEVBAR_LONG_I2,int32*_FUNC_IDEVBAR_LONG_N2){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data220.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -*_FUNC_IDEVBAR_LONG_I=*_FUNC_IDEVBAR_LONG_I2; -if(!qbevent)break;evnt(26070,14629,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEVBAR_LONG_N=*_FUNC_IDEVBAR_LONG_N2; -if(!qbevent)break;evnt(26070,14629,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,14634,"ide_methods.bas");}while(r); -do{ -sub__printstring(*_FUNC_IDEVBAR_LONG_X,*_FUNC_IDEVBAR_LONG_Y,func_chr( 24 ),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14635,"ide_methods.bas");}while(r); -do{ -sub__printstring(*_FUNC_IDEVBAR_LONG_X,*_FUNC_IDEVBAR_LONG_Y+*_FUNC_IDEVBAR_LONG_H- 1 ,func_chr( 25 ),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14636,"ide_methods.bas");}while(r); -S_52015:; -fornext_value5745=*_FUNC_IDEVBAR_LONG_Y+ 1 ; -fornext_finalvalue5745=*_FUNC_IDEVBAR_LONG_Y+*_FUNC_IDEVBAR_LONG_H- 2 ; -fornext_step5745= 1 ; -if (fornext_step5745<0) fornext_step_negative5745=1; else fornext_step_negative5745=0; -if (new_error) goto fornext_error5745; -goto fornext_entrylabel5745; -while(1){ -fornext_value5745=fornext_step5745+(*_FUNC_IDEVBAR_LONG_Y2); -fornext_entrylabel5745: -*_FUNC_IDEVBAR_LONG_Y2=fornext_value5745; -if (fornext_step_negative5745){ -if (fornext_value5745fornext_finalvalue5745) break; -} -fornext_error5745:; -if(qbevent){evnt(26070,14637,"ide_methods.bas");if(r)goto S_52015;} -do{ -sub__printstring(*_FUNC_IDEVBAR_LONG_X,*_FUNC_IDEVBAR_LONG_Y2,func_chr( 176 ),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14638,"ide_methods.bas");}while(r); -fornext_continue_5744:; -} -fornext_exit_5744:; -S_52018:; -if ((-(*_FUNC_IDEVBAR_LONG_N< 1 ))||new_error){ -if(qbevent){evnt(26070,14643,"ide_methods.bas");if(r)goto S_52018;} -do{ -*_FUNC_IDEVBAR_LONG_N= 1 ; -if(!qbevent)break;evnt(26070,14643,"ide_methods.bas");}while(r); -} -S_52021:; -if ((-(*_FUNC_IDEVBAR_LONG_I< 1 ))||new_error){ -if(qbevent){evnt(26070,14644,"ide_methods.bas");if(r)goto S_52021;} -do{ -*_FUNC_IDEVBAR_LONG_I= 1 ; -if(!qbevent)break;evnt(26070,14644,"ide_methods.bas");}while(r); -} -S_52024:; -if ((-(*_FUNC_IDEVBAR_LONG_I>*_FUNC_IDEVBAR_LONG_N))||new_error){ -if(qbevent){evnt(26070,14645,"ide_methods.bas");if(r)goto S_52024;} -do{ -*_FUNC_IDEVBAR_LONG_I=*_FUNC_IDEVBAR_LONG_N; -if(!qbevent)break;evnt(26070,14645,"ide_methods.bas");}while(r); -} -S_52027:; -if ((-(*_FUNC_IDEVBAR_LONG_H== 2 ))||new_error){ -if(qbevent){evnt(26070,14647,"ide_methods.bas");if(r)goto S_52027;} -do{ -*_FUNC_IDEVBAR_LONG_IDEVBAR=*_FUNC_IDEVBAR_LONG_Y; -if(!qbevent)break;evnt(26070,14648,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,14649,"ide_methods.bas");}while(r); -} -S_52031:; -if ((-(*_FUNC_IDEVBAR_LONG_H== 3 ))||new_error){ -if(qbevent){evnt(26070,14652,"ide_methods.bas");if(r)goto S_52031;} -do{ -*_FUNC_IDEVBAR_LONG_IDEVBAR=*_FUNC_IDEVBAR_LONG_Y+ 1 ; -if(!qbevent)break;evnt(26070,14653,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,14655,"ide_methods.bas");}while(r); -} -S_52035:; -if ((-(*_FUNC_IDEVBAR_LONG_H== 4 ))||new_error){ -if(qbevent){evnt(26070,14658,"ide_methods.bas");if(r)goto S_52035;} -S_52036:; -if ((-(*_FUNC_IDEVBAR_LONG_N== 1 ))||new_error){ -if(qbevent){evnt(26070,14659,"ide_methods.bas");if(r)goto S_52036;} -do{ -*_FUNC_IDEVBAR_LONG_IDEVBAR=*_FUNC_IDEVBAR_LONG_Y+ 1 ; -if(!qbevent)break;evnt(26070,14660,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,14662,"ide_methods.bas");}while(r); -}else{ -do{ -*_FUNC_IDEVBAR_SINGLE_P=(*_FUNC_IDEVBAR_LONG_I- 1 )/ ((long double)((*_FUNC_IDEVBAR_LONG_N- 1 ))); -if(!qbevent)break;evnt(26070,14665,"ide_methods.bas");}while(r); -S_52041:; -if ((-(((float)(*_FUNC_IDEVBAR_SINGLE_P))<((float)( 0.5E+0 ))))||new_error){ -if(qbevent){evnt(26070,14666,"ide_methods.bas");if(r)goto S_52041;} -do{ -*_FUNC_IDEVBAR_LONG_Y2=*_FUNC_IDEVBAR_LONG_Y+ 1 ; -if(!qbevent)break;evnt(26070,14666,"ide_methods.bas");}while(r); -}else{ -do{ -*_FUNC_IDEVBAR_LONG_Y2=*_FUNC_IDEVBAR_LONG_Y+ 2 ; -if(!qbevent)break;evnt(26070,14666,"ide_methods.bas");}while(r); -} -do{ -sub__printstring(*_FUNC_IDEVBAR_LONG_X,*_FUNC_IDEVBAR_LONG_Y2,func_chr( 219 ),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14667,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEVBAR_LONG_IDEVBAR=*_FUNC_IDEVBAR_LONG_Y2; -if(!qbevent)break;evnt(26070,14668,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,14669,"ide_methods.bas");}while(r); -} -} -S_52051:; -if ((-(*_FUNC_IDEVBAR_LONG_H> 4 ))||new_error){ -if(qbevent){evnt(26070,14673,"ide_methods.bas");if(r)goto S_52051;} -S_52052:; -if ((-(*_FUNC_IDEVBAR_LONG_N== 1 ))||new_error){ -if(qbevent){evnt(26070,14674,"ide_methods.bas");if(r)goto S_52052;} -do{ -*_FUNC_IDEVBAR_LONG_IDEVBAR=*_FUNC_IDEVBAR_LONG_Y+(*_FUNC_IDEVBAR_LONG_H/ 4 ); -if(!qbevent)break;evnt(26070,14675,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,14677,"ide_methods.bas");}while(r); -} -S_52056:; -if ((-(*_FUNC_IDEVBAR_LONG_I== 1 ))||new_error){ -if(qbevent){evnt(26070,14679,"ide_methods.bas");if(r)goto S_52056;} -do{ -*_FUNC_IDEVBAR_LONG_Y2=*_FUNC_IDEVBAR_LONG_Y+ 1 ; -if(!qbevent)break;evnt(26070,14680,"ide_methods.bas");}while(r); -do{ -sub__printstring(*_FUNC_IDEVBAR_LONG_X,*_FUNC_IDEVBAR_LONG_Y2,func_chr( 219 ),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14681,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEVBAR_LONG_IDEVBAR=*_FUNC_IDEVBAR_LONG_Y2; -if(!qbevent)break;evnt(26070,14682,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,14683,"ide_methods.bas");}while(r); -} -S_52062:; -if ((-(*_FUNC_IDEVBAR_LONG_I==*_FUNC_IDEVBAR_LONG_N))||new_error){ -if(qbevent){evnt(26070,14685,"ide_methods.bas");if(r)goto S_52062;} -do{ -*_FUNC_IDEVBAR_LONG_Y2=*_FUNC_IDEVBAR_LONG_Y+*_FUNC_IDEVBAR_LONG_H- 2 ; -if(!qbevent)break;evnt(26070,14686,"ide_methods.bas");}while(r); -do{ -sub__printstring(*_FUNC_IDEVBAR_LONG_X,*_FUNC_IDEVBAR_LONG_Y2,func_chr( 219 ),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14687,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEVBAR_LONG_IDEVBAR=*_FUNC_IDEVBAR_LONG_Y2; -if(!qbevent)break;evnt(26070,14688,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,14689,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEVBAR_SINGLE_P=(*_FUNC_IDEVBAR_LONG_I- 1 )/ ((long double)((*_FUNC_IDEVBAR_LONG_N- 1 ))); -if(!qbevent)break;evnt(26070,14692,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEVBAR_SINGLE_P=*_FUNC_IDEVBAR_SINGLE_P*(*_FUNC_IDEVBAR_LONG_H- 4 ); -if(!qbevent)break;evnt(26070,14693,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEVBAR_LONG_Y2=qbr(*_FUNC_IDEVBAR_LONG_Y+ 2 +floor(*_FUNC_IDEVBAR_SINGLE_P)); -if(!qbevent)break;evnt(26070,14694,"ide_methods.bas");}while(r); -do{ -sub__printstring(*_FUNC_IDEVBAR_LONG_X,*_FUNC_IDEVBAR_LONG_Y2,func_chr( 219 ),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14695,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEVBAR_LONG_IDEVBAR=*_FUNC_IDEVBAR_LONG_Y2; -if(!qbevent)break;evnt(26070,14696,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,14697,"ide_methods.bas");}while(r); -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free220.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -return *_FUNC_IDEVBAR_LONG_IDEVBAR; -} -void SUB_IDEWAIT(){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data221.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -sub__delay( 0.1E+0 ); -if(!qbevent)break;evnt(26070,14702,"ide_methods.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free221.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -qbs* FUNC_IDEZCHANGEPATH(qbs*_FUNC_IDEZCHANGEPATH_STRING_PATH,qbs*_FUNC_IDEZCHANGEPATH_STRING_NEWPATH){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data222.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -qbs_set(_FUNC_IDEZCHANGEPATH_STRING_IDEZCHANGEPATH,_FUNC_IDEZCHANGEPATH_STRING_PATH); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14707,"ide_methods.bas");}while(r); -S_52077:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ -if(qbevent){evnt(26070,14709,"ide_methods.bas");if(r)goto S_52077;} -S_52078:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEZCHANGEPATH_STRING_NEWPATH,qbs_new_txt_len("..",2))))||new_error){ -if(qbevent){evnt(26070,14711,"ide_methods.bas");if(r)goto S_52078;} -S_52079:; -fornext_value5749=_FUNC_IDEZCHANGEPATH_STRING_PATH->len; -fornext_finalvalue5749= 1 ; -fornext_step5749= -1 ; -if (fornext_step5749<0) fornext_step_negative5749=1; else fornext_step_negative5749=0; -if (new_error) goto fornext_error5749; -goto fornext_entrylabel5749; -while(1){ -fornext_value5749=fornext_step5749+(*_FUNC_IDEZCHANGEPATH_LONG_X); -fornext_entrylabel5749: -*_FUNC_IDEZCHANGEPATH_LONG_X=fornext_value5749; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative5749){ -if (fornext_value5749fornext_finalvalue5749) break; -} -fornext_error5749:; -if(qbevent){evnt(26070,14712,"ide_methods.bas");if(r)goto S_52079;} -do{ -qbs_set(_FUNC_IDEZCHANGEPATH_STRING_A,func_mid(_FUNC_IDEZCHANGEPATH_STRING_PATH,*_FUNC_IDEZCHANGEPATH_LONG_X, 1 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14713,"ide_methods.bas");}while(r); -S_52081:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEZCHANGEPATH_STRING_A,qbs_new_txt_len("\\",1))))||new_error){ -if(qbevent){evnt(26070,14714,"ide_methods.bas");if(r)goto S_52081;} -do{ -qbs_set(_FUNC_IDEZCHANGEPATH_STRING_IDEZCHANGEPATH,qbs_left(_FUNC_IDEZCHANGEPATH_STRING_PATH,*_FUNC_IDEZCHANGEPATH_LONG_X- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14715,"ide_methods.bas");}while(r); -do{ -goto fornext_exit_5748; -if(!qbevent)break;evnt(26070,14716,"ide_methods.bas");}while(r); -} -fornext_continue_5748:; -} -fornext_exit_5748:; -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,14719,"ide_methods.bas");}while(r); -} -S_52088:; -if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_IDEZCHANGEPATH_STRING_NEWPATH->len== 2 ))&(qbs_equal(qbs_right(_FUNC_IDEZCHANGEPATH_STRING_NEWPATH, 1 ),qbs_new_txt_len(":",1)))))||new_error){ -if(qbevent){evnt(26070,14722,"ide_methods.bas");if(r)goto S_52088;} -do{ -qbs_set(_FUNC_IDEZCHANGEPATH_STRING_IDEZCHANGEPATH,_FUNC_IDEZCHANGEPATH_STRING_NEWPATH); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14723,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,14724,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDEZCHANGEPATH_STRING_IDEZCHANGEPATH,qbs_add(qbs_add(_FUNC_IDEZCHANGEPATH_STRING_PATH,qbs_new_txt_len("\\",1)),_FUNC_IDEZCHANGEPATH_STRING_NEWPATH)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14726,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,14727,"ide_methods.bas");}while(r); -} -S_52095:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ -if(qbevent){evnt(26070,14730,"ide_methods.bas");if(r)goto S_52095;} -S_52096:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEZCHANGEPATH_STRING_NEWPATH,qbs_new_txt_len("..",2))))||new_error){ -if(qbevent){evnt(26070,14733,"ide_methods.bas");if(r)goto S_52096;} -S_52097:; -fornext_value5753=_FUNC_IDEZCHANGEPATH_STRING_PATH->len; -fornext_finalvalue5753= 1 ; -fornext_step5753= -1 ; -if (fornext_step5753<0) fornext_step_negative5753=1; else fornext_step_negative5753=0; -if (new_error) goto fornext_error5753; -goto fornext_entrylabel5753; -while(1){ -fornext_value5753=fornext_step5753+(*_FUNC_IDEZCHANGEPATH_LONG_X); -fornext_entrylabel5753: -*_FUNC_IDEZCHANGEPATH_LONG_X=fornext_value5753; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative5753){ -if (fornext_value5753fornext_finalvalue5753) break; -} -fornext_error5753:; -if(qbevent){evnt(26070,14734,"ide_methods.bas");if(r)goto S_52097;} -do{ -qbs_set(_FUNC_IDEZCHANGEPATH_STRING_A,func_mid(_FUNC_IDEZCHANGEPATH_STRING_PATH,*_FUNC_IDEZCHANGEPATH_LONG_X, 1 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14735,"ide_methods.bas");}while(r); -S_52099:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEZCHANGEPATH_STRING_A,qbs_new_txt_len("/",1))))||new_error){ -if(qbevent){evnt(26070,14736,"ide_methods.bas");if(r)goto S_52099;} -do{ -qbs_set(_FUNC_IDEZCHANGEPATH_STRING_IDEZCHANGEPATH,qbs_left(_FUNC_IDEZCHANGEPATH_STRING_PATH,*_FUNC_IDEZCHANGEPATH_LONG_X- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14737,"ide_methods.bas");}while(r); -S_52101:; -if ((-(*_FUNC_IDEZCHANGEPATH_LONG_X== 1 ))||new_error){ -if(qbevent){evnt(26070,14738,"ide_methods.bas");if(r)goto S_52101;} -do{ -qbs_set(_FUNC_IDEZCHANGEPATH_STRING_IDEZCHANGEPATH,qbs_new_txt_len("/",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14738,"ide_methods.bas");}while(r); -} -do{ -goto fornext_exit_5752; -if(!qbevent)break;evnt(26070,14739,"ide_methods.bas");}while(r); -} -fornext_continue_5752:; -} -fornext_exit_5752:; -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,14742,"ide_methods.bas");}while(r); -} -S_52109:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEZCHANGEPATH_STRING_PATH,qbs_new_txt_len("/",1))))||new_error){ -if(qbevent){evnt(26070,14744,"ide_methods.bas");if(r)goto S_52109;} -do{ -qbs_set(_FUNC_IDEZCHANGEPATH_STRING_IDEZCHANGEPATH,qbs_add(qbs_new_txt_len("/",1),_FUNC_IDEZCHANGEPATH_STRING_NEWPATH)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14744,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDEZCHANGEPATH_STRING_IDEZCHANGEPATH,qbs_add(qbs_add(_FUNC_IDEZCHANGEPATH_STRING_PATH,qbs_new_txt_len("/",1)),_FUNC_IDEZCHANGEPATH_STRING_NEWPATH)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14744,"ide_methods.bas");}while(r); -} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,14745,"ide_methods.bas");}while(r); -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free222.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_IDEZCHANGEPATH_STRING_IDEZCHANGEPATH);return _FUNC_IDEZCHANGEPATH_STRING_IDEZCHANGEPATH; -} -qbs* FUNC_IDEZFILELIST(qbs*_FUNC_IDEZFILELIST_STRING_PATH,int32*_FUNC_IDEZFILELIST_LONG_METHOD,qbs*_FUNC_IDEZFILELIST_STRING_MASK){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data223.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -if(!qbevent)break;evnt(26070,14751,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEZFILELIST_STRING1_SEP,func_chr( 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14752,"ide_methods.bas");}while(r); -S_52118:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ -if(qbevent){evnt(26070,14754,"ide_methods.bas");if(r)goto S_52118;} -do{ -sub_open(qbs_new_txt_len(".\\internal\\temp\\files.txt",25), 4 ,NULL,NULL, 150 ,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14755,"ide_methods.bas");}while(r); -do{ -sub_close( 150 ,1); -if(!qbevent)break;evnt(26070,14755,"ide_methods.bas");}while(r); -S_52121:; -if ((-(*_FUNC_IDEZFILELIST_LONG_METHOD== 0 ))||new_error){ -if(qbevent){evnt(26070,14756,"ide_methods.bas");if(r)goto S_52121;} -do{ -sub_shell2(qbs_add(qbs_add(qbs_new_txt_len("dir /b /ON /A-D ",16),FUNC_QUOTEDFILENAME(_FUNC_IDEZFILELIST_STRING_PATH)),qbs_new_txt_len("\\*.bas >.\\internal\\temp\\files.txt",33)),2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14756,"ide_methods.bas");}while(r); -} -S_52124:; -if ((-(*_FUNC_IDEZFILELIST_LONG_METHOD== 1 ))||new_error){ -if(qbevent){evnt(26070,14757,"ide_methods.bas");if(r)goto S_52124;} -do{ -sub_shell2(qbs_add(qbs_add(qbs_new_txt_len("dir /b /ON /A-D ",16),FUNC_QUOTEDFILENAME(_FUNC_IDEZFILELIST_STRING_PATH)),qbs_new_txt_len("\\*.* >.\\internal\\temp\\files.txt",31)),2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14757,"ide_methods.bas");}while(r); -} -S_52127:; -if ((-(*_FUNC_IDEZFILELIST_LONG_METHOD== 2 ))||new_error){ -if(qbevent){evnt(26070,14758,"ide_methods.bas");if(r)goto S_52127;} -do{ -sub_shell2(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("dir /b /ON /A-D ",16),FUNC_QUOTEDFILENAME(_FUNC_IDEZFILELIST_STRING_PATH)),qbs_new_txt_len("\\",1)),FUNC_QUOTEDFILENAME(_FUNC_IDEZFILELIST_STRING_MASK)),qbs_new_txt_len(" >.\\internal\\temp\\files.txt",27)),2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14758,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDEZFILELIST_STRING_FILELIST,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14759,"ide_methods.bas");}while(r); -do{ -sub_open(qbs_new_txt_len(".\\internal\\temp\\files.txt",25), 3 ,NULL,NULL, 150 ,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14760,"ide_methods.bas");}while(r); -S_52132:; -while((!(func_eof( 150 )))||new_error){ -if(qbevent){evnt(26070,14761,"ide_methods.bas");if(r)goto S_52132;} -do{ -tmp_fileno= 150 ; -if (new_error) goto skip5758; -sub_file_line_input_string(tmp_fileno,_FUNC_IDEZFILELIST_STRING_A); -if (new_error) goto skip5758; -skip5758: -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14762,"ide_methods.bas");}while(r); -S_52134:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDEZFILELIST_STRING_A->len))||new_error){ -if(qbevent){evnt(26070,14763,"ide_methods.bas");if(r)goto S_52134;} -S_52135:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEZFILELIST_STRING_PATH,qbs_new_txt_len("internal/help",13))))||new_error){ -if(qbevent){evnt(26070,14764,"ide_methods.bas");if(r)goto S_52135;} -do{ -qbs_set(_FUNC_IDEZFILELIST_STRING_A,qbs_add(qbs_left(_FUNC_IDEZFILELIST_STRING_A,(_FUNC_IDEZFILELIST_STRING_A->len- 5 )/ 2 ),qbs_new_txt_len(".txt",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14764,"ide_methods.bas");}while(r); -} -S_52138:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEZFILELIST_STRING_FILELIST,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,14765,"ide_methods.bas");if(r)goto S_52138;} -do{ -qbs_set(_FUNC_IDEZFILELIST_STRING_FILELIST,_FUNC_IDEZFILELIST_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14765,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDEZFILELIST_STRING_FILELIST,qbs_add(qbs_add(_FUNC_IDEZFILELIST_STRING_FILELIST,_FUNC_IDEZFILELIST_STRING1_SEP),_FUNC_IDEZFILELIST_STRING_A)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14765,"ide_methods.bas");}while(r); -} -} -dl_continue_5757:; -} -dl_exit_5757:; -do{ -sub_close( 150 ,1); -if(!qbevent)break;evnt(26070,14768,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEZFILELIST_STRING_IDEZFILELIST,_FUNC_IDEZFILELIST_STRING_FILELIST); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14769,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,14770,"ide_methods.bas");}while(r); -} -S_52149:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ -if(qbevent){evnt(26070,14773,"ide_methods.bas");if(r)goto S_52149;} -do{ -qbs_set(_FUNC_IDEZFILELIST_STRING_FILELIST,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14774,"ide_methods.bas");}while(r); -S_52151:; -if ((-(*_FUNC_IDEZFILELIST_LONG_METHOD== 0 ))||new_error){ -if(qbevent){evnt(26070,14775,"ide_methods.bas");if(r)goto S_52151;} -S_52152:; -fornext_value5762= 1 ; -fornext_finalvalue5762= 2 ; -fornext_step5762= 1 ; -if (fornext_step5762<0) fornext_step_negative5762=1; else fornext_step_negative5762=0; -if (new_error) goto fornext_error5762; -goto fornext_entrylabel5762; -while(1){ -fornext_value5762=fornext_step5762+(*_FUNC_IDEZFILELIST_LONG_I); -fornext_entrylabel5762: -*_FUNC_IDEZFILELIST_LONG_I=fornext_value5762; -if (fornext_step_negative5762){ -if (fornext_value5762fornext_finalvalue5762) break; -} -fornext_error5762:; -if(qbevent){evnt(26070,14776,"ide_methods.bas");if(r)goto S_52152;} -do{ -sub_open(qbs_new_txt_len("./internal/temp/files.txt",25), 4 ,NULL,NULL, 150 ,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14777,"ide_methods.bas");}while(r); -do{ -sub_close( 150 ,1); -if(!qbevent)break;evnt(26070,14777,"ide_methods.bas");}while(r); -S_52155:; -if ((-(*_FUNC_IDEZFILELIST_LONG_I== 1 ))||new_error){ -if(qbevent){evnt(26070,14778,"ide_methods.bas");if(r)goto S_52155;} -do{ -sub_shell2(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("find ",5),FUNC_QUOTEDFILENAME(_FUNC_IDEZFILELIST_STRING_PATH)),qbs_new_txt_len(" -maxdepth 1 -type f -name ",27)),func_chr( 34 )),qbs_new_txt_len("*.bas",5)),func_chr( 34 )),qbs_new_txt_len(" | sort >./internal/temp/files.txt",34)),2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14778,"ide_methods.bas");}while(r); -} -S_52158:; -if ((-(*_FUNC_IDEZFILELIST_LONG_I== 2 ))||new_error){ -if(qbevent){evnt(26070,14779,"ide_methods.bas");if(r)goto S_52158;} -do{ -sub_shell2(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("find ",5),FUNC_QUOTEDFILENAME(_FUNC_IDEZFILELIST_STRING_PATH)),qbs_new_txt_len(" -maxdepth 1 -type f -name ",27)),func_chr( 34 )),qbs_new_txt_len("*.BAS",5)),func_chr( 34 )),qbs_new_txt_len(" | sort >./internal/temp/files.txt",34)),2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14779,"ide_methods.bas");}while(r); -} -do{ -return_point[next_return_point++]=170; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_ADDTOLIST; -RETURN_170:; -if(!qbevent)break;evnt(26070,14780,"ide_methods.bas");}while(r); -fornext_continue_5761:; -} -fornext_exit_5761:; -S_52163:; -}else{ -if (-(*_FUNC_IDEZFILELIST_LONG_METHOD== 1 )){ -if(qbevent){evnt(26070,14782,"ide_methods.bas");if(r)goto S_52163;} -do{ -sub_shell2(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("find ",5),FUNC_QUOTEDFILENAME(_FUNC_IDEZFILELIST_STRING_PATH)),qbs_new_txt_len(" -maxdepth 1 -type f -name ",27)),func_chr( 34 )),qbs_new_txt_len("*",1)),func_chr( 34 )),qbs_new_txt_len(" | sort >./internal/temp/files.txt",34)),2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14783,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=171; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_ADDTOLIST; -RETURN_171:; -if(!qbevent)break;evnt(26070,14784,"ide_methods.bas");}while(r); -S_52166:; -}else{ -if (-(*_FUNC_IDEZFILELIST_LONG_METHOD== 2 )){ -if(qbevent){evnt(26070,14785,"ide_methods.bas");if(r)goto S_52166;} -do{ -sub_shell2(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("find ",5),FUNC_QUOTEDFILENAME(_FUNC_IDEZFILELIST_STRING_PATH)),qbs_new_txt_len(" -maxdepth 1 -type f -name ",27)),func_chr( 34 )),_FUNC_IDEZFILELIST_STRING_MASK),func_chr( 34 )),qbs_new_txt_len(" | sort >./internal/temp/files.txt",34)),2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14786,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=172; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_ADDTOLIST; -RETURN_172:; -if(!qbevent)break;evnt(26070,14787,"ide_methods.bas");}while(r); -} -} -} -do{ -qbs_set(_FUNC_IDEZFILELIST_STRING_IDEZFILELIST,_FUNC_IDEZFILELIST_STRING_FILELIST); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14789,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,14790,"ide_methods.bas");}while(r); -LABEL_ADDTOLIST:; -if(qbevent){evnt(26070,14792,"ide_methods.bas");r=0;} -do{ -sub_open(qbs_new_txt_len("./internal/temp/files.txt",25), 3 ,NULL,NULL, 150 ,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14793,"ide_methods.bas");}while(r); -S_52173:; -while((!(func_eof( 150 )))||new_error){ -if(qbevent){evnt(26070,14794,"ide_methods.bas");if(r)goto S_52173;} -do{ -tmp_fileno= 150 ; -if (new_error) goto skip5764; -sub_file_line_input_string(tmp_fileno,_FUNC_IDEZFILELIST_STRING_A); -if (new_error) goto skip5764; -skip5764: -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14795,"ide_methods.bas");}while(r); -S_52175:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDEZFILELIST_STRING_A->len== 0 )))||new_error){ -if(qbevent){evnt(26070,14796,"ide_methods.bas");if(r)goto S_52175;} -do{ -goto dl_exit_5763; -if(!qbevent)break;evnt(26070,14796,"ide_methods.bas");}while(r); -} -S_52178:; -fornext_value5767=_FUNC_IDEZFILELIST_STRING_A->len; -fornext_finalvalue5767= 1 ; -fornext_step5767= -1 ; -if (fornext_step5767<0) fornext_step_negative5767=1; else fornext_step_negative5767=0; -if (new_error) goto fornext_error5767; -goto fornext_entrylabel5767; -while(1){ -fornext_value5767=fornext_step5767+(*_FUNC_IDEZFILELIST_LONG_X); -fornext_entrylabel5767: -*_FUNC_IDEZFILELIST_LONG_X=fornext_value5767; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative5767){ -if (fornext_value5767fornext_finalvalue5767) break; -} -fornext_error5767:; -if(qbevent){evnt(26070,14797,"ide_methods.bas");if(r)goto S_52178;} -do{ -qbs_set(_FUNC_IDEZFILELIST_STRING_A2,func_mid(_FUNC_IDEZFILELIST_STRING_A,*_FUNC_IDEZFILELIST_LONG_X, 1 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14798,"ide_methods.bas");}while(r); -S_52180:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEZFILELIST_STRING_A2,qbs_new_txt_len("/",1))))||new_error){ -if(qbevent){evnt(26070,14799,"ide_methods.bas");if(r)goto S_52180;} -do{ -qbs_set(_FUNC_IDEZFILELIST_STRING_A,qbs_right(_FUNC_IDEZFILELIST_STRING_A,_FUNC_IDEZFILELIST_STRING_A->len-*_FUNC_IDEZFILELIST_LONG_X)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14800,"ide_methods.bas");}while(r); -do{ -goto fornext_exit_5766; -if(!qbevent)break;evnt(26070,14801,"ide_methods.bas");}while(r); -} -fornext_continue_5766:; -} -fornext_exit_5766:; -S_52185:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEZFILELIST_STRING_PATH,qbs_new_txt_len("internal/help",13))))||new_error){ -if(qbevent){evnt(26070,14804,"ide_methods.bas");if(r)goto S_52185;} -do{ -qbs_set(_FUNC_IDEZFILELIST_STRING_A,qbs_add(qbs_left(_FUNC_IDEZFILELIST_STRING_A,(_FUNC_IDEZFILELIST_STRING_A->len- 5 )/ 2 ),qbs_new_txt_len(".txt",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14804,"ide_methods.bas");}while(r); -} -S_52188:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEZFILELIST_STRING_FILELIST,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,14805,"ide_methods.bas");if(r)goto S_52188;} -do{ -qbs_set(_FUNC_IDEZFILELIST_STRING_FILELIST,_FUNC_IDEZFILELIST_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14805,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDEZFILELIST_STRING_FILELIST,qbs_add(qbs_add(_FUNC_IDEZFILELIST_STRING_FILELIST,_FUNC_IDEZFILELIST_STRING1_SEP),_FUNC_IDEZFILELIST_STRING_A)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14805,"ide_methods.bas");}while(r); -} -dl_continue_5763:; -} -dl_exit_5763:; -do{ -sub_close( 150 ,1); -if(!qbevent)break;evnt(26070,14807,"ide_methods.bas");}while(r); -do{ -#include "ret223.txt" -if(!qbevent)break;evnt(26070,14808,"ide_methods.bas");}while(r); -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free223.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_IDEZFILELIST_STRING_IDEZFILELIST);return _FUNC_IDEZFILELIST_STRING_IDEZFILELIST; -} -qbs* FUNC_IDEZGETROOT(){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data224.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -S_52197:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ -if(qbevent){evnt(26070,14816,"ide_methods.bas");if(r)goto S_52197;} -do{ -sub_shell2(qbs_new_txt_len("cd >.\\internal\\temp\\root.txt",28),2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14817,"ide_methods.bas");}while(r); -do{ -sub_open(qbs_new_txt_len(".\\internal\\temp\\root.txt",24), 3 ,NULL,NULL, 150 ,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14818,"ide_methods.bas");}while(r); -do{ -tmp_fileno= 150 ; -if (new_error) goto skip5771; -sub_file_line_input_string(tmp_fileno,_FUNC_IDEZGETROOT_STRING_A); -if (new_error) goto skip5771; -skip5771: -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14819,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEZGETROOT_STRING_IDEZGETROOT,_FUNC_IDEZGETROOT_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14820,"ide_methods.bas");}while(r); -do{ -sub_close( 150 ,1); -if(!qbevent)break;evnt(26070,14821,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,14822,"ide_methods.bas");}while(r); -}else{ -do{ -sub_shell2(qbs_new_txt_len("pwd >./internal/temp/root.txt",29),2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14824,"ide_methods.bas");}while(r); -do{ -sub_open(qbs_new_txt_len("./internal/temp/root.txt",24), 3 ,NULL,NULL, 150 ,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14825,"ide_methods.bas");}while(r); -do{ -tmp_fileno= 150 ; -if (new_error) goto skip5772; -sub_file_line_input_string(tmp_fileno,_FUNC_IDEZGETROOT_STRING_A); -if (new_error) goto skip5772; -skip5772: -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14826,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEZGETROOT_STRING_IDEZGETROOT,_FUNC_IDEZGETROOT_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14827,"ide_methods.bas");}while(r); -do{ -sub_close( 150 ,1); -if(!qbevent)break;evnt(26070,14828,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,14829,"ide_methods.bas");}while(r); -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free224.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_IDEZGETROOT_STRING_IDEZGETROOT);return _FUNC_IDEZGETROOT_STRING_IDEZGETROOT; -} -qbs* FUNC_IDEZPATHLIST(qbs*_FUNC_IDEZPATHLIST_STRING_PATH){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data225.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -if(!qbevent)break;evnt(26070,14835,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEZPATHLIST_STRING1_SEP,func_chr( 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14836,"ide_methods.bas");}while(r); -S_52214:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ -if(qbevent){evnt(26070,14838,"ide_methods.bas");if(r)goto S_52214;} -do{ -sub_open(qbs_new_txt_len(".\\internal\\temp\\paths.txt",25), 4 ,NULL,NULL, 150 ,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14839,"ide_methods.bas");}while(r); -do{ -sub_close( 150 ,1); -if(!qbevent)break;evnt(26070,14839,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEZPATHLIST_STRING_A,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14840,"ide_methods.bas");}while(r); -S_52218:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_FUNC_IDEZPATHLIST_STRING_PATH, 1 ),qbs_new_txt_len(":",1))))||new_error){ -if(qbevent){evnt(26070,14840,"ide_methods.bas");if(r)goto S_52218;} -do{ -qbs_set(_FUNC_IDEZPATHLIST_STRING_A,qbs_new_txt_len("\\",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14840,"ide_methods.bas");}while(r); -} -do{ -sub_shell2(qbs_add(qbs_add(qbs_new_txt_len("dir /b /ON /AD ",15),FUNC_QUOTEDFILENAME(qbs_add(_FUNC_IDEZPATHLIST_STRING_PATH,_FUNC_IDEZPATHLIST_STRING_A))),qbs_new_txt_len(" >.\\internal\\temp\\paths.txt",27)),2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14841,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEZPATHLIST_STRING_PATHLIST,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14842,"ide_methods.bas");}while(r); -do{ -sub_open(qbs_new_txt_len(".\\internal\\temp\\paths.txt",25), 3 ,NULL,NULL, 150 ,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14843,"ide_methods.bas");}while(r); -S_52224:; -while((!(func_eof( 150 )))||new_error){ -if(qbevent){evnt(26070,14844,"ide_methods.bas");if(r)goto S_52224;} -do{ -tmp_fileno= 150 ; -if (new_error) goto skip5775; -sub_file_line_input_string(tmp_fileno,_FUNC_IDEZPATHLIST_STRING_A); -if (new_error) goto skip5775; -skip5775: -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14845,"ide_methods.bas");}while(r); -S_52226:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEZPATHLIST_STRING_PATHLIST,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,14846,"ide_methods.bas");if(r)goto S_52226;} -do{ -qbs_set(_FUNC_IDEZPATHLIST_STRING_PATHLIST,_FUNC_IDEZPATHLIST_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14846,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDEZPATHLIST_STRING_PATHLIST,qbs_add(qbs_add(_FUNC_IDEZPATHLIST_STRING_PATHLIST,_FUNC_IDEZPATHLIST_STRING1_SEP),_FUNC_IDEZPATHLIST_STRING_A)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14846,"ide_methods.bas");}while(r); -} -dl_continue_5774:; -} -dl_exit_5774:; -do{ -sub_close( 150 ,1); -if(!qbevent)break;evnt(26070,14848,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEZPATHLIST_LONG_C= 0 ; -if(!qbevent)break;evnt(26070,14850,"ide_methods.bas");}while(r); -S_52234:; -fornext_value5777= 1 ; -fornext_finalvalue5777=_FUNC_IDEZPATHLIST_STRING_PATH->len; -fornext_step5777= 1 ; -if (fornext_step5777<0) fornext_step_negative5777=1; else fornext_step_negative5777=0; -if (new_error) goto fornext_error5777; -goto fornext_entrylabel5777; -while(1){ -fornext_value5777=fornext_step5777+(*_FUNC_IDEZPATHLIST_LONG_X); -fornext_entrylabel5777: -*_FUNC_IDEZPATHLIST_LONG_X=fornext_value5777; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative5777){ -if (fornext_value5777fornext_finalvalue5777) break; -} -fornext_error5777:; -if(qbevent){evnt(26070,14851,"ide_methods.bas");if(r)goto S_52234;} -do{ -qbs_set(_FUNC_IDEZPATHLIST_STRING_B,func_mid(_FUNC_IDEZPATHLIST_STRING_PATH,*_FUNC_IDEZPATHLIST_LONG_X, 1 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14852,"ide_methods.bas");}while(r); -S_52236:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEZPATHLIST_STRING_B,__STRING1_IDEPATHSEP)))||new_error){ -if(qbevent){evnt(26070,14853,"ide_methods.bas");if(r)goto S_52236;} -do{ -*_FUNC_IDEZPATHLIST_LONG_C=*_FUNC_IDEZPATHLIST_LONG_C+ 1 ; -if(!qbevent)break;evnt(26070,14853,"ide_methods.bas");}while(r); -} -fornext_continue_5776:; -} -fornext_exit_5776:; -S_52240:; -if ((-(*_FUNC_IDEZPATHLIST_LONG_C>= 1 ))||new_error){ -if(qbevent){evnt(26070,14855,"ide_methods.bas");if(r)goto S_52240;} -S_52241:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDEZPATHLIST_STRING_PATHLIST->len))||new_error){ -if(qbevent){evnt(26070,14856,"ide_methods.bas");if(r)goto S_52241;} -do{ -qbs_set(_FUNC_IDEZPATHLIST_STRING_PATHLIST,qbs_add(qbs_add(qbs_new_txt_len("..",2),_FUNC_IDEZPATHLIST_STRING1_SEP),_FUNC_IDEZPATHLIST_STRING_PATHLIST)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14856,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDEZPATHLIST_STRING_PATHLIST,qbs_new_txt_len("..",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14856,"ide_methods.bas");}while(r); -} -} -do{ -*_FUNC_IDEZPATHLIST_LONG_D=( int32 )logical_drives(); -if(!qbevent)break;evnt(26070,14864,"ide_methods.bas");}while(r); -S_52248:; -fornext_value5781= 0 ; -fornext_finalvalue5781= 25 ; -fornext_step5781= 1 ; -if (fornext_step5781<0) fornext_step_negative5781=1; else fornext_step_negative5781=0; -if (new_error) goto fornext_error5781; -goto fornext_entrylabel5781; -while(1){ -fornext_value5781=fornext_step5781+(*_FUNC_IDEZPATHLIST_LONG_I); -fornext_entrylabel5781: -*_FUNC_IDEZPATHLIST_LONG_I=fornext_value5781; -if (fornext_step_negative5781){ -if (fornext_value5781fornext_finalvalue5781) break; -} -fornext_error5781:; -if(qbevent){evnt(26070,14865,"ide_methods.bas");if(r)goto S_52248;} -S_52249:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(qbs_right(_FUNC_IDEZPATHLIST_STRING_PATHLIST, 1 ),_FUNC_IDEZPATHLIST_STRING1_SEP))&(-(_FUNC_IDEZPATHLIST_STRING_PATHLIST->len> 0 ))))||new_error){ -if(qbevent){evnt(26070,14866,"ide_methods.bas");if(r)goto S_52249;} -do{ -qbs_set(_FUNC_IDEZPATHLIST_STRING_PATHLIST,qbs_add(_FUNC_IDEZPATHLIST_STRING_PATHLIST,_FUNC_IDEZPATHLIST_STRING1_SEP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14866,"ide_methods.bas");}while(r); -} -S_52252:; -if ((func__readbit(*_FUNC_IDEZPATHLIST_LONG_D,*_FUNC_IDEZPATHLIST_LONG_I))||new_error){ -if(qbevent){evnt(26070,14867,"ide_methods.bas");if(r)goto S_52252;} -do{ -qbs_set(_FUNC_IDEZPATHLIST_STRING_PATHLIST,qbs_add(qbs_add(_FUNC_IDEZPATHLIST_STRING_PATHLIST,func_chr( 65 +*_FUNC_IDEZPATHLIST_LONG_I)),qbs_new_txt_len(":",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14868,"ide_methods.bas");}while(r); -} -fornext_continue_5780:; -} -fornext_exit_5780:; -do{ -qbs_set(_FUNC_IDEZPATHLIST_STRING_IDEZPATHLIST,_FUNC_IDEZPATHLIST_STRING_PATHLIST); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14872,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,14873,"ide_methods.bas");}while(r); -} -S_52259:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ -if(qbevent){evnt(26070,14876,"ide_methods.bas");if(r)goto S_52259;} -do{ -qbs_set(_FUNC_IDEZPATHLIST_STRING_PATHLIST,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14877,"ide_methods.bas");}while(r); -do{ -sub_open(qbs_new_txt_len("./internal/temp/paths.txt",25), 4 ,NULL,NULL, 150 ,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14878,"ide_methods.bas");}while(r); -do{ -sub_close( 150 ,1); -if(!qbevent)break;evnt(26070,14878,"ide_methods.bas");}while(r); -do{ -sub_shell2(qbs_add(qbs_add(qbs_new_txt_len("find ",5),FUNC_QUOTEDFILENAME(_FUNC_IDEZPATHLIST_STRING_PATH)),qbs_new_txt_len(" -maxdepth 1 -mindepth 1 -type d >./internal/temp/paths.txt",59)),2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14879,"ide_methods.bas");}while(r); -do{ -sub_open(qbs_new_txt_len("./internal/temp/paths.txt",25), 3 ,NULL,NULL, 150 ,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14880,"ide_methods.bas");}while(r); -S_52265:; -while((!(func_eof( 150 )))||new_error){ -if(qbevent){evnt(26070,14881,"ide_methods.bas");if(r)goto S_52265;} -do{ -tmp_fileno= 150 ; -if (new_error) goto skip5784; -sub_file_line_input_string(tmp_fileno,_FUNC_IDEZPATHLIST_STRING_A); -if (new_error) goto skip5784; -skip5784: -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14882,"ide_methods.bas");}while(r); -S_52267:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDEZPATHLIST_STRING_A->len== 0 )))||new_error){ -if(qbevent){evnt(26070,14883,"ide_methods.bas");if(r)goto S_52267;} -do{ -goto dl_exit_5783; -if(!qbevent)break;evnt(26070,14883,"ide_methods.bas");}while(r); -} -S_52270:; -fornext_value5787=_FUNC_IDEZPATHLIST_STRING_A->len; -fornext_finalvalue5787= 1 ; -fornext_step5787= -1 ; -if (fornext_step5787<0) fornext_step_negative5787=1; else fornext_step_negative5787=0; -if (new_error) goto fornext_error5787; -goto fornext_entrylabel5787; -while(1){ -fornext_value5787=fornext_step5787+(*_FUNC_IDEZPATHLIST_LONG_X); -fornext_entrylabel5787: -*_FUNC_IDEZPATHLIST_LONG_X=fornext_value5787; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative5787){ -if (fornext_value5787fornext_finalvalue5787) break; -} -fornext_error5787:; -if(qbevent){evnt(26070,14884,"ide_methods.bas");if(r)goto S_52270;} -do{ -qbs_set(_FUNC_IDEZPATHLIST_STRING_A2,func_mid(_FUNC_IDEZPATHLIST_STRING_A,*_FUNC_IDEZPATHLIST_LONG_X, 1 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14885,"ide_methods.bas");}while(r); -S_52272:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEZPATHLIST_STRING_A2,qbs_new_txt_len("/",1))))||new_error){ -if(qbevent){evnt(26070,14886,"ide_methods.bas");if(r)goto S_52272;} -do{ -qbs_set(_FUNC_IDEZPATHLIST_STRING_A,qbs_right(_FUNC_IDEZPATHLIST_STRING_A,_FUNC_IDEZPATHLIST_STRING_A->len-*_FUNC_IDEZPATHLIST_LONG_X)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14887,"ide_methods.bas");}while(r); -do{ -goto fornext_exit_5786; -if(!qbevent)break;evnt(26070,14888,"ide_methods.bas");}while(r); -} -fornext_continue_5786:; -} -fornext_exit_5786:; -S_52277:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEZPATHLIST_STRING_PATHLIST,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,14891,"ide_methods.bas");if(r)goto S_52277;} -do{ -qbs_set(_FUNC_IDEZPATHLIST_STRING_PATHLIST,_FUNC_IDEZPATHLIST_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14891,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDEZPATHLIST_STRING_PATHLIST,qbs_add(qbs_add(_FUNC_IDEZPATHLIST_STRING_PATHLIST,_FUNC_IDEZPATHLIST_STRING1_SEP),_FUNC_IDEZPATHLIST_STRING_A)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14891,"ide_methods.bas");}while(r); -} -dl_continue_5783:; -} -dl_exit_5783:; -do{ -sub_close( 150 ,1); -if(!qbevent)break;evnt(26070,14893,"ide_methods.bas");}while(r); -S_52284:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_IDEZPATHLIST_STRING_PATH,qbs_new_txt_len("/",1))))||new_error){ -if(qbevent){evnt(26070,14895,"ide_methods.bas");if(r)goto S_52284;} -do{ -qbs_set(_FUNC_IDEZPATHLIST_STRING_A,qbs_new_txt_len("..",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14896,"ide_methods.bas");}while(r); -S_52286:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEZPATHLIST_STRING_PATHLIST,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,14898,"ide_methods.bas");if(r)goto S_52286;} -do{ -qbs_set(_FUNC_IDEZPATHLIST_STRING_PATHLIST,_FUNC_IDEZPATHLIST_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14898,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDEZPATHLIST_STRING_PATHLIST,qbs_add(qbs_add(_FUNC_IDEZPATHLIST_STRING_A,_FUNC_IDEZPATHLIST_STRING1_SEP),_FUNC_IDEZPATHLIST_STRING_PATHLIST)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14898,"ide_methods.bas");}while(r); -} -} -do{ -qbs_set(_FUNC_IDEZPATHLIST_STRING_IDEZPATHLIST,_FUNC_IDEZPATHLIST_STRING_PATHLIST); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14901,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,14902,"ide_methods.bas");}while(r); -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free225.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_IDEZPATHLIST_STRING_IDEZPATHLIST);return _FUNC_IDEZPATHLIST_STRING_IDEZPATHLIST; -} -qbs* FUNC_IDEZTAKEPATH(qbs*_FUNC_IDEZTAKEPATH_STRING_F){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data226.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -qbs_set(_FUNC_IDEZTAKEPATH_STRING_P,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14908,"ide_methods.bas");}while(r); -S_52296:; -fornext_value5792=_FUNC_IDEZTAKEPATH_STRING_F->len; -fornext_finalvalue5792= 1 ; -fornext_step5792= -1 ; -if (fornext_step5792<0) fornext_step_negative5792=1; else fornext_step_negative5792=0; -if (new_error) goto fornext_error5792; -goto fornext_entrylabel5792; -while(1){ -fornext_value5792=fornext_step5792+(*_FUNC_IDEZTAKEPATH_LONG_I); -fornext_entrylabel5792: -*_FUNC_IDEZTAKEPATH_LONG_I=fornext_value5792; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative5792){ -if (fornext_value5792fornext_finalvalue5792) break; -} -fornext_error5792:; -if(qbevent){evnt(26070,14910,"ide_methods.bas");if(r)goto S_52296;} -do{ -qbs_set(_FUNC_IDEZTAKEPATH_STRING_A,func_mid(_FUNC_IDEZTAKEPATH_STRING_F,*_FUNC_IDEZTAKEPATH_LONG_I, 1 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14911,"ide_methods.bas");}while(r); -S_52298:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_IDEZTAKEPATH_STRING_A,qbs_new_txt_len("\\",1)))|(qbs_equal(_FUNC_IDEZTAKEPATH_STRING_A,qbs_new_txt_len("/",1)))))||new_error){ -if(qbevent){evnt(26070,14912,"ide_methods.bas");if(r)goto S_52298;} -do{ -qbs_set(_FUNC_IDEZTAKEPATH_STRING_P,qbs_left(_FUNC_IDEZTAKEPATH_STRING_F,*_FUNC_IDEZTAKEPATH_LONG_I- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14913,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEZTAKEPATH_STRING_F,qbs_right(_FUNC_IDEZTAKEPATH_STRING_F,_FUNC_IDEZTAKEPATH_STRING_F->len-*_FUNC_IDEZTAKEPATH_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14914,"ide_methods.bas");}while(r); -do{ -goto fornext_exit_5791; -if(!qbevent)break;evnt(26070,14915,"ide_methods.bas");}while(r); -} -fornext_continue_5791:; -} -fornext_exit_5791:; -do{ -qbs_set(_FUNC_IDEZTAKEPATH_STRING_IDEZTAKEPATH,_FUNC_IDEZTAKEPATH_STRING_P); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14918,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,14919,"ide_methods.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free226.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_IDEZTAKEPATH_STRING_IDEZTAKEPATH);return _FUNC_IDEZTAKEPATH_STRING_IDEZTAKEPATH; -} -qbs* FUNC_IDEZGETFILEPATH(qbs*_FUNC_IDEZGETFILEPATH_STRING_ROOT,qbs*_FUNC_IDEZGETFILEPATH_STRING_F){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data227.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -qbs_set(_FUNC_IDEZGETFILEPATH_STRING_P,FUNC_IDEZTAKEPATH(_FUNC_IDEZGETFILEPATH_STRING_F)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14928,"ide_methods.bas");}while(r); -S_52307:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDEZGETFILEPATH_STRING_P->len== 0 )))||new_error){ -if(qbevent){evnt(26070,14931,"ide_methods.bas");if(r)goto S_52307;} -do{ -qbs_set(_FUNC_IDEZGETFILEPATH_STRING_P,_FUNC_IDEZGETFILEPATH_STRING_ROOT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14931,"ide_methods.bas");}while(r); -} -S_52310:; -if ((qbs_cleanup(qbs_tmp_base,func__direxists(qbs_add(qbs_add(_FUNC_IDEZGETFILEPATH_STRING_ROOT,__STRING1_IDEPATHSEP),_FUNC_IDEZGETFILEPATH_STRING_P))))||new_error){ -if(qbevent){evnt(26070,14934,"ide_methods.bas");if(r)goto S_52310;} -do{ -qbs_set(_FUNC_IDEZGETFILEPATH_STRING_P,qbs_add(qbs_add(_FUNC_IDEZGETFILEPATH_STRING_ROOT,__STRING1_IDEPATHSEP),_FUNC_IDEZGETFILEPATH_STRING_P)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14934,"ide_methods.bas");}while(r); -} -do{ -*__LONG_IDEERROR= 4 ; -if(!qbevent)break;evnt(26070,14938,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEZGETFILEPATH_STRING_P2,_FUNC_IDEZGETFILEPATH_STRING_P); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14939,"ide_methods.bas");}while(r); -S_52315:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ -if(qbevent){evnt(26070,14940,"ide_methods.bas");if(r)goto S_52315;} -S_52316:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_FUNC_IDEZGETFILEPATH_STRING_P2, 1 ),qbs_new_txt_len(":",1))))||new_error){ -if(qbevent){evnt(26070,14941,"ide_methods.bas");if(r)goto S_52316;} -do{ -qbs_set(_FUNC_IDEZGETFILEPATH_STRING_P2,qbs_add(_FUNC_IDEZGETFILEPATH_STRING_P2,qbs_new_txt_len("\\",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14941,"ide_methods.bas");}while(r); -} -} -S_52320:; -if ((qbs_cleanup(qbs_tmp_base,-(func__direxists(_FUNC_IDEZGETFILEPATH_STRING_P2)== 0 )))||new_error){ -if(qbevent){evnt(26070,14943,"ide_methods.bas");if(r)goto S_52320;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,14943,"ide_methods.bas");}while(r); -} -do{ -sub_chdir(_FUNC_IDEZGETFILEPATH_STRING_P2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14945,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEERROR= 1 ; -if(!qbevent)break;evnt(26070,14946,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEZGETFILEPATH_STRING_P,func__cwd()); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14948,"ide_methods.bas");}while(r); -do{ -sub_chdir(__STRING_IDEROOT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14950,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEZGETFILEPATH_STRING_IDEZGETFILEPATH,_FUNC_IDEZGETFILEPATH_STRING_P); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14952,"ide_methods.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free227.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_IDEZGETFILEPATH_STRING_IDEZGETFILEPATH);return _FUNC_IDEZGETFILEPATH_STRING_IDEZGETFILEPATH; -} -int32 FUNC_IDELAYOUTBOX(){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data228.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -sub_pcopy( 0 , 2 ); -if(!qbevent)break;evnt(26070,14958,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 0 , 1 ); -if(!qbevent)break;evnt(26070,14959,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,14960,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDELAYOUTBOX_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(26070,14961,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(26070,14962,"ide_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26070,14311,"ide_methods.bas");}while(r); +} +S_51720:; +if ((*_SUB_IDEOBJUPDATE_LONG_MOUSEDOWN)||new_error){ +if(qbevent){evnt(26070,14314,"ide_methods.bas");if(r)goto S_51720;} +do{ +*_SUB_IDEOBJUPDATE_LONG_X1=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(0))+*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(20)); +if(!qbevent)break;evnt(26070,14315,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEOBJUPDATE_LONG_Y1=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(4))+*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(24)); +if(!qbevent)break;evnt(26070,14315,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEOBJUPDATE_LONG_X2=*_SUB_IDEOBJUPDATE_LONG_X1+*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(28))+ 1 ; +if(!qbevent)break;evnt(26070,14316,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEOBJUPDATE_LONG_Y2=*_SUB_IDEOBJUPDATE_LONG_Y1+*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(32))+ 1 ; +if(!qbevent)break;evnt(26070,14316,"ide_methods.bas");}while(r); +S_51725:; +if (((-(*_SUB_IDEOBJUPDATE_LONG_MX>=*_SUB_IDEOBJUPDATE_LONG_X1))&(-(*_SUB_IDEOBJUPDATE_LONG_MX<=*_SUB_IDEOBJUPDATE_LONG_X2))&(-(*_SUB_IDEOBJUPDATE_LONG_MY>=*_SUB_IDEOBJUPDATE_LONG_Y1))&(-(*_SUB_IDEOBJUPDATE_LONG_MY<=*_SUB_IDEOBJUPDATE_LONG_Y2)))||new_error){ +if(qbevent){evnt(26070,14317,"ide_methods.bas");if(r)goto S_51725;} +do{ +*_SUB_IDEOBJUPDATE_LONG_FOCUS=*_SUB_IDEOBJUPDATE_LONG_F; +if(!qbevent)break;evnt(26070,14318,"ide_methods.bas");}while(r); +S_51727:; +if (((-(*_SUB_IDEOBJUPDATE_LONG_MX>*_SUB_IDEOBJUPDATE_LONG_X1))&(-(*_SUB_IDEOBJUPDATE_LONG_MX<*_SUB_IDEOBJUPDATE_LONG_X2))&(-(*_SUB_IDEOBJUPDATE_LONG_MY>*_SUB_IDEOBJUPDATE_LONG_Y1))&(-(*_SUB_IDEOBJUPDATE_LONG_MY<*_SUB_IDEOBJUPDATE_LONG_Y2)))||new_error){ +if(qbevent){evnt(26070,14319,"ide_methods.bas");if(r)goto S_51727;} +do{ +*_SUB_IDEOBJUPDATE_LONG_Y=*_SUB_IDEOBJUPDATE_LONG_MY-*_SUB_IDEOBJUPDATE_LONG_Y1- 1 ; +if(!qbevent)break;evnt(26070,14320,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEOBJUPDATE_LONG_Y=*_SUB_IDEOBJUPDATE_LONG_Y+*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81)); +if(!qbevent)break;evnt(26070,14321,"ide_methods.bas");}while(r); +S_51730:; +if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))==*_SUB_IDEOBJUPDATE_LONG_Y))||new_error){ +if(qbevent){evnt(26070,14322,"ide_methods.bas");if(r)goto S_51730;} +do{ +*_SUB_IDEOBJUPDATE_LONG_INFO= 1 ; +if(!qbevent)break;evnt(26070,14322,"ide_methods.bas");}while(r); +} +do{ +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=*_SUB_IDEOBJUPDATE_LONG_Y; +if(!qbevent)break;evnt(26070,14323,"ide_methods.bas");}while(r); +S_51734:; +if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))>*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(85))))||new_error){ +if(qbevent){evnt(26070,14324,"ide_methods.bas");if(r)goto S_51734;} +do{ +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(85))); +if(!qbevent)break;evnt(26070,14324,"ide_methods.bas");}while(r); +} +} +} +} +S_51740:; +if ((*_SUB_IDEOBJUPDATE_LONG_MB)||new_error){ +if(qbevent){evnt(26070,14330,"ide_methods.bas");if(r)goto S_51740;} +S_51741:; +if ((-(*_SUB_IDEOBJUPDATE_LONG_FOCUSOFFSET== 0 ))||new_error){ +if(qbevent){evnt(26070,14331,"ide_methods.bas");if(r)goto S_51741;} +do{ +*_SUB_IDEOBJUPDATE_LONG_X1=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(0))+*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(20)); +if(!qbevent)break;evnt(26070,14333,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEOBJUPDATE_LONG_Y1=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(4))+*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(24)); +if(!qbevent)break;evnt(26070,14333,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEOBJUPDATE_LONG_X2=*_SUB_IDEOBJUPDATE_LONG_X1+*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(28))+ 1 ; +if(!qbevent)break;evnt(26070,14334,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEOBJUPDATE_LONG_Y2=*_SUB_IDEOBJUPDATE_LONG_Y1+*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(32))+ 1 ; +if(!qbevent)break;evnt(26070,14334,"ide_methods.bas");}while(r); +S_51746:; +if (((-(*_SUB_IDEOBJUPDATE_LONG_MX>=*_SUB_IDEOBJUPDATE_LONG_X1))&(-(*_SUB_IDEOBJUPDATE_LONG_MX<=*_SUB_IDEOBJUPDATE_LONG_X2))&(-(*_SUB_IDEOBJUPDATE_LONG_MY>=*_SUB_IDEOBJUPDATE_LONG_Y1))&(-(*_SUB_IDEOBJUPDATE_LONG_MY<=*_SUB_IDEOBJUPDATE_LONG_Y2)))||new_error){ +if(qbevent){evnt(26070,14335,"ide_methods.bas");if(r)goto S_51746;} +S_51747:; +if (((-(*_SUB_IDEOBJUPDATE_LONG_MX==*_SUB_IDEOBJUPDATE_LONG_X2))&(-(*_SUB_IDEOBJUPDATE_LONG_MY>(*_SUB_IDEOBJUPDATE_LONG_Y1+ 1 )))&(-(*_SUB_IDEOBJUPDATE_LONG_MY<(*_SUB_IDEOBJUPDATE_LONG_Y2- 1 ))))||new_error){ +if(qbevent){evnt(26070,14337,"ide_methods.bas");if(r)goto S_51747;} +do{ +*_SUB_IDEOBJUPDATE_LONG_TSEL=func_abs((int32)(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64)))); +if(!qbevent)break;evnt(26070,14339,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEOBJUPDATE_LONG_TNUM=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(85)); +if(!qbevent)break;evnt(26070,14340,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEOBJUPDATE_LONG_Q=FUNC_IDEVBAR(_SUB_IDEOBJUPDATE_LONG_X2,&(pass5726=*_SUB_IDEOBJUPDATE_LONG_Y1+ 1 ),(int32*)(void*)( ((char*)(_SUB_IDEOBJUPDATE_UDT_O)) + (32) ),_SUB_IDEOBJUPDATE_LONG_TSEL,_SUB_IDEOBJUPDATE_LONG_TNUM); +if(!qbevent)break;evnt(26070,14341,"ide_methods.bas");}while(r); +S_51751:; +if ((-(*_SUB_IDEOBJUPDATE_LONG_MY<*_SUB_IDEOBJUPDATE_LONG_Q))||new_error){ +if(qbevent){evnt(26070,14343,"ide_methods.bas");if(r)goto S_51751;} +do{ +qbs_set(_SUB_IDEOBJUPDATE_STRING_KK,qbs_add(func_chr( 0 ),func_chr( 73 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14344,"ide_methods.bas");}while(r); +do{ +SUB_IDEWAIT(); +if(!qbevent)break;evnt(26070,14345,"ide_methods.bas");}while(r); +} +S_51755:; +if ((-(*_SUB_IDEOBJUPDATE_LONG_MY>*_SUB_IDEOBJUPDATE_LONG_Q))||new_error){ +if(qbevent){evnt(26070,14347,"ide_methods.bas");if(r)goto S_51755;} +do{ +qbs_set(_SUB_IDEOBJUPDATE_STRING_KK,qbs_add(func_chr( 0 ),func_chr( 81 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14348,"ide_methods.bas");}while(r); +do{ +SUB_IDEWAIT(); +if(!qbevent)break;evnt(26070,14349,"ide_methods.bas");}while(r); +} +} +S_51760:; +if (((-(*_SUB_IDEOBJUPDATE_LONG_MX==*_SUB_IDEOBJUPDATE_LONG_X2))&(-(*_SUB_IDEOBJUPDATE_LONG_MY==(*_SUB_IDEOBJUPDATE_LONG_Y1+ 1 ))))||new_error){ +if(qbevent){evnt(26070,14353,"ide_methods.bas");if(r)goto S_51760;} +do{ +qbs_set(_SUB_IDEOBJUPDATE_STRING_KK,qbs_add(func_chr( 0 ),func_chr( 72 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14354,"ide_methods.bas");}while(r); +do{ +SUB_IDEWAIT(); +if(!qbevent)break;evnt(26070,14355,"ide_methods.bas");}while(r); +} +S_51764:; +if (((-(*_SUB_IDEOBJUPDATE_LONG_MX==*_SUB_IDEOBJUPDATE_LONG_X2))&(-(*_SUB_IDEOBJUPDATE_LONG_MY==(*_SUB_IDEOBJUPDATE_LONG_Y2- 1 ))))||new_error){ +if(qbevent){evnt(26070,14357,"ide_methods.bas");if(r)goto S_51764;} +do{ +qbs_set(_SUB_IDEOBJUPDATE_STRING_KK,qbs_add(func_chr( 0 ),func_chr( 80 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14358,"ide_methods.bas");}while(r); +do{ +SUB_IDEWAIT(); +if(!qbevent)break;evnt(26070,14359,"ide_methods.bas");}while(r); +} +} +} +} +S_51771:; +if ((-(*_SUB_IDEOBJUPDATE_LONG_FOCUSOFFSET== 0 ))||new_error){ +if(qbevent){evnt(26070,14367,"ide_methods.bas");if(r)goto S_51771;} +S_51772:; +if ((*_SUB_IDEOBJUPDATE_LONG_MW)||new_error){ +if(qbevent){evnt(26070,14368,"ide_methods.bas");if(r)goto S_51772;} +S_51773:; +if ((-(*_SUB_IDEOBJUPDATE_LONG_MW< 0 ))||new_error){ +if(qbevent){evnt(26070,14370,"ide_methods.bas");if(r)goto S_51773;} +S_51774:; +if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))>*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))))||new_error){ +if(qbevent){evnt(26070,14371,"ide_methods.bas");if(r)goto S_51774;} +do{ +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81)); +if(!qbevent)break;evnt(26070,14371,"ide_methods.bas");}while(r); +} +}else{ +do{ +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81))+*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(32))- 1 ; +if(!qbevent)break;evnt(26070,14373,"ide_methods.bas");}while(r); +} +do{ +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))+(*_SUB_IDEOBJUPDATE_LONG_MW* 3 ); +if(!qbevent)break;evnt(26070,14375,"ide_methods.bas");}while(r); +S_51781:; +if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))< 1 ))||new_error){ +if(qbevent){evnt(26070,14376,"ide_methods.bas");if(r)goto S_51781;} +do{ +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))= 1 ; +if(!qbevent)break;evnt(26070,14376,"ide_methods.bas");}while(r); +} +S_51784:; +if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))>*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(85))))||new_error){ +if(qbevent){evnt(26070,14377,"ide_methods.bas");if(r)goto S_51784;} +do{ +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(85)); +if(!qbevent)break;evnt(26070,14377,"ide_methods.bas");}while(r); +} +} +S_51788:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDEOBJUPDATE_STRING_KK,(qbs_add(func_chr( 0 ),func_chr( 72 ))))))||new_error){ +if(qbevent){evnt(26070,14380,"ide_methods.bas");if(r)goto S_51788;} +S_51789:; +if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))< 0 ))||new_error){ +if(qbevent){evnt(26070,14381,"ide_methods.bas");if(r)goto S_51789;} +do{ +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))); +if(!qbevent)break;evnt(26070,14382,"ide_methods.bas");}while(r); +}else{ +do{ +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))- 1 ; +if(!qbevent)break;evnt(26070,14384,"ide_methods.bas");}while(r); +S_51793:; +if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))< 1 ))||new_error){ +if(qbevent){evnt(26070,14385,"ide_methods.bas");if(r)goto S_51793;} +do{ +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))= 1 ; +if(!qbevent)break;evnt(26070,14385,"ide_methods.bas");}while(r); +} +} +} +S_51798:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDEOBJUPDATE_STRING_KK,(qbs_add(func_chr( 0 ),func_chr( 80 ))))))||new_error){ +if(qbevent){evnt(26070,14389,"ide_methods.bas");if(r)goto S_51798;} +S_51799:; +if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))< 0 ))||new_error){ +if(qbevent){evnt(26070,14390,"ide_methods.bas");if(r)goto S_51799;} +do{ +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))); +if(!qbevent)break;evnt(26070,14391,"ide_methods.bas");}while(r); +}else{ +do{ +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))+ 1 ; +if(!qbevent)break;evnt(26070,14393,"ide_methods.bas");}while(r); +S_51803:; +if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))>*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(85))))||new_error){ +if(qbevent){evnt(26070,14394,"ide_methods.bas");if(r)goto S_51803;} +do{ +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(85)); +if(!qbevent)break;evnt(26070,14394,"ide_methods.bas");}while(r); +} +} +} +S_51808:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDEOBJUPDATE_STRING_KK,(qbs_add(func_chr( 0 ),func_chr( 73 ))))))||new_error){ +if(qbevent){evnt(26070,14398,"ide_methods.bas");if(r)goto S_51808;} +S_51809:; +if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))< 0 ))||new_error){ +if(qbevent){evnt(26070,14399,"ide_methods.bas");if(r)goto S_51809;} +do{ +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))); +if(!qbevent)break;evnt(26070,14400,"ide_methods.bas");}while(r); +} +do{ +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))-*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(32))+ 1 ; +if(!qbevent)break;evnt(26070,14402,"ide_methods.bas");}while(r); +S_51813:; +if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))< 1 ))||new_error){ +if(qbevent){evnt(26070,14403,"ide_methods.bas");if(r)goto S_51813;} +do{ +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))= 1 ; +if(!qbevent)break;evnt(26070,14403,"ide_methods.bas");}while(r); +} +} +S_51817:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDEOBJUPDATE_STRING_KK,(qbs_add(func_chr( 0 ),func_chr( 81 ))))))||new_error){ +if(qbevent){evnt(26070,14406,"ide_methods.bas");if(r)goto S_51817;} +S_51818:; +if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))< 0 ))||new_error){ +if(qbevent){evnt(26070,14407,"ide_methods.bas");if(r)goto S_51818;} +do{ +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))); +if(!qbevent)break;evnt(26070,14408,"ide_methods.bas");}while(r); +} +do{ +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))+*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(32))- 1 ; +if(!qbevent)break;evnt(26070,14410,"ide_methods.bas");}while(r); +S_51822:; +if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))>*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(85))))||new_error){ +if(qbevent){evnt(26070,14411,"ide_methods.bas");if(r)goto S_51822;} +do{ +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(85)); +if(!qbevent)break;evnt(26070,14411,"ide_methods.bas");}while(r); +} +} +S_51826:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDEOBJUPDATE_STRING_KK,(qbs_add(func_chr( 0 ),qbs_new_txt_len("w",1))))))||new_error){ +if(qbevent){evnt(26070,14414,"ide_methods.bas");if(r)goto S_51826;} +do{ +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))= 1 ; +if(!qbevent)break;evnt(26070,14415,"ide_methods.bas");}while(r); +} +S_51829:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDEOBJUPDATE_STRING_KK,(qbs_add(func_chr( 0 ),qbs_new_txt_len("u",1))))))||new_error){ +if(qbevent){evnt(26070,14418,"ide_methods.bas");if(r)goto S_51829;} +do{ +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(85)); +if(!qbevent)break;evnt(26070,14419,"ide_methods.bas");}while(r); +} +S_51832:; +if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDEOBJUPDATE_STRING_KK->len== 1 )))||new_error){ +if(qbevent){evnt(26070,14422,"ide_methods.bas");if(r)goto S_51832;} +do{ +*_SUB_IDEOBJUPDATE_LONG_RESETKEYBTIMER= 0 ; +if(!qbevent)break;evnt(26070,14423,"ide_methods.bas");}while(r); +S_51834:; +if ((-(FUNC_TIMEELAPSEDSINCE(_SUB_IDEOBJUPDATE_SINGLE_LASTKEYBINPUT)> 1 ))||new_error){ +if(qbevent){evnt(26070,14424,"ide_methods.bas");if(r)goto S_51834;} +do{ +qbs_set(__STRING_FILEDLGSEARCHTERM,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14424,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEOBJUPDATE_LONG_RESETKEYBTIMER= -1 ; +if(!qbevent)break;evnt(26070,14424,"ide_methods.bas");}while(r); +} +do{ +*_SUB_IDEOBJUPDATE_SINGLE_LASTKEYBINPUT=func_timer(NULL,0); +if(!qbevent)break;evnt(26070,14425,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEOBJUPDATE_LONG_K=qbs_asc(qbs_ucase(_SUB_IDEOBJUPDATE_STRING_KK)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14426,"ide_methods.bas");}while(r); +S_51840:; +if (((-(*_SUB_IDEOBJUPDATE_LONG_K< 32 ))|(-(*_SUB_IDEOBJUPDATE_LONG_K> 126 )))||new_error){ +if(qbevent){evnt(26070,14427,"ide_methods.bas");if(r)goto S_51840;} +do{ +goto LABEL_SELECTED; +if(!qbevent)break;evnt(26070,14428,"ide_methods.bas");}while(r); +} +do{ +qbs_set(__STRING_FILEDLGSEARCHTERM,qbs_add(__STRING_FILEDLGSEARCHTERM,qbs_ucase(_SUB_IDEOBJUPDATE_STRING_KK))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14431,"ide_methods.bas");}while(r); +S_51844:; +if ((qbs_cleanup(qbs_tmp_base,(-(__STRING_FILEDLGSEARCHTERM->len== 2 ))&(qbs_equal(qbs_left(__STRING_FILEDLGSEARCHTERM, 1 ),qbs_right(__STRING_FILEDLGSEARCHTERM, 1 )))))||new_error){ +if(qbevent){evnt(26070,14433,"ide_methods.bas");if(r)goto S_51844;} +do{ +*_SUB_IDEOBJUPDATE_LONG_RESETKEYBTIMER= -1 ; +if(!qbevent)break;evnt(26070,14436,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_FILEDLGSEARCHTERM,qbs_ucase(_SUB_IDEOBJUPDATE_STRING_KK)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14437,"ide_methods.bas");}while(r); +} +do{ +*_SUB_IDEOBJUPDATE_LONG_SEARCHPASS= 1 ; +if(!qbevent)break;evnt(26070,14440,"ide_methods.bas");}while(r); +S_51849:; +if ((~(*_SUB_IDEOBJUPDATE_LONG_RESETKEYBTIMER))||new_error){ +if(qbevent){evnt(26070,14441,"ide_methods.bas");if(r)goto S_51849;} +do{ +*_SUB_IDEOBJUPDATE_LONG_STARTSEARCH=func_abs((int32)(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64)))); +if(!qbevent)break;evnt(26070,14441,"ide_methods.bas");}while(r); +}else{ +do{ +*_SUB_IDEOBJUPDATE_LONG_STARTSEARCH=func_abs((int32)(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))))+ 1 ; +if(!qbevent)break;evnt(26070,14441,"ide_methods.bas");}while(r); +} +S_51854:; +if (((-(*_SUB_IDEOBJUPDATE_LONG_STARTSEARCH< 1 ))|(-(*_SUB_IDEOBJUPDATE_LONG_STARTSEARCH>*_SUB_IDEOBJUPDATE_LONG_N)))||new_error){ +if(qbevent){evnt(26070,14442,"ide_methods.bas");if(r)goto S_51854;} +do{ +*_SUB_IDEOBJUPDATE_LONG_STARTSEARCH= 1 ; +if(!qbevent)break;evnt(26070,14442,"ide_methods.bas");}while(r); +} +LABEL_RETRYFIND:; +if(qbevent){evnt(26070,14443,"ide_methods.bas");r=0;} +S_51857:; +if ((-(*_SUB_IDEOBJUPDATE_LONG_SEARCHPASS> 2 ))||new_error){ +if(qbevent){evnt(26070,14444,"ide_methods.bas");if(r)goto S_51857;} +do{ +goto LABEL_SELECTED; +if(!qbevent)break;evnt(26070,14444,"ide_methods.bas");}while(r); +} +S_51860:; +fornext_value5730=*_SUB_IDEOBJUPDATE_LONG_STARTSEARCH; +fornext_finalvalue5730=*_SUB_IDEOBJUPDATE_LONG_N; +fornext_step5730= 1 ; +if (fornext_step5730<0) fornext_step_negative5730=1; else fornext_step_negative5730=0; +if (new_error) goto fornext_error5730; +goto fornext_entrylabel5730; +while(1){ +fornext_value5730=fornext_step5730+(*_SUB_IDEOBJUPDATE_LONG_FINDMATCH); +fornext_entrylabel5730: +*_SUB_IDEOBJUPDATE_LONG_FINDMATCH=fornext_value5730; +if (fornext_step_negative5730){ +if (fornext_value5730fornext_finalvalue5730) break; +} +fornext_error5730:; +if(qbevent){evnt(26070,14445,"ide_methods.bas");if(r)goto S_51860;} +S_51861:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(((qbs*)(((uint64*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[0]))[array_check((*_SUB_IDEOBJUPDATE_LONG_FINDMATCH)-_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[4],_SUB_IDEOBJUPDATE_ARRAY_STRING_LISTBOXITEMS[5])])),__STRING_FILEDLGSEARCHTERM->len)),qbs_ucase(__STRING_FILEDLGSEARCHTERM))))||new_error){ +if(qbevent){evnt(26070,14446,"ide_methods.bas");if(r)goto S_51861;} +do{ +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=*_SUB_IDEOBJUPDATE_LONG_FINDMATCH; +if(!qbevent)break;evnt(26070,14447,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(72)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),((qbs*)(((uint64*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[0]))[array_check((*_SUB_IDEOBJUPDATE_LONG_FINDMATCH)-_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[4],_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14448,"ide_methods.bas");}while(r); +do{ +goto LABEL_SELECTED; +if(!qbevent)break;evnt(26070,14449,"ide_methods.bas");}while(r); +} +fornext_continue_5729:; +} +fornext_exit_5729:; +do{ +*_SUB_IDEOBJUPDATE_LONG_STARTSEARCH= 1 ; +if(!qbevent)break;evnt(26070,14453,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEOBJUPDATE_LONG_SEARCHPASS=*_SUB_IDEOBJUPDATE_LONG_SEARCHPASS+ 1 ; +if(!qbevent)break;evnt(26070,14454,"ide_methods.bas");}while(r); +do{ +goto LABEL_RETRYFIND; +if(!qbevent)break;evnt(26070,14455,"ide_methods.bas");}while(r); +LABEL_SELECTED:; +if(qbevent){evnt(26070,14456,"ide_methods.bas");r=0;} +} +} +S_51872:; +if ((qbs_cleanup(qbs_tmp_base,(-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))> 0 ))&(-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))<=func_ubound(_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS,1,1)))))||new_error){ +if(qbevent){evnt(26070,14459,"ide_methods.bas");if(r)goto S_51872;} +do{ +tmp_long=array_check((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(72)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),((qbs*)(((uint64*)(_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[0]))[array_check((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64)))-_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[4],_SUB_IDEOBJUPDATE_ARRAY_STRING_ORIGINALLISTBOXITEMS[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14459,"ide_methods.bas");}while(r); +} +S_51875:; +if ((qbs_cleanup(qbs_tmp_base,_SUB_IDEOBJUPDATE_STRING_ALTLETTER->len))||new_error){ +if(qbevent){evnt(26070,14462,"ide_methods.bas");if(r)goto S_51875;} +S_51876:; +if ((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(40)))||new_error){ +if(qbevent){evnt(26070,14463,"ide_methods.bas");if(r)goto S_51876;} +do{ +*_SUB_IDEOBJUPDATE_LONG_X=func_instr(NULL,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(40)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])),qbs_new_txt_len("#",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14464,"ide_methods.bas");}while(r); +S_51878:; +if ((*_SUB_IDEOBJUPDATE_LONG_X)||new_error){ +if(qbevent){evnt(26070,14465,"ide_methods.bas");if(r)goto S_51878;} +S_51879:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(40)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])),*_SUB_IDEOBJUPDATE_LONG_X+ 1 , 1 ,0|1)),_SUB_IDEOBJUPDATE_STRING_ALTLETTER)))||new_error){ +if(qbevent){evnt(26070,14466,"ide_methods.bas");if(r)goto S_51879;} +do{ +*_SUB_IDEOBJUPDATE_LONG_FOCUS=*_SUB_IDEOBJUPDATE_LONG_F; +if(!qbevent)break;evnt(26070,14466,"ide_methods.bas");}while(r); +} +} +} +} +do{ +*_SUB_IDEOBJUPDATE_LONG_F=*_SUB_IDEOBJUPDATE_LONG_F+ 1 ; +if(!qbevent)break;evnt(26070,14470,"ide_methods.bas");}while(r); +} +S_51887:; +if ((-(*_SUB_IDEOBJUPDATE_LONG_T== 3 ))||new_error){ +if(qbevent){evnt(26070,14473,"ide_methods.bas");if(r)goto S_51887;} +do{ +qbs_set(_SUB_IDEOBJUPDATE_STRING_A,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14476,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEOBJUPDATE_LONG_N= 1 ; +if(!qbevent)break;evnt(26070,14477,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEOBJUPDATE_LONG_X= 0 ; +if(!qbevent)break;evnt(26070,14478,"ide_methods.bas");}while(r); +S_51891:; +fornext_value5734= 1 ; +fornext_finalvalue5734=_SUB_IDEOBJUPDATE_STRING_A->len; +fornext_step5734= 1 ; +if (fornext_step5734<0) fornext_step_negative5734=1; else fornext_step_negative5734=0; +if (new_error) goto fornext_error5734; +goto fornext_entrylabel5734; +while(1){ +fornext_value5734=fornext_step5734+(*_SUB_IDEOBJUPDATE_LONG_I2); +fornext_entrylabel5734: +*_SUB_IDEOBJUPDATE_LONG_I2=fornext_value5734; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative5734){ +if (fornext_value5734fornext_finalvalue5734) break; +} +fornext_error5734:; +if(qbevent){evnt(26070,14479,"ide_methods.bas");if(r)goto S_51891;} +do{ +qbs_set(_SUB_IDEOBJUPDATE_STRING_A2,func_mid(_SUB_IDEOBJUPDATE_STRING_A,*_SUB_IDEOBJUPDATE_LONG_I2, 1 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14480,"ide_methods.bas");}while(r); +S_51893:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDEOBJUPDATE_STRING_A2,func_chr( 0 ))))||new_error){ +if(qbevent){evnt(26070,14481,"ide_methods.bas");if(r)goto S_51893;} +do{ +*_SUB_IDEOBJUPDATE_LONG_N=*_SUB_IDEOBJUPDATE_LONG_N+ 1 ; +if(!qbevent)break;evnt(26070,14481,"ide_methods.bas");}while(r); +} +S_51896:; +if ((-(*_SUB_IDEOBJUPDATE_LONG_X== 1 ))||new_error){ +if(qbevent){evnt(26070,14482,"ide_methods.bas");if(r)goto S_51896;} +S_51897:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_IDEOBJUPDATE_STRING_A2),_SUB_IDEOBJUPDATE_STRING_ALTLETTER)))||new_error){ +if(qbevent){evnt(26070,14483,"ide_methods.bas");if(r)goto S_51897;} +do{ +*_SUB_IDEOBJUPDATE_LONG_FOCUS=*_SUB_IDEOBJUPDATE_LONG_F+*_SUB_IDEOBJUPDATE_LONG_N- 1 ; +if(!qbevent)break;evnt(26070,14484,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEOBJUPDATE_LONG_INFO=*_SUB_IDEOBJUPDATE_LONG_N; +if(!qbevent)break;evnt(26070,14485,"ide_methods.bas");}while(r); +} +} +S_51902:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDEOBJUPDATE_STRING_A2,qbs_new_txt_len("#",1))))||new_error){ +if(qbevent){evnt(26070,14488,"ide_methods.bas");if(r)goto S_51902;} +do{ +*_SUB_IDEOBJUPDATE_LONG_X= 1 ; +if(!qbevent)break;evnt(26070,14488,"ide_methods.bas");}while(r); +}else{ +do{ +*_SUB_IDEOBJUPDATE_LONG_X= 0 ; +if(!qbevent)break;evnt(26070,14488,"ide_methods.bas");}while(r); +} +fornext_continue_5733:; +} +fornext_exit_5733:; +S_51908:; +if ((*_SUB_IDEOBJUPDATE_LONG_MOUSEDOWN)||new_error){ +if(qbevent){evnt(26070,14492,"ide_methods.bas");if(r)goto S_51908;} +S_51909:; +if ((-(*_SUB_IDEOBJUPDATE_LONG_MY==(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(4))+*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(24)))))||new_error){ +if(qbevent){evnt(26070,14493,"ide_methods.bas");if(r)goto S_51909;} +do{ +qbs_set(_SUB_IDEOBJUPDATE_STRING_A,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14494,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEOBJUPDATE_LONG_N= 1 ; +if(!qbevent)break;evnt(26070,14495,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEOBJUPDATE_LONG_C= 0 ; +if(!qbevent)break;evnt(26070,14496,"ide_methods.bas");}while(r); +S_51913:; +fornext_value5737= 1 ; +fornext_finalvalue5737=_SUB_IDEOBJUPDATE_STRING_A->len; +fornext_step5737= 1 ; +if (fornext_step5737<0) fornext_step_negative5737=1; else fornext_step_negative5737=0; +if (new_error) goto fornext_error5737; +goto fornext_entrylabel5737; +while(1){ +fornext_value5737=fornext_step5737+(*_SUB_IDEOBJUPDATE_LONG_I2); +fornext_entrylabel5737: +*_SUB_IDEOBJUPDATE_LONG_I2=fornext_value5737; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative5737){ +if (fornext_value5737fornext_finalvalue5737) break; +} +fornext_error5737:; +if(qbevent){evnt(26070,14497,"ide_methods.bas");if(r)goto S_51913;} +do{ +qbs_set(_SUB_IDEOBJUPDATE_STRING_A2,func_mid(_SUB_IDEOBJUPDATE_STRING_A,*_SUB_IDEOBJUPDATE_LONG_I2, 1 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14498,"ide_methods.bas");}while(r); +S_51915:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDEOBJUPDATE_STRING_A2,func_chr( 0 ))))||new_error){ +if(qbevent){evnt(26070,14499,"ide_methods.bas");if(r)goto S_51915;} +do{ +*_SUB_IDEOBJUPDATE_LONG_N=*_SUB_IDEOBJUPDATE_LONG_N+ 1 ; +if(!qbevent)break;evnt(26070,14500,"ide_methods.bas");}while(r); +}else{ +S_51918:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_IDEOBJUPDATE_STRING_A,qbs_new_txt_len("#",1))))||new_error){ +if(qbevent){evnt(26070,14502,"ide_methods.bas");if(r)goto S_51918;} +do{ +*_SUB_IDEOBJUPDATE_LONG_C=*_SUB_IDEOBJUPDATE_LONG_C+ 1 ; +if(!qbevent)break;evnt(26070,14502,"ide_methods.bas");}while(r); +} +} +fornext_continue_5736:; +} +fornext_exit_5736:; +do{ +*_SUB_IDEOBJUPDATE_LONG_W=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(28)); +if(!qbevent)break;evnt(26070,14505,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEOBJUPDATE_LONG_C=*_SUB_IDEOBJUPDATE_LONG_C+(*_SUB_IDEOBJUPDATE_LONG_N* 4 ); +if(!qbevent)break;evnt(26070,14506,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEOBJUPDATE_LONG_WHITESPACE=*_SUB_IDEOBJUPDATE_LONG_W-*_SUB_IDEOBJUPDATE_LONG_C; +if(!qbevent)break;evnt(26070,14507,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEOBJUPDATE_LONG_SPACING=*_SUB_IDEOBJUPDATE_LONG_WHITESPACE/ (*_SUB_IDEOBJUPDATE_LONG_N+ 1 ); +if(!qbevent)break;evnt(26070,14508,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEOBJUPDATE_LONG_N2= 1 ; +if(!qbevent)break;evnt(26070,14513,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_IDEOBJUPDATE_STRING_A3,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14514,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEOBJUPDATE_LONG_X=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(0))+*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(20)); +if(!qbevent)break;evnt(26070,14516,"ide_methods.bas");}while(r); +S_51930:; +fornext_value5740= 1 ; +fornext_finalvalue5740=_SUB_IDEOBJUPDATE_STRING_A->len; +fornext_step5740= 1 ; +if (fornext_step5740<0) fornext_step_negative5740=1; else fornext_step_negative5740=0; +if (new_error) goto fornext_error5740; +goto fornext_entrylabel5740; +while(1){ +fornext_value5740=fornext_step5740+(*_SUB_IDEOBJUPDATE_LONG_I2); +fornext_entrylabel5740: +*_SUB_IDEOBJUPDATE_LONG_I2=fornext_value5740; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative5740){ +if (fornext_value5740fornext_finalvalue5740) break; +} +fornext_error5740:; +if(qbevent){evnt(26070,14518,"ide_methods.bas");if(r)goto S_51930;} +do{ +qbs_set(_SUB_IDEOBJUPDATE_STRING_A2,func_mid(_SUB_IDEOBJUPDATE_STRING_A,*_SUB_IDEOBJUPDATE_LONG_I2, 1 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14519,"ide_methods.bas");}while(r); +S_51932:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_IDEOBJUPDATE_STRING_A2,func_chr( 0 ))))||new_error){ +if(qbevent){evnt(26070,14520,"ide_methods.bas");if(r)goto S_51932;} +do{ +qbs_set(_SUB_IDEOBJUPDATE_STRING_A3,qbs_add(_SUB_IDEOBJUPDATE_STRING_A3,_SUB_IDEOBJUPDATE_STRING_A2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14520,"ide_methods.bas");}while(r); +} +S_51935:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_IDEOBJUPDATE_STRING_A2,func_chr( 0 )))|(-(*_SUB_IDEOBJUPDATE_LONG_I2==_SUB_IDEOBJUPDATE_STRING_A->len))))||new_error){ +if(qbevent){evnt(26070,14521,"ide_methods.bas");if(r)goto S_51935;} +do{ +*_SUB_IDEOBJUPDATE_LONG_X=*_SUB_IDEOBJUPDATE_LONG_X+*_SUB_IDEOBJUPDATE_LONG_SPACING; +if(!qbevent)break;evnt(26070,14523,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEOBJUPDATE_LONG_X2=FUNC_IDEHLEN(_SUB_IDEOBJUPDATE_STRING_A3)+ 4 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14533,"ide_methods.bas");}while(r); +S_51938:; +if (((-(*_SUB_IDEOBJUPDATE_LONG_MX>=*_SUB_IDEOBJUPDATE_LONG_X))&(-(*_SUB_IDEOBJUPDATE_LONG_MX<(*_SUB_IDEOBJUPDATE_LONG_X+*_SUB_IDEOBJUPDATE_LONG_X2))))||new_error){ +if(qbevent){evnt(26070,14534,"ide_methods.bas");if(r)goto S_51938;} +do{ +*_SUB_IDEOBJUPDATE_LONG_INFO=*_SUB_IDEOBJUPDATE_LONG_N2; +if(!qbevent)break;evnt(26070,14534,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEOBJUPDATE_LONG_FOCUS=*_SUB_IDEOBJUPDATE_LONG_F+*_SUB_IDEOBJUPDATE_LONG_N2- 1 ; +if(!qbevent)break;evnt(26070,14534,"ide_methods.bas");}while(r); +} +do{ +*_SUB_IDEOBJUPDATE_LONG_X=*_SUB_IDEOBJUPDATE_LONG_X+*_SUB_IDEOBJUPDATE_LONG_X2; +if(!qbevent)break;evnt(26070,14537,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_IDEOBJUPDATE_STRING_A3,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14538,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEOBJUPDATE_LONG_N2=*_SUB_IDEOBJUPDATE_LONG_N2+ 1 ; +if(!qbevent)break;evnt(26070,14539,"ide_methods.bas");}while(r); +} +fornext_continue_5739:; +} +fornext_exit_5739:; +} +} +S_51949:; +if (((-(*_SUB_IDEOBJUPDATE_LONG_FOCUSOFFSET>= 0 ))&(-(*_SUB_IDEOBJUPDATE_LONG_FOCUSOFFSET<*_SUB_IDEOBJUPDATE_LONG_N)))||new_error){ +if(qbevent){evnt(26070,14546,"ide_methods.bas");if(r)goto S_51949;} +do{ +*_SUB_IDEOBJUPDATE_LONG_F2=*_SUB_IDEOBJUPDATE_LONG_F+*_SUB_IDEOBJUPDATE_LONG_FOCUSOFFSET; +if(!qbevent)break;evnt(26070,14547,"ide_methods.bas");}while(r); +S_51951:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_IDEOBJUPDATE_STRING_KK,func_chr( 13 )))|(qbs_equal(_SUB_IDEOBJUPDATE_STRING_KK,qbs_new_txt_len(" ",1)))))||new_error){ +if(qbevent){evnt(26070,14548,"ide_methods.bas");if(r)goto S_51951;} +do{ +*_SUB_IDEOBJUPDATE_LONG_INFO=*_SUB_IDEOBJUPDATE_LONG_FOCUSOFFSET+ 1 ; +if(!qbevent)break;evnt(26070,14549,"ide_methods.bas");}while(r); +} +} +do{ +*_SUB_IDEOBJUPDATE_LONG_F=*_SUB_IDEOBJUPDATE_LONG_F+*_SUB_IDEOBJUPDATE_LONG_N; +if(!qbevent)break;evnt(26070,14553,"ide_methods.bas");}while(r); +} +S_51957:; +if ((-(*_SUB_IDEOBJUPDATE_LONG_T== 4 ))||new_error){ +if(qbevent){evnt(26070,14556,"ide_methods.bas");if(r)goto S_51957;} +S_51958:; +if ((*_SUB_IDEOBJUPDATE_LONG_MOUSEDOWN)||new_error){ +if(qbevent){evnt(26070,14558,"ide_methods.bas");if(r)goto S_51958;} +do{ +*_SUB_IDEOBJUPDATE_LONG_Y=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(4))+*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(24)); +if(!qbevent)break;evnt(26070,14559,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEOBJUPDATE_LONG_X1=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(0))+*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(20)); +if(!qbevent)break;evnt(26070,14560,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEOBJUPDATE_LONG_X2=*_SUB_IDEOBJUPDATE_LONG_X1+ 2 ; +if(!qbevent)break;evnt(26070,14560,"ide_methods.bas");}while(r); +S_51962:; +if ((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(40)))||new_error){ +if(qbevent){evnt(26070,14561,"ide_methods.bas");if(r)goto S_51962;} +do{ +*_SUB_IDEOBJUPDATE_LONG_X2=*_SUB_IDEOBJUPDATE_LONG_X2+ 1 +FUNC_IDEHLEN(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(40)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14562,"ide_methods.bas");}while(r); +} +S_51965:; +if ((-(*_SUB_IDEOBJUPDATE_LONG_MY==*_SUB_IDEOBJUPDATE_LONG_Y))||new_error){ +if(qbevent){evnt(26070,14564,"ide_methods.bas");if(r)goto S_51965;} +S_51966:; +if (((-(*_SUB_IDEOBJUPDATE_LONG_MX>=*_SUB_IDEOBJUPDATE_LONG_X1))&(-(*_SUB_IDEOBJUPDATE_LONG_MX<=*_SUB_IDEOBJUPDATE_LONG_X2)))||new_error){ +if(qbevent){evnt(26070,14565,"ide_methods.bas");if(r)goto S_51966;} +do{ +*_SUB_IDEOBJUPDATE_LONG_FOCUS=*_SUB_IDEOBJUPDATE_LONG_F; +if(!qbevent)break;evnt(26070,14566,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))+ 1 ; +if(!qbevent)break;evnt(26070,14567,"ide_methods.bas");}while(r); +S_51969:; +if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))> 1 ))||new_error){ +if(qbevent){evnt(26070,14567,"ide_methods.bas");if(r)goto S_51969;} +do{ +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))= 0 ; +if(!qbevent)break;evnt(26070,14567,"ide_methods.bas");}while(r); +} +} +} +} +S_51975:; +if ((-(*_SUB_IDEOBJUPDATE_LONG_FOCUSOFFSET== 0 ))||new_error){ +if(qbevent){evnt(26070,14571,"ide_methods.bas");if(r)goto S_51975;} +S_51976:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDEOBJUPDATE_STRING_KK,(qbs_add(func_chr( 0 ),qbs_new_txt_len("H",1))))))||new_error){ +if(qbevent){evnt(26070,14602,"ide_methods.bas");if(r)goto S_51976;} +do{ +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))= 1 ; +if(!qbevent)break;evnt(26070,14602,"ide_methods.bas");}while(r); +} +S_51979:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDEOBJUPDATE_STRING_KK,(qbs_add(func_chr( 0 ),qbs_new_txt_len("P",1))))))||new_error){ +if(qbevent){evnt(26070,14603,"ide_methods.bas");if(r)goto S_51979;} +do{ +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))= 0 ; +if(!qbevent)break;evnt(26070,14603,"ide_methods.bas");}while(r); +} +S_51982:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDEOBJUPDATE_STRING_KK,qbs_new_txt_len(" ",1))))||new_error){ +if(qbevent){evnt(26070,14604,"ide_methods.bas");if(r)goto S_51982;} +do{ +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))+ 1 ; +if(!qbevent)break;evnt(26070,14605,"ide_methods.bas");}while(r); +S_51984:; +if ((-(*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))> 1 ))||new_error){ +if(qbevent){evnt(26070,14605,"ide_methods.bas");if(r)goto S_51984;} +do{ +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(64))= 0 ; +if(!qbevent)break;evnt(26070,14605,"ide_methods.bas");}while(r); +} +} +} +S_51989:; +if ((qbs_cleanup(qbs_tmp_base,_SUB_IDEOBJUPDATE_STRING_ALTLETTER->len))||new_error){ +if(qbevent){evnt(26070,14610,"ide_methods.bas");if(r)goto S_51989;} +S_51990:; +if ((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(40)))||new_error){ +if(qbevent){evnt(26070,14611,"ide_methods.bas");if(r)goto S_51990;} +do{ +*_SUB_IDEOBJUPDATE_LONG_X=func_instr(NULL,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(40)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])),qbs_new_txt_len("#",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14612,"ide_methods.bas");}while(r); +S_51992:; +if ((*_SUB_IDEOBJUPDATE_LONG_X)||new_error){ +if(qbevent){evnt(26070,14613,"ide_methods.bas");if(r)goto S_51992;} +S_51993:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(40)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])),*_SUB_IDEOBJUPDATE_LONG_X+ 1 , 1 ,0|1)),_SUB_IDEOBJUPDATE_STRING_ALTLETTER)))||new_error){ +if(qbevent){evnt(26070,14614,"ide_methods.bas");if(r)goto S_51993;} +do{ +*_SUB_IDEOBJUPDATE_LONG_FOCUS=*_SUB_IDEOBJUPDATE_LONG_F; +if(!qbevent)break;evnt(26070,14614,"ide_methods.bas");}while(r); +} +} +} +} +do{ +*_SUB_IDEOBJUPDATE_LONG_F=*_SUB_IDEOBJUPDATE_LONG_F+ 1 ; +if(!qbevent)break;evnt(26070,14618,"ide_methods.bas");}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,14621,"ide_methods.bas");}while(r); +LABEL_SELECTCHECK:; +if(qbevent){evnt(26070,14622,"ide_methods.bas");r=0;} +S_52002:; +if ((*__LONG_KSHIFT&(-(*(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(76))== 0 )))||new_error){ +if(qbevent){evnt(26070,14623,"ide_methods.bas");if(r)goto S_52002;} +do{ +*(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(76))= -1 ; +if(!qbevent)break;evnt(26070,14623,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(77))=*(int32*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(81)); +if(!qbevent)break;evnt(26070,14623,"ide_methods.bas");}while(r); +} +S_52006:; +if ((-(*__LONG_KSHIFT== 0 ))||new_error){ +if(qbevent){evnt(26070,14624,"ide_methods.bas");if(r)goto S_52006;} +do{ +*(int8*)(((char*)_SUB_IDEOBJUPDATE_UDT_O)+(76))= 0 ; +if(!qbevent)break;evnt(26070,14624,"ide_methods.bas");}while(r); +} +do{ +#include "ret219.txt" +if(!qbevent)break;evnt(26070,14625,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free219.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +int32 FUNC_IDEVBAR(int32*_FUNC_IDEVBAR_LONG_X,int32*_FUNC_IDEVBAR_LONG_Y,int32*_FUNC_IDEVBAR_LONG_H,int32*_FUNC_IDEVBAR_LONG_I2,int32*_FUNC_IDEVBAR_LONG_N2){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data220.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +*_FUNC_IDEVBAR_LONG_I=*_FUNC_IDEVBAR_LONG_I2; +if(!qbevent)break;evnt(26070,14629,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVBAR_LONG_N=*_FUNC_IDEVBAR_LONG_N2; +if(!qbevent)break;evnt(26070,14629,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,14634,"ide_methods.bas");}while(r); +do{ +sub__printstring(*_FUNC_IDEVBAR_LONG_X,*_FUNC_IDEVBAR_LONG_Y,func_chr( 24 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14635,"ide_methods.bas");}while(r); +do{ +sub__printstring(*_FUNC_IDEVBAR_LONG_X,*_FUNC_IDEVBAR_LONG_Y+*_FUNC_IDEVBAR_LONG_H- 1 ,func_chr( 25 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14636,"ide_methods.bas");}while(r); +S_52015:; +fornext_value5745=*_FUNC_IDEVBAR_LONG_Y+ 1 ; +fornext_finalvalue5745=*_FUNC_IDEVBAR_LONG_Y+*_FUNC_IDEVBAR_LONG_H- 2 ; +fornext_step5745= 1 ; +if (fornext_step5745<0) fornext_step_negative5745=1; else fornext_step_negative5745=0; +if (new_error) goto fornext_error5745; +goto fornext_entrylabel5745; +while(1){ +fornext_value5745=fornext_step5745+(*_FUNC_IDEVBAR_LONG_Y2); +fornext_entrylabel5745: +*_FUNC_IDEVBAR_LONG_Y2=fornext_value5745; +if (fornext_step_negative5745){ +if (fornext_value5745fornext_finalvalue5745) break; +} +fornext_error5745:; +if(qbevent){evnt(26070,14637,"ide_methods.bas");if(r)goto S_52015;} +do{ +sub__printstring(*_FUNC_IDEVBAR_LONG_X,*_FUNC_IDEVBAR_LONG_Y2,func_chr( 176 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14638,"ide_methods.bas");}while(r); +fornext_continue_5744:; +} +fornext_exit_5744:; +S_52018:; +if ((-(*_FUNC_IDEVBAR_LONG_N< 1 ))||new_error){ +if(qbevent){evnt(26070,14643,"ide_methods.bas");if(r)goto S_52018;} +do{ +*_FUNC_IDEVBAR_LONG_N= 1 ; +if(!qbevent)break;evnt(26070,14643,"ide_methods.bas");}while(r); +} +S_52021:; +if ((-(*_FUNC_IDEVBAR_LONG_I< 1 ))||new_error){ +if(qbevent){evnt(26070,14644,"ide_methods.bas");if(r)goto S_52021;} +do{ +*_FUNC_IDEVBAR_LONG_I= 1 ; +if(!qbevent)break;evnt(26070,14644,"ide_methods.bas");}while(r); +} +S_52024:; +if ((-(*_FUNC_IDEVBAR_LONG_I>*_FUNC_IDEVBAR_LONG_N))||new_error){ +if(qbevent){evnt(26070,14645,"ide_methods.bas");if(r)goto S_52024;} +do{ +*_FUNC_IDEVBAR_LONG_I=*_FUNC_IDEVBAR_LONG_N; +if(!qbevent)break;evnt(26070,14645,"ide_methods.bas");}while(r); +} +S_52027:; +if ((-(*_FUNC_IDEVBAR_LONG_H== 2 ))||new_error){ +if(qbevent){evnt(26070,14647,"ide_methods.bas");if(r)goto S_52027;} +do{ +*_FUNC_IDEVBAR_LONG_IDEVBAR=*_FUNC_IDEVBAR_LONG_Y; +if(!qbevent)break;evnt(26070,14648,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,14649,"ide_methods.bas");}while(r); +} +S_52031:; +if ((-(*_FUNC_IDEVBAR_LONG_H== 3 ))||new_error){ +if(qbevent){evnt(26070,14652,"ide_methods.bas");if(r)goto S_52031;} +do{ +*_FUNC_IDEVBAR_LONG_IDEVBAR=*_FUNC_IDEVBAR_LONG_Y+ 1 ; +if(!qbevent)break;evnt(26070,14653,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,14655,"ide_methods.bas");}while(r); +} +S_52035:; +if ((-(*_FUNC_IDEVBAR_LONG_H== 4 ))||new_error){ +if(qbevent){evnt(26070,14658,"ide_methods.bas");if(r)goto S_52035;} +S_52036:; +if ((-(*_FUNC_IDEVBAR_LONG_N== 1 ))||new_error){ +if(qbevent){evnt(26070,14659,"ide_methods.bas");if(r)goto S_52036;} +do{ +*_FUNC_IDEVBAR_LONG_IDEVBAR=*_FUNC_IDEVBAR_LONG_Y+ 1 ; +if(!qbevent)break;evnt(26070,14660,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,14662,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_IDEVBAR_SINGLE_P=(*_FUNC_IDEVBAR_LONG_I- 1 )/ ((long double)((*_FUNC_IDEVBAR_LONG_N- 1 ))); +if(!qbevent)break;evnt(26070,14665,"ide_methods.bas");}while(r); +S_52041:; +if ((-(((float)(*_FUNC_IDEVBAR_SINGLE_P))<((float)( 0.5E+0 ))))||new_error){ +if(qbevent){evnt(26070,14666,"ide_methods.bas");if(r)goto S_52041;} +do{ +*_FUNC_IDEVBAR_LONG_Y2=*_FUNC_IDEVBAR_LONG_Y+ 1 ; +if(!qbevent)break;evnt(26070,14666,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_IDEVBAR_LONG_Y2=*_FUNC_IDEVBAR_LONG_Y+ 2 ; +if(!qbevent)break;evnt(26070,14666,"ide_methods.bas");}while(r); +} +do{ +sub__printstring(*_FUNC_IDEVBAR_LONG_X,*_FUNC_IDEVBAR_LONG_Y2,func_chr( 219 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14667,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVBAR_LONG_IDEVBAR=*_FUNC_IDEVBAR_LONG_Y2; +if(!qbevent)break;evnt(26070,14668,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,14669,"ide_methods.bas");}while(r); +} +} +S_52051:; +if ((-(*_FUNC_IDEVBAR_LONG_H> 4 ))||new_error){ +if(qbevent){evnt(26070,14673,"ide_methods.bas");if(r)goto S_52051;} +S_52052:; +if ((-(*_FUNC_IDEVBAR_LONG_N== 1 ))||new_error){ +if(qbevent){evnt(26070,14674,"ide_methods.bas");if(r)goto S_52052;} +do{ +*_FUNC_IDEVBAR_LONG_IDEVBAR=*_FUNC_IDEVBAR_LONG_Y+(*_FUNC_IDEVBAR_LONG_H/ 4 ); +if(!qbevent)break;evnt(26070,14675,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,14677,"ide_methods.bas");}while(r); +} +S_52056:; +if ((-(*_FUNC_IDEVBAR_LONG_I== 1 ))||new_error){ +if(qbevent){evnt(26070,14679,"ide_methods.bas");if(r)goto S_52056;} +do{ +*_FUNC_IDEVBAR_LONG_Y2=*_FUNC_IDEVBAR_LONG_Y+ 1 ; +if(!qbevent)break;evnt(26070,14680,"ide_methods.bas");}while(r); +do{ +sub__printstring(*_FUNC_IDEVBAR_LONG_X,*_FUNC_IDEVBAR_LONG_Y2,func_chr( 219 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14681,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVBAR_LONG_IDEVBAR=*_FUNC_IDEVBAR_LONG_Y2; +if(!qbevent)break;evnt(26070,14682,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,14683,"ide_methods.bas");}while(r); +} +S_52062:; +if ((-(*_FUNC_IDEVBAR_LONG_I==*_FUNC_IDEVBAR_LONG_N))||new_error){ +if(qbevent){evnt(26070,14685,"ide_methods.bas");if(r)goto S_52062;} +do{ +*_FUNC_IDEVBAR_LONG_Y2=*_FUNC_IDEVBAR_LONG_Y+*_FUNC_IDEVBAR_LONG_H- 2 ; +if(!qbevent)break;evnt(26070,14686,"ide_methods.bas");}while(r); +do{ +sub__printstring(*_FUNC_IDEVBAR_LONG_X,*_FUNC_IDEVBAR_LONG_Y2,func_chr( 219 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14687,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVBAR_LONG_IDEVBAR=*_FUNC_IDEVBAR_LONG_Y2; +if(!qbevent)break;evnt(26070,14688,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,14689,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEVBAR_SINGLE_P=(*_FUNC_IDEVBAR_LONG_I- 1 )/ ((long double)((*_FUNC_IDEVBAR_LONG_N- 1 ))); +if(!qbevent)break;evnt(26070,14692,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVBAR_SINGLE_P=*_FUNC_IDEVBAR_SINGLE_P*(*_FUNC_IDEVBAR_LONG_H- 4 ); +if(!qbevent)break;evnt(26070,14693,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVBAR_LONG_Y2=qbr(*_FUNC_IDEVBAR_LONG_Y+ 2 +floor(*_FUNC_IDEVBAR_SINGLE_P)); +if(!qbevent)break;evnt(26070,14694,"ide_methods.bas");}while(r); +do{ +sub__printstring(*_FUNC_IDEVBAR_LONG_X,*_FUNC_IDEVBAR_LONG_Y2,func_chr( 219 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14695,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEVBAR_LONG_IDEVBAR=*_FUNC_IDEVBAR_LONG_Y2; +if(!qbevent)break;evnt(26070,14696,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,14697,"ide_methods.bas");}while(r); +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free220.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +return *_FUNC_IDEVBAR_LONG_IDEVBAR; +} +void SUB_IDEWAIT(){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data221.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +sub__delay( 0.1E+0 ); +if(!qbevent)break;evnt(26070,14702,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free221.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +qbs* FUNC_IDEZCHANGEPATH(qbs*_FUNC_IDEZCHANGEPATH_STRING_PATH,qbs*_FUNC_IDEZCHANGEPATH_STRING_NEWPATH){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data222.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +qbs_set(_FUNC_IDEZCHANGEPATH_STRING_IDEZCHANGEPATH,_FUNC_IDEZCHANGEPATH_STRING_PATH); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14707,"ide_methods.bas");}while(r); +S_52077:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ +if(qbevent){evnt(26070,14709,"ide_methods.bas");if(r)goto S_52077;} +S_52078:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEZCHANGEPATH_STRING_NEWPATH,qbs_new_txt_len("..",2))))||new_error){ +if(qbevent){evnt(26070,14711,"ide_methods.bas");if(r)goto S_52078;} +S_52079:; +fornext_value5749=_FUNC_IDEZCHANGEPATH_STRING_PATH->len; +fornext_finalvalue5749= 1 ; +fornext_step5749= -1 ; +if (fornext_step5749<0) fornext_step_negative5749=1; else fornext_step_negative5749=0; +if (new_error) goto fornext_error5749; +goto fornext_entrylabel5749; +while(1){ +fornext_value5749=fornext_step5749+(*_FUNC_IDEZCHANGEPATH_LONG_X); +fornext_entrylabel5749: +*_FUNC_IDEZCHANGEPATH_LONG_X=fornext_value5749; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative5749){ +if (fornext_value5749fornext_finalvalue5749) break; +} +fornext_error5749:; +if(qbevent){evnt(26070,14712,"ide_methods.bas");if(r)goto S_52079;} +do{ +qbs_set(_FUNC_IDEZCHANGEPATH_STRING_A,func_mid(_FUNC_IDEZCHANGEPATH_STRING_PATH,*_FUNC_IDEZCHANGEPATH_LONG_X, 1 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14713,"ide_methods.bas");}while(r); +S_52081:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEZCHANGEPATH_STRING_A,qbs_new_txt_len("\\",1))))||new_error){ +if(qbevent){evnt(26070,14714,"ide_methods.bas");if(r)goto S_52081;} +do{ +qbs_set(_FUNC_IDEZCHANGEPATH_STRING_IDEZCHANGEPATH,qbs_left(_FUNC_IDEZCHANGEPATH_STRING_PATH,*_FUNC_IDEZCHANGEPATH_LONG_X- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14715,"ide_methods.bas");}while(r); +do{ +goto fornext_exit_5748; +if(!qbevent)break;evnt(26070,14716,"ide_methods.bas");}while(r); +} +fornext_continue_5748:; +} +fornext_exit_5748:; +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,14719,"ide_methods.bas");}while(r); +} +S_52088:; +if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_IDEZCHANGEPATH_STRING_NEWPATH->len== 2 ))&(qbs_equal(qbs_right(_FUNC_IDEZCHANGEPATH_STRING_NEWPATH, 1 ),qbs_new_txt_len(":",1)))))||new_error){ +if(qbevent){evnt(26070,14722,"ide_methods.bas");if(r)goto S_52088;} +do{ +qbs_set(_FUNC_IDEZCHANGEPATH_STRING_IDEZCHANGEPATH,_FUNC_IDEZCHANGEPATH_STRING_NEWPATH); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14723,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,14724,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDEZCHANGEPATH_STRING_IDEZCHANGEPATH,qbs_add(qbs_add(_FUNC_IDEZCHANGEPATH_STRING_PATH,qbs_new_txt_len("\\",1)),_FUNC_IDEZCHANGEPATH_STRING_NEWPATH)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14726,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,14727,"ide_methods.bas");}while(r); +} +S_52095:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ +if(qbevent){evnt(26070,14730,"ide_methods.bas");if(r)goto S_52095;} +S_52096:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEZCHANGEPATH_STRING_NEWPATH,qbs_new_txt_len("..",2))))||new_error){ +if(qbevent){evnt(26070,14733,"ide_methods.bas");if(r)goto S_52096;} +S_52097:; +fornext_value5753=_FUNC_IDEZCHANGEPATH_STRING_PATH->len; +fornext_finalvalue5753= 1 ; +fornext_step5753= -1 ; +if (fornext_step5753<0) fornext_step_negative5753=1; else fornext_step_negative5753=0; +if (new_error) goto fornext_error5753; +goto fornext_entrylabel5753; +while(1){ +fornext_value5753=fornext_step5753+(*_FUNC_IDEZCHANGEPATH_LONG_X); +fornext_entrylabel5753: +*_FUNC_IDEZCHANGEPATH_LONG_X=fornext_value5753; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative5753){ +if (fornext_value5753fornext_finalvalue5753) break; +} +fornext_error5753:; +if(qbevent){evnt(26070,14734,"ide_methods.bas");if(r)goto S_52097;} +do{ +qbs_set(_FUNC_IDEZCHANGEPATH_STRING_A,func_mid(_FUNC_IDEZCHANGEPATH_STRING_PATH,*_FUNC_IDEZCHANGEPATH_LONG_X, 1 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14735,"ide_methods.bas");}while(r); +S_52099:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEZCHANGEPATH_STRING_A,qbs_new_txt_len("/",1))))||new_error){ +if(qbevent){evnt(26070,14736,"ide_methods.bas");if(r)goto S_52099;} +do{ +qbs_set(_FUNC_IDEZCHANGEPATH_STRING_IDEZCHANGEPATH,qbs_left(_FUNC_IDEZCHANGEPATH_STRING_PATH,*_FUNC_IDEZCHANGEPATH_LONG_X- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14737,"ide_methods.bas");}while(r); +S_52101:; +if ((-(*_FUNC_IDEZCHANGEPATH_LONG_X== 1 ))||new_error){ +if(qbevent){evnt(26070,14738,"ide_methods.bas");if(r)goto S_52101;} +do{ +qbs_set(_FUNC_IDEZCHANGEPATH_STRING_IDEZCHANGEPATH,qbs_new_txt_len("/",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14738,"ide_methods.bas");}while(r); +} +do{ +goto fornext_exit_5752; +if(!qbevent)break;evnt(26070,14739,"ide_methods.bas");}while(r); +} +fornext_continue_5752:; +} +fornext_exit_5752:; +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,14742,"ide_methods.bas");}while(r); +} +S_52109:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEZCHANGEPATH_STRING_PATH,qbs_new_txt_len("/",1))))||new_error){ +if(qbevent){evnt(26070,14744,"ide_methods.bas");if(r)goto S_52109;} +do{ +qbs_set(_FUNC_IDEZCHANGEPATH_STRING_IDEZCHANGEPATH,qbs_add(qbs_new_txt_len("/",1),_FUNC_IDEZCHANGEPATH_STRING_NEWPATH)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14744,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDEZCHANGEPATH_STRING_IDEZCHANGEPATH,qbs_add(qbs_add(_FUNC_IDEZCHANGEPATH_STRING_PATH,qbs_new_txt_len("/",1)),_FUNC_IDEZCHANGEPATH_STRING_NEWPATH)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14744,"ide_methods.bas");}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,14745,"ide_methods.bas");}while(r); +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free222.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_IDEZCHANGEPATH_STRING_IDEZCHANGEPATH);return _FUNC_IDEZCHANGEPATH_STRING_IDEZCHANGEPATH; +} +qbs* FUNC_IDEZFILELIST(qbs*_FUNC_IDEZFILELIST_STRING_PATH,int32*_FUNC_IDEZFILELIST_LONG_METHOD,qbs*_FUNC_IDEZFILELIST_STRING_MASK){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data223.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +if(!qbevent)break;evnt(26070,14751,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEZFILELIST_STRING1_SEP,func_chr( 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14752,"ide_methods.bas");}while(r); +S_52118:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ +if(qbevent){evnt(26070,14754,"ide_methods.bas");if(r)goto S_52118;} +do{ +sub_open(qbs_new_txt_len(".\\internal\\temp\\files.txt",25), 4 ,NULL,NULL, 150 ,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14755,"ide_methods.bas");}while(r); +do{ +sub_close( 150 ,1); +if(!qbevent)break;evnt(26070,14755,"ide_methods.bas");}while(r); +S_52121:; +if ((-(*_FUNC_IDEZFILELIST_LONG_METHOD== 0 ))||new_error){ +if(qbevent){evnt(26070,14756,"ide_methods.bas");if(r)goto S_52121;} +do{ +sub_shell2(qbs_add(qbs_add(qbs_new_txt_len("dir /b /ON /A-D ",16),FUNC_QUOTEDFILENAME(_FUNC_IDEZFILELIST_STRING_PATH)),qbs_new_txt_len("\\*.bas >.\\internal\\temp\\files.txt",33)),2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14756,"ide_methods.bas");}while(r); +} +S_52124:; +if ((-(*_FUNC_IDEZFILELIST_LONG_METHOD== 1 ))||new_error){ +if(qbevent){evnt(26070,14757,"ide_methods.bas");if(r)goto S_52124;} +do{ +sub_shell2(qbs_add(qbs_add(qbs_new_txt_len("dir /b /ON /A-D ",16),FUNC_QUOTEDFILENAME(_FUNC_IDEZFILELIST_STRING_PATH)),qbs_new_txt_len("\\*.* >.\\internal\\temp\\files.txt",31)),2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14757,"ide_methods.bas");}while(r); +} +S_52127:; +if ((-(*_FUNC_IDEZFILELIST_LONG_METHOD== 2 ))||new_error){ +if(qbevent){evnt(26070,14758,"ide_methods.bas");if(r)goto S_52127;} +do{ +sub_shell2(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("dir /b /ON /A-D ",16),FUNC_QUOTEDFILENAME(_FUNC_IDEZFILELIST_STRING_PATH)),qbs_new_txt_len("\\",1)),FUNC_QUOTEDFILENAME(_FUNC_IDEZFILELIST_STRING_MASK)),qbs_new_txt_len(" >.\\internal\\temp\\files.txt",27)),2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14758,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDEZFILELIST_STRING_FILELIST,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14759,"ide_methods.bas");}while(r); +do{ +sub_open(qbs_new_txt_len(".\\internal\\temp\\files.txt",25), 3 ,NULL,NULL, 150 ,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14760,"ide_methods.bas");}while(r); +S_52132:; +while((!(func_eof( 150 )))||new_error){ +if(qbevent){evnt(26070,14761,"ide_methods.bas");if(r)goto S_52132;} +do{ +tmp_fileno= 150 ; +if (new_error) goto skip5758; +sub_file_line_input_string(tmp_fileno,_FUNC_IDEZFILELIST_STRING_A); +if (new_error) goto skip5758; +skip5758: +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14762,"ide_methods.bas");}while(r); +S_52134:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDEZFILELIST_STRING_A->len))||new_error){ +if(qbevent){evnt(26070,14763,"ide_methods.bas");if(r)goto S_52134;} +S_52135:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEZFILELIST_STRING_PATH,qbs_new_txt_len("internal/help",13))))||new_error){ +if(qbevent){evnt(26070,14764,"ide_methods.bas");if(r)goto S_52135;} +do{ +qbs_set(_FUNC_IDEZFILELIST_STRING_A,qbs_add(qbs_left(_FUNC_IDEZFILELIST_STRING_A,(_FUNC_IDEZFILELIST_STRING_A->len- 5 )/ 2 ),qbs_new_txt_len(".txt",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14764,"ide_methods.bas");}while(r); +} +S_52138:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEZFILELIST_STRING_FILELIST,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,14765,"ide_methods.bas");if(r)goto S_52138;} +do{ +qbs_set(_FUNC_IDEZFILELIST_STRING_FILELIST,_FUNC_IDEZFILELIST_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14765,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDEZFILELIST_STRING_FILELIST,qbs_add(qbs_add(_FUNC_IDEZFILELIST_STRING_FILELIST,_FUNC_IDEZFILELIST_STRING1_SEP),_FUNC_IDEZFILELIST_STRING_A)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14765,"ide_methods.bas");}while(r); +} +} +dl_continue_5757:; +} +dl_exit_5757:; +do{ +sub_close( 150 ,1); +if(!qbevent)break;evnt(26070,14768,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEZFILELIST_STRING_IDEZFILELIST,_FUNC_IDEZFILELIST_STRING_FILELIST); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14769,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,14770,"ide_methods.bas");}while(r); +} +S_52149:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ +if(qbevent){evnt(26070,14773,"ide_methods.bas");if(r)goto S_52149;} +do{ +qbs_set(_FUNC_IDEZFILELIST_STRING_FILELIST,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14774,"ide_methods.bas");}while(r); +S_52151:; +if ((-(*_FUNC_IDEZFILELIST_LONG_METHOD== 0 ))||new_error){ +if(qbevent){evnt(26070,14775,"ide_methods.bas");if(r)goto S_52151;} +S_52152:; +fornext_value5762= 1 ; +fornext_finalvalue5762= 2 ; +fornext_step5762= 1 ; +if (fornext_step5762<0) fornext_step_negative5762=1; else fornext_step_negative5762=0; +if (new_error) goto fornext_error5762; +goto fornext_entrylabel5762; +while(1){ +fornext_value5762=fornext_step5762+(*_FUNC_IDEZFILELIST_LONG_I); +fornext_entrylabel5762: +*_FUNC_IDEZFILELIST_LONG_I=fornext_value5762; +if (fornext_step_negative5762){ +if (fornext_value5762fornext_finalvalue5762) break; +} +fornext_error5762:; +if(qbevent){evnt(26070,14776,"ide_methods.bas");if(r)goto S_52152;} +do{ +sub_open(qbs_new_txt_len("./internal/temp/files.txt",25), 4 ,NULL,NULL, 150 ,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14777,"ide_methods.bas");}while(r); +do{ +sub_close( 150 ,1); +if(!qbevent)break;evnt(26070,14777,"ide_methods.bas");}while(r); +S_52155:; +if ((-(*_FUNC_IDEZFILELIST_LONG_I== 1 ))||new_error){ +if(qbevent){evnt(26070,14778,"ide_methods.bas");if(r)goto S_52155;} +do{ +sub_shell2(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("find ",5),FUNC_QUOTEDFILENAME(_FUNC_IDEZFILELIST_STRING_PATH)),qbs_new_txt_len(" -maxdepth 1 -type f -name ",27)),func_chr( 34 )),qbs_new_txt_len("*.bas",5)),func_chr( 34 )),qbs_new_txt_len(" | sort >./internal/temp/files.txt",34)),2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14778,"ide_methods.bas");}while(r); +} +S_52158:; +if ((-(*_FUNC_IDEZFILELIST_LONG_I== 2 ))||new_error){ +if(qbevent){evnt(26070,14779,"ide_methods.bas");if(r)goto S_52158;} +do{ +sub_shell2(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("find ",5),FUNC_QUOTEDFILENAME(_FUNC_IDEZFILELIST_STRING_PATH)),qbs_new_txt_len(" -maxdepth 1 -type f -name ",27)),func_chr( 34 )),qbs_new_txt_len("*.BAS",5)),func_chr( 34 )),qbs_new_txt_len(" | sort >./internal/temp/files.txt",34)),2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14779,"ide_methods.bas");}while(r); +} +do{ +return_point[next_return_point++]=170; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_ADDTOLIST; +RETURN_170:; +if(!qbevent)break;evnt(26070,14780,"ide_methods.bas");}while(r); +fornext_continue_5761:; +} +fornext_exit_5761:; +S_52163:; +}else{ +if (-(*_FUNC_IDEZFILELIST_LONG_METHOD== 1 )){ +if(qbevent){evnt(26070,14782,"ide_methods.bas");if(r)goto S_52163;} +do{ +sub_shell2(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("find ",5),FUNC_QUOTEDFILENAME(_FUNC_IDEZFILELIST_STRING_PATH)),qbs_new_txt_len(" -maxdepth 1 -type f -name ",27)),func_chr( 34 )),qbs_new_txt_len("*",1)),func_chr( 34 )),qbs_new_txt_len(" | sort >./internal/temp/files.txt",34)),2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14783,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=171; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_ADDTOLIST; +RETURN_171:; +if(!qbevent)break;evnt(26070,14784,"ide_methods.bas");}while(r); +S_52166:; +}else{ +if (-(*_FUNC_IDEZFILELIST_LONG_METHOD== 2 )){ +if(qbevent){evnt(26070,14785,"ide_methods.bas");if(r)goto S_52166;} +do{ +sub_shell2(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("find ",5),FUNC_QUOTEDFILENAME(_FUNC_IDEZFILELIST_STRING_PATH)),qbs_new_txt_len(" -maxdepth 1 -type f -name ",27)),func_chr( 34 )),_FUNC_IDEZFILELIST_STRING_MASK),func_chr( 34 )),qbs_new_txt_len(" | sort >./internal/temp/files.txt",34)),2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14786,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=172; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_ADDTOLIST; +RETURN_172:; +if(!qbevent)break;evnt(26070,14787,"ide_methods.bas");}while(r); +} +} +} +do{ +qbs_set(_FUNC_IDEZFILELIST_STRING_IDEZFILELIST,_FUNC_IDEZFILELIST_STRING_FILELIST); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14789,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,14790,"ide_methods.bas");}while(r); +LABEL_ADDTOLIST:; +if(qbevent){evnt(26070,14792,"ide_methods.bas");r=0;} +do{ +sub_open(qbs_new_txt_len("./internal/temp/files.txt",25), 3 ,NULL,NULL, 150 ,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14793,"ide_methods.bas");}while(r); +S_52173:; +while((!(func_eof( 150 )))||new_error){ +if(qbevent){evnt(26070,14794,"ide_methods.bas");if(r)goto S_52173;} +do{ +tmp_fileno= 150 ; +if (new_error) goto skip5764; +sub_file_line_input_string(tmp_fileno,_FUNC_IDEZFILELIST_STRING_A); +if (new_error) goto skip5764; +skip5764: +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14795,"ide_methods.bas");}while(r); +S_52175:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDEZFILELIST_STRING_A->len== 0 )))||new_error){ +if(qbevent){evnt(26070,14796,"ide_methods.bas");if(r)goto S_52175;} +do{ +goto dl_exit_5763; +if(!qbevent)break;evnt(26070,14796,"ide_methods.bas");}while(r); +} +S_52178:; +fornext_value5767=_FUNC_IDEZFILELIST_STRING_A->len; +fornext_finalvalue5767= 1 ; +fornext_step5767= -1 ; +if (fornext_step5767<0) fornext_step_negative5767=1; else fornext_step_negative5767=0; +if (new_error) goto fornext_error5767; +goto fornext_entrylabel5767; +while(1){ +fornext_value5767=fornext_step5767+(*_FUNC_IDEZFILELIST_LONG_X); +fornext_entrylabel5767: +*_FUNC_IDEZFILELIST_LONG_X=fornext_value5767; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative5767){ +if (fornext_value5767fornext_finalvalue5767) break; +} +fornext_error5767:; +if(qbevent){evnt(26070,14797,"ide_methods.bas");if(r)goto S_52178;} +do{ +qbs_set(_FUNC_IDEZFILELIST_STRING_A2,func_mid(_FUNC_IDEZFILELIST_STRING_A,*_FUNC_IDEZFILELIST_LONG_X, 1 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14798,"ide_methods.bas");}while(r); +S_52180:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEZFILELIST_STRING_A2,qbs_new_txt_len("/",1))))||new_error){ +if(qbevent){evnt(26070,14799,"ide_methods.bas");if(r)goto S_52180;} +do{ +qbs_set(_FUNC_IDEZFILELIST_STRING_A,qbs_right(_FUNC_IDEZFILELIST_STRING_A,_FUNC_IDEZFILELIST_STRING_A->len-*_FUNC_IDEZFILELIST_LONG_X)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14800,"ide_methods.bas");}while(r); +do{ +goto fornext_exit_5766; +if(!qbevent)break;evnt(26070,14801,"ide_methods.bas");}while(r); +} +fornext_continue_5766:; +} +fornext_exit_5766:; +S_52185:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEZFILELIST_STRING_PATH,qbs_new_txt_len("internal/help",13))))||new_error){ +if(qbevent){evnt(26070,14804,"ide_methods.bas");if(r)goto S_52185;} +do{ +qbs_set(_FUNC_IDEZFILELIST_STRING_A,qbs_add(qbs_left(_FUNC_IDEZFILELIST_STRING_A,(_FUNC_IDEZFILELIST_STRING_A->len- 5 )/ 2 ),qbs_new_txt_len(".txt",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14804,"ide_methods.bas");}while(r); +} +S_52188:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEZFILELIST_STRING_FILELIST,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,14805,"ide_methods.bas");if(r)goto S_52188;} +do{ +qbs_set(_FUNC_IDEZFILELIST_STRING_FILELIST,_FUNC_IDEZFILELIST_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14805,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDEZFILELIST_STRING_FILELIST,qbs_add(qbs_add(_FUNC_IDEZFILELIST_STRING_FILELIST,_FUNC_IDEZFILELIST_STRING1_SEP),_FUNC_IDEZFILELIST_STRING_A)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14805,"ide_methods.bas");}while(r); +} +dl_continue_5763:; +} +dl_exit_5763:; +do{ +sub_close( 150 ,1); +if(!qbevent)break;evnt(26070,14807,"ide_methods.bas");}while(r); +do{ +#include "ret223.txt" +if(!qbevent)break;evnt(26070,14808,"ide_methods.bas");}while(r); +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free223.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_IDEZFILELIST_STRING_IDEZFILELIST);return _FUNC_IDEZFILELIST_STRING_IDEZFILELIST; +} +qbs* FUNC_IDEZGETROOT(){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data224.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +S_52197:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ +if(qbevent){evnt(26070,14816,"ide_methods.bas");if(r)goto S_52197;} +do{ +sub_shell2(qbs_new_txt_len("cd >.\\internal\\temp\\root.txt",28),2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14817,"ide_methods.bas");}while(r); +do{ +sub_open(qbs_new_txt_len(".\\internal\\temp\\root.txt",24), 3 ,NULL,NULL, 150 ,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14818,"ide_methods.bas");}while(r); +do{ +tmp_fileno= 150 ; +if (new_error) goto skip5771; +sub_file_line_input_string(tmp_fileno,_FUNC_IDEZGETROOT_STRING_A); +if (new_error) goto skip5771; +skip5771: +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14819,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEZGETROOT_STRING_IDEZGETROOT,_FUNC_IDEZGETROOT_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14820,"ide_methods.bas");}while(r); +do{ +sub_close( 150 ,1); +if(!qbevent)break;evnt(26070,14821,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,14822,"ide_methods.bas");}while(r); +}else{ +do{ +sub_shell2(qbs_new_txt_len("pwd >./internal/temp/root.txt",29),2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14824,"ide_methods.bas");}while(r); +do{ +sub_open(qbs_new_txt_len("./internal/temp/root.txt",24), 3 ,NULL,NULL, 150 ,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14825,"ide_methods.bas");}while(r); +do{ +tmp_fileno= 150 ; +if (new_error) goto skip5772; +sub_file_line_input_string(tmp_fileno,_FUNC_IDEZGETROOT_STRING_A); +if (new_error) goto skip5772; +skip5772: +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14826,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEZGETROOT_STRING_IDEZGETROOT,_FUNC_IDEZGETROOT_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14827,"ide_methods.bas");}while(r); +do{ +sub_close( 150 ,1); +if(!qbevent)break;evnt(26070,14828,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,14829,"ide_methods.bas");}while(r); +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free224.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_IDEZGETROOT_STRING_IDEZGETROOT);return _FUNC_IDEZGETROOT_STRING_IDEZGETROOT; +} +qbs* FUNC_IDEZPATHLIST(qbs*_FUNC_IDEZPATHLIST_STRING_PATH){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data225.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +if(!qbevent)break;evnt(26070,14835,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEZPATHLIST_STRING1_SEP,func_chr( 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14836,"ide_methods.bas");}while(r); +S_52214:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ +if(qbevent){evnt(26070,14838,"ide_methods.bas");if(r)goto S_52214;} +do{ +sub_open(qbs_new_txt_len(".\\internal\\temp\\paths.txt",25), 4 ,NULL,NULL, 150 ,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14839,"ide_methods.bas");}while(r); +do{ +sub_close( 150 ,1); +if(!qbevent)break;evnt(26070,14839,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEZPATHLIST_STRING_A,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14840,"ide_methods.bas");}while(r); +S_52218:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_FUNC_IDEZPATHLIST_STRING_PATH, 1 ),qbs_new_txt_len(":",1))))||new_error){ +if(qbevent){evnt(26070,14840,"ide_methods.bas");if(r)goto S_52218;} +do{ +qbs_set(_FUNC_IDEZPATHLIST_STRING_A,qbs_new_txt_len("\\",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14840,"ide_methods.bas");}while(r); +} +do{ +sub_shell2(qbs_add(qbs_add(qbs_new_txt_len("dir /b /ON /AD ",15),FUNC_QUOTEDFILENAME(qbs_add(_FUNC_IDEZPATHLIST_STRING_PATH,_FUNC_IDEZPATHLIST_STRING_A))),qbs_new_txt_len(" >.\\internal\\temp\\paths.txt",27)),2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14841,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEZPATHLIST_STRING_PATHLIST,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14842,"ide_methods.bas");}while(r); +do{ +sub_open(qbs_new_txt_len(".\\internal\\temp\\paths.txt",25), 3 ,NULL,NULL, 150 ,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14843,"ide_methods.bas");}while(r); +S_52224:; +while((!(func_eof( 150 )))||new_error){ +if(qbevent){evnt(26070,14844,"ide_methods.bas");if(r)goto S_52224;} +do{ +tmp_fileno= 150 ; +if (new_error) goto skip5775; +sub_file_line_input_string(tmp_fileno,_FUNC_IDEZPATHLIST_STRING_A); +if (new_error) goto skip5775; +skip5775: +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14845,"ide_methods.bas");}while(r); +S_52226:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEZPATHLIST_STRING_PATHLIST,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,14846,"ide_methods.bas");if(r)goto S_52226;} +do{ +qbs_set(_FUNC_IDEZPATHLIST_STRING_PATHLIST,_FUNC_IDEZPATHLIST_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14846,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDEZPATHLIST_STRING_PATHLIST,qbs_add(qbs_add(_FUNC_IDEZPATHLIST_STRING_PATHLIST,_FUNC_IDEZPATHLIST_STRING1_SEP),_FUNC_IDEZPATHLIST_STRING_A)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14846,"ide_methods.bas");}while(r); +} +dl_continue_5774:; +} +dl_exit_5774:; +do{ +sub_close( 150 ,1); +if(!qbevent)break;evnt(26070,14848,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEZPATHLIST_LONG_C= 0 ; +if(!qbevent)break;evnt(26070,14850,"ide_methods.bas");}while(r); +S_52234:; +fornext_value5777= 1 ; +fornext_finalvalue5777=_FUNC_IDEZPATHLIST_STRING_PATH->len; +fornext_step5777= 1 ; +if (fornext_step5777<0) fornext_step_negative5777=1; else fornext_step_negative5777=0; +if (new_error) goto fornext_error5777; +goto fornext_entrylabel5777; +while(1){ +fornext_value5777=fornext_step5777+(*_FUNC_IDEZPATHLIST_LONG_X); +fornext_entrylabel5777: +*_FUNC_IDEZPATHLIST_LONG_X=fornext_value5777; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative5777){ +if (fornext_value5777fornext_finalvalue5777) break; +} +fornext_error5777:; +if(qbevent){evnt(26070,14851,"ide_methods.bas");if(r)goto S_52234;} +do{ +qbs_set(_FUNC_IDEZPATHLIST_STRING_B,func_mid(_FUNC_IDEZPATHLIST_STRING_PATH,*_FUNC_IDEZPATHLIST_LONG_X, 1 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14852,"ide_methods.bas");}while(r); +S_52236:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEZPATHLIST_STRING_B,__STRING1_IDEPATHSEP)))||new_error){ +if(qbevent){evnt(26070,14853,"ide_methods.bas");if(r)goto S_52236;} +do{ +*_FUNC_IDEZPATHLIST_LONG_C=*_FUNC_IDEZPATHLIST_LONG_C+ 1 ; +if(!qbevent)break;evnt(26070,14853,"ide_methods.bas");}while(r); +} +fornext_continue_5776:; +} +fornext_exit_5776:; +S_52240:; +if ((-(*_FUNC_IDEZPATHLIST_LONG_C>= 1 ))||new_error){ +if(qbevent){evnt(26070,14855,"ide_methods.bas");if(r)goto S_52240;} +S_52241:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDEZPATHLIST_STRING_PATHLIST->len))||new_error){ +if(qbevent){evnt(26070,14856,"ide_methods.bas");if(r)goto S_52241;} +do{ +qbs_set(_FUNC_IDEZPATHLIST_STRING_PATHLIST,qbs_add(qbs_add(qbs_new_txt_len("..",2),_FUNC_IDEZPATHLIST_STRING1_SEP),_FUNC_IDEZPATHLIST_STRING_PATHLIST)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14856,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDEZPATHLIST_STRING_PATHLIST,qbs_new_txt_len("..",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14856,"ide_methods.bas");}while(r); +} +} +do{ +*_FUNC_IDEZPATHLIST_LONG_D=( int32 )logical_drives(); +if(!qbevent)break;evnt(26070,14864,"ide_methods.bas");}while(r); +S_52248:; +fornext_value5781= 0 ; +fornext_finalvalue5781= 25 ; +fornext_step5781= 1 ; +if (fornext_step5781<0) fornext_step_negative5781=1; else fornext_step_negative5781=0; +if (new_error) goto fornext_error5781; +goto fornext_entrylabel5781; +while(1){ +fornext_value5781=fornext_step5781+(*_FUNC_IDEZPATHLIST_LONG_I); +fornext_entrylabel5781: +*_FUNC_IDEZPATHLIST_LONG_I=fornext_value5781; +if (fornext_step_negative5781){ +if (fornext_value5781fornext_finalvalue5781) break; +} +fornext_error5781:; +if(qbevent){evnt(26070,14865,"ide_methods.bas");if(r)goto S_52248;} +S_52249:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(qbs_right(_FUNC_IDEZPATHLIST_STRING_PATHLIST, 1 ),_FUNC_IDEZPATHLIST_STRING1_SEP))&(-(_FUNC_IDEZPATHLIST_STRING_PATHLIST->len> 0 ))))||new_error){ +if(qbevent){evnt(26070,14866,"ide_methods.bas");if(r)goto S_52249;} +do{ +qbs_set(_FUNC_IDEZPATHLIST_STRING_PATHLIST,qbs_add(_FUNC_IDEZPATHLIST_STRING_PATHLIST,_FUNC_IDEZPATHLIST_STRING1_SEP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14866,"ide_methods.bas");}while(r); +} +S_52252:; +if ((func__readbit(*_FUNC_IDEZPATHLIST_LONG_D,*_FUNC_IDEZPATHLIST_LONG_I))||new_error){ +if(qbevent){evnt(26070,14867,"ide_methods.bas");if(r)goto S_52252;} +do{ +qbs_set(_FUNC_IDEZPATHLIST_STRING_PATHLIST,qbs_add(qbs_add(_FUNC_IDEZPATHLIST_STRING_PATHLIST,func_chr( 65 +*_FUNC_IDEZPATHLIST_LONG_I)),qbs_new_txt_len(":",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14868,"ide_methods.bas");}while(r); +} +fornext_continue_5780:; +} +fornext_exit_5780:; +do{ +qbs_set(_FUNC_IDEZPATHLIST_STRING_IDEZPATHLIST,_FUNC_IDEZPATHLIST_STRING_PATHLIST); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14872,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,14873,"ide_methods.bas");}while(r); +} +S_52259:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("LNX",3))))||new_error){ +if(qbevent){evnt(26070,14876,"ide_methods.bas");if(r)goto S_52259;} +do{ +qbs_set(_FUNC_IDEZPATHLIST_STRING_PATHLIST,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14877,"ide_methods.bas");}while(r); +do{ +sub_open(qbs_new_txt_len("./internal/temp/paths.txt",25), 4 ,NULL,NULL, 150 ,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14878,"ide_methods.bas");}while(r); +do{ +sub_close( 150 ,1); +if(!qbevent)break;evnt(26070,14878,"ide_methods.bas");}while(r); +do{ +sub_shell2(qbs_add(qbs_add(qbs_new_txt_len("find ",5),FUNC_QUOTEDFILENAME(_FUNC_IDEZPATHLIST_STRING_PATH)),qbs_new_txt_len(" -maxdepth 1 -mindepth 1 -type d >./internal/temp/paths.txt",59)),2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14879,"ide_methods.bas");}while(r); +do{ +sub_open(qbs_new_txt_len("./internal/temp/paths.txt",25), 3 ,NULL,NULL, 150 ,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14880,"ide_methods.bas");}while(r); +S_52265:; +while((!(func_eof( 150 )))||new_error){ +if(qbevent){evnt(26070,14881,"ide_methods.bas");if(r)goto S_52265;} +do{ +tmp_fileno= 150 ; +if (new_error) goto skip5784; +sub_file_line_input_string(tmp_fileno,_FUNC_IDEZPATHLIST_STRING_A); +if (new_error) goto skip5784; +skip5784: +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14882,"ide_methods.bas");}while(r); +S_52267:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDEZPATHLIST_STRING_A->len== 0 )))||new_error){ +if(qbevent){evnt(26070,14883,"ide_methods.bas");if(r)goto S_52267;} +do{ +goto dl_exit_5783; +if(!qbevent)break;evnt(26070,14883,"ide_methods.bas");}while(r); +} +S_52270:; +fornext_value5787=_FUNC_IDEZPATHLIST_STRING_A->len; +fornext_finalvalue5787= 1 ; +fornext_step5787= -1 ; +if (fornext_step5787<0) fornext_step_negative5787=1; else fornext_step_negative5787=0; +if (new_error) goto fornext_error5787; +goto fornext_entrylabel5787; +while(1){ +fornext_value5787=fornext_step5787+(*_FUNC_IDEZPATHLIST_LONG_X); +fornext_entrylabel5787: +*_FUNC_IDEZPATHLIST_LONG_X=fornext_value5787; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative5787){ +if (fornext_value5787fornext_finalvalue5787) break; +} +fornext_error5787:; +if(qbevent){evnt(26070,14884,"ide_methods.bas");if(r)goto S_52270;} +do{ +qbs_set(_FUNC_IDEZPATHLIST_STRING_A2,func_mid(_FUNC_IDEZPATHLIST_STRING_A,*_FUNC_IDEZPATHLIST_LONG_X, 1 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14885,"ide_methods.bas");}while(r); +S_52272:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEZPATHLIST_STRING_A2,qbs_new_txt_len("/",1))))||new_error){ +if(qbevent){evnt(26070,14886,"ide_methods.bas");if(r)goto S_52272;} +do{ +qbs_set(_FUNC_IDEZPATHLIST_STRING_A,qbs_right(_FUNC_IDEZPATHLIST_STRING_A,_FUNC_IDEZPATHLIST_STRING_A->len-*_FUNC_IDEZPATHLIST_LONG_X)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14887,"ide_methods.bas");}while(r); +do{ +goto fornext_exit_5786; +if(!qbevent)break;evnt(26070,14888,"ide_methods.bas");}while(r); +} +fornext_continue_5786:; +} +fornext_exit_5786:; +S_52277:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEZPATHLIST_STRING_PATHLIST,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,14891,"ide_methods.bas");if(r)goto S_52277;} +do{ +qbs_set(_FUNC_IDEZPATHLIST_STRING_PATHLIST,_FUNC_IDEZPATHLIST_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14891,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDEZPATHLIST_STRING_PATHLIST,qbs_add(qbs_add(_FUNC_IDEZPATHLIST_STRING_PATHLIST,_FUNC_IDEZPATHLIST_STRING1_SEP),_FUNC_IDEZPATHLIST_STRING_A)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14891,"ide_methods.bas");}while(r); +} +dl_continue_5783:; +} +dl_exit_5783:; +do{ +sub_close( 150 ,1); +if(!qbevent)break;evnt(26070,14893,"ide_methods.bas");}while(r); +S_52284:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_IDEZPATHLIST_STRING_PATH,qbs_new_txt_len("/",1))))||new_error){ +if(qbevent){evnt(26070,14895,"ide_methods.bas");if(r)goto S_52284;} +do{ +qbs_set(_FUNC_IDEZPATHLIST_STRING_A,qbs_new_txt_len("..",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14896,"ide_methods.bas");}while(r); +S_52286:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEZPATHLIST_STRING_PATHLIST,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,14898,"ide_methods.bas");if(r)goto S_52286;} +do{ +qbs_set(_FUNC_IDEZPATHLIST_STRING_PATHLIST,_FUNC_IDEZPATHLIST_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14898,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDEZPATHLIST_STRING_PATHLIST,qbs_add(qbs_add(_FUNC_IDEZPATHLIST_STRING_A,_FUNC_IDEZPATHLIST_STRING1_SEP),_FUNC_IDEZPATHLIST_STRING_PATHLIST)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14898,"ide_methods.bas");}while(r); +} +} +do{ +qbs_set(_FUNC_IDEZPATHLIST_STRING_IDEZPATHLIST,_FUNC_IDEZPATHLIST_STRING_PATHLIST); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14901,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,14902,"ide_methods.bas");}while(r); +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free225.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_IDEZPATHLIST_STRING_IDEZPATHLIST);return _FUNC_IDEZPATHLIST_STRING_IDEZPATHLIST; +} +qbs* FUNC_IDEZTAKEPATH(qbs*_FUNC_IDEZTAKEPATH_STRING_F){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data226.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +qbs_set(_FUNC_IDEZTAKEPATH_STRING_P,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14908,"ide_methods.bas");}while(r); +S_52296:; +fornext_value5792=_FUNC_IDEZTAKEPATH_STRING_F->len; +fornext_finalvalue5792= 1 ; +fornext_step5792= -1 ; +if (fornext_step5792<0) fornext_step_negative5792=1; else fornext_step_negative5792=0; +if (new_error) goto fornext_error5792; +goto fornext_entrylabel5792; +while(1){ +fornext_value5792=fornext_step5792+(*_FUNC_IDEZTAKEPATH_LONG_I); +fornext_entrylabel5792: +*_FUNC_IDEZTAKEPATH_LONG_I=fornext_value5792; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative5792){ +if (fornext_value5792fornext_finalvalue5792) break; +} +fornext_error5792:; +if(qbevent){evnt(26070,14910,"ide_methods.bas");if(r)goto S_52296;} +do{ +qbs_set(_FUNC_IDEZTAKEPATH_STRING_A,func_mid(_FUNC_IDEZTAKEPATH_STRING_F,*_FUNC_IDEZTAKEPATH_LONG_I, 1 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14911,"ide_methods.bas");}while(r); +S_52298:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_IDEZTAKEPATH_STRING_A,qbs_new_txt_len("\\",1)))|(qbs_equal(_FUNC_IDEZTAKEPATH_STRING_A,qbs_new_txt_len("/",1)))))||new_error){ +if(qbevent){evnt(26070,14912,"ide_methods.bas");if(r)goto S_52298;} +do{ +qbs_set(_FUNC_IDEZTAKEPATH_STRING_P,qbs_left(_FUNC_IDEZTAKEPATH_STRING_F,*_FUNC_IDEZTAKEPATH_LONG_I- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14913,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEZTAKEPATH_STRING_F,qbs_right(_FUNC_IDEZTAKEPATH_STRING_F,_FUNC_IDEZTAKEPATH_STRING_F->len-*_FUNC_IDEZTAKEPATH_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14914,"ide_methods.bas");}while(r); +do{ +goto fornext_exit_5791; +if(!qbevent)break;evnt(26070,14915,"ide_methods.bas");}while(r); +} +fornext_continue_5791:; +} +fornext_exit_5791:; +do{ +qbs_set(_FUNC_IDEZTAKEPATH_STRING_IDEZTAKEPATH,_FUNC_IDEZTAKEPATH_STRING_P); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14918,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,14919,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free226.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_IDEZTAKEPATH_STRING_IDEZTAKEPATH);return _FUNC_IDEZTAKEPATH_STRING_IDEZTAKEPATH; +} +qbs* FUNC_IDEZGETFILEPATH(qbs*_FUNC_IDEZGETFILEPATH_STRING_ROOT,qbs*_FUNC_IDEZGETFILEPATH_STRING_F){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data227.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +qbs_set(_FUNC_IDEZGETFILEPATH_STRING_P,FUNC_IDEZTAKEPATH(_FUNC_IDEZGETFILEPATH_STRING_F)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14928,"ide_methods.bas");}while(r); +S_52307:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDEZGETFILEPATH_STRING_P->len== 0 )))||new_error){ +if(qbevent){evnt(26070,14931,"ide_methods.bas");if(r)goto S_52307;} +do{ +qbs_set(_FUNC_IDEZGETFILEPATH_STRING_P,_FUNC_IDEZGETFILEPATH_STRING_ROOT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14931,"ide_methods.bas");}while(r); +} +S_52310:; +if ((qbs_cleanup(qbs_tmp_base,func__direxists(qbs_add(qbs_add(_FUNC_IDEZGETFILEPATH_STRING_ROOT,__STRING1_IDEPATHSEP),_FUNC_IDEZGETFILEPATH_STRING_P))))||new_error){ +if(qbevent){evnt(26070,14934,"ide_methods.bas");if(r)goto S_52310;} +do{ +qbs_set(_FUNC_IDEZGETFILEPATH_STRING_P,qbs_add(qbs_add(_FUNC_IDEZGETFILEPATH_STRING_ROOT,__STRING1_IDEPATHSEP),_FUNC_IDEZGETFILEPATH_STRING_P)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14934,"ide_methods.bas");}while(r); +} +do{ +*__LONG_IDEERROR= 4 ; +if(!qbevent)break;evnt(26070,14938,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEZGETFILEPATH_STRING_P2,_FUNC_IDEZGETFILEPATH_STRING_P); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14939,"ide_methods.bas");}while(r); +S_52315:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_OS,qbs_new_txt_len("WIN",3))))||new_error){ +if(qbevent){evnt(26070,14940,"ide_methods.bas");if(r)goto S_52315;} +S_52316:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_FUNC_IDEZGETFILEPATH_STRING_P2, 1 ),qbs_new_txt_len(":",1))))||new_error){ +if(qbevent){evnt(26070,14941,"ide_methods.bas");if(r)goto S_52316;} +do{ +qbs_set(_FUNC_IDEZGETFILEPATH_STRING_P2,qbs_add(_FUNC_IDEZGETFILEPATH_STRING_P2,qbs_new_txt_len("\\",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14941,"ide_methods.bas");}while(r); +} +} +S_52320:; +if ((qbs_cleanup(qbs_tmp_base,-(func__direxists(_FUNC_IDEZGETFILEPATH_STRING_P2)== 0 )))||new_error){ +if(qbevent){evnt(26070,14943,"ide_methods.bas");if(r)goto S_52320;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,14943,"ide_methods.bas");}while(r); +} +do{ +sub_chdir(_FUNC_IDEZGETFILEPATH_STRING_P2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14945,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEERROR= 1 ; +if(!qbevent)break;evnt(26070,14946,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEZGETFILEPATH_STRING_P,func__cwd()); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14948,"ide_methods.bas");}while(r); +do{ +sub_chdir(__STRING_IDEROOT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14950,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEZGETFILEPATH_STRING_IDEZGETFILEPATH,_FUNC_IDEZGETFILEPATH_STRING_P); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14952,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free227.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_IDEZGETFILEPATH_STRING_IDEZGETFILEPATH);return _FUNC_IDEZGETFILEPATH_STRING_IDEZGETFILEPATH; +} +int32 FUNC_IDELAYOUTBOX(){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data228.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +sub_pcopy( 0 , 2 ); +if(!qbevent)break;evnt(26070,14958,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 0 , 1 ); +if(!qbevent)break;evnt(26070,14959,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,14960,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDELAYOUTBOX_LONG_FOCUS= 1 ; +if(!qbevent)break;evnt(26070,14961,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26070,14962,"ide_methods.bas");}while(r); +do{ if (_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[2]&2){ error(10); @@ -176502,1079 +176502,1079 @@ if (!_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0]) error(257); } _FUNC_IDELAYOUTBOX_ARRAY_UDT_O[2]|=1; } -} -if(!qbevent)break;evnt(26070,14963,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(26070,14964,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDELAYOUTBOX_STRING1_SEP,func_chr( 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14965,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDELAYOUTBOX_LONG_I= 0 ; -if(!qbevent)break;evnt(26070,14969,"ide_methods.bas");}while(r); -do{ -SUB_IDEPAR((void*)( ((char*)(_FUNC_IDELAYOUTBOX_UDT_P)) + (0) ),&(pass5798= 60 ),&(pass5799= 9 ),qbs_new_txt_len("Code Layout",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14970,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDELAYOUTBOX_LONG_I=*_FUNC_IDELAYOUTBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,14972,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDELAYOUTBOX_LONG_IDEAUTOLAYOUTID=*_FUNC_IDELAYOUTBOX_LONG_I; -if(!qbevent)break;evnt(26070,14973,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+36))= 4 ; -if(!qbevent)break;evnt(26070,14974,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+24))= 2 ; -if(!qbevent)break;evnt(26070,14975,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Auto Spacing & Upper/Lowercase Formatting",42)); -if(!qbevent)break;evnt(26070,14976,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+64))=*__LONG_IDEAUTOLAYOUT; -if(!qbevent)break;evnt(26070,14977,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDELAYOUTBOX_LONG_I=*_FUNC_IDELAYOUTBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,14979,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDELAYOUTBOX_LONG_IDEAUTOLAYOUTKWCAPITALSID=*_FUNC_IDELAYOUTBOX_LONG_I; -if(!qbevent)break;evnt(26070,14980,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+36))= 4 ; -if(!qbevent)break;evnt(26070,14981,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+24))= 3 ; -if(!qbevent)break;evnt(26070,14982,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+20))= 6 ; -if(!qbevent)break;evnt(26070,14983,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Keywords in CAPITALS",21)); -if(!qbevent)break;evnt(26070,14984,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+64))=*__BYTE_IDEAUTOLAYOUTKWCAPITALS; -if(!qbevent)break;evnt(26070,14985,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDELAYOUTBOX_LONG_I=*_FUNC_IDELAYOUTBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,14987,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDELAYOUTBOX_LONG_IDEAUTOINDENTID=*_FUNC_IDELAYOUTBOX_LONG_I; -if(!qbevent)break;evnt(26070,14988,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+36))= 4 ; -if(!qbevent)break;evnt(26070,14989,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+24))= 5 ; -if(!qbevent)break;evnt(26070,14990,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("Auto #Indent -",14)); -if(!qbevent)break;evnt(26070,14991,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+64))=*__LONG_IDEAUTOINDENT; -if(!qbevent)break;evnt(26070,14992,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDELAYOUTBOX_STRING_A2,FUNC_STR2(__LONG_IDEAUTOINDENTSIZE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14994,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDELAYOUTBOX_LONG_I=*_FUNC_IDELAYOUTBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,14995,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDELAYOUTBOX_LONG_IDEAUTOINDENTSIZEID=*_FUNC_IDELAYOUTBOX_LONG_I; -if(!qbevent)break;evnt(26070,14996,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+36))= 1 ; -if(!qbevent)break;evnt(26070,14997,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+20))= 20 ; -if(!qbevent)break;evnt(26070,14998,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+24))= 5 ; -if(!qbevent)break;evnt(26070,14999,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Spacing",8)); -if(!qbevent)break;evnt(26070,15000,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDELAYOUTBOX_STRING_A2); -if(!qbevent)break;evnt(26070,15001,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+81))=_FUNC_IDELAYOUTBOX_STRING_A2->len; -if(!qbevent)break;evnt(26070,15002,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDELAYOUTBOX_LONG_I=*_FUNC_IDELAYOUTBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,15004,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDELAYOUTBOX_LONG_IDEINDENTSUBSID=*_FUNC_IDELAYOUTBOX_LONG_I; -if(!qbevent)break;evnt(26070,15005,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+36))= 4 ; -if(!qbevent)break;evnt(26070,15006,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+20))= 6 ; -if(!qbevent)break;evnt(26070,15007,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+24))= 7 ; -if(!qbevent)break;evnt(26070,15008,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("Indent SUBs and #FUNCTIONs",26)); -if(!qbevent)break;evnt(26070,15009,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+64))=*__LONG_IDEINDENTSUBS; -if(!qbevent)break;evnt(26070,15010,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDELAYOUTBOX_LONG_I=*_FUNC_IDELAYOUTBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,15012,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDELAYOUTBOX_LONG_BUTTONSID=*_FUNC_IDELAYOUTBOX_LONG_I; -if(!qbevent)break;evnt(26070,15013,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+36))= 3 ; -if(!qbevent)break;evnt(26070,15014,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+24))= 9 ; -if(!qbevent)break;evnt(26070,15015,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_new_txt_len("#OK",3),_FUNC_IDELAYOUTBOX_STRING1_SEP),qbs_new_txt_len("#Cancel",7))); -if(!qbevent)break;evnt(26070,15016,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+48))= 1 ; -if(!qbevent)break;evnt(26070,15017,"ide_methods.bas");}while(r); -S_52379:; -fornext_value5802= 1 ; -fornext_finalvalue5802= 100 ; -fornext_step5802= 1 ; -if (fornext_step5802<0) fornext_step_negative5802=1; else fornext_step_negative5802=0; -if (new_error) goto fornext_error5802; -goto fornext_entrylabel5802; -while(1){ -fornext_value5802=fornext_step5802+(*_FUNC_IDELAYOUTBOX_LONG_I); -fornext_entrylabel5802: -*_FUNC_IDELAYOUTBOX_LONG_I=fornext_value5802; -if (fornext_step_negative5802){ -if (fornext_value5802fornext_finalvalue5802) break; -} -fornext_error5802:; -if(qbevent){evnt(26070,15021,"ide_methods.bas");if(r)goto S_52379;} -do{ -memcpy(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89)+ 0,((char*)_FUNC_IDELAYOUTBOX_UDT_P)+(0)+ 0, 20); -if(!qbevent)break;evnt(26070,15021,"ide_methods.bas");}while(r); -fornext_continue_5801:; -} -fornext_exit_5801:; -S_52382:; -do{ -if(qbevent){evnt(26070,15024,"ide_methods.bas");if(r)goto S_52382;} -do{ -SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDELAYOUTBOX_UDT_P)) + (0) )); -if(!qbevent)break;evnt(26070,15028,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDELAYOUTBOX_LONG_F= 1 ; -if(!qbevent)break;evnt(26070,15029,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDELAYOUTBOX_LONG_CX= 0 ; -if(!qbevent)break;evnt(26070,15029,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDELAYOUTBOX_LONG_CY= 0 ; -if(!qbevent)break;evnt(26070,15029,"ide_methods.bas");}while(r); -S_52387:; -fornext_value5805= 1 ; -fornext_finalvalue5805= 100 ; -fornext_step5805= 1 ; -if (fornext_step5805<0) fornext_step_negative5805=1; else fornext_step_negative5805=0; -if (new_error) goto fornext_error5805; -goto fornext_entrylabel5805; -while(1){ -fornext_value5805=fornext_step5805+(*_FUNC_IDELAYOUTBOX_LONG_I); -fornext_entrylabel5805: -*_FUNC_IDELAYOUTBOX_LONG_I=fornext_value5805; -if (fornext_step_negative5805){ -if (fornext_value5805fornext_finalvalue5805) break; -} -fornext_error5805:; -if(qbevent){evnt(26070,15030,"ide_methods.bas");if(r)goto S_52387;} -S_52388:; -if ((*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+36)))||new_error){ -if(qbevent){evnt(26070,15031,"ide_methods.bas");if(r)goto S_52388;} -do{ -*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+60))=*_FUNC_IDELAYOUTBOX_LONG_FOCUS-*_FUNC_IDELAYOUTBOX_LONG_F; -if(!qbevent)break;evnt(26070,15034,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+52))= 0 ; -if(!qbevent)break;evnt(26070,15035,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+56))= 0 ; -if(!qbevent)break;evnt(26070,15035,"ide_methods.bas");}while(r); -do{ -SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDELAYOUTBOX_LONG_F); -if(!qbevent)break;evnt(26070,15036,"ide_methods.bas");}while(r); -S_52393:; -if ((*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+52)))||new_error){ -if(qbevent){evnt(26070,15037,"ide_methods.bas");if(r)goto S_52393;} -do{ -*_FUNC_IDELAYOUTBOX_LONG_CX=*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+52)); -if(!qbevent)break;evnt(26070,15037,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDELAYOUTBOX_LONG_CY=*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+56)); -if(!qbevent)break;evnt(26070,15037,"ide_methods.bas");}while(r); -} -} -fornext_continue_5804:; -} -fornext_exit_5804:; -do{ -*_FUNC_IDELAYOUTBOX_LONG_LASTFOCUS=*_FUNC_IDELAYOUTBOX_LONG_F- 1 ; -if(!qbevent)break;evnt(26070,15040,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 1 , 0 ); -if(!qbevent)break;evnt(26070,15047,"ide_methods.bas");}while(r); -S_52401:; -if ((*_FUNC_IDELAYOUTBOX_LONG_CX)||new_error){ -if(qbevent){evnt(26070,15048,"ide_methods.bas");if(r)goto S_52401;} -do{ -qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,15048,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*_FUNC_IDELAYOUTBOX_LONG_CY,*_FUNC_IDELAYOUTBOX_LONG_CX, 1 ,NULL,NULL,7); -if(!qbevent)break;evnt(26070,15048,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,15048,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDELAYOUTBOX_LONG_CHANGE= 0 ; -if(!qbevent)break;evnt(26070,15051,"ide_methods.bas");}while(r); -S_52407:; -do{ -if(qbevent){evnt(26070,15052,"ide_methods.bas");if(r)goto S_52407;} -do{ -SUB_GETINPUT(); -if(!qbevent)break;evnt(26070,15053,"ide_methods.bas");}while(r); -S_52409:; -if ((*__LONG_MWHEEL)||new_error){ -if(qbevent){evnt(26070,15054,"ide_methods.bas");if(r)goto S_52409;} -do{ -*_FUNC_IDELAYOUTBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,15054,"ide_methods.bas");}while(r); -} -S_52412:; -if ((*__LONG_KB)||new_error){ -if(qbevent){evnt(26070,15055,"ide_methods.bas");if(r)goto S_52412;} -do{ -*_FUNC_IDELAYOUTBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,15055,"ide_methods.bas");}while(r); -} -S_52415:; -if ((*__LONG_MCLICK)||new_error){ -if(qbevent){evnt(26070,15056,"ide_methods.bas");if(r)goto S_52415;} -do{ -*_FUNC_IDELAYOUTBOX_LONG_MOUSEDOWN= 1 ; -if(!qbevent)break;evnt(26070,15056,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDELAYOUTBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,15056,"ide_methods.bas");}while(r); -} -S_52419:; -if ((*__LONG_MRELEASE)||new_error){ -if(qbevent){evnt(26070,15057,"ide_methods.bas");if(r)goto S_52419;} -do{ -*_FUNC_IDELAYOUTBOX_LONG_MOUSEUP= 1 ; -if(!qbevent)break;evnt(26070,15057,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDELAYOUTBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,15057,"ide_methods.bas");}while(r); -} -S_52423:; -if ((*__LONG_MB)||new_error){ -if(qbevent){evnt(26070,15058,"ide_methods.bas");if(r)goto S_52423;} -do{ -*_FUNC_IDELAYOUTBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,15058,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDELAYOUTBOX_LONG_ALT=*__LONG_KALT; -if(!qbevent)break;evnt(26070,15059,"ide_methods.bas");}while(r); -S_52427:; -if ((-(*_FUNC_IDELAYOUTBOX_LONG_ALT!=*_FUNC_IDELAYOUTBOX_LONG_OLDALT))||new_error){ -if(qbevent){evnt(26070,15059,"ide_methods.bas");if(r)goto S_52427;} -do{ -*_FUNC_IDELAYOUTBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,15059,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDELAYOUTBOX_LONG_OLDALT=*_FUNC_IDELAYOUTBOX_LONG_ALT; -if(!qbevent)break;evnt(26070,15060,"ide_methods.bas");}while(r); -do{ -sub__limit( 100 ); -if(!qbevent)break;evnt(26070,15061,"ide_methods.bas");}while(r); -S_52432:; -dl_continue_5806:; -}while((!(*_FUNC_IDELAYOUTBOX_LONG_CHANGE))&&(!new_error)); -dl_exit_5806:; -if(qbevent){evnt(26070,15062,"ide_methods.bas");if(r)goto S_52432;} -S_52433:; -if ((*_FUNC_IDELAYOUTBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(26070,15063,"ide_methods.bas");if(r)goto S_52433;} -do{ -*__LONG_IDEHL= 1 ; -if(!qbevent)break;evnt(26070,15063,"ide_methods.bas");}while(r); -}else{ -do{ -*__LONG_IDEHL= 0 ; -if(!qbevent)break;evnt(26070,15063,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDELAYOUTBOX_STRING_ALTLETTER,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15065,"ide_methods.bas");}while(r); -S_52439:; -if ((*_FUNC_IDELAYOUTBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(26070,15066,"ide_methods.bas");if(r)goto S_52439;} -S_52440:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ -if(qbevent){evnt(26070,15067,"ide_methods.bas");if(r)goto S_52440;} -do{ -*_FUNC_IDELAYOUTBOX_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15068,"ide_methods.bas");}while(r); -S_52442:; -if (((-(*_FUNC_IDELAYOUTBOX_LONG_K>= 65 ))&(-(*_FUNC_IDELAYOUTBOX_LONG_K<= 90 )))||new_error){ -if(qbevent){evnt(26070,15069,"ide_methods.bas");if(r)goto S_52442;} -do{ -qbs_set(_FUNC_IDELAYOUTBOX_STRING_ALTLETTER,func_chr(*_FUNC_IDELAYOUTBOX_LONG_K)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15069,"ide_methods.bas");}while(r); -} -} -} -do{ -qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,15072,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); -if(!qbevent)break;evnt(26070,15072,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,15072,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDELAYOUTBOX_LONG_INFO= 0 ; -if(!qbevent)break;evnt(26070,15076,"ide_methods.bas");}while(r); -S_52451:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,15077,"ide_methods.bas");if(r)goto S_52451;} -do{ -qbs_set(__STRING_K,func_chr( 255 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15077,"ide_methods.bas");}while(r); -} -S_52454:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ -if(qbevent){evnt(26070,15078,"ide_methods.bas");if(r)goto S_52454;} -do{ -*_FUNC_IDELAYOUTBOX_LONG_FOCUS=*_FUNC_IDELAYOUTBOX_LONG_FOCUS+ 1 ; -if(!qbevent)break;evnt(26070,15078,"ide_methods.bas");}while(r); -} -S_52457:; -if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||new_error){ -if(qbevent){evnt(26070,15079,"ide_methods.bas");if(r)goto S_52457;} -do{ -*_FUNC_IDELAYOUTBOX_LONG_FOCUS=*_FUNC_IDELAYOUTBOX_LONG_FOCUS- 1 ; -if(!qbevent)break;evnt(26070,15079,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_K,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15079,"ide_methods.bas");}while(r); -} -S_52461:; -if ((-(*_FUNC_IDELAYOUTBOX_LONG_FOCUS< 1 ))||new_error){ -if(qbevent){evnt(26070,15080,"ide_methods.bas");if(r)goto S_52461;} -do{ -*_FUNC_IDELAYOUTBOX_LONG_FOCUS=*_FUNC_IDELAYOUTBOX_LONG_LASTFOCUS; -if(!qbevent)break;evnt(26070,15080,"ide_methods.bas");}while(r); -} -S_52464:; -if ((-(*_FUNC_IDELAYOUTBOX_LONG_FOCUS>*_FUNC_IDELAYOUTBOX_LONG_LASTFOCUS))||new_error){ -if(qbevent){evnt(26070,15081,"ide_methods.bas");if(r)goto S_52464;} -do{ -*_FUNC_IDELAYOUTBOX_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(26070,15081,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDELAYOUTBOX_LONG_F= 1 ; -if(!qbevent)break;evnt(26070,15082,"ide_methods.bas");}while(r); -S_52468:; -fornext_value5809= 1 ; -fornext_finalvalue5809= 100 ; -fornext_step5809= 1 ; -if (fornext_step5809<0) fornext_step_negative5809=1; else fornext_step_negative5809=0; -if (new_error) goto fornext_error5809; -goto fornext_entrylabel5809; -while(1){ -fornext_value5809=fornext_step5809+(*_FUNC_IDELAYOUTBOX_LONG_I); -fornext_entrylabel5809: -*_FUNC_IDELAYOUTBOX_LONG_I=fornext_value5809; -if (fornext_step_negative5809){ -if (fornext_value5809fornext_finalvalue5809) break; -} -fornext_error5809:; -if(qbevent){evnt(26070,15083,"ide_methods.bas");if(r)goto S_52468;} -do{ -*_FUNC_IDELAYOUTBOX_LONG_T=*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+36)); -if(!qbevent)break;evnt(26070,15084,"ide_methods.bas");}while(r); -S_52470:; -if ((*_FUNC_IDELAYOUTBOX_LONG_T)||new_error){ -if(qbevent){evnt(26070,15085,"ide_methods.bas");if(r)goto S_52470;} -do{ -*_FUNC_IDELAYOUTBOX_LONG_FOCUSOFFSET=*_FUNC_IDELAYOUTBOX_LONG_FOCUS-*_FUNC_IDELAYOUTBOX_LONG_F; -if(!qbevent)break;evnt(26070,15086,"ide_methods.bas");}while(r); -do{ -SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDELAYOUTBOX_LONG_FOCUS,_FUNC_IDELAYOUTBOX_LONG_F,_FUNC_IDELAYOUTBOX_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDELAYOUTBOX_STRING_ALTLETTER,__LONG_MB,_FUNC_IDELAYOUTBOX_LONG_MOUSEDOWN,_FUNC_IDELAYOUTBOX_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDELAYOUTBOX_LONG_INFO,__LONG_MWHEEL); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15087,"ide_methods.bas");}while(r); -} -fornext_continue_5808:; -} -fornext_exit_5808:; -S_52475:; -if ((-(*_FUNC_IDELAYOUTBOX_LONG_FOCUS!=*_FUNC_IDELAYOUTBOX_LONG_PREVFOCUS))||new_error){ -if(qbevent){evnt(26070,15093,"ide_methods.bas");if(r)goto S_52475;} -do{ -*_FUNC_IDELAYOUTBOX_LONG_PREVFOCUS=*_FUNC_IDELAYOUTBOX_LONG_FOCUS; -if(!qbevent)break;evnt(26070,15095,"ide_methods.bas");}while(r); -S_52477:; -if ((-(*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_FOCUS)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+36))== 1 ))||new_error){ -if(qbevent){evnt(26070,15096,"ide_methods.bas");if(r)goto S_52477;} -do{ -*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_FOCUS)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_FOCUS)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; -if(!qbevent)break;evnt(26070,15097,"ide_methods.bas");}while(r); -S_52479:; -if ((-(*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_FOCUS)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+81))> 0 ))||new_error){ -if(qbevent){evnt(26070,15098,"ide_methods.bas");if(r)goto S_52479;} -do{ -*(int8*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_FOCUS)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+76))= -1 ; -if(!qbevent)break;evnt(26070,15098,"ide_methods.bas");}while(r); -} -do{ -*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_FOCUS)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+77))= 0 ; -if(!qbevent)break;evnt(26070,15099,"ide_methods.bas");}while(r); -} -} -do{ -qbs_set(_FUNC_IDELAYOUTBOX_STRING_A,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_IDEAUTOINDENTSIZEID)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15103,"ide_methods.bas");}while(r); -S_52486:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDELAYOUTBOX_STRING_A->len> 2 )))||new_error){ -if(qbevent){evnt(26070,15104,"ide_methods.bas");if(r)goto S_52486;} -do{ -qbs_set(_FUNC_IDELAYOUTBOX_STRING_A,qbs_left(_FUNC_IDELAYOUTBOX_STRING_A, 2 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15104,"ide_methods.bas");}while(r); -} -S_52489:; -fornext_value5813= 1 ; -fornext_finalvalue5813=_FUNC_IDELAYOUTBOX_STRING_A->len; -fornext_step5813= 1 ; -if (fornext_step5813<0) fornext_step_negative5813=1; else fornext_step_negative5813=0; -if (new_error) goto fornext_error5813; -goto fornext_entrylabel5813; -while(1){ -fornext_value5813=fornext_step5813+(*_FUNC_IDELAYOUTBOX_LONG_I); -fornext_entrylabel5813: -*_FUNC_IDELAYOUTBOX_LONG_I=fornext_value5813; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative5813){ -if (fornext_value5813fornext_finalvalue5813) break; -} -fornext_error5813:; -if(qbevent){evnt(26070,15105,"ide_methods.bas");if(r)goto S_52489;} -do{ -*_FUNC_IDELAYOUTBOX_LONG_A=qbs_asc(_FUNC_IDELAYOUTBOX_STRING_A,*_FUNC_IDELAYOUTBOX_LONG_I); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15106,"ide_methods.bas");}while(r); -S_52491:; -if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_IDELAYOUTBOX_LONG_I== 2 ))&(-(qbs_asc(_FUNC_IDELAYOUTBOX_STRING_A, 1 )== 48 ))))||new_error){ -if(qbevent){evnt(26070,15107,"ide_methods.bas");if(r)goto S_52491;} -do{ -qbs_set(_FUNC_IDELAYOUTBOX_STRING_A,qbs_new_txt_len("0",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15107,"ide_methods.bas");}while(r); -do{ -goto fornext_exit_5812; -if(!qbevent)break;evnt(26070,15107,"ide_methods.bas");}while(r); -} -S_52495:; -if (((-(*_FUNC_IDELAYOUTBOX_LONG_A< 48 ))|(-(*_FUNC_IDELAYOUTBOX_LONG_A> 57 )))||new_error){ -if(qbevent){evnt(26070,15108,"ide_methods.bas");if(r)goto S_52495;} -do{ -qbs_set(_FUNC_IDELAYOUTBOX_STRING_A,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15108,"ide_methods.bas");}while(r); -do{ -goto fornext_exit_5812; -if(!qbevent)break;evnt(26070,15108,"ide_methods.bas");}while(r); -} -fornext_continue_5812:; -} -fornext_exit_5812:; -S_52500:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDELAYOUTBOX_STRING_A->len))||new_error){ -if(qbevent){evnt(26070,15110,"ide_methods.bas");if(r)goto S_52500;} -do{ -*_FUNC_IDELAYOUTBOX_LONG_A=qbr(func_val(_FUNC_IDELAYOUTBOX_STRING_A)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15111,"ide_methods.bas");}while(r); -S_52502:; -if ((-(*_FUNC_IDELAYOUTBOX_LONG_A> 64 ))||new_error){ -if(qbevent){evnt(26070,15112,"ide_methods.bas");if(r)goto S_52502;} -do{ -qbs_set(_FUNC_IDELAYOUTBOX_STRING_A,qbs_new_txt_len("64",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15112,"ide_methods.bas");}while(r); -} -} -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_IDEAUTOINDENTSIZEID)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDELAYOUTBOX_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15114,"ide_methods.bas");}while(r); -S_52507:; -if (((-(*_FUNC_IDELAYOUTBOX_LONG_FOCUS==*_FUNC_IDELAYOUTBOX_LONG_IDEAUTOLAYOUTKWCAPITALSID))&(-(*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_IDEAUTOLAYOUTKWCAPITALSID)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+64))== 1 )))||new_error){ -if(qbevent){evnt(26070,15116,"ide_methods.bas");if(r)goto S_52507;} -do{ -*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_IDEAUTOLAYOUTID)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+64))= 1 ; -if(!qbevent)break;evnt(26070,15117,"ide_methods.bas");}while(r); -} -S_52510:; -if (((-(*_FUNC_IDELAYOUTBOX_LONG_FOCUS==*_FUNC_IDELAYOUTBOX_LONG_IDEINDENTSUBSID))&(-(*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_IDEINDENTSUBSID)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+64))== 1 )))||new_error){ -if(qbevent){evnt(26070,15120,"ide_methods.bas");if(r)goto S_52510;} -do{ -*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_IDEAUTOINDENTID)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+64))= 1 ; -if(!qbevent)break;evnt(26070,15121,"ide_methods.bas");}while(r); -} -S_52513:; -if ((-(*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_IDEAUTOLAYOUTID)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+64))== 0 ))||new_error){ -if(qbevent){evnt(26070,15124,"ide_methods.bas");if(r)goto S_52513;} -do{ -*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_IDEAUTOLAYOUTKWCAPITALSID)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+64))= 0 ; -if(!qbevent)break;evnt(26070,15124,"ide_methods.bas");}while(r); -} -S_52516:; -if ((-(*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_IDEAUTOINDENTID)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+64))== 0 ))||new_error){ -if(qbevent){evnt(26070,15125,"ide_methods.bas");if(r)goto S_52516;} -do{ -*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_IDEINDENTSUBSID)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+64))= 0 ; -if(!qbevent)break;evnt(26070,15125,"ide_methods.bas");}while(r); -} -S_52519:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 27 )))|(((-(*_FUNC_IDELAYOUTBOX_LONG_FOCUS==(*_FUNC_IDELAYOUTBOX_LONG_BUTTONSID+ 1 )))&(-(*_FUNC_IDELAYOUTBOX_LONG_INFO!= 0 ))))))||new_error){ -if(qbevent){evnt(26070,15127,"ide_methods.bas");if(r)goto S_52519;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,15127,"ide_methods.bas");}while(r); -} -S_52522:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 13 )))|(((-(*_FUNC_IDELAYOUTBOX_LONG_FOCUS==*_FUNC_IDELAYOUTBOX_LONG_BUTTONSID))&(-(*_FUNC_IDELAYOUTBOX_LONG_INFO!= 0 ))))))||new_error){ -if(qbevent){evnt(26070,15128,"ide_methods.bas");if(r)goto S_52522;} -do{ -*_FUNC_IDELAYOUTBOX_INTEGER_V=*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_IDEAUTOLAYOUTID)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+64)); -if(!qbevent)break;evnt(26070,15130,"ide_methods.bas");}while(r); -S_52524:; -if ((-(*_FUNC_IDELAYOUTBOX_INTEGER_V!= 0 ))||new_error){ -if(qbevent){evnt(26070,15130,"ide_methods.bas");if(r)goto S_52524;} -do{ -*_FUNC_IDELAYOUTBOX_INTEGER_V= 1 ; -if(!qbevent)break;evnt(26070,15130,"ide_methods.bas");}while(r); -} -S_52527:; -if ((-(*__LONG_IDEAUTOLAYOUT!=*_FUNC_IDELAYOUTBOX_INTEGER_V))||new_error){ -if(qbevent){evnt(26070,15131,"ide_methods.bas");if(r)goto S_52527;} -do{ -*__LONG_IDEAUTOLAYOUT=*_FUNC_IDELAYOUTBOX_INTEGER_V; -if(!qbevent)break;evnt(26070,15131,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDELAYOUTBOX_LONG_IDELAYOUTBOX= 1 ; -if(!qbevent)break;evnt(26070,15131,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDELAYOUTBOX_INTEGER_V=*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_IDEAUTOLAYOUTKWCAPITALSID)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+64)); -if(!qbevent)break;evnt(26070,15133,"ide_methods.bas");}while(r); -S_52532:; -if ((-(*_FUNC_IDELAYOUTBOX_INTEGER_V!= 0 ))||new_error){ -if(qbevent){evnt(26070,15133,"ide_methods.bas");if(r)goto S_52532;} -do{ -*_FUNC_IDELAYOUTBOX_INTEGER_V= 1 ; -if(!qbevent)break;evnt(26070,15133,"ide_methods.bas");}while(r); -} -S_52535:; -if ((-(*__BYTE_IDEAUTOLAYOUTKWCAPITALS!=*_FUNC_IDELAYOUTBOX_INTEGER_V))||new_error){ -if(qbevent){evnt(26070,15134,"ide_methods.bas");if(r)goto S_52535;} -do{ -*__BYTE_IDEAUTOLAYOUTKWCAPITALS=*_FUNC_IDELAYOUTBOX_INTEGER_V; -if(!qbevent)break;evnt(26070,15134,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDELAYOUTBOX_LONG_IDELAYOUTBOX= 1 ; -if(!qbevent)break;evnt(26070,15134,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDELAYOUTBOX_INTEGER_V=*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_IDEAUTOINDENTID)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+64)); -if(!qbevent)break;evnt(26070,15136,"ide_methods.bas");}while(r); -S_52540:; -if ((-(*_FUNC_IDELAYOUTBOX_INTEGER_V!= 0 ))||new_error){ -if(qbevent){evnt(26070,15136,"ide_methods.bas");if(r)goto S_52540;} -do{ -*_FUNC_IDELAYOUTBOX_INTEGER_V= 1 ; -if(!qbevent)break;evnt(26070,15136,"ide_methods.bas");}while(r); -} -S_52543:; -if ((-(*__LONG_IDEAUTOINDENT!=*_FUNC_IDELAYOUTBOX_INTEGER_V))||new_error){ -if(qbevent){evnt(26070,15137,"ide_methods.bas");if(r)goto S_52543;} -do{ -*__LONG_IDEAUTOINDENT=*_FUNC_IDELAYOUTBOX_INTEGER_V; -if(!qbevent)break;evnt(26070,15137,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDELAYOUTBOX_LONG_IDELAYOUTBOX= 1 ; -if(!qbevent)break;evnt(26070,15137,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDELAYOUTBOX_STRING_V,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_IDEAUTOINDENTSIZEID)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15139,"ide_methods.bas");}while(r); -S_52548:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDELAYOUTBOX_STRING_V,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,15140,"ide_methods.bas");if(r)goto S_52548;} -do{ -qbs_set(_FUNC_IDELAYOUTBOX_STRING_V,qbs_new_txt_len("4",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15140,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDELAYOUTBOX_INTEGER_V=qbr_float_to_long(func_val(_FUNC_IDELAYOUTBOX_STRING_V)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15141,"ide_methods.bas");}while(r); -S_52552:; -if (((-(*_FUNC_IDELAYOUTBOX_INTEGER_V< 0 ))|(-(*_FUNC_IDELAYOUTBOX_INTEGER_V> 64 )))||new_error){ -if(qbevent){evnt(26070,15142,"ide_methods.bas");if(r)goto S_52552;} -do{ -*_FUNC_IDELAYOUTBOX_INTEGER_V= 4 ; -if(!qbevent)break;evnt(26070,15142,"ide_methods.bas");}while(r); -} -S_52555:; -if ((-(*__LONG_IDEAUTOINDENTSIZE!=*_FUNC_IDELAYOUTBOX_INTEGER_V))||new_error){ -if(qbevent){evnt(26070,15143,"ide_methods.bas");if(r)goto S_52555;} -do{ -*__LONG_IDEAUTOINDENTSIZE=*_FUNC_IDELAYOUTBOX_INTEGER_V; -if(!qbevent)break;evnt(26070,15144,"ide_methods.bas");}while(r); -S_52557:; -if ((-(*__LONG_IDEAUTOINDENT!= 0 ))||new_error){ -if(qbevent){evnt(26070,15145,"ide_methods.bas");if(r)goto S_52557;} -do{ -*_FUNC_IDELAYOUTBOX_LONG_IDELAYOUTBOX= 1 ; -if(!qbevent)break;evnt(26070,15145,"ide_methods.bas");}while(r); -} -} -do{ -*_FUNC_IDELAYOUTBOX_INTEGER_V=*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_IDEINDENTSUBSID)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+64)); -if(!qbevent)break;evnt(26070,15148,"ide_methods.bas");}while(r); -S_52562:; -if ((-(*_FUNC_IDELAYOUTBOX_INTEGER_V!= 0 ))||new_error){ -if(qbevent){evnt(26070,15148,"ide_methods.bas");if(r)goto S_52562;} -do{ -*_FUNC_IDELAYOUTBOX_INTEGER_V= 1 ; -if(!qbevent)break;evnt(26070,15148,"ide_methods.bas");}while(r); -} -S_52565:; -if ((-(*__LONG_IDEINDENTSUBS!=*_FUNC_IDELAYOUTBOX_INTEGER_V))||new_error){ -if(qbevent){evnt(26070,15149,"ide_methods.bas");if(r)goto S_52565;} -do{ -*__LONG_IDEINDENTSUBS=*_FUNC_IDELAYOUTBOX_INTEGER_V; -if(!qbevent)break;evnt(26070,15149,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDELAYOUTBOX_LONG_IDELAYOUTBOX= 1 ; -if(!qbevent)break;evnt(26070,15149,"ide_methods.bas");}while(r); -} -S_52569:; -if ((*__LONG_IDEAUTOLAYOUT)||new_error){ -if(qbevent){evnt(26070,15151,"ide_methods.bas");if(r)goto S_52569;} -do{ -SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_AutoFormat",14),qbs_new_txt_len("True",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15152,"ide_methods.bas");}while(r); -}else{ -do{ -SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_AutoFormat",14),qbs_new_txt_len("False",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15154,"ide_methods.bas");}while(r); -} -S_52574:; -if ((*__BYTE_IDEAUTOLAYOUTKWCAPITALS)||new_error){ -if(qbevent){evnt(26070,15156,"ide_methods.bas");if(r)goto S_52574;} -do{ -SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_KeywordCapital",18),qbs_new_txt_len("True",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15157,"ide_methods.bas");}while(r); -}else{ -do{ -SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_KeywordCapital",18),qbs_new_txt_len("False",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15159,"ide_methods.bas");}while(r); -} -S_52579:; -if ((*__LONG_IDEAUTOINDENT)||new_error){ -if(qbevent){evnt(26070,15161,"ide_methods.bas");if(r)goto S_52579;} -do{ -SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_AutoIndent",14),qbs_new_txt_len("True",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15162,"ide_methods.bas");}while(r); -}else{ -do{ -SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_AutoIndent",14),qbs_new_txt_len("False",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15164,"ide_methods.bas");}while(r); -} -do{ -SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_IndentSize",14),qbs_str((int32)(*__LONG_IDEAUTOINDENTSIZE))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15166,"ide_methods.bas");}while(r); -S_52585:; -if ((*__LONG_IDEINDENTSUBS)||new_error){ -if(qbevent){evnt(26070,15167,"ide_methods.bas");if(r)goto S_52585;} -do{ -SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_IndentSUBs",14),qbs_new_txt_len("True",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15168,"ide_methods.bas");}while(r); -}else{ -do{ -SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_IndentSUBs",14),qbs_new_txt_len("False",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15170,"ide_methods.bas");}while(r); -} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,15172,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDELAYOUTBOX_LONG_MOUSEDOWN= 0 ; -if(!qbevent)break;evnt(26070,15177,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDELAYOUTBOX_LONG_MOUSEUP= 0 ; -if(!qbevent)break;evnt(26070,15178,"ide_methods.bas");}while(r); -dl_continue_5803:; -}while(1); -dl_exit_5803:; -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free228.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -return *_FUNC_IDELAYOUTBOX_LONG_IDELAYOUTBOX; -} -int32 FUNC_IDEBACKUPBOX(){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data229.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -qbs_set(_FUNC_IDEBACKUPBOX_STRING_A2,FUNC_STR2(__LONG_IDEBACKUPSIZE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15183,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEBACKUPBOX_STRING_V,FUNC_IDEINPUTBOX(qbs_new_txt_len("Backup/Undo",11),qbs_new_txt_len("#Undo buffer limit (10-2000MB)",30),_FUNC_IDEBACKUPBOX_STRING_A2,qbs_new_txt_len("0123456789",10),&(pass5816= 50 ),&(pass5817= 4 ),&(pass5818= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15184,"ide_methods.bas");}while(r); -S_52597:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEBACKUPBOX_STRING_V,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,15185,"ide_methods.bas");if(r)goto S_52597;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,15185,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEBACKUPBOX_LONG_V=qbr(func_val(_FUNC_IDEBACKUPBOX_STRING_V)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15188,"ide_methods.bas");}while(r); -S_52601:; -if ((-(*_FUNC_IDEBACKUPBOX_LONG_V< 10 ))||new_error){ -if(qbevent){evnt(26070,15189,"ide_methods.bas");if(r)goto S_52601;} -do{ -*_FUNC_IDEBACKUPBOX_LONG_V= 10 ; -if(!qbevent)break;evnt(26070,15189,"ide_methods.bas");}while(r); -} -S_52604:; -if ((-(*_FUNC_IDEBACKUPBOX_LONG_V> 2000 ))||new_error){ -if(qbevent){evnt(26070,15190,"ide_methods.bas");if(r)goto S_52604;} -do{ -*_FUNC_IDEBACKUPBOX_LONG_V= 2000 ; -if(!qbevent)break;evnt(26070,15190,"ide_methods.bas");}while(r); -} -S_52607:; -if ((-(*_FUNC_IDEBACKUPBOX_LONG_V<*__LONG_IDEBACKUPSIZE))||new_error){ -if(qbevent){evnt(26070,15192,"ide_methods.bas");if(r)goto S_52607;} -do{ -sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("undo2.bin",9)), 4 ,NULL,NULL, 151 ,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15193,"ide_methods.bas");}while(r); -do{ -sub_close( 151 ,1); -if(!qbevent)break;evnt(26070,15193,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEUNDOBASE= 0 ; -if(!qbevent)break;evnt(26070,15194,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEUNDOPOS= 0 ; -if(!qbevent)break;evnt(26070,15195,"ide_methods.bas");}while(r); -} -do{ -*__LONG_IDEBACKUPSIZE=*_FUNC_IDEBACKUPBOX_LONG_V; -if(!qbevent)break;evnt(26070,15198,"ide_methods.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("BackupSize",10),qbs_add(qbs_str((int32)(*_FUNC_IDEBACKUPBOX_LONG_V)),qbs_new_txt_len(" 'in MB",7))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15199,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEBACKUPBOX_LONG_IDEBACKUPBOX= 1 ; -if(!qbevent)break;evnt(26070,15200,"ide_methods.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free229.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -return *_FUNC_IDEBACKUPBOX_LONG_IDEBACKUPBOX; -} -void SUB_IDEGOTOBOX(){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data230.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -S_52616:; -if ((-(*__LONG_IDEGOTOBOX_LASTLINENUM> 0 ))||new_error){ -if(qbevent){evnt(26070,15204,"ide_methods.bas");if(r)goto S_52616;} -do{ -qbs_set(_SUB_IDEGOTOBOX_STRING_A2,FUNC_STR2(__LONG_IDEGOTOBOX_LASTLINENUM)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15204,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_SUB_IDEGOTOBOX_STRING_A2,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15204,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_SUB_IDEGOTOBOX_STRING_V,FUNC_IDEINPUTBOX(qbs_new_txt_len("Go To Line",10),qbs_new_txt_len("#Line",5),_SUB_IDEGOTOBOX_STRING_A2,qbs_new_txt_len("0123456789",10),&(pass5819= 30 ),&(pass5820= 8 ),&(pass5821= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15205,"ide_methods.bas");}while(r); -S_52622:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDEGOTOBOX_STRING_V,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,15206,"ide_methods.bas");if(r)goto S_52622;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,15206,"ide_methods.bas");}while(r); -} -do{ -*_SUB_IDEGOTOBOX_LONG_V=qbr(func_val(_SUB_IDEGOTOBOX_STRING_V)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15208,"ide_methods.bas");}while(r); -S_52626:; -if ((-(*_SUB_IDEGOTOBOX_LONG_V< 1 ))||new_error){ -if(qbevent){evnt(26070,15209,"ide_methods.bas");if(r)goto S_52626;} -do{ -*_SUB_IDEGOTOBOX_LONG_V= 1 ; -if(!qbevent)break;evnt(26070,15209,"ide_methods.bas");}while(r); -} -S_52629:; -if ((-(*_SUB_IDEGOTOBOX_LONG_V>*__LONG_IDEN))||new_error){ -if(qbevent){evnt(26070,15210,"ide_methods.bas");if(r)goto S_52629;} -do{ -*_SUB_IDEGOTOBOX_LONG_V=*__LONG_IDEN; -if(!qbevent)break;evnt(26070,15210,"ide_methods.bas");}while(r); -} -do{ -*__LONG_IDEGOTOBOX_LASTLINENUM=*_SUB_IDEGOTOBOX_LONG_V; -if(!qbevent)break;evnt(26070,15211,"ide_methods.bas");}while(r); -do{ -SUB_ADDQUICKNAVHISTORY(); -if(!qbevent)break;evnt(26070,15212,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECY=*_SUB_IDEGOTOBOX_LONG_V; -if(!qbevent)break;evnt(26070,15213,"ide_methods.bas");}while(r); -do{ -SUB_IDECENTERCURRENTLINE(); -if(!qbevent)break;evnt(26070,15214,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(26070,15215,"ide_methods.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free230.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -void SUB_IDESETTCPPORTBOX(){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data231.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -qbs_set(_SUB_IDESETTCPPORTBOX_STRING_A2,FUNC_STR2(__LONG_IDEBASETCPPORT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15219,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_IDESETTCPPORTBOX_STRING_V,FUNC_IDEINPUTBOX(qbs_new_txt_len("Base TCP/IP Port Number",23),qbs_new_txt_len("#Port number for $DEBUG mode",28),_SUB_IDESETTCPPORTBOX_STRING_A2,qbs_new_txt_len("0123456789",10),&(pass5822= 45 ),&(pass5823= 5 ),&(pass5824= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15220,"ide_methods.bas");}while(r); -S_52639:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDESETTCPPORTBOX_STRING_V,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,15221,"ide_methods.bas");if(r)goto S_52639;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,15221,"ide_methods.bas");}while(r); -} -do{ -*__LONG_IDEBASETCPPORT=qbr(func_val(_SUB_IDESETTCPPORTBOX_STRING_V)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15223,"ide_methods.bas");}while(r); -S_52643:; -if ((-(*__LONG_IDEBASETCPPORT== 0 ))||new_error){ -if(qbevent){evnt(26070,15224,"ide_methods.bas");if(r)goto S_52643;} -do{ -*__LONG_IDEBASETCPPORT= 9000 ; -if(!qbevent)break;evnt(26070,15224,"ide_methods.bas");}while(r); -} -do{ -SUB_WRITECONFIGSETTING(__STRING_DEBUGSETTINGSSECTION,qbs_new_txt_len("BaseTCPPort",11),FUNC_STR2(__LONG_IDEBASETCPPORT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15225,"ide_methods.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free231.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -int32 FUNC_IDEGETLINENUMBERBOX(qbs*_FUNC_IDEGETLINENUMBERBOX_STRING_TITLE,int32*_FUNC_IDEGETLINENUMBERBOX_LONG_INITIALVALUE){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data232.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -qbs_set(_FUNC_IDEGETLINENUMBERBOX_STRING_A2,FUNC_STR2(_FUNC_IDEGETLINENUMBERBOX_LONG_INITIALVALUE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15229,"ide_methods.bas");}while(r); -S_52648:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEGETLINENUMBERBOX_STRING_A2,qbs_new_txt_len("0",1))))||new_error){ -if(qbevent){evnt(26070,15230,"ide_methods.bas");if(r)goto S_52648;} -do{ -qbs_set(_FUNC_IDEGETLINENUMBERBOX_STRING_A2,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15230,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDEGETLINENUMBERBOX_STRING_V,FUNC_IDEINPUTBOX(_FUNC_IDEGETLINENUMBERBOX_STRING_TITLE,qbs_new_txt_len("#Line",5),_FUNC_IDEGETLINENUMBERBOX_STRING_A2,qbs_new_txt_len("0123456789",10),&(pass5826= 30 ),&(pass5827= 8 ),&(pass5828= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15231,"ide_methods.bas");}while(r); -S_52652:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEGETLINENUMBERBOX_STRING_V,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,15232,"ide_methods.bas");if(r)goto S_52652;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,15232,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEGETLINENUMBERBOX_LONG_V=qbr(func_val(_FUNC_IDEGETLINENUMBERBOX_STRING_V)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15234,"ide_methods.bas");}while(r); -S_52656:; -if ((-(*_FUNC_IDEGETLINENUMBERBOX_LONG_V< 1 ))||new_error){ -if(qbevent){evnt(26070,15235,"ide_methods.bas");if(r)goto S_52656;} -do{ -*_FUNC_IDEGETLINENUMBERBOX_LONG_V= 1 ; -if(!qbevent)break;evnt(26070,15235,"ide_methods.bas");}while(r); -} -S_52659:; -if ((-(*_FUNC_IDEGETLINENUMBERBOX_LONG_V>*__LONG_IDEN))||new_error){ -if(qbevent){evnt(26070,15236,"ide_methods.bas");if(r)goto S_52659;} -do{ -*_FUNC_IDEGETLINENUMBERBOX_LONG_V=*__LONG_IDEN; -if(!qbevent)break;evnt(26070,15236,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEGETLINENUMBERBOX_LONG_IDEGETLINENUMBERBOX=*_FUNC_IDEGETLINENUMBERBOX_LONG_V; -if(!qbevent)break;evnt(26070,15238,"ide_methods.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free232.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -return *_FUNC_IDEGETLINENUMBERBOX_LONG_IDEGETLINENUMBERBOX; -} -int32 FUNC_IDECOMPILERSETTINGSBOX(){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data233.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -sub_pcopy( 0 , 2 ); -if(!qbevent)break;evnt(26070,15244,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 0 , 1 ); -if(!qbevent)break;evnt(26070,15245,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,15246,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECOMPILERSETTINGSBOX_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(26070,15247,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(26070,15248,"ide_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26070,14963,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26070,14964,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDELAYOUTBOX_STRING1_SEP,func_chr( 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14965,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDELAYOUTBOX_LONG_I= 0 ; +if(!qbevent)break;evnt(26070,14969,"ide_methods.bas");}while(r); +do{ +SUB_IDEPAR((void*)( ((char*)(_FUNC_IDELAYOUTBOX_UDT_P)) + (0) ),&(pass5798= 60 ),&(pass5799= 9 ),qbs_new_txt_len("Code Layout",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14970,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDELAYOUTBOX_LONG_I=*_FUNC_IDELAYOUTBOX_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,14972,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDELAYOUTBOX_LONG_IDEAUTOLAYOUTID=*_FUNC_IDELAYOUTBOX_LONG_I; +if(!qbevent)break;evnt(26070,14973,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+36))= 4 ; +if(!qbevent)break;evnt(26070,14974,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+24))= 2 ; +if(!qbevent)break;evnt(26070,14975,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Auto Spacing & Upper/Lowercase Formatting",42)); +if(!qbevent)break;evnt(26070,14976,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+64))=*__LONG_IDEAUTOLAYOUT; +if(!qbevent)break;evnt(26070,14977,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDELAYOUTBOX_LONG_I=*_FUNC_IDELAYOUTBOX_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,14979,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDELAYOUTBOX_LONG_IDEAUTOLAYOUTKWCAPITALSID=*_FUNC_IDELAYOUTBOX_LONG_I; +if(!qbevent)break;evnt(26070,14980,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+36))= 4 ; +if(!qbevent)break;evnt(26070,14981,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+24))= 3 ; +if(!qbevent)break;evnt(26070,14982,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+20))= 6 ; +if(!qbevent)break;evnt(26070,14983,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Keywords in CAPITALS",21)); +if(!qbevent)break;evnt(26070,14984,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+64))=*__BYTE_IDEAUTOLAYOUTKWCAPITALS; +if(!qbevent)break;evnt(26070,14985,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDELAYOUTBOX_LONG_I=*_FUNC_IDELAYOUTBOX_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,14987,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDELAYOUTBOX_LONG_IDEAUTOINDENTID=*_FUNC_IDELAYOUTBOX_LONG_I; +if(!qbevent)break;evnt(26070,14988,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+36))= 4 ; +if(!qbevent)break;evnt(26070,14989,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+24))= 5 ; +if(!qbevent)break;evnt(26070,14990,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("Auto #Indent -",14)); +if(!qbevent)break;evnt(26070,14991,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+64))=*__LONG_IDEAUTOINDENT; +if(!qbevent)break;evnt(26070,14992,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDELAYOUTBOX_STRING_A2,FUNC_STR2(__LONG_IDEAUTOINDENTSIZE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14994,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDELAYOUTBOX_LONG_I=*_FUNC_IDELAYOUTBOX_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,14995,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDELAYOUTBOX_LONG_IDEAUTOINDENTSIZEID=*_FUNC_IDELAYOUTBOX_LONG_I; +if(!qbevent)break;evnt(26070,14996,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+36))= 1 ; +if(!qbevent)break;evnt(26070,14997,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+20))= 20 ; +if(!qbevent)break;evnt(26070,14998,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+24))= 5 ; +if(!qbevent)break;evnt(26070,14999,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Spacing",8)); +if(!qbevent)break;evnt(26070,15000,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDELAYOUTBOX_STRING_A2); +if(!qbevent)break;evnt(26070,15001,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+81))=_FUNC_IDELAYOUTBOX_STRING_A2->len; +if(!qbevent)break;evnt(26070,15002,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDELAYOUTBOX_LONG_I=*_FUNC_IDELAYOUTBOX_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,15004,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDELAYOUTBOX_LONG_IDEINDENTSUBSID=*_FUNC_IDELAYOUTBOX_LONG_I; +if(!qbevent)break;evnt(26070,15005,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+36))= 4 ; +if(!qbevent)break;evnt(26070,15006,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+20))= 6 ; +if(!qbevent)break;evnt(26070,15007,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+24))= 7 ; +if(!qbevent)break;evnt(26070,15008,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("Indent SUBs and #FUNCTIONs",26)); +if(!qbevent)break;evnt(26070,15009,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+64))=*__LONG_IDEINDENTSUBS; +if(!qbevent)break;evnt(26070,15010,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDELAYOUTBOX_LONG_I=*_FUNC_IDELAYOUTBOX_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,15012,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDELAYOUTBOX_LONG_BUTTONSID=*_FUNC_IDELAYOUTBOX_LONG_I; +if(!qbevent)break;evnt(26070,15013,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+36))= 3 ; +if(!qbevent)break;evnt(26070,15014,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+24))= 9 ; +if(!qbevent)break;evnt(26070,15015,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_new_txt_len("#OK",3),_FUNC_IDELAYOUTBOX_STRING1_SEP),qbs_new_txt_len("#Cancel",7))); +if(!qbevent)break;evnt(26070,15016,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+48))= 1 ; +if(!qbevent)break;evnt(26070,15017,"ide_methods.bas");}while(r); +S_52379:; +fornext_value5802= 1 ; +fornext_finalvalue5802= 100 ; +fornext_step5802= 1 ; +if (fornext_step5802<0) fornext_step_negative5802=1; else fornext_step_negative5802=0; +if (new_error) goto fornext_error5802; +goto fornext_entrylabel5802; +while(1){ +fornext_value5802=fornext_step5802+(*_FUNC_IDELAYOUTBOX_LONG_I); +fornext_entrylabel5802: +*_FUNC_IDELAYOUTBOX_LONG_I=fornext_value5802; +if (fornext_step_negative5802){ +if (fornext_value5802fornext_finalvalue5802) break; +} +fornext_error5802:; +if(qbevent){evnt(26070,15021,"ide_methods.bas");if(r)goto S_52379;} +do{ +memcpy(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89)+ 0,((char*)_FUNC_IDELAYOUTBOX_UDT_P)+(0)+ 0, 20); +if(!qbevent)break;evnt(26070,15021,"ide_methods.bas");}while(r); +fornext_continue_5801:; +} +fornext_exit_5801:; +S_52382:; +do{ +if(qbevent){evnt(26070,15024,"ide_methods.bas");if(r)goto S_52382;} +do{ +SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDELAYOUTBOX_UDT_P)) + (0) )); +if(!qbevent)break;evnt(26070,15028,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDELAYOUTBOX_LONG_F= 1 ; +if(!qbevent)break;evnt(26070,15029,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDELAYOUTBOX_LONG_CX= 0 ; +if(!qbevent)break;evnt(26070,15029,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDELAYOUTBOX_LONG_CY= 0 ; +if(!qbevent)break;evnt(26070,15029,"ide_methods.bas");}while(r); +S_52387:; +fornext_value5805= 1 ; +fornext_finalvalue5805= 100 ; +fornext_step5805= 1 ; +if (fornext_step5805<0) fornext_step_negative5805=1; else fornext_step_negative5805=0; +if (new_error) goto fornext_error5805; +goto fornext_entrylabel5805; +while(1){ +fornext_value5805=fornext_step5805+(*_FUNC_IDELAYOUTBOX_LONG_I); +fornext_entrylabel5805: +*_FUNC_IDELAYOUTBOX_LONG_I=fornext_value5805; +if (fornext_step_negative5805){ +if (fornext_value5805fornext_finalvalue5805) break; +} +fornext_error5805:; +if(qbevent){evnt(26070,15030,"ide_methods.bas");if(r)goto S_52387;} +S_52388:; +if ((*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+36)))||new_error){ +if(qbevent){evnt(26070,15031,"ide_methods.bas");if(r)goto S_52388;} +do{ +*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+60))=*_FUNC_IDELAYOUTBOX_LONG_FOCUS-*_FUNC_IDELAYOUTBOX_LONG_F; +if(!qbevent)break;evnt(26070,15034,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+52))= 0 ; +if(!qbevent)break;evnt(26070,15035,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+56))= 0 ; +if(!qbevent)break;evnt(26070,15035,"ide_methods.bas");}while(r); +do{ +SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDELAYOUTBOX_LONG_F); +if(!qbevent)break;evnt(26070,15036,"ide_methods.bas");}while(r); +S_52393:; +if ((*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+52)))||new_error){ +if(qbevent){evnt(26070,15037,"ide_methods.bas");if(r)goto S_52393;} +do{ +*_FUNC_IDELAYOUTBOX_LONG_CX=*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+52)); +if(!qbevent)break;evnt(26070,15037,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDELAYOUTBOX_LONG_CY=*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+56)); +if(!qbevent)break;evnt(26070,15037,"ide_methods.bas");}while(r); +} +} +fornext_continue_5804:; +} +fornext_exit_5804:; +do{ +*_FUNC_IDELAYOUTBOX_LONG_LASTFOCUS=*_FUNC_IDELAYOUTBOX_LONG_F- 1 ; +if(!qbevent)break;evnt(26070,15040,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 1 , 0 ); +if(!qbevent)break;evnt(26070,15047,"ide_methods.bas");}while(r); +S_52401:; +if ((*_FUNC_IDELAYOUTBOX_LONG_CX)||new_error){ +if(qbevent){evnt(26070,15048,"ide_methods.bas");if(r)goto S_52401;} +do{ +qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,15048,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(*_FUNC_IDELAYOUTBOX_LONG_CY,*_FUNC_IDELAYOUTBOX_LONG_CX, 1 ,NULL,NULL,7); +if(!qbevent)break;evnt(26070,15048,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,15048,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDELAYOUTBOX_LONG_CHANGE= 0 ; +if(!qbevent)break;evnt(26070,15051,"ide_methods.bas");}while(r); +S_52407:; +do{ +if(qbevent){evnt(26070,15052,"ide_methods.bas");if(r)goto S_52407;} +do{ +SUB_GETINPUT(); +if(!qbevent)break;evnt(26070,15053,"ide_methods.bas");}while(r); +S_52409:; +if ((*__LONG_MWHEEL)||new_error){ +if(qbevent){evnt(26070,15054,"ide_methods.bas");if(r)goto S_52409;} +do{ +*_FUNC_IDELAYOUTBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,15054,"ide_methods.bas");}while(r); +} +S_52412:; +if ((*__LONG_KB)||new_error){ +if(qbevent){evnt(26070,15055,"ide_methods.bas");if(r)goto S_52412;} +do{ +*_FUNC_IDELAYOUTBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,15055,"ide_methods.bas");}while(r); +} +S_52415:; +if ((*__LONG_MCLICK)||new_error){ +if(qbevent){evnt(26070,15056,"ide_methods.bas");if(r)goto S_52415;} +do{ +*_FUNC_IDELAYOUTBOX_LONG_MOUSEDOWN= 1 ; +if(!qbevent)break;evnt(26070,15056,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDELAYOUTBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,15056,"ide_methods.bas");}while(r); +} +S_52419:; +if ((*__LONG_MRELEASE)||new_error){ +if(qbevent){evnt(26070,15057,"ide_methods.bas");if(r)goto S_52419;} +do{ +*_FUNC_IDELAYOUTBOX_LONG_MOUSEUP= 1 ; +if(!qbevent)break;evnt(26070,15057,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDELAYOUTBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,15057,"ide_methods.bas");}while(r); +} +S_52423:; +if ((*__LONG_MB)||new_error){ +if(qbevent){evnt(26070,15058,"ide_methods.bas");if(r)goto S_52423;} +do{ +*_FUNC_IDELAYOUTBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,15058,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDELAYOUTBOX_LONG_ALT=*__LONG_KALT; +if(!qbevent)break;evnt(26070,15059,"ide_methods.bas");}while(r); +S_52427:; +if ((-(*_FUNC_IDELAYOUTBOX_LONG_ALT!=*_FUNC_IDELAYOUTBOX_LONG_OLDALT))||new_error){ +if(qbevent){evnt(26070,15059,"ide_methods.bas");if(r)goto S_52427;} +do{ +*_FUNC_IDELAYOUTBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,15059,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDELAYOUTBOX_LONG_OLDALT=*_FUNC_IDELAYOUTBOX_LONG_ALT; +if(!qbevent)break;evnt(26070,15060,"ide_methods.bas");}while(r); +do{ +sub__limit( 100 ); +if(!qbevent)break;evnt(26070,15061,"ide_methods.bas");}while(r); +S_52432:; +dl_continue_5806:; +}while((!(*_FUNC_IDELAYOUTBOX_LONG_CHANGE))&&(!new_error)); +dl_exit_5806:; +if(qbevent){evnt(26070,15062,"ide_methods.bas");if(r)goto S_52432;} +S_52433:; +if ((*_FUNC_IDELAYOUTBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ +if(qbevent){evnt(26070,15063,"ide_methods.bas");if(r)goto S_52433;} +do{ +*__LONG_IDEHL= 1 ; +if(!qbevent)break;evnt(26070,15063,"ide_methods.bas");}while(r); +}else{ +do{ +*__LONG_IDEHL= 0 ; +if(!qbevent)break;evnt(26070,15063,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDELAYOUTBOX_STRING_ALTLETTER,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15065,"ide_methods.bas");}while(r); +S_52439:; +if ((*_FUNC_IDELAYOUTBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ +if(qbevent){evnt(26070,15066,"ide_methods.bas");if(r)goto S_52439;} +S_52440:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ +if(qbevent){evnt(26070,15067,"ide_methods.bas");if(r)goto S_52440;} +do{ +*_FUNC_IDELAYOUTBOX_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15068,"ide_methods.bas");}while(r); +S_52442:; +if (((-(*_FUNC_IDELAYOUTBOX_LONG_K>= 65 ))&(-(*_FUNC_IDELAYOUTBOX_LONG_K<= 90 )))||new_error){ +if(qbevent){evnt(26070,15069,"ide_methods.bas");if(r)goto S_52442;} +do{ +qbs_set(_FUNC_IDELAYOUTBOX_STRING_ALTLETTER,func_chr(*_FUNC_IDELAYOUTBOX_LONG_K)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15069,"ide_methods.bas");}while(r); +} +} +} +do{ +qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,15072,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); +if(!qbevent)break;evnt(26070,15072,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,15072,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDELAYOUTBOX_LONG_INFO= 0 ; +if(!qbevent)break;evnt(26070,15076,"ide_methods.bas");}while(r); +S_52451:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,15077,"ide_methods.bas");if(r)goto S_52451;} +do{ +qbs_set(__STRING_K,func_chr( 255 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15077,"ide_methods.bas");}while(r); +} +S_52454:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ +if(qbevent){evnt(26070,15078,"ide_methods.bas");if(r)goto S_52454;} +do{ +*_FUNC_IDELAYOUTBOX_LONG_FOCUS=*_FUNC_IDELAYOUTBOX_LONG_FOCUS+ 1 ; +if(!qbevent)break;evnt(26070,15078,"ide_methods.bas");}while(r); +} +S_52457:; +if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||new_error){ +if(qbevent){evnt(26070,15079,"ide_methods.bas");if(r)goto S_52457;} +do{ +*_FUNC_IDELAYOUTBOX_LONG_FOCUS=*_FUNC_IDELAYOUTBOX_LONG_FOCUS- 1 ; +if(!qbevent)break;evnt(26070,15079,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_K,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15079,"ide_methods.bas");}while(r); +} +S_52461:; +if ((-(*_FUNC_IDELAYOUTBOX_LONG_FOCUS< 1 ))||new_error){ +if(qbevent){evnt(26070,15080,"ide_methods.bas");if(r)goto S_52461;} +do{ +*_FUNC_IDELAYOUTBOX_LONG_FOCUS=*_FUNC_IDELAYOUTBOX_LONG_LASTFOCUS; +if(!qbevent)break;evnt(26070,15080,"ide_methods.bas");}while(r); +} +S_52464:; +if ((-(*_FUNC_IDELAYOUTBOX_LONG_FOCUS>*_FUNC_IDELAYOUTBOX_LONG_LASTFOCUS))||new_error){ +if(qbevent){evnt(26070,15081,"ide_methods.bas");if(r)goto S_52464;} +do{ +*_FUNC_IDELAYOUTBOX_LONG_FOCUS= 1 ; +if(!qbevent)break;evnt(26070,15081,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDELAYOUTBOX_LONG_F= 1 ; +if(!qbevent)break;evnt(26070,15082,"ide_methods.bas");}while(r); +S_52468:; +fornext_value5809= 1 ; +fornext_finalvalue5809= 100 ; +fornext_step5809= 1 ; +if (fornext_step5809<0) fornext_step_negative5809=1; else fornext_step_negative5809=0; +if (new_error) goto fornext_error5809; +goto fornext_entrylabel5809; +while(1){ +fornext_value5809=fornext_step5809+(*_FUNC_IDELAYOUTBOX_LONG_I); +fornext_entrylabel5809: +*_FUNC_IDELAYOUTBOX_LONG_I=fornext_value5809; +if (fornext_step_negative5809){ +if (fornext_value5809fornext_finalvalue5809) break; +} +fornext_error5809:; +if(qbevent){evnt(26070,15083,"ide_methods.bas");if(r)goto S_52468;} +do{ +*_FUNC_IDELAYOUTBOX_LONG_T=*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+36)); +if(!qbevent)break;evnt(26070,15084,"ide_methods.bas");}while(r); +S_52470:; +if ((*_FUNC_IDELAYOUTBOX_LONG_T)||new_error){ +if(qbevent){evnt(26070,15085,"ide_methods.bas");if(r)goto S_52470;} +do{ +*_FUNC_IDELAYOUTBOX_LONG_FOCUSOFFSET=*_FUNC_IDELAYOUTBOX_LONG_FOCUS-*_FUNC_IDELAYOUTBOX_LONG_F; +if(!qbevent)break;evnt(26070,15086,"ide_methods.bas");}while(r); +do{ +SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDELAYOUTBOX_LONG_I)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDELAYOUTBOX_LONG_FOCUS,_FUNC_IDELAYOUTBOX_LONG_F,_FUNC_IDELAYOUTBOX_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDELAYOUTBOX_STRING_ALTLETTER,__LONG_MB,_FUNC_IDELAYOUTBOX_LONG_MOUSEDOWN,_FUNC_IDELAYOUTBOX_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDELAYOUTBOX_LONG_INFO,__LONG_MWHEEL); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15087,"ide_methods.bas");}while(r); +} +fornext_continue_5808:; +} +fornext_exit_5808:; +S_52475:; +if ((-(*_FUNC_IDELAYOUTBOX_LONG_FOCUS!=*_FUNC_IDELAYOUTBOX_LONG_PREVFOCUS))||new_error){ +if(qbevent){evnt(26070,15093,"ide_methods.bas");if(r)goto S_52475;} +do{ +*_FUNC_IDELAYOUTBOX_LONG_PREVFOCUS=*_FUNC_IDELAYOUTBOX_LONG_FOCUS; +if(!qbevent)break;evnt(26070,15095,"ide_methods.bas");}while(r); +S_52477:; +if ((-(*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_FOCUS)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+36))== 1 ))||new_error){ +if(qbevent){evnt(26070,15096,"ide_methods.bas");if(r)goto S_52477;} +do{ +*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_FOCUS)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_FOCUS)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; +if(!qbevent)break;evnt(26070,15097,"ide_methods.bas");}while(r); +S_52479:; +if ((-(*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_FOCUS)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+81))> 0 ))||new_error){ +if(qbevent){evnt(26070,15098,"ide_methods.bas");if(r)goto S_52479;} +do{ +*(int8*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_FOCUS)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+76))= -1 ; +if(!qbevent)break;evnt(26070,15098,"ide_methods.bas");}while(r); +} +do{ +*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_FOCUS)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+77))= 0 ; +if(!qbevent)break;evnt(26070,15099,"ide_methods.bas");}while(r); +} +} +do{ +qbs_set(_FUNC_IDELAYOUTBOX_STRING_A,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_IDEAUTOINDENTSIZEID)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15103,"ide_methods.bas");}while(r); +S_52486:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDELAYOUTBOX_STRING_A->len> 2 )))||new_error){ +if(qbevent){evnt(26070,15104,"ide_methods.bas");if(r)goto S_52486;} +do{ +qbs_set(_FUNC_IDELAYOUTBOX_STRING_A,qbs_left(_FUNC_IDELAYOUTBOX_STRING_A, 2 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15104,"ide_methods.bas");}while(r); +} +S_52489:; +fornext_value5813= 1 ; +fornext_finalvalue5813=_FUNC_IDELAYOUTBOX_STRING_A->len; +fornext_step5813= 1 ; +if (fornext_step5813<0) fornext_step_negative5813=1; else fornext_step_negative5813=0; +if (new_error) goto fornext_error5813; +goto fornext_entrylabel5813; +while(1){ +fornext_value5813=fornext_step5813+(*_FUNC_IDELAYOUTBOX_LONG_I); +fornext_entrylabel5813: +*_FUNC_IDELAYOUTBOX_LONG_I=fornext_value5813; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative5813){ +if (fornext_value5813fornext_finalvalue5813) break; +} +fornext_error5813:; +if(qbevent){evnt(26070,15105,"ide_methods.bas");if(r)goto S_52489;} +do{ +*_FUNC_IDELAYOUTBOX_LONG_A=qbs_asc(_FUNC_IDELAYOUTBOX_STRING_A,*_FUNC_IDELAYOUTBOX_LONG_I); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15106,"ide_methods.bas");}while(r); +S_52491:; +if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_IDELAYOUTBOX_LONG_I== 2 ))&(-(qbs_asc(_FUNC_IDELAYOUTBOX_STRING_A, 1 )== 48 ))))||new_error){ +if(qbevent){evnt(26070,15107,"ide_methods.bas");if(r)goto S_52491;} +do{ +qbs_set(_FUNC_IDELAYOUTBOX_STRING_A,qbs_new_txt_len("0",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15107,"ide_methods.bas");}while(r); +do{ +goto fornext_exit_5812; +if(!qbevent)break;evnt(26070,15107,"ide_methods.bas");}while(r); +} +S_52495:; +if (((-(*_FUNC_IDELAYOUTBOX_LONG_A< 48 ))|(-(*_FUNC_IDELAYOUTBOX_LONG_A> 57 )))||new_error){ +if(qbevent){evnt(26070,15108,"ide_methods.bas");if(r)goto S_52495;} +do{ +qbs_set(_FUNC_IDELAYOUTBOX_STRING_A,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15108,"ide_methods.bas");}while(r); +do{ +goto fornext_exit_5812; +if(!qbevent)break;evnt(26070,15108,"ide_methods.bas");}while(r); +} +fornext_continue_5812:; +} +fornext_exit_5812:; +S_52500:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDELAYOUTBOX_STRING_A->len))||new_error){ +if(qbevent){evnt(26070,15110,"ide_methods.bas");if(r)goto S_52500;} +do{ +*_FUNC_IDELAYOUTBOX_LONG_A=qbr(func_val(_FUNC_IDELAYOUTBOX_STRING_A)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15111,"ide_methods.bas");}while(r); +S_52502:; +if ((-(*_FUNC_IDELAYOUTBOX_LONG_A> 64 ))||new_error){ +if(qbevent){evnt(26070,15112,"ide_methods.bas");if(r)goto S_52502;} +do{ +qbs_set(_FUNC_IDELAYOUTBOX_STRING_A,qbs_new_txt_len("64",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15112,"ide_methods.bas");}while(r); +} +} +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_IDEAUTOINDENTSIZEID)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDELAYOUTBOX_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15114,"ide_methods.bas");}while(r); +S_52507:; +if (((-(*_FUNC_IDELAYOUTBOX_LONG_FOCUS==*_FUNC_IDELAYOUTBOX_LONG_IDEAUTOLAYOUTKWCAPITALSID))&(-(*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_IDEAUTOLAYOUTKWCAPITALSID)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+64))== 1 )))||new_error){ +if(qbevent){evnt(26070,15116,"ide_methods.bas");if(r)goto S_52507;} +do{ +*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_IDEAUTOLAYOUTID)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+64))= 1 ; +if(!qbevent)break;evnt(26070,15117,"ide_methods.bas");}while(r); +} +S_52510:; +if (((-(*_FUNC_IDELAYOUTBOX_LONG_FOCUS==*_FUNC_IDELAYOUTBOX_LONG_IDEINDENTSUBSID))&(-(*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_IDEINDENTSUBSID)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+64))== 1 )))||new_error){ +if(qbevent){evnt(26070,15120,"ide_methods.bas");if(r)goto S_52510;} +do{ +*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_IDEAUTOINDENTID)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+64))= 1 ; +if(!qbevent)break;evnt(26070,15121,"ide_methods.bas");}while(r); +} +S_52513:; +if ((-(*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_IDEAUTOLAYOUTID)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+64))== 0 ))||new_error){ +if(qbevent){evnt(26070,15124,"ide_methods.bas");if(r)goto S_52513;} +do{ +*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_IDEAUTOLAYOUTKWCAPITALSID)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+64))= 0 ; +if(!qbevent)break;evnt(26070,15124,"ide_methods.bas");}while(r); +} +S_52516:; +if ((-(*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_IDEAUTOINDENTID)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+64))== 0 ))||new_error){ +if(qbevent){evnt(26070,15125,"ide_methods.bas");if(r)goto S_52516;} +do{ +*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_IDEINDENTSUBSID)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+64))= 0 ; +if(!qbevent)break;evnt(26070,15125,"ide_methods.bas");}while(r); +} +S_52519:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 27 )))|(((-(*_FUNC_IDELAYOUTBOX_LONG_FOCUS==(*_FUNC_IDELAYOUTBOX_LONG_BUTTONSID+ 1 )))&(-(*_FUNC_IDELAYOUTBOX_LONG_INFO!= 0 ))))))||new_error){ +if(qbevent){evnt(26070,15127,"ide_methods.bas");if(r)goto S_52519;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,15127,"ide_methods.bas");}while(r); +} +S_52522:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 13 )))|(((-(*_FUNC_IDELAYOUTBOX_LONG_FOCUS==*_FUNC_IDELAYOUTBOX_LONG_BUTTONSID))&(-(*_FUNC_IDELAYOUTBOX_LONG_INFO!= 0 ))))))||new_error){ +if(qbevent){evnt(26070,15128,"ide_methods.bas");if(r)goto S_52522;} +do{ +*_FUNC_IDELAYOUTBOX_INTEGER_V=*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_IDEAUTOLAYOUTID)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26070,15130,"ide_methods.bas");}while(r); +S_52524:; +if ((-(*_FUNC_IDELAYOUTBOX_INTEGER_V!= 0 ))||new_error){ +if(qbevent){evnt(26070,15130,"ide_methods.bas");if(r)goto S_52524;} +do{ +*_FUNC_IDELAYOUTBOX_INTEGER_V= 1 ; +if(!qbevent)break;evnt(26070,15130,"ide_methods.bas");}while(r); +} +S_52527:; +if ((-(*__LONG_IDEAUTOLAYOUT!=*_FUNC_IDELAYOUTBOX_INTEGER_V))||new_error){ +if(qbevent){evnt(26070,15131,"ide_methods.bas");if(r)goto S_52527;} +do{ +*__LONG_IDEAUTOLAYOUT=*_FUNC_IDELAYOUTBOX_INTEGER_V; +if(!qbevent)break;evnt(26070,15131,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDELAYOUTBOX_LONG_IDELAYOUTBOX= 1 ; +if(!qbevent)break;evnt(26070,15131,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDELAYOUTBOX_INTEGER_V=*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_IDEAUTOLAYOUTKWCAPITALSID)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26070,15133,"ide_methods.bas");}while(r); +S_52532:; +if ((-(*_FUNC_IDELAYOUTBOX_INTEGER_V!= 0 ))||new_error){ +if(qbevent){evnt(26070,15133,"ide_methods.bas");if(r)goto S_52532;} +do{ +*_FUNC_IDELAYOUTBOX_INTEGER_V= 1 ; +if(!qbevent)break;evnt(26070,15133,"ide_methods.bas");}while(r); +} +S_52535:; +if ((-(*__BYTE_IDEAUTOLAYOUTKWCAPITALS!=*_FUNC_IDELAYOUTBOX_INTEGER_V))||new_error){ +if(qbevent){evnt(26070,15134,"ide_methods.bas");if(r)goto S_52535;} +do{ +*__BYTE_IDEAUTOLAYOUTKWCAPITALS=*_FUNC_IDELAYOUTBOX_INTEGER_V; +if(!qbevent)break;evnt(26070,15134,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDELAYOUTBOX_LONG_IDELAYOUTBOX= 1 ; +if(!qbevent)break;evnt(26070,15134,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDELAYOUTBOX_INTEGER_V=*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_IDEAUTOINDENTID)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26070,15136,"ide_methods.bas");}while(r); +S_52540:; +if ((-(*_FUNC_IDELAYOUTBOX_INTEGER_V!= 0 ))||new_error){ +if(qbevent){evnt(26070,15136,"ide_methods.bas");if(r)goto S_52540;} +do{ +*_FUNC_IDELAYOUTBOX_INTEGER_V= 1 ; +if(!qbevent)break;evnt(26070,15136,"ide_methods.bas");}while(r); +} +S_52543:; +if ((-(*__LONG_IDEAUTOINDENT!=*_FUNC_IDELAYOUTBOX_INTEGER_V))||new_error){ +if(qbevent){evnt(26070,15137,"ide_methods.bas");if(r)goto S_52543;} +do{ +*__LONG_IDEAUTOINDENT=*_FUNC_IDELAYOUTBOX_INTEGER_V; +if(!qbevent)break;evnt(26070,15137,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDELAYOUTBOX_LONG_IDELAYOUTBOX= 1 ; +if(!qbevent)break;evnt(26070,15137,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDELAYOUTBOX_STRING_V,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_IDEAUTOINDENTSIZEID)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15139,"ide_methods.bas");}while(r); +S_52548:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDELAYOUTBOX_STRING_V,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,15140,"ide_methods.bas");if(r)goto S_52548;} +do{ +qbs_set(_FUNC_IDELAYOUTBOX_STRING_V,qbs_new_txt_len("4",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15140,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDELAYOUTBOX_INTEGER_V=qbr_float_to_long(func_val(_FUNC_IDELAYOUTBOX_STRING_V)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15141,"ide_methods.bas");}while(r); +S_52552:; +if (((-(*_FUNC_IDELAYOUTBOX_INTEGER_V< 0 ))|(-(*_FUNC_IDELAYOUTBOX_INTEGER_V> 64 )))||new_error){ +if(qbevent){evnt(26070,15142,"ide_methods.bas");if(r)goto S_52552;} +do{ +*_FUNC_IDELAYOUTBOX_INTEGER_V= 4 ; +if(!qbevent)break;evnt(26070,15142,"ide_methods.bas");}while(r); +} +S_52555:; +if ((-(*__LONG_IDEAUTOINDENTSIZE!=*_FUNC_IDELAYOUTBOX_INTEGER_V))||new_error){ +if(qbevent){evnt(26070,15143,"ide_methods.bas");if(r)goto S_52555;} +do{ +*__LONG_IDEAUTOINDENTSIZE=*_FUNC_IDELAYOUTBOX_INTEGER_V; +if(!qbevent)break;evnt(26070,15144,"ide_methods.bas");}while(r); +S_52557:; +if ((-(*__LONG_IDEAUTOINDENT!= 0 ))||new_error){ +if(qbevent){evnt(26070,15145,"ide_methods.bas");if(r)goto S_52557;} +do{ +*_FUNC_IDELAYOUTBOX_LONG_IDELAYOUTBOX= 1 ; +if(!qbevent)break;evnt(26070,15145,"ide_methods.bas");}while(r); +} +} +do{ +*_FUNC_IDELAYOUTBOX_INTEGER_V=*(int32*)(((char*)_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDELAYOUTBOX_LONG_IDEINDENTSUBSID)-_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[4],_FUNC_IDELAYOUTBOX_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26070,15148,"ide_methods.bas");}while(r); +S_52562:; +if ((-(*_FUNC_IDELAYOUTBOX_INTEGER_V!= 0 ))||new_error){ +if(qbevent){evnt(26070,15148,"ide_methods.bas");if(r)goto S_52562;} +do{ +*_FUNC_IDELAYOUTBOX_INTEGER_V= 1 ; +if(!qbevent)break;evnt(26070,15148,"ide_methods.bas");}while(r); +} +S_52565:; +if ((-(*__LONG_IDEINDENTSUBS!=*_FUNC_IDELAYOUTBOX_INTEGER_V))||new_error){ +if(qbevent){evnt(26070,15149,"ide_methods.bas");if(r)goto S_52565;} +do{ +*__LONG_IDEINDENTSUBS=*_FUNC_IDELAYOUTBOX_INTEGER_V; +if(!qbevent)break;evnt(26070,15149,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDELAYOUTBOX_LONG_IDELAYOUTBOX= 1 ; +if(!qbevent)break;evnt(26070,15149,"ide_methods.bas");}while(r); +} +S_52569:; +if ((*__LONG_IDEAUTOLAYOUT)||new_error){ +if(qbevent){evnt(26070,15151,"ide_methods.bas");if(r)goto S_52569;} +do{ +SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_AutoFormat",14),qbs_new_txt_len("True",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15152,"ide_methods.bas");}while(r); +}else{ +do{ +SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_AutoFormat",14),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15154,"ide_methods.bas");}while(r); +} +S_52574:; +if ((*__BYTE_IDEAUTOLAYOUTKWCAPITALS)||new_error){ +if(qbevent){evnt(26070,15156,"ide_methods.bas");if(r)goto S_52574;} +do{ +SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_KeywordCapital",18),qbs_new_txt_len("True",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15157,"ide_methods.bas");}while(r); +}else{ +do{ +SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_KeywordCapital",18),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15159,"ide_methods.bas");}while(r); +} +S_52579:; +if ((*__LONG_IDEAUTOINDENT)||new_error){ +if(qbevent){evnt(26070,15161,"ide_methods.bas");if(r)goto S_52579;} +do{ +SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_AutoIndent",14),qbs_new_txt_len("True",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15162,"ide_methods.bas");}while(r); +}else{ +do{ +SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_AutoIndent",14),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15164,"ide_methods.bas");}while(r); +} +do{ +SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_IndentSize",14),qbs_str((int32)(*__LONG_IDEAUTOINDENTSIZE))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15166,"ide_methods.bas");}while(r); +S_52585:; +if ((*__LONG_IDEINDENTSUBS)||new_error){ +if(qbevent){evnt(26070,15167,"ide_methods.bas");if(r)goto S_52585;} +do{ +SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_IndentSUBs",14),qbs_new_txt_len("True",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15168,"ide_methods.bas");}while(r); +}else{ +do{ +SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_IndentSUBs",14),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15170,"ide_methods.bas");}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,15172,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDELAYOUTBOX_LONG_MOUSEDOWN= 0 ; +if(!qbevent)break;evnt(26070,15177,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDELAYOUTBOX_LONG_MOUSEUP= 0 ; +if(!qbevent)break;evnt(26070,15178,"ide_methods.bas");}while(r); +dl_continue_5803:; +}while(1); +dl_exit_5803:; +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free228.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +return *_FUNC_IDELAYOUTBOX_LONG_IDELAYOUTBOX; +} +int32 FUNC_IDEBACKUPBOX(){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data229.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +qbs_set(_FUNC_IDEBACKUPBOX_STRING_A2,FUNC_STR2(__LONG_IDEBACKUPSIZE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15183,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEBACKUPBOX_STRING_V,FUNC_IDEINPUTBOX(qbs_new_txt_len("Backup/Undo",11),qbs_new_txt_len("#Undo buffer limit (10-2000MB)",30),_FUNC_IDEBACKUPBOX_STRING_A2,qbs_new_txt_len("0123456789",10),&(pass5816= 50 ),&(pass5817= 4 ),&(pass5818= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15184,"ide_methods.bas");}while(r); +S_52597:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEBACKUPBOX_STRING_V,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,15185,"ide_methods.bas");if(r)goto S_52597;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,15185,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEBACKUPBOX_LONG_V=qbr(func_val(_FUNC_IDEBACKUPBOX_STRING_V)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15188,"ide_methods.bas");}while(r); +S_52601:; +if ((-(*_FUNC_IDEBACKUPBOX_LONG_V< 10 ))||new_error){ +if(qbevent){evnt(26070,15189,"ide_methods.bas");if(r)goto S_52601;} +do{ +*_FUNC_IDEBACKUPBOX_LONG_V= 10 ; +if(!qbevent)break;evnt(26070,15189,"ide_methods.bas");}while(r); +} +S_52604:; +if ((-(*_FUNC_IDEBACKUPBOX_LONG_V> 2000 ))||new_error){ +if(qbevent){evnt(26070,15190,"ide_methods.bas");if(r)goto S_52604;} +do{ +*_FUNC_IDEBACKUPBOX_LONG_V= 2000 ; +if(!qbevent)break;evnt(26070,15190,"ide_methods.bas");}while(r); +} +S_52607:; +if ((-(*_FUNC_IDEBACKUPBOX_LONG_V<*__LONG_IDEBACKUPSIZE))||new_error){ +if(qbevent){evnt(26070,15192,"ide_methods.bas");if(r)goto S_52607;} +do{ +sub_open(qbs_add(__STRING_TMPDIR,qbs_new_txt_len("undo2.bin",9)), 4 ,NULL,NULL, 151 ,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15193,"ide_methods.bas");}while(r); +do{ +sub_close( 151 ,1); +if(!qbevent)break;evnt(26070,15193,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEUNDOBASE= 0 ; +if(!qbevent)break;evnt(26070,15194,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEUNDOPOS= 0 ; +if(!qbevent)break;evnt(26070,15195,"ide_methods.bas");}while(r); +} +do{ +*__LONG_IDEBACKUPSIZE=*_FUNC_IDEBACKUPBOX_LONG_V; +if(!qbevent)break;evnt(26070,15198,"ide_methods.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("BackupSize",10),qbs_add(qbs_str((int32)(*_FUNC_IDEBACKUPBOX_LONG_V)),qbs_new_txt_len(" 'in MB",7))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15199,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEBACKUPBOX_LONG_IDEBACKUPBOX= 1 ; +if(!qbevent)break;evnt(26070,15200,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free229.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +return *_FUNC_IDEBACKUPBOX_LONG_IDEBACKUPBOX; +} +void SUB_IDEGOTOBOX(){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data230.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +S_52616:; +if ((-(*__LONG_IDEGOTOBOX_LASTLINENUM> 0 ))||new_error){ +if(qbevent){evnt(26070,15204,"ide_methods.bas");if(r)goto S_52616;} +do{ +qbs_set(_SUB_IDEGOTOBOX_STRING_A2,FUNC_STR2(__LONG_IDEGOTOBOX_LASTLINENUM)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15204,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_IDEGOTOBOX_STRING_A2,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15204,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_IDEGOTOBOX_STRING_V,FUNC_IDEINPUTBOX(qbs_new_txt_len("Go To Line",10),qbs_new_txt_len("#Line",5),_SUB_IDEGOTOBOX_STRING_A2,qbs_new_txt_len("0123456789",10),&(pass5819= 30 ),&(pass5820= 8 ),&(pass5821= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15205,"ide_methods.bas");}while(r); +S_52622:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDEGOTOBOX_STRING_V,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,15206,"ide_methods.bas");if(r)goto S_52622;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,15206,"ide_methods.bas");}while(r); +} +do{ +*_SUB_IDEGOTOBOX_LONG_V=qbr(func_val(_SUB_IDEGOTOBOX_STRING_V)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15208,"ide_methods.bas");}while(r); +S_52626:; +if ((-(*_SUB_IDEGOTOBOX_LONG_V< 1 ))||new_error){ +if(qbevent){evnt(26070,15209,"ide_methods.bas");if(r)goto S_52626;} +do{ +*_SUB_IDEGOTOBOX_LONG_V= 1 ; +if(!qbevent)break;evnt(26070,15209,"ide_methods.bas");}while(r); +} +S_52629:; +if ((-(*_SUB_IDEGOTOBOX_LONG_V>*__LONG_IDEN))||new_error){ +if(qbevent){evnt(26070,15210,"ide_methods.bas");if(r)goto S_52629;} +do{ +*_SUB_IDEGOTOBOX_LONG_V=*__LONG_IDEN; +if(!qbevent)break;evnt(26070,15210,"ide_methods.bas");}while(r); +} +do{ +*__LONG_IDEGOTOBOX_LASTLINENUM=*_SUB_IDEGOTOBOX_LONG_V; +if(!qbevent)break;evnt(26070,15211,"ide_methods.bas");}while(r); +do{ +SUB_ADDQUICKNAVHISTORY(); +if(!qbevent)break;evnt(26070,15212,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECY=*_SUB_IDEGOTOBOX_LONG_V; +if(!qbevent)break;evnt(26070,15213,"ide_methods.bas");}while(r); +do{ +SUB_IDECENTERCURRENTLINE(); +if(!qbevent)break;evnt(26070,15214,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESELECT= 0 ; +if(!qbevent)break;evnt(26070,15215,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free230.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +void SUB_IDESETTCPPORTBOX(){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data231.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +qbs_set(_SUB_IDESETTCPPORTBOX_STRING_A2,FUNC_STR2(__LONG_IDEBASETCPPORT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15219,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_IDESETTCPPORTBOX_STRING_V,FUNC_IDEINPUTBOX(qbs_new_txt_len("Base TCP/IP Port Number",23),qbs_new_txt_len("#Port number for $DEBUG mode",28),_SUB_IDESETTCPPORTBOX_STRING_A2,qbs_new_txt_len("0123456789",10),&(pass5822= 45 ),&(pass5823= 5 ),&(pass5824= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15220,"ide_methods.bas");}while(r); +S_52639:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDESETTCPPORTBOX_STRING_V,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,15221,"ide_methods.bas");if(r)goto S_52639;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,15221,"ide_methods.bas");}while(r); +} +do{ +*__LONG_IDEBASETCPPORT=qbr(func_val(_SUB_IDESETTCPPORTBOX_STRING_V)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15223,"ide_methods.bas");}while(r); +S_52643:; +if ((-(*__LONG_IDEBASETCPPORT== 0 ))||new_error){ +if(qbevent){evnt(26070,15224,"ide_methods.bas");if(r)goto S_52643;} +do{ +*__LONG_IDEBASETCPPORT= 9000 ; +if(!qbevent)break;evnt(26070,15224,"ide_methods.bas");}while(r); +} +do{ +SUB_WRITECONFIGSETTING(__STRING_DEBUGSETTINGSSECTION,qbs_new_txt_len("BaseTCPPort",11),FUNC_STR2(__LONG_IDEBASETCPPORT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15225,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free231.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +int32 FUNC_IDEGETLINENUMBERBOX(qbs*_FUNC_IDEGETLINENUMBERBOX_STRING_TITLE,int32*_FUNC_IDEGETLINENUMBERBOX_LONG_INITIALVALUE){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data232.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +qbs_set(_FUNC_IDEGETLINENUMBERBOX_STRING_A2,FUNC_STR2(_FUNC_IDEGETLINENUMBERBOX_LONG_INITIALVALUE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15229,"ide_methods.bas");}while(r); +S_52648:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEGETLINENUMBERBOX_STRING_A2,qbs_new_txt_len("0",1))))||new_error){ +if(qbevent){evnt(26070,15230,"ide_methods.bas");if(r)goto S_52648;} +do{ +qbs_set(_FUNC_IDEGETLINENUMBERBOX_STRING_A2,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15230,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDEGETLINENUMBERBOX_STRING_V,FUNC_IDEINPUTBOX(_FUNC_IDEGETLINENUMBERBOX_STRING_TITLE,qbs_new_txt_len("#Line",5),_FUNC_IDEGETLINENUMBERBOX_STRING_A2,qbs_new_txt_len("0123456789",10),&(pass5826= 30 ),&(pass5827= 8 ),&(pass5828= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15231,"ide_methods.bas");}while(r); +S_52652:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEGETLINENUMBERBOX_STRING_V,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,15232,"ide_methods.bas");if(r)goto S_52652;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,15232,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEGETLINENUMBERBOX_LONG_V=qbr(func_val(_FUNC_IDEGETLINENUMBERBOX_STRING_V)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15234,"ide_methods.bas");}while(r); +S_52656:; +if ((-(*_FUNC_IDEGETLINENUMBERBOX_LONG_V< 1 ))||new_error){ +if(qbevent){evnt(26070,15235,"ide_methods.bas");if(r)goto S_52656;} +do{ +*_FUNC_IDEGETLINENUMBERBOX_LONG_V= 1 ; +if(!qbevent)break;evnt(26070,15235,"ide_methods.bas");}while(r); +} +S_52659:; +if ((-(*_FUNC_IDEGETLINENUMBERBOX_LONG_V>*__LONG_IDEN))||new_error){ +if(qbevent){evnt(26070,15236,"ide_methods.bas");if(r)goto S_52659;} +do{ +*_FUNC_IDEGETLINENUMBERBOX_LONG_V=*__LONG_IDEN; +if(!qbevent)break;evnt(26070,15236,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEGETLINENUMBERBOX_LONG_IDEGETLINENUMBERBOX=*_FUNC_IDEGETLINENUMBERBOX_LONG_V; +if(!qbevent)break;evnt(26070,15238,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free232.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +return *_FUNC_IDEGETLINENUMBERBOX_LONG_IDEGETLINENUMBERBOX; +} +int32 FUNC_IDECOMPILERSETTINGSBOX(){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data233.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +sub_pcopy( 0 , 2 ); +if(!qbevent)break;evnt(26070,15244,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 0 , 1 ); +if(!qbevent)break;evnt(26070,15245,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,15246,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECOMPILERSETTINGSBOX_LONG_FOCUS= 1 ; +if(!qbevent)break;evnt(26070,15247,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26070,15248,"ide_methods.bas");}while(r); +do{ if (_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[2]&2){ error(10); @@ -177594,738 +177594,738 @@ if (!_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0]) error(257); } _FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[2]|=1; } -} -if(!qbevent)break;evnt(26070,15249,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(26070,15250,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(26070,15251,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(26070,15252,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(26070,15253,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(26070,15254,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(26070,15255,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(26070,15256,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(26070,15257,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECOMPILERSETTINGSBOX_STRING1_SEP,func_chr( 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15258,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I= 0 ; -if(!qbevent)break;evnt(26070,15262,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECOMPILERSETTINGSBOX_LONG_Y= 0 ; -if(!qbevent)break;evnt(26070,15263,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,15265,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECOMPILERSETTINGSBOX_LONG_OPTIMIZECHECKBOX=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I; -if(!qbevent)break;evnt(26070,15266,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+36))= 4 ; -if(!qbevent)break;evnt(26070,15267,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECOMPILERSETTINGSBOX_LONG_Y=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_Y+ 2 ; -if(!qbevent)break;evnt(26070,15268,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+24))=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_Y; -if(!qbevent)break;evnt(26070,15268,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("Compile #program with C++ optimization flag",43)); -if(!qbevent)break;evnt(26070,15269,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+64))=*__ULONG_OPTIMIZECPPPROGRAM; -if(!qbevent)break;evnt(26070,15270,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,15272,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECOMPILERSETTINGSBOX_LONG_STRIPDEBUGCHECKBOX=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I; -if(!qbevent)break;evnt(26070,15273,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+36))= 4 ; -if(!qbevent)break;evnt(26070,15274,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECOMPILERSETTINGSBOX_LONG_Y=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_Y+ 1 ; -if(!qbevent)break;evnt(26070,15275,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+24))=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_Y; -if(!qbevent)break;evnt(26070,15275,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Strip C++ symbols from executable",34)); -if(!qbevent)break;evnt(26070,15276,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+64))=-(*__ULONG_STRIPDEBUGSYMBOLS); -if(!qbevent)break;evnt(26070,15277,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,15279,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECOMPILERSETTINGSBOX_LONG_ADDDEBUGSYMBOLSCHECKBOX=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I; -if(!qbevent)break;evnt(26070,15280,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+36))= 4 ; -if(!qbevent)break;evnt(26070,15281,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECOMPILERSETTINGSBOX_LONG_Y=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_Y+ 1 ; -if(!qbevent)break;evnt(26070,15282,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+24))=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_Y; -if(!qbevent)break;evnt(26070,15282,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Add C++ Debug Information",26)); -if(!qbevent)break;evnt(26070,15283,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+64))=*__LONG_INCLUDE_GDB_DEBUGGING_INFO; -if(!qbevent)break;evnt(26070,15284,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECOMPILERSETTINGSBOX_LONG_Y=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_Y+ 1 ; -if(!qbevent)break;evnt(26070,15286,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECOMPILERSETTINGSBOX_STRING_A2,FUNC_STR2(&(pass5829=*__LONG_IDEWY+*__LONG_IDESUBWINDOW))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15288,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,15289,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECOMPILERSETTINGSBOX_LONG_EXTRACPPFLAGSTEXTBOX=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I; -if(!qbevent)break;evnt(26070,15290,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+36))= 1 ; -if(!qbevent)break;evnt(26070,15291,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+20))= 2 ; -if(!qbevent)break;evnt(26070,15292,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECOMPILERSETTINGSBOX_LONG_Y=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_Y+ 2 ; -if(!qbevent)break;evnt(26070,15293,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+24))=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_Y; -if(!qbevent)break;evnt(26070,15293,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECOMPILERSETTINGSBOX_LONG_Y=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_Y+ 1 ; -if(!qbevent)break;evnt(26070,15293,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("C++ Compiler #Flags",19)); -if(!qbevent)break;evnt(26070,15294,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(__STRING_EXTRACPPFLAGS); -if(!qbevent)break;evnt(26070,15295,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+81))=_FUNC_IDECOMPILERSETTINGSBOX_STRING_A2->len; -if(!qbevent)break;evnt(26070,15296,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECOMPILERSETTINGSBOX_STRING_A2,FUNC_STR2(&(pass5831=*__LONG_IDEWY+*__LONG_IDESUBWINDOW))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15298,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,15299,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECOMPILERSETTINGSBOX_LONG_EXTRALINKERFLAGSTEXTBOX=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I; -if(!qbevent)break;evnt(26070,15300,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+36))= 1 ; -if(!qbevent)break;evnt(26070,15301,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+20))= 2 ; -if(!qbevent)break;evnt(26070,15302,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECOMPILERSETTINGSBOX_LONG_Y=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_Y+ 2 ; -if(!qbevent)break;evnt(26070,15303,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+24))=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_Y; -if(!qbevent)break;evnt(26070,15303,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECOMPILERSETTINGSBOX_LONG_Y=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_Y+ 1 ; -if(!qbevent)break;evnt(26070,15303,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("C++ #Linker Flags",17)); -if(!qbevent)break;evnt(26070,15304,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(__STRING_EXTRALINKERFLAGS); -if(!qbevent)break;evnt(26070,15305,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+81))=_FUNC_IDECOMPILERSETTINGSBOX_STRING_A2->len; -if(!qbevent)break;evnt(26070,15306,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECOMPILERSETTINGSBOX_STRING_A2,FUNC_STR2(&(pass5833=*__LONG_IDEWY+*__LONG_IDESUBWINDOW))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15308,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,15309,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECOMPILERSETTINGSBOX_LONG_MAXPARALLELTEXTBOX=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I; -if(!qbevent)break;evnt(26070,15310,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+36))= 1 ; -if(!qbevent)break;evnt(26070,15311,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+20))= 2 ; -if(!qbevent)break;evnt(26070,15312,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECOMPILERSETTINGSBOX_LONG_Y=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_Y+ 2 ; -if(!qbevent)break;evnt(26070,15313,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+24))=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_Y; -if(!qbevent)break;evnt(26070,15313,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECOMPILERSETTINGSBOX_LONG_Y=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_Y+ 1 ; -if(!qbevent)break;evnt(26070,15313,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Max C++ Compiler Processes",27)); -if(!qbevent)break;evnt(26070,15314,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(FUNC_STR2((int32*)__ULONG_MAXPARALLELPROCESSES)); -if(!qbevent)break;evnt(26070,15315,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+81))=_FUNC_IDECOMPILERSETTINGSBOX_STRING_A2->len; -if(!qbevent)break;evnt(26070,15316,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECOMPILERSETTINGSBOX_LONG_Y=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_Y+ 1 ; -if(!qbevent)break;evnt(26070,15318,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,15320,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECOMPILERSETTINGSBOX_LONG_USEOLDAUDIOBACKEND=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I; -if(!qbevent)break;evnt(26070,15321,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+36))= 4 ; -if(!qbevent)break;evnt(26070,15322,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECOMPILERSETTINGSBOX_LONG_Y=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_Y+ 1 ; -if(!qbevent)break;evnt(26070,15323,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+24))=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_Y; -if(!qbevent)break;evnt(26070,15323,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Use old audio backend (LGPL)",29)); -if(!qbevent)break;evnt(26070,15324,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+64))=~(*__ULONG_USEMINIAUDIOBACKEND); -if(!qbevent)break;evnt(26070,15325,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECOMPILERSETTINGSBOX_LONG_Y=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_Y+ 1 ; -if(!qbevent)break;evnt(26070,15327,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,15329,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECOMPILERSETTINGSBOX_LONG_BUTTONSID=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I; -if(!qbevent)break;evnt(26070,15330,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+36))= 3 ; -if(!qbevent)break;evnt(26070,15331,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECOMPILERSETTINGSBOX_LONG_Y=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_Y+ 1 ; -if(!qbevent)break;evnt(26070,15332,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+24))=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_Y; -if(!qbevent)break;evnt(26070,15332,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_new_txt_len("#OK",3),_FUNC_IDECOMPILERSETTINGSBOX_STRING1_SEP),qbs_new_txt_len("#Cancel",7))); -if(!qbevent)break;evnt(26070,15333,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+48))= 1 ; -if(!qbevent)break;evnt(26070,15334,"ide_methods.bas");}while(r); -do{ -SUB_IDEPAR((void*)( ((char*)(_FUNC_IDECOMPILERSETTINGSBOX_UDT_P)) + (0) ),&(pass5835= 60 ),_FUNC_IDECOMPILERSETTINGSBOX_LONG_Y,qbs_new_txt_len("Compiler Settings",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15336,"ide_methods.bas");}while(r); -S_52752:; -fornext_value5837= 1 ; -fornext_finalvalue5837= 100 ; -fornext_step5837= 1 ; -if (fornext_step5837<0) fornext_step_negative5837=1; else fornext_step_negative5837=0; -if (new_error) goto fornext_error5837; -goto fornext_entrylabel5837; -while(1){ -fornext_value5837=fornext_step5837+(*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I); -fornext_entrylabel5837: -*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I=fornext_value5837; -if (fornext_step_negative5837){ -if (fornext_value5837fornext_finalvalue5837) break; -} -fornext_error5837:; -if(qbevent){evnt(26070,15340,"ide_methods.bas");if(r)goto S_52752;} -do{ -memcpy(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89)+ 0,((char*)_FUNC_IDECOMPILERSETTINGSBOX_UDT_P)+(0)+ 0, 20); -if(!qbevent)break;evnt(26070,15340,"ide_methods.bas");}while(r); -fornext_continue_5836:; -} -fornext_exit_5836:; -S_52755:; -do{ -if(qbevent){evnt(26070,15343,"ide_methods.bas");if(r)goto S_52755;} -do{ -SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDECOMPILERSETTINGSBOX_UDT_P)) + (0) )); -if(!qbevent)break;evnt(26070,15347,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECOMPILERSETTINGSBOX_LONG_F= 1 ; -if(!qbevent)break;evnt(26070,15348,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECOMPILERSETTINGSBOX_LONG_CX= 0 ; -if(!qbevent)break;evnt(26070,15348,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECOMPILERSETTINGSBOX_LONG_CY= 0 ; -if(!qbevent)break;evnt(26070,15348,"ide_methods.bas");}while(r); -S_52760:; -fornext_value5840= 1 ; -fornext_finalvalue5840= 100 ; -fornext_step5840= 1 ; -if (fornext_step5840<0) fornext_step_negative5840=1; else fornext_step_negative5840=0; -if (new_error) goto fornext_error5840; -goto fornext_entrylabel5840; -while(1){ -fornext_value5840=fornext_step5840+(*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I); -fornext_entrylabel5840: -*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I=fornext_value5840; -if (fornext_step_negative5840){ -if (fornext_value5840fornext_finalvalue5840) break; -} -fornext_error5840:; -if(qbevent){evnt(26070,15349,"ide_methods.bas");if(r)goto S_52760;} -S_52761:; -if ((*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+36)))||new_error){ -if(qbevent){evnt(26070,15350,"ide_methods.bas");if(r)goto S_52761;} -do{ -*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+60))=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_FOCUS-*_FUNC_IDECOMPILERSETTINGSBOX_LONG_F; -if(!qbevent)break;evnt(26070,15353,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+52))= 0 ; -if(!qbevent)break;evnt(26070,15354,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+56))= 0 ; -if(!qbevent)break;evnt(26070,15354,"ide_methods.bas");}while(r); -do{ -SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDECOMPILERSETTINGSBOX_LONG_F); -if(!qbevent)break;evnt(26070,15355,"ide_methods.bas");}while(r); -S_52766:; -if ((*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+52)))||new_error){ -if(qbevent){evnt(26070,15356,"ide_methods.bas");if(r)goto S_52766;} -do{ -*_FUNC_IDECOMPILERSETTINGSBOX_LONG_CX=*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+52)); -if(!qbevent)break;evnt(26070,15356,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECOMPILERSETTINGSBOX_LONG_CY=*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+56)); -if(!qbevent)break;evnt(26070,15356,"ide_methods.bas");}while(r); -} -} -fornext_continue_5839:; -} -fornext_exit_5839:; -do{ -*_FUNC_IDECOMPILERSETTINGSBOX_LONG_LASTFOCUS=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_F- 1 ; -if(!qbevent)break;evnt(26070,15359,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 1 , 0 ); -if(!qbevent)break;evnt(26070,15366,"ide_methods.bas");}while(r); -S_52774:; -if ((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_CX)||new_error){ -if(qbevent){evnt(26070,15367,"ide_methods.bas");if(r)goto S_52774;} -do{ -qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,15367,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*_FUNC_IDECOMPILERSETTINGSBOX_LONG_CY,*_FUNC_IDECOMPILERSETTINGSBOX_LONG_CX, 1 ,NULL,NULL,7); -if(!qbevent)break;evnt(26070,15367,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,15367,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDECOMPILERSETTINGSBOX_LONG_CHANGE= 0 ; -if(!qbevent)break;evnt(26070,15370,"ide_methods.bas");}while(r); -S_52780:; -do{ -if(qbevent){evnt(26070,15371,"ide_methods.bas");if(r)goto S_52780;} -do{ -SUB_GETINPUT(); -if(!qbevent)break;evnt(26070,15372,"ide_methods.bas");}while(r); -S_52782:; -if ((*__LONG_MWHEEL)||new_error){ -if(qbevent){evnt(26070,15373,"ide_methods.bas");if(r)goto S_52782;} -do{ -*_FUNC_IDECOMPILERSETTINGSBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,15373,"ide_methods.bas");}while(r); -} -S_52785:; -if ((*__LONG_KB)||new_error){ -if(qbevent){evnt(26070,15374,"ide_methods.bas");if(r)goto S_52785;} -do{ -*_FUNC_IDECOMPILERSETTINGSBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,15374,"ide_methods.bas");}while(r); -} -S_52788:; -if ((*__LONG_MCLICK)||new_error){ -if(qbevent){evnt(26070,15375,"ide_methods.bas");if(r)goto S_52788;} -do{ -*_FUNC_IDECOMPILERSETTINGSBOX_LONG_MOUSEDOWN= 1 ; -if(!qbevent)break;evnt(26070,15375,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECOMPILERSETTINGSBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,15375,"ide_methods.bas");}while(r); -} -S_52792:; -if ((*__LONG_MRELEASE)||new_error){ -if(qbevent){evnt(26070,15376,"ide_methods.bas");if(r)goto S_52792;} -do{ -*_FUNC_IDECOMPILERSETTINGSBOX_LONG_MOUSEUP= 1 ; -if(!qbevent)break;evnt(26070,15376,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECOMPILERSETTINGSBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,15376,"ide_methods.bas");}while(r); -} -S_52796:; -if ((*__LONG_MB)||new_error){ -if(qbevent){evnt(26070,15377,"ide_methods.bas");if(r)goto S_52796;} -do{ -*_FUNC_IDECOMPILERSETTINGSBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,15377,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDECOMPILERSETTINGSBOX_LONG_ALT=*__LONG_KALT; -if(!qbevent)break;evnt(26070,15378,"ide_methods.bas");}while(r); -S_52800:; -if ((-(*_FUNC_IDECOMPILERSETTINGSBOX_LONG_ALT!=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_OLDALT))||new_error){ -if(qbevent){evnt(26070,15378,"ide_methods.bas");if(r)goto S_52800;} -do{ -*_FUNC_IDECOMPILERSETTINGSBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,15378,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDECOMPILERSETTINGSBOX_LONG_OLDALT=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_ALT; -if(!qbevent)break;evnt(26070,15379,"ide_methods.bas");}while(r); -do{ -sub__limit( 100 ); -if(!qbevent)break;evnt(26070,15380,"ide_methods.bas");}while(r); -S_52805:; -dl_continue_5841:; -}while((!(*_FUNC_IDECOMPILERSETTINGSBOX_LONG_CHANGE))&&(!new_error)); -dl_exit_5841:; -if(qbevent){evnt(26070,15381,"ide_methods.bas");if(r)goto S_52805;} -S_52806:; -if ((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(26070,15382,"ide_methods.bas");if(r)goto S_52806;} -do{ -*__LONG_IDEHL= 1 ; -if(!qbevent)break;evnt(26070,15382,"ide_methods.bas");}while(r); -}else{ -do{ -*__LONG_IDEHL= 0 ; -if(!qbevent)break;evnt(26070,15382,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDECOMPILERSETTINGSBOX_STRING_ALTLETTER,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15384,"ide_methods.bas");}while(r); -S_52812:; -if ((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(26070,15385,"ide_methods.bas");if(r)goto S_52812;} -S_52813:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ -if(qbevent){evnt(26070,15386,"ide_methods.bas");if(r)goto S_52813;} -do{ -*_FUNC_IDECOMPILERSETTINGSBOX_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15387,"ide_methods.bas");}while(r); -S_52815:; -if (((-(*_FUNC_IDECOMPILERSETTINGSBOX_LONG_K>= 65 ))&(-(*_FUNC_IDECOMPILERSETTINGSBOX_LONG_K<= 90 )))||new_error){ -if(qbevent){evnt(26070,15388,"ide_methods.bas");if(r)goto S_52815;} -do{ -qbs_set(_FUNC_IDECOMPILERSETTINGSBOX_STRING_ALTLETTER,func_chr(*_FUNC_IDECOMPILERSETTINGSBOX_LONG_K)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15388,"ide_methods.bas");}while(r); -} -} -} -do{ -qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,15391,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); -if(!qbevent)break;evnt(26070,15391,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,15391,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECOMPILERSETTINGSBOX_LONG_INFO= 0 ; -if(!qbevent)break;evnt(26070,15395,"ide_methods.bas");}while(r); -S_52824:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,15396,"ide_methods.bas");if(r)goto S_52824;} -do{ -qbs_set(__STRING_K,func_chr( 255 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15396,"ide_methods.bas");}while(r); -} -S_52827:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ -if(qbevent){evnt(26070,15397,"ide_methods.bas");if(r)goto S_52827;} -do{ -*_FUNC_IDECOMPILERSETTINGSBOX_LONG_FOCUS=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_FOCUS+ 1 ; -if(!qbevent)break;evnt(26070,15397,"ide_methods.bas");}while(r); -} -S_52830:; -if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||new_error){ -if(qbevent){evnt(26070,15398,"ide_methods.bas");if(r)goto S_52830;} -do{ -*_FUNC_IDECOMPILERSETTINGSBOX_LONG_FOCUS=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_FOCUS- 1 ; -if(!qbevent)break;evnt(26070,15398,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_K,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15398,"ide_methods.bas");}while(r); -} -S_52834:; -if ((-(*_FUNC_IDECOMPILERSETTINGSBOX_LONG_FOCUS< 1 ))||new_error){ -if(qbevent){evnt(26070,15399,"ide_methods.bas");if(r)goto S_52834;} -do{ -*_FUNC_IDECOMPILERSETTINGSBOX_LONG_FOCUS=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_LASTFOCUS; -if(!qbevent)break;evnt(26070,15399,"ide_methods.bas");}while(r); -} -S_52837:; -if ((-(*_FUNC_IDECOMPILERSETTINGSBOX_LONG_FOCUS>*_FUNC_IDECOMPILERSETTINGSBOX_LONG_LASTFOCUS))||new_error){ -if(qbevent){evnt(26070,15400,"ide_methods.bas");if(r)goto S_52837;} -do{ -*_FUNC_IDECOMPILERSETTINGSBOX_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(26070,15400,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDECOMPILERSETTINGSBOX_LONG_F= 1 ; -if(!qbevent)break;evnt(26070,15401,"ide_methods.bas");}while(r); -S_52841:; -fornext_value5844= 1 ; -fornext_finalvalue5844= 100 ; -fornext_step5844= 1 ; -if (fornext_step5844<0) fornext_step_negative5844=1; else fornext_step_negative5844=0; -if (new_error) goto fornext_error5844; -goto fornext_entrylabel5844; -while(1){ -fornext_value5844=fornext_step5844+(*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I); -fornext_entrylabel5844: -*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I=fornext_value5844; -if (fornext_step_negative5844){ -if (fornext_value5844fornext_finalvalue5844) break; -} -fornext_error5844:; -if(qbevent){evnt(26070,15402,"ide_methods.bas");if(r)goto S_52841;} -do{ -*_FUNC_IDECOMPILERSETTINGSBOX_LONG_T=*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+36)); -if(!qbevent)break;evnt(26070,15403,"ide_methods.bas");}while(r); -S_52843:; -if ((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_T)||new_error){ -if(qbevent){evnt(26070,15404,"ide_methods.bas");if(r)goto S_52843;} -do{ -*_FUNC_IDECOMPILERSETTINGSBOX_LONG_FOCUSOFFSET=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_FOCUS-*_FUNC_IDECOMPILERSETTINGSBOX_LONG_F; -if(!qbevent)break;evnt(26070,15405,"ide_methods.bas");}while(r); -do{ -SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDECOMPILERSETTINGSBOX_LONG_FOCUS,_FUNC_IDECOMPILERSETTINGSBOX_LONG_F,_FUNC_IDECOMPILERSETTINGSBOX_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDECOMPILERSETTINGSBOX_STRING_ALTLETTER,__LONG_MB,_FUNC_IDECOMPILERSETTINGSBOX_LONG_MOUSEDOWN,_FUNC_IDECOMPILERSETTINGSBOX_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDECOMPILERSETTINGSBOX_LONG_INFO,__LONG_MWHEEL); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15406,"ide_methods.bas");}while(r); -} -fornext_continue_5843:; -} -fornext_exit_5843:; -S_52848:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 27 )))|(((-(*_FUNC_IDECOMPILERSETTINGSBOX_LONG_FOCUS==(*_FUNC_IDECOMPILERSETTINGSBOX_LONG_BUTTONSID+ 1 )))&(-(*_FUNC_IDECOMPILERSETTINGSBOX_LONG_INFO!= 0 ))))))||new_error){ -if(qbevent){evnt(26070,15412,"ide_methods.bas");if(r)goto S_52848;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,15412,"ide_methods.bas");}while(r); -} -S_52851:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 13 )))|(((-(*_FUNC_IDECOMPILERSETTINGSBOX_LONG_FOCUS==*_FUNC_IDECOMPILERSETTINGSBOX_LONG_BUTTONSID))&(-(*_FUNC_IDECOMPILERSETTINGSBOX_LONG_INFO!= 0 ))))))||new_error){ -if(qbevent){evnt(26070,15413,"ide_methods.bas");if(r)goto S_52851;} -do{ -*_FUNC_IDECOMPILERSETTINGSBOX_INTEGER_V=*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_OPTIMIZECHECKBOX)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+64)); -if(!qbevent)break;evnt(26070,15415,"ide_methods.bas");}while(r); -S_52853:; -if ((-(*_FUNC_IDECOMPILERSETTINGSBOX_INTEGER_V!= 0 ))||new_error){ -if(qbevent){evnt(26070,15415,"ide_methods.bas");if(r)goto S_52853;} -do{ -*_FUNC_IDECOMPILERSETTINGSBOX_INTEGER_V= -1 ; -if(!qbevent)break;evnt(26070,15415,"ide_methods.bas");}while(r); -} -S_52856:; -if ((-(*__ULONG_OPTIMIZECPPPROGRAM!=*_FUNC_IDECOMPILERSETTINGSBOX_INTEGER_V))||new_error){ -if(qbevent){evnt(26070,15416,"ide_methods.bas");if(r)goto S_52856;} -do{ -*__ULONG_OPTIMIZECPPPROGRAM=*_FUNC_IDECOMPILERSETTINGSBOX_INTEGER_V; -if(!qbevent)break;evnt(26070,15417,"ide_methods.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_COMPILERSETTINGSSECTION,qbs_new_txt_len("OptimizeCppProgram",18),FUNC_BOOLTOTFSTRING((int32*)__ULONG_OPTIMIZECPPPROGRAM)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15418,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDECOMPILERSETTINGSBOX_INTEGER_V=*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_STRIPDEBUGCHECKBOX)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+64)); -if(!qbevent)break;evnt(26070,15421,"ide_methods.bas");}while(r); -S_52861:; -if ((-(*_FUNC_IDECOMPILERSETTINGSBOX_INTEGER_V!= 0 ))||new_error){ -if(qbevent){evnt(26070,15421,"ide_methods.bas");if(r)goto S_52861;} -do{ -*_FUNC_IDECOMPILERSETTINGSBOX_INTEGER_V= -1 ; -if(!qbevent)break;evnt(26070,15421,"ide_methods.bas");}while(r); -} -S_52864:; -if ((-(*__ULONG_STRIPDEBUGSYMBOLS!=*_FUNC_IDECOMPILERSETTINGSBOX_INTEGER_V))||new_error){ -if(qbevent){evnt(26070,15422,"ide_methods.bas");if(r)goto S_52864;} -do{ -*__ULONG_STRIPDEBUGSYMBOLS=*_FUNC_IDECOMPILERSETTINGSBOX_INTEGER_V; -if(!qbevent)break;evnt(26070,15423,"ide_methods.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_COMPILERSETTINGSSECTION,qbs_new_txt_len("StripDebugSymbols",17),FUNC_BOOLTOTFSTRING((int32*)__ULONG_STRIPDEBUGSYMBOLS)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15424,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDECOMPILERSETTINGSBOX_INTEGER_V=*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_ADDDEBUGSYMBOLSCHECKBOX)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+64)); -if(!qbevent)break;evnt(26070,15427,"ide_methods.bas");}while(r); -S_52869:; -if ((-(*_FUNC_IDECOMPILERSETTINGSBOX_INTEGER_V!= 0 ))||new_error){ -if(qbevent){evnt(26070,15427,"ide_methods.bas");if(r)goto S_52869;} -do{ -*_FUNC_IDECOMPILERSETTINGSBOX_INTEGER_V= -1 ; -if(!qbevent)break;evnt(26070,15427,"ide_methods.bas");}while(r); -} -S_52872:; -if ((-(*__LONG_INCLUDE_GDB_DEBUGGING_INFO!=*_FUNC_IDECOMPILERSETTINGSBOX_INTEGER_V))||new_error){ -if(qbevent){evnt(26070,15428,"ide_methods.bas");if(r)goto S_52872;} -do{ -*__LONG_INCLUDE_GDB_DEBUGGING_INFO=*_FUNC_IDECOMPILERSETTINGSBOX_INTEGER_V; -if(!qbevent)break;evnt(26070,15429,"ide_methods.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("DebugInfo",9),FUNC_BOOLTOTFSTRING(__LONG_INCLUDE_GDB_DEBUGGING_INFO)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15430,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDECOMPILERSETTINGSBOX_INTEGER_V=*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_USEOLDAUDIOBACKEND)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+64)); -if(!qbevent)break;evnt(26070,15433,"ide_methods.bas");}while(r); -S_52877:; -if ((-(*_FUNC_IDECOMPILERSETTINGSBOX_INTEGER_V!= 0 ))||new_error){ -if(qbevent){evnt(26070,15433,"ide_methods.bas");if(r)goto S_52877;} -do{ -*_FUNC_IDECOMPILERSETTINGSBOX_INTEGER_V= -1 ; -if(!qbevent)break;evnt(26070,15433,"ide_methods.bas");}while(r); -} -S_52880:; -if ((-(*__ULONG_USEMINIAUDIOBACKEND!=(~(*_FUNC_IDECOMPILERSETTINGSBOX_INTEGER_V))))||new_error){ -if(qbevent){evnt(26070,15434,"ide_methods.bas");if(r)goto S_52880;} -do{ -*__ULONG_USEMINIAUDIOBACKEND=~(*_FUNC_IDECOMPILERSETTINGSBOX_INTEGER_V); -if(!qbevent)break;evnt(26070,15435,"ide_methods.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_COMPILERSETTINGSSECTION,qbs_new_txt_len("UseMiniaudioBackend",19),FUNC_BOOLTOTFSTRING((int32*)__ULONG_USEMINIAUDIOBACKEND)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15436,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDECOMPILERSETTINGSBOX_INTEGER_V=qbr_float_to_long(func_val(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_MAXPARALLELTEXTBOX)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15439,"ide_methods.bas");}while(r); -S_52885:; -if (((-(*_FUNC_IDECOMPILERSETTINGSBOX_INTEGER_V> 0 ))&(-(*_FUNC_IDECOMPILERSETTINGSBOX_INTEGER_V!=*__ULONG_MAXPARALLELPROCESSES)))||new_error){ -if(qbevent){evnt(26070,15440,"ide_methods.bas");if(r)goto S_52885;} -do{ -*__ULONG_MAXPARALLELPROCESSES=*_FUNC_IDECOMPILERSETTINGSBOX_INTEGER_V; -if(!qbevent)break;evnt(26070,15441,"ide_methods.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_COMPILERSETTINGSSECTION,qbs_new_txt_len("MaxParallelProcesses",20),FUNC_STR2((int32*)__ULONG_MAXPARALLELPROCESSES)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15442,"ide_methods.bas");}while(r); -} -do{ -qbs_set(__STRING_EXTRACPPFLAGS,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_EXTRACPPFLAGSTEXTBOX)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15445,"ide_methods.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_COMPILERSETTINGSSECTION,qbs_new_txt_len("ExtraCppFlags",13),__STRING_EXTRACPPFLAGS); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15446,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_EXTRALINKERFLAGS,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_EXTRALINKERFLAGSTEXTBOX)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15448,"ide_methods.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_COMPILERSETTINGSSECTION,qbs_new_txt_len("ExtraLinkerFlags",16),__STRING_EXTRALINKERFLAGS); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15449,"ide_methods.bas");}while(r); -do{ -SUB_PURGETEMPORARYBUILDFILES(__STRING_OS,&(pass5845=*__LONG_MACOSX)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15452,"ide_methods.bas");}while(r); -do{ -*__INTEGER_IDECHANGEMADE= 1 ; -if(!qbevent)break;evnt(26070,15453,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,15455,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDECOMPILERSETTINGSBOX_LONG_MOUSEDOWN= 0 ; -if(!qbevent)break;evnt(26070,15460,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECOMPILERSETTINGSBOX_LONG_MOUSEUP= 0 ; -if(!qbevent)break;evnt(26070,15461,"ide_methods.bas");}while(r); -dl_continue_5838:; -}while(1); -dl_exit_5838:; -do{ -*_FUNC_IDECOMPILERSETTINGSBOX_LONG_IDECOMPILERSETTINGSBOX= 0 ; -if(!qbevent)break;evnt(26070,15464,"ide_methods.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free233.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -return *_FUNC_IDECOMPILERSETTINGSBOX_LONG_IDECOMPILERSETTINGSBOX; -} -int32 FUNC_IDEMESSAGEBOX(qbs*_FUNC_IDEMESSAGEBOX_STRING_TITLESTR,qbs*_FUNC_IDEMESSAGEBOX_STRING_MESSAGESTR,qbs*_FUNC_IDEMESSAGEBOX_STRING_BUTTONS){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data234.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -sub_pcopy( 0 , 2 ); -if(!qbevent)break;evnt(26070,15470,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 0 , 1 ); -if(!qbevent)break;evnt(26070,15471,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,15472,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEMESSAGEBOX_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(26070,15473,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(26070,15474,"ide_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26070,15249,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26070,15250,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26070,15251,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26070,15252,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26070,15253,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26070,15254,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26070,15255,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26070,15256,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26070,15257,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECOMPILERSETTINGSBOX_STRING1_SEP,func_chr( 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15258,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I= 0 ; +if(!qbevent)break;evnt(26070,15262,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECOMPILERSETTINGSBOX_LONG_Y= 0 ; +if(!qbevent)break;evnt(26070,15263,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,15265,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECOMPILERSETTINGSBOX_LONG_OPTIMIZECHECKBOX=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I; +if(!qbevent)break;evnt(26070,15266,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+36))= 4 ; +if(!qbevent)break;evnt(26070,15267,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECOMPILERSETTINGSBOX_LONG_Y=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_Y+ 2 ; +if(!qbevent)break;evnt(26070,15268,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+24))=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_Y; +if(!qbevent)break;evnt(26070,15268,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("Compile #program with C++ optimization flag",43)); +if(!qbevent)break;evnt(26070,15269,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+64))=*__ULONG_OPTIMIZECPPPROGRAM; +if(!qbevent)break;evnt(26070,15270,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,15272,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECOMPILERSETTINGSBOX_LONG_STRIPDEBUGCHECKBOX=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I; +if(!qbevent)break;evnt(26070,15273,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+36))= 4 ; +if(!qbevent)break;evnt(26070,15274,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECOMPILERSETTINGSBOX_LONG_Y=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_Y+ 1 ; +if(!qbevent)break;evnt(26070,15275,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+24))=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_Y; +if(!qbevent)break;evnt(26070,15275,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Strip C++ symbols from executable",34)); +if(!qbevent)break;evnt(26070,15276,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+64))=-(*__ULONG_STRIPDEBUGSYMBOLS); +if(!qbevent)break;evnt(26070,15277,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,15279,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECOMPILERSETTINGSBOX_LONG_ADDDEBUGSYMBOLSCHECKBOX=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I; +if(!qbevent)break;evnt(26070,15280,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+36))= 4 ; +if(!qbevent)break;evnt(26070,15281,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECOMPILERSETTINGSBOX_LONG_Y=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_Y+ 1 ; +if(!qbevent)break;evnt(26070,15282,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+24))=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_Y; +if(!qbevent)break;evnt(26070,15282,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Add C++ Debug Information",26)); +if(!qbevent)break;evnt(26070,15283,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+64))=*__LONG_INCLUDE_GDB_DEBUGGING_INFO; +if(!qbevent)break;evnt(26070,15284,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECOMPILERSETTINGSBOX_LONG_Y=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_Y+ 1 ; +if(!qbevent)break;evnt(26070,15286,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECOMPILERSETTINGSBOX_STRING_A2,FUNC_STR2(&(pass5829=*__LONG_IDEWY+*__LONG_IDESUBWINDOW))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15288,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,15289,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECOMPILERSETTINGSBOX_LONG_EXTRACPPFLAGSTEXTBOX=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I; +if(!qbevent)break;evnt(26070,15290,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+36))= 1 ; +if(!qbevent)break;evnt(26070,15291,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+20))= 2 ; +if(!qbevent)break;evnt(26070,15292,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECOMPILERSETTINGSBOX_LONG_Y=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_Y+ 2 ; +if(!qbevent)break;evnt(26070,15293,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+24))=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_Y; +if(!qbevent)break;evnt(26070,15293,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECOMPILERSETTINGSBOX_LONG_Y=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_Y+ 1 ; +if(!qbevent)break;evnt(26070,15293,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("C++ Compiler #Flags",19)); +if(!qbevent)break;evnt(26070,15294,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(__STRING_EXTRACPPFLAGS); +if(!qbevent)break;evnt(26070,15295,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+81))=_FUNC_IDECOMPILERSETTINGSBOX_STRING_A2->len; +if(!qbevent)break;evnt(26070,15296,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECOMPILERSETTINGSBOX_STRING_A2,FUNC_STR2(&(pass5831=*__LONG_IDEWY+*__LONG_IDESUBWINDOW))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15298,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,15299,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECOMPILERSETTINGSBOX_LONG_EXTRALINKERFLAGSTEXTBOX=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I; +if(!qbevent)break;evnt(26070,15300,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+36))= 1 ; +if(!qbevent)break;evnt(26070,15301,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+20))= 2 ; +if(!qbevent)break;evnt(26070,15302,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECOMPILERSETTINGSBOX_LONG_Y=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_Y+ 2 ; +if(!qbevent)break;evnt(26070,15303,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+24))=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_Y; +if(!qbevent)break;evnt(26070,15303,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECOMPILERSETTINGSBOX_LONG_Y=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_Y+ 1 ; +if(!qbevent)break;evnt(26070,15303,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("C++ #Linker Flags",17)); +if(!qbevent)break;evnt(26070,15304,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(__STRING_EXTRALINKERFLAGS); +if(!qbevent)break;evnt(26070,15305,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+81))=_FUNC_IDECOMPILERSETTINGSBOX_STRING_A2->len; +if(!qbevent)break;evnt(26070,15306,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECOMPILERSETTINGSBOX_STRING_A2,FUNC_STR2(&(pass5833=*__LONG_IDEWY+*__LONG_IDESUBWINDOW))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15308,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,15309,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECOMPILERSETTINGSBOX_LONG_MAXPARALLELTEXTBOX=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I; +if(!qbevent)break;evnt(26070,15310,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+36))= 1 ; +if(!qbevent)break;evnt(26070,15311,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+20))= 2 ; +if(!qbevent)break;evnt(26070,15312,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECOMPILERSETTINGSBOX_LONG_Y=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_Y+ 2 ; +if(!qbevent)break;evnt(26070,15313,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+24))=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_Y; +if(!qbevent)break;evnt(26070,15313,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECOMPILERSETTINGSBOX_LONG_Y=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_Y+ 1 ; +if(!qbevent)break;evnt(26070,15313,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Max C++ Compiler Processes",27)); +if(!qbevent)break;evnt(26070,15314,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(FUNC_STR2((int32*)__ULONG_MAXPARALLELPROCESSES)); +if(!qbevent)break;evnt(26070,15315,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+81))=_FUNC_IDECOMPILERSETTINGSBOX_STRING_A2->len; +if(!qbevent)break;evnt(26070,15316,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECOMPILERSETTINGSBOX_LONG_Y=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_Y+ 1 ; +if(!qbevent)break;evnt(26070,15318,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,15320,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECOMPILERSETTINGSBOX_LONG_USEOLDAUDIOBACKEND=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I; +if(!qbevent)break;evnt(26070,15321,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+36))= 4 ; +if(!qbevent)break;evnt(26070,15322,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECOMPILERSETTINGSBOX_LONG_Y=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_Y+ 1 ; +if(!qbevent)break;evnt(26070,15323,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+24))=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_Y; +if(!qbevent)break;evnt(26070,15323,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Use old audio backend (LGPL)",29)); +if(!qbevent)break;evnt(26070,15324,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+64))=~(*__ULONG_USEMINIAUDIOBACKEND); +if(!qbevent)break;evnt(26070,15325,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECOMPILERSETTINGSBOX_LONG_Y=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_Y+ 1 ; +if(!qbevent)break;evnt(26070,15327,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,15329,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECOMPILERSETTINGSBOX_LONG_BUTTONSID=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I; +if(!qbevent)break;evnt(26070,15330,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+36))= 3 ; +if(!qbevent)break;evnt(26070,15331,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECOMPILERSETTINGSBOX_LONG_Y=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_Y+ 1 ; +if(!qbevent)break;evnt(26070,15332,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+24))=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_Y; +if(!qbevent)break;evnt(26070,15332,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_new_txt_len("#OK",3),_FUNC_IDECOMPILERSETTINGSBOX_STRING1_SEP),qbs_new_txt_len("#Cancel",7))); +if(!qbevent)break;evnt(26070,15333,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+48))= 1 ; +if(!qbevent)break;evnt(26070,15334,"ide_methods.bas");}while(r); +do{ +SUB_IDEPAR((void*)( ((char*)(_FUNC_IDECOMPILERSETTINGSBOX_UDT_P)) + (0) ),&(pass5835= 60 ),_FUNC_IDECOMPILERSETTINGSBOX_LONG_Y,qbs_new_txt_len("Compiler Settings",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15336,"ide_methods.bas");}while(r); +S_52752:; +fornext_value5837= 1 ; +fornext_finalvalue5837= 100 ; +fornext_step5837= 1 ; +if (fornext_step5837<0) fornext_step_negative5837=1; else fornext_step_negative5837=0; +if (new_error) goto fornext_error5837; +goto fornext_entrylabel5837; +while(1){ +fornext_value5837=fornext_step5837+(*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I); +fornext_entrylabel5837: +*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I=fornext_value5837; +if (fornext_step_negative5837){ +if (fornext_value5837fornext_finalvalue5837) break; +} +fornext_error5837:; +if(qbevent){evnt(26070,15340,"ide_methods.bas");if(r)goto S_52752;} +do{ +memcpy(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89)+ 0,((char*)_FUNC_IDECOMPILERSETTINGSBOX_UDT_P)+(0)+ 0, 20); +if(!qbevent)break;evnt(26070,15340,"ide_methods.bas");}while(r); +fornext_continue_5836:; +} +fornext_exit_5836:; +S_52755:; +do{ +if(qbevent){evnt(26070,15343,"ide_methods.bas");if(r)goto S_52755;} +do{ +SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDECOMPILERSETTINGSBOX_UDT_P)) + (0) )); +if(!qbevent)break;evnt(26070,15347,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECOMPILERSETTINGSBOX_LONG_F= 1 ; +if(!qbevent)break;evnt(26070,15348,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECOMPILERSETTINGSBOX_LONG_CX= 0 ; +if(!qbevent)break;evnt(26070,15348,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECOMPILERSETTINGSBOX_LONG_CY= 0 ; +if(!qbevent)break;evnt(26070,15348,"ide_methods.bas");}while(r); +S_52760:; +fornext_value5840= 1 ; +fornext_finalvalue5840= 100 ; +fornext_step5840= 1 ; +if (fornext_step5840<0) fornext_step_negative5840=1; else fornext_step_negative5840=0; +if (new_error) goto fornext_error5840; +goto fornext_entrylabel5840; +while(1){ +fornext_value5840=fornext_step5840+(*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I); +fornext_entrylabel5840: +*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I=fornext_value5840; +if (fornext_step_negative5840){ +if (fornext_value5840fornext_finalvalue5840) break; +} +fornext_error5840:; +if(qbevent){evnt(26070,15349,"ide_methods.bas");if(r)goto S_52760;} +S_52761:; +if ((*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+36)))||new_error){ +if(qbevent){evnt(26070,15350,"ide_methods.bas");if(r)goto S_52761;} +do{ +*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+60))=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_FOCUS-*_FUNC_IDECOMPILERSETTINGSBOX_LONG_F; +if(!qbevent)break;evnt(26070,15353,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+52))= 0 ; +if(!qbevent)break;evnt(26070,15354,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+56))= 0 ; +if(!qbevent)break;evnt(26070,15354,"ide_methods.bas");}while(r); +do{ +SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDECOMPILERSETTINGSBOX_LONG_F); +if(!qbevent)break;evnt(26070,15355,"ide_methods.bas");}while(r); +S_52766:; +if ((*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+52)))||new_error){ +if(qbevent){evnt(26070,15356,"ide_methods.bas");if(r)goto S_52766;} +do{ +*_FUNC_IDECOMPILERSETTINGSBOX_LONG_CX=*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+52)); +if(!qbevent)break;evnt(26070,15356,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECOMPILERSETTINGSBOX_LONG_CY=*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+56)); +if(!qbevent)break;evnt(26070,15356,"ide_methods.bas");}while(r); +} +} +fornext_continue_5839:; +} +fornext_exit_5839:; +do{ +*_FUNC_IDECOMPILERSETTINGSBOX_LONG_LASTFOCUS=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_F- 1 ; +if(!qbevent)break;evnt(26070,15359,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 1 , 0 ); +if(!qbevent)break;evnt(26070,15366,"ide_methods.bas");}while(r); +S_52774:; +if ((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_CX)||new_error){ +if(qbevent){evnt(26070,15367,"ide_methods.bas");if(r)goto S_52774;} +do{ +qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,15367,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(*_FUNC_IDECOMPILERSETTINGSBOX_LONG_CY,*_FUNC_IDECOMPILERSETTINGSBOX_LONG_CX, 1 ,NULL,NULL,7); +if(!qbevent)break;evnt(26070,15367,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,15367,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDECOMPILERSETTINGSBOX_LONG_CHANGE= 0 ; +if(!qbevent)break;evnt(26070,15370,"ide_methods.bas");}while(r); +S_52780:; +do{ +if(qbevent){evnt(26070,15371,"ide_methods.bas");if(r)goto S_52780;} +do{ +SUB_GETINPUT(); +if(!qbevent)break;evnt(26070,15372,"ide_methods.bas");}while(r); +S_52782:; +if ((*__LONG_MWHEEL)||new_error){ +if(qbevent){evnt(26070,15373,"ide_methods.bas");if(r)goto S_52782;} +do{ +*_FUNC_IDECOMPILERSETTINGSBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,15373,"ide_methods.bas");}while(r); +} +S_52785:; +if ((*__LONG_KB)||new_error){ +if(qbevent){evnt(26070,15374,"ide_methods.bas");if(r)goto S_52785;} +do{ +*_FUNC_IDECOMPILERSETTINGSBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,15374,"ide_methods.bas");}while(r); +} +S_52788:; +if ((*__LONG_MCLICK)||new_error){ +if(qbevent){evnt(26070,15375,"ide_methods.bas");if(r)goto S_52788;} +do{ +*_FUNC_IDECOMPILERSETTINGSBOX_LONG_MOUSEDOWN= 1 ; +if(!qbevent)break;evnt(26070,15375,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECOMPILERSETTINGSBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,15375,"ide_methods.bas");}while(r); +} +S_52792:; +if ((*__LONG_MRELEASE)||new_error){ +if(qbevent){evnt(26070,15376,"ide_methods.bas");if(r)goto S_52792;} +do{ +*_FUNC_IDECOMPILERSETTINGSBOX_LONG_MOUSEUP= 1 ; +if(!qbevent)break;evnt(26070,15376,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECOMPILERSETTINGSBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,15376,"ide_methods.bas");}while(r); +} +S_52796:; +if ((*__LONG_MB)||new_error){ +if(qbevent){evnt(26070,15377,"ide_methods.bas");if(r)goto S_52796;} +do{ +*_FUNC_IDECOMPILERSETTINGSBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,15377,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDECOMPILERSETTINGSBOX_LONG_ALT=*__LONG_KALT; +if(!qbevent)break;evnt(26070,15378,"ide_methods.bas");}while(r); +S_52800:; +if ((-(*_FUNC_IDECOMPILERSETTINGSBOX_LONG_ALT!=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_OLDALT))||new_error){ +if(qbevent){evnt(26070,15378,"ide_methods.bas");if(r)goto S_52800;} +do{ +*_FUNC_IDECOMPILERSETTINGSBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,15378,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDECOMPILERSETTINGSBOX_LONG_OLDALT=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_ALT; +if(!qbevent)break;evnt(26070,15379,"ide_methods.bas");}while(r); +do{ +sub__limit( 100 ); +if(!qbevent)break;evnt(26070,15380,"ide_methods.bas");}while(r); +S_52805:; +dl_continue_5841:; +}while((!(*_FUNC_IDECOMPILERSETTINGSBOX_LONG_CHANGE))&&(!new_error)); +dl_exit_5841:; +if(qbevent){evnt(26070,15381,"ide_methods.bas");if(r)goto S_52805;} +S_52806:; +if ((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ +if(qbevent){evnt(26070,15382,"ide_methods.bas");if(r)goto S_52806;} +do{ +*__LONG_IDEHL= 1 ; +if(!qbevent)break;evnt(26070,15382,"ide_methods.bas");}while(r); +}else{ +do{ +*__LONG_IDEHL= 0 ; +if(!qbevent)break;evnt(26070,15382,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDECOMPILERSETTINGSBOX_STRING_ALTLETTER,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15384,"ide_methods.bas");}while(r); +S_52812:; +if ((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ +if(qbevent){evnt(26070,15385,"ide_methods.bas");if(r)goto S_52812;} +S_52813:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ +if(qbevent){evnt(26070,15386,"ide_methods.bas");if(r)goto S_52813;} +do{ +*_FUNC_IDECOMPILERSETTINGSBOX_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15387,"ide_methods.bas");}while(r); +S_52815:; +if (((-(*_FUNC_IDECOMPILERSETTINGSBOX_LONG_K>= 65 ))&(-(*_FUNC_IDECOMPILERSETTINGSBOX_LONG_K<= 90 )))||new_error){ +if(qbevent){evnt(26070,15388,"ide_methods.bas");if(r)goto S_52815;} +do{ +qbs_set(_FUNC_IDECOMPILERSETTINGSBOX_STRING_ALTLETTER,func_chr(*_FUNC_IDECOMPILERSETTINGSBOX_LONG_K)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15388,"ide_methods.bas");}while(r); +} +} +} +do{ +qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,15391,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); +if(!qbevent)break;evnt(26070,15391,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,15391,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECOMPILERSETTINGSBOX_LONG_INFO= 0 ; +if(!qbevent)break;evnt(26070,15395,"ide_methods.bas");}while(r); +S_52824:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,15396,"ide_methods.bas");if(r)goto S_52824;} +do{ +qbs_set(__STRING_K,func_chr( 255 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15396,"ide_methods.bas");}while(r); +} +S_52827:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ +if(qbevent){evnt(26070,15397,"ide_methods.bas");if(r)goto S_52827;} +do{ +*_FUNC_IDECOMPILERSETTINGSBOX_LONG_FOCUS=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_FOCUS+ 1 ; +if(!qbevent)break;evnt(26070,15397,"ide_methods.bas");}while(r); +} +S_52830:; +if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||new_error){ +if(qbevent){evnt(26070,15398,"ide_methods.bas");if(r)goto S_52830;} +do{ +*_FUNC_IDECOMPILERSETTINGSBOX_LONG_FOCUS=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_FOCUS- 1 ; +if(!qbevent)break;evnt(26070,15398,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_K,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15398,"ide_methods.bas");}while(r); +} +S_52834:; +if ((-(*_FUNC_IDECOMPILERSETTINGSBOX_LONG_FOCUS< 1 ))||new_error){ +if(qbevent){evnt(26070,15399,"ide_methods.bas");if(r)goto S_52834;} +do{ +*_FUNC_IDECOMPILERSETTINGSBOX_LONG_FOCUS=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_LASTFOCUS; +if(!qbevent)break;evnt(26070,15399,"ide_methods.bas");}while(r); +} +S_52837:; +if ((-(*_FUNC_IDECOMPILERSETTINGSBOX_LONG_FOCUS>*_FUNC_IDECOMPILERSETTINGSBOX_LONG_LASTFOCUS))||new_error){ +if(qbevent){evnt(26070,15400,"ide_methods.bas");if(r)goto S_52837;} +do{ +*_FUNC_IDECOMPILERSETTINGSBOX_LONG_FOCUS= 1 ; +if(!qbevent)break;evnt(26070,15400,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDECOMPILERSETTINGSBOX_LONG_F= 1 ; +if(!qbevent)break;evnt(26070,15401,"ide_methods.bas");}while(r); +S_52841:; +fornext_value5844= 1 ; +fornext_finalvalue5844= 100 ; +fornext_step5844= 1 ; +if (fornext_step5844<0) fornext_step_negative5844=1; else fornext_step_negative5844=0; +if (new_error) goto fornext_error5844; +goto fornext_entrylabel5844; +while(1){ +fornext_value5844=fornext_step5844+(*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I); +fornext_entrylabel5844: +*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I=fornext_value5844; +if (fornext_step_negative5844){ +if (fornext_value5844fornext_finalvalue5844) break; +} +fornext_error5844:; +if(qbevent){evnt(26070,15402,"ide_methods.bas");if(r)goto S_52841;} +do{ +*_FUNC_IDECOMPILERSETTINGSBOX_LONG_T=*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+36)); +if(!qbevent)break;evnt(26070,15403,"ide_methods.bas");}while(r); +S_52843:; +if ((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_T)||new_error){ +if(qbevent){evnt(26070,15404,"ide_methods.bas");if(r)goto S_52843;} +do{ +*_FUNC_IDECOMPILERSETTINGSBOX_LONG_FOCUSOFFSET=*_FUNC_IDECOMPILERSETTINGSBOX_LONG_FOCUS-*_FUNC_IDECOMPILERSETTINGSBOX_LONG_F; +if(!qbevent)break;evnt(26070,15405,"ide_methods.bas");}while(r); +do{ +SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_I)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDECOMPILERSETTINGSBOX_LONG_FOCUS,_FUNC_IDECOMPILERSETTINGSBOX_LONG_F,_FUNC_IDECOMPILERSETTINGSBOX_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDECOMPILERSETTINGSBOX_STRING_ALTLETTER,__LONG_MB,_FUNC_IDECOMPILERSETTINGSBOX_LONG_MOUSEDOWN,_FUNC_IDECOMPILERSETTINGSBOX_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDECOMPILERSETTINGSBOX_LONG_INFO,__LONG_MWHEEL); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15406,"ide_methods.bas");}while(r); +} +fornext_continue_5843:; +} +fornext_exit_5843:; +S_52848:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 27 )))|(((-(*_FUNC_IDECOMPILERSETTINGSBOX_LONG_FOCUS==(*_FUNC_IDECOMPILERSETTINGSBOX_LONG_BUTTONSID+ 1 )))&(-(*_FUNC_IDECOMPILERSETTINGSBOX_LONG_INFO!= 0 ))))))||new_error){ +if(qbevent){evnt(26070,15412,"ide_methods.bas");if(r)goto S_52848;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,15412,"ide_methods.bas");}while(r); +} +S_52851:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 13 )))|(((-(*_FUNC_IDECOMPILERSETTINGSBOX_LONG_FOCUS==*_FUNC_IDECOMPILERSETTINGSBOX_LONG_BUTTONSID))&(-(*_FUNC_IDECOMPILERSETTINGSBOX_LONG_INFO!= 0 ))))))||new_error){ +if(qbevent){evnt(26070,15413,"ide_methods.bas");if(r)goto S_52851;} +do{ +*_FUNC_IDECOMPILERSETTINGSBOX_INTEGER_V=*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_OPTIMIZECHECKBOX)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26070,15415,"ide_methods.bas");}while(r); +S_52853:; +if ((-(*_FUNC_IDECOMPILERSETTINGSBOX_INTEGER_V!= 0 ))||new_error){ +if(qbevent){evnt(26070,15415,"ide_methods.bas");if(r)goto S_52853;} +do{ +*_FUNC_IDECOMPILERSETTINGSBOX_INTEGER_V= -1 ; +if(!qbevent)break;evnt(26070,15415,"ide_methods.bas");}while(r); +} +S_52856:; +if ((-(*__ULONG_OPTIMIZECPPPROGRAM!=*_FUNC_IDECOMPILERSETTINGSBOX_INTEGER_V))||new_error){ +if(qbevent){evnt(26070,15416,"ide_methods.bas");if(r)goto S_52856;} +do{ +*__ULONG_OPTIMIZECPPPROGRAM=*_FUNC_IDECOMPILERSETTINGSBOX_INTEGER_V; +if(!qbevent)break;evnt(26070,15417,"ide_methods.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_COMPILERSETTINGSSECTION,qbs_new_txt_len("OptimizeCppProgram",18),FUNC_BOOLTOTFSTRING((int32*)__ULONG_OPTIMIZECPPPROGRAM)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15418,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDECOMPILERSETTINGSBOX_INTEGER_V=*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_STRIPDEBUGCHECKBOX)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26070,15421,"ide_methods.bas");}while(r); +S_52861:; +if ((-(*_FUNC_IDECOMPILERSETTINGSBOX_INTEGER_V!= 0 ))||new_error){ +if(qbevent){evnt(26070,15421,"ide_methods.bas");if(r)goto S_52861;} +do{ +*_FUNC_IDECOMPILERSETTINGSBOX_INTEGER_V= -1 ; +if(!qbevent)break;evnt(26070,15421,"ide_methods.bas");}while(r); +} +S_52864:; +if ((-(*__ULONG_STRIPDEBUGSYMBOLS!=*_FUNC_IDECOMPILERSETTINGSBOX_INTEGER_V))||new_error){ +if(qbevent){evnt(26070,15422,"ide_methods.bas");if(r)goto S_52864;} +do{ +*__ULONG_STRIPDEBUGSYMBOLS=*_FUNC_IDECOMPILERSETTINGSBOX_INTEGER_V; +if(!qbevent)break;evnt(26070,15423,"ide_methods.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_COMPILERSETTINGSSECTION,qbs_new_txt_len("StripDebugSymbols",17),FUNC_BOOLTOTFSTRING((int32*)__ULONG_STRIPDEBUGSYMBOLS)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15424,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDECOMPILERSETTINGSBOX_INTEGER_V=*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_ADDDEBUGSYMBOLSCHECKBOX)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26070,15427,"ide_methods.bas");}while(r); +S_52869:; +if ((-(*_FUNC_IDECOMPILERSETTINGSBOX_INTEGER_V!= 0 ))||new_error){ +if(qbevent){evnt(26070,15427,"ide_methods.bas");if(r)goto S_52869;} +do{ +*_FUNC_IDECOMPILERSETTINGSBOX_INTEGER_V= -1 ; +if(!qbevent)break;evnt(26070,15427,"ide_methods.bas");}while(r); +} +S_52872:; +if ((-(*__LONG_INCLUDE_GDB_DEBUGGING_INFO!=*_FUNC_IDECOMPILERSETTINGSBOX_INTEGER_V))||new_error){ +if(qbevent){evnt(26070,15428,"ide_methods.bas");if(r)goto S_52872;} +do{ +*__LONG_INCLUDE_GDB_DEBUGGING_INFO=*_FUNC_IDECOMPILERSETTINGSBOX_INTEGER_V; +if(!qbevent)break;evnt(26070,15429,"ide_methods.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("DebugInfo",9),FUNC_BOOLTOTFSTRING(__LONG_INCLUDE_GDB_DEBUGGING_INFO)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15430,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDECOMPILERSETTINGSBOX_INTEGER_V=*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_USEOLDAUDIOBACKEND)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26070,15433,"ide_methods.bas");}while(r); +S_52877:; +if ((-(*_FUNC_IDECOMPILERSETTINGSBOX_INTEGER_V!= 0 ))||new_error){ +if(qbevent){evnt(26070,15433,"ide_methods.bas");if(r)goto S_52877;} +do{ +*_FUNC_IDECOMPILERSETTINGSBOX_INTEGER_V= -1 ; +if(!qbevent)break;evnt(26070,15433,"ide_methods.bas");}while(r); +} +S_52880:; +if ((-(*__ULONG_USEMINIAUDIOBACKEND!=(~(*_FUNC_IDECOMPILERSETTINGSBOX_INTEGER_V))))||new_error){ +if(qbevent){evnt(26070,15434,"ide_methods.bas");if(r)goto S_52880;} +do{ +*__ULONG_USEMINIAUDIOBACKEND=~(*_FUNC_IDECOMPILERSETTINGSBOX_INTEGER_V); +if(!qbevent)break;evnt(26070,15435,"ide_methods.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_COMPILERSETTINGSSECTION,qbs_new_txt_len("UseMiniaudioBackend",19),FUNC_BOOLTOTFSTRING((int32*)__ULONG_USEMINIAUDIOBACKEND)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15436,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDECOMPILERSETTINGSBOX_INTEGER_V=qbr_float_to_long(func_val(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_MAXPARALLELTEXTBOX)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15439,"ide_methods.bas");}while(r); +S_52885:; +if (((-(*_FUNC_IDECOMPILERSETTINGSBOX_INTEGER_V> 0 ))&(-(*_FUNC_IDECOMPILERSETTINGSBOX_INTEGER_V!=*__ULONG_MAXPARALLELPROCESSES)))||new_error){ +if(qbevent){evnt(26070,15440,"ide_methods.bas");if(r)goto S_52885;} +do{ +*__ULONG_MAXPARALLELPROCESSES=*_FUNC_IDECOMPILERSETTINGSBOX_INTEGER_V; +if(!qbevent)break;evnt(26070,15441,"ide_methods.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_COMPILERSETTINGSSECTION,qbs_new_txt_len("MaxParallelProcesses",20),FUNC_STR2((int32*)__ULONG_MAXPARALLELPROCESSES)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15442,"ide_methods.bas");}while(r); +} +do{ +qbs_set(__STRING_EXTRACPPFLAGS,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_EXTRACPPFLAGSTEXTBOX)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15445,"ide_methods.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_COMPILERSETTINGSSECTION,qbs_new_txt_len("ExtraCppFlags",13),__STRING_EXTRACPPFLAGS); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15446,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_EXTRALINKERFLAGS,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECOMPILERSETTINGSBOX_LONG_EXTRALINKERFLAGSTEXTBOX)-_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[4],_FUNC_IDECOMPILERSETTINGSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15448,"ide_methods.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_COMPILERSETTINGSSECTION,qbs_new_txt_len("ExtraLinkerFlags",16),__STRING_EXTRALINKERFLAGS); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15449,"ide_methods.bas");}while(r); +do{ +SUB_PURGETEMPORARYBUILDFILES(__STRING_OS,&(pass5845=*__LONG_MACOSX)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15452,"ide_methods.bas");}while(r); +do{ +*__INTEGER_IDECHANGEMADE= 1 ; +if(!qbevent)break;evnt(26070,15453,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,15455,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDECOMPILERSETTINGSBOX_LONG_MOUSEDOWN= 0 ; +if(!qbevent)break;evnt(26070,15460,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECOMPILERSETTINGSBOX_LONG_MOUSEUP= 0 ; +if(!qbevent)break;evnt(26070,15461,"ide_methods.bas");}while(r); +dl_continue_5838:; +}while(1); +dl_exit_5838:; +do{ +*_FUNC_IDECOMPILERSETTINGSBOX_LONG_IDECOMPILERSETTINGSBOX= 0 ; +if(!qbevent)break;evnt(26070,15464,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free233.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +return *_FUNC_IDECOMPILERSETTINGSBOX_LONG_IDECOMPILERSETTINGSBOX; +} +int32 FUNC_IDEMESSAGEBOX(qbs*_FUNC_IDEMESSAGEBOX_STRING_TITLESTR,qbs*_FUNC_IDEMESSAGEBOX_STRING_MESSAGESTR,qbs*_FUNC_IDEMESSAGEBOX_STRING_BUTTONS){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data234.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +sub_pcopy( 0 , 2 ); +if(!qbevent)break;evnt(26070,15470,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 0 , 1 ); +if(!qbevent)break;evnt(26070,15471,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,15472,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEMESSAGEBOX_LONG_FOCUS= 1 ; +if(!qbevent)break;evnt(26070,15473,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26070,15474,"ide_methods.bas");}while(r); +do{ if (_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[2]&2){ error(10); @@ -178345,22 +178345,22 @@ if (!_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[0]) error(257); } _FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[2]|=1; } -} -if(!qbevent)break;evnt(26070,15475,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(26070,15476,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEMESSAGEBOX_STRING1_SEP,func_chr( 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15477,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEMESSAGEBOX_STRING_MESSAGESTR,FUNC_STRREPLACE(_FUNC_IDEMESSAGEBOX_STRING_MESSAGESTR,qbs_new_txt_len("\\n",2),func_chr( 10 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15481,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEMESSAGEBOX_LONG_MESSAGELINES= 1 ; -if(!qbevent)break;evnt(26070,15482,"ide_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26070,15475,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26070,15476,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEMESSAGEBOX_STRING1_SEP,func_chr( 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15477,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEMESSAGEBOX_STRING_MESSAGESTR,FUNC_STRREPLACE(_FUNC_IDEMESSAGEBOX_STRING_MESSAGESTR,qbs_new_txt_len("\\n",2),func_chr( 10 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15481,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEMESSAGEBOX_LONG_MESSAGELINES= 1 ; +if(!qbevent)break;evnt(26070,15482,"ide_methods.bas");}while(r); +do{ if (_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[2]&2){ error(10); @@ -178381,619 +178381,619 @@ while(tmp_long--) ((uint64*)(_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[0]))[t while(tmp_long--) ((uint64*)(_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -} -if(!qbevent)break;evnt(26070,15483,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEMESSAGEBOX_LONG_PREVSCAN= 1 ; -if(!qbevent)break;evnt(26070,15484,"ide_methods.bas");}while(r); -S_52913:; -do{ -if(qbevent){evnt(26070,15485,"ide_methods.bas");if(r)goto S_52913;} -do{ -*_FUNC_IDEMESSAGEBOX_LONG_NEXTSCAN=func_instr(*_FUNC_IDEMESSAGEBOX_LONG_NEXTSCAN+ 1 ,_FUNC_IDEMESSAGEBOX_STRING_MESSAGESTR,func_chr( 10 ),0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15486,"ide_methods.bas");}while(r); -S_52915:; -if ((-(*_FUNC_IDEMESSAGEBOX_LONG_NEXTSCAN> 0 ))||new_error){ -if(qbevent){evnt(26070,15487,"ide_methods.bas");if(r)goto S_52915;} -do{ -tmp_long=array_check((*_FUNC_IDEMESSAGEBOX_LONG_MESSAGELINES)-_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[4],_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[0]))[tmp_long])),func_mid(_FUNC_IDEMESSAGEBOX_STRING_MESSAGESTR,*_FUNC_IDEMESSAGEBOX_LONG_PREVSCAN,*_FUNC_IDEMESSAGEBOX_LONG_NEXTSCAN-*_FUNC_IDEMESSAGEBOX_LONG_PREVSCAN,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15488,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEMESSAGEBOX_LONG_TW=((qbs*)(((uint64*)(_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[0]))[array_check((*_FUNC_IDEMESSAGEBOX_LONG_MESSAGELINES)-_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[4],_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[5])]))->len+ 2 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15489,"ide_methods.bas");}while(r); -S_52918:; -if ((-(*_FUNC_IDEMESSAGEBOX_LONG_TW>*_FUNC_IDEMESSAGEBOX_LONG_W))||new_error){ -if(qbevent){evnt(26070,15490,"ide_methods.bas");if(r)goto S_52918;} -do{ -*_FUNC_IDEMESSAGEBOX_LONG_W=*_FUNC_IDEMESSAGEBOX_LONG_TW; -if(!qbevent)break;evnt(26070,15490,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEMESSAGEBOX_LONG_PREVSCAN=*_FUNC_IDEMESSAGEBOX_LONG_NEXTSCAN+ 1 ; -if(!qbevent)break;evnt(26070,15491,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEMESSAGEBOX_LONG_MESSAGELINES=*_FUNC_IDEMESSAGEBOX_LONG_MESSAGELINES+ 1 ; -if(!qbevent)break;evnt(26070,15492,"ide_methods.bas");}while(r); -S_52923:; -if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDEMESSAGEBOX_LONG_MESSAGELINES>func_ubound(_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE,1,1))))||new_error){ -if(qbevent){evnt(26070,15493,"ide_methods.bas");if(r)goto S_52923;} -do{ -goto dl_exit_5849; -if(!qbevent)break;evnt(26070,15493,"ide_methods.bas");}while(r); -} -}else{ -do{ -tmp_long=array_check((*_FUNC_IDEMESSAGEBOX_LONG_MESSAGELINES)-_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[4],_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[0]))[tmp_long])),func_mid(_FUNC_IDEMESSAGEBOX_STRING_MESSAGESTR,*_FUNC_IDEMESSAGEBOX_LONG_PREVSCAN,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15495,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEMESSAGEBOX_LONG_TW=((qbs*)(((uint64*)(_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[0]))[array_check((*_FUNC_IDEMESSAGEBOX_LONG_MESSAGELINES)-_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[4],_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[5])]))->len+ 2 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15496,"ide_methods.bas");}while(r); -S_52929:; -if ((-(*_FUNC_IDEMESSAGEBOX_LONG_TW>*_FUNC_IDEMESSAGEBOX_LONG_W))||new_error){ -if(qbevent){evnt(26070,15497,"ide_methods.bas");if(r)goto S_52929;} -do{ -*_FUNC_IDEMESSAGEBOX_LONG_W=*_FUNC_IDEMESSAGEBOX_LONG_TW; -if(!qbevent)break;evnt(26070,15497,"ide_methods.bas");}while(r); -} -do{ -goto dl_exit_5849; -if(!qbevent)break;evnt(26070,15498,"ide_methods.bas");}while(r); -} -dl_continue_5849:; -}while(1); -dl_exit_5849:; -S_52935:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEMESSAGEBOX_STRING_BUTTONS,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,15502,"ide_methods.bas");if(r)goto S_52935;} -do{ -qbs_set(_FUNC_IDEMESSAGEBOX_STRING_BUTTONS,qbs_new_txt_len("#OK",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15502,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEMESSAGEBOX_LONG_TOTALBUTTONS= 1 ; -if(!qbevent)break;evnt(26070,15503,"ide_methods.bas");}while(r); -S_52939:; -fornext_value5853= 1 ; -fornext_finalvalue5853=_FUNC_IDEMESSAGEBOX_STRING_BUTTONS->len; -fornext_step5853= 1 ; -if (fornext_step5853<0) fornext_step_negative5853=1; else fornext_step_negative5853=0; -if (new_error) goto fornext_error5853; -goto fornext_entrylabel5853; -while(1){ -fornext_value5853=fornext_step5853+(*_FUNC_IDEMESSAGEBOX_LONG_I); -fornext_entrylabel5853: -*_FUNC_IDEMESSAGEBOX_LONG_I=fornext_value5853; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative5853){ -if (fornext_value5853fornext_finalvalue5853) break; -} -fornext_error5853:; -if(qbevent){evnt(26070,15504,"ide_methods.bas");if(r)goto S_52939;} -S_52940:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_IDEMESSAGEBOX_STRING_BUTTONS,*_FUNC_IDEMESSAGEBOX_LONG_I)== 59 )))||new_error){ -if(qbevent){evnt(26070,15505,"ide_methods.bas");if(r)goto S_52940;} -do{ -*_FUNC_IDEMESSAGEBOX_LONG_TOTALBUTTONS=*_FUNC_IDEMESSAGEBOX_LONG_TOTALBUTTONS+ 1 ; -if(!qbevent)break;evnt(26070,15505,"ide_methods.bas");}while(r); -} -fornext_continue_5852:; -} -fornext_exit_5852:; -do{ -*_FUNC_IDEMESSAGEBOX_LONG_BUTTONSLEN=(_FUNC_IDEMESSAGEBOX_STRING_BUTTONS->len)+(*_FUNC_IDEMESSAGEBOX_LONG_TOTALBUTTONS* 6 ); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15507,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEMESSAGEBOX_LONG_I= 0 ; -if(!qbevent)break;evnt(26070,15509,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEMESSAGEBOX_LONG_W2=_FUNC_IDEMESSAGEBOX_STRING_TITLESTR->len+ 4 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15510,"ide_methods.bas");}while(r); -S_52947:; -if ((-(*_FUNC_IDEMESSAGEBOX_LONG_W<*_FUNC_IDEMESSAGEBOX_LONG_W2))||new_error){ -if(qbevent){evnt(26070,15511,"ide_methods.bas");if(r)goto S_52947;} -do{ -*_FUNC_IDEMESSAGEBOX_LONG_W=*_FUNC_IDEMESSAGEBOX_LONG_W2; -if(!qbevent)break;evnt(26070,15511,"ide_methods.bas");}while(r); -} -S_52950:; -if ((-(*_FUNC_IDEMESSAGEBOX_LONG_W<*_FUNC_IDEMESSAGEBOX_LONG_BUTTONSLEN))||new_error){ -if(qbevent){evnt(26070,15512,"ide_methods.bas");if(r)goto S_52950;} -do{ -*_FUNC_IDEMESSAGEBOX_LONG_W=*_FUNC_IDEMESSAGEBOX_LONG_BUTTONSLEN; -if(!qbevent)break;evnt(26070,15512,"ide_methods.bas");}while(r); -} -S_52953:; -if ((-(*_FUNC_IDEMESSAGEBOX_LONG_W>(*__LONG_IDEWX- 4 )))||new_error){ -if(qbevent){evnt(26070,15513,"ide_methods.bas");if(r)goto S_52953;} -do{ -*_FUNC_IDEMESSAGEBOX_LONG_W=*__LONG_IDEWX- 4 ; -if(!qbevent)break;evnt(26070,15513,"ide_methods.bas");}while(r); -} -do{ -SUB_IDEPAR((void*)( ((char*)(_FUNC_IDEMESSAGEBOX_UDT_P)) + (0) ),_FUNC_IDEMESSAGEBOX_LONG_W,&(pass5857= 3 +*_FUNC_IDEMESSAGEBOX_LONG_MESSAGELINES),_FUNC_IDEMESSAGEBOX_STRING_TITLESTR); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15514,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEMESSAGEBOX_LONG_I=*_FUNC_IDEMESSAGEBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,15516,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEMESSAGEBOX_LONG_I)-_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[4],_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[5]))*89+36))= 3 ; -if(!qbevent)break;evnt(26070,15517,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEMESSAGEBOX_LONG_I)-_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[4],_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[5]))*89+24))= 3 +*_FUNC_IDEMESSAGEBOX_LONG_MESSAGELINES; -if(!qbevent)break;evnt(26070,15518,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEMESSAGEBOX_LONG_I)-_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[4],_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(FUNC_STRREPLACE(_FUNC_IDEMESSAGEBOX_STRING_BUTTONS,qbs_new_txt_len(";",1),_FUNC_IDEMESSAGEBOX_STRING1_SEP)); -if(!qbevent)break;evnt(26070,15519,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEMESSAGEBOX_LONG_I)-_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[4],_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[5]))*89+48))= 1 ; -if(!qbevent)break;evnt(26070,15520,"ide_methods.bas");}while(r); -S_52962:; -fornext_value5859= 1 ; -fornext_finalvalue5859= 100 ; -fornext_step5859= 1 ; -if (fornext_step5859<0) fornext_step_negative5859=1; else fornext_step_negative5859=0; -if (new_error) goto fornext_error5859; -goto fornext_entrylabel5859; -while(1){ -fornext_value5859=fornext_step5859+(*_FUNC_IDEMESSAGEBOX_LONG_I); -fornext_entrylabel5859: -*_FUNC_IDEMESSAGEBOX_LONG_I=fornext_value5859; -if (fornext_step_negative5859){ -if (fornext_value5859fornext_finalvalue5859) break; -} -fornext_error5859:; -if(qbevent){evnt(26070,15524,"ide_methods.bas");if(r)goto S_52962;} -do{ -memcpy(((char*)_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEMESSAGEBOX_LONG_I)-_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[4],_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[5]))*89)+ 0,((char*)_FUNC_IDEMESSAGEBOX_UDT_P)+(0)+ 0, 20); -if(!qbevent)break;evnt(26070,15524,"ide_methods.bas");}while(r); -fornext_continue_5858:; -} -fornext_exit_5858:; -S_52965:; -do{ -if(qbevent){evnt(26070,15527,"ide_methods.bas");if(r)goto S_52965;} -do{ -SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDEMESSAGEBOX_UDT_P)) + (0) )); -if(!qbevent)break;evnt(26070,15531,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEMESSAGEBOX_LONG_F= 1 ; -if(!qbevent)break;evnt(26070,15532,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEMESSAGEBOX_LONG_CX= 0 ; -if(!qbevent)break;evnt(26070,15532,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEMESSAGEBOX_LONG_CY= 0 ; -if(!qbevent)break;evnt(26070,15532,"ide_methods.bas");}while(r); -S_52970:; -fornext_value5862= 1 ; -fornext_finalvalue5862= 100 ; -fornext_step5862= 1 ; -if (fornext_step5862<0) fornext_step_negative5862=1; else fornext_step_negative5862=0; -if (new_error) goto fornext_error5862; -goto fornext_entrylabel5862; -while(1){ -fornext_value5862=fornext_step5862+(*_FUNC_IDEMESSAGEBOX_LONG_I); -fornext_entrylabel5862: -*_FUNC_IDEMESSAGEBOX_LONG_I=fornext_value5862; -if (fornext_step_negative5862){ -if (fornext_value5862fornext_finalvalue5862) break; -} -fornext_error5862:; -if(qbevent){evnt(26070,15533,"ide_methods.bas");if(r)goto S_52970;} -S_52971:; -if ((*(int32*)(((char*)_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEMESSAGEBOX_LONG_I)-_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[4],_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[5]))*89+36)))||new_error){ -if(qbevent){evnt(26070,15534,"ide_methods.bas");if(r)goto S_52971;} -do{ -*(int32*)(((char*)_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEMESSAGEBOX_LONG_I)-_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[4],_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[5]))*89+60))=*_FUNC_IDEMESSAGEBOX_LONG_FOCUS-*_FUNC_IDEMESSAGEBOX_LONG_F; -if(!qbevent)break;evnt(26070,15537,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEMESSAGEBOX_LONG_I)-_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[4],_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[5]))*89+52))= 0 ; -if(!qbevent)break;evnt(26070,15538,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEMESSAGEBOX_LONG_I)-_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[4],_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[5]))*89+56))= 0 ; -if(!qbevent)break;evnt(26070,15538,"ide_methods.bas");}while(r); -do{ -SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEMESSAGEBOX_LONG_I)-_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[4],_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDEMESSAGEBOX_LONG_F); -if(!qbevent)break;evnt(26070,15539,"ide_methods.bas");}while(r); -S_52976:; -if ((*(int32*)(((char*)_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEMESSAGEBOX_LONG_I)-_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[4],_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[5]))*89+52)))||new_error){ -if(qbevent){evnt(26070,15540,"ide_methods.bas");if(r)goto S_52976;} -do{ -*_FUNC_IDEMESSAGEBOX_LONG_CX=*(int32*)(((char*)_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEMESSAGEBOX_LONG_I)-_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[4],_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[5]))*89+52)); -if(!qbevent)break;evnt(26070,15540,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEMESSAGEBOX_LONG_CY=*(int32*)(((char*)_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEMESSAGEBOX_LONG_I)-_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[4],_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[5]))*89+56)); -if(!qbevent)break;evnt(26070,15540,"ide_methods.bas");}while(r); -} -} -fornext_continue_5861:; -} -fornext_exit_5861:; -do{ -*_FUNC_IDEMESSAGEBOX_LONG_LASTFOCUS=*_FUNC_IDEMESSAGEBOX_LONG_F- 1 ; -if(!qbevent)break;evnt(26070,15543,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,15547,"ide_methods.bas");}while(r); -S_52984:; -fornext_value5864= 1 ; -fornext_finalvalue5864=*_FUNC_IDEMESSAGEBOX_LONG_MESSAGELINES; -fornext_step5864= 1 ; -if (fornext_step5864<0) fornext_step_negative5864=1; else fornext_step_negative5864=0; -if (new_error) goto fornext_error5864; -goto fornext_entrylabel5864; -while(1){ -fornext_value5864=fornext_step5864+(*_FUNC_IDEMESSAGEBOX_LONG_I); -fornext_entrylabel5864: -*_FUNC_IDEMESSAGEBOX_LONG_I=fornext_value5864; -if (fornext_step_negative5864){ -if (fornext_value5864fornext_finalvalue5864) break; -} -fornext_error5864:; -if(qbevent){evnt(26070,15548,"ide_methods.bas");if(r)goto S_52984;} -S_52985:; -if ((qbs_cleanup(qbs_tmp_base,-((((qbs*)(((uint64*)(_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[0]))[array_check((*_FUNC_IDEMESSAGEBOX_LONG_I)-_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[4],_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[5])]))->len)>(*(int32*)(((char*)_FUNC_IDEMESSAGEBOX_UDT_P)+(8))- 2 ))))||new_error){ -if(qbevent){evnt(26070,15549,"ide_methods.bas");if(r)goto S_52985;} -do{ -tmp_long=array_check((*_FUNC_IDEMESSAGEBOX_LONG_I)-_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[4],_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[0]))[tmp_long])),qbs_add(qbs_left(((qbs*)(((uint64*)(_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[0]))[array_check((*_FUNC_IDEMESSAGEBOX_LONG_I)-_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[4],_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[5])])),*(int32*)(((char*)_FUNC_IDEMESSAGEBOX_UDT_P)+(8))- 5 ),func_string( 3 , 250 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15550,"ide_methods.bas");}while(r); -} -do{ -sub__printstring(*(int32*)(((char*)_FUNC_IDEMESSAGEBOX_UDT_P)+(0))+((*_FUNC_IDEMESSAGEBOX_LONG_W/ 2 )-(((qbs*)(((uint64*)(_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[0]))[array_check((*_FUNC_IDEMESSAGEBOX_LONG_I)-_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[4],_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[5])]))->len/ 2 ))+ 1 ,*(int32*)(((char*)_FUNC_IDEMESSAGEBOX_UDT_P)+(4))+ 1 +*_FUNC_IDEMESSAGEBOX_LONG_I,((qbs*)(((uint64*)(_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[0]))[array_check((*_FUNC_IDEMESSAGEBOX_LONG_I)-_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[4],_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[5])])),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15552,"ide_methods.bas");}while(r); -fornext_continue_5863:; -} -fornext_exit_5863:; -do{ -sub_pcopy( 1 , 0 ); -if(!qbevent)break;evnt(26070,15557,"ide_methods.bas");}while(r); -S_52991:; -if ((*_FUNC_IDEMESSAGEBOX_LONG_CX)||new_error){ -if(qbevent){evnt(26070,15558,"ide_methods.bas");if(r)goto S_52991;} -do{ -qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,15558,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*_FUNC_IDEMESSAGEBOX_LONG_CY,*_FUNC_IDEMESSAGEBOX_LONG_CX, 1 ,NULL,NULL,7); -if(!qbevent)break;evnt(26070,15558,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,15558,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEMESSAGEBOX_LONG_CHANGE= 0 ; -if(!qbevent)break;evnt(26070,15561,"ide_methods.bas");}while(r); -S_52997:; -do{ -if(qbevent){evnt(26070,15562,"ide_methods.bas");if(r)goto S_52997;} -do{ -SUB_GETINPUT(); -if(!qbevent)break;evnt(26070,15563,"ide_methods.bas");}while(r); -S_52999:; -if ((*__LONG_MWHEEL)||new_error){ -if(qbevent){evnt(26070,15564,"ide_methods.bas");if(r)goto S_52999;} -do{ -*_FUNC_IDEMESSAGEBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,15564,"ide_methods.bas");}while(r); -} -S_53002:; -if ((*__LONG_KB)||new_error){ -if(qbevent){evnt(26070,15565,"ide_methods.bas");if(r)goto S_53002;} -do{ -*_FUNC_IDEMESSAGEBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,15565,"ide_methods.bas");}while(r); -} -S_53005:; -if ((*__LONG_MCLICK)||new_error){ -if(qbevent){evnt(26070,15566,"ide_methods.bas");if(r)goto S_53005;} -do{ -*_FUNC_IDEMESSAGEBOX_LONG_MOUSEDOWN= 1 ; -if(!qbevent)break;evnt(26070,15566,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEMESSAGEBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,15566,"ide_methods.bas");}while(r); -} -S_53009:; -if ((*__LONG_MRELEASE)||new_error){ -if(qbevent){evnt(26070,15567,"ide_methods.bas");if(r)goto S_53009;} -do{ -*_FUNC_IDEMESSAGEBOX_LONG_MOUSEUP= 1 ; -if(!qbevent)break;evnt(26070,15567,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEMESSAGEBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,15567,"ide_methods.bas");}while(r); -} -S_53013:; -if ((*__LONG_MB)||new_error){ -if(qbevent){evnt(26070,15568,"ide_methods.bas");if(r)goto S_53013;} -do{ -*_FUNC_IDEMESSAGEBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,15568,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEMESSAGEBOX_LONG_ALT=*__LONG_KALT; -if(!qbevent)break;evnt(26070,15569,"ide_methods.bas");}while(r); -S_53017:; -if ((-(*_FUNC_IDEMESSAGEBOX_LONG_ALT!=*_FUNC_IDEMESSAGEBOX_LONG_OLDALT))||new_error){ -if(qbevent){evnt(26070,15569,"ide_methods.bas");if(r)goto S_53017;} -do{ -*_FUNC_IDEMESSAGEBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,15569,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEMESSAGEBOX_LONG_OLDALT=*_FUNC_IDEMESSAGEBOX_LONG_ALT; -if(!qbevent)break;evnt(26070,15570,"ide_methods.bas");}while(r); -do{ -sub__limit( 100 ); -if(!qbevent)break;evnt(26070,15571,"ide_methods.bas");}while(r); -S_53022:; -dl_continue_5867:; -}while((!(*_FUNC_IDEMESSAGEBOX_LONG_CHANGE))&&(!new_error)); -dl_exit_5867:; -if(qbevent){evnt(26070,15572,"ide_methods.bas");if(r)goto S_53022;} -S_53023:; -if ((*_FUNC_IDEMESSAGEBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(26070,15573,"ide_methods.bas");if(r)goto S_53023;} -do{ -*__LONG_IDEHL= 1 ; -if(!qbevent)break;evnt(26070,15573,"ide_methods.bas");}while(r); -}else{ -do{ -*__LONG_IDEHL= 0 ; -if(!qbevent)break;evnt(26070,15573,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDEMESSAGEBOX_STRING_ALTLETTER,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15575,"ide_methods.bas");}while(r); -S_53029:; -if ((*_FUNC_IDEMESSAGEBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(26070,15576,"ide_methods.bas");if(r)goto S_53029;} -S_53030:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ -if(qbevent){evnt(26070,15577,"ide_methods.bas");if(r)goto S_53030;} -do{ -*_FUNC_IDEMESSAGEBOX_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15578,"ide_methods.bas");}while(r); -S_53032:; -if (((-(*_FUNC_IDEMESSAGEBOX_LONG_K>= 65 ))&(-(*_FUNC_IDEMESSAGEBOX_LONG_K<= 90 )))||new_error){ -if(qbevent){evnt(26070,15579,"ide_methods.bas");if(r)goto S_53032;} -do{ -qbs_set(_FUNC_IDEMESSAGEBOX_STRING_ALTLETTER,func_chr(*_FUNC_IDEMESSAGEBOX_LONG_K)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15579,"ide_methods.bas");}while(r); -} -} -} -do{ -qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,15582,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); -if(!qbevent)break;evnt(26070,15582,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,15582,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEMESSAGEBOX_LONG_INFO= 0 ; -if(!qbevent)break;evnt(26070,15586,"ide_methods.bas");}while(r); -S_53041:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_greaterorequal(qbs_ucase(__STRING_K),qbs_new_txt_len("A",1)))&(qbs_lessorequal(qbs_ucase(__STRING_K),qbs_new_txt_len("Z",1)))))||new_error){ -if(qbevent){evnt(26070,15588,"ide_methods.bas");if(r)goto S_53041;} -do{ -qbs_set(_FUNC_IDEMESSAGEBOX_STRING_ALTLETTER,qbs_ucase(__STRING_K)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15588,"ide_methods.bas");}while(r); -} -S_53044:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,15590,"ide_methods.bas");if(r)goto S_53044;} -do{ -qbs_set(__STRING_K,func_chr( 255 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15590,"ide_methods.bas");}while(r); -} -S_53047:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ -if(qbevent){evnt(26070,15591,"ide_methods.bas");if(r)goto S_53047;} -do{ -*_FUNC_IDEMESSAGEBOX_LONG_FOCUS=*_FUNC_IDEMESSAGEBOX_LONG_FOCUS+ 1 ; -if(!qbevent)break;evnt(26070,15591,"ide_methods.bas");}while(r); -} -S_53050:; -if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||new_error){ -if(qbevent){evnt(26070,15592,"ide_methods.bas");if(r)goto S_53050;} -do{ -*_FUNC_IDEMESSAGEBOX_LONG_FOCUS=*_FUNC_IDEMESSAGEBOX_LONG_FOCUS- 1 ; -if(!qbevent)break;evnt(26070,15592,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_K,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15592,"ide_methods.bas");}while(r); -} -S_53054:; -if ((-(*_FUNC_IDEMESSAGEBOX_LONG_FOCUS< 1 ))||new_error){ -if(qbevent){evnt(26070,15593,"ide_methods.bas");if(r)goto S_53054;} -do{ -*_FUNC_IDEMESSAGEBOX_LONG_FOCUS=*_FUNC_IDEMESSAGEBOX_LONG_LASTFOCUS; -if(!qbevent)break;evnt(26070,15593,"ide_methods.bas");}while(r); -} -S_53057:; -if ((-(*_FUNC_IDEMESSAGEBOX_LONG_FOCUS>*_FUNC_IDEMESSAGEBOX_LONG_LASTFOCUS))||new_error){ -if(qbevent){evnt(26070,15594,"ide_methods.bas");if(r)goto S_53057;} -do{ -*_FUNC_IDEMESSAGEBOX_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(26070,15594,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEMESSAGEBOX_LONG_F= 1 ; -if(!qbevent)break;evnt(26070,15595,"ide_methods.bas");}while(r); -S_53061:; -fornext_value5870= 1 ; -fornext_finalvalue5870= 100 ; -fornext_step5870= 1 ; -if (fornext_step5870<0) fornext_step_negative5870=1; else fornext_step_negative5870=0; -if (new_error) goto fornext_error5870; -goto fornext_entrylabel5870; -while(1){ -fornext_value5870=fornext_step5870+(*_FUNC_IDEMESSAGEBOX_LONG_I); -fornext_entrylabel5870: -*_FUNC_IDEMESSAGEBOX_LONG_I=fornext_value5870; -if (fornext_step_negative5870){ -if (fornext_value5870fornext_finalvalue5870) break; -} -fornext_error5870:; -if(qbevent){evnt(26070,15596,"ide_methods.bas");if(r)goto S_53061;} -do{ -*_FUNC_IDEMESSAGEBOX_LONG_T=*(int32*)(((char*)_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEMESSAGEBOX_LONG_I)-_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[4],_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[5]))*89+36)); -if(!qbevent)break;evnt(26070,15597,"ide_methods.bas");}while(r); -S_53063:; -if ((*_FUNC_IDEMESSAGEBOX_LONG_T)||new_error){ -if(qbevent){evnt(26070,15598,"ide_methods.bas");if(r)goto S_53063;} -do{ -*_FUNC_IDEMESSAGEBOX_LONG_FOCUSOFFSET=*_FUNC_IDEMESSAGEBOX_LONG_FOCUS-*_FUNC_IDEMESSAGEBOX_LONG_F; -if(!qbevent)break;evnt(26070,15599,"ide_methods.bas");}while(r); -do{ -SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEMESSAGEBOX_LONG_I)-_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[4],_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDEMESSAGEBOX_LONG_FOCUS,_FUNC_IDEMESSAGEBOX_LONG_F,_FUNC_IDEMESSAGEBOX_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDEMESSAGEBOX_STRING_ALTLETTER,__LONG_MB,_FUNC_IDEMESSAGEBOX_LONG_MOUSEDOWN,_FUNC_IDEMESSAGEBOX_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDEMESSAGEBOX_LONG_INFO,__LONG_MWHEEL); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15600,"ide_methods.bas");}while(r); -} -fornext_continue_5869:; -} -fornext_exit_5869:; -S_53068:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,func_chr( 27 ))))||new_error){ -if(qbevent){evnt(26070,15606,"ide_methods.bas");if(r)goto S_53068;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,15606,"ide_methods.bas");}while(r); -} -S_53071:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 13 )))|((-(*_FUNC_IDEMESSAGEBOX_LONG_INFO!= 0 )))))||new_error){ -if(qbevent){evnt(26070,15608,"ide_methods.bas");if(r)goto S_53071;} -do{ -*_FUNC_IDEMESSAGEBOX_LONG_IDEMESSAGEBOX=*_FUNC_IDEMESSAGEBOX_LONG_FOCUS; -if(!qbevent)break;evnt(26070,15609,"ide_methods.bas");}while(r); -do{ -SUB_CLEARMOUSE(); -if(!qbevent)break;evnt(26070,15610,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,15611,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEMESSAGEBOX_LONG_MOUSEDOWN= 0 ; -if(!qbevent)break;evnt(26070,15615,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEMESSAGEBOX_LONG_MOUSEUP= 0 ; -if(!qbevent)break;evnt(26070,15616,"ide_methods.bas");}while(r); -dl_continue_5860:; -}while(1); -dl_exit_5860:; -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free234.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -return *_FUNC_IDEMESSAGEBOX_LONG_IDEMESSAGEBOX; -} -qbs* FUNC_IDEYESNOBOX(qbs*_FUNC_IDEYESNOBOX_STRING_TITLESTR,qbs*_FUNC_IDEYESNOBOX_STRING_MESSAGESTR){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data235.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -*_FUNC_IDEYESNOBOX_LONG_RESULT=FUNC_IDEMESSAGEBOX(_FUNC_IDEYESNOBOX_STRING_TITLESTR,_FUNC_IDEYESNOBOX_STRING_MESSAGESTR,qbs_new_txt_len("#Yes;#No",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15623,"ide_methods.bas");}while(r); -S_53080:; -if ((-(*_FUNC_IDEYESNOBOX_LONG_RESULT== 1 ))||new_error){ -if(qbevent){evnt(26070,15624,"ide_methods.bas");if(r)goto S_53080;} -do{ -qbs_set(_FUNC_IDEYESNOBOX_STRING_IDEYESNOBOX,qbs_new_txt_len("Y",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15624,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDEYESNOBOX_STRING_IDEYESNOBOX,qbs_new_txt_len("N",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15624,"ide_methods.bas");}while(r); -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free235.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_IDEYESNOBOX_STRING_IDEYESNOBOX);return _FUNC_IDEYESNOBOX_STRING_IDEYESNOBOX; -} -qbs* FUNC_IDEACTIVITYBOX(qbs*_FUNC_IDEACTIVITYBOX_STRING_ACTION,qbs*_FUNC_IDEACTIVITYBOX_STRING_TITLESTR,qbs*_FUNC_IDEACTIVITYBOX_STRING_MESSAGESTR,qbs*_FUNC_IDEACTIVITYBOX_STRING_BUTTONS){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data236.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -S_53085:; -qbs_set(sc_5877,qbs_lcase(_FUNC_IDEACTIVITYBOX_STRING_ACTION)); -qbs_cleanup(qbs_tmp_base,0); -if(qbevent){evnt(26070,15778,"ide_methods.bas");if(r)goto S_53085;} -S_53086:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_5877,qbs_new_txt_len("setup",5))))||new_error){ -if(qbevent){evnt(26070,15779,"ide_methods.bas");if(r)goto S_53086;} -do{ -sub_pcopy( 0 , 2 ); -if(!qbevent)break;evnt(26070,15781,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 0 , 1 ); -if(!qbevent)break;evnt(26070,15782,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,15783,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEACTIVITYBOX_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(26070,15784,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(26070,15785,"ide_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26070,15483,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEMESSAGEBOX_LONG_PREVSCAN= 1 ; +if(!qbevent)break;evnt(26070,15484,"ide_methods.bas");}while(r); +S_52913:; +do{ +if(qbevent){evnt(26070,15485,"ide_methods.bas");if(r)goto S_52913;} +do{ +*_FUNC_IDEMESSAGEBOX_LONG_NEXTSCAN=func_instr(*_FUNC_IDEMESSAGEBOX_LONG_NEXTSCAN+ 1 ,_FUNC_IDEMESSAGEBOX_STRING_MESSAGESTR,func_chr( 10 ),0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15486,"ide_methods.bas");}while(r); +S_52915:; +if ((-(*_FUNC_IDEMESSAGEBOX_LONG_NEXTSCAN> 0 ))||new_error){ +if(qbevent){evnt(26070,15487,"ide_methods.bas");if(r)goto S_52915;} +do{ +tmp_long=array_check((*_FUNC_IDEMESSAGEBOX_LONG_MESSAGELINES)-_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[4],_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[0]))[tmp_long])),func_mid(_FUNC_IDEMESSAGEBOX_STRING_MESSAGESTR,*_FUNC_IDEMESSAGEBOX_LONG_PREVSCAN,*_FUNC_IDEMESSAGEBOX_LONG_NEXTSCAN-*_FUNC_IDEMESSAGEBOX_LONG_PREVSCAN,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15488,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEMESSAGEBOX_LONG_TW=((qbs*)(((uint64*)(_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[0]))[array_check((*_FUNC_IDEMESSAGEBOX_LONG_MESSAGELINES)-_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[4],_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[5])]))->len+ 2 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15489,"ide_methods.bas");}while(r); +S_52918:; +if ((-(*_FUNC_IDEMESSAGEBOX_LONG_TW>*_FUNC_IDEMESSAGEBOX_LONG_W))||new_error){ +if(qbevent){evnt(26070,15490,"ide_methods.bas");if(r)goto S_52918;} +do{ +*_FUNC_IDEMESSAGEBOX_LONG_W=*_FUNC_IDEMESSAGEBOX_LONG_TW; +if(!qbevent)break;evnt(26070,15490,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEMESSAGEBOX_LONG_PREVSCAN=*_FUNC_IDEMESSAGEBOX_LONG_NEXTSCAN+ 1 ; +if(!qbevent)break;evnt(26070,15491,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEMESSAGEBOX_LONG_MESSAGELINES=*_FUNC_IDEMESSAGEBOX_LONG_MESSAGELINES+ 1 ; +if(!qbevent)break;evnt(26070,15492,"ide_methods.bas");}while(r); +S_52923:; +if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDEMESSAGEBOX_LONG_MESSAGELINES>func_ubound(_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE,1,1))))||new_error){ +if(qbevent){evnt(26070,15493,"ide_methods.bas");if(r)goto S_52923;} +do{ +goto dl_exit_5849; +if(!qbevent)break;evnt(26070,15493,"ide_methods.bas");}while(r); +} +}else{ +do{ +tmp_long=array_check((*_FUNC_IDEMESSAGEBOX_LONG_MESSAGELINES)-_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[4],_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[0]))[tmp_long])),func_mid(_FUNC_IDEMESSAGEBOX_STRING_MESSAGESTR,*_FUNC_IDEMESSAGEBOX_LONG_PREVSCAN,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15495,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEMESSAGEBOX_LONG_TW=((qbs*)(((uint64*)(_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[0]))[array_check((*_FUNC_IDEMESSAGEBOX_LONG_MESSAGELINES)-_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[4],_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[5])]))->len+ 2 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15496,"ide_methods.bas");}while(r); +S_52929:; +if ((-(*_FUNC_IDEMESSAGEBOX_LONG_TW>*_FUNC_IDEMESSAGEBOX_LONG_W))||new_error){ +if(qbevent){evnt(26070,15497,"ide_methods.bas");if(r)goto S_52929;} +do{ +*_FUNC_IDEMESSAGEBOX_LONG_W=*_FUNC_IDEMESSAGEBOX_LONG_TW; +if(!qbevent)break;evnt(26070,15497,"ide_methods.bas");}while(r); +} +do{ +goto dl_exit_5849; +if(!qbevent)break;evnt(26070,15498,"ide_methods.bas");}while(r); +} +dl_continue_5849:; +}while(1); +dl_exit_5849:; +S_52935:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEMESSAGEBOX_STRING_BUTTONS,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,15502,"ide_methods.bas");if(r)goto S_52935;} +do{ +qbs_set(_FUNC_IDEMESSAGEBOX_STRING_BUTTONS,qbs_new_txt_len("#OK",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15502,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEMESSAGEBOX_LONG_TOTALBUTTONS= 1 ; +if(!qbevent)break;evnt(26070,15503,"ide_methods.bas");}while(r); +S_52939:; +fornext_value5853= 1 ; +fornext_finalvalue5853=_FUNC_IDEMESSAGEBOX_STRING_BUTTONS->len; +fornext_step5853= 1 ; +if (fornext_step5853<0) fornext_step_negative5853=1; else fornext_step_negative5853=0; +if (new_error) goto fornext_error5853; +goto fornext_entrylabel5853; +while(1){ +fornext_value5853=fornext_step5853+(*_FUNC_IDEMESSAGEBOX_LONG_I); +fornext_entrylabel5853: +*_FUNC_IDEMESSAGEBOX_LONG_I=fornext_value5853; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative5853){ +if (fornext_value5853fornext_finalvalue5853) break; +} +fornext_error5853:; +if(qbevent){evnt(26070,15504,"ide_methods.bas");if(r)goto S_52939;} +S_52940:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_IDEMESSAGEBOX_STRING_BUTTONS,*_FUNC_IDEMESSAGEBOX_LONG_I)== 59 )))||new_error){ +if(qbevent){evnt(26070,15505,"ide_methods.bas");if(r)goto S_52940;} +do{ +*_FUNC_IDEMESSAGEBOX_LONG_TOTALBUTTONS=*_FUNC_IDEMESSAGEBOX_LONG_TOTALBUTTONS+ 1 ; +if(!qbevent)break;evnt(26070,15505,"ide_methods.bas");}while(r); +} +fornext_continue_5852:; +} +fornext_exit_5852:; +do{ +*_FUNC_IDEMESSAGEBOX_LONG_BUTTONSLEN=(_FUNC_IDEMESSAGEBOX_STRING_BUTTONS->len)+(*_FUNC_IDEMESSAGEBOX_LONG_TOTALBUTTONS* 6 ); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15507,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEMESSAGEBOX_LONG_I= 0 ; +if(!qbevent)break;evnt(26070,15509,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEMESSAGEBOX_LONG_W2=_FUNC_IDEMESSAGEBOX_STRING_TITLESTR->len+ 4 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15510,"ide_methods.bas");}while(r); +S_52947:; +if ((-(*_FUNC_IDEMESSAGEBOX_LONG_W<*_FUNC_IDEMESSAGEBOX_LONG_W2))||new_error){ +if(qbevent){evnt(26070,15511,"ide_methods.bas");if(r)goto S_52947;} +do{ +*_FUNC_IDEMESSAGEBOX_LONG_W=*_FUNC_IDEMESSAGEBOX_LONG_W2; +if(!qbevent)break;evnt(26070,15511,"ide_methods.bas");}while(r); +} +S_52950:; +if ((-(*_FUNC_IDEMESSAGEBOX_LONG_W<*_FUNC_IDEMESSAGEBOX_LONG_BUTTONSLEN))||new_error){ +if(qbevent){evnt(26070,15512,"ide_methods.bas");if(r)goto S_52950;} +do{ +*_FUNC_IDEMESSAGEBOX_LONG_W=*_FUNC_IDEMESSAGEBOX_LONG_BUTTONSLEN; +if(!qbevent)break;evnt(26070,15512,"ide_methods.bas");}while(r); +} +S_52953:; +if ((-(*_FUNC_IDEMESSAGEBOX_LONG_W>(*__LONG_IDEWX- 4 )))||new_error){ +if(qbevent){evnt(26070,15513,"ide_methods.bas");if(r)goto S_52953;} +do{ +*_FUNC_IDEMESSAGEBOX_LONG_W=*__LONG_IDEWX- 4 ; +if(!qbevent)break;evnt(26070,15513,"ide_methods.bas");}while(r); +} +do{ +SUB_IDEPAR((void*)( ((char*)(_FUNC_IDEMESSAGEBOX_UDT_P)) + (0) ),_FUNC_IDEMESSAGEBOX_LONG_W,&(pass5857= 3 +*_FUNC_IDEMESSAGEBOX_LONG_MESSAGELINES),_FUNC_IDEMESSAGEBOX_STRING_TITLESTR); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15514,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEMESSAGEBOX_LONG_I=*_FUNC_IDEMESSAGEBOX_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,15516,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEMESSAGEBOX_LONG_I)-_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[4],_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[5]))*89+36))= 3 ; +if(!qbevent)break;evnt(26070,15517,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEMESSAGEBOX_LONG_I)-_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[4],_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[5]))*89+24))= 3 +*_FUNC_IDEMESSAGEBOX_LONG_MESSAGELINES; +if(!qbevent)break;evnt(26070,15518,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEMESSAGEBOX_LONG_I)-_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[4],_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(FUNC_STRREPLACE(_FUNC_IDEMESSAGEBOX_STRING_BUTTONS,qbs_new_txt_len(";",1),_FUNC_IDEMESSAGEBOX_STRING1_SEP)); +if(!qbevent)break;evnt(26070,15519,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEMESSAGEBOX_LONG_I)-_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[4],_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[5]))*89+48))= 1 ; +if(!qbevent)break;evnt(26070,15520,"ide_methods.bas");}while(r); +S_52962:; +fornext_value5859= 1 ; +fornext_finalvalue5859= 100 ; +fornext_step5859= 1 ; +if (fornext_step5859<0) fornext_step_negative5859=1; else fornext_step_negative5859=0; +if (new_error) goto fornext_error5859; +goto fornext_entrylabel5859; +while(1){ +fornext_value5859=fornext_step5859+(*_FUNC_IDEMESSAGEBOX_LONG_I); +fornext_entrylabel5859: +*_FUNC_IDEMESSAGEBOX_LONG_I=fornext_value5859; +if (fornext_step_negative5859){ +if (fornext_value5859fornext_finalvalue5859) break; +} +fornext_error5859:; +if(qbevent){evnt(26070,15524,"ide_methods.bas");if(r)goto S_52962;} +do{ +memcpy(((char*)_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEMESSAGEBOX_LONG_I)-_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[4],_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[5]))*89)+ 0,((char*)_FUNC_IDEMESSAGEBOX_UDT_P)+(0)+ 0, 20); +if(!qbevent)break;evnt(26070,15524,"ide_methods.bas");}while(r); +fornext_continue_5858:; +} +fornext_exit_5858:; +S_52965:; +do{ +if(qbevent){evnt(26070,15527,"ide_methods.bas");if(r)goto S_52965;} +do{ +SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDEMESSAGEBOX_UDT_P)) + (0) )); +if(!qbevent)break;evnt(26070,15531,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEMESSAGEBOX_LONG_F= 1 ; +if(!qbevent)break;evnt(26070,15532,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEMESSAGEBOX_LONG_CX= 0 ; +if(!qbevent)break;evnt(26070,15532,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEMESSAGEBOX_LONG_CY= 0 ; +if(!qbevent)break;evnt(26070,15532,"ide_methods.bas");}while(r); +S_52970:; +fornext_value5862= 1 ; +fornext_finalvalue5862= 100 ; +fornext_step5862= 1 ; +if (fornext_step5862<0) fornext_step_negative5862=1; else fornext_step_negative5862=0; +if (new_error) goto fornext_error5862; +goto fornext_entrylabel5862; +while(1){ +fornext_value5862=fornext_step5862+(*_FUNC_IDEMESSAGEBOX_LONG_I); +fornext_entrylabel5862: +*_FUNC_IDEMESSAGEBOX_LONG_I=fornext_value5862; +if (fornext_step_negative5862){ +if (fornext_value5862fornext_finalvalue5862) break; +} +fornext_error5862:; +if(qbevent){evnt(26070,15533,"ide_methods.bas");if(r)goto S_52970;} +S_52971:; +if ((*(int32*)(((char*)_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEMESSAGEBOX_LONG_I)-_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[4],_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[5]))*89+36)))||new_error){ +if(qbevent){evnt(26070,15534,"ide_methods.bas");if(r)goto S_52971;} +do{ +*(int32*)(((char*)_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEMESSAGEBOX_LONG_I)-_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[4],_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[5]))*89+60))=*_FUNC_IDEMESSAGEBOX_LONG_FOCUS-*_FUNC_IDEMESSAGEBOX_LONG_F; +if(!qbevent)break;evnt(26070,15537,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEMESSAGEBOX_LONG_I)-_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[4],_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[5]))*89+52))= 0 ; +if(!qbevent)break;evnt(26070,15538,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEMESSAGEBOX_LONG_I)-_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[4],_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[5]))*89+56))= 0 ; +if(!qbevent)break;evnt(26070,15538,"ide_methods.bas");}while(r); +do{ +SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEMESSAGEBOX_LONG_I)-_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[4],_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDEMESSAGEBOX_LONG_F); +if(!qbevent)break;evnt(26070,15539,"ide_methods.bas");}while(r); +S_52976:; +if ((*(int32*)(((char*)_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEMESSAGEBOX_LONG_I)-_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[4],_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[5]))*89+52)))||new_error){ +if(qbevent){evnt(26070,15540,"ide_methods.bas");if(r)goto S_52976;} +do{ +*_FUNC_IDEMESSAGEBOX_LONG_CX=*(int32*)(((char*)_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEMESSAGEBOX_LONG_I)-_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[4],_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[5]))*89+52)); +if(!qbevent)break;evnt(26070,15540,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEMESSAGEBOX_LONG_CY=*(int32*)(((char*)_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEMESSAGEBOX_LONG_I)-_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[4],_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[5]))*89+56)); +if(!qbevent)break;evnt(26070,15540,"ide_methods.bas");}while(r); +} +} +fornext_continue_5861:; +} +fornext_exit_5861:; +do{ +*_FUNC_IDEMESSAGEBOX_LONG_LASTFOCUS=*_FUNC_IDEMESSAGEBOX_LONG_F- 1 ; +if(!qbevent)break;evnt(26070,15543,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,15547,"ide_methods.bas");}while(r); +S_52984:; +fornext_value5864= 1 ; +fornext_finalvalue5864=*_FUNC_IDEMESSAGEBOX_LONG_MESSAGELINES; +fornext_step5864= 1 ; +if (fornext_step5864<0) fornext_step_negative5864=1; else fornext_step_negative5864=0; +if (new_error) goto fornext_error5864; +goto fornext_entrylabel5864; +while(1){ +fornext_value5864=fornext_step5864+(*_FUNC_IDEMESSAGEBOX_LONG_I); +fornext_entrylabel5864: +*_FUNC_IDEMESSAGEBOX_LONG_I=fornext_value5864; +if (fornext_step_negative5864){ +if (fornext_value5864fornext_finalvalue5864) break; +} +fornext_error5864:; +if(qbevent){evnt(26070,15548,"ide_methods.bas");if(r)goto S_52984;} +S_52985:; +if ((qbs_cleanup(qbs_tmp_base,-((((qbs*)(((uint64*)(_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[0]))[array_check((*_FUNC_IDEMESSAGEBOX_LONG_I)-_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[4],_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[5])]))->len)>(*(int32*)(((char*)_FUNC_IDEMESSAGEBOX_UDT_P)+(8))- 2 ))))||new_error){ +if(qbevent){evnt(26070,15549,"ide_methods.bas");if(r)goto S_52985;} +do{ +tmp_long=array_check((*_FUNC_IDEMESSAGEBOX_LONG_I)-_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[4],_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[0]))[tmp_long])),qbs_add(qbs_left(((qbs*)(((uint64*)(_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[0]))[array_check((*_FUNC_IDEMESSAGEBOX_LONG_I)-_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[4],_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[5])])),*(int32*)(((char*)_FUNC_IDEMESSAGEBOX_UDT_P)+(8))- 5 ),func_string( 3 , 250 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15550,"ide_methods.bas");}while(r); +} +do{ +sub__printstring(*(int32*)(((char*)_FUNC_IDEMESSAGEBOX_UDT_P)+(0))+((*_FUNC_IDEMESSAGEBOX_LONG_W/ 2 )-(((qbs*)(((uint64*)(_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[0]))[array_check((*_FUNC_IDEMESSAGEBOX_LONG_I)-_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[4],_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[5])]))->len/ 2 ))+ 1 ,*(int32*)(((char*)_FUNC_IDEMESSAGEBOX_UDT_P)+(4))+ 1 +*_FUNC_IDEMESSAGEBOX_LONG_I,((qbs*)(((uint64*)(_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[0]))[array_check((*_FUNC_IDEMESSAGEBOX_LONG_I)-_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[4],_FUNC_IDEMESSAGEBOX_ARRAY_STRING_FULLMESSAGE[5])])),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15552,"ide_methods.bas");}while(r); +fornext_continue_5863:; +} +fornext_exit_5863:; +do{ +sub_pcopy( 1 , 0 ); +if(!qbevent)break;evnt(26070,15557,"ide_methods.bas");}while(r); +S_52991:; +if ((*_FUNC_IDEMESSAGEBOX_LONG_CX)||new_error){ +if(qbevent){evnt(26070,15558,"ide_methods.bas");if(r)goto S_52991;} +do{ +qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,15558,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(*_FUNC_IDEMESSAGEBOX_LONG_CY,*_FUNC_IDEMESSAGEBOX_LONG_CX, 1 ,NULL,NULL,7); +if(!qbevent)break;evnt(26070,15558,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,15558,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEMESSAGEBOX_LONG_CHANGE= 0 ; +if(!qbevent)break;evnt(26070,15561,"ide_methods.bas");}while(r); +S_52997:; +do{ +if(qbevent){evnt(26070,15562,"ide_methods.bas");if(r)goto S_52997;} +do{ +SUB_GETINPUT(); +if(!qbevent)break;evnt(26070,15563,"ide_methods.bas");}while(r); +S_52999:; +if ((*__LONG_MWHEEL)||new_error){ +if(qbevent){evnt(26070,15564,"ide_methods.bas");if(r)goto S_52999;} +do{ +*_FUNC_IDEMESSAGEBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,15564,"ide_methods.bas");}while(r); +} +S_53002:; +if ((*__LONG_KB)||new_error){ +if(qbevent){evnt(26070,15565,"ide_methods.bas");if(r)goto S_53002;} +do{ +*_FUNC_IDEMESSAGEBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,15565,"ide_methods.bas");}while(r); +} +S_53005:; +if ((*__LONG_MCLICK)||new_error){ +if(qbevent){evnt(26070,15566,"ide_methods.bas");if(r)goto S_53005;} +do{ +*_FUNC_IDEMESSAGEBOX_LONG_MOUSEDOWN= 1 ; +if(!qbevent)break;evnt(26070,15566,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEMESSAGEBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,15566,"ide_methods.bas");}while(r); +} +S_53009:; +if ((*__LONG_MRELEASE)||new_error){ +if(qbevent){evnt(26070,15567,"ide_methods.bas");if(r)goto S_53009;} +do{ +*_FUNC_IDEMESSAGEBOX_LONG_MOUSEUP= 1 ; +if(!qbevent)break;evnt(26070,15567,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEMESSAGEBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,15567,"ide_methods.bas");}while(r); +} +S_53013:; +if ((*__LONG_MB)||new_error){ +if(qbevent){evnt(26070,15568,"ide_methods.bas");if(r)goto S_53013;} +do{ +*_FUNC_IDEMESSAGEBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,15568,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEMESSAGEBOX_LONG_ALT=*__LONG_KALT; +if(!qbevent)break;evnt(26070,15569,"ide_methods.bas");}while(r); +S_53017:; +if ((-(*_FUNC_IDEMESSAGEBOX_LONG_ALT!=*_FUNC_IDEMESSAGEBOX_LONG_OLDALT))||new_error){ +if(qbevent){evnt(26070,15569,"ide_methods.bas");if(r)goto S_53017;} +do{ +*_FUNC_IDEMESSAGEBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,15569,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEMESSAGEBOX_LONG_OLDALT=*_FUNC_IDEMESSAGEBOX_LONG_ALT; +if(!qbevent)break;evnt(26070,15570,"ide_methods.bas");}while(r); +do{ +sub__limit( 100 ); +if(!qbevent)break;evnt(26070,15571,"ide_methods.bas");}while(r); +S_53022:; +dl_continue_5867:; +}while((!(*_FUNC_IDEMESSAGEBOX_LONG_CHANGE))&&(!new_error)); +dl_exit_5867:; +if(qbevent){evnt(26070,15572,"ide_methods.bas");if(r)goto S_53022;} +S_53023:; +if ((*_FUNC_IDEMESSAGEBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ +if(qbevent){evnt(26070,15573,"ide_methods.bas");if(r)goto S_53023;} +do{ +*__LONG_IDEHL= 1 ; +if(!qbevent)break;evnt(26070,15573,"ide_methods.bas");}while(r); +}else{ +do{ +*__LONG_IDEHL= 0 ; +if(!qbevent)break;evnt(26070,15573,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDEMESSAGEBOX_STRING_ALTLETTER,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15575,"ide_methods.bas");}while(r); +S_53029:; +if ((*_FUNC_IDEMESSAGEBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ +if(qbevent){evnt(26070,15576,"ide_methods.bas");if(r)goto S_53029;} +S_53030:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ +if(qbevent){evnt(26070,15577,"ide_methods.bas");if(r)goto S_53030;} +do{ +*_FUNC_IDEMESSAGEBOX_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15578,"ide_methods.bas");}while(r); +S_53032:; +if (((-(*_FUNC_IDEMESSAGEBOX_LONG_K>= 65 ))&(-(*_FUNC_IDEMESSAGEBOX_LONG_K<= 90 )))||new_error){ +if(qbevent){evnt(26070,15579,"ide_methods.bas");if(r)goto S_53032;} +do{ +qbs_set(_FUNC_IDEMESSAGEBOX_STRING_ALTLETTER,func_chr(*_FUNC_IDEMESSAGEBOX_LONG_K)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15579,"ide_methods.bas");}while(r); +} +} +} +do{ +qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,15582,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); +if(!qbevent)break;evnt(26070,15582,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,15582,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEMESSAGEBOX_LONG_INFO= 0 ; +if(!qbevent)break;evnt(26070,15586,"ide_methods.bas");}while(r); +S_53041:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_greaterorequal(qbs_ucase(__STRING_K),qbs_new_txt_len("A",1)))&(qbs_lessorequal(qbs_ucase(__STRING_K),qbs_new_txt_len("Z",1)))))||new_error){ +if(qbevent){evnt(26070,15588,"ide_methods.bas");if(r)goto S_53041;} +do{ +qbs_set(_FUNC_IDEMESSAGEBOX_STRING_ALTLETTER,qbs_ucase(__STRING_K)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15588,"ide_methods.bas");}while(r); +} +S_53044:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,15590,"ide_methods.bas");if(r)goto S_53044;} +do{ +qbs_set(__STRING_K,func_chr( 255 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15590,"ide_methods.bas");}while(r); +} +S_53047:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ +if(qbevent){evnt(26070,15591,"ide_methods.bas");if(r)goto S_53047;} +do{ +*_FUNC_IDEMESSAGEBOX_LONG_FOCUS=*_FUNC_IDEMESSAGEBOX_LONG_FOCUS+ 1 ; +if(!qbevent)break;evnt(26070,15591,"ide_methods.bas");}while(r); +} +S_53050:; +if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||new_error){ +if(qbevent){evnt(26070,15592,"ide_methods.bas");if(r)goto S_53050;} +do{ +*_FUNC_IDEMESSAGEBOX_LONG_FOCUS=*_FUNC_IDEMESSAGEBOX_LONG_FOCUS- 1 ; +if(!qbevent)break;evnt(26070,15592,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_K,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15592,"ide_methods.bas");}while(r); +} +S_53054:; +if ((-(*_FUNC_IDEMESSAGEBOX_LONG_FOCUS< 1 ))||new_error){ +if(qbevent){evnt(26070,15593,"ide_methods.bas");if(r)goto S_53054;} +do{ +*_FUNC_IDEMESSAGEBOX_LONG_FOCUS=*_FUNC_IDEMESSAGEBOX_LONG_LASTFOCUS; +if(!qbevent)break;evnt(26070,15593,"ide_methods.bas");}while(r); +} +S_53057:; +if ((-(*_FUNC_IDEMESSAGEBOX_LONG_FOCUS>*_FUNC_IDEMESSAGEBOX_LONG_LASTFOCUS))||new_error){ +if(qbevent){evnt(26070,15594,"ide_methods.bas");if(r)goto S_53057;} +do{ +*_FUNC_IDEMESSAGEBOX_LONG_FOCUS= 1 ; +if(!qbevent)break;evnt(26070,15594,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEMESSAGEBOX_LONG_F= 1 ; +if(!qbevent)break;evnt(26070,15595,"ide_methods.bas");}while(r); +S_53061:; +fornext_value5870= 1 ; +fornext_finalvalue5870= 100 ; +fornext_step5870= 1 ; +if (fornext_step5870<0) fornext_step_negative5870=1; else fornext_step_negative5870=0; +if (new_error) goto fornext_error5870; +goto fornext_entrylabel5870; +while(1){ +fornext_value5870=fornext_step5870+(*_FUNC_IDEMESSAGEBOX_LONG_I); +fornext_entrylabel5870: +*_FUNC_IDEMESSAGEBOX_LONG_I=fornext_value5870; +if (fornext_step_negative5870){ +if (fornext_value5870fornext_finalvalue5870) break; +} +fornext_error5870:; +if(qbevent){evnt(26070,15596,"ide_methods.bas");if(r)goto S_53061;} +do{ +*_FUNC_IDEMESSAGEBOX_LONG_T=*(int32*)(((char*)_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEMESSAGEBOX_LONG_I)-_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[4],_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[5]))*89+36)); +if(!qbevent)break;evnt(26070,15597,"ide_methods.bas");}while(r); +S_53063:; +if ((*_FUNC_IDEMESSAGEBOX_LONG_T)||new_error){ +if(qbevent){evnt(26070,15598,"ide_methods.bas");if(r)goto S_53063;} +do{ +*_FUNC_IDEMESSAGEBOX_LONG_FOCUSOFFSET=*_FUNC_IDEMESSAGEBOX_LONG_FOCUS-*_FUNC_IDEMESSAGEBOX_LONG_F; +if(!qbevent)break;evnt(26070,15599,"ide_methods.bas");}while(r); +do{ +SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEMESSAGEBOX_LONG_I)-_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[4],_FUNC_IDEMESSAGEBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDEMESSAGEBOX_LONG_FOCUS,_FUNC_IDEMESSAGEBOX_LONG_F,_FUNC_IDEMESSAGEBOX_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDEMESSAGEBOX_STRING_ALTLETTER,__LONG_MB,_FUNC_IDEMESSAGEBOX_LONG_MOUSEDOWN,_FUNC_IDEMESSAGEBOX_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDEMESSAGEBOX_LONG_INFO,__LONG_MWHEEL); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15600,"ide_methods.bas");}while(r); +} +fornext_continue_5869:; +} +fornext_exit_5869:; +S_53068:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,func_chr( 27 ))))||new_error){ +if(qbevent){evnt(26070,15606,"ide_methods.bas");if(r)goto S_53068;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,15606,"ide_methods.bas");}while(r); +} +S_53071:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 13 )))|((-(*_FUNC_IDEMESSAGEBOX_LONG_INFO!= 0 )))))||new_error){ +if(qbevent){evnt(26070,15608,"ide_methods.bas");if(r)goto S_53071;} +do{ +*_FUNC_IDEMESSAGEBOX_LONG_IDEMESSAGEBOX=*_FUNC_IDEMESSAGEBOX_LONG_FOCUS; +if(!qbevent)break;evnt(26070,15609,"ide_methods.bas");}while(r); +do{ +SUB_CLEARMOUSE(); +if(!qbevent)break;evnt(26070,15610,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,15611,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEMESSAGEBOX_LONG_MOUSEDOWN= 0 ; +if(!qbevent)break;evnt(26070,15615,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEMESSAGEBOX_LONG_MOUSEUP= 0 ; +if(!qbevent)break;evnt(26070,15616,"ide_methods.bas");}while(r); +dl_continue_5860:; +}while(1); +dl_exit_5860:; +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free234.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +return *_FUNC_IDEMESSAGEBOX_LONG_IDEMESSAGEBOX; +} +qbs* FUNC_IDEYESNOBOX(qbs*_FUNC_IDEYESNOBOX_STRING_TITLESTR,qbs*_FUNC_IDEYESNOBOX_STRING_MESSAGESTR){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data235.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +*_FUNC_IDEYESNOBOX_LONG_RESULT=FUNC_IDEMESSAGEBOX(_FUNC_IDEYESNOBOX_STRING_TITLESTR,_FUNC_IDEYESNOBOX_STRING_MESSAGESTR,qbs_new_txt_len("#Yes;#No",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15623,"ide_methods.bas");}while(r); +S_53080:; +if ((-(*_FUNC_IDEYESNOBOX_LONG_RESULT== 1 ))||new_error){ +if(qbevent){evnt(26070,15624,"ide_methods.bas");if(r)goto S_53080;} +do{ +qbs_set(_FUNC_IDEYESNOBOX_STRING_IDEYESNOBOX,qbs_new_txt_len("Y",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15624,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDEYESNOBOX_STRING_IDEYESNOBOX,qbs_new_txt_len("N",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15624,"ide_methods.bas");}while(r); +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free235.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_IDEYESNOBOX_STRING_IDEYESNOBOX);return _FUNC_IDEYESNOBOX_STRING_IDEYESNOBOX; +} +qbs* FUNC_IDEACTIVITYBOX(qbs*_FUNC_IDEACTIVITYBOX_STRING_ACTION,qbs*_FUNC_IDEACTIVITYBOX_STRING_TITLESTR,qbs*_FUNC_IDEACTIVITYBOX_STRING_MESSAGESTR,qbs*_FUNC_IDEACTIVITYBOX_STRING_BUTTONS){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data236.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +S_53085:; +qbs_set(sc_5877,qbs_lcase(_FUNC_IDEACTIVITYBOX_STRING_ACTION)); +qbs_cleanup(qbs_tmp_base,0); +if(qbevent){evnt(26070,15778,"ide_methods.bas");if(r)goto S_53085;} +S_53086:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_5877,qbs_new_txt_len("setup",5))))||new_error){ +if(qbevent){evnt(26070,15779,"ide_methods.bas");if(r)goto S_53086;} +do{ +sub_pcopy( 0 , 2 ); +if(!qbevent)break;evnt(26070,15781,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 0 , 1 ); +if(!qbevent)break;evnt(26070,15782,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,15783,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEACTIVITYBOX_LONG_FOCUS= 1 ; +if(!qbevent)break;evnt(26070,15784,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26070,15785,"ide_methods.bas");}while(r); +do{ if (_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[2]&2){ error(10); @@ -179017,22 +179017,22 @@ _FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[0]=(ptrszint)calloc(_FUNC_IDEACTIVITYBOX_ARRAY_ if (!_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[0]) error(257); } _FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[2]|=1; -} -if(!qbevent)break;evnt(26070,15786,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(26070,15787,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEACTIVITYBOX_STRING1_SEP,func_chr( 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15788,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEACTIVITYBOX_STRING_MESSAGESTR,FUNC_STRREPLACE(_FUNC_IDEACTIVITYBOX_STRING_MESSAGESTR,qbs_new_txt_len("\\n",2),func_chr( 10 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15792,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEACTIVITYBOX_LONG_MESSAGELINES= 1 ; -if(!qbevent)break;evnt(26070,15793,"ide_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26070,15786,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26070,15787,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEACTIVITYBOX_STRING1_SEP,func_chr( 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15788,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEACTIVITYBOX_STRING_MESSAGESTR,FUNC_STRREPLACE(_FUNC_IDEACTIVITYBOX_STRING_MESSAGESTR,qbs_new_txt_len("\\n",2),func_chr( 10 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15792,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEACTIVITYBOX_LONG_MESSAGELINES= 1 ; +if(!qbevent)break;evnt(26070,15793,"ide_methods.bas");}while(r); +do{ if (_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[2]&2){ error(10); @@ -179055,574 +179055,574 @@ while(tmp_long--) ((uint64*)(_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[0]))[ }else{ while(tmp_long--) ((uint64*)(_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[0]))[tmp_long]=(uint64)qbs_new(0,0); } -} -if(!qbevent)break;evnt(26070,15794,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEACTIVITYBOX_LONG_PREVSCAN= 1 ; -if(!qbevent)break;evnt(26070,15795,"ide_methods.bas");}while(r); -S_53099:; -do{ -if(qbevent){evnt(26070,15796,"ide_methods.bas");if(r)goto S_53099;} -do{ -*_FUNC_IDEACTIVITYBOX_LONG_NEXTSCAN=func_instr(*_FUNC_IDEACTIVITYBOX_LONG_NEXTSCAN+ 1 ,_FUNC_IDEACTIVITYBOX_STRING_MESSAGESTR,func_chr( 10 ),0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15797,"ide_methods.bas");}while(r); -S_53101:; -if ((-(*_FUNC_IDEACTIVITYBOX_LONG_NEXTSCAN> 0 ))||new_error){ -if(qbevent){evnt(26070,15798,"ide_methods.bas");if(r)goto S_53101;} -do{ -tmp_long=array_check((*_FUNC_IDEACTIVITYBOX_LONG_MESSAGELINES)-_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[4],_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[0]))[tmp_long])),func_mid(_FUNC_IDEACTIVITYBOX_STRING_MESSAGESTR,*_FUNC_IDEACTIVITYBOX_LONG_PREVSCAN,*_FUNC_IDEACTIVITYBOX_LONG_NEXTSCAN-*_FUNC_IDEACTIVITYBOX_LONG_PREVSCAN,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15799,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEACTIVITYBOX_LONG_TW=((qbs*)(((uint64*)(_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[0]))[array_check((*_FUNC_IDEACTIVITYBOX_LONG_MESSAGELINES)-_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[4],_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[5])]))->len+ 2 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15800,"ide_methods.bas");}while(r); -S_53104:; -if ((-(*_FUNC_IDEACTIVITYBOX_LONG_TW>*_FUNC_IDEACTIVITYBOX_LONG_W))||new_error){ -if(qbevent){evnt(26070,15801,"ide_methods.bas");if(r)goto S_53104;} -do{ -*_FUNC_IDEACTIVITYBOX_LONG_W=*_FUNC_IDEACTIVITYBOX_LONG_TW; -if(!qbevent)break;evnt(26070,15801,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEACTIVITYBOX_LONG_PREVSCAN=*_FUNC_IDEACTIVITYBOX_LONG_NEXTSCAN+ 1 ; -if(!qbevent)break;evnt(26070,15802,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEACTIVITYBOX_LONG_MESSAGELINES=*_FUNC_IDEACTIVITYBOX_LONG_MESSAGELINES+ 1 ; -if(!qbevent)break;evnt(26070,15803,"ide_methods.bas");}while(r); -S_53109:; -if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDEACTIVITYBOX_LONG_MESSAGELINES>func_ubound(_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE,1,1))))||new_error){ -if(qbevent){evnt(26070,15804,"ide_methods.bas");if(r)goto S_53109;} -do{ -goto dl_exit_5878; -if(!qbevent)break;evnt(26070,15804,"ide_methods.bas");}while(r); -} -}else{ -do{ -tmp_long=array_check((*_FUNC_IDEACTIVITYBOX_LONG_MESSAGELINES)-_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[4],_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[0]))[tmp_long])),func_mid(_FUNC_IDEACTIVITYBOX_STRING_MESSAGESTR,*_FUNC_IDEACTIVITYBOX_LONG_PREVSCAN,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15806,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEACTIVITYBOX_LONG_TW=((qbs*)(((uint64*)(_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[0]))[array_check((*_FUNC_IDEACTIVITYBOX_LONG_MESSAGELINES)-_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[4],_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[5])]))->len+ 2 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15807,"ide_methods.bas");}while(r); -S_53115:; -if ((-(*_FUNC_IDEACTIVITYBOX_LONG_TW>*_FUNC_IDEACTIVITYBOX_LONG_W))||new_error){ -if(qbevent){evnt(26070,15808,"ide_methods.bas");if(r)goto S_53115;} -do{ -*_FUNC_IDEACTIVITYBOX_LONG_W=*_FUNC_IDEACTIVITYBOX_LONG_TW; -if(!qbevent)break;evnt(26070,15808,"ide_methods.bas");}while(r); -} -do{ -goto dl_exit_5878; -if(!qbevent)break;evnt(26070,15809,"ide_methods.bas");}while(r); -} -dl_continue_5878:; -}while(1); -dl_exit_5878:; -S_53121:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEACTIVITYBOX_STRING_BUTTONS,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,15813,"ide_methods.bas");if(r)goto S_53121;} -do{ -qbs_set(_FUNC_IDEACTIVITYBOX_STRING_BUTTONS,qbs_new_txt_len("#OK",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15813,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEACTIVITYBOX_LONG_TOTALBUTTONS= 1 ; -if(!qbevent)break;evnt(26070,15814,"ide_methods.bas");}while(r); -S_53125:; -fornext_value5882= 1 ; -fornext_finalvalue5882=_FUNC_IDEACTIVITYBOX_STRING_BUTTONS->len; -fornext_step5882= 1 ; -if (fornext_step5882<0) fornext_step_negative5882=1; else fornext_step_negative5882=0; -if (new_error) goto fornext_error5882; -goto fornext_entrylabel5882; -while(1){ -fornext_value5882=fornext_step5882+(*_FUNC_IDEACTIVITYBOX_LONG_I); -fornext_entrylabel5882: -*_FUNC_IDEACTIVITYBOX_LONG_I=fornext_value5882; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative5882){ -if (fornext_value5882fornext_finalvalue5882) break; -} -fornext_error5882:; -if(qbevent){evnt(26070,15815,"ide_methods.bas");if(r)goto S_53125;} -S_53126:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_IDEACTIVITYBOX_STRING_BUTTONS,*_FUNC_IDEACTIVITYBOX_LONG_I)== 59 )))||new_error){ -if(qbevent){evnt(26070,15816,"ide_methods.bas");if(r)goto S_53126;} -do{ -*_FUNC_IDEACTIVITYBOX_LONG_TOTALBUTTONS=*_FUNC_IDEACTIVITYBOX_LONG_TOTALBUTTONS+ 1 ; -if(!qbevent)break;evnt(26070,15816,"ide_methods.bas");}while(r); -} -fornext_continue_5881:; -} -fornext_exit_5881:; -do{ -*_FUNC_IDEACTIVITYBOX_LONG_BUTTONSLEN=(_FUNC_IDEACTIVITYBOX_STRING_BUTTONS->len)+(*_FUNC_IDEACTIVITYBOX_LONG_TOTALBUTTONS* 6 ); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15818,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEACTIVITYBOX_LONG_I= 0 ; -if(!qbevent)break;evnt(26070,15820,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEACTIVITYBOX_LONG_W2=_FUNC_IDEACTIVITYBOX_STRING_TITLESTR->len+ 4 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15821,"ide_methods.bas");}while(r); -S_53133:; -if ((-(*_FUNC_IDEACTIVITYBOX_LONG_W<*_FUNC_IDEACTIVITYBOX_LONG_W2))||new_error){ -if(qbevent){evnt(26070,15822,"ide_methods.bas");if(r)goto S_53133;} -do{ -*_FUNC_IDEACTIVITYBOX_LONG_W=*_FUNC_IDEACTIVITYBOX_LONG_W2; -if(!qbevent)break;evnt(26070,15822,"ide_methods.bas");}while(r); -} -S_53136:; -if ((-(*_FUNC_IDEACTIVITYBOX_LONG_W<*_FUNC_IDEACTIVITYBOX_LONG_BUTTONSLEN))||new_error){ -if(qbevent){evnt(26070,15823,"ide_methods.bas");if(r)goto S_53136;} -do{ -*_FUNC_IDEACTIVITYBOX_LONG_W=*_FUNC_IDEACTIVITYBOX_LONG_BUTTONSLEN; -if(!qbevent)break;evnt(26070,15823,"ide_methods.bas");}while(r); -} -S_53139:; -if ((-(*_FUNC_IDEACTIVITYBOX_LONG_W>(*__LONG_IDEWX- 4 )))||new_error){ -if(qbevent){evnt(26070,15824,"ide_methods.bas");if(r)goto S_53139;} -do{ -*_FUNC_IDEACTIVITYBOX_LONG_W=*__LONG_IDEWX- 4 ; -if(!qbevent)break;evnt(26070,15824,"ide_methods.bas");}while(r); -} -do{ -SUB_IDEPAR((void*)( ((char*)(_FUNC_IDEACTIVITYBOX_UDT_P)) + (0) ),_FUNC_IDEACTIVITYBOX_LONG_W,&(pass5886= 3 +*_FUNC_IDEACTIVITYBOX_LONG_MESSAGELINES),_FUNC_IDEACTIVITYBOX_STRING_TITLESTR); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15825,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEACTIVITYBOX_LONG_I=*_FUNC_IDEACTIVITYBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,15827,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEACTIVITYBOX_LONG_I)-_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[4],_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[5]))*89+36))= 3 ; -if(!qbevent)break;evnt(26070,15828,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEACTIVITYBOX_LONG_I)-_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[4],_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[5]))*89+24))= 3 +*_FUNC_IDEACTIVITYBOX_LONG_MESSAGELINES; -if(!qbevent)break;evnt(26070,15829,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEACTIVITYBOX_LONG_I)-_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[4],_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(FUNC_STRREPLACE(_FUNC_IDEACTIVITYBOX_STRING_BUTTONS,qbs_new_txt_len(";",1),_FUNC_IDEACTIVITYBOX_STRING1_SEP)); -if(!qbevent)break;evnt(26070,15830,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEACTIVITYBOX_LONG_I)-_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[4],_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[5]))*89+48))= 1 ; -if(!qbevent)break;evnt(26070,15831,"ide_methods.bas");}while(r); -S_53148:; -fornext_value5888= 1 ; -fornext_finalvalue5888= 100 ; -fornext_step5888= 1 ; -if (fornext_step5888<0) fornext_step_negative5888=1; else fornext_step_negative5888=0; -if (new_error) goto fornext_error5888; -goto fornext_entrylabel5888; -while(1){ -fornext_value5888=fornext_step5888+(*_FUNC_IDEACTIVITYBOX_LONG_I); -fornext_entrylabel5888: -*_FUNC_IDEACTIVITYBOX_LONG_I=fornext_value5888; -if (fornext_step_negative5888){ -if (fornext_value5888fornext_finalvalue5888) break; -} -fornext_error5888:; -if(qbevent){evnt(26070,15835,"ide_methods.bas");if(r)goto S_53148;} -do{ -memcpy(((char*)_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEACTIVITYBOX_LONG_I)-_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[4],_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[5]))*89)+ 0,((char*)_FUNC_IDEACTIVITYBOX_UDT_P)+(0)+ 0, 20); -if(!qbevent)break;evnt(26070,15835,"ide_methods.bas");}while(r); -fornext_continue_5887:; -} -fornext_exit_5887:; -sc_ec_376_end:; -goto sc_5877_end; -} -S_53151:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_5877,qbs_new_txt_len("update",6))))||new_error){ -if(qbevent){evnt(26070,15837,"ide_methods.bas");if(r)goto S_53151;} -do{ -SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDEACTIVITYBOX_UDT_P)) + (0) )); -if(!qbevent)break;evnt(26070,15839,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEACTIVITYBOX_LONG_F= 1 ; -if(!qbevent)break;evnt(26070,15840,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEACTIVITYBOX_LONG_CX= 0 ; -if(!qbevent)break;evnt(26070,15840,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEACTIVITYBOX_LONG_CY= 0 ; -if(!qbevent)break;evnt(26070,15840,"ide_methods.bas");}while(r); -S_53156:; -fornext_value5890= 1 ; -fornext_finalvalue5890= 100 ; -fornext_step5890= 1 ; -if (fornext_step5890<0) fornext_step_negative5890=1; else fornext_step_negative5890=0; -if (new_error) goto fornext_error5890; -goto fornext_entrylabel5890; -while(1){ -fornext_value5890=fornext_step5890+(*_FUNC_IDEACTIVITYBOX_LONG_I); -fornext_entrylabel5890: -*_FUNC_IDEACTIVITYBOX_LONG_I=fornext_value5890; -if (fornext_step_negative5890){ -if (fornext_value5890fornext_finalvalue5890) break; -} -fornext_error5890:; -if(qbevent){evnt(26070,15841,"ide_methods.bas");if(r)goto S_53156;} -S_53157:; -if ((*(int32*)(((char*)_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEACTIVITYBOX_LONG_I)-_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[4],_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[5]))*89+36)))||new_error){ -if(qbevent){evnt(26070,15842,"ide_methods.bas");if(r)goto S_53157;} -do{ -*(int32*)(((char*)_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEACTIVITYBOX_LONG_I)-_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[4],_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[5]))*89+60))=*_FUNC_IDEACTIVITYBOX_LONG_FOCUS-*_FUNC_IDEACTIVITYBOX_LONG_F; -if(!qbevent)break;evnt(26070,15845,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEACTIVITYBOX_LONG_I)-_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[4],_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[5]))*89+52))= 0 ; -if(!qbevent)break;evnt(26070,15846,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEACTIVITYBOX_LONG_I)-_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[4],_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[5]))*89+56))= 0 ; -if(!qbevent)break;evnt(26070,15846,"ide_methods.bas");}while(r); -do{ -SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEACTIVITYBOX_LONG_I)-_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[4],_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDEACTIVITYBOX_LONG_F); -if(!qbevent)break;evnt(26070,15847,"ide_methods.bas");}while(r); -S_53162:; -if ((*(int32*)(((char*)_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEACTIVITYBOX_LONG_I)-_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[4],_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[5]))*89+52)))||new_error){ -if(qbevent){evnt(26070,15848,"ide_methods.bas");if(r)goto S_53162;} -do{ -*_FUNC_IDEACTIVITYBOX_LONG_CX=*(int32*)(((char*)_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEACTIVITYBOX_LONG_I)-_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[4],_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[5]))*89+52)); -if(!qbevent)break;evnt(26070,15848,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEACTIVITYBOX_LONG_CY=*(int32*)(((char*)_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEACTIVITYBOX_LONG_I)-_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[4],_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[5]))*89+56)); -if(!qbevent)break;evnt(26070,15848,"ide_methods.bas");}while(r); -} -} -fornext_continue_5889:; -} -fornext_exit_5889:; -do{ -*_FUNC_IDEACTIVITYBOX_LONG_LASTFOCUS=*_FUNC_IDEACTIVITYBOX_LONG_F- 1 ; -if(!qbevent)break;evnt(26070,15851,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,15855,"ide_methods.bas");}while(r); -S_53170:; -fornext_value5892= 1 ; -fornext_finalvalue5892=*_FUNC_IDEACTIVITYBOX_LONG_MESSAGELINES; -fornext_step5892= 1 ; -if (fornext_step5892<0) fornext_step_negative5892=1; else fornext_step_negative5892=0; -if (new_error) goto fornext_error5892; -goto fornext_entrylabel5892; -while(1){ -fornext_value5892=fornext_step5892+(*_FUNC_IDEACTIVITYBOX_LONG_I); -fornext_entrylabel5892: -*_FUNC_IDEACTIVITYBOX_LONG_I=fornext_value5892; -if (fornext_step_negative5892){ -if (fornext_value5892fornext_finalvalue5892) break; -} -fornext_error5892:; -if(qbevent){evnt(26070,15856,"ide_methods.bas");if(r)goto S_53170;} -S_53171:; -if ((qbs_cleanup(qbs_tmp_base,-((((qbs*)(((uint64*)(_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[0]))[array_check((*_FUNC_IDEACTIVITYBOX_LONG_I)-_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[4],_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[5])]))->len)>(*(int32*)(((char*)_FUNC_IDEACTIVITYBOX_UDT_P)+(8))- 2 ))))||new_error){ -if(qbevent){evnt(26070,15857,"ide_methods.bas");if(r)goto S_53171;} -do{ -tmp_long=array_check((*_FUNC_IDEACTIVITYBOX_LONG_I)-_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[4],_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[0]))[tmp_long])),qbs_add(qbs_left(((qbs*)(((uint64*)(_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[0]))[array_check((*_FUNC_IDEACTIVITYBOX_LONG_I)-_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[4],_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[5])])),*(int32*)(((char*)_FUNC_IDEACTIVITYBOX_UDT_P)+(8))- 5 ),func_string( 3 , 250 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15858,"ide_methods.bas");}while(r); -} -do{ -sub__printstring(*(int32*)(((char*)_FUNC_IDEACTIVITYBOX_UDT_P)+(0))+((*_FUNC_IDEACTIVITYBOX_LONG_W/ 2 )-(((qbs*)(((uint64*)(_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[0]))[array_check((*_FUNC_IDEACTIVITYBOX_LONG_I)-_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[4],_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[5])]))->len/ 2 ))+ 1 ,*(int32*)(((char*)_FUNC_IDEACTIVITYBOX_UDT_P)+(4))+ 1 +*_FUNC_IDEACTIVITYBOX_LONG_I,((qbs*)(((uint64*)(_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[0]))[array_check((*_FUNC_IDEACTIVITYBOX_LONG_I)-_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[4],_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[5])])),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15860,"ide_methods.bas");}while(r); -fornext_continue_5891:; -} -fornext_exit_5891:; -do{ -sub_pcopy( 1 , 0 ); -if(!qbevent)break;evnt(26070,15865,"ide_methods.bas");}while(r); -S_53177:; -if ((*_FUNC_IDEACTIVITYBOX_LONG_CX)||new_error){ -if(qbevent){evnt(26070,15866,"ide_methods.bas");if(r)goto S_53177;} -do{ -qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,15866,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*_FUNC_IDEACTIVITYBOX_LONG_CY,*_FUNC_IDEACTIVITYBOX_LONG_CX, 1 ,NULL,NULL,7); -if(!qbevent)break;evnt(26070,15866,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,15866,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEACTIVITYBOX_LONG_CHANGE= 0 ; -if(!qbevent)break;evnt(26070,15869,"ide_methods.bas");}while(r); -do{ -SUB_GETINPUT(); -if(!qbevent)break;evnt(26070,15870,"ide_methods.bas");}while(r); -S_53184:; -if ((*__LONG_MWHEEL)||new_error){ -if(qbevent){evnt(26070,15871,"ide_methods.bas");if(r)goto S_53184;} -do{ -*_FUNC_IDEACTIVITYBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,15871,"ide_methods.bas");}while(r); -} -S_53187:; -if ((*__LONG_KB)||new_error){ -if(qbevent){evnt(26070,15872,"ide_methods.bas");if(r)goto S_53187;} -do{ -*_FUNC_IDEACTIVITYBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,15872,"ide_methods.bas");}while(r); -} -S_53190:; -if ((*__LONG_MCLICK)||new_error){ -if(qbevent){evnt(26070,15873,"ide_methods.bas");if(r)goto S_53190;} -do{ -*_FUNC_IDEACTIVITYBOX_LONG_MOUSEDOWN= 1 ; -if(!qbevent)break;evnt(26070,15873,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEACTIVITYBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,15873,"ide_methods.bas");}while(r); -} -S_53194:; -if ((*__LONG_MRELEASE)||new_error){ -if(qbevent){evnt(26070,15874,"ide_methods.bas");if(r)goto S_53194;} -do{ -*_FUNC_IDEACTIVITYBOX_LONG_MOUSEUP= 1 ; -if(!qbevent)break;evnt(26070,15874,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEACTIVITYBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,15874,"ide_methods.bas");}while(r); -} -S_53198:; -if ((*__LONG_MB)||new_error){ -if(qbevent){evnt(26070,15875,"ide_methods.bas");if(r)goto S_53198;} -do{ -*_FUNC_IDEACTIVITYBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,15875,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEACTIVITYBOX_LONG_ALT=*__LONG_KALT; -if(!qbevent)break;evnt(26070,15876,"ide_methods.bas");}while(r); -S_53202:; -if ((-(*_FUNC_IDEACTIVITYBOX_LONG_ALT!=*_FUNC_IDEACTIVITYBOX_LONG_OLDALT))||new_error){ -if(qbevent){evnt(26070,15876,"ide_methods.bas");if(r)goto S_53202;} -do{ -*_FUNC_IDEACTIVITYBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,15876,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEACTIVITYBOX_LONG_OLDALT=*_FUNC_IDEACTIVITYBOX_LONG_ALT; -if(!qbevent)break;evnt(26070,15877,"ide_methods.bas");}while(r); -do{ -sub__limit( 100 ); -if(!qbevent)break;evnt(26070,15878,"ide_methods.bas");}while(r); -S_53207:; -if ((*_FUNC_IDEACTIVITYBOX_LONG_CHANGE)||new_error){ -if(qbevent){evnt(26070,15880,"ide_methods.bas");if(r)goto S_53207;} -S_53208:; -if ((*_FUNC_IDEACTIVITYBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(26070,15881,"ide_methods.bas");if(r)goto S_53208;} -do{ -*__LONG_IDEHL= 1 ; -if(!qbevent)break;evnt(26070,15881,"ide_methods.bas");}while(r); -}else{ -do{ -*__LONG_IDEHL= 0 ; -if(!qbevent)break;evnt(26070,15881,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDEACTIVITYBOX_STRING_ALTLETTER,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15883,"ide_methods.bas");}while(r); -S_53214:; -if ((*_FUNC_IDEACTIVITYBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(26070,15884,"ide_methods.bas");if(r)goto S_53214;} -S_53215:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ -if(qbevent){evnt(26070,15885,"ide_methods.bas");if(r)goto S_53215;} -do{ -*_FUNC_IDEACTIVITYBOX_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15886,"ide_methods.bas");}while(r); -S_53217:; -if (((-(*_FUNC_IDEACTIVITYBOX_LONG_K>= 65 ))&(-(*_FUNC_IDEACTIVITYBOX_LONG_K<= 90 )))||new_error){ -if(qbevent){evnt(26070,15887,"ide_methods.bas");if(r)goto S_53217;} -do{ -qbs_set(_FUNC_IDEACTIVITYBOX_STRING_ALTLETTER,func_chr(*_FUNC_IDEACTIVITYBOX_LONG_K)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15887,"ide_methods.bas");}while(r); -} -} -} -do{ -qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,15890,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); -if(!qbevent)break;evnt(26070,15890,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,15890,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEACTIVITYBOX_LONG_INFO= 0 ; -if(!qbevent)break;evnt(26070,15894,"ide_methods.bas");}while(r); -S_53226:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_greaterorequal(qbs_ucase(__STRING_K),qbs_new_txt_len("A",1)))&(qbs_lessorequal(qbs_ucase(__STRING_K),qbs_new_txt_len("Z",1)))))||new_error){ -if(qbevent){evnt(26070,15896,"ide_methods.bas");if(r)goto S_53226;} -do{ -qbs_set(_FUNC_IDEACTIVITYBOX_STRING_ALTLETTER,qbs_ucase(__STRING_K)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15896,"ide_methods.bas");}while(r); -} -S_53229:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,15898,"ide_methods.bas");if(r)goto S_53229;} -do{ -qbs_set(__STRING_K,func_chr( 255 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15898,"ide_methods.bas");}while(r); -} -S_53232:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ -if(qbevent){evnt(26070,15899,"ide_methods.bas");if(r)goto S_53232;} -do{ -*_FUNC_IDEACTIVITYBOX_LONG_FOCUS=*_FUNC_IDEACTIVITYBOX_LONG_FOCUS+ 1 ; -if(!qbevent)break;evnt(26070,15899,"ide_methods.bas");}while(r); -} -S_53235:; -if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||new_error){ -if(qbevent){evnt(26070,15900,"ide_methods.bas");if(r)goto S_53235;} -do{ -*_FUNC_IDEACTIVITYBOX_LONG_FOCUS=*_FUNC_IDEACTIVITYBOX_LONG_FOCUS- 1 ; -if(!qbevent)break;evnt(26070,15900,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_K,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15900,"ide_methods.bas");}while(r); -} -S_53239:; -if ((-(*_FUNC_IDEACTIVITYBOX_LONG_FOCUS< 1 ))||new_error){ -if(qbevent){evnt(26070,15901,"ide_methods.bas");if(r)goto S_53239;} -do{ -*_FUNC_IDEACTIVITYBOX_LONG_FOCUS=*_FUNC_IDEACTIVITYBOX_LONG_LASTFOCUS; -if(!qbevent)break;evnt(26070,15901,"ide_methods.bas");}while(r); -} -S_53242:; -if ((-(*_FUNC_IDEACTIVITYBOX_LONG_FOCUS>*_FUNC_IDEACTIVITYBOX_LONG_LASTFOCUS))||new_error){ -if(qbevent){evnt(26070,15902,"ide_methods.bas");if(r)goto S_53242;} -do{ -*_FUNC_IDEACTIVITYBOX_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(26070,15902,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEACTIVITYBOX_LONG_F= 1 ; -if(!qbevent)break;evnt(26070,15903,"ide_methods.bas");}while(r); -S_53246:; -fornext_value5897= 1 ; -fornext_finalvalue5897= 100 ; -fornext_step5897= 1 ; -if (fornext_step5897<0) fornext_step_negative5897=1; else fornext_step_negative5897=0; -if (new_error) goto fornext_error5897; -goto fornext_entrylabel5897; -while(1){ -fornext_value5897=fornext_step5897+(*_FUNC_IDEACTIVITYBOX_LONG_I); -fornext_entrylabel5897: -*_FUNC_IDEACTIVITYBOX_LONG_I=fornext_value5897; -if (fornext_step_negative5897){ -if (fornext_value5897fornext_finalvalue5897) break; -} -fornext_error5897:; -if(qbevent){evnt(26070,15904,"ide_methods.bas");if(r)goto S_53246;} -do{ -*_FUNC_IDEACTIVITYBOX_LONG_T=*(int32*)(((char*)_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEACTIVITYBOX_LONG_I)-_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[4],_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[5]))*89+36)); -if(!qbevent)break;evnt(26070,15905,"ide_methods.bas");}while(r); -S_53248:; -if ((*_FUNC_IDEACTIVITYBOX_LONG_T)||new_error){ -if(qbevent){evnt(26070,15906,"ide_methods.bas");if(r)goto S_53248;} -do{ -*_FUNC_IDEACTIVITYBOX_LONG_FOCUSOFFSET=*_FUNC_IDEACTIVITYBOX_LONG_FOCUS-*_FUNC_IDEACTIVITYBOX_LONG_F; -if(!qbevent)break;evnt(26070,15907,"ide_methods.bas");}while(r); -do{ -SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEACTIVITYBOX_LONG_I)-_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[4],_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDEACTIVITYBOX_LONG_FOCUS,_FUNC_IDEACTIVITYBOX_LONG_F,_FUNC_IDEACTIVITYBOX_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDEACTIVITYBOX_STRING_ALTLETTER,__LONG_MB,_FUNC_IDEACTIVITYBOX_LONG_MOUSEDOWN,_FUNC_IDEACTIVITYBOX_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDEACTIVITYBOX_LONG_INFO,__LONG_MWHEEL); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15908,"ide_methods.bas");}while(r); -} -fornext_continue_5896:; -} -fornext_exit_5896:; -S_53253:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,func_chr( 27 ))))||new_error){ -if(qbevent){evnt(26070,15914,"ide_methods.bas");if(r)goto S_53253;} -do{ -qbs_set(_FUNC_IDEACTIVITYBOX_STRING_IDEACTIVITYBOX,i2string( 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15914,"ide_methods.bas");}while(r); -} -S_53256:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 13 )))|((-(*_FUNC_IDEACTIVITYBOX_LONG_INFO!= 0 )))))||new_error){ -if(qbevent){evnt(26070,15916,"ide_methods.bas");if(r)goto S_53256;} -do{ -qbs_set(_FUNC_IDEACTIVITYBOX_STRING_IDEACTIVITYBOX,qbs_add(i2string( 1 ),l2string(*_FUNC_IDEACTIVITYBOX_LONG_FOCUS))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15917,"ide_methods.bas");}while(r); -do{ -SUB_CLEARMOUSE(); -if(!qbevent)break;evnt(26070,15918,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEACTIVITYBOX_LONG_MOUSEDOWN= 0 ; -if(!qbevent)break;evnt(26070,15922,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEACTIVITYBOX_LONG_MOUSEUP= 0 ; -if(!qbevent)break;evnt(26070,15923,"ide_methods.bas");}while(r); -} -sc_ec_377_end:; -goto sc_5877_end; -} -sc_5877_end:; -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free236.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_IDEACTIVITYBOX_STRING_IDEACTIVITYBOX);return _FUNC_IDEACTIVITYBOX_STRING_IDEACTIVITYBOX; -} -int32 FUNC_IDEDISPLAYBOX(){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data237.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -sub_pcopy( 0 , 2 ); -if(!qbevent)break;evnt(26070,15932,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 0 , 1 ); -if(!qbevent)break;evnt(26070,15933,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,15934,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEDISPLAYBOX_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(26070,15935,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(26070,15936,"ide_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26070,15794,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEACTIVITYBOX_LONG_PREVSCAN= 1 ; +if(!qbevent)break;evnt(26070,15795,"ide_methods.bas");}while(r); +S_53099:; +do{ +if(qbevent){evnt(26070,15796,"ide_methods.bas");if(r)goto S_53099;} +do{ +*_FUNC_IDEACTIVITYBOX_LONG_NEXTSCAN=func_instr(*_FUNC_IDEACTIVITYBOX_LONG_NEXTSCAN+ 1 ,_FUNC_IDEACTIVITYBOX_STRING_MESSAGESTR,func_chr( 10 ),0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15797,"ide_methods.bas");}while(r); +S_53101:; +if ((-(*_FUNC_IDEACTIVITYBOX_LONG_NEXTSCAN> 0 ))||new_error){ +if(qbevent){evnt(26070,15798,"ide_methods.bas");if(r)goto S_53101;} +do{ +tmp_long=array_check((*_FUNC_IDEACTIVITYBOX_LONG_MESSAGELINES)-_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[4],_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[0]))[tmp_long])),func_mid(_FUNC_IDEACTIVITYBOX_STRING_MESSAGESTR,*_FUNC_IDEACTIVITYBOX_LONG_PREVSCAN,*_FUNC_IDEACTIVITYBOX_LONG_NEXTSCAN-*_FUNC_IDEACTIVITYBOX_LONG_PREVSCAN,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15799,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEACTIVITYBOX_LONG_TW=((qbs*)(((uint64*)(_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[0]))[array_check((*_FUNC_IDEACTIVITYBOX_LONG_MESSAGELINES)-_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[4],_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[5])]))->len+ 2 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15800,"ide_methods.bas");}while(r); +S_53104:; +if ((-(*_FUNC_IDEACTIVITYBOX_LONG_TW>*_FUNC_IDEACTIVITYBOX_LONG_W))||new_error){ +if(qbevent){evnt(26070,15801,"ide_methods.bas");if(r)goto S_53104;} +do{ +*_FUNC_IDEACTIVITYBOX_LONG_W=*_FUNC_IDEACTIVITYBOX_LONG_TW; +if(!qbevent)break;evnt(26070,15801,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEACTIVITYBOX_LONG_PREVSCAN=*_FUNC_IDEACTIVITYBOX_LONG_NEXTSCAN+ 1 ; +if(!qbevent)break;evnt(26070,15802,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEACTIVITYBOX_LONG_MESSAGELINES=*_FUNC_IDEACTIVITYBOX_LONG_MESSAGELINES+ 1 ; +if(!qbevent)break;evnt(26070,15803,"ide_methods.bas");}while(r); +S_53109:; +if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDEACTIVITYBOX_LONG_MESSAGELINES>func_ubound(_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE,1,1))))||new_error){ +if(qbevent){evnt(26070,15804,"ide_methods.bas");if(r)goto S_53109;} +do{ +goto dl_exit_5878; +if(!qbevent)break;evnt(26070,15804,"ide_methods.bas");}while(r); +} +}else{ +do{ +tmp_long=array_check((*_FUNC_IDEACTIVITYBOX_LONG_MESSAGELINES)-_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[4],_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[0]))[tmp_long])),func_mid(_FUNC_IDEACTIVITYBOX_STRING_MESSAGESTR,*_FUNC_IDEACTIVITYBOX_LONG_PREVSCAN,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15806,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEACTIVITYBOX_LONG_TW=((qbs*)(((uint64*)(_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[0]))[array_check((*_FUNC_IDEACTIVITYBOX_LONG_MESSAGELINES)-_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[4],_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[5])]))->len+ 2 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15807,"ide_methods.bas");}while(r); +S_53115:; +if ((-(*_FUNC_IDEACTIVITYBOX_LONG_TW>*_FUNC_IDEACTIVITYBOX_LONG_W))||new_error){ +if(qbevent){evnt(26070,15808,"ide_methods.bas");if(r)goto S_53115;} +do{ +*_FUNC_IDEACTIVITYBOX_LONG_W=*_FUNC_IDEACTIVITYBOX_LONG_TW; +if(!qbevent)break;evnt(26070,15808,"ide_methods.bas");}while(r); +} +do{ +goto dl_exit_5878; +if(!qbevent)break;evnt(26070,15809,"ide_methods.bas");}while(r); +} +dl_continue_5878:; +}while(1); +dl_exit_5878:; +S_53121:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEACTIVITYBOX_STRING_BUTTONS,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,15813,"ide_methods.bas");if(r)goto S_53121;} +do{ +qbs_set(_FUNC_IDEACTIVITYBOX_STRING_BUTTONS,qbs_new_txt_len("#OK",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15813,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEACTIVITYBOX_LONG_TOTALBUTTONS= 1 ; +if(!qbevent)break;evnt(26070,15814,"ide_methods.bas");}while(r); +S_53125:; +fornext_value5882= 1 ; +fornext_finalvalue5882=_FUNC_IDEACTIVITYBOX_STRING_BUTTONS->len; +fornext_step5882= 1 ; +if (fornext_step5882<0) fornext_step_negative5882=1; else fornext_step_negative5882=0; +if (new_error) goto fornext_error5882; +goto fornext_entrylabel5882; +while(1){ +fornext_value5882=fornext_step5882+(*_FUNC_IDEACTIVITYBOX_LONG_I); +fornext_entrylabel5882: +*_FUNC_IDEACTIVITYBOX_LONG_I=fornext_value5882; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative5882){ +if (fornext_value5882fornext_finalvalue5882) break; +} +fornext_error5882:; +if(qbevent){evnt(26070,15815,"ide_methods.bas");if(r)goto S_53125;} +S_53126:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_IDEACTIVITYBOX_STRING_BUTTONS,*_FUNC_IDEACTIVITYBOX_LONG_I)== 59 )))||new_error){ +if(qbevent){evnt(26070,15816,"ide_methods.bas");if(r)goto S_53126;} +do{ +*_FUNC_IDEACTIVITYBOX_LONG_TOTALBUTTONS=*_FUNC_IDEACTIVITYBOX_LONG_TOTALBUTTONS+ 1 ; +if(!qbevent)break;evnt(26070,15816,"ide_methods.bas");}while(r); +} +fornext_continue_5881:; +} +fornext_exit_5881:; +do{ +*_FUNC_IDEACTIVITYBOX_LONG_BUTTONSLEN=(_FUNC_IDEACTIVITYBOX_STRING_BUTTONS->len)+(*_FUNC_IDEACTIVITYBOX_LONG_TOTALBUTTONS* 6 ); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15818,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEACTIVITYBOX_LONG_I= 0 ; +if(!qbevent)break;evnt(26070,15820,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEACTIVITYBOX_LONG_W2=_FUNC_IDEACTIVITYBOX_STRING_TITLESTR->len+ 4 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15821,"ide_methods.bas");}while(r); +S_53133:; +if ((-(*_FUNC_IDEACTIVITYBOX_LONG_W<*_FUNC_IDEACTIVITYBOX_LONG_W2))||new_error){ +if(qbevent){evnt(26070,15822,"ide_methods.bas");if(r)goto S_53133;} +do{ +*_FUNC_IDEACTIVITYBOX_LONG_W=*_FUNC_IDEACTIVITYBOX_LONG_W2; +if(!qbevent)break;evnt(26070,15822,"ide_methods.bas");}while(r); +} +S_53136:; +if ((-(*_FUNC_IDEACTIVITYBOX_LONG_W<*_FUNC_IDEACTIVITYBOX_LONG_BUTTONSLEN))||new_error){ +if(qbevent){evnt(26070,15823,"ide_methods.bas");if(r)goto S_53136;} +do{ +*_FUNC_IDEACTIVITYBOX_LONG_W=*_FUNC_IDEACTIVITYBOX_LONG_BUTTONSLEN; +if(!qbevent)break;evnt(26070,15823,"ide_methods.bas");}while(r); +} +S_53139:; +if ((-(*_FUNC_IDEACTIVITYBOX_LONG_W>(*__LONG_IDEWX- 4 )))||new_error){ +if(qbevent){evnt(26070,15824,"ide_methods.bas");if(r)goto S_53139;} +do{ +*_FUNC_IDEACTIVITYBOX_LONG_W=*__LONG_IDEWX- 4 ; +if(!qbevent)break;evnt(26070,15824,"ide_methods.bas");}while(r); +} +do{ +SUB_IDEPAR((void*)( ((char*)(_FUNC_IDEACTIVITYBOX_UDT_P)) + (0) ),_FUNC_IDEACTIVITYBOX_LONG_W,&(pass5886= 3 +*_FUNC_IDEACTIVITYBOX_LONG_MESSAGELINES),_FUNC_IDEACTIVITYBOX_STRING_TITLESTR); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15825,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEACTIVITYBOX_LONG_I=*_FUNC_IDEACTIVITYBOX_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,15827,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEACTIVITYBOX_LONG_I)-_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[4],_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[5]))*89+36))= 3 ; +if(!qbevent)break;evnt(26070,15828,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEACTIVITYBOX_LONG_I)-_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[4],_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[5]))*89+24))= 3 +*_FUNC_IDEACTIVITYBOX_LONG_MESSAGELINES; +if(!qbevent)break;evnt(26070,15829,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEACTIVITYBOX_LONG_I)-_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[4],_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(FUNC_STRREPLACE(_FUNC_IDEACTIVITYBOX_STRING_BUTTONS,qbs_new_txt_len(";",1),_FUNC_IDEACTIVITYBOX_STRING1_SEP)); +if(!qbevent)break;evnt(26070,15830,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEACTIVITYBOX_LONG_I)-_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[4],_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[5]))*89+48))= 1 ; +if(!qbevent)break;evnt(26070,15831,"ide_methods.bas");}while(r); +S_53148:; +fornext_value5888= 1 ; +fornext_finalvalue5888= 100 ; +fornext_step5888= 1 ; +if (fornext_step5888<0) fornext_step_negative5888=1; else fornext_step_negative5888=0; +if (new_error) goto fornext_error5888; +goto fornext_entrylabel5888; +while(1){ +fornext_value5888=fornext_step5888+(*_FUNC_IDEACTIVITYBOX_LONG_I); +fornext_entrylabel5888: +*_FUNC_IDEACTIVITYBOX_LONG_I=fornext_value5888; +if (fornext_step_negative5888){ +if (fornext_value5888fornext_finalvalue5888) break; +} +fornext_error5888:; +if(qbevent){evnt(26070,15835,"ide_methods.bas");if(r)goto S_53148;} +do{ +memcpy(((char*)_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEACTIVITYBOX_LONG_I)-_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[4],_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[5]))*89)+ 0,((char*)_FUNC_IDEACTIVITYBOX_UDT_P)+(0)+ 0, 20); +if(!qbevent)break;evnt(26070,15835,"ide_methods.bas");}while(r); +fornext_continue_5887:; +} +fornext_exit_5887:; +sc_ec_376_end:; +goto sc_5877_end; +} +S_53151:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_5877,qbs_new_txt_len("update",6))))||new_error){ +if(qbevent){evnt(26070,15837,"ide_methods.bas");if(r)goto S_53151;} +do{ +SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDEACTIVITYBOX_UDT_P)) + (0) )); +if(!qbevent)break;evnt(26070,15839,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEACTIVITYBOX_LONG_F= 1 ; +if(!qbevent)break;evnt(26070,15840,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEACTIVITYBOX_LONG_CX= 0 ; +if(!qbevent)break;evnt(26070,15840,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEACTIVITYBOX_LONG_CY= 0 ; +if(!qbevent)break;evnt(26070,15840,"ide_methods.bas");}while(r); +S_53156:; +fornext_value5890= 1 ; +fornext_finalvalue5890= 100 ; +fornext_step5890= 1 ; +if (fornext_step5890<0) fornext_step_negative5890=1; else fornext_step_negative5890=0; +if (new_error) goto fornext_error5890; +goto fornext_entrylabel5890; +while(1){ +fornext_value5890=fornext_step5890+(*_FUNC_IDEACTIVITYBOX_LONG_I); +fornext_entrylabel5890: +*_FUNC_IDEACTIVITYBOX_LONG_I=fornext_value5890; +if (fornext_step_negative5890){ +if (fornext_value5890fornext_finalvalue5890) break; +} +fornext_error5890:; +if(qbevent){evnt(26070,15841,"ide_methods.bas");if(r)goto S_53156;} +S_53157:; +if ((*(int32*)(((char*)_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEACTIVITYBOX_LONG_I)-_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[4],_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[5]))*89+36)))||new_error){ +if(qbevent){evnt(26070,15842,"ide_methods.bas");if(r)goto S_53157;} +do{ +*(int32*)(((char*)_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEACTIVITYBOX_LONG_I)-_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[4],_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[5]))*89+60))=*_FUNC_IDEACTIVITYBOX_LONG_FOCUS-*_FUNC_IDEACTIVITYBOX_LONG_F; +if(!qbevent)break;evnt(26070,15845,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEACTIVITYBOX_LONG_I)-_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[4],_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[5]))*89+52))= 0 ; +if(!qbevent)break;evnt(26070,15846,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEACTIVITYBOX_LONG_I)-_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[4],_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[5]))*89+56))= 0 ; +if(!qbevent)break;evnt(26070,15846,"ide_methods.bas");}while(r); +do{ +SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEACTIVITYBOX_LONG_I)-_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[4],_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDEACTIVITYBOX_LONG_F); +if(!qbevent)break;evnt(26070,15847,"ide_methods.bas");}while(r); +S_53162:; +if ((*(int32*)(((char*)_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEACTIVITYBOX_LONG_I)-_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[4],_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[5]))*89+52)))||new_error){ +if(qbevent){evnt(26070,15848,"ide_methods.bas");if(r)goto S_53162;} +do{ +*_FUNC_IDEACTIVITYBOX_LONG_CX=*(int32*)(((char*)_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEACTIVITYBOX_LONG_I)-_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[4],_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[5]))*89+52)); +if(!qbevent)break;evnt(26070,15848,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEACTIVITYBOX_LONG_CY=*(int32*)(((char*)_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEACTIVITYBOX_LONG_I)-_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[4],_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[5]))*89+56)); +if(!qbevent)break;evnt(26070,15848,"ide_methods.bas");}while(r); +} +} +fornext_continue_5889:; +} +fornext_exit_5889:; +do{ +*_FUNC_IDEACTIVITYBOX_LONG_LASTFOCUS=*_FUNC_IDEACTIVITYBOX_LONG_F- 1 ; +if(!qbevent)break;evnt(26070,15851,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,15855,"ide_methods.bas");}while(r); +S_53170:; +fornext_value5892= 1 ; +fornext_finalvalue5892=*_FUNC_IDEACTIVITYBOX_LONG_MESSAGELINES; +fornext_step5892= 1 ; +if (fornext_step5892<0) fornext_step_negative5892=1; else fornext_step_negative5892=0; +if (new_error) goto fornext_error5892; +goto fornext_entrylabel5892; +while(1){ +fornext_value5892=fornext_step5892+(*_FUNC_IDEACTIVITYBOX_LONG_I); +fornext_entrylabel5892: +*_FUNC_IDEACTIVITYBOX_LONG_I=fornext_value5892; +if (fornext_step_negative5892){ +if (fornext_value5892fornext_finalvalue5892) break; +} +fornext_error5892:; +if(qbevent){evnt(26070,15856,"ide_methods.bas");if(r)goto S_53170;} +S_53171:; +if ((qbs_cleanup(qbs_tmp_base,-((((qbs*)(((uint64*)(_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[0]))[array_check((*_FUNC_IDEACTIVITYBOX_LONG_I)-_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[4],_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[5])]))->len)>(*(int32*)(((char*)_FUNC_IDEACTIVITYBOX_UDT_P)+(8))- 2 ))))||new_error){ +if(qbevent){evnt(26070,15857,"ide_methods.bas");if(r)goto S_53171;} +do{ +tmp_long=array_check((*_FUNC_IDEACTIVITYBOX_LONG_I)-_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[4],_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[0]))[tmp_long])),qbs_add(qbs_left(((qbs*)(((uint64*)(_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[0]))[array_check((*_FUNC_IDEACTIVITYBOX_LONG_I)-_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[4],_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[5])])),*(int32*)(((char*)_FUNC_IDEACTIVITYBOX_UDT_P)+(8))- 5 ),func_string( 3 , 250 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15858,"ide_methods.bas");}while(r); +} +do{ +sub__printstring(*(int32*)(((char*)_FUNC_IDEACTIVITYBOX_UDT_P)+(0))+((*_FUNC_IDEACTIVITYBOX_LONG_W/ 2 )-(((qbs*)(((uint64*)(_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[0]))[array_check((*_FUNC_IDEACTIVITYBOX_LONG_I)-_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[4],_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[5])]))->len/ 2 ))+ 1 ,*(int32*)(((char*)_FUNC_IDEACTIVITYBOX_UDT_P)+(4))+ 1 +*_FUNC_IDEACTIVITYBOX_LONG_I,((qbs*)(((uint64*)(_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[0]))[array_check((*_FUNC_IDEACTIVITYBOX_LONG_I)-_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[4],_FUNC_IDEACTIVITYBOX_ARRAY_STRING_FULLMESSAGE[5])])),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15860,"ide_methods.bas");}while(r); +fornext_continue_5891:; +} +fornext_exit_5891:; +do{ +sub_pcopy( 1 , 0 ); +if(!qbevent)break;evnt(26070,15865,"ide_methods.bas");}while(r); +S_53177:; +if ((*_FUNC_IDEACTIVITYBOX_LONG_CX)||new_error){ +if(qbevent){evnt(26070,15866,"ide_methods.bas");if(r)goto S_53177;} +do{ +qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,15866,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(*_FUNC_IDEACTIVITYBOX_LONG_CY,*_FUNC_IDEACTIVITYBOX_LONG_CX, 1 ,NULL,NULL,7); +if(!qbevent)break;evnt(26070,15866,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,15866,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEACTIVITYBOX_LONG_CHANGE= 0 ; +if(!qbevent)break;evnt(26070,15869,"ide_methods.bas");}while(r); +do{ +SUB_GETINPUT(); +if(!qbevent)break;evnt(26070,15870,"ide_methods.bas");}while(r); +S_53184:; +if ((*__LONG_MWHEEL)||new_error){ +if(qbevent){evnt(26070,15871,"ide_methods.bas");if(r)goto S_53184;} +do{ +*_FUNC_IDEACTIVITYBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,15871,"ide_methods.bas");}while(r); +} +S_53187:; +if ((*__LONG_KB)||new_error){ +if(qbevent){evnt(26070,15872,"ide_methods.bas");if(r)goto S_53187;} +do{ +*_FUNC_IDEACTIVITYBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,15872,"ide_methods.bas");}while(r); +} +S_53190:; +if ((*__LONG_MCLICK)||new_error){ +if(qbevent){evnt(26070,15873,"ide_methods.bas");if(r)goto S_53190;} +do{ +*_FUNC_IDEACTIVITYBOX_LONG_MOUSEDOWN= 1 ; +if(!qbevent)break;evnt(26070,15873,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEACTIVITYBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,15873,"ide_methods.bas");}while(r); +} +S_53194:; +if ((*__LONG_MRELEASE)||new_error){ +if(qbevent){evnt(26070,15874,"ide_methods.bas");if(r)goto S_53194;} +do{ +*_FUNC_IDEACTIVITYBOX_LONG_MOUSEUP= 1 ; +if(!qbevent)break;evnt(26070,15874,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEACTIVITYBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,15874,"ide_methods.bas");}while(r); +} +S_53198:; +if ((*__LONG_MB)||new_error){ +if(qbevent){evnt(26070,15875,"ide_methods.bas");if(r)goto S_53198;} +do{ +*_FUNC_IDEACTIVITYBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,15875,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEACTIVITYBOX_LONG_ALT=*__LONG_KALT; +if(!qbevent)break;evnt(26070,15876,"ide_methods.bas");}while(r); +S_53202:; +if ((-(*_FUNC_IDEACTIVITYBOX_LONG_ALT!=*_FUNC_IDEACTIVITYBOX_LONG_OLDALT))||new_error){ +if(qbevent){evnt(26070,15876,"ide_methods.bas");if(r)goto S_53202;} +do{ +*_FUNC_IDEACTIVITYBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,15876,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEACTIVITYBOX_LONG_OLDALT=*_FUNC_IDEACTIVITYBOX_LONG_ALT; +if(!qbevent)break;evnt(26070,15877,"ide_methods.bas");}while(r); +do{ +sub__limit( 100 ); +if(!qbevent)break;evnt(26070,15878,"ide_methods.bas");}while(r); +S_53207:; +if ((*_FUNC_IDEACTIVITYBOX_LONG_CHANGE)||new_error){ +if(qbevent){evnt(26070,15880,"ide_methods.bas");if(r)goto S_53207;} +S_53208:; +if ((*_FUNC_IDEACTIVITYBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ +if(qbevent){evnt(26070,15881,"ide_methods.bas");if(r)goto S_53208;} +do{ +*__LONG_IDEHL= 1 ; +if(!qbevent)break;evnt(26070,15881,"ide_methods.bas");}while(r); +}else{ +do{ +*__LONG_IDEHL= 0 ; +if(!qbevent)break;evnt(26070,15881,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDEACTIVITYBOX_STRING_ALTLETTER,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15883,"ide_methods.bas");}while(r); +S_53214:; +if ((*_FUNC_IDEACTIVITYBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ +if(qbevent){evnt(26070,15884,"ide_methods.bas");if(r)goto S_53214;} +S_53215:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ +if(qbevent){evnt(26070,15885,"ide_methods.bas");if(r)goto S_53215;} +do{ +*_FUNC_IDEACTIVITYBOX_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15886,"ide_methods.bas");}while(r); +S_53217:; +if (((-(*_FUNC_IDEACTIVITYBOX_LONG_K>= 65 ))&(-(*_FUNC_IDEACTIVITYBOX_LONG_K<= 90 )))||new_error){ +if(qbevent){evnt(26070,15887,"ide_methods.bas");if(r)goto S_53217;} +do{ +qbs_set(_FUNC_IDEACTIVITYBOX_STRING_ALTLETTER,func_chr(*_FUNC_IDEACTIVITYBOX_LONG_K)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15887,"ide_methods.bas");}while(r); +} +} +} +do{ +qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,15890,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); +if(!qbevent)break;evnt(26070,15890,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,15890,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEACTIVITYBOX_LONG_INFO= 0 ; +if(!qbevent)break;evnt(26070,15894,"ide_methods.bas");}while(r); +S_53226:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_greaterorequal(qbs_ucase(__STRING_K),qbs_new_txt_len("A",1)))&(qbs_lessorequal(qbs_ucase(__STRING_K),qbs_new_txt_len("Z",1)))))||new_error){ +if(qbevent){evnt(26070,15896,"ide_methods.bas");if(r)goto S_53226;} +do{ +qbs_set(_FUNC_IDEACTIVITYBOX_STRING_ALTLETTER,qbs_ucase(__STRING_K)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15896,"ide_methods.bas");}while(r); +} +S_53229:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,15898,"ide_methods.bas");if(r)goto S_53229;} +do{ +qbs_set(__STRING_K,func_chr( 255 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15898,"ide_methods.bas");}while(r); +} +S_53232:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ +if(qbevent){evnt(26070,15899,"ide_methods.bas");if(r)goto S_53232;} +do{ +*_FUNC_IDEACTIVITYBOX_LONG_FOCUS=*_FUNC_IDEACTIVITYBOX_LONG_FOCUS+ 1 ; +if(!qbevent)break;evnt(26070,15899,"ide_methods.bas");}while(r); +} +S_53235:; +if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||new_error){ +if(qbevent){evnt(26070,15900,"ide_methods.bas");if(r)goto S_53235;} +do{ +*_FUNC_IDEACTIVITYBOX_LONG_FOCUS=*_FUNC_IDEACTIVITYBOX_LONG_FOCUS- 1 ; +if(!qbevent)break;evnt(26070,15900,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_K,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15900,"ide_methods.bas");}while(r); +} +S_53239:; +if ((-(*_FUNC_IDEACTIVITYBOX_LONG_FOCUS< 1 ))||new_error){ +if(qbevent){evnt(26070,15901,"ide_methods.bas");if(r)goto S_53239;} +do{ +*_FUNC_IDEACTIVITYBOX_LONG_FOCUS=*_FUNC_IDEACTIVITYBOX_LONG_LASTFOCUS; +if(!qbevent)break;evnt(26070,15901,"ide_methods.bas");}while(r); +} +S_53242:; +if ((-(*_FUNC_IDEACTIVITYBOX_LONG_FOCUS>*_FUNC_IDEACTIVITYBOX_LONG_LASTFOCUS))||new_error){ +if(qbevent){evnt(26070,15902,"ide_methods.bas");if(r)goto S_53242;} +do{ +*_FUNC_IDEACTIVITYBOX_LONG_FOCUS= 1 ; +if(!qbevent)break;evnt(26070,15902,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEACTIVITYBOX_LONG_F= 1 ; +if(!qbevent)break;evnt(26070,15903,"ide_methods.bas");}while(r); +S_53246:; +fornext_value5897= 1 ; +fornext_finalvalue5897= 100 ; +fornext_step5897= 1 ; +if (fornext_step5897<0) fornext_step_negative5897=1; else fornext_step_negative5897=0; +if (new_error) goto fornext_error5897; +goto fornext_entrylabel5897; +while(1){ +fornext_value5897=fornext_step5897+(*_FUNC_IDEACTIVITYBOX_LONG_I); +fornext_entrylabel5897: +*_FUNC_IDEACTIVITYBOX_LONG_I=fornext_value5897; +if (fornext_step_negative5897){ +if (fornext_value5897fornext_finalvalue5897) break; +} +fornext_error5897:; +if(qbevent){evnt(26070,15904,"ide_methods.bas");if(r)goto S_53246;} +do{ +*_FUNC_IDEACTIVITYBOX_LONG_T=*(int32*)(((char*)_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEACTIVITYBOX_LONG_I)-_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[4],_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[5]))*89+36)); +if(!qbevent)break;evnt(26070,15905,"ide_methods.bas");}while(r); +S_53248:; +if ((*_FUNC_IDEACTIVITYBOX_LONG_T)||new_error){ +if(qbevent){evnt(26070,15906,"ide_methods.bas");if(r)goto S_53248;} +do{ +*_FUNC_IDEACTIVITYBOX_LONG_FOCUSOFFSET=*_FUNC_IDEACTIVITYBOX_LONG_FOCUS-*_FUNC_IDEACTIVITYBOX_LONG_F; +if(!qbevent)break;evnt(26070,15907,"ide_methods.bas");}while(r); +do{ +SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEACTIVITYBOX_LONG_I)-_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[4],_FUNC_IDEACTIVITYBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDEACTIVITYBOX_LONG_FOCUS,_FUNC_IDEACTIVITYBOX_LONG_F,_FUNC_IDEACTIVITYBOX_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDEACTIVITYBOX_STRING_ALTLETTER,__LONG_MB,_FUNC_IDEACTIVITYBOX_LONG_MOUSEDOWN,_FUNC_IDEACTIVITYBOX_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDEACTIVITYBOX_LONG_INFO,__LONG_MWHEEL); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15908,"ide_methods.bas");}while(r); +} +fornext_continue_5896:; +} +fornext_exit_5896:; +S_53253:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,func_chr( 27 ))))||new_error){ +if(qbevent){evnt(26070,15914,"ide_methods.bas");if(r)goto S_53253;} +do{ +qbs_set(_FUNC_IDEACTIVITYBOX_STRING_IDEACTIVITYBOX,i2string( 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15914,"ide_methods.bas");}while(r); +} +S_53256:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 13 )))|((-(*_FUNC_IDEACTIVITYBOX_LONG_INFO!= 0 )))))||new_error){ +if(qbevent){evnt(26070,15916,"ide_methods.bas");if(r)goto S_53256;} +do{ +qbs_set(_FUNC_IDEACTIVITYBOX_STRING_IDEACTIVITYBOX,qbs_add(i2string( 1 ),l2string(*_FUNC_IDEACTIVITYBOX_LONG_FOCUS))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15917,"ide_methods.bas");}while(r); +do{ +SUB_CLEARMOUSE(); +if(!qbevent)break;evnt(26070,15918,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEACTIVITYBOX_LONG_MOUSEDOWN= 0 ; +if(!qbevent)break;evnt(26070,15922,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEACTIVITYBOX_LONG_MOUSEUP= 0 ; +if(!qbevent)break;evnt(26070,15923,"ide_methods.bas");}while(r); +} +sc_ec_377_end:; +goto sc_5877_end; +} +sc_5877_end:; +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free236.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_IDEACTIVITYBOX_STRING_IDEACTIVITYBOX);return _FUNC_IDEACTIVITYBOX_STRING_IDEACTIVITYBOX; +} +int32 FUNC_IDEDISPLAYBOX(){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data237.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +sub_pcopy( 0 , 2 ); +if(!qbevent)break;evnt(26070,15932,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 0 , 1 ); +if(!qbevent)break;evnt(26070,15933,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,15934,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEDISPLAYBOX_LONG_FOCUS= 1 ; +if(!qbevent)break;evnt(26070,15935,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26070,15936,"ide_methods.bas");}while(r); +do{ if (_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[2]&2){ error(10); @@ -179642,1639 +179642,1639 @@ if (!_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0]) error(257); } _FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[2]|=1; } -} -if(!qbevent)break;evnt(26070,15937,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(26070,15938,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEDISPLAYBOX_STRING1_SEP,func_chr( 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15939,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEDISPLAYBOX_LONG_I= 0 ; -if(!qbevent)break;evnt(26070,15943,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_UDT_P)+(8))= 60 ; -if(!qbevent)break;evnt(26070,15946,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_UDT_P)+(12))= 18 ; -if(!qbevent)break;evnt(26070,15947,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_UDT_P)+(0))=(( 80 / 2 ))-(*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_UDT_P)+(8))/ 2 ); -if(!qbevent)break;evnt(26070,15948,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_UDT_P)+(4))=(( 25 / 2 ))-(*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_UDT_P)+(12))/ 2 ); -if(!qbevent)break;evnt(26070,15949,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_UDT_P)+(16))=FUNC_IDENEWTXT(qbs_new_txt_len("Display",7)); -if(!qbevent)break;evnt(26070,15950,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A2,FUNC_STR2(__LONG_IDEWX)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15952,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEDISPLAYBOX_LONG_I=*_FUNC_IDEDISPLAYBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,15953,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEDISPLAYBOX_LONG_PREVFOCUS= 1 ; -if(!qbevent)break;evnt(26070,15954,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+36))= 1 ; -if(!qbevent)break;evnt(26070,15955,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+20))= 3 ; -if(!qbevent)break;evnt(26070,15956,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+24))= 2 ; -if(!qbevent)break;evnt(26070,15957,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+28))= 10 ; -if(!qbevent)break;evnt(26070,15958,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("Window #width",13)); -if(!qbevent)break;evnt(26070,15959,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDEDISPLAYBOX_STRING_A2); -if(!qbevent)break;evnt(26070,15960,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+81))=_FUNC_IDEDISPLAYBOX_STRING_A2->len; -if(!qbevent)break;evnt(26070,15961,"ide_methods.bas");}while(r); -S_53288:; -if ((-(*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+81))> 0 ))||new_error){ -if(qbevent){evnt(26070,15962,"ide_methods.bas");if(r)goto S_53288;} -do{ -*(int8*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+76))= -1 ; -if(!qbevent)break;evnt(26070,15963,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+77))= 0 ; -if(!qbevent)break;evnt(26070,15964,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A2,FUNC_STR2(&(pass5899=*__LONG_IDEWY+*__LONG_IDESUBWINDOW))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,15967,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEDISPLAYBOX_LONG_I=*_FUNC_IDEDISPLAYBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,15968,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+36))= 1 ; -if(!qbevent)break;evnt(26070,15969,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+20))= 2 ; -if(!qbevent)break;evnt(26070,15970,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+24))= 5 ; -if(!qbevent)break;evnt(26070,15971,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+28))= 10 ; -if(!qbevent)break;evnt(26070,15972,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("Window #height",14)); -if(!qbevent)break;evnt(26070,15973,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDEDISPLAYBOX_STRING_A2); -if(!qbevent)break;evnt(26070,15974,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+81))=_FUNC_IDEDISPLAYBOX_STRING_A2->len; -if(!qbevent)break;evnt(26070,15975,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEDISPLAYBOX_LONG_I=*_FUNC_IDEDISPLAYBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,15977,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+36))= 4 ; -if(!qbevent)break;evnt(26070,15978,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+24))= 7 ; -if(!qbevent)break;evnt(26070,15979,"ide_methods.bas");}while(r); -S_53304:; -if ((qbs_cleanup(qbs_tmp_base,(-(func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)> 0 ))|(-(func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0)> 0 ))))||new_error){ -if(qbevent){evnt(26070,15980,"ide_methods.bas");if(r)goto S_53304;} -do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Remember position + size",25)); -if(!qbevent)break;evnt(26070,15981,"ide_methods.bas");}while(r); -}else{ -do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Remember size",14)); -if(!qbevent)break;evnt(26070,15983,"ide_methods.bas");}while(r); -} -S_53309:; -if ((*__BYTE_IDE_AUTOPOSITION)||new_error){ -if(qbevent){evnt(26070,15985,"ide_methods.bas");if(r)goto S_53309;} -do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+64))= 1 ; -if(!qbevent)break;evnt(26070,15985,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEDISPLAYBOX_LONG_I=*_FUNC_IDEDISPLAYBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,15987,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEDISPLAYBOX_LONG_TMPNORMALCURSORSTART=*__LONG_IDENORMALCURSORSTART; -if(!qbevent)break;evnt(26070,15988,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+36))= 1 ; -if(!qbevent)break;evnt(26070,15989,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+20))= 33 ; -if(!qbevent)break;evnt(26070,15990,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+24))= 2 ; -if(!qbevent)break;evnt(26070,15991,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("Cursor #start",13)); -if(!qbevent)break;evnt(26070,15992,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(FUNC_STR2(__LONG_IDENORMALCURSORSTART)); -if(!qbevent)break;evnt(26070,15993,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+81))=_FUNC_IDEDISPLAYBOX_STRING_A2->len; -if(!qbevent)break;evnt(26070,15994,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEDISPLAYBOX_LONG_I=*_FUNC_IDEDISPLAYBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,15996,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEDISPLAYBOX_LONG_TMPNORMALCURSOREND=*__LONG_IDENORMALCURSOREND; -if(!qbevent)break;evnt(26070,15997,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+36))= 1 ; -if(!qbevent)break;evnt(26070,15998,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+20))= 35 ; -if(!qbevent)break;evnt(26070,15999,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+24))= 5 ; -if(!qbevent)break;evnt(26070,16000,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("Cursor #end",11)); -if(!qbevent)break;evnt(26070,16001,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(FUNC_STR2(__LONG_IDENORMALCURSOREND)); -if(!qbevent)break;evnt(26070,16002,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+81))=_FUNC_IDEDISPLAYBOX_STRING_A2->len; -if(!qbevent)break;evnt(26070,16003,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEDISPLAYBOX_LONG_I=*_FUNC_IDEDISPLAYBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,16005,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+36))= 4 ; -if(!qbevent)break;evnt(26070,16006,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+24))= 9 ; -if(!qbevent)break;evnt(26070,16007,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Use _FONT 8",12)); -if(!qbevent)break;evnt(26070,16008,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+64))=*__BYTE_IDE_USEFONT8; -if(!qbevent)break;evnt(26070,16009,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEDISPLAYBOX_LONG_PREVFONT8SETTING=*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+64)); -if(!qbevent)break;evnt(26070,16010,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEDISPLAYBOX_LONG_I=*_FUNC_IDEDISPLAYBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,16012,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+36))= 4 ; -if(!qbevent)break;evnt(26070,16013,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+24))= 10 ; -if(!qbevent)break;evnt(26070,16014,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("Use monospace #TTF font:",24)); -if(!qbevent)break;evnt(26070,16015,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+64))=*__LONG_IDECUSTOMFONT; -if(!qbevent)break;evnt(26070,16016,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEDISPLAYBOX_LONG_PREVCUSTOMFONTSETTING=*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+64)); -if(!qbevent)break;evnt(26070,16017,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A2,__STRING_IDECUSTOMFONTFILE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16019,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEDISPLAYBOX_STRING_PREVFONTFILE,_FUNC_IDEDISPLAYBOX_STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16020,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEDISPLAYBOX_LONG_I=*_FUNC_IDEDISPLAYBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,16021,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+36))= 1 ; -if(!qbevent)break;evnt(26070,16022,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+20))= 10 ; -if(!qbevent)break;evnt(26070,16023,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+24))= 12 ; -if(!qbevent)break;evnt(26070,16024,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Font file",10)); -if(!qbevent)break;evnt(26070,16025,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDEDISPLAYBOX_STRING_A2); -if(!qbevent)break;evnt(26070,16026,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+81))=_FUNC_IDEDISPLAYBOX_STRING_A2->len; -if(!qbevent)break;evnt(26070,16027,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A2,FUNC_STR2(__LONG_IDECUSTOMFONTHEIGHT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16029,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEDISPLAYBOX_STRING_PREVFONTSIZE,_FUNC_IDEDISPLAYBOX_STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16030,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEDISPLAYBOX_LONG_I=*_FUNC_IDEDISPLAYBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,16031,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+36))= 1 ; -if(!qbevent)break;evnt(26070,16032,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+20))= 10 ; -if(!qbevent)break;evnt(26070,16033,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+24))= 15 ; -if(!qbevent)break;evnt(26070,16034,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("Font size in #pixels",20)); -if(!qbevent)break;evnt(26070,16035,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDEDISPLAYBOX_STRING_A2); -if(!qbevent)break;evnt(26070,16036,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+81))=_FUNC_IDEDISPLAYBOX_STRING_A2->len; -if(!qbevent)break;evnt(26070,16037,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEDISPLAYBOX_LONG_I=*_FUNC_IDEDISPLAYBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,16039,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+36))= 3 ; -if(!qbevent)break;evnt(26070,16040,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+24))=*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_UDT_P)+(12)); -if(!qbevent)break;evnt(26070,16041,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_new_txt_len("#OK",3),_FUNC_IDEDISPLAYBOX_STRING1_SEP),qbs_new_txt_len("#Cancel",7))); -if(!qbevent)break;evnt(26070,16042,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+48))= 1 ; -if(!qbevent)break;evnt(26070,16043,"ide_methods.bas");}while(r); -S_53363:; -fornext_value5906= 1 ; -fornext_finalvalue5906= 100 ; -fornext_step5906= 1 ; -if (fornext_step5906<0) fornext_step_negative5906=1; else fornext_step_negative5906=0; -if (new_error) goto fornext_error5906; -goto fornext_entrylabel5906; -while(1){ -fornext_value5906=fornext_step5906+(*_FUNC_IDEDISPLAYBOX_LONG_I); -fornext_entrylabel5906: -*_FUNC_IDEDISPLAYBOX_LONG_I=fornext_value5906; -if (fornext_step_negative5906){ -if (fornext_value5906fornext_finalvalue5906) break; -} -fornext_error5906:; -if(qbevent){evnt(26070,16047,"ide_methods.bas");if(r)goto S_53363;} -do{ -memcpy(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89)+ 0,((char*)_FUNC_IDEDISPLAYBOX_UDT_P)+(0)+ 0, 20); -if(!qbevent)break;evnt(26070,16047,"ide_methods.bas");}while(r); -fornext_continue_5905:; -} -fornext_exit_5905:; -S_53366:; -do{ -if(qbevent){evnt(26070,16050,"ide_methods.bas");if(r)goto S_53366;} -do{ -SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDEDISPLAYBOX_UDT_P)) + (0) )); -if(!qbevent)break;evnt(26070,16054,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEDISPLAYBOX_LONG_F= 1 ; -if(!qbevent)break;evnt(26070,16055,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEDISPLAYBOX_LONG_CX= 0 ; -if(!qbevent)break;evnt(26070,16055,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEDISPLAYBOX_LONG_CY= 0 ; -if(!qbevent)break;evnt(26070,16055,"ide_methods.bas");}while(r); -S_53371:; -fornext_value5909= 1 ; -fornext_finalvalue5909= 100 ; -fornext_step5909= 1 ; -if (fornext_step5909<0) fornext_step_negative5909=1; else fornext_step_negative5909=0; -if (new_error) goto fornext_error5909; -goto fornext_entrylabel5909; -while(1){ -fornext_value5909=fornext_step5909+(*_FUNC_IDEDISPLAYBOX_LONG_I); -fornext_entrylabel5909: -*_FUNC_IDEDISPLAYBOX_LONG_I=fornext_value5909; -if (fornext_step_negative5909){ -if (fornext_value5909fornext_finalvalue5909) break; -} -fornext_error5909:; -if(qbevent){evnt(26070,16056,"ide_methods.bas");if(r)goto S_53371;} -S_53372:; -if ((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+36)))||new_error){ -if(qbevent){evnt(26070,16057,"ide_methods.bas");if(r)goto S_53372;} -do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+60))=*_FUNC_IDEDISPLAYBOX_LONG_FOCUS-*_FUNC_IDEDISPLAYBOX_LONG_F; -if(!qbevent)break;evnt(26070,16060,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+52))= 0 ; -if(!qbevent)break;evnt(26070,16061,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+56))= 0 ; -if(!qbevent)break;evnt(26070,16061,"ide_methods.bas");}while(r); -do{ -SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDEDISPLAYBOX_LONG_F); -if(!qbevent)break;evnt(26070,16062,"ide_methods.bas");}while(r); -S_53377:; -if ((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+52)))||new_error){ -if(qbevent){evnt(26070,16063,"ide_methods.bas");if(r)goto S_53377;} -do{ -*_FUNC_IDEDISPLAYBOX_LONG_CX=*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+52)); -if(!qbevent)break;evnt(26070,16063,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEDISPLAYBOX_LONG_CY=*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+56)); -if(!qbevent)break;evnt(26070,16063,"ide_methods.bas");}while(r); -} -} -fornext_continue_5908:; -} -fornext_exit_5908:; -do{ -*_FUNC_IDEDISPLAYBOX_LONG_LASTFOCUS=*_FUNC_IDEDISPLAYBOX_LONG_F- 1 ; -if(!qbevent)break;evnt(26070,16066,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(NULL,NULL,NULL,*_FUNC_IDEDISPLAYBOX_LONG_TMPNORMALCURSORSTART,*_FUNC_IDEDISPLAYBOX_LONG_TMPNORMALCURSOREND,24); -if(!qbevent)break;evnt(26070,16070,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 1 , 0 ); -if(!qbevent)break;evnt(26070,16074,"ide_methods.bas");}while(r); -S_53386:; -if ((*_FUNC_IDEDISPLAYBOX_LONG_CX)||new_error){ -if(qbevent){evnt(26070,16075,"ide_methods.bas");if(r)goto S_53386;} -do{ -qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,16075,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*_FUNC_IDEDISPLAYBOX_LONG_CY,*_FUNC_IDEDISPLAYBOX_LONG_CX, 1 ,NULL,NULL,7); -if(!qbevent)break;evnt(26070,16075,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,16075,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEDISPLAYBOX_LONG_CHANGE= 0 ; -if(!qbevent)break;evnt(26070,16078,"ide_methods.bas");}while(r); -S_53392:; -do{ -if(qbevent){evnt(26070,16079,"ide_methods.bas");if(r)goto S_53392;} -do{ -SUB_GETINPUT(); -if(!qbevent)break;evnt(26070,16080,"ide_methods.bas");}while(r); -S_53394:; -if ((*__LONG_MWHEEL)||new_error){ -if(qbevent){evnt(26070,16081,"ide_methods.bas");if(r)goto S_53394;} -do{ -*_FUNC_IDEDISPLAYBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,16081,"ide_methods.bas");}while(r); -} -S_53397:; -if ((*__LONG_KB)||new_error){ -if(qbevent){evnt(26070,16082,"ide_methods.bas");if(r)goto S_53397;} -do{ -*_FUNC_IDEDISPLAYBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,16082,"ide_methods.bas");}while(r); -} -S_53400:; -if ((*__LONG_MCLICK)||new_error){ -if(qbevent){evnt(26070,16083,"ide_methods.bas");if(r)goto S_53400;} -do{ -*_FUNC_IDEDISPLAYBOX_LONG_MOUSEDOWN= 1 ; -if(!qbevent)break;evnt(26070,16083,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEDISPLAYBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,16083,"ide_methods.bas");}while(r); -} -S_53404:; -if ((*__LONG_MRELEASE)||new_error){ -if(qbevent){evnt(26070,16084,"ide_methods.bas");if(r)goto S_53404;} -do{ -*_FUNC_IDEDISPLAYBOX_LONG_MOUSEUP= 1 ; -if(!qbevent)break;evnt(26070,16084,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEDISPLAYBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,16084,"ide_methods.bas");}while(r); -} -S_53408:; -if ((*__LONG_MB)||new_error){ -if(qbevent){evnt(26070,16085,"ide_methods.bas");if(r)goto S_53408;} -do{ -*_FUNC_IDEDISPLAYBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,16085,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEDISPLAYBOX_LONG_ALT=*__LONG_KALT; -if(!qbevent)break;evnt(26070,16086,"ide_methods.bas");}while(r); -S_53412:; -if ((-(*_FUNC_IDEDISPLAYBOX_LONG_ALT!=*_FUNC_IDEDISPLAYBOX_LONG_OLDALT))||new_error){ -if(qbevent){evnt(26070,16086,"ide_methods.bas");if(r)goto S_53412;} -do{ -*_FUNC_IDEDISPLAYBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,16086,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEDISPLAYBOX_LONG_OLDALT=*_FUNC_IDEDISPLAYBOX_LONG_ALT; -if(!qbevent)break;evnt(26070,16087,"ide_methods.bas");}while(r); -do{ -sub__limit( 100 ); -if(!qbevent)break;evnt(26070,16088,"ide_methods.bas");}while(r); -S_53417:; -dl_continue_5910:; -}while((!(*_FUNC_IDEDISPLAYBOX_LONG_CHANGE))&&(!new_error)); -dl_exit_5910:; -if(qbevent){evnt(26070,16089,"ide_methods.bas");if(r)goto S_53417;} -S_53418:; -if ((*_FUNC_IDEDISPLAYBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(26070,16090,"ide_methods.bas");if(r)goto S_53418;} -do{ -*__LONG_IDEHL= 1 ; -if(!qbevent)break;evnt(26070,16090,"ide_methods.bas");}while(r); -}else{ -do{ -*__LONG_IDEHL= 0 ; -if(!qbevent)break;evnt(26070,16090,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDEDISPLAYBOX_STRING_ALTLETTER,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16092,"ide_methods.bas");}while(r); -S_53424:; -if ((*_FUNC_IDEDISPLAYBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(26070,16093,"ide_methods.bas");if(r)goto S_53424;} -S_53425:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ -if(qbevent){evnt(26070,16094,"ide_methods.bas");if(r)goto S_53425;} -do{ -*_FUNC_IDEDISPLAYBOX_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16095,"ide_methods.bas");}while(r); -S_53427:; -if (((-(*_FUNC_IDEDISPLAYBOX_LONG_K>= 65 ))&(-(*_FUNC_IDEDISPLAYBOX_LONG_K<= 90 )))||new_error){ -if(qbevent){evnt(26070,16096,"ide_methods.bas");if(r)goto S_53427;} -do{ -qbs_set(_FUNC_IDEDISPLAYBOX_STRING_ALTLETTER,func_chr(*_FUNC_IDEDISPLAYBOX_LONG_K)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16096,"ide_methods.bas");}while(r); -} -} -} -do{ -qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,16099,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); -if(!qbevent)break;evnt(26070,16099,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,16099,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEDISPLAYBOX_LONG_INFO= 0 ; -if(!qbevent)break;evnt(26070,16103,"ide_methods.bas");}while(r); -S_53436:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,16104,"ide_methods.bas");if(r)goto S_53436;} -do{ -qbs_set(__STRING_K,func_chr( 255 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16104,"ide_methods.bas");}while(r); -} -S_53439:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ -if(qbevent){evnt(26070,16105,"ide_methods.bas");if(r)goto S_53439;} -do{ -*_FUNC_IDEDISPLAYBOX_LONG_FOCUS=*_FUNC_IDEDISPLAYBOX_LONG_FOCUS+ 1 ; -if(!qbevent)break;evnt(26070,16105,"ide_methods.bas");}while(r); -} -S_53442:; -if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||new_error){ -if(qbevent){evnt(26070,16106,"ide_methods.bas");if(r)goto S_53442;} -do{ -*_FUNC_IDEDISPLAYBOX_LONG_FOCUS=*_FUNC_IDEDISPLAYBOX_LONG_FOCUS- 1 ; -if(!qbevent)break;evnt(26070,16106,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_K,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16106,"ide_methods.bas");}while(r); -} -S_53446:; -if ((-(*_FUNC_IDEDISPLAYBOX_LONG_FOCUS< 1 ))||new_error){ -if(qbevent){evnt(26070,16107,"ide_methods.bas");if(r)goto S_53446;} -do{ -*_FUNC_IDEDISPLAYBOX_LONG_FOCUS=*_FUNC_IDEDISPLAYBOX_LONG_LASTFOCUS; -if(!qbevent)break;evnt(26070,16107,"ide_methods.bas");}while(r); -} -S_53449:; -if ((-(*_FUNC_IDEDISPLAYBOX_LONG_FOCUS>*_FUNC_IDEDISPLAYBOX_LONG_LASTFOCUS))||new_error){ -if(qbevent){evnt(26070,16108,"ide_methods.bas");if(r)goto S_53449;} -do{ -*_FUNC_IDEDISPLAYBOX_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(26070,16108,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEDISPLAYBOX_LONG_F= 1 ; -if(!qbevent)break;evnt(26070,16109,"ide_methods.bas");}while(r); -S_53453:; -fornext_value5913= 1 ; -fornext_finalvalue5913= 100 ; -fornext_step5913= 1 ; -if (fornext_step5913<0) fornext_step_negative5913=1; else fornext_step_negative5913=0; -if (new_error) goto fornext_error5913; -goto fornext_entrylabel5913; -while(1){ -fornext_value5913=fornext_step5913+(*_FUNC_IDEDISPLAYBOX_LONG_I); -fornext_entrylabel5913: -*_FUNC_IDEDISPLAYBOX_LONG_I=fornext_value5913; -if (fornext_step_negative5913){ -if (fornext_value5913fornext_finalvalue5913) break; -} -fornext_error5913:; -if(qbevent){evnt(26070,16110,"ide_methods.bas");if(r)goto S_53453;} -do{ -*_FUNC_IDEDISPLAYBOX_LONG_T=*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+36)); -if(!qbevent)break;evnt(26070,16111,"ide_methods.bas");}while(r); -S_53455:; -if ((*_FUNC_IDEDISPLAYBOX_LONG_T)||new_error){ -if(qbevent){evnt(26070,16112,"ide_methods.bas");if(r)goto S_53455;} -do{ -*_FUNC_IDEDISPLAYBOX_LONG_FOCUSOFFSET=*_FUNC_IDEDISPLAYBOX_LONG_FOCUS-*_FUNC_IDEDISPLAYBOX_LONG_F; -if(!qbevent)break;evnt(26070,16113,"ide_methods.bas");}while(r); -do{ -SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDEDISPLAYBOX_LONG_FOCUS,_FUNC_IDEDISPLAYBOX_LONG_F,_FUNC_IDEDISPLAYBOX_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDEDISPLAYBOX_STRING_ALTLETTER,__LONG_MB,_FUNC_IDEDISPLAYBOX_LONG_MOUSEDOWN,_FUNC_IDEDISPLAYBOX_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDEDISPLAYBOX_LONG_INFO,__LONG_MWHEEL); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16114,"ide_methods.bas");}while(r); -} -fornext_continue_5912:; -} -fornext_exit_5912:; -S_53460:; -if ((-(*_FUNC_IDEDISPLAYBOX_LONG_FOCUS!=*_FUNC_IDEDISPLAYBOX_LONG_PREVFOCUS))||new_error){ -if(qbevent){evnt(26070,16121,"ide_methods.bas");if(r)goto S_53460;} -do{ -*_FUNC_IDEDISPLAYBOX_LONG_PREVFOCUS=*_FUNC_IDEDISPLAYBOX_LONG_FOCUS; -if(!qbevent)break;evnt(26070,16123,"ide_methods.bas");}while(r); -S_53462:; -if ((-(*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_FOCUS)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+36))== 1 ))||new_error){ -if(qbevent){evnt(26070,16124,"ide_methods.bas");if(r)goto S_53462;} -do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_FOCUS)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_FOCUS)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; -if(!qbevent)break;evnt(26070,16125,"ide_methods.bas");}while(r); -S_53464:; -if ((-(*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_FOCUS)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+81))> 0 ))||new_error){ -if(qbevent){evnt(26070,16126,"ide_methods.bas");if(r)goto S_53464;} -do{ -*(int8*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_FOCUS)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+76))= -1 ; -if(!qbevent)break;evnt(26070,16126,"ide_methods.bas");}while(r); -} -do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_FOCUS)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+77))= 0 ; -if(!qbevent)break;evnt(26070,16127,"ide_methods.bas");}while(r); -} -} -do{ -qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16132,"ide_methods.bas");}while(r); -S_53471:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDEDISPLAYBOX_STRING_A->len> 3 )))||new_error){ -if(qbevent){evnt(26070,16133,"ide_methods.bas");if(r)goto S_53471;} -do{ -qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,qbs_left(_FUNC_IDEDISPLAYBOX_STRING_A, 3 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16133,"ide_methods.bas");}while(r); -} -S_53474:; -fornext_value5917= 1 ; -fornext_finalvalue5917=_FUNC_IDEDISPLAYBOX_STRING_A->len; -fornext_step5917= 1 ; -if (fornext_step5917<0) fornext_step_negative5917=1; else fornext_step_negative5917=0; -if (new_error) goto fornext_error5917; -goto fornext_entrylabel5917; -while(1){ -fornext_value5917=fornext_step5917+(*_FUNC_IDEDISPLAYBOX_LONG_I); -fornext_entrylabel5917: -*_FUNC_IDEDISPLAYBOX_LONG_I=fornext_value5917; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative5917){ -if (fornext_value5917fornext_finalvalue5917) break; -} -fornext_error5917:; -if(qbevent){evnt(26070,16134,"ide_methods.bas");if(r)goto S_53474;} -do{ -*_FUNC_IDEDISPLAYBOX_LONG_A=qbs_asc(_FUNC_IDEDISPLAYBOX_STRING_A,*_FUNC_IDEDISPLAYBOX_LONG_I); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16135,"ide_methods.bas");}while(r); -S_53476:; -if (((-(*_FUNC_IDEDISPLAYBOX_LONG_A< 48 ))|(-(*_FUNC_IDEDISPLAYBOX_LONG_A> 57 )))||new_error){ -if(qbevent){evnt(26070,16136,"ide_methods.bas");if(r)goto S_53476;} -do{ -qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16136,"ide_methods.bas");}while(r); -do{ -goto fornext_exit_5916; -if(!qbevent)break;evnt(26070,16136,"ide_methods.bas");}while(r); -} -S_53480:; -if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_IDEDISPLAYBOX_LONG_I== 2 ))&(-(qbs_asc(_FUNC_IDEDISPLAYBOX_STRING_A, 1 )== 48 ))))||new_error){ -if(qbevent){evnt(26070,16137,"ide_methods.bas");if(r)goto S_53480;} -do{ -qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,qbs_new_txt_len("0",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16137,"ide_methods.bas");}while(r); -do{ -goto fornext_exit_5916; -if(!qbevent)break;evnt(26070,16137,"ide_methods.bas");}while(r); -} -fornext_continue_5916:; -} -fornext_exit_5916:; -S_53485:; -if ((-(*_FUNC_IDEDISPLAYBOX_LONG_FOCUS!= 1 ))||new_error){ -if(qbevent){evnt(26070,16139,"ide_methods.bas");if(r)goto S_53485;} -S_53486:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDEDISPLAYBOX_STRING_A->len))||new_error){ -if(qbevent){evnt(26070,16140,"ide_methods.bas");if(r)goto S_53486;} -do{ -*_FUNC_IDEDISPLAYBOX_LONG_A=qbr(func_val(_FUNC_IDEDISPLAYBOX_STRING_A)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16140,"ide_methods.bas");}while(r); -}else{ -do{ -*_FUNC_IDEDISPLAYBOX_LONG_A= 0 ; -if(!qbevent)break;evnt(26070,16140,"ide_methods.bas");}while(r); -} -S_53491:; -if ((-(*_FUNC_IDEDISPLAYBOX_LONG_A< 80 ))||new_error){ -if(qbevent){evnt(26070,16141,"ide_methods.bas");if(r)goto S_53491;} -do{ -qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,qbs_new_txt_len("80",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16141,"ide_methods.bas");}while(r); -} -} -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDEDISPLAYBOX_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16143,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16146,"ide_methods.bas");}while(r); -S_53497:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDEDISPLAYBOX_STRING_A->len> 3 )))||new_error){ -if(qbevent){evnt(26070,16147,"ide_methods.bas");if(r)goto S_53497;} -do{ -qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,qbs_left(_FUNC_IDEDISPLAYBOX_STRING_A, 3 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16147,"ide_methods.bas");}while(r); -} -S_53500:; -fornext_value5922= 1 ; -fornext_finalvalue5922=_FUNC_IDEDISPLAYBOX_STRING_A->len; -fornext_step5922= 1 ; -if (fornext_step5922<0) fornext_step_negative5922=1; else fornext_step_negative5922=0; -if (new_error) goto fornext_error5922; -goto fornext_entrylabel5922; -while(1){ -fornext_value5922=fornext_step5922+(*_FUNC_IDEDISPLAYBOX_LONG_I); -fornext_entrylabel5922: -*_FUNC_IDEDISPLAYBOX_LONG_I=fornext_value5922; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative5922){ -if (fornext_value5922fornext_finalvalue5922) break; -} -fornext_error5922:; -if(qbevent){evnt(26070,16148,"ide_methods.bas");if(r)goto S_53500;} -do{ -*_FUNC_IDEDISPLAYBOX_LONG_A=qbs_asc(_FUNC_IDEDISPLAYBOX_STRING_A,*_FUNC_IDEDISPLAYBOX_LONG_I); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16149,"ide_methods.bas");}while(r); -S_53502:; -if (((-(*_FUNC_IDEDISPLAYBOX_LONG_A< 48 ))|(-(*_FUNC_IDEDISPLAYBOX_LONG_A> 57 )))||new_error){ -if(qbevent){evnt(26070,16150,"ide_methods.bas");if(r)goto S_53502;} -do{ -qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16150,"ide_methods.bas");}while(r); -do{ -goto fornext_exit_5921; -if(!qbevent)break;evnt(26070,16150,"ide_methods.bas");}while(r); -} -S_53506:; -if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_IDEDISPLAYBOX_LONG_I== 2 ))&(-(qbs_asc(_FUNC_IDEDISPLAYBOX_STRING_A, 1 )== 48 ))))||new_error){ -if(qbevent){evnt(26070,16151,"ide_methods.bas");if(r)goto S_53506;} -do{ -qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,qbs_new_txt_len("0",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16151,"ide_methods.bas");}while(r); -do{ -goto fornext_exit_5921; -if(!qbevent)break;evnt(26070,16151,"ide_methods.bas");}while(r); -} -fornext_continue_5921:; -} -fornext_exit_5921:; -S_53511:; -if ((-(*_FUNC_IDEDISPLAYBOX_LONG_FOCUS!= 2 ))||new_error){ -if(qbevent){evnt(26070,16153,"ide_methods.bas");if(r)goto S_53511;} -S_53512:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDEDISPLAYBOX_STRING_A->len))||new_error){ -if(qbevent){evnt(26070,16154,"ide_methods.bas");if(r)goto S_53512;} -do{ -*_FUNC_IDEDISPLAYBOX_LONG_A=qbr(func_val(_FUNC_IDEDISPLAYBOX_STRING_A)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16154,"ide_methods.bas");}while(r); -}else{ -do{ -*_FUNC_IDEDISPLAYBOX_LONG_A= 0 ; -if(!qbevent)break;evnt(26070,16154,"ide_methods.bas");}while(r); -} -S_53517:; -if ((-(*_FUNC_IDEDISPLAYBOX_LONG_A< 25 ))||new_error){ -if(qbevent){evnt(26070,16155,"ide_methods.bas");if(r)goto S_53517;} -do{ -qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,qbs_new_txt_len("25",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16155,"ide_methods.bas");}while(r); -} -} -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDEDISPLAYBOX_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16157,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 4 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16160,"ide_methods.bas");}while(r); -S_53523:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDEDISPLAYBOX_STRING_A->len> 2 )))||new_error){ -if(qbevent){evnt(26070,16161,"ide_methods.bas");if(r)goto S_53523;} -do{ -qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,qbs_left(_FUNC_IDEDISPLAYBOX_STRING_A, 2 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16161,"ide_methods.bas");}while(r); -} -S_53526:; -fornext_value5927= 1 ; -fornext_finalvalue5927=_FUNC_IDEDISPLAYBOX_STRING_A->len; -fornext_step5927= 1 ; -if (fornext_step5927<0) fornext_step_negative5927=1; else fornext_step_negative5927=0; -if (new_error) goto fornext_error5927; -goto fornext_entrylabel5927; -while(1){ -fornext_value5927=fornext_step5927+(*_FUNC_IDEDISPLAYBOX_LONG_I); -fornext_entrylabel5927: -*_FUNC_IDEDISPLAYBOX_LONG_I=fornext_value5927; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative5927){ -if (fornext_value5927fornext_finalvalue5927) break; -} -fornext_error5927:; -if(qbevent){evnt(26070,16162,"ide_methods.bas");if(r)goto S_53526;} -do{ -*_FUNC_IDEDISPLAYBOX_LONG_A=qbs_asc(_FUNC_IDEDISPLAYBOX_STRING_A,*_FUNC_IDEDISPLAYBOX_LONG_I); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16163,"ide_methods.bas");}while(r); -S_53528:; -if (((-(*_FUNC_IDEDISPLAYBOX_LONG_A< 48 ))|(-(*_FUNC_IDEDISPLAYBOX_LONG_A> 57 )))||new_error){ -if(qbevent){evnt(26070,16164,"ide_methods.bas");if(r)goto S_53528;} -do{ -qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16164,"ide_methods.bas");}while(r); -do{ -goto fornext_exit_5926; -if(!qbevent)break;evnt(26070,16164,"ide_methods.bas");}while(r); -} -S_53532:; -if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_IDEDISPLAYBOX_LONG_I== 2 ))&(-(qbs_asc(_FUNC_IDEDISPLAYBOX_STRING_A, 1 )== 48 ))))||new_error){ -if(qbevent){evnt(26070,16165,"ide_methods.bas");if(r)goto S_53532;} -do{ -qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,qbs_new_txt_len("0",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16165,"ide_methods.bas");}while(r); -do{ -goto fornext_exit_5926; -if(!qbevent)break;evnt(26070,16165,"ide_methods.bas");}while(r); -} -fornext_continue_5926:; -} -fornext_exit_5926:; -S_53537:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDEDISPLAYBOX_STRING_A->len))||new_error){ -if(qbevent){evnt(26070,16167,"ide_methods.bas");if(r)goto S_53537;} -do{ -*_FUNC_IDEDISPLAYBOX_LONG_A=qbr(func_val(_FUNC_IDEDISPLAYBOX_STRING_A)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16167,"ide_methods.bas");}while(r); -}else{ -do{ -*_FUNC_IDEDISPLAYBOX_LONG_A= 0 ; -if(!qbevent)break;evnt(26070,16167,"ide_methods.bas");}while(r); -} -S_53542:; -if ((-(*_FUNC_IDEDISPLAYBOX_LONG_FOCUS!= 4 ))||new_error){ -if(qbevent){evnt(26070,16168,"ide_methods.bas");if(r)goto S_53542;} -S_53543:; -if ((-(*_FUNC_IDEDISPLAYBOX_LONG_A< 0 ))||new_error){ -if(qbevent){evnt(26070,16169,"ide_methods.bas");if(r)goto S_53543;} -do{ -qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,qbs_new_txt_len("0",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16169,"ide_methods.bas");}while(r); -} -S_53546:; -if ((-(*_FUNC_IDEDISPLAYBOX_LONG_A> 31 ))||new_error){ -if(qbevent){evnt(26070,16170,"ide_methods.bas");if(r)goto S_53546;} -do{ -qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,qbs_new_txt_len("31",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16170,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEDISPLAYBOX_LONG_TMPNORMALCURSORSTART=qbr(func_val(_FUNC_IDEDISPLAYBOX_STRING_A)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16171,"ide_methods.bas");}while(r); -}else{ -S_53551:; -if ((-(*_FUNC_IDEDISPLAYBOX_LONG_A< 0 ))||new_error){ -if(qbevent){evnt(26070,16173,"ide_methods.bas");if(r)goto S_53551;} -do{ -*_FUNC_IDEDISPLAYBOX_LONG_A= 0 ; -if(!qbevent)break;evnt(26070,16173,"ide_methods.bas");}while(r); -} -S_53554:; -if ((-(*_FUNC_IDEDISPLAYBOX_LONG_A> 31 ))||new_error){ -if(qbevent){evnt(26070,16174,"ide_methods.bas");if(r)goto S_53554;} -do{ -*_FUNC_IDEDISPLAYBOX_LONG_A= 31 ; -if(!qbevent)break;evnt(26070,16174,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEDISPLAYBOX_LONG_TMPNORMALCURSORSTART=*_FUNC_IDEDISPLAYBOX_LONG_A; -if(!qbevent)break;evnt(26070,16175,"ide_methods.bas");}while(r); -} -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 4 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDEDISPLAYBOX_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16177,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 5 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16180,"ide_methods.bas");}while(r); -S_53561:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDEDISPLAYBOX_STRING_A->len> 2 )))||new_error){ -if(qbevent){evnt(26070,16181,"ide_methods.bas");if(r)goto S_53561;} -do{ -qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,qbs_left(_FUNC_IDEDISPLAYBOX_STRING_A, 2 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16181,"ide_methods.bas");}while(r); -} -S_53564:; -fornext_value5932= 1 ; -fornext_finalvalue5932=_FUNC_IDEDISPLAYBOX_STRING_A->len; -fornext_step5932= 1 ; -if (fornext_step5932<0) fornext_step_negative5932=1; else fornext_step_negative5932=0; -if (new_error) goto fornext_error5932; -goto fornext_entrylabel5932; -while(1){ -fornext_value5932=fornext_step5932+(*_FUNC_IDEDISPLAYBOX_LONG_I); -fornext_entrylabel5932: -*_FUNC_IDEDISPLAYBOX_LONG_I=fornext_value5932; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative5932){ -if (fornext_value5932fornext_finalvalue5932) break; -} -fornext_error5932:; -if(qbevent){evnt(26070,16182,"ide_methods.bas");if(r)goto S_53564;} -do{ -*_FUNC_IDEDISPLAYBOX_LONG_A=qbs_asc(_FUNC_IDEDISPLAYBOX_STRING_A,*_FUNC_IDEDISPLAYBOX_LONG_I); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16183,"ide_methods.bas");}while(r); -S_53566:; -if (((-(*_FUNC_IDEDISPLAYBOX_LONG_A< 48 ))|(-(*_FUNC_IDEDISPLAYBOX_LONG_A> 57 )))||new_error){ -if(qbevent){evnt(26070,16184,"ide_methods.bas");if(r)goto S_53566;} -do{ -qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16184,"ide_methods.bas");}while(r); -do{ -goto fornext_exit_5931; -if(!qbevent)break;evnt(26070,16184,"ide_methods.bas");}while(r); -} -S_53570:; -if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_IDEDISPLAYBOX_LONG_I== 2 ))&(-(qbs_asc(_FUNC_IDEDISPLAYBOX_STRING_A, 1 )== 48 ))))||new_error){ -if(qbevent){evnt(26070,16185,"ide_methods.bas");if(r)goto S_53570;} -do{ -qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,qbs_new_txt_len("0",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16185,"ide_methods.bas");}while(r); -do{ -goto fornext_exit_5931; -if(!qbevent)break;evnt(26070,16185,"ide_methods.bas");}while(r); -} -fornext_continue_5931:; -} -fornext_exit_5931:; -S_53575:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDEDISPLAYBOX_STRING_A->len))||new_error){ -if(qbevent){evnt(26070,16187,"ide_methods.bas");if(r)goto S_53575;} -do{ -*_FUNC_IDEDISPLAYBOX_LONG_A=qbr(func_val(_FUNC_IDEDISPLAYBOX_STRING_A)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16187,"ide_methods.bas");}while(r); -}else{ -do{ -*_FUNC_IDEDISPLAYBOX_LONG_A= 0 ; -if(!qbevent)break;evnt(26070,16187,"ide_methods.bas");}while(r); -} -S_53580:; -if ((-(*_FUNC_IDEDISPLAYBOX_LONG_FOCUS!= 5 ))||new_error){ -if(qbevent){evnt(26070,16188,"ide_methods.bas");if(r)goto S_53580;} -S_53581:; -if ((-(*_FUNC_IDEDISPLAYBOX_LONG_A< 0 ))||new_error){ -if(qbevent){evnt(26070,16189,"ide_methods.bas");if(r)goto S_53581;} -do{ -qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,qbs_new_txt_len("0",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16189,"ide_methods.bas");}while(r); -} -S_53584:; -if ((-(*_FUNC_IDEDISPLAYBOX_LONG_A> 31 ))||new_error){ -if(qbevent){evnt(26070,16190,"ide_methods.bas");if(r)goto S_53584;} -do{ -qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,qbs_new_txt_len("31",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16190,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEDISPLAYBOX_LONG_TMPNORMALCURSOREND=qbr(func_val(_FUNC_IDEDISPLAYBOX_STRING_A)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16191,"ide_methods.bas");}while(r); -}else{ -S_53589:; -if ((-(*_FUNC_IDEDISPLAYBOX_LONG_A< 0 ))||new_error){ -if(qbevent){evnt(26070,16193,"ide_methods.bas");if(r)goto S_53589;} -do{ -*_FUNC_IDEDISPLAYBOX_LONG_A= 0 ; -if(!qbevent)break;evnt(26070,16193,"ide_methods.bas");}while(r); -} -S_53592:; -if ((-(*_FUNC_IDEDISPLAYBOX_LONG_A> 31 ))||new_error){ -if(qbevent){evnt(26070,16194,"ide_methods.bas");if(r)goto S_53592;} -do{ -*_FUNC_IDEDISPLAYBOX_LONG_A= 31 ; -if(!qbevent)break;evnt(26070,16194,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEDISPLAYBOX_LONG_TMPNORMALCURSOREND=*_FUNC_IDEDISPLAYBOX_LONG_A; -if(!qbevent)break;evnt(26070,16195,"ide_methods.bas");}while(r); -} -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 5 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDEDISPLAYBOX_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16197,"ide_methods.bas");}while(r); -S_53598:; -if ((-(*_FUNC_IDEDISPLAYBOX_LONG_PREVFONT8SETTING!=*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 6 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+64))))||new_error){ -if(qbevent){evnt(26070,16199,"ide_methods.bas");if(r)goto S_53598;} -do{ -*_FUNC_IDEDISPLAYBOX_LONG_PREVFONT8SETTING=*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 6 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+64)); -if(!qbevent)break;evnt(26070,16200,"ide_methods.bas");}while(r); -S_53600:; -if ((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 6 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+64)))||new_error){ -if(qbevent){evnt(26070,16201,"ide_methods.bas");if(r)goto S_53600;} -do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 7 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+64))= 0 ; -if(!qbevent)break;evnt(26070,16201,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEDISPLAYBOX_LONG_PREVCUSTOMFONTSETTING= 0 ; -if(!qbevent)break;evnt(26070,16201,"ide_methods.bas");}while(r); -} -} -S_53605:; -if ((-(*_FUNC_IDEDISPLAYBOX_LONG_PREVCUSTOMFONTSETTING!=*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 7 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+64))))||new_error){ -if(qbevent){evnt(26070,16204,"ide_methods.bas");if(r)goto S_53605;} -do{ -*_FUNC_IDEDISPLAYBOX_LONG_PREVCUSTOMFONTSETTING=*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 7 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+64)); -if(!qbevent)break;evnt(26070,16205,"ide_methods.bas");}while(r); -S_53607:; -if ((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 7 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+64)))||new_error){ -if(qbevent){evnt(26070,16206,"ide_methods.bas");if(r)goto S_53607;} -do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 6 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+64))= 0 ; -if(!qbevent)break;evnt(26070,16206,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEDISPLAYBOX_LONG_PREVFONT8SETTING= 0 ; -if(!qbevent)break;evnt(26070,16206,"ide_methods.bas");}while(r); -} -} -do{ -qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 8 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16209,"ide_methods.bas");}while(r); -S_53613:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDEDISPLAYBOX_STRING_A->len> 1024 )))||new_error){ -if(qbevent){evnt(26070,16210,"ide_methods.bas");if(r)goto S_53613;} -do{ -qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,qbs_left(_FUNC_IDEDISPLAYBOX_STRING_A, 1024 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16210,"ide_methods.bas");}while(r); -} -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 8 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDEDISPLAYBOX_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16211,"ide_methods.bas");}while(r); -S_53617:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_IDEDISPLAYBOX_STRING_A,_FUNC_IDEDISPLAYBOX_STRING_PREVFONTFILE)))||new_error){ -if(qbevent){evnt(26070,16212,"ide_methods.bas");if(r)goto S_53617;} -do{ -qbs_set(_FUNC_IDEDISPLAYBOX_STRING_PREVFONTFILE,_FUNC_IDEDISPLAYBOX_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16213,"ide_methods.bas");}while(r); -S_53619:; -if ((-(*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 7 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+64))== 0 ))||new_error){ -if(qbevent){evnt(26070,16214,"ide_methods.bas");if(r)goto S_53619;} -do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 6 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+64))= 0 ; -if(!qbevent)break;evnt(26070,16215,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEDISPLAYBOX_LONG_PREVFONT8SETTING= 0 ; -if(!qbevent)break;evnt(26070,16215,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 7 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+64))= 1 ; -if(!qbevent)break;evnt(26070,16216,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEDISPLAYBOX_LONG_PREVCUSTOMFONTSETTING= 1 ; -if(!qbevent)break;evnt(26070,16216,"ide_methods.bas");}while(r); -} -} -do{ -qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16220,"ide_methods.bas");}while(r); -S_53627:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDEDISPLAYBOX_STRING_A->len> 2 )))||new_error){ -if(qbevent){evnt(26070,16221,"ide_methods.bas");if(r)goto S_53627;} -do{ -qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,qbs_left(_FUNC_IDEDISPLAYBOX_STRING_A, 2 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16221,"ide_methods.bas");}while(r); -} -S_53630:; -fornext_value5938= 1 ; -fornext_finalvalue5938=_FUNC_IDEDISPLAYBOX_STRING_A->len; -fornext_step5938= 1 ; -if (fornext_step5938<0) fornext_step_negative5938=1; else fornext_step_negative5938=0; -if (new_error) goto fornext_error5938; -goto fornext_entrylabel5938; -while(1){ -fornext_value5938=fornext_step5938+(*_FUNC_IDEDISPLAYBOX_LONG_I); -fornext_entrylabel5938: -*_FUNC_IDEDISPLAYBOX_LONG_I=fornext_value5938; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative5938){ -if (fornext_value5938fornext_finalvalue5938) break; -} -fornext_error5938:; -if(qbevent){evnt(26070,16222,"ide_methods.bas");if(r)goto S_53630;} -do{ -*_FUNC_IDEDISPLAYBOX_LONG_A=qbs_asc(_FUNC_IDEDISPLAYBOX_STRING_A,*_FUNC_IDEDISPLAYBOX_LONG_I); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16223,"ide_methods.bas");}while(r); -S_53632:; -if (((-(*_FUNC_IDEDISPLAYBOX_LONG_A< 48 ))|(-(*_FUNC_IDEDISPLAYBOX_LONG_A> 57 )))||new_error){ -if(qbevent){evnt(26070,16224,"ide_methods.bas");if(r)goto S_53632;} -do{ -qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16224,"ide_methods.bas");}while(r); -do{ -goto fornext_exit_5937; -if(!qbevent)break;evnt(26070,16224,"ide_methods.bas");}while(r); -} -S_53636:; -if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_IDEDISPLAYBOX_LONG_I== 2 ))&(-(qbs_asc(_FUNC_IDEDISPLAYBOX_STRING_A, 1 )== 48 ))))||new_error){ -if(qbevent){evnt(26070,16225,"ide_methods.bas");if(r)goto S_53636;} -do{ -qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,qbs_new_txt_len("0",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16225,"ide_methods.bas");}while(r); -do{ -goto fornext_exit_5937; -if(!qbevent)break;evnt(26070,16225,"ide_methods.bas");}while(r); -} -fornext_continue_5937:; -} -fornext_exit_5937:; -S_53641:; -if ((-(*_FUNC_IDEDISPLAYBOX_LONG_FOCUS!= 9 ))||new_error){ -if(qbevent){evnt(26070,16227,"ide_methods.bas");if(r)goto S_53641;} -S_53642:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDEDISPLAYBOX_STRING_A->len))||new_error){ -if(qbevent){evnt(26070,16228,"ide_methods.bas");if(r)goto S_53642;} -do{ -*_FUNC_IDEDISPLAYBOX_LONG_A=qbr(func_val(_FUNC_IDEDISPLAYBOX_STRING_A)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16228,"ide_methods.bas");}while(r); -}else{ -do{ -*_FUNC_IDEDISPLAYBOX_LONG_A= 0 ; -if(!qbevent)break;evnt(26070,16228,"ide_methods.bas");}while(r); -} -S_53647:; -if ((-(*_FUNC_IDEDISPLAYBOX_LONG_A< 8 ))||new_error){ -if(qbevent){evnt(26070,16229,"ide_methods.bas");if(r)goto S_53647;} -do{ -qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,qbs_new_txt_len("8",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16229,"ide_methods.bas");}while(r); -} -} -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDEDISPLAYBOX_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16231,"ide_methods.bas");}while(r); -S_53652:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_IDEDISPLAYBOX_STRING_A,_FUNC_IDEDISPLAYBOX_STRING_PREVFONTSIZE)))||new_error){ -if(qbevent){evnt(26070,16232,"ide_methods.bas");if(r)goto S_53652;} -do{ -qbs_set(_FUNC_IDEDISPLAYBOX_STRING_PREVFONTSIZE,_FUNC_IDEDISPLAYBOX_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16233,"ide_methods.bas");}while(r); -S_53654:; -if ((-(*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 7 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+64))== 0 ))||new_error){ -if(qbevent){evnt(26070,16234,"ide_methods.bas");if(r)goto S_53654;} -do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 6 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+64))= 0 ; -if(!qbevent)break;evnt(26070,16235,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEDISPLAYBOX_LONG_PREVFONT8SETTING= 0 ; -if(!qbevent)break;evnt(26070,16235,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 7 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+64))= 1 ; -if(!qbevent)break;evnt(26070,16236,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEDISPLAYBOX_LONG_PREVCUSTOMFONTSETTING= 1 ; -if(!qbevent)break;evnt(26070,16236,"ide_methods.bas");}while(r); -} -} -S_53661:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 27 )))|(((-(*_FUNC_IDEDISPLAYBOX_LONG_FOCUS== 11 ))&(-(*_FUNC_IDEDISPLAYBOX_LONG_INFO!= 0 ))))))||new_error){ -if(qbevent){evnt(26070,16241,"ide_methods.bas");if(r)goto S_53661;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,16241,"ide_methods.bas");}while(r); -} -S_53664:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 13 )))|(((-(*_FUNC_IDEDISPLAYBOX_LONG_FOCUS== 10 ))&(-(*_FUNC_IDEDISPLAYBOX_LONG_INFO!= 0 ))))))||new_error){ -if(qbevent){evnt(26070,16242,"ide_methods.bas");if(r)goto S_53664;} -do{ -*_FUNC_IDEDISPLAYBOX_LONG_X= 0 ; -if(!qbevent)break;evnt(26070,16244,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEDISPLAYBOX_STRING_V,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16247,"ide_methods.bas");}while(r); -S_53667:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEDISPLAYBOX_STRING_V,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,16247,"ide_methods.bas");if(r)goto S_53667;} -do{ -qbs_set(_FUNC_IDEDISPLAYBOX_STRING_V,qbs_new_txt_len("0",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16247,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEDISPLAYBOX_INTEGER_V=qbr_float_to_long(func_val(_FUNC_IDEDISPLAYBOX_STRING_V)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16248,"ide_methods.bas");}while(r); -S_53671:; -if ((-(*_FUNC_IDEDISPLAYBOX_INTEGER_V< 8 ))||new_error){ -if(qbevent){evnt(26070,16249,"ide_methods.bas");if(r)goto S_53671;} -do{ -*_FUNC_IDEDISPLAYBOX_INTEGER_V= 8 ; -if(!qbevent)break;evnt(26070,16249,"ide_methods.bas");}while(r); -} -S_53674:; -if ((-(*_FUNC_IDEDISPLAYBOX_INTEGER_V> 99 ))||new_error){ -if(qbevent){evnt(26070,16250,"ide_methods.bas");if(r)goto S_53674;} -do{ -*_FUNC_IDEDISPLAYBOX_INTEGER_V= 99 ; -if(!qbevent)break;evnt(26070,16250,"ide_methods.bas");}while(r); -} -S_53677:; -if ((-(*_FUNC_IDEDISPLAYBOX_INTEGER_V!=*__LONG_IDECUSTOMFONTHEIGHT))||new_error){ -if(qbevent){evnt(26070,16251,"ide_methods.bas");if(r)goto S_53677;} -do{ -*_FUNC_IDEDISPLAYBOX_LONG_X= 1 ; -if(!qbevent)break;evnt(26070,16251,"ide_methods.bas");}while(r); -} -S_53680:; -if ((-(*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 6 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+64))!=*__BYTE_IDE_USEFONT8))||new_error){ -if(qbevent){evnt(26070,16253,"ide_methods.bas");if(r)goto S_53680;} -do{ -*__BYTE_IDE_USEFONT8=*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 6 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+64)); -if(!qbevent)break;evnt(26070,16254,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEDISPLAYBOX_LONG_IDEDISPLAYBOX= 1 ; -if(!qbevent)break;evnt(26070,16255,"ide_methods.bas");}while(r); -} -S_53684:; -if ((-(*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 7 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+64))!=*__LONG_IDECUSTOMFONT))||new_error){ -if(qbevent){evnt(26070,16258,"ide_methods.bas");if(r)goto S_53684;} -S_53685:; -if ((-(*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 7 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+64))== 0 ))||new_error){ -if(qbevent){evnt(26070,16259,"ide_methods.bas");if(r)goto S_53685;} -S_53686:; -if ((*__BYTE_IDE_USEFONT8)||new_error){ -if(qbevent){evnt(26070,16260,"ide_methods.bas");if(r)goto S_53686;} -do{ -sub__font( 8 ,NULL,0); -if(!qbevent)break;evnt(26070,16260,"ide_methods.bas");}while(r); -}else{ -do{ -sub__font( 16 ,NULL,0); -if(!qbevent)break;evnt(26070,16260,"ide_methods.bas");}while(r); -} -do{ -sub__freefont(*__LONG_IDECUSTOMFONTHANDLE); -if(!qbevent)break;evnt(26070,16261,"ide_methods.bas");}while(r); -}else{ -do{ -*_FUNC_IDEDISPLAYBOX_LONG_X= 1 ; -if(!qbevent)break;evnt(26070,16263,"ide_methods.bas");}while(r); -} -} -do{ -qbs_set(_FUNC_IDEDISPLAYBOX_STRING_V,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 8 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16268,"ide_methods.bas");}while(r); -S_53697:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_IDEDISPLAYBOX_STRING_V,__STRING_IDECUSTOMFONTFILE)))||new_error){ -if(qbevent){evnt(26070,16268,"ide_methods.bas");if(r)goto S_53697;} -do{ -*_FUNC_IDEDISPLAYBOX_LONG_X= 1 ; -if(!qbevent)break;evnt(26070,16268,"ide_methods.bas");}while(r); -} -S_53700:; -if (((-(*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 7 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+64))== 1 ))&(-(*_FUNC_IDEDISPLAYBOX_LONG_X== 1 )))||new_error){ -if(qbevent){evnt(26070,16270,"ide_methods.bas");if(r)goto S_53700;} -do{ -*_FUNC_IDEDISPLAYBOX_LONG_OLDHANDLE=*__LONG_IDECUSTOMFONTHANDLE; -if(!qbevent)break;evnt(26070,16271,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECUSTOMFONTHANDLE=func__loadfont(_FUNC_IDEDISPLAYBOX_STRING_V,*_FUNC_IDEDISPLAYBOX_INTEGER_V,qbs_new_txt_len("MONOSPACE",9),0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16272,"ide_methods.bas");}while(r); -S_53703:; -if ((-(*__LONG_IDECUSTOMFONTHANDLE== -1 ))||new_error){ -if(qbevent){evnt(26070,16273,"ide_methods.bas");if(r)goto S_53703;} -do{ -*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 7 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+64))= 0 ; -if(!qbevent)break;evnt(26070,16275,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 8 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),qbs_new_txt_len("C:\\Windows\\Fonts\\lucon.ttf",26)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16275,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),qbs_new_txt_len("21",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16275,"ide_methods.bas");}while(r); -S_53707:; -if ((*__BYTE_IDE_USEFONT8)||new_error){ -if(qbevent){evnt(26070,16275,"ide_methods.bas");if(r)goto S_53707;} -do{ -sub__font( 8 ,NULL,0); -if(!qbevent)break;evnt(26070,16275,"ide_methods.bas");}while(r); -}else{ -do{ -sub__font( 16 ,NULL,0); -if(!qbevent)break;evnt(26070,16275,"ide_methods.bas");}while(r); -} -}else{ -do{ -sub__font(*__LONG_IDECUSTOMFONTHANDLE,NULL,0); -if(!qbevent)break;evnt(26070,16277,"ide_methods.bas");}while(r); -} -S_53715:; -if ((-(*__LONG_IDECUSTOMFONT== 1 ))||new_error){ -if(qbevent){evnt(26070,16279,"ide_methods.bas");if(r)goto S_53715;} -do{ -sub__freefont(*_FUNC_IDEDISPLAYBOX_LONG_OLDHANDLE); -if(!qbevent)break;evnt(26070,16279,"ide_methods.bas");}while(r); -} -} -do{ -qbs_set(_FUNC_IDEDISPLAYBOX_STRING_V,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16283,"ide_methods.bas");}while(r); -S_53720:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEDISPLAYBOX_STRING_V,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,16283,"ide_methods.bas");if(r)goto S_53720;} -do{ -qbs_set(_FUNC_IDEDISPLAYBOX_STRING_V,qbs_new_txt_len("0",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16283,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEDISPLAYBOX_INTEGER_V=qbr_float_to_long(func_val(_FUNC_IDEDISPLAYBOX_STRING_V)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16284,"ide_methods.bas");}while(r); -S_53724:; -if ((-(*_FUNC_IDEDISPLAYBOX_INTEGER_V< 80 ))||new_error){ -if(qbevent){evnt(26070,16285,"ide_methods.bas");if(r)goto S_53724;} -do{ -*_FUNC_IDEDISPLAYBOX_INTEGER_V= 80 ; -if(!qbevent)break;evnt(26070,16285,"ide_methods.bas");}while(r); -} -S_53727:; -if ((-(*_FUNC_IDEDISPLAYBOX_INTEGER_V> 999 ))||new_error){ -if(qbevent){evnt(26070,16286,"ide_methods.bas");if(r)goto S_53727;} -do{ -*_FUNC_IDEDISPLAYBOX_INTEGER_V= 999 ; -if(!qbevent)break;evnt(26070,16286,"ide_methods.bas");}while(r); -} -S_53730:; -if ((-(*_FUNC_IDEDISPLAYBOX_INTEGER_V!=*__LONG_IDEWX))||new_error){ -if(qbevent){evnt(26070,16287,"ide_methods.bas");if(r)goto S_53730;} -do{ -*_FUNC_IDEDISPLAYBOX_LONG_IDEDISPLAYBOX= 1 ; -if(!qbevent)break;evnt(26070,16287,"ide_methods.bas");}while(r); -} -do{ -*__LONG_IDEWX=*_FUNC_IDEDISPLAYBOX_INTEGER_V; -if(!qbevent)break;evnt(26070,16288,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEDISPLAYBOX_STRING_V,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16291,"ide_methods.bas");}while(r); -S_53735:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEDISPLAYBOX_STRING_V,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,16291,"ide_methods.bas");if(r)goto S_53735;} -do{ -qbs_set(_FUNC_IDEDISPLAYBOX_STRING_V,qbs_new_txt_len("0",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16291,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEDISPLAYBOX_INTEGER_V=qbr_float_to_long(func_val(_FUNC_IDEDISPLAYBOX_STRING_V)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16292,"ide_methods.bas");}while(r); -S_53739:; -if ((-(*_FUNC_IDEDISPLAYBOX_INTEGER_V< 25 ))||new_error){ -if(qbevent){evnt(26070,16293,"ide_methods.bas");if(r)goto S_53739;} -do{ -*_FUNC_IDEDISPLAYBOX_INTEGER_V= 25 ; -if(!qbevent)break;evnt(26070,16293,"ide_methods.bas");}while(r); -} -S_53742:; -if ((-(*_FUNC_IDEDISPLAYBOX_INTEGER_V> 999 ))||new_error){ -if(qbevent){evnt(26070,16294,"ide_methods.bas");if(r)goto S_53742;} -do{ -*_FUNC_IDEDISPLAYBOX_INTEGER_V= 999 ; -if(!qbevent)break;evnt(26070,16294,"ide_methods.bas");}while(r); -} -S_53745:; -if ((-(*_FUNC_IDEDISPLAYBOX_INTEGER_V!=*__LONG_IDEWY))||new_error){ -if(qbevent){evnt(26070,16295,"ide_methods.bas");if(r)goto S_53745;} -do{ -*_FUNC_IDEDISPLAYBOX_LONG_IDEDISPLAYBOX= 1 ; -if(!qbevent)break;evnt(26070,16295,"ide_methods.bas");}while(r); -} -do{ -*__LONG_IDEWY=*_FUNC_IDEDISPLAYBOX_INTEGER_V-*__LONG_IDESUBWINDOW; -if(!qbevent)break;evnt(26070,16296,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEDISPLAYBOX_INTEGER_V=*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+64)); -if(!qbevent)break;evnt(26070,16298,"ide_methods.bas");}while(r); -S_53750:; -if ((-(*_FUNC_IDEDISPLAYBOX_INTEGER_V!= 0 ))||new_error){ -if(qbevent){evnt(26070,16299,"ide_methods.bas");if(r)goto S_53750;} -do{ -*_FUNC_IDEDISPLAYBOX_INTEGER_V= -1 ; -if(!qbevent)break;evnt(26070,16299,"ide_methods.bas");}while(r); -} -do{ -*__BYTE_IDE_AUTOPOSITION=*_FUNC_IDEDISPLAYBOX_INTEGER_V; -if(!qbevent)break;evnt(26070,16300,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEDISPLAYBOX_INTEGER_V=*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 7 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+64)); -if(!qbevent)break;evnt(26070,16302,"ide_methods.bas");}while(r); -S_53755:; -if ((-(*_FUNC_IDEDISPLAYBOX_INTEGER_V!= 0 ))||new_error){ -if(qbevent){evnt(26070,16303,"ide_methods.bas");if(r)goto S_53755;} -do{ -*_FUNC_IDEDISPLAYBOX_INTEGER_V= 1 ; -if(!qbevent)break;evnt(26070,16303,"ide_methods.bas");}while(r); -} -do{ -*__LONG_IDECUSTOMFONT=*_FUNC_IDEDISPLAYBOX_INTEGER_V; -if(!qbevent)break;evnt(26070,16304,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEDISPLAYBOX_STRING_V,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 8 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16306,"ide_methods.bas");}while(r); -S_53760:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDEDISPLAYBOX_STRING_V->len> 1024 )))||new_error){ -if(qbevent){evnt(26070,16307,"ide_methods.bas");if(r)goto S_53760;} -do{ -qbs_set(_FUNC_IDEDISPLAYBOX_STRING_V,qbs_left(_FUNC_IDEDISPLAYBOX_STRING_V, 1024 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16307,"ide_methods.bas");}while(r); -} -do{ -qbs_set(__STRING_IDECUSTOMFONTFILE,_FUNC_IDEDISPLAYBOX_STRING_V); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16308,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEDISPLAYBOX_STRING_V,qbs_add(_FUNC_IDEDISPLAYBOX_STRING_V,func_space( 1024 -_FUNC_IDEDISPLAYBOX_STRING_V->len))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16309,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEDISPLAYBOX_STRING_V,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16311,"ide_methods.bas");}while(r); -S_53766:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEDISPLAYBOX_STRING_V,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,16311,"ide_methods.bas");if(r)goto S_53766;} -do{ -qbs_set(_FUNC_IDEDISPLAYBOX_STRING_V,qbs_new_txt_len("0",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16311,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEDISPLAYBOX_INTEGER_V=qbr_float_to_long(func_val(_FUNC_IDEDISPLAYBOX_STRING_V)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16312,"ide_methods.bas");}while(r); -S_53770:; -if ((-(*_FUNC_IDEDISPLAYBOX_INTEGER_V< 8 ))||new_error){ -if(qbevent){evnt(26070,16313,"ide_methods.bas");if(r)goto S_53770;} -do{ -*_FUNC_IDEDISPLAYBOX_INTEGER_V= 8 ; -if(!qbevent)break;evnt(26070,16313,"ide_methods.bas");}while(r); -} -S_53773:; -if ((-(*_FUNC_IDEDISPLAYBOX_INTEGER_V> 99 ))||new_error){ -if(qbevent){evnt(26070,16314,"ide_methods.bas");if(r)goto S_53773;} -do{ -*_FUNC_IDEDISPLAYBOX_INTEGER_V= 99 ; -if(!qbevent)break;evnt(26070,16314,"ide_methods.bas");}while(r); -} -do{ -*__LONG_IDECUSTOMFONTHEIGHT=*_FUNC_IDEDISPLAYBOX_INTEGER_V; -if(!qbevent)break;evnt(26070,16315,"ide_methods.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_WINDOWSETTINGSSECTION,qbs_new_txt_len("IDE_Width",9),qbs_str((int32)(*__LONG_IDEWX))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16318,"ide_methods.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_WINDOWSETTINGSSECTION,qbs_new_txt_len("IDE_Height",10),qbs_str((int32)(*__LONG_IDEWY))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16319,"ide_methods.bas");}while(r); -S_53779:; -if ((*__LONG_IDECUSTOMFONT)||new_error){ -if(qbevent){evnt(26070,16320,"ide_methods.bas");if(r)goto S_53779;} -do{ -SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_CustomFont",14),qbs_new_txt_len("True",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16321,"ide_methods.bas");}while(r); -}else{ -do{ -SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_CustomFont",14),qbs_new_txt_len("False",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16323,"ide_methods.bas");}while(r); -} -S_53784:; -if ((*__BYTE_IDE_USEFONT8)||new_error){ -if(qbevent){evnt(26070,16325,"ide_methods.bas");if(r)goto S_53784;} -do{ -SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_UseFont8",12),qbs_new_txt_len("True",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16326,"ide_methods.bas");}while(r); -}else{ -do{ -SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_UseFont8",12),qbs_new_txt_len("False",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16328,"ide_methods.bas");}while(r); -} -S_53789:; -if ((*__BYTE_IDE_AUTOPOSITION)||new_error){ -if(qbevent){evnt(26070,16330,"ide_methods.bas");if(r)goto S_53789;} -do{ -SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_AutoPosition",16),qbs_new_txt_len("True",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16331,"ide_methods.bas");}while(r); -}else{ -do{ -SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_AutoPosition",16),qbs_new_txt_len("False",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16333,"ide_methods.bas");}while(r); -} -do{ -SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_CustomFont$",15),__STRING_IDECUSTOMFONTFILE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16335,"ide_methods.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_CustomFontSize",18),qbs_str((int32)(*__LONG_IDECUSTOMFONTHEIGHT))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16336,"ide_methods.bas");}while(r); -do{ -*__LONG_IDENORMALCURSORSTART=*_FUNC_IDEDISPLAYBOX_LONG_TMPNORMALCURSORSTART; -if(!qbevent)break;evnt(26070,16338,"ide_methods.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_NormalCursorStart",21),FUNC_STR2(__LONG_IDENORMALCURSORSTART)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16339,"ide_methods.bas");}while(r); -do{ -*__LONG_IDENORMALCURSOREND=*_FUNC_IDEDISPLAYBOX_LONG_TMPNORMALCURSOREND; -if(!qbevent)break;evnt(26070,16341,"ide_methods.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_NormalCursorEnd",19),FUNC_STR2(__LONG_IDENORMALCURSOREND)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16342,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,16343,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEDISPLAYBOX_LONG_MOUSEDOWN= 0 ; -if(!qbevent)break;evnt(26070,16348,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEDISPLAYBOX_LONG_MOUSEUP= 0 ; -if(!qbevent)break;evnt(26070,16349,"ide_methods.bas");}while(r); -dl_continue_5907:; -}while(1); -dl_exit_5907:; -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free237.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -return *_FUNC_IDEDISPLAYBOX_LONG_IDEDISPLAYBOX; -} -int32 FUNC_IDECHOOSECOLORSBOX(){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data238.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -if(!qbevent)break;evnt(26070,16354,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(26070,16355,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(26070,16356,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(26070,16357,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(26070,16358,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_TOTALITEMS= 10 ; -if(!qbevent)break;evnt(26070,16360,"ide_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26070,15937,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26070,15938,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEDISPLAYBOX_STRING1_SEP,func_chr( 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15939,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEDISPLAYBOX_LONG_I= 0 ; +if(!qbevent)break;evnt(26070,15943,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_UDT_P)+(8))= 60 ; +if(!qbevent)break;evnt(26070,15946,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_UDT_P)+(12))= 18 ; +if(!qbevent)break;evnt(26070,15947,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_UDT_P)+(0))=(( 80 / 2 ))-(*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_UDT_P)+(8))/ 2 ); +if(!qbevent)break;evnt(26070,15948,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_UDT_P)+(4))=(( 25 / 2 ))-(*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_UDT_P)+(12))/ 2 ); +if(!qbevent)break;evnt(26070,15949,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_UDT_P)+(16))=FUNC_IDENEWTXT(qbs_new_txt_len("Display",7)); +if(!qbevent)break;evnt(26070,15950,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A2,FUNC_STR2(__LONG_IDEWX)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15952,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEDISPLAYBOX_LONG_I=*_FUNC_IDEDISPLAYBOX_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,15953,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEDISPLAYBOX_LONG_PREVFOCUS= 1 ; +if(!qbevent)break;evnt(26070,15954,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+36))= 1 ; +if(!qbevent)break;evnt(26070,15955,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+20))= 3 ; +if(!qbevent)break;evnt(26070,15956,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+24))= 2 ; +if(!qbevent)break;evnt(26070,15957,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+28))= 10 ; +if(!qbevent)break;evnt(26070,15958,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("Window #width",13)); +if(!qbevent)break;evnt(26070,15959,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDEDISPLAYBOX_STRING_A2); +if(!qbevent)break;evnt(26070,15960,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+81))=_FUNC_IDEDISPLAYBOX_STRING_A2->len; +if(!qbevent)break;evnt(26070,15961,"ide_methods.bas");}while(r); +S_53288:; +if ((-(*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+81))> 0 ))||new_error){ +if(qbevent){evnt(26070,15962,"ide_methods.bas");if(r)goto S_53288;} +do{ +*(int8*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+76))= -1 ; +if(!qbevent)break;evnt(26070,15963,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+77))= 0 ; +if(!qbevent)break;evnt(26070,15964,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A2,FUNC_STR2(&(pass5899=*__LONG_IDEWY+*__LONG_IDESUBWINDOW))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,15967,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEDISPLAYBOX_LONG_I=*_FUNC_IDEDISPLAYBOX_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,15968,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+36))= 1 ; +if(!qbevent)break;evnt(26070,15969,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+20))= 2 ; +if(!qbevent)break;evnt(26070,15970,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+24))= 5 ; +if(!qbevent)break;evnt(26070,15971,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+28))= 10 ; +if(!qbevent)break;evnt(26070,15972,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("Window #height",14)); +if(!qbevent)break;evnt(26070,15973,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDEDISPLAYBOX_STRING_A2); +if(!qbevent)break;evnt(26070,15974,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+81))=_FUNC_IDEDISPLAYBOX_STRING_A2->len; +if(!qbevent)break;evnt(26070,15975,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEDISPLAYBOX_LONG_I=*_FUNC_IDEDISPLAYBOX_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,15977,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+36))= 4 ; +if(!qbevent)break;evnt(26070,15978,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+24))= 7 ; +if(!qbevent)break;evnt(26070,15979,"ide_methods.bas");}while(r); +S_53304:; +if ((qbs_cleanup(qbs_tmp_base,(-(func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)> 0 ))|(-(func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0)> 0 ))))||new_error){ +if(qbevent){evnt(26070,15980,"ide_methods.bas");if(r)goto S_53304;} +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Remember position + size",25)); +if(!qbevent)break;evnt(26070,15981,"ide_methods.bas");}while(r); +}else{ +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Remember size",14)); +if(!qbevent)break;evnt(26070,15983,"ide_methods.bas");}while(r); +} +S_53309:; +if ((*__BYTE_IDE_AUTOPOSITION)||new_error){ +if(qbevent){evnt(26070,15985,"ide_methods.bas");if(r)goto S_53309;} +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+64))= 1 ; +if(!qbevent)break;evnt(26070,15985,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEDISPLAYBOX_LONG_I=*_FUNC_IDEDISPLAYBOX_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,15987,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEDISPLAYBOX_LONG_TMPNORMALCURSORSTART=*__LONG_IDENORMALCURSORSTART; +if(!qbevent)break;evnt(26070,15988,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+36))= 1 ; +if(!qbevent)break;evnt(26070,15989,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+20))= 33 ; +if(!qbevent)break;evnt(26070,15990,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+24))= 2 ; +if(!qbevent)break;evnt(26070,15991,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("Cursor #start",13)); +if(!qbevent)break;evnt(26070,15992,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(FUNC_STR2(__LONG_IDENORMALCURSORSTART)); +if(!qbevent)break;evnt(26070,15993,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+81))=_FUNC_IDEDISPLAYBOX_STRING_A2->len; +if(!qbevent)break;evnt(26070,15994,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEDISPLAYBOX_LONG_I=*_FUNC_IDEDISPLAYBOX_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,15996,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEDISPLAYBOX_LONG_TMPNORMALCURSOREND=*__LONG_IDENORMALCURSOREND; +if(!qbevent)break;evnt(26070,15997,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+36))= 1 ; +if(!qbevent)break;evnt(26070,15998,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+20))= 35 ; +if(!qbevent)break;evnt(26070,15999,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+24))= 5 ; +if(!qbevent)break;evnt(26070,16000,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("Cursor #end",11)); +if(!qbevent)break;evnt(26070,16001,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(FUNC_STR2(__LONG_IDENORMALCURSOREND)); +if(!qbevent)break;evnt(26070,16002,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+81))=_FUNC_IDEDISPLAYBOX_STRING_A2->len; +if(!qbevent)break;evnt(26070,16003,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEDISPLAYBOX_LONG_I=*_FUNC_IDEDISPLAYBOX_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,16005,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+36))= 4 ; +if(!qbevent)break;evnt(26070,16006,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+24))= 9 ; +if(!qbevent)break;evnt(26070,16007,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Use _FONT 8",12)); +if(!qbevent)break;evnt(26070,16008,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+64))=*__BYTE_IDE_USEFONT8; +if(!qbevent)break;evnt(26070,16009,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEDISPLAYBOX_LONG_PREVFONT8SETTING=*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26070,16010,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEDISPLAYBOX_LONG_I=*_FUNC_IDEDISPLAYBOX_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,16012,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+36))= 4 ; +if(!qbevent)break;evnt(26070,16013,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+24))= 10 ; +if(!qbevent)break;evnt(26070,16014,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("Use monospace #TTF font:",24)); +if(!qbevent)break;evnt(26070,16015,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+64))=*__LONG_IDECUSTOMFONT; +if(!qbevent)break;evnt(26070,16016,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEDISPLAYBOX_LONG_PREVCUSTOMFONTSETTING=*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26070,16017,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A2,__STRING_IDECUSTOMFONTFILE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16019,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEDISPLAYBOX_STRING_PREVFONTFILE,_FUNC_IDEDISPLAYBOX_STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16020,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEDISPLAYBOX_LONG_I=*_FUNC_IDEDISPLAYBOX_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,16021,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+36))= 1 ; +if(!qbevent)break;evnt(26070,16022,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+20))= 10 ; +if(!qbevent)break;evnt(26070,16023,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+24))= 12 ; +if(!qbevent)break;evnt(26070,16024,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Font file",10)); +if(!qbevent)break;evnt(26070,16025,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDEDISPLAYBOX_STRING_A2); +if(!qbevent)break;evnt(26070,16026,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+81))=_FUNC_IDEDISPLAYBOX_STRING_A2->len; +if(!qbevent)break;evnt(26070,16027,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A2,FUNC_STR2(__LONG_IDECUSTOMFONTHEIGHT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16029,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEDISPLAYBOX_STRING_PREVFONTSIZE,_FUNC_IDEDISPLAYBOX_STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16030,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEDISPLAYBOX_LONG_I=*_FUNC_IDEDISPLAYBOX_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,16031,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+36))= 1 ; +if(!qbevent)break;evnt(26070,16032,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+20))= 10 ; +if(!qbevent)break;evnt(26070,16033,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+24))= 15 ; +if(!qbevent)break;evnt(26070,16034,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("Font size in #pixels",20)); +if(!qbevent)break;evnt(26070,16035,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDEDISPLAYBOX_STRING_A2); +if(!qbevent)break;evnt(26070,16036,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+81))=_FUNC_IDEDISPLAYBOX_STRING_A2->len; +if(!qbevent)break;evnt(26070,16037,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEDISPLAYBOX_LONG_I=*_FUNC_IDEDISPLAYBOX_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,16039,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+36))= 3 ; +if(!qbevent)break;evnt(26070,16040,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+24))=*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_UDT_P)+(12)); +if(!qbevent)break;evnt(26070,16041,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_new_txt_len("#OK",3),_FUNC_IDEDISPLAYBOX_STRING1_SEP),qbs_new_txt_len("#Cancel",7))); +if(!qbevent)break;evnt(26070,16042,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+48))= 1 ; +if(!qbevent)break;evnt(26070,16043,"ide_methods.bas");}while(r); +S_53363:; +fornext_value5906= 1 ; +fornext_finalvalue5906= 100 ; +fornext_step5906= 1 ; +if (fornext_step5906<0) fornext_step_negative5906=1; else fornext_step_negative5906=0; +if (new_error) goto fornext_error5906; +goto fornext_entrylabel5906; +while(1){ +fornext_value5906=fornext_step5906+(*_FUNC_IDEDISPLAYBOX_LONG_I); +fornext_entrylabel5906: +*_FUNC_IDEDISPLAYBOX_LONG_I=fornext_value5906; +if (fornext_step_negative5906){ +if (fornext_value5906fornext_finalvalue5906) break; +} +fornext_error5906:; +if(qbevent){evnt(26070,16047,"ide_methods.bas");if(r)goto S_53363;} +do{ +memcpy(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89)+ 0,((char*)_FUNC_IDEDISPLAYBOX_UDT_P)+(0)+ 0, 20); +if(!qbevent)break;evnt(26070,16047,"ide_methods.bas");}while(r); +fornext_continue_5905:; +} +fornext_exit_5905:; +S_53366:; +do{ +if(qbevent){evnt(26070,16050,"ide_methods.bas");if(r)goto S_53366;} +do{ +SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDEDISPLAYBOX_UDT_P)) + (0) )); +if(!qbevent)break;evnt(26070,16054,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEDISPLAYBOX_LONG_F= 1 ; +if(!qbevent)break;evnt(26070,16055,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEDISPLAYBOX_LONG_CX= 0 ; +if(!qbevent)break;evnt(26070,16055,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEDISPLAYBOX_LONG_CY= 0 ; +if(!qbevent)break;evnt(26070,16055,"ide_methods.bas");}while(r); +S_53371:; +fornext_value5909= 1 ; +fornext_finalvalue5909= 100 ; +fornext_step5909= 1 ; +if (fornext_step5909<0) fornext_step_negative5909=1; else fornext_step_negative5909=0; +if (new_error) goto fornext_error5909; +goto fornext_entrylabel5909; +while(1){ +fornext_value5909=fornext_step5909+(*_FUNC_IDEDISPLAYBOX_LONG_I); +fornext_entrylabel5909: +*_FUNC_IDEDISPLAYBOX_LONG_I=fornext_value5909; +if (fornext_step_negative5909){ +if (fornext_value5909fornext_finalvalue5909) break; +} +fornext_error5909:; +if(qbevent){evnt(26070,16056,"ide_methods.bas");if(r)goto S_53371;} +S_53372:; +if ((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+36)))||new_error){ +if(qbevent){evnt(26070,16057,"ide_methods.bas");if(r)goto S_53372;} +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+60))=*_FUNC_IDEDISPLAYBOX_LONG_FOCUS-*_FUNC_IDEDISPLAYBOX_LONG_F; +if(!qbevent)break;evnt(26070,16060,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+52))= 0 ; +if(!qbevent)break;evnt(26070,16061,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+56))= 0 ; +if(!qbevent)break;evnt(26070,16061,"ide_methods.bas");}while(r); +do{ +SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDEDISPLAYBOX_LONG_F); +if(!qbevent)break;evnt(26070,16062,"ide_methods.bas");}while(r); +S_53377:; +if ((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+52)))||new_error){ +if(qbevent){evnt(26070,16063,"ide_methods.bas");if(r)goto S_53377;} +do{ +*_FUNC_IDEDISPLAYBOX_LONG_CX=*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+52)); +if(!qbevent)break;evnt(26070,16063,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEDISPLAYBOX_LONG_CY=*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+56)); +if(!qbevent)break;evnt(26070,16063,"ide_methods.bas");}while(r); +} +} +fornext_continue_5908:; +} +fornext_exit_5908:; +do{ +*_FUNC_IDEDISPLAYBOX_LONG_LASTFOCUS=*_FUNC_IDEDISPLAYBOX_LONG_F- 1 ; +if(!qbevent)break;evnt(26070,16066,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(NULL,NULL,NULL,*_FUNC_IDEDISPLAYBOX_LONG_TMPNORMALCURSORSTART,*_FUNC_IDEDISPLAYBOX_LONG_TMPNORMALCURSOREND,24); +if(!qbevent)break;evnt(26070,16070,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 1 , 0 ); +if(!qbevent)break;evnt(26070,16074,"ide_methods.bas");}while(r); +S_53386:; +if ((*_FUNC_IDEDISPLAYBOX_LONG_CX)||new_error){ +if(qbevent){evnt(26070,16075,"ide_methods.bas");if(r)goto S_53386;} +do{ +qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,16075,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(*_FUNC_IDEDISPLAYBOX_LONG_CY,*_FUNC_IDEDISPLAYBOX_LONG_CX, 1 ,NULL,NULL,7); +if(!qbevent)break;evnt(26070,16075,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,16075,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEDISPLAYBOX_LONG_CHANGE= 0 ; +if(!qbevent)break;evnt(26070,16078,"ide_methods.bas");}while(r); +S_53392:; +do{ +if(qbevent){evnt(26070,16079,"ide_methods.bas");if(r)goto S_53392;} +do{ +SUB_GETINPUT(); +if(!qbevent)break;evnt(26070,16080,"ide_methods.bas");}while(r); +S_53394:; +if ((*__LONG_MWHEEL)||new_error){ +if(qbevent){evnt(26070,16081,"ide_methods.bas");if(r)goto S_53394;} +do{ +*_FUNC_IDEDISPLAYBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,16081,"ide_methods.bas");}while(r); +} +S_53397:; +if ((*__LONG_KB)||new_error){ +if(qbevent){evnt(26070,16082,"ide_methods.bas");if(r)goto S_53397;} +do{ +*_FUNC_IDEDISPLAYBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,16082,"ide_methods.bas");}while(r); +} +S_53400:; +if ((*__LONG_MCLICK)||new_error){ +if(qbevent){evnt(26070,16083,"ide_methods.bas");if(r)goto S_53400;} +do{ +*_FUNC_IDEDISPLAYBOX_LONG_MOUSEDOWN= 1 ; +if(!qbevent)break;evnt(26070,16083,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEDISPLAYBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,16083,"ide_methods.bas");}while(r); +} +S_53404:; +if ((*__LONG_MRELEASE)||new_error){ +if(qbevent){evnt(26070,16084,"ide_methods.bas");if(r)goto S_53404;} +do{ +*_FUNC_IDEDISPLAYBOX_LONG_MOUSEUP= 1 ; +if(!qbevent)break;evnt(26070,16084,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEDISPLAYBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,16084,"ide_methods.bas");}while(r); +} +S_53408:; +if ((*__LONG_MB)||new_error){ +if(qbevent){evnt(26070,16085,"ide_methods.bas");if(r)goto S_53408;} +do{ +*_FUNC_IDEDISPLAYBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,16085,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEDISPLAYBOX_LONG_ALT=*__LONG_KALT; +if(!qbevent)break;evnt(26070,16086,"ide_methods.bas");}while(r); +S_53412:; +if ((-(*_FUNC_IDEDISPLAYBOX_LONG_ALT!=*_FUNC_IDEDISPLAYBOX_LONG_OLDALT))||new_error){ +if(qbevent){evnt(26070,16086,"ide_methods.bas");if(r)goto S_53412;} +do{ +*_FUNC_IDEDISPLAYBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,16086,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEDISPLAYBOX_LONG_OLDALT=*_FUNC_IDEDISPLAYBOX_LONG_ALT; +if(!qbevent)break;evnt(26070,16087,"ide_methods.bas");}while(r); +do{ +sub__limit( 100 ); +if(!qbevent)break;evnt(26070,16088,"ide_methods.bas");}while(r); +S_53417:; +dl_continue_5910:; +}while((!(*_FUNC_IDEDISPLAYBOX_LONG_CHANGE))&&(!new_error)); +dl_exit_5910:; +if(qbevent){evnt(26070,16089,"ide_methods.bas");if(r)goto S_53417;} +S_53418:; +if ((*_FUNC_IDEDISPLAYBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ +if(qbevent){evnt(26070,16090,"ide_methods.bas");if(r)goto S_53418;} +do{ +*__LONG_IDEHL= 1 ; +if(!qbevent)break;evnt(26070,16090,"ide_methods.bas");}while(r); +}else{ +do{ +*__LONG_IDEHL= 0 ; +if(!qbevent)break;evnt(26070,16090,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDEDISPLAYBOX_STRING_ALTLETTER,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16092,"ide_methods.bas");}while(r); +S_53424:; +if ((*_FUNC_IDEDISPLAYBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ +if(qbevent){evnt(26070,16093,"ide_methods.bas");if(r)goto S_53424;} +S_53425:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ +if(qbevent){evnt(26070,16094,"ide_methods.bas");if(r)goto S_53425;} +do{ +*_FUNC_IDEDISPLAYBOX_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16095,"ide_methods.bas");}while(r); +S_53427:; +if (((-(*_FUNC_IDEDISPLAYBOX_LONG_K>= 65 ))&(-(*_FUNC_IDEDISPLAYBOX_LONG_K<= 90 )))||new_error){ +if(qbevent){evnt(26070,16096,"ide_methods.bas");if(r)goto S_53427;} +do{ +qbs_set(_FUNC_IDEDISPLAYBOX_STRING_ALTLETTER,func_chr(*_FUNC_IDEDISPLAYBOX_LONG_K)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16096,"ide_methods.bas");}while(r); +} +} +} +do{ +qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,16099,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); +if(!qbevent)break;evnt(26070,16099,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,16099,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEDISPLAYBOX_LONG_INFO= 0 ; +if(!qbevent)break;evnt(26070,16103,"ide_methods.bas");}while(r); +S_53436:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,16104,"ide_methods.bas");if(r)goto S_53436;} +do{ +qbs_set(__STRING_K,func_chr( 255 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16104,"ide_methods.bas");}while(r); +} +S_53439:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ +if(qbevent){evnt(26070,16105,"ide_methods.bas");if(r)goto S_53439;} +do{ +*_FUNC_IDEDISPLAYBOX_LONG_FOCUS=*_FUNC_IDEDISPLAYBOX_LONG_FOCUS+ 1 ; +if(!qbevent)break;evnt(26070,16105,"ide_methods.bas");}while(r); +} +S_53442:; +if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||new_error){ +if(qbevent){evnt(26070,16106,"ide_methods.bas");if(r)goto S_53442;} +do{ +*_FUNC_IDEDISPLAYBOX_LONG_FOCUS=*_FUNC_IDEDISPLAYBOX_LONG_FOCUS- 1 ; +if(!qbevent)break;evnt(26070,16106,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_K,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16106,"ide_methods.bas");}while(r); +} +S_53446:; +if ((-(*_FUNC_IDEDISPLAYBOX_LONG_FOCUS< 1 ))||new_error){ +if(qbevent){evnt(26070,16107,"ide_methods.bas");if(r)goto S_53446;} +do{ +*_FUNC_IDEDISPLAYBOX_LONG_FOCUS=*_FUNC_IDEDISPLAYBOX_LONG_LASTFOCUS; +if(!qbevent)break;evnt(26070,16107,"ide_methods.bas");}while(r); +} +S_53449:; +if ((-(*_FUNC_IDEDISPLAYBOX_LONG_FOCUS>*_FUNC_IDEDISPLAYBOX_LONG_LASTFOCUS))||new_error){ +if(qbevent){evnt(26070,16108,"ide_methods.bas");if(r)goto S_53449;} +do{ +*_FUNC_IDEDISPLAYBOX_LONG_FOCUS= 1 ; +if(!qbevent)break;evnt(26070,16108,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEDISPLAYBOX_LONG_F= 1 ; +if(!qbevent)break;evnt(26070,16109,"ide_methods.bas");}while(r); +S_53453:; +fornext_value5913= 1 ; +fornext_finalvalue5913= 100 ; +fornext_step5913= 1 ; +if (fornext_step5913<0) fornext_step_negative5913=1; else fornext_step_negative5913=0; +if (new_error) goto fornext_error5913; +goto fornext_entrylabel5913; +while(1){ +fornext_value5913=fornext_step5913+(*_FUNC_IDEDISPLAYBOX_LONG_I); +fornext_entrylabel5913: +*_FUNC_IDEDISPLAYBOX_LONG_I=fornext_value5913; +if (fornext_step_negative5913){ +if (fornext_value5913fornext_finalvalue5913) break; +} +fornext_error5913:; +if(qbevent){evnt(26070,16110,"ide_methods.bas");if(r)goto S_53453;} +do{ +*_FUNC_IDEDISPLAYBOX_LONG_T=*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+36)); +if(!qbevent)break;evnt(26070,16111,"ide_methods.bas");}while(r); +S_53455:; +if ((*_FUNC_IDEDISPLAYBOX_LONG_T)||new_error){ +if(qbevent){evnt(26070,16112,"ide_methods.bas");if(r)goto S_53455;} +do{ +*_FUNC_IDEDISPLAYBOX_LONG_FOCUSOFFSET=*_FUNC_IDEDISPLAYBOX_LONG_FOCUS-*_FUNC_IDEDISPLAYBOX_LONG_F; +if(!qbevent)break;evnt(26070,16113,"ide_methods.bas");}while(r); +do{ +SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEDISPLAYBOX_LONG_I)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDEDISPLAYBOX_LONG_FOCUS,_FUNC_IDEDISPLAYBOX_LONG_F,_FUNC_IDEDISPLAYBOX_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDEDISPLAYBOX_STRING_ALTLETTER,__LONG_MB,_FUNC_IDEDISPLAYBOX_LONG_MOUSEDOWN,_FUNC_IDEDISPLAYBOX_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDEDISPLAYBOX_LONG_INFO,__LONG_MWHEEL); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16114,"ide_methods.bas");}while(r); +} +fornext_continue_5912:; +} +fornext_exit_5912:; +S_53460:; +if ((-(*_FUNC_IDEDISPLAYBOX_LONG_FOCUS!=*_FUNC_IDEDISPLAYBOX_LONG_PREVFOCUS))||new_error){ +if(qbevent){evnt(26070,16121,"ide_methods.bas");if(r)goto S_53460;} +do{ +*_FUNC_IDEDISPLAYBOX_LONG_PREVFOCUS=*_FUNC_IDEDISPLAYBOX_LONG_FOCUS; +if(!qbevent)break;evnt(26070,16123,"ide_methods.bas");}while(r); +S_53462:; +if ((-(*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_FOCUS)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+36))== 1 ))||new_error){ +if(qbevent){evnt(26070,16124,"ide_methods.bas");if(r)goto S_53462;} +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_FOCUS)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_FOCUS)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; +if(!qbevent)break;evnt(26070,16125,"ide_methods.bas");}while(r); +S_53464:; +if ((-(*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_FOCUS)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+81))> 0 ))||new_error){ +if(qbevent){evnt(26070,16126,"ide_methods.bas");if(r)goto S_53464;} +do{ +*(int8*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_FOCUS)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+76))= -1 ; +if(!qbevent)break;evnt(26070,16126,"ide_methods.bas");}while(r); +} +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEDISPLAYBOX_LONG_FOCUS)-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+77))= 0 ; +if(!qbevent)break;evnt(26070,16127,"ide_methods.bas");}while(r); +} +} +do{ +qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16132,"ide_methods.bas");}while(r); +S_53471:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDEDISPLAYBOX_STRING_A->len> 3 )))||new_error){ +if(qbevent){evnt(26070,16133,"ide_methods.bas");if(r)goto S_53471;} +do{ +qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,qbs_left(_FUNC_IDEDISPLAYBOX_STRING_A, 3 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16133,"ide_methods.bas");}while(r); +} +S_53474:; +fornext_value5917= 1 ; +fornext_finalvalue5917=_FUNC_IDEDISPLAYBOX_STRING_A->len; +fornext_step5917= 1 ; +if (fornext_step5917<0) fornext_step_negative5917=1; else fornext_step_negative5917=0; +if (new_error) goto fornext_error5917; +goto fornext_entrylabel5917; +while(1){ +fornext_value5917=fornext_step5917+(*_FUNC_IDEDISPLAYBOX_LONG_I); +fornext_entrylabel5917: +*_FUNC_IDEDISPLAYBOX_LONG_I=fornext_value5917; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative5917){ +if (fornext_value5917fornext_finalvalue5917) break; +} +fornext_error5917:; +if(qbevent){evnt(26070,16134,"ide_methods.bas");if(r)goto S_53474;} +do{ +*_FUNC_IDEDISPLAYBOX_LONG_A=qbs_asc(_FUNC_IDEDISPLAYBOX_STRING_A,*_FUNC_IDEDISPLAYBOX_LONG_I); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16135,"ide_methods.bas");}while(r); +S_53476:; +if (((-(*_FUNC_IDEDISPLAYBOX_LONG_A< 48 ))|(-(*_FUNC_IDEDISPLAYBOX_LONG_A> 57 )))||new_error){ +if(qbevent){evnt(26070,16136,"ide_methods.bas");if(r)goto S_53476;} +do{ +qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16136,"ide_methods.bas");}while(r); +do{ +goto fornext_exit_5916; +if(!qbevent)break;evnt(26070,16136,"ide_methods.bas");}while(r); +} +S_53480:; +if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_IDEDISPLAYBOX_LONG_I== 2 ))&(-(qbs_asc(_FUNC_IDEDISPLAYBOX_STRING_A, 1 )== 48 ))))||new_error){ +if(qbevent){evnt(26070,16137,"ide_methods.bas");if(r)goto S_53480;} +do{ +qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,qbs_new_txt_len("0",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16137,"ide_methods.bas");}while(r); +do{ +goto fornext_exit_5916; +if(!qbevent)break;evnt(26070,16137,"ide_methods.bas");}while(r); +} +fornext_continue_5916:; +} +fornext_exit_5916:; +S_53485:; +if ((-(*_FUNC_IDEDISPLAYBOX_LONG_FOCUS!= 1 ))||new_error){ +if(qbevent){evnt(26070,16139,"ide_methods.bas");if(r)goto S_53485;} +S_53486:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDEDISPLAYBOX_STRING_A->len))||new_error){ +if(qbevent){evnt(26070,16140,"ide_methods.bas");if(r)goto S_53486;} +do{ +*_FUNC_IDEDISPLAYBOX_LONG_A=qbr(func_val(_FUNC_IDEDISPLAYBOX_STRING_A)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16140,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_IDEDISPLAYBOX_LONG_A= 0 ; +if(!qbevent)break;evnt(26070,16140,"ide_methods.bas");}while(r); +} +S_53491:; +if ((-(*_FUNC_IDEDISPLAYBOX_LONG_A< 80 ))||new_error){ +if(qbevent){evnt(26070,16141,"ide_methods.bas");if(r)goto S_53491;} +do{ +qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,qbs_new_txt_len("80",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16141,"ide_methods.bas");}while(r); +} +} +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDEDISPLAYBOX_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16143,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16146,"ide_methods.bas");}while(r); +S_53497:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDEDISPLAYBOX_STRING_A->len> 3 )))||new_error){ +if(qbevent){evnt(26070,16147,"ide_methods.bas");if(r)goto S_53497;} +do{ +qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,qbs_left(_FUNC_IDEDISPLAYBOX_STRING_A, 3 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16147,"ide_methods.bas");}while(r); +} +S_53500:; +fornext_value5922= 1 ; +fornext_finalvalue5922=_FUNC_IDEDISPLAYBOX_STRING_A->len; +fornext_step5922= 1 ; +if (fornext_step5922<0) fornext_step_negative5922=1; else fornext_step_negative5922=0; +if (new_error) goto fornext_error5922; +goto fornext_entrylabel5922; +while(1){ +fornext_value5922=fornext_step5922+(*_FUNC_IDEDISPLAYBOX_LONG_I); +fornext_entrylabel5922: +*_FUNC_IDEDISPLAYBOX_LONG_I=fornext_value5922; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative5922){ +if (fornext_value5922fornext_finalvalue5922) break; +} +fornext_error5922:; +if(qbevent){evnt(26070,16148,"ide_methods.bas");if(r)goto S_53500;} +do{ +*_FUNC_IDEDISPLAYBOX_LONG_A=qbs_asc(_FUNC_IDEDISPLAYBOX_STRING_A,*_FUNC_IDEDISPLAYBOX_LONG_I); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16149,"ide_methods.bas");}while(r); +S_53502:; +if (((-(*_FUNC_IDEDISPLAYBOX_LONG_A< 48 ))|(-(*_FUNC_IDEDISPLAYBOX_LONG_A> 57 )))||new_error){ +if(qbevent){evnt(26070,16150,"ide_methods.bas");if(r)goto S_53502;} +do{ +qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16150,"ide_methods.bas");}while(r); +do{ +goto fornext_exit_5921; +if(!qbevent)break;evnt(26070,16150,"ide_methods.bas");}while(r); +} +S_53506:; +if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_IDEDISPLAYBOX_LONG_I== 2 ))&(-(qbs_asc(_FUNC_IDEDISPLAYBOX_STRING_A, 1 )== 48 ))))||new_error){ +if(qbevent){evnt(26070,16151,"ide_methods.bas");if(r)goto S_53506;} +do{ +qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,qbs_new_txt_len("0",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16151,"ide_methods.bas");}while(r); +do{ +goto fornext_exit_5921; +if(!qbevent)break;evnt(26070,16151,"ide_methods.bas");}while(r); +} +fornext_continue_5921:; +} +fornext_exit_5921:; +S_53511:; +if ((-(*_FUNC_IDEDISPLAYBOX_LONG_FOCUS!= 2 ))||new_error){ +if(qbevent){evnt(26070,16153,"ide_methods.bas");if(r)goto S_53511;} +S_53512:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDEDISPLAYBOX_STRING_A->len))||new_error){ +if(qbevent){evnt(26070,16154,"ide_methods.bas");if(r)goto S_53512;} +do{ +*_FUNC_IDEDISPLAYBOX_LONG_A=qbr(func_val(_FUNC_IDEDISPLAYBOX_STRING_A)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16154,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_IDEDISPLAYBOX_LONG_A= 0 ; +if(!qbevent)break;evnt(26070,16154,"ide_methods.bas");}while(r); +} +S_53517:; +if ((-(*_FUNC_IDEDISPLAYBOX_LONG_A< 25 ))||new_error){ +if(qbevent){evnt(26070,16155,"ide_methods.bas");if(r)goto S_53517;} +do{ +qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,qbs_new_txt_len("25",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16155,"ide_methods.bas");}while(r); +} +} +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDEDISPLAYBOX_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16157,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 4 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16160,"ide_methods.bas");}while(r); +S_53523:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDEDISPLAYBOX_STRING_A->len> 2 )))||new_error){ +if(qbevent){evnt(26070,16161,"ide_methods.bas");if(r)goto S_53523;} +do{ +qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,qbs_left(_FUNC_IDEDISPLAYBOX_STRING_A, 2 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16161,"ide_methods.bas");}while(r); +} +S_53526:; +fornext_value5927= 1 ; +fornext_finalvalue5927=_FUNC_IDEDISPLAYBOX_STRING_A->len; +fornext_step5927= 1 ; +if (fornext_step5927<0) fornext_step_negative5927=1; else fornext_step_negative5927=0; +if (new_error) goto fornext_error5927; +goto fornext_entrylabel5927; +while(1){ +fornext_value5927=fornext_step5927+(*_FUNC_IDEDISPLAYBOX_LONG_I); +fornext_entrylabel5927: +*_FUNC_IDEDISPLAYBOX_LONG_I=fornext_value5927; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative5927){ +if (fornext_value5927fornext_finalvalue5927) break; +} +fornext_error5927:; +if(qbevent){evnt(26070,16162,"ide_methods.bas");if(r)goto S_53526;} +do{ +*_FUNC_IDEDISPLAYBOX_LONG_A=qbs_asc(_FUNC_IDEDISPLAYBOX_STRING_A,*_FUNC_IDEDISPLAYBOX_LONG_I); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16163,"ide_methods.bas");}while(r); +S_53528:; +if (((-(*_FUNC_IDEDISPLAYBOX_LONG_A< 48 ))|(-(*_FUNC_IDEDISPLAYBOX_LONG_A> 57 )))||new_error){ +if(qbevent){evnt(26070,16164,"ide_methods.bas");if(r)goto S_53528;} +do{ +qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16164,"ide_methods.bas");}while(r); +do{ +goto fornext_exit_5926; +if(!qbevent)break;evnt(26070,16164,"ide_methods.bas");}while(r); +} +S_53532:; +if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_IDEDISPLAYBOX_LONG_I== 2 ))&(-(qbs_asc(_FUNC_IDEDISPLAYBOX_STRING_A, 1 )== 48 ))))||new_error){ +if(qbevent){evnt(26070,16165,"ide_methods.bas");if(r)goto S_53532;} +do{ +qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,qbs_new_txt_len("0",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16165,"ide_methods.bas");}while(r); +do{ +goto fornext_exit_5926; +if(!qbevent)break;evnt(26070,16165,"ide_methods.bas");}while(r); +} +fornext_continue_5926:; +} +fornext_exit_5926:; +S_53537:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDEDISPLAYBOX_STRING_A->len))||new_error){ +if(qbevent){evnt(26070,16167,"ide_methods.bas");if(r)goto S_53537;} +do{ +*_FUNC_IDEDISPLAYBOX_LONG_A=qbr(func_val(_FUNC_IDEDISPLAYBOX_STRING_A)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16167,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_IDEDISPLAYBOX_LONG_A= 0 ; +if(!qbevent)break;evnt(26070,16167,"ide_methods.bas");}while(r); +} +S_53542:; +if ((-(*_FUNC_IDEDISPLAYBOX_LONG_FOCUS!= 4 ))||new_error){ +if(qbevent){evnt(26070,16168,"ide_methods.bas");if(r)goto S_53542;} +S_53543:; +if ((-(*_FUNC_IDEDISPLAYBOX_LONG_A< 0 ))||new_error){ +if(qbevent){evnt(26070,16169,"ide_methods.bas");if(r)goto S_53543;} +do{ +qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,qbs_new_txt_len("0",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16169,"ide_methods.bas");}while(r); +} +S_53546:; +if ((-(*_FUNC_IDEDISPLAYBOX_LONG_A> 31 ))||new_error){ +if(qbevent){evnt(26070,16170,"ide_methods.bas");if(r)goto S_53546;} +do{ +qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,qbs_new_txt_len("31",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16170,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEDISPLAYBOX_LONG_TMPNORMALCURSORSTART=qbr(func_val(_FUNC_IDEDISPLAYBOX_STRING_A)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16171,"ide_methods.bas");}while(r); +}else{ +S_53551:; +if ((-(*_FUNC_IDEDISPLAYBOX_LONG_A< 0 ))||new_error){ +if(qbevent){evnt(26070,16173,"ide_methods.bas");if(r)goto S_53551;} +do{ +*_FUNC_IDEDISPLAYBOX_LONG_A= 0 ; +if(!qbevent)break;evnt(26070,16173,"ide_methods.bas");}while(r); +} +S_53554:; +if ((-(*_FUNC_IDEDISPLAYBOX_LONG_A> 31 ))||new_error){ +if(qbevent){evnt(26070,16174,"ide_methods.bas");if(r)goto S_53554;} +do{ +*_FUNC_IDEDISPLAYBOX_LONG_A= 31 ; +if(!qbevent)break;evnt(26070,16174,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEDISPLAYBOX_LONG_TMPNORMALCURSORSTART=*_FUNC_IDEDISPLAYBOX_LONG_A; +if(!qbevent)break;evnt(26070,16175,"ide_methods.bas");}while(r); +} +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 4 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDEDISPLAYBOX_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16177,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 5 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16180,"ide_methods.bas");}while(r); +S_53561:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDEDISPLAYBOX_STRING_A->len> 2 )))||new_error){ +if(qbevent){evnt(26070,16181,"ide_methods.bas");if(r)goto S_53561;} +do{ +qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,qbs_left(_FUNC_IDEDISPLAYBOX_STRING_A, 2 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16181,"ide_methods.bas");}while(r); +} +S_53564:; +fornext_value5932= 1 ; +fornext_finalvalue5932=_FUNC_IDEDISPLAYBOX_STRING_A->len; +fornext_step5932= 1 ; +if (fornext_step5932<0) fornext_step_negative5932=1; else fornext_step_negative5932=0; +if (new_error) goto fornext_error5932; +goto fornext_entrylabel5932; +while(1){ +fornext_value5932=fornext_step5932+(*_FUNC_IDEDISPLAYBOX_LONG_I); +fornext_entrylabel5932: +*_FUNC_IDEDISPLAYBOX_LONG_I=fornext_value5932; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative5932){ +if (fornext_value5932fornext_finalvalue5932) break; +} +fornext_error5932:; +if(qbevent){evnt(26070,16182,"ide_methods.bas");if(r)goto S_53564;} +do{ +*_FUNC_IDEDISPLAYBOX_LONG_A=qbs_asc(_FUNC_IDEDISPLAYBOX_STRING_A,*_FUNC_IDEDISPLAYBOX_LONG_I); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16183,"ide_methods.bas");}while(r); +S_53566:; +if (((-(*_FUNC_IDEDISPLAYBOX_LONG_A< 48 ))|(-(*_FUNC_IDEDISPLAYBOX_LONG_A> 57 )))||new_error){ +if(qbevent){evnt(26070,16184,"ide_methods.bas");if(r)goto S_53566;} +do{ +qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16184,"ide_methods.bas");}while(r); +do{ +goto fornext_exit_5931; +if(!qbevent)break;evnt(26070,16184,"ide_methods.bas");}while(r); +} +S_53570:; +if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_IDEDISPLAYBOX_LONG_I== 2 ))&(-(qbs_asc(_FUNC_IDEDISPLAYBOX_STRING_A, 1 )== 48 ))))||new_error){ +if(qbevent){evnt(26070,16185,"ide_methods.bas");if(r)goto S_53570;} +do{ +qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,qbs_new_txt_len("0",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16185,"ide_methods.bas");}while(r); +do{ +goto fornext_exit_5931; +if(!qbevent)break;evnt(26070,16185,"ide_methods.bas");}while(r); +} +fornext_continue_5931:; +} +fornext_exit_5931:; +S_53575:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDEDISPLAYBOX_STRING_A->len))||new_error){ +if(qbevent){evnt(26070,16187,"ide_methods.bas");if(r)goto S_53575;} +do{ +*_FUNC_IDEDISPLAYBOX_LONG_A=qbr(func_val(_FUNC_IDEDISPLAYBOX_STRING_A)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16187,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_IDEDISPLAYBOX_LONG_A= 0 ; +if(!qbevent)break;evnt(26070,16187,"ide_methods.bas");}while(r); +} +S_53580:; +if ((-(*_FUNC_IDEDISPLAYBOX_LONG_FOCUS!= 5 ))||new_error){ +if(qbevent){evnt(26070,16188,"ide_methods.bas");if(r)goto S_53580;} +S_53581:; +if ((-(*_FUNC_IDEDISPLAYBOX_LONG_A< 0 ))||new_error){ +if(qbevent){evnt(26070,16189,"ide_methods.bas");if(r)goto S_53581;} +do{ +qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,qbs_new_txt_len("0",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16189,"ide_methods.bas");}while(r); +} +S_53584:; +if ((-(*_FUNC_IDEDISPLAYBOX_LONG_A> 31 ))||new_error){ +if(qbevent){evnt(26070,16190,"ide_methods.bas");if(r)goto S_53584;} +do{ +qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,qbs_new_txt_len("31",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16190,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEDISPLAYBOX_LONG_TMPNORMALCURSOREND=qbr(func_val(_FUNC_IDEDISPLAYBOX_STRING_A)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16191,"ide_methods.bas");}while(r); +}else{ +S_53589:; +if ((-(*_FUNC_IDEDISPLAYBOX_LONG_A< 0 ))||new_error){ +if(qbevent){evnt(26070,16193,"ide_methods.bas");if(r)goto S_53589;} +do{ +*_FUNC_IDEDISPLAYBOX_LONG_A= 0 ; +if(!qbevent)break;evnt(26070,16193,"ide_methods.bas");}while(r); +} +S_53592:; +if ((-(*_FUNC_IDEDISPLAYBOX_LONG_A> 31 ))||new_error){ +if(qbevent){evnt(26070,16194,"ide_methods.bas");if(r)goto S_53592;} +do{ +*_FUNC_IDEDISPLAYBOX_LONG_A= 31 ; +if(!qbevent)break;evnt(26070,16194,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEDISPLAYBOX_LONG_TMPNORMALCURSOREND=*_FUNC_IDEDISPLAYBOX_LONG_A; +if(!qbevent)break;evnt(26070,16195,"ide_methods.bas");}while(r); +} +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 5 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDEDISPLAYBOX_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16197,"ide_methods.bas");}while(r); +S_53598:; +if ((-(*_FUNC_IDEDISPLAYBOX_LONG_PREVFONT8SETTING!=*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 6 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+64))))||new_error){ +if(qbevent){evnt(26070,16199,"ide_methods.bas");if(r)goto S_53598;} +do{ +*_FUNC_IDEDISPLAYBOX_LONG_PREVFONT8SETTING=*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 6 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26070,16200,"ide_methods.bas");}while(r); +S_53600:; +if ((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 6 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+64)))||new_error){ +if(qbevent){evnt(26070,16201,"ide_methods.bas");if(r)goto S_53600;} +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 7 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+64))= 0 ; +if(!qbevent)break;evnt(26070,16201,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEDISPLAYBOX_LONG_PREVCUSTOMFONTSETTING= 0 ; +if(!qbevent)break;evnt(26070,16201,"ide_methods.bas");}while(r); +} +} +S_53605:; +if ((-(*_FUNC_IDEDISPLAYBOX_LONG_PREVCUSTOMFONTSETTING!=*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 7 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+64))))||new_error){ +if(qbevent){evnt(26070,16204,"ide_methods.bas");if(r)goto S_53605;} +do{ +*_FUNC_IDEDISPLAYBOX_LONG_PREVCUSTOMFONTSETTING=*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 7 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26070,16205,"ide_methods.bas");}while(r); +S_53607:; +if ((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 7 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+64)))||new_error){ +if(qbevent){evnt(26070,16206,"ide_methods.bas");if(r)goto S_53607;} +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 6 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+64))= 0 ; +if(!qbevent)break;evnt(26070,16206,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEDISPLAYBOX_LONG_PREVFONT8SETTING= 0 ; +if(!qbevent)break;evnt(26070,16206,"ide_methods.bas");}while(r); +} +} +do{ +qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 8 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16209,"ide_methods.bas");}while(r); +S_53613:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDEDISPLAYBOX_STRING_A->len> 1024 )))||new_error){ +if(qbevent){evnt(26070,16210,"ide_methods.bas");if(r)goto S_53613;} +do{ +qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,qbs_left(_FUNC_IDEDISPLAYBOX_STRING_A, 1024 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16210,"ide_methods.bas");}while(r); +} +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 8 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDEDISPLAYBOX_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16211,"ide_methods.bas");}while(r); +S_53617:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_IDEDISPLAYBOX_STRING_A,_FUNC_IDEDISPLAYBOX_STRING_PREVFONTFILE)))||new_error){ +if(qbevent){evnt(26070,16212,"ide_methods.bas");if(r)goto S_53617;} +do{ +qbs_set(_FUNC_IDEDISPLAYBOX_STRING_PREVFONTFILE,_FUNC_IDEDISPLAYBOX_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16213,"ide_methods.bas");}while(r); +S_53619:; +if ((-(*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 7 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+64))== 0 ))||new_error){ +if(qbevent){evnt(26070,16214,"ide_methods.bas");if(r)goto S_53619;} +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 6 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+64))= 0 ; +if(!qbevent)break;evnt(26070,16215,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEDISPLAYBOX_LONG_PREVFONT8SETTING= 0 ; +if(!qbevent)break;evnt(26070,16215,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 7 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+64))= 1 ; +if(!qbevent)break;evnt(26070,16216,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEDISPLAYBOX_LONG_PREVCUSTOMFONTSETTING= 1 ; +if(!qbevent)break;evnt(26070,16216,"ide_methods.bas");}while(r); +} +} +do{ +qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16220,"ide_methods.bas");}while(r); +S_53627:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDEDISPLAYBOX_STRING_A->len> 2 )))||new_error){ +if(qbevent){evnt(26070,16221,"ide_methods.bas");if(r)goto S_53627;} +do{ +qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,qbs_left(_FUNC_IDEDISPLAYBOX_STRING_A, 2 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16221,"ide_methods.bas");}while(r); +} +S_53630:; +fornext_value5938= 1 ; +fornext_finalvalue5938=_FUNC_IDEDISPLAYBOX_STRING_A->len; +fornext_step5938= 1 ; +if (fornext_step5938<0) fornext_step_negative5938=1; else fornext_step_negative5938=0; +if (new_error) goto fornext_error5938; +goto fornext_entrylabel5938; +while(1){ +fornext_value5938=fornext_step5938+(*_FUNC_IDEDISPLAYBOX_LONG_I); +fornext_entrylabel5938: +*_FUNC_IDEDISPLAYBOX_LONG_I=fornext_value5938; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative5938){ +if (fornext_value5938fornext_finalvalue5938) break; +} +fornext_error5938:; +if(qbevent){evnt(26070,16222,"ide_methods.bas");if(r)goto S_53630;} +do{ +*_FUNC_IDEDISPLAYBOX_LONG_A=qbs_asc(_FUNC_IDEDISPLAYBOX_STRING_A,*_FUNC_IDEDISPLAYBOX_LONG_I); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16223,"ide_methods.bas");}while(r); +S_53632:; +if (((-(*_FUNC_IDEDISPLAYBOX_LONG_A< 48 ))|(-(*_FUNC_IDEDISPLAYBOX_LONG_A> 57 )))||new_error){ +if(qbevent){evnt(26070,16224,"ide_methods.bas");if(r)goto S_53632;} +do{ +qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16224,"ide_methods.bas");}while(r); +do{ +goto fornext_exit_5937; +if(!qbevent)break;evnt(26070,16224,"ide_methods.bas");}while(r); +} +S_53636:; +if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_IDEDISPLAYBOX_LONG_I== 2 ))&(-(qbs_asc(_FUNC_IDEDISPLAYBOX_STRING_A, 1 )== 48 ))))||new_error){ +if(qbevent){evnt(26070,16225,"ide_methods.bas");if(r)goto S_53636;} +do{ +qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,qbs_new_txt_len("0",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16225,"ide_methods.bas");}while(r); +do{ +goto fornext_exit_5937; +if(!qbevent)break;evnt(26070,16225,"ide_methods.bas");}while(r); +} +fornext_continue_5937:; +} +fornext_exit_5937:; +S_53641:; +if ((-(*_FUNC_IDEDISPLAYBOX_LONG_FOCUS!= 9 ))||new_error){ +if(qbevent){evnt(26070,16227,"ide_methods.bas");if(r)goto S_53641;} +S_53642:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDEDISPLAYBOX_STRING_A->len))||new_error){ +if(qbevent){evnt(26070,16228,"ide_methods.bas");if(r)goto S_53642;} +do{ +*_FUNC_IDEDISPLAYBOX_LONG_A=qbr(func_val(_FUNC_IDEDISPLAYBOX_STRING_A)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16228,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_IDEDISPLAYBOX_LONG_A= 0 ; +if(!qbevent)break;evnt(26070,16228,"ide_methods.bas");}while(r); +} +S_53647:; +if ((-(*_FUNC_IDEDISPLAYBOX_LONG_A< 8 ))||new_error){ +if(qbevent){evnt(26070,16229,"ide_methods.bas");if(r)goto S_53647;} +do{ +qbs_set(_FUNC_IDEDISPLAYBOX_STRING_A,qbs_new_txt_len("8",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16229,"ide_methods.bas");}while(r); +} +} +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDEDISPLAYBOX_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16231,"ide_methods.bas");}while(r); +S_53652:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_IDEDISPLAYBOX_STRING_A,_FUNC_IDEDISPLAYBOX_STRING_PREVFONTSIZE)))||new_error){ +if(qbevent){evnt(26070,16232,"ide_methods.bas");if(r)goto S_53652;} +do{ +qbs_set(_FUNC_IDEDISPLAYBOX_STRING_PREVFONTSIZE,_FUNC_IDEDISPLAYBOX_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16233,"ide_methods.bas");}while(r); +S_53654:; +if ((-(*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 7 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+64))== 0 ))||new_error){ +if(qbevent){evnt(26070,16234,"ide_methods.bas");if(r)goto S_53654;} +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 6 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+64))= 0 ; +if(!qbevent)break;evnt(26070,16235,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEDISPLAYBOX_LONG_PREVFONT8SETTING= 0 ; +if(!qbevent)break;evnt(26070,16235,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 7 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+64))= 1 ; +if(!qbevent)break;evnt(26070,16236,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEDISPLAYBOX_LONG_PREVCUSTOMFONTSETTING= 1 ; +if(!qbevent)break;evnt(26070,16236,"ide_methods.bas");}while(r); +} +} +S_53661:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 27 )))|(((-(*_FUNC_IDEDISPLAYBOX_LONG_FOCUS== 11 ))&(-(*_FUNC_IDEDISPLAYBOX_LONG_INFO!= 0 ))))))||new_error){ +if(qbevent){evnt(26070,16241,"ide_methods.bas");if(r)goto S_53661;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,16241,"ide_methods.bas");}while(r); +} +S_53664:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 13 )))|(((-(*_FUNC_IDEDISPLAYBOX_LONG_FOCUS== 10 ))&(-(*_FUNC_IDEDISPLAYBOX_LONG_INFO!= 0 ))))))||new_error){ +if(qbevent){evnt(26070,16242,"ide_methods.bas");if(r)goto S_53664;} +do{ +*_FUNC_IDEDISPLAYBOX_LONG_X= 0 ; +if(!qbevent)break;evnt(26070,16244,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEDISPLAYBOX_STRING_V,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16247,"ide_methods.bas");}while(r); +S_53667:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEDISPLAYBOX_STRING_V,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,16247,"ide_methods.bas");if(r)goto S_53667;} +do{ +qbs_set(_FUNC_IDEDISPLAYBOX_STRING_V,qbs_new_txt_len("0",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16247,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEDISPLAYBOX_INTEGER_V=qbr_float_to_long(func_val(_FUNC_IDEDISPLAYBOX_STRING_V)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16248,"ide_methods.bas");}while(r); +S_53671:; +if ((-(*_FUNC_IDEDISPLAYBOX_INTEGER_V< 8 ))||new_error){ +if(qbevent){evnt(26070,16249,"ide_methods.bas");if(r)goto S_53671;} +do{ +*_FUNC_IDEDISPLAYBOX_INTEGER_V= 8 ; +if(!qbevent)break;evnt(26070,16249,"ide_methods.bas");}while(r); +} +S_53674:; +if ((-(*_FUNC_IDEDISPLAYBOX_INTEGER_V> 99 ))||new_error){ +if(qbevent){evnt(26070,16250,"ide_methods.bas");if(r)goto S_53674;} +do{ +*_FUNC_IDEDISPLAYBOX_INTEGER_V= 99 ; +if(!qbevent)break;evnt(26070,16250,"ide_methods.bas");}while(r); +} +S_53677:; +if ((-(*_FUNC_IDEDISPLAYBOX_INTEGER_V!=*__LONG_IDECUSTOMFONTHEIGHT))||new_error){ +if(qbevent){evnt(26070,16251,"ide_methods.bas");if(r)goto S_53677;} +do{ +*_FUNC_IDEDISPLAYBOX_LONG_X= 1 ; +if(!qbevent)break;evnt(26070,16251,"ide_methods.bas");}while(r); +} +S_53680:; +if ((-(*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 6 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+64))!=*__BYTE_IDE_USEFONT8))||new_error){ +if(qbevent){evnt(26070,16253,"ide_methods.bas");if(r)goto S_53680;} +do{ +*__BYTE_IDE_USEFONT8=*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 6 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26070,16254,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEDISPLAYBOX_LONG_IDEDISPLAYBOX= 1 ; +if(!qbevent)break;evnt(26070,16255,"ide_methods.bas");}while(r); +} +S_53684:; +if ((-(*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 7 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+64))!=*__LONG_IDECUSTOMFONT))||new_error){ +if(qbevent){evnt(26070,16258,"ide_methods.bas");if(r)goto S_53684;} +S_53685:; +if ((-(*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 7 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+64))== 0 ))||new_error){ +if(qbevent){evnt(26070,16259,"ide_methods.bas");if(r)goto S_53685;} +S_53686:; +if ((*__BYTE_IDE_USEFONT8)||new_error){ +if(qbevent){evnt(26070,16260,"ide_methods.bas");if(r)goto S_53686;} +do{ +sub__font( 8 ,NULL,0); +if(!qbevent)break;evnt(26070,16260,"ide_methods.bas");}while(r); +}else{ +do{ +sub__font( 16 ,NULL,0); +if(!qbevent)break;evnt(26070,16260,"ide_methods.bas");}while(r); +} +do{ +sub__freefont(*__LONG_IDECUSTOMFONTHANDLE); +if(!qbevent)break;evnt(26070,16261,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_IDEDISPLAYBOX_LONG_X= 1 ; +if(!qbevent)break;evnt(26070,16263,"ide_methods.bas");}while(r); +} +} +do{ +qbs_set(_FUNC_IDEDISPLAYBOX_STRING_V,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 8 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16268,"ide_methods.bas");}while(r); +S_53697:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_IDEDISPLAYBOX_STRING_V,__STRING_IDECUSTOMFONTFILE)))||new_error){ +if(qbevent){evnt(26070,16268,"ide_methods.bas");if(r)goto S_53697;} +do{ +*_FUNC_IDEDISPLAYBOX_LONG_X= 1 ; +if(!qbevent)break;evnt(26070,16268,"ide_methods.bas");}while(r); +} +S_53700:; +if (((-(*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 7 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+64))== 1 ))&(-(*_FUNC_IDEDISPLAYBOX_LONG_X== 1 )))||new_error){ +if(qbevent){evnt(26070,16270,"ide_methods.bas");if(r)goto S_53700;} +do{ +*_FUNC_IDEDISPLAYBOX_LONG_OLDHANDLE=*__LONG_IDECUSTOMFONTHANDLE; +if(!qbevent)break;evnt(26070,16271,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECUSTOMFONTHANDLE=func__loadfont(_FUNC_IDEDISPLAYBOX_STRING_V,*_FUNC_IDEDISPLAYBOX_INTEGER_V,qbs_new_txt_len("MONOSPACE",9),NULL,0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16272,"ide_methods.bas");}while(r); +S_53703:; +if ((-(*__LONG_IDECUSTOMFONTHANDLE== -1 ))||new_error){ +if(qbevent){evnt(26070,16273,"ide_methods.bas");if(r)goto S_53703;} +do{ +*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 7 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+64))= 0 ; +if(!qbevent)break;evnt(26070,16275,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 8 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),qbs_new_txt_len("C:\\Windows\\Fonts\\lucon.ttf",26)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16275,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),qbs_new_txt_len("21",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16275,"ide_methods.bas");}while(r); +S_53707:; +if ((*__BYTE_IDE_USEFONT8)||new_error){ +if(qbevent){evnt(26070,16275,"ide_methods.bas");if(r)goto S_53707;} +do{ +sub__font( 8 ,NULL,0); +if(!qbevent)break;evnt(26070,16275,"ide_methods.bas");}while(r); +}else{ +do{ +sub__font( 16 ,NULL,0); +if(!qbevent)break;evnt(26070,16275,"ide_methods.bas");}while(r); +} +}else{ +do{ +sub__font(*__LONG_IDECUSTOMFONTHANDLE,NULL,0); +if(!qbevent)break;evnt(26070,16277,"ide_methods.bas");}while(r); +} +S_53715:; +if ((-(*__LONG_IDECUSTOMFONT== 1 ))||new_error){ +if(qbevent){evnt(26070,16279,"ide_methods.bas");if(r)goto S_53715;} +do{ +sub__freefont(*_FUNC_IDEDISPLAYBOX_LONG_OLDHANDLE); +if(!qbevent)break;evnt(26070,16279,"ide_methods.bas");}while(r); +} +} +do{ +qbs_set(_FUNC_IDEDISPLAYBOX_STRING_V,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16283,"ide_methods.bas");}while(r); +S_53720:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEDISPLAYBOX_STRING_V,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,16283,"ide_methods.bas");if(r)goto S_53720;} +do{ +qbs_set(_FUNC_IDEDISPLAYBOX_STRING_V,qbs_new_txt_len("0",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16283,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEDISPLAYBOX_INTEGER_V=qbr_float_to_long(func_val(_FUNC_IDEDISPLAYBOX_STRING_V)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16284,"ide_methods.bas");}while(r); +S_53724:; +if ((-(*_FUNC_IDEDISPLAYBOX_INTEGER_V< 80 ))||new_error){ +if(qbevent){evnt(26070,16285,"ide_methods.bas");if(r)goto S_53724;} +do{ +*_FUNC_IDEDISPLAYBOX_INTEGER_V= 80 ; +if(!qbevent)break;evnt(26070,16285,"ide_methods.bas");}while(r); +} +S_53727:; +if ((-(*_FUNC_IDEDISPLAYBOX_INTEGER_V> 999 ))||new_error){ +if(qbevent){evnt(26070,16286,"ide_methods.bas");if(r)goto S_53727;} +do{ +*_FUNC_IDEDISPLAYBOX_INTEGER_V= 999 ; +if(!qbevent)break;evnt(26070,16286,"ide_methods.bas");}while(r); +} +S_53730:; +if ((-(*_FUNC_IDEDISPLAYBOX_INTEGER_V!=*__LONG_IDEWX))||new_error){ +if(qbevent){evnt(26070,16287,"ide_methods.bas");if(r)goto S_53730;} +do{ +*_FUNC_IDEDISPLAYBOX_LONG_IDEDISPLAYBOX= 1 ; +if(!qbevent)break;evnt(26070,16287,"ide_methods.bas");}while(r); +} +do{ +*__LONG_IDEWX=*_FUNC_IDEDISPLAYBOX_INTEGER_V; +if(!qbevent)break;evnt(26070,16288,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEDISPLAYBOX_STRING_V,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16291,"ide_methods.bas");}while(r); +S_53735:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEDISPLAYBOX_STRING_V,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,16291,"ide_methods.bas");if(r)goto S_53735;} +do{ +qbs_set(_FUNC_IDEDISPLAYBOX_STRING_V,qbs_new_txt_len("0",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16291,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEDISPLAYBOX_INTEGER_V=qbr_float_to_long(func_val(_FUNC_IDEDISPLAYBOX_STRING_V)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16292,"ide_methods.bas");}while(r); +S_53739:; +if ((-(*_FUNC_IDEDISPLAYBOX_INTEGER_V< 25 ))||new_error){ +if(qbevent){evnt(26070,16293,"ide_methods.bas");if(r)goto S_53739;} +do{ +*_FUNC_IDEDISPLAYBOX_INTEGER_V= 25 ; +if(!qbevent)break;evnt(26070,16293,"ide_methods.bas");}while(r); +} +S_53742:; +if ((-(*_FUNC_IDEDISPLAYBOX_INTEGER_V> 999 ))||new_error){ +if(qbevent){evnt(26070,16294,"ide_methods.bas");if(r)goto S_53742;} +do{ +*_FUNC_IDEDISPLAYBOX_INTEGER_V= 999 ; +if(!qbevent)break;evnt(26070,16294,"ide_methods.bas");}while(r); +} +S_53745:; +if ((-(*_FUNC_IDEDISPLAYBOX_INTEGER_V!=*__LONG_IDEWY))||new_error){ +if(qbevent){evnt(26070,16295,"ide_methods.bas");if(r)goto S_53745;} +do{ +*_FUNC_IDEDISPLAYBOX_LONG_IDEDISPLAYBOX= 1 ; +if(!qbevent)break;evnt(26070,16295,"ide_methods.bas");}while(r); +} +do{ +*__LONG_IDEWY=*_FUNC_IDEDISPLAYBOX_INTEGER_V-*__LONG_IDESUBWINDOW; +if(!qbevent)break;evnt(26070,16296,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEDISPLAYBOX_INTEGER_V=*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26070,16298,"ide_methods.bas");}while(r); +S_53750:; +if ((-(*_FUNC_IDEDISPLAYBOX_INTEGER_V!= 0 ))||new_error){ +if(qbevent){evnt(26070,16299,"ide_methods.bas");if(r)goto S_53750;} +do{ +*_FUNC_IDEDISPLAYBOX_INTEGER_V= -1 ; +if(!qbevent)break;evnt(26070,16299,"ide_methods.bas");}while(r); +} +do{ +*__BYTE_IDE_AUTOPOSITION=*_FUNC_IDEDISPLAYBOX_INTEGER_V; +if(!qbevent)break;evnt(26070,16300,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEDISPLAYBOX_INTEGER_V=*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 7 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26070,16302,"ide_methods.bas");}while(r); +S_53755:; +if ((-(*_FUNC_IDEDISPLAYBOX_INTEGER_V!= 0 ))||new_error){ +if(qbevent){evnt(26070,16303,"ide_methods.bas");if(r)goto S_53755;} +do{ +*_FUNC_IDEDISPLAYBOX_INTEGER_V= 1 ; +if(!qbevent)break;evnt(26070,16303,"ide_methods.bas");}while(r); +} +do{ +*__LONG_IDECUSTOMFONT=*_FUNC_IDEDISPLAYBOX_INTEGER_V; +if(!qbevent)break;evnt(26070,16304,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEDISPLAYBOX_STRING_V,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 8 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16306,"ide_methods.bas");}while(r); +S_53760:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDEDISPLAYBOX_STRING_V->len> 1024 )))||new_error){ +if(qbevent){evnt(26070,16307,"ide_methods.bas");if(r)goto S_53760;} +do{ +qbs_set(_FUNC_IDEDISPLAYBOX_STRING_V,qbs_left(_FUNC_IDEDISPLAYBOX_STRING_V, 1024 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16307,"ide_methods.bas");}while(r); +} +do{ +qbs_set(__STRING_IDECUSTOMFONTFILE,_FUNC_IDEDISPLAYBOX_STRING_V); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16308,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEDISPLAYBOX_STRING_V,qbs_add(_FUNC_IDEDISPLAYBOX_STRING_V,func_space( 1024 -_FUNC_IDEDISPLAYBOX_STRING_V->len))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16309,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEDISPLAYBOX_STRING_V,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[4],_FUNC_IDEDISPLAYBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16311,"ide_methods.bas");}while(r); +S_53766:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEDISPLAYBOX_STRING_V,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,16311,"ide_methods.bas");if(r)goto S_53766;} +do{ +qbs_set(_FUNC_IDEDISPLAYBOX_STRING_V,qbs_new_txt_len("0",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16311,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEDISPLAYBOX_INTEGER_V=qbr_float_to_long(func_val(_FUNC_IDEDISPLAYBOX_STRING_V)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16312,"ide_methods.bas");}while(r); +S_53770:; +if ((-(*_FUNC_IDEDISPLAYBOX_INTEGER_V< 8 ))||new_error){ +if(qbevent){evnt(26070,16313,"ide_methods.bas");if(r)goto S_53770;} +do{ +*_FUNC_IDEDISPLAYBOX_INTEGER_V= 8 ; +if(!qbevent)break;evnt(26070,16313,"ide_methods.bas");}while(r); +} +S_53773:; +if ((-(*_FUNC_IDEDISPLAYBOX_INTEGER_V> 99 ))||new_error){ +if(qbevent){evnt(26070,16314,"ide_methods.bas");if(r)goto S_53773;} +do{ +*_FUNC_IDEDISPLAYBOX_INTEGER_V= 99 ; +if(!qbevent)break;evnt(26070,16314,"ide_methods.bas");}while(r); +} +do{ +*__LONG_IDECUSTOMFONTHEIGHT=*_FUNC_IDEDISPLAYBOX_INTEGER_V; +if(!qbevent)break;evnt(26070,16315,"ide_methods.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_WINDOWSETTINGSSECTION,qbs_new_txt_len("IDE_Width",9),qbs_str((int32)(*__LONG_IDEWX))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16318,"ide_methods.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_WINDOWSETTINGSSECTION,qbs_new_txt_len("IDE_Height",10),qbs_str((int32)(*__LONG_IDEWY))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16319,"ide_methods.bas");}while(r); +S_53779:; +if ((*__LONG_IDECUSTOMFONT)||new_error){ +if(qbevent){evnt(26070,16320,"ide_methods.bas");if(r)goto S_53779;} +do{ +SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_CustomFont",14),qbs_new_txt_len("True",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16321,"ide_methods.bas");}while(r); +}else{ +do{ +SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_CustomFont",14),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16323,"ide_methods.bas");}while(r); +} +S_53784:; +if ((*__BYTE_IDE_USEFONT8)||new_error){ +if(qbevent){evnt(26070,16325,"ide_methods.bas");if(r)goto S_53784;} +do{ +SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_UseFont8",12),qbs_new_txt_len("True",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16326,"ide_methods.bas");}while(r); +}else{ +do{ +SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_UseFont8",12),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16328,"ide_methods.bas");}while(r); +} +S_53789:; +if ((*__BYTE_IDE_AUTOPOSITION)||new_error){ +if(qbevent){evnt(26070,16330,"ide_methods.bas");if(r)goto S_53789;} +do{ +SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_AutoPosition",16),qbs_new_txt_len("True",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16331,"ide_methods.bas");}while(r); +}else{ +do{ +SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_AutoPosition",16),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16333,"ide_methods.bas");}while(r); +} +do{ +SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_CustomFont$",15),__STRING_IDECUSTOMFONTFILE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16335,"ide_methods.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_CustomFontSize",18),qbs_str((int32)(*__LONG_IDECUSTOMFONTHEIGHT))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16336,"ide_methods.bas");}while(r); +do{ +*__LONG_IDENORMALCURSORSTART=*_FUNC_IDEDISPLAYBOX_LONG_TMPNORMALCURSORSTART; +if(!qbevent)break;evnt(26070,16338,"ide_methods.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_NormalCursorStart",21),FUNC_STR2(__LONG_IDENORMALCURSORSTART)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16339,"ide_methods.bas");}while(r); +do{ +*__LONG_IDENORMALCURSOREND=*_FUNC_IDEDISPLAYBOX_LONG_TMPNORMALCURSOREND; +if(!qbevent)break;evnt(26070,16341,"ide_methods.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_DISPLAYSETTINGSSECTION,qbs_new_txt_len("IDE_NormalCursorEnd",19),FUNC_STR2(__LONG_IDENORMALCURSOREND)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16342,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,16343,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEDISPLAYBOX_LONG_MOUSEDOWN= 0 ; +if(!qbevent)break;evnt(26070,16348,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEDISPLAYBOX_LONG_MOUSEUP= 0 ; +if(!qbevent)break;evnt(26070,16349,"ide_methods.bas");}while(r); +dl_continue_5907:; +}while(1); +dl_exit_5907:; +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free237.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +return *_FUNC_IDEDISPLAYBOX_LONG_IDEDISPLAYBOX; +} +int32 FUNC_IDECHOOSECOLORSBOX(){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data238.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +if(!qbevent)break;evnt(26070,16354,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26070,16355,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26070,16356,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26070,16357,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26070,16358,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_TOTALITEMS= 10 ; +if(!qbevent)break;evnt(26070,16360,"ide_methods.bas");}while(r); +do{ if (_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[2]&2){ error(10); @@ -181295,53 +181295,53 @@ while(tmp_long--) ((uint64*)(_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDI while(tmp_long--) ((uint64*)(_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -} -if(!qbevent)break;evnt(26070,16361,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDECOMMENTCOLOR=*__ULONG_IDECOMMENTCOLOR; -if(!qbevent)break;evnt(26070,16362,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDEMETACOMMANDCOLOR=*__ULONG_IDEMETACOMMANDCOLOR; -if(!qbevent)break;evnt(26070,16363,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDEQUOTECOLOR=*__ULONG_IDEQUOTECOLOR; -if(!qbevent)break;evnt(26070,16364,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDETEXTCOLOR=*__ULONG_IDETEXTCOLOR; -if(!qbevent)break;evnt(26070,16365,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDEKEYWORDCOLOR=*__ULONG_IDEKEYWORDCOLOR; -if(!qbevent)break;evnt(26070,16366,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDENUMBERSCOLOR=*__ULONG_IDENUMBERSCOLOR; -if(!qbevent)break;evnt(26070,16367,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDEBACKGROUNDCOLOR=*__ULONG_IDEBACKGROUNDCOLOR; -if(!qbevent)break;evnt(26070,16368,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDEBACKGROUNDCOLOR2=*__ULONG_IDEBACKGROUNDCOLOR2; -if(!qbevent)break;evnt(26070,16369,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDEBRACKETHIGHLIGHTCOLOR=*__ULONG_IDEBRACKETHIGHLIGHTCOLOR; -if(!qbevent)break;evnt(26070,16370,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDECHROMACOLOR=*__ULONG_IDECHROMACOLOR; -if(!qbevent)break;evnt(26070,16371,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 0 , 2 ); -if(!qbevent)break;evnt(26070,16374,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 0 , 1 ); -if(!qbevent)break;evnt(26070,16375,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,16376,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(26070,16377,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(26070,16378,"ide_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26070,16361,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDECOMMENTCOLOR=*__ULONG_IDECOMMENTCOLOR; +if(!qbevent)break;evnt(26070,16362,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDEMETACOMMANDCOLOR=*__ULONG_IDEMETACOMMANDCOLOR; +if(!qbevent)break;evnt(26070,16363,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDEQUOTECOLOR=*__ULONG_IDEQUOTECOLOR; +if(!qbevent)break;evnt(26070,16364,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDETEXTCOLOR=*__ULONG_IDETEXTCOLOR; +if(!qbevent)break;evnt(26070,16365,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDEKEYWORDCOLOR=*__ULONG_IDEKEYWORDCOLOR; +if(!qbevent)break;evnt(26070,16366,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDENUMBERSCOLOR=*__ULONG_IDENUMBERSCOLOR; +if(!qbevent)break;evnt(26070,16367,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDEBACKGROUNDCOLOR=*__ULONG_IDEBACKGROUNDCOLOR; +if(!qbevent)break;evnt(26070,16368,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDEBACKGROUNDCOLOR2=*__ULONG_IDEBACKGROUNDCOLOR2; +if(!qbevent)break;evnt(26070,16369,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDEBRACKETHIGHLIGHTCOLOR=*__ULONG_IDEBRACKETHIGHLIGHTCOLOR; +if(!qbevent)break;evnt(26070,16370,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDECHROMACOLOR=*__ULONG_IDECHROMACOLOR; +if(!qbevent)break;evnt(26070,16371,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 0 , 2 ); +if(!qbevent)break;evnt(26070,16374,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 0 , 1 ); +if(!qbevent)break;evnt(26070,16375,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,16376,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS= 1 ; +if(!qbevent)break;evnt(26070,16377,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26070,16378,"ide_methods.bas");}while(r); +do{ if (_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[2]&2){ error(10); @@ -181361,3078 +181361,3078 @@ if (!_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0]) error(257); } _FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[2]|=1; } -} -if(!qbevent)break;evnt(26070,16379,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(26070,16380,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING1_SEP,func_chr( 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16381,"ide_methods.bas");}while(r); -do{ -SUB_LOADCOLORSCHEMES(); -if(!qbevent)break;evnt(26070,16385,"ide_methods.bas");}while(r); -do{ -sub__palettecolor( 5 , -16734208 , 0 ,1); -if(!qbevent)break;evnt(26070,16386,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_I= 0 ; -if(!qbevent)break;evnt(26070,16388,"ide_methods.bas");}while(r); -do{ -SUB_IDEPAR((void*)( ((char*)(_FUNC_IDECHOOSECOLORSBOX_UDT_P)) + (0) ),&(pass5943= 73 ),&(pass5944= 20 ),qbs_new_txt_len("IDE Colors",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16389,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_L,qbs_add(func_chr( 16 ),qbs_new_txt_len("Normal Text",11))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16391,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_L,qbs_add(qbs_add(_FUNC_IDECHOOSECOLORSBOX_STRING_L,_FUNC_IDECHOOSECOLORSBOX_STRING1_SEP),qbs_new_txt_len(" Keywords",9))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16392,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_L,qbs_add(qbs_add(_FUNC_IDECHOOSECOLORSBOX_STRING_L,_FUNC_IDECHOOSECOLORSBOX_STRING1_SEP),qbs_new_txt_len(" Numbers",8))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16393,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_L,qbs_add(qbs_add(_FUNC_IDECHOOSECOLORSBOX_STRING_L,_FUNC_IDECHOOSECOLORSBOX_STRING1_SEP),qbs_new_txt_len(" Strings",8))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16394,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_L,qbs_add(qbs_add(_FUNC_IDECHOOSECOLORSBOX_STRING_L,_FUNC_IDECHOOSECOLORSBOX_STRING1_SEP),qbs_new_txt_len(" Metacommand/custom keywords",28))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16395,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_L,qbs_add(qbs_add(_FUNC_IDECHOOSECOLORSBOX_STRING_L,_FUNC_IDECHOOSECOLORSBOX_STRING1_SEP),qbs_new_txt_len(" Comments",9))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16396,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_L,qbs_add(qbs_add(_FUNC_IDECHOOSECOLORSBOX_STRING_L,_FUNC_IDECHOOSECOLORSBOX_STRING1_SEP),qbs_new_txt_len(" Background",11))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16397,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_L,qbs_add(qbs_add(_FUNC_IDECHOOSECOLORSBOX_STRING_L,_FUNC_IDECHOOSECOLORSBOX_STRING1_SEP),qbs_new_txt_len(" Current line background",24))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16398,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_L,qbs_add(qbs_add(_FUNC_IDECHOOSECOLORSBOX_STRING_L,_FUNC_IDECHOOSECOLORSBOX_STRING1_SEP),qbs_new_txt_len(" Bracket/selection highlight",28))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16399,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_L,qbs_add(qbs_add(_FUNC_IDECHOOSECOLORSBOX_STRING_L,_FUNC_IDECHOOSECOLORSBOX_STRING1_SEP),qbs_new_txt_len(" Menus and dialogs",18))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16400,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,16401,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+36))= 2 ; -if(!qbevent)break;evnt(26070,16402,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+24))= 4 ; -if(!qbevent)break;evnt(26070,16403,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+28))= 30 ; -if(!qbevent)break;evnt(26070,16404,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+32))= 10 ; -if(!qbevent)break;evnt(26070,16404,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDECHOOSECOLORSBOX_STRING_L); -if(!qbevent)break;evnt(26070,16405,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+64))= 1 ; -if(!qbevent)break;evnt(26070,16406,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM= 1 ; -if(!qbevent)break;evnt(26070,16407,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_PREVFOCUS= 1 ; -if(!qbevent)break;evnt(26070,16408,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Item:",6)); -if(!qbevent)break;evnt(26070,16409,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_A2,FUNC_STR2(&(pass5945=func__red32(*__ULONG_IDETEXTCOLOR)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16411,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,16412,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+36))= 1 ; -if(!qbevent)break;evnt(26070,16413,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+20))= 66 ; -if(!qbevent)break;evnt(26070,16414,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+24))= 5 ; -if(!qbevent)break;evnt(26070,16415,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDECHOOSECOLORSBOX_STRING_A2); -if(!qbevent)break;evnt(26070,16416,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+81))=_FUNC_IDECHOOSECOLORSBOX_STRING_A2->len; -if(!qbevent)break;evnt(26070,16417,"ide_methods.bas");}while(r); -do{ -*(int8*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+76))= -1 ; -if(!qbevent)break;evnt(26070,16418,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+77))= 0 ; -if(!qbevent)break;evnt(26070,16419,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_A2,FUNC_STR2(&(pass5947=func__green32(*__ULONG_IDETEXTCOLOR)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16421,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,16422,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+36))= 1 ; -if(!qbevent)break;evnt(26070,16423,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+20))= 66 ; -if(!qbevent)break;evnt(26070,16424,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+24))= 8 ; -if(!qbevent)break;evnt(26070,16425,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDECHOOSECOLORSBOX_STRING_A2); -if(!qbevent)break;evnt(26070,16426,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+81))=_FUNC_IDECHOOSECOLORSBOX_STRING_A2->len; -if(!qbevent)break;evnt(26070,16427,"ide_methods.bas");}while(r); -do{ -*(int8*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+76))= -1 ; -if(!qbevent)break;evnt(26070,16428,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+77))= 0 ; -if(!qbevent)break;evnt(26070,16429,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_A2,FUNC_STR2(&(pass5949=func__blue32(*__ULONG_IDETEXTCOLOR)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16431,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,16432,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+36))= 1 ; -if(!qbevent)break;evnt(26070,16433,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+20))= 66 ; -if(!qbevent)break;evnt(26070,16434,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+24))= 11 ; -if(!qbevent)break;evnt(26070,16435,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDECHOOSECOLORSBOX_STRING_A2); -if(!qbevent)break;evnt(26070,16436,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+81))=_FUNC_IDECHOOSECOLORSBOX_STRING_A2->len; -if(!qbevent)break;evnt(26070,16437,"ide_methods.bas");}while(r); -do{ -*(int8*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+76))= -1 ; -if(!qbevent)break;evnt(26070,16438,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+77))= 0 ; -if(!qbevent)break;evnt(26070,16439,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,16441,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+36))= 4 ; -if(!qbevent)break;evnt(26070,16442,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+24))= 16 ; -if(!qbevent)break;evnt(26070,16443,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Highlight brackets",19)); -if(!qbevent)break;evnt(26070,16444,"ide_methods.bas");}while(r); -S_53885:; -if ((*__INTEGER_BRACKETHIGHLIGHT)||new_error){ -if(qbevent){evnt(26070,16445,"ide_methods.bas");if(r)goto S_53885;} -do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+64))= 1 ; -if(!qbevent)break;evnt(26070,16445,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,16447,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+36))= 4 ; -if(!qbevent)break;evnt(26070,16448,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+24))= 17 ; -if(!qbevent)break;evnt(26070,16449,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Multi-highlight (selection)",28)); -if(!qbevent)break;evnt(26070,16450,"ide_methods.bas");}while(r); -S_53892:; -if ((*__INTEGER_MULTIHIGHLIGHT)||new_error){ -if(qbevent){evnt(26070,16451,"ide_methods.bas");if(r)goto S_53892;} -do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+64))= 1 ; -if(!qbevent)break;evnt(26070,16451,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,16453,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+36))= 4 ; -if(!qbevent)break;evnt(26070,16454,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+24))= 18 ; -if(!qbevent)break;evnt(26070,16455,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("Highlight #keywords and numbers",31)); -if(!qbevent)break;evnt(26070,16456,"ide_methods.bas");}while(r); -S_53899:; -if ((*__INTEGER_KEYWORDHIGHLIGHT)||new_error){ -if(qbevent){evnt(26070,16457,"ide_methods.bas");if(r)goto S_53899;} -do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+64))= 1 ; -if(!qbevent)break;evnt(26070,16457,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,16459,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+36))= 3 ; -if(!qbevent)break;evnt(26070,16460,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+24))= 20 ; -if(!qbevent)break;evnt(26070,16461,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("#OK",3),_FUNC_IDECHOOSECOLORSBOX_STRING1_SEP),qbs_new_txt_len("Restore #Defaults",17)),_FUNC_IDECHOOSECOLORSBOX_STRING1_SEP),qbs_new_txt_len("#Cancel",7))); -if(!qbevent)break;evnt(26070,16462,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+48))= 1 ; -if(!qbevent)break;evnt(26070,16463,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_RESULT=FUNC_READCONFIGSETTING(__STRING_COLORSETTINGSSECTION,qbs_new_txt_len("SchemeID",8),_FUNC_IDECHOOSECOLORSBOX_STRING_VALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16465,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID=qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_VALUE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16466,"ide_methods.bas");}while(r); -S_53909:; -if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID>*__INTEGER_TOTALCOLORSCHEMES))||new_error){ -if(qbevent){evnt(26070,16467,"ide_methods.bas");if(r)goto S_53909;} -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID= 0 ; -if(!qbevent)break;evnt(26070,16467,"ide_methods.bas");}while(r); -} -S_53912:; -if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID== 0 ))||new_error){ -if(qbevent){evnt(26070,16469,"ide_methods.bas");if(r)goto S_53912;} -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_A2,qbs_new_txt_len("User-defined",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16470,"ide_methods.bas");}while(r); -}else{ -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_FOUNDPIPE=func_instr(NULL,((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5])])),qbs_new_txt_len("|",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16473,"ide_methods.bas");}while(r); -S_53916:; -if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOUNDPIPE> 0 ))||new_error){ -if(qbevent){evnt(26070,16474,"ide_methods.bas");if(r)goto S_53916;} -S_53917:; -if ((qbs_cleanup(qbs_tmp_base,-(((int32)(func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5])])),*_FUNC_IDECHOOSECOLORSBOX_LONG_FOUNDPIPE+ 1 ,NULL,0))->len)== 90 )))||new_error){ -if(qbevent){evnt(26070,16475,"ide_methods.bas");if(r)goto S_53917;} -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_A2,qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5])])),*_FUNC_IDECHOOSECOLORSBOX_LONG_FOUNDPIPE- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16476,"ide_methods.bas");}while(r); -}else{ -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID= 0 ; -if(!qbevent)break;evnt(26070,16478,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_A2,qbs_new_txt_len("User-defined",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16479,"ide_methods.bas");}while(r); -} -}else{ -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID= 0 ; -if(!qbevent)break;evnt(26070,16482,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_A2,qbs_new_txt_len("User-defined",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16483,"ide_methods.bas");}while(r); -} -} -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,16486,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+36))= 1 ; -if(!qbevent)break;evnt(26070,16487,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+20))= 9 ; -if(!qbevent)break;evnt(26070,16488,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+24))= 2 ; -if(!qbevent)break;evnt(26070,16489,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+28))= 38 ; -if(!qbevent)break;evnt(26070,16490,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Scheme",7)); -if(!qbevent)break;evnt(26070,16491,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDECHOOSECOLORSBOX_STRING_A2); -if(!qbevent)break;evnt(26070,16492,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+81))=_FUNC_IDECHOOSECOLORSBOX_STRING_A2->len; -if(!qbevent)break;evnt(26070,16493,"ide_methods.bas");}while(r); -S_53936:; -fornext_value5953= 1 ; -fornext_finalvalue5953= 100 ; -fornext_step5953= 1 ; -if (fornext_step5953<0) fornext_step_negative5953=1; else fornext_step_negative5953=0; -if (new_error) goto fornext_error5953; -goto fornext_entrylabel5953; -while(1){ -fornext_value5953=fornext_step5953+(*_FUNC_IDECHOOSECOLORSBOX_LONG_I); -fornext_entrylabel5953: -*_FUNC_IDECHOOSECOLORSBOX_LONG_I=fornext_value5953; -if (fornext_step_negative5953){ -if (fornext_value5953fornext_finalvalue5953) break; -} -fornext_error5953:; -if(qbevent){evnt(26070,16498,"ide_methods.bas");if(r)goto S_53936;} -do{ -memcpy(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89)+ 0,((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0)+ 0, 20); -if(!qbevent)break;evnt(26070,16498,"ide_methods.bas");}while(r); -fornext_continue_5952:; -} -fornext_exit_5952:; -S_53939:; -do{ -if(qbevent){evnt(26070,16501,"ide_methods.bas");if(r)goto S_53939;} -do{ -SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDECHOOSECOLORSBOX_UDT_P)) + (0) )); -if(!qbevent)break;evnt(26070,16504,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_F= 1 ; -if(!qbevent)break;evnt(26070,16505,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_CX= 0 ; -if(!qbevent)break;evnt(26070,16505,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_CY= 0 ; -if(!qbevent)break;evnt(26070,16505,"ide_methods.bas");}while(r); -S_53944:; -fornext_value5956= 1 ; -fornext_finalvalue5956= 100 ; -fornext_step5956= 1 ; -if (fornext_step5956<0) fornext_step_negative5956=1; else fornext_step_negative5956=0; -if (new_error) goto fornext_error5956; -goto fornext_entrylabel5956; -while(1){ -fornext_value5956=fornext_step5956+(*_FUNC_IDECHOOSECOLORSBOX_LONG_I); -fornext_entrylabel5956: -*_FUNC_IDECHOOSECOLORSBOX_LONG_I=fornext_value5956; -if (fornext_step_negative5956){ -if (fornext_value5956fornext_finalvalue5956) break; -} -fornext_error5956:; -if(qbevent){evnt(26070,16506,"ide_methods.bas");if(r)goto S_53944;} -S_53945:; -if ((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+36)))||new_error){ -if(qbevent){evnt(26070,16507,"ide_methods.bas");if(r)goto S_53945;} -do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+60))=*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS-*_FUNC_IDECHOOSECOLORSBOX_LONG_F; -if(!qbevent)break;evnt(26070,16510,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+52))= 0 ; -if(!qbevent)break;evnt(26070,16511,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+56))= 0 ; -if(!qbevent)break;evnt(26070,16511,"ide_methods.bas");}while(r); -do{ -SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDECHOOSECOLORSBOX_LONG_F); -if(!qbevent)break;evnt(26070,16512,"ide_methods.bas");}while(r); -S_53950:; -if ((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+52)))||new_error){ -if(qbevent){evnt(26070,16513,"ide_methods.bas");if(r)goto S_53950;} -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_CX=*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+52)); -if(!qbevent)break;evnt(26070,16513,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_CY=*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+56)); -if(!qbevent)break;evnt(26070,16513,"ide_methods.bas");}while(r); -} -} -fornext_continue_5955:; -} -fornext_exit_5955:; -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_LASTFOCUS=*_FUNC_IDECHOOSECOLORSBOX_LONG_F- 1 ; -if(!qbevent)break;evnt(26070,16516,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 2 ,*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 2 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(26070,16521,"ide_methods.bas");}while(r); -S_53958:; -if (((-(*__LONG_MY==(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 2 )))&(-(*__LONG_MX>=(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 2 )))&(-(*__LONG_MX<=(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 4 ))))||new_error){ -if(qbevent){evnt(26070,16522,"ide_methods.bas");if(r)goto S_53958;} -do{ -qbg_sub_color( 15 , 0 ,NULL,3); -if(!qbevent)break;evnt(26070,16522,"ide_methods.bas");}while(r); -}else{ -do{ -qbg_sub_color( 15 , 2 ,NULL,3); -if(!qbevent)break;evnt(26070,16522,"ide_methods.bas");}while(r); -} -S_53963:; -if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID<= 1 ))||new_error){ -if(qbevent){evnt(26070,16523,"ide_methods.bas");if(r)goto S_53963;} -do{ -qbg_sub_color( 7 , 2 ,NULL,3); -if(!qbevent)break;evnt(26070,16523,"ide_methods.bas");}while(r); -} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_add(qbs_add(qbs_new_txt_len(" ",1),func_chr( 17 )),qbs_new_txt_len(" ",1))); -if (new_error) goto skip5957; -makefit(tqbs); -qbs_print(tqbs,0); -skip5957: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16524,"ide_methods.bas");}while(r); -S_53967:; -if (((-(*__LONG_MY==(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 2 )))&(-(*__LONG_MX>=(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 5 )))&(-(*__LONG_MX<=(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 7 ))))||new_error){ -if(qbevent){evnt(26070,16525,"ide_methods.bas");if(r)goto S_53967;} -do{ -qbg_sub_color( 15 , 0 ,NULL,3); -if(!qbevent)break;evnt(26070,16525,"ide_methods.bas");}while(r); -}else{ -do{ -qbg_sub_color( 15 , 2 ,NULL,3); -if(!qbevent)break;evnt(26070,16525,"ide_methods.bas");}while(r); -} -S_53972:; -if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID==*__INTEGER_LASTVALIDCOLORSCHEME))||new_error){ -if(qbevent){evnt(26070,16526,"ide_methods.bas");if(r)goto S_53972;} -do{ -qbg_sub_color( 7 , 2 ,NULL,3); -if(!qbevent)break;evnt(26070,16526,"ide_methods.bas");}while(r); -} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_add(qbs_add(qbs_new_txt_len(" ",1),func_chr( 16 )),qbs_new_txt_len(" ",1))); -if (new_error) goto skip5958; -makefit(tqbs); -qbs_print(tqbs,0); -skip5958: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16527,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 2 ,*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 60 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(26070,16530,"ide_methods.bas");}while(r); -S_53977:; -if (((-(*__LONG_MY==(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 2 )))&(-(*__LONG_MX>=(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 60 )))&(-(*__LONG_MX<=(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 65 ))))||new_error){ -if(qbevent){evnt(26070,16531,"ide_methods.bas");if(r)goto S_53977;} -do{ -qbg_sub_color( 15 , 0 ,NULL,3); -if(!qbevent)break;evnt(26070,16531,"ide_methods.bas");}while(r); -}else{ -do{ -qbg_sub_color( 15 , 2 ,NULL,3); -if(!qbevent)break;evnt(26070,16531,"ide_methods.bas");}while(r); -} -S_53982:; -if (((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID> 0 ))&(-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID<=*__INTEGER_PRESETCOLORSCHEMES)))||new_error){ -if(qbevent){evnt(26070,16532,"ide_methods.bas");if(r)goto S_53982;} -do{ -qbg_sub_color( 7 , 2 ,NULL,3); -if(!qbevent)break;evnt(26070,16532,"ide_methods.bas");}while(r); -} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len(" Save ",6)); -if (new_error) goto skip5959; -makefit(tqbs); -qbs_print(tqbs,0); -skip5959: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16533,"ide_methods.bas");}while(r); -S_53986:; -if (((-(*__LONG_MY==(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 2 )))&(-(*__LONG_MX>=(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 66 )))&(-(*__LONG_MX<=(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 72 ))))||new_error){ -if(qbevent){evnt(26070,16534,"ide_methods.bas");if(r)goto S_53986;} -do{ -qbg_sub_color( 15 , 0 ,NULL,3); -if(!qbevent)break;evnt(26070,16534,"ide_methods.bas");}while(r); -}else{ -do{ -qbg_sub_color( 15 , 2 ,NULL,3); -if(!qbevent)break;evnt(26070,16534,"ide_methods.bas");}while(r); -} -S_53991:; -if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID<=*__INTEGER_PRESETCOLORSCHEMES))||new_error){ -if(qbevent){evnt(26070,16535,"ide_methods.bas");if(r)goto S_53991;} -do{ -qbg_sub_color( 7 , 2 ,NULL,3); -if(!qbevent)break;evnt(26070,16535,"ide_methods.bas");}while(r); -} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len(" Erase ",7)); -if (new_error) goto skip5960; -makefit(tqbs); -qbs_print(tqbs,0); -skip5960: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16536,"ide_methods.bas");}while(r); -do{ -qbg_sub_color(NULL, 7 ,NULL,2); -if(!qbevent)break;evnt(26070,16538,"ide_methods.bas");}while(r); -do{ -sub__palettecolor( 1 ,*__ULONG_IDEBACKGROUNDCOLOR, 0 ,1); -if(!qbevent)break;evnt(26070,16540,"ide_methods.bas");}while(r); -do{ -sub__palettecolor( 2 ,func__rgb32( 84 , 84 , 84 ), 0 ,1); -if(!qbevent)break;evnt(26070,16541,"ide_methods.bas");}while(r); -do{ -sub__palettecolor( 4 ,*__ULONG_IDEERRORCOLOR, 0 ,1); -if(!qbevent)break;evnt(26070,16542,"ide_methods.bas");}while(r); -do{ -sub__palettecolor( 6 ,*__ULONG_IDEBACKGROUNDCOLOR2, 0 ,1); -if(!qbevent)break;evnt(26070,16543,"ide_methods.bas");}while(r); -do{ -sub__palettecolor( 7 ,*__ULONG_IDECHROMACOLOR, 0 ,1); -if(!qbevent)break;evnt(26070,16544,"ide_methods.bas");}while(r); -do{ -sub__palettecolor( 8 ,*__ULONG_IDENUMBERSCOLOR, 0 ,1); -if(!qbevent)break;evnt(26070,16545,"ide_methods.bas");}while(r); -do{ -sub__palettecolor( 10 ,*__ULONG_IDEMETACOMMANDCOLOR, 0 ,1); -if(!qbevent)break;evnt(26070,16546,"ide_methods.bas");}while(r); -do{ -sub__palettecolor( 11 ,*__ULONG_IDECOMMENTCOLOR, 0 ,1); -if(!qbevent)break;evnt(26070,16547,"ide_methods.bas");}while(r); -do{ -sub__palettecolor( 12 ,*__ULONG_IDEKEYWORDCOLOR, 0 ,1); -if(!qbevent)break;evnt(26070,16548,"ide_methods.bas");}while(r); -do{ -sub__palettecolor( 13 ,*__ULONG_IDETEXTCOLOR, 0 ,1); -if(!qbevent)break;evnt(26070,16549,"ide_methods.bas");}while(r); -do{ -sub__palettecolor( 14 ,*__ULONG_IDEQUOTECOLOR, 0 ,1); -if(!qbevent)break;evnt(26070,16550,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 0 ,NULL,NULL,1); -if(!qbevent)break;evnt(26070,16552,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 5 ,*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 36 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(26070,16552,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("R: ",3)); -if (new_error) goto skip5961; -makefit(tqbs); -qbs_print(tqbs,0); -skip5961: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16552,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 4 ,NULL,NULL,1); -if(!qbevent)break;evnt(26070,16553,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_string( 26 , 196 )); -if (new_error) goto skip5962; -makefit(tqbs); -qbs_print(tqbs,0); -skip5962: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16553,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_SLIDER,func_chr( 197 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16554,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_T=qbr(func_val(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16555,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_R=qbr(((*_FUNC_IDECHOOSECOLORSBOX_LONG_T/ ((long double)( 255 )))* 26 )); -if(!qbevent)break;evnt(26070,16555,"ide_methods.bas");}while(r); -S_54015:; -if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_T== 0 ))||new_error){ -if(qbevent){evnt(26070,16556,"ide_methods.bas");if(r)goto S_54015;} -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_SLIDER,func_chr( 195 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16556,"ide_methods.bas");}while(r); -} -S_54018:; -if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_T== 255 ))||new_error){ -if(qbevent){evnt(26070,16557,"ide_methods.bas");if(r)goto S_54018;} -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_SLIDER,func_chr( 180 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16557,"ide_methods.bas");}while(r); -} -do{ -sub__printstring(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 39 +*_FUNC_IDECHOOSECOLORSBOX_LONG_R,*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 5 ,_FUNC_IDECHOOSECOLORSBOX_STRING_SLIDER,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16558,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 0 ,NULL,NULL,1); -if(!qbevent)break;evnt(26070,16560,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 8 ,*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 36 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(26070,16560,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("G: ",3)); -if (new_error) goto skip5963; -makefit(tqbs); -qbs_print(tqbs,0); -skip5963: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16560,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 5 ,NULL,NULL,1); -if(!qbevent)break;evnt(26070,16561,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_string( 26 , 196 )); -if (new_error) goto skip5964; -makefit(tqbs); -qbs_print(tqbs,0); -skip5964: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16561,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_SLIDER,func_chr( 197 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16562,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_T=qbr(func_val(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16563,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_R=qbr(((*_FUNC_IDECHOOSECOLORSBOX_LONG_T/ ((long double)( 255 )))* 26 )); -if(!qbevent)break;evnt(26070,16563,"ide_methods.bas");}while(r); -S_54030:; -if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_T== 0 ))||new_error){ -if(qbevent){evnt(26070,16564,"ide_methods.bas");if(r)goto S_54030;} -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_SLIDER,func_chr( 195 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16564,"ide_methods.bas");}while(r); -} -S_54033:; -if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_T== 255 ))||new_error){ -if(qbevent){evnt(26070,16565,"ide_methods.bas");if(r)goto S_54033;} -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_SLIDER,func_chr( 180 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16565,"ide_methods.bas");}while(r); -} -do{ -sub__printstring(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 39 +*_FUNC_IDECHOOSECOLORSBOX_LONG_R,*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 8 ,_FUNC_IDECHOOSECOLORSBOX_STRING_SLIDER,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16566,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 0 ,NULL,NULL,1); -if(!qbevent)break;evnt(26070,16568,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 11 ,*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 36 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(26070,16568,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("B: ",3)); -if (new_error) goto skip5965; -makefit(tqbs); -qbs_print(tqbs,0); -skip5965: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16568,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 9 ,NULL,NULL,1); -if(!qbevent)break;evnt(26070,16569,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_string( 26 , 196 )); -if (new_error) goto skip5966; -makefit(tqbs); -qbs_print(tqbs,0); -skip5966: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16569,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_SLIDER,func_chr( 197 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16570,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_T=qbr(func_val(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 4 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16571,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_R=qbr(((*_FUNC_IDECHOOSECOLORSBOX_LONG_T/ ((long double)( 255 )))* 26 )); -if(!qbevent)break;evnt(26070,16571,"ide_methods.bas");}while(r); -S_54045:; -if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_T== 0 ))||new_error){ -if(qbevent){evnt(26070,16572,"ide_methods.bas");if(r)goto S_54045;} -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_SLIDER,func_chr( 195 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16572,"ide_methods.bas");}while(r); -} -S_54048:; -if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_T== 255 ))||new_error){ -if(qbevent){evnt(26070,16573,"ide_methods.bas");if(r)goto S_54048;} -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_SLIDER,func_chr( 180 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16573,"ide_methods.bas");}while(r); -} -do{ -sub__printstring(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 39 +*_FUNC_IDECHOOSECOLORSBOX_LONG_R,*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 11 ,_FUNC_IDECHOOSECOLORSBOX_STRING_SLIDER,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16574,"ide_methods.bas");}while(r); -S_54052:; -sc_5967_var=0; -if(qbevent){evnt(26070,16576,"ide_methods.bas");if(r)goto S_54052;} -S_54053:; -if ((((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM>=( 1 ))&&(*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM<=( 9 ))))||new_error){ -if(qbevent){evnt(26070,16577,"ide_methods.bas");if(r)goto S_54053;} -do{ -qbg_sub_color( 7 , 1 ,NULL,3); -if(!qbevent)break;evnt(26070,16578,"ide_methods.bas");}while(r); -do{ -sub__printstring(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 39 ,*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 13 ,qbs_add(func_chr( 218 ),func_string( 25 , 196 )),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16579,"ide_methods.bas");}while(r); -do{ -sub__printstring(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 39 ,*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 14 ,qbs_add(func_chr( 179 ),func_space( 25 )),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16580,"ide_methods.bas");}while(r); -do{ -sub__printstring(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 39 ,*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 15 ,qbs_add(func_chr( 179 ),func_space( 25 )),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16581,"ide_methods.bas");}while(r); -sc_ec_378_end:; -sc_5967_var=-1; -} -S_54058:; -if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 1 )))||new_error){ -if(qbevent){evnt(26070,16582,"ide_methods.bas");if(r)goto S_54058;} -do{ -qbg_sub_color( 13 , 1 ,NULL,3); -if(!qbevent)break;evnt(26070,16582,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_SAMPLETEXT,qbs_new_txt_len("myVar% = ",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16582,"ide_methods.bas");}while(r); -sc_ec_379_end:; -sc_5967_var=-1; -} -S_54061:; -if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 2 )))||new_error){ -if(qbevent){evnt(26070,16583,"ide_methods.bas");if(r)goto S_54061;} -do{ -qbg_sub_color( 12 , 1 ,NULL,3); -if(!qbevent)break;evnt(26070,16583,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_SAMPLETEXT,qbs_new_txt_len("CLS: PRINT",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16583,"ide_methods.bas");}while(r); -sc_ec_380_end:; -sc_5967_var=-1; -} -S_54064:; -if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 3 )))||new_error){ -if(qbevent){evnt(26070,16584,"ide_methods.bas");if(r)goto S_54064;} -do{ -qbg_sub_color( 13 , 1 ,NULL,3); -if(!qbevent)break;evnt(26070,16584,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_SAMPLETEXT,qbs_new_txt_len("myVar% = ",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16584,"ide_methods.bas");}while(r); -sc_ec_381_end:; -sc_5967_var=-1; -} -S_54067:; -if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 4 )))||new_error){ -if(qbevent){evnt(26070,16585,"ide_methods.bas");if(r)goto S_54067;} -do{ -qbg_sub_color( 14 , 1 ,NULL,3); -if(!qbevent)break;evnt(26070,16585,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_SAMPLETEXT,qbs_add(qbs_add(qbs_add(func_space( 6 ),func_chr( 34 )),qbs_new_txt_len("Hello, world!",13)),func_chr( 34 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16585,"ide_methods.bas");}while(r); -sc_ec_382_end:; -sc_5967_var=-1; -} -S_54070:; -if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 5 )))||new_error){ -if(qbevent){evnt(26070,16586,"ide_methods.bas");if(r)goto S_54070;} -do{ -qbg_sub_color( 10 , 1 ,NULL,3); -if(!qbevent)break;evnt(26070,16586,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_SAMPLETEXT,qbs_new_txt_len("'$DYNAMIC",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16586,"ide_methods.bas");}while(r); -sc_ec_383_end:; -sc_5967_var=-1; -} -S_54073:; -if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 6 )))||new_error){ -if(qbevent){evnt(26070,16587,"ide_methods.bas");if(r)goto S_54073;} -do{ -qbg_sub_color( 11 , 1 ,NULL,3); -if(!qbevent)break;evnt(26070,16587,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_SAMPLETEXT,qbs_new_txt_len("'TODO: review this block",24)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16587,"ide_methods.bas");}while(r); -sc_ec_384_end:; -sc_5967_var=-1; -} -S_54076:; -if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 7 )))||new_error){ -if(qbevent){evnt(26070,16588,"ide_methods.bas");if(r)goto S_54076;} -do{ -qbg_sub_color( 1 , 1 ,NULL,3); -if(!qbevent)break;evnt(26070,16588,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_SAMPLETEXT,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16588,"ide_methods.bas");}while(r); -sc_ec_385_end:; -sc_5967_var=-1; -} -S_54079:; -if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 8 )))||new_error){ -if(qbevent){evnt(26070,16589,"ide_methods.bas");if(r)goto S_54079;} -do{ -qbg_sub_color( 6 , 6 ,NULL,3); -if(!qbevent)break;evnt(26070,16589,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_SAMPLETEXT,func_space( 25 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16589,"ide_methods.bas");}while(r); -sc_ec_386_end:; -sc_5967_var=-1; -} -S_54082:; -if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 9 )))||new_error){ -if(qbevent){evnt(26070,16590,"ide_methods.bas");if(r)goto S_54082;} -do{ -qbg_sub_color( 6 , 6 ,NULL,3); -if(!qbevent)break;evnt(26070,16591,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_SAMPLETEXT,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16591,"ide_methods.bas");}while(r); -do{ -sub__palettecolor( 6 ,*__ULONG_IDEBRACKETHIGHLIGHTCOLOR, 0 ,1); -if(!qbevent)break;evnt(26070,16592,"ide_methods.bas");}while(r); -sc_ec_387_end:; -sc_5967_var=-1; -} -S_54086:; -if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 10 )))||new_error){ -if(qbevent){evnt(26070,16593,"ide_methods.bas");if(r)goto S_54086;} -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,16594,"ide_methods.bas");}while(r); -do{ -sub__printstring(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 39 ,*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 13 ,qbs_add(qbs_add(func_chr( 218 ),func_string( 24 , 196 )),func_chr( 191 )),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16595,"ide_methods.bas");}while(r); -do{ -sub__printstring(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 39 ,*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 14 ,qbs_add(qbs_add(func_chr( 179 ),func_space( 24 )),func_chr( 179 )),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16596,"ide_methods.bas");}while(r); -do{ -sub__printstring(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 39 ,*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 15 ,qbs_add(qbs_add(func_chr( 192 ),func_string( 24 , 196 )),func_chr( 217 )),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16597,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_SAMPLETEXT,qbs_new_txt_len(" Open... Ctrl+O ",24)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16598,"ide_methods.bas");}while(r); -sc_ec_388_end:; -} -sc_5967_end:; -do{ -sub__printstring(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 40 ,*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 14 ,_FUNC_IDECHOOSECOLORSBOX_STRING_SAMPLETEXT,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16601,"ide_methods.bas");}while(r); -S_54094:; -if (((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM== 1 ))|(-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM== 3 )))||new_error){ -if(qbevent){evnt(26070,16602,"ide_methods.bas");if(r)goto S_54094;} -do{ -qbg_sub_color( 8 , 1 ,NULL,3); -if(!qbevent)break;evnt(26070,16603,"ide_methods.bas");}while(r); -do{ -sub__printstring(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 49 ,*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 14 ,qbs_new_txt_len("5",1),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16604,"ide_methods.bas");}while(r); -S_54097:; -}else{ -if (-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM== 2 )){ -if(qbevent){evnt(26070,16605,"ide_methods.bas");if(r)goto S_54097;} -do{ -qbg_sub_color( 13 , 1 ,NULL,3); -if(!qbevent)break;evnt(26070,16606,"ide_methods.bas");}while(r); -do{ -sub__printstring(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 51 ,*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 14 ,qbs_new_txt_len("myVar%",6),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16607,"ide_methods.bas");}while(r); -S_54100:; -}else{ -if (-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM== 4 )){ -if(qbevent){evnt(26070,16608,"ide_methods.bas");if(r)goto S_54100;} -do{ -qbg_sub_color( 12 , 1 ,NULL,3); -if(!qbevent)break;evnt(26070,16609,"ide_methods.bas");}while(r); -do{ -sub__printstring(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 40 ,*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 14 ,qbs_new_txt_len("PRINT",5),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16610,"ide_methods.bas");}while(r); -S_54103:; -}else{ -if (-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM== 5 )){ -if(qbevent){evnt(26070,16611,"ide_methods.bas");if(r)goto S_54103;} -do{ -qbg_sub_color( 11 , 1 ,NULL,3); -if(!qbevent)break;evnt(26070,16612,"ide_methods.bas");}while(r); -do{ -sub__printstring(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 40 ,*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 14 ,qbs_new_txt_len("'",1),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16613,"ide_methods.bas");}while(r); -S_54106:; -}else{ -if (-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM== 9 )){ -if(qbevent){evnt(26070,16614,"ide_methods.bas");if(r)goto S_54106;} -do{ -qbg_sub_locate(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 14 ,*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 40 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(26070,16615,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 13 , 1 ,NULL,3); -if(!qbevent)break;evnt(26070,16616,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("myVar% = ",9)); -if (new_error) goto skip5968; -makefit(tqbs); -qbs_print(tqbs,0); -skip5968: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16616,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 12 ,NULL,NULL,1); -if(!qbevent)break;evnt(26070,16617,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("INT RND",7)); -if (new_error) goto skip5969; -makefit(tqbs); -qbs_print(tqbs,0); -skip5969: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16617,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 14 ,*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 52 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(26070,16618,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 13 , 6 ,NULL,3); -if(!qbevent)break;evnt(26070,16619,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("(",1)); -if (new_error) goto skip5970; -makefit(tqbs); -qbs_print(tqbs,0); -skip5970: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16619,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 14 ,*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 56 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(26070,16620,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len(")",1)); -if (new_error) goto skip5971; -makefit(tqbs); -qbs_print(tqbs,0); -skip5971: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16621,"ide_methods.bas");}while(r); -S_54117:; -}else{ -if (-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM== 10 )){ -if(qbevent){evnt(26070,16622,"ide_methods.bas");if(r)goto S_54117;} -do{ -qbg_sub_color( 15 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,16623,"ide_methods.bas");}while(r); -do{ -sub__printstring(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 41 ,*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 14 ,qbs_new_txt_len("O",1),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16624,"ide_methods.bas");}while(r); -} -} -} -} -} -} -do{ -sub_pcopy( 1 , 0 ); -if(!qbevent)break;evnt(26070,16629,"ide_methods.bas");}while(r); -S_54122:; -if ((*_FUNC_IDECHOOSECOLORSBOX_LONG_CX)||new_error){ -if(qbevent){evnt(26070,16630,"ide_methods.bas");if(r)goto S_54122;} -do{ -qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,16630,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*_FUNC_IDECHOOSECOLORSBOX_LONG_CY,*_FUNC_IDECHOOSECOLORSBOX_LONG_CX, 1 ,NULL,NULL,7); -if(!qbevent)break;evnt(26070,16630,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,16630,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGE= 0 ; -if(!qbevent)break;evnt(26070,16633,"ide_methods.bas");}while(r); -S_54128:; -do{ -if(qbevent){evnt(26070,16634,"ide_methods.bas");if(r)goto S_54128;} -do{ -SUB_GETINPUT(); -if(!qbevent)break;evnt(26070,16635,"ide_methods.bas");}while(r); -S_54130:; -if ((*__LONG_MWHEEL)||new_error){ -if(qbevent){evnt(26070,16636,"ide_methods.bas");if(r)goto S_54130;} -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,16636,"ide_methods.bas");}while(r); -} -S_54133:; -if ((*__LONG_KB)||new_error){ -if(qbevent){evnt(26070,16637,"ide_methods.bas");if(r)goto S_54133;} -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,16637,"ide_methods.bas");}while(r); -} -S_54136:; -if ((*__LONG_MCLICK)||new_error){ -if(qbevent){evnt(26070,16638,"ide_methods.bas");if(r)goto S_54136;} -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_MOUSEDOWN= 1 ; -if(!qbevent)break;evnt(26070,16638,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,16638,"ide_methods.bas");}while(r); -} -S_54140:; -if ((*__LONG_MRELEASE)||new_error){ -if(qbevent){evnt(26070,16639,"ide_methods.bas");if(r)goto S_54140;} -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_MOUSEUP= 1 ; -if(!qbevent)break;evnt(26070,16639,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,16639,"ide_methods.bas");}while(r); -} -S_54144:; -if ((*__LONG_MB)||new_error){ -if(qbevent){evnt(26070,16640,"ide_methods.bas");if(r)goto S_54144;} -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,16640,"ide_methods.bas");}while(r); -} -S_54147:; -if (((-(*__LONG_MX!=*_FUNC_IDECHOOSECOLORSBOX_LONG_PREV__ASCII_CHR_046__MX))|(-(*__LONG_MY!=*_FUNC_IDECHOOSECOLORSBOX_LONG_PREV__ASCII_CHR_046__MY)))||new_error){ -if(qbevent){evnt(26070,16641,"ide_methods.bas");if(r)goto S_54147;} -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,16641,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_PREV__ASCII_CHR_046__MX=*__LONG_MX; -if(!qbevent)break;evnt(26070,16641,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_PREV__ASCII_CHR_046__MY=*__LONG_MY; -if(!qbevent)break;evnt(26070,16641,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_ALT=*__LONG_KALT; -if(!qbevent)break;evnt(26070,16642,"ide_methods.bas");}while(r); -S_54153:; -if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_ALT!=*_FUNC_IDECHOOSECOLORSBOX_LONG_OLDALT))||new_error){ -if(qbevent){evnt(26070,16642,"ide_methods.bas");if(r)goto S_54153;} -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,16642,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_OLDALT=*_FUNC_IDECHOOSECOLORSBOX_LONG_ALT; -if(!qbevent)break;evnt(26070,16643,"ide_methods.bas");}while(r); -do{ -sub__limit( 100 ); -if(!qbevent)break;evnt(26070,16644,"ide_methods.bas");}while(r); -S_54158:; -dl_continue_5972:; -}while((!(*_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGE))&&(!new_error)); -dl_exit_5972:; -if(qbevent){evnt(26070,16645,"ide_methods.bas");if(r)goto S_54158;} -S_54159:; -if ((*_FUNC_IDECHOOSECOLORSBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(26070,16646,"ide_methods.bas");if(r)goto S_54159;} -do{ -*__LONG_IDEHL= 1 ; -if(!qbevent)break;evnt(26070,16646,"ide_methods.bas");}while(r); -}else{ -do{ -*__LONG_IDEHL= 0 ; -if(!qbevent)break;evnt(26070,16646,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_ALTLETTER,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16648,"ide_methods.bas");}while(r); -S_54165:; -if ((*_FUNC_IDECHOOSECOLORSBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(26070,16649,"ide_methods.bas");if(r)goto S_54165;} -S_54166:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ -if(qbevent){evnt(26070,16650,"ide_methods.bas");if(r)goto S_54166;} -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16651,"ide_methods.bas");}while(r); -S_54168:; -if (((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_K>= 65 ))&(-(*_FUNC_IDECHOOSECOLORSBOX_LONG_K<= 90 )))||new_error){ -if(qbevent){evnt(26070,16652,"ide_methods.bas");if(r)goto S_54168;} -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_ALTLETTER,func_chr(*_FUNC_IDECHOOSECOLORSBOX_LONG_K)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16652,"ide_methods.bas");}while(r); -} -} -} -do{ -qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,16655,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); -if(!qbevent)break;evnt(26070,16655,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,16655,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_INFO= 0 ; -if(!qbevent)break;evnt(26070,16659,"ide_methods.bas");}while(r); -S_54177:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,16660,"ide_methods.bas");if(r)goto S_54177;} -do{ -qbs_set(__STRING_K,func_chr( 255 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16660,"ide_methods.bas");}while(r); -} -S_54180:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ -if(qbevent){evnt(26070,16661,"ide_methods.bas");if(r)goto S_54180;} -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS=*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS+ 1 ; -if(!qbevent)break;evnt(26070,16661,"ide_methods.bas");}while(r); -} -S_54183:; -if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||new_error){ -if(qbevent){evnt(26070,16662,"ide_methods.bas");if(r)goto S_54183;} -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS=*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS- 1 ; -if(!qbevent)break;evnt(26070,16662,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_K,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16662,"ide_methods.bas");}while(r); -} -S_54187:; -if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS< 1 ))||new_error){ -if(qbevent){evnt(26070,16663,"ide_methods.bas");if(r)goto S_54187;} -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS=*_FUNC_IDECHOOSECOLORSBOX_LONG_LASTFOCUS; -if(!qbevent)break;evnt(26070,16663,"ide_methods.bas");}while(r); -} -S_54190:; -if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS>*_FUNC_IDECHOOSECOLORSBOX_LONG_LASTFOCUS))||new_error){ -if(qbevent){evnt(26070,16664,"ide_methods.bas");if(r)goto S_54190;} -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(26070,16664,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_F= 1 ; -if(!qbevent)break;evnt(26070,16665,"ide_methods.bas");}while(r); -S_54194:; -fornext_value5975= 1 ; -fornext_finalvalue5975= 100 ; -fornext_step5975= 1 ; -if (fornext_step5975<0) fornext_step_negative5975=1; else fornext_step_negative5975=0; -if (new_error) goto fornext_error5975; -goto fornext_entrylabel5975; -while(1){ -fornext_value5975=fornext_step5975+(*_FUNC_IDECHOOSECOLORSBOX_LONG_I); -fornext_entrylabel5975: -*_FUNC_IDECHOOSECOLORSBOX_LONG_I=fornext_value5975; -if (fornext_step_negative5975){ -if (fornext_value5975fornext_finalvalue5975) break; -} -fornext_error5975:; -if(qbevent){evnt(26070,16666,"ide_methods.bas");if(r)goto S_54194;} -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_T=*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+36)); -if(!qbevent)break;evnt(26070,16667,"ide_methods.bas");}while(r); -S_54196:; -if ((*_FUNC_IDECHOOSECOLORSBOX_LONG_T)||new_error){ -if(qbevent){evnt(26070,16668,"ide_methods.bas");if(r)goto S_54196;} -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUSOFFSET=*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS-*_FUNC_IDECHOOSECOLORSBOX_LONG_F; -if(!qbevent)break;evnt(26070,16669,"ide_methods.bas");}while(r); -do{ -SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS,_FUNC_IDECHOOSECOLORSBOX_LONG_F,_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDECHOOSECOLORSBOX_STRING_ALTLETTER,__LONG_MB,_FUNC_IDECHOOSECOLORSBOX_LONG_MOUSEDOWN,_FUNC_IDECHOOSECOLORSBOX_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDECHOOSECOLORSBOX_LONG_INFO,__LONG_MWHEEL); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16670,"ide_methods.bas");}while(r); -} -fornext_continue_5974:; -} -fornext_exit_5974:; -S_54201:; -if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS!=*_FUNC_IDECHOOSECOLORSBOX_LONG_PREVFOCUS))||new_error){ -if(qbevent){evnt(26070,16676,"ide_methods.bas");if(r)goto S_54201;} -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_PREVFOCUS=*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS; -if(!qbevent)break;evnt(26070,16678,"ide_methods.bas");}while(r); -S_54203:; -if (((((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS>= 2 ))&(-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS<= 4 ))))|(-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS== 11 )))||new_error){ -if(qbevent){evnt(26070,16679,"ide_methods.bas");if(r)goto S_54203;} -S_54204:; -if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS== 11 ))||new_error){ -if(qbevent){evnt(26070,16680,"ide_methods.bas");if(r)goto S_54204;} -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_TFOCUS= 9 ; -if(!qbevent)break;evnt(26070,16680,"ide_methods.bas");}while(r); -}else{ -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_TFOCUS=*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS; -if(!qbevent)break;evnt(26070,16680,"ide_methods.bas");}while(r); -} -do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_TFOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_TFOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; -if(!qbevent)break;evnt(26070,16681,"ide_methods.bas");}while(r); -S_54210:; -if ((-(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_TFOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+81))> 0 ))||new_error){ -if(qbevent){evnt(26070,16682,"ide_methods.bas");if(r)goto S_54210;} -do{ -*(int8*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_TFOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+76))= -1 ; -if(!qbevent)break;evnt(26070,16682,"ide_methods.bas");}while(r); -} -do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_TFOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+77))= 0 ; -if(!qbevent)break;evnt(26070,16683,"ide_methods.bas");}while(r); -S_54214:; -if ((((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_TFOCUS>= 2 ))&(-(*_FUNC_IDECHOOSECOLORSBOX_LONG_TFOCUS<= 4 ))))||new_error){ -if(qbevent){evnt(26070,16684,"ide_methods.bas");if(r)goto S_54214;} -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_PREVTB__ASCII_CHR_046__VALUE,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_TFOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16684,"ide_methods.bas");}while(r); -} -} -S_54218:; -}else{ -if (-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS==*_FUNC_IDECHOOSECOLORSBOX_LONG_PREVFOCUS)){ -if(qbevent){evnt(26070,16686,"ide_methods.bas");if(r)goto S_54218;} -S_54219:; -if (((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS>= 2 ))&(-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS<= 4 )))||new_error){ -if(qbevent){evnt(26070,16688,"ide_methods.bas");if(r)goto S_54219;} -S_54220:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_IDECHOOSECOLORSBOX_STRING_PREVTB__ASCII_CHR_046__VALUE,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))))||new_error){ -if(qbevent){evnt(26070,16689,"ide_methods.bas");if(r)goto S_54220;} -do{ -return_point[next_return_point++]=173; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_NEWUSERSCHEME; -RETURN_173:; -if(!qbevent)break;evnt(26070,16690,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_PREVTB__ASCII_CHR_046__VALUE,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16691,"ide_methods.bas");}while(r); -} -} -} -} -S_54226:; -if ((((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID== 0 ))|(-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID>*__INTEGER_PRESETCOLORSCHEMES)))&*__LONG_MCLICK)||new_error){ -if(qbevent){evnt(26070,16697,"ide_methods.bas");if(r)goto S_54226;} -S_54227:; -if (((-(*__LONG_MY==(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 2 )))&(-(*__LONG_MX>=(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 60 )))&(-(*__LONG_MX<=(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 65 ))))||new_error){ -if(qbevent){evnt(26070,16698,"ide_methods.bas");if(r)goto S_54227;} -S_54228:; -if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID== 0 ))||new_error){ -if(qbevent){evnt(26070,16700,"ide_methods.bas");if(r)goto S_54228;} -LABEL_SAVENEW:; -if(qbevent){evnt(26070,16701,"ide_methods.bas");r=0;} -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_SCHEMESTRING,qbs_ltrim(qbs_rtrim(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16702,"ide_methods.bas");}while(r); -S_54230:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDECHOOSECOLORSBOX_STRING_SCHEMESTRING->len== 0 )))||new_error){ -if(qbevent){evnt(26070,16703,"ide_methods.bas");if(r)goto S_54230;} -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_SCHEMESTRING,qbs_new_txt_len("User-defined",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16703,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_I= 0 ; -if(!qbevent)break;evnt(26070,16705,"ide_methods.bas");}while(r); -S_54234:; -do{ -if(qbevent){evnt(26070,16706,"ide_methods.bas");if(r)goto S_54234;} -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,16707,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_RESULT=FUNC_READCONFIGSETTING(__STRING_COLORSCHEMESSECTION,qbs_add(qbs_add(qbs_new_txt_len("Scheme",6),FUNC_STR2(_FUNC_IDECHOOSECOLORSBOX_LONG_I)),qbs_new_txt_len("$",1)),_FUNC_IDECHOOSECOLORSBOX_STRING_VALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16708,"ide_methods.bas");}while(r); -S_54237:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_IDECHOOSECOLORSBOX_STRING_VALUE,qbs_new_txt_len("",0)))|(qbs_equal(_FUNC_IDECHOOSECOLORSBOX_STRING_VALUE,qbs_new_txt_len("0",1)))))||new_error){ -if(qbevent){evnt(26070,16709,"ide_methods.bas");if(r)goto S_54237;} -do{ -goto dl_exit_5978; -if(!qbevent)break;evnt(26070,16709,"ide_methods.bas");}while(r); -} -dl_continue_5978:; -}while(1); -dl_exit_5978:; -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_SCHEMESTRING,qbs_add(_FUNC_IDECHOOSECOLORSBOX_STRING_SCHEMESTRING,qbs_new_txt_len("|",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16713,"ide_methods.bas");}while(r); -S_54242:; -fornext_value5980= 1 ; -fornext_finalvalue5980= 10 ; -fornext_step5980= 1 ; -if (fornext_step5980<0) fornext_step_negative5980=1; else fornext_step_negative5980=0; -if (new_error) goto fornext_error5980; -goto fornext_entrylabel5980; -while(1){ -fornext_value5980=fornext_step5980+(*_FUNC_IDECHOOSECOLORSBOX_LONG_J); -fornext_entrylabel5980: -*_FUNC_IDECHOOSECOLORSBOX_LONG_J=fornext_value5980; -if (fornext_step_negative5980){ -if (fornext_value5980fornext_finalvalue5980) break; -} -fornext_error5980:; -if(qbevent){evnt(26070,16714,"ide_methods.bas");if(r)goto S_54242;} -do{ -*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR=FUNC_GETCURRENTCOLOR(&(pass5981=*_FUNC_IDECHOOSECOLORSBOX_LONG_J)); -if(!qbevent)break;evnt(26070,16715,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_R,FUNC_STR2(&(pass5982=func__red32(*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16716,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_R,qbs_add(func_string( 3 -_FUNC_IDECHOOSECOLORSBOX_STRING_R->len,(qbs_new_txt_len("0",1)->chr[0])),_FUNC_IDECHOOSECOLORSBOX_STRING_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16716,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_G,FUNC_STR2(&(pass5984=func__green32(*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16717,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_G,qbs_add(func_string( 3 -_FUNC_IDECHOOSECOLORSBOX_STRING_G->len,(qbs_new_txt_len("0",1)->chr[0])),_FUNC_IDECHOOSECOLORSBOX_STRING_G)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16717,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_B,FUNC_STR2(&(pass5986=func__blue32(*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16718,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_B,qbs_add(func_string( 3 -_FUNC_IDECHOOSECOLORSBOX_STRING_B->len,(qbs_new_txt_len("0",1)->chr[0])),_FUNC_IDECHOOSECOLORSBOX_STRING_B)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16718,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_SCHEMESTRING,qbs_add(qbs_add(qbs_add(_FUNC_IDECHOOSECOLORSBOX_STRING_SCHEMESTRING,_FUNC_IDECHOOSECOLORSBOX_STRING_R),_FUNC_IDECHOOSECOLORSBOX_STRING_G),_FUNC_IDECHOOSECOLORSBOX_STRING_B)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16719,"ide_methods.bas");}while(r); -fornext_continue_5979:; -} -fornext_exit_5979:; -do{ -SUB_WRITECONFIGSETTING(__STRING_COLORSCHEMESSECTION,qbs_add(qbs_add(qbs_new_txt_len("Scheme",6),FUNC_STR2(_FUNC_IDECHOOSECOLORSBOX_LONG_I)),qbs_new_txt_len("$",1)),_FUNC_IDECHOOSECOLORSBOX_STRING_SCHEMESTRING); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16723,"ide_methods.bas");}while(r); -do{ -SUB_LOADCOLORSCHEMES(); -if(!qbevent)break;evnt(26070,16724,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID=*__INTEGER_PRESETCOLORSCHEMES+*_FUNC_IDECHOOSECOLORSBOX_LONG_I; -if(!qbevent)break;evnt(26070,16725,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGEDSCHEME= -1 ; -if(!qbevent)break;evnt(26070,16726,"ide_methods.bas");}while(r); -do{ -goto LABEL_APPLYSCHEME; -if(!qbevent)break;evnt(26070,16727,"ide_methods.bas");}while(r); -}else{ -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_FOUNDPIPE=func_instr(NULL,((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5])])),qbs_new_txt_len("|",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16729,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_SCHEMESTRING,qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5])])),*_FUNC_IDECHOOSECOLORSBOX_LONG_FOUNDPIPE- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16730,"ide_methods.bas");}while(r); -S_54260:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_IDECHOOSECOLORSBOX_STRING_SCHEMESTRING,qbs_ltrim(qbs_rtrim(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))))))||new_error){ -if(qbevent){evnt(26070,16732,"ide_methods.bas");if(r)goto S_54260;} -do{ -goto LABEL_SAVENEW; -if(!qbevent)break;evnt(26070,16734,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID-*__INTEGER_PRESETCOLORSCHEMES; -if(!qbevent)break;evnt(26070,16737,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_SCHEMESTRING,qbs_add(_FUNC_IDECHOOSECOLORSBOX_STRING_SCHEMESTRING,qbs_new_txt_len("|",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16738,"ide_methods.bas");}while(r); -S_54265:; -fornext_value5989= 1 ; -fornext_finalvalue5989= 10 ; -fornext_step5989= 1 ; -if (fornext_step5989<0) fornext_step_negative5989=1; else fornext_step_negative5989=0; -if (new_error) goto fornext_error5989; -goto fornext_entrylabel5989; -while(1){ -fornext_value5989=fornext_step5989+(*_FUNC_IDECHOOSECOLORSBOX_LONG_J); -fornext_entrylabel5989: -*_FUNC_IDECHOOSECOLORSBOX_LONG_J=fornext_value5989; -if (fornext_step_negative5989){ -if (fornext_value5989fornext_finalvalue5989) break; -} -fornext_error5989:; -if(qbevent){evnt(26070,16741,"ide_methods.bas");if(r)goto S_54265;} -do{ -*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR=FUNC_GETCURRENTCOLOR(&(pass5990=*_FUNC_IDECHOOSECOLORSBOX_LONG_J)); -if(!qbevent)break;evnt(26070,16742,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_R,FUNC_STR2(&(pass5991=func__red32(*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16743,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_R,qbs_add(func_string( 3 -_FUNC_IDECHOOSECOLORSBOX_STRING_R->len,(qbs_new_txt_len("0",1)->chr[0])),_FUNC_IDECHOOSECOLORSBOX_STRING_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16743,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_G,FUNC_STR2(&(pass5993=func__green32(*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16744,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_G,qbs_add(func_string( 3 -_FUNC_IDECHOOSECOLORSBOX_STRING_G->len,(qbs_new_txt_len("0",1)->chr[0])),_FUNC_IDECHOOSECOLORSBOX_STRING_G)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16744,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_B,FUNC_STR2(&(pass5995=func__blue32(*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16745,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_B,qbs_add(func_string( 3 -_FUNC_IDECHOOSECOLORSBOX_STRING_B->len,(qbs_new_txt_len("0",1)->chr[0])),_FUNC_IDECHOOSECOLORSBOX_STRING_B)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16745,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_SCHEMESTRING,qbs_add(qbs_add(qbs_add(_FUNC_IDECHOOSECOLORSBOX_STRING_SCHEMESTRING,_FUNC_IDECHOOSECOLORSBOX_STRING_R),_FUNC_IDECHOOSECOLORSBOX_STRING_G),_FUNC_IDECHOOSECOLORSBOX_STRING_B)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16746,"ide_methods.bas");}while(r); -fornext_continue_5988:; -} -fornext_exit_5988:; -do{ -SUB_WRITECONFIGSETTING(__STRING_COLORSCHEMESSECTION,qbs_add(qbs_add(qbs_new_txt_len("Scheme",6),FUNC_STR2(_FUNC_IDECHOOSECOLORSBOX_LONG_I)),qbs_new_txt_len("$",1)),_FUNC_IDECHOOSECOLORSBOX_STRING_SCHEMESTRING); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16750,"ide_methods.bas");}while(r); -do{ -SUB_LOADCOLORSCHEMES(); -if(!qbevent)break;evnt(26070,16751,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID=*__INTEGER_PRESETCOLORSCHEMES+*_FUNC_IDECHOOSECOLORSBOX_LONG_I; -if(!qbevent)break;evnt(26070,16752,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGEDSCHEME= -1 ; -if(!qbevent)break;evnt(26070,16753,"ide_methods.bas");}while(r); -do{ -goto LABEL_APPLYSCHEME; -if(!qbevent)break;evnt(26070,16754,"ide_methods.bas");}while(r); -} -do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; -if(!qbevent)break;evnt(26070,16756,"ide_methods.bas");}while(r); -do{ -*(int8*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+76))= -1 ; -if(!qbevent)break;evnt(26070,16757,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+77))= 0 ; -if(!qbevent)break;evnt(26070,16758,"ide_methods.bas");}while(r); -S_54284:; -}else{ -if ((-(*__LONG_MY==(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 2 )))&(-(*__LONG_MX>=(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 66 )))&(-(*__LONG_MX<=(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 72 )))){ -if(qbevent){evnt(26070,16759,"ide_methods.bas");if(r)goto S_54284;} -S_54285:; -if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID>*__INTEGER_PRESETCOLORSCHEMES))||new_error){ -if(qbevent){evnt(26070,16761,"ide_methods.bas");if(r)goto S_54285;} -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_WHAT,FUNC_IDEYESNOBOX(qbs_new_txt_len("Erase color scheme",18),qbs_new_txt_len("This cannot be undone. Erase scheme?",36))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16762,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_K,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16763,"ide_methods.bas");}while(r); -S_54288:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDECHOOSECOLORSBOX_STRING_WHAT,qbs_new_txt_len("Y",1))))||new_error){ -if(qbevent){evnt(26070,16764,"ide_methods.bas");if(r)goto S_54288;} -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID-*__INTEGER_PRESETCOLORSCHEMES; -if(!qbevent)break;evnt(26070,16765,"ide_methods.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_COLORSCHEMESSECTION,qbs_add(qbs_add(qbs_new_txt_len("Scheme",6),FUNC_STR2(_FUNC_IDECHOOSECOLORSBOX_LONG_I)),qbs_new_txt_len("$",1)),qbs_new_txt_len("0",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16766,"ide_methods.bas");}while(r); -do{ -SUB_LOADCOLORSCHEMES(); -if(!qbevent)break;evnt(26070,16767,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID=*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID- 1 ; -if(!qbevent)break;evnt(26070,16768,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGEDSCHEME= -1 ; -if(!qbevent)break;evnt(26070,16769,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEARROW= -1 ; -if(!qbevent)break;evnt(26070,16770,"ide_methods.bas");}while(r); -do{ -goto LABEL_VALIDATESCHEME; -if(!qbevent)break;evnt(26070,16771,"ide_methods.bas");}while(r); -} -} -} -} -} -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGEDSCHEME= 0 ; -if(!qbevent)break;evnt(26070,16778,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEARROW= 0 ; -if(!qbevent)break;evnt(26070,16779,"ide_methods.bas");}while(r); -S_54302:; -if ((qbs_cleanup(qbs_tmp_base,(*__LONG_MCLICK&(-(*__LONG_MY==(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 2 )))&(-(*__LONG_MX>=(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 2 )))&(-(*__LONG_MX<=(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 4 ))))|((qbs_equal(__STRING_K,(qbs_add(func_chr( 0 ),func_chr( 75 )))))&((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS== 1 ))))))||new_error){ -if(qbevent){evnt(26070,16781,"ide_methods.bas");if(r)goto S_54302;} -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEARROW= -1 ; -if(!qbevent)break;evnt(26070,16782,"ide_methods.bas");}while(r); -S_54304:; -if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID== 0 ))||new_error){ -if(qbevent){evnt(26070,16783,"ide_methods.bas");if(r)goto S_54304;} -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGEDSCHEME= -1 ; -if(!qbevent)break;evnt(26070,16784,"ide_methods.bas");}while(r); -do{ -goto LABEL_LOADDEFAULTSCHEME; -if(!qbevent)break;evnt(26070,16785,"ide_methods.bas");}while(r); -}else{ -S_54308:; -if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID> 1 ))||new_error){ -if(qbevent){evnt(26070,16787,"ide_methods.bas");if(r)goto S_54308;} -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID=*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID- 1 ; -if(!qbevent)break;evnt(26070,16787,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGEDSCHEME= -1 ; -if(!qbevent)break;evnt(26070,16787,"ide_methods.bas");}while(r); -} -} -S_54313:; -}else{ -if (qbs_cleanup(qbs_tmp_base,(*__LONG_MCLICK&(-(*__LONG_MY==(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 2 )))&(-(*__LONG_MX>=(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 5 )))&(-(*__LONG_MX<=(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 7 ))))|((qbs_equal(__STRING_K,(qbs_add(func_chr( 0 ),func_chr( 77 )))))&((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS== 1 )))))){ -if(qbevent){evnt(26070,16790,"ide_methods.bas");if(r)goto S_54313;} -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEARROW= 1 ; -if(!qbevent)break;evnt(26070,16791,"ide_methods.bas");}while(r); -S_54315:; -if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID== 0 ))||new_error){ -if(qbevent){evnt(26070,16792,"ide_methods.bas");if(r)goto S_54315;} -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGEDSCHEME= -1 ; -if(!qbevent)break;evnt(26070,16793,"ide_methods.bas");}while(r); -do{ -goto LABEL_LOADDEFAULTSCHEME; -if(!qbevent)break;evnt(26070,16794,"ide_methods.bas");}while(r); -}else{ -S_54319:; -if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID<*__INTEGER_TOTALCOLORSCHEMES))||new_error){ -if(qbevent){evnt(26070,16796,"ide_methods.bas");if(r)goto S_54319;} -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID=*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID+ 1 ; -if(!qbevent)break;evnt(26070,16796,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGEDSCHEME= -1 ; -if(!qbevent)break;evnt(26070,16796,"ide_methods.bas");}while(r); -} -} -} -} -S_54325:; -if ((*_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGEDSCHEME)||new_error){ -if(qbevent){evnt(26070,16800,"ide_methods.bas");if(r)goto S_54325;} -S_54326:; -if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEARROW== 0 ))||new_error){ -if(qbevent){evnt(26070,16802,"ide_methods.bas");if(r)goto S_54326;} -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEARROW= 1 ; -if(!qbevent)break;evnt(26070,16802,"ide_methods.bas");}while(r); -} -LABEL_VALIDATESCHEME:; -if(qbevent){evnt(26070,16803,"ide_methods.bas");r=0;} -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_FOUNDPIPE=func_instr(NULL,((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5])])),qbs_new_txt_len("|",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16804,"ide_methods.bas");}while(r); -S_54330:; -if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOUNDPIPE> 0 ))||new_error){ -if(qbevent){evnt(26070,16805,"ide_methods.bas");if(r)goto S_54330;} -S_54331:; -if ((qbs_cleanup(qbs_tmp_base,-(((int32)(func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5])])),*_FUNC_IDECHOOSECOLORSBOX_LONG_FOUNDPIPE+ 1 ,NULL,0))->len)== 90 )))||new_error){ -if(qbevent){evnt(26070,16806,"ide_methods.bas");if(r)goto S_54331;} -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_A2,qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5])])),*_FUNC_IDECHOOSECOLORSBOX_LONG_FOUNDPIPE- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16807,"ide_methods.bas");}while(r); -}else{ -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID=*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID+*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEARROW; -if(!qbevent)break;evnt(26070,16809,"ide_methods.bas");}while(r); -S_54335:; -if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID>*__INTEGER_TOTALCOLORSCHEMES))||new_error){ -if(qbevent){evnt(26070,16810,"ide_methods.bas");if(r)goto S_54335;} -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID=*__INTEGER_TOTALCOLORSCHEMES; -if(!qbevent)break;evnt(26070,16810,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEARROW= -1 ; -if(!qbevent)break;evnt(26070,16810,"ide_methods.bas");}while(r); -} -S_54339:; -if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID< 1 ))||new_error){ -if(qbevent){evnt(26070,16811,"ide_methods.bas");if(r)goto S_54339;} -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID= 1 ; -if(!qbevent)break;evnt(26070,16811,"ide_methods.bas");}while(r); -} -do{ -goto LABEL_VALIDATESCHEME; -if(!qbevent)break;evnt(26070,16812,"ide_methods.bas");}while(r); -} -}else{ -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID=*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID+*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEARROW; -if(!qbevent)break;evnt(26070,16815,"ide_methods.bas");}while(r); -S_54346:; -if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID>*__INTEGER_TOTALCOLORSCHEMES))||new_error){ -if(qbevent){evnt(26070,16816,"ide_methods.bas");if(r)goto S_54346;} -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID=*__INTEGER_TOTALCOLORSCHEMES; -if(!qbevent)break;evnt(26070,16816,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEARROW= -1 ; -if(!qbevent)break;evnt(26070,16816,"ide_methods.bas");}while(r); -} -S_54350:; -if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID< 1 ))||new_error){ -if(qbevent){evnt(26070,16817,"ide_methods.bas");if(r)goto S_54350;} -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID= 1 ; -if(!qbevent)break;evnt(26070,16817,"ide_methods.bas");}while(r); -} -do{ -goto LABEL_VALIDATESCHEME; -if(!qbevent)break;evnt(26070,16818,"ide_methods.bas");}while(r); -} -LABEL_APPLYSCHEME:; -if(qbevent){evnt(26070,16820,"ide_methods.bas");r=0;} -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_FOUNDPIPE=func_instr(NULL,((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5])])),qbs_new_txt_len("|",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16821,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5])])),*_FUNC_IDECHOOSECOLORSBOX_LONG_FOUNDPIPE- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16822,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; -if(!qbevent)break;evnt(26070,16823,"ide_methods.bas");}while(r); -do{ -*(int8*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+76))= -1 ; -if(!qbevent)break;evnt(26070,16824,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+77))= 0 ; -if(!qbevent)break;evnt(26070,16825,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,qbs_right(((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5])])), 90 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16826,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_I= 1 ; -if(!qbevent)break;evnt(26070,16827,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_R,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16828,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; -if(!qbevent)break;evnt(26070,16828,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_G,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16828,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; -if(!qbevent)break;evnt(26070,16828,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_B,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16828,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; -if(!qbevent)break;evnt(26070,16828,"ide_methods.bas");}while(r); -do{ -*__ULONG_IDETEXTCOLOR=func__rgb32(qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_R)),qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_G)),qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_B))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16829,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_R,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16830,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; -if(!qbevent)break;evnt(26070,16830,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_G,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16830,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; -if(!qbevent)break;evnt(26070,16830,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_B,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16830,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; -if(!qbevent)break;evnt(26070,16830,"ide_methods.bas");}while(r); -do{ -*__ULONG_IDEKEYWORDCOLOR=func__rgb32(qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_R)),qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_G)),qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_B))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16831,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_R,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16832,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; -if(!qbevent)break;evnt(26070,16832,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_G,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16832,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; -if(!qbevent)break;evnt(26070,16832,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_B,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16832,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; -if(!qbevent)break;evnt(26070,16832,"ide_methods.bas");}while(r); -do{ -*__ULONG_IDENUMBERSCOLOR=func__rgb32(qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_R)),qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_G)),qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_B))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16833,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_R,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16834,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; -if(!qbevent)break;evnt(26070,16834,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_G,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16834,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; -if(!qbevent)break;evnt(26070,16834,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_B,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16834,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; -if(!qbevent)break;evnt(26070,16834,"ide_methods.bas");}while(r); -do{ -*__ULONG_IDEQUOTECOLOR=func__rgb32(qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_R)),qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_G)),qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_B))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16835,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_R,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16836,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; -if(!qbevent)break;evnt(26070,16836,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_G,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16836,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; -if(!qbevent)break;evnt(26070,16836,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_B,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16836,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; -if(!qbevent)break;evnt(26070,16836,"ide_methods.bas");}while(r); -do{ -*__ULONG_IDEMETACOMMANDCOLOR=func__rgb32(qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_R)),qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_G)),qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_B))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16837,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_R,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16838,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; -if(!qbevent)break;evnt(26070,16838,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_G,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16838,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; -if(!qbevent)break;evnt(26070,16838,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_B,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16838,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; -if(!qbevent)break;evnt(26070,16838,"ide_methods.bas");}while(r); -do{ -*__ULONG_IDECOMMENTCOLOR=func__rgb32(qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_R)),qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_G)),qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_B))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16839,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_R,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16840,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; -if(!qbevent)break;evnt(26070,16840,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_G,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16840,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; -if(!qbevent)break;evnt(26070,16840,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_B,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16840,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; -if(!qbevent)break;evnt(26070,16840,"ide_methods.bas");}while(r); -do{ -*__ULONG_IDEBACKGROUNDCOLOR=func__rgb32(qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_R)),qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_G)),qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_B))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16841,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_R,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16842,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; -if(!qbevent)break;evnt(26070,16842,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_G,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16842,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; -if(!qbevent)break;evnt(26070,16842,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_B,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16842,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; -if(!qbevent)break;evnt(26070,16842,"ide_methods.bas");}while(r); -do{ -*__ULONG_IDEBACKGROUNDCOLOR2=func__rgb32(qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_R)),qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_G)),qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_B))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16843,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_R,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16844,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; -if(!qbevent)break;evnt(26070,16844,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_G,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16844,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; -if(!qbevent)break;evnt(26070,16844,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_B,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16844,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; -if(!qbevent)break;evnt(26070,16844,"ide_methods.bas");}while(r); -do{ -*__ULONG_IDEBRACKETHIGHLIGHTCOLOR=func__rgb32(qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_R)),qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_G)),qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_B))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16845,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_R,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16846,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; -if(!qbevent)break;evnt(26070,16846,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_G,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16846,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; -if(!qbevent)break;evnt(26070,16846,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_B,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16846,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; -if(!qbevent)break;evnt(26070,16846,"ide_methods.bas");}while(r); -do{ -*__ULONG_IDECHROMACOLOR=func__rgb32(qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_R)),qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_G)),qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_B))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16847,"ide_methods.bas");}while(r); -do{ -goto LABEL_CHANGETEXTBOXES; -if(!qbevent)break;evnt(26070,16848,"ide_methods.bas");}while(r); -} -S_54434:; -if ((*__LONG_MB&(-(*__LONG_MY==(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 5 )))&(-(*__LONG_MX>=(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 39 )))&(-(*__LONG_MX<=(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 39 + 26 ))))||new_error){ -if(qbevent){evnt(26070,16851,"ide_methods.bas");if(r)goto S_54434;} -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_NEWVALUE=qbr((*__LONG_MX-*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))- 39 )*( 255 / ((long double)( 26 )))); -if(!qbevent)break;evnt(26070,16852,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(_FUNC_IDECHOOSECOLORSBOX_LONG_NEWVALUE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16853,"ide_methods.bas");}while(r); -S_54437:; -if ((func__keydown( 100305 )|func__keydown( 100306 ))||new_error){ -if(qbevent){evnt(26070,16854,"ide_methods.bas");if(r)goto S_54437;} -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(_FUNC_IDECHOOSECOLORSBOX_LONG_NEWVALUE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16855,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 4 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(_FUNC_IDECHOOSECOLORSBOX_LONG_NEWVALUE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16856,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS= 2 ; -if(!qbevent)break;evnt(26070,16858,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; -if(!qbevent)break;evnt(26070,16859,"ide_methods.bas");}while(r); -do{ -*(int8*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+76))= -1 ; -if(!qbevent)break;evnt(26070,16860,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+77))= 0 ; -if(!qbevent)break;evnt(26070,16861,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=174; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_NEWUSERSCHEME; -RETURN_174:; -if(!qbevent)break;evnt(26070,16862,"ide_methods.bas");}while(r); -} -S_54447:; -if ((*__LONG_MB&(-(*__LONG_MY==(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 8 )))&(-(*__LONG_MX>=(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 39 )))&(-(*__LONG_MX<=(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 39 + 26 ))))||new_error){ -if(qbevent){evnt(26070,16865,"ide_methods.bas");if(r)goto S_54447;} -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_NEWVALUE=qbr((*__LONG_MX-*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))- 39 )*( 255 / ((long double)( 26 )))); -if(!qbevent)break;evnt(26070,16866,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(_FUNC_IDECHOOSECOLORSBOX_LONG_NEWVALUE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16867,"ide_methods.bas");}while(r); -S_54450:; -if ((func__keydown( 100305 )|func__keydown( 100306 ))||new_error){ -if(qbevent){evnt(26070,16868,"ide_methods.bas");if(r)goto S_54450;} -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(_FUNC_IDECHOOSECOLORSBOX_LONG_NEWVALUE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16869,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 4 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(_FUNC_IDECHOOSECOLORSBOX_LONG_NEWVALUE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16870,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS= 3 ; -if(!qbevent)break;evnt(26070,16872,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; -if(!qbevent)break;evnt(26070,16873,"ide_methods.bas");}while(r); -do{ -*(int8*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+76))= -1 ; -if(!qbevent)break;evnt(26070,16874,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+77))= 0 ; -if(!qbevent)break;evnt(26070,16875,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=175; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_NEWUSERSCHEME; -RETURN_175:; -if(!qbevent)break;evnt(26070,16876,"ide_methods.bas");}while(r); -} -S_54460:; -if ((*__LONG_MB&(-(*__LONG_MY==(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 11 )))&(-(*__LONG_MX>=(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 39 )))&(-(*__LONG_MX<=(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 39 + 26 ))))||new_error){ -if(qbevent){evnt(26070,16879,"ide_methods.bas");if(r)goto S_54460;} -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_NEWVALUE=qbr((*__LONG_MX-*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))- 39 )*( 255 / ((long double)( 26 )))); -if(!qbevent)break;evnt(26070,16880,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 4 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(_FUNC_IDECHOOSECOLORSBOX_LONG_NEWVALUE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16881,"ide_methods.bas");}while(r); -S_54463:; -if ((func__keydown( 100305 )|func__keydown( 100306 ))||new_error){ -if(qbevent){evnt(26070,16882,"ide_methods.bas");if(r)goto S_54463;} -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(_FUNC_IDECHOOSECOLORSBOX_LONG_NEWVALUE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16883,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(_FUNC_IDECHOOSECOLORSBOX_LONG_NEWVALUE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16884,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS= 4 ; -if(!qbevent)break;evnt(26070,16886,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; -if(!qbevent)break;evnt(26070,16887,"ide_methods.bas");}while(r); -do{ -*(int8*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+76))= -1 ; -if(!qbevent)break;evnt(26070,16888,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+77))= 0 ; -if(!qbevent)break;evnt(26070,16889,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=176; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_NEWUSERSCHEME; -RETURN_176:; -if(!qbevent)break;evnt(26070,16890,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGEDWITHKEYS= 0 ; -if(!qbevent)break;evnt(26070,16893,"ide_methods.bas");}while(r); -S_54474:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,(qbs_add(func_chr( 0 ),func_chr( 72 )))))&(((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS== 2 ))|(-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS== 3 ))|(-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS== 4 ))))))||new_error){ -if(qbevent){evnt(26070,16894,"ide_methods.bas");if(r)goto S_54474;} -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(&(pass6002=qbr(func_val(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))+ 1 )))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16895,"ide_methods.bas");}while(r); -do{ -*(int8*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+76))= -1 ; -if(!qbevent)break;evnt(26070,16896,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+77))= 0 ; -if(!qbevent)break;evnt(26070,16896,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; -if(!qbevent)break;evnt(26070,16896,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGEDWITHKEYS= -1 ; -if(!qbevent)break;evnt(26070,16897,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=177; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_NEWUSERSCHEME; -RETURN_177:; -if(!qbevent)break;evnt(26070,16898,"ide_methods.bas");}while(r); -} -S_54482:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,(qbs_add(func_chr( 0 ),func_chr( 80 )))))&(((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS== 2 ))|(-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS== 3 ))|(-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS== 4 ))))))||new_error){ -if(qbevent){evnt(26070,16901,"ide_methods.bas");if(r)goto S_54482;} -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(&(pass6004=qbr(func_val(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))- 1 )))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16902,"ide_methods.bas");}while(r); -do{ -*(int8*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+76))= -1 ; -if(!qbevent)break;evnt(26070,16903,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+77))= 0 ; -if(!qbevent)break;evnt(26070,16903,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; -if(!qbevent)break;evnt(26070,16903,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGEDWITHKEYS= -1 ; -if(!qbevent)break;evnt(26070,16904,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=178; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_NEWUSERSCHEME; -RETURN_178:; -if(!qbevent)break;evnt(26070,16905,"ide_methods.bas");}while(r); -} -S_54490:; -if (((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM!=*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+64))))&(-(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+64))> 0 )))||new_error){ -if(qbevent){evnt(26070,16908,"ide_methods.bas");if(r)goto S_54490;} -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM=*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+64)); -if(!qbevent)break;evnt(26070,16909,"ide_methods.bas");}while(r); -S_54492:; -fornext_value6007= 1 ; -fornext_finalvalue6007= 10 ; -fornext_step6007= 1 ; -if (fornext_step6007<0) fornext_step_negative6007=1; else fornext_step_negative6007=0; -if (new_error) goto fornext_error6007; -goto fornext_entrylabel6007; -while(1){ -fornext_value6007=fornext_step6007+(*_FUNC_IDECHOOSECOLORSBOX_LONG_I); -fornext_entrylabel6007: -*_FUNC_IDECHOOSECOLORSBOX_LONG_I=fornext_value6007; -if (fornext_step_negative6007){ -if (fornext_value6007fornext_finalvalue6007) break; -} -fornext_error6007:; -if(qbevent){evnt(26070,16910,"ide_methods.bas");if(r)goto S_54492;} -do{ -tmp_long=array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[0]))[tmp_long])),qbs_new_txt_len(" ",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16910,"ide_methods.bas");}while(r); -fornext_continue_6006:; -} -fornext_exit_6006:; -do{ -tmp_long=array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[0]))[tmp_long])),func_chr( 16 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16911,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_I= 10 ; -if(!qbevent)break;evnt(26070,16913,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_L,qbs_add(((qbs*)(((uint64*)(_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[0]))[array_check(( 1 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[5])])),qbs_new_txt_len("Normal Text",11))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16914,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_L,qbs_add(qbs_add(qbs_add(_FUNC_IDECHOOSECOLORSBOX_STRING_L,_FUNC_IDECHOOSECOLORSBOX_STRING1_SEP),((qbs*)(((uint64*)(_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[0]))[array_check(( 2 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[5])]))),qbs_new_txt_len("Keywords",8))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16915,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_L,qbs_add(qbs_add(qbs_add(_FUNC_IDECHOOSECOLORSBOX_STRING_L,_FUNC_IDECHOOSECOLORSBOX_STRING1_SEP),((qbs*)(((uint64*)(_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[0]))[array_check(( 3 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[5])]))),qbs_new_txt_len("Numbers",7))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16916,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_L,qbs_add(qbs_add(qbs_add(_FUNC_IDECHOOSECOLORSBOX_STRING_L,_FUNC_IDECHOOSECOLORSBOX_STRING1_SEP),((qbs*)(((uint64*)(_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[0]))[array_check(( 4 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[5])]))),qbs_new_txt_len("Strings",7))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16917,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_L,qbs_add(qbs_add(qbs_add(_FUNC_IDECHOOSECOLORSBOX_STRING_L,_FUNC_IDECHOOSECOLORSBOX_STRING1_SEP),((qbs*)(((uint64*)(_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[0]))[array_check(( 5 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[5])]))),qbs_new_txt_len("Metacommand/custom keywords",27))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16918,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_L,qbs_add(qbs_add(qbs_add(_FUNC_IDECHOOSECOLORSBOX_STRING_L,_FUNC_IDECHOOSECOLORSBOX_STRING1_SEP),((qbs*)(((uint64*)(_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[0]))[array_check(( 6 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[5])]))),qbs_new_txt_len("Comments",8))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16919,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_L,qbs_add(qbs_add(qbs_add(_FUNC_IDECHOOSECOLORSBOX_STRING_L,_FUNC_IDECHOOSECOLORSBOX_STRING1_SEP),((qbs*)(((uint64*)(_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[0]))[array_check(( 7 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[5])]))),qbs_new_txt_len("Background",10))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16920,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_L,qbs_add(qbs_add(qbs_add(_FUNC_IDECHOOSECOLORSBOX_STRING_L,_FUNC_IDECHOOSECOLORSBOX_STRING1_SEP),((qbs*)(((uint64*)(_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[0]))[array_check(( 8 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[5])]))),qbs_new_txt_len("Current line background",23))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16921,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_L,qbs_add(qbs_add(qbs_add(_FUNC_IDECHOOSECOLORSBOX_STRING_L,_FUNC_IDECHOOSECOLORSBOX_STRING1_SEP),((qbs*)(((uint64*)(_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[0]))[array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[5])]))),qbs_new_txt_len("Bracket/selection highlight",27))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16922,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_L,qbs_add(qbs_add(qbs_add(_FUNC_IDECHOOSECOLORSBOX_STRING_L,_FUNC_IDECHOOSECOLORSBOX_STRING1_SEP),((qbs*)(((uint64*)(_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[0]))[array_check(( 10 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[5])]))),qbs_new_txt_len("Menus and dialogs",17))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16923,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDECHOOSECOLORSBOX_STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16924,"ide_methods.bas");}while(r); -LABEL_CHANGETEXTBOXES:; -if(qbevent){evnt(26070,16926,"ide_methods.bas");r=0;} -do{ -*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR=FUNC_GETCURRENTCOLOR(&(pass6008=*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM)); -if(!qbevent)break;evnt(26070,16927,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(&(pass6009=func__red32(*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16928,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(&(pass6010=func__green32(*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16929,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 4 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(&(pass6011=func__blue32(*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16930,"ide_methods.bas");}while(r); -S_54512:; -if (((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS>= 2 ))&(-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS<= 4 ))&*_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGEDSCHEME)||new_error){ -if(qbevent){evnt(26070,16931,"ide_methods.bas");if(r)goto S_54512;} -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_PREVTB__ASCII_CHR_046__VALUE,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16932,"ide_methods.bas");}while(r); -} -} -S_54516:; -fornext_value6013= 2 ; -fornext_finalvalue6013= 4 ; -fornext_step6013= 1 ; -if (fornext_step6013<0) fornext_step_negative6013=1; else fornext_step_negative6013=0; -if (new_error) goto fornext_error6013; -goto fornext_entrylabel6013; -while(1){ -fornext_value6013=fornext_step6013+(*_FUNC_IDECHOOSECOLORSBOX_LONG_CHECKRGB); -fornext_entrylabel6013: -*_FUNC_IDECHOOSECOLORSBOX_LONG_CHECKRGB=fornext_value6013; -if (fornext_step_negative6013){ -if (fornext_value6013fornext_finalvalue6013) break; -} -fornext_error6013:; -if(qbevent){evnt(26070,16937,"ide_methods.bas");if(r)goto S_54516;} -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_A,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_CHECKRGB)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16938,"ide_methods.bas");}while(r); -S_54518:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDECHOOSECOLORSBOX_STRING_A->len> 3 )))||new_error){ -if(qbevent){evnt(26070,16939,"ide_methods.bas");if(r)goto S_54518;} -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_A,qbs_left(_FUNC_IDECHOOSECOLORSBOX_STRING_A, 3 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16939,"ide_methods.bas");}while(r); -} -S_54521:; -fornext_value6016= 1 ; -fornext_finalvalue6016=_FUNC_IDECHOOSECOLORSBOX_STRING_A->len; -fornext_step6016= 1 ; -if (fornext_step6016<0) fornext_step_negative6016=1; else fornext_step_negative6016=0; -if (new_error) goto fornext_error6016; -goto fornext_entrylabel6016; -while(1){ -fornext_value6016=fornext_step6016+(*_FUNC_IDECHOOSECOLORSBOX_LONG_I); -fornext_entrylabel6016: -*_FUNC_IDECHOOSECOLORSBOX_LONG_I=fornext_value6016; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative6016){ -if (fornext_value6016fornext_finalvalue6016) break; -} -fornext_error6016:; -if(qbevent){evnt(26070,16940,"ide_methods.bas");if(r)goto S_54521;} -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_A=qbs_asc(_FUNC_IDECHOOSECOLORSBOX_STRING_A,*_FUNC_IDECHOOSECOLORSBOX_LONG_I); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16941,"ide_methods.bas");}while(r); -S_54523:; -if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_IDECHOOSECOLORSBOX_LONG_I== 2 ))&(-(qbs_asc(_FUNC_IDECHOOSECOLORSBOX_STRING_A, 1 )== 48 ))))||new_error){ -if(qbevent){evnt(26070,16942,"ide_methods.bas");if(r)goto S_54523;} -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_A,qbs_new_txt_len("0",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16942,"ide_methods.bas");}while(r); -do{ -goto fornext_exit_6015; -if(!qbevent)break;evnt(26070,16942,"ide_methods.bas");}while(r); -} -S_54527:; -if (((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_A< 48 ))|(-(*_FUNC_IDECHOOSECOLORSBOX_LONG_A> 57 )))||new_error){ -if(qbevent){evnt(26070,16943,"ide_methods.bas");if(r)goto S_54527;} -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_A,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16943,"ide_methods.bas");}while(r); -do{ -goto fornext_exit_6015; -if(!qbevent)break;evnt(26070,16943,"ide_methods.bas");}while(r); -} -fornext_continue_6015:; -} -fornext_exit_6015:; -S_54532:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDECHOOSECOLORSBOX_STRING_A->len))||new_error){ -if(qbevent){evnt(26070,16945,"ide_methods.bas");if(r)goto S_54532;} -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_A=qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_A)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16946,"ide_methods.bas");}while(r); -S_54534:; -if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_A> 255 ))||new_error){ -if(qbevent){evnt(26070,16947,"ide_methods.bas");if(r)goto S_54534;} -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_A,qbs_new_txt_len("255",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16947,"ide_methods.bas");}while(r); -} -S_54537:; -if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_A< 0 ))||new_error){ -if(qbevent){evnt(26070,16948,"ide_methods.bas");if(r)goto S_54537;} -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_A,qbs_new_txt_len("0",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16948,"ide_methods.bas");}while(r); -} -}else{ -S_54541:; -if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGEDWITHKEYS== -1 ))||new_error){ -if(qbevent){evnt(26070,16950,"ide_methods.bas");if(r)goto S_54541;} -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_A,qbs_new_txt_len("0",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16950,"ide_methods.bas");}while(r); -} -} -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_CHECKRGB)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDECHOOSECOLORSBOX_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16952,"ide_methods.bas");}while(r); -fornext_continue_6012:; -} -fornext_exit_6012:; -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_FOUNDPIPE=func_instr(NULL,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])),qbs_new_txt_len("|",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16956,"ide_methods.bas");}while(r); -S_54548:; -if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOUNDPIPE> 0 ))||new_error){ -if(qbevent){evnt(26070,16957,"ide_methods.bas");if(r)goto S_54548;} -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_A2,qbs_add(qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])),*_FUNC_IDECHOOSECOLORSBOX_LONG_FOUNDPIPE- 1 ),func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])),*_FUNC_IDECHOOSECOLORSBOX_LONG_FOUNDPIPE+ 1 ,NULL,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16958,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDECHOOSECOLORSBOX_STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16959,"ide_methods.bas");}while(r); -S_54551:; -if ((-(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+81))>=*_FUNC_IDECHOOSECOLORSBOX_LONG_FOUNDPIPE))||new_error){ -if(qbevent){evnt(26070,16960,"ide_methods.bas");if(r)goto S_54551;} -do{ -*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+81))=*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+81))- 1 ; -if(!qbevent)break;evnt(26070,16960,"ide_methods.bas");}while(r); -} -} -S_54555:; -if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID> 0 ))||new_error){ -if(qbevent){evnt(26070,16963,"ide_methods.bas");if(r)goto S_54555;} -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_FOUNDPIPE=func_instr(NULL,((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5])])),qbs_new_txt_len("|",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16964,"ide_methods.bas");}while(r); -S_54557:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_rtrim(qbs_ltrim(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))),qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5])])),*_FUNC_IDECHOOSECOLORSBOX_LONG_FOUNDPIPE- 1 ))))||new_error){ -if(qbevent){evnt(26070,16965,"ide_methods.bas");if(r)goto S_54557;} -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID= 0 ; -if(!qbevent)break;evnt(26070,16967,"ide_methods.bas");}while(r); -} -} -do{ -*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR=func__rgb32(qbr(func_val(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))),qbr(func_val(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))),qbr(func_val(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 4 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16971,"ide_methods.bas");}while(r); -S_54562:; -if(qbevent){evnt(26070,16973,"ide_methods.bas");if(r)goto S_54562;} -S_54563:; -if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 1 )))||new_error){ -if(qbevent){evnt(26070,16974,"ide_methods.bas");if(r)goto S_54563;} -do{ -*__ULONG_IDETEXTCOLOR=*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR; -if(!qbevent)break;evnt(26070,16974,"ide_methods.bas");}while(r); -sc_ec_389_end:; -goto sc_6019_end; -} -S_54565:; -if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 2 )))||new_error){ -if(qbevent){evnt(26070,16975,"ide_methods.bas");if(r)goto S_54565;} -do{ -*__ULONG_IDEKEYWORDCOLOR=*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR; -if(!qbevent)break;evnt(26070,16975,"ide_methods.bas");}while(r); -sc_ec_390_end:; -goto sc_6019_end; -} -S_54567:; -if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 3 )))||new_error){ -if(qbevent){evnt(26070,16976,"ide_methods.bas");if(r)goto S_54567;} -do{ -*__ULONG_IDENUMBERSCOLOR=*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR; -if(!qbevent)break;evnt(26070,16976,"ide_methods.bas");}while(r); -sc_ec_391_end:; -goto sc_6019_end; -} -S_54569:; -if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 4 )))||new_error){ -if(qbevent){evnt(26070,16977,"ide_methods.bas");if(r)goto S_54569;} -do{ -*__ULONG_IDEQUOTECOLOR=*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR; -if(!qbevent)break;evnt(26070,16977,"ide_methods.bas");}while(r); -sc_ec_392_end:; -goto sc_6019_end; -} -S_54571:; -if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 5 )))||new_error){ -if(qbevent){evnt(26070,16978,"ide_methods.bas");if(r)goto S_54571;} -do{ -*__ULONG_IDEMETACOMMANDCOLOR=*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR; -if(!qbevent)break;evnt(26070,16978,"ide_methods.bas");}while(r); -sc_ec_393_end:; -goto sc_6019_end; -} -S_54573:; -if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 6 )))||new_error){ -if(qbevent){evnt(26070,16979,"ide_methods.bas");if(r)goto S_54573;} -do{ -*__ULONG_IDECOMMENTCOLOR=*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR; -if(!qbevent)break;evnt(26070,16979,"ide_methods.bas");}while(r); -sc_ec_394_end:; -goto sc_6019_end; -} -S_54575:; -if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 7 )))||new_error){ -if(qbevent){evnt(26070,16980,"ide_methods.bas");if(r)goto S_54575;} -do{ -*__ULONG_IDEBACKGROUNDCOLOR=*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR; -if(!qbevent)break;evnt(26070,16980,"ide_methods.bas");}while(r); -sc_ec_395_end:; -goto sc_6019_end; -} -S_54577:; -if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 8 )))||new_error){ -if(qbevent){evnt(26070,16981,"ide_methods.bas");if(r)goto S_54577;} -do{ -*__ULONG_IDEBACKGROUNDCOLOR2=*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR; -if(!qbevent)break;evnt(26070,16981,"ide_methods.bas");}while(r); -sc_ec_396_end:; -goto sc_6019_end; -} -S_54579:; -if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 9 )))||new_error){ -if(qbevent){evnt(26070,16982,"ide_methods.bas");if(r)goto S_54579;} -do{ -*__ULONG_IDEBRACKETHIGHLIGHTCOLOR=*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR; -if(!qbevent)break;evnt(26070,16982,"ide_methods.bas");}while(r); -sc_ec_397_end:; -goto sc_6019_end; -} -S_54581:; -if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 10 )))||new_error){ -if(qbevent){evnt(26070,16983,"ide_methods.bas");if(r)goto S_54581;} -do{ -*__ULONG_IDECHROMACOLOR=*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR; -if(!qbevent)break;evnt(26070,16983,"ide_methods.bas");}while(r); -sc_ec_398_end:; -goto sc_6019_end; -} -sc_6019_end:; -S_54584:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 27 )))|(((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS== 10 ))&(-(*_FUNC_IDECHOOSECOLORSBOX_LONG_INFO!= 0 ))))))||new_error){ -if(qbevent){evnt(26070,16986,"ide_methods.bas");if(r)goto S_54584;} -do{ -*__ULONG_IDECOMMENTCOLOR=*_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDECOMMENTCOLOR; -if(!qbevent)break;evnt(26070,16987,"ide_methods.bas");}while(r); -do{ -*__ULONG_IDEMETACOMMANDCOLOR=*_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDEMETACOMMANDCOLOR; -if(!qbevent)break;evnt(26070,16988,"ide_methods.bas");}while(r); -do{ -*__ULONG_IDEQUOTECOLOR=*_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDEQUOTECOLOR; -if(!qbevent)break;evnt(26070,16989,"ide_methods.bas");}while(r); -do{ -*__ULONG_IDETEXTCOLOR=*_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDETEXTCOLOR; -if(!qbevent)break;evnt(26070,16990,"ide_methods.bas");}while(r); -do{ -*__ULONG_IDEKEYWORDCOLOR=*_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDEKEYWORDCOLOR; -if(!qbevent)break;evnt(26070,16991,"ide_methods.bas");}while(r); -do{ -*__ULONG_IDENUMBERSCOLOR=*_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDENUMBERSCOLOR; -if(!qbevent)break;evnt(26070,16992,"ide_methods.bas");}while(r); -do{ -*__ULONG_IDEBACKGROUNDCOLOR=*_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDEBACKGROUNDCOLOR; -if(!qbevent)break;evnt(26070,16993,"ide_methods.bas");}while(r); -do{ -*__ULONG_IDEBACKGROUNDCOLOR2=*_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDEBACKGROUNDCOLOR2; -if(!qbevent)break;evnt(26070,16994,"ide_methods.bas");}while(r); -do{ -*__ULONG_IDEBRACKETHIGHLIGHTCOLOR=*_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDEBRACKETHIGHLIGHTCOLOR; -if(!qbevent)break;evnt(26070,16995,"ide_methods.bas");}while(r); -do{ -*__ULONG_IDECHROMACOLOR=*_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDECHROMACOLOR; -if(!qbevent)break;evnt(26070,16996,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,16997,"ide_methods.bas");}while(r); -} -S_54597:; -if ((((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS== 9 ))&(-(*_FUNC_IDECHOOSECOLORSBOX_LONG_INFO!= 0 ))))||new_error){ -if(qbevent){evnt(26070,17000,"ide_methods.bas");if(r)goto S_54597;} -LABEL_LOADDEFAULTSCHEME:; -if(qbevent){evnt(26070,17001,"ide_methods.bas");r=0;} -do{ -return_point[next_return_point++]=179; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_ENABLEHIGHLIGHTER; -RETURN_179:; -if(!qbevent)break;evnt(26070,17002,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID= 1 ; -if(!qbevent)break;evnt(26070,17003,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_FOUNDPIPE=func_instr(NULL,((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5])])),qbs_new_txt_len("|",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17004,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5])])),*_FUNC_IDECHOOSECOLORSBOX_LONG_FOUNDPIPE- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17005,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_INFO= 0 ; -if(!qbevent)break;evnt(26070,17006,"ide_methods.bas");}while(r); -do{ -goto LABEL_APPLYSCHEME; -if(!qbevent)break;evnt(26070,17007,"ide_methods.bas");}while(r); -} -S_54605:; -if ((qbs_cleanup(qbs_tmp_base,((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS== 8 ))&(-(*_FUNC_IDECHOOSECOLORSBOX_LONG_INFO!= 0 )))|((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS== 1 ))&(qbs_equal(__STRING_K,func_chr( 13 ))))|((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS== 2 ))&(qbs_equal(__STRING_K,func_chr( 13 ))))|((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS== 3 ))&(qbs_equal(__STRING_K,func_chr( 13 ))))|((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS== 4 ))&(qbs_equal(__STRING_K,func_chr( 13 ))))|((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS== 5 ))&(qbs_equal(__STRING_K,func_chr( 13 ))))|((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS== 6 ))&(qbs_equal(__STRING_K,func_chr( 13 ))))|((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS== 7 ))&(qbs_equal(__STRING_K,func_chr( 13 ))))|((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS== 11 ))&(qbs_equal(__STRING_K,func_chr( 13 ))))))||new_error){ -if(qbevent){evnt(26070,17018,"ide_methods.bas");if(r)goto S_54605;} -do{ -return_point[next_return_point++]=180; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_ENABLEHIGHLIGHTER; -RETURN_180:; -if(!qbevent)break;evnt(26070,17020,"ide_methods.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_COLORSETTINGSSECTION,qbs_new_txt_len("SchemeID",8),FUNC_STR2(_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17022,"ide_methods.bas");}while(r); -S_54608:; -fornext_value6021= 1 ; -fornext_finalvalue6021= 10 ; -fornext_step6021= 1 ; -if (fornext_step6021<0) fornext_step_negative6021=1; else fornext_step_negative6021=0; -if (new_error) goto fornext_error6021; -goto fornext_entrylabel6021; -while(1){ -fornext_value6021=fornext_step6021+(*_FUNC_IDECHOOSECOLORSBOX_LONG_I); -fornext_entrylabel6021: -*_FUNC_IDECHOOSECOLORSBOX_LONG_I=fornext_value6021; -if (fornext_step_negative6021){ -if (fornext_value6021fornext_finalvalue6021) break; -} -fornext_error6021:; -if(qbevent){evnt(26070,17023,"ide_methods.bas");if(r)goto S_54608;} -do{ -*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR=FUNC_GETCURRENTCOLOR(&(pass6022=*_FUNC_IDECHOOSECOLORSBOX_LONG_I)); -if(!qbevent)break;evnt(26070,17024,"ide_methods.bas");}while(r); -S_54610:; -if(qbevent){evnt(26070,17025,"ide_methods.bas");if(r)goto S_54610;} -S_54611:; -if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_I==( 1 )))||new_error){ -if(qbevent){evnt(26070,17026,"ide_methods.bas");if(r)goto S_54611;} -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORID,qbs_new_txt_len("TextColor",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17026,"ide_methods.bas");}while(r); -sc_ec_399_end:; -goto sc_6023_end; -} -S_54613:; -if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_I==( 2 )))||new_error){ -if(qbevent){evnt(26070,17027,"ide_methods.bas");if(r)goto S_54613;} -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORID,qbs_new_txt_len("KeywordColor",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17027,"ide_methods.bas");}while(r); -sc_ec_400_end:; -goto sc_6023_end; -} -S_54615:; -if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_I==( 3 )))||new_error){ -if(qbevent){evnt(26070,17028,"ide_methods.bas");if(r)goto S_54615;} -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORID,qbs_new_txt_len("NumbersColor",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17028,"ide_methods.bas");}while(r); -sc_ec_401_end:; -goto sc_6023_end; -} -S_54617:; -if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_I==( 4 )))||new_error){ -if(qbevent){evnt(26070,17029,"ide_methods.bas");if(r)goto S_54617;} -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORID,qbs_new_txt_len("QuoteColor",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17029,"ide_methods.bas");}while(r); -sc_ec_402_end:; -goto sc_6023_end; -} -S_54619:; -if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_I==( 5 )))||new_error){ -if(qbevent){evnt(26070,17030,"ide_methods.bas");if(r)goto S_54619;} -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORID,qbs_new_txt_len("MetaCommandColor",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17030,"ide_methods.bas");}while(r); -sc_ec_403_end:; -goto sc_6023_end; -} -S_54621:; -if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_I==( 6 )))||new_error){ -if(qbevent){evnt(26070,17031,"ide_methods.bas");if(r)goto S_54621;} -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORID,qbs_new_txt_len("CommentColor",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17031,"ide_methods.bas");}while(r); -sc_ec_404_end:; -goto sc_6023_end; -} -S_54623:; -if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_I==( 7 )))||new_error){ -if(qbevent){evnt(26070,17032,"ide_methods.bas");if(r)goto S_54623;} -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORID,qbs_new_txt_len("BackgroundColor",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17032,"ide_methods.bas");}while(r); -sc_ec_405_end:; -goto sc_6023_end; -} -S_54625:; -if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_I==( 8 )))||new_error){ -if(qbevent){evnt(26070,17033,"ide_methods.bas");if(r)goto S_54625;} -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORID,qbs_new_txt_len("BackgroundColor2",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17033,"ide_methods.bas");}while(r); -sc_ec_406_end:; -goto sc_6023_end; -} -S_54627:; -if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_I==( 9 )))||new_error){ -if(qbevent){evnt(26070,17034,"ide_methods.bas");if(r)goto S_54627;} -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORID,qbs_new_txt_len("HighlightColor",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17034,"ide_methods.bas");}while(r); -sc_ec_407_end:; -goto sc_6023_end; -} -S_54629:; -if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_I==( 10 )))||new_error){ -if(qbevent){evnt(26070,17035,"ide_methods.bas");if(r)goto S_54629;} -do{ -qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORID,qbs_new_txt_len("ChromaColor",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17035,"ide_methods.bas");}while(r); -sc_ec_408_end:; -goto sc_6023_end; -} -sc_6023_end:; -do{ -SUB_WRITECONFIGSETTING(__STRING_COLORSETTINGSSECTION,_FUNC_IDECHOOSECOLORSBOX_STRING_COLORID,FUNC_RGBS(_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17039,"ide_methods.bas");}while(r); -fornext_continue_6020:; -} -fornext_exit_6020:; -do{ -*_FUNC_IDECHOOSECOLORSBOX_INTEGER_V=*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 5 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+64)); -if(!qbevent)break;evnt(26070,17042,"ide_methods.bas");}while(r); -S_54635:; -if ((-(*_FUNC_IDECHOOSECOLORSBOX_INTEGER_V!= 0 ))||new_error){ -if(qbevent){evnt(26070,17043,"ide_methods.bas");if(r)goto S_54635;} -do{ -*_FUNC_IDECHOOSECOLORSBOX_INTEGER_V= -1 ; -if(!qbevent)break;evnt(26070,17043,"ide_methods.bas");}while(r); -} -do{ -*__INTEGER_BRACKETHIGHLIGHT=*_FUNC_IDECHOOSECOLORSBOX_INTEGER_V; -if(!qbevent)break;evnt(26070,17044,"ide_methods.bas");}while(r); -S_54639:; -if ((*__INTEGER_BRACKETHIGHLIGHT)||new_error){ -if(qbevent){evnt(26070,17046,"ide_methods.bas");if(r)goto S_54639;} -do{ -SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("BracketHighlight",16),qbs_new_txt_len("True",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17047,"ide_methods.bas");}while(r); -}else{ -do{ -SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("BracketHighlight",16),qbs_new_txt_len("False",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17049,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDECHOOSECOLORSBOX_INTEGER_V=*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 6 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+64)); -if(!qbevent)break;evnt(26070,17052,"ide_methods.bas");}while(r); -S_54645:; -if ((-(*_FUNC_IDECHOOSECOLORSBOX_INTEGER_V!= 0 ))||new_error){ -if(qbevent){evnt(26070,17053,"ide_methods.bas");if(r)goto S_54645;} -do{ -*_FUNC_IDECHOOSECOLORSBOX_INTEGER_V= -1 ; -if(!qbevent)break;evnt(26070,17053,"ide_methods.bas");}while(r); -} -do{ -*__INTEGER_MULTIHIGHLIGHT=*_FUNC_IDECHOOSECOLORSBOX_INTEGER_V; -if(!qbevent)break;evnt(26070,17054,"ide_methods.bas");}while(r); -S_54649:; -if ((*__INTEGER_MULTIHIGHLIGHT)||new_error){ -if(qbevent){evnt(26070,17056,"ide_methods.bas");if(r)goto S_54649;} -do{ -SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("MultiHighlight",14),qbs_new_txt_len("True",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17057,"ide_methods.bas");}while(r); -}else{ -do{ -SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("MultiHighlight",14),qbs_new_txt_len("False",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17059,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDECHOOSECOLORSBOX_INTEGER_V=*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 7 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+64)); -if(!qbevent)break;evnt(26070,17062,"ide_methods.bas");}while(r); -S_54655:; -if ((-(*_FUNC_IDECHOOSECOLORSBOX_INTEGER_V!= 0 ))||new_error){ -if(qbevent){evnt(26070,17063,"ide_methods.bas");if(r)goto S_54655;} -do{ -*_FUNC_IDECHOOSECOLORSBOX_INTEGER_V= -1 ; -if(!qbevent)break;evnt(26070,17063,"ide_methods.bas");}while(r); -} -do{ -*__INTEGER_KEYWORDHIGHLIGHT=*_FUNC_IDECHOOSECOLORSBOX_INTEGER_V; -if(!qbevent)break;evnt(26070,17064,"ide_methods.bas");}while(r); -S_54659:; -if ((*__INTEGER_KEYWORDHIGHLIGHT)||new_error){ -if(qbevent){evnt(26070,17066,"ide_methods.bas");if(r)goto S_54659;} -do{ -SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("KeywordHighlight",16),qbs_new_txt_len("True",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17067,"ide_methods.bas");}while(r); -}else{ -do{ -SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("KeywordHighlight",16),qbs_new_txt_len("False",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17069,"ide_methods.bas");}while(r); -} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,17072,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_MOUSEDOWN= 0 ; -if(!qbevent)break;evnt(26070,17077,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_MOUSEUP= 0 ; -if(!qbevent)break;evnt(26070,17078,"ide_methods.bas");}while(r); -dl_continue_5954:; -}while(1); -dl_exit_5954:; -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_IDECHOOSECOLORSBOX= 0 ; -if(!qbevent)break;evnt(26070,17081,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,17083,"ide_methods.bas");}while(r); -LABEL_NEWUSERSCHEME:; -if(qbevent){evnt(26070,17084,"ide_methods.bas");r=0;} -S_54671:; -if (((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID> 0 ))&(-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID<=*__INTEGER_PRESETCOLORSCHEMES)))||new_error){ -if(qbevent){evnt(26070,17085,"ide_methods.bas");if(r)goto S_54671;} -do{ -*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID= 0 ; -if(!qbevent)break;evnt(26070,17089,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),qbs_new_txt_len("User-defined",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17090,"ide_methods.bas");}while(r); -} -do{ -#include "ret238.txt" -if(!qbevent)break;evnt(26070,17092,"ide_methods.bas");}while(r); -LABEL_ENABLEHIGHLIGHTER:; -if(qbevent){evnt(26070,17094,"ide_methods.bas");r=0;} -S_54676:; -if ((*__BYTE_DISABLESYNTAXHIGHLIGHTER)||new_error){ -if(qbevent){evnt(26070,17095,"ide_methods.bas");if(r)goto S_54676;} -do{ -*__BYTE_DISABLESYNTAXHIGHLIGHTER= 0 ; -if(!qbevent)break;evnt(26070,17096,"ide_methods.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("DisableSyntaxHighlighter",24),qbs_new_txt_len("False",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17097,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*__INTEGER_OPTIONSMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_OPTIONSMENUDISABLESYNTAX)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(func_chr( 7 ),qbs_new_txt_len("Syntax #Highlighter",19))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17098,"ide_methods.bas");}while(r); -} -do{ -#include "ret238.txt" -if(!qbevent)break;evnt(26070,17100,"ide_methods.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free238.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -return *_FUNC_IDECHOOSECOLORSBOX_LONG_IDECHOOSECOLORSBOX; -} -uint32 FUNC_GETCURRENTCOLOR(int16*_FUNC_GETCURRENTCOLOR_INTEGER_SELECTION){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data239.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -S_54682:; -if(qbevent){evnt(26070,17105,"ide_methods.bas");if(r)goto S_54682;} -S_54683:; -if (((*_FUNC_GETCURRENTCOLOR_INTEGER_SELECTION==( 1 )))||new_error){ -if(qbevent){evnt(26070,17106,"ide_methods.bas");if(r)goto S_54683;} -do{ -*_FUNC_GETCURRENTCOLOR_ULONG_GETCURRENTCOLOR=*__ULONG_IDETEXTCOLOR; -if(!qbevent)break;evnt(26070,17106,"ide_methods.bas");}while(r); -sc_ec_409_end:; -goto sc_6024_end; -} -S_54685:; -if (((*_FUNC_GETCURRENTCOLOR_INTEGER_SELECTION==( 2 )))||new_error){ -if(qbevent){evnt(26070,17107,"ide_methods.bas");if(r)goto S_54685;} -do{ -*_FUNC_GETCURRENTCOLOR_ULONG_GETCURRENTCOLOR=*__ULONG_IDEKEYWORDCOLOR; -if(!qbevent)break;evnt(26070,17107,"ide_methods.bas");}while(r); -sc_ec_410_end:; -goto sc_6024_end; -} -S_54687:; -if (((*_FUNC_GETCURRENTCOLOR_INTEGER_SELECTION==( 3 )))||new_error){ -if(qbevent){evnt(26070,17108,"ide_methods.bas");if(r)goto S_54687;} -do{ -*_FUNC_GETCURRENTCOLOR_ULONG_GETCURRENTCOLOR=*__ULONG_IDENUMBERSCOLOR; -if(!qbevent)break;evnt(26070,17108,"ide_methods.bas");}while(r); -sc_ec_411_end:; -goto sc_6024_end; -} -S_54689:; -if (((*_FUNC_GETCURRENTCOLOR_INTEGER_SELECTION==( 4 )))||new_error){ -if(qbevent){evnt(26070,17109,"ide_methods.bas");if(r)goto S_54689;} -do{ -*_FUNC_GETCURRENTCOLOR_ULONG_GETCURRENTCOLOR=*__ULONG_IDEQUOTECOLOR; -if(!qbevent)break;evnt(26070,17109,"ide_methods.bas");}while(r); -sc_ec_412_end:; -goto sc_6024_end; -} -S_54691:; -if (((*_FUNC_GETCURRENTCOLOR_INTEGER_SELECTION==( 5 )))||new_error){ -if(qbevent){evnt(26070,17110,"ide_methods.bas");if(r)goto S_54691;} -do{ -*_FUNC_GETCURRENTCOLOR_ULONG_GETCURRENTCOLOR=*__ULONG_IDEMETACOMMANDCOLOR; -if(!qbevent)break;evnt(26070,17110,"ide_methods.bas");}while(r); -sc_ec_413_end:; -goto sc_6024_end; -} -S_54693:; -if (((*_FUNC_GETCURRENTCOLOR_INTEGER_SELECTION==( 6 )))||new_error){ -if(qbevent){evnt(26070,17111,"ide_methods.bas");if(r)goto S_54693;} -do{ -*_FUNC_GETCURRENTCOLOR_ULONG_GETCURRENTCOLOR=*__ULONG_IDECOMMENTCOLOR; -if(!qbevent)break;evnt(26070,17111,"ide_methods.bas");}while(r); -sc_ec_414_end:; -goto sc_6024_end; -} -S_54695:; -if (((*_FUNC_GETCURRENTCOLOR_INTEGER_SELECTION==( 7 )))||new_error){ -if(qbevent){evnt(26070,17112,"ide_methods.bas");if(r)goto S_54695;} -do{ -*_FUNC_GETCURRENTCOLOR_ULONG_GETCURRENTCOLOR=*__ULONG_IDEBACKGROUNDCOLOR; -if(!qbevent)break;evnt(26070,17112,"ide_methods.bas");}while(r); -sc_ec_415_end:; -goto sc_6024_end; -} -S_54697:; -if (((*_FUNC_GETCURRENTCOLOR_INTEGER_SELECTION==( 8 )))||new_error){ -if(qbevent){evnt(26070,17113,"ide_methods.bas");if(r)goto S_54697;} -do{ -*_FUNC_GETCURRENTCOLOR_ULONG_GETCURRENTCOLOR=*__ULONG_IDEBACKGROUNDCOLOR2; -if(!qbevent)break;evnt(26070,17113,"ide_methods.bas");}while(r); -sc_ec_416_end:; -goto sc_6024_end; -} -S_54699:; -if (((*_FUNC_GETCURRENTCOLOR_INTEGER_SELECTION==( 9 )))||new_error){ -if(qbevent){evnt(26070,17114,"ide_methods.bas");if(r)goto S_54699;} -do{ -*_FUNC_GETCURRENTCOLOR_ULONG_GETCURRENTCOLOR=*__ULONG_IDEBRACKETHIGHLIGHTCOLOR; -if(!qbevent)break;evnt(26070,17114,"ide_methods.bas");}while(r); -sc_ec_417_end:; -goto sc_6024_end; -} -S_54701:; -if (((*_FUNC_GETCURRENTCOLOR_INTEGER_SELECTION==( 10 )))||new_error){ -if(qbevent){evnt(26070,17115,"ide_methods.bas");if(r)goto S_54701;} -do{ -*_FUNC_GETCURRENTCOLOR_ULONG_GETCURRENTCOLOR=*__ULONG_IDECHROMACOLOR; -if(!qbevent)break;evnt(26070,17115,"ide_methods.bas");}while(r); -sc_ec_418_end:; -goto sc_6024_end; -} -sc_6024_end:; -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free239.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -return *_FUNC_GETCURRENTCOLOR_ULONG_GETCURRENTCOLOR; -} -qbs* FUNC_IDERGBMIXER(int32*_FUNC_IDERGBMIXER_LONG_EDITING){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data240.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -sub_pcopy( 0 , 2 ); -if(!qbevent)break;evnt(26070,17121,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 0 , 1 ); -if(!qbevent)break;evnt(26070,17122,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,17123,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDERGBMIXER_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(26070,17124,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(26070,17125,"ide_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26070,16379,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26070,16380,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING1_SEP,func_chr( 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16381,"ide_methods.bas");}while(r); +do{ +SUB_LOADCOLORSCHEMES(); +if(!qbevent)break;evnt(26070,16385,"ide_methods.bas");}while(r); +do{ +sub__palettecolor( 5 , -16734208 , 0 ,1); +if(!qbevent)break;evnt(26070,16386,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_I= 0 ; +if(!qbevent)break;evnt(26070,16388,"ide_methods.bas");}while(r); +do{ +SUB_IDEPAR((void*)( ((char*)(_FUNC_IDECHOOSECOLORSBOX_UDT_P)) + (0) ),&(pass5943= 73 ),&(pass5944= 20 ),qbs_new_txt_len("IDE Colors",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16389,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_L,qbs_add(func_chr( 16 ),qbs_new_txt_len("Normal Text",11))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16391,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_L,qbs_add(qbs_add(_FUNC_IDECHOOSECOLORSBOX_STRING_L,_FUNC_IDECHOOSECOLORSBOX_STRING1_SEP),qbs_new_txt_len(" Keywords",9))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16392,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_L,qbs_add(qbs_add(_FUNC_IDECHOOSECOLORSBOX_STRING_L,_FUNC_IDECHOOSECOLORSBOX_STRING1_SEP),qbs_new_txt_len(" Numbers",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16393,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_L,qbs_add(qbs_add(_FUNC_IDECHOOSECOLORSBOX_STRING_L,_FUNC_IDECHOOSECOLORSBOX_STRING1_SEP),qbs_new_txt_len(" Strings",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16394,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_L,qbs_add(qbs_add(_FUNC_IDECHOOSECOLORSBOX_STRING_L,_FUNC_IDECHOOSECOLORSBOX_STRING1_SEP),qbs_new_txt_len(" Metacommand/custom keywords",28))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16395,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_L,qbs_add(qbs_add(_FUNC_IDECHOOSECOLORSBOX_STRING_L,_FUNC_IDECHOOSECOLORSBOX_STRING1_SEP),qbs_new_txt_len(" Comments",9))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16396,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_L,qbs_add(qbs_add(_FUNC_IDECHOOSECOLORSBOX_STRING_L,_FUNC_IDECHOOSECOLORSBOX_STRING1_SEP),qbs_new_txt_len(" Background",11))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16397,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_L,qbs_add(qbs_add(_FUNC_IDECHOOSECOLORSBOX_STRING_L,_FUNC_IDECHOOSECOLORSBOX_STRING1_SEP),qbs_new_txt_len(" Current line background",24))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16398,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_L,qbs_add(qbs_add(_FUNC_IDECHOOSECOLORSBOX_STRING_L,_FUNC_IDECHOOSECOLORSBOX_STRING1_SEP),qbs_new_txt_len(" Bracket/selection highlight",28))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16399,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_L,qbs_add(qbs_add(_FUNC_IDECHOOSECOLORSBOX_STRING_L,_FUNC_IDECHOOSECOLORSBOX_STRING1_SEP),qbs_new_txt_len(" Menus and dialogs",18))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16400,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,16401,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+36))= 2 ; +if(!qbevent)break;evnt(26070,16402,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+24))= 4 ; +if(!qbevent)break;evnt(26070,16403,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+28))= 30 ; +if(!qbevent)break;evnt(26070,16404,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+32))= 10 ; +if(!qbevent)break;evnt(26070,16404,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDECHOOSECOLORSBOX_STRING_L); +if(!qbevent)break;evnt(26070,16405,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+64))= 1 ; +if(!qbevent)break;evnt(26070,16406,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM= 1 ; +if(!qbevent)break;evnt(26070,16407,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_PREVFOCUS= 1 ; +if(!qbevent)break;evnt(26070,16408,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Item:",6)); +if(!qbevent)break;evnt(26070,16409,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_A2,FUNC_STR2(&(pass5945=func__red32(*__ULONG_IDETEXTCOLOR)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16411,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,16412,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+36))= 1 ; +if(!qbevent)break;evnt(26070,16413,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+20))= 66 ; +if(!qbevent)break;evnt(26070,16414,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+24))= 5 ; +if(!qbevent)break;evnt(26070,16415,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDECHOOSECOLORSBOX_STRING_A2); +if(!qbevent)break;evnt(26070,16416,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+81))=_FUNC_IDECHOOSECOLORSBOX_STRING_A2->len; +if(!qbevent)break;evnt(26070,16417,"ide_methods.bas");}while(r); +do{ +*(int8*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+76))= -1 ; +if(!qbevent)break;evnt(26070,16418,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+77))= 0 ; +if(!qbevent)break;evnt(26070,16419,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_A2,FUNC_STR2(&(pass5947=func__green32(*__ULONG_IDETEXTCOLOR)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16421,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,16422,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+36))= 1 ; +if(!qbevent)break;evnt(26070,16423,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+20))= 66 ; +if(!qbevent)break;evnt(26070,16424,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+24))= 8 ; +if(!qbevent)break;evnt(26070,16425,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDECHOOSECOLORSBOX_STRING_A2); +if(!qbevent)break;evnt(26070,16426,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+81))=_FUNC_IDECHOOSECOLORSBOX_STRING_A2->len; +if(!qbevent)break;evnt(26070,16427,"ide_methods.bas");}while(r); +do{ +*(int8*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+76))= -1 ; +if(!qbevent)break;evnt(26070,16428,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+77))= 0 ; +if(!qbevent)break;evnt(26070,16429,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_A2,FUNC_STR2(&(pass5949=func__blue32(*__ULONG_IDETEXTCOLOR)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16431,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,16432,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+36))= 1 ; +if(!qbevent)break;evnt(26070,16433,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+20))= 66 ; +if(!qbevent)break;evnt(26070,16434,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+24))= 11 ; +if(!qbevent)break;evnt(26070,16435,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDECHOOSECOLORSBOX_STRING_A2); +if(!qbevent)break;evnt(26070,16436,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+81))=_FUNC_IDECHOOSECOLORSBOX_STRING_A2->len; +if(!qbevent)break;evnt(26070,16437,"ide_methods.bas");}while(r); +do{ +*(int8*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+76))= -1 ; +if(!qbevent)break;evnt(26070,16438,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+77))= 0 ; +if(!qbevent)break;evnt(26070,16439,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,16441,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+36))= 4 ; +if(!qbevent)break;evnt(26070,16442,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+24))= 16 ; +if(!qbevent)break;evnt(26070,16443,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Highlight brackets",19)); +if(!qbevent)break;evnt(26070,16444,"ide_methods.bas");}while(r); +S_53885:; +if ((*__INTEGER_BRACKETHIGHLIGHT)||new_error){ +if(qbevent){evnt(26070,16445,"ide_methods.bas");if(r)goto S_53885;} +do{ +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+64))= 1 ; +if(!qbevent)break;evnt(26070,16445,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,16447,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+36))= 4 ; +if(!qbevent)break;evnt(26070,16448,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+24))= 17 ; +if(!qbevent)break;evnt(26070,16449,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Multi-highlight (selection)",28)); +if(!qbevent)break;evnt(26070,16450,"ide_methods.bas");}while(r); +S_53892:; +if ((*__INTEGER_MULTIHIGHLIGHT)||new_error){ +if(qbevent){evnt(26070,16451,"ide_methods.bas");if(r)goto S_53892;} +do{ +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+64))= 1 ; +if(!qbevent)break;evnt(26070,16451,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,16453,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+36))= 4 ; +if(!qbevent)break;evnt(26070,16454,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+24))= 18 ; +if(!qbevent)break;evnt(26070,16455,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("Highlight #keywords and numbers",31)); +if(!qbevent)break;evnt(26070,16456,"ide_methods.bas");}while(r); +S_53899:; +if ((*__INTEGER_KEYWORDHIGHLIGHT)||new_error){ +if(qbevent){evnt(26070,16457,"ide_methods.bas");if(r)goto S_53899;} +do{ +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+64))= 1 ; +if(!qbevent)break;evnt(26070,16457,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,16459,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+36))= 3 ; +if(!qbevent)break;evnt(26070,16460,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+24))= 20 ; +if(!qbevent)break;evnt(26070,16461,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("#OK",3),_FUNC_IDECHOOSECOLORSBOX_STRING1_SEP),qbs_new_txt_len("Restore #Defaults",17)),_FUNC_IDECHOOSECOLORSBOX_STRING1_SEP),qbs_new_txt_len("#Cancel",7))); +if(!qbevent)break;evnt(26070,16462,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+48))= 1 ; +if(!qbevent)break;evnt(26070,16463,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_RESULT=FUNC_READCONFIGSETTING(__STRING_COLORSETTINGSSECTION,qbs_new_txt_len("SchemeID",8),_FUNC_IDECHOOSECOLORSBOX_STRING_VALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16465,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID=qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_VALUE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16466,"ide_methods.bas");}while(r); +S_53909:; +if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID>*__INTEGER_TOTALCOLORSCHEMES))||new_error){ +if(qbevent){evnt(26070,16467,"ide_methods.bas");if(r)goto S_53909;} +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID= 0 ; +if(!qbevent)break;evnt(26070,16467,"ide_methods.bas");}while(r); +} +S_53912:; +if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID== 0 ))||new_error){ +if(qbevent){evnt(26070,16469,"ide_methods.bas");if(r)goto S_53912;} +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_A2,qbs_new_txt_len("User-defined",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16470,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_FOUNDPIPE=func_instr(NULL,((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5])])),qbs_new_txt_len("|",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16473,"ide_methods.bas");}while(r); +S_53916:; +if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOUNDPIPE> 0 ))||new_error){ +if(qbevent){evnt(26070,16474,"ide_methods.bas");if(r)goto S_53916;} +S_53917:; +if ((qbs_cleanup(qbs_tmp_base,-(((int32)(func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5])])),*_FUNC_IDECHOOSECOLORSBOX_LONG_FOUNDPIPE+ 1 ,NULL,0))->len)== 90 )))||new_error){ +if(qbevent){evnt(26070,16475,"ide_methods.bas");if(r)goto S_53917;} +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_A2,qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5])])),*_FUNC_IDECHOOSECOLORSBOX_LONG_FOUNDPIPE- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16476,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID= 0 ; +if(!qbevent)break;evnt(26070,16478,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_A2,qbs_new_txt_len("User-defined",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16479,"ide_methods.bas");}while(r); +} +}else{ +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID= 0 ; +if(!qbevent)break;evnt(26070,16482,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_A2,qbs_new_txt_len("User-defined",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16483,"ide_methods.bas");}while(r); +} +} +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,16486,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+36))= 1 ; +if(!qbevent)break;evnt(26070,16487,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+20))= 9 ; +if(!qbevent)break;evnt(26070,16488,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+24))= 2 ; +if(!qbevent)break;evnt(26070,16489,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+28))= 38 ; +if(!qbevent)break;evnt(26070,16490,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("#Scheme",7)); +if(!qbevent)break;evnt(26070,16491,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDECHOOSECOLORSBOX_STRING_A2); +if(!qbevent)break;evnt(26070,16492,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+81))=_FUNC_IDECHOOSECOLORSBOX_STRING_A2->len; +if(!qbevent)break;evnt(26070,16493,"ide_methods.bas");}while(r); +S_53936:; +fornext_value5953= 1 ; +fornext_finalvalue5953= 100 ; +fornext_step5953= 1 ; +if (fornext_step5953<0) fornext_step_negative5953=1; else fornext_step_negative5953=0; +if (new_error) goto fornext_error5953; +goto fornext_entrylabel5953; +while(1){ +fornext_value5953=fornext_step5953+(*_FUNC_IDECHOOSECOLORSBOX_LONG_I); +fornext_entrylabel5953: +*_FUNC_IDECHOOSECOLORSBOX_LONG_I=fornext_value5953; +if (fornext_step_negative5953){ +if (fornext_value5953fornext_finalvalue5953) break; +} +fornext_error5953:; +if(qbevent){evnt(26070,16498,"ide_methods.bas");if(r)goto S_53936;} +do{ +memcpy(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89)+ 0,((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0)+ 0, 20); +if(!qbevent)break;evnt(26070,16498,"ide_methods.bas");}while(r); +fornext_continue_5952:; +} +fornext_exit_5952:; +S_53939:; +do{ +if(qbevent){evnt(26070,16501,"ide_methods.bas");if(r)goto S_53939;} +do{ +SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDECHOOSECOLORSBOX_UDT_P)) + (0) )); +if(!qbevent)break;evnt(26070,16504,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_F= 1 ; +if(!qbevent)break;evnt(26070,16505,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_CX= 0 ; +if(!qbevent)break;evnt(26070,16505,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_CY= 0 ; +if(!qbevent)break;evnt(26070,16505,"ide_methods.bas");}while(r); +S_53944:; +fornext_value5956= 1 ; +fornext_finalvalue5956= 100 ; +fornext_step5956= 1 ; +if (fornext_step5956<0) fornext_step_negative5956=1; else fornext_step_negative5956=0; +if (new_error) goto fornext_error5956; +goto fornext_entrylabel5956; +while(1){ +fornext_value5956=fornext_step5956+(*_FUNC_IDECHOOSECOLORSBOX_LONG_I); +fornext_entrylabel5956: +*_FUNC_IDECHOOSECOLORSBOX_LONG_I=fornext_value5956; +if (fornext_step_negative5956){ +if (fornext_value5956fornext_finalvalue5956) break; +} +fornext_error5956:; +if(qbevent){evnt(26070,16506,"ide_methods.bas");if(r)goto S_53944;} +S_53945:; +if ((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+36)))||new_error){ +if(qbevent){evnt(26070,16507,"ide_methods.bas");if(r)goto S_53945;} +do{ +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+60))=*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS-*_FUNC_IDECHOOSECOLORSBOX_LONG_F; +if(!qbevent)break;evnt(26070,16510,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+52))= 0 ; +if(!qbevent)break;evnt(26070,16511,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+56))= 0 ; +if(!qbevent)break;evnt(26070,16511,"ide_methods.bas");}while(r); +do{ +SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDECHOOSECOLORSBOX_LONG_F); +if(!qbevent)break;evnt(26070,16512,"ide_methods.bas");}while(r); +S_53950:; +if ((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+52)))||new_error){ +if(qbevent){evnt(26070,16513,"ide_methods.bas");if(r)goto S_53950;} +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_CX=*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+52)); +if(!qbevent)break;evnt(26070,16513,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_CY=*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+56)); +if(!qbevent)break;evnt(26070,16513,"ide_methods.bas");}while(r); +} +} +fornext_continue_5955:; +} +fornext_exit_5955:; +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_LASTFOCUS=*_FUNC_IDECHOOSECOLORSBOX_LONG_F- 1 ; +if(!qbevent)break;evnt(26070,16516,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 2 ,*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 2 ,NULL,NULL,NULL,3); +if(!qbevent)break;evnt(26070,16521,"ide_methods.bas");}while(r); +S_53958:; +if (((-(*__LONG_MY==(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 2 )))&(-(*__LONG_MX>=(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 2 )))&(-(*__LONG_MX<=(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 4 ))))||new_error){ +if(qbevent){evnt(26070,16522,"ide_methods.bas");if(r)goto S_53958;} +do{ +qbg_sub_color( 15 , 0 ,NULL,3); +if(!qbevent)break;evnt(26070,16522,"ide_methods.bas");}while(r); +}else{ +do{ +qbg_sub_color( 15 , 2 ,NULL,3); +if(!qbevent)break;evnt(26070,16522,"ide_methods.bas");}while(r); +} +S_53963:; +if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID<= 1 ))||new_error){ +if(qbevent){evnt(26070,16523,"ide_methods.bas");if(r)goto S_53963;} +do{ +qbg_sub_color( 7 , 2 ,NULL,3); +if(!qbevent)break;evnt(26070,16523,"ide_methods.bas");}while(r); +} +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_add(qbs_add(qbs_new_txt_len(" ",1),func_chr( 17 )),qbs_new_txt_len(" ",1))); +if (new_error) goto skip5957; +makefit(tqbs); +qbs_print(tqbs,0); +skip5957: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16524,"ide_methods.bas");}while(r); +S_53967:; +if (((-(*__LONG_MY==(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 2 )))&(-(*__LONG_MX>=(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 5 )))&(-(*__LONG_MX<=(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 7 ))))||new_error){ +if(qbevent){evnt(26070,16525,"ide_methods.bas");if(r)goto S_53967;} +do{ +qbg_sub_color( 15 , 0 ,NULL,3); +if(!qbevent)break;evnt(26070,16525,"ide_methods.bas");}while(r); +}else{ +do{ +qbg_sub_color( 15 , 2 ,NULL,3); +if(!qbevent)break;evnt(26070,16525,"ide_methods.bas");}while(r); +} +S_53972:; +if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID==*__INTEGER_LASTVALIDCOLORSCHEME))||new_error){ +if(qbevent){evnt(26070,16526,"ide_methods.bas");if(r)goto S_53972;} +do{ +qbg_sub_color( 7 , 2 ,NULL,3); +if(!qbevent)break;evnt(26070,16526,"ide_methods.bas");}while(r); +} +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_add(qbs_add(qbs_new_txt_len(" ",1),func_chr( 16 )),qbs_new_txt_len(" ",1))); +if (new_error) goto skip5958; +makefit(tqbs); +qbs_print(tqbs,0); +skip5958: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16527,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 2 ,*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 60 ,NULL,NULL,NULL,3); +if(!qbevent)break;evnt(26070,16530,"ide_methods.bas");}while(r); +S_53977:; +if (((-(*__LONG_MY==(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 2 )))&(-(*__LONG_MX>=(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 60 )))&(-(*__LONG_MX<=(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 65 ))))||new_error){ +if(qbevent){evnt(26070,16531,"ide_methods.bas");if(r)goto S_53977;} +do{ +qbg_sub_color( 15 , 0 ,NULL,3); +if(!qbevent)break;evnt(26070,16531,"ide_methods.bas");}while(r); +}else{ +do{ +qbg_sub_color( 15 , 2 ,NULL,3); +if(!qbevent)break;evnt(26070,16531,"ide_methods.bas");}while(r); +} +S_53982:; +if (((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID> 0 ))&(-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID<=*__INTEGER_PRESETCOLORSCHEMES)))||new_error){ +if(qbevent){evnt(26070,16532,"ide_methods.bas");if(r)goto S_53982;} +do{ +qbg_sub_color( 7 , 2 ,NULL,3); +if(!qbevent)break;evnt(26070,16532,"ide_methods.bas");}while(r); +} +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len(" Save ",6)); +if (new_error) goto skip5959; +makefit(tqbs); +qbs_print(tqbs,0); +skip5959: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16533,"ide_methods.bas");}while(r); +S_53986:; +if (((-(*__LONG_MY==(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 2 )))&(-(*__LONG_MX>=(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 66 )))&(-(*__LONG_MX<=(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 72 ))))||new_error){ +if(qbevent){evnt(26070,16534,"ide_methods.bas");if(r)goto S_53986;} +do{ +qbg_sub_color( 15 , 0 ,NULL,3); +if(!qbevent)break;evnt(26070,16534,"ide_methods.bas");}while(r); +}else{ +do{ +qbg_sub_color( 15 , 2 ,NULL,3); +if(!qbevent)break;evnt(26070,16534,"ide_methods.bas");}while(r); +} +S_53991:; +if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID<=*__INTEGER_PRESETCOLORSCHEMES))||new_error){ +if(qbevent){evnt(26070,16535,"ide_methods.bas");if(r)goto S_53991;} +do{ +qbg_sub_color( 7 , 2 ,NULL,3); +if(!qbevent)break;evnt(26070,16535,"ide_methods.bas");}while(r); +} +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len(" Erase ",7)); +if (new_error) goto skip5960; +makefit(tqbs); +qbs_print(tqbs,0); +skip5960: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16536,"ide_methods.bas");}while(r); +do{ +qbg_sub_color(NULL, 7 ,NULL,2); +if(!qbevent)break;evnt(26070,16538,"ide_methods.bas");}while(r); +do{ +sub__palettecolor( 1 ,*__ULONG_IDEBACKGROUNDCOLOR, 0 ,1); +if(!qbevent)break;evnt(26070,16540,"ide_methods.bas");}while(r); +do{ +sub__palettecolor( 2 ,func__rgb32( 84 , 84 , 84 ), 0 ,1); +if(!qbevent)break;evnt(26070,16541,"ide_methods.bas");}while(r); +do{ +sub__palettecolor( 4 ,*__ULONG_IDEERRORCOLOR, 0 ,1); +if(!qbevent)break;evnt(26070,16542,"ide_methods.bas");}while(r); +do{ +sub__palettecolor( 6 ,*__ULONG_IDEBACKGROUNDCOLOR2, 0 ,1); +if(!qbevent)break;evnt(26070,16543,"ide_methods.bas");}while(r); +do{ +sub__palettecolor( 7 ,*__ULONG_IDECHROMACOLOR, 0 ,1); +if(!qbevent)break;evnt(26070,16544,"ide_methods.bas");}while(r); +do{ +sub__palettecolor( 8 ,*__ULONG_IDENUMBERSCOLOR, 0 ,1); +if(!qbevent)break;evnt(26070,16545,"ide_methods.bas");}while(r); +do{ +sub__palettecolor( 10 ,*__ULONG_IDEMETACOMMANDCOLOR, 0 ,1); +if(!qbevent)break;evnt(26070,16546,"ide_methods.bas");}while(r); +do{ +sub__palettecolor( 11 ,*__ULONG_IDECOMMENTCOLOR, 0 ,1); +if(!qbevent)break;evnt(26070,16547,"ide_methods.bas");}while(r); +do{ +sub__palettecolor( 12 ,*__ULONG_IDEKEYWORDCOLOR, 0 ,1); +if(!qbevent)break;evnt(26070,16548,"ide_methods.bas");}while(r); +do{ +sub__palettecolor( 13 ,*__ULONG_IDETEXTCOLOR, 0 ,1); +if(!qbevent)break;evnt(26070,16549,"ide_methods.bas");}while(r); +do{ +sub__palettecolor( 14 ,*__ULONG_IDEQUOTECOLOR, 0 ,1); +if(!qbevent)break;evnt(26070,16550,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 0 ,NULL,NULL,1); +if(!qbevent)break;evnt(26070,16552,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 5 ,*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 36 ,NULL,NULL,NULL,3); +if(!qbevent)break;evnt(26070,16552,"ide_methods.bas");}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("R: ",3)); +if (new_error) goto skip5961; +makefit(tqbs); +qbs_print(tqbs,0); +skip5961: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16552,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 4 ,NULL,NULL,1); +if(!qbevent)break;evnt(26070,16553,"ide_methods.bas");}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,func_string( 26 , 196 )); +if (new_error) goto skip5962; +makefit(tqbs); +qbs_print(tqbs,0); +skip5962: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16553,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_SLIDER,func_chr( 197 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16554,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_T=qbr(func_val(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16555,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_R=qbr(((*_FUNC_IDECHOOSECOLORSBOX_LONG_T/ ((long double)( 255 )))* 26 )); +if(!qbevent)break;evnt(26070,16555,"ide_methods.bas");}while(r); +S_54015:; +if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_T== 0 ))||new_error){ +if(qbevent){evnt(26070,16556,"ide_methods.bas");if(r)goto S_54015;} +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_SLIDER,func_chr( 195 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16556,"ide_methods.bas");}while(r); +} +S_54018:; +if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_T== 255 ))||new_error){ +if(qbevent){evnt(26070,16557,"ide_methods.bas");if(r)goto S_54018;} +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_SLIDER,func_chr( 180 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16557,"ide_methods.bas");}while(r); +} +do{ +sub__printstring(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 39 +*_FUNC_IDECHOOSECOLORSBOX_LONG_R,*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 5 ,_FUNC_IDECHOOSECOLORSBOX_STRING_SLIDER,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16558,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 0 ,NULL,NULL,1); +if(!qbevent)break;evnt(26070,16560,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 8 ,*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 36 ,NULL,NULL,NULL,3); +if(!qbevent)break;evnt(26070,16560,"ide_methods.bas");}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("G: ",3)); +if (new_error) goto skip5963; +makefit(tqbs); +qbs_print(tqbs,0); +skip5963: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16560,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 5 ,NULL,NULL,1); +if(!qbevent)break;evnt(26070,16561,"ide_methods.bas");}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,func_string( 26 , 196 )); +if (new_error) goto skip5964; +makefit(tqbs); +qbs_print(tqbs,0); +skip5964: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16561,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_SLIDER,func_chr( 197 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16562,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_T=qbr(func_val(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16563,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_R=qbr(((*_FUNC_IDECHOOSECOLORSBOX_LONG_T/ ((long double)( 255 )))* 26 )); +if(!qbevent)break;evnt(26070,16563,"ide_methods.bas");}while(r); +S_54030:; +if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_T== 0 ))||new_error){ +if(qbevent){evnt(26070,16564,"ide_methods.bas");if(r)goto S_54030;} +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_SLIDER,func_chr( 195 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16564,"ide_methods.bas");}while(r); +} +S_54033:; +if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_T== 255 ))||new_error){ +if(qbevent){evnt(26070,16565,"ide_methods.bas");if(r)goto S_54033;} +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_SLIDER,func_chr( 180 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16565,"ide_methods.bas");}while(r); +} +do{ +sub__printstring(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 39 +*_FUNC_IDECHOOSECOLORSBOX_LONG_R,*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 8 ,_FUNC_IDECHOOSECOLORSBOX_STRING_SLIDER,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16566,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 0 ,NULL,NULL,1); +if(!qbevent)break;evnt(26070,16568,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 11 ,*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 36 ,NULL,NULL,NULL,3); +if(!qbevent)break;evnt(26070,16568,"ide_methods.bas");}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("B: ",3)); +if (new_error) goto skip5965; +makefit(tqbs); +qbs_print(tqbs,0); +skip5965: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16568,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 9 ,NULL,NULL,1); +if(!qbevent)break;evnt(26070,16569,"ide_methods.bas");}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,func_string( 26 , 196 )); +if (new_error) goto skip5966; +makefit(tqbs); +qbs_print(tqbs,0); +skip5966: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16569,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_SLIDER,func_chr( 197 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16570,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_T=qbr(func_val(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 4 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16571,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_R=qbr(((*_FUNC_IDECHOOSECOLORSBOX_LONG_T/ ((long double)( 255 )))* 26 )); +if(!qbevent)break;evnt(26070,16571,"ide_methods.bas");}while(r); +S_54045:; +if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_T== 0 ))||new_error){ +if(qbevent){evnt(26070,16572,"ide_methods.bas");if(r)goto S_54045;} +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_SLIDER,func_chr( 195 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16572,"ide_methods.bas");}while(r); +} +S_54048:; +if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_T== 255 ))||new_error){ +if(qbevent){evnt(26070,16573,"ide_methods.bas");if(r)goto S_54048;} +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_SLIDER,func_chr( 180 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16573,"ide_methods.bas");}while(r); +} +do{ +sub__printstring(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 39 +*_FUNC_IDECHOOSECOLORSBOX_LONG_R,*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 11 ,_FUNC_IDECHOOSECOLORSBOX_STRING_SLIDER,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16574,"ide_methods.bas");}while(r); +S_54052:; +sc_5967_var=0; +if(qbevent){evnt(26070,16576,"ide_methods.bas");if(r)goto S_54052;} +S_54053:; +if ((((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM>=( 1 ))&&(*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM<=( 9 ))))||new_error){ +if(qbevent){evnt(26070,16577,"ide_methods.bas");if(r)goto S_54053;} +do{ +qbg_sub_color( 7 , 1 ,NULL,3); +if(!qbevent)break;evnt(26070,16578,"ide_methods.bas");}while(r); +do{ +sub__printstring(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 39 ,*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 13 ,qbs_add(func_chr( 218 ),func_string( 25 , 196 )),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16579,"ide_methods.bas");}while(r); +do{ +sub__printstring(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 39 ,*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 14 ,qbs_add(func_chr( 179 ),func_space( 25 )),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16580,"ide_methods.bas");}while(r); +do{ +sub__printstring(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 39 ,*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 15 ,qbs_add(func_chr( 179 ),func_space( 25 )),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16581,"ide_methods.bas");}while(r); +sc_ec_378_end:; +sc_5967_var=-1; +} +S_54058:; +if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 1 )))||new_error){ +if(qbevent){evnt(26070,16582,"ide_methods.bas");if(r)goto S_54058;} +do{ +qbg_sub_color( 13 , 1 ,NULL,3); +if(!qbevent)break;evnt(26070,16582,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_SAMPLETEXT,qbs_new_txt_len("myVar% = ",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16582,"ide_methods.bas");}while(r); +sc_ec_379_end:; +sc_5967_var=-1; +} +S_54061:; +if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 2 )))||new_error){ +if(qbevent){evnt(26070,16583,"ide_methods.bas");if(r)goto S_54061;} +do{ +qbg_sub_color( 12 , 1 ,NULL,3); +if(!qbevent)break;evnt(26070,16583,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_SAMPLETEXT,qbs_new_txt_len("CLS: PRINT",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16583,"ide_methods.bas");}while(r); +sc_ec_380_end:; +sc_5967_var=-1; +} +S_54064:; +if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 3 )))||new_error){ +if(qbevent){evnt(26070,16584,"ide_methods.bas");if(r)goto S_54064;} +do{ +qbg_sub_color( 13 , 1 ,NULL,3); +if(!qbevent)break;evnt(26070,16584,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_SAMPLETEXT,qbs_new_txt_len("myVar% = ",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16584,"ide_methods.bas");}while(r); +sc_ec_381_end:; +sc_5967_var=-1; +} +S_54067:; +if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 4 )))||new_error){ +if(qbevent){evnt(26070,16585,"ide_methods.bas");if(r)goto S_54067;} +do{ +qbg_sub_color( 14 , 1 ,NULL,3); +if(!qbevent)break;evnt(26070,16585,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_SAMPLETEXT,qbs_add(qbs_add(qbs_add(func_space( 6 ),func_chr( 34 )),qbs_new_txt_len("Hello, world!",13)),func_chr( 34 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16585,"ide_methods.bas");}while(r); +sc_ec_382_end:; +sc_5967_var=-1; +} +S_54070:; +if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 5 )))||new_error){ +if(qbevent){evnt(26070,16586,"ide_methods.bas");if(r)goto S_54070;} +do{ +qbg_sub_color( 10 , 1 ,NULL,3); +if(!qbevent)break;evnt(26070,16586,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_SAMPLETEXT,qbs_new_txt_len("'$DYNAMIC",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16586,"ide_methods.bas");}while(r); +sc_ec_383_end:; +sc_5967_var=-1; +} +S_54073:; +if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 6 )))||new_error){ +if(qbevent){evnt(26070,16587,"ide_methods.bas");if(r)goto S_54073;} +do{ +qbg_sub_color( 11 , 1 ,NULL,3); +if(!qbevent)break;evnt(26070,16587,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_SAMPLETEXT,qbs_new_txt_len("'TODO: review this block",24)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16587,"ide_methods.bas");}while(r); +sc_ec_384_end:; +sc_5967_var=-1; +} +S_54076:; +if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 7 )))||new_error){ +if(qbevent){evnt(26070,16588,"ide_methods.bas");if(r)goto S_54076;} +do{ +qbg_sub_color( 1 , 1 ,NULL,3); +if(!qbevent)break;evnt(26070,16588,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_SAMPLETEXT,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16588,"ide_methods.bas");}while(r); +sc_ec_385_end:; +sc_5967_var=-1; +} +S_54079:; +if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 8 )))||new_error){ +if(qbevent){evnt(26070,16589,"ide_methods.bas");if(r)goto S_54079;} +do{ +qbg_sub_color( 6 , 6 ,NULL,3); +if(!qbevent)break;evnt(26070,16589,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_SAMPLETEXT,func_space( 25 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16589,"ide_methods.bas");}while(r); +sc_ec_386_end:; +sc_5967_var=-1; +} +S_54082:; +if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 9 )))||new_error){ +if(qbevent){evnt(26070,16590,"ide_methods.bas");if(r)goto S_54082;} +do{ +qbg_sub_color( 6 , 6 ,NULL,3); +if(!qbevent)break;evnt(26070,16591,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_SAMPLETEXT,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16591,"ide_methods.bas");}while(r); +do{ +sub__palettecolor( 6 ,*__ULONG_IDEBRACKETHIGHLIGHTCOLOR, 0 ,1); +if(!qbevent)break;evnt(26070,16592,"ide_methods.bas");}while(r); +sc_ec_387_end:; +sc_5967_var=-1; +} +S_54086:; +if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 10 )))||new_error){ +if(qbevent){evnt(26070,16593,"ide_methods.bas");if(r)goto S_54086;} +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,16594,"ide_methods.bas");}while(r); +do{ +sub__printstring(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 39 ,*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 13 ,qbs_add(qbs_add(func_chr( 218 ),func_string( 24 , 196 )),func_chr( 191 )),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16595,"ide_methods.bas");}while(r); +do{ +sub__printstring(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 39 ,*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 14 ,qbs_add(qbs_add(func_chr( 179 ),func_space( 24 )),func_chr( 179 )),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16596,"ide_methods.bas");}while(r); +do{ +sub__printstring(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 39 ,*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 15 ,qbs_add(qbs_add(func_chr( 192 ),func_string( 24 , 196 )),func_chr( 217 )),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16597,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_SAMPLETEXT,qbs_new_txt_len(" Open... Ctrl+O ",24)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16598,"ide_methods.bas");}while(r); +sc_ec_388_end:; +} +sc_5967_end:; +do{ +sub__printstring(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 40 ,*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 14 ,_FUNC_IDECHOOSECOLORSBOX_STRING_SAMPLETEXT,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16601,"ide_methods.bas");}while(r); +S_54094:; +if (((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM== 1 ))|(-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM== 3 )))||new_error){ +if(qbevent){evnt(26070,16602,"ide_methods.bas");if(r)goto S_54094;} +do{ +qbg_sub_color( 8 , 1 ,NULL,3); +if(!qbevent)break;evnt(26070,16603,"ide_methods.bas");}while(r); +do{ +sub__printstring(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 49 ,*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 14 ,qbs_new_txt_len("5",1),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16604,"ide_methods.bas");}while(r); +S_54097:; +}else{ +if (-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM== 2 )){ +if(qbevent){evnt(26070,16605,"ide_methods.bas");if(r)goto S_54097;} +do{ +qbg_sub_color( 13 , 1 ,NULL,3); +if(!qbevent)break;evnt(26070,16606,"ide_methods.bas");}while(r); +do{ +sub__printstring(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 51 ,*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 14 ,qbs_new_txt_len("myVar%",6),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16607,"ide_methods.bas");}while(r); +S_54100:; +}else{ +if (-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM== 4 )){ +if(qbevent){evnt(26070,16608,"ide_methods.bas");if(r)goto S_54100;} +do{ +qbg_sub_color( 12 , 1 ,NULL,3); +if(!qbevent)break;evnt(26070,16609,"ide_methods.bas");}while(r); +do{ +sub__printstring(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 40 ,*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 14 ,qbs_new_txt_len("PRINT",5),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16610,"ide_methods.bas");}while(r); +S_54103:; +}else{ +if (-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM== 5 )){ +if(qbevent){evnt(26070,16611,"ide_methods.bas");if(r)goto S_54103;} +do{ +qbg_sub_color( 11 , 1 ,NULL,3); +if(!qbevent)break;evnt(26070,16612,"ide_methods.bas");}while(r); +do{ +sub__printstring(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 40 ,*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 14 ,qbs_new_txt_len("'",1),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16613,"ide_methods.bas");}while(r); +S_54106:; +}else{ +if (-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM== 9 )){ +if(qbevent){evnt(26070,16614,"ide_methods.bas");if(r)goto S_54106;} +do{ +qbg_sub_locate(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 14 ,*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 40 ,NULL,NULL,NULL,3); +if(!qbevent)break;evnt(26070,16615,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 13 , 1 ,NULL,3); +if(!qbevent)break;evnt(26070,16616,"ide_methods.bas");}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("myVar% = ",9)); +if (new_error) goto skip5968; +makefit(tqbs); +qbs_print(tqbs,0); +skip5968: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16616,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 12 ,NULL,NULL,1); +if(!qbevent)break;evnt(26070,16617,"ide_methods.bas");}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("INT RND",7)); +if (new_error) goto skip5969; +makefit(tqbs); +qbs_print(tqbs,0); +skip5969: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16617,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 14 ,*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 52 ,NULL,NULL,NULL,3); +if(!qbevent)break;evnt(26070,16618,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 13 , 6 ,NULL,3); +if(!qbevent)break;evnt(26070,16619,"ide_methods.bas");}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("(",1)); +if (new_error) goto skip5970; +makefit(tqbs); +qbs_print(tqbs,0); +skip5970: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16619,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 14 ,*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 56 ,NULL,NULL,NULL,3); +if(!qbevent)break;evnt(26070,16620,"ide_methods.bas");}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len(")",1)); +if (new_error) goto skip5971; +makefit(tqbs); +qbs_print(tqbs,0); +skip5971: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16621,"ide_methods.bas");}while(r); +S_54117:; +}else{ +if (-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM== 10 )){ +if(qbevent){evnt(26070,16622,"ide_methods.bas");if(r)goto S_54117;} +do{ +qbg_sub_color( 15 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,16623,"ide_methods.bas");}while(r); +do{ +sub__printstring(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 41 ,*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 14 ,qbs_new_txt_len("O",1),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16624,"ide_methods.bas");}while(r); +} +} +} +} +} +} +do{ +sub_pcopy( 1 , 0 ); +if(!qbevent)break;evnt(26070,16629,"ide_methods.bas");}while(r); +S_54122:; +if ((*_FUNC_IDECHOOSECOLORSBOX_LONG_CX)||new_error){ +if(qbevent){evnt(26070,16630,"ide_methods.bas");if(r)goto S_54122;} +do{ +qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,16630,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(*_FUNC_IDECHOOSECOLORSBOX_LONG_CY,*_FUNC_IDECHOOSECOLORSBOX_LONG_CX, 1 ,NULL,NULL,7); +if(!qbevent)break;evnt(26070,16630,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,16630,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGE= 0 ; +if(!qbevent)break;evnt(26070,16633,"ide_methods.bas");}while(r); +S_54128:; +do{ +if(qbevent){evnt(26070,16634,"ide_methods.bas");if(r)goto S_54128;} +do{ +SUB_GETINPUT(); +if(!qbevent)break;evnt(26070,16635,"ide_methods.bas");}while(r); +S_54130:; +if ((*__LONG_MWHEEL)||new_error){ +if(qbevent){evnt(26070,16636,"ide_methods.bas");if(r)goto S_54130;} +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,16636,"ide_methods.bas");}while(r); +} +S_54133:; +if ((*__LONG_KB)||new_error){ +if(qbevent){evnt(26070,16637,"ide_methods.bas");if(r)goto S_54133;} +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,16637,"ide_methods.bas");}while(r); +} +S_54136:; +if ((*__LONG_MCLICK)||new_error){ +if(qbevent){evnt(26070,16638,"ide_methods.bas");if(r)goto S_54136;} +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_MOUSEDOWN= 1 ; +if(!qbevent)break;evnt(26070,16638,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,16638,"ide_methods.bas");}while(r); +} +S_54140:; +if ((*__LONG_MRELEASE)||new_error){ +if(qbevent){evnt(26070,16639,"ide_methods.bas");if(r)goto S_54140;} +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_MOUSEUP= 1 ; +if(!qbevent)break;evnt(26070,16639,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,16639,"ide_methods.bas");}while(r); +} +S_54144:; +if ((*__LONG_MB)||new_error){ +if(qbevent){evnt(26070,16640,"ide_methods.bas");if(r)goto S_54144;} +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,16640,"ide_methods.bas");}while(r); +} +S_54147:; +if (((-(*__LONG_MX!=*_FUNC_IDECHOOSECOLORSBOX_LONG_PREV__ASCII_CHR_046__MX))|(-(*__LONG_MY!=*_FUNC_IDECHOOSECOLORSBOX_LONG_PREV__ASCII_CHR_046__MY)))||new_error){ +if(qbevent){evnt(26070,16641,"ide_methods.bas");if(r)goto S_54147;} +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,16641,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_PREV__ASCII_CHR_046__MX=*__LONG_MX; +if(!qbevent)break;evnt(26070,16641,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_PREV__ASCII_CHR_046__MY=*__LONG_MY; +if(!qbevent)break;evnt(26070,16641,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_ALT=*__LONG_KALT; +if(!qbevent)break;evnt(26070,16642,"ide_methods.bas");}while(r); +S_54153:; +if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_ALT!=*_FUNC_IDECHOOSECOLORSBOX_LONG_OLDALT))||new_error){ +if(qbevent){evnt(26070,16642,"ide_methods.bas");if(r)goto S_54153;} +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,16642,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_OLDALT=*_FUNC_IDECHOOSECOLORSBOX_LONG_ALT; +if(!qbevent)break;evnt(26070,16643,"ide_methods.bas");}while(r); +do{ +sub__limit( 100 ); +if(!qbevent)break;evnt(26070,16644,"ide_methods.bas");}while(r); +S_54158:; +dl_continue_5972:; +}while((!(*_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGE))&&(!new_error)); +dl_exit_5972:; +if(qbevent){evnt(26070,16645,"ide_methods.bas");if(r)goto S_54158;} +S_54159:; +if ((*_FUNC_IDECHOOSECOLORSBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ +if(qbevent){evnt(26070,16646,"ide_methods.bas");if(r)goto S_54159;} +do{ +*__LONG_IDEHL= 1 ; +if(!qbevent)break;evnt(26070,16646,"ide_methods.bas");}while(r); +}else{ +do{ +*__LONG_IDEHL= 0 ; +if(!qbevent)break;evnt(26070,16646,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_ALTLETTER,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16648,"ide_methods.bas");}while(r); +S_54165:; +if ((*_FUNC_IDECHOOSECOLORSBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ +if(qbevent){evnt(26070,16649,"ide_methods.bas");if(r)goto S_54165;} +S_54166:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ +if(qbevent){evnt(26070,16650,"ide_methods.bas");if(r)goto S_54166;} +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16651,"ide_methods.bas");}while(r); +S_54168:; +if (((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_K>= 65 ))&(-(*_FUNC_IDECHOOSECOLORSBOX_LONG_K<= 90 )))||new_error){ +if(qbevent){evnt(26070,16652,"ide_methods.bas");if(r)goto S_54168;} +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_ALTLETTER,func_chr(*_FUNC_IDECHOOSECOLORSBOX_LONG_K)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16652,"ide_methods.bas");}while(r); +} +} +} +do{ +qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,16655,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); +if(!qbevent)break;evnt(26070,16655,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,16655,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_INFO= 0 ; +if(!qbevent)break;evnt(26070,16659,"ide_methods.bas");}while(r); +S_54177:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,16660,"ide_methods.bas");if(r)goto S_54177;} +do{ +qbs_set(__STRING_K,func_chr( 255 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16660,"ide_methods.bas");}while(r); +} +S_54180:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ +if(qbevent){evnt(26070,16661,"ide_methods.bas");if(r)goto S_54180;} +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS=*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS+ 1 ; +if(!qbevent)break;evnt(26070,16661,"ide_methods.bas");}while(r); +} +S_54183:; +if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||new_error){ +if(qbevent){evnt(26070,16662,"ide_methods.bas");if(r)goto S_54183;} +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS=*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS- 1 ; +if(!qbevent)break;evnt(26070,16662,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_K,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16662,"ide_methods.bas");}while(r); +} +S_54187:; +if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS< 1 ))||new_error){ +if(qbevent){evnt(26070,16663,"ide_methods.bas");if(r)goto S_54187;} +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS=*_FUNC_IDECHOOSECOLORSBOX_LONG_LASTFOCUS; +if(!qbevent)break;evnt(26070,16663,"ide_methods.bas");}while(r); +} +S_54190:; +if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS>*_FUNC_IDECHOOSECOLORSBOX_LONG_LASTFOCUS))||new_error){ +if(qbevent){evnt(26070,16664,"ide_methods.bas");if(r)goto S_54190;} +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS= 1 ; +if(!qbevent)break;evnt(26070,16664,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_F= 1 ; +if(!qbevent)break;evnt(26070,16665,"ide_methods.bas");}while(r); +S_54194:; +fornext_value5975= 1 ; +fornext_finalvalue5975= 100 ; +fornext_step5975= 1 ; +if (fornext_step5975<0) fornext_step_negative5975=1; else fornext_step_negative5975=0; +if (new_error) goto fornext_error5975; +goto fornext_entrylabel5975; +while(1){ +fornext_value5975=fornext_step5975+(*_FUNC_IDECHOOSECOLORSBOX_LONG_I); +fornext_entrylabel5975: +*_FUNC_IDECHOOSECOLORSBOX_LONG_I=fornext_value5975; +if (fornext_step_negative5975){ +if (fornext_value5975fornext_finalvalue5975) break; +} +fornext_error5975:; +if(qbevent){evnt(26070,16666,"ide_methods.bas");if(r)goto S_54194;} +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_T=*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+36)); +if(!qbevent)break;evnt(26070,16667,"ide_methods.bas");}while(r); +S_54196:; +if ((*_FUNC_IDECHOOSECOLORSBOX_LONG_T)||new_error){ +if(qbevent){evnt(26070,16668,"ide_methods.bas");if(r)goto S_54196;} +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUSOFFSET=*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS-*_FUNC_IDECHOOSECOLORSBOX_LONG_F; +if(!qbevent)break;evnt(26070,16669,"ide_methods.bas");}while(r); +do{ +SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS,_FUNC_IDECHOOSECOLORSBOX_LONG_F,_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDECHOOSECOLORSBOX_STRING_ALTLETTER,__LONG_MB,_FUNC_IDECHOOSECOLORSBOX_LONG_MOUSEDOWN,_FUNC_IDECHOOSECOLORSBOX_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDECHOOSECOLORSBOX_LONG_INFO,__LONG_MWHEEL); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16670,"ide_methods.bas");}while(r); +} +fornext_continue_5974:; +} +fornext_exit_5974:; +S_54201:; +if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS!=*_FUNC_IDECHOOSECOLORSBOX_LONG_PREVFOCUS))||new_error){ +if(qbevent){evnt(26070,16676,"ide_methods.bas");if(r)goto S_54201;} +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_PREVFOCUS=*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS; +if(!qbevent)break;evnt(26070,16678,"ide_methods.bas");}while(r); +S_54203:; +if (((((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS>= 2 ))&(-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS<= 4 ))))|(-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS== 11 )))||new_error){ +if(qbevent){evnt(26070,16679,"ide_methods.bas");if(r)goto S_54203;} +S_54204:; +if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS== 11 ))||new_error){ +if(qbevent){evnt(26070,16680,"ide_methods.bas");if(r)goto S_54204;} +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_TFOCUS= 9 ; +if(!qbevent)break;evnt(26070,16680,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_TFOCUS=*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS; +if(!qbevent)break;evnt(26070,16680,"ide_methods.bas");}while(r); +} +do{ +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_TFOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_TFOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; +if(!qbevent)break;evnt(26070,16681,"ide_methods.bas");}while(r); +S_54210:; +if ((-(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_TFOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+81))> 0 ))||new_error){ +if(qbevent){evnt(26070,16682,"ide_methods.bas");if(r)goto S_54210;} +do{ +*(int8*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_TFOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+76))= -1 ; +if(!qbevent)break;evnt(26070,16682,"ide_methods.bas");}while(r); +} +do{ +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_TFOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+77))= 0 ; +if(!qbevent)break;evnt(26070,16683,"ide_methods.bas");}while(r); +S_54214:; +if ((((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_TFOCUS>= 2 ))&(-(*_FUNC_IDECHOOSECOLORSBOX_LONG_TFOCUS<= 4 ))))||new_error){ +if(qbevent){evnt(26070,16684,"ide_methods.bas");if(r)goto S_54214;} +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_PREVTB__ASCII_CHR_046__VALUE,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_TFOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16684,"ide_methods.bas");}while(r); +} +} +S_54218:; +}else{ +if (-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS==*_FUNC_IDECHOOSECOLORSBOX_LONG_PREVFOCUS)){ +if(qbevent){evnt(26070,16686,"ide_methods.bas");if(r)goto S_54218;} +S_54219:; +if (((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS>= 2 ))&(-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS<= 4 )))||new_error){ +if(qbevent){evnt(26070,16688,"ide_methods.bas");if(r)goto S_54219;} +S_54220:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_IDECHOOSECOLORSBOX_STRING_PREVTB__ASCII_CHR_046__VALUE,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))))||new_error){ +if(qbevent){evnt(26070,16689,"ide_methods.bas");if(r)goto S_54220;} +do{ +return_point[next_return_point++]=173; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_NEWUSERSCHEME; +RETURN_173:; +if(!qbevent)break;evnt(26070,16690,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_PREVTB__ASCII_CHR_046__VALUE,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16691,"ide_methods.bas");}while(r); +} +} +} +} +S_54226:; +if ((((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID== 0 ))|(-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID>*__INTEGER_PRESETCOLORSCHEMES)))&*__LONG_MCLICK)||new_error){ +if(qbevent){evnt(26070,16697,"ide_methods.bas");if(r)goto S_54226;} +S_54227:; +if (((-(*__LONG_MY==(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 2 )))&(-(*__LONG_MX>=(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 60 )))&(-(*__LONG_MX<=(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 65 ))))||new_error){ +if(qbevent){evnt(26070,16698,"ide_methods.bas");if(r)goto S_54227;} +S_54228:; +if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID== 0 ))||new_error){ +if(qbevent){evnt(26070,16700,"ide_methods.bas");if(r)goto S_54228;} +LABEL_SAVENEW:; +if(qbevent){evnt(26070,16701,"ide_methods.bas");r=0;} +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_SCHEMESTRING,qbs_ltrim(qbs_rtrim(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16702,"ide_methods.bas");}while(r); +S_54230:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDECHOOSECOLORSBOX_STRING_SCHEMESTRING->len== 0 )))||new_error){ +if(qbevent){evnt(26070,16703,"ide_methods.bas");if(r)goto S_54230;} +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_SCHEMESTRING,qbs_new_txt_len("User-defined",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16703,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_I= 0 ; +if(!qbevent)break;evnt(26070,16705,"ide_methods.bas");}while(r); +S_54234:; +do{ +if(qbevent){evnt(26070,16706,"ide_methods.bas");if(r)goto S_54234;} +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,16707,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_RESULT=FUNC_READCONFIGSETTING(__STRING_COLORSCHEMESSECTION,qbs_add(qbs_add(qbs_new_txt_len("Scheme",6),FUNC_STR2(_FUNC_IDECHOOSECOLORSBOX_LONG_I)),qbs_new_txt_len("$",1)),_FUNC_IDECHOOSECOLORSBOX_STRING_VALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16708,"ide_methods.bas");}while(r); +S_54237:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_IDECHOOSECOLORSBOX_STRING_VALUE,qbs_new_txt_len("",0)))|(qbs_equal(_FUNC_IDECHOOSECOLORSBOX_STRING_VALUE,qbs_new_txt_len("0",1)))))||new_error){ +if(qbevent){evnt(26070,16709,"ide_methods.bas");if(r)goto S_54237;} +do{ +goto dl_exit_5978; +if(!qbevent)break;evnt(26070,16709,"ide_methods.bas");}while(r); +} +dl_continue_5978:; +}while(1); +dl_exit_5978:; +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_SCHEMESTRING,qbs_add(_FUNC_IDECHOOSECOLORSBOX_STRING_SCHEMESTRING,qbs_new_txt_len("|",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16713,"ide_methods.bas");}while(r); +S_54242:; +fornext_value5980= 1 ; +fornext_finalvalue5980= 10 ; +fornext_step5980= 1 ; +if (fornext_step5980<0) fornext_step_negative5980=1; else fornext_step_negative5980=0; +if (new_error) goto fornext_error5980; +goto fornext_entrylabel5980; +while(1){ +fornext_value5980=fornext_step5980+(*_FUNC_IDECHOOSECOLORSBOX_LONG_J); +fornext_entrylabel5980: +*_FUNC_IDECHOOSECOLORSBOX_LONG_J=fornext_value5980; +if (fornext_step_negative5980){ +if (fornext_value5980fornext_finalvalue5980) break; +} +fornext_error5980:; +if(qbevent){evnt(26070,16714,"ide_methods.bas");if(r)goto S_54242;} +do{ +*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR=FUNC_GETCURRENTCOLOR(&(pass5981=*_FUNC_IDECHOOSECOLORSBOX_LONG_J)); +if(!qbevent)break;evnt(26070,16715,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_R,FUNC_STR2(&(pass5982=func__red32(*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16716,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_R,qbs_add(func_string( 3 -_FUNC_IDECHOOSECOLORSBOX_STRING_R->len,(qbs_new_txt_len("0",1)->chr[0])),_FUNC_IDECHOOSECOLORSBOX_STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16716,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_G,FUNC_STR2(&(pass5984=func__green32(*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16717,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_G,qbs_add(func_string( 3 -_FUNC_IDECHOOSECOLORSBOX_STRING_G->len,(qbs_new_txt_len("0",1)->chr[0])),_FUNC_IDECHOOSECOLORSBOX_STRING_G)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16717,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_B,FUNC_STR2(&(pass5986=func__blue32(*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16718,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_B,qbs_add(func_string( 3 -_FUNC_IDECHOOSECOLORSBOX_STRING_B->len,(qbs_new_txt_len("0",1)->chr[0])),_FUNC_IDECHOOSECOLORSBOX_STRING_B)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16718,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_SCHEMESTRING,qbs_add(qbs_add(qbs_add(_FUNC_IDECHOOSECOLORSBOX_STRING_SCHEMESTRING,_FUNC_IDECHOOSECOLORSBOX_STRING_R),_FUNC_IDECHOOSECOLORSBOX_STRING_G),_FUNC_IDECHOOSECOLORSBOX_STRING_B)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16719,"ide_methods.bas");}while(r); +fornext_continue_5979:; +} +fornext_exit_5979:; +do{ +SUB_WRITECONFIGSETTING(__STRING_COLORSCHEMESSECTION,qbs_add(qbs_add(qbs_new_txt_len("Scheme",6),FUNC_STR2(_FUNC_IDECHOOSECOLORSBOX_LONG_I)),qbs_new_txt_len("$",1)),_FUNC_IDECHOOSECOLORSBOX_STRING_SCHEMESTRING); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16723,"ide_methods.bas");}while(r); +do{ +SUB_LOADCOLORSCHEMES(); +if(!qbevent)break;evnt(26070,16724,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID=*__INTEGER_PRESETCOLORSCHEMES+*_FUNC_IDECHOOSECOLORSBOX_LONG_I; +if(!qbevent)break;evnt(26070,16725,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGEDSCHEME= -1 ; +if(!qbevent)break;evnt(26070,16726,"ide_methods.bas");}while(r); +do{ +goto LABEL_APPLYSCHEME; +if(!qbevent)break;evnt(26070,16727,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_FOUNDPIPE=func_instr(NULL,((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5])])),qbs_new_txt_len("|",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16729,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_SCHEMESTRING,qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5])])),*_FUNC_IDECHOOSECOLORSBOX_LONG_FOUNDPIPE- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16730,"ide_methods.bas");}while(r); +S_54260:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_IDECHOOSECOLORSBOX_STRING_SCHEMESTRING,qbs_ltrim(qbs_rtrim(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))))))||new_error){ +if(qbevent){evnt(26070,16732,"ide_methods.bas");if(r)goto S_54260;} +do{ +goto LABEL_SAVENEW; +if(!qbevent)break;evnt(26070,16734,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID-*__INTEGER_PRESETCOLORSCHEMES; +if(!qbevent)break;evnt(26070,16737,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_SCHEMESTRING,qbs_add(_FUNC_IDECHOOSECOLORSBOX_STRING_SCHEMESTRING,qbs_new_txt_len("|",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16738,"ide_methods.bas");}while(r); +S_54265:; +fornext_value5989= 1 ; +fornext_finalvalue5989= 10 ; +fornext_step5989= 1 ; +if (fornext_step5989<0) fornext_step_negative5989=1; else fornext_step_negative5989=0; +if (new_error) goto fornext_error5989; +goto fornext_entrylabel5989; +while(1){ +fornext_value5989=fornext_step5989+(*_FUNC_IDECHOOSECOLORSBOX_LONG_J); +fornext_entrylabel5989: +*_FUNC_IDECHOOSECOLORSBOX_LONG_J=fornext_value5989; +if (fornext_step_negative5989){ +if (fornext_value5989fornext_finalvalue5989) break; +} +fornext_error5989:; +if(qbevent){evnt(26070,16741,"ide_methods.bas");if(r)goto S_54265;} +do{ +*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR=FUNC_GETCURRENTCOLOR(&(pass5990=*_FUNC_IDECHOOSECOLORSBOX_LONG_J)); +if(!qbevent)break;evnt(26070,16742,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_R,FUNC_STR2(&(pass5991=func__red32(*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16743,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_R,qbs_add(func_string( 3 -_FUNC_IDECHOOSECOLORSBOX_STRING_R->len,(qbs_new_txt_len("0",1)->chr[0])),_FUNC_IDECHOOSECOLORSBOX_STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16743,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_G,FUNC_STR2(&(pass5993=func__green32(*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16744,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_G,qbs_add(func_string( 3 -_FUNC_IDECHOOSECOLORSBOX_STRING_G->len,(qbs_new_txt_len("0",1)->chr[0])),_FUNC_IDECHOOSECOLORSBOX_STRING_G)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16744,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_B,FUNC_STR2(&(pass5995=func__blue32(*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16745,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_B,qbs_add(func_string( 3 -_FUNC_IDECHOOSECOLORSBOX_STRING_B->len,(qbs_new_txt_len("0",1)->chr[0])),_FUNC_IDECHOOSECOLORSBOX_STRING_B)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16745,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_SCHEMESTRING,qbs_add(qbs_add(qbs_add(_FUNC_IDECHOOSECOLORSBOX_STRING_SCHEMESTRING,_FUNC_IDECHOOSECOLORSBOX_STRING_R),_FUNC_IDECHOOSECOLORSBOX_STRING_G),_FUNC_IDECHOOSECOLORSBOX_STRING_B)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16746,"ide_methods.bas");}while(r); +fornext_continue_5988:; +} +fornext_exit_5988:; +do{ +SUB_WRITECONFIGSETTING(__STRING_COLORSCHEMESSECTION,qbs_add(qbs_add(qbs_new_txt_len("Scheme",6),FUNC_STR2(_FUNC_IDECHOOSECOLORSBOX_LONG_I)),qbs_new_txt_len("$",1)),_FUNC_IDECHOOSECOLORSBOX_STRING_SCHEMESTRING); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16750,"ide_methods.bas");}while(r); +do{ +SUB_LOADCOLORSCHEMES(); +if(!qbevent)break;evnt(26070,16751,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID=*__INTEGER_PRESETCOLORSCHEMES+*_FUNC_IDECHOOSECOLORSBOX_LONG_I; +if(!qbevent)break;evnt(26070,16752,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGEDSCHEME= -1 ; +if(!qbevent)break;evnt(26070,16753,"ide_methods.bas");}while(r); +do{ +goto LABEL_APPLYSCHEME; +if(!qbevent)break;evnt(26070,16754,"ide_methods.bas");}while(r); +} +do{ +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; +if(!qbevent)break;evnt(26070,16756,"ide_methods.bas");}while(r); +do{ +*(int8*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+76))= -1 ; +if(!qbevent)break;evnt(26070,16757,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+77))= 0 ; +if(!qbevent)break;evnt(26070,16758,"ide_methods.bas");}while(r); +S_54284:; +}else{ +if ((-(*__LONG_MY==(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 2 )))&(-(*__LONG_MX>=(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 66 )))&(-(*__LONG_MX<=(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 72 )))){ +if(qbevent){evnt(26070,16759,"ide_methods.bas");if(r)goto S_54284;} +S_54285:; +if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID>*__INTEGER_PRESETCOLORSCHEMES))||new_error){ +if(qbevent){evnt(26070,16761,"ide_methods.bas");if(r)goto S_54285;} +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_WHAT,FUNC_IDEYESNOBOX(qbs_new_txt_len("Erase color scheme",18),qbs_new_txt_len("This cannot be undone. Erase scheme?",36))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16762,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_K,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16763,"ide_methods.bas");}while(r); +S_54288:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDECHOOSECOLORSBOX_STRING_WHAT,qbs_new_txt_len("Y",1))))||new_error){ +if(qbevent){evnt(26070,16764,"ide_methods.bas");if(r)goto S_54288;} +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID-*__INTEGER_PRESETCOLORSCHEMES; +if(!qbevent)break;evnt(26070,16765,"ide_methods.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_COLORSCHEMESSECTION,qbs_add(qbs_add(qbs_new_txt_len("Scheme",6),FUNC_STR2(_FUNC_IDECHOOSECOLORSBOX_LONG_I)),qbs_new_txt_len("$",1)),qbs_new_txt_len("0",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16766,"ide_methods.bas");}while(r); +do{ +SUB_LOADCOLORSCHEMES(); +if(!qbevent)break;evnt(26070,16767,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID=*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID- 1 ; +if(!qbevent)break;evnt(26070,16768,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGEDSCHEME= -1 ; +if(!qbevent)break;evnt(26070,16769,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEARROW= -1 ; +if(!qbevent)break;evnt(26070,16770,"ide_methods.bas");}while(r); +do{ +goto LABEL_VALIDATESCHEME; +if(!qbevent)break;evnt(26070,16771,"ide_methods.bas");}while(r); +} +} +} +} +} +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGEDSCHEME= 0 ; +if(!qbevent)break;evnt(26070,16778,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEARROW= 0 ; +if(!qbevent)break;evnt(26070,16779,"ide_methods.bas");}while(r); +S_54302:; +if ((qbs_cleanup(qbs_tmp_base,(*__LONG_MCLICK&(-(*__LONG_MY==(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 2 )))&(-(*__LONG_MX>=(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 2 )))&(-(*__LONG_MX<=(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 4 ))))|((qbs_equal(__STRING_K,(qbs_add(func_chr( 0 ),func_chr( 75 )))))&((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS== 1 ))))))||new_error){ +if(qbevent){evnt(26070,16781,"ide_methods.bas");if(r)goto S_54302;} +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEARROW= -1 ; +if(!qbevent)break;evnt(26070,16782,"ide_methods.bas");}while(r); +S_54304:; +if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID== 0 ))||new_error){ +if(qbevent){evnt(26070,16783,"ide_methods.bas");if(r)goto S_54304;} +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGEDSCHEME= -1 ; +if(!qbevent)break;evnt(26070,16784,"ide_methods.bas");}while(r); +do{ +goto LABEL_LOADDEFAULTSCHEME; +if(!qbevent)break;evnt(26070,16785,"ide_methods.bas");}while(r); +}else{ +S_54308:; +if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID> 1 ))||new_error){ +if(qbevent){evnt(26070,16787,"ide_methods.bas");if(r)goto S_54308;} +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID=*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID- 1 ; +if(!qbevent)break;evnt(26070,16787,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGEDSCHEME= -1 ; +if(!qbevent)break;evnt(26070,16787,"ide_methods.bas");}while(r); +} +} +S_54313:; +}else{ +if (qbs_cleanup(qbs_tmp_base,(*__LONG_MCLICK&(-(*__LONG_MY==(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 2 )))&(-(*__LONG_MX>=(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 5 )))&(-(*__LONG_MX<=(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 7 ))))|((qbs_equal(__STRING_K,(qbs_add(func_chr( 0 ),func_chr( 77 )))))&((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS== 1 )))))){ +if(qbevent){evnt(26070,16790,"ide_methods.bas");if(r)goto S_54313;} +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEARROW= 1 ; +if(!qbevent)break;evnt(26070,16791,"ide_methods.bas");}while(r); +S_54315:; +if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID== 0 ))||new_error){ +if(qbevent){evnt(26070,16792,"ide_methods.bas");if(r)goto S_54315;} +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGEDSCHEME= -1 ; +if(!qbevent)break;evnt(26070,16793,"ide_methods.bas");}while(r); +do{ +goto LABEL_LOADDEFAULTSCHEME; +if(!qbevent)break;evnt(26070,16794,"ide_methods.bas");}while(r); +}else{ +S_54319:; +if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID<*__INTEGER_TOTALCOLORSCHEMES))||new_error){ +if(qbevent){evnt(26070,16796,"ide_methods.bas");if(r)goto S_54319;} +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID=*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID+ 1 ; +if(!qbevent)break;evnt(26070,16796,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGEDSCHEME= -1 ; +if(!qbevent)break;evnt(26070,16796,"ide_methods.bas");}while(r); +} +} +} +} +S_54325:; +if ((*_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGEDSCHEME)||new_error){ +if(qbevent){evnt(26070,16800,"ide_methods.bas");if(r)goto S_54325;} +S_54326:; +if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEARROW== 0 ))||new_error){ +if(qbevent){evnt(26070,16802,"ide_methods.bas");if(r)goto S_54326;} +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEARROW= 1 ; +if(!qbevent)break;evnt(26070,16802,"ide_methods.bas");}while(r); +} +LABEL_VALIDATESCHEME:; +if(qbevent){evnt(26070,16803,"ide_methods.bas");r=0;} +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_FOUNDPIPE=func_instr(NULL,((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5])])),qbs_new_txt_len("|",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16804,"ide_methods.bas");}while(r); +S_54330:; +if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOUNDPIPE> 0 ))||new_error){ +if(qbevent){evnt(26070,16805,"ide_methods.bas");if(r)goto S_54330;} +S_54331:; +if ((qbs_cleanup(qbs_tmp_base,-(((int32)(func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5])])),*_FUNC_IDECHOOSECOLORSBOX_LONG_FOUNDPIPE+ 1 ,NULL,0))->len)== 90 )))||new_error){ +if(qbevent){evnt(26070,16806,"ide_methods.bas");if(r)goto S_54331;} +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_A2,qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5])])),*_FUNC_IDECHOOSECOLORSBOX_LONG_FOUNDPIPE- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16807,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID=*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID+*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEARROW; +if(!qbevent)break;evnt(26070,16809,"ide_methods.bas");}while(r); +S_54335:; +if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID>*__INTEGER_TOTALCOLORSCHEMES))||new_error){ +if(qbevent){evnt(26070,16810,"ide_methods.bas");if(r)goto S_54335;} +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID=*__INTEGER_TOTALCOLORSCHEMES; +if(!qbevent)break;evnt(26070,16810,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEARROW= -1 ; +if(!qbevent)break;evnt(26070,16810,"ide_methods.bas");}while(r); +} +S_54339:; +if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID< 1 ))||new_error){ +if(qbevent){evnt(26070,16811,"ide_methods.bas");if(r)goto S_54339;} +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID= 1 ; +if(!qbevent)break;evnt(26070,16811,"ide_methods.bas");}while(r); +} +do{ +goto LABEL_VALIDATESCHEME; +if(!qbevent)break;evnt(26070,16812,"ide_methods.bas");}while(r); +} +}else{ +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID=*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID+*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEARROW; +if(!qbevent)break;evnt(26070,16815,"ide_methods.bas");}while(r); +S_54346:; +if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID>*__INTEGER_TOTALCOLORSCHEMES))||new_error){ +if(qbevent){evnt(26070,16816,"ide_methods.bas");if(r)goto S_54346;} +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID=*__INTEGER_TOTALCOLORSCHEMES; +if(!qbevent)break;evnt(26070,16816,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEARROW= -1 ; +if(!qbevent)break;evnt(26070,16816,"ide_methods.bas");}while(r); +} +S_54350:; +if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID< 1 ))||new_error){ +if(qbevent){evnt(26070,16817,"ide_methods.bas");if(r)goto S_54350;} +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID= 1 ; +if(!qbevent)break;evnt(26070,16817,"ide_methods.bas");}while(r); +} +do{ +goto LABEL_VALIDATESCHEME; +if(!qbevent)break;evnt(26070,16818,"ide_methods.bas");}while(r); +} +LABEL_APPLYSCHEME:; +if(qbevent){evnt(26070,16820,"ide_methods.bas");r=0;} +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_FOUNDPIPE=func_instr(NULL,((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5])])),qbs_new_txt_len("|",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16821,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5])])),*_FUNC_IDECHOOSECOLORSBOX_LONG_FOUNDPIPE- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16822,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; +if(!qbevent)break;evnt(26070,16823,"ide_methods.bas");}while(r); +do{ +*(int8*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+76))= -1 ; +if(!qbevent)break;evnt(26070,16824,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+77))= 0 ; +if(!qbevent)break;evnt(26070,16825,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,qbs_right(((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5])])), 90 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16826,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_I= 1 ; +if(!qbevent)break;evnt(26070,16827,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_R,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16828,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; +if(!qbevent)break;evnt(26070,16828,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_G,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16828,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; +if(!qbevent)break;evnt(26070,16828,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_B,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16828,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; +if(!qbevent)break;evnt(26070,16828,"ide_methods.bas");}while(r); +do{ +*__ULONG_IDETEXTCOLOR=func__rgb32(qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_R)),qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_G)),qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_B))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16829,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_R,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16830,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; +if(!qbevent)break;evnt(26070,16830,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_G,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16830,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; +if(!qbevent)break;evnt(26070,16830,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_B,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16830,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; +if(!qbevent)break;evnt(26070,16830,"ide_methods.bas");}while(r); +do{ +*__ULONG_IDEKEYWORDCOLOR=func__rgb32(qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_R)),qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_G)),qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_B))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16831,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_R,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16832,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; +if(!qbevent)break;evnt(26070,16832,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_G,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16832,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; +if(!qbevent)break;evnt(26070,16832,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_B,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16832,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; +if(!qbevent)break;evnt(26070,16832,"ide_methods.bas");}while(r); +do{ +*__ULONG_IDENUMBERSCOLOR=func__rgb32(qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_R)),qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_G)),qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_B))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16833,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_R,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16834,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; +if(!qbevent)break;evnt(26070,16834,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_G,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16834,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; +if(!qbevent)break;evnt(26070,16834,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_B,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16834,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; +if(!qbevent)break;evnt(26070,16834,"ide_methods.bas");}while(r); +do{ +*__ULONG_IDEQUOTECOLOR=func__rgb32(qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_R)),qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_G)),qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_B))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16835,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_R,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16836,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; +if(!qbevent)break;evnt(26070,16836,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_G,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16836,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; +if(!qbevent)break;evnt(26070,16836,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_B,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16836,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; +if(!qbevent)break;evnt(26070,16836,"ide_methods.bas");}while(r); +do{ +*__ULONG_IDEMETACOMMANDCOLOR=func__rgb32(qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_R)),qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_G)),qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_B))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16837,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_R,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16838,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; +if(!qbevent)break;evnt(26070,16838,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_G,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16838,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; +if(!qbevent)break;evnt(26070,16838,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_B,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16838,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; +if(!qbevent)break;evnt(26070,16838,"ide_methods.bas");}while(r); +do{ +*__ULONG_IDECOMMENTCOLOR=func__rgb32(qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_R)),qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_G)),qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_B))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16839,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_R,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16840,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; +if(!qbevent)break;evnt(26070,16840,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_G,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16840,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; +if(!qbevent)break;evnt(26070,16840,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_B,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16840,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; +if(!qbevent)break;evnt(26070,16840,"ide_methods.bas");}while(r); +do{ +*__ULONG_IDEBACKGROUNDCOLOR=func__rgb32(qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_R)),qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_G)),qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_B))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16841,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_R,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16842,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; +if(!qbevent)break;evnt(26070,16842,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_G,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16842,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; +if(!qbevent)break;evnt(26070,16842,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_B,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16842,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; +if(!qbevent)break;evnt(26070,16842,"ide_methods.bas");}while(r); +do{ +*__ULONG_IDEBACKGROUNDCOLOR2=func__rgb32(qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_R)),qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_G)),qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_B))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16843,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_R,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16844,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; +if(!qbevent)break;evnt(26070,16844,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_G,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16844,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; +if(!qbevent)break;evnt(26070,16844,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_B,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16844,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; +if(!qbevent)break;evnt(26070,16844,"ide_methods.bas");}while(r); +do{ +*__ULONG_IDEBRACKETHIGHLIGHTCOLOR=func__rgb32(qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_R)),qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_G)),qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_B))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16845,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_R,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16846,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; +if(!qbevent)break;evnt(26070,16846,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_G,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16846,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; +if(!qbevent)break;evnt(26070,16846,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_B,func_mid(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORDATA,*_FUNC_IDECHOOSECOLORSBOX_LONG_I, 3 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16846,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_I=*_FUNC_IDECHOOSECOLORSBOX_LONG_I+ 3 ; +if(!qbevent)break;evnt(26070,16846,"ide_methods.bas");}while(r); +do{ +*__ULONG_IDECHROMACOLOR=func__rgb32(qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_R)),qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_G)),qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_B))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16847,"ide_methods.bas");}while(r); +do{ +goto LABEL_CHANGETEXTBOXES; +if(!qbevent)break;evnt(26070,16848,"ide_methods.bas");}while(r); +} +S_54434:; +if ((*__LONG_MB&(-(*__LONG_MY==(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 5 )))&(-(*__LONG_MX>=(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 39 )))&(-(*__LONG_MX<=(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 39 + 26 ))))||new_error){ +if(qbevent){evnt(26070,16851,"ide_methods.bas");if(r)goto S_54434;} +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_NEWVALUE=qbr((*__LONG_MX-*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))- 39 )*( 255 / ((long double)( 26 )))); +if(!qbevent)break;evnt(26070,16852,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(_FUNC_IDECHOOSECOLORSBOX_LONG_NEWVALUE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16853,"ide_methods.bas");}while(r); +S_54437:; +if ((func__keydown( 100305 )|func__keydown( 100306 ))||new_error){ +if(qbevent){evnt(26070,16854,"ide_methods.bas");if(r)goto S_54437;} +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(_FUNC_IDECHOOSECOLORSBOX_LONG_NEWVALUE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16855,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 4 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(_FUNC_IDECHOOSECOLORSBOX_LONG_NEWVALUE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16856,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS= 2 ; +if(!qbevent)break;evnt(26070,16858,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; +if(!qbevent)break;evnt(26070,16859,"ide_methods.bas");}while(r); +do{ +*(int8*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+76))= -1 ; +if(!qbevent)break;evnt(26070,16860,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+77))= 0 ; +if(!qbevent)break;evnt(26070,16861,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=174; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_NEWUSERSCHEME; +RETURN_174:; +if(!qbevent)break;evnt(26070,16862,"ide_methods.bas");}while(r); +} +S_54447:; +if ((*__LONG_MB&(-(*__LONG_MY==(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 8 )))&(-(*__LONG_MX>=(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 39 )))&(-(*__LONG_MX<=(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 39 + 26 ))))||new_error){ +if(qbevent){evnt(26070,16865,"ide_methods.bas");if(r)goto S_54447;} +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_NEWVALUE=qbr((*__LONG_MX-*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))- 39 )*( 255 / ((long double)( 26 )))); +if(!qbevent)break;evnt(26070,16866,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(_FUNC_IDECHOOSECOLORSBOX_LONG_NEWVALUE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16867,"ide_methods.bas");}while(r); +S_54450:; +if ((func__keydown( 100305 )|func__keydown( 100306 ))||new_error){ +if(qbevent){evnt(26070,16868,"ide_methods.bas");if(r)goto S_54450;} +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(_FUNC_IDECHOOSECOLORSBOX_LONG_NEWVALUE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16869,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 4 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(_FUNC_IDECHOOSECOLORSBOX_LONG_NEWVALUE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16870,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS= 3 ; +if(!qbevent)break;evnt(26070,16872,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; +if(!qbevent)break;evnt(26070,16873,"ide_methods.bas");}while(r); +do{ +*(int8*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+76))= -1 ; +if(!qbevent)break;evnt(26070,16874,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+77))= 0 ; +if(!qbevent)break;evnt(26070,16875,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=175; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_NEWUSERSCHEME; +RETURN_175:; +if(!qbevent)break;evnt(26070,16876,"ide_methods.bas");}while(r); +} +S_54460:; +if ((*__LONG_MB&(-(*__LONG_MY==(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(4))+ 11 )))&(-(*__LONG_MX>=(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 39 )))&(-(*__LONG_MX<=(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))+ 39 + 26 ))))||new_error){ +if(qbevent){evnt(26070,16879,"ide_methods.bas");if(r)goto S_54460;} +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_NEWVALUE=qbr((*__LONG_MX-*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_UDT_P)+(0))- 39 )*( 255 / ((long double)( 26 )))); +if(!qbevent)break;evnt(26070,16880,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 4 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(_FUNC_IDECHOOSECOLORSBOX_LONG_NEWVALUE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16881,"ide_methods.bas");}while(r); +S_54463:; +if ((func__keydown( 100305 )|func__keydown( 100306 ))||new_error){ +if(qbevent){evnt(26070,16882,"ide_methods.bas");if(r)goto S_54463;} +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(_FUNC_IDECHOOSECOLORSBOX_LONG_NEWVALUE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16883,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(_FUNC_IDECHOOSECOLORSBOX_LONG_NEWVALUE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16884,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS= 4 ; +if(!qbevent)break;evnt(26070,16886,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; +if(!qbevent)break;evnt(26070,16887,"ide_methods.bas");}while(r); +do{ +*(int8*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+76))= -1 ; +if(!qbevent)break;evnt(26070,16888,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+77))= 0 ; +if(!qbevent)break;evnt(26070,16889,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=176; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_NEWUSERSCHEME; +RETURN_176:; +if(!qbevent)break;evnt(26070,16890,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGEDWITHKEYS= 0 ; +if(!qbevent)break;evnt(26070,16893,"ide_methods.bas");}while(r); +S_54474:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,(qbs_add(func_chr( 0 ),func_chr( 72 )))))&(((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS== 2 ))|(-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS== 3 ))|(-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS== 4 ))))))||new_error){ +if(qbevent){evnt(26070,16894,"ide_methods.bas");if(r)goto S_54474;} +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(&(pass6002=qbr(func_val(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))+ 1 )))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16895,"ide_methods.bas");}while(r); +do{ +*(int8*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+76))= -1 ; +if(!qbevent)break;evnt(26070,16896,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+77))= 0 ; +if(!qbevent)break;evnt(26070,16896,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; +if(!qbevent)break;evnt(26070,16896,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGEDWITHKEYS= -1 ; +if(!qbevent)break;evnt(26070,16897,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=177; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_NEWUSERSCHEME; +RETURN_177:; +if(!qbevent)break;evnt(26070,16898,"ide_methods.bas");}while(r); +} +S_54482:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,(qbs_add(func_chr( 0 ),func_chr( 80 )))))&(((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS== 2 ))|(-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS== 3 ))|(-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS== 4 ))))))||new_error){ +if(qbevent){evnt(26070,16901,"ide_methods.bas");if(r)goto S_54482;} +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(&(pass6004=qbr(func_val(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))- 1 )))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16902,"ide_methods.bas");}while(r); +do{ +*(int8*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+76))= -1 ; +if(!qbevent)break;evnt(26070,16903,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+77))= 0 ; +if(!qbevent)break;evnt(26070,16903,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; +if(!qbevent)break;evnt(26070,16903,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGEDWITHKEYS= -1 ; +if(!qbevent)break;evnt(26070,16904,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=178; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_NEWUSERSCHEME; +RETURN_178:; +if(!qbevent)break;evnt(26070,16905,"ide_methods.bas");}while(r); +} +S_54490:; +if (((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM!=*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+64))))&(-(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+64))> 0 )))||new_error){ +if(qbevent){evnt(26070,16908,"ide_methods.bas");if(r)goto S_54490;} +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM=*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26070,16909,"ide_methods.bas");}while(r); +S_54492:; +fornext_value6007= 1 ; +fornext_finalvalue6007= 10 ; +fornext_step6007= 1 ; +if (fornext_step6007<0) fornext_step_negative6007=1; else fornext_step_negative6007=0; +if (new_error) goto fornext_error6007; +goto fornext_entrylabel6007; +while(1){ +fornext_value6007=fornext_step6007+(*_FUNC_IDECHOOSECOLORSBOX_LONG_I); +fornext_entrylabel6007: +*_FUNC_IDECHOOSECOLORSBOX_LONG_I=fornext_value6007; +if (fornext_step_negative6007){ +if (fornext_value6007fornext_finalvalue6007) break; +} +fornext_error6007:; +if(qbevent){evnt(26070,16910,"ide_methods.bas");if(r)goto S_54492;} +do{ +tmp_long=array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_I)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[0]))[tmp_long])),qbs_new_txt_len(" ",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16910,"ide_methods.bas");}while(r); +fornext_continue_6006:; +} +fornext_exit_6006:; +do{ +tmp_long=array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[0]))[tmp_long])),func_chr( 16 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16911,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_I= 10 ; +if(!qbevent)break;evnt(26070,16913,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_L,qbs_add(((qbs*)(((uint64*)(_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[0]))[array_check(( 1 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[5])])),qbs_new_txt_len("Normal Text",11))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16914,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_L,qbs_add(qbs_add(qbs_add(_FUNC_IDECHOOSECOLORSBOX_STRING_L,_FUNC_IDECHOOSECOLORSBOX_STRING1_SEP),((qbs*)(((uint64*)(_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[0]))[array_check(( 2 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[5])]))),qbs_new_txt_len("Keywords",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16915,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_L,qbs_add(qbs_add(qbs_add(_FUNC_IDECHOOSECOLORSBOX_STRING_L,_FUNC_IDECHOOSECOLORSBOX_STRING1_SEP),((qbs*)(((uint64*)(_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[0]))[array_check(( 3 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[5])]))),qbs_new_txt_len("Numbers",7))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16916,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_L,qbs_add(qbs_add(qbs_add(_FUNC_IDECHOOSECOLORSBOX_STRING_L,_FUNC_IDECHOOSECOLORSBOX_STRING1_SEP),((qbs*)(((uint64*)(_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[0]))[array_check(( 4 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[5])]))),qbs_new_txt_len("Strings",7))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16917,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_L,qbs_add(qbs_add(qbs_add(_FUNC_IDECHOOSECOLORSBOX_STRING_L,_FUNC_IDECHOOSECOLORSBOX_STRING1_SEP),((qbs*)(((uint64*)(_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[0]))[array_check(( 5 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[5])]))),qbs_new_txt_len("Metacommand/custom keywords",27))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16918,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_L,qbs_add(qbs_add(qbs_add(_FUNC_IDECHOOSECOLORSBOX_STRING_L,_FUNC_IDECHOOSECOLORSBOX_STRING1_SEP),((qbs*)(((uint64*)(_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[0]))[array_check(( 6 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[5])]))),qbs_new_txt_len("Comments",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16919,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_L,qbs_add(qbs_add(qbs_add(_FUNC_IDECHOOSECOLORSBOX_STRING_L,_FUNC_IDECHOOSECOLORSBOX_STRING1_SEP),((qbs*)(((uint64*)(_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[0]))[array_check(( 7 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[5])]))),qbs_new_txt_len("Background",10))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16920,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_L,qbs_add(qbs_add(qbs_add(_FUNC_IDECHOOSECOLORSBOX_STRING_L,_FUNC_IDECHOOSECOLORSBOX_STRING1_SEP),((qbs*)(((uint64*)(_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[0]))[array_check(( 8 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[5])]))),qbs_new_txt_len("Current line background",23))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16921,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_L,qbs_add(qbs_add(qbs_add(_FUNC_IDECHOOSECOLORSBOX_STRING_L,_FUNC_IDECHOOSECOLORSBOX_STRING1_SEP),((qbs*)(((uint64*)(_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[0]))[array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[5])]))),qbs_new_txt_len("Bracket/selection highlight",27))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16922,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_L,qbs_add(qbs_add(qbs_add(_FUNC_IDECHOOSECOLORSBOX_STRING_L,_FUNC_IDECHOOSECOLORSBOX_STRING1_SEP),((qbs*)(((uint64*)(_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[0]))[array_check(( 10 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_STRING_SELECTIONINDICATOR[5])]))),qbs_new_txt_len("Menus and dialogs",17))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16923,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDECHOOSECOLORSBOX_STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16924,"ide_methods.bas");}while(r); +LABEL_CHANGETEXTBOXES:; +if(qbevent){evnt(26070,16926,"ide_methods.bas");r=0;} +do{ +*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR=FUNC_GETCURRENTCOLOR(&(pass6008=*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM)); +if(!qbevent)break;evnt(26070,16927,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(&(pass6009=func__red32(*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16928,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(&(pass6010=func__green32(*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16929,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 4 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(&(pass6011=func__blue32(*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16930,"ide_methods.bas");}while(r); +S_54512:; +if (((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS>= 2 ))&(-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS<= 4 ))&*_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGEDSCHEME)||new_error){ +if(qbevent){evnt(26070,16931,"ide_methods.bas");if(r)goto S_54512;} +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_PREVTB__ASCII_CHR_046__VALUE,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16932,"ide_methods.bas");}while(r); +} +} +S_54516:; +fornext_value6013= 2 ; +fornext_finalvalue6013= 4 ; +fornext_step6013= 1 ; +if (fornext_step6013<0) fornext_step_negative6013=1; else fornext_step_negative6013=0; +if (new_error) goto fornext_error6013; +goto fornext_entrylabel6013; +while(1){ +fornext_value6013=fornext_step6013+(*_FUNC_IDECHOOSECOLORSBOX_LONG_CHECKRGB); +fornext_entrylabel6013: +*_FUNC_IDECHOOSECOLORSBOX_LONG_CHECKRGB=fornext_value6013; +if (fornext_step_negative6013){ +if (fornext_value6013fornext_finalvalue6013) break; +} +fornext_error6013:; +if(qbevent){evnt(26070,16937,"ide_methods.bas");if(r)goto S_54516;} +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_A,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_CHECKRGB)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16938,"ide_methods.bas");}while(r); +S_54518:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDECHOOSECOLORSBOX_STRING_A->len> 3 )))||new_error){ +if(qbevent){evnt(26070,16939,"ide_methods.bas");if(r)goto S_54518;} +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_A,qbs_left(_FUNC_IDECHOOSECOLORSBOX_STRING_A, 3 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16939,"ide_methods.bas");}while(r); +} +S_54521:; +fornext_value6016= 1 ; +fornext_finalvalue6016=_FUNC_IDECHOOSECOLORSBOX_STRING_A->len; +fornext_step6016= 1 ; +if (fornext_step6016<0) fornext_step_negative6016=1; else fornext_step_negative6016=0; +if (new_error) goto fornext_error6016; +goto fornext_entrylabel6016; +while(1){ +fornext_value6016=fornext_step6016+(*_FUNC_IDECHOOSECOLORSBOX_LONG_I); +fornext_entrylabel6016: +*_FUNC_IDECHOOSECOLORSBOX_LONG_I=fornext_value6016; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative6016){ +if (fornext_value6016fornext_finalvalue6016) break; +} +fornext_error6016:; +if(qbevent){evnt(26070,16940,"ide_methods.bas");if(r)goto S_54521;} +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_A=qbs_asc(_FUNC_IDECHOOSECOLORSBOX_STRING_A,*_FUNC_IDECHOOSECOLORSBOX_LONG_I); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16941,"ide_methods.bas");}while(r); +S_54523:; +if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_IDECHOOSECOLORSBOX_LONG_I== 2 ))&(-(qbs_asc(_FUNC_IDECHOOSECOLORSBOX_STRING_A, 1 )== 48 ))))||new_error){ +if(qbevent){evnt(26070,16942,"ide_methods.bas");if(r)goto S_54523;} +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_A,qbs_new_txt_len("0",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16942,"ide_methods.bas");}while(r); +do{ +goto fornext_exit_6015; +if(!qbevent)break;evnt(26070,16942,"ide_methods.bas");}while(r); +} +S_54527:; +if (((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_A< 48 ))|(-(*_FUNC_IDECHOOSECOLORSBOX_LONG_A> 57 )))||new_error){ +if(qbevent){evnt(26070,16943,"ide_methods.bas");if(r)goto S_54527;} +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_A,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16943,"ide_methods.bas");}while(r); +do{ +goto fornext_exit_6015; +if(!qbevent)break;evnt(26070,16943,"ide_methods.bas");}while(r); +} +fornext_continue_6015:; +} +fornext_exit_6015:; +S_54532:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDECHOOSECOLORSBOX_STRING_A->len))||new_error){ +if(qbevent){evnt(26070,16945,"ide_methods.bas");if(r)goto S_54532;} +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_A=qbr(func_val(_FUNC_IDECHOOSECOLORSBOX_STRING_A)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16946,"ide_methods.bas");}while(r); +S_54534:; +if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_A> 255 ))||new_error){ +if(qbevent){evnt(26070,16947,"ide_methods.bas");if(r)goto S_54534;} +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_A,qbs_new_txt_len("255",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16947,"ide_methods.bas");}while(r); +} +S_54537:; +if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_A< 0 ))||new_error){ +if(qbevent){evnt(26070,16948,"ide_methods.bas");if(r)goto S_54537;} +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_A,qbs_new_txt_len("0",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16948,"ide_methods.bas");}while(r); +} +}else{ +S_54541:; +if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_CHANGEDWITHKEYS== -1 ))||new_error){ +if(qbevent){evnt(26070,16950,"ide_methods.bas");if(r)goto S_54541;} +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_A,qbs_new_txt_len("0",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16950,"ide_methods.bas");}while(r); +} +} +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_CHECKRGB)-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDECHOOSECOLORSBOX_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16952,"ide_methods.bas");}while(r); +fornext_continue_6012:; +} +fornext_exit_6012:; +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_FOUNDPIPE=func_instr(NULL,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])),qbs_new_txt_len("|",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16956,"ide_methods.bas");}while(r); +S_54548:; +if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOUNDPIPE> 0 ))||new_error){ +if(qbevent){evnt(26070,16957,"ide_methods.bas");if(r)goto S_54548;} +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_A2,qbs_add(qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])),*_FUNC_IDECHOOSECOLORSBOX_LONG_FOUNDPIPE- 1 ),func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])),*_FUNC_IDECHOOSECOLORSBOX_LONG_FOUNDPIPE+ 1 ,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16958,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDECHOOSECOLORSBOX_STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16959,"ide_methods.bas");}while(r); +S_54551:; +if ((-(*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+81))>=*_FUNC_IDECHOOSECOLORSBOX_LONG_FOUNDPIPE))||new_error){ +if(qbevent){evnt(26070,16960,"ide_methods.bas");if(r)goto S_54551;} +do{ +*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+81))=*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+81))- 1 ; +if(!qbevent)break;evnt(26070,16960,"ide_methods.bas");}while(r); +} +} +S_54555:; +if ((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID> 0 ))||new_error){ +if(qbevent){evnt(26070,16963,"ide_methods.bas");if(r)goto S_54555;} +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_FOUNDPIPE=func_instr(NULL,((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5])])),qbs_new_txt_len("|",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16964,"ide_methods.bas");}while(r); +S_54557:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_rtrim(qbs_ltrim(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))),qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5])])),*_FUNC_IDECHOOSECOLORSBOX_LONG_FOUNDPIPE- 1 ))))||new_error){ +if(qbevent){evnt(26070,16965,"ide_methods.bas");if(r)goto S_54557;} +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID= 0 ; +if(!qbevent)break;evnt(26070,16967,"ide_methods.bas");}while(r); +} +} +do{ +*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR=func__rgb32(qbr(func_val(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))),qbr(func_val(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))),qbr(func_val(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 4 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16971,"ide_methods.bas");}while(r); +S_54562:; +if(qbevent){evnt(26070,16973,"ide_methods.bas");if(r)goto S_54562;} +S_54563:; +if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 1 )))||new_error){ +if(qbevent){evnt(26070,16974,"ide_methods.bas");if(r)goto S_54563;} +do{ +*__ULONG_IDETEXTCOLOR=*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR; +if(!qbevent)break;evnt(26070,16974,"ide_methods.bas");}while(r); +sc_ec_389_end:; +goto sc_6019_end; +} +S_54565:; +if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 2 )))||new_error){ +if(qbevent){evnt(26070,16975,"ide_methods.bas");if(r)goto S_54565;} +do{ +*__ULONG_IDEKEYWORDCOLOR=*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR; +if(!qbevent)break;evnt(26070,16975,"ide_methods.bas");}while(r); +sc_ec_390_end:; +goto sc_6019_end; +} +S_54567:; +if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 3 )))||new_error){ +if(qbevent){evnt(26070,16976,"ide_methods.bas");if(r)goto S_54567;} +do{ +*__ULONG_IDENUMBERSCOLOR=*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR; +if(!qbevent)break;evnt(26070,16976,"ide_methods.bas");}while(r); +sc_ec_391_end:; +goto sc_6019_end; +} +S_54569:; +if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 4 )))||new_error){ +if(qbevent){evnt(26070,16977,"ide_methods.bas");if(r)goto S_54569;} +do{ +*__ULONG_IDEQUOTECOLOR=*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR; +if(!qbevent)break;evnt(26070,16977,"ide_methods.bas");}while(r); +sc_ec_392_end:; +goto sc_6019_end; +} +S_54571:; +if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 5 )))||new_error){ +if(qbevent){evnt(26070,16978,"ide_methods.bas");if(r)goto S_54571;} +do{ +*__ULONG_IDEMETACOMMANDCOLOR=*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR; +if(!qbevent)break;evnt(26070,16978,"ide_methods.bas");}while(r); +sc_ec_393_end:; +goto sc_6019_end; +} +S_54573:; +if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 6 )))||new_error){ +if(qbevent){evnt(26070,16979,"ide_methods.bas");if(r)goto S_54573;} +do{ +*__ULONG_IDECOMMENTCOLOR=*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR; +if(!qbevent)break;evnt(26070,16979,"ide_methods.bas");}while(r); +sc_ec_394_end:; +goto sc_6019_end; +} +S_54575:; +if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 7 )))||new_error){ +if(qbevent){evnt(26070,16980,"ide_methods.bas");if(r)goto S_54575;} +do{ +*__ULONG_IDEBACKGROUNDCOLOR=*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR; +if(!qbevent)break;evnt(26070,16980,"ide_methods.bas");}while(r); +sc_ec_395_end:; +goto sc_6019_end; +} +S_54577:; +if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 8 )))||new_error){ +if(qbevent){evnt(26070,16981,"ide_methods.bas");if(r)goto S_54577;} +do{ +*__ULONG_IDEBACKGROUNDCOLOR2=*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR; +if(!qbevent)break;evnt(26070,16981,"ide_methods.bas");}while(r); +sc_ec_396_end:; +goto sc_6019_end; +} +S_54579:; +if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 9 )))||new_error){ +if(qbevent){evnt(26070,16982,"ide_methods.bas");if(r)goto S_54579;} +do{ +*__ULONG_IDEBRACKETHIGHLIGHTCOLOR=*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR; +if(!qbevent)break;evnt(26070,16982,"ide_methods.bas");}while(r); +sc_ec_397_end:; +goto sc_6019_end; +} +S_54581:; +if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_SELECTEDITEM==( 10 )))||new_error){ +if(qbevent){evnt(26070,16983,"ide_methods.bas");if(r)goto S_54581;} +do{ +*__ULONG_IDECHROMACOLOR=*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR; +if(!qbevent)break;evnt(26070,16983,"ide_methods.bas");}while(r); +sc_ec_398_end:; +goto sc_6019_end; +} +sc_6019_end:; +S_54584:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 27 )))|(((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS== 10 ))&(-(*_FUNC_IDECHOOSECOLORSBOX_LONG_INFO!= 0 ))))))||new_error){ +if(qbevent){evnt(26070,16986,"ide_methods.bas");if(r)goto S_54584;} +do{ +*__ULONG_IDECOMMENTCOLOR=*_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDECOMMENTCOLOR; +if(!qbevent)break;evnt(26070,16987,"ide_methods.bas");}while(r); +do{ +*__ULONG_IDEMETACOMMANDCOLOR=*_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDEMETACOMMANDCOLOR; +if(!qbevent)break;evnt(26070,16988,"ide_methods.bas");}while(r); +do{ +*__ULONG_IDEQUOTECOLOR=*_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDEQUOTECOLOR; +if(!qbevent)break;evnt(26070,16989,"ide_methods.bas");}while(r); +do{ +*__ULONG_IDETEXTCOLOR=*_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDETEXTCOLOR; +if(!qbevent)break;evnt(26070,16990,"ide_methods.bas");}while(r); +do{ +*__ULONG_IDEKEYWORDCOLOR=*_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDEKEYWORDCOLOR; +if(!qbevent)break;evnt(26070,16991,"ide_methods.bas");}while(r); +do{ +*__ULONG_IDENUMBERSCOLOR=*_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDENUMBERSCOLOR; +if(!qbevent)break;evnt(26070,16992,"ide_methods.bas");}while(r); +do{ +*__ULONG_IDEBACKGROUNDCOLOR=*_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDEBACKGROUNDCOLOR; +if(!qbevent)break;evnt(26070,16993,"ide_methods.bas");}while(r); +do{ +*__ULONG_IDEBACKGROUNDCOLOR2=*_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDEBACKGROUNDCOLOR2; +if(!qbevent)break;evnt(26070,16994,"ide_methods.bas");}while(r); +do{ +*__ULONG_IDEBRACKETHIGHLIGHTCOLOR=*_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDEBRACKETHIGHLIGHTCOLOR; +if(!qbevent)break;evnt(26070,16995,"ide_methods.bas");}while(r); +do{ +*__ULONG_IDECHROMACOLOR=*_FUNC_IDECHOOSECOLORSBOX_ULONG_BKPIDECHROMACOLOR; +if(!qbevent)break;evnt(26070,16996,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,16997,"ide_methods.bas");}while(r); +} +S_54597:; +if ((((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS== 9 ))&(-(*_FUNC_IDECHOOSECOLORSBOX_LONG_INFO!= 0 ))))||new_error){ +if(qbevent){evnt(26070,17000,"ide_methods.bas");if(r)goto S_54597;} +LABEL_LOADDEFAULTSCHEME:; +if(qbevent){evnt(26070,17001,"ide_methods.bas");r=0;} +do{ +return_point[next_return_point++]=179; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_ENABLEHIGHLIGHTER; +RETURN_179:; +if(!qbevent)break;evnt(26070,17002,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID= 1 ; +if(!qbevent)break;evnt(26070,17003,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_FOUNDPIPE=func_instr(NULL,((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5])])),qbs_new_txt_len("|",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17004,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),qbs_left(((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[array_check((*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5])])),*_FUNC_IDECHOOSECOLORSBOX_LONG_FOUNDPIPE- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17005,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_INFO= 0 ; +if(!qbevent)break;evnt(26070,17006,"ide_methods.bas");}while(r); +do{ +goto LABEL_APPLYSCHEME; +if(!qbevent)break;evnt(26070,17007,"ide_methods.bas");}while(r); +} +S_54605:; +if ((qbs_cleanup(qbs_tmp_base,((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS== 8 ))&(-(*_FUNC_IDECHOOSECOLORSBOX_LONG_INFO!= 0 )))|((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS== 1 ))&(qbs_equal(__STRING_K,func_chr( 13 ))))|((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS== 2 ))&(qbs_equal(__STRING_K,func_chr( 13 ))))|((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS== 3 ))&(qbs_equal(__STRING_K,func_chr( 13 ))))|((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS== 4 ))&(qbs_equal(__STRING_K,func_chr( 13 ))))|((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS== 5 ))&(qbs_equal(__STRING_K,func_chr( 13 ))))|((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS== 6 ))&(qbs_equal(__STRING_K,func_chr( 13 ))))|((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS== 7 ))&(qbs_equal(__STRING_K,func_chr( 13 ))))|((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_FOCUS== 11 ))&(qbs_equal(__STRING_K,func_chr( 13 ))))))||new_error){ +if(qbevent){evnt(26070,17018,"ide_methods.bas");if(r)goto S_54605;} +do{ +return_point[next_return_point++]=180; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_ENABLEHIGHLIGHTER; +RETURN_180:; +if(!qbevent)break;evnt(26070,17020,"ide_methods.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_COLORSETTINGSSECTION,qbs_new_txt_len("SchemeID",8),FUNC_STR2(_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17022,"ide_methods.bas");}while(r); +S_54608:; +fornext_value6021= 1 ; +fornext_finalvalue6021= 10 ; +fornext_step6021= 1 ; +if (fornext_step6021<0) fornext_step_negative6021=1; else fornext_step_negative6021=0; +if (new_error) goto fornext_error6021; +goto fornext_entrylabel6021; +while(1){ +fornext_value6021=fornext_step6021+(*_FUNC_IDECHOOSECOLORSBOX_LONG_I); +fornext_entrylabel6021: +*_FUNC_IDECHOOSECOLORSBOX_LONG_I=fornext_value6021; +if (fornext_step_negative6021){ +if (fornext_value6021fornext_finalvalue6021) break; +} +fornext_error6021:; +if(qbevent){evnt(26070,17023,"ide_methods.bas");if(r)goto S_54608;} +do{ +*_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR=FUNC_GETCURRENTCOLOR(&(pass6022=*_FUNC_IDECHOOSECOLORSBOX_LONG_I)); +if(!qbevent)break;evnt(26070,17024,"ide_methods.bas");}while(r); +S_54610:; +if(qbevent){evnt(26070,17025,"ide_methods.bas");if(r)goto S_54610;} +S_54611:; +if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_I==( 1 )))||new_error){ +if(qbevent){evnt(26070,17026,"ide_methods.bas");if(r)goto S_54611;} +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORID,qbs_new_txt_len("TextColor",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17026,"ide_methods.bas");}while(r); +sc_ec_399_end:; +goto sc_6023_end; +} +S_54613:; +if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_I==( 2 )))||new_error){ +if(qbevent){evnt(26070,17027,"ide_methods.bas");if(r)goto S_54613;} +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORID,qbs_new_txt_len("KeywordColor",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17027,"ide_methods.bas");}while(r); +sc_ec_400_end:; +goto sc_6023_end; +} +S_54615:; +if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_I==( 3 )))||new_error){ +if(qbevent){evnt(26070,17028,"ide_methods.bas");if(r)goto S_54615;} +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORID,qbs_new_txt_len("NumbersColor",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17028,"ide_methods.bas");}while(r); +sc_ec_401_end:; +goto sc_6023_end; +} +S_54617:; +if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_I==( 4 )))||new_error){ +if(qbevent){evnt(26070,17029,"ide_methods.bas");if(r)goto S_54617;} +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORID,qbs_new_txt_len("QuoteColor",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17029,"ide_methods.bas");}while(r); +sc_ec_402_end:; +goto sc_6023_end; +} +S_54619:; +if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_I==( 5 )))||new_error){ +if(qbevent){evnt(26070,17030,"ide_methods.bas");if(r)goto S_54619;} +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORID,qbs_new_txt_len("MetaCommandColor",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17030,"ide_methods.bas");}while(r); +sc_ec_403_end:; +goto sc_6023_end; +} +S_54621:; +if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_I==( 6 )))||new_error){ +if(qbevent){evnt(26070,17031,"ide_methods.bas");if(r)goto S_54621;} +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORID,qbs_new_txt_len("CommentColor",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17031,"ide_methods.bas");}while(r); +sc_ec_404_end:; +goto sc_6023_end; +} +S_54623:; +if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_I==( 7 )))||new_error){ +if(qbevent){evnt(26070,17032,"ide_methods.bas");if(r)goto S_54623;} +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORID,qbs_new_txt_len("BackgroundColor",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17032,"ide_methods.bas");}while(r); +sc_ec_405_end:; +goto sc_6023_end; +} +S_54625:; +if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_I==( 8 )))||new_error){ +if(qbevent){evnt(26070,17033,"ide_methods.bas");if(r)goto S_54625;} +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORID,qbs_new_txt_len("BackgroundColor2",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17033,"ide_methods.bas");}while(r); +sc_ec_406_end:; +goto sc_6023_end; +} +S_54627:; +if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_I==( 9 )))||new_error){ +if(qbevent){evnt(26070,17034,"ide_methods.bas");if(r)goto S_54627;} +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORID,qbs_new_txt_len("HighlightColor",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17034,"ide_methods.bas");}while(r); +sc_ec_407_end:; +goto sc_6023_end; +} +S_54629:; +if (((*_FUNC_IDECHOOSECOLORSBOX_LONG_I==( 10 )))||new_error){ +if(qbevent){evnt(26070,17035,"ide_methods.bas");if(r)goto S_54629;} +do{ +qbs_set(_FUNC_IDECHOOSECOLORSBOX_STRING_COLORID,qbs_new_txt_len("ChromaColor",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17035,"ide_methods.bas");}while(r); +sc_ec_408_end:; +goto sc_6023_end; +} +sc_6023_end:; +do{ +SUB_WRITECONFIGSETTING(__STRING_COLORSETTINGSSECTION,_FUNC_IDECHOOSECOLORSBOX_STRING_COLORID,FUNC_RGBS(_FUNC_IDECHOOSECOLORSBOX_ULONG_CURRENTCOLOR)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17039,"ide_methods.bas");}while(r); +fornext_continue_6020:; +} +fornext_exit_6020:; +do{ +*_FUNC_IDECHOOSECOLORSBOX_INTEGER_V=*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 5 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26070,17042,"ide_methods.bas");}while(r); +S_54635:; +if ((-(*_FUNC_IDECHOOSECOLORSBOX_INTEGER_V!= 0 ))||new_error){ +if(qbevent){evnt(26070,17043,"ide_methods.bas");if(r)goto S_54635;} +do{ +*_FUNC_IDECHOOSECOLORSBOX_INTEGER_V= -1 ; +if(!qbevent)break;evnt(26070,17043,"ide_methods.bas");}while(r); +} +do{ +*__INTEGER_BRACKETHIGHLIGHT=*_FUNC_IDECHOOSECOLORSBOX_INTEGER_V; +if(!qbevent)break;evnt(26070,17044,"ide_methods.bas");}while(r); +S_54639:; +if ((*__INTEGER_BRACKETHIGHLIGHT)||new_error){ +if(qbevent){evnt(26070,17046,"ide_methods.bas");if(r)goto S_54639;} +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("BracketHighlight",16),qbs_new_txt_len("True",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17047,"ide_methods.bas");}while(r); +}else{ +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("BracketHighlight",16),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17049,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDECHOOSECOLORSBOX_INTEGER_V=*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 6 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26070,17052,"ide_methods.bas");}while(r); +S_54645:; +if ((-(*_FUNC_IDECHOOSECOLORSBOX_INTEGER_V!= 0 ))||new_error){ +if(qbevent){evnt(26070,17053,"ide_methods.bas");if(r)goto S_54645;} +do{ +*_FUNC_IDECHOOSECOLORSBOX_INTEGER_V= -1 ; +if(!qbevent)break;evnt(26070,17053,"ide_methods.bas");}while(r); +} +do{ +*__INTEGER_MULTIHIGHLIGHT=*_FUNC_IDECHOOSECOLORSBOX_INTEGER_V; +if(!qbevent)break;evnt(26070,17054,"ide_methods.bas");}while(r); +S_54649:; +if ((*__INTEGER_MULTIHIGHLIGHT)||new_error){ +if(qbevent){evnt(26070,17056,"ide_methods.bas");if(r)goto S_54649;} +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("MultiHighlight",14),qbs_new_txt_len("True",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17057,"ide_methods.bas");}while(r); +}else{ +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("MultiHighlight",14),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17059,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDECHOOSECOLORSBOX_INTEGER_V=*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 7 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+64)); +if(!qbevent)break;evnt(26070,17062,"ide_methods.bas");}while(r); +S_54655:; +if ((-(*_FUNC_IDECHOOSECOLORSBOX_INTEGER_V!= 0 ))||new_error){ +if(qbevent){evnt(26070,17063,"ide_methods.bas");if(r)goto S_54655;} +do{ +*_FUNC_IDECHOOSECOLORSBOX_INTEGER_V= -1 ; +if(!qbevent)break;evnt(26070,17063,"ide_methods.bas");}while(r); +} +do{ +*__INTEGER_KEYWORDHIGHLIGHT=*_FUNC_IDECHOOSECOLORSBOX_INTEGER_V; +if(!qbevent)break;evnt(26070,17064,"ide_methods.bas");}while(r); +S_54659:; +if ((*__INTEGER_KEYWORDHIGHLIGHT)||new_error){ +if(qbevent){evnt(26070,17066,"ide_methods.bas");if(r)goto S_54659;} +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("KeywordHighlight",16),qbs_new_txt_len("True",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17067,"ide_methods.bas");}while(r); +}else{ +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("KeywordHighlight",16),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17069,"ide_methods.bas");}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,17072,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_MOUSEDOWN= 0 ; +if(!qbevent)break;evnt(26070,17077,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_MOUSEUP= 0 ; +if(!qbevent)break;evnt(26070,17078,"ide_methods.bas");}while(r); +dl_continue_5954:; +}while(1); +dl_exit_5954:; +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_IDECHOOSECOLORSBOX= 0 ; +if(!qbevent)break;evnt(26070,17081,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,17083,"ide_methods.bas");}while(r); +LABEL_NEWUSERSCHEME:; +if(qbevent){evnt(26070,17084,"ide_methods.bas");r=0;} +S_54671:; +if (((-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID> 0 ))&(-(*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID<=*__INTEGER_PRESETCOLORSCHEMES)))||new_error){ +if(qbevent){evnt(26070,17085,"ide_methods.bas");if(r)goto S_54671;} +do{ +*_FUNC_IDECHOOSECOLORSBOX_LONG_SCHEMEID= 0 ; +if(!qbevent)break;evnt(26070,17089,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[0])+((array_check(( 9 )-_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[4],_FUNC_IDECHOOSECOLORSBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),qbs_new_txt_len("User-defined",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17090,"ide_methods.bas");}while(r); +} +do{ +#include "ret238.txt" +if(!qbevent)break;evnt(26070,17092,"ide_methods.bas");}while(r); +LABEL_ENABLEHIGHLIGHTER:; +if(qbevent){evnt(26070,17094,"ide_methods.bas");r=0;} +S_54676:; +if ((*__BYTE_DISABLESYNTAXHIGHLIGHTER)||new_error){ +if(qbevent){evnt(26070,17095,"ide_methods.bas");if(r)goto S_54676;} +do{ +*__BYTE_DISABLESYNTAXHIGHLIGHTER= 0 ; +if(!qbevent)break;evnt(26070,17096,"ide_methods.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("DisableSyntaxHighlighter",24),qbs_new_txt_len("False",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17097,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*__INTEGER_OPTIONSMENUID)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*__INTEGER_OPTIONSMENUDISABLESYNTAX)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(func_chr( 7 ),qbs_new_txt_len("Syntax #Highlighter",19))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17098,"ide_methods.bas");}while(r); +} +do{ +#include "ret238.txt" +if(!qbevent)break;evnt(26070,17100,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free238.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +return *_FUNC_IDECHOOSECOLORSBOX_LONG_IDECHOOSECOLORSBOX; +} +uint32 FUNC_GETCURRENTCOLOR(int16*_FUNC_GETCURRENTCOLOR_INTEGER_SELECTION){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data239.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +S_54682:; +if(qbevent){evnt(26070,17105,"ide_methods.bas");if(r)goto S_54682;} +S_54683:; +if (((*_FUNC_GETCURRENTCOLOR_INTEGER_SELECTION==( 1 )))||new_error){ +if(qbevent){evnt(26070,17106,"ide_methods.bas");if(r)goto S_54683;} +do{ +*_FUNC_GETCURRENTCOLOR_ULONG_GETCURRENTCOLOR=*__ULONG_IDETEXTCOLOR; +if(!qbevent)break;evnt(26070,17106,"ide_methods.bas");}while(r); +sc_ec_409_end:; +goto sc_6024_end; +} +S_54685:; +if (((*_FUNC_GETCURRENTCOLOR_INTEGER_SELECTION==( 2 )))||new_error){ +if(qbevent){evnt(26070,17107,"ide_methods.bas");if(r)goto S_54685;} +do{ +*_FUNC_GETCURRENTCOLOR_ULONG_GETCURRENTCOLOR=*__ULONG_IDEKEYWORDCOLOR; +if(!qbevent)break;evnt(26070,17107,"ide_methods.bas");}while(r); +sc_ec_410_end:; +goto sc_6024_end; +} +S_54687:; +if (((*_FUNC_GETCURRENTCOLOR_INTEGER_SELECTION==( 3 )))||new_error){ +if(qbevent){evnt(26070,17108,"ide_methods.bas");if(r)goto S_54687;} +do{ +*_FUNC_GETCURRENTCOLOR_ULONG_GETCURRENTCOLOR=*__ULONG_IDENUMBERSCOLOR; +if(!qbevent)break;evnt(26070,17108,"ide_methods.bas");}while(r); +sc_ec_411_end:; +goto sc_6024_end; +} +S_54689:; +if (((*_FUNC_GETCURRENTCOLOR_INTEGER_SELECTION==( 4 )))||new_error){ +if(qbevent){evnt(26070,17109,"ide_methods.bas");if(r)goto S_54689;} +do{ +*_FUNC_GETCURRENTCOLOR_ULONG_GETCURRENTCOLOR=*__ULONG_IDEQUOTECOLOR; +if(!qbevent)break;evnt(26070,17109,"ide_methods.bas");}while(r); +sc_ec_412_end:; +goto sc_6024_end; +} +S_54691:; +if (((*_FUNC_GETCURRENTCOLOR_INTEGER_SELECTION==( 5 )))||new_error){ +if(qbevent){evnt(26070,17110,"ide_methods.bas");if(r)goto S_54691;} +do{ +*_FUNC_GETCURRENTCOLOR_ULONG_GETCURRENTCOLOR=*__ULONG_IDEMETACOMMANDCOLOR; +if(!qbevent)break;evnt(26070,17110,"ide_methods.bas");}while(r); +sc_ec_413_end:; +goto sc_6024_end; +} +S_54693:; +if (((*_FUNC_GETCURRENTCOLOR_INTEGER_SELECTION==( 6 )))||new_error){ +if(qbevent){evnt(26070,17111,"ide_methods.bas");if(r)goto S_54693;} +do{ +*_FUNC_GETCURRENTCOLOR_ULONG_GETCURRENTCOLOR=*__ULONG_IDECOMMENTCOLOR; +if(!qbevent)break;evnt(26070,17111,"ide_methods.bas");}while(r); +sc_ec_414_end:; +goto sc_6024_end; +} +S_54695:; +if (((*_FUNC_GETCURRENTCOLOR_INTEGER_SELECTION==( 7 )))||new_error){ +if(qbevent){evnt(26070,17112,"ide_methods.bas");if(r)goto S_54695;} +do{ +*_FUNC_GETCURRENTCOLOR_ULONG_GETCURRENTCOLOR=*__ULONG_IDEBACKGROUNDCOLOR; +if(!qbevent)break;evnt(26070,17112,"ide_methods.bas");}while(r); +sc_ec_415_end:; +goto sc_6024_end; +} +S_54697:; +if (((*_FUNC_GETCURRENTCOLOR_INTEGER_SELECTION==( 8 )))||new_error){ +if(qbevent){evnt(26070,17113,"ide_methods.bas");if(r)goto S_54697;} +do{ +*_FUNC_GETCURRENTCOLOR_ULONG_GETCURRENTCOLOR=*__ULONG_IDEBACKGROUNDCOLOR2; +if(!qbevent)break;evnt(26070,17113,"ide_methods.bas");}while(r); +sc_ec_416_end:; +goto sc_6024_end; +} +S_54699:; +if (((*_FUNC_GETCURRENTCOLOR_INTEGER_SELECTION==( 9 )))||new_error){ +if(qbevent){evnt(26070,17114,"ide_methods.bas");if(r)goto S_54699;} +do{ +*_FUNC_GETCURRENTCOLOR_ULONG_GETCURRENTCOLOR=*__ULONG_IDEBRACKETHIGHLIGHTCOLOR; +if(!qbevent)break;evnt(26070,17114,"ide_methods.bas");}while(r); +sc_ec_417_end:; +goto sc_6024_end; +} +S_54701:; +if (((*_FUNC_GETCURRENTCOLOR_INTEGER_SELECTION==( 10 )))||new_error){ +if(qbevent){evnt(26070,17115,"ide_methods.bas");if(r)goto S_54701;} +do{ +*_FUNC_GETCURRENTCOLOR_ULONG_GETCURRENTCOLOR=*__ULONG_IDECHROMACOLOR; +if(!qbevent)break;evnt(26070,17115,"ide_methods.bas");}while(r); +sc_ec_418_end:; +goto sc_6024_end; +} +sc_6024_end:; +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free239.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +return *_FUNC_GETCURRENTCOLOR_ULONG_GETCURRENTCOLOR; +} +qbs* FUNC_IDERGBMIXER(int32*_FUNC_IDERGBMIXER_LONG_EDITING){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data240.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +sub_pcopy( 0 , 2 ); +if(!qbevent)break;evnt(26070,17121,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 0 , 1 ); +if(!qbevent)break;evnt(26070,17122,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,17123,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDERGBMIXER_LONG_FOCUS= 1 ; +if(!qbevent)break;evnt(26070,17124,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26070,17125,"ide_methods.bas");}while(r); +do{ if (_FUNC_IDERGBMIXER_ARRAY_UDT_O[2]&2){ error(10); @@ -184452,2395 +184452,2395 @@ if (!_FUNC_IDERGBMIXER_ARRAY_UDT_O[0]) error(257); } _FUNC_IDERGBMIXER_ARRAY_UDT_O[2]|=1; } -} -if(!qbevent)break;evnt(26070,17126,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(26070,17127,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDERGBMIXER_STRING1_SEP,func_chr( 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17128,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDERGBMIXER_LONG_I= 0 ; -if(!qbevent)break;evnt(26070,17132,"ide_methods.bas");}while(r); -do{ -SUB_IDEPAR((void*)( ((char*)(_FUNC_IDERGBMIXER_UDT_P)) + (0) ),&(pass6025= 70 ),&(pass6026= 11 ),qbs_new_txt_len("RGB Color Mixer",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17134,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDERGBMIXER_STRING_A2,qbs_new_txt_len("127",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17136,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDERGBMIXER_LONG_I=*_FUNC_IDERGBMIXER_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,17137,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+36))= 1 ; -if(!qbevent)break;evnt(26070,17138,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+20))= 63 ; -if(!qbevent)break;evnt(26070,17139,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+24))= 2 ; -if(!qbevent)break;evnt(26070,17140,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDERGBMIXER_STRING_A2); -if(!qbevent)break;evnt(26070,17141,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+81))=_FUNC_IDERGBMIXER_STRING_A2->len; -if(!qbevent)break;evnt(26070,17142,"ide_methods.bas");}while(r); -do{ -*(int8*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+76))= -1 ; -if(!qbevent)break;evnt(26070,17143,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+77))= 0 ; -if(!qbevent)break;evnt(26070,17144,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDERGBMIXER_STRING_A2,qbs_new_txt_len("127",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17146,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDERGBMIXER_LONG_I=*_FUNC_IDERGBMIXER_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,17147,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+36))= 1 ; -if(!qbevent)break;evnt(26070,17148,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+20))= 63 ; -if(!qbevent)break;evnt(26070,17149,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+24))= 5 ; -if(!qbevent)break;evnt(26070,17150,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDERGBMIXER_STRING_A2); -if(!qbevent)break;evnt(26070,17151,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+81))=_FUNC_IDERGBMIXER_STRING_A2->len; -if(!qbevent)break;evnt(26070,17152,"ide_methods.bas");}while(r); -do{ -*(int8*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+76))= -1 ; -if(!qbevent)break;evnt(26070,17153,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+77))= 0 ; -if(!qbevent)break;evnt(26070,17154,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDERGBMIXER_STRING_A2,qbs_new_txt_len("127",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17156,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDERGBMIXER_LONG_I=*_FUNC_IDERGBMIXER_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,17157,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+36))= 1 ; -if(!qbevent)break;evnt(26070,17158,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+20))= 63 ; -if(!qbevent)break;evnt(26070,17159,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+24))= 8 ; -if(!qbevent)break;evnt(26070,17160,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDERGBMIXER_STRING_A2); -if(!qbevent)break;evnt(26070,17161,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+81))=_FUNC_IDERGBMIXER_STRING_A2->len; -if(!qbevent)break;evnt(26070,17162,"ide_methods.bas");}while(r); -do{ -*(int8*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+76))= -1 ; -if(!qbevent)break;evnt(26070,17163,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+77))= 0 ; -if(!qbevent)break;evnt(26070,17164,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDERGBMIXER_LONG_I=*_FUNC_IDERGBMIXER_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,17166,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+36))= 3 ; -if(!qbevent)break;evnt(26070,17167,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+24))= 11 ; -if(!qbevent)break;evnt(26070,17168,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("#Insert",7),_FUNC_IDERGBMIXER_STRING1_SEP),qbs_new_txt_len("C#opy",5)),_FUNC_IDERGBMIXER_STRING1_SEP),qbs_new_txt_len("#Cancel",7))); -if(!qbevent)break;evnt(26070,17169,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+48))= 1 ; -if(!qbevent)break;evnt(26070,17170,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDERGBMIXER_LONG_PREV__ASCII_CHR_046__IDESELECT=*__LONG_IDESELECT; -if(!qbevent)break;evnt(26070,17172,"ide_methods.bas");}while(r); -S_54747:; -if ((*_FUNC_IDERGBMIXER_LONG_EDITING)||new_error){ -if(qbevent){evnt(26070,17174,"ide_methods.bas");if(r)goto S_54747;} -do{ -qbs_set(_FUNC_IDERGBMIXER_STRING_A,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17176,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDERGBMIXER_STRING_A2,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17177,"ide_methods.bas");}while(r); -S_54750:; -if ((*__LONG_IDESELECT)||new_error){ -if(qbevent){evnt(26070,17178,"ide_methods.bas");if(r)goto S_54750;} -S_54751:; -if ((-(*__LONG_IDESELECTY1==*__LONG_IDECY))||new_error){ -if(qbevent){evnt(26070,17179,"ide_methods.bas");if(r)goto S_54751;} -do{ -qbs_set(_FUNC_IDERGBMIXER_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17180,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDERGBMIXER_LONG_SX1=*__LONG_IDESELECTX1; -if(!qbevent)break;evnt(26070,17181,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDERGBMIXER_LONG_SX2=*__LONG_IDECX; -if(!qbevent)break;evnt(26070,17181,"ide_methods.bas");}while(r); -S_54755:; -if ((-(*_FUNC_IDERGBMIXER_LONG_SX2<*_FUNC_IDERGBMIXER_LONG_SX1))||new_error){ -if(qbevent){evnt(26070,17182,"ide_methods.bas");if(r)goto S_54755;} -do{ -swap_32(&*_FUNC_IDERGBMIXER_LONG_SX1,&*_FUNC_IDERGBMIXER_LONG_SX2); -if(!qbevent)break;evnt(26070,17182,"ide_methods.bas");}while(r); -} -S_54758:; -fornext_value6031=*_FUNC_IDERGBMIXER_LONG_SX1; -fornext_finalvalue6031=*_FUNC_IDERGBMIXER_LONG_SX2- 1 ; -fornext_step6031= 1 ; -if (fornext_step6031<0) fornext_step_negative6031=1; else fornext_step_negative6031=0; -if (new_error) goto fornext_error6031; -goto fornext_entrylabel6031; -while(1){ -fornext_value6031=fornext_step6031+(*_FUNC_IDERGBMIXER_LONG_X); -fornext_entrylabel6031: -*_FUNC_IDERGBMIXER_LONG_X=fornext_value6031; -if (fornext_step_negative6031){ -if (fornext_value6031fornext_finalvalue6031) break; -} -fornext_error6031:; -if(qbevent){evnt(26070,17183,"ide_methods.bas");if(r)goto S_54758;} -S_54759:; -if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDERGBMIXER_LONG_X<=_FUNC_IDERGBMIXER_STRING_A->len)))||new_error){ -if(qbevent){evnt(26070,17184,"ide_methods.bas");if(r)goto S_54759;} -do{ -qbs_set(_FUNC_IDERGBMIXER_STRING_A2,qbs_add(_FUNC_IDERGBMIXER_STRING_A2,func_mid(_FUNC_IDERGBMIXER_STRING_A,*_FUNC_IDERGBMIXER_LONG_X, 1 ,0|1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17184,"ide_methods.bas");}while(r); -}else{ -do{ -goto fornext_exit_6030; -if(!qbevent)break;evnt(26070,17184,"ide_methods.bas");}while(r); -} -fornext_continue_6030:; -} -fornext_exit_6030:; -} -} -do{ -qbs_set(_FUNC_IDERGBMIXER_STRING_A2,qbs_ucase(qbs_ltrim(qbs_rtrim(_FUNC_IDERGBMIXER_STRING_A2)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17188,"ide_methods.bas");}while(r); -S_54768:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDERGBMIXER_STRING_A2->len== 0 )))||new_error){ -if(qbevent){evnt(26070,17190,"ide_methods.bas");if(r)goto S_54768;} -LABEL_RGB_LOOKUP:; -if(qbevent){evnt(26070,17191,"ide_methods.bas");r=0;} -do{ -qbs_set(_FUNC_IDERGBMIXER_STRING_ALL_RGB,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17193,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDERGBMIXER_STRING_CURRENTLINE,FUNC_IDEGETLINE(__LONG_IDECY)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17194,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDERGBMIXER_STRING_A,qbs_ucase(_FUNC_IDERGBMIXER_STRING_CURRENTLINE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17195,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDERGBMIXER_LONG_FOUND_RGB= 0 ; -if(!qbevent)break;evnt(26070,17199,"ide_methods.bas");}while(r); -S_54773:; -do{ -if(qbevent){evnt(26070,17200,"ide_methods.bas");if(r)goto S_54773;} -do{ -*_FUNC_IDERGBMIXER_LONG_FOUND_RGB=func_instr(*_FUNC_IDERGBMIXER_LONG_FOUND_RGB+ 1 ,_FUNC_IDERGBMIXER_STRING_A,qbs_new_txt_len("RGB",3),0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17201,"ide_methods.bas");}while(r); -S_54775:; -if ((-(*_FUNC_IDERGBMIXER_LONG_FOUND_RGB== 0 ))||new_error){ -if(qbevent){evnt(26070,17202,"ide_methods.bas");if(r)goto S_54775;} -do{ -goto dl_exit_6034; -if(!qbevent)break;evnt(26070,17202,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDERGBMIXER_LONG_FINDBRACKET1=func_instr(*_FUNC_IDERGBMIXER_LONG_FOUND_RGB,_FUNC_IDERGBMIXER_STRING_A,qbs_new_txt_len("(",1),0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17203,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDERGBMIXER_LONG_FINDBRACKET2=func_instr(*_FUNC_IDERGBMIXER_LONG_FINDBRACKET1,_FUNC_IDERGBMIXER_STRING_A,qbs_new_txt_len(")",1),0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17204,"ide_methods.bas");}while(r); -S_54780:; -if (((-(*_FUNC_IDERGBMIXER_LONG_FINDBRACKET1> 0 ))&(-(*_FUNC_IDERGBMIXER_LONG_FINDBRACKET2> 0 )))||new_error){ -if(qbevent){evnt(26070,17205,"ide_methods.bas");if(r)goto S_54780;} -do{ -qbs_set(_FUNC_IDERGBMIXER_STRING_ALL_RGB,qbs_add(_FUNC_IDERGBMIXER_STRING_ALL_RGB,i2string(*_FUNC_IDERGBMIXER_LONG_FOUND_RGB))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17206,"ide_methods.bas");}while(r); -} -dl_continue_6034:; -}while(1); -dl_exit_6034:; -S_54784:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDERGBMIXER_STRING_ALL_RGB->len== 0 )))||new_error){ -if(qbevent){evnt(26070,17210,"ide_methods.bas");if(r)goto S_54784;} -do{ -goto LABEL_NORGBFOUND; -if(!qbevent)break;evnt(26070,17210,"ide_methods.bas");}while(r); -} -S_54787:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDERGBMIXER_STRING_ALL_RGB->len== 2 )))||new_error){ -if(qbevent){evnt(26070,17212,"ide_methods.bas");if(r)goto S_54787;} -do{ -qbs_set(_FUNC_IDERGBMIXER_STRING_A2,func_mid(_FUNC_IDERGBMIXER_STRING_A,string2i(_FUNC_IDERGBMIXER_STRING_ALL_RGB),NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17214,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDERGBMIXER_LONG_INSERTRGBAT=string2i(_FUNC_IDERGBMIXER_STRING_ALL_RGB); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17215,"ide_methods.bas");}while(r); -}else{ -do{ -*_FUNC_IDERGBMIXER_LONG_CHECK_RGB= 1 ; -if(!qbevent)break;evnt(26070,17217,"ide_methods.bas");}while(r); -S_54792:; -do{ -if(qbevent){evnt(26070,17218,"ide_methods.bas");if(r)goto S_54792;} -S_54793:; -if ((qbs_cleanup(qbs_tmp_base,-(*__LONG_IDECX>=string2i(func_mid(_FUNC_IDERGBMIXER_STRING_ALL_RGB,((*_FUNC_IDERGBMIXER_LONG_CHECK_RGB+ 1 )* 2 )-( 1 ), 2 ,0|1)))))||new_error){ -if(qbevent){evnt(26070,17219,"ide_methods.bas");if(r)goto S_54793;} -do{ -*_FUNC_IDERGBMIXER_LONG_CHECK_RGB=*_FUNC_IDERGBMIXER_LONG_CHECK_RGB+ 1 ; -if(!qbevent)break;evnt(26070,17220,"ide_methods.bas");}while(r); -S_54795:; -if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDERGBMIXER_LONG_CHECK_RGB==(_FUNC_IDERGBMIXER_STRING_ALL_RGB->len/ 2 ))))||new_error){ -if(qbevent){evnt(26070,17221,"ide_methods.bas");if(r)goto S_54795;} -do{ -goto dl_exit_6037; -if(!qbevent)break;evnt(26070,17221,"ide_methods.bas");}while(r); -} -}else{ -do{ -goto dl_exit_6037; -if(!qbevent)break;evnt(26070,17223,"ide_methods.bas");}while(r); -} -dl_continue_6037:; -}while(1); -dl_exit_6037:; -do{ -qbs_set(_FUNC_IDERGBMIXER_STRING_A2,func_mid(_FUNC_IDERGBMIXER_STRING_A,string2i(func_mid(_FUNC_IDERGBMIXER_STRING_ALL_RGB,(*_FUNC_IDERGBMIXER_LONG_CHECK_RGB* 2 )-( 1 ), 2 ,0|1)),NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17226,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDERGBMIXER_LONG_INSERTRGBAT=string2i(func_mid(_FUNC_IDERGBMIXER_STRING_ALL_RGB,(*_FUNC_IDERGBMIXER_LONG_CHECK_RGB* 2 )-( 1 ), 2 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17227,"ide_methods.bas");}while(r); -} -} -do{ -if(!qbevent)break;evnt(26070,17232,"ide_methods.bas");}while(r); -S_54807:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(_FUNC_IDERGBMIXER_STRING_A2, 4 ),qbs_new_txt_len("RGB(",4)))|(qbs_equal(qbs_left(_FUNC_IDERGBMIXER_STRING_A2, 6 ),qbs_new_txt_len("RGB32(",6)))|(qbs_equal(qbs_left(_FUNC_IDERGBMIXER_STRING_A2, 5 ),qbs_new_txt_len("RGBA(",5)))|(qbs_equal(qbs_left(_FUNC_IDERGBMIXER_STRING_A2, 7 ),qbs_new_txt_len("RGBA32(",7)))))||new_error){ -if(qbevent){evnt(26070,17236,"ide_methods.bas");if(r)goto S_54807;} -S_54808:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_IDERGBMIXER_STRING_A2, 6 ),qbs_new_txt_len("RGB32(",6))))||new_error){ -if(qbevent){evnt(26070,17237,"ide_methods.bas");if(r)goto S_54808;} -do{ -*_FUNC_IDERGBMIXER_BYTE_NEWSYNTAX= -1 ; -if(!qbevent)break;evnt(26070,17237,"ide_methods.bas");}while(r); -} -S_54811:; -if ((-(*_FUNC_IDERGBMIXER_LONG_INSERTRGBAT== 0 ))||new_error){ -if(qbevent){evnt(26070,17238,"ide_methods.bas");if(r)goto S_54811;} -do{ -*_FUNC_IDERGBMIXER_LONG_INSERTRGBAT=*_FUNC_IDERGBMIXER_LONG_SX1; -if(!qbevent)break;evnt(26070,17238,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDERGBMIXER_LONG_FINDCOMMA1=func_instr(NULL,_FUNC_IDERGBMIXER_STRING_A2,qbs_new_txt_len(",",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17239,"ide_methods.bas");}while(r); -S_54815:; -if ((-(*_FUNC_IDERGBMIXER_LONG_FINDCOMMA1> 0 ))||new_error){ -if(qbevent){evnt(26070,17240,"ide_methods.bas");if(r)goto S_54815;} -do{ -*_FUNC_IDERGBMIXER_LONG_FINDCOMMA2=func_instr(*_FUNC_IDERGBMIXER_LONG_FINDCOMMA1+ 1 ,_FUNC_IDERGBMIXER_STRING_A2,qbs_new_txt_len(",",1),0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17241,"ide_methods.bas");}while(r); -S_54817:; -if ((-(*_FUNC_IDERGBMIXER_LONG_FINDCOMMA2> 0 ))||new_error){ -if(qbevent){evnt(26070,17242,"ide_methods.bas");if(r)goto S_54817;} -do{ -qbs_set(_FUNC_IDERGBMIXER_STRING_R,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17243,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDERGBMIXER_STRING_G,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17243,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDERGBMIXER_STRING_B,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17243,"ide_methods.bas");}while(r); -S_54821:; -fornext_value6040=*_FUNC_IDERGBMIXER_LONG_FINDCOMMA1- 1 ; -fornext_finalvalue6040= 1 ; -fornext_step6040= -1 ; -if (fornext_step6040<0) fornext_step_negative6040=1; else fornext_step_negative6040=0; -if (new_error) goto fornext_error6040; -goto fornext_entrylabel6040; -while(1){ -fornext_value6040=fornext_step6040+(*_FUNC_IDERGBMIXER_LONG_I); -fornext_entrylabel6040: -*_FUNC_IDERGBMIXER_LONG_I=fornext_value6040; -if (fornext_step_negative6040){ -if (fornext_value6040fornext_finalvalue6040) break; -} -fornext_error6040:; -if(qbevent){evnt(26070,17244,"ide_methods.bas");if(r)goto S_54821;} -S_54822:; -if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(_FUNC_IDERGBMIXER_STRING_A2,*_FUNC_IDERGBMIXER_LONG_I)>= 48 ))&(-(qbs_asc(_FUNC_IDERGBMIXER_STRING_A2,*_FUNC_IDERGBMIXER_LONG_I)<= 57 ))))||new_error){ -if(qbevent){evnt(26070,17245,"ide_methods.bas");if(r)goto S_54822;} -do{ -qbs_set(_FUNC_IDERGBMIXER_STRING_R,qbs_add(func_mid(_FUNC_IDERGBMIXER_STRING_A2,*_FUNC_IDERGBMIXER_LONG_I, 1 ,0|1),_FUNC_IDERGBMIXER_STRING_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17246,"ide_methods.bas");}while(r); -}else{ -do{ -goto fornext_exit_6039; -if(!qbevent)break;evnt(26070,17248,"ide_methods.bas");}while(r); -} -fornext_continue_6039:; -} -fornext_exit_6039:; -S_54828:; -fornext_value6042=*_FUNC_IDERGBMIXER_LONG_FINDCOMMA1+ 1 ; -fornext_finalvalue6042=*_FUNC_IDERGBMIXER_LONG_FINDCOMMA2- 1 ; -fornext_step6042= 1 ; -if (fornext_step6042<0) fornext_step_negative6042=1; else fornext_step_negative6042=0; -if (new_error) goto fornext_error6042; -goto fornext_entrylabel6042; -while(1){ -fornext_value6042=fornext_step6042+(*_FUNC_IDERGBMIXER_LONG_I); -fornext_entrylabel6042: -*_FUNC_IDERGBMIXER_LONG_I=fornext_value6042; -if (fornext_step_negative6042){ -if (fornext_value6042fornext_finalvalue6042) break; -} -fornext_error6042:; -if(qbevent){evnt(26070,17252,"ide_methods.bas");if(r)goto S_54828;} -S_54829:; -if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(_FUNC_IDERGBMIXER_STRING_A2,*_FUNC_IDERGBMIXER_LONG_I)== 32 ))|(((-(qbs_asc(_FUNC_IDERGBMIXER_STRING_A2,*_FUNC_IDERGBMIXER_LONG_I)>= 48 ))&(-(qbs_asc(_FUNC_IDERGBMIXER_STRING_A2,*_FUNC_IDERGBMIXER_LONG_I)<= 57 ))))))||new_error){ -if(qbevent){evnt(26070,17253,"ide_methods.bas");if(r)goto S_54829;} -do{ -qbs_set(_FUNC_IDERGBMIXER_STRING_G,qbs_add(_FUNC_IDERGBMIXER_STRING_G,func_mid(_FUNC_IDERGBMIXER_STRING_A2,*_FUNC_IDERGBMIXER_LONG_I, 1 ,0|1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17254,"ide_methods.bas");}while(r); -}else{ -do{ -goto fornext_exit_6041; -if(!qbevent)break;evnt(26070,17256,"ide_methods.bas");}while(r); -} -fornext_continue_6041:; -} -fornext_exit_6041:; -S_54835:; -fornext_value6044=*_FUNC_IDERGBMIXER_LONG_FINDCOMMA2+ 1 ; -fornext_finalvalue6044=_FUNC_IDERGBMIXER_STRING_A2->len; -fornext_step6044= 1 ; -if (fornext_step6044<0) fornext_step_negative6044=1; else fornext_step_negative6044=0; -if (new_error) goto fornext_error6044; -goto fornext_entrylabel6044; -while(1){ -fornext_value6044=fornext_step6044+(*_FUNC_IDERGBMIXER_LONG_I); -fornext_entrylabel6044: -*_FUNC_IDERGBMIXER_LONG_I=fornext_value6044; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative6044){ -if (fornext_value6044fornext_finalvalue6044) break; -} -fornext_error6044:; -if(qbevent){evnt(26070,17260,"ide_methods.bas");if(r)goto S_54835;} -S_54836:; -if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(_FUNC_IDERGBMIXER_STRING_A2,*_FUNC_IDERGBMIXER_LONG_I)== 32 ))|(((-(qbs_asc(_FUNC_IDERGBMIXER_STRING_A2,*_FUNC_IDERGBMIXER_LONG_I)>= 48 ))&(-(qbs_asc(_FUNC_IDERGBMIXER_STRING_A2,*_FUNC_IDERGBMIXER_LONG_I)<= 57 ))))))||new_error){ -if(qbevent){evnt(26070,17261,"ide_methods.bas");if(r)goto S_54836;} -do{ -qbs_set(_FUNC_IDERGBMIXER_STRING_B,qbs_add(_FUNC_IDERGBMIXER_STRING_B,func_mid(_FUNC_IDERGBMIXER_STRING_A2,*_FUNC_IDERGBMIXER_LONG_I, 1 ,0|1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17262,"ide_methods.bas");}while(r); -}else{ -do{ -goto fornext_exit_6043; -if(!qbevent)break;evnt(26070,17264,"ide_methods.bas");}while(r); -} -fornext_continue_6043:; -} -fornext_exit_6043:; -do{ -*_FUNC_IDERGBMIXER_LONG_R=qbr(func_val(_FUNC_IDERGBMIXER_STRING_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17268,"ide_methods.bas");}while(r); -S_54843:; -if ((-(*_FUNC_IDERGBMIXER_LONG_R< 0 ))||new_error){ -if(qbevent){evnt(26070,17268,"ide_methods.bas");if(r)goto S_54843;} -do{ -*_FUNC_IDERGBMIXER_LONG_R= 0 ; -if(!qbevent)break;evnt(26070,17268,"ide_methods.bas");}while(r); -} -S_54846:; -if ((-(*_FUNC_IDERGBMIXER_LONG_R> 255 ))||new_error){ -if(qbevent){evnt(26070,17269,"ide_methods.bas");if(r)goto S_54846;} -do{ -*_FUNC_IDERGBMIXER_LONG_R= 255 ; -if(!qbevent)break;evnt(26070,17269,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDERGBMIXER_LONG_G=qbr(func_val(_FUNC_IDERGBMIXER_STRING_G)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17270,"ide_methods.bas");}while(r); -S_54850:; -if ((-(*_FUNC_IDERGBMIXER_LONG_G< 0 ))||new_error){ -if(qbevent){evnt(26070,17270,"ide_methods.bas");if(r)goto S_54850;} -do{ -*_FUNC_IDERGBMIXER_LONG_G= 0 ; -if(!qbevent)break;evnt(26070,17270,"ide_methods.bas");}while(r); -} -S_54853:; -if ((-(*_FUNC_IDERGBMIXER_LONG_G> 255 ))||new_error){ -if(qbevent){evnt(26070,17271,"ide_methods.bas");if(r)goto S_54853;} -do{ -*_FUNC_IDERGBMIXER_LONG_G= 255 ; -if(!qbevent)break;evnt(26070,17271,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDERGBMIXER_LONG_B=qbr(func_val(_FUNC_IDERGBMIXER_STRING_B)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17272,"ide_methods.bas");}while(r); -S_54857:; -if ((-(*_FUNC_IDERGBMIXER_LONG_B< 0 ))||new_error){ -if(qbevent){evnt(26070,17272,"ide_methods.bas");if(r)goto S_54857;} -do{ -*_FUNC_IDERGBMIXER_LONG_B= 0 ; -if(!qbevent)break;evnt(26070,17272,"ide_methods.bas");}while(r); -} -S_54860:; -if ((-(*_FUNC_IDERGBMIXER_LONG_B> 255 ))||new_error){ -if(qbevent){evnt(26070,17273,"ide_methods.bas");if(r)goto S_54860;} -do{ -*_FUNC_IDERGBMIXER_LONG_B= 255 ; -if(!qbevent)break;evnt(26070,17273,"ide_methods.bas");}while(r); -} -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(_FUNC_IDERGBMIXER_LONG_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17275,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(_FUNC_IDERGBMIXER_LONG_G)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17276,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(_FUNC_IDERGBMIXER_LONG_B)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17277,"ide_methods.bas");}while(r); -S_54866:; -fornext_value6047= 1 ; -fornext_finalvalue6047= 3 ; -fornext_step6047= 1 ; -if (fornext_step6047<0) fornext_step_negative6047=1; else fornext_step_negative6047=0; -if (new_error) goto fornext_error6047; -goto fornext_entrylabel6047; -while(1){ -fornext_value6047=fornext_step6047+(*_FUNC_IDERGBMIXER_LONG_I); -fornext_entrylabel6047: -*_FUNC_IDERGBMIXER_LONG_I=fornext_value6047; -if (fornext_step_negative6047){ -if (fornext_value6047fornext_finalvalue6047) break; -} -fornext_error6047:; -if(qbevent){evnt(26070,17279,"ide_methods.bas");if(r)goto S_54866;} -do{ -*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+77))= 0 ; -if(!qbevent)break;evnt(26070,17280,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; -if(!qbevent)break;evnt(26070,17281,"ide_methods.bas");}while(r); -S_54869:; -if ((-(*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+81))> 0 ))||new_error){ -if(qbevent){evnt(26070,17282,"ide_methods.bas");if(r)goto S_54869;} -do{ -*(int8*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+76))= -1 ; -if(!qbevent)break;evnt(26070,17282,"ide_methods.bas");}while(r); -} -fornext_continue_6046:; -} -fornext_exit_6046:; -S_54873:; -}else{ -if (*_FUNC_IDERGBMIXER_BYTE_NEWSYNTAX){ -if(qbevent){evnt(26070,17284,"ide_methods.bas");if(r)goto S_54873;} -do{ -qbs_set(_FUNC_IDERGBMIXER_STRING_R,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17285,"ide_methods.bas");}while(r); -S_54875:; -fornext_value6050=*_FUNC_IDERGBMIXER_LONG_FINDCOMMA1- 1 ; -fornext_finalvalue6050= 1 ; -fornext_step6050= -1 ; -if (fornext_step6050<0) fornext_step_negative6050=1; else fornext_step_negative6050=0; -if (new_error) goto fornext_error6050; -goto fornext_entrylabel6050; -while(1){ -fornext_value6050=fornext_step6050+(*_FUNC_IDERGBMIXER_LONG_I); -fornext_entrylabel6050: -*_FUNC_IDERGBMIXER_LONG_I=fornext_value6050; -if (fornext_step_negative6050){ -if (fornext_value6050fornext_finalvalue6050) break; -} -fornext_error6050:; -if(qbevent){evnt(26070,17286,"ide_methods.bas");if(r)goto S_54875;} -S_54876:; -if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(_FUNC_IDERGBMIXER_STRING_A2,*_FUNC_IDERGBMIXER_LONG_I)>= 48 ))&(-(qbs_asc(_FUNC_IDERGBMIXER_STRING_A2,*_FUNC_IDERGBMIXER_LONG_I)<= 57 ))))||new_error){ -if(qbevent){evnt(26070,17287,"ide_methods.bas");if(r)goto S_54876;} -do{ -qbs_set(_FUNC_IDERGBMIXER_STRING_R,qbs_add(func_mid(_FUNC_IDERGBMIXER_STRING_A2,*_FUNC_IDERGBMIXER_LONG_I, 1 ,0|1),_FUNC_IDERGBMIXER_STRING_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17288,"ide_methods.bas");}while(r); -}else{ -do{ -goto fornext_exit_6049; -if(!qbevent)break;evnt(26070,17290,"ide_methods.bas");}while(r); -} -fornext_continue_6049:; -} -fornext_exit_6049:; -do{ -*_FUNC_IDERGBMIXER_LONG_R=qbr(func_val(_FUNC_IDERGBMIXER_STRING_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17294,"ide_methods.bas");}while(r); -S_54883:; -if ((-(*_FUNC_IDERGBMIXER_LONG_R< 0 ))||new_error){ -if(qbevent){evnt(26070,17294,"ide_methods.bas");if(r)goto S_54883;} -do{ -*_FUNC_IDERGBMIXER_LONG_R= 0 ; -if(!qbevent)break;evnt(26070,17294,"ide_methods.bas");}while(r); -} -S_54886:; -if ((-(*_FUNC_IDERGBMIXER_LONG_R> 255 ))||new_error){ -if(qbevent){evnt(26070,17295,"ide_methods.bas");if(r)goto S_54886;} -do{ -*_FUNC_IDERGBMIXER_LONG_R= 255 ; -if(!qbevent)break;evnt(26070,17295,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDERGBMIXER_LONG_G=*_FUNC_IDERGBMIXER_LONG_R; -if(!qbevent)break;evnt(26070,17296,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDERGBMIXER_LONG_B=*_FUNC_IDERGBMIXER_LONG_R; -if(!qbevent)break;evnt(26070,17297,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(_FUNC_IDERGBMIXER_LONG_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17299,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(_FUNC_IDERGBMIXER_LONG_G)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17300,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(_FUNC_IDERGBMIXER_LONG_B)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17301,"ide_methods.bas");}while(r); -S_54894:; -fornext_value6052= 1 ; -fornext_finalvalue6052= 3 ; -fornext_step6052= 1 ; -if (fornext_step6052<0) fornext_step_negative6052=1; else fornext_step_negative6052=0; -if (new_error) goto fornext_error6052; -goto fornext_entrylabel6052; -while(1){ -fornext_value6052=fornext_step6052+(*_FUNC_IDERGBMIXER_LONG_I); -fornext_entrylabel6052: -*_FUNC_IDERGBMIXER_LONG_I=fornext_value6052; -if (fornext_step_negative6052){ -if (fornext_value6052fornext_finalvalue6052) break; -} -fornext_error6052:; -if(qbevent){evnt(26070,17303,"ide_methods.bas");if(r)goto S_54894;} -do{ -*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+77))= 0 ; -if(!qbevent)break;evnt(26070,17304,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; -if(!qbevent)break;evnt(26070,17305,"ide_methods.bas");}while(r); -S_54897:; -if ((-(*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+81))> 0 ))||new_error){ -if(qbevent){evnt(26070,17306,"ide_methods.bas");if(r)goto S_54897;} -do{ -*(int8*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+76))= -1 ; -if(!qbevent)break;evnt(26070,17306,"ide_methods.bas");}while(r); -} -fornext_continue_6051:; -} -fornext_exit_6051:; -} -} -S_54902:; -}else{ -if (*_FUNC_IDERGBMIXER_BYTE_NEWSYNTAX){ -if(qbevent){evnt(26070,17309,"ide_methods.bas");if(r)goto S_54902;} -do{ -*_FUNC_IDERGBMIXER_LONG_FINDCOMMA1=func_instr(NULL,_FUNC_IDERGBMIXER_STRING_A2,qbs_new_txt_len(")",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17311,"ide_methods.bas");}while(r); -S_54904:; -if ((*_FUNC_IDERGBMIXER_LONG_FINDCOMMA1)||new_error){ -if(qbevent){evnt(26070,17312,"ide_methods.bas");if(r)goto S_54904;} -do{ -qbs_set(_FUNC_IDERGBMIXER_STRING_R,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17313,"ide_methods.bas");}while(r); -S_54906:; -fornext_value6055=*_FUNC_IDERGBMIXER_LONG_FINDCOMMA1- 1 ; -fornext_finalvalue6055= 1 ; -fornext_step6055= -1 ; -if (fornext_step6055<0) fornext_step_negative6055=1; else fornext_step_negative6055=0; -if (new_error) goto fornext_error6055; -goto fornext_entrylabel6055; -while(1){ -fornext_value6055=fornext_step6055+(*_FUNC_IDERGBMIXER_LONG_I); -fornext_entrylabel6055: -*_FUNC_IDERGBMIXER_LONG_I=fornext_value6055; -if (fornext_step_negative6055){ -if (fornext_value6055fornext_finalvalue6055) break; -} -fornext_error6055:; -if(qbevent){evnt(26070,17314,"ide_methods.bas");if(r)goto S_54906;} -S_54907:; -if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(_FUNC_IDERGBMIXER_STRING_A2,*_FUNC_IDERGBMIXER_LONG_I)>= 48 ))&(-(qbs_asc(_FUNC_IDERGBMIXER_STRING_A2,*_FUNC_IDERGBMIXER_LONG_I)<= 57 ))))||new_error){ -if(qbevent){evnt(26070,17315,"ide_methods.bas");if(r)goto S_54907;} -do{ -qbs_set(_FUNC_IDERGBMIXER_STRING_R,qbs_add(func_mid(_FUNC_IDERGBMIXER_STRING_A2,*_FUNC_IDERGBMIXER_LONG_I, 1 ,0|1),_FUNC_IDERGBMIXER_STRING_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17316,"ide_methods.bas");}while(r); -}else{ -do{ -goto fornext_exit_6054; -if(!qbevent)break;evnt(26070,17318,"ide_methods.bas");}while(r); -} -fornext_continue_6054:; -} -fornext_exit_6054:; -do{ -*_FUNC_IDERGBMIXER_LONG_R=qbr(func_val(_FUNC_IDERGBMIXER_STRING_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17322,"ide_methods.bas");}while(r); -S_54914:; -if ((-(*_FUNC_IDERGBMIXER_LONG_R< 0 ))||new_error){ -if(qbevent){evnt(26070,17322,"ide_methods.bas");if(r)goto S_54914;} -do{ -*_FUNC_IDERGBMIXER_LONG_R= 0 ; -if(!qbevent)break;evnt(26070,17322,"ide_methods.bas");}while(r); -} -S_54917:; -if ((-(*_FUNC_IDERGBMIXER_LONG_R> 255 ))||new_error){ -if(qbevent){evnt(26070,17323,"ide_methods.bas");if(r)goto S_54917;} -do{ -*_FUNC_IDERGBMIXER_LONG_R= 255 ; -if(!qbevent)break;evnt(26070,17323,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDERGBMIXER_LONG_G=*_FUNC_IDERGBMIXER_LONG_R; -if(!qbevent)break;evnt(26070,17324,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDERGBMIXER_LONG_B=*_FUNC_IDERGBMIXER_LONG_R; -if(!qbevent)break;evnt(26070,17325,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(_FUNC_IDERGBMIXER_LONG_R)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17327,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(_FUNC_IDERGBMIXER_LONG_G)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17328,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(_FUNC_IDERGBMIXER_LONG_B)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17329,"ide_methods.bas");}while(r); -S_54925:; -fornext_value6057= 1 ; -fornext_finalvalue6057= 3 ; -fornext_step6057= 1 ; -if (fornext_step6057<0) fornext_step_negative6057=1; else fornext_step_negative6057=0; -if (new_error) goto fornext_error6057; -goto fornext_entrylabel6057; -while(1){ -fornext_value6057=fornext_step6057+(*_FUNC_IDERGBMIXER_LONG_I); -fornext_entrylabel6057: -*_FUNC_IDERGBMIXER_LONG_I=fornext_value6057; -if (fornext_step_negative6057){ -if (fornext_value6057fornext_finalvalue6057) break; -} -fornext_error6057:; -if(qbevent){evnt(26070,17331,"ide_methods.bas");if(r)goto S_54925;} -do{ -*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+77))= 0 ; -if(!qbevent)break;evnt(26070,17332,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; -if(!qbevent)break;evnt(26070,17333,"ide_methods.bas");}while(r); -S_54928:; -if ((-(*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+81))> 0 ))||new_error){ -if(qbevent){evnt(26070,17334,"ide_methods.bas");if(r)goto S_54928;} -do{ -*(int8*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+76))= -1 ; -if(!qbevent)break;evnt(26070,17334,"ide_methods.bas");}while(r); -} -fornext_continue_6056:; -} -fornext_exit_6056:; -} -} -} -}else{ -S_54935:; -if ((*__LONG_IDESELECT&(-(*__LONG_IDESELECTY1==*__LONG_IDECY)))||new_error){ -if(qbevent){evnt(26070,17341,"ide_methods.bas");if(r)goto S_54935;} -do{ -*__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(26070,17342,"ide_methods.bas");}while(r); -do{ -goto LABEL_RGB_LOOKUP; -if(!qbevent)break;evnt(26070,17343,"ide_methods.bas");}while(r); -} -} -} -LABEL_NORGBFOUND:; -if(qbevent){evnt(26070,17347,"ide_methods.bas");r=0;} -do{ -*_FUNC_IDERGBMIXER_ULONG_CURRENTCOLOR=func__rgb32(qbr(func_val(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))),qbr(func_val(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))),qbr(func_val(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17348,"ide_methods.bas");}while(r); -do{ -sub__palettecolor( 12 ,*_FUNC_IDERGBMIXER_ULONG_CURRENTCOLOR, 0 ,1); -if(!qbevent)break;evnt(26070,17349,"ide_methods.bas");}while(r); -do{ -sub__palettecolor( 5 , -16734208 , 0 ,1); -if(!qbevent)break;evnt(26070,17350,"ide_methods.bas");}while(r); -S_54944:; -fornext_value6060= 1 ; -fornext_finalvalue6060= 100 ; -fornext_step6060= 1 ; -if (fornext_step6060<0) fornext_step_negative6060=1; else fornext_step_negative6060=0; -if (new_error) goto fornext_error6060; -goto fornext_entrylabel6060; -while(1){ -fornext_value6060=fornext_step6060+(*_FUNC_IDERGBMIXER_LONG_I); -fornext_entrylabel6060: -*_FUNC_IDERGBMIXER_LONG_I=fornext_value6060; -if (fornext_step_negative6060){ -if (fornext_value6060fornext_finalvalue6060) break; -} -fornext_error6060:; -if(qbevent){evnt(26070,17354,"ide_methods.bas");if(r)goto S_54944;} -do{ -memcpy(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89)+ 0,((char*)_FUNC_IDERGBMIXER_UDT_P)+(0)+ 0, 20); -if(!qbevent)break;evnt(26070,17354,"ide_methods.bas");}while(r); -fornext_continue_6059:; -} -fornext_exit_6059:; -S_54947:; -do{ -if(qbevent){evnt(26070,17357,"ide_methods.bas");if(r)goto S_54947;} -do{ -SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDERGBMIXER_UDT_P)) + (0) )); -if(!qbevent)break;evnt(26070,17360,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDERGBMIXER_LONG_F= 1 ; -if(!qbevent)break;evnt(26070,17361,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDERGBMIXER_LONG_CX= 0 ; -if(!qbevent)break;evnt(26070,17361,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDERGBMIXER_LONG_CY= 0 ; -if(!qbevent)break;evnt(26070,17361,"ide_methods.bas");}while(r); -S_54952:; -fornext_value6063= 1 ; -fornext_finalvalue6063= 100 ; -fornext_step6063= 1 ; -if (fornext_step6063<0) fornext_step_negative6063=1; else fornext_step_negative6063=0; -if (new_error) goto fornext_error6063; -goto fornext_entrylabel6063; -while(1){ -fornext_value6063=fornext_step6063+(*_FUNC_IDERGBMIXER_LONG_I); -fornext_entrylabel6063: -*_FUNC_IDERGBMIXER_LONG_I=fornext_value6063; -if (fornext_step_negative6063){ -if (fornext_value6063fornext_finalvalue6063) break; -} -fornext_error6063:; -if(qbevent){evnt(26070,17362,"ide_methods.bas");if(r)goto S_54952;} -S_54953:; -if ((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+36)))||new_error){ -if(qbevent){evnt(26070,17363,"ide_methods.bas");if(r)goto S_54953;} -do{ -*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+60))=*_FUNC_IDERGBMIXER_LONG_FOCUS-*_FUNC_IDERGBMIXER_LONG_F; -if(!qbevent)break;evnt(26070,17366,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+52))= 0 ; -if(!qbevent)break;evnt(26070,17367,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+56))= 0 ; -if(!qbevent)break;evnt(26070,17367,"ide_methods.bas");}while(r); -do{ -SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89) ),_FUNC_IDERGBMIXER_LONG_F); -if(!qbevent)break;evnt(26070,17368,"ide_methods.bas");}while(r); -S_54958:; -if ((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+52)))||new_error){ -if(qbevent){evnt(26070,17369,"ide_methods.bas");if(r)goto S_54958;} -do{ -*_FUNC_IDERGBMIXER_LONG_CX=*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+52)); -if(!qbevent)break;evnt(26070,17369,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDERGBMIXER_LONG_CY=*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+56)); -if(!qbevent)break;evnt(26070,17369,"ide_methods.bas");}while(r); -} -} -fornext_continue_6062:; -} -fornext_exit_6062:; -do{ -*_FUNC_IDERGBMIXER_LONG_LASTFOCUS=*_FUNC_IDERGBMIXER_LONG_F- 1 ; -if(!qbevent)break;evnt(26070,17372,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*(int32*)(((char*)_FUNC_IDERGBMIXER_UDT_P)+(4))+ 2 ,*(int32*)(((char*)_FUNC_IDERGBMIXER_UDT_P)+(0))+ 13 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(26070,17376,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("R: ",3)); -if (new_error) goto skip6064; -makefit(tqbs); -qbs_print(tqbs,0); -skip6064: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17376,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 4 ,NULL,NULL,1); -if(!qbevent)break;evnt(26070,17377,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_string( 46 , 196 )); -if (new_error) goto skip6065; -makefit(tqbs); -qbs_print(tqbs,0); -skip6065: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17377,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDERGBMIXER_STRING_SLIDER,func_chr( 197 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17378,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDERGBMIXER_LONG_T=qbr(func_val(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17379,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDERGBMIXER_LONG_R=qbr(((*_FUNC_IDERGBMIXER_LONG_T/ ((long double)( 255 )))* 46 )); -if(!qbevent)break;evnt(26070,17379,"ide_methods.bas");}while(r); -S_54972:; -if ((-(*_FUNC_IDERGBMIXER_LONG_T== 0 ))||new_error){ -if(qbevent){evnt(26070,17380,"ide_methods.bas");if(r)goto S_54972;} -do{ -qbs_set(_FUNC_IDERGBMIXER_STRING_SLIDER,func_chr( 195 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17380,"ide_methods.bas");}while(r); -} -S_54975:; -if ((-(*_FUNC_IDERGBMIXER_LONG_T== 255 ))||new_error){ -if(qbevent){evnt(26070,17381,"ide_methods.bas");if(r)goto S_54975;} -do{ -qbs_set(_FUNC_IDERGBMIXER_STRING_SLIDER,func_chr( 180 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17381,"ide_methods.bas");}while(r); -} -do{ -sub__printstring(*(int32*)(((char*)_FUNC_IDERGBMIXER_UDT_P)+(0))+ 15 +*_FUNC_IDERGBMIXER_LONG_R,*(int32*)(((char*)_FUNC_IDERGBMIXER_UDT_P)+(4))+ 2 ,_FUNC_IDERGBMIXER_STRING_SLIDER,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17382,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 0 ,NULL,NULL,1); -if(!qbevent)break;evnt(26070,17384,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*(int32*)(((char*)_FUNC_IDERGBMIXER_UDT_P)+(4))+ 5 ,*(int32*)(((char*)_FUNC_IDERGBMIXER_UDT_P)+(0))+ 13 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(26070,17384,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("G: ",3)); -if (new_error) goto skip6066; -makefit(tqbs); -qbs_print(tqbs,0); -skip6066: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17384,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 5 ,NULL,NULL,1); -if(!qbevent)break;evnt(26070,17385,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_string( 46 , 196 )); -if (new_error) goto skip6067; -makefit(tqbs); -qbs_print(tqbs,0); -skip6067: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17385,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDERGBMIXER_STRING_SLIDER,func_chr( 197 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17386,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDERGBMIXER_LONG_T=qbr(func_val(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17387,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDERGBMIXER_LONG_R=qbr(((*_FUNC_IDERGBMIXER_LONG_T/ ((long double)( 255 )))* 46 )); -if(!qbevent)break;evnt(26070,17387,"ide_methods.bas");}while(r); -S_54987:; -if ((-(*_FUNC_IDERGBMIXER_LONG_T== 0 ))||new_error){ -if(qbevent){evnt(26070,17388,"ide_methods.bas");if(r)goto S_54987;} -do{ -qbs_set(_FUNC_IDERGBMIXER_STRING_SLIDER,func_chr( 195 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17388,"ide_methods.bas");}while(r); -} -S_54990:; -if ((-(*_FUNC_IDERGBMIXER_LONG_T== 255 ))||new_error){ -if(qbevent){evnt(26070,17389,"ide_methods.bas");if(r)goto S_54990;} -do{ -qbs_set(_FUNC_IDERGBMIXER_STRING_SLIDER,func_chr( 180 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17389,"ide_methods.bas");}while(r); -} -do{ -sub__printstring(*(int32*)(((char*)_FUNC_IDERGBMIXER_UDT_P)+(0))+ 15 +*_FUNC_IDERGBMIXER_LONG_R,*(int32*)(((char*)_FUNC_IDERGBMIXER_UDT_P)+(4))+ 5 ,_FUNC_IDERGBMIXER_STRING_SLIDER,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17390,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 0 ,NULL,NULL,1); -if(!qbevent)break;evnt(26070,17392,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*(int32*)(((char*)_FUNC_IDERGBMIXER_UDT_P)+(4))+ 8 ,*(int32*)(((char*)_FUNC_IDERGBMIXER_UDT_P)+(0))+ 13 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(26070,17392,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len("B: ",3)); -if (new_error) goto skip6068; -makefit(tqbs); -qbs_print(tqbs,0); -skip6068: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17392,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 9 ,NULL,NULL,1); -if(!qbevent)break;evnt(26070,17393,"ide_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_string( 46 , 196 )); -if (new_error) goto skip6069; -makefit(tqbs); -qbs_print(tqbs,0); -skip6069: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17393,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDERGBMIXER_STRING_SLIDER,func_chr( 197 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17394,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDERGBMIXER_LONG_T=qbr(func_val(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17395,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDERGBMIXER_LONG_R=qbr(((*_FUNC_IDERGBMIXER_LONG_T/ ((long double)( 255 )))* 46 )); -if(!qbevent)break;evnt(26070,17395,"ide_methods.bas");}while(r); -S_55002:; -if ((-(*_FUNC_IDERGBMIXER_LONG_T== 0 ))||new_error){ -if(qbevent){evnt(26070,17396,"ide_methods.bas");if(r)goto S_55002;} -do{ -qbs_set(_FUNC_IDERGBMIXER_STRING_SLIDER,func_chr( 195 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17396,"ide_methods.bas");}while(r); -} -S_55005:; -if ((-(*_FUNC_IDERGBMIXER_LONG_T== 255 ))||new_error){ -if(qbevent){evnt(26070,17397,"ide_methods.bas");if(r)goto S_55005;} -do{ -qbs_set(_FUNC_IDERGBMIXER_STRING_SLIDER,func_chr( 180 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17397,"ide_methods.bas");}while(r); -} -do{ -sub__printstring(*(int32*)(((char*)_FUNC_IDERGBMIXER_UDT_P)+(0))+ 15 +*_FUNC_IDERGBMIXER_LONG_R,*(int32*)(((char*)_FUNC_IDERGBMIXER_UDT_P)+(4))+ 8 ,_FUNC_IDERGBMIXER_STRING_SLIDER,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17398,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 0 ,NULL,NULL,1); -if(!qbevent)break;evnt(26070,17400,"ide_methods.bas");}while(r); -do{ -sub__printstring(*(int32*)(((char*)_FUNC_IDERGBMIXER_UDT_P)+(0))+ 19 ,*(int32*)(((char*)_FUNC_IDERGBMIXER_UDT_P)+(4))+ 9 ,qbs_new_txt_len("Hold CTRL to drag all sliders at once.",38),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17400,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 12 ,NULL,NULL,1); -if(!qbevent)break;evnt(26070,17402,"ide_methods.bas");}while(r); -S_55012:; -fornext_value6071= 2 ; -fornext_finalvalue6071= 8 ; -fornext_step6071= 1 ; -if (fornext_step6071<0) fornext_step_negative6071=1; else fornext_step_negative6071=0; -if (new_error) goto fornext_error6071; -goto fornext_entrylabel6071; -while(1){ -fornext_value6071=fornext_step6071+(*_FUNC_IDERGBMIXER_LONG_I); -fornext_entrylabel6071: -*_FUNC_IDERGBMIXER_LONG_I=fornext_value6071; -if (fornext_step_negative6071){ -if (fornext_value6071fornext_finalvalue6071) break; -} -fornext_error6071:; -if(qbevent){evnt(26070,17403,"ide_methods.bas");if(r)goto S_55012;} -do{ -sub__printstring(*(int32*)(((char*)_FUNC_IDERGBMIXER_UDT_P)+(0))+ 2 ,*(int32*)(((char*)_FUNC_IDERGBMIXER_UDT_P)+(4))+*_FUNC_IDERGBMIXER_LONG_I,func_string( 10 , 219 ),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17404,"ide_methods.bas");}while(r); -fornext_continue_6070:; -} -fornext_exit_6070:; -do{ -sub_pcopy( 1 , 0 ); -if(!qbevent)break;evnt(26070,17409,"ide_methods.bas");}while(r); -S_55016:; -if ((*_FUNC_IDERGBMIXER_LONG_CX)||new_error){ -if(qbevent){evnt(26070,17410,"ide_methods.bas");if(r)goto S_55016;} -do{ -qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,17410,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*_FUNC_IDERGBMIXER_LONG_CY,*_FUNC_IDERGBMIXER_LONG_CX, 1 ,NULL,NULL,7); -if(!qbevent)break;evnt(26070,17410,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,17410,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDERGBMIXER_LONG_CHANGE= 0 ; -if(!qbevent)break;evnt(26070,17413,"ide_methods.bas");}while(r); -S_55022:; -do{ -if(qbevent){evnt(26070,17414,"ide_methods.bas");if(r)goto S_55022;} -do{ -SUB_GETINPUT(); -if(!qbevent)break;evnt(26070,17415,"ide_methods.bas");}while(r); -S_55024:; -if ((*__LONG_MWHEEL)||new_error){ -if(qbevent){evnt(26070,17416,"ide_methods.bas");if(r)goto S_55024;} -do{ -*_FUNC_IDERGBMIXER_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,17416,"ide_methods.bas");}while(r); -} -S_55027:; -if ((*__LONG_KB)||new_error){ -if(qbevent){evnt(26070,17417,"ide_methods.bas");if(r)goto S_55027;} -do{ -*_FUNC_IDERGBMIXER_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,17417,"ide_methods.bas");}while(r); -} -S_55030:; -if ((*__LONG_MCLICK)||new_error){ -if(qbevent){evnt(26070,17418,"ide_methods.bas");if(r)goto S_55030;} -do{ -*_FUNC_IDERGBMIXER_LONG_MOUSEDOWN= 1 ; -if(!qbevent)break;evnt(26070,17418,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDERGBMIXER_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,17418,"ide_methods.bas");}while(r); -} -S_55034:; -if ((*__LONG_MRELEASE)||new_error){ -if(qbevent){evnt(26070,17419,"ide_methods.bas");if(r)goto S_55034;} -do{ -*_FUNC_IDERGBMIXER_LONG_MOUSEUP= 1 ; -if(!qbevent)break;evnt(26070,17419,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDERGBMIXER_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,17419,"ide_methods.bas");}while(r); -} -S_55038:; -if ((*__LONG_MB)||new_error){ -if(qbevent){evnt(26070,17420,"ide_methods.bas");if(r)goto S_55038;} -do{ -*_FUNC_IDERGBMIXER_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,17420,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDERGBMIXER_LONG_ALT=*__LONG_KALT; -if(!qbevent)break;evnt(26070,17421,"ide_methods.bas");}while(r); -S_55042:; -if ((-(*_FUNC_IDERGBMIXER_LONG_ALT!=*_FUNC_IDERGBMIXER_LONG_OLDALT))||new_error){ -if(qbevent){evnt(26070,17421,"ide_methods.bas");if(r)goto S_55042;} -do{ -*_FUNC_IDERGBMIXER_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,17421,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDERGBMIXER_LONG_OLDALT=*_FUNC_IDERGBMIXER_LONG_ALT; -if(!qbevent)break;evnt(26070,17422,"ide_methods.bas");}while(r); -do{ -sub__limit( 100 ); -if(!qbevent)break;evnt(26070,17423,"ide_methods.bas");}while(r); -S_55047:; -dl_continue_6072:; -}while((!(*_FUNC_IDERGBMIXER_LONG_CHANGE))&&(!new_error)); -dl_exit_6072:; -if(qbevent){evnt(26070,17424,"ide_methods.bas");if(r)goto S_55047;} -S_55048:; -if ((*_FUNC_IDERGBMIXER_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(26070,17425,"ide_methods.bas");if(r)goto S_55048;} -do{ -*__LONG_IDEHL= 1 ; -if(!qbevent)break;evnt(26070,17425,"ide_methods.bas");}while(r); -}else{ -do{ -*__LONG_IDEHL= 0 ; -if(!qbevent)break;evnt(26070,17425,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDERGBMIXER_STRING_ALTLETTER,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17427,"ide_methods.bas");}while(r); -S_55054:; -if ((*_FUNC_IDERGBMIXER_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(26070,17428,"ide_methods.bas");if(r)goto S_55054;} -S_55055:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ -if(qbevent){evnt(26070,17429,"ide_methods.bas");if(r)goto S_55055;} -do{ -*_FUNC_IDERGBMIXER_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17430,"ide_methods.bas");}while(r); -S_55057:; -if (((-(*_FUNC_IDERGBMIXER_LONG_K>= 65 ))&(-(*_FUNC_IDERGBMIXER_LONG_K<= 90 )))||new_error){ -if(qbevent){evnt(26070,17431,"ide_methods.bas");if(r)goto S_55057;} -do{ -qbs_set(_FUNC_IDERGBMIXER_STRING_ALTLETTER,func_chr(*_FUNC_IDERGBMIXER_LONG_K)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17431,"ide_methods.bas");}while(r); -} -} -} -do{ -qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,17434,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); -if(!qbevent)break;evnt(26070,17434,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,17434,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDERGBMIXER_LONG_INFO= 0 ; -if(!qbevent)break;evnt(26070,17438,"ide_methods.bas");}while(r); -S_55066:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,17439,"ide_methods.bas");if(r)goto S_55066;} -do{ -qbs_set(__STRING_K,func_chr( 255 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17439,"ide_methods.bas");}while(r); -} -S_55069:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ -if(qbevent){evnt(26070,17440,"ide_methods.bas");if(r)goto S_55069;} -do{ -*_FUNC_IDERGBMIXER_LONG_FOCUS=*_FUNC_IDERGBMIXER_LONG_FOCUS+ 1 ; -if(!qbevent)break;evnt(26070,17440,"ide_methods.bas");}while(r); -} -S_55072:; -if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||new_error){ -if(qbevent){evnt(26070,17441,"ide_methods.bas");if(r)goto S_55072;} -do{ -*_FUNC_IDERGBMIXER_LONG_FOCUS=*_FUNC_IDERGBMIXER_LONG_FOCUS- 1 ; -if(!qbevent)break;evnt(26070,17441,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_K,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17441,"ide_methods.bas");}while(r); -} -S_55076:; -if ((-(*_FUNC_IDERGBMIXER_LONG_FOCUS< 1 ))||new_error){ -if(qbevent){evnt(26070,17442,"ide_methods.bas");if(r)goto S_55076;} -do{ -*_FUNC_IDERGBMIXER_LONG_FOCUS=*_FUNC_IDERGBMIXER_LONG_LASTFOCUS; -if(!qbevent)break;evnt(26070,17442,"ide_methods.bas");}while(r); -} -S_55079:; -if ((-(*_FUNC_IDERGBMIXER_LONG_FOCUS>*_FUNC_IDERGBMIXER_LONG_LASTFOCUS))||new_error){ -if(qbevent){evnt(26070,17443,"ide_methods.bas");if(r)goto S_55079;} -do{ -*_FUNC_IDERGBMIXER_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(26070,17443,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDERGBMIXER_LONG_F= 1 ; -if(!qbevent)break;evnt(26070,17444,"ide_methods.bas");}while(r); -S_55083:; -fornext_value6075= 1 ; -fornext_finalvalue6075= 100 ; -fornext_step6075= 1 ; -if (fornext_step6075<0) fornext_step_negative6075=1; else fornext_step_negative6075=0; -if (new_error) goto fornext_error6075; -goto fornext_entrylabel6075; -while(1){ -fornext_value6075=fornext_step6075+(*_FUNC_IDERGBMIXER_LONG_I); -fornext_entrylabel6075: -*_FUNC_IDERGBMIXER_LONG_I=fornext_value6075; -if (fornext_step_negative6075){ -if (fornext_value6075fornext_finalvalue6075) break; -} -fornext_error6075:; -if(qbevent){evnt(26070,17445,"ide_methods.bas");if(r)goto S_55083;} -do{ -*_FUNC_IDERGBMIXER_LONG_T=*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+36)); -if(!qbevent)break;evnt(26070,17446,"ide_methods.bas");}while(r); -S_55085:; -if ((*_FUNC_IDERGBMIXER_LONG_T)||new_error){ -if(qbevent){evnt(26070,17447,"ide_methods.bas");if(r)goto S_55085;} -do{ -*_FUNC_IDERGBMIXER_LONG_FOCUSOFFSET=*_FUNC_IDERGBMIXER_LONG_FOCUS-*_FUNC_IDERGBMIXER_LONG_F; -if(!qbevent)break;evnt(26070,17448,"ide_methods.bas");}while(r); -do{ -SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89) ),_FUNC_IDERGBMIXER_LONG_FOCUS,_FUNC_IDERGBMIXER_LONG_F,_FUNC_IDERGBMIXER_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDERGBMIXER_STRING_ALTLETTER,__LONG_MB,_FUNC_IDERGBMIXER_LONG_MOUSEDOWN,_FUNC_IDERGBMIXER_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDERGBMIXER_LONG_INFO,__LONG_MWHEEL); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17449,"ide_methods.bas");}while(r); -} -fornext_continue_6074:; -} -fornext_exit_6074:; -S_55090:; -if ((-(*_FUNC_IDERGBMIXER_LONG_FOCUS!=*_FUNC_IDERGBMIXER_LONG_PREVFOCUS))||new_error){ -if(qbevent){evnt(26070,17455,"ide_methods.bas");if(r)goto S_55090;} -do{ -*_FUNC_IDERGBMIXER_LONG_PREVFOCUS=*_FUNC_IDERGBMIXER_LONG_FOCUS; -if(!qbevent)break;evnt(26070,17457,"ide_methods.bas");}while(r); -S_55092:; -if (((-(*_FUNC_IDERGBMIXER_LONG_FOCUS>= 1 ))&(-(*_FUNC_IDERGBMIXER_LONG_FOCUS<= 3 )))||new_error){ -if(qbevent){evnt(26070,17458,"ide_methods.bas");if(r)goto S_55092;} -do{ -*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_FOCUS)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_FOCUS)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; -if(!qbevent)break;evnt(26070,17459,"ide_methods.bas");}while(r); -S_55094:; -if ((-(*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_FOCUS)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+81))> 0 ))||new_error){ -if(qbevent){evnt(26070,17460,"ide_methods.bas");if(r)goto S_55094;} -do{ -*(int8*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_FOCUS)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+76))= -1 ; -if(!qbevent)break;evnt(26070,17460,"ide_methods.bas");}while(r); -} -do{ -*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_FOCUS)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+77))= 0 ; -if(!qbevent)break;evnt(26070,17461,"ide_methods.bas");}while(r); -} -} -S_55100:; -if ((*__LONG_MB&(-(*__LONG_MY==(*(int32*)(((char*)_FUNC_IDERGBMIXER_UDT_P)+(4))+ 2 )))&(-(*__LONG_MX>=(*(int32*)(((char*)_FUNC_IDERGBMIXER_UDT_P)+(0))+ 15 )))&(-(*__LONG_MX<=(*(int32*)(((char*)_FUNC_IDERGBMIXER_UDT_P)+(0))+ 15 + 46 ))))||new_error){ -if(qbevent){evnt(26070,17465,"ide_methods.bas");if(r)goto S_55100;} -do{ -*_FUNC_IDERGBMIXER_LONG_NEWVALUE=qbr((*__LONG_MX-*(int32*)(((char*)_FUNC_IDERGBMIXER_UDT_P)+(0))- 15 )*( 255 / ((long double)( 46 )))); -if(!qbevent)break;evnt(26070,17466,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(_FUNC_IDERGBMIXER_LONG_NEWVALUE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17467,"ide_methods.bas");}while(r); -S_55103:; -if ((func__keydown( 100305 )|func__keydown( 100306 ))||new_error){ -if(qbevent){evnt(26070,17468,"ide_methods.bas");if(r)goto S_55103;} -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(_FUNC_IDERGBMIXER_LONG_NEWVALUE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17469,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(_FUNC_IDERGBMIXER_LONG_NEWVALUE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17470,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDERGBMIXER_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(26070,17472,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_FOCUS)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_FOCUS)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; -if(!qbevent)break;evnt(26070,17473,"ide_methods.bas");}while(r); -do{ -*(int8*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_FOCUS)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+76))= -1 ; -if(!qbevent)break;evnt(26070,17474,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_FOCUS)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+77))= 0 ; -if(!qbevent)break;evnt(26070,17475,"ide_methods.bas");}while(r); -} -S_55112:; -if ((*__LONG_MB&(-(*__LONG_MY==(*(int32*)(((char*)_FUNC_IDERGBMIXER_UDT_P)+(4))+ 5 )))&(-(*__LONG_MX>=(*(int32*)(((char*)_FUNC_IDERGBMIXER_UDT_P)+(0))+ 15 )))&(-(*__LONG_MX<=(*(int32*)(((char*)_FUNC_IDERGBMIXER_UDT_P)+(0))+ 15 + 46 ))))||new_error){ -if(qbevent){evnt(26070,17478,"ide_methods.bas");if(r)goto S_55112;} -do{ -*_FUNC_IDERGBMIXER_LONG_NEWVALUE=qbr((*__LONG_MX-*(int32*)(((char*)_FUNC_IDERGBMIXER_UDT_P)+(0))- 15 )*( 255 / ((long double)( 46 )))); -if(!qbevent)break;evnt(26070,17479,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(_FUNC_IDERGBMIXER_LONG_NEWVALUE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17480,"ide_methods.bas");}while(r); -S_55115:; -if ((func__keydown( 100305 )|func__keydown( 100306 ))||new_error){ -if(qbevent){evnt(26070,17481,"ide_methods.bas");if(r)goto S_55115;} -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(_FUNC_IDERGBMIXER_LONG_NEWVALUE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17482,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(_FUNC_IDERGBMIXER_LONG_NEWVALUE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17483,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDERGBMIXER_LONG_FOCUS= 2 ; -if(!qbevent)break;evnt(26070,17485,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_FOCUS)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_FOCUS)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; -if(!qbevent)break;evnt(26070,17486,"ide_methods.bas");}while(r); -do{ -*(int8*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_FOCUS)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+76))= -1 ; -if(!qbevent)break;evnt(26070,17487,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_FOCUS)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+77))= 0 ; -if(!qbevent)break;evnt(26070,17488,"ide_methods.bas");}while(r); -} -S_55124:; -if ((*__LONG_MB&(-(*__LONG_MY==(*(int32*)(((char*)_FUNC_IDERGBMIXER_UDT_P)+(4))+ 8 )))&(-(*__LONG_MX>=(*(int32*)(((char*)_FUNC_IDERGBMIXER_UDT_P)+(0))+ 15 )))&(-(*__LONG_MX<=(*(int32*)(((char*)_FUNC_IDERGBMIXER_UDT_P)+(0))+ 15 + 46 ))))||new_error){ -if(qbevent){evnt(26070,17491,"ide_methods.bas");if(r)goto S_55124;} -do{ -*_FUNC_IDERGBMIXER_LONG_NEWVALUE=qbr((*__LONG_MX-*(int32*)(((char*)_FUNC_IDERGBMIXER_UDT_P)+(0))- 15 )*( 255 / ((long double)( 46 )))); -if(!qbevent)break;evnt(26070,17492,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(_FUNC_IDERGBMIXER_LONG_NEWVALUE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17493,"ide_methods.bas");}while(r); -S_55127:; -if ((func__keydown( 100305 )|func__keydown( 100306 ))||new_error){ -if(qbevent){evnt(26070,17494,"ide_methods.bas");if(r)goto S_55127;} -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(_FUNC_IDERGBMIXER_LONG_NEWVALUE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17495,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(_FUNC_IDERGBMIXER_LONG_NEWVALUE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17496,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDERGBMIXER_LONG_FOCUS= 3 ; -if(!qbevent)break;evnt(26070,17498,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_FOCUS)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_FOCUS)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; -if(!qbevent)break;evnt(26070,17499,"ide_methods.bas");}while(r); -do{ -*(int8*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_FOCUS)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+76))= -1 ; -if(!qbevent)break;evnt(26070,17500,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_FOCUS)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+77))= 0 ; -if(!qbevent)break;evnt(26070,17501,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDERGBMIXER_LONG_CHANGEDWITHKEYS= 0 ; -if(!qbevent)break;evnt(26070,17504,"ide_methods.bas");}while(r); -S_55137:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,(qbs_add(func_chr( 0 ),func_chr( 72 )))))&(((-(*_FUNC_IDERGBMIXER_LONG_FOCUS== 1 ))|(-(*_FUNC_IDERGBMIXER_LONG_FOCUS== 2 ))|(-(*_FUNC_IDERGBMIXER_LONG_FOCUS== 3 ))))))||new_error){ -if(qbevent){evnt(26070,17505,"ide_methods.bas");if(r)goto S_55137;} -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_FOCUS)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(&(pass6080=qbr(func_val(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_FOCUS)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))+ 1 )))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17506,"ide_methods.bas");}while(r); -do{ -*(int8*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_FOCUS)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+76))= -1 ; -if(!qbevent)break;evnt(26070,17507,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_FOCUS)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+77))= 0 ; -if(!qbevent)break;evnt(26070,17507,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_FOCUS)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_FOCUS)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; -if(!qbevent)break;evnt(26070,17507,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDERGBMIXER_LONG_CHANGEDWITHKEYS= -1 ; -if(!qbevent)break;evnt(26070,17508,"ide_methods.bas");}while(r); -} -S_55144:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,(qbs_add(func_chr( 0 ),func_chr( 80 )))))&(((-(*_FUNC_IDERGBMIXER_LONG_FOCUS== 1 ))|(-(*_FUNC_IDERGBMIXER_LONG_FOCUS== 2 ))|(-(*_FUNC_IDERGBMIXER_LONG_FOCUS== 3 ))))))||new_error){ -if(qbevent){evnt(26070,17511,"ide_methods.bas");if(r)goto S_55144;} -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_FOCUS)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(&(pass6082=qbr(func_val(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_FOCUS)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))- 1 )))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17512,"ide_methods.bas");}while(r); -do{ -*(int8*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_FOCUS)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+76))= -1 ; -if(!qbevent)break;evnt(26070,17513,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_FOCUS)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+77))= 0 ; -if(!qbevent)break;evnt(26070,17513,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_FOCUS)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_FOCUS)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; -if(!qbevent)break;evnt(26070,17513,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDERGBMIXER_LONG_CHANGEDWITHKEYS= -1 ; -if(!qbevent)break;evnt(26070,17514,"ide_methods.bas");}while(r); -} -S_55151:; -fornext_value6085= 1 ; -fornext_finalvalue6085= 3 ; -fornext_step6085= 1 ; -if (fornext_step6085<0) fornext_step_negative6085=1; else fornext_step_negative6085=0; -if (new_error) goto fornext_error6085; -goto fornext_entrylabel6085; -while(1){ -fornext_value6085=fornext_step6085+(*_FUNC_IDERGBMIXER_LONG_CHECKRGB); -fornext_entrylabel6085: -*_FUNC_IDERGBMIXER_LONG_CHECKRGB=fornext_value6085; -if (fornext_step_negative6085){ -if (fornext_value6085fornext_finalvalue6085) break; -} -fornext_error6085:; -if(qbevent){evnt(26070,17518,"ide_methods.bas");if(r)goto S_55151;} -do{ -qbs_set(_FUNC_IDERGBMIXER_STRING_A,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_CHECKRGB)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17519,"ide_methods.bas");}while(r); -S_55153:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDERGBMIXER_STRING_A->len> 3 )))||new_error){ -if(qbevent){evnt(26070,17520,"ide_methods.bas");if(r)goto S_55153;} -do{ -qbs_set(_FUNC_IDERGBMIXER_STRING_A,qbs_left(_FUNC_IDERGBMIXER_STRING_A, 3 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17520,"ide_methods.bas");}while(r); -} -S_55156:; -fornext_value6088= 1 ; -fornext_finalvalue6088=_FUNC_IDERGBMIXER_STRING_A->len; -fornext_step6088= 1 ; -if (fornext_step6088<0) fornext_step_negative6088=1; else fornext_step_negative6088=0; -if (new_error) goto fornext_error6088; -goto fornext_entrylabel6088; -while(1){ -fornext_value6088=fornext_step6088+(*_FUNC_IDERGBMIXER_LONG_I); -fornext_entrylabel6088: -*_FUNC_IDERGBMIXER_LONG_I=fornext_value6088; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative6088){ -if (fornext_value6088fornext_finalvalue6088) break; -} -fornext_error6088:; -if(qbevent){evnt(26070,17521,"ide_methods.bas");if(r)goto S_55156;} -do{ -*_FUNC_IDERGBMIXER_LONG_A=qbs_asc(_FUNC_IDERGBMIXER_STRING_A,*_FUNC_IDERGBMIXER_LONG_I); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17522,"ide_methods.bas");}while(r); -S_55158:; -if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_IDERGBMIXER_LONG_I== 2 ))&(-(qbs_asc(_FUNC_IDERGBMIXER_STRING_A, 1 )== 48 ))))||new_error){ -if(qbevent){evnt(26070,17523,"ide_methods.bas");if(r)goto S_55158;} -do{ -qbs_set(_FUNC_IDERGBMIXER_STRING_A,qbs_new_txt_len("0",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17523,"ide_methods.bas");}while(r); -do{ -goto fornext_exit_6087; -if(!qbevent)break;evnt(26070,17523,"ide_methods.bas");}while(r); -} -S_55162:; -if (((-(*_FUNC_IDERGBMIXER_LONG_A< 48 ))|(-(*_FUNC_IDERGBMIXER_LONG_A> 57 )))||new_error){ -if(qbevent){evnt(26070,17524,"ide_methods.bas");if(r)goto S_55162;} -do{ -qbs_set(_FUNC_IDERGBMIXER_STRING_A,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17524,"ide_methods.bas");}while(r); -do{ -goto fornext_exit_6087; -if(!qbevent)break;evnt(26070,17524,"ide_methods.bas");}while(r); -} -fornext_continue_6087:; -} -fornext_exit_6087:; -S_55167:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDERGBMIXER_STRING_A->len))||new_error){ -if(qbevent){evnt(26070,17526,"ide_methods.bas");if(r)goto S_55167;} -do{ -*_FUNC_IDERGBMIXER_LONG_A=qbr(func_val(_FUNC_IDERGBMIXER_STRING_A)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17527,"ide_methods.bas");}while(r); -S_55169:; -if ((-(*_FUNC_IDERGBMIXER_LONG_A> 255 ))||new_error){ -if(qbevent){evnt(26070,17528,"ide_methods.bas");if(r)goto S_55169;} -do{ -qbs_set(_FUNC_IDERGBMIXER_STRING_A,qbs_new_txt_len("255",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17528,"ide_methods.bas");}while(r); -} -S_55172:; -if ((-(*_FUNC_IDERGBMIXER_LONG_A< 0 ))||new_error){ -if(qbevent){evnt(26070,17529,"ide_methods.bas");if(r)goto S_55172;} -do{ -qbs_set(_FUNC_IDERGBMIXER_STRING_A,qbs_new_txt_len("0",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17529,"ide_methods.bas");}while(r); -} -}else{ -S_55176:; -if ((-(*_FUNC_IDERGBMIXER_LONG_CHANGEDWITHKEYS== -1 ))||new_error){ -if(qbevent){evnt(26070,17531,"ide_methods.bas");if(r)goto S_55176;} -do{ -qbs_set(_FUNC_IDERGBMIXER_STRING_A,qbs_new_txt_len("0",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17531,"ide_methods.bas");}while(r); -} -} -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_CHECKRGB)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDERGBMIXER_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17533,"ide_methods.bas");}while(r); -fornext_continue_6084:; -} -fornext_exit_6084:; -do{ -*_FUNC_IDERGBMIXER_ULONG_CURRENTCOLOR=func__rgb32(qbr(func_val(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))),qbr(func_val(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))),qbr(func_val(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17536,"ide_methods.bas");}while(r); -S_55183:; -if ((qbs_cleanup(qbs_tmp_base,*_FUNC_IDERGBMIXER_BYTE_NEWSYNTAX&((qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])),((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))))&(qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])),((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))))))||new_error){ -if(qbevent){evnt(26070,17537,"ide_methods.bas");if(r)goto S_55183;} -do{ -qbs_set(_FUNC_IDERGBMIXER_STRING_CURRENTRGB,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17538,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDERGBMIXER_STRING_CURRENTRGB,qbs_add(qbs_add(qbs_add(qbs_add(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])),qbs_new_txt_len(", ",2)),((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))),qbs_new_txt_len(", ",2)),((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17540,"ide_methods.bas");}while(r); -} -do{ -sub__palettecolor( 12 ,*_FUNC_IDERGBMIXER_ULONG_CURRENTCOLOR, 0 ,1); -if(!qbevent)break;evnt(26070,17542,"ide_methods.bas");}while(r); -S_55189:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 27 )))|(((-(*_FUNC_IDERGBMIXER_LONG_FOCUS== 6 ))&(-(*_FUNC_IDERGBMIXER_LONG_INFO!= 0 ))))))||new_error){ -if(qbevent){evnt(26070,17544,"ide_methods.bas");if(r)goto S_55189;} -do{ -*__LONG_IDESELECT=*_FUNC_IDERGBMIXER_LONG_PREV__ASCII_CHR_046__IDESELECT; -if(!qbevent)break;evnt(26070,17545,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,17546,"ide_methods.bas");}while(r); -} -S_55193:; -if ((((-(*_FUNC_IDERGBMIXER_LONG_FOCUS== 5 ))&(-(*_FUNC_IDERGBMIXER_LONG_INFO!= 0 ))))||new_error){ -if(qbevent){evnt(26070,17549,"ide_methods.bas");if(r)goto S_55193;} -S_55194:; -if ((qbs_cleanup(qbs_tmp_base,((qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])),((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))))&(qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])),((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))))))||new_error){ -if(qbevent){evnt(26070,17551,"ide_methods.bas");if(r)goto S_55194;} -do{ -qbs_set(_FUNC_IDERGBMIXER_STRING_CURRENTRGB,qbs_add(qbs_add(qbs_new_txt_len("_RGB32(",7),((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17552,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDERGBMIXER_STRING_CURRENTRGB,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("_RGB32(",7),((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))),qbs_new_txt_len(", ",2)),((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))),qbs_new_txt_len(", ",2)),((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17554,"ide_methods.bas");}while(r); -} -do{ -sub__clipboard(_FUNC_IDERGBMIXER_STRING_CURRENTRGB); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17557,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESELECT=*_FUNC_IDERGBMIXER_LONG_PREV__ASCII_CHR_046__IDESELECT; -if(!qbevent)break;evnt(26070,17558,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,17559,"ide_methods.bas");}while(r); -} -S_55203:; -if ((qbs_cleanup(qbs_tmp_base,((-(*_FUNC_IDERGBMIXER_LONG_FOCUS== 4 ))&(-(*_FUNC_IDERGBMIXER_LONG_INFO!= 0 )))|((-(*_FUNC_IDERGBMIXER_LONG_FOCUS== 1 ))&(qbs_equal(__STRING_K,func_chr( 13 ))))|((-(*_FUNC_IDERGBMIXER_LONG_FOCUS== 2 ))&(qbs_equal(__STRING_K,func_chr( 13 ))))|((-(*_FUNC_IDERGBMIXER_LONG_FOCUS== 3 ))&(qbs_equal(__STRING_K,func_chr( 13 ))))|((-(*_FUNC_IDERGBMIXER_LONG_FOCUS== 4 ))&(qbs_equal(__STRING_K,func_chr( 13 ))))))||new_error){ -if(qbevent){evnt(26070,17566,"ide_methods.bas");if(r)goto S_55203;} -S_55204:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDERGBMIXER_STRING_CURRENTLINE,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,17567,"ide_methods.bas");if(r)goto S_55204;} -do{ -qbs_set(_FUNC_IDERGBMIXER_STRING_CURRENTLINE,FUNC_IDEGETLINE(__LONG_IDECY)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17567,"ide_methods.bas");}while(r); -} -S_55207:; -if ((*_FUNC_IDERGBMIXER_LONG_EDITING)||new_error){ -if(qbevent){evnt(26070,17568,"ide_methods.bas");if(r)goto S_55207;} -S_55208:; -if ((-(*_FUNC_IDERGBMIXER_LONG_INSERTRGBAT> 0 ))||new_error){ -if(qbevent){evnt(26070,17570,"ide_methods.bas");if(r)goto S_55208;} -do{ -*_FUNC_IDERGBMIXER_LONG_FINDBRACKET1=func_instr(*_FUNC_IDERGBMIXER_LONG_INSERTRGBAT,_FUNC_IDERGBMIXER_STRING_CURRENTLINE,qbs_new_txt_len("(",1),0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17571,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDERGBMIXER_LONG_FINDBRACKET2=func_instr(*_FUNC_IDERGBMIXER_LONG_FINDBRACKET1,_FUNC_IDERGBMIXER_STRING_CURRENTLINE,qbs_new_txt_len(")",1),0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17572,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDERGBMIXER_STRING_OLDRGB,func_mid(_FUNC_IDERGBMIXER_STRING_CURRENTLINE,*_FUNC_IDERGBMIXER_LONG_FINDBRACKET1,*_FUNC_IDERGBMIXER_LONG_FINDBRACKET2-*_FUNC_IDERGBMIXER_LONG_FINDBRACKET1+ 1 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17573,"ide_methods.bas");}while(r); -S_55212:; -if ((qbs_cleanup(qbs_tmp_base,((*_FUNC_IDERGBMIXER_BYTE_NEWSYNTAX&(-(FUNC_COUNTITEMS(_FUNC_IDERGBMIXER_STRING_OLDRGB,qbs_new_txt_len(",",1))== 1 ))))|(-(FUNC_COUNTITEMS(_FUNC_IDERGBMIXER_STRING_OLDRGB,qbs_new_txt_len(",",1))== 3 ))))||new_error){ -if(qbevent){evnt(26070,17574,"ide_methods.bas");if(r)goto S_55212;} -S_55213:; -fornext_value6092=*_FUNC_IDERGBMIXER_LONG_FINDBRACKET2; -fornext_finalvalue6092=*_FUNC_IDERGBMIXER_LONG_FINDBRACKET1; -fornext_step6092= -1 ; -if (fornext_step6092<0) fornext_step_negative6092=1; else fornext_step_negative6092=0; -if (new_error) goto fornext_error6092; -goto fornext_entrylabel6092; -while(1){ -fornext_value6092=fornext_step6092+(*_FUNC_IDERGBMIXER_LONG_I); -fornext_entrylabel6092: -*_FUNC_IDERGBMIXER_LONG_I=fornext_value6092; -if (fornext_step_negative6092){ -if (fornext_value6092fornext_finalvalue6092) break; -} -fornext_error6092:; -if(qbevent){evnt(26070,17575,"ide_methods.bas");if(r)goto S_55213;} -S_55214:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_IDERGBMIXER_STRING_CURRENTLINE,*_FUNC_IDERGBMIXER_LONG_I)== 44 )))||new_error){ -if(qbevent){evnt(26070,17576,"ide_methods.bas");if(r)goto S_55214;} -do{ -*_FUNC_IDERGBMIXER_LONG_FINDBRACKET2=*_FUNC_IDERGBMIXER_LONG_I; -if(!qbevent)break;evnt(26070,17576,"ide_methods.bas");}while(r); -do{ -goto fornext_exit_6091; -if(!qbevent)break;evnt(26070,17576,"ide_methods.bas");}while(r); -} -fornext_continue_6091:; -} -fornext_exit_6091:; -} -do{ -qbs_set(_FUNC_IDERGBMIXER_STRING_NEWLINE,qbs_left(_FUNC_IDERGBMIXER_STRING_CURRENTLINE,*_FUNC_IDERGBMIXER_LONG_FINDBRACKET1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17579,"ide_methods.bas");}while(r); -S_55221:; -if ((-(*_FUNC_IDERGBMIXER_LONG_FINDBRACKET2== 0 ))||new_error){ -if(qbevent){evnt(26070,17580,"ide_methods.bas");if(r)goto S_55221;} -do{ -*_FUNC_IDERGBMIXER_LONG_FINDBRACKET2=*_FUNC_IDERGBMIXER_LONG_FINDBRACKET1; -if(!qbevent)break;evnt(26070,17580,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDERGBMIXER_STRING_NEWLINE,qbs_add(_FUNC_IDERGBMIXER_STRING_NEWLINE,_FUNC_IDERGBMIXER_STRING_CURRENTRGB)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17581,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDERGBMIXER_STRING_NEWLINE,qbs_add(_FUNC_IDERGBMIXER_STRING_NEWLINE,func_mid(_FUNC_IDERGBMIXER_STRING_CURRENTLINE,*_FUNC_IDERGBMIXER_LONG_FINDBRACKET2,NULL,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17582,"ide_methods.bas");}while(r); -do{ -*__INTEGER_IDECHANGEMADE= 1 ; -if(!qbevent)break;evnt(26070,17583,"ide_methods.bas");}while(r); -do{ -*__BYTE_STARTPAUSEDPENDING= 0 ; -if(!qbevent)break;evnt(26070,17584,"ide_methods.bas");}while(r); -do{ -SUB_IDESETLINE(__LONG_IDECY,_FUNC_IDERGBMIXER_STRING_NEWLINE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17585,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESELECTX1=*_FUNC_IDERGBMIXER_LONG_FINDBRACKET1+ 1 ; -if(!qbevent)break;evnt(26070,17588,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECX=*__LONG_IDESELECTX1+_FUNC_IDERGBMIXER_STRING_CURRENTRGB->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17589,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESELECTY1=*__LONG_IDECY; -if(!qbevent)break;evnt(26070,17590,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDERGBMIXER_LONG_PREV__ASCII_CHR_046__IDESELECT= 1 ; -if(!qbevent)break;evnt(26070,17591,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDERGBMIXER_STRING_CURRENTRGB,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17592,"ide_methods.bas");}while(r); -} -} -S_55236:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDERGBMIXER_STRING_CURRENTRGB->len))||new_error){ -if(qbevent){evnt(26070,17596,"ide_methods.bas");if(r)goto S_55236;} -S_55237:; -if ((qbs_cleanup(qbs_tmp_base,((qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])),((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))))&(qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])),((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))))))||new_error){ -if(qbevent){evnt(26070,17598,"ide_methods.bas");if(r)goto S_55237;} -do{ -qbs_set(_FUNC_IDERGBMIXER_STRING_CURRENTRGB,qbs_add(qbs_add(qbs_new_txt_len("_RGB32(",7),((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17599,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDERGBMIXER_STRING_CURRENTRGB,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("_RGB32(",7),((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))),qbs_new_txt_len(", ",2)),((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))),qbs_new_txt_len(", ",2)),((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17601,"ide_methods.bas");}while(r); -} -} -do{ -qbs_set(_FUNC_IDERGBMIXER_STRING_IDERGBMIXER,_FUNC_IDERGBMIXER_STRING_CURRENTRGB); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17605,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESELECT=*_FUNC_IDERGBMIXER_LONG_PREV__ASCII_CHR_046__IDESELECT; -if(!qbevent)break;evnt(26070,17606,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,17607,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDERGBMIXER_LONG_MOUSEDOWN= 0 ; -if(!qbevent)break;evnt(26070,17612,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDERGBMIXER_LONG_MOUSEUP= 0 ; -if(!qbevent)break;evnt(26070,17613,"ide_methods.bas");}while(r); -dl_continue_6061:; -}while(1); -dl_exit_6061:; -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free240.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_IDERGBMIXER_STRING_IDERGBMIXER);return _FUNC_IDERGBMIXER_STRING_IDERGBMIXER; -} -int32 FUNC_COUNTITEMS(qbs*_FUNC_COUNTITEMS_STRING_SEARCHSTRING,qbs*_FUNC_COUNTITEMS_STRING_ITEM){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data241.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -S_55250:; -do{ -if(qbevent){evnt(26070,17618,"ide_methods.bas");if(r)goto S_55250;} -do{ -*_FUNC_COUNTITEMS_LONG_FOUND=func_instr(*_FUNC_COUNTITEMS_LONG_FOUND+ 1 ,_FUNC_COUNTITEMS_STRING_SEARCHSTRING,_FUNC_COUNTITEMS_STRING_ITEM,0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17619,"ide_methods.bas");}while(r); -S_55252:; -if ((-(*_FUNC_COUNTITEMS_LONG_FOUND== 0 ))||new_error){ -if(qbevent){evnt(26070,17620,"ide_methods.bas");if(r)goto S_55252;} -do{ -goto dl_exit_6097; -if(!qbevent)break;evnt(26070,17620,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_COUNTITEMS_LONG_TOTAL=*_FUNC_COUNTITEMS_LONG_TOTAL+ 1 ; -if(!qbevent)break;evnt(26070,17621,"ide_methods.bas");}while(r); -dl_continue_6097:; -}while(1); -dl_exit_6097:; -do{ -*_FUNC_COUNTITEMS_LONG_COUNTITEMS=*_FUNC_COUNTITEMS_LONG_TOTAL; -if(!qbevent)break;evnt(26070,17623,"ide_methods.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free241.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -return *_FUNC_COUNTITEMS_LONG_COUNTITEMS; -} -void SUB_IDERESTRICT417(int32*_SUB_IDERESTRICT417_LONG_P417){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data242.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -*_SUB_IDERESTRICT417_LONG_X= 0 ; -if(!qbevent)break;evnt(26070,17628,"ide_methods.bas");}while(r); -S_55259:; -if ((*_SUB_IDERESTRICT417_LONG_P417& 4 )||new_error){ -if(qbevent){evnt(26070,17629,"ide_methods.bas");if(r)goto S_55259;} -do{ -*_SUB_IDERESTRICT417_LONG_X=*_SUB_IDERESTRICT417_LONG_X+ 1 ; -if(!qbevent)break;evnt(26070,17629,"ide_methods.bas");}while(r); -} -S_55262:; -if ((*_SUB_IDERESTRICT417_LONG_P417& 8 )||new_error){ -if(qbevent){evnt(26070,17630,"ide_methods.bas");if(r)goto S_55262;} -do{ -*_SUB_IDERESTRICT417_LONG_X=*_SUB_IDERESTRICT417_LONG_X+ 1 ; -if(!qbevent)break;evnt(26070,17630,"ide_methods.bas");}while(r); -} -S_55265:; -if ((-(*_SUB_IDERESTRICT417_LONG_X> 1 ))||new_error){ -if(qbevent){evnt(26070,17631,"ide_methods.bas");if(r)goto S_55265;} -do{ -*_SUB_IDERESTRICT417_LONG_P417=*_SUB_IDERESTRICT417_LONG_P417& 243 ; -if(!qbevent)break;evnt(26070,17631,"ide_methods.bas");}while(r); -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free242.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -int32 FUNC_CTRL2(){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data243.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -S_55268:; -if ((*__LONG_MACOSX)||new_error){ -if(qbevent){evnt(26070,17644,"ide_methods.bas");if(r)goto S_55268;} -S_55269:; -if ((func__keydown( 100309 ))||new_error){ -if(qbevent){evnt(26070,17645,"ide_methods.bas");if(r)goto S_55269;} -do{ -*_FUNC_CTRL2_LONG_CTRL2= 1 ; -if(!qbevent)break;evnt(26070,17645,"ide_methods.bas");}while(r); -} -S_55272:; -if ((func__keydown( 100310 ))||new_error){ -if(qbevent){evnt(26070,17646,"ide_methods.bas");if(r)goto S_55272;} -do{ -*_FUNC_CTRL2_LONG_CTRL2= 1 ; -if(!qbevent)break;evnt(26070,17646,"ide_methods.bas");}while(r); -} -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free243.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -return *_FUNC_CTRL2_LONG_CTRL2; -} -void SUB_GETINPUT(){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data244.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -if(!qbevent)break;evnt(26070,17653,"ide_methods.bas");}while(r); -S_55277:; -if ((*__LONG_ICHECKLATER)||new_error){ -if(qbevent){evnt(26070,17655,"ide_methods.bas");if(r)goto S_55277;} -do{ -*__LONG_ICHECKLATER= 0 ; -if(!qbevent)break;evnt(26070,17655,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,17655,"ide_methods.bas");}while(r); -} -do{ -*__LONG_ICHANGED= 0 ; -if(!qbevent)break;evnt(26070,17657,"ide_methods.bas");}while(r); -do{ -*__LONG_KSTATECHANGED= 0 ; -if(!qbevent)break;evnt(26070,17658,"ide_methods.bas");}while(r); -do{ -*__LONG_MCLICK= 0 ; -if(!qbevent)break;evnt(26070,17659,"ide_methods.bas");}while(r); -do{ -*__LONG_MCLICK2= 0 ; -if(!qbevent)break;evnt(26070,17659,"ide_methods.bas");}while(r); -do{ -*__LONG_MRELEASE= 0 ; -if(!qbevent)break;evnt(26070,17659,"ide_methods.bas");}while(r); -do{ -*__LONG_MRELEASE2= 0 ; -if(!qbevent)break;evnt(26070,17659,"ide_methods.bas");}while(r); -do{ -*__LONG_MWHEEL= 0 ; -if(!qbevent)break;evnt(26070,17660,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_K,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17661,"ide_methods.bas");}while(r); -do{ -*__LONG_KB= 0 ; -if(!qbevent)break;evnt(26070,17661,"ide_methods.bas");}while(r); -do{ -*__LONG_MOB=*__LONG_MB; -if(!qbevent)break;evnt(26070,17662,"ide_methods.bas");}while(r); -do{ -*__LONG_MOB2=*__LONG_MB2; -if(!qbevent)break;evnt(26070,17662,"ide_methods.bas");}while(r); -do{ -*__LONG_KOALT=*__LONG_KALT; -if(!qbevent)break;evnt(26070,17663,"ide_methods.bas");}while(r); -do{ -*__LONG_KALTPRESS= 0 ; -if(!qbevent)break;evnt(26070,17663,"ide_methods.bas");}while(r); -do{ -*__LONG_KALTRELEASE= 0 ; -if(!qbevent)break;evnt(26070,17663,"ide_methods.bas");}while(r); -S_55295:; -do{ -if(qbevent){evnt(26070,17665,"ide_methods.bas");if(r)goto S_55295;} -S_55296:; -dl_continue_6098:; -}while((!(qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_inkey(),qbs_new_txt_len("",0)))))&&(!new_error)); -dl_exit_6098:; -if(qbevent){evnt(26070,17665,"ide_methods.bas");if(r)goto S_55296;} -do{ -*_SUB_GETINPUT_LONG_K=func__keyhit(); -if(!qbevent)break;evnt(26070,17667,"ide_methods.bas");}while(r); -S_55298:; -if (((func__keydown( 100307 )|func__keydown( 100308 ))&((-(*_SUB_GETINPUT_LONG_K>= -57 ))&(-(*_SUB_GETINPUT_LONG_K<= -48 ))))||new_error){ -if(qbevent){evnt(26070,17670,"ide_methods.bas");if(r)goto S_55298;} -do{ -qbs_set(_SUB_GETINPUT_STRING_ASCVALUE,qbs_add(_SUB_GETINPUT_STRING_ASCVALUE,func_chr(-(*_SUB_GETINPUT_LONG_K)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17671,"ide_methods.bas");}while(r); -} -S_55301:; -if (((~(func__keydown( 100307 )))&(~(func__keydown( 100308 ))))||new_error){ -if(qbevent){evnt(26070,17673,"ide_methods.bas");if(r)goto S_55301;} -S_55302:; -if ((qbs_cleanup(qbs_tmp_base,_SUB_GETINPUT_STRING_ASCVALUE->len))||new_error){ -if(qbevent){evnt(26070,17674,"ide_methods.bas");if(r)goto S_55302;} -do{ -*__LONG_KB=qbr(func_val(qbs_right(_SUB_GETINPUT_STRING_ASCVALUE, 3 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17675,"ide_methods.bas");}while(r); -S_55304:; -if (((-(*__LONG_KB> 0 ))&(-(*__LONG_KB< 256 )))||new_error){ -if(qbevent){evnt(26070,17676,"ide_methods.bas");if(r)goto S_55304;} -do{ -qbs_set(__STRING_K,func_chr(*__LONG_KB)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17677,"ide_methods.bas");}while(r); -do{ -*_SUB_GETINPUT_LONG_K=*__LONG_KB; -if(!qbevent)break;evnt(26070,17678,"ide_methods.bas");}while(r); -do{ -*__LONG_ICHANGED= -1 ; -if(!qbevent)break;evnt(26070,17679,"ide_methods.bas");}while(r); -do{ -*__BYTE_ALTSPECIAL= -1 ; -if(!qbevent)break;evnt(26070,17680,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_SUB_GETINPUT_STRING_ASCVALUE,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17682,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,17683,"ide_methods.bas");}while(r); -} -} -S_55314:; -if ((*_SUB_GETINPUT_LONG_K)||new_error){ -if(qbevent){evnt(26070,17688,"ide_methods.bas");if(r)goto S_55314;} -S_55315:; -if ((-(*_SUB_GETINPUT_LONG_K< 0 ))||new_error){ -if(qbevent){evnt(26070,17689,"ide_methods.bas");if(r)goto S_55315;} -do{ -*_SUB_GETINPUT_LONG_K=-(*_SUB_GETINPUT_LONG_K); -if(!qbevent)break;evnt(26070,17689,"ide_methods.bas");}while(r); -do{ -*_SUB_GETINPUT_LONG_RELEASE= 1 ; -if(!qbevent)break;evnt(26070,17689,"ide_methods.bas");}while(r); -} -S_55319:; -if (((-(*_SUB_GETINPUT_LONG_K== 100304 ))|(-(*_SUB_GETINPUT_LONG_K== 100303 )))||new_error){ -if(qbevent){evnt(26070,17691,"ide_methods.bas");if(r)goto S_55319;} -S_55320:; -if ((-(*_SUB_GETINPUT_LONG_RELEASE== 1 ))||new_error){ -if(qbevent){evnt(26070,17692,"ide_methods.bas");if(r)goto S_55320;} -do{ -*__LONG_KSHIFT= 0 ; -if(!qbevent)break;evnt(26070,17692,"ide_methods.bas");}while(r); -}else{ -do{ -*__LONG_KSHIFT= -1 ; -if(!qbevent)break;evnt(26070,17692,"ide_methods.bas");}while(r); -} -do{ -*__LONG_ICHANGED= -1 ; -if(!qbevent)break;evnt(26070,17693,"ide_methods.bas");}while(r); -do{ -*__LONG_KSTATECHANGED= -1 ; -if(!qbevent)break;evnt(26070,17693,"ide_methods.bas");}while(r); -} -S_55328:; -if (((-(*_SUB_GETINPUT_LONG_K== 100308 ))|(-(*_SUB_GETINPUT_LONG_K== 100307 )))||new_error){ -if(qbevent){evnt(26070,17695,"ide_methods.bas");if(r)goto S_55328;} -S_55329:; -if ((-(*_SUB_GETINPUT_LONG_RELEASE== 1 ))||new_error){ -if(qbevent){evnt(26070,17696,"ide_methods.bas");if(r)goto S_55329;} -do{ -*__LONG_KALT= 0 ; -if(!qbevent)break;evnt(26070,17697,"ide_methods.bas");}while(r); -do{ -*__LONG_KALTRELEASE= -1 ; -if(!qbevent)break;evnt(26070,17697,"ide_methods.bas");}while(r); -}else{ -do{ -*__LONG_KALT= -1 ; -if(!qbevent)break;evnt(26070,17699,"ide_methods.bas");}while(r); -do{ -*__LONG_KALTPRESS= -1 ; -if(!qbevent)break;evnt(26070,17699,"ide_methods.bas");}while(r); -} -do{ -*__LONG_ICHANGED= -1 ; -if(!qbevent)break;evnt(26070,17701,"ide_methods.bas");}while(r); -do{ -*__LONG_KSTATECHANGED= -1 ; -if(!qbevent)break;evnt(26070,17701,"ide_methods.bas");}while(r); -} -S_55339:; -if (((-(*_SUB_GETINPUT_LONG_K== 100306 ))|(-(*_SUB_GETINPUT_LONG_K== 100305 )))||new_error){ -if(qbevent){evnt(26070,17703,"ide_methods.bas");if(r)goto S_55339;} -S_55340:; -if ((-(*_SUB_GETINPUT_LONG_RELEASE== 1 ))||new_error){ -if(qbevent){evnt(26070,17704,"ide_methods.bas");if(r)goto S_55340;} -do{ -*__LONG_KCTRL= 0 ; -if(!qbevent)break;evnt(26070,17704,"ide_methods.bas");}while(r); -do{ -*__LONG_KCONTROL= 0 ; -if(!qbevent)break;evnt(26070,17704,"ide_methods.bas");}while(r); -}else{ -do{ -*__LONG_KCTRL= -1 ; -if(!qbevent)break;evnt(26070,17704,"ide_methods.bas");}while(r); -do{ -*__LONG_KCONTROL= -1 ; -if(!qbevent)break;evnt(26070,17704,"ide_methods.bas");}while(r); -} -do{ -*__LONG_ICHANGED= -1 ; -if(!qbevent)break;evnt(26070,17705,"ide_methods.bas");}while(r); -do{ -*__LONG_KSTATECHANGED= -1 ; -if(!qbevent)break;evnt(26070,17705,"ide_methods.bas");}while(r); -} -S_55350:; -if (((-(*_SUB_GETINPUT_LONG_K== 100310 ))|(-(*_SUB_GETINPUT_LONG_K== 100309 )))||new_error){ -if(qbevent){evnt(26070,17707,"ide_methods.bas");if(r)goto S_55350;} -S_55351:; -if ((-(*_SUB_GETINPUT_LONG_RELEASE== 1 ))||new_error){ -if(qbevent){evnt(26070,17708,"ide_methods.bas");if(r)goto S_55351;} -do{ -*__LONG_KCONTROL= 0 ; -if(!qbevent)break;evnt(26070,17708,"ide_methods.bas");}while(r); -}else{ -do{ -*__LONG_KCONTROL= -1 ; -if(!qbevent)break;evnt(26070,17708,"ide_methods.bas");}while(r); -} -do{ -*__LONG_ICHANGED= -1 ; -if(!qbevent)break;evnt(26070,17709,"ide_methods.bas");}while(r); -do{ -*__LONG_KSTATECHANGED= -1 ; -if(!qbevent)break;evnt(26070,17709,"ide_methods.bas");}while(r); -} -S_55359:; -if ((-(*_SUB_GETINPUT_LONG_RELEASE== 0 ))||new_error){ -if(qbevent){evnt(26070,17712,"ide_methods.bas");if(r)goto S_55359;} -do{ -*__LONG_ICHANGED= -1 ; -if(!qbevent)break;evnt(26070,17713,"ide_methods.bas");}while(r); -S_55361:; -if ((-(*_SUB_GETINPUT_LONG_K<= 255 ))||new_error){ -if(qbevent){evnt(26070,17714,"ide_methods.bas");if(r)goto S_55361;} -do{ -qbs_set(__STRING_K,func_chr(*_SUB_GETINPUT_LONG_K)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17714,"ide_methods.bas");}while(r); -} -S_55364:; -if (((-(*_SUB_GETINPUT_LONG_K>= 256 ))&(-(*_SUB_GETINPUT_LONG_K<= 65535 ))&((-((*_SUB_GETINPUT_LONG_K& 255 )== 0 ))))||new_error){ -if(qbevent){evnt(26070,17715,"ide_methods.bas");if(r)goto S_55364;} -do{ -qbs_set(__STRING_K,qbs_add(func_chr( 0 ),func_chr(*_SUB_GETINPUT_LONG_K/ 256 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17715,"ide_methods.bas");}while(r); -} -do{ -*__LONG_KB=*_SUB_GETINPUT_LONG_K; -if(!qbevent)break;evnt(26070,17716,"ide_methods.bas");}while(r); -} -S_55369:; -if ((*__LONG_ICHANGED)||new_error){ -if(qbevent){evnt(26070,17718,"ide_methods.bas");if(r)goto S_55369;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,17718,"ide_methods.bas");}while(r); -} -} -S_55373:; -while((func__mouseinput(NULL,0))||new_error){ -if(qbevent){evnt(26070,17720,"ide_methods.bas");if(r)goto S_55373;} -do{ -*__LONG_ICHANGED= 1 ; -if(!qbevent)break;evnt(26070,17721,"ide_methods.bas");}while(r); -S_55375:; -if ((*__BYTE_MOUSEBUTTONSWAPPED)||new_error){ -if(qbevent){evnt(26070,17722,"ide_methods.bas");if(r)goto S_55375;} -do{ -*__LONG_MB=func__mousebutton( 2 ,NULL,0); -if(!qbevent)break;evnt(26070,17723,"ide_methods.bas");}while(r); -do{ -*__LONG_MB2=func__mousebutton( 1 ,NULL,0); -if(!qbevent)break;evnt(26070,17723,"ide_methods.bas");}while(r); -}else{ -do{ -*__LONG_MB=func__mousebutton( 1 ,NULL,0); -if(!qbevent)break;evnt(26070,17725,"ide_methods.bas");}while(r); -do{ -*__LONG_MB2=func__mousebutton( 2 ,NULL,0); -if(!qbevent)break;evnt(26070,17725,"ide_methods.bas");}while(r); -} -do{ -*__LONG_MWHEEL=*__LONG_MWHEEL+func__mousewheel(NULL,0); -if(!qbevent)break;evnt(26070,17727,"ide_methods.bas");}while(r); -do{ -*__LONG_MX=qbr(func__mousex(NULL,0)); -if(!qbevent)break;evnt(26070,17728,"ide_methods.bas");}while(r); -do{ -*__LONG_MY=qbr(func__mousey(NULL,0)); -if(!qbevent)break;evnt(26070,17728,"ide_methods.bas");}while(r); -S_55385:; -if (((-(*__LONG_MB!= 0 ))&(-(*__LONG_MOB== 0 )))||new_error){ -if(qbevent){evnt(26070,17729,"ide_methods.bas");if(r)goto S_55385;} -do{ -*__LONG_MCLICK= -1 ; -if(!qbevent)break;evnt(26070,17729,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,17729,"ide_methods.bas");}while(r); -} -S_55389:; -if (((-(*__LONG_MB2!= 0 ))&(-(*__LONG_MOB2== 0 )))||new_error){ -if(qbevent){evnt(26070,17730,"ide_methods.bas");if(r)goto S_55389;} -do{ -*__LONG_MCLICK2= -1 ; -if(!qbevent)break;evnt(26070,17730,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,17730,"ide_methods.bas");}while(r); -} -S_55393:; -if (((-(*__LONG_MB== 0 ))&(-(*__LONG_MOB!= 0 )))||new_error){ -if(qbevent){evnt(26070,17731,"ide_methods.bas");if(r)goto S_55393;} -do{ -*__LONG_MRELEASE= -1 ; -if(!qbevent)break;evnt(26070,17731,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,17731,"ide_methods.bas");}while(r); -} -S_55397:; -if (((-(*__LONG_MB2== 0 ))&(-(*__LONG_MOB2!= 0 )))||new_error){ -if(qbevent){evnt(26070,17732,"ide_methods.bas");if(r)goto S_55397;} -do{ -*__LONG_MRELEASE2= -1 ; -if(!qbevent)break;evnt(26070,17732,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,17732,"ide_methods.bas");}while(r); -} -dl_continue_6100:; -} -dl_exit_6100:; -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free244.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -void SUB_CLEARMOUSE(){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data245.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -*__LONG_ICHANGED= 0 ; -if(!qbevent)break;evnt(26070,17737,"ide_methods.bas");}while(r); -do{ -*__LONG_MB= 0 ; -if(!qbevent)break;evnt(26070,17738,"ide_methods.bas");}while(r); -do{ -*__LONG_MB2= 0 ; -if(!qbevent)break;evnt(26070,17739,"ide_methods.bas");}while(r); -do{ -*__LONG_MCLICK= 0 ; -if(!qbevent)break;evnt(26070,17740,"ide_methods.bas");}while(r); -do{ -*__LONG_MRELEASE= 0 ; -if(!qbevent)break;evnt(26070,17741,"ide_methods.bas");}while(r); -S_55407:; -while((func__mousebutton( 1 ,NULL,0)|func__mousebutton( 2 ,NULL,0))||new_error){ -if(qbevent){evnt(26070,17742,"ide_methods.bas");if(r)goto S_55407;} -do{ -*_SUB_CLEARMOUSE_LONG_I=func__mouseinput(NULL,0); -if(!qbevent)break;evnt(26070,17743,"ide_methods.bas");}while(r); -dl_continue_6101:; -} -dl_exit_6101:; -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free245.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -void SUB_HELP_SHOWTEXT(){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data246.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -if(!qbevent)break;evnt(26070,17750,"ide_methods.bas");}while(r); -S_55411:; -if ((qbs_cleanup(qbs_tmp_base,(-(*_SUB_HELP_SHOWTEXT_LONG_SETUP== 0 ))&(-(func_ubound(__ARRAY_STRING_BACK,1,1)== 1 ))))||new_error){ -if(qbevent){evnt(26070,17751,"ide_methods.bas");if(r)goto S_55411;} -do{ -*_SUB_HELP_SHOWTEXT_LONG_SETUP= 1 ; -if(!qbevent)break;evnt(26070,17752,"ide_methods.bas");}while(r); -S_55413:; -if ((-(*__BYTE_IDECONTEXTHELPSF== 0 ))||new_error){ -if(qbevent){evnt(26070,17753,"ide_methods.bas");if(r)goto S_55413;} -do{ -qbs_set(_SUB_HELP_SHOWTEXT_STRING_A,FUNC_WIKI(((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(26070,17754,"ide_methods.bas");}while(r); -do{ -SUB_WIKIPARSE(_SUB_HELP_SHOWTEXT_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17755,"ide_methods.bas");}while(r); -} -} -do{ +} +if(!qbevent)break;evnt(26070,17126,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26070,17127,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDERGBMIXER_STRING1_SEP,func_chr( 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17128,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDERGBMIXER_LONG_I= 0 ; +if(!qbevent)break;evnt(26070,17132,"ide_methods.bas");}while(r); +do{ +SUB_IDEPAR((void*)( ((char*)(_FUNC_IDERGBMIXER_UDT_P)) + (0) ),&(pass6025= 70 ),&(pass6026= 11 ),qbs_new_txt_len("RGB Color Mixer",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17134,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDERGBMIXER_STRING_A2,qbs_new_txt_len("127",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17136,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDERGBMIXER_LONG_I=*_FUNC_IDERGBMIXER_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,17137,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+36))= 1 ; +if(!qbevent)break;evnt(26070,17138,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+20))= 63 ; +if(!qbevent)break;evnt(26070,17139,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+24))= 2 ; +if(!qbevent)break;evnt(26070,17140,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDERGBMIXER_STRING_A2); +if(!qbevent)break;evnt(26070,17141,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+81))=_FUNC_IDERGBMIXER_STRING_A2->len; +if(!qbevent)break;evnt(26070,17142,"ide_methods.bas");}while(r); +do{ +*(int8*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+76))= -1 ; +if(!qbevent)break;evnt(26070,17143,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+77))= 0 ; +if(!qbevent)break;evnt(26070,17144,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDERGBMIXER_STRING_A2,qbs_new_txt_len("127",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17146,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDERGBMIXER_LONG_I=*_FUNC_IDERGBMIXER_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,17147,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+36))= 1 ; +if(!qbevent)break;evnt(26070,17148,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+20))= 63 ; +if(!qbevent)break;evnt(26070,17149,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+24))= 5 ; +if(!qbevent)break;evnt(26070,17150,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDERGBMIXER_STRING_A2); +if(!qbevent)break;evnt(26070,17151,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+81))=_FUNC_IDERGBMIXER_STRING_A2->len; +if(!qbevent)break;evnt(26070,17152,"ide_methods.bas");}while(r); +do{ +*(int8*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+76))= -1 ; +if(!qbevent)break;evnt(26070,17153,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+77))= 0 ; +if(!qbevent)break;evnt(26070,17154,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDERGBMIXER_STRING_A2,qbs_new_txt_len("127",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17156,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDERGBMIXER_LONG_I=*_FUNC_IDERGBMIXER_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,17157,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+36))= 1 ; +if(!qbevent)break;evnt(26070,17158,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+20))= 63 ; +if(!qbevent)break;evnt(26070,17159,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+24))= 8 ; +if(!qbevent)break;evnt(26070,17160,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDERGBMIXER_STRING_A2); +if(!qbevent)break;evnt(26070,17161,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+81))=_FUNC_IDERGBMIXER_STRING_A2->len; +if(!qbevent)break;evnt(26070,17162,"ide_methods.bas");}while(r); +do{ +*(int8*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+76))= -1 ; +if(!qbevent)break;evnt(26070,17163,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+77))= 0 ; +if(!qbevent)break;evnt(26070,17164,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDERGBMIXER_LONG_I=*_FUNC_IDERGBMIXER_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,17166,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+36))= 3 ; +if(!qbevent)break;evnt(26070,17167,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+24))= 11 ; +if(!qbevent)break;evnt(26070,17168,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("#Insert",7),_FUNC_IDERGBMIXER_STRING1_SEP),qbs_new_txt_len("C#opy",5)),_FUNC_IDERGBMIXER_STRING1_SEP),qbs_new_txt_len("#Cancel",7))); +if(!qbevent)break;evnt(26070,17169,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+48))= 1 ; +if(!qbevent)break;evnt(26070,17170,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDERGBMIXER_LONG_PREV__ASCII_CHR_046__IDESELECT=*__LONG_IDESELECT; +if(!qbevent)break;evnt(26070,17172,"ide_methods.bas");}while(r); +S_54747:; +if ((*_FUNC_IDERGBMIXER_LONG_EDITING)||new_error){ +if(qbevent){evnt(26070,17174,"ide_methods.bas");if(r)goto S_54747;} +do{ +qbs_set(_FUNC_IDERGBMIXER_STRING_A,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17176,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDERGBMIXER_STRING_A2,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17177,"ide_methods.bas");}while(r); +S_54750:; +if ((*__LONG_IDESELECT)||new_error){ +if(qbevent){evnt(26070,17178,"ide_methods.bas");if(r)goto S_54750;} +S_54751:; +if ((-(*__LONG_IDESELECTY1==*__LONG_IDECY))||new_error){ +if(qbevent){evnt(26070,17179,"ide_methods.bas");if(r)goto S_54751;} +do{ +qbs_set(_FUNC_IDERGBMIXER_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17180,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDERGBMIXER_LONG_SX1=*__LONG_IDESELECTX1; +if(!qbevent)break;evnt(26070,17181,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDERGBMIXER_LONG_SX2=*__LONG_IDECX; +if(!qbevent)break;evnt(26070,17181,"ide_methods.bas");}while(r); +S_54755:; +if ((-(*_FUNC_IDERGBMIXER_LONG_SX2<*_FUNC_IDERGBMIXER_LONG_SX1))||new_error){ +if(qbevent){evnt(26070,17182,"ide_methods.bas");if(r)goto S_54755;} +do{ +swap_32(&*_FUNC_IDERGBMIXER_LONG_SX1,&*_FUNC_IDERGBMIXER_LONG_SX2); +if(!qbevent)break;evnt(26070,17182,"ide_methods.bas");}while(r); +} +S_54758:; +fornext_value6031=*_FUNC_IDERGBMIXER_LONG_SX1; +fornext_finalvalue6031=*_FUNC_IDERGBMIXER_LONG_SX2- 1 ; +fornext_step6031= 1 ; +if (fornext_step6031<0) fornext_step_negative6031=1; else fornext_step_negative6031=0; +if (new_error) goto fornext_error6031; +goto fornext_entrylabel6031; +while(1){ +fornext_value6031=fornext_step6031+(*_FUNC_IDERGBMIXER_LONG_X); +fornext_entrylabel6031: +*_FUNC_IDERGBMIXER_LONG_X=fornext_value6031; +if (fornext_step_negative6031){ +if (fornext_value6031fornext_finalvalue6031) break; +} +fornext_error6031:; +if(qbevent){evnt(26070,17183,"ide_methods.bas");if(r)goto S_54758;} +S_54759:; +if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDERGBMIXER_LONG_X<=_FUNC_IDERGBMIXER_STRING_A->len)))||new_error){ +if(qbevent){evnt(26070,17184,"ide_methods.bas");if(r)goto S_54759;} +do{ +qbs_set(_FUNC_IDERGBMIXER_STRING_A2,qbs_add(_FUNC_IDERGBMIXER_STRING_A2,func_mid(_FUNC_IDERGBMIXER_STRING_A,*_FUNC_IDERGBMIXER_LONG_X, 1 ,0|1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17184,"ide_methods.bas");}while(r); +}else{ +do{ +goto fornext_exit_6030; +if(!qbevent)break;evnt(26070,17184,"ide_methods.bas");}while(r); +} +fornext_continue_6030:; +} +fornext_exit_6030:; +} +} +do{ +qbs_set(_FUNC_IDERGBMIXER_STRING_A2,qbs_ucase(qbs_ltrim(qbs_rtrim(_FUNC_IDERGBMIXER_STRING_A2)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17188,"ide_methods.bas");}while(r); +S_54768:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDERGBMIXER_STRING_A2->len== 0 )))||new_error){ +if(qbevent){evnt(26070,17190,"ide_methods.bas");if(r)goto S_54768;} +LABEL_RGB_LOOKUP:; +if(qbevent){evnt(26070,17191,"ide_methods.bas");r=0;} +do{ +qbs_set(_FUNC_IDERGBMIXER_STRING_ALL_RGB,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17193,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDERGBMIXER_STRING_CURRENTLINE,FUNC_IDEGETLINE(__LONG_IDECY)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17194,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDERGBMIXER_STRING_A,qbs_ucase(_FUNC_IDERGBMIXER_STRING_CURRENTLINE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17195,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDERGBMIXER_LONG_FOUND_RGB= 0 ; +if(!qbevent)break;evnt(26070,17199,"ide_methods.bas");}while(r); +S_54773:; +do{ +if(qbevent){evnt(26070,17200,"ide_methods.bas");if(r)goto S_54773;} +do{ +*_FUNC_IDERGBMIXER_LONG_FOUND_RGB=func_instr(*_FUNC_IDERGBMIXER_LONG_FOUND_RGB+ 1 ,_FUNC_IDERGBMIXER_STRING_A,qbs_new_txt_len("RGB",3),0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17201,"ide_methods.bas");}while(r); +S_54775:; +if ((-(*_FUNC_IDERGBMIXER_LONG_FOUND_RGB== 0 ))||new_error){ +if(qbevent){evnt(26070,17202,"ide_methods.bas");if(r)goto S_54775;} +do{ +goto dl_exit_6034; +if(!qbevent)break;evnt(26070,17202,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDERGBMIXER_LONG_FINDBRACKET1=func_instr(*_FUNC_IDERGBMIXER_LONG_FOUND_RGB,_FUNC_IDERGBMIXER_STRING_A,qbs_new_txt_len("(",1),0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17203,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDERGBMIXER_LONG_FINDBRACKET2=func_instr(*_FUNC_IDERGBMIXER_LONG_FINDBRACKET1,_FUNC_IDERGBMIXER_STRING_A,qbs_new_txt_len(")",1),0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17204,"ide_methods.bas");}while(r); +S_54780:; +if (((-(*_FUNC_IDERGBMIXER_LONG_FINDBRACKET1> 0 ))&(-(*_FUNC_IDERGBMIXER_LONG_FINDBRACKET2> 0 )))||new_error){ +if(qbevent){evnt(26070,17205,"ide_methods.bas");if(r)goto S_54780;} +do{ +qbs_set(_FUNC_IDERGBMIXER_STRING_ALL_RGB,qbs_add(_FUNC_IDERGBMIXER_STRING_ALL_RGB,i2string(*_FUNC_IDERGBMIXER_LONG_FOUND_RGB))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17206,"ide_methods.bas");}while(r); +} +dl_continue_6034:; +}while(1); +dl_exit_6034:; +S_54784:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDERGBMIXER_STRING_ALL_RGB->len== 0 )))||new_error){ +if(qbevent){evnt(26070,17210,"ide_methods.bas");if(r)goto S_54784;} +do{ +goto LABEL_NORGBFOUND; +if(!qbevent)break;evnt(26070,17210,"ide_methods.bas");}while(r); +} +S_54787:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDERGBMIXER_STRING_ALL_RGB->len== 2 )))||new_error){ +if(qbevent){evnt(26070,17212,"ide_methods.bas");if(r)goto S_54787;} +do{ +qbs_set(_FUNC_IDERGBMIXER_STRING_A2,func_mid(_FUNC_IDERGBMIXER_STRING_A,string2i(_FUNC_IDERGBMIXER_STRING_ALL_RGB),NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17214,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDERGBMIXER_LONG_INSERTRGBAT=string2i(_FUNC_IDERGBMIXER_STRING_ALL_RGB); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17215,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_IDERGBMIXER_LONG_CHECK_RGB= 1 ; +if(!qbevent)break;evnt(26070,17217,"ide_methods.bas");}while(r); +S_54792:; +do{ +if(qbevent){evnt(26070,17218,"ide_methods.bas");if(r)goto S_54792;} +S_54793:; +if ((qbs_cleanup(qbs_tmp_base,-(*__LONG_IDECX>=string2i(func_mid(_FUNC_IDERGBMIXER_STRING_ALL_RGB,((*_FUNC_IDERGBMIXER_LONG_CHECK_RGB+ 1 )* 2 )-( 1 ), 2 ,0|1)))))||new_error){ +if(qbevent){evnt(26070,17219,"ide_methods.bas");if(r)goto S_54793;} +do{ +*_FUNC_IDERGBMIXER_LONG_CHECK_RGB=*_FUNC_IDERGBMIXER_LONG_CHECK_RGB+ 1 ; +if(!qbevent)break;evnt(26070,17220,"ide_methods.bas");}while(r); +S_54795:; +if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDERGBMIXER_LONG_CHECK_RGB==(_FUNC_IDERGBMIXER_STRING_ALL_RGB->len/ 2 ))))||new_error){ +if(qbevent){evnt(26070,17221,"ide_methods.bas");if(r)goto S_54795;} +do{ +goto dl_exit_6037; +if(!qbevent)break;evnt(26070,17221,"ide_methods.bas");}while(r); +} +}else{ +do{ +goto dl_exit_6037; +if(!qbevent)break;evnt(26070,17223,"ide_methods.bas");}while(r); +} +dl_continue_6037:; +}while(1); +dl_exit_6037:; +do{ +qbs_set(_FUNC_IDERGBMIXER_STRING_A2,func_mid(_FUNC_IDERGBMIXER_STRING_A,string2i(func_mid(_FUNC_IDERGBMIXER_STRING_ALL_RGB,(*_FUNC_IDERGBMIXER_LONG_CHECK_RGB* 2 )-( 1 ), 2 ,0|1)),NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17226,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDERGBMIXER_LONG_INSERTRGBAT=string2i(func_mid(_FUNC_IDERGBMIXER_STRING_ALL_RGB,(*_FUNC_IDERGBMIXER_LONG_CHECK_RGB* 2 )-( 1 ), 2 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17227,"ide_methods.bas");}while(r); +} +} +do{ +if(!qbevent)break;evnt(26070,17232,"ide_methods.bas");}while(r); +S_54807:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(_FUNC_IDERGBMIXER_STRING_A2, 4 ),qbs_new_txt_len("RGB(",4)))|(qbs_equal(qbs_left(_FUNC_IDERGBMIXER_STRING_A2, 6 ),qbs_new_txt_len("RGB32(",6)))|(qbs_equal(qbs_left(_FUNC_IDERGBMIXER_STRING_A2, 5 ),qbs_new_txt_len("RGBA(",5)))|(qbs_equal(qbs_left(_FUNC_IDERGBMIXER_STRING_A2, 7 ),qbs_new_txt_len("RGBA32(",7)))))||new_error){ +if(qbevent){evnt(26070,17236,"ide_methods.bas");if(r)goto S_54807;} +S_54808:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_IDERGBMIXER_STRING_A2, 6 ),qbs_new_txt_len("RGB32(",6))))||new_error){ +if(qbevent){evnt(26070,17237,"ide_methods.bas");if(r)goto S_54808;} +do{ +*_FUNC_IDERGBMIXER_BYTE_NEWSYNTAX= -1 ; +if(!qbevent)break;evnt(26070,17237,"ide_methods.bas");}while(r); +} +S_54811:; +if ((-(*_FUNC_IDERGBMIXER_LONG_INSERTRGBAT== 0 ))||new_error){ +if(qbevent){evnt(26070,17238,"ide_methods.bas");if(r)goto S_54811;} +do{ +*_FUNC_IDERGBMIXER_LONG_INSERTRGBAT=*_FUNC_IDERGBMIXER_LONG_SX1; +if(!qbevent)break;evnt(26070,17238,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDERGBMIXER_LONG_FINDCOMMA1=func_instr(NULL,_FUNC_IDERGBMIXER_STRING_A2,qbs_new_txt_len(",",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17239,"ide_methods.bas");}while(r); +S_54815:; +if ((-(*_FUNC_IDERGBMIXER_LONG_FINDCOMMA1> 0 ))||new_error){ +if(qbevent){evnt(26070,17240,"ide_methods.bas");if(r)goto S_54815;} +do{ +*_FUNC_IDERGBMIXER_LONG_FINDCOMMA2=func_instr(*_FUNC_IDERGBMIXER_LONG_FINDCOMMA1+ 1 ,_FUNC_IDERGBMIXER_STRING_A2,qbs_new_txt_len(",",1),0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17241,"ide_methods.bas");}while(r); +S_54817:; +if ((-(*_FUNC_IDERGBMIXER_LONG_FINDCOMMA2> 0 ))||new_error){ +if(qbevent){evnt(26070,17242,"ide_methods.bas");if(r)goto S_54817;} +do{ +qbs_set(_FUNC_IDERGBMIXER_STRING_R,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17243,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDERGBMIXER_STRING_G,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17243,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDERGBMIXER_STRING_B,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17243,"ide_methods.bas");}while(r); +S_54821:; +fornext_value6040=*_FUNC_IDERGBMIXER_LONG_FINDCOMMA1- 1 ; +fornext_finalvalue6040= 1 ; +fornext_step6040= -1 ; +if (fornext_step6040<0) fornext_step_negative6040=1; else fornext_step_negative6040=0; +if (new_error) goto fornext_error6040; +goto fornext_entrylabel6040; +while(1){ +fornext_value6040=fornext_step6040+(*_FUNC_IDERGBMIXER_LONG_I); +fornext_entrylabel6040: +*_FUNC_IDERGBMIXER_LONG_I=fornext_value6040; +if (fornext_step_negative6040){ +if (fornext_value6040fornext_finalvalue6040) break; +} +fornext_error6040:; +if(qbevent){evnt(26070,17244,"ide_methods.bas");if(r)goto S_54821;} +S_54822:; +if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(_FUNC_IDERGBMIXER_STRING_A2,*_FUNC_IDERGBMIXER_LONG_I)>= 48 ))&(-(qbs_asc(_FUNC_IDERGBMIXER_STRING_A2,*_FUNC_IDERGBMIXER_LONG_I)<= 57 ))))||new_error){ +if(qbevent){evnt(26070,17245,"ide_methods.bas");if(r)goto S_54822;} +do{ +qbs_set(_FUNC_IDERGBMIXER_STRING_R,qbs_add(func_mid(_FUNC_IDERGBMIXER_STRING_A2,*_FUNC_IDERGBMIXER_LONG_I, 1 ,0|1),_FUNC_IDERGBMIXER_STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17246,"ide_methods.bas");}while(r); +}else{ +do{ +goto fornext_exit_6039; +if(!qbevent)break;evnt(26070,17248,"ide_methods.bas");}while(r); +} +fornext_continue_6039:; +} +fornext_exit_6039:; +S_54828:; +fornext_value6042=*_FUNC_IDERGBMIXER_LONG_FINDCOMMA1+ 1 ; +fornext_finalvalue6042=*_FUNC_IDERGBMIXER_LONG_FINDCOMMA2- 1 ; +fornext_step6042= 1 ; +if (fornext_step6042<0) fornext_step_negative6042=1; else fornext_step_negative6042=0; +if (new_error) goto fornext_error6042; +goto fornext_entrylabel6042; +while(1){ +fornext_value6042=fornext_step6042+(*_FUNC_IDERGBMIXER_LONG_I); +fornext_entrylabel6042: +*_FUNC_IDERGBMIXER_LONG_I=fornext_value6042; +if (fornext_step_negative6042){ +if (fornext_value6042fornext_finalvalue6042) break; +} +fornext_error6042:; +if(qbevent){evnt(26070,17252,"ide_methods.bas");if(r)goto S_54828;} +S_54829:; +if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(_FUNC_IDERGBMIXER_STRING_A2,*_FUNC_IDERGBMIXER_LONG_I)== 32 ))|(((-(qbs_asc(_FUNC_IDERGBMIXER_STRING_A2,*_FUNC_IDERGBMIXER_LONG_I)>= 48 ))&(-(qbs_asc(_FUNC_IDERGBMIXER_STRING_A2,*_FUNC_IDERGBMIXER_LONG_I)<= 57 ))))))||new_error){ +if(qbevent){evnt(26070,17253,"ide_methods.bas");if(r)goto S_54829;} +do{ +qbs_set(_FUNC_IDERGBMIXER_STRING_G,qbs_add(_FUNC_IDERGBMIXER_STRING_G,func_mid(_FUNC_IDERGBMIXER_STRING_A2,*_FUNC_IDERGBMIXER_LONG_I, 1 ,0|1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17254,"ide_methods.bas");}while(r); +}else{ +do{ +goto fornext_exit_6041; +if(!qbevent)break;evnt(26070,17256,"ide_methods.bas");}while(r); +} +fornext_continue_6041:; +} +fornext_exit_6041:; +S_54835:; +fornext_value6044=*_FUNC_IDERGBMIXER_LONG_FINDCOMMA2+ 1 ; +fornext_finalvalue6044=_FUNC_IDERGBMIXER_STRING_A2->len; +fornext_step6044= 1 ; +if (fornext_step6044<0) fornext_step_negative6044=1; else fornext_step_negative6044=0; +if (new_error) goto fornext_error6044; +goto fornext_entrylabel6044; +while(1){ +fornext_value6044=fornext_step6044+(*_FUNC_IDERGBMIXER_LONG_I); +fornext_entrylabel6044: +*_FUNC_IDERGBMIXER_LONG_I=fornext_value6044; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative6044){ +if (fornext_value6044fornext_finalvalue6044) break; +} +fornext_error6044:; +if(qbevent){evnt(26070,17260,"ide_methods.bas");if(r)goto S_54835;} +S_54836:; +if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(_FUNC_IDERGBMIXER_STRING_A2,*_FUNC_IDERGBMIXER_LONG_I)== 32 ))|(((-(qbs_asc(_FUNC_IDERGBMIXER_STRING_A2,*_FUNC_IDERGBMIXER_LONG_I)>= 48 ))&(-(qbs_asc(_FUNC_IDERGBMIXER_STRING_A2,*_FUNC_IDERGBMIXER_LONG_I)<= 57 ))))))||new_error){ +if(qbevent){evnt(26070,17261,"ide_methods.bas");if(r)goto S_54836;} +do{ +qbs_set(_FUNC_IDERGBMIXER_STRING_B,qbs_add(_FUNC_IDERGBMIXER_STRING_B,func_mid(_FUNC_IDERGBMIXER_STRING_A2,*_FUNC_IDERGBMIXER_LONG_I, 1 ,0|1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17262,"ide_methods.bas");}while(r); +}else{ +do{ +goto fornext_exit_6043; +if(!qbevent)break;evnt(26070,17264,"ide_methods.bas");}while(r); +} +fornext_continue_6043:; +} +fornext_exit_6043:; +do{ +*_FUNC_IDERGBMIXER_LONG_R=qbr(func_val(_FUNC_IDERGBMIXER_STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17268,"ide_methods.bas");}while(r); +S_54843:; +if ((-(*_FUNC_IDERGBMIXER_LONG_R< 0 ))||new_error){ +if(qbevent){evnt(26070,17268,"ide_methods.bas");if(r)goto S_54843;} +do{ +*_FUNC_IDERGBMIXER_LONG_R= 0 ; +if(!qbevent)break;evnt(26070,17268,"ide_methods.bas");}while(r); +} +S_54846:; +if ((-(*_FUNC_IDERGBMIXER_LONG_R> 255 ))||new_error){ +if(qbevent){evnt(26070,17269,"ide_methods.bas");if(r)goto S_54846;} +do{ +*_FUNC_IDERGBMIXER_LONG_R= 255 ; +if(!qbevent)break;evnt(26070,17269,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDERGBMIXER_LONG_G=qbr(func_val(_FUNC_IDERGBMIXER_STRING_G)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17270,"ide_methods.bas");}while(r); +S_54850:; +if ((-(*_FUNC_IDERGBMIXER_LONG_G< 0 ))||new_error){ +if(qbevent){evnt(26070,17270,"ide_methods.bas");if(r)goto S_54850;} +do{ +*_FUNC_IDERGBMIXER_LONG_G= 0 ; +if(!qbevent)break;evnt(26070,17270,"ide_methods.bas");}while(r); +} +S_54853:; +if ((-(*_FUNC_IDERGBMIXER_LONG_G> 255 ))||new_error){ +if(qbevent){evnt(26070,17271,"ide_methods.bas");if(r)goto S_54853;} +do{ +*_FUNC_IDERGBMIXER_LONG_G= 255 ; +if(!qbevent)break;evnt(26070,17271,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDERGBMIXER_LONG_B=qbr(func_val(_FUNC_IDERGBMIXER_STRING_B)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17272,"ide_methods.bas");}while(r); +S_54857:; +if ((-(*_FUNC_IDERGBMIXER_LONG_B< 0 ))||new_error){ +if(qbevent){evnt(26070,17272,"ide_methods.bas");if(r)goto S_54857;} +do{ +*_FUNC_IDERGBMIXER_LONG_B= 0 ; +if(!qbevent)break;evnt(26070,17272,"ide_methods.bas");}while(r); +} +S_54860:; +if ((-(*_FUNC_IDERGBMIXER_LONG_B> 255 ))||new_error){ +if(qbevent){evnt(26070,17273,"ide_methods.bas");if(r)goto S_54860;} +do{ +*_FUNC_IDERGBMIXER_LONG_B= 255 ; +if(!qbevent)break;evnt(26070,17273,"ide_methods.bas");}while(r); +} +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(_FUNC_IDERGBMIXER_LONG_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17275,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(_FUNC_IDERGBMIXER_LONG_G)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17276,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(_FUNC_IDERGBMIXER_LONG_B)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17277,"ide_methods.bas");}while(r); +S_54866:; +fornext_value6047= 1 ; +fornext_finalvalue6047= 3 ; +fornext_step6047= 1 ; +if (fornext_step6047<0) fornext_step_negative6047=1; else fornext_step_negative6047=0; +if (new_error) goto fornext_error6047; +goto fornext_entrylabel6047; +while(1){ +fornext_value6047=fornext_step6047+(*_FUNC_IDERGBMIXER_LONG_I); +fornext_entrylabel6047: +*_FUNC_IDERGBMIXER_LONG_I=fornext_value6047; +if (fornext_step_negative6047){ +if (fornext_value6047fornext_finalvalue6047) break; +} +fornext_error6047:; +if(qbevent){evnt(26070,17279,"ide_methods.bas");if(r)goto S_54866;} +do{ +*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+77))= 0 ; +if(!qbevent)break;evnt(26070,17280,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; +if(!qbevent)break;evnt(26070,17281,"ide_methods.bas");}while(r); +S_54869:; +if ((-(*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+81))> 0 ))||new_error){ +if(qbevent){evnt(26070,17282,"ide_methods.bas");if(r)goto S_54869;} +do{ +*(int8*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+76))= -1 ; +if(!qbevent)break;evnt(26070,17282,"ide_methods.bas");}while(r); +} +fornext_continue_6046:; +} +fornext_exit_6046:; +S_54873:; +}else{ +if (*_FUNC_IDERGBMIXER_BYTE_NEWSYNTAX){ +if(qbevent){evnt(26070,17284,"ide_methods.bas");if(r)goto S_54873;} +do{ +qbs_set(_FUNC_IDERGBMIXER_STRING_R,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17285,"ide_methods.bas");}while(r); +S_54875:; +fornext_value6050=*_FUNC_IDERGBMIXER_LONG_FINDCOMMA1- 1 ; +fornext_finalvalue6050= 1 ; +fornext_step6050= -1 ; +if (fornext_step6050<0) fornext_step_negative6050=1; else fornext_step_negative6050=0; +if (new_error) goto fornext_error6050; +goto fornext_entrylabel6050; +while(1){ +fornext_value6050=fornext_step6050+(*_FUNC_IDERGBMIXER_LONG_I); +fornext_entrylabel6050: +*_FUNC_IDERGBMIXER_LONG_I=fornext_value6050; +if (fornext_step_negative6050){ +if (fornext_value6050fornext_finalvalue6050) break; +} +fornext_error6050:; +if(qbevent){evnt(26070,17286,"ide_methods.bas");if(r)goto S_54875;} +S_54876:; +if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(_FUNC_IDERGBMIXER_STRING_A2,*_FUNC_IDERGBMIXER_LONG_I)>= 48 ))&(-(qbs_asc(_FUNC_IDERGBMIXER_STRING_A2,*_FUNC_IDERGBMIXER_LONG_I)<= 57 ))))||new_error){ +if(qbevent){evnt(26070,17287,"ide_methods.bas");if(r)goto S_54876;} +do{ +qbs_set(_FUNC_IDERGBMIXER_STRING_R,qbs_add(func_mid(_FUNC_IDERGBMIXER_STRING_A2,*_FUNC_IDERGBMIXER_LONG_I, 1 ,0|1),_FUNC_IDERGBMIXER_STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17288,"ide_methods.bas");}while(r); +}else{ +do{ +goto fornext_exit_6049; +if(!qbevent)break;evnt(26070,17290,"ide_methods.bas");}while(r); +} +fornext_continue_6049:; +} +fornext_exit_6049:; +do{ +*_FUNC_IDERGBMIXER_LONG_R=qbr(func_val(_FUNC_IDERGBMIXER_STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17294,"ide_methods.bas");}while(r); +S_54883:; +if ((-(*_FUNC_IDERGBMIXER_LONG_R< 0 ))||new_error){ +if(qbevent){evnt(26070,17294,"ide_methods.bas");if(r)goto S_54883;} +do{ +*_FUNC_IDERGBMIXER_LONG_R= 0 ; +if(!qbevent)break;evnt(26070,17294,"ide_methods.bas");}while(r); +} +S_54886:; +if ((-(*_FUNC_IDERGBMIXER_LONG_R> 255 ))||new_error){ +if(qbevent){evnt(26070,17295,"ide_methods.bas");if(r)goto S_54886;} +do{ +*_FUNC_IDERGBMIXER_LONG_R= 255 ; +if(!qbevent)break;evnt(26070,17295,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDERGBMIXER_LONG_G=*_FUNC_IDERGBMIXER_LONG_R; +if(!qbevent)break;evnt(26070,17296,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDERGBMIXER_LONG_B=*_FUNC_IDERGBMIXER_LONG_R; +if(!qbevent)break;evnt(26070,17297,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(_FUNC_IDERGBMIXER_LONG_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17299,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(_FUNC_IDERGBMIXER_LONG_G)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17300,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(_FUNC_IDERGBMIXER_LONG_B)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17301,"ide_methods.bas");}while(r); +S_54894:; +fornext_value6052= 1 ; +fornext_finalvalue6052= 3 ; +fornext_step6052= 1 ; +if (fornext_step6052<0) fornext_step_negative6052=1; else fornext_step_negative6052=0; +if (new_error) goto fornext_error6052; +goto fornext_entrylabel6052; +while(1){ +fornext_value6052=fornext_step6052+(*_FUNC_IDERGBMIXER_LONG_I); +fornext_entrylabel6052: +*_FUNC_IDERGBMIXER_LONG_I=fornext_value6052; +if (fornext_step_negative6052){ +if (fornext_value6052fornext_finalvalue6052) break; +} +fornext_error6052:; +if(qbevent){evnt(26070,17303,"ide_methods.bas");if(r)goto S_54894;} +do{ +*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+77))= 0 ; +if(!qbevent)break;evnt(26070,17304,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; +if(!qbevent)break;evnt(26070,17305,"ide_methods.bas");}while(r); +S_54897:; +if ((-(*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+81))> 0 ))||new_error){ +if(qbevent){evnt(26070,17306,"ide_methods.bas");if(r)goto S_54897;} +do{ +*(int8*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+76))= -1 ; +if(!qbevent)break;evnt(26070,17306,"ide_methods.bas");}while(r); +} +fornext_continue_6051:; +} +fornext_exit_6051:; +} +} +S_54902:; +}else{ +if (*_FUNC_IDERGBMIXER_BYTE_NEWSYNTAX){ +if(qbevent){evnt(26070,17309,"ide_methods.bas");if(r)goto S_54902;} +do{ +*_FUNC_IDERGBMIXER_LONG_FINDCOMMA1=func_instr(NULL,_FUNC_IDERGBMIXER_STRING_A2,qbs_new_txt_len(")",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17311,"ide_methods.bas");}while(r); +S_54904:; +if ((*_FUNC_IDERGBMIXER_LONG_FINDCOMMA1)||new_error){ +if(qbevent){evnt(26070,17312,"ide_methods.bas");if(r)goto S_54904;} +do{ +qbs_set(_FUNC_IDERGBMIXER_STRING_R,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17313,"ide_methods.bas");}while(r); +S_54906:; +fornext_value6055=*_FUNC_IDERGBMIXER_LONG_FINDCOMMA1- 1 ; +fornext_finalvalue6055= 1 ; +fornext_step6055= -1 ; +if (fornext_step6055<0) fornext_step_negative6055=1; else fornext_step_negative6055=0; +if (new_error) goto fornext_error6055; +goto fornext_entrylabel6055; +while(1){ +fornext_value6055=fornext_step6055+(*_FUNC_IDERGBMIXER_LONG_I); +fornext_entrylabel6055: +*_FUNC_IDERGBMIXER_LONG_I=fornext_value6055; +if (fornext_step_negative6055){ +if (fornext_value6055fornext_finalvalue6055) break; +} +fornext_error6055:; +if(qbevent){evnt(26070,17314,"ide_methods.bas");if(r)goto S_54906;} +S_54907:; +if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(_FUNC_IDERGBMIXER_STRING_A2,*_FUNC_IDERGBMIXER_LONG_I)>= 48 ))&(-(qbs_asc(_FUNC_IDERGBMIXER_STRING_A2,*_FUNC_IDERGBMIXER_LONG_I)<= 57 ))))||new_error){ +if(qbevent){evnt(26070,17315,"ide_methods.bas");if(r)goto S_54907;} +do{ +qbs_set(_FUNC_IDERGBMIXER_STRING_R,qbs_add(func_mid(_FUNC_IDERGBMIXER_STRING_A2,*_FUNC_IDERGBMIXER_LONG_I, 1 ,0|1),_FUNC_IDERGBMIXER_STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17316,"ide_methods.bas");}while(r); +}else{ +do{ +goto fornext_exit_6054; +if(!qbevent)break;evnt(26070,17318,"ide_methods.bas");}while(r); +} +fornext_continue_6054:; +} +fornext_exit_6054:; +do{ +*_FUNC_IDERGBMIXER_LONG_R=qbr(func_val(_FUNC_IDERGBMIXER_STRING_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17322,"ide_methods.bas");}while(r); +S_54914:; +if ((-(*_FUNC_IDERGBMIXER_LONG_R< 0 ))||new_error){ +if(qbevent){evnt(26070,17322,"ide_methods.bas");if(r)goto S_54914;} +do{ +*_FUNC_IDERGBMIXER_LONG_R= 0 ; +if(!qbevent)break;evnt(26070,17322,"ide_methods.bas");}while(r); +} +S_54917:; +if ((-(*_FUNC_IDERGBMIXER_LONG_R> 255 ))||new_error){ +if(qbevent){evnt(26070,17323,"ide_methods.bas");if(r)goto S_54917;} +do{ +*_FUNC_IDERGBMIXER_LONG_R= 255 ; +if(!qbevent)break;evnt(26070,17323,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDERGBMIXER_LONG_G=*_FUNC_IDERGBMIXER_LONG_R; +if(!qbevent)break;evnt(26070,17324,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDERGBMIXER_LONG_B=*_FUNC_IDERGBMIXER_LONG_R; +if(!qbevent)break;evnt(26070,17325,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(_FUNC_IDERGBMIXER_LONG_R)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17327,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(_FUNC_IDERGBMIXER_LONG_G)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17328,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(_FUNC_IDERGBMIXER_LONG_B)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17329,"ide_methods.bas");}while(r); +S_54925:; +fornext_value6057= 1 ; +fornext_finalvalue6057= 3 ; +fornext_step6057= 1 ; +if (fornext_step6057<0) fornext_step_negative6057=1; else fornext_step_negative6057=0; +if (new_error) goto fornext_error6057; +goto fornext_entrylabel6057; +while(1){ +fornext_value6057=fornext_step6057+(*_FUNC_IDERGBMIXER_LONG_I); +fornext_entrylabel6057: +*_FUNC_IDERGBMIXER_LONG_I=fornext_value6057; +if (fornext_step_negative6057){ +if (fornext_value6057fornext_finalvalue6057) break; +} +fornext_error6057:; +if(qbevent){evnt(26070,17331,"ide_methods.bas");if(r)goto S_54925;} +do{ +*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+77))= 0 ; +if(!qbevent)break;evnt(26070,17332,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; +if(!qbevent)break;evnt(26070,17333,"ide_methods.bas");}while(r); +S_54928:; +if ((-(*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+81))> 0 ))||new_error){ +if(qbevent){evnt(26070,17334,"ide_methods.bas");if(r)goto S_54928;} +do{ +*(int8*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+76))= -1 ; +if(!qbevent)break;evnt(26070,17334,"ide_methods.bas");}while(r); +} +fornext_continue_6056:; +} +fornext_exit_6056:; +} +} +} +}else{ +S_54935:; +if ((*__LONG_IDESELECT&(-(*__LONG_IDESELECTY1==*__LONG_IDECY)))||new_error){ +if(qbevent){evnt(26070,17341,"ide_methods.bas");if(r)goto S_54935;} +do{ +*__LONG_IDESELECT= 0 ; +if(!qbevent)break;evnt(26070,17342,"ide_methods.bas");}while(r); +do{ +goto LABEL_RGB_LOOKUP; +if(!qbevent)break;evnt(26070,17343,"ide_methods.bas");}while(r); +} +} +} +LABEL_NORGBFOUND:; +if(qbevent){evnt(26070,17347,"ide_methods.bas");r=0;} +do{ +*_FUNC_IDERGBMIXER_ULONG_CURRENTCOLOR=func__rgb32(qbr(func_val(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))),qbr(func_val(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))),qbr(func_val(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17348,"ide_methods.bas");}while(r); +do{ +sub__palettecolor( 12 ,*_FUNC_IDERGBMIXER_ULONG_CURRENTCOLOR, 0 ,1); +if(!qbevent)break;evnt(26070,17349,"ide_methods.bas");}while(r); +do{ +sub__palettecolor( 5 , -16734208 , 0 ,1); +if(!qbevent)break;evnt(26070,17350,"ide_methods.bas");}while(r); +S_54944:; +fornext_value6060= 1 ; +fornext_finalvalue6060= 100 ; +fornext_step6060= 1 ; +if (fornext_step6060<0) fornext_step_negative6060=1; else fornext_step_negative6060=0; +if (new_error) goto fornext_error6060; +goto fornext_entrylabel6060; +while(1){ +fornext_value6060=fornext_step6060+(*_FUNC_IDERGBMIXER_LONG_I); +fornext_entrylabel6060: +*_FUNC_IDERGBMIXER_LONG_I=fornext_value6060; +if (fornext_step_negative6060){ +if (fornext_value6060fornext_finalvalue6060) break; +} +fornext_error6060:; +if(qbevent){evnt(26070,17354,"ide_methods.bas");if(r)goto S_54944;} +do{ +memcpy(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89)+ 0,((char*)_FUNC_IDERGBMIXER_UDT_P)+(0)+ 0, 20); +if(!qbevent)break;evnt(26070,17354,"ide_methods.bas");}while(r); +fornext_continue_6059:; +} +fornext_exit_6059:; +S_54947:; +do{ +if(qbevent){evnt(26070,17357,"ide_methods.bas");if(r)goto S_54947;} +do{ +SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDERGBMIXER_UDT_P)) + (0) )); +if(!qbevent)break;evnt(26070,17360,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDERGBMIXER_LONG_F= 1 ; +if(!qbevent)break;evnt(26070,17361,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDERGBMIXER_LONG_CX= 0 ; +if(!qbevent)break;evnt(26070,17361,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDERGBMIXER_LONG_CY= 0 ; +if(!qbevent)break;evnt(26070,17361,"ide_methods.bas");}while(r); +S_54952:; +fornext_value6063= 1 ; +fornext_finalvalue6063= 100 ; +fornext_step6063= 1 ; +if (fornext_step6063<0) fornext_step_negative6063=1; else fornext_step_negative6063=0; +if (new_error) goto fornext_error6063; +goto fornext_entrylabel6063; +while(1){ +fornext_value6063=fornext_step6063+(*_FUNC_IDERGBMIXER_LONG_I); +fornext_entrylabel6063: +*_FUNC_IDERGBMIXER_LONG_I=fornext_value6063; +if (fornext_step_negative6063){ +if (fornext_value6063fornext_finalvalue6063) break; +} +fornext_error6063:; +if(qbevent){evnt(26070,17362,"ide_methods.bas");if(r)goto S_54952;} +S_54953:; +if ((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+36)))||new_error){ +if(qbevent){evnt(26070,17363,"ide_methods.bas");if(r)goto S_54953;} +do{ +*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+60))=*_FUNC_IDERGBMIXER_LONG_FOCUS-*_FUNC_IDERGBMIXER_LONG_F; +if(!qbevent)break;evnt(26070,17366,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+52))= 0 ; +if(!qbevent)break;evnt(26070,17367,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+56))= 0 ; +if(!qbevent)break;evnt(26070,17367,"ide_methods.bas");}while(r); +do{ +SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89) ),_FUNC_IDERGBMIXER_LONG_F); +if(!qbevent)break;evnt(26070,17368,"ide_methods.bas");}while(r); +S_54958:; +if ((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+52)))||new_error){ +if(qbevent){evnt(26070,17369,"ide_methods.bas");if(r)goto S_54958;} +do{ +*_FUNC_IDERGBMIXER_LONG_CX=*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+52)); +if(!qbevent)break;evnt(26070,17369,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDERGBMIXER_LONG_CY=*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+56)); +if(!qbevent)break;evnt(26070,17369,"ide_methods.bas");}while(r); +} +} +fornext_continue_6062:; +} +fornext_exit_6062:; +do{ +*_FUNC_IDERGBMIXER_LONG_LASTFOCUS=*_FUNC_IDERGBMIXER_LONG_F- 1 ; +if(!qbevent)break;evnt(26070,17372,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(*(int32*)(((char*)_FUNC_IDERGBMIXER_UDT_P)+(4))+ 2 ,*(int32*)(((char*)_FUNC_IDERGBMIXER_UDT_P)+(0))+ 13 ,NULL,NULL,NULL,3); +if(!qbevent)break;evnt(26070,17376,"ide_methods.bas");}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("R: ",3)); +if (new_error) goto skip6064; +makefit(tqbs); +qbs_print(tqbs,0); +skip6064: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17376,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 4 ,NULL,NULL,1); +if(!qbevent)break;evnt(26070,17377,"ide_methods.bas");}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,func_string( 46 , 196 )); +if (new_error) goto skip6065; +makefit(tqbs); +qbs_print(tqbs,0); +skip6065: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17377,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDERGBMIXER_STRING_SLIDER,func_chr( 197 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17378,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDERGBMIXER_LONG_T=qbr(func_val(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17379,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDERGBMIXER_LONG_R=qbr(((*_FUNC_IDERGBMIXER_LONG_T/ ((long double)( 255 )))* 46 )); +if(!qbevent)break;evnt(26070,17379,"ide_methods.bas");}while(r); +S_54972:; +if ((-(*_FUNC_IDERGBMIXER_LONG_T== 0 ))||new_error){ +if(qbevent){evnt(26070,17380,"ide_methods.bas");if(r)goto S_54972;} +do{ +qbs_set(_FUNC_IDERGBMIXER_STRING_SLIDER,func_chr( 195 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17380,"ide_methods.bas");}while(r); +} +S_54975:; +if ((-(*_FUNC_IDERGBMIXER_LONG_T== 255 ))||new_error){ +if(qbevent){evnt(26070,17381,"ide_methods.bas");if(r)goto S_54975;} +do{ +qbs_set(_FUNC_IDERGBMIXER_STRING_SLIDER,func_chr( 180 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17381,"ide_methods.bas");}while(r); +} +do{ +sub__printstring(*(int32*)(((char*)_FUNC_IDERGBMIXER_UDT_P)+(0))+ 15 +*_FUNC_IDERGBMIXER_LONG_R,*(int32*)(((char*)_FUNC_IDERGBMIXER_UDT_P)+(4))+ 2 ,_FUNC_IDERGBMIXER_STRING_SLIDER,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17382,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 0 ,NULL,NULL,1); +if(!qbevent)break;evnt(26070,17384,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(*(int32*)(((char*)_FUNC_IDERGBMIXER_UDT_P)+(4))+ 5 ,*(int32*)(((char*)_FUNC_IDERGBMIXER_UDT_P)+(0))+ 13 ,NULL,NULL,NULL,3); +if(!qbevent)break;evnt(26070,17384,"ide_methods.bas");}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("G: ",3)); +if (new_error) goto skip6066; +makefit(tqbs); +qbs_print(tqbs,0); +skip6066: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17384,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 5 ,NULL,NULL,1); +if(!qbevent)break;evnt(26070,17385,"ide_methods.bas");}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,func_string( 46 , 196 )); +if (new_error) goto skip6067; +makefit(tqbs); +qbs_print(tqbs,0); +skip6067: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17385,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDERGBMIXER_STRING_SLIDER,func_chr( 197 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17386,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDERGBMIXER_LONG_T=qbr(func_val(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17387,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDERGBMIXER_LONG_R=qbr(((*_FUNC_IDERGBMIXER_LONG_T/ ((long double)( 255 )))* 46 )); +if(!qbevent)break;evnt(26070,17387,"ide_methods.bas");}while(r); +S_54987:; +if ((-(*_FUNC_IDERGBMIXER_LONG_T== 0 ))||new_error){ +if(qbevent){evnt(26070,17388,"ide_methods.bas");if(r)goto S_54987;} +do{ +qbs_set(_FUNC_IDERGBMIXER_STRING_SLIDER,func_chr( 195 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17388,"ide_methods.bas");}while(r); +} +S_54990:; +if ((-(*_FUNC_IDERGBMIXER_LONG_T== 255 ))||new_error){ +if(qbevent){evnt(26070,17389,"ide_methods.bas");if(r)goto S_54990;} +do{ +qbs_set(_FUNC_IDERGBMIXER_STRING_SLIDER,func_chr( 180 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17389,"ide_methods.bas");}while(r); +} +do{ +sub__printstring(*(int32*)(((char*)_FUNC_IDERGBMIXER_UDT_P)+(0))+ 15 +*_FUNC_IDERGBMIXER_LONG_R,*(int32*)(((char*)_FUNC_IDERGBMIXER_UDT_P)+(4))+ 5 ,_FUNC_IDERGBMIXER_STRING_SLIDER,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17390,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 0 ,NULL,NULL,1); +if(!qbevent)break;evnt(26070,17392,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(*(int32*)(((char*)_FUNC_IDERGBMIXER_UDT_P)+(4))+ 8 ,*(int32*)(((char*)_FUNC_IDERGBMIXER_UDT_P)+(0))+ 13 ,NULL,NULL,NULL,3); +if(!qbevent)break;evnt(26070,17392,"ide_methods.bas");}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len("B: ",3)); +if (new_error) goto skip6068; +makefit(tqbs); +qbs_print(tqbs,0); +skip6068: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17392,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 9 ,NULL,NULL,1); +if(!qbevent)break;evnt(26070,17393,"ide_methods.bas");}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,func_string( 46 , 196 )); +if (new_error) goto skip6069; +makefit(tqbs); +qbs_print(tqbs,0); +skip6069: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17393,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDERGBMIXER_STRING_SLIDER,func_chr( 197 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17394,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDERGBMIXER_LONG_T=qbr(func_val(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17395,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDERGBMIXER_LONG_R=qbr(((*_FUNC_IDERGBMIXER_LONG_T/ ((long double)( 255 )))* 46 )); +if(!qbevent)break;evnt(26070,17395,"ide_methods.bas");}while(r); +S_55002:; +if ((-(*_FUNC_IDERGBMIXER_LONG_T== 0 ))||new_error){ +if(qbevent){evnt(26070,17396,"ide_methods.bas");if(r)goto S_55002;} +do{ +qbs_set(_FUNC_IDERGBMIXER_STRING_SLIDER,func_chr( 195 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17396,"ide_methods.bas");}while(r); +} +S_55005:; +if ((-(*_FUNC_IDERGBMIXER_LONG_T== 255 ))||new_error){ +if(qbevent){evnt(26070,17397,"ide_methods.bas");if(r)goto S_55005;} +do{ +qbs_set(_FUNC_IDERGBMIXER_STRING_SLIDER,func_chr( 180 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17397,"ide_methods.bas");}while(r); +} +do{ +sub__printstring(*(int32*)(((char*)_FUNC_IDERGBMIXER_UDT_P)+(0))+ 15 +*_FUNC_IDERGBMIXER_LONG_R,*(int32*)(((char*)_FUNC_IDERGBMIXER_UDT_P)+(4))+ 8 ,_FUNC_IDERGBMIXER_STRING_SLIDER,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17398,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 0 ,NULL,NULL,1); +if(!qbevent)break;evnt(26070,17400,"ide_methods.bas");}while(r); +do{ +sub__printstring(*(int32*)(((char*)_FUNC_IDERGBMIXER_UDT_P)+(0))+ 19 ,*(int32*)(((char*)_FUNC_IDERGBMIXER_UDT_P)+(4))+ 9 ,qbs_new_txt_len("Hold CTRL to drag all sliders at once.",38),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17400,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 12 ,NULL,NULL,1); +if(!qbevent)break;evnt(26070,17402,"ide_methods.bas");}while(r); +S_55012:; +fornext_value6071= 2 ; +fornext_finalvalue6071= 8 ; +fornext_step6071= 1 ; +if (fornext_step6071<0) fornext_step_negative6071=1; else fornext_step_negative6071=0; +if (new_error) goto fornext_error6071; +goto fornext_entrylabel6071; +while(1){ +fornext_value6071=fornext_step6071+(*_FUNC_IDERGBMIXER_LONG_I); +fornext_entrylabel6071: +*_FUNC_IDERGBMIXER_LONG_I=fornext_value6071; +if (fornext_step_negative6071){ +if (fornext_value6071fornext_finalvalue6071) break; +} +fornext_error6071:; +if(qbevent){evnt(26070,17403,"ide_methods.bas");if(r)goto S_55012;} +do{ +sub__printstring(*(int32*)(((char*)_FUNC_IDERGBMIXER_UDT_P)+(0))+ 2 ,*(int32*)(((char*)_FUNC_IDERGBMIXER_UDT_P)+(4))+*_FUNC_IDERGBMIXER_LONG_I,func_string( 10 , 219 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17404,"ide_methods.bas");}while(r); +fornext_continue_6070:; +} +fornext_exit_6070:; +do{ +sub_pcopy( 1 , 0 ); +if(!qbevent)break;evnt(26070,17409,"ide_methods.bas");}while(r); +S_55016:; +if ((*_FUNC_IDERGBMIXER_LONG_CX)||new_error){ +if(qbevent){evnt(26070,17410,"ide_methods.bas");if(r)goto S_55016;} +do{ +qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,17410,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(*_FUNC_IDERGBMIXER_LONG_CY,*_FUNC_IDERGBMIXER_LONG_CX, 1 ,NULL,NULL,7); +if(!qbevent)break;evnt(26070,17410,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,17410,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDERGBMIXER_LONG_CHANGE= 0 ; +if(!qbevent)break;evnt(26070,17413,"ide_methods.bas");}while(r); +S_55022:; +do{ +if(qbevent){evnt(26070,17414,"ide_methods.bas");if(r)goto S_55022;} +do{ +SUB_GETINPUT(); +if(!qbevent)break;evnt(26070,17415,"ide_methods.bas");}while(r); +S_55024:; +if ((*__LONG_MWHEEL)||new_error){ +if(qbevent){evnt(26070,17416,"ide_methods.bas");if(r)goto S_55024;} +do{ +*_FUNC_IDERGBMIXER_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,17416,"ide_methods.bas");}while(r); +} +S_55027:; +if ((*__LONG_KB)||new_error){ +if(qbevent){evnt(26070,17417,"ide_methods.bas");if(r)goto S_55027;} +do{ +*_FUNC_IDERGBMIXER_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,17417,"ide_methods.bas");}while(r); +} +S_55030:; +if ((*__LONG_MCLICK)||new_error){ +if(qbevent){evnt(26070,17418,"ide_methods.bas");if(r)goto S_55030;} +do{ +*_FUNC_IDERGBMIXER_LONG_MOUSEDOWN= 1 ; +if(!qbevent)break;evnt(26070,17418,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDERGBMIXER_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,17418,"ide_methods.bas");}while(r); +} +S_55034:; +if ((*__LONG_MRELEASE)||new_error){ +if(qbevent){evnt(26070,17419,"ide_methods.bas");if(r)goto S_55034;} +do{ +*_FUNC_IDERGBMIXER_LONG_MOUSEUP= 1 ; +if(!qbevent)break;evnt(26070,17419,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDERGBMIXER_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,17419,"ide_methods.bas");}while(r); +} +S_55038:; +if ((*__LONG_MB)||new_error){ +if(qbevent){evnt(26070,17420,"ide_methods.bas");if(r)goto S_55038;} +do{ +*_FUNC_IDERGBMIXER_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,17420,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDERGBMIXER_LONG_ALT=*__LONG_KALT; +if(!qbevent)break;evnt(26070,17421,"ide_methods.bas");}while(r); +S_55042:; +if ((-(*_FUNC_IDERGBMIXER_LONG_ALT!=*_FUNC_IDERGBMIXER_LONG_OLDALT))||new_error){ +if(qbevent){evnt(26070,17421,"ide_methods.bas");if(r)goto S_55042;} +do{ +*_FUNC_IDERGBMIXER_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,17421,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDERGBMIXER_LONG_OLDALT=*_FUNC_IDERGBMIXER_LONG_ALT; +if(!qbevent)break;evnt(26070,17422,"ide_methods.bas");}while(r); +do{ +sub__limit( 100 ); +if(!qbevent)break;evnt(26070,17423,"ide_methods.bas");}while(r); +S_55047:; +dl_continue_6072:; +}while((!(*_FUNC_IDERGBMIXER_LONG_CHANGE))&&(!new_error)); +dl_exit_6072:; +if(qbevent){evnt(26070,17424,"ide_methods.bas");if(r)goto S_55047;} +S_55048:; +if ((*_FUNC_IDERGBMIXER_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ +if(qbevent){evnt(26070,17425,"ide_methods.bas");if(r)goto S_55048;} +do{ +*__LONG_IDEHL= 1 ; +if(!qbevent)break;evnt(26070,17425,"ide_methods.bas");}while(r); +}else{ +do{ +*__LONG_IDEHL= 0 ; +if(!qbevent)break;evnt(26070,17425,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDERGBMIXER_STRING_ALTLETTER,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17427,"ide_methods.bas");}while(r); +S_55054:; +if ((*_FUNC_IDERGBMIXER_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ +if(qbevent){evnt(26070,17428,"ide_methods.bas");if(r)goto S_55054;} +S_55055:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ +if(qbevent){evnt(26070,17429,"ide_methods.bas");if(r)goto S_55055;} +do{ +*_FUNC_IDERGBMIXER_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17430,"ide_methods.bas");}while(r); +S_55057:; +if (((-(*_FUNC_IDERGBMIXER_LONG_K>= 65 ))&(-(*_FUNC_IDERGBMIXER_LONG_K<= 90 )))||new_error){ +if(qbevent){evnt(26070,17431,"ide_methods.bas");if(r)goto S_55057;} +do{ +qbs_set(_FUNC_IDERGBMIXER_STRING_ALTLETTER,func_chr(*_FUNC_IDERGBMIXER_LONG_K)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17431,"ide_methods.bas");}while(r); +} +} +} +do{ +qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,17434,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); +if(!qbevent)break;evnt(26070,17434,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,17434,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDERGBMIXER_LONG_INFO= 0 ; +if(!qbevent)break;evnt(26070,17438,"ide_methods.bas");}while(r); +S_55066:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,17439,"ide_methods.bas");if(r)goto S_55066;} +do{ +qbs_set(__STRING_K,func_chr( 255 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17439,"ide_methods.bas");}while(r); +} +S_55069:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ +if(qbevent){evnt(26070,17440,"ide_methods.bas");if(r)goto S_55069;} +do{ +*_FUNC_IDERGBMIXER_LONG_FOCUS=*_FUNC_IDERGBMIXER_LONG_FOCUS+ 1 ; +if(!qbevent)break;evnt(26070,17440,"ide_methods.bas");}while(r); +} +S_55072:; +if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||new_error){ +if(qbevent){evnt(26070,17441,"ide_methods.bas");if(r)goto S_55072;} +do{ +*_FUNC_IDERGBMIXER_LONG_FOCUS=*_FUNC_IDERGBMIXER_LONG_FOCUS- 1 ; +if(!qbevent)break;evnt(26070,17441,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_K,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17441,"ide_methods.bas");}while(r); +} +S_55076:; +if ((-(*_FUNC_IDERGBMIXER_LONG_FOCUS< 1 ))||new_error){ +if(qbevent){evnt(26070,17442,"ide_methods.bas");if(r)goto S_55076;} +do{ +*_FUNC_IDERGBMIXER_LONG_FOCUS=*_FUNC_IDERGBMIXER_LONG_LASTFOCUS; +if(!qbevent)break;evnt(26070,17442,"ide_methods.bas");}while(r); +} +S_55079:; +if ((-(*_FUNC_IDERGBMIXER_LONG_FOCUS>*_FUNC_IDERGBMIXER_LONG_LASTFOCUS))||new_error){ +if(qbevent){evnt(26070,17443,"ide_methods.bas");if(r)goto S_55079;} +do{ +*_FUNC_IDERGBMIXER_LONG_FOCUS= 1 ; +if(!qbevent)break;evnt(26070,17443,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDERGBMIXER_LONG_F= 1 ; +if(!qbevent)break;evnt(26070,17444,"ide_methods.bas");}while(r); +S_55083:; +fornext_value6075= 1 ; +fornext_finalvalue6075= 100 ; +fornext_step6075= 1 ; +if (fornext_step6075<0) fornext_step_negative6075=1; else fornext_step_negative6075=0; +if (new_error) goto fornext_error6075; +goto fornext_entrylabel6075; +while(1){ +fornext_value6075=fornext_step6075+(*_FUNC_IDERGBMIXER_LONG_I); +fornext_entrylabel6075: +*_FUNC_IDERGBMIXER_LONG_I=fornext_value6075; +if (fornext_step_negative6075){ +if (fornext_value6075fornext_finalvalue6075) break; +} +fornext_error6075:; +if(qbevent){evnt(26070,17445,"ide_methods.bas");if(r)goto S_55083;} +do{ +*_FUNC_IDERGBMIXER_LONG_T=*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+36)); +if(!qbevent)break;evnt(26070,17446,"ide_methods.bas");}while(r); +S_55085:; +if ((*_FUNC_IDERGBMIXER_LONG_T)||new_error){ +if(qbevent){evnt(26070,17447,"ide_methods.bas");if(r)goto S_55085;} +do{ +*_FUNC_IDERGBMIXER_LONG_FOCUSOFFSET=*_FUNC_IDERGBMIXER_LONG_FOCUS-*_FUNC_IDERGBMIXER_LONG_F; +if(!qbevent)break;evnt(26070,17448,"ide_methods.bas");}while(r); +do{ +SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDERGBMIXER_LONG_I)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89) ),_FUNC_IDERGBMIXER_LONG_FOCUS,_FUNC_IDERGBMIXER_LONG_F,_FUNC_IDERGBMIXER_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDERGBMIXER_STRING_ALTLETTER,__LONG_MB,_FUNC_IDERGBMIXER_LONG_MOUSEDOWN,_FUNC_IDERGBMIXER_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDERGBMIXER_LONG_INFO,__LONG_MWHEEL); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17449,"ide_methods.bas");}while(r); +} +fornext_continue_6074:; +} +fornext_exit_6074:; +S_55090:; +if ((-(*_FUNC_IDERGBMIXER_LONG_FOCUS!=*_FUNC_IDERGBMIXER_LONG_PREVFOCUS))||new_error){ +if(qbevent){evnt(26070,17455,"ide_methods.bas");if(r)goto S_55090;} +do{ +*_FUNC_IDERGBMIXER_LONG_PREVFOCUS=*_FUNC_IDERGBMIXER_LONG_FOCUS; +if(!qbevent)break;evnt(26070,17457,"ide_methods.bas");}while(r); +S_55092:; +if (((-(*_FUNC_IDERGBMIXER_LONG_FOCUS>= 1 ))&(-(*_FUNC_IDERGBMIXER_LONG_FOCUS<= 3 )))||new_error){ +if(qbevent){evnt(26070,17458,"ide_methods.bas");if(r)goto S_55092;} +do{ +*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_FOCUS)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_FOCUS)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; +if(!qbevent)break;evnt(26070,17459,"ide_methods.bas");}while(r); +S_55094:; +if ((-(*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_FOCUS)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+81))> 0 ))||new_error){ +if(qbevent){evnt(26070,17460,"ide_methods.bas");if(r)goto S_55094;} +do{ +*(int8*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_FOCUS)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+76))= -1 ; +if(!qbevent)break;evnt(26070,17460,"ide_methods.bas");}while(r); +} +do{ +*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_FOCUS)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+77))= 0 ; +if(!qbevent)break;evnt(26070,17461,"ide_methods.bas");}while(r); +} +} +S_55100:; +if ((*__LONG_MB&(-(*__LONG_MY==(*(int32*)(((char*)_FUNC_IDERGBMIXER_UDT_P)+(4))+ 2 )))&(-(*__LONG_MX>=(*(int32*)(((char*)_FUNC_IDERGBMIXER_UDT_P)+(0))+ 15 )))&(-(*__LONG_MX<=(*(int32*)(((char*)_FUNC_IDERGBMIXER_UDT_P)+(0))+ 15 + 46 ))))||new_error){ +if(qbevent){evnt(26070,17465,"ide_methods.bas");if(r)goto S_55100;} +do{ +*_FUNC_IDERGBMIXER_LONG_NEWVALUE=qbr((*__LONG_MX-*(int32*)(((char*)_FUNC_IDERGBMIXER_UDT_P)+(0))- 15 )*( 255 / ((long double)( 46 )))); +if(!qbevent)break;evnt(26070,17466,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(_FUNC_IDERGBMIXER_LONG_NEWVALUE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17467,"ide_methods.bas");}while(r); +S_55103:; +if ((func__keydown( 100305 )|func__keydown( 100306 ))||new_error){ +if(qbevent){evnt(26070,17468,"ide_methods.bas");if(r)goto S_55103;} +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(_FUNC_IDERGBMIXER_LONG_NEWVALUE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17469,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(_FUNC_IDERGBMIXER_LONG_NEWVALUE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17470,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDERGBMIXER_LONG_FOCUS= 1 ; +if(!qbevent)break;evnt(26070,17472,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_FOCUS)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_FOCUS)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; +if(!qbevent)break;evnt(26070,17473,"ide_methods.bas");}while(r); +do{ +*(int8*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_FOCUS)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+76))= -1 ; +if(!qbevent)break;evnt(26070,17474,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_FOCUS)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+77))= 0 ; +if(!qbevent)break;evnt(26070,17475,"ide_methods.bas");}while(r); +} +S_55112:; +if ((*__LONG_MB&(-(*__LONG_MY==(*(int32*)(((char*)_FUNC_IDERGBMIXER_UDT_P)+(4))+ 5 )))&(-(*__LONG_MX>=(*(int32*)(((char*)_FUNC_IDERGBMIXER_UDT_P)+(0))+ 15 )))&(-(*__LONG_MX<=(*(int32*)(((char*)_FUNC_IDERGBMIXER_UDT_P)+(0))+ 15 + 46 ))))||new_error){ +if(qbevent){evnt(26070,17478,"ide_methods.bas");if(r)goto S_55112;} +do{ +*_FUNC_IDERGBMIXER_LONG_NEWVALUE=qbr((*__LONG_MX-*(int32*)(((char*)_FUNC_IDERGBMIXER_UDT_P)+(0))- 15 )*( 255 / ((long double)( 46 )))); +if(!qbevent)break;evnt(26070,17479,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(_FUNC_IDERGBMIXER_LONG_NEWVALUE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17480,"ide_methods.bas");}while(r); +S_55115:; +if ((func__keydown( 100305 )|func__keydown( 100306 ))||new_error){ +if(qbevent){evnt(26070,17481,"ide_methods.bas");if(r)goto S_55115;} +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(_FUNC_IDERGBMIXER_LONG_NEWVALUE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17482,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(_FUNC_IDERGBMIXER_LONG_NEWVALUE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17483,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDERGBMIXER_LONG_FOCUS= 2 ; +if(!qbevent)break;evnt(26070,17485,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_FOCUS)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_FOCUS)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; +if(!qbevent)break;evnt(26070,17486,"ide_methods.bas");}while(r); +do{ +*(int8*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_FOCUS)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+76))= -1 ; +if(!qbevent)break;evnt(26070,17487,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_FOCUS)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+77))= 0 ; +if(!qbevent)break;evnt(26070,17488,"ide_methods.bas");}while(r); +} +S_55124:; +if ((*__LONG_MB&(-(*__LONG_MY==(*(int32*)(((char*)_FUNC_IDERGBMIXER_UDT_P)+(4))+ 8 )))&(-(*__LONG_MX>=(*(int32*)(((char*)_FUNC_IDERGBMIXER_UDT_P)+(0))+ 15 )))&(-(*__LONG_MX<=(*(int32*)(((char*)_FUNC_IDERGBMIXER_UDT_P)+(0))+ 15 + 46 ))))||new_error){ +if(qbevent){evnt(26070,17491,"ide_methods.bas");if(r)goto S_55124;} +do{ +*_FUNC_IDERGBMIXER_LONG_NEWVALUE=qbr((*__LONG_MX-*(int32*)(((char*)_FUNC_IDERGBMIXER_UDT_P)+(0))- 15 )*( 255 / ((long double)( 46 )))); +if(!qbevent)break;evnt(26070,17492,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(_FUNC_IDERGBMIXER_LONG_NEWVALUE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17493,"ide_methods.bas");}while(r); +S_55127:; +if ((func__keydown( 100305 )|func__keydown( 100306 ))||new_error){ +if(qbevent){evnt(26070,17494,"ide_methods.bas");if(r)goto S_55127;} +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(_FUNC_IDERGBMIXER_LONG_NEWVALUE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17495,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(_FUNC_IDERGBMIXER_LONG_NEWVALUE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17496,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDERGBMIXER_LONG_FOCUS= 3 ; +if(!qbevent)break;evnt(26070,17498,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_FOCUS)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_FOCUS)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; +if(!qbevent)break;evnt(26070,17499,"ide_methods.bas");}while(r); +do{ +*(int8*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_FOCUS)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+76))= -1 ; +if(!qbevent)break;evnt(26070,17500,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_FOCUS)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+77))= 0 ; +if(!qbevent)break;evnt(26070,17501,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDERGBMIXER_LONG_CHANGEDWITHKEYS= 0 ; +if(!qbevent)break;evnt(26070,17504,"ide_methods.bas");}while(r); +S_55137:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,(qbs_add(func_chr( 0 ),func_chr( 72 )))))&(((-(*_FUNC_IDERGBMIXER_LONG_FOCUS== 1 ))|(-(*_FUNC_IDERGBMIXER_LONG_FOCUS== 2 ))|(-(*_FUNC_IDERGBMIXER_LONG_FOCUS== 3 ))))))||new_error){ +if(qbevent){evnt(26070,17505,"ide_methods.bas");if(r)goto S_55137;} +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_FOCUS)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(&(pass6080=qbr(func_val(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_FOCUS)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))+ 1 )))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17506,"ide_methods.bas");}while(r); +do{ +*(int8*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_FOCUS)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+76))= -1 ; +if(!qbevent)break;evnt(26070,17507,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_FOCUS)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+77))= 0 ; +if(!qbevent)break;evnt(26070,17507,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_FOCUS)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_FOCUS)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; +if(!qbevent)break;evnt(26070,17507,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDERGBMIXER_LONG_CHANGEDWITHKEYS= -1 ; +if(!qbevent)break;evnt(26070,17508,"ide_methods.bas");}while(r); +} +S_55144:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,(qbs_add(func_chr( 0 ),func_chr( 80 )))))&(((-(*_FUNC_IDERGBMIXER_LONG_FOCUS== 1 ))|(-(*_FUNC_IDERGBMIXER_LONG_FOCUS== 2 ))|(-(*_FUNC_IDERGBMIXER_LONG_FOCUS== 3 ))))))||new_error){ +if(qbevent){evnt(26070,17511,"ide_methods.bas");if(r)goto S_55144;} +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_FOCUS)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),FUNC_STR2(&(pass6082=qbr(func_val(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_FOCUS)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))- 1 )))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17512,"ide_methods.bas");}while(r); +do{ +*(int8*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_FOCUS)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+76))= -1 ; +if(!qbevent)break;evnt(26070,17513,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_FOCUS)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+77))= 0 ; +if(!qbevent)break;evnt(26070,17513,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_FOCUS)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+81))=((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_FOCUS)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))->len; +if(!qbevent)break;evnt(26070,17513,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDERGBMIXER_LONG_CHANGEDWITHKEYS= -1 ; +if(!qbevent)break;evnt(26070,17514,"ide_methods.bas");}while(r); +} +S_55151:; +fornext_value6085= 1 ; +fornext_finalvalue6085= 3 ; +fornext_step6085= 1 ; +if (fornext_step6085<0) fornext_step_negative6085=1; else fornext_step_negative6085=0; +if (new_error) goto fornext_error6085; +goto fornext_entrylabel6085; +while(1){ +fornext_value6085=fornext_step6085+(*_FUNC_IDERGBMIXER_LONG_CHECKRGB); +fornext_entrylabel6085: +*_FUNC_IDERGBMIXER_LONG_CHECKRGB=fornext_value6085; +if (fornext_step_negative6085){ +if (fornext_value6085fornext_finalvalue6085) break; +} +fornext_error6085:; +if(qbevent){evnt(26070,17518,"ide_methods.bas");if(r)goto S_55151;} +do{ +qbs_set(_FUNC_IDERGBMIXER_STRING_A,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_CHECKRGB)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17519,"ide_methods.bas");}while(r); +S_55153:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDERGBMIXER_STRING_A->len> 3 )))||new_error){ +if(qbevent){evnt(26070,17520,"ide_methods.bas");if(r)goto S_55153;} +do{ +qbs_set(_FUNC_IDERGBMIXER_STRING_A,qbs_left(_FUNC_IDERGBMIXER_STRING_A, 3 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17520,"ide_methods.bas");}while(r); +} +S_55156:; +fornext_value6088= 1 ; +fornext_finalvalue6088=_FUNC_IDERGBMIXER_STRING_A->len; +fornext_step6088= 1 ; +if (fornext_step6088<0) fornext_step_negative6088=1; else fornext_step_negative6088=0; +if (new_error) goto fornext_error6088; +goto fornext_entrylabel6088; +while(1){ +fornext_value6088=fornext_step6088+(*_FUNC_IDERGBMIXER_LONG_I); +fornext_entrylabel6088: +*_FUNC_IDERGBMIXER_LONG_I=fornext_value6088; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative6088){ +if (fornext_value6088fornext_finalvalue6088) break; +} +fornext_error6088:; +if(qbevent){evnt(26070,17521,"ide_methods.bas");if(r)goto S_55156;} +do{ +*_FUNC_IDERGBMIXER_LONG_A=qbs_asc(_FUNC_IDERGBMIXER_STRING_A,*_FUNC_IDERGBMIXER_LONG_I); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17522,"ide_methods.bas");}while(r); +S_55158:; +if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_IDERGBMIXER_LONG_I== 2 ))&(-(qbs_asc(_FUNC_IDERGBMIXER_STRING_A, 1 )== 48 ))))||new_error){ +if(qbevent){evnt(26070,17523,"ide_methods.bas");if(r)goto S_55158;} +do{ +qbs_set(_FUNC_IDERGBMIXER_STRING_A,qbs_new_txt_len("0",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17523,"ide_methods.bas");}while(r); +do{ +goto fornext_exit_6087; +if(!qbevent)break;evnt(26070,17523,"ide_methods.bas");}while(r); +} +S_55162:; +if (((-(*_FUNC_IDERGBMIXER_LONG_A< 48 ))|(-(*_FUNC_IDERGBMIXER_LONG_A> 57 )))||new_error){ +if(qbevent){evnt(26070,17524,"ide_methods.bas");if(r)goto S_55162;} +do{ +qbs_set(_FUNC_IDERGBMIXER_STRING_A,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17524,"ide_methods.bas");}while(r); +do{ +goto fornext_exit_6087; +if(!qbevent)break;evnt(26070,17524,"ide_methods.bas");}while(r); +} +fornext_continue_6087:; +} +fornext_exit_6087:; +S_55167:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDERGBMIXER_STRING_A->len))||new_error){ +if(qbevent){evnt(26070,17526,"ide_methods.bas");if(r)goto S_55167;} +do{ +*_FUNC_IDERGBMIXER_LONG_A=qbr(func_val(_FUNC_IDERGBMIXER_STRING_A)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17527,"ide_methods.bas");}while(r); +S_55169:; +if ((-(*_FUNC_IDERGBMIXER_LONG_A> 255 ))||new_error){ +if(qbevent){evnt(26070,17528,"ide_methods.bas");if(r)goto S_55169;} +do{ +qbs_set(_FUNC_IDERGBMIXER_STRING_A,qbs_new_txt_len("255",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17528,"ide_methods.bas");}while(r); +} +S_55172:; +if ((-(*_FUNC_IDERGBMIXER_LONG_A< 0 ))||new_error){ +if(qbevent){evnt(26070,17529,"ide_methods.bas");if(r)goto S_55172;} +do{ +qbs_set(_FUNC_IDERGBMIXER_STRING_A,qbs_new_txt_len("0",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17529,"ide_methods.bas");}while(r); +} +}else{ +S_55176:; +if ((-(*_FUNC_IDERGBMIXER_LONG_CHANGEDWITHKEYS== -1 ))||new_error){ +if(qbevent){evnt(26070,17531,"ide_methods.bas");if(r)goto S_55176;} +do{ +qbs_set(_FUNC_IDERGBMIXER_STRING_A,qbs_new_txt_len("0",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17531,"ide_methods.bas");}while(r); +} +} +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERGBMIXER_LONG_CHECKRGB)-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),_FUNC_IDERGBMIXER_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17533,"ide_methods.bas");}while(r); +fornext_continue_6084:; +} +fornext_exit_6084:; +do{ +*_FUNC_IDERGBMIXER_ULONG_CURRENTCOLOR=func__rgb32(qbr(func_val(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))),qbr(func_val(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))),qbr(func_val(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17536,"ide_methods.bas");}while(r); +S_55183:; +if ((qbs_cleanup(qbs_tmp_base,*_FUNC_IDERGBMIXER_BYTE_NEWSYNTAX&((qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])),((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))))&(qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])),((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))))))||new_error){ +if(qbevent){evnt(26070,17537,"ide_methods.bas");if(r)goto S_55183;} +do{ +qbs_set(_FUNC_IDERGBMIXER_STRING_CURRENTRGB,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17538,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDERGBMIXER_STRING_CURRENTRGB,qbs_add(qbs_add(qbs_add(qbs_add(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])),qbs_new_txt_len(", ",2)),((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))),qbs_new_txt_len(", ",2)),((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17540,"ide_methods.bas");}while(r); +} +do{ +sub__palettecolor( 12 ,*_FUNC_IDERGBMIXER_ULONG_CURRENTCOLOR, 0 ,1); +if(!qbevent)break;evnt(26070,17542,"ide_methods.bas");}while(r); +S_55189:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 27 )))|(((-(*_FUNC_IDERGBMIXER_LONG_FOCUS== 6 ))&(-(*_FUNC_IDERGBMIXER_LONG_INFO!= 0 ))))))||new_error){ +if(qbevent){evnt(26070,17544,"ide_methods.bas");if(r)goto S_55189;} +do{ +*__LONG_IDESELECT=*_FUNC_IDERGBMIXER_LONG_PREV__ASCII_CHR_046__IDESELECT; +if(!qbevent)break;evnt(26070,17545,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,17546,"ide_methods.bas");}while(r); +} +S_55193:; +if ((((-(*_FUNC_IDERGBMIXER_LONG_FOCUS== 5 ))&(-(*_FUNC_IDERGBMIXER_LONG_INFO!= 0 ))))||new_error){ +if(qbevent){evnt(26070,17549,"ide_methods.bas");if(r)goto S_55193;} +S_55194:; +if ((qbs_cleanup(qbs_tmp_base,((qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])),((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))))&(qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])),((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))))))||new_error){ +if(qbevent){evnt(26070,17551,"ide_methods.bas");if(r)goto S_55194;} +do{ +qbs_set(_FUNC_IDERGBMIXER_STRING_CURRENTRGB,qbs_add(qbs_add(qbs_new_txt_len("_RGB32(",7),((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17552,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDERGBMIXER_STRING_CURRENTRGB,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("_RGB32(",7),((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))),qbs_new_txt_len(", ",2)),((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))),qbs_new_txt_len(", ",2)),((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17554,"ide_methods.bas");}while(r); +} +do{ +sub__clipboard(_FUNC_IDERGBMIXER_STRING_CURRENTRGB); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17557,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESELECT=*_FUNC_IDERGBMIXER_LONG_PREV__ASCII_CHR_046__IDESELECT; +if(!qbevent)break;evnt(26070,17558,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,17559,"ide_methods.bas");}while(r); +} +S_55203:; +if ((qbs_cleanup(qbs_tmp_base,((-(*_FUNC_IDERGBMIXER_LONG_FOCUS== 4 ))&(-(*_FUNC_IDERGBMIXER_LONG_INFO!= 0 )))|((-(*_FUNC_IDERGBMIXER_LONG_FOCUS== 1 ))&(qbs_equal(__STRING_K,func_chr( 13 ))))|((-(*_FUNC_IDERGBMIXER_LONG_FOCUS== 2 ))&(qbs_equal(__STRING_K,func_chr( 13 ))))|((-(*_FUNC_IDERGBMIXER_LONG_FOCUS== 3 ))&(qbs_equal(__STRING_K,func_chr( 13 ))))|((-(*_FUNC_IDERGBMIXER_LONG_FOCUS== 4 ))&(qbs_equal(__STRING_K,func_chr( 13 ))))))||new_error){ +if(qbevent){evnt(26070,17566,"ide_methods.bas");if(r)goto S_55203;} +S_55204:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDERGBMIXER_STRING_CURRENTLINE,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,17567,"ide_methods.bas");if(r)goto S_55204;} +do{ +qbs_set(_FUNC_IDERGBMIXER_STRING_CURRENTLINE,FUNC_IDEGETLINE(__LONG_IDECY)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17567,"ide_methods.bas");}while(r); +} +S_55207:; +if ((*_FUNC_IDERGBMIXER_LONG_EDITING)||new_error){ +if(qbevent){evnt(26070,17568,"ide_methods.bas");if(r)goto S_55207;} +S_55208:; +if ((-(*_FUNC_IDERGBMIXER_LONG_INSERTRGBAT> 0 ))||new_error){ +if(qbevent){evnt(26070,17570,"ide_methods.bas");if(r)goto S_55208;} +do{ +*_FUNC_IDERGBMIXER_LONG_FINDBRACKET1=func_instr(*_FUNC_IDERGBMIXER_LONG_INSERTRGBAT,_FUNC_IDERGBMIXER_STRING_CURRENTLINE,qbs_new_txt_len("(",1),0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17571,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDERGBMIXER_LONG_FINDBRACKET2=func_instr(*_FUNC_IDERGBMIXER_LONG_FINDBRACKET1,_FUNC_IDERGBMIXER_STRING_CURRENTLINE,qbs_new_txt_len(")",1),0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17572,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDERGBMIXER_STRING_OLDRGB,func_mid(_FUNC_IDERGBMIXER_STRING_CURRENTLINE,*_FUNC_IDERGBMIXER_LONG_FINDBRACKET1,*_FUNC_IDERGBMIXER_LONG_FINDBRACKET2-*_FUNC_IDERGBMIXER_LONG_FINDBRACKET1+ 1 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17573,"ide_methods.bas");}while(r); +S_55212:; +if ((qbs_cleanup(qbs_tmp_base,((*_FUNC_IDERGBMIXER_BYTE_NEWSYNTAX&(-(FUNC_COUNTITEMS(_FUNC_IDERGBMIXER_STRING_OLDRGB,qbs_new_txt_len(",",1))== 1 ))))|(-(FUNC_COUNTITEMS(_FUNC_IDERGBMIXER_STRING_OLDRGB,qbs_new_txt_len(",",1))== 3 ))))||new_error){ +if(qbevent){evnt(26070,17574,"ide_methods.bas");if(r)goto S_55212;} +S_55213:; +fornext_value6092=*_FUNC_IDERGBMIXER_LONG_FINDBRACKET2; +fornext_finalvalue6092=*_FUNC_IDERGBMIXER_LONG_FINDBRACKET1; +fornext_step6092= -1 ; +if (fornext_step6092<0) fornext_step_negative6092=1; else fornext_step_negative6092=0; +if (new_error) goto fornext_error6092; +goto fornext_entrylabel6092; +while(1){ +fornext_value6092=fornext_step6092+(*_FUNC_IDERGBMIXER_LONG_I); +fornext_entrylabel6092: +*_FUNC_IDERGBMIXER_LONG_I=fornext_value6092; +if (fornext_step_negative6092){ +if (fornext_value6092fornext_finalvalue6092) break; +} +fornext_error6092:; +if(qbevent){evnt(26070,17575,"ide_methods.bas");if(r)goto S_55213;} +S_55214:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_IDERGBMIXER_STRING_CURRENTLINE,*_FUNC_IDERGBMIXER_LONG_I)== 44 )))||new_error){ +if(qbevent){evnt(26070,17576,"ide_methods.bas");if(r)goto S_55214;} +do{ +*_FUNC_IDERGBMIXER_LONG_FINDBRACKET2=*_FUNC_IDERGBMIXER_LONG_I; +if(!qbevent)break;evnt(26070,17576,"ide_methods.bas");}while(r); +do{ +goto fornext_exit_6091; +if(!qbevent)break;evnt(26070,17576,"ide_methods.bas");}while(r); +} +fornext_continue_6091:; +} +fornext_exit_6091:; +} +do{ +qbs_set(_FUNC_IDERGBMIXER_STRING_NEWLINE,qbs_left(_FUNC_IDERGBMIXER_STRING_CURRENTLINE,*_FUNC_IDERGBMIXER_LONG_FINDBRACKET1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17579,"ide_methods.bas");}while(r); +S_55221:; +if ((-(*_FUNC_IDERGBMIXER_LONG_FINDBRACKET2== 0 ))||new_error){ +if(qbevent){evnt(26070,17580,"ide_methods.bas");if(r)goto S_55221;} +do{ +*_FUNC_IDERGBMIXER_LONG_FINDBRACKET2=*_FUNC_IDERGBMIXER_LONG_FINDBRACKET1; +if(!qbevent)break;evnt(26070,17580,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDERGBMIXER_STRING_NEWLINE,qbs_add(_FUNC_IDERGBMIXER_STRING_NEWLINE,_FUNC_IDERGBMIXER_STRING_CURRENTRGB)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17581,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDERGBMIXER_STRING_NEWLINE,qbs_add(_FUNC_IDERGBMIXER_STRING_NEWLINE,func_mid(_FUNC_IDERGBMIXER_STRING_CURRENTLINE,*_FUNC_IDERGBMIXER_LONG_FINDBRACKET2,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17582,"ide_methods.bas");}while(r); +do{ +*__INTEGER_IDECHANGEMADE= 1 ; +if(!qbevent)break;evnt(26070,17583,"ide_methods.bas");}while(r); +do{ +*__BYTE_STARTPAUSEDPENDING= 0 ; +if(!qbevent)break;evnt(26070,17584,"ide_methods.bas");}while(r); +do{ +SUB_IDESETLINE(__LONG_IDECY,_FUNC_IDERGBMIXER_STRING_NEWLINE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17585,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESELECTX1=*_FUNC_IDERGBMIXER_LONG_FINDBRACKET1+ 1 ; +if(!qbevent)break;evnt(26070,17588,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECX=*__LONG_IDESELECTX1+_FUNC_IDERGBMIXER_STRING_CURRENTRGB->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17589,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESELECTY1=*__LONG_IDECY; +if(!qbevent)break;evnt(26070,17590,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDERGBMIXER_LONG_PREV__ASCII_CHR_046__IDESELECT= 1 ; +if(!qbevent)break;evnt(26070,17591,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDERGBMIXER_STRING_CURRENTRGB,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17592,"ide_methods.bas");}while(r); +} +} +S_55236:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDERGBMIXER_STRING_CURRENTRGB->len))||new_error){ +if(qbevent){evnt(26070,17596,"ide_methods.bas");if(r)goto S_55236;} +S_55237:; +if ((qbs_cleanup(qbs_tmp_base,((qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])),((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))))&(qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])),((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])])))))))||new_error){ +if(qbevent){evnt(26070,17598,"ide_methods.bas");if(r)goto S_55237;} +do{ +qbs_set(_FUNC_IDERGBMIXER_STRING_CURRENTRGB,qbs_add(qbs_add(qbs_new_txt_len("_RGB32(",7),((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17599,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDERGBMIXER_STRING_CURRENTRGB,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("_RGB32(",7),((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))),qbs_new_txt_len(", ",2)),((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 2 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))),qbs_new_txt_len(", ",2)),((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDERGBMIXER_ARRAY_UDT_O[0])+((array_check(( 3 )-_FUNC_IDERGBMIXER_ARRAY_UDT_O[4],_FUNC_IDERGBMIXER_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17601,"ide_methods.bas");}while(r); +} +} +do{ +qbs_set(_FUNC_IDERGBMIXER_STRING_IDERGBMIXER,_FUNC_IDERGBMIXER_STRING_CURRENTRGB); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17605,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESELECT=*_FUNC_IDERGBMIXER_LONG_PREV__ASCII_CHR_046__IDESELECT; +if(!qbevent)break;evnt(26070,17606,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,17607,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDERGBMIXER_LONG_MOUSEDOWN= 0 ; +if(!qbevent)break;evnt(26070,17612,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDERGBMIXER_LONG_MOUSEUP= 0 ; +if(!qbevent)break;evnt(26070,17613,"ide_methods.bas");}while(r); +dl_continue_6061:; +}while(1); +dl_exit_6061:; +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free240.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_IDERGBMIXER_STRING_IDERGBMIXER);return _FUNC_IDERGBMIXER_STRING_IDERGBMIXER; +} +int32 FUNC_COUNTITEMS(qbs*_FUNC_COUNTITEMS_STRING_SEARCHSTRING,qbs*_FUNC_COUNTITEMS_STRING_ITEM){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data241.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +S_55250:; +do{ +if(qbevent){evnt(26070,17618,"ide_methods.bas");if(r)goto S_55250;} +do{ +*_FUNC_COUNTITEMS_LONG_FOUND=func_instr(*_FUNC_COUNTITEMS_LONG_FOUND+ 1 ,_FUNC_COUNTITEMS_STRING_SEARCHSTRING,_FUNC_COUNTITEMS_STRING_ITEM,0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17619,"ide_methods.bas");}while(r); +S_55252:; +if ((-(*_FUNC_COUNTITEMS_LONG_FOUND== 0 ))||new_error){ +if(qbevent){evnt(26070,17620,"ide_methods.bas");if(r)goto S_55252;} +do{ +goto dl_exit_6097; +if(!qbevent)break;evnt(26070,17620,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_COUNTITEMS_LONG_TOTAL=*_FUNC_COUNTITEMS_LONG_TOTAL+ 1 ; +if(!qbevent)break;evnt(26070,17621,"ide_methods.bas");}while(r); +dl_continue_6097:; +}while(1); +dl_exit_6097:; +do{ +*_FUNC_COUNTITEMS_LONG_COUNTITEMS=*_FUNC_COUNTITEMS_LONG_TOTAL; +if(!qbevent)break;evnt(26070,17623,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free241.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +return *_FUNC_COUNTITEMS_LONG_COUNTITEMS; +} +void SUB_IDERESTRICT417(int32*_SUB_IDERESTRICT417_LONG_P417){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data242.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +*_SUB_IDERESTRICT417_LONG_X= 0 ; +if(!qbevent)break;evnt(26070,17628,"ide_methods.bas");}while(r); +S_55259:; +if ((*_SUB_IDERESTRICT417_LONG_P417& 4 )||new_error){ +if(qbevent){evnt(26070,17629,"ide_methods.bas");if(r)goto S_55259;} +do{ +*_SUB_IDERESTRICT417_LONG_X=*_SUB_IDERESTRICT417_LONG_X+ 1 ; +if(!qbevent)break;evnt(26070,17629,"ide_methods.bas");}while(r); +} +S_55262:; +if ((*_SUB_IDERESTRICT417_LONG_P417& 8 )||new_error){ +if(qbevent){evnt(26070,17630,"ide_methods.bas");if(r)goto S_55262;} +do{ +*_SUB_IDERESTRICT417_LONG_X=*_SUB_IDERESTRICT417_LONG_X+ 1 ; +if(!qbevent)break;evnt(26070,17630,"ide_methods.bas");}while(r); +} +S_55265:; +if ((-(*_SUB_IDERESTRICT417_LONG_X> 1 ))||new_error){ +if(qbevent){evnt(26070,17631,"ide_methods.bas");if(r)goto S_55265;} +do{ +*_SUB_IDERESTRICT417_LONG_P417=*_SUB_IDERESTRICT417_LONG_P417& 243 ; +if(!qbevent)break;evnt(26070,17631,"ide_methods.bas");}while(r); +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free242.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +int32 FUNC_CTRL2(){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data243.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +S_55268:; +if ((*__LONG_MACOSX)||new_error){ +if(qbevent){evnt(26070,17644,"ide_methods.bas");if(r)goto S_55268;} +S_55269:; +if ((func__keydown( 100309 ))||new_error){ +if(qbevent){evnt(26070,17645,"ide_methods.bas");if(r)goto S_55269;} +do{ +*_FUNC_CTRL2_LONG_CTRL2= 1 ; +if(!qbevent)break;evnt(26070,17645,"ide_methods.bas");}while(r); +} +S_55272:; +if ((func__keydown( 100310 ))||new_error){ +if(qbevent){evnt(26070,17646,"ide_methods.bas");if(r)goto S_55272;} +do{ +*_FUNC_CTRL2_LONG_CTRL2= 1 ; +if(!qbevent)break;evnt(26070,17646,"ide_methods.bas");}while(r); +} +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free243.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +return *_FUNC_CTRL2_LONG_CTRL2; +} +void SUB_GETINPUT(){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data244.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +if(!qbevent)break;evnt(26070,17653,"ide_methods.bas");}while(r); +S_55277:; +if ((*__LONG_ICHECKLATER)||new_error){ +if(qbevent){evnt(26070,17655,"ide_methods.bas");if(r)goto S_55277;} +do{ +*__LONG_ICHECKLATER= 0 ; +if(!qbevent)break;evnt(26070,17655,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,17655,"ide_methods.bas");}while(r); +} +do{ +*__LONG_ICHANGED= 0 ; +if(!qbevent)break;evnt(26070,17657,"ide_methods.bas");}while(r); +do{ +*__LONG_KSTATECHANGED= 0 ; +if(!qbevent)break;evnt(26070,17658,"ide_methods.bas");}while(r); +do{ +*__LONG_MCLICK= 0 ; +if(!qbevent)break;evnt(26070,17659,"ide_methods.bas");}while(r); +do{ +*__LONG_MCLICK2= 0 ; +if(!qbevent)break;evnt(26070,17659,"ide_methods.bas");}while(r); +do{ +*__LONG_MRELEASE= 0 ; +if(!qbevent)break;evnt(26070,17659,"ide_methods.bas");}while(r); +do{ +*__LONG_MRELEASE2= 0 ; +if(!qbevent)break;evnt(26070,17659,"ide_methods.bas");}while(r); +do{ +*__LONG_MWHEEL= 0 ; +if(!qbevent)break;evnt(26070,17660,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_K,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17661,"ide_methods.bas");}while(r); +do{ +*__LONG_KB= 0 ; +if(!qbevent)break;evnt(26070,17661,"ide_methods.bas");}while(r); +do{ +*__LONG_MOB=*__LONG_MB; +if(!qbevent)break;evnt(26070,17662,"ide_methods.bas");}while(r); +do{ +*__LONG_MOB2=*__LONG_MB2; +if(!qbevent)break;evnt(26070,17662,"ide_methods.bas");}while(r); +do{ +*__LONG_KOALT=*__LONG_KALT; +if(!qbevent)break;evnt(26070,17663,"ide_methods.bas");}while(r); +do{ +*__LONG_KALTPRESS= 0 ; +if(!qbevent)break;evnt(26070,17663,"ide_methods.bas");}while(r); +do{ +*__LONG_KALTRELEASE= 0 ; +if(!qbevent)break;evnt(26070,17663,"ide_methods.bas");}while(r); +S_55295:; +do{ +if(qbevent){evnt(26070,17665,"ide_methods.bas");if(r)goto S_55295;} +S_55296:; +dl_continue_6098:; +}while((!(qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_inkey(),qbs_new_txt_len("",0)))))&&(!new_error)); +dl_exit_6098:; +if(qbevent){evnt(26070,17665,"ide_methods.bas");if(r)goto S_55296;} +do{ +*_SUB_GETINPUT_LONG_K=func__keyhit(); +if(!qbevent)break;evnt(26070,17667,"ide_methods.bas");}while(r); +S_55298:; +if (((func__keydown( 100307 )|func__keydown( 100308 ))&((-(*_SUB_GETINPUT_LONG_K>= -57 ))&(-(*_SUB_GETINPUT_LONG_K<= -48 ))))||new_error){ +if(qbevent){evnt(26070,17670,"ide_methods.bas");if(r)goto S_55298;} +do{ +qbs_set(_SUB_GETINPUT_STRING_ASCVALUE,qbs_add(_SUB_GETINPUT_STRING_ASCVALUE,func_chr(-(*_SUB_GETINPUT_LONG_K)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17671,"ide_methods.bas");}while(r); +} +S_55301:; +if (((~(func__keydown( 100307 )))&(~(func__keydown( 100308 ))))||new_error){ +if(qbevent){evnt(26070,17673,"ide_methods.bas");if(r)goto S_55301;} +S_55302:; +if ((qbs_cleanup(qbs_tmp_base,_SUB_GETINPUT_STRING_ASCVALUE->len))||new_error){ +if(qbevent){evnt(26070,17674,"ide_methods.bas");if(r)goto S_55302;} +do{ +*__LONG_KB=qbr(func_val(qbs_right(_SUB_GETINPUT_STRING_ASCVALUE, 3 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17675,"ide_methods.bas");}while(r); +S_55304:; +if (((-(*__LONG_KB> 0 ))&(-(*__LONG_KB< 256 )))||new_error){ +if(qbevent){evnt(26070,17676,"ide_methods.bas");if(r)goto S_55304;} +do{ +qbs_set(__STRING_K,func_chr(*__LONG_KB)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17677,"ide_methods.bas");}while(r); +do{ +*_SUB_GETINPUT_LONG_K=*__LONG_KB; +if(!qbevent)break;evnt(26070,17678,"ide_methods.bas");}while(r); +do{ +*__LONG_ICHANGED= -1 ; +if(!qbevent)break;evnt(26070,17679,"ide_methods.bas");}while(r); +do{ +*__BYTE_ALTSPECIAL= -1 ; +if(!qbevent)break;evnt(26070,17680,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_GETINPUT_STRING_ASCVALUE,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17682,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,17683,"ide_methods.bas");}while(r); +} +} +S_55314:; +if ((*_SUB_GETINPUT_LONG_K)||new_error){ +if(qbevent){evnt(26070,17688,"ide_methods.bas");if(r)goto S_55314;} +S_55315:; +if ((-(*_SUB_GETINPUT_LONG_K< 0 ))||new_error){ +if(qbevent){evnt(26070,17689,"ide_methods.bas");if(r)goto S_55315;} +do{ +*_SUB_GETINPUT_LONG_K=-(*_SUB_GETINPUT_LONG_K); +if(!qbevent)break;evnt(26070,17689,"ide_methods.bas");}while(r); +do{ +*_SUB_GETINPUT_LONG_RELEASE= 1 ; +if(!qbevent)break;evnt(26070,17689,"ide_methods.bas");}while(r); +} +S_55319:; +if (((-(*_SUB_GETINPUT_LONG_K== 100304 ))|(-(*_SUB_GETINPUT_LONG_K== 100303 )))||new_error){ +if(qbevent){evnt(26070,17691,"ide_methods.bas");if(r)goto S_55319;} +S_55320:; +if ((-(*_SUB_GETINPUT_LONG_RELEASE== 1 ))||new_error){ +if(qbevent){evnt(26070,17692,"ide_methods.bas");if(r)goto S_55320;} +do{ +*__LONG_KSHIFT= 0 ; +if(!qbevent)break;evnt(26070,17692,"ide_methods.bas");}while(r); +}else{ +do{ +*__LONG_KSHIFT= -1 ; +if(!qbevent)break;evnt(26070,17692,"ide_methods.bas");}while(r); +} +do{ +*__LONG_ICHANGED= -1 ; +if(!qbevent)break;evnt(26070,17693,"ide_methods.bas");}while(r); +do{ +*__LONG_KSTATECHANGED= -1 ; +if(!qbevent)break;evnt(26070,17693,"ide_methods.bas");}while(r); +} +S_55328:; +if (((-(*_SUB_GETINPUT_LONG_K== 100308 ))|(-(*_SUB_GETINPUT_LONG_K== 100307 )))||new_error){ +if(qbevent){evnt(26070,17695,"ide_methods.bas");if(r)goto S_55328;} +S_55329:; +if ((-(*_SUB_GETINPUT_LONG_RELEASE== 1 ))||new_error){ +if(qbevent){evnt(26070,17696,"ide_methods.bas");if(r)goto S_55329;} +do{ +*__LONG_KALT= 0 ; +if(!qbevent)break;evnt(26070,17697,"ide_methods.bas");}while(r); +do{ +*__LONG_KALTRELEASE= -1 ; +if(!qbevent)break;evnt(26070,17697,"ide_methods.bas");}while(r); +}else{ +do{ +*__LONG_KALT= -1 ; +if(!qbevent)break;evnt(26070,17699,"ide_methods.bas");}while(r); +do{ +*__LONG_KALTPRESS= -1 ; +if(!qbevent)break;evnt(26070,17699,"ide_methods.bas");}while(r); +} +do{ +*__LONG_ICHANGED= -1 ; +if(!qbevent)break;evnt(26070,17701,"ide_methods.bas");}while(r); +do{ +*__LONG_KSTATECHANGED= -1 ; +if(!qbevent)break;evnt(26070,17701,"ide_methods.bas");}while(r); +} +S_55339:; +if (((-(*_SUB_GETINPUT_LONG_K== 100306 ))|(-(*_SUB_GETINPUT_LONG_K== 100305 )))||new_error){ +if(qbevent){evnt(26070,17703,"ide_methods.bas");if(r)goto S_55339;} +S_55340:; +if ((-(*_SUB_GETINPUT_LONG_RELEASE== 1 ))||new_error){ +if(qbevent){evnt(26070,17704,"ide_methods.bas");if(r)goto S_55340;} +do{ +*__LONG_KCTRL= 0 ; +if(!qbevent)break;evnt(26070,17704,"ide_methods.bas");}while(r); +do{ +*__LONG_KCONTROL= 0 ; +if(!qbevent)break;evnt(26070,17704,"ide_methods.bas");}while(r); +}else{ +do{ +*__LONG_KCTRL= -1 ; +if(!qbevent)break;evnt(26070,17704,"ide_methods.bas");}while(r); +do{ +*__LONG_KCONTROL= -1 ; +if(!qbevent)break;evnt(26070,17704,"ide_methods.bas");}while(r); +} +do{ +*__LONG_ICHANGED= -1 ; +if(!qbevent)break;evnt(26070,17705,"ide_methods.bas");}while(r); +do{ +*__LONG_KSTATECHANGED= -1 ; +if(!qbevent)break;evnt(26070,17705,"ide_methods.bas");}while(r); +} +S_55350:; +if (((-(*_SUB_GETINPUT_LONG_K== 100310 ))|(-(*_SUB_GETINPUT_LONG_K== 100309 )))||new_error){ +if(qbevent){evnt(26070,17707,"ide_methods.bas");if(r)goto S_55350;} +S_55351:; +if ((-(*_SUB_GETINPUT_LONG_RELEASE== 1 ))||new_error){ +if(qbevent){evnt(26070,17708,"ide_methods.bas");if(r)goto S_55351;} +do{ +*__LONG_KCONTROL= 0 ; +if(!qbevent)break;evnt(26070,17708,"ide_methods.bas");}while(r); +}else{ +do{ +*__LONG_KCONTROL= -1 ; +if(!qbevent)break;evnt(26070,17708,"ide_methods.bas");}while(r); +} +do{ +*__LONG_ICHANGED= -1 ; +if(!qbevent)break;evnt(26070,17709,"ide_methods.bas");}while(r); +do{ +*__LONG_KSTATECHANGED= -1 ; +if(!qbevent)break;evnt(26070,17709,"ide_methods.bas");}while(r); +} +S_55359:; +if ((-(*_SUB_GETINPUT_LONG_RELEASE== 0 ))||new_error){ +if(qbevent){evnt(26070,17712,"ide_methods.bas");if(r)goto S_55359;} +do{ +*__LONG_ICHANGED= -1 ; +if(!qbevent)break;evnt(26070,17713,"ide_methods.bas");}while(r); +S_55361:; +if ((-(*_SUB_GETINPUT_LONG_K<= 255 ))||new_error){ +if(qbevent){evnt(26070,17714,"ide_methods.bas");if(r)goto S_55361;} +do{ +qbs_set(__STRING_K,func_chr(*_SUB_GETINPUT_LONG_K)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17714,"ide_methods.bas");}while(r); +} +S_55364:; +if (((-(*_SUB_GETINPUT_LONG_K>= 256 ))&(-(*_SUB_GETINPUT_LONG_K<= 65535 ))&((-((*_SUB_GETINPUT_LONG_K& 255 )== 0 ))))||new_error){ +if(qbevent){evnt(26070,17715,"ide_methods.bas");if(r)goto S_55364;} +do{ +qbs_set(__STRING_K,qbs_add(func_chr( 0 ),func_chr(*_SUB_GETINPUT_LONG_K/ 256 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17715,"ide_methods.bas");}while(r); +} +do{ +*__LONG_KB=*_SUB_GETINPUT_LONG_K; +if(!qbevent)break;evnt(26070,17716,"ide_methods.bas");}while(r); +} +S_55369:; +if ((*__LONG_ICHANGED)||new_error){ +if(qbevent){evnt(26070,17718,"ide_methods.bas");if(r)goto S_55369;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,17718,"ide_methods.bas");}while(r); +} +} +S_55373:; +while((func__mouseinput(NULL,0))||new_error){ +if(qbevent){evnt(26070,17720,"ide_methods.bas");if(r)goto S_55373;} +do{ +*__LONG_ICHANGED= 1 ; +if(!qbevent)break;evnt(26070,17721,"ide_methods.bas");}while(r); +S_55375:; +if ((*__BYTE_MOUSEBUTTONSWAPPED)||new_error){ +if(qbevent){evnt(26070,17722,"ide_methods.bas");if(r)goto S_55375;} +do{ +*__LONG_MB=func__mousebutton( 2 ,NULL,0); +if(!qbevent)break;evnt(26070,17723,"ide_methods.bas");}while(r); +do{ +*__LONG_MB2=func__mousebutton( 1 ,NULL,0); +if(!qbevent)break;evnt(26070,17723,"ide_methods.bas");}while(r); +}else{ +do{ +*__LONG_MB=func__mousebutton( 1 ,NULL,0); +if(!qbevent)break;evnt(26070,17725,"ide_methods.bas");}while(r); +do{ +*__LONG_MB2=func__mousebutton( 2 ,NULL,0); +if(!qbevent)break;evnt(26070,17725,"ide_methods.bas");}while(r); +} +do{ +*__LONG_MWHEEL=*__LONG_MWHEEL+func__mousewheel(NULL,0); +if(!qbevent)break;evnt(26070,17727,"ide_methods.bas");}while(r); +do{ +*__LONG_MX=qbr(func__mousex(NULL,0)); +if(!qbevent)break;evnt(26070,17728,"ide_methods.bas");}while(r); +do{ +*__LONG_MY=qbr(func__mousey(NULL,0)); +if(!qbevent)break;evnt(26070,17728,"ide_methods.bas");}while(r); +S_55385:; +if (((-(*__LONG_MB!= 0 ))&(-(*__LONG_MOB== 0 )))||new_error){ +if(qbevent){evnt(26070,17729,"ide_methods.bas");if(r)goto S_55385;} +do{ +*__LONG_MCLICK= -1 ; +if(!qbevent)break;evnt(26070,17729,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,17729,"ide_methods.bas");}while(r); +} +S_55389:; +if (((-(*__LONG_MB2!= 0 ))&(-(*__LONG_MOB2== 0 )))||new_error){ +if(qbevent){evnt(26070,17730,"ide_methods.bas");if(r)goto S_55389;} +do{ +*__LONG_MCLICK2= -1 ; +if(!qbevent)break;evnt(26070,17730,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,17730,"ide_methods.bas");}while(r); +} +S_55393:; +if (((-(*__LONG_MB== 0 ))&(-(*__LONG_MOB!= 0 )))||new_error){ +if(qbevent){evnt(26070,17731,"ide_methods.bas");if(r)goto S_55393;} +do{ +*__LONG_MRELEASE= -1 ; +if(!qbevent)break;evnt(26070,17731,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,17731,"ide_methods.bas");}while(r); +} +S_55397:; +if (((-(*__LONG_MB2== 0 ))&(-(*__LONG_MOB2!= 0 )))||new_error){ +if(qbevent){evnt(26070,17732,"ide_methods.bas");if(r)goto S_55397;} +do{ +*__LONG_MRELEASE2= -1 ; +if(!qbevent)break;evnt(26070,17732,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,17732,"ide_methods.bas");}while(r); +} +dl_continue_6100:; +} +dl_exit_6100:; +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free244.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +void SUB_CLEARMOUSE(){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data245.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +*__LONG_ICHANGED= 0 ; +if(!qbevent)break;evnt(26070,17737,"ide_methods.bas");}while(r); +do{ +*__LONG_MB= 0 ; +if(!qbevent)break;evnt(26070,17738,"ide_methods.bas");}while(r); +do{ +*__LONG_MB2= 0 ; +if(!qbevent)break;evnt(26070,17739,"ide_methods.bas");}while(r); +do{ +*__LONG_MCLICK= 0 ; +if(!qbevent)break;evnt(26070,17740,"ide_methods.bas");}while(r); +do{ +*__LONG_MRELEASE= 0 ; +if(!qbevent)break;evnt(26070,17741,"ide_methods.bas");}while(r); +S_55407:; +while((func__mousebutton( 1 ,NULL,0)|func__mousebutton( 2 ,NULL,0))||new_error){ +if(qbevent){evnt(26070,17742,"ide_methods.bas");if(r)goto S_55407;} +do{ +*_SUB_CLEARMOUSE_LONG_I=func__mouseinput(NULL,0); +if(!qbevent)break;evnt(26070,17743,"ide_methods.bas");}while(r); +dl_continue_6101:; +} +dl_exit_6101:; +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free245.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +void SUB_HELP_SHOWTEXT(){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data246.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +if(!qbevent)break;evnt(26070,17750,"ide_methods.bas");}while(r); +S_55411:; +if ((qbs_cleanup(qbs_tmp_base,(-(*_SUB_HELP_SHOWTEXT_LONG_SETUP== 0 ))&(-(func_ubound(__ARRAY_STRING_BACK,1,1)== 1 ))))||new_error){ +if(qbevent){evnt(26070,17751,"ide_methods.bas");if(r)goto S_55411;} +do{ +*_SUB_HELP_SHOWTEXT_LONG_SETUP= 1 ; +if(!qbevent)break;evnt(26070,17752,"ide_methods.bas");}while(r); +S_55413:; +if ((-(*__BYTE_IDECONTEXTHELPSF== 0 ))||new_error){ +if(qbevent){evnt(26070,17753,"ide_methods.bas");if(r)goto S_55413;} +do{ +qbs_set(_SUB_HELP_SHOWTEXT_STRING_A,FUNC_WIKI(((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(26070,17754,"ide_methods.bas");}while(r); +do{ +SUB_WIKIPARSE(_SUB_HELP_SHOWTEXT_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17755,"ide_methods.bas");}while(r); +} +} +do{ if (__ARRAY_LONG_HELP_LINELEN[2]&2){ error(10); @@ -186864,278 +186864,278 @@ __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(26070,17759,"ide_methods.bas");}while(r); -do{ -*_SUB_HELP_SHOWTEXT_LONG_SY=*__LONG_HELP_WY1; -if(!qbevent)break;evnt(26070,17761,"ide_methods.bas");}while(r); -S_55420:; -fornext_value6103=*__LONG_HELP_SY; -fornext_finalvalue6103=*__LONG_HELP_SY+*__LONG_HELP_WH- 1 ; -fornext_step6103= 1 ; -if (fornext_step6103<0) fornext_step_negative6103=1; else fornext_step_negative6103=0; -if (new_error) goto fornext_error6103; -goto fornext_entrylabel6103; -while(1){ -fornext_value6103=fornext_step6103+(*_SUB_HELP_SHOWTEXT_LONG_Y); -fornext_entrylabel6103: -*_SUB_HELP_SHOWTEXT_LONG_Y=fornext_value6103; -if (fornext_step_negative6103){ -if (fornext_value6103fornext_finalvalue6103) break; -} -fornext_error6103:; -if(qbevent){evnt(26070,17762,"ide_methods.bas");if(r)goto S_55420;} -S_55421:; -if ((-(*_SUB_HELP_SHOWTEXT_LONG_Y<=*__LONG_HELP_H))||new_error){ -if(qbevent){evnt(26070,17763,"ide_methods.bas");if(r)goto S_55421;} -do{ -*_SUB_HELP_SHOWTEXT_LONG_L=string2l(func_mid(__STRING_HELP_LINE,((*_SUB_HELP_SHOWTEXT_LONG_Y- 1 )* 4 )+( 1 ), 4 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17764,"ide_methods.bas");}while(r); -do{ -*_SUB_HELP_SHOWTEXT_LONG_X=*_SUB_HELP_SHOWTEXT_LONG_L; -if(!qbevent)break;evnt(26070,17765,"ide_methods.bas");}while(r); -do{ -*_SUB_HELP_SHOWTEXT_LONG_X3= 1 ; -if(!qbevent)break;evnt(26070,17766,"ide_methods.bas");}while(r); -do{ -*_SUB_HELP_SHOWTEXT_LONG_SX=*__LONG_HELP_WX1; -if(!qbevent)break;evnt(26070,17768,"ide_methods.bas");}while(r); -do{ -*_SUB_HELP_SHOWTEXT_LONG_C=qbs_asc(__STRING_HELP_TXT,*_SUB_HELP_SHOWTEXT_LONG_X); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17769,"ide_methods.bas");}while(r); -do{ -*_SUB_HELP_SHOWTEXT_LONG_COL=qbs_asc(__STRING_HELP_TXT,*_SUB_HELP_SHOWTEXT_LONG_X+ 1 ); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17769,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*_SUB_HELP_SHOWTEXT_LONG_SY,*_SUB_HELP_SHOWTEXT_LONG_SX,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(26070,17770,"ide_methods.bas");}while(r); -S_55429:; -while((!(-(*_SUB_HELP_SHOWTEXT_LONG_COL> 127 )))||new_error){ -if(qbevent){evnt(26070,17771,"ide_methods.bas");if(r)goto S_55429;} -do{ -qbg_sub_color(*_SUB_HELP_SHOWTEXT_LONG_COL& 15 ,*_SUB_HELP_SHOWTEXT_LONG_COL/ 16 ,NULL,3); -if(!qbevent)break;evnt(26070,17772,"ide_methods.bas");}while(r); -S_55431:; -if (((-(*__LONG_IDESYSTEM== 3 ))&(-(*__LONG_HELP_SELECT== 2 )))||new_error){ -if(qbevent){evnt(26070,17773,"ide_methods.bas");if(r)goto S_55431;} -S_55432:; -if (((-(*_SUB_HELP_SHOWTEXT_LONG_Y>=*__LONG_HELP_SELY1))&(-(*_SUB_HELP_SHOWTEXT_LONG_Y<=*__LONG_HELP_SELY2)))||new_error){ -if(qbevent){evnt(26070,17774,"ide_methods.bas");if(r)goto S_55432;} -S_55433:; -if (((-(*_SUB_HELP_SHOWTEXT_LONG_X3>=*__LONG_HELP_SELX1))&(-(*_SUB_HELP_SHOWTEXT_LONG_X3<=*__LONG_HELP_SELX2)))||new_error){ -if(qbevent){evnt(26070,17775,"ide_methods.bas");if(r)goto S_55433;} -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,17776,"ide_methods.bas");}while(r); -} -} -} -S_55438:; -if ((-(*_SUB_HELP_SHOWTEXT_LONG_X3>=*__LONG_HELP_SX))||new_error){ -if(qbevent){evnt(26070,17780,"ide_methods.bas");if(r)goto S_55438;} -S_55439:; -if ((-(*_SUB_HELP_SHOWTEXT_LONG_SX<=*__LONG_HELP_WX2))||new_error){ -if(qbevent){evnt(26070,17781,"ide_methods.bas");if(r)goto S_55439;} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,func_chr(*_SUB_HELP_SHOWTEXT_LONG_C)); -if (new_error) goto skip6105; -makefit(tqbs); -qbs_print(tqbs,0); -skip6105: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17782,"ide_methods.bas");}while(r); -do{ -*_SUB_HELP_SHOWTEXT_LONG_SX=*_SUB_HELP_SHOWTEXT_LONG_SX+ 1 ; -if(!qbevent)break;evnt(26070,17783,"ide_methods.bas");}while(r); -} -} -do{ -*_SUB_HELP_SHOWTEXT_LONG_X3=*_SUB_HELP_SHOWTEXT_LONG_X3+ 1 ; -if(!qbevent)break;evnt(26070,17786,"ide_methods.bas");}while(r); -do{ -*_SUB_HELP_SHOWTEXT_LONG_X=*_SUB_HELP_SHOWTEXT_LONG_X+ 4 ; -if(!qbevent)break;evnt(26070,17786,"ide_methods.bas");}while(r); -do{ -*_SUB_HELP_SHOWTEXT_LONG_C=qbs_asc(__STRING_HELP_TXT,*_SUB_HELP_SHOWTEXT_LONG_X); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17786,"ide_methods.bas");}while(r); -do{ -*_SUB_HELP_SHOWTEXT_LONG_COL=qbs_asc(__STRING_HELP_TXT,*_SUB_HELP_SHOWTEXT_LONG_X+ 1 ); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17786,"ide_methods.bas");}while(r); -dl_continue_6104:; -} -dl_exit_6104:; -do{ -tmp_long=array_check((*_SUB_HELP_SHOWTEXT_LONG_Y-*__LONG_HELP_SY)-__ARRAY_LONG_HELP_LINELEN[4],__ARRAY_LONG_HELP_LINELEN[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_HELP_LINELEN[0]))[tmp_long]=*_SUB_HELP_SHOWTEXT_LONG_X3- 1 ; -if(!qbevent)break;evnt(26070,17789,"ide_methods.bas");}while(r); -S_55450:; -fornext_value6107= 1 ; -fornext_finalvalue6107=*__LONG_HELP_WX2-func_pos( 0 )+ 1 ; -fornext_step6107= 1 ; -if (fornext_step6107<0) fornext_step_negative6107=1; else fornext_step_negative6107=0; -if (new_error) goto fornext_error6107; -goto fornext_entrylabel6107; -while(1){ -fornext_value6107=fornext_step6107+(*_SUB_HELP_SHOWTEXT_LONG_X4); -fornext_entrylabel6107: -*_SUB_HELP_SHOWTEXT_LONG_X4=fornext_value6107; -if (fornext_step_negative6107){ -if (fornext_value6107fornext_finalvalue6107) break; -} -fornext_error6107:; -if(qbevent){evnt(26070,17791,"ide_methods.bas");if(r)goto S_55450;} -do{ -qbg_sub_color( 7 ,(*_SUB_HELP_SHOWTEXT_LONG_COL- 128 )/ 16 ,NULL,3); -if(!qbevent)break;evnt(26070,17792,"ide_methods.bas");}while(r); -S_55452:; -if (((-(*__LONG_IDESYSTEM== 3 ))&(-(*__LONG_HELP_SELECT== 2 )))||new_error){ -if(qbevent){evnt(26070,17793,"ide_methods.bas");if(r)goto S_55452;} -S_55453:; -if (((-(*_SUB_HELP_SHOWTEXT_LONG_Y>=*__LONG_HELP_SELY1))&(-(*_SUB_HELP_SHOWTEXT_LONG_Y<=*__LONG_HELP_SELY2)))||new_error){ -if(qbevent){evnt(26070,17794,"ide_methods.bas");if(r)goto S_55453;} -S_55454:; -if (((-(*_SUB_HELP_SHOWTEXT_LONG_X3>=*__LONG_HELP_SELX1))&(-(*_SUB_HELP_SHOWTEXT_LONG_X3<=*__LONG_HELP_SELX2)))||new_error){ -if(qbevent){evnt(26070,17795,"ide_methods.bas");if(r)goto S_55454;} -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,17796,"ide_methods.bas");}while(r); -} -} -} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len(" ",1)); -if (new_error) goto skip6108; -makefit(tqbs); -qbs_print(tqbs,0); -skip6108: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17800,"ide_methods.bas");}while(r); -do{ -*_SUB_HELP_SHOWTEXT_LONG_X3=*_SUB_HELP_SHOWTEXT_LONG_X3+ 1 ; -if(!qbevent)break;evnt(26070,17801,"ide_methods.bas");}while(r); -fornext_continue_6106:; -} -fornext_exit_6106:; -}else{ -do{ -*_SUB_HELP_SHOWTEXT_LONG_SX=*__LONG_HELP_WX1; -if(!qbevent)break;evnt(26070,17806,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*_SUB_HELP_SHOWTEXT_LONG_SY,*_SUB_HELP_SHOWTEXT_LONG_SX,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(26070,17807,"ide_methods.bas");}while(r); -do{ -*_SUB_HELP_SHOWTEXT_LONG_X3=*__LONG_HELP_SX; -if(!qbevent)break;evnt(26070,17808,"ide_methods.bas");}while(r); -S_55466:; -fornext_value6110= 1 ; -fornext_finalvalue6110=*__LONG_HELP_WW; -fornext_step6110= 1 ; -if (fornext_step6110<0) fornext_step_negative6110=1; else fornext_step_negative6110=0; -if (new_error) goto fornext_error6110; -goto fornext_entrylabel6110; -while(1){ -fornext_value6110=fornext_step6110+(*_SUB_HELP_SHOWTEXT_LONG_X4); -fornext_entrylabel6110: -*_SUB_HELP_SHOWTEXT_LONG_X4=fornext_value6110; -if (fornext_step_negative6110){ -if (fornext_value6110fornext_finalvalue6110) break; -} -fornext_error6110:; -if(qbevent){evnt(26070,17809,"ide_methods.bas");if(r)goto S_55466;} -do{ -qbg_sub_color( 7 , 0 ,NULL,3); -if(!qbevent)break;evnt(26070,17810,"ide_methods.bas");}while(r); -S_55468:; -if (((-(*__LONG_IDESYSTEM== 3 ))&(-(*__LONG_HELP_SELECT== 2 )))||new_error){ -if(qbevent){evnt(26070,17811,"ide_methods.bas");if(r)goto S_55468;} -S_55469:; -if (((-(*_SUB_HELP_SHOWTEXT_LONG_Y>=*__LONG_HELP_SELY1))&(-(*_SUB_HELP_SHOWTEXT_LONG_Y<=*__LONG_HELP_SELY2)))||new_error){ -if(qbevent){evnt(26070,17812,"ide_methods.bas");if(r)goto S_55469;} -S_55470:; -if (((-(*_SUB_HELP_SHOWTEXT_LONG_X3>=*__LONG_HELP_SELX1))&(-(*_SUB_HELP_SHOWTEXT_LONG_X3<=*__LONG_HELP_SELX2)))||new_error){ -if(qbevent){evnt(26070,17813,"ide_methods.bas");if(r)goto S_55470;} -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,17814,"ide_methods.bas");}while(r); -} -} -} -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,qbs_new_txt_len(" ",1)); -if (new_error) goto skip6111; -makefit(tqbs); -qbs_print(tqbs,0); -skip6111: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17818,"ide_methods.bas");}while(r); -do{ -*_SUB_HELP_SHOWTEXT_LONG_X3=*_SUB_HELP_SHOWTEXT_LONG_X3+ 1 ; -if(!qbevent)break;evnt(26070,17819,"ide_methods.bas");}while(r); -fornext_continue_6109:; -} -fornext_exit_6109:; -do{ -tmp_long=array_check((*_SUB_HELP_SHOWTEXT_LONG_Y-*__LONG_HELP_SY)-__ARRAY_LONG_HELP_LINELEN[4],__ARRAY_LONG_HELP_LINELEN[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_HELP_LINELEN[0]))[tmp_long]= 0 ; -if(!qbevent)break;evnt(26070,17821,"ide_methods.bas");}while(r); -} -do{ -*_SUB_HELP_SHOWTEXT_LONG_SY=*_SUB_HELP_SHOWTEXT_LONG_SY+ 1 ; -if(!qbevent)break;evnt(26070,17824,"ide_methods.bas");}while(r); -fornext_continue_6102:; -} -fornext_exit_6102:; -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free246.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -qbs* FUNC_IDESEARCHEDBOX(){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data247.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -sub_pcopy( 0 , 2 ); -if(!qbevent)break;evnt(26070,17834,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 0 , 1 ); -if(!qbevent)break;evnt(26070,17835,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,17836,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDESEARCHEDBOX_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(26070,17837,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(26070,17838,"ide_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26070,17759,"ide_methods.bas");}while(r); +do{ +*_SUB_HELP_SHOWTEXT_LONG_SY=*__LONG_HELP_WY1; +if(!qbevent)break;evnt(26070,17761,"ide_methods.bas");}while(r); +S_55420:; +fornext_value6103=*__LONG_HELP_SY; +fornext_finalvalue6103=*__LONG_HELP_SY+*__LONG_HELP_WH- 1 ; +fornext_step6103= 1 ; +if (fornext_step6103<0) fornext_step_negative6103=1; else fornext_step_negative6103=0; +if (new_error) goto fornext_error6103; +goto fornext_entrylabel6103; +while(1){ +fornext_value6103=fornext_step6103+(*_SUB_HELP_SHOWTEXT_LONG_Y); +fornext_entrylabel6103: +*_SUB_HELP_SHOWTEXT_LONG_Y=fornext_value6103; +if (fornext_step_negative6103){ +if (fornext_value6103fornext_finalvalue6103) break; +} +fornext_error6103:; +if(qbevent){evnt(26070,17762,"ide_methods.bas");if(r)goto S_55420;} +S_55421:; +if ((-(*_SUB_HELP_SHOWTEXT_LONG_Y<=*__LONG_HELP_H))||new_error){ +if(qbevent){evnt(26070,17763,"ide_methods.bas");if(r)goto S_55421;} +do{ +*_SUB_HELP_SHOWTEXT_LONG_L=string2l(func_mid(__STRING_HELP_LINE,((*_SUB_HELP_SHOWTEXT_LONG_Y- 1 )* 4 )+( 1 ), 4 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17764,"ide_methods.bas");}while(r); +do{ +*_SUB_HELP_SHOWTEXT_LONG_X=*_SUB_HELP_SHOWTEXT_LONG_L; +if(!qbevent)break;evnt(26070,17765,"ide_methods.bas");}while(r); +do{ +*_SUB_HELP_SHOWTEXT_LONG_X3= 1 ; +if(!qbevent)break;evnt(26070,17766,"ide_methods.bas");}while(r); +do{ +*_SUB_HELP_SHOWTEXT_LONG_SX=*__LONG_HELP_WX1; +if(!qbevent)break;evnt(26070,17768,"ide_methods.bas");}while(r); +do{ +*_SUB_HELP_SHOWTEXT_LONG_C=qbs_asc(__STRING_HELP_TXT,*_SUB_HELP_SHOWTEXT_LONG_X); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17769,"ide_methods.bas");}while(r); +do{ +*_SUB_HELP_SHOWTEXT_LONG_COL=qbs_asc(__STRING_HELP_TXT,*_SUB_HELP_SHOWTEXT_LONG_X+ 1 ); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17769,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(*_SUB_HELP_SHOWTEXT_LONG_SY,*_SUB_HELP_SHOWTEXT_LONG_SX,NULL,NULL,NULL,3); +if(!qbevent)break;evnt(26070,17770,"ide_methods.bas");}while(r); +S_55429:; +while((!(-(*_SUB_HELP_SHOWTEXT_LONG_COL> 127 )))||new_error){ +if(qbevent){evnt(26070,17771,"ide_methods.bas");if(r)goto S_55429;} +do{ +qbg_sub_color(*_SUB_HELP_SHOWTEXT_LONG_COL& 15 ,*_SUB_HELP_SHOWTEXT_LONG_COL/ 16 ,NULL,3); +if(!qbevent)break;evnt(26070,17772,"ide_methods.bas");}while(r); +S_55431:; +if (((-(*__LONG_IDESYSTEM== 3 ))&(-(*__LONG_HELP_SELECT== 2 )))||new_error){ +if(qbevent){evnt(26070,17773,"ide_methods.bas");if(r)goto S_55431;} +S_55432:; +if (((-(*_SUB_HELP_SHOWTEXT_LONG_Y>=*__LONG_HELP_SELY1))&(-(*_SUB_HELP_SHOWTEXT_LONG_Y<=*__LONG_HELP_SELY2)))||new_error){ +if(qbevent){evnt(26070,17774,"ide_methods.bas");if(r)goto S_55432;} +S_55433:; +if (((-(*_SUB_HELP_SHOWTEXT_LONG_X3>=*__LONG_HELP_SELX1))&(-(*_SUB_HELP_SHOWTEXT_LONG_X3<=*__LONG_HELP_SELX2)))||new_error){ +if(qbevent){evnt(26070,17775,"ide_methods.bas");if(r)goto S_55433;} +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,17776,"ide_methods.bas");}while(r); +} +} +} +S_55438:; +if ((-(*_SUB_HELP_SHOWTEXT_LONG_X3>=*__LONG_HELP_SX))||new_error){ +if(qbevent){evnt(26070,17780,"ide_methods.bas");if(r)goto S_55438;} +S_55439:; +if ((-(*_SUB_HELP_SHOWTEXT_LONG_SX<=*__LONG_HELP_WX2))||new_error){ +if(qbevent){evnt(26070,17781,"ide_methods.bas");if(r)goto S_55439;} +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,func_chr(*_SUB_HELP_SHOWTEXT_LONG_C)); +if (new_error) goto skip6105; +makefit(tqbs); +qbs_print(tqbs,0); +skip6105: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17782,"ide_methods.bas");}while(r); +do{ +*_SUB_HELP_SHOWTEXT_LONG_SX=*_SUB_HELP_SHOWTEXT_LONG_SX+ 1 ; +if(!qbevent)break;evnt(26070,17783,"ide_methods.bas");}while(r); +} +} +do{ +*_SUB_HELP_SHOWTEXT_LONG_X3=*_SUB_HELP_SHOWTEXT_LONG_X3+ 1 ; +if(!qbevent)break;evnt(26070,17786,"ide_methods.bas");}while(r); +do{ +*_SUB_HELP_SHOWTEXT_LONG_X=*_SUB_HELP_SHOWTEXT_LONG_X+ 4 ; +if(!qbevent)break;evnt(26070,17786,"ide_methods.bas");}while(r); +do{ +*_SUB_HELP_SHOWTEXT_LONG_C=qbs_asc(__STRING_HELP_TXT,*_SUB_HELP_SHOWTEXT_LONG_X); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17786,"ide_methods.bas");}while(r); +do{ +*_SUB_HELP_SHOWTEXT_LONG_COL=qbs_asc(__STRING_HELP_TXT,*_SUB_HELP_SHOWTEXT_LONG_X+ 1 ); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17786,"ide_methods.bas");}while(r); +dl_continue_6104:; +} +dl_exit_6104:; +do{ +tmp_long=array_check((*_SUB_HELP_SHOWTEXT_LONG_Y-*__LONG_HELP_SY)-__ARRAY_LONG_HELP_LINELEN[4],__ARRAY_LONG_HELP_LINELEN[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_HELP_LINELEN[0]))[tmp_long]=*_SUB_HELP_SHOWTEXT_LONG_X3- 1 ; +if(!qbevent)break;evnt(26070,17789,"ide_methods.bas");}while(r); +S_55450:; +fornext_value6107= 1 ; +fornext_finalvalue6107=*__LONG_HELP_WX2-func_pos( 0 )+ 1 ; +fornext_step6107= 1 ; +if (fornext_step6107<0) fornext_step_negative6107=1; else fornext_step_negative6107=0; +if (new_error) goto fornext_error6107; +goto fornext_entrylabel6107; +while(1){ +fornext_value6107=fornext_step6107+(*_SUB_HELP_SHOWTEXT_LONG_X4); +fornext_entrylabel6107: +*_SUB_HELP_SHOWTEXT_LONG_X4=fornext_value6107; +if (fornext_step_negative6107){ +if (fornext_value6107fornext_finalvalue6107) break; +} +fornext_error6107:; +if(qbevent){evnt(26070,17791,"ide_methods.bas");if(r)goto S_55450;} +do{ +qbg_sub_color( 7 ,(*_SUB_HELP_SHOWTEXT_LONG_COL- 128 )/ 16 ,NULL,3); +if(!qbevent)break;evnt(26070,17792,"ide_methods.bas");}while(r); +S_55452:; +if (((-(*__LONG_IDESYSTEM== 3 ))&(-(*__LONG_HELP_SELECT== 2 )))||new_error){ +if(qbevent){evnt(26070,17793,"ide_methods.bas");if(r)goto S_55452;} +S_55453:; +if (((-(*_SUB_HELP_SHOWTEXT_LONG_Y>=*__LONG_HELP_SELY1))&(-(*_SUB_HELP_SHOWTEXT_LONG_Y<=*__LONG_HELP_SELY2)))||new_error){ +if(qbevent){evnt(26070,17794,"ide_methods.bas");if(r)goto S_55453;} +S_55454:; +if (((-(*_SUB_HELP_SHOWTEXT_LONG_X3>=*__LONG_HELP_SELX1))&(-(*_SUB_HELP_SHOWTEXT_LONG_X3<=*__LONG_HELP_SELX2)))||new_error){ +if(qbevent){evnt(26070,17795,"ide_methods.bas");if(r)goto S_55454;} +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,17796,"ide_methods.bas");}while(r); +} +} +} +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len(" ",1)); +if (new_error) goto skip6108; +makefit(tqbs); +qbs_print(tqbs,0); +skip6108: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17800,"ide_methods.bas");}while(r); +do{ +*_SUB_HELP_SHOWTEXT_LONG_X3=*_SUB_HELP_SHOWTEXT_LONG_X3+ 1 ; +if(!qbevent)break;evnt(26070,17801,"ide_methods.bas");}while(r); +fornext_continue_6106:; +} +fornext_exit_6106:; +}else{ +do{ +*_SUB_HELP_SHOWTEXT_LONG_SX=*__LONG_HELP_WX1; +if(!qbevent)break;evnt(26070,17806,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(*_SUB_HELP_SHOWTEXT_LONG_SY,*_SUB_HELP_SHOWTEXT_LONG_SX,NULL,NULL,NULL,3); +if(!qbevent)break;evnt(26070,17807,"ide_methods.bas");}while(r); +do{ +*_SUB_HELP_SHOWTEXT_LONG_X3=*__LONG_HELP_SX; +if(!qbevent)break;evnt(26070,17808,"ide_methods.bas");}while(r); +S_55466:; +fornext_value6110= 1 ; +fornext_finalvalue6110=*__LONG_HELP_WW; +fornext_step6110= 1 ; +if (fornext_step6110<0) fornext_step_negative6110=1; else fornext_step_negative6110=0; +if (new_error) goto fornext_error6110; +goto fornext_entrylabel6110; +while(1){ +fornext_value6110=fornext_step6110+(*_SUB_HELP_SHOWTEXT_LONG_X4); +fornext_entrylabel6110: +*_SUB_HELP_SHOWTEXT_LONG_X4=fornext_value6110; +if (fornext_step_negative6110){ +if (fornext_value6110fornext_finalvalue6110) break; +} +fornext_error6110:; +if(qbevent){evnt(26070,17809,"ide_methods.bas");if(r)goto S_55466;} +do{ +qbg_sub_color( 7 , 0 ,NULL,3); +if(!qbevent)break;evnt(26070,17810,"ide_methods.bas");}while(r); +S_55468:; +if (((-(*__LONG_IDESYSTEM== 3 ))&(-(*__LONG_HELP_SELECT== 2 )))||new_error){ +if(qbevent){evnt(26070,17811,"ide_methods.bas");if(r)goto S_55468;} +S_55469:; +if (((-(*_SUB_HELP_SHOWTEXT_LONG_Y>=*__LONG_HELP_SELY1))&(-(*_SUB_HELP_SHOWTEXT_LONG_Y<=*__LONG_HELP_SELY2)))||new_error){ +if(qbevent){evnt(26070,17812,"ide_methods.bas");if(r)goto S_55469;} +S_55470:; +if (((-(*_SUB_HELP_SHOWTEXT_LONG_X3>=*__LONG_HELP_SELX1))&(-(*_SUB_HELP_SHOWTEXT_LONG_X3<=*__LONG_HELP_SELX2)))||new_error){ +if(qbevent){evnt(26070,17813,"ide_methods.bas");if(r)goto S_55470;} +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,17814,"ide_methods.bas");}while(r); +} +} +} +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,qbs_new_txt_len(" ",1)); +if (new_error) goto skip6111; +makefit(tqbs); +qbs_print(tqbs,0); +skip6111: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17818,"ide_methods.bas");}while(r); +do{ +*_SUB_HELP_SHOWTEXT_LONG_X3=*_SUB_HELP_SHOWTEXT_LONG_X3+ 1 ; +if(!qbevent)break;evnt(26070,17819,"ide_methods.bas");}while(r); +fornext_continue_6109:; +} +fornext_exit_6109:; +do{ +tmp_long=array_check((*_SUB_HELP_SHOWTEXT_LONG_Y-*__LONG_HELP_SY)-__ARRAY_LONG_HELP_LINELEN[4],__ARRAY_LONG_HELP_LINELEN[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_HELP_LINELEN[0]))[tmp_long]= 0 ; +if(!qbevent)break;evnt(26070,17821,"ide_methods.bas");}while(r); +} +do{ +*_SUB_HELP_SHOWTEXT_LONG_SY=*_SUB_HELP_SHOWTEXT_LONG_SY+ 1 ; +if(!qbevent)break;evnt(26070,17824,"ide_methods.bas");}while(r); +fornext_continue_6102:; +} +fornext_exit_6102:; +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free246.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +qbs* FUNC_IDESEARCHEDBOX(){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data247.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +sub_pcopy( 0 , 2 ); +if(!qbevent)break;evnt(26070,17834,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 0 , 1 ); +if(!qbevent)break;evnt(26070,17835,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,17836,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDESEARCHEDBOX_LONG_FOCUS= 1 ; +if(!qbevent)break;evnt(26070,17837,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26070,17838,"ide_methods.bas");}while(r); +do{ if (_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[2]&2){ error(10); @@ -187155,22 +187155,22 @@ if (!_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0]) error(257); } _FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[2]|=1; } -} -if(!qbevent)break;evnt(26070,17839,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(26070,17840,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDESEARCHEDBOX_STRING1_SEP,func_chr( 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17841,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDESEARCHEDBOX_LONG_LN= 0 ; -if(!qbevent)break;evnt(26070,17851,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDESEARCHEDBOX_STRING_L,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17852,"ide_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26070,17839,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26070,17840,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDESEARCHEDBOX_STRING1_SEP,func_chr( 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17841,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDESEARCHEDBOX_LONG_LN= 0 ; +if(!qbevent)break;evnt(26070,17851,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDESEARCHEDBOX_STRING_L,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17852,"ide_methods.bas");}while(r); +do{ if (_FUNC_IDESEARCHEDBOX_ARRAY_STRING_SEARCHHISTORY[2]&2){ error(10); @@ -187193,584 +187193,584 @@ while(tmp_long--) ((uint64*)(_FUNC_IDESEARCHEDBOX_ARRAY_STRING_SEARCHHISTORY[0]) }else{ while(tmp_long--) ((uint64*)(_FUNC_IDESEARCHEDBOX_ARRAY_STRING_SEARCHHISTORY[0]))[tmp_long]=(uint64)qbs_new(0,0); } -} -if(!qbevent)break;evnt(26070,17853,"ide_methods.bas");}while(r); -do{ -SUB_RETRIEVESEARCHHISTORY(_FUNC_IDESEARCHEDBOX_ARRAY_STRING_SEARCHHISTORY); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17854,"ide_methods.bas");}while(r); -S_55494:; -fornext_value6113= 1 ; -fornext_finalvalue6113=func_ubound(_FUNC_IDESEARCHEDBOX_ARRAY_STRING_SEARCHHISTORY,1,1); -fornext_step6113= 1 ; -if (fornext_step6113<0) fornext_step_negative6113=1; else fornext_step_negative6113=0; -if (new_error) goto fornext_error6113; -goto fornext_entrylabel6113; -while(1){ -fornext_value6113=fornext_step6113+(*_FUNC_IDESEARCHEDBOX_LONG_I); -fornext_entrylabel6113: -*_FUNC_IDESEARCHEDBOX_LONG_I=fornext_value6113; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative6113){ -if (fornext_value6113fornext_finalvalue6113) break; -} -fornext_error6113:; -if(qbevent){evnt(26070,17855,"ide_methods.bas");if(r)goto S_55494;} -do{ -qbs_set(_FUNC_IDESEARCHEDBOX_STRING_L,qbs_add(qbs_add(((qbs*)(((uint64*)(_FUNC_IDESEARCHEDBOX_ARRAY_STRING_SEARCHHISTORY[0]))[array_check((*_FUNC_IDESEARCHEDBOX_LONG_I)-_FUNC_IDESEARCHEDBOX_ARRAY_STRING_SEARCHHISTORY[4],_FUNC_IDESEARCHEDBOX_ARRAY_STRING_SEARCHHISTORY[5])])),_FUNC_IDESEARCHEDBOX_STRING1_SEP),_FUNC_IDESEARCHEDBOX_STRING_L)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17856,"ide_methods.bas");}while(r); -fornext_continue_6112:; -} -fornext_exit_6112:; -do{ -*_FUNC_IDESEARCHEDBOX_LONG_H=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 9 ; -if(!qbevent)break;evnt(26070,17860,"ide_methods.bas");}while(r); -S_55498:; -if ((-(*_FUNC_IDESEARCHEDBOX_LONG_LN<*_FUNC_IDESEARCHEDBOX_LONG_H))||new_error){ -if(qbevent){evnt(26070,17861,"ide_methods.bas");if(r)goto S_55498;} -do{ -*_FUNC_IDESEARCHEDBOX_LONG_H=*_FUNC_IDESEARCHEDBOX_LONG_LN; -if(!qbevent)break;evnt(26070,17861,"ide_methods.bas");}while(r); -} -S_55501:; -if ((-(*_FUNC_IDESEARCHEDBOX_LONG_H< 3 ))||new_error){ -if(qbevent){evnt(26070,17862,"ide_methods.bas");if(r)goto S_55501;} -do{ -*_FUNC_IDESEARCHEDBOX_LONG_H= 3 ; -if(!qbevent)break;evnt(26070,17862,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDESEARCHEDBOX_LONG_I= 0 ; -if(!qbevent)break;evnt(26070,17864,"ide_methods.bas");}while(r); -do{ -SUB_IDEPAR((void*)( ((char*)(_FUNC_IDESEARCHEDBOX_UDT_P)) + (0) ),&(pass6114= 20 ),_FUNC_IDESEARCHEDBOX_LONG_H,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17865,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_UDT_P)+(0))=*__LONG_IDEWX- 24 ; -if(!qbevent)break;evnt(26070,17866,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_UDT_P)+(4))=*__LONG_IDEWY- 6 -*_FUNC_IDESEARCHEDBOX_LONG_H; -if(!qbevent)break;evnt(26070,17867,"ide_methods.bas");}while(r); -S_55508:; -if ((-(*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_UDT_P)+(4))< 3 ))||new_error){ -if(qbevent){evnt(26070,17868,"ide_methods.bas");if(r)goto S_55508;} -do{ -*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_UDT_P)+(12))=*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_UDT_P)+(12))-func_abs((int64)( 3 -*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_UDT_P)+(4)))); -if(!qbevent)break;evnt(26070,17869,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDESEARCHEDBOX_LONG_H=*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_UDT_P)+(12)); -if(!qbevent)break;evnt(26070,17870,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_UDT_P)+(4))= 3 ; -if(!qbevent)break;evnt(26070,17871,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDESEARCHEDBOX_LONG_I=*_FUNC_IDESEARCHEDBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,17874,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESEARCHEDBOX_LONG_I)-_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4],_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]))*89+36))= 2 ; -if(!qbevent)break;evnt(26070,17875,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESEARCHEDBOX_LONG_I)-_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4],_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]))*89+20))= -1 ; -if(!qbevent)break;evnt(26070,17876,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESEARCHEDBOX_LONG_I)-_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4],_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]))*89+24))= 0 ; -if(!qbevent)break;evnt(26070,17876,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESEARCHEDBOX_LONG_I)-_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4],_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]))*89+28))= 22 ; -if(!qbevent)break;evnt(26070,17878,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESEARCHEDBOX_LONG_I)-_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4],_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]))*89+32))=*_FUNC_IDESEARCHEDBOX_LONG_H; -if(!qbevent)break;evnt(26070,17878,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESEARCHEDBOX_LONG_I)-_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4],_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDESEARCHEDBOX_STRING_L); -if(!qbevent)break;evnt(26070,17879,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESEARCHEDBOX_LONG_I)-_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4],_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]))*89+64))= 1 ; -if(!qbevent)break;evnt(26070,17880,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESEARCHEDBOX_LONG_I)-_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4],_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("Find",4)); -if(!qbevent)break;evnt(26070,17881,"ide_methods.bas");}while(r); -S_55522:; -fornext_value6116= 1 ; -fornext_finalvalue6116= 100 ; -fornext_step6116= 1 ; -if (fornext_step6116<0) fornext_step_negative6116=1; else fornext_step_negative6116=0; -if (new_error) goto fornext_error6116; -goto fornext_entrylabel6116; -while(1){ -fornext_value6116=fornext_step6116+(*_FUNC_IDESEARCHEDBOX_LONG_I); -fornext_entrylabel6116: -*_FUNC_IDESEARCHEDBOX_LONG_I=fornext_value6116; -if (fornext_step_negative6116){ -if (fornext_value6116fornext_finalvalue6116) break; -} -fornext_error6116:; -if(qbevent){evnt(26070,17892,"ide_methods.bas");if(r)goto S_55522;} -do{ -memcpy(((char*)_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESEARCHEDBOX_LONG_I)-_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4],_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]))*89)+ 0,((char*)_FUNC_IDESEARCHEDBOX_UDT_P)+(0)+ 0, 20); -if(!qbevent)break;evnt(26070,17892,"ide_methods.bas");}while(r); -fornext_continue_6115:; -} -fornext_exit_6115:; -S_55525:; -do{ -if(qbevent){evnt(26070,17895,"ide_methods.bas");if(r)goto S_55525;} -do{ -SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDESEARCHEDBOX_UDT_P)) + (0) )); -if(!qbevent)break;evnt(26070,17898,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDESEARCHEDBOX_LONG_F= 1 ; -if(!qbevent)break;evnt(26070,17899,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDESEARCHEDBOX_LONG_CX= 0 ; -if(!qbevent)break;evnt(26070,17899,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDESEARCHEDBOX_LONG_CY= 0 ; -if(!qbevent)break;evnt(26070,17899,"ide_methods.bas");}while(r); -S_55530:; -fornext_value6119= 1 ; -fornext_finalvalue6119= 100 ; -fornext_step6119= 1 ; -if (fornext_step6119<0) fornext_step_negative6119=1; else fornext_step_negative6119=0; -if (new_error) goto fornext_error6119; -goto fornext_entrylabel6119; -while(1){ -fornext_value6119=fornext_step6119+(*_FUNC_IDESEARCHEDBOX_LONG_I); -fornext_entrylabel6119: -*_FUNC_IDESEARCHEDBOX_LONG_I=fornext_value6119; -if (fornext_step_negative6119){ -if (fornext_value6119fornext_finalvalue6119) break; -} -fornext_error6119:; -if(qbevent){evnt(26070,17900,"ide_methods.bas");if(r)goto S_55530;} -S_55531:; -if ((*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESEARCHEDBOX_LONG_I)-_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4],_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]))*89+36)))||new_error){ -if(qbevent){evnt(26070,17901,"ide_methods.bas");if(r)goto S_55531;} -do{ -*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESEARCHEDBOX_LONG_I)-_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4],_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]))*89+60))=*_FUNC_IDESEARCHEDBOX_LONG_FOCUS-*_FUNC_IDESEARCHEDBOX_LONG_F; -if(!qbevent)break;evnt(26070,17904,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESEARCHEDBOX_LONG_I)-_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4],_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]))*89+52))= 0 ; -if(!qbevent)break;evnt(26070,17905,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESEARCHEDBOX_LONG_I)-_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4],_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]))*89+56))= 0 ; -if(!qbevent)break;evnt(26070,17905,"ide_methods.bas");}while(r); -do{ -SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDESEARCHEDBOX_LONG_I)-_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4],_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDESEARCHEDBOX_LONG_F); -if(!qbevent)break;evnt(26070,17906,"ide_methods.bas");}while(r); -S_55536:; -if ((*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESEARCHEDBOX_LONG_I)-_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4],_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]))*89+52)))||new_error){ -if(qbevent){evnt(26070,17907,"ide_methods.bas");if(r)goto S_55536;} -do{ -*_FUNC_IDESEARCHEDBOX_LONG_CX=*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESEARCHEDBOX_LONG_I)-_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4],_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]))*89+52)); -if(!qbevent)break;evnt(26070,17907,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDESEARCHEDBOX_LONG_CY=*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESEARCHEDBOX_LONG_I)-_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4],_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]))*89+56)); -if(!qbevent)break;evnt(26070,17907,"ide_methods.bas");}while(r); -} -} -fornext_continue_6118:; -} -fornext_exit_6118:; -do{ -*_FUNC_IDESEARCHEDBOX_LONG_LASTFOCUS=*_FUNC_IDESEARCHEDBOX_LONG_F- 1 ; -if(!qbevent)break;evnt(26070,17910,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 1 , 0 ); -if(!qbevent)break;evnt(26070,17917,"ide_methods.bas");}while(r); -S_55544:; -if ((*_FUNC_IDESEARCHEDBOX_LONG_CX)||new_error){ -if(qbevent){evnt(26070,17918,"ide_methods.bas");if(r)goto S_55544;} -do{ -qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,17918,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*_FUNC_IDESEARCHEDBOX_LONG_CY,*_FUNC_IDESEARCHEDBOX_LONG_CX, 1 ,NULL,NULL,7); -if(!qbevent)break;evnt(26070,17918,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,17918,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDESEARCHEDBOX_LONG_CHANGE= 0 ; -if(!qbevent)break;evnt(26070,17921,"ide_methods.bas");}while(r); -S_55550:; -do{ -if(qbevent){evnt(26070,17922,"ide_methods.bas");if(r)goto S_55550;} -do{ -SUB_GETINPUT(); -if(!qbevent)break;evnt(26070,17923,"ide_methods.bas");}while(r); -S_55552:; -if ((*__LONG_MWHEEL)||new_error){ -if(qbevent){evnt(26070,17924,"ide_methods.bas");if(r)goto S_55552;} -do{ -*_FUNC_IDESEARCHEDBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,17924,"ide_methods.bas");}while(r); -} -S_55555:; -if ((*__LONG_KB)||new_error){ -if(qbevent){evnt(26070,17925,"ide_methods.bas");if(r)goto S_55555;} -do{ -*_FUNC_IDESEARCHEDBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,17925,"ide_methods.bas");}while(r); -} -S_55558:; -if ((*__LONG_MCLICK)||new_error){ -if(qbevent){evnt(26070,17926,"ide_methods.bas");if(r)goto S_55558;} -do{ -*_FUNC_IDESEARCHEDBOX_LONG_MOUSEDOWN= 1 ; -if(!qbevent)break;evnt(26070,17926,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDESEARCHEDBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,17926,"ide_methods.bas");}while(r); -} -S_55562:; -if ((*__LONG_MRELEASE)||new_error){ -if(qbevent){evnt(26070,17927,"ide_methods.bas");if(r)goto S_55562;} -do{ -*_FUNC_IDESEARCHEDBOX_LONG_MOUSEUP= 1 ; -if(!qbevent)break;evnt(26070,17927,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDESEARCHEDBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,17927,"ide_methods.bas");}while(r); -} -S_55566:; -if ((*__LONG_MB)||new_error){ -if(qbevent){evnt(26070,17928,"ide_methods.bas");if(r)goto S_55566;} -do{ -*_FUNC_IDESEARCHEDBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,17928,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDESEARCHEDBOX_LONG_ALT=*__LONG_KALT; -if(!qbevent)break;evnt(26070,17929,"ide_methods.bas");}while(r); -S_55570:; -if ((-(*_FUNC_IDESEARCHEDBOX_LONG_ALT!=*_FUNC_IDESEARCHEDBOX_LONG_OLDALT))||new_error){ -if(qbevent){evnt(26070,17929,"ide_methods.bas");if(r)goto S_55570;} -do{ -*_FUNC_IDESEARCHEDBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,17929,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDESEARCHEDBOX_LONG_OLDALT=*_FUNC_IDESEARCHEDBOX_LONG_ALT; -if(!qbevent)break;evnt(26070,17930,"ide_methods.bas");}while(r); -do{ -sub__limit( 100 ); -if(!qbevent)break;evnt(26070,17931,"ide_methods.bas");}while(r); -S_55575:; -dl_continue_6120:; -}while((!(*_FUNC_IDESEARCHEDBOX_LONG_CHANGE))&&(!new_error)); -dl_exit_6120:; -if(qbevent){evnt(26070,17932,"ide_methods.bas");if(r)goto S_55575;} -S_55576:; -if ((*_FUNC_IDESEARCHEDBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(26070,17933,"ide_methods.bas");if(r)goto S_55576;} -do{ -*__LONG_IDEHL= 1 ; -if(!qbevent)break;evnt(26070,17933,"ide_methods.bas");}while(r); -}else{ -do{ -*__LONG_IDEHL= 0 ; -if(!qbevent)break;evnt(26070,17933,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDESEARCHEDBOX_STRING_ALTLETTER,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17935,"ide_methods.bas");}while(r); -S_55582:; -if ((*_FUNC_IDESEARCHEDBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(26070,17936,"ide_methods.bas");if(r)goto S_55582;} -S_55583:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ -if(qbevent){evnt(26070,17937,"ide_methods.bas");if(r)goto S_55583;} -do{ -*_FUNC_IDESEARCHEDBOX_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17938,"ide_methods.bas");}while(r); -S_55585:; -if (((-(*_FUNC_IDESEARCHEDBOX_LONG_K>= 65 ))&(-(*_FUNC_IDESEARCHEDBOX_LONG_K<= 90 )))||new_error){ -if(qbevent){evnt(26070,17939,"ide_methods.bas");if(r)goto S_55585;} -do{ -qbs_set(_FUNC_IDESEARCHEDBOX_STRING_ALTLETTER,func_chr(*_FUNC_IDESEARCHEDBOX_LONG_K)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17939,"ide_methods.bas");}while(r); -} -} -} -do{ -qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,17942,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); -if(!qbevent)break;evnt(26070,17942,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,17942,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDESEARCHEDBOX_LONG_INFO= 0 ; -if(!qbevent)break;evnt(26070,17946,"ide_methods.bas");}while(r); -S_55594:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,17947,"ide_methods.bas");if(r)goto S_55594;} -do{ -qbs_set(__STRING_K,func_chr( 255 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17947,"ide_methods.bas");}while(r); -} -S_55597:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ -if(qbevent){evnt(26070,17948,"ide_methods.bas");if(r)goto S_55597;} -do{ -*_FUNC_IDESEARCHEDBOX_LONG_FOCUS=*_FUNC_IDESEARCHEDBOX_LONG_FOCUS+ 1 ; -if(!qbevent)break;evnt(26070,17948,"ide_methods.bas");}while(r); -} -S_55600:; -if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||new_error){ -if(qbevent){evnt(26070,17949,"ide_methods.bas");if(r)goto S_55600;} -do{ -*_FUNC_IDESEARCHEDBOX_LONG_FOCUS=*_FUNC_IDESEARCHEDBOX_LONG_FOCUS- 1 ; -if(!qbevent)break;evnt(26070,17949,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_K,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17949,"ide_methods.bas");}while(r); -} -S_55604:; -if ((-(*_FUNC_IDESEARCHEDBOX_LONG_FOCUS< 1 ))||new_error){ -if(qbevent){evnt(26070,17950,"ide_methods.bas");if(r)goto S_55604;} -do{ -*_FUNC_IDESEARCHEDBOX_LONG_FOCUS=*_FUNC_IDESEARCHEDBOX_LONG_LASTFOCUS; -if(!qbevent)break;evnt(26070,17950,"ide_methods.bas");}while(r); -} -S_55607:; -if ((-(*_FUNC_IDESEARCHEDBOX_LONG_FOCUS>*_FUNC_IDESEARCHEDBOX_LONG_LASTFOCUS))||new_error){ -if(qbevent){evnt(26070,17951,"ide_methods.bas");if(r)goto S_55607;} -do{ -*_FUNC_IDESEARCHEDBOX_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(26070,17951,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDESEARCHEDBOX_LONG_F= 1 ; -if(!qbevent)break;evnt(26070,17952,"ide_methods.bas");}while(r); -S_55611:; -fornext_value6123= 1 ; -fornext_finalvalue6123= 100 ; -fornext_step6123= 1 ; -if (fornext_step6123<0) fornext_step_negative6123=1; else fornext_step_negative6123=0; -if (new_error) goto fornext_error6123; -goto fornext_entrylabel6123; -while(1){ -fornext_value6123=fornext_step6123+(*_FUNC_IDESEARCHEDBOX_LONG_I); -fornext_entrylabel6123: -*_FUNC_IDESEARCHEDBOX_LONG_I=fornext_value6123; -if (fornext_step_negative6123){ -if (fornext_value6123fornext_finalvalue6123) break; -} -fornext_error6123:; -if(qbevent){evnt(26070,17953,"ide_methods.bas");if(r)goto S_55611;} -do{ -*_FUNC_IDESEARCHEDBOX_LONG_T=*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESEARCHEDBOX_LONG_I)-_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4],_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]))*89+36)); -if(!qbevent)break;evnt(26070,17954,"ide_methods.bas");}while(r); -S_55613:; -if ((*_FUNC_IDESEARCHEDBOX_LONG_T)||new_error){ -if(qbevent){evnt(26070,17955,"ide_methods.bas");if(r)goto S_55613;} -do{ -*_FUNC_IDESEARCHEDBOX_LONG_FOCUSOFFSET=*_FUNC_IDESEARCHEDBOX_LONG_FOCUS-*_FUNC_IDESEARCHEDBOX_LONG_F; -if(!qbevent)break;evnt(26070,17956,"ide_methods.bas");}while(r); -do{ -SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDESEARCHEDBOX_LONG_I)-_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4],_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDESEARCHEDBOX_LONG_FOCUS,_FUNC_IDESEARCHEDBOX_LONG_F,_FUNC_IDESEARCHEDBOX_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDESEARCHEDBOX_STRING_ALTLETTER,__LONG_MB,_FUNC_IDESEARCHEDBOX_LONG_MOUSEDOWN,_FUNC_IDESEARCHEDBOX_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDESEARCHEDBOX_LONG_INFO,__LONG_MWHEEL); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17957,"ide_methods.bas");}while(r); -} -fornext_continue_6122:; -} -fornext_exit_6122:; -S_55618:; -if ((*__LONG_MCLICK)||new_error){ -if(qbevent){evnt(26070,17963,"ide_methods.bas");if(r)goto S_55618;} -S_55619:; -if (((-(*__LONG_MX<(*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_UDT_P)+(0))- 1 )))|(-(*__LONG_MY<*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_UDT_P)+(4))))|(-(*__LONG_MX>(*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_UDT_P)+(0))+*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_UDT_P)+(8))+ 2 )))|(-(*__LONG_MY>(*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_UDT_P)+(4))+*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_UDT_P)+(12))+ 1 ))))||new_error){ -if(qbevent){evnt(26070,17964,"ide_methods.bas");if(r)goto S_55619;} -do{ -qbs_set(_FUNC_IDESEARCHEDBOX_STRING_IDESEARCHEDBOX,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17965,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,17966,"ide_methods.bas");}while(r); -} -} -S_55624:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,func_chr( 27 ))))||new_error){ -if(qbevent){evnt(26070,17970,"ide_methods.bas");if(r)goto S_55624;} -do{ -qbs_set(_FUNC_IDESEARCHEDBOX_STRING_IDESEARCHEDBOX,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17971,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,17972,"ide_methods.bas");}while(r); -} -S_55628:; -if ((*__LONG_MCLICK)||new_error){ -if(qbevent){evnt(26070,17975,"ide_methods.bas");if(r)goto S_55628;} -S_55629:; -if (((-(*__LONG_MX>(*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_UDT_P)+(0))- 1 )))&(-(*__LONG_MY>*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_UDT_P)+(4))))&(-(*__LONG_MX<(*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_UDT_P)+(0))+*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_UDT_P)+(8))+ 2 )))&(-(*__LONG_MY<(*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_UDT_P)+(4))+*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_UDT_P)+(12))+ 1 ))))||new_error){ -if(qbevent){evnt(26070,17976,"ide_methods.bas");if(r)goto S_55629;} -do{ -qbs_set(_FUNC_IDESEARCHEDBOX_STRING_F,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4],_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]))*89+72)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17977,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDESEARCHEDBOX_STRING_IDESEARCHEDBOX,_FUNC_IDESEARCHEDBOX_STRING_F); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17978,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,17979,"ide_methods.bas");}while(r); -} -} -S_55635:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 13 )))|(((-(*_FUNC_IDESEARCHEDBOX_LONG_INFO== 1 ))&(-(*_FUNC_IDESEARCHEDBOX_LONG_FOCUS== 1 ))))))||new_error){ -if(qbevent){evnt(26070,17983,"ide_methods.bas");if(r)goto S_55635;} -do{ -qbs_set(_FUNC_IDESEARCHEDBOX_STRING_F,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4],_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]))*89+72)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17984,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDESEARCHEDBOX_STRING_IDESEARCHEDBOX,_FUNC_IDESEARCHEDBOX_STRING_F); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,17985,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,17986,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDESEARCHEDBOX_LONG_MOUSEDOWN= 0 ; -if(!qbevent)break;evnt(26070,17990,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDESEARCHEDBOX_LONG_MOUSEUP= 0 ; -if(!qbevent)break;evnt(26070,17991,"ide_methods.bas");}while(r); -dl_continue_6117:; -}while(1); -dl_exit_6117:; -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free247.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_IDESEARCHEDBOX_STRING_IDESEARCHEDBOX);return _FUNC_IDESEARCHEDBOX_STRING_IDESEARCHEDBOX; -} -void SUB_IDEIMPORTBOOKMARKS(qbs*_SUB_IDEIMPORTBOOKMARKS_STRING_F2){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data248.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -*__LONG_IDEBMKN= 0 ; -if(!qbevent)break;evnt(26070,18000,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_IDEIMPORTBOOKMARKS_STRING_F,qbs_add(qbs_add(__STRING_CRLF,_SUB_IDEIMPORTBOOKMARKS_STRING_F2),__STRING_CRLF)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18001,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEIMPORTBOOKMARKS_LONG_FH=func_freefile(); -if(!qbevent)break;evnt(26070,18002,"ide_methods.bas");}while(r); -do{ -sub_open(qbs_new_txt_len(".\\internal\\temp\\bookmarks.bin",29), 2 ,NULL,NULL,*_SUB_IDEIMPORTBOOKMARKS_LONG_FH,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18002,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_IDEIMPORTBOOKMARKS_STRING_A,func_space(func_lof(*_SUB_IDEIMPORTBOOKMARKS_LONG_FH))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18002,"ide_methods.bas");}while(r); -do{ -sub_get2(*_SUB_IDEIMPORTBOOKMARKS_LONG_FH,NULL,_SUB_IDEIMPORTBOOKMARKS_STRING_A,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18002,"ide_methods.bas");}while(r); -do{ -sub_close(*_SUB_IDEIMPORTBOOKMARKS_LONG_FH,1); -if(!qbevent)break;evnt(26070,18002,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEIMPORTBOOKMARKS_LONG_X=func_instr(NULL,qbs_ucase(_SUB_IDEIMPORTBOOKMARKS_STRING_A),qbs_ucase(_SUB_IDEIMPORTBOOKMARKS_STRING_F),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18003,"ide_methods.bas");}while(r); -S_55651:; -if ((*_SUB_IDEIMPORTBOOKMARKS_LONG_X)||new_error){ -if(qbevent){evnt(26070,18004,"ide_methods.bas");if(r)goto S_55651;} -do{ -*_SUB_IDEIMPORTBOOKMARKS_LONG_L=string2l(func_mid(_SUB_IDEIMPORTBOOKMARKS_STRING_A,*_SUB_IDEIMPORTBOOKMARKS_LONG_X+_SUB_IDEIMPORTBOOKMARKS_STRING_F->len, 4 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18005,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEIMPORTBOOKMARKS_LONG_X1=*_SUB_IDEIMPORTBOOKMARKS_LONG_X+_SUB_IDEIMPORTBOOKMARKS_STRING_F->len+ 4 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18006,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_IDEIMPORTBOOKMARKS_STRING_D,func_mid(_SUB_IDEIMPORTBOOKMARKS_STRING_A,*_SUB_IDEIMPORTBOOKMARKS_LONG_X1,*_SUB_IDEIMPORTBOOKMARKS_LONG_L,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18007,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEIMPORTBOOKMARKS_LONG_N=*_SUB_IDEIMPORTBOOKMARKS_LONG_L/ 16 ; -if(!qbevent)break;evnt(26070,18008,"ide_methods.bas");}while(r); -S_55656:; -fornext_value6128= 1 ; -fornext_finalvalue6128=*_SUB_IDEIMPORTBOOKMARKS_LONG_N; -fornext_step6128= 1 ; -if (fornext_step6128<0) fornext_step_negative6128=1; else fornext_step_negative6128=0; -if (new_error) goto fornext_error6128; -goto fornext_entrylabel6128; -while(1){ -fornext_value6128=fornext_step6128+(*_SUB_IDEIMPORTBOOKMARKS_LONG_I); -fornext_entrylabel6128: -*_SUB_IDEIMPORTBOOKMARKS_LONG_I=fornext_value6128; -if (fornext_step_negative6128){ -if (fornext_value6128fornext_finalvalue6128) break; -} -fornext_error6128:; -if(qbevent){evnt(26070,18009,"ide_methods.bas");if(r)goto S_55656;} -do{ -*_SUB_IDEIMPORTBOOKMARKS_LONG_BY=string2l(func_mid(_SUB_IDEIMPORTBOOKMARKS_STRING_D,((*_SUB_IDEIMPORTBOOKMARKS_LONG_I- 1 )* 16 )+( 1 ), 4 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18010,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEIMPORTBOOKMARKS_LONG_BX=string2l(func_mid(_SUB_IDEIMPORTBOOKMARKS_STRING_D,((*_SUB_IDEIMPORTBOOKMARKS_LONG_I- 1 )* 16 )+( 1 )+( 4 ), 4 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18011,"ide_methods.bas");}while(r); -S_55659:; -if ((-(*_SUB_IDEIMPORTBOOKMARKS_LONG_BY<=*__LONG_IDEN))||new_error){ -if(qbevent){evnt(26070,18012,"ide_methods.bas");if(r)goto S_55659;} -do{ -*__LONG_IDEBMKN=*__LONG_IDEBMKN+ 1 ; -if(!qbevent)break;evnt(26070,18013,"ide_methods.bas");}while(r); -S_55661:; -if ((-(*__LONG_IDEBMKN>func_ubound(__ARRAY_UDT_IDEBMK,1,1)))||new_error){ -if(qbevent){evnt(26070,18014,"ide_methods.bas");if(r)goto S_55661;} -do{ -*_SUB_IDEIMPORTBOOKMARKS_LONG_X=func_ubound(__ARRAY_UDT_IDEBMK,1,1)* 2 ; -if(!qbevent)break;evnt(26070,18014,"ide_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26070,17853,"ide_methods.bas");}while(r); +do{ +SUB_RETRIEVESEARCHHISTORY(_FUNC_IDESEARCHEDBOX_ARRAY_STRING_SEARCHHISTORY); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17854,"ide_methods.bas");}while(r); +S_55494:; +fornext_value6113= 1 ; +fornext_finalvalue6113=func_ubound(_FUNC_IDESEARCHEDBOX_ARRAY_STRING_SEARCHHISTORY,1,1); +fornext_step6113= 1 ; +if (fornext_step6113<0) fornext_step_negative6113=1; else fornext_step_negative6113=0; +if (new_error) goto fornext_error6113; +goto fornext_entrylabel6113; +while(1){ +fornext_value6113=fornext_step6113+(*_FUNC_IDESEARCHEDBOX_LONG_I); +fornext_entrylabel6113: +*_FUNC_IDESEARCHEDBOX_LONG_I=fornext_value6113; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative6113){ +if (fornext_value6113fornext_finalvalue6113) break; +} +fornext_error6113:; +if(qbevent){evnt(26070,17855,"ide_methods.bas");if(r)goto S_55494;} +do{ +qbs_set(_FUNC_IDESEARCHEDBOX_STRING_L,qbs_add(qbs_add(((qbs*)(((uint64*)(_FUNC_IDESEARCHEDBOX_ARRAY_STRING_SEARCHHISTORY[0]))[array_check((*_FUNC_IDESEARCHEDBOX_LONG_I)-_FUNC_IDESEARCHEDBOX_ARRAY_STRING_SEARCHHISTORY[4],_FUNC_IDESEARCHEDBOX_ARRAY_STRING_SEARCHHISTORY[5])])),_FUNC_IDESEARCHEDBOX_STRING1_SEP),_FUNC_IDESEARCHEDBOX_STRING_L)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17856,"ide_methods.bas");}while(r); +fornext_continue_6112:; +} +fornext_exit_6112:; +do{ +*_FUNC_IDESEARCHEDBOX_LONG_H=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 9 ; +if(!qbevent)break;evnt(26070,17860,"ide_methods.bas");}while(r); +S_55498:; +if ((-(*_FUNC_IDESEARCHEDBOX_LONG_LN<*_FUNC_IDESEARCHEDBOX_LONG_H))||new_error){ +if(qbevent){evnt(26070,17861,"ide_methods.bas");if(r)goto S_55498;} +do{ +*_FUNC_IDESEARCHEDBOX_LONG_H=*_FUNC_IDESEARCHEDBOX_LONG_LN; +if(!qbevent)break;evnt(26070,17861,"ide_methods.bas");}while(r); +} +S_55501:; +if ((-(*_FUNC_IDESEARCHEDBOX_LONG_H< 3 ))||new_error){ +if(qbevent){evnt(26070,17862,"ide_methods.bas");if(r)goto S_55501;} +do{ +*_FUNC_IDESEARCHEDBOX_LONG_H= 3 ; +if(!qbevent)break;evnt(26070,17862,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDESEARCHEDBOX_LONG_I= 0 ; +if(!qbevent)break;evnt(26070,17864,"ide_methods.bas");}while(r); +do{ +SUB_IDEPAR((void*)( ((char*)(_FUNC_IDESEARCHEDBOX_UDT_P)) + (0) ),&(pass6114= 20 ),_FUNC_IDESEARCHEDBOX_LONG_H,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17865,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_UDT_P)+(0))=*__LONG_IDEWX- 24 ; +if(!qbevent)break;evnt(26070,17866,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_UDT_P)+(4))=*__LONG_IDEWY- 6 -*_FUNC_IDESEARCHEDBOX_LONG_H; +if(!qbevent)break;evnt(26070,17867,"ide_methods.bas");}while(r); +S_55508:; +if ((-(*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_UDT_P)+(4))< 3 ))||new_error){ +if(qbevent){evnt(26070,17868,"ide_methods.bas");if(r)goto S_55508;} +do{ +*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_UDT_P)+(12))=*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_UDT_P)+(12))-func_abs((int64)( 3 -*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_UDT_P)+(4)))); +if(!qbevent)break;evnt(26070,17869,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDESEARCHEDBOX_LONG_H=*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_UDT_P)+(12)); +if(!qbevent)break;evnt(26070,17870,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_UDT_P)+(4))= 3 ; +if(!qbevent)break;evnt(26070,17871,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDESEARCHEDBOX_LONG_I=*_FUNC_IDESEARCHEDBOX_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,17874,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESEARCHEDBOX_LONG_I)-_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4],_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]))*89+36))= 2 ; +if(!qbevent)break;evnt(26070,17875,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESEARCHEDBOX_LONG_I)-_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4],_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]))*89+20))= -1 ; +if(!qbevent)break;evnt(26070,17876,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESEARCHEDBOX_LONG_I)-_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4],_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]))*89+24))= 0 ; +if(!qbevent)break;evnt(26070,17876,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESEARCHEDBOX_LONG_I)-_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4],_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]))*89+28))= 22 ; +if(!qbevent)break;evnt(26070,17878,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESEARCHEDBOX_LONG_I)-_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4],_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]))*89+32))=*_FUNC_IDESEARCHEDBOX_LONG_H; +if(!qbevent)break;evnt(26070,17878,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESEARCHEDBOX_LONG_I)-_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4],_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDESEARCHEDBOX_STRING_L); +if(!qbevent)break;evnt(26070,17879,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESEARCHEDBOX_LONG_I)-_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4],_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]))*89+64))= 1 ; +if(!qbevent)break;evnt(26070,17880,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESEARCHEDBOX_LONG_I)-_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4],_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("Find",4)); +if(!qbevent)break;evnt(26070,17881,"ide_methods.bas");}while(r); +S_55522:; +fornext_value6116= 1 ; +fornext_finalvalue6116= 100 ; +fornext_step6116= 1 ; +if (fornext_step6116<0) fornext_step_negative6116=1; else fornext_step_negative6116=0; +if (new_error) goto fornext_error6116; +goto fornext_entrylabel6116; +while(1){ +fornext_value6116=fornext_step6116+(*_FUNC_IDESEARCHEDBOX_LONG_I); +fornext_entrylabel6116: +*_FUNC_IDESEARCHEDBOX_LONG_I=fornext_value6116; +if (fornext_step_negative6116){ +if (fornext_value6116fornext_finalvalue6116) break; +} +fornext_error6116:; +if(qbevent){evnt(26070,17892,"ide_methods.bas");if(r)goto S_55522;} +do{ +memcpy(((char*)_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESEARCHEDBOX_LONG_I)-_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4],_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]))*89)+ 0,((char*)_FUNC_IDESEARCHEDBOX_UDT_P)+(0)+ 0, 20); +if(!qbevent)break;evnt(26070,17892,"ide_methods.bas");}while(r); +fornext_continue_6115:; +} +fornext_exit_6115:; +S_55525:; +do{ +if(qbevent){evnt(26070,17895,"ide_methods.bas");if(r)goto S_55525;} +do{ +SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDESEARCHEDBOX_UDT_P)) + (0) )); +if(!qbevent)break;evnt(26070,17898,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDESEARCHEDBOX_LONG_F= 1 ; +if(!qbevent)break;evnt(26070,17899,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDESEARCHEDBOX_LONG_CX= 0 ; +if(!qbevent)break;evnt(26070,17899,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDESEARCHEDBOX_LONG_CY= 0 ; +if(!qbevent)break;evnt(26070,17899,"ide_methods.bas");}while(r); +S_55530:; +fornext_value6119= 1 ; +fornext_finalvalue6119= 100 ; +fornext_step6119= 1 ; +if (fornext_step6119<0) fornext_step_negative6119=1; else fornext_step_negative6119=0; +if (new_error) goto fornext_error6119; +goto fornext_entrylabel6119; +while(1){ +fornext_value6119=fornext_step6119+(*_FUNC_IDESEARCHEDBOX_LONG_I); +fornext_entrylabel6119: +*_FUNC_IDESEARCHEDBOX_LONG_I=fornext_value6119; +if (fornext_step_negative6119){ +if (fornext_value6119fornext_finalvalue6119) break; +} +fornext_error6119:; +if(qbevent){evnt(26070,17900,"ide_methods.bas");if(r)goto S_55530;} +S_55531:; +if ((*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESEARCHEDBOX_LONG_I)-_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4],_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]))*89+36)))||new_error){ +if(qbevent){evnt(26070,17901,"ide_methods.bas");if(r)goto S_55531;} +do{ +*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESEARCHEDBOX_LONG_I)-_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4],_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]))*89+60))=*_FUNC_IDESEARCHEDBOX_LONG_FOCUS-*_FUNC_IDESEARCHEDBOX_LONG_F; +if(!qbevent)break;evnt(26070,17904,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESEARCHEDBOX_LONG_I)-_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4],_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]))*89+52))= 0 ; +if(!qbevent)break;evnt(26070,17905,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESEARCHEDBOX_LONG_I)-_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4],_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]))*89+56))= 0 ; +if(!qbevent)break;evnt(26070,17905,"ide_methods.bas");}while(r); +do{ +SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDESEARCHEDBOX_LONG_I)-_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4],_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDESEARCHEDBOX_LONG_F); +if(!qbevent)break;evnt(26070,17906,"ide_methods.bas");}while(r); +S_55536:; +if ((*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESEARCHEDBOX_LONG_I)-_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4],_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]))*89+52)))||new_error){ +if(qbevent){evnt(26070,17907,"ide_methods.bas");if(r)goto S_55536;} +do{ +*_FUNC_IDESEARCHEDBOX_LONG_CX=*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESEARCHEDBOX_LONG_I)-_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4],_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]))*89+52)); +if(!qbevent)break;evnt(26070,17907,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDESEARCHEDBOX_LONG_CY=*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESEARCHEDBOX_LONG_I)-_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4],_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]))*89+56)); +if(!qbevent)break;evnt(26070,17907,"ide_methods.bas");}while(r); +} +} +fornext_continue_6118:; +} +fornext_exit_6118:; +do{ +*_FUNC_IDESEARCHEDBOX_LONG_LASTFOCUS=*_FUNC_IDESEARCHEDBOX_LONG_F- 1 ; +if(!qbevent)break;evnt(26070,17910,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 1 , 0 ); +if(!qbevent)break;evnt(26070,17917,"ide_methods.bas");}while(r); +S_55544:; +if ((*_FUNC_IDESEARCHEDBOX_LONG_CX)||new_error){ +if(qbevent){evnt(26070,17918,"ide_methods.bas");if(r)goto S_55544;} +do{ +qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,17918,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(*_FUNC_IDESEARCHEDBOX_LONG_CY,*_FUNC_IDESEARCHEDBOX_LONG_CX, 1 ,NULL,NULL,7); +if(!qbevent)break;evnt(26070,17918,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,17918,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDESEARCHEDBOX_LONG_CHANGE= 0 ; +if(!qbevent)break;evnt(26070,17921,"ide_methods.bas");}while(r); +S_55550:; +do{ +if(qbevent){evnt(26070,17922,"ide_methods.bas");if(r)goto S_55550;} +do{ +SUB_GETINPUT(); +if(!qbevent)break;evnt(26070,17923,"ide_methods.bas");}while(r); +S_55552:; +if ((*__LONG_MWHEEL)||new_error){ +if(qbevent){evnt(26070,17924,"ide_methods.bas");if(r)goto S_55552;} +do{ +*_FUNC_IDESEARCHEDBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,17924,"ide_methods.bas");}while(r); +} +S_55555:; +if ((*__LONG_KB)||new_error){ +if(qbevent){evnt(26070,17925,"ide_methods.bas");if(r)goto S_55555;} +do{ +*_FUNC_IDESEARCHEDBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,17925,"ide_methods.bas");}while(r); +} +S_55558:; +if ((*__LONG_MCLICK)||new_error){ +if(qbevent){evnt(26070,17926,"ide_methods.bas");if(r)goto S_55558;} +do{ +*_FUNC_IDESEARCHEDBOX_LONG_MOUSEDOWN= 1 ; +if(!qbevent)break;evnt(26070,17926,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDESEARCHEDBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,17926,"ide_methods.bas");}while(r); +} +S_55562:; +if ((*__LONG_MRELEASE)||new_error){ +if(qbevent){evnt(26070,17927,"ide_methods.bas");if(r)goto S_55562;} +do{ +*_FUNC_IDESEARCHEDBOX_LONG_MOUSEUP= 1 ; +if(!qbevent)break;evnt(26070,17927,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDESEARCHEDBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,17927,"ide_methods.bas");}while(r); +} +S_55566:; +if ((*__LONG_MB)||new_error){ +if(qbevent){evnt(26070,17928,"ide_methods.bas");if(r)goto S_55566;} +do{ +*_FUNC_IDESEARCHEDBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,17928,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDESEARCHEDBOX_LONG_ALT=*__LONG_KALT; +if(!qbevent)break;evnt(26070,17929,"ide_methods.bas");}while(r); +S_55570:; +if ((-(*_FUNC_IDESEARCHEDBOX_LONG_ALT!=*_FUNC_IDESEARCHEDBOX_LONG_OLDALT))||new_error){ +if(qbevent){evnt(26070,17929,"ide_methods.bas");if(r)goto S_55570;} +do{ +*_FUNC_IDESEARCHEDBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,17929,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDESEARCHEDBOX_LONG_OLDALT=*_FUNC_IDESEARCHEDBOX_LONG_ALT; +if(!qbevent)break;evnt(26070,17930,"ide_methods.bas");}while(r); +do{ +sub__limit( 100 ); +if(!qbevent)break;evnt(26070,17931,"ide_methods.bas");}while(r); +S_55575:; +dl_continue_6120:; +}while((!(*_FUNC_IDESEARCHEDBOX_LONG_CHANGE))&&(!new_error)); +dl_exit_6120:; +if(qbevent){evnt(26070,17932,"ide_methods.bas");if(r)goto S_55575;} +S_55576:; +if ((*_FUNC_IDESEARCHEDBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ +if(qbevent){evnt(26070,17933,"ide_methods.bas");if(r)goto S_55576;} +do{ +*__LONG_IDEHL= 1 ; +if(!qbevent)break;evnt(26070,17933,"ide_methods.bas");}while(r); +}else{ +do{ +*__LONG_IDEHL= 0 ; +if(!qbevent)break;evnt(26070,17933,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDESEARCHEDBOX_STRING_ALTLETTER,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17935,"ide_methods.bas");}while(r); +S_55582:; +if ((*_FUNC_IDESEARCHEDBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ +if(qbevent){evnt(26070,17936,"ide_methods.bas");if(r)goto S_55582;} +S_55583:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ +if(qbevent){evnt(26070,17937,"ide_methods.bas");if(r)goto S_55583;} +do{ +*_FUNC_IDESEARCHEDBOX_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17938,"ide_methods.bas");}while(r); +S_55585:; +if (((-(*_FUNC_IDESEARCHEDBOX_LONG_K>= 65 ))&(-(*_FUNC_IDESEARCHEDBOX_LONG_K<= 90 )))||new_error){ +if(qbevent){evnt(26070,17939,"ide_methods.bas");if(r)goto S_55585;} +do{ +qbs_set(_FUNC_IDESEARCHEDBOX_STRING_ALTLETTER,func_chr(*_FUNC_IDESEARCHEDBOX_LONG_K)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17939,"ide_methods.bas");}while(r); +} +} +} +do{ +qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,17942,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); +if(!qbevent)break;evnt(26070,17942,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,17942,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDESEARCHEDBOX_LONG_INFO= 0 ; +if(!qbevent)break;evnt(26070,17946,"ide_methods.bas");}while(r); +S_55594:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,17947,"ide_methods.bas");if(r)goto S_55594;} +do{ +qbs_set(__STRING_K,func_chr( 255 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17947,"ide_methods.bas");}while(r); +} +S_55597:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ +if(qbevent){evnt(26070,17948,"ide_methods.bas");if(r)goto S_55597;} +do{ +*_FUNC_IDESEARCHEDBOX_LONG_FOCUS=*_FUNC_IDESEARCHEDBOX_LONG_FOCUS+ 1 ; +if(!qbevent)break;evnt(26070,17948,"ide_methods.bas");}while(r); +} +S_55600:; +if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||new_error){ +if(qbevent){evnt(26070,17949,"ide_methods.bas");if(r)goto S_55600;} +do{ +*_FUNC_IDESEARCHEDBOX_LONG_FOCUS=*_FUNC_IDESEARCHEDBOX_LONG_FOCUS- 1 ; +if(!qbevent)break;evnt(26070,17949,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_K,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17949,"ide_methods.bas");}while(r); +} +S_55604:; +if ((-(*_FUNC_IDESEARCHEDBOX_LONG_FOCUS< 1 ))||new_error){ +if(qbevent){evnt(26070,17950,"ide_methods.bas");if(r)goto S_55604;} +do{ +*_FUNC_IDESEARCHEDBOX_LONG_FOCUS=*_FUNC_IDESEARCHEDBOX_LONG_LASTFOCUS; +if(!qbevent)break;evnt(26070,17950,"ide_methods.bas");}while(r); +} +S_55607:; +if ((-(*_FUNC_IDESEARCHEDBOX_LONG_FOCUS>*_FUNC_IDESEARCHEDBOX_LONG_LASTFOCUS))||new_error){ +if(qbevent){evnt(26070,17951,"ide_methods.bas");if(r)goto S_55607;} +do{ +*_FUNC_IDESEARCHEDBOX_LONG_FOCUS= 1 ; +if(!qbevent)break;evnt(26070,17951,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDESEARCHEDBOX_LONG_F= 1 ; +if(!qbevent)break;evnt(26070,17952,"ide_methods.bas");}while(r); +S_55611:; +fornext_value6123= 1 ; +fornext_finalvalue6123= 100 ; +fornext_step6123= 1 ; +if (fornext_step6123<0) fornext_step_negative6123=1; else fornext_step_negative6123=0; +if (new_error) goto fornext_error6123; +goto fornext_entrylabel6123; +while(1){ +fornext_value6123=fornext_step6123+(*_FUNC_IDESEARCHEDBOX_LONG_I); +fornext_entrylabel6123: +*_FUNC_IDESEARCHEDBOX_LONG_I=fornext_value6123; +if (fornext_step_negative6123){ +if (fornext_value6123fornext_finalvalue6123) break; +} +fornext_error6123:; +if(qbevent){evnt(26070,17953,"ide_methods.bas");if(r)goto S_55611;} +do{ +*_FUNC_IDESEARCHEDBOX_LONG_T=*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDESEARCHEDBOX_LONG_I)-_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4],_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]))*89+36)); +if(!qbevent)break;evnt(26070,17954,"ide_methods.bas");}while(r); +S_55613:; +if ((*_FUNC_IDESEARCHEDBOX_LONG_T)||new_error){ +if(qbevent){evnt(26070,17955,"ide_methods.bas");if(r)goto S_55613;} +do{ +*_FUNC_IDESEARCHEDBOX_LONG_FOCUSOFFSET=*_FUNC_IDESEARCHEDBOX_LONG_FOCUS-*_FUNC_IDESEARCHEDBOX_LONG_F; +if(!qbevent)break;evnt(26070,17956,"ide_methods.bas");}while(r); +do{ +SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDESEARCHEDBOX_LONG_I)-_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4],_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDESEARCHEDBOX_LONG_FOCUS,_FUNC_IDESEARCHEDBOX_LONG_F,_FUNC_IDESEARCHEDBOX_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDESEARCHEDBOX_STRING_ALTLETTER,__LONG_MB,_FUNC_IDESEARCHEDBOX_LONG_MOUSEDOWN,_FUNC_IDESEARCHEDBOX_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDESEARCHEDBOX_LONG_INFO,__LONG_MWHEEL); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17957,"ide_methods.bas");}while(r); +} +fornext_continue_6122:; +} +fornext_exit_6122:; +S_55618:; +if ((*__LONG_MCLICK)||new_error){ +if(qbevent){evnt(26070,17963,"ide_methods.bas");if(r)goto S_55618;} +S_55619:; +if (((-(*__LONG_MX<(*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_UDT_P)+(0))- 1 )))|(-(*__LONG_MY<*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_UDT_P)+(4))))|(-(*__LONG_MX>(*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_UDT_P)+(0))+*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_UDT_P)+(8))+ 2 )))|(-(*__LONG_MY>(*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_UDT_P)+(4))+*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_UDT_P)+(12))+ 1 ))))||new_error){ +if(qbevent){evnt(26070,17964,"ide_methods.bas");if(r)goto S_55619;} +do{ +qbs_set(_FUNC_IDESEARCHEDBOX_STRING_IDESEARCHEDBOX,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17965,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,17966,"ide_methods.bas");}while(r); +} +} +S_55624:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,func_chr( 27 ))))||new_error){ +if(qbevent){evnt(26070,17970,"ide_methods.bas");if(r)goto S_55624;} +do{ +qbs_set(_FUNC_IDESEARCHEDBOX_STRING_IDESEARCHEDBOX,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17971,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,17972,"ide_methods.bas");}while(r); +} +S_55628:; +if ((*__LONG_MCLICK)||new_error){ +if(qbevent){evnt(26070,17975,"ide_methods.bas");if(r)goto S_55628;} +S_55629:; +if (((-(*__LONG_MX>(*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_UDT_P)+(0))- 1 )))&(-(*__LONG_MY>*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_UDT_P)+(4))))&(-(*__LONG_MX<(*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_UDT_P)+(0))+*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_UDT_P)+(8))+ 2 )))&(-(*__LONG_MY<(*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_UDT_P)+(4))+*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_UDT_P)+(12))+ 1 ))))||new_error){ +if(qbevent){evnt(26070,17976,"ide_methods.bas");if(r)goto S_55629;} +do{ +qbs_set(_FUNC_IDESEARCHEDBOX_STRING_F,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4],_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]))*89+72)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17977,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDESEARCHEDBOX_STRING_IDESEARCHEDBOX,_FUNC_IDESEARCHEDBOX_STRING_F); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17978,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,17979,"ide_methods.bas");}while(r); +} +} +S_55635:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 13 )))|(((-(*_FUNC_IDESEARCHEDBOX_LONG_INFO== 1 ))&(-(*_FUNC_IDESEARCHEDBOX_LONG_FOCUS== 1 ))))))||new_error){ +if(qbevent){evnt(26070,17983,"ide_methods.bas");if(r)goto S_55635;} +do{ +qbs_set(_FUNC_IDESEARCHEDBOX_STRING_F,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[4],_FUNC_IDESEARCHEDBOX_ARRAY_UDT_O[5]))*89+72)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17984,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDESEARCHEDBOX_STRING_IDESEARCHEDBOX,_FUNC_IDESEARCHEDBOX_STRING_F); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,17985,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,17986,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDESEARCHEDBOX_LONG_MOUSEDOWN= 0 ; +if(!qbevent)break;evnt(26070,17990,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDESEARCHEDBOX_LONG_MOUSEUP= 0 ; +if(!qbevent)break;evnt(26070,17991,"ide_methods.bas");}while(r); +dl_continue_6117:; +}while(1); +dl_exit_6117:; +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free247.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_IDESEARCHEDBOX_STRING_IDESEARCHEDBOX);return _FUNC_IDESEARCHEDBOX_STRING_IDESEARCHEDBOX; +} +void SUB_IDEIMPORTBOOKMARKS(qbs*_SUB_IDEIMPORTBOOKMARKS_STRING_F2){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data248.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +*__LONG_IDEBMKN= 0 ; +if(!qbevent)break;evnt(26070,18000,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_IDEIMPORTBOOKMARKS_STRING_F,qbs_add(qbs_add(__STRING_CRLF,_SUB_IDEIMPORTBOOKMARKS_STRING_F2),__STRING_CRLF)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18001,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEIMPORTBOOKMARKS_LONG_FH=func_freefile(); +if(!qbevent)break;evnt(26070,18002,"ide_methods.bas");}while(r); +do{ +sub_open(qbs_new_txt_len(".\\internal\\temp\\bookmarks.bin",29), 2 ,NULL,NULL,*_SUB_IDEIMPORTBOOKMARKS_LONG_FH,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18002,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_IDEIMPORTBOOKMARKS_STRING_A,func_space(func_lof(*_SUB_IDEIMPORTBOOKMARKS_LONG_FH))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18002,"ide_methods.bas");}while(r); +do{ +sub_get2(*_SUB_IDEIMPORTBOOKMARKS_LONG_FH,NULL,_SUB_IDEIMPORTBOOKMARKS_STRING_A,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18002,"ide_methods.bas");}while(r); +do{ +sub_close(*_SUB_IDEIMPORTBOOKMARKS_LONG_FH,1); +if(!qbevent)break;evnt(26070,18002,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEIMPORTBOOKMARKS_LONG_X=func_instr(NULL,qbs_ucase(_SUB_IDEIMPORTBOOKMARKS_STRING_A),qbs_ucase(_SUB_IDEIMPORTBOOKMARKS_STRING_F),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18003,"ide_methods.bas");}while(r); +S_55651:; +if ((*_SUB_IDEIMPORTBOOKMARKS_LONG_X)||new_error){ +if(qbevent){evnt(26070,18004,"ide_methods.bas");if(r)goto S_55651;} +do{ +*_SUB_IDEIMPORTBOOKMARKS_LONG_L=string2l(func_mid(_SUB_IDEIMPORTBOOKMARKS_STRING_A,*_SUB_IDEIMPORTBOOKMARKS_LONG_X+_SUB_IDEIMPORTBOOKMARKS_STRING_F->len, 4 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18005,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEIMPORTBOOKMARKS_LONG_X1=*_SUB_IDEIMPORTBOOKMARKS_LONG_X+_SUB_IDEIMPORTBOOKMARKS_STRING_F->len+ 4 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18006,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_IDEIMPORTBOOKMARKS_STRING_D,func_mid(_SUB_IDEIMPORTBOOKMARKS_STRING_A,*_SUB_IDEIMPORTBOOKMARKS_LONG_X1,*_SUB_IDEIMPORTBOOKMARKS_LONG_L,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18007,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEIMPORTBOOKMARKS_LONG_N=*_SUB_IDEIMPORTBOOKMARKS_LONG_L/ 16 ; +if(!qbevent)break;evnt(26070,18008,"ide_methods.bas");}while(r); +S_55656:; +fornext_value6128= 1 ; +fornext_finalvalue6128=*_SUB_IDEIMPORTBOOKMARKS_LONG_N; +fornext_step6128= 1 ; +if (fornext_step6128<0) fornext_step_negative6128=1; else fornext_step_negative6128=0; +if (new_error) goto fornext_error6128; +goto fornext_entrylabel6128; +while(1){ +fornext_value6128=fornext_step6128+(*_SUB_IDEIMPORTBOOKMARKS_LONG_I); +fornext_entrylabel6128: +*_SUB_IDEIMPORTBOOKMARKS_LONG_I=fornext_value6128; +if (fornext_step_negative6128){ +if (fornext_value6128fornext_finalvalue6128) break; +} +fornext_error6128:; +if(qbevent){evnt(26070,18009,"ide_methods.bas");if(r)goto S_55656;} +do{ +*_SUB_IDEIMPORTBOOKMARKS_LONG_BY=string2l(func_mid(_SUB_IDEIMPORTBOOKMARKS_STRING_D,((*_SUB_IDEIMPORTBOOKMARKS_LONG_I- 1 )* 16 )+( 1 ), 4 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18010,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEIMPORTBOOKMARKS_LONG_BX=string2l(func_mid(_SUB_IDEIMPORTBOOKMARKS_STRING_D,((*_SUB_IDEIMPORTBOOKMARKS_LONG_I- 1 )* 16 )+( 1 )+( 4 ), 4 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18011,"ide_methods.bas");}while(r); +S_55659:; +if ((-(*_SUB_IDEIMPORTBOOKMARKS_LONG_BY<=*__LONG_IDEN))||new_error){ +if(qbevent){evnt(26070,18012,"ide_methods.bas");if(r)goto S_55659;} +do{ +*__LONG_IDEBMKN=*__LONG_IDEBMKN+ 1 ; +if(!qbevent)break;evnt(26070,18013,"ide_methods.bas");}while(r); +S_55661:; +if ((-(*__LONG_IDEBMKN>func_ubound(__ARRAY_UDT_IDEBMK,1,1)))||new_error){ +if(qbevent){evnt(26070,18014,"ide_methods.bas");if(r)goto S_55661;} +do{ +*_SUB_IDEIMPORTBOOKMARKS_LONG_X=func_ubound(__ARRAY_UDT_IDEBMK,1,1)* 2 ; +if(!qbevent)break;evnt(26070,18014,"ide_methods.bas");}while(r); +do{ if (__ARRAY_UDT_IDEBMK[2]&2){ error(10); @@ -187808,356 +187808,356 @@ if (!__ARRAY_UDT_IDEBMK[0]) error(257); } } __ARRAY_UDT_IDEBMK[2]|=1; -} -if(!qbevent)break;evnt(26070,18014,"ide_methods.bas");}while(r); -} -do{ -*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*__LONG_IDEBMKN)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16))=*_SUB_IDEIMPORTBOOKMARKS_LONG_BY; -if(!qbevent)break;evnt(26070,18015,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*__LONG_IDEBMKN)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16+4))=*_SUB_IDEIMPORTBOOKMARKS_LONG_BX; -if(!qbevent)break;evnt(26070,18016,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*__LONG_IDEBMKN)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16+8))= 0 ; -if(!qbevent)break;evnt(26070,18017,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*__LONG_IDEBMKN)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16+12))= 0 ; -if(!qbevent)break;evnt(26070,18017,"ide_methods.bas");}while(r); -} -fornext_continue_6127:; -} -fornext_exit_6127:; -} -do{ -*_SUB_IDEIMPORTBOOKMARKS_LONG_X=qbr(func_val(FUNC_READSETTING(qbs_new_txt_len(".\\internal\\temp\\debug.ini",25),_SUB_IDEIMPORTBOOKMARKS_STRING_F2,qbs_new_txt_len("total breakpoints",17)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18023,"ide_methods.bas");}while(r); -S_55673:; -if ((*_SUB_IDEIMPORTBOOKMARKS_LONG_X)||new_error){ -if(qbevent){evnt(26070,18024,"ide_methods.bas");if(r)goto S_55673;} -S_55674:; -fornext_value6130= 1 ; -fornext_finalvalue6130=*_SUB_IDEIMPORTBOOKMARKS_LONG_X; -fornext_step6130= 1 ; -if (fornext_step6130<0) fornext_step_negative6130=1; else fornext_step_negative6130=0; -if (new_error) goto fornext_error6130; -goto fornext_entrylabel6130; -while(1){ -fornext_value6130=fornext_step6130+(*_SUB_IDEIMPORTBOOKMARKS_LONG_I); -fornext_entrylabel6130: -*_SUB_IDEIMPORTBOOKMARKS_LONG_I=fornext_value6130; -if (fornext_step_negative6130){ -if (fornext_value6130fornext_finalvalue6130) break; -} -fornext_error6130:; -if(qbevent){evnt(26070,18025,"ide_methods.bas");if(r)goto S_55674;} -do{ -*_SUB_IDEIMPORTBOOKMARKS_LONG_J=qbr(func_val(FUNC_READSETTING(qbs_new_txt_len(".\\internal\\temp\\debug.ini",25),_SUB_IDEIMPORTBOOKMARKS_STRING_F2,qbs_add(qbs_new_txt_len("breakpoint",10),qbs_str((int32)(*_SUB_IDEIMPORTBOOKMARKS_LONG_I)))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18026,"ide_methods.bas");}while(r); -S_55676:; -if ((-(*_SUB_IDEIMPORTBOOKMARKS_LONG_J>func_ubound(__ARRAY_BYTE_IDEBREAKPOINTS,1,1)))||new_error){ -if(qbevent){evnt(26070,18027,"ide_methods.bas");if(r)goto S_55676;} -do{ -goto fornext_exit_6129; -if(!qbevent)break;evnt(26070,18027,"ide_methods.bas");}while(r); -} -do{ -tmp_long=array_check((*_SUB_IDEIMPORTBOOKMARKS_LONG_J)-__ARRAY_BYTE_IDEBREAKPOINTS[4],__ARRAY_BYTE_IDEBREAKPOINTS[5]); -if (!new_error) ((int8*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]))[tmp_long]= -1 ; -if(!qbevent)break;evnt(26070,18028,"ide_methods.bas");}while(r); -fornext_continue_6129:; -} -fornext_exit_6129:; -} -do{ -*_SUB_IDEIMPORTBOOKMARKS_LONG_X=qbr(func_val(FUNC_READSETTING(qbs_new_txt_len(".\\internal\\temp\\debug.ini",25),_SUB_IDEIMPORTBOOKMARKS_STRING_F2,qbs_new_txt_len("total skips",11)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18032,"ide_methods.bas");}while(r); -S_55683:; -if ((*_SUB_IDEIMPORTBOOKMARKS_LONG_X)||new_error){ -if(qbevent){evnt(26070,18033,"ide_methods.bas");if(r)goto S_55683;} -S_55684:; -fornext_value6132= 1 ; -fornext_finalvalue6132=*_SUB_IDEIMPORTBOOKMARKS_LONG_X; -fornext_step6132= 1 ; -if (fornext_step6132<0) fornext_step_negative6132=1; else fornext_step_negative6132=0; -if (new_error) goto fornext_error6132; -goto fornext_entrylabel6132; -while(1){ -fornext_value6132=fornext_step6132+(*_SUB_IDEIMPORTBOOKMARKS_LONG_I); -fornext_entrylabel6132: -*_SUB_IDEIMPORTBOOKMARKS_LONG_I=fornext_value6132; -if (fornext_step_negative6132){ -if (fornext_value6132fornext_finalvalue6132) break; -} -fornext_error6132:; -if(qbevent){evnt(26070,18034,"ide_methods.bas");if(r)goto S_55684;} -do{ -*_SUB_IDEIMPORTBOOKMARKS_LONG_J=qbr(func_val(FUNC_READSETTING(qbs_new_txt_len(".\\internal\\temp\\debug.ini",25),_SUB_IDEIMPORTBOOKMARKS_STRING_F2,qbs_add(qbs_new_txt_len("skip",4),qbs_str((int32)(*_SUB_IDEIMPORTBOOKMARKS_LONG_I)))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18035,"ide_methods.bas");}while(r); -S_55686:; -if ((-(*_SUB_IDEIMPORTBOOKMARKS_LONG_J>func_ubound(__ARRAY_BYTE_IDESKIPLINES,1,1)))||new_error){ -if(qbevent){evnt(26070,18036,"ide_methods.bas");if(r)goto S_55686;} -do{ -goto fornext_exit_6131; -if(!qbevent)break;evnt(26070,18036,"ide_methods.bas");}while(r); -} -do{ -tmp_long=array_check((*_SUB_IDEIMPORTBOOKMARKS_LONG_J)-__ARRAY_BYTE_IDESKIPLINES[4],__ARRAY_BYTE_IDESKIPLINES[5]); -if (!new_error) ((int8*)(__ARRAY_BYTE_IDESKIPLINES[0]))[tmp_long]= -1 ; -if(!qbevent)break;evnt(26070,18037,"ide_methods.bas");}while(r); -fornext_continue_6131:; -} -fornext_exit_6131:; -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free248.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -void SUB_IDESAVEBOOKMARKS(qbs*_SUB_IDESAVEBOOKMARKS_STRING_F2){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data249.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -qbs_set(_SUB_IDESAVEBOOKMARKS_STRING_F,qbs_add(qbs_add(__STRING_CRLF,_SUB_IDESAVEBOOKMARKS_STRING_F2),__STRING_CRLF)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18043,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESAVEBOOKMARKS_LONG_FH=func_freefile(); -if(!qbevent)break;evnt(26070,18044,"ide_methods.bas");}while(r); -do{ -sub_open(qbs_new_txt_len(".\\internal\\temp\\bookmarks.bin",29), 2 ,NULL,NULL,*_SUB_IDESAVEBOOKMARKS_LONG_FH,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18044,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_IDESAVEBOOKMARKS_STRING_A,func_space(func_lof(*_SUB_IDESAVEBOOKMARKS_LONG_FH))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18044,"ide_methods.bas");}while(r); -do{ -sub_get2(*_SUB_IDESAVEBOOKMARKS_LONG_FH,NULL,_SUB_IDESAVEBOOKMARKS_STRING_A,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18044,"ide_methods.bas");}while(r); -do{ -sub_close(*_SUB_IDESAVEBOOKMARKS_LONG_FH,1); -if(!qbevent)break;evnt(26070,18044,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESAVEBOOKMARKS_LONG_X=func_instr(NULL,qbs_ucase(_SUB_IDESAVEBOOKMARKS_STRING_A),qbs_ucase(_SUB_IDESAVEBOOKMARKS_STRING_F),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18045,"ide_methods.bas");}while(r); -S_55699:; -if ((*_SUB_IDESAVEBOOKMARKS_LONG_X)||new_error){ -if(qbevent){evnt(26070,18046,"ide_methods.bas");if(r)goto S_55699;} -do{ -*_SUB_IDESAVEBOOKMARKS_LONG_L=string2l(func_mid(_SUB_IDESAVEBOOKMARKS_STRING_A,*_SUB_IDESAVEBOOKMARKS_LONG_X+_SUB_IDESAVEBOOKMARKS_STRING_F->len, 4 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18047,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESAVEBOOKMARKS_LONG_X2=*_SUB_IDESAVEBOOKMARKS_LONG_X+_SUB_IDESAVEBOOKMARKS_STRING_F->len+ 4 +*_SUB_IDESAVEBOOKMARKS_LONG_L- 1 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18048,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_IDESAVEBOOKMARKS_STRING_A,qbs_add(qbs_left(_SUB_IDESAVEBOOKMARKS_STRING_A,*_SUB_IDESAVEBOOKMARKS_LONG_X- 1 ),qbs_right(_SUB_IDESAVEBOOKMARKS_STRING_A,_SUB_IDESAVEBOOKMARKS_STRING_A->len-*_SUB_IDESAVEBOOKMARKS_LONG_X2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18049,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_SUB_IDESAVEBOOKMARKS_STRING_D,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18053,"ide_methods.bas");}while(r); -S_55705:; -fornext_value6138= 1 ; -fornext_finalvalue6138=*__LONG_IDEBMKN; -fornext_step6138= 1 ; -if (fornext_step6138<0) fornext_step_negative6138=1; else fornext_step_negative6138=0; -if (new_error) goto fornext_error6138; -goto fornext_entrylabel6138; -while(1){ -fornext_value6138=fornext_step6138+(*_SUB_IDESAVEBOOKMARKS_LONG_I); -fornext_entrylabel6138: -*_SUB_IDESAVEBOOKMARKS_LONG_I=fornext_value6138; -if (fornext_step_negative6138){ -if (fornext_value6138fornext_finalvalue6138) break; -} -fornext_error6138:; -if(qbevent){evnt(26070,18054,"ide_methods.bas");if(r)goto S_55705;} -do{ -qbs_set(_SUB_IDESAVEBOOKMARKS_STRING_D,qbs_add(qbs_add(qbs_add(qbs_add(_SUB_IDESAVEBOOKMARKS_STRING_D,l2string(*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_SUB_IDESAVEBOOKMARKS_LONG_I)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16)))),l2string(*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_SUB_IDESAVEBOOKMARKS_LONG_I)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16+4)))),l2string(*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_SUB_IDESAVEBOOKMARKS_LONG_I)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16+8)))),l2string(*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_SUB_IDESAVEBOOKMARKS_LONG_I)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16+12))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18055,"ide_methods.bas");}while(r); -fornext_continue_6137:; -} -fornext_exit_6137:; -do{ -qbs_set(_SUB_IDESAVEBOOKMARKS_STRING_A,qbs_add(qbs_add(qbs_add(_SUB_IDESAVEBOOKMARKS_STRING_F,l2string(_SUB_IDESAVEBOOKMARKS_STRING_D->len)),_SUB_IDESAVEBOOKMARKS_STRING_D),_SUB_IDESAVEBOOKMARKS_STRING_A)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18057,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESAVEBOOKMARKS_LONG_FH=func_freefile(); -if(!qbevent)break;evnt(26070,18058,"ide_methods.bas");}while(r); -do{ -sub_open(qbs_new_txt_len(".\\internal\\temp\\bookmarks.bin",29), 4 ,NULL,NULL,*_SUB_IDESAVEBOOKMARKS_LONG_FH,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18058,"ide_methods.bas");}while(r); -do{ -sub_close(*_SUB_IDESAVEBOOKMARKS_LONG_FH,1); -if(!qbevent)break;evnt(26070,18058,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESAVEBOOKMARKS_LONG_FH=func_freefile(); -if(!qbevent)break;evnt(26070,18059,"ide_methods.bas");}while(r); -do{ -sub_open(qbs_new_txt_len(".\\internal\\temp\\bookmarks.bin",29), 2 ,NULL,NULL,*_SUB_IDESAVEBOOKMARKS_LONG_FH,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18059,"ide_methods.bas");}while(r); -do{ -sub_put2(*_SUB_IDESAVEBOOKMARKS_LONG_FH,NULL,byte_element((uint64)_SUB_IDESAVEBOOKMARKS_STRING_A->chr,_SUB_IDESAVEBOOKMARKS_STRING_A->len,byte_element_6140),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18059,"ide_methods.bas");}while(r); -do{ -sub_close(*_SUB_IDESAVEBOOKMARKS_LONG_FH,1); -if(!qbevent)break;evnt(26070,18059,"ide_methods.bas");}while(r); -S_55716:; -if ((*__LONG_VWATCHON)||new_error){ -if(qbevent){evnt(26070,18062,"ide_methods.bas");if(r)goto S_55716;} -do{ -SUB_WRITESETTING(qbs_new_txt_len(".\\internal\\temp\\debug.ini",25),_SUB_IDESAVEBOOKMARKS_STRING_F2,qbs_new_txt_len("total breakpoints",17),qbs_new_txt_len("0",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18063,"ide_methods.bas");}while(r); -do{ -SUB_WRITESETTING(qbs_new_txt_len(".\\internal\\temp\\debug.ini",25),_SUB_IDESAVEBOOKMARKS_STRING_F2,qbs_new_txt_len("total skips",11),qbs_new_txt_len("0",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18064,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESAVEBOOKMARKS_LONG_X= 0 ; -if(!qbevent)break;evnt(26070,18066,"ide_methods.bas");}while(r); -S_55720:; -fornext_value6142= 1 ; -fornext_finalvalue6142=func_ubound(__ARRAY_BYTE_IDEBREAKPOINTS,1,1); -fornext_step6142= 1 ; -if (fornext_step6142<0) fornext_step_negative6142=1; else fornext_step_negative6142=0; -if (new_error) goto fornext_error6142; -goto fornext_entrylabel6142; -while(1){ -fornext_value6142=fornext_step6142+(*_SUB_IDESAVEBOOKMARKS_LONG_I); -fornext_entrylabel6142: -*_SUB_IDESAVEBOOKMARKS_LONG_I=fornext_value6142; -if (fornext_step_negative6142){ -if (fornext_value6142fornext_finalvalue6142) break; -} -fornext_error6142:; -if(qbevent){evnt(26070,18067,"ide_methods.bas");if(r)goto S_55720;} -S_55721:; -if ((((int8*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]))[array_check((*_SUB_IDESAVEBOOKMARKS_LONG_I)-__ARRAY_BYTE_IDEBREAKPOINTS[4],__ARRAY_BYTE_IDEBREAKPOINTS[5])])||new_error){ -if(qbevent){evnt(26070,18068,"ide_methods.bas");if(r)goto S_55721;} -do{ -*_SUB_IDESAVEBOOKMARKS_LONG_X=*_SUB_IDESAVEBOOKMARKS_LONG_X+ 1 ; -if(!qbevent)break;evnt(26070,18069,"ide_methods.bas");}while(r); -do{ -SUB_WRITESETTING(qbs_new_txt_len(".\\internal\\temp\\debug.ini",25),_SUB_IDESAVEBOOKMARKS_STRING_F2,qbs_add(qbs_new_txt_len("breakpoint",10),qbs_str((int32)(*_SUB_IDESAVEBOOKMARKS_LONG_X))),FUNC_STR2(_SUB_IDESAVEBOOKMARKS_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18070,"ide_methods.bas");}while(r); -} -fornext_continue_6141:; -} -fornext_exit_6141:; -do{ -SUB_WRITESETTING(qbs_new_txt_len(".\\internal\\temp\\debug.ini",25),_SUB_IDESAVEBOOKMARKS_STRING_F2,qbs_new_txt_len("total breakpoints",17),FUNC_STR2(_SUB_IDESAVEBOOKMARKS_LONG_X)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18073,"ide_methods.bas");}while(r); -do{ -*_SUB_IDESAVEBOOKMARKS_LONG_X= 0 ; -if(!qbevent)break;evnt(26070,18075,"ide_methods.bas");}while(r); -S_55728:; -fornext_value6144= 1 ; -fornext_finalvalue6144=func_ubound(__ARRAY_BYTE_IDESKIPLINES,1,1); -fornext_step6144= 1 ; -if (fornext_step6144<0) fornext_step_negative6144=1; else fornext_step_negative6144=0; -if (new_error) goto fornext_error6144; -goto fornext_entrylabel6144; -while(1){ -fornext_value6144=fornext_step6144+(*_SUB_IDESAVEBOOKMARKS_LONG_I); -fornext_entrylabel6144: -*_SUB_IDESAVEBOOKMARKS_LONG_I=fornext_value6144; -if (fornext_step_negative6144){ -if (fornext_value6144fornext_finalvalue6144) break; -} -fornext_error6144:; -if(qbevent){evnt(26070,18076,"ide_methods.bas");if(r)goto S_55728;} -S_55729:; -if ((((int8*)(__ARRAY_BYTE_IDESKIPLINES[0]))[array_check((*_SUB_IDESAVEBOOKMARKS_LONG_I)-__ARRAY_BYTE_IDESKIPLINES[4],__ARRAY_BYTE_IDESKIPLINES[5])])||new_error){ -if(qbevent){evnt(26070,18077,"ide_methods.bas");if(r)goto S_55729;} -do{ -*_SUB_IDESAVEBOOKMARKS_LONG_X=*_SUB_IDESAVEBOOKMARKS_LONG_X+ 1 ; -if(!qbevent)break;evnt(26070,18078,"ide_methods.bas");}while(r); -do{ -SUB_WRITESETTING(qbs_new_txt_len(".\\internal\\temp\\debug.ini",25),_SUB_IDESAVEBOOKMARKS_STRING_F2,qbs_add(qbs_new_txt_len("skip",4),qbs_str((int32)(*_SUB_IDESAVEBOOKMARKS_LONG_X))),FUNC_STR2(_SUB_IDESAVEBOOKMARKS_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18079,"ide_methods.bas");}while(r); -} -fornext_continue_6143:; -} -fornext_exit_6143:; -do{ -SUB_WRITESETTING(qbs_new_txt_len(".\\internal\\temp\\debug.ini",25),_SUB_IDESAVEBOOKMARKS_STRING_F2,qbs_new_txt_len("total skips",11),FUNC_STR2(_SUB_IDESAVEBOOKMARKS_LONG_X)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18082,"ide_methods.bas");}while(r); -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free249.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -qbs* FUNC_IDERECENTBOX(){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data250.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -sub_pcopy( 0 , 2 ); -if(!qbevent)break;evnt(26070,18089,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 0 , 1 ); -if(!qbevent)break;evnt(26070,18090,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,18091,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDERECENTBOX_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(26070,18092,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(26070,18093,"ide_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26070,18014,"ide_methods.bas");}while(r); +} +do{ +*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*__LONG_IDEBMKN)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16))=*_SUB_IDEIMPORTBOOKMARKS_LONG_BY; +if(!qbevent)break;evnt(26070,18015,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*__LONG_IDEBMKN)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16+4))=*_SUB_IDEIMPORTBOOKMARKS_LONG_BX; +if(!qbevent)break;evnt(26070,18016,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*__LONG_IDEBMKN)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16+8))= 0 ; +if(!qbevent)break;evnt(26070,18017,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*__LONG_IDEBMKN)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16+12))= 0 ; +if(!qbevent)break;evnt(26070,18017,"ide_methods.bas");}while(r); +} +fornext_continue_6127:; +} +fornext_exit_6127:; +} +do{ +*_SUB_IDEIMPORTBOOKMARKS_LONG_X=qbr(func_val(FUNC_READSETTING(qbs_new_txt_len(".\\internal\\temp\\debug.ini",25),_SUB_IDEIMPORTBOOKMARKS_STRING_F2,qbs_new_txt_len("total breakpoints",17)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18023,"ide_methods.bas");}while(r); +S_55673:; +if ((*_SUB_IDEIMPORTBOOKMARKS_LONG_X)||new_error){ +if(qbevent){evnt(26070,18024,"ide_methods.bas");if(r)goto S_55673;} +S_55674:; +fornext_value6130= 1 ; +fornext_finalvalue6130=*_SUB_IDEIMPORTBOOKMARKS_LONG_X; +fornext_step6130= 1 ; +if (fornext_step6130<0) fornext_step_negative6130=1; else fornext_step_negative6130=0; +if (new_error) goto fornext_error6130; +goto fornext_entrylabel6130; +while(1){ +fornext_value6130=fornext_step6130+(*_SUB_IDEIMPORTBOOKMARKS_LONG_I); +fornext_entrylabel6130: +*_SUB_IDEIMPORTBOOKMARKS_LONG_I=fornext_value6130; +if (fornext_step_negative6130){ +if (fornext_value6130fornext_finalvalue6130) break; +} +fornext_error6130:; +if(qbevent){evnt(26070,18025,"ide_methods.bas");if(r)goto S_55674;} +do{ +*_SUB_IDEIMPORTBOOKMARKS_LONG_J=qbr(func_val(FUNC_READSETTING(qbs_new_txt_len(".\\internal\\temp\\debug.ini",25),_SUB_IDEIMPORTBOOKMARKS_STRING_F2,qbs_add(qbs_new_txt_len("breakpoint",10),qbs_str((int32)(*_SUB_IDEIMPORTBOOKMARKS_LONG_I)))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18026,"ide_methods.bas");}while(r); +S_55676:; +if ((-(*_SUB_IDEIMPORTBOOKMARKS_LONG_J>func_ubound(__ARRAY_BYTE_IDEBREAKPOINTS,1,1)))||new_error){ +if(qbevent){evnt(26070,18027,"ide_methods.bas");if(r)goto S_55676;} +do{ +goto fornext_exit_6129; +if(!qbevent)break;evnt(26070,18027,"ide_methods.bas");}while(r); +} +do{ +tmp_long=array_check((*_SUB_IDEIMPORTBOOKMARKS_LONG_J)-__ARRAY_BYTE_IDEBREAKPOINTS[4],__ARRAY_BYTE_IDEBREAKPOINTS[5]); +if (!new_error) ((int8*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]))[tmp_long]= -1 ; +if(!qbevent)break;evnt(26070,18028,"ide_methods.bas");}while(r); +fornext_continue_6129:; +} +fornext_exit_6129:; +} +do{ +*_SUB_IDEIMPORTBOOKMARKS_LONG_X=qbr(func_val(FUNC_READSETTING(qbs_new_txt_len(".\\internal\\temp\\debug.ini",25),_SUB_IDEIMPORTBOOKMARKS_STRING_F2,qbs_new_txt_len("total skips",11)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18032,"ide_methods.bas");}while(r); +S_55683:; +if ((*_SUB_IDEIMPORTBOOKMARKS_LONG_X)||new_error){ +if(qbevent){evnt(26070,18033,"ide_methods.bas");if(r)goto S_55683;} +S_55684:; +fornext_value6132= 1 ; +fornext_finalvalue6132=*_SUB_IDEIMPORTBOOKMARKS_LONG_X; +fornext_step6132= 1 ; +if (fornext_step6132<0) fornext_step_negative6132=1; else fornext_step_negative6132=0; +if (new_error) goto fornext_error6132; +goto fornext_entrylabel6132; +while(1){ +fornext_value6132=fornext_step6132+(*_SUB_IDEIMPORTBOOKMARKS_LONG_I); +fornext_entrylabel6132: +*_SUB_IDEIMPORTBOOKMARKS_LONG_I=fornext_value6132; +if (fornext_step_negative6132){ +if (fornext_value6132fornext_finalvalue6132) break; +} +fornext_error6132:; +if(qbevent){evnt(26070,18034,"ide_methods.bas");if(r)goto S_55684;} +do{ +*_SUB_IDEIMPORTBOOKMARKS_LONG_J=qbr(func_val(FUNC_READSETTING(qbs_new_txt_len(".\\internal\\temp\\debug.ini",25),_SUB_IDEIMPORTBOOKMARKS_STRING_F2,qbs_add(qbs_new_txt_len("skip",4),qbs_str((int32)(*_SUB_IDEIMPORTBOOKMARKS_LONG_I)))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18035,"ide_methods.bas");}while(r); +S_55686:; +if ((-(*_SUB_IDEIMPORTBOOKMARKS_LONG_J>func_ubound(__ARRAY_BYTE_IDESKIPLINES,1,1)))||new_error){ +if(qbevent){evnt(26070,18036,"ide_methods.bas");if(r)goto S_55686;} +do{ +goto fornext_exit_6131; +if(!qbevent)break;evnt(26070,18036,"ide_methods.bas");}while(r); +} +do{ +tmp_long=array_check((*_SUB_IDEIMPORTBOOKMARKS_LONG_J)-__ARRAY_BYTE_IDESKIPLINES[4],__ARRAY_BYTE_IDESKIPLINES[5]); +if (!new_error) ((int8*)(__ARRAY_BYTE_IDESKIPLINES[0]))[tmp_long]= -1 ; +if(!qbevent)break;evnt(26070,18037,"ide_methods.bas");}while(r); +fornext_continue_6131:; +} +fornext_exit_6131:; +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free248.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +void SUB_IDESAVEBOOKMARKS(qbs*_SUB_IDESAVEBOOKMARKS_STRING_F2){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data249.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +qbs_set(_SUB_IDESAVEBOOKMARKS_STRING_F,qbs_add(qbs_add(__STRING_CRLF,_SUB_IDESAVEBOOKMARKS_STRING_F2),__STRING_CRLF)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18043,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESAVEBOOKMARKS_LONG_FH=func_freefile(); +if(!qbevent)break;evnt(26070,18044,"ide_methods.bas");}while(r); +do{ +sub_open(qbs_new_txt_len(".\\internal\\temp\\bookmarks.bin",29), 2 ,NULL,NULL,*_SUB_IDESAVEBOOKMARKS_LONG_FH,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18044,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_IDESAVEBOOKMARKS_STRING_A,func_space(func_lof(*_SUB_IDESAVEBOOKMARKS_LONG_FH))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18044,"ide_methods.bas");}while(r); +do{ +sub_get2(*_SUB_IDESAVEBOOKMARKS_LONG_FH,NULL,_SUB_IDESAVEBOOKMARKS_STRING_A,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18044,"ide_methods.bas");}while(r); +do{ +sub_close(*_SUB_IDESAVEBOOKMARKS_LONG_FH,1); +if(!qbevent)break;evnt(26070,18044,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESAVEBOOKMARKS_LONG_X=func_instr(NULL,qbs_ucase(_SUB_IDESAVEBOOKMARKS_STRING_A),qbs_ucase(_SUB_IDESAVEBOOKMARKS_STRING_F),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18045,"ide_methods.bas");}while(r); +S_55699:; +if ((*_SUB_IDESAVEBOOKMARKS_LONG_X)||new_error){ +if(qbevent){evnt(26070,18046,"ide_methods.bas");if(r)goto S_55699;} +do{ +*_SUB_IDESAVEBOOKMARKS_LONG_L=string2l(func_mid(_SUB_IDESAVEBOOKMARKS_STRING_A,*_SUB_IDESAVEBOOKMARKS_LONG_X+_SUB_IDESAVEBOOKMARKS_STRING_F->len, 4 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18047,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESAVEBOOKMARKS_LONG_X2=*_SUB_IDESAVEBOOKMARKS_LONG_X+_SUB_IDESAVEBOOKMARKS_STRING_F->len+ 4 +*_SUB_IDESAVEBOOKMARKS_LONG_L- 1 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18048,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_IDESAVEBOOKMARKS_STRING_A,qbs_add(qbs_left(_SUB_IDESAVEBOOKMARKS_STRING_A,*_SUB_IDESAVEBOOKMARKS_LONG_X- 1 ),qbs_right(_SUB_IDESAVEBOOKMARKS_STRING_A,_SUB_IDESAVEBOOKMARKS_STRING_A->len-*_SUB_IDESAVEBOOKMARKS_LONG_X2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18049,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_IDESAVEBOOKMARKS_STRING_D,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18053,"ide_methods.bas");}while(r); +S_55705:; +fornext_value6138= 1 ; +fornext_finalvalue6138=*__LONG_IDEBMKN; +fornext_step6138= 1 ; +if (fornext_step6138<0) fornext_step_negative6138=1; else fornext_step_negative6138=0; +if (new_error) goto fornext_error6138; +goto fornext_entrylabel6138; +while(1){ +fornext_value6138=fornext_step6138+(*_SUB_IDESAVEBOOKMARKS_LONG_I); +fornext_entrylabel6138: +*_SUB_IDESAVEBOOKMARKS_LONG_I=fornext_value6138; +if (fornext_step_negative6138){ +if (fornext_value6138fornext_finalvalue6138) break; +} +fornext_error6138:; +if(qbevent){evnt(26070,18054,"ide_methods.bas");if(r)goto S_55705;} +do{ +qbs_set(_SUB_IDESAVEBOOKMARKS_STRING_D,qbs_add(qbs_add(qbs_add(qbs_add(_SUB_IDESAVEBOOKMARKS_STRING_D,l2string(*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_SUB_IDESAVEBOOKMARKS_LONG_I)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16)))),l2string(*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_SUB_IDESAVEBOOKMARKS_LONG_I)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16+4)))),l2string(*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_SUB_IDESAVEBOOKMARKS_LONG_I)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16+8)))),l2string(*(int32*)(((char*)__ARRAY_UDT_IDEBMK[0])+((array_check((*_SUB_IDESAVEBOOKMARKS_LONG_I)-__ARRAY_UDT_IDEBMK[4],__ARRAY_UDT_IDEBMK[5]))*16+12))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18055,"ide_methods.bas");}while(r); +fornext_continue_6137:; +} +fornext_exit_6137:; +do{ +qbs_set(_SUB_IDESAVEBOOKMARKS_STRING_A,qbs_add(qbs_add(qbs_add(_SUB_IDESAVEBOOKMARKS_STRING_F,l2string(_SUB_IDESAVEBOOKMARKS_STRING_D->len)),_SUB_IDESAVEBOOKMARKS_STRING_D),_SUB_IDESAVEBOOKMARKS_STRING_A)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18057,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESAVEBOOKMARKS_LONG_FH=func_freefile(); +if(!qbevent)break;evnt(26070,18058,"ide_methods.bas");}while(r); +do{ +sub_open(qbs_new_txt_len(".\\internal\\temp\\bookmarks.bin",29), 4 ,NULL,NULL,*_SUB_IDESAVEBOOKMARKS_LONG_FH,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18058,"ide_methods.bas");}while(r); +do{ +sub_close(*_SUB_IDESAVEBOOKMARKS_LONG_FH,1); +if(!qbevent)break;evnt(26070,18058,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESAVEBOOKMARKS_LONG_FH=func_freefile(); +if(!qbevent)break;evnt(26070,18059,"ide_methods.bas");}while(r); +do{ +sub_open(qbs_new_txt_len(".\\internal\\temp\\bookmarks.bin",29), 2 ,NULL,NULL,*_SUB_IDESAVEBOOKMARKS_LONG_FH,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18059,"ide_methods.bas");}while(r); +do{ +sub_put2(*_SUB_IDESAVEBOOKMARKS_LONG_FH,NULL,byte_element((uint64)_SUB_IDESAVEBOOKMARKS_STRING_A->chr,_SUB_IDESAVEBOOKMARKS_STRING_A->len,byte_element_6140),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18059,"ide_methods.bas");}while(r); +do{ +sub_close(*_SUB_IDESAVEBOOKMARKS_LONG_FH,1); +if(!qbevent)break;evnt(26070,18059,"ide_methods.bas");}while(r); +S_55716:; +if ((*__LONG_VWATCHON)||new_error){ +if(qbevent){evnt(26070,18062,"ide_methods.bas");if(r)goto S_55716;} +do{ +SUB_WRITESETTING(qbs_new_txt_len(".\\internal\\temp\\debug.ini",25),_SUB_IDESAVEBOOKMARKS_STRING_F2,qbs_new_txt_len("total breakpoints",17),qbs_new_txt_len("0",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18063,"ide_methods.bas");}while(r); +do{ +SUB_WRITESETTING(qbs_new_txt_len(".\\internal\\temp\\debug.ini",25),_SUB_IDESAVEBOOKMARKS_STRING_F2,qbs_new_txt_len("total skips",11),qbs_new_txt_len("0",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18064,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESAVEBOOKMARKS_LONG_X= 0 ; +if(!qbevent)break;evnt(26070,18066,"ide_methods.bas");}while(r); +S_55720:; +fornext_value6142= 1 ; +fornext_finalvalue6142=func_ubound(__ARRAY_BYTE_IDEBREAKPOINTS,1,1); +fornext_step6142= 1 ; +if (fornext_step6142<0) fornext_step_negative6142=1; else fornext_step_negative6142=0; +if (new_error) goto fornext_error6142; +goto fornext_entrylabel6142; +while(1){ +fornext_value6142=fornext_step6142+(*_SUB_IDESAVEBOOKMARKS_LONG_I); +fornext_entrylabel6142: +*_SUB_IDESAVEBOOKMARKS_LONG_I=fornext_value6142; +if (fornext_step_negative6142){ +if (fornext_value6142fornext_finalvalue6142) break; +} +fornext_error6142:; +if(qbevent){evnt(26070,18067,"ide_methods.bas");if(r)goto S_55720;} +S_55721:; +if ((((int8*)(__ARRAY_BYTE_IDEBREAKPOINTS[0]))[array_check((*_SUB_IDESAVEBOOKMARKS_LONG_I)-__ARRAY_BYTE_IDEBREAKPOINTS[4],__ARRAY_BYTE_IDEBREAKPOINTS[5])])||new_error){ +if(qbevent){evnt(26070,18068,"ide_methods.bas");if(r)goto S_55721;} +do{ +*_SUB_IDESAVEBOOKMARKS_LONG_X=*_SUB_IDESAVEBOOKMARKS_LONG_X+ 1 ; +if(!qbevent)break;evnt(26070,18069,"ide_methods.bas");}while(r); +do{ +SUB_WRITESETTING(qbs_new_txt_len(".\\internal\\temp\\debug.ini",25),_SUB_IDESAVEBOOKMARKS_STRING_F2,qbs_add(qbs_new_txt_len("breakpoint",10),qbs_str((int32)(*_SUB_IDESAVEBOOKMARKS_LONG_X))),FUNC_STR2(_SUB_IDESAVEBOOKMARKS_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18070,"ide_methods.bas");}while(r); +} +fornext_continue_6141:; +} +fornext_exit_6141:; +do{ +SUB_WRITESETTING(qbs_new_txt_len(".\\internal\\temp\\debug.ini",25),_SUB_IDESAVEBOOKMARKS_STRING_F2,qbs_new_txt_len("total breakpoints",17),FUNC_STR2(_SUB_IDESAVEBOOKMARKS_LONG_X)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18073,"ide_methods.bas");}while(r); +do{ +*_SUB_IDESAVEBOOKMARKS_LONG_X= 0 ; +if(!qbevent)break;evnt(26070,18075,"ide_methods.bas");}while(r); +S_55728:; +fornext_value6144= 1 ; +fornext_finalvalue6144=func_ubound(__ARRAY_BYTE_IDESKIPLINES,1,1); +fornext_step6144= 1 ; +if (fornext_step6144<0) fornext_step_negative6144=1; else fornext_step_negative6144=0; +if (new_error) goto fornext_error6144; +goto fornext_entrylabel6144; +while(1){ +fornext_value6144=fornext_step6144+(*_SUB_IDESAVEBOOKMARKS_LONG_I); +fornext_entrylabel6144: +*_SUB_IDESAVEBOOKMARKS_LONG_I=fornext_value6144; +if (fornext_step_negative6144){ +if (fornext_value6144fornext_finalvalue6144) break; +} +fornext_error6144:; +if(qbevent){evnt(26070,18076,"ide_methods.bas");if(r)goto S_55728;} +S_55729:; +if ((((int8*)(__ARRAY_BYTE_IDESKIPLINES[0]))[array_check((*_SUB_IDESAVEBOOKMARKS_LONG_I)-__ARRAY_BYTE_IDESKIPLINES[4],__ARRAY_BYTE_IDESKIPLINES[5])])||new_error){ +if(qbevent){evnt(26070,18077,"ide_methods.bas");if(r)goto S_55729;} +do{ +*_SUB_IDESAVEBOOKMARKS_LONG_X=*_SUB_IDESAVEBOOKMARKS_LONG_X+ 1 ; +if(!qbevent)break;evnt(26070,18078,"ide_methods.bas");}while(r); +do{ +SUB_WRITESETTING(qbs_new_txt_len(".\\internal\\temp\\debug.ini",25),_SUB_IDESAVEBOOKMARKS_STRING_F2,qbs_add(qbs_new_txt_len("skip",4),qbs_str((int32)(*_SUB_IDESAVEBOOKMARKS_LONG_X))),FUNC_STR2(_SUB_IDESAVEBOOKMARKS_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18079,"ide_methods.bas");}while(r); +} +fornext_continue_6143:; +} +fornext_exit_6143:; +do{ +SUB_WRITESETTING(qbs_new_txt_len(".\\internal\\temp\\debug.ini",25),_SUB_IDESAVEBOOKMARKS_STRING_F2,qbs_new_txt_len("total skips",11),FUNC_STR2(_SUB_IDESAVEBOOKMARKS_LONG_X)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18082,"ide_methods.bas");}while(r); +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free249.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +qbs* FUNC_IDERECENTBOX(){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data250.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +sub_pcopy( 0 , 2 ); +if(!qbevent)break;evnt(26070,18089,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 0 , 1 ); +if(!qbevent)break;evnt(26070,18090,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,18091,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDERECENTBOX_LONG_FOCUS= 1 ; +if(!qbevent)break;evnt(26070,18092,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26070,18093,"ide_methods.bas");}while(r); +do{ if (_FUNC_IDERECENTBOX_ARRAY_UDT_O[2]&2){ error(10); @@ -188177,44 +188177,44 @@ if (!_FUNC_IDERECENTBOX_ARRAY_UDT_O[0]) error(257); } _FUNC_IDERECENTBOX_ARRAY_UDT_O[2]|=1; } -} -if(!qbevent)break;evnt(26070,18094,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(26070,18095,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDERECENTBOX_STRING1_SEP,func_chr( 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18096,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDERECENTBOX_STRING_L,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18106,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDERECENTBOX_LONG_DIALOGWIDTH= 72 ; -if(!qbevent)break;evnt(26070,18107,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDERECENTBOX_LONG_TOTALRECENT= 0 ; -if(!qbevent)break;evnt(26070,18108,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDERECENTBOX_LONG_FH=func_freefile(); -if(!qbevent)break;evnt(26070,18109,"ide_methods.bas");}while(r); -do{ -sub_open(qbs_new_txt_len(".\\internal\\temp\\recent.bin",26), 2 ,NULL,NULL,*_FUNC_IDERECENTBOX_LONG_FH,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18110,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDERECENTBOX_STRING_A,func_space(func_lof(*_FUNC_IDERECENTBOX_LONG_FH))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18110,"ide_methods.bas");}while(r); -do{ -sub_get2(*_FUNC_IDERECENTBOX_LONG_FH,NULL,_FUNC_IDERECENTBOX_STRING_A,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18110,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDERECENTBOX_STRING_A,qbs_right(_FUNC_IDERECENTBOX_STRING_A,_FUNC_IDERECENTBOX_STRING_A->len- 2 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18111,"ide_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26070,18094,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26070,18095,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDERECENTBOX_STRING1_SEP,func_chr( 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18096,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDERECENTBOX_STRING_L,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18106,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDERECENTBOX_LONG_DIALOGWIDTH= 72 ; +if(!qbevent)break;evnt(26070,18107,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDERECENTBOX_LONG_TOTALRECENT= 0 ; +if(!qbevent)break;evnt(26070,18108,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDERECENTBOX_LONG_FH=func_freefile(); +if(!qbevent)break;evnt(26070,18109,"ide_methods.bas");}while(r); +do{ +sub_open(qbs_new_txt_len(".\\internal\\temp\\recent.bin",26), 2 ,NULL,NULL,*_FUNC_IDERECENTBOX_LONG_FH,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18110,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDERECENTBOX_STRING_A,func_space(func_lof(*_FUNC_IDERECENTBOX_LONG_FH))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18110,"ide_methods.bas");}while(r); +do{ +sub_get2(*_FUNC_IDERECENTBOX_LONG_FH,NULL,_FUNC_IDERECENTBOX_STRING_A,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18110,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDERECENTBOX_STRING_A,qbs_right(_FUNC_IDERECENTBOX_STRING_A,_FUNC_IDERECENTBOX_STRING_A->len- 2 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18111,"ide_methods.bas");}while(r); +do{ if (_FUNC_IDERECENTBOX_ARRAY_STRING_TEMPLIST[2]&2){ error(10); @@ -188237,50 +188237,50 @@ while(tmp_long--) ((uint64*)(_FUNC_IDERECENTBOX_ARRAY_STRING_TEMPLIST[0]))[tmp_l }else{ while(tmp_long--) ((uint64*)(_FUNC_IDERECENTBOX_ARRAY_STRING_TEMPLIST[0]))[tmp_long]=(uint64)qbs_new(0,0); } -} -if(!qbevent)break;evnt(26070,18112,"ide_methods.bas");}while(r); -S_55753:; -while((qbs_cleanup(qbs_tmp_base,_FUNC_IDERECENTBOX_STRING_A->len))||new_error){ -if(qbevent){evnt(26070,18113,"ide_methods.bas");if(r)goto S_55753;} -do{ -*_FUNC_IDERECENTBOX_LONG_AI=func_instr(NULL,_FUNC_IDERECENTBOX_STRING_A,__STRING_CRLF,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18114,"ide_methods.bas");}while(r); -S_55755:; -if ((*_FUNC_IDERECENTBOX_LONG_AI)||new_error){ -if(qbevent){evnt(26070,18115,"ide_methods.bas");if(r)goto S_55755;} -do{ -qbs_set(_FUNC_IDERECENTBOX_STRING_F,qbs_left(_FUNC_IDERECENTBOX_STRING_A,*_FUNC_IDERECENTBOX_LONG_AI- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18116,"ide_methods.bas");}while(r); -S_55757:; -if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDERECENTBOX_LONG_AI==(_FUNC_IDERECENTBOX_STRING_A->len- 1 ))))||new_error){ -if(qbevent){evnt(26070,18116,"ide_methods.bas");if(r)goto S_55757;} -do{ -qbs_set(_FUNC_IDERECENTBOX_STRING_A,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18116,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDERECENTBOX_STRING_A,qbs_right(_FUNC_IDERECENTBOX_STRING_A,_FUNC_IDERECENTBOX_STRING_A->len-*_FUNC_IDERECENTBOX_LONG_AI- 3 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18116,"ide_methods.bas");}while(r); -} -S_55762:; -if ((qbs_cleanup(qbs_tmp_base,-((_FUNC_IDERECENTBOX_STRING_F->len+ 6 )>*_FUNC_IDERECENTBOX_LONG_DIALOGWIDTH)))||new_error){ -if(qbevent){evnt(26070,18117,"ide_methods.bas");if(r)goto S_55762;} -do{ -*_FUNC_IDERECENTBOX_LONG_DIALOGWIDTH=_FUNC_IDERECENTBOX_STRING_F->len+ 6 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18117,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDERECENTBOX_LONG_TOTALRECENT=*_FUNC_IDERECENTBOX_LONG_TOTALRECENT+ 1 ; -if(!qbevent)break;evnt(26070,18118,"ide_methods.bas");}while(r); -S_55766:; -if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDERECENTBOX_LONG_TOTALRECENT>func_ubound(_FUNC_IDERECENTBOX_ARRAY_STRING_TEMPLIST,1,1))))||new_error){ -if(qbevent){evnt(26070,18119,"ide_methods.bas");if(r)goto S_55766;} -do{ +} +if(!qbevent)break;evnt(26070,18112,"ide_methods.bas");}while(r); +S_55753:; +while((qbs_cleanup(qbs_tmp_base,_FUNC_IDERECENTBOX_STRING_A->len))||new_error){ +if(qbevent){evnt(26070,18113,"ide_methods.bas");if(r)goto S_55753;} +do{ +*_FUNC_IDERECENTBOX_LONG_AI=func_instr(NULL,_FUNC_IDERECENTBOX_STRING_A,__STRING_CRLF,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18114,"ide_methods.bas");}while(r); +S_55755:; +if ((*_FUNC_IDERECENTBOX_LONG_AI)||new_error){ +if(qbevent){evnt(26070,18115,"ide_methods.bas");if(r)goto S_55755;} +do{ +qbs_set(_FUNC_IDERECENTBOX_STRING_F,qbs_left(_FUNC_IDERECENTBOX_STRING_A,*_FUNC_IDERECENTBOX_LONG_AI- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18116,"ide_methods.bas");}while(r); +S_55757:; +if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDERECENTBOX_LONG_AI==(_FUNC_IDERECENTBOX_STRING_A->len- 1 ))))||new_error){ +if(qbevent){evnt(26070,18116,"ide_methods.bas");if(r)goto S_55757;} +do{ +qbs_set(_FUNC_IDERECENTBOX_STRING_A,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18116,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDERECENTBOX_STRING_A,qbs_right(_FUNC_IDERECENTBOX_STRING_A,_FUNC_IDERECENTBOX_STRING_A->len-*_FUNC_IDERECENTBOX_LONG_AI- 3 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18116,"ide_methods.bas");}while(r); +} +S_55762:; +if ((qbs_cleanup(qbs_tmp_base,-((_FUNC_IDERECENTBOX_STRING_F->len+ 6 )>*_FUNC_IDERECENTBOX_LONG_DIALOGWIDTH)))||new_error){ +if(qbevent){evnt(26070,18117,"ide_methods.bas");if(r)goto S_55762;} +do{ +*_FUNC_IDERECENTBOX_LONG_DIALOGWIDTH=_FUNC_IDERECENTBOX_STRING_F->len+ 6 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18117,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDERECENTBOX_LONG_TOTALRECENT=*_FUNC_IDERECENTBOX_LONG_TOTALRECENT+ 1 ; +if(!qbevent)break;evnt(26070,18118,"ide_methods.bas");}while(r); +S_55766:; +if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_IDERECENTBOX_LONG_TOTALRECENT>func_ubound(_FUNC_IDERECENTBOX_ARRAY_STRING_TEMPLIST,1,1))))||new_error){ +if(qbevent){evnt(26070,18119,"ide_methods.bas");if(r)goto S_55766;} +do{ if (_FUNC_IDERECENTBOX_ARRAY_STRING_TEMPLIST[2]&2){ error(10); @@ -188323,800 +188323,800 @@ while(tmp_long--) ((uint64*)(_FUNC_IDERECENTBOX_ARRAY_STRING_TEMPLIST[0]))[tmp_l while(tmp_long--) ((uint64*)(_FUNC_IDERECENTBOX_ARRAY_STRING_TEMPLIST[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -} -if(!qbevent)break;evnt(26070,18120,"ide_methods.bas");}while(r); -} -do{ -tmp_long=array_check((*_FUNC_IDERECENTBOX_LONG_TOTALRECENT)-_FUNC_IDERECENTBOX_ARRAY_STRING_TEMPLIST[4],_FUNC_IDERECENTBOX_ARRAY_STRING_TEMPLIST[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_IDERECENTBOX_ARRAY_STRING_TEMPLIST[0]))[tmp_long])),_FUNC_IDERECENTBOX_STRING_F); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18122,"ide_methods.bas");}while(r); -S_55770:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDERECENTBOX_STRING_L->len))||new_error){ -if(qbevent){evnt(26070,18123,"ide_methods.bas");if(r)goto S_55770;} -do{ -qbs_set(_FUNC_IDERECENTBOX_STRING_L,qbs_add(qbs_add(_FUNC_IDERECENTBOX_STRING_L,_FUNC_IDERECENTBOX_STRING1_SEP),_FUNC_IDERECENTBOX_STRING_F)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18123,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDERECENTBOX_STRING_L,_FUNC_IDERECENTBOX_STRING_F); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18123,"ide_methods.bas");}while(r); -} -} -dl_continue_6147:; -} -dl_exit_6147:; -do{ -sub_close(*_FUNC_IDERECENTBOX_LONG_FH,1); -if(!qbevent)break;evnt(26070,18126,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDERECENTBOX_LONG_I= 0 ; -if(!qbevent)break;evnt(26070,18129,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDERECENTBOX_LONG_DIALOGHEIGHT=*_FUNC_IDERECENTBOX_LONG_TOTALRECENT+ 3 ; -if(!qbevent)break;evnt(26070,18130,"ide_methods.bas");}while(r); -S_55780:; -if ((-(*_FUNC_IDERECENTBOX_LONG_DIALOGHEIGHT>(*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 6 )))||new_error){ -if(qbevent){evnt(26070,18131,"ide_methods.bas");if(r)goto S_55780;} -do{ -*_FUNC_IDERECENTBOX_LONG_DIALOGHEIGHT=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 6 ; -if(!qbevent)break;evnt(26070,18132,"ide_methods.bas");}while(r); -} -S_55783:; -if ((-(*_FUNC_IDERECENTBOX_LONG_DIALOGWIDTH>(*__LONG_IDEWX- 8 )))||new_error){ -if(qbevent){evnt(26070,18135,"ide_methods.bas");if(r)goto S_55783;} -do{ -*_FUNC_IDERECENTBOX_LONG_DIALOGWIDTH=*__LONG_IDEWX- 8 ; -if(!qbevent)break;evnt(26070,18135,"ide_methods.bas");}while(r); -} -do{ -SUB_IDEPAR((void*)( ((char*)(_FUNC_IDERECENTBOX_UDT_P)) + (0) ),_FUNC_IDERECENTBOX_LONG_DIALOGWIDTH,_FUNC_IDERECENTBOX_LONG_DIALOGHEIGHT,qbs_new_txt_len("Open",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18136,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDERECENTBOX_LONG_I=*_FUNC_IDERECENTBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18138,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERECENTBOX_LONG_I)-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*89+36))= 2 ; -if(!qbevent)break;evnt(26070,18139,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERECENTBOX_LONG_I)-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*89+24))= 1 ; -if(!qbevent)break;evnt(26070,18140,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERECENTBOX_LONG_I)-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*89+28))=*_FUNC_IDERECENTBOX_LONG_DIALOGWIDTH- 4 ; -if(!qbevent)break;evnt(26070,18142,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERECENTBOX_LONG_I)-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*89+32))=*_FUNC_IDERECENTBOX_LONG_DIALOGHEIGHT- 3 ; -if(!qbevent)break;evnt(26070,18142,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERECENTBOX_LONG_I)-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDERECENTBOX_STRING_L); -if(!qbevent)break;evnt(26070,18143,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERECENTBOX_LONG_I)-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*89+64))= 1 ; -if(!qbevent)break;evnt(26070,18144,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERECENTBOX_LONG_I)-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("Recent Programs",15)); -if(!qbevent)break;evnt(26070,18145,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDERECENTBOX_LONG_I=*_FUNC_IDERECENTBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18147,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERECENTBOX_LONG_I)-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*89+36))= 3 ; -if(!qbevent)break;evnt(26070,18148,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERECENTBOX_LONG_I)-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*89+24))=*_FUNC_IDERECENTBOX_LONG_DIALOGHEIGHT; -if(!qbevent)break;evnt(26070,18149,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERECENTBOX_LONG_I)-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("#Open",5),_FUNC_IDERECENTBOX_STRING1_SEP),qbs_new_txt_len("#Cancel",7)),_FUNC_IDERECENTBOX_STRING1_SEP),qbs_new_txt_len("Clear #list",11)),_FUNC_IDERECENTBOX_STRING1_SEP),qbs_new_txt_len("#Remove broken links",20))); -if(!qbevent)break;evnt(26070,18150,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERECENTBOX_LONG_I)-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*89+48))= 1 ; -if(!qbevent)break;evnt(26070,18151,"ide_methods.bas");}while(r); -S_55800:; -fornext_value6154= 1 ; -fornext_finalvalue6154= 100 ; -fornext_step6154= 1 ; -if (fornext_step6154<0) fornext_step_negative6154=1; else fornext_step_negative6154=0; -if (new_error) goto fornext_error6154; -goto fornext_entrylabel6154; -while(1){ -fornext_value6154=fornext_step6154+(*_FUNC_IDERECENTBOX_LONG_I); -fornext_entrylabel6154: -*_FUNC_IDERECENTBOX_LONG_I=fornext_value6154; -if (fornext_step_negative6154){ -if (fornext_value6154fornext_finalvalue6154) break; -} -fornext_error6154:; -if(qbevent){evnt(26070,18156,"ide_methods.bas");if(r)goto S_55800;} -do{ -memcpy(((char*)_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERECENTBOX_LONG_I)-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*89)+ 0,((char*)_FUNC_IDERECENTBOX_UDT_P)+(0)+ 0, 20); -if(!qbevent)break;evnt(26070,18156,"ide_methods.bas");}while(r); -fornext_continue_6153:; -} -fornext_exit_6153:; -S_55803:; -do{ -if(qbevent){evnt(26070,18159,"ide_methods.bas");if(r)goto S_55803;} -do{ -SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDERECENTBOX_UDT_P)) + (0) )); -if(!qbevent)break;evnt(26070,18162,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDERECENTBOX_LONG_F= 1 ; -if(!qbevent)break;evnt(26070,18163,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDERECENTBOX_LONG_CX= 0 ; -if(!qbevent)break;evnt(26070,18163,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDERECENTBOX_LONG_CY= 0 ; -if(!qbevent)break;evnt(26070,18163,"ide_methods.bas");}while(r); -S_55808:; -fornext_value6157= 1 ; -fornext_finalvalue6157= 100 ; -fornext_step6157= 1 ; -if (fornext_step6157<0) fornext_step_negative6157=1; else fornext_step_negative6157=0; -if (new_error) goto fornext_error6157; -goto fornext_entrylabel6157; -while(1){ -fornext_value6157=fornext_step6157+(*_FUNC_IDERECENTBOX_LONG_I); -fornext_entrylabel6157: -*_FUNC_IDERECENTBOX_LONG_I=fornext_value6157; -if (fornext_step_negative6157){ -if (fornext_value6157fornext_finalvalue6157) break; -} -fornext_error6157:; -if(qbevent){evnt(26070,18164,"ide_methods.bas");if(r)goto S_55808;} -S_55809:; -if ((*(int32*)(((char*)_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERECENTBOX_LONG_I)-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*89+36)))||new_error){ -if(qbevent){evnt(26070,18165,"ide_methods.bas");if(r)goto S_55809;} -do{ -*(int32*)(((char*)_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERECENTBOX_LONG_I)-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*89+60))=*_FUNC_IDERECENTBOX_LONG_FOCUS-*_FUNC_IDERECENTBOX_LONG_F; -if(!qbevent)break;evnt(26070,18168,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERECENTBOX_LONG_I)-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*89+52))= 0 ; -if(!qbevent)break;evnt(26070,18169,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERECENTBOX_LONG_I)-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*89+56))= 0 ; -if(!qbevent)break;evnt(26070,18169,"ide_methods.bas");}while(r); -do{ -SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDERECENTBOX_LONG_I)-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDERECENTBOX_LONG_F); -if(!qbevent)break;evnt(26070,18170,"ide_methods.bas");}while(r); -S_55814:; -if ((*(int32*)(((char*)_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERECENTBOX_LONG_I)-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*89+52)))||new_error){ -if(qbevent){evnt(26070,18171,"ide_methods.bas");if(r)goto S_55814;} -do{ -*_FUNC_IDERECENTBOX_LONG_CX=*(int32*)(((char*)_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERECENTBOX_LONG_I)-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*89+52)); -if(!qbevent)break;evnt(26070,18171,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDERECENTBOX_LONG_CY=*(int32*)(((char*)_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERECENTBOX_LONG_I)-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*89+56)); -if(!qbevent)break;evnt(26070,18171,"ide_methods.bas");}while(r); -} -} -fornext_continue_6156:; -} -fornext_exit_6156:; -do{ -*_FUNC_IDERECENTBOX_LONG_LASTFOCUS=*_FUNC_IDERECENTBOX_LONG_F- 1 ; -if(!qbevent)break;evnt(26070,18174,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 1 , 0 ); -if(!qbevent)break;evnt(26070,18181,"ide_methods.bas");}while(r); -S_55822:; -if ((*_FUNC_IDERECENTBOX_LONG_CX)||new_error){ -if(qbevent){evnt(26070,18182,"ide_methods.bas");if(r)goto S_55822;} -do{ -qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,18182,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*_FUNC_IDERECENTBOX_LONG_CY,*_FUNC_IDERECENTBOX_LONG_CX, 1 ,NULL,NULL,7); -if(!qbevent)break;evnt(26070,18182,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,18182,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDERECENTBOX_LONG_CHANGE= 0 ; -if(!qbevent)break;evnt(26070,18185,"ide_methods.bas");}while(r); -S_55828:; -do{ -if(qbevent){evnt(26070,18186,"ide_methods.bas");if(r)goto S_55828;} -do{ -SUB_GETINPUT(); -if(!qbevent)break;evnt(26070,18187,"ide_methods.bas");}while(r); -S_55830:; -if ((*__LONG_MWHEEL)||new_error){ -if(qbevent){evnt(26070,18188,"ide_methods.bas");if(r)goto S_55830;} -do{ -*_FUNC_IDERECENTBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,18188,"ide_methods.bas");}while(r); -} -S_55833:; -if ((*__LONG_KB)||new_error){ -if(qbevent){evnt(26070,18189,"ide_methods.bas");if(r)goto S_55833;} -do{ -*_FUNC_IDERECENTBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,18189,"ide_methods.bas");}while(r); -} -S_55836:; -if ((*__LONG_MCLICK)||new_error){ -if(qbevent){evnt(26070,18190,"ide_methods.bas");if(r)goto S_55836;} -do{ -*_FUNC_IDERECENTBOX_LONG_MOUSEDOWN= 1 ; -if(!qbevent)break;evnt(26070,18190,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDERECENTBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,18190,"ide_methods.bas");}while(r); -} -S_55840:; -if ((*__LONG_MRELEASE)||new_error){ -if(qbevent){evnt(26070,18191,"ide_methods.bas");if(r)goto S_55840;} -do{ -*_FUNC_IDERECENTBOX_LONG_MOUSEUP= 1 ; -if(!qbevent)break;evnt(26070,18191,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDERECENTBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,18191,"ide_methods.bas");}while(r); -} -S_55844:; -if ((*__LONG_MB)||new_error){ -if(qbevent){evnt(26070,18192,"ide_methods.bas");if(r)goto S_55844;} -do{ -*_FUNC_IDERECENTBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,18192,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDERECENTBOX_LONG_ALT=*__LONG_KALT; -if(!qbevent)break;evnt(26070,18193,"ide_methods.bas");}while(r); -S_55848:; -if ((-(*_FUNC_IDERECENTBOX_LONG_ALT!=*_FUNC_IDERECENTBOX_LONG_OLDALT))||new_error){ -if(qbevent){evnt(26070,18193,"ide_methods.bas");if(r)goto S_55848;} -do{ -*_FUNC_IDERECENTBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,18193,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDERECENTBOX_LONG_OLDALT=*_FUNC_IDERECENTBOX_LONG_ALT; -if(!qbevent)break;evnt(26070,18194,"ide_methods.bas");}while(r); -do{ -sub__limit( 100 ); -if(!qbevent)break;evnt(26070,18195,"ide_methods.bas");}while(r); -S_55853:; -dl_continue_6158:; -}while((!(*_FUNC_IDERECENTBOX_LONG_CHANGE))&&(!new_error)); -dl_exit_6158:; -if(qbevent){evnt(26070,18196,"ide_methods.bas");if(r)goto S_55853;} -S_55854:; -if ((*_FUNC_IDERECENTBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(26070,18197,"ide_methods.bas");if(r)goto S_55854;} -do{ -*__LONG_IDEHL= 1 ; -if(!qbevent)break;evnt(26070,18197,"ide_methods.bas");}while(r); -}else{ -do{ -*__LONG_IDEHL= 0 ; -if(!qbevent)break;evnt(26070,18197,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDERECENTBOX_STRING_ALTLETTER,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18199,"ide_methods.bas");}while(r); -S_55860:; -if ((*_FUNC_IDERECENTBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(26070,18200,"ide_methods.bas");if(r)goto S_55860;} -S_55861:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ -if(qbevent){evnt(26070,18201,"ide_methods.bas");if(r)goto S_55861;} -do{ -*_FUNC_IDERECENTBOX_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18202,"ide_methods.bas");}while(r); -S_55863:; -if (((-(*_FUNC_IDERECENTBOX_LONG_K>= 65 ))&(-(*_FUNC_IDERECENTBOX_LONG_K<= 90 )))||new_error){ -if(qbevent){evnt(26070,18203,"ide_methods.bas");if(r)goto S_55863;} -do{ -qbs_set(_FUNC_IDERECENTBOX_STRING_ALTLETTER,func_chr(*_FUNC_IDERECENTBOX_LONG_K)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18203,"ide_methods.bas");}while(r); -} -} -} -do{ -qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,18206,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); -if(!qbevent)break;evnt(26070,18206,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,18206,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDERECENTBOX_LONG_INFO= 0 ; -if(!qbevent)break;evnt(26070,18210,"ide_methods.bas");}while(r); -S_55872:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,18211,"ide_methods.bas");if(r)goto S_55872;} -do{ -qbs_set(__STRING_K,func_chr( 255 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18211,"ide_methods.bas");}while(r); -} -S_55875:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ -if(qbevent){evnt(26070,18212,"ide_methods.bas");if(r)goto S_55875;} -do{ -*_FUNC_IDERECENTBOX_LONG_FOCUS=*_FUNC_IDERECENTBOX_LONG_FOCUS+ 1 ; -if(!qbevent)break;evnt(26070,18212,"ide_methods.bas");}while(r); -} -S_55878:; -if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||new_error){ -if(qbevent){evnt(26070,18213,"ide_methods.bas");if(r)goto S_55878;} -do{ -*_FUNC_IDERECENTBOX_LONG_FOCUS=*_FUNC_IDERECENTBOX_LONG_FOCUS- 1 ; -if(!qbevent)break;evnt(26070,18213,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_K,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18213,"ide_methods.bas");}while(r); -} -S_55882:; -if ((-(*_FUNC_IDERECENTBOX_LONG_FOCUS< 1 ))||new_error){ -if(qbevent){evnt(26070,18214,"ide_methods.bas");if(r)goto S_55882;} -do{ -*_FUNC_IDERECENTBOX_LONG_FOCUS=*_FUNC_IDERECENTBOX_LONG_LASTFOCUS; -if(!qbevent)break;evnt(26070,18214,"ide_methods.bas");}while(r); -} -S_55885:; -if ((-(*_FUNC_IDERECENTBOX_LONG_FOCUS>*_FUNC_IDERECENTBOX_LONG_LASTFOCUS))||new_error){ -if(qbevent){evnt(26070,18215,"ide_methods.bas");if(r)goto S_55885;} -do{ -*_FUNC_IDERECENTBOX_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(26070,18215,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDERECENTBOX_LONG_F= 1 ; -if(!qbevent)break;evnt(26070,18216,"ide_methods.bas");}while(r); -S_55889:; -fornext_value6161= 1 ; -fornext_finalvalue6161= 100 ; -fornext_step6161= 1 ; -if (fornext_step6161<0) fornext_step_negative6161=1; else fornext_step_negative6161=0; -if (new_error) goto fornext_error6161; -goto fornext_entrylabel6161; -while(1){ -fornext_value6161=fornext_step6161+(*_FUNC_IDERECENTBOX_LONG_I); -fornext_entrylabel6161: -*_FUNC_IDERECENTBOX_LONG_I=fornext_value6161; -if (fornext_step_negative6161){ -if (fornext_value6161fornext_finalvalue6161) break; -} -fornext_error6161:; -if(qbevent){evnt(26070,18217,"ide_methods.bas");if(r)goto S_55889;} -do{ -*_FUNC_IDERECENTBOX_LONG_T=*(int32*)(((char*)_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERECENTBOX_LONG_I)-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*89+36)); -if(!qbevent)break;evnt(26070,18218,"ide_methods.bas");}while(r); -S_55891:; -if ((*_FUNC_IDERECENTBOX_LONG_T)||new_error){ -if(qbevent){evnt(26070,18219,"ide_methods.bas");if(r)goto S_55891;} -do{ -*_FUNC_IDERECENTBOX_LONG_FOCUSOFFSET=*_FUNC_IDERECENTBOX_LONG_FOCUS-*_FUNC_IDERECENTBOX_LONG_F; -if(!qbevent)break;evnt(26070,18220,"ide_methods.bas");}while(r); -do{ -SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDERECENTBOX_LONG_I)-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDERECENTBOX_LONG_FOCUS,_FUNC_IDERECENTBOX_LONG_F,_FUNC_IDERECENTBOX_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDERECENTBOX_STRING_ALTLETTER,__LONG_MB,_FUNC_IDERECENTBOX_LONG_MOUSEDOWN,_FUNC_IDERECENTBOX_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDERECENTBOX_LONG_INFO,__LONG_MWHEEL); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18221,"ide_methods.bas");}while(r); -} -fornext_continue_6160:; -} -fornext_exit_6160:; -S_55896:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 27 )))|(((-(*_FUNC_IDERECENTBOX_LONG_FOCUS== 3 ))&(-(*_FUNC_IDERECENTBOX_LONG_INFO!= 0 ))))))||new_error){ -if(qbevent){evnt(26070,18226,"ide_methods.bas");if(r)goto S_55896;} -do{ -qbs_set(_FUNC_IDERECENTBOX_STRING_IDERECENTBOX,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18227,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,18228,"ide_methods.bas");}while(r); -} -S_55900:; -if ((qbs_cleanup(qbs_tmp_base,((qbs_equal(__STRING_K,func_chr( 13 )))&(-(*_FUNC_IDERECENTBOX_LONG_FOCUS== 1 )))|((-(*_FUNC_IDERECENTBOX_LONG_FOCUS== 2 ))&(-(*_FUNC_IDERECENTBOX_LONG_INFO!= 0 )))|((-(*_FUNC_IDERECENTBOX_LONG_INFO== 1 ))&(-(*_FUNC_IDERECENTBOX_LONG_FOCUS== 1 )))))||new_error){ -if(qbevent){evnt(26070,18231,"ide_methods.bas");if(r)goto S_55900;} -do{ -qbs_set(_FUNC_IDERECENTBOX_STRING_F,((qbs*)(((uint64*)(_FUNC_IDERECENTBOX_ARRAY_STRING_TEMPLIST[0]))[array_check((func_abs((int32)(*(int32*)(((char*)_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*89+64)))))-_FUNC_IDERECENTBOX_ARRAY_STRING_TEMPLIST[4],_FUNC_IDERECENTBOX_ARRAY_STRING_TEMPLIST[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18232,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDERECENTBOX_STRING_IDERECENTBOX,_FUNC_IDERECENTBOX_STRING_F); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18233,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,18234,"ide_methods.bas");}while(r); -} -S_55905:; -if ((qbs_cleanup(qbs_tmp_base,((qbs_equal(__STRING_K,func_chr( 13 )))&(-(*_FUNC_IDERECENTBOX_LONG_FOCUS== 4 )))|((-(*_FUNC_IDERECENTBOX_LONG_FOCUS== 4 ))&(-(*_FUNC_IDERECENTBOX_LONG_INFO!= 0 )))|((-(*_FUNC_IDERECENTBOX_LONG_INFO== 1 ))&(-(*_FUNC_IDERECENTBOX_LONG_FOCUS== 4 )))))||new_error){ -if(qbevent){evnt(26070,18237,"ide_methods.bas");if(r)goto S_55905;} -do{ -qbs_set(_FUNC_IDERECENTBOX_STRING_IDERECENTBOX,qbs_new_txt_len("",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18238,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,18239,"ide_methods.bas");}while(r); -} -S_55909:; -if ((qbs_cleanup(qbs_tmp_base,((qbs_equal(__STRING_K,func_chr( 13 )))&(-(*_FUNC_IDERECENTBOX_LONG_FOCUS== 5 )))|((-(*_FUNC_IDERECENTBOX_LONG_FOCUS== 5 ))&(-(*_FUNC_IDERECENTBOX_LONG_INFO!= 0 )))|((-(*_FUNC_IDERECENTBOX_LONG_INFO== 1 ))&(-(*_FUNC_IDERECENTBOX_LONG_FOCUS== 5 )))))||new_error){ -if(qbevent){evnt(26070,18242,"ide_methods.bas");if(r)goto S_55909;} -do{ -qbs_set(_FUNC_IDERECENTBOX_STRING_IDERECENTBOX,qbs_new_txt_len("",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18243,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,18244,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDERECENTBOX_LONG_MOUSEDOWN= 0 ; -if(!qbevent)break;evnt(26070,18248,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDERECENTBOX_LONG_MOUSEUP= 0 ; -if(!qbevent)break;evnt(26070,18249,"ide_methods.bas");}while(r); -dl_continue_6155:; -}while(1); -dl_exit_6155:; -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free250.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_IDERECENTBOX_STRING_IDERECENTBOX);return _FUNC_IDERECENTBOX_STRING_IDERECENTBOX; -} -void SUB_IDEMAKEFILEMENU(){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data251.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -*_SUB_IDEMAKEFILEMENU_LONG_M= 1 ; -if(!qbevent)break;evnt(26070,18259,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKEFILEMENU_LONG_I= 0 ; -if(!qbevent)break;evnt(26070,18259,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKEFILEMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEFILEMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("File",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18260,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKEFILEMENU_LONG_I=*_SUB_IDEMAKEFILEMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18260,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKEFILEMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEFILEMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#New Ctrl+N",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18261,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKEFILEMENU_LONG_I=*_SUB_IDEMAKEFILEMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18261,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKEFILEMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEFILEMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Closes current program and starts a blank one",45)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18262,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKEFILEMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEFILEMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Open... Ctrl+O",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18263,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKEFILEMENU_LONG_I=*_SUB_IDEMAKEFILEMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18263,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKEFILEMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEFILEMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Loads a program into memory",27)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18264,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKEFILEMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEFILEMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Save Ctrl+S",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18265,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKEFILEMENU_LONG_I=*_SUB_IDEMAKEFILEMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18265,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKEFILEMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEFILEMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Writes current program to a file on disk",40)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18266,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKEFILEMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEFILEMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Save #As...",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18267,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKEFILEMENU_LONG_I=*_SUB_IDEMAKEFILEMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18267,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKEFILEMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEFILEMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Saves current program with specified name",41)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18268,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKEFILEMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEFILEMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18269,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKEFILEMENU_LONG_I=*_SUB_IDEMAKEFILEMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18269,"ide_methods.bas");}while(r); -do{ -*__INTEGER_FILEMENUEXPORTAS=*_SUB_IDEMAKEFILEMENU_LONG_I; -if(!qbevent)break;evnt(26070,18270,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKEFILEMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEFILEMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(qbs_new_txt_len("~#Export As... ",16),func_chr( 16 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18271,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKEFILEMENU_LONG_I=*_SUB_IDEMAKEFILEMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18271,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKEFILEMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEFILEMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Export current program into various formats",43)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18272,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKEFILEMENU_LONG_FH=func_freefile(); -if(!qbevent)break;evnt(26070,18273,"ide_methods.bas");}while(r); -do{ -sub_open(qbs_new_txt_len(".\\internal\\temp\\recent.bin",26), 2 ,NULL,NULL,*_SUB_IDEMAKEFILEMENU_LONG_FH,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18274,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_IDEMAKEFILEMENU_STRING_A,func_space(func_lof(*_SUB_IDEMAKEFILEMENU_LONG_FH))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18274,"ide_methods.bas");}while(r); -do{ -sub_get2(*_SUB_IDEMAKEFILEMENU_LONG_FH,NULL,_SUB_IDEMAKEFILEMENU_STRING_A,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18274,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_IDEMAKEFILEMENU_STRING_A,qbs_right(_SUB_IDEMAKEFILEMENU_STRING_A,_SUB_IDEMAKEFILEMENU_STRING_A->len- 2 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18275,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKEFILEMENU_LONG_MAXRECENTINFILEMENU=func_ubound(__ARRAY_STRING_IDERECENTLINK, 1 ,2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18276,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKEFILEMENU_LONG_MAXLENGTHRECENTFILES= 35 ; -if(!qbevent)break;evnt(26070,18277,"ide_methods.bas");}while(r); -S_55945:; -fornext_value6164= 1 ; -fornext_finalvalue6164=*_SUB_IDEMAKEFILEMENU_LONG_MAXRECENTINFILEMENU+ 1 ; -fornext_step6164= 1 ; -if (fornext_step6164<0) fornext_step_negative6164=1; else fornext_step_negative6164=0; -if (new_error) goto fornext_error6164; -goto fornext_entrylabel6164; -while(1){ -fornext_value6164=fornext_step6164+(*_SUB_IDEMAKEFILEMENU_LONG_R); -fornext_entrylabel6164: -*_SUB_IDEMAKEFILEMENU_LONG_R=fornext_value6164; -if (fornext_step_negative6164){ -if (fornext_value6164fornext_finalvalue6164) break; -} -fornext_error6164:; -if(qbevent){evnt(26070,18278,"ide_methods.bas");if(r)goto S_55945;} -S_55946:; -if ((-(*_SUB_IDEMAKEFILEMENU_LONG_R<=*_SUB_IDEMAKEFILEMENU_LONG_MAXRECENTINFILEMENU))||new_error){ -if(qbevent){evnt(26070,18279,"ide_methods.bas");if(r)goto S_55946;} -do{ -tmp_long=array_check((*_SUB_IDEMAKEFILEMENU_LONG_R)-__ARRAY_STRING_IDERECENTLINK[8],__ARRAY_STRING_IDERECENTLINK[9])+array_check(( 1 )-__ARRAY_STRING_IDERECENTLINK[4],__ARRAY_STRING_IDERECENTLINK[5])*__ARRAY_STRING_IDERECENTLINK[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDERECENTLINK[0]))[tmp_long])),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18279,"ide_methods.bas");}while(r); -} -do{ -*_SUB_IDEMAKEFILEMENU_LONG_AI=func_instr(NULL,_SUB_IDEMAKEFILEMENU_STRING_A,__STRING_CRLF,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18280,"ide_methods.bas");}while(r); -S_55950:; -if ((*_SUB_IDEMAKEFILEMENU_LONG_AI)||new_error){ -if(qbevent){evnt(26070,18281,"ide_methods.bas");if(r)goto S_55950;} -S_55951:; -if ((-(*_SUB_IDEMAKEFILEMENU_LONG_R== 1 ))||new_error){ -if(qbevent){evnt(26070,18282,"ide_methods.bas");if(r)goto S_55951;} -do{ -tmp_long=array_check((*_SUB_IDEMAKEFILEMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEFILEMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18282,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKEFILEMENU_LONG_I=*_SUB_IDEMAKEFILEMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18282,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_SUB_IDEMAKEFILEMENU_STRING_F,qbs_left(_SUB_IDEMAKEFILEMENU_STRING_A,*_SUB_IDEMAKEFILEMENU_LONG_AI- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18283,"ide_methods.bas");}while(r); -S_55956:; -if ((qbs_cleanup(qbs_tmp_base,-(*_SUB_IDEMAKEFILEMENU_LONG_AI==(_SUB_IDEMAKEFILEMENU_STRING_A->len- 1 ))))||new_error){ -if(qbevent){evnt(26070,18283,"ide_methods.bas");if(r)goto S_55956;} -do{ -qbs_set(_SUB_IDEMAKEFILEMENU_STRING_A,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18283,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_SUB_IDEMAKEFILEMENU_STRING_A,qbs_right(_SUB_IDEMAKEFILEMENU_STRING_A,_SUB_IDEMAKEFILEMENU_STRING_A->len-*_SUB_IDEMAKEFILEMENU_LONG_AI- 3 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18283,"ide_methods.bas");}while(r); -} -S_55961:; -if ((-(*_SUB_IDEMAKEFILEMENU_LONG_R<=*_SUB_IDEMAKEFILEMENU_LONG_MAXRECENTINFILEMENU))||new_error){ -if(qbevent){evnt(26070,18284,"ide_methods.bas");if(r)goto S_55961;} -do{ -tmp_long=array_check((*_SUB_IDEMAKEFILEMENU_LONG_R)-__ARRAY_STRING_IDERECENTLINK[8],__ARRAY_STRING_IDERECENTLINK[9])+array_check(( 2 )-__ARRAY_STRING_IDERECENTLINK[4],__ARRAY_STRING_IDERECENTLINK[5])*__ARRAY_STRING_IDERECENTLINK[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDERECENTLINK[0]))[tmp_long])),_SUB_IDEMAKEFILEMENU_STRING_F); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18284,"ide_methods.bas");}while(r); -} -S_55964:; -if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDEMAKEFILEMENU_STRING_F->len>*_SUB_IDEMAKEFILEMENU_LONG_MAXLENGTHRECENTFILES)))||new_error){ -if(qbevent){evnt(26070,18286,"ide_methods.bas");if(r)goto S_55964;} -do{ -qbs_set(_SUB_IDEMAKEFILEMENU_STRING_F,qbs_add(func_string( 3 , 250 ),qbs_right(_SUB_IDEMAKEFILEMENU_STRING_F,*_SUB_IDEMAKEFILEMENU_LONG_MAXLENGTHRECENTFILES- 3 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18286,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_SUB_IDEMAKEFILEMENU_STRING_F,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("#",1),FUNC_STR2(_SUB_IDEMAKEFILEMENU_LONG_R)),qbs_new_txt_len(" ",1)),_SUB_IDEMAKEFILEMENU_STRING_F)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18287,"ide_methods.bas");}while(r); -S_55968:; -if ((-(*_SUB_IDEMAKEFILEMENU_LONG_R==(*_SUB_IDEMAKEFILEMENU_LONG_MAXRECENTINFILEMENU+ 1 )))||new_error){ -if(qbevent){evnt(26070,18288,"ide_methods.bas");if(r)goto S_55968;} -do{ -qbs_set(_SUB_IDEMAKEFILEMENU_STRING_F,qbs_new_txt_len("#Recent...",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18288,"ide_methods.bas");}while(r); -} -do{ -tmp_long=array_check((*_SUB_IDEMAKEFILEMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEFILEMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),_SUB_IDEMAKEFILEMENU_STRING_F); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18289,"ide_methods.bas");}while(r); -S_55972:; -if ((-(*_SUB_IDEMAKEFILEMENU_LONG_R<=*_SUB_IDEMAKEFILEMENU_LONG_MAXRECENTINFILEMENU))||new_error){ -if(qbevent){evnt(26070,18290,"ide_methods.bas");if(r)goto S_55972;} -do{ -tmp_long=array_check((*_SUB_IDEMAKEFILEMENU_LONG_R)-__ARRAY_STRING_IDERECENTLINK[8],__ARRAY_STRING_IDERECENTLINK[9])+array_check(( 1 )-__ARRAY_STRING_IDERECENTLINK[4],__ARRAY_STRING_IDERECENTLINK[5])*__ARRAY_STRING_IDERECENTLINK[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDERECENTLINK[0]))[tmp_long])),_SUB_IDEMAKEFILEMENU_STRING_F); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18291,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_IDEMAKEFILEMENU_STRING_F,qbs_add(qbs_add(qbs_new_txt_len("Open '",6),((qbs*)(((uint64*)(__ARRAY_STRING_IDERECENTLINK[0]))[array_check((*_SUB_IDEMAKEFILEMENU_LONG_R)-__ARRAY_STRING_IDERECENTLINK[8],__ARRAY_STRING_IDERECENTLINK[9])+array_check(( 2 )-__ARRAY_STRING_IDERECENTLINK[4],__ARRAY_STRING_IDERECENTLINK[5])*__ARRAY_STRING_IDERECENTLINK[6]]))),qbs_new_txt_len("'",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18292,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKEFILEMENU_LONG_AI= 3 ; -if(!qbevent)break;evnt(26070,18293,"ide_methods.bas");}while(r); -S_55976:; -while((!(qbs_cleanup(qbs_tmp_base,-((_SUB_IDEMAKEFILEMENU_STRING_F->len)<=(*__LONG_IDEWX- 2 )))))||new_error){ -if(qbevent){evnt(26070,18294,"ide_methods.bas");if(r)goto S_55976;} -do{ -*_SUB_IDEMAKEFILEMENU_LONG_AI=*_SUB_IDEMAKEFILEMENU_LONG_AI+ 1 ; -if(!qbevent)break;evnt(26070,18295,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_IDEMAKEFILEMENU_STRING_F,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Open '",6),func_string( 3 , 250 )),func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_IDERECENTLINK[0]))[array_check((*_SUB_IDEMAKEFILEMENU_LONG_R)-__ARRAY_STRING_IDERECENTLINK[8],__ARRAY_STRING_IDERECENTLINK[9])+array_check(( 2 )-__ARRAY_STRING_IDERECENTLINK[4],__ARRAY_STRING_IDERECENTLINK[5])*__ARRAY_STRING_IDERECENTLINK[6]])),*_SUB_IDEMAKEFILEMENU_LONG_AI,NULL,0)),qbs_new_txt_len("'",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18296,"ide_methods.bas");}while(r); -dl_continue_6169:; -} -dl_exit_6169:; -do{ -tmp_long=array_check((*_SUB_IDEMAKEFILEMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEFILEMENU_LONG_I)-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),_SUB_IDEMAKEFILEMENU_STRING_F); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18298,"ide_methods.bas");}while(r); -} -do{ -*_SUB_IDEMAKEFILEMENU_LONG_I=*_SUB_IDEMAKEFILEMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18300,"ide_methods.bas");}while(r); -} -fornext_continue_6163:; -} -fornext_exit_6163:; -do{ -sub_close(*_SUB_IDEMAKEFILEMENU_LONG_FH,1); -if(!qbevent)break;evnt(26070,18303,"ide_methods.bas");}while(r); -S_55986:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_SUB_IDEMAKEFILEMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEFILEMENU_LONG_I- 1 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Recent...",10)))&(qbs_notequal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_SUB_IDEMAKEFILEMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEFILEMENU_LONG_I- 1 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),(qbs_add(qbs_new_txt_len("~#Export As... ",16),func_chr( 16 )))))))||new_error){ -if(qbevent){evnt(26070,18304,"ide_methods.bas");if(r)goto S_55986;} -do{ -tmp_long=array_check((*_SUB_IDEMAKEFILEMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEFILEMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Clear Recent...",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18305,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKEFILEMENU_LONG_I=*_SUB_IDEMAKEFILEMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18305,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKEFILEMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEFILEMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Clears list of recently loaded files",36)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18306,"ide_methods.bas");}while(r); -}else{ -do{ -tmp_long=array_check((*_SUB_IDEMAKEFILEMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEFILEMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Displays a complete list of recently loaded files",49)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18308,"ide_methods.bas");}while(r); -} -do{ -tmp_long=array_check((*_SUB_IDEMAKEFILEMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEFILEMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18310,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKEFILEMENU_LONG_I=*_SUB_IDEMAKEFILEMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18310,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKEFILEMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEFILEMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("E#xit",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18311,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKEFILEMENU_LONG_I=*_SUB_IDEMAKEFILEMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18311,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKEFILEMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEFILEMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Exits QB64-PE",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18312,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKEFILEMENU_LONG_M)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_MENUSIZE[0]))[tmp_long]=*_SUB_IDEMAKEFILEMENU_LONG_I- 1 ; -if(!qbevent)break;evnt(26070,18313,"ide_methods.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free251.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -void SUB_IDEMAKECONTEXTUALMENU(){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data252.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ +} +if(!qbevent)break;evnt(26070,18120,"ide_methods.bas");}while(r); +} +do{ +tmp_long=array_check((*_FUNC_IDERECENTBOX_LONG_TOTALRECENT)-_FUNC_IDERECENTBOX_ARRAY_STRING_TEMPLIST[4],_FUNC_IDERECENTBOX_ARRAY_STRING_TEMPLIST[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_IDERECENTBOX_ARRAY_STRING_TEMPLIST[0]))[tmp_long])),_FUNC_IDERECENTBOX_STRING_F); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18122,"ide_methods.bas");}while(r); +S_55770:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDERECENTBOX_STRING_L->len))||new_error){ +if(qbevent){evnt(26070,18123,"ide_methods.bas");if(r)goto S_55770;} +do{ +qbs_set(_FUNC_IDERECENTBOX_STRING_L,qbs_add(qbs_add(_FUNC_IDERECENTBOX_STRING_L,_FUNC_IDERECENTBOX_STRING1_SEP),_FUNC_IDERECENTBOX_STRING_F)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18123,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDERECENTBOX_STRING_L,_FUNC_IDERECENTBOX_STRING_F); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18123,"ide_methods.bas");}while(r); +} +} +dl_continue_6147:; +} +dl_exit_6147:; +do{ +sub_close(*_FUNC_IDERECENTBOX_LONG_FH,1); +if(!qbevent)break;evnt(26070,18126,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDERECENTBOX_LONG_I= 0 ; +if(!qbevent)break;evnt(26070,18129,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDERECENTBOX_LONG_DIALOGHEIGHT=*_FUNC_IDERECENTBOX_LONG_TOTALRECENT+ 3 ; +if(!qbevent)break;evnt(26070,18130,"ide_methods.bas");}while(r); +S_55780:; +if ((-(*_FUNC_IDERECENTBOX_LONG_DIALOGHEIGHT>(*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 6 )))||new_error){ +if(qbevent){evnt(26070,18131,"ide_methods.bas");if(r)goto S_55780;} +do{ +*_FUNC_IDERECENTBOX_LONG_DIALOGHEIGHT=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 6 ; +if(!qbevent)break;evnt(26070,18132,"ide_methods.bas");}while(r); +} +S_55783:; +if ((-(*_FUNC_IDERECENTBOX_LONG_DIALOGWIDTH>(*__LONG_IDEWX- 8 )))||new_error){ +if(qbevent){evnt(26070,18135,"ide_methods.bas");if(r)goto S_55783;} +do{ +*_FUNC_IDERECENTBOX_LONG_DIALOGWIDTH=*__LONG_IDEWX- 8 ; +if(!qbevent)break;evnt(26070,18135,"ide_methods.bas");}while(r); +} +do{ +SUB_IDEPAR((void*)( ((char*)(_FUNC_IDERECENTBOX_UDT_P)) + (0) ),_FUNC_IDERECENTBOX_LONG_DIALOGWIDTH,_FUNC_IDERECENTBOX_LONG_DIALOGHEIGHT,qbs_new_txt_len("Open",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18136,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDERECENTBOX_LONG_I=*_FUNC_IDERECENTBOX_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18138,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERECENTBOX_LONG_I)-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*89+36))= 2 ; +if(!qbevent)break;evnt(26070,18139,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERECENTBOX_LONG_I)-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*89+24))= 1 ; +if(!qbevent)break;evnt(26070,18140,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERECENTBOX_LONG_I)-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*89+28))=*_FUNC_IDERECENTBOX_LONG_DIALOGWIDTH- 4 ; +if(!qbevent)break;evnt(26070,18142,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERECENTBOX_LONG_I)-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*89+32))=*_FUNC_IDERECENTBOX_LONG_DIALOGHEIGHT- 3 ; +if(!qbevent)break;evnt(26070,18142,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERECENTBOX_LONG_I)-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDERECENTBOX_STRING_L); +if(!qbevent)break;evnt(26070,18143,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERECENTBOX_LONG_I)-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*89+64))= 1 ; +if(!qbevent)break;evnt(26070,18144,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERECENTBOX_LONG_I)-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("Recent Programs",15)); +if(!qbevent)break;evnt(26070,18145,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDERECENTBOX_LONG_I=*_FUNC_IDERECENTBOX_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18147,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERECENTBOX_LONG_I)-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*89+36))= 3 ; +if(!qbevent)break;evnt(26070,18148,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERECENTBOX_LONG_I)-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*89+24))=*_FUNC_IDERECENTBOX_LONG_DIALOGHEIGHT; +if(!qbevent)break;evnt(26070,18149,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERECENTBOX_LONG_I)-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("#Open",5),_FUNC_IDERECENTBOX_STRING1_SEP),qbs_new_txt_len("#Cancel",7)),_FUNC_IDERECENTBOX_STRING1_SEP),qbs_new_txt_len("Clear #list",11)),_FUNC_IDERECENTBOX_STRING1_SEP),qbs_new_txt_len("#Remove broken links",20))); +if(!qbevent)break;evnt(26070,18150,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERECENTBOX_LONG_I)-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*89+48))= 1 ; +if(!qbevent)break;evnt(26070,18151,"ide_methods.bas");}while(r); +S_55800:; +fornext_value6154= 1 ; +fornext_finalvalue6154= 100 ; +fornext_step6154= 1 ; +if (fornext_step6154<0) fornext_step_negative6154=1; else fornext_step_negative6154=0; +if (new_error) goto fornext_error6154; +goto fornext_entrylabel6154; +while(1){ +fornext_value6154=fornext_step6154+(*_FUNC_IDERECENTBOX_LONG_I); +fornext_entrylabel6154: +*_FUNC_IDERECENTBOX_LONG_I=fornext_value6154; +if (fornext_step_negative6154){ +if (fornext_value6154fornext_finalvalue6154) break; +} +fornext_error6154:; +if(qbevent){evnt(26070,18156,"ide_methods.bas");if(r)goto S_55800;} +do{ +memcpy(((char*)_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERECENTBOX_LONG_I)-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*89)+ 0,((char*)_FUNC_IDERECENTBOX_UDT_P)+(0)+ 0, 20); +if(!qbevent)break;evnt(26070,18156,"ide_methods.bas");}while(r); +fornext_continue_6153:; +} +fornext_exit_6153:; +S_55803:; +do{ +if(qbevent){evnt(26070,18159,"ide_methods.bas");if(r)goto S_55803;} +do{ +SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDERECENTBOX_UDT_P)) + (0) )); +if(!qbevent)break;evnt(26070,18162,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDERECENTBOX_LONG_F= 1 ; +if(!qbevent)break;evnt(26070,18163,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDERECENTBOX_LONG_CX= 0 ; +if(!qbevent)break;evnt(26070,18163,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDERECENTBOX_LONG_CY= 0 ; +if(!qbevent)break;evnt(26070,18163,"ide_methods.bas");}while(r); +S_55808:; +fornext_value6157= 1 ; +fornext_finalvalue6157= 100 ; +fornext_step6157= 1 ; +if (fornext_step6157<0) fornext_step_negative6157=1; else fornext_step_negative6157=0; +if (new_error) goto fornext_error6157; +goto fornext_entrylabel6157; +while(1){ +fornext_value6157=fornext_step6157+(*_FUNC_IDERECENTBOX_LONG_I); +fornext_entrylabel6157: +*_FUNC_IDERECENTBOX_LONG_I=fornext_value6157; +if (fornext_step_negative6157){ +if (fornext_value6157fornext_finalvalue6157) break; +} +fornext_error6157:; +if(qbevent){evnt(26070,18164,"ide_methods.bas");if(r)goto S_55808;} +S_55809:; +if ((*(int32*)(((char*)_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERECENTBOX_LONG_I)-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*89+36)))||new_error){ +if(qbevent){evnt(26070,18165,"ide_methods.bas");if(r)goto S_55809;} +do{ +*(int32*)(((char*)_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERECENTBOX_LONG_I)-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*89+60))=*_FUNC_IDERECENTBOX_LONG_FOCUS-*_FUNC_IDERECENTBOX_LONG_F; +if(!qbevent)break;evnt(26070,18168,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERECENTBOX_LONG_I)-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*89+52))= 0 ; +if(!qbevent)break;evnt(26070,18169,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERECENTBOX_LONG_I)-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*89+56))= 0 ; +if(!qbevent)break;evnt(26070,18169,"ide_methods.bas");}while(r); +do{ +SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDERECENTBOX_LONG_I)-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDERECENTBOX_LONG_F); +if(!qbevent)break;evnt(26070,18170,"ide_methods.bas");}while(r); +S_55814:; +if ((*(int32*)(((char*)_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERECENTBOX_LONG_I)-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*89+52)))||new_error){ +if(qbevent){evnt(26070,18171,"ide_methods.bas");if(r)goto S_55814;} +do{ +*_FUNC_IDERECENTBOX_LONG_CX=*(int32*)(((char*)_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERECENTBOX_LONG_I)-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*89+52)); +if(!qbevent)break;evnt(26070,18171,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDERECENTBOX_LONG_CY=*(int32*)(((char*)_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERECENTBOX_LONG_I)-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*89+56)); +if(!qbevent)break;evnt(26070,18171,"ide_methods.bas");}while(r); +} +} +fornext_continue_6156:; +} +fornext_exit_6156:; +do{ +*_FUNC_IDERECENTBOX_LONG_LASTFOCUS=*_FUNC_IDERECENTBOX_LONG_F- 1 ; +if(!qbevent)break;evnt(26070,18174,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 1 , 0 ); +if(!qbevent)break;evnt(26070,18181,"ide_methods.bas");}while(r); +S_55822:; +if ((*_FUNC_IDERECENTBOX_LONG_CX)||new_error){ +if(qbevent){evnt(26070,18182,"ide_methods.bas");if(r)goto S_55822;} +do{ +qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,18182,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(*_FUNC_IDERECENTBOX_LONG_CY,*_FUNC_IDERECENTBOX_LONG_CX, 1 ,NULL,NULL,7); +if(!qbevent)break;evnt(26070,18182,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,18182,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDERECENTBOX_LONG_CHANGE= 0 ; +if(!qbevent)break;evnt(26070,18185,"ide_methods.bas");}while(r); +S_55828:; +do{ +if(qbevent){evnt(26070,18186,"ide_methods.bas");if(r)goto S_55828;} +do{ +SUB_GETINPUT(); +if(!qbevent)break;evnt(26070,18187,"ide_methods.bas");}while(r); +S_55830:; +if ((*__LONG_MWHEEL)||new_error){ +if(qbevent){evnt(26070,18188,"ide_methods.bas");if(r)goto S_55830;} +do{ +*_FUNC_IDERECENTBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,18188,"ide_methods.bas");}while(r); +} +S_55833:; +if ((*__LONG_KB)||new_error){ +if(qbevent){evnt(26070,18189,"ide_methods.bas");if(r)goto S_55833;} +do{ +*_FUNC_IDERECENTBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,18189,"ide_methods.bas");}while(r); +} +S_55836:; +if ((*__LONG_MCLICK)||new_error){ +if(qbevent){evnt(26070,18190,"ide_methods.bas");if(r)goto S_55836;} +do{ +*_FUNC_IDERECENTBOX_LONG_MOUSEDOWN= 1 ; +if(!qbevent)break;evnt(26070,18190,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDERECENTBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,18190,"ide_methods.bas");}while(r); +} +S_55840:; +if ((*__LONG_MRELEASE)||new_error){ +if(qbevent){evnt(26070,18191,"ide_methods.bas");if(r)goto S_55840;} +do{ +*_FUNC_IDERECENTBOX_LONG_MOUSEUP= 1 ; +if(!qbevent)break;evnt(26070,18191,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDERECENTBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,18191,"ide_methods.bas");}while(r); +} +S_55844:; +if ((*__LONG_MB)||new_error){ +if(qbevent){evnt(26070,18192,"ide_methods.bas");if(r)goto S_55844;} +do{ +*_FUNC_IDERECENTBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,18192,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDERECENTBOX_LONG_ALT=*__LONG_KALT; +if(!qbevent)break;evnt(26070,18193,"ide_methods.bas");}while(r); +S_55848:; +if ((-(*_FUNC_IDERECENTBOX_LONG_ALT!=*_FUNC_IDERECENTBOX_LONG_OLDALT))||new_error){ +if(qbevent){evnt(26070,18193,"ide_methods.bas");if(r)goto S_55848;} +do{ +*_FUNC_IDERECENTBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,18193,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDERECENTBOX_LONG_OLDALT=*_FUNC_IDERECENTBOX_LONG_ALT; +if(!qbevent)break;evnt(26070,18194,"ide_methods.bas");}while(r); +do{ +sub__limit( 100 ); +if(!qbevent)break;evnt(26070,18195,"ide_methods.bas");}while(r); +S_55853:; +dl_continue_6158:; +}while((!(*_FUNC_IDERECENTBOX_LONG_CHANGE))&&(!new_error)); +dl_exit_6158:; +if(qbevent){evnt(26070,18196,"ide_methods.bas");if(r)goto S_55853;} +S_55854:; +if ((*_FUNC_IDERECENTBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ +if(qbevent){evnt(26070,18197,"ide_methods.bas");if(r)goto S_55854;} +do{ +*__LONG_IDEHL= 1 ; +if(!qbevent)break;evnt(26070,18197,"ide_methods.bas");}while(r); +}else{ +do{ +*__LONG_IDEHL= 0 ; +if(!qbevent)break;evnt(26070,18197,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDERECENTBOX_STRING_ALTLETTER,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18199,"ide_methods.bas");}while(r); +S_55860:; +if ((*_FUNC_IDERECENTBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ +if(qbevent){evnt(26070,18200,"ide_methods.bas");if(r)goto S_55860;} +S_55861:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ +if(qbevent){evnt(26070,18201,"ide_methods.bas");if(r)goto S_55861;} +do{ +*_FUNC_IDERECENTBOX_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18202,"ide_methods.bas");}while(r); +S_55863:; +if (((-(*_FUNC_IDERECENTBOX_LONG_K>= 65 ))&(-(*_FUNC_IDERECENTBOX_LONG_K<= 90 )))||new_error){ +if(qbevent){evnt(26070,18203,"ide_methods.bas");if(r)goto S_55863;} +do{ +qbs_set(_FUNC_IDERECENTBOX_STRING_ALTLETTER,func_chr(*_FUNC_IDERECENTBOX_LONG_K)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18203,"ide_methods.bas");}while(r); +} +} +} +do{ +qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,18206,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); +if(!qbevent)break;evnt(26070,18206,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,18206,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDERECENTBOX_LONG_INFO= 0 ; +if(!qbevent)break;evnt(26070,18210,"ide_methods.bas");}while(r); +S_55872:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,18211,"ide_methods.bas");if(r)goto S_55872;} +do{ +qbs_set(__STRING_K,func_chr( 255 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18211,"ide_methods.bas");}while(r); +} +S_55875:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ +if(qbevent){evnt(26070,18212,"ide_methods.bas");if(r)goto S_55875;} +do{ +*_FUNC_IDERECENTBOX_LONG_FOCUS=*_FUNC_IDERECENTBOX_LONG_FOCUS+ 1 ; +if(!qbevent)break;evnt(26070,18212,"ide_methods.bas");}while(r); +} +S_55878:; +if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||new_error){ +if(qbevent){evnt(26070,18213,"ide_methods.bas");if(r)goto S_55878;} +do{ +*_FUNC_IDERECENTBOX_LONG_FOCUS=*_FUNC_IDERECENTBOX_LONG_FOCUS- 1 ; +if(!qbevent)break;evnt(26070,18213,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_K,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18213,"ide_methods.bas");}while(r); +} +S_55882:; +if ((-(*_FUNC_IDERECENTBOX_LONG_FOCUS< 1 ))||new_error){ +if(qbevent){evnt(26070,18214,"ide_methods.bas");if(r)goto S_55882;} +do{ +*_FUNC_IDERECENTBOX_LONG_FOCUS=*_FUNC_IDERECENTBOX_LONG_LASTFOCUS; +if(!qbevent)break;evnt(26070,18214,"ide_methods.bas");}while(r); +} +S_55885:; +if ((-(*_FUNC_IDERECENTBOX_LONG_FOCUS>*_FUNC_IDERECENTBOX_LONG_LASTFOCUS))||new_error){ +if(qbevent){evnt(26070,18215,"ide_methods.bas");if(r)goto S_55885;} +do{ +*_FUNC_IDERECENTBOX_LONG_FOCUS= 1 ; +if(!qbevent)break;evnt(26070,18215,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDERECENTBOX_LONG_F= 1 ; +if(!qbevent)break;evnt(26070,18216,"ide_methods.bas");}while(r); +S_55889:; +fornext_value6161= 1 ; +fornext_finalvalue6161= 100 ; +fornext_step6161= 1 ; +if (fornext_step6161<0) fornext_step_negative6161=1; else fornext_step_negative6161=0; +if (new_error) goto fornext_error6161; +goto fornext_entrylabel6161; +while(1){ +fornext_value6161=fornext_step6161+(*_FUNC_IDERECENTBOX_LONG_I); +fornext_entrylabel6161: +*_FUNC_IDERECENTBOX_LONG_I=fornext_value6161; +if (fornext_step_negative6161){ +if (fornext_value6161fornext_finalvalue6161) break; +} +fornext_error6161:; +if(qbevent){evnt(26070,18217,"ide_methods.bas");if(r)goto S_55889;} +do{ +*_FUNC_IDERECENTBOX_LONG_T=*(int32*)(((char*)_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDERECENTBOX_LONG_I)-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*89+36)); +if(!qbevent)break;evnt(26070,18218,"ide_methods.bas");}while(r); +S_55891:; +if ((*_FUNC_IDERECENTBOX_LONG_T)||new_error){ +if(qbevent){evnt(26070,18219,"ide_methods.bas");if(r)goto S_55891;} +do{ +*_FUNC_IDERECENTBOX_LONG_FOCUSOFFSET=*_FUNC_IDERECENTBOX_LONG_FOCUS-*_FUNC_IDERECENTBOX_LONG_F; +if(!qbevent)break;evnt(26070,18220,"ide_methods.bas");}while(r); +do{ +SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDERECENTBOX_LONG_I)-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDERECENTBOX_LONG_FOCUS,_FUNC_IDERECENTBOX_LONG_F,_FUNC_IDERECENTBOX_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDERECENTBOX_STRING_ALTLETTER,__LONG_MB,_FUNC_IDERECENTBOX_LONG_MOUSEDOWN,_FUNC_IDERECENTBOX_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDERECENTBOX_LONG_INFO,__LONG_MWHEEL); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18221,"ide_methods.bas");}while(r); +} +fornext_continue_6160:; +} +fornext_exit_6160:; +S_55896:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 27 )))|(((-(*_FUNC_IDERECENTBOX_LONG_FOCUS== 3 ))&(-(*_FUNC_IDERECENTBOX_LONG_INFO!= 0 ))))))||new_error){ +if(qbevent){evnt(26070,18226,"ide_methods.bas");if(r)goto S_55896;} +do{ +qbs_set(_FUNC_IDERECENTBOX_STRING_IDERECENTBOX,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18227,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,18228,"ide_methods.bas");}while(r); +} +S_55900:; +if ((qbs_cleanup(qbs_tmp_base,((qbs_equal(__STRING_K,func_chr( 13 )))&(-(*_FUNC_IDERECENTBOX_LONG_FOCUS== 1 )))|((-(*_FUNC_IDERECENTBOX_LONG_FOCUS== 2 ))&(-(*_FUNC_IDERECENTBOX_LONG_INFO!= 0 )))|((-(*_FUNC_IDERECENTBOX_LONG_INFO== 1 ))&(-(*_FUNC_IDERECENTBOX_LONG_FOCUS== 1 )))))||new_error){ +if(qbevent){evnt(26070,18231,"ide_methods.bas");if(r)goto S_55900;} +do{ +qbs_set(_FUNC_IDERECENTBOX_STRING_F,((qbs*)(((uint64*)(_FUNC_IDERECENTBOX_ARRAY_STRING_TEMPLIST[0]))[array_check((func_abs((int32)(*(int32*)(((char*)_FUNC_IDERECENTBOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDERECENTBOX_ARRAY_UDT_O[4],_FUNC_IDERECENTBOX_ARRAY_UDT_O[5]))*89+64)))))-_FUNC_IDERECENTBOX_ARRAY_STRING_TEMPLIST[4],_FUNC_IDERECENTBOX_ARRAY_STRING_TEMPLIST[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18232,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDERECENTBOX_STRING_IDERECENTBOX,_FUNC_IDERECENTBOX_STRING_F); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18233,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,18234,"ide_methods.bas");}while(r); +} +S_55905:; +if ((qbs_cleanup(qbs_tmp_base,((qbs_equal(__STRING_K,func_chr( 13 )))&(-(*_FUNC_IDERECENTBOX_LONG_FOCUS== 4 )))|((-(*_FUNC_IDERECENTBOX_LONG_FOCUS== 4 ))&(-(*_FUNC_IDERECENTBOX_LONG_INFO!= 0 )))|((-(*_FUNC_IDERECENTBOX_LONG_INFO== 1 ))&(-(*_FUNC_IDERECENTBOX_LONG_FOCUS== 4 )))))||new_error){ +if(qbevent){evnt(26070,18237,"ide_methods.bas");if(r)goto S_55905;} +do{ +qbs_set(_FUNC_IDERECENTBOX_STRING_IDERECENTBOX,qbs_new_txt_len("",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18238,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,18239,"ide_methods.bas");}while(r); +} +S_55909:; +if ((qbs_cleanup(qbs_tmp_base,((qbs_equal(__STRING_K,func_chr( 13 )))&(-(*_FUNC_IDERECENTBOX_LONG_FOCUS== 5 )))|((-(*_FUNC_IDERECENTBOX_LONG_FOCUS== 5 ))&(-(*_FUNC_IDERECENTBOX_LONG_INFO!= 0 )))|((-(*_FUNC_IDERECENTBOX_LONG_INFO== 1 ))&(-(*_FUNC_IDERECENTBOX_LONG_FOCUS== 5 )))))||new_error){ +if(qbevent){evnt(26070,18242,"ide_methods.bas");if(r)goto S_55909;} +do{ +qbs_set(_FUNC_IDERECENTBOX_STRING_IDERECENTBOX,qbs_new_txt_len("",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18243,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,18244,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDERECENTBOX_LONG_MOUSEDOWN= 0 ; +if(!qbevent)break;evnt(26070,18248,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDERECENTBOX_LONG_MOUSEUP= 0 ; +if(!qbevent)break;evnt(26070,18249,"ide_methods.bas");}while(r); +dl_continue_6155:; +}while(1); +dl_exit_6155:; +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free250.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_IDERECENTBOX_STRING_IDERECENTBOX);return _FUNC_IDERECENTBOX_STRING_IDERECENTBOX; +} +void SUB_IDEMAKEFILEMENU(){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data251.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +*_SUB_IDEMAKEFILEMENU_LONG_M= 1 ; +if(!qbevent)break;evnt(26070,18259,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKEFILEMENU_LONG_I= 0 ; +if(!qbevent)break;evnt(26070,18259,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEFILEMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEFILEMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("File",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18260,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKEFILEMENU_LONG_I=*_SUB_IDEMAKEFILEMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18260,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEFILEMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEFILEMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#New Ctrl+N",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18261,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKEFILEMENU_LONG_I=*_SUB_IDEMAKEFILEMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18261,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEFILEMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEFILEMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Closes current program and starts a blank one",45)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18262,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEFILEMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEFILEMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Open... Ctrl+O",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18263,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKEFILEMENU_LONG_I=*_SUB_IDEMAKEFILEMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18263,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEFILEMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEFILEMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Loads a program into memory",27)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18264,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEFILEMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEFILEMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Save Ctrl+S",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18265,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKEFILEMENU_LONG_I=*_SUB_IDEMAKEFILEMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18265,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEFILEMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEFILEMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Writes current program to a file on disk",40)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18266,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEFILEMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEFILEMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Save #As...",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18267,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKEFILEMENU_LONG_I=*_SUB_IDEMAKEFILEMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18267,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEFILEMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEFILEMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Saves current program with specified name",41)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18268,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEFILEMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEFILEMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18269,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKEFILEMENU_LONG_I=*_SUB_IDEMAKEFILEMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18269,"ide_methods.bas");}while(r); +do{ +*__INTEGER_FILEMENUEXPORTAS=*_SUB_IDEMAKEFILEMENU_LONG_I; +if(!qbevent)break;evnt(26070,18270,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEFILEMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEFILEMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(qbs_new_txt_len("~#Export As... ",16),func_chr( 16 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18271,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKEFILEMENU_LONG_I=*_SUB_IDEMAKEFILEMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18271,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEFILEMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEFILEMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Export current program into various formats",43)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18272,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKEFILEMENU_LONG_FH=func_freefile(); +if(!qbevent)break;evnt(26070,18273,"ide_methods.bas");}while(r); +do{ +sub_open(qbs_new_txt_len(".\\internal\\temp\\recent.bin",26), 2 ,NULL,NULL,*_SUB_IDEMAKEFILEMENU_LONG_FH,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18274,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_IDEMAKEFILEMENU_STRING_A,func_space(func_lof(*_SUB_IDEMAKEFILEMENU_LONG_FH))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18274,"ide_methods.bas");}while(r); +do{ +sub_get2(*_SUB_IDEMAKEFILEMENU_LONG_FH,NULL,_SUB_IDEMAKEFILEMENU_STRING_A,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18274,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_IDEMAKEFILEMENU_STRING_A,qbs_right(_SUB_IDEMAKEFILEMENU_STRING_A,_SUB_IDEMAKEFILEMENU_STRING_A->len- 2 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18275,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKEFILEMENU_LONG_MAXRECENTINFILEMENU=func_ubound(__ARRAY_STRING_IDERECENTLINK, 1 ,2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18276,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKEFILEMENU_LONG_MAXLENGTHRECENTFILES= 35 ; +if(!qbevent)break;evnt(26070,18277,"ide_methods.bas");}while(r); +S_55945:; +fornext_value6164= 1 ; +fornext_finalvalue6164=*_SUB_IDEMAKEFILEMENU_LONG_MAXRECENTINFILEMENU+ 1 ; +fornext_step6164= 1 ; +if (fornext_step6164<0) fornext_step_negative6164=1; else fornext_step_negative6164=0; +if (new_error) goto fornext_error6164; +goto fornext_entrylabel6164; +while(1){ +fornext_value6164=fornext_step6164+(*_SUB_IDEMAKEFILEMENU_LONG_R); +fornext_entrylabel6164: +*_SUB_IDEMAKEFILEMENU_LONG_R=fornext_value6164; +if (fornext_step_negative6164){ +if (fornext_value6164fornext_finalvalue6164) break; +} +fornext_error6164:; +if(qbevent){evnt(26070,18278,"ide_methods.bas");if(r)goto S_55945;} +S_55946:; +if ((-(*_SUB_IDEMAKEFILEMENU_LONG_R<=*_SUB_IDEMAKEFILEMENU_LONG_MAXRECENTINFILEMENU))||new_error){ +if(qbevent){evnt(26070,18279,"ide_methods.bas");if(r)goto S_55946;} +do{ +tmp_long=array_check((*_SUB_IDEMAKEFILEMENU_LONG_R)-__ARRAY_STRING_IDERECENTLINK[8],__ARRAY_STRING_IDERECENTLINK[9])+array_check(( 1 )-__ARRAY_STRING_IDERECENTLINK[4],__ARRAY_STRING_IDERECENTLINK[5])*__ARRAY_STRING_IDERECENTLINK[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDERECENTLINK[0]))[tmp_long])),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18279,"ide_methods.bas");}while(r); +} +do{ +*_SUB_IDEMAKEFILEMENU_LONG_AI=func_instr(NULL,_SUB_IDEMAKEFILEMENU_STRING_A,__STRING_CRLF,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18280,"ide_methods.bas");}while(r); +S_55950:; +if ((*_SUB_IDEMAKEFILEMENU_LONG_AI)||new_error){ +if(qbevent){evnt(26070,18281,"ide_methods.bas");if(r)goto S_55950;} +S_55951:; +if ((-(*_SUB_IDEMAKEFILEMENU_LONG_R== 1 ))||new_error){ +if(qbevent){evnt(26070,18282,"ide_methods.bas");if(r)goto S_55951;} +do{ +tmp_long=array_check((*_SUB_IDEMAKEFILEMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEFILEMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18282,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKEFILEMENU_LONG_I=*_SUB_IDEMAKEFILEMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18282,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_IDEMAKEFILEMENU_STRING_F,qbs_left(_SUB_IDEMAKEFILEMENU_STRING_A,*_SUB_IDEMAKEFILEMENU_LONG_AI- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18283,"ide_methods.bas");}while(r); +S_55956:; +if ((qbs_cleanup(qbs_tmp_base,-(*_SUB_IDEMAKEFILEMENU_LONG_AI==(_SUB_IDEMAKEFILEMENU_STRING_A->len- 1 ))))||new_error){ +if(qbevent){evnt(26070,18283,"ide_methods.bas");if(r)goto S_55956;} +do{ +qbs_set(_SUB_IDEMAKEFILEMENU_STRING_A,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18283,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_IDEMAKEFILEMENU_STRING_A,qbs_right(_SUB_IDEMAKEFILEMENU_STRING_A,_SUB_IDEMAKEFILEMENU_STRING_A->len-*_SUB_IDEMAKEFILEMENU_LONG_AI- 3 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18283,"ide_methods.bas");}while(r); +} +S_55961:; +if ((-(*_SUB_IDEMAKEFILEMENU_LONG_R<=*_SUB_IDEMAKEFILEMENU_LONG_MAXRECENTINFILEMENU))||new_error){ +if(qbevent){evnt(26070,18284,"ide_methods.bas");if(r)goto S_55961;} +do{ +tmp_long=array_check((*_SUB_IDEMAKEFILEMENU_LONG_R)-__ARRAY_STRING_IDERECENTLINK[8],__ARRAY_STRING_IDERECENTLINK[9])+array_check(( 2 )-__ARRAY_STRING_IDERECENTLINK[4],__ARRAY_STRING_IDERECENTLINK[5])*__ARRAY_STRING_IDERECENTLINK[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDERECENTLINK[0]))[tmp_long])),_SUB_IDEMAKEFILEMENU_STRING_F); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18284,"ide_methods.bas");}while(r); +} +S_55964:; +if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDEMAKEFILEMENU_STRING_F->len>*_SUB_IDEMAKEFILEMENU_LONG_MAXLENGTHRECENTFILES)))||new_error){ +if(qbevent){evnt(26070,18286,"ide_methods.bas");if(r)goto S_55964;} +do{ +qbs_set(_SUB_IDEMAKEFILEMENU_STRING_F,qbs_add(func_string( 3 , 250 ),qbs_right(_SUB_IDEMAKEFILEMENU_STRING_F,*_SUB_IDEMAKEFILEMENU_LONG_MAXLENGTHRECENTFILES- 3 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18286,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_IDEMAKEFILEMENU_STRING_F,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("#",1),FUNC_STR2(_SUB_IDEMAKEFILEMENU_LONG_R)),qbs_new_txt_len(" ",1)),_SUB_IDEMAKEFILEMENU_STRING_F)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18287,"ide_methods.bas");}while(r); +S_55968:; +if ((-(*_SUB_IDEMAKEFILEMENU_LONG_R==(*_SUB_IDEMAKEFILEMENU_LONG_MAXRECENTINFILEMENU+ 1 )))||new_error){ +if(qbevent){evnt(26070,18288,"ide_methods.bas");if(r)goto S_55968;} +do{ +qbs_set(_SUB_IDEMAKEFILEMENU_STRING_F,qbs_new_txt_len("#Recent...",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18288,"ide_methods.bas");}while(r); +} +do{ +tmp_long=array_check((*_SUB_IDEMAKEFILEMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEFILEMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),_SUB_IDEMAKEFILEMENU_STRING_F); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18289,"ide_methods.bas");}while(r); +S_55972:; +if ((-(*_SUB_IDEMAKEFILEMENU_LONG_R<=*_SUB_IDEMAKEFILEMENU_LONG_MAXRECENTINFILEMENU))||new_error){ +if(qbevent){evnt(26070,18290,"ide_methods.bas");if(r)goto S_55972;} +do{ +tmp_long=array_check((*_SUB_IDEMAKEFILEMENU_LONG_R)-__ARRAY_STRING_IDERECENTLINK[8],__ARRAY_STRING_IDERECENTLINK[9])+array_check(( 1 )-__ARRAY_STRING_IDERECENTLINK[4],__ARRAY_STRING_IDERECENTLINK[5])*__ARRAY_STRING_IDERECENTLINK[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDERECENTLINK[0]))[tmp_long])),_SUB_IDEMAKEFILEMENU_STRING_F); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18291,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_IDEMAKEFILEMENU_STRING_F,qbs_add(qbs_add(qbs_new_txt_len("Open '",6),((qbs*)(((uint64*)(__ARRAY_STRING_IDERECENTLINK[0]))[array_check((*_SUB_IDEMAKEFILEMENU_LONG_R)-__ARRAY_STRING_IDERECENTLINK[8],__ARRAY_STRING_IDERECENTLINK[9])+array_check(( 2 )-__ARRAY_STRING_IDERECENTLINK[4],__ARRAY_STRING_IDERECENTLINK[5])*__ARRAY_STRING_IDERECENTLINK[6]]))),qbs_new_txt_len("'",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18292,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKEFILEMENU_LONG_AI= 3 ; +if(!qbevent)break;evnt(26070,18293,"ide_methods.bas");}while(r); +S_55976:; +while((!(qbs_cleanup(qbs_tmp_base,-((_SUB_IDEMAKEFILEMENU_STRING_F->len)<=(*__LONG_IDEWX- 2 )))))||new_error){ +if(qbevent){evnt(26070,18294,"ide_methods.bas");if(r)goto S_55976;} +do{ +*_SUB_IDEMAKEFILEMENU_LONG_AI=*_SUB_IDEMAKEFILEMENU_LONG_AI+ 1 ; +if(!qbevent)break;evnt(26070,18295,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_IDEMAKEFILEMENU_STRING_F,qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Open '",6),func_string( 3 , 250 )),func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_IDERECENTLINK[0]))[array_check((*_SUB_IDEMAKEFILEMENU_LONG_R)-__ARRAY_STRING_IDERECENTLINK[8],__ARRAY_STRING_IDERECENTLINK[9])+array_check(( 2 )-__ARRAY_STRING_IDERECENTLINK[4],__ARRAY_STRING_IDERECENTLINK[5])*__ARRAY_STRING_IDERECENTLINK[6]])),*_SUB_IDEMAKEFILEMENU_LONG_AI,NULL,0)),qbs_new_txt_len("'",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18296,"ide_methods.bas");}while(r); +dl_continue_6169:; +} +dl_exit_6169:; +do{ +tmp_long=array_check((*_SUB_IDEMAKEFILEMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEFILEMENU_LONG_I)-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),_SUB_IDEMAKEFILEMENU_STRING_F); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18298,"ide_methods.bas");}while(r); +} +do{ +*_SUB_IDEMAKEFILEMENU_LONG_I=*_SUB_IDEMAKEFILEMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18300,"ide_methods.bas");}while(r); +} +fornext_continue_6163:; +} +fornext_exit_6163:; +do{ +sub_close(*_SUB_IDEMAKEFILEMENU_LONG_FH,1); +if(!qbevent)break;evnt(26070,18303,"ide_methods.bas");}while(r); +S_55986:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_SUB_IDEMAKEFILEMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEFILEMENU_LONG_I- 1 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len("#Recent...",10)))&(qbs_notequal(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_SUB_IDEMAKEFILEMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEFILEMENU_LONG_I- 1 )-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),(qbs_add(qbs_new_txt_len("~#Export As... ",16),func_chr( 16 )))))))||new_error){ +if(qbevent){evnt(26070,18304,"ide_methods.bas");if(r)goto S_55986;} +do{ +tmp_long=array_check((*_SUB_IDEMAKEFILEMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEFILEMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Clear Recent...",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18305,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKEFILEMENU_LONG_I=*_SUB_IDEMAKEFILEMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18305,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEFILEMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEFILEMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Clears list of recently loaded files",36)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18306,"ide_methods.bas");}while(r); +}else{ +do{ +tmp_long=array_check((*_SUB_IDEMAKEFILEMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEFILEMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Displays a complete list of recently loaded files",49)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18308,"ide_methods.bas");}while(r); +} +do{ +tmp_long=array_check((*_SUB_IDEMAKEFILEMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEFILEMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18310,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKEFILEMENU_LONG_I=*_SUB_IDEMAKEFILEMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18310,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEFILEMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEFILEMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("E#xit",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18311,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKEFILEMENU_LONG_I=*_SUB_IDEMAKEFILEMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18311,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEFILEMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEFILEMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Exits QB64-PE",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18312,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEFILEMENU_LONG_M)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_MENUSIZE[0]))[tmp_long]=*_SUB_IDEMAKEFILEMENU_LONG_I- 1 ; +if(!qbevent)break;evnt(26070,18313,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free251.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +void SUB_IDEMAKECONTEXTUALMENU(){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data252.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ if (__ARRAY_STRING_SUBFUNCLIST[2]&2){ error(10); @@ -189139,411 +189139,411 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_SUBFUNCLIST[0]))[tmp_long]=(uint64)q }else{ while(tmp_long--) ((uint64*)(__ARRAY_STRING_SUBFUNCLIST[0]))[tmp_long]=(uint64)qbs_new(0,0); } -} -if(!qbevent)break;evnt(26070,18317,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(26070,18318,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_M=*__INTEGER_IDECONTEXTUALMENUID; -if(!qbevent)break;evnt(26070,18320,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_I= 0 ; -if(!qbevent)break;evnt(26070,18320,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Contextual",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18321,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18321,"ide_methods.bas");}while(r); -S_56005:; -if ((-(*__LONG_IDEDEBUGMODE== 2 ))||new_error){ -if(qbevent){evnt(26070,18323,"ide_methods.bas");if(r)goto S_56005;} -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Continue F5",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18324,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18324,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Runs until the end of the current procedure is reached",54)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18325,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Step O#ut F6",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18326,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18326,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Runs until the end of the current procedure is reached",54)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18327,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Ste#p Into F7",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18328,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18328,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Runs the next line of code and pauses execution",47)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18329,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Step #Over F8",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18330,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18330,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Runs the next line of code without entering subs/functions",58)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18331,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18332,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18332,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Set #Next Line Ctrl+G",22)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18333,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18333,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Jumps to the selected line before continuing execution",54)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18334,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Run To This Line Ctrl+Shift+G",31)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18335,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18335,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Runs until the selected line is reached",39)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18336,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18337,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18337,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Toggle #Breakpoint F9",22)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18338,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18338,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Sets/clears breakpoint at cursor location",41)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18339,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Clear All Breakpoints F10",26)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18340,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18340,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Removes all breakpoints",23)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18341,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Toggle #Skip Line Ctrl+P",25)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18342,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18342,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Sets/clears flag to skip line",29)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18343,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Unskip All Lines Ctrl+F10",27)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18344,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18344,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Removes all line skip flags",27)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18345,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18346,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18346,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("SUBs... F2",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18347,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18347,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Displays a list of SUB/FUNCTION procedures",42)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18348,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Watch List... F4",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18349,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18349,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Adds variables to watch list",28)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18350,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Call Stack... F12",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18351,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18351,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Displays the call stack of the current program's execution",58)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18352,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18353,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18353,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Exit $DEBUG mode ESC",22)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18354,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18354,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Disconnects from the running program and returns control to the IDE",67)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18355,"ide_methods.bas");}while(r); -}else{ -S_56057:; -if (((-(*__LONG_IDESYSTEM== 1 ))|(-(*__LONG_IDESYSTEM== 2 )))||new_error){ -if(qbevent){evnt(26070,18357,"ide_methods.bas");if(r)goto S_56057;} -do{ -qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_SELECTION,FUNC_GETSELECTEDTEXT(&(pass6170= 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18359,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_SELA2,_SUB_IDEMAKECONTEXTUALMENU_STRING_SELECTION); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18360,"ide_methods.bas");}while(r); -S_56060:; -if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDEMAKECONTEXTUALMENU_STRING_SELECTION->len> 0 )))||new_error){ -if(qbevent){evnt(26070,18361,"ide_methods.bas");if(r)goto S_56060;} -do{ -qbs_set(__STRING_IDECONTEXTUALSEARCH,_SUB_IDEMAKECONTEXTUALMENU_STRING_SELECTION); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18362,"ide_methods.bas");}while(r); -S_56062:; -if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDEMAKECONTEXTUALMENU_STRING_SELA2->len> 22 )))||new_error){ -if(qbevent){evnt(26070,18363,"ide_methods.bas");if(r)goto S_56062;} -do{ -qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_SELA2,qbs_add(qbs_left(_SUB_IDEMAKECONTEXTUALMENU_STRING_SELA2, 19 ),func_string( 3 , 250 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18364,"ide_methods.bas");}while(r); -} -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(qbs_add(qbs_new_txt_len("Find '",6),_SUB_IDEMAKECONTEXTUALMENU_STRING_SELA2),qbs_new_txt_len("'",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18366,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18366,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Searches for the text currently selected",40)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18367,"ide_methods.bas");}while(r); -} -do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_TOTALSF= 0 ; -if(!qbevent)break;evnt(26070,18371,"ide_methods.bas");}while(r); -S_56070:; -fornext_value6174= 1 ; -fornext_finalvalue6174=*__LONG_IDEN; -fornext_step6174= 1 ; -if (fornext_step6174<0) fornext_step_negative6174=1; else fornext_step_negative6174=0; -if (new_error) goto fornext_error6174; -goto fornext_entrylabel6174; -while(1){ -fornext_value6174=fornext_step6174+(*_SUB_IDEMAKECONTEXTUALMENU_LONG_Y); -fornext_entrylabel6174: -*_SUB_IDEMAKECONTEXTUALMENU_LONG_Y=fornext_value6174; -if (fornext_step_negative6174){ -if (fornext_value6174fornext_finalvalue6174) break; -} -fornext_error6174:; -if(qbevent){evnt(26070,18372,"ide_methods.bas");if(r)goto S_56070;} -do{ -qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_A,FUNC_IDEGETLINE(_SUB_IDEMAKECONTEXTUALMENU_LONG_Y)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18373,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_A,qbs_ltrim(qbs_rtrim(_SUB_IDEMAKECONTEXTUALMENU_STRING_A))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18374,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_SF= 0 ; -if(!qbevent)break;evnt(26070,18375,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_NCA,qbs_ucase(_SUB_IDEMAKECONTEXTUALMENU_STRING_A)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18376,"ide_methods.bas");}while(r); -S_56075:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_IDEMAKECONTEXTUALMENU_STRING_NCA, 4 ),qbs_new_txt_len("SUB ",4))))||new_error){ -if(qbevent){evnt(26070,18377,"ide_methods.bas");if(r)goto S_56075;} -do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_SF= 1 ; -if(!qbevent)break;evnt(26070,18377,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_SF,qbs_new_txt_len("SUB ",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18377,"ide_methods.bas");}while(r); -} -S_56079:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_IDEMAKECONTEXTUALMENU_STRING_NCA, 9 ),qbs_new_txt_len("FUNCTION ",9))))||new_error){ -if(qbevent){evnt(26070,18378,"ide_methods.bas");if(r)goto S_56079;} -do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_SF= 2 ; -if(!qbevent)break;evnt(26070,18378,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_SF,qbs_new_txt_len("FUNC ",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18378,"ide_methods.bas");}while(r); -} -S_56083:; -if ((*_SUB_IDEMAKECONTEXTUALMENU_LONG_SF)||new_error){ -if(qbevent){evnt(26070,18379,"ide_methods.bas");if(r)goto S_56083;} -S_56084:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_SUB_IDEMAKECONTEXTUALMENU_STRING_NCA, 7 ),qbs_new_txt_len(" STATIC",7))))||new_error){ -if(qbevent){evnt(26070,18380,"ide_methods.bas");if(r)goto S_56084;} -do{ -qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_A,qbs_rtrim(qbs_left(_SUB_IDEMAKECONTEXTUALMENU_STRING_A,_SUB_IDEMAKECONTEXTUALMENU_STRING_A->len- 7 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18381,"ide_methods.bas");}while(r); -} -S_56087:; -if ((-(*_SUB_IDEMAKECONTEXTUALMENU_LONG_SF== 1 ))||new_error){ -if(qbevent){evnt(26070,18384,"ide_methods.bas");if(r)goto S_56087;} -do{ -qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_A,qbs_right(_SUB_IDEMAKECONTEXTUALMENU_STRING_A,_SUB_IDEMAKECONTEXTUALMENU_STRING_A->len- 4 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18385,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_A,qbs_right(_SUB_IDEMAKECONTEXTUALMENU_STRING_A,_SUB_IDEMAKECONTEXTUALMENU_STRING_A->len- 9 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18387,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_A,qbs_ltrim(qbs_rtrim(_SUB_IDEMAKECONTEXTUALMENU_STRING_A))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18390,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_X=func_instr(NULL,_SUB_IDEMAKECONTEXTUALMENU_STRING_A,qbs_new_txt_len("(",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18391,"ide_methods.bas");}while(r); -S_56094:; -if ((*_SUB_IDEMAKECONTEXTUALMENU_LONG_X)||new_error){ -if(qbevent){evnt(26070,18392,"ide_methods.bas");if(r)goto S_56094;} -do{ -qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_N,qbs_rtrim(qbs_left(_SUB_IDEMAKECONTEXTUALMENU_STRING_A,*_SUB_IDEMAKECONTEXTUALMENU_LONG_X- 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18393,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_N,_SUB_IDEMAKECONTEXTUALMENU_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18395,"ide_methods.bas");}while(r); -do{ -SUB_CLEANSUBNAME(_SUB_IDEMAKECONTEXTUALMENU_STRING_N); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18396,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_N2,_SUB_IDEMAKECONTEXTUALMENU_STRING_N); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18399,"ide_methods.bas");}while(r); -S_56101:; -if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDEMAKECONTEXTUALMENU_STRING_N2->len> 1 )))||new_error){ -if(qbevent){evnt(26070,18400,"ide_methods.bas");if(r)goto S_56101;} -S_56102:; -while((!(qbs_cleanup(qbs_tmp_base,((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(qbs_right(_SUB_IDEMAKECONTEXTUALMENU_STRING_N2, 1 )))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])])))||new_error){ -if(qbevent){evnt(26070,18401,"ide_methods.bas");if(r)goto S_56102;} -do{ -qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_N2,qbs_left(_SUB_IDEMAKECONTEXTUALMENU_STRING_N,_SUB_IDEMAKECONTEXTUALMENU_STRING_N2->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18402,"ide_methods.bas");}while(r); -dl_continue_6179:; -} -dl_exit_6179:; -} -do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_TOTALSF=*_SUB_IDEMAKECONTEXTUALMENU_LONG_TOTALSF+ 1 ; -if(!qbevent)break;evnt(26070,18407,"ide_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26070,18317,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26070,18318,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_M=*__INTEGER_IDECONTEXTUALMENUID; +if(!qbevent)break;evnt(26070,18320,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_I= 0 ; +if(!qbevent)break;evnt(26070,18320,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Contextual",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18321,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18321,"ide_methods.bas");}while(r); +S_56005:; +if ((-(*__LONG_IDEDEBUGMODE== 2 ))||new_error){ +if(qbevent){evnt(26070,18323,"ide_methods.bas");if(r)goto S_56005;} +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Continue F5",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18324,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18324,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Runs until the end of the current procedure is reached",54)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18325,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Step O#ut F6",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18326,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18326,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Runs until the end of the current procedure is reached",54)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18327,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Ste#p Into F7",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18328,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18328,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Runs the next line of code and pauses execution",47)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18329,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Step #Over F8",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18330,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18330,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Runs the next line of code without entering subs/functions",58)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18331,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18332,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18332,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Set #Next Line Ctrl+G",22)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18333,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18333,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Jumps to the selected line before continuing execution",54)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18334,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Run To This Line Ctrl+Shift+G",31)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18335,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18335,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Runs until the selected line is reached",39)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18336,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18337,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18337,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Toggle #Breakpoint F9",22)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18338,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18338,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Sets/clears breakpoint at cursor location",41)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18339,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Clear All Breakpoints F10",26)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18340,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18340,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Removes all breakpoints",23)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18341,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Toggle #Skip Line Ctrl+P",25)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18342,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18342,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Sets/clears flag to skip line",29)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18343,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Unskip All Lines Ctrl+F10",27)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18344,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18344,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Removes all line skip flags",27)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18345,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18346,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18346,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("SUBs... F2",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18347,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18347,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Displays a list of SUB/FUNCTION procedures",42)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18348,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Watch List... F4",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18349,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18349,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Adds variables to watch list",28)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18350,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Call Stack... F12",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18351,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18351,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Displays the call stack of the current program's execution",58)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18352,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18353,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18353,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Exit $DEBUG mode ESC",22)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18354,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18354,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Disconnects from the running program and returns control to the IDE",67)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18355,"ide_methods.bas");}while(r); +}else{ +S_56057:; +if (((-(*__LONG_IDESYSTEM== 1 ))|(-(*__LONG_IDESYSTEM== 2 )))||new_error){ +if(qbevent){evnt(26070,18357,"ide_methods.bas");if(r)goto S_56057;} +do{ +qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_SELECTION,FUNC_GETSELECTEDTEXT(&(pass6170= 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18359,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_SELA2,_SUB_IDEMAKECONTEXTUALMENU_STRING_SELECTION); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18360,"ide_methods.bas");}while(r); +S_56060:; +if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDEMAKECONTEXTUALMENU_STRING_SELECTION->len> 0 )))||new_error){ +if(qbevent){evnt(26070,18361,"ide_methods.bas");if(r)goto S_56060;} +do{ +qbs_set(__STRING_IDECONTEXTUALSEARCH,_SUB_IDEMAKECONTEXTUALMENU_STRING_SELECTION); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18362,"ide_methods.bas");}while(r); +S_56062:; +if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDEMAKECONTEXTUALMENU_STRING_SELA2->len> 22 )))||new_error){ +if(qbevent){evnt(26070,18363,"ide_methods.bas");if(r)goto S_56062;} +do{ +qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_SELA2,qbs_add(qbs_left(_SUB_IDEMAKECONTEXTUALMENU_STRING_SELA2, 19 ),func_string( 3 , 250 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18364,"ide_methods.bas");}while(r); +} +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(qbs_add(qbs_new_txt_len("Find '",6),_SUB_IDEMAKECONTEXTUALMENU_STRING_SELA2),qbs_new_txt_len("'",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18366,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18366,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Searches for the text currently selected",40)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18367,"ide_methods.bas");}while(r); +} +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_TOTALSF= 0 ; +if(!qbevent)break;evnt(26070,18371,"ide_methods.bas");}while(r); +S_56070:; +fornext_value6174= 1 ; +fornext_finalvalue6174=*__LONG_IDEN; +fornext_step6174= 1 ; +if (fornext_step6174<0) fornext_step_negative6174=1; else fornext_step_negative6174=0; +if (new_error) goto fornext_error6174; +goto fornext_entrylabel6174; +while(1){ +fornext_value6174=fornext_step6174+(*_SUB_IDEMAKECONTEXTUALMENU_LONG_Y); +fornext_entrylabel6174: +*_SUB_IDEMAKECONTEXTUALMENU_LONG_Y=fornext_value6174; +if (fornext_step_negative6174){ +if (fornext_value6174fornext_finalvalue6174) break; +} +fornext_error6174:; +if(qbevent){evnt(26070,18372,"ide_methods.bas");if(r)goto S_56070;} +do{ +qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_A,FUNC_IDEGETLINE(_SUB_IDEMAKECONTEXTUALMENU_LONG_Y)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18373,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_A,qbs_ltrim(qbs_rtrim(_SUB_IDEMAKECONTEXTUALMENU_STRING_A))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18374,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_SF= 0 ; +if(!qbevent)break;evnt(26070,18375,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_NCA,qbs_ucase(_SUB_IDEMAKECONTEXTUALMENU_STRING_A)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18376,"ide_methods.bas");}while(r); +S_56075:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_IDEMAKECONTEXTUALMENU_STRING_NCA, 4 ),qbs_new_txt_len("SUB ",4))))||new_error){ +if(qbevent){evnt(26070,18377,"ide_methods.bas");if(r)goto S_56075;} +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_SF= 1 ; +if(!qbevent)break;evnt(26070,18377,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_SF,qbs_new_txt_len("SUB ",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18377,"ide_methods.bas");}while(r); +} +S_56079:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_IDEMAKECONTEXTUALMENU_STRING_NCA, 9 ),qbs_new_txt_len("FUNCTION ",9))))||new_error){ +if(qbevent){evnt(26070,18378,"ide_methods.bas");if(r)goto S_56079;} +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_SF= 2 ; +if(!qbevent)break;evnt(26070,18378,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_SF,qbs_new_txt_len("FUNC ",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18378,"ide_methods.bas");}while(r); +} +S_56083:; +if ((*_SUB_IDEMAKECONTEXTUALMENU_LONG_SF)||new_error){ +if(qbevent){evnt(26070,18379,"ide_methods.bas");if(r)goto S_56083;} +S_56084:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_SUB_IDEMAKECONTEXTUALMENU_STRING_NCA, 7 ),qbs_new_txt_len(" STATIC",7))))||new_error){ +if(qbevent){evnt(26070,18380,"ide_methods.bas");if(r)goto S_56084;} +do{ +qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_A,qbs_rtrim(qbs_left(_SUB_IDEMAKECONTEXTUALMENU_STRING_A,_SUB_IDEMAKECONTEXTUALMENU_STRING_A->len- 7 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18381,"ide_methods.bas");}while(r); +} +S_56087:; +if ((-(*_SUB_IDEMAKECONTEXTUALMENU_LONG_SF== 1 ))||new_error){ +if(qbevent){evnt(26070,18384,"ide_methods.bas");if(r)goto S_56087;} +do{ +qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_A,qbs_right(_SUB_IDEMAKECONTEXTUALMENU_STRING_A,_SUB_IDEMAKECONTEXTUALMENU_STRING_A->len- 4 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18385,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_A,qbs_right(_SUB_IDEMAKECONTEXTUALMENU_STRING_A,_SUB_IDEMAKECONTEXTUALMENU_STRING_A->len- 9 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18387,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_A,qbs_ltrim(qbs_rtrim(_SUB_IDEMAKECONTEXTUALMENU_STRING_A))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18390,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_X=func_instr(NULL,_SUB_IDEMAKECONTEXTUALMENU_STRING_A,qbs_new_txt_len("(",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18391,"ide_methods.bas");}while(r); +S_56094:; +if ((*_SUB_IDEMAKECONTEXTUALMENU_LONG_X)||new_error){ +if(qbevent){evnt(26070,18392,"ide_methods.bas");if(r)goto S_56094;} +do{ +qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_N,qbs_rtrim(qbs_left(_SUB_IDEMAKECONTEXTUALMENU_STRING_A,*_SUB_IDEMAKECONTEXTUALMENU_LONG_X- 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18393,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_N,_SUB_IDEMAKECONTEXTUALMENU_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18395,"ide_methods.bas");}while(r); +do{ +SUB_CLEANSUBNAME(_SUB_IDEMAKECONTEXTUALMENU_STRING_N); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18396,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_N2,_SUB_IDEMAKECONTEXTUALMENU_STRING_N); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18399,"ide_methods.bas");}while(r); +S_56101:; +if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDEMAKECONTEXTUALMENU_STRING_N2->len> 1 )))||new_error){ +if(qbevent){evnt(26070,18400,"ide_methods.bas");if(r)goto S_56101;} +S_56102:; +while((!(qbs_cleanup(qbs_tmp_base,((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(qbs_right(_SUB_IDEMAKECONTEXTUALMENU_STRING_N2, 1 )))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])])))||new_error){ +if(qbevent){evnt(26070,18401,"ide_methods.bas");if(r)goto S_56102;} +do{ +qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_N2,qbs_left(_SUB_IDEMAKECONTEXTUALMENU_STRING_N,_SUB_IDEMAKECONTEXTUALMENU_STRING_N2->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18402,"ide_methods.bas");}while(r); +dl_continue_6179:; +} +dl_exit_6179:; +} +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_TOTALSF=*_SUB_IDEMAKECONTEXTUALMENU_LONG_TOTALSF+ 1 ; +if(!qbevent)break;evnt(26070,18407,"ide_methods.bas");}while(r); +do{ if (__ARRAY_STRING_SUBFUNCLIST[2]&2){ error(10); @@ -189586,221 +189586,221 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_SUBFUNCLIST[0]))[tmp_long]=(uint64)q while(tmp_long--) ((uint64*)(__ARRAY_STRING_SUBFUNCLIST[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -} -if(!qbevent)break;evnt(26070,18408,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_TOTALSF)-__ARRAY_STRING_SUBFUNCLIST[4],__ARRAY_STRING_SUBFUNCLIST[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SUBFUNCLIST[0]))[tmp_long])),qbs_add(qbs_add(l2string(*_SUB_IDEMAKECONTEXTUALMENU_LONG_Y),func_chr(*_SUB_IDEMAKECONTEXTUALMENU_LONG_SF)),_SUB_IDEMAKECONTEXTUALMENU_STRING_N2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18409,"ide_methods.bas");}while(r); -} -fornext_continue_6173:; -} -fornext_exit_6173:; -do{ -qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_A2,qbs_ucase(FUNC_GETWORDATCURSOR())); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18414,"ide_methods.bas");}while(r); -S_56112:; -if ((qbs_cleanup(qbs_tmp_base,-(((int32)(qbs_ltrim(qbs_rtrim(_SUB_IDEMAKECONTEXTUALMENU_STRING_SELECTION)))->len)> 0 )))||new_error){ -if(qbevent){evnt(26070,18417,"ide_methods.bas");if(r)goto S_56112;} -S_56113:; -while((!(qbs_cleanup(qbs_tmp_base,((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(qbs_right(_SUB_IDEMAKECONTEXTUALMENU_STRING_SELECTION, 1 )))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])])))||new_error){ -if(qbevent){evnt(26070,18418,"ide_methods.bas");if(r)goto S_56113;} -do{ -qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_SELECTION,qbs_left(_SUB_IDEMAKECONTEXTUALMENU_STRING_SELECTION,_SUB_IDEMAKECONTEXTUALMENU_STRING_SELECTION->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18419,"ide_methods.bas");}while(r); -S_56115:; -if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDEMAKECONTEXTUALMENU_STRING_SELECTION->len== 0 )))||new_error){ -if(qbevent){evnt(26070,18420,"ide_methods.bas");if(r)goto S_56115;} -do{ -goto dl_exit_6181; -if(!qbevent)break;evnt(26070,18420,"ide_methods.bas");}while(r); -} -dl_continue_6181:; -} -dl_exit_6181:; -do{ -qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_SELECTION,qbs_ltrim(qbs_rtrim(_SUB_IDEMAKECONTEXTUALMENU_STRING_SELECTION))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18422,"ide_methods.bas");}while(r); -} -S_56121:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_SUB_IDEMAKECONTEXTUALMENU_STRING_A2, 1 ),qbs_new_txt_len("$",1))))||new_error){ -if(qbevent){evnt(26070,18425,"ide_methods.bas");if(r)goto S_56121;} -do{ -qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_A3,qbs_left(_SUB_IDEMAKECONTEXTUALMENU_STRING_A2,_SUB_IDEMAKECONTEXTUALMENU_STRING_A2->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18425,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_A3,_SUB_IDEMAKECONTEXTUALMENU_STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18425,"ide_methods.bas");}while(r); -} -S_56126:; -if ((qbs_cleanup(qbs_tmp_base,(-(_SUB_IDEMAKECONTEXTUALMENU_STRING_A3->len> 0 ))|(-(_SUB_IDEMAKECONTEXTUALMENU_STRING_SELECTION->len> 0 ))))||new_error){ -if(qbevent){evnt(26070,18427,"ide_methods.bas");if(r)goto S_56126;} -S_56127:; -fornext_value6188= 1 ; -fornext_finalvalue6188=*_SUB_IDEMAKECONTEXTUALMENU_LONG_TOTALSF; -fornext_step6188= 1 ; -if (fornext_step6188<0) fornext_step_negative6188=1; else fornext_step_negative6188=0; -if (new_error) goto fornext_error6188; -goto fornext_entrylabel6188; -while(1){ -fornext_value6188=fornext_step6188+(*_SUB_IDEMAKECONTEXTUALMENU_LONG_CHECKSF); -fornext_entrylabel6188: -*_SUB_IDEMAKECONTEXTUALMENU_LONG_CHECKSF=fornext_value6188; -if (fornext_step_negative6188){ -if (fornext_value6188fornext_finalvalue6188) break; -} -fornext_error6188:; -if(qbevent){evnt(26070,18429,"ide_methods.bas");if(r)goto S_56127;} -S_56128:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_IDEMAKECONTEXTUALMENU_STRING_A3,qbs_ucase(func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_SUBFUNCLIST[0]))[array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_CHECKSF)-__ARRAY_STRING_SUBFUNCLIST[4],__ARRAY_STRING_SUBFUNCLIST[5])])), 6 ,NULL,0))))|(qbs_equal(qbs_ucase(_SUB_IDEMAKECONTEXTUALMENU_STRING_SELECTION),qbs_ucase(func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_SUBFUNCLIST[0]))[array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_CHECKSF)-__ARRAY_STRING_SUBFUNCLIST[4],__ARRAY_STRING_SUBFUNCLIST[5])])), 6 ,NULL,0))))))||new_error){ -if(qbevent){evnt(26070,18430,"ide_methods.bas");if(r)goto S_56128;} -do{ -qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_CURRSF,FUNC_FINDCURRENTSF(__LONG_IDECY)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18431,"ide_methods.bas");}while(r); -S_56130:; -if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDEMAKECONTEXTUALMENU_STRING_CURRSF->len== 0 )))||new_error){ -if(qbevent){evnt(26070,18432,"ide_methods.bas");if(r)goto S_56130;} -do{ -goto LABEL_SKIPCHECKCURRSF; -if(!qbevent)break;evnt(26070,18432,"ide_methods.bas");}while(r); -} -S_56133:; -while((!(qbs_cleanup(qbs_tmp_base,((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(qbs_right(_SUB_IDEMAKECONTEXTUALMENU_STRING_CURRSF, 1 )))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])])))||new_error){ -if(qbevent){evnt(26070,18434,"ide_methods.bas");if(r)goto S_56133;} -do{ -qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_CURRSF,qbs_left(_SUB_IDEMAKECONTEXTUALMENU_STRING_CURRSF,_SUB_IDEMAKECONTEXTUALMENU_STRING_CURRSF->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18435,"ide_methods.bas");}while(r); -S_56135:; -if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDEMAKECONTEXTUALMENU_STRING_CURRSF->len== 0 )))||new_error){ -if(qbevent){evnt(26070,18436,"ide_methods.bas");if(r)goto S_56135;} -do{ -goto dl_exit_6190; -if(!qbevent)break;evnt(26070,18436,"ide_methods.bas");}while(r); -} -dl_continue_6190:; -} -dl_exit_6190:; -do{ -qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_CURRSF,qbs_ucase(_SUB_IDEMAKECONTEXTUALMENU_STRING_CURRSF)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18438,"ide_methods.bas");}while(r); -LABEL_SKIPCHECKCURRSF:; -if(qbevent){evnt(26070,18440,"ide_methods.bas");r=0;} -S_56140:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(((qbs*)(((uint64*)(__ARRAY_STRING_SUBFUNCLIST[0]))[array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_CHECKSF)-__ARRAY_STRING_SUBFUNCLIST[4],__ARRAY_STRING_SUBFUNCLIST[5])])), 5 )== 1 )))||new_error){ -if(qbevent){evnt(26070,18441,"ide_methods.bas");if(r)goto S_56140;} -do{ -qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_CURSORSF,qbs_new_txt_len("SUB ",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18442,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_CURSORSF,qbs_new_txt_len("FUNCTION ",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18444,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_CURSORSF,qbs_add(_SUB_IDEMAKECONTEXTUALMENU_STRING_CURSORSF,func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_SUBFUNCLIST[0]))[array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_CHECKSF)-__ARRAY_STRING_SUBFUNCLIST[4],__ARRAY_STRING_SUBFUNCLIST[5])])), 6 ,NULL,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18446,"ide_methods.bas");}while(r); -S_56146:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_IDEMAKECONTEXTUALMENU_STRING_CURSORSF),_SUB_IDEMAKECONTEXTUALMENU_STRING_CURRSF)))||new_error){ -if(qbevent){evnt(26070,18448,"ide_methods.bas");if(r)goto S_56146;} -do{ -goto fornext_exit_6187; -if(!qbevent)break;evnt(26070,18449,"ide_methods.bas");}while(r); -}else{ -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(qbs_new_txt_len("#Go To ",7),_SUB_IDEMAKECONTEXTUALMENU_STRING_CURSORSF)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18451,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18451,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Jumps to procedure definition",29)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18452,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check(( 1 )-__ARRAY_STRING_SUBFUNCLIST[4],__ARRAY_STRING_SUBFUNCLIST[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SUBFUNCLIST[0]))[tmp_long])),((qbs*)(((uint64*)(__ARRAY_STRING_SUBFUNCLIST[0]))[array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_CHECKSF)-__ARRAY_STRING_SUBFUNCLIST[4],__ARRAY_STRING_SUBFUNCLIST[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18453,"ide_methods.bas");}while(r); -do{ -goto fornext_exit_6187; -if(!qbevent)break;evnt(26070,18454,"ide_methods.bas");}while(r); -} -} -fornext_continue_6187:; -} -fornext_exit_6187:; -do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_V= 0 ; -if(!qbevent)break;evnt(26070,18459,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_CURRSF,FUNC_FINDCURRENTSF(__LONG_IDECY)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18460,"ide_methods.bas");}while(r); -S_56159:; -if ((qbs_cleanup(qbs_tmp_base,FUNC_VALIDNAME(_SUB_IDEMAKECONTEXTUALMENU_STRING_A2)))||new_error){ -if(qbevent){evnt(26070,18461,"ide_methods.bas");if(r)goto S_56159;} -do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_V=FUNC_HASHFIND(_SUB_IDEMAKECONTEXTUALMENU_STRING_A2,&(pass6193= 2 ),_SUB_IDEMAKECONTEXTUALMENU_LONG_IGNORE,_SUB_IDEMAKECONTEXTUALMENU_LONG_R); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18461,"ide_methods.bas");}while(r); -} -LABEL_CHECKTHISLABEL:; -if(qbevent){evnt(26070,18462,"ide_methods.bas");r=0;} -S_56162:; -if ((*_SUB_IDEMAKECONTEXTUALMENU_LONG_V)||new_error){ -if(qbevent){evnt(26070,18463,"ide_methods.bas");if(r)goto S_56162;} -do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_LABELLINENUMBER=*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+278)); -if(!qbevent)break;evnt(26070,18464,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_THISLABELSCOPE,FUNC_FINDCURRENTSF(_SUB_IDEMAKECONTEXTUALMENU_LONG_LABELLINENUMBER)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18465,"ide_methods.bas");}while(r); -S_56165:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(_SUB_IDEMAKECONTEXTUALMENU_STRING_THISLABELSCOPE,_SUB_IDEMAKECONTEXTUALMENU_STRING_CURRSF))&(-(*_SUB_IDEMAKECONTEXTUALMENU_LONG_V== 2 ))))||new_error){ -if(qbevent){evnt(26070,18466,"ide_methods.bas");if(r)goto S_56165;} -do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_V=FUNC_HASHFINDCONT(_SUB_IDEMAKECONTEXTUALMENU_LONG_IGNORE,_SUB_IDEMAKECONTEXTUALMENU_LONG_R); -if(!qbevent)break;evnt(26070,18467,"ide_methods.bas");}while(r); -do{ -goto LABEL_CHECKTHISLABEL; -if(!qbevent)break;evnt(26070,18468,"ide_methods.bas");}while(r); -} -S_56169:; -if (((-(*_SUB_IDEMAKECONTEXTUALMENU_LONG_LABELLINENUMBER> 0 ))&(-(*_SUB_IDEMAKECONTEXTUALMENU_LONG_LABELLINENUMBER!=*__LONG_IDECY)))||new_error){ -if(qbevent){evnt(26070,18470,"ide_methods.bas");if(r)goto S_56169;} -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(qbs_new_txt_len("Go To #Label ",13),qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+((array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1)),256,1)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18471,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18471,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Jumps to label",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18472,"ide_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26070,18408,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_TOTALSF)-__ARRAY_STRING_SUBFUNCLIST[4],__ARRAY_STRING_SUBFUNCLIST[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SUBFUNCLIST[0]))[tmp_long])),qbs_add(qbs_add(l2string(*_SUB_IDEMAKECONTEXTUALMENU_LONG_Y),func_chr(*_SUB_IDEMAKECONTEXTUALMENU_LONG_SF)),_SUB_IDEMAKECONTEXTUALMENU_STRING_N2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18409,"ide_methods.bas");}while(r); +} +fornext_continue_6173:; +} +fornext_exit_6173:; +do{ +qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_A2,qbs_ucase(FUNC_GETWORDATCURSOR())); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18414,"ide_methods.bas");}while(r); +S_56112:; +if ((qbs_cleanup(qbs_tmp_base,-(((int32)(qbs_ltrim(qbs_rtrim(_SUB_IDEMAKECONTEXTUALMENU_STRING_SELECTION)))->len)> 0 )))||new_error){ +if(qbevent){evnt(26070,18417,"ide_methods.bas");if(r)goto S_56112;} +S_56113:; +while((!(qbs_cleanup(qbs_tmp_base,((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(qbs_right(_SUB_IDEMAKECONTEXTUALMENU_STRING_SELECTION, 1 )))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])])))||new_error){ +if(qbevent){evnt(26070,18418,"ide_methods.bas");if(r)goto S_56113;} +do{ +qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_SELECTION,qbs_left(_SUB_IDEMAKECONTEXTUALMENU_STRING_SELECTION,_SUB_IDEMAKECONTEXTUALMENU_STRING_SELECTION->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18419,"ide_methods.bas");}while(r); +S_56115:; +if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDEMAKECONTEXTUALMENU_STRING_SELECTION->len== 0 )))||new_error){ +if(qbevent){evnt(26070,18420,"ide_methods.bas");if(r)goto S_56115;} +do{ +goto dl_exit_6181; +if(!qbevent)break;evnt(26070,18420,"ide_methods.bas");}while(r); +} +dl_continue_6181:; +} +dl_exit_6181:; +do{ +qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_SELECTION,qbs_ltrim(qbs_rtrim(_SUB_IDEMAKECONTEXTUALMENU_STRING_SELECTION))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18422,"ide_methods.bas");}while(r); +} +S_56121:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_SUB_IDEMAKECONTEXTUALMENU_STRING_A2, 1 ),qbs_new_txt_len("$",1))))||new_error){ +if(qbevent){evnt(26070,18425,"ide_methods.bas");if(r)goto S_56121;} +do{ +qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_A3,qbs_left(_SUB_IDEMAKECONTEXTUALMENU_STRING_A2,_SUB_IDEMAKECONTEXTUALMENU_STRING_A2->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18425,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_A3,_SUB_IDEMAKECONTEXTUALMENU_STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18425,"ide_methods.bas");}while(r); +} +S_56126:; +if ((qbs_cleanup(qbs_tmp_base,(-(_SUB_IDEMAKECONTEXTUALMENU_STRING_A3->len> 0 ))|(-(_SUB_IDEMAKECONTEXTUALMENU_STRING_SELECTION->len> 0 ))))||new_error){ +if(qbevent){evnt(26070,18427,"ide_methods.bas");if(r)goto S_56126;} +S_56127:; +fornext_value6188= 1 ; +fornext_finalvalue6188=*_SUB_IDEMAKECONTEXTUALMENU_LONG_TOTALSF; +fornext_step6188= 1 ; +if (fornext_step6188<0) fornext_step_negative6188=1; else fornext_step_negative6188=0; +if (new_error) goto fornext_error6188; +goto fornext_entrylabel6188; +while(1){ +fornext_value6188=fornext_step6188+(*_SUB_IDEMAKECONTEXTUALMENU_LONG_CHECKSF); +fornext_entrylabel6188: +*_SUB_IDEMAKECONTEXTUALMENU_LONG_CHECKSF=fornext_value6188; +if (fornext_step_negative6188){ +if (fornext_value6188fornext_finalvalue6188) break; +} +fornext_error6188:; +if(qbevent){evnt(26070,18429,"ide_methods.bas");if(r)goto S_56127;} +S_56128:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_IDEMAKECONTEXTUALMENU_STRING_A3,qbs_ucase(func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_SUBFUNCLIST[0]))[array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_CHECKSF)-__ARRAY_STRING_SUBFUNCLIST[4],__ARRAY_STRING_SUBFUNCLIST[5])])), 6 ,NULL,0))))|(qbs_equal(qbs_ucase(_SUB_IDEMAKECONTEXTUALMENU_STRING_SELECTION),qbs_ucase(func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_SUBFUNCLIST[0]))[array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_CHECKSF)-__ARRAY_STRING_SUBFUNCLIST[4],__ARRAY_STRING_SUBFUNCLIST[5])])), 6 ,NULL,0))))))||new_error){ +if(qbevent){evnt(26070,18430,"ide_methods.bas");if(r)goto S_56128;} +do{ +qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_CURRSF,FUNC_FINDCURRENTSF(__LONG_IDECY)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18431,"ide_methods.bas");}while(r); +S_56130:; +if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDEMAKECONTEXTUALMENU_STRING_CURRSF->len== 0 )))||new_error){ +if(qbevent){evnt(26070,18432,"ide_methods.bas");if(r)goto S_56130;} +do{ +goto LABEL_SKIPCHECKCURRSF; +if(!qbevent)break;evnt(26070,18432,"ide_methods.bas");}while(r); +} +S_56133:; +while((!(qbs_cleanup(qbs_tmp_base,((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(qbs_right(_SUB_IDEMAKECONTEXTUALMENU_STRING_CURRSF, 1 )))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])])))||new_error){ +if(qbevent){evnt(26070,18434,"ide_methods.bas");if(r)goto S_56133;} +do{ +qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_CURRSF,qbs_left(_SUB_IDEMAKECONTEXTUALMENU_STRING_CURRSF,_SUB_IDEMAKECONTEXTUALMENU_STRING_CURRSF->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18435,"ide_methods.bas");}while(r); +S_56135:; +if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDEMAKECONTEXTUALMENU_STRING_CURRSF->len== 0 )))||new_error){ +if(qbevent){evnt(26070,18436,"ide_methods.bas");if(r)goto S_56135;} +do{ +goto dl_exit_6190; +if(!qbevent)break;evnt(26070,18436,"ide_methods.bas");}while(r); +} +dl_continue_6190:; +} +dl_exit_6190:; +do{ +qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_CURRSF,qbs_ucase(_SUB_IDEMAKECONTEXTUALMENU_STRING_CURRSF)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18438,"ide_methods.bas");}while(r); +LABEL_SKIPCHECKCURRSF:; +if(qbevent){evnt(26070,18440,"ide_methods.bas");r=0;} +S_56140:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(((qbs*)(((uint64*)(__ARRAY_STRING_SUBFUNCLIST[0]))[array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_CHECKSF)-__ARRAY_STRING_SUBFUNCLIST[4],__ARRAY_STRING_SUBFUNCLIST[5])])), 5 )== 1 )))||new_error){ +if(qbevent){evnt(26070,18441,"ide_methods.bas");if(r)goto S_56140;} +do{ +qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_CURSORSF,qbs_new_txt_len("SUB ",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18442,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_CURSORSF,qbs_new_txt_len("FUNCTION ",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18444,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_CURSORSF,qbs_add(_SUB_IDEMAKECONTEXTUALMENU_STRING_CURSORSF,func_mid(((qbs*)(((uint64*)(__ARRAY_STRING_SUBFUNCLIST[0]))[array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_CHECKSF)-__ARRAY_STRING_SUBFUNCLIST[4],__ARRAY_STRING_SUBFUNCLIST[5])])), 6 ,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18446,"ide_methods.bas");}while(r); +S_56146:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_IDEMAKECONTEXTUALMENU_STRING_CURSORSF),_SUB_IDEMAKECONTEXTUALMENU_STRING_CURRSF)))||new_error){ +if(qbevent){evnt(26070,18448,"ide_methods.bas");if(r)goto S_56146;} +do{ +goto fornext_exit_6187; +if(!qbevent)break;evnt(26070,18449,"ide_methods.bas");}while(r); +}else{ +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(qbs_new_txt_len("#Go To ",7),_SUB_IDEMAKECONTEXTUALMENU_STRING_CURSORSF)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18451,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18451,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Jumps to procedure definition",29)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18452,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check(( 1 )-__ARRAY_STRING_SUBFUNCLIST[4],__ARRAY_STRING_SUBFUNCLIST[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SUBFUNCLIST[0]))[tmp_long])),((qbs*)(((uint64*)(__ARRAY_STRING_SUBFUNCLIST[0]))[array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_CHECKSF)-__ARRAY_STRING_SUBFUNCLIST[4],__ARRAY_STRING_SUBFUNCLIST[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18453,"ide_methods.bas");}while(r); +do{ +goto fornext_exit_6187; +if(!qbevent)break;evnt(26070,18454,"ide_methods.bas");}while(r); +} +} +fornext_continue_6187:; +} +fornext_exit_6187:; +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_V= 0 ; +if(!qbevent)break;evnt(26070,18459,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_CURRSF,FUNC_FINDCURRENTSF(__LONG_IDECY)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18460,"ide_methods.bas");}while(r); +S_56159:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_VALIDNAME(_SUB_IDEMAKECONTEXTUALMENU_STRING_A2)))||new_error){ +if(qbevent){evnt(26070,18461,"ide_methods.bas");if(r)goto S_56159;} +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_V=FUNC_HASHFIND(_SUB_IDEMAKECONTEXTUALMENU_STRING_A2,&(pass6193= 2 ),_SUB_IDEMAKECONTEXTUALMENU_LONG_IGNORE,_SUB_IDEMAKECONTEXTUALMENU_LONG_R); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18461,"ide_methods.bas");}while(r); +} +LABEL_CHECKTHISLABEL:; +if(qbevent){evnt(26070,18462,"ide_methods.bas");r=0;} +S_56162:; +if ((*_SUB_IDEMAKECONTEXTUALMENU_LONG_V)||new_error){ +if(qbevent){evnt(26070,18463,"ide_methods.bas");if(r)goto S_56162;} +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_LABELLINENUMBER=*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+278)); +if(!qbevent)break;evnt(26070,18464,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_THISLABELSCOPE,FUNC_FINDCURRENTSF(_SUB_IDEMAKECONTEXTUALMENU_LONG_LABELLINENUMBER)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18465,"ide_methods.bas");}while(r); +S_56165:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(_SUB_IDEMAKECONTEXTUALMENU_STRING_THISLABELSCOPE,_SUB_IDEMAKECONTEXTUALMENU_STRING_CURRSF))&(-(*_SUB_IDEMAKECONTEXTUALMENU_LONG_V== 2 ))))||new_error){ +if(qbevent){evnt(26070,18466,"ide_methods.bas");if(r)goto S_56165;} +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_V=FUNC_HASHFINDCONT(_SUB_IDEMAKECONTEXTUALMENU_LONG_IGNORE,_SUB_IDEMAKECONTEXTUALMENU_LONG_R); +if(!qbevent)break;evnt(26070,18467,"ide_methods.bas");}while(r); +do{ +goto LABEL_CHECKTHISLABEL; +if(!qbevent)break;evnt(26070,18468,"ide_methods.bas");}while(r); +} +S_56169:; +if (((-(*_SUB_IDEMAKECONTEXTUALMENU_LONG_LABELLINENUMBER> 0 ))&(-(*_SUB_IDEMAKECONTEXTUALMENU_LONG_LABELLINENUMBER!=*__LONG_IDECY)))||new_error){ +if(qbevent){evnt(26070,18470,"ide_methods.bas");if(r)goto S_56169;} +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(qbs_new_txt_len("Go To #Label ",13),qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_LABELS[0])+((array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+1)),256,1)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18471,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18471,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Jumps to label",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18472,"ide_methods.bas");}while(r); +do{ if (__ARRAY_STRING_SUBFUNCLIST[2]&2){ error(10); @@ -189843,1516 +189843,1516 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_SUBFUNCLIST[0]))[tmp_long]=(uint64)q while(tmp_long--) ((uint64*)(__ARRAY_STRING_SUBFUNCLIST[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -} -if(!qbevent)break;evnt(26070,18473,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((func_ubound(__ARRAY_STRING_SUBFUNCLIST,1,1))-__ARRAY_STRING_SUBFUNCLIST[4],__ARRAY_STRING_SUBFUNCLIST[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SUBFUNCLIST[0]))[tmp_long])),l2string(*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+278)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18474,"ide_methods.bas");}while(r); -} -} -} -S_56178:; -if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDEMAKECONTEXTUALMENU_STRING_A2->len> 0 )))||new_error){ -if(qbevent){evnt(26070,18479,"ide_methods.bas");if(r)goto S_56178;} -do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_LNKS= 0 ; -if(!qbevent)break;evnt(26070,18481,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_L2,FUNC_FINDHELPTOPIC(_SUB_IDEMAKECONTEXTUALMENU_STRING_A2,_SUB_IDEMAKECONTEXTUALMENU_LONG_LNKS,&(pass6195= -1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18482,"ide_methods.bas");}while(r); -S_56181:; -if ((*_SUB_IDEMAKECONTEXTUALMENU_LONG_LNKS)||new_error){ -if(qbevent){evnt(26070,18484,"ide_methods.bas");if(r)goto S_56181;} -S_56182:; -if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDEMAKECONTEXTUALMENU_STRING_L2->len> 15 )))||new_error){ -if(qbevent){evnt(26070,18485,"ide_methods.bas");if(r)goto S_56182;} -do{ -qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_L2,qbs_add(qbs_left(_SUB_IDEMAKECONTEXTUALMENU_STRING_L2, 12 ),func_string( 3 , 250 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18486,"ide_methods.bas");}while(r); -} -S_56185:; -if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_SUB_IDEMAKECONTEXTUALMENU_STRING_L2,qbs_new_txt_len("PARENTHESIS",11),0)== 0 )))||new_error){ -if(qbevent){evnt(26070,18488,"ide_methods.bas");if(r)goto S_56185;} -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(qbs_add(qbs_new_txt_len("#Help On '",10),_SUB_IDEMAKECONTEXTUALMENU_STRING_L2),qbs_new_txt_len("'",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18489,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18489,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Opens help article on the selected term",39)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18490,"ide_methods.bas");}while(r); -} -} -} -S_56192:; -if ((-(*_SUB_IDEMAKECONTEXTUALMENU_LONG_I> 1 ))||new_error){ -if(qbevent){evnt(26070,18495,"ide_methods.bas");if(r)goto S_56192;} -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18496,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18496,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18500,"ide_methods.bas");}while(r); -S_56197:; -if ((*__LONG_IDESELECT)||new_error){ -if(qbevent){evnt(26070,18501,"ide_methods.bas");if(r)goto S_56197;} -S_56198:; -if ((-(*__LONG_IDESELECTY1!=*__LONG_IDECY))||new_error){ -if(qbevent){evnt(26070,18502,"ide_methods.bas");if(r)goto S_56198;} -do{ -goto LABEL_NORGBFOUND; -if(!qbevent)break;evnt(26070,18502,"ide_methods.bas");}while(r); -} -} -do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_FOUND_RGB= 0 ; -if(!qbevent)break;evnt(26070,18505,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_FOUND_RGB=*_SUB_IDEMAKECONTEXTUALMENU_LONG_FOUND_RGB+func_instr(NULL,qbs_ucase(_SUB_IDEMAKECONTEXTUALMENU_STRING_A),qbs_new_txt_len("RGB(",4),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18506,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_FOUND_RGB=*_SUB_IDEMAKECONTEXTUALMENU_LONG_FOUND_RGB+func_instr(NULL,qbs_ucase(_SUB_IDEMAKECONTEXTUALMENU_STRING_A),qbs_new_txt_len("RGB32(",6),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18507,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_FOUND_RGB=*_SUB_IDEMAKECONTEXTUALMENU_LONG_FOUND_RGB+func_instr(NULL,qbs_ucase(_SUB_IDEMAKECONTEXTUALMENU_STRING_A),qbs_new_txt_len("RGBA(",5),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18508,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_FOUND_RGB=*_SUB_IDEMAKECONTEXTUALMENU_LONG_FOUND_RGB+func_instr(NULL,qbs_ucase(_SUB_IDEMAKECONTEXTUALMENU_STRING_A),qbs_new_txt_len("RGBA32(",7),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18509,"ide_methods.bas");}while(r); -S_56207:; -if ((*_SUB_IDEMAKECONTEXTUALMENU_LONG_FOUND_RGB)||new_error){ -if(qbevent){evnt(26070,18510,"ide_methods.bas");if(r)goto S_56207;} -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#RGB Color Mixer...",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18511,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18511,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Allows mixing colors to edit/insert _RGB statements",51)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18512,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18513,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18513,"ide_methods.bas");}while(r); -} -LABEL_NORGBFOUND:; -if(qbevent){evnt(26070,18515,"ide_methods.bas");r=0;} -S_56214:; -if (((-(*__LONG_IDESELECT!= 0 )))||new_error){ -if(qbevent){evnt(26070,18518,"ide_methods.bas");if(r)goto S_56214;} -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Cu#t Shift+Del or Ctrl+X",25)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18519,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18519,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Deletes selected text and copies it to clipboard",48)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18520,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Copy Ctrl+Ins or Ctrl+C",25)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18521,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18521,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Copies selected text to clipboard",33)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18522,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_CLIP,func__clipboard()); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18525,"ide_methods.bas");}while(r); -S_56223:; -if ((qbs_cleanup(qbs_tmp_base,_SUB_IDEMAKECONTEXTUALMENU_STRING_CLIP->len))||new_error){ -if(qbevent){evnt(26070,18526,"ide_methods.bas");if(r)goto S_56223;} -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Paste Shift+Ins or Ctrl+V",27)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18527,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18527,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Inserts clipboard contents at current location",46)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18528,"ide_methods.bas");}while(r); -} -S_56228:; -if ((*__LONG_IDESELECT)||new_error){ -if(qbevent){evnt(26070,18531,"ide_methods.bas");if(r)goto S_56228;} -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Cl#ear Del",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18532,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18532,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Deletes selected text",21)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18533,"ide_methods.bas");}while(r); -} -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Select #All Ctrl+A",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18535,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18535,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Selects all contents of current program",39)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18536,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18537,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18537,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("To#ggle Comment Ctrl+T",23)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18538,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18538,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Toggles comment (') on the current selection",44)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18539,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Add Co#mment (') Ctrl+R",24)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18540,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18540,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Adds comment marker (') to the current selection",48)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18541,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Remove Comme#nt (') Ctrl+Shift+R",33)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18542,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18542,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Removes comment marker (') from the current selection",53)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18543,"ide_methods.bas");}while(r); -S_56247:; -if ((*__LONG_IDESELECT)||new_error){ -if(qbevent){evnt(26070,18544,"ide_methods.bas");if(r)goto S_56247;} -do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_Y1=*__LONG_IDECY; -if(!qbevent)break;evnt(26070,18545,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_Y2=*__LONG_IDESELECTY1; -if(!qbevent)break;evnt(26070,18546,"ide_methods.bas");}while(r); -S_56250:; -if ((-(*_SUB_IDEMAKECONTEXTUALMENU_LONG_Y1==*_SUB_IDEMAKECONTEXTUALMENU_LONG_Y2))||new_error){ -if(qbevent){evnt(26070,18547,"ide_methods.bas");if(r)goto S_56250;} -do{ -qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18548,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_A2,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18549,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_SX1=*__LONG_IDESELECTX1; -if(!qbevent)break;evnt(26070,18550,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_SX2=*__LONG_IDECX; -if(!qbevent)break;evnt(26070,18550,"ide_methods.bas");}while(r); -S_56255:; -if ((-(*_SUB_IDEMAKECONTEXTUALMENU_LONG_SX2<*_SUB_IDEMAKECONTEXTUALMENU_LONG_SX1))||new_error){ -if(qbevent){evnt(26070,18551,"ide_methods.bas");if(r)goto S_56255;} -do{ -swap_32(&*_SUB_IDEMAKECONTEXTUALMENU_LONG_SX1,&*_SUB_IDEMAKECONTEXTUALMENU_LONG_SX2); -if(!qbevent)break;evnt(26070,18551,"ide_methods.bas");}while(r); -} -S_56258:; -fornext_value6199=*_SUB_IDEMAKECONTEXTUALMENU_LONG_SX1; -fornext_finalvalue6199=*_SUB_IDEMAKECONTEXTUALMENU_LONG_SX2- 1 ; -fornext_step6199= 1 ; -if (fornext_step6199<0) fornext_step_negative6199=1; else fornext_step_negative6199=0; -if (new_error) goto fornext_error6199; -goto fornext_entrylabel6199; -while(1){ -fornext_value6199=fornext_step6199+(*_SUB_IDEMAKECONTEXTUALMENU_LONG_X); -fornext_entrylabel6199: -*_SUB_IDEMAKECONTEXTUALMENU_LONG_X=fornext_value6199; -if (fornext_step_negative6199){ -if (fornext_value6199fornext_finalvalue6199) break; -} -fornext_error6199:; -if(qbevent){evnt(26070,18552,"ide_methods.bas");if(r)goto S_56258;} -S_56259:; -if ((qbs_cleanup(qbs_tmp_base,-(*_SUB_IDEMAKECONTEXTUALMENU_LONG_X<=_SUB_IDEMAKECONTEXTUALMENU_STRING_A->len)))||new_error){ -if(qbevent){evnt(26070,18553,"ide_methods.bas");if(r)goto S_56259;} -do{ -qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_A2,qbs_add(_SUB_IDEMAKECONTEXTUALMENU_STRING_A2,func_mid(_SUB_IDEMAKECONTEXTUALMENU_STRING_A,*_SUB_IDEMAKECONTEXTUALMENU_LONG_X, 1 ,0|1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18553,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_A2,qbs_add(_SUB_IDEMAKECONTEXTUALMENU_STRING_A2,qbs_new_txt_len(" ",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18553,"ide_methods.bas");}while(r); -} -fornext_continue_6198:; -} -fornext_exit_6198:; -S_56265:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_IDEMAKECONTEXTUALMENU_STRING_A2,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,18555,"ide_methods.bas");if(r)goto S_56265;} -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Increase Indent TAB",21)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18556,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18556,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Increases indentation of the current selection",46)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18557,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Decrease Indent",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18558,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Decreases indentation of the current selection",46)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18559,"ide_methods.bas");}while(r); -S_56271:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)|func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0)))||new_error){ -if(qbevent){evnt(26070,18560,"ide_methods.bas");if(r)goto S_56271;} -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len(" Shift+TAB",11))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18560,"ide_methods.bas");}while(r); -} -do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18561,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18562,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18562,"ide_methods.bas");}while(r); -} -}else{ -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Increase Indent TAB",21)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18565,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18565,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Increases indentation of the current selection",46)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18566,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Decrease Indent",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18567,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Decreases indentation of the current selection",46)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18568,"ide_methods.bas");}while(r); -S_56284:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)|func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0)))||new_error){ -if(qbevent){evnt(26070,18569,"ide_methods.bas");if(r)goto S_56284;} -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len(" Shift+TAB",11))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18569,"ide_methods.bas");}while(r); -} -do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18570,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18571,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18571,"ide_methods.bas");}while(r); -} -}else{ -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18574,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18574,"ide_methods.bas");}while(r); -} -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("New #SUB...",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18576,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18576,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Creates a new subprocedure at the end of the current program",60)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18577,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("New #FUNCTION...",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18578,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18578,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Creates a new function at the end of the current program",56)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18579,"ide_methods.bas");}while(r); -S_56301:; -}else{ -if (-(*__LONG_IDESYSTEM== 3 )){ -if(qbevent){evnt(26070,18580,"ide_methods.bas");if(r)goto S_56301;} -S_56302:; -if (((-(*__LONG_HELP_SELECT== 2 )))||new_error){ -if(qbevent){evnt(26070,18581,"ide_methods.bas");if(r)goto S_56302;} -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Copy Ctrl+Ins or Ctrl+C",25)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18582,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18582,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Copies selected text to clipboard",33)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18583,"ide_methods.bas");}while(r); -} -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Select #All Ctrl+A",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18585,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18585,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Selects all contents of current article",39)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18586,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18587,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18587,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Contents Page",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18588,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18588,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Displays help contents page",27)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18589,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Keyword #Index",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18590,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18590,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Displays keyword index page",27)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18591,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Keywords by Usage",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18592,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18592,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Displays keywords index by usage",32)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18593,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18594,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18594,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Update Current Page",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18595,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18595,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Downloads the latest version of this article from the wiki",58)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18596,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Update All #Pages...",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18597,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18597,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Downloads the latest version of all articles from the wiki",58)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18598,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("View Current Page On #Wiki",26)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18599,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18599,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Launches the default browser and navigates to the current article on the wiki",77)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18600,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18601,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18601,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Clo#se Help ESC",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18602,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18602,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Closes help window",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18603,"ide_methods.bas");}while(r); -} -} -} -do{ -tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_MENUSIZE[0]))[tmp_long]=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 ; -if(!qbevent)break;evnt(26070,18606,"ide_methods.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free252.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -void SUB_IDEMAKEEDITMENU(){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data253.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -*_SUB_IDEMAKEEDITMENU_LONG_M=*__INTEGER_IDEEDITMENUID; -if(!qbevent)break;evnt(26070,18610,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKEEDITMENU_LONG_I= 0 ; -if(!qbevent)break;evnt(26070,18610,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Edit",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18611,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18611,"ide_methods.bas");}while(r); -S_56344:; -if ((-(*__LONG_IDESYSTEM== 1 ))||new_error){ -if(qbevent){evnt(26070,18613,"ide_methods.bas");if(r)goto S_56344;} -do{ -tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Undo Ctrl+Z",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18614,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18614,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Restores program state before last edit",39)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18615,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Redo Ctrl+Y",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18616,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18616,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Redoes latest undo action",25)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18617,"ide_methods.bas");}while(r); -}else{ -do{ -tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("~#Undo Ctrl+Z",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18619,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18619,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Restores program state before last edit",39)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18620,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("~#Redo Ctrl+Y",14)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18621,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18621,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Redoes latest undo action",25)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18622,"ide_methods.bas");}while(r); -} -do{ -tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18624,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18624,"ide_methods.bas");}while(r); -S_56361:; -if (((((-(*__LONG_IDESYSTEM== 1 ))&(-(*__LONG_IDESELECT== 1 ))))|(-(*__LONG_IDESYSTEM== 2 )))||new_error){ -if(qbevent){evnt(26070,18626,"ide_methods.bas");if(r)goto S_56361;} -do{ -tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Cu#t Shift+Del or Ctrl+X",25)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18627,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18627,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Deletes selected text and copies it to clipboard",48)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18628,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Copy Ctrl+Ins or Ctrl+C",25)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18629,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18629,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Copies selected text to clipboard",33)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18630,"ide_methods.bas");}while(r); -S_56368:; -}else{ -if (((-(*__LONG_IDESYSTEM== 3 ))&(-(*__LONG_HELP_SELECT== 2 )))){ -if(qbevent){evnt(26070,18631,"ide_methods.bas");if(r)goto S_56368;} -do{ -tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("~Cu#t Shift+Del or Ctrl+X",26)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18632,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18632,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Deletes selected text and copies it to clipboard",48)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18633,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Copy Ctrl+Ins or Ctrl+C",25)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18634,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18634,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Copies selected text to clipboard",33)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18635,"ide_methods.bas");}while(r); -}else{ -do{ -tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("~Cu#t Shift+Del or Ctrl+X",26)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18637,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18637,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Deletes selected text and copies it to clipboard",48)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18638,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("~#Copy Ctrl+Ins or Ctrl+C",26)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18639,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18639,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Copies selected text to clipboard",33)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18640,"ide_methods.bas");}while(r); -} -} -do{ -qbs_set(_SUB_IDEMAKEEDITMENU_STRING_CLIP,func__clipboard()); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18643,"ide_methods.bas");}while(r); -S_56384:; -if ((qbs_cleanup(qbs_tmp_base,(((-(_SUB_IDEMAKEEDITMENU_STRING_CLIP->len> 0 ))&(-(*__LONG_IDESYSTEM== 1 ))))|(-(*__LONG_IDESYSTEM== 2 ))))||new_error){ -if(qbevent){evnt(26070,18644,"ide_methods.bas");if(r)goto S_56384;} -do{ -tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Paste Shift+Ins or Ctrl+V",27)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18645,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18645,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Inserts clipboard contents at current location",46)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18646,"ide_methods.bas");}while(r); -}else{ -do{ -tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("~#Paste Shift+Ins or Ctrl+V",28)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18648,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18648,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Inserts clipboard contents at current location",46)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18649,"ide_methods.bas");}while(r); -} -S_56393:; -if (((((-(*__LONG_IDESYSTEM== 1 ))&(-(*__LONG_IDESELECT== 1 ))))|(-(*__LONG_IDESYSTEM== 2 )))||new_error){ -if(qbevent){evnt(26070,18652,"ide_methods.bas");if(r)goto S_56393;} -do{ -tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Cl#ear Del",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18653,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18653,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Deletes selected text",21)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18654,"ide_methods.bas");}while(r); -}else{ -do{ -tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("~Cl#ear Del",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18656,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18656,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Deletes selected text",21)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18657,"ide_methods.bas");}while(r); -} -do{ -tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Select #All Ctrl+A",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18660,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18660,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Selects all contents of current program",39)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18661,"ide_methods.bas");}while(r); -S_56405:; -if ((-(*__LONG_IDESYSTEM== 1 ))||new_error){ -if(qbevent){evnt(26070,18663,"ide_methods.bas");if(r)goto S_56405;} -do{ -tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18664,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18664,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("To#ggle Comment Ctrl+T",23)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18665,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18665,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Toggles comment (') on the current selection",44)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18666,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Add Co#mment (') Ctrl+R",24)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18667,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18667,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Adds comment marker (') to the current selection",48)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18668,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Remove Comme#nt (') Ctrl+Shift+R",33)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18669,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18669,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Removes comment marker (') from the current selection",53)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18670,"ide_methods.bas");}while(r); -S_56417:; -if ((*__LONG_IDESELECT)||new_error){ -if(qbevent){evnt(26070,18671,"ide_methods.bas");if(r)goto S_56417;} -do{ -*_SUB_IDEMAKEEDITMENU_LONG_Y1=*__LONG_IDECY; -if(!qbevent)break;evnt(26070,18672,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKEEDITMENU_LONG_Y2=*__LONG_IDESELECTY1; -if(!qbevent)break;evnt(26070,18673,"ide_methods.bas");}while(r); -S_56420:; -if ((-(*_SUB_IDEMAKEEDITMENU_LONG_Y1==*_SUB_IDEMAKEEDITMENU_LONG_Y2))||new_error){ -if(qbevent){evnt(26070,18674,"ide_methods.bas");if(r)goto S_56420;} -do{ -qbs_set(_SUB_IDEMAKEEDITMENU_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18675,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_IDEMAKEEDITMENU_STRING_A2,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18676,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKEEDITMENU_LONG_SX1=*__LONG_IDESELECTX1; -if(!qbevent)break;evnt(26070,18677,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKEEDITMENU_LONG_SX2=*__LONG_IDECX; -if(!qbevent)break;evnt(26070,18677,"ide_methods.bas");}while(r); -S_56425:; -if ((-(*_SUB_IDEMAKEEDITMENU_LONG_SX2<*_SUB_IDEMAKEEDITMENU_LONG_SX1))||new_error){ -if(qbevent){evnt(26070,18678,"ide_methods.bas");if(r)goto S_56425;} -do{ -swap_32(&*_SUB_IDEMAKEEDITMENU_LONG_SX1,&*_SUB_IDEMAKEEDITMENU_LONG_SX2); -if(!qbevent)break;evnt(26070,18678,"ide_methods.bas");}while(r); -} -S_56428:; -fornext_value6203=*_SUB_IDEMAKEEDITMENU_LONG_SX1; -fornext_finalvalue6203=*_SUB_IDEMAKEEDITMENU_LONG_SX2- 1 ; -fornext_step6203= 1 ; -if (fornext_step6203<0) fornext_step_negative6203=1; else fornext_step_negative6203=0; -if (new_error) goto fornext_error6203; -goto fornext_entrylabel6203; -while(1){ -fornext_value6203=fornext_step6203+(*_SUB_IDEMAKEEDITMENU_LONG_X); -fornext_entrylabel6203: -*_SUB_IDEMAKEEDITMENU_LONG_X=fornext_value6203; -if (fornext_step_negative6203){ -if (fornext_value6203fornext_finalvalue6203) break; -} -fornext_error6203:; -if(qbevent){evnt(26070,18679,"ide_methods.bas");if(r)goto S_56428;} -S_56429:; -if ((qbs_cleanup(qbs_tmp_base,-(*_SUB_IDEMAKEEDITMENU_LONG_X<=_SUB_IDEMAKEEDITMENU_STRING_A->len)))||new_error){ -if(qbevent){evnt(26070,18680,"ide_methods.bas");if(r)goto S_56429;} -do{ -qbs_set(_SUB_IDEMAKEEDITMENU_STRING_A2,qbs_add(_SUB_IDEMAKEEDITMENU_STRING_A2,func_mid(_SUB_IDEMAKEEDITMENU_STRING_A,*_SUB_IDEMAKEEDITMENU_LONG_X, 1 ,0|1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18680,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_SUB_IDEMAKEEDITMENU_STRING_A2,qbs_add(_SUB_IDEMAKEEDITMENU_STRING_A2,qbs_new_txt_len(" ",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18680,"ide_methods.bas");}while(r); -} -fornext_continue_6202:; -} -fornext_exit_6202:; -S_56435:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDEMAKEEDITMENU_STRING_A2,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,18682,"ide_methods.bas");if(r)goto S_56435;} -do{ -tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("~#Increase Indent TAB",22)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18683,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18683,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Increases indentation of the current selection",46)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18684,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("~#Decrease Indent",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18685,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Decreases indentation of the current selection",46)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18686,"ide_methods.bas");}while(r); -S_56441:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)|func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0)))||new_error){ -if(qbevent){evnt(26070,18687,"ide_methods.bas");if(r)goto S_56441;} -do{ -tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len(" Shift+TAB",11))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18687,"ide_methods.bas");}while(r); -} -do{ -*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18688,"ide_methods.bas");}while(r); -}else{ -do{ -tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Increase Indent TAB",21)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18690,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18690,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Increases indentation of the current selection",46)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18691,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Decrease Indent",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18692,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Decreases indentation of the current selection",46)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18693,"ide_methods.bas");}while(r); -S_56451:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)|func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0)))||new_error){ -if(qbevent){evnt(26070,18694,"ide_methods.bas");if(r)goto S_56451;} -do{ -tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len(" Shift+TAB",11))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18694,"ide_methods.bas");}while(r); -} -do{ -*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18695,"ide_methods.bas");}while(r); -} -}else{ -do{ -tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Increase Indent TAB",21)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18698,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18698,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Increases indentation of the current selection",46)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18699,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Decrease Indent",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18700,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Decreases indentation of the current selection",46)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18701,"ide_methods.bas");}while(r); -S_56462:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)|func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0)))||new_error){ -if(qbevent){evnt(26070,18702,"ide_methods.bas");if(r)goto S_56462;} -do{ -tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len(" Shift+TAB",11))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18702,"ide_methods.bas");}while(r); -} -do{ -*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18703,"ide_methods.bas");}while(r); -} -}else{ -do{ -tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("~#Increase Indent TAB",22)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18706,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18706,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Increases indentation of the current selection",46)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18707,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("~#Decrease Indent",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18708,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Decreases indentation of the current selection",46)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18709,"ide_methods.bas");}while(r); -S_56473:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)|func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0)))||new_error){ -if(qbevent){evnt(26070,18710,"ide_methods.bas");if(r)goto S_56473;} -do{ -tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len(" Shift+TAB",11))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18710,"ide_methods.bas");}while(r); -} -do{ -*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18711,"ide_methods.bas");}while(r); -} -do{ -tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18713,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18713,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("New #SUB...",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18714,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18714,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Creates a new subprocedure at the end of the current program",60)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18715,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("New #FUNCTION...",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18716,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18716,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Creates a new function at the end of the current program",56)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18717,"ide_methods.bas");}while(r); -}else{ -do{ -tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18719,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18719,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("~To#ggle Comment Ctrl+T",24)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18720,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18720,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Toggles comment (') on the current selection",44)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18721,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("~Add Co#mment (') Ctrl+R",25)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18722,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18722,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Adds comment marker (') to the current selection",48)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18723,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("~Remove Comme#nt (') Ctrl+Shift+R",34)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18724,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18724,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Removes comment marker (') from the current selection",53)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18725,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("~#Increase Indent TAB",22)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18726,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18726,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Increases indentation of the current selection",46)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18727,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("~#Decrease Indent",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18728,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Decreases indentation of the current selection",46)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18729,"ide_methods.bas");}while(r); -S_56503:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)|func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0)))||new_error){ -if(qbevent){evnt(26070,18730,"ide_methods.bas");if(r)goto S_56503;} -do{ -tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len(" Shift+TAB",11))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18730,"ide_methods.bas");}while(r); -} -do{ -*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18731,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18732,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18732,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("~New #SUB...",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18733,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18733,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Creates a new subprocedure at the end of the current program",60)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18734,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("~New #FUNCTION...",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18735,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18735,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Creates a new function at the end of the current program",56)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18736,"ide_methods.bas");}while(r); -} -do{ -tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5]); -if (!new_error) ((int32*)(__ARRAY_LONG_MENUSIZE[0]))[tmp_long]=*_SUB_IDEMAKEEDITMENU_LONG_I- 1 ; -if(!qbevent)break;evnt(26070,18738,"ide_methods.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free253.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -void SUB_IDEADDRECENT(qbs*_SUB_IDEADDRECENT_STRING_F2){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data254.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -qbs_set(_SUB_IDEADDRECENT_STRING_F,_SUB_IDEADDRECENT_STRING_F2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18742,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_IDEADDRECENT_STRING_F,FUNC_REMOVEDOUBLESLASHES(_SUB_IDEADDRECENT_STRING_F)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18744,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_IDEADDRECENT_STRING_F,qbs_add(qbs_add(__STRING_CRLF,_SUB_IDEADDRECENT_STRING_F),__STRING_CRLF)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18746,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEADDRECENT_LONG_FH=func_freefile(); -if(!qbevent)break;evnt(26070,18747,"ide_methods.bas");}while(r); -do{ -sub_open(qbs_new_txt_len(".\\internal\\temp\\recent.bin",26), 2 ,NULL,NULL,*_SUB_IDEADDRECENT_LONG_FH,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18748,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_IDEADDRECENT_STRING_A,func_space(func_lof(*_SUB_IDEADDRECENT_LONG_FH))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18748,"ide_methods.bas");}while(r); -do{ -sub_get2(*_SUB_IDEADDRECENT_LONG_FH,NULL,_SUB_IDEADDRECENT_STRING_A,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18748,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEADDRECENT_LONG_X=func_instr(NULL,qbs_ucase(_SUB_IDEADDRECENT_STRING_A),qbs_ucase(_SUB_IDEADDRECENT_STRING_F),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18749,"ide_methods.bas");}while(r); -S_56525:; -if ((*_SUB_IDEADDRECENT_LONG_X)||new_error){ -if(qbevent){evnt(26070,18750,"ide_methods.bas");if(r)goto S_56525;} -do{ -qbs_set(_SUB_IDEADDRECENT_STRING_A,qbs_add(qbs_add(_SUB_IDEADDRECENT_STRING_F,qbs_left(_SUB_IDEADDRECENT_STRING_A,*_SUB_IDEADDRECENT_LONG_X- 1 )),qbs_right(_SUB_IDEADDRECENT_STRING_A,_SUB_IDEADDRECENT_STRING_A->len-(*_SUB_IDEADDRECENT_LONG_X+_SUB_IDEADDRECENT_STRING_F->len- 1 )))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18751,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_SUB_IDEADDRECENT_STRING_A,qbs_add(_SUB_IDEADDRECENT_STRING_F,_SUB_IDEADDRECENT_STRING_A)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18753,"ide_methods.bas");}while(r); -} -do{ -sub_put2(*_SUB_IDEADDRECENT_LONG_FH, 1 ,byte_element((uint64)_SUB_IDEADDRECENT_STRING_A->chr,_SUB_IDEADDRECENT_STRING_A->len,byte_element_6208),1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18755,"ide_methods.bas");}while(r); -do{ -sub_close(*_SUB_IDEADDRECENT_LONG_FH,1); -if(!qbevent)break;evnt(26070,18756,"ide_methods.bas");}while(r); -do{ -SUB_IDEMAKEFILEMENU(); -if(!qbevent)break;evnt(26070,18757,"ide_methods.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free254.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -qbs* FUNC_REMOVEDOUBLESLASHES(qbs*_FUNC_REMOVEDOUBLESLASHES_STRING_F){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data255.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -*_FUNC_REMOVEDOUBLESLASHES_LONG_X=func_instr(NULL,_FUNC_REMOVEDOUBLESLASHES_STRING_F,qbs_new_txt_len("//",2),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18761,"ide_methods.bas");}while(r); -S_56534:; -while((*_FUNC_REMOVEDOUBLESLASHES_LONG_X)||new_error){ -if(qbevent){evnt(26070,18762,"ide_methods.bas");if(r)goto S_56534;} -do{ -qbs_set(_FUNC_REMOVEDOUBLESLASHES_STRING_F,qbs_add(qbs_left(_FUNC_REMOVEDOUBLESLASHES_STRING_F,*_FUNC_REMOVEDOUBLESLASHES_LONG_X- 1 ),func_mid(_FUNC_REMOVEDOUBLESLASHES_STRING_F,*_FUNC_REMOVEDOUBLESLASHES_LONG_X+ 1 ,NULL,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18763,"ide_methods.bas");}while(r); -do{ -*_FUNC_REMOVEDOUBLESLASHES_LONG_X=func_instr(NULL,_FUNC_REMOVEDOUBLESLASHES_STRING_F,qbs_new_txt_len("//",2),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18764,"ide_methods.bas");}while(r); -dl_continue_6210:; -} -dl_exit_6210:; -do{ -*_FUNC_REMOVEDOUBLESLASHES_LONG_X=func_instr(NULL,_FUNC_REMOVEDOUBLESLASHES_STRING_F,qbs_new_txt_len("\\\\",2),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18767,"ide_methods.bas");}while(r); -S_56539:; -while((*_FUNC_REMOVEDOUBLESLASHES_LONG_X)||new_error){ -if(qbevent){evnt(26070,18768,"ide_methods.bas");if(r)goto S_56539;} -do{ -qbs_set(_FUNC_REMOVEDOUBLESLASHES_STRING_F,qbs_add(qbs_left(_FUNC_REMOVEDOUBLESLASHES_STRING_F,*_FUNC_REMOVEDOUBLESLASHES_LONG_X- 1 ),func_mid(_FUNC_REMOVEDOUBLESLASHES_STRING_F,*_FUNC_REMOVEDOUBLESLASHES_LONG_X+ 1 ,NULL,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18769,"ide_methods.bas");}while(r); -do{ -*_FUNC_REMOVEDOUBLESLASHES_LONG_X=func_instr(NULL,_FUNC_REMOVEDOUBLESLASHES_STRING_F,qbs_new_txt_len("\\\\",2),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18770,"ide_methods.bas");}while(r); -dl_continue_6211:; -} -dl_exit_6211:; -do{ -qbs_set(_FUNC_REMOVEDOUBLESLASHES_STRING_REMOVEDOUBLESLASHES,_FUNC_REMOVEDOUBLESLASHES_STRING_F); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18773,"ide_methods.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free255.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_REMOVEDOUBLESLASHES_STRING_REMOVEDOUBLESLASHES);return _FUNC_REMOVEDOUBLESLASHES_STRING_REMOVEDOUBLESLASHES; -} -void SUB_IDEADDSEARCHED(qbs*_SUB_IDEADDSEARCHED_STRING_S2){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data256.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -qbs_set(_SUB_IDEADDSEARCHED_STRING_S,qbs_add(_SUB_IDEADDSEARCHED_STRING_S2,__STRING_CRLF)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18777,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEADDSEARCHED_LONG_FH=func_freefile(); -if(!qbevent)break;evnt(26070,18778,"ide_methods.bas");}while(r); -do{ -sub_open(qbs_new_txt_len(".\\internal\\temp\\searched.bin",28), 2 ,NULL,NULL,*_SUB_IDEADDSEARCHED_LONG_FH,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18779,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_IDEADDSEARCHED_STRING_A,func_space(func_lof(*_SUB_IDEADDSEARCHED_LONG_FH))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18779,"ide_methods.bas");}while(r); -do{ -sub_get2(*_SUB_IDEADDSEARCHED_LONG_FH,NULL,_SUB_IDEADDSEARCHED_STRING_A,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18779,"ide_methods.bas");}while(r); -do{ -*_SUB_IDEADDSEARCHED_LONG_X=func_instr(NULL,qbs_ucase(_SUB_IDEADDSEARCHED_STRING_A),qbs_ucase(_SUB_IDEADDSEARCHED_STRING_S),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18780,"ide_methods.bas");}while(r); -S_56550:; -if ((*_SUB_IDEADDSEARCHED_LONG_X)||new_error){ -if(qbevent){evnt(26070,18781,"ide_methods.bas");if(r)goto S_56550;} -do{ -qbs_set(_SUB_IDEADDSEARCHED_STRING_A,qbs_add(qbs_add(_SUB_IDEADDSEARCHED_STRING_S,qbs_left(_SUB_IDEADDSEARCHED_STRING_A,*_SUB_IDEADDSEARCHED_LONG_X- 1 )),qbs_right(_SUB_IDEADDSEARCHED_STRING_A,_SUB_IDEADDSEARCHED_STRING_A->len-(*_SUB_IDEADDSEARCHED_LONG_X+_SUB_IDEADDSEARCHED_STRING_S->len- 1 )))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18782,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_SUB_IDEADDSEARCHED_STRING_A,qbs_add(_SUB_IDEADDSEARCHED_STRING_S,_SUB_IDEADDSEARCHED_STRING_A)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18784,"ide_methods.bas");}while(r); -} -do{ -sub_put2(*_SUB_IDEADDSEARCHED_LONG_FH, 1 ,byte_element((uint64)_SUB_IDEADDSEARCHED_STRING_A->chr,_SUB_IDEADDSEARCHED_STRING_A->len,byte_element_6215),1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18786,"ide_methods.bas");}while(r); -do{ -sub_close(*_SUB_IDEADDSEARCHED_LONG_FH,1); -if(!qbevent)break;evnt(26070,18787,"ide_methods.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free256.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -int32 FUNC_IDEUPDATEHELPBOX(){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data257.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -*_FUNC_IDEUPDATEHELPBOX_LONG_IDEUPDATEHELPBOX= 0 ; -if(!qbevent)break;evnt(26070,18791,"ide_methods.bas");}while(r); -S_56558:; -if ((-(*__LONG_HELP_RECACHING== 2 ))||new_error){ -if(qbevent){evnt(26070,18792,"ide_methods.bas");if(r)goto S_56558;} -do{ +} +if(!qbevent)break;evnt(26070,18473,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((func_ubound(__ARRAY_STRING_SUBFUNCLIST,1,1))-__ARRAY_STRING_SUBFUNCLIST[4],__ARRAY_STRING_SUBFUNCLIST[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_SUBFUNCLIST[0]))[tmp_long])),l2string(*(int32*)(((char*)__ARRAY_UDT_LABELS[0])+((array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_R)-__ARRAY_UDT_LABELS[4],__ARRAY_UDT_LABELS[5]))*282+278)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18474,"ide_methods.bas");}while(r); +} +} +} +S_56178:; +if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDEMAKECONTEXTUALMENU_STRING_A2->len> 0 )))||new_error){ +if(qbevent){evnt(26070,18479,"ide_methods.bas");if(r)goto S_56178;} +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_LNKS= 0 ; +if(!qbevent)break;evnt(26070,18481,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_L2,FUNC_FINDHELPTOPIC(_SUB_IDEMAKECONTEXTUALMENU_STRING_A2,_SUB_IDEMAKECONTEXTUALMENU_LONG_LNKS,&(pass6195= -1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18482,"ide_methods.bas");}while(r); +S_56181:; +if ((*_SUB_IDEMAKECONTEXTUALMENU_LONG_LNKS)||new_error){ +if(qbevent){evnt(26070,18484,"ide_methods.bas");if(r)goto S_56181;} +S_56182:; +if ((qbs_cleanup(qbs_tmp_base,-(_SUB_IDEMAKECONTEXTUALMENU_STRING_L2->len> 15 )))||new_error){ +if(qbevent){evnt(26070,18485,"ide_methods.bas");if(r)goto S_56182;} +do{ +qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_L2,qbs_add(qbs_left(_SUB_IDEMAKECONTEXTUALMENU_STRING_L2, 12 ),func_string( 3 , 250 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18486,"ide_methods.bas");}while(r); +} +S_56185:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_SUB_IDEMAKECONTEXTUALMENU_STRING_L2,qbs_new_txt_len("PARENTHESIS",11),0)== 0 )))||new_error){ +if(qbevent){evnt(26070,18488,"ide_methods.bas");if(r)goto S_56185;} +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(qbs_add(qbs_new_txt_len("#Help On '",10),_SUB_IDEMAKECONTEXTUALMENU_STRING_L2),qbs_new_txt_len("'",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18489,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18489,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Opens help article on the selected term",39)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18490,"ide_methods.bas");}while(r); +} +} +} +S_56192:; +if ((-(*_SUB_IDEMAKECONTEXTUALMENU_LONG_I> 1 ))||new_error){ +if(qbevent){evnt(26070,18495,"ide_methods.bas");if(r)goto S_56192;} +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18496,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18496,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18500,"ide_methods.bas");}while(r); +S_56197:; +if ((*__LONG_IDESELECT)||new_error){ +if(qbevent){evnt(26070,18501,"ide_methods.bas");if(r)goto S_56197;} +S_56198:; +if ((-(*__LONG_IDESELECTY1!=*__LONG_IDECY))||new_error){ +if(qbevent){evnt(26070,18502,"ide_methods.bas");if(r)goto S_56198;} +do{ +goto LABEL_NORGBFOUND; +if(!qbevent)break;evnt(26070,18502,"ide_methods.bas");}while(r); +} +} +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_FOUND_RGB= 0 ; +if(!qbevent)break;evnt(26070,18505,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_FOUND_RGB=*_SUB_IDEMAKECONTEXTUALMENU_LONG_FOUND_RGB+func_instr(NULL,qbs_ucase(_SUB_IDEMAKECONTEXTUALMENU_STRING_A),qbs_new_txt_len("RGB(",4),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18506,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_FOUND_RGB=*_SUB_IDEMAKECONTEXTUALMENU_LONG_FOUND_RGB+func_instr(NULL,qbs_ucase(_SUB_IDEMAKECONTEXTUALMENU_STRING_A),qbs_new_txt_len("RGB32(",6),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18507,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_FOUND_RGB=*_SUB_IDEMAKECONTEXTUALMENU_LONG_FOUND_RGB+func_instr(NULL,qbs_ucase(_SUB_IDEMAKECONTEXTUALMENU_STRING_A),qbs_new_txt_len("RGBA(",5),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18508,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_FOUND_RGB=*_SUB_IDEMAKECONTEXTUALMENU_LONG_FOUND_RGB+func_instr(NULL,qbs_ucase(_SUB_IDEMAKECONTEXTUALMENU_STRING_A),qbs_new_txt_len("RGBA32(",7),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18509,"ide_methods.bas");}while(r); +S_56207:; +if ((*_SUB_IDEMAKECONTEXTUALMENU_LONG_FOUND_RGB)||new_error){ +if(qbevent){evnt(26070,18510,"ide_methods.bas");if(r)goto S_56207;} +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#RGB Color Mixer...",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18511,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18511,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Allows mixing colors to edit/insert _RGB statements",51)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18512,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18513,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18513,"ide_methods.bas");}while(r); +} +LABEL_NORGBFOUND:; +if(qbevent){evnt(26070,18515,"ide_methods.bas");r=0;} +S_56214:; +if (((-(*__LONG_IDESELECT!= 0 )))||new_error){ +if(qbevent){evnt(26070,18518,"ide_methods.bas");if(r)goto S_56214;} +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Cu#t Shift+Del or Ctrl+X",25)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18519,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18519,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Deletes selected text and copies it to clipboard",48)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18520,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Copy Ctrl+Ins or Ctrl+C",25)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18521,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18521,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Copies selected text to clipboard",33)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18522,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_CLIP,func__clipboard()); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18525,"ide_methods.bas");}while(r); +S_56223:; +if ((qbs_cleanup(qbs_tmp_base,_SUB_IDEMAKECONTEXTUALMENU_STRING_CLIP->len))||new_error){ +if(qbevent){evnt(26070,18526,"ide_methods.bas");if(r)goto S_56223;} +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Paste Shift+Ins or Ctrl+V",27)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18527,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18527,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Inserts clipboard contents at current location",46)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18528,"ide_methods.bas");}while(r); +} +S_56228:; +if ((*__LONG_IDESELECT)||new_error){ +if(qbevent){evnt(26070,18531,"ide_methods.bas");if(r)goto S_56228;} +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Cl#ear Del",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18532,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18532,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Deletes selected text",21)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18533,"ide_methods.bas");}while(r); +} +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Select #All Ctrl+A",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18535,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18535,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Selects all contents of current program",39)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18536,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18537,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18537,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("To#ggle Comment Ctrl+T",23)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18538,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18538,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Toggles comment (') on the current selection",44)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18539,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Add Co#mment (') Ctrl+R",24)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18540,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18540,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Adds comment marker (') to the current selection",48)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18541,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Remove Comme#nt (') Ctrl+Shift+R",33)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18542,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18542,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Removes comment marker (') from the current selection",53)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18543,"ide_methods.bas");}while(r); +S_56247:; +if ((*__LONG_IDESELECT)||new_error){ +if(qbevent){evnt(26070,18544,"ide_methods.bas");if(r)goto S_56247;} +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_Y1=*__LONG_IDECY; +if(!qbevent)break;evnt(26070,18545,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_Y2=*__LONG_IDESELECTY1; +if(!qbevent)break;evnt(26070,18546,"ide_methods.bas");}while(r); +S_56250:; +if ((-(*_SUB_IDEMAKECONTEXTUALMENU_LONG_Y1==*_SUB_IDEMAKECONTEXTUALMENU_LONG_Y2))||new_error){ +if(qbevent){evnt(26070,18547,"ide_methods.bas");if(r)goto S_56250;} +do{ +qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18548,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_A2,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18549,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_SX1=*__LONG_IDESELECTX1; +if(!qbevent)break;evnt(26070,18550,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_SX2=*__LONG_IDECX; +if(!qbevent)break;evnt(26070,18550,"ide_methods.bas");}while(r); +S_56255:; +if ((-(*_SUB_IDEMAKECONTEXTUALMENU_LONG_SX2<*_SUB_IDEMAKECONTEXTUALMENU_LONG_SX1))||new_error){ +if(qbevent){evnt(26070,18551,"ide_methods.bas");if(r)goto S_56255;} +do{ +swap_32(&*_SUB_IDEMAKECONTEXTUALMENU_LONG_SX1,&*_SUB_IDEMAKECONTEXTUALMENU_LONG_SX2); +if(!qbevent)break;evnt(26070,18551,"ide_methods.bas");}while(r); +} +S_56258:; +fornext_value6199=*_SUB_IDEMAKECONTEXTUALMENU_LONG_SX1; +fornext_finalvalue6199=*_SUB_IDEMAKECONTEXTUALMENU_LONG_SX2- 1 ; +fornext_step6199= 1 ; +if (fornext_step6199<0) fornext_step_negative6199=1; else fornext_step_negative6199=0; +if (new_error) goto fornext_error6199; +goto fornext_entrylabel6199; +while(1){ +fornext_value6199=fornext_step6199+(*_SUB_IDEMAKECONTEXTUALMENU_LONG_X); +fornext_entrylabel6199: +*_SUB_IDEMAKECONTEXTUALMENU_LONG_X=fornext_value6199; +if (fornext_step_negative6199){ +if (fornext_value6199fornext_finalvalue6199) break; +} +fornext_error6199:; +if(qbevent){evnt(26070,18552,"ide_methods.bas");if(r)goto S_56258;} +S_56259:; +if ((qbs_cleanup(qbs_tmp_base,-(*_SUB_IDEMAKECONTEXTUALMENU_LONG_X<=_SUB_IDEMAKECONTEXTUALMENU_STRING_A->len)))||new_error){ +if(qbevent){evnt(26070,18553,"ide_methods.bas");if(r)goto S_56259;} +do{ +qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_A2,qbs_add(_SUB_IDEMAKECONTEXTUALMENU_STRING_A2,func_mid(_SUB_IDEMAKECONTEXTUALMENU_STRING_A,*_SUB_IDEMAKECONTEXTUALMENU_LONG_X, 1 ,0|1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18553,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_IDEMAKECONTEXTUALMENU_STRING_A2,qbs_add(_SUB_IDEMAKECONTEXTUALMENU_STRING_A2,qbs_new_txt_len(" ",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18553,"ide_methods.bas");}while(r); +} +fornext_continue_6198:; +} +fornext_exit_6198:; +S_56265:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_IDEMAKECONTEXTUALMENU_STRING_A2,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,18555,"ide_methods.bas");if(r)goto S_56265;} +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Increase Indent TAB",21)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18556,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18556,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Increases indentation of the current selection",46)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18557,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Decrease Indent",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18558,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Decreases indentation of the current selection",46)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18559,"ide_methods.bas");}while(r); +S_56271:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)|func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0)))||new_error){ +if(qbevent){evnt(26070,18560,"ide_methods.bas");if(r)goto S_56271;} +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len(" Shift+TAB",11))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18560,"ide_methods.bas");}while(r); +} +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18561,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18562,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18562,"ide_methods.bas");}while(r); +} +}else{ +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Increase Indent TAB",21)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18565,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18565,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Increases indentation of the current selection",46)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18566,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Decrease Indent",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18567,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Decreases indentation of the current selection",46)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18568,"ide_methods.bas");}while(r); +S_56284:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)|func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0)))||new_error){ +if(qbevent){evnt(26070,18569,"ide_methods.bas");if(r)goto S_56284;} +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len(" Shift+TAB",11))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18569,"ide_methods.bas");}while(r); +} +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18570,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18571,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18571,"ide_methods.bas");}while(r); +} +}else{ +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18574,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18574,"ide_methods.bas");}while(r); +} +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("New #SUB...",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18576,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18576,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Creates a new subprocedure at the end of the current program",60)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18577,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("New #FUNCTION...",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18578,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18578,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Creates a new function at the end of the current program",56)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18579,"ide_methods.bas");}while(r); +S_56301:; +}else{ +if (-(*__LONG_IDESYSTEM== 3 )){ +if(qbevent){evnt(26070,18580,"ide_methods.bas");if(r)goto S_56301;} +S_56302:; +if (((-(*__LONG_HELP_SELECT== 2 )))||new_error){ +if(qbevent){evnt(26070,18581,"ide_methods.bas");if(r)goto S_56302;} +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Copy Ctrl+Ins or Ctrl+C",25)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18582,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18582,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Copies selected text to clipboard",33)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18583,"ide_methods.bas");}while(r); +} +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Select #All Ctrl+A",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18585,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18585,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Selects all contents of current article",39)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18586,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18587,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18587,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Contents Page",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18588,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18588,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Displays help contents page",27)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18589,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Keyword #Index",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18590,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18590,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Displays keyword index page",27)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18591,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Keywords by Usage",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18592,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18592,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Displays keywords index by usage",32)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18593,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18594,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18594,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Update Current Page",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18595,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18595,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Downloads the latest version of this article from the wiki",58)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18596,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Update All #Pages...",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18597,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18597,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Downloads the latest version of all articles from the wiki",58)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18598,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("View Current Page On #Wiki",26)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18599,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18599,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Launches the default browser and navigates to the current article on the wiki",77)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18600,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18601,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18601,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Clo#se Help ESC",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18602,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKECONTEXTUALMENU_LONG_I=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18602,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Closes help window",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18603,"ide_methods.bas");}while(r); +} +} +} +do{ +tmp_long=array_check((*_SUB_IDEMAKECONTEXTUALMENU_LONG_M)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_MENUSIZE[0]))[tmp_long]=*_SUB_IDEMAKECONTEXTUALMENU_LONG_I- 1 ; +if(!qbevent)break;evnt(26070,18606,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free252.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +void SUB_IDEMAKEEDITMENU(){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data253.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +*_SUB_IDEMAKEEDITMENU_LONG_M=*__INTEGER_IDEEDITMENUID; +if(!qbevent)break;evnt(26070,18610,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKEEDITMENU_LONG_I= 0 ; +if(!qbevent)break;evnt(26070,18610,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Edit",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18611,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18611,"ide_methods.bas");}while(r); +S_56344:; +if ((-(*__LONG_IDESYSTEM== 1 ))||new_error){ +if(qbevent){evnt(26070,18613,"ide_methods.bas");if(r)goto S_56344;} +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Undo Ctrl+Z",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18614,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18614,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Restores program state before last edit",39)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18615,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Redo Ctrl+Y",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18616,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18616,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Redoes latest undo action",25)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18617,"ide_methods.bas");}while(r); +}else{ +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("~#Undo Ctrl+Z",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18619,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18619,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Restores program state before last edit",39)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18620,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("~#Redo Ctrl+Y",14)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18621,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18621,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Redoes latest undo action",25)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18622,"ide_methods.bas");}while(r); +} +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18624,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18624,"ide_methods.bas");}while(r); +S_56361:; +if (((((-(*__LONG_IDESYSTEM== 1 ))&(-(*__LONG_IDESELECT== 1 ))))|(-(*__LONG_IDESYSTEM== 2 )))||new_error){ +if(qbevent){evnt(26070,18626,"ide_methods.bas");if(r)goto S_56361;} +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Cu#t Shift+Del or Ctrl+X",25)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18627,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18627,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Deletes selected text and copies it to clipboard",48)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18628,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Copy Ctrl+Ins or Ctrl+C",25)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18629,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18629,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Copies selected text to clipboard",33)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18630,"ide_methods.bas");}while(r); +S_56368:; +}else{ +if (((-(*__LONG_IDESYSTEM== 3 ))&(-(*__LONG_HELP_SELECT== 2 )))){ +if(qbevent){evnt(26070,18631,"ide_methods.bas");if(r)goto S_56368;} +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("~Cu#t Shift+Del or Ctrl+X",26)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18632,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18632,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Deletes selected text and copies it to clipboard",48)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18633,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Copy Ctrl+Ins or Ctrl+C",25)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18634,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18634,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Copies selected text to clipboard",33)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18635,"ide_methods.bas");}while(r); +}else{ +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("~Cu#t Shift+Del or Ctrl+X",26)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18637,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18637,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Deletes selected text and copies it to clipboard",48)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18638,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("~#Copy Ctrl+Ins or Ctrl+C",26)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18639,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18639,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Copies selected text to clipboard",33)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18640,"ide_methods.bas");}while(r); +} +} +do{ +qbs_set(_SUB_IDEMAKEEDITMENU_STRING_CLIP,func__clipboard()); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18643,"ide_methods.bas");}while(r); +S_56384:; +if ((qbs_cleanup(qbs_tmp_base,(((-(_SUB_IDEMAKEEDITMENU_STRING_CLIP->len> 0 ))&(-(*__LONG_IDESYSTEM== 1 ))))|(-(*__LONG_IDESYSTEM== 2 ))))||new_error){ +if(qbevent){evnt(26070,18644,"ide_methods.bas");if(r)goto S_56384;} +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Paste Shift+Ins or Ctrl+V",27)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18645,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18645,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Inserts clipboard contents at current location",46)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18646,"ide_methods.bas");}while(r); +}else{ +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("~#Paste Shift+Ins or Ctrl+V",28)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18648,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18648,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Inserts clipboard contents at current location",46)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18649,"ide_methods.bas");}while(r); +} +S_56393:; +if (((((-(*__LONG_IDESYSTEM== 1 ))&(-(*__LONG_IDESELECT== 1 ))))|(-(*__LONG_IDESYSTEM== 2 )))||new_error){ +if(qbevent){evnt(26070,18652,"ide_methods.bas");if(r)goto S_56393;} +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Cl#ear Del",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18653,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18653,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Deletes selected text",21)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18654,"ide_methods.bas");}while(r); +}else{ +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("~Cl#ear Del",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18656,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18656,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Deletes selected text",21)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18657,"ide_methods.bas");}while(r); +} +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Select #All Ctrl+A",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18660,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18660,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Selects all contents of current program",39)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18661,"ide_methods.bas");}while(r); +S_56405:; +if ((-(*__LONG_IDESYSTEM== 1 ))||new_error){ +if(qbevent){evnt(26070,18663,"ide_methods.bas");if(r)goto S_56405;} +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18664,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18664,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("To#ggle Comment Ctrl+T",23)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18665,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18665,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Toggles comment (') on the current selection",44)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18666,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Add Co#mment (') Ctrl+R",24)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18667,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18667,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Adds comment marker (') to the current selection",48)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18668,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("Remove Comme#nt (') Ctrl+Shift+R",33)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18669,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18669,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Removes comment marker (') from the current selection",53)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18670,"ide_methods.bas");}while(r); +S_56417:; +if ((*__LONG_IDESELECT)||new_error){ +if(qbevent){evnt(26070,18671,"ide_methods.bas");if(r)goto S_56417;} +do{ +*_SUB_IDEMAKEEDITMENU_LONG_Y1=*__LONG_IDECY; +if(!qbevent)break;evnt(26070,18672,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKEEDITMENU_LONG_Y2=*__LONG_IDESELECTY1; +if(!qbevent)break;evnt(26070,18673,"ide_methods.bas");}while(r); +S_56420:; +if ((-(*_SUB_IDEMAKEEDITMENU_LONG_Y1==*_SUB_IDEMAKEEDITMENU_LONG_Y2))||new_error){ +if(qbevent){evnt(26070,18674,"ide_methods.bas");if(r)goto S_56420;} +do{ +qbs_set(_SUB_IDEMAKEEDITMENU_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18675,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_IDEMAKEEDITMENU_STRING_A2,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18676,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKEEDITMENU_LONG_SX1=*__LONG_IDESELECTX1; +if(!qbevent)break;evnt(26070,18677,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKEEDITMENU_LONG_SX2=*__LONG_IDECX; +if(!qbevent)break;evnt(26070,18677,"ide_methods.bas");}while(r); +S_56425:; +if ((-(*_SUB_IDEMAKEEDITMENU_LONG_SX2<*_SUB_IDEMAKEEDITMENU_LONG_SX1))||new_error){ +if(qbevent){evnt(26070,18678,"ide_methods.bas");if(r)goto S_56425;} +do{ +swap_32(&*_SUB_IDEMAKEEDITMENU_LONG_SX1,&*_SUB_IDEMAKEEDITMENU_LONG_SX2); +if(!qbevent)break;evnt(26070,18678,"ide_methods.bas");}while(r); +} +S_56428:; +fornext_value6203=*_SUB_IDEMAKEEDITMENU_LONG_SX1; +fornext_finalvalue6203=*_SUB_IDEMAKEEDITMENU_LONG_SX2- 1 ; +fornext_step6203= 1 ; +if (fornext_step6203<0) fornext_step_negative6203=1; else fornext_step_negative6203=0; +if (new_error) goto fornext_error6203; +goto fornext_entrylabel6203; +while(1){ +fornext_value6203=fornext_step6203+(*_SUB_IDEMAKEEDITMENU_LONG_X); +fornext_entrylabel6203: +*_SUB_IDEMAKEEDITMENU_LONG_X=fornext_value6203; +if (fornext_step_negative6203){ +if (fornext_value6203fornext_finalvalue6203) break; +} +fornext_error6203:; +if(qbevent){evnt(26070,18679,"ide_methods.bas");if(r)goto S_56428;} +S_56429:; +if ((qbs_cleanup(qbs_tmp_base,-(*_SUB_IDEMAKEEDITMENU_LONG_X<=_SUB_IDEMAKEEDITMENU_STRING_A->len)))||new_error){ +if(qbevent){evnt(26070,18680,"ide_methods.bas");if(r)goto S_56429;} +do{ +qbs_set(_SUB_IDEMAKEEDITMENU_STRING_A2,qbs_add(_SUB_IDEMAKEEDITMENU_STRING_A2,func_mid(_SUB_IDEMAKEEDITMENU_STRING_A,*_SUB_IDEMAKEEDITMENU_LONG_X, 1 ,0|1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18680,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_IDEMAKEEDITMENU_STRING_A2,qbs_add(_SUB_IDEMAKEEDITMENU_STRING_A2,qbs_new_txt_len(" ",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18680,"ide_methods.bas");}while(r); +} +fornext_continue_6202:; +} +fornext_exit_6202:; +S_56435:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_IDEMAKEEDITMENU_STRING_A2,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,18682,"ide_methods.bas");if(r)goto S_56435;} +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("~#Increase Indent TAB",22)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18683,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18683,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Increases indentation of the current selection",46)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18684,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("~#Decrease Indent",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18685,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Decreases indentation of the current selection",46)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18686,"ide_methods.bas");}while(r); +S_56441:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)|func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0)))||new_error){ +if(qbevent){evnt(26070,18687,"ide_methods.bas");if(r)goto S_56441;} +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len(" Shift+TAB",11))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18687,"ide_methods.bas");}while(r); +} +do{ +*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18688,"ide_methods.bas");}while(r); +}else{ +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Increase Indent TAB",21)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18690,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18690,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Increases indentation of the current selection",46)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18691,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Decrease Indent",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18692,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Decreases indentation of the current selection",46)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18693,"ide_methods.bas");}while(r); +S_56451:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)|func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0)))||new_error){ +if(qbevent){evnt(26070,18694,"ide_methods.bas");if(r)goto S_56451;} +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len(" Shift+TAB",11))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18694,"ide_methods.bas");}while(r); +} +do{ +*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18695,"ide_methods.bas");}while(r); +} +}else{ +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Increase Indent TAB",21)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18698,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18698,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Increases indentation of the current selection",46)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18699,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("#Decrease Indent",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18700,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Decreases indentation of the current selection",46)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18701,"ide_methods.bas");}while(r); +S_56462:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)|func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0)))||new_error){ +if(qbevent){evnt(26070,18702,"ide_methods.bas");if(r)goto S_56462;} +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len(" Shift+TAB",11))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18702,"ide_methods.bas");}while(r); +} +do{ +*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18703,"ide_methods.bas");}while(r); +} +}else{ +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("~#Increase Indent TAB",22)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18706,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18706,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Increases indentation of the current selection",46)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18707,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("~#Decrease Indent",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18708,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Decreases indentation of the current selection",46)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18709,"ide_methods.bas");}while(r); +S_56473:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)|func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0)))||new_error){ +if(qbevent){evnt(26070,18710,"ide_methods.bas");if(r)goto S_56473;} +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len(" Shift+TAB",11))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18710,"ide_methods.bas");}while(r); +} +do{ +*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18711,"ide_methods.bas");}while(r); +} +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18713,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18713,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("New #SUB...",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18714,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18714,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Creates a new subprocedure at the end of the current program",60)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18715,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("New #FUNCTION...",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18716,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18716,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Creates a new function at the end of the current program",56)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18717,"ide_methods.bas");}while(r); +}else{ +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18719,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18719,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("~To#ggle Comment Ctrl+T",24)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18720,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18720,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Toggles comment (') on the current selection",44)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18721,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("~Add Co#mment (') Ctrl+R",25)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18722,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18722,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Adds comment marker (') to the current selection",48)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18723,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("~Remove Comme#nt (') Ctrl+Shift+R",34)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18724,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18724,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Removes comment marker (') from the current selection",53)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18725,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("~#Increase Indent TAB",22)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18726,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18726,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Increases indentation of the current selection",46)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18727,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("~#Decrease Indent",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18728,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Decreases indentation of the current selection",46)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18729,"ide_methods.bas");}while(r); +S_56503:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)|func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0)))||new_error){ +if(qbevent){evnt(26070,18730,"ide_methods.bas");if(r)goto S_56503;} +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_add(((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]])),qbs_new_txt_len(" Shift+TAB",11))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18730,"ide_methods.bas");}while(r); +} +do{ +*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18731,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("-",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18732,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18732,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("~New #SUB...",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18733,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18733,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Creates a new subprocedure at the end of the current program",60)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18734,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENU[8],__ARRAY_STRING_MENU[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I)-__ARRAY_STRING_MENU[4],__ARRAY_STRING_MENU[5])*__ARRAY_STRING_MENU[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENU[0]))[tmp_long])),qbs_new_txt_len("~New #FUNCTION...",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18735,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEMAKEEDITMENU_LONG_I=*_SUB_IDEMAKEEDITMENU_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18735,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_STRING_MENUDESC[8],__ARRAY_STRING_MENUDESC[9])+array_check((*_SUB_IDEMAKEEDITMENU_LONG_I- 1 )-__ARRAY_STRING_MENUDESC[4],__ARRAY_STRING_MENUDESC[5])*__ARRAY_STRING_MENUDESC[6]; +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_MENUDESC[0]))[tmp_long])),qbs_new_txt_len("Creates a new function at the end of the current program",56)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18736,"ide_methods.bas");}while(r); +} +do{ +tmp_long=array_check((*_SUB_IDEMAKEEDITMENU_LONG_M)-__ARRAY_LONG_MENUSIZE[4],__ARRAY_LONG_MENUSIZE[5]); +if (!new_error) ((int32*)(__ARRAY_LONG_MENUSIZE[0]))[tmp_long]=*_SUB_IDEMAKEEDITMENU_LONG_I- 1 ; +if(!qbevent)break;evnt(26070,18738,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free253.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +void SUB_IDEADDRECENT(qbs*_SUB_IDEADDRECENT_STRING_F2){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data254.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +qbs_set(_SUB_IDEADDRECENT_STRING_F,_SUB_IDEADDRECENT_STRING_F2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18742,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_IDEADDRECENT_STRING_F,FUNC_REMOVEDOUBLESLASHES(_SUB_IDEADDRECENT_STRING_F)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18744,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_IDEADDRECENT_STRING_F,qbs_add(qbs_add(__STRING_CRLF,_SUB_IDEADDRECENT_STRING_F),__STRING_CRLF)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18746,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEADDRECENT_LONG_FH=func_freefile(); +if(!qbevent)break;evnt(26070,18747,"ide_methods.bas");}while(r); +do{ +sub_open(qbs_new_txt_len(".\\internal\\temp\\recent.bin",26), 2 ,NULL,NULL,*_SUB_IDEADDRECENT_LONG_FH,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18748,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_IDEADDRECENT_STRING_A,func_space(func_lof(*_SUB_IDEADDRECENT_LONG_FH))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18748,"ide_methods.bas");}while(r); +do{ +sub_get2(*_SUB_IDEADDRECENT_LONG_FH,NULL,_SUB_IDEADDRECENT_STRING_A,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18748,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEADDRECENT_LONG_X=func_instr(NULL,qbs_ucase(_SUB_IDEADDRECENT_STRING_A),qbs_ucase(_SUB_IDEADDRECENT_STRING_F),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18749,"ide_methods.bas");}while(r); +S_56525:; +if ((*_SUB_IDEADDRECENT_LONG_X)||new_error){ +if(qbevent){evnt(26070,18750,"ide_methods.bas");if(r)goto S_56525;} +do{ +qbs_set(_SUB_IDEADDRECENT_STRING_A,qbs_add(qbs_add(_SUB_IDEADDRECENT_STRING_F,qbs_left(_SUB_IDEADDRECENT_STRING_A,*_SUB_IDEADDRECENT_LONG_X- 1 )),qbs_right(_SUB_IDEADDRECENT_STRING_A,_SUB_IDEADDRECENT_STRING_A->len-(*_SUB_IDEADDRECENT_LONG_X+_SUB_IDEADDRECENT_STRING_F->len- 1 )))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18751,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_IDEADDRECENT_STRING_A,qbs_add(_SUB_IDEADDRECENT_STRING_F,_SUB_IDEADDRECENT_STRING_A)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18753,"ide_methods.bas");}while(r); +} +do{ +sub_put2(*_SUB_IDEADDRECENT_LONG_FH, 1 ,byte_element((uint64)_SUB_IDEADDRECENT_STRING_A->chr,_SUB_IDEADDRECENT_STRING_A->len,byte_element_6208),1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18755,"ide_methods.bas");}while(r); +do{ +sub_close(*_SUB_IDEADDRECENT_LONG_FH,1); +if(!qbevent)break;evnt(26070,18756,"ide_methods.bas");}while(r); +do{ +SUB_IDEMAKEFILEMENU(); +if(!qbevent)break;evnt(26070,18757,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free254.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +qbs* FUNC_REMOVEDOUBLESLASHES(qbs*_FUNC_REMOVEDOUBLESLASHES_STRING_F){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data255.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +*_FUNC_REMOVEDOUBLESLASHES_LONG_X=func_instr(NULL,_FUNC_REMOVEDOUBLESLASHES_STRING_F,qbs_new_txt_len("//",2),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18761,"ide_methods.bas");}while(r); +S_56534:; +while((*_FUNC_REMOVEDOUBLESLASHES_LONG_X)||new_error){ +if(qbevent){evnt(26070,18762,"ide_methods.bas");if(r)goto S_56534;} +do{ +qbs_set(_FUNC_REMOVEDOUBLESLASHES_STRING_F,qbs_add(qbs_left(_FUNC_REMOVEDOUBLESLASHES_STRING_F,*_FUNC_REMOVEDOUBLESLASHES_LONG_X- 1 ),func_mid(_FUNC_REMOVEDOUBLESLASHES_STRING_F,*_FUNC_REMOVEDOUBLESLASHES_LONG_X+ 1 ,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18763,"ide_methods.bas");}while(r); +do{ +*_FUNC_REMOVEDOUBLESLASHES_LONG_X=func_instr(NULL,_FUNC_REMOVEDOUBLESLASHES_STRING_F,qbs_new_txt_len("//",2),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18764,"ide_methods.bas");}while(r); +dl_continue_6210:; +} +dl_exit_6210:; +do{ +*_FUNC_REMOVEDOUBLESLASHES_LONG_X=func_instr(NULL,_FUNC_REMOVEDOUBLESLASHES_STRING_F,qbs_new_txt_len("\\\\",2),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18767,"ide_methods.bas");}while(r); +S_56539:; +while((*_FUNC_REMOVEDOUBLESLASHES_LONG_X)||new_error){ +if(qbevent){evnt(26070,18768,"ide_methods.bas");if(r)goto S_56539;} +do{ +qbs_set(_FUNC_REMOVEDOUBLESLASHES_STRING_F,qbs_add(qbs_left(_FUNC_REMOVEDOUBLESLASHES_STRING_F,*_FUNC_REMOVEDOUBLESLASHES_LONG_X- 1 ),func_mid(_FUNC_REMOVEDOUBLESLASHES_STRING_F,*_FUNC_REMOVEDOUBLESLASHES_LONG_X+ 1 ,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18769,"ide_methods.bas");}while(r); +do{ +*_FUNC_REMOVEDOUBLESLASHES_LONG_X=func_instr(NULL,_FUNC_REMOVEDOUBLESLASHES_STRING_F,qbs_new_txt_len("\\\\",2),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18770,"ide_methods.bas");}while(r); +dl_continue_6211:; +} +dl_exit_6211:; +do{ +qbs_set(_FUNC_REMOVEDOUBLESLASHES_STRING_REMOVEDOUBLESLASHES,_FUNC_REMOVEDOUBLESLASHES_STRING_F); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18773,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free255.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_REMOVEDOUBLESLASHES_STRING_REMOVEDOUBLESLASHES);return _FUNC_REMOVEDOUBLESLASHES_STRING_REMOVEDOUBLESLASHES; +} +void SUB_IDEADDSEARCHED(qbs*_SUB_IDEADDSEARCHED_STRING_S2){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data256.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +qbs_set(_SUB_IDEADDSEARCHED_STRING_S,qbs_add(_SUB_IDEADDSEARCHED_STRING_S2,__STRING_CRLF)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18777,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEADDSEARCHED_LONG_FH=func_freefile(); +if(!qbevent)break;evnt(26070,18778,"ide_methods.bas");}while(r); +do{ +sub_open(qbs_new_txt_len(".\\internal\\temp\\searched.bin",28), 2 ,NULL,NULL,*_SUB_IDEADDSEARCHED_LONG_FH,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18779,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_IDEADDSEARCHED_STRING_A,func_space(func_lof(*_SUB_IDEADDSEARCHED_LONG_FH))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18779,"ide_methods.bas");}while(r); +do{ +sub_get2(*_SUB_IDEADDSEARCHED_LONG_FH,NULL,_SUB_IDEADDSEARCHED_STRING_A,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18779,"ide_methods.bas");}while(r); +do{ +*_SUB_IDEADDSEARCHED_LONG_X=func_instr(NULL,qbs_ucase(_SUB_IDEADDSEARCHED_STRING_A),qbs_ucase(_SUB_IDEADDSEARCHED_STRING_S),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18780,"ide_methods.bas");}while(r); +S_56550:; +if ((*_SUB_IDEADDSEARCHED_LONG_X)||new_error){ +if(qbevent){evnt(26070,18781,"ide_methods.bas");if(r)goto S_56550;} +do{ +qbs_set(_SUB_IDEADDSEARCHED_STRING_A,qbs_add(qbs_add(_SUB_IDEADDSEARCHED_STRING_S,qbs_left(_SUB_IDEADDSEARCHED_STRING_A,*_SUB_IDEADDSEARCHED_LONG_X- 1 )),qbs_right(_SUB_IDEADDSEARCHED_STRING_A,_SUB_IDEADDSEARCHED_STRING_A->len-(*_SUB_IDEADDSEARCHED_LONG_X+_SUB_IDEADDSEARCHED_STRING_S->len- 1 )))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18782,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_IDEADDSEARCHED_STRING_A,qbs_add(_SUB_IDEADDSEARCHED_STRING_S,_SUB_IDEADDSEARCHED_STRING_A)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18784,"ide_methods.bas");}while(r); +} +do{ +sub_put2(*_SUB_IDEADDSEARCHED_LONG_FH, 1 ,byte_element((uint64)_SUB_IDEADDSEARCHED_STRING_A->chr,_SUB_IDEADDSEARCHED_STRING_A->len,byte_element_6215),1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18786,"ide_methods.bas");}while(r); +do{ +sub_close(*_SUB_IDEADDSEARCHED_LONG_FH,1); +if(!qbevent)break;evnt(26070,18787,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free256.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +int32 FUNC_IDEUPDATEHELPBOX(){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data257.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +*_FUNC_IDEUPDATEHELPBOX_LONG_IDEUPDATEHELPBOX= 0 ; +if(!qbevent)break;evnt(26070,18791,"ide_methods.bas");}while(r); +S_56558:; +if ((-(*__LONG_HELP_RECACHING== 2 ))||new_error){ +if(qbevent){evnt(26070,18792,"ide_methods.bas");if(r)goto S_56558;} +do{ if (_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[2]&2){ error(10); @@ -191373,33 +191373,33 @@ while(tmp_long--) ((uint64*)(_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[0]) while(tmp_long--) ((uint64*)(_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -} -if(!qbevent)break;evnt(26070,18793,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEUPDATEHELPBOX_LONG_UPDATESTEP= 1 ; -if(!qbevent)break;evnt(26070,18794,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_WW= 78 ; -if(!qbevent)break;evnt(26070,18795,"ide_methods.bas");}while(r); -do{ -goto LABEL_STARTMAINLOOP; -if(!qbevent)break;evnt(26070,18796,"ide_methods.bas");}while(r); -} -do{ -sub_pcopy( 0 , 2 ); -if(!qbevent)break;evnt(26070,18800,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 0 , 1 ); -if(!qbevent)break;evnt(26070,18801,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,18802,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEUPDATEHELPBOX_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(26070,18803,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(26070,18804,"ide_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26070,18793,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEUPDATEHELPBOX_LONG_UPDATESTEP= 1 ; +if(!qbevent)break;evnt(26070,18794,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_WW= 78 ; +if(!qbevent)break;evnt(26070,18795,"ide_methods.bas");}while(r); +do{ +goto LABEL_STARTMAINLOOP; +if(!qbevent)break;evnt(26070,18796,"ide_methods.bas");}while(r); +} +do{ +sub_pcopy( 0 , 2 ); +if(!qbevent)break;evnt(26070,18800,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 0 , 1 ); +if(!qbevent)break;evnt(26070,18801,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,18802,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEUPDATEHELPBOX_LONG_FOCUS= 1 ; +if(!qbevent)break;evnt(26070,18803,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26070,18804,"ide_methods.bas");}while(r); +do{ if (_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[2]&2){ error(10); @@ -191419,58 +191419,58 @@ if (!_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[0]) error(257); } _FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[2]|=1; } -} -if(!qbevent)break;evnt(26070,18805,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(26070,18806,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEUPDATEHELPBOX_STRING1_SEP,func_chr( 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18807,"ide_methods.bas");}while(r); -S_56572:; -if ((-(*__LONG_IDEHELP== 0 ))||new_error){ -if(qbevent){evnt(26070,18811,"ide_methods.bas");if(r)goto S_56572;} -do{ -*_FUNC_IDEUPDATEHELPBOX_LONG_OLD_IDESUBWINDOW=*__LONG_IDESUBWINDOW; -if(!qbevent)break;evnt(26070,18812,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEUPDATEHELPBOX_LONG_OLD_IDEWY=*__LONG_IDEWY; -if(!qbevent)break;evnt(26070,18812,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESUBWINDOW=*__LONG_IDEWY/ 2 ; -if(!qbevent)break;evnt(26070,18813,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEWY=*__LONG_IDEWY-*__LONG_IDESUBWINDOW; -if(!qbevent)break;evnt(26070,18813,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_WX1= 2 ; -if(!qbevent)break;evnt(26070,18814,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_WY1=*__LONG_IDEWY+ 1 ; -if(!qbevent)break;evnt(26070,18814,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_WX2=*__LONG_IDEWX- 1 ; -if(!qbevent)break;evnt(26070,18814,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_WY2=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 2 ; -if(!qbevent)break;evnt(26070,18814,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_WW=*__LONG_HELP_WX2-*__LONG_HELP_WX1+ 1 ; -if(!qbevent)break;evnt(26070,18814,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_WH=*__LONG_HELP_WY2-*__LONG_HELP_WY1+ 1 ; -if(!qbevent)break;evnt(26070,18814,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESUBWINDOW=*_FUNC_IDEUPDATEHELPBOX_LONG_OLD_IDESUBWINDOW; -if(!qbevent)break;evnt(26070,18815,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEWY=*_FUNC_IDEUPDATEHELPBOX_LONG_OLD_IDEWY; -if(!qbevent)break;evnt(26070,18815,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEUPDATEHELPBOX_LONG_MESSAGELINES= 2 ; -if(!qbevent)break;evnt(26070,18818,"ide_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26070,18805,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26070,18806,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEUPDATEHELPBOX_STRING1_SEP,func_chr( 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18807,"ide_methods.bas");}while(r); +S_56572:; +if ((-(*__LONG_IDEHELP== 0 ))||new_error){ +if(qbevent){evnt(26070,18811,"ide_methods.bas");if(r)goto S_56572;} +do{ +*_FUNC_IDEUPDATEHELPBOX_LONG_OLD_IDESUBWINDOW=*__LONG_IDESUBWINDOW; +if(!qbevent)break;evnt(26070,18812,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEUPDATEHELPBOX_LONG_OLD_IDEWY=*__LONG_IDEWY; +if(!qbevent)break;evnt(26070,18812,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESUBWINDOW=*__LONG_IDEWY/ 2 ; +if(!qbevent)break;evnt(26070,18813,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEWY=*__LONG_IDEWY-*__LONG_IDESUBWINDOW; +if(!qbevent)break;evnt(26070,18813,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_WX1= 2 ; +if(!qbevent)break;evnt(26070,18814,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_WY1=*__LONG_IDEWY+ 1 ; +if(!qbevent)break;evnt(26070,18814,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_WX2=*__LONG_IDEWX- 1 ; +if(!qbevent)break;evnt(26070,18814,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_WY2=*__LONG_IDEWY+*__LONG_IDESUBWINDOW- 2 ; +if(!qbevent)break;evnt(26070,18814,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_WW=*__LONG_HELP_WX2-*__LONG_HELP_WX1+ 1 ; +if(!qbevent)break;evnt(26070,18814,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_WH=*__LONG_HELP_WY2-*__LONG_HELP_WY1+ 1 ; +if(!qbevent)break;evnt(26070,18814,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESUBWINDOW=*_FUNC_IDEUPDATEHELPBOX_LONG_OLD_IDESUBWINDOW; +if(!qbevent)break;evnt(26070,18815,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEWY=*_FUNC_IDEUPDATEHELPBOX_LONG_OLD_IDEWY; +if(!qbevent)break;evnt(26070,18815,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEUPDATEHELPBOX_LONG_MESSAGELINES= 2 ; +if(!qbevent)break;evnt(26070,18818,"ide_methods.bas");}while(r); +do{ if (_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[2]&2){ error(10); @@ -191491,1013 +191491,1013 @@ while(tmp_long--) ((uint64*)(_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[0]) while(tmp_long--) ((uint64*)(_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -} -if(!qbevent)break;evnt(26070,18819,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEUPDATEHELPBOX_LONG_UPDATESTEP= 1 ; -if(!qbevent)break;evnt(26070,18820,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEUPDATEHELPBOX_LONG_I= 0 ; -if(!qbevent)break;evnt(26070,18822,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEUPDATEHELPBOX_LONG_W2=_FUNC_IDEUPDATEHELPBOX_STRING_TITLESTR->len+ 4 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18823,"ide_methods.bas");}while(r); -S_56591:; -if ((-(*_FUNC_IDEUPDATEHELPBOX_LONG_W<*_FUNC_IDEUPDATEHELPBOX_LONG_W2))||new_error){ -if(qbevent){evnt(26070,18824,"ide_methods.bas");if(r)goto S_56591;} -do{ -*_FUNC_IDEUPDATEHELPBOX_LONG_W=*_FUNC_IDEUPDATEHELPBOX_LONG_W2; -if(!qbevent)break;evnt(26070,18824,"ide_methods.bas");}while(r); -} -S_56594:; -if ((-(*_FUNC_IDEUPDATEHELPBOX_LONG_W>(*__LONG_IDEWX- 4 )))||new_error){ -if(qbevent){evnt(26070,18825,"ide_methods.bas");if(r)goto S_56594;} -do{ -*_FUNC_IDEUPDATEHELPBOX_LONG_W=*__LONG_IDEWX- 4 ; -if(!qbevent)break;evnt(26070,18825,"ide_methods.bas");}while(r); -} -do{ -SUB_IDEPAR((void*)( ((char*)(_FUNC_IDEUPDATEHELPBOX_UDT_P)) + (0) ),&(pass6217= 60 ),&(pass6218= 6 ),qbs_new_txt_len("Update Help",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18826,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEUPDATEHELPBOX_LONG_I=*_FUNC_IDEUPDATEHELPBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,18828,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEUPDATEHELPBOX_LONG_BUTTONID=*_FUNC_IDEUPDATEHELPBOX_LONG_I; -if(!qbevent)break;evnt(26070,18829,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEUPDATEHELPBOX_LONG_I)-_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[4],_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[5]))*89+36))= 3 ; -if(!qbevent)break;evnt(26070,18830,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEUPDATEHELPBOX_LONG_I)-_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[4],_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[5]))*89+24))= 6 ; -if(!qbevent)break;evnt(26070,18831,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEUPDATEHELPBOX_LONG_I)-_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[4],_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(qbs_new_txt_len("#Cancel",7)); -if(!qbevent)break;evnt(26070,18832,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEUPDATEHELPBOX_LONG_I)-_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[4],_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[5]))*89+48))= 1 ; -if(!qbevent)break;evnt(26070,18833,"ide_methods.bas");}while(r); -S_56604:; -fornext_value6220= 1 ; -fornext_finalvalue6220= 100 ; -fornext_step6220= 1 ; -if (fornext_step6220<0) fornext_step_negative6220=1; else fornext_step_negative6220=0; -if (new_error) goto fornext_error6220; -goto fornext_entrylabel6220; -while(1){ -fornext_value6220=fornext_step6220+(*_FUNC_IDEUPDATEHELPBOX_LONG_I); -fornext_entrylabel6220: -*_FUNC_IDEUPDATEHELPBOX_LONG_I=fornext_value6220; -if (fornext_step_negative6220){ -if (fornext_value6220fornext_finalvalue6220) break; -} -fornext_error6220:; -if(qbevent){evnt(26070,18837,"ide_methods.bas");if(r)goto S_56604;} -do{ -memcpy(((char*)_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEUPDATEHELPBOX_LONG_I)-_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[4],_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[5]))*89)+ 0,((char*)_FUNC_IDEUPDATEHELPBOX_UDT_P)+(0)+ 0, 20); -if(!qbevent)break;evnt(26070,18837,"ide_methods.bas");}while(r); -fornext_continue_6219:; -} -fornext_exit_6219:; -LABEL_STARTMAINLOOP:; -if(qbevent){evnt(26070,18840,"ide_methods.bas");r=0;} -S_56607:; -do{ -if(qbevent){evnt(26070,18841,"ide_methods.bas");if(r)goto S_56607;} -S_56608:; -if ((-(*__LONG_HELP_RECACHING== 2 ))||new_error){ -if(qbevent){evnt(26070,18842,"ide_methods.bas");if(r)goto S_56608;} -do{ -goto LABEL_UPDATEROUTINE; -if(!qbevent)break;evnt(26070,18842,"ide_methods.bas");}while(r); -} -do{ -SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDEUPDATEHELPBOX_UDT_P)) + (0) )); -if(!qbevent)break;evnt(26070,18845,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEUPDATEHELPBOX_LONG_F= 1 ; -if(!qbevent)break;evnt(26070,18846,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEUPDATEHELPBOX_LONG_CX= 0 ; -if(!qbevent)break;evnt(26070,18846,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEUPDATEHELPBOX_LONG_CY= 0 ; -if(!qbevent)break;evnt(26070,18846,"ide_methods.bas");}while(r); -S_56615:; -fornext_value6223= 1 ; -fornext_finalvalue6223= 100 ; -fornext_step6223= 1 ; -if (fornext_step6223<0) fornext_step_negative6223=1; else fornext_step_negative6223=0; -if (new_error) goto fornext_error6223; -goto fornext_entrylabel6223; -while(1){ -fornext_value6223=fornext_step6223+(*_FUNC_IDEUPDATEHELPBOX_LONG_I); -fornext_entrylabel6223: -*_FUNC_IDEUPDATEHELPBOX_LONG_I=fornext_value6223; -if (fornext_step_negative6223){ -if (fornext_value6223fornext_finalvalue6223) break; -} -fornext_error6223:; -if(qbevent){evnt(26070,18847,"ide_methods.bas");if(r)goto S_56615;} -S_56616:; -if ((*(int32*)(((char*)_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEUPDATEHELPBOX_LONG_I)-_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[4],_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[5]))*89+36)))||new_error){ -if(qbevent){evnt(26070,18848,"ide_methods.bas");if(r)goto S_56616;} -do{ -*(int32*)(((char*)_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEUPDATEHELPBOX_LONG_I)-_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[4],_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[5]))*89+60))=*_FUNC_IDEUPDATEHELPBOX_LONG_FOCUS-*_FUNC_IDEUPDATEHELPBOX_LONG_F; -if(!qbevent)break;evnt(26070,18851,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEUPDATEHELPBOX_LONG_I)-_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[4],_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[5]))*89+52))= 0 ; -if(!qbevent)break;evnt(26070,18852,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEUPDATEHELPBOX_LONG_I)-_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[4],_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[5]))*89+56))= 0 ; -if(!qbevent)break;evnt(26070,18852,"ide_methods.bas");}while(r); -do{ -SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEUPDATEHELPBOX_LONG_I)-_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[4],_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDEUPDATEHELPBOX_LONG_F); -if(!qbevent)break;evnt(26070,18853,"ide_methods.bas");}while(r); -S_56621:; -if ((*(int32*)(((char*)_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEUPDATEHELPBOX_LONG_I)-_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[4],_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[5]))*89+52)))||new_error){ -if(qbevent){evnt(26070,18854,"ide_methods.bas");if(r)goto S_56621;} -do{ -*_FUNC_IDEUPDATEHELPBOX_LONG_CX=*(int32*)(((char*)_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEUPDATEHELPBOX_LONG_I)-_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[4],_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[5]))*89+52)); -if(!qbevent)break;evnt(26070,18854,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEUPDATEHELPBOX_LONG_CY=*(int32*)(((char*)_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEUPDATEHELPBOX_LONG_I)-_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[4],_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[5]))*89+56)); -if(!qbevent)break;evnt(26070,18854,"ide_methods.bas");}while(r); -} -} -fornext_continue_6222:; -} -fornext_exit_6222:; -do{ -*_FUNC_IDEUPDATEHELPBOX_LONG_LASTFOCUS=*_FUNC_IDEUPDATEHELPBOX_LONG_F- 1 ; -if(!qbevent)break;evnt(26070,18857,"ide_methods.bas");}while(r); -S_56628:; -if(qbevent){evnt(26070,18862,"ide_methods.bas");if(r)goto S_56628;} -S_56629:; -if (((*_FUNC_IDEUPDATEHELPBOX_LONG_UPDATESTEP==( 1 )))||new_error){ -if(qbevent){evnt(26070,18863,"ide_methods.bas");if(r)goto S_56629;} -do{ -tmp_long=array_check(( 1 )-_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[4],_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[0]))[tmp_long])),qbs_new_txt_len("Preparing help update...",24)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18864,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check(( 2 )-_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[4],_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[0]))[tmp_long])),qbs_new_txt_len("Generating list of cached content...",36)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18865,"ide_methods.bas");}while(r); -sc_ec_419_end:; -goto sc_6224_end; -} -S_56632:; -if (((*_FUNC_IDEUPDATEHELPBOX_LONG_UPDATESTEP==( 2 )))||new_error){ -if(qbevent){evnt(26070,18866,"ide_methods.bas");if(r)goto S_56632;} -do{ -tmp_long=array_check(( 2 )-_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[4],_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[0]))[tmp_long])),qbs_new_txt_len("Adding core help pages to list...",33)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18867,"ide_methods.bas");}while(r); -sc_ec_420_end:; -goto sc_6224_end; -} -S_56634:; -if (((*_FUNC_IDEUPDATEHELPBOX_LONG_UPDATESTEP==( 3 )))||new_error){ -if(qbevent){evnt(26070,18868,"ide_methods.bas");if(r)goto S_56634;} -do{ -tmp_long=array_check(( 2 )-_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[4],_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[0]))[tmp_long])),qbs_new_txt_len("Regenerating keyword list...",28)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18869,"ide_methods.bas");}while(r); -sc_ec_421_end:; -goto sc_6224_end; -} -S_56636:; -if (((*_FUNC_IDEUPDATEHELPBOX_LONG_UPDATESTEP==( 4 )))||new_error){ -if(qbevent){evnt(26070,18870,"ide_methods.bas");if(r)goto S_56636;} -do{ -tmp_long=array_check(( 2 )-_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[4],_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[0]))[tmp_long])),qbs_new_txt_len("Building download queue...",26)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18871,"ide_methods.bas");}while(r); -sc_ec_422_end:; -goto sc_6224_end; -} -S_56638:; -if (((*_FUNC_IDEUPDATEHELPBOX_LONG_UPDATESTEP==( 5 )))||new_error){ -if(qbevent){evnt(26070,18872,"ide_methods.bas");if(r)goto S_56638;} -do{ -tmp_long=array_check(( 1 )-_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[4],_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[0]))[tmp_long])),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Updating help content file ",27),FUNC_STR2(_FUNC_IDEUPDATEHELPBOX_LONG_N)),qbs_new_txt_len("/",1)),FUNC_STR2(_FUNC_IDEUPDATEHELPBOX_LONG_C)),qbs_new_txt_len("...",3))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18873,"ide_methods.bas");}while(r); -sc_ec_423_end:; -goto sc_6224_end; -} -sc_6224_end:; -S_56641:; -fornext_value6226= 1 ; -fornext_finalvalue6226=*_FUNC_IDEUPDATEHELPBOX_LONG_MESSAGELINES; -fornext_step6226= 1 ; -if (fornext_step6226<0) fornext_step_negative6226=1; else fornext_step_negative6226=0; -if (new_error) goto fornext_error6226; -goto fornext_entrylabel6226; -while(1){ -fornext_value6226=fornext_step6226+(*_FUNC_IDEUPDATEHELPBOX_LONG_I); -fornext_entrylabel6226: -*_FUNC_IDEUPDATEHELPBOX_LONG_I=fornext_value6226; -if (fornext_step_negative6226){ -if (fornext_value6226fornext_finalvalue6226) break; -} -fornext_error6226:; -if(qbevent){evnt(26070,18876,"ide_methods.bas");if(r)goto S_56641;} -S_56642:; -if ((-(*_FUNC_IDEUPDATEHELPBOX_LONG_I== 1 ))||new_error){ -if(qbevent){evnt(26070,18877,"ide_methods.bas");if(r)goto S_56642;} -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,18877,"ide_methods.bas");}while(r); -}else{ -do{ -qbg_sub_color( 2 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,18877,"ide_methods.bas");}while(r); -} -S_56647:; -if ((qbs_cleanup(qbs_tmp_base,-((((qbs*)(((uint64*)(_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[0]))[array_check((*_FUNC_IDEUPDATEHELPBOX_LONG_I)-_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[4],_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[5])]))->len)>(*(int32*)(((char*)_FUNC_IDEUPDATEHELPBOX_UDT_P)+(8))- 2 ))))||new_error){ -if(qbevent){evnt(26070,18878,"ide_methods.bas");if(r)goto S_56647;} -do{ -tmp_long=array_check((*_FUNC_IDEUPDATEHELPBOX_LONG_I)-_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[4],_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[0]))[tmp_long])),qbs_add(qbs_left(((qbs*)(((uint64*)(_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[0]))[array_check((*_FUNC_IDEUPDATEHELPBOX_LONG_I)-_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[4],_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[5])])),*(int32*)(((char*)_FUNC_IDEUPDATEHELPBOX_UDT_P)+(8))- 5 ),func_string( 3 , 250 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18879,"ide_methods.bas");}while(r); -} -do{ -sub__printstring(*(int32*)(((char*)_FUNC_IDEUPDATEHELPBOX_UDT_P)+(0))+((*(int32*)(((char*)_FUNC_IDEUPDATEHELPBOX_UDT_P)+(8))/ 2 )-(((qbs*)(((uint64*)(_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[0]))[array_check((*_FUNC_IDEUPDATEHELPBOX_LONG_I)-_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[4],_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[5])]))->len/ 2 ))+ 1 ,*(int32*)(((char*)_FUNC_IDEUPDATEHELPBOX_UDT_P)+(4))+ 1 +*_FUNC_IDEUPDATEHELPBOX_LONG_I,((qbs*)(((uint64*)(_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[0]))[array_check((*_FUNC_IDEUPDATEHELPBOX_LONG_I)-_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[4],_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[5])])),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18881,"ide_methods.bas");}while(r); -fornext_continue_6225:; -} -fornext_exit_6225:; -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,18884,"ide_methods.bas");}while(r); -S_56653:; -if ((-(*_FUNC_IDEUPDATEHELPBOX_LONG_UPDATESTEP== 5 ))||new_error){ -if(qbevent){evnt(26070,18885,"ide_methods.bas");if(r)goto S_56653;} -do{ -*_FUNC_IDEUPDATEHELPBOX_LONG_MAXPROGRESSWIDTH= 52 ; -if(!qbevent)break;evnt(26070,18886,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEUPDATEHELPBOX_LONG_PERCENTAGE=qbr(floor(*_FUNC_IDEUPDATEHELPBOX_LONG_N/ ((long double)(*_FUNC_IDEUPDATEHELPBOX_LONG_C))* 100 )); -if(!qbevent)break;evnt(26070,18887,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEUPDATEHELPBOX_LONG_PERCENTAGECHARS=qbr(floor(*_FUNC_IDEUPDATEHELPBOX_LONG_MAXPROGRESSWIDTH**_FUNC_IDEUPDATEHELPBOX_LONG_N/ ((long double)(*_FUNC_IDEUPDATEHELPBOX_LONG_C)))); -if(!qbevent)break;evnt(26070,18888,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEUPDATEHELPBOX_STRING_PERCENTAGEMSG,qbs_add(qbs_add(qbs_add(func_string(*_FUNC_IDEUPDATEHELPBOX_LONG_PERCENTAGECHARS, 219 ),func_string(*_FUNC_IDEUPDATEHELPBOX_LONG_MAXPROGRESSWIDTH-*_FUNC_IDEUPDATEHELPBOX_LONG_PERCENTAGECHARS, 176 )),qbs_str((int32)(*_FUNC_IDEUPDATEHELPBOX_LONG_PERCENTAGE))),qbs_new_txt_len("%",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18889,"ide_methods.bas");}while(r); -do{ -sub__printstring(*(int32*)(((char*)_FUNC_IDEUPDATEHELPBOX_UDT_P)+(0))+((*(int32*)(((char*)_FUNC_IDEUPDATEHELPBOX_UDT_P)+(8))/ 2 )-(_FUNC_IDEUPDATEHELPBOX_STRING_PERCENTAGEMSG->len/ 2 ))+ 1 ,*(int32*)(((char*)_FUNC_IDEUPDATEHELPBOX_UDT_P)+(4))+ 4 ,_FUNC_IDEUPDATEHELPBOX_STRING_PERCENTAGEMSG,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18890,"ide_methods.bas");}while(r); -S_56659:; -}else{ -if (-(*_FUNC_IDEUPDATEHELPBOX_LONG_UPDATESTEP== 6 )){ -if(qbevent){evnt(26070,18891,"ide_methods.bas");if(r)goto S_56659;} -do{ -qbs_set(_FUNC_IDEUPDATEHELPBOX_STRING_PERCENTAGEMSG,qbs_add(func_string(*_FUNC_IDEUPDATEHELPBOX_LONG_MAXPROGRESSWIDTH, 219 ),qbs_new_txt_len(" 100%",5))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18892,"ide_methods.bas");}while(r); -do{ -sub__printstring(*(int32*)(((char*)_FUNC_IDEUPDATEHELPBOX_UDT_P)+(0))+((*(int32*)(((char*)_FUNC_IDEUPDATEHELPBOX_UDT_P)+(8))/ 2 )-(_FUNC_IDEUPDATEHELPBOX_STRING_PERCENTAGEMSG->len/ 2 ))+ 1 ,*(int32*)(((char*)_FUNC_IDEUPDATEHELPBOX_UDT_P)+(4))+ 4 ,_FUNC_IDEUPDATEHELPBOX_STRING_PERCENTAGEMSG,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18893,"ide_methods.bas");}while(r); -} -} -do{ -sub_pcopy( 1 , 0 ); -if(!qbevent)break;evnt(26070,18898,"ide_methods.bas");}while(r); -S_56664:; -if ((*_FUNC_IDEUPDATEHELPBOX_LONG_CX)||new_error){ -if(qbevent){evnt(26070,18899,"ide_methods.bas");if(r)goto S_56664;} -do{ -qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,18899,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*_FUNC_IDEUPDATEHELPBOX_LONG_CY,*_FUNC_IDEUPDATEHELPBOX_LONG_CX, 1 ,NULL,NULL,7); -if(!qbevent)break;evnt(26070,18899,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,18899,"ide_methods.bas");}while(r); -} -do{ -SUB_GETINPUT(); -if(!qbevent)break;evnt(26070,18902,"ide_methods.bas");}while(r); -S_56670:; -if ((*__LONG_MCLICK)||new_error){ -if(qbevent){evnt(26070,18903,"ide_methods.bas");if(r)goto S_56670;} -do{ -*_FUNC_IDEUPDATEHELPBOX_LONG_MOUSEDOWN= 1 ; -if(!qbevent)break;evnt(26070,18903,"ide_methods.bas");}while(r); -} -S_56673:; -if ((*__LONG_MRELEASE)||new_error){ -if(qbevent){evnt(26070,18904,"ide_methods.bas");if(r)goto S_56673;} -do{ -*_FUNC_IDEUPDATEHELPBOX_LONG_MOUSEUP= 1 ; -if(!qbevent)break;evnt(26070,18904,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEUPDATEHELPBOX_LONG_ALT=*__LONG_KALT; -if(!qbevent)break;evnt(26070,18905,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEUPDATEHELPBOX_LONG_OLDALT=*_FUNC_IDEUPDATEHELPBOX_LONG_ALT; -if(!qbevent)break;evnt(26070,18906,"ide_methods.bas");}while(r); -S_56678:; -if ((*_FUNC_IDEUPDATEHELPBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(26070,18908,"ide_methods.bas");if(r)goto S_56678;} -do{ -*__LONG_IDEHL= 1 ; -if(!qbevent)break;evnt(26070,18908,"ide_methods.bas");}while(r); -}else{ -do{ -*__LONG_IDEHL= 0 ; -if(!qbevent)break;evnt(26070,18908,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDEUPDATEHELPBOX_STRING_ALTLETTER,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18910,"ide_methods.bas");}while(r); -S_56684:; -if ((*_FUNC_IDEUPDATEHELPBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(26070,18911,"ide_methods.bas");if(r)goto S_56684;} -S_56685:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ -if(qbevent){evnt(26070,18912,"ide_methods.bas");if(r)goto S_56685;} -do{ -*_FUNC_IDEUPDATEHELPBOX_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18913,"ide_methods.bas");}while(r); -S_56687:; -if (((-(*_FUNC_IDEUPDATEHELPBOX_LONG_K>= 65 ))&(-(*_FUNC_IDEUPDATEHELPBOX_LONG_K<= 90 )))||new_error){ -if(qbevent){evnt(26070,18914,"ide_methods.bas");if(r)goto S_56687;} -do{ -qbs_set(_FUNC_IDEUPDATEHELPBOX_STRING_ALTLETTER,func_chr(*_FUNC_IDEUPDATEHELPBOX_LONG_K)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18914,"ide_methods.bas");}while(r); -} -} -} -do{ -qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,18917,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); -if(!qbevent)break;evnt(26070,18917,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,18917,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEUPDATEHELPBOX_LONG_INFO= 0 ; -if(!qbevent)break;evnt(26070,18921,"ide_methods.bas");}while(r); -S_56696:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("C",1))))||new_error){ -if(qbevent){evnt(26070,18923,"ide_methods.bas");if(r)goto S_56696;} -do{ -qbs_set(_FUNC_IDEUPDATEHELPBOX_STRING_ALTLETTER,qbs_ucase(__STRING_K)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18923,"ide_methods.bas");}while(r); -} -S_56699:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,18925,"ide_methods.bas");if(r)goto S_56699;} -do{ -qbs_set(__STRING_K,func_chr( 255 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18925,"ide_methods.bas");}while(r); -} -S_56702:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ -if(qbevent){evnt(26070,18926,"ide_methods.bas");if(r)goto S_56702;} -do{ -*_FUNC_IDEUPDATEHELPBOX_LONG_FOCUS=*_FUNC_IDEUPDATEHELPBOX_LONG_FOCUS+ 1 ; -if(!qbevent)break;evnt(26070,18926,"ide_methods.bas");}while(r); -} -S_56705:; -if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||new_error){ -if(qbevent){evnt(26070,18927,"ide_methods.bas");if(r)goto S_56705;} -do{ -*_FUNC_IDEUPDATEHELPBOX_LONG_FOCUS=*_FUNC_IDEUPDATEHELPBOX_LONG_FOCUS- 1 ; -if(!qbevent)break;evnt(26070,18927,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_K,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18927,"ide_methods.bas");}while(r); -} -S_56709:; -if ((-(*_FUNC_IDEUPDATEHELPBOX_LONG_FOCUS< 1 ))||new_error){ -if(qbevent){evnt(26070,18928,"ide_methods.bas");if(r)goto S_56709;} -do{ -*_FUNC_IDEUPDATEHELPBOX_LONG_FOCUS=*_FUNC_IDEUPDATEHELPBOX_LONG_LASTFOCUS; -if(!qbevent)break;evnt(26070,18928,"ide_methods.bas");}while(r); -} -S_56712:; -if ((-(*_FUNC_IDEUPDATEHELPBOX_LONG_FOCUS>*_FUNC_IDEUPDATEHELPBOX_LONG_LASTFOCUS))||new_error){ -if(qbevent){evnt(26070,18929,"ide_methods.bas");if(r)goto S_56712;} -do{ -*_FUNC_IDEUPDATEHELPBOX_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(26070,18929,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEUPDATEHELPBOX_LONG_F= 1 ; -if(!qbevent)break;evnt(26070,18930,"ide_methods.bas");}while(r); -S_56716:; -fornext_value6233= 1 ; -fornext_finalvalue6233= 100 ; -fornext_step6233= 1 ; -if (fornext_step6233<0) fornext_step_negative6233=1; else fornext_step_negative6233=0; -if (new_error) goto fornext_error6233; -goto fornext_entrylabel6233; -while(1){ -fornext_value6233=fornext_step6233+(*_FUNC_IDEUPDATEHELPBOX_LONG_I); -fornext_entrylabel6233: -*_FUNC_IDEUPDATEHELPBOX_LONG_I=fornext_value6233; -if (fornext_step_negative6233){ -if (fornext_value6233fornext_finalvalue6233) break; -} -fornext_error6233:; -if(qbevent){evnt(26070,18931,"ide_methods.bas");if(r)goto S_56716;} -do{ -*_FUNC_IDEUPDATEHELPBOX_LONG_T=*(int32*)(((char*)_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEUPDATEHELPBOX_LONG_I)-_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[4],_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[5]))*89+36)); -if(!qbevent)break;evnt(26070,18932,"ide_methods.bas");}while(r); -S_56718:; -if ((*_FUNC_IDEUPDATEHELPBOX_LONG_T)||new_error){ -if(qbevent){evnt(26070,18933,"ide_methods.bas");if(r)goto S_56718;} -do{ -*_FUNC_IDEUPDATEHELPBOX_LONG_FOCUSOFFSET=*_FUNC_IDEUPDATEHELPBOX_LONG_FOCUS-*_FUNC_IDEUPDATEHELPBOX_LONG_F; -if(!qbevent)break;evnt(26070,18934,"ide_methods.bas");}while(r); -do{ -SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEUPDATEHELPBOX_LONG_I)-_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[4],_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDEUPDATEHELPBOX_LONG_FOCUS,_FUNC_IDEUPDATEHELPBOX_LONG_F,_FUNC_IDEUPDATEHELPBOX_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDEUPDATEHELPBOX_STRING_ALTLETTER,__LONG_MB,_FUNC_IDEUPDATEHELPBOX_LONG_MOUSEDOWN,_FUNC_IDEUPDATEHELPBOX_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDEUPDATEHELPBOX_LONG_INFO,__LONG_MWHEEL); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18935,"ide_methods.bas");}while(r); -} -fornext_continue_6232:; -} -fornext_exit_6232:; -S_56723:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 27 )))|(qbs_equal(__STRING_K,func_chr( 13 )))|((-(*_FUNC_IDEUPDATEHELPBOX_LONG_INFO!= 0 )))))||new_error){ -if(qbevent){evnt(26070,18941,"ide_methods.bas");if(r)goto S_56723;} -S_56724:; -if ((-(*_FUNC_IDEUPDATEHELPBOX_LONG_UPDATESTEP< 6 ))||new_error){ -if(qbevent){evnt(26070,18942,"ide_methods.bas");if(r)goto S_56724;} -do{ -qbs_set(_FUNC_IDEUPDATEHELPBOX_STRING_Q,FUNC_IDEYESNOBOX(qbs_new_txt_len("",0),qbs_new_txt_len("Cancel download?",16))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18942,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_IDEUPDATEHELPBOX_STRING_Q,qbs_new_txt_len("Y",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18942,"ide_methods.bas");}while(r); -} -S_56729:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEUPDATEHELPBOX_STRING_Q,qbs_new_txt_len("Y",1))))||new_error){ -if(qbevent){evnt(26070,18943,"ide_methods.bas");if(r)goto S_56729;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,18943,"ide_methods.bas");}while(r); -} -} -LABEL_UPDATEROUTINE:; -if(qbevent){evnt(26070,18947,"ide_methods.bas");r=0;} -S_56733:; -if(qbevent){evnt(26070,18949,"ide_methods.bas");if(r)goto S_56733;} -S_56734:; -if (((*_FUNC_IDEUPDATEHELPBOX_LONG_UPDATESTEP==( 1 )))||new_error){ -if(qbevent){evnt(26070,18950,"ide_methods.bas");if(r)goto S_56734;} -do{ -*_FUNC_IDEUPDATEHELPBOX_DOUBLE_ST=func_timer( 0.001E+0 ,0|1); -if(!qbevent)break;evnt(26070,18952,"ide_methods.bas");}while(r); -S_56736:; -if ((-(*__LONG_HELP_RECACHING< 2 ))||new_error){ -if(qbevent){evnt(26070,18953,"ide_methods.bas");if(r)goto S_56736;} -do{ -qbs_set(_FUNC_IDEUPDATEHELPBOX_STRING_F,qbs_add(qbs_add(func_chr( 0 ),FUNC_IDEZFILELIST(qbs_new_txt_len("internal/help",13),&(pass6235= 2 ),qbs_new_txt_len("*.txt",5))),func_chr( 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18954,"ide_methods.bas");}while(r); -S_56738:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDEUPDATEHELPBOX_STRING_F->len== 2 )))||new_error){ -if(qbevent){evnt(26070,18955,"ide_methods.bas");if(r)goto S_56738;} -do{ -qbs_set(_FUNC_IDEUPDATEHELPBOX_STRING_F,func_chr( 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18955,"ide_methods.bas");}while(r); -} -}else{ -do{ -qbs_set(_FUNC_IDEUPDATEHELPBOX_STRING_F,func_chr( 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18957,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEUPDATEHELPBOX_DOUBLE_ET=func_timer( 0.001E+0 ,0|1)-*_FUNC_IDEUPDATEHELPBOX_DOUBLE_ST; -if(!qbevent)break;evnt(26070,18959,"ide_methods.bas");}while(r); -S_56745:; -if ((-(*_FUNC_IDEUPDATEHELPBOX_DOUBLE_ET< 0 ))||new_error){ -if(qbevent){evnt(26070,18959,"ide_methods.bas");if(r)goto S_56745;} -do{ -*_FUNC_IDEUPDATEHELPBOX_DOUBLE_ET=*_FUNC_IDEUPDATEHELPBOX_DOUBLE_ET+ 86400 ; -if(!qbevent)break;evnt(26070,18959,"ide_methods.bas");}while(r); -} -S_56748:; -if ((-(( 1.25E+0 -*_FUNC_IDEUPDATEHELPBOX_DOUBLE_ET)>( 0 )))||new_error){ -if(qbevent){evnt(26070,18960,"ide_methods.bas");if(r)goto S_56748;} -do{ -sub__delay( 1.25E+0 -*_FUNC_IDEUPDATEHELPBOX_DOUBLE_ET); -if(!qbevent)break;evnt(26070,18960,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEUPDATEHELPBOX_LONG_UPDATESTEP=*_FUNC_IDEUPDATEHELPBOX_LONG_UPDATESTEP+ 1 ; -if(!qbevent)break;evnt(26070,18961,"ide_methods.bas");}while(r); -sc_ec_424_end:; -goto sc_6234_end; -} -S_56752:; -if (((*_FUNC_IDEUPDATEHELPBOX_LONG_UPDATESTEP==( 2 )))||new_error){ -if(qbevent){evnt(26070,18962,"ide_methods.bas");if(r)goto S_56752;} -do{ -*_FUNC_IDEUPDATEHELPBOX_DOUBLE_ST=func_timer( 0.001E+0 ,0|1); -if(!qbevent)break;evnt(26070,18964,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEUPDATEHELPBOX_STRING_PAGENAME2,qbs_new_txt_len("QB64_FAQ.txt",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18965,"ide_methods.bas");}while(r); -S_56755:; -if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_FUNC_IDEUPDATEHELPBOX_STRING_F,qbs_add(qbs_add(func_chr( 0 ),_FUNC_IDEUPDATEHELPBOX_STRING_PAGENAME2),func_chr( 0 )),0)== 0 )))||new_error){ -if(qbevent){evnt(26070,18966,"ide_methods.bas");if(r)goto S_56755;} -do{ -qbs_set(_FUNC_IDEUPDATEHELPBOX_STRING_F,qbs_add(qbs_add(func_chr( 0 ),_FUNC_IDEUPDATEHELPBOX_STRING_PAGENAME2),_FUNC_IDEUPDATEHELPBOX_STRING_F)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18966,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDEUPDATEHELPBOX_STRING_PAGENAME2,qbs_new_txt_len("QB64_Help_Menu.txt",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18967,"ide_methods.bas");}while(r); -S_56759:; -if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_FUNC_IDEUPDATEHELPBOX_STRING_F,qbs_add(qbs_add(func_chr( 0 ),_FUNC_IDEUPDATEHELPBOX_STRING_PAGENAME2),func_chr( 0 )),0)== 0 )))||new_error){ -if(qbevent){evnt(26070,18968,"ide_methods.bas");if(r)goto S_56759;} -do{ -qbs_set(_FUNC_IDEUPDATEHELPBOX_STRING_F,qbs_add(qbs_add(func_chr( 0 ),_FUNC_IDEUPDATEHELPBOX_STRING_PAGENAME2),_FUNC_IDEUPDATEHELPBOX_STRING_F)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18968,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDEUPDATEHELPBOX_STRING_PAGENAME2,qbs_new_txt_len("ERROR_Codes.txt",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18969,"ide_methods.bas");}while(r); -S_56763:; -if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_FUNC_IDEUPDATEHELPBOX_STRING_F,qbs_add(qbs_add(func_chr( 0 ),_FUNC_IDEUPDATEHELPBOX_STRING_PAGENAME2),func_chr( 0 )),0)== 0 )))||new_error){ -if(qbevent){evnt(26070,18970,"ide_methods.bas");if(r)goto S_56763;} -do{ -qbs_set(_FUNC_IDEUPDATEHELPBOX_STRING_F,qbs_add(qbs_add(func_chr( 0 ),_FUNC_IDEUPDATEHELPBOX_STRING_PAGENAME2),_FUNC_IDEUPDATEHELPBOX_STRING_F)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18970,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDEUPDATEHELPBOX_STRING_PAGENAME2,qbs_new_txt_len("Keywords_currently_not_supported_by_QB64.txt",44)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18971,"ide_methods.bas");}while(r); -S_56767:; -if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_FUNC_IDEUPDATEHELPBOX_STRING_F,qbs_add(qbs_add(func_chr( 0 ),_FUNC_IDEUPDATEHELPBOX_STRING_PAGENAME2),func_chr( 0 )),0)== 0 )))||new_error){ -if(qbevent){evnt(26070,18972,"ide_methods.bas");if(r)goto S_56767;} -do{ -qbs_set(_FUNC_IDEUPDATEHELPBOX_STRING_F,qbs_add(qbs_add(func_chr( 0 ),_FUNC_IDEUPDATEHELPBOX_STRING_PAGENAME2),_FUNC_IDEUPDATEHELPBOX_STRING_F)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18972,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDEUPDATEHELPBOX_STRING_PAGENAME2,qbs_new_txt_len("Keyword_Reference_-_By_usage.txt",32)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18973,"ide_methods.bas");}while(r); -S_56771:; -if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_FUNC_IDEUPDATEHELPBOX_STRING_F,qbs_add(qbs_add(func_chr( 0 ),_FUNC_IDEUPDATEHELPBOX_STRING_PAGENAME2),func_chr( 0 )),0)== 0 )))||new_error){ -if(qbevent){evnt(26070,18974,"ide_methods.bas");if(r)goto S_56771;} -do{ -qbs_set(_FUNC_IDEUPDATEHELPBOX_STRING_F,qbs_add(qbs_add(func_chr( 0 ),_FUNC_IDEUPDATEHELPBOX_STRING_PAGENAME2),_FUNC_IDEUPDATEHELPBOX_STRING_F)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18974,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEUPDATEHELPBOX_DOUBLE_ET=func_timer( 0.001E+0 ,0|1)-*_FUNC_IDEUPDATEHELPBOX_DOUBLE_ST; -if(!qbevent)break;evnt(26070,18975,"ide_methods.bas");}while(r); -S_56775:; -if ((-(*_FUNC_IDEUPDATEHELPBOX_DOUBLE_ET< 0 ))||new_error){ -if(qbevent){evnt(26070,18975,"ide_methods.bas");if(r)goto S_56775;} -do{ -*_FUNC_IDEUPDATEHELPBOX_DOUBLE_ET=*_FUNC_IDEUPDATEHELPBOX_DOUBLE_ET+ 86400 ; -if(!qbevent)break;evnt(26070,18975,"ide_methods.bas");}while(r); -} -S_56778:; -if ((-(( 1.25E+0 -*_FUNC_IDEUPDATEHELPBOX_DOUBLE_ET)>( 0 )))||new_error){ -if(qbevent){evnt(26070,18976,"ide_methods.bas");if(r)goto S_56778;} -do{ -sub__delay( 1.25E+0 -*_FUNC_IDEUPDATEHELPBOX_DOUBLE_ET); -if(!qbevent)break;evnt(26070,18976,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEUPDATEHELPBOX_LONG_UPDATESTEP=*_FUNC_IDEUPDATEHELPBOX_LONG_UPDATESTEP+ 1 ; -if(!qbevent)break;evnt(26070,18977,"ide_methods.bas");}while(r); -sc_ec_425_end:; -goto sc_6234_end; -} -S_56782:; -if (((*_FUNC_IDEUPDATEHELPBOX_LONG_UPDATESTEP==( 3 )))||new_error){ -if(qbevent){evnt(26070,18978,"ide_methods.bas");if(r)goto S_56782;} -do{ -*_FUNC_IDEUPDATEHELPBOX_DOUBLE_ST=func_timer( 0.001E+0 ,0|1); -if(!qbevent)break;evnt(26070,18980,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEUPDATEHELPBOX_STRING_A,FUNC_WIKI(qbs_new_txt_len("Keyword Reference - Alphabetical",32))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18981,"ide_methods.bas");}while(r); -S_56785:; -if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_FUNC_IDEUPDATEHELPBOX_STRING_A,qbs_new_txt_len("{{PageInternalError}}",21),0)> 0 )))||new_error){ -if(qbevent){evnt(26070,18982,"ide_methods.bas");if(r)goto S_56785;} -do{ -*_FUNC_IDEUPDATEHELPBOX_LONG_IDEUPDATEHELPBOX= 1 ; -if(!qbevent)break;evnt(26070,18982,"ide_methods.bas");}while(r); -do{ -goto dl_exit_6221; -if(!qbevent)break;evnt(26070,18982,"ide_methods.bas");}while(r); -} -do{ -SUB_WIKIPARSE(_FUNC_IDEUPDATEHELPBOX_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18983,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEUPDATEHELPBOX_DOUBLE_ET=func_timer( 0.001E+0 ,0|1)-*_FUNC_IDEUPDATEHELPBOX_DOUBLE_ST; -if(!qbevent)break;evnt(26070,18984,"ide_methods.bas");}while(r); -S_56791:; -if ((-(*_FUNC_IDEUPDATEHELPBOX_DOUBLE_ET< 0 ))||new_error){ -if(qbevent){evnt(26070,18984,"ide_methods.bas");if(r)goto S_56791;} -do{ -*_FUNC_IDEUPDATEHELPBOX_DOUBLE_ET=*_FUNC_IDEUPDATEHELPBOX_DOUBLE_ET+ 86400 ; -if(!qbevent)break;evnt(26070,18984,"ide_methods.bas");}while(r); -} -S_56794:; -if ((-(( 1.25E+0 -*_FUNC_IDEUPDATEHELPBOX_DOUBLE_ET)>( 0 )))||new_error){ -if(qbevent){evnt(26070,18985,"ide_methods.bas");if(r)goto S_56794;} -do{ -sub__delay( 1.25E+0 -*_FUNC_IDEUPDATEHELPBOX_DOUBLE_ET); -if(!qbevent)break;evnt(26070,18985,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEUPDATEHELPBOX_LONG_UPDATESTEP=*_FUNC_IDEUPDATEHELPBOX_LONG_UPDATESTEP+ 1 ; -if(!qbevent)break;evnt(26070,18986,"ide_methods.bas");}while(r); -sc_ec_426_end:; -goto sc_6234_end; -} -S_56798:; -if (((*_FUNC_IDEUPDATEHELPBOX_LONG_UPDATESTEP==( 4 )))||new_error){ -if(qbevent){evnt(26070,18987,"ide_methods.bas");if(r)goto S_56798;} -do{ -*_FUNC_IDEUPDATEHELPBOX_DOUBLE_ST=func_timer( 0.001E+0 ,0|1); -if(!qbevent)break;evnt(26070,18989,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEUPDATEHELPBOX_LONG_FH=func_freefile(); -if(!qbevent)break;evnt(26070,18990,"ide_methods.bas");}while(r); -do{ -sub_open(qbs_new_txt_len("internal\\help\\links.bin",23), 3 ,NULL,NULL,*_FUNC_IDEUPDATEHELPBOX_LONG_FH,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18991,"ide_methods.bas");}while(r); -S_56802:; -while((!(func_eof(*_FUNC_IDEUPDATEHELPBOX_LONG_FH)))||new_error){ -if(qbevent){evnt(26070,18992,"ide_methods.bas");if(r)goto S_56802;} -do{ -tmp_fileno=*_FUNC_IDEUPDATEHELPBOX_LONG_FH; -if (new_error) goto skip6238; -sub_file_line_input_string(tmp_fileno,_FUNC_IDEUPDATEHELPBOX_STRING_L); -if (new_error) goto skip6238; -skip6238: -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18993,"ide_methods.bas");}while(r); -S_56804:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDEUPDATEHELPBOX_STRING_L->len))||new_error){ -if(qbevent){evnt(26070,18994,"ide_methods.bas");if(r)goto S_56804;} -do{ -*_FUNC_IDEUPDATEHELPBOX_LONG_C=func_instr(NULL,_FUNC_IDEUPDATEHELPBOX_STRING_L,qbs_new_txt_len(",",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18995,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEUPDATEHELPBOX_STRING_L,func_mid(_FUNC_IDEUPDATEHELPBOX_STRING_L,*_FUNC_IDEUPDATEHELPBOX_LONG_C+ 1 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18995,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEUPDATEHELPBOX_LONG_C=func_instr(NULL,_FUNC_IDEUPDATEHELPBOX_STRING_L,qbs_new_txt_len("#",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18996,"ide_methods.bas");}while(r); -S_56808:; -if ((-(*_FUNC_IDEUPDATEHELPBOX_LONG_C> 0 ))||new_error){ -if(qbevent){evnt(26070,18996,"ide_methods.bas");if(r)goto S_56808;} -do{ -qbs_set(_FUNC_IDEUPDATEHELPBOX_STRING_L,qbs_left(_FUNC_IDEUPDATEHELPBOX_STRING_L,*_FUNC_IDEUPDATEHELPBOX_LONG_C- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18996,"ide_methods.bas");}while(r); -} -S_56811:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_HELP_RECACHING< 2 ))|(qbs_notequal(qbs_left(_FUNC_IDEUPDATEHELPBOX_STRING_L, 3 ),qbs_new_txt_len("_gl",3)))))||new_error){ -if(qbevent){evnt(26070,18997,"ide_methods.bas");if(r)goto S_56811;} -do{ -qbs_set(_FUNC_IDEUPDATEHELPBOX_STRING_PAGENAME2,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,18999,"ide_methods.bas");}while(r); -S_56813:; -fornext_value6241= 1 ; -fornext_finalvalue6241=_FUNC_IDEUPDATEHELPBOX_STRING_L->len; -fornext_step6241= 1 ; -if (fornext_step6241<0) fornext_step_negative6241=1; else fornext_step_negative6241=0; -if (new_error) goto fornext_error6241; -goto fornext_entrylabel6241; -while(1){ -fornext_value6241=fornext_step6241+(*_FUNC_IDEUPDATEHELPBOX_LONG_I); -fornext_entrylabel6241: -*_FUNC_IDEUPDATEHELPBOX_LONG_I=fornext_value6241; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative6241){ -if (fornext_value6241fornext_finalvalue6241) break; -} -fornext_error6241:; -if(qbevent){evnt(26070,19000,"ide_methods.bas");if(r)goto S_56813;} -do{ -*_FUNC_IDEUPDATEHELPBOX_LONG_C=qbs_asc(_FUNC_IDEUPDATEHELPBOX_STRING_L,*_FUNC_IDEUPDATEHELPBOX_LONG_I); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19001,"ide_methods.bas");}while(r); -S_56815:; -if(qbevent){evnt(26070,19002,"ide_methods.bas");if(r)goto S_56815;} -S_56816:; -if (((*_FUNC_IDEUPDATEHELPBOX_LONG_C==( 32 )))||new_error){ -if(qbevent){evnt(26070,19003,"ide_methods.bas");if(r)goto S_56816;} -do{ -qbs_set(_FUNC_IDEUPDATEHELPBOX_STRING_PAGENAME2,qbs_add(_FUNC_IDEUPDATEHELPBOX_STRING_PAGENAME2,qbs_new_txt_len("_",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19004,"ide_methods.bas");}while(r); -sc_ec_427_end:; -goto sc_6243_end; -} -S_56818:; -if (((*_FUNC_IDEUPDATEHELPBOX_LONG_C==( 34 ))||(*_FUNC_IDEUPDATEHELPBOX_LONG_C==( 36 ))||(*_FUNC_IDEUPDATEHELPBOX_LONG_C==( 38 ))||(*_FUNC_IDEUPDATEHELPBOX_LONG_C==( 42 ))||(*_FUNC_IDEUPDATEHELPBOX_LONG_C==( 43 ))||(*_FUNC_IDEUPDATEHELPBOX_LONG_C==( 47 ))||(*_FUNC_IDEUPDATEHELPBOX_LONG_C==( 58 ))||(*_FUNC_IDEUPDATEHELPBOX_LONG_C==( 60 ))||(*_FUNC_IDEUPDATEHELPBOX_LONG_C==( 62 ))||(*_FUNC_IDEUPDATEHELPBOX_LONG_C==( 63 ))||(*_FUNC_IDEUPDATEHELPBOX_LONG_C==( 92 ))||(*_FUNC_IDEUPDATEHELPBOX_LONG_C==( 124 )))||new_error){ -if(qbevent){evnt(26070,19005,"ide_methods.bas");if(r)goto S_56818;} -do{ -qbs_set(_FUNC_IDEUPDATEHELPBOX_STRING_PAGENAME2,qbs_add(qbs_add(_FUNC_IDEUPDATEHELPBOX_STRING_PAGENAME2,qbs_new_txt_len("%",1)),func_hex(*_FUNC_IDEUPDATEHELPBOX_LONG_C,8))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19006,"ide_methods.bas");}while(r); -sc_ec_428_end:; -goto sc_6243_end; -} -do{ -qbs_set(_FUNC_IDEUPDATEHELPBOX_STRING_PAGENAME2,qbs_add(_FUNC_IDEUPDATEHELPBOX_STRING_PAGENAME2,func_chr(*_FUNC_IDEUPDATEHELPBOX_LONG_C))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19008,"ide_methods.bas");}while(r); -sc_6243_end:; -fornext_continue_6240:; -} -fornext_exit_6240:; -do{ -qbs_set(_FUNC_IDEUPDATEHELPBOX_STRING_PAGENAME2,qbs_add(_FUNC_IDEUPDATEHELPBOX_STRING_PAGENAME2,qbs_new_txt_len(".txt",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19011,"ide_methods.bas");}while(r); -S_56825:; -if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_FUNC_IDEUPDATEHELPBOX_STRING_F,qbs_add(qbs_add(func_chr( 0 ),_FUNC_IDEUPDATEHELPBOX_STRING_PAGENAME2),func_chr( 0 )),0)== 0 )))||new_error){ -if(qbevent){evnt(26070,19012,"ide_methods.bas");if(r)goto S_56825;} -do{ -qbs_set(_FUNC_IDEUPDATEHELPBOX_STRING_F,qbs_add(qbs_add(_FUNC_IDEUPDATEHELPBOX_STRING_F,_FUNC_IDEUPDATEHELPBOX_STRING_PAGENAME2),func_chr( 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19012,"ide_methods.bas");}while(r); -} -} -} -dl_continue_6237:; -} -dl_exit_6237:; -do{ -sub_close(*_FUNC_IDEUPDATEHELPBOX_LONG_FH,1); -if(!qbevent)break;evnt(26070,19016,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEUPDATEHELPBOX_LONG_C= 0 ; -if(!qbevent)break;evnt(26070,19018,"ide_methods.bas");}while(r); -S_56833:; -fornext_value6245= 2 ; -fornext_finalvalue6245=_FUNC_IDEUPDATEHELPBOX_STRING_F->len; -fornext_step6245= 1 ; -if (fornext_step6245<0) fornext_step_negative6245=1; else fornext_step_negative6245=0; -if (new_error) goto fornext_error6245; -goto fornext_entrylabel6245; -while(1){ -fornext_value6245=fornext_step6245+(*_FUNC_IDEUPDATEHELPBOX_LONG_X); -fornext_entrylabel6245: -*_FUNC_IDEUPDATEHELPBOX_LONG_X=fornext_value6245; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative6245){ -if (fornext_value6245fornext_finalvalue6245) break; -} -fornext_error6245:; -if(qbevent){evnt(26070,19019,"ide_methods.bas");if(r)goto S_56833;} -S_56834:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_IDEUPDATEHELPBOX_STRING_F,*_FUNC_IDEUPDATEHELPBOX_LONG_X)== 0 )))||new_error){ -if(qbevent){evnt(26070,19020,"ide_methods.bas");if(r)goto S_56834;} -do{ -*_FUNC_IDEUPDATEHELPBOX_LONG_C=*_FUNC_IDEUPDATEHELPBOX_LONG_C+ 1 ; -if(!qbevent)break;evnt(26070,19020,"ide_methods.bas");}while(r); -} -fornext_continue_6244:; -} -fornext_exit_6244:; -do{ -qbs_set(_FUNC_IDEUPDATEHELPBOX_STRING_F,qbs_right(_FUNC_IDEUPDATEHELPBOX_STRING_F,_FUNC_IDEUPDATEHELPBOX_STRING_F->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19023,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEUPDATEHELPBOX_LONG_N= 0 ; -if(!qbevent)break;evnt(26070,19024,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check(( 2 )-_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[4],_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[0]))[tmp_long])),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19025,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEUPDATEHELPBOX_DOUBLE_ET=func_timer( 0.001E+0 ,0|1)-*_FUNC_IDEUPDATEHELPBOX_DOUBLE_ST; -if(!qbevent)break;evnt(26070,19026,"ide_methods.bas");}while(r); -S_56842:; -if ((-(*_FUNC_IDEUPDATEHELPBOX_DOUBLE_ET< 0 ))||new_error){ -if(qbevent){evnt(26070,19026,"ide_methods.bas");if(r)goto S_56842;} -do{ -*_FUNC_IDEUPDATEHELPBOX_DOUBLE_ET=*_FUNC_IDEUPDATEHELPBOX_DOUBLE_ET+ 86400 ; -if(!qbevent)break;evnt(26070,19026,"ide_methods.bas");}while(r); -} -S_56845:; -if ((-(( 1.25E+0 -*_FUNC_IDEUPDATEHELPBOX_DOUBLE_ET)>( 0 )))||new_error){ -if(qbevent){evnt(26070,19027,"ide_methods.bas");if(r)goto S_56845;} -do{ -sub__delay( 1.25E+0 -*_FUNC_IDEUPDATEHELPBOX_DOUBLE_ET); -if(!qbevent)break;evnt(26070,19027,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEUPDATEHELPBOX_LONG_UPDATESTEP=*_FUNC_IDEUPDATEHELPBOX_LONG_UPDATESTEP+ 1 ; -if(!qbevent)break;evnt(26070,19028,"ide_methods.bas");}while(r); -sc_ec_429_end:; -goto sc_6234_end; -} -S_56849:; -if (((*_FUNC_IDEUPDATEHELPBOX_LONG_UPDATESTEP==( 5 )))||new_error){ -if(qbevent){evnt(26070,19029,"ide_methods.bas");if(r)goto S_56849;} -S_56850:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDEUPDATEHELPBOX_STRING_F->len> 0 )))||new_error){ -if(qbevent){evnt(26070,19031,"ide_methods.bas");if(r)goto S_56850;} -do{ -*_FUNC_IDEUPDATEHELPBOX_LONG_X2=func_instr(NULL,_FUNC_IDEUPDATEHELPBOX_STRING_F,func_chr( 0 ),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19032,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEUPDATEHELPBOX_STRING_F2,qbs_left(_FUNC_IDEUPDATEHELPBOX_STRING_F,*_FUNC_IDEUPDATEHELPBOX_LONG_X2- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19033,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEUPDATEHELPBOX_STRING_F,func_mid(_FUNC_IDEUPDATEHELPBOX_STRING_F,*_FUNC_IDEUPDATEHELPBOX_LONG_X2+ 1 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19033,"ide_methods.bas");}while(r); -S_56854:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_FUNC_IDEUPDATEHELPBOX_STRING_F2, 4 ),qbs_new_txt_len(".txt",4))))||new_error){ -if(qbevent){evnt(26070,19034,"ide_methods.bas");if(r)goto S_56854;} -do{ -qbs_set(_FUNC_IDEUPDATEHELPBOX_STRING_F2,qbs_left(_FUNC_IDEUPDATEHELPBOX_STRING_F2,_FUNC_IDEUPDATEHELPBOX_STRING_F2->len- 4 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19035,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEUPDATEHELPBOX_LONG_N=*_FUNC_IDEUPDATEHELPBOX_LONG_N+ 1 ; -if(!qbevent)break;evnt(26070,19036,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check(( 2 )-_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[4],_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[0]))[tmp_long])),qbs_add(qbs_new_txt_len("Page: ",6),_FUNC_IDEUPDATEHELPBOX_STRING_F2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19037,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEUPDATEHELPBOX_STRING_IGNORE,FUNC_WIKI(_FUNC_IDEUPDATEHELPBOX_STRING_F2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19038,"ide_methods.bas");}while(r); -S_56859:; -if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_FUNC_IDEUPDATEHELPBOX_STRING_IGNORE,qbs_new_txt_len("{{PageInternalError}}",21),0)> 0 )))||new_error){ -if(qbevent){evnt(26070,19039,"ide_methods.bas");if(r)goto S_56859;} -do{ -*_FUNC_IDEUPDATEHELPBOX_LONG_IDEUPDATEHELPBOX= 1 ; -if(!qbevent)break;evnt(26070,19039,"ide_methods.bas");}while(r); -do{ -goto dl_exit_6221; -if(!qbevent)break;evnt(26070,19039,"ide_methods.bas");}while(r); -} -do{ -SUB_WIKIPARSE(_FUNC_IDEUPDATEHELPBOX_STRING_IGNORE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19040,"ide_methods.bas");}while(r); -} -}else{ -do{ -*_FUNC_IDEUPDATEHELPBOX_LONG_UPDATESTEP=*_FUNC_IDEUPDATEHELPBOX_LONG_UPDATESTEP+ 1 ; -if(!qbevent)break;evnt(26070,19043,"ide_methods.bas");}while(r); -} -sc_ec_430_end:; -goto sc_6234_end; -} -S_56868:; -if (((*_FUNC_IDEUPDATEHELPBOX_LONG_UPDATESTEP==( 6 )))||new_error){ -if(qbevent){evnt(26070,19045,"ide_methods.bas");if(r)goto S_56868;} -S_56869:; -if ((-(*__LONG_HELP_RECACHING== 2 ))||new_error){ -if(qbevent){evnt(26070,19046,"ide_methods.bas");if(r)goto S_56869;} -do{ -goto dl_exit_6221; -if(!qbevent)break;evnt(26070,19046,"ide_methods.bas");}while(r); -} -do{ -tmp_long=array_check(( 1 )-_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[4],_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[0]))[tmp_long])),qbs_new_txt_len("All pages updated.",18)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19047,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check(( 2 )-_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[4],_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[0]))[tmp_long])),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19048,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEUPDATEHELPBOX_LONG_BUTTONID)-_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[4],_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),qbs_new_txt_len("#Close",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19049,"ide_methods.bas");}while(r); -do{ -sub__limit( 20 ); -if(!qbevent)break;evnt(26070,19050,"ide_methods.bas");}while(r); -sc_ec_431_end:; -goto sc_6234_end; -} -sc_6234_end:; -do{ -*_FUNC_IDEUPDATEHELPBOX_LONG_MOUSEDOWN= 0 ; -if(!qbevent)break;evnt(26070,19054,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEUPDATEHELPBOX_LONG_MOUSEUP= 0 ; -if(!qbevent)break;evnt(26070,19055,"ide_methods.bas");}while(r); -dl_continue_6221:; -}while(1); -dl_exit_6221:; -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free257.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -return *_FUNC_IDEUPDATEHELPBOX_LONG_IDEUPDATEHELPBOX; -} -qbs* FUNC_IDEASCIIBOX(int32*_FUNC_IDEASCIIBOX_LONG_RELAUNCH){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data258.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -sub_pcopy( 0 , 2 ); -if(!qbevent)break;evnt(26070,19062,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 0 , 1 ); -if(!qbevent)break;evnt(26070,19063,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,19064,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEASCIIBOX_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(26070,19065,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(26070,19066,"ide_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26070,18819,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEUPDATEHELPBOX_LONG_UPDATESTEP= 1 ; +if(!qbevent)break;evnt(26070,18820,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEUPDATEHELPBOX_LONG_I= 0 ; +if(!qbevent)break;evnt(26070,18822,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEUPDATEHELPBOX_LONG_W2=_FUNC_IDEUPDATEHELPBOX_STRING_TITLESTR->len+ 4 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18823,"ide_methods.bas");}while(r); +S_56591:; +if ((-(*_FUNC_IDEUPDATEHELPBOX_LONG_W<*_FUNC_IDEUPDATEHELPBOX_LONG_W2))||new_error){ +if(qbevent){evnt(26070,18824,"ide_methods.bas");if(r)goto S_56591;} +do{ +*_FUNC_IDEUPDATEHELPBOX_LONG_W=*_FUNC_IDEUPDATEHELPBOX_LONG_W2; +if(!qbevent)break;evnt(26070,18824,"ide_methods.bas");}while(r); +} +S_56594:; +if ((-(*_FUNC_IDEUPDATEHELPBOX_LONG_W>(*__LONG_IDEWX- 4 )))||new_error){ +if(qbevent){evnt(26070,18825,"ide_methods.bas");if(r)goto S_56594;} +do{ +*_FUNC_IDEUPDATEHELPBOX_LONG_W=*__LONG_IDEWX- 4 ; +if(!qbevent)break;evnt(26070,18825,"ide_methods.bas");}while(r); +} +do{ +SUB_IDEPAR((void*)( ((char*)(_FUNC_IDEUPDATEHELPBOX_UDT_P)) + (0) ),&(pass6217= 60 ),&(pass6218= 6 ),qbs_new_txt_len("Update Help",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18826,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEUPDATEHELPBOX_LONG_I=*_FUNC_IDEUPDATEHELPBOX_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,18828,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEUPDATEHELPBOX_LONG_BUTTONID=*_FUNC_IDEUPDATEHELPBOX_LONG_I; +if(!qbevent)break;evnt(26070,18829,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEUPDATEHELPBOX_LONG_I)-_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[4],_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[5]))*89+36))= 3 ; +if(!qbevent)break;evnt(26070,18830,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEUPDATEHELPBOX_LONG_I)-_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[4],_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[5]))*89+24))= 6 ; +if(!qbevent)break;evnt(26070,18831,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEUPDATEHELPBOX_LONG_I)-_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[4],_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(qbs_new_txt_len("#Cancel",7)); +if(!qbevent)break;evnt(26070,18832,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEUPDATEHELPBOX_LONG_I)-_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[4],_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[5]))*89+48))= 1 ; +if(!qbevent)break;evnt(26070,18833,"ide_methods.bas");}while(r); +S_56604:; +fornext_value6220= 1 ; +fornext_finalvalue6220= 100 ; +fornext_step6220= 1 ; +if (fornext_step6220<0) fornext_step_negative6220=1; else fornext_step_negative6220=0; +if (new_error) goto fornext_error6220; +goto fornext_entrylabel6220; +while(1){ +fornext_value6220=fornext_step6220+(*_FUNC_IDEUPDATEHELPBOX_LONG_I); +fornext_entrylabel6220: +*_FUNC_IDEUPDATEHELPBOX_LONG_I=fornext_value6220; +if (fornext_step_negative6220){ +if (fornext_value6220fornext_finalvalue6220) break; +} +fornext_error6220:; +if(qbevent){evnt(26070,18837,"ide_methods.bas");if(r)goto S_56604;} +do{ +memcpy(((char*)_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEUPDATEHELPBOX_LONG_I)-_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[4],_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[5]))*89)+ 0,((char*)_FUNC_IDEUPDATEHELPBOX_UDT_P)+(0)+ 0, 20); +if(!qbevent)break;evnt(26070,18837,"ide_methods.bas");}while(r); +fornext_continue_6219:; +} +fornext_exit_6219:; +LABEL_STARTMAINLOOP:; +if(qbevent){evnt(26070,18840,"ide_methods.bas");r=0;} +S_56607:; +do{ +if(qbevent){evnt(26070,18841,"ide_methods.bas");if(r)goto S_56607;} +S_56608:; +if ((-(*__LONG_HELP_RECACHING== 2 ))||new_error){ +if(qbevent){evnt(26070,18842,"ide_methods.bas");if(r)goto S_56608;} +do{ +goto LABEL_UPDATEROUTINE; +if(!qbevent)break;evnt(26070,18842,"ide_methods.bas");}while(r); +} +do{ +SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDEUPDATEHELPBOX_UDT_P)) + (0) )); +if(!qbevent)break;evnt(26070,18845,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEUPDATEHELPBOX_LONG_F= 1 ; +if(!qbevent)break;evnt(26070,18846,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEUPDATEHELPBOX_LONG_CX= 0 ; +if(!qbevent)break;evnt(26070,18846,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEUPDATEHELPBOX_LONG_CY= 0 ; +if(!qbevent)break;evnt(26070,18846,"ide_methods.bas");}while(r); +S_56615:; +fornext_value6223= 1 ; +fornext_finalvalue6223= 100 ; +fornext_step6223= 1 ; +if (fornext_step6223<0) fornext_step_negative6223=1; else fornext_step_negative6223=0; +if (new_error) goto fornext_error6223; +goto fornext_entrylabel6223; +while(1){ +fornext_value6223=fornext_step6223+(*_FUNC_IDEUPDATEHELPBOX_LONG_I); +fornext_entrylabel6223: +*_FUNC_IDEUPDATEHELPBOX_LONG_I=fornext_value6223; +if (fornext_step_negative6223){ +if (fornext_value6223fornext_finalvalue6223) break; +} +fornext_error6223:; +if(qbevent){evnt(26070,18847,"ide_methods.bas");if(r)goto S_56615;} +S_56616:; +if ((*(int32*)(((char*)_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEUPDATEHELPBOX_LONG_I)-_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[4],_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[5]))*89+36)))||new_error){ +if(qbevent){evnt(26070,18848,"ide_methods.bas");if(r)goto S_56616;} +do{ +*(int32*)(((char*)_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEUPDATEHELPBOX_LONG_I)-_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[4],_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[5]))*89+60))=*_FUNC_IDEUPDATEHELPBOX_LONG_FOCUS-*_FUNC_IDEUPDATEHELPBOX_LONG_F; +if(!qbevent)break;evnt(26070,18851,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEUPDATEHELPBOX_LONG_I)-_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[4],_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[5]))*89+52))= 0 ; +if(!qbevent)break;evnt(26070,18852,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEUPDATEHELPBOX_LONG_I)-_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[4],_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[5]))*89+56))= 0 ; +if(!qbevent)break;evnt(26070,18852,"ide_methods.bas");}while(r); +do{ +SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEUPDATEHELPBOX_LONG_I)-_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[4],_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDEUPDATEHELPBOX_LONG_F); +if(!qbevent)break;evnt(26070,18853,"ide_methods.bas");}while(r); +S_56621:; +if ((*(int32*)(((char*)_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEUPDATEHELPBOX_LONG_I)-_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[4],_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[5]))*89+52)))||new_error){ +if(qbevent){evnt(26070,18854,"ide_methods.bas");if(r)goto S_56621;} +do{ +*_FUNC_IDEUPDATEHELPBOX_LONG_CX=*(int32*)(((char*)_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEUPDATEHELPBOX_LONG_I)-_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[4],_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[5]))*89+52)); +if(!qbevent)break;evnt(26070,18854,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEUPDATEHELPBOX_LONG_CY=*(int32*)(((char*)_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEUPDATEHELPBOX_LONG_I)-_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[4],_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[5]))*89+56)); +if(!qbevent)break;evnt(26070,18854,"ide_methods.bas");}while(r); +} +} +fornext_continue_6222:; +} +fornext_exit_6222:; +do{ +*_FUNC_IDEUPDATEHELPBOX_LONG_LASTFOCUS=*_FUNC_IDEUPDATEHELPBOX_LONG_F- 1 ; +if(!qbevent)break;evnt(26070,18857,"ide_methods.bas");}while(r); +S_56628:; +if(qbevent){evnt(26070,18862,"ide_methods.bas");if(r)goto S_56628;} +S_56629:; +if (((*_FUNC_IDEUPDATEHELPBOX_LONG_UPDATESTEP==( 1 )))||new_error){ +if(qbevent){evnt(26070,18863,"ide_methods.bas");if(r)goto S_56629;} +do{ +tmp_long=array_check(( 1 )-_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[4],_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[0]))[tmp_long])),qbs_new_txt_len("Preparing help update...",24)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18864,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check(( 2 )-_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[4],_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[0]))[tmp_long])),qbs_new_txt_len("Generating list of cached content...",36)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18865,"ide_methods.bas");}while(r); +sc_ec_419_end:; +goto sc_6224_end; +} +S_56632:; +if (((*_FUNC_IDEUPDATEHELPBOX_LONG_UPDATESTEP==( 2 )))||new_error){ +if(qbevent){evnt(26070,18866,"ide_methods.bas");if(r)goto S_56632;} +do{ +tmp_long=array_check(( 2 )-_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[4],_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[0]))[tmp_long])),qbs_new_txt_len("Adding core help pages to list...",33)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18867,"ide_methods.bas");}while(r); +sc_ec_420_end:; +goto sc_6224_end; +} +S_56634:; +if (((*_FUNC_IDEUPDATEHELPBOX_LONG_UPDATESTEP==( 3 )))||new_error){ +if(qbevent){evnt(26070,18868,"ide_methods.bas");if(r)goto S_56634;} +do{ +tmp_long=array_check(( 2 )-_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[4],_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[0]))[tmp_long])),qbs_new_txt_len("Regenerating keyword list...",28)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18869,"ide_methods.bas");}while(r); +sc_ec_421_end:; +goto sc_6224_end; +} +S_56636:; +if (((*_FUNC_IDEUPDATEHELPBOX_LONG_UPDATESTEP==( 4 )))||new_error){ +if(qbevent){evnt(26070,18870,"ide_methods.bas");if(r)goto S_56636;} +do{ +tmp_long=array_check(( 2 )-_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[4],_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[0]))[tmp_long])),qbs_new_txt_len("Building download queue...",26)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18871,"ide_methods.bas");}while(r); +sc_ec_422_end:; +goto sc_6224_end; +} +S_56638:; +if (((*_FUNC_IDEUPDATEHELPBOX_LONG_UPDATESTEP==( 5 )))||new_error){ +if(qbevent){evnt(26070,18872,"ide_methods.bas");if(r)goto S_56638;} +do{ +tmp_long=array_check(( 1 )-_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[4],_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[0]))[tmp_long])),qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("Updating help content file ",27),FUNC_STR2(_FUNC_IDEUPDATEHELPBOX_LONG_N)),qbs_new_txt_len("/",1)),FUNC_STR2(_FUNC_IDEUPDATEHELPBOX_LONG_C)),qbs_new_txt_len("...",3))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18873,"ide_methods.bas");}while(r); +sc_ec_423_end:; +goto sc_6224_end; +} +sc_6224_end:; +S_56641:; +fornext_value6226= 1 ; +fornext_finalvalue6226=*_FUNC_IDEUPDATEHELPBOX_LONG_MESSAGELINES; +fornext_step6226= 1 ; +if (fornext_step6226<0) fornext_step_negative6226=1; else fornext_step_negative6226=0; +if (new_error) goto fornext_error6226; +goto fornext_entrylabel6226; +while(1){ +fornext_value6226=fornext_step6226+(*_FUNC_IDEUPDATEHELPBOX_LONG_I); +fornext_entrylabel6226: +*_FUNC_IDEUPDATEHELPBOX_LONG_I=fornext_value6226; +if (fornext_step_negative6226){ +if (fornext_value6226fornext_finalvalue6226) break; +} +fornext_error6226:; +if(qbevent){evnt(26070,18876,"ide_methods.bas");if(r)goto S_56641;} +S_56642:; +if ((-(*_FUNC_IDEUPDATEHELPBOX_LONG_I== 1 ))||new_error){ +if(qbevent){evnt(26070,18877,"ide_methods.bas");if(r)goto S_56642;} +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,18877,"ide_methods.bas");}while(r); +}else{ +do{ +qbg_sub_color( 2 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,18877,"ide_methods.bas");}while(r); +} +S_56647:; +if ((qbs_cleanup(qbs_tmp_base,-((((qbs*)(((uint64*)(_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[0]))[array_check((*_FUNC_IDEUPDATEHELPBOX_LONG_I)-_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[4],_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[5])]))->len)>(*(int32*)(((char*)_FUNC_IDEUPDATEHELPBOX_UDT_P)+(8))- 2 ))))||new_error){ +if(qbevent){evnt(26070,18878,"ide_methods.bas");if(r)goto S_56647;} +do{ +tmp_long=array_check((*_FUNC_IDEUPDATEHELPBOX_LONG_I)-_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[4],_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[0]))[tmp_long])),qbs_add(qbs_left(((qbs*)(((uint64*)(_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[0]))[array_check((*_FUNC_IDEUPDATEHELPBOX_LONG_I)-_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[4],_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[5])])),*(int32*)(((char*)_FUNC_IDEUPDATEHELPBOX_UDT_P)+(8))- 5 ),func_string( 3 , 250 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18879,"ide_methods.bas");}while(r); +} +do{ +sub__printstring(*(int32*)(((char*)_FUNC_IDEUPDATEHELPBOX_UDT_P)+(0))+((*(int32*)(((char*)_FUNC_IDEUPDATEHELPBOX_UDT_P)+(8))/ 2 )-(((qbs*)(((uint64*)(_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[0]))[array_check((*_FUNC_IDEUPDATEHELPBOX_LONG_I)-_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[4],_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[5])]))->len/ 2 ))+ 1 ,*(int32*)(((char*)_FUNC_IDEUPDATEHELPBOX_UDT_P)+(4))+ 1 +*_FUNC_IDEUPDATEHELPBOX_LONG_I,((qbs*)(((uint64*)(_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[0]))[array_check((*_FUNC_IDEUPDATEHELPBOX_LONG_I)-_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[4],_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[5])])),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18881,"ide_methods.bas");}while(r); +fornext_continue_6225:; +} +fornext_exit_6225:; +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,18884,"ide_methods.bas");}while(r); +S_56653:; +if ((-(*_FUNC_IDEUPDATEHELPBOX_LONG_UPDATESTEP== 5 ))||new_error){ +if(qbevent){evnt(26070,18885,"ide_methods.bas");if(r)goto S_56653;} +do{ +*_FUNC_IDEUPDATEHELPBOX_LONG_MAXPROGRESSWIDTH= 52 ; +if(!qbevent)break;evnt(26070,18886,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEUPDATEHELPBOX_LONG_PERCENTAGE=qbr(floor(*_FUNC_IDEUPDATEHELPBOX_LONG_N/ ((long double)(*_FUNC_IDEUPDATEHELPBOX_LONG_C))* 100 )); +if(!qbevent)break;evnt(26070,18887,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEUPDATEHELPBOX_LONG_PERCENTAGECHARS=qbr(floor(*_FUNC_IDEUPDATEHELPBOX_LONG_MAXPROGRESSWIDTH**_FUNC_IDEUPDATEHELPBOX_LONG_N/ ((long double)(*_FUNC_IDEUPDATEHELPBOX_LONG_C)))); +if(!qbevent)break;evnt(26070,18888,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEUPDATEHELPBOX_STRING_PERCENTAGEMSG,qbs_add(qbs_add(qbs_add(func_string(*_FUNC_IDEUPDATEHELPBOX_LONG_PERCENTAGECHARS, 219 ),func_string(*_FUNC_IDEUPDATEHELPBOX_LONG_MAXPROGRESSWIDTH-*_FUNC_IDEUPDATEHELPBOX_LONG_PERCENTAGECHARS, 176 )),qbs_str((int32)(*_FUNC_IDEUPDATEHELPBOX_LONG_PERCENTAGE))),qbs_new_txt_len("%",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18889,"ide_methods.bas");}while(r); +do{ +sub__printstring(*(int32*)(((char*)_FUNC_IDEUPDATEHELPBOX_UDT_P)+(0))+((*(int32*)(((char*)_FUNC_IDEUPDATEHELPBOX_UDT_P)+(8))/ 2 )-(_FUNC_IDEUPDATEHELPBOX_STRING_PERCENTAGEMSG->len/ 2 ))+ 1 ,*(int32*)(((char*)_FUNC_IDEUPDATEHELPBOX_UDT_P)+(4))+ 4 ,_FUNC_IDEUPDATEHELPBOX_STRING_PERCENTAGEMSG,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18890,"ide_methods.bas");}while(r); +S_56659:; +}else{ +if (-(*_FUNC_IDEUPDATEHELPBOX_LONG_UPDATESTEP== 6 )){ +if(qbevent){evnt(26070,18891,"ide_methods.bas");if(r)goto S_56659;} +do{ +qbs_set(_FUNC_IDEUPDATEHELPBOX_STRING_PERCENTAGEMSG,qbs_add(func_string(*_FUNC_IDEUPDATEHELPBOX_LONG_MAXPROGRESSWIDTH, 219 ),qbs_new_txt_len(" 100%",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18892,"ide_methods.bas");}while(r); +do{ +sub__printstring(*(int32*)(((char*)_FUNC_IDEUPDATEHELPBOX_UDT_P)+(0))+((*(int32*)(((char*)_FUNC_IDEUPDATEHELPBOX_UDT_P)+(8))/ 2 )-(_FUNC_IDEUPDATEHELPBOX_STRING_PERCENTAGEMSG->len/ 2 ))+ 1 ,*(int32*)(((char*)_FUNC_IDEUPDATEHELPBOX_UDT_P)+(4))+ 4 ,_FUNC_IDEUPDATEHELPBOX_STRING_PERCENTAGEMSG,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18893,"ide_methods.bas");}while(r); +} +} +do{ +sub_pcopy( 1 , 0 ); +if(!qbevent)break;evnt(26070,18898,"ide_methods.bas");}while(r); +S_56664:; +if ((*_FUNC_IDEUPDATEHELPBOX_LONG_CX)||new_error){ +if(qbevent){evnt(26070,18899,"ide_methods.bas");if(r)goto S_56664;} +do{ +qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,18899,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(*_FUNC_IDEUPDATEHELPBOX_LONG_CY,*_FUNC_IDEUPDATEHELPBOX_LONG_CX, 1 ,NULL,NULL,7); +if(!qbevent)break;evnt(26070,18899,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,18899,"ide_methods.bas");}while(r); +} +do{ +SUB_GETINPUT(); +if(!qbevent)break;evnt(26070,18902,"ide_methods.bas");}while(r); +S_56670:; +if ((*__LONG_MCLICK)||new_error){ +if(qbevent){evnt(26070,18903,"ide_methods.bas");if(r)goto S_56670;} +do{ +*_FUNC_IDEUPDATEHELPBOX_LONG_MOUSEDOWN= 1 ; +if(!qbevent)break;evnt(26070,18903,"ide_methods.bas");}while(r); +} +S_56673:; +if ((*__LONG_MRELEASE)||new_error){ +if(qbevent){evnt(26070,18904,"ide_methods.bas");if(r)goto S_56673;} +do{ +*_FUNC_IDEUPDATEHELPBOX_LONG_MOUSEUP= 1 ; +if(!qbevent)break;evnt(26070,18904,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEUPDATEHELPBOX_LONG_ALT=*__LONG_KALT; +if(!qbevent)break;evnt(26070,18905,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEUPDATEHELPBOX_LONG_OLDALT=*_FUNC_IDEUPDATEHELPBOX_LONG_ALT; +if(!qbevent)break;evnt(26070,18906,"ide_methods.bas");}while(r); +S_56678:; +if ((*_FUNC_IDEUPDATEHELPBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ +if(qbevent){evnt(26070,18908,"ide_methods.bas");if(r)goto S_56678;} +do{ +*__LONG_IDEHL= 1 ; +if(!qbevent)break;evnt(26070,18908,"ide_methods.bas");}while(r); +}else{ +do{ +*__LONG_IDEHL= 0 ; +if(!qbevent)break;evnt(26070,18908,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDEUPDATEHELPBOX_STRING_ALTLETTER,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18910,"ide_methods.bas");}while(r); +S_56684:; +if ((*_FUNC_IDEUPDATEHELPBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ +if(qbevent){evnt(26070,18911,"ide_methods.bas");if(r)goto S_56684;} +S_56685:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ +if(qbevent){evnt(26070,18912,"ide_methods.bas");if(r)goto S_56685;} +do{ +*_FUNC_IDEUPDATEHELPBOX_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18913,"ide_methods.bas");}while(r); +S_56687:; +if (((-(*_FUNC_IDEUPDATEHELPBOX_LONG_K>= 65 ))&(-(*_FUNC_IDEUPDATEHELPBOX_LONG_K<= 90 )))||new_error){ +if(qbevent){evnt(26070,18914,"ide_methods.bas");if(r)goto S_56687;} +do{ +qbs_set(_FUNC_IDEUPDATEHELPBOX_STRING_ALTLETTER,func_chr(*_FUNC_IDEUPDATEHELPBOX_LONG_K)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18914,"ide_methods.bas");}while(r); +} +} +} +do{ +qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,18917,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); +if(!qbevent)break;evnt(26070,18917,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,18917,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEUPDATEHELPBOX_LONG_INFO= 0 ; +if(!qbevent)break;evnt(26070,18921,"ide_methods.bas");}while(r); +S_56696:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(__STRING_K),qbs_new_txt_len("C",1))))||new_error){ +if(qbevent){evnt(26070,18923,"ide_methods.bas");if(r)goto S_56696;} +do{ +qbs_set(_FUNC_IDEUPDATEHELPBOX_STRING_ALTLETTER,qbs_ucase(__STRING_K)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18923,"ide_methods.bas");}while(r); +} +S_56699:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,18925,"ide_methods.bas");if(r)goto S_56699;} +do{ +qbs_set(__STRING_K,func_chr( 255 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18925,"ide_methods.bas");}while(r); +} +S_56702:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ +if(qbevent){evnt(26070,18926,"ide_methods.bas");if(r)goto S_56702;} +do{ +*_FUNC_IDEUPDATEHELPBOX_LONG_FOCUS=*_FUNC_IDEUPDATEHELPBOX_LONG_FOCUS+ 1 ; +if(!qbevent)break;evnt(26070,18926,"ide_methods.bas");}while(r); +} +S_56705:; +if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||new_error){ +if(qbevent){evnt(26070,18927,"ide_methods.bas");if(r)goto S_56705;} +do{ +*_FUNC_IDEUPDATEHELPBOX_LONG_FOCUS=*_FUNC_IDEUPDATEHELPBOX_LONG_FOCUS- 1 ; +if(!qbevent)break;evnt(26070,18927,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_K,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18927,"ide_methods.bas");}while(r); +} +S_56709:; +if ((-(*_FUNC_IDEUPDATEHELPBOX_LONG_FOCUS< 1 ))||new_error){ +if(qbevent){evnt(26070,18928,"ide_methods.bas");if(r)goto S_56709;} +do{ +*_FUNC_IDEUPDATEHELPBOX_LONG_FOCUS=*_FUNC_IDEUPDATEHELPBOX_LONG_LASTFOCUS; +if(!qbevent)break;evnt(26070,18928,"ide_methods.bas");}while(r); +} +S_56712:; +if ((-(*_FUNC_IDEUPDATEHELPBOX_LONG_FOCUS>*_FUNC_IDEUPDATEHELPBOX_LONG_LASTFOCUS))||new_error){ +if(qbevent){evnt(26070,18929,"ide_methods.bas");if(r)goto S_56712;} +do{ +*_FUNC_IDEUPDATEHELPBOX_LONG_FOCUS= 1 ; +if(!qbevent)break;evnt(26070,18929,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEUPDATEHELPBOX_LONG_F= 1 ; +if(!qbevent)break;evnt(26070,18930,"ide_methods.bas");}while(r); +S_56716:; +fornext_value6233= 1 ; +fornext_finalvalue6233= 100 ; +fornext_step6233= 1 ; +if (fornext_step6233<0) fornext_step_negative6233=1; else fornext_step_negative6233=0; +if (new_error) goto fornext_error6233; +goto fornext_entrylabel6233; +while(1){ +fornext_value6233=fornext_step6233+(*_FUNC_IDEUPDATEHELPBOX_LONG_I); +fornext_entrylabel6233: +*_FUNC_IDEUPDATEHELPBOX_LONG_I=fornext_value6233; +if (fornext_step_negative6233){ +if (fornext_value6233fornext_finalvalue6233) break; +} +fornext_error6233:; +if(qbevent){evnt(26070,18931,"ide_methods.bas");if(r)goto S_56716;} +do{ +*_FUNC_IDEUPDATEHELPBOX_LONG_T=*(int32*)(((char*)_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEUPDATEHELPBOX_LONG_I)-_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[4],_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[5]))*89+36)); +if(!qbevent)break;evnt(26070,18932,"ide_methods.bas");}while(r); +S_56718:; +if ((*_FUNC_IDEUPDATEHELPBOX_LONG_T)||new_error){ +if(qbevent){evnt(26070,18933,"ide_methods.bas");if(r)goto S_56718;} +do{ +*_FUNC_IDEUPDATEHELPBOX_LONG_FOCUSOFFSET=*_FUNC_IDEUPDATEHELPBOX_LONG_FOCUS-*_FUNC_IDEUPDATEHELPBOX_LONG_F; +if(!qbevent)break;evnt(26070,18934,"ide_methods.bas");}while(r); +do{ +SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEUPDATEHELPBOX_LONG_I)-_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[4],_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDEUPDATEHELPBOX_LONG_FOCUS,_FUNC_IDEUPDATEHELPBOX_LONG_F,_FUNC_IDEUPDATEHELPBOX_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDEUPDATEHELPBOX_STRING_ALTLETTER,__LONG_MB,_FUNC_IDEUPDATEHELPBOX_LONG_MOUSEDOWN,_FUNC_IDEUPDATEHELPBOX_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDEUPDATEHELPBOX_LONG_INFO,__LONG_MWHEEL); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18935,"ide_methods.bas");}while(r); +} +fornext_continue_6232:; +} +fornext_exit_6232:; +S_56723:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 27 )))|(qbs_equal(__STRING_K,func_chr( 13 )))|((-(*_FUNC_IDEUPDATEHELPBOX_LONG_INFO!= 0 )))))||new_error){ +if(qbevent){evnt(26070,18941,"ide_methods.bas");if(r)goto S_56723;} +S_56724:; +if ((-(*_FUNC_IDEUPDATEHELPBOX_LONG_UPDATESTEP< 6 ))||new_error){ +if(qbevent){evnt(26070,18942,"ide_methods.bas");if(r)goto S_56724;} +do{ +qbs_set(_FUNC_IDEUPDATEHELPBOX_STRING_Q,FUNC_IDEYESNOBOX(qbs_new_txt_len("",0),qbs_new_txt_len("Cancel download?",16))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18942,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_IDEUPDATEHELPBOX_STRING_Q,qbs_new_txt_len("Y",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18942,"ide_methods.bas");}while(r); +} +S_56729:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_IDEUPDATEHELPBOX_STRING_Q,qbs_new_txt_len("Y",1))))||new_error){ +if(qbevent){evnt(26070,18943,"ide_methods.bas");if(r)goto S_56729;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,18943,"ide_methods.bas");}while(r); +} +} +LABEL_UPDATEROUTINE:; +if(qbevent){evnt(26070,18947,"ide_methods.bas");r=0;} +S_56733:; +if(qbevent){evnt(26070,18949,"ide_methods.bas");if(r)goto S_56733;} +S_56734:; +if (((*_FUNC_IDEUPDATEHELPBOX_LONG_UPDATESTEP==( 1 )))||new_error){ +if(qbevent){evnt(26070,18950,"ide_methods.bas");if(r)goto S_56734;} +do{ +*_FUNC_IDEUPDATEHELPBOX_DOUBLE_ST=func_timer( 0.001E+0 ,0|1); +if(!qbevent)break;evnt(26070,18952,"ide_methods.bas");}while(r); +S_56736:; +if ((-(*__LONG_HELP_RECACHING< 2 ))||new_error){ +if(qbevent){evnt(26070,18953,"ide_methods.bas");if(r)goto S_56736;} +do{ +qbs_set(_FUNC_IDEUPDATEHELPBOX_STRING_F,qbs_add(qbs_add(func_chr( 0 ),FUNC_IDEZFILELIST(qbs_new_txt_len("internal/help",13),&(pass6235= 2 ),qbs_new_txt_len("*.txt",5))),func_chr( 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18954,"ide_methods.bas");}while(r); +S_56738:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDEUPDATEHELPBOX_STRING_F->len== 2 )))||new_error){ +if(qbevent){evnt(26070,18955,"ide_methods.bas");if(r)goto S_56738;} +do{ +qbs_set(_FUNC_IDEUPDATEHELPBOX_STRING_F,func_chr( 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18955,"ide_methods.bas");}while(r); +} +}else{ +do{ +qbs_set(_FUNC_IDEUPDATEHELPBOX_STRING_F,func_chr( 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18957,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEUPDATEHELPBOX_DOUBLE_ET=func_timer( 0.001E+0 ,0|1)-*_FUNC_IDEUPDATEHELPBOX_DOUBLE_ST; +if(!qbevent)break;evnt(26070,18959,"ide_methods.bas");}while(r); +S_56745:; +if ((-(*_FUNC_IDEUPDATEHELPBOX_DOUBLE_ET< 0 ))||new_error){ +if(qbevent){evnt(26070,18959,"ide_methods.bas");if(r)goto S_56745;} +do{ +*_FUNC_IDEUPDATEHELPBOX_DOUBLE_ET=*_FUNC_IDEUPDATEHELPBOX_DOUBLE_ET+ 86400 ; +if(!qbevent)break;evnt(26070,18959,"ide_methods.bas");}while(r); +} +S_56748:; +if ((-(( 1.25E+0 -*_FUNC_IDEUPDATEHELPBOX_DOUBLE_ET)>( 0 )))||new_error){ +if(qbevent){evnt(26070,18960,"ide_methods.bas");if(r)goto S_56748;} +do{ +sub__delay( 1.25E+0 -*_FUNC_IDEUPDATEHELPBOX_DOUBLE_ET); +if(!qbevent)break;evnt(26070,18960,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEUPDATEHELPBOX_LONG_UPDATESTEP=*_FUNC_IDEUPDATEHELPBOX_LONG_UPDATESTEP+ 1 ; +if(!qbevent)break;evnt(26070,18961,"ide_methods.bas");}while(r); +sc_ec_424_end:; +goto sc_6234_end; +} +S_56752:; +if (((*_FUNC_IDEUPDATEHELPBOX_LONG_UPDATESTEP==( 2 )))||new_error){ +if(qbevent){evnt(26070,18962,"ide_methods.bas");if(r)goto S_56752;} +do{ +*_FUNC_IDEUPDATEHELPBOX_DOUBLE_ST=func_timer( 0.001E+0 ,0|1); +if(!qbevent)break;evnt(26070,18964,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEUPDATEHELPBOX_STRING_PAGENAME2,qbs_new_txt_len("QB64_FAQ.txt",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18965,"ide_methods.bas");}while(r); +S_56755:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_FUNC_IDEUPDATEHELPBOX_STRING_F,qbs_add(qbs_add(func_chr( 0 ),_FUNC_IDEUPDATEHELPBOX_STRING_PAGENAME2),func_chr( 0 )),0)== 0 )))||new_error){ +if(qbevent){evnt(26070,18966,"ide_methods.bas");if(r)goto S_56755;} +do{ +qbs_set(_FUNC_IDEUPDATEHELPBOX_STRING_F,qbs_add(qbs_add(func_chr( 0 ),_FUNC_IDEUPDATEHELPBOX_STRING_PAGENAME2),_FUNC_IDEUPDATEHELPBOX_STRING_F)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18966,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDEUPDATEHELPBOX_STRING_PAGENAME2,qbs_new_txt_len("QB64_Help_Menu.txt",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18967,"ide_methods.bas");}while(r); +S_56759:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_FUNC_IDEUPDATEHELPBOX_STRING_F,qbs_add(qbs_add(func_chr( 0 ),_FUNC_IDEUPDATEHELPBOX_STRING_PAGENAME2),func_chr( 0 )),0)== 0 )))||new_error){ +if(qbevent){evnt(26070,18968,"ide_methods.bas");if(r)goto S_56759;} +do{ +qbs_set(_FUNC_IDEUPDATEHELPBOX_STRING_F,qbs_add(qbs_add(func_chr( 0 ),_FUNC_IDEUPDATEHELPBOX_STRING_PAGENAME2),_FUNC_IDEUPDATEHELPBOX_STRING_F)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18968,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDEUPDATEHELPBOX_STRING_PAGENAME2,qbs_new_txt_len("ERROR_Codes.txt",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18969,"ide_methods.bas");}while(r); +S_56763:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_FUNC_IDEUPDATEHELPBOX_STRING_F,qbs_add(qbs_add(func_chr( 0 ),_FUNC_IDEUPDATEHELPBOX_STRING_PAGENAME2),func_chr( 0 )),0)== 0 )))||new_error){ +if(qbevent){evnt(26070,18970,"ide_methods.bas");if(r)goto S_56763;} +do{ +qbs_set(_FUNC_IDEUPDATEHELPBOX_STRING_F,qbs_add(qbs_add(func_chr( 0 ),_FUNC_IDEUPDATEHELPBOX_STRING_PAGENAME2),_FUNC_IDEUPDATEHELPBOX_STRING_F)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18970,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDEUPDATEHELPBOX_STRING_PAGENAME2,qbs_new_txt_len("Keywords_currently_not_supported_by_QB64.txt",44)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18971,"ide_methods.bas");}while(r); +S_56767:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_FUNC_IDEUPDATEHELPBOX_STRING_F,qbs_add(qbs_add(func_chr( 0 ),_FUNC_IDEUPDATEHELPBOX_STRING_PAGENAME2),func_chr( 0 )),0)== 0 )))||new_error){ +if(qbevent){evnt(26070,18972,"ide_methods.bas");if(r)goto S_56767;} +do{ +qbs_set(_FUNC_IDEUPDATEHELPBOX_STRING_F,qbs_add(qbs_add(func_chr( 0 ),_FUNC_IDEUPDATEHELPBOX_STRING_PAGENAME2),_FUNC_IDEUPDATEHELPBOX_STRING_F)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18972,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDEUPDATEHELPBOX_STRING_PAGENAME2,qbs_new_txt_len("Keyword_Reference_-_By_usage.txt",32)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18973,"ide_methods.bas");}while(r); +S_56771:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_FUNC_IDEUPDATEHELPBOX_STRING_F,qbs_add(qbs_add(func_chr( 0 ),_FUNC_IDEUPDATEHELPBOX_STRING_PAGENAME2),func_chr( 0 )),0)== 0 )))||new_error){ +if(qbevent){evnt(26070,18974,"ide_methods.bas");if(r)goto S_56771;} +do{ +qbs_set(_FUNC_IDEUPDATEHELPBOX_STRING_F,qbs_add(qbs_add(func_chr( 0 ),_FUNC_IDEUPDATEHELPBOX_STRING_PAGENAME2),_FUNC_IDEUPDATEHELPBOX_STRING_F)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18974,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEUPDATEHELPBOX_DOUBLE_ET=func_timer( 0.001E+0 ,0|1)-*_FUNC_IDEUPDATEHELPBOX_DOUBLE_ST; +if(!qbevent)break;evnt(26070,18975,"ide_methods.bas");}while(r); +S_56775:; +if ((-(*_FUNC_IDEUPDATEHELPBOX_DOUBLE_ET< 0 ))||new_error){ +if(qbevent){evnt(26070,18975,"ide_methods.bas");if(r)goto S_56775;} +do{ +*_FUNC_IDEUPDATEHELPBOX_DOUBLE_ET=*_FUNC_IDEUPDATEHELPBOX_DOUBLE_ET+ 86400 ; +if(!qbevent)break;evnt(26070,18975,"ide_methods.bas");}while(r); +} +S_56778:; +if ((-(( 1.25E+0 -*_FUNC_IDEUPDATEHELPBOX_DOUBLE_ET)>( 0 )))||new_error){ +if(qbevent){evnt(26070,18976,"ide_methods.bas");if(r)goto S_56778;} +do{ +sub__delay( 1.25E+0 -*_FUNC_IDEUPDATEHELPBOX_DOUBLE_ET); +if(!qbevent)break;evnt(26070,18976,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEUPDATEHELPBOX_LONG_UPDATESTEP=*_FUNC_IDEUPDATEHELPBOX_LONG_UPDATESTEP+ 1 ; +if(!qbevent)break;evnt(26070,18977,"ide_methods.bas");}while(r); +sc_ec_425_end:; +goto sc_6234_end; +} +S_56782:; +if (((*_FUNC_IDEUPDATEHELPBOX_LONG_UPDATESTEP==( 3 )))||new_error){ +if(qbevent){evnt(26070,18978,"ide_methods.bas");if(r)goto S_56782;} +do{ +*_FUNC_IDEUPDATEHELPBOX_DOUBLE_ST=func_timer( 0.001E+0 ,0|1); +if(!qbevent)break;evnt(26070,18980,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEUPDATEHELPBOX_STRING_A,FUNC_WIKI(qbs_new_txt_len("Keyword Reference - Alphabetical",32))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18981,"ide_methods.bas");}while(r); +S_56785:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_FUNC_IDEUPDATEHELPBOX_STRING_A,qbs_new_txt_len("{{PageInternalError}}",21),0)> 0 )))||new_error){ +if(qbevent){evnt(26070,18982,"ide_methods.bas");if(r)goto S_56785;} +do{ +*_FUNC_IDEUPDATEHELPBOX_LONG_IDEUPDATEHELPBOX= 1 ; +if(!qbevent)break;evnt(26070,18982,"ide_methods.bas");}while(r); +do{ +goto dl_exit_6221; +if(!qbevent)break;evnt(26070,18982,"ide_methods.bas");}while(r); +} +do{ +SUB_WIKIPARSE(_FUNC_IDEUPDATEHELPBOX_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18983,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEUPDATEHELPBOX_DOUBLE_ET=func_timer( 0.001E+0 ,0|1)-*_FUNC_IDEUPDATEHELPBOX_DOUBLE_ST; +if(!qbevent)break;evnt(26070,18984,"ide_methods.bas");}while(r); +S_56791:; +if ((-(*_FUNC_IDEUPDATEHELPBOX_DOUBLE_ET< 0 ))||new_error){ +if(qbevent){evnt(26070,18984,"ide_methods.bas");if(r)goto S_56791;} +do{ +*_FUNC_IDEUPDATEHELPBOX_DOUBLE_ET=*_FUNC_IDEUPDATEHELPBOX_DOUBLE_ET+ 86400 ; +if(!qbevent)break;evnt(26070,18984,"ide_methods.bas");}while(r); +} +S_56794:; +if ((-(( 1.25E+0 -*_FUNC_IDEUPDATEHELPBOX_DOUBLE_ET)>( 0 )))||new_error){ +if(qbevent){evnt(26070,18985,"ide_methods.bas");if(r)goto S_56794;} +do{ +sub__delay( 1.25E+0 -*_FUNC_IDEUPDATEHELPBOX_DOUBLE_ET); +if(!qbevent)break;evnt(26070,18985,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEUPDATEHELPBOX_LONG_UPDATESTEP=*_FUNC_IDEUPDATEHELPBOX_LONG_UPDATESTEP+ 1 ; +if(!qbevent)break;evnt(26070,18986,"ide_methods.bas");}while(r); +sc_ec_426_end:; +goto sc_6234_end; +} +S_56798:; +if (((*_FUNC_IDEUPDATEHELPBOX_LONG_UPDATESTEP==( 4 )))||new_error){ +if(qbevent){evnt(26070,18987,"ide_methods.bas");if(r)goto S_56798;} +do{ +*_FUNC_IDEUPDATEHELPBOX_DOUBLE_ST=func_timer( 0.001E+0 ,0|1); +if(!qbevent)break;evnt(26070,18989,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEUPDATEHELPBOX_LONG_FH=func_freefile(); +if(!qbevent)break;evnt(26070,18990,"ide_methods.bas");}while(r); +do{ +sub_open(qbs_new_txt_len("internal\\help\\links.bin",23), 3 ,NULL,NULL,*_FUNC_IDEUPDATEHELPBOX_LONG_FH,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18991,"ide_methods.bas");}while(r); +S_56802:; +while((!(func_eof(*_FUNC_IDEUPDATEHELPBOX_LONG_FH)))||new_error){ +if(qbevent){evnt(26070,18992,"ide_methods.bas");if(r)goto S_56802;} +do{ +tmp_fileno=*_FUNC_IDEUPDATEHELPBOX_LONG_FH; +if (new_error) goto skip6238; +sub_file_line_input_string(tmp_fileno,_FUNC_IDEUPDATEHELPBOX_STRING_L); +if (new_error) goto skip6238; +skip6238: +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18993,"ide_methods.bas");}while(r); +S_56804:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_IDEUPDATEHELPBOX_STRING_L->len))||new_error){ +if(qbevent){evnt(26070,18994,"ide_methods.bas");if(r)goto S_56804;} +do{ +*_FUNC_IDEUPDATEHELPBOX_LONG_C=func_instr(NULL,_FUNC_IDEUPDATEHELPBOX_STRING_L,qbs_new_txt_len(",",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18995,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEUPDATEHELPBOX_STRING_L,func_mid(_FUNC_IDEUPDATEHELPBOX_STRING_L,*_FUNC_IDEUPDATEHELPBOX_LONG_C+ 1 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18995,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEUPDATEHELPBOX_LONG_C=func_instr(NULL,_FUNC_IDEUPDATEHELPBOX_STRING_L,qbs_new_txt_len("#",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18996,"ide_methods.bas");}while(r); +S_56808:; +if ((-(*_FUNC_IDEUPDATEHELPBOX_LONG_C> 0 ))||new_error){ +if(qbevent){evnt(26070,18996,"ide_methods.bas");if(r)goto S_56808;} +do{ +qbs_set(_FUNC_IDEUPDATEHELPBOX_STRING_L,qbs_left(_FUNC_IDEUPDATEHELPBOX_STRING_L,*_FUNC_IDEUPDATEHELPBOX_LONG_C- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18996,"ide_methods.bas");}while(r); +} +S_56811:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_HELP_RECACHING< 2 ))|(qbs_notequal(qbs_left(_FUNC_IDEUPDATEHELPBOX_STRING_L, 3 ),qbs_new_txt_len("_gl",3)))))||new_error){ +if(qbevent){evnt(26070,18997,"ide_methods.bas");if(r)goto S_56811;} +do{ +qbs_set(_FUNC_IDEUPDATEHELPBOX_STRING_PAGENAME2,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,18999,"ide_methods.bas");}while(r); +S_56813:; +fornext_value6241= 1 ; +fornext_finalvalue6241=_FUNC_IDEUPDATEHELPBOX_STRING_L->len; +fornext_step6241= 1 ; +if (fornext_step6241<0) fornext_step_negative6241=1; else fornext_step_negative6241=0; +if (new_error) goto fornext_error6241; +goto fornext_entrylabel6241; +while(1){ +fornext_value6241=fornext_step6241+(*_FUNC_IDEUPDATEHELPBOX_LONG_I); +fornext_entrylabel6241: +*_FUNC_IDEUPDATEHELPBOX_LONG_I=fornext_value6241; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative6241){ +if (fornext_value6241fornext_finalvalue6241) break; +} +fornext_error6241:; +if(qbevent){evnt(26070,19000,"ide_methods.bas");if(r)goto S_56813;} +do{ +*_FUNC_IDEUPDATEHELPBOX_LONG_C=qbs_asc(_FUNC_IDEUPDATEHELPBOX_STRING_L,*_FUNC_IDEUPDATEHELPBOX_LONG_I); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19001,"ide_methods.bas");}while(r); +S_56815:; +if(qbevent){evnt(26070,19002,"ide_methods.bas");if(r)goto S_56815;} +S_56816:; +if (((*_FUNC_IDEUPDATEHELPBOX_LONG_C==( 32 )))||new_error){ +if(qbevent){evnt(26070,19003,"ide_methods.bas");if(r)goto S_56816;} +do{ +qbs_set(_FUNC_IDEUPDATEHELPBOX_STRING_PAGENAME2,qbs_add(_FUNC_IDEUPDATEHELPBOX_STRING_PAGENAME2,qbs_new_txt_len("_",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19004,"ide_methods.bas");}while(r); +sc_ec_427_end:; +goto sc_6243_end; +} +S_56818:; +if (((*_FUNC_IDEUPDATEHELPBOX_LONG_C==( 34 ))||(*_FUNC_IDEUPDATEHELPBOX_LONG_C==( 36 ))||(*_FUNC_IDEUPDATEHELPBOX_LONG_C==( 38 ))||(*_FUNC_IDEUPDATEHELPBOX_LONG_C==( 42 ))||(*_FUNC_IDEUPDATEHELPBOX_LONG_C==( 43 ))||(*_FUNC_IDEUPDATEHELPBOX_LONG_C==( 47 ))||(*_FUNC_IDEUPDATEHELPBOX_LONG_C==( 58 ))||(*_FUNC_IDEUPDATEHELPBOX_LONG_C==( 60 ))||(*_FUNC_IDEUPDATEHELPBOX_LONG_C==( 62 ))||(*_FUNC_IDEUPDATEHELPBOX_LONG_C==( 63 ))||(*_FUNC_IDEUPDATEHELPBOX_LONG_C==( 92 ))||(*_FUNC_IDEUPDATEHELPBOX_LONG_C==( 124 )))||new_error){ +if(qbevent){evnt(26070,19005,"ide_methods.bas");if(r)goto S_56818;} +do{ +qbs_set(_FUNC_IDEUPDATEHELPBOX_STRING_PAGENAME2,qbs_add(qbs_add(_FUNC_IDEUPDATEHELPBOX_STRING_PAGENAME2,qbs_new_txt_len("%",1)),func_hex(*_FUNC_IDEUPDATEHELPBOX_LONG_C,8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19006,"ide_methods.bas");}while(r); +sc_ec_428_end:; +goto sc_6243_end; +} +do{ +qbs_set(_FUNC_IDEUPDATEHELPBOX_STRING_PAGENAME2,qbs_add(_FUNC_IDEUPDATEHELPBOX_STRING_PAGENAME2,func_chr(*_FUNC_IDEUPDATEHELPBOX_LONG_C))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19008,"ide_methods.bas");}while(r); +sc_6243_end:; +fornext_continue_6240:; +} +fornext_exit_6240:; +do{ +qbs_set(_FUNC_IDEUPDATEHELPBOX_STRING_PAGENAME2,qbs_add(_FUNC_IDEUPDATEHELPBOX_STRING_PAGENAME2,qbs_new_txt_len(".txt",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19011,"ide_methods.bas");}while(r); +S_56825:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_FUNC_IDEUPDATEHELPBOX_STRING_F,qbs_add(qbs_add(func_chr( 0 ),_FUNC_IDEUPDATEHELPBOX_STRING_PAGENAME2),func_chr( 0 )),0)== 0 )))||new_error){ +if(qbevent){evnt(26070,19012,"ide_methods.bas");if(r)goto S_56825;} +do{ +qbs_set(_FUNC_IDEUPDATEHELPBOX_STRING_F,qbs_add(qbs_add(_FUNC_IDEUPDATEHELPBOX_STRING_F,_FUNC_IDEUPDATEHELPBOX_STRING_PAGENAME2),func_chr( 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19012,"ide_methods.bas");}while(r); +} +} +} +dl_continue_6237:; +} +dl_exit_6237:; +do{ +sub_close(*_FUNC_IDEUPDATEHELPBOX_LONG_FH,1); +if(!qbevent)break;evnt(26070,19016,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEUPDATEHELPBOX_LONG_C= 0 ; +if(!qbevent)break;evnt(26070,19018,"ide_methods.bas");}while(r); +S_56833:; +fornext_value6245= 2 ; +fornext_finalvalue6245=_FUNC_IDEUPDATEHELPBOX_STRING_F->len; +fornext_step6245= 1 ; +if (fornext_step6245<0) fornext_step_negative6245=1; else fornext_step_negative6245=0; +if (new_error) goto fornext_error6245; +goto fornext_entrylabel6245; +while(1){ +fornext_value6245=fornext_step6245+(*_FUNC_IDEUPDATEHELPBOX_LONG_X); +fornext_entrylabel6245: +*_FUNC_IDEUPDATEHELPBOX_LONG_X=fornext_value6245; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative6245){ +if (fornext_value6245fornext_finalvalue6245) break; +} +fornext_error6245:; +if(qbevent){evnt(26070,19019,"ide_methods.bas");if(r)goto S_56833;} +S_56834:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_IDEUPDATEHELPBOX_STRING_F,*_FUNC_IDEUPDATEHELPBOX_LONG_X)== 0 )))||new_error){ +if(qbevent){evnt(26070,19020,"ide_methods.bas");if(r)goto S_56834;} +do{ +*_FUNC_IDEUPDATEHELPBOX_LONG_C=*_FUNC_IDEUPDATEHELPBOX_LONG_C+ 1 ; +if(!qbevent)break;evnt(26070,19020,"ide_methods.bas");}while(r); +} +fornext_continue_6244:; +} +fornext_exit_6244:; +do{ +qbs_set(_FUNC_IDEUPDATEHELPBOX_STRING_F,qbs_right(_FUNC_IDEUPDATEHELPBOX_STRING_F,_FUNC_IDEUPDATEHELPBOX_STRING_F->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19023,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEUPDATEHELPBOX_LONG_N= 0 ; +if(!qbevent)break;evnt(26070,19024,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check(( 2 )-_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[4],_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[0]))[tmp_long])),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19025,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEUPDATEHELPBOX_DOUBLE_ET=func_timer( 0.001E+0 ,0|1)-*_FUNC_IDEUPDATEHELPBOX_DOUBLE_ST; +if(!qbevent)break;evnt(26070,19026,"ide_methods.bas");}while(r); +S_56842:; +if ((-(*_FUNC_IDEUPDATEHELPBOX_DOUBLE_ET< 0 ))||new_error){ +if(qbevent){evnt(26070,19026,"ide_methods.bas");if(r)goto S_56842;} +do{ +*_FUNC_IDEUPDATEHELPBOX_DOUBLE_ET=*_FUNC_IDEUPDATEHELPBOX_DOUBLE_ET+ 86400 ; +if(!qbevent)break;evnt(26070,19026,"ide_methods.bas");}while(r); +} +S_56845:; +if ((-(( 1.25E+0 -*_FUNC_IDEUPDATEHELPBOX_DOUBLE_ET)>( 0 )))||new_error){ +if(qbevent){evnt(26070,19027,"ide_methods.bas");if(r)goto S_56845;} +do{ +sub__delay( 1.25E+0 -*_FUNC_IDEUPDATEHELPBOX_DOUBLE_ET); +if(!qbevent)break;evnt(26070,19027,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEUPDATEHELPBOX_LONG_UPDATESTEP=*_FUNC_IDEUPDATEHELPBOX_LONG_UPDATESTEP+ 1 ; +if(!qbevent)break;evnt(26070,19028,"ide_methods.bas");}while(r); +sc_ec_429_end:; +goto sc_6234_end; +} +S_56849:; +if (((*_FUNC_IDEUPDATEHELPBOX_LONG_UPDATESTEP==( 5 )))||new_error){ +if(qbevent){evnt(26070,19029,"ide_methods.bas");if(r)goto S_56849;} +S_56850:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_IDEUPDATEHELPBOX_STRING_F->len> 0 )))||new_error){ +if(qbevent){evnt(26070,19031,"ide_methods.bas");if(r)goto S_56850;} +do{ +*_FUNC_IDEUPDATEHELPBOX_LONG_X2=func_instr(NULL,_FUNC_IDEUPDATEHELPBOX_STRING_F,func_chr( 0 ),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19032,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEUPDATEHELPBOX_STRING_F2,qbs_left(_FUNC_IDEUPDATEHELPBOX_STRING_F,*_FUNC_IDEUPDATEHELPBOX_LONG_X2- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19033,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEUPDATEHELPBOX_STRING_F,func_mid(_FUNC_IDEUPDATEHELPBOX_STRING_F,*_FUNC_IDEUPDATEHELPBOX_LONG_X2+ 1 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19033,"ide_methods.bas");}while(r); +S_56854:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_FUNC_IDEUPDATEHELPBOX_STRING_F2, 4 ),qbs_new_txt_len(".txt",4))))||new_error){ +if(qbevent){evnt(26070,19034,"ide_methods.bas");if(r)goto S_56854;} +do{ +qbs_set(_FUNC_IDEUPDATEHELPBOX_STRING_F2,qbs_left(_FUNC_IDEUPDATEHELPBOX_STRING_F2,_FUNC_IDEUPDATEHELPBOX_STRING_F2->len- 4 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19035,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEUPDATEHELPBOX_LONG_N=*_FUNC_IDEUPDATEHELPBOX_LONG_N+ 1 ; +if(!qbevent)break;evnt(26070,19036,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check(( 2 )-_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[4],_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[0]))[tmp_long])),qbs_add(qbs_new_txt_len("Page: ",6),_FUNC_IDEUPDATEHELPBOX_STRING_F2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19037,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEUPDATEHELPBOX_STRING_IGNORE,FUNC_WIKI(_FUNC_IDEUPDATEHELPBOX_STRING_F2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19038,"ide_methods.bas");}while(r); +S_56859:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_FUNC_IDEUPDATEHELPBOX_STRING_IGNORE,qbs_new_txt_len("{{PageInternalError}}",21),0)> 0 )))||new_error){ +if(qbevent){evnt(26070,19039,"ide_methods.bas");if(r)goto S_56859;} +do{ +*_FUNC_IDEUPDATEHELPBOX_LONG_IDEUPDATEHELPBOX= 1 ; +if(!qbevent)break;evnt(26070,19039,"ide_methods.bas");}while(r); +do{ +goto dl_exit_6221; +if(!qbevent)break;evnt(26070,19039,"ide_methods.bas");}while(r); +} +do{ +SUB_WIKIPARSE(_FUNC_IDEUPDATEHELPBOX_STRING_IGNORE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19040,"ide_methods.bas");}while(r); +} +}else{ +do{ +*_FUNC_IDEUPDATEHELPBOX_LONG_UPDATESTEP=*_FUNC_IDEUPDATEHELPBOX_LONG_UPDATESTEP+ 1 ; +if(!qbevent)break;evnt(26070,19043,"ide_methods.bas");}while(r); +} +sc_ec_430_end:; +goto sc_6234_end; +} +S_56868:; +if (((*_FUNC_IDEUPDATEHELPBOX_LONG_UPDATESTEP==( 6 )))||new_error){ +if(qbevent){evnt(26070,19045,"ide_methods.bas");if(r)goto S_56868;} +S_56869:; +if ((-(*__LONG_HELP_RECACHING== 2 ))||new_error){ +if(qbevent){evnt(26070,19046,"ide_methods.bas");if(r)goto S_56869;} +do{ +goto dl_exit_6221; +if(!qbevent)break;evnt(26070,19046,"ide_methods.bas");}while(r); +} +do{ +tmp_long=array_check(( 1 )-_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[4],_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[0]))[tmp_long])),qbs_new_txt_len("All pages updated.",18)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19047,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check(( 2 )-_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[4],_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_FUNC_IDEUPDATEHELPBOX_ARRAY_STRING_FULLMESSAGE[0]))[tmp_long])),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19048,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*(int32*)(((char*)_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEUPDATEHELPBOX_LONG_BUTTONID)-_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[4],_FUNC_IDEUPDATEHELPBOX_ARRAY_UDT_O[5]))*89+44)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[tmp_long])),qbs_new_txt_len("#Close",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19049,"ide_methods.bas");}while(r); +do{ +sub__limit( 20 ); +if(!qbevent)break;evnt(26070,19050,"ide_methods.bas");}while(r); +sc_ec_431_end:; +goto sc_6234_end; +} +sc_6234_end:; +do{ +*_FUNC_IDEUPDATEHELPBOX_LONG_MOUSEDOWN= 0 ; +if(!qbevent)break;evnt(26070,19054,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEUPDATEHELPBOX_LONG_MOUSEUP= 0 ; +if(!qbevent)break;evnt(26070,19055,"ide_methods.bas");}while(r); +dl_continue_6221:; +}while(1); +dl_exit_6221:; +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free257.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +return *_FUNC_IDEUPDATEHELPBOX_LONG_IDEUPDATEHELPBOX; +} +qbs* FUNC_IDEASCIIBOX(int32*_FUNC_IDEASCIIBOX_LONG_RELAUNCH){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data258.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +sub_pcopy( 0 , 2 ); +if(!qbevent)break;evnt(26070,19062,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 0 , 1 ); +if(!qbevent)break;evnt(26070,19063,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,19064,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEASCIIBOX_LONG_FOCUS= 1 ; +if(!qbevent)break;evnt(26070,19065,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26070,19066,"ide_methods.bas");}while(r); +do{ if (_FUNC_IDEASCIIBOX_ARRAY_UDT_O[2]&2){ error(10); @@ -192517,42 +192517,42 @@ if (!_FUNC_IDEASCIIBOX_ARRAY_UDT_O[0]) error(257); } _FUNC_IDEASCIIBOX_ARRAY_UDT_O[2]|=1; } -} -if(!qbevent)break;evnt(26070,19067,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(26070,19068,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEASCIIBOX_STRING1_SEP,func_chr( 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19069,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(26070,19073,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEASCIIBOX_LONG_RELAUNCH= 0 ; -if(!qbevent)break;evnt(26070,19074,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEASCIIBOX_LONG_I= 0 ; -if(!qbevent)break;evnt(26070,19076,"ide_methods.bas");}while(r); -do{ -SUB_IDEPAR((void*)( ((char*)(_FUNC_IDEASCIIBOX_UDT_P)) + (0) ),&(pass6250= 56 ),&(pass6251= 21 ),qbs_new_txt_len("ASCII Chart",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19077,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEASCIIBOX_LONG_I=*_FUNC_IDEASCIIBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,19079,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEASCIIBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEASCIIBOX_LONG_I)-_FUNC_IDEASCIIBOX_ARRAY_UDT_O[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_O[5]))*89+36))= 1 ; -if(!qbevent)break;evnt(26070,19080,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEASCIIBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEASCIIBOX_LONG_I)-_FUNC_IDEASCIIBOX_ARRAY_UDT_O[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_O[5]))*89+24))= 3 ; -if(!qbevent)break;evnt(26070,19081,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEASCIIBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEASCIIBOX_LONG_I)-_FUNC_IDEASCIIBOX_ARRAY_UDT_O[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_O[5]))*89+20))= 5 ; -if(!qbevent)break;evnt(26070,19082,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEASCIIBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEASCIIBOX_LONG_I)-_FUNC_IDEASCIIBOX_ARRAY_UDT_O[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_O[5]))*89+28))= 5 ; -if(!qbevent)break;evnt(26070,19083,"ide_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26070,19067,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26070,19068,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEASCIIBOX_STRING1_SEP,func_chr( 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19069,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26070,19073,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEASCIIBOX_LONG_RELAUNCH= 0 ; +if(!qbevent)break;evnt(26070,19074,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEASCIIBOX_LONG_I= 0 ; +if(!qbevent)break;evnt(26070,19076,"ide_methods.bas");}while(r); +do{ +SUB_IDEPAR((void*)( ((char*)(_FUNC_IDEASCIIBOX_UDT_P)) + (0) ),&(pass6250= 56 ),&(pass6251= 21 ),qbs_new_txt_len("ASCII Chart",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19077,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEASCIIBOX_LONG_I=*_FUNC_IDEASCIIBOX_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,19079,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEASCIIBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEASCIIBOX_LONG_I)-_FUNC_IDEASCIIBOX_ARRAY_UDT_O[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_O[5]))*89+36))= 1 ; +if(!qbevent)break;evnt(26070,19080,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEASCIIBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEASCIIBOX_LONG_I)-_FUNC_IDEASCIIBOX_ARRAY_UDT_O[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_O[5]))*89+24))= 3 ; +if(!qbevent)break;evnt(26070,19081,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEASCIIBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEASCIIBOX_LONG_I)-_FUNC_IDEASCIIBOX_ARRAY_UDT_O[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_O[5]))*89+20))= 5 ; +if(!qbevent)break;evnt(26070,19082,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEASCIIBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEASCIIBOX_LONG_I)-_FUNC_IDEASCIIBOX_ARRAY_UDT_O[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_O[5]))*89+28))= 5 ; +if(!qbevent)break;evnt(26070,19083,"ide_methods.bas");}while(r); +do{ if (_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[2]&2){ error(10); @@ -192570,868 +192570,868 @@ tmp_long=_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[5]; while(tmp_long--){ *(qbs**)(_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[0]+(96/8+1-1)*tmp_long+ 4)=qbs_new(0,0);} } -} -if(!qbevent)break;evnt(26070,19090,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEASCIIBOX_LONG_A= 0 ; -if(!qbevent)break;evnt(26070,19092,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEASCIIBOX_LONG_X= 5 ; -if(!qbevent)break;evnt(26070,19093,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEASCIIBOX_LONG_Y= 2 ; -if(!qbevent)break;evnt(26070,19094,"ide_methods.bas");}while(r); -S_56901:; -fornext_value6253= 0 ; -fornext_finalvalue6253= 15 ; -fornext_step6253= 1 ; -if (fornext_step6253<0) fornext_step_negative6253=1; else fornext_step_negative6253=0; -if (new_error) goto fornext_error6253; -goto fornext_entrylabel6253; -while(1){ -fornext_value6253=fornext_step6253+(*_FUNC_IDEASCIIBOX_LONG_I); -fornext_entrylabel6253: -*_FUNC_IDEASCIIBOX_LONG_I=fornext_value6253; -if (fornext_step_negative6253){ -if (fornext_value6253fornext_finalvalue6253) break; -} -fornext_error6253:; -if(qbevent){evnt(26070,19095,"ide_methods.bas");if(r)goto S_56901;} -S_56902:; -fornext_value6255= 0 ; -fornext_finalvalue6255= 15 ; -fornext_step6255= 1 ; -if (fornext_step6255<0) fornext_step_negative6255=1; else fornext_step_negative6255=0; -if (new_error) goto fornext_error6255; -goto fornext_entrylabel6255; -while(1){ -fornext_value6255=fornext_step6255+(*_FUNC_IDEASCIIBOX_LONG_J); -fornext_entrylabel6255: -*_FUNC_IDEASCIIBOX_LONG_J=fornext_value6255; -if (fornext_step_negative6255){ -if (fornext_value6255fornext_finalvalue6255) break; -} -fornext_error6255:; -if(qbevent){evnt(26070,19096,"ide_methods.bas");if(r)goto S_56902;} -do{ -*_FUNC_IDEASCIIBOX_LONG_A=*_FUNC_IDEASCIIBOX_LONG_A+ 1 ; -if(!qbevent)break;evnt(26070,19097,"ide_methods.bas");}while(r); -S_56904:; -if ((-(*_FUNC_IDEASCIIBOX_LONG_A> 255 ))||new_error){ -if(qbevent){evnt(26070,19098,"ide_methods.bas");if(r)goto S_56904;} -do{ -goto fornext_exit_6254; -if(!qbevent)break;evnt(26070,19098,"ide_methods.bas");}while(r); -} -do{ -*(int16*)(((char*)_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[0])+((array_check((*_FUNC_IDEASCIIBOX_LONG_A)-_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[5]))*12))=*(int32*)(((char*)_FUNC_IDEASCIIBOX_UDT_P)+(0))+*_FUNC_IDEASCIIBOX_LONG_X; -if(!qbevent)break;evnt(26070,19099,"ide_methods.bas");}while(r); -do{ -*(int16*)(((char*)_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[0])+((array_check((*_FUNC_IDEASCIIBOX_LONG_A)-_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[5]))*12+2))=*(int32*)(((char*)_FUNC_IDEASCIIBOX_UDT_P)+(4))+*_FUNC_IDEASCIIBOX_LONG_Y; -if(!qbevent)break;evnt(26070,19100,"ide_methods.bas");}while(r); -do{ -qbs_set(*((qbs**)((char*)(_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[0])+((array_check((*_FUNC_IDEASCIIBOX_LONG_A)-_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[5]))*12+4))),qbs_add(qbs_add(qbs_new_txt_len(" ",1),func_chr(*_FUNC_IDEASCIIBOX_LONG_A)),qbs_new_txt_len(" ",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19101,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEASCIIBOX_LONG_X=*_FUNC_IDEASCIIBOX_LONG_X+ 3 ; -if(!qbevent)break;evnt(26070,19102,"ide_methods.bas");}while(r); -fornext_continue_6254:; -} -fornext_exit_6254:; -S_56912:; -if ((-(*_FUNC_IDEASCIIBOX_LONG_A> 255 ))||new_error){ -if(qbevent){evnt(26070,19104,"ide_methods.bas");if(r)goto S_56912;} -do{ -goto fornext_exit_6252; -if(!qbevent)break;evnt(26070,19104,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEASCIIBOX_LONG_X= 5 ; -if(!qbevent)break;evnt(26070,19105,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEASCIIBOX_LONG_Y=*_FUNC_IDEASCIIBOX_LONG_Y+ 1 ; -if(!qbevent)break;evnt(26070,19106,"ide_methods.bas");}while(r); -fornext_continue_6252:; -} -fornext_exit_6252:; -do{ -*_FUNC_IDEASCIIBOX_LONG_I=*_FUNC_IDEASCIIBOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,19109,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEASCIIBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEASCIIBOX_LONG_I)-_FUNC_IDEASCIIBOX_ARRAY_UDT_O[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_O[5]))*89+36))= 3 ; -if(!qbevent)break;evnt(26070,19110,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEASCIIBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEASCIIBOX_LONG_I)-_FUNC_IDEASCIIBOX_ARRAY_UDT_O[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_O[5]))*89+24))= 21 ; -if(!qbevent)break;evnt(26070,19111,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEASCIIBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEASCIIBOX_LONG_I)-_FUNC_IDEASCIIBOX_ARRAY_UDT_O[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("#Insert character",17),_FUNC_IDEASCIIBOX_STRING1_SEP),qbs_new_txt_len("Insert C#HR$",12)),_FUNC_IDEASCIIBOX_STRING1_SEP),qbs_new_txt_len("#Close",6))); -if(!qbevent)break;evnt(26070,19112,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEASCIIBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEASCIIBOX_LONG_I)-_FUNC_IDEASCIIBOX_ARRAY_UDT_O[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_O[5]))*89+48))= 1 ; -if(!qbevent)break;evnt(26070,19113,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEASCIIBOX_LONG_SELECTED= 1 ; -if(!qbevent)break;evnt(26070,19115,"ide_methods.bas");}while(r); -S_56924:; -fornext_value6257= 1 ; -fornext_finalvalue6257= 100 ; -fornext_step6257= 1 ; -if (fornext_step6257<0) fornext_step_negative6257=1; else fornext_step_negative6257=0; -if (new_error) goto fornext_error6257; -goto fornext_entrylabel6257; -while(1){ -fornext_value6257=fornext_step6257+(*_FUNC_IDEASCIIBOX_LONG_I); -fornext_entrylabel6257: -*_FUNC_IDEASCIIBOX_LONG_I=fornext_value6257; -if (fornext_step_negative6257){ -if (fornext_value6257fornext_finalvalue6257) break; -} -fornext_error6257:; -if(qbevent){evnt(26070,19120,"ide_methods.bas");if(r)goto S_56924;} -do{ -memcpy(((char*)_FUNC_IDEASCIIBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEASCIIBOX_LONG_I)-_FUNC_IDEASCIIBOX_ARRAY_UDT_O[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_O[5]))*89)+ 0,((char*)_FUNC_IDEASCIIBOX_UDT_P)+(0)+ 0, 20); -if(!qbevent)break;evnt(26070,19120,"ide_methods.bas");}while(r); -fornext_continue_6256:; -} -fornext_exit_6256:; -S_56927:; -do{ -if(qbevent){evnt(26070,19123,"ide_methods.bas");if(r)goto S_56927;} -do{ -SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDEASCIIBOX_UDT_P)) + (0) )); -if(!qbevent)break;evnt(26070,19125,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEASCIIBOX_LONG_F= 1 ; -if(!qbevent)break;evnt(26070,19126,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEASCIIBOX_LONG_CX= 0 ; -if(!qbevent)break;evnt(26070,19126,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEASCIIBOX_LONG_CY= 0 ; -if(!qbevent)break;evnt(26070,19126,"ide_methods.bas");}while(r); -S_56932:; -fornext_value6260= 1 ; -fornext_finalvalue6260= 100 ; -fornext_step6260= 1 ; -if (fornext_step6260<0) fornext_step_negative6260=1; else fornext_step_negative6260=0; -if (new_error) goto fornext_error6260; -goto fornext_entrylabel6260; -while(1){ -fornext_value6260=fornext_step6260+(*_FUNC_IDEASCIIBOX_LONG_I); -fornext_entrylabel6260: -*_FUNC_IDEASCIIBOX_LONG_I=fornext_value6260; -if (fornext_step_negative6260){ -if (fornext_value6260fornext_finalvalue6260) break; -} -fornext_error6260:; -if(qbevent){evnt(26070,19127,"ide_methods.bas");if(r)goto S_56932;} -S_56933:; -if ((*(int32*)(((char*)_FUNC_IDEASCIIBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEASCIIBOX_LONG_I)-_FUNC_IDEASCIIBOX_ARRAY_UDT_O[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_O[5]))*89+36)))||new_error){ -if(qbevent){evnt(26070,19128,"ide_methods.bas");if(r)goto S_56933;} -do{ -*(int32*)(((char*)_FUNC_IDEASCIIBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEASCIIBOX_LONG_I)-_FUNC_IDEASCIIBOX_ARRAY_UDT_O[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_O[5]))*89+60))=*_FUNC_IDEASCIIBOX_LONG_FOCUS-*_FUNC_IDEASCIIBOX_LONG_F; -if(!qbevent)break;evnt(26070,19130,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEASCIIBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEASCIIBOX_LONG_I)-_FUNC_IDEASCIIBOX_ARRAY_UDT_O[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_O[5]))*89+52))= 0 ; -if(!qbevent)break;evnt(26070,19131,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEASCIIBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEASCIIBOX_LONG_I)-_FUNC_IDEASCIIBOX_ARRAY_UDT_O[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_O[5]))*89+56))= 0 ; -if(!qbevent)break;evnt(26070,19131,"ide_methods.bas");}while(r); -do{ -SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDEASCIIBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEASCIIBOX_LONG_I)-_FUNC_IDEASCIIBOX_ARRAY_UDT_O[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDEASCIIBOX_LONG_F); -if(!qbevent)break;evnt(26070,19132,"ide_methods.bas");}while(r); -S_56938:; -if ((*(int32*)(((char*)_FUNC_IDEASCIIBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEASCIIBOX_LONG_I)-_FUNC_IDEASCIIBOX_ARRAY_UDT_O[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_O[5]))*89+52)))||new_error){ -if(qbevent){evnt(26070,19133,"ide_methods.bas");if(r)goto S_56938;} -do{ -*_FUNC_IDEASCIIBOX_LONG_CX=*(int32*)(((char*)_FUNC_IDEASCIIBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEASCIIBOX_LONG_I)-_FUNC_IDEASCIIBOX_ARRAY_UDT_O[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_O[5]))*89+52)); -if(!qbevent)break;evnt(26070,19133,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEASCIIBOX_LONG_CY=*(int32*)(((char*)_FUNC_IDEASCIIBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEASCIIBOX_LONG_I)-_FUNC_IDEASCIIBOX_ARRAY_UDT_O[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_O[5]))*89+56)); -if(!qbevent)break;evnt(26070,19133,"ide_methods.bas");}while(r); -} -} -fornext_continue_6259:; -} -fornext_exit_6259:; -do{ -*_FUNC_IDEASCIIBOX_LONG_LASTFOCUS=*_FUNC_IDEASCIIBOX_LONG_F- 1 ; -if(!qbevent)break;evnt(26070,19136,"ide_methods.bas");}while(r); -S_56945:; -if ((-(*_FUNC_IDEASCIIBOX_LONG_FOCUS== 1 ))||new_error){ -if(qbevent){evnt(26070,19140,"ide_methods.bas");if(r)goto S_56945;} -do{ -SUB_IDEBOX(&(pass6261=*(int32*)(((char*)_FUNC_IDEASCIIBOX_UDT_P)+(0))+ 4 ),&(pass6262=*(int32*)(((char*)_FUNC_IDEASCIIBOX_UDT_P)+(4))+ 1 ),&(pass6263= 50 ),&(pass6264= 18 )); -if(!qbevent)break;evnt(26070,19141,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEASCIIBOX_LONG_HOVER= 0 ; -if(!qbevent)break;evnt(26070,19144,"ide_methods.bas");}while(r); -S_56949:; -fornext_value6266= 1 ; -fornext_finalvalue6266= 255 ; -fornext_step6266= 1 ; -if (fornext_step6266<0) fornext_step_negative6266=1; else fornext_step_negative6266=0; -if (new_error) goto fornext_error6266; -goto fornext_entrylabel6266; -while(1){ -fornext_value6266=fornext_step6266+(*_FUNC_IDEASCIIBOX_LONG_I); -fornext_entrylabel6266: -*_FUNC_IDEASCIIBOX_LONG_I=fornext_value6266; -if (fornext_step_negative6266){ -if (fornext_value6266fornext_finalvalue6266) break; -} -fornext_error6266:; -if(qbevent){evnt(26070,19145,"ide_methods.bas");if(r)goto S_56949;} -S_56950:; -if (((-(*__LONG_MX>=*(int16*)(((char*)_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[0])+((array_check((*_FUNC_IDEASCIIBOX_LONG_I)-_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[5]))*12))))&(-(*__LONG_MX<=(*(int16*)(((char*)_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[0])+((array_check((*_FUNC_IDEASCIIBOX_LONG_I)-_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[5]))*12))+ 2 )))&(-(*__LONG_MY==*(int16*)(((char*)_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[0])+((array_check((*_FUNC_IDEASCIIBOX_LONG_I)-_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[5]))*12+2)))))||new_error){ -if(qbevent){evnt(26070,19146,"ide_methods.bas");if(r)goto S_56950;} -S_56951:; -if ((*_FUNC_IDEASCIIBOX_LONG_MOUSEMOVED)||new_error){ -if(qbevent){evnt(26070,19147,"ide_methods.bas");if(r)goto S_56951;} -do{ -*_FUNC_IDEASCIIBOX_LONG_HOVER=*_FUNC_IDEASCIIBOX_LONG_I; -if(!qbevent)break;evnt(26070,19147,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 7 , 0 ,NULL,3); -if(!qbevent)break;evnt(26070,19147,"ide_methods.bas");}while(r); -} -S_56955:; -if ((*__LONG_MCLICK)||new_error){ -if(qbevent){evnt(26070,19148,"ide_methods.bas");if(r)goto S_56955;} -do{ -*_FUNC_IDEASCIIBOX_LONG_SELECTED=*_FUNC_IDEASCIIBOX_LONG_I; -if(!qbevent)break;evnt(26070,19149,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEASCIIBOX_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(26070,19150,"ide_methods.bas");}while(r); -S_56958:; -if (((-(((float)(FUNC_TIMEELAPSEDSINCE(_FUNC_IDEASCIIBOX_SINGLE_LASTCLICK)))<=((float)( 0.3E+0 ))))&(-(*_FUNC_IDEASCIIBOX_LONG_LASTCLICKON==*_FUNC_IDEASCIIBOX_LONG_I)))||new_error){ -if(qbevent){evnt(26070,19151,"ide_methods.bas");if(r)goto S_56958;} -do{ -*_FUNC_IDEASCIIBOX_LONG_RELAUNCH= -1 ; -if(!qbevent)break;evnt(26070,19153,"ide_methods.bas");}while(r); -do{ -goto LABEL_INSERTCHAR; -if(!qbevent)break;evnt(26070,19154,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEASCIIBOX_SINGLE_LASTCLICK=func_timer(NULL,0); -if(!qbevent)break;evnt(26070,19156,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEASCIIBOX_LONG_LASTCLICKON=*_FUNC_IDEASCIIBOX_LONG_I; -if(!qbevent)break;evnt(26070,19157,"ide_methods.bas");}while(r); -} -}else{ -do{ -qbg_sub_color( 2 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,19160,"ide_methods.bas");}while(r); -} -S_56968:; -if ((-(*_FUNC_IDEASCIIBOX_LONG_SELECTED==*_FUNC_IDEASCIIBOX_LONG_I))||new_error){ -if(qbevent){evnt(26070,19162,"ide_methods.bas");if(r)goto S_56968;} -do{ -qbg_sub_color( 15 , 0 ,NULL,3); -if(!qbevent)break;evnt(26070,19162,"ide_methods.bas");}while(r); -} -do{ -sub__printstring(*(int16*)(((char*)_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[0])+((array_check((*_FUNC_IDEASCIIBOX_LONG_I)-_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[5]))*12)),*(int16*)(((char*)_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[0])+((array_check((*_FUNC_IDEASCIIBOX_LONG_I)-_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[5]))*12+2)),*((qbs**)((char*)_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[0]+((array_check((*_FUNC_IDEASCIIBOX_LONG_I)-_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[5]))*12+4))),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19163,"ide_methods.bas");}while(r); -fornext_continue_6265:; -} -fornext_exit_6265:; -do{ -qbg_sub_color( 0 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,19166,"ide_methods.bas");}while(r); -S_56974:; -if ((-(*_FUNC_IDEASCIIBOX_LONG_SELECTED> 0 ))||new_error){ -if(qbevent){evnt(26070,19167,"ide_methods.bas");if(r)goto S_56974;} -do{ -sub__printstring(*(int32*)(((char*)_FUNC_IDEASCIIBOX_UDT_P)+(0))+ 5 ,*(int32*)(((char*)_FUNC_IDEASCIIBOX_UDT_P)+(4))+ 19 ,qbs_add(qbs_new_txt_len("Selected:",9),qbs_str((int32)(*_FUNC_IDEASCIIBOX_LONG_SELECTED))),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19168,"ide_methods.bas");}while(r); -} -do{ -qbg_sub_color( 2 , 7 ,NULL,3); -if(!qbevent)break;evnt(26070,19171,"ide_methods.bas");}while(r); -S_56978:; -if (((-(*_FUNC_IDEASCIIBOX_LONG_HOVER> 0 ))&(-(*_FUNC_IDEASCIIBOX_LONG_HOVER!=*_FUNC_IDEASCIIBOX_LONG_SELECTED)))||new_error){ -if(qbevent){evnt(26070,19172,"ide_methods.bas");if(r)goto S_56978;} -do{ -sub__printstring(*(int32*)(((char*)_FUNC_IDEASCIIBOX_UDT_P)+(0))+ 5 ,*(int32*)(((char*)_FUNC_IDEASCIIBOX_UDT_P)+(4))+ 20 ,qbs_add(qbs_new_txt_len("Hovered: ",9),qbs_str((int32)(*_FUNC_IDEASCIIBOX_LONG_HOVER))),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19173,"ide_methods.bas");}while(r); -} -do{ -sub_pcopy( 1 , 0 ); -if(!qbevent)break;evnt(26070,19179,"ide_methods.bas");}while(r); -S_56982:; -if ((*_FUNC_IDEASCIIBOX_LONG_CX)||new_error){ -if(qbevent){evnt(26070,19180,"ide_methods.bas");if(r)goto S_56982;} -do{ -qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,19181,"ide_methods.bas");}while(r); -S_56984:; -if ((-(*_FUNC_IDEASCIIBOX_LONG_FOCUS== 1 ))||new_error){ -if(qbevent){evnt(26070,19182,"ide_methods.bas");if(r)goto S_56984;} -S_56985:; -if ((*_FUNC_IDEASCIIBOX_LONG_SELECTED)||new_error){ -if(qbevent){evnt(26070,19183,"ide_methods.bas");if(r)goto S_56985;} -do{ -qbg_sub_locate(*(int16*)(((char*)_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[0])+((array_check((*_FUNC_IDEASCIIBOX_LONG_SELECTED)-_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[5]))*12+2)),*(int16*)(((char*)_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[0])+((array_check((*_FUNC_IDEASCIIBOX_LONG_SELECTED)-_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[5]))*12))+ 1 , 1 ,NULL,NULL,7); -if(!qbevent)break;evnt(26070,19184,"ide_methods.bas");}while(r); -} -}else{ -do{ -qbg_sub_locate(*_FUNC_IDEASCIIBOX_LONG_CY,*_FUNC_IDEASCIIBOX_LONG_CX, 1 ,NULL,NULL,7); -if(!qbevent)break;evnt(26070,19187,"ide_methods.bas");}while(r); -} -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,19189,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEASCIIBOX_LONG_CHANGE= 0 ; -if(!qbevent)break;evnt(26070,19193,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEASCIIBOX_LONG_MOUSEMOVED= 0 ; -if(!qbevent)break;evnt(26070,19194,"ide_methods.bas");}while(r); -S_56995:; -do{ -if(qbevent){evnt(26070,19195,"ide_methods.bas");if(r)goto S_56995;} -do{ -SUB_GETINPUT(); -if(!qbevent)break;evnt(26070,19196,"ide_methods.bas");}while(r); -S_56997:; -if ((*__LONG_MWHEEL)||new_error){ -if(qbevent){evnt(26070,19197,"ide_methods.bas");if(r)goto S_56997;} -do{ -*_FUNC_IDEASCIIBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,19197,"ide_methods.bas");}while(r); -} -S_57000:; -if ((*__LONG_KB)||new_error){ -if(qbevent){evnt(26070,19198,"ide_methods.bas");if(r)goto S_57000;} -do{ -*_FUNC_IDEASCIIBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,19198,"ide_methods.bas");}while(r); -} -S_57003:; -if ((*__LONG_MCLICK)||new_error){ -if(qbevent){evnt(26070,19199,"ide_methods.bas");if(r)goto S_57003;} -do{ -*_FUNC_IDEASCIIBOX_LONG_MOUSEDOWN= 1 ; -if(!qbevent)break;evnt(26070,19199,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEASCIIBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,19199,"ide_methods.bas");}while(r); -} -S_57007:; -if ((*__LONG_MRELEASE)||new_error){ -if(qbevent){evnt(26070,19200,"ide_methods.bas");if(r)goto S_57007;} -do{ -*_FUNC_IDEASCIIBOX_LONG_MOUSEUP= 1 ; -if(!qbevent)break;evnt(26070,19200,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEASCIIBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,19200,"ide_methods.bas");}while(r); -} -S_57011:; -if ((*__LONG_MB)||new_error){ -if(qbevent){evnt(26070,19201,"ide_methods.bas");if(r)goto S_57011;} -do{ -*_FUNC_IDEASCIIBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,19201,"ide_methods.bas");}while(r); -} -S_57014:; -if (((-(*__LONG_MX!=*_FUNC_IDEASCIIBOX_LONG_PREV__ASCII_CHR_046__MX))|(-(*__LONG_MY!=*_FUNC_IDEASCIIBOX_LONG_PREV__ASCII_CHR_046__MY)))||new_error){ -if(qbevent){evnt(26070,19202,"ide_methods.bas");if(r)goto S_57014;} -do{ -*_FUNC_IDEASCIIBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,19202,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEASCIIBOX_LONG_PREV__ASCII_CHR_046__MX=*__LONG_MX; -if(!qbevent)break;evnt(26070,19202,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEASCIIBOX_LONG_PREV__ASCII_CHR_046__MY=*__LONG_MY; -if(!qbevent)break;evnt(26070,19202,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEASCIIBOX_LONG_MOUSEMOVED= -1 ; -if(!qbevent)break;evnt(26070,19202,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEASCIIBOX_LONG_ALT=*__LONG_KALT; -if(!qbevent)break;evnt(26070,19203,"ide_methods.bas");}while(r); -S_57021:; -if ((-(*_FUNC_IDEASCIIBOX_LONG_ALT!=*_FUNC_IDEASCIIBOX_LONG_OLDALT))||new_error){ -if(qbevent){evnt(26070,19203,"ide_methods.bas");if(r)goto S_57021;} -do{ -*_FUNC_IDEASCIIBOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,19203,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEASCIIBOX_LONG_OLDALT=*_FUNC_IDEASCIIBOX_LONG_ALT; -if(!qbevent)break;evnt(26070,19204,"ide_methods.bas");}while(r); -do{ -sub__limit( 100 ); -if(!qbevent)break;evnt(26070,19205,"ide_methods.bas");}while(r); -S_57026:; -dl_continue_6267:; -}while((!(*_FUNC_IDEASCIIBOX_LONG_CHANGE))&&(!new_error)); -dl_exit_6267:; -if(qbevent){evnt(26070,19206,"ide_methods.bas");if(r)goto S_57026;} -S_57027:; -if ((*_FUNC_IDEASCIIBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(26070,19207,"ide_methods.bas");if(r)goto S_57027;} -do{ -*__LONG_IDEHL= 1 ; -if(!qbevent)break;evnt(26070,19207,"ide_methods.bas");}while(r); -}else{ -do{ -*__LONG_IDEHL= 0 ; -if(!qbevent)break;evnt(26070,19207,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDEASCIIBOX_STRING_ALTLETTER,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19209,"ide_methods.bas");}while(r); -S_57033:; -if ((*_FUNC_IDEASCIIBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(26070,19210,"ide_methods.bas");if(r)goto S_57033;} -S_57034:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ -if(qbevent){evnt(26070,19211,"ide_methods.bas");if(r)goto S_57034;} -do{ -*_FUNC_IDEASCIIBOX_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19212,"ide_methods.bas");}while(r); -S_57036:; -if (((-(*_FUNC_IDEASCIIBOX_LONG_K>= 65 ))&(-(*_FUNC_IDEASCIIBOX_LONG_K<= 90 )))||new_error){ -if(qbevent){evnt(26070,19213,"ide_methods.bas");if(r)goto S_57036;} -do{ -qbs_set(_FUNC_IDEASCIIBOX_STRING_ALTLETTER,func_chr(*_FUNC_IDEASCIIBOX_LONG_K)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19213,"ide_methods.bas");}while(r); -} -} -} -do{ -qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,19216,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); -if(!qbevent)break;evnt(26070,19216,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,19216,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEASCIIBOX_LONG_INFO= 0 ; -if(!qbevent)break;evnt(26070,19220,"ide_methods.bas");}while(r); -S_57045:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,19221,"ide_methods.bas");if(r)goto S_57045;} -do{ -qbs_set(__STRING_K,func_chr( 255 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19221,"ide_methods.bas");}while(r); -} -S_57048:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ -if(qbevent){evnt(26070,19222,"ide_methods.bas");if(r)goto S_57048;} -do{ -*_FUNC_IDEASCIIBOX_LONG_FOCUS=*_FUNC_IDEASCIIBOX_LONG_FOCUS+ 1 ; -if(!qbevent)break;evnt(26070,19222,"ide_methods.bas");}while(r); -} -S_57051:; -if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||new_error){ -if(qbevent){evnt(26070,19223,"ide_methods.bas");if(r)goto S_57051;} -do{ -*_FUNC_IDEASCIIBOX_LONG_FOCUS=*_FUNC_IDEASCIIBOX_LONG_FOCUS- 1 ; -if(!qbevent)break;evnt(26070,19223,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_K,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19223,"ide_methods.bas");}while(r); -} -S_57055:; -if ((-(*_FUNC_IDEASCIIBOX_LONG_FOCUS< 1 ))||new_error){ -if(qbevent){evnt(26070,19224,"ide_methods.bas");if(r)goto S_57055;} -do{ -*_FUNC_IDEASCIIBOX_LONG_FOCUS=*_FUNC_IDEASCIIBOX_LONG_LASTFOCUS; -if(!qbevent)break;evnt(26070,19224,"ide_methods.bas");}while(r); -} -S_57058:; -if ((-(*_FUNC_IDEASCIIBOX_LONG_FOCUS>*_FUNC_IDEASCIIBOX_LONG_LASTFOCUS))||new_error){ -if(qbevent){evnt(26070,19225,"ide_methods.bas");if(r)goto S_57058;} -do{ -*_FUNC_IDEASCIIBOX_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(26070,19225,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEASCIIBOX_LONG_F= 1 ; -if(!qbevent)break;evnt(26070,19226,"ide_methods.bas");}while(r); -S_57062:; -fornext_value6270= 1 ; -fornext_finalvalue6270= 100 ; -fornext_step6270= 1 ; -if (fornext_step6270<0) fornext_step_negative6270=1; else fornext_step_negative6270=0; -if (new_error) goto fornext_error6270; -goto fornext_entrylabel6270; -while(1){ -fornext_value6270=fornext_step6270+(*_FUNC_IDEASCIIBOX_LONG_I); -fornext_entrylabel6270: -*_FUNC_IDEASCIIBOX_LONG_I=fornext_value6270; -if (fornext_step_negative6270){ -if (fornext_value6270fornext_finalvalue6270) break; -} -fornext_error6270:; -if(qbevent){evnt(26070,19227,"ide_methods.bas");if(r)goto S_57062;} -do{ -*_FUNC_IDEASCIIBOX_LONG_T=*(int32*)(((char*)_FUNC_IDEASCIIBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEASCIIBOX_LONG_I)-_FUNC_IDEASCIIBOX_ARRAY_UDT_O[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_O[5]))*89+36)); -if(!qbevent)break;evnt(26070,19228,"ide_methods.bas");}while(r); -S_57064:; -if ((*_FUNC_IDEASCIIBOX_LONG_T)||new_error){ -if(qbevent){evnt(26070,19229,"ide_methods.bas");if(r)goto S_57064;} -do{ -*_FUNC_IDEASCIIBOX_LONG_FOCUSOFFSET=*_FUNC_IDEASCIIBOX_LONG_FOCUS-*_FUNC_IDEASCIIBOX_LONG_F; -if(!qbevent)break;evnt(26070,19230,"ide_methods.bas");}while(r); -do{ -SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDEASCIIBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEASCIIBOX_LONG_I)-_FUNC_IDEASCIIBOX_ARRAY_UDT_O[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDEASCIIBOX_LONG_FOCUS,_FUNC_IDEASCIIBOX_LONG_F,_FUNC_IDEASCIIBOX_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDEASCIIBOX_STRING_ALTLETTER,__LONG_MB,_FUNC_IDEASCIIBOX_LONG_MOUSEDOWN,_FUNC_IDEASCIIBOX_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDEASCIIBOX_LONG_INFO,__LONG_MWHEEL); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19231,"ide_methods.bas");}while(r); -} -fornext_continue_6269:; -} -fornext_exit_6269:; -S_57069:; -if (((-(*__LONG_MY>*(int32*)(((char*)_FUNC_IDEASCIIBOX_UDT_P)+(4))))&(-(*__LONG_MY<(*(int32*)(((char*)_FUNC_IDEASCIIBOX_UDT_P)+(4))+*(int32*)(((char*)_FUNC_IDEASCIIBOX_UDT_P)+(12)))))&(-(*__LONG_MX>*(int32*)(((char*)_FUNC_IDEASCIIBOX_UDT_P)+(0))))&(-(*__LONG_MX<(*(int32*)(((char*)_FUNC_IDEASCIIBOX_UDT_P)+(0))+*(int32*)(((char*)_FUNC_IDEASCIIBOX_UDT_P)+(8))))))||new_error){ -if(qbevent){evnt(26070,19236,"ide_methods.bas");if(r)goto S_57069;} -S_57070:; -if (((-(*_FUNC_IDEASCIIBOX_LONG_HOVER== 0 ))&*__LONG_MCLICK)||new_error){ -if(qbevent){evnt(26070,19237,"ide_methods.bas");if(r)goto S_57070;} -do{ -*_FUNC_IDEASCIIBOX_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(26070,19237,"ide_methods.bas");}while(r); -} -} -S_57074:; -if ((qbs_cleanup(qbs_tmp_base,((qbs_equal(__STRING_K,func_chr( 13 )))&(-(*_FUNC_IDEASCIIBOX_LONG_FOCUS== 1 )))))||new_error){ -if(qbevent){evnt(26070,19240,"ide_methods.bas");if(r)goto S_57074;} -do{ -goto LABEL_INSERTCHAR; -if(!qbevent)break;evnt(26070,19241,"ide_methods.bas");}while(r); -} -S_57077:; -if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_IDEASCIIBOX_LONG_FOCUS== 2 ))&(((qbs_equal(__STRING_K,func_chr( 13 )))|(-(*_FUNC_IDEASCIIBOX_LONG_INFO!= 0 ))))))||new_error){ -if(qbevent){evnt(26070,19244,"ide_methods.bas");if(r)goto S_57077;} -LABEL_INSERTCHAR:; -if(qbevent){evnt(26070,19245,"ide_methods.bas");r=0;} -S_57078:; -if (((-(*_FUNC_IDEASCIIBOX_LONG_SELECTED< 32 ))&(-(*_FUNC_IDEASCIIBOX_LONG_ASCIIWARNINGSHOWN== 0 )))||new_error){ -if(qbevent){evnt(26070,19246,"ide_methods.bas");if(r)goto S_57078;} -do{ -*_FUNC_IDEASCIIBOX_LONG_ASCIIWARNINGSHOWN= -1 ; -if(!qbevent)break;evnt(26070,19247,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEASCIIBOX_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Control Characters",18),qbs_new_txt_len("Inserting ASCII control characters (1-32) may cause\\nunexpected IDE behavior. Consider inserting CHR$ instead.\\nProceed anyway?",127),qbs_new_txt_len("#Yes;#No;#Cancel",16)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19248,"ide_methods.bas");}while(r); -S_57081:; -if ((-(*_FUNC_IDEASCIIBOX_LONG_RESULT== 2 ))||new_error){ -if(qbevent){evnt(26070,19249,"ide_methods.bas");if(r)goto S_57081;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,19249,"ide_methods.bas");}while(r); -} -S_57084:; -if ((-(*_FUNC_IDEASCIIBOX_LONG_RESULT== 3 ))||new_error){ -if(qbevent){evnt(26070,19250,"ide_methods.bas");if(r)goto S_57084;} -do{ -goto LABEL_DLGLOOP; -if(!qbevent)break;evnt(26070,19250,"ide_methods.bas");}while(r); -} -} -do{ -qbs_set(_FUNC_IDEASCIIBOX_STRING_IDEASCIIBOX,func_chr(*_FUNC_IDEASCIIBOX_LONG_SELECTED)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19252,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,19253,"ide_methods.bas");}while(r); -} -S_57091:; -if ((qbs_cleanup(qbs_tmp_base,((-(*_FUNC_IDEASCIIBOX_LONG_FOCUS== 3 ))&(((-(*_FUNC_IDEASCIIBOX_LONG_INFO!= 0 ))|(qbs_equal(__STRING_K,func_chr( 13 ))))))))||new_error){ -if(qbevent){evnt(26070,19256,"ide_methods.bas");if(r)goto S_57091;} -do{ -qbs_set(_FUNC_IDEASCIIBOX_STRING_IDEASCIIBOX,qbs_add(qbs_add(qbs_new_txt_len("CHR$(",5),FUNC_STR2(_FUNC_IDEASCIIBOX_LONG_SELECTED)),qbs_new_txt_len(")",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19257,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,19258,"ide_methods.bas");}while(r); -} -S_57095:; -if ((qbs_cleanup(qbs_tmp_base,(((-(*_FUNC_IDEASCIIBOX_LONG_INFO!= 0 ))|(qbs_equal(__STRING_K,func_chr( 13 )))))&(-(*_FUNC_IDEASCIIBOX_LONG_FOCUS== 4 ))))||new_error){ -if(qbevent){evnt(26070,19262,"ide_methods.bas");if(r)goto S_57095;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,19262,"ide_methods.bas");}while(r); -} -S_57098:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,func_chr( 27 ))))||new_error){ -if(qbevent){evnt(26070,19264,"ide_methods.bas");if(r)goto S_57098;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,19264,"ide_methods.bas");}while(r); -} -S_57101:; -if ((-(*_FUNC_IDEASCIIBOX_LONG_FOCUS== 1 ))||new_error){ -if(qbevent){evnt(26070,19266,"ide_methods.bas");if(r)goto S_57101;} -do{ -*__LONG_KCTRL=func__keydown( 100305 )|func__keydown( 100306 ); -if(!qbevent)break;evnt(26070,19267,"ide_methods.bas");}while(r); -S_57103:; -if(qbevent){evnt(26070,19268,"ide_methods.bas");if(r)goto S_57103;} -S_57104:; -if (((*__LONG_KB==( 18176 )))||new_error){ -if(qbevent){evnt(26070,19269,"ide_methods.bas");if(r)goto S_57104;} -do{ -*_FUNC_IDEASCIIBOX_LONG_SELECTED= 1 ; -if(!qbevent)break;evnt(26070,19269,"ide_methods.bas");}while(r); -sc_ec_432_end:; -goto sc_6271_end; -} -S_57106:; -if (((*__LONG_KB==( 20224 )))||new_error){ -if(qbevent){evnt(26070,19270,"ide_methods.bas");if(r)goto S_57106;} -do{ -*_FUNC_IDEASCIIBOX_LONG_SELECTED= 255 ; -if(!qbevent)break;evnt(26070,19270,"ide_methods.bas");}while(r); -sc_ec_433_end:; -goto sc_6271_end; -} -S_57108:; -if (((*__LONG_KB==( 19712 )))||new_error){ -if(qbevent){evnt(26070,19271,"ide_methods.bas");if(r)goto S_57108;} -S_57109:; -if ((*__LONG_KCTRL&(-(*_FUNC_IDEASCIIBOX_LONG_SELECTED> 0 )))||new_error){ -if(qbevent){evnt(26070,19272,"ide_methods.bas");if(r)goto S_57109;} -S_57110:; -while((!((-((*_FUNC_IDEASCIIBOX_LONG_SELECTED% 16 )==( 0 )))|(-(*_FUNC_IDEASCIIBOX_LONG_SELECTED== 255 ))))||new_error){ -if(qbevent){evnt(26070,19273,"ide_methods.bas");if(r)goto S_57110;} -do{ -*_FUNC_IDEASCIIBOX_LONG_SELECTED=*_FUNC_IDEASCIIBOX_LONG_SELECTED+ 1 ; -if(!qbevent)break;evnt(26070,19274,"ide_methods.bas");}while(r); -dl_continue_6272:; -} -dl_exit_6272:; -}else{ -do{ -*_FUNC_IDEASCIIBOX_LONG_SELECTED=*_FUNC_IDEASCIIBOX_LONG_SELECTED+ 1 ; -if(!qbevent)break;evnt(26070,19277,"ide_methods.bas");}while(r); -} -S_57116:; -if ((-(*_FUNC_IDEASCIIBOX_LONG_SELECTED> 255 ))||new_error){ -if(qbevent){evnt(26070,19279,"ide_methods.bas");if(r)goto S_57116;} -do{ -*_FUNC_IDEASCIIBOX_LONG_SELECTED= 1 ; -if(!qbevent)break;evnt(26070,19279,"ide_methods.bas");}while(r); -} -sc_ec_434_end:; -goto sc_6271_end; -} -S_57119:; -if (((*__LONG_KB==( 19200 )))||new_error){ -if(qbevent){evnt(26070,19280,"ide_methods.bas");if(r)goto S_57119;} -S_57120:; -if ((*__LONG_KCTRL&(-(*_FUNC_IDEASCIIBOX_LONG_SELECTED> 0 )))||new_error){ -if(qbevent){evnt(26070,19281,"ide_methods.bas");if(r)goto S_57120;} -S_57121:; -while((!(-((*_FUNC_IDEASCIIBOX_LONG_SELECTED% 16 )==( 1 ))))||new_error){ -if(qbevent){evnt(26070,19282,"ide_methods.bas");if(r)goto S_57121;} -do{ -*_FUNC_IDEASCIIBOX_LONG_SELECTED=*_FUNC_IDEASCIIBOX_LONG_SELECTED- 1 ; -if(!qbevent)break;evnt(26070,19283,"ide_methods.bas");}while(r); -dl_continue_6273:; -} -dl_exit_6273:; -}else{ -do{ -*_FUNC_IDEASCIIBOX_LONG_SELECTED=*_FUNC_IDEASCIIBOX_LONG_SELECTED- 1 ; -if(!qbevent)break;evnt(26070,19286,"ide_methods.bas");}while(r); -} -S_57127:; -if ((-(*_FUNC_IDEASCIIBOX_LONG_SELECTED< 1 ))||new_error){ -if(qbevent){evnt(26070,19288,"ide_methods.bas");if(r)goto S_57127;} -do{ -*_FUNC_IDEASCIIBOX_LONG_SELECTED= 255 ; -if(!qbevent)break;evnt(26070,19288,"ide_methods.bas");}while(r); -} -sc_ec_435_end:; -goto sc_6271_end; -} -S_57130:; -if (((*__LONG_KB==( 20480 )))||new_error){ -if(qbevent){evnt(26070,19289,"ide_methods.bas");if(r)goto S_57130;} -S_57131:; -if ((*__LONG_KCTRL&(-(*_FUNC_IDEASCIIBOX_LONG_SELECTED> 0 )))||new_error){ -if(qbevent){evnt(26070,19290,"ide_methods.bas");if(r)goto S_57131;} -S_57132:; -if ((-(*_FUNC_IDEASCIIBOX_LONG_SELECTED== 240 ))||new_error){ -if(qbevent){evnt(26070,19291,"ide_methods.bas");if(r)goto S_57132;} -do{ -*_FUNC_IDEASCIIBOX_LONG_SELECTED= 255 ; -if(!qbevent)break;evnt(26070,19292,"ide_methods.bas");}while(r); -}else{ -S_57135:; -while((!(-(*_FUNC_IDEASCIIBOX_LONG_SELECTED>= 240 )))||new_error){ -if(qbevent){evnt(26070,19294,"ide_methods.bas");if(r)goto S_57135;} -do{ -*_FUNC_IDEASCIIBOX_LONG_SELECTED=*_FUNC_IDEASCIIBOX_LONG_SELECTED+ 16 ; -if(!qbevent)break;evnt(26070,19295,"ide_methods.bas");}while(r); -dl_continue_6274:; -} -dl_exit_6274:; -} -S_57139:; -if ((-(*_FUNC_IDEASCIIBOX_LONG_SELECTED> 255 ))||new_error){ -if(qbevent){evnt(26070,19298,"ide_methods.bas");if(r)goto S_57139;} -do{ -*_FUNC_IDEASCIIBOX_LONG_SELECTED= 255 ; -if(!qbevent)break;evnt(26070,19298,"ide_methods.bas");}while(r); -} -}else{ -S_57143:; -if ((-(*_FUNC_IDEASCIIBOX_LONG_SELECTED== 240 ))||new_error){ -if(qbevent){evnt(26070,19300,"ide_methods.bas");if(r)goto S_57143;} -do{ -*_FUNC_IDEASCIIBOX_LONG_SELECTED= 255 ; -if(!qbevent)break;evnt(26070,19302,"ide_methods.bas");}while(r); -S_57145:; -}else{ -if (-((*_FUNC_IDEASCIIBOX_LONG_SELECTED+ 16 )<=( 255 ))){ -if(qbevent){evnt(26070,19303,"ide_methods.bas");if(r)goto S_57145;} -do{ -*_FUNC_IDEASCIIBOX_LONG_SELECTED=*_FUNC_IDEASCIIBOX_LONG_SELECTED+ 16 ; -if(!qbevent)break;evnt(26070,19304,"ide_methods.bas");}while(r); -}else{ -do{ -*_FUNC_IDEASCIIBOX_LONG_SELECTED=*_FUNC_IDEASCIIBOX_LONG_SELECTED+ 16 - 256 ; -if(!qbevent)break;evnt(26070,19306,"ide_methods.bas");}while(r); -} -} -} -sc_ec_436_end:; -goto sc_6271_end; -} -S_57151:; -if (((*__LONG_KB==( 18432 )))||new_error){ -if(qbevent){evnt(26070,19309,"ide_methods.bas");if(r)goto S_57151;} -S_57152:; -if ((*__LONG_KCTRL&(-(*_FUNC_IDEASCIIBOX_LONG_SELECTED> 0 )))||new_error){ -if(qbevent){evnt(26070,19310,"ide_methods.bas");if(r)goto S_57152;} -S_57153:; -while((!(-(*_FUNC_IDEASCIIBOX_LONG_SELECTED<= 16 )))||new_error){ -if(qbevent){evnt(26070,19311,"ide_methods.bas");if(r)goto S_57153;} -do{ -*_FUNC_IDEASCIIBOX_LONG_SELECTED=*_FUNC_IDEASCIIBOX_LONG_SELECTED- 16 ; -if(!qbevent)break;evnt(26070,19312,"ide_methods.bas");}while(r); -dl_continue_6275:; -} -dl_exit_6275:; -S_57156:; -if ((-(*_FUNC_IDEASCIIBOX_LONG_SELECTED< 1 ))||new_error){ -if(qbevent){evnt(26070,19314,"ide_methods.bas");if(r)goto S_57156;} -do{ -*_FUNC_IDEASCIIBOX_LONG_SELECTED= 1 ; -if(!qbevent)break;evnt(26070,19314,"ide_methods.bas");}while(r); -} -}else{ -S_57160:; -if ((-(*_FUNC_IDEASCIIBOX_LONG_SELECTED== 16 ))||new_error){ -if(qbevent){evnt(26070,19316,"ide_methods.bas");if(r)goto S_57160;} -do{ -*_FUNC_IDEASCIIBOX_LONG_SELECTED= 240 ; -if(!qbevent)break;evnt(26070,19318,"ide_methods.bas");}while(r); -S_57162:; -}else{ -if (-((*_FUNC_IDEASCIIBOX_LONG_SELECTED- 16 )>=( 1 ))){ -if(qbevent){evnt(26070,19319,"ide_methods.bas");if(r)goto S_57162;} -do{ -*_FUNC_IDEASCIIBOX_LONG_SELECTED=*_FUNC_IDEASCIIBOX_LONG_SELECTED- 16 ; -if(!qbevent)break;evnt(26070,19320,"ide_methods.bas");}while(r); -}else{ -do{ -*_FUNC_IDEASCIIBOX_LONG_SELECTED=*_FUNC_IDEASCIIBOX_LONG_SELECTED- 16 + 256 ; -if(!qbevent)break;evnt(26070,19322,"ide_methods.bas");}while(r); -} -} -} -sc_ec_437_end:; -goto sc_6271_end; -} -sc_6271_end:; -} -do{ -*_FUNC_IDEASCIIBOX_LONG_MOUSEDOWN= 0 ; -if(!qbevent)break;evnt(26070,19329,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEASCIIBOX_LONG_MOUSEUP= 0 ; -if(!qbevent)break;evnt(26070,19330,"ide_methods.bas");}while(r); -LABEL_DLGLOOP:; -if(qbevent){evnt(26070,19332,"ide_methods.bas");r=0;} -dl_continue_6258:; -}while(1); -dl_exit_6258:; -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free258.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_IDEASCIIBOX_STRING_IDEASCIIBOX);return _FUNC_IDEASCIIBOX_STRING_IDEASCIIBOX; -} -qbs* FUNC_IDEF1BOX(qbs*_FUNC_IDEF1BOX_STRING_LNKS,int32*_FUNC_IDEF1BOX_LONG_LNKS){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data259.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -sub_pcopy( 0 , 2 ); -if(!qbevent)break;evnt(26070,19341,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 0 , 1 ); -if(!qbevent)break;evnt(26070,19342,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,19343,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEF1BOX_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(26070,19344,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(26070,19345,"ide_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26070,19090,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEASCIIBOX_LONG_A= 0 ; +if(!qbevent)break;evnt(26070,19092,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEASCIIBOX_LONG_X= 5 ; +if(!qbevent)break;evnt(26070,19093,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEASCIIBOX_LONG_Y= 2 ; +if(!qbevent)break;evnt(26070,19094,"ide_methods.bas");}while(r); +S_56901:; +fornext_value6253= 0 ; +fornext_finalvalue6253= 15 ; +fornext_step6253= 1 ; +if (fornext_step6253<0) fornext_step_negative6253=1; else fornext_step_negative6253=0; +if (new_error) goto fornext_error6253; +goto fornext_entrylabel6253; +while(1){ +fornext_value6253=fornext_step6253+(*_FUNC_IDEASCIIBOX_LONG_I); +fornext_entrylabel6253: +*_FUNC_IDEASCIIBOX_LONG_I=fornext_value6253; +if (fornext_step_negative6253){ +if (fornext_value6253fornext_finalvalue6253) break; +} +fornext_error6253:; +if(qbevent){evnt(26070,19095,"ide_methods.bas");if(r)goto S_56901;} +S_56902:; +fornext_value6255= 0 ; +fornext_finalvalue6255= 15 ; +fornext_step6255= 1 ; +if (fornext_step6255<0) fornext_step_negative6255=1; else fornext_step_negative6255=0; +if (new_error) goto fornext_error6255; +goto fornext_entrylabel6255; +while(1){ +fornext_value6255=fornext_step6255+(*_FUNC_IDEASCIIBOX_LONG_J); +fornext_entrylabel6255: +*_FUNC_IDEASCIIBOX_LONG_J=fornext_value6255; +if (fornext_step_negative6255){ +if (fornext_value6255fornext_finalvalue6255) break; +} +fornext_error6255:; +if(qbevent){evnt(26070,19096,"ide_methods.bas");if(r)goto S_56902;} +do{ +*_FUNC_IDEASCIIBOX_LONG_A=*_FUNC_IDEASCIIBOX_LONG_A+ 1 ; +if(!qbevent)break;evnt(26070,19097,"ide_methods.bas");}while(r); +S_56904:; +if ((-(*_FUNC_IDEASCIIBOX_LONG_A> 255 ))||new_error){ +if(qbevent){evnt(26070,19098,"ide_methods.bas");if(r)goto S_56904;} +do{ +goto fornext_exit_6254; +if(!qbevent)break;evnt(26070,19098,"ide_methods.bas");}while(r); +} +do{ +*(int16*)(((char*)_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[0])+((array_check((*_FUNC_IDEASCIIBOX_LONG_A)-_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[5]))*12))=*(int32*)(((char*)_FUNC_IDEASCIIBOX_UDT_P)+(0))+*_FUNC_IDEASCIIBOX_LONG_X; +if(!qbevent)break;evnt(26070,19099,"ide_methods.bas");}while(r); +do{ +*(int16*)(((char*)_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[0])+((array_check((*_FUNC_IDEASCIIBOX_LONG_A)-_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[5]))*12+2))=*(int32*)(((char*)_FUNC_IDEASCIIBOX_UDT_P)+(4))+*_FUNC_IDEASCIIBOX_LONG_Y; +if(!qbevent)break;evnt(26070,19100,"ide_methods.bas");}while(r); +do{ +qbs_set(*((qbs**)((char*)(_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[0])+((array_check((*_FUNC_IDEASCIIBOX_LONG_A)-_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[5]))*12+4))),qbs_add(qbs_add(qbs_new_txt_len(" ",1),func_chr(*_FUNC_IDEASCIIBOX_LONG_A)),qbs_new_txt_len(" ",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19101,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEASCIIBOX_LONG_X=*_FUNC_IDEASCIIBOX_LONG_X+ 3 ; +if(!qbevent)break;evnt(26070,19102,"ide_methods.bas");}while(r); +fornext_continue_6254:; +} +fornext_exit_6254:; +S_56912:; +if ((-(*_FUNC_IDEASCIIBOX_LONG_A> 255 ))||new_error){ +if(qbevent){evnt(26070,19104,"ide_methods.bas");if(r)goto S_56912;} +do{ +goto fornext_exit_6252; +if(!qbevent)break;evnt(26070,19104,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEASCIIBOX_LONG_X= 5 ; +if(!qbevent)break;evnt(26070,19105,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEASCIIBOX_LONG_Y=*_FUNC_IDEASCIIBOX_LONG_Y+ 1 ; +if(!qbevent)break;evnt(26070,19106,"ide_methods.bas");}while(r); +fornext_continue_6252:; +} +fornext_exit_6252:; +do{ +*_FUNC_IDEASCIIBOX_LONG_I=*_FUNC_IDEASCIIBOX_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,19109,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEASCIIBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEASCIIBOX_LONG_I)-_FUNC_IDEASCIIBOX_ARRAY_UDT_O[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_O[5]))*89+36))= 3 ; +if(!qbevent)break;evnt(26070,19110,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEASCIIBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEASCIIBOX_LONG_I)-_FUNC_IDEASCIIBOX_ARRAY_UDT_O[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_O[5]))*89+24))= 21 ; +if(!qbevent)break;evnt(26070,19111,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEASCIIBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEASCIIBOX_LONG_I)-_FUNC_IDEASCIIBOX_ARRAY_UDT_O[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("#Insert character",17),_FUNC_IDEASCIIBOX_STRING1_SEP),qbs_new_txt_len("Insert C#HR$",12)),_FUNC_IDEASCIIBOX_STRING1_SEP),qbs_new_txt_len("#Close",6))); +if(!qbevent)break;evnt(26070,19112,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEASCIIBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEASCIIBOX_LONG_I)-_FUNC_IDEASCIIBOX_ARRAY_UDT_O[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_O[5]))*89+48))= 1 ; +if(!qbevent)break;evnt(26070,19113,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEASCIIBOX_LONG_SELECTED= 1 ; +if(!qbevent)break;evnt(26070,19115,"ide_methods.bas");}while(r); +S_56924:; +fornext_value6257= 1 ; +fornext_finalvalue6257= 100 ; +fornext_step6257= 1 ; +if (fornext_step6257<0) fornext_step_negative6257=1; else fornext_step_negative6257=0; +if (new_error) goto fornext_error6257; +goto fornext_entrylabel6257; +while(1){ +fornext_value6257=fornext_step6257+(*_FUNC_IDEASCIIBOX_LONG_I); +fornext_entrylabel6257: +*_FUNC_IDEASCIIBOX_LONG_I=fornext_value6257; +if (fornext_step_negative6257){ +if (fornext_value6257fornext_finalvalue6257) break; +} +fornext_error6257:; +if(qbevent){evnt(26070,19120,"ide_methods.bas");if(r)goto S_56924;} +do{ +memcpy(((char*)_FUNC_IDEASCIIBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEASCIIBOX_LONG_I)-_FUNC_IDEASCIIBOX_ARRAY_UDT_O[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_O[5]))*89)+ 0,((char*)_FUNC_IDEASCIIBOX_UDT_P)+(0)+ 0, 20); +if(!qbevent)break;evnt(26070,19120,"ide_methods.bas");}while(r); +fornext_continue_6256:; +} +fornext_exit_6256:; +S_56927:; +do{ +if(qbevent){evnt(26070,19123,"ide_methods.bas");if(r)goto S_56927;} +do{ +SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDEASCIIBOX_UDT_P)) + (0) )); +if(!qbevent)break;evnt(26070,19125,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEASCIIBOX_LONG_F= 1 ; +if(!qbevent)break;evnt(26070,19126,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEASCIIBOX_LONG_CX= 0 ; +if(!qbevent)break;evnt(26070,19126,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEASCIIBOX_LONG_CY= 0 ; +if(!qbevent)break;evnt(26070,19126,"ide_methods.bas");}while(r); +S_56932:; +fornext_value6260= 1 ; +fornext_finalvalue6260= 100 ; +fornext_step6260= 1 ; +if (fornext_step6260<0) fornext_step_negative6260=1; else fornext_step_negative6260=0; +if (new_error) goto fornext_error6260; +goto fornext_entrylabel6260; +while(1){ +fornext_value6260=fornext_step6260+(*_FUNC_IDEASCIIBOX_LONG_I); +fornext_entrylabel6260: +*_FUNC_IDEASCIIBOX_LONG_I=fornext_value6260; +if (fornext_step_negative6260){ +if (fornext_value6260fornext_finalvalue6260) break; +} +fornext_error6260:; +if(qbevent){evnt(26070,19127,"ide_methods.bas");if(r)goto S_56932;} +S_56933:; +if ((*(int32*)(((char*)_FUNC_IDEASCIIBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEASCIIBOX_LONG_I)-_FUNC_IDEASCIIBOX_ARRAY_UDT_O[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_O[5]))*89+36)))||new_error){ +if(qbevent){evnt(26070,19128,"ide_methods.bas");if(r)goto S_56933;} +do{ +*(int32*)(((char*)_FUNC_IDEASCIIBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEASCIIBOX_LONG_I)-_FUNC_IDEASCIIBOX_ARRAY_UDT_O[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_O[5]))*89+60))=*_FUNC_IDEASCIIBOX_LONG_FOCUS-*_FUNC_IDEASCIIBOX_LONG_F; +if(!qbevent)break;evnt(26070,19130,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEASCIIBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEASCIIBOX_LONG_I)-_FUNC_IDEASCIIBOX_ARRAY_UDT_O[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_O[5]))*89+52))= 0 ; +if(!qbevent)break;evnt(26070,19131,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEASCIIBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEASCIIBOX_LONG_I)-_FUNC_IDEASCIIBOX_ARRAY_UDT_O[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_O[5]))*89+56))= 0 ; +if(!qbevent)break;evnt(26070,19131,"ide_methods.bas");}while(r); +do{ +SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDEASCIIBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEASCIIBOX_LONG_I)-_FUNC_IDEASCIIBOX_ARRAY_UDT_O[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDEASCIIBOX_LONG_F); +if(!qbevent)break;evnt(26070,19132,"ide_methods.bas");}while(r); +S_56938:; +if ((*(int32*)(((char*)_FUNC_IDEASCIIBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEASCIIBOX_LONG_I)-_FUNC_IDEASCIIBOX_ARRAY_UDT_O[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_O[5]))*89+52)))||new_error){ +if(qbevent){evnt(26070,19133,"ide_methods.bas");if(r)goto S_56938;} +do{ +*_FUNC_IDEASCIIBOX_LONG_CX=*(int32*)(((char*)_FUNC_IDEASCIIBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEASCIIBOX_LONG_I)-_FUNC_IDEASCIIBOX_ARRAY_UDT_O[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_O[5]))*89+52)); +if(!qbevent)break;evnt(26070,19133,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEASCIIBOX_LONG_CY=*(int32*)(((char*)_FUNC_IDEASCIIBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEASCIIBOX_LONG_I)-_FUNC_IDEASCIIBOX_ARRAY_UDT_O[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_O[5]))*89+56)); +if(!qbevent)break;evnt(26070,19133,"ide_methods.bas");}while(r); +} +} +fornext_continue_6259:; +} +fornext_exit_6259:; +do{ +*_FUNC_IDEASCIIBOX_LONG_LASTFOCUS=*_FUNC_IDEASCIIBOX_LONG_F- 1 ; +if(!qbevent)break;evnt(26070,19136,"ide_methods.bas");}while(r); +S_56945:; +if ((-(*_FUNC_IDEASCIIBOX_LONG_FOCUS== 1 ))||new_error){ +if(qbevent){evnt(26070,19140,"ide_methods.bas");if(r)goto S_56945;} +do{ +SUB_IDEBOX(&(pass6261=*(int32*)(((char*)_FUNC_IDEASCIIBOX_UDT_P)+(0))+ 4 ),&(pass6262=*(int32*)(((char*)_FUNC_IDEASCIIBOX_UDT_P)+(4))+ 1 ),&(pass6263= 50 ),&(pass6264= 18 )); +if(!qbevent)break;evnt(26070,19141,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEASCIIBOX_LONG_HOVER= 0 ; +if(!qbevent)break;evnt(26070,19144,"ide_methods.bas");}while(r); +S_56949:; +fornext_value6266= 1 ; +fornext_finalvalue6266= 255 ; +fornext_step6266= 1 ; +if (fornext_step6266<0) fornext_step_negative6266=1; else fornext_step_negative6266=0; +if (new_error) goto fornext_error6266; +goto fornext_entrylabel6266; +while(1){ +fornext_value6266=fornext_step6266+(*_FUNC_IDEASCIIBOX_LONG_I); +fornext_entrylabel6266: +*_FUNC_IDEASCIIBOX_LONG_I=fornext_value6266; +if (fornext_step_negative6266){ +if (fornext_value6266fornext_finalvalue6266) break; +} +fornext_error6266:; +if(qbevent){evnt(26070,19145,"ide_methods.bas");if(r)goto S_56949;} +S_56950:; +if (((-(*__LONG_MX>=*(int16*)(((char*)_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[0])+((array_check((*_FUNC_IDEASCIIBOX_LONG_I)-_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[5]))*12))))&(-(*__LONG_MX<=(*(int16*)(((char*)_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[0])+((array_check((*_FUNC_IDEASCIIBOX_LONG_I)-_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[5]))*12))+ 2 )))&(-(*__LONG_MY==*(int16*)(((char*)_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[0])+((array_check((*_FUNC_IDEASCIIBOX_LONG_I)-_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[5]))*12+2)))))||new_error){ +if(qbevent){evnt(26070,19146,"ide_methods.bas");if(r)goto S_56950;} +S_56951:; +if ((*_FUNC_IDEASCIIBOX_LONG_MOUSEMOVED)||new_error){ +if(qbevent){evnt(26070,19147,"ide_methods.bas");if(r)goto S_56951;} +do{ +*_FUNC_IDEASCIIBOX_LONG_HOVER=*_FUNC_IDEASCIIBOX_LONG_I; +if(!qbevent)break;evnt(26070,19147,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 7 , 0 ,NULL,3); +if(!qbevent)break;evnt(26070,19147,"ide_methods.bas");}while(r); +} +S_56955:; +if ((*__LONG_MCLICK)||new_error){ +if(qbevent){evnt(26070,19148,"ide_methods.bas");if(r)goto S_56955;} +do{ +*_FUNC_IDEASCIIBOX_LONG_SELECTED=*_FUNC_IDEASCIIBOX_LONG_I; +if(!qbevent)break;evnt(26070,19149,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEASCIIBOX_LONG_FOCUS= 1 ; +if(!qbevent)break;evnt(26070,19150,"ide_methods.bas");}while(r); +S_56958:; +if (((-(((float)(FUNC_TIMEELAPSEDSINCE(_FUNC_IDEASCIIBOX_SINGLE_LASTCLICK)))<=((float)( 0.3E+0 ))))&(-(*_FUNC_IDEASCIIBOX_LONG_LASTCLICKON==*_FUNC_IDEASCIIBOX_LONG_I)))||new_error){ +if(qbevent){evnt(26070,19151,"ide_methods.bas");if(r)goto S_56958;} +do{ +*_FUNC_IDEASCIIBOX_LONG_RELAUNCH= -1 ; +if(!qbevent)break;evnt(26070,19153,"ide_methods.bas");}while(r); +do{ +goto LABEL_INSERTCHAR; +if(!qbevent)break;evnt(26070,19154,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEASCIIBOX_SINGLE_LASTCLICK=func_timer(NULL,0); +if(!qbevent)break;evnt(26070,19156,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEASCIIBOX_LONG_LASTCLICKON=*_FUNC_IDEASCIIBOX_LONG_I; +if(!qbevent)break;evnt(26070,19157,"ide_methods.bas");}while(r); +} +}else{ +do{ +qbg_sub_color( 2 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,19160,"ide_methods.bas");}while(r); +} +S_56968:; +if ((-(*_FUNC_IDEASCIIBOX_LONG_SELECTED==*_FUNC_IDEASCIIBOX_LONG_I))||new_error){ +if(qbevent){evnt(26070,19162,"ide_methods.bas");if(r)goto S_56968;} +do{ +qbg_sub_color( 15 , 0 ,NULL,3); +if(!qbevent)break;evnt(26070,19162,"ide_methods.bas");}while(r); +} +do{ +sub__printstring(*(int16*)(((char*)_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[0])+((array_check((*_FUNC_IDEASCIIBOX_LONG_I)-_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[5]))*12)),*(int16*)(((char*)_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[0])+((array_check((*_FUNC_IDEASCIIBOX_LONG_I)-_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[5]))*12+2)),*((qbs**)((char*)_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[0]+((array_check((*_FUNC_IDEASCIIBOX_LONG_I)-_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[5]))*12+4))),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19163,"ide_methods.bas");}while(r); +fornext_continue_6265:; +} +fornext_exit_6265:; +do{ +qbg_sub_color( 0 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,19166,"ide_methods.bas");}while(r); +S_56974:; +if ((-(*_FUNC_IDEASCIIBOX_LONG_SELECTED> 0 ))||new_error){ +if(qbevent){evnt(26070,19167,"ide_methods.bas");if(r)goto S_56974;} +do{ +sub__printstring(*(int32*)(((char*)_FUNC_IDEASCIIBOX_UDT_P)+(0))+ 5 ,*(int32*)(((char*)_FUNC_IDEASCIIBOX_UDT_P)+(4))+ 19 ,qbs_add(qbs_new_txt_len("Selected:",9),qbs_str((int32)(*_FUNC_IDEASCIIBOX_LONG_SELECTED))),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19168,"ide_methods.bas");}while(r); +} +do{ +qbg_sub_color( 2 , 7 ,NULL,3); +if(!qbevent)break;evnt(26070,19171,"ide_methods.bas");}while(r); +S_56978:; +if (((-(*_FUNC_IDEASCIIBOX_LONG_HOVER> 0 ))&(-(*_FUNC_IDEASCIIBOX_LONG_HOVER!=*_FUNC_IDEASCIIBOX_LONG_SELECTED)))||new_error){ +if(qbevent){evnt(26070,19172,"ide_methods.bas");if(r)goto S_56978;} +do{ +sub__printstring(*(int32*)(((char*)_FUNC_IDEASCIIBOX_UDT_P)+(0))+ 5 ,*(int32*)(((char*)_FUNC_IDEASCIIBOX_UDT_P)+(4))+ 20 ,qbs_add(qbs_new_txt_len("Hovered: ",9),qbs_str((int32)(*_FUNC_IDEASCIIBOX_LONG_HOVER))),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19173,"ide_methods.bas");}while(r); +} +do{ +sub_pcopy( 1 , 0 ); +if(!qbevent)break;evnt(26070,19179,"ide_methods.bas");}while(r); +S_56982:; +if ((*_FUNC_IDEASCIIBOX_LONG_CX)||new_error){ +if(qbevent){evnt(26070,19180,"ide_methods.bas");if(r)goto S_56982;} +do{ +qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,19181,"ide_methods.bas");}while(r); +S_56984:; +if ((-(*_FUNC_IDEASCIIBOX_LONG_FOCUS== 1 ))||new_error){ +if(qbevent){evnt(26070,19182,"ide_methods.bas");if(r)goto S_56984;} +S_56985:; +if ((*_FUNC_IDEASCIIBOX_LONG_SELECTED)||new_error){ +if(qbevent){evnt(26070,19183,"ide_methods.bas");if(r)goto S_56985;} +do{ +qbg_sub_locate(*(int16*)(((char*)_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[0])+((array_check((*_FUNC_IDEASCIIBOX_LONG_SELECTED)-_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[5]))*12+2)),*(int16*)(((char*)_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[0])+((array_check((*_FUNC_IDEASCIIBOX_LONG_SELECTED)-_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_ASCIITABLE[5]))*12))+ 1 , 1 ,NULL,NULL,7); +if(!qbevent)break;evnt(26070,19184,"ide_methods.bas");}while(r); +} +}else{ +do{ +qbg_sub_locate(*_FUNC_IDEASCIIBOX_LONG_CY,*_FUNC_IDEASCIIBOX_LONG_CX, 1 ,NULL,NULL,7); +if(!qbevent)break;evnt(26070,19187,"ide_methods.bas");}while(r); +} +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,19189,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEASCIIBOX_LONG_CHANGE= 0 ; +if(!qbevent)break;evnt(26070,19193,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEASCIIBOX_LONG_MOUSEMOVED= 0 ; +if(!qbevent)break;evnt(26070,19194,"ide_methods.bas");}while(r); +S_56995:; +do{ +if(qbevent){evnt(26070,19195,"ide_methods.bas");if(r)goto S_56995;} +do{ +SUB_GETINPUT(); +if(!qbevent)break;evnt(26070,19196,"ide_methods.bas");}while(r); +S_56997:; +if ((*__LONG_MWHEEL)||new_error){ +if(qbevent){evnt(26070,19197,"ide_methods.bas");if(r)goto S_56997;} +do{ +*_FUNC_IDEASCIIBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,19197,"ide_methods.bas");}while(r); +} +S_57000:; +if ((*__LONG_KB)||new_error){ +if(qbevent){evnt(26070,19198,"ide_methods.bas");if(r)goto S_57000;} +do{ +*_FUNC_IDEASCIIBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,19198,"ide_methods.bas");}while(r); +} +S_57003:; +if ((*__LONG_MCLICK)||new_error){ +if(qbevent){evnt(26070,19199,"ide_methods.bas");if(r)goto S_57003;} +do{ +*_FUNC_IDEASCIIBOX_LONG_MOUSEDOWN= 1 ; +if(!qbevent)break;evnt(26070,19199,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEASCIIBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,19199,"ide_methods.bas");}while(r); +} +S_57007:; +if ((*__LONG_MRELEASE)||new_error){ +if(qbevent){evnt(26070,19200,"ide_methods.bas");if(r)goto S_57007;} +do{ +*_FUNC_IDEASCIIBOX_LONG_MOUSEUP= 1 ; +if(!qbevent)break;evnt(26070,19200,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEASCIIBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,19200,"ide_methods.bas");}while(r); +} +S_57011:; +if ((*__LONG_MB)||new_error){ +if(qbevent){evnt(26070,19201,"ide_methods.bas");if(r)goto S_57011;} +do{ +*_FUNC_IDEASCIIBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,19201,"ide_methods.bas");}while(r); +} +S_57014:; +if (((-(*__LONG_MX!=*_FUNC_IDEASCIIBOX_LONG_PREV__ASCII_CHR_046__MX))|(-(*__LONG_MY!=*_FUNC_IDEASCIIBOX_LONG_PREV__ASCII_CHR_046__MY)))||new_error){ +if(qbevent){evnt(26070,19202,"ide_methods.bas");if(r)goto S_57014;} +do{ +*_FUNC_IDEASCIIBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,19202,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEASCIIBOX_LONG_PREV__ASCII_CHR_046__MX=*__LONG_MX; +if(!qbevent)break;evnt(26070,19202,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEASCIIBOX_LONG_PREV__ASCII_CHR_046__MY=*__LONG_MY; +if(!qbevent)break;evnt(26070,19202,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEASCIIBOX_LONG_MOUSEMOVED= -1 ; +if(!qbevent)break;evnt(26070,19202,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEASCIIBOX_LONG_ALT=*__LONG_KALT; +if(!qbevent)break;evnt(26070,19203,"ide_methods.bas");}while(r); +S_57021:; +if ((-(*_FUNC_IDEASCIIBOX_LONG_ALT!=*_FUNC_IDEASCIIBOX_LONG_OLDALT))||new_error){ +if(qbevent){evnt(26070,19203,"ide_methods.bas");if(r)goto S_57021;} +do{ +*_FUNC_IDEASCIIBOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,19203,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEASCIIBOX_LONG_OLDALT=*_FUNC_IDEASCIIBOX_LONG_ALT; +if(!qbevent)break;evnt(26070,19204,"ide_methods.bas");}while(r); +do{ +sub__limit( 100 ); +if(!qbevent)break;evnt(26070,19205,"ide_methods.bas");}while(r); +S_57026:; +dl_continue_6267:; +}while((!(*_FUNC_IDEASCIIBOX_LONG_CHANGE))&&(!new_error)); +dl_exit_6267:; +if(qbevent){evnt(26070,19206,"ide_methods.bas");if(r)goto S_57026;} +S_57027:; +if ((*_FUNC_IDEASCIIBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ +if(qbevent){evnt(26070,19207,"ide_methods.bas");if(r)goto S_57027;} +do{ +*__LONG_IDEHL= 1 ; +if(!qbevent)break;evnt(26070,19207,"ide_methods.bas");}while(r); +}else{ +do{ +*__LONG_IDEHL= 0 ; +if(!qbevent)break;evnt(26070,19207,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDEASCIIBOX_STRING_ALTLETTER,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19209,"ide_methods.bas");}while(r); +S_57033:; +if ((*_FUNC_IDEASCIIBOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ +if(qbevent){evnt(26070,19210,"ide_methods.bas");if(r)goto S_57033;} +S_57034:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ +if(qbevent){evnt(26070,19211,"ide_methods.bas");if(r)goto S_57034;} +do{ +*_FUNC_IDEASCIIBOX_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19212,"ide_methods.bas");}while(r); +S_57036:; +if (((-(*_FUNC_IDEASCIIBOX_LONG_K>= 65 ))&(-(*_FUNC_IDEASCIIBOX_LONG_K<= 90 )))||new_error){ +if(qbevent){evnt(26070,19213,"ide_methods.bas");if(r)goto S_57036;} +do{ +qbs_set(_FUNC_IDEASCIIBOX_STRING_ALTLETTER,func_chr(*_FUNC_IDEASCIIBOX_LONG_K)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19213,"ide_methods.bas");}while(r); +} +} +} +do{ +qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,19216,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); +if(!qbevent)break;evnt(26070,19216,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,19216,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEASCIIBOX_LONG_INFO= 0 ; +if(!qbevent)break;evnt(26070,19220,"ide_methods.bas");}while(r); +S_57045:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,19221,"ide_methods.bas");if(r)goto S_57045;} +do{ +qbs_set(__STRING_K,func_chr( 255 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19221,"ide_methods.bas");}while(r); +} +S_57048:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ +if(qbevent){evnt(26070,19222,"ide_methods.bas");if(r)goto S_57048;} +do{ +*_FUNC_IDEASCIIBOX_LONG_FOCUS=*_FUNC_IDEASCIIBOX_LONG_FOCUS+ 1 ; +if(!qbevent)break;evnt(26070,19222,"ide_methods.bas");}while(r); +} +S_57051:; +if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||new_error){ +if(qbevent){evnt(26070,19223,"ide_methods.bas");if(r)goto S_57051;} +do{ +*_FUNC_IDEASCIIBOX_LONG_FOCUS=*_FUNC_IDEASCIIBOX_LONG_FOCUS- 1 ; +if(!qbevent)break;evnt(26070,19223,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_K,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19223,"ide_methods.bas");}while(r); +} +S_57055:; +if ((-(*_FUNC_IDEASCIIBOX_LONG_FOCUS< 1 ))||new_error){ +if(qbevent){evnt(26070,19224,"ide_methods.bas");if(r)goto S_57055;} +do{ +*_FUNC_IDEASCIIBOX_LONG_FOCUS=*_FUNC_IDEASCIIBOX_LONG_LASTFOCUS; +if(!qbevent)break;evnt(26070,19224,"ide_methods.bas");}while(r); +} +S_57058:; +if ((-(*_FUNC_IDEASCIIBOX_LONG_FOCUS>*_FUNC_IDEASCIIBOX_LONG_LASTFOCUS))||new_error){ +if(qbevent){evnt(26070,19225,"ide_methods.bas");if(r)goto S_57058;} +do{ +*_FUNC_IDEASCIIBOX_LONG_FOCUS= 1 ; +if(!qbevent)break;evnt(26070,19225,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEASCIIBOX_LONG_F= 1 ; +if(!qbevent)break;evnt(26070,19226,"ide_methods.bas");}while(r); +S_57062:; +fornext_value6270= 1 ; +fornext_finalvalue6270= 100 ; +fornext_step6270= 1 ; +if (fornext_step6270<0) fornext_step_negative6270=1; else fornext_step_negative6270=0; +if (new_error) goto fornext_error6270; +goto fornext_entrylabel6270; +while(1){ +fornext_value6270=fornext_step6270+(*_FUNC_IDEASCIIBOX_LONG_I); +fornext_entrylabel6270: +*_FUNC_IDEASCIIBOX_LONG_I=fornext_value6270; +if (fornext_step_negative6270){ +if (fornext_value6270fornext_finalvalue6270) break; +} +fornext_error6270:; +if(qbevent){evnt(26070,19227,"ide_methods.bas");if(r)goto S_57062;} +do{ +*_FUNC_IDEASCIIBOX_LONG_T=*(int32*)(((char*)_FUNC_IDEASCIIBOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEASCIIBOX_LONG_I)-_FUNC_IDEASCIIBOX_ARRAY_UDT_O[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_O[5]))*89+36)); +if(!qbevent)break;evnt(26070,19228,"ide_methods.bas");}while(r); +S_57064:; +if ((*_FUNC_IDEASCIIBOX_LONG_T)||new_error){ +if(qbevent){evnt(26070,19229,"ide_methods.bas");if(r)goto S_57064;} +do{ +*_FUNC_IDEASCIIBOX_LONG_FOCUSOFFSET=*_FUNC_IDEASCIIBOX_LONG_FOCUS-*_FUNC_IDEASCIIBOX_LONG_F; +if(!qbevent)break;evnt(26070,19230,"ide_methods.bas");}while(r); +do{ +SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDEASCIIBOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEASCIIBOX_LONG_I)-_FUNC_IDEASCIIBOX_ARRAY_UDT_O[4],_FUNC_IDEASCIIBOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDEASCIIBOX_LONG_FOCUS,_FUNC_IDEASCIIBOX_LONG_F,_FUNC_IDEASCIIBOX_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDEASCIIBOX_STRING_ALTLETTER,__LONG_MB,_FUNC_IDEASCIIBOX_LONG_MOUSEDOWN,_FUNC_IDEASCIIBOX_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDEASCIIBOX_LONG_INFO,__LONG_MWHEEL); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19231,"ide_methods.bas");}while(r); +} +fornext_continue_6269:; +} +fornext_exit_6269:; +S_57069:; +if (((-(*__LONG_MY>*(int32*)(((char*)_FUNC_IDEASCIIBOX_UDT_P)+(4))))&(-(*__LONG_MY<(*(int32*)(((char*)_FUNC_IDEASCIIBOX_UDT_P)+(4))+*(int32*)(((char*)_FUNC_IDEASCIIBOX_UDT_P)+(12)))))&(-(*__LONG_MX>*(int32*)(((char*)_FUNC_IDEASCIIBOX_UDT_P)+(0))))&(-(*__LONG_MX<(*(int32*)(((char*)_FUNC_IDEASCIIBOX_UDT_P)+(0))+*(int32*)(((char*)_FUNC_IDEASCIIBOX_UDT_P)+(8))))))||new_error){ +if(qbevent){evnt(26070,19236,"ide_methods.bas");if(r)goto S_57069;} +S_57070:; +if (((-(*_FUNC_IDEASCIIBOX_LONG_HOVER== 0 ))&*__LONG_MCLICK)||new_error){ +if(qbevent){evnt(26070,19237,"ide_methods.bas");if(r)goto S_57070;} +do{ +*_FUNC_IDEASCIIBOX_LONG_FOCUS= 1 ; +if(!qbevent)break;evnt(26070,19237,"ide_methods.bas");}while(r); +} +} +S_57074:; +if ((qbs_cleanup(qbs_tmp_base,((qbs_equal(__STRING_K,func_chr( 13 )))&(-(*_FUNC_IDEASCIIBOX_LONG_FOCUS== 1 )))))||new_error){ +if(qbevent){evnt(26070,19240,"ide_methods.bas");if(r)goto S_57074;} +do{ +goto LABEL_INSERTCHAR; +if(!qbevent)break;evnt(26070,19241,"ide_methods.bas");}while(r); +} +S_57077:; +if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_IDEASCIIBOX_LONG_FOCUS== 2 ))&(((qbs_equal(__STRING_K,func_chr( 13 )))|(-(*_FUNC_IDEASCIIBOX_LONG_INFO!= 0 ))))))||new_error){ +if(qbevent){evnt(26070,19244,"ide_methods.bas");if(r)goto S_57077;} +LABEL_INSERTCHAR:; +if(qbevent){evnt(26070,19245,"ide_methods.bas");r=0;} +S_57078:; +if (((-(*_FUNC_IDEASCIIBOX_LONG_SELECTED< 32 ))&(-(*_FUNC_IDEASCIIBOX_LONG_ASCIIWARNINGSHOWN== 0 )))||new_error){ +if(qbevent){evnt(26070,19246,"ide_methods.bas");if(r)goto S_57078;} +do{ +*_FUNC_IDEASCIIBOX_LONG_ASCIIWARNINGSHOWN= -1 ; +if(!qbevent)break;evnt(26070,19247,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEASCIIBOX_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Control Characters",18),qbs_new_txt_len("Inserting ASCII control characters (1-32) may cause\\nunexpected IDE behavior. Consider inserting CHR$ instead.\\nProceed anyway?",127),qbs_new_txt_len("#Yes;#No;#Cancel",16)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19248,"ide_methods.bas");}while(r); +S_57081:; +if ((-(*_FUNC_IDEASCIIBOX_LONG_RESULT== 2 ))||new_error){ +if(qbevent){evnt(26070,19249,"ide_methods.bas");if(r)goto S_57081;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,19249,"ide_methods.bas");}while(r); +} +S_57084:; +if ((-(*_FUNC_IDEASCIIBOX_LONG_RESULT== 3 ))||new_error){ +if(qbevent){evnt(26070,19250,"ide_methods.bas");if(r)goto S_57084;} +do{ +goto LABEL_DLGLOOP; +if(!qbevent)break;evnt(26070,19250,"ide_methods.bas");}while(r); +} +} +do{ +qbs_set(_FUNC_IDEASCIIBOX_STRING_IDEASCIIBOX,func_chr(*_FUNC_IDEASCIIBOX_LONG_SELECTED)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19252,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,19253,"ide_methods.bas");}while(r); +} +S_57091:; +if ((qbs_cleanup(qbs_tmp_base,((-(*_FUNC_IDEASCIIBOX_LONG_FOCUS== 3 ))&(((-(*_FUNC_IDEASCIIBOX_LONG_INFO!= 0 ))|(qbs_equal(__STRING_K,func_chr( 13 ))))))))||new_error){ +if(qbevent){evnt(26070,19256,"ide_methods.bas");if(r)goto S_57091;} +do{ +qbs_set(_FUNC_IDEASCIIBOX_STRING_IDEASCIIBOX,qbs_add(qbs_add(qbs_new_txt_len("CHR$(",5),FUNC_STR2(_FUNC_IDEASCIIBOX_LONG_SELECTED)),qbs_new_txt_len(")",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19257,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,19258,"ide_methods.bas");}while(r); +} +S_57095:; +if ((qbs_cleanup(qbs_tmp_base,(((-(*_FUNC_IDEASCIIBOX_LONG_INFO!= 0 ))|(qbs_equal(__STRING_K,func_chr( 13 )))))&(-(*_FUNC_IDEASCIIBOX_LONG_FOCUS== 4 ))))||new_error){ +if(qbevent){evnt(26070,19262,"ide_methods.bas");if(r)goto S_57095;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,19262,"ide_methods.bas");}while(r); +} +S_57098:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,func_chr( 27 ))))||new_error){ +if(qbevent){evnt(26070,19264,"ide_methods.bas");if(r)goto S_57098;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,19264,"ide_methods.bas");}while(r); +} +S_57101:; +if ((-(*_FUNC_IDEASCIIBOX_LONG_FOCUS== 1 ))||new_error){ +if(qbevent){evnt(26070,19266,"ide_methods.bas");if(r)goto S_57101;} +do{ +*__LONG_KCTRL=func__keydown( 100305 )|func__keydown( 100306 ); +if(!qbevent)break;evnt(26070,19267,"ide_methods.bas");}while(r); +S_57103:; +if(qbevent){evnt(26070,19268,"ide_methods.bas");if(r)goto S_57103;} +S_57104:; +if (((*__LONG_KB==( 18176 )))||new_error){ +if(qbevent){evnt(26070,19269,"ide_methods.bas");if(r)goto S_57104;} +do{ +*_FUNC_IDEASCIIBOX_LONG_SELECTED= 1 ; +if(!qbevent)break;evnt(26070,19269,"ide_methods.bas");}while(r); +sc_ec_432_end:; +goto sc_6271_end; +} +S_57106:; +if (((*__LONG_KB==( 20224 )))||new_error){ +if(qbevent){evnt(26070,19270,"ide_methods.bas");if(r)goto S_57106;} +do{ +*_FUNC_IDEASCIIBOX_LONG_SELECTED= 255 ; +if(!qbevent)break;evnt(26070,19270,"ide_methods.bas");}while(r); +sc_ec_433_end:; +goto sc_6271_end; +} +S_57108:; +if (((*__LONG_KB==( 19712 )))||new_error){ +if(qbevent){evnt(26070,19271,"ide_methods.bas");if(r)goto S_57108;} +S_57109:; +if ((*__LONG_KCTRL&(-(*_FUNC_IDEASCIIBOX_LONG_SELECTED> 0 )))||new_error){ +if(qbevent){evnt(26070,19272,"ide_methods.bas");if(r)goto S_57109;} +S_57110:; +while((!((-((*_FUNC_IDEASCIIBOX_LONG_SELECTED% 16 )==( 0 )))|(-(*_FUNC_IDEASCIIBOX_LONG_SELECTED== 255 ))))||new_error){ +if(qbevent){evnt(26070,19273,"ide_methods.bas");if(r)goto S_57110;} +do{ +*_FUNC_IDEASCIIBOX_LONG_SELECTED=*_FUNC_IDEASCIIBOX_LONG_SELECTED+ 1 ; +if(!qbevent)break;evnt(26070,19274,"ide_methods.bas");}while(r); +dl_continue_6272:; +} +dl_exit_6272:; +}else{ +do{ +*_FUNC_IDEASCIIBOX_LONG_SELECTED=*_FUNC_IDEASCIIBOX_LONG_SELECTED+ 1 ; +if(!qbevent)break;evnt(26070,19277,"ide_methods.bas");}while(r); +} +S_57116:; +if ((-(*_FUNC_IDEASCIIBOX_LONG_SELECTED> 255 ))||new_error){ +if(qbevent){evnt(26070,19279,"ide_methods.bas");if(r)goto S_57116;} +do{ +*_FUNC_IDEASCIIBOX_LONG_SELECTED= 1 ; +if(!qbevent)break;evnt(26070,19279,"ide_methods.bas");}while(r); +} +sc_ec_434_end:; +goto sc_6271_end; +} +S_57119:; +if (((*__LONG_KB==( 19200 )))||new_error){ +if(qbevent){evnt(26070,19280,"ide_methods.bas");if(r)goto S_57119;} +S_57120:; +if ((*__LONG_KCTRL&(-(*_FUNC_IDEASCIIBOX_LONG_SELECTED> 0 )))||new_error){ +if(qbevent){evnt(26070,19281,"ide_methods.bas");if(r)goto S_57120;} +S_57121:; +while((!(-((*_FUNC_IDEASCIIBOX_LONG_SELECTED% 16 )==( 1 ))))||new_error){ +if(qbevent){evnt(26070,19282,"ide_methods.bas");if(r)goto S_57121;} +do{ +*_FUNC_IDEASCIIBOX_LONG_SELECTED=*_FUNC_IDEASCIIBOX_LONG_SELECTED- 1 ; +if(!qbevent)break;evnt(26070,19283,"ide_methods.bas");}while(r); +dl_continue_6273:; +} +dl_exit_6273:; +}else{ +do{ +*_FUNC_IDEASCIIBOX_LONG_SELECTED=*_FUNC_IDEASCIIBOX_LONG_SELECTED- 1 ; +if(!qbevent)break;evnt(26070,19286,"ide_methods.bas");}while(r); +} +S_57127:; +if ((-(*_FUNC_IDEASCIIBOX_LONG_SELECTED< 1 ))||new_error){ +if(qbevent){evnt(26070,19288,"ide_methods.bas");if(r)goto S_57127;} +do{ +*_FUNC_IDEASCIIBOX_LONG_SELECTED= 255 ; +if(!qbevent)break;evnt(26070,19288,"ide_methods.bas");}while(r); +} +sc_ec_435_end:; +goto sc_6271_end; +} +S_57130:; +if (((*__LONG_KB==( 20480 )))||new_error){ +if(qbevent){evnt(26070,19289,"ide_methods.bas");if(r)goto S_57130;} +S_57131:; +if ((*__LONG_KCTRL&(-(*_FUNC_IDEASCIIBOX_LONG_SELECTED> 0 )))||new_error){ +if(qbevent){evnt(26070,19290,"ide_methods.bas");if(r)goto S_57131;} +S_57132:; +if ((-(*_FUNC_IDEASCIIBOX_LONG_SELECTED== 240 ))||new_error){ +if(qbevent){evnt(26070,19291,"ide_methods.bas");if(r)goto S_57132;} +do{ +*_FUNC_IDEASCIIBOX_LONG_SELECTED= 255 ; +if(!qbevent)break;evnt(26070,19292,"ide_methods.bas");}while(r); +}else{ +S_57135:; +while((!(-(*_FUNC_IDEASCIIBOX_LONG_SELECTED>= 240 )))||new_error){ +if(qbevent){evnt(26070,19294,"ide_methods.bas");if(r)goto S_57135;} +do{ +*_FUNC_IDEASCIIBOX_LONG_SELECTED=*_FUNC_IDEASCIIBOX_LONG_SELECTED+ 16 ; +if(!qbevent)break;evnt(26070,19295,"ide_methods.bas");}while(r); +dl_continue_6274:; +} +dl_exit_6274:; +} +S_57139:; +if ((-(*_FUNC_IDEASCIIBOX_LONG_SELECTED> 255 ))||new_error){ +if(qbevent){evnt(26070,19298,"ide_methods.bas");if(r)goto S_57139;} +do{ +*_FUNC_IDEASCIIBOX_LONG_SELECTED= 255 ; +if(!qbevent)break;evnt(26070,19298,"ide_methods.bas");}while(r); +} +}else{ +S_57143:; +if ((-(*_FUNC_IDEASCIIBOX_LONG_SELECTED== 240 ))||new_error){ +if(qbevent){evnt(26070,19300,"ide_methods.bas");if(r)goto S_57143;} +do{ +*_FUNC_IDEASCIIBOX_LONG_SELECTED= 255 ; +if(!qbevent)break;evnt(26070,19302,"ide_methods.bas");}while(r); +S_57145:; +}else{ +if (-((*_FUNC_IDEASCIIBOX_LONG_SELECTED+ 16 )<=( 255 ))){ +if(qbevent){evnt(26070,19303,"ide_methods.bas");if(r)goto S_57145;} +do{ +*_FUNC_IDEASCIIBOX_LONG_SELECTED=*_FUNC_IDEASCIIBOX_LONG_SELECTED+ 16 ; +if(!qbevent)break;evnt(26070,19304,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_IDEASCIIBOX_LONG_SELECTED=*_FUNC_IDEASCIIBOX_LONG_SELECTED+ 16 - 256 ; +if(!qbevent)break;evnt(26070,19306,"ide_methods.bas");}while(r); +} +} +} +sc_ec_436_end:; +goto sc_6271_end; +} +S_57151:; +if (((*__LONG_KB==( 18432 )))||new_error){ +if(qbevent){evnt(26070,19309,"ide_methods.bas");if(r)goto S_57151;} +S_57152:; +if ((*__LONG_KCTRL&(-(*_FUNC_IDEASCIIBOX_LONG_SELECTED> 0 )))||new_error){ +if(qbevent){evnt(26070,19310,"ide_methods.bas");if(r)goto S_57152;} +S_57153:; +while((!(-(*_FUNC_IDEASCIIBOX_LONG_SELECTED<= 16 )))||new_error){ +if(qbevent){evnt(26070,19311,"ide_methods.bas");if(r)goto S_57153;} +do{ +*_FUNC_IDEASCIIBOX_LONG_SELECTED=*_FUNC_IDEASCIIBOX_LONG_SELECTED- 16 ; +if(!qbevent)break;evnt(26070,19312,"ide_methods.bas");}while(r); +dl_continue_6275:; +} +dl_exit_6275:; +S_57156:; +if ((-(*_FUNC_IDEASCIIBOX_LONG_SELECTED< 1 ))||new_error){ +if(qbevent){evnt(26070,19314,"ide_methods.bas");if(r)goto S_57156;} +do{ +*_FUNC_IDEASCIIBOX_LONG_SELECTED= 1 ; +if(!qbevent)break;evnt(26070,19314,"ide_methods.bas");}while(r); +} +}else{ +S_57160:; +if ((-(*_FUNC_IDEASCIIBOX_LONG_SELECTED== 16 ))||new_error){ +if(qbevent){evnt(26070,19316,"ide_methods.bas");if(r)goto S_57160;} +do{ +*_FUNC_IDEASCIIBOX_LONG_SELECTED= 240 ; +if(!qbevent)break;evnt(26070,19318,"ide_methods.bas");}while(r); +S_57162:; +}else{ +if (-((*_FUNC_IDEASCIIBOX_LONG_SELECTED- 16 )>=( 1 ))){ +if(qbevent){evnt(26070,19319,"ide_methods.bas");if(r)goto S_57162;} +do{ +*_FUNC_IDEASCIIBOX_LONG_SELECTED=*_FUNC_IDEASCIIBOX_LONG_SELECTED- 16 ; +if(!qbevent)break;evnt(26070,19320,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_IDEASCIIBOX_LONG_SELECTED=*_FUNC_IDEASCIIBOX_LONG_SELECTED- 16 + 256 ; +if(!qbevent)break;evnt(26070,19322,"ide_methods.bas");}while(r); +} +} +} +sc_ec_437_end:; +goto sc_6271_end; +} +sc_6271_end:; +} +do{ +*_FUNC_IDEASCIIBOX_LONG_MOUSEDOWN= 0 ; +if(!qbevent)break;evnt(26070,19329,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEASCIIBOX_LONG_MOUSEUP= 0 ; +if(!qbevent)break;evnt(26070,19330,"ide_methods.bas");}while(r); +LABEL_DLGLOOP:; +if(qbevent){evnt(26070,19332,"ide_methods.bas");r=0;} +dl_continue_6258:; +}while(1); +dl_exit_6258:; +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free258.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_IDEASCIIBOX_STRING_IDEASCIIBOX);return _FUNC_IDEASCIIBOX_STRING_IDEASCIIBOX; +} +qbs* FUNC_IDEF1BOX(qbs*_FUNC_IDEF1BOX_STRING_LNKS,int32*_FUNC_IDEF1BOX_LONG_LNKS){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data259.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +sub_pcopy( 0 , 2 ); +if(!qbevent)break;evnt(26070,19341,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 0 , 1 ); +if(!qbevent)break;evnt(26070,19342,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,19343,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEF1BOX_LONG_FOCUS= 1 ; +if(!qbevent)break;evnt(26070,19344,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26070,19345,"ide_methods.bas");}while(r); +do{ if (_FUNC_IDEF1BOX_ARRAY_UDT_O[2]&2){ error(10); @@ -193451,950 +193451,950 @@ if (!_FUNC_IDEF1BOX_ARRAY_UDT_O[0]) error(257); } _FUNC_IDEF1BOX_ARRAY_UDT_O[2]|=1; } -} -if(!qbevent)break;evnt(26070,19346,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(26070,19347,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEF1BOX_STRING1_SEP,func_chr( 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19348,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEF1BOX_LONG_I= 0 ; -if(!qbevent)break;evnt(26070,19355,"ide_methods.bas");}while(r); -do{ -SUB_IDEPAR((void*)( ((char*)(_FUNC_IDEF1BOX_UDT_P)) + (0) ),&(pass6277= 40 ),&(pass6278=*_FUNC_IDEF1BOX_LONG_LNKS+ 3 ),qbs_new_txt_len("Contextual help",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19356,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEF1BOX_LONG_I=*_FUNC_IDEF1BOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,19358,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*89+36))= 2 ; -if(!qbevent)break;evnt(26070,19359,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*89+24))= 1 ; -if(!qbevent)break;evnt(26070,19360,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*89+28))= 36 ; -if(!qbevent)break;evnt(26070,19362,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*89+32))=*_FUNC_IDEF1BOX_LONG_LNKS; -if(!qbevent)break;evnt(26070,19362,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDEF1BOX_STRING_LNKS); -if(!qbevent)break;evnt(26070,19363,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*89+64))= 1 ; -if(!qbevent)break;evnt(26070,19364,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("Which?",6)); -if(!qbevent)break;evnt(26070,19365,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEF1BOX_LONG_I=*_FUNC_IDEF1BOX_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,19367,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*89+36))= 3 ; -if(!qbevent)break;evnt(26070,19368,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*89+24))=*_FUNC_IDEF1BOX_LONG_LNKS+ 3 ; -if(!qbevent)break;evnt(26070,19369,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(qbs_new_txt_len("#OK",3)); -if(!qbevent)break;evnt(26070,19370,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*89+48))= 1 ; -if(!qbevent)break;evnt(26070,19371,"ide_methods.bas");}while(r); -S_57196:; -fornext_value6280= 1 ; -fornext_finalvalue6280= 100 ; -fornext_step6280= 1 ; -if (fornext_step6280<0) fornext_step_negative6280=1; else fornext_step_negative6280=0; -if (new_error) goto fornext_error6280; -goto fornext_entrylabel6280; -while(1){ -fornext_value6280=fornext_step6280+(*_FUNC_IDEF1BOX_LONG_I); -fornext_entrylabel6280: -*_FUNC_IDEF1BOX_LONG_I=fornext_value6280; -if (fornext_step_negative6280){ -if (fornext_value6280fornext_finalvalue6280) break; -} -fornext_error6280:; -if(qbevent){evnt(26070,19376,"ide_methods.bas");if(r)goto S_57196;} -do{ -memcpy(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*89)+ 0,((char*)_FUNC_IDEF1BOX_UDT_P)+(0)+ 0, 20); -if(!qbevent)break;evnt(26070,19376,"ide_methods.bas");}while(r); -fornext_continue_6279:; -} -fornext_exit_6279:; -S_57199:; -do{ -if(qbevent){evnt(26070,19379,"ide_methods.bas");if(r)goto S_57199;} -do{ -SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDEF1BOX_UDT_P)) + (0) )); -if(!qbevent)break;evnt(26070,19382,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEF1BOX_LONG_F= 1 ; -if(!qbevent)break;evnt(26070,19383,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEF1BOX_LONG_CX= 0 ; -if(!qbevent)break;evnt(26070,19383,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEF1BOX_LONG_CY= 0 ; -if(!qbevent)break;evnt(26070,19383,"ide_methods.bas");}while(r); -S_57204:; -fornext_value6283= 1 ; -fornext_finalvalue6283= 100 ; -fornext_step6283= 1 ; -if (fornext_step6283<0) fornext_step_negative6283=1; else fornext_step_negative6283=0; -if (new_error) goto fornext_error6283; -goto fornext_entrylabel6283; -while(1){ -fornext_value6283=fornext_step6283+(*_FUNC_IDEF1BOX_LONG_I); -fornext_entrylabel6283: -*_FUNC_IDEF1BOX_LONG_I=fornext_value6283; -if (fornext_step_negative6283){ -if (fornext_value6283fornext_finalvalue6283) break; -} -fornext_error6283:; -if(qbevent){evnt(26070,19384,"ide_methods.bas");if(r)goto S_57204;} -S_57205:; -if ((*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*89+36)))||new_error){ -if(qbevent){evnt(26070,19385,"ide_methods.bas");if(r)goto S_57205;} -do{ -*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*89+60))=*_FUNC_IDEF1BOX_LONG_FOCUS-*_FUNC_IDEF1BOX_LONG_F; -if(!qbevent)break;evnt(26070,19388,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*89+52))= 0 ; -if(!qbevent)break;evnt(26070,19389,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*89+56))= 0 ; -if(!qbevent)break;evnt(26070,19389,"ide_methods.bas");}while(r); -do{ -SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDEF1BOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDEF1BOX_LONG_F); -if(!qbevent)break;evnt(26070,19390,"ide_methods.bas");}while(r); -S_57210:; -if ((*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*89+52)))||new_error){ -if(qbevent){evnt(26070,19391,"ide_methods.bas");if(r)goto S_57210;} -do{ -*_FUNC_IDEF1BOX_LONG_CX=*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*89+52)); -if(!qbevent)break;evnt(26070,19391,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEF1BOX_LONG_CY=*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*89+56)); -if(!qbevent)break;evnt(26070,19391,"ide_methods.bas");}while(r); -} -} -fornext_continue_6282:; -} -fornext_exit_6282:; -do{ -*_FUNC_IDEF1BOX_LONG_LASTFOCUS=*_FUNC_IDEF1BOX_LONG_F- 1 ; -if(!qbevent)break;evnt(26070,19394,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 1 , 0 ); -if(!qbevent)break;evnt(26070,19401,"ide_methods.bas");}while(r); -S_57218:; -if ((*_FUNC_IDEF1BOX_LONG_CX)||new_error){ -if(qbevent){evnt(26070,19402,"ide_methods.bas");if(r)goto S_57218;} -do{ -qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,19402,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*_FUNC_IDEF1BOX_LONG_CY,*_FUNC_IDEF1BOX_LONG_CX, 1 ,NULL,NULL,7); -if(!qbevent)break;evnt(26070,19402,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,19402,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEF1BOX_LONG_CHANGE= 0 ; -if(!qbevent)break;evnt(26070,19405,"ide_methods.bas");}while(r); -S_57224:; -do{ -if(qbevent){evnt(26070,19406,"ide_methods.bas");if(r)goto S_57224;} -do{ -SUB_GETINPUT(); -if(!qbevent)break;evnt(26070,19407,"ide_methods.bas");}while(r); -S_57226:; -if ((*__LONG_MWHEEL)||new_error){ -if(qbevent){evnt(26070,19408,"ide_methods.bas");if(r)goto S_57226;} -do{ -*_FUNC_IDEF1BOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,19408,"ide_methods.bas");}while(r); -} -S_57229:; -if ((*__LONG_KB)||new_error){ -if(qbevent){evnt(26070,19409,"ide_methods.bas");if(r)goto S_57229;} -do{ -*_FUNC_IDEF1BOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,19409,"ide_methods.bas");}while(r); -} -S_57232:; -if ((*__LONG_MCLICK)||new_error){ -if(qbevent){evnt(26070,19410,"ide_methods.bas");if(r)goto S_57232;} -do{ -*_FUNC_IDEF1BOX_LONG_MOUSEDOWN= 1 ; -if(!qbevent)break;evnt(26070,19410,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEF1BOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,19410,"ide_methods.bas");}while(r); -} -S_57236:; -if ((*__LONG_MRELEASE)||new_error){ -if(qbevent){evnt(26070,19411,"ide_methods.bas");if(r)goto S_57236;} -do{ -*_FUNC_IDEF1BOX_LONG_MOUSEUP= 1 ; -if(!qbevent)break;evnt(26070,19411,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEF1BOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,19411,"ide_methods.bas");}while(r); -} -S_57240:; -if ((*__LONG_MB)||new_error){ -if(qbevent){evnt(26070,19412,"ide_methods.bas");if(r)goto S_57240;} -do{ -*_FUNC_IDEF1BOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,19412,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEF1BOX_LONG_ALT=*__LONG_KALT; -if(!qbevent)break;evnt(26070,19413,"ide_methods.bas");}while(r); -S_57244:; -if ((-(*_FUNC_IDEF1BOX_LONG_ALT!=*_FUNC_IDEF1BOX_LONG_OLDALT))||new_error){ -if(qbevent){evnt(26070,19413,"ide_methods.bas");if(r)goto S_57244;} -do{ -*_FUNC_IDEF1BOX_LONG_CHANGE= 1 ; -if(!qbevent)break;evnt(26070,19413,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEF1BOX_LONG_OLDALT=*_FUNC_IDEF1BOX_LONG_ALT; -if(!qbevent)break;evnt(26070,19414,"ide_methods.bas");}while(r); -do{ -sub__limit( 100 ); -if(!qbevent)break;evnt(26070,19415,"ide_methods.bas");}while(r); -S_57249:; -dl_continue_6284:; -}while((!(*_FUNC_IDEF1BOX_LONG_CHANGE))&&(!new_error)); -dl_exit_6284:; -if(qbevent){evnt(26070,19416,"ide_methods.bas");if(r)goto S_57249;} -S_57250:; -if ((*_FUNC_IDEF1BOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(26070,19417,"ide_methods.bas");if(r)goto S_57250;} -do{ -*__LONG_IDEHL= 1 ; -if(!qbevent)break;evnt(26070,19417,"ide_methods.bas");}while(r); -}else{ -do{ -*__LONG_IDEHL= 0 ; -if(!qbevent)break;evnt(26070,19417,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_IDEF1BOX_STRING_ALTLETTER,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19419,"ide_methods.bas");}while(r); -S_57256:; -if ((*_FUNC_IDEF1BOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ -if(qbevent){evnt(26070,19420,"ide_methods.bas");if(r)goto S_57256;} -S_57257:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ -if(qbevent){evnt(26070,19421,"ide_methods.bas");if(r)goto S_57257;} -do{ -*_FUNC_IDEF1BOX_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19422,"ide_methods.bas");}while(r); -S_57259:; -if (((-(*_FUNC_IDEF1BOX_LONG_K>= 65 ))&(-(*_FUNC_IDEF1BOX_LONG_K<= 90 )))||new_error){ -if(qbevent){evnt(26070,19423,"ide_methods.bas");if(r)goto S_57259;} -do{ -qbs_set(_FUNC_IDEF1BOX_STRING_ALTLETTER,func_chr(*_FUNC_IDEF1BOX_LONG_K)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19423,"ide_methods.bas");}while(r); -} -} -} -do{ -qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,19426,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); -if(!qbevent)break;evnt(26070,19426,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,19426,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEF1BOX_LONG_INFO= 0 ; -if(!qbevent)break;evnt(26070,19430,"ide_methods.bas");}while(r); -S_57268:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,19431,"ide_methods.bas");if(r)goto S_57268;} -do{ -qbs_set(__STRING_K,func_chr( 255 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19431,"ide_methods.bas");}while(r); -} -S_57271:; -if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ -if(qbevent){evnt(26070,19432,"ide_methods.bas");if(r)goto S_57271;} -do{ -*_FUNC_IDEF1BOX_LONG_FOCUS=*_FUNC_IDEF1BOX_LONG_FOCUS+ 1 ; -if(!qbevent)break;evnt(26070,19432,"ide_methods.bas");}while(r); -} -S_57274:; -if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||new_error){ -if(qbevent){evnt(26070,19433,"ide_methods.bas");if(r)goto S_57274;} -do{ -*_FUNC_IDEF1BOX_LONG_FOCUS=*_FUNC_IDEF1BOX_LONG_FOCUS- 1 ; -if(!qbevent)break;evnt(26070,19433,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_K,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19433,"ide_methods.bas");}while(r); -} -S_57278:; -if ((-(*_FUNC_IDEF1BOX_LONG_FOCUS< 1 ))||new_error){ -if(qbevent){evnt(26070,19434,"ide_methods.bas");if(r)goto S_57278;} -do{ -*_FUNC_IDEF1BOX_LONG_FOCUS=*_FUNC_IDEF1BOX_LONG_LASTFOCUS; -if(!qbevent)break;evnt(26070,19434,"ide_methods.bas");}while(r); -} -S_57281:; -if ((-(*_FUNC_IDEF1BOX_LONG_FOCUS>*_FUNC_IDEF1BOX_LONG_LASTFOCUS))||new_error){ -if(qbevent){evnt(26070,19435,"ide_methods.bas");if(r)goto S_57281;} -do{ -*_FUNC_IDEF1BOX_LONG_FOCUS= 1 ; -if(!qbevent)break;evnt(26070,19435,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_IDEF1BOX_LONG_F= 1 ; -if(!qbevent)break;evnt(26070,19436,"ide_methods.bas");}while(r); -S_57285:; -fornext_value6287= 1 ; -fornext_finalvalue6287= 100 ; -fornext_step6287= 1 ; -if (fornext_step6287<0) fornext_step_negative6287=1; else fornext_step_negative6287=0; -if (new_error) goto fornext_error6287; -goto fornext_entrylabel6287; -while(1){ -fornext_value6287=fornext_step6287+(*_FUNC_IDEF1BOX_LONG_I); -fornext_entrylabel6287: -*_FUNC_IDEF1BOX_LONG_I=fornext_value6287; -if (fornext_step_negative6287){ -if (fornext_value6287fornext_finalvalue6287) break; -} -fornext_error6287:; -if(qbevent){evnt(26070,19437,"ide_methods.bas");if(r)goto S_57285;} -do{ -*_FUNC_IDEF1BOX_LONG_T=*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*89+36)); -if(!qbevent)break;evnt(26070,19438,"ide_methods.bas");}while(r); -S_57287:; -if ((*_FUNC_IDEF1BOX_LONG_T)||new_error){ -if(qbevent){evnt(26070,19439,"ide_methods.bas");if(r)goto S_57287;} -do{ -*_FUNC_IDEF1BOX_LONG_FOCUSOFFSET=*_FUNC_IDEF1BOX_LONG_FOCUS-*_FUNC_IDEF1BOX_LONG_F; -if(!qbevent)break;evnt(26070,19440,"ide_methods.bas");}while(r); -do{ -SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDEF1BOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDEF1BOX_LONG_FOCUS,_FUNC_IDEF1BOX_LONG_F,_FUNC_IDEF1BOX_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDEF1BOX_STRING_ALTLETTER,__LONG_MB,_FUNC_IDEF1BOX_LONG_MOUSEDOWN,_FUNC_IDEF1BOX_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDEF1BOX_LONG_INFO,__LONG_MWHEEL); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19441,"ide_methods.bas");}while(r); -} -fornext_continue_6286:; -} -fornext_exit_6286:; -S_57292:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 13 )))|(((-(*_FUNC_IDEF1BOX_LONG_FOCUS== 2 ))&(-(*_FUNC_IDEF1BOX_LONG_INFO!= 0 ))))|(((-(*_FUNC_IDEF1BOX_LONG_INFO== 1 ))&(-(*_FUNC_IDEF1BOX_LONG_FOCUS== 1 ))))))||new_error){ -if(qbevent){evnt(26070,19446,"ide_methods.bas");if(r)goto S_57292;} -do{ -qbs_set(_FUNC_IDEF1BOX_STRING_F,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*89+72)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19447,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_IDEF1BOX_STRING_IDEF1BOX,_FUNC_IDEF1BOX_STRING_F); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19448,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,19449,"ide_methods.bas");}while(r); -S_57296:; -}else{ -if (qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,func_chr( 27 )))){ -if(qbevent){evnt(26070,19450,"ide_methods.bas");if(r)goto S_57296;} -do{ -qbs_set(_FUNC_IDEF1BOX_STRING_IDEF1BOX,qbs_new_txt_len("C",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19451,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,19452,"ide_methods.bas");}while(r); -} -} -do{ -*_FUNC_IDEF1BOX_LONG_MOUSEDOWN= 0 ; -if(!qbevent)break;evnt(26070,19456,"ide_methods.bas");}while(r); -do{ -*_FUNC_IDEF1BOX_LONG_MOUSEUP= 0 ; -if(!qbevent)break;evnt(26070,19457,"ide_methods.bas");}while(r); -dl_continue_6281:; -}while(1); -dl_exit_6281:; -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free259.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_IDEF1BOX_STRING_IDEF1BOX);return _FUNC_IDEF1BOX_STRING_IDEF1BOX; -} -void SUB_SORT(ptrszint*_SUB_SORT_ARRAY_STRING998_ARR){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data260.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -S_57303:; -fornext_value6289=func_lbound(_SUB_SORT_ARRAY_STRING998_ARR,1,1)+ 1 ; -fornext_finalvalue6289=func_ubound(_SUB_SORT_ARRAY_STRING998_ARR,1,1); -fornext_step6289= 1 ; -if (fornext_step6289<0) fornext_step_negative6289=1; else fornext_step_negative6289=0; -if (new_error) goto fornext_error6289; -goto fornext_entrylabel6289; -while(1){ -fornext_value6289=fornext_step6289+(*_SUB_SORT_LONG_I); -fornext_entrylabel6289: -*_SUB_SORT_LONG_I=fornext_value6289; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative6289){ -if (fornext_value6289fornext_finalvalue6289) break; -} -fornext_error6289:; -if(qbevent){evnt(26070,19466,"ide_methods.bas");if(r)goto S_57303;} -do{ -qbs_set(_SUB_SORT_STRING_X,qbs_new_fixed(&((uint8*)(_SUB_SORT_ARRAY_STRING998_ARR[0]))[(array_check((*_SUB_SORT_LONG_I)-_SUB_SORT_ARRAY_STRING998_ARR[4],_SUB_SORT_ARRAY_STRING998_ARR[5]))*998],998,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19467,"ide_methods.bas");}while(r); -do{ -*_SUB_SORT_LONG_J=*_SUB_SORT_LONG_I- 1 ; -if(!qbevent)break;evnt(26070,19468,"ide_methods.bas");}while(r); -S_57306:; -while((qbs_cleanup(qbs_tmp_base,-(*_SUB_SORT_LONG_J>=func_lbound(_SUB_SORT_ARRAY_STRING998_ARR,1,1))))||new_error){ -if(qbevent){evnt(26070,19469,"ide_methods.bas");if(r)goto S_57306;} -S_57307:; -if ((qbs_cleanup(qbs_tmp_base,qbs_lessorequal(qbs_new_fixed(&((uint8*)(_SUB_SORT_ARRAY_STRING998_ARR[0]))[(array_check((*_SUB_SORT_LONG_J)-_SUB_SORT_ARRAY_STRING998_ARR[4],_SUB_SORT_ARRAY_STRING998_ARR[5]))*998],998,1),_SUB_SORT_STRING_X)))||new_error){ -if(qbevent){evnt(26070,19470,"ide_methods.bas");if(r)goto S_57307;} -do{ -goto ww_exit_6290; -if(!qbevent)break;evnt(26070,19470,"ide_methods.bas");}while(r); -} -do{ -tmp_long=array_check((*_SUB_SORT_LONG_J+ 1 )-_SUB_SORT_ARRAY_STRING998_ARR[4],_SUB_SORT_ARRAY_STRING998_ARR[5]); -if (!new_error) qbs_set(qbs_new_fixed(&((uint8*)(_SUB_SORT_ARRAY_STRING998_ARR[0]))[tmp_long*998],998,1),qbs_new_fixed(&((uint8*)(_SUB_SORT_ARRAY_STRING998_ARR[0]))[(array_check((*_SUB_SORT_LONG_J)-_SUB_SORT_ARRAY_STRING998_ARR[4],_SUB_SORT_ARRAY_STRING998_ARR[5]))*998],998,1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19471,"ide_methods.bas");}while(r); -do{ -*_SUB_SORT_LONG_J=*_SUB_SORT_LONG_J- 1 ; -if(!qbevent)break;evnt(26070,19472,"ide_methods.bas");}while(r); -ww_continue_6290:; -} -ww_exit_6290:; -do{ -tmp_long=array_check((*_SUB_SORT_LONG_J+ 1 )-_SUB_SORT_ARRAY_STRING998_ARR[4],_SUB_SORT_ARRAY_STRING998_ARR[5]); -if (!new_error) qbs_set(qbs_new_fixed(&((uint8*)(_SUB_SORT_ARRAY_STRING998_ARR[0]))[tmp_long*998],998,1),_SUB_SORT_STRING_X); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19474,"ide_methods.bas");}while(r); -fornext_continue_6288:; -} -fornext_exit_6288:; -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free260.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -qbs* FUNC_FINDPROPOSEDTITLE(){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data261.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -if(!qbevent)break;evnt(26070,19482,"ide_methods.bas");}while(r); -S_57316:; -fornext_value6292= 1 ; -fornext_finalvalue6292=*__LONG_IDEN; -fornext_step6292= 1 ; -if (fornext_step6292<0) fornext_step_negative6292=1; else fornext_step_negative6292=0; -if (new_error) goto fornext_error6292; -goto fornext_entrylabel6292; -while(1){ -fornext_value6292=fornext_step6292+(*_FUNC_FINDPROPOSEDTITLE_LONG_I); -fornext_entrylabel6292: -*_FUNC_FINDPROPOSEDTITLE_LONG_I=fornext_value6292; -if (fornext_step_negative6292){ -if (fornext_value6292fornext_finalvalue6292) break; -} -fornext_error6292:; -if(qbevent){evnt(26070,19483,"ide_methods.bas");if(r)goto S_57316;} -do{ -qbs_set(_FUNC_FINDPROPOSEDTITLE_STRING_THISLINE,FUNC_IDEGETLINE(_FUNC_FINDPROPOSEDTITLE_LONG_I)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19484,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_FINDPROPOSEDTITLE_STRING_THISLINE,qbs_ltrim(qbs_rtrim(_FUNC_FINDPROPOSEDTITLE_STRING_THISLINE))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19485,"ide_methods.bas");}while(r); -do{ -*_FUNC_FINDPROPOSEDTITLE_LONG_FOUND_TITLE=func_instr(NULL,qbs_ucase(_FUNC_FINDPROPOSEDTITLE_STRING_THISLINE),qbs_add(qbs_new_txt_len("_TITLE ",7),func_chr( 34 )),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19486,"ide_methods.bas");}while(r); -S_57320:; -if ((-(*_FUNC_FINDPROPOSEDTITLE_LONG_FOUND_TITLE> 0 ))||new_error){ -if(qbevent){evnt(26070,19487,"ide_methods.bas");if(r)goto S_57320;} -do{ -SUB_FINDQUOTECOMMENT(_FUNC_FINDPROPOSEDTITLE_STRING_THISLINE,_FUNC_FINDPROPOSEDTITLE_LONG_FOUND_TITLE,_FUNC_FINDPROPOSEDTITLE_BYTE_C,_FUNC_FINDPROPOSEDTITLE_BYTE_Q); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19488,"ide_methods.bas");}while(r); -S_57322:; -if ((~(*_FUNC_FINDPROPOSEDTITLE_BYTE_Q))||new_error){ -if(qbevent){evnt(26070,19489,"ide_methods.bas");if(r)goto S_57322;} -do{ -*_FUNC_FINDPROPOSEDTITLE_LONG_FIND_CLOSINGQUOTE=func_instr(*_FUNC_FINDPROPOSEDTITLE_LONG_FOUND_TITLE+ 8 ,_FUNC_FINDPROPOSEDTITLE_STRING_THISLINE,func_chr( 34 ),0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19490,"ide_methods.bas");}while(r); -S_57324:; -if ((-(*_FUNC_FINDPROPOSEDTITLE_LONG_FIND_CLOSINGQUOTE> 0 ))||new_error){ -if(qbevent){evnt(26070,19491,"ide_methods.bas");if(r)goto S_57324;} -do{ -qbs_set(_FUNC_FINDPROPOSEDTITLE_STRING_TEMPFOUND_TITLE,func_mid(_FUNC_FINDPROPOSEDTITLE_STRING_THISLINE,*_FUNC_FINDPROPOSEDTITLE_LONG_FOUND_TITLE+ 8 ,(*_FUNC_FINDPROPOSEDTITLE_LONG_FIND_CLOSINGQUOTE-*_FUNC_FINDPROPOSEDTITLE_LONG_FOUND_TITLE)- 8 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19492,"ide_methods.bas");}while(r); -} -do{ -goto fornext_exit_6291; -if(!qbevent)break;evnt(26070,19494,"ide_methods.bas");}while(r); -} -} -fornext_continue_6291:; -} -fornext_exit_6291:; -do{ -qbs_set(_FUNC_FINDPROPOSEDTITLE_STRING_INVALIDCHARS,qbs_add(qbs_new_txt_len(":/\\?*><|",8),func_chr( 34 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19499,"ide_methods.bas");}while(r); -S_57332:; -fornext_value6294= 1 ; -fornext_finalvalue6294=_FUNC_FINDPROPOSEDTITLE_STRING_TEMPFOUND_TITLE->len; -fornext_step6294= 1 ; -if (fornext_step6294<0) fornext_step_negative6294=1; else fornext_step_negative6294=0; -if (new_error) goto fornext_error6294; -goto fornext_entrylabel6294; -while(1){ -fornext_value6294=fornext_step6294+(*_FUNC_FINDPROPOSEDTITLE_LONG_I); -fornext_entrylabel6294: -*_FUNC_FINDPROPOSEDTITLE_LONG_I=fornext_value6294; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative6294){ -if (fornext_value6294fornext_finalvalue6294) break; -} -fornext_error6294:; -if(qbevent){evnt(26070,19500,"ide_methods.bas");if(r)goto S_57332;} -do{ -qbs_set(_FUNC_FINDPROPOSEDTITLE_STRING_THISCHAR,func_mid(_FUNC_FINDPROPOSEDTITLE_STRING_TEMPFOUND_TITLE,*_FUNC_FINDPROPOSEDTITLE_LONG_I, 1 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19501,"ide_methods.bas");}while(r); -S_57334:; -if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_FUNC_FINDPROPOSEDTITLE_STRING_INVALIDCHARS,_FUNC_FINDPROPOSEDTITLE_STRING_THISCHAR,0)== 0 )))||new_error){ -if(qbevent){evnt(26070,19502,"ide_methods.bas");if(r)goto S_57334;} -do{ -qbs_set(_FUNC_FINDPROPOSEDTITLE_STRING_FOUND_TITLE,qbs_add(_FUNC_FINDPROPOSEDTITLE_STRING_FOUND_TITLE,_FUNC_FINDPROPOSEDTITLE_STRING_THISCHAR)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19503,"ide_methods.bas");}while(r); -} -fornext_continue_6293:; -} -fornext_exit_6293:; -do{ -qbs_set(_FUNC_FINDPROPOSEDTITLE_STRING_FINDPROPOSEDTITLE,qbs_ltrim(qbs_rtrim(_FUNC_FINDPROPOSEDTITLE_STRING_FOUND_TITLE))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19507,"ide_methods.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free261.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_FINDPROPOSEDTITLE_STRING_FINDPROPOSEDTITLE);return _FUNC_FINDPROPOSEDTITLE_STRING_FINDPROPOSEDTITLE; -} -qbs* FUNC_FINDCURRENTSF(int32*_FUNC_FINDCURRENTSF_LONG_WHICHLINE){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data262.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -qbs_set(_FUNC_FINDCURRENTSF_STRING_SFNAME,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19515,"ide_methods.bas");}while(r); -S_57340:; -if ((-(*_FUNC_FINDCURRENTSF_LONG_WHICHLINE> 0 ))||new_error){ -if(qbevent){evnt(26070,19516,"ide_methods.bas");if(r)goto S_57340;} -S_57341:; -fornext_value6297=*_FUNC_FINDCURRENTSF_LONG_WHICHLINE; -fornext_finalvalue6297= 1 ; -fornext_step6297= -1 ; -if (fornext_step6297<0) fornext_step_negative6297=1; else fornext_step_negative6297=0; -if (new_error) goto fornext_error6297; -goto fornext_entrylabel6297; -while(1){ -fornext_value6297=fornext_step6297+(*_FUNC_FINDCURRENTSF_LONG_CURRSF_CHECK); -fornext_entrylabel6297: -*_FUNC_FINDCURRENTSF_LONG_CURRSF_CHECK=fornext_value6297; -if (fornext_step_negative6297){ -if (fornext_value6297fornext_finalvalue6297) break; -} -fornext_error6297:; -if(qbevent){evnt(26070,19517,"ide_methods.bas");if(r)goto S_57341;} -do{ -qbs_set(_FUNC_FINDCURRENTSF_STRING_THISLINE,FUNC_IDEGETLINE(_FUNC_FINDCURRENTSF_LONG_CURRSF_CHECK)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19518,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_FINDCURRENTSF_STRING_THISLINE,qbs_ltrim(qbs_rtrim(_FUNC_FINDCURRENTSF_STRING_THISLINE))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19519,"ide_methods.bas");}while(r); -do{ -*_FUNC_FINDCURRENTSF_LONG_ISSF= 0 ; -if(!qbevent)break;evnt(26070,19520,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_FINDCURRENTSF_STRING_NCTHISLINE,qbs_ucase(_FUNC_FINDCURRENTSF_STRING_THISLINE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19521,"ide_methods.bas");}while(r); -S_57346:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_FINDCURRENTSF_STRING_NCTHISLINE, 4 ),qbs_new_txt_len("SUB ",4))))||new_error){ -if(qbevent){evnt(26070,19522,"ide_methods.bas");if(r)goto S_57346;} -do{ -*_FUNC_FINDCURRENTSF_LONG_ISSF= 1 ; -if(!qbevent)break;evnt(26070,19522,"ide_methods.bas");}while(r); -} -S_57349:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_FINDCURRENTSF_STRING_NCTHISLINE, 9 ),qbs_new_txt_len("FUNCTION ",9))))||new_error){ -if(qbevent){evnt(26070,19523,"ide_methods.bas");if(r)goto S_57349;} -do{ -*_FUNC_FINDCURRENTSF_LONG_ISSF= 2 ; -if(!qbevent)break;evnt(26070,19523,"ide_methods.bas");}while(r); -} -S_57352:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(_FUNC_FINDCURRENTSF_STRING_NCTHISLINE, 7 ),qbs_new_txt_len("END SUB",7)))&(-(*_FUNC_FINDCURRENTSF_LONG_CURRSF_CHECK<*_FUNC_FINDCURRENTSF_LONG_WHICHLINE))))||new_error){ -if(qbevent){evnt(26070,19524,"ide_methods.bas");if(r)goto S_57352;} -do{ -goto fornext_exit_6296; -if(!qbevent)break;evnt(26070,19524,"ide_methods.bas");}while(r); -} -S_57355:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(_FUNC_FINDCURRENTSF_STRING_NCTHISLINE, 12 ),qbs_new_txt_len("END FUNCTION",12)))&(-(*_FUNC_FINDCURRENTSF_LONG_CURRSF_CHECK<*_FUNC_FINDCURRENTSF_LONG_WHICHLINE))))||new_error){ -if(qbevent){evnt(26070,19525,"ide_methods.bas");if(r)goto S_57355;} -do{ -goto fornext_exit_6296; -if(!qbevent)break;evnt(26070,19525,"ide_methods.bas");}while(r); -} -S_57358:; -if ((*_FUNC_FINDCURRENTSF_LONG_ISSF)||new_error){ -if(qbevent){evnt(26070,19526,"ide_methods.bas");if(r)goto S_57358;} -S_57359:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_FUNC_FINDCURRENTSF_STRING_NCTHISLINE, 7 ),qbs_new_txt_len(" STATIC",7))))||new_error){ -if(qbevent){evnt(26070,19527,"ide_methods.bas");if(r)goto S_57359;} -do{ -qbs_set(_FUNC_FINDCURRENTSF_STRING_THISLINE,qbs_rtrim(qbs_left(_FUNC_FINDCURRENTSF_STRING_THISLINE,_FUNC_FINDCURRENTSF_STRING_THISLINE->len- 7 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19528,"ide_methods.bas");}while(r); -} -S_57362:; -if ((-(*_FUNC_FINDCURRENTSF_LONG_ISSF== 1 ))||new_error){ -if(qbevent){evnt(26070,19531,"ide_methods.bas");if(r)goto S_57362;} -do{ -qbs_set(_FUNC_FINDCURRENTSF_STRING_THISLINE,qbs_right(_FUNC_FINDCURRENTSF_STRING_THISLINE,_FUNC_FINDCURRENTSF_STRING_THISLINE->len- 4 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19532,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_FINDCURRENTSF_STRING_THISLINE,qbs_right(_FUNC_FINDCURRENTSF_STRING_THISLINE,_FUNC_FINDCURRENTSF_STRING_THISLINE->len- 9 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19534,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_FINDCURRENTSF_STRING_THISLINE,qbs_ltrim(qbs_rtrim(_FUNC_FINDCURRENTSF_STRING_THISLINE))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19536,"ide_methods.bas");}while(r); -do{ -*_FUNC_FINDCURRENTSF_LONG_CHECKARGS=func_instr(NULL,_FUNC_FINDCURRENTSF_STRING_THISLINE,qbs_new_txt_len("(",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19537,"ide_methods.bas");}while(r); -S_57369:; -if ((*_FUNC_FINDCURRENTSF_LONG_CHECKARGS)||new_error){ -if(qbevent){evnt(26070,19538,"ide_methods.bas");if(r)goto S_57369;} -do{ -qbs_set(_FUNC_FINDCURRENTSF_STRING_SFNAME,qbs_rtrim(qbs_left(_FUNC_FINDCURRENTSF_STRING_THISLINE,*_FUNC_FINDCURRENTSF_LONG_CHECKARGS- 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19539,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_FINDCURRENTSF_STRING_SFNAME,_FUNC_FINDCURRENTSF_STRING_THISLINE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19541,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_FINDCURRENTSF_LONG_INSIDEDECLARE= 0 ; -if(!qbevent)break;evnt(26070,19546,"ide_methods.bas");}while(r); -S_57375:; -fornext_value6302=*_FUNC_FINDCURRENTSF_LONG_CURRSF_CHECK; -fornext_finalvalue6302= 1 ; -fornext_step6302= -1 ; -if (fornext_step6302<0) fornext_step_negative6302=1; else fornext_step_negative6302=0; -if (new_error) goto fornext_error6302; -goto fornext_entrylabel6302; -while(1){ -fornext_value6302=fornext_step6302+(*_FUNC_FINDCURRENTSF_LONG_DECLIB_CHECK); -fornext_entrylabel6302: -*_FUNC_FINDCURRENTSF_LONG_DECLIB_CHECK=fornext_value6302; -if (fornext_step_negative6302){ -if (fornext_value6302fornext_finalvalue6302) break; -} -fornext_error6302:; -if(qbevent){evnt(26070,19547,"ide_methods.bas");if(r)goto S_57375;} -do{ -qbs_set(_FUNC_FINDCURRENTSF_STRING_THISLINE,FUNC_IDEGETLINE(_FUNC_FINDCURRENTSF_LONG_DECLIB_CHECK)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19548,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_FINDCURRENTSF_STRING_THISLINE,qbs_ltrim(qbs_rtrim(_FUNC_FINDCURRENTSF_STRING_THISLINE))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19549,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_FINDCURRENTSF_STRING_NCTHISLINE,qbs_ucase(_FUNC_FINDCURRENTSF_STRING_THISLINE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19550,"ide_methods.bas");}while(r); -S_57379:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(_FUNC_FINDCURRENTSF_STRING_NCTHISLINE, 8 ),qbs_new_txt_len("DECLARE ",8)))&(-(func_instr(NULL,_FUNC_FINDCURRENTSF_STRING_NCTHISLINE,qbs_new_txt_len(" LIBRARY",8),0)> 0 ))))||new_error){ -if(qbevent){evnt(26070,19551,"ide_methods.bas");if(r)goto S_57379;} -do{ -*_FUNC_FINDCURRENTSF_LONG_INSIDEDECLARE= -1 ; -if(!qbevent)break;evnt(26070,19551,"ide_methods.bas");}while(r); -do{ -goto fornext_exit_6301; -if(!qbevent)break;evnt(26070,19551,"ide_methods.bas");}while(r); -} -S_57383:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_FINDCURRENTSF_STRING_NCTHISLINE, 11 ),qbs_new_txt_len("END DECLARE",11))))||new_error){ -if(qbevent){evnt(26070,19552,"ide_methods.bas");if(r)goto S_57383;} -do{ -goto fornext_exit_6301; -if(!qbevent)break;evnt(26070,19552,"ide_methods.bas");}while(r); -} -fornext_continue_6301:; -} -fornext_exit_6301:; -S_57387:; -if ((-(*_FUNC_FINDCURRENTSF_LONG_INSIDEDECLARE== -1 ))||new_error){ -if(qbevent){evnt(26070,19555,"ide_methods.bas");if(r)goto S_57387;} -do{ -qbs_set(_FUNC_FINDCURRENTSF_STRING_SFNAME,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19556,"ide_methods.bas");}while(r); -}else{ -do{ -*_FUNC_FINDCURRENTSF_LONG_ENDEDSF= 0 ; -if(!qbevent)break;evnt(26070,19562,"ide_methods.bas");}while(r); -S_57391:; -fornext_value6304=*_FUNC_FINDCURRENTSF_LONG_WHICHLINE; -fornext_finalvalue6304=*__LONG_IDEN; -fornext_step6304= 1 ; -if (fornext_step6304<0) fornext_step_negative6304=1; else fornext_step_negative6304=0; -if (new_error) goto fornext_error6304; -goto fornext_entrylabel6304; -while(1){ -fornext_value6304=fornext_step6304+(*_FUNC_FINDCURRENTSF_LONG_ENDSF_CHECK); -fornext_entrylabel6304: -*_FUNC_FINDCURRENTSF_LONG_ENDSF_CHECK=fornext_value6304; -if (fornext_step_negative6304){ -if (fornext_value6304fornext_finalvalue6304) break; -} -fornext_error6304:; -if(qbevent){evnt(26070,19563,"ide_methods.bas");if(r)goto S_57391;} -do{ -qbs_set(_FUNC_FINDCURRENTSF_STRING_THISLINE,FUNC_IDEGETLINE(_FUNC_FINDCURRENTSF_LONG_ENDSF_CHECK)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19564,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_FINDCURRENTSF_STRING_THISLINE,qbs_ltrim(qbs_rtrim(_FUNC_FINDCURRENTSF_STRING_THISLINE))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19565,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_FINDCURRENTSF_STRING_NCTHISLINE,qbs_ucase(_FUNC_FINDCURRENTSF_STRING_THISLINE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19566,"ide_methods.bas");}while(r); -S_57395:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_FINDCURRENTSF_STRING_NCTHISLINE, 7 ),qbs_new_txt_len("END SUB",7))))||new_error){ -if(qbevent){evnt(26070,19567,"ide_methods.bas");if(r)goto S_57395;} -do{ -*_FUNC_FINDCURRENTSF_LONG_ENDEDSF= 1 ; -if(!qbevent)break;evnt(26070,19567,"ide_methods.bas");}while(r); -do{ -goto fornext_exit_6303; -if(!qbevent)break;evnt(26070,19567,"ide_methods.bas");}while(r); -} -S_57399:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_FINDCURRENTSF_STRING_NCTHISLINE, 12 ),qbs_new_txt_len("END FUNCTION",12))))||new_error){ -if(qbevent){evnt(26070,19568,"ide_methods.bas");if(r)goto S_57399;} -do{ -*_FUNC_FINDCURRENTSF_LONG_ENDEDSF= 2 ; -if(!qbevent)break;evnt(26070,19568,"ide_methods.bas");}while(r); -do{ -goto fornext_exit_6303; -if(!qbevent)break;evnt(26070,19568,"ide_methods.bas");}while(r); -} -S_57403:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(_FUNC_FINDCURRENTSF_STRING_NCTHISLINE, 4 ),qbs_new_txt_len("SUB ",4)))&(-(*_FUNC_FINDCURRENTSF_LONG_ENDSF_CHECK==*_FUNC_FINDCURRENTSF_LONG_WHICHLINE))))||new_error){ -if(qbevent){evnt(26070,19569,"ide_methods.bas");if(r)goto S_57403;} -do{ -*_FUNC_FINDCURRENTSF_LONG_ENDEDSF= 1 ; -if(!qbevent)break;evnt(26070,19569,"ide_methods.bas");}while(r); -do{ -goto fornext_exit_6303; -if(!qbevent)break;evnt(26070,19569,"ide_methods.bas");}while(r); -} -S_57407:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(_FUNC_FINDCURRENTSF_STRING_NCTHISLINE, 9 ),qbs_new_txt_len("FUNCTION ",9)))&(-(*_FUNC_FINDCURRENTSF_LONG_ENDSF_CHECK==*_FUNC_FINDCURRENTSF_LONG_WHICHLINE))))||new_error){ -if(qbevent){evnt(26070,19570,"ide_methods.bas");if(r)goto S_57407;} -do{ -*_FUNC_FINDCURRENTSF_LONG_ENDEDSF= 2 ; -if(!qbevent)break;evnt(26070,19570,"ide_methods.bas");}while(r); -do{ -goto fornext_exit_6303; -if(!qbevent)break;evnt(26070,19570,"ide_methods.bas");}while(r); -} -S_57411:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(_FUNC_FINDCURRENTSF_STRING_NCTHISLINE, 4 ),qbs_new_txt_len("SUB ",4)))&(-(*_FUNC_FINDCURRENTSF_LONG_INSIDEDECLARE== 0 ))))||new_error){ -if(qbevent){evnt(26070,19571,"ide_methods.bas");if(r)goto S_57411;} -do{ -goto fornext_exit_6303; -if(!qbevent)break;evnt(26070,19571,"ide_methods.bas");}while(r); -} -S_57414:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(_FUNC_FINDCURRENTSF_STRING_NCTHISLINE, 9 ),qbs_new_txt_len("FUNCTION ",9)))&(-(*_FUNC_FINDCURRENTSF_LONG_INSIDEDECLARE== 0 ))))||new_error){ -if(qbevent){evnt(26070,19572,"ide_methods.bas");if(r)goto S_57414;} -do{ -goto fornext_exit_6303; -if(!qbevent)break;evnt(26070,19572,"ide_methods.bas");}while(r); -} -S_57417:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(_FUNC_FINDCURRENTSF_STRING_NCTHISLINE, 8 ),qbs_new_txt_len("DECLARE ",8)))&(-(func_instr(NULL,_FUNC_FINDCURRENTSF_STRING_NCTHISLINE,qbs_new_txt_len(" LIBRARY",8),0)> 0 ))))||new_error){ -if(qbevent){evnt(26070,19573,"ide_methods.bas");if(r)goto S_57417;} -do{ -*_FUNC_FINDCURRENTSF_LONG_INSIDEDECLARE= -1 ; -if(!qbevent)break;evnt(26070,19573,"ide_methods.bas");}while(r); -} -S_57420:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_FINDCURRENTSF_STRING_NCTHISLINE, 11 ),qbs_new_txt_len("END DECLARE",11))))||new_error){ -if(qbevent){evnt(26070,19574,"ide_methods.bas");if(r)goto S_57420;} -do{ -*_FUNC_FINDCURRENTSF_LONG_INSIDEDECLARE= 0 ; -if(!qbevent)break;evnt(26070,19574,"ide_methods.bas");}while(r); -} -fornext_continue_6303:; -} -fornext_exit_6303:; -S_57424:; -if ((-(*_FUNC_FINDCURRENTSF_LONG_ENDEDSF== 0 ))||new_error){ -if(qbevent){evnt(26070,19576,"ide_methods.bas");if(r)goto S_57424;} -do{ -qbs_set(_FUNC_FINDCURRENTSF_STRING_SFNAME,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19576,"ide_methods.bas");}while(r); -}else{ -do{ -goto fornext_exit_6296; -if(!qbevent)break;evnt(26070,19576,"ide_methods.bas");}while(r); -} -} -} -fornext_continue_6296:; -} -fornext_exit_6296:; -} -do{ -qbs_set(_FUNC_FINDCURRENTSF_STRING_FINDCURRENTSF,_FUNC_FINDCURRENTSF_STRING_SFNAME); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19582,"ide_methods.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free262.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_FINDCURRENTSF_STRING_FINDCURRENTSF);return _FUNC_FINDCURRENTSF_STRING_FINDCURRENTSF; -} -void SUB_ADDQUICKNAVHISTORY(){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data263.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -S_57434:; -if ((-(*__LONG_QUICKNAVTOTAL> 0 ))||new_error){ -if(qbevent){evnt(26070,19587,"ide_methods.bas");if(r)goto S_57434;} -S_57435:; -if ((-(*(int32*)(((char*)__ARRAY_UDT_QUICKNAVHISTORY[0])+((array_check((*__LONG_QUICKNAVTOTAL)-__ARRAY_UDT_QUICKNAVHISTORY[4],__ARRAY_UDT_QUICKNAVHISTORY[5]))*16+12))==*__LONG_IDECY))||new_error){ -if(qbevent){evnt(26070,19588,"ide_methods.bas");if(r)goto S_57435;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,19588,"ide_methods.bas");}while(r); -} -} -do{ -*__LONG_QUICKNAVTOTAL=*__LONG_QUICKNAVTOTAL+ 1 ; -if(!qbevent)break;evnt(26070,19591,"ide_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26070,19346,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26070,19347,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEF1BOX_STRING1_SEP,func_chr( 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19348,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEF1BOX_LONG_I= 0 ; +if(!qbevent)break;evnt(26070,19355,"ide_methods.bas");}while(r); +do{ +SUB_IDEPAR((void*)( ((char*)(_FUNC_IDEF1BOX_UDT_P)) + (0) ),&(pass6277= 40 ),&(pass6278=*_FUNC_IDEF1BOX_LONG_LNKS+ 3 ),qbs_new_txt_len("Contextual help",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19356,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEF1BOX_LONG_I=*_FUNC_IDEF1BOX_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,19358,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*89+36))= 2 ; +if(!qbevent)break;evnt(26070,19359,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*89+24))= 1 ; +if(!qbevent)break;evnt(26070,19360,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*89+28))= 36 ; +if(!qbevent)break;evnt(26070,19362,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*89+32))=*_FUNC_IDEF1BOX_LONG_LNKS; +if(!qbevent)break;evnt(26070,19362,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(_FUNC_IDEF1BOX_STRING_LNKS); +if(!qbevent)break;evnt(26070,19363,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*89+64))= 1 ; +if(!qbevent)break;evnt(26070,19364,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*89+40))=FUNC_IDENEWTXT(qbs_new_txt_len("Which?",6)); +if(!qbevent)break;evnt(26070,19365,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEF1BOX_LONG_I=*_FUNC_IDEF1BOX_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,19367,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*89+36))= 3 ; +if(!qbevent)break;evnt(26070,19368,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*89+24))=*_FUNC_IDEF1BOX_LONG_LNKS+ 3 ; +if(!qbevent)break;evnt(26070,19369,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*89+44))=FUNC_IDENEWTXT(qbs_new_txt_len("#OK",3)); +if(!qbevent)break;evnt(26070,19370,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*89+48))= 1 ; +if(!qbevent)break;evnt(26070,19371,"ide_methods.bas");}while(r); +S_57196:; +fornext_value6280= 1 ; +fornext_finalvalue6280= 100 ; +fornext_step6280= 1 ; +if (fornext_step6280<0) fornext_step_negative6280=1; else fornext_step_negative6280=0; +if (new_error) goto fornext_error6280; +goto fornext_entrylabel6280; +while(1){ +fornext_value6280=fornext_step6280+(*_FUNC_IDEF1BOX_LONG_I); +fornext_entrylabel6280: +*_FUNC_IDEF1BOX_LONG_I=fornext_value6280; +if (fornext_step_negative6280){ +if (fornext_value6280fornext_finalvalue6280) break; +} +fornext_error6280:; +if(qbevent){evnt(26070,19376,"ide_methods.bas");if(r)goto S_57196;} +do{ +memcpy(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*89)+ 0,((char*)_FUNC_IDEF1BOX_UDT_P)+(0)+ 0, 20); +if(!qbevent)break;evnt(26070,19376,"ide_methods.bas");}while(r); +fornext_continue_6279:; +} +fornext_exit_6279:; +S_57199:; +do{ +if(qbevent){evnt(26070,19379,"ide_methods.bas");if(r)goto S_57199;} +do{ +SUB_IDEDRAWPAR((void*)( ((char*)(_FUNC_IDEF1BOX_UDT_P)) + (0) )); +if(!qbevent)break;evnt(26070,19382,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEF1BOX_LONG_F= 1 ; +if(!qbevent)break;evnt(26070,19383,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEF1BOX_LONG_CX= 0 ; +if(!qbevent)break;evnt(26070,19383,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEF1BOX_LONG_CY= 0 ; +if(!qbevent)break;evnt(26070,19383,"ide_methods.bas");}while(r); +S_57204:; +fornext_value6283= 1 ; +fornext_finalvalue6283= 100 ; +fornext_step6283= 1 ; +if (fornext_step6283<0) fornext_step_negative6283=1; else fornext_step_negative6283=0; +if (new_error) goto fornext_error6283; +goto fornext_entrylabel6283; +while(1){ +fornext_value6283=fornext_step6283+(*_FUNC_IDEF1BOX_LONG_I); +fornext_entrylabel6283: +*_FUNC_IDEF1BOX_LONG_I=fornext_value6283; +if (fornext_step_negative6283){ +if (fornext_value6283fornext_finalvalue6283) break; +} +fornext_error6283:; +if(qbevent){evnt(26070,19384,"ide_methods.bas");if(r)goto S_57204;} +S_57205:; +if ((*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*89+36)))||new_error){ +if(qbevent){evnt(26070,19385,"ide_methods.bas");if(r)goto S_57205;} +do{ +*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*89+60))=*_FUNC_IDEF1BOX_LONG_FOCUS-*_FUNC_IDEF1BOX_LONG_F; +if(!qbevent)break;evnt(26070,19388,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*89+52))= 0 ; +if(!qbevent)break;evnt(26070,19389,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*89+56))= 0 ; +if(!qbevent)break;evnt(26070,19389,"ide_methods.bas");}while(r); +do{ +SUB_IDEDRAWOBJ((void*)( ((char*)(_FUNC_IDEF1BOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDEF1BOX_LONG_F); +if(!qbevent)break;evnt(26070,19390,"ide_methods.bas");}while(r); +S_57210:; +if ((*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*89+52)))||new_error){ +if(qbevent){evnt(26070,19391,"ide_methods.bas");if(r)goto S_57210;} +do{ +*_FUNC_IDEF1BOX_LONG_CX=*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*89+52)); +if(!qbevent)break;evnt(26070,19391,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEF1BOX_LONG_CY=*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*89+56)); +if(!qbevent)break;evnt(26070,19391,"ide_methods.bas");}while(r); +} +} +fornext_continue_6282:; +} +fornext_exit_6282:; +do{ +*_FUNC_IDEF1BOX_LONG_LASTFOCUS=*_FUNC_IDEF1BOX_LONG_F- 1 ; +if(!qbevent)break;evnt(26070,19394,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 1 , 0 ); +if(!qbevent)break;evnt(26070,19401,"ide_methods.bas");}while(r); +S_57218:; +if ((*_FUNC_IDEF1BOX_LONG_CX)||new_error){ +if(qbevent){evnt(26070,19402,"ide_methods.bas");if(r)goto S_57218;} +do{ +qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,19402,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(*_FUNC_IDEF1BOX_LONG_CY,*_FUNC_IDEF1BOX_LONG_CX, 1 ,NULL,NULL,7); +if(!qbevent)break;evnt(26070,19402,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,19402,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEF1BOX_LONG_CHANGE= 0 ; +if(!qbevent)break;evnt(26070,19405,"ide_methods.bas");}while(r); +S_57224:; +do{ +if(qbevent){evnt(26070,19406,"ide_methods.bas");if(r)goto S_57224;} +do{ +SUB_GETINPUT(); +if(!qbevent)break;evnt(26070,19407,"ide_methods.bas");}while(r); +S_57226:; +if ((*__LONG_MWHEEL)||new_error){ +if(qbevent){evnt(26070,19408,"ide_methods.bas");if(r)goto S_57226;} +do{ +*_FUNC_IDEF1BOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,19408,"ide_methods.bas");}while(r); +} +S_57229:; +if ((*__LONG_KB)||new_error){ +if(qbevent){evnt(26070,19409,"ide_methods.bas");if(r)goto S_57229;} +do{ +*_FUNC_IDEF1BOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,19409,"ide_methods.bas");}while(r); +} +S_57232:; +if ((*__LONG_MCLICK)||new_error){ +if(qbevent){evnt(26070,19410,"ide_methods.bas");if(r)goto S_57232;} +do{ +*_FUNC_IDEF1BOX_LONG_MOUSEDOWN= 1 ; +if(!qbevent)break;evnt(26070,19410,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEF1BOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,19410,"ide_methods.bas");}while(r); +} +S_57236:; +if ((*__LONG_MRELEASE)||new_error){ +if(qbevent){evnt(26070,19411,"ide_methods.bas");if(r)goto S_57236;} +do{ +*_FUNC_IDEF1BOX_LONG_MOUSEUP= 1 ; +if(!qbevent)break;evnt(26070,19411,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEF1BOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,19411,"ide_methods.bas");}while(r); +} +S_57240:; +if ((*__LONG_MB)||new_error){ +if(qbevent){evnt(26070,19412,"ide_methods.bas");if(r)goto S_57240;} +do{ +*_FUNC_IDEF1BOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,19412,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEF1BOX_LONG_ALT=*__LONG_KALT; +if(!qbevent)break;evnt(26070,19413,"ide_methods.bas");}while(r); +S_57244:; +if ((-(*_FUNC_IDEF1BOX_LONG_ALT!=*_FUNC_IDEF1BOX_LONG_OLDALT))||new_error){ +if(qbevent){evnt(26070,19413,"ide_methods.bas");if(r)goto S_57244;} +do{ +*_FUNC_IDEF1BOX_LONG_CHANGE= 1 ; +if(!qbevent)break;evnt(26070,19413,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEF1BOX_LONG_OLDALT=*_FUNC_IDEF1BOX_LONG_ALT; +if(!qbevent)break;evnt(26070,19414,"ide_methods.bas");}while(r); +do{ +sub__limit( 100 ); +if(!qbevent)break;evnt(26070,19415,"ide_methods.bas");}while(r); +S_57249:; +dl_continue_6284:; +}while((!(*_FUNC_IDEF1BOX_LONG_CHANGE))&&(!new_error)); +dl_exit_6284:; +if(qbevent){evnt(26070,19416,"ide_methods.bas");if(r)goto S_57249;} +S_57250:; +if ((*_FUNC_IDEF1BOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ +if(qbevent){evnt(26070,19417,"ide_methods.bas");if(r)goto S_57250;} +do{ +*__LONG_IDEHL= 1 ; +if(!qbevent)break;evnt(26070,19417,"ide_methods.bas");}while(r); +}else{ +do{ +*__LONG_IDEHL= 0 ; +if(!qbevent)break;evnt(26070,19417,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_IDEF1BOX_STRING_ALTLETTER,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19419,"ide_methods.bas");}while(r); +S_57256:; +if ((*_FUNC_IDEF1BOX_LONG_ALT&(~(*__LONG_KCTRL)))||new_error){ +if(qbevent){evnt(26070,19420,"ide_methods.bas");if(r)goto S_57256;} +S_57257:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_K->len== 1 )))||new_error){ +if(qbevent){evnt(26070,19421,"ide_methods.bas");if(r)goto S_57257;} +do{ +*_FUNC_IDEF1BOX_LONG_K=qbs_asc(qbs_ucase(__STRING_K)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19422,"ide_methods.bas");}while(r); +S_57259:; +if (((-(*_FUNC_IDEF1BOX_LONG_K>= 65 ))&(-(*_FUNC_IDEF1BOX_LONG_K<= 90 )))||new_error){ +if(qbevent){evnt(26070,19423,"ide_methods.bas");if(r)goto S_57259;} +do{ +qbs_set(_FUNC_IDEF1BOX_STRING_ALTLETTER,func_chr(*_FUNC_IDEF1BOX_LONG_K)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19423,"ide_methods.bas");}while(r); +} +} +} +do{ +qbg_screen(NULL,NULL, 0 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,19426,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(NULL,NULL, 0 ,NULL,NULL,4); +if(!qbevent)break;evnt(26070,19426,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 1 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,19426,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEF1BOX_LONG_INFO= 0 ; +if(!qbevent)break;evnt(26070,19430,"ide_methods.bas");}while(r); +S_57268:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,19431,"ide_methods.bas");if(r)goto S_57268;} +do{ +qbs_set(__STRING_K,func_chr( 255 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19431,"ide_methods.bas");}while(r); +} +S_57271:; +if ((qbs_cleanup(qbs_tmp_base,(-(*__LONG_KSHIFT== 0 ))&(qbs_equal(__STRING_K,func_chr( 9 )))))||new_error){ +if(qbevent){evnt(26070,19432,"ide_methods.bas");if(r)goto S_57271;} +do{ +*_FUNC_IDEF1BOX_LONG_FOCUS=*_FUNC_IDEF1BOX_LONG_FOCUS+ 1 ; +if(!qbevent)break;evnt(26070,19432,"ide_methods.bas");}while(r); +} +S_57274:; +if ((qbs_cleanup(qbs_tmp_base,(*__LONG_KSHIFT&(qbs_equal(__STRING_K,func_chr( 9 ))))|((func_instr(NULL,func__os(),qbs_new_txt_len("MAC",3),0))&(qbs_equal(__STRING_K,func_chr( 25 ))))))||new_error){ +if(qbevent){evnt(26070,19433,"ide_methods.bas");if(r)goto S_57274;} +do{ +*_FUNC_IDEF1BOX_LONG_FOCUS=*_FUNC_IDEF1BOX_LONG_FOCUS- 1 ; +if(!qbevent)break;evnt(26070,19433,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_K,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19433,"ide_methods.bas");}while(r); +} +S_57278:; +if ((-(*_FUNC_IDEF1BOX_LONG_FOCUS< 1 ))||new_error){ +if(qbevent){evnt(26070,19434,"ide_methods.bas");if(r)goto S_57278;} +do{ +*_FUNC_IDEF1BOX_LONG_FOCUS=*_FUNC_IDEF1BOX_LONG_LASTFOCUS; +if(!qbevent)break;evnt(26070,19434,"ide_methods.bas");}while(r); +} +S_57281:; +if ((-(*_FUNC_IDEF1BOX_LONG_FOCUS>*_FUNC_IDEF1BOX_LONG_LASTFOCUS))||new_error){ +if(qbevent){evnt(26070,19435,"ide_methods.bas");if(r)goto S_57281;} +do{ +*_FUNC_IDEF1BOX_LONG_FOCUS= 1 ; +if(!qbevent)break;evnt(26070,19435,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_IDEF1BOX_LONG_F= 1 ; +if(!qbevent)break;evnt(26070,19436,"ide_methods.bas");}while(r); +S_57285:; +fornext_value6287= 1 ; +fornext_finalvalue6287= 100 ; +fornext_step6287= 1 ; +if (fornext_step6287<0) fornext_step_negative6287=1; else fornext_step_negative6287=0; +if (new_error) goto fornext_error6287; +goto fornext_entrylabel6287; +while(1){ +fornext_value6287=fornext_step6287+(*_FUNC_IDEF1BOX_LONG_I); +fornext_entrylabel6287: +*_FUNC_IDEF1BOX_LONG_I=fornext_value6287; +if (fornext_step_negative6287){ +if (fornext_value6287fornext_finalvalue6287) break; +} +fornext_error6287:; +if(qbevent){evnt(26070,19437,"ide_methods.bas");if(r)goto S_57285;} +do{ +*_FUNC_IDEF1BOX_LONG_T=*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*89+36)); +if(!qbevent)break;evnt(26070,19438,"ide_methods.bas");}while(r); +S_57287:; +if ((*_FUNC_IDEF1BOX_LONG_T)||new_error){ +if(qbevent){evnt(26070,19439,"ide_methods.bas");if(r)goto S_57287;} +do{ +*_FUNC_IDEF1BOX_LONG_FOCUSOFFSET=*_FUNC_IDEF1BOX_LONG_FOCUS-*_FUNC_IDEF1BOX_LONG_F; +if(!qbevent)break;evnt(26070,19440,"ide_methods.bas");}while(r); +do{ +SUB_IDEOBJUPDATE((void*)( ((char*)(_FUNC_IDEF1BOX_ARRAY_UDT_O[0])) + ((array_check((*_FUNC_IDEF1BOX_LONG_I)-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*89) ),_FUNC_IDEF1BOX_LONG_FOCUS,_FUNC_IDEF1BOX_LONG_F,_FUNC_IDEF1BOX_LONG_FOCUSOFFSET,__STRING_K,_FUNC_IDEF1BOX_STRING_ALTLETTER,__LONG_MB,_FUNC_IDEF1BOX_LONG_MOUSEDOWN,_FUNC_IDEF1BOX_LONG_MOUSEUP,__LONG_MX,__LONG_MY,_FUNC_IDEF1BOX_LONG_INFO,__LONG_MWHEEL); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19441,"ide_methods.bas");}while(r); +} +fornext_continue_6286:; +} +fornext_exit_6286:; +S_57292:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(__STRING_K,func_chr( 13 )))|(((-(*_FUNC_IDEF1BOX_LONG_FOCUS== 2 ))&(-(*_FUNC_IDEF1BOX_LONG_INFO!= 0 ))))|(((-(*_FUNC_IDEF1BOX_LONG_INFO== 1 ))&(-(*_FUNC_IDEF1BOX_LONG_FOCUS== 1 ))))))||new_error){ +if(qbevent){evnt(26070,19446,"ide_methods.bas");if(r)goto S_57292;} +do{ +qbs_set(_FUNC_IDEF1BOX_STRING_F,((qbs*)(((uint64*)(__ARRAY_STRING_IDETXT[0]))[array_check((*(int32*)(((char*)_FUNC_IDEF1BOX_ARRAY_UDT_O[0])+((array_check(( 1 )-_FUNC_IDEF1BOX_ARRAY_UDT_O[4],_FUNC_IDEF1BOX_ARRAY_UDT_O[5]))*89+72)))-__ARRAY_STRING_IDETXT[4],__ARRAY_STRING_IDETXT[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19447,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_IDEF1BOX_STRING_IDEF1BOX,_FUNC_IDEF1BOX_STRING_F); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19448,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,19449,"ide_methods.bas");}while(r); +S_57296:; +}else{ +if (qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_K,func_chr( 27 )))){ +if(qbevent){evnt(26070,19450,"ide_methods.bas");if(r)goto S_57296;} +do{ +qbs_set(_FUNC_IDEF1BOX_STRING_IDEF1BOX,qbs_new_txt_len("C",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19451,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,19452,"ide_methods.bas");}while(r); +} +} +do{ +*_FUNC_IDEF1BOX_LONG_MOUSEDOWN= 0 ; +if(!qbevent)break;evnt(26070,19456,"ide_methods.bas");}while(r); +do{ +*_FUNC_IDEF1BOX_LONG_MOUSEUP= 0 ; +if(!qbevent)break;evnt(26070,19457,"ide_methods.bas");}while(r); +dl_continue_6281:; +}while(1); +dl_exit_6281:; +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free259.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_IDEF1BOX_STRING_IDEF1BOX);return _FUNC_IDEF1BOX_STRING_IDEF1BOX; +} +void SUB_SORT(ptrszint*_SUB_SORT_ARRAY_STRING998_ARR){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data260.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +S_57303:; +fornext_value6289=func_lbound(_SUB_SORT_ARRAY_STRING998_ARR,1,1)+ 1 ; +fornext_finalvalue6289=func_ubound(_SUB_SORT_ARRAY_STRING998_ARR,1,1); +fornext_step6289= 1 ; +if (fornext_step6289<0) fornext_step_negative6289=1; else fornext_step_negative6289=0; +if (new_error) goto fornext_error6289; +goto fornext_entrylabel6289; +while(1){ +fornext_value6289=fornext_step6289+(*_SUB_SORT_LONG_I); +fornext_entrylabel6289: +*_SUB_SORT_LONG_I=fornext_value6289; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative6289){ +if (fornext_value6289fornext_finalvalue6289) break; +} +fornext_error6289:; +if(qbevent){evnt(26070,19466,"ide_methods.bas");if(r)goto S_57303;} +do{ +qbs_set(_SUB_SORT_STRING_X,qbs_new_fixed(&((uint8*)(_SUB_SORT_ARRAY_STRING998_ARR[0]))[(array_check((*_SUB_SORT_LONG_I)-_SUB_SORT_ARRAY_STRING998_ARR[4],_SUB_SORT_ARRAY_STRING998_ARR[5]))*998],998,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19467,"ide_methods.bas");}while(r); +do{ +*_SUB_SORT_LONG_J=*_SUB_SORT_LONG_I- 1 ; +if(!qbevent)break;evnt(26070,19468,"ide_methods.bas");}while(r); +S_57306:; +while((qbs_cleanup(qbs_tmp_base,-(*_SUB_SORT_LONG_J>=func_lbound(_SUB_SORT_ARRAY_STRING998_ARR,1,1))))||new_error){ +if(qbevent){evnt(26070,19469,"ide_methods.bas");if(r)goto S_57306;} +S_57307:; +if ((qbs_cleanup(qbs_tmp_base,qbs_lessorequal(qbs_new_fixed(&((uint8*)(_SUB_SORT_ARRAY_STRING998_ARR[0]))[(array_check((*_SUB_SORT_LONG_J)-_SUB_SORT_ARRAY_STRING998_ARR[4],_SUB_SORT_ARRAY_STRING998_ARR[5]))*998],998,1),_SUB_SORT_STRING_X)))||new_error){ +if(qbevent){evnt(26070,19470,"ide_methods.bas");if(r)goto S_57307;} +do{ +goto ww_exit_6290; +if(!qbevent)break;evnt(26070,19470,"ide_methods.bas");}while(r); +} +do{ +tmp_long=array_check((*_SUB_SORT_LONG_J+ 1 )-_SUB_SORT_ARRAY_STRING998_ARR[4],_SUB_SORT_ARRAY_STRING998_ARR[5]); +if (!new_error) qbs_set(qbs_new_fixed(&((uint8*)(_SUB_SORT_ARRAY_STRING998_ARR[0]))[tmp_long*998],998,1),qbs_new_fixed(&((uint8*)(_SUB_SORT_ARRAY_STRING998_ARR[0]))[(array_check((*_SUB_SORT_LONG_J)-_SUB_SORT_ARRAY_STRING998_ARR[4],_SUB_SORT_ARRAY_STRING998_ARR[5]))*998],998,1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19471,"ide_methods.bas");}while(r); +do{ +*_SUB_SORT_LONG_J=*_SUB_SORT_LONG_J- 1 ; +if(!qbevent)break;evnt(26070,19472,"ide_methods.bas");}while(r); +ww_continue_6290:; +} +ww_exit_6290:; +do{ +tmp_long=array_check((*_SUB_SORT_LONG_J+ 1 )-_SUB_SORT_ARRAY_STRING998_ARR[4],_SUB_SORT_ARRAY_STRING998_ARR[5]); +if (!new_error) qbs_set(qbs_new_fixed(&((uint8*)(_SUB_SORT_ARRAY_STRING998_ARR[0]))[tmp_long*998],998,1),_SUB_SORT_STRING_X); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19474,"ide_methods.bas");}while(r); +fornext_continue_6288:; +} +fornext_exit_6288:; +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free260.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +qbs* FUNC_FINDPROPOSEDTITLE(){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data261.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +if(!qbevent)break;evnt(26070,19482,"ide_methods.bas");}while(r); +S_57316:; +fornext_value6292= 1 ; +fornext_finalvalue6292=*__LONG_IDEN; +fornext_step6292= 1 ; +if (fornext_step6292<0) fornext_step_negative6292=1; else fornext_step_negative6292=0; +if (new_error) goto fornext_error6292; +goto fornext_entrylabel6292; +while(1){ +fornext_value6292=fornext_step6292+(*_FUNC_FINDPROPOSEDTITLE_LONG_I); +fornext_entrylabel6292: +*_FUNC_FINDPROPOSEDTITLE_LONG_I=fornext_value6292; +if (fornext_step_negative6292){ +if (fornext_value6292fornext_finalvalue6292) break; +} +fornext_error6292:; +if(qbevent){evnt(26070,19483,"ide_methods.bas");if(r)goto S_57316;} +do{ +qbs_set(_FUNC_FINDPROPOSEDTITLE_STRING_THISLINE,FUNC_IDEGETLINE(_FUNC_FINDPROPOSEDTITLE_LONG_I)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19484,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_FINDPROPOSEDTITLE_STRING_THISLINE,qbs_ltrim(qbs_rtrim(_FUNC_FINDPROPOSEDTITLE_STRING_THISLINE))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19485,"ide_methods.bas");}while(r); +do{ +*_FUNC_FINDPROPOSEDTITLE_LONG_FOUND_TITLE=func_instr(NULL,qbs_ucase(_FUNC_FINDPROPOSEDTITLE_STRING_THISLINE),qbs_add(qbs_new_txt_len("_TITLE ",7),func_chr( 34 )),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19486,"ide_methods.bas");}while(r); +S_57320:; +if ((-(*_FUNC_FINDPROPOSEDTITLE_LONG_FOUND_TITLE> 0 ))||new_error){ +if(qbevent){evnt(26070,19487,"ide_methods.bas");if(r)goto S_57320;} +do{ +SUB_FINDQUOTECOMMENT(_FUNC_FINDPROPOSEDTITLE_STRING_THISLINE,_FUNC_FINDPROPOSEDTITLE_LONG_FOUND_TITLE,_FUNC_FINDPROPOSEDTITLE_BYTE_C,_FUNC_FINDPROPOSEDTITLE_BYTE_Q); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19488,"ide_methods.bas");}while(r); +S_57322:; +if ((~(*_FUNC_FINDPROPOSEDTITLE_BYTE_Q))||new_error){ +if(qbevent){evnt(26070,19489,"ide_methods.bas");if(r)goto S_57322;} +do{ +*_FUNC_FINDPROPOSEDTITLE_LONG_FIND_CLOSINGQUOTE=func_instr(*_FUNC_FINDPROPOSEDTITLE_LONG_FOUND_TITLE+ 8 ,_FUNC_FINDPROPOSEDTITLE_STRING_THISLINE,func_chr( 34 ),0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19490,"ide_methods.bas");}while(r); +S_57324:; +if ((-(*_FUNC_FINDPROPOSEDTITLE_LONG_FIND_CLOSINGQUOTE> 0 ))||new_error){ +if(qbevent){evnt(26070,19491,"ide_methods.bas");if(r)goto S_57324;} +do{ +qbs_set(_FUNC_FINDPROPOSEDTITLE_STRING_TEMPFOUND_TITLE,func_mid(_FUNC_FINDPROPOSEDTITLE_STRING_THISLINE,*_FUNC_FINDPROPOSEDTITLE_LONG_FOUND_TITLE+ 8 ,(*_FUNC_FINDPROPOSEDTITLE_LONG_FIND_CLOSINGQUOTE-*_FUNC_FINDPROPOSEDTITLE_LONG_FOUND_TITLE)- 8 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19492,"ide_methods.bas");}while(r); +} +do{ +goto fornext_exit_6291; +if(!qbevent)break;evnt(26070,19494,"ide_methods.bas");}while(r); +} +} +fornext_continue_6291:; +} +fornext_exit_6291:; +do{ +qbs_set(_FUNC_FINDPROPOSEDTITLE_STRING_INVALIDCHARS,qbs_add(qbs_new_txt_len(":/\\?*><|",8),func_chr( 34 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19499,"ide_methods.bas");}while(r); +S_57332:; +fornext_value6294= 1 ; +fornext_finalvalue6294=_FUNC_FINDPROPOSEDTITLE_STRING_TEMPFOUND_TITLE->len; +fornext_step6294= 1 ; +if (fornext_step6294<0) fornext_step_negative6294=1; else fornext_step_negative6294=0; +if (new_error) goto fornext_error6294; +goto fornext_entrylabel6294; +while(1){ +fornext_value6294=fornext_step6294+(*_FUNC_FINDPROPOSEDTITLE_LONG_I); +fornext_entrylabel6294: +*_FUNC_FINDPROPOSEDTITLE_LONG_I=fornext_value6294; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative6294){ +if (fornext_value6294fornext_finalvalue6294) break; +} +fornext_error6294:; +if(qbevent){evnt(26070,19500,"ide_methods.bas");if(r)goto S_57332;} +do{ +qbs_set(_FUNC_FINDPROPOSEDTITLE_STRING_THISCHAR,func_mid(_FUNC_FINDPROPOSEDTITLE_STRING_TEMPFOUND_TITLE,*_FUNC_FINDPROPOSEDTITLE_LONG_I, 1 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19501,"ide_methods.bas");}while(r); +S_57334:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_FUNC_FINDPROPOSEDTITLE_STRING_INVALIDCHARS,_FUNC_FINDPROPOSEDTITLE_STRING_THISCHAR,0)== 0 )))||new_error){ +if(qbevent){evnt(26070,19502,"ide_methods.bas");if(r)goto S_57334;} +do{ +qbs_set(_FUNC_FINDPROPOSEDTITLE_STRING_FOUND_TITLE,qbs_add(_FUNC_FINDPROPOSEDTITLE_STRING_FOUND_TITLE,_FUNC_FINDPROPOSEDTITLE_STRING_THISCHAR)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19503,"ide_methods.bas");}while(r); +} +fornext_continue_6293:; +} +fornext_exit_6293:; +do{ +qbs_set(_FUNC_FINDPROPOSEDTITLE_STRING_FINDPROPOSEDTITLE,qbs_ltrim(qbs_rtrim(_FUNC_FINDPROPOSEDTITLE_STRING_FOUND_TITLE))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19507,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free261.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_FINDPROPOSEDTITLE_STRING_FINDPROPOSEDTITLE);return _FUNC_FINDPROPOSEDTITLE_STRING_FINDPROPOSEDTITLE; +} +qbs* FUNC_FINDCURRENTSF(int32*_FUNC_FINDCURRENTSF_LONG_WHICHLINE){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data262.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +qbs_set(_FUNC_FINDCURRENTSF_STRING_SFNAME,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19515,"ide_methods.bas");}while(r); +S_57340:; +if ((-(*_FUNC_FINDCURRENTSF_LONG_WHICHLINE> 0 ))||new_error){ +if(qbevent){evnt(26070,19516,"ide_methods.bas");if(r)goto S_57340;} +S_57341:; +fornext_value6297=*_FUNC_FINDCURRENTSF_LONG_WHICHLINE; +fornext_finalvalue6297= 1 ; +fornext_step6297= -1 ; +if (fornext_step6297<0) fornext_step_negative6297=1; else fornext_step_negative6297=0; +if (new_error) goto fornext_error6297; +goto fornext_entrylabel6297; +while(1){ +fornext_value6297=fornext_step6297+(*_FUNC_FINDCURRENTSF_LONG_CURRSF_CHECK); +fornext_entrylabel6297: +*_FUNC_FINDCURRENTSF_LONG_CURRSF_CHECK=fornext_value6297; +if (fornext_step_negative6297){ +if (fornext_value6297fornext_finalvalue6297) break; +} +fornext_error6297:; +if(qbevent){evnt(26070,19517,"ide_methods.bas");if(r)goto S_57341;} +do{ +qbs_set(_FUNC_FINDCURRENTSF_STRING_THISLINE,FUNC_IDEGETLINE(_FUNC_FINDCURRENTSF_LONG_CURRSF_CHECK)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19518,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_FINDCURRENTSF_STRING_THISLINE,qbs_ltrim(qbs_rtrim(_FUNC_FINDCURRENTSF_STRING_THISLINE))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19519,"ide_methods.bas");}while(r); +do{ +*_FUNC_FINDCURRENTSF_LONG_ISSF= 0 ; +if(!qbevent)break;evnt(26070,19520,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_FINDCURRENTSF_STRING_NCTHISLINE,qbs_ucase(_FUNC_FINDCURRENTSF_STRING_THISLINE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19521,"ide_methods.bas");}while(r); +S_57346:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_FINDCURRENTSF_STRING_NCTHISLINE, 4 ),qbs_new_txt_len("SUB ",4))))||new_error){ +if(qbevent){evnt(26070,19522,"ide_methods.bas");if(r)goto S_57346;} +do{ +*_FUNC_FINDCURRENTSF_LONG_ISSF= 1 ; +if(!qbevent)break;evnt(26070,19522,"ide_methods.bas");}while(r); +} +S_57349:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_FINDCURRENTSF_STRING_NCTHISLINE, 9 ),qbs_new_txt_len("FUNCTION ",9))))||new_error){ +if(qbevent){evnt(26070,19523,"ide_methods.bas");if(r)goto S_57349;} +do{ +*_FUNC_FINDCURRENTSF_LONG_ISSF= 2 ; +if(!qbevent)break;evnt(26070,19523,"ide_methods.bas");}while(r); +} +S_57352:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(_FUNC_FINDCURRENTSF_STRING_NCTHISLINE, 7 ),qbs_new_txt_len("END SUB",7)))&(-(*_FUNC_FINDCURRENTSF_LONG_CURRSF_CHECK<*_FUNC_FINDCURRENTSF_LONG_WHICHLINE))))||new_error){ +if(qbevent){evnt(26070,19524,"ide_methods.bas");if(r)goto S_57352;} +do{ +goto fornext_exit_6296; +if(!qbevent)break;evnt(26070,19524,"ide_methods.bas");}while(r); +} +S_57355:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(_FUNC_FINDCURRENTSF_STRING_NCTHISLINE, 12 ),qbs_new_txt_len("END FUNCTION",12)))&(-(*_FUNC_FINDCURRENTSF_LONG_CURRSF_CHECK<*_FUNC_FINDCURRENTSF_LONG_WHICHLINE))))||new_error){ +if(qbevent){evnt(26070,19525,"ide_methods.bas");if(r)goto S_57355;} +do{ +goto fornext_exit_6296; +if(!qbevent)break;evnt(26070,19525,"ide_methods.bas");}while(r); +} +S_57358:; +if ((*_FUNC_FINDCURRENTSF_LONG_ISSF)||new_error){ +if(qbevent){evnt(26070,19526,"ide_methods.bas");if(r)goto S_57358;} +S_57359:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_FUNC_FINDCURRENTSF_STRING_NCTHISLINE, 7 ),qbs_new_txt_len(" STATIC",7))))||new_error){ +if(qbevent){evnt(26070,19527,"ide_methods.bas");if(r)goto S_57359;} +do{ +qbs_set(_FUNC_FINDCURRENTSF_STRING_THISLINE,qbs_rtrim(qbs_left(_FUNC_FINDCURRENTSF_STRING_THISLINE,_FUNC_FINDCURRENTSF_STRING_THISLINE->len- 7 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19528,"ide_methods.bas");}while(r); +} +S_57362:; +if ((-(*_FUNC_FINDCURRENTSF_LONG_ISSF== 1 ))||new_error){ +if(qbevent){evnt(26070,19531,"ide_methods.bas");if(r)goto S_57362;} +do{ +qbs_set(_FUNC_FINDCURRENTSF_STRING_THISLINE,qbs_right(_FUNC_FINDCURRENTSF_STRING_THISLINE,_FUNC_FINDCURRENTSF_STRING_THISLINE->len- 4 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19532,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_FINDCURRENTSF_STRING_THISLINE,qbs_right(_FUNC_FINDCURRENTSF_STRING_THISLINE,_FUNC_FINDCURRENTSF_STRING_THISLINE->len- 9 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19534,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_FINDCURRENTSF_STRING_THISLINE,qbs_ltrim(qbs_rtrim(_FUNC_FINDCURRENTSF_STRING_THISLINE))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19536,"ide_methods.bas");}while(r); +do{ +*_FUNC_FINDCURRENTSF_LONG_CHECKARGS=func_instr(NULL,_FUNC_FINDCURRENTSF_STRING_THISLINE,qbs_new_txt_len("(",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19537,"ide_methods.bas");}while(r); +S_57369:; +if ((*_FUNC_FINDCURRENTSF_LONG_CHECKARGS)||new_error){ +if(qbevent){evnt(26070,19538,"ide_methods.bas");if(r)goto S_57369;} +do{ +qbs_set(_FUNC_FINDCURRENTSF_STRING_SFNAME,qbs_rtrim(qbs_left(_FUNC_FINDCURRENTSF_STRING_THISLINE,*_FUNC_FINDCURRENTSF_LONG_CHECKARGS- 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19539,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_FINDCURRENTSF_STRING_SFNAME,_FUNC_FINDCURRENTSF_STRING_THISLINE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19541,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_FINDCURRENTSF_LONG_INSIDEDECLARE= 0 ; +if(!qbevent)break;evnt(26070,19546,"ide_methods.bas");}while(r); +S_57375:; +fornext_value6302=*_FUNC_FINDCURRENTSF_LONG_CURRSF_CHECK; +fornext_finalvalue6302= 1 ; +fornext_step6302= -1 ; +if (fornext_step6302<0) fornext_step_negative6302=1; else fornext_step_negative6302=0; +if (new_error) goto fornext_error6302; +goto fornext_entrylabel6302; +while(1){ +fornext_value6302=fornext_step6302+(*_FUNC_FINDCURRENTSF_LONG_DECLIB_CHECK); +fornext_entrylabel6302: +*_FUNC_FINDCURRENTSF_LONG_DECLIB_CHECK=fornext_value6302; +if (fornext_step_negative6302){ +if (fornext_value6302fornext_finalvalue6302) break; +} +fornext_error6302:; +if(qbevent){evnt(26070,19547,"ide_methods.bas");if(r)goto S_57375;} +do{ +qbs_set(_FUNC_FINDCURRENTSF_STRING_THISLINE,FUNC_IDEGETLINE(_FUNC_FINDCURRENTSF_LONG_DECLIB_CHECK)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19548,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_FINDCURRENTSF_STRING_THISLINE,qbs_ltrim(qbs_rtrim(_FUNC_FINDCURRENTSF_STRING_THISLINE))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19549,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_FINDCURRENTSF_STRING_NCTHISLINE,qbs_ucase(_FUNC_FINDCURRENTSF_STRING_THISLINE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19550,"ide_methods.bas");}while(r); +S_57379:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(_FUNC_FINDCURRENTSF_STRING_NCTHISLINE, 8 ),qbs_new_txt_len("DECLARE ",8)))&(-(func_instr(NULL,_FUNC_FINDCURRENTSF_STRING_NCTHISLINE,qbs_new_txt_len(" LIBRARY",8),0)> 0 ))))||new_error){ +if(qbevent){evnt(26070,19551,"ide_methods.bas");if(r)goto S_57379;} +do{ +*_FUNC_FINDCURRENTSF_LONG_INSIDEDECLARE= -1 ; +if(!qbevent)break;evnt(26070,19551,"ide_methods.bas");}while(r); +do{ +goto fornext_exit_6301; +if(!qbevent)break;evnt(26070,19551,"ide_methods.bas");}while(r); +} +S_57383:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_FINDCURRENTSF_STRING_NCTHISLINE, 11 ),qbs_new_txt_len("END DECLARE",11))))||new_error){ +if(qbevent){evnt(26070,19552,"ide_methods.bas");if(r)goto S_57383;} +do{ +goto fornext_exit_6301; +if(!qbevent)break;evnt(26070,19552,"ide_methods.bas");}while(r); +} +fornext_continue_6301:; +} +fornext_exit_6301:; +S_57387:; +if ((-(*_FUNC_FINDCURRENTSF_LONG_INSIDEDECLARE== -1 ))||new_error){ +if(qbevent){evnt(26070,19555,"ide_methods.bas");if(r)goto S_57387;} +do{ +qbs_set(_FUNC_FINDCURRENTSF_STRING_SFNAME,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19556,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_FINDCURRENTSF_LONG_ENDEDSF= 0 ; +if(!qbevent)break;evnt(26070,19562,"ide_methods.bas");}while(r); +S_57391:; +fornext_value6304=*_FUNC_FINDCURRENTSF_LONG_WHICHLINE; +fornext_finalvalue6304=*__LONG_IDEN; +fornext_step6304= 1 ; +if (fornext_step6304<0) fornext_step_negative6304=1; else fornext_step_negative6304=0; +if (new_error) goto fornext_error6304; +goto fornext_entrylabel6304; +while(1){ +fornext_value6304=fornext_step6304+(*_FUNC_FINDCURRENTSF_LONG_ENDSF_CHECK); +fornext_entrylabel6304: +*_FUNC_FINDCURRENTSF_LONG_ENDSF_CHECK=fornext_value6304; +if (fornext_step_negative6304){ +if (fornext_value6304fornext_finalvalue6304) break; +} +fornext_error6304:; +if(qbevent){evnt(26070,19563,"ide_methods.bas");if(r)goto S_57391;} +do{ +qbs_set(_FUNC_FINDCURRENTSF_STRING_THISLINE,FUNC_IDEGETLINE(_FUNC_FINDCURRENTSF_LONG_ENDSF_CHECK)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19564,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_FINDCURRENTSF_STRING_THISLINE,qbs_ltrim(qbs_rtrim(_FUNC_FINDCURRENTSF_STRING_THISLINE))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19565,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_FINDCURRENTSF_STRING_NCTHISLINE,qbs_ucase(_FUNC_FINDCURRENTSF_STRING_THISLINE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19566,"ide_methods.bas");}while(r); +S_57395:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_FINDCURRENTSF_STRING_NCTHISLINE, 7 ),qbs_new_txt_len("END SUB",7))))||new_error){ +if(qbevent){evnt(26070,19567,"ide_methods.bas");if(r)goto S_57395;} +do{ +*_FUNC_FINDCURRENTSF_LONG_ENDEDSF= 1 ; +if(!qbevent)break;evnt(26070,19567,"ide_methods.bas");}while(r); +do{ +goto fornext_exit_6303; +if(!qbevent)break;evnt(26070,19567,"ide_methods.bas");}while(r); +} +S_57399:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_FINDCURRENTSF_STRING_NCTHISLINE, 12 ),qbs_new_txt_len("END FUNCTION",12))))||new_error){ +if(qbevent){evnt(26070,19568,"ide_methods.bas");if(r)goto S_57399;} +do{ +*_FUNC_FINDCURRENTSF_LONG_ENDEDSF= 2 ; +if(!qbevent)break;evnt(26070,19568,"ide_methods.bas");}while(r); +do{ +goto fornext_exit_6303; +if(!qbevent)break;evnt(26070,19568,"ide_methods.bas");}while(r); +} +S_57403:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(_FUNC_FINDCURRENTSF_STRING_NCTHISLINE, 4 ),qbs_new_txt_len("SUB ",4)))&(-(*_FUNC_FINDCURRENTSF_LONG_ENDSF_CHECK==*_FUNC_FINDCURRENTSF_LONG_WHICHLINE))))||new_error){ +if(qbevent){evnt(26070,19569,"ide_methods.bas");if(r)goto S_57403;} +do{ +*_FUNC_FINDCURRENTSF_LONG_ENDEDSF= 1 ; +if(!qbevent)break;evnt(26070,19569,"ide_methods.bas");}while(r); +do{ +goto fornext_exit_6303; +if(!qbevent)break;evnt(26070,19569,"ide_methods.bas");}while(r); +} +S_57407:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(_FUNC_FINDCURRENTSF_STRING_NCTHISLINE, 9 ),qbs_new_txt_len("FUNCTION ",9)))&(-(*_FUNC_FINDCURRENTSF_LONG_ENDSF_CHECK==*_FUNC_FINDCURRENTSF_LONG_WHICHLINE))))||new_error){ +if(qbevent){evnt(26070,19570,"ide_methods.bas");if(r)goto S_57407;} +do{ +*_FUNC_FINDCURRENTSF_LONG_ENDEDSF= 2 ; +if(!qbevent)break;evnt(26070,19570,"ide_methods.bas");}while(r); +do{ +goto fornext_exit_6303; +if(!qbevent)break;evnt(26070,19570,"ide_methods.bas");}while(r); +} +S_57411:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(_FUNC_FINDCURRENTSF_STRING_NCTHISLINE, 4 ),qbs_new_txt_len("SUB ",4)))&(-(*_FUNC_FINDCURRENTSF_LONG_INSIDEDECLARE== 0 ))))||new_error){ +if(qbevent){evnt(26070,19571,"ide_methods.bas");if(r)goto S_57411;} +do{ +goto fornext_exit_6303; +if(!qbevent)break;evnt(26070,19571,"ide_methods.bas");}while(r); +} +S_57414:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(_FUNC_FINDCURRENTSF_STRING_NCTHISLINE, 9 ),qbs_new_txt_len("FUNCTION ",9)))&(-(*_FUNC_FINDCURRENTSF_LONG_INSIDEDECLARE== 0 ))))||new_error){ +if(qbevent){evnt(26070,19572,"ide_methods.bas");if(r)goto S_57414;} +do{ +goto fornext_exit_6303; +if(!qbevent)break;evnt(26070,19572,"ide_methods.bas");}while(r); +} +S_57417:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(_FUNC_FINDCURRENTSF_STRING_NCTHISLINE, 8 ),qbs_new_txt_len("DECLARE ",8)))&(-(func_instr(NULL,_FUNC_FINDCURRENTSF_STRING_NCTHISLINE,qbs_new_txt_len(" LIBRARY",8),0)> 0 ))))||new_error){ +if(qbevent){evnt(26070,19573,"ide_methods.bas");if(r)goto S_57417;} +do{ +*_FUNC_FINDCURRENTSF_LONG_INSIDEDECLARE= -1 ; +if(!qbevent)break;evnt(26070,19573,"ide_methods.bas");}while(r); +} +S_57420:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_FINDCURRENTSF_STRING_NCTHISLINE, 11 ),qbs_new_txt_len("END DECLARE",11))))||new_error){ +if(qbevent){evnt(26070,19574,"ide_methods.bas");if(r)goto S_57420;} +do{ +*_FUNC_FINDCURRENTSF_LONG_INSIDEDECLARE= 0 ; +if(!qbevent)break;evnt(26070,19574,"ide_methods.bas");}while(r); +} +fornext_continue_6303:; +} +fornext_exit_6303:; +S_57424:; +if ((-(*_FUNC_FINDCURRENTSF_LONG_ENDEDSF== 0 ))||new_error){ +if(qbevent){evnt(26070,19576,"ide_methods.bas");if(r)goto S_57424;} +do{ +qbs_set(_FUNC_FINDCURRENTSF_STRING_SFNAME,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19576,"ide_methods.bas");}while(r); +}else{ +do{ +goto fornext_exit_6296; +if(!qbevent)break;evnt(26070,19576,"ide_methods.bas");}while(r); +} +} +} +fornext_continue_6296:; +} +fornext_exit_6296:; +} +do{ +qbs_set(_FUNC_FINDCURRENTSF_STRING_FINDCURRENTSF,_FUNC_FINDCURRENTSF_STRING_SFNAME); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19582,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free262.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_FINDCURRENTSF_STRING_FINDCURRENTSF);return _FUNC_FINDCURRENTSF_STRING_FINDCURRENTSF; +} +void SUB_ADDQUICKNAVHISTORY(){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data263.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +S_57434:; +if ((-(*__LONG_QUICKNAVTOTAL> 0 ))||new_error){ +if(qbevent){evnt(26070,19587,"ide_methods.bas");if(r)goto S_57434;} +S_57435:; +if ((-(*(int32*)(((char*)__ARRAY_UDT_QUICKNAVHISTORY[0])+((array_check((*__LONG_QUICKNAVTOTAL)-__ARRAY_UDT_QUICKNAVHISTORY[4],__ARRAY_UDT_QUICKNAVHISTORY[5]))*16+12))==*__LONG_IDECY))||new_error){ +if(qbevent){evnt(26070,19588,"ide_methods.bas");if(r)goto S_57435;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,19588,"ide_methods.bas");}while(r); +} +} +do{ +*__LONG_QUICKNAVTOTAL=*__LONG_QUICKNAVTOTAL+ 1 ; +if(!qbevent)break;evnt(26070,19591,"ide_methods.bas");}while(r); +do{ if (__ARRAY_UDT_QUICKNAVHISTORY[2]&2){ error(10); @@ -194432,356 +194432,356 @@ if (!__ARRAY_UDT_QUICKNAVHISTORY[0]) error(257); } } __ARRAY_UDT_QUICKNAVHISTORY[2]|=1; -} -if(!qbevent)break;evnt(26070,19592,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)__ARRAY_UDT_QUICKNAVHISTORY[0])+((array_check((*__LONG_QUICKNAVTOTAL)-__ARRAY_UDT_QUICKNAVHISTORY[4],__ARRAY_UDT_QUICKNAVHISTORY[5]))*16+12))=*__LONG_IDECY; -if(!qbevent)break;evnt(26070,19594,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)__ARRAY_UDT_QUICKNAVHISTORY[0])+((array_check((*__LONG_QUICKNAVTOTAL)-__ARRAY_UDT_QUICKNAVHISTORY[4],__ARRAY_UDT_QUICKNAVHISTORY[5]))*16+8))=*__LONG_IDECX; -if(!qbevent)break;evnt(26070,19595,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)__ARRAY_UDT_QUICKNAVHISTORY[0])+((array_check((*__LONG_QUICKNAVTOTAL)-__ARRAY_UDT_QUICKNAVHISTORY[4],__ARRAY_UDT_QUICKNAVHISTORY[5]))*16+4))=*__LONG_IDESY; -if(!qbevent)break;evnt(26070,19596,"ide_methods.bas");}while(r); -do{ -*(int32*)(((char*)__ARRAY_UDT_QUICKNAVHISTORY[0])+((array_check((*__LONG_QUICKNAVTOTAL)-__ARRAY_UDT_QUICKNAVHISTORY[4],__ARRAY_UDT_QUICKNAVHISTORY[5]))*16))=*__LONG_IDESX; -if(!qbevent)break;evnt(26070,19597,"ide_methods.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free263.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -void SUB_UPDATEIDEINFO(){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data264.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -S_57445:; -if ((qbs_cleanup(qbs_tmp_base,__STRING_IDEINFO->len))||new_error){ -if(qbevent){evnt(26070,19602,"ide_methods.bas");if(r)goto S_57445;} -S_57446:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_IDEINFO, 1 )== 0 )))||new_error){ -if(qbevent){evnt(26070,19603,"ide_methods.bas");if(r)goto S_57446;} -do{ -qbs_set(__STRING_IDEINFO,func_mid(__STRING_IDEINFO, 2 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19605,"ide_methods.bas");}while(r); -do{ -*_SUB_UPDATEIDEINFO_INTEGER_PERCENTAGE=qbr_float_to_long(func_val(func_mid(__STRING_IDEINFO, 1 , 3 ,0|1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19606,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 13 , 1 ,NULL,3); -if(!qbevent)break;evnt(26070,19607,"ide_methods.bas");}while(r); -do{ -sub__printstring( 2 ,*__LONG_IDEWY- 1 ,func_string(qbr(((*__LONG_IDEWX- 2 )**_SUB_UPDATEIDEINFO_INTEGER_PERCENTAGE)/ ((long double)( 100 ))),(qbs_new_txt_len("_",1)->chr[0])),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19608,"ide_methods.bas");}while(r); -} -} -do{ -qbs_set(_SUB_UPDATEIDEINFO_STRING_A,__STRING_IDEINFO); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19611,"ide_methods.bas");}while(r); -S_57454:; -if ((qbs_cleanup(qbs_tmp_base,-(_SUB_UPDATEIDEINFO_STRING_A->len>(*__LONG_IDEWX- 20 ))))||new_error){ -if(qbevent){evnt(26070,19612,"ide_methods.bas");if(r)goto S_57454;} -do{ -qbs_set(_SUB_UPDATEIDEINFO_STRING_A,qbs_add(qbs_left(_SUB_UPDATEIDEINFO_STRING_A,(*__LONG_IDEWX- 23 )),func_string( 3 , 250 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19612,"ide_methods.bas");}while(r); -} -S_57457:; -if ((qbs_cleanup(qbs_tmp_base,-(_SUB_UPDATEIDEINFO_STRING_A->len<(*__LONG_IDEWX- 20 ))))||new_error){ -if(qbevent){evnt(26070,19613,"ide_methods.bas");if(r)goto S_57457;} -do{ -qbs_set(_SUB_UPDATEIDEINFO_STRING_A,qbs_add(_SUB_UPDATEIDEINFO_STRING_A,func_space((*__LONG_IDEWX- 20 )-_SUB_UPDATEIDEINFO_STRING_A->len))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19613,"ide_methods.bas");}while(r); -} -do{ -qbg_sub_color( 0 , 3 ,NULL,3); -if(!qbevent)break;evnt(26070,19614,"ide_methods.bas");}while(r); -do{ -sub__printstring( 2 ,*__LONG_IDEWY+*__LONG_IDESUBWINDOW,_SUB_UPDATEIDEINFO_STRING_A,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19615,"ide_methods.bas");}while(r); -S_57462:; -if ((qbs_cleanup(qbs_tmp_base,-(__STRING_VERSIONSTRINGSTATUS->len== 0 )))||new_error){ -if(qbevent){evnt(26070,19617,"ide_methods.bas");if(r)goto S_57462;} -do{ -qbs_set(__STRING_VERSIONSTRINGSTATUS,qbs_add(qbs_new_txt_len(" v",2),__STRING_VERSION)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19618,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_VERSIONSTRINGSTATUS,qbs_add(__STRING_VERSIONSTRINGSTATUS,qbs_new_txt_len(" ",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19619,"ide_methods.bas");}while(r); -} -do{ -qbg_sub_color( 2 , 3 ,NULL,3); -if(!qbevent)break;evnt(26070,19622,"ide_methods.bas");}while(r); -do{ -sub__printstring(*__LONG_IDEWX- 21 -__STRING_VERSIONSTRINGSTATUS->len,*__LONG_IDEWY+*__LONG_IDESUBWINDOW,__STRING_VERSIONSTRINGSTATUS,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19623,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,19625,"ide_methods.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free264.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -void SUB_UPDATEMENUHELPLINE(qbs*_SUB_UPDATEMENUHELPLINE_STRING_A){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data265.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -S_57469:; -if ((qbs_cleanup(qbs_tmp_base,-(_SUB_UPDATEMENUHELPLINE_STRING_A->len>(*__LONG_IDEWX- 2 ))))||new_error){ -if(qbevent){evnt(26070,19629,"ide_methods.bas");if(r)goto S_57469;} -do{ -qbs_set(_SUB_UPDATEMENUHELPLINE_STRING_A,qbs_add(qbs_left(_SUB_UPDATEMENUHELPLINE_STRING_A,(*__LONG_IDEWX- 4 )),func_string( 3 , 250 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19629,"ide_methods.bas");}while(r); -} -do{ -qbg_sub_color( 0 , 3 ,NULL,3); -if(!qbevent)break;evnt(26070,19630,"ide_methods.bas");}while(r); -do{ -sub__printstring( 1 ,*__LONG_IDEWY+*__LONG_IDESUBWINDOW,func_space(*__LONG_IDEWX),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19631,"ide_methods.bas");}while(r); -do{ -sub__printstring( 2 ,*__LONG_IDEWY+*__LONG_IDESUBWINDOW,_SUB_UPDATEMENUHELPLINE_STRING_A,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19632,"ide_methods.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free265.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -int32 FUNC_DARKENFGBG(int8*_FUNC_DARKENFGBG_BYTE_ACTION){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data266.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -S_57475:; -if ((-(*_FUNC_DARKENFGBG_BYTE_ACTION== 1 ))||new_error){ -if(qbevent){evnt(26070,19638,"ide_methods.bas");if(r)goto S_57475;} -do{ -*_FUNC_DARKENFGBG_ULONG_TEMPDARKERBGCOLOR=func__rgb32(qbr(func__red32(*__ULONG_IDEBACKGROUNDCOLOR)* 0.5E+0 ),qbr(func__green32(*__ULONG_IDEBACKGROUNDCOLOR)* 0.5E+0 ),qbr(func__blue32(*__ULONG_IDEBACKGROUNDCOLOR)* 0.5E+0 )); -if(!qbevent)break;evnt(26070,19639,"ide_methods.bas");}while(r); -do{ -*_FUNC_DARKENFGBG_ULONG_TEMPDARKERBG2COLOR=func__rgb32(qbr(func__red32(*__ULONG_IDEBACKGROUNDCOLOR2)* 0.5E+0 ),qbr(func__green32(*__ULONG_IDEBACKGROUNDCOLOR2)* 0.5E+0 ),qbr(func__blue32(*__ULONG_IDEBACKGROUNDCOLOR2)* 0.5E+0 )); -if(!qbevent)break;evnt(26070,19640,"ide_methods.bas");}while(r); -do{ -*_FUNC_DARKENFGBG_ULONG_TEMPDARKERFGCOLOR=func__rgb32(qbr(func__red32(*__ULONG_IDETEXTCOLOR)* 0.5E+0 ),qbr(func__green32(*__ULONG_IDETEXTCOLOR)* 0.5E+0 ),qbr(func__blue32(*__ULONG_IDETEXTCOLOR)* 0.5E+0 )); -if(!qbevent)break;evnt(26070,19641,"ide_methods.bas");}while(r); -do{ -*_FUNC_DARKENFGBG_ULONG_TEMPDARKERKWCOLOR=func__rgb32(qbr(func__red32(*__ULONG_IDEKEYWORDCOLOR)* 0.5E+0 ),qbr(func__green32(*__ULONG_IDEKEYWORDCOLOR)* 0.5E+0 ),qbr(func__blue32(*__ULONG_IDEKEYWORDCOLOR)* 0.5E+0 )); -if(!qbevent)break;evnt(26070,19642,"ide_methods.bas");}while(r); -do{ -*_FUNC_DARKENFGBG_ULONG_TEMPDARKERNUMCOLOR=func__rgb32(qbr(func__red32(*__ULONG_IDENUMBERSCOLOR)* 0.5E+0 ),qbr(func__green32(*__ULONG_IDENUMBERSCOLOR)* 0.5E+0 ),qbr(func__blue32(*__ULONG_IDENUMBERSCOLOR)* 0.5E+0 )); -if(!qbevent)break;evnt(26070,19643,"ide_methods.bas");}while(r); -do{ -*_FUNC_DARKENFGBG_ULONG_TEMPDARKERCOMMENTCOLOR=func__rgb32(qbr(func__red32(*__ULONG_IDECOMMENTCOLOR)* 0.5E+0 ),qbr(func__green32(*__ULONG_IDECOMMENTCOLOR)* 0.5E+0 ),qbr(func__blue32(*__ULONG_IDECOMMENTCOLOR)* 0.5E+0 )); -if(!qbevent)break;evnt(26070,19644,"ide_methods.bas");}while(r); -do{ -*_FUNC_DARKENFGBG_ULONG_TEMPDARKERIDECHROMACOLOR=func__rgb32(qbr(func__red32(*__ULONG_IDECHROMACOLOR)* 0.5E+0 ),qbr(func__green32(*__ULONG_IDECHROMACOLOR)* 0.5E+0 ),qbr(func__blue32(*__ULONG_IDECHROMACOLOR)* 0.5E+0 )); -if(!qbevent)break;evnt(26070,19645,"ide_methods.bas");}while(r); -do{ -*_FUNC_DARKENFGBG_ULONG_TEMPDARKERMETACOLOR=func__rgb32(qbr(func__red32(*__ULONG_IDEMETACOMMANDCOLOR)* 0.5E+0 ),qbr(func__green32(*__ULONG_IDEMETACOMMANDCOLOR)* 0.5E+0 ),qbr(func__blue32(*__ULONG_IDEMETACOMMANDCOLOR)* 0.5E+0 )); -if(!qbevent)break;evnt(26070,19646,"ide_methods.bas");}while(r); -do{ -*_FUNC_DARKENFGBG_ULONG_TEMPDARKERQUOTECOLOR=func__rgb32(qbr(func__red32(*__ULONG_IDEQUOTECOLOR)* 0.5E+0 ),qbr(func__green32(*__ULONG_IDEQUOTECOLOR)* 0.5E+0 ),qbr(func__blue32(*__ULONG_IDEQUOTECOLOR)* 0.5E+0 )); -if(!qbevent)break;evnt(26070,19647,"ide_methods.bas");}while(r); -do{ -*_FUNC_DARKENFGBG_ULONG_TEMPDARKERERRORCOLOR=func__rgb32(qbr(func__red32(*__ULONG_IDEERRORCOLOR)* 0.5E+0 ),qbr(func__green32(*_FUNC_DARKENFGBG_LONG_IDEERRROCOLOR)* 0.5E+0 ),qbr(func__blue32(*__ULONG_IDEERRORCOLOR)* 0.5E+0 )); -if(!qbevent)break;evnt(26070,19648,"ide_methods.bas");}while(r); -do{ -sub__palettecolor( 1 ,*_FUNC_DARKENFGBG_ULONG_TEMPDARKERBGCOLOR, 0 ,1); -if(!qbevent)break;evnt(26070,19649,"ide_methods.bas");}while(r); -do{ -sub__palettecolor( 4 ,*_FUNC_DARKENFGBG_ULONG_TEMPDARKERERRORCOLOR, 0 ,1); -if(!qbevent)break;evnt(26070,19650,"ide_methods.bas");}while(r); -do{ -sub__palettecolor( 5 ,*_FUNC_DARKENFGBG_ULONG_TEMPDARKERBGCOLOR, 0 ,1); -if(!qbevent)break;evnt(26070,19651,"ide_methods.bas");}while(r); -do{ -sub__palettecolor( 6 ,*_FUNC_DARKENFGBG_ULONG_TEMPDARKERBG2COLOR, 0 ,1); -if(!qbevent)break;evnt(26070,19652,"ide_methods.bas");}while(r); -do{ -sub__palettecolor( 7 ,*_FUNC_DARKENFGBG_ULONG_TEMPDARKERIDECHROMACOLOR, 0 ,1); -if(!qbevent)break;evnt(26070,19653,"ide_methods.bas");}while(r); -do{ -sub__palettecolor( 8 ,*_FUNC_DARKENFGBG_ULONG_TEMPDARKERNUMCOLOR, 0 ,1); -if(!qbevent)break;evnt(26070,19654,"ide_methods.bas");}while(r); -do{ -sub__palettecolor( 10 ,*_FUNC_DARKENFGBG_ULONG_TEMPDARKERMETACOLOR, 0 ,1); -if(!qbevent)break;evnt(26070,19655,"ide_methods.bas");}while(r); -do{ -sub__palettecolor( 11 ,*_FUNC_DARKENFGBG_ULONG_TEMPDARKERCOMMENTCOLOR, 0 ,1); -if(!qbevent)break;evnt(26070,19656,"ide_methods.bas");}while(r); -do{ -sub__palettecolor( 12 ,*_FUNC_DARKENFGBG_ULONG_TEMPDARKERKWCOLOR, 0 ,1); -if(!qbevent)break;evnt(26070,19657,"ide_methods.bas");}while(r); -do{ -sub__palettecolor( 13 ,*_FUNC_DARKENFGBG_ULONG_TEMPDARKERFGCOLOR, 0 ,1); -if(!qbevent)break;evnt(26070,19658,"ide_methods.bas");}while(r); -do{ -sub__palettecolor( 14 ,*_FUNC_DARKENFGBG_ULONG_TEMPDARKERQUOTECOLOR, 0 ,1); -if(!qbevent)break;evnt(26070,19659,"ide_methods.bas");}while(r); -}else{ -do{ -sub__palettecolor( 1 ,*__ULONG_IDEBACKGROUNDCOLOR, 0 ,1); -if(!qbevent)break;evnt(26070,19661,"ide_methods.bas");}while(r); -do{ -sub__palettecolor( 4 ,*__ULONG_IDEERRORCOLOR, 0 ,1); -if(!qbevent)break;evnt(26070,19662,"ide_methods.bas");}while(r); -do{ -sub__palettecolor( 5 ,*__ULONG_IDEBRACKETHIGHLIGHTCOLOR, 0 ,1); -if(!qbevent)break;evnt(26070,19663,"ide_methods.bas");}while(r); -do{ -sub__palettecolor( 6 ,*__ULONG_IDEBACKGROUNDCOLOR2, 0 ,1); -if(!qbevent)break;evnt(26070,19664,"ide_methods.bas");}while(r); -do{ -sub__palettecolor( 7 ,*__ULONG_IDECHROMACOLOR, 0 ,1); -if(!qbevent)break;evnt(26070,19665,"ide_methods.bas");}while(r); -do{ -sub__palettecolor( 8 ,*__ULONG_IDENUMBERSCOLOR, 0 ,1); -if(!qbevent)break;evnt(26070,19666,"ide_methods.bas");}while(r); -do{ -sub__palettecolor( 10 ,*__ULONG_IDEMETACOMMANDCOLOR, 0 ,1); -if(!qbevent)break;evnt(26070,19667,"ide_methods.bas");}while(r); -do{ -sub__palettecolor( 11 ,*__ULONG_IDECOMMENTCOLOR, 0 ,1); -if(!qbevent)break;evnt(26070,19668,"ide_methods.bas");}while(r); -do{ -sub__palettecolor( 12 ,*__ULONG_IDEKEYWORDCOLOR, 0 ,1); -if(!qbevent)break;evnt(26070,19669,"ide_methods.bas");}while(r); -do{ -sub__palettecolor( 13 ,*__ULONG_IDETEXTCOLOR, 0 ,1); -if(!qbevent)break;evnt(26070,19670,"ide_methods.bas");}while(r); -do{ -sub__palettecolor( 14 ,*__ULONG_IDEQUOTECOLOR, 0 ,1); -if(!qbevent)break;evnt(26070,19671,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_DARKENFGBG_LONG_DARKENFGBG= 0 ; -if(!qbevent)break;evnt(26070,19674,"ide_methods.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free266.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -return *_FUNC_DARKENFGBG_LONG_DARKENFGBG; -} -void SUB_HIDEBRACKETHIGHLIGHT(){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data267.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -*_SUB_HIDEBRACKETHIGHLIGHT_LONG_OLDBRACKETHIGHLIGHTSETTING=*__INTEGER_BRACKETHIGHLIGHT; -if(!qbevent)break;evnt(26070,19681,"ide_methods.bas");}while(r); -do{ -*_SUB_HIDEBRACKETHIGHLIGHT_LONG_OLDMULTIHIGHLIGHTSETTING=*__INTEGER_MULTIHIGHLIGHT; -if(!qbevent)break;evnt(26070,19682,"ide_methods.bas");}while(r); -do{ -*_SUB_HIDEBRACKETHIGHLIGHT_LONG_OLDSHOWLINENUMBERSUSEBG=*__BYTE_SHOWLINENUMBERSUSEBG; -if(!qbevent)break;evnt(26070,19683,"ide_methods.bas");}while(r); -do{ -*__INTEGER_BRACKETHIGHLIGHT= 0 ; -if(!qbevent)break;evnt(26070,19684,"ide_methods.bas");}while(r); -do{ -*__INTEGER_MULTIHIGHLIGHT= 0 ; -if(!qbevent)break;evnt(26070,19685,"ide_methods.bas");}while(r); -do{ -*__BYTE_SHOWLINENUMBERSUSEBG= 0 ; -if(!qbevent)break;evnt(26070,19686,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 0 ,NULL,NULL,4); -if(!qbevent)break;evnt(26070,19687,"ide_methods.bas");}while(r); -do{ -*__BYTE_HIDECURRENTLINEHIGHLIGHT= -1 ; -if(!qbevent)break;evnt(26070,19688,"ide_methods.bas");}while(r); -do{ -SUB_IDESHOWTEXT(); -if(!qbevent)break;evnt(26070,19689,"ide_methods.bas");}while(r); -do{ -*__BYTE_HIDECURRENTLINEHIGHLIGHT= 0 ; -if(!qbevent)break;evnt(26070,19690,"ide_methods.bas");}while(r); -do{ -*__INTEGER_BRACKETHIGHLIGHT=*_SUB_HIDEBRACKETHIGHLIGHT_LONG_OLDBRACKETHIGHLIGHTSETTING; -if(!qbevent)break;evnt(26070,19691,"ide_methods.bas");}while(r); -do{ -*__INTEGER_MULTIHIGHLIGHT=*_SUB_HIDEBRACKETHIGHLIGHT_LONG_OLDMULTIHIGHLIGHTSETTING; -if(!qbevent)break;evnt(26070,19692,"ide_methods.bas");}while(r); -do{ -*__BYTE_SHOWLINENUMBERSUSEBG=*_SUB_HIDEBRACKETHIGHLIGHT_LONG_OLDSHOWLINENUMBERSUSEBG; -if(!qbevent)break;evnt(26070,19693,"ide_methods.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free267.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -void SUB_LOADCOLORSCHEMES(){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data268.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -if(!qbevent)break;evnt(26070,19697,"ide_methods.bas");}while(r); -do{ -*__INTEGER_PRESETCOLORSCHEMES= 10 ; -if(!qbevent)break;evnt(26070,19699,"ide_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26070,19592,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)__ARRAY_UDT_QUICKNAVHISTORY[0])+((array_check((*__LONG_QUICKNAVTOTAL)-__ARRAY_UDT_QUICKNAVHISTORY[4],__ARRAY_UDT_QUICKNAVHISTORY[5]))*16+12))=*__LONG_IDECY; +if(!qbevent)break;evnt(26070,19594,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)__ARRAY_UDT_QUICKNAVHISTORY[0])+((array_check((*__LONG_QUICKNAVTOTAL)-__ARRAY_UDT_QUICKNAVHISTORY[4],__ARRAY_UDT_QUICKNAVHISTORY[5]))*16+8))=*__LONG_IDECX; +if(!qbevent)break;evnt(26070,19595,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)__ARRAY_UDT_QUICKNAVHISTORY[0])+((array_check((*__LONG_QUICKNAVTOTAL)-__ARRAY_UDT_QUICKNAVHISTORY[4],__ARRAY_UDT_QUICKNAVHISTORY[5]))*16+4))=*__LONG_IDESY; +if(!qbevent)break;evnt(26070,19596,"ide_methods.bas");}while(r); +do{ +*(int32*)(((char*)__ARRAY_UDT_QUICKNAVHISTORY[0])+((array_check((*__LONG_QUICKNAVTOTAL)-__ARRAY_UDT_QUICKNAVHISTORY[4],__ARRAY_UDT_QUICKNAVHISTORY[5]))*16))=*__LONG_IDESX; +if(!qbevent)break;evnt(26070,19597,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free263.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +void SUB_UPDATEIDEINFO(){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data264.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +S_57445:; +if ((qbs_cleanup(qbs_tmp_base,__STRING_IDEINFO->len))||new_error){ +if(qbevent){evnt(26070,19602,"ide_methods.bas");if(r)goto S_57445;} +S_57446:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_IDEINFO, 1 )== 0 )))||new_error){ +if(qbevent){evnt(26070,19603,"ide_methods.bas");if(r)goto S_57446;} +do{ +qbs_set(__STRING_IDEINFO,func_mid(__STRING_IDEINFO, 2 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19605,"ide_methods.bas");}while(r); +do{ +*_SUB_UPDATEIDEINFO_INTEGER_PERCENTAGE=qbr_float_to_long(func_val(func_mid(__STRING_IDEINFO, 1 , 3 ,0|1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19606,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 13 , 1 ,NULL,3); +if(!qbevent)break;evnt(26070,19607,"ide_methods.bas");}while(r); +do{ +sub__printstring( 2 ,*__LONG_IDEWY- 1 ,func_string(qbr(((*__LONG_IDEWX- 2 )**_SUB_UPDATEIDEINFO_INTEGER_PERCENTAGE)/ ((long double)( 100 ))),(qbs_new_txt_len("_",1)->chr[0])),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19608,"ide_methods.bas");}while(r); +} +} +do{ +qbs_set(_SUB_UPDATEIDEINFO_STRING_A,__STRING_IDEINFO); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19611,"ide_methods.bas");}while(r); +S_57454:; +if ((qbs_cleanup(qbs_tmp_base,-(_SUB_UPDATEIDEINFO_STRING_A->len>(*__LONG_IDEWX- 20 ))))||new_error){ +if(qbevent){evnt(26070,19612,"ide_methods.bas");if(r)goto S_57454;} +do{ +qbs_set(_SUB_UPDATEIDEINFO_STRING_A,qbs_add(qbs_left(_SUB_UPDATEIDEINFO_STRING_A,(*__LONG_IDEWX- 23 )),func_string( 3 , 250 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19612,"ide_methods.bas");}while(r); +} +S_57457:; +if ((qbs_cleanup(qbs_tmp_base,-(_SUB_UPDATEIDEINFO_STRING_A->len<(*__LONG_IDEWX- 20 ))))||new_error){ +if(qbevent){evnt(26070,19613,"ide_methods.bas");if(r)goto S_57457;} +do{ +qbs_set(_SUB_UPDATEIDEINFO_STRING_A,qbs_add(_SUB_UPDATEIDEINFO_STRING_A,func_space((*__LONG_IDEWX- 20 )-_SUB_UPDATEIDEINFO_STRING_A->len))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19613,"ide_methods.bas");}while(r); +} +do{ +qbg_sub_color( 0 , 3 ,NULL,3); +if(!qbevent)break;evnt(26070,19614,"ide_methods.bas");}while(r); +do{ +sub__printstring( 2 ,*__LONG_IDEWY+*__LONG_IDESUBWINDOW,_SUB_UPDATEIDEINFO_STRING_A,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19615,"ide_methods.bas");}while(r); +S_57462:; +if ((qbs_cleanup(qbs_tmp_base,-(__STRING_VERSIONSTRINGSTATUS->len== 0 )))||new_error){ +if(qbevent){evnt(26070,19617,"ide_methods.bas");if(r)goto S_57462;} +do{ +qbs_set(__STRING_VERSIONSTRINGSTATUS,qbs_add(qbs_new_txt_len(" v",2),__STRING_VERSION)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19618,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_VERSIONSTRINGSTATUS,qbs_add(__STRING_VERSIONSTRINGSTATUS,qbs_new_txt_len(" ",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19619,"ide_methods.bas");}while(r); +} +do{ +qbg_sub_color( 2 , 3 ,NULL,3); +if(!qbevent)break;evnt(26070,19622,"ide_methods.bas");}while(r); +do{ +sub__printstring(*__LONG_IDEWX- 21 -__STRING_VERSIONSTRINGSTATUS->len,*__LONG_IDEWY+*__LONG_IDESUBWINDOW,__STRING_VERSIONSTRINGSTATUS,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19623,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,19625,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free264.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +void SUB_UPDATEMENUHELPLINE(qbs*_SUB_UPDATEMENUHELPLINE_STRING_A){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data265.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +S_57469:; +if ((qbs_cleanup(qbs_tmp_base,-(_SUB_UPDATEMENUHELPLINE_STRING_A->len>(*__LONG_IDEWX- 2 ))))||new_error){ +if(qbevent){evnt(26070,19629,"ide_methods.bas");if(r)goto S_57469;} +do{ +qbs_set(_SUB_UPDATEMENUHELPLINE_STRING_A,qbs_add(qbs_left(_SUB_UPDATEMENUHELPLINE_STRING_A,(*__LONG_IDEWX- 4 )),func_string( 3 , 250 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19629,"ide_methods.bas");}while(r); +} +do{ +qbg_sub_color( 0 , 3 ,NULL,3); +if(!qbevent)break;evnt(26070,19630,"ide_methods.bas");}while(r); +do{ +sub__printstring( 1 ,*__LONG_IDEWY+*__LONG_IDESUBWINDOW,func_space(*__LONG_IDEWX),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19631,"ide_methods.bas");}while(r); +do{ +sub__printstring( 2 ,*__LONG_IDEWY+*__LONG_IDESUBWINDOW,_SUB_UPDATEMENUHELPLINE_STRING_A,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19632,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free265.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +int32 FUNC_DARKENFGBG(int8*_FUNC_DARKENFGBG_BYTE_ACTION){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data266.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +S_57475:; +if ((-(*_FUNC_DARKENFGBG_BYTE_ACTION== 1 ))||new_error){ +if(qbevent){evnt(26070,19638,"ide_methods.bas");if(r)goto S_57475;} +do{ +*_FUNC_DARKENFGBG_ULONG_TEMPDARKERBGCOLOR=func__rgb32(qbr(func__red32(*__ULONG_IDEBACKGROUNDCOLOR)* 0.5E+0 ),qbr(func__green32(*__ULONG_IDEBACKGROUNDCOLOR)* 0.5E+0 ),qbr(func__blue32(*__ULONG_IDEBACKGROUNDCOLOR)* 0.5E+0 )); +if(!qbevent)break;evnt(26070,19639,"ide_methods.bas");}while(r); +do{ +*_FUNC_DARKENFGBG_ULONG_TEMPDARKERBG2COLOR=func__rgb32(qbr(func__red32(*__ULONG_IDEBACKGROUNDCOLOR2)* 0.5E+0 ),qbr(func__green32(*__ULONG_IDEBACKGROUNDCOLOR2)* 0.5E+0 ),qbr(func__blue32(*__ULONG_IDEBACKGROUNDCOLOR2)* 0.5E+0 )); +if(!qbevent)break;evnt(26070,19640,"ide_methods.bas");}while(r); +do{ +*_FUNC_DARKENFGBG_ULONG_TEMPDARKERFGCOLOR=func__rgb32(qbr(func__red32(*__ULONG_IDETEXTCOLOR)* 0.5E+0 ),qbr(func__green32(*__ULONG_IDETEXTCOLOR)* 0.5E+0 ),qbr(func__blue32(*__ULONG_IDETEXTCOLOR)* 0.5E+0 )); +if(!qbevent)break;evnt(26070,19641,"ide_methods.bas");}while(r); +do{ +*_FUNC_DARKENFGBG_ULONG_TEMPDARKERKWCOLOR=func__rgb32(qbr(func__red32(*__ULONG_IDEKEYWORDCOLOR)* 0.5E+0 ),qbr(func__green32(*__ULONG_IDEKEYWORDCOLOR)* 0.5E+0 ),qbr(func__blue32(*__ULONG_IDEKEYWORDCOLOR)* 0.5E+0 )); +if(!qbevent)break;evnt(26070,19642,"ide_methods.bas");}while(r); +do{ +*_FUNC_DARKENFGBG_ULONG_TEMPDARKERNUMCOLOR=func__rgb32(qbr(func__red32(*__ULONG_IDENUMBERSCOLOR)* 0.5E+0 ),qbr(func__green32(*__ULONG_IDENUMBERSCOLOR)* 0.5E+0 ),qbr(func__blue32(*__ULONG_IDENUMBERSCOLOR)* 0.5E+0 )); +if(!qbevent)break;evnt(26070,19643,"ide_methods.bas");}while(r); +do{ +*_FUNC_DARKENFGBG_ULONG_TEMPDARKERCOMMENTCOLOR=func__rgb32(qbr(func__red32(*__ULONG_IDECOMMENTCOLOR)* 0.5E+0 ),qbr(func__green32(*__ULONG_IDECOMMENTCOLOR)* 0.5E+0 ),qbr(func__blue32(*__ULONG_IDECOMMENTCOLOR)* 0.5E+0 )); +if(!qbevent)break;evnt(26070,19644,"ide_methods.bas");}while(r); +do{ +*_FUNC_DARKENFGBG_ULONG_TEMPDARKERIDECHROMACOLOR=func__rgb32(qbr(func__red32(*__ULONG_IDECHROMACOLOR)* 0.5E+0 ),qbr(func__green32(*__ULONG_IDECHROMACOLOR)* 0.5E+0 ),qbr(func__blue32(*__ULONG_IDECHROMACOLOR)* 0.5E+0 )); +if(!qbevent)break;evnt(26070,19645,"ide_methods.bas");}while(r); +do{ +*_FUNC_DARKENFGBG_ULONG_TEMPDARKERMETACOLOR=func__rgb32(qbr(func__red32(*__ULONG_IDEMETACOMMANDCOLOR)* 0.5E+0 ),qbr(func__green32(*__ULONG_IDEMETACOMMANDCOLOR)* 0.5E+0 ),qbr(func__blue32(*__ULONG_IDEMETACOMMANDCOLOR)* 0.5E+0 )); +if(!qbevent)break;evnt(26070,19646,"ide_methods.bas");}while(r); +do{ +*_FUNC_DARKENFGBG_ULONG_TEMPDARKERQUOTECOLOR=func__rgb32(qbr(func__red32(*__ULONG_IDEQUOTECOLOR)* 0.5E+0 ),qbr(func__green32(*__ULONG_IDEQUOTECOLOR)* 0.5E+0 ),qbr(func__blue32(*__ULONG_IDEQUOTECOLOR)* 0.5E+0 )); +if(!qbevent)break;evnt(26070,19647,"ide_methods.bas");}while(r); +do{ +*_FUNC_DARKENFGBG_ULONG_TEMPDARKERERRORCOLOR=func__rgb32(qbr(func__red32(*__ULONG_IDEERRORCOLOR)* 0.5E+0 ),qbr(func__green32(*_FUNC_DARKENFGBG_LONG_IDEERRROCOLOR)* 0.5E+0 ),qbr(func__blue32(*__ULONG_IDEERRORCOLOR)* 0.5E+0 )); +if(!qbevent)break;evnt(26070,19648,"ide_methods.bas");}while(r); +do{ +sub__palettecolor( 1 ,*_FUNC_DARKENFGBG_ULONG_TEMPDARKERBGCOLOR, 0 ,1); +if(!qbevent)break;evnt(26070,19649,"ide_methods.bas");}while(r); +do{ +sub__palettecolor( 4 ,*_FUNC_DARKENFGBG_ULONG_TEMPDARKERERRORCOLOR, 0 ,1); +if(!qbevent)break;evnt(26070,19650,"ide_methods.bas");}while(r); +do{ +sub__palettecolor( 5 ,*_FUNC_DARKENFGBG_ULONG_TEMPDARKERBGCOLOR, 0 ,1); +if(!qbevent)break;evnt(26070,19651,"ide_methods.bas");}while(r); +do{ +sub__palettecolor( 6 ,*_FUNC_DARKENFGBG_ULONG_TEMPDARKERBG2COLOR, 0 ,1); +if(!qbevent)break;evnt(26070,19652,"ide_methods.bas");}while(r); +do{ +sub__palettecolor( 7 ,*_FUNC_DARKENFGBG_ULONG_TEMPDARKERIDECHROMACOLOR, 0 ,1); +if(!qbevent)break;evnt(26070,19653,"ide_methods.bas");}while(r); +do{ +sub__palettecolor( 8 ,*_FUNC_DARKENFGBG_ULONG_TEMPDARKERNUMCOLOR, 0 ,1); +if(!qbevent)break;evnt(26070,19654,"ide_methods.bas");}while(r); +do{ +sub__palettecolor( 10 ,*_FUNC_DARKENFGBG_ULONG_TEMPDARKERMETACOLOR, 0 ,1); +if(!qbevent)break;evnt(26070,19655,"ide_methods.bas");}while(r); +do{ +sub__palettecolor( 11 ,*_FUNC_DARKENFGBG_ULONG_TEMPDARKERCOMMENTCOLOR, 0 ,1); +if(!qbevent)break;evnt(26070,19656,"ide_methods.bas");}while(r); +do{ +sub__palettecolor( 12 ,*_FUNC_DARKENFGBG_ULONG_TEMPDARKERKWCOLOR, 0 ,1); +if(!qbevent)break;evnt(26070,19657,"ide_methods.bas");}while(r); +do{ +sub__palettecolor( 13 ,*_FUNC_DARKENFGBG_ULONG_TEMPDARKERFGCOLOR, 0 ,1); +if(!qbevent)break;evnt(26070,19658,"ide_methods.bas");}while(r); +do{ +sub__palettecolor( 14 ,*_FUNC_DARKENFGBG_ULONG_TEMPDARKERQUOTECOLOR, 0 ,1); +if(!qbevent)break;evnt(26070,19659,"ide_methods.bas");}while(r); +}else{ +do{ +sub__palettecolor( 1 ,*__ULONG_IDEBACKGROUNDCOLOR, 0 ,1); +if(!qbevent)break;evnt(26070,19661,"ide_methods.bas");}while(r); +do{ +sub__palettecolor( 4 ,*__ULONG_IDEERRORCOLOR, 0 ,1); +if(!qbevent)break;evnt(26070,19662,"ide_methods.bas");}while(r); +do{ +sub__palettecolor( 5 ,*__ULONG_IDEBRACKETHIGHLIGHTCOLOR, 0 ,1); +if(!qbevent)break;evnt(26070,19663,"ide_methods.bas");}while(r); +do{ +sub__palettecolor( 6 ,*__ULONG_IDEBACKGROUNDCOLOR2, 0 ,1); +if(!qbevent)break;evnt(26070,19664,"ide_methods.bas");}while(r); +do{ +sub__palettecolor( 7 ,*__ULONG_IDECHROMACOLOR, 0 ,1); +if(!qbevent)break;evnt(26070,19665,"ide_methods.bas");}while(r); +do{ +sub__palettecolor( 8 ,*__ULONG_IDENUMBERSCOLOR, 0 ,1); +if(!qbevent)break;evnt(26070,19666,"ide_methods.bas");}while(r); +do{ +sub__palettecolor( 10 ,*__ULONG_IDEMETACOMMANDCOLOR, 0 ,1); +if(!qbevent)break;evnt(26070,19667,"ide_methods.bas");}while(r); +do{ +sub__palettecolor( 11 ,*__ULONG_IDECOMMENTCOLOR, 0 ,1); +if(!qbevent)break;evnt(26070,19668,"ide_methods.bas");}while(r); +do{ +sub__palettecolor( 12 ,*__ULONG_IDEKEYWORDCOLOR, 0 ,1); +if(!qbevent)break;evnt(26070,19669,"ide_methods.bas");}while(r); +do{ +sub__palettecolor( 13 ,*__ULONG_IDETEXTCOLOR, 0 ,1); +if(!qbevent)break;evnt(26070,19670,"ide_methods.bas");}while(r); +do{ +sub__palettecolor( 14 ,*__ULONG_IDEQUOTECOLOR, 0 ,1); +if(!qbevent)break;evnt(26070,19671,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_DARKENFGBG_LONG_DARKENFGBG= 0 ; +if(!qbevent)break;evnt(26070,19674,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free266.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +return *_FUNC_DARKENFGBG_LONG_DARKENFGBG; +} +void SUB_HIDEBRACKETHIGHLIGHT(){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data267.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +*_SUB_HIDEBRACKETHIGHLIGHT_LONG_OLDBRACKETHIGHLIGHTSETTING=*__INTEGER_BRACKETHIGHLIGHT; +if(!qbevent)break;evnt(26070,19681,"ide_methods.bas");}while(r); +do{ +*_SUB_HIDEBRACKETHIGHLIGHT_LONG_OLDMULTIHIGHLIGHTSETTING=*__INTEGER_MULTIHIGHLIGHT; +if(!qbevent)break;evnt(26070,19682,"ide_methods.bas");}while(r); +do{ +*_SUB_HIDEBRACKETHIGHLIGHT_LONG_OLDSHOWLINENUMBERSUSEBG=*__BYTE_SHOWLINENUMBERSUSEBG; +if(!qbevent)break;evnt(26070,19683,"ide_methods.bas");}while(r); +do{ +*__INTEGER_BRACKETHIGHLIGHT= 0 ; +if(!qbevent)break;evnt(26070,19684,"ide_methods.bas");}while(r); +do{ +*__INTEGER_MULTIHIGHLIGHT= 0 ; +if(!qbevent)break;evnt(26070,19685,"ide_methods.bas");}while(r); +do{ +*__BYTE_SHOWLINENUMBERSUSEBG= 0 ; +if(!qbevent)break;evnt(26070,19686,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 0 ,NULL,NULL,4); +if(!qbevent)break;evnt(26070,19687,"ide_methods.bas");}while(r); +do{ +*__BYTE_HIDECURRENTLINEHIGHLIGHT= -1 ; +if(!qbevent)break;evnt(26070,19688,"ide_methods.bas");}while(r); +do{ +SUB_IDESHOWTEXT(); +if(!qbevent)break;evnt(26070,19689,"ide_methods.bas");}while(r); +do{ +*__BYTE_HIDECURRENTLINEHIGHLIGHT= 0 ; +if(!qbevent)break;evnt(26070,19690,"ide_methods.bas");}while(r); +do{ +*__INTEGER_BRACKETHIGHLIGHT=*_SUB_HIDEBRACKETHIGHLIGHT_LONG_OLDBRACKETHIGHLIGHTSETTING; +if(!qbevent)break;evnt(26070,19691,"ide_methods.bas");}while(r); +do{ +*__INTEGER_MULTIHIGHLIGHT=*_SUB_HIDEBRACKETHIGHLIGHT_LONG_OLDMULTIHIGHLIGHTSETTING; +if(!qbevent)break;evnt(26070,19692,"ide_methods.bas");}while(r); +do{ +*__BYTE_SHOWLINENUMBERSUSEBG=*_SUB_HIDEBRACKETHIGHLIGHT_LONG_OLDSHOWLINENUMBERSUSEBG; +if(!qbevent)break;evnt(26070,19693,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free267.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +void SUB_LOADCOLORSCHEMES(){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data268.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +if(!qbevent)break;evnt(26070,19697,"ide_methods.bas");}while(r); +do{ +*__INTEGER_PRESETCOLORSCHEMES= 10 ; +if(!qbevent)break;evnt(26070,19699,"ide_methods.bas");}while(r); +do{ if (__ARRAY_STRING_COLORSCHEMES[2]&2){ error(10); @@ -194804,120 +194804,120 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[tmp_long]=(uint64) }else{ while(tmp_long--) ((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[tmp_long]=(uint64)qbs_new(0,0); } -} -if(!qbevent)break;evnt(26070,19700,"ide_methods.bas");}while(r); -do{ -*_SUB_LOADCOLORSCHEMES_LONG_I= 0 ; -if(!qbevent)break;evnt(26070,19700,"ide_methods.bas");}while(r); -do{ -*_SUB_LOADCOLORSCHEMES_LONG_I=*_SUB_LOADCOLORSCHEMES_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,19701,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_LOADCOLORSCHEMES_LONG_I)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[tmp_long])),qbs_new_txt_len("Super dark blue|216216216069118147216098078255167000085206085098098098000000039000049078000088108170170170",106)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19701,"ide_methods.bas");}while(r); -do{ -*_SUB_LOADCOLORSCHEMES_LONG_I=*_SUB_LOADCOLORSCHEMES_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,19702,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_LOADCOLORSCHEMES_LONG_I)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[tmp_long])),qbs_new_txt_len("Dark blue|226226226069147216245128177255177000085255085049196196000000069000068108000147177170170170",100)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19702,"ide_methods.bas");}while(r); -do{ -*_SUB_LOADCOLORSCHEMES_LONG_I=*_SUB_LOADCOLORSCHEMES_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,19703,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_LOADCOLORSCHEMES_LONG_I)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[tmp_long])),qbs_new_txt_len("QB64 Original|226226226147196235245128177255255085085255085085255255000000170000108177000147177170170170",104)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19703,"ide_methods.bas");}while(r); -do{ -*_SUB_LOADCOLORSCHEMES_LONG_I=*_SUB_LOADCOLORSCHEMES_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,19704,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_LOADCOLORSCHEMES_LONG_I)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[tmp_long])),qbs_new_txt_len("Classic QB4.5|177177177177177177177177177177177177177177177177177177000000170000000170000147177170170170",104)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19704,"ide_methods.bas");}while(r); -do{ -*_SUB_LOADCOLORSCHEMES_LONG_I=*_SUB_LOADCOLORSCHEMES_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,19705,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_LOADCOLORSCHEMES_LONG_I)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[tmp_long])),qbs_new_txt_len("CF Dark|226226226115222227255043138255178034185237049157118137043045037010000020088088088170170170",98)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19705,"ide_methods.bas");}while(r); -do{ -*_SUB_LOADCOLORSCHEMES_LONG_I=*_SUB_LOADCOLORSCHEMES_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,19706,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_LOADCOLORSCHEMES_LONG_I)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[tmp_long])),qbs_new_txt_len("Dark side|255255255206206000245010098000177000085255085049186245011022029100100100000147177170170170",100)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19706,"ide_methods.bas");}while(r); -do{ -*_SUB_LOADCOLORSCHEMES_LONG_I=*_SUB_LOADCOLORSCHEMES_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,19707,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_LOADCOLORSCHEMES_LONG_I)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[tmp_long])),qbs_new_txt_len("Camouflage|196196196255255255245128177255177000137177147147137020000039029098069020000147177170170170",101)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19707,"ide_methods.bas");}while(r); -do{ -*_SUB_LOADCOLORSCHEMES_LONG_I=*_SUB_LOADCOLORSCHEMES_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,19708,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_LOADCOLORSCHEMES_LONG_I)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[tmp_long])),qbs_new_txt_len("Plum|186186186255255255245128177255108000085186078085186255059000059088088128000147177170170170",95)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19708,"ide_methods.bas");}while(r); -do{ -*_SUB_LOADCOLORSCHEMES_LONG_I=*_SUB_LOADCOLORSCHEMES_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,19709,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_LOADCOLORSCHEMES_LONG_I)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[tmp_long])),qbs_new_txt_len("Light green|051051051000000216245128177255157255147177093206206206234255234206255206000147177170170170",102)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19709,"ide_methods.bas");}while(r); -do{ -*_SUB_LOADCOLORSCHEMES_LONG_I=*_SUB_LOADCOLORSCHEMES_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,19710,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*_SUB_LOADCOLORSCHEMES_LONG_I)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[tmp_long])),qbs_new_txt_len("All white|051051051000000216245128177206147000059177000206206206255255255245245245000147177170170170",100)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19710,"ide_methods.bas");}while(r); -do{ -*__INTEGER_TOTALCOLORSCHEMES=*__INTEGER_PRESETCOLORSCHEMES; -if(!qbevent)break;evnt(26070,19711,"ide_methods.bas");}while(r); -do{ -*__INTEGER_LASTVALIDCOLORSCHEME=*__INTEGER_TOTALCOLORSCHEMES; -if(!qbevent)break;evnt(26070,19712,"ide_methods.bas");}while(r); -do{ -*_SUB_LOADCOLORSCHEMES_LONG_I= 0 ; -if(!qbevent)break;evnt(26070,19715,"ide_methods.bas");}while(r); -S_57551:; -do{ -if(qbevent){evnt(26070,19716,"ide_methods.bas");if(r)goto S_57551;} -do{ -*_SUB_LOADCOLORSCHEMES_LONG_I=*_SUB_LOADCOLORSCHEMES_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,19717,"ide_methods.bas");}while(r); -do{ -*_SUB_LOADCOLORSCHEMES_LONG_RESULT=FUNC_READCONFIGSETTING(__STRING_COLORSCHEMESSECTION,qbs_add(qbs_add(qbs_new_txt_len("Scheme",6),FUNC_STR2(_SUB_LOADCOLORSCHEMES_LONG_I)),qbs_new_txt_len("$",1)),_SUB_LOADCOLORSCHEMES_STRING_VALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19718,"ide_methods.bas");}while(r); -S_57554:; -if ((*_SUB_LOADCOLORSCHEMES_LONG_RESULT)||new_error){ -if(qbevent){evnt(26070,19719,"ide_methods.bas");if(r)goto S_57554;} -do{ -*__INTEGER_TOTALCOLORSCHEMES=*__INTEGER_TOTALCOLORSCHEMES+ 1 ; -if(!qbevent)break;evnt(26070,19720,"ide_methods.bas");}while(r); -S_57556:; -if ((qbs_cleanup(qbs_tmp_base,-(*__INTEGER_TOTALCOLORSCHEMES>func_ubound(__ARRAY_STRING_COLORSCHEMES,1,1))))||new_error){ -if(qbevent){evnt(26070,19721,"ide_methods.bas");if(r)goto S_57556;} -do{ +} +if(!qbevent)break;evnt(26070,19700,"ide_methods.bas");}while(r); +do{ +*_SUB_LOADCOLORSCHEMES_LONG_I= 0 ; +if(!qbevent)break;evnt(26070,19700,"ide_methods.bas");}while(r); +do{ +*_SUB_LOADCOLORSCHEMES_LONG_I=*_SUB_LOADCOLORSCHEMES_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,19701,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_LOADCOLORSCHEMES_LONG_I)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[tmp_long])),qbs_new_txt_len("Super dark blue|216216216069118147216098078255167000085206085098098098000000039000049078000088108170170170",106)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19701,"ide_methods.bas");}while(r); +do{ +*_SUB_LOADCOLORSCHEMES_LONG_I=*_SUB_LOADCOLORSCHEMES_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,19702,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_LOADCOLORSCHEMES_LONG_I)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[tmp_long])),qbs_new_txt_len("Dark blue|226226226069147216245128177255177000085255085049196196000000069000068108000147177170170170",100)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19702,"ide_methods.bas");}while(r); +do{ +*_SUB_LOADCOLORSCHEMES_LONG_I=*_SUB_LOADCOLORSCHEMES_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,19703,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_LOADCOLORSCHEMES_LONG_I)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[tmp_long])),qbs_new_txt_len("QB64 Original|226226226147196235245128177255255085085255085085255255000000170000108177000147177170170170",104)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19703,"ide_methods.bas");}while(r); +do{ +*_SUB_LOADCOLORSCHEMES_LONG_I=*_SUB_LOADCOLORSCHEMES_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,19704,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_LOADCOLORSCHEMES_LONG_I)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[tmp_long])),qbs_new_txt_len("Classic QB4.5|177177177177177177177177177177177177177177177177177177000000170000000170000147177170170170",104)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19704,"ide_methods.bas");}while(r); +do{ +*_SUB_LOADCOLORSCHEMES_LONG_I=*_SUB_LOADCOLORSCHEMES_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,19705,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_LOADCOLORSCHEMES_LONG_I)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[tmp_long])),qbs_new_txt_len("CF Dark|226226226115222227255043138255178034185237049157118137043045037010000020088088088170170170",98)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19705,"ide_methods.bas");}while(r); +do{ +*_SUB_LOADCOLORSCHEMES_LONG_I=*_SUB_LOADCOLORSCHEMES_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,19706,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_LOADCOLORSCHEMES_LONG_I)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[tmp_long])),qbs_new_txt_len("Dark side|255255255206206000245010098000177000085255085049186245011022029100100100000147177170170170",100)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19706,"ide_methods.bas");}while(r); +do{ +*_SUB_LOADCOLORSCHEMES_LONG_I=*_SUB_LOADCOLORSCHEMES_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,19707,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_LOADCOLORSCHEMES_LONG_I)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[tmp_long])),qbs_new_txt_len("Camouflage|196196196255255255245128177255177000137177147147137020000039029098069020000147177170170170",101)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19707,"ide_methods.bas");}while(r); +do{ +*_SUB_LOADCOLORSCHEMES_LONG_I=*_SUB_LOADCOLORSCHEMES_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,19708,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_LOADCOLORSCHEMES_LONG_I)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[tmp_long])),qbs_new_txt_len("Plum|186186186255255255245128177255108000085186078085186255059000059088088128000147177170170170",95)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19708,"ide_methods.bas");}while(r); +do{ +*_SUB_LOADCOLORSCHEMES_LONG_I=*_SUB_LOADCOLORSCHEMES_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,19709,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_LOADCOLORSCHEMES_LONG_I)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[tmp_long])),qbs_new_txt_len("Light green|051051051000000216245128177255157255147177093206206206234255234206255206000147177170170170",102)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19709,"ide_methods.bas");}while(r); +do{ +*_SUB_LOADCOLORSCHEMES_LONG_I=*_SUB_LOADCOLORSCHEMES_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,19710,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*_SUB_LOADCOLORSCHEMES_LONG_I)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[tmp_long])),qbs_new_txt_len("All white|051051051000000216245128177206147000059177000206206206255255255245245245000147177170170170",100)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19710,"ide_methods.bas");}while(r); +do{ +*__INTEGER_TOTALCOLORSCHEMES=*__INTEGER_PRESETCOLORSCHEMES; +if(!qbevent)break;evnt(26070,19711,"ide_methods.bas");}while(r); +do{ +*__INTEGER_LASTVALIDCOLORSCHEME=*__INTEGER_TOTALCOLORSCHEMES; +if(!qbevent)break;evnt(26070,19712,"ide_methods.bas");}while(r); +do{ +*_SUB_LOADCOLORSCHEMES_LONG_I= 0 ; +if(!qbevent)break;evnt(26070,19715,"ide_methods.bas");}while(r); +S_57551:; +do{ +if(qbevent){evnt(26070,19716,"ide_methods.bas");if(r)goto S_57551;} +do{ +*_SUB_LOADCOLORSCHEMES_LONG_I=*_SUB_LOADCOLORSCHEMES_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,19717,"ide_methods.bas");}while(r); +do{ +*_SUB_LOADCOLORSCHEMES_LONG_RESULT=FUNC_READCONFIGSETTING(__STRING_COLORSCHEMESSECTION,qbs_add(qbs_add(qbs_new_txt_len("Scheme",6),FUNC_STR2(_SUB_LOADCOLORSCHEMES_LONG_I)),qbs_new_txt_len("$",1)),_SUB_LOADCOLORSCHEMES_STRING_VALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19718,"ide_methods.bas");}while(r); +S_57554:; +if ((*_SUB_LOADCOLORSCHEMES_LONG_RESULT)||new_error){ +if(qbevent){evnt(26070,19719,"ide_methods.bas");if(r)goto S_57554;} +do{ +*__INTEGER_TOTALCOLORSCHEMES=*__INTEGER_TOTALCOLORSCHEMES+ 1 ; +if(!qbevent)break;evnt(26070,19720,"ide_methods.bas");}while(r); +S_57556:; +if ((qbs_cleanup(qbs_tmp_base,-(*__INTEGER_TOTALCOLORSCHEMES>func_ubound(__ARRAY_STRING_COLORSCHEMES,1,1))))||new_error){ +if(qbevent){evnt(26070,19721,"ide_methods.bas");if(r)goto S_57556;} +do{ if (__ARRAY_STRING_COLORSCHEMES[2]&2){ error(10); @@ -194960,2972 +194960,2972 @@ while(tmp_long--) ((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[tmp_long]=(uint64) while(tmp_long--) ((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -} -if(!qbevent)break;evnt(26070,19722,"ide_methods.bas");}while(r); -} -do{ -tmp_long=array_check((*__INTEGER_TOTALCOLORSCHEMES)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[tmp_long])),_SUB_LOADCOLORSCHEMES_STRING_VALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19724,"ide_methods.bas");}while(r); -do{ -*_SUB_LOADCOLORSCHEMES_LONG_FOUNDPIPE=func_instr(NULL,_SUB_LOADCOLORSCHEMES_STRING_VALUE,qbs_new_txt_len("|",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19725,"ide_methods.bas");}while(r); -S_57561:; -if ((-(*_SUB_LOADCOLORSCHEMES_LONG_FOUNDPIPE> 0 ))||new_error){ -if(qbevent){evnt(26070,19726,"ide_methods.bas");if(r)goto S_57561;} -S_57562:; -if ((qbs_cleanup(qbs_tmp_base,-(((int32)(func_mid(_SUB_LOADCOLORSCHEMES_STRING_VALUE,*_SUB_LOADCOLORSCHEMES_LONG_FOUNDPIPE+ 1 ,NULL,0))->len)== 81 )))||new_error){ -if(qbevent){evnt(26070,19727,"ide_methods.bas");if(r)goto S_57562;} -do{ -*__INTEGER_LASTVALIDCOLORSCHEME=*__INTEGER_TOTALCOLORSCHEMES; -if(!qbevent)break;evnt(26070,19729,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_LOADCOLORSCHEMES_STRING_VALUE,qbs_add(_SUB_LOADCOLORSCHEMES_STRING_VALUE,qbs_new_txt_len("170170170",9))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19730,"ide_methods.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_COLORSCHEMESSECTION,qbs_add(qbs_add(qbs_new_txt_len("Scheme",6),FUNC_STR2(_SUB_LOADCOLORSCHEMES_LONG_I)),qbs_new_txt_len("$",1)),_SUB_LOADCOLORSCHEMES_STRING_VALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19731,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*__INTEGER_TOTALCOLORSCHEMES)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[tmp_long])),_SUB_LOADCOLORSCHEMES_STRING_VALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19732,"ide_methods.bas");}while(r); -S_57567:; -}else{ -if (qbs_cleanup(qbs_tmp_base,-(((int32)(func_mid(_SUB_LOADCOLORSCHEMES_STRING_VALUE,*_SUB_LOADCOLORSCHEMES_LONG_FOUNDPIPE+ 1 ,NULL,0))->len)== 90 ))){ -if(qbevent){evnt(26070,19733,"ide_methods.bas");if(r)goto S_57567;} -do{ -*__INTEGER_LASTVALIDCOLORSCHEME=*__INTEGER_TOTALCOLORSCHEMES; -if(!qbevent)break;evnt(26070,19735,"ide_methods.bas");}while(r); -S_57569:; -}else{ -if (qbs_cleanup(qbs_tmp_base,-(((int32)(func_mid(_SUB_LOADCOLORSCHEMES_STRING_VALUE,*_SUB_LOADCOLORSCHEMES_LONG_FOUNDPIPE+ 1 ,NULL,0))->len)== 54 ))){ -if(qbevent){evnt(26070,19736,"ide_methods.bas");if(r)goto S_57569;} -do{ -qbs_set(_SUB_LOADCOLORSCHEMES_STRING_TEMP,qbs_left(_SUB_LOADCOLORSCHEMES_STRING_VALUE,*_SUB_LOADCOLORSCHEMES_LONG_FOUNDPIPE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19739,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_LOADCOLORSCHEMES_STRING_TEMP,qbs_add(qbs_add(_SUB_LOADCOLORSCHEMES_STRING_TEMP,func_mid(_SUB_LOADCOLORSCHEMES_STRING_VALUE,*_SUB_LOADCOLORSCHEMES_LONG_FOUNDPIPE+ 1 , 9 ,0|1)),qbs_new_txt_len("069147216245128177",18))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19740,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_LOADCOLORSCHEMES_STRING_TEMP,qbs_add(qbs_add(_SUB_LOADCOLORSCHEMES_STRING_TEMP,func_mid(_SUB_LOADCOLORSCHEMES_STRING_VALUE,*_SUB_LOADCOLORSCHEMES_LONG_FOUNDPIPE+ 10 ,NULL,0)),qbs_new_txt_len("000147177170170170",18))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19741,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check((*__INTEGER_TOTALCOLORSCHEMES)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[tmp_long])),_SUB_LOADCOLORSCHEMES_STRING_TEMP); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19742,"ide_methods.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_COLORSCHEMESSECTION,qbs_add(qbs_add(qbs_new_txt_len("Scheme",6),FUNC_STR2(_SUB_LOADCOLORSCHEMES_LONG_I)),qbs_new_txt_len("$",1)),_SUB_LOADCOLORSCHEMES_STRING_TEMP); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19743,"ide_methods.bas");}while(r); -do{ -*__INTEGER_LASTVALIDCOLORSCHEME=*__INTEGER_TOTALCOLORSCHEMES; -if(!qbevent)break;evnt(26070,19744,"ide_methods.bas");}while(r); -}else{ -do{ -goto LABEL_DISCARDINVALID; -if(!qbevent)break;evnt(26070,19746,"ide_methods.bas");}while(r); -} -} -} -}else{ -LABEL_DISCARDINVALID:; -if(qbevent){evnt(26070,19749,"ide_methods.bas");r=0;} -do{ -tmp_long=array_check((*__INTEGER_TOTALCOLORSCHEMES)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[tmp_long])),qbs_new_txt_len("0",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19750,"ide_methods.bas");}while(r); -} -}else{ -do{ -goto dl_exit_6313; -if(!qbevent)break;evnt(26070,19754,"ide_methods.bas");}while(r); -} -dl_continue_6313:; -}while(1); -dl_exit_6313:; -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free268.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -int16 FUNC_BINARYFORMATCHECK(qbs*_FUNC_BINARYFORMATCHECK_STRING_PATHTOCHECK,qbs*_FUNC_BINARYFORMATCHECK_STRING_PATHSEPTOCHECK,qbs*_FUNC_BINARYFORMATCHECK_STRING_FILETOCHECK){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data269.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -qbs_set(__STRING_FILE,qbs_add(qbs_add(_FUNC_BINARYFORMATCHECK_STRING_PATHTOCHECK,_FUNC_BINARYFORMATCHECK_STRING_PATHSEPTOCHECK),_FUNC_BINARYFORMATCHECK_STRING_FILETOCHECK)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19762,"ide_methods.bas");}while(r); -do{ -*_FUNC_BINARYFORMATCHECK_LONG_FH=func_freefile(); -if(!qbevent)break;evnt(26070,19764,"ide_methods.bas");}while(r); -do{ -sub_open(__STRING_FILE, 2 ,NULL,NULL,*_FUNC_BINARYFORMATCHECK_LONG_FH,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19765,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_BINARYFORMATCHECK_STRING_A,func_space(func_lof(*_FUNC_BINARYFORMATCHECK_LONG_FH))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19766,"ide_methods.bas");}while(r); -do{ -sub_get2(*_FUNC_BINARYFORMATCHECK_LONG_FH, 1 ,_FUNC_BINARYFORMATCHECK_STRING_A,1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19767,"ide_methods.bas");}while(r); -S_57591:; -if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_FUNC_BINARYFORMATCHECK_STRING_A,func_chr( 0 ),0)== 0 )))||new_error){ -if(qbevent){evnt(26070,19768,"ide_methods.bas");if(r)goto S_57591;} -do{ -sub_close(*_FUNC_BINARYFORMATCHECK_LONG_FH,1); -if(!qbevent)break;evnt(26070,19768,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,19768,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_BINARYFORMATCHECK_STRING_A,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19769,"ide_methods.bas");}while(r); -do{ -sub_get(*_FUNC_BINARYFORMATCHECK_LONG_FH, 1 ,byte_element((uint64)_FUNC_BINARYFORMATCHECK_INTEGER_FORMAT,2,byte_element_6317),1); -if(!qbevent)break;evnt(26070,19770,"ide_methods.bas");}while(r); -do{ -sub_get(*_FUNC_BINARYFORMATCHECK_LONG_FH,NULL,byte_element((uint64)_FUNC_BINARYFORMATCHECK_INTEGER_VERSION,2,byte_element_6318),0); -if(!qbevent)break;evnt(26070,19771,"ide_methods.bas");}while(r); -do{ -sub_close(*_FUNC_BINARYFORMATCHECK_LONG_FH,1); -if(!qbevent)break;evnt(26070,19772,"ide_methods.bas");}while(r); -S_57599:; -if(qbevent){evnt(26070,19774,"ide_methods.bas");if(r)goto S_57599;} -S_57600:; -if (((*_FUNC_BINARYFORMATCHECK_INTEGER_FORMAT==( 2300 )))||new_error){ -if(qbevent){evnt(26070,19775,"ide_methods.bas");if(r)goto S_57600;} -do{ -*_FUNC_BINARYFORMATCHECK_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Invalid format",14),qbs_new_txt_len("VBDOS binary format not supported.",34),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19776,"ide_methods.bas");}while(r); -do{ -*_FUNC_BINARYFORMATCHECK_INTEGER_BINARYFORMATCHECK= 1 ; -if(!qbevent)break;evnt(26070,19777,"ide_methods.bas");}while(r); -sc_ec_438_end:; -goto sc_6319_end; -} -S_57603:; -if (((*_FUNC_BINARYFORMATCHECK_INTEGER_FORMAT==( 764 )))||new_error){ -if(qbevent){evnt(26070,19778,"ide_methods.bas");if(r)goto S_57603;} -do{ -*_FUNC_BINARYFORMATCHECK_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Invalid format",14),qbs_new_txt_len("QBX 7.1 binary format not supported.",36),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19779,"ide_methods.bas");}while(r); -do{ -*_FUNC_BINARYFORMATCHECK_INTEGER_BINARYFORMATCHECK= 1 ; -if(!qbevent)break;evnt(26070,19780,"ide_methods.bas");}while(r); -sc_ec_439_end:; -goto sc_6319_end; -} -S_57606:; -if (((*_FUNC_BINARYFORMATCHECK_INTEGER_FORMAT==( 252 )))||new_error){ -if(qbevent){evnt(26070,19781,"ide_methods.bas");if(r)goto S_57606;} -S_57607:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)))||new_error){ -if(qbevent){evnt(26070,19782,"ide_methods.bas");if(r)goto S_57607;} -do{ -qbs_set(_FUNC_BINARYFORMATCHECK_STRING_CONVERTUTILITY,qbs_new_txt_len("internal\\utilities\\QB45BIN.exe",30)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19783,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_BINARYFORMATCHECK_STRING_CONVERTUTILITY,qbs_new_txt_len("./internal/utilities/QB45BIN",28)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19785,"ide_methods.bas");}while(r); -} -S_57612:; -if ((qbs_cleanup(qbs_tmp_base,func__fileexists(_FUNC_BINARYFORMATCHECK_STRING_CONVERTUTILITY)))||new_error){ -if(qbevent){evnt(26070,19787,"ide_methods.bas");if(r)goto S_57612;} -do{ -qbs_set(_FUNC_BINARYFORMATCHECK_STRING_WHAT,FUNC_IDEYESNOBOX(qbs_new_txt_len("Binary format",13),qbs_new_txt_len("QuickBASIC 4.5 binary format detected. Convert to plain text?",61))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19788,"ide_methods.bas");}while(r); -S_57614:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_BINARYFORMATCHECK_STRING_WHAT,qbs_new_txt_len("Y",1))))||new_error){ -if(qbevent){evnt(26070,19789,"ide_methods.bas");if(r)goto S_57614;} -LABEL_CONVERTIT:; -if(qbevent){evnt(26070,19790,"ide_methods.bas");r=0;} -S_57615:; -if ((qbs_cleanup(qbs_tmp_base,FUNC_FILEHASEXTENSION(__STRING_FILE)))||new_error){ -if(qbevent){evnt(26070,19791,"ide_methods.bas");if(r)goto S_57615;} -S_57616:; -fornext_value6321=__STRING_FILE->len; -fornext_finalvalue6321= 1 ; -fornext_step6321= -1 ; -if (fornext_step6321<0) fornext_step_negative6321=1; else fornext_step_negative6321=0; -if (new_error) goto fornext_error6321; -goto fornext_entrylabel6321; -while(1){ -fornext_value6321=fornext_step6321+(*_FUNC_BINARYFORMATCHECK_LONG_I); -fornext_entrylabel6321: -*_FUNC_BINARYFORMATCHECK_LONG_I=fornext_value6321; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative6321){ -if (fornext_value6321fornext_finalvalue6321) break; -} -fornext_error6321:; -if(qbevent){evnt(26070,19792,"ide_methods.bas");if(r)goto S_57616;} -S_57617:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_FILE,*_FUNC_BINARYFORMATCHECK_LONG_I)== 46 )))||new_error){ -if(qbevent){evnt(26070,19793,"ide_methods.bas");if(r)goto S_57617;} -do{ -qbs_set(_FUNC_BINARYFORMATCHECK_STRING_OFILE,qbs_add(qbs_add(qbs_left(__STRING_FILE,*_FUNC_BINARYFORMATCHECK_LONG_I- 1 ),qbs_new_txt_len(" (converted)",12)),func_mid(__STRING_FILE,*_FUNC_BINARYFORMATCHECK_LONG_I,NULL,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19795,"ide_methods.bas");}while(r); -do{ -goto fornext_exit_6320; -if(!qbevent)break;evnt(26070,19796,"ide_methods.bas");}while(r); -} -fornext_continue_6320:; -} -fornext_exit_6320:; -}else{ -do{ -qbs_set(_FUNC_BINARYFORMATCHECK_STRING_OFILE,qbs_add(__STRING_FILE,qbs_new_txt_len(" (converted).bas",16))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19800,"ide_methods.bas");}while(r); -} -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,19803,"ide_methods.bas");}while(r); -do{ -*_FUNC_BINARYFORMATCHECK_LONG_DUMMY=FUNC_DARKENFGBG(&(pass6323= 1 )); -if(!qbevent)break;evnt(26070,19804,"ide_methods.bas");}while(r); -do{ -SUB_CLEARSTATUSWINDOW(&(pass6324= 0 )); -if(!qbevent)break;evnt(26070,19805,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 15 , 1 ,NULL,3); -if(!qbevent)break;evnt(26070,19806,"ide_methods.bas");}while(r); -do{ -sub__printstring( 2 ,*__LONG_IDEWY- 3 ,qbs_new_txt_len("Converting... ",23),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19807,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,19808,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_BINARYFORMATCHECK_STRING_CONVERTLINE,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_BINARYFORMATCHECK_STRING_CONVERTUTILITY,qbs_new_txt_len(" ",1)),FUNC_QUOTEDFILENAME(__STRING_FILE)),qbs_new_txt_len(" -o ",4)),FUNC_QUOTEDFILENAME(_FUNC_BINARYFORMATCHECK_STRING_OFILE))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19810,"ide_methods.bas");}while(r); -do{ -sub_shell2(_FUNC_BINARYFORMATCHECK_STRING_CONVERTLINE,2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19811,"ide_methods.bas");}while(r); -do{ -SUB_CLEARSTATUSWINDOW(&(pass6325= 0 )); -if(!qbevent)break;evnt(26070,19813,"ide_methods.bas");}while(r); -do{ -*_FUNC_BINARYFORMATCHECK_LONG_DUMMY=FUNC_DARKENFGBG(&(pass6326= 0 )); -if(!qbevent)break;evnt(26070,19814,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,19815,"ide_methods.bas");}while(r); -S_57636:; -if ((qbs_cleanup(qbs_tmp_base,-(func__fileexists(_FUNC_BINARYFORMATCHECK_STRING_OFILE)== 0 )))||new_error){ -if(qbevent){evnt(26070,19817,"ide_methods.bas");if(r)goto S_57636;} -do{ -*_FUNC_BINARYFORMATCHECK_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Binary format",13),qbs_new_txt_len("Conversion failed.",18),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19818,"ide_methods.bas");}while(r); -do{ -*_FUNC_BINARYFORMATCHECK_INTEGER_BINARYFORMATCHECK= 2 ; -if(!qbevent)break;evnt(26070,19819,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_BINARYFORMATCHECK_STRING_PATHTOCHECK,FUNC_GETFILEPATH(_FUNC_BINARYFORMATCHECK_STRING_OFILE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19821,"ide_methods.bas");}while(r); -S_57641:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_BINARYFORMATCHECK_STRING_PATHTOCHECK->len))||new_error){ -if(qbevent){evnt(26070,19822,"ide_methods.bas");if(r)goto S_57641;} -do{ -qbs_set(_FUNC_BINARYFORMATCHECK_STRING_FILETOCHECK,func_mid(_FUNC_BINARYFORMATCHECK_STRING_OFILE,_FUNC_BINARYFORMATCHECK_STRING_PATHTOCHECK->len+ 1 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19823,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_BINARYFORMATCHECK_STRING_PATHTOCHECK,qbs_left(_FUNC_BINARYFORMATCHECK_STRING_PATHTOCHECK,_FUNC_BINARYFORMATCHECK_STRING_PATHTOCHECK->len- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19824,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_BINARYFORMATCHECK_STRING_FILETOCHECK,_FUNC_BINARYFORMATCHECK_STRING_OFILE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19826,"ide_methods.bas");}while(r); -} -} -}else{ -do{ -*_FUNC_BINARYFORMATCHECK_INTEGER_BINARYFORMATCHECK= 1 ; -if(!qbevent)break;evnt(26070,19830,"ide_methods.bas");}while(r); -} -}else{ -S_57652:; -if ((qbs_cleanup(qbs_tmp_base,-(func__fileexists(qbs_new_txt_len("internal/support/converter/QB45BIN.bas",38))== 0 )))||new_error){ -if(qbevent){evnt(26070,19833,"ide_methods.bas");if(r)goto S_57652;} -do{ -*_FUNC_BINARYFORMATCHECK_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Binary format",13),qbs_new_txt_len("Conversion utility not found. Cannot open QuickBASIC 4.5 binary format.",71),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19834,"ide_methods.bas");}while(r); -do{ -*_FUNC_BINARYFORMATCHECK_INTEGER_BINARYFORMATCHECK= 1 ; -if(!qbevent)break;evnt(26070,19835,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,19836,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_BINARYFORMATCHECK_STRING_WHAT,FUNC_IDEYESNOBOX(qbs_new_txt_len("Binary format",13),qbs_new_txt_len("QuickBASIC 4.5 binary format detected. Convert to plain text?",61))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19838,"ide_methods.bas");}while(r); -S_57658:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_BINARYFORMATCHECK_STRING_WHAT,qbs_new_txt_len("Y",1))))||new_error){ -if(qbevent){evnt(26070,19839,"ide_methods.bas");if(r)goto S_57658;} -S_57659:; -if ((qbs_cleanup(qbs_tmp_base,-(func__direxists(qbs_new_txt_len("./internal/utilities",20))== 0 )))||new_error){ -if(qbevent){evnt(26070,19841,"ide_methods.bas");if(r)goto S_57659;} -do{ -sub_mkdir(qbs_new_txt_len("./internal/utilities",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19841,"ide_methods.bas");}while(r); -} -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,19842,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,19843,"ide_methods.bas");}while(r); -do{ -*_FUNC_BINARYFORMATCHECK_LONG_DUMMY=FUNC_DARKENFGBG(&(pass6330= 1 )); -if(!qbevent)break;evnt(26070,19844,"ide_methods.bas");}while(r); -do{ -SUB_CLEARSTATUSWINDOW(&(pass6331= 0 )); -if(!qbevent)break;evnt(26070,19845,"ide_methods.bas");}while(r); -do{ -qbg_sub_color( 15 , 1 ,NULL,3); -if(!qbevent)break;evnt(26070,19846,"ide_methods.bas");}while(r); -do{ -sub__printstring( 2 ,*__LONG_IDEWY- 3 ,qbs_new_txt_len("Preparing to convert...",23),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19847,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,19848,"ide_methods.bas");}while(r); -S_57669:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)))||new_error){ -if(qbevent){evnt(26070,19849,"ide_methods.bas");if(r)goto S_57669;} -do{ -sub_shell2(qbs_new_txt_len("qb64pe -x internal/support/converter/QB45BIN.bas -o internal/utilities/QB45BIN",78),2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19850,"ide_methods.bas");}while(r); -}else{ -do{ -sub_shell2(qbs_new_txt_len("./qb64pe -x ./internal/support/converter/QB45BIN.bas -o ./internal/utilities/QB45BIN",84),2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19852,"ide_methods.bas");}while(r); -} -S_57674:; -if ((qbs_cleanup(qbs_tmp_base,func__fileexists(_FUNC_BINARYFORMATCHECK_STRING_CONVERTUTILITY)))||new_error){ -if(qbevent){evnt(26070,19854,"ide_methods.bas");if(r)goto S_57674;} -do{ -goto LABEL_CONVERTIT; -if(!qbevent)break;evnt(26070,19854,"ide_methods.bas");}while(r); -} -do{ -SUB_CLEARSTATUSWINDOW(&(pass6332= 0 )); -if(!qbevent)break;evnt(26070,19855,"ide_methods.bas");}while(r); -do{ -*_FUNC_BINARYFORMATCHECK_LONG_DUMMY=FUNC_DARKENFGBG(&(pass6333= 0 )); -if(!qbevent)break;evnt(26070,19856,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,19857,"ide_methods.bas");}while(r); -do{ -*_FUNC_BINARYFORMATCHECK_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Binary format",13),qbs_new_txt_len("Error launching conversion utility.",35),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19858,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_BINARYFORMATCHECK_INTEGER_BINARYFORMATCHECK= 1 ; -if(!qbevent)break;evnt(26070,19860,"ide_methods.bas");}while(r); -} -sc_ec_440_end:; -goto sc_6319_end; -} -sc_6319_end:; -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free269.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -return *_FUNC_BINARYFORMATCHECK_INTEGER_BINARYFORMATCHECK; -} -qbs* FUNC_REMOVESYMBOL2(qbs*_FUNC_REMOVESYMBOL2_STRING_VARNAME){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data270.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -*_FUNC_REMOVESYMBOL2_LONG_I=func_instr(NULL,_FUNC_REMOVESYMBOL2_STRING_VARNAME,qbs_new_txt_len("~",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19866,"ide_methods.bas");}while(r); -S_57686:; -if ((*_FUNC_REMOVESYMBOL2_LONG_I)||new_error){ -if(qbevent){evnt(26070,19866,"ide_methods.bas");if(r)goto S_57686;} -do{ -goto LABEL_FOUNDSYMBOL; -if(!qbevent)break;evnt(26070,19866,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_REMOVESYMBOL2_LONG_I=func_instr(NULL,_FUNC_REMOVESYMBOL2_STRING_VARNAME,qbs_new_txt_len("`",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19867,"ide_methods.bas");}while(r); -S_57690:; -if ((*_FUNC_REMOVESYMBOL2_LONG_I)||new_error){ -if(qbevent){evnt(26070,19867,"ide_methods.bas");if(r)goto S_57690;} -do{ -goto LABEL_FOUNDSYMBOL; -if(!qbevent)break;evnt(26070,19867,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_REMOVESYMBOL2_LONG_I=func_instr(NULL,_FUNC_REMOVESYMBOL2_STRING_VARNAME,qbs_new_txt_len("%",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19868,"ide_methods.bas");}while(r); -S_57694:; -if ((*_FUNC_REMOVESYMBOL2_LONG_I)||new_error){ -if(qbevent){evnt(26070,19868,"ide_methods.bas");if(r)goto S_57694;} -do{ -goto LABEL_FOUNDSYMBOL; -if(!qbevent)break;evnt(26070,19868,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_REMOVESYMBOL2_LONG_I=func_instr(NULL,_FUNC_REMOVESYMBOL2_STRING_VARNAME,qbs_new_txt_len("&",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19869,"ide_methods.bas");}while(r); -S_57698:; -if ((*_FUNC_REMOVESYMBOL2_LONG_I)||new_error){ -if(qbevent){evnt(26070,19869,"ide_methods.bas");if(r)goto S_57698;} -do{ -goto LABEL_FOUNDSYMBOL; -if(!qbevent)break;evnt(26070,19869,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_REMOVESYMBOL2_LONG_I=func_instr(NULL,_FUNC_REMOVESYMBOL2_STRING_VARNAME,qbs_new_txt_len("!",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19870,"ide_methods.bas");}while(r); -S_57702:; -if ((*_FUNC_REMOVESYMBOL2_LONG_I)||new_error){ -if(qbevent){evnt(26070,19870,"ide_methods.bas");if(r)goto S_57702;} -do{ -goto LABEL_FOUNDSYMBOL; -if(!qbevent)break;evnt(26070,19870,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_REMOVESYMBOL2_LONG_I=func_instr(NULL,_FUNC_REMOVESYMBOL2_STRING_VARNAME,qbs_new_txt_len("#",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19871,"ide_methods.bas");}while(r); -S_57706:; -if ((*_FUNC_REMOVESYMBOL2_LONG_I)||new_error){ -if(qbevent){evnt(26070,19871,"ide_methods.bas");if(r)goto S_57706;} -do{ -goto LABEL_FOUNDSYMBOL; -if(!qbevent)break;evnt(26070,19871,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_REMOVESYMBOL2_LONG_I=func_instr(NULL,_FUNC_REMOVESYMBOL2_STRING_VARNAME,qbs_new_txt_len("$",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19872,"ide_methods.bas");}while(r); -S_57710:; -if ((*_FUNC_REMOVESYMBOL2_LONG_I)||new_error){ -if(qbevent){evnt(26070,19872,"ide_methods.bas");if(r)goto S_57710;} -do{ -goto LABEL_FOUNDSYMBOL; -if(!qbevent)break;evnt(26070,19872,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_REMOVESYMBOL2_STRING_REMOVESYMBOL2,_FUNC_REMOVESYMBOL2_STRING_VARNAME); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19873,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,19874,"ide_methods.bas");}while(r); -LABEL_FOUNDSYMBOL:; -if(qbevent){evnt(26070,19875,"ide_methods.bas");r=0;} -S_57715:; -if ((-(*_FUNC_REMOVESYMBOL2_LONG_I== 1 ))||new_error){ -if(qbevent){evnt(26070,19876,"ide_methods.bas");if(r)goto S_57715;} -do{ -qbs_set(_FUNC_REMOVESYMBOL2_STRING_REMOVESYMBOL2,_FUNC_REMOVESYMBOL2_STRING_VARNAME); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19876,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,19876,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_REMOVESYMBOL2_STRING_REMOVESYMBOL2,qbs_left(_FUNC_REMOVESYMBOL2_STRING_VARNAME,*_FUNC_REMOVESYMBOL2_LONG_I- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19877,"ide_methods.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free270.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_REMOVESYMBOL2_STRING_REMOVESYMBOL2);return _FUNC_REMOVESYMBOL2_STRING_REMOVESYMBOL2; -} -void SUB_CLEANSUBNAME(qbs*_SUB_CLEANSUBNAME_STRING_N){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data271.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -*_SUB_CLEANSUBNAME_LONG_X=func_instr(NULL,_SUB_CLEANSUBNAME_STRING_N,qbs_new_txt_len("'",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19881,"ide_methods.bas");}while(r); -S_57721:; -if ((*_SUB_CLEANSUBNAME_LONG_X)||new_error){ -if(qbevent){evnt(26070,19881,"ide_methods.bas");if(r)goto S_57721;} -do{ -qbs_set(_SUB_CLEANSUBNAME_STRING_N,qbs_left(_SUB_CLEANSUBNAME_STRING_N,*_SUB_CLEANSUBNAME_LONG_X- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19881,"ide_methods.bas");}while(r); -} -do{ -*_SUB_CLEANSUBNAME_LONG_X=func_instr(NULL,_SUB_CLEANSUBNAME_STRING_N,qbs_new_txt_len(":",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19882,"ide_methods.bas");}while(r); -S_57725:; -if ((*_SUB_CLEANSUBNAME_LONG_X)||new_error){ -if(qbevent){evnt(26070,19882,"ide_methods.bas");if(r)goto S_57725;} -do{ -qbs_set(_SUB_CLEANSUBNAME_STRING_N,qbs_left(_SUB_CLEANSUBNAME_STRING_N,*_SUB_CLEANSUBNAME_LONG_X- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19882,"ide_methods.bas");}while(r); -} -do{ -*_SUB_CLEANSUBNAME_LONG_X=func_instr(NULL,_SUB_CLEANSUBNAME_STRING_N,qbs_new_txt_len(" ",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19883,"ide_methods.bas");}while(r); -S_57729:; -if ((*_SUB_CLEANSUBNAME_LONG_X)||new_error){ -if(qbevent){evnt(26070,19883,"ide_methods.bas");if(r)goto S_57729;} -do{ -qbs_set(_SUB_CLEANSUBNAME_STRING_N,qbs_left(_SUB_CLEANSUBNAME_STRING_N,*_SUB_CLEANSUBNAME_LONG_X- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19883,"ide_methods.bas");}while(r); -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free271.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -void SUB_CLEARSTATUSWINDOW(int32*_SUB_CLEARSTATUSWINDOW_LONG_WHICHLINE){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data272.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -qbg_sub_color( 7 , 1 ,NULL,3); -if(!qbevent)break;evnt(26070,19887,"ide_methods.bas");}while(r); -S_57733:; -if ((-(*_SUB_CLEARSTATUSWINDOW_LONG_WHICHLINE== 0 ))||new_error){ -if(qbevent){evnt(26070,19888,"ide_methods.bas");if(r)goto S_57733;} -S_57734:; -fornext_value6337= 1 ; -fornext_finalvalue6337= 3 ; -fornext_step6337= 1 ; -if (fornext_step6337<0) fornext_step_negative6337=1; else fornext_step_negative6337=0; -if (new_error) goto fornext_error6337; -goto fornext_entrylabel6337; -while(1){ -fornext_value6337=fornext_step6337+(*_SUB_CLEARSTATUSWINDOW_LONG_WHICHLINE); -fornext_entrylabel6337: -*_SUB_CLEARSTATUSWINDOW_LONG_WHICHLINE=fornext_value6337; -if (fornext_step_negative6337){ -if (fornext_value6337fornext_finalvalue6337) break; -} -fornext_error6337:; -if(qbevent){evnt(26070,19889,"ide_methods.bas");if(r)goto S_57734;} -do{ -sub__printstring( 2 ,(*__LONG_IDEWY- 4 )+*_SUB_CLEARSTATUSWINDOW_LONG_WHICHLINE,func_space(*__LONG_IDEWX- 2 ),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19890,"ide_methods.bas");}while(r); -fornext_continue_6336:; -} -fornext_exit_6336:; -}else{ -do{ -sub__printstring( 2 ,(*__LONG_IDEWY- 4 )+*_SUB_CLEARSTATUSWINDOW_LONG_WHICHLINE,func_space(*__LONG_IDEWX- 2 ),NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19893,"ide_methods.bas");}while(r); -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free272.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -void SUB_SETSTATUSMESSAGE(int32*_SUB_SETSTATUSMESSAGE_LONG_ROW,qbs*_SUB_SETSTATUSMESSAGE_STRING_TEXT,int32*_SUB_SETSTATUSMESSAGE_LONG_FG){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data273.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -qbg_sub_color(*_SUB_SETSTATUSMESSAGE_LONG_FG,NULL,NULL,1); -if(!qbevent)break;evnt(26070,19898,"ide_methods.bas");}while(r); -do{ -sub__printstring( 2 ,(*__LONG_IDEWY- 4 )+*_SUB_SETSTATUSMESSAGE_LONG_ROW,_SUB_SETSTATUSMESSAGE_STRING_TEXT,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19899,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,19900,"ide_methods.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free273.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -qbs* FUNC_GETWORDATCURSOR(){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data274.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -qbs_set(_FUNC_GETWORDATCURSOR_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19904,"ide_methods.bas");}while(r); -do{ -*_FUNC_GETWORDATCURSOR_LONG_X=*__LONG_IDECX; -if(!qbevent)break;evnt(26070,19905,"ide_methods.bas");}while(r); -S_57745:; -if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_GETWORDATCURSOR_LONG_X<=_FUNC_GETWORDATCURSOR_STRING_A->len)))||new_error){ -if(qbevent){evnt(26070,19906,"ide_methods.bas");if(r)goto S_57745;} -S_57746:; -if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(_FUNC_GETWORDATCURSOR_STRING_A,*_FUNC_GETWORDATCURSOR_LONG_X)== 32 ))&(-(*_FUNC_GETWORDATCURSOR_LONG_X> 1 ))))||new_error){ -if(qbevent){evnt(26070,19907,"ide_methods.bas");if(r)goto S_57746;} -S_57747:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_GETWORDATCURSOR_STRING_A,*_FUNC_GETWORDATCURSOR_LONG_X- 1 )!= 32 )))||new_error){ -if(qbevent){evnt(26070,19908,"ide_methods.bas");if(r)goto S_57747;} -do{ -*_FUNC_GETWORDATCURSOR_LONG_X=*_FUNC_GETWORDATCURSOR_LONG_X- 1 ; -if(!qbevent)break;evnt(26070,19908,"ide_methods.bas");}while(r); -} -} -LABEL_TRY:; -if(qbevent){evnt(26070,19910,"ide_methods.bas");r=0;} -S_57751:; -if ((qbs_cleanup(qbs_tmp_base,((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(_FUNC_GETWORDATCURSOR_STRING_A,*_FUNC_GETWORDATCURSOR_LONG_X))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]))||new_error){ -if(qbevent){evnt(26070,19911,"ide_methods.bas");if(r)goto S_57751;} -do{ -*_FUNC_GETWORDATCURSOR_LONG_X1=*_FUNC_GETWORDATCURSOR_LONG_X; -if(!qbevent)break;evnt(26070,19912,"ide_methods.bas");}while(r); -S_57753:; -while((-(*_FUNC_GETWORDATCURSOR_LONG_X1> 1 ))||new_error){ -if(qbevent){evnt(26070,19913,"ide_methods.bas");if(r)goto S_57753;} -S_57754:; -if ((qbs_cleanup(qbs_tmp_base,((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(_FUNC_GETWORDATCURSOR_STRING_A,*_FUNC_GETWORDATCURSOR_LONG_X1- 1 ))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]|(-(qbs_asc(_FUNC_GETWORDATCURSOR_STRING_A,*_FUNC_GETWORDATCURSOR_LONG_X1- 1 )== 36 ))))||new_error){ -if(qbevent){evnt(26070,19914,"ide_methods.bas");if(r)goto S_57754;} -do{ -*_FUNC_GETWORDATCURSOR_LONG_X1=*_FUNC_GETWORDATCURSOR_LONG_X1- 1 ; -if(!qbevent)break;evnt(26070,19914,"ide_methods.bas");}while(r); -}else{ -do{ -goto dl_exit_6340; -if(!qbevent)break;evnt(26070,19914,"ide_methods.bas");}while(r); -} -dl_continue_6340:; -} -dl_exit_6340:; -do{ -*_FUNC_GETWORDATCURSOR_LONG_X2=*_FUNC_GETWORDATCURSOR_LONG_X; -if(!qbevent)break;evnt(26070,19916,"ide_methods.bas");}while(r); -S_57761:; -while((qbs_cleanup(qbs_tmp_base,-(*_FUNC_GETWORDATCURSOR_LONG_X2<_FUNC_GETWORDATCURSOR_STRING_A->len)))||new_error){ -if(qbevent){evnt(26070,19917,"ide_methods.bas");if(r)goto S_57761;} -S_57762:; -if ((qbs_cleanup(qbs_tmp_base,((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(_FUNC_GETWORDATCURSOR_STRING_A,*_FUNC_GETWORDATCURSOR_LONG_X2+ 1 ))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]|(-(qbs_asc(_FUNC_GETWORDATCURSOR_STRING_A,*_FUNC_GETWORDATCURSOR_LONG_X2+ 1 )== 36 ))))||new_error){ -if(qbevent){evnt(26070,19918,"ide_methods.bas");if(r)goto S_57762;} -do{ -*_FUNC_GETWORDATCURSOR_LONG_X2=*_FUNC_GETWORDATCURSOR_LONG_X2+ 1 ; -if(!qbevent)break;evnt(26070,19918,"ide_methods.bas");}while(r); -}else{ -do{ -goto dl_exit_6342; -if(!qbevent)break;evnt(26070,19918,"ide_methods.bas");}while(r); -} -dl_continue_6342:; -} -dl_exit_6342:; -do{ -qbs_set(_FUNC_GETWORDATCURSOR_STRING_A2,func_mid(_FUNC_GETWORDATCURSOR_STRING_A,*_FUNC_GETWORDATCURSOR_LONG_X1,*_FUNC_GETWORDATCURSOR_LONG_X2-*_FUNC_GETWORDATCURSOR_LONG_X1+ 1 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19920,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_GETWORDATCURSOR_STRING_SYMBOL,func_chr(qbs_asc(_FUNC_GETWORDATCURSOR_STRING_A,*_FUNC_GETWORDATCURSOR_LONG_X))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19922,"ide_methods.bas");}while(r); -S_57771:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GETWORDATCURSOR_STRING_SYMBOL,func_chr( 32 ))))||new_error){ -if(qbevent){evnt(26070,19923,"ide_methods.bas");if(r)goto S_57771;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,19923,"ide_methods.bas");}while(r); -} -S_57774:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GETWORDATCURSOR_STRING_SYMBOL,qbs_new_txt_len("~",1))))||new_error){ -if(qbevent){evnt(26070,19924,"ide_methods.bas");if(r)goto S_57774;} -do{ -qbs_set(_FUNC_GETWORDATCURSOR_STRING_GETWORDATCURSOR,qbs_new_txt_len("~",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19924,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,19924,"ide_methods.bas");}while(r); -} -S_57778:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GETWORDATCURSOR_STRING_SYMBOL,qbs_new_txt_len("`",1))))||new_error){ -if(qbevent){evnt(26070,19925,"ide_methods.bas");if(r)goto S_57778;} -do{ -qbs_set(_FUNC_GETWORDATCURSOR_STRING_GETWORDATCURSOR,qbs_new_txt_len("`",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19925,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,19925,"ide_methods.bas");}while(r); -} -S_57782:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_GETWORDATCURSOR_STRING_SYMBOL,qbs_new_txt_len("%",1)))&(qbs_equal(func_mid(_FUNC_GETWORDATCURSOR_STRING_A,*_FUNC_GETWORDATCURSOR_LONG_X+ 1 ,NULL,0),qbs_new_txt_len("&",1)))))||new_error){ -if(qbevent){evnt(26070,19926,"ide_methods.bas");if(r)goto S_57782;} -do{ -qbs_set(_FUNC_GETWORDATCURSOR_STRING_GETWORDATCURSOR,qbs_new_txt_len("%&",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19926,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,19926,"ide_methods.bas");}while(r); -} -S_57786:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_GETWORDATCURSOR_STRING_SYMBOL,qbs_new_txt_len("&",1)))&(qbs_equal(func_mid(_FUNC_GETWORDATCURSOR_STRING_A,*_FUNC_GETWORDATCURSOR_LONG_X- 1 ,NULL,0),qbs_new_txt_len("%",1)))))||new_error){ -if(qbevent){evnt(26070,19927,"ide_methods.bas");if(r)goto S_57786;} -do{ -qbs_set(_FUNC_GETWORDATCURSOR_STRING_GETWORDATCURSOR,qbs_new_txt_len("%&",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19927,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,19927,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_GETWORDATCURSOR_LONG_X1=*_FUNC_GETWORDATCURSOR_LONG_X; -if(!qbevent)break;evnt(26070,19928,"ide_methods.bas");}while(r); -S_57791:; -while((-(*_FUNC_GETWORDATCURSOR_LONG_X1> 1 ))||new_error){ -if(qbevent){evnt(26070,19929,"ide_methods.bas");if(r)goto S_57791;} -S_57792:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_GETWORDATCURSOR_STRING_A,*_FUNC_GETWORDATCURSOR_LONG_X1- 1 , 1 ,0|1),_FUNC_GETWORDATCURSOR_STRING_SYMBOL)))||new_error){ -if(qbevent){evnt(26070,19930,"ide_methods.bas");if(r)goto S_57792;} -do{ -*_FUNC_GETWORDATCURSOR_LONG_X1=*_FUNC_GETWORDATCURSOR_LONG_X1- 1 ; -if(!qbevent)break;evnt(26070,19930,"ide_methods.bas");}while(r); -}else{ -do{ -goto dl_exit_6343; -if(!qbevent)break;evnt(26070,19930,"ide_methods.bas");}while(r); -} -dl_continue_6343:; -} -dl_exit_6343:; -do{ -*_FUNC_GETWORDATCURSOR_LONG_X2=*_FUNC_GETWORDATCURSOR_LONG_X; -if(!qbevent)break;evnt(26070,19932,"ide_methods.bas");}while(r); -S_57799:; -while((qbs_cleanup(qbs_tmp_base,-(*_FUNC_GETWORDATCURSOR_LONG_X2<_FUNC_GETWORDATCURSOR_STRING_A->len)))||new_error){ -if(qbevent){evnt(26070,19933,"ide_methods.bas");if(r)goto S_57799;} -S_57800:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_GETWORDATCURSOR_STRING_A,*_FUNC_GETWORDATCURSOR_LONG_X2+ 1 , 1 ,0|1),_FUNC_GETWORDATCURSOR_STRING_SYMBOL)))||new_error){ -if(qbevent){evnt(26070,19934,"ide_methods.bas");if(r)goto S_57800;} -do{ -*_FUNC_GETWORDATCURSOR_LONG_X2=*_FUNC_GETWORDATCURSOR_LONG_X2+ 1 ; -if(!qbevent)break;evnt(26070,19934,"ide_methods.bas");}while(r); -}else{ -do{ -goto dl_exit_6345; -if(!qbevent)break;evnt(26070,19934,"ide_methods.bas");}while(r); -} -dl_continue_6345:; -} -dl_exit_6345:; -do{ -qbs_set(_FUNC_GETWORDATCURSOR_STRING_A2,func_mid(_FUNC_GETWORDATCURSOR_STRING_A,*_FUNC_GETWORDATCURSOR_LONG_X1,*_FUNC_GETWORDATCURSOR_LONG_X2-*_FUNC_GETWORDATCURSOR_LONG_X1+ 1 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19936,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_GETWORDATCURSOR_STRING_GETWORDATCURSOR,_FUNC_GETWORDATCURSOR_STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19938,"ide_methods.bas");}while(r); -S_57809:; -}else{ -if (qbs_cleanup(qbs_tmp_base,(-(*_FUNC_GETWORDATCURSOR_LONG_X==(_FUNC_GETWORDATCURSOR_STRING_A->len+ 1 )))&(-(*_FUNC_GETWORDATCURSOR_LONG_X> 1 )))){ -if(qbevent){evnt(26070,19939,"ide_methods.bas");if(r)goto S_57809;} -S_57810:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_GETWORDATCURSOR_STRING_A,*_FUNC_GETWORDATCURSOR_LONG_X- 1 )!= 32 )))||new_error){ -if(qbevent){evnt(26070,19940,"ide_methods.bas");if(r)goto S_57810;} -do{ -*_FUNC_GETWORDATCURSOR_LONG_X=*_FUNC_GETWORDATCURSOR_LONG_X- 1 ; -if(!qbevent)break;evnt(26070,19940,"ide_methods.bas");}while(r); -do{ -goto LABEL_TRY; -if(!qbevent)break;evnt(26070,19940,"ide_methods.bas");}while(r); -} -} -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free274.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_GETWORDATCURSOR_STRING_GETWORDATCURSOR);return _FUNC_GETWORDATCURSOR_STRING_GETWORDATCURSOR; -} -qbs* FUNC_GETSELECTEDTEXT(int8*_FUNC_GETSELECTEDTEXT_BYTE_MULTILINE){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data275.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -S_57815:; -if ((*__LONG_IDESELECT)||new_error){ -if(qbevent){evnt(26070,19945,"ide_methods.bas");if(r)goto S_57815;} -do{ -*_FUNC_GETSELECTEDTEXT_LONG_SY1=*__LONG_IDESELECTY1; -if(!qbevent)break;evnt(26070,19946,"ide_methods.bas");}while(r); -do{ -*_FUNC_GETSELECTEDTEXT_LONG_SY2=*__LONG_IDECY; -if(!qbevent)break;evnt(26070,19947,"ide_methods.bas");}while(r); -S_57818:; -if ((-(*_FUNC_GETSELECTEDTEXT_LONG_SY1>*_FUNC_GETSELECTEDTEXT_LONG_SY2))||new_error){ -if(qbevent){evnt(26070,19948,"ide_methods.bas");if(r)goto S_57818;} -do{ -swap_32(&*_FUNC_GETSELECTEDTEXT_LONG_SY1,&*_FUNC_GETSELECTEDTEXT_LONG_SY2); -if(!qbevent)break;evnt(26070,19948,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_GETSELECTEDTEXT_LONG_SX1=*__LONG_IDESELECTX1; -if(!qbevent)break;evnt(26070,19949,"ide_methods.bas");}while(r); -do{ -*_FUNC_GETSELECTEDTEXT_LONG_SX2=*__LONG_IDECX; -if(!qbevent)break;evnt(26070,19950,"ide_methods.bas");}while(r); -S_57823:; -if ((-(*_FUNC_GETSELECTEDTEXT_LONG_SX1>*_FUNC_GETSELECTEDTEXT_LONG_SX2))||new_error){ -if(qbevent){evnt(26070,19951,"ide_methods.bas");if(r)goto S_57823;} -do{ -swap_32(&*_FUNC_GETSELECTEDTEXT_LONG_SX1,&*_FUNC_GETSELECTEDTEXT_LONG_SX2); -if(!qbevent)break;evnt(26070,19951,"ide_methods.bas");}while(r); -} -S_57826:; -fornext_value6348=*_FUNC_GETSELECTEDTEXT_LONG_SY1; -fornext_finalvalue6348=*_FUNC_GETSELECTEDTEXT_LONG_SY2; -fornext_step6348= 1 ; -if (fornext_step6348<0) fornext_step_negative6348=1; else fornext_step_negative6348=0; -if (new_error) goto fornext_error6348; -goto fornext_entrylabel6348; -while(1){ -fornext_value6348=fornext_step6348+(*_FUNC_GETSELECTEDTEXT_LONG_Y); -fornext_entrylabel6348: -*_FUNC_GETSELECTEDTEXT_LONG_Y=fornext_value6348; -if (fornext_step_negative6348){ -if (fornext_value6348fornext_finalvalue6348) break; -} -fornext_error6348:; -if(qbevent){evnt(26070,19952,"ide_methods.bas");if(r)goto S_57826;} -S_57827:; -if ((-(*_FUNC_GETSELECTEDTEXT_LONG_Y<=*__LONG_IDEN))||new_error){ -if(qbevent){evnt(26070,19953,"ide_methods.bas");if(r)goto S_57827;} -do{ -qbs_set(_FUNC_GETSELECTEDTEXT_STRING_A,FUNC_IDEGETLINE(_FUNC_GETSELECTEDTEXT_LONG_Y)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19954,"ide_methods.bas");}while(r); -S_57829:; -if ((-(*_FUNC_GETSELECTEDTEXT_LONG_SY1==*_FUNC_GETSELECTEDTEXT_LONG_SY2))||new_error){ -if(qbevent){evnt(26070,19955,"ide_methods.bas");if(r)goto S_57829;} -S_57830:; -fornext_value6350=*_FUNC_GETSELECTEDTEXT_LONG_SX1; -fornext_finalvalue6350=*_FUNC_GETSELECTEDTEXT_LONG_SX2- 1 ; -fornext_step6350= 1 ; -if (fornext_step6350<0) fornext_step_negative6350=1; else fornext_step_negative6350=0; -if (new_error) goto fornext_error6350; -goto fornext_entrylabel6350; -while(1){ -fornext_value6350=fornext_step6350+(*_FUNC_GETSELECTEDTEXT_LONG_X); -fornext_entrylabel6350: -*_FUNC_GETSELECTEDTEXT_LONG_X=fornext_value6350; -if (fornext_step_negative6350){ -if (fornext_value6350fornext_finalvalue6350) break; -} -fornext_error6350:; -if(qbevent){evnt(26070,19956,"ide_methods.bas");if(r)goto S_57830;} -S_57831:; -if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_GETSELECTEDTEXT_LONG_X<=_FUNC_GETSELECTEDTEXT_STRING_A->len)))||new_error){ -if(qbevent){evnt(26070,19957,"ide_methods.bas");if(r)goto S_57831;} -do{ -qbs_set(_FUNC_GETSELECTEDTEXT_STRING_CLIP,qbs_add(_FUNC_GETSELECTEDTEXT_STRING_CLIP,func_mid(_FUNC_GETSELECTEDTEXT_STRING_A,*_FUNC_GETSELECTEDTEXT_LONG_X, 1 ,0|1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19957,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_GETSELECTEDTEXT_STRING_CLIP,qbs_add(_FUNC_GETSELECTEDTEXT_STRING_CLIP,qbs_new_txt_len(" ",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19957,"ide_methods.bas");}while(r); -} -fornext_continue_6349:; -} -fornext_exit_6349:; -}else{ -S_57838:; -if ((~(*_FUNC_GETSELECTEDTEXT_BYTE_MULTILINE))||new_error){ -if(qbevent){evnt(26070,19960,"ide_methods.bas");if(r)goto S_57838;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,19960,"ide_methods.bas");}while(r); -} -S_57841:; -if (((-(*__LONG_IDECX== 1 ))&(-(*_FUNC_GETSELECTEDTEXT_LONG_Y==*_FUNC_GETSELECTEDTEXT_LONG_SY2))&(-(*__LONG_IDECY>*_FUNC_GETSELECTEDTEXT_LONG_SY1)))||new_error){ -if(qbevent){evnt(26070,19961,"ide_methods.bas");if(r)goto S_57841;} -do{ -goto LABEL_NOFINALCOPY; -if(!qbevent)break;evnt(26070,19961,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_GETSELECTEDTEXT_STRING_CLIP,qbs_add(qbs_add(qbs_add(_FUNC_GETSELECTEDTEXT_STRING_CLIP,_FUNC_GETSELECTEDTEXT_STRING_A),func_chr( 13 )),func_chr( 10 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19962,"ide_methods.bas");}while(r); -LABEL_NOFINALCOPY:; -if(qbevent){evnt(26070,19963,"ide_methods.bas");r=0;} -S_57845:; -if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_GETSELECTEDTEXT_LONG_Y==*_FUNC_GETSELECTEDTEXT_LONG_SY2))&(-(*__LONG_IDECX> 1 ))&(-(_FUNC_GETSELECTEDTEXT_STRING_A->len> 0 ))))||new_error){ -if(qbevent){evnt(26070,19964,"ide_methods.bas");if(r)goto S_57845;} -do{ -qbs_set(_FUNC_GETSELECTEDTEXT_STRING_CLIP,qbs_left(_FUNC_GETSELECTEDTEXT_STRING_CLIP,_FUNC_GETSELECTEDTEXT_STRING_CLIP->len- 2 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19964,"ide_methods.bas");}while(r); -} -} -} -fornext_continue_6347:; -} -fornext_exit_6347:; -do{ -qbs_set(_FUNC_GETSELECTEDTEXT_STRING_GETSELECTEDTEXT,_FUNC_GETSELECTEDTEXT_STRING_CLIP); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19968,"ide_methods.bas");}while(r); -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free275.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_GETSELECTEDTEXT_STRING_GETSELECTEDTEXT);return _FUNC_GETSELECTEDTEXT_STRING_GETSELECTEDTEXT; -} -void SUB_DELSELECT(){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data276.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -*_SUB_DELSELECT_LONG_SY1=*__LONG_IDESELECTY1; -if(!qbevent)break;evnt(26070,19973,"ide_methods.bas");}while(r); -do{ -*_SUB_DELSELECT_LONG_SY2=*__LONG_IDECY; -if(!qbevent)break;evnt(26070,19974,"ide_methods.bas");}while(r); -S_57855:; -if ((-(*_SUB_DELSELECT_LONG_SY1>*_SUB_DELSELECT_LONG_SY2))||new_error){ -if(qbevent){evnt(26070,19975,"ide_methods.bas");if(r)goto S_57855;} -do{ -swap_32(&*_SUB_DELSELECT_LONG_SY1,&*_SUB_DELSELECT_LONG_SY2); -if(!qbevent)break;evnt(26070,19975,"ide_methods.bas");}while(r); -} -do{ -*_SUB_DELSELECT_LONG_SX1=*__LONG_IDESELECTX1; -if(!qbevent)break;evnt(26070,19976,"ide_methods.bas");}while(r); -do{ -*_SUB_DELSELECT_LONG_SX2=*__LONG_IDECX; -if(!qbevent)break;evnt(26070,19977,"ide_methods.bas");}while(r); -S_57860:; -if ((-(*_SUB_DELSELECT_LONG_SX1>*_SUB_DELSELECT_LONG_SX2))||new_error){ -if(qbevent){evnt(26070,19978,"ide_methods.bas");if(r)goto S_57860;} -do{ -swap_32(&*_SUB_DELSELECT_LONG_SX1,&*_SUB_DELSELECT_LONG_SX2); -if(!qbevent)break;evnt(26070,19978,"ide_methods.bas");}while(r); -} -do{ -*_SUB_DELSELECT_LONG_NOLASTLINEDEL= 0 ; -if(!qbevent)break;evnt(26070,19979,"ide_methods.bas");}while(r); -S_57864:; -if (((-(*_SUB_DELSELECT_LONG_SY1!=*_SUB_DELSELECT_LONG_SY2))&(-(*__LONG_IDECX== 1 ))&(-(*__LONG_IDECY>*_SUB_DELSELECT_LONG_SY1)))||new_error){ -if(qbevent){evnt(26070,19980,"ide_methods.bas");if(r)goto S_57864;} -do{ -*_SUB_DELSELECT_LONG_SY2=*_SUB_DELSELECT_LONG_SY2- 1 ; -if(!qbevent)break;evnt(26070,19980,"ide_methods.bas");}while(r); -do{ -*_SUB_DELSELECT_LONG_NOLASTLINEDEL= 1 ; -if(!qbevent)break;evnt(26070,19980,"ide_methods.bas");}while(r); -} -S_57868:; -fornext_value6355=*_SUB_DELSELECT_LONG_SY2; -fornext_finalvalue6355=*_SUB_DELSELECT_LONG_SY1; -fornext_step6355= -1 ; -if (fornext_step6355<0) fornext_step_negative6355=1; else fornext_step_negative6355=0; -if (new_error) goto fornext_error6355; -goto fornext_entrylabel6355; -while(1){ -fornext_value6355=fornext_step6355+(*_SUB_DELSELECT_LONG_Y); -fornext_entrylabel6355: -*_SUB_DELSELECT_LONG_Y=fornext_value6355; -if (fornext_step_negative6355){ -if (fornext_value6355fornext_finalvalue6355) break; -} -fornext_error6355:; -if(qbevent){evnt(26070,19983,"ide_methods.bas");if(r)goto S_57868;} -S_57869:; -if (((-(*_SUB_DELSELECT_LONG_SY1==*_SUB_DELSELECT_LONG_SY2))&(-(*_SUB_DELSELECT_LONG_NOLASTLINEDEL== 0 )))||new_error){ -if(qbevent){evnt(26070,19984,"ide_methods.bas");if(r)goto S_57869;} -do{ -qbs_set(_SUB_DELSELECT_STRING_A,FUNC_IDEGETLINE(_SUB_DELSELECT_LONG_Y)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19985,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_DELSELECT_STRING_A2,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19986,"ide_methods.bas");}while(r); -S_57872:; -if ((qbs_cleanup(qbs_tmp_base,-(*_SUB_DELSELECT_LONG_SX1<=_SUB_DELSELECT_STRING_A->len)))||new_error){ -if(qbevent){evnt(26070,19987,"ide_methods.bas");if(r)goto S_57872;} -do{ -qbs_set(_SUB_DELSELECT_STRING_A2,qbs_left(_SUB_DELSELECT_STRING_A,*_SUB_DELSELECT_LONG_SX1- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19987,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_SUB_DELSELECT_STRING_A2,_SUB_DELSELECT_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19987,"ide_methods.bas");}while(r); -} -S_57877:; -if ((qbs_cleanup(qbs_tmp_base,-(*_SUB_DELSELECT_LONG_SX2<=_SUB_DELSELECT_STRING_A->len)))||new_error){ -if(qbevent){evnt(26070,19988,"ide_methods.bas");if(r)goto S_57877;} -do{ -qbs_set(_SUB_DELSELECT_STRING_A2,qbs_add(_SUB_DELSELECT_STRING_A2,qbs_right(_SUB_DELSELECT_STRING_A,_SUB_DELSELECT_STRING_A->len-*_SUB_DELSELECT_LONG_SX2+ 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19988,"ide_methods.bas");}while(r); -} -do{ -SUB_IDESETLINE(_SUB_DELSELECT_LONG_Y,_SUB_DELSELECT_STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19989,"ide_methods.bas");}while(r); -}else{ -S_57882:; -if (((-(*__LONG_IDEN== 1 ))&(-(*_SUB_DELSELECT_LONG_Y== 1 )))||new_error){ -if(qbevent){evnt(26070,19991,"ide_methods.bas");if(r)goto S_57882;} -do{ -SUB_IDESETLINE(_SUB_DELSELECT_LONG_Y,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19991,"ide_methods.bas");}while(r); -}else{ -do{ -SUB_IDEDELLINE(_SUB_DELSELECT_LONG_Y); -if(!qbevent)break;evnt(26070,19991,"ide_methods.bas");}while(r); -} -} -fornext_continue_6354:; -} -fornext_exit_6354:; -do{ -*__LONG_IDECX=*_SUB_DELSELECT_LONG_SX1; -if(!qbevent)break;evnt(26070,19995,"ide_methods.bas");}while(r); -S_57890:; -if (((-(*_SUB_DELSELECT_LONG_SY1!=*_SUB_DELSELECT_LONG_SY2))|(-(*_SUB_DELSELECT_LONG_NOLASTLINEDEL== 1 )))||new_error){ -if(qbevent){evnt(26070,19995,"ide_methods.bas");if(r)goto S_57890;} -do{ -*__LONG_IDECX= 1 ; -if(!qbevent)break;evnt(26070,19995,"ide_methods.bas");}while(r); -} -do{ -*__LONG_IDECY=*_SUB_DELSELECT_LONG_SY1; -if(!qbevent)break;evnt(26070,19996,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(26070,19997,"ide_methods.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free276.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -void SUB_INSERTATCURSOR(qbs*_SUB_INSERTATCURSOR_STRING_TEMPK){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data277.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -S_57895:; -if ((*__LONG_IDESELECT)||new_error){ -if(qbevent){evnt(26070,20002,"ide_methods.bas");if(r)goto S_57895;} -do{ -SUB_DELSELECT(); -if(!qbevent)break;evnt(26070,20002,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_SUB_INSERTATCURSOR_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20003,"ide_methods.bas");}while(r); -S_57899:; -if ((qbs_cleanup(qbs_tmp_base,-((_SUB_INSERTATCURSOR_STRING_A->len)<(*__LONG_IDECX- 1 ))))||new_error){ -if(qbevent){evnt(26070,20004,"ide_methods.bas");if(r)goto S_57899;} -do{ -qbs_set(_SUB_INSERTATCURSOR_STRING_A,qbs_add(_SUB_INSERTATCURSOR_STRING_A,func_space(*__LONG_IDECX- 1 -_SUB_INSERTATCURSOR_STRING_A->len))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20004,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_SUB_INSERTATCURSOR_STRING_A,qbs_add(qbs_add(qbs_left(_SUB_INSERTATCURSOR_STRING_A,*__LONG_IDECX- 1 ),_SUB_INSERTATCURSOR_STRING_TEMPK),qbs_right(_SUB_INSERTATCURSOR_STRING_A,_SUB_INSERTATCURSOR_STRING_A->len-*__LONG_IDECX+ 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20005,"ide_methods.bas");}while(r); -do{ -SUB_IDESETLINE(__LONG_IDECY,FUNC_CONVERTTABS(_SUB_INSERTATCURSOR_STRING_A)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20006,"ide_methods.bas");}while(r); -S_57904:; -if ((*__BYTE_PASTECURSORATEND)||new_error){ -if(qbevent){evnt(26070,20008,"ide_methods.bas");if(r)goto S_57904;} -do{ -*__LONG_IDECX=*__LONG_IDECX+_SUB_INSERTATCURSOR_STRING_TEMPK->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20010,"ide_methods.bas");}while(r); -} -do{ -*__INTEGER_IDECHANGEMADE= 1 ; -if(!qbevent)break;evnt(26070,20013,"ide_methods.bas");}while(r); -do{ -*__BYTE_STARTPAUSEDPENDING= 0 ; -if(!qbevent)break;evnt(26070,20014,"ide_methods.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free277.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -qbs* FUNC_FINDHELPTOPIC(qbs*_FUNC_FINDHELPTOPIC_STRING_TOPIC,int32*_FUNC_FINDHELPTOPIC_LONG_LNKS,int8*_FUNC_FINDHELPTOPIC_BYTE_FIRSTONLY){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data278.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -*_FUNC_FINDHELPTOPIC_LONG_LNKS= 0 ; -if(!qbevent)break;evnt(26070,20021,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_FINDHELPTOPIC_STRING_LNKS,func_chr( 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20021,"ide_methods.bas");}while(r); -do{ -*_FUNC_FINDHELPTOPIC_LONG_FH=func_freefile(); -if(!qbevent)break;evnt(26070,20022,"ide_methods.bas");}while(r); -do{ -*_FUNC_FINDHELPTOPIC_LONG_LINKSFILEEXIST=func__fileexists(qbs_new_txt_len("internal\\help\\links.bin",23)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20024,"ide_methods.bas");}while(r); -S_57913:; -if ((*_FUNC_FINDHELPTOPIC_LONG_LINKSFILEEXIST)||new_error){ -if(qbevent){evnt(26070,20025,"ide_methods.bas");if(r)goto S_57913;} -do{ -sub_open(qbs_new_txt_len("internal\\help\\links.bin",23), 3 ,NULL,NULL,*_FUNC_FINDHELPTOPIC_LONG_FH,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20026,"ide_methods.bas");}while(r); -do{ -*_FUNC_FINDHELPTOPIC_LONG_LINKSFILEEMPTY=(-(func_lof(*_FUNC_FINDHELPTOPIC_LONG_FH)== 0 )); -if(!qbevent)break;evnt(26070,20027,"ide_methods.bas");}while(r); -do{ -sub_close(*_FUNC_FINDHELPTOPIC_LONG_FH,1); -if(!qbevent)break;evnt(26070,20027,"ide_methods.bas");}while(r); -} -S_57918:; -if (((~(*_FUNC_FINDHELPTOPIC_LONG_LINKSFILEEXIST))|*_FUNC_FINDHELPTOPIC_LONG_LINKSFILEEMPTY)||new_error){ -if(qbevent){evnt(26070,20029,"ide_methods.bas");if(r)goto S_57918;} -do{ -qbs_set(_FUNC_FINDHELPTOPIC_STRING_Q,FUNC_IDEYESNOBOX(qbs_new_txt_len("Help problem",12),qbs_new_txt_len("The help system is not yet initialized,\\ndo it now? (Make sure you're online.)",78))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20030,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,20031,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,20031,"ide_methods.bas");}while(r); -S_57922:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_FINDHELPTOPIC_STRING_Q,qbs_new_txt_len("N",1))))||new_error){ -if(qbevent){evnt(26070,20032,"ide_methods.bas");if(r)goto S_57922;} -do{ -goto LABEL_NOLINKSFILE; -if(!qbevent)break;evnt(26070,20032,"ide_methods.bas");}while(r); -} -do{ -*__LONG_HELP_IGNORECACHE= 1 ; -if(!qbevent)break;evnt(26070,20033,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_FINDHELPTOPIC_STRING_A,FUNC_WIKI(qbs_new_txt_len("Keyword Reference - Alphabetical",32))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20034,"ide_methods.bas");}while(r); -do{ -*__LONG_HELP_IGNORECACHE= 0 ; -if(!qbevent)break;evnt(26070,20035,"ide_methods.bas");}while(r); -S_57928:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_FINDHELPTOPIC_STRING_A,qbs_new_txt_len("{{PageInternalError}}",21),0)))||new_error){ -if(qbevent){evnt(26070,20036,"ide_methods.bas");if(r)goto S_57928;} -do{ -*_FUNC_FINDHELPTOPIC_LONG_LNKS= 1 ; -if(!qbevent)break;evnt(26070,20037,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_FINDHELPTOPIC_STRING_LNKS,qbs_add(qbs_add(_FUNC_FINDHELPTOPIC_STRING_LNKS,qbs_new_txt_len("Initialize",10)),func_chr( 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20037,"ide_methods.bas");}while(r); -do{ -goto LABEL_NOLINKSFILE; -if(!qbevent)break;evnt(26070,20038,"ide_methods.bas");}while(r); -} -do{ -*__LONG_HELP_WW= 78 ; -if(!qbevent)break;evnt(26070,20040,"ide_methods.bas");}while(r); -do{ -SUB_WIKIPARSE(_FUNC_FINDHELPTOPIC_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20040,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_FINDHELPTOPIC_STRING_A2,qbs_ucase(_FUNC_FINDHELPTOPIC_STRING_TOPIC)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20043,"ide_methods.bas");}while(r); -do{ -sub_open(qbs_new_txt_len("internal\\help\\links.bin",23), 3 ,NULL,NULL,*_FUNC_FINDHELPTOPIC_LONG_FH,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20044,"ide_methods.bas");}while(r); -S_57938:; -while((!(func_eof(*_FUNC_FINDHELPTOPIC_LONG_FH)))||new_error){ -if(qbevent){evnt(26070,20045,"ide_methods.bas");if(r)goto S_57938;} -do{ -tmp_fileno=*_FUNC_FINDHELPTOPIC_LONG_FH; -if (new_error) goto skip6366; -sub_file_line_input_string(tmp_fileno,_FUNC_FINDHELPTOPIC_STRING_L); -if (new_error) goto skip6366; -skip6366: -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20046,"ide_methods.bas");}while(r); -do{ -*_FUNC_FINDHELPTOPIC_LONG_C=func_instr(NULL,_FUNC_FINDHELPTOPIC_STRING_L,qbs_new_txt_len(",",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20047,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_FINDHELPTOPIC_STRING_L1,qbs_left(_FUNC_FINDHELPTOPIC_STRING_L,*_FUNC_FINDHELPTOPIC_LONG_C- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20047,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_FINDHELPTOPIC_STRING_L2,qbs_right(_FUNC_FINDHELPTOPIC_STRING_L,_FUNC_FINDHELPTOPIC_STRING_L->len-*_FUNC_FINDHELPTOPIC_LONG_C)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20047,"ide_methods.bas");}while(r); -S_57943:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_FINDHELPTOPIC_STRING_A2,qbs_ucase(_FUNC_FINDHELPTOPIC_STRING_L1)))|(((-(*__LONG_QB64PREFIX_SET== 1 ))&(qbs_equal(qbs_left(_FUNC_FINDHELPTOPIC_STRING_L1, 1 ),qbs_new_txt_len("_",1)))&(qbs_equal(_FUNC_FINDHELPTOPIC_STRING_A2,func_mid(_FUNC_FINDHELPTOPIC_STRING_L1, 2 ,NULL,0)))))))||new_error){ -if(qbevent){evnt(26070,20048,"ide_methods.bas");if(r)goto S_57943;} -S_57944:; -if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_FUNC_FINDHELPTOPIC_STRING_LNKS,qbs_add(qbs_add(func_chr( 0 ),_FUNC_FINDHELPTOPIC_STRING_L2),func_chr( 0 )),0)== 0 )))||new_error){ -if(qbevent){evnt(26070,20049,"ide_methods.bas");if(r)goto S_57944;} -do{ -*_FUNC_FINDHELPTOPIC_LONG_LNKS=*_FUNC_FINDHELPTOPIC_LONG_LNKS+ 1 ; -if(!qbevent)break;evnt(26070,20050,"ide_methods.bas");}while(r); -S_57946:; -if ((*_FUNC_FINDHELPTOPIC_BYTE_FIRSTONLY)||new_error){ -if(qbevent){evnt(26070,20051,"ide_methods.bas");if(r)goto S_57946;} -do{ -qbs_set(_FUNC_FINDHELPTOPIC_STRING_FINDHELPTOPIC,_FUNC_FINDHELPTOPIC_STRING_L2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20051,"ide_methods.bas");}while(r); -do{ -sub_close(*_FUNC_FINDHELPTOPIC_LONG_FH,1); -if(!qbevent)break;evnt(26070,20051,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,20051,"ide_methods.bas");}while(r); -} -S_57951:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_FINDHELPTOPIC_STRING_L2,_FUNC_FINDHELPTOPIC_STRING_L1)))||new_error){ -if(qbevent){evnt(26070,20052,"ide_methods.bas");if(r)goto S_57951;} -do{ -qbs_set(_FUNC_FINDHELPTOPIC_STRING_LNKS,qbs_add(qbs_add(func_chr( 0 ),_FUNC_FINDHELPTOPIC_STRING_L2),_FUNC_FINDHELPTOPIC_STRING_LNKS)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20053,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_FINDHELPTOPIC_STRING_LNKS,qbs_add(qbs_add(_FUNC_FINDHELPTOPIC_STRING_LNKS,_FUNC_FINDHELPTOPIC_STRING_L2),func_chr( 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20055,"ide_methods.bas");}while(r); -} -} -} -dl_continue_6365:; -} -dl_exit_6365:; -do{ -sub_close(*_FUNC_FINDHELPTOPIC_LONG_FH,1); -if(!qbevent)break;evnt(26070,20060,"ide_methods.bas");}while(r); -LABEL_NOLINKSFILE:; -if(qbevent){evnt(26070,20061,"ide_methods.bas");r=0;} -do{ -qbs_set(_FUNC_FINDHELPTOPIC_STRING_FINDHELPTOPIC,_FUNC_FINDHELPTOPIC_STRING_LNKS); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20062,"ide_methods.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free278.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_FINDHELPTOPIC_STRING_FINDHELPTOPIC);return _FUNC_FINDHELPTOPIC_STRING_FINDHELPTOPIC; -} -int32 FUNC_ISNUMBER(qbs*_FUNC_ISNUMBER_STRING___A){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data279.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -qbs_set(_FUNC_ISNUMBER_STRING_A,qbs_ucase(_FUNC_ISNUMBER_STRING___A)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20066,"ide_methods.bas");}while(r); -S_57962:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_ISNUMBER_STRING_A->len== 0 )))||new_error){ -if(qbevent){evnt(26070,20067,"ide_methods.bas");if(r)goto S_57962;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,20067,"ide_methods.bas");}while(r); -} -S_57965:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,qbs_new_txt_len("@&H@&O@&B@",10),qbs_add(qbs_add(qbs_new_txt_len("@",1),qbs_left(_FUNC_ISNUMBER_STRING_A, 2 )),qbs_new_txt_len("@",1)),0)))||new_error){ -if(qbevent){evnt(26070,20069,"ide_methods.bas");if(r)goto S_57965;} -do{ -*_FUNC_ISNUMBER_LONG_ISNUMBER= 1 ; -if(!qbevent)break;evnt(26070,20069,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,20069,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_ISNUMBER_LONG_I=func_instr(NULL,_FUNC_ISNUMBER_STRING_A,qbs_new_txt_len("~",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20071,"ide_methods.bas");}while(r); -S_57970:; -if ((*_FUNC_ISNUMBER_LONG_I)||new_error){ -if(qbevent){evnt(26070,20071,"ide_methods.bas");if(r)goto S_57970;} -do{ -goto LABEL_FOUNDSYMBOL; -if(!qbevent)break;evnt(26070,20071,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_ISNUMBER_LONG_I=func_instr(NULL,_FUNC_ISNUMBER_STRING_A,qbs_new_txt_len("`",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20072,"ide_methods.bas");}while(r); -S_57974:; -if ((*_FUNC_ISNUMBER_LONG_I)||new_error){ -if(qbevent){evnt(26070,20072,"ide_methods.bas");if(r)goto S_57974;} -do{ -goto LABEL_FOUNDSYMBOL; -if(!qbevent)break;evnt(26070,20072,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_ISNUMBER_LONG_I=func_instr(NULL,_FUNC_ISNUMBER_STRING_A,qbs_new_txt_len("%",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20073,"ide_methods.bas");}while(r); -S_57978:; -if ((*_FUNC_ISNUMBER_LONG_I)||new_error){ -if(qbevent){evnt(26070,20073,"ide_methods.bas");if(r)goto S_57978;} -do{ -goto LABEL_FOUNDSYMBOL; -if(!qbevent)break;evnt(26070,20073,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_ISNUMBER_LONG_I=func_instr(NULL,_FUNC_ISNUMBER_STRING_A,qbs_new_txt_len("&",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20074,"ide_methods.bas");}while(r); -S_57982:; -if ((*_FUNC_ISNUMBER_LONG_I)||new_error){ -if(qbevent){evnt(26070,20074,"ide_methods.bas");if(r)goto S_57982;} -do{ -goto LABEL_FOUNDSYMBOL; -if(!qbevent)break;evnt(26070,20074,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_ISNUMBER_LONG_I=func_instr(NULL,_FUNC_ISNUMBER_STRING_A,qbs_new_txt_len("!",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20075,"ide_methods.bas");}while(r); -S_57986:; -if ((*_FUNC_ISNUMBER_LONG_I)||new_error){ -if(qbevent){evnt(26070,20075,"ide_methods.bas");if(r)goto S_57986;} -do{ -goto LABEL_FOUNDSYMBOL; -if(!qbevent)break;evnt(26070,20075,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_ISNUMBER_LONG_I=func_instr(NULL,_FUNC_ISNUMBER_STRING_A,qbs_new_txt_len("#",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20076,"ide_methods.bas");}while(r); -S_57990:; -if ((*_FUNC_ISNUMBER_LONG_I)||new_error){ -if(qbevent){evnt(26070,20076,"ide_methods.bas");if(r)goto S_57990;} -do{ -goto LABEL_FOUNDSYMBOL; -if(!qbevent)break;evnt(26070,20076,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_ISNUMBER_LONG_I=func_instr(NULL,_FUNC_ISNUMBER_STRING_A,qbs_new_txt_len("$",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20077,"ide_methods.bas");}while(r); -S_57994:; -if ((*_FUNC_ISNUMBER_LONG_I)||new_error){ -if(qbevent){evnt(26070,20077,"ide_methods.bas");if(r)goto S_57994;} -do{ -goto LABEL_FOUNDSYMBOL; -if(!qbevent)break;evnt(26070,20077,"ide_methods.bas");}while(r); -} -do{ -goto LABEL_PROCEEDWITHOUTSYMBOL; -if(!qbevent)break;evnt(26070,20078,"ide_methods.bas");}while(r); -LABEL_FOUNDSYMBOL:; -if(qbevent){evnt(26070,20079,"ide_methods.bas");r=0;} -S_57998:; -if ((-(*_FUNC_ISNUMBER_LONG_I== 1 ))||new_error){ -if(qbevent){evnt(26070,20080,"ide_methods.bas");if(r)goto S_57998;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,20080,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_ISNUMBER_STRING_SYMBOL,qbs_right(_FUNC_ISNUMBER_STRING_A,_FUNC_ISNUMBER_STRING_A->len-*_FUNC_ISNUMBER_LONG_I+ 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20081,"ide_methods.bas");}while(r); -S_58002:; -if ((qbs_cleanup(qbs_tmp_base,-(FUNC_SYMBOLTYPE(_FUNC_ISNUMBER_STRING_SYMBOL)== 0 )))||new_error){ -if(qbevent){evnt(26070,20082,"ide_methods.bas");if(r)goto S_58002;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,20082,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_ISNUMBER_STRING_A,qbs_left(_FUNC_ISNUMBER_STRING_A,*_FUNC_ISNUMBER_LONG_I- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20083,"ide_methods.bas");}while(r); -LABEL_PROCEEDWITHOUTSYMBOL:; -if(qbevent){evnt(26070,20085,"ide_methods.bas");r=0;} -do{ -*_FUNC_ISNUMBER_LONG_FF= 0 ; -if(!qbevent)break;evnt(26070,20086,"ide_methods.bas");}while(r); -do{ -*_FUNC_ISNUMBER_LONG_EE= 0 ; -if(!qbevent)break;evnt(26070,20087,"ide_methods.bas");}while(r); -do{ -*_FUNC_ISNUMBER_LONG_DD= 0 ; -if(!qbevent)break;evnt(26070,20088,"ide_methods.bas");}while(r); -do{ -*_FUNC_ISNUMBER_LONG_NEG= 0 ; -if(!qbevent)break;evnt(26070,20089,"ide_methods.bas");}while(r); -S_58010:; -fornext_value6372= 1 ; -fornext_finalvalue6372=_FUNC_ISNUMBER_STRING_A->len; -fornext_step6372= 1 ; -if (fornext_step6372<0) fornext_step_negative6372=1; else fornext_step_negative6372=0; -if (new_error) goto fornext_error6372; -goto fornext_entrylabel6372; -while(1){ -fornext_value6372=fornext_step6372+(*_FUNC_ISNUMBER_LONG_I); -fornext_entrylabel6372: -*_FUNC_ISNUMBER_LONG_I=fornext_value6372; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative6372){ -if (fornext_value6372fornext_finalvalue6372) break; -} -fornext_error6372:; -if(qbevent){evnt(26070,20090,"ide_methods.bas");if(r)goto S_58010;} -do{ -*_FUNC_ISNUMBER_LONG_A=qbs_asc(_FUNC_ISNUMBER_STRING_A,*_FUNC_ISNUMBER_LONG_I); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20091,"ide_methods.bas");}while(r); -S_58012:; -if ((-(*_FUNC_ISNUMBER_LONG_A== 45 ))||new_error){ -if(qbevent){evnt(26070,20092,"ide_methods.bas");if(r)goto S_58012;} -S_58013:; -if ((qbs_cleanup(qbs_tmp_base,((-(*_FUNC_ISNUMBER_LONG_I== 1 ))&(-(_FUNC_ISNUMBER_STRING_A->len> 1 )))|((-(*_FUNC_ISNUMBER_LONG_I> 1 ))&((((-(*_FUNC_ISNUMBER_LONG_DD> 0 ))&(-(*_FUNC_ISNUMBER_LONG_DD==(*_FUNC_ISNUMBER_LONG_I- 1 ))))|((-(*_FUNC_ISNUMBER_LONG_EE> 0 ))&(-(*_FUNC_ISNUMBER_LONG_EE==(*_FUNC_ISNUMBER_LONG_I- 1 ))))|((-(*_FUNC_ISNUMBER_LONG_FF> 0 ))&(-(*_FUNC_ISNUMBER_LONG_FF==(*_FUNC_ISNUMBER_LONG_I- 1 )))))))))||new_error){ -if(qbevent){evnt(26070,20093,"ide_methods.bas");if(r)goto S_58013;} -do{ -*_FUNC_ISNUMBER_LONG_NEG=(-(*_FUNC_ISNUMBER_LONG_I== 1 )); -if(!qbevent)break;evnt(26070,20093,"ide_methods.bas");}while(r); -do{ -goto fornext_continue_6371; -if(!qbevent)break;evnt(26070,20093,"ide_methods.bas");}while(r); -} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,20094,"ide_methods.bas");}while(r); -} -S_58019:; -if ((-(*_FUNC_ISNUMBER_LONG_A== 46 ))||new_error){ -if(qbevent){evnt(26070,20096,"ide_methods.bas");if(r)goto S_58019;} -S_58020:; -if ((-(*_FUNC_ISNUMBER_LONG_DP== 1 ))||new_error){ -if(qbevent){evnt(26070,20097,"ide_methods.bas");if(r)goto S_58020;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,20097,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_ISNUMBER_LONG_DP= 1 ; -if(!qbevent)break;evnt(26070,20098,"ide_methods.bas");}while(r); -do{ -goto fornext_continue_6371; -if(!qbevent)break;evnt(26070,20099,"ide_methods.bas");}while(r); -} -S_58026:; -if ((-(*_FUNC_ISNUMBER_LONG_A== 68 ))||new_error){ -if(qbevent){evnt(26070,20101,"ide_methods.bas");if(r)goto S_58026;} -S_58027:; -if (((-(*_FUNC_ISNUMBER_LONG_DD> 0 ))|(-(*_FUNC_ISNUMBER_LONG_EE> 0 ))|(-(*_FUNC_ISNUMBER_LONG_FF> 0 )))||new_error){ -if(qbevent){evnt(26070,20102,"ide_methods.bas");if(r)goto S_58027;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,20102,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_ISNUMBER_LONG_DD=*_FUNC_ISNUMBER_LONG_I; -if(!qbevent)break;evnt(26070,20103,"ide_methods.bas");}while(r); -S_58031:; -if (((-(*_FUNC_ISNUMBER_LONG_NEG!= 0 ))&(-(*_FUNC_ISNUMBER_LONG_DD== 2 )))||new_error){ -if(qbevent){evnt(26070,20104,"ide_methods.bas");if(r)goto S_58031;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,20104,"ide_methods.bas");}while(r); -} -do{ -goto fornext_continue_6371; -if(!qbevent)break;evnt(26070,20105,"ide_methods.bas");}while(r); -} -S_58036:; -if ((-(*_FUNC_ISNUMBER_LONG_A== 69 ))||new_error){ -if(qbevent){evnt(26070,20107,"ide_methods.bas");if(r)goto S_58036;} -S_58037:; -if (((-(*_FUNC_ISNUMBER_LONG_DD> 0 ))|(-(*_FUNC_ISNUMBER_LONG_EE> 0 ))|(-(*_FUNC_ISNUMBER_LONG_FF> 0 )))||new_error){ -if(qbevent){evnt(26070,20108,"ide_methods.bas");if(r)goto S_58037;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,20108,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_ISNUMBER_LONG_EE=*_FUNC_ISNUMBER_LONG_I; -if(!qbevent)break;evnt(26070,20109,"ide_methods.bas");}while(r); -S_58041:; -if (((-(*_FUNC_ISNUMBER_LONG_NEG!= 0 ))&(-(*_FUNC_ISNUMBER_LONG_EE== 2 )))||new_error){ -if(qbevent){evnt(26070,20110,"ide_methods.bas");if(r)goto S_58041;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,20110,"ide_methods.bas");}while(r); -} -do{ -goto fornext_continue_6371; -if(!qbevent)break;evnt(26070,20111,"ide_methods.bas");}while(r); -} -S_58046:; -if ((-(*_FUNC_ISNUMBER_LONG_A== 70 ))||new_error){ -if(qbevent){evnt(26070,20113,"ide_methods.bas");if(r)goto S_58046;} -S_58047:; -if (((-(*_FUNC_ISNUMBER_LONG_DD> 0 ))|(-(*_FUNC_ISNUMBER_LONG_EE> 0 ))|(-(*_FUNC_ISNUMBER_LONG_FF> 0 )))||new_error){ -if(qbevent){evnt(26070,20114,"ide_methods.bas");if(r)goto S_58047;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,20114,"ide_methods.bas");}while(r); -} -do{ -*_FUNC_ISNUMBER_LONG_FF=*_FUNC_ISNUMBER_LONG_I; -if(!qbevent)break;evnt(26070,20115,"ide_methods.bas");}while(r); -S_58051:; -if (((-(*_FUNC_ISNUMBER_LONG_NEG!= 0 ))&(-(*_FUNC_ISNUMBER_LONG_FF== 2 )))||new_error){ -if(qbevent){evnt(26070,20116,"ide_methods.bas");if(r)goto S_58051;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,20116,"ide_methods.bas");}while(r); -} -do{ -goto fornext_continue_6371; -if(!qbevent)break;evnt(26070,20117,"ide_methods.bas");}while(r); -} -S_58056:; -if ((-(*_FUNC_ISNUMBER_LONG_A== 43 ))||new_error){ -if(qbevent){evnt(26070,20119,"ide_methods.bas");if(r)goto S_58056;} -S_58057:; -if ((((-(*_FUNC_ISNUMBER_LONG_DD> 0 ))&(-(*_FUNC_ISNUMBER_LONG_DD==(*_FUNC_ISNUMBER_LONG_I- 1 ))))|((-(*_FUNC_ISNUMBER_LONG_EE> 0 ))&(-(*_FUNC_ISNUMBER_LONG_EE==(*_FUNC_ISNUMBER_LONG_I- 1 ))))|((-(*_FUNC_ISNUMBER_LONG_FF> 0 ))&(-(*_FUNC_ISNUMBER_LONG_FF==(*_FUNC_ISNUMBER_LONG_I- 1 )))))||new_error){ -if(qbevent){evnt(26070,20120,"ide_methods.bas");if(r)goto S_58057;} -do{ -goto fornext_continue_6371; -if(!qbevent)break;evnt(26070,20120,"ide_methods.bas");}while(r); -} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,20121,"ide_methods.bas");}while(r); -} -S_58062:; -if (((-(*_FUNC_ISNUMBER_LONG_A>= 48 ))&(-(*_FUNC_ISNUMBER_LONG_A<= 57 )))||new_error){ -if(qbevent){evnt(26070,20124,"ide_methods.bas");if(r)goto S_58062;} -do{ -goto fornext_continue_6371; -if(!qbevent)break;evnt(26070,20124,"ide_methods.bas");}while(r); -} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,20125,"ide_methods.bas");}while(r); -fornext_continue_6371:; -} -fornext_exit_6371:; -do{ -*_FUNC_ISNUMBER_LONG_ISNUMBER= 1 ; -if(!qbevent)break;evnt(26070,20127,"ide_methods.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free279.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -return *_FUNC_ISNUMBER_LONG_ISNUMBER; -} -qbs* FUNC_BACK2BACKNAME(qbs*_FUNC_BACK2BACKNAME_STRING_A){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data280.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -S_58068:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_BACK2BACKNAME_STRING_A,qbs_new_txt_len("Keyword Reference - Alphabetical",32))))||new_error){ -if(qbevent){evnt(26070,2,"wiki_methods.bas");if(r)goto S_58068;} -do{ -qbs_set(_FUNC_BACK2BACKNAME_STRING_BACK2BACKNAME,qbs_new_txt_len("Alphabetical",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,2,"wiki_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,2,"wiki_methods.bas");}while(r); -} -S_58072:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_BACK2BACKNAME_STRING_A,qbs_new_txt_len("Keyword Reference - By usage",28))))||new_error){ -if(qbevent){evnt(26070,3,"wiki_methods.bas");if(r)goto S_58072;} -do{ -qbs_set(_FUNC_BACK2BACKNAME_STRING_BACK2BACKNAME,qbs_new_txt_len("By Usage",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,3,"wiki_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,3,"wiki_methods.bas");}while(r); -} -S_58076:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_BACK2BACKNAME_STRING_A,qbs_new_txt_len("Keywords currently not supported by QB64",40))))||new_error){ -if(qbevent){evnt(26070,4,"wiki_methods.bas");if(r)goto S_58076;} -do{ -qbs_set(_FUNC_BACK2BACKNAME_STRING_BACK2BACKNAME,qbs_new_txt_len("Unsupported",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,4,"wiki_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,4,"wiki_methods.bas");}while(r); -} -S_58080:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_BACK2BACKNAME_STRING_A,qbs_new_txt_len("QB64 Help Menu",14))))||new_error){ -if(qbevent){evnt(26070,5,"wiki_methods.bas");if(r)goto S_58080;} -do{ -qbs_set(_FUNC_BACK2BACKNAME_STRING_BACK2BACKNAME,qbs_new_txt_len("Help",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,5,"wiki_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,5,"wiki_methods.bas");}while(r); -} -S_58084:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_BACK2BACKNAME_STRING_A,qbs_new_txt_len("QB64 FAQ",8))))||new_error){ -if(qbevent){evnt(26070,6,"wiki_methods.bas");if(r)goto S_58084;} -do{ -qbs_set(_FUNC_BACK2BACKNAME_STRING_BACK2BACKNAME,qbs_new_txt_len("FAQ",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,6,"wiki_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,6,"wiki_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_BACK2BACKNAME_STRING_BACK2BACKNAME,_FUNC_BACK2BACKNAME_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,7,"wiki_methods.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free280.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_BACK2BACKNAME_STRING_BACK2BACKNAME);return _FUNC_BACK2BACKNAME_STRING_BACK2BACKNAME; -} -qbs* FUNC_WIKI(qbs*_FUNC_WIKI_STRING_PAGENAME){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data281.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -S_58089:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(_FUNC_WIKI_STRING_PAGENAME, 9 ),qbs_new_txt_len("Template:",9))))||new_error){ -if(qbevent){evnt(26070,11,"wiki_methods.bas");if(r)goto S_58089;} -do{ -qbs_set(__STRING_HELP_PAGELOADED,_FUNC_WIKI_STRING_PAGENAME); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,11,"wiki_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_WIKI_STRING_PAGENAME2,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,14,"wiki_methods.bas");}while(r); -S_58093:; -fornext_value6378= 1 ; -fornext_finalvalue6378=_FUNC_WIKI_STRING_PAGENAME->len; -fornext_step6378= 1 ; -if (fornext_step6378<0) fornext_step_negative6378=1; else fornext_step_negative6378=0; -if (new_error) goto fornext_error6378; -goto fornext_entrylabel6378; -while(1){ -fornext_value6378=fornext_step6378+(*_FUNC_WIKI_LONG_I); -fornext_entrylabel6378: -*_FUNC_WIKI_LONG_I=fornext_value6378; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative6378){ -if (fornext_value6378fornext_finalvalue6378) break; -} -fornext_error6378:; -if(qbevent){evnt(26070,15,"wiki_methods.bas");if(r)goto S_58093;} -do{ -*_FUNC_WIKI_LONG_C=qbs_asc(_FUNC_WIKI_STRING_PAGENAME,*_FUNC_WIKI_LONG_I); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,16,"wiki_methods.bas");}while(r); -S_58095:; -if(qbevent){evnt(26070,17,"wiki_methods.bas");if(r)goto S_58095;} -S_58096:; -if (((*_FUNC_WIKI_LONG_C==( 32 )))||new_error){ -if(qbevent){evnt(26070,18,"wiki_methods.bas");if(r)goto S_58096;} -do{ -qbs_set(_FUNC_WIKI_STRING_PAGENAME2,qbs_add(_FUNC_WIKI_STRING_PAGENAME2,qbs_new_txt_len("_",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,19,"wiki_methods.bas");}while(r); -sc_ec_441_end:; -goto sc_6380_end; -} -S_58098:; -if (((*_FUNC_WIKI_LONG_C==( 34 ))||(*_FUNC_WIKI_LONG_C==( 36 ))||(*_FUNC_WIKI_LONG_C==( 38 ))||(*_FUNC_WIKI_LONG_C==( 42 ))||(*_FUNC_WIKI_LONG_C==( 43 ))||(*_FUNC_WIKI_LONG_C==( 47 ))||(*_FUNC_WIKI_LONG_C==( 58 ))||(*_FUNC_WIKI_LONG_C==( 60 ))||(*_FUNC_WIKI_LONG_C==( 62 ))||(*_FUNC_WIKI_LONG_C==( 63 ))||(*_FUNC_WIKI_LONG_C==( 92 ))||(*_FUNC_WIKI_LONG_C==( 124 )))||new_error){ -if(qbevent){evnt(26070,20,"wiki_methods.bas");if(r)goto S_58098;} -do{ -qbs_set(_FUNC_WIKI_STRING_PAGENAME2,qbs_add(qbs_add(_FUNC_WIKI_STRING_PAGENAME2,qbs_new_txt_len("%",1)),func_hex(*_FUNC_WIKI_LONG_C,8))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,21,"wiki_methods.bas");}while(r); -sc_ec_442_end:; -goto sc_6380_end; -} -do{ -qbs_set(_FUNC_WIKI_STRING_PAGENAME2,qbs_add(_FUNC_WIKI_STRING_PAGENAME2,func_chr(*_FUNC_WIKI_LONG_C))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,23,"wiki_methods.bas");}while(r); -sc_6380_end:; -fornext_continue_6377:; -} -fornext_exit_6377:; -do{ -qbs_set(_FUNC_WIKI_STRING_PAGENAME3,FUNC_WIKISAFENAME(_FUNC_WIKI_STRING_PAGENAME2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,26,"wiki_methods.bas");}while(r); -S_58105:; -if ((-(*__LONG_HELP_IGNORECACHE== 0 ))||new_error){ -if(qbevent){evnt(26070,29,"wiki_methods.bas");if(r)goto S_58105;} -S_58106:; -if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(__STRING_CACHE_FOLDER,qbs_new_txt_len("/",1)),_FUNC_WIKI_STRING_PAGENAME3),qbs_new_txt_len(".txt",4)))))||new_error){ -if(qbevent){evnt(26070,30,"wiki_methods.bas");if(r)goto S_58106;} -do{ -*_FUNC_WIKI_LONG_FH=func_freefile(); -if(!qbevent)break;evnt(26070,31,"wiki_methods.bas");}while(r); -do{ -sub_open(qbs_add(qbs_add(qbs_add(__STRING_CACHE_FOLDER,qbs_new_txt_len("/",1)),_FUNC_WIKI_STRING_PAGENAME3),qbs_new_txt_len(".txt",4)), 2 ,NULL,NULL,*_FUNC_WIKI_LONG_FH,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,32,"wiki_methods.bas");}while(r); -do{ -qbs_set(_FUNC_WIKI_STRING_A,func_space(func_lof(*_FUNC_WIKI_LONG_FH))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,33,"wiki_methods.bas");}while(r); -do{ -sub_get2(*_FUNC_WIKI_LONG_FH,NULL,_FUNC_WIKI_STRING_A,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,34,"wiki_methods.bas");}while(r); -do{ -sub_close(*_FUNC_WIKI_LONG_FH,1); -if(!qbevent)break;evnt(26070,35,"wiki_methods.bas");}while(r); -do{ -qbs_set(_FUNC_WIKI_STRING_WIKI,FUNC_STRREPLACE(_FUNC_WIKI_STRING_A,qbs_add(func_chr( 13 ),func_chr( 10 )),func_chr( 10 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,36,"wiki_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,37,"wiki_methods.bas");}while(r); -} -} -S_58116:; -if ((-(*__LONG_HELP_RECACHING== 0 ))||new_error){ -if(qbevent){evnt(26070,42,"wiki_methods.bas");if(r)goto S_58116;} -do{ -qbs_set(_FUNC_WIKI_STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Downloading '",13),_FUNC_WIKI_STRING_PAGENAME),qbs_new_txt_len("' page...",9))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,43,"wiki_methods.bas");}while(r); -S_58118:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_WIKI_STRING_A->len> 60 )))||new_error){ -if(qbevent){evnt(26070,44,"wiki_methods.bas");if(r)goto S_58118;} -do{ -qbs_set(_FUNC_WIKI_STRING_A,qbs_add(qbs_left(_FUNC_WIKI_STRING_A, 57 ),func_string( 3 , 250 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,44,"wiki_methods.bas");}while(r); -} -S_58121:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_WIKI_STRING_A->len< 60 )))||new_error){ -if(qbevent){evnt(26070,45,"wiki_methods.bas");if(r)goto S_58121;} -do{ -qbs_set(_FUNC_WIKI_STRING_A,qbs_add(_FUNC_WIKI_STRING_A,func_space( 60 -_FUNC_WIKI_STRING_A->len))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,45,"wiki_methods.bas");}while(r); -} -do{ -qbg_sub_color( 0 , 3 ,NULL,3); -if(!qbevent)break;evnt(26070,47,"wiki_methods.bas");}while(r); -do{ -qbg_sub_locate(*__LONG_IDEWY+*__LONG_IDESUBWINDOW, 2 ,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(26070,47,"wiki_methods.bas");}while(r); -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,_FUNC_WIKI_STRING_A); -if (new_error) goto skip6384; -makefit(tqbs); -qbs_print(tqbs,0); -skip6384: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,48,"wiki_methods.bas");}while(r); -do{ -sub_pcopy( 3 , 0 ); -if(!qbevent)break;evnt(26070,50,"wiki_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_WIKI_STRING_URL,qbs_add(qbs_add(qbs_add(__STRING_WIKIBASEADDRESS,qbs_new_txt_len("/index.php?title=",17)),_FUNC_WIKI_STRING_PAGENAME2),qbs_new_txt_len("&action=edit",12))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,54,"wiki_methods.bas");}while(r); -do{ -qbs_set(_FUNC_WIKI_STRING_OUTPUTFILE,qbs_add(qbs_add(qbs_add(__STRING_CACHE_FOLDER,qbs_new_txt_len("/",1)),_FUNC_WIKI_STRING_PAGENAME3),qbs_new_txt_len(".txt",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,55,"wiki_methods.bas");}while(r); -do{ -qbs_set(_FUNC_WIKI_STRING_S1,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("name=",5),func_chr( 34 )),qbs_new_txt_len("wpTextbox1",10)),func_chr( 34 )),qbs_new_txt_len(">",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,57,"wiki_methods.bas");}while(r); -do{ -qbs_set(_FUNC_WIKI_STRING_S2,qbs_new_txt_len("",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,58,"wiki_methods.bas");}while(r); -S_58133:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_WIKI_STRING_PAGENAME,qbs_new_txt_len("Initialize",10)))|(qbs_equal(_FUNC_WIKI_STRING_PAGENAME,qbs_new_txt_len("Update All",10)))))||new_error){ -if(qbevent){evnt(26070,61,"wiki_methods.bas");if(r)goto S_58133;} -do{ -qbs_set(_FUNC_WIKI_STRING_A,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,62,"wiki_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_WIKI_STRING_A,FUNC_WIKIDLPAGE(_FUNC_WIKI_STRING_URL,&(pass6385= 15 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,64,"wiki_methods.bas");}while(r); -S_58137:; -if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_FUNC_WIKI_STRING_A,qbs_new_txt_len("Login required",14),0)> 0 )))||new_error){ -if(qbevent){evnt(26070,65,"wiki_methods.bas");if(r)goto S_58137;} -do{ -qbs_set(_FUNC_WIKI_STRING_A,qbs_add(_FUNC_WIKI_STRING_S1,_FUNC_WIKI_STRING_S2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,65,"wiki_methods.bas");}while(r); -} -} -do{ -*_FUNC_WIKI_LONG_S1=func_instr(NULL,_FUNC_WIKI_STRING_A,_FUNC_WIKI_STRING_S1,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,69,"wiki_methods.bas");}while(r); -S_58142:; -if ((-(*_FUNC_WIKI_LONG_S1> 0 ))||new_error){ -if(qbevent){evnt(26070,70,"wiki_methods.bas");if(r)goto S_58142;} -do{ -qbs_set(_FUNC_WIKI_STRING_A,func_mid(_FUNC_WIKI_STRING_A,*_FUNC_WIKI_LONG_S1+_FUNC_WIKI_STRING_S1->len,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,70,"wiki_methods.bas");}while(r); -do{ -*_FUNC_WIKI_LONG_S2=func_instr(NULL,_FUNC_WIKI_STRING_A,_FUNC_WIKI_STRING_S2,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,70,"wiki_methods.bas");}while(r); -}else{ -do{ -*_FUNC_WIKI_LONG_S2= 0 ; -if(!qbevent)break;evnt(26070,70,"wiki_methods.bas");}while(r); -} -S_58148:; -if ((-(*_FUNC_WIKI_LONG_S2> 0 ))||new_error){ -if(qbevent){evnt(26070,71,"wiki_methods.bas");if(r)goto S_58148;} -do{ -qbs_set(_FUNC_WIKI_STRING_A,qbs_left(_FUNC_WIKI_STRING_A,*_FUNC_WIKI_LONG_S2- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,71,"wiki_methods.bas");}while(r); -} -S_58151:; -if (((-(*_FUNC_WIKI_LONG_S1> 0 ))&(-(*_FUNC_WIKI_LONG_S2> 0 )))||new_error){ -if(qbevent){evnt(26070,72,"wiki_methods.bas");if(r)goto S_58151;} -S_58152:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_WIKI_STRING_A,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,73,"wiki_methods.bas");if(r)goto S_58152;} -S_58153:; -while((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_FUNC_WIKI_STRING_A,qbs_new_txt_len("&",5),0)> 0 )))||new_error){ -if(qbevent){evnt(26070,76,"wiki_methods.bas");if(r)goto S_58153;} -do{ -qbs_set(_FUNC_WIKI_STRING_A,FUNC_STRREPLACE(_FUNC_WIKI_STRING_A,qbs_new_txt_len("&",5),qbs_new_txt_len("&",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,77,"wiki_methods.bas");}while(r); -ww_continue_6387:; -} -ww_exit_6387:; -do{ -qbs_set(_FUNC_WIKI_STRING_A,FUNC_STRREPLACE(_FUNC_WIKI_STRING_A,qbs_new_txt_len("<",4),qbs_new_txt_len("<",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,79,"wiki_methods.bas");}while(r); -do{ -qbs_set(_FUNC_WIKI_STRING_A,FUNC_STRREPLACE(_FUNC_WIKI_STRING_A,qbs_new_txt_len(">",4),qbs_new_txt_len(">",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,80,"wiki_methods.bas");}while(r); -do{ -qbs_set(_FUNC_WIKI_STRING_A,FUNC_STRREPLACE(_FUNC_WIKI_STRING_A,qbs_new_txt_len(""",6),func_chr( 34 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,81,"wiki_methods.bas");}while(r); -do{ -qbs_set(_FUNC_WIKI_STRING_A,FUNC_STRREPLACE(_FUNC_WIKI_STRING_A,qbs_new_txt_len("#REDIRECT",9),qbs_new_txt_len("See page",8))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,83,"wiki_methods.bas");}while(r); -do{ -qbs_set(_FUNC_WIKI_STRING_A,FUNC_STRREPLACE(_FUNC_WIKI_STRING_A,qbs_add(func_chr( 13 ),func_chr( 10 )),func_chr( 10 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,84,"wiki_methods.bas");}while(r); -S_58161:; -while((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_WIKI_STRING_A, 1 ),func_chr( 10 ))))||new_error){ -if(qbevent){evnt(26070,85,"wiki_methods.bas");if(r)goto S_58161;} -do{ -qbs_set(_FUNC_WIKI_STRING_A,func_mid(_FUNC_WIKI_STRING_A, 2 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,85,"wiki_methods.bas");}while(r); -ww_continue_6388:; -} -ww_exit_6388:; -S_58164:; -if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_WIKI_STRING_A->len> 0 ))&(qbs_notequal(qbs_right(_FUNC_WIKI_STRING_A, 1 ),func_chr( 10 )))))||new_error){ -if(qbevent){evnt(26070,86,"wiki_methods.bas");if(r)goto S_58164;} -do{ -qbs_set(_FUNC_WIKI_STRING_A,qbs_add(_FUNC_WIKI_STRING_A,func_chr( 10 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,86,"wiki_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_WIKI_STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("{{QBDLDATE:",11),func_date()),qbs_new_txt_len("}}",2)),func_chr( 10 )),qbs_new_txt_len("{{QBDLTIME:",11)),func_time()),qbs_new_txt_len("}}",2)),func_chr( 10 )),_FUNC_WIKI_STRING_A)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,88,"wiki_methods.bas");}while(r); -do{ -*_FUNC_WIKI_LONG_FH=func_freefile(); -if(!qbevent)break;evnt(26070,90,"wiki_methods.bas");}while(r); -do{ -sub_open(_FUNC_WIKI_STRING_OUTPUTFILE, 4 ,NULL,NULL,*_FUNC_WIKI_LONG_FH,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,91,"wiki_methods.bas");}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*_FUNC_WIKI_LONG_FH; -if (new_error) goto skip6390; -sub_file_print(tmp_fileno,_FUNC_WIKI_STRING_A, 0, 0, 0); -if (new_error) goto skip6390; -skip6390: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(26070,92,"wiki_methods.bas");}while(r); -do{ -sub_close(*_FUNC_WIKI_LONG_FH,1); -if(!qbevent)break;evnt(26070,93,"wiki_methods.bas");}while(r); -}else{ -S_58173:; -if ((qbs_cleanup(qbs_tmp_base,func__fileexists(_FUNC_WIKI_STRING_OUTPUTFILE)))||new_error){ -if(qbevent){evnt(26070,96,"wiki_methods.bas");if(r)goto S_58173;} -do{ -sub_kill(_FUNC_WIKI_STRING_OUTPUTFILE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,97,"wiki_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_WIKI_STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(func_chr( 10 ),qbs_new_txt_len("{{PageInternalError}}",21)),func_chr( 10 )),qbs_new_txt_len("* The requested page is not yet available in the Wiki.",54)),func_chr( 10 )),qbs_new_txt_len("** If this is a new keyword, which was recently added to the language, then ",76)),qbs_new_txt_len("please allow some time for the developers to add it and recheck later.",70)),func_chr( 10 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,103,"wiki_methods.bas");}while(r); -} -} -}else{ -do{ -qbs_set(_FUNC_WIKI_STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(func_chr( 10 ),qbs_new_txt_len("{{PageInternalError}}",21)),func_chr( 10 )),qbs_new_txt_len("* For some unknown reason the download of the requested page failed.",68)),func_chr( 10 )),qbs_new_txt_len("** You may try ''Update Current Page'' from the ''Help'' menu.",62)),func_chr( 10 )),qbs_new_txt_len(";Note:This may also just be a temporary server issue. If the problem persists ",78)),qbs_new_txt_len("after waiting some time, then please feel free to leave us a message.",69)),func_chr( 10 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,112,"wiki_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_WIKI_STRING_WIKI,_FUNC_WIKI_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,115,"wiki_methods.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free281.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_WIKI_STRING_WIKI);return _FUNC_WIKI_STRING_WIKI; -} -void SUB_HELP_ADDTXT(qbs*_SUB_HELP_ADDTXT_STRING_T,int32*_SUB_HELP_ADDTXT_LONG_COL,int32*_SUB_HELP_ADDTXT_LONG_LINK){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data282.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -S_58183:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_HELP_ADDTXT_STRING_T,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,119,"wiki_methods.bas");if(r)goto S_58183;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,119,"wiki_methods.bas");}while(r); -} -S_58186:; -if ((-(*__LONG_HELP_CHKBLANK!= 0 ))||new_error){ -if(qbevent){evnt(26070,120,"wiki_methods.bas");if(r)goto S_58186;} -do{ -SUB_HELP_CHECKBLANKLINE(); -if(!qbevent)break;evnt(26070,120,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_CHKBLANK= 0 ; -if(!qbevent)break;evnt(26070,120,"wiki_methods.bas");}while(r); -} -S_58190:; -fornext_value6393= 1 ; -fornext_finalvalue6393=_SUB_HELP_ADDTXT_STRING_T->len; -fornext_step6393= 1 ; -if (fornext_step6393<0) fornext_step_negative6393=1; else fornext_step_negative6393=0; -if (new_error) goto fornext_error6393; -goto fornext_entrylabel6393; -while(1){ -fornext_value6393=fornext_step6393+(*_SUB_HELP_ADDTXT_LONG_I); -fornext_entrylabel6393: -*_SUB_HELP_ADDTXT_LONG_I=fornext_value6393; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative6393){ -if (fornext_value6393fornext_finalvalue6393) break; -} -fornext_error6393:; -if(qbevent){evnt(26070,122,"wiki_methods.bas");if(r)goto S_58190;} -do{ -*_SUB_HELP_ADDTXT_LONG_C=qbs_asc(_SUB_HELP_ADDTXT_STRING_T,*_SUB_HELP_ADDTXT_LONG_I); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,123,"wiki_methods.bas");}while(r); -S_58192:; -if (((((-(*__LONG_HELP_LOCKPARSE== -1 ))|(-(*__LONG_HELP_LOCKPARSE== 0 ))))&(-(*__LONG_HELP_LOCKWRAP== 0 )))||new_error){ -if(qbevent){evnt(26070,125,"wiki_methods.bas");if(r)goto S_58192;} -S_58193:; -if ((-(*_SUB_HELP_ADDTXT_LONG_C== 32 ))||new_error){ -if(qbevent){evnt(26070,127,"wiki_methods.bas");if(r)goto S_58193;} -S_58194:; -if ((-(*__LONG_HELP_POS==*__LONG_HELP_WW))||new_error){ -if(qbevent){evnt(26070,128,"wiki_methods.bas");if(r)goto S_58194;} -do{ -SUB_HELP_NEWLINE(); -if(!qbevent)break;evnt(26070,128,"wiki_methods.bas");}while(r); -do{ -goto fornext_continue_6392; -if(!qbevent)break;evnt(26070,128,"wiki_methods.bas");}while(r); -} -do{ -*__LONG_HELP_TXT_LEN=*__LONG_HELP_TXT_LEN+ 1 ; -if(!qbevent)break;evnt(26070,130,"wiki_methods.bas");}while(r); -do{ -tqbs=__STRING_HELP_TXT; if (!new_error){ -tmp_fileno=*__LONG_HELP_TXT_LEN; if (!new_error){ -tmp_long= 32 ; if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(26070,130,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_TXT_LEN=*__LONG_HELP_TXT_LEN+ 1 ; -if(!qbevent)break;evnt(26070,131,"wiki_methods.bas");}while(r); -do{ -tqbs=__STRING_HELP_TXT; if (!new_error){ -tmp_fileno=*__LONG_HELP_TXT_LEN; if (!new_error){ -tmp_long=*_SUB_HELP_ADDTXT_LONG_COL+(*__LONG_HELP_BG_COL* 16 ); if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(26070,131,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_TXT_LEN=*__LONG_HELP_TXT_LEN+ 1 ; -if(!qbevent)break;evnt(26070,132,"wiki_methods.bas");}while(r); -do{ -tqbs=__STRING_HELP_TXT; if (!new_error){ -tmp_fileno=*__LONG_HELP_TXT_LEN; if (!new_error){ -tmp_long=*_SUB_HELP_ADDTXT_LONG_LINK& 255 ; if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(26070,132,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_TXT_LEN=*__LONG_HELP_TXT_LEN+ 1 ; -if(!qbevent)break;evnt(26070,133,"wiki_methods.bas");}while(r); -do{ -tqbs=__STRING_HELP_TXT; if (!new_error){ -tmp_fileno=*__LONG_HELP_TXT_LEN; if (!new_error){ -tmp_long=*_SUB_HELP_ADDTXT_LONG_LINK/ 256 ; if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(26070,133,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_WRAP_POS=*__LONG_HELP_TXT_LEN; -if(!qbevent)break;evnt(26070,135,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_POS=*__LONG_HELP_POS+ 1 ; -if(!qbevent)break;evnt(26070,136,"wiki_methods.bas");}while(r); -do{ -goto fornext_continue_6392; -if(!qbevent)break;evnt(26070,136,"wiki_methods.bas");}while(r); -} -S_58210:; -if ((-(*__LONG_HELP_POS>*__LONG_HELP_WW))||new_error){ -if(qbevent){evnt(26070,139,"wiki_methods.bas");if(r)goto S_58210;} -S_58211:; -if ((*__LONG_HELP_WRAP_POS)||new_error){ -if(qbevent){evnt(26070,140,"wiki_methods.bas");if(r)goto S_58211;} -do{ -qbs_set(_SUB_HELP_ADDTXT_STRING_B,func_mid(__STRING_HELP_TXT,*__LONG_HELP_WRAP_POS+ 1 ,*__LONG_HELP_TXT_LEN-*__LONG_HELP_WRAP_POS,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,143,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_TXT_LEN=*__LONG_HELP_WRAP_POS; -if(!qbevent)break;evnt(26070,145,"wiki_methods.bas");}while(r); -do{ -SUB_HELP_NEWLINE(); -if(!qbevent)break;evnt(26070,147,"wiki_methods.bas");}while(r); -do{ -sub_mid(__STRING_HELP_TXT,*__LONG_HELP_TXT_LEN+ 1 ,_SUB_HELP_ADDTXT_STRING_B->len,_SUB_HELP_ADDTXT_STRING_B,1); -if(!qbevent)break;evnt(26070,149,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_TXT_LEN=*__LONG_HELP_TXT_LEN+_SUB_HELP_ADDTXT_STRING_B->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,149,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_POS=*__LONG_HELP_POS+(_SUB_HELP_ADDTXT_STRING_B->len/ 4 ); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,151,"wiki_methods.bas");}while(r); -} -} -} -do{ -*__LONG_HELP_TXT_LEN=*__LONG_HELP_TXT_LEN+ 1 ; -if(!qbevent)break;evnt(26070,157,"wiki_methods.bas");}while(r); -do{ -tqbs=__STRING_HELP_TXT; if (!new_error){ -tmp_fileno=*__LONG_HELP_TXT_LEN; if (!new_error){ -tmp_long=*_SUB_HELP_ADDTXT_LONG_C; if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(26070,157,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_TXT_LEN=*__LONG_HELP_TXT_LEN+ 1 ; -if(!qbevent)break;evnt(26070,158,"wiki_methods.bas");}while(r); -do{ -tqbs=__STRING_HELP_TXT; if (!new_error){ -tmp_fileno=*__LONG_HELP_TXT_LEN; if (!new_error){ -tmp_long=*_SUB_HELP_ADDTXT_LONG_COL+(*__LONG_HELP_BG_COL* 16 ); if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(26070,158,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_TXT_LEN=*__LONG_HELP_TXT_LEN+ 1 ; -if(!qbevent)break;evnt(26070,159,"wiki_methods.bas");}while(r); -do{ -tqbs=__STRING_HELP_TXT; if (!new_error){ -tmp_fileno=*__LONG_HELP_TXT_LEN; if (!new_error){ -tmp_long=*_SUB_HELP_ADDTXT_LONG_LINK& 255 ; if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(26070,159,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_TXT_LEN=*__LONG_HELP_TXT_LEN+ 1 ; -if(!qbevent)break;evnt(26070,160,"wiki_methods.bas");}while(r); -do{ -tqbs=__STRING_HELP_TXT; if (!new_error){ -tmp_fileno=*__LONG_HELP_TXT_LEN; if (!new_error){ -tmp_long=*_SUB_HELP_ADDTXT_LONG_LINK/ 256 ; if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(26070,160,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_POS=*__LONG_HELP_POS+ 1 ; -if(!qbevent)break;evnt(26070,162,"wiki_methods.bas");}while(r); -fornext_continue_6392:; -} -fornext_exit_6392:; -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free282.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -void SUB_HELP_NEWLINE(){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data283.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -S_58231:; -if ((-(*__LONG_HELP_POS>*__LONG_HELP_W))||new_error){ -if(qbevent){evnt(26070,167,"wiki_methods.bas");if(r)goto S_58231;} -do{ -*__LONG_HELP_W=*__LONG_HELP_POS; -if(!qbevent)break;evnt(26070,167,"wiki_methods.bas");}while(r); -} -do{ -*__LONG_HELP_TXT_LEN=*__LONG_HELP_TXT_LEN+ 1 ; -if(!qbevent)break;evnt(26070,169,"wiki_methods.bas");}while(r); -do{ -tqbs=__STRING_HELP_TXT; if (!new_error){ -tmp_fileno=*__LONG_HELP_TXT_LEN; if (!new_error){ -tmp_long= 13 ; if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(26070,169,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_TXT_LEN=*__LONG_HELP_TXT_LEN+ 1 ; -if(!qbevent)break;evnt(26070,170,"wiki_methods.bas");}while(r); -do{ -tqbs=__STRING_HELP_TXT; if (!new_error){ -tmp_fileno=*__LONG_HELP_TXT_LEN; if (!new_error){ -tmp_long= 128 +(*__LONG_HELP_BG_COL* 16 ); if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(26070,170,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_TXT_LEN=*__LONG_HELP_TXT_LEN+ 1 ; -if(!qbevent)break;evnt(26070,171,"wiki_methods.bas");}while(r); -do{ -tqbs=__STRING_HELP_TXT; if (!new_error){ -tmp_fileno=*__LONG_HELP_TXT_LEN; if (!new_error){ -tmp_long= 0 ; if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(26070,171,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_TXT_LEN=*__LONG_HELP_TXT_LEN+ 1 ; -if(!qbevent)break;evnt(26070,172,"wiki_methods.bas");}while(r); -do{ -tqbs=__STRING_HELP_TXT; if (!new_error){ -tmp_fileno=*__LONG_HELP_TXT_LEN; if (!new_error){ -tmp_long= 0 ; if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(26070,172,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_H=*__LONG_HELP_H+ 1 ; -if(!qbevent)break;evnt(26070,174,"wiki_methods.bas");}while(r); -do{ -qbs_set(__STRING_HELP_LINE,qbs_add(__STRING_HELP_LINE,l2string(*__LONG_HELP_TXT_LEN+ 1 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,175,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_WRAP_POS= 0 ; -if(!qbevent)break;evnt(26070,176,"wiki_methods.bas");}while(r); -S_58245:; -if ((-(*__LONG_HELP_UNDERLINE> 0 ))||new_error){ -if(qbevent){evnt(26070,178,"wiki_methods.bas");if(r)goto S_58245;} -do{ -*_SUB_HELP_NEWLINE_LONG_W=*__LONG_HELP_POS; -if(!qbevent)break;evnt(26070,179,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_POS= 1 ; -if(!qbevent)break;evnt(26070,180,"wiki_methods.bas");}while(r); -S_58248:; -if ((-(*__LONG_HELP_UNDERLINE== 2 ))||new_error){ -if(qbevent){evnt(26070,181,"wiki_methods.bas");if(r)goto S_58248;} -do{ -SUB_HELP_ADDTXT(func_string(*_SUB_HELP_NEWLINE_LONG_W- 1 , 205 ),__LONG_HELP_COL_SECTION,&(pass6398= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,182,"wiki_methods.bas");}while(r); -}else{ -do{ -SUB_HELP_ADDTXT(func_string(*_SUB_HELP_NEWLINE_LONG_W- 1 , 196 ),__LONG_HELP_COL_SECTION,&(pass6399= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,184,"wiki_methods.bas");}while(r); -} -do{ -*__LONG_HELP_UNDERLINE= 0 ; -if(!qbevent)break;evnt(26070,186,"wiki_methods.bas");}while(r); -do{ -SUB_HELP_NEWLINE(); -if(!qbevent)break;evnt(26070,187,"wiki_methods.bas");}while(r); -} -do{ -*__LONG_HELP_POS= 1 ; -if(!qbevent)break;evnt(26070,189,"wiki_methods.bas");}while(r); -S_58257:; -if ((-(*__LONG_HELP_CHKBLANK== 0 ))||new_error){ -if(qbevent){evnt(26070,191,"wiki_methods.bas");if(r)goto S_58257;} -S_58258:; -if ((-(*__LONG_HELP_CENTER> 0 ))||new_error){ -if(qbevent){evnt(26070,192,"wiki_methods.bas");if(r)goto S_58258;} -do{ -qbs_set(__STRING_HELP_LINDENT,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,193,"wiki_methods.bas");}while(r); -do{ -SUB_HELP_ADDTXT(func_space(qbs_asc(__STRING_HELP_CINDENT, 1 )),&(pass6400=FUNC_HELP_COL()),&(pass6401= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,194,"wiki_methods.bas");}while(r); -do{ -qbs_set(__STRING_HELP_CINDENT,func_mid(__STRING_HELP_CINDENT, 2 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,195,"wiki_methods.bas");}while(r); -S_58262:; -}else{ -if (qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_HELP_LINDENT,qbs_new_txt_len("",0)))){ -if(qbevent){evnt(26070,196,"wiki_methods.bas");if(r)goto S_58262;} -do{ -SUB_HELP_ADDTXT(__STRING_HELP_LINDENT,&(pass6402= 11 ),&(pass6403= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,197,"wiki_methods.bas");}while(r); -} -} -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free283.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -void SUB_HELP_CHECKFINISHLINE(){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data284.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -S_58266:; -if ((-(*__LONG_HELP_TXT_LEN>= 4 ))||new_error){ -if(qbevent){evnt(26070,203,"wiki_methods.bas");if(r)goto S_58266;} -S_58267:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_HELP_TXT,*__LONG_HELP_TXT_LEN- 2 )< 128 )))||new_error){ -if(qbevent){evnt(26070,204,"wiki_methods.bas");if(r)goto S_58267;} -do{ -SUB_HELP_NEWLINE(); -if(!qbevent)break;evnt(26070,204,"wiki_methods.bas");}while(r); -} -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free284.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -void SUB_HELP_CHECKBLANKLINE(){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data285.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -S_58271:; -if ((-(*__LONG_HELP_TXT_LEN>= 8 ))||new_error){ -if(qbevent){evnt(26070,209,"wiki_methods.bas");if(r)goto S_58271;} -S_58272:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_HELP_TXT,*__LONG_HELP_TXT_LEN- 2 )< 128 )))||new_error){ -if(qbevent){evnt(26070,210,"wiki_methods.bas");if(r)goto S_58272;} -do{ -SUB_HELP_NEWLINE(); -if(!qbevent)break;evnt(26070,210,"wiki_methods.bas");}while(r); -} -S_58275:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_HELP_TXT,*__LONG_HELP_TXT_LEN- 6 )< 128 )))||new_error){ -if(qbevent){evnt(26070,211,"wiki_methods.bas");if(r)goto S_58275;} -do{ -SUB_HELP_NEWLINE(); -if(!qbevent)break;evnt(26070,211,"wiki_methods.bas");}while(r); -} -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free285.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -void SUB_HELP_CHECKREMOVEBLANKLINE(){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data286.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -S_58279:; -if ((-(*__LONG_HELP_TXT_LEN>= 8 ))||new_error){ -if(qbevent){evnt(26070,216,"wiki_methods.bas");if(r)goto S_58279;} -S_58280:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_HELP_TXT,*__LONG_HELP_TXT_LEN- 2 )> 127 )))||new_error){ -if(qbevent){evnt(26070,217,"wiki_methods.bas");if(r)goto S_58280;} -do{ -*__LONG_HELP_TXT_LEN=*__LONG_HELP_TXT_LEN- 4 ; -if(!qbevent)break;evnt(26070,218,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_H=*__LONG_HELP_H- 1 ; -if(!qbevent)break;evnt(26070,219,"wiki_methods.bas");}while(r); -do{ -qbs_set(__STRING_HELP_LINE,qbs_left(__STRING_HELP_LINE,__STRING_HELP_LINE->len- 4 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,220,"wiki_methods.bas");}while(r); -} -S_58285:; -fornext_value6406=*__LONG_HELP_TXT_LEN- 3 ; -fornext_finalvalue6406= 1 ; -fornext_step6406= -4 ; -if (fornext_step6406<0) fornext_step_negative6406=1; else fornext_step_negative6406=0; -if (new_error) goto fornext_error6406; -goto fornext_entrylabel6406; -while(1){ -fornext_value6406=fornext_step6406+(*_SUB_HELP_CHECKREMOVEBLANKLINE_LONG_I); -fornext_entrylabel6406: -*_SUB_HELP_CHECKREMOVEBLANKLINE_LONG_I=fornext_value6406; -if (fornext_step_negative6406){ -if (fornext_value6406fornext_finalvalue6406) break; -} -fornext_error6406:; -if(qbevent){evnt(26070,222,"wiki_methods.bas");if(r)goto S_58285;} -S_58286:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_HELP_TXT,*_SUB_HELP_CHECKREMOVEBLANKLINE_LONG_I)!= 32 )))||new_error){ -if(qbevent){evnt(26070,223,"wiki_methods.bas");if(r)goto S_58286;} -do{ -*__LONG_HELP_TXT_LEN=*_SUB_HELP_CHECKREMOVEBLANKLINE_LONG_I+ 3 ; -if(!qbevent)break;evnt(26070,224,"wiki_methods.bas");}while(r); -do{ -goto fornext_exit_6405; -if(!qbevent)break;evnt(26070,224,"wiki_methods.bas");}while(r); -} -fornext_continue_6405:; -} -fornext_exit_6405:; -S_58291:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_HELP_TXT,*__LONG_HELP_TXT_LEN- 2 )< 128 )))||new_error){ -if(qbevent){evnt(26070,227,"wiki_methods.bas");if(r)goto S_58291;} -do{ -SUB_HELP_NEWLINE(); -if(!qbevent)break;evnt(26070,227,"wiki_methods.bas");}while(r); -} -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free286.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -int32 FUNC_HELP_COL(){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data287.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -*_FUNC_HELP_COL_LONG_COL=*__LONG_HELP_COL_NORMAL; -if(!qbevent)break;evnt(26070,232,"wiki_methods.bas");}while(r); -S_58296:; -if ((*__LONG_HELP_ITALIC)||new_error){ -if(qbevent){evnt(26070,233,"wiki_methods.bas");if(r)goto S_58296;} -do{ -*_FUNC_HELP_COL_LONG_COL=*__LONG_HELP_COL_ITALIC; -if(!qbevent)break;evnt(26070,233,"wiki_methods.bas");}while(r); -} -S_58299:; -if ((*__LONG_HELP_BOLD)||new_error){ -if(qbevent){evnt(26070,234,"wiki_methods.bas");if(r)goto S_58299;} -do{ -*_FUNC_HELP_COL_LONG_COL=*__LONG_HELP_COL_BOLD; -if(!qbevent)break;evnt(26070,234,"wiki_methods.bas");}while(r); -} -S_58302:; -if ((*__LONG_HELP_HEADING)||new_error){ -if(qbevent){evnt(26070,235,"wiki_methods.bas");if(r)goto S_58302;} -do{ -*_FUNC_HELP_COL_LONG_COL=*__LONG_HELP_COL_SECTION; -if(!qbevent)break;evnt(26070,235,"wiki_methods.bas");}while(r); -} -S_58305:; -if ((*__LONG_HELP_LINKTXT)||new_error){ -if(qbevent){evnt(26070,236,"wiki_methods.bas");if(r)goto S_58305;} -S_58306:; -if ((-(*__LONG_HELP_LOCKPARSE== 0 ))||new_error){ -if(qbevent){evnt(26070,238,"wiki_methods.bas");if(r)goto S_58306;} -do{ -*_FUNC_HELP_COL_LONG_COL=*__LONG_HELP_COL_LINK; -if(!qbevent)break;evnt(26070,238,"wiki_methods.bas");}while(r); -}else{ -do{ -*_FUNC_HELP_COL_LONG_COL=*__LONG_HELP_COL_ITALIC; -if(!qbevent)break;evnt(26070,238,"wiki_methods.bas");}while(r); -} -} -do{ -*_FUNC_HELP_COL_LONG_HELP_COL=*_FUNC_HELP_COL_LONG_COL; -if(!qbevent)break;evnt(26070,240,"wiki_methods.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free287.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -return *_FUNC_HELP_COL_LONG_HELP_COL; -} -void SUB_WIKIPARSE(qbs*_SUB_WIKIPARSE_STRING_A){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data288.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -*__LONG_HELP_H= 0 ; -if(!qbevent)break;evnt(26070,246,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_W= 0 ; -if(!qbevent)break;evnt(26070,246,"wiki_methods.bas");}while(r); -do{ -qbs_set(__STRING_HELP_LINE,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,247,"wiki_methods.bas");}while(r); -do{ -qbs_set(__STRING_HELP_TXT,func_space( 1000000 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,247,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_TXT_LEN= 0 ; -if(!qbevent)break;evnt(26070,247,"wiki_methods.bas");}while(r); -do{ -qbs_set(__STRING_HELP_LINK,qbs_add(qbs_new_txt_len("SECT:dummylink",14),__STRING_HELP_LINK_SEP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,248,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_LINKN= 1 ; -if(!qbevent)break;evnt(26070,248,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_POS= 1 ; -if(!qbevent)break;evnt(26070,250,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_WRAP_POS= 0 ; -if(!qbevent)break;evnt(26070,250,"wiki_methods.bas");}while(r); -do{ -qbs_set(__STRING_HELP_LINE,l2string( 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,251,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_LOCKWRAP= 0 ; -if(!qbevent)break;evnt(26070,253,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_LOCKPARSE= 0 ; -if(!qbevent)break;evnt(26070,262,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_BOLD= 0 ; -if(!qbevent)break;evnt(26070,263,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_ITALIC= 0 ; -if(!qbevent)break;evnt(26070,263,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_LINKTXT= 0 ; -if(!qbevent)break;evnt(26070,263,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_HEADING= 0 ; -if(!qbevent)break;evnt(26070,263,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_UNDERLINE= 0 ; -if(!qbevent)break;evnt(26070,264,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_BG_COL= 0 ; -if(!qbevent)break;evnt(26070,265,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_CENTER= 0 ; -if(!qbevent)break;evnt(26070,266,"wiki_methods.bas");}while(r); -do{ -qbs_set(__STRING_HELP_CINDENT,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,266,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_DLIST= 0 ; -if(!qbevent)break;evnt(26070,267,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_CHKBLANK= 0 ; -if(!qbevent)break;evnt(26070,267,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_LINK= 0 ; -if(!qbevent)break;evnt(26070,269,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_ELINK= 0 ; -if(!qbevent)break;evnt(26070,269,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_UE= 0 ; -if(!qbevent)break;evnt(26070,269,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_UU= 0 ; -if(!qbevent)break;evnt(26070,269,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_CB= 0 ; -if(!qbevent)break;evnt(26070,269,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_NL= 1 ; -if(!qbevent)break;evnt(26070,269,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_HL= 0 ; -if(!qbevent)break;evnt(26070,269,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_AH= 0 ; -if(!qbevent)break;evnt(26070,269,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_DL= 0 ; -if(!qbevent)break;evnt(26070,269,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_COL=FUNC_HELP_COL(); -if(!qbevent)break;evnt(26070,271,"wiki_methods.bas");}while(r); -do{ -qbs_set(_SUB_WIKIPARSE_STRING_D,qbs_new_txt_len("Page not yet updated, expect visual glitches.",45)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,296,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_I=func_instr(NULL,_SUB_WIKIPARSE_STRING_A,qbs_new_txt_len("{{QBDLDATE:",11),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,296,"wiki_methods.bas");}while(r); -S_58347:; -if ((-(*_SUB_WIKIPARSE_LONG_I> 0 ))||new_error){ -if(qbevent){evnt(26070,297,"wiki_methods.bas");if(r)goto S_58347;} -do{ -qbs_set(_SUB_WIKIPARSE_STRING_D,qbs_add(qbs_new_txt_len("Last updated: ",14),func_mid(_SUB_WIKIPARSE_STRING_A,*_SUB_WIKIPARSE_LONG_I+ 11 ,func_instr(*_SUB_WIKIPARSE_LONG_I+ 11 ,_SUB_WIKIPARSE_STRING_A,qbs_new_txt_len("}}",2),0|1)-*_SUB_WIKIPARSE_LONG_I- 11 ,0|1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,298,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_I=func_instr(NULL,_SUB_WIKIPARSE_STRING_A,qbs_new_txt_len("{{QBDLTIME:",11),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,299,"wiki_methods.bas");}while(r); -S_58350:; -if ((-(*_SUB_WIKIPARSE_LONG_I> 0 ))||new_error){ -if(qbevent){evnt(26070,300,"wiki_methods.bas");if(r)goto S_58350;} -do{ -qbs_set(_SUB_WIKIPARSE_STRING_D,qbs_add(qbs_add(_SUB_WIKIPARSE_STRING_D,qbs_new_txt_len(", at ",5)),func_mid(_SUB_WIKIPARSE_STRING_A,*_SUB_WIKIPARSE_LONG_I+ 11 ,func_instr(*_SUB_WIKIPARSE_LONG_I+ 11 ,_SUB_WIKIPARSE_STRING_A,qbs_new_txt_len("}}",2),0|1)-*_SUB_WIKIPARSE_LONG_I- 11 ,0|1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,300,"wiki_methods.bas");}while(r); -} -S_58353:; -}else{ -if (qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_SUB_WIKIPARSE_STRING_A,qbs_new_txt_len("{{PageInternalError}}",21),0)> 0 ))){ -if(qbevent){evnt(26070,301,"wiki_methods.bas");if(r)goto S_58353;} -do{ -qbs_set(_SUB_WIKIPARSE_STRING_D,qbs_new_txt_len("Page not found.",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,302,"wiki_methods.bas");}while(r); -} -} -do{ -qbs_set(_SUB_WIKIPARSE_STRING_T,__STRING_HELP_PAGELOADED); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,304,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_I=func_instr(NULL,_SUB_WIKIPARSE_STRING_A,qbs_new_txt_len("{{DISPLAYTITLE:",15),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,304,"wiki_methods.bas");}while(r); -S_58358:; -if ((-(*_SUB_WIKIPARSE_LONG_I> 0 ))||new_error){ -if(qbevent){evnt(26070,305,"wiki_methods.bas");if(r)goto S_58358;} -do{ -qbs_set(_SUB_WIKIPARSE_STRING_T,func_mid(_SUB_WIKIPARSE_STRING_A,*_SUB_WIKIPARSE_LONG_I+ 15 ,func_instr(*_SUB_WIKIPARSE_LONG_I+ 15 ,_SUB_WIKIPARSE_STRING_A,qbs_new_txt_len("}}",2),0|1)-*_SUB_WIKIPARSE_LONG_I- 15 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,305,"wiki_methods.bas");}while(r); -} -S_58361:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_WIKIPARSE_STRING_T, 4 ),qbs_new_txt_len("agp@",4))))||new_error){ -if(qbevent){evnt(26070,306,"wiki_methods.bas");if(r)goto S_58361;} -do{ -qbs_set(_SUB_WIKIPARSE_STRING_D,qbs_new_txt_len("Auto-generated temporary page.",30)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,307,"wiki_methods.bas");}while(r); -do{ -qbs_set(_SUB_WIKIPARSE_STRING_T,func_mid(_SUB_WIKIPARSE_STRING_T, 5 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,308,"wiki_methods.bas");}while(r); -} -do{ -*_SUB_WIKIPARSE_LONG_I=_SUB_WIKIPARSE_STRING_D->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,310,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_II=_SUB_WIKIPARSE_STRING_T->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,310,"wiki_methods.bas");}while(r); -do{ -SUB_HELP_ADDTXT(qbs_add(qbs_add(qbs_new_txt_len(" \332",3),func_string(*_SUB_WIKIPARSE_LONG_II+ 2 ,(qbs_new_txt_len("\304",1)->chr[0]))),qbs_new_txt_len("\277",1)),&(pass6410= 14 ),&(pass6411= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,311,"wiki_methods.bas");}while(r); -do{ -SUB_HELP_NEWLINE(); -if(!qbevent)break;evnt(26070,311,"wiki_methods.bas");}while(r); -do{ -SUB_HELP_ADDTXT(qbs_new_txt_len(" \263 ",4),&(pass6412= 14 ),&(pass6413= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,312,"wiki_methods.bas");}while(r); -do{ -SUB_HELP_ADDTXT(_SUB_WIKIPARSE_STRING_T,&(pass6414= 9 ),&(pass6415= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,312,"wiki_methods.bas");}while(r); -do{ -SUB_HELP_ADDTXT(qbs_new_txt_len(" \263",2),&(pass6416= 14 ),&(pass6417= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,312,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_I=*__LONG_HELP_WW-*_SUB_WIKIPARSE_LONG_I- 2 -*__LONG_HELP_POS; -if(!qbevent)break;evnt(26070,313,"wiki_methods.bas");}while(r); -S_58373:; -if ((-(*_SUB_WIKIPARSE_LONG_I< 2 ))||new_error){ -if(qbevent){evnt(26070,313,"wiki_methods.bas");if(r)goto S_58373;} -do{ -*_SUB_WIKIPARSE_LONG_I= 2 ; -if(!qbevent)break;evnt(26070,313,"wiki_methods.bas");}while(r); -} -do{ -SUB_HELP_ADDTXT(qbs_add(func_space(*_SUB_WIKIPARSE_LONG_I),func_chr( 4 )),&(pass6418= 14 ),&(pass6419= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,314,"wiki_methods.bas");}while(r); -S_58377:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_WIKIPARSE_STRING_D, 4 ),qbs_new_txt_len("Page",4))))||new_error){ -if(qbevent){evnt(26070,315,"wiki_methods.bas");if(r)goto S_58377;} -do{ -*_SUB_WIKIPARSE_LONG_I= 8 ; -if(!qbevent)break;evnt(26070,315,"wiki_methods.bas");}while(r); -}else{ -do{ -*_SUB_WIKIPARSE_LONG_I= 7 ; -if(!qbevent)break;evnt(26070,315,"wiki_methods.bas");}while(r); -} -do{ -*__LONG_HELP_LOCKWRAP= 1 ; -if(!qbevent)break;evnt(26070,316,"wiki_methods.bas");}while(r); -do{ -SUB_HELP_ADDTXT(qbs_add(qbs_new_txt_len(" ",1),_SUB_WIKIPARSE_STRING_D),_SUB_WIKIPARSE_LONG_I,&(pass6420= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,316,"wiki_methods.bas");}while(r); -do{ -SUB_HELP_NEWLINE(); -if(!qbevent)break;evnt(26070,316,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_LOCKWRAP= 0 ; -if(!qbevent)break;evnt(26070,316,"wiki_methods.bas");}while(r); -do{ -SUB_HELP_ADDTXT(qbs_new_txt_len("\304\304\301",3),&(pass6421= 14 ),&(pass6422= 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,317,"wiki_methods.bas");}while(r); -do{ -SUB_HELP_ADDTXT(qbs_add(qbs_add(func_string(*_SUB_WIKIPARSE_LONG_II+ 2 ,(qbs_new_txt_len("\304",1)->chr[0])),qbs_new_txt_len("\301",1)),func_string(*__LONG_HELP_WW-*_SUB_WIKIPARSE_LONG_II- 6 ,(qbs_new_txt_len("\304",1)->chr[0]))),&(pass6423= 14 ),&(pass6424= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,318,"wiki_methods.bas");}while(r); -do{ -SUB_HELP_NEWLINE(); -if(!qbevent)break;evnt(26070,318,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_PREFETCH= 20 ; -if(!qbevent)break;evnt(26070,321,"wiki_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26070,19722,"ide_methods.bas");}while(r); +} +do{ +tmp_long=array_check((*__INTEGER_TOTALCOLORSCHEMES)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[tmp_long])),_SUB_LOADCOLORSCHEMES_STRING_VALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19724,"ide_methods.bas");}while(r); +do{ +*_SUB_LOADCOLORSCHEMES_LONG_FOUNDPIPE=func_instr(NULL,_SUB_LOADCOLORSCHEMES_STRING_VALUE,qbs_new_txt_len("|",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19725,"ide_methods.bas");}while(r); +S_57561:; +if ((-(*_SUB_LOADCOLORSCHEMES_LONG_FOUNDPIPE> 0 ))||new_error){ +if(qbevent){evnt(26070,19726,"ide_methods.bas");if(r)goto S_57561;} +S_57562:; +if ((qbs_cleanup(qbs_tmp_base,-(((int32)(func_mid(_SUB_LOADCOLORSCHEMES_STRING_VALUE,*_SUB_LOADCOLORSCHEMES_LONG_FOUNDPIPE+ 1 ,NULL,0))->len)== 81 )))||new_error){ +if(qbevent){evnt(26070,19727,"ide_methods.bas");if(r)goto S_57562;} +do{ +*__INTEGER_LASTVALIDCOLORSCHEME=*__INTEGER_TOTALCOLORSCHEMES; +if(!qbevent)break;evnt(26070,19729,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_LOADCOLORSCHEMES_STRING_VALUE,qbs_add(_SUB_LOADCOLORSCHEMES_STRING_VALUE,qbs_new_txt_len("170170170",9))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19730,"ide_methods.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_COLORSCHEMESSECTION,qbs_add(qbs_add(qbs_new_txt_len("Scheme",6),FUNC_STR2(_SUB_LOADCOLORSCHEMES_LONG_I)),qbs_new_txt_len("$",1)),_SUB_LOADCOLORSCHEMES_STRING_VALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19731,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*__INTEGER_TOTALCOLORSCHEMES)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[tmp_long])),_SUB_LOADCOLORSCHEMES_STRING_VALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19732,"ide_methods.bas");}while(r); +S_57567:; +}else{ +if (qbs_cleanup(qbs_tmp_base,-(((int32)(func_mid(_SUB_LOADCOLORSCHEMES_STRING_VALUE,*_SUB_LOADCOLORSCHEMES_LONG_FOUNDPIPE+ 1 ,NULL,0))->len)== 90 ))){ +if(qbevent){evnt(26070,19733,"ide_methods.bas");if(r)goto S_57567;} +do{ +*__INTEGER_LASTVALIDCOLORSCHEME=*__INTEGER_TOTALCOLORSCHEMES; +if(!qbevent)break;evnt(26070,19735,"ide_methods.bas");}while(r); +S_57569:; +}else{ +if (qbs_cleanup(qbs_tmp_base,-(((int32)(func_mid(_SUB_LOADCOLORSCHEMES_STRING_VALUE,*_SUB_LOADCOLORSCHEMES_LONG_FOUNDPIPE+ 1 ,NULL,0))->len)== 54 ))){ +if(qbevent){evnt(26070,19736,"ide_methods.bas");if(r)goto S_57569;} +do{ +qbs_set(_SUB_LOADCOLORSCHEMES_STRING_TEMP,qbs_left(_SUB_LOADCOLORSCHEMES_STRING_VALUE,*_SUB_LOADCOLORSCHEMES_LONG_FOUNDPIPE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19739,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_LOADCOLORSCHEMES_STRING_TEMP,qbs_add(qbs_add(_SUB_LOADCOLORSCHEMES_STRING_TEMP,func_mid(_SUB_LOADCOLORSCHEMES_STRING_VALUE,*_SUB_LOADCOLORSCHEMES_LONG_FOUNDPIPE+ 1 , 9 ,0|1)),qbs_new_txt_len("069147216245128177",18))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19740,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_LOADCOLORSCHEMES_STRING_TEMP,qbs_add(qbs_add(_SUB_LOADCOLORSCHEMES_STRING_TEMP,func_mid(_SUB_LOADCOLORSCHEMES_STRING_VALUE,*_SUB_LOADCOLORSCHEMES_LONG_FOUNDPIPE+ 10 ,NULL,0)),qbs_new_txt_len("000147177170170170",18))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19741,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check((*__INTEGER_TOTALCOLORSCHEMES)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[tmp_long])),_SUB_LOADCOLORSCHEMES_STRING_TEMP); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19742,"ide_methods.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_COLORSCHEMESSECTION,qbs_add(qbs_add(qbs_new_txt_len("Scheme",6),FUNC_STR2(_SUB_LOADCOLORSCHEMES_LONG_I)),qbs_new_txt_len("$",1)),_SUB_LOADCOLORSCHEMES_STRING_TEMP); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19743,"ide_methods.bas");}while(r); +do{ +*__INTEGER_LASTVALIDCOLORSCHEME=*__INTEGER_TOTALCOLORSCHEMES; +if(!qbevent)break;evnt(26070,19744,"ide_methods.bas");}while(r); +}else{ +do{ +goto LABEL_DISCARDINVALID; +if(!qbevent)break;evnt(26070,19746,"ide_methods.bas");}while(r); +} +} +} +}else{ +LABEL_DISCARDINVALID:; +if(qbevent){evnt(26070,19749,"ide_methods.bas");r=0;} +do{ +tmp_long=array_check((*__INTEGER_TOTALCOLORSCHEMES)-__ARRAY_STRING_COLORSCHEMES[4],__ARRAY_STRING_COLORSCHEMES[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_COLORSCHEMES[0]))[tmp_long])),qbs_new_txt_len("0",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19750,"ide_methods.bas");}while(r); +} +}else{ +do{ +goto dl_exit_6313; +if(!qbevent)break;evnt(26070,19754,"ide_methods.bas");}while(r); +} +dl_continue_6313:; +}while(1); +dl_exit_6313:; +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free268.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +int16 FUNC_BINARYFORMATCHECK(qbs*_FUNC_BINARYFORMATCHECK_STRING_PATHTOCHECK,qbs*_FUNC_BINARYFORMATCHECK_STRING_PATHSEPTOCHECK,qbs*_FUNC_BINARYFORMATCHECK_STRING_FILETOCHECK){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data269.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +qbs_set(__STRING_FILE,qbs_add(qbs_add(_FUNC_BINARYFORMATCHECK_STRING_PATHTOCHECK,_FUNC_BINARYFORMATCHECK_STRING_PATHSEPTOCHECK),_FUNC_BINARYFORMATCHECK_STRING_FILETOCHECK)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19762,"ide_methods.bas");}while(r); +do{ +*_FUNC_BINARYFORMATCHECK_LONG_FH=func_freefile(); +if(!qbevent)break;evnt(26070,19764,"ide_methods.bas");}while(r); +do{ +sub_open(__STRING_FILE, 2 ,NULL,NULL,*_FUNC_BINARYFORMATCHECK_LONG_FH,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19765,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_BINARYFORMATCHECK_STRING_A,func_space(func_lof(*_FUNC_BINARYFORMATCHECK_LONG_FH))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19766,"ide_methods.bas");}while(r); +do{ +sub_get2(*_FUNC_BINARYFORMATCHECK_LONG_FH, 1 ,_FUNC_BINARYFORMATCHECK_STRING_A,1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19767,"ide_methods.bas");}while(r); +S_57591:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_FUNC_BINARYFORMATCHECK_STRING_A,func_chr( 0 ),0)== 0 )))||new_error){ +if(qbevent){evnt(26070,19768,"ide_methods.bas");if(r)goto S_57591;} +do{ +sub_close(*_FUNC_BINARYFORMATCHECK_LONG_FH,1); +if(!qbevent)break;evnt(26070,19768,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,19768,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_BINARYFORMATCHECK_STRING_A,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19769,"ide_methods.bas");}while(r); +do{ +sub_get(*_FUNC_BINARYFORMATCHECK_LONG_FH, 1 ,byte_element((uint64)_FUNC_BINARYFORMATCHECK_INTEGER_FORMAT,2,byte_element_6317),1); +if(!qbevent)break;evnt(26070,19770,"ide_methods.bas");}while(r); +do{ +sub_get(*_FUNC_BINARYFORMATCHECK_LONG_FH,NULL,byte_element((uint64)_FUNC_BINARYFORMATCHECK_INTEGER_VERSION,2,byte_element_6318),0); +if(!qbevent)break;evnt(26070,19771,"ide_methods.bas");}while(r); +do{ +sub_close(*_FUNC_BINARYFORMATCHECK_LONG_FH,1); +if(!qbevent)break;evnt(26070,19772,"ide_methods.bas");}while(r); +S_57599:; +if(qbevent){evnt(26070,19774,"ide_methods.bas");if(r)goto S_57599;} +S_57600:; +if (((*_FUNC_BINARYFORMATCHECK_INTEGER_FORMAT==( 2300 )))||new_error){ +if(qbevent){evnt(26070,19775,"ide_methods.bas");if(r)goto S_57600;} +do{ +*_FUNC_BINARYFORMATCHECK_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Invalid format",14),qbs_new_txt_len("VBDOS binary format not supported.",34),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19776,"ide_methods.bas");}while(r); +do{ +*_FUNC_BINARYFORMATCHECK_INTEGER_BINARYFORMATCHECK= 1 ; +if(!qbevent)break;evnt(26070,19777,"ide_methods.bas");}while(r); +sc_ec_438_end:; +goto sc_6319_end; +} +S_57603:; +if (((*_FUNC_BINARYFORMATCHECK_INTEGER_FORMAT==( 764 )))||new_error){ +if(qbevent){evnt(26070,19778,"ide_methods.bas");if(r)goto S_57603;} +do{ +*_FUNC_BINARYFORMATCHECK_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Invalid format",14),qbs_new_txt_len("QBX 7.1 binary format not supported.",36),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19779,"ide_methods.bas");}while(r); +do{ +*_FUNC_BINARYFORMATCHECK_INTEGER_BINARYFORMATCHECK= 1 ; +if(!qbevent)break;evnt(26070,19780,"ide_methods.bas");}while(r); +sc_ec_439_end:; +goto sc_6319_end; +} +S_57606:; +if (((*_FUNC_BINARYFORMATCHECK_INTEGER_FORMAT==( 252 )))||new_error){ +if(qbevent){evnt(26070,19781,"ide_methods.bas");if(r)goto S_57606;} +S_57607:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)))||new_error){ +if(qbevent){evnt(26070,19782,"ide_methods.bas");if(r)goto S_57607;} +do{ +qbs_set(_FUNC_BINARYFORMATCHECK_STRING_CONVERTUTILITY,qbs_new_txt_len("internal\\utilities\\QB45BIN.exe",30)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19783,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_BINARYFORMATCHECK_STRING_CONVERTUTILITY,qbs_new_txt_len("./internal/utilities/QB45BIN",28)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19785,"ide_methods.bas");}while(r); +} +S_57612:; +if ((qbs_cleanup(qbs_tmp_base,func__fileexists(_FUNC_BINARYFORMATCHECK_STRING_CONVERTUTILITY)))||new_error){ +if(qbevent){evnt(26070,19787,"ide_methods.bas");if(r)goto S_57612;} +do{ +qbs_set(_FUNC_BINARYFORMATCHECK_STRING_WHAT,FUNC_IDEYESNOBOX(qbs_new_txt_len("Binary format",13),qbs_new_txt_len("QuickBASIC 4.5 binary format detected. Convert to plain text?",61))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19788,"ide_methods.bas");}while(r); +S_57614:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_BINARYFORMATCHECK_STRING_WHAT,qbs_new_txt_len("Y",1))))||new_error){ +if(qbevent){evnt(26070,19789,"ide_methods.bas");if(r)goto S_57614;} +LABEL_CONVERTIT:; +if(qbevent){evnt(26070,19790,"ide_methods.bas");r=0;} +S_57615:; +if ((qbs_cleanup(qbs_tmp_base,FUNC_FILEHASEXTENSION(__STRING_FILE)))||new_error){ +if(qbevent){evnt(26070,19791,"ide_methods.bas");if(r)goto S_57615;} +S_57616:; +fornext_value6321=__STRING_FILE->len; +fornext_finalvalue6321= 1 ; +fornext_step6321= -1 ; +if (fornext_step6321<0) fornext_step_negative6321=1; else fornext_step_negative6321=0; +if (new_error) goto fornext_error6321; +goto fornext_entrylabel6321; +while(1){ +fornext_value6321=fornext_step6321+(*_FUNC_BINARYFORMATCHECK_LONG_I); +fornext_entrylabel6321: +*_FUNC_BINARYFORMATCHECK_LONG_I=fornext_value6321; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative6321){ +if (fornext_value6321fornext_finalvalue6321) break; +} +fornext_error6321:; +if(qbevent){evnt(26070,19792,"ide_methods.bas");if(r)goto S_57616;} +S_57617:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_FILE,*_FUNC_BINARYFORMATCHECK_LONG_I)== 46 )))||new_error){ +if(qbevent){evnt(26070,19793,"ide_methods.bas");if(r)goto S_57617;} +do{ +qbs_set(_FUNC_BINARYFORMATCHECK_STRING_OFILE,qbs_add(qbs_add(qbs_left(__STRING_FILE,*_FUNC_BINARYFORMATCHECK_LONG_I- 1 ),qbs_new_txt_len(" (converted)",12)),func_mid(__STRING_FILE,*_FUNC_BINARYFORMATCHECK_LONG_I,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19795,"ide_methods.bas");}while(r); +do{ +goto fornext_exit_6320; +if(!qbevent)break;evnt(26070,19796,"ide_methods.bas");}while(r); +} +fornext_continue_6320:; +} +fornext_exit_6320:; +}else{ +do{ +qbs_set(_FUNC_BINARYFORMATCHECK_STRING_OFILE,qbs_add(__STRING_FILE,qbs_new_txt_len(" (converted).bas",16))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19800,"ide_methods.bas");}while(r); +} +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,19803,"ide_methods.bas");}while(r); +do{ +*_FUNC_BINARYFORMATCHECK_LONG_DUMMY=FUNC_DARKENFGBG(&(pass6323= 1 )); +if(!qbevent)break;evnt(26070,19804,"ide_methods.bas");}while(r); +do{ +SUB_CLEARSTATUSWINDOW(&(pass6324= 0 )); +if(!qbevent)break;evnt(26070,19805,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 15 , 1 ,NULL,3); +if(!qbevent)break;evnt(26070,19806,"ide_methods.bas");}while(r); +do{ +sub__printstring( 2 ,*__LONG_IDEWY- 3 ,qbs_new_txt_len("Converting... ",23),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19807,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,19808,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_BINARYFORMATCHECK_STRING_CONVERTLINE,qbs_add(qbs_add(qbs_add(qbs_add(_FUNC_BINARYFORMATCHECK_STRING_CONVERTUTILITY,qbs_new_txt_len(" ",1)),FUNC_QUOTEDFILENAME(__STRING_FILE)),qbs_new_txt_len(" -o ",4)),FUNC_QUOTEDFILENAME(_FUNC_BINARYFORMATCHECK_STRING_OFILE))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19810,"ide_methods.bas");}while(r); +do{ +sub_shell2(_FUNC_BINARYFORMATCHECK_STRING_CONVERTLINE,2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19811,"ide_methods.bas");}while(r); +do{ +SUB_CLEARSTATUSWINDOW(&(pass6325= 0 )); +if(!qbevent)break;evnt(26070,19813,"ide_methods.bas");}while(r); +do{ +*_FUNC_BINARYFORMATCHECK_LONG_DUMMY=FUNC_DARKENFGBG(&(pass6326= 0 )); +if(!qbevent)break;evnt(26070,19814,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,19815,"ide_methods.bas");}while(r); +S_57636:; +if ((qbs_cleanup(qbs_tmp_base,-(func__fileexists(_FUNC_BINARYFORMATCHECK_STRING_OFILE)== 0 )))||new_error){ +if(qbevent){evnt(26070,19817,"ide_methods.bas");if(r)goto S_57636;} +do{ +*_FUNC_BINARYFORMATCHECK_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Binary format",13),qbs_new_txt_len("Conversion failed.",18),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19818,"ide_methods.bas");}while(r); +do{ +*_FUNC_BINARYFORMATCHECK_INTEGER_BINARYFORMATCHECK= 2 ; +if(!qbevent)break;evnt(26070,19819,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_BINARYFORMATCHECK_STRING_PATHTOCHECK,FUNC_GETFILEPATH(_FUNC_BINARYFORMATCHECK_STRING_OFILE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19821,"ide_methods.bas");}while(r); +S_57641:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_BINARYFORMATCHECK_STRING_PATHTOCHECK->len))||new_error){ +if(qbevent){evnt(26070,19822,"ide_methods.bas");if(r)goto S_57641;} +do{ +qbs_set(_FUNC_BINARYFORMATCHECK_STRING_FILETOCHECK,func_mid(_FUNC_BINARYFORMATCHECK_STRING_OFILE,_FUNC_BINARYFORMATCHECK_STRING_PATHTOCHECK->len+ 1 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19823,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_BINARYFORMATCHECK_STRING_PATHTOCHECK,qbs_left(_FUNC_BINARYFORMATCHECK_STRING_PATHTOCHECK,_FUNC_BINARYFORMATCHECK_STRING_PATHTOCHECK->len- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19824,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_BINARYFORMATCHECK_STRING_FILETOCHECK,_FUNC_BINARYFORMATCHECK_STRING_OFILE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19826,"ide_methods.bas");}while(r); +} +} +}else{ +do{ +*_FUNC_BINARYFORMATCHECK_INTEGER_BINARYFORMATCHECK= 1 ; +if(!qbevent)break;evnt(26070,19830,"ide_methods.bas");}while(r); +} +}else{ +S_57652:; +if ((qbs_cleanup(qbs_tmp_base,-(func__fileexists(qbs_new_txt_len("internal/support/converter/QB45BIN.bas",38))== 0 )))||new_error){ +if(qbevent){evnt(26070,19833,"ide_methods.bas");if(r)goto S_57652;} +do{ +*_FUNC_BINARYFORMATCHECK_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Binary format",13),qbs_new_txt_len("Conversion utility not found. Cannot open QuickBASIC 4.5 binary format.",71),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19834,"ide_methods.bas");}while(r); +do{ +*_FUNC_BINARYFORMATCHECK_INTEGER_BINARYFORMATCHECK= 1 ; +if(!qbevent)break;evnt(26070,19835,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,19836,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_BINARYFORMATCHECK_STRING_WHAT,FUNC_IDEYESNOBOX(qbs_new_txt_len("Binary format",13),qbs_new_txt_len("QuickBASIC 4.5 binary format detected. Convert to plain text?",61))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19838,"ide_methods.bas");}while(r); +S_57658:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_BINARYFORMATCHECK_STRING_WHAT,qbs_new_txt_len("Y",1))))||new_error){ +if(qbevent){evnt(26070,19839,"ide_methods.bas");if(r)goto S_57658;} +S_57659:; +if ((qbs_cleanup(qbs_tmp_base,-(func__direxists(qbs_new_txt_len("./internal/utilities",20))== 0 )))||new_error){ +if(qbevent){evnt(26070,19841,"ide_methods.bas");if(r)goto S_57659;} +do{ +sub_mkdir(qbs_new_txt_len("./internal/utilities",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19841,"ide_methods.bas");}while(r); +} +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,19842,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,19843,"ide_methods.bas");}while(r); +do{ +*_FUNC_BINARYFORMATCHECK_LONG_DUMMY=FUNC_DARKENFGBG(&(pass6330= 1 )); +if(!qbevent)break;evnt(26070,19844,"ide_methods.bas");}while(r); +do{ +SUB_CLEARSTATUSWINDOW(&(pass6331= 0 )); +if(!qbevent)break;evnt(26070,19845,"ide_methods.bas");}while(r); +do{ +qbg_sub_color( 15 , 1 ,NULL,3); +if(!qbevent)break;evnt(26070,19846,"ide_methods.bas");}while(r); +do{ +sub__printstring( 2 ,*__LONG_IDEWY- 3 ,qbs_new_txt_len("Preparing to convert...",23),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19847,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,19848,"ide_methods.bas");}while(r); +S_57669:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,func__os(),qbs_new_txt_len("WIN",3),0)))||new_error){ +if(qbevent){evnt(26070,19849,"ide_methods.bas");if(r)goto S_57669;} +do{ +sub_shell2(qbs_new_txt_len("qb64pe -x internal/support/converter/QB45BIN.bas -o internal/utilities/QB45BIN",78),2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19850,"ide_methods.bas");}while(r); +}else{ +do{ +sub_shell2(qbs_new_txt_len("./qb64pe -x ./internal/support/converter/QB45BIN.bas -o ./internal/utilities/QB45BIN",84),2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19852,"ide_methods.bas");}while(r); +} +S_57674:; +if ((qbs_cleanup(qbs_tmp_base,func__fileexists(_FUNC_BINARYFORMATCHECK_STRING_CONVERTUTILITY)))||new_error){ +if(qbevent){evnt(26070,19854,"ide_methods.bas");if(r)goto S_57674;} +do{ +goto LABEL_CONVERTIT; +if(!qbevent)break;evnt(26070,19854,"ide_methods.bas");}while(r); +} +do{ +SUB_CLEARSTATUSWINDOW(&(pass6332= 0 )); +if(!qbevent)break;evnt(26070,19855,"ide_methods.bas");}while(r); +do{ +*_FUNC_BINARYFORMATCHECK_LONG_DUMMY=FUNC_DARKENFGBG(&(pass6333= 0 )); +if(!qbevent)break;evnt(26070,19856,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,19857,"ide_methods.bas");}while(r); +do{ +*_FUNC_BINARYFORMATCHECK_LONG_RESULT=FUNC_IDEMESSAGEBOX(qbs_new_txt_len("Binary format",13),qbs_new_txt_len("Error launching conversion utility.",35),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19858,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_BINARYFORMATCHECK_INTEGER_BINARYFORMATCHECK= 1 ; +if(!qbevent)break;evnt(26070,19860,"ide_methods.bas");}while(r); +} +sc_ec_440_end:; +goto sc_6319_end; +} +sc_6319_end:; +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free269.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +return *_FUNC_BINARYFORMATCHECK_INTEGER_BINARYFORMATCHECK; +} +qbs* FUNC_REMOVESYMBOL2(qbs*_FUNC_REMOVESYMBOL2_STRING_VARNAME){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data270.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +*_FUNC_REMOVESYMBOL2_LONG_I=func_instr(NULL,_FUNC_REMOVESYMBOL2_STRING_VARNAME,qbs_new_txt_len("~",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19866,"ide_methods.bas");}while(r); +S_57686:; +if ((*_FUNC_REMOVESYMBOL2_LONG_I)||new_error){ +if(qbevent){evnt(26070,19866,"ide_methods.bas");if(r)goto S_57686;} +do{ +goto LABEL_FOUNDSYMBOL; +if(!qbevent)break;evnt(26070,19866,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_REMOVESYMBOL2_LONG_I=func_instr(NULL,_FUNC_REMOVESYMBOL2_STRING_VARNAME,qbs_new_txt_len("`",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19867,"ide_methods.bas");}while(r); +S_57690:; +if ((*_FUNC_REMOVESYMBOL2_LONG_I)||new_error){ +if(qbevent){evnt(26070,19867,"ide_methods.bas");if(r)goto S_57690;} +do{ +goto LABEL_FOUNDSYMBOL; +if(!qbevent)break;evnt(26070,19867,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_REMOVESYMBOL2_LONG_I=func_instr(NULL,_FUNC_REMOVESYMBOL2_STRING_VARNAME,qbs_new_txt_len("%",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19868,"ide_methods.bas");}while(r); +S_57694:; +if ((*_FUNC_REMOVESYMBOL2_LONG_I)||new_error){ +if(qbevent){evnt(26070,19868,"ide_methods.bas");if(r)goto S_57694;} +do{ +goto LABEL_FOUNDSYMBOL; +if(!qbevent)break;evnt(26070,19868,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_REMOVESYMBOL2_LONG_I=func_instr(NULL,_FUNC_REMOVESYMBOL2_STRING_VARNAME,qbs_new_txt_len("&",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19869,"ide_methods.bas");}while(r); +S_57698:; +if ((*_FUNC_REMOVESYMBOL2_LONG_I)||new_error){ +if(qbevent){evnt(26070,19869,"ide_methods.bas");if(r)goto S_57698;} +do{ +goto LABEL_FOUNDSYMBOL; +if(!qbevent)break;evnt(26070,19869,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_REMOVESYMBOL2_LONG_I=func_instr(NULL,_FUNC_REMOVESYMBOL2_STRING_VARNAME,qbs_new_txt_len("!",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19870,"ide_methods.bas");}while(r); +S_57702:; +if ((*_FUNC_REMOVESYMBOL2_LONG_I)||new_error){ +if(qbevent){evnt(26070,19870,"ide_methods.bas");if(r)goto S_57702;} +do{ +goto LABEL_FOUNDSYMBOL; +if(!qbevent)break;evnt(26070,19870,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_REMOVESYMBOL2_LONG_I=func_instr(NULL,_FUNC_REMOVESYMBOL2_STRING_VARNAME,qbs_new_txt_len("#",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19871,"ide_methods.bas");}while(r); +S_57706:; +if ((*_FUNC_REMOVESYMBOL2_LONG_I)||new_error){ +if(qbevent){evnt(26070,19871,"ide_methods.bas");if(r)goto S_57706;} +do{ +goto LABEL_FOUNDSYMBOL; +if(!qbevent)break;evnt(26070,19871,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_REMOVESYMBOL2_LONG_I=func_instr(NULL,_FUNC_REMOVESYMBOL2_STRING_VARNAME,qbs_new_txt_len("$",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19872,"ide_methods.bas");}while(r); +S_57710:; +if ((*_FUNC_REMOVESYMBOL2_LONG_I)||new_error){ +if(qbevent){evnt(26070,19872,"ide_methods.bas");if(r)goto S_57710;} +do{ +goto LABEL_FOUNDSYMBOL; +if(!qbevent)break;evnt(26070,19872,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_REMOVESYMBOL2_STRING_REMOVESYMBOL2,_FUNC_REMOVESYMBOL2_STRING_VARNAME); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19873,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,19874,"ide_methods.bas");}while(r); +LABEL_FOUNDSYMBOL:; +if(qbevent){evnt(26070,19875,"ide_methods.bas");r=0;} +S_57715:; +if ((-(*_FUNC_REMOVESYMBOL2_LONG_I== 1 ))||new_error){ +if(qbevent){evnt(26070,19876,"ide_methods.bas");if(r)goto S_57715;} +do{ +qbs_set(_FUNC_REMOVESYMBOL2_STRING_REMOVESYMBOL2,_FUNC_REMOVESYMBOL2_STRING_VARNAME); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19876,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,19876,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_REMOVESYMBOL2_STRING_REMOVESYMBOL2,qbs_left(_FUNC_REMOVESYMBOL2_STRING_VARNAME,*_FUNC_REMOVESYMBOL2_LONG_I- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19877,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free270.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_REMOVESYMBOL2_STRING_REMOVESYMBOL2);return _FUNC_REMOVESYMBOL2_STRING_REMOVESYMBOL2; +} +void SUB_CLEANSUBNAME(qbs*_SUB_CLEANSUBNAME_STRING_N){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data271.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +*_SUB_CLEANSUBNAME_LONG_X=func_instr(NULL,_SUB_CLEANSUBNAME_STRING_N,qbs_new_txt_len("'",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19881,"ide_methods.bas");}while(r); +S_57721:; +if ((*_SUB_CLEANSUBNAME_LONG_X)||new_error){ +if(qbevent){evnt(26070,19881,"ide_methods.bas");if(r)goto S_57721;} +do{ +qbs_set(_SUB_CLEANSUBNAME_STRING_N,qbs_left(_SUB_CLEANSUBNAME_STRING_N,*_SUB_CLEANSUBNAME_LONG_X- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19881,"ide_methods.bas");}while(r); +} +do{ +*_SUB_CLEANSUBNAME_LONG_X=func_instr(NULL,_SUB_CLEANSUBNAME_STRING_N,qbs_new_txt_len(":",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19882,"ide_methods.bas");}while(r); +S_57725:; +if ((*_SUB_CLEANSUBNAME_LONG_X)||new_error){ +if(qbevent){evnt(26070,19882,"ide_methods.bas");if(r)goto S_57725;} +do{ +qbs_set(_SUB_CLEANSUBNAME_STRING_N,qbs_left(_SUB_CLEANSUBNAME_STRING_N,*_SUB_CLEANSUBNAME_LONG_X- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19882,"ide_methods.bas");}while(r); +} +do{ +*_SUB_CLEANSUBNAME_LONG_X=func_instr(NULL,_SUB_CLEANSUBNAME_STRING_N,qbs_new_txt_len(" ",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19883,"ide_methods.bas");}while(r); +S_57729:; +if ((*_SUB_CLEANSUBNAME_LONG_X)||new_error){ +if(qbevent){evnt(26070,19883,"ide_methods.bas");if(r)goto S_57729;} +do{ +qbs_set(_SUB_CLEANSUBNAME_STRING_N,qbs_left(_SUB_CLEANSUBNAME_STRING_N,*_SUB_CLEANSUBNAME_LONG_X- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19883,"ide_methods.bas");}while(r); +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free271.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +void SUB_CLEARSTATUSWINDOW(int32*_SUB_CLEARSTATUSWINDOW_LONG_WHICHLINE){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data272.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +qbg_sub_color( 7 , 1 ,NULL,3); +if(!qbevent)break;evnt(26070,19887,"ide_methods.bas");}while(r); +S_57733:; +if ((-(*_SUB_CLEARSTATUSWINDOW_LONG_WHICHLINE== 0 ))||new_error){ +if(qbevent){evnt(26070,19888,"ide_methods.bas");if(r)goto S_57733;} +S_57734:; +fornext_value6337= 1 ; +fornext_finalvalue6337= 3 ; +fornext_step6337= 1 ; +if (fornext_step6337<0) fornext_step_negative6337=1; else fornext_step_negative6337=0; +if (new_error) goto fornext_error6337; +goto fornext_entrylabel6337; +while(1){ +fornext_value6337=fornext_step6337+(*_SUB_CLEARSTATUSWINDOW_LONG_WHICHLINE); +fornext_entrylabel6337: +*_SUB_CLEARSTATUSWINDOW_LONG_WHICHLINE=fornext_value6337; +if (fornext_step_negative6337){ +if (fornext_value6337fornext_finalvalue6337) break; +} +fornext_error6337:; +if(qbevent){evnt(26070,19889,"ide_methods.bas");if(r)goto S_57734;} +do{ +sub__printstring( 2 ,(*__LONG_IDEWY- 4 )+*_SUB_CLEARSTATUSWINDOW_LONG_WHICHLINE,func_space(*__LONG_IDEWX- 2 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19890,"ide_methods.bas");}while(r); +fornext_continue_6336:; +} +fornext_exit_6336:; +}else{ +do{ +sub__printstring( 2 ,(*__LONG_IDEWY- 4 )+*_SUB_CLEARSTATUSWINDOW_LONG_WHICHLINE,func_space(*__LONG_IDEWX- 2 ),NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19893,"ide_methods.bas");}while(r); +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free272.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +void SUB_SETSTATUSMESSAGE(int32*_SUB_SETSTATUSMESSAGE_LONG_ROW,qbs*_SUB_SETSTATUSMESSAGE_STRING_TEXT,int32*_SUB_SETSTATUSMESSAGE_LONG_FG){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data273.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +qbg_sub_color(*_SUB_SETSTATUSMESSAGE_LONG_FG,NULL,NULL,1); +if(!qbevent)break;evnt(26070,19898,"ide_methods.bas");}while(r); +do{ +sub__printstring( 2 ,(*__LONG_IDEWY- 4 )+*_SUB_SETSTATUSMESSAGE_LONG_ROW,_SUB_SETSTATUSMESSAGE_STRING_TEXT,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19899,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,19900,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free273.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +qbs* FUNC_GETWORDATCURSOR(){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data274.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +qbs_set(_FUNC_GETWORDATCURSOR_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19904,"ide_methods.bas");}while(r); +do{ +*_FUNC_GETWORDATCURSOR_LONG_X=*__LONG_IDECX; +if(!qbevent)break;evnt(26070,19905,"ide_methods.bas");}while(r); +S_57745:; +if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_GETWORDATCURSOR_LONG_X<=_FUNC_GETWORDATCURSOR_STRING_A->len)))||new_error){ +if(qbevent){evnt(26070,19906,"ide_methods.bas");if(r)goto S_57745;} +S_57746:; +if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(_FUNC_GETWORDATCURSOR_STRING_A,*_FUNC_GETWORDATCURSOR_LONG_X)== 32 ))&(-(*_FUNC_GETWORDATCURSOR_LONG_X> 1 ))))||new_error){ +if(qbevent){evnt(26070,19907,"ide_methods.bas");if(r)goto S_57746;} +S_57747:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_GETWORDATCURSOR_STRING_A,*_FUNC_GETWORDATCURSOR_LONG_X- 1 )!= 32 )))||new_error){ +if(qbevent){evnt(26070,19908,"ide_methods.bas");if(r)goto S_57747;} +do{ +*_FUNC_GETWORDATCURSOR_LONG_X=*_FUNC_GETWORDATCURSOR_LONG_X- 1 ; +if(!qbevent)break;evnt(26070,19908,"ide_methods.bas");}while(r); +} +} +LABEL_TRY:; +if(qbevent){evnt(26070,19910,"ide_methods.bas");r=0;} +S_57751:; +if ((qbs_cleanup(qbs_tmp_base,((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(_FUNC_GETWORDATCURSOR_STRING_A,*_FUNC_GETWORDATCURSOR_LONG_X))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]))||new_error){ +if(qbevent){evnt(26070,19911,"ide_methods.bas");if(r)goto S_57751;} +do{ +*_FUNC_GETWORDATCURSOR_LONG_X1=*_FUNC_GETWORDATCURSOR_LONG_X; +if(!qbevent)break;evnt(26070,19912,"ide_methods.bas");}while(r); +S_57753:; +while((-(*_FUNC_GETWORDATCURSOR_LONG_X1> 1 ))||new_error){ +if(qbevent){evnt(26070,19913,"ide_methods.bas");if(r)goto S_57753;} +S_57754:; +if ((qbs_cleanup(qbs_tmp_base,((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(_FUNC_GETWORDATCURSOR_STRING_A,*_FUNC_GETWORDATCURSOR_LONG_X1- 1 ))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]|(-(qbs_asc(_FUNC_GETWORDATCURSOR_STRING_A,*_FUNC_GETWORDATCURSOR_LONG_X1- 1 )== 36 ))))||new_error){ +if(qbevent){evnt(26070,19914,"ide_methods.bas");if(r)goto S_57754;} +do{ +*_FUNC_GETWORDATCURSOR_LONG_X1=*_FUNC_GETWORDATCURSOR_LONG_X1- 1 ; +if(!qbevent)break;evnt(26070,19914,"ide_methods.bas");}while(r); +}else{ +do{ +goto dl_exit_6340; +if(!qbevent)break;evnt(26070,19914,"ide_methods.bas");}while(r); +} +dl_continue_6340:; +} +dl_exit_6340:; +do{ +*_FUNC_GETWORDATCURSOR_LONG_X2=*_FUNC_GETWORDATCURSOR_LONG_X; +if(!qbevent)break;evnt(26070,19916,"ide_methods.bas");}while(r); +S_57761:; +while((qbs_cleanup(qbs_tmp_base,-(*_FUNC_GETWORDATCURSOR_LONG_X2<_FUNC_GETWORDATCURSOR_STRING_A->len)))||new_error){ +if(qbevent){evnt(26070,19917,"ide_methods.bas");if(r)goto S_57761;} +S_57762:; +if ((qbs_cleanup(qbs_tmp_base,((int32*)(__ARRAY_LONG_ALPHANUMERIC[0]))[array_check((qbs_asc(_FUNC_GETWORDATCURSOR_STRING_A,*_FUNC_GETWORDATCURSOR_LONG_X2+ 1 ))-__ARRAY_LONG_ALPHANUMERIC[4],__ARRAY_LONG_ALPHANUMERIC[5])]|(-(qbs_asc(_FUNC_GETWORDATCURSOR_STRING_A,*_FUNC_GETWORDATCURSOR_LONG_X2+ 1 )== 36 ))))||new_error){ +if(qbevent){evnt(26070,19918,"ide_methods.bas");if(r)goto S_57762;} +do{ +*_FUNC_GETWORDATCURSOR_LONG_X2=*_FUNC_GETWORDATCURSOR_LONG_X2+ 1 ; +if(!qbevent)break;evnt(26070,19918,"ide_methods.bas");}while(r); +}else{ +do{ +goto dl_exit_6342; +if(!qbevent)break;evnt(26070,19918,"ide_methods.bas");}while(r); +} +dl_continue_6342:; +} +dl_exit_6342:; +do{ +qbs_set(_FUNC_GETWORDATCURSOR_STRING_A2,func_mid(_FUNC_GETWORDATCURSOR_STRING_A,*_FUNC_GETWORDATCURSOR_LONG_X1,*_FUNC_GETWORDATCURSOR_LONG_X2-*_FUNC_GETWORDATCURSOR_LONG_X1+ 1 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19920,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_GETWORDATCURSOR_STRING_SYMBOL,func_chr(qbs_asc(_FUNC_GETWORDATCURSOR_STRING_A,*_FUNC_GETWORDATCURSOR_LONG_X))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19922,"ide_methods.bas");}while(r); +S_57771:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GETWORDATCURSOR_STRING_SYMBOL,func_chr( 32 ))))||new_error){ +if(qbevent){evnt(26070,19923,"ide_methods.bas");if(r)goto S_57771;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,19923,"ide_methods.bas");}while(r); +} +S_57774:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GETWORDATCURSOR_STRING_SYMBOL,qbs_new_txt_len("~",1))))||new_error){ +if(qbevent){evnt(26070,19924,"ide_methods.bas");if(r)goto S_57774;} +do{ +qbs_set(_FUNC_GETWORDATCURSOR_STRING_GETWORDATCURSOR,qbs_new_txt_len("~",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19924,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,19924,"ide_methods.bas");}while(r); +} +S_57778:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_GETWORDATCURSOR_STRING_SYMBOL,qbs_new_txt_len("`",1))))||new_error){ +if(qbevent){evnt(26070,19925,"ide_methods.bas");if(r)goto S_57778;} +do{ +qbs_set(_FUNC_GETWORDATCURSOR_STRING_GETWORDATCURSOR,qbs_new_txt_len("`",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19925,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,19925,"ide_methods.bas");}while(r); +} +S_57782:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_GETWORDATCURSOR_STRING_SYMBOL,qbs_new_txt_len("%",1)))&(qbs_equal(func_mid(_FUNC_GETWORDATCURSOR_STRING_A,*_FUNC_GETWORDATCURSOR_LONG_X+ 1 ,NULL,0),qbs_new_txt_len("&",1)))))||new_error){ +if(qbevent){evnt(26070,19926,"ide_methods.bas");if(r)goto S_57782;} +do{ +qbs_set(_FUNC_GETWORDATCURSOR_STRING_GETWORDATCURSOR,qbs_new_txt_len("%&",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19926,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,19926,"ide_methods.bas");}while(r); +} +S_57786:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_GETWORDATCURSOR_STRING_SYMBOL,qbs_new_txt_len("&",1)))&(qbs_equal(func_mid(_FUNC_GETWORDATCURSOR_STRING_A,*_FUNC_GETWORDATCURSOR_LONG_X- 1 ,NULL,0),qbs_new_txt_len("%",1)))))||new_error){ +if(qbevent){evnt(26070,19927,"ide_methods.bas");if(r)goto S_57786;} +do{ +qbs_set(_FUNC_GETWORDATCURSOR_STRING_GETWORDATCURSOR,qbs_new_txt_len("%&",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19927,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,19927,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_GETWORDATCURSOR_LONG_X1=*_FUNC_GETWORDATCURSOR_LONG_X; +if(!qbevent)break;evnt(26070,19928,"ide_methods.bas");}while(r); +S_57791:; +while((-(*_FUNC_GETWORDATCURSOR_LONG_X1> 1 ))||new_error){ +if(qbevent){evnt(26070,19929,"ide_methods.bas");if(r)goto S_57791;} +S_57792:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_GETWORDATCURSOR_STRING_A,*_FUNC_GETWORDATCURSOR_LONG_X1- 1 , 1 ,0|1),_FUNC_GETWORDATCURSOR_STRING_SYMBOL)))||new_error){ +if(qbevent){evnt(26070,19930,"ide_methods.bas");if(r)goto S_57792;} +do{ +*_FUNC_GETWORDATCURSOR_LONG_X1=*_FUNC_GETWORDATCURSOR_LONG_X1- 1 ; +if(!qbevent)break;evnt(26070,19930,"ide_methods.bas");}while(r); +}else{ +do{ +goto dl_exit_6343; +if(!qbevent)break;evnt(26070,19930,"ide_methods.bas");}while(r); +} +dl_continue_6343:; +} +dl_exit_6343:; +do{ +*_FUNC_GETWORDATCURSOR_LONG_X2=*_FUNC_GETWORDATCURSOR_LONG_X; +if(!qbevent)break;evnt(26070,19932,"ide_methods.bas");}while(r); +S_57799:; +while((qbs_cleanup(qbs_tmp_base,-(*_FUNC_GETWORDATCURSOR_LONG_X2<_FUNC_GETWORDATCURSOR_STRING_A->len)))||new_error){ +if(qbevent){evnt(26070,19933,"ide_methods.bas");if(r)goto S_57799;} +S_57800:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_GETWORDATCURSOR_STRING_A,*_FUNC_GETWORDATCURSOR_LONG_X2+ 1 , 1 ,0|1),_FUNC_GETWORDATCURSOR_STRING_SYMBOL)))||new_error){ +if(qbevent){evnt(26070,19934,"ide_methods.bas");if(r)goto S_57800;} +do{ +*_FUNC_GETWORDATCURSOR_LONG_X2=*_FUNC_GETWORDATCURSOR_LONG_X2+ 1 ; +if(!qbevent)break;evnt(26070,19934,"ide_methods.bas");}while(r); +}else{ +do{ +goto dl_exit_6345; +if(!qbevent)break;evnt(26070,19934,"ide_methods.bas");}while(r); +} +dl_continue_6345:; +} +dl_exit_6345:; +do{ +qbs_set(_FUNC_GETWORDATCURSOR_STRING_A2,func_mid(_FUNC_GETWORDATCURSOR_STRING_A,*_FUNC_GETWORDATCURSOR_LONG_X1,*_FUNC_GETWORDATCURSOR_LONG_X2-*_FUNC_GETWORDATCURSOR_LONG_X1+ 1 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19936,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_GETWORDATCURSOR_STRING_GETWORDATCURSOR,_FUNC_GETWORDATCURSOR_STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19938,"ide_methods.bas");}while(r); +S_57809:; +}else{ +if (qbs_cleanup(qbs_tmp_base,(-(*_FUNC_GETWORDATCURSOR_LONG_X==(_FUNC_GETWORDATCURSOR_STRING_A->len+ 1 )))&(-(*_FUNC_GETWORDATCURSOR_LONG_X> 1 )))){ +if(qbevent){evnt(26070,19939,"ide_methods.bas");if(r)goto S_57809;} +S_57810:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_FUNC_GETWORDATCURSOR_STRING_A,*_FUNC_GETWORDATCURSOR_LONG_X- 1 )!= 32 )))||new_error){ +if(qbevent){evnt(26070,19940,"ide_methods.bas");if(r)goto S_57810;} +do{ +*_FUNC_GETWORDATCURSOR_LONG_X=*_FUNC_GETWORDATCURSOR_LONG_X- 1 ; +if(!qbevent)break;evnt(26070,19940,"ide_methods.bas");}while(r); +do{ +goto LABEL_TRY; +if(!qbevent)break;evnt(26070,19940,"ide_methods.bas");}while(r); +} +} +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free274.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_GETWORDATCURSOR_STRING_GETWORDATCURSOR);return _FUNC_GETWORDATCURSOR_STRING_GETWORDATCURSOR; +} +qbs* FUNC_GETSELECTEDTEXT(int8*_FUNC_GETSELECTEDTEXT_BYTE_MULTILINE){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data275.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +S_57815:; +if ((*__LONG_IDESELECT)||new_error){ +if(qbevent){evnt(26070,19945,"ide_methods.bas");if(r)goto S_57815;} +do{ +*_FUNC_GETSELECTEDTEXT_LONG_SY1=*__LONG_IDESELECTY1; +if(!qbevent)break;evnt(26070,19946,"ide_methods.bas");}while(r); +do{ +*_FUNC_GETSELECTEDTEXT_LONG_SY2=*__LONG_IDECY; +if(!qbevent)break;evnt(26070,19947,"ide_methods.bas");}while(r); +S_57818:; +if ((-(*_FUNC_GETSELECTEDTEXT_LONG_SY1>*_FUNC_GETSELECTEDTEXT_LONG_SY2))||new_error){ +if(qbevent){evnt(26070,19948,"ide_methods.bas");if(r)goto S_57818;} +do{ +swap_32(&*_FUNC_GETSELECTEDTEXT_LONG_SY1,&*_FUNC_GETSELECTEDTEXT_LONG_SY2); +if(!qbevent)break;evnt(26070,19948,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_GETSELECTEDTEXT_LONG_SX1=*__LONG_IDESELECTX1; +if(!qbevent)break;evnt(26070,19949,"ide_methods.bas");}while(r); +do{ +*_FUNC_GETSELECTEDTEXT_LONG_SX2=*__LONG_IDECX; +if(!qbevent)break;evnt(26070,19950,"ide_methods.bas");}while(r); +S_57823:; +if ((-(*_FUNC_GETSELECTEDTEXT_LONG_SX1>*_FUNC_GETSELECTEDTEXT_LONG_SX2))||new_error){ +if(qbevent){evnt(26070,19951,"ide_methods.bas");if(r)goto S_57823;} +do{ +swap_32(&*_FUNC_GETSELECTEDTEXT_LONG_SX1,&*_FUNC_GETSELECTEDTEXT_LONG_SX2); +if(!qbevent)break;evnt(26070,19951,"ide_methods.bas");}while(r); +} +S_57826:; +fornext_value6348=*_FUNC_GETSELECTEDTEXT_LONG_SY1; +fornext_finalvalue6348=*_FUNC_GETSELECTEDTEXT_LONG_SY2; +fornext_step6348= 1 ; +if (fornext_step6348<0) fornext_step_negative6348=1; else fornext_step_negative6348=0; +if (new_error) goto fornext_error6348; +goto fornext_entrylabel6348; +while(1){ +fornext_value6348=fornext_step6348+(*_FUNC_GETSELECTEDTEXT_LONG_Y); +fornext_entrylabel6348: +*_FUNC_GETSELECTEDTEXT_LONG_Y=fornext_value6348; +if (fornext_step_negative6348){ +if (fornext_value6348fornext_finalvalue6348) break; +} +fornext_error6348:; +if(qbevent){evnt(26070,19952,"ide_methods.bas");if(r)goto S_57826;} +S_57827:; +if ((-(*_FUNC_GETSELECTEDTEXT_LONG_Y<=*__LONG_IDEN))||new_error){ +if(qbevent){evnt(26070,19953,"ide_methods.bas");if(r)goto S_57827;} +do{ +qbs_set(_FUNC_GETSELECTEDTEXT_STRING_A,FUNC_IDEGETLINE(_FUNC_GETSELECTEDTEXT_LONG_Y)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19954,"ide_methods.bas");}while(r); +S_57829:; +if ((-(*_FUNC_GETSELECTEDTEXT_LONG_SY1==*_FUNC_GETSELECTEDTEXT_LONG_SY2))||new_error){ +if(qbevent){evnt(26070,19955,"ide_methods.bas");if(r)goto S_57829;} +S_57830:; +fornext_value6350=*_FUNC_GETSELECTEDTEXT_LONG_SX1; +fornext_finalvalue6350=*_FUNC_GETSELECTEDTEXT_LONG_SX2- 1 ; +fornext_step6350= 1 ; +if (fornext_step6350<0) fornext_step_negative6350=1; else fornext_step_negative6350=0; +if (new_error) goto fornext_error6350; +goto fornext_entrylabel6350; +while(1){ +fornext_value6350=fornext_step6350+(*_FUNC_GETSELECTEDTEXT_LONG_X); +fornext_entrylabel6350: +*_FUNC_GETSELECTEDTEXT_LONG_X=fornext_value6350; +if (fornext_step_negative6350){ +if (fornext_value6350fornext_finalvalue6350) break; +} +fornext_error6350:; +if(qbevent){evnt(26070,19956,"ide_methods.bas");if(r)goto S_57830;} +S_57831:; +if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_GETSELECTEDTEXT_LONG_X<=_FUNC_GETSELECTEDTEXT_STRING_A->len)))||new_error){ +if(qbevent){evnt(26070,19957,"ide_methods.bas");if(r)goto S_57831;} +do{ +qbs_set(_FUNC_GETSELECTEDTEXT_STRING_CLIP,qbs_add(_FUNC_GETSELECTEDTEXT_STRING_CLIP,func_mid(_FUNC_GETSELECTEDTEXT_STRING_A,*_FUNC_GETSELECTEDTEXT_LONG_X, 1 ,0|1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19957,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_GETSELECTEDTEXT_STRING_CLIP,qbs_add(_FUNC_GETSELECTEDTEXT_STRING_CLIP,qbs_new_txt_len(" ",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19957,"ide_methods.bas");}while(r); +} +fornext_continue_6349:; +} +fornext_exit_6349:; +}else{ +S_57838:; +if ((~(*_FUNC_GETSELECTEDTEXT_BYTE_MULTILINE))||new_error){ +if(qbevent){evnt(26070,19960,"ide_methods.bas");if(r)goto S_57838;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,19960,"ide_methods.bas");}while(r); +} +S_57841:; +if (((-(*__LONG_IDECX== 1 ))&(-(*_FUNC_GETSELECTEDTEXT_LONG_Y==*_FUNC_GETSELECTEDTEXT_LONG_SY2))&(-(*__LONG_IDECY>*_FUNC_GETSELECTEDTEXT_LONG_SY1)))||new_error){ +if(qbevent){evnt(26070,19961,"ide_methods.bas");if(r)goto S_57841;} +do{ +goto LABEL_NOFINALCOPY; +if(!qbevent)break;evnt(26070,19961,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_GETSELECTEDTEXT_STRING_CLIP,qbs_add(qbs_add(qbs_add(_FUNC_GETSELECTEDTEXT_STRING_CLIP,_FUNC_GETSELECTEDTEXT_STRING_A),func_chr( 13 )),func_chr( 10 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19962,"ide_methods.bas");}while(r); +LABEL_NOFINALCOPY:; +if(qbevent){evnt(26070,19963,"ide_methods.bas");r=0;} +S_57845:; +if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_GETSELECTEDTEXT_LONG_Y==*_FUNC_GETSELECTEDTEXT_LONG_SY2))&(-(*__LONG_IDECX> 1 ))&(-(_FUNC_GETSELECTEDTEXT_STRING_A->len> 0 ))))||new_error){ +if(qbevent){evnt(26070,19964,"ide_methods.bas");if(r)goto S_57845;} +do{ +qbs_set(_FUNC_GETSELECTEDTEXT_STRING_CLIP,qbs_left(_FUNC_GETSELECTEDTEXT_STRING_CLIP,_FUNC_GETSELECTEDTEXT_STRING_CLIP->len- 2 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19964,"ide_methods.bas");}while(r); +} +} +} +fornext_continue_6347:; +} +fornext_exit_6347:; +do{ +qbs_set(_FUNC_GETSELECTEDTEXT_STRING_GETSELECTEDTEXT,_FUNC_GETSELECTEDTEXT_STRING_CLIP); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19968,"ide_methods.bas");}while(r); +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free275.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_GETSELECTEDTEXT_STRING_GETSELECTEDTEXT);return _FUNC_GETSELECTEDTEXT_STRING_GETSELECTEDTEXT; +} +void SUB_DELSELECT(){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data276.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +*_SUB_DELSELECT_LONG_SY1=*__LONG_IDESELECTY1; +if(!qbevent)break;evnt(26070,19973,"ide_methods.bas");}while(r); +do{ +*_SUB_DELSELECT_LONG_SY2=*__LONG_IDECY; +if(!qbevent)break;evnt(26070,19974,"ide_methods.bas");}while(r); +S_57855:; +if ((-(*_SUB_DELSELECT_LONG_SY1>*_SUB_DELSELECT_LONG_SY2))||new_error){ +if(qbevent){evnt(26070,19975,"ide_methods.bas");if(r)goto S_57855;} +do{ +swap_32(&*_SUB_DELSELECT_LONG_SY1,&*_SUB_DELSELECT_LONG_SY2); +if(!qbevent)break;evnt(26070,19975,"ide_methods.bas");}while(r); +} +do{ +*_SUB_DELSELECT_LONG_SX1=*__LONG_IDESELECTX1; +if(!qbevent)break;evnt(26070,19976,"ide_methods.bas");}while(r); +do{ +*_SUB_DELSELECT_LONG_SX2=*__LONG_IDECX; +if(!qbevent)break;evnt(26070,19977,"ide_methods.bas");}while(r); +S_57860:; +if ((-(*_SUB_DELSELECT_LONG_SX1>*_SUB_DELSELECT_LONG_SX2))||new_error){ +if(qbevent){evnt(26070,19978,"ide_methods.bas");if(r)goto S_57860;} +do{ +swap_32(&*_SUB_DELSELECT_LONG_SX1,&*_SUB_DELSELECT_LONG_SX2); +if(!qbevent)break;evnt(26070,19978,"ide_methods.bas");}while(r); +} +do{ +*_SUB_DELSELECT_LONG_NOLASTLINEDEL= 0 ; +if(!qbevent)break;evnt(26070,19979,"ide_methods.bas");}while(r); +S_57864:; +if (((-(*_SUB_DELSELECT_LONG_SY1!=*_SUB_DELSELECT_LONG_SY2))&(-(*__LONG_IDECX== 1 ))&(-(*__LONG_IDECY>*_SUB_DELSELECT_LONG_SY1)))||new_error){ +if(qbevent){evnt(26070,19980,"ide_methods.bas");if(r)goto S_57864;} +do{ +*_SUB_DELSELECT_LONG_SY2=*_SUB_DELSELECT_LONG_SY2- 1 ; +if(!qbevent)break;evnt(26070,19980,"ide_methods.bas");}while(r); +do{ +*_SUB_DELSELECT_LONG_NOLASTLINEDEL= 1 ; +if(!qbevent)break;evnt(26070,19980,"ide_methods.bas");}while(r); +} +S_57868:; +fornext_value6355=*_SUB_DELSELECT_LONG_SY2; +fornext_finalvalue6355=*_SUB_DELSELECT_LONG_SY1; +fornext_step6355= -1 ; +if (fornext_step6355<0) fornext_step_negative6355=1; else fornext_step_negative6355=0; +if (new_error) goto fornext_error6355; +goto fornext_entrylabel6355; +while(1){ +fornext_value6355=fornext_step6355+(*_SUB_DELSELECT_LONG_Y); +fornext_entrylabel6355: +*_SUB_DELSELECT_LONG_Y=fornext_value6355; +if (fornext_step_negative6355){ +if (fornext_value6355fornext_finalvalue6355) break; +} +fornext_error6355:; +if(qbevent){evnt(26070,19983,"ide_methods.bas");if(r)goto S_57868;} +S_57869:; +if (((-(*_SUB_DELSELECT_LONG_SY1==*_SUB_DELSELECT_LONG_SY2))&(-(*_SUB_DELSELECT_LONG_NOLASTLINEDEL== 0 )))||new_error){ +if(qbevent){evnt(26070,19984,"ide_methods.bas");if(r)goto S_57869;} +do{ +qbs_set(_SUB_DELSELECT_STRING_A,FUNC_IDEGETLINE(_SUB_DELSELECT_LONG_Y)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19985,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_DELSELECT_STRING_A2,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19986,"ide_methods.bas");}while(r); +S_57872:; +if ((qbs_cleanup(qbs_tmp_base,-(*_SUB_DELSELECT_LONG_SX1<=_SUB_DELSELECT_STRING_A->len)))||new_error){ +if(qbevent){evnt(26070,19987,"ide_methods.bas");if(r)goto S_57872;} +do{ +qbs_set(_SUB_DELSELECT_STRING_A2,qbs_left(_SUB_DELSELECT_STRING_A,*_SUB_DELSELECT_LONG_SX1- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19987,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_DELSELECT_STRING_A2,_SUB_DELSELECT_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19987,"ide_methods.bas");}while(r); +} +S_57877:; +if ((qbs_cleanup(qbs_tmp_base,-(*_SUB_DELSELECT_LONG_SX2<=_SUB_DELSELECT_STRING_A->len)))||new_error){ +if(qbevent){evnt(26070,19988,"ide_methods.bas");if(r)goto S_57877;} +do{ +qbs_set(_SUB_DELSELECT_STRING_A2,qbs_add(_SUB_DELSELECT_STRING_A2,qbs_right(_SUB_DELSELECT_STRING_A,_SUB_DELSELECT_STRING_A->len-*_SUB_DELSELECT_LONG_SX2+ 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19988,"ide_methods.bas");}while(r); +} +do{ +SUB_IDESETLINE(_SUB_DELSELECT_LONG_Y,_SUB_DELSELECT_STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19989,"ide_methods.bas");}while(r); +}else{ +S_57882:; +if (((-(*__LONG_IDEN== 1 ))&(-(*_SUB_DELSELECT_LONG_Y== 1 )))||new_error){ +if(qbevent){evnt(26070,19991,"ide_methods.bas");if(r)goto S_57882;} +do{ +SUB_IDESETLINE(_SUB_DELSELECT_LONG_Y,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19991,"ide_methods.bas");}while(r); +}else{ +do{ +SUB_IDEDELLINE(_SUB_DELSELECT_LONG_Y); +if(!qbevent)break;evnt(26070,19991,"ide_methods.bas");}while(r); +} +} +fornext_continue_6354:; +} +fornext_exit_6354:; +do{ +*__LONG_IDECX=*_SUB_DELSELECT_LONG_SX1; +if(!qbevent)break;evnt(26070,19995,"ide_methods.bas");}while(r); +S_57890:; +if (((-(*_SUB_DELSELECT_LONG_SY1!=*_SUB_DELSELECT_LONG_SY2))|(-(*_SUB_DELSELECT_LONG_NOLASTLINEDEL== 1 )))||new_error){ +if(qbevent){evnt(26070,19995,"ide_methods.bas");if(r)goto S_57890;} +do{ +*__LONG_IDECX= 1 ; +if(!qbevent)break;evnt(26070,19995,"ide_methods.bas");}while(r); +} +do{ +*__LONG_IDECY=*_SUB_DELSELECT_LONG_SY1; +if(!qbevent)break;evnt(26070,19996,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESELECT= 0 ; +if(!qbevent)break;evnt(26070,19997,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free276.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +void SUB_INSERTATCURSOR(qbs*_SUB_INSERTATCURSOR_STRING_TEMPK){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data277.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +S_57895:; +if ((*__LONG_IDESELECT)||new_error){ +if(qbevent){evnt(26070,20002,"ide_methods.bas");if(r)goto S_57895;} +do{ +SUB_DELSELECT(); +if(!qbevent)break;evnt(26070,20002,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_INSERTATCURSOR_STRING_A,FUNC_IDEGETLINE(__LONG_IDECY)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20003,"ide_methods.bas");}while(r); +S_57899:; +if ((qbs_cleanup(qbs_tmp_base,-((_SUB_INSERTATCURSOR_STRING_A->len)<(*__LONG_IDECX- 1 ))))||new_error){ +if(qbevent){evnt(26070,20004,"ide_methods.bas");if(r)goto S_57899;} +do{ +qbs_set(_SUB_INSERTATCURSOR_STRING_A,qbs_add(_SUB_INSERTATCURSOR_STRING_A,func_space(*__LONG_IDECX- 1 -_SUB_INSERTATCURSOR_STRING_A->len))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20004,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_INSERTATCURSOR_STRING_A,qbs_add(qbs_add(qbs_left(_SUB_INSERTATCURSOR_STRING_A,*__LONG_IDECX- 1 ),_SUB_INSERTATCURSOR_STRING_TEMPK),qbs_right(_SUB_INSERTATCURSOR_STRING_A,_SUB_INSERTATCURSOR_STRING_A->len-*__LONG_IDECX+ 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20005,"ide_methods.bas");}while(r); +do{ +SUB_IDESETLINE(__LONG_IDECY,FUNC_CONVERTTABS(_SUB_INSERTATCURSOR_STRING_A)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20006,"ide_methods.bas");}while(r); +S_57904:; +if ((*__BYTE_PASTECURSORATEND)||new_error){ +if(qbevent){evnt(26070,20008,"ide_methods.bas");if(r)goto S_57904;} +do{ +*__LONG_IDECX=*__LONG_IDECX+_SUB_INSERTATCURSOR_STRING_TEMPK->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20010,"ide_methods.bas");}while(r); +} +do{ +*__INTEGER_IDECHANGEMADE= 1 ; +if(!qbevent)break;evnt(26070,20013,"ide_methods.bas");}while(r); +do{ +*__BYTE_STARTPAUSEDPENDING= 0 ; +if(!qbevent)break;evnt(26070,20014,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free277.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +qbs* FUNC_FINDHELPTOPIC(qbs*_FUNC_FINDHELPTOPIC_STRING_TOPIC,int32*_FUNC_FINDHELPTOPIC_LONG_LNKS,int8*_FUNC_FINDHELPTOPIC_BYTE_FIRSTONLY){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data278.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +*_FUNC_FINDHELPTOPIC_LONG_LNKS= 0 ; +if(!qbevent)break;evnt(26070,20021,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_FINDHELPTOPIC_STRING_LNKS,func_chr( 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20021,"ide_methods.bas");}while(r); +do{ +*_FUNC_FINDHELPTOPIC_LONG_FH=func_freefile(); +if(!qbevent)break;evnt(26070,20022,"ide_methods.bas");}while(r); +do{ +*_FUNC_FINDHELPTOPIC_LONG_LINKSFILEEXIST=func__fileexists(qbs_new_txt_len("internal\\help\\links.bin",23)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20024,"ide_methods.bas");}while(r); +S_57913:; +if ((*_FUNC_FINDHELPTOPIC_LONG_LINKSFILEEXIST)||new_error){ +if(qbevent){evnt(26070,20025,"ide_methods.bas");if(r)goto S_57913;} +do{ +sub_open(qbs_new_txt_len("internal\\help\\links.bin",23), 3 ,NULL,NULL,*_FUNC_FINDHELPTOPIC_LONG_FH,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20026,"ide_methods.bas");}while(r); +do{ +*_FUNC_FINDHELPTOPIC_LONG_LINKSFILEEMPTY=(-(func_lof(*_FUNC_FINDHELPTOPIC_LONG_FH)== 0 )); +if(!qbevent)break;evnt(26070,20027,"ide_methods.bas");}while(r); +do{ +sub_close(*_FUNC_FINDHELPTOPIC_LONG_FH,1); +if(!qbevent)break;evnt(26070,20027,"ide_methods.bas");}while(r); +} +S_57918:; +if (((~(*_FUNC_FINDHELPTOPIC_LONG_LINKSFILEEXIST))|*_FUNC_FINDHELPTOPIC_LONG_LINKSFILEEMPTY)||new_error){ +if(qbevent){evnt(26070,20029,"ide_methods.bas");if(r)goto S_57918;} +do{ +qbs_set(_FUNC_FINDHELPTOPIC_STRING_Q,FUNC_IDEYESNOBOX(qbs_new_txt_len("Help problem",12),qbs_new_txt_len("The help system is not yet initialized,\\ndo it now? (Make sure you're online.)",78))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20030,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,20031,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,20031,"ide_methods.bas");}while(r); +S_57922:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_FINDHELPTOPIC_STRING_Q,qbs_new_txt_len("N",1))))||new_error){ +if(qbevent){evnt(26070,20032,"ide_methods.bas");if(r)goto S_57922;} +do{ +goto LABEL_NOLINKSFILE; +if(!qbevent)break;evnt(26070,20032,"ide_methods.bas");}while(r); +} +do{ +*__LONG_HELP_IGNORECACHE= 1 ; +if(!qbevent)break;evnt(26070,20033,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_FINDHELPTOPIC_STRING_A,FUNC_WIKI(qbs_new_txt_len("Keyword Reference - Alphabetical",32))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20034,"ide_methods.bas");}while(r); +do{ +*__LONG_HELP_IGNORECACHE= 0 ; +if(!qbevent)break;evnt(26070,20035,"ide_methods.bas");}while(r); +S_57928:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_FUNC_FINDHELPTOPIC_STRING_A,qbs_new_txt_len("{{PageInternalError}}",21),0)))||new_error){ +if(qbevent){evnt(26070,20036,"ide_methods.bas");if(r)goto S_57928;} +do{ +*_FUNC_FINDHELPTOPIC_LONG_LNKS= 1 ; +if(!qbevent)break;evnt(26070,20037,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_FINDHELPTOPIC_STRING_LNKS,qbs_add(qbs_add(_FUNC_FINDHELPTOPIC_STRING_LNKS,qbs_new_txt_len("Initialize",10)),func_chr( 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20037,"ide_methods.bas");}while(r); +do{ +goto LABEL_NOLINKSFILE; +if(!qbevent)break;evnt(26070,20038,"ide_methods.bas");}while(r); +} +do{ +*__LONG_HELP_WW= 78 ; +if(!qbevent)break;evnt(26070,20040,"ide_methods.bas");}while(r); +do{ +SUB_WIKIPARSE(_FUNC_FINDHELPTOPIC_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20040,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_FINDHELPTOPIC_STRING_A2,qbs_ucase(_FUNC_FINDHELPTOPIC_STRING_TOPIC)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20043,"ide_methods.bas");}while(r); +do{ +sub_open(qbs_new_txt_len("internal\\help\\links.bin",23), 3 ,NULL,NULL,*_FUNC_FINDHELPTOPIC_LONG_FH,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20044,"ide_methods.bas");}while(r); +S_57938:; +while((!(func_eof(*_FUNC_FINDHELPTOPIC_LONG_FH)))||new_error){ +if(qbevent){evnt(26070,20045,"ide_methods.bas");if(r)goto S_57938;} +do{ +tmp_fileno=*_FUNC_FINDHELPTOPIC_LONG_FH; +if (new_error) goto skip6366; +sub_file_line_input_string(tmp_fileno,_FUNC_FINDHELPTOPIC_STRING_L); +if (new_error) goto skip6366; +skip6366: +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20046,"ide_methods.bas");}while(r); +do{ +*_FUNC_FINDHELPTOPIC_LONG_C=func_instr(NULL,_FUNC_FINDHELPTOPIC_STRING_L,qbs_new_txt_len(",",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20047,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_FINDHELPTOPIC_STRING_L1,qbs_left(_FUNC_FINDHELPTOPIC_STRING_L,*_FUNC_FINDHELPTOPIC_LONG_C- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20047,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_FINDHELPTOPIC_STRING_L2,qbs_right(_FUNC_FINDHELPTOPIC_STRING_L,_FUNC_FINDHELPTOPIC_STRING_L->len-*_FUNC_FINDHELPTOPIC_LONG_C)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20047,"ide_methods.bas");}while(r); +S_57943:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_FINDHELPTOPIC_STRING_A2,qbs_ucase(_FUNC_FINDHELPTOPIC_STRING_L1)))|(((-(*__LONG_QB64PREFIX_SET== 1 ))&(qbs_equal(qbs_left(_FUNC_FINDHELPTOPIC_STRING_L1, 1 ),qbs_new_txt_len("_",1)))&(qbs_equal(_FUNC_FINDHELPTOPIC_STRING_A2,func_mid(_FUNC_FINDHELPTOPIC_STRING_L1, 2 ,NULL,0)))))))||new_error){ +if(qbevent){evnt(26070,20048,"ide_methods.bas");if(r)goto S_57943;} +S_57944:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_FUNC_FINDHELPTOPIC_STRING_LNKS,qbs_add(qbs_add(func_chr( 0 ),_FUNC_FINDHELPTOPIC_STRING_L2),func_chr( 0 )),0)== 0 )))||new_error){ +if(qbevent){evnt(26070,20049,"ide_methods.bas");if(r)goto S_57944;} +do{ +*_FUNC_FINDHELPTOPIC_LONG_LNKS=*_FUNC_FINDHELPTOPIC_LONG_LNKS+ 1 ; +if(!qbevent)break;evnt(26070,20050,"ide_methods.bas");}while(r); +S_57946:; +if ((*_FUNC_FINDHELPTOPIC_BYTE_FIRSTONLY)||new_error){ +if(qbevent){evnt(26070,20051,"ide_methods.bas");if(r)goto S_57946;} +do{ +qbs_set(_FUNC_FINDHELPTOPIC_STRING_FINDHELPTOPIC,_FUNC_FINDHELPTOPIC_STRING_L2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20051,"ide_methods.bas");}while(r); +do{ +sub_close(*_FUNC_FINDHELPTOPIC_LONG_FH,1); +if(!qbevent)break;evnt(26070,20051,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,20051,"ide_methods.bas");}while(r); +} +S_57951:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_FINDHELPTOPIC_STRING_L2,_FUNC_FINDHELPTOPIC_STRING_L1)))||new_error){ +if(qbevent){evnt(26070,20052,"ide_methods.bas");if(r)goto S_57951;} +do{ +qbs_set(_FUNC_FINDHELPTOPIC_STRING_LNKS,qbs_add(qbs_add(func_chr( 0 ),_FUNC_FINDHELPTOPIC_STRING_L2),_FUNC_FINDHELPTOPIC_STRING_LNKS)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20053,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_FINDHELPTOPIC_STRING_LNKS,qbs_add(qbs_add(_FUNC_FINDHELPTOPIC_STRING_LNKS,_FUNC_FINDHELPTOPIC_STRING_L2),func_chr( 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20055,"ide_methods.bas");}while(r); +} +} +} +dl_continue_6365:; +} +dl_exit_6365:; +do{ +sub_close(*_FUNC_FINDHELPTOPIC_LONG_FH,1); +if(!qbevent)break;evnt(26070,20060,"ide_methods.bas");}while(r); +LABEL_NOLINKSFILE:; +if(qbevent){evnt(26070,20061,"ide_methods.bas");r=0;} +do{ +qbs_set(_FUNC_FINDHELPTOPIC_STRING_FINDHELPTOPIC,_FUNC_FINDHELPTOPIC_STRING_LNKS); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20062,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free278.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_FINDHELPTOPIC_STRING_FINDHELPTOPIC);return _FUNC_FINDHELPTOPIC_STRING_FINDHELPTOPIC; +} +int32 FUNC_ISNUMBER(qbs*_FUNC_ISNUMBER_STRING___A){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data279.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +qbs_set(_FUNC_ISNUMBER_STRING_A,qbs_ucase(_FUNC_ISNUMBER_STRING___A)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20066,"ide_methods.bas");}while(r); +S_57962:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_ISNUMBER_STRING_A->len== 0 )))||new_error){ +if(qbevent){evnt(26070,20067,"ide_methods.bas");if(r)goto S_57962;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,20067,"ide_methods.bas");}while(r); +} +S_57965:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,qbs_new_txt_len("@&H@&O@&B@",10),qbs_add(qbs_add(qbs_new_txt_len("@",1),qbs_left(_FUNC_ISNUMBER_STRING_A, 2 )),qbs_new_txt_len("@",1)),0)))||new_error){ +if(qbevent){evnt(26070,20069,"ide_methods.bas");if(r)goto S_57965;} +do{ +*_FUNC_ISNUMBER_LONG_ISNUMBER= 1 ; +if(!qbevent)break;evnt(26070,20069,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,20069,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_ISNUMBER_LONG_I=func_instr(NULL,_FUNC_ISNUMBER_STRING_A,qbs_new_txt_len("~",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20071,"ide_methods.bas");}while(r); +S_57970:; +if ((*_FUNC_ISNUMBER_LONG_I)||new_error){ +if(qbevent){evnt(26070,20071,"ide_methods.bas");if(r)goto S_57970;} +do{ +goto LABEL_FOUNDSYMBOL; +if(!qbevent)break;evnt(26070,20071,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_ISNUMBER_LONG_I=func_instr(NULL,_FUNC_ISNUMBER_STRING_A,qbs_new_txt_len("`",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20072,"ide_methods.bas");}while(r); +S_57974:; +if ((*_FUNC_ISNUMBER_LONG_I)||new_error){ +if(qbevent){evnt(26070,20072,"ide_methods.bas");if(r)goto S_57974;} +do{ +goto LABEL_FOUNDSYMBOL; +if(!qbevent)break;evnt(26070,20072,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_ISNUMBER_LONG_I=func_instr(NULL,_FUNC_ISNUMBER_STRING_A,qbs_new_txt_len("%",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20073,"ide_methods.bas");}while(r); +S_57978:; +if ((*_FUNC_ISNUMBER_LONG_I)||new_error){ +if(qbevent){evnt(26070,20073,"ide_methods.bas");if(r)goto S_57978;} +do{ +goto LABEL_FOUNDSYMBOL; +if(!qbevent)break;evnt(26070,20073,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_ISNUMBER_LONG_I=func_instr(NULL,_FUNC_ISNUMBER_STRING_A,qbs_new_txt_len("&",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20074,"ide_methods.bas");}while(r); +S_57982:; +if ((*_FUNC_ISNUMBER_LONG_I)||new_error){ +if(qbevent){evnt(26070,20074,"ide_methods.bas");if(r)goto S_57982;} +do{ +goto LABEL_FOUNDSYMBOL; +if(!qbevent)break;evnt(26070,20074,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_ISNUMBER_LONG_I=func_instr(NULL,_FUNC_ISNUMBER_STRING_A,qbs_new_txt_len("!",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20075,"ide_methods.bas");}while(r); +S_57986:; +if ((*_FUNC_ISNUMBER_LONG_I)||new_error){ +if(qbevent){evnt(26070,20075,"ide_methods.bas");if(r)goto S_57986;} +do{ +goto LABEL_FOUNDSYMBOL; +if(!qbevent)break;evnt(26070,20075,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_ISNUMBER_LONG_I=func_instr(NULL,_FUNC_ISNUMBER_STRING_A,qbs_new_txt_len("#",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20076,"ide_methods.bas");}while(r); +S_57990:; +if ((*_FUNC_ISNUMBER_LONG_I)||new_error){ +if(qbevent){evnt(26070,20076,"ide_methods.bas");if(r)goto S_57990;} +do{ +goto LABEL_FOUNDSYMBOL; +if(!qbevent)break;evnt(26070,20076,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_ISNUMBER_LONG_I=func_instr(NULL,_FUNC_ISNUMBER_STRING_A,qbs_new_txt_len("$",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20077,"ide_methods.bas");}while(r); +S_57994:; +if ((*_FUNC_ISNUMBER_LONG_I)||new_error){ +if(qbevent){evnt(26070,20077,"ide_methods.bas");if(r)goto S_57994;} +do{ +goto LABEL_FOUNDSYMBOL; +if(!qbevent)break;evnt(26070,20077,"ide_methods.bas");}while(r); +} +do{ +goto LABEL_PROCEEDWITHOUTSYMBOL; +if(!qbevent)break;evnt(26070,20078,"ide_methods.bas");}while(r); +LABEL_FOUNDSYMBOL:; +if(qbevent){evnt(26070,20079,"ide_methods.bas");r=0;} +S_57998:; +if ((-(*_FUNC_ISNUMBER_LONG_I== 1 ))||new_error){ +if(qbevent){evnt(26070,20080,"ide_methods.bas");if(r)goto S_57998;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,20080,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_ISNUMBER_STRING_SYMBOL,qbs_right(_FUNC_ISNUMBER_STRING_A,_FUNC_ISNUMBER_STRING_A->len-*_FUNC_ISNUMBER_LONG_I+ 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20081,"ide_methods.bas");}while(r); +S_58002:; +if ((qbs_cleanup(qbs_tmp_base,-(FUNC_SYMBOLTYPE(_FUNC_ISNUMBER_STRING_SYMBOL)== 0 )))||new_error){ +if(qbevent){evnt(26070,20082,"ide_methods.bas");if(r)goto S_58002;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,20082,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_ISNUMBER_STRING_A,qbs_left(_FUNC_ISNUMBER_STRING_A,*_FUNC_ISNUMBER_LONG_I- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20083,"ide_methods.bas");}while(r); +LABEL_PROCEEDWITHOUTSYMBOL:; +if(qbevent){evnt(26070,20085,"ide_methods.bas");r=0;} +do{ +*_FUNC_ISNUMBER_LONG_FF= 0 ; +if(!qbevent)break;evnt(26070,20086,"ide_methods.bas");}while(r); +do{ +*_FUNC_ISNUMBER_LONG_EE= 0 ; +if(!qbevent)break;evnt(26070,20087,"ide_methods.bas");}while(r); +do{ +*_FUNC_ISNUMBER_LONG_DD= 0 ; +if(!qbevent)break;evnt(26070,20088,"ide_methods.bas");}while(r); +do{ +*_FUNC_ISNUMBER_LONG_NEG= 0 ; +if(!qbevent)break;evnt(26070,20089,"ide_methods.bas");}while(r); +S_58010:; +fornext_value6372= 1 ; +fornext_finalvalue6372=_FUNC_ISNUMBER_STRING_A->len; +fornext_step6372= 1 ; +if (fornext_step6372<0) fornext_step_negative6372=1; else fornext_step_negative6372=0; +if (new_error) goto fornext_error6372; +goto fornext_entrylabel6372; +while(1){ +fornext_value6372=fornext_step6372+(*_FUNC_ISNUMBER_LONG_I); +fornext_entrylabel6372: +*_FUNC_ISNUMBER_LONG_I=fornext_value6372; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative6372){ +if (fornext_value6372fornext_finalvalue6372) break; +} +fornext_error6372:; +if(qbevent){evnt(26070,20090,"ide_methods.bas");if(r)goto S_58010;} +do{ +*_FUNC_ISNUMBER_LONG_A=qbs_asc(_FUNC_ISNUMBER_STRING_A,*_FUNC_ISNUMBER_LONG_I); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20091,"ide_methods.bas");}while(r); +S_58012:; +if ((-(*_FUNC_ISNUMBER_LONG_A== 45 ))||new_error){ +if(qbevent){evnt(26070,20092,"ide_methods.bas");if(r)goto S_58012;} +S_58013:; +if ((qbs_cleanup(qbs_tmp_base,((-(*_FUNC_ISNUMBER_LONG_I== 1 ))&(-(_FUNC_ISNUMBER_STRING_A->len> 1 )))|((-(*_FUNC_ISNUMBER_LONG_I> 1 ))&((((-(*_FUNC_ISNUMBER_LONG_DD> 0 ))&(-(*_FUNC_ISNUMBER_LONG_DD==(*_FUNC_ISNUMBER_LONG_I- 1 ))))|((-(*_FUNC_ISNUMBER_LONG_EE> 0 ))&(-(*_FUNC_ISNUMBER_LONG_EE==(*_FUNC_ISNUMBER_LONG_I- 1 ))))|((-(*_FUNC_ISNUMBER_LONG_FF> 0 ))&(-(*_FUNC_ISNUMBER_LONG_FF==(*_FUNC_ISNUMBER_LONG_I- 1 )))))))))||new_error){ +if(qbevent){evnt(26070,20093,"ide_methods.bas");if(r)goto S_58013;} +do{ +*_FUNC_ISNUMBER_LONG_NEG=(-(*_FUNC_ISNUMBER_LONG_I== 1 )); +if(!qbevent)break;evnt(26070,20093,"ide_methods.bas");}while(r); +do{ +goto fornext_continue_6371; +if(!qbevent)break;evnt(26070,20093,"ide_methods.bas");}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,20094,"ide_methods.bas");}while(r); +} +S_58019:; +if ((-(*_FUNC_ISNUMBER_LONG_A== 46 ))||new_error){ +if(qbevent){evnt(26070,20096,"ide_methods.bas");if(r)goto S_58019;} +S_58020:; +if ((-(*_FUNC_ISNUMBER_LONG_DP== 1 ))||new_error){ +if(qbevent){evnt(26070,20097,"ide_methods.bas");if(r)goto S_58020;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,20097,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_ISNUMBER_LONG_DP= 1 ; +if(!qbevent)break;evnt(26070,20098,"ide_methods.bas");}while(r); +do{ +goto fornext_continue_6371; +if(!qbevent)break;evnt(26070,20099,"ide_methods.bas");}while(r); +} +S_58026:; +if ((-(*_FUNC_ISNUMBER_LONG_A== 68 ))||new_error){ +if(qbevent){evnt(26070,20101,"ide_methods.bas");if(r)goto S_58026;} +S_58027:; +if (((-(*_FUNC_ISNUMBER_LONG_DD> 0 ))|(-(*_FUNC_ISNUMBER_LONG_EE> 0 ))|(-(*_FUNC_ISNUMBER_LONG_FF> 0 )))||new_error){ +if(qbevent){evnt(26070,20102,"ide_methods.bas");if(r)goto S_58027;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,20102,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_ISNUMBER_LONG_DD=*_FUNC_ISNUMBER_LONG_I; +if(!qbevent)break;evnt(26070,20103,"ide_methods.bas");}while(r); +S_58031:; +if (((-(*_FUNC_ISNUMBER_LONG_NEG!= 0 ))&(-(*_FUNC_ISNUMBER_LONG_DD== 2 )))||new_error){ +if(qbevent){evnt(26070,20104,"ide_methods.bas");if(r)goto S_58031;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,20104,"ide_methods.bas");}while(r); +} +do{ +goto fornext_continue_6371; +if(!qbevent)break;evnt(26070,20105,"ide_methods.bas");}while(r); +} +S_58036:; +if ((-(*_FUNC_ISNUMBER_LONG_A== 69 ))||new_error){ +if(qbevent){evnt(26070,20107,"ide_methods.bas");if(r)goto S_58036;} +S_58037:; +if (((-(*_FUNC_ISNUMBER_LONG_DD> 0 ))|(-(*_FUNC_ISNUMBER_LONG_EE> 0 ))|(-(*_FUNC_ISNUMBER_LONG_FF> 0 )))||new_error){ +if(qbevent){evnt(26070,20108,"ide_methods.bas");if(r)goto S_58037;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,20108,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_ISNUMBER_LONG_EE=*_FUNC_ISNUMBER_LONG_I; +if(!qbevent)break;evnt(26070,20109,"ide_methods.bas");}while(r); +S_58041:; +if (((-(*_FUNC_ISNUMBER_LONG_NEG!= 0 ))&(-(*_FUNC_ISNUMBER_LONG_EE== 2 )))||new_error){ +if(qbevent){evnt(26070,20110,"ide_methods.bas");if(r)goto S_58041;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,20110,"ide_methods.bas");}while(r); +} +do{ +goto fornext_continue_6371; +if(!qbevent)break;evnt(26070,20111,"ide_methods.bas");}while(r); +} +S_58046:; +if ((-(*_FUNC_ISNUMBER_LONG_A== 70 ))||new_error){ +if(qbevent){evnt(26070,20113,"ide_methods.bas");if(r)goto S_58046;} +S_58047:; +if (((-(*_FUNC_ISNUMBER_LONG_DD> 0 ))|(-(*_FUNC_ISNUMBER_LONG_EE> 0 ))|(-(*_FUNC_ISNUMBER_LONG_FF> 0 )))||new_error){ +if(qbevent){evnt(26070,20114,"ide_methods.bas");if(r)goto S_58047;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,20114,"ide_methods.bas");}while(r); +} +do{ +*_FUNC_ISNUMBER_LONG_FF=*_FUNC_ISNUMBER_LONG_I; +if(!qbevent)break;evnt(26070,20115,"ide_methods.bas");}while(r); +S_58051:; +if (((-(*_FUNC_ISNUMBER_LONG_NEG!= 0 ))&(-(*_FUNC_ISNUMBER_LONG_FF== 2 )))||new_error){ +if(qbevent){evnt(26070,20116,"ide_methods.bas");if(r)goto S_58051;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,20116,"ide_methods.bas");}while(r); +} +do{ +goto fornext_continue_6371; +if(!qbevent)break;evnt(26070,20117,"ide_methods.bas");}while(r); +} +S_58056:; +if ((-(*_FUNC_ISNUMBER_LONG_A== 43 ))||new_error){ +if(qbevent){evnt(26070,20119,"ide_methods.bas");if(r)goto S_58056;} +S_58057:; +if ((((-(*_FUNC_ISNUMBER_LONG_DD> 0 ))&(-(*_FUNC_ISNUMBER_LONG_DD==(*_FUNC_ISNUMBER_LONG_I- 1 ))))|((-(*_FUNC_ISNUMBER_LONG_EE> 0 ))&(-(*_FUNC_ISNUMBER_LONG_EE==(*_FUNC_ISNUMBER_LONG_I- 1 ))))|((-(*_FUNC_ISNUMBER_LONG_FF> 0 ))&(-(*_FUNC_ISNUMBER_LONG_FF==(*_FUNC_ISNUMBER_LONG_I- 1 )))))||new_error){ +if(qbevent){evnt(26070,20120,"ide_methods.bas");if(r)goto S_58057;} +do{ +goto fornext_continue_6371; +if(!qbevent)break;evnt(26070,20120,"ide_methods.bas");}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,20121,"ide_methods.bas");}while(r); +} +S_58062:; +if (((-(*_FUNC_ISNUMBER_LONG_A>= 48 ))&(-(*_FUNC_ISNUMBER_LONG_A<= 57 )))||new_error){ +if(qbevent){evnt(26070,20124,"ide_methods.bas");if(r)goto S_58062;} +do{ +goto fornext_continue_6371; +if(!qbevent)break;evnt(26070,20124,"ide_methods.bas");}while(r); +} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,20125,"ide_methods.bas");}while(r); +fornext_continue_6371:; +} +fornext_exit_6371:; +do{ +*_FUNC_ISNUMBER_LONG_ISNUMBER= 1 ; +if(!qbevent)break;evnt(26070,20127,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free279.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +return *_FUNC_ISNUMBER_LONG_ISNUMBER; +} +qbs* FUNC_BACK2BACKNAME(qbs*_FUNC_BACK2BACKNAME_STRING_A){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data280.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +S_58068:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_BACK2BACKNAME_STRING_A,qbs_new_txt_len("Keyword Reference - Alphabetical",32))))||new_error){ +if(qbevent){evnt(26070,2,"wiki_methods.bas");if(r)goto S_58068;} +do{ +qbs_set(_FUNC_BACK2BACKNAME_STRING_BACK2BACKNAME,qbs_new_txt_len("Alphabetical",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,2,"wiki_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,2,"wiki_methods.bas");}while(r); +} +S_58072:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_BACK2BACKNAME_STRING_A,qbs_new_txt_len("Keyword Reference - By usage",28))))||new_error){ +if(qbevent){evnt(26070,3,"wiki_methods.bas");if(r)goto S_58072;} +do{ +qbs_set(_FUNC_BACK2BACKNAME_STRING_BACK2BACKNAME,qbs_new_txt_len("By Usage",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,3,"wiki_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,3,"wiki_methods.bas");}while(r); +} +S_58076:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_BACK2BACKNAME_STRING_A,qbs_new_txt_len("Keywords currently not supported by QB64",40))))||new_error){ +if(qbevent){evnt(26070,4,"wiki_methods.bas");if(r)goto S_58076;} +do{ +qbs_set(_FUNC_BACK2BACKNAME_STRING_BACK2BACKNAME,qbs_new_txt_len("Unsupported",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,4,"wiki_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,4,"wiki_methods.bas");}while(r); +} +S_58080:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_BACK2BACKNAME_STRING_A,qbs_new_txt_len("QB64 Help Menu",14))))||new_error){ +if(qbevent){evnt(26070,5,"wiki_methods.bas");if(r)goto S_58080;} +do{ +qbs_set(_FUNC_BACK2BACKNAME_STRING_BACK2BACKNAME,qbs_new_txt_len("Help",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,5,"wiki_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,5,"wiki_methods.bas");}while(r); +} +S_58084:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_BACK2BACKNAME_STRING_A,qbs_new_txt_len("QB64 FAQ",8))))||new_error){ +if(qbevent){evnt(26070,6,"wiki_methods.bas");if(r)goto S_58084;} +do{ +qbs_set(_FUNC_BACK2BACKNAME_STRING_BACK2BACKNAME,qbs_new_txt_len("FAQ",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,6,"wiki_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,6,"wiki_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_BACK2BACKNAME_STRING_BACK2BACKNAME,_FUNC_BACK2BACKNAME_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,7,"wiki_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free280.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_BACK2BACKNAME_STRING_BACK2BACKNAME);return _FUNC_BACK2BACKNAME_STRING_BACK2BACKNAME; +} +qbs* FUNC_WIKI(qbs*_FUNC_WIKI_STRING_PAGENAME){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data281.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +S_58089:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(_FUNC_WIKI_STRING_PAGENAME, 9 ),qbs_new_txt_len("Template:",9))))||new_error){ +if(qbevent){evnt(26070,11,"wiki_methods.bas");if(r)goto S_58089;} +do{ +qbs_set(__STRING_HELP_PAGELOADED,_FUNC_WIKI_STRING_PAGENAME); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,11,"wiki_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_WIKI_STRING_PAGENAME2,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,14,"wiki_methods.bas");}while(r); +S_58093:; +fornext_value6378= 1 ; +fornext_finalvalue6378=_FUNC_WIKI_STRING_PAGENAME->len; +fornext_step6378= 1 ; +if (fornext_step6378<0) fornext_step_negative6378=1; else fornext_step_negative6378=0; +if (new_error) goto fornext_error6378; +goto fornext_entrylabel6378; +while(1){ +fornext_value6378=fornext_step6378+(*_FUNC_WIKI_LONG_I); +fornext_entrylabel6378: +*_FUNC_WIKI_LONG_I=fornext_value6378; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative6378){ +if (fornext_value6378fornext_finalvalue6378) break; +} +fornext_error6378:; +if(qbevent){evnt(26070,15,"wiki_methods.bas");if(r)goto S_58093;} +do{ +*_FUNC_WIKI_LONG_C=qbs_asc(_FUNC_WIKI_STRING_PAGENAME,*_FUNC_WIKI_LONG_I); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,16,"wiki_methods.bas");}while(r); +S_58095:; +if(qbevent){evnt(26070,17,"wiki_methods.bas");if(r)goto S_58095;} +S_58096:; +if (((*_FUNC_WIKI_LONG_C==( 32 )))||new_error){ +if(qbevent){evnt(26070,18,"wiki_methods.bas");if(r)goto S_58096;} +do{ +qbs_set(_FUNC_WIKI_STRING_PAGENAME2,qbs_add(_FUNC_WIKI_STRING_PAGENAME2,qbs_new_txt_len("_",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,19,"wiki_methods.bas");}while(r); +sc_ec_441_end:; +goto sc_6380_end; +} +S_58098:; +if (((*_FUNC_WIKI_LONG_C==( 34 ))||(*_FUNC_WIKI_LONG_C==( 36 ))||(*_FUNC_WIKI_LONG_C==( 38 ))||(*_FUNC_WIKI_LONG_C==( 42 ))||(*_FUNC_WIKI_LONG_C==( 43 ))||(*_FUNC_WIKI_LONG_C==( 47 ))||(*_FUNC_WIKI_LONG_C==( 58 ))||(*_FUNC_WIKI_LONG_C==( 60 ))||(*_FUNC_WIKI_LONG_C==( 62 ))||(*_FUNC_WIKI_LONG_C==( 63 ))||(*_FUNC_WIKI_LONG_C==( 92 ))||(*_FUNC_WIKI_LONG_C==( 124 )))||new_error){ +if(qbevent){evnt(26070,20,"wiki_methods.bas");if(r)goto S_58098;} +do{ +qbs_set(_FUNC_WIKI_STRING_PAGENAME2,qbs_add(qbs_add(_FUNC_WIKI_STRING_PAGENAME2,qbs_new_txt_len("%",1)),func_hex(*_FUNC_WIKI_LONG_C,8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,21,"wiki_methods.bas");}while(r); +sc_ec_442_end:; +goto sc_6380_end; +} +do{ +qbs_set(_FUNC_WIKI_STRING_PAGENAME2,qbs_add(_FUNC_WIKI_STRING_PAGENAME2,func_chr(*_FUNC_WIKI_LONG_C))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,23,"wiki_methods.bas");}while(r); +sc_6380_end:; +fornext_continue_6377:; +} +fornext_exit_6377:; +do{ +qbs_set(_FUNC_WIKI_STRING_PAGENAME3,FUNC_WIKISAFENAME(_FUNC_WIKI_STRING_PAGENAME2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,26,"wiki_methods.bas");}while(r); +S_58105:; +if ((-(*__LONG_HELP_IGNORECACHE== 0 ))||new_error){ +if(qbevent){evnt(26070,29,"wiki_methods.bas");if(r)goto S_58105;} +S_58106:; +if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(__STRING_CACHE_FOLDER,qbs_new_txt_len("/",1)),_FUNC_WIKI_STRING_PAGENAME3),qbs_new_txt_len(".txt",4)))))||new_error){ +if(qbevent){evnt(26070,30,"wiki_methods.bas");if(r)goto S_58106;} +do{ +*_FUNC_WIKI_LONG_FH=func_freefile(); +if(!qbevent)break;evnt(26070,31,"wiki_methods.bas");}while(r); +do{ +sub_open(qbs_add(qbs_add(qbs_add(__STRING_CACHE_FOLDER,qbs_new_txt_len("/",1)),_FUNC_WIKI_STRING_PAGENAME3),qbs_new_txt_len(".txt",4)), 2 ,NULL,NULL,*_FUNC_WIKI_LONG_FH,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,32,"wiki_methods.bas");}while(r); +do{ +qbs_set(_FUNC_WIKI_STRING_A,func_space(func_lof(*_FUNC_WIKI_LONG_FH))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,33,"wiki_methods.bas");}while(r); +do{ +sub_get2(*_FUNC_WIKI_LONG_FH,NULL,_FUNC_WIKI_STRING_A,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,34,"wiki_methods.bas");}while(r); +do{ +sub_close(*_FUNC_WIKI_LONG_FH,1); +if(!qbevent)break;evnt(26070,35,"wiki_methods.bas");}while(r); +do{ +qbs_set(_FUNC_WIKI_STRING_WIKI,FUNC_STRREPLACE(_FUNC_WIKI_STRING_A,qbs_add(func_chr( 13 ),func_chr( 10 )),func_chr( 10 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,36,"wiki_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,37,"wiki_methods.bas");}while(r); +} +} +S_58116:; +if ((-(*__LONG_HELP_RECACHING== 0 ))||new_error){ +if(qbevent){evnt(26070,42,"wiki_methods.bas");if(r)goto S_58116;} +do{ +qbs_set(_FUNC_WIKI_STRING_A,qbs_add(qbs_add(qbs_new_txt_len("Downloading '",13),_FUNC_WIKI_STRING_PAGENAME),qbs_new_txt_len("' page...",9))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,43,"wiki_methods.bas");}while(r); +S_58118:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_WIKI_STRING_A->len> 60 )))||new_error){ +if(qbevent){evnt(26070,44,"wiki_methods.bas");if(r)goto S_58118;} +do{ +qbs_set(_FUNC_WIKI_STRING_A,qbs_add(qbs_left(_FUNC_WIKI_STRING_A, 57 ),func_string( 3 , 250 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,44,"wiki_methods.bas");}while(r); +} +S_58121:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_WIKI_STRING_A->len< 60 )))||new_error){ +if(qbevent){evnt(26070,45,"wiki_methods.bas");if(r)goto S_58121;} +do{ +qbs_set(_FUNC_WIKI_STRING_A,qbs_add(_FUNC_WIKI_STRING_A,func_space( 60 -_FUNC_WIKI_STRING_A->len))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,45,"wiki_methods.bas");}while(r); +} +do{ +qbg_sub_color( 0 , 3 ,NULL,3); +if(!qbevent)break;evnt(26070,47,"wiki_methods.bas");}while(r); +do{ +qbg_sub_locate(*__LONG_IDEWY+*__LONG_IDESUBWINDOW, 2 ,NULL,NULL,NULL,3); +if(!qbevent)break;evnt(26070,47,"wiki_methods.bas");}while(r); +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,_FUNC_WIKI_STRING_A); +if (new_error) goto skip6384; +makefit(tqbs); +qbs_print(tqbs,0); +skip6384: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,48,"wiki_methods.bas");}while(r); +do{ +sub_pcopy( 3 , 0 ); +if(!qbevent)break;evnt(26070,50,"wiki_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_WIKI_STRING_URL,qbs_add(qbs_add(qbs_add(__STRING_WIKIBASEADDRESS,qbs_new_txt_len("/index.php?title=",17)),_FUNC_WIKI_STRING_PAGENAME2),qbs_new_txt_len("&action=edit",12))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,54,"wiki_methods.bas");}while(r); +do{ +qbs_set(_FUNC_WIKI_STRING_OUTPUTFILE,qbs_add(qbs_add(qbs_add(__STRING_CACHE_FOLDER,qbs_new_txt_len("/",1)),_FUNC_WIKI_STRING_PAGENAME3),qbs_new_txt_len(".txt",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,55,"wiki_methods.bas");}while(r); +do{ +qbs_set(_FUNC_WIKI_STRING_S1,qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("name=",5),func_chr( 34 )),qbs_new_txt_len("wpTextbox1",10)),func_chr( 34 )),qbs_new_txt_len(">",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,57,"wiki_methods.bas");}while(r); +do{ +qbs_set(_FUNC_WIKI_STRING_S2,qbs_new_txt_len("",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,58,"wiki_methods.bas");}while(r); +S_58133:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_FUNC_WIKI_STRING_PAGENAME,qbs_new_txt_len("Initialize",10)))|(qbs_equal(_FUNC_WIKI_STRING_PAGENAME,qbs_new_txt_len("Update All",10)))))||new_error){ +if(qbevent){evnt(26070,61,"wiki_methods.bas");if(r)goto S_58133;} +do{ +qbs_set(_FUNC_WIKI_STRING_A,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,62,"wiki_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_WIKI_STRING_A,FUNC_WIKIDLPAGE(_FUNC_WIKI_STRING_URL,&(pass6385= 15 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,64,"wiki_methods.bas");}while(r); +S_58137:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_FUNC_WIKI_STRING_A,qbs_new_txt_len("Login required",14),0)> 0 )))||new_error){ +if(qbevent){evnt(26070,65,"wiki_methods.bas");if(r)goto S_58137;} +do{ +qbs_set(_FUNC_WIKI_STRING_A,qbs_add(_FUNC_WIKI_STRING_S1,_FUNC_WIKI_STRING_S2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,65,"wiki_methods.bas");}while(r); +} +} +do{ +*_FUNC_WIKI_LONG_S1=func_instr(NULL,_FUNC_WIKI_STRING_A,_FUNC_WIKI_STRING_S1,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,69,"wiki_methods.bas");}while(r); +S_58142:; +if ((-(*_FUNC_WIKI_LONG_S1> 0 ))||new_error){ +if(qbevent){evnt(26070,70,"wiki_methods.bas");if(r)goto S_58142;} +do{ +qbs_set(_FUNC_WIKI_STRING_A,func_mid(_FUNC_WIKI_STRING_A,*_FUNC_WIKI_LONG_S1+_FUNC_WIKI_STRING_S1->len,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,70,"wiki_methods.bas");}while(r); +do{ +*_FUNC_WIKI_LONG_S2=func_instr(NULL,_FUNC_WIKI_STRING_A,_FUNC_WIKI_STRING_S2,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,70,"wiki_methods.bas");}while(r); +}else{ +do{ +*_FUNC_WIKI_LONG_S2= 0 ; +if(!qbevent)break;evnt(26070,70,"wiki_methods.bas");}while(r); +} +S_58148:; +if ((-(*_FUNC_WIKI_LONG_S2> 0 ))||new_error){ +if(qbevent){evnt(26070,71,"wiki_methods.bas");if(r)goto S_58148;} +do{ +qbs_set(_FUNC_WIKI_STRING_A,qbs_left(_FUNC_WIKI_STRING_A,*_FUNC_WIKI_LONG_S2- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,71,"wiki_methods.bas");}while(r); +} +S_58151:; +if (((-(*_FUNC_WIKI_LONG_S1> 0 ))&(-(*_FUNC_WIKI_LONG_S2> 0 )))||new_error){ +if(qbevent){evnt(26070,72,"wiki_methods.bas");if(r)goto S_58151;} +S_58152:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_WIKI_STRING_A,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,73,"wiki_methods.bas");if(r)goto S_58152;} +S_58153:; +while((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_FUNC_WIKI_STRING_A,qbs_new_txt_len("&",5),0)> 0 )))||new_error){ +if(qbevent){evnt(26070,76,"wiki_methods.bas");if(r)goto S_58153;} +do{ +qbs_set(_FUNC_WIKI_STRING_A,FUNC_STRREPLACE(_FUNC_WIKI_STRING_A,qbs_new_txt_len("&",5),qbs_new_txt_len("&",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,77,"wiki_methods.bas");}while(r); +ww_continue_6387:; +} +ww_exit_6387:; +do{ +qbs_set(_FUNC_WIKI_STRING_A,FUNC_STRREPLACE(_FUNC_WIKI_STRING_A,qbs_new_txt_len("<",4),qbs_new_txt_len("<",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,79,"wiki_methods.bas");}while(r); +do{ +qbs_set(_FUNC_WIKI_STRING_A,FUNC_STRREPLACE(_FUNC_WIKI_STRING_A,qbs_new_txt_len(">",4),qbs_new_txt_len(">",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,80,"wiki_methods.bas");}while(r); +do{ +qbs_set(_FUNC_WIKI_STRING_A,FUNC_STRREPLACE(_FUNC_WIKI_STRING_A,qbs_new_txt_len(""",6),func_chr( 34 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,81,"wiki_methods.bas");}while(r); +do{ +qbs_set(_FUNC_WIKI_STRING_A,FUNC_STRREPLACE(_FUNC_WIKI_STRING_A,qbs_new_txt_len("#REDIRECT",9),qbs_new_txt_len("See page",8))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,83,"wiki_methods.bas");}while(r); +do{ +qbs_set(_FUNC_WIKI_STRING_A,FUNC_STRREPLACE(_FUNC_WIKI_STRING_A,qbs_add(func_chr( 13 ),func_chr( 10 )),func_chr( 10 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,84,"wiki_methods.bas");}while(r); +S_58161:; +while((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_FUNC_WIKI_STRING_A, 1 ),func_chr( 10 ))))||new_error){ +if(qbevent){evnt(26070,85,"wiki_methods.bas");if(r)goto S_58161;} +do{ +qbs_set(_FUNC_WIKI_STRING_A,func_mid(_FUNC_WIKI_STRING_A, 2 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,85,"wiki_methods.bas");}while(r); +ww_continue_6388:; +} +ww_exit_6388:; +S_58164:; +if ((qbs_cleanup(qbs_tmp_base,(-(_FUNC_WIKI_STRING_A->len> 0 ))&(qbs_notequal(qbs_right(_FUNC_WIKI_STRING_A, 1 ),func_chr( 10 )))))||new_error){ +if(qbevent){evnt(26070,86,"wiki_methods.bas");if(r)goto S_58164;} +do{ +qbs_set(_FUNC_WIKI_STRING_A,qbs_add(_FUNC_WIKI_STRING_A,func_chr( 10 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,86,"wiki_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_WIKI_STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("{{QBDLDATE:",11),func_date()),qbs_new_txt_len("}}",2)),func_chr( 10 )),qbs_new_txt_len("{{QBDLTIME:",11)),func_time()),qbs_new_txt_len("}}",2)),func_chr( 10 )),_FUNC_WIKI_STRING_A)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,88,"wiki_methods.bas");}while(r); +do{ +*_FUNC_WIKI_LONG_FH=func_freefile(); +if(!qbevent)break;evnt(26070,90,"wiki_methods.bas");}while(r); +do{ +sub_open(_FUNC_WIKI_STRING_OUTPUTFILE, 4 ,NULL,NULL,*_FUNC_WIKI_LONG_FH,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,91,"wiki_methods.bas");}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*_FUNC_WIKI_LONG_FH; +if (new_error) goto skip6390; +sub_file_print(tmp_fileno,_FUNC_WIKI_STRING_A, 0, 0, 0); +if (new_error) goto skip6390; +skip6390: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(26070,92,"wiki_methods.bas");}while(r); +do{ +sub_close(*_FUNC_WIKI_LONG_FH,1); +if(!qbevent)break;evnt(26070,93,"wiki_methods.bas");}while(r); +}else{ +S_58173:; +if ((qbs_cleanup(qbs_tmp_base,func__fileexists(_FUNC_WIKI_STRING_OUTPUTFILE)))||new_error){ +if(qbevent){evnt(26070,96,"wiki_methods.bas");if(r)goto S_58173;} +do{ +sub_kill(_FUNC_WIKI_STRING_OUTPUTFILE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,97,"wiki_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_WIKI_STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(func_chr( 10 ),qbs_new_txt_len("{{PageInternalError}}",21)),func_chr( 10 )),qbs_new_txt_len("* The requested page is not yet available in the Wiki.",54)),func_chr( 10 )),qbs_new_txt_len("** If this is a new keyword, which was recently added to the language, then ",76)),qbs_new_txt_len("please allow some time for the developers to add it and recheck later.",70)),func_chr( 10 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,103,"wiki_methods.bas");}while(r); +} +} +}else{ +do{ +qbs_set(_FUNC_WIKI_STRING_A,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(func_chr( 10 ),qbs_new_txt_len("{{PageInternalError}}",21)),func_chr( 10 )),qbs_new_txt_len("* For some unknown reason the download of the requested page failed.",68)),func_chr( 10 )),qbs_new_txt_len("** You may try ''Update Current Page'' from the ''Help'' menu.",62)),func_chr( 10 )),qbs_new_txt_len(";Note:This may also just be a temporary server issue. If the problem persists ",78)),qbs_new_txt_len("after waiting some time, then please feel free to leave us a message.",69)),func_chr( 10 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,112,"wiki_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_WIKI_STRING_WIKI,_FUNC_WIKI_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,115,"wiki_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free281.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_WIKI_STRING_WIKI);return _FUNC_WIKI_STRING_WIKI; +} +void SUB_HELP_ADDTXT(qbs*_SUB_HELP_ADDTXT_STRING_T,int32*_SUB_HELP_ADDTXT_LONG_COL,int32*_SUB_HELP_ADDTXT_LONG_LINK){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data282.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +S_58183:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_HELP_ADDTXT_STRING_T,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,119,"wiki_methods.bas");if(r)goto S_58183;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,119,"wiki_methods.bas");}while(r); +} +S_58186:; +if ((-(*__LONG_HELP_CHKBLANK!= 0 ))||new_error){ +if(qbevent){evnt(26070,120,"wiki_methods.bas");if(r)goto S_58186;} +do{ +SUB_HELP_CHECKBLANKLINE(); +if(!qbevent)break;evnt(26070,120,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_CHKBLANK= 0 ; +if(!qbevent)break;evnt(26070,120,"wiki_methods.bas");}while(r); +} +S_58190:; +fornext_value6393= 1 ; +fornext_finalvalue6393=_SUB_HELP_ADDTXT_STRING_T->len; +fornext_step6393= 1 ; +if (fornext_step6393<0) fornext_step_negative6393=1; else fornext_step_negative6393=0; +if (new_error) goto fornext_error6393; +goto fornext_entrylabel6393; +while(1){ +fornext_value6393=fornext_step6393+(*_SUB_HELP_ADDTXT_LONG_I); +fornext_entrylabel6393: +*_SUB_HELP_ADDTXT_LONG_I=fornext_value6393; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative6393){ +if (fornext_value6393fornext_finalvalue6393) break; +} +fornext_error6393:; +if(qbevent){evnt(26070,122,"wiki_methods.bas");if(r)goto S_58190;} +do{ +*_SUB_HELP_ADDTXT_LONG_C=qbs_asc(_SUB_HELP_ADDTXT_STRING_T,*_SUB_HELP_ADDTXT_LONG_I); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,123,"wiki_methods.bas");}while(r); +S_58192:; +if (((((-(*__LONG_HELP_LOCKPARSE== -1 ))|(-(*__LONG_HELP_LOCKPARSE== 0 ))))&(-(*__LONG_HELP_LOCKWRAP== 0 )))||new_error){ +if(qbevent){evnt(26070,125,"wiki_methods.bas");if(r)goto S_58192;} +S_58193:; +if ((-(*_SUB_HELP_ADDTXT_LONG_C== 32 ))||new_error){ +if(qbevent){evnt(26070,127,"wiki_methods.bas");if(r)goto S_58193;} +S_58194:; +if ((-(*__LONG_HELP_POS==*__LONG_HELP_WW))||new_error){ +if(qbevent){evnt(26070,128,"wiki_methods.bas");if(r)goto S_58194;} +do{ +SUB_HELP_NEWLINE(); +if(!qbevent)break;evnt(26070,128,"wiki_methods.bas");}while(r); +do{ +goto fornext_continue_6392; +if(!qbevent)break;evnt(26070,128,"wiki_methods.bas");}while(r); +} +do{ +*__LONG_HELP_TXT_LEN=*__LONG_HELP_TXT_LEN+ 1 ; +if(!qbevent)break;evnt(26070,130,"wiki_methods.bas");}while(r); +do{ +tqbs=__STRING_HELP_TXT; if (!new_error){ +tmp_fileno=*__LONG_HELP_TXT_LEN; if (!new_error){ +tmp_long= 32 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26070,130,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_TXT_LEN=*__LONG_HELP_TXT_LEN+ 1 ; +if(!qbevent)break;evnt(26070,131,"wiki_methods.bas");}while(r); +do{ +tqbs=__STRING_HELP_TXT; if (!new_error){ +tmp_fileno=*__LONG_HELP_TXT_LEN; if (!new_error){ +tmp_long=*_SUB_HELP_ADDTXT_LONG_COL+(*__LONG_HELP_BG_COL* 16 ); if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26070,131,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_TXT_LEN=*__LONG_HELP_TXT_LEN+ 1 ; +if(!qbevent)break;evnt(26070,132,"wiki_methods.bas");}while(r); +do{ +tqbs=__STRING_HELP_TXT; if (!new_error){ +tmp_fileno=*__LONG_HELP_TXT_LEN; if (!new_error){ +tmp_long=*_SUB_HELP_ADDTXT_LONG_LINK& 255 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26070,132,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_TXT_LEN=*__LONG_HELP_TXT_LEN+ 1 ; +if(!qbevent)break;evnt(26070,133,"wiki_methods.bas");}while(r); +do{ +tqbs=__STRING_HELP_TXT; if (!new_error){ +tmp_fileno=*__LONG_HELP_TXT_LEN; if (!new_error){ +tmp_long=*_SUB_HELP_ADDTXT_LONG_LINK/ 256 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26070,133,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_WRAP_POS=*__LONG_HELP_TXT_LEN; +if(!qbevent)break;evnt(26070,135,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_POS=*__LONG_HELP_POS+ 1 ; +if(!qbevent)break;evnt(26070,136,"wiki_methods.bas");}while(r); +do{ +goto fornext_continue_6392; +if(!qbevent)break;evnt(26070,136,"wiki_methods.bas");}while(r); +} +S_58210:; +if ((-(*__LONG_HELP_POS>*__LONG_HELP_WW))||new_error){ +if(qbevent){evnt(26070,139,"wiki_methods.bas");if(r)goto S_58210;} +S_58211:; +if ((*__LONG_HELP_WRAP_POS)||new_error){ +if(qbevent){evnt(26070,140,"wiki_methods.bas");if(r)goto S_58211;} +do{ +qbs_set(_SUB_HELP_ADDTXT_STRING_B,func_mid(__STRING_HELP_TXT,*__LONG_HELP_WRAP_POS+ 1 ,*__LONG_HELP_TXT_LEN-*__LONG_HELP_WRAP_POS,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,143,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_TXT_LEN=*__LONG_HELP_WRAP_POS; +if(!qbevent)break;evnt(26070,145,"wiki_methods.bas");}while(r); +do{ +SUB_HELP_NEWLINE(); +if(!qbevent)break;evnt(26070,147,"wiki_methods.bas");}while(r); +do{ +sub_mid(__STRING_HELP_TXT,*__LONG_HELP_TXT_LEN+ 1 ,_SUB_HELP_ADDTXT_STRING_B->len,_SUB_HELP_ADDTXT_STRING_B,1); +if(!qbevent)break;evnt(26070,149,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_TXT_LEN=*__LONG_HELP_TXT_LEN+_SUB_HELP_ADDTXT_STRING_B->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,149,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_POS=*__LONG_HELP_POS+(_SUB_HELP_ADDTXT_STRING_B->len/ 4 ); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,151,"wiki_methods.bas");}while(r); +} +} +} +do{ +*__LONG_HELP_TXT_LEN=*__LONG_HELP_TXT_LEN+ 1 ; +if(!qbevent)break;evnt(26070,157,"wiki_methods.bas");}while(r); +do{ +tqbs=__STRING_HELP_TXT; if (!new_error){ +tmp_fileno=*__LONG_HELP_TXT_LEN; if (!new_error){ +tmp_long=*_SUB_HELP_ADDTXT_LONG_C; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26070,157,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_TXT_LEN=*__LONG_HELP_TXT_LEN+ 1 ; +if(!qbevent)break;evnt(26070,158,"wiki_methods.bas");}while(r); +do{ +tqbs=__STRING_HELP_TXT; if (!new_error){ +tmp_fileno=*__LONG_HELP_TXT_LEN; if (!new_error){ +tmp_long=*_SUB_HELP_ADDTXT_LONG_COL+(*__LONG_HELP_BG_COL* 16 ); if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26070,158,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_TXT_LEN=*__LONG_HELP_TXT_LEN+ 1 ; +if(!qbevent)break;evnt(26070,159,"wiki_methods.bas");}while(r); +do{ +tqbs=__STRING_HELP_TXT; if (!new_error){ +tmp_fileno=*__LONG_HELP_TXT_LEN; if (!new_error){ +tmp_long=*_SUB_HELP_ADDTXT_LONG_LINK& 255 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26070,159,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_TXT_LEN=*__LONG_HELP_TXT_LEN+ 1 ; +if(!qbevent)break;evnt(26070,160,"wiki_methods.bas");}while(r); +do{ +tqbs=__STRING_HELP_TXT; if (!new_error){ +tmp_fileno=*__LONG_HELP_TXT_LEN; if (!new_error){ +tmp_long=*_SUB_HELP_ADDTXT_LONG_LINK/ 256 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26070,160,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_POS=*__LONG_HELP_POS+ 1 ; +if(!qbevent)break;evnt(26070,162,"wiki_methods.bas");}while(r); +fornext_continue_6392:; +} +fornext_exit_6392:; +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free282.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +void SUB_HELP_NEWLINE(){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data283.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +S_58231:; +if ((-(*__LONG_HELP_POS>*__LONG_HELP_W))||new_error){ +if(qbevent){evnt(26070,167,"wiki_methods.bas");if(r)goto S_58231;} +do{ +*__LONG_HELP_W=*__LONG_HELP_POS; +if(!qbevent)break;evnt(26070,167,"wiki_methods.bas");}while(r); +} +do{ +*__LONG_HELP_TXT_LEN=*__LONG_HELP_TXT_LEN+ 1 ; +if(!qbevent)break;evnt(26070,169,"wiki_methods.bas");}while(r); +do{ +tqbs=__STRING_HELP_TXT; if (!new_error){ +tmp_fileno=*__LONG_HELP_TXT_LEN; if (!new_error){ +tmp_long= 13 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26070,169,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_TXT_LEN=*__LONG_HELP_TXT_LEN+ 1 ; +if(!qbevent)break;evnt(26070,170,"wiki_methods.bas");}while(r); +do{ +tqbs=__STRING_HELP_TXT; if (!new_error){ +tmp_fileno=*__LONG_HELP_TXT_LEN; if (!new_error){ +tmp_long= 128 +(*__LONG_HELP_BG_COL* 16 ); if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26070,170,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_TXT_LEN=*__LONG_HELP_TXT_LEN+ 1 ; +if(!qbevent)break;evnt(26070,171,"wiki_methods.bas");}while(r); +do{ +tqbs=__STRING_HELP_TXT; if (!new_error){ +tmp_fileno=*__LONG_HELP_TXT_LEN; if (!new_error){ +tmp_long= 0 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26070,171,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_TXT_LEN=*__LONG_HELP_TXT_LEN+ 1 ; +if(!qbevent)break;evnt(26070,172,"wiki_methods.bas");}while(r); +do{ +tqbs=__STRING_HELP_TXT; if (!new_error){ +tmp_fileno=*__LONG_HELP_TXT_LEN; if (!new_error){ +tmp_long= 0 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26070,172,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_H=*__LONG_HELP_H+ 1 ; +if(!qbevent)break;evnt(26070,174,"wiki_methods.bas");}while(r); +do{ +qbs_set(__STRING_HELP_LINE,qbs_add(__STRING_HELP_LINE,l2string(*__LONG_HELP_TXT_LEN+ 1 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,175,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_WRAP_POS= 0 ; +if(!qbevent)break;evnt(26070,176,"wiki_methods.bas");}while(r); +S_58245:; +if ((-(*__LONG_HELP_UNDERLINE> 0 ))||new_error){ +if(qbevent){evnt(26070,178,"wiki_methods.bas");if(r)goto S_58245;} +do{ +*_SUB_HELP_NEWLINE_LONG_W=*__LONG_HELP_POS; +if(!qbevent)break;evnt(26070,179,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_POS= 1 ; +if(!qbevent)break;evnt(26070,180,"wiki_methods.bas");}while(r); +S_58248:; +if ((-(*__LONG_HELP_UNDERLINE== 2 ))||new_error){ +if(qbevent){evnt(26070,181,"wiki_methods.bas");if(r)goto S_58248;} +do{ +SUB_HELP_ADDTXT(func_string(*_SUB_HELP_NEWLINE_LONG_W- 1 , 205 ),__LONG_HELP_COL_SECTION,&(pass6398= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,182,"wiki_methods.bas");}while(r); +}else{ +do{ +SUB_HELP_ADDTXT(func_string(*_SUB_HELP_NEWLINE_LONG_W- 1 , 196 ),__LONG_HELP_COL_SECTION,&(pass6399= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,184,"wiki_methods.bas");}while(r); +} +do{ +*__LONG_HELP_UNDERLINE= 0 ; +if(!qbevent)break;evnt(26070,186,"wiki_methods.bas");}while(r); +do{ +SUB_HELP_NEWLINE(); +if(!qbevent)break;evnt(26070,187,"wiki_methods.bas");}while(r); +} +do{ +*__LONG_HELP_POS= 1 ; +if(!qbevent)break;evnt(26070,189,"wiki_methods.bas");}while(r); +S_58257:; +if ((-(*__LONG_HELP_CHKBLANK== 0 ))||new_error){ +if(qbevent){evnt(26070,191,"wiki_methods.bas");if(r)goto S_58257;} +S_58258:; +if ((-(*__LONG_HELP_CENTER> 0 ))||new_error){ +if(qbevent){evnt(26070,192,"wiki_methods.bas");if(r)goto S_58258;} +do{ +qbs_set(__STRING_HELP_LINDENT,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,193,"wiki_methods.bas");}while(r); +do{ +SUB_HELP_ADDTXT(func_space(qbs_asc(__STRING_HELP_CINDENT, 1 )),&(pass6400=FUNC_HELP_COL()),&(pass6401= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,194,"wiki_methods.bas");}while(r); +do{ +qbs_set(__STRING_HELP_CINDENT,func_mid(__STRING_HELP_CINDENT, 2 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,195,"wiki_methods.bas");}while(r); +S_58262:; +}else{ +if (qbs_cleanup(qbs_tmp_base,qbs_notequal(__STRING_HELP_LINDENT,qbs_new_txt_len("",0)))){ +if(qbevent){evnt(26070,196,"wiki_methods.bas");if(r)goto S_58262;} +do{ +SUB_HELP_ADDTXT(__STRING_HELP_LINDENT,&(pass6402= 11 ),&(pass6403= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,197,"wiki_methods.bas");}while(r); +} +} +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free283.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +void SUB_HELP_CHECKFINISHLINE(){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data284.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +S_58266:; +if ((-(*__LONG_HELP_TXT_LEN>= 4 ))||new_error){ +if(qbevent){evnt(26070,203,"wiki_methods.bas");if(r)goto S_58266;} +S_58267:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_HELP_TXT,*__LONG_HELP_TXT_LEN- 2 )< 128 )))||new_error){ +if(qbevent){evnt(26070,204,"wiki_methods.bas");if(r)goto S_58267;} +do{ +SUB_HELP_NEWLINE(); +if(!qbevent)break;evnt(26070,204,"wiki_methods.bas");}while(r); +} +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free284.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +void SUB_HELP_CHECKBLANKLINE(){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data285.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +S_58271:; +if ((-(*__LONG_HELP_TXT_LEN>= 8 ))||new_error){ +if(qbevent){evnt(26070,209,"wiki_methods.bas");if(r)goto S_58271;} +S_58272:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_HELP_TXT,*__LONG_HELP_TXT_LEN- 2 )< 128 )))||new_error){ +if(qbevent){evnt(26070,210,"wiki_methods.bas");if(r)goto S_58272;} +do{ +SUB_HELP_NEWLINE(); +if(!qbevent)break;evnt(26070,210,"wiki_methods.bas");}while(r); +} +S_58275:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_HELP_TXT,*__LONG_HELP_TXT_LEN- 6 )< 128 )))||new_error){ +if(qbevent){evnt(26070,211,"wiki_methods.bas");if(r)goto S_58275;} +do{ +SUB_HELP_NEWLINE(); +if(!qbevent)break;evnt(26070,211,"wiki_methods.bas");}while(r); +} +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free285.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +void SUB_HELP_CHECKREMOVEBLANKLINE(){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data286.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +S_58279:; +if ((-(*__LONG_HELP_TXT_LEN>= 8 ))||new_error){ +if(qbevent){evnt(26070,216,"wiki_methods.bas");if(r)goto S_58279;} +S_58280:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_HELP_TXT,*__LONG_HELP_TXT_LEN- 2 )> 127 )))||new_error){ +if(qbevent){evnt(26070,217,"wiki_methods.bas");if(r)goto S_58280;} +do{ +*__LONG_HELP_TXT_LEN=*__LONG_HELP_TXT_LEN- 4 ; +if(!qbevent)break;evnt(26070,218,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_H=*__LONG_HELP_H- 1 ; +if(!qbevent)break;evnt(26070,219,"wiki_methods.bas");}while(r); +do{ +qbs_set(__STRING_HELP_LINE,qbs_left(__STRING_HELP_LINE,__STRING_HELP_LINE->len- 4 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,220,"wiki_methods.bas");}while(r); +} +S_58285:; +fornext_value6406=*__LONG_HELP_TXT_LEN- 3 ; +fornext_finalvalue6406= 1 ; +fornext_step6406= -4 ; +if (fornext_step6406<0) fornext_step_negative6406=1; else fornext_step_negative6406=0; +if (new_error) goto fornext_error6406; +goto fornext_entrylabel6406; +while(1){ +fornext_value6406=fornext_step6406+(*_SUB_HELP_CHECKREMOVEBLANKLINE_LONG_I); +fornext_entrylabel6406: +*_SUB_HELP_CHECKREMOVEBLANKLINE_LONG_I=fornext_value6406; +if (fornext_step_negative6406){ +if (fornext_value6406fornext_finalvalue6406) break; +} +fornext_error6406:; +if(qbevent){evnt(26070,222,"wiki_methods.bas");if(r)goto S_58285;} +S_58286:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_HELP_TXT,*_SUB_HELP_CHECKREMOVEBLANKLINE_LONG_I)!= 32 )))||new_error){ +if(qbevent){evnt(26070,223,"wiki_methods.bas");if(r)goto S_58286;} +do{ +*__LONG_HELP_TXT_LEN=*_SUB_HELP_CHECKREMOVEBLANKLINE_LONG_I+ 3 ; +if(!qbevent)break;evnt(26070,224,"wiki_methods.bas");}while(r); +do{ +goto fornext_exit_6405; +if(!qbevent)break;evnt(26070,224,"wiki_methods.bas");}while(r); +} +fornext_continue_6405:; +} +fornext_exit_6405:; +S_58291:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_HELP_TXT,*__LONG_HELP_TXT_LEN- 2 )< 128 )))||new_error){ +if(qbevent){evnt(26070,227,"wiki_methods.bas");if(r)goto S_58291;} +do{ +SUB_HELP_NEWLINE(); +if(!qbevent)break;evnt(26070,227,"wiki_methods.bas");}while(r); +} +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free286.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +int32 FUNC_HELP_COL(){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data287.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +*_FUNC_HELP_COL_LONG_COL=*__LONG_HELP_COL_NORMAL; +if(!qbevent)break;evnt(26070,232,"wiki_methods.bas");}while(r); +S_58296:; +if ((*__LONG_HELP_ITALIC)||new_error){ +if(qbevent){evnt(26070,233,"wiki_methods.bas");if(r)goto S_58296;} +do{ +*_FUNC_HELP_COL_LONG_COL=*__LONG_HELP_COL_ITALIC; +if(!qbevent)break;evnt(26070,233,"wiki_methods.bas");}while(r); +} +S_58299:; +if ((*__LONG_HELP_BOLD)||new_error){ +if(qbevent){evnt(26070,234,"wiki_methods.bas");if(r)goto S_58299;} +do{ +*_FUNC_HELP_COL_LONG_COL=*__LONG_HELP_COL_BOLD; +if(!qbevent)break;evnt(26070,234,"wiki_methods.bas");}while(r); +} +S_58302:; +if ((*__LONG_HELP_HEADING)||new_error){ +if(qbevent){evnt(26070,235,"wiki_methods.bas");if(r)goto S_58302;} +do{ +*_FUNC_HELP_COL_LONG_COL=*__LONG_HELP_COL_SECTION; +if(!qbevent)break;evnt(26070,235,"wiki_methods.bas");}while(r); +} +S_58305:; +if ((*__LONG_HELP_LINKTXT)||new_error){ +if(qbevent){evnt(26070,236,"wiki_methods.bas");if(r)goto S_58305;} +S_58306:; +if ((-(*__LONG_HELP_LOCKPARSE== 0 ))||new_error){ +if(qbevent){evnt(26070,238,"wiki_methods.bas");if(r)goto S_58306;} +do{ +*_FUNC_HELP_COL_LONG_COL=*__LONG_HELP_COL_LINK; +if(!qbevent)break;evnt(26070,238,"wiki_methods.bas");}while(r); +}else{ +do{ +*_FUNC_HELP_COL_LONG_COL=*__LONG_HELP_COL_ITALIC; +if(!qbevent)break;evnt(26070,238,"wiki_methods.bas");}while(r); +} +} +do{ +*_FUNC_HELP_COL_LONG_HELP_COL=*_FUNC_HELP_COL_LONG_COL; +if(!qbevent)break;evnt(26070,240,"wiki_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free287.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +return *_FUNC_HELP_COL_LONG_HELP_COL; +} +void SUB_WIKIPARSE(qbs*_SUB_WIKIPARSE_STRING_A){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data288.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +*__LONG_HELP_H= 0 ; +if(!qbevent)break;evnt(26070,246,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_W= 0 ; +if(!qbevent)break;evnt(26070,246,"wiki_methods.bas");}while(r); +do{ +qbs_set(__STRING_HELP_LINE,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,247,"wiki_methods.bas");}while(r); +do{ +qbs_set(__STRING_HELP_TXT,func_space( 1000000 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,247,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_TXT_LEN= 0 ; +if(!qbevent)break;evnt(26070,247,"wiki_methods.bas");}while(r); +do{ +qbs_set(__STRING_HELP_LINK,qbs_add(qbs_new_txt_len("SECT:dummylink",14),__STRING_HELP_LINK_SEP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,248,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_LINKN= 1 ; +if(!qbevent)break;evnt(26070,248,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_POS= 1 ; +if(!qbevent)break;evnt(26070,250,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_WRAP_POS= 0 ; +if(!qbevent)break;evnt(26070,250,"wiki_methods.bas");}while(r); +do{ +qbs_set(__STRING_HELP_LINE,l2string( 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,251,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_LOCKWRAP= 0 ; +if(!qbevent)break;evnt(26070,253,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_LOCKPARSE= 0 ; +if(!qbevent)break;evnt(26070,262,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_BOLD= 0 ; +if(!qbevent)break;evnt(26070,263,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_ITALIC= 0 ; +if(!qbevent)break;evnt(26070,263,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_LINKTXT= 0 ; +if(!qbevent)break;evnt(26070,263,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_HEADING= 0 ; +if(!qbevent)break;evnt(26070,263,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_UNDERLINE= 0 ; +if(!qbevent)break;evnt(26070,264,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_BG_COL= 0 ; +if(!qbevent)break;evnt(26070,265,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_CENTER= 0 ; +if(!qbevent)break;evnt(26070,266,"wiki_methods.bas");}while(r); +do{ +qbs_set(__STRING_HELP_CINDENT,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,266,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_DLIST= 0 ; +if(!qbevent)break;evnt(26070,267,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_CHKBLANK= 0 ; +if(!qbevent)break;evnt(26070,267,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_LINK= 0 ; +if(!qbevent)break;evnt(26070,269,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_ELINK= 0 ; +if(!qbevent)break;evnt(26070,269,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_UE= 0 ; +if(!qbevent)break;evnt(26070,269,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_UU= 0 ; +if(!qbevent)break;evnt(26070,269,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_CB= 0 ; +if(!qbevent)break;evnt(26070,269,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_NL= 1 ; +if(!qbevent)break;evnt(26070,269,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_HL= 0 ; +if(!qbevent)break;evnt(26070,269,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_AH= 0 ; +if(!qbevent)break;evnt(26070,269,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_DL= 0 ; +if(!qbevent)break;evnt(26070,269,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_COL=FUNC_HELP_COL(); +if(!qbevent)break;evnt(26070,271,"wiki_methods.bas");}while(r); +do{ +qbs_set(_SUB_WIKIPARSE_STRING_D,qbs_new_txt_len("Page not yet updated, expect visual glitches.",45)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,296,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_I=func_instr(NULL,_SUB_WIKIPARSE_STRING_A,qbs_new_txt_len("{{QBDLDATE:",11),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,296,"wiki_methods.bas");}while(r); +S_58347:; +if ((-(*_SUB_WIKIPARSE_LONG_I> 0 ))||new_error){ +if(qbevent){evnt(26070,297,"wiki_methods.bas");if(r)goto S_58347;} +do{ +qbs_set(_SUB_WIKIPARSE_STRING_D,qbs_add(qbs_new_txt_len("Last updated: ",14),func_mid(_SUB_WIKIPARSE_STRING_A,*_SUB_WIKIPARSE_LONG_I+ 11 ,func_instr(*_SUB_WIKIPARSE_LONG_I+ 11 ,_SUB_WIKIPARSE_STRING_A,qbs_new_txt_len("}}",2),0|1)-*_SUB_WIKIPARSE_LONG_I- 11 ,0|1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,298,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_I=func_instr(NULL,_SUB_WIKIPARSE_STRING_A,qbs_new_txt_len("{{QBDLTIME:",11),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,299,"wiki_methods.bas");}while(r); +S_58350:; +if ((-(*_SUB_WIKIPARSE_LONG_I> 0 ))||new_error){ +if(qbevent){evnt(26070,300,"wiki_methods.bas");if(r)goto S_58350;} +do{ +qbs_set(_SUB_WIKIPARSE_STRING_D,qbs_add(qbs_add(_SUB_WIKIPARSE_STRING_D,qbs_new_txt_len(", at ",5)),func_mid(_SUB_WIKIPARSE_STRING_A,*_SUB_WIKIPARSE_LONG_I+ 11 ,func_instr(*_SUB_WIKIPARSE_LONG_I+ 11 ,_SUB_WIKIPARSE_STRING_A,qbs_new_txt_len("}}",2),0|1)-*_SUB_WIKIPARSE_LONG_I- 11 ,0|1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,300,"wiki_methods.bas");}while(r); +} +S_58353:; +}else{ +if (qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_SUB_WIKIPARSE_STRING_A,qbs_new_txt_len("{{PageInternalError}}",21),0)> 0 ))){ +if(qbevent){evnt(26070,301,"wiki_methods.bas");if(r)goto S_58353;} +do{ +qbs_set(_SUB_WIKIPARSE_STRING_D,qbs_new_txt_len("Page not found.",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,302,"wiki_methods.bas");}while(r); +} +} +do{ +qbs_set(_SUB_WIKIPARSE_STRING_T,__STRING_HELP_PAGELOADED); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,304,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_I=func_instr(NULL,_SUB_WIKIPARSE_STRING_A,qbs_new_txt_len("{{DISPLAYTITLE:",15),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,304,"wiki_methods.bas");}while(r); +S_58358:; +if ((-(*_SUB_WIKIPARSE_LONG_I> 0 ))||new_error){ +if(qbevent){evnt(26070,305,"wiki_methods.bas");if(r)goto S_58358;} +do{ +qbs_set(_SUB_WIKIPARSE_STRING_T,func_mid(_SUB_WIKIPARSE_STRING_A,*_SUB_WIKIPARSE_LONG_I+ 15 ,func_instr(*_SUB_WIKIPARSE_LONG_I+ 15 ,_SUB_WIKIPARSE_STRING_A,qbs_new_txt_len("}}",2),0|1)-*_SUB_WIKIPARSE_LONG_I- 15 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,305,"wiki_methods.bas");}while(r); +} +S_58361:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_WIKIPARSE_STRING_T, 4 ),qbs_new_txt_len("agp@",4))))||new_error){ +if(qbevent){evnt(26070,306,"wiki_methods.bas");if(r)goto S_58361;} +do{ +qbs_set(_SUB_WIKIPARSE_STRING_D,qbs_new_txt_len("Auto-generated temporary page.",30)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,307,"wiki_methods.bas");}while(r); +do{ +qbs_set(_SUB_WIKIPARSE_STRING_T,func_mid(_SUB_WIKIPARSE_STRING_T, 5 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,308,"wiki_methods.bas");}while(r); +} +do{ +*_SUB_WIKIPARSE_LONG_I=_SUB_WIKIPARSE_STRING_D->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,310,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_II=_SUB_WIKIPARSE_STRING_T->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,310,"wiki_methods.bas");}while(r); +do{ +SUB_HELP_ADDTXT(qbs_add(qbs_add(qbs_new_txt_len(" \332",3),func_string(*_SUB_WIKIPARSE_LONG_II+ 2 ,(qbs_new_txt_len("\304",1)->chr[0]))),qbs_new_txt_len("\277",1)),&(pass6410= 14 ),&(pass6411= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,311,"wiki_methods.bas");}while(r); +do{ +SUB_HELP_NEWLINE(); +if(!qbevent)break;evnt(26070,311,"wiki_methods.bas");}while(r); +do{ +SUB_HELP_ADDTXT(qbs_new_txt_len(" \263 ",4),&(pass6412= 14 ),&(pass6413= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,312,"wiki_methods.bas");}while(r); +do{ +SUB_HELP_ADDTXT(_SUB_WIKIPARSE_STRING_T,&(pass6414= 9 ),&(pass6415= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,312,"wiki_methods.bas");}while(r); +do{ +SUB_HELP_ADDTXT(qbs_new_txt_len(" \263",2),&(pass6416= 14 ),&(pass6417= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,312,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_I=*__LONG_HELP_WW-*_SUB_WIKIPARSE_LONG_I- 2 -*__LONG_HELP_POS; +if(!qbevent)break;evnt(26070,313,"wiki_methods.bas");}while(r); +S_58373:; +if ((-(*_SUB_WIKIPARSE_LONG_I< 2 ))||new_error){ +if(qbevent){evnt(26070,313,"wiki_methods.bas");if(r)goto S_58373;} +do{ +*_SUB_WIKIPARSE_LONG_I= 2 ; +if(!qbevent)break;evnt(26070,313,"wiki_methods.bas");}while(r); +} +do{ +SUB_HELP_ADDTXT(qbs_add(func_space(*_SUB_WIKIPARSE_LONG_I),func_chr( 4 )),&(pass6418= 14 ),&(pass6419= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,314,"wiki_methods.bas");}while(r); +S_58377:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_WIKIPARSE_STRING_D, 4 ),qbs_new_txt_len("Page",4))))||new_error){ +if(qbevent){evnt(26070,315,"wiki_methods.bas");if(r)goto S_58377;} +do{ +*_SUB_WIKIPARSE_LONG_I= 8 ; +if(!qbevent)break;evnt(26070,315,"wiki_methods.bas");}while(r); +}else{ +do{ +*_SUB_WIKIPARSE_LONG_I= 7 ; +if(!qbevent)break;evnt(26070,315,"wiki_methods.bas");}while(r); +} +do{ +*__LONG_HELP_LOCKWRAP= 1 ; +if(!qbevent)break;evnt(26070,316,"wiki_methods.bas");}while(r); +do{ +SUB_HELP_ADDTXT(qbs_add(qbs_new_txt_len(" ",1),_SUB_WIKIPARSE_STRING_D),_SUB_WIKIPARSE_LONG_I,&(pass6420= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,316,"wiki_methods.bas");}while(r); +do{ +SUB_HELP_NEWLINE(); +if(!qbevent)break;evnt(26070,316,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_LOCKWRAP= 0 ; +if(!qbevent)break;evnt(26070,316,"wiki_methods.bas");}while(r); +do{ +SUB_HELP_ADDTXT(qbs_new_txt_len("\304\304\301",3),&(pass6421= 14 ),&(pass6422= 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,317,"wiki_methods.bas");}while(r); +do{ +SUB_HELP_ADDTXT(qbs_add(qbs_add(func_string(*_SUB_WIKIPARSE_LONG_II+ 2 ,(qbs_new_txt_len("\304",1)->chr[0])),qbs_new_txt_len("\301",1)),func_string(*__LONG_HELP_WW-*_SUB_WIKIPARSE_LONG_II- 6 ,(qbs_new_txt_len("\304",1)->chr[0]))),&(pass6423= 14 ),&(pass6424= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,318,"wiki_methods.bas");}while(r); +do{ +SUB_HELP_NEWLINE(); +if(!qbevent)break;evnt(26070,318,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_PREFETCH= 20 ; +if(!qbevent)break;evnt(26070,321,"wiki_methods.bas");}while(r); +do{ if (_SUB_WIKIPARSE_ARRAY_STRING_C[2]&2){ error(10); @@ -197946,4967 +197946,4967 @@ while(tmp_long--) ((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[tmp_long]=(uint6 while(tmp_long--) ((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -} -if(!qbevent)break;evnt(26070,322,"wiki_methods.bas");}while(r); -S_58391:; -fornext_value6426= 1 ; -fornext_finalvalue6426=*_SUB_WIKIPARSE_LONG_PREFETCH; -fornext_step6426= 1 ; -if (fornext_step6426<0) fornext_step_negative6426=1; else fornext_step_negative6426=0; -if (new_error) goto fornext_error6426; -goto fornext_entrylabel6426; -while(1){ -fornext_value6426=fornext_step6426+(*_SUB_WIKIPARSE_LONG_II); -fornext_entrylabel6426: -*_SUB_WIKIPARSE_LONG_II=fornext_value6426; -if (fornext_step_negative6426){ -if (fornext_value6426fornext_finalvalue6426) break; -} -fornext_error6426:; -if(qbevent){evnt(26070,323,"wiki_methods.bas");if(r)goto S_58391;} -do{ -tmp_long=array_check((*_SUB_WIKIPARSE_LONG_II)-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[tmp_long])),func_space(*_SUB_WIKIPARSE_LONG_II)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,324,"wiki_methods.bas");}while(r); -fornext_continue_6425:; -} -fornext_exit_6425:; -do{ -*_SUB_WIKIPARSE_LONG_N=_SUB_WIKIPARSE_STRING_A->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,328,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_I= 1 ; -if(!qbevent)break;evnt(26070,329,"wiki_methods.bas");}while(r); -S_58396:; -while((-(*_SUB_WIKIPARSE_LONG_I<=*_SUB_WIKIPARSE_LONG_N))||new_error){ -if(qbevent){evnt(26070,330,"wiki_methods.bas");if(r)goto S_58396;} -do{ -*_SUB_WIKIPARSE_LONG_C=qbs_asc(_SUB_WIKIPARSE_STRING_A,*_SUB_WIKIPARSE_LONG_I); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,333,"wiki_methods.bas");}while(r); -do{ -qbs_set(_SUB_WIKIPARSE_STRING_C,func_chr(*_SUB_WIKIPARSE_LONG_C)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,333,"wiki_methods.bas");}while(r); -S_58399:; -fornext_value6430= 1 ; -fornext_finalvalue6430=*_SUB_WIKIPARSE_LONG_PREFETCH; -fornext_step6430= 1 ; -if (fornext_step6430<0) fornext_step_negative6430=1; else fornext_step_negative6430=0; -if (new_error) goto fornext_error6430; -goto fornext_entrylabel6430; -while(1){ -fornext_value6430=fornext_step6430+(*_SUB_WIKIPARSE_LONG_I1); -fornext_entrylabel6430: -*_SUB_WIKIPARSE_LONG_I1=fornext_value6430; -if (fornext_step_negative6430){ -if (fornext_value6430fornext_finalvalue6430) break; -} -fornext_error6430:; -if(qbevent){evnt(26070,334,"wiki_methods.bas");if(r)goto S_58399;} -do{ -*_SUB_WIKIPARSE_LONG_II=*_SUB_WIKIPARSE_LONG_I; -if(!qbevent)break;evnt(26070,335,"wiki_methods.bas");}while(r); -S_58401:; -fornext_value6432= 1 ; -fornext_finalvalue6432=*_SUB_WIKIPARSE_LONG_I1; -fornext_step6432= 1 ; -if (fornext_step6432<0) fornext_step_negative6432=1; else fornext_step_negative6432=0; -if (new_error) goto fornext_error6432; -goto fornext_entrylabel6432; -while(1){ -fornext_value6432=fornext_step6432+(*_SUB_WIKIPARSE_LONG_I2); -fornext_entrylabel6432: -*_SUB_WIKIPARSE_LONG_I2=fornext_value6432; -if (fornext_step_negative6432){ -if (fornext_value6432fornext_finalvalue6432) break; -} -fornext_error6432:; -if(qbevent){evnt(26070,336,"wiki_methods.bas");if(r)goto S_58401;} -S_58402:; -if ((-(*_SUB_WIKIPARSE_LONG_II<=*_SUB_WIKIPARSE_LONG_N))||new_error){ -if(qbevent){evnt(26070,337,"wiki_methods.bas");if(r)goto S_58402;} -do{ -tqbs=((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check((*_SUB_WIKIPARSE_LONG_I1)-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])); if (!new_error){ -tmp_fileno=*_SUB_WIKIPARSE_LONG_I2; if (!new_error){ -tmp_long=qbs_asc(_SUB_WIKIPARSE_STRING_A,*_SUB_WIKIPARSE_LONG_II); if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(26070,338,"wiki_methods.bas");}while(r); -}else{ -do{ -tqbs=((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check((*_SUB_WIKIPARSE_LONG_I1)-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])); if (!new_error){ -tmp_fileno=*_SUB_WIKIPARSE_LONG_I2; if (!new_error){ -tmp_long= 32 ; if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(26070,340,"wiki_methods.bas");}while(r); -} -do{ -*_SUB_WIKIPARSE_LONG_II=*_SUB_WIKIPARSE_LONG_II+ 1 ; -if(!qbevent)break;evnt(26070,342,"wiki_methods.bas");}while(r); -fornext_continue_6431:; -} -fornext_exit_6431:; -fornext_continue_6429:; -} -fornext_exit_6429:; -do{ -qbs_set(_SUB_WIKIPARSE_STRING_S,qbs_add(qbs_new_txt_len("__NOEDITSECTION__",17),func_chr( 10 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,347,"wiki_methods.bas");}while(r); -S_58411:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check((_SUB_WIKIPARSE_STRING_S->len)-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),_SUB_WIKIPARSE_STRING_S)))||new_error){ -if(qbevent){evnt(26070,347,"wiki_methods.bas");if(r)goto S_58411;} -do{ -*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+_SUB_WIKIPARSE_STRING_S->len- 1 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,347,"wiki_methods.bas");}while(r); -do{ -goto LABEL_CHARDONEKNL; -if(!qbevent)break;evnt(26070,347,"wiki_methods.bas");}while(r); -} -do{ -qbs_set(_SUB_WIKIPARSE_STRING_S,qbs_new_txt_len("__NOEDITSECTION__",17)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,348,"wiki_methods.bas");}while(r); -S_58416:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check((_SUB_WIKIPARSE_STRING_S->len)-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),_SUB_WIKIPARSE_STRING_S)))||new_error){ -if(qbevent){evnt(26070,348,"wiki_methods.bas");if(r)goto S_58416;} -do{ -*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+_SUB_WIKIPARSE_STRING_S->len- 1 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,348,"wiki_methods.bas");}while(r); -do{ -goto LABEL_CHARDONE; -if(!qbevent)break;evnt(26070,348,"wiki_methods.bas");}while(r); -} -do{ -qbs_set(_SUB_WIKIPARSE_STRING_S,qbs_add(qbs_new_txt_len("__NOTOC__",9),func_chr( 10 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,349,"wiki_methods.bas");}while(r); -S_58421:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check((_SUB_WIKIPARSE_STRING_S->len)-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),_SUB_WIKIPARSE_STRING_S)))||new_error){ -if(qbevent){evnt(26070,349,"wiki_methods.bas");if(r)goto S_58421;} -do{ -*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+_SUB_WIKIPARSE_STRING_S->len- 1 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,349,"wiki_methods.bas");}while(r); -do{ -goto LABEL_CHARDONEKNL; -if(!qbevent)break;evnt(26070,349,"wiki_methods.bas");}while(r); -} -do{ -qbs_set(_SUB_WIKIPARSE_STRING_S,qbs_new_txt_len("__NOTOC__",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,350,"wiki_methods.bas");}while(r); -S_58426:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check((_SUB_WIKIPARSE_STRING_S->len)-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),_SUB_WIKIPARSE_STRING_S)))||new_error){ -if(qbevent){evnt(26070,350,"wiki_methods.bas");if(r)goto S_58426;} -do{ -*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+_SUB_WIKIPARSE_STRING_S->len- 1 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,350,"wiki_methods.bas");}while(r); -do{ -goto LABEL_CHARDONE; -if(!qbevent)break;evnt(26070,350,"wiki_methods.bas");}while(r); -} -do{ -qbs_set(_SUB_WIKIPARSE_STRING_S,qbs_add(qbs_new_txt_len("__TOC__",7),func_chr( 10 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,351,"wiki_methods.bas");}while(r); -S_58431:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check((_SUB_WIKIPARSE_STRING_S->len)-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),_SUB_WIKIPARSE_STRING_S)))||new_error){ -if(qbevent){evnt(26070,351,"wiki_methods.bas");if(r)goto S_58431;} -do{ -*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+_SUB_WIKIPARSE_STRING_S->len- 1 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,351,"wiki_methods.bas");}while(r); -do{ -goto LABEL_CHARDONEKNL; -if(!qbevent)break;evnt(26070,351,"wiki_methods.bas");}while(r); -} -do{ -qbs_set(_SUB_WIKIPARSE_STRING_S,qbs_new_txt_len("__TOC__",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,352,"wiki_methods.bas");}while(r); -S_58436:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check((_SUB_WIKIPARSE_STRING_S->len)-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),_SUB_WIKIPARSE_STRING_S)))||new_error){ -if(qbevent){evnt(26070,352,"wiki_methods.bas");if(r)goto S_58436;} -do{ -*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+_SUB_WIKIPARSE_STRING_S->len- 1 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,352,"wiki_methods.bas");}while(r); -do{ -goto LABEL_CHARDONE; -if(!qbevent)break;evnt(26070,352,"wiki_methods.bas");}while(r); -} -do{ -qbs_set(_SUB_WIKIPARSE_STRING_S,qbs_new_txt_len("",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,353,"wiki_methods.bas");}while(r); -S_58441:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check((_SUB_WIKIPARSE_STRING_S->len)-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),_SUB_WIKIPARSE_STRING_S)))||new_error){ -if(qbevent){evnt(26070,353,"wiki_methods.bas");if(r)goto S_58441;} -do{ -*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+_SUB_WIKIPARSE_STRING_S->len- 1 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,353,"wiki_methods.bas");}while(r); -do{ -goto LABEL_CHARDONE; -if(!qbevent)break;evnt(26070,353,"wiki_methods.bas");}while(r); -} -do{ -qbs_set(_SUB_WIKIPARSE_STRING_S,qbs_new_txt_len("",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,354,"wiki_methods.bas");}while(r); -S_58446:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check((_SUB_WIKIPARSE_STRING_S->len)-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),_SUB_WIKIPARSE_STRING_S)))||new_error){ -if(qbevent){evnt(26070,354,"wiki_methods.bas");if(r)goto S_58446;} -do{ -*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+_SUB_WIKIPARSE_STRING_S->len- 1 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,354,"wiki_methods.bas");}while(r); -do{ -goto LABEL_CHARDONE; -if(!qbevent)break;evnt(26070,354,"wiki_methods.bas");}while(r); -} -do{ -qbs_set(_SUB_WIKIPARSE_STRING_S,qbs_new_txt_len("len)-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),_SUB_WIKIPARSE_STRING_S)))||new_error){ -if(qbevent){evnt(26070,356,"wiki_methods.bas");if(r)goto S_58451;} -do{ -*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+_SUB_WIKIPARSE_STRING_S->len- 1 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,357,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_NL= 0 ; -if(!qbevent)break;evnt(26070,357,"wiki_methods.bas");}while(r); -S_58454:; -fornext_value6452=*_SUB_WIKIPARSE_LONG_I; -fornext_finalvalue6452=_SUB_WIKIPARSE_STRING_A->len- 1 ; -fornext_step6452= 1 ; -if (fornext_step6452<0) fornext_step_negative6452=1; else fornext_step_negative6452=0; -if (new_error) goto fornext_error6452; -goto fornext_entrylabel6452; -while(1){ -fornext_value6452=fornext_step6452+(*_SUB_WIKIPARSE_LONG_II); -fornext_entrylabel6452: -*_SUB_WIKIPARSE_LONG_II=fornext_value6452; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative6452){ -if (fornext_value6452fornext_finalvalue6452) break; -} -fornext_error6452:; -if(qbevent){evnt(26070,358,"wiki_methods.bas");if(r)goto S_58454;} -S_58455:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_SUB_WIKIPARSE_STRING_A,*_SUB_WIKIPARSE_LONG_II, 1 ,0|1),qbs_new_txt_len(">",1))))||new_error){ -if(qbevent){evnt(26070,359,"wiki_methods.bas");if(r)goto S_58455;} -do{ -qbs_set(_SUB_WIKIPARSE_STRING_WLA,FUNC_WIKILOOKAHEAD(_SUB_WIKIPARSE_STRING_A,&(pass6454=*_SUB_WIKIPARSE_LONG_II+ 1 ),qbs_new_txt_len("",10))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,360,"wiki_methods.bas");}while(r); -do{ -qbs_set(_SUB_WIKIPARSE_STRING_V,_SUB_WIKIPARSE_STRING_WLA); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,360,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_NL= 1 ; -if(!qbevent)break;evnt(26070,360,"wiki_methods.bas");}while(r); -S_58459:; -if ((qbs_cleanup(qbs_tmp_base,(-(func_instr(NULL,func_mid(_SUB_WIKIPARSE_STRING_A,*_SUB_WIKIPARSE_LONG_I,*_SUB_WIKIPARSE_LONG_II-*_SUB_WIKIPARSE_LONG_I,0|1),qbs_new_txt_len("48px",4),0)== 0 ))|(-(func_instr(NULL,func_mid(_SUB_WIKIPARSE_STRING_A,*_SUB_WIKIPARSE_LONG_I,*_SUB_WIKIPARSE_LONG_II-*_SUB_WIKIPARSE_LONG_I,0|1),qbs_new_txt_len("nolines",7),0)== 0 ))))||new_error){ -if(qbevent){evnt(26070,361,"wiki_methods.bas");if(r)goto S_58459;} -do{ -*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_II+_SUB_WIKIPARSE_STRING_WLA->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,362,"wiki_methods.bas");}while(r); -}else{ -do{ -qbs_set(_SUB_WIKIPARSE_STRING_WLA,FUNC_STRREMOVE(_SUB_WIKIPARSE_STRING_WLA,qbs_new_txt_len(" ",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,364,"wiki_methods.bas");}while(r); -do{ -qbs_set(_SUB_WIKIPARSE_STRING_WLA,FUNC_STRREMOVE(_SUB_WIKIPARSE_STRING_WLA,func_chr( 10 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,364,"wiki_methods.bas");}while(r); -do{ -qbs_set(_SUB_WIKIPARSE_STRING_WLA,FUNC_STRREMOVE(_SUB_WIKIPARSE_STRING_WLA,qbs_new_txt_len("File:Apix.png",13))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,365,"wiki_methods.bas");}while(r); -do{ -qbs_set(_SUB_WIKIPARSE_STRING_WLA,FUNC_STRREPLACE(_SUB_WIKIPARSE_STRING_WLA,qbs_new_txt_len("|'''",4),qbs_new_txt_len("|*",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,366,"wiki_methods.bas");}while(r); -do{ -qbs_set(_SUB_WIKIPARSE_STRING_WLA,FUNC_STRREPLACE(_SUB_WIKIPARSE_STRING_WLA,qbs_new_txt_len("'''",3),qbs_new_txt_len("'' / ",5))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,366,"wiki_methods.bas");}while(r); -do{ -qbs_set(_SUB_WIKIPARSE_STRING_WLA,FUNC_STRREPLACE(_SUB_WIKIPARSE_STRING_WLA,qbs_new_txt_len("File:Qb64.png|*",15),qbs_new_txt_len("'''QB64;''' ''",14))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,367,"wiki_methods.bas");}while(r); -do{ -qbs_set(_SUB_WIKIPARSE_STRING_WLA,FUNC_STRREPLACE(_SUB_WIKIPARSE_STRING_WLA,qbs_new_txt_len("File:Qbpe.png|*",15),qbs_new_txt_len("'''QB64-PE;''' ''",17))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,368,"wiki_methods.bas");}while(r); -do{ -qbs_set(_SUB_WIKIPARSE_STRING_WLA,FUNC_STRREPLACE(_SUB_WIKIPARSE_STRING_WLA,qbs_new_txt_len("File:Win.png|*",14),qbs_new_txt_len("'''Windows;''' ''",17))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,369,"wiki_methods.bas");}while(r); -do{ -qbs_set(_SUB_WIKIPARSE_STRING_WLA,FUNC_STRREPLACE(_SUB_WIKIPARSE_STRING_WLA,qbs_new_txt_len("File:Lnx.png|*",14),qbs_new_txt_len("'''Linux;''' ''",15))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,370,"wiki_methods.bas");}while(r); -do{ -qbs_set(_SUB_WIKIPARSE_STRING_WLA,FUNC_STRREPLACE(_SUB_WIKIPARSE_STRING_WLA,qbs_new_txt_len("File:Osx.png|*",14),qbs_new_txt_len("'''macOS;''' ''",15))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,371,"wiki_methods.bas");}while(r); -S_58472:; -if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_SUB_WIKIPARSE_STRING_WLA,qbs_new_txt_len(":",1),0)> 0 )))||new_error){ -if(qbevent){evnt(26070,372,"wiki_methods.bas");if(r)goto S_58472;} -do{ -*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_II+_SUB_WIKIPARSE_STRING_V->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,373,"wiki_methods.bas");}while(r); -do{ -goto fornext_exit_6451; -if(!qbevent)break;evnt(26070,374,"wiki_methods.bas");}while(r); -} -do{ -qbs_set(_SUB_WIKIPARSE_STRING_WLA,FUNC_STRREPLACE(_SUB_WIKIPARSE_STRING_WLA,qbs_new_txt_len(";",1),qbs_new_txt_len(":",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,376,"wiki_methods.bas");}while(r); -do{ -qbs_set(_SUB_WIKIPARSE_STRING_WLA,FUNC_STRREPLACE(_SUB_WIKIPARSE_STRING_WLA,qbs_new_txt_len("''none''",8),qbs_new_txt_len("''no versions''",15))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,377,"wiki_methods.bas");}while(r); -do{ -qbs_set(_SUB_WIKIPARSE_STRING_WLA,FUNC_STRREPLACE(_SUB_WIKIPARSE_STRING_WLA,qbs_new_txt_len("''all''",7),qbs_new_txt_len("''all versions''",16))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,378,"wiki_methods.bas");}while(r); -do{ -qbs_set(_SUB_WIKIPARSE_STRING_WLA,qbs_add(qbs_add(qbs_new_txt_len("* ",2),qbs_left(_SUB_WIKIPARSE_STRING_WLA,_SUB_WIKIPARSE_STRING_WLA->len- 3 )),i2string( 2570 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,379,"wiki_methods.bas");}while(r); -do{ -qbs_set(_SUB_WIKIPARSE_STRING_A,qbs_add(qbs_add(qbs_left(_SUB_WIKIPARSE_STRING_A,*_SUB_WIKIPARSE_LONG_II),_SUB_WIKIPARSE_STRING_WLA),func_mid(_SUB_WIKIPARSE_STRING_A,*_SUB_WIKIPARSE_LONG_II+_SUB_WIKIPARSE_STRING_V->len+ 1 ,NULL,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,380,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_N=_SUB_WIKIPARSE_STRING_A->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,381,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_II; -if(!qbevent)break;evnt(26070,381,"wiki_methods.bas");}while(r); -} -do{ -goto fornext_exit_6451; -if(!qbevent)break;evnt(26070,383,"wiki_methods.bas");}while(r); -} -fornext_continue_6451:; -} -fornext_exit_6451:; -do{ -goto LABEL_CHARDONEKNL; -if(!qbevent)break;evnt(26070,386,"wiki_methods.bas");}while(r); -} -do{ -qbs_set(_SUB_WIKIPARSE_STRING_S,qbs_add(qbs_new_txt_len("",10),func_chr( 10 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,388,"wiki_methods.bas");}while(r); -S_58490:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check((_SUB_WIKIPARSE_STRING_S->len)-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),_SUB_WIKIPARSE_STRING_S)))||new_error){ -if(qbevent){evnt(26070,388,"wiki_methods.bas");if(r)goto S_58490;} -do{ -*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+_SUB_WIKIPARSE_STRING_S->len- 1 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,388,"wiki_methods.bas");}while(r); -do{ -goto LABEL_CHARDONEKNL; -if(!qbevent)break;evnt(26070,388,"wiki_methods.bas");}while(r); -} -do{ -qbs_set(_SUB_WIKIPARSE_STRING_S,qbs_new_txt_len("",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,389,"wiki_methods.bas");}while(r); -S_58495:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check((_SUB_WIKIPARSE_STRING_S->len)-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),_SUB_WIKIPARSE_STRING_S)))||new_error){ -if(qbevent){evnt(26070,389,"wiki_methods.bas");if(r)goto S_58495;} -do{ -*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+_SUB_WIKIPARSE_STRING_S->len- 1 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,389,"wiki_methods.bas");}while(r); -do{ -goto LABEL_CHARDONE; -if(!qbevent)break;evnt(26070,389,"wiki_methods.bas");}while(r); -} -S_58499:; -if ((-(*__LONG_HELP_LOCKPARSE<= 0 ))||new_error){ -if(qbevent){evnt(26070,393,"wiki_methods.bas");if(r)goto S_58499;} -do{ -qbs_set(_SUB_WIKIPARSE_STRING_S,qbs_new_txt_len("
",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,394,"wiki_methods.bas");}while(r); -S_58501:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check((_SUB_WIKIPARSE_STRING_S->len)-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),_SUB_WIKIPARSE_STRING_S)))||new_error){ -if(qbevent){evnt(26070,395,"wiki_methods.bas");if(r)goto S_58501;} -do{ -*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+_SUB_WIKIPARSE_STRING_S->len- 1 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,396,"wiki_methods.bas");}while(r); -do{ -qbs_set(_SUB_WIKIPARSE_STRING_WLA,FUNC_WIKILOOKAHEAD(_SUB_WIKIPARSE_STRING_A,&(pass6466=*_SUB_WIKIPARSE_LONG_I+ 1 ),qbs_new_txt_len("
",9))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,397,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_CENTER= 1 ; -if(!qbevent)break;evnt(26070,398,"wiki_methods.bas");}while(r); -do{ -qbs_set(__STRING_HELP_CINDENT,FUNC_WIKIBUILDCINDENT(_SUB_WIKIPARSE_STRING_WLA)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,398,"wiki_methods.bas");}while(r); -do{ -SUB_HELP_ADDTXT(func_space(qbs_asc(__STRING_HELP_CINDENT, 1 )),_SUB_WIKIPARSE_LONG_COL,&(pass6467= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,399,"wiki_methods.bas");}while(r); -do{ -qbs_set(__STRING_HELP_CINDENT,func_mid(__STRING_HELP_CINDENT, 2 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,400,"wiki_methods.bas");}while(r); -do{ -goto LABEL_CHARDONE; -if(!qbevent)break;evnt(26070,401,"wiki_methods.bas");}while(r); -} -do{ -qbs_set(_SUB_WIKIPARSE_STRING_S,qbs_new_txt_len("",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,403,"wiki_methods.bas");}while(r); -S_58511:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check((_SUB_WIKIPARSE_STRING_S->len)-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),_SUB_WIKIPARSE_STRING_S)))||new_error){ -if(qbevent){evnt(26070,404,"wiki_methods.bas");if(r)goto S_58511;} -do{ -*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+_SUB_WIKIPARSE_STRING_S->len- 1 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,405,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_CENTER= 0 ; -if(!qbevent)break;evnt(26070,406,"wiki_methods.bas");}while(r); -do{ -SUB_HELP_NEWLINE(); -if(!qbevent)break;evnt(26070,407,"wiki_methods.bas");}while(r); -do{ -goto LABEL_CHARDONE; -if(!qbevent)break;evnt(26070,408,"wiki_methods.bas");}while(r); -} -do{ -qbs_set(_SUB_WIKIPARSE_STRING_S,qbs_new_txt_len("

len)-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),_SUB_WIKIPARSE_STRING_S)))||new_error){ -if(qbevent){evnt(26070,411,"wiki_methods.bas");if(r)goto S_58518;} -do{ -*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+_SUB_WIKIPARSE_STRING_S->len- 1 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,412,"wiki_methods.bas");}while(r); -S_58520:; -fornext_value6473=*_SUB_WIKIPARSE_LONG_I; -fornext_finalvalue6473=_SUB_WIKIPARSE_STRING_A->len- 1 ; -fornext_step6473= 1 ; -if (fornext_step6473<0) fornext_step_negative6473=1; else fornext_step_negative6473=0; -if (new_error) goto fornext_error6473; -goto fornext_entrylabel6473; -while(1){ -fornext_value6473=fornext_step6473+(*_SUB_WIKIPARSE_LONG_II); -fornext_entrylabel6473: -*_SUB_WIKIPARSE_LONG_II=fornext_value6473; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative6473){ -if (fornext_value6473fornext_finalvalue6473) break; -} -fornext_error6473:; -if(qbevent){evnt(26070,413,"wiki_methods.bas");if(r)goto S_58520;} -S_58521:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_SUB_WIKIPARSE_STRING_A,*_SUB_WIKIPARSE_LONG_II, 1 ,0|1),qbs_new_txt_len(">",1))))||new_error){ -if(qbevent){evnt(26070,414,"wiki_methods.bas");if(r)goto S_58521;} -do{ -qbs_set(_SUB_WIKIPARSE_STRING_WLA,FUNC_WIKILOOKAHEAD(_SUB_WIKIPARSE_STRING_A,&(pass6475=*_SUB_WIKIPARSE_LONG_II+ 1 ),qbs_new_txt_len("

",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,415,"wiki_methods.bas");}while(r); -S_58523:; -if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,func_mid(_SUB_WIKIPARSE_STRING_A,*_SUB_WIKIPARSE_LONG_I,*_SUB_WIKIPARSE_LONG_II-*_SUB_WIKIPARSE_LONG_I,0|1),qbs_new_txt_len("center",6),0)> 0 )))||new_error){ -if(qbevent){evnt(26070,416,"wiki_methods.bas");if(r)goto S_58523;} -do{ -*__LONG_HELP_CENTER= 1 ; -if(!qbevent)break;evnt(26070,417,"wiki_methods.bas");}while(r); -do{ -qbs_set(__STRING_HELP_CINDENT,FUNC_WIKIBUILDCINDENT(_SUB_WIKIPARSE_STRING_WLA)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,417,"wiki_methods.bas");}while(r); -do{ -SUB_HELP_ADDTXT(func_space(qbs_asc(__STRING_HELP_CINDENT, 1 )),_SUB_WIKIPARSE_LONG_COL,&(pass6476= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,418,"wiki_methods.bas");}while(r); -do{ -qbs_set(__STRING_HELP_CINDENT,func_mid(__STRING_HELP_CINDENT, 2 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,419,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_II; -if(!qbevent)break;evnt(26070,420,"wiki_methods.bas");}while(r); -} -do{ -goto fornext_exit_6472; -if(!qbevent)break;evnt(26070,422,"wiki_methods.bas");}while(r); -} -fornext_continue_6472:; -} -fornext_exit_6472:; -do{ -goto LABEL_CHARDONE; -if(!qbevent)break;evnt(26070,425,"wiki_methods.bas");}while(r); -} -do{ -qbs_set(_SUB_WIKIPARSE_STRING_S,qbs_new_txt_len("

",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,427,"wiki_methods.bas");}while(r); -S_58536:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check((_SUB_WIKIPARSE_STRING_S->len)-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),_SUB_WIKIPARSE_STRING_S)))||new_error){ -if(qbevent){evnt(26070,428,"wiki_methods.bas");if(r)goto S_58536;} -do{ -*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+_SUB_WIKIPARSE_STRING_S->len- 1 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,429,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_CENTER= 0 ; -if(!qbevent)break;evnt(26070,430,"wiki_methods.bas");}while(r); -do{ -SUB_HELP_NEWLINE(); -if(!qbevent)break;evnt(26070,431,"wiki_methods.bas");}while(r); -do{ -goto LABEL_CHARDONE; -if(!qbevent)break;evnt(26070,432,"wiki_methods.bas");}while(r); -} -do{ -qbs_set(_SUB_WIKIPARSE_STRING_S,qbs_new_txt_len("",3),func_chr( 10 ))))))||new_error){ -if(qbevent){evnt(26070,439,"wiki_methods.bas");if(r)goto S_58546;} -do{ -*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_II+ 3 ; -if(!qbevent)break;evnt(26070,439,"wiki_methods.bas");}while(r); -do{ -goto LABEL_CHARDONEKNL; -if(!qbevent)break;evnt(26070,439,"wiki_methods.bas");}while(r); -} -S_58550:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_SUB_WIKIPARSE_STRING_A,*_SUB_WIKIPARSE_LONG_II, 3 ,0|1),qbs_new_txt_len("-->",3))))||new_error){ -if(qbevent){evnt(26070,440,"wiki_methods.bas");if(r)goto S_58550;} -do{ -*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_II+ 2 ; -if(!qbevent)break;evnt(26070,440,"wiki_methods.bas");}while(r); -do{ -goto LABEL_CHARDONE; -if(!qbevent)break;evnt(26070,440,"wiki_methods.bas");}while(r); -} -fornext_continue_6481:; -} -fornext_exit_6481:; -do{ -goto LABEL_CHARDONE; -if(!qbevent)break;evnt(26070,442,"wiki_methods.bas");}while(r); -} -} -S_58558:; -if ((-(*__LONG_HELP_LOCKPARSE<= 0 ))||new_error){ -if(qbevent){evnt(26070,448,"wiki_methods.bas");if(r)goto S_58558;} -S_58559:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 3 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("'''",3))))||new_error){ -if(qbevent){evnt(26070,450,"wiki_methods.bas");if(r)goto S_58559;} -do{ -*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 2 ; -if(!qbevent)break;evnt(26070,451,"wiki_methods.bas");}while(r); -S_58561:; -if ((-(*__LONG_HELP_BOLD== 0 ))||new_error){ -if(qbevent){evnt(26070,452,"wiki_methods.bas");if(r)goto S_58561;} -do{ -*__LONG_HELP_BOLD= 1 ; -if(!qbevent)break;evnt(26070,452,"wiki_methods.bas");}while(r); -}else{ -do{ -*__LONG_HELP_BOLD= 0 ; -if(!qbevent)break;evnt(26070,452,"wiki_methods.bas");}while(r); -} -do{ -*_SUB_WIKIPARSE_LONG_COL=FUNC_HELP_COL(); -if(!qbevent)break;evnt(26070,453,"wiki_methods.bas");}while(r); -do{ -goto LABEL_CHARDONE; -if(!qbevent)break;evnt(26070,454,"wiki_methods.bas");}while(r); -} -S_58569:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 2 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("''",2))))||new_error){ -if(qbevent){evnt(26070,457,"wiki_methods.bas");if(r)goto S_58569;} -do{ -*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,458,"wiki_methods.bas");}while(r); -S_58571:; -if ((-(*__LONG_HELP_ITALIC== 0 ))||new_error){ -if(qbevent){evnt(26070,459,"wiki_methods.bas");if(r)goto S_58571;} -do{ -*__LONG_HELP_ITALIC= 1 ; -if(!qbevent)break;evnt(26070,459,"wiki_methods.bas");}while(r); -}else{ -do{ -*__LONG_HELP_ITALIC= 0 ; -if(!qbevent)break;evnt(26070,459,"wiki_methods.bas");}while(r); -} -do{ -*_SUB_WIKIPARSE_LONG_COL=FUNC_HELP_COL(); -if(!qbevent)break;evnt(26070,460,"wiki_methods.bas");}while(r); -do{ -goto LABEL_CHARDONE; -if(!qbevent)break;evnt(26070,461,"wiki_methods.bas");}while(r); -} -} -S_58580:; -if ((-(*__LONG_HELP_LOCKPARSE<= 0 ))||new_error){ -if(qbevent){evnt(26070,467,"wiki_methods.bas");if(r)goto S_58580;} -S_58581:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 5 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("[http",5)))&(-(*_SUB_WIKIPARSE_LONG_ELINK== 0 ))))||new_error){ -if(qbevent){evnt(26070,469,"wiki_methods.bas");if(r)goto S_58581;} -do{ -*_SUB_WIKIPARSE_LONG_ELINK= 1 ; -if(!qbevent)break;evnt(26070,470,"wiki_methods.bas");}while(r); -do{ -qbs_set(_SUB_WIKIPARSE_STRING_ELINK,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,470,"wiki_methods.bas");}while(r); -do{ -qbs_set(_SUB_WIKIPARSE_STRING_ELCOL,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,470,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_LINKTXT= 1 ; -if(!qbevent)break;evnt(26070,471,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_COL=FUNC_HELP_COL(); -if(!qbevent)break;evnt(26070,471,"wiki_methods.bas");}while(r); -do{ -goto LABEL_CHARDONE; -if(!qbevent)break;evnt(26070,472,"wiki_methods.bas");}while(r); -} -S_58589:; -if ((-(*_SUB_WIKIPARSE_LONG_ELINK== 1 ))||new_error){ -if(qbevent){evnt(26070,474,"wiki_methods.bas");if(r)goto S_58589;} -S_58590:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_WIKIPARSE_STRING_C,qbs_new_txt_len("]",1))))||new_error){ -if(qbevent){evnt(26070,475,"wiki_methods.bas");if(r)goto S_58590;} -do{ -*_SUB_WIKIPARSE_LONG_ELINK= 0 ; -if(!qbevent)break;evnt(26070,476,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_LINKTXT= 0 ; -if(!qbevent)break;evnt(26070,476,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_COL=FUNC_HELP_COL(); -if(!qbevent)break;evnt(26070,476,"wiki_methods.bas");}while(r); -do{ -qbs_set(_SUB_WIKIPARSE_STRING_ETEXT,_SUB_WIKIPARSE_STRING_ELINK); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,477,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_I2=func_instr(NULL,_SUB_WIKIPARSE_STRING_ELINK,qbs_new_txt_len(" ",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,478,"wiki_methods.bas");}while(r); -S_58596:; -if ((-(*_SUB_WIKIPARSE_LONG_I2> 0 ))||new_error){ -if(qbevent){evnt(26070,479,"wiki_methods.bas");if(r)goto S_58596;} -do{ -qbs_set(_SUB_WIKIPARSE_STRING_ETEXT,func_mid(_SUB_WIKIPARSE_STRING_ELINK,*_SUB_WIKIPARSE_LONG_I2+ 1 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,480,"wiki_methods.bas");}while(r); -do{ -qbs_set(_SUB_WIKIPARSE_STRING_ELCOL,func_mid(_SUB_WIKIPARSE_STRING_ELCOL,*_SUB_WIKIPARSE_LONG_I2+ 1 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,481,"wiki_methods.bas");}while(r); -do{ -qbs_set(_SUB_WIKIPARSE_STRING_ELINK,qbs_left(_SUB_WIKIPARSE_STRING_ELINK,*_SUB_WIKIPARSE_LONG_I2- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,482,"wiki_methods.bas");}while(r); -} -do{ -*__LONG_HELP_LINKN=*__LONG_HELP_LINKN+ 1 ; -if(!qbevent)break;evnt(26070,485,"wiki_methods.bas");}while(r); -do{ -qbs_set(__STRING_HELP_LINK,qbs_add(qbs_add(qbs_add(__STRING_HELP_LINK,qbs_new_txt_len("EXTL:",5)),_SUB_WIKIPARSE_STRING_ELINK),__STRING_HELP_LINK_SEP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,486,"wiki_methods.bas");}while(r); -S_58603:; -fornext_value6485= 1 ; -fornext_finalvalue6485=_SUB_WIKIPARSE_STRING_ETEXT->len; -fornext_step6485= 1 ; -if (fornext_step6485<0) fornext_step_negative6485=1; else fornext_step_negative6485=0; -if (new_error) goto fornext_error6485; -goto fornext_entrylabel6485; -while(1){ -fornext_value6485=fornext_step6485+(*_SUB_WIKIPARSE_LONG_J); -fornext_entrylabel6485: -*_SUB_WIKIPARSE_LONG_J=fornext_value6485; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative6485){ -if (fornext_value6485fornext_finalvalue6485) break; -} -fornext_error6485:; -if(qbevent){evnt(26070,488,"wiki_methods.bas");if(r)goto S_58603;} -do{ -SUB_HELP_ADDTXT(func_chr(qbs_asc(_SUB_WIKIPARSE_STRING_ETEXT,*_SUB_WIKIPARSE_LONG_J)),&(pass6487=qbs_asc(_SUB_WIKIPARSE_STRING_ELCOL,*_SUB_WIKIPARSE_LONG_J)),__LONG_HELP_LINKN); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,489,"wiki_methods.bas");}while(r); -fornext_continue_6484:; -} -fornext_exit_6484:; -do{ -goto LABEL_CHARDONE; -if(!qbevent)break;evnt(26070,491,"wiki_methods.bas");}while(r); -} -do{ -goto LABEL_CHKENTUTF; -if(!qbevent)break;evnt(26070,493,"wiki_methods.bas");}while(r); -} -S_58610:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 2 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("[[",2)))&(-(*_SUB_WIKIPARSE_LONG_LINK== 0 ))))||new_error){ -if(qbevent){evnt(26070,496,"wiki_methods.bas");if(r)goto S_58610;} -do{ -*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,497,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_LINK= 1 ; -if(!qbevent)break;evnt(26070,498,"wiki_methods.bas");}while(r); -do{ -qbs_set(_SUB_WIKIPARSE_STRING_LINK,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,498,"wiki_methods.bas");}while(r); -do{ -qbs_set(_SUB_WIKIPARSE_STRING_LCOL,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,498,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_LINKTXT= 1 ; -if(!qbevent)break;evnt(26070,499,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_COL=FUNC_HELP_COL(); -if(!qbevent)break;evnt(26070,499,"wiki_methods.bas");}while(r); -do{ -goto LABEL_CHARDONE; -if(!qbevent)break;evnt(26070,500,"wiki_methods.bas");}while(r); -} -} -S_58620:; -if ((-(*_SUB_WIKIPARSE_LONG_LINK== 1 ))||new_error){ -if(qbevent){evnt(26070,505,"wiki_methods.bas");if(r)goto S_58620;} -S_58621:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 2 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("]]",2)))|(qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 2 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("}}",2)))))||new_error){ -if(qbevent){evnt(26070,506,"wiki_methods.bas");if(r)goto S_58621;} -do{ -*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,507,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_LINK= 0 ; -if(!qbevent)break;evnt(26070,508,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_LINKTXT= 0 ; -if(!qbevent)break;evnt(26070,508,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_COL=FUNC_HELP_COL(); -if(!qbevent)break;evnt(26070,508,"wiki_methods.bas");}while(r); -do{ -qbs_set(_SUB_WIKIPARSE_STRING_TEXT,_SUB_WIKIPARSE_STRING_LINK); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,509,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_I2=func_instr(NULL,_SUB_WIKIPARSE_STRING_LINK,qbs_new_txt_len("|",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,510,"wiki_methods.bas");}while(r); -S_58628:; -if ((-(*_SUB_WIKIPARSE_LONG_I2> 0 ))||new_error){ -if(qbevent){evnt(26070,511,"wiki_methods.bas");if(r)goto S_58628;} -do{ -qbs_set(_SUB_WIKIPARSE_STRING_TEXT,func_mid(_SUB_WIKIPARSE_STRING_LINK,*_SUB_WIKIPARSE_LONG_I2+ 1 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,512,"wiki_methods.bas");}while(r); -do{ -qbs_set(_SUB_WIKIPARSE_STRING_LCOL,func_mid(_SUB_WIKIPARSE_STRING_LCOL,*_SUB_WIKIPARSE_LONG_I2+ 1 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,513,"wiki_methods.bas");}while(r); -do{ -qbs_set(_SUB_WIKIPARSE_STRING_LINK,qbs_left(_SUB_WIKIPARSE_STRING_LINK,*_SUB_WIKIPARSE_LONG_I2- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,514,"wiki_methods.bas");}while(r); -} -do{ -*_SUB_WIKIPARSE_LONG_I2=func_instr(NULL,_SUB_WIKIPARSE_STRING_LINK,qbs_new_txt_len("#",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,516,"wiki_methods.bas");}while(r); -S_58634:; -if ((-(*_SUB_WIKIPARSE_LONG_I2> 0 ))||new_error){ -if(qbevent){evnt(26070,517,"wiki_methods.bas");if(r)goto S_58634;} -S_58635:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_WIKIPARSE_STRING_TEXT,_SUB_WIKIPARSE_STRING_LINK)))||new_error){ -if(qbevent){evnt(26070,518,"wiki_methods.bas");if(r)goto S_58635;} -do{ -qbs_set(_SUB_WIKIPARSE_STRING_TEXT,func_mid(_SUB_WIKIPARSE_STRING_LINK,*_SUB_WIKIPARSE_LONG_I2+ 1 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,519,"wiki_methods.bas");}while(r); -do{ -qbs_set(_SUB_WIKIPARSE_STRING_LCOL,func_mid(_SUB_WIKIPARSE_STRING_LCOL,*_SUB_WIKIPARSE_LONG_I2+ 1 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,520,"wiki_methods.bas");}while(r); -} -S_58639:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_SUB_WIKIPARSE_STRING_LINK,*_SUB_WIKIPARSE_LONG_I2+ 1 , 3 ,0|1),qbs_new_txt_len("toc",3))))||new_error){ -if(qbevent){evnt(26070,522,"wiki_methods.bas");if(r)goto S_58639;} -do{ -sub_mid(_SUB_WIKIPARSE_STRING_LINK,*_SUB_WIKIPARSE_LONG_I2+ 1 , 3 ,qbs_new_txt_len("\304\304\301",3),1); -if(!qbevent)break;evnt(26070,522,"wiki_methods.bas");}while(r); -} -S_58642:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_SUB_WIKIPARSE_STRING_LINK,*_SUB_WIKIPARSE_LONG_I2+ 1 , 3 ,0|1),qbs_new_txt_len("top",3))))||new_error){ -if(qbevent){evnt(26070,523,"wiki_methods.bas");if(r)goto S_58642;} -do{ -sub_mid(_SUB_WIKIPARSE_STRING_LINK,*_SUB_WIKIPARSE_LONG_I2+ 1 , 3 ,qbs_new_txt_len("\304\304\301",3),1); -if(!qbevent)break;evnt(26070,523,"wiki_methods.bas");}while(r); -} -S_58645:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_WIKIPARSE_STRING_LINK, 1 ),qbs_new_txt_len("#",1))))||new_error){ -if(qbevent){evnt(26070,524,"wiki_methods.bas");if(r)goto S_58645;} -do{ -qbs_set(_SUB_WIKIPARSE_STRING_LINK,qbs_add(__STRING_HELP_PAGELOADED,_SUB_WIKIPARSE_STRING_LINK)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,524,"wiki_methods.bas");}while(r); -} -} -S_58649:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_WIKIPARSE_STRING_LINK, 9 ),qbs_new_txt_len("Category:",9))))||new_error){ -if(qbevent){evnt(26070,526,"wiki_methods.bas");if(r)goto S_58649;} -do{ -SUB_HELP_CHECKREMOVEBLANKLINE(); -if(!qbevent)break;evnt(26070,527,"wiki_methods.bas");}while(r); -do{ -goto LABEL_CHARDONE; -if(!qbevent)break;evnt(26070,528,"wiki_methods.bas");}while(r); -} -do{ -*__LONG_HELP_LINKN=*__LONG_HELP_LINKN+ 1 ; -if(!qbevent)break;evnt(26070,531,"wiki_methods.bas");}while(r); -S_58654:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_WIKIPARSE_STRING_LINK, 10 ),qbs_new_txt_len("Wikipedia:",10))))||new_error){ -if(qbevent){evnt(26070,532,"wiki_methods.bas");if(r)goto S_58654;} -do{ -qbs_set(__STRING_HELP_LINK,qbs_add(qbs_add(qbs_add(__STRING_HELP_LINK,qbs_new_txt_len("EXTL:https://en.wikipedia.org/wiki/",35)),func_mid(_SUB_WIKIPARSE_STRING_LINK, 11 ,NULL,0)),__STRING_HELP_LINK_SEP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,533,"wiki_methods.bas");}while(r); -}else{ -do{ -qbs_set(__STRING_HELP_LINK,qbs_add(qbs_add(qbs_add(__STRING_HELP_LINK,qbs_new_txt_len("PAGE:",5)),_SUB_WIKIPARSE_STRING_LINK),__STRING_HELP_LINK_SEP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,535,"wiki_methods.bas");}while(r); -} -S_58659:; -fornext_value6489= 1 ; -fornext_finalvalue6489=_SUB_WIKIPARSE_STRING_TEXT->len; -fornext_step6489= 1 ; -if (fornext_step6489<0) fornext_step_negative6489=1; else fornext_step_negative6489=0; -if (new_error) goto fornext_error6489; -goto fornext_entrylabel6489; -while(1){ -fornext_value6489=fornext_step6489+(*_SUB_WIKIPARSE_LONG_J); -fornext_entrylabel6489: -*_SUB_WIKIPARSE_LONG_J=fornext_value6489; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative6489){ -if (fornext_value6489fornext_finalvalue6489) break; -} -fornext_error6489:; -if(qbevent){evnt(26070,538,"wiki_methods.bas");if(r)goto S_58659;} -do{ -SUB_HELP_ADDTXT(func_chr(qbs_asc(_SUB_WIKIPARSE_STRING_TEXT,*_SUB_WIKIPARSE_LONG_J)),&(pass6491=qbs_asc(_SUB_WIKIPARSE_STRING_LCOL,*_SUB_WIKIPARSE_LONG_J)),__LONG_HELP_LINKN); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,539,"wiki_methods.bas");}while(r); -fornext_continue_6488:; -} -fornext_exit_6488:; -do{ -goto LABEL_CHARDONE; -if(!qbevent)break;evnt(26070,541,"wiki_methods.bas");}while(r); -} -do{ -goto LABEL_CHKENTUTF; -if(!qbevent)break;evnt(26070,543,"wiki_methods.bas");}while(r); -} -S_58666:; -if ((-(*__LONG_HELP_LOCKPARSE<= 0 ))||new_error){ -if(qbevent){evnt(26070,548,"wiki_methods.bas");if(r)goto S_58666;} -S_58667:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 2 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("{|",2))))||new_error){ -if(qbevent){evnt(26070,550,"wiki_methods.bas");if(r)goto S_58667;} -do{ -qbs_set(_SUB_WIKIPARSE_STRING_WLA,FUNC_WIKILOOKAHEAD(_SUB_WIKIPARSE_STRING_A,&(pass6492=*_SUB_WIKIPARSE_LONG_I+ 2 ),qbs_new_txt_len("|}",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,551,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_III= 0 ; -if(!qbevent)break;evnt(26070,551,"wiki_methods.bas");}while(r); -S_58670:; -fornext_value6494= 1 ; -fornext_finalvalue6494=_SUB_WIKIPARSE_STRING_WLA->len; -fornext_step6494= 1 ; -if (fornext_step6494<0) fornext_step_negative6494=1; else fornext_step_negative6494=0; -if (new_error) goto fornext_error6494; -goto fornext_entrylabel6494; -while(1){ -fornext_value6494=fornext_step6494+(*_SUB_WIKIPARSE_LONG_II); -fornext_entrylabel6494: -*_SUB_WIKIPARSE_LONG_II=fornext_value6494; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative6494){ -if (fornext_value6494fornext_finalvalue6494) break; -} -fornext_error6494:; -if(qbevent){evnt(26070,552,"wiki_methods.bas");if(r)goto S_58670;} -S_58671:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(func_mid(_SUB_WIKIPARSE_STRING_WLA,*_SUB_WIKIPARSE_LONG_II, 1 ,0|1),qbs_new_txt_len("|",1)))&(qbs_notequal(func_mid(_SUB_WIKIPARSE_STRING_WLA,*_SUB_WIKIPARSE_LONG_II, 2 ,0|1),qbs_new_txt_len("|-",2)))))||new_error){ -if(qbevent){evnt(26070,553,"wiki_methods.bas");if(r)goto S_58671;} -do{ -*_SUB_WIKIPARSE_LONG_III=*_SUB_WIKIPARSE_LONG_III+ 1 ; -if(!qbevent)break;evnt(26070,553,"wiki_methods.bas");}while(r); -} -fornext_continue_6493:; -} -fornext_exit_6493:; -do{ -*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 1 +_SUB_WIKIPARSE_STRING_WLA->len+ 2 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,555,"wiki_methods.bas");}while(r); -S_58676:; -if ((qbs_cleanup(qbs_tmp_base,(-(*_SUB_WIKIPARSE_LONG_III> 1 ))|(-(func_instr(NULL,_SUB_WIKIPARSE_STRING_WLA,qbs_new_txt_len("__TOC__",7),0)== 0 ))))||new_error){ -if(qbevent){evnt(26070,556,"wiki_methods.bas");if(r)goto S_58676;} -S_58677:; -if ((-(*__LONG_HELP_LOCKPARSE== 0 ))||new_error){ -if(qbevent){evnt(26070,557,"wiki_methods.bas");if(r)goto S_58677;} -do{ -*__LONG_HELP_LINKN=*__LONG_HELP_LINKN+ 1 ; -if(!qbevent)break;evnt(26070,558,"wiki_methods.bas");}while(r); -do{ -qbs_set(__STRING_HELP_LINK,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_HELP_LINK,qbs_new_txt_len("EXTL:",5)),__STRING_WIKIBASEADDRESS),qbs_new_txt_len("/index.php?title=",17)),__STRING_HELP_PAGELOADED),__STRING_HELP_LINK_SEP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,559,"wiki_methods.bas");}while(r); -do{ -SUB_HELP_ADDTXT(qbs_add(func_space((*__LONG_HELP_WW- 40 )/ 2 ),qbs_new_txt_len("\311\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\273",40)),&(pass6497= 8 ),&(pass6498= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,560,"wiki_methods.bas");}while(r); -do{ -SUB_HELP_NEWLINE(); -if(!qbevent)break;evnt(26070,560,"wiki_methods.bas");}while(r); -do{ -SUB_HELP_ADDTXT(qbs_add(func_space((*__LONG_HELP_WW- 40 )/ 2 ),qbs_new_txt_len("\272",1)),&(pass6499= 8 ),&(pass6500= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,561,"wiki_methods.bas");}while(r); -do{ -SUB_HELP_ADDTXT(qbs_new_txt_len(" The original page has a table here, ",38),&(pass6501= 15 ),__LONG_HELP_LINKN); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,561,"wiki_methods.bas");}while(r); -do{ -SUB_HELP_ADDTXT(qbs_new_txt_len("\272",1),&(pass6502= 8 ),&(pass6503= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,561,"wiki_methods.bas");}while(r); -do{ -SUB_HELP_NEWLINE(); -if(!qbevent)break;evnt(26070,561,"wiki_methods.bas");}while(r); -do{ -SUB_HELP_ADDTXT(qbs_add(func_space((*__LONG_HELP_WW- 40 )/ 2 ),qbs_new_txt_len("\272",1)),&(pass6504= 8 ),&(pass6505= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,562,"wiki_methods.bas");}while(r); -do{ -SUB_HELP_ADDTXT(qbs_new_txt_len(" please click inside this box to load ",38),&(pass6506= 15 ),__LONG_HELP_LINKN); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,562,"wiki_methods.bas");}while(r); -do{ -SUB_HELP_ADDTXT(qbs_new_txt_len("\272",1),&(pass6507= 8 ),&(pass6508= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,562,"wiki_methods.bas");}while(r); -do{ -SUB_HELP_NEWLINE(); -if(!qbevent)break;evnt(26070,562,"wiki_methods.bas");}while(r); -do{ -SUB_HELP_ADDTXT(qbs_add(func_space((*__LONG_HELP_WW- 40 )/ 2 ),qbs_new_txt_len("\272",1)),&(pass6509= 8 ),&(pass6510= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,563,"wiki_methods.bas");}while(r); -do{ -SUB_HELP_ADDTXT(qbs_new_txt_len(" the page into your standard browser. ",38),&(pass6511= 15 ),__LONG_HELP_LINKN); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,563,"wiki_methods.bas");}while(r); -do{ -SUB_HELP_ADDTXT(qbs_new_txt_len("\272",1),&(pass6512= 8 ),&(pass6513= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,563,"wiki_methods.bas");}while(r); -do{ -SUB_HELP_NEWLINE(); -if(!qbevent)break;evnt(26070,563,"wiki_methods.bas");}while(r); -do{ -SUB_HELP_ADDTXT(qbs_add(func_space((*__LONG_HELP_WW- 40 )/ 2 ),qbs_new_txt_len("\310\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\274",40)),&(pass6514= 8 ),&(pass6515= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,564,"wiki_methods.bas");}while(r); -} -} -do{ -goto LABEL_CHARDONE; -if(!qbevent)break;evnt(26070,567,"wiki_methods.bas");}while(r); -} -} -S_58700:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 5 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("{{Cb|",5)))|(qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 5 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("{{Cl|",5)))|(qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 5 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("{{Cm|",5)))))||new_error){ -if(qbevent){evnt(26070,573,"wiki_methods.bas");if(r)goto S_58700;} -do{ -*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 4 ; -if(!qbevent)break;evnt(26070,574,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_LINK= 1 ; -if(!qbevent)break;evnt(26070,575,"wiki_methods.bas");}while(r); -do{ -qbs_set(_SUB_WIKIPARSE_STRING_LINK,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,575,"wiki_methods.bas");}while(r); -do{ -qbs_set(_SUB_WIKIPARSE_STRING_LCOL,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,575,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_LINKTXT= 1 ; -if(!qbevent)break;evnt(26070,576,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_COL=FUNC_HELP_COL(); -if(!qbevent)break;evnt(26070,576,"wiki_methods.bas");}while(r); -do{ -goto LABEL_CHARDONE; -if(!qbevent)break;evnt(26070,577,"wiki_methods.bas");}while(r); -} -S_58709:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 2 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("{{",2))))||new_error){ -if(qbevent){evnt(26070,579,"wiki_methods.bas");if(r)goto S_58709;} -do{ -*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,580,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_CB= 1 ; -if(!qbevent)break;evnt(26070,581,"wiki_methods.bas");}while(r); -do{ -qbs_set(_SUB_WIKIPARSE_STRING_CB,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,582,"wiki_methods.bas");}while(r); -do{ -goto LABEL_CHARDONE; -if(!qbevent)break;evnt(26070,583,"wiki_methods.bas");}while(r); -} -S_58715:; -if ((-(*_SUB_WIKIPARSE_LONG_CB> 0 ))||new_error){ -if(qbevent){evnt(26070,585,"wiki_methods.bas");if(r)goto S_58715;} -S_58716:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_WIKIPARSE_STRING_C,qbs_new_txt_len("|",1)))|(qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 2 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("}}",2)))))||new_error){ -if(qbevent){evnt(26070,586,"wiki_methods.bas");if(r)goto S_58716;} -S_58717:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_WIKIPARSE_STRING_C,qbs_new_txt_len("|",1)))&(-(*_SUB_WIKIPARSE_LONG_CB== 2 ))))||new_error){ -if(qbevent){evnt(26070,587,"wiki_methods.bas");if(r)goto S_58717;} -do{ -qbs_set(_SUB_WIKIPARSE_STRING_WLA,FUNC_WIKILOOKAHEAD(_SUB_WIKIPARSE_STRING_A,&(pass6516=*_SUB_WIKIPARSE_LONG_I+ 1 ),qbs_new_txt_len("}}",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,588,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_CB= 0 ; -if(!qbevent)break;evnt(26070,589,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+_SUB_WIKIPARSE_STRING_WLA->len+ 2 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,589,"wiki_methods.bas");}while(r); -S_58721:; -}else{ -if (qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 2 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("}}",2)))){ -if(qbevent){evnt(26070,590,"wiki_methods.bas");if(r)goto S_58721;} -S_58722:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_WIKIPARSE_STRING_CB,qbs_new_txt_len("Parameter",9))))||new_error){ -if(qbevent){evnt(26070,591,"wiki_methods.bas");if(r)goto S_58722;} -do{ -*__LONG_HELP_ITALIC= 0 ; -if(!qbevent)break;evnt(26070,592,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_COL=FUNC_HELP_COL(); -if(!qbevent)break;evnt(26070,592,"wiki_methods.bas");}while(r); -S_58725:; -}else{ -if (qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_WIKIPARSE_STRING_CB, 5 ),qbs_new_txt_len("Small",5)))){ -if(qbevent){evnt(26070,593,"wiki_methods.bas");if(r)goto S_58725;} -S_58726:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_SUB_WIKIPARSE_STRING_CB, 6 )== 196 )))||new_error){ -if(qbevent){evnt(26070,594,"wiki_methods.bas");if(r)goto S_58726;} -do{ -SUB_HELP_ADDTXT(qbs_add(qbs_new_txt_len(" ",1),func_string(*__LONG_HELP_WW-*__LONG_HELP_POS, 196 )),&(pass6518= 15 ),&(pass6519= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,595,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_BG_COL= 0 ; -if(!qbevent)break;evnt(26070,596,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_COL=FUNC_HELP_COL(); -if(!qbevent)break;evnt(26070,596,"wiki_methods.bas");}while(r); -}else{ -do{ -*__LONG_HELP_CENTER= 0 ; -if(!qbevent)break;evnt(26070,598,"wiki_methods.bas");}while(r); -} -do{ -SUB_HELP_NEWLINE(); -if(!qbevent)break;evnt(26070,600,"wiki_methods.bas");}while(r); -do{ -qbs_set(_SUB_WIKIPARSE_STRING_CB,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,600,"wiki_methods.bas");}while(r); -} -} -do{ -*_SUB_WIKIPARSE_LONG_CB= 0 ; -if(!qbevent)break;evnt(26070,602,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,602,"wiki_methods.bas");}while(r); -} -} -S_58739:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_WIKIPARSE_STRING_C,qbs_new_txt_len("|",1)))&(-(*_SUB_WIKIPARSE_LONG_CB== 1 ))))||new_error){ -if(qbevent){evnt(26070,604,"wiki_methods.bas");if(r)goto S_58739;} -do{ -*_SUB_WIKIPARSE_LONG_CB= 2 ; -if(!qbevent)break;evnt(26070,604,"wiki_methods.bas");}while(r); -} -S_58742:; -if ((-(*__LONG_HELP_LOCKPARSE== 0 ))||new_error){ -if(qbevent){evnt(26070,606,"wiki_methods.bas");if(r)goto S_58742;} -do{ -qbs_set(_SUB_WIKIPARSE_STRING_CBO,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,607,"wiki_methods.bas");}while(r); -S_58744:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_WIKIPARSE_STRING_CB,qbs_new_txt_len("PageSyntax",10))))||new_error){ -if(qbevent){evnt(26070,609,"wiki_methods.bas");if(r)goto S_58744;} -do{ -qbs_set(_SUB_WIKIPARSE_STRING_CBO,qbs_new_txt_len("Syntax:",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,609,"wiki_methods.bas");}while(r); -} -S_58747:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_WIKIPARSE_STRING_CB,qbs_new_txt_len("PageParameters",14))))||new_error){ -if(qbevent){evnt(26070,610,"wiki_methods.bas");if(r)goto S_58747;} -do{ -qbs_set(_SUB_WIKIPARSE_STRING_CBO,qbs_new_txt_len("Parameters:",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,610,"wiki_methods.bas");}while(r); -} -S_58750:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_WIKIPARSE_STRING_CB,qbs_new_txt_len("PageDescription",15))))||new_error){ -if(qbevent){evnt(26070,611,"wiki_methods.bas");if(r)goto S_58750;} -do{ -qbs_set(_SUB_WIKIPARSE_STRING_CBO,qbs_new_txt_len("Description:",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,611,"wiki_methods.bas");}while(r); -} -S_58753:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_WIKIPARSE_STRING_CB,qbs_new_txt_len("PageAvailability",16))))||new_error){ -if(qbevent){evnt(26070,612,"wiki_methods.bas");if(r)goto S_58753;} -do{ -qbs_set(_SUB_WIKIPARSE_STRING_CBO,qbs_new_txt_len("Availability:",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,612,"wiki_methods.bas");}while(r); -} -S_58756:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_WIKIPARSE_STRING_CB,qbs_new_txt_len("PageExamples",12))))||new_error){ -if(qbevent){evnt(26070,613,"wiki_methods.bas");if(r)goto S_58756;} -do{ -qbs_set(_SUB_WIKIPARSE_STRING_CBO,qbs_new_txt_len("Examples:",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,613,"wiki_methods.bas");}while(r); -} -S_58759:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_WIKIPARSE_STRING_CB,qbs_new_txt_len("PageSeeAlso",11))))||new_error){ -if(qbevent){evnt(26070,614,"wiki_methods.bas");if(r)goto S_58759;} -do{ -qbs_set(_SUB_WIKIPARSE_STRING_CBO,qbs_new_txt_len("See also:",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,614,"wiki_methods.bas");}while(r); -} -S_58762:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_WIKIPARSE_STRING_CB,qbs_new_txt_len("PageInternalError",17))))||new_error){ -if(qbevent){evnt(26070,616,"wiki_methods.bas");if(r)goto S_58762;} -do{ -qbs_set(_SUB_WIKIPARSE_STRING_CBO,qbs_new_txt_len("Sorry, an error occurred:",25)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,616,"wiki_methods.bas");}while(r); -} -S_58765:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_WIKIPARSE_STRING_CBO,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,618,"wiki_methods.bas");if(r)goto S_58765;} -S_58766:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_SUB_WIKIPARSE_STRING_CBO, 1 ),qbs_new_txt_len(":",1))))||new_error){ -if(qbevent){evnt(26070,619,"wiki_methods.bas");if(r)goto S_58766;} -do{ -*__LONG_HELP_UNDERLINE= 2 ; -if(!qbevent)break;evnt(26070,619,"wiki_methods.bas");}while(r); -}else{ -do{ -*__LONG_HELP_UNDERLINE= 1 ; -if(!qbevent)break;evnt(26070,619,"wiki_methods.bas");}while(r); -} -do{ -SUB_HELP_ADDTXT(_SUB_WIKIPARSE_STRING_CBO,__LONG_HELP_COL_SECTION,&(pass6520= 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,620,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_AH= 2 ; -if(!qbevent)break;evnt(26070,620,"wiki_methods.bas");}while(r); -} -} -S_58775:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_WIKIPARSE_STRING_CB,qbs_new_txt_len("InlineCode",10)))&(-(*__LONG_HELP_LOCKPARSE== 0 ))))||new_error){ -if(qbevent){evnt(26070,625,"wiki_methods.bas");if(r)goto S_58775;} -do{ -*__LONG_HELP_BOLD= 0 ; -if(!qbevent)break;evnt(26070,626,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_ITALIC= 0 ; -if(!qbevent)break;evnt(26070,626,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_COL=FUNC_HELP_COL(); -if(!qbevent)break;evnt(26070,626,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_BG_COL= 1 ; -if(!qbevent)break;evnt(26070,627,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_LOCKPARSE= 2 ; -if(!qbevent)break;evnt(26070,627,"wiki_methods.bas");}while(r); -} -S_58782:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_WIKIPARSE_STRING_CB,qbs_new_txt_len("InlineCodeEnd",13)))&(-(*__LONG_HELP_LOCKPARSE!= 0 ))))||new_error){ -if(qbevent){evnt(26070,629,"wiki_methods.bas");if(r)goto S_58782;} -do{ -*__LONG_HELP_BG_COL= 0 ; -if(!qbevent)break;evnt(26070,630,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_LOCKPARSE= 0 ; -if(!qbevent)break;evnt(26070,630,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_BOLD= 0 ; -if(!qbevent)break;evnt(26070,631,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_ITALIC= 0 ; -if(!qbevent)break;evnt(26070,631,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_COL=FUNC_HELP_COL(); -if(!qbevent)break;evnt(26070,631,"wiki_methods.bas");}while(r); -} -S_58789:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_WIKIPARSE_STRING_CB,qbs_new_txt_len("CodeStart",9)))&(-(*__LONG_HELP_LOCKPARSE== 0 ))))||new_error){ -if(qbevent){evnt(26070,633,"wiki_methods.bas");if(r)goto S_58789;} -do{ -SUB_HELP_CHECKBLANKLINE(); -if(!qbevent)break;evnt(26070,634,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_BOLD= 0 ; -if(!qbevent)break;evnt(26070,635,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_ITALIC= 0 ; -if(!qbevent)break;evnt(26070,635,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_COL=FUNC_HELP_COL(); -if(!qbevent)break;evnt(26070,635,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_BG_COL= 1 ; -if(!qbevent)break;evnt(26070,636,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_LOCKPARSE= 2 ; -if(!qbevent)break;evnt(26070,636,"wiki_methods.bas");}while(r); -do{ -SUB_HELP_ADDTXT(qbs_add(qbs_add(func_string(*__LONG_HELP_WW- 15 , 196 ),qbs_new_txt_len(" Code Block ",12)),func_string( 3 , 196 )),&(pass6521= 15 ),&(pass6522= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,637,"wiki_methods.bas");}while(r); -do{ -SUB_HELP_NEWLINE(); -if(!qbevent)break;evnt(26070,637,"wiki_methods.bas");}while(r); -S_58798:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 3 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),(qbs_add(qbs_new_txt_len("}}",2),func_chr( 10 ))))))||new_error){ -if(qbevent){evnt(26070,638,"wiki_methods.bas");if(r)goto S_58798;} -do{ -*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,638,"wiki_methods.bas");}while(r); -} -} -S_58802:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_WIKIPARSE_STRING_CB,qbs_new_txt_len("CodeEnd",7)))&(-(*__LONG_HELP_LOCKPARSE!= 0 ))))||new_error){ -if(qbevent){evnt(26070,640,"wiki_methods.bas");if(r)goto S_58802;} -do{ -SUB_HELP_CHECKFINISHLINE(); -if(!qbevent)break;evnt(26070,641,"wiki_methods.bas");}while(r); -do{ -SUB_HELP_CHECKREMOVEBLANKLINE(); -if(!qbevent)break;evnt(26070,641,"wiki_methods.bas");}while(r); -do{ -SUB_HELP_ADDTXT(func_string(*__LONG_HELP_WW, 196 ),&(pass6523= 15 ),&(pass6524= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,642,"wiki_methods.bas");}while(r); -do{ -SUB_HELP_NEWLINE(); -if(!qbevent)break;evnt(26070,642,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_BG_COL= 0 ; -if(!qbevent)break;evnt(26070,643,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_LOCKPARSE= 0 ; -if(!qbevent)break;evnt(26070,643,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_BOLD= 0 ; -if(!qbevent)break;evnt(26070,644,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_ITALIC= 0 ; -if(!qbevent)break;evnt(26070,644,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_COL=FUNC_HELP_COL(); -if(!qbevent)break;evnt(26070,644,"wiki_methods.bas");}while(r); -} -S_58813:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(_SUB_WIKIPARSE_STRING_CB, 11 ),qbs_new_txt_len("OutputStart",11)))&(-(*__LONG_HELP_LOCKPARSE== 0 ))))||new_error){ -if(qbevent){evnt(26070,647,"wiki_methods.bas");if(r)goto S_58813;} -do{ -SUB_HELP_CHECKBLANKLINE(); -if(!qbevent)break;evnt(26070,648,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_BOLD= 0 ; -if(!qbevent)break;evnt(26070,649,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_ITALIC= 0 ; -if(!qbevent)break;evnt(26070,649,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_COL=FUNC_HELP_COL(); -if(!qbevent)break;evnt(26070,649,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_BG_COL= 2 ; -if(!qbevent)break;evnt(26070,650,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_LOCKPARSE= 1 ; -if(!qbevent)break;evnt(26070,650,"wiki_methods.bas");}while(r); -do{ -SUB_HELP_ADDTXT(qbs_add(qbs_add(func_string(*__LONG_HELP_WW- 17 , 196 ),qbs_new_txt_len(" Output Block ",14)),func_string( 3 , 196 )),&(pass6525= 15 ),&(pass6526= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,651,"wiki_methods.bas");}while(r); -do{ -SUB_HELP_NEWLINE(); -if(!qbevent)break;evnt(26070,651,"wiki_methods.bas");}while(r); -S_58822:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 3 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),(qbs_add(qbs_new_txt_len("}}",2),func_chr( 10 ))))))||new_error){ -if(qbevent){evnt(26070,652,"wiki_methods.bas");if(r)goto S_58822;} -do{ -*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,652,"wiki_methods.bas");}while(r); -} -} -S_58826:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_WIKIPARSE_STRING_CB,qbs_new_txt_len("OutputEnd",9)))&(-(*__LONG_HELP_LOCKPARSE!= 0 ))))||new_error){ -if(qbevent){evnt(26070,654,"wiki_methods.bas");if(r)goto S_58826;} -do{ -SUB_HELP_CHECKFINISHLINE(); -if(!qbevent)break;evnt(26070,655,"wiki_methods.bas");}while(r); -do{ -SUB_HELP_CHECKREMOVEBLANKLINE(); -if(!qbevent)break;evnt(26070,655,"wiki_methods.bas");}while(r); -do{ -SUB_HELP_ADDTXT(func_string((*__LONG_HELP_WW- 54 )/ 2 , 196 ),&(pass6527= 15 ),&(pass6528= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,656,"wiki_methods.bas");}while(r); -do{ -SUB_HELP_ADDTXT(qbs_new_txt_len(" This block does not reflect the actual output colors ",54),&(pass6529= 15 ),&(pass6530= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,657,"wiki_methods.bas");}while(r); -do{ -SUB_HELP_ADDTXT(func_string(*__LONG_HELP_WW-*__LONG_HELP_POS+ 1 , 196 ),&(pass6531= 15 ),&(pass6532= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,658,"wiki_methods.bas");}while(r); -do{ -SUB_HELP_NEWLINE(); -if(!qbevent)break;evnt(26070,658,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_BG_COL= 0 ; -if(!qbevent)break;evnt(26070,659,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_LOCKPARSE= 0 ; -if(!qbevent)break;evnt(26070,659,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_BOLD= 0 ; -if(!qbevent)break;evnt(26070,660,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_ITALIC= 0 ; -if(!qbevent)break;evnt(26070,660,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_COL=FUNC_HELP_COL(); -if(!qbevent)break;evnt(26070,660,"wiki_methods.bas");}while(r); -} -S_58839:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_WIKIPARSE_STRING_CB,qbs_new_txt_len("TextStart",9)))&(-(*__LONG_HELP_LOCKPARSE== 0 ))))||new_error){ -if(qbevent){evnt(26070,663,"wiki_methods.bas");if(r)goto S_58839;} -do{ -SUB_HELP_CHECKBLANKLINE(); -if(!qbevent)break;evnt(26070,664,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_BOLD= 0 ; -if(!qbevent)break;evnt(26070,665,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_ITALIC= 0 ; -if(!qbevent)break;evnt(26070,665,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_COL=FUNC_HELP_COL(); -if(!qbevent)break;evnt(26070,665,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_BG_COL= 6 ; -if(!qbevent)break;evnt(26070,666,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_LOCKPARSE= -1 ; -if(!qbevent)break;evnt(26070,666,"wiki_methods.bas");}while(r); -do{ -SUB_HELP_ADDTXT(qbs_add(qbs_add(func_string(*__LONG_HELP_WW- 15 , 196 ),qbs_new_txt_len(" Text Block ",12)),func_string( 3 , 196 )),&(pass6533= 15 ),&(pass6534= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,667,"wiki_methods.bas");}while(r); -do{ -SUB_HELP_NEWLINE(); -if(!qbevent)break;evnt(26070,667,"wiki_methods.bas");}while(r); -S_58848:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 3 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),(qbs_add(qbs_new_txt_len("}}",2),func_chr( 10 ))))))||new_error){ -if(qbevent){evnt(26070,668,"wiki_methods.bas");if(r)goto S_58848;} -do{ -*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,668,"wiki_methods.bas");}while(r); -} -} -S_58852:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_WIKIPARSE_STRING_CB,qbs_new_txt_len("TextEnd",7)))&(-(*__LONG_HELP_LOCKPARSE!= 0 ))))||new_error){ -if(qbevent){evnt(26070,670,"wiki_methods.bas");if(r)goto S_58852;} -do{ -SUB_HELP_CHECKFINISHLINE(); -if(!qbevent)break;evnt(26070,671,"wiki_methods.bas");}while(r); -do{ -SUB_HELP_CHECKREMOVEBLANKLINE(); -if(!qbevent)break;evnt(26070,671,"wiki_methods.bas");}while(r); -do{ -SUB_HELP_ADDTXT(func_string(*__LONG_HELP_WW, 196 ),&(pass6535= 15 ),&(pass6536= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,672,"wiki_methods.bas");}while(r); -do{ -SUB_HELP_NEWLINE(); -if(!qbevent)break;evnt(26070,672,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_BG_COL= 0 ; -if(!qbevent)break;evnt(26070,673,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_LOCKPARSE= 0 ; -if(!qbevent)break;evnt(26070,673,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_BOLD= 0 ; -if(!qbevent)break;evnt(26070,674,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_ITALIC= 0 ; -if(!qbevent)break;evnt(26070,674,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_COL=FUNC_HELP_COL(); -if(!qbevent)break;evnt(26070,674,"wiki_methods.bas");}while(r); -} -S_58863:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_WIKIPARSE_STRING_CB,qbs_new_txt_len("PreStart",8)))&(-(*__LONG_HELP_LOCKPARSE== 0 ))))||new_error){ -if(qbevent){evnt(26070,677,"wiki_methods.bas");if(r)goto S_58863;} -do{ -SUB_HELP_CHECKREMOVEBLANKLINE(); -if(!qbevent)break;evnt(26070,678,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_BOLD= 0 ; -if(!qbevent)break;evnt(26070,679,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_ITALIC= 0 ; -if(!qbevent)break;evnt(26070,679,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_COL=FUNC_HELP_COL(); -if(!qbevent)break;evnt(26070,679,"wiki_methods.bas");}while(r); -do{ -qbs_set(__STRING_HELP_LINDENT,qbs_new_txt_len(" ",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,680,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_LOCKPARSE= -2 ; -if(!qbevent)break;evnt(26070,680,"wiki_methods.bas");}while(r); -do{ -SUB_HELP_NEWLINE(); -if(!qbevent)break;evnt(26070,681,"wiki_methods.bas");}while(r); -S_58871:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 3 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),(qbs_add(qbs_new_txt_len("}}",2),func_chr( 10 ))))))||new_error){ -if(qbevent){evnt(26070,682,"wiki_methods.bas");if(r)goto S_58871;} -do{ -*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,682,"wiki_methods.bas");}while(r); -} -} -S_58875:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_WIKIPARSE_STRING_CB,qbs_new_txt_len("PreEnd",6)))&(-(*__LONG_HELP_LOCKPARSE!= 0 ))))||new_error){ -if(qbevent){evnt(26070,684,"wiki_methods.bas");if(r)goto S_58875;} -do{ -qbs_set(__STRING_HELP_LINDENT,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,685,"wiki_methods.bas");}while(r); -do{ -SUB_HELP_CHECKREMOVEBLANKLINE(); -if(!qbevent)break;evnt(26070,686,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_LOCKPARSE= 0 ; -if(!qbevent)break;evnt(26070,687,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_BOLD= 0 ; -if(!qbevent)break;evnt(26070,688,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_ITALIC= 0 ; -if(!qbevent)break;evnt(26070,688,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_COL=FUNC_HELP_COL(); -if(!qbevent)break;evnt(26070,688,"wiki_methods.bas");}while(r); -} -S_58883:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_WIKIPARSE_STRING_CB,qbs_new_txt_len("FixedStart",10)))&(-(*__LONG_HELP_LOCKPARSE== 0 ))))||new_error){ -if(qbevent){evnt(26070,691,"wiki_methods.bas");if(r)goto S_58883;} -do{ -SUB_HELP_CHECKBLANKLINE(); -if(!qbevent)break;evnt(26070,692,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_BOLD= 0 ; -if(!qbevent)break;evnt(26070,693,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_ITALIC= 0 ; -if(!qbevent)break;evnt(26070,693,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_COL=FUNC_HELP_COL(); -if(!qbevent)break;evnt(26070,693,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_BG_COL= 6 ; -if(!qbevent)break;evnt(26070,694,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_LOCKPARSE= -2 ; -if(!qbevent)break;evnt(26070,694,"wiki_methods.bas");}while(r); -do{ -SUB_HELP_ADDTXT(qbs_add(qbs_add(func_string(*__LONG_HELP_WW- 16 , 196 ),qbs_new_txt_len(" Fixed Block ",13)),func_string( 3 , 196 )),&(pass6537= 15 ),&(pass6538= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,695,"wiki_methods.bas");}while(r); -do{ -SUB_HELP_NEWLINE(); -if(!qbevent)break;evnt(26070,695,"wiki_methods.bas");}while(r); -S_58892:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 3 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),(qbs_add(qbs_new_txt_len("}}",2),func_chr( 10 ))))))||new_error){ -if(qbevent){evnt(26070,696,"wiki_methods.bas");if(r)goto S_58892;} -do{ -*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,696,"wiki_methods.bas");}while(r); -} -} -S_58896:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_WIKIPARSE_STRING_CB,qbs_new_txt_len("FixedEnd",8)))&(-(*__LONG_HELP_LOCKPARSE!= 0 ))))||new_error){ -if(qbevent){evnt(26070,698,"wiki_methods.bas");if(r)goto S_58896;} -do{ -SUB_HELP_CHECKFINISHLINE(); -if(!qbevent)break;evnt(26070,699,"wiki_methods.bas");}while(r); -do{ -SUB_HELP_CHECKREMOVEBLANKLINE(); -if(!qbevent)break;evnt(26070,699,"wiki_methods.bas");}while(r); -do{ -SUB_HELP_ADDTXT(func_string(*__LONG_HELP_WW, 196 ),&(pass6539= 15 ),&(pass6540= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,700,"wiki_methods.bas");}while(r); -do{ -SUB_HELP_NEWLINE(); -if(!qbevent)break;evnt(26070,700,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_BG_COL= 0 ; -if(!qbevent)break;evnt(26070,701,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_LOCKPARSE= 0 ; -if(!qbevent)break;evnt(26070,701,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_BOLD= 0 ; -if(!qbevent)break;evnt(26070,702,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_ITALIC= 0 ; -if(!qbevent)break;evnt(26070,702,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_COL=FUNC_HELP_COL(); -if(!qbevent)break;evnt(26070,702,"wiki_methods.bas");}while(r); -} -S_58907:; -if ((qbs_cleanup(qbs_tmp_base,(((qbs_equal(_SUB_WIKIPARSE_STRING_CB,qbs_new_txt_len("PageNavigation",14)))|(qbs_equal(qbs_right(_SUB_WIKIPARSE_STRING_CB, 6 ),qbs_new_txt_len("Plugin",6)))))&(-(*__LONG_HELP_LOCKPARSE== 0 ))))||new_error){ -if(qbevent){evnt(26070,706,"wiki_methods.bas");if(r)goto S_58907;} -do{ -qbs_set(_SUB_WIKIPARSE_STRING_PIT,FUNC_WIKI(qbs_add(qbs_new_txt_len("Template:",9),_SUB_WIKIPARSE_STRING_CB))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,707,"wiki_methods.bas");}while(r); -S_58909:; -if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_SUB_WIKIPARSE_STRING_PIT,qbs_new_txt_len("{{PageInternalError}}",21),0)== 0 )))||new_error){ -if(qbevent){evnt(26070,708,"wiki_methods.bas");if(r)goto S_58909;} -do{ -qbs_set(_SUB_WIKIPARSE_STRING_A,qbs_add(qbs_add(qbs_left(_SUB_WIKIPARSE_STRING_A,*_SUB_WIKIPARSE_LONG_I),_SUB_WIKIPARSE_STRING_PIT),qbs_right(_SUB_WIKIPARSE_STRING_A,_SUB_WIKIPARSE_STRING_A->len-*_SUB_WIKIPARSE_LONG_I))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,709,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_N=*_SUB_WIKIPARSE_LONG_N+_SUB_WIKIPARSE_STRING_PIT->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,710,"wiki_methods.bas");}while(r); -} -} -S_58914:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_WIKIPARSE_STRING_C,qbs_new_txt_len("|",1)))&(qbs_equal(_SUB_WIKIPARSE_STRING_CB,qbs_new_txt_len("Parameter",9)))&(-(*__LONG_HELP_LOCKPARSE<= 0 ))))||new_error){ -if(qbevent){evnt(26070,715,"wiki_methods.bas");if(r)goto S_58914;} -do{ -*__LONG_HELP_ITALIC= 1 ; -if(!qbevent)break;evnt(26070,716,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_COL=FUNC_HELP_COL(); -if(!qbevent)break;evnt(26070,716,"wiki_methods.bas");}while(r); -} -S_58918:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_WIKIPARSE_STRING_CB,qbs_new_txt_len("Small",5)))&(-(*__LONG_HELP_LOCKPARSE<= 0 ))))||new_error){ -if(qbevent){evnt(26070,720,"wiki_methods.bas");if(r)goto S_58918;} -do{ -qbs_set(_SUB_WIKIPARSE_STRING_WLA,FUNC_WIKILOOKAHEAD(_SUB_WIKIPARSE_STRING_A,&(pass6543=*_SUB_WIKIPARSE_LONG_I+ 1 ),qbs_new_txt_len("}}",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,721,"wiki_methods.bas");}while(r); -do{ -qbs_set(__STRING_HELP_CINDENT,FUNC_WIKIBUILDCINDENT(_SUB_WIKIPARSE_STRING_WLA)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,722,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_III= 0 ; -if(!qbevent)break;evnt(26070,722,"wiki_methods.bas");}while(r); -S_58922:; -if ((qbs_cleanup(qbs_tmp_base,(-(*_SUB_WIKIPARSE_LONG_I> 31 ))&(-((qbs_asc(__STRING_HELP_CINDENT, 1 ))>=(*__LONG_HELP_WW/ ((long double)( 4 )))))))||new_error){ -if(qbevent){evnt(26070,723,"wiki_methods.bas");if(r)goto S_58922;} -S_58923:; -if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,func_mid(_SUB_WIKIPARSE_STRING_A,*_SUB_WIKIPARSE_LONG_I- 30 , 30 ,0|1),qbs_new_txt_len("{{CodeEnd}}",11),0)> 0 )))||new_error){ -if(qbevent){evnt(26070,724,"wiki_methods.bas");if(r)goto S_58923;} -do{ -*_SUB_WIKIPARSE_LONG_III= -1 ; -if(!qbevent)break;evnt(26070,724,"wiki_methods.bas");}while(r); -} -S_58926:; -if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,func_mid(_SUB_WIKIPARSE_STRING_A,*_SUB_WIKIPARSE_LONG_I- 30 , 30 ,0|1),qbs_new_txt_len("{{TextEnd}}",11),0)> 0 )))||new_error){ -if(qbevent){evnt(26070,725,"wiki_methods.bas");if(r)goto S_58926;} -do{ -*_SUB_WIKIPARSE_LONG_III= -6 ; -if(!qbevent)break;evnt(26070,725,"wiki_methods.bas");}while(r); -} -S_58929:; -if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,func_mid(_SUB_WIKIPARSE_STRING_A,*_SUB_WIKIPARSE_LONG_I- 31 , 31 ,0|1),qbs_new_txt_len("{{FixedEnd}}",12),0)> 0 )))||new_error){ -if(qbevent){evnt(26070,726,"wiki_methods.bas");if(r)goto S_58929;} -do{ -*_SUB_WIKIPARSE_LONG_III= -6 ; -if(!qbevent)break;evnt(26070,726,"wiki_methods.bas");}while(r); -} -} -S_58933:; -if ((-(*_SUB_WIKIPARSE_LONG_III!= 0 ))||new_error){ -if(qbevent){evnt(26070,728,"wiki_methods.bas");if(r)goto S_58933;} -S_58934:; -fornext_value6545=*__LONG_HELP_TXT_LEN- 3 ; -fornext_finalvalue6545= 1 ; -fornext_step6545= -4 ; -if (fornext_step6545<0) fornext_step_negative6545=1; else fornext_step_negative6545=0; -if (new_error) goto fornext_error6545; -goto fornext_entrylabel6545; -while(1){ -fornext_value6545=fornext_step6545+(*_SUB_WIKIPARSE_LONG_II); -fornext_entrylabel6545: -*_SUB_WIKIPARSE_LONG_II=fornext_value6545; -if (fornext_step_negative6545){ -if (fornext_value6545fornext_finalvalue6545) break; -} -fornext_error6545:; -if(qbevent){evnt(26070,729,"wiki_methods.bas");if(r)goto S_58934;} -S_58935:; -if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(__STRING_HELP_TXT,*_SUB_WIKIPARSE_LONG_II)== 32 ))&(-(*_SUB_WIKIPARSE_LONG_III< 0 ))))||new_error){ -if(qbevent){evnt(26070,730,"wiki_methods.bas");if(r)goto S_58935;} -do{ -*__LONG_HELP_POS=*__LONG_HELP_POS- 1 ; -if(!qbevent)break;evnt(26070,731,"wiki_methods.bas");}while(r); -S_58937:; -}else{ -if (qbs_cleanup(qbs_tmp_base,(-(qbs_asc(__STRING_HELP_TXT,*_SUB_WIKIPARSE_LONG_II+ 1 )> 127 ))&(-(*_SUB_WIKIPARSE_LONG_III< 0 )))){ -if(qbevent){evnt(26070,732,"wiki_methods.bas");if(r)goto S_58937;} -do{ -*__LONG_HELP_H=*__LONG_HELP_H- 1 ; -if(!qbevent)break;evnt(26070,733,"wiki_methods.bas");}while(r); -do{ -qbs_set(__STRING_HELP_LINE,qbs_left(__STRING_HELP_LINE,__STRING_HELP_LINE->len- 4 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,733,"wiki_methods.bas");}while(r); -S_58940:; -}else{ -if (qbs_cleanup(qbs_tmp_base,(-(qbs_asc(__STRING_HELP_TXT,*_SUB_WIKIPARSE_LONG_II)== 196 ))&(-(*_SUB_WIKIPARSE_LONG_III< 0 )))){ -if(qbevent){evnt(26070,734,"wiki_methods.bas");if(r)goto S_58940;} -do{ -*_SUB_WIKIPARSE_LONG_III=-(*_SUB_WIKIPARSE_LONG_III); -if(!qbevent)break;evnt(26070,735,"wiki_methods.bas");}while(r); -S_58942:; -}else{ -if (qbs_cleanup(qbs_tmp_base,(-(qbs_asc(__STRING_HELP_TXT,*_SUB_WIKIPARSE_LONG_II+ 1 )> 127 ))&(-(*_SUB_WIKIPARSE_LONG_III> 0 )))){ -if(qbevent){evnt(26070,736,"wiki_methods.bas");if(r)goto S_58942;} -do{ -*__LONG_HELP_TXT_LEN=*_SUB_WIKIPARSE_LONG_II+ 3 ; -if(!qbevent)break;evnt(26070,737,"wiki_methods.bas");}while(r); -do{ -goto fornext_exit_6544; -if(!qbevent)break;evnt(26070,737,"wiki_methods.bas");}while(r); -} -} -} -} -fornext_continue_6544:; -} -fornext_exit_6544:; -do{ -*__LONG_HELP_BG_COL=*_SUB_WIKIPARSE_LONG_III; -if(!qbevent)break;evnt(26070,740,"wiki_methods.bas");}while(r); -do{ -qbs_set(_SUB_WIKIPARSE_STRING_CB,qbs_add(_SUB_WIKIPARSE_STRING_CB,func_chr( 196 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,740,"wiki_methods.bas");}while(r); -do{ -SUB_HELP_ADDTXT(qbs_add(func_string(qbs_asc(__STRING_HELP_CINDENT, 1 )- 1 , 196 ),qbs_new_txt_len(" ",1)),&(pass6547= 15 ),&(pass6548= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,741,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_COL= 15 ; -if(!qbevent)break;evnt(26070,742,"wiki_methods.bas");}while(r); -}else{ -do{ -*__LONG_HELP_CENTER= 1 ; -if(!qbevent)break;evnt(26070,744,"wiki_methods.bas");}while(r); -do{ -qbs_set(_SUB_WIKIPARSE_STRING_CB,qbs_add(_SUB_WIKIPARSE_STRING_CB,func_chr( 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,744,"wiki_methods.bas");}while(r); -do{ -SUB_HELP_ADDTXT(func_space(qbs_asc(__STRING_HELP_CINDENT, 1 )),_SUB_WIKIPARSE_LONG_COL,&(pass6549= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,745,"wiki_methods.bas");}while(r); -} -do{ -qbs_set(__STRING_HELP_CINDENT,func_mid(__STRING_HELP_CINDENT, 2 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,747,"wiki_methods.bas");}while(r); -} -do{ -goto LABEL_CHARDONE; -if(!qbevent)break;evnt(26070,750,"wiki_methods.bas");}while(r); -} -S_58960:; -if ((-(*_SUB_WIKIPARSE_LONG_CB== 1 ))||new_error){ -if(qbevent){evnt(26070,753,"wiki_methods.bas");if(r)goto S_58960;} -do{ -qbs_set(_SUB_WIKIPARSE_STRING_CB,qbs_add(_SUB_WIKIPARSE_STRING_CB,_SUB_WIKIPARSE_STRING_C)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,753,"wiki_methods.bas");}while(r); -} -S_58963:; -if ((-(*_SUB_WIKIPARSE_LONG_CB== 2 ))||new_error){ -if(qbevent){evnt(26070,754,"wiki_methods.bas");if(r)goto S_58963;} -do{ -goto LABEL_CHKENTUTF; -if(!qbevent)break;evnt(26070,754,"wiki_methods.bas");}while(r); -} -do{ -goto LABEL_CHARDONE; -if(!qbevent)break;evnt(26070,755,"wiki_methods.bas");}while(r); -} -S_58968:; -if ((-(*__LONG_HELP_LOCKPARSE== 0 ))||new_error){ -if(qbevent){evnt(26070,760,"wiki_methods.bas");if(r)goto S_58968;} -do{ -*_SUB_WIKIPARSE_LONG_II= 0 ; -if(!qbevent)break;evnt(26070,762,"wiki_methods.bas");}while(r); -S_58970:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 5 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len(" ====",5)))&(-(*__LONG_HELP_HEADING== 4 ))))||new_error){ -if(qbevent){evnt(26070,763,"wiki_methods.bas");if(r)goto S_58970;} -do{ -*_SUB_WIKIPARSE_LONG_II= 4 ; -if(!qbevent)break;evnt(26070,763,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_HEADING= 0 ; -if(!qbevent)break;evnt(26070,763,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_HL= 0 ; -if(!qbevent)break;evnt(26070,763,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_AH= 2 ; -if(!qbevent)break;evnt(26070,763,"wiki_methods.bas");}while(r); -} -S_58976:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 4 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("====",4)))&(-(*__LONG_HELP_HEADING== 4 ))))||new_error){ -if(qbevent){evnt(26070,764,"wiki_methods.bas");if(r)goto S_58976;} -do{ -*_SUB_WIKIPARSE_LONG_II= 3 ; -if(!qbevent)break;evnt(26070,764,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_HEADING= 0 ; -if(!qbevent)break;evnt(26070,764,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_HL= 0 ; -if(!qbevent)break;evnt(26070,764,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_AH= 2 ; -if(!qbevent)break;evnt(26070,764,"wiki_methods.bas");}while(r); -} -S_58982:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 4 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("====",4)))&(-(*_SUB_WIKIPARSE_LONG_NL== 1 ))))||new_error){ -if(qbevent){evnt(26070,765,"wiki_methods.bas");if(r)goto S_58982;} -do{ -*_SUB_WIKIPARSE_LONG_II= 3 ; -if(!qbevent)break;evnt(26070,765,"wiki_methods.bas");}while(r); -do{ -SUB_HELP_CHECKBLANKLINE(); -if(!qbevent)break;evnt(26070,765,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_HEADING= 4 ; -if(!qbevent)break;evnt(26070,765,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_HL= 1 ; -if(!qbevent)break;evnt(26070,765,"wiki_methods.bas");}while(r); -} -S_58988:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 5 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("==== ",5)))&(-(*_SUB_WIKIPARSE_LONG_NL== 1 ))))||new_error){ -if(qbevent){evnt(26070,766,"wiki_methods.bas");if(r)goto S_58988;} -do{ -*_SUB_WIKIPARSE_LONG_II= 4 ; -if(!qbevent)break;evnt(26070,766,"wiki_methods.bas");}while(r); -do{ -SUB_HELP_CHECKBLANKLINE(); -if(!qbevent)break;evnt(26070,766,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_HEADING= 4 ; -if(!qbevent)break;evnt(26070,766,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_HL= 1 ; -if(!qbevent)break;evnt(26070,766,"wiki_methods.bas");}while(r); -} -S_58994:; -if ((-(*_SUB_WIKIPARSE_LONG_II> 0 ))||new_error){ -if(qbevent){evnt(26070,767,"wiki_methods.bas");if(r)goto S_58994;} -do{ -*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+*_SUB_WIKIPARSE_LONG_II; -if(!qbevent)break;evnt(26070,767,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_COL=FUNC_HELP_COL(); -if(!qbevent)break;evnt(26070,767,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_UNDERLINE= 0 ; -if(!qbevent)break;evnt(26070,767,"wiki_methods.bas");}while(r); -do{ -goto LABEL_CHARDONE; -if(!qbevent)break;evnt(26070,767,"wiki_methods.bas");}while(r); -} -do{ -*_SUB_WIKIPARSE_LONG_II= 0 ; -if(!qbevent)break;evnt(26070,768,"wiki_methods.bas");}while(r); -S_59001:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 4 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len(" ===",4)))&(-(*__LONG_HELP_HEADING== 3 ))))||new_error){ -if(qbevent){evnt(26070,769,"wiki_methods.bas");if(r)goto S_59001;} -do{ -*_SUB_WIKIPARSE_LONG_II= 3 ; -if(!qbevent)break;evnt(26070,769,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_HEADING= 0 ; -if(!qbevent)break;evnt(26070,769,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_HL= 0 ; -if(!qbevent)break;evnt(26070,769,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_AH= 2 ; -if(!qbevent)break;evnt(26070,769,"wiki_methods.bas");}while(r); -} -S_59007:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 3 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("===",3)))&(-(*__LONG_HELP_HEADING== 3 ))))||new_error){ -if(qbevent){evnt(26070,770,"wiki_methods.bas");if(r)goto S_59007;} -do{ -*_SUB_WIKIPARSE_LONG_II= 2 ; -if(!qbevent)break;evnt(26070,770,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_HEADING= 0 ; -if(!qbevent)break;evnt(26070,770,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_HL= 0 ; -if(!qbevent)break;evnt(26070,770,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_AH= 2 ; -if(!qbevent)break;evnt(26070,770,"wiki_methods.bas");}while(r); -} -S_59013:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 3 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("===",3)))&(-(*_SUB_WIKIPARSE_LONG_NL== 1 ))))||new_error){ -if(qbevent){evnt(26070,771,"wiki_methods.bas");if(r)goto S_59013;} -do{ -*_SUB_WIKIPARSE_LONG_II= 2 ; -if(!qbevent)break;evnt(26070,771,"wiki_methods.bas");}while(r); -do{ -SUB_HELP_CHECKBLANKLINE(); -if(!qbevent)break;evnt(26070,771,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_HEADING= 3 ; -if(!qbevent)break;evnt(26070,771,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_HL= 1 ; -if(!qbevent)break;evnt(26070,771,"wiki_methods.bas");}while(r); -} -S_59019:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 4 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("=== ",4)))&(-(*_SUB_WIKIPARSE_LONG_NL== 1 ))))||new_error){ -if(qbevent){evnt(26070,772,"wiki_methods.bas");if(r)goto S_59019;} -do{ -*_SUB_WIKIPARSE_LONG_II= 3 ; -if(!qbevent)break;evnt(26070,772,"wiki_methods.bas");}while(r); -do{ -SUB_HELP_CHECKBLANKLINE(); -if(!qbevent)break;evnt(26070,772,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_HEADING= 3 ; -if(!qbevent)break;evnt(26070,772,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_HL= 1 ; -if(!qbevent)break;evnt(26070,772,"wiki_methods.bas");}while(r); -} -S_59025:; -if ((-(*_SUB_WIKIPARSE_LONG_II> 0 ))||new_error){ -if(qbevent){evnt(26070,773,"wiki_methods.bas");if(r)goto S_59025;} -do{ -*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+*_SUB_WIKIPARSE_LONG_II; -if(!qbevent)break;evnt(26070,773,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_COL=FUNC_HELP_COL(); -if(!qbevent)break;evnt(26070,773,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_UNDERLINE= 1 ; -if(!qbevent)break;evnt(26070,773,"wiki_methods.bas");}while(r); -do{ -goto LABEL_CHARDONE; -if(!qbevent)break;evnt(26070,773,"wiki_methods.bas");}while(r); -} -do{ -*_SUB_WIKIPARSE_LONG_II= 0 ; -if(!qbevent)break;evnt(26070,774,"wiki_methods.bas");}while(r); -S_59032:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 3 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len(" ==",3)))&(-(*__LONG_HELP_HEADING== 2 ))))||new_error){ -if(qbevent){evnt(26070,775,"wiki_methods.bas");if(r)goto S_59032;} -do{ -*_SUB_WIKIPARSE_LONG_II= 2 ; -if(!qbevent)break;evnt(26070,775,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_HEADING= 0 ; -if(!qbevent)break;evnt(26070,775,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_HL= 0 ; -if(!qbevent)break;evnt(26070,775,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_AH= 2 ; -if(!qbevent)break;evnt(26070,775,"wiki_methods.bas");}while(r); -} -S_59038:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 2 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("==",2)))&(-(*__LONG_HELP_HEADING== 2 ))))||new_error){ -if(qbevent){evnt(26070,776,"wiki_methods.bas");if(r)goto S_59038;} -do{ -*_SUB_WIKIPARSE_LONG_II= 1 ; -if(!qbevent)break;evnt(26070,776,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_HEADING= 0 ; -if(!qbevent)break;evnt(26070,776,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_HL= 0 ; -if(!qbevent)break;evnt(26070,776,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_AH= 2 ; -if(!qbevent)break;evnt(26070,776,"wiki_methods.bas");}while(r); -} -S_59044:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 2 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("==",2)))&(-(*_SUB_WIKIPARSE_LONG_NL== 1 ))))||new_error){ -if(qbevent){evnt(26070,777,"wiki_methods.bas");if(r)goto S_59044;} -do{ -*_SUB_WIKIPARSE_LONG_II= 1 ; -if(!qbevent)break;evnt(26070,777,"wiki_methods.bas");}while(r); -do{ -SUB_HELP_CHECKBLANKLINE(); -if(!qbevent)break;evnt(26070,777,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_HEADING= 2 ; -if(!qbevent)break;evnt(26070,777,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_HL= 1 ; -if(!qbevent)break;evnt(26070,777,"wiki_methods.bas");}while(r); -} -S_59050:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 3 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("== ",3)))&(-(*_SUB_WIKIPARSE_LONG_NL== 1 ))))||new_error){ -if(qbevent){evnt(26070,778,"wiki_methods.bas");if(r)goto S_59050;} -do{ -*_SUB_WIKIPARSE_LONG_II= 2 ; -if(!qbevent)break;evnt(26070,778,"wiki_methods.bas");}while(r); -do{ -SUB_HELP_CHECKBLANKLINE(); -if(!qbevent)break;evnt(26070,778,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_HEADING= 2 ; -if(!qbevent)break;evnt(26070,778,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_HL= 1 ; -if(!qbevent)break;evnt(26070,778,"wiki_methods.bas");}while(r); -} -S_59056:; -if ((-(*_SUB_WIKIPARSE_LONG_II> 0 ))||new_error){ -if(qbevent){evnt(26070,779,"wiki_methods.bas");if(r)goto S_59056;} -do{ -*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+*_SUB_WIKIPARSE_LONG_II; -if(!qbevent)break;evnt(26070,779,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_COL=FUNC_HELP_COL(); -if(!qbevent)break;evnt(26070,779,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_UNDERLINE= 2 ; -if(!qbevent)break;evnt(26070,779,"wiki_methods.bas");}while(r); -do{ -goto LABEL_CHARDONE; -if(!qbevent)break;evnt(26070,779,"wiki_methods.bas");}while(r); -} -} -S_59063:; -if ((-(*__LONG_HELP_LOCKPARSE== 0 ))||new_error){ -if(qbevent){evnt(26070,784,"wiki_methods.bas");if(r)goto S_59063;} -S_59064:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 4 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("----",4)))&(-(*_SUB_WIKIPARSE_LONG_NL== 1 ))))||new_error){ -if(qbevent){evnt(26070,786,"wiki_methods.bas");if(r)goto S_59064;} -do{ -*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 3 ; -if(!qbevent)break;evnt(26070,787,"wiki_methods.bas");}while(r); -do{ -SUB_HELP_CHECKBLANKLINE(); -if(!qbevent)break;evnt(26070,788,"wiki_methods.bas");}while(r); -do{ -SUB_HELP_ADDTXT(func_string(*__LONG_HELP_WW, 196 ),&(pass6550= 14 ),&(pass6551= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,789,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_CHKBLANK= 1 ; -if(!qbevent)break;evnt(26070,790,"wiki_methods.bas");}while(r); -do{ -goto LABEL_CHARDONE; -if(!qbevent)break;evnt(26070,791,"wiki_methods.bas");}while(r); -} -S_59071:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 4 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("
",4)))|(qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 6 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("
",6)))))||new_error){ -if(qbevent){evnt(26070,793,"wiki_methods.bas");if(r)goto S_59071;} -S_59072:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 4 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("
",4))))||new_error){ -if(qbevent){evnt(26070,794,"wiki_methods.bas");if(r)goto S_59072;} -do{ -*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 3 ; -if(!qbevent)break;evnt(26070,794,"wiki_methods.bas");}while(r); -} -S_59075:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 6 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("
",6))))||new_error){ -if(qbevent){evnt(26070,795,"wiki_methods.bas");if(r)goto S_59075;} -do{ -*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 5 ; -if(!qbevent)break;evnt(26070,795,"wiki_methods.bas");}while(r); -} -do{ -SUB_HELP_CHECKBLANKLINE(); -if(!qbevent)break;evnt(26070,796,"wiki_methods.bas");}while(r); -do{ -SUB_HELP_ADDTXT(func_string(*__LONG_HELP_WW, 196 ),&(pass6552= 14 ),&(pass6553= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,797,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_CHKBLANK= 1 ; -if(!qbevent)break;evnt(26070,798,"wiki_methods.bas");}while(r); -do{ -goto LABEL_CHARDONE; -if(!qbevent)break;evnt(26070,799,"wiki_methods.bas");}while(r); -} -} -S_59084:; -if ((-(*__LONG_HELP_LOCKPARSE== 0 ))||new_error){ -if(qbevent){evnt(26070,805,"wiki_methods.bas");if(r)goto S_59084;} -S_59085:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_WIKIPARSE_STRING_C,qbs_new_txt_len(";",1)))&(-(*_SUB_WIKIPARSE_LONG_NL== 1 ))))||new_error){ -if(qbevent){evnt(26070,807,"wiki_methods.bas");if(r)goto S_59085;} -S_59086:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 2 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("; ",2))))||new_error){ -if(qbevent){evnt(26070,808,"wiki_methods.bas");if(r)goto S_59086;} -do{ -*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,808,"wiki_methods.bas");}while(r); -} -S_59089:; -if (((-(*_SUB_WIKIPARSE_LONG_AH== 0 ))&(-(*_SUB_WIKIPARSE_LONG_DL== 0 )))||new_error){ -if(qbevent){evnt(26070,809,"wiki_methods.bas");if(r)goto S_59089;} -do{ -SUB_HELP_CHECKBLANKLINE(); -if(!qbevent)break;evnt(26070,809,"wiki_methods.bas");}while(r); -} -do{ -*__LONG_HELP_BOLD= 1 ; -if(!qbevent)break;evnt(26070,810,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_COL=FUNC_HELP_COL(); -if(!qbevent)break;evnt(26070,810,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_DLIST= 1 ; -if(!qbevent)break;evnt(26070,810,"wiki_methods.bas");}while(r); -S_59095:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 3 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len(";* ",3)))|(qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 3 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len(";# ",3)))))||new_error){ -if(qbevent){evnt(26070,811,"wiki_methods.bas");if(r)goto S_59095;} -do{ -*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 2 ; -if(!qbevent)break;evnt(26070,811,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_DLIST= 3 ; -if(!qbevent)break;evnt(26070,811,"wiki_methods.bas");}while(r); -} -S_59099:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 2 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len(";*",2)))|(qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 2 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len(";#",2)))))||new_error){ -if(qbevent){evnt(26070,812,"wiki_methods.bas");if(r)goto S_59099;} -do{ -*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,812,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_DLIST= 2 ; -if(!qbevent)break;evnt(26070,812,"wiki_methods.bas");}while(r); -} -S_59103:; -if ((-(*_SUB_WIKIPARSE_LONG_DL< 3 ))||new_error){ -if(qbevent){evnt(26070,813,"wiki_methods.bas");if(r)goto S_59103;} -do{ -SUB_HELP_ADDTXT(qbs_new_txt_len("\336 ",2),&(pass6554= 11 ),&(pass6555= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,814,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_DL= 1 ; -if(!qbevent)break;evnt(26070,814,"wiki_methods.bas");}while(r); -do{ -qbs_set(__STRING_HELP_LINDENT,qbs_add(__STRING_HELP_LINDENT,qbs_new_txt_len("\336 ",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,815,"wiki_methods.bas");}while(r); -} -do{ -goto LABEL_CHARDONE; -if(!qbevent)break;evnt(26070,817,"wiki_methods.bas");}while(r); -} -S_59110:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_WIKIPARSE_STRING_C,qbs_new_txt_len(":",1)))&(-(*__LONG_HELP_DLIST> 0 ))))||new_error){ -if(qbevent){evnt(26070,819,"wiki_methods.bas");if(r)goto S_59110;} -S_59111:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 2 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len(": ",2))))||new_error){ -if(qbevent){evnt(26070,820,"wiki_methods.bas");if(r)goto S_59111;} -do{ -*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,820,"wiki_methods.bas");}while(r); -} -do{ -*__LONG_HELP_BOLD= 0 ; -if(!qbevent)break;evnt(26070,821,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_COL=FUNC_HELP_COL(); -if(!qbevent)break;evnt(26070,821,"wiki_methods.bas");}while(r); -do{ -SUB_HELP_NEWLINE(); -if(!qbevent)break;evnt(26070,821,"wiki_methods.bas");}while(r); -do{ -SUB_HELP_ADDTXT(qbs_new_txt_len(" ",1),&(pass6556= 11 ),&(pass6557= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,822,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_DL= 3 ; -if(!qbevent)break;evnt(26070,822,"wiki_methods.bas");}while(r); -do{ -qbs_set(__STRING_HELP_LINDENT,qbs_add(__STRING_HELP_LINDENT,qbs_new_txt_len(" ",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,823,"wiki_methods.bas");}while(r); -S_59120:; -if ((-(*__LONG_HELP_DLIST> 1 ))||new_error){ -if(qbevent){evnt(26070,824,"wiki_methods.bas");if(r)goto S_59120;} -do{ -SUB_HELP_ADDTXT(qbs_add(func_chr( 4 ),qbs_new_txt_len(" ",1)),&(pass6558= 14 ),&(pass6559= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,825,"wiki_methods.bas");}while(r); -do{ -qbs_set(__STRING_HELP_LINDENT,qbs_add(__STRING_HELP_LINDENT,qbs_new_txt_len(" ",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,826,"wiki_methods.bas");}while(r); -} -do{ -*__LONG_HELP_DLIST= 0 ; -if(!qbevent)break;evnt(26070,828,"wiki_methods.bas");}while(r); -do{ -goto LABEL_CHARDONE; -if(!qbevent)break;evnt(26070,829,"wiki_methods.bas");}while(r); -} -S_59127:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_WIKIPARSE_STRING_C,qbs_new_txt_len(":",1)))&(-(*_SUB_WIKIPARSE_LONG_NL== 1 ))))||new_error){ -if(qbevent){evnt(26070,831,"wiki_methods.bas");if(r)goto S_59127;} -S_59128:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 2 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len(": ",2))))||new_error){ -if(qbevent){evnt(26070,832,"wiki_methods.bas");if(r)goto S_59128;} -do{ -*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,832,"wiki_methods.bas");}while(r); -} -S_59131:; -if (((-(*_SUB_WIKIPARSE_LONG_AH== 0 ))&(-(*_SUB_WIKIPARSE_LONG_DL== 0 )))||new_error){ -if(qbevent){evnt(26070,833,"wiki_methods.bas");if(r)goto S_59131;} -do{ -SUB_HELP_CHECKBLANKLINE(); -if(!qbevent)break;evnt(26070,833,"wiki_methods.bas");}while(r); -} -S_59134:; -if ((-(*_SUB_WIKIPARSE_LONG_DL< 3 ))||new_error){ -if(qbevent){evnt(26070,834,"wiki_methods.bas");if(r)goto S_59134;} -do{ -SUB_HELP_ADDTXT(qbs_new_txt_len("\336 ",2),&(pass6560= 11 ),&(pass6561= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,835,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_DL= 2 ; -if(!qbevent)break;evnt(26070,835,"wiki_methods.bas");}while(r); -do{ -qbs_set(__STRING_HELP_LINDENT,qbs_add(__STRING_HELP_LINDENT,qbs_new_txt_len("\336 ",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,836,"wiki_methods.bas");}while(r); -} -S_59139:; -if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 2 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])), 2 )!= 58 ))&(-(qbs_asc(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 2 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])), 2 )!= 59 ))))||new_error){ -if(qbevent){evnt(26070,838,"wiki_methods.bas");if(r)goto S_59139;} -do{ -SUB_HELP_ADDTXT(qbs_new_txt_len(" ",1),&(pass6562= 11 ),&(pass6563= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,839,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_DL= 3 ; -if(!qbevent)break;evnt(26070,839,"wiki_methods.bas");}while(r); -do{ -qbs_set(__STRING_HELP_LINDENT,qbs_add(__STRING_HELP_LINDENT,qbs_new_txt_len(" ",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,840,"wiki_methods.bas");}while(r); -} -do{ -goto LABEL_CHARDONEKNL; -if(!qbevent)break;evnt(26070,842,"wiki_methods.bas");}while(r); -} -} -S_59147:; -if ((-(*__LONG_HELP_LOCKPARSE== 0 ))||new_error){ -if(qbevent){evnt(26070,848,"wiki_methods.bas");if(r)goto S_59147;} -S_59148:; -if ((-(*_SUB_WIKIPARSE_LONG_NL== 1 ))||new_error){ -if(qbevent){evnt(26070,850,"wiki_methods.bas");if(r)goto S_59148;} -S_59149:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 2 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("**",2)))|(qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 2 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("##",2)))))||new_error){ -if(qbevent){evnt(26070,851,"wiki_methods.bas");if(r)goto S_59149;} -S_59150:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 3 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("** ",3)))|(qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 3 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("## ",3)))))||new_error){ -if(qbevent){evnt(26070,852,"wiki_methods.bas");if(r)goto S_59150;} -do{ -*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 2 ; -if(!qbevent)break;evnt(26070,852,"wiki_methods.bas");}while(r); -}else{ -do{ -*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,852,"wiki_methods.bas");}while(r); -} -do{ -SUB_HELP_ADDTXT(qbs_add(qbs_add(qbs_new_txt_len(" ",3),func_chr( 4 )),qbs_new_txt_len(" ",1)),&(pass6564= 14 ),&(pass6565= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,853,"wiki_methods.bas");}while(r); -do{ -qbs_set(__STRING_HELP_LINDENT,qbs_add(__STRING_HELP_LINDENT,qbs_new_txt_len(" ",5))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,854,"wiki_methods.bas");}while(r); -do{ -goto LABEL_CHARDONE; -if(!qbevent)break;evnt(26070,855,"wiki_methods.bas");}while(r); -} -S_59159:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_WIKIPARSE_STRING_C,qbs_new_txt_len("*",1)))|(qbs_equal(_SUB_WIKIPARSE_STRING_C,qbs_new_txt_len("#",1)))))||new_error){ -if(qbevent){evnt(26070,857,"wiki_methods.bas");if(r)goto S_59159;} -S_59160:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 2 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("* ",2)))|(qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 2 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("# ",2)))))||new_error){ -if(qbevent){evnt(26070,858,"wiki_methods.bas");if(r)goto S_59160;} -do{ -*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,858,"wiki_methods.bas");}while(r); -} -do{ -SUB_HELP_ADDTXT(qbs_add(func_chr( 4 ),qbs_new_txt_len(" ",1)),&(pass6566= 14 ),&(pass6567= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,859,"wiki_methods.bas");}while(r); -do{ -qbs_set(__STRING_HELP_LINDENT,qbs_add(__STRING_HELP_LINDENT,qbs_new_txt_len(" ",2))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,860,"wiki_methods.bas");}while(r); -do{ -goto LABEL_CHARDONE; -if(!qbevent)break;evnt(26070,861,"wiki_methods.bas");}while(r); -} -} -} -LABEL_CHKENTUTF:; -if(qbevent){evnt(26070,868,"wiki_methods.bas");r=0;} -do{ -*_SUB_WIKIPARSE_LONG_OCOL=*_SUB_WIKIPARSE_LONG_COL; -if(!qbevent)break;evnt(26070,869,"wiki_methods.bas");}while(r); -S_59170:; -if ((-(*__LONG_HELP_LOCKPARSE<= 0 ))||new_error){ -if(qbevent){evnt(26070,870,"wiki_methods.bas");if(r)goto S_59170;} -S_59171:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_WIKIPARSE_STRING_C,qbs_new_txt_len("&",1))))||new_error){ -if(qbevent){evnt(26070,871,"wiki_methods.bas");if(r)goto S_59171;} -S_59172:; -fornext_value6569= 0 ; -fornext_finalvalue6569=*__LONG_WPENTREPLCNT; -fornext_step6569= 1 ; -if (fornext_step6569<0) fornext_step_negative6569=1; else fornext_step_negative6569=0; -if (new_error) goto fornext_error6569; -goto fornext_entrylabel6569; -while(1){ -fornext_value6569=fornext_step6569+(*_SUB_WIKIPARSE_LONG_II); -fornext_entrylabel6569: -*_SUB_WIKIPARSE_LONG_II=fornext_value6569; -if (fornext_step_negative6569){ -if (fornext_value6569fornext_finalvalue6569) break; -} -fornext_error6569:; -if(qbevent){evnt(26070,872,"wiki_methods.bas");if(r)goto S_59172;} -do{ -qbs_set(_SUB_WIKIPARSE_STRING_ENT,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPENTREPL[0])+((array_check((*_SUB_WIKIPARSE_LONG_II)-__ARRAY_UDT_WPENTREPL[4],__ARRAY_UDT_WPENTREPL[5]))*16)),8,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,873,"wiki_methods.bas");}while(r); -S_59174:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check((_SUB_WIKIPARSE_STRING_ENT->len)-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),_SUB_WIKIPARSE_STRING_ENT)))||new_error){ -if(qbevent){evnt(26070,874,"wiki_methods.bas");if(r)goto S_59174;} -do{ -qbs_set(_SUB_WIKIPARSE_STRING_C,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPENTREPL[0])+((array_check((*_SUB_WIKIPARSE_LONG_II)-__ARRAY_UDT_WPENTREPL[4],__ARRAY_UDT_WPENTREPL[5]))*16+8)),8,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,875,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+_SUB_WIKIPARSE_STRING_ENT->len- 1 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,876,"wiki_methods.bas");}while(r); -do{ -goto LABEL_CHARACCUM; -if(!qbevent)break;evnt(26070,876,"wiki_methods.bas");}while(r); -} -fornext_continue_6568:; -} -fornext_exit_6568:; -S_59180:; -if ((-(*__LONG_HELP_LOCKPARSE== 0 ))||new_error){ -if(qbevent){evnt(26070,879,"wiki_methods.bas");if(r)goto S_59180;} -do{ -*_SUB_WIKIPARSE_LONG_II=func_instr(NULL,((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 8 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len(";",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,880,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_III=func_instr(NULL,((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 8 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len(" ",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,880,"wiki_methods.bas");}while(r); -S_59183:; -if (((-(*_SUB_WIKIPARSE_LONG_II> 2 ))&(((-(*_SUB_WIKIPARSE_LONG_III== 0 ))|(-(*_SUB_WIKIPARSE_LONG_III>*_SUB_WIKIPARSE_LONG_II)))))||new_error){ -if(qbevent){evnt(26070,881,"wiki_methods.bas");if(r)goto S_59183;} -do{ -qbs_set(_SUB_WIKIPARSE_STRING_C,((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check((*_SUB_WIKIPARSE_LONG_II)-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])]))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,882,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_COL= 8 ; -if(!qbevent)break;evnt(26070,882,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_UE= -1 ; -if(!qbevent)break;evnt(26070,882,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+*_SUB_WIKIPARSE_LONG_II- 1 ; -if(!qbevent)break;evnt(26070,883,"wiki_methods.bas");}while(r); -do{ -goto LABEL_CHARACCUM; -if(!qbevent)break;evnt(26070,883,"wiki_methods.bas");}while(r); -} -} -} -} -S_59193:; -if ((qbs_cleanup(qbs_tmp_base,(-((*_SUB_WIKIPARSE_LONG_C& 224 )== 192 ))&(-((qbs_asc(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 2 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])), 2 )& 192 )== 128 ))))||new_error){ -if(qbevent){evnt(26070,890,"wiki_methods.bas");if(r)goto S_59193;} -do{ -*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,891,"wiki_methods.bas");}while(r); -S_59195:; -fornext_value6573= 0 ; -fornext_finalvalue6573=*__LONG_WPUTFREPLCNT; -fornext_step6573= 1 ; -if (fornext_step6573<0) fornext_step_negative6573=1; else fornext_step_negative6573=0; -if (new_error) goto fornext_error6573; -goto fornext_entrylabel6573; -while(1){ -fornext_value6573=fornext_step6573+(*_SUB_WIKIPARSE_LONG_II); -fornext_entrylabel6573: -*_SUB_WIKIPARSE_LONG_II=fornext_value6573; -if (fornext_step_negative6573){ -if (fornext_value6573fornext_finalvalue6573) break; -} -fornext_error6573:; -if(qbevent){evnt(26070,892,"wiki_methods.bas");if(r)goto S_59195;} -S_59196:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*_SUB_WIKIPARSE_LONG_II)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12)),4,1),(qbs_add(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 2 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),i2string( 8224 ))))))||new_error){ -if(qbevent){evnt(26070,893,"wiki_methods.bas");if(r)goto S_59196;} -do{ -qbs_set(_SUB_WIKIPARSE_STRING_C,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*_SUB_WIKIPARSE_LONG_II)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4)),8,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,894,"wiki_methods.bas");}while(r); -do{ -goto LABEL_CHARACCUM; -if(!qbevent)break;evnt(26070,894,"wiki_methods.bas");}while(r); -} -fornext_continue_6572:; -} -fornext_exit_6572:; -do{ -qbs_set(_SUB_WIKIPARSE_STRING_C,func_chr( 168 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,897,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_COL= 8 ; -if(!qbevent)break;evnt(26070,897,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_UU= -1 ; -if(!qbevent)break;evnt(26070,897,"wiki_methods.bas");}while(r); -do{ -goto LABEL_CHARACCUM; -if(!qbevent)break;evnt(26070,897,"wiki_methods.bas");}while(r); -} -S_59206:; -if ((qbs_cleanup(qbs_tmp_base,(-((*_SUB_WIKIPARSE_LONG_C& 240 )== 224 ))&(-((qbs_asc(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 2 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])), 2 )& 192 )== 128 ))&(-((qbs_asc(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 3 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])), 3 )& 192 )== 128 ))))||new_error){ -if(qbevent){evnt(26070,899,"wiki_methods.bas");if(r)goto S_59206;} -do{ -*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 2 ; -if(!qbevent)break;evnt(26070,900,"wiki_methods.bas");}while(r); -S_59208:; -fornext_value6575= 0 ; -fornext_finalvalue6575=*__LONG_WPUTFREPLCNT; -fornext_step6575= 1 ; -if (fornext_step6575<0) fornext_step_negative6575=1; else fornext_step_negative6575=0; -if (new_error) goto fornext_error6575; -goto fornext_entrylabel6575; -while(1){ -fornext_value6575=fornext_step6575+(*_SUB_WIKIPARSE_LONG_II); -fornext_entrylabel6575: -*_SUB_WIKIPARSE_LONG_II=fornext_value6575; -if (fornext_step_negative6575){ -if (fornext_value6575fornext_finalvalue6575) break; -} -fornext_error6575:; -if(qbevent){evnt(26070,901,"wiki_methods.bas");if(r)goto S_59208;} -S_59209:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*_SUB_WIKIPARSE_LONG_II)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12)),4,1),(qbs_add(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 3 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),func_chr( 0 ))))))||new_error){ -if(qbevent){evnt(26070,902,"wiki_methods.bas");if(r)goto S_59209;} -do{ -qbs_set(_SUB_WIKIPARSE_STRING_C,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*_SUB_WIKIPARSE_LONG_II)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4)),8,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,903,"wiki_methods.bas");}while(r); -do{ -goto LABEL_CHARACCUM; -if(!qbevent)break;evnt(26070,903,"wiki_methods.bas");}while(r); -} -fornext_continue_6574:; -} -fornext_exit_6574:; -do{ -qbs_set(_SUB_WIKIPARSE_STRING_C,func_chr( 168 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,906,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_COL= 8 ; -if(!qbevent)break;evnt(26070,906,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_UU= -1 ; -if(!qbevent)break;evnt(26070,906,"wiki_methods.bas");}while(r); -do{ -goto LABEL_CHARACCUM; -if(!qbevent)break;evnt(26070,906,"wiki_methods.bas");}while(r); -} -S_59219:; -if ((qbs_cleanup(qbs_tmp_base,(-((*_SUB_WIKIPARSE_LONG_C& 248 )== 240 ))&(-((qbs_asc(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 2 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])), 2 )& 192 )== 128 ))&(-((qbs_asc(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 3 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])), 3 )& 192 )== 128 ))&(-((qbs_asc(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 4 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])), 4 )& 192 )== 128 ))))||new_error){ -if(qbevent){evnt(26070,908,"wiki_methods.bas");if(r)goto S_59219;} -do{ -*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 3 ; -if(!qbevent)break;evnt(26070,909,"wiki_methods.bas");}while(r); -S_59221:; -fornext_value6577= 0 ; -fornext_finalvalue6577=*__LONG_WPUTFREPLCNT; -fornext_step6577= 1 ; -if (fornext_step6577<0) fornext_step_negative6577=1; else fornext_step_negative6577=0; -if (new_error) goto fornext_error6577; -goto fornext_entrylabel6577; -while(1){ -fornext_value6577=fornext_step6577+(*_SUB_WIKIPARSE_LONG_II); -fornext_entrylabel6577: -*_SUB_WIKIPARSE_LONG_II=fornext_value6577; -if (fornext_step_negative6577){ -if (fornext_value6577fornext_finalvalue6577) break; -} -fornext_error6577:; -if(qbevent){evnt(26070,910,"wiki_methods.bas");if(r)goto S_59221;} -S_59222:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*_SUB_WIKIPARSE_LONG_II)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12)),4,1),((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 4 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])))))||new_error){ -if(qbevent){evnt(26070,911,"wiki_methods.bas");if(r)goto S_59222;} -do{ -qbs_set(_SUB_WIKIPARSE_STRING_C,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*_SUB_WIKIPARSE_LONG_II)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4)),8,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,912,"wiki_methods.bas");}while(r); -do{ -goto LABEL_CHARACCUM; -if(!qbevent)break;evnt(26070,912,"wiki_methods.bas");}while(r); -} -fornext_continue_6576:; -} -fornext_exit_6576:; -do{ -qbs_set(_SUB_WIKIPARSE_STRING_C,func_chr( 168 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,915,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_COL= 8 ; -if(!qbevent)break;evnt(26070,915,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_UU= -1 ; -if(!qbevent)break;evnt(26070,915,"wiki_methods.bas");}while(r); -do{ -goto LABEL_CHARACCUM; -if(!qbevent)break;evnt(26070,915,"wiki_methods.bas");}while(r); -} -S_59232:; -if ((qbs_cleanup(qbs_tmp_base,(-(*_SUB_WIKIPARSE_LONG_C== 10 ))|(qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 4 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("
",4)))|(qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 6 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("
",6)))))||new_error){ -if(qbevent){evnt(26070,919,"wiki_methods.bas");if(r)goto S_59232;} -S_59233:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 4 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("
",4))))||new_error){ -if(qbevent){evnt(26070,920,"wiki_methods.bas");if(r)goto S_59233;} -do{ -*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 3 ; -if(!qbevent)break;evnt(26070,920,"wiki_methods.bas");}while(r); -S_59235:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 5 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])), 5 )== 10 )))||new_error){ -if(qbevent){evnt(26070,920,"wiki_methods.bas");if(r)goto S_59235;} -do{ -*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,920,"wiki_methods.bas");}while(r); -} -} -S_59239:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 6 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("
",6))))||new_error){ -if(qbevent){evnt(26070,921,"wiki_methods.bas");if(r)goto S_59239;} -do{ -*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 5 ; -if(!qbevent)break;evnt(26070,921,"wiki_methods.bas");}while(r); -S_59241:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 7 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])), 7 )== 10 )))||new_error){ -if(qbevent){evnt(26070,921,"wiki_methods.bas");if(r)goto S_59241;} -do{ -*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,921,"wiki_methods.bas");}while(r); -} -} -S_59245:; -if ((-(*_SUB_WIKIPARSE_LONG_C== 10 ))||new_error){ -if(qbevent){evnt(26070,922,"wiki_methods.bas");if(r)goto S_59245;} -S_59246:; -if ((-(*_SUB_WIKIPARSE_LONG_DL> 1 ))||new_error){ -if(qbevent){evnt(26070,923,"wiki_methods.bas");if(r)goto S_59246;} -do{ -*_SUB_WIKIPARSE_LONG_DL=*_SUB_WIKIPARSE_LONG_DL- 1 ; -if(!qbevent)break;evnt(26070,923,"wiki_methods.bas");}while(r); -} -S_59249:; -if ((-(*__LONG_HELP_LOCKPARSE== 0 ))||new_error){ -if(qbevent){evnt(26070,924,"wiki_methods.bas");if(r)goto S_59249;} -do{ -qbs_set(__STRING_HELP_LINDENT,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,924,"wiki_methods.bas");}while(r); -} -} -S_59253:; -if ((-(*__LONG_HELP_LOCKPARSE> -2 ))||new_error){ -if(qbevent){evnt(26070,927,"wiki_methods.bas");if(r)goto S_59253;} -S_59254:; -if ((-(*__LONG_HELP_TXT_LEN>= 8 ))||new_error){ -if(qbevent){evnt(26070,928,"wiki_methods.bas");if(r)goto S_59254;} -S_59255:; -if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(__STRING_HELP_TXT,*__LONG_HELP_TXT_LEN- 2 )> 127 ))&(-(qbs_asc(__STRING_HELP_TXT,*__LONG_HELP_TXT_LEN- 6 )> 127 ))))||new_error){ -if(qbevent){evnt(26070,929,"wiki_methods.bas");if(r)goto S_59255;} -S_59256:; -if ((-(*__LONG_HELP_CENTER> 0 ))||new_error){ -if(qbevent){evnt(26070,930,"wiki_methods.bas");if(r)goto S_59256;} -do{ -qbs_set(__STRING_HELP_CINDENT,func_mid(__STRING_HELP_CINDENT, 2 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,930,"wiki_methods.bas");}while(r); -} -do{ -goto LABEL_SKIPMULTIBLANKS; -if(!qbevent)break;evnt(26070,931,"wiki_methods.bas");}while(r); -} -} -} -do{ -SUB_HELP_NEWLINE(); -if(!qbevent)break;evnt(26070,935,"wiki_methods.bas");}while(r); -LABEL_SKIPMULTIBLANKS:; -if(qbevent){evnt(26070,937,"wiki_methods.bas");r=0;} -S_59264:; -if ((-(*__LONG_HELP_LOCKPARSE!= 0 ))||new_error){ -if(qbevent){evnt(26070,938,"wiki_methods.bas");if(r)goto S_59264;} -do{ -*__LONG_HELP_BOLD= 0 ; -if(!qbevent)break;evnt(26070,939,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_ITALIC= 0 ; -if(!qbevent)break;evnt(26070,939,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_COL=FUNC_HELP_COL(); -if(!qbevent)break;evnt(26070,939,"wiki_methods.bas");}while(r); -}else{ -S_59269:; -if ((-(*_SUB_WIKIPARSE_LONG_C== 10 ))||new_error){ -if(qbevent){evnt(26070,941,"wiki_methods.bas");if(r)goto S_59269;} -do{ -*__LONG_HELP_DLIST= 0 ; -if(!qbevent)break;evnt(26070,942,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_BOLD= 0 ; -if(!qbevent)break;evnt(26070,942,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_COL=FUNC_HELP_COL(); -if(!qbevent)break;evnt(26070,942,"wiki_methods.bas");}while(r); -S_59273:; -if ((-(*_SUB_WIKIPARSE_LONG_AH> 0 ))||new_error){ -if(qbevent){evnt(26070,943,"wiki_methods.bas");if(r)goto S_59273;} -do{ -*_SUB_WIKIPARSE_LONG_AH=*_SUB_WIKIPARSE_LONG_AH- 1 ; -if(!qbevent)break;evnt(26070,943,"wiki_methods.bas");}while(r); -} -S_59276:; -if ((-(*_SUB_WIKIPARSE_LONG_DL> 0 ))||new_error){ -if(qbevent){evnt(26070,944,"wiki_methods.bas");if(r)goto S_59276;} -S_59277:; -if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 2 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])), 2 )!= 59 ))&(-(qbs_asc(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 2 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])), 2 )!= 58 ))))||new_error){ -if(qbevent){evnt(26070,945,"wiki_methods.bas");if(r)goto S_59277;} -do{ -*_SUB_WIKIPARSE_LONG_DL= 0 ; -if(!qbevent)break;evnt(26070,946,"wiki_methods.bas");}while(r); -do{ -*__LONG_HELP_CHKBLANK= 1 ; -if(!qbevent)break;evnt(26070,947,"wiki_methods.bas");}while(r); -} -} -} -} -do{ -*_SUB_WIKIPARSE_LONG_NL= 1 ; -if(!qbevent)break;evnt(26070,952,"wiki_methods.bas");}while(r); -do{ -goto LABEL_CHARDONEKNL; -if(!qbevent)break;evnt(26070,953,"wiki_methods.bas");}while(r); -} -LABEL_CHARACCUM:; -if(qbevent){evnt(26070,956,"wiki_methods.bas");r=0;} -S_59287:; -if ((-(*_SUB_WIKIPARSE_LONG_ELINK== 1 ))||new_error){ -if(qbevent){evnt(26070,957,"wiki_methods.bas");if(r)goto S_59287;} -do{ -qbs_set(_SUB_WIKIPARSE_STRING_ELINK,qbs_add(_SUB_WIKIPARSE_STRING_ELINK,_SUB_WIKIPARSE_STRING_C)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,958,"wiki_methods.bas");}while(r); -S_59289:; -fornext_value6579= 1 ; -fornext_finalvalue6579=_SUB_WIKIPARSE_STRING_C->len; -fornext_step6579= 1 ; -if (fornext_step6579<0) fornext_step_negative6579=1; else fornext_step_negative6579=0; -if (new_error) goto fornext_error6579; -goto fornext_entrylabel6579; -while(1){ -fornext_value6579=fornext_step6579+(*_SUB_WIKIPARSE_LONG_J); -fornext_entrylabel6579: -*_SUB_WIKIPARSE_LONG_J=fornext_value6579; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative6579){ -if (fornext_value6579fornext_finalvalue6579) break; -} -fornext_error6579:; -if(qbevent){evnt(26070,959,"wiki_methods.bas");if(r)goto S_59289;} -do{ -qbs_set(_SUB_WIKIPARSE_STRING_ELCOL,qbs_add(_SUB_WIKIPARSE_STRING_ELCOL,func_chr(*_SUB_WIKIPARSE_LONG_COL))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,959,"wiki_methods.bas");}while(r); -fornext_continue_6578:; -} -fornext_exit_6578:; -S_59292:; -}else{ -if (-(*_SUB_WIKIPARSE_LONG_LINK== 1 )){ -if(qbevent){evnt(26070,960,"wiki_methods.bas");if(r)goto S_59292;} -do{ -qbs_set(_SUB_WIKIPARSE_STRING_LINK,qbs_add(_SUB_WIKIPARSE_STRING_LINK,_SUB_WIKIPARSE_STRING_C)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,961,"wiki_methods.bas");}while(r); -S_59294:; -fornext_value6582= 1 ; -fornext_finalvalue6582=_SUB_WIKIPARSE_STRING_C->len; -fornext_step6582= 1 ; -if (fornext_step6582<0) fornext_step_negative6582=1; else fornext_step_negative6582=0; -if (new_error) goto fornext_error6582; -goto fornext_entrylabel6582; -while(1){ -fornext_value6582=fornext_step6582+(*_SUB_WIKIPARSE_LONG_J); -fornext_entrylabel6582: -*_SUB_WIKIPARSE_LONG_J=fornext_value6582; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative6582){ -if (fornext_value6582fornext_finalvalue6582) break; -} -fornext_error6582:; -if(qbevent){evnt(26070,962,"wiki_methods.bas");if(r)goto S_59294;} -do{ -qbs_set(_SUB_WIKIPARSE_STRING_LCOL,qbs_add(_SUB_WIKIPARSE_STRING_LCOL,func_chr(*_SUB_WIKIPARSE_LONG_COL))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,962,"wiki_methods.bas");}while(r); -fornext_continue_6581:; -} -fornext_exit_6581:; -}else{ -do{ -SUB_HELP_ADDTXT(_SUB_WIKIPARSE_STRING_C,_SUB_WIKIPARSE_LONG_COL,_SUB_WIKIPARSE_LONG_HL); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,964,"wiki_methods.bas");}while(r); -} -} -do{ -*_SUB_WIKIPARSE_LONG_COL=*_SUB_WIKIPARSE_LONG_OCOL; -if(!qbevent)break;evnt(26070,966,"wiki_methods.bas");}while(r); -LABEL_CHARDONE:; -if(qbevent){evnt(26070,967,"wiki_methods.bas");r=0;} -do{ -*_SUB_WIKIPARSE_LONG_NL= 0 ; -if(!qbevent)break;evnt(26070,968,"wiki_methods.bas");}while(r); -LABEL_CHARDONEKNL:; -if(qbevent){evnt(26070,969,"wiki_methods.bas");r=0;} -do{ -*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,970,"wiki_methods.bas");}while(r); -dl_continue_6428:; -} -dl_exit_6428:; -S_59304:; -if ((*_SUB_WIKIPARSE_LONG_UE|*_SUB_WIKIPARSE_LONG_UU)||new_error){ -if(qbevent){evnt(26070,975,"wiki_methods.bas");if(r)goto S_59304;} -do{ -*__LONG_HELP_LINKN=*__LONG_HELP_LINKN+ 1 ; -if(!qbevent)break;evnt(26070,976,"wiki_methods.bas");}while(r); -do{ -qbs_set(__STRING_HELP_LINK,qbs_add(qbs_add(__STRING_HELP_LINK,qbs_new_txt_len("EXTL:https://qb64phoenix.com/forum/forumdisplay.php?fid=25",58)),__STRING_HELP_LINK_SEP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,977,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_STP=string2l(qbs_right(__STRING_HELP_LINE, 4 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,978,"wiki_methods.bas");}while(r); -do{ -SUB_HELP_ADDTXT(func_string(*__LONG_HELP_WW, 196 ),&(pass6584= 14 ),&(pass6585= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,979,"wiki_methods.bas");}while(r); -do{ -SUB_HELP_NEWLINE(); -if(!qbevent)break;evnt(26070,979,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_ITP=string2l(func_mid(__STRING_HELP_LINE, 13 , 4 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,980,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_DTL=string2l(qbs_right(__STRING_HELP_LINE, 4 ))-*_SUB_WIKIPARSE_LONG_STP; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,980,"wiki_methods.bas");}while(r); -do{ -qbs_set(_SUB_WIKIPARSE_STRING_TXT,qbs_add(func_mid(__STRING_HELP_TXT,*_SUB_WIKIPARSE_LONG_STP,*_SUB_WIKIPARSE_LONG_DTL,0|1),func_mid(__STRING_HELP_TXT,*_SUB_WIKIPARSE_LONG_ITP,*_SUB_WIKIPARSE_LONG_STP-*_SUB_WIKIPARSE_LONG_ITP,0|1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,981,"wiki_methods.bas");}while(r); -do{ -sub_mid(__STRING_HELP_TXT,*_SUB_WIKIPARSE_LONG_ITP,_SUB_WIKIPARSE_STRING_TXT->len,_SUB_WIKIPARSE_STRING_TXT,1); -if(!qbevent)break;evnt(26070,981,"wiki_methods.bas");}while(r); -do{ -qbs_set(__STRING_HELP_LINE,qbs_add(qbs_add(qbs_left(__STRING_HELP_LINE, 12 ),l2string(*_SUB_WIKIPARSE_LONG_ITP)),func_mid(__STRING_HELP_LINE, 13 ,__STRING_HELP_LINE->len- 16 ,0|1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,982,"wiki_methods.bas");}while(r); -S_59315:; -fornext_value6589= 17 ; -fornext_finalvalue6589=__STRING_HELP_LINE->len; -fornext_step6589= 4 ; -if (fornext_step6589<0) fornext_step_negative6589=1; else fornext_step_negative6589=0; -if (new_error) goto fornext_error6589; -goto fornext_entrylabel6589; -while(1){ -fornext_value6589=fornext_step6589+(*_SUB_WIKIPARSE_LONG_I); -fornext_entrylabel6589: -*_SUB_WIKIPARSE_LONG_I=fornext_value6589; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative6589){ -if (fornext_value6589fornext_finalvalue6589) break; -} -fornext_error6589:; -if(qbevent){evnt(26070,983,"wiki_methods.bas");if(r)goto S_59315;} -do{ -sub_mid(__STRING_HELP_LINE,*_SUB_WIKIPARSE_LONG_I, 4 ,l2string(string2l(func_mid(__STRING_HELP_LINE,*_SUB_WIKIPARSE_LONG_I, 4 ,0|1))+*_SUB_WIKIPARSE_LONG_DTL),1); -if(!qbevent)break;evnt(26070,983,"wiki_methods.bas");}while(r); -fornext_continue_6588:; -} -fornext_exit_6588:; -S_59318:; -if ((*_SUB_WIKIPARSE_LONG_UU)||new_error){ -if(qbevent){evnt(26070,984,"wiki_methods.bas");if(r)goto S_59318;} -do{ -*_SUB_WIKIPARSE_LONG_STP=string2l(qbs_right(__STRING_HELP_LINE, 4 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,985,"wiki_methods.bas");}while(r); -do{ -SUB_HELP_ADDTXT(qbs_new_txt_len("!>",2),&(pass6591= 4 ),&(pass6592= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,986,"wiki_methods.bas");}while(r); -do{ -SUB_HELP_ADDTXT(qbs_new_txt_len(" Page uses ",11),__LONG_HELP_COL_NORMAL,&(pass6593= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,987,"wiki_methods.bas");}while(r); -do{ -SUB_HELP_ADDTXT(qbs_new_txt_len("unknown UTF-8 characters",24),&(pass6594= 8 ),&(pass6595= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,988,"wiki_methods.bas");}while(r); -do{ -SUB_HELP_ADDTXT(qbs_new_txt_len(", please report it in the ",26),__LONG_HELP_COL_NORMAL,&(pass6596= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,989,"wiki_methods.bas");}while(r); -do{ -SUB_HELP_ADDTXT(qbs_new_txt_len("Wiki Forum.",11),__LONG_HELP_COL_LINK,__LONG_HELP_LINKN); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,990,"wiki_methods.bas");}while(r); -do{ -SUB_HELP_NEWLINE(); -if(!qbevent)break;evnt(26070,990,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_ITP=string2l(func_mid(__STRING_HELP_LINE, 13 , 4 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,991,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_DTL=string2l(qbs_right(__STRING_HELP_LINE, 4 ))-*_SUB_WIKIPARSE_LONG_STP; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,991,"wiki_methods.bas");}while(r); -do{ -qbs_set(_SUB_WIKIPARSE_STRING_TXT,qbs_add(func_mid(__STRING_HELP_TXT,*_SUB_WIKIPARSE_LONG_STP,*_SUB_WIKIPARSE_LONG_DTL,0|1),func_mid(__STRING_HELP_TXT,*_SUB_WIKIPARSE_LONG_ITP,*_SUB_WIKIPARSE_LONG_STP-*_SUB_WIKIPARSE_LONG_ITP,0|1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,992,"wiki_methods.bas");}while(r); -do{ -sub_mid(__STRING_HELP_TXT,*_SUB_WIKIPARSE_LONG_ITP,_SUB_WIKIPARSE_STRING_TXT->len,_SUB_WIKIPARSE_STRING_TXT,1); -if(!qbevent)break;evnt(26070,992,"wiki_methods.bas");}while(r); -do{ -qbs_set(__STRING_HELP_LINE,qbs_add(qbs_add(qbs_left(__STRING_HELP_LINE, 12 ),l2string(*_SUB_WIKIPARSE_LONG_ITP)),func_mid(__STRING_HELP_LINE, 13 ,__STRING_HELP_LINE->len- 16 ,0|1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,993,"wiki_methods.bas");}while(r); -S_59331:; -fornext_value6600= 17 ; -fornext_finalvalue6600=__STRING_HELP_LINE->len; -fornext_step6600= 4 ; -if (fornext_step6600<0) fornext_step_negative6600=1; else fornext_step_negative6600=0; -if (new_error) goto fornext_error6600; -goto fornext_entrylabel6600; -while(1){ -fornext_value6600=fornext_step6600+(*_SUB_WIKIPARSE_LONG_I); -fornext_entrylabel6600: -*_SUB_WIKIPARSE_LONG_I=fornext_value6600; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative6600){ -if (fornext_value6600fornext_finalvalue6600) break; -} -fornext_error6600:; -if(qbevent){evnt(26070,994,"wiki_methods.bas");if(r)goto S_59331;} -do{ -sub_mid(__STRING_HELP_LINE,*_SUB_WIKIPARSE_LONG_I, 4 ,l2string(string2l(func_mid(__STRING_HELP_LINE,*_SUB_WIKIPARSE_LONG_I, 4 ,0|1))+*_SUB_WIKIPARSE_LONG_DTL),1); -if(!qbevent)break;evnt(26070,994,"wiki_methods.bas");}while(r); -fornext_continue_6599:; -} -fornext_exit_6599:; -} -S_59335:; -if ((*_SUB_WIKIPARSE_LONG_UE)||new_error){ -if(qbevent){evnt(26070,996,"wiki_methods.bas");if(r)goto S_59335;} -do{ -*_SUB_WIKIPARSE_LONG_STP=string2l(qbs_right(__STRING_HELP_LINE, 4 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,997,"wiki_methods.bas");}while(r); -do{ -SUB_HELP_ADDTXT(qbs_new_txt_len("!>",2),&(pass6602= 4 ),&(pass6603= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,998,"wiki_methods.bas");}while(r); -do{ -SUB_HELP_ADDTXT(qbs_new_txt_len(" Page uses ",11),__LONG_HELP_COL_NORMAL,&(pass6604= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,999,"wiki_methods.bas");}while(r); -do{ -SUB_HELP_ADDTXT(qbs_new_txt_len("unknown HTML entities",21),&(pass6605= 8 ),&(pass6606= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1000,"wiki_methods.bas");}while(r); -do{ -SUB_HELP_ADDTXT(qbs_new_txt_len(", please report it in the ",26),__LONG_HELP_COL_NORMAL,&(pass6607= 0 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1001,"wiki_methods.bas");}while(r); -do{ -SUB_HELP_ADDTXT(qbs_new_txt_len("Wiki Forum.",11),__LONG_HELP_COL_LINK,__LONG_HELP_LINKN); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1002,"wiki_methods.bas");}while(r); -do{ -SUB_HELP_NEWLINE(); -if(!qbevent)break;evnt(26070,1002,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_ITP=string2l(func_mid(__STRING_HELP_LINE, 13 , 4 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1003,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_DTL=string2l(qbs_right(__STRING_HELP_LINE, 4 ))-*_SUB_WIKIPARSE_LONG_STP; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1003,"wiki_methods.bas");}while(r); -do{ -qbs_set(_SUB_WIKIPARSE_STRING_TXT,qbs_add(func_mid(__STRING_HELP_TXT,*_SUB_WIKIPARSE_LONG_STP,*_SUB_WIKIPARSE_LONG_DTL,0|1),func_mid(__STRING_HELP_TXT,*_SUB_WIKIPARSE_LONG_ITP,*_SUB_WIKIPARSE_LONG_STP-*_SUB_WIKIPARSE_LONG_ITP,0|1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1004,"wiki_methods.bas");}while(r); -do{ -sub_mid(__STRING_HELP_TXT,*_SUB_WIKIPARSE_LONG_ITP,_SUB_WIKIPARSE_STRING_TXT->len,_SUB_WIKIPARSE_STRING_TXT,1); -if(!qbevent)break;evnt(26070,1004,"wiki_methods.bas");}while(r); -do{ -qbs_set(__STRING_HELP_LINE,qbs_add(qbs_add(qbs_left(__STRING_HELP_LINE, 12 ),l2string(*_SUB_WIKIPARSE_LONG_ITP)),func_mid(__STRING_HELP_LINE, 13 ,__STRING_HELP_LINE->len- 16 ,0|1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1005,"wiki_methods.bas");}while(r); -S_59348:; -fornext_value6611= 17 ; -fornext_finalvalue6611=__STRING_HELP_LINE->len; -fornext_step6611= 4 ; -if (fornext_step6611<0) fornext_step_negative6611=1; else fornext_step_negative6611=0; -if (new_error) goto fornext_error6611; -goto fornext_entrylabel6611; -while(1){ -fornext_value6611=fornext_step6611+(*_SUB_WIKIPARSE_LONG_I); -fornext_entrylabel6611: -*_SUB_WIKIPARSE_LONG_I=fornext_value6611; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative6611){ -if (fornext_value6611fornext_finalvalue6611) break; -} -fornext_error6611:; -if(qbevent){evnt(26070,1006,"wiki_methods.bas");if(r)goto S_59348;} -do{ -sub_mid(__STRING_HELP_LINE,*_SUB_WIKIPARSE_LONG_I, 4 ,l2string(string2l(func_mid(__STRING_HELP_LINE,*_SUB_WIKIPARSE_LONG_I, 4 ,0|1))+*_SUB_WIKIPARSE_LONG_DTL),1); -if(!qbevent)break;evnt(26070,1006,"wiki_methods.bas");}while(r); -fornext_continue_6610:; -} -fornext_exit_6610:; -} -} -do{ -SUB_HELP_CHECKFINISHLINE(); -if(!qbevent)break;evnt(26070,1010,"wiki_methods.bas");}while(r); -do{ -qbs_set(__STRING_HELP_TXT,qbs_left(__STRING_HELP_TXT,*__LONG_HELP_TXT_LEN)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1010,"wiki_methods.bas");}while(r); -S_59355:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_HELP_PAGELOADED,qbs_new_txt_len("Keyword Reference - Alphabetical",32))))||new_error){ -if(qbevent){evnt(26070,1012,"wiki_methods.bas");if(r)goto S_59355;} -do{ -*_SUB_WIKIPARSE_LONG_FH=func_freefile(); -if(!qbevent)break;evnt(26070,1014,"wiki_methods.bas");}while(r); -do{ -sub_open(qbs_new_txt_len("internal\\help\\links.bin",23), 4 ,NULL,NULL,*_SUB_WIKIPARSE_LONG_FH,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1015,"wiki_methods.bas");}while(r); -do{ -qbs_set(_SUB_WIKIPARSE_STRING_A,func_space( 1000 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1016,"wiki_methods.bas");}while(r); -S_59359:; -fornext_value6614= 1 ; -fornext_finalvalue6614=*__LONG_HELP_H; -fornext_step6614= 1 ; -if (fornext_step6614<0) fornext_step_negative6614=1; else fornext_step_negative6614=0; -if (new_error) goto fornext_error6614; -goto fornext_entrylabel6614; -while(1){ -fornext_value6614=fornext_step6614+(*_SUB_WIKIPARSE_LONG_CY); -fornext_entrylabel6614: -*_SUB_WIKIPARSE_LONG_CY=fornext_value6614; -if (fornext_step_negative6614){ -if (fornext_value6614fornext_finalvalue6614) break; -} -fornext_error6614:; -if(qbevent){evnt(26070,1017,"wiki_methods.bas");if(r)goto S_59359;} -do{ -*_SUB_WIKIPARSE_LONG_L=string2l(func_mid(__STRING_HELP_LINE,((*_SUB_WIKIPARSE_LONG_CY- 1 )* 4 )+( 1 ), 4 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1019,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_X=*_SUB_WIKIPARSE_LONG_L; -if(!qbevent)break;evnt(26070,1020,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_X2= 1 ; -if(!qbevent)break;evnt(26070,1021,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_C=qbs_asc(__STRING_HELP_TXT,*_SUB_WIKIPARSE_LONG_X); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1022,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_OLDLNK= 0 ; -if(!qbevent)break;evnt(26070,1023,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_LNKX1= 0 ; -if(!qbevent)break;evnt(26070,1024,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_LNKX2= 0 ; -if(!qbevent)break;evnt(26070,1024,"wiki_methods.bas");}while(r); -S_59367:; -while((!(qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_HELP_TXT,*_SUB_WIKIPARSE_LONG_X+ 1 )> 127 ))))||new_error){ -if(qbevent){evnt(26070,1025,"wiki_methods.bas");if(r)goto S_59367;} -do{ -tqbs=_SUB_WIKIPARSE_STRING_A; if (!new_error){ -tmp_fileno=*_SUB_WIKIPARSE_LONG_X2; if (!new_error){ -tmp_long=*_SUB_WIKIPARSE_LONG_C; if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(26070,1026,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_LNK=string2i(func_mid(__STRING_HELP_TXT,*_SUB_WIKIPARSE_LONG_X+ 2 , 2 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1027,"wiki_methods.bas");}while(r); -S_59370:; -if (((-(*_SUB_WIKIPARSE_LONG_OLDLNK== 0 ))&(-(*_SUB_WIKIPARSE_LONG_LNK!= 0 )))||new_error){ -if(qbevent){evnt(26070,1028,"wiki_methods.bas");if(r)goto S_59370;} -do{ -*_SUB_WIKIPARSE_LONG_LNKX1=*_SUB_WIKIPARSE_LONG_X2; -if(!qbevent)break;evnt(26070,1028,"wiki_methods.bas");}while(r); -} -S_59373:; -if ((qbs_cleanup(qbs_tmp_base,(((-(*_SUB_WIKIPARSE_LONG_LNK== 0 ))|(-(qbs_asc(__STRING_HELP_TXT,*_SUB_WIKIPARSE_LONG_X+ 5 )> 127 ))))&(-(*_SUB_WIKIPARSE_LONG_LNKX1!= 0 ))))||new_error){ -if(qbevent){evnt(26070,1029,"wiki_methods.bas");if(r)goto S_59373;} -do{ -*_SUB_WIKIPARSE_LONG_LNKX2=*_SUB_WIKIPARSE_LONG_X2; -if(!qbevent)break;evnt(26070,1030,"wiki_methods.bas");}while(r); -S_59375:; -if ((-(*_SUB_WIKIPARSE_LONG_LNK== 0 ))||new_error){ -if(qbevent){evnt(26070,1030,"wiki_methods.bas");if(r)goto S_59375;} -do{ -*_SUB_WIKIPARSE_LONG_LNKX2=*_SUB_WIKIPARSE_LONG_LNKX2- 1 ; -if(!qbevent)break;evnt(26070,1030,"wiki_methods.bas");}while(r); -} -S_59378:; -if ((-(*_SUB_WIKIPARSE_LONG_LNKX1!= 3 ))||new_error){ -if(qbevent){evnt(26070,1032,"wiki_methods.bas");if(r)goto S_59378;} -do{ -goto LABEL_IGNORELINK; -if(!qbevent)break;evnt(26070,1032,"wiki_methods.bas");}while(r); -} -S_59381:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_SUB_WIKIPARSE_STRING_A, 1 )!= 4 )))||new_error){ -if(qbevent){evnt(26070,1033,"wiki_methods.bas");if(r)goto S_59381;} -do{ -goto LABEL_IGNORELINK; -if(!qbevent)break;evnt(26070,1033,"wiki_methods.bas");}while(r); -} -do{ -*_SUB_WIKIPARSE_LONG_LNK2=*_SUB_WIKIPARSE_LONG_LNK; -if(!qbevent)break;evnt(26070,1036,"wiki_methods.bas");}while(r); -S_59385:; -if ((-(*_SUB_WIKIPARSE_LONG_LNK2== 0 ))||new_error){ -if(qbevent){evnt(26070,1036,"wiki_methods.bas");if(r)goto S_59385;} -do{ -*_SUB_WIKIPARSE_LONG_LNK2=*_SUB_WIKIPARSE_LONG_OLDLNK; -if(!qbevent)break;evnt(26070,1036,"wiki_methods.bas");}while(r); -} -do{ -*_SUB_WIKIPARSE_LONG_L1= 1 ; -if(!qbevent)break;evnt(26070,1037,"wiki_methods.bas");}while(r); -S_59389:; -fornext_value6617= 1 ; -fornext_finalvalue6617=*_SUB_WIKIPARSE_LONG_LNK2- 1 ; -fornext_step6617= 1 ; -if (fornext_step6617<0) fornext_step_negative6617=1; else fornext_step_negative6617=0; -if (new_error) goto fornext_error6617; -goto fornext_entrylabel6617; -while(1){ -fornext_value6617=fornext_step6617+(*_SUB_WIKIPARSE_LONG_LX); -fornext_entrylabel6617: -*_SUB_WIKIPARSE_LONG_LX=fornext_value6617; -if (fornext_step_negative6617){ -if (fornext_value6617fornext_finalvalue6617) break; -} -fornext_error6617:; -if(qbevent){evnt(26070,1038,"wiki_methods.bas");if(r)goto S_59389;} -do{ -*_SUB_WIKIPARSE_LONG_L1=func_instr(*_SUB_WIKIPARSE_LONG_L1,__STRING_HELP_LINK,__STRING_HELP_LINK_SEP,0|1)+ 1 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1039,"wiki_methods.bas");}while(r); -fornext_continue_6616:; -} -fornext_exit_6616:; -do{ -*_SUB_WIKIPARSE_LONG_L2=func_instr(*_SUB_WIKIPARSE_LONG_L1,__STRING_HELP_LINK,__STRING_HELP_LINK_SEP,0|1)- 1 ; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1041,"wiki_methods.bas");}while(r); -do{ -qbs_set(_SUB_WIKIPARSE_STRING_L,func_mid(__STRING_HELP_LINK,*_SUB_WIKIPARSE_LONG_L1,*_SUB_WIKIPARSE_LONG_L2-*_SUB_WIKIPARSE_LONG_L1+ 1 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1042,"wiki_methods.bas");}while(r); -do{ -qbs_set(_SUB_WIKIPARSE_STRING_L,qbs_right(_SUB_WIKIPARSE_STRING_L,_SUB_WIKIPARSE_STRING_L->len- 5 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1044,"wiki_methods.bas");}while(r); -do{ -qbs_set(_SUB_WIKIPARSE_STRING_A2,func_mid(_SUB_WIKIPARSE_STRING_A,*_SUB_WIKIPARSE_LONG_LNKX1,*_SUB_WIKIPARSE_LONG_LNKX2-*_SUB_WIKIPARSE_LONG_LNKX1+ 1 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1046,"wiki_methods.bas");}while(r); -S_59396:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_WIKIPARSE_STRING_A2,qbs_new_txt_len("(",1),0)))||new_error){ -if(qbevent){evnt(26070,1048,"wiki_methods.bas");if(r)goto S_59396;} -do{ -qbs_set(_SUB_WIKIPARSE_STRING_A2,qbs_left(_SUB_WIKIPARSE_STRING_A2,func_instr(NULL,_SUB_WIKIPARSE_STRING_A2,qbs_new_txt_len("(",1),0)- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1048,"wiki_methods.bas");}while(r); -} -S_59399:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_WIKIPARSE_STRING_A2,qbs_new_txt_len(" ",1),0)))||new_error){ -if(qbevent){evnt(26070,1049,"wiki_methods.bas");if(r)goto S_59399;} -do{ -qbs_set(_SUB_WIKIPARSE_STRING_A2,qbs_left(_SUB_WIKIPARSE_STRING_A2,func_instr(NULL,_SUB_WIKIPARSE_STRING_A2,qbs_new_txt_len(" ",1),0)- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1049,"wiki_methods.bas");}while(r); -} -S_59402:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_WIKIPARSE_STRING_A2,qbs_new_txt_len("...",3),0)))||new_error){ -if(qbevent){evnt(26070,1050,"wiki_methods.bas");if(r)goto S_59402;} -do{ -qbs_set(_SUB_WIKIPARSE_STRING_A3,qbs_right(_SUB_WIKIPARSE_STRING_A2,_SUB_WIKIPARSE_STRING_A2->len-func_instr(NULL,_SUB_WIKIPARSE_STRING_A2,qbs_new_txt_len("...",3),0)- 2 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1051,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_SKIP= 0 ; -if(!qbevent)break;evnt(26070,1053,"wiki_methods.bas");}while(r); -S_59405:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_ucase(qbs_left(_SUB_WIKIPARSE_STRING_A3, 3 )),qbs_new_txt_len("_GL",3))))||new_error){ -if(qbevent){evnt(26070,1055,"wiki_methods.bas");if(r)goto S_59405;} -S_59406:; -fornext_value6621= 1 ; -fornext_finalvalue6621=_SUB_WIKIPARSE_STRING_A3->len; -fornext_step6621= 1 ; -if (fornext_step6621<0) fornext_step_negative6621=1; else fornext_step_negative6621=0; -if (new_error) goto fornext_error6621; -goto fornext_entrylabel6621; -while(1){ -fornext_value6621=fornext_step6621+(*_SUB_WIKIPARSE_LONG_CI); -fornext_entrylabel6621: -*_SUB_WIKIPARSE_LONG_CI=fornext_value6621; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative6621){ -if (fornext_value6621fornext_finalvalue6621) break; -} -fornext_error6621:; -if(qbevent){evnt(26070,1056,"wiki_methods.bas");if(r)goto S_59406;} -do{ -*_SUB_WIKIPARSE_LONG_CA=qbs_asc(_SUB_WIKIPARSE_STRING_A3,*_SUB_WIKIPARSE_LONG_CI); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1057,"wiki_methods.bas");}while(r); -S_59408:; -if (((-(*_SUB_WIKIPARSE_LONG_CA>= 97 ))&(-(*_SUB_WIKIPARSE_LONG_CA<= 122 )))||new_error){ -if(qbevent){evnt(26070,1058,"wiki_methods.bas");if(r)goto S_59408;} -do{ -*_SUB_WIKIPARSE_LONG_SKIP= 1 ; -if(!qbevent)break;evnt(26070,1058,"wiki_methods.bas");}while(r); -} -S_59411:; -if ((-(*_SUB_WIKIPARSE_LONG_CA== 44 ))||new_error){ -if(qbevent){evnt(26070,1059,"wiki_methods.bas");if(r)goto S_59411;} -do{ -*_SUB_WIKIPARSE_LONG_SKIP= 1 ; -if(!qbevent)break;evnt(26070,1059,"wiki_methods.bas");}while(r); -} -fornext_continue_6620:; -} -fornext_exit_6620:; -} -S_59416:; -if ((-(*_SUB_WIKIPARSE_LONG_SKIP== 0 ))||new_error){ -if(qbevent){evnt(26070,1063,"wiki_methods.bas");if(r)goto S_59416;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*_SUB_WIKIPARSE_LONG_FH; -if (new_error) goto skip6623; -sub_file_print(tmp_fileno,qbs_add(qbs_add(_SUB_WIKIPARSE_STRING_A3,qbs_new_txt_len(",",1)),_SUB_WIKIPARSE_STRING_L), 0, 0, 1); -if (new_error) goto skip6623; -skip6623: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(26070,1063,"wiki_methods.bas");}while(r); -} -do{ -qbs_set(_SUB_WIKIPARSE_STRING_A2,qbs_left(_SUB_WIKIPARSE_STRING_A2,func_instr(NULL,_SUB_WIKIPARSE_STRING_A2,qbs_new_txt_len("...",3),0)- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1065,"wiki_methods.bas");}while(r); -} -do{ -*_SUB_WIKIPARSE_LONG_SKIP= 0 ; -if(!qbevent)break;evnt(26070,1068,"wiki_methods.bas");}while(r); -S_59422:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_ucase(qbs_left(_SUB_WIKIPARSE_STRING_A2, 3 )),qbs_new_txt_len("_GL",3))))||new_error){ -if(qbevent){evnt(26070,1069,"wiki_methods.bas");if(r)goto S_59422;} -S_59423:; -fornext_value6625= 1 ; -fornext_finalvalue6625=_SUB_WIKIPARSE_STRING_A2->len; -fornext_step6625= 1 ; -if (fornext_step6625<0) fornext_step_negative6625=1; else fornext_step_negative6625=0; -if (new_error) goto fornext_error6625; -goto fornext_entrylabel6625; -while(1){ -fornext_value6625=fornext_step6625+(*_SUB_WIKIPARSE_LONG_CI); -fornext_entrylabel6625: -*_SUB_WIKIPARSE_LONG_CI=fornext_value6625; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative6625){ -if (fornext_value6625fornext_finalvalue6625) break; -} -fornext_error6625:; -if(qbevent){evnt(26070,1070,"wiki_methods.bas");if(r)goto S_59423;} -do{ -*_SUB_WIKIPARSE_LONG_CA=qbs_asc(_SUB_WIKIPARSE_STRING_A2,*_SUB_WIKIPARSE_LONG_CI); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1071,"wiki_methods.bas");}while(r); -S_59425:; -if (((-(*_SUB_WIKIPARSE_LONG_CA>= 97 ))&(-(*_SUB_WIKIPARSE_LONG_CA<= 122 )))||new_error){ -if(qbevent){evnt(26070,1072,"wiki_methods.bas");if(r)goto S_59425;} -do{ -*_SUB_WIKIPARSE_LONG_SKIP= 1 ; -if(!qbevent)break;evnt(26070,1072,"wiki_methods.bas");}while(r); -} -S_59428:; -if ((-(*_SUB_WIKIPARSE_LONG_CA== 44 ))||new_error){ -if(qbevent){evnt(26070,1073,"wiki_methods.bas");if(r)goto S_59428;} -do{ -*_SUB_WIKIPARSE_LONG_SKIP= 1 ; -if(!qbevent)break;evnt(26070,1073,"wiki_methods.bas");}while(r); -} -fornext_continue_6624:; -} -fornext_exit_6624:; -} -S_59433:; -if ((-(*_SUB_WIKIPARSE_LONG_SKIP== 0 ))||new_error){ -if(qbevent){evnt(26070,1076,"wiki_methods.bas");if(r)goto S_59433;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*_SUB_WIKIPARSE_LONG_FH; -if (new_error) goto skip6627; -sub_file_print(tmp_fileno,qbs_add(qbs_add(_SUB_WIKIPARSE_STRING_A2,qbs_new_txt_len(",",1)),_SUB_WIKIPARSE_STRING_L), 0, 0, 1); -if (new_error) goto skip6627; -skip6627: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(26070,1076,"wiki_methods.bas");}while(r); -} -do{ -qbs_set(_SUB_WIKIPARSE_STRING_OA2,_SUB_WIKIPARSE_STRING_A2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1077,"wiki_methods.bas");}while(r); -do{ -qbs_set(_SUB_WIKIPARSE_STRING_A2,_SUB_WIKIPARSE_STRING_L); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1079,"wiki_methods.bas");}while(r); -S_59438:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_WIKIPARSE_STRING_A2,qbs_new_txt_len("(",1),0)))||new_error){ -if(qbevent){evnt(26070,1080,"wiki_methods.bas");if(r)goto S_59438;} -do{ -qbs_set(_SUB_WIKIPARSE_STRING_A2,qbs_left(_SUB_WIKIPARSE_STRING_A2,func_instr(NULL,_SUB_WIKIPARSE_STRING_A2,qbs_new_txt_len("(",1),0)- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1080,"wiki_methods.bas");}while(r); -} -S_59441:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_WIKIPARSE_STRING_A2,qbs_new_txt_len(" ",1),0)))||new_error){ -if(qbevent){evnt(26070,1081,"wiki_methods.bas");if(r)goto S_59441;} -do{ -qbs_set(_SUB_WIKIPARSE_STRING_A2,qbs_left(_SUB_WIKIPARSE_STRING_A2,func_instr(NULL,_SUB_WIKIPARSE_STRING_A2,qbs_new_txt_len(" ",1),0)- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1081,"wiki_methods.bas");}while(r); -} -S_59444:; -if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_WIKIPARSE_STRING_A2,qbs_new_txt_len("...",3),0)))||new_error){ -if(qbevent){evnt(26070,1082,"wiki_methods.bas");if(r)goto S_59444;} -do{ -qbs_set(_SUB_WIKIPARSE_STRING_A3,qbs_right(_SUB_WIKIPARSE_STRING_A2,_SUB_WIKIPARSE_STRING_A2->len-func_instr(NULL,_SUB_WIKIPARSE_STRING_A2,qbs_new_txt_len("...",3),0)- 2 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1083,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_SKIP= 0 ; -if(!qbevent)break;evnt(26070,1085,"wiki_methods.bas");}while(r); -S_59447:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_ucase(qbs_left(_SUB_WIKIPARSE_STRING_A3, 3 )),qbs_new_txt_len("_GL",3))))||new_error){ -if(qbevent){evnt(26070,1086,"wiki_methods.bas");if(r)goto S_59447;} -S_59448:; -fornext_value6630= 1 ; -fornext_finalvalue6630=_SUB_WIKIPARSE_STRING_A3->len; -fornext_step6630= 1 ; -if (fornext_step6630<0) fornext_step_negative6630=1; else fornext_step_negative6630=0; -if (new_error) goto fornext_error6630; -goto fornext_entrylabel6630; -while(1){ -fornext_value6630=fornext_step6630+(*_SUB_WIKIPARSE_LONG_CI); -fornext_entrylabel6630: -*_SUB_WIKIPARSE_LONG_CI=fornext_value6630; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative6630){ -if (fornext_value6630fornext_finalvalue6630) break; -} -fornext_error6630:; -if(qbevent){evnt(26070,1087,"wiki_methods.bas");if(r)goto S_59448;} -do{ -*_SUB_WIKIPARSE_LONG_CA=qbs_asc(_SUB_WIKIPARSE_STRING_A3,*_SUB_WIKIPARSE_LONG_CI); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1088,"wiki_methods.bas");}while(r); -S_59450:; -if (((-(*_SUB_WIKIPARSE_LONG_CA>= 97 ))&(-(*_SUB_WIKIPARSE_LONG_CA<= 122 )))||new_error){ -if(qbevent){evnt(26070,1089,"wiki_methods.bas");if(r)goto S_59450;} -do{ -*_SUB_WIKIPARSE_LONG_SKIP= 1 ; -if(!qbevent)break;evnt(26070,1089,"wiki_methods.bas");}while(r); -} -S_59453:; -if ((-(*_SUB_WIKIPARSE_LONG_CA== 44 ))||new_error){ -if(qbevent){evnt(26070,1090,"wiki_methods.bas");if(r)goto S_59453;} -do{ -*_SUB_WIKIPARSE_LONG_SKIP= 1 ; -if(!qbevent)break;evnt(26070,1090,"wiki_methods.bas");}while(r); -} -fornext_continue_6629:; -} -fornext_exit_6629:; -} -S_59458:; -if ((-(*_SUB_WIKIPARSE_LONG_SKIP== 0 ))||new_error){ -if(qbevent){evnt(26070,1093,"wiki_methods.bas");if(r)goto S_59458;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*_SUB_WIKIPARSE_LONG_FH; -if (new_error) goto skip6632; -sub_file_print(tmp_fileno,qbs_add(qbs_add(_SUB_WIKIPARSE_STRING_A3,qbs_new_txt_len(",",1)),_SUB_WIKIPARSE_STRING_L), 0, 0, 1); -if (new_error) goto skip6632; -skip6632: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(26070,1093,"wiki_methods.bas");}while(r); -} -do{ -qbs_set(_SUB_WIKIPARSE_STRING_A2,qbs_left(_SUB_WIKIPARSE_STRING_A2,func_instr(NULL,_SUB_WIKIPARSE_STRING_A2,qbs_new_txt_len("...",3),0)- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1095,"wiki_methods.bas");}while(r); -} -do{ -*_SUB_WIKIPARSE_LONG_SKIP= 0 ; -if(!qbevent)break;evnt(26070,1098,"wiki_methods.bas");}while(r); -S_59464:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_ucase(qbs_left(_SUB_WIKIPARSE_STRING_A2, 3 )),qbs_new_txt_len("_GL",3))))||new_error){ -if(qbevent){evnt(26070,1099,"wiki_methods.bas");if(r)goto S_59464;} -S_59465:; -fornext_value6634= 1 ; -fornext_finalvalue6634=_SUB_WIKIPARSE_STRING_A2->len; -fornext_step6634= 1 ; -if (fornext_step6634<0) fornext_step_negative6634=1; else fornext_step_negative6634=0; -if (new_error) goto fornext_error6634; -goto fornext_entrylabel6634; -while(1){ -fornext_value6634=fornext_step6634+(*_SUB_WIKIPARSE_LONG_CI); -fornext_entrylabel6634: -*_SUB_WIKIPARSE_LONG_CI=fornext_value6634; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative6634){ -if (fornext_value6634fornext_finalvalue6634) break; -} -fornext_error6634:; -if(qbevent){evnt(26070,1100,"wiki_methods.bas");if(r)goto S_59465;} -do{ -*_SUB_WIKIPARSE_LONG_CA=qbs_asc(_SUB_WIKIPARSE_STRING_A2,*_SUB_WIKIPARSE_LONG_CI); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1101,"wiki_methods.bas");}while(r); -S_59467:; -if (((-(*_SUB_WIKIPARSE_LONG_CA>= 97 ))&(-(*_SUB_WIKIPARSE_LONG_CA<= 122 )))||new_error){ -if(qbevent){evnt(26070,1102,"wiki_methods.bas");if(r)goto S_59467;} -do{ -*_SUB_WIKIPARSE_LONG_SKIP= 1 ; -if(!qbevent)break;evnt(26070,1102,"wiki_methods.bas");}while(r); -} -S_59470:; -if ((-(*_SUB_WIKIPARSE_LONG_CA== 44 ))||new_error){ -if(qbevent){evnt(26070,1103,"wiki_methods.bas");if(r)goto S_59470;} -do{ -*_SUB_WIKIPARSE_LONG_SKIP= 1 ; -if(!qbevent)break;evnt(26070,1103,"wiki_methods.bas");}while(r); -} -fornext_continue_6633:; -} -fornext_exit_6633:; -} -S_59475:; -if ((qbs_cleanup(qbs_tmp_base,(-(*_SUB_WIKIPARSE_LONG_SKIP== 0 ))&(qbs_notequal(_SUB_WIKIPARSE_STRING_A2,_SUB_WIKIPARSE_STRING_OA2))))||new_error){ -if(qbevent){evnt(26070,1106,"wiki_methods.bas");if(r)goto S_59475;} -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno=*_SUB_WIKIPARSE_LONG_FH; -if (new_error) goto skip6636; -sub_file_print(tmp_fileno,qbs_add(qbs_add(_SUB_WIKIPARSE_STRING_A2,qbs_new_txt_len(",",1)),_SUB_WIKIPARSE_STRING_L), 0, 0, 1); -if (new_error) goto skip6636; -skip6636: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(26070,1106,"wiki_methods.bas");}while(r); -} -LABEL_IGNORELINK:; -if(qbevent){evnt(26070,1108,"wiki_methods.bas");r=0;} -do{ -*_SUB_WIKIPARSE_LONG_LNKX1= 0 ; -if(!qbevent)break;evnt(26070,1110,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_LNKX2= 0 ; -if(!qbevent)break;evnt(26070,1110,"wiki_methods.bas");}while(r); -} -do{ -*_SUB_WIKIPARSE_LONG_X=*_SUB_WIKIPARSE_LONG_X+ 4 ; -if(!qbevent)break;evnt(26070,1112,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_C=qbs_asc(__STRING_HELP_TXT,*_SUB_WIKIPARSE_LONG_X); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1112,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_X2=*_SUB_WIKIPARSE_LONG_X2+ 1 ; -if(!qbevent)break;evnt(26070,1113,"wiki_methods.bas");}while(r); -do{ -*_SUB_WIKIPARSE_LONG_OLDLNK=*_SUB_WIKIPARSE_LONG_LNK; -if(!qbevent)break;evnt(26070,1114,"wiki_methods.bas");}while(r); -dl_continue_6615:; -} -dl_exit_6615:; -fornext_continue_6613:; -} -fornext_exit_6613:; -do{ -sub_close(*_SUB_WIKIPARSE_LONG_FH,1); -if(!qbevent)break;evnt(26070,1117,"wiki_methods.bas");}while(r); -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free288.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -qbs* FUNC_WIKISAFENAME(qbs*_FUNC_WIKISAFENAME_STRING_PAGE){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data289.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -qbs_set(_FUNC_WIKISAFENAME_STRING_EXT,func_space(_FUNC_WIKISAFENAME_STRING_PAGE->len)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1123,"wiki_methods.bas");}while(r); -S_59490:; -fornext_value6640= 1 ; -fornext_finalvalue6640=_FUNC_WIKISAFENAME_STRING_PAGE->len; -fornext_step6640= 1 ; -if (fornext_step6640<0) fornext_step_negative6640=1; else fornext_step_negative6640=0; -if (new_error) goto fornext_error6640; -goto fornext_entrylabel6640; -while(1){ -fornext_value6640=fornext_step6640+(*_FUNC_WIKISAFENAME_LONG_I); -fornext_entrylabel6640: -*_FUNC_WIKISAFENAME_LONG_I=fornext_value6640; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative6640){ -if (fornext_value6640fornext_finalvalue6640) break; -} -fornext_error6640:; -if(qbevent){evnt(26070,1124,"wiki_methods.bas");if(r)goto S_59490;} -do{ -*_FUNC_WIKISAFENAME_LONG_C=qbs_asc(_FUNC_WIKISAFENAME_STRING_PAGE,*_FUNC_WIKISAFENAME_LONG_I); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1125,"wiki_methods.bas");}while(r); -S_59492:; -if(qbevent){evnt(26070,1126,"wiki_methods.bas");if(r)goto S_59492;} -S_59493:; -if ((((*_FUNC_WIKISAFENAME_LONG_C>=( 65 ))&&(*_FUNC_WIKISAFENAME_LONG_C<=( 90 ))))||new_error){ -if(qbevent){evnt(26070,1127,"wiki_methods.bas");if(r)goto S_59493;} -do{ -tqbs=_FUNC_WIKISAFENAME_STRING_EXT; if (!new_error){ -tmp_fileno=*_FUNC_WIKISAFENAME_LONG_I; if (!new_error){ -tmp_long= 49 ; if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(26070,1127,"wiki_methods.bas");}while(r); -sc_ec_443_end:; -goto sc_6642_end; -} -S_59495:; -if ((((*_FUNC_WIKISAFENAME_LONG_C>=( 97 ))&&(*_FUNC_WIKISAFENAME_LONG_C<=( 122 ))))||new_error){ -if(qbevent){evnt(26070,1128,"wiki_methods.bas");if(r)goto S_59495;} -do{ -tqbs=_FUNC_WIKISAFENAME_STRING_EXT; if (!new_error){ -tmp_fileno=*_FUNC_WIKISAFENAME_LONG_I; if (!new_error){ -tmp_long= 48 ; if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(26070,1128,"wiki_methods.bas");}while(r); -sc_ec_444_end:; -goto sc_6642_end; -} -do{ -tqbs=_FUNC_WIKISAFENAME_STRING_EXT; if (!new_error){ -tmp_fileno=*_FUNC_WIKISAFENAME_LONG_I; if (!new_error){ -tmp_long=*_FUNC_WIKISAFENAME_LONG_C; if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(26070,1129,"wiki_methods.bas");}while(r); -sc_6642_end:; -fornext_continue_6639:; -} -fornext_exit_6639:; -do{ -qbs_set(_FUNC_WIKISAFENAME_STRING_WIKISAFENAME,qbs_add(qbs_add(_FUNC_WIKISAFENAME_STRING_PAGE,qbs_new_txt_len("_",1)),_FUNC_WIKISAFENAME_STRING_EXT)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1132,"wiki_methods.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free289.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_WIKISAFENAME_STRING_WIKISAFENAME);return _FUNC_WIKISAFENAME_STRING_WIKISAFENAME; -} -qbs* FUNC_WIKIDLPAGE(qbs*_FUNC_WIKIDLPAGE_STRING_URL,float*_FUNC_WIKIDLPAGE_SINGLE_TIMEOUT){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data290.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -qbs_set(_FUNC_WIKIDLPAGE_STRING_WIKIDLPAGE,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1138,"wiki_methods.bas");}while(r); -do{ -qbs_set(_FUNC_WIKIDLPAGE_STRING_WIK,_FUNC_WIKIDLPAGE_STRING_URL); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1139,"wiki_methods.bas");}while(r); -do{ -*_FUNC_WIKIDLPAGE_DOUBLE_TIO=*_FUNC_WIKIDLPAGE_SINGLE_TIMEOUT; -if(!qbevent)break;evnt(26070,1139,"wiki_methods.bas");}while(r); -LABEL_RETRY:; -if(qbevent){evnt(26070,1141,"wiki_methods.bas");r=0;} -do{ -*_FUNC_WIKIDLPAGE_LONG_CH=func__openclient(_FUNC_WIKIDLPAGE_STRING_WIK); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1142,"wiki_methods.bas");}while(r); -S_59506:; -if ((-(*__LONG_HELP_RECACHING< 2 ))||new_error){ -if(qbevent){evnt(26070,1143,"wiki_methods.bas");if(r)goto S_59506;} -S_59507:; -if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_WIKIDLPAGE_LONG_CH== 0 ))&(qbs_equal(qbs_lcase(qbs_left(_FUNC_WIKIDLPAGE_STRING_WIK, 8 )),qbs_new_txt_len("https://",8)))))||new_error){ -if(qbevent){evnt(26070,1144,"wiki_methods.bas");if(r)goto S_59507;} -S_59508:; -if ((qbs_cleanup(qbs_tmp_base,-(func__shellhide(qbs_new_txt_len("curl --version >NUL",19))!= 0 )))||new_error){ -if(qbevent){evnt(26070,1145,"wiki_methods.bas");if(r)goto S_59508;} -S_59509:; -if ((qbs_cleanup(qbs_tmp_base,-(func__guiMessageBox(qbs_new_txt_len("QB64-PE Help",12),qbs_new_txt_len("Can't make secure connection (https:) to Wiki, shall the IDE use unsecure (http:) instead?",90),qbs_new_txt_len("yesno",5),qbs_new_txt_len("warning",7),NULL,0)== 1 )))||new_error){ -if(qbevent){evnt(26070,1147,"wiki_methods.bas");if(r)goto S_59509;} -S_59510:; -if ((qbs_cleanup(qbs_tmp_base,-(func__guiMessageBox(qbs_new_txt_len("QB64-PE Help",12),qbs_new_txt_len("Do you wanna save your choice permanently for the future?",57),qbs_new_txt_len("yesno",5),qbs_new_txt_len("question",8),NULL,0)== 1 )))||new_error){ -if(qbevent){evnt(26070,1148,"wiki_methods.bas");if(r)goto S_59510;} -do{ -qbs_set(__STRING_WIKIBASEADDRESS,qbs_add(qbs_new_txt_len("http://",7),func_mid(__STRING_WIKIBASEADDRESS, 9 ,NULL,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1149,"wiki_methods.bas");}while(r); -do{ -SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("WikiBaseAddress",15),__STRING_WIKIBASEADDRESS); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1150,"wiki_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_WIKIDLPAGE_STRING_WIK,qbs_add(qbs_new_txt_len("http://",7),func_mid(_FUNC_WIKIDLPAGE_STRING_WIK, 9 ,NULL,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1152,"wiki_methods.bas");}while(r); -do{ -goto LABEL_RETRY; -if(!qbevent)break;evnt(26070,1152,"wiki_methods.bas");}while(r); -} -} -} -} -S_59520:; -if ((-(*_FUNC_WIKIDLPAGE_LONG_CH== 0 ))||new_error){ -if(qbevent){evnt(26070,1157,"wiki_methods.bas");if(r)goto S_59520;} -do{ -goto LABEL_ONELASTCHANCE; -if(!qbevent)break;evnt(26070,1157,"wiki_methods.bas");}while(r); -} -S_59523:; -if ((-(func__statusCode(*_FUNC_WIKIDLPAGE_LONG_CH)== 200 ))||new_error){ -if(qbevent){evnt(26070,1159,"wiki_methods.bas");if(r)goto S_59523;} -do{ -qbs_set(_FUNC_WIKIDLPAGE_STRING_RES,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1160,"wiki_methods.bas");}while(r); -do{ -*_FUNC_WIKIDLPAGE_DOUBLE_ST=func_timer( 0.001E+0 ,0|1); -if(!qbevent)break;evnt(26070,1160,"wiki_methods.bas");}while(r); -S_59526:; -do{ -if(qbevent){evnt(26070,1161,"wiki_methods.bas");if(r)goto S_59526;} -do{ -sub__delay( 0.05E+0 ); -if(!qbevent)break;evnt(26070,1162,"wiki_methods.bas");}while(r); -do{ -sub_get2(*_FUNC_WIKIDLPAGE_LONG_CH,NULL,_FUNC_WIKIDLPAGE_STRING_REC,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1163,"wiki_methods.bas");}while(r); -S_59529:; -if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_WIKIDLPAGE_STRING_REC->len> 0 )))||new_error){ -if(qbevent){evnt(26070,1164,"wiki_methods.bas");if(r)goto S_59529;} -do{ -*_FUNC_WIKIDLPAGE_DOUBLE_ST=func_timer( 0.001E+0 ,0|1); -if(!qbevent)break;evnt(26070,1164,"wiki_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_WIKIDLPAGE_STRING_RES,qbs_add(_FUNC_WIKIDLPAGE_STRING_RES,_FUNC_WIKIDLPAGE_STRING_REC)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1165,"wiki_methods.bas");}while(r); -S_59533:; -if ((func_eof(*_FUNC_WIKIDLPAGE_LONG_CH))||new_error){ -if(qbevent){evnt(26070,1166,"wiki_methods.bas");if(r)goto S_59533;} -do{ -qbs_set(_FUNC_WIKIDLPAGE_STRING_WIKIDLPAGE,_FUNC_WIKIDLPAGE_STRING_RES); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1167,"wiki_methods.bas");}while(r); -do{ -goto dl_exit_6644; -if(!qbevent)break;evnt(26070,1167,"wiki_methods.bas");}while(r); -} -S_59537:; -if ((-((*_FUNC_WIKIDLPAGE_DOUBLE_ST+*_FUNC_WIKIDLPAGE_DOUBLE_TIO)>=( 86400 )))||new_error){ -if(qbevent){evnt(26070,1169,"wiki_methods.bas");if(r)goto S_59537;} -do{ -*_FUNC_WIKIDLPAGE_DOUBLE_ST=*_FUNC_WIKIDLPAGE_DOUBLE_ST- 86400 ; -if(!qbevent)break;evnt(26070,1169,"wiki_methods.bas");}while(r); -} -S_59540:; -dl_continue_6644:; -}while((!(-(((float)((func_timer( 0.001E+0 ,0|1))))>((float)((*_FUNC_WIKIDLPAGE_DOUBLE_ST+*_FUNC_WIKIDLPAGE_DOUBLE_TIO))))))&&(!new_error)); -dl_exit_6644:; -if(qbevent){evnt(26070,1170,"wiki_methods.bas");if(r)goto S_59540;} -} -do{ -sub_close(*_FUNC_WIKIDLPAGE_LONG_CH,1); -if(!qbevent)break;evnt(26070,1172,"wiki_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,1173,"wiki_methods.bas");}while(r); -LABEL_ONELASTCHANCE:; -if(qbevent){evnt(26070,1175,"wiki_methods.bas");r=0;} -S_59544:; -if ((qbs_cleanup(qbs_tmp_base,-(func__shellhide(qbs_new_txt_len("curl --version >NUL",19))== 0 )))||new_error){ -if(qbevent){evnt(26070,1188,"wiki_methods.bas");if(r)goto S_59544;} -S_59545:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_lcase(qbs_left(_FUNC_WIKIDLPAGE_STRING_WIK, 7 )),qbs_new_txt_len("http://",7))))||new_error){ -if(qbevent){evnt(26070,1190,"wiki_methods.bas");if(r)goto S_59545;} -do{ -qbs_set(_FUNC_WIKIDLPAGE_STRING_WIK,qbs_add(qbs_new_txt_len("https://",8),func_mid(_FUNC_WIKIDLPAGE_STRING_WIK, 8 ,NULL,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1190,"wiki_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_WIKIDLPAGE_STRING_RESPONSEFILE,qbs_add(__STRING_CACHE_FOLDER,qbs_new_txt_len("/curlResponse.txt",17))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1192,"wiki_methods.bas");}while(r); -do{ -sub_shell2(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("curl --silent -o ",17),func_chr( 34 )),_FUNC_WIKIDLPAGE_STRING_RESPONSEFILE),func_chr( 34 )),qbs_new_txt_len(" ",1)),func_chr( 34 )),_FUNC_WIKIDLPAGE_STRING_WIK),func_chr( 34 )),2); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1193,"wiki_methods.bas");}while(r); -do{ -*_FUNC_WIKIDLPAGE_LONG_FH=func_freefile(); -if(!qbevent)break;evnt(26070,1195,"wiki_methods.bas");}while(r); -do{ -sub_open(_FUNC_WIKIDLPAGE_STRING_RESPONSEFILE, 2 ,NULL,NULL,*_FUNC_WIKIDLPAGE_LONG_FH,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1196,"wiki_methods.bas");}while(r); -do{ -qbs_set(_FUNC_WIKIDLPAGE_STRING_RES,func_space(func_lof(*_FUNC_WIKIDLPAGE_LONG_FH))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1197,"wiki_methods.bas");}while(r); -do{ -sub_get2(*_FUNC_WIKIDLPAGE_LONG_FH,NULL,_FUNC_WIKIDLPAGE_STRING_RES,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1198,"wiki_methods.bas");}while(r); -do{ -sub_close(*_FUNC_WIKIDLPAGE_LONG_FH,1); -if(!qbevent)break;evnt(26070,1199,"wiki_methods.bas");}while(r); -do{ -sub_kill(_FUNC_WIKIDLPAGE_STRING_RESPONSEFILE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1200,"wiki_methods.bas");}while(r); -do{ -qbs_set(_FUNC_WIKIDLPAGE_STRING_WIKIDLPAGE,_FUNC_WIKIDLPAGE_STRING_RES); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1202,"wiki_methods.bas");}while(r); -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free290.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_WIKIDLPAGE_STRING_WIKIDLPAGE);return _FUNC_WIKIDLPAGE_STRING_WIKIDLPAGE; -} -qbs* FUNC_WIKILOOKAHEAD(qbs*_FUNC_WIKILOOKAHEAD_STRING_A,int32*_FUNC_WIKILOOKAHEAD_LONG_I,qbs*_FUNC_WIKILOOKAHEAD_STRING_TOKEN){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data291.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -qbs_set(_FUNC_WIKILOOKAHEAD_STRING_WIKILOOKAHEAD,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1207,"wiki_methods.bas");}while(r); -S_59559:; -if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_WIKILOOKAHEAD_LONG_I>=_FUNC_WIKILOOKAHEAD_STRING_A->len)))||new_error){ -if(qbevent){evnt(26070,1207,"wiki_methods.bas");if(r)goto S_59559;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,1207,"wiki_methods.bas");}while(r); -} -do{ -*_FUNC_WIKILOOKAHEAD_LONG_J=func_instr(*_FUNC_WIKILOOKAHEAD_LONG_I,_FUNC_WIKILOOKAHEAD_STRING_A,_FUNC_WIKILOOKAHEAD_STRING_TOKEN,0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1208,"wiki_methods.bas");}while(r); -S_59563:; -if ((-(*_FUNC_WIKILOOKAHEAD_LONG_J== 0 ))||new_error){ -if(qbevent){evnt(26070,1209,"wiki_methods.bas");if(r)goto S_59563;} -do{ -qbs_set(_FUNC_WIKILOOKAHEAD_STRING_WIKILOOKAHEAD,func_mid(_FUNC_WIKILOOKAHEAD_STRING_A,*_FUNC_WIKILOOKAHEAD_LONG_I,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1210,"wiki_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_WIKILOOKAHEAD_STRING_WIKILOOKAHEAD,func_mid(_FUNC_WIKILOOKAHEAD_STRING_A,*_FUNC_WIKILOOKAHEAD_LONG_I,*_FUNC_WIKILOOKAHEAD_LONG_J-*_FUNC_WIKILOOKAHEAD_LONG_I,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1212,"wiki_methods.bas");}while(r); -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free291.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_WIKILOOKAHEAD_STRING_WIKILOOKAHEAD);return _FUNC_WIKILOOKAHEAD_STRING_WIKILOOKAHEAD; -} -qbs* FUNC_WIKIBUILDCINDENT(qbs*_FUNC_WIKIBUILDCINDENT_STRING_A){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data292.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -qbs_set(_FUNC_WIKIBUILDCINDENT_STRING_WIKIBUILDCINDENT,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1217,"wiki_methods.bas");}while(r); -S_59569:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_WIKIBUILDCINDENT_STRING_A,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,1217,"wiki_methods.bas");if(r)goto S_59569;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,1217,"wiki_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_WIKIBUILDCINDENT_STRING_ORG,_FUNC_WIKIBUILDCINDENT_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1219,"wiki_methods.bas");}while(r); -do{ -qbs_set(_FUNC_WIKIBUILDCINDENT_STRING_B,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1219,"wiki_methods.bas");}while(r); -S_59574:; -fornext_value6651= 1 ; -fornext_finalvalue6651=_FUNC_WIKIBUILDCINDENT_STRING_ORG->len; -fornext_step6651= 1 ; -if (fornext_step6651<0) fornext_step_negative6651=1; else fornext_step_negative6651=0; -if (new_error) goto fornext_error6651; -goto fornext_entrylabel6651; -while(1){ -fornext_value6651=fornext_step6651+(*_FUNC_WIKIBUILDCINDENT_LONG_I); -fornext_entrylabel6651: -*_FUNC_WIKIBUILDCINDENT_LONG_I=fornext_value6651; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative6651){ -if (fornext_value6651fornext_finalvalue6651) break; -} -fornext_error6651:; -if(qbevent){evnt(26070,1220,"wiki_methods.bas");if(r)goto S_59574;} -S_59575:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_WIKIBUILDCINDENT_STRING_ORG,*_FUNC_WIKIBUILDCINDENT_LONG_I, 2 ,0|1),qbs_new_txt_len("[[",2))))||new_error){ -if(qbevent){evnt(26070,1221,"wiki_methods.bas");if(r)goto S_59575;} -S_59576:; -fornext_value6654=*_FUNC_WIKIBUILDCINDENT_LONG_I+ 2 ; -fornext_finalvalue6654=_FUNC_WIKIBUILDCINDENT_STRING_ORG->len; -fornext_step6654= 1 ; -if (fornext_step6654<0) fornext_step_negative6654=1; else fornext_step_negative6654=0; -if (new_error) goto fornext_error6654; -goto fornext_entrylabel6654; -while(1){ -fornext_value6654=fornext_step6654+(*_FUNC_WIKIBUILDCINDENT_LONG_II); -fornext_entrylabel6654: -*_FUNC_WIKIBUILDCINDENT_LONG_II=fornext_value6654; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative6654){ -if (fornext_value6654fornext_finalvalue6654) break; -} -fornext_error6654:; -if(qbevent){evnt(26070,1222,"wiki_methods.bas");if(r)goto S_59576;} -S_59577:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_WIKIBUILDCINDENT_STRING_ORG,*_FUNC_WIKIBUILDCINDENT_LONG_II, 1 ,0|1),qbs_new_txt_len("|",1))))||new_error){ -if(qbevent){evnt(26070,1223,"wiki_methods.bas");if(r)goto S_59577;} -do{ -*_FUNC_WIKIBUILDCINDENT_LONG_I=*_FUNC_WIKIBUILDCINDENT_LONG_II+ 1 ; -if(!qbevent)break;evnt(26070,1223,"wiki_methods.bas");}while(r); -do{ -goto fornext_exit_6653; -if(!qbevent)break;evnt(26070,1223,"wiki_methods.bas");}while(r); -} -S_59581:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_WIKIBUILDCINDENT_STRING_ORG,*_FUNC_WIKIBUILDCINDENT_LONG_II, 2 ,0|1),qbs_new_txt_len("]]",2))))||new_error){ -if(qbevent){evnt(26070,1224,"wiki_methods.bas");if(r)goto S_59581;} -do{ -*_FUNC_WIKIBUILDCINDENT_LONG_I=*_FUNC_WIKIBUILDCINDENT_LONG_I+ 2 ; -if(!qbevent)break;evnt(26070,1224,"wiki_methods.bas");}while(r); -do{ -goto fornext_exit_6653; -if(!qbevent)break;evnt(26070,1224,"wiki_methods.bas");}while(r); -} -fornext_continue_6653:; -} -fornext_exit_6653:; -} -S_59587:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_WIKIBUILDCINDENT_STRING_ORG,*_FUNC_WIKIBUILDCINDENT_LONG_I, 2 ,0|1),qbs_new_txt_len("]]",2))))||new_error){ -if(qbevent){evnt(26070,1227,"wiki_methods.bas");if(r)goto S_59587;} -do{ -*_FUNC_WIKIBUILDCINDENT_LONG_I=*_FUNC_WIKIBUILDCINDENT_LONG_I+ 2 ; -if(!qbevent)break;evnt(26070,1227,"wiki_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_WIKIBUILDCINDENT_STRING_B,qbs_add(_FUNC_WIKIBUILDCINDENT_STRING_B,func_mid(_FUNC_WIKIBUILDCINDENT_STRING_ORG,*_FUNC_WIKIBUILDCINDENT_LONG_I, 1 ,0|1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1228,"wiki_methods.bas");}while(r); -fornext_continue_6650:; -} -fornext_exit_6650:; -do{ -qbs_set(_FUNC_WIKIBUILDCINDENT_STRING_ORG,_FUNC_WIKIBUILDCINDENT_STRING_B); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1230,"wiki_methods.bas");}while(r); -do{ -qbs_set(_FUNC_WIKIBUILDCINDENT_STRING_B,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1230,"wiki_methods.bas");}while(r); -S_59594:; -fornext_value6657= 1 ; -fornext_finalvalue6657=_FUNC_WIKIBUILDCINDENT_STRING_ORG->len; -fornext_step6657= 1 ; -if (fornext_step6657<0) fornext_step_negative6657=1; else fornext_step_negative6657=0; -if (new_error) goto fornext_error6657; -goto fornext_entrylabel6657; -while(1){ -fornext_value6657=fornext_step6657+(*_FUNC_WIKIBUILDCINDENT_LONG_I); -fornext_entrylabel6657: -*_FUNC_WIKIBUILDCINDENT_LONG_I=fornext_value6657; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative6657){ -if (fornext_value6657fornext_finalvalue6657) break; -} -fornext_error6657:; -if(qbevent){evnt(26070,1231,"wiki_methods.bas");if(r)goto S_59594;} -S_59595:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_WIKIBUILDCINDENT_STRING_ORG,*_FUNC_WIKIBUILDCINDENT_LONG_I, 5 ,0|1),qbs_new_txt_len("[http",5))))||new_error){ -if(qbevent){evnt(26070,1232,"wiki_methods.bas");if(r)goto S_59595;} -S_59596:; -fornext_value6660=*_FUNC_WIKIBUILDCINDENT_LONG_I+ 5 ; -fornext_finalvalue6660=_FUNC_WIKIBUILDCINDENT_STRING_ORG->len; -fornext_step6660= 1 ; -if (fornext_step6660<0) fornext_step_negative6660=1; else fornext_step_negative6660=0; -if (new_error) goto fornext_error6660; -goto fornext_entrylabel6660; -while(1){ -fornext_value6660=fornext_step6660+(*_FUNC_WIKIBUILDCINDENT_LONG_II); -fornext_entrylabel6660: -*_FUNC_WIKIBUILDCINDENT_LONG_II=fornext_value6660; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative6660){ -if (fornext_value6660fornext_finalvalue6660) break; -} -fornext_error6660:; -if(qbevent){evnt(26070,1233,"wiki_methods.bas");if(r)goto S_59596;} -S_59597:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_WIKIBUILDCINDENT_STRING_ORG,*_FUNC_WIKIBUILDCINDENT_LONG_II, 1 ,0|1),qbs_new_txt_len(" ",1))))||new_error){ -if(qbevent){evnt(26070,1234,"wiki_methods.bas");if(r)goto S_59597;} -do{ -*_FUNC_WIKIBUILDCINDENT_LONG_I=*_FUNC_WIKIBUILDCINDENT_LONG_II+ 1 ; -if(!qbevent)break;evnt(26070,1234,"wiki_methods.bas");}while(r); -do{ -goto fornext_exit_6659; -if(!qbevent)break;evnt(26070,1234,"wiki_methods.bas");}while(r); -} -S_59601:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_WIKIBUILDCINDENT_STRING_ORG,*_FUNC_WIKIBUILDCINDENT_LONG_II, 1 ,0|1),qbs_new_txt_len("]",1))))||new_error){ -if(qbevent){evnt(26070,1235,"wiki_methods.bas");if(r)goto S_59601;} -do{ -*_FUNC_WIKIBUILDCINDENT_LONG_I=*_FUNC_WIKIBUILDCINDENT_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,1235,"wiki_methods.bas");}while(r); -do{ -goto fornext_exit_6659; -if(!qbevent)break;evnt(26070,1235,"wiki_methods.bas");}while(r); -} -fornext_continue_6659:; -} -fornext_exit_6659:; -} -S_59607:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_WIKIBUILDCINDENT_STRING_ORG,*_FUNC_WIKIBUILDCINDENT_LONG_I, 1 ,0|1),qbs_new_txt_len("]",1))))||new_error){ -if(qbevent){evnt(26070,1238,"wiki_methods.bas");if(r)goto S_59607;} -do{ -*_FUNC_WIKIBUILDCINDENT_LONG_I=*_FUNC_WIKIBUILDCINDENT_LONG_I+ 1 ; -if(!qbevent)break;evnt(26070,1238,"wiki_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_WIKIBUILDCINDENT_STRING_B,qbs_add(_FUNC_WIKIBUILDCINDENT_STRING_B,func_mid(_FUNC_WIKIBUILDCINDENT_STRING_ORG,*_FUNC_WIKIBUILDCINDENT_LONG_I, 1 ,0|1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1239,"wiki_methods.bas");}while(r); -fornext_continue_6656:; -} -fornext_exit_6656:; -do{ -qbs_set(_FUNC_WIKIBUILDCINDENT_STRING_ORG,_FUNC_WIKIBUILDCINDENT_STRING_B); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1241,"wiki_methods.bas");}while(r); -do{ -qbs_set(_FUNC_WIKIBUILDCINDENT_STRING_B,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1241,"wiki_methods.bas");}while(r); -S_59614:; -fornext_value6663= 1 ; -fornext_finalvalue6663=_FUNC_WIKIBUILDCINDENT_STRING_ORG->len; -fornext_step6663= 1 ; -if (fornext_step6663<0) fornext_step_negative6663=1; else fornext_step_negative6663=0; -if (new_error) goto fornext_error6663; -goto fornext_entrylabel6663; -while(1){ -fornext_value6663=fornext_step6663+(*_FUNC_WIKIBUILDCINDENT_LONG_I); -fornext_entrylabel6663: -*_FUNC_WIKIBUILDCINDENT_LONG_I=fornext_value6663; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative6663){ -if (fornext_value6663fornext_finalvalue6663) break; -} -fornext_error6663:; -if(qbevent){evnt(26070,1242,"wiki_methods.bas");if(r)goto S_59614;} -S_59615:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_WIKIBUILDCINDENT_STRING_ORG,*_FUNC_WIKIBUILDCINDENT_LONG_I, 2 ,0|1),qbs_new_txt_len("{{",2))))||new_error){ -if(qbevent){evnt(26070,1243,"wiki_methods.bas");if(r)goto S_59615;} -S_59616:; -fornext_value6666=*_FUNC_WIKIBUILDCINDENT_LONG_I+ 2 ; -fornext_finalvalue6666=_FUNC_WIKIBUILDCINDENT_STRING_ORG->len; -fornext_step6666= 1 ; -if (fornext_step6666<0) fornext_step_negative6666=1; else fornext_step_negative6666=0; -if (new_error) goto fornext_error6666; -goto fornext_entrylabel6666; -while(1){ -fornext_value6666=fornext_step6666+(*_FUNC_WIKIBUILDCINDENT_LONG_II); -fornext_entrylabel6666: -*_FUNC_WIKIBUILDCINDENT_LONG_II=fornext_value6666; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative6666){ -if (fornext_value6666fornext_finalvalue6666) break; -} -fornext_error6666:; -if(qbevent){evnt(26070,1244,"wiki_methods.bas");if(r)goto S_59616;} -S_59617:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_WIKIBUILDCINDENT_STRING_ORG,*_FUNC_WIKIBUILDCINDENT_LONG_II, 1 ,0|1),qbs_new_txt_len("|",1))))||new_error){ -if(qbevent){evnt(26070,1245,"wiki_methods.bas");if(r)goto S_59617;} -do{ -*_FUNC_WIKIBUILDCINDENT_LONG_I=*_FUNC_WIKIBUILDCINDENT_LONG_II+ 1 ; -if(!qbevent)break;evnt(26070,1245,"wiki_methods.bas");}while(r); -do{ -goto fornext_exit_6665; -if(!qbevent)break;evnt(26070,1245,"wiki_methods.bas");}while(r); -} -S_59621:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_WIKIBUILDCINDENT_STRING_ORG,*_FUNC_WIKIBUILDCINDENT_LONG_II, 2 ,0|1),qbs_new_txt_len("}}",2))))||new_error){ -if(qbevent){evnt(26070,1246,"wiki_methods.bas");if(r)goto S_59621;} -do{ -*_FUNC_WIKIBUILDCINDENT_LONG_I=*_FUNC_WIKIBUILDCINDENT_LONG_I+ 2 ; -if(!qbevent)break;evnt(26070,1246,"wiki_methods.bas");}while(r); -do{ -goto fornext_exit_6665; -if(!qbevent)break;evnt(26070,1246,"wiki_methods.bas");}while(r); -} -fornext_continue_6665:; -} -fornext_exit_6665:; -} -S_59627:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_WIKIBUILDCINDENT_STRING_ORG,*_FUNC_WIKIBUILDCINDENT_LONG_I, 1 ,0|1),qbs_new_txt_len("|",1))))||new_error){ -if(qbevent){evnt(26070,1249,"wiki_methods.bas");if(r)goto S_59627;} -S_59628:; -fornext_value6669=*_FUNC_WIKIBUILDCINDENT_LONG_I+ 1 ; -fornext_finalvalue6669=_FUNC_WIKIBUILDCINDENT_STRING_ORG->len; -fornext_step6669= 1 ; -if (fornext_step6669<0) fornext_step_negative6669=1; else fornext_step_negative6669=0; -if (new_error) goto fornext_error6669; -goto fornext_entrylabel6669; -while(1){ -fornext_value6669=fornext_step6669+(*_FUNC_WIKIBUILDCINDENT_LONG_II); -fornext_entrylabel6669: -*_FUNC_WIKIBUILDCINDENT_LONG_II=fornext_value6669; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative6669){ -if (fornext_value6669fornext_finalvalue6669) break; -} -fornext_error6669:; -if(qbevent){evnt(26070,1250,"wiki_methods.bas");if(r)goto S_59628;} -S_59629:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_WIKIBUILDCINDENT_STRING_ORG,*_FUNC_WIKIBUILDCINDENT_LONG_II, 2 ,0|1),qbs_new_txt_len("}}",2))))||new_error){ -if(qbevent){evnt(26070,1251,"wiki_methods.bas");if(r)goto S_59629;} -do{ -*_FUNC_WIKIBUILDCINDENT_LONG_I=*_FUNC_WIKIBUILDCINDENT_LONG_II; -if(!qbevent)break;evnt(26070,1251,"wiki_methods.bas");}while(r); -do{ -goto fornext_exit_6668; -if(!qbevent)break;evnt(26070,1251,"wiki_methods.bas");}while(r); -} -fornext_continue_6668:; -} -fornext_exit_6668:; -} -S_59635:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_WIKIBUILDCINDENT_STRING_ORG,*_FUNC_WIKIBUILDCINDENT_LONG_I, 2 ,0|1),qbs_new_txt_len("}}",2))))||new_error){ -if(qbevent){evnt(26070,1254,"wiki_methods.bas");if(r)goto S_59635;} -do{ -*_FUNC_WIKIBUILDCINDENT_LONG_I=*_FUNC_WIKIBUILDCINDENT_LONG_I+ 2 ; -if(!qbevent)break;evnt(26070,1254,"wiki_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_WIKIBUILDCINDENT_STRING_B,qbs_add(_FUNC_WIKIBUILDCINDENT_STRING_B,func_mid(_FUNC_WIKIBUILDCINDENT_STRING_ORG,*_FUNC_WIKIBUILDCINDENT_LONG_I, 1 ,0|1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1255,"wiki_methods.bas");}while(r); -fornext_continue_6662:; -} -fornext_exit_6662:; -do{ -qbs_set(_FUNC_WIKIBUILDCINDENT_STRING_ORG,_FUNC_WIKIBUILDCINDENT_STRING_B); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1257,"wiki_methods.bas");}while(r); -do{ -qbs_set(_FUNC_WIKIBUILDCINDENT_STRING_B,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1257,"wiki_methods.bas");}while(r); -S_59642:; -fornext_value6672= 1 ; -fornext_finalvalue6672=_FUNC_WIKIBUILDCINDENT_STRING_ORG->len; -fornext_step6672= 1 ; -if (fornext_step6672<0) fornext_step_negative6672=1; else fornext_step_negative6672=0; -if (new_error) goto fornext_error6672; -goto fornext_entrylabel6672; -while(1){ -fornext_value6672=fornext_step6672+(*_FUNC_WIKIBUILDCINDENT_LONG_I); -fornext_entrylabel6672: -*_FUNC_WIKIBUILDCINDENT_LONG_I=fornext_value6672; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative6672){ -if (fornext_value6672fornext_finalvalue6672) break; -} -fornext_error6672:; -if(qbevent){evnt(26070,1258,"wiki_methods.bas");if(r)goto S_59642;} -S_59643:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_WIKIBUILDCINDENT_STRING_ORG,*_FUNC_WIKIBUILDCINDENT_LONG_I, 3 ,0|1),qbs_new_txt_len("'''",3))))||new_error){ -if(qbevent){evnt(26070,1259,"wiki_methods.bas");if(r)goto S_59643;} -do{ -*_FUNC_WIKIBUILDCINDENT_LONG_I=*_FUNC_WIKIBUILDCINDENT_LONG_I+ 3 ; -if(!qbevent)break;evnt(26070,1259,"wiki_methods.bas");}while(r); -} -S_59646:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_WIKIBUILDCINDENT_STRING_ORG,*_FUNC_WIKIBUILDCINDENT_LONG_I, 2 ,0|1),qbs_new_txt_len("''",2))))||new_error){ -if(qbevent){evnt(26070,1260,"wiki_methods.bas");if(r)goto S_59646;} -do{ -*_FUNC_WIKIBUILDCINDENT_LONG_I=*_FUNC_WIKIBUILDCINDENT_LONG_I+ 2 ; -if(!qbevent)break;evnt(26070,1260,"wiki_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_WIKIBUILDCINDENT_STRING_B,qbs_add(_FUNC_WIKIBUILDCINDENT_STRING_B,func_mid(_FUNC_WIKIBUILDCINDENT_STRING_ORG,*_FUNC_WIKIBUILDCINDENT_LONG_I, 1 ,0|1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1261,"wiki_methods.bas");}while(r); -fornext_continue_6671:; -} -fornext_exit_6671:; -do{ -qbs_set(_FUNC_WIKIBUILDCINDENT_STRING_ORG,_FUNC_WIKIBUILDCINDENT_STRING_B); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1263,"wiki_methods.bas");}while(r); -do{ -qbs_set(_FUNC_WIKIBUILDCINDENT_STRING_B,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1263,"wiki_methods.bas");}while(r); -S_59653:; -fornext_value6675= 1 ; -fornext_finalvalue6675=_FUNC_WIKIBUILDCINDENT_STRING_ORG->len; -fornext_step6675= 1 ; -if (fornext_step6675<0) fornext_step_negative6675=1; else fornext_step_negative6675=0; -if (new_error) goto fornext_error6675; -goto fornext_entrylabel6675; -while(1){ -fornext_value6675=fornext_step6675+(*_FUNC_WIKIBUILDCINDENT_LONG_I); -fornext_entrylabel6675: -*_FUNC_WIKIBUILDCINDENT_LONG_I=fornext_value6675; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative6675){ -if (fornext_value6675fornext_finalvalue6675) break; -} -fornext_error6675:; -if(qbevent){evnt(26070,1264,"wiki_methods.bas");if(r)goto S_59653;} -S_59654:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_WIKIBUILDCINDENT_STRING_ORG,*_FUNC_WIKIBUILDCINDENT_LONG_I, 1 ,0|1),qbs_new_txt_len("&",1))))||new_error){ -if(qbevent){evnt(26070,1265,"wiki_methods.bas");if(r)goto S_59654;} -S_59655:; -fornext_value6678= 0 ; -fornext_finalvalue6678=*__LONG_WPENTREPLCNT; -fornext_step6678= 1 ; -if (fornext_step6678<0) fornext_step_negative6678=1; else fornext_step_negative6678=0; -if (new_error) goto fornext_error6678; -goto fornext_entrylabel6678; -while(1){ -fornext_value6678=fornext_step6678+(*_FUNC_WIKIBUILDCINDENT_LONG_II); -fornext_entrylabel6678: -*_FUNC_WIKIBUILDCINDENT_LONG_II=fornext_value6678; -if (fornext_step_negative6678){ -if (fornext_value6678fornext_finalvalue6678) break; -} -fornext_error6678:; -if(qbevent){evnt(26070,1266,"wiki_methods.bas");if(r)goto S_59655;} -do{ -qbs_set(_FUNC_WIKIBUILDCINDENT_STRING_ENT,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPENTREPL[0])+((array_check((*_FUNC_WIKIBUILDCINDENT_LONG_II)-__ARRAY_UDT_WPENTREPL[4],__ARRAY_UDT_WPENTREPL[5]))*16)),8,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1267,"wiki_methods.bas");}while(r); -S_59657:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_WIKIBUILDCINDENT_STRING_ORG,*_FUNC_WIKIBUILDCINDENT_LONG_I,_FUNC_WIKIBUILDCINDENT_STRING_ENT->len,0|1),_FUNC_WIKIBUILDCINDENT_STRING_ENT)))||new_error){ -if(qbevent){evnt(26070,1268,"wiki_methods.bas");if(r)goto S_59657;} -do{ -qbs_set(_FUNC_WIKIBUILDCINDENT_STRING_B,qbs_add(_FUNC_WIKIBUILDCINDENT_STRING_B,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPENTREPL[0])+((array_check((*_FUNC_WIKIBUILDCINDENT_LONG_II)-__ARRAY_UDT_WPENTREPL[4],__ARRAY_UDT_WPENTREPL[5]))*16+8)),8,1)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1269,"wiki_methods.bas");}while(r); -do{ -*_FUNC_WIKIBUILDCINDENT_LONG_I=*_FUNC_WIKIBUILDCINDENT_LONG_I+_FUNC_WIKIBUILDCINDENT_STRING_ENT->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1270,"wiki_methods.bas");}while(r); -do{ -goto LABEL_CHARDONEENT; -if(!qbevent)break;evnt(26070,1270,"wiki_methods.bas");}while(r); -} -fornext_continue_6677:; -} -fornext_exit_6677:; -} -do{ -qbs_set(_FUNC_WIKIBUILDCINDENT_STRING_B,qbs_add(_FUNC_WIKIBUILDCINDENT_STRING_B,func_mid(_FUNC_WIKIBUILDCINDENT_STRING_ORG,*_FUNC_WIKIBUILDCINDENT_LONG_I, 1 ,0|1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1274,"wiki_methods.bas");}while(r); -LABEL_CHARDONEENT:; -if(qbevent){evnt(26070,1275,"wiki_methods.bas");r=0;} -fornext_continue_6674:; -} -fornext_exit_6674:; -do{ -qbs_set(_FUNC_WIKIBUILDCINDENT_STRING_ORG,_FUNC_WIKIBUILDCINDENT_STRING_B); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1277,"wiki_methods.bas");}while(r); -do{ -qbs_set(_FUNC_WIKIBUILDCINDENT_STRING_B,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1277,"wiki_methods.bas");}while(r); -S_59668:; -fornext_value6682= 1 ; -fornext_finalvalue6682=_FUNC_WIKIBUILDCINDENT_STRING_ORG->len; -fornext_step6682= 1 ; -if (fornext_step6682<0) fornext_step_negative6682=1; else fornext_step_negative6682=0; -if (new_error) goto fornext_error6682; -goto fornext_entrylabel6682; -while(1){ -fornext_value6682=fornext_step6682+(*_FUNC_WIKIBUILDCINDENT_LONG_I); -fornext_entrylabel6682: -*_FUNC_WIKIBUILDCINDENT_LONG_I=fornext_value6682; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative6682){ -if (fornext_value6682fornext_finalvalue6682) break; -} -fornext_error6682:; -if(qbevent){evnt(26070,1278,"wiki_methods.bas");if(r)goto S_59668;} -S_59669:; -if ((qbs_cleanup(qbs_tmp_base,-((*_FUNC_WIKIBUILDCINDENT_LONG_I+ 1 )<=(_FUNC_WIKIBUILDCINDENT_STRING_ORG->len))))||new_error){ -if(qbevent){evnt(26070,1279,"wiki_methods.bas");if(r)goto S_59669;} -S_59670:; -if ((qbs_cleanup(qbs_tmp_base,(-((qbs_asc(_FUNC_WIKIBUILDCINDENT_STRING_ORG,*_FUNC_WIKIBUILDCINDENT_LONG_I)& 224 )== 192 ))&(-((qbs_asc(_FUNC_WIKIBUILDCINDENT_STRING_ORG,*_FUNC_WIKIBUILDCINDENT_LONG_I+ 1 )& 192 )== 128 ))))||new_error){ -if(qbevent){evnt(26070,1280,"wiki_methods.bas");if(r)goto S_59670;} -do{ -qbs_set(_FUNC_WIKIBUILDCINDENT_STRING_UTF,qbs_add(func_mid(_FUNC_WIKIBUILDCINDENT_STRING_ORG,*_FUNC_WIKIBUILDCINDENT_LONG_I, 2 ,0|1),i2string( 8224 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1281,"wiki_methods.bas");}while(r); -do{ -*_FUNC_WIKIBUILDCINDENT_LONG_I=*_FUNC_WIKIBUILDCINDENT_LONG_I+ 2 ; -if(!qbevent)break;evnt(26070,1281,"wiki_methods.bas");}while(r); -S_59673:; -fornext_value6686= 0 ; -fornext_finalvalue6686=*__LONG_WPUTFREPLCNT; -fornext_step6686= 1 ; -if (fornext_step6686<0) fornext_step_negative6686=1; else fornext_step_negative6686=0; -if (new_error) goto fornext_error6686; -goto fornext_entrylabel6686; -while(1){ -fornext_value6686=fornext_step6686+(*_FUNC_WIKIBUILDCINDENT_LONG_II); -fornext_entrylabel6686: -*_FUNC_WIKIBUILDCINDENT_LONG_II=fornext_value6686; -if (fornext_step_negative6686){ -if (fornext_value6686fornext_finalvalue6686) break; -} -fornext_error6686:; -if(qbevent){evnt(26070,1282,"wiki_methods.bas");if(r)goto S_59673;} -S_59674:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*_FUNC_WIKIBUILDCINDENT_LONG_II)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12)),4,1),_FUNC_WIKIBUILDCINDENT_STRING_UTF)))||new_error){ -if(qbevent){evnt(26070,1283,"wiki_methods.bas");if(r)goto S_59674;} -do{ -qbs_set(_FUNC_WIKIBUILDCINDENT_STRING_B,qbs_add(_FUNC_WIKIBUILDCINDENT_STRING_B,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*_FUNC_WIKIBUILDCINDENT_LONG_II)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4)),8,1)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1284,"wiki_methods.bas");}while(r); -do{ -goto LABEL_CHARDONEUTF; -if(!qbevent)break;evnt(26070,1284,"wiki_methods.bas");}while(r); -} -fornext_continue_6685:; -} -fornext_exit_6685:; -do{ -qbs_set(_FUNC_WIKIBUILDCINDENT_STRING_B,qbs_add(_FUNC_WIKIBUILDCINDENT_STRING_B,func_chr( 168 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1287,"wiki_methods.bas");}while(r); -do{ -goto LABEL_CHARDONEUTF; -if(!qbevent)break;evnt(26070,1287,"wiki_methods.bas");}while(r); -} -} -S_59683:; -if ((qbs_cleanup(qbs_tmp_base,-((*_FUNC_WIKIBUILDCINDENT_LONG_I+ 2 )<=(_FUNC_WIKIBUILDCINDENT_STRING_ORG->len))))||new_error){ -if(qbevent){evnt(26070,1290,"wiki_methods.bas");if(r)goto S_59683;} -S_59684:; -if ((qbs_cleanup(qbs_tmp_base,(-((qbs_asc(_FUNC_WIKIBUILDCINDENT_STRING_ORG,*_FUNC_WIKIBUILDCINDENT_LONG_I)& 240 )== 224 ))&(-((qbs_asc(_FUNC_WIKIBUILDCINDENT_STRING_ORG,*_FUNC_WIKIBUILDCINDENT_LONG_I+ 1 )& 192 )== 128 ))&(-((qbs_asc(_FUNC_WIKIBUILDCINDENT_STRING_ORG,*_FUNC_WIKIBUILDCINDENT_LONG_I+ 2 )& 192 )== 128 ))))||new_error){ -if(qbevent){evnt(26070,1291,"wiki_methods.bas");if(r)goto S_59684;} -do{ -qbs_set(_FUNC_WIKIBUILDCINDENT_STRING_UTF,qbs_add(func_mid(_FUNC_WIKIBUILDCINDENT_STRING_ORG,*_FUNC_WIKIBUILDCINDENT_LONG_I, 3 ,0|1),func_chr( 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1292,"wiki_methods.bas");}while(r); -do{ -*_FUNC_WIKIBUILDCINDENT_LONG_I=*_FUNC_WIKIBUILDCINDENT_LONG_I+ 3 ; -if(!qbevent)break;evnt(26070,1292,"wiki_methods.bas");}while(r); -S_59687:; -fornext_value6689= 0 ; -fornext_finalvalue6689=*__LONG_WPUTFREPLCNT; -fornext_step6689= 1 ; -if (fornext_step6689<0) fornext_step_negative6689=1; else fornext_step_negative6689=0; -if (new_error) goto fornext_error6689; -goto fornext_entrylabel6689; -while(1){ -fornext_value6689=fornext_step6689+(*_FUNC_WIKIBUILDCINDENT_LONG_II); -fornext_entrylabel6689: -*_FUNC_WIKIBUILDCINDENT_LONG_II=fornext_value6689; -if (fornext_step_negative6689){ -if (fornext_value6689fornext_finalvalue6689) break; -} -fornext_error6689:; -if(qbevent){evnt(26070,1293,"wiki_methods.bas");if(r)goto S_59687;} -S_59688:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*_FUNC_WIKIBUILDCINDENT_LONG_II)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12)),4,1),_FUNC_WIKIBUILDCINDENT_STRING_UTF)))||new_error){ -if(qbevent){evnt(26070,1294,"wiki_methods.bas");if(r)goto S_59688;} -do{ -qbs_set(_FUNC_WIKIBUILDCINDENT_STRING_B,qbs_add(_FUNC_WIKIBUILDCINDENT_STRING_B,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*_FUNC_WIKIBUILDCINDENT_LONG_II)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4)),8,1)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1295,"wiki_methods.bas");}while(r); -do{ -goto LABEL_CHARDONEUTF; -if(!qbevent)break;evnt(26070,1295,"wiki_methods.bas");}while(r); -} -fornext_continue_6688:; -} -fornext_exit_6688:; -do{ -qbs_set(_FUNC_WIKIBUILDCINDENT_STRING_B,qbs_add(_FUNC_WIKIBUILDCINDENT_STRING_B,func_chr( 168 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1298,"wiki_methods.bas");}while(r); -do{ -goto LABEL_CHARDONEUTF; -if(!qbevent)break;evnt(26070,1298,"wiki_methods.bas");}while(r); -} -} -S_59697:; -if ((qbs_cleanup(qbs_tmp_base,-((*_FUNC_WIKIBUILDCINDENT_LONG_I+ 3 )<=(_FUNC_WIKIBUILDCINDENT_STRING_ORG->len))))||new_error){ -if(qbevent){evnt(26070,1301,"wiki_methods.bas");if(r)goto S_59697;} -S_59698:; -if ((qbs_cleanup(qbs_tmp_base,(-((qbs_asc(_FUNC_WIKIBUILDCINDENT_STRING_ORG,*_FUNC_WIKIBUILDCINDENT_LONG_I)& 248 )== 240 ))&(-((qbs_asc(_FUNC_WIKIBUILDCINDENT_STRING_ORG,*_FUNC_WIKIBUILDCINDENT_LONG_I+ 1 )& 192 )== 128 ))&(-((qbs_asc(_FUNC_WIKIBUILDCINDENT_STRING_ORG,*_FUNC_WIKIBUILDCINDENT_LONG_I+ 2 )& 192 )== 128 ))&(-((qbs_asc(_FUNC_WIKIBUILDCINDENT_STRING_ORG,*_FUNC_WIKIBUILDCINDENT_LONG_I+ 3 )& 192 )== 128 ))))||new_error){ -if(qbevent){evnt(26070,1302,"wiki_methods.bas");if(r)goto S_59698;} -do{ -qbs_set(_FUNC_WIKIBUILDCINDENT_STRING_UTF,func_mid(_FUNC_WIKIBUILDCINDENT_STRING_ORG,*_FUNC_WIKIBUILDCINDENT_LONG_I, 4 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1303,"wiki_methods.bas");}while(r); -do{ -*_FUNC_WIKIBUILDCINDENT_LONG_I=*_FUNC_WIKIBUILDCINDENT_LONG_I+ 4 ; -if(!qbevent)break;evnt(26070,1303,"wiki_methods.bas");}while(r); -S_59701:; -fornext_value6692= 0 ; -fornext_finalvalue6692=*__LONG_WPUTFREPLCNT; -fornext_step6692= 1 ; -if (fornext_step6692<0) fornext_step_negative6692=1; else fornext_step_negative6692=0; -if (new_error) goto fornext_error6692; -goto fornext_entrylabel6692; -while(1){ -fornext_value6692=fornext_step6692+(*_FUNC_WIKIBUILDCINDENT_LONG_II); -fornext_entrylabel6692: -*_FUNC_WIKIBUILDCINDENT_LONG_II=fornext_value6692; -if (fornext_step_negative6692){ -if (fornext_value6692fornext_finalvalue6692) break; -} -fornext_error6692:; -if(qbevent){evnt(26070,1304,"wiki_methods.bas");if(r)goto S_59701;} -S_59702:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*_FUNC_WIKIBUILDCINDENT_LONG_II)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12)),4,1),_FUNC_WIKIBUILDCINDENT_STRING_UTF)))||new_error){ -if(qbevent){evnt(26070,1305,"wiki_methods.bas");if(r)goto S_59702;} -do{ -qbs_set(_FUNC_WIKIBUILDCINDENT_STRING_B,qbs_add(_FUNC_WIKIBUILDCINDENT_STRING_B,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*_FUNC_WIKIBUILDCINDENT_LONG_II)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4)),8,1)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1306,"wiki_methods.bas");}while(r); -do{ -goto LABEL_CHARDONEUTF; -if(!qbevent)break;evnt(26070,1306,"wiki_methods.bas");}while(r); -} -fornext_continue_6691:; -} -fornext_exit_6691:; -do{ -qbs_set(_FUNC_WIKIBUILDCINDENT_STRING_B,qbs_add(_FUNC_WIKIBUILDCINDENT_STRING_B,func_chr( 168 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1309,"wiki_methods.bas");}while(r); -do{ -goto LABEL_CHARDONEUTF; -if(!qbevent)break;evnt(26070,1309,"wiki_methods.bas");}while(r); -} -} -do{ -qbs_set(_FUNC_WIKIBUILDCINDENT_STRING_B,qbs_add(_FUNC_WIKIBUILDCINDENT_STRING_B,func_mid(_FUNC_WIKIBUILDCINDENT_STRING_ORG,*_FUNC_WIKIBUILDCINDENT_LONG_I, 1 ,0|1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1312,"wiki_methods.bas");}while(r); -LABEL_CHARDONEUTF:; -if(qbevent){evnt(26070,1313,"wiki_methods.bas");r=0;} -fornext_continue_6681:; -} -fornext_exit_6681:; -do{ -qbs_set(_FUNC_WIKIBUILDCINDENT_STRING_B,FUNC_STRREPLACE(_FUNC_WIKIBUILDCINDENT_STRING_B,qbs_add(qbs_new_txt_len("
",4),func_chr( 10 )),func_chr( 10 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1315,"wiki_methods.bas");}while(r); -do{ -qbs_set(_FUNC_WIKIBUILDCINDENT_STRING_B,FUNC_STRREPLACE(_FUNC_WIKIBUILDCINDENT_STRING_B,qbs_new_txt_len("
",4),func_chr( 10 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1316,"wiki_methods.bas");}while(r); -do{ -qbs_set(_FUNC_WIKIBUILDCINDENT_STRING_B,FUNC_STRREPLACE(_FUNC_WIKIBUILDCINDENT_STRING_B,qbs_add(qbs_new_txt_len("
",6),func_chr( 10 )),func_chr( 10 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1317,"wiki_methods.bas");}while(r); -do{ -qbs_set(_FUNC_WIKIBUILDCINDENT_STRING_B,FUNC_STRREPLACE(_FUNC_WIKIBUILDCINDENT_STRING_B,qbs_new_txt_len("
",6),func_chr( 10 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1318,"wiki_methods.bas");}while(r); -do{ -qbs_set(_FUNC_WIKIBUILDCINDENT_STRING_B,qbs_add(qbs__trim(_FUNC_WIKIBUILDCINDENT_STRING_B),func_chr( 10 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1319,"wiki_methods.bas");}while(r); -do{ -*_FUNC_WIKIBUILDCINDENT_LONG_I= 1 ; -if(!qbevent)break;evnt(26070,1321,"wiki_methods.bas");}while(r); -do{ -*_FUNC_WIKIBUILDCINDENT_LONG_ST= 1 ; -if(!qbevent)break;evnt(26070,1321,"wiki_methods.bas");}while(r); -do{ -*_FUNC_WIKIBUILDCINDENT_LONG_BR= 0 ; -if(!qbevent)break;evnt(26070,1321,"wiki_methods.bas");}while(r); -do{ -qbs_set(_FUNC_WIKIBUILDCINDENT_STRING_RES,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1321,"wiki_methods.bas");}while(r); -S_59722:; -while((qbs_cleanup(qbs_tmp_base,-(*_FUNC_WIKIBUILDCINDENT_LONG_I<=_FUNC_WIKIBUILDCINDENT_STRING_B->len)))||new_error){ -if(qbevent){evnt(26070,1322,"wiki_methods.bas");if(r)goto S_59722;} -do{ -*_FUNC_WIKIBUILDCINDENT_LONG_WS=func_instr(*_FUNC_WIKIBUILDCINDENT_LONG_I,_FUNC_WIKIBUILDCINDENT_STRING_B,qbs_new_txt_len(" ",1),0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1323,"wiki_methods.bas");}while(r); -do{ -*_FUNC_WIKIBUILDCINDENT_LONG_LB=func_instr(*_FUNC_WIKIBUILDCINDENT_LONG_I,_FUNC_WIKIBUILDCINDENT_STRING_B,func_chr( 10 ),0|1); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1323,"wiki_methods.bas");}while(r); -S_59725:; -if (((-(*_FUNC_WIKIBUILDCINDENT_LONG_LB> 0 ))&(((-(*_FUNC_WIKIBUILDCINDENT_LONG_WS>*_FUNC_WIKIBUILDCINDENT_LONG_LB))|(-((*_FUNC_WIKIBUILDCINDENT_LONG_LB-*_FUNC_WIKIBUILDCINDENT_LONG_ST)<=*__LONG_HELP_WW)))))||new_error){ -if(qbevent){evnt(26070,1324,"wiki_methods.bas");if(r)goto S_59725;} -do{ -swap_32(&*_FUNC_WIKIBUILDCINDENT_LONG_WS,&*_FUNC_WIKIBUILDCINDENT_LONG_LB); -if(!qbevent)break;evnt(26070,1324,"wiki_methods.bas");}while(r); -} -S_59728:; -if (((-(*_FUNC_WIKIBUILDCINDENT_LONG_WS> 0 ))&(-((*_FUNC_WIKIBUILDCINDENT_LONG_WS-*_FUNC_WIKIBUILDCINDENT_LONG_ST)<=*__LONG_HELP_WW)))||new_error){ -if(qbevent){evnt(26070,1325,"wiki_methods.bas");if(r)goto S_59728;} -do{ -*_FUNC_WIKIBUILDCINDENT_LONG_BR=*_FUNC_WIKIBUILDCINDENT_LONG_WS; -if(!qbevent)break;evnt(26070,1326,"wiki_methods.bas");}while(r); -do{ -*_FUNC_WIKIBUILDCINDENT_LONG_I=*_FUNC_WIKIBUILDCINDENT_LONG_WS+ 1 ; -if(!qbevent)break;evnt(26070,1326,"wiki_methods.bas");}while(r); -S_59731:; -if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(_FUNC_WIKIBUILDCINDENT_STRING_B,*_FUNC_WIKIBUILDCINDENT_LONG_WS)!= 10 ))&(-(*_FUNC_WIKIBUILDCINDENT_LONG_I<=_FUNC_WIKIBUILDCINDENT_STRING_B->len))))||new_error){ -if(qbevent){evnt(26070,1327,"wiki_methods.bas");if(r)goto S_59731;} -do{ -goto ww_continue_6693; -if(!qbevent)break;evnt(26070,1327,"wiki_methods.bas");}while(r); -} -} -S_59735:; -if ((-(*_FUNC_WIKIBUILDCINDENT_LONG_BR== 0 ))||new_error){ -if(qbevent){evnt(26070,1329,"wiki_methods.bas");if(r)goto S_59735;} -S_59736:; -if ((-(*_FUNC_WIKIBUILDCINDENT_LONG_LB<*_FUNC_WIKIBUILDCINDENT_LONG_WS))||new_error){ -if(qbevent){evnt(26070,1330,"wiki_methods.bas");if(r)goto S_59736;} -do{ -*_FUNC_WIKIBUILDCINDENT_LONG_BR=*_FUNC_WIKIBUILDCINDENT_LONG_LB; -if(!qbevent)break;evnt(26070,1331,"wiki_methods.bas");}while(r); -}else{ -S_59739:; -if ((-(*_FUNC_WIKIBUILDCINDENT_LONG_WS> 0 ))||new_error){ -if(qbevent){evnt(26070,1333,"wiki_methods.bas");if(r)goto S_59739;} -do{ -*_FUNC_WIKIBUILDCINDENT_LONG_BR=*_FUNC_WIKIBUILDCINDENT_LONG_WS; -if(!qbevent)break;evnt(26070,1333,"wiki_methods.bas");}while(r); -}else{ -do{ -*_FUNC_WIKIBUILDCINDENT_LONG_BR=*_FUNC_WIKIBUILDCINDENT_LONG_LB; -if(!qbevent)break;evnt(26070,1333,"wiki_methods.bas");}while(r); -} -} -} -do{ -*_FUNC_WIKIBUILDCINDENT_LONG_CI=(*__LONG_HELP_WW-(*_FUNC_WIKIBUILDCINDENT_LONG_BR-*_FUNC_WIKIBUILDCINDENT_LONG_ST))/ 2 ; -if(!qbevent)break;evnt(26070,1336,"wiki_methods.bas");}while(r); -S_59747:; -if ((-(*_FUNC_WIKIBUILDCINDENT_LONG_CI< 0 ))||new_error){ -if(qbevent){evnt(26070,1336,"wiki_methods.bas");if(r)goto S_59747;} -do{ -*_FUNC_WIKIBUILDCINDENT_LONG_CI= 0 ; -if(!qbevent)break;evnt(26070,1336,"wiki_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_WIKIBUILDCINDENT_STRING_RES,qbs_add(_FUNC_WIKIBUILDCINDENT_STRING_RES,func_chr(*_FUNC_WIKIBUILDCINDENT_LONG_CI))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1337,"wiki_methods.bas");}while(r); -do{ -*_FUNC_WIKIBUILDCINDENT_LONG_I=*_FUNC_WIKIBUILDCINDENT_LONG_BR+ 1 ; -if(!qbevent)break;evnt(26070,1338,"wiki_methods.bas");}while(r); -do{ -*_FUNC_WIKIBUILDCINDENT_LONG_ST=*_FUNC_WIKIBUILDCINDENT_LONG_BR+ 1 ; -if(!qbevent)break;evnt(26070,1338,"wiki_methods.bas");}while(r); -do{ -*_FUNC_WIKIBUILDCINDENT_LONG_BR= 0 ; -if(!qbevent)break;evnt(26070,1338,"wiki_methods.bas");}while(r); -ww_continue_6693:; -} -ww_exit_6693:; -do{ -qbs_set(_FUNC_WIKIBUILDCINDENT_STRING_WIKIBUILDCINDENT,_FUNC_WIKIBUILDCINDENT_STRING_RES); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,1340,"wiki_methods.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free292.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_WIKIBUILDCINDENT_STRING_WIKIBUILDCINDENT);return _FUNC_WIKIBUILDCINDENT_STRING_WIKIBUILDCINDENT; -} -void SUB_PRINTWRAPSTATUS(int16*_SUB_PRINTWRAPSTATUS_INTEGER_X,int16*_SUB_PRINTWRAPSTATUS_INTEGER_Y,int16*_SUB_PRINTWRAPSTATUS_INTEGER_INITIALX,qbs*_SUB_PRINTWRAPSTATUS_STRING___TEXT){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data293.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -if(!qbevent)break;evnt(26070,20133,"ide_methods.bas");}while(r); -do{ -if(!qbevent)break;evnt(26070,20134,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_PRINTWRAPSTATUS_STRING_TEXT,_SUB_PRINTWRAPSTATUS_STRING___TEXT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20135,"ide_methods.bas");}while(r); -do{ -qbg_sub_locate(*_SUB_PRINTWRAPSTATUS_INTEGER_Y,*_SUB_PRINTWRAPSTATUS_INTEGER_X,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(26070,20137,"ide_methods.bas");}while(r); -S_59760:; -while((qbs_cleanup(qbs_tmp_base,((int32)(qbs__trim(_SUB_PRINTWRAPSTATUS_STRING_TEXT))->len)))||new_error){ -if(qbevent){evnt(26070,20138,"ide_methods.bas");if(r)goto S_59760;} -do{ -*_SUB_PRINTWRAPSTATUS_INTEGER_FINDSEP=func_instr(NULL,_SUB_PRINTWRAPSTATUS_STRING_TEXT,qbs_new_txt_len(" ",1),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20139,"ide_methods.bas");}while(r); -S_59762:; -if ((*_SUB_PRINTWRAPSTATUS_INTEGER_FINDSEP)||new_error){ -if(qbevent){evnt(26070,20140,"ide_methods.bas");if(r)goto S_59762;} -do{ -qbs_set(_SUB_PRINTWRAPSTATUS_STRING_NEXTWORD,qbs_left(_SUB_PRINTWRAPSTATUS_STRING_TEXT,*_SUB_PRINTWRAPSTATUS_INTEGER_FINDSEP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20141,"ide_methods.bas");}while(r); -}else{ -do{ -*_SUB_PRINTWRAPSTATUS_INTEGER_FINDSEP=_SUB_PRINTWRAPSTATUS_STRING_TEXT->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20143,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_PRINTWRAPSTATUS_STRING_NEXTWORD,_SUB_PRINTWRAPSTATUS_STRING_TEXT); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20144,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_SUB_PRINTWRAPSTATUS_STRING_TEXT,func_mid(_SUB_PRINTWRAPSTATUS_STRING_TEXT,*_SUB_PRINTWRAPSTATUS_INTEGER_FINDSEP+ 1 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20146,"ide_methods.bas");}while(r); -S_59769:; -if ((qbs_cleanup(qbs_tmp_base,-((func_pos( 0 )+_SUB_PRINTWRAPSTATUS_STRING_NEXTWORD->len)>(func__width(NULL,0)))))||new_error){ -if(qbevent){evnt(26070,20147,"ide_methods.bas");if(r)goto S_59769;} -S_59770:; -if ((-((func_csrlin()+ 1 )<=((*__LONG_IDEWY- 4 )+ 3 )))||new_error){ -if(qbevent){evnt(26070,20148,"ide_methods.bas");if(r)goto S_59770;} -do{ -qbg_sub_locate(func_csrlin()+ 1 ,*_SUB_PRINTWRAPSTATUS_INTEGER_INITIALX,NULL,NULL,NULL,3); -if(!qbevent)break;evnt(26070,20149,"ide_methods.bas");}while(r); -}else{ -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,20152,"ide_methods.bas");}while(r); -} -} -do{ -*_SUB_PRINTWRAPSTATUS_INTEGER_CHANGECOLOR= 0 ; -if(!qbevent)break;evnt(26070,20156,"ide_methods.bas");}while(r); -do{ -*_SUB_PRINTWRAPSTATUS_INTEGER_CHANGECOLORAFTER= 0 ; -if(!qbevent)break;evnt(26070,20157,"ide_methods.bas");}while(r); -do{ -*_SUB_PRINTWRAPSTATUS_LONG_SKIPSPACE= 0 ; -if(!qbevent)break;evnt(26070,20158,"ide_methods.bas");}while(r); -S_59779:; -fornext_value6701= 0 ; -fornext_finalvalue6701= 2 ; -fornext_step6701= 1 ; -if (fornext_step6701<0) fornext_step_negative6701=1; else fornext_step_negative6701=0; -if (new_error) goto fornext_error6701; -goto fornext_entrylabel6701; -while(1){ -fornext_value6701=fornext_step6701+(*_SUB_PRINTWRAPSTATUS_INTEGER_I); -fornext_entrylabel6701: -*_SUB_PRINTWRAPSTATUS_INTEGER_I=fornext_value6701; -if (fornext_step_negative6701){ -if (fornext_value6701fornext_finalvalue6701) break; -} -fornext_error6701:; -if(qbevent){evnt(26070,20159,"ide_methods.bas");if(r)goto S_59779;} -do{ -*_SUB_PRINTWRAPSTATUS_INTEGER_FINDCOLORMARKER=func_instr(NULL,_SUB_PRINTWRAPSTATUS_STRING_NEXTWORD,func_chr(*_SUB_PRINTWRAPSTATUS_INTEGER_I),0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20160,"ide_methods.bas");}while(r); -S_59781:; -if ((-(*_SUB_PRINTWRAPSTATUS_INTEGER_FINDCOLORMARKER== 1 ))||new_error){ -if(qbevent){evnt(26070,20161,"ide_methods.bas");if(r)goto S_59781;} -do{ -qbs_set(_SUB_PRINTWRAPSTATUS_STRING_NEXTWORD,func_mid(_SUB_PRINTWRAPSTATUS_STRING_NEXTWORD, 2 ,NULL,0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20162,"ide_methods.bas");}while(r); -do{ -*_SUB_PRINTWRAPSTATUS_INTEGER_CHANGECOLOR=*_SUB_PRINTWRAPSTATUS_INTEGER_I+ 1 ; -if(!qbevent)break;evnt(26070,20163,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=181; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_APPLYCOLORCHANGE; -RETURN_181:; -if(!qbevent)break;evnt(26070,20164,"ide_methods.bas");}while(r); -S_59785:; -}else{ -if (-(*_SUB_PRINTWRAPSTATUS_INTEGER_FINDCOLORMARKER> 0 )){ -if(qbevent){evnt(26070,20165,"ide_methods.bas");if(r)goto S_59785;} -do{ -qbs_set(_SUB_PRINTWRAPSTATUS_STRING_NEXTWORD,qbs_add(qbs_left(_SUB_PRINTWRAPSTATUS_STRING_NEXTWORD,*_SUB_PRINTWRAPSTATUS_INTEGER_FINDCOLORMARKER- 1 ),func_mid(_SUB_PRINTWRAPSTATUS_STRING_NEXTWORD,*_SUB_PRINTWRAPSTATUS_INTEGER_FINDCOLORMARKER+ 1 ,NULL,0))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20166,"ide_methods.bas");}while(r); -S_59787:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_SUB_PRINTWRAPSTATUS_STRING_NEXTWORD, 1 ),qbs_new_txt_len(" ",1))))||new_error){ -if(qbevent){evnt(26070,20167,"ide_methods.bas");if(r)goto S_59787;} -do{ -qbs_set(_SUB_PRINTWRAPSTATUS_STRING_NEXTWORD,qbs_rtrim(_SUB_PRINTWRAPSTATUS_STRING_NEXTWORD)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20168,"ide_methods.bas");}while(r); -do{ -*_SUB_PRINTWRAPSTATUS_LONG_SKIPSPACE= -1 ; -if(!qbevent)break;evnt(26070,20169,"ide_methods.bas");}while(r); -} -do{ -*_SUB_PRINTWRAPSTATUS_INTEGER_CHANGECOLORAFTER=*_SUB_PRINTWRAPSTATUS_INTEGER_I+ 1 ; -if(!qbevent)break;evnt(26070,20171,"ide_methods.bas");}while(r); -} -} -fornext_continue_6700:; -} -fornext_exit_6700:; -do{ -tqbs=qbs_new(0,0); -qbs_set(tqbs,_SUB_PRINTWRAPSTATUS_STRING_NEXTWORD); -if (new_error) goto skip6702; -makefit(tqbs); -qbs_print(tqbs,0); -skip6702: -qbs_free(tqbs); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20175,"ide_methods.bas");}while(r); -S_59795:; -if ((*_SUB_PRINTWRAPSTATUS_INTEGER_CHANGECOLORAFTER)||new_error){ -if(qbevent){evnt(26070,20177,"ide_methods.bas");if(r)goto S_59795;} -do{ -*_SUB_PRINTWRAPSTATUS_INTEGER_CHANGECOLOR=*_SUB_PRINTWRAPSTATUS_INTEGER_CHANGECOLORAFTER; -if(!qbevent)break;evnt(26070,20178,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=182; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_APPLYCOLORCHANGE; -RETURN_182:; -if(!qbevent)break;evnt(26070,20179,"ide_methods.bas");}while(r); -S_59798:; -if ((*_SUB_PRINTWRAPSTATUS_LONG_SKIPSPACE)||new_error){ -if(qbevent){evnt(26070,20180,"ide_methods.bas");if(r)goto S_59798;} -do{ -qbg_sub_locate(NULL,func_pos( 0 )+ 1 ,NULL,NULL,NULL,2); -if(!qbevent)break;evnt(26070,20180,"ide_methods.bas");}while(r); -} -} -dl_continue_6697:; -} -dl_exit_6697:; -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,20183,"ide_methods.bas");}while(r); -LABEL_APPLYCOLORCHANGE:; -if(qbevent){evnt(26070,20185,"ide_methods.bas");r=0;} -S_59804:; -sc_6703_var=0; -if(qbevent){evnt(26070,20186,"ide_methods.bas");if(r)goto S_59804;} -S_59805:; -if (((*_SUB_PRINTWRAPSTATUS_INTEGER_CHANGECOLOR==( 1 )))||new_error){ -if(qbevent){evnt(26070,20187,"ide_methods.bas");if(r)goto S_59805;} -S_59806:; -if ((-(func__defaultcolor(NULL,0)!= 11 ))||new_error){ -if(qbevent){evnt(26070,20188,"ide_methods.bas");if(r)goto S_59806;} -do{ -qbg_sub_color( 11 ,NULL,NULL,1); -if(!qbevent)break;evnt(26070,20188,"ide_methods.bas");}while(r); -}else{ -do{ -qbg_sub_color( 7 ,NULL,NULL,1); -if(!qbevent)break;evnt(26070,20188,"ide_methods.bas");}while(r); -} -sc_ec_445_end:; -sc_6703_var=-1; -} -S_59811:; -if (((*_SUB_PRINTWRAPSTATUS_INTEGER_CHANGECOLOR==( 2 )))||new_error){ -if(qbevent){evnt(26070,20189,"ide_methods.bas");if(r)goto S_59811;} -do{ -qbg_sub_color( 7 , 1 ,NULL,3); -if(!qbevent)break;evnt(26070,20190,"ide_methods.bas");}while(r); -sc_ec_446_end:; -sc_6703_var=-1; -} -S_59813:; -if (((*_SUB_PRINTWRAPSTATUS_INTEGER_CHANGECOLOR==( 3 )))||new_error){ -if(qbevent){evnt(26070,20191,"ide_methods.bas");if(r)goto S_59813;} -do{ -qbg_sub_color( 12 , 6 ,NULL,3); -if(!qbevent)break;evnt(26070,20192,"ide_methods.bas");}while(r); -sc_ec_447_end:; -} -sc_6703_end:; -do{ -#include "ret293.txt" -if(!qbevent)break;evnt(26070,20194,"ide_methods.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free293.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -qbs* FUNC_GETBYTES(qbs*_FUNC_GETBYTES_STRING___VALUE,int32*_FUNC_GETBYTES_LONG_NUMBEROFBYTES){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data294.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -if(!qbevent)break;evnt(26070,20198,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_GETBYTES_STRING_VALUE,_FUNC_GETBYTES_STRING___VALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20200,"ide_methods.bas");}while(r); -S_59819:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_GETBYTES_STRING_VALUE,_FUNC_GETBYTES_STRING_PREVIOUSVALUE)))||new_error){ -if(qbevent){evnt(26070,20201,"ide_methods.bas");if(r)goto S_59819;} -do{ -qbs_set(_FUNC_GETBYTES_STRING_PREVIOUSVALUE,_FUNC_GETBYTES_STRING_VALUE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20202,"ide_methods.bas");}while(r); -do{ -*_FUNC_GETBYTES_LONG_GETBYTESPOSITION= 1 ; -if(!qbevent)break;evnt(26070,20203,"ide_methods.bas");}while(r); -} -S_59823:; -if ((-(*_FUNC_GETBYTES_LONG_NUMBEROFBYTES== 0 ))||new_error){ -if(qbevent){evnt(26070,20206,"ide_methods.bas");if(r)goto S_59823;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,20206,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_GETBYTES_STRING_GETBYTES,func_mid(_FUNC_GETBYTES_STRING_VALUE,*_FUNC_GETBYTES_LONG_GETBYTESPOSITION,*_FUNC_GETBYTES_LONG_NUMBEROFBYTES,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20208,"ide_methods.bas");}while(r); -do{ -*_FUNC_GETBYTES_LONG_GETBYTESPOSITION=*_FUNC_GETBYTES_LONG_GETBYTESPOSITION+*_FUNC_GETBYTES_LONG_NUMBEROFBYTES; -if(!qbevent)break;evnt(26070,20209,"ide_methods.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free294.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_GETBYTES_STRING_GETBYTES);return _FUNC_GETBYTES_STRING_GETBYTES; -} -void SUB_RETRIEVESEARCHHISTORY(ptrszint*_SUB_RETRIEVESEARCHHISTORY_ARRAY_STRING_SEARCHHISTORY){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data295.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -*_SUB_RETRIEVESEARCHHISTORY_LONG_FH=func_freefile(); -if(!qbevent)break;evnt(26070,20213,"ide_methods.bas");}while(r); -do{ -sub_open(qbs_new_txt_len(".\\internal\\temp\\searched.bin",28), 2 ,NULL,NULL,*_SUB_RETRIEVESEARCHHISTORY_LONG_FH,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20214,"ide_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26070,322,"wiki_methods.bas");}while(r); +S_58391:; +fornext_value6426= 1 ; +fornext_finalvalue6426=*_SUB_WIKIPARSE_LONG_PREFETCH; +fornext_step6426= 1 ; +if (fornext_step6426<0) fornext_step_negative6426=1; else fornext_step_negative6426=0; +if (new_error) goto fornext_error6426; +goto fornext_entrylabel6426; +while(1){ +fornext_value6426=fornext_step6426+(*_SUB_WIKIPARSE_LONG_II); +fornext_entrylabel6426: +*_SUB_WIKIPARSE_LONG_II=fornext_value6426; +if (fornext_step_negative6426){ +if (fornext_value6426fornext_finalvalue6426) break; +} +fornext_error6426:; +if(qbevent){evnt(26070,323,"wiki_methods.bas");if(r)goto S_58391;} +do{ +tmp_long=array_check((*_SUB_WIKIPARSE_LONG_II)-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[tmp_long])),func_space(*_SUB_WIKIPARSE_LONG_II)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,324,"wiki_methods.bas");}while(r); +fornext_continue_6425:; +} +fornext_exit_6425:; +do{ +*_SUB_WIKIPARSE_LONG_N=_SUB_WIKIPARSE_STRING_A->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,328,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_I= 1 ; +if(!qbevent)break;evnt(26070,329,"wiki_methods.bas");}while(r); +S_58396:; +while((-(*_SUB_WIKIPARSE_LONG_I<=*_SUB_WIKIPARSE_LONG_N))||new_error){ +if(qbevent){evnt(26070,330,"wiki_methods.bas");if(r)goto S_58396;} +do{ +*_SUB_WIKIPARSE_LONG_C=qbs_asc(_SUB_WIKIPARSE_STRING_A,*_SUB_WIKIPARSE_LONG_I); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,333,"wiki_methods.bas");}while(r); +do{ +qbs_set(_SUB_WIKIPARSE_STRING_C,func_chr(*_SUB_WIKIPARSE_LONG_C)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,333,"wiki_methods.bas");}while(r); +S_58399:; +fornext_value6430= 1 ; +fornext_finalvalue6430=*_SUB_WIKIPARSE_LONG_PREFETCH; +fornext_step6430= 1 ; +if (fornext_step6430<0) fornext_step_negative6430=1; else fornext_step_negative6430=0; +if (new_error) goto fornext_error6430; +goto fornext_entrylabel6430; +while(1){ +fornext_value6430=fornext_step6430+(*_SUB_WIKIPARSE_LONG_I1); +fornext_entrylabel6430: +*_SUB_WIKIPARSE_LONG_I1=fornext_value6430; +if (fornext_step_negative6430){ +if (fornext_value6430fornext_finalvalue6430) break; +} +fornext_error6430:; +if(qbevent){evnt(26070,334,"wiki_methods.bas");if(r)goto S_58399;} +do{ +*_SUB_WIKIPARSE_LONG_II=*_SUB_WIKIPARSE_LONG_I; +if(!qbevent)break;evnt(26070,335,"wiki_methods.bas");}while(r); +S_58401:; +fornext_value6432= 1 ; +fornext_finalvalue6432=*_SUB_WIKIPARSE_LONG_I1; +fornext_step6432= 1 ; +if (fornext_step6432<0) fornext_step_negative6432=1; else fornext_step_negative6432=0; +if (new_error) goto fornext_error6432; +goto fornext_entrylabel6432; +while(1){ +fornext_value6432=fornext_step6432+(*_SUB_WIKIPARSE_LONG_I2); +fornext_entrylabel6432: +*_SUB_WIKIPARSE_LONG_I2=fornext_value6432; +if (fornext_step_negative6432){ +if (fornext_value6432fornext_finalvalue6432) break; +} +fornext_error6432:; +if(qbevent){evnt(26070,336,"wiki_methods.bas");if(r)goto S_58401;} +S_58402:; +if ((-(*_SUB_WIKIPARSE_LONG_II<=*_SUB_WIKIPARSE_LONG_N))||new_error){ +if(qbevent){evnt(26070,337,"wiki_methods.bas");if(r)goto S_58402;} +do{ +tqbs=((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check((*_SUB_WIKIPARSE_LONG_I1)-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])); if (!new_error){ +tmp_fileno=*_SUB_WIKIPARSE_LONG_I2; if (!new_error){ +tmp_long=qbs_asc(_SUB_WIKIPARSE_STRING_A,*_SUB_WIKIPARSE_LONG_II); if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26070,338,"wiki_methods.bas");}while(r); +}else{ +do{ +tqbs=((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check((*_SUB_WIKIPARSE_LONG_I1)-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])); if (!new_error){ +tmp_fileno=*_SUB_WIKIPARSE_LONG_I2; if (!new_error){ +tmp_long= 32 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26070,340,"wiki_methods.bas");}while(r); +} +do{ +*_SUB_WIKIPARSE_LONG_II=*_SUB_WIKIPARSE_LONG_II+ 1 ; +if(!qbevent)break;evnt(26070,342,"wiki_methods.bas");}while(r); +fornext_continue_6431:; +} +fornext_exit_6431:; +fornext_continue_6429:; +} +fornext_exit_6429:; +do{ +qbs_set(_SUB_WIKIPARSE_STRING_S,qbs_add(qbs_new_txt_len("__NOEDITSECTION__",17),func_chr( 10 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,347,"wiki_methods.bas");}while(r); +S_58411:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check((_SUB_WIKIPARSE_STRING_S->len)-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),_SUB_WIKIPARSE_STRING_S)))||new_error){ +if(qbevent){evnt(26070,347,"wiki_methods.bas");if(r)goto S_58411;} +do{ +*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+_SUB_WIKIPARSE_STRING_S->len- 1 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,347,"wiki_methods.bas");}while(r); +do{ +goto LABEL_CHARDONEKNL; +if(!qbevent)break;evnt(26070,347,"wiki_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_WIKIPARSE_STRING_S,qbs_new_txt_len("__NOEDITSECTION__",17)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,348,"wiki_methods.bas");}while(r); +S_58416:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check((_SUB_WIKIPARSE_STRING_S->len)-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),_SUB_WIKIPARSE_STRING_S)))||new_error){ +if(qbevent){evnt(26070,348,"wiki_methods.bas");if(r)goto S_58416;} +do{ +*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+_SUB_WIKIPARSE_STRING_S->len- 1 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,348,"wiki_methods.bas");}while(r); +do{ +goto LABEL_CHARDONE; +if(!qbevent)break;evnt(26070,348,"wiki_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_WIKIPARSE_STRING_S,qbs_add(qbs_new_txt_len("__NOTOC__",9),func_chr( 10 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,349,"wiki_methods.bas");}while(r); +S_58421:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check((_SUB_WIKIPARSE_STRING_S->len)-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),_SUB_WIKIPARSE_STRING_S)))||new_error){ +if(qbevent){evnt(26070,349,"wiki_methods.bas");if(r)goto S_58421;} +do{ +*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+_SUB_WIKIPARSE_STRING_S->len- 1 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,349,"wiki_methods.bas");}while(r); +do{ +goto LABEL_CHARDONEKNL; +if(!qbevent)break;evnt(26070,349,"wiki_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_WIKIPARSE_STRING_S,qbs_new_txt_len("__NOTOC__",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,350,"wiki_methods.bas");}while(r); +S_58426:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check((_SUB_WIKIPARSE_STRING_S->len)-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),_SUB_WIKIPARSE_STRING_S)))||new_error){ +if(qbevent){evnt(26070,350,"wiki_methods.bas");if(r)goto S_58426;} +do{ +*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+_SUB_WIKIPARSE_STRING_S->len- 1 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,350,"wiki_methods.bas");}while(r); +do{ +goto LABEL_CHARDONE; +if(!qbevent)break;evnt(26070,350,"wiki_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_WIKIPARSE_STRING_S,qbs_add(qbs_new_txt_len("__TOC__",7),func_chr( 10 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,351,"wiki_methods.bas");}while(r); +S_58431:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check((_SUB_WIKIPARSE_STRING_S->len)-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),_SUB_WIKIPARSE_STRING_S)))||new_error){ +if(qbevent){evnt(26070,351,"wiki_methods.bas");if(r)goto S_58431;} +do{ +*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+_SUB_WIKIPARSE_STRING_S->len- 1 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,351,"wiki_methods.bas");}while(r); +do{ +goto LABEL_CHARDONEKNL; +if(!qbevent)break;evnt(26070,351,"wiki_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_WIKIPARSE_STRING_S,qbs_new_txt_len("__TOC__",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,352,"wiki_methods.bas");}while(r); +S_58436:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check((_SUB_WIKIPARSE_STRING_S->len)-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),_SUB_WIKIPARSE_STRING_S)))||new_error){ +if(qbevent){evnt(26070,352,"wiki_methods.bas");if(r)goto S_58436;} +do{ +*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+_SUB_WIKIPARSE_STRING_S->len- 1 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,352,"wiki_methods.bas");}while(r); +do{ +goto LABEL_CHARDONE; +if(!qbevent)break;evnt(26070,352,"wiki_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_WIKIPARSE_STRING_S,qbs_new_txt_len("",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,353,"wiki_methods.bas");}while(r); +S_58441:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check((_SUB_WIKIPARSE_STRING_S->len)-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),_SUB_WIKIPARSE_STRING_S)))||new_error){ +if(qbevent){evnt(26070,353,"wiki_methods.bas");if(r)goto S_58441;} +do{ +*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+_SUB_WIKIPARSE_STRING_S->len- 1 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,353,"wiki_methods.bas");}while(r); +do{ +goto LABEL_CHARDONE; +if(!qbevent)break;evnt(26070,353,"wiki_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_WIKIPARSE_STRING_S,qbs_new_txt_len("",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,354,"wiki_methods.bas");}while(r); +S_58446:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check((_SUB_WIKIPARSE_STRING_S->len)-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),_SUB_WIKIPARSE_STRING_S)))||new_error){ +if(qbevent){evnt(26070,354,"wiki_methods.bas");if(r)goto S_58446;} +do{ +*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+_SUB_WIKIPARSE_STRING_S->len- 1 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,354,"wiki_methods.bas");}while(r); +do{ +goto LABEL_CHARDONE; +if(!qbevent)break;evnt(26070,354,"wiki_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_WIKIPARSE_STRING_S,qbs_new_txt_len("len)-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),_SUB_WIKIPARSE_STRING_S)))||new_error){ +if(qbevent){evnt(26070,356,"wiki_methods.bas");if(r)goto S_58451;} +do{ +*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+_SUB_WIKIPARSE_STRING_S->len- 1 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,357,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_NL= 0 ; +if(!qbevent)break;evnt(26070,357,"wiki_methods.bas");}while(r); +S_58454:; +fornext_value6452=*_SUB_WIKIPARSE_LONG_I; +fornext_finalvalue6452=_SUB_WIKIPARSE_STRING_A->len- 1 ; +fornext_step6452= 1 ; +if (fornext_step6452<0) fornext_step_negative6452=1; else fornext_step_negative6452=0; +if (new_error) goto fornext_error6452; +goto fornext_entrylabel6452; +while(1){ +fornext_value6452=fornext_step6452+(*_SUB_WIKIPARSE_LONG_II); +fornext_entrylabel6452: +*_SUB_WIKIPARSE_LONG_II=fornext_value6452; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative6452){ +if (fornext_value6452fornext_finalvalue6452) break; +} +fornext_error6452:; +if(qbevent){evnt(26070,358,"wiki_methods.bas");if(r)goto S_58454;} +S_58455:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_SUB_WIKIPARSE_STRING_A,*_SUB_WIKIPARSE_LONG_II, 1 ,0|1),qbs_new_txt_len(">",1))))||new_error){ +if(qbevent){evnt(26070,359,"wiki_methods.bas");if(r)goto S_58455;} +do{ +qbs_set(_SUB_WIKIPARSE_STRING_WLA,FUNC_WIKILOOKAHEAD(_SUB_WIKIPARSE_STRING_A,&(pass6454=*_SUB_WIKIPARSE_LONG_II+ 1 ),qbs_new_txt_len("",10))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,360,"wiki_methods.bas");}while(r); +do{ +qbs_set(_SUB_WIKIPARSE_STRING_V,_SUB_WIKIPARSE_STRING_WLA); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,360,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_NL= 1 ; +if(!qbevent)break;evnt(26070,360,"wiki_methods.bas");}while(r); +S_58459:; +if ((qbs_cleanup(qbs_tmp_base,(-(func_instr(NULL,func_mid(_SUB_WIKIPARSE_STRING_A,*_SUB_WIKIPARSE_LONG_I,*_SUB_WIKIPARSE_LONG_II-*_SUB_WIKIPARSE_LONG_I,0|1),qbs_new_txt_len("48px",4),0)== 0 ))|(-(func_instr(NULL,func_mid(_SUB_WIKIPARSE_STRING_A,*_SUB_WIKIPARSE_LONG_I,*_SUB_WIKIPARSE_LONG_II-*_SUB_WIKIPARSE_LONG_I,0|1),qbs_new_txt_len("nolines",7),0)== 0 ))))||new_error){ +if(qbevent){evnt(26070,361,"wiki_methods.bas");if(r)goto S_58459;} +do{ +*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_II+_SUB_WIKIPARSE_STRING_WLA->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,362,"wiki_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_WIKIPARSE_STRING_WLA,FUNC_STRREMOVE(_SUB_WIKIPARSE_STRING_WLA,qbs_new_txt_len(" ",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,364,"wiki_methods.bas");}while(r); +do{ +qbs_set(_SUB_WIKIPARSE_STRING_WLA,FUNC_STRREMOVE(_SUB_WIKIPARSE_STRING_WLA,func_chr( 10 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,364,"wiki_methods.bas");}while(r); +do{ +qbs_set(_SUB_WIKIPARSE_STRING_WLA,FUNC_STRREMOVE(_SUB_WIKIPARSE_STRING_WLA,qbs_new_txt_len("File:Apix.png",13))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,365,"wiki_methods.bas");}while(r); +do{ +qbs_set(_SUB_WIKIPARSE_STRING_WLA,FUNC_STRREPLACE(_SUB_WIKIPARSE_STRING_WLA,qbs_new_txt_len("|'''",4),qbs_new_txt_len("|*",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,366,"wiki_methods.bas");}while(r); +do{ +qbs_set(_SUB_WIKIPARSE_STRING_WLA,FUNC_STRREPLACE(_SUB_WIKIPARSE_STRING_WLA,qbs_new_txt_len("'''",3),qbs_new_txt_len("'' / ",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,366,"wiki_methods.bas");}while(r); +do{ +qbs_set(_SUB_WIKIPARSE_STRING_WLA,FUNC_STRREPLACE(_SUB_WIKIPARSE_STRING_WLA,qbs_new_txt_len("File:Qb64.png|*",15),qbs_new_txt_len("'''QB64;''' ''",14))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,367,"wiki_methods.bas");}while(r); +do{ +qbs_set(_SUB_WIKIPARSE_STRING_WLA,FUNC_STRREPLACE(_SUB_WIKIPARSE_STRING_WLA,qbs_new_txt_len("File:Qbpe.png|*",15),qbs_new_txt_len("'''QB64-PE;''' ''",17))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,368,"wiki_methods.bas");}while(r); +do{ +qbs_set(_SUB_WIKIPARSE_STRING_WLA,FUNC_STRREPLACE(_SUB_WIKIPARSE_STRING_WLA,qbs_new_txt_len("File:Win.png|*",14),qbs_new_txt_len("'''Windows;''' ''",17))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,369,"wiki_methods.bas");}while(r); +do{ +qbs_set(_SUB_WIKIPARSE_STRING_WLA,FUNC_STRREPLACE(_SUB_WIKIPARSE_STRING_WLA,qbs_new_txt_len("File:Lnx.png|*",14),qbs_new_txt_len("'''Linux;''' ''",15))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,370,"wiki_methods.bas");}while(r); +do{ +qbs_set(_SUB_WIKIPARSE_STRING_WLA,FUNC_STRREPLACE(_SUB_WIKIPARSE_STRING_WLA,qbs_new_txt_len("File:Osx.png|*",14),qbs_new_txt_len("'''macOS;''' ''",15))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,371,"wiki_methods.bas");}while(r); +S_58472:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_SUB_WIKIPARSE_STRING_WLA,qbs_new_txt_len(":",1),0)> 0 )))||new_error){ +if(qbevent){evnt(26070,372,"wiki_methods.bas");if(r)goto S_58472;} +do{ +*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_II+_SUB_WIKIPARSE_STRING_V->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,373,"wiki_methods.bas");}while(r); +do{ +goto fornext_exit_6451; +if(!qbevent)break;evnt(26070,374,"wiki_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_WIKIPARSE_STRING_WLA,FUNC_STRREPLACE(_SUB_WIKIPARSE_STRING_WLA,qbs_new_txt_len(";",1),qbs_new_txt_len(":",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,376,"wiki_methods.bas");}while(r); +do{ +qbs_set(_SUB_WIKIPARSE_STRING_WLA,FUNC_STRREPLACE(_SUB_WIKIPARSE_STRING_WLA,qbs_new_txt_len("''none''",8),qbs_new_txt_len("''no versions''",15))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,377,"wiki_methods.bas");}while(r); +do{ +qbs_set(_SUB_WIKIPARSE_STRING_WLA,FUNC_STRREPLACE(_SUB_WIKIPARSE_STRING_WLA,qbs_new_txt_len("''all''",7),qbs_new_txt_len("''all versions''",16))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,378,"wiki_methods.bas");}while(r); +do{ +qbs_set(_SUB_WIKIPARSE_STRING_WLA,qbs_add(qbs_add(qbs_new_txt_len("* ",2),qbs_left(_SUB_WIKIPARSE_STRING_WLA,_SUB_WIKIPARSE_STRING_WLA->len- 3 )),i2string( 2570 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,379,"wiki_methods.bas");}while(r); +do{ +qbs_set(_SUB_WIKIPARSE_STRING_A,qbs_add(qbs_add(qbs_left(_SUB_WIKIPARSE_STRING_A,*_SUB_WIKIPARSE_LONG_II),_SUB_WIKIPARSE_STRING_WLA),func_mid(_SUB_WIKIPARSE_STRING_A,*_SUB_WIKIPARSE_LONG_II+_SUB_WIKIPARSE_STRING_V->len+ 1 ,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,380,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_N=_SUB_WIKIPARSE_STRING_A->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,381,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_II; +if(!qbevent)break;evnt(26070,381,"wiki_methods.bas");}while(r); +} +do{ +goto fornext_exit_6451; +if(!qbevent)break;evnt(26070,383,"wiki_methods.bas");}while(r); +} +fornext_continue_6451:; +} +fornext_exit_6451:; +do{ +goto LABEL_CHARDONEKNL; +if(!qbevent)break;evnt(26070,386,"wiki_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_WIKIPARSE_STRING_S,qbs_add(qbs_new_txt_len("",10),func_chr( 10 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,388,"wiki_methods.bas");}while(r); +S_58490:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check((_SUB_WIKIPARSE_STRING_S->len)-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),_SUB_WIKIPARSE_STRING_S)))||new_error){ +if(qbevent){evnt(26070,388,"wiki_methods.bas");if(r)goto S_58490;} +do{ +*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+_SUB_WIKIPARSE_STRING_S->len- 1 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,388,"wiki_methods.bas");}while(r); +do{ +goto LABEL_CHARDONEKNL; +if(!qbevent)break;evnt(26070,388,"wiki_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_WIKIPARSE_STRING_S,qbs_new_txt_len("",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,389,"wiki_methods.bas");}while(r); +S_58495:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check((_SUB_WIKIPARSE_STRING_S->len)-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),_SUB_WIKIPARSE_STRING_S)))||new_error){ +if(qbevent){evnt(26070,389,"wiki_methods.bas");if(r)goto S_58495;} +do{ +*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+_SUB_WIKIPARSE_STRING_S->len- 1 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,389,"wiki_methods.bas");}while(r); +do{ +goto LABEL_CHARDONE; +if(!qbevent)break;evnt(26070,389,"wiki_methods.bas");}while(r); +} +S_58499:; +if ((-(*__LONG_HELP_LOCKPARSE<= 0 ))||new_error){ +if(qbevent){evnt(26070,393,"wiki_methods.bas");if(r)goto S_58499;} +do{ +qbs_set(_SUB_WIKIPARSE_STRING_S,qbs_new_txt_len("
",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,394,"wiki_methods.bas");}while(r); +S_58501:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check((_SUB_WIKIPARSE_STRING_S->len)-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),_SUB_WIKIPARSE_STRING_S)))||new_error){ +if(qbevent){evnt(26070,395,"wiki_methods.bas");if(r)goto S_58501;} +do{ +*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+_SUB_WIKIPARSE_STRING_S->len- 1 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,396,"wiki_methods.bas");}while(r); +do{ +qbs_set(_SUB_WIKIPARSE_STRING_WLA,FUNC_WIKILOOKAHEAD(_SUB_WIKIPARSE_STRING_A,&(pass6466=*_SUB_WIKIPARSE_LONG_I+ 1 ),qbs_new_txt_len("
",9))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,397,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_CENTER= 1 ; +if(!qbevent)break;evnt(26070,398,"wiki_methods.bas");}while(r); +do{ +qbs_set(__STRING_HELP_CINDENT,FUNC_WIKIBUILDCINDENT(_SUB_WIKIPARSE_STRING_WLA)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,398,"wiki_methods.bas");}while(r); +do{ +SUB_HELP_ADDTXT(func_space(qbs_asc(__STRING_HELP_CINDENT, 1 )),_SUB_WIKIPARSE_LONG_COL,&(pass6467= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,399,"wiki_methods.bas");}while(r); +do{ +qbs_set(__STRING_HELP_CINDENT,func_mid(__STRING_HELP_CINDENT, 2 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,400,"wiki_methods.bas");}while(r); +do{ +goto LABEL_CHARDONE; +if(!qbevent)break;evnt(26070,401,"wiki_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_WIKIPARSE_STRING_S,qbs_new_txt_len("",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,403,"wiki_methods.bas");}while(r); +S_58511:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check((_SUB_WIKIPARSE_STRING_S->len)-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),_SUB_WIKIPARSE_STRING_S)))||new_error){ +if(qbevent){evnt(26070,404,"wiki_methods.bas");if(r)goto S_58511;} +do{ +*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+_SUB_WIKIPARSE_STRING_S->len- 1 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,405,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_CENTER= 0 ; +if(!qbevent)break;evnt(26070,406,"wiki_methods.bas");}while(r); +do{ +SUB_HELP_NEWLINE(); +if(!qbevent)break;evnt(26070,407,"wiki_methods.bas");}while(r); +do{ +goto LABEL_CHARDONE; +if(!qbevent)break;evnt(26070,408,"wiki_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_WIKIPARSE_STRING_S,qbs_new_txt_len("

len)-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),_SUB_WIKIPARSE_STRING_S)))||new_error){ +if(qbevent){evnt(26070,411,"wiki_methods.bas");if(r)goto S_58518;} +do{ +*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+_SUB_WIKIPARSE_STRING_S->len- 1 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,412,"wiki_methods.bas");}while(r); +S_58520:; +fornext_value6473=*_SUB_WIKIPARSE_LONG_I; +fornext_finalvalue6473=_SUB_WIKIPARSE_STRING_A->len- 1 ; +fornext_step6473= 1 ; +if (fornext_step6473<0) fornext_step_negative6473=1; else fornext_step_negative6473=0; +if (new_error) goto fornext_error6473; +goto fornext_entrylabel6473; +while(1){ +fornext_value6473=fornext_step6473+(*_SUB_WIKIPARSE_LONG_II); +fornext_entrylabel6473: +*_SUB_WIKIPARSE_LONG_II=fornext_value6473; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative6473){ +if (fornext_value6473fornext_finalvalue6473) break; +} +fornext_error6473:; +if(qbevent){evnt(26070,413,"wiki_methods.bas");if(r)goto S_58520;} +S_58521:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_SUB_WIKIPARSE_STRING_A,*_SUB_WIKIPARSE_LONG_II, 1 ,0|1),qbs_new_txt_len(">",1))))||new_error){ +if(qbevent){evnt(26070,414,"wiki_methods.bas");if(r)goto S_58521;} +do{ +qbs_set(_SUB_WIKIPARSE_STRING_WLA,FUNC_WIKILOOKAHEAD(_SUB_WIKIPARSE_STRING_A,&(pass6475=*_SUB_WIKIPARSE_LONG_II+ 1 ),qbs_new_txt_len("

",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,415,"wiki_methods.bas");}while(r); +S_58523:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,func_mid(_SUB_WIKIPARSE_STRING_A,*_SUB_WIKIPARSE_LONG_I,*_SUB_WIKIPARSE_LONG_II-*_SUB_WIKIPARSE_LONG_I,0|1),qbs_new_txt_len("center",6),0)> 0 )))||new_error){ +if(qbevent){evnt(26070,416,"wiki_methods.bas");if(r)goto S_58523;} +do{ +*__LONG_HELP_CENTER= 1 ; +if(!qbevent)break;evnt(26070,417,"wiki_methods.bas");}while(r); +do{ +qbs_set(__STRING_HELP_CINDENT,FUNC_WIKIBUILDCINDENT(_SUB_WIKIPARSE_STRING_WLA)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,417,"wiki_methods.bas");}while(r); +do{ +SUB_HELP_ADDTXT(func_space(qbs_asc(__STRING_HELP_CINDENT, 1 )),_SUB_WIKIPARSE_LONG_COL,&(pass6476= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,418,"wiki_methods.bas");}while(r); +do{ +qbs_set(__STRING_HELP_CINDENT,func_mid(__STRING_HELP_CINDENT, 2 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,419,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_II; +if(!qbevent)break;evnt(26070,420,"wiki_methods.bas");}while(r); +} +do{ +goto fornext_exit_6472; +if(!qbevent)break;evnt(26070,422,"wiki_methods.bas");}while(r); +} +fornext_continue_6472:; +} +fornext_exit_6472:; +do{ +goto LABEL_CHARDONE; +if(!qbevent)break;evnt(26070,425,"wiki_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_WIKIPARSE_STRING_S,qbs_new_txt_len("

",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,427,"wiki_methods.bas");}while(r); +S_58536:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check((_SUB_WIKIPARSE_STRING_S->len)-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),_SUB_WIKIPARSE_STRING_S)))||new_error){ +if(qbevent){evnt(26070,428,"wiki_methods.bas");if(r)goto S_58536;} +do{ +*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+_SUB_WIKIPARSE_STRING_S->len- 1 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,429,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_CENTER= 0 ; +if(!qbevent)break;evnt(26070,430,"wiki_methods.bas");}while(r); +do{ +SUB_HELP_NEWLINE(); +if(!qbevent)break;evnt(26070,431,"wiki_methods.bas");}while(r); +do{ +goto LABEL_CHARDONE; +if(!qbevent)break;evnt(26070,432,"wiki_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_WIKIPARSE_STRING_S,qbs_new_txt_len("",3),func_chr( 10 ))))))||new_error){ +if(qbevent){evnt(26070,439,"wiki_methods.bas");if(r)goto S_58546;} +do{ +*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_II+ 3 ; +if(!qbevent)break;evnt(26070,439,"wiki_methods.bas");}while(r); +do{ +goto LABEL_CHARDONEKNL; +if(!qbevent)break;evnt(26070,439,"wiki_methods.bas");}while(r); +} +S_58550:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_SUB_WIKIPARSE_STRING_A,*_SUB_WIKIPARSE_LONG_II, 3 ,0|1),qbs_new_txt_len("-->",3))))||new_error){ +if(qbevent){evnt(26070,440,"wiki_methods.bas");if(r)goto S_58550;} +do{ +*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_II+ 2 ; +if(!qbevent)break;evnt(26070,440,"wiki_methods.bas");}while(r); +do{ +goto LABEL_CHARDONE; +if(!qbevent)break;evnt(26070,440,"wiki_methods.bas");}while(r); +} +fornext_continue_6481:; +} +fornext_exit_6481:; +do{ +goto LABEL_CHARDONE; +if(!qbevent)break;evnt(26070,442,"wiki_methods.bas");}while(r); +} +} +S_58558:; +if ((-(*__LONG_HELP_LOCKPARSE<= 0 ))||new_error){ +if(qbevent){evnt(26070,448,"wiki_methods.bas");if(r)goto S_58558;} +S_58559:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 3 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("'''",3))))||new_error){ +if(qbevent){evnt(26070,450,"wiki_methods.bas");if(r)goto S_58559;} +do{ +*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 2 ; +if(!qbevent)break;evnt(26070,451,"wiki_methods.bas");}while(r); +S_58561:; +if ((-(*__LONG_HELP_BOLD== 0 ))||new_error){ +if(qbevent){evnt(26070,452,"wiki_methods.bas");if(r)goto S_58561;} +do{ +*__LONG_HELP_BOLD= 1 ; +if(!qbevent)break;evnt(26070,452,"wiki_methods.bas");}while(r); +}else{ +do{ +*__LONG_HELP_BOLD= 0 ; +if(!qbevent)break;evnt(26070,452,"wiki_methods.bas");}while(r); +} +do{ +*_SUB_WIKIPARSE_LONG_COL=FUNC_HELP_COL(); +if(!qbevent)break;evnt(26070,453,"wiki_methods.bas");}while(r); +do{ +goto LABEL_CHARDONE; +if(!qbevent)break;evnt(26070,454,"wiki_methods.bas");}while(r); +} +S_58569:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 2 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("''",2))))||new_error){ +if(qbevent){evnt(26070,457,"wiki_methods.bas");if(r)goto S_58569;} +do{ +*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,458,"wiki_methods.bas");}while(r); +S_58571:; +if ((-(*__LONG_HELP_ITALIC== 0 ))||new_error){ +if(qbevent){evnt(26070,459,"wiki_methods.bas");if(r)goto S_58571;} +do{ +*__LONG_HELP_ITALIC= 1 ; +if(!qbevent)break;evnt(26070,459,"wiki_methods.bas");}while(r); +}else{ +do{ +*__LONG_HELP_ITALIC= 0 ; +if(!qbevent)break;evnt(26070,459,"wiki_methods.bas");}while(r); +} +do{ +*_SUB_WIKIPARSE_LONG_COL=FUNC_HELP_COL(); +if(!qbevent)break;evnt(26070,460,"wiki_methods.bas");}while(r); +do{ +goto LABEL_CHARDONE; +if(!qbevent)break;evnt(26070,461,"wiki_methods.bas");}while(r); +} +} +S_58580:; +if ((-(*__LONG_HELP_LOCKPARSE<= 0 ))||new_error){ +if(qbevent){evnt(26070,467,"wiki_methods.bas");if(r)goto S_58580;} +S_58581:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 5 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("[http",5)))&(-(*_SUB_WIKIPARSE_LONG_ELINK== 0 ))))||new_error){ +if(qbevent){evnt(26070,469,"wiki_methods.bas");if(r)goto S_58581;} +do{ +*_SUB_WIKIPARSE_LONG_ELINK= 1 ; +if(!qbevent)break;evnt(26070,470,"wiki_methods.bas");}while(r); +do{ +qbs_set(_SUB_WIKIPARSE_STRING_ELINK,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,470,"wiki_methods.bas");}while(r); +do{ +qbs_set(_SUB_WIKIPARSE_STRING_ELCOL,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,470,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_LINKTXT= 1 ; +if(!qbevent)break;evnt(26070,471,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_COL=FUNC_HELP_COL(); +if(!qbevent)break;evnt(26070,471,"wiki_methods.bas");}while(r); +do{ +goto LABEL_CHARDONE; +if(!qbevent)break;evnt(26070,472,"wiki_methods.bas");}while(r); +} +S_58589:; +if ((-(*_SUB_WIKIPARSE_LONG_ELINK== 1 ))||new_error){ +if(qbevent){evnt(26070,474,"wiki_methods.bas");if(r)goto S_58589;} +S_58590:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_WIKIPARSE_STRING_C,qbs_new_txt_len("]",1))))||new_error){ +if(qbevent){evnt(26070,475,"wiki_methods.bas");if(r)goto S_58590;} +do{ +*_SUB_WIKIPARSE_LONG_ELINK= 0 ; +if(!qbevent)break;evnt(26070,476,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_LINKTXT= 0 ; +if(!qbevent)break;evnt(26070,476,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_COL=FUNC_HELP_COL(); +if(!qbevent)break;evnt(26070,476,"wiki_methods.bas");}while(r); +do{ +qbs_set(_SUB_WIKIPARSE_STRING_ETEXT,_SUB_WIKIPARSE_STRING_ELINK); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,477,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_I2=func_instr(NULL,_SUB_WIKIPARSE_STRING_ELINK,qbs_new_txt_len(" ",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,478,"wiki_methods.bas");}while(r); +S_58596:; +if ((-(*_SUB_WIKIPARSE_LONG_I2> 0 ))||new_error){ +if(qbevent){evnt(26070,479,"wiki_methods.bas");if(r)goto S_58596;} +do{ +qbs_set(_SUB_WIKIPARSE_STRING_ETEXT,func_mid(_SUB_WIKIPARSE_STRING_ELINK,*_SUB_WIKIPARSE_LONG_I2+ 1 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,480,"wiki_methods.bas");}while(r); +do{ +qbs_set(_SUB_WIKIPARSE_STRING_ELCOL,func_mid(_SUB_WIKIPARSE_STRING_ELCOL,*_SUB_WIKIPARSE_LONG_I2+ 1 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,481,"wiki_methods.bas");}while(r); +do{ +qbs_set(_SUB_WIKIPARSE_STRING_ELINK,qbs_left(_SUB_WIKIPARSE_STRING_ELINK,*_SUB_WIKIPARSE_LONG_I2- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,482,"wiki_methods.bas");}while(r); +} +do{ +*__LONG_HELP_LINKN=*__LONG_HELP_LINKN+ 1 ; +if(!qbevent)break;evnt(26070,485,"wiki_methods.bas");}while(r); +do{ +qbs_set(__STRING_HELP_LINK,qbs_add(qbs_add(qbs_add(__STRING_HELP_LINK,qbs_new_txt_len("EXTL:",5)),_SUB_WIKIPARSE_STRING_ELINK),__STRING_HELP_LINK_SEP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,486,"wiki_methods.bas");}while(r); +S_58603:; +fornext_value6485= 1 ; +fornext_finalvalue6485=_SUB_WIKIPARSE_STRING_ETEXT->len; +fornext_step6485= 1 ; +if (fornext_step6485<0) fornext_step_negative6485=1; else fornext_step_negative6485=0; +if (new_error) goto fornext_error6485; +goto fornext_entrylabel6485; +while(1){ +fornext_value6485=fornext_step6485+(*_SUB_WIKIPARSE_LONG_J); +fornext_entrylabel6485: +*_SUB_WIKIPARSE_LONG_J=fornext_value6485; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative6485){ +if (fornext_value6485fornext_finalvalue6485) break; +} +fornext_error6485:; +if(qbevent){evnt(26070,488,"wiki_methods.bas");if(r)goto S_58603;} +do{ +SUB_HELP_ADDTXT(func_chr(qbs_asc(_SUB_WIKIPARSE_STRING_ETEXT,*_SUB_WIKIPARSE_LONG_J)),&(pass6487=qbs_asc(_SUB_WIKIPARSE_STRING_ELCOL,*_SUB_WIKIPARSE_LONG_J)),__LONG_HELP_LINKN); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,489,"wiki_methods.bas");}while(r); +fornext_continue_6484:; +} +fornext_exit_6484:; +do{ +goto LABEL_CHARDONE; +if(!qbevent)break;evnt(26070,491,"wiki_methods.bas");}while(r); +} +do{ +goto LABEL_CHKENTUTF; +if(!qbevent)break;evnt(26070,493,"wiki_methods.bas");}while(r); +} +S_58610:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 2 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("[[",2)))&(-(*_SUB_WIKIPARSE_LONG_LINK== 0 ))))||new_error){ +if(qbevent){evnt(26070,496,"wiki_methods.bas");if(r)goto S_58610;} +do{ +*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,497,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_LINK= 1 ; +if(!qbevent)break;evnt(26070,498,"wiki_methods.bas");}while(r); +do{ +qbs_set(_SUB_WIKIPARSE_STRING_LINK,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,498,"wiki_methods.bas");}while(r); +do{ +qbs_set(_SUB_WIKIPARSE_STRING_LCOL,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,498,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_LINKTXT= 1 ; +if(!qbevent)break;evnt(26070,499,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_COL=FUNC_HELP_COL(); +if(!qbevent)break;evnt(26070,499,"wiki_methods.bas");}while(r); +do{ +goto LABEL_CHARDONE; +if(!qbevent)break;evnt(26070,500,"wiki_methods.bas");}while(r); +} +} +S_58620:; +if ((-(*_SUB_WIKIPARSE_LONG_LINK== 1 ))||new_error){ +if(qbevent){evnt(26070,505,"wiki_methods.bas");if(r)goto S_58620;} +S_58621:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 2 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("]]",2)))|(qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 2 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("}}",2)))))||new_error){ +if(qbevent){evnt(26070,506,"wiki_methods.bas");if(r)goto S_58621;} +do{ +*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,507,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_LINK= 0 ; +if(!qbevent)break;evnt(26070,508,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_LINKTXT= 0 ; +if(!qbevent)break;evnt(26070,508,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_COL=FUNC_HELP_COL(); +if(!qbevent)break;evnt(26070,508,"wiki_methods.bas");}while(r); +do{ +qbs_set(_SUB_WIKIPARSE_STRING_TEXT,_SUB_WIKIPARSE_STRING_LINK); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,509,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_I2=func_instr(NULL,_SUB_WIKIPARSE_STRING_LINK,qbs_new_txt_len("|",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,510,"wiki_methods.bas");}while(r); +S_58628:; +if ((-(*_SUB_WIKIPARSE_LONG_I2> 0 ))||new_error){ +if(qbevent){evnt(26070,511,"wiki_methods.bas");if(r)goto S_58628;} +do{ +qbs_set(_SUB_WIKIPARSE_STRING_TEXT,func_mid(_SUB_WIKIPARSE_STRING_LINK,*_SUB_WIKIPARSE_LONG_I2+ 1 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,512,"wiki_methods.bas");}while(r); +do{ +qbs_set(_SUB_WIKIPARSE_STRING_LCOL,func_mid(_SUB_WIKIPARSE_STRING_LCOL,*_SUB_WIKIPARSE_LONG_I2+ 1 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,513,"wiki_methods.bas");}while(r); +do{ +qbs_set(_SUB_WIKIPARSE_STRING_LINK,qbs_left(_SUB_WIKIPARSE_STRING_LINK,*_SUB_WIKIPARSE_LONG_I2- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,514,"wiki_methods.bas");}while(r); +} +do{ +*_SUB_WIKIPARSE_LONG_I2=func_instr(NULL,_SUB_WIKIPARSE_STRING_LINK,qbs_new_txt_len("#",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,516,"wiki_methods.bas");}while(r); +S_58634:; +if ((-(*_SUB_WIKIPARSE_LONG_I2> 0 ))||new_error){ +if(qbevent){evnt(26070,517,"wiki_methods.bas");if(r)goto S_58634;} +S_58635:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_WIKIPARSE_STRING_TEXT,_SUB_WIKIPARSE_STRING_LINK)))||new_error){ +if(qbevent){evnt(26070,518,"wiki_methods.bas");if(r)goto S_58635;} +do{ +qbs_set(_SUB_WIKIPARSE_STRING_TEXT,func_mid(_SUB_WIKIPARSE_STRING_LINK,*_SUB_WIKIPARSE_LONG_I2+ 1 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,519,"wiki_methods.bas");}while(r); +do{ +qbs_set(_SUB_WIKIPARSE_STRING_LCOL,func_mid(_SUB_WIKIPARSE_STRING_LCOL,*_SUB_WIKIPARSE_LONG_I2+ 1 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,520,"wiki_methods.bas");}while(r); +} +S_58639:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_SUB_WIKIPARSE_STRING_LINK,*_SUB_WIKIPARSE_LONG_I2+ 1 , 3 ,0|1),qbs_new_txt_len("toc",3))))||new_error){ +if(qbevent){evnt(26070,522,"wiki_methods.bas");if(r)goto S_58639;} +do{ +sub_mid(_SUB_WIKIPARSE_STRING_LINK,*_SUB_WIKIPARSE_LONG_I2+ 1 , 3 ,qbs_new_txt_len("\304\304\301",3),1); +if(!qbevent)break;evnt(26070,522,"wiki_methods.bas");}while(r); +} +S_58642:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_SUB_WIKIPARSE_STRING_LINK,*_SUB_WIKIPARSE_LONG_I2+ 1 , 3 ,0|1),qbs_new_txt_len("top",3))))||new_error){ +if(qbevent){evnt(26070,523,"wiki_methods.bas");if(r)goto S_58642;} +do{ +sub_mid(_SUB_WIKIPARSE_STRING_LINK,*_SUB_WIKIPARSE_LONG_I2+ 1 , 3 ,qbs_new_txt_len("\304\304\301",3),1); +if(!qbevent)break;evnt(26070,523,"wiki_methods.bas");}while(r); +} +S_58645:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_WIKIPARSE_STRING_LINK, 1 ),qbs_new_txt_len("#",1))))||new_error){ +if(qbevent){evnt(26070,524,"wiki_methods.bas");if(r)goto S_58645;} +do{ +qbs_set(_SUB_WIKIPARSE_STRING_LINK,qbs_add(__STRING_HELP_PAGELOADED,_SUB_WIKIPARSE_STRING_LINK)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,524,"wiki_methods.bas");}while(r); +} +} +S_58649:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_WIKIPARSE_STRING_LINK, 9 ),qbs_new_txt_len("Category:",9))))||new_error){ +if(qbevent){evnt(26070,526,"wiki_methods.bas");if(r)goto S_58649;} +do{ +SUB_HELP_CHECKREMOVEBLANKLINE(); +if(!qbevent)break;evnt(26070,527,"wiki_methods.bas");}while(r); +do{ +goto LABEL_CHARDONE; +if(!qbevent)break;evnt(26070,528,"wiki_methods.bas");}while(r); +} +do{ +*__LONG_HELP_LINKN=*__LONG_HELP_LINKN+ 1 ; +if(!qbevent)break;evnt(26070,531,"wiki_methods.bas");}while(r); +S_58654:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_WIKIPARSE_STRING_LINK, 10 ),qbs_new_txt_len("Wikipedia:",10))))||new_error){ +if(qbevent){evnt(26070,532,"wiki_methods.bas");if(r)goto S_58654;} +do{ +qbs_set(__STRING_HELP_LINK,qbs_add(qbs_add(qbs_add(__STRING_HELP_LINK,qbs_new_txt_len("EXTL:https://en.wikipedia.org/wiki/",35)),func_mid(_SUB_WIKIPARSE_STRING_LINK, 11 ,NULL,0)),__STRING_HELP_LINK_SEP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,533,"wiki_methods.bas");}while(r); +}else{ +do{ +qbs_set(__STRING_HELP_LINK,qbs_add(qbs_add(qbs_add(__STRING_HELP_LINK,qbs_new_txt_len("PAGE:",5)),_SUB_WIKIPARSE_STRING_LINK),__STRING_HELP_LINK_SEP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,535,"wiki_methods.bas");}while(r); +} +S_58659:; +fornext_value6489= 1 ; +fornext_finalvalue6489=_SUB_WIKIPARSE_STRING_TEXT->len; +fornext_step6489= 1 ; +if (fornext_step6489<0) fornext_step_negative6489=1; else fornext_step_negative6489=0; +if (new_error) goto fornext_error6489; +goto fornext_entrylabel6489; +while(1){ +fornext_value6489=fornext_step6489+(*_SUB_WIKIPARSE_LONG_J); +fornext_entrylabel6489: +*_SUB_WIKIPARSE_LONG_J=fornext_value6489; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative6489){ +if (fornext_value6489fornext_finalvalue6489) break; +} +fornext_error6489:; +if(qbevent){evnt(26070,538,"wiki_methods.bas");if(r)goto S_58659;} +do{ +SUB_HELP_ADDTXT(func_chr(qbs_asc(_SUB_WIKIPARSE_STRING_TEXT,*_SUB_WIKIPARSE_LONG_J)),&(pass6491=qbs_asc(_SUB_WIKIPARSE_STRING_LCOL,*_SUB_WIKIPARSE_LONG_J)),__LONG_HELP_LINKN); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,539,"wiki_methods.bas");}while(r); +fornext_continue_6488:; +} +fornext_exit_6488:; +do{ +goto LABEL_CHARDONE; +if(!qbevent)break;evnt(26070,541,"wiki_methods.bas");}while(r); +} +do{ +goto LABEL_CHKENTUTF; +if(!qbevent)break;evnt(26070,543,"wiki_methods.bas");}while(r); +} +S_58666:; +if ((-(*__LONG_HELP_LOCKPARSE<= 0 ))||new_error){ +if(qbevent){evnt(26070,548,"wiki_methods.bas");if(r)goto S_58666;} +S_58667:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 2 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("{|",2))))||new_error){ +if(qbevent){evnt(26070,550,"wiki_methods.bas");if(r)goto S_58667;} +do{ +qbs_set(_SUB_WIKIPARSE_STRING_WLA,FUNC_WIKILOOKAHEAD(_SUB_WIKIPARSE_STRING_A,&(pass6492=*_SUB_WIKIPARSE_LONG_I+ 2 ),qbs_new_txt_len("|}",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,551,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_III= 0 ; +if(!qbevent)break;evnt(26070,551,"wiki_methods.bas");}while(r); +S_58670:; +fornext_value6494= 1 ; +fornext_finalvalue6494=_SUB_WIKIPARSE_STRING_WLA->len; +fornext_step6494= 1 ; +if (fornext_step6494<0) fornext_step_negative6494=1; else fornext_step_negative6494=0; +if (new_error) goto fornext_error6494; +goto fornext_entrylabel6494; +while(1){ +fornext_value6494=fornext_step6494+(*_SUB_WIKIPARSE_LONG_II); +fornext_entrylabel6494: +*_SUB_WIKIPARSE_LONG_II=fornext_value6494; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative6494){ +if (fornext_value6494fornext_finalvalue6494) break; +} +fornext_error6494:; +if(qbevent){evnt(26070,552,"wiki_methods.bas");if(r)goto S_58670;} +S_58671:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(func_mid(_SUB_WIKIPARSE_STRING_WLA,*_SUB_WIKIPARSE_LONG_II, 1 ,0|1),qbs_new_txt_len("|",1)))&(qbs_notequal(func_mid(_SUB_WIKIPARSE_STRING_WLA,*_SUB_WIKIPARSE_LONG_II, 2 ,0|1),qbs_new_txt_len("|-",2)))))||new_error){ +if(qbevent){evnt(26070,553,"wiki_methods.bas");if(r)goto S_58671;} +do{ +*_SUB_WIKIPARSE_LONG_III=*_SUB_WIKIPARSE_LONG_III+ 1 ; +if(!qbevent)break;evnt(26070,553,"wiki_methods.bas");}while(r); +} +fornext_continue_6493:; +} +fornext_exit_6493:; +do{ +*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 1 +_SUB_WIKIPARSE_STRING_WLA->len+ 2 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,555,"wiki_methods.bas");}while(r); +S_58676:; +if ((qbs_cleanup(qbs_tmp_base,(-(*_SUB_WIKIPARSE_LONG_III> 1 ))|(-(func_instr(NULL,_SUB_WIKIPARSE_STRING_WLA,qbs_new_txt_len("__TOC__",7),0)== 0 ))))||new_error){ +if(qbevent){evnt(26070,556,"wiki_methods.bas");if(r)goto S_58676;} +S_58677:; +if ((-(*__LONG_HELP_LOCKPARSE== 0 ))||new_error){ +if(qbevent){evnt(26070,557,"wiki_methods.bas");if(r)goto S_58677;} +do{ +*__LONG_HELP_LINKN=*__LONG_HELP_LINKN+ 1 ; +if(!qbevent)break;evnt(26070,558,"wiki_methods.bas");}while(r); +do{ +qbs_set(__STRING_HELP_LINK,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(__STRING_HELP_LINK,qbs_new_txt_len("EXTL:",5)),__STRING_WIKIBASEADDRESS),qbs_new_txt_len("/index.php?title=",17)),__STRING_HELP_PAGELOADED),__STRING_HELP_LINK_SEP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,559,"wiki_methods.bas");}while(r); +do{ +SUB_HELP_ADDTXT(qbs_add(func_space((*__LONG_HELP_WW- 40 )/ 2 ),qbs_new_txt_len("\311\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\273",40)),&(pass6497= 8 ),&(pass6498= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,560,"wiki_methods.bas");}while(r); +do{ +SUB_HELP_NEWLINE(); +if(!qbevent)break;evnt(26070,560,"wiki_methods.bas");}while(r); +do{ +SUB_HELP_ADDTXT(qbs_add(func_space((*__LONG_HELP_WW- 40 )/ 2 ),qbs_new_txt_len("\272",1)),&(pass6499= 8 ),&(pass6500= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,561,"wiki_methods.bas");}while(r); +do{ +SUB_HELP_ADDTXT(qbs_new_txt_len(" The original page has a table here, ",38),&(pass6501= 15 ),__LONG_HELP_LINKN); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,561,"wiki_methods.bas");}while(r); +do{ +SUB_HELP_ADDTXT(qbs_new_txt_len("\272",1),&(pass6502= 8 ),&(pass6503= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,561,"wiki_methods.bas");}while(r); +do{ +SUB_HELP_NEWLINE(); +if(!qbevent)break;evnt(26070,561,"wiki_methods.bas");}while(r); +do{ +SUB_HELP_ADDTXT(qbs_add(func_space((*__LONG_HELP_WW- 40 )/ 2 ),qbs_new_txt_len("\272",1)),&(pass6504= 8 ),&(pass6505= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,562,"wiki_methods.bas");}while(r); +do{ +SUB_HELP_ADDTXT(qbs_new_txt_len(" please click inside this box to load ",38),&(pass6506= 15 ),__LONG_HELP_LINKN); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,562,"wiki_methods.bas");}while(r); +do{ +SUB_HELP_ADDTXT(qbs_new_txt_len("\272",1),&(pass6507= 8 ),&(pass6508= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,562,"wiki_methods.bas");}while(r); +do{ +SUB_HELP_NEWLINE(); +if(!qbevent)break;evnt(26070,562,"wiki_methods.bas");}while(r); +do{ +SUB_HELP_ADDTXT(qbs_add(func_space((*__LONG_HELP_WW- 40 )/ 2 ),qbs_new_txt_len("\272",1)),&(pass6509= 8 ),&(pass6510= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,563,"wiki_methods.bas");}while(r); +do{ +SUB_HELP_ADDTXT(qbs_new_txt_len(" the page into your standard browser. ",38),&(pass6511= 15 ),__LONG_HELP_LINKN); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,563,"wiki_methods.bas");}while(r); +do{ +SUB_HELP_ADDTXT(qbs_new_txt_len("\272",1),&(pass6512= 8 ),&(pass6513= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,563,"wiki_methods.bas");}while(r); +do{ +SUB_HELP_NEWLINE(); +if(!qbevent)break;evnt(26070,563,"wiki_methods.bas");}while(r); +do{ +SUB_HELP_ADDTXT(qbs_add(func_space((*__LONG_HELP_WW- 40 )/ 2 ),qbs_new_txt_len("\310\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\315\274",40)),&(pass6514= 8 ),&(pass6515= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,564,"wiki_methods.bas");}while(r); +} +} +do{ +goto LABEL_CHARDONE; +if(!qbevent)break;evnt(26070,567,"wiki_methods.bas");}while(r); +} +} +S_58700:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 5 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("{{Cb|",5)))|(qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 5 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("{{Cl|",5)))|(qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 5 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("{{Cm|",5)))))||new_error){ +if(qbevent){evnt(26070,573,"wiki_methods.bas");if(r)goto S_58700;} +do{ +*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 4 ; +if(!qbevent)break;evnt(26070,574,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_LINK= 1 ; +if(!qbevent)break;evnt(26070,575,"wiki_methods.bas");}while(r); +do{ +qbs_set(_SUB_WIKIPARSE_STRING_LINK,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,575,"wiki_methods.bas");}while(r); +do{ +qbs_set(_SUB_WIKIPARSE_STRING_LCOL,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,575,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_LINKTXT= 1 ; +if(!qbevent)break;evnt(26070,576,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_COL=FUNC_HELP_COL(); +if(!qbevent)break;evnt(26070,576,"wiki_methods.bas");}while(r); +do{ +goto LABEL_CHARDONE; +if(!qbevent)break;evnt(26070,577,"wiki_methods.bas");}while(r); +} +S_58709:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 2 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("{{",2))))||new_error){ +if(qbevent){evnt(26070,579,"wiki_methods.bas");if(r)goto S_58709;} +do{ +*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,580,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_CB= 1 ; +if(!qbevent)break;evnt(26070,581,"wiki_methods.bas");}while(r); +do{ +qbs_set(_SUB_WIKIPARSE_STRING_CB,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,582,"wiki_methods.bas");}while(r); +do{ +goto LABEL_CHARDONE; +if(!qbevent)break;evnt(26070,583,"wiki_methods.bas");}while(r); +} +S_58715:; +if ((-(*_SUB_WIKIPARSE_LONG_CB> 0 ))||new_error){ +if(qbevent){evnt(26070,585,"wiki_methods.bas");if(r)goto S_58715;} +S_58716:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_WIKIPARSE_STRING_C,qbs_new_txt_len("|",1)))|(qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 2 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("}}",2)))))||new_error){ +if(qbevent){evnt(26070,586,"wiki_methods.bas");if(r)goto S_58716;} +S_58717:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_WIKIPARSE_STRING_C,qbs_new_txt_len("|",1)))&(-(*_SUB_WIKIPARSE_LONG_CB== 2 ))))||new_error){ +if(qbevent){evnt(26070,587,"wiki_methods.bas");if(r)goto S_58717;} +do{ +qbs_set(_SUB_WIKIPARSE_STRING_WLA,FUNC_WIKILOOKAHEAD(_SUB_WIKIPARSE_STRING_A,&(pass6516=*_SUB_WIKIPARSE_LONG_I+ 1 ),qbs_new_txt_len("}}",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,588,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_CB= 0 ; +if(!qbevent)break;evnt(26070,589,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+_SUB_WIKIPARSE_STRING_WLA->len+ 2 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,589,"wiki_methods.bas");}while(r); +S_58721:; +}else{ +if (qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 2 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("}}",2)))){ +if(qbevent){evnt(26070,590,"wiki_methods.bas");if(r)goto S_58721;} +S_58722:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_WIKIPARSE_STRING_CB,qbs_new_txt_len("Parameter",9))))||new_error){ +if(qbevent){evnt(26070,591,"wiki_methods.bas");if(r)goto S_58722;} +do{ +*__LONG_HELP_ITALIC= 0 ; +if(!qbevent)break;evnt(26070,592,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_COL=FUNC_HELP_COL(); +if(!qbevent)break;evnt(26070,592,"wiki_methods.bas");}while(r); +S_58725:; +}else{ +if (qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_WIKIPARSE_STRING_CB, 5 ),qbs_new_txt_len("Small",5)))){ +if(qbevent){evnt(26070,593,"wiki_methods.bas");if(r)goto S_58725;} +S_58726:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_SUB_WIKIPARSE_STRING_CB, 6 )== 196 )))||new_error){ +if(qbevent){evnt(26070,594,"wiki_methods.bas");if(r)goto S_58726;} +do{ +SUB_HELP_ADDTXT(qbs_add(qbs_new_txt_len(" ",1),func_string(*__LONG_HELP_WW-*__LONG_HELP_POS, 196 )),&(pass6518= 15 ),&(pass6519= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,595,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_BG_COL= 0 ; +if(!qbevent)break;evnt(26070,596,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_COL=FUNC_HELP_COL(); +if(!qbevent)break;evnt(26070,596,"wiki_methods.bas");}while(r); +}else{ +do{ +*__LONG_HELP_CENTER= 0 ; +if(!qbevent)break;evnt(26070,598,"wiki_methods.bas");}while(r); +} +do{ +SUB_HELP_NEWLINE(); +if(!qbevent)break;evnt(26070,600,"wiki_methods.bas");}while(r); +do{ +qbs_set(_SUB_WIKIPARSE_STRING_CB,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,600,"wiki_methods.bas");}while(r); +} +} +do{ +*_SUB_WIKIPARSE_LONG_CB= 0 ; +if(!qbevent)break;evnt(26070,602,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,602,"wiki_methods.bas");}while(r); +} +} +S_58739:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_WIKIPARSE_STRING_C,qbs_new_txt_len("|",1)))&(-(*_SUB_WIKIPARSE_LONG_CB== 1 ))))||new_error){ +if(qbevent){evnt(26070,604,"wiki_methods.bas");if(r)goto S_58739;} +do{ +*_SUB_WIKIPARSE_LONG_CB= 2 ; +if(!qbevent)break;evnt(26070,604,"wiki_methods.bas");}while(r); +} +S_58742:; +if ((-(*__LONG_HELP_LOCKPARSE== 0 ))||new_error){ +if(qbevent){evnt(26070,606,"wiki_methods.bas");if(r)goto S_58742;} +do{ +qbs_set(_SUB_WIKIPARSE_STRING_CBO,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,607,"wiki_methods.bas");}while(r); +S_58744:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_WIKIPARSE_STRING_CB,qbs_new_txt_len("PageSyntax",10))))||new_error){ +if(qbevent){evnt(26070,609,"wiki_methods.bas");if(r)goto S_58744;} +do{ +qbs_set(_SUB_WIKIPARSE_STRING_CBO,qbs_new_txt_len("Syntax:",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,609,"wiki_methods.bas");}while(r); +} +S_58747:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_WIKIPARSE_STRING_CB,qbs_new_txt_len("PageParameters",14))))||new_error){ +if(qbevent){evnt(26070,610,"wiki_methods.bas");if(r)goto S_58747;} +do{ +qbs_set(_SUB_WIKIPARSE_STRING_CBO,qbs_new_txt_len("Parameters:",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,610,"wiki_methods.bas");}while(r); +} +S_58750:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_WIKIPARSE_STRING_CB,qbs_new_txt_len("PageDescription",15))))||new_error){ +if(qbevent){evnt(26070,611,"wiki_methods.bas");if(r)goto S_58750;} +do{ +qbs_set(_SUB_WIKIPARSE_STRING_CBO,qbs_new_txt_len("Description:",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,611,"wiki_methods.bas");}while(r); +} +S_58753:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_WIKIPARSE_STRING_CB,qbs_new_txt_len("PageAvailability",16))))||new_error){ +if(qbevent){evnt(26070,612,"wiki_methods.bas");if(r)goto S_58753;} +do{ +qbs_set(_SUB_WIKIPARSE_STRING_CBO,qbs_new_txt_len("Availability:",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,612,"wiki_methods.bas");}while(r); +} +S_58756:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_WIKIPARSE_STRING_CB,qbs_new_txt_len("PageExamples",12))))||new_error){ +if(qbevent){evnt(26070,613,"wiki_methods.bas");if(r)goto S_58756;} +do{ +qbs_set(_SUB_WIKIPARSE_STRING_CBO,qbs_new_txt_len("Examples:",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,613,"wiki_methods.bas");}while(r); +} +S_58759:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_WIKIPARSE_STRING_CB,qbs_new_txt_len("PageSeeAlso",11))))||new_error){ +if(qbevent){evnt(26070,614,"wiki_methods.bas");if(r)goto S_58759;} +do{ +qbs_set(_SUB_WIKIPARSE_STRING_CBO,qbs_new_txt_len("See also:",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,614,"wiki_methods.bas");}while(r); +} +S_58762:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_WIKIPARSE_STRING_CB,qbs_new_txt_len("PageInternalError",17))))||new_error){ +if(qbevent){evnt(26070,616,"wiki_methods.bas");if(r)goto S_58762;} +do{ +qbs_set(_SUB_WIKIPARSE_STRING_CBO,qbs_new_txt_len("Sorry, an error occurred:",25)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,616,"wiki_methods.bas");}while(r); +} +S_58765:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_WIKIPARSE_STRING_CBO,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,618,"wiki_methods.bas");if(r)goto S_58765;} +S_58766:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_SUB_WIKIPARSE_STRING_CBO, 1 ),qbs_new_txt_len(":",1))))||new_error){ +if(qbevent){evnt(26070,619,"wiki_methods.bas");if(r)goto S_58766;} +do{ +*__LONG_HELP_UNDERLINE= 2 ; +if(!qbevent)break;evnt(26070,619,"wiki_methods.bas");}while(r); +}else{ +do{ +*__LONG_HELP_UNDERLINE= 1 ; +if(!qbevent)break;evnt(26070,619,"wiki_methods.bas");}while(r); +} +do{ +SUB_HELP_ADDTXT(_SUB_WIKIPARSE_STRING_CBO,__LONG_HELP_COL_SECTION,&(pass6520= 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,620,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_AH= 2 ; +if(!qbevent)break;evnt(26070,620,"wiki_methods.bas");}while(r); +} +} +S_58775:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_WIKIPARSE_STRING_CB,qbs_new_txt_len("InlineCode",10)))&(-(*__LONG_HELP_LOCKPARSE== 0 ))))||new_error){ +if(qbevent){evnt(26070,625,"wiki_methods.bas");if(r)goto S_58775;} +do{ +*__LONG_HELP_BOLD= 0 ; +if(!qbevent)break;evnt(26070,626,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_ITALIC= 0 ; +if(!qbevent)break;evnt(26070,626,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_COL=FUNC_HELP_COL(); +if(!qbevent)break;evnt(26070,626,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_BG_COL= 1 ; +if(!qbevent)break;evnt(26070,627,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_LOCKPARSE= 2 ; +if(!qbevent)break;evnt(26070,627,"wiki_methods.bas");}while(r); +} +S_58782:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_WIKIPARSE_STRING_CB,qbs_new_txt_len("InlineCodeEnd",13)))&(-(*__LONG_HELP_LOCKPARSE!= 0 ))))||new_error){ +if(qbevent){evnt(26070,629,"wiki_methods.bas");if(r)goto S_58782;} +do{ +*__LONG_HELP_BG_COL= 0 ; +if(!qbevent)break;evnt(26070,630,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_LOCKPARSE= 0 ; +if(!qbevent)break;evnt(26070,630,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_BOLD= 0 ; +if(!qbevent)break;evnt(26070,631,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_ITALIC= 0 ; +if(!qbevent)break;evnt(26070,631,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_COL=FUNC_HELP_COL(); +if(!qbevent)break;evnt(26070,631,"wiki_methods.bas");}while(r); +} +S_58789:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_WIKIPARSE_STRING_CB,qbs_new_txt_len("CodeStart",9)))&(-(*__LONG_HELP_LOCKPARSE== 0 ))))||new_error){ +if(qbevent){evnt(26070,633,"wiki_methods.bas");if(r)goto S_58789;} +do{ +SUB_HELP_CHECKBLANKLINE(); +if(!qbevent)break;evnt(26070,634,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_BOLD= 0 ; +if(!qbevent)break;evnt(26070,635,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_ITALIC= 0 ; +if(!qbevent)break;evnt(26070,635,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_COL=FUNC_HELP_COL(); +if(!qbevent)break;evnt(26070,635,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_BG_COL= 1 ; +if(!qbevent)break;evnt(26070,636,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_LOCKPARSE= 2 ; +if(!qbevent)break;evnt(26070,636,"wiki_methods.bas");}while(r); +do{ +SUB_HELP_ADDTXT(qbs_add(qbs_add(func_string(*__LONG_HELP_WW- 15 , 196 ),qbs_new_txt_len(" Code Block ",12)),func_string( 3 , 196 )),&(pass6521= 15 ),&(pass6522= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,637,"wiki_methods.bas");}while(r); +do{ +SUB_HELP_NEWLINE(); +if(!qbevent)break;evnt(26070,637,"wiki_methods.bas");}while(r); +S_58798:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 3 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),(qbs_add(qbs_new_txt_len("}}",2),func_chr( 10 ))))))||new_error){ +if(qbevent){evnt(26070,638,"wiki_methods.bas");if(r)goto S_58798;} +do{ +*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,638,"wiki_methods.bas");}while(r); +} +} +S_58802:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_WIKIPARSE_STRING_CB,qbs_new_txt_len("CodeEnd",7)))&(-(*__LONG_HELP_LOCKPARSE!= 0 ))))||new_error){ +if(qbevent){evnt(26070,640,"wiki_methods.bas");if(r)goto S_58802;} +do{ +SUB_HELP_CHECKFINISHLINE(); +if(!qbevent)break;evnt(26070,641,"wiki_methods.bas");}while(r); +do{ +SUB_HELP_CHECKREMOVEBLANKLINE(); +if(!qbevent)break;evnt(26070,641,"wiki_methods.bas");}while(r); +do{ +SUB_HELP_ADDTXT(func_string(*__LONG_HELP_WW, 196 ),&(pass6523= 15 ),&(pass6524= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,642,"wiki_methods.bas");}while(r); +do{ +SUB_HELP_NEWLINE(); +if(!qbevent)break;evnt(26070,642,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_BG_COL= 0 ; +if(!qbevent)break;evnt(26070,643,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_LOCKPARSE= 0 ; +if(!qbevent)break;evnt(26070,643,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_BOLD= 0 ; +if(!qbevent)break;evnt(26070,644,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_ITALIC= 0 ; +if(!qbevent)break;evnt(26070,644,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_COL=FUNC_HELP_COL(); +if(!qbevent)break;evnt(26070,644,"wiki_methods.bas");}while(r); +} +S_58813:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(qbs_left(_SUB_WIKIPARSE_STRING_CB, 11 ),qbs_new_txt_len("OutputStart",11)))&(-(*__LONG_HELP_LOCKPARSE== 0 ))))||new_error){ +if(qbevent){evnt(26070,647,"wiki_methods.bas");if(r)goto S_58813;} +do{ +SUB_HELP_CHECKBLANKLINE(); +if(!qbevent)break;evnt(26070,648,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_BOLD= 0 ; +if(!qbevent)break;evnt(26070,649,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_ITALIC= 0 ; +if(!qbevent)break;evnt(26070,649,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_COL=FUNC_HELP_COL(); +if(!qbevent)break;evnt(26070,649,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_BG_COL= 2 ; +if(!qbevent)break;evnt(26070,650,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_LOCKPARSE= 1 ; +if(!qbevent)break;evnt(26070,650,"wiki_methods.bas");}while(r); +do{ +SUB_HELP_ADDTXT(qbs_add(qbs_add(func_string(*__LONG_HELP_WW- 17 , 196 ),qbs_new_txt_len(" Output Block ",14)),func_string( 3 , 196 )),&(pass6525= 15 ),&(pass6526= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,651,"wiki_methods.bas");}while(r); +do{ +SUB_HELP_NEWLINE(); +if(!qbevent)break;evnt(26070,651,"wiki_methods.bas");}while(r); +S_58822:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 3 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),(qbs_add(qbs_new_txt_len("}}",2),func_chr( 10 ))))))||new_error){ +if(qbevent){evnt(26070,652,"wiki_methods.bas");if(r)goto S_58822;} +do{ +*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,652,"wiki_methods.bas");}while(r); +} +} +S_58826:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_WIKIPARSE_STRING_CB,qbs_new_txt_len("OutputEnd",9)))&(-(*__LONG_HELP_LOCKPARSE!= 0 ))))||new_error){ +if(qbevent){evnt(26070,654,"wiki_methods.bas");if(r)goto S_58826;} +do{ +SUB_HELP_CHECKFINISHLINE(); +if(!qbevent)break;evnt(26070,655,"wiki_methods.bas");}while(r); +do{ +SUB_HELP_CHECKREMOVEBLANKLINE(); +if(!qbevent)break;evnt(26070,655,"wiki_methods.bas");}while(r); +do{ +SUB_HELP_ADDTXT(func_string((*__LONG_HELP_WW- 54 )/ 2 , 196 ),&(pass6527= 15 ),&(pass6528= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,656,"wiki_methods.bas");}while(r); +do{ +SUB_HELP_ADDTXT(qbs_new_txt_len(" This block does not reflect the actual output colors ",54),&(pass6529= 15 ),&(pass6530= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,657,"wiki_methods.bas");}while(r); +do{ +SUB_HELP_ADDTXT(func_string(*__LONG_HELP_WW-*__LONG_HELP_POS+ 1 , 196 ),&(pass6531= 15 ),&(pass6532= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,658,"wiki_methods.bas");}while(r); +do{ +SUB_HELP_NEWLINE(); +if(!qbevent)break;evnt(26070,658,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_BG_COL= 0 ; +if(!qbevent)break;evnt(26070,659,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_LOCKPARSE= 0 ; +if(!qbevent)break;evnt(26070,659,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_BOLD= 0 ; +if(!qbevent)break;evnt(26070,660,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_ITALIC= 0 ; +if(!qbevent)break;evnt(26070,660,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_COL=FUNC_HELP_COL(); +if(!qbevent)break;evnt(26070,660,"wiki_methods.bas");}while(r); +} +S_58839:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_WIKIPARSE_STRING_CB,qbs_new_txt_len("TextStart",9)))&(-(*__LONG_HELP_LOCKPARSE== 0 ))))||new_error){ +if(qbevent){evnt(26070,663,"wiki_methods.bas");if(r)goto S_58839;} +do{ +SUB_HELP_CHECKBLANKLINE(); +if(!qbevent)break;evnt(26070,664,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_BOLD= 0 ; +if(!qbevent)break;evnt(26070,665,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_ITALIC= 0 ; +if(!qbevent)break;evnt(26070,665,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_COL=FUNC_HELP_COL(); +if(!qbevent)break;evnt(26070,665,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_BG_COL= 6 ; +if(!qbevent)break;evnt(26070,666,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_LOCKPARSE= -1 ; +if(!qbevent)break;evnt(26070,666,"wiki_methods.bas");}while(r); +do{ +SUB_HELP_ADDTXT(qbs_add(qbs_add(func_string(*__LONG_HELP_WW- 15 , 196 ),qbs_new_txt_len(" Text Block ",12)),func_string( 3 , 196 )),&(pass6533= 15 ),&(pass6534= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,667,"wiki_methods.bas");}while(r); +do{ +SUB_HELP_NEWLINE(); +if(!qbevent)break;evnt(26070,667,"wiki_methods.bas");}while(r); +S_58848:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 3 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),(qbs_add(qbs_new_txt_len("}}",2),func_chr( 10 ))))))||new_error){ +if(qbevent){evnt(26070,668,"wiki_methods.bas");if(r)goto S_58848;} +do{ +*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,668,"wiki_methods.bas");}while(r); +} +} +S_58852:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_WIKIPARSE_STRING_CB,qbs_new_txt_len("TextEnd",7)))&(-(*__LONG_HELP_LOCKPARSE!= 0 ))))||new_error){ +if(qbevent){evnt(26070,670,"wiki_methods.bas");if(r)goto S_58852;} +do{ +SUB_HELP_CHECKFINISHLINE(); +if(!qbevent)break;evnt(26070,671,"wiki_methods.bas");}while(r); +do{ +SUB_HELP_CHECKREMOVEBLANKLINE(); +if(!qbevent)break;evnt(26070,671,"wiki_methods.bas");}while(r); +do{ +SUB_HELP_ADDTXT(func_string(*__LONG_HELP_WW, 196 ),&(pass6535= 15 ),&(pass6536= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,672,"wiki_methods.bas");}while(r); +do{ +SUB_HELP_NEWLINE(); +if(!qbevent)break;evnt(26070,672,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_BG_COL= 0 ; +if(!qbevent)break;evnt(26070,673,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_LOCKPARSE= 0 ; +if(!qbevent)break;evnt(26070,673,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_BOLD= 0 ; +if(!qbevent)break;evnt(26070,674,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_ITALIC= 0 ; +if(!qbevent)break;evnt(26070,674,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_COL=FUNC_HELP_COL(); +if(!qbevent)break;evnt(26070,674,"wiki_methods.bas");}while(r); +} +S_58863:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_WIKIPARSE_STRING_CB,qbs_new_txt_len("PreStart",8)))&(-(*__LONG_HELP_LOCKPARSE== 0 ))))||new_error){ +if(qbevent){evnt(26070,677,"wiki_methods.bas");if(r)goto S_58863;} +do{ +SUB_HELP_CHECKREMOVEBLANKLINE(); +if(!qbevent)break;evnt(26070,678,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_BOLD= 0 ; +if(!qbevent)break;evnt(26070,679,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_ITALIC= 0 ; +if(!qbevent)break;evnt(26070,679,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_COL=FUNC_HELP_COL(); +if(!qbevent)break;evnt(26070,679,"wiki_methods.bas");}while(r); +do{ +qbs_set(__STRING_HELP_LINDENT,qbs_new_txt_len(" ",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,680,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_LOCKPARSE= -2 ; +if(!qbevent)break;evnt(26070,680,"wiki_methods.bas");}while(r); +do{ +SUB_HELP_NEWLINE(); +if(!qbevent)break;evnt(26070,681,"wiki_methods.bas");}while(r); +S_58871:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 3 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),(qbs_add(qbs_new_txt_len("}}",2),func_chr( 10 ))))))||new_error){ +if(qbevent){evnt(26070,682,"wiki_methods.bas");if(r)goto S_58871;} +do{ +*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,682,"wiki_methods.bas");}while(r); +} +} +S_58875:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_WIKIPARSE_STRING_CB,qbs_new_txt_len("PreEnd",6)))&(-(*__LONG_HELP_LOCKPARSE!= 0 ))))||new_error){ +if(qbevent){evnt(26070,684,"wiki_methods.bas");if(r)goto S_58875;} +do{ +qbs_set(__STRING_HELP_LINDENT,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,685,"wiki_methods.bas");}while(r); +do{ +SUB_HELP_CHECKREMOVEBLANKLINE(); +if(!qbevent)break;evnt(26070,686,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_LOCKPARSE= 0 ; +if(!qbevent)break;evnt(26070,687,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_BOLD= 0 ; +if(!qbevent)break;evnt(26070,688,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_ITALIC= 0 ; +if(!qbevent)break;evnt(26070,688,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_COL=FUNC_HELP_COL(); +if(!qbevent)break;evnt(26070,688,"wiki_methods.bas");}while(r); +} +S_58883:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_WIKIPARSE_STRING_CB,qbs_new_txt_len("FixedStart",10)))&(-(*__LONG_HELP_LOCKPARSE== 0 ))))||new_error){ +if(qbevent){evnt(26070,691,"wiki_methods.bas");if(r)goto S_58883;} +do{ +SUB_HELP_CHECKBLANKLINE(); +if(!qbevent)break;evnt(26070,692,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_BOLD= 0 ; +if(!qbevent)break;evnt(26070,693,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_ITALIC= 0 ; +if(!qbevent)break;evnt(26070,693,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_COL=FUNC_HELP_COL(); +if(!qbevent)break;evnt(26070,693,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_BG_COL= 6 ; +if(!qbevent)break;evnt(26070,694,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_LOCKPARSE= -2 ; +if(!qbevent)break;evnt(26070,694,"wiki_methods.bas");}while(r); +do{ +SUB_HELP_ADDTXT(qbs_add(qbs_add(func_string(*__LONG_HELP_WW- 16 , 196 ),qbs_new_txt_len(" Fixed Block ",13)),func_string( 3 , 196 )),&(pass6537= 15 ),&(pass6538= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,695,"wiki_methods.bas");}while(r); +do{ +SUB_HELP_NEWLINE(); +if(!qbevent)break;evnt(26070,695,"wiki_methods.bas");}while(r); +S_58892:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 3 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),(qbs_add(qbs_new_txt_len("}}",2),func_chr( 10 ))))))||new_error){ +if(qbevent){evnt(26070,696,"wiki_methods.bas");if(r)goto S_58892;} +do{ +*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,696,"wiki_methods.bas");}while(r); +} +} +S_58896:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_WIKIPARSE_STRING_CB,qbs_new_txt_len("FixedEnd",8)))&(-(*__LONG_HELP_LOCKPARSE!= 0 ))))||new_error){ +if(qbevent){evnt(26070,698,"wiki_methods.bas");if(r)goto S_58896;} +do{ +SUB_HELP_CHECKFINISHLINE(); +if(!qbevent)break;evnt(26070,699,"wiki_methods.bas");}while(r); +do{ +SUB_HELP_CHECKREMOVEBLANKLINE(); +if(!qbevent)break;evnt(26070,699,"wiki_methods.bas");}while(r); +do{ +SUB_HELP_ADDTXT(func_string(*__LONG_HELP_WW, 196 ),&(pass6539= 15 ),&(pass6540= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,700,"wiki_methods.bas");}while(r); +do{ +SUB_HELP_NEWLINE(); +if(!qbevent)break;evnt(26070,700,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_BG_COL= 0 ; +if(!qbevent)break;evnt(26070,701,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_LOCKPARSE= 0 ; +if(!qbevent)break;evnt(26070,701,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_BOLD= 0 ; +if(!qbevent)break;evnt(26070,702,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_ITALIC= 0 ; +if(!qbevent)break;evnt(26070,702,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_COL=FUNC_HELP_COL(); +if(!qbevent)break;evnt(26070,702,"wiki_methods.bas");}while(r); +} +S_58907:; +if ((qbs_cleanup(qbs_tmp_base,(((qbs_equal(_SUB_WIKIPARSE_STRING_CB,qbs_new_txt_len("PageNavigation",14)))|(qbs_equal(qbs_right(_SUB_WIKIPARSE_STRING_CB, 6 ),qbs_new_txt_len("Plugin",6)))))&(-(*__LONG_HELP_LOCKPARSE== 0 ))))||new_error){ +if(qbevent){evnt(26070,706,"wiki_methods.bas");if(r)goto S_58907;} +do{ +qbs_set(_SUB_WIKIPARSE_STRING_PIT,FUNC_WIKI(qbs_add(qbs_new_txt_len("Template:",9),_SUB_WIKIPARSE_STRING_CB))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,707,"wiki_methods.bas");}while(r); +S_58909:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,_SUB_WIKIPARSE_STRING_PIT,qbs_new_txt_len("{{PageInternalError}}",21),0)== 0 )))||new_error){ +if(qbevent){evnt(26070,708,"wiki_methods.bas");if(r)goto S_58909;} +do{ +qbs_set(_SUB_WIKIPARSE_STRING_A,qbs_add(qbs_add(qbs_left(_SUB_WIKIPARSE_STRING_A,*_SUB_WIKIPARSE_LONG_I),_SUB_WIKIPARSE_STRING_PIT),qbs_right(_SUB_WIKIPARSE_STRING_A,_SUB_WIKIPARSE_STRING_A->len-*_SUB_WIKIPARSE_LONG_I))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,709,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_N=*_SUB_WIKIPARSE_LONG_N+_SUB_WIKIPARSE_STRING_PIT->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,710,"wiki_methods.bas");}while(r); +} +} +S_58914:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_WIKIPARSE_STRING_C,qbs_new_txt_len("|",1)))&(qbs_equal(_SUB_WIKIPARSE_STRING_CB,qbs_new_txt_len("Parameter",9)))&(-(*__LONG_HELP_LOCKPARSE<= 0 ))))||new_error){ +if(qbevent){evnt(26070,715,"wiki_methods.bas");if(r)goto S_58914;} +do{ +*__LONG_HELP_ITALIC= 1 ; +if(!qbevent)break;evnt(26070,716,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_COL=FUNC_HELP_COL(); +if(!qbevent)break;evnt(26070,716,"wiki_methods.bas");}while(r); +} +S_58918:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_WIKIPARSE_STRING_CB,qbs_new_txt_len("Small",5)))&(-(*__LONG_HELP_LOCKPARSE<= 0 ))))||new_error){ +if(qbevent){evnt(26070,720,"wiki_methods.bas");if(r)goto S_58918;} +do{ +qbs_set(_SUB_WIKIPARSE_STRING_WLA,FUNC_WIKILOOKAHEAD(_SUB_WIKIPARSE_STRING_A,&(pass6543=*_SUB_WIKIPARSE_LONG_I+ 1 ),qbs_new_txt_len("}}",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,721,"wiki_methods.bas");}while(r); +do{ +qbs_set(__STRING_HELP_CINDENT,FUNC_WIKIBUILDCINDENT(_SUB_WIKIPARSE_STRING_WLA)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,722,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_III= 0 ; +if(!qbevent)break;evnt(26070,722,"wiki_methods.bas");}while(r); +S_58922:; +if ((qbs_cleanup(qbs_tmp_base,(-(*_SUB_WIKIPARSE_LONG_I> 31 ))&(-((qbs_asc(__STRING_HELP_CINDENT, 1 ))>=(*__LONG_HELP_WW/ ((long double)( 4 )))))))||new_error){ +if(qbevent){evnt(26070,723,"wiki_methods.bas");if(r)goto S_58922;} +S_58923:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,func_mid(_SUB_WIKIPARSE_STRING_A,*_SUB_WIKIPARSE_LONG_I- 30 , 30 ,0|1),qbs_new_txt_len("{{CodeEnd}}",11),0)> 0 )))||new_error){ +if(qbevent){evnt(26070,724,"wiki_methods.bas");if(r)goto S_58923;} +do{ +*_SUB_WIKIPARSE_LONG_III= -1 ; +if(!qbevent)break;evnt(26070,724,"wiki_methods.bas");}while(r); +} +S_58926:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,func_mid(_SUB_WIKIPARSE_STRING_A,*_SUB_WIKIPARSE_LONG_I- 30 , 30 ,0|1),qbs_new_txt_len("{{TextEnd}}",11),0)> 0 )))||new_error){ +if(qbevent){evnt(26070,725,"wiki_methods.bas");if(r)goto S_58926;} +do{ +*_SUB_WIKIPARSE_LONG_III= -6 ; +if(!qbevent)break;evnt(26070,725,"wiki_methods.bas");}while(r); +} +S_58929:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,func_mid(_SUB_WIKIPARSE_STRING_A,*_SUB_WIKIPARSE_LONG_I- 31 , 31 ,0|1),qbs_new_txt_len("{{FixedEnd}}",12),0)> 0 )))||new_error){ +if(qbevent){evnt(26070,726,"wiki_methods.bas");if(r)goto S_58929;} +do{ +*_SUB_WIKIPARSE_LONG_III= -6 ; +if(!qbevent)break;evnt(26070,726,"wiki_methods.bas");}while(r); +} +} +S_58933:; +if ((-(*_SUB_WIKIPARSE_LONG_III!= 0 ))||new_error){ +if(qbevent){evnt(26070,728,"wiki_methods.bas");if(r)goto S_58933;} +S_58934:; +fornext_value6545=*__LONG_HELP_TXT_LEN- 3 ; +fornext_finalvalue6545= 1 ; +fornext_step6545= -4 ; +if (fornext_step6545<0) fornext_step_negative6545=1; else fornext_step_negative6545=0; +if (new_error) goto fornext_error6545; +goto fornext_entrylabel6545; +while(1){ +fornext_value6545=fornext_step6545+(*_SUB_WIKIPARSE_LONG_II); +fornext_entrylabel6545: +*_SUB_WIKIPARSE_LONG_II=fornext_value6545; +if (fornext_step_negative6545){ +if (fornext_value6545fornext_finalvalue6545) break; +} +fornext_error6545:; +if(qbevent){evnt(26070,729,"wiki_methods.bas");if(r)goto S_58934;} +S_58935:; +if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(__STRING_HELP_TXT,*_SUB_WIKIPARSE_LONG_II)== 32 ))&(-(*_SUB_WIKIPARSE_LONG_III< 0 ))))||new_error){ +if(qbevent){evnt(26070,730,"wiki_methods.bas");if(r)goto S_58935;} +do{ +*__LONG_HELP_POS=*__LONG_HELP_POS- 1 ; +if(!qbevent)break;evnt(26070,731,"wiki_methods.bas");}while(r); +S_58937:; +}else{ +if (qbs_cleanup(qbs_tmp_base,(-(qbs_asc(__STRING_HELP_TXT,*_SUB_WIKIPARSE_LONG_II+ 1 )> 127 ))&(-(*_SUB_WIKIPARSE_LONG_III< 0 )))){ +if(qbevent){evnt(26070,732,"wiki_methods.bas");if(r)goto S_58937;} +do{ +*__LONG_HELP_H=*__LONG_HELP_H- 1 ; +if(!qbevent)break;evnt(26070,733,"wiki_methods.bas");}while(r); +do{ +qbs_set(__STRING_HELP_LINE,qbs_left(__STRING_HELP_LINE,__STRING_HELP_LINE->len- 4 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,733,"wiki_methods.bas");}while(r); +S_58940:; +}else{ +if (qbs_cleanup(qbs_tmp_base,(-(qbs_asc(__STRING_HELP_TXT,*_SUB_WIKIPARSE_LONG_II)== 196 ))&(-(*_SUB_WIKIPARSE_LONG_III< 0 )))){ +if(qbevent){evnt(26070,734,"wiki_methods.bas");if(r)goto S_58940;} +do{ +*_SUB_WIKIPARSE_LONG_III=-(*_SUB_WIKIPARSE_LONG_III); +if(!qbevent)break;evnt(26070,735,"wiki_methods.bas");}while(r); +S_58942:; +}else{ +if (qbs_cleanup(qbs_tmp_base,(-(qbs_asc(__STRING_HELP_TXT,*_SUB_WIKIPARSE_LONG_II+ 1 )> 127 ))&(-(*_SUB_WIKIPARSE_LONG_III> 0 )))){ +if(qbevent){evnt(26070,736,"wiki_methods.bas");if(r)goto S_58942;} +do{ +*__LONG_HELP_TXT_LEN=*_SUB_WIKIPARSE_LONG_II+ 3 ; +if(!qbevent)break;evnt(26070,737,"wiki_methods.bas");}while(r); +do{ +goto fornext_exit_6544; +if(!qbevent)break;evnt(26070,737,"wiki_methods.bas");}while(r); +} +} +} +} +fornext_continue_6544:; +} +fornext_exit_6544:; +do{ +*__LONG_HELP_BG_COL=*_SUB_WIKIPARSE_LONG_III; +if(!qbevent)break;evnt(26070,740,"wiki_methods.bas");}while(r); +do{ +qbs_set(_SUB_WIKIPARSE_STRING_CB,qbs_add(_SUB_WIKIPARSE_STRING_CB,func_chr( 196 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,740,"wiki_methods.bas");}while(r); +do{ +SUB_HELP_ADDTXT(qbs_add(func_string(qbs_asc(__STRING_HELP_CINDENT, 1 )- 1 , 196 ),qbs_new_txt_len(" ",1)),&(pass6547= 15 ),&(pass6548= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,741,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_COL= 15 ; +if(!qbevent)break;evnt(26070,742,"wiki_methods.bas");}while(r); +}else{ +do{ +*__LONG_HELP_CENTER= 1 ; +if(!qbevent)break;evnt(26070,744,"wiki_methods.bas");}while(r); +do{ +qbs_set(_SUB_WIKIPARSE_STRING_CB,qbs_add(_SUB_WIKIPARSE_STRING_CB,func_chr( 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,744,"wiki_methods.bas");}while(r); +do{ +SUB_HELP_ADDTXT(func_space(qbs_asc(__STRING_HELP_CINDENT, 1 )),_SUB_WIKIPARSE_LONG_COL,&(pass6549= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,745,"wiki_methods.bas");}while(r); +} +do{ +qbs_set(__STRING_HELP_CINDENT,func_mid(__STRING_HELP_CINDENT, 2 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,747,"wiki_methods.bas");}while(r); +} +do{ +goto LABEL_CHARDONE; +if(!qbevent)break;evnt(26070,750,"wiki_methods.bas");}while(r); +} +S_58960:; +if ((-(*_SUB_WIKIPARSE_LONG_CB== 1 ))||new_error){ +if(qbevent){evnt(26070,753,"wiki_methods.bas");if(r)goto S_58960;} +do{ +qbs_set(_SUB_WIKIPARSE_STRING_CB,qbs_add(_SUB_WIKIPARSE_STRING_CB,_SUB_WIKIPARSE_STRING_C)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,753,"wiki_methods.bas");}while(r); +} +S_58963:; +if ((-(*_SUB_WIKIPARSE_LONG_CB== 2 ))||new_error){ +if(qbevent){evnt(26070,754,"wiki_methods.bas");if(r)goto S_58963;} +do{ +goto LABEL_CHKENTUTF; +if(!qbevent)break;evnt(26070,754,"wiki_methods.bas");}while(r); +} +do{ +goto LABEL_CHARDONE; +if(!qbevent)break;evnt(26070,755,"wiki_methods.bas");}while(r); +} +S_58968:; +if ((-(*__LONG_HELP_LOCKPARSE== 0 ))||new_error){ +if(qbevent){evnt(26070,760,"wiki_methods.bas");if(r)goto S_58968;} +do{ +*_SUB_WIKIPARSE_LONG_II= 0 ; +if(!qbevent)break;evnt(26070,762,"wiki_methods.bas");}while(r); +S_58970:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 5 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len(" ====",5)))&(-(*__LONG_HELP_HEADING== 4 ))))||new_error){ +if(qbevent){evnt(26070,763,"wiki_methods.bas");if(r)goto S_58970;} +do{ +*_SUB_WIKIPARSE_LONG_II= 4 ; +if(!qbevent)break;evnt(26070,763,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_HEADING= 0 ; +if(!qbevent)break;evnt(26070,763,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_HL= 0 ; +if(!qbevent)break;evnt(26070,763,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_AH= 2 ; +if(!qbevent)break;evnt(26070,763,"wiki_methods.bas");}while(r); +} +S_58976:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 4 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("====",4)))&(-(*__LONG_HELP_HEADING== 4 ))))||new_error){ +if(qbevent){evnt(26070,764,"wiki_methods.bas");if(r)goto S_58976;} +do{ +*_SUB_WIKIPARSE_LONG_II= 3 ; +if(!qbevent)break;evnt(26070,764,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_HEADING= 0 ; +if(!qbevent)break;evnt(26070,764,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_HL= 0 ; +if(!qbevent)break;evnt(26070,764,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_AH= 2 ; +if(!qbevent)break;evnt(26070,764,"wiki_methods.bas");}while(r); +} +S_58982:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 4 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("====",4)))&(-(*_SUB_WIKIPARSE_LONG_NL== 1 ))))||new_error){ +if(qbevent){evnt(26070,765,"wiki_methods.bas");if(r)goto S_58982;} +do{ +*_SUB_WIKIPARSE_LONG_II= 3 ; +if(!qbevent)break;evnt(26070,765,"wiki_methods.bas");}while(r); +do{ +SUB_HELP_CHECKBLANKLINE(); +if(!qbevent)break;evnt(26070,765,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_HEADING= 4 ; +if(!qbevent)break;evnt(26070,765,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_HL= 1 ; +if(!qbevent)break;evnt(26070,765,"wiki_methods.bas");}while(r); +} +S_58988:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 5 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("==== ",5)))&(-(*_SUB_WIKIPARSE_LONG_NL== 1 ))))||new_error){ +if(qbevent){evnt(26070,766,"wiki_methods.bas");if(r)goto S_58988;} +do{ +*_SUB_WIKIPARSE_LONG_II= 4 ; +if(!qbevent)break;evnt(26070,766,"wiki_methods.bas");}while(r); +do{ +SUB_HELP_CHECKBLANKLINE(); +if(!qbevent)break;evnt(26070,766,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_HEADING= 4 ; +if(!qbevent)break;evnt(26070,766,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_HL= 1 ; +if(!qbevent)break;evnt(26070,766,"wiki_methods.bas");}while(r); +} +S_58994:; +if ((-(*_SUB_WIKIPARSE_LONG_II> 0 ))||new_error){ +if(qbevent){evnt(26070,767,"wiki_methods.bas");if(r)goto S_58994;} +do{ +*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+*_SUB_WIKIPARSE_LONG_II; +if(!qbevent)break;evnt(26070,767,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_COL=FUNC_HELP_COL(); +if(!qbevent)break;evnt(26070,767,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_UNDERLINE= 0 ; +if(!qbevent)break;evnt(26070,767,"wiki_methods.bas");}while(r); +do{ +goto LABEL_CHARDONE; +if(!qbevent)break;evnt(26070,767,"wiki_methods.bas");}while(r); +} +do{ +*_SUB_WIKIPARSE_LONG_II= 0 ; +if(!qbevent)break;evnt(26070,768,"wiki_methods.bas");}while(r); +S_59001:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 4 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len(" ===",4)))&(-(*__LONG_HELP_HEADING== 3 ))))||new_error){ +if(qbevent){evnt(26070,769,"wiki_methods.bas");if(r)goto S_59001;} +do{ +*_SUB_WIKIPARSE_LONG_II= 3 ; +if(!qbevent)break;evnt(26070,769,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_HEADING= 0 ; +if(!qbevent)break;evnt(26070,769,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_HL= 0 ; +if(!qbevent)break;evnt(26070,769,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_AH= 2 ; +if(!qbevent)break;evnt(26070,769,"wiki_methods.bas");}while(r); +} +S_59007:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 3 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("===",3)))&(-(*__LONG_HELP_HEADING== 3 ))))||new_error){ +if(qbevent){evnt(26070,770,"wiki_methods.bas");if(r)goto S_59007;} +do{ +*_SUB_WIKIPARSE_LONG_II= 2 ; +if(!qbevent)break;evnt(26070,770,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_HEADING= 0 ; +if(!qbevent)break;evnt(26070,770,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_HL= 0 ; +if(!qbevent)break;evnt(26070,770,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_AH= 2 ; +if(!qbevent)break;evnt(26070,770,"wiki_methods.bas");}while(r); +} +S_59013:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 3 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("===",3)))&(-(*_SUB_WIKIPARSE_LONG_NL== 1 ))))||new_error){ +if(qbevent){evnt(26070,771,"wiki_methods.bas");if(r)goto S_59013;} +do{ +*_SUB_WIKIPARSE_LONG_II= 2 ; +if(!qbevent)break;evnt(26070,771,"wiki_methods.bas");}while(r); +do{ +SUB_HELP_CHECKBLANKLINE(); +if(!qbevent)break;evnt(26070,771,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_HEADING= 3 ; +if(!qbevent)break;evnt(26070,771,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_HL= 1 ; +if(!qbevent)break;evnt(26070,771,"wiki_methods.bas");}while(r); +} +S_59019:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 4 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("=== ",4)))&(-(*_SUB_WIKIPARSE_LONG_NL== 1 ))))||new_error){ +if(qbevent){evnt(26070,772,"wiki_methods.bas");if(r)goto S_59019;} +do{ +*_SUB_WIKIPARSE_LONG_II= 3 ; +if(!qbevent)break;evnt(26070,772,"wiki_methods.bas");}while(r); +do{ +SUB_HELP_CHECKBLANKLINE(); +if(!qbevent)break;evnt(26070,772,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_HEADING= 3 ; +if(!qbevent)break;evnt(26070,772,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_HL= 1 ; +if(!qbevent)break;evnt(26070,772,"wiki_methods.bas");}while(r); +} +S_59025:; +if ((-(*_SUB_WIKIPARSE_LONG_II> 0 ))||new_error){ +if(qbevent){evnt(26070,773,"wiki_methods.bas");if(r)goto S_59025;} +do{ +*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+*_SUB_WIKIPARSE_LONG_II; +if(!qbevent)break;evnt(26070,773,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_COL=FUNC_HELP_COL(); +if(!qbevent)break;evnt(26070,773,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_UNDERLINE= 1 ; +if(!qbevent)break;evnt(26070,773,"wiki_methods.bas");}while(r); +do{ +goto LABEL_CHARDONE; +if(!qbevent)break;evnt(26070,773,"wiki_methods.bas");}while(r); +} +do{ +*_SUB_WIKIPARSE_LONG_II= 0 ; +if(!qbevent)break;evnt(26070,774,"wiki_methods.bas");}while(r); +S_59032:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 3 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len(" ==",3)))&(-(*__LONG_HELP_HEADING== 2 ))))||new_error){ +if(qbevent){evnt(26070,775,"wiki_methods.bas");if(r)goto S_59032;} +do{ +*_SUB_WIKIPARSE_LONG_II= 2 ; +if(!qbevent)break;evnt(26070,775,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_HEADING= 0 ; +if(!qbevent)break;evnt(26070,775,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_HL= 0 ; +if(!qbevent)break;evnt(26070,775,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_AH= 2 ; +if(!qbevent)break;evnt(26070,775,"wiki_methods.bas");}while(r); +} +S_59038:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 2 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("==",2)))&(-(*__LONG_HELP_HEADING== 2 ))))||new_error){ +if(qbevent){evnt(26070,776,"wiki_methods.bas");if(r)goto S_59038;} +do{ +*_SUB_WIKIPARSE_LONG_II= 1 ; +if(!qbevent)break;evnt(26070,776,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_HEADING= 0 ; +if(!qbevent)break;evnt(26070,776,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_HL= 0 ; +if(!qbevent)break;evnt(26070,776,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_AH= 2 ; +if(!qbevent)break;evnt(26070,776,"wiki_methods.bas");}while(r); +} +S_59044:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 2 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("==",2)))&(-(*_SUB_WIKIPARSE_LONG_NL== 1 ))))||new_error){ +if(qbevent){evnt(26070,777,"wiki_methods.bas");if(r)goto S_59044;} +do{ +*_SUB_WIKIPARSE_LONG_II= 1 ; +if(!qbevent)break;evnt(26070,777,"wiki_methods.bas");}while(r); +do{ +SUB_HELP_CHECKBLANKLINE(); +if(!qbevent)break;evnt(26070,777,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_HEADING= 2 ; +if(!qbevent)break;evnt(26070,777,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_HL= 1 ; +if(!qbevent)break;evnt(26070,777,"wiki_methods.bas");}while(r); +} +S_59050:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 3 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("== ",3)))&(-(*_SUB_WIKIPARSE_LONG_NL== 1 ))))||new_error){ +if(qbevent){evnt(26070,778,"wiki_methods.bas");if(r)goto S_59050;} +do{ +*_SUB_WIKIPARSE_LONG_II= 2 ; +if(!qbevent)break;evnt(26070,778,"wiki_methods.bas");}while(r); +do{ +SUB_HELP_CHECKBLANKLINE(); +if(!qbevent)break;evnt(26070,778,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_HEADING= 2 ; +if(!qbevent)break;evnt(26070,778,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_HL= 1 ; +if(!qbevent)break;evnt(26070,778,"wiki_methods.bas");}while(r); +} +S_59056:; +if ((-(*_SUB_WIKIPARSE_LONG_II> 0 ))||new_error){ +if(qbevent){evnt(26070,779,"wiki_methods.bas");if(r)goto S_59056;} +do{ +*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+*_SUB_WIKIPARSE_LONG_II; +if(!qbevent)break;evnt(26070,779,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_COL=FUNC_HELP_COL(); +if(!qbevent)break;evnt(26070,779,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_UNDERLINE= 2 ; +if(!qbevent)break;evnt(26070,779,"wiki_methods.bas");}while(r); +do{ +goto LABEL_CHARDONE; +if(!qbevent)break;evnt(26070,779,"wiki_methods.bas");}while(r); +} +} +S_59063:; +if ((-(*__LONG_HELP_LOCKPARSE== 0 ))||new_error){ +if(qbevent){evnt(26070,784,"wiki_methods.bas");if(r)goto S_59063;} +S_59064:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 4 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("----",4)))&(-(*_SUB_WIKIPARSE_LONG_NL== 1 ))))||new_error){ +if(qbevent){evnt(26070,786,"wiki_methods.bas");if(r)goto S_59064;} +do{ +*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 3 ; +if(!qbevent)break;evnt(26070,787,"wiki_methods.bas");}while(r); +do{ +SUB_HELP_CHECKBLANKLINE(); +if(!qbevent)break;evnt(26070,788,"wiki_methods.bas");}while(r); +do{ +SUB_HELP_ADDTXT(func_string(*__LONG_HELP_WW, 196 ),&(pass6550= 14 ),&(pass6551= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,789,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_CHKBLANK= 1 ; +if(!qbevent)break;evnt(26070,790,"wiki_methods.bas");}while(r); +do{ +goto LABEL_CHARDONE; +if(!qbevent)break;evnt(26070,791,"wiki_methods.bas");}while(r); +} +S_59071:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 4 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("
",4)))|(qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 6 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("
",6)))))||new_error){ +if(qbevent){evnt(26070,793,"wiki_methods.bas");if(r)goto S_59071;} +S_59072:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 4 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("
",4))))||new_error){ +if(qbevent){evnt(26070,794,"wiki_methods.bas");if(r)goto S_59072;} +do{ +*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 3 ; +if(!qbevent)break;evnt(26070,794,"wiki_methods.bas");}while(r); +} +S_59075:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 6 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("
",6))))||new_error){ +if(qbevent){evnt(26070,795,"wiki_methods.bas");if(r)goto S_59075;} +do{ +*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 5 ; +if(!qbevent)break;evnt(26070,795,"wiki_methods.bas");}while(r); +} +do{ +SUB_HELP_CHECKBLANKLINE(); +if(!qbevent)break;evnt(26070,796,"wiki_methods.bas");}while(r); +do{ +SUB_HELP_ADDTXT(func_string(*__LONG_HELP_WW, 196 ),&(pass6552= 14 ),&(pass6553= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,797,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_CHKBLANK= 1 ; +if(!qbevent)break;evnt(26070,798,"wiki_methods.bas");}while(r); +do{ +goto LABEL_CHARDONE; +if(!qbevent)break;evnt(26070,799,"wiki_methods.bas");}while(r); +} +} +S_59084:; +if ((-(*__LONG_HELP_LOCKPARSE== 0 ))||new_error){ +if(qbevent){evnt(26070,805,"wiki_methods.bas");if(r)goto S_59084;} +S_59085:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_WIKIPARSE_STRING_C,qbs_new_txt_len(";",1)))&(-(*_SUB_WIKIPARSE_LONG_NL== 1 ))))||new_error){ +if(qbevent){evnt(26070,807,"wiki_methods.bas");if(r)goto S_59085;} +S_59086:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 2 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("; ",2))))||new_error){ +if(qbevent){evnt(26070,808,"wiki_methods.bas");if(r)goto S_59086;} +do{ +*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,808,"wiki_methods.bas");}while(r); +} +S_59089:; +if (((-(*_SUB_WIKIPARSE_LONG_AH== 0 ))&(-(*_SUB_WIKIPARSE_LONG_DL== 0 )))||new_error){ +if(qbevent){evnt(26070,809,"wiki_methods.bas");if(r)goto S_59089;} +do{ +SUB_HELP_CHECKBLANKLINE(); +if(!qbevent)break;evnt(26070,809,"wiki_methods.bas");}while(r); +} +do{ +*__LONG_HELP_BOLD= 1 ; +if(!qbevent)break;evnt(26070,810,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_COL=FUNC_HELP_COL(); +if(!qbevent)break;evnt(26070,810,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_DLIST= 1 ; +if(!qbevent)break;evnt(26070,810,"wiki_methods.bas");}while(r); +S_59095:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 3 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len(";* ",3)))|(qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 3 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len(";# ",3)))))||new_error){ +if(qbevent){evnt(26070,811,"wiki_methods.bas");if(r)goto S_59095;} +do{ +*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 2 ; +if(!qbevent)break;evnt(26070,811,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_DLIST= 3 ; +if(!qbevent)break;evnt(26070,811,"wiki_methods.bas");}while(r); +} +S_59099:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 2 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len(";*",2)))|(qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 2 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len(";#",2)))))||new_error){ +if(qbevent){evnt(26070,812,"wiki_methods.bas");if(r)goto S_59099;} +do{ +*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,812,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_DLIST= 2 ; +if(!qbevent)break;evnt(26070,812,"wiki_methods.bas");}while(r); +} +S_59103:; +if ((-(*_SUB_WIKIPARSE_LONG_DL< 3 ))||new_error){ +if(qbevent){evnt(26070,813,"wiki_methods.bas");if(r)goto S_59103;} +do{ +SUB_HELP_ADDTXT(qbs_new_txt_len("\336 ",2),&(pass6554= 11 ),&(pass6555= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,814,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_DL= 1 ; +if(!qbevent)break;evnt(26070,814,"wiki_methods.bas");}while(r); +do{ +qbs_set(__STRING_HELP_LINDENT,qbs_add(__STRING_HELP_LINDENT,qbs_new_txt_len("\336 ",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,815,"wiki_methods.bas");}while(r); +} +do{ +goto LABEL_CHARDONE; +if(!qbevent)break;evnt(26070,817,"wiki_methods.bas");}while(r); +} +S_59110:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_WIKIPARSE_STRING_C,qbs_new_txt_len(":",1)))&(-(*__LONG_HELP_DLIST> 0 ))))||new_error){ +if(qbevent){evnt(26070,819,"wiki_methods.bas");if(r)goto S_59110;} +S_59111:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 2 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len(": ",2))))||new_error){ +if(qbevent){evnt(26070,820,"wiki_methods.bas");if(r)goto S_59111;} +do{ +*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,820,"wiki_methods.bas");}while(r); +} +do{ +*__LONG_HELP_BOLD= 0 ; +if(!qbevent)break;evnt(26070,821,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_COL=FUNC_HELP_COL(); +if(!qbevent)break;evnt(26070,821,"wiki_methods.bas");}while(r); +do{ +SUB_HELP_NEWLINE(); +if(!qbevent)break;evnt(26070,821,"wiki_methods.bas");}while(r); +do{ +SUB_HELP_ADDTXT(qbs_new_txt_len(" ",1),&(pass6556= 11 ),&(pass6557= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,822,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_DL= 3 ; +if(!qbevent)break;evnt(26070,822,"wiki_methods.bas");}while(r); +do{ +qbs_set(__STRING_HELP_LINDENT,qbs_add(__STRING_HELP_LINDENT,qbs_new_txt_len(" ",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,823,"wiki_methods.bas");}while(r); +S_59120:; +if ((-(*__LONG_HELP_DLIST> 1 ))||new_error){ +if(qbevent){evnt(26070,824,"wiki_methods.bas");if(r)goto S_59120;} +do{ +SUB_HELP_ADDTXT(qbs_add(func_chr( 4 ),qbs_new_txt_len(" ",1)),&(pass6558= 14 ),&(pass6559= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,825,"wiki_methods.bas");}while(r); +do{ +qbs_set(__STRING_HELP_LINDENT,qbs_add(__STRING_HELP_LINDENT,qbs_new_txt_len(" ",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,826,"wiki_methods.bas");}while(r); +} +do{ +*__LONG_HELP_DLIST= 0 ; +if(!qbevent)break;evnt(26070,828,"wiki_methods.bas");}while(r); +do{ +goto LABEL_CHARDONE; +if(!qbevent)break;evnt(26070,829,"wiki_methods.bas");}while(r); +} +S_59127:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_WIKIPARSE_STRING_C,qbs_new_txt_len(":",1)))&(-(*_SUB_WIKIPARSE_LONG_NL== 1 ))))||new_error){ +if(qbevent){evnt(26070,831,"wiki_methods.bas");if(r)goto S_59127;} +S_59128:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 2 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len(": ",2))))||new_error){ +if(qbevent){evnt(26070,832,"wiki_methods.bas");if(r)goto S_59128;} +do{ +*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,832,"wiki_methods.bas");}while(r); +} +S_59131:; +if (((-(*_SUB_WIKIPARSE_LONG_AH== 0 ))&(-(*_SUB_WIKIPARSE_LONG_DL== 0 )))||new_error){ +if(qbevent){evnt(26070,833,"wiki_methods.bas");if(r)goto S_59131;} +do{ +SUB_HELP_CHECKBLANKLINE(); +if(!qbevent)break;evnt(26070,833,"wiki_methods.bas");}while(r); +} +S_59134:; +if ((-(*_SUB_WIKIPARSE_LONG_DL< 3 ))||new_error){ +if(qbevent){evnt(26070,834,"wiki_methods.bas");if(r)goto S_59134;} +do{ +SUB_HELP_ADDTXT(qbs_new_txt_len("\336 ",2),&(pass6560= 11 ),&(pass6561= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,835,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_DL= 2 ; +if(!qbevent)break;evnt(26070,835,"wiki_methods.bas");}while(r); +do{ +qbs_set(__STRING_HELP_LINDENT,qbs_add(__STRING_HELP_LINDENT,qbs_new_txt_len("\336 ",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,836,"wiki_methods.bas");}while(r); +} +S_59139:; +if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 2 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])), 2 )!= 58 ))&(-(qbs_asc(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 2 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])), 2 )!= 59 ))))||new_error){ +if(qbevent){evnt(26070,838,"wiki_methods.bas");if(r)goto S_59139;} +do{ +SUB_HELP_ADDTXT(qbs_new_txt_len(" ",1),&(pass6562= 11 ),&(pass6563= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,839,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_DL= 3 ; +if(!qbevent)break;evnt(26070,839,"wiki_methods.bas");}while(r); +do{ +qbs_set(__STRING_HELP_LINDENT,qbs_add(__STRING_HELP_LINDENT,qbs_new_txt_len(" ",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,840,"wiki_methods.bas");}while(r); +} +do{ +goto LABEL_CHARDONEKNL; +if(!qbevent)break;evnt(26070,842,"wiki_methods.bas");}while(r); +} +} +S_59147:; +if ((-(*__LONG_HELP_LOCKPARSE== 0 ))||new_error){ +if(qbevent){evnt(26070,848,"wiki_methods.bas");if(r)goto S_59147;} +S_59148:; +if ((-(*_SUB_WIKIPARSE_LONG_NL== 1 ))||new_error){ +if(qbevent){evnt(26070,850,"wiki_methods.bas");if(r)goto S_59148;} +S_59149:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 2 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("**",2)))|(qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 2 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("##",2)))))||new_error){ +if(qbevent){evnt(26070,851,"wiki_methods.bas");if(r)goto S_59149;} +S_59150:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 3 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("** ",3)))|(qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 3 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("## ",3)))))||new_error){ +if(qbevent){evnt(26070,852,"wiki_methods.bas");if(r)goto S_59150;} +do{ +*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 2 ; +if(!qbevent)break;evnt(26070,852,"wiki_methods.bas");}while(r); +}else{ +do{ +*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,852,"wiki_methods.bas");}while(r); +} +do{ +SUB_HELP_ADDTXT(qbs_add(qbs_add(qbs_new_txt_len(" ",3),func_chr( 4 )),qbs_new_txt_len(" ",1)),&(pass6564= 14 ),&(pass6565= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,853,"wiki_methods.bas");}while(r); +do{ +qbs_set(__STRING_HELP_LINDENT,qbs_add(__STRING_HELP_LINDENT,qbs_new_txt_len(" ",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,854,"wiki_methods.bas");}while(r); +do{ +goto LABEL_CHARDONE; +if(!qbevent)break;evnt(26070,855,"wiki_methods.bas");}while(r); +} +S_59159:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_WIKIPARSE_STRING_C,qbs_new_txt_len("*",1)))|(qbs_equal(_SUB_WIKIPARSE_STRING_C,qbs_new_txt_len("#",1)))))||new_error){ +if(qbevent){evnt(26070,857,"wiki_methods.bas");if(r)goto S_59159;} +S_59160:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 2 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("* ",2)))|(qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 2 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("# ",2)))))||new_error){ +if(qbevent){evnt(26070,858,"wiki_methods.bas");if(r)goto S_59160;} +do{ +*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,858,"wiki_methods.bas");}while(r); +} +do{ +SUB_HELP_ADDTXT(qbs_add(func_chr( 4 ),qbs_new_txt_len(" ",1)),&(pass6566= 14 ),&(pass6567= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,859,"wiki_methods.bas");}while(r); +do{ +qbs_set(__STRING_HELP_LINDENT,qbs_add(__STRING_HELP_LINDENT,qbs_new_txt_len(" ",2))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,860,"wiki_methods.bas");}while(r); +do{ +goto LABEL_CHARDONE; +if(!qbevent)break;evnt(26070,861,"wiki_methods.bas");}while(r); +} +} +} +LABEL_CHKENTUTF:; +if(qbevent){evnt(26070,868,"wiki_methods.bas");r=0;} +do{ +*_SUB_WIKIPARSE_LONG_OCOL=*_SUB_WIKIPARSE_LONG_COL; +if(!qbevent)break;evnt(26070,869,"wiki_methods.bas");}while(r); +S_59170:; +if ((-(*__LONG_HELP_LOCKPARSE<= 0 ))||new_error){ +if(qbevent){evnt(26070,870,"wiki_methods.bas");if(r)goto S_59170;} +S_59171:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_WIKIPARSE_STRING_C,qbs_new_txt_len("&",1))))||new_error){ +if(qbevent){evnt(26070,871,"wiki_methods.bas");if(r)goto S_59171;} +S_59172:; +fornext_value6569= 0 ; +fornext_finalvalue6569=*__LONG_WPENTREPLCNT; +fornext_step6569= 1 ; +if (fornext_step6569<0) fornext_step_negative6569=1; else fornext_step_negative6569=0; +if (new_error) goto fornext_error6569; +goto fornext_entrylabel6569; +while(1){ +fornext_value6569=fornext_step6569+(*_SUB_WIKIPARSE_LONG_II); +fornext_entrylabel6569: +*_SUB_WIKIPARSE_LONG_II=fornext_value6569; +if (fornext_step_negative6569){ +if (fornext_value6569fornext_finalvalue6569) break; +} +fornext_error6569:; +if(qbevent){evnt(26070,872,"wiki_methods.bas");if(r)goto S_59172;} +do{ +qbs_set(_SUB_WIKIPARSE_STRING_ENT,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPENTREPL[0])+((array_check((*_SUB_WIKIPARSE_LONG_II)-__ARRAY_UDT_WPENTREPL[4],__ARRAY_UDT_WPENTREPL[5]))*16)),8,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,873,"wiki_methods.bas");}while(r); +S_59174:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check((_SUB_WIKIPARSE_STRING_ENT->len)-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),_SUB_WIKIPARSE_STRING_ENT)))||new_error){ +if(qbevent){evnt(26070,874,"wiki_methods.bas");if(r)goto S_59174;} +do{ +qbs_set(_SUB_WIKIPARSE_STRING_C,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPENTREPL[0])+((array_check((*_SUB_WIKIPARSE_LONG_II)-__ARRAY_UDT_WPENTREPL[4],__ARRAY_UDT_WPENTREPL[5]))*16+8)),8,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,875,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+_SUB_WIKIPARSE_STRING_ENT->len- 1 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,876,"wiki_methods.bas");}while(r); +do{ +goto LABEL_CHARACCUM; +if(!qbevent)break;evnt(26070,876,"wiki_methods.bas");}while(r); +} +fornext_continue_6568:; +} +fornext_exit_6568:; +S_59180:; +if ((-(*__LONG_HELP_LOCKPARSE== 0 ))||new_error){ +if(qbevent){evnt(26070,879,"wiki_methods.bas");if(r)goto S_59180;} +do{ +*_SUB_WIKIPARSE_LONG_II=func_instr(NULL,((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 8 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len(";",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,880,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_III=func_instr(NULL,((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 8 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len(" ",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,880,"wiki_methods.bas");}while(r); +S_59183:; +if (((-(*_SUB_WIKIPARSE_LONG_II> 2 ))&(((-(*_SUB_WIKIPARSE_LONG_III== 0 ))|(-(*_SUB_WIKIPARSE_LONG_III>*_SUB_WIKIPARSE_LONG_II)))))||new_error){ +if(qbevent){evnt(26070,881,"wiki_methods.bas");if(r)goto S_59183;} +do{ +qbs_set(_SUB_WIKIPARSE_STRING_C,((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check((*_SUB_WIKIPARSE_LONG_II)-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])]))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,882,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_COL= 8 ; +if(!qbevent)break;evnt(26070,882,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_UE= -1 ; +if(!qbevent)break;evnt(26070,882,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+*_SUB_WIKIPARSE_LONG_II- 1 ; +if(!qbevent)break;evnt(26070,883,"wiki_methods.bas");}while(r); +do{ +goto LABEL_CHARACCUM; +if(!qbevent)break;evnt(26070,883,"wiki_methods.bas");}while(r); +} +} +} +} +S_59193:; +if ((qbs_cleanup(qbs_tmp_base,(-((*_SUB_WIKIPARSE_LONG_C& 224 )== 192 ))&(-((qbs_asc(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 2 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])), 2 )& 192 )== 128 ))))||new_error){ +if(qbevent){evnt(26070,890,"wiki_methods.bas");if(r)goto S_59193;} +do{ +*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,891,"wiki_methods.bas");}while(r); +S_59195:; +fornext_value6573= 0 ; +fornext_finalvalue6573=*__LONG_WPUTFREPLCNT; +fornext_step6573= 1 ; +if (fornext_step6573<0) fornext_step_negative6573=1; else fornext_step_negative6573=0; +if (new_error) goto fornext_error6573; +goto fornext_entrylabel6573; +while(1){ +fornext_value6573=fornext_step6573+(*_SUB_WIKIPARSE_LONG_II); +fornext_entrylabel6573: +*_SUB_WIKIPARSE_LONG_II=fornext_value6573; +if (fornext_step_negative6573){ +if (fornext_value6573fornext_finalvalue6573) break; +} +fornext_error6573:; +if(qbevent){evnt(26070,892,"wiki_methods.bas");if(r)goto S_59195;} +S_59196:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*_SUB_WIKIPARSE_LONG_II)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12)),4,1),(qbs_add(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 2 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),i2string( 8224 ))))))||new_error){ +if(qbevent){evnt(26070,893,"wiki_methods.bas");if(r)goto S_59196;} +do{ +qbs_set(_SUB_WIKIPARSE_STRING_C,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*_SUB_WIKIPARSE_LONG_II)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4)),8,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,894,"wiki_methods.bas");}while(r); +do{ +goto LABEL_CHARACCUM; +if(!qbevent)break;evnt(26070,894,"wiki_methods.bas");}while(r); +} +fornext_continue_6572:; +} +fornext_exit_6572:; +do{ +qbs_set(_SUB_WIKIPARSE_STRING_C,func_chr( 168 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,897,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_COL= 8 ; +if(!qbevent)break;evnt(26070,897,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_UU= -1 ; +if(!qbevent)break;evnt(26070,897,"wiki_methods.bas");}while(r); +do{ +goto LABEL_CHARACCUM; +if(!qbevent)break;evnt(26070,897,"wiki_methods.bas");}while(r); +} +S_59206:; +if ((qbs_cleanup(qbs_tmp_base,(-((*_SUB_WIKIPARSE_LONG_C& 240 )== 224 ))&(-((qbs_asc(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 2 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])), 2 )& 192 )== 128 ))&(-((qbs_asc(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 3 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])), 3 )& 192 )== 128 ))))||new_error){ +if(qbevent){evnt(26070,899,"wiki_methods.bas");if(r)goto S_59206;} +do{ +*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 2 ; +if(!qbevent)break;evnt(26070,900,"wiki_methods.bas");}while(r); +S_59208:; +fornext_value6575= 0 ; +fornext_finalvalue6575=*__LONG_WPUTFREPLCNT; +fornext_step6575= 1 ; +if (fornext_step6575<0) fornext_step_negative6575=1; else fornext_step_negative6575=0; +if (new_error) goto fornext_error6575; +goto fornext_entrylabel6575; +while(1){ +fornext_value6575=fornext_step6575+(*_SUB_WIKIPARSE_LONG_II); +fornext_entrylabel6575: +*_SUB_WIKIPARSE_LONG_II=fornext_value6575; +if (fornext_step_negative6575){ +if (fornext_value6575fornext_finalvalue6575) break; +} +fornext_error6575:; +if(qbevent){evnt(26070,901,"wiki_methods.bas");if(r)goto S_59208;} +S_59209:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*_SUB_WIKIPARSE_LONG_II)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12)),4,1),(qbs_add(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 3 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),func_chr( 0 ))))))||new_error){ +if(qbevent){evnt(26070,902,"wiki_methods.bas");if(r)goto S_59209;} +do{ +qbs_set(_SUB_WIKIPARSE_STRING_C,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*_SUB_WIKIPARSE_LONG_II)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4)),8,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,903,"wiki_methods.bas");}while(r); +do{ +goto LABEL_CHARACCUM; +if(!qbevent)break;evnt(26070,903,"wiki_methods.bas");}while(r); +} +fornext_continue_6574:; +} +fornext_exit_6574:; +do{ +qbs_set(_SUB_WIKIPARSE_STRING_C,func_chr( 168 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,906,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_COL= 8 ; +if(!qbevent)break;evnt(26070,906,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_UU= -1 ; +if(!qbevent)break;evnt(26070,906,"wiki_methods.bas");}while(r); +do{ +goto LABEL_CHARACCUM; +if(!qbevent)break;evnt(26070,906,"wiki_methods.bas");}while(r); +} +S_59219:; +if ((qbs_cleanup(qbs_tmp_base,(-((*_SUB_WIKIPARSE_LONG_C& 248 )== 240 ))&(-((qbs_asc(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 2 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])), 2 )& 192 )== 128 ))&(-((qbs_asc(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 3 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])), 3 )& 192 )== 128 ))&(-((qbs_asc(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 4 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])), 4 )& 192 )== 128 ))))||new_error){ +if(qbevent){evnt(26070,908,"wiki_methods.bas");if(r)goto S_59219;} +do{ +*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 3 ; +if(!qbevent)break;evnt(26070,909,"wiki_methods.bas");}while(r); +S_59221:; +fornext_value6577= 0 ; +fornext_finalvalue6577=*__LONG_WPUTFREPLCNT; +fornext_step6577= 1 ; +if (fornext_step6577<0) fornext_step_negative6577=1; else fornext_step_negative6577=0; +if (new_error) goto fornext_error6577; +goto fornext_entrylabel6577; +while(1){ +fornext_value6577=fornext_step6577+(*_SUB_WIKIPARSE_LONG_II); +fornext_entrylabel6577: +*_SUB_WIKIPARSE_LONG_II=fornext_value6577; +if (fornext_step_negative6577){ +if (fornext_value6577fornext_finalvalue6577) break; +} +fornext_error6577:; +if(qbevent){evnt(26070,910,"wiki_methods.bas");if(r)goto S_59221;} +S_59222:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*_SUB_WIKIPARSE_LONG_II)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12)),4,1),((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 4 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])))))||new_error){ +if(qbevent){evnt(26070,911,"wiki_methods.bas");if(r)goto S_59222;} +do{ +qbs_set(_SUB_WIKIPARSE_STRING_C,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*_SUB_WIKIPARSE_LONG_II)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4)),8,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,912,"wiki_methods.bas");}while(r); +do{ +goto LABEL_CHARACCUM; +if(!qbevent)break;evnt(26070,912,"wiki_methods.bas");}while(r); +} +fornext_continue_6576:; +} +fornext_exit_6576:; +do{ +qbs_set(_SUB_WIKIPARSE_STRING_C,func_chr( 168 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,915,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_COL= 8 ; +if(!qbevent)break;evnt(26070,915,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_UU= -1 ; +if(!qbevent)break;evnt(26070,915,"wiki_methods.bas");}while(r); +do{ +goto LABEL_CHARACCUM; +if(!qbevent)break;evnt(26070,915,"wiki_methods.bas");}while(r); +} +S_59232:; +if ((qbs_cleanup(qbs_tmp_base,(-(*_SUB_WIKIPARSE_LONG_C== 10 ))|(qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 4 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("
",4)))|(qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 6 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("
",6)))))||new_error){ +if(qbevent){evnt(26070,919,"wiki_methods.bas");if(r)goto S_59232;} +S_59233:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 4 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("
",4))))||new_error){ +if(qbevent){evnt(26070,920,"wiki_methods.bas");if(r)goto S_59233;} +do{ +*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 3 ; +if(!qbevent)break;evnt(26070,920,"wiki_methods.bas");}while(r); +S_59235:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 5 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])), 5 )== 10 )))||new_error){ +if(qbevent){evnt(26070,920,"wiki_methods.bas");if(r)goto S_59235;} +do{ +*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,920,"wiki_methods.bas");}while(r); +} +} +S_59239:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 6 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])),qbs_new_txt_len("
",6))))||new_error){ +if(qbevent){evnt(26070,921,"wiki_methods.bas");if(r)goto S_59239;} +do{ +*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 5 ; +if(!qbevent)break;evnt(26070,921,"wiki_methods.bas");}while(r); +S_59241:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 7 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])), 7 )== 10 )))||new_error){ +if(qbevent){evnt(26070,921,"wiki_methods.bas");if(r)goto S_59241;} +do{ +*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,921,"wiki_methods.bas");}while(r); +} +} +S_59245:; +if ((-(*_SUB_WIKIPARSE_LONG_C== 10 ))||new_error){ +if(qbevent){evnt(26070,922,"wiki_methods.bas");if(r)goto S_59245;} +S_59246:; +if ((-(*_SUB_WIKIPARSE_LONG_DL> 1 ))||new_error){ +if(qbevent){evnt(26070,923,"wiki_methods.bas");if(r)goto S_59246;} +do{ +*_SUB_WIKIPARSE_LONG_DL=*_SUB_WIKIPARSE_LONG_DL- 1 ; +if(!qbevent)break;evnt(26070,923,"wiki_methods.bas");}while(r); +} +S_59249:; +if ((-(*__LONG_HELP_LOCKPARSE== 0 ))||new_error){ +if(qbevent){evnt(26070,924,"wiki_methods.bas");if(r)goto S_59249;} +do{ +qbs_set(__STRING_HELP_LINDENT,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,924,"wiki_methods.bas");}while(r); +} +} +S_59253:; +if ((-(*__LONG_HELP_LOCKPARSE> -2 ))||new_error){ +if(qbevent){evnt(26070,927,"wiki_methods.bas");if(r)goto S_59253;} +S_59254:; +if ((-(*__LONG_HELP_TXT_LEN>= 8 ))||new_error){ +if(qbevent){evnt(26070,928,"wiki_methods.bas");if(r)goto S_59254;} +S_59255:; +if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(__STRING_HELP_TXT,*__LONG_HELP_TXT_LEN- 2 )> 127 ))&(-(qbs_asc(__STRING_HELP_TXT,*__LONG_HELP_TXT_LEN- 6 )> 127 ))))||new_error){ +if(qbevent){evnt(26070,929,"wiki_methods.bas");if(r)goto S_59255;} +S_59256:; +if ((-(*__LONG_HELP_CENTER> 0 ))||new_error){ +if(qbevent){evnt(26070,930,"wiki_methods.bas");if(r)goto S_59256;} +do{ +qbs_set(__STRING_HELP_CINDENT,func_mid(__STRING_HELP_CINDENT, 2 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,930,"wiki_methods.bas");}while(r); +} +do{ +goto LABEL_SKIPMULTIBLANKS; +if(!qbevent)break;evnt(26070,931,"wiki_methods.bas");}while(r); +} +} +} +do{ +SUB_HELP_NEWLINE(); +if(!qbevent)break;evnt(26070,935,"wiki_methods.bas");}while(r); +LABEL_SKIPMULTIBLANKS:; +if(qbevent){evnt(26070,937,"wiki_methods.bas");r=0;} +S_59264:; +if ((-(*__LONG_HELP_LOCKPARSE!= 0 ))||new_error){ +if(qbevent){evnt(26070,938,"wiki_methods.bas");if(r)goto S_59264;} +do{ +*__LONG_HELP_BOLD= 0 ; +if(!qbevent)break;evnt(26070,939,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_ITALIC= 0 ; +if(!qbevent)break;evnt(26070,939,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_COL=FUNC_HELP_COL(); +if(!qbevent)break;evnt(26070,939,"wiki_methods.bas");}while(r); +}else{ +S_59269:; +if ((-(*_SUB_WIKIPARSE_LONG_C== 10 ))||new_error){ +if(qbevent){evnt(26070,941,"wiki_methods.bas");if(r)goto S_59269;} +do{ +*__LONG_HELP_DLIST= 0 ; +if(!qbevent)break;evnt(26070,942,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_BOLD= 0 ; +if(!qbevent)break;evnt(26070,942,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_COL=FUNC_HELP_COL(); +if(!qbevent)break;evnt(26070,942,"wiki_methods.bas");}while(r); +S_59273:; +if ((-(*_SUB_WIKIPARSE_LONG_AH> 0 ))||new_error){ +if(qbevent){evnt(26070,943,"wiki_methods.bas");if(r)goto S_59273;} +do{ +*_SUB_WIKIPARSE_LONG_AH=*_SUB_WIKIPARSE_LONG_AH- 1 ; +if(!qbevent)break;evnt(26070,943,"wiki_methods.bas");}while(r); +} +S_59276:; +if ((-(*_SUB_WIKIPARSE_LONG_DL> 0 ))||new_error){ +if(qbevent){evnt(26070,944,"wiki_methods.bas");if(r)goto S_59276;} +S_59277:; +if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 2 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])), 2 )!= 59 ))&(-(qbs_asc(((qbs*)(((uint64*)(_SUB_WIKIPARSE_ARRAY_STRING_C[0]))[array_check(( 2 )-_SUB_WIKIPARSE_ARRAY_STRING_C[4],_SUB_WIKIPARSE_ARRAY_STRING_C[5])])), 2 )!= 58 ))))||new_error){ +if(qbevent){evnt(26070,945,"wiki_methods.bas");if(r)goto S_59277;} +do{ +*_SUB_WIKIPARSE_LONG_DL= 0 ; +if(!qbevent)break;evnt(26070,946,"wiki_methods.bas");}while(r); +do{ +*__LONG_HELP_CHKBLANK= 1 ; +if(!qbevent)break;evnt(26070,947,"wiki_methods.bas");}while(r); +} +} +} +} +do{ +*_SUB_WIKIPARSE_LONG_NL= 1 ; +if(!qbevent)break;evnt(26070,952,"wiki_methods.bas");}while(r); +do{ +goto LABEL_CHARDONEKNL; +if(!qbevent)break;evnt(26070,953,"wiki_methods.bas");}while(r); +} +LABEL_CHARACCUM:; +if(qbevent){evnt(26070,956,"wiki_methods.bas");r=0;} +S_59287:; +if ((-(*_SUB_WIKIPARSE_LONG_ELINK== 1 ))||new_error){ +if(qbevent){evnt(26070,957,"wiki_methods.bas");if(r)goto S_59287;} +do{ +qbs_set(_SUB_WIKIPARSE_STRING_ELINK,qbs_add(_SUB_WIKIPARSE_STRING_ELINK,_SUB_WIKIPARSE_STRING_C)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,958,"wiki_methods.bas");}while(r); +S_59289:; +fornext_value6579= 1 ; +fornext_finalvalue6579=_SUB_WIKIPARSE_STRING_C->len; +fornext_step6579= 1 ; +if (fornext_step6579<0) fornext_step_negative6579=1; else fornext_step_negative6579=0; +if (new_error) goto fornext_error6579; +goto fornext_entrylabel6579; +while(1){ +fornext_value6579=fornext_step6579+(*_SUB_WIKIPARSE_LONG_J); +fornext_entrylabel6579: +*_SUB_WIKIPARSE_LONG_J=fornext_value6579; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative6579){ +if (fornext_value6579fornext_finalvalue6579) break; +} +fornext_error6579:; +if(qbevent){evnt(26070,959,"wiki_methods.bas");if(r)goto S_59289;} +do{ +qbs_set(_SUB_WIKIPARSE_STRING_ELCOL,qbs_add(_SUB_WIKIPARSE_STRING_ELCOL,func_chr(*_SUB_WIKIPARSE_LONG_COL))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,959,"wiki_methods.bas");}while(r); +fornext_continue_6578:; +} +fornext_exit_6578:; +S_59292:; +}else{ +if (-(*_SUB_WIKIPARSE_LONG_LINK== 1 )){ +if(qbevent){evnt(26070,960,"wiki_methods.bas");if(r)goto S_59292;} +do{ +qbs_set(_SUB_WIKIPARSE_STRING_LINK,qbs_add(_SUB_WIKIPARSE_STRING_LINK,_SUB_WIKIPARSE_STRING_C)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,961,"wiki_methods.bas");}while(r); +S_59294:; +fornext_value6582= 1 ; +fornext_finalvalue6582=_SUB_WIKIPARSE_STRING_C->len; +fornext_step6582= 1 ; +if (fornext_step6582<0) fornext_step_negative6582=1; else fornext_step_negative6582=0; +if (new_error) goto fornext_error6582; +goto fornext_entrylabel6582; +while(1){ +fornext_value6582=fornext_step6582+(*_SUB_WIKIPARSE_LONG_J); +fornext_entrylabel6582: +*_SUB_WIKIPARSE_LONG_J=fornext_value6582; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative6582){ +if (fornext_value6582fornext_finalvalue6582) break; +} +fornext_error6582:; +if(qbevent){evnt(26070,962,"wiki_methods.bas");if(r)goto S_59294;} +do{ +qbs_set(_SUB_WIKIPARSE_STRING_LCOL,qbs_add(_SUB_WIKIPARSE_STRING_LCOL,func_chr(*_SUB_WIKIPARSE_LONG_COL))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,962,"wiki_methods.bas");}while(r); +fornext_continue_6581:; +} +fornext_exit_6581:; +}else{ +do{ +SUB_HELP_ADDTXT(_SUB_WIKIPARSE_STRING_C,_SUB_WIKIPARSE_LONG_COL,_SUB_WIKIPARSE_LONG_HL); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,964,"wiki_methods.bas");}while(r); +} +} +do{ +*_SUB_WIKIPARSE_LONG_COL=*_SUB_WIKIPARSE_LONG_OCOL; +if(!qbevent)break;evnt(26070,966,"wiki_methods.bas");}while(r); +LABEL_CHARDONE:; +if(qbevent){evnt(26070,967,"wiki_methods.bas");r=0;} +do{ +*_SUB_WIKIPARSE_LONG_NL= 0 ; +if(!qbevent)break;evnt(26070,968,"wiki_methods.bas");}while(r); +LABEL_CHARDONEKNL:; +if(qbevent){evnt(26070,969,"wiki_methods.bas");r=0;} +do{ +*_SUB_WIKIPARSE_LONG_I=*_SUB_WIKIPARSE_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,970,"wiki_methods.bas");}while(r); +dl_continue_6428:; +} +dl_exit_6428:; +S_59304:; +if ((*_SUB_WIKIPARSE_LONG_UE|*_SUB_WIKIPARSE_LONG_UU)||new_error){ +if(qbevent){evnt(26070,975,"wiki_methods.bas");if(r)goto S_59304;} +do{ +*__LONG_HELP_LINKN=*__LONG_HELP_LINKN+ 1 ; +if(!qbevent)break;evnt(26070,976,"wiki_methods.bas");}while(r); +do{ +qbs_set(__STRING_HELP_LINK,qbs_add(qbs_add(__STRING_HELP_LINK,qbs_new_txt_len("EXTL:https://qb64phoenix.com/forum/forumdisplay.php?fid=25",58)),__STRING_HELP_LINK_SEP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,977,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_STP=string2l(qbs_right(__STRING_HELP_LINE, 4 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,978,"wiki_methods.bas");}while(r); +do{ +SUB_HELP_ADDTXT(func_string(*__LONG_HELP_WW, 196 ),&(pass6584= 14 ),&(pass6585= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,979,"wiki_methods.bas");}while(r); +do{ +SUB_HELP_NEWLINE(); +if(!qbevent)break;evnt(26070,979,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_ITP=string2l(func_mid(__STRING_HELP_LINE, 13 , 4 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,980,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_DTL=string2l(qbs_right(__STRING_HELP_LINE, 4 ))-*_SUB_WIKIPARSE_LONG_STP; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,980,"wiki_methods.bas");}while(r); +do{ +qbs_set(_SUB_WIKIPARSE_STRING_TXT,qbs_add(func_mid(__STRING_HELP_TXT,*_SUB_WIKIPARSE_LONG_STP,*_SUB_WIKIPARSE_LONG_DTL,0|1),func_mid(__STRING_HELP_TXT,*_SUB_WIKIPARSE_LONG_ITP,*_SUB_WIKIPARSE_LONG_STP-*_SUB_WIKIPARSE_LONG_ITP,0|1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,981,"wiki_methods.bas");}while(r); +do{ +sub_mid(__STRING_HELP_TXT,*_SUB_WIKIPARSE_LONG_ITP,_SUB_WIKIPARSE_STRING_TXT->len,_SUB_WIKIPARSE_STRING_TXT,1); +if(!qbevent)break;evnt(26070,981,"wiki_methods.bas");}while(r); +do{ +qbs_set(__STRING_HELP_LINE,qbs_add(qbs_add(qbs_left(__STRING_HELP_LINE, 12 ),l2string(*_SUB_WIKIPARSE_LONG_ITP)),func_mid(__STRING_HELP_LINE, 13 ,__STRING_HELP_LINE->len- 16 ,0|1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,982,"wiki_methods.bas");}while(r); +S_59315:; +fornext_value6589= 17 ; +fornext_finalvalue6589=__STRING_HELP_LINE->len; +fornext_step6589= 4 ; +if (fornext_step6589<0) fornext_step_negative6589=1; else fornext_step_negative6589=0; +if (new_error) goto fornext_error6589; +goto fornext_entrylabel6589; +while(1){ +fornext_value6589=fornext_step6589+(*_SUB_WIKIPARSE_LONG_I); +fornext_entrylabel6589: +*_SUB_WIKIPARSE_LONG_I=fornext_value6589; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative6589){ +if (fornext_value6589fornext_finalvalue6589) break; +} +fornext_error6589:; +if(qbevent){evnt(26070,983,"wiki_methods.bas");if(r)goto S_59315;} +do{ +sub_mid(__STRING_HELP_LINE,*_SUB_WIKIPARSE_LONG_I, 4 ,l2string(string2l(func_mid(__STRING_HELP_LINE,*_SUB_WIKIPARSE_LONG_I, 4 ,0|1))+*_SUB_WIKIPARSE_LONG_DTL),1); +if(!qbevent)break;evnt(26070,983,"wiki_methods.bas");}while(r); +fornext_continue_6588:; +} +fornext_exit_6588:; +S_59318:; +if ((*_SUB_WIKIPARSE_LONG_UU)||new_error){ +if(qbevent){evnt(26070,984,"wiki_methods.bas");if(r)goto S_59318;} +do{ +*_SUB_WIKIPARSE_LONG_STP=string2l(qbs_right(__STRING_HELP_LINE, 4 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,985,"wiki_methods.bas");}while(r); +do{ +SUB_HELP_ADDTXT(qbs_new_txt_len("!>",2),&(pass6591= 4 ),&(pass6592= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,986,"wiki_methods.bas");}while(r); +do{ +SUB_HELP_ADDTXT(qbs_new_txt_len(" Page uses ",11),__LONG_HELP_COL_NORMAL,&(pass6593= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,987,"wiki_methods.bas");}while(r); +do{ +SUB_HELP_ADDTXT(qbs_new_txt_len("unknown UTF-8 characters",24),&(pass6594= 8 ),&(pass6595= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,988,"wiki_methods.bas");}while(r); +do{ +SUB_HELP_ADDTXT(qbs_new_txt_len(", please report it in the ",26),__LONG_HELP_COL_NORMAL,&(pass6596= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,989,"wiki_methods.bas");}while(r); +do{ +SUB_HELP_ADDTXT(qbs_new_txt_len("Wiki Forum.",11),__LONG_HELP_COL_LINK,__LONG_HELP_LINKN); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,990,"wiki_methods.bas");}while(r); +do{ +SUB_HELP_NEWLINE(); +if(!qbevent)break;evnt(26070,990,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_ITP=string2l(func_mid(__STRING_HELP_LINE, 13 , 4 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,991,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_DTL=string2l(qbs_right(__STRING_HELP_LINE, 4 ))-*_SUB_WIKIPARSE_LONG_STP; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,991,"wiki_methods.bas");}while(r); +do{ +qbs_set(_SUB_WIKIPARSE_STRING_TXT,qbs_add(func_mid(__STRING_HELP_TXT,*_SUB_WIKIPARSE_LONG_STP,*_SUB_WIKIPARSE_LONG_DTL,0|1),func_mid(__STRING_HELP_TXT,*_SUB_WIKIPARSE_LONG_ITP,*_SUB_WIKIPARSE_LONG_STP-*_SUB_WIKIPARSE_LONG_ITP,0|1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,992,"wiki_methods.bas");}while(r); +do{ +sub_mid(__STRING_HELP_TXT,*_SUB_WIKIPARSE_LONG_ITP,_SUB_WIKIPARSE_STRING_TXT->len,_SUB_WIKIPARSE_STRING_TXT,1); +if(!qbevent)break;evnt(26070,992,"wiki_methods.bas");}while(r); +do{ +qbs_set(__STRING_HELP_LINE,qbs_add(qbs_add(qbs_left(__STRING_HELP_LINE, 12 ),l2string(*_SUB_WIKIPARSE_LONG_ITP)),func_mid(__STRING_HELP_LINE, 13 ,__STRING_HELP_LINE->len- 16 ,0|1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,993,"wiki_methods.bas");}while(r); +S_59331:; +fornext_value6600= 17 ; +fornext_finalvalue6600=__STRING_HELP_LINE->len; +fornext_step6600= 4 ; +if (fornext_step6600<0) fornext_step_negative6600=1; else fornext_step_negative6600=0; +if (new_error) goto fornext_error6600; +goto fornext_entrylabel6600; +while(1){ +fornext_value6600=fornext_step6600+(*_SUB_WIKIPARSE_LONG_I); +fornext_entrylabel6600: +*_SUB_WIKIPARSE_LONG_I=fornext_value6600; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative6600){ +if (fornext_value6600fornext_finalvalue6600) break; +} +fornext_error6600:; +if(qbevent){evnt(26070,994,"wiki_methods.bas");if(r)goto S_59331;} +do{ +sub_mid(__STRING_HELP_LINE,*_SUB_WIKIPARSE_LONG_I, 4 ,l2string(string2l(func_mid(__STRING_HELP_LINE,*_SUB_WIKIPARSE_LONG_I, 4 ,0|1))+*_SUB_WIKIPARSE_LONG_DTL),1); +if(!qbevent)break;evnt(26070,994,"wiki_methods.bas");}while(r); +fornext_continue_6599:; +} +fornext_exit_6599:; +} +S_59335:; +if ((*_SUB_WIKIPARSE_LONG_UE)||new_error){ +if(qbevent){evnt(26070,996,"wiki_methods.bas");if(r)goto S_59335;} +do{ +*_SUB_WIKIPARSE_LONG_STP=string2l(qbs_right(__STRING_HELP_LINE, 4 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,997,"wiki_methods.bas");}while(r); +do{ +SUB_HELP_ADDTXT(qbs_new_txt_len("!>",2),&(pass6602= 4 ),&(pass6603= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,998,"wiki_methods.bas");}while(r); +do{ +SUB_HELP_ADDTXT(qbs_new_txt_len(" Page uses ",11),__LONG_HELP_COL_NORMAL,&(pass6604= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,999,"wiki_methods.bas");}while(r); +do{ +SUB_HELP_ADDTXT(qbs_new_txt_len("unknown HTML entities",21),&(pass6605= 8 ),&(pass6606= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1000,"wiki_methods.bas");}while(r); +do{ +SUB_HELP_ADDTXT(qbs_new_txt_len(", please report it in the ",26),__LONG_HELP_COL_NORMAL,&(pass6607= 0 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1001,"wiki_methods.bas");}while(r); +do{ +SUB_HELP_ADDTXT(qbs_new_txt_len("Wiki Forum.",11),__LONG_HELP_COL_LINK,__LONG_HELP_LINKN); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1002,"wiki_methods.bas");}while(r); +do{ +SUB_HELP_NEWLINE(); +if(!qbevent)break;evnt(26070,1002,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_ITP=string2l(func_mid(__STRING_HELP_LINE, 13 , 4 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1003,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_DTL=string2l(qbs_right(__STRING_HELP_LINE, 4 ))-*_SUB_WIKIPARSE_LONG_STP; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1003,"wiki_methods.bas");}while(r); +do{ +qbs_set(_SUB_WIKIPARSE_STRING_TXT,qbs_add(func_mid(__STRING_HELP_TXT,*_SUB_WIKIPARSE_LONG_STP,*_SUB_WIKIPARSE_LONG_DTL,0|1),func_mid(__STRING_HELP_TXT,*_SUB_WIKIPARSE_LONG_ITP,*_SUB_WIKIPARSE_LONG_STP-*_SUB_WIKIPARSE_LONG_ITP,0|1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1004,"wiki_methods.bas");}while(r); +do{ +sub_mid(__STRING_HELP_TXT,*_SUB_WIKIPARSE_LONG_ITP,_SUB_WIKIPARSE_STRING_TXT->len,_SUB_WIKIPARSE_STRING_TXT,1); +if(!qbevent)break;evnt(26070,1004,"wiki_methods.bas");}while(r); +do{ +qbs_set(__STRING_HELP_LINE,qbs_add(qbs_add(qbs_left(__STRING_HELP_LINE, 12 ),l2string(*_SUB_WIKIPARSE_LONG_ITP)),func_mid(__STRING_HELP_LINE, 13 ,__STRING_HELP_LINE->len- 16 ,0|1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1005,"wiki_methods.bas");}while(r); +S_59348:; +fornext_value6611= 17 ; +fornext_finalvalue6611=__STRING_HELP_LINE->len; +fornext_step6611= 4 ; +if (fornext_step6611<0) fornext_step_negative6611=1; else fornext_step_negative6611=0; +if (new_error) goto fornext_error6611; +goto fornext_entrylabel6611; +while(1){ +fornext_value6611=fornext_step6611+(*_SUB_WIKIPARSE_LONG_I); +fornext_entrylabel6611: +*_SUB_WIKIPARSE_LONG_I=fornext_value6611; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative6611){ +if (fornext_value6611fornext_finalvalue6611) break; +} +fornext_error6611:; +if(qbevent){evnt(26070,1006,"wiki_methods.bas");if(r)goto S_59348;} +do{ +sub_mid(__STRING_HELP_LINE,*_SUB_WIKIPARSE_LONG_I, 4 ,l2string(string2l(func_mid(__STRING_HELP_LINE,*_SUB_WIKIPARSE_LONG_I, 4 ,0|1))+*_SUB_WIKIPARSE_LONG_DTL),1); +if(!qbevent)break;evnt(26070,1006,"wiki_methods.bas");}while(r); +fornext_continue_6610:; +} +fornext_exit_6610:; +} +} +do{ +SUB_HELP_CHECKFINISHLINE(); +if(!qbevent)break;evnt(26070,1010,"wiki_methods.bas");}while(r); +do{ +qbs_set(__STRING_HELP_TXT,qbs_left(__STRING_HELP_TXT,*__LONG_HELP_TXT_LEN)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1010,"wiki_methods.bas");}while(r); +S_59355:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(__STRING_HELP_PAGELOADED,qbs_new_txt_len("Keyword Reference - Alphabetical",32))))||new_error){ +if(qbevent){evnt(26070,1012,"wiki_methods.bas");if(r)goto S_59355;} +do{ +*_SUB_WIKIPARSE_LONG_FH=func_freefile(); +if(!qbevent)break;evnt(26070,1014,"wiki_methods.bas");}while(r); +do{ +sub_open(qbs_new_txt_len("internal\\help\\links.bin",23), 4 ,NULL,NULL,*_SUB_WIKIPARSE_LONG_FH,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1015,"wiki_methods.bas");}while(r); +do{ +qbs_set(_SUB_WIKIPARSE_STRING_A,func_space( 1000 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1016,"wiki_methods.bas");}while(r); +S_59359:; +fornext_value6614= 1 ; +fornext_finalvalue6614=*__LONG_HELP_H; +fornext_step6614= 1 ; +if (fornext_step6614<0) fornext_step_negative6614=1; else fornext_step_negative6614=0; +if (new_error) goto fornext_error6614; +goto fornext_entrylabel6614; +while(1){ +fornext_value6614=fornext_step6614+(*_SUB_WIKIPARSE_LONG_CY); +fornext_entrylabel6614: +*_SUB_WIKIPARSE_LONG_CY=fornext_value6614; +if (fornext_step_negative6614){ +if (fornext_value6614fornext_finalvalue6614) break; +} +fornext_error6614:; +if(qbevent){evnt(26070,1017,"wiki_methods.bas");if(r)goto S_59359;} +do{ +*_SUB_WIKIPARSE_LONG_L=string2l(func_mid(__STRING_HELP_LINE,((*_SUB_WIKIPARSE_LONG_CY- 1 )* 4 )+( 1 ), 4 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1019,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_X=*_SUB_WIKIPARSE_LONG_L; +if(!qbevent)break;evnt(26070,1020,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_X2= 1 ; +if(!qbevent)break;evnt(26070,1021,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_C=qbs_asc(__STRING_HELP_TXT,*_SUB_WIKIPARSE_LONG_X); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1022,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_OLDLNK= 0 ; +if(!qbevent)break;evnt(26070,1023,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_LNKX1= 0 ; +if(!qbevent)break;evnt(26070,1024,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_LNKX2= 0 ; +if(!qbevent)break;evnt(26070,1024,"wiki_methods.bas");}while(r); +S_59367:; +while((!(qbs_cleanup(qbs_tmp_base,-(qbs_asc(__STRING_HELP_TXT,*_SUB_WIKIPARSE_LONG_X+ 1 )> 127 ))))||new_error){ +if(qbevent){evnt(26070,1025,"wiki_methods.bas");if(r)goto S_59367;} +do{ +tqbs=_SUB_WIKIPARSE_STRING_A; if (!new_error){ +tmp_fileno=*_SUB_WIKIPARSE_LONG_X2; if (!new_error){ +tmp_long=*_SUB_WIKIPARSE_LONG_C; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26070,1026,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_LNK=string2i(func_mid(__STRING_HELP_TXT,*_SUB_WIKIPARSE_LONG_X+ 2 , 2 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1027,"wiki_methods.bas");}while(r); +S_59370:; +if (((-(*_SUB_WIKIPARSE_LONG_OLDLNK== 0 ))&(-(*_SUB_WIKIPARSE_LONG_LNK!= 0 )))||new_error){ +if(qbevent){evnt(26070,1028,"wiki_methods.bas");if(r)goto S_59370;} +do{ +*_SUB_WIKIPARSE_LONG_LNKX1=*_SUB_WIKIPARSE_LONG_X2; +if(!qbevent)break;evnt(26070,1028,"wiki_methods.bas");}while(r); +} +S_59373:; +if ((qbs_cleanup(qbs_tmp_base,(((-(*_SUB_WIKIPARSE_LONG_LNK== 0 ))|(-(qbs_asc(__STRING_HELP_TXT,*_SUB_WIKIPARSE_LONG_X+ 5 )> 127 ))))&(-(*_SUB_WIKIPARSE_LONG_LNKX1!= 0 ))))||new_error){ +if(qbevent){evnt(26070,1029,"wiki_methods.bas");if(r)goto S_59373;} +do{ +*_SUB_WIKIPARSE_LONG_LNKX2=*_SUB_WIKIPARSE_LONG_X2; +if(!qbevent)break;evnt(26070,1030,"wiki_methods.bas");}while(r); +S_59375:; +if ((-(*_SUB_WIKIPARSE_LONG_LNK== 0 ))||new_error){ +if(qbevent){evnt(26070,1030,"wiki_methods.bas");if(r)goto S_59375;} +do{ +*_SUB_WIKIPARSE_LONG_LNKX2=*_SUB_WIKIPARSE_LONG_LNKX2- 1 ; +if(!qbevent)break;evnt(26070,1030,"wiki_methods.bas");}while(r); +} +S_59378:; +if ((-(*_SUB_WIKIPARSE_LONG_LNKX1!= 3 ))||new_error){ +if(qbevent){evnt(26070,1032,"wiki_methods.bas");if(r)goto S_59378;} +do{ +goto LABEL_IGNORELINK; +if(!qbevent)break;evnt(26070,1032,"wiki_methods.bas");}while(r); +} +S_59381:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_SUB_WIKIPARSE_STRING_A, 1 )!= 4 )))||new_error){ +if(qbevent){evnt(26070,1033,"wiki_methods.bas");if(r)goto S_59381;} +do{ +goto LABEL_IGNORELINK; +if(!qbevent)break;evnt(26070,1033,"wiki_methods.bas");}while(r); +} +do{ +*_SUB_WIKIPARSE_LONG_LNK2=*_SUB_WIKIPARSE_LONG_LNK; +if(!qbevent)break;evnt(26070,1036,"wiki_methods.bas");}while(r); +S_59385:; +if ((-(*_SUB_WIKIPARSE_LONG_LNK2== 0 ))||new_error){ +if(qbevent){evnt(26070,1036,"wiki_methods.bas");if(r)goto S_59385;} +do{ +*_SUB_WIKIPARSE_LONG_LNK2=*_SUB_WIKIPARSE_LONG_OLDLNK; +if(!qbevent)break;evnt(26070,1036,"wiki_methods.bas");}while(r); +} +do{ +*_SUB_WIKIPARSE_LONG_L1= 1 ; +if(!qbevent)break;evnt(26070,1037,"wiki_methods.bas");}while(r); +S_59389:; +fornext_value6617= 1 ; +fornext_finalvalue6617=*_SUB_WIKIPARSE_LONG_LNK2- 1 ; +fornext_step6617= 1 ; +if (fornext_step6617<0) fornext_step_negative6617=1; else fornext_step_negative6617=0; +if (new_error) goto fornext_error6617; +goto fornext_entrylabel6617; +while(1){ +fornext_value6617=fornext_step6617+(*_SUB_WIKIPARSE_LONG_LX); +fornext_entrylabel6617: +*_SUB_WIKIPARSE_LONG_LX=fornext_value6617; +if (fornext_step_negative6617){ +if (fornext_value6617fornext_finalvalue6617) break; +} +fornext_error6617:; +if(qbevent){evnt(26070,1038,"wiki_methods.bas");if(r)goto S_59389;} +do{ +*_SUB_WIKIPARSE_LONG_L1=func_instr(*_SUB_WIKIPARSE_LONG_L1,__STRING_HELP_LINK,__STRING_HELP_LINK_SEP,0|1)+ 1 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1039,"wiki_methods.bas");}while(r); +fornext_continue_6616:; +} +fornext_exit_6616:; +do{ +*_SUB_WIKIPARSE_LONG_L2=func_instr(*_SUB_WIKIPARSE_LONG_L1,__STRING_HELP_LINK,__STRING_HELP_LINK_SEP,0|1)- 1 ; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1041,"wiki_methods.bas");}while(r); +do{ +qbs_set(_SUB_WIKIPARSE_STRING_L,func_mid(__STRING_HELP_LINK,*_SUB_WIKIPARSE_LONG_L1,*_SUB_WIKIPARSE_LONG_L2-*_SUB_WIKIPARSE_LONG_L1+ 1 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1042,"wiki_methods.bas");}while(r); +do{ +qbs_set(_SUB_WIKIPARSE_STRING_L,qbs_right(_SUB_WIKIPARSE_STRING_L,_SUB_WIKIPARSE_STRING_L->len- 5 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1044,"wiki_methods.bas");}while(r); +do{ +qbs_set(_SUB_WIKIPARSE_STRING_A2,func_mid(_SUB_WIKIPARSE_STRING_A,*_SUB_WIKIPARSE_LONG_LNKX1,*_SUB_WIKIPARSE_LONG_LNKX2-*_SUB_WIKIPARSE_LONG_LNKX1+ 1 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1046,"wiki_methods.bas");}while(r); +S_59396:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_WIKIPARSE_STRING_A2,qbs_new_txt_len("(",1),0)))||new_error){ +if(qbevent){evnt(26070,1048,"wiki_methods.bas");if(r)goto S_59396;} +do{ +qbs_set(_SUB_WIKIPARSE_STRING_A2,qbs_left(_SUB_WIKIPARSE_STRING_A2,func_instr(NULL,_SUB_WIKIPARSE_STRING_A2,qbs_new_txt_len("(",1),0)- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1048,"wiki_methods.bas");}while(r); +} +S_59399:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_WIKIPARSE_STRING_A2,qbs_new_txt_len(" ",1),0)))||new_error){ +if(qbevent){evnt(26070,1049,"wiki_methods.bas");if(r)goto S_59399;} +do{ +qbs_set(_SUB_WIKIPARSE_STRING_A2,qbs_left(_SUB_WIKIPARSE_STRING_A2,func_instr(NULL,_SUB_WIKIPARSE_STRING_A2,qbs_new_txt_len(" ",1),0)- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1049,"wiki_methods.bas");}while(r); +} +S_59402:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_WIKIPARSE_STRING_A2,qbs_new_txt_len("...",3),0)))||new_error){ +if(qbevent){evnt(26070,1050,"wiki_methods.bas");if(r)goto S_59402;} +do{ +qbs_set(_SUB_WIKIPARSE_STRING_A3,qbs_right(_SUB_WIKIPARSE_STRING_A2,_SUB_WIKIPARSE_STRING_A2->len-func_instr(NULL,_SUB_WIKIPARSE_STRING_A2,qbs_new_txt_len("...",3),0)- 2 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1051,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_SKIP= 0 ; +if(!qbevent)break;evnt(26070,1053,"wiki_methods.bas");}while(r); +S_59405:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_ucase(qbs_left(_SUB_WIKIPARSE_STRING_A3, 3 )),qbs_new_txt_len("_GL",3))))||new_error){ +if(qbevent){evnt(26070,1055,"wiki_methods.bas");if(r)goto S_59405;} +S_59406:; +fornext_value6621= 1 ; +fornext_finalvalue6621=_SUB_WIKIPARSE_STRING_A3->len; +fornext_step6621= 1 ; +if (fornext_step6621<0) fornext_step_negative6621=1; else fornext_step_negative6621=0; +if (new_error) goto fornext_error6621; +goto fornext_entrylabel6621; +while(1){ +fornext_value6621=fornext_step6621+(*_SUB_WIKIPARSE_LONG_CI); +fornext_entrylabel6621: +*_SUB_WIKIPARSE_LONG_CI=fornext_value6621; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative6621){ +if (fornext_value6621fornext_finalvalue6621) break; +} +fornext_error6621:; +if(qbevent){evnt(26070,1056,"wiki_methods.bas");if(r)goto S_59406;} +do{ +*_SUB_WIKIPARSE_LONG_CA=qbs_asc(_SUB_WIKIPARSE_STRING_A3,*_SUB_WIKIPARSE_LONG_CI); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1057,"wiki_methods.bas");}while(r); +S_59408:; +if (((-(*_SUB_WIKIPARSE_LONG_CA>= 97 ))&(-(*_SUB_WIKIPARSE_LONG_CA<= 122 )))||new_error){ +if(qbevent){evnt(26070,1058,"wiki_methods.bas");if(r)goto S_59408;} +do{ +*_SUB_WIKIPARSE_LONG_SKIP= 1 ; +if(!qbevent)break;evnt(26070,1058,"wiki_methods.bas");}while(r); +} +S_59411:; +if ((-(*_SUB_WIKIPARSE_LONG_CA== 44 ))||new_error){ +if(qbevent){evnt(26070,1059,"wiki_methods.bas");if(r)goto S_59411;} +do{ +*_SUB_WIKIPARSE_LONG_SKIP= 1 ; +if(!qbevent)break;evnt(26070,1059,"wiki_methods.bas");}while(r); +} +fornext_continue_6620:; +} +fornext_exit_6620:; +} +S_59416:; +if ((-(*_SUB_WIKIPARSE_LONG_SKIP== 0 ))||new_error){ +if(qbevent){evnt(26070,1063,"wiki_methods.bas");if(r)goto S_59416;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*_SUB_WIKIPARSE_LONG_FH; +if (new_error) goto skip6623; +sub_file_print(tmp_fileno,qbs_add(qbs_add(_SUB_WIKIPARSE_STRING_A3,qbs_new_txt_len(",",1)),_SUB_WIKIPARSE_STRING_L), 0, 0, 1); +if (new_error) goto skip6623; +skip6623: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(26070,1063,"wiki_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_WIKIPARSE_STRING_A2,qbs_left(_SUB_WIKIPARSE_STRING_A2,func_instr(NULL,_SUB_WIKIPARSE_STRING_A2,qbs_new_txt_len("...",3),0)- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1065,"wiki_methods.bas");}while(r); +} +do{ +*_SUB_WIKIPARSE_LONG_SKIP= 0 ; +if(!qbevent)break;evnt(26070,1068,"wiki_methods.bas");}while(r); +S_59422:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_ucase(qbs_left(_SUB_WIKIPARSE_STRING_A2, 3 )),qbs_new_txt_len("_GL",3))))||new_error){ +if(qbevent){evnt(26070,1069,"wiki_methods.bas");if(r)goto S_59422;} +S_59423:; +fornext_value6625= 1 ; +fornext_finalvalue6625=_SUB_WIKIPARSE_STRING_A2->len; +fornext_step6625= 1 ; +if (fornext_step6625<0) fornext_step_negative6625=1; else fornext_step_negative6625=0; +if (new_error) goto fornext_error6625; +goto fornext_entrylabel6625; +while(1){ +fornext_value6625=fornext_step6625+(*_SUB_WIKIPARSE_LONG_CI); +fornext_entrylabel6625: +*_SUB_WIKIPARSE_LONG_CI=fornext_value6625; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative6625){ +if (fornext_value6625fornext_finalvalue6625) break; +} +fornext_error6625:; +if(qbevent){evnt(26070,1070,"wiki_methods.bas");if(r)goto S_59423;} +do{ +*_SUB_WIKIPARSE_LONG_CA=qbs_asc(_SUB_WIKIPARSE_STRING_A2,*_SUB_WIKIPARSE_LONG_CI); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1071,"wiki_methods.bas");}while(r); +S_59425:; +if (((-(*_SUB_WIKIPARSE_LONG_CA>= 97 ))&(-(*_SUB_WIKIPARSE_LONG_CA<= 122 )))||new_error){ +if(qbevent){evnt(26070,1072,"wiki_methods.bas");if(r)goto S_59425;} +do{ +*_SUB_WIKIPARSE_LONG_SKIP= 1 ; +if(!qbevent)break;evnt(26070,1072,"wiki_methods.bas");}while(r); +} +S_59428:; +if ((-(*_SUB_WIKIPARSE_LONG_CA== 44 ))||new_error){ +if(qbevent){evnt(26070,1073,"wiki_methods.bas");if(r)goto S_59428;} +do{ +*_SUB_WIKIPARSE_LONG_SKIP= 1 ; +if(!qbevent)break;evnt(26070,1073,"wiki_methods.bas");}while(r); +} +fornext_continue_6624:; +} +fornext_exit_6624:; +} +S_59433:; +if ((-(*_SUB_WIKIPARSE_LONG_SKIP== 0 ))||new_error){ +if(qbevent){evnt(26070,1076,"wiki_methods.bas");if(r)goto S_59433;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*_SUB_WIKIPARSE_LONG_FH; +if (new_error) goto skip6627; +sub_file_print(tmp_fileno,qbs_add(qbs_add(_SUB_WIKIPARSE_STRING_A2,qbs_new_txt_len(",",1)),_SUB_WIKIPARSE_STRING_L), 0, 0, 1); +if (new_error) goto skip6627; +skip6627: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(26070,1076,"wiki_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_WIKIPARSE_STRING_OA2,_SUB_WIKIPARSE_STRING_A2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1077,"wiki_methods.bas");}while(r); +do{ +qbs_set(_SUB_WIKIPARSE_STRING_A2,_SUB_WIKIPARSE_STRING_L); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1079,"wiki_methods.bas");}while(r); +S_59438:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_WIKIPARSE_STRING_A2,qbs_new_txt_len("(",1),0)))||new_error){ +if(qbevent){evnt(26070,1080,"wiki_methods.bas");if(r)goto S_59438;} +do{ +qbs_set(_SUB_WIKIPARSE_STRING_A2,qbs_left(_SUB_WIKIPARSE_STRING_A2,func_instr(NULL,_SUB_WIKIPARSE_STRING_A2,qbs_new_txt_len("(",1),0)- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1080,"wiki_methods.bas");}while(r); +} +S_59441:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_WIKIPARSE_STRING_A2,qbs_new_txt_len(" ",1),0)))||new_error){ +if(qbevent){evnt(26070,1081,"wiki_methods.bas");if(r)goto S_59441;} +do{ +qbs_set(_SUB_WIKIPARSE_STRING_A2,qbs_left(_SUB_WIKIPARSE_STRING_A2,func_instr(NULL,_SUB_WIKIPARSE_STRING_A2,qbs_new_txt_len(" ",1),0)- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1081,"wiki_methods.bas");}while(r); +} +S_59444:; +if ((qbs_cleanup(qbs_tmp_base,func_instr(NULL,_SUB_WIKIPARSE_STRING_A2,qbs_new_txt_len("...",3),0)))||new_error){ +if(qbevent){evnt(26070,1082,"wiki_methods.bas");if(r)goto S_59444;} +do{ +qbs_set(_SUB_WIKIPARSE_STRING_A3,qbs_right(_SUB_WIKIPARSE_STRING_A2,_SUB_WIKIPARSE_STRING_A2->len-func_instr(NULL,_SUB_WIKIPARSE_STRING_A2,qbs_new_txt_len("...",3),0)- 2 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1083,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_SKIP= 0 ; +if(!qbevent)break;evnt(26070,1085,"wiki_methods.bas");}while(r); +S_59447:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_ucase(qbs_left(_SUB_WIKIPARSE_STRING_A3, 3 )),qbs_new_txt_len("_GL",3))))||new_error){ +if(qbevent){evnt(26070,1086,"wiki_methods.bas");if(r)goto S_59447;} +S_59448:; +fornext_value6630= 1 ; +fornext_finalvalue6630=_SUB_WIKIPARSE_STRING_A3->len; +fornext_step6630= 1 ; +if (fornext_step6630<0) fornext_step_negative6630=1; else fornext_step_negative6630=0; +if (new_error) goto fornext_error6630; +goto fornext_entrylabel6630; +while(1){ +fornext_value6630=fornext_step6630+(*_SUB_WIKIPARSE_LONG_CI); +fornext_entrylabel6630: +*_SUB_WIKIPARSE_LONG_CI=fornext_value6630; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative6630){ +if (fornext_value6630fornext_finalvalue6630) break; +} +fornext_error6630:; +if(qbevent){evnt(26070,1087,"wiki_methods.bas");if(r)goto S_59448;} +do{ +*_SUB_WIKIPARSE_LONG_CA=qbs_asc(_SUB_WIKIPARSE_STRING_A3,*_SUB_WIKIPARSE_LONG_CI); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1088,"wiki_methods.bas");}while(r); +S_59450:; +if (((-(*_SUB_WIKIPARSE_LONG_CA>= 97 ))&(-(*_SUB_WIKIPARSE_LONG_CA<= 122 )))||new_error){ +if(qbevent){evnt(26070,1089,"wiki_methods.bas");if(r)goto S_59450;} +do{ +*_SUB_WIKIPARSE_LONG_SKIP= 1 ; +if(!qbevent)break;evnt(26070,1089,"wiki_methods.bas");}while(r); +} +S_59453:; +if ((-(*_SUB_WIKIPARSE_LONG_CA== 44 ))||new_error){ +if(qbevent){evnt(26070,1090,"wiki_methods.bas");if(r)goto S_59453;} +do{ +*_SUB_WIKIPARSE_LONG_SKIP= 1 ; +if(!qbevent)break;evnt(26070,1090,"wiki_methods.bas");}while(r); +} +fornext_continue_6629:; +} +fornext_exit_6629:; +} +S_59458:; +if ((-(*_SUB_WIKIPARSE_LONG_SKIP== 0 ))||new_error){ +if(qbevent){evnt(26070,1093,"wiki_methods.bas");if(r)goto S_59458;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*_SUB_WIKIPARSE_LONG_FH; +if (new_error) goto skip6632; +sub_file_print(tmp_fileno,qbs_add(qbs_add(_SUB_WIKIPARSE_STRING_A3,qbs_new_txt_len(",",1)),_SUB_WIKIPARSE_STRING_L), 0, 0, 1); +if (new_error) goto skip6632; +skip6632: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(26070,1093,"wiki_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_WIKIPARSE_STRING_A2,qbs_left(_SUB_WIKIPARSE_STRING_A2,func_instr(NULL,_SUB_WIKIPARSE_STRING_A2,qbs_new_txt_len("...",3),0)- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1095,"wiki_methods.bas");}while(r); +} +do{ +*_SUB_WIKIPARSE_LONG_SKIP= 0 ; +if(!qbevent)break;evnt(26070,1098,"wiki_methods.bas");}while(r); +S_59464:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_ucase(qbs_left(_SUB_WIKIPARSE_STRING_A2, 3 )),qbs_new_txt_len("_GL",3))))||new_error){ +if(qbevent){evnt(26070,1099,"wiki_methods.bas");if(r)goto S_59464;} +S_59465:; +fornext_value6634= 1 ; +fornext_finalvalue6634=_SUB_WIKIPARSE_STRING_A2->len; +fornext_step6634= 1 ; +if (fornext_step6634<0) fornext_step_negative6634=1; else fornext_step_negative6634=0; +if (new_error) goto fornext_error6634; +goto fornext_entrylabel6634; +while(1){ +fornext_value6634=fornext_step6634+(*_SUB_WIKIPARSE_LONG_CI); +fornext_entrylabel6634: +*_SUB_WIKIPARSE_LONG_CI=fornext_value6634; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative6634){ +if (fornext_value6634fornext_finalvalue6634) break; +} +fornext_error6634:; +if(qbevent){evnt(26070,1100,"wiki_methods.bas");if(r)goto S_59465;} +do{ +*_SUB_WIKIPARSE_LONG_CA=qbs_asc(_SUB_WIKIPARSE_STRING_A2,*_SUB_WIKIPARSE_LONG_CI); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1101,"wiki_methods.bas");}while(r); +S_59467:; +if (((-(*_SUB_WIKIPARSE_LONG_CA>= 97 ))&(-(*_SUB_WIKIPARSE_LONG_CA<= 122 )))||new_error){ +if(qbevent){evnt(26070,1102,"wiki_methods.bas");if(r)goto S_59467;} +do{ +*_SUB_WIKIPARSE_LONG_SKIP= 1 ; +if(!qbevent)break;evnt(26070,1102,"wiki_methods.bas");}while(r); +} +S_59470:; +if ((-(*_SUB_WIKIPARSE_LONG_CA== 44 ))||new_error){ +if(qbevent){evnt(26070,1103,"wiki_methods.bas");if(r)goto S_59470;} +do{ +*_SUB_WIKIPARSE_LONG_SKIP= 1 ; +if(!qbevent)break;evnt(26070,1103,"wiki_methods.bas");}while(r); +} +fornext_continue_6633:; +} +fornext_exit_6633:; +} +S_59475:; +if ((qbs_cleanup(qbs_tmp_base,(-(*_SUB_WIKIPARSE_LONG_SKIP== 0 ))&(qbs_notequal(_SUB_WIKIPARSE_STRING_A2,_SUB_WIKIPARSE_STRING_OA2))))||new_error){ +if(qbevent){evnt(26070,1106,"wiki_methods.bas");if(r)goto S_59475;} +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno=*_SUB_WIKIPARSE_LONG_FH; +if (new_error) goto skip6636; +sub_file_print(tmp_fileno,qbs_add(qbs_add(_SUB_WIKIPARSE_STRING_A2,qbs_new_txt_len(",",1)),_SUB_WIKIPARSE_STRING_L), 0, 0, 1); +if (new_error) goto skip6636; +skip6636: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(26070,1106,"wiki_methods.bas");}while(r); +} +LABEL_IGNORELINK:; +if(qbevent){evnt(26070,1108,"wiki_methods.bas");r=0;} +do{ +*_SUB_WIKIPARSE_LONG_LNKX1= 0 ; +if(!qbevent)break;evnt(26070,1110,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_LNKX2= 0 ; +if(!qbevent)break;evnt(26070,1110,"wiki_methods.bas");}while(r); +} +do{ +*_SUB_WIKIPARSE_LONG_X=*_SUB_WIKIPARSE_LONG_X+ 4 ; +if(!qbevent)break;evnt(26070,1112,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_C=qbs_asc(__STRING_HELP_TXT,*_SUB_WIKIPARSE_LONG_X); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1112,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_X2=*_SUB_WIKIPARSE_LONG_X2+ 1 ; +if(!qbevent)break;evnt(26070,1113,"wiki_methods.bas");}while(r); +do{ +*_SUB_WIKIPARSE_LONG_OLDLNK=*_SUB_WIKIPARSE_LONG_LNK; +if(!qbevent)break;evnt(26070,1114,"wiki_methods.bas");}while(r); +dl_continue_6615:; +} +dl_exit_6615:; +fornext_continue_6613:; +} +fornext_exit_6613:; +do{ +sub_close(*_SUB_WIKIPARSE_LONG_FH,1); +if(!qbevent)break;evnt(26070,1117,"wiki_methods.bas");}while(r); +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free288.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +qbs* FUNC_WIKISAFENAME(qbs*_FUNC_WIKISAFENAME_STRING_PAGE){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data289.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +qbs_set(_FUNC_WIKISAFENAME_STRING_EXT,func_space(_FUNC_WIKISAFENAME_STRING_PAGE->len)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1123,"wiki_methods.bas");}while(r); +S_59490:; +fornext_value6640= 1 ; +fornext_finalvalue6640=_FUNC_WIKISAFENAME_STRING_PAGE->len; +fornext_step6640= 1 ; +if (fornext_step6640<0) fornext_step_negative6640=1; else fornext_step_negative6640=0; +if (new_error) goto fornext_error6640; +goto fornext_entrylabel6640; +while(1){ +fornext_value6640=fornext_step6640+(*_FUNC_WIKISAFENAME_LONG_I); +fornext_entrylabel6640: +*_FUNC_WIKISAFENAME_LONG_I=fornext_value6640; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative6640){ +if (fornext_value6640fornext_finalvalue6640) break; +} +fornext_error6640:; +if(qbevent){evnt(26070,1124,"wiki_methods.bas");if(r)goto S_59490;} +do{ +*_FUNC_WIKISAFENAME_LONG_C=qbs_asc(_FUNC_WIKISAFENAME_STRING_PAGE,*_FUNC_WIKISAFENAME_LONG_I); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1125,"wiki_methods.bas");}while(r); +S_59492:; +if(qbevent){evnt(26070,1126,"wiki_methods.bas");if(r)goto S_59492;} +S_59493:; +if ((((*_FUNC_WIKISAFENAME_LONG_C>=( 65 ))&&(*_FUNC_WIKISAFENAME_LONG_C<=( 90 ))))||new_error){ +if(qbevent){evnt(26070,1127,"wiki_methods.bas");if(r)goto S_59493;} +do{ +tqbs=_FUNC_WIKISAFENAME_STRING_EXT; if (!new_error){ +tmp_fileno=*_FUNC_WIKISAFENAME_LONG_I; if (!new_error){ +tmp_long= 49 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26070,1127,"wiki_methods.bas");}while(r); +sc_ec_443_end:; +goto sc_6642_end; +} +S_59495:; +if ((((*_FUNC_WIKISAFENAME_LONG_C>=( 97 ))&&(*_FUNC_WIKISAFENAME_LONG_C<=( 122 ))))||new_error){ +if(qbevent){evnt(26070,1128,"wiki_methods.bas");if(r)goto S_59495;} +do{ +tqbs=_FUNC_WIKISAFENAME_STRING_EXT; if (!new_error){ +tmp_fileno=*_FUNC_WIKISAFENAME_LONG_I; if (!new_error){ +tmp_long= 48 ; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26070,1128,"wiki_methods.bas");}while(r); +sc_ec_444_end:; +goto sc_6642_end; +} +do{ +tqbs=_FUNC_WIKISAFENAME_STRING_EXT; if (!new_error){ +tmp_fileno=*_FUNC_WIKISAFENAME_LONG_I; if (!new_error){ +tmp_long=*_FUNC_WIKISAFENAME_LONG_C; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26070,1129,"wiki_methods.bas");}while(r); +sc_6642_end:; +fornext_continue_6639:; +} +fornext_exit_6639:; +do{ +qbs_set(_FUNC_WIKISAFENAME_STRING_WIKISAFENAME,qbs_add(qbs_add(_FUNC_WIKISAFENAME_STRING_PAGE,qbs_new_txt_len("_",1)),_FUNC_WIKISAFENAME_STRING_EXT)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1132,"wiki_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free289.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_WIKISAFENAME_STRING_WIKISAFENAME);return _FUNC_WIKISAFENAME_STRING_WIKISAFENAME; +} +qbs* FUNC_WIKIDLPAGE(qbs*_FUNC_WIKIDLPAGE_STRING_URL,float*_FUNC_WIKIDLPAGE_SINGLE_TIMEOUT){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data290.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +qbs_set(_FUNC_WIKIDLPAGE_STRING_WIKIDLPAGE,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1138,"wiki_methods.bas");}while(r); +do{ +qbs_set(_FUNC_WIKIDLPAGE_STRING_WIK,_FUNC_WIKIDLPAGE_STRING_URL); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1139,"wiki_methods.bas");}while(r); +do{ +*_FUNC_WIKIDLPAGE_DOUBLE_TIO=*_FUNC_WIKIDLPAGE_SINGLE_TIMEOUT; +if(!qbevent)break;evnt(26070,1139,"wiki_methods.bas");}while(r); +LABEL_RETRY:; +if(qbevent){evnt(26070,1141,"wiki_methods.bas");r=0;} +do{ +*_FUNC_WIKIDLPAGE_LONG_CH=func__openclient(_FUNC_WIKIDLPAGE_STRING_WIK); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1142,"wiki_methods.bas");}while(r); +S_59506:; +if ((-(*__LONG_HELP_RECACHING< 2 ))||new_error){ +if(qbevent){evnt(26070,1143,"wiki_methods.bas");if(r)goto S_59506;} +S_59507:; +if ((qbs_cleanup(qbs_tmp_base,(-(*_FUNC_WIKIDLPAGE_LONG_CH== 0 ))&(qbs_equal(qbs_lcase(qbs_left(_FUNC_WIKIDLPAGE_STRING_WIK, 8 )),qbs_new_txt_len("https://",8)))))||new_error){ +if(qbevent){evnt(26070,1144,"wiki_methods.bas");if(r)goto S_59507;} +S_59508:; +if ((qbs_cleanup(qbs_tmp_base,-(func__shellhide(qbs_new_txt_len("curl --version >NUL",19))!= 0 )))||new_error){ +if(qbevent){evnt(26070,1145,"wiki_methods.bas");if(r)goto S_59508;} +S_59509:; +if ((qbs_cleanup(qbs_tmp_base,-(func__guiMessageBox(qbs_new_txt_len("QB64-PE Help",12),qbs_new_txt_len("Can't make secure connection (https:) to Wiki, shall the IDE use unsecure (http:) instead?",90),qbs_new_txt_len("yesno",5),qbs_new_txt_len("warning",7),NULL,0)== 1 )))||new_error){ +if(qbevent){evnt(26070,1147,"wiki_methods.bas");if(r)goto S_59509;} +S_59510:; +if ((qbs_cleanup(qbs_tmp_base,-(func__guiMessageBox(qbs_new_txt_len("QB64-PE Help",12),qbs_new_txt_len("Do you wanna save your choice permanently for the future?",57),qbs_new_txt_len("yesno",5),qbs_new_txt_len("question",8),NULL,0)== 1 )))||new_error){ +if(qbevent){evnt(26070,1148,"wiki_methods.bas");if(r)goto S_59510;} +do{ +qbs_set(__STRING_WIKIBASEADDRESS,qbs_add(qbs_new_txt_len("http://",7),func_mid(__STRING_WIKIBASEADDRESS, 9 ,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1149,"wiki_methods.bas");}while(r); +do{ +SUB_WRITECONFIGSETTING(__STRING_GENERALSETTINGSSECTION,qbs_new_txt_len("WikiBaseAddress",15),__STRING_WIKIBASEADDRESS); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1150,"wiki_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_WIKIDLPAGE_STRING_WIK,qbs_add(qbs_new_txt_len("http://",7),func_mid(_FUNC_WIKIDLPAGE_STRING_WIK, 9 ,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1152,"wiki_methods.bas");}while(r); +do{ +goto LABEL_RETRY; +if(!qbevent)break;evnt(26070,1152,"wiki_methods.bas");}while(r); +} +} +} +} +S_59520:; +if ((-(*_FUNC_WIKIDLPAGE_LONG_CH== 0 ))||new_error){ +if(qbevent){evnt(26070,1157,"wiki_methods.bas");if(r)goto S_59520;} +do{ +goto LABEL_ONELASTCHANCE; +if(!qbevent)break;evnt(26070,1157,"wiki_methods.bas");}while(r); +} +S_59523:; +if ((-(func__statusCode(*_FUNC_WIKIDLPAGE_LONG_CH)== 200 ))||new_error){ +if(qbevent){evnt(26070,1159,"wiki_methods.bas");if(r)goto S_59523;} +do{ +qbs_set(_FUNC_WIKIDLPAGE_STRING_RES,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1160,"wiki_methods.bas");}while(r); +do{ +*_FUNC_WIKIDLPAGE_DOUBLE_ST=func_timer( 0.001E+0 ,0|1); +if(!qbevent)break;evnt(26070,1160,"wiki_methods.bas");}while(r); +S_59526:; +do{ +if(qbevent){evnt(26070,1161,"wiki_methods.bas");if(r)goto S_59526;} +do{ +sub__delay( 0.05E+0 ); +if(!qbevent)break;evnt(26070,1162,"wiki_methods.bas");}while(r); +do{ +sub_get2(*_FUNC_WIKIDLPAGE_LONG_CH,NULL,_FUNC_WIKIDLPAGE_STRING_REC,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1163,"wiki_methods.bas");}while(r); +S_59529:; +if ((qbs_cleanup(qbs_tmp_base,-(_FUNC_WIKIDLPAGE_STRING_REC->len> 0 )))||new_error){ +if(qbevent){evnt(26070,1164,"wiki_methods.bas");if(r)goto S_59529;} +do{ +*_FUNC_WIKIDLPAGE_DOUBLE_ST=func_timer( 0.001E+0 ,0|1); +if(!qbevent)break;evnt(26070,1164,"wiki_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_WIKIDLPAGE_STRING_RES,qbs_add(_FUNC_WIKIDLPAGE_STRING_RES,_FUNC_WIKIDLPAGE_STRING_REC)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1165,"wiki_methods.bas");}while(r); +S_59533:; +if ((func_eof(*_FUNC_WIKIDLPAGE_LONG_CH))||new_error){ +if(qbevent){evnt(26070,1166,"wiki_methods.bas");if(r)goto S_59533;} +do{ +qbs_set(_FUNC_WIKIDLPAGE_STRING_WIKIDLPAGE,_FUNC_WIKIDLPAGE_STRING_RES); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1167,"wiki_methods.bas");}while(r); +do{ +goto dl_exit_6644; +if(!qbevent)break;evnt(26070,1167,"wiki_methods.bas");}while(r); +} +S_59537:; +if ((-((*_FUNC_WIKIDLPAGE_DOUBLE_ST+*_FUNC_WIKIDLPAGE_DOUBLE_TIO)>=( 86400 )))||new_error){ +if(qbevent){evnt(26070,1169,"wiki_methods.bas");if(r)goto S_59537;} +do{ +*_FUNC_WIKIDLPAGE_DOUBLE_ST=*_FUNC_WIKIDLPAGE_DOUBLE_ST- 86400 ; +if(!qbevent)break;evnt(26070,1169,"wiki_methods.bas");}while(r); +} +S_59540:; +dl_continue_6644:; +}while((!(-(((float)((func_timer( 0.001E+0 ,0|1))))>((float)((*_FUNC_WIKIDLPAGE_DOUBLE_ST+*_FUNC_WIKIDLPAGE_DOUBLE_TIO))))))&&(!new_error)); +dl_exit_6644:; +if(qbevent){evnt(26070,1170,"wiki_methods.bas");if(r)goto S_59540;} +} +do{ +sub_close(*_FUNC_WIKIDLPAGE_LONG_CH,1); +if(!qbevent)break;evnt(26070,1172,"wiki_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,1173,"wiki_methods.bas");}while(r); +LABEL_ONELASTCHANCE:; +if(qbevent){evnt(26070,1175,"wiki_methods.bas");r=0;} +S_59544:; +if ((qbs_cleanup(qbs_tmp_base,-(func__shellhide(qbs_new_txt_len("curl --version >NUL",19))== 0 )))||new_error){ +if(qbevent){evnt(26070,1188,"wiki_methods.bas");if(r)goto S_59544;} +S_59545:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_lcase(qbs_left(_FUNC_WIKIDLPAGE_STRING_WIK, 7 )),qbs_new_txt_len("http://",7))))||new_error){ +if(qbevent){evnt(26070,1190,"wiki_methods.bas");if(r)goto S_59545;} +do{ +qbs_set(_FUNC_WIKIDLPAGE_STRING_WIK,qbs_add(qbs_new_txt_len("https://",8),func_mid(_FUNC_WIKIDLPAGE_STRING_WIK, 8 ,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1190,"wiki_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_WIKIDLPAGE_STRING_RESPONSEFILE,qbs_add(__STRING_CACHE_FOLDER,qbs_new_txt_len("/curlResponse.txt",17))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1192,"wiki_methods.bas");}while(r); +do{ +sub_shell2(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("curl --silent -o ",17),func_chr( 34 )),_FUNC_WIKIDLPAGE_STRING_RESPONSEFILE),func_chr( 34 )),qbs_new_txt_len(" ",1)),func_chr( 34 )),_FUNC_WIKIDLPAGE_STRING_WIK),func_chr( 34 )),2); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1193,"wiki_methods.bas");}while(r); +do{ +*_FUNC_WIKIDLPAGE_LONG_FH=func_freefile(); +if(!qbevent)break;evnt(26070,1195,"wiki_methods.bas");}while(r); +do{ +sub_open(_FUNC_WIKIDLPAGE_STRING_RESPONSEFILE, 2 ,NULL,NULL,*_FUNC_WIKIDLPAGE_LONG_FH,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1196,"wiki_methods.bas");}while(r); +do{ +qbs_set(_FUNC_WIKIDLPAGE_STRING_RES,func_space(func_lof(*_FUNC_WIKIDLPAGE_LONG_FH))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1197,"wiki_methods.bas");}while(r); +do{ +sub_get2(*_FUNC_WIKIDLPAGE_LONG_FH,NULL,_FUNC_WIKIDLPAGE_STRING_RES,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1198,"wiki_methods.bas");}while(r); +do{ +sub_close(*_FUNC_WIKIDLPAGE_LONG_FH,1); +if(!qbevent)break;evnt(26070,1199,"wiki_methods.bas");}while(r); +do{ +sub_kill(_FUNC_WIKIDLPAGE_STRING_RESPONSEFILE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1200,"wiki_methods.bas");}while(r); +do{ +qbs_set(_FUNC_WIKIDLPAGE_STRING_WIKIDLPAGE,_FUNC_WIKIDLPAGE_STRING_RES); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1202,"wiki_methods.bas");}while(r); +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free290.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_WIKIDLPAGE_STRING_WIKIDLPAGE);return _FUNC_WIKIDLPAGE_STRING_WIKIDLPAGE; +} +qbs* FUNC_WIKILOOKAHEAD(qbs*_FUNC_WIKILOOKAHEAD_STRING_A,int32*_FUNC_WIKILOOKAHEAD_LONG_I,qbs*_FUNC_WIKILOOKAHEAD_STRING_TOKEN){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data291.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +qbs_set(_FUNC_WIKILOOKAHEAD_STRING_WIKILOOKAHEAD,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1207,"wiki_methods.bas");}while(r); +S_59559:; +if ((qbs_cleanup(qbs_tmp_base,-(*_FUNC_WIKILOOKAHEAD_LONG_I>=_FUNC_WIKILOOKAHEAD_STRING_A->len)))||new_error){ +if(qbevent){evnt(26070,1207,"wiki_methods.bas");if(r)goto S_59559;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,1207,"wiki_methods.bas");}while(r); +} +do{ +*_FUNC_WIKILOOKAHEAD_LONG_J=func_instr(*_FUNC_WIKILOOKAHEAD_LONG_I,_FUNC_WIKILOOKAHEAD_STRING_A,_FUNC_WIKILOOKAHEAD_STRING_TOKEN,0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1208,"wiki_methods.bas");}while(r); +S_59563:; +if ((-(*_FUNC_WIKILOOKAHEAD_LONG_J== 0 ))||new_error){ +if(qbevent){evnt(26070,1209,"wiki_methods.bas");if(r)goto S_59563;} +do{ +qbs_set(_FUNC_WIKILOOKAHEAD_STRING_WIKILOOKAHEAD,func_mid(_FUNC_WIKILOOKAHEAD_STRING_A,*_FUNC_WIKILOOKAHEAD_LONG_I,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1210,"wiki_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_WIKILOOKAHEAD_STRING_WIKILOOKAHEAD,func_mid(_FUNC_WIKILOOKAHEAD_STRING_A,*_FUNC_WIKILOOKAHEAD_LONG_I,*_FUNC_WIKILOOKAHEAD_LONG_J-*_FUNC_WIKILOOKAHEAD_LONG_I,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1212,"wiki_methods.bas");}while(r); +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free291.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_WIKILOOKAHEAD_STRING_WIKILOOKAHEAD);return _FUNC_WIKILOOKAHEAD_STRING_WIKILOOKAHEAD; +} +qbs* FUNC_WIKIBUILDCINDENT(qbs*_FUNC_WIKIBUILDCINDENT_STRING_A){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data292.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +qbs_set(_FUNC_WIKIBUILDCINDENT_STRING_WIKIBUILDCINDENT,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1217,"wiki_methods.bas");}while(r); +S_59569:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_WIKIBUILDCINDENT_STRING_A,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,1217,"wiki_methods.bas");if(r)goto S_59569;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,1217,"wiki_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_WIKIBUILDCINDENT_STRING_ORG,_FUNC_WIKIBUILDCINDENT_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1219,"wiki_methods.bas");}while(r); +do{ +qbs_set(_FUNC_WIKIBUILDCINDENT_STRING_B,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1219,"wiki_methods.bas");}while(r); +S_59574:; +fornext_value6651= 1 ; +fornext_finalvalue6651=_FUNC_WIKIBUILDCINDENT_STRING_ORG->len; +fornext_step6651= 1 ; +if (fornext_step6651<0) fornext_step_negative6651=1; else fornext_step_negative6651=0; +if (new_error) goto fornext_error6651; +goto fornext_entrylabel6651; +while(1){ +fornext_value6651=fornext_step6651+(*_FUNC_WIKIBUILDCINDENT_LONG_I); +fornext_entrylabel6651: +*_FUNC_WIKIBUILDCINDENT_LONG_I=fornext_value6651; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative6651){ +if (fornext_value6651fornext_finalvalue6651) break; +} +fornext_error6651:; +if(qbevent){evnt(26070,1220,"wiki_methods.bas");if(r)goto S_59574;} +S_59575:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_WIKIBUILDCINDENT_STRING_ORG,*_FUNC_WIKIBUILDCINDENT_LONG_I, 2 ,0|1),qbs_new_txt_len("[[",2))))||new_error){ +if(qbevent){evnt(26070,1221,"wiki_methods.bas");if(r)goto S_59575;} +S_59576:; +fornext_value6654=*_FUNC_WIKIBUILDCINDENT_LONG_I+ 2 ; +fornext_finalvalue6654=_FUNC_WIKIBUILDCINDENT_STRING_ORG->len; +fornext_step6654= 1 ; +if (fornext_step6654<0) fornext_step_negative6654=1; else fornext_step_negative6654=0; +if (new_error) goto fornext_error6654; +goto fornext_entrylabel6654; +while(1){ +fornext_value6654=fornext_step6654+(*_FUNC_WIKIBUILDCINDENT_LONG_II); +fornext_entrylabel6654: +*_FUNC_WIKIBUILDCINDENT_LONG_II=fornext_value6654; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative6654){ +if (fornext_value6654fornext_finalvalue6654) break; +} +fornext_error6654:; +if(qbevent){evnt(26070,1222,"wiki_methods.bas");if(r)goto S_59576;} +S_59577:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_WIKIBUILDCINDENT_STRING_ORG,*_FUNC_WIKIBUILDCINDENT_LONG_II, 1 ,0|1),qbs_new_txt_len("|",1))))||new_error){ +if(qbevent){evnt(26070,1223,"wiki_methods.bas");if(r)goto S_59577;} +do{ +*_FUNC_WIKIBUILDCINDENT_LONG_I=*_FUNC_WIKIBUILDCINDENT_LONG_II+ 1 ; +if(!qbevent)break;evnt(26070,1223,"wiki_methods.bas");}while(r); +do{ +goto fornext_exit_6653; +if(!qbevent)break;evnt(26070,1223,"wiki_methods.bas");}while(r); +} +S_59581:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_WIKIBUILDCINDENT_STRING_ORG,*_FUNC_WIKIBUILDCINDENT_LONG_II, 2 ,0|1),qbs_new_txt_len("]]",2))))||new_error){ +if(qbevent){evnt(26070,1224,"wiki_methods.bas");if(r)goto S_59581;} +do{ +*_FUNC_WIKIBUILDCINDENT_LONG_I=*_FUNC_WIKIBUILDCINDENT_LONG_I+ 2 ; +if(!qbevent)break;evnt(26070,1224,"wiki_methods.bas");}while(r); +do{ +goto fornext_exit_6653; +if(!qbevent)break;evnt(26070,1224,"wiki_methods.bas");}while(r); +} +fornext_continue_6653:; +} +fornext_exit_6653:; +} +S_59587:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_WIKIBUILDCINDENT_STRING_ORG,*_FUNC_WIKIBUILDCINDENT_LONG_I, 2 ,0|1),qbs_new_txt_len("]]",2))))||new_error){ +if(qbevent){evnt(26070,1227,"wiki_methods.bas");if(r)goto S_59587;} +do{ +*_FUNC_WIKIBUILDCINDENT_LONG_I=*_FUNC_WIKIBUILDCINDENT_LONG_I+ 2 ; +if(!qbevent)break;evnt(26070,1227,"wiki_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_WIKIBUILDCINDENT_STRING_B,qbs_add(_FUNC_WIKIBUILDCINDENT_STRING_B,func_mid(_FUNC_WIKIBUILDCINDENT_STRING_ORG,*_FUNC_WIKIBUILDCINDENT_LONG_I, 1 ,0|1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1228,"wiki_methods.bas");}while(r); +fornext_continue_6650:; +} +fornext_exit_6650:; +do{ +qbs_set(_FUNC_WIKIBUILDCINDENT_STRING_ORG,_FUNC_WIKIBUILDCINDENT_STRING_B); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1230,"wiki_methods.bas");}while(r); +do{ +qbs_set(_FUNC_WIKIBUILDCINDENT_STRING_B,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1230,"wiki_methods.bas");}while(r); +S_59594:; +fornext_value6657= 1 ; +fornext_finalvalue6657=_FUNC_WIKIBUILDCINDENT_STRING_ORG->len; +fornext_step6657= 1 ; +if (fornext_step6657<0) fornext_step_negative6657=1; else fornext_step_negative6657=0; +if (new_error) goto fornext_error6657; +goto fornext_entrylabel6657; +while(1){ +fornext_value6657=fornext_step6657+(*_FUNC_WIKIBUILDCINDENT_LONG_I); +fornext_entrylabel6657: +*_FUNC_WIKIBUILDCINDENT_LONG_I=fornext_value6657; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative6657){ +if (fornext_value6657fornext_finalvalue6657) break; +} +fornext_error6657:; +if(qbevent){evnt(26070,1231,"wiki_methods.bas");if(r)goto S_59594;} +S_59595:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_WIKIBUILDCINDENT_STRING_ORG,*_FUNC_WIKIBUILDCINDENT_LONG_I, 5 ,0|1),qbs_new_txt_len("[http",5))))||new_error){ +if(qbevent){evnt(26070,1232,"wiki_methods.bas");if(r)goto S_59595;} +S_59596:; +fornext_value6660=*_FUNC_WIKIBUILDCINDENT_LONG_I+ 5 ; +fornext_finalvalue6660=_FUNC_WIKIBUILDCINDENT_STRING_ORG->len; +fornext_step6660= 1 ; +if (fornext_step6660<0) fornext_step_negative6660=1; else fornext_step_negative6660=0; +if (new_error) goto fornext_error6660; +goto fornext_entrylabel6660; +while(1){ +fornext_value6660=fornext_step6660+(*_FUNC_WIKIBUILDCINDENT_LONG_II); +fornext_entrylabel6660: +*_FUNC_WIKIBUILDCINDENT_LONG_II=fornext_value6660; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative6660){ +if (fornext_value6660fornext_finalvalue6660) break; +} +fornext_error6660:; +if(qbevent){evnt(26070,1233,"wiki_methods.bas");if(r)goto S_59596;} +S_59597:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_WIKIBUILDCINDENT_STRING_ORG,*_FUNC_WIKIBUILDCINDENT_LONG_II, 1 ,0|1),qbs_new_txt_len(" ",1))))||new_error){ +if(qbevent){evnt(26070,1234,"wiki_methods.bas");if(r)goto S_59597;} +do{ +*_FUNC_WIKIBUILDCINDENT_LONG_I=*_FUNC_WIKIBUILDCINDENT_LONG_II+ 1 ; +if(!qbevent)break;evnt(26070,1234,"wiki_methods.bas");}while(r); +do{ +goto fornext_exit_6659; +if(!qbevent)break;evnt(26070,1234,"wiki_methods.bas");}while(r); +} +S_59601:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_WIKIBUILDCINDENT_STRING_ORG,*_FUNC_WIKIBUILDCINDENT_LONG_II, 1 ,0|1),qbs_new_txt_len("]",1))))||new_error){ +if(qbevent){evnt(26070,1235,"wiki_methods.bas");if(r)goto S_59601;} +do{ +*_FUNC_WIKIBUILDCINDENT_LONG_I=*_FUNC_WIKIBUILDCINDENT_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,1235,"wiki_methods.bas");}while(r); +do{ +goto fornext_exit_6659; +if(!qbevent)break;evnt(26070,1235,"wiki_methods.bas");}while(r); +} +fornext_continue_6659:; +} +fornext_exit_6659:; +} +S_59607:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_WIKIBUILDCINDENT_STRING_ORG,*_FUNC_WIKIBUILDCINDENT_LONG_I, 1 ,0|1),qbs_new_txt_len("]",1))))||new_error){ +if(qbevent){evnt(26070,1238,"wiki_methods.bas");if(r)goto S_59607;} +do{ +*_FUNC_WIKIBUILDCINDENT_LONG_I=*_FUNC_WIKIBUILDCINDENT_LONG_I+ 1 ; +if(!qbevent)break;evnt(26070,1238,"wiki_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_WIKIBUILDCINDENT_STRING_B,qbs_add(_FUNC_WIKIBUILDCINDENT_STRING_B,func_mid(_FUNC_WIKIBUILDCINDENT_STRING_ORG,*_FUNC_WIKIBUILDCINDENT_LONG_I, 1 ,0|1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1239,"wiki_methods.bas");}while(r); +fornext_continue_6656:; +} +fornext_exit_6656:; +do{ +qbs_set(_FUNC_WIKIBUILDCINDENT_STRING_ORG,_FUNC_WIKIBUILDCINDENT_STRING_B); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1241,"wiki_methods.bas");}while(r); +do{ +qbs_set(_FUNC_WIKIBUILDCINDENT_STRING_B,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1241,"wiki_methods.bas");}while(r); +S_59614:; +fornext_value6663= 1 ; +fornext_finalvalue6663=_FUNC_WIKIBUILDCINDENT_STRING_ORG->len; +fornext_step6663= 1 ; +if (fornext_step6663<0) fornext_step_negative6663=1; else fornext_step_negative6663=0; +if (new_error) goto fornext_error6663; +goto fornext_entrylabel6663; +while(1){ +fornext_value6663=fornext_step6663+(*_FUNC_WIKIBUILDCINDENT_LONG_I); +fornext_entrylabel6663: +*_FUNC_WIKIBUILDCINDENT_LONG_I=fornext_value6663; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative6663){ +if (fornext_value6663fornext_finalvalue6663) break; +} +fornext_error6663:; +if(qbevent){evnt(26070,1242,"wiki_methods.bas");if(r)goto S_59614;} +S_59615:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_WIKIBUILDCINDENT_STRING_ORG,*_FUNC_WIKIBUILDCINDENT_LONG_I, 2 ,0|1),qbs_new_txt_len("{{",2))))||new_error){ +if(qbevent){evnt(26070,1243,"wiki_methods.bas");if(r)goto S_59615;} +S_59616:; +fornext_value6666=*_FUNC_WIKIBUILDCINDENT_LONG_I+ 2 ; +fornext_finalvalue6666=_FUNC_WIKIBUILDCINDENT_STRING_ORG->len; +fornext_step6666= 1 ; +if (fornext_step6666<0) fornext_step_negative6666=1; else fornext_step_negative6666=0; +if (new_error) goto fornext_error6666; +goto fornext_entrylabel6666; +while(1){ +fornext_value6666=fornext_step6666+(*_FUNC_WIKIBUILDCINDENT_LONG_II); +fornext_entrylabel6666: +*_FUNC_WIKIBUILDCINDENT_LONG_II=fornext_value6666; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative6666){ +if (fornext_value6666fornext_finalvalue6666) break; +} +fornext_error6666:; +if(qbevent){evnt(26070,1244,"wiki_methods.bas");if(r)goto S_59616;} +S_59617:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_WIKIBUILDCINDENT_STRING_ORG,*_FUNC_WIKIBUILDCINDENT_LONG_II, 1 ,0|1),qbs_new_txt_len("|",1))))||new_error){ +if(qbevent){evnt(26070,1245,"wiki_methods.bas");if(r)goto S_59617;} +do{ +*_FUNC_WIKIBUILDCINDENT_LONG_I=*_FUNC_WIKIBUILDCINDENT_LONG_II+ 1 ; +if(!qbevent)break;evnt(26070,1245,"wiki_methods.bas");}while(r); +do{ +goto fornext_exit_6665; +if(!qbevent)break;evnt(26070,1245,"wiki_methods.bas");}while(r); +} +S_59621:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_WIKIBUILDCINDENT_STRING_ORG,*_FUNC_WIKIBUILDCINDENT_LONG_II, 2 ,0|1),qbs_new_txt_len("}}",2))))||new_error){ +if(qbevent){evnt(26070,1246,"wiki_methods.bas");if(r)goto S_59621;} +do{ +*_FUNC_WIKIBUILDCINDENT_LONG_I=*_FUNC_WIKIBUILDCINDENT_LONG_I+ 2 ; +if(!qbevent)break;evnt(26070,1246,"wiki_methods.bas");}while(r); +do{ +goto fornext_exit_6665; +if(!qbevent)break;evnt(26070,1246,"wiki_methods.bas");}while(r); +} +fornext_continue_6665:; +} +fornext_exit_6665:; +} +S_59627:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_WIKIBUILDCINDENT_STRING_ORG,*_FUNC_WIKIBUILDCINDENT_LONG_I, 1 ,0|1),qbs_new_txt_len("|",1))))||new_error){ +if(qbevent){evnt(26070,1249,"wiki_methods.bas");if(r)goto S_59627;} +S_59628:; +fornext_value6669=*_FUNC_WIKIBUILDCINDENT_LONG_I+ 1 ; +fornext_finalvalue6669=_FUNC_WIKIBUILDCINDENT_STRING_ORG->len; +fornext_step6669= 1 ; +if (fornext_step6669<0) fornext_step_negative6669=1; else fornext_step_negative6669=0; +if (new_error) goto fornext_error6669; +goto fornext_entrylabel6669; +while(1){ +fornext_value6669=fornext_step6669+(*_FUNC_WIKIBUILDCINDENT_LONG_II); +fornext_entrylabel6669: +*_FUNC_WIKIBUILDCINDENT_LONG_II=fornext_value6669; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative6669){ +if (fornext_value6669fornext_finalvalue6669) break; +} +fornext_error6669:; +if(qbevent){evnt(26070,1250,"wiki_methods.bas");if(r)goto S_59628;} +S_59629:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_WIKIBUILDCINDENT_STRING_ORG,*_FUNC_WIKIBUILDCINDENT_LONG_II, 2 ,0|1),qbs_new_txt_len("}}",2))))||new_error){ +if(qbevent){evnt(26070,1251,"wiki_methods.bas");if(r)goto S_59629;} +do{ +*_FUNC_WIKIBUILDCINDENT_LONG_I=*_FUNC_WIKIBUILDCINDENT_LONG_II; +if(!qbevent)break;evnt(26070,1251,"wiki_methods.bas");}while(r); +do{ +goto fornext_exit_6668; +if(!qbevent)break;evnt(26070,1251,"wiki_methods.bas");}while(r); +} +fornext_continue_6668:; +} +fornext_exit_6668:; +} +S_59635:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_WIKIBUILDCINDENT_STRING_ORG,*_FUNC_WIKIBUILDCINDENT_LONG_I, 2 ,0|1),qbs_new_txt_len("}}",2))))||new_error){ +if(qbevent){evnt(26070,1254,"wiki_methods.bas");if(r)goto S_59635;} +do{ +*_FUNC_WIKIBUILDCINDENT_LONG_I=*_FUNC_WIKIBUILDCINDENT_LONG_I+ 2 ; +if(!qbevent)break;evnt(26070,1254,"wiki_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_WIKIBUILDCINDENT_STRING_B,qbs_add(_FUNC_WIKIBUILDCINDENT_STRING_B,func_mid(_FUNC_WIKIBUILDCINDENT_STRING_ORG,*_FUNC_WIKIBUILDCINDENT_LONG_I, 1 ,0|1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1255,"wiki_methods.bas");}while(r); +fornext_continue_6662:; +} +fornext_exit_6662:; +do{ +qbs_set(_FUNC_WIKIBUILDCINDENT_STRING_ORG,_FUNC_WIKIBUILDCINDENT_STRING_B); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1257,"wiki_methods.bas");}while(r); +do{ +qbs_set(_FUNC_WIKIBUILDCINDENT_STRING_B,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1257,"wiki_methods.bas");}while(r); +S_59642:; +fornext_value6672= 1 ; +fornext_finalvalue6672=_FUNC_WIKIBUILDCINDENT_STRING_ORG->len; +fornext_step6672= 1 ; +if (fornext_step6672<0) fornext_step_negative6672=1; else fornext_step_negative6672=0; +if (new_error) goto fornext_error6672; +goto fornext_entrylabel6672; +while(1){ +fornext_value6672=fornext_step6672+(*_FUNC_WIKIBUILDCINDENT_LONG_I); +fornext_entrylabel6672: +*_FUNC_WIKIBUILDCINDENT_LONG_I=fornext_value6672; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative6672){ +if (fornext_value6672fornext_finalvalue6672) break; +} +fornext_error6672:; +if(qbevent){evnt(26070,1258,"wiki_methods.bas");if(r)goto S_59642;} +S_59643:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_WIKIBUILDCINDENT_STRING_ORG,*_FUNC_WIKIBUILDCINDENT_LONG_I, 3 ,0|1),qbs_new_txt_len("'''",3))))||new_error){ +if(qbevent){evnt(26070,1259,"wiki_methods.bas");if(r)goto S_59643;} +do{ +*_FUNC_WIKIBUILDCINDENT_LONG_I=*_FUNC_WIKIBUILDCINDENT_LONG_I+ 3 ; +if(!qbevent)break;evnt(26070,1259,"wiki_methods.bas");}while(r); +} +S_59646:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_WIKIBUILDCINDENT_STRING_ORG,*_FUNC_WIKIBUILDCINDENT_LONG_I, 2 ,0|1),qbs_new_txt_len("''",2))))||new_error){ +if(qbevent){evnt(26070,1260,"wiki_methods.bas");if(r)goto S_59646;} +do{ +*_FUNC_WIKIBUILDCINDENT_LONG_I=*_FUNC_WIKIBUILDCINDENT_LONG_I+ 2 ; +if(!qbevent)break;evnt(26070,1260,"wiki_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_WIKIBUILDCINDENT_STRING_B,qbs_add(_FUNC_WIKIBUILDCINDENT_STRING_B,func_mid(_FUNC_WIKIBUILDCINDENT_STRING_ORG,*_FUNC_WIKIBUILDCINDENT_LONG_I, 1 ,0|1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1261,"wiki_methods.bas");}while(r); +fornext_continue_6671:; +} +fornext_exit_6671:; +do{ +qbs_set(_FUNC_WIKIBUILDCINDENT_STRING_ORG,_FUNC_WIKIBUILDCINDENT_STRING_B); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1263,"wiki_methods.bas");}while(r); +do{ +qbs_set(_FUNC_WIKIBUILDCINDENT_STRING_B,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1263,"wiki_methods.bas");}while(r); +S_59653:; +fornext_value6675= 1 ; +fornext_finalvalue6675=_FUNC_WIKIBUILDCINDENT_STRING_ORG->len; +fornext_step6675= 1 ; +if (fornext_step6675<0) fornext_step_negative6675=1; else fornext_step_negative6675=0; +if (new_error) goto fornext_error6675; +goto fornext_entrylabel6675; +while(1){ +fornext_value6675=fornext_step6675+(*_FUNC_WIKIBUILDCINDENT_LONG_I); +fornext_entrylabel6675: +*_FUNC_WIKIBUILDCINDENT_LONG_I=fornext_value6675; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative6675){ +if (fornext_value6675fornext_finalvalue6675) break; +} +fornext_error6675:; +if(qbevent){evnt(26070,1264,"wiki_methods.bas");if(r)goto S_59653;} +S_59654:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_WIKIBUILDCINDENT_STRING_ORG,*_FUNC_WIKIBUILDCINDENT_LONG_I, 1 ,0|1),qbs_new_txt_len("&",1))))||new_error){ +if(qbevent){evnt(26070,1265,"wiki_methods.bas");if(r)goto S_59654;} +S_59655:; +fornext_value6678= 0 ; +fornext_finalvalue6678=*__LONG_WPENTREPLCNT; +fornext_step6678= 1 ; +if (fornext_step6678<0) fornext_step_negative6678=1; else fornext_step_negative6678=0; +if (new_error) goto fornext_error6678; +goto fornext_entrylabel6678; +while(1){ +fornext_value6678=fornext_step6678+(*_FUNC_WIKIBUILDCINDENT_LONG_II); +fornext_entrylabel6678: +*_FUNC_WIKIBUILDCINDENT_LONG_II=fornext_value6678; +if (fornext_step_negative6678){ +if (fornext_value6678fornext_finalvalue6678) break; +} +fornext_error6678:; +if(qbevent){evnt(26070,1266,"wiki_methods.bas");if(r)goto S_59655;} +do{ +qbs_set(_FUNC_WIKIBUILDCINDENT_STRING_ENT,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPENTREPL[0])+((array_check((*_FUNC_WIKIBUILDCINDENT_LONG_II)-__ARRAY_UDT_WPENTREPL[4],__ARRAY_UDT_WPENTREPL[5]))*16)),8,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1267,"wiki_methods.bas");}while(r); +S_59657:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(func_mid(_FUNC_WIKIBUILDCINDENT_STRING_ORG,*_FUNC_WIKIBUILDCINDENT_LONG_I,_FUNC_WIKIBUILDCINDENT_STRING_ENT->len,0|1),_FUNC_WIKIBUILDCINDENT_STRING_ENT)))||new_error){ +if(qbevent){evnt(26070,1268,"wiki_methods.bas");if(r)goto S_59657;} +do{ +qbs_set(_FUNC_WIKIBUILDCINDENT_STRING_B,qbs_add(_FUNC_WIKIBUILDCINDENT_STRING_B,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPENTREPL[0])+((array_check((*_FUNC_WIKIBUILDCINDENT_LONG_II)-__ARRAY_UDT_WPENTREPL[4],__ARRAY_UDT_WPENTREPL[5]))*16+8)),8,1)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1269,"wiki_methods.bas");}while(r); +do{ +*_FUNC_WIKIBUILDCINDENT_LONG_I=*_FUNC_WIKIBUILDCINDENT_LONG_I+_FUNC_WIKIBUILDCINDENT_STRING_ENT->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1270,"wiki_methods.bas");}while(r); +do{ +goto LABEL_CHARDONEENT; +if(!qbevent)break;evnt(26070,1270,"wiki_methods.bas");}while(r); +} +fornext_continue_6677:; +} +fornext_exit_6677:; +} +do{ +qbs_set(_FUNC_WIKIBUILDCINDENT_STRING_B,qbs_add(_FUNC_WIKIBUILDCINDENT_STRING_B,func_mid(_FUNC_WIKIBUILDCINDENT_STRING_ORG,*_FUNC_WIKIBUILDCINDENT_LONG_I, 1 ,0|1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1274,"wiki_methods.bas");}while(r); +LABEL_CHARDONEENT:; +if(qbevent){evnt(26070,1275,"wiki_methods.bas");r=0;} +fornext_continue_6674:; +} +fornext_exit_6674:; +do{ +qbs_set(_FUNC_WIKIBUILDCINDENT_STRING_ORG,_FUNC_WIKIBUILDCINDENT_STRING_B); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1277,"wiki_methods.bas");}while(r); +do{ +qbs_set(_FUNC_WIKIBUILDCINDENT_STRING_B,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1277,"wiki_methods.bas");}while(r); +S_59668:; +fornext_value6682= 1 ; +fornext_finalvalue6682=_FUNC_WIKIBUILDCINDENT_STRING_ORG->len; +fornext_step6682= 1 ; +if (fornext_step6682<0) fornext_step_negative6682=1; else fornext_step_negative6682=0; +if (new_error) goto fornext_error6682; +goto fornext_entrylabel6682; +while(1){ +fornext_value6682=fornext_step6682+(*_FUNC_WIKIBUILDCINDENT_LONG_I); +fornext_entrylabel6682: +*_FUNC_WIKIBUILDCINDENT_LONG_I=fornext_value6682; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative6682){ +if (fornext_value6682fornext_finalvalue6682) break; +} +fornext_error6682:; +if(qbevent){evnt(26070,1278,"wiki_methods.bas");if(r)goto S_59668;} +S_59669:; +if ((qbs_cleanup(qbs_tmp_base,-((*_FUNC_WIKIBUILDCINDENT_LONG_I+ 1 )<=(_FUNC_WIKIBUILDCINDENT_STRING_ORG->len))))||new_error){ +if(qbevent){evnt(26070,1279,"wiki_methods.bas");if(r)goto S_59669;} +S_59670:; +if ((qbs_cleanup(qbs_tmp_base,(-((qbs_asc(_FUNC_WIKIBUILDCINDENT_STRING_ORG,*_FUNC_WIKIBUILDCINDENT_LONG_I)& 224 )== 192 ))&(-((qbs_asc(_FUNC_WIKIBUILDCINDENT_STRING_ORG,*_FUNC_WIKIBUILDCINDENT_LONG_I+ 1 )& 192 )== 128 ))))||new_error){ +if(qbevent){evnt(26070,1280,"wiki_methods.bas");if(r)goto S_59670;} +do{ +qbs_set(_FUNC_WIKIBUILDCINDENT_STRING_UTF,qbs_add(func_mid(_FUNC_WIKIBUILDCINDENT_STRING_ORG,*_FUNC_WIKIBUILDCINDENT_LONG_I, 2 ,0|1),i2string( 8224 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1281,"wiki_methods.bas");}while(r); +do{ +*_FUNC_WIKIBUILDCINDENT_LONG_I=*_FUNC_WIKIBUILDCINDENT_LONG_I+ 2 ; +if(!qbevent)break;evnt(26070,1281,"wiki_methods.bas");}while(r); +S_59673:; +fornext_value6686= 0 ; +fornext_finalvalue6686=*__LONG_WPUTFREPLCNT; +fornext_step6686= 1 ; +if (fornext_step6686<0) fornext_step_negative6686=1; else fornext_step_negative6686=0; +if (new_error) goto fornext_error6686; +goto fornext_entrylabel6686; +while(1){ +fornext_value6686=fornext_step6686+(*_FUNC_WIKIBUILDCINDENT_LONG_II); +fornext_entrylabel6686: +*_FUNC_WIKIBUILDCINDENT_LONG_II=fornext_value6686; +if (fornext_step_negative6686){ +if (fornext_value6686fornext_finalvalue6686) break; +} +fornext_error6686:; +if(qbevent){evnt(26070,1282,"wiki_methods.bas");if(r)goto S_59673;} +S_59674:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*_FUNC_WIKIBUILDCINDENT_LONG_II)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12)),4,1),_FUNC_WIKIBUILDCINDENT_STRING_UTF)))||new_error){ +if(qbevent){evnt(26070,1283,"wiki_methods.bas");if(r)goto S_59674;} +do{ +qbs_set(_FUNC_WIKIBUILDCINDENT_STRING_B,qbs_add(_FUNC_WIKIBUILDCINDENT_STRING_B,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*_FUNC_WIKIBUILDCINDENT_LONG_II)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4)),8,1)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1284,"wiki_methods.bas");}while(r); +do{ +goto LABEL_CHARDONEUTF; +if(!qbevent)break;evnt(26070,1284,"wiki_methods.bas");}while(r); +} +fornext_continue_6685:; +} +fornext_exit_6685:; +do{ +qbs_set(_FUNC_WIKIBUILDCINDENT_STRING_B,qbs_add(_FUNC_WIKIBUILDCINDENT_STRING_B,func_chr( 168 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1287,"wiki_methods.bas");}while(r); +do{ +goto LABEL_CHARDONEUTF; +if(!qbevent)break;evnt(26070,1287,"wiki_methods.bas");}while(r); +} +} +S_59683:; +if ((qbs_cleanup(qbs_tmp_base,-((*_FUNC_WIKIBUILDCINDENT_LONG_I+ 2 )<=(_FUNC_WIKIBUILDCINDENT_STRING_ORG->len))))||new_error){ +if(qbevent){evnt(26070,1290,"wiki_methods.bas");if(r)goto S_59683;} +S_59684:; +if ((qbs_cleanup(qbs_tmp_base,(-((qbs_asc(_FUNC_WIKIBUILDCINDENT_STRING_ORG,*_FUNC_WIKIBUILDCINDENT_LONG_I)& 240 )== 224 ))&(-((qbs_asc(_FUNC_WIKIBUILDCINDENT_STRING_ORG,*_FUNC_WIKIBUILDCINDENT_LONG_I+ 1 )& 192 )== 128 ))&(-((qbs_asc(_FUNC_WIKIBUILDCINDENT_STRING_ORG,*_FUNC_WIKIBUILDCINDENT_LONG_I+ 2 )& 192 )== 128 ))))||new_error){ +if(qbevent){evnt(26070,1291,"wiki_methods.bas");if(r)goto S_59684;} +do{ +qbs_set(_FUNC_WIKIBUILDCINDENT_STRING_UTF,qbs_add(func_mid(_FUNC_WIKIBUILDCINDENT_STRING_ORG,*_FUNC_WIKIBUILDCINDENT_LONG_I, 3 ,0|1),func_chr( 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1292,"wiki_methods.bas");}while(r); +do{ +*_FUNC_WIKIBUILDCINDENT_LONG_I=*_FUNC_WIKIBUILDCINDENT_LONG_I+ 3 ; +if(!qbevent)break;evnt(26070,1292,"wiki_methods.bas");}while(r); +S_59687:; +fornext_value6689= 0 ; +fornext_finalvalue6689=*__LONG_WPUTFREPLCNT; +fornext_step6689= 1 ; +if (fornext_step6689<0) fornext_step_negative6689=1; else fornext_step_negative6689=0; +if (new_error) goto fornext_error6689; +goto fornext_entrylabel6689; +while(1){ +fornext_value6689=fornext_step6689+(*_FUNC_WIKIBUILDCINDENT_LONG_II); +fornext_entrylabel6689: +*_FUNC_WIKIBUILDCINDENT_LONG_II=fornext_value6689; +if (fornext_step_negative6689){ +if (fornext_value6689fornext_finalvalue6689) break; +} +fornext_error6689:; +if(qbevent){evnt(26070,1293,"wiki_methods.bas");if(r)goto S_59687;} +S_59688:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*_FUNC_WIKIBUILDCINDENT_LONG_II)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12)),4,1),_FUNC_WIKIBUILDCINDENT_STRING_UTF)))||new_error){ +if(qbevent){evnt(26070,1294,"wiki_methods.bas");if(r)goto S_59688;} +do{ +qbs_set(_FUNC_WIKIBUILDCINDENT_STRING_B,qbs_add(_FUNC_WIKIBUILDCINDENT_STRING_B,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*_FUNC_WIKIBUILDCINDENT_LONG_II)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4)),8,1)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1295,"wiki_methods.bas");}while(r); +do{ +goto LABEL_CHARDONEUTF; +if(!qbevent)break;evnt(26070,1295,"wiki_methods.bas");}while(r); +} +fornext_continue_6688:; +} +fornext_exit_6688:; +do{ +qbs_set(_FUNC_WIKIBUILDCINDENT_STRING_B,qbs_add(_FUNC_WIKIBUILDCINDENT_STRING_B,func_chr( 168 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1298,"wiki_methods.bas");}while(r); +do{ +goto LABEL_CHARDONEUTF; +if(!qbevent)break;evnt(26070,1298,"wiki_methods.bas");}while(r); +} +} +S_59697:; +if ((qbs_cleanup(qbs_tmp_base,-((*_FUNC_WIKIBUILDCINDENT_LONG_I+ 3 )<=(_FUNC_WIKIBUILDCINDENT_STRING_ORG->len))))||new_error){ +if(qbevent){evnt(26070,1301,"wiki_methods.bas");if(r)goto S_59697;} +S_59698:; +if ((qbs_cleanup(qbs_tmp_base,(-((qbs_asc(_FUNC_WIKIBUILDCINDENT_STRING_ORG,*_FUNC_WIKIBUILDCINDENT_LONG_I)& 248 )== 240 ))&(-((qbs_asc(_FUNC_WIKIBUILDCINDENT_STRING_ORG,*_FUNC_WIKIBUILDCINDENT_LONG_I+ 1 )& 192 )== 128 ))&(-((qbs_asc(_FUNC_WIKIBUILDCINDENT_STRING_ORG,*_FUNC_WIKIBUILDCINDENT_LONG_I+ 2 )& 192 )== 128 ))&(-((qbs_asc(_FUNC_WIKIBUILDCINDENT_STRING_ORG,*_FUNC_WIKIBUILDCINDENT_LONG_I+ 3 )& 192 )== 128 ))))||new_error){ +if(qbevent){evnt(26070,1302,"wiki_methods.bas");if(r)goto S_59698;} +do{ +qbs_set(_FUNC_WIKIBUILDCINDENT_STRING_UTF,func_mid(_FUNC_WIKIBUILDCINDENT_STRING_ORG,*_FUNC_WIKIBUILDCINDENT_LONG_I, 4 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1303,"wiki_methods.bas");}while(r); +do{ +*_FUNC_WIKIBUILDCINDENT_LONG_I=*_FUNC_WIKIBUILDCINDENT_LONG_I+ 4 ; +if(!qbevent)break;evnt(26070,1303,"wiki_methods.bas");}while(r); +S_59701:; +fornext_value6692= 0 ; +fornext_finalvalue6692=*__LONG_WPUTFREPLCNT; +fornext_step6692= 1 ; +if (fornext_step6692<0) fornext_step_negative6692=1; else fornext_step_negative6692=0; +if (new_error) goto fornext_error6692; +goto fornext_entrylabel6692; +while(1){ +fornext_value6692=fornext_step6692+(*_FUNC_WIKIBUILDCINDENT_LONG_II); +fornext_entrylabel6692: +*_FUNC_WIKIBUILDCINDENT_LONG_II=fornext_value6692; +if (fornext_step_negative6692){ +if (fornext_value6692fornext_finalvalue6692) break; +} +fornext_error6692:; +if(qbevent){evnt(26070,1304,"wiki_methods.bas");if(r)goto S_59701;} +S_59702:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*_FUNC_WIKIBUILDCINDENT_LONG_II)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12)),4,1),_FUNC_WIKIBUILDCINDENT_STRING_UTF)))||new_error){ +if(qbevent){evnt(26070,1305,"wiki_methods.bas");if(r)goto S_59702;} +do{ +qbs_set(_FUNC_WIKIBUILDCINDENT_STRING_B,qbs_add(_FUNC_WIKIBUILDCINDENT_STRING_B,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_WPUTFREPL[0])+((array_check((*_FUNC_WIKIBUILDCINDENT_LONG_II)-__ARRAY_UDT_WPUTFREPL[4],__ARRAY_UDT_WPUTFREPL[5]))*12+4)),8,1)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1306,"wiki_methods.bas");}while(r); +do{ +goto LABEL_CHARDONEUTF; +if(!qbevent)break;evnt(26070,1306,"wiki_methods.bas");}while(r); +} +fornext_continue_6691:; +} +fornext_exit_6691:; +do{ +qbs_set(_FUNC_WIKIBUILDCINDENT_STRING_B,qbs_add(_FUNC_WIKIBUILDCINDENT_STRING_B,func_chr( 168 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1309,"wiki_methods.bas");}while(r); +do{ +goto LABEL_CHARDONEUTF; +if(!qbevent)break;evnt(26070,1309,"wiki_methods.bas");}while(r); +} +} +do{ +qbs_set(_FUNC_WIKIBUILDCINDENT_STRING_B,qbs_add(_FUNC_WIKIBUILDCINDENT_STRING_B,func_mid(_FUNC_WIKIBUILDCINDENT_STRING_ORG,*_FUNC_WIKIBUILDCINDENT_LONG_I, 1 ,0|1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1312,"wiki_methods.bas");}while(r); +LABEL_CHARDONEUTF:; +if(qbevent){evnt(26070,1313,"wiki_methods.bas");r=0;} +fornext_continue_6681:; +} +fornext_exit_6681:; +do{ +qbs_set(_FUNC_WIKIBUILDCINDENT_STRING_B,FUNC_STRREPLACE(_FUNC_WIKIBUILDCINDENT_STRING_B,qbs_add(qbs_new_txt_len("
",4),func_chr( 10 )),func_chr( 10 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1315,"wiki_methods.bas");}while(r); +do{ +qbs_set(_FUNC_WIKIBUILDCINDENT_STRING_B,FUNC_STRREPLACE(_FUNC_WIKIBUILDCINDENT_STRING_B,qbs_new_txt_len("
",4),func_chr( 10 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1316,"wiki_methods.bas");}while(r); +do{ +qbs_set(_FUNC_WIKIBUILDCINDENT_STRING_B,FUNC_STRREPLACE(_FUNC_WIKIBUILDCINDENT_STRING_B,qbs_add(qbs_new_txt_len("
",6),func_chr( 10 )),func_chr( 10 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1317,"wiki_methods.bas");}while(r); +do{ +qbs_set(_FUNC_WIKIBUILDCINDENT_STRING_B,FUNC_STRREPLACE(_FUNC_WIKIBUILDCINDENT_STRING_B,qbs_new_txt_len("
",6),func_chr( 10 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1318,"wiki_methods.bas");}while(r); +do{ +qbs_set(_FUNC_WIKIBUILDCINDENT_STRING_B,qbs_add(qbs__trim(_FUNC_WIKIBUILDCINDENT_STRING_B),func_chr( 10 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1319,"wiki_methods.bas");}while(r); +do{ +*_FUNC_WIKIBUILDCINDENT_LONG_I= 1 ; +if(!qbevent)break;evnt(26070,1321,"wiki_methods.bas");}while(r); +do{ +*_FUNC_WIKIBUILDCINDENT_LONG_ST= 1 ; +if(!qbevent)break;evnt(26070,1321,"wiki_methods.bas");}while(r); +do{ +*_FUNC_WIKIBUILDCINDENT_LONG_BR= 0 ; +if(!qbevent)break;evnt(26070,1321,"wiki_methods.bas");}while(r); +do{ +qbs_set(_FUNC_WIKIBUILDCINDENT_STRING_RES,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1321,"wiki_methods.bas");}while(r); +S_59722:; +while((qbs_cleanup(qbs_tmp_base,-(*_FUNC_WIKIBUILDCINDENT_LONG_I<=_FUNC_WIKIBUILDCINDENT_STRING_B->len)))||new_error){ +if(qbevent){evnt(26070,1322,"wiki_methods.bas");if(r)goto S_59722;} +do{ +*_FUNC_WIKIBUILDCINDENT_LONG_WS=func_instr(*_FUNC_WIKIBUILDCINDENT_LONG_I,_FUNC_WIKIBUILDCINDENT_STRING_B,qbs_new_txt_len(" ",1),0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1323,"wiki_methods.bas");}while(r); +do{ +*_FUNC_WIKIBUILDCINDENT_LONG_LB=func_instr(*_FUNC_WIKIBUILDCINDENT_LONG_I,_FUNC_WIKIBUILDCINDENT_STRING_B,func_chr( 10 ),0|1); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1323,"wiki_methods.bas");}while(r); +S_59725:; +if (((-(*_FUNC_WIKIBUILDCINDENT_LONG_LB> 0 ))&(((-(*_FUNC_WIKIBUILDCINDENT_LONG_WS>*_FUNC_WIKIBUILDCINDENT_LONG_LB))|(-((*_FUNC_WIKIBUILDCINDENT_LONG_LB-*_FUNC_WIKIBUILDCINDENT_LONG_ST)<=*__LONG_HELP_WW)))))||new_error){ +if(qbevent){evnt(26070,1324,"wiki_methods.bas");if(r)goto S_59725;} +do{ +swap_32(&*_FUNC_WIKIBUILDCINDENT_LONG_WS,&*_FUNC_WIKIBUILDCINDENT_LONG_LB); +if(!qbevent)break;evnt(26070,1324,"wiki_methods.bas");}while(r); +} +S_59728:; +if (((-(*_FUNC_WIKIBUILDCINDENT_LONG_WS> 0 ))&(-((*_FUNC_WIKIBUILDCINDENT_LONG_WS-*_FUNC_WIKIBUILDCINDENT_LONG_ST)<=*__LONG_HELP_WW)))||new_error){ +if(qbevent){evnt(26070,1325,"wiki_methods.bas");if(r)goto S_59728;} +do{ +*_FUNC_WIKIBUILDCINDENT_LONG_BR=*_FUNC_WIKIBUILDCINDENT_LONG_WS; +if(!qbevent)break;evnt(26070,1326,"wiki_methods.bas");}while(r); +do{ +*_FUNC_WIKIBUILDCINDENT_LONG_I=*_FUNC_WIKIBUILDCINDENT_LONG_WS+ 1 ; +if(!qbevent)break;evnt(26070,1326,"wiki_methods.bas");}while(r); +S_59731:; +if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(_FUNC_WIKIBUILDCINDENT_STRING_B,*_FUNC_WIKIBUILDCINDENT_LONG_WS)!= 10 ))&(-(*_FUNC_WIKIBUILDCINDENT_LONG_I<=_FUNC_WIKIBUILDCINDENT_STRING_B->len))))||new_error){ +if(qbevent){evnt(26070,1327,"wiki_methods.bas");if(r)goto S_59731;} +do{ +goto ww_continue_6693; +if(!qbevent)break;evnt(26070,1327,"wiki_methods.bas");}while(r); +} +} +S_59735:; +if ((-(*_FUNC_WIKIBUILDCINDENT_LONG_BR== 0 ))||new_error){ +if(qbevent){evnt(26070,1329,"wiki_methods.bas");if(r)goto S_59735;} +S_59736:; +if ((-(*_FUNC_WIKIBUILDCINDENT_LONG_LB<*_FUNC_WIKIBUILDCINDENT_LONG_WS))||new_error){ +if(qbevent){evnt(26070,1330,"wiki_methods.bas");if(r)goto S_59736;} +do{ +*_FUNC_WIKIBUILDCINDENT_LONG_BR=*_FUNC_WIKIBUILDCINDENT_LONG_LB; +if(!qbevent)break;evnt(26070,1331,"wiki_methods.bas");}while(r); +}else{ +S_59739:; +if ((-(*_FUNC_WIKIBUILDCINDENT_LONG_WS> 0 ))||new_error){ +if(qbevent){evnt(26070,1333,"wiki_methods.bas");if(r)goto S_59739;} +do{ +*_FUNC_WIKIBUILDCINDENT_LONG_BR=*_FUNC_WIKIBUILDCINDENT_LONG_WS; +if(!qbevent)break;evnt(26070,1333,"wiki_methods.bas");}while(r); +}else{ +do{ +*_FUNC_WIKIBUILDCINDENT_LONG_BR=*_FUNC_WIKIBUILDCINDENT_LONG_LB; +if(!qbevent)break;evnt(26070,1333,"wiki_methods.bas");}while(r); +} +} +} +do{ +*_FUNC_WIKIBUILDCINDENT_LONG_CI=(*__LONG_HELP_WW-(*_FUNC_WIKIBUILDCINDENT_LONG_BR-*_FUNC_WIKIBUILDCINDENT_LONG_ST))/ 2 ; +if(!qbevent)break;evnt(26070,1336,"wiki_methods.bas");}while(r); +S_59747:; +if ((-(*_FUNC_WIKIBUILDCINDENT_LONG_CI< 0 ))||new_error){ +if(qbevent){evnt(26070,1336,"wiki_methods.bas");if(r)goto S_59747;} +do{ +*_FUNC_WIKIBUILDCINDENT_LONG_CI= 0 ; +if(!qbevent)break;evnt(26070,1336,"wiki_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_WIKIBUILDCINDENT_STRING_RES,qbs_add(_FUNC_WIKIBUILDCINDENT_STRING_RES,func_chr(*_FUNC_WIKIBUILDCINDENT_LONG_CI))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1337,"wiki_methods.bas");}while(r); +do{ +*_FUNC_WIKIBUILDCINDENT_LONG_I=*_FUNC_WIKIBUILDCINDENT_LONG_BR+ 1 ; +if(!qbevent)break;evnt(26070,1338,"wiki_methods.bas");}while(r); +do{ +*_FUNC_WIKIBUILDCINDENT_LONG_ST=*_FUNC_WIKIBUILDCINDENT_LONG_BR+ 1 ; +if(!qbevent)break;evnt(26070,1338,"wiki_methods.bas");}while(r); +do{ +*_FUNC_WIKIBUILDCINDENT_LONG_BR= 0 ; +if(!qbevent)break;evnt(26070,1338,"wiki_methods.bas");}while(r); +ww_continue_6693:; +} +ww_exit_6693:; +do{ +qbs_set(_FUNC_WIKIBUILDCINDENT_STRING_WIKIBUILDCINDENT,_FUNC_WIKIBUILDCINDENT_STRING_RES); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,1340,"wiki_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free292.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_WIKIBUILDCINDENT_STRING_WIKIBUILDCINDENT);return _FUNC_WIKIBUILDCINDENT_STRING_WIKIBUILDCINDENT; +} +void SUB_PRINTWRAPSTATUS(int16*_SUB_PRINTWRAPSTATUS_INTEGER_X,int16*_SUB_PRINTWRAPSTATUS_INTEGER_Y,int16*_SUB_PRINTWRAPSTATUS_INTEGER_INITIALX,qbs*_SUB_PRINTWRAPSTATUS_STRING___TEXT){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data293.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +if(!qbevent)break;evnt(26070,20133,"ide_methods.bas");}while(r); +do{ +if(!qbevent)break;evnt(26070,20134,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_PRINTWRAPSTATUS_STRING_TEXT,_SUB_PRINTWRAPSTATUS_STRING___TEXT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20135,"ide_methods.bas");}while(r); +do{ +qbg_sub_locate(*_SUB_PRINTWRAPSTATUS_INTEGER_Y,*_SUB_PRINTWRAPSTATUS_INTEGER_X,NULL,NULL,NULL,3); +if(!qbevent)break;evnt(26070,20137,"ide_methods.bas");}while(r); +S_59760:; +while((qbs_cleanup(qbs_tmp_base,((int32)(qbs__trim(_SUB_PRINTWRAPSTATUS_STRING_TEXT))->len)))||new_error){ +if(qbevent){evnt(26070,20138,"ide_methods.bas");if(r)goto S_59760;} +do{ +*_SUB_PRINTWRAPSTATUS_INTEGER_FINDSEP=func_instr(NULL,_SUB_PRINTWRAPSTATUS_STRING_TEXT,qbs_new_txt_len(" ",1),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20139,"ide_methods.bas");}while(r); +S_59762:; +if ((*_SUB_PRINTWRAPSTATUS_INTEGER_FINDSEP)||new_error){ +if(qbevent){evnt(26070,20140,"ide_methods.bas");if(r)goto S_59762;} +do{ +qbs_set(_SUB_PRINTWRAPSTATUS_STRING_NEXTWORD,qbs_left(_SUB_PRINTWRAPSTATUS_STRING_TEXT,*_SUB_PRINTWRAPSTATUS_INTEGER_FINDSEP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20141,"ide_methods.bas");}while(r); +}else{ +do{ +*_SUB_PRINTWRAPSTATUS_INTEGER_FINDSEP=_SUB_PRINTWRAPSTATUS_STRING_TEXT->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20143,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_PRINTWRAPSTATUS_STRING_NEXTWORD,_SUB_PRINTWRAPSTATUS_STRING_TEXT); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20144,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_PRINTWRAPSTATUS_STRING_TEXT,func_mid(_SUB_PRINTWRAPSTATUS_STRING_TEXT,*_SUB_PRINTWRAPSTATUS_INTEGER_FINDSEP+ 1 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20146,"ide_methods.bas");}while(r); +S_59769:; +if ((qbs_cleanup(qbs_tmp_base,-((func_pos( 0 )+_SUB_PRINTWRAPSTATUS_STRING_NEXTWORD->len)>(func__width(NULL,0)))))||new_error){ +if(qbevent){evnt(26070,20147,"ide_methods.bas");if(r)goto S_59769;} +S_59770:; +if ((-((func_csrlin()+ 1 )<=((*__LONG_IDEWY- 4 )+ 3 )))||new_error){ +if(qbevent){evnt(26070,20148,"ide_methods.bas");if(r)goto S_59770;} +do{ +qbg_sub_locate(func_csrlin()+ 1 ,*_SUB_PRINTWRAPSTATUS_INTEGER_INITIALX,NULL,NULL,NULL,3); +if(!qbevent)break;evnt(26070,20149,"ide_methods.bas");}while(r); +}else{ +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,20152,"ide_methods.bas");}while(r); +} +} +do{ +*_SUB_PRINTWRAPSTATUS_INTEGER_CHANGECOLOR= 0 ; +if(!qbevent)break;evnt(26070,20156,"ide_methods.bas");}while(r); +do{ +*_SUB_PRINTWRAPSTATUS_INTEGER_CHANGECOLORAFTER= 0 ; +if(!qbevent)break;evnt(26070,20157,"ide_methods.bas");}while(r); +do{ +*_SUB_PRINTWRAPSTATUS_LONG_SKIPSPACE= 0 ; +if(!qbevent)break;evnt(26070,20158,"ide_methods.bas");}while(r); +S_59779:; +fornext_value6701= 0 ; +fornext_finalvalue6701= 2 ; +fornext_step6701= 1 ; +if (fornext_step6701<0) fornext_step_negative6701=1; else fornext_step_negative6701=0; +if (new_error) goto fornext_error6701; +goto fornext_entrylabel6701; +while(1){ +fornext_value6701=fornext_step6701+(*_SUB_PRINTWRAPSTATUS_INTEGER_I); +fornext_entrylabel6701: +*_SUB_PRINTWRAPSTATUS_INTEGER_I=fornext_value6701; +if (fornext_step_negative6701){ +if (fornext_value6701fornext_finalvalue6701) break; +} +fornext_error6701:; +if(qbevent){evnt(26070,20159,"ide_methods.bas");if(r)goto S_59779;} +do{ +*_SUB_PRINTWRAPSTATUS_INTEGER_FINDCOLORMARKER=func_instr(NULL,_SUB_PRINTWRAPSTATUS_STRING_NEXTWORD,func_chr(*_SUB_PRINTWRAPSTATUS_INTEGER_I),0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20160,"ide_methods.bas");}while(r); +S_59781:; +if ((-(*_SUB_PRINTWRAPSTATUS_INTEGER_FINDCOLORMARKER== 1 ))||new_error){ +if(qbevent){evnt(26070,20161,"ide_methods.bas");if(r)goto S_59781;} +do{ +qbs_set(_SUB_PRINTWRAPSTATUS_STRING_NEXTWORD,func_mid(_SUB_PRINTWRAPSTATUS_STRING_NEXTWORD, 2 ,NULL,0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20162,"ide_methods.bas");}while(r); +do{ +*_SUB_PRINTWRAPSTATUS_INTEGER_CHANGECOLOR=*_SUB_PRINTWRAPSTATUS_INTEGER_I+ 1 ; +if(!qbevent)break;evnt(26070,20163,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=181; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_APPLYCOLORCHANGE; +RETURN_181:; +if(!qbevent)break;evnt(26070,20164,"ide_methods.bas");}while(r); +S_59785:; +}else{ +if (-(*_SUB_PRINTWRAPSTATUS_INTEGER_FINDCOLORMARKER> 0 )){ +if(qbevent){evnt(26070,20165,"ide_methods.bas");if(r)goto S_59785;} +do{ +qbs_set(_SUB_PRINTWRAPSTATUS_STRING_NEXTWORD,qbs_add(qbs_left(_SUB_PRINTWRAPSTATUS_STRING_NEXTWORD,*_SUB_PRINTWRAPSTATUS_INTEGER_FINDCOLORMARKER- 1 ),func_mid(_SUB_PRINTWRAPSTATUS_STRING_NEXTWORD,*_SUB_PRINTWRAPSTATUS_INTEGER_FINDCOLORMARKER+ 1 ,NULL,0))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20166,"ide_methods.bas");}while(r); +S_59787:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_SUB_PRINTWRAPSTATUS_STRING_NEXTWORD, 1 ),qbs_new_txt_len(" ",1))))||new_error){ +if(qbevent){evnt(26070,20167,"ide_methods.bas");if(r)goto S_59787;} +do{ +qbs_set(_SUB_PRINTWRAPSTATUS_STRING_NEXTWORD,qbs_rtrim(_SUB_PRINTWRAPSTATUS_STRING_NEXTWORD)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20168,"ide_methods.bas");}while(r); +do{ +*_SUB_PRINTWRAPSTATUS_LONG_SKIPSPACE= -1 ; +if(!qbevent)break;evnt(26070,20169,"ide_methods.bas");}while(r); +} +do{ +*_SUB_PRINTWRAPSTATUS_INTEGER_CHANGECOLORAFTER=*_SUB_PRINTWRAPSTATUS_INTEGER_I+ 1 ; +if(!qbevent)break;evnt(26070,20171,"ide_methods.bas");}while(r); +} +} +fornext_continue_6700:; +} +fornext_exit_6700:; +do{ +tqbs=qbs_new(0,0); +qbs_set(tqbs,_SUB_PRINTWRAPSTATUS_STRING_NEXTWORD); +if (new_error) goto skip6702; +makefit(tqbs); +qbs_print(tqbs,0); +skip6702: +qbs_free(tqbs); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20175,"ide_methods.bas");}while(r); +S_59795:; +if ((*_SUB_PRINTWRAPSTATUS_INTEGER_CHANGECOLORAFTER)||new_error){ +if(qbevent){evnt(26070,20177,"ide_methods.bas");if(r)goto S_59795;} +do{ +*_SUB_PRINTWRAPSTATUS_INTEGER_CHANGECOLOR=*_SUB_PRINTWRAPSTATUS_INTEGER_CHANGECOLORAFTER; +if(!qbevent)break;evnt(26070,20178,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=182; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_APPLYCOLORCHANGE; +RETURN_182:; +if(!qbevent)break;evnt(26070,20179,"ide_methods.bas");}while(r); +S_59798:; +if ((*_SUB_PRINTWRAPSTATUS_LONG_SKIPSPACE)||new_error){ +if(qbevent){evnt(26070,20180,"ide_methods.bas");if(r)goto S_59798;} +do{ +qbg_sub_locate(NULL,func_pos( 0 )+ 1 ,NULL,NULL,NULL,2); +if(!qbevent)break;evnt(26070,20180,"ide_methods.bas");}while(r); +} +} +dl_continue_6697:; +} +dl_exit_6697:; +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,20183,"ide_methods.bas");}while(r); +LABEL_APPLYCOLORCHANGE:; +if(qbevent){evnt(26070,20185,"ide_methods.bas");r=0;} +S_59804:; +sc_6703_var=0; +if(qbevent){evnt(26070,20186,"ide_methods.bas");if(r)goto S_59804;} +S_59805:; +if (((*_SUB_PRINTWRAPSTATUS_INTEGER_CHANGECOLOR==( 1 )))||new_error){ +if(qbevent){evnt(26070,20187,"ide_methods.bas");if(r)goto S_59805;} +S_59806:; +if ((-(func__defaultcolor(NULL,0)!= 11 ))||new_error){ +if(qbevent){evnt(26070,20188,"ide_methods.bas");if(r)goto S_59806;} +do{ +qbg_sub_color( 11 ,NULL,NULL,1); +if(!qbevent)break;evnt(26070,20188,"ide_methods.bas");}while(r); +}else{ +do{ +qbg_sub_color( 7 ,NULL,NULL,1); +if(!qbevent)break;evnt(26070,20188,"ide_methods.bas");}while(r); +} +sc_ec_445_end:; +sc_6703_var=-1; +} +S_59811:; +if (((*_SUB_PRINTWRAPSTATUS_INTEGER_CHANGECOLOR==( 2 )))||new_error){ +if(qbevent){evnt(26070,20189,"ide_methods.bas");if(r)goto S_59811;} +do{ +qbg_sub_color( 7 , 1 ,NULL,3); +if(!qbevent)break;evnt(26070,20190,"ide_methods.bas");}while(r); +sc_ec_446_end:; +sc_6703_var=-1; +} +S_59813:; +if (((*_SUB_PRINTWRAPSTATUS_INTEGER_CHANGECOLOR==( 3 )))||new_error){ +if(qbevent){evnt(26070,20191,"ide_methods.bas");if(r)goto S_59813;} +do{ +qbg_sub_color( 12 , 6 ,NULL,3); +if(!qbevent)break;evnt(26070,20192,"ide_methods.bas");}while(r); +sc_ec_447_end:; +} +sc_6703_end:; +do{ +#include "ret293.txt" +if(!qbevent)break;evnt(26070,20194,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free293.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +qbs* FUNC_GETBYTES(qbs*_FUNC_GETBYTES_STRING___VALUE,int32*_FUNC_GETBYTES_LONG_NUMBEROFBYTES){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data294.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +if(!qbevent)break;evnt(26070,20198,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_GETBYTES_STRING_VALUE,_FUNC_GETBYTES_STRING___VALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20200,"ide_methods.bas");}while(r); +S_59819:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_FUNC_GETBYTES_STRING_VALUE,_FUNC_GETBYTES_STRING_PREVIOUSVALUE)))||new_error){ +if(qbevent){evnt(26070,20201,"ide_methods.bas");if(r)goto S_59819;} +do{ +qbs_set(_FUNC_GETBYTES_STRING_PREVIOUSVALUE,_FUNC_GETBYTES_STRING_VALUE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20202,"ide_methods.bas");}while(r); +do{ +*_FUNC_GETBYTES_LONG_GETBYTESPOSITION= 1 ; +if(!qbevent)break;evnt(26070,20203,"ide_methods.bas");}while(r); +} +S_59823:; +if ((-(*_FUNC_GETBYTES_LONG_NUMBEROFBYTES== 0 ))||new_error){ +if(qbevent){evnt(26070,20206,"ide_methods.bas");if(r)goto S_59823;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,20206,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_GETBYTES_STRING_GETBYTES,func_mid(_FUNC_GETBYTES_STRING_VALUE,*_FUNC_GETBYTES_LONG_GETBYTESPOSITION,*_FUNC_GETBYTES_LONG_NUMBEROFBYTES,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20208,"ide_methods.bas");}while(r); +do{ +*_FUNC_GETBYTES_LONG_GETBYTESPOSITION=*_FUNC_GETBYTES_LONG_GETBYTESPOSITION+*_FUNC_GETBYTES_LONG_NUMBEROFBYTES; +if(!qbevent)break;evnt(26070,20209,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free294.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_GETBYTES_STRING_GETBYTES);return _FUNC_GETBYTES_STRING_GETBYTES; +} +void SUB_RETRIEVESEARCHHISTORY(ptrszint*_SUB_RETRIEVESEARCHHISTORY_ARRAY_STRING_SEARCHHISTORY){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data295.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +*_SUB_RETRIEVESEARCHHISTORY_LONG_FH=func_freefile(); +if(!qbevent)break;evnt(26070,20213,"ide_methods.bas");}while(r); +do{ +sub_open(qbs_new_txt_len(".\\internal\\temp\\searched.bin",28), 2 ,NULL,NULL,*_SUB_RETRIEVESEARCHHISTORY_LONG_FH,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20214,"ide_methods.bas");}while(r); +do{ if (_SUB_RETRIEVESEARCHHISTORY_ARRAY_STRING_SEARCHHISTORY[2]&2){ error(10); @@ -202949,21 +202949,21 @@ while(tmp_long--) ((uint64*)(_SUB_RETRIEVESEARCHHISTORY_ARRAY_STRING_SEARCHHISTO while(tmp_long--) ((uint64*)(_SUB_RETRIEVESEARCHHISTORY_ARRAY_STRING_SEARCHHISTORY[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -} -if(!qbevent)break;evnt(26070,20215,"ide_methods.bas");}while(r); -S_59831:; -if ((func_lof(*_SUB_RETRIEVESEARCHHISTORY_LONG_FH))||new_error){ -if(qbevent){evnt(26070,20216,"ide_methods.bas");if(r)goto S_59831;} -S_59832:; -while((!(func_eof(*_SUB_RETRIEVESEARCHHISTORY_LONG_FH)))||new_error){ -if(qbevent){evnt(26070,20217,"ide_methods.bas");if(r)goto S_59832;} -do{ -*_SUB_RETRIEVESEARCHHISTORY_LONG_LN=*_SUB_RETRIEVESEARCHHISTORY_LONG_LN+ 1 ; -if(!qbevent)break;evnt(26070,20218,"ide_methods.bas");}while(r); -S_59834:; -if ((qbs_cleanup(qbs_tmp_base,-(*_SUB_RETRIEVESEARCHHISTORY_LONG_LN>func_ubound(_SUB_RETRIEVESEARCHHISTORY_ARRAY_STRING_SEARCHHISTORY,1,1))))||new_error){ -if(qbevent){evnt(26070,20219,"ide_methods.bas");if(r)goto S_59834;} -do{ +} +if(!qbevent)break;evnt(26070,20215,"ide_methods.bas");}while(r); +S_59831:; +if ((func_lof(*_SUB_RETRIEVESEARCHHISTORY_LONG_FH))||new_error){ +if(qbevent){evnt(26070,20216,"ide_methods.bas");if(r)goto S_59831;} +S_59832:; +while((!(func_eof(*_SUB_RETRIEVESEARCHHISTORY_LONG_FH)))||new_error){ +if(qbevent){evnt(26070,20217,"ide_methods.bas");if(r)goto S_59832;} +do{ +*_SUB_RETRIEVESEARCHHISTORY_LONG_LN=*_SUB_RETRIEVESEARCHHISTORY_LONG_LN+ 1 ; +if(!qbevent)break;evnt(26070,20218,"ide_methods.bas");}while(r); +S_59834:; +if ((qbs_cleanup(qbs_tmp_base,-(*_SUB_RETRIEVESEARCHHISTORY_LONG_LN>func_ubound(_SUB_RETRIEVESEARCHHISTORY_ARRAY_STRING_SEARCHHISTORY,1,1))))||new_error){ +if(qbevent){evnt(26070,20219,"ide_methods.bas");if(r)goto S_59834;} +do{ if (_SUB_RETRIEVESEARCHHISTORY_ARRAY_STRING_SEARCHHISTORY[2]&2){ error(10); @@ -203006,21 +203006,21 @@ while(tmp_long--) ((uint64*)(_SUB_RETRIEVESEARCHHISTORY_ARRAY_STRING_SEARCHHISTO while(tmp_long--) ((uint64*)(_SUB_RETRIEVESEARCHHISTORY_ARRAY_STRING_SEARCHHISTORY[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -} -if(!qbevent)break;evnt(26070,20219,"ide_methods.bas");}while(r); -} -do{ -tmp_fileno=*_SUB_RETRIEVESEARCHHISTORY_LONG_FH; -if (new_error) goto skip6706; -sub_file_line_input_string(tmp_fileno,((qbs*)(((uint64*)(_SUB_RETRIEVESEARCHHISTORY_ARRAY_STRING_SEARCHHISTORY[0]))[array_check((*_SUB_RETRIEVESEARCHHISTORY_LONG_LN)-_SUB_RETRIEVESEARCHHISTORY_ARRAY_STRING_SEARCHHISTORY[4],_SUB_RETRIEVESEARCHHISTORY_ARRAY_STRING_SEARCHHISTORY[5])]))); -if (new_error) goto skip6706; -skip6706: -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20220,"ide_methods.bas");}while(r); -dl_continue_6705:; -} -dl_exit_6705:; -do{ +} +if(!qbevent)break;evnt(26070,20219,"ide_methods.bas");}while(r); +} +do{ +tmp_fileno=*_SUB_RETRIEVESEARCHHISTORY_LONG_FH; +if (new_error) goto skip6706; +sub_file_line_input_string(tmp_fileno,((qbs*)(((uint64*)(_SUB_RETRIEVESEARCHHISTORY_ARRAY_STRING_SEARCHHISTORY[0]))[array_check((*_SUB_RETRIEVESEARCHHISTORY_LONG_LN)-_SUB_RETRIEVESEARCHHISTORY_ARRAY_STRING_SEARCHHISTORY[4],_SUB_RETRIEVESEARCHHISTORY_ARRAY_STRING_SEARCHHISTORY[5])]))); +if (new_error) goto skip6706; +skip6706: +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20220,"ide_methods.bas");}while(r); +dl_continue_6705:; +} +dl_exit_6705:; +do{ if (_SUB_RETRIEVESEARCHHISTORY_ARRAY_STRING_SEARCHHISTORY[2]&2){ error(10); @@ -203063,10 +203063,10 @@ while(tmp_long--) ((uint64*)(_SUB_RETRIEVESEARCHHISTORY_ARRAY_STRING_SEARCHHISTO while(tmp_long--) ((uint64*)(_SUB_RETRIEVESEARCHHISTORY_ARRAY_STRING_SEARCHHISTORY[0]))[tmp_long]=(uint64)qbs_new(0,0); } } -} -if(!qbevent)break;evnt(26070,20222,"ide_methods.bas");}while(r); -}else{ -do{ +} +if(!qbevent)break;evnt(26070,20222,"ide_methods.bas");}while(r); +}else{ +do{ if (_SUB_RETRIEVESEARCHHISTORY_ARRAY_STRING_SEARCHHISTORY[2]&2){ error(10); @@ -203089,378 +203089,378 @@ while(tmp_long--) ((uint64*)(_SUB_RETRIEVESEARCHHISTORY_ARRAY_STRING_SEARCHHISTO }else{ while(tmp_long--) ((uint64*)(_SUB_RETRIEVESEARCHHISTORY_ARRAY_STRING_SEARCHHISTORY[0]))[tmp_long]=(uint64)qbs_new(0,0); } -} -if(!qbevent)break;evnt(26070,20224,"ide_methods.bas");}while(r); -do{ -tmp_long=array_check(( 1 )-_SUB_RETRIEVESEARCHHISTORY_ARRAY_STRING_SEARCHHISTORY[4],_SUB_RETRIEVESEARCHHISTORY_ARRAY_STRING_SEARCHHISTORY[5]); -if (!new_error) qbs_set( ((qbs*)(((uint64*)(_SUB_RETRIEVESEARCHHISTORY_ARRAY_STRING_SEARCHHISTORY[0]))[tmp_long])),qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20225,"ide_methods.bas");}while(r); -} -do{ -sub_close(*_SUB_RETRIEVESEARCHHISTORY_LONG_FH,1); -if(!qbevent)break;evnt(26070,20227,"ide_methods.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free295.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -qbs* FUNC_OPENFILE(qbs*_FUNC_OPENFILE_STRING_IDEOPENFILE){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data296.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -if(!qbevent)break;evnt(26070,20282,"ide_methods.bas");}while(r); -S_59846:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPENFILE_STRING_DEFAULT_STARTDIR,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,20284,"ide_methods.bas");if(r)goto S_59846;} -do{ -qbs_set(_FUNC_OPENFILE_STRING_DEFAULT_STARTDIR,func__startdir()); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20285,"ide_methods.bas");}while(r); -S_59848:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_right(_FUNC_OPENFILE_STRING_DEFAULT_STARTDIR, 1 ),__STRING1_IDEPATHSEP)))||new_error){ -if(qbevent){evnt(26070,20286,"ide_methods.bas");if(r)goto S_59848;} -do{ -qbs_set(_FUNC_OPENFILE_STRING_DEFAULT_STARTDIR,qbs_add(_FUNC_OPENFILE_STRING_DEFAULT_STARTDIR,__STRING1_IDEPATHSEP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20286,"ide_methods.bas");}while(r); -} -} -LABEL_IDEOPENLOOP:; -if(qbevent){evnt(26070,20289,"ide_methods.bas");r=0;} -S_59852:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPENFILE_STRING_IDEOPENFILE,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,20290,"ide_methods.bas");if(r)goto S_59852;} -do{ -qbs_set(_FUNC_OPENFILE_STRING_F,func__guiOpenFileDialog(qbs_new_txt_len("Open Source File",16),_FUNC_OPENFILE_STRING_DEFAULT_STARTDIR,qbs_new_txt_len("*.bas|*.BAS|*.Bas|*.bi|*.BI|*.Bi|*.bm|*.BM|*.Bm",47),qbs_new_txt_len("QB64-PE Source Files",20), 0 ,0|1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20290,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_OPENFILE_STRING_F,_FUNC_OPENFILE_STRING_IDEOPENFILE); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20290,"ide_methods.bas");}while(r); -} -S_59857:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPENFILE_STRING_F,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,20291,"ide_methods.bas");if(r)goto S_59857;} -do{ -qbs_set(_FUNC_OPENFILE_STRING_OPENFILE,qbs_new_txt_len("C",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20291,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,20291,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_OPENFILE_STRING_PATH,FUNC_IDEZTAKEPATH(_FUNC_OPENFILE_STRING_F)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20292,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_OPENFILE_STRING_DEFAULT_STARTDIR,_FUNC_OPENFILE_STRING_PATH); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20294,"ide_methods.bas");}while(r); -S_59863:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_right(_FUNC_OPENFILE_STRING_DEFAULT_STARTDIR, 1 ),__STRING1_IDEPATHSEP)))||new_error){ -if(qbevent){evnt(26070,20295,"ide_methods.bas");if(r)goto S_59863;} -do{ -qbs_set(_FUNC_OPENFILE_STRING_DEFAULT_STARTDIR,qbs_add(_FUNC_OPENFILE_STRING_DEFAULT_STARTDIR,__STRING1_IDEPATHSEP)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20295,"ide_methods.bas");}while(r); -} -S_59866:; -if ((qbs_cleanup(qbs_tmp_base,-(func__fileexists(qbs_add(qbs_add(_FUNC_OPENFILE_STRING_PATH,__STRING1_IDEPATHSEP),_FUNC_OPENFILE_STRING_F))== 0 )))||new_error){ -if(qbevent){evnt(26070,20297,"ide_methods.bas");if(r)goto S_59866;} -S_59867:; -if ((qbs_cleanup(qbs_tmp_base,((qbs_notequal(qbs_lcase(qbs_right(_FUNC_OPENFILE_STRING_F, 4 )),qbs_new_txt_len(".bas",4))))&(-(*_FUNC_OPENFILE_LONG_ALLFILES== 0 ))))||new_error){ -if(qbevent){evnt(26070,20299,"ide_methods.bas");if(r)goto S_59867;} -do{ -qbs_set(_FUNC_OPENFILE_STRING_F,qbs_add(_FUNC_OPENFILE_STRING_F,qbs_new_txt_len(".bas",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20299,"ide_methods.bas");}while(r); -} -do{ -*__LONG_IDEERROR= 2 ; -if(!qbevent)break;evnt(26070,20302,"ide_methods.bas");}while(r); -S_59871:; -if ((qbs_cleanup(qbs_tmp_base,-(func__fileexists(qbs_add(qbs_add(_FUNC_OPENFILE_STRING_PATH,__STRING1_IDEPATHSEP),_FUNC_OPENFILE_STRING_F))== 0 )))||new_error){ -if(qbevent){evnt(26070,20303,"ide_methods.bas");if(r)goto S_59871;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,20303,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_OPENFILE_STRING_IDEOPENFILE,qbs_add(qbs_add(_FUNC_OPENFILE_STRING_PATH,__STRING1_IDEPATHSEP),_FUNC_OPENFILE_STRING_F)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20305,"ide_methods.bas");}while(r); -S_59875:; -if ((qbs_cleanup(qbs_tmp_base,-(FUNC_BINARYFORMATCHECK(_FUNC_OPENFILE_STRING_PATH,__STRING1_IDEPATHSEP,_FUNC_OPENFILE_STRING_F)> 0 )))||new_error){ -if(qbevent){evnt(26070,20307,"ide_methods.bas");if(r)goto S_59875;} -S_59876:; -if ((qbs_cleanup(qbs_tmp_base,_FUNC_OPENFILE_STRING_IDEOPENFILE->len))||new_error){ -if(qbevent){evnt(26070,20308,"ide_methods.bas");if(r)goto S_59876;} -do{ -qbs_set(_FUNC_OPENFILE_STRING_OPENFILE,qbs_new_txt_len("C",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20309,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,20310,"ide_methods.bas");}while(r); -}else{ -do{ -*_FUNC_OPENFILE_LONG_INFO= 0 ; -if(!qbevent)break;evnt(26070,20312,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDEOPENLOOP; -if(!qbevent)break;evnt(26070,20312,"ide_methods.bas");}while(r); -} -} -} -do{ -*__LONG_IDEERROR= 3 ; -if(!qbevent)break;evnt(26070,20318,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_IDET,qbs_add(l2string( 0 ),l2string( 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20319,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEL= 1 ; -if(!qbevent)break;evnt(26070,20319,"ide_methods.bas");}while(r); -do{ -*__LONG_IDELI= 1 ; -if(!qbevent)break;evnt(26070,20319,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEN= 1 ; -if(!qbevent)break;evnt(26070,20319,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEBMKN= 0 ; -if(!qbevent)break;evnt(26070,20319,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESX= 1 ; -if(!qbevent)break;evnt(26070,20320,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESY= 1 ; -if(!qbevent)break;evnt(26070,20321,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECX= 1 ; -if(!qbevent)break;evnt(26070,20322,"ide_methods.bas");}while(r); -do{ -*__LONG_IDECY= 1 ; -if(!qbevent)break;evnt(26070,20323,"ide_methods.bas");}while(r); -do{ -*__LONG_IDESELECT= 0 ; -if(!qbevent)break;evnt(26070,20324,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEFOCUSLINE= 0 ; -if(!qbevent)break;evnt(26070,20325,"ide_methods.bas");}while(r); -do{ -SUB_LINEINPUT3LOAD(qbs_add(qbs_add(_FUNC_OPENFILE_STRING_PATH,__STRING1_IDEPATHSEP),_FUNC_OPENFILE_STRING_F)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20326,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_IDET,func_space(__STRING_LINEINPUT3BUFFER->len* 8 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20327,"ide_methods.bas");}while(r); -do{ -*_FUNC_OPENFILE_LONG_I2= 1 ; -if(!qbevent)break;evnt(26070,20328,"ide_methods.bas");}while(r); -do{ -*_FUNC_OPENFILE_LONG_N= 0 ; -if(!qbevent)break;evnt(26070,20329,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_OPENFILE_STRING_CHRTAB,func_chr( 9 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20330,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_OPENFILE_STRING_SPACE1,qbs_new_txt_len(" ",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20331,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_OPENFILE_STRING_SPACE2,qbs_new_txt_len(" ",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20331,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_OPENFILE_STRING_SPACE3,qbs_new_txt_len(" ",3)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20331,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_OPENFILE_STRING_SPACE4,qbs_new_txt_len(" ",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20331,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_OPENFILE_STRING_CHR7,func_chr( 7 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20332,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_OPENFILE_STRING_CHR11,func_chr( 11 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20332,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_OPENFILE_STRING_CHR12,func_chr( 12 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20332,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_OPENFILE_STRING_CHR28,func_chr( 28 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20332,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_OPENFILE_STRING_CHR29,func_chr( 29 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20332,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_OPENFILE_STRING_CHR30,func_chr( 30 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20332,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_OPENFILE_STRING_CHR31,func_chr( 31 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20332,"ide_methods.bas");}while(r); -S_59913:; -do{ -if(qbevent){evnt(26070,20333,"ide_methods.bas");if(r)goto S_59913;} -do{ -qbs_set(_FUNC_OPENFILE_STRING_A,FUNC_LINEINPUT3()); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20334,"ide_methods.bas");}while(r); -do{ -*_FUNC_OPENFILE_LONG_L=_FUNC_OPENFILE_STRING_A->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20335,"ide_methods.bas");}while(r); -S_59916:; -if ((*_FUNC_OPENFILE_LONG_L)||new_error){ -if(qbevent){evnt(26070,20336,"ide_methods.bas");if(r)goto S_59916;} -do{ -*_FUNC_OPENFILE_LONG_ASCA=qbs_asc(_FUNC_OPENFILE_STRING_A); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20336,"ide_methods.bas");}while(r); -}else{ -do{ -*_FUNC_OPENFILE_LONG_ASCA= -1 ; -if(!qbevent)break;evnt(26070,20336,"ide_methods.bas");}while(r); -} -S_59921:; -if ((-(*_FUNC_OPENFILE_LONG_ASCA!= 13 ))||new_error){ -if(qbevent){evnt(26070,20337,"ide_methods.bas");if(r)goto S_59921;} -S_59922:; -if ((-(*_FUNC_OPENFILE_LONG_ASCA!= -1 ))||new_error){ -if(qbevent){evnt(26070,20338,"ide_methods.bas");if(r)goto S_59922;} -LABEL_IDEOPENFIXTABS:; -if(qbevent){evnt(26070,20340,"ide_methods.bas");r=0;} -do{ -*_FUNC_OPENFILE_LONG_X=func_instr(NULL,_FUNC_OPENFILE_STRING_A,_FUNC_OPENFILE_STRING_CHRTAB,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20341,"ide_methods.bas");}while(r); -S_59924:; -if ((*_FUNC_OPENFILE_LONG_X)||new_error){ -if(qbevent){evnt(26070,20342,"ide_methods.bas");if(r)goto S_59924;} -do{ -*_FUNC_OPENFILE_LONG_X2=(*_FUNC_OPENFILE_LONG_X- 1 )% 4 ; -if(!qbevent)break;evnt(26070,20343,"ide_methods.bas");}while(r); -S_59926:; -if ((-(*_FUNC_OPENFILE_LONG_X2== 0 ))||new_error){ -if(qbevent){evnt(26070,20344,"ide_methods.bas");if(r)goto S_59926;} -do{ -qbs_set(_FUNC_OPENFILE_STRING_A,qbs_add(qbs_add(qbs_left(_FUNC_OPENFILE_STRING_A,*_FUNC_OPENFILE_LONG_X- 1 ),_FUNC_OPENFILE_STRING_SPACE4),qbs_right(_FUNC_OPENFILE_STRING_A,*_FUNC_OPENFILE_LONG_L-*_FUNC_OPENFILE_LONG_X))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20344,"ide_methods.bas");}while(r); -do{ -*_FUNC_OPENFILE_LONG_L=*_FUNC_OPENFILE_LONG_L+ 3 ; -if(!qbevent)break;evnt(26070,20344,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDEOPENFIXTABS; -if(!qbevent)break;evnt(26070,20344,"ide_methods.bas");}while(r); -} -S_59931:; -if ((-(*_FUNC_OPENFILE_LONG_X2== 1 ))||new_error){ -if(qbevent){evnt(26070,20345,"ide_methods.bas");if(r)goto S_59931;} -do{ -qbs_set(_FUNC_OPENFILE_STRING_A,qbs_add(qbs_add(qbs_left(_FUNC_OPENFILE_STRING_A,*_FUNC_OPENFILE_LONG_X- 1 ),_FUNC_OPENFILE_STRING_SPACE3),qbs_right(_FUNC_OPENFILE_STRING_A,*_FUNC_OPENFILE_LONG_L-*_FUNC_OPENFILE_LONG_X))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20345,"ide_methods.bas");}while(r); -do{ -*_FUNC_OPENFILE_LONG_L=*_FUNC_OPENFILE_LONG_L+ 2 ; -if(!qbevent)break;evnt(26070,20345,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDEOPENFIXTABS; -if(!qbevent)break;evnt(26070,20345,"ide_methods.bas");}while(r); -} -S_59936:; -if ((-(*_FUNC_OPENFILE_LONG_X2== 2 ))||new_error){ -if(qbevent){evnt(26070,20346,"ide_methods.bas");if(r)goto S_59936;} -do{ -qbs_set(_FUNC_OPENFILE_STRING_A,qbs_add(qbs_add(qbs_left(_FUNC_OPENFILE_STRING_A,*_FUNC_OPENFILE_LONG_X- 1 ),_FUNC_OPENFILE_STRING_SPACE2),qbs_right(_FUNC_OPENFILE_STRING_A,*_FUNC_OPENFILE_LONG_L-*_FUNC_OPENFILE_LONG_X))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20346,"ide_methods.bas");}while(r); -do{ -*_FUNC_OPENFILE_LONG_L=*_FUNC_OPENFILE_LONG_L+ 1 ; -if(!qbevent)break;evnt(26070,20346,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDEOPENFIXTABS; -if(!qbevent)break;evnt(26070,20346,"ide_methods.bas");}while(r); -} -S_59941:; -if ((-(*_FUNC_OPENFILE_LONG_X2== 3 ))||new_error){ -if(qbevent){evnt(26070,20347,"ide_methods.bas");if(r)goto S_59941;} -do{ -qbs_set(_FUNC_OPENFILE_STRING_A,qbs_add(qbs_add(qbs_left(_FUNC_OPENFILE_STRING_A,*_FUNC_OPENFILE_LONG_X- 1 ),_FUNC_OPENFILE_STRING_SPACE1),qbs_right(_FUNC_OPENFILE_STRING_A,*_FUNC_OPENFILE_LONG_L-*_FUNC_OPENFILE_LONG_X))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20347,"ide_methods.bas");}while(r); -do{ -goto LABEL_IDEOPENFIXTABS; -if(!qbevent)break;evnt(26070,20347,"ide_methods.bas");}while(r); -} -} -} -do{ -sub_mid(__STRING_IDET,*_FUNC_OPENFILE_LONG_I2,*_FUNC_OPENFILE_LONG_L+ 8 ,qbs_add(qbs_add(l2string(*_FUNC_OPENFILE_LONG_L),_FUNC_OPENFILE_STRING_A),l2string(*_FUNC_OPENFILE_LONG_L)),1); -if(!qbevent)break;evnt(26070,20350,"ide_methods.bas");}while(r); -do{ -*_FUNC_OPENFILE_LONG_I2=*_FUNC_OPENFILE_LONG_I2+*_FUNC_OPENFILE_LONG_L+ 8 ; -if(!qbevent)break;evnt(26070,20350,"ide_methods.bas");}while(r); -do{ -*_FUNC_OPENFILE_LONG_N=*_FUNC_OPENFILE_LONG_N+ 1 ; -if(!qbevent)break;evnt(26070,20350,"ide_methods.bas");}while(r); -} -S_59951:; -dl_continue_6710:; -}while((!(-(*_FUNC_OPENFILE_LONG_ASCA== 13 )))&&(!new_error)); -dl_exit_6710:; -if(qbevent){evnt(26070,20352,"ide_methods.bas");if(r)goto S_59951;} -do{ -qbs_set(__STRING_LINEINPUT3BUFFER,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20353,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEN=*_FUNC_OPENFILE_LONG_N; -if(!qbevent)break;evnt(26070,20354,"ide_methods.bas");}while(r); -S_59954:; -if ((-(*_FUNC_OPENFILE_LONG_N== 0 ))||new_error){ -if(qbevent){evnt(26070,20354,"ide_methods.bas");if(r)goto S_59954;} -do{ -qbs_set(__STRING_IDET,qbs_add(l2string( 0 ),l2string( 0 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20354,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEN= 1 ; -if(!qbevent)break;evnt(26070,20354,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(__STRING_IDET,qbs_left(__STRING_IDET,*_FUNC_OPENFILE_LONG_I2- 1 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20354,"ide_methods.bas");}while(r); -} -do{ +} +if(!qbevent)break;evnt(26070,20224,"ide_methods.bas");}while(r); +do{ +tmp_long=array_check(( 1 )-_SUB_RETRIEVESEARCHHISTORY_ARRAY_STRING_SEARCHHISTORY[4],_SUB_RETRIEVESEARCHHISTORY_ARRAY_STRING_SEARCHHISTORY[5]); +if (!new_error) qbs_set( ((qbs*)(((uint64*)(_SUB_RETRIEVESEARCHHISTORY_ARRAY_STRING_SEARCHHISTORY[0]))[tmp_long])),qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20225,"ide_methods.bas");}while(r); +} +do{ +sub_close(*_SUB_RETRIEVESEARCHHISTORY_LONG_FH,1); +if(!qbevent)break;evnt(26070,20227,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free295.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +qbs* FUNC_OPENFILE(qbs*_FUNC_OPENFILE_STRING_IDEOPENFILE){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data296.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +if(!qbevent)break;evnt(26070,20282,"ide_methods.bas");}while(r); +S_59846:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPENFILE_STRING_DEFAULT_STARTDIR,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,20284,"ide_methods.bas");if(r)goto S_59846;} +do{ +qbs_set(_FUNC_OPENFILE_STRING_DEFAULT_STARTDIR,func__startdir()); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20285,"ide_methods.bas");}while(r); +S_59848:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_right(_FUNC_OPENFILE_STRING_DEFAULT_STARTDIR, 1 ),__STRING1_IDEPATHSEP)))||new_error){ +if(qbevent){evnt(26070,20286,"ide_methods.bas");if(r)goto S_59848;} +do{ +qbs_set(_FUNC_OPENFILE_STRING_DEFAULT_STARTDIR,qbs_add(_FUNC_OPENFILE_STRING_DEFAULT_STARTDIR,__STRING1_IDEPATHSEP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20286,"ide_methods.bas");}while(r); +} +} +LABEL_IDEOPENLOOP:; +if(qbevent){evnt(26070,20289,"ide_methods.bas");r=0;} +S_59852:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPENFILE_STRING_IDEOPENFILE,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,20290,"ide_methods.bas");if(r)goto S_59852;} +do{ +qbs_set(_FUNC_OPENFILE_STRING_F,func__guiOpenFileDialog(qbs_new_txt_len("Open Source File",16),_FUNC_OPENFILE_STRING_DEFAULT_STARTDIR,qbs_new_txt_len("*.bas|*.BAS|*.Bas|*.bi|*.BI|*.Bi|*.bm|*.BM|*.Bm",47),qbs_new_txt_len("QB64-PE Source Files",20), 0 ,0|1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20290,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_OPENFILE_STRING_F,_FUNC_OPENFILE_STRING_IDEOPENFILE); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20290,"ide_methods.bas");}while(r); +} +S_59857:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_FUNC_OPENFILE_STRING_F,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,20291,"ide_methods.bas");if(r)goto S_59857;} +do{ +qbs_set(_FUNC_OPENFILE_STRING_OPENFILE,qbs_new_txt_len("C",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20291,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,20291,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_OPENFILE_STRING_PATH,FUNC_IDEZTAKEPATH(_FUNC_OPENFILE_STRING_F)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20292,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_OPENFILE_STRING_DEFAULT_STARTDIR,_FUNC_OPENFILE_STRING_PATH); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20294,"ide_methods.bas");}while(r); +S_59863:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_right(_FUNC_OPENFILE_STRING_DEFAULT_STARTDIR, 1 ),__STRING1_IDEPATHSEP)))||new_error){ +if(qbevent){evnt(26070,20295,"ide_methods.bas");if(r)goto S_59863;} +do{ +qbs_set(_FUNC_OPENFILE_STRING_DEFAULT_STARTDIR,qbs_add(_FUNC_OPENFILE_STRING_DEFAULT_STARTDIR,__STRING1_IDEPATHSEP)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20295,"ide_methods.bas");}while(r); +} +S_59866:; +if ((qbs_cleanup(qbs_tmp_base,-(func__fileexists(qbs_add(qbs_add(_FUNC_OPENFILE_STRING_PATH,__STRING1_IDEPATHSEP),_FUNC_OPENFILE_STRING_F))== 0 )))||new_error){ +if(qbevent){evnt(26070,20297,"ide_methods.bas");if(r)goto S_59866;} +S_59867:; +if ((qbs_cleanup(qbs_tmp_base,((qbs_notequal(qbs_lcase(qbs_right(_FUNC_OPENFILE_STRING_F, 4 )),qbs_new_txt_len(".bas",4))))&(-(*_FUNC_OPENFILE_LONG_ALLFILES== 0 ))))||new_error){ +if(qbevent){evnt(26070,20299,"ide_methods.bas");if(r)goto S_59867;} +do{ +qbs_set(_FUNC_OPENFILE_STRING_F,qbs_add(_FUNC_OPENFILE_STRING_F,qbs_new_txt_len(".bas",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20299,"ide_methods.bas");}while(r); +} +do{ +*__LONG_IDEERROR= 2 ; +if(!qbevent)break;evnt(26070,20302,"ide_methods.bas");}while(r); +S_59871:; +if ((qbs_cleanup(qbs_tmp_base,-(func__fileexists(qbs_add(qbs_add(_FUNC_OPENFILE_STRING_PATH,__STRING1_IDEPATHSEP),_FUNC_OPENFILE_STRING_F))== 0 )))||new_error){ +if(qbevent){evnt(26070,20303,"ide_methods.bas");if(r)goto S_59871;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,20303,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_OPENFILE_STRING_IDEOPENFILE,qbs_add(qbs_add(_FUNC_OPENFILE_STRING_PATH,__STRING1_IDEPATHSEP),_FUNC_OPENFILE_STRING_F)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20305,"ide_methods.bas");}while(r); +S_59875:; +if ((qbs_cleanup(qbs_tmp_base,-(FUNC_BINARYFORMATCHECK(_FUNC_OPENFILE_STRING_PATH,__STRING1_IDEPATHSEP,_FUNC_OPENFILE_STRING_F)> 0 )))||new_error){ +if(qbevent){evnt(26070,20307,"ide_methods.bas");if(r)goto S_59875;} +S_59876:; +if ((qbs_cleanup(qbs_tmp_base,_FUNC_OPENFILE_STRING_IDEOPENFILE->len))||new_error){ +if(qbevent){evnt(26070,20308,"ide_methods.bas");if(r)goto S_59876;} +do{ +qbs_set(_FUNC_OPENFILE_STRING_OPENFILE,qbs_new_txt_len("C",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20309,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,20310,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_OPENFILE_LONG_INFO= 0 ; +if(!qbevent)break;evnt(26070,20312,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDEOPENLOOP; +if(!qbevent)break;evnt(26070,20312,"ide_methods.bas");}while(r); +} +} +} +do{ +*__LONG_IDEERROR= 3 ; +if(!qbevent)break;evnt(26070,20318,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_IDET,qbs_add(l2string( 0 ),l2string( 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20319,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEL= 1 ; +if(!qbevent)break;evnt(26070,20319,"ide_methods.bas");}while(r); +do{ +*__LONG_IDELI= 1 ; +if(!qbevent)break;evnt(26070,20319,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEN= 1 ; +if(!qbevent)break;evnt(26070,20319,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEBMKN= 0 ; +if(!qbevent)break;evnt(26070,20319,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESX= 1 ; +if(!qbevent)break;evnt(26070,20320,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESY= 1 ; +if(!qbevent)break;evnt(26070,20321,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECX= 1 ; +if(!qbevent)break;evnt(26070,20322,"ide_methods.bas");}while(r); +do{ +*__LONG_IDECY= 1 ; +if(!qbevent)break;evnt(26070,20323,"ide_methods.bas");}while(r); +do{ +*__LONG_IDESELECT= 0 ; +if(!qbevent)break;evnt(26070,20324,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEFOCUSLINE= 0 ; +if(!qbevent)break;evnt(26070,20325,"ide_methods.bas");}while(r); +do{ +SUB_LINEINPUT3LOAD(qbs_add(qbs_add(_FUNC_OPENFILE_STRING_PATH,__STRING1_IDEPATHSEP),_FUNC_OPENFILE_STRING_F)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20326,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_IDET,func_space(__STRING_LINEINPUT3BUFFER->len* 8 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20327,"ide_methods.bas");}while(r); +do{ +*_FUNC_OPENFILE_LONG_I2= 1 ; +if(!qbevent)break;evnt(26070,20328,"ide_methods.bas");}while(r); +do{ +*_FUNC_OPENFILE_LONG_N= 0 ; +if(!qbevent)break;evnt(26070,20329,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_OPENFILE_STRING_CHRTAB,func_chr( 9 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20330,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_OPENFILE_STRING_SPACE1,qbs_new_txt_len(" ",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20331,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_OPENFILE_STRING_SPACE2,qbs_new_txt_len(" ",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20331,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_OPENFILE_STRING_SPACE3,qbs_new_txt_len(" ",3)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20331,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_OPENFILE_STRING_SPACE4,qbs_new_txt_len(" ",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20331,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_OPENFILE_STRING_CHR7,func_chr( 7 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20332,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_OPENFILE_STRING_CHR11,func_chr( 11 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20332,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_OPENFILE_STRING_CHR12,func_chr( 12 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20332,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_OPENFILE_STRING_CHR28,func_chr( 28 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20332,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_OPENFILE_STRING_CHR29,func_chr( 29 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20332,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_OPENFILE_STRING_CHR30,func_chr( 30 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20332,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_OPENFILE_STRING_CHR31,func_chr( 31 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20332,"ide_methods.bas");}while(r); +S_59913:; +do{ +if(qbevent){evnt(26070,20333,"ide_methods.bas");if(r)goto S_59913;} +do{ +qbs_set(_FUNC_OPENFILE_STRING_A,FUNC_LINEINPUT3()); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20334,"ide_methods.bas");}while(r); +do{ +*_FUNC_OPENFILE_LONG_L=_FUNC_OPENFILE_STRING_A->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20335,"ide_methods.bas");}while(r); +S_59916:; +if ((*_FUNC_OPENFILE_LONG_L)||new_error){ +if(qbevent){evnt(26070,20336,"ide_methods.bas");if(r)goto S_59916;} +do{ +*_FUNC_OPENFILE_LONG_ASCA=qbs_asc(_FUNC_OPENFILE_STRING_A); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20336,"ide_methods.bas");}while(r); +}else{ +do{ +*_FUNC_OPENFILE_LONG_ASCA= -1 ; +if(!qbevent)break;evnt(26070,20336,"ide_methods.bas");}while(r); +} +S_59921:; +if ((-(*_FUNC_OPENFILE_LONG_ASCA!= 13 ))||new_error){ +if(qbevent){evnt(26070,20337,"ide_methods.bas");if(r)goto S_59921;} +S_59922:; +if ((-(*_FUNC_OPENFILE_LONG_ASCA!= -1 ))||new_error){ +if(qbevent){evnt(26070,20338,"ide_methods.bas");if(r)goto S_59922;} +LABEL_IDEOPENFIXTABS:; +if(qbevent){evnt(26070,20340,"ide_methods.bas");r=0;} +do{ +*_FUNC_OPENFILE_LONG_X=func_instr(NULL,_FUNC_OPENFILE_STRING_A,_FUNC_OPENFILE_STRING_CHRTAB,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20341,"ide_methods.bas");}while(r); +S_59924:; +if ((*_FUNC_OPENFILE_LONG_X)||new_error){ +if(qbevent){evnt(26070,20342,"ide_methods.bas");if(r)goto S_59924;} +do{ +*_FUNC_OPENFILE_LONG_X2=(*_FUNC_OPENFILE_LONG_X- 1 )% 4 ; +if(!qbevent)break;evnt(26070,20343,"ide_methods.bas");}while(r); +S_59926:; +if ((-(*_FUNC_OPENFILE_LONG_X2== 0 ))||new_error){ +if(qbevent){evnt(26070,20344,"ide_methods.bas");if(r)goto S_59926;} +do{ +qbs_set(_FUNC_OPENFILE_STRING_A,qbs_add(qbs_add(qbs_left(_FUNC_OPENFILE_STRING_A,*_FUNC_OPENFILE_LONG_X- 1 ),_FUNC_OPENFILE_STRING_SPACE4),qbs_right(_FUNC_OPENFILE_STRING_A,*_FUNC_OPENFILE_LONG_L-*_FUNC_OPENFILE_LONG_X))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20344,"ide_methods.bas");}while(r); +do{ +*_FUNC_OPENFILE_LONG_L=*_FUNC_OPENFILE_LONG_L+ 3 ; +if(!qbevent)break;evnt(26070,20344,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDEOPENFIXTABS; +if(!qbevent)break;evnt(26070,20344,"ide_methods.bas");}while(r); +} +S_59931:; +if ((-(*_FUNC_OPENFILE_LONG_X2== 1 ))||new_error){ +if(qbevent){evnt(26070,20345,"ide_methods.bas");if(r)goto S_59931;} +do{ +qbs_set(_FUNC_OPENFILE_STRING_A,qbs_add(qbs_add(qbs_left(_FUNC_OPENFILE_STRING_A,*_FUNC_OPENFILE_LONG_X- 1 ),_FUNC_OPENFILE_STRING_SPACE3),qbs_right(_FUNC_OPENFILE_STRING_A,*_FUNC_OPENFILE_LONG_L-*_FUNC_OPENFILE_LONG_X))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20345,"ide_methods.bas");}while(r); +do{ +*_FUNC_OPENFILE_LONG_L=*_FUNC_OPENFILE_LONG_L+ 2 ; +if(!qbevent)break;evnt(26070,20345,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDEOPENFIXTABS; +if(!qbevent)break;evnt(26070,20345,"ide_methods.bas");}while(r); +} +S_59936:; +if ((-(*_FUNC_OPENFILE_LONG_X2== 2 ))||new_error){ +if(qbevent){evnt(26070,20346,"ide_methods.bas");if(r)goto S_59936;} +do{ +qbs_set(_FUNC_OPENFILE_STRING_A,qbs_add(qbs_add(qbs_left(_FUNC_OPENFILE_STRING_A,*_FUNC_OPENFILE_LONG_X- 1 ),_FUNC_OPENFILE_STRING_SPACE2),qbs_right(_FUNC_OPENFILE_STRING_A,*_FUNC_OPENFILE_LONG_L-*_FUNC_OPENFILE_LONG_X))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20346,"ide_methods.bas");}while(r); +do{ +*_FUNC_OPENFILE_LONG_L=*_FUNC_OPENFILE_LONG_L+ 1 ; +if(!qbevent)break;evnt(26070,20346,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDEOPENFIXTABS; +if(!qbevent)break;evnt(26070,20346,"ide_methods.bas");}while(r); +} +S_59941:; +if ((-(*_FUNC_OPENFILE_LONG_X2== 3 ))||new_error){ +if(qbevent){evnt(26070,20347,"ide_methods.bas");if(r)goto S_59941;} +do{ +qbs_set(_FUNC_OPENFILE_STRING_A,qbs_add(qbs_add(qbs_left(_FUNC_OPENFILE_STRING_A,*_FUNC_OPENFILE_LONG_X- 1 ),_FUNC_OPENFILE_STRING_SPACE1),qbs_right(_FUNC_OPENFILE_STRING_A,*_FUNC_OPENFILE_LONG_L-*_FUNC_OPENFILE_LONG_X))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20347,"ide_methods.bas");}while(r); +do{ +goto LABEL_IDEOPENFIXTABS; +if(!qbevent)break;evnt(26070,20347,"ide_methods.bas");}while(r); +} +} +} +do{ +sub_mid(__STRING_IDET,*_FUNC_OPENFILE_LONG_I2,*_FUNC_OPENFILE_LONG_L+ 8 ,qbs_add(qbs_add(l2string(*_FUNC_OPENFILE_LONG_L),_FUNC_OPENFILE_STRING_A),l2string(*_FUNC_OPENFILE_LONG_L)),1); +if(!qbevent)break;evnt(26070,20350,"ide_methods.bas");}while(r); +do{ +*_FUNC_OPENFILE_LONG_I2=*_FUNC_OPENFILE_LONG_I2+*_FUNC_OPENFILE_LONG_L+ 8 ; +if(!qbevent)break;evnt(26070,20350,"ide_methods.bas");}while(r); +do{ +*_FUNC_OPENFILE_LONG_N=*_FUNC_OPENFILE_LONG_N+ 1 ; +if(!qbevent)break;evnt(26070,20350,"ide_methods.bas");}while(r); +} +S_59951:; +dl_continue_6710:; +}while((!(-(*_FUNC_OPENFILE_LONG_ASCA== 13 )))&&(!new_error)); +dl_exit_6710:; +if(qbevent){evnt(26070,20352,"ide_methods.bas");if(r)goto S_59951;} +do{ +qbs_set(__STRING_LINEINPUT3BUFFER,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20353,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEN=*_FUNC_OPENFILE_LONG_N; +if(!qbevent)break;evnt(26070,20354,"ide_methods.bas");}while(r); +S_59954:; +if ((-(*_FUNC_OPENFILE_LONG_N== 0 ))||new_error){ +if(qbevent){evnt(26070,20354,"ide_methods.bas");if(r)goto S_59954;} +do{ +qbs_set(__STRING_IDET,qbs_add(l2string( 0 ),l2string( 0 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20354,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEN= 1 ; +if(!qbevent)break;evnt(26070,20354,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(__STRING_IDET,qbs_left(__STRING_IDET,*_FUNC_OPENFILE_LONG_I2- 1 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20354,"ide_methods.bas");}while(r); +} +do{ if (__ARRAY_BYTE_IDEBREAKPOINTS[2]&2){ error(10); @@ -203484,9 +203484,9 @@ __ARRAY_BYTE_IDEBREAKPOINTS[0]=(ptrszint)calloc(__ARRAY_BYTE_IDEBREAKPOINTS[5]*1 if (!__ARRAY_BYTE_IDEBREAKPOINTS[0]) error(257); } __ARRAY_BYTE_IDEBREAKPOINTS[2]|=1; -} -if(!qbevent)break;evnt(26070,20355,"ide_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26070,20355,"ide_methods.bas");}while(r); +do{ if (__ARRAY_BYTE_IDESKIPLINES[2]&2){ error(10); @@ -203510,17 +203510,17 @@ __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(26070,20356,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_VARIABLEWATCHLIST,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20357,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_BACKUPVARIABLEWATCHLIST,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20358,"ide_methods.bas");}while(r); -do{ +} +if(!qbevent)break;evnt(26070,20356,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_VARIABLEWATCHLIST,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20357,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_BACKUPVARIABLEWATCHLIST,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20358,"ide_methods.bas");}while(r); +do{ if (__ARRAY_UDT_BACKUPUSEDVARIABLELIST[2]&2){ error(10); @@ -203565,3495 +203565,3495 @@ while(tmp_long--){ *(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 96)=qbs_new(0,0); *(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 104)=qbs_new(0,0); *(qbs**)(__ARRAY_UDT_BACKUPUSEDVARIABLELIST[0]+(960/8+1-1)*tmp_long+ 112)=qbs_new(0,0);} -} -if(!qbevent)break;evnt(26070,20358,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_BACKUPTYPEDEFINITIONS,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20359,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_CALLSTACKLIST,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20360,"ide_methods.bas");}while(r); -do{ -*__LONG_CALLSTACKLENGTH= 0 ; -if(!qbevent)break;evnt(26070,20360,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEERROR= 1 ; -if(!qbevent)break;evnt(26070,20362,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_IDEPROGNAME,_FUNC_OPENFILE_STRING_F); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20363,"ide_methods.bas");}while(r); -do{ -sub__title(qbs_add(qbs_add(__STRING_IDEPROGNAME,qbs_new_txt_len(" - ",3)),__STRING_WINDOWTITLE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20363,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_LISTOFCUSTOMKEYWORDS,qbs_left(__STRING_LISTOFCUSTOMKEYWORDS,*__LONG_CUSTOMKEYWORDSLENGTH)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20364,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_IDEPATH,_FUNC_OPENFILE_STRING_PATH); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20365,"ide_methods.bas");}while(r); -do{ -SUB_IDEADDRECENT(qbs_add(qbs_add(__STRING_IDEPATH,__STRING1_IDEPATHSEP),__STRING_IDEPROGNAME)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20366,"ide_methods.bas");}while(r); -do{ -SUB_IDEIMPORTBOOKMARKS(qbs_add(qbs_add(__STRING_IDEPATH,__STRING1_IDEPATHSEP),__STRING_IDEPROGNAME)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20367,"ide_methods.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free296.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_OPENFILE_STRING_OPENFILE);return _FUNC_OPENFILE_STRING_OPENFILE; -} -void SUB_EXPORTCODEAS(qbs*_SUB_EXPORTCODEAS_STRING_DOCFORMAT){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data297.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_PNAM,__STRING_IDEPROGNAME); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20378,"ide_methods.bas");}while(r); -S_59976:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PNAM,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,20378,"ide_methods.bas");if(r)goto S_59976;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_PNAM,qbs_add(qbs_add(qbs_new_txt_len("Untitled",8),__STRING_TEMPFOLDERINDEXSTR),qbs_new_txt_len(".bas",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20378,"ide_methods.bas");}while(r); -} -S_59979:; -qbs_set(sc_6713,qbs_lcase(_SUB_EXPORTCODEAS_STRING_DOCFORMAT)); -qbs_cleanup(qbs_tmp_base,0); -if(qbevent){evnt(26070,20379,"ide_methods.bas");if(r)goto S_59979;} -S_59980:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6713,qbs_new_txt_len("html",4))))||new_error){ -if(qbevent){evnt(26070,20380,"ide_methods.bas");if(r)goto S_59980;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_EXT,qbs_new_txt_len(".htm",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20380,"ide_methods.bas");}while(r); -sc_ec_448_end:; -goto sc_6713_end; -} -S_59982:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6713,qbs_new_txt_len("rich",4))))||new_error){ -if(qbevent){evnt(26070,20381,"ide_methods.bas");if(r)goto S_59982;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_EXT,qbs_new_txt_len(".rtf",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20381,"ide_methods.bas");}while(r); -sc_ec_449_end:; -goto sc_6713_end; -} -S_59984:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6713,qbs_new_txt_len("wiki",4))))||new_error){ -if(qbevent){evnt(26070,20382,"ide_methods.bas");if(r)goto S_59984;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_EXT,qbs_new_txt_len(".txt",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20382,"ide_methods.bas");}while(r); -sc_ec_450_end:; -goto sc_6713_end; -} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_EXT,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20383,"ide_methods.bas");}while(r); -sc_6713_end:; -S_59989:; -if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(__STRING_IDEPATH,__STRING1_IDEPATHSEP),_SUB_EXPORTCODEAS_STRING_PNAM),_SUB_EXPORTCODEAS_STRING_EXT))))||new_error){ -if(qbevent){evnt(26070,20385,"ide_methods.bas");if(r)goto S_59989;} -S_59990:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_IDEYESNOBOX(qbs_new_txt_len("Export As...",12),qbs_add(qbs_add(qbs_new_txt_len("Overwrite file ",15),_SUB_EXPORTCODEAS_STRING_PNAM),_SUB_EXPORTCODEAS_STRING_EXT)),qbs_new_txt_len("N",1))))||new_error){ -if(qbevent){evnt(26070,20386,"ide_methods.bas");if(r)goto S_59990;} -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,20386,"ide_methods.bas");}while(r); -} -} -do{ -return_point[next_return_point++]=183; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_GETTHEMECOLORS; -RETURN_183:; -if(!qbevent)break;evnt(26070,20388,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_CEOL,func_chr( 10 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20389,"ide_methods.bas");}while(r); -S_59996:; -if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,func__os(),qbs_new_txt_len("[LINUX]",7),0)== 0 )))||new_error){ -if(qbevent){evnt(26070,20390,"ide_methods.bas");if(r)goto S_59996;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_CEOL,qbs_add(func_chr( 13 ),_SUB_EXPORTCODEAS_STRING_CEOL)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20390,"ide_methods.bas");}while(r); -} -do{ -sub_pcopy( 3 , 2 ); -if(!qbevent)break;evnt(26070,20392,"ide_methods.bas");}while(r); -do{ -qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); -if(!qbevent)break;evnt(26070,20392,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_STXT,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20393,"ide_methods.bas");}while(r); -S_60002:; -fornext_value6715= 1 ; -fornext_finalvalue6715=*__LONG_IDEN; -fornext_step6715= 1 ; -if (fornext_step6715<0) fornext_step_negative6715=1; else fornext_step_negative6715=0; -if (new_error) goto fornext_error6715; -goto fornext_entrylabel6715; -while(1){ -fornext_value6715=fornext_step6715+(*_SUB_EXPORTCODEAS_LONG_I); -fornext_entrylabel6715: -*_SUB_EXPORTCODEAS_LONG_I=fornext_value6715; -if (fornext_step_negative6715){ -if (fornext_value6715fornext_finalvalue6715) break; -} -fornext_error6715:; -if(qbevent){evnt(26070,20394,"ide_methods.bas");if(r)goto S_60002;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_STXT,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_STXT,FUNC_IDEGETLINE(_SUB_EXPORTCODEAS_LONG_I)),_SUB_EXPORTCODEAS_STRING_CEOL)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20395,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_PERC,FUNC_STR2(&(pass6716=qbr(floor( 30 / ((long double)(*__LONG_IDEN))**_SUB_EXPORTCODEAS_LONG_I))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20396,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_IDEINFO,qbs_add(qbs_add(qbs_add(func_chr( 0 ),func_string( 3 -_SUB_EXPORTCODEAS_STRING_PERC->len, 32 )),_SUB_EXPORTCODEAS_STRING_PERC),qbs_new_txt_len("% exported...",13))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20397,"ide_methods.bas");}while(r); -do{ -SUB_UPDATEIDEINFO(); -if(!qbevent)break;evnt(26070,20398,"ide_methods.bas");}while(r); -fornext_continue_6714:; -} -fornext_exit_6714:; -S_60008:; -while((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_SUB_EXPORTCODEAS_STRING_STXT,_SUB_EXPORTCODEAS_STRING_CEOL->len),_SUB_EXPORTCODEAS_STRING_CEOL)))||new_error){ -if(qbevent){evnt(26070,20400,"ide_methods.bas");if(r)goto S_60008;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_STXT,qbs_left(_SUB_EXPORTCODEAS_STRING_STXT,_SUB_EXPORTCODEAS_STRING_STXT->len-_SUB_EXPORTCODEAS_STRING_CEOL->len)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20401,"ide_methods.bas");}while(r); -ww_continue_6718:; -} -ww_exit_6718:; -S_60011:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_STXT,qbs_new_txt_len("",0))))||new_error){ -if(qbevent){evnt(26070,20403,"ide_methods.bas");if(r)goto S_60011;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_STXT,qbs_add(_SUB_EXPORTCODEAS_STRING_STXT,_SUB_EXPORTCODEAS_STRING_CEOL)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20403,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_STXT,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_STXT,_SUB_EXPORTCODEAS_STRING_CEOL),_SUB_EXPORTCODEAS_STRING_CEOL)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20403,"ide_methods.bas");}while(r); -} -do{ -*_SUB_EXPORTCODEAS_LONG_SLEN=_SUB_EXPORTCODEAS_STRING_STXT->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20404,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_LONG_SPOS= 1 ; -if(!qbevent)break;evnt(26070,20405,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_ETXT,func_space( 10000000 )); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20406,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_LONG_EPOS= 1 ; -if(!qbevent)break;evnt(26070,20407,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_POST= 0 ; -if(!qbevent)break;evnt(26070,20409,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_WHAT,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20410,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_CO= 0 ; -if(!qbevent)break;evnt(26070,20412,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_LE= 0 ; -if(!qbevent)break;evnt(26070,20413,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_ME= 0 ; -if(!qbevent)break;evnt(26070,20414,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_KW= 0 ; -if(!qbevent)break;evnt(26070,20415,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_NU= 0 ; -if(!qbevent)break;evnt(26070,20416,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_QU= 0 ; -if(!qbevent)break;evnt(26070,20417,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_OP= 0 ; -if(!qbevent)break;evnt(26070,20419,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_MA,qbs_new_txt_len("@_ARCCOT@_ARCCSC@_ARCSEC@_COT@_COTH@_COSH@_CSC@_CSCH@_SEC@_SECH@_SINH@_TANH@",76)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20420,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_FU= 0 ; -if(!qbevent)break;evnt(26070,20421,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_FU,qbs_new_txt_len("@_AUTODISPLAY@_BLEND@_BLINK@_CAPSLOCK@_CLEARCOLOR@_CLIPBOARD$@_CLIPBOARDIMAGE@_CONTROLCHR@_DEST@_DISPLAY@_EXIT@_FONT@_FULLSCREEN@_MAPUNICODE@_MEM@_MEMGET@_MESSAGEBOX@_NUMLOCK@_OFFSET@_PALETTECOLOR@_PRINTMODE@_RESIZE@_SCREENICON@_SCROLLLOCK@_SMOOTH@_SOURCE@_WIDTH@ASC@MID$@PLAY@SCREEN@SEEK@SHELL@TIMER@",301)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20422,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_BO= 0 ; -if(!qbevent)break;evnt(26070,20423,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_BO,qbs_new_txt_len("@AND@OR@XOR@",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20424,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_NP= 0 ; -if(!qbevent)break;evnt(26070,20426,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_PC= 0 ; -if(!qbevent)break;evnt(26070,20427,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_ML= 0 ; -if(!qbevent)break;evnt(26070,20428,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_CU= 0 ; -if(!qbevent)break;evnt(26070,20429,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_LB= 0 ; -if(!qbevent)break;evnt(26070,20430,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_NL= -1 ; -if(!qbevent)break;evnt(26070,20431,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_NT= -1 ; -if(!qbevent)break;evnt(26070,20432,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_NC= 0 ; -if(!qbevent)break;evnt(26070,20434,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_IN= 0 ; -if(!qbevent)break;evnt(26070,20435,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_SK= 0 ; -if(!qbevent)break;evnt(26070,20436,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=184; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_OPENCODEBLOCK; -RETURN_184:; -if(!qbevent)break;evnt(26070,20438,"ide_methods.bas");}while(r); -S_60045:; -while((-(*_SUB_EXPORTCODEAS_LONG_SPOS<=*_SUB_EXPORTCODEAS_LONG_SLEN))||new_error){ -if(qbevent){evnt(26070,20439,"ide_methods.bas");if(r)goto S_60045;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_PERC,FUNC_STR2(&(pass6724=qbr( 30 +floor( 70 / ((long double)(*_SUB_EXPORTCODEAS_LONG_SLEN))**_SUB_EXPORTCODEAS_LONG_SPOS))))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20440,"ide_methods.bas");}while(r); -do{ -qbs_set(__STRING_IDEINFO,qbs_add(qbs_add(qbs_add(func_chr( 0 ),func_string( 3 -_SUB_EXPORTCODEAS_STRING_PERC->len, 32 )),_SUB_EXPORTCODEAS_STRING_PERC),qbs_new_txt_len("% exported...",13))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20441,"ide_methods.bas");}while(r); -do{ -SUB_UPDATEIDEINFO(); -if(!qbevent)break;evnt(26070,20442,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_CURR=qbs_asc(_SUB_EXPORTCODEAS_STRING_STXT,*_SUB_EXPORTCODEAS_LONG_SPOS); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20444,"ide_methods.bas");}while(r); -S_60050:; -if(qbevent){evnt(26070,20445,"ide_methods.bas");if(r)goto S_60050;} -S_60051:; -if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 10 ))||(*_SUB_EXPORTCODEAS_INTEGER_CURR==( 13 )))||new_error){ -if(qbevent){evnt(26070,20446,"ide_methods.bas");if(r)goto S_60051;} -S_60052:; -if ((~(*_SUB_EXPORTCODEAS_INTEGER_LB))||new_error){ -if(qbevent){evnt(26070,20447,"ide_methods.bas");if(r)goto S_60052;} -S_60053:; -if ((*_SUB_EXPORTCODEAS_INTEGER_ME)||new_error){ -if(qbevent){evnt(26070,20448,"ide_methods.bas");if(r)goto S_60053;} -S_60054:; -if ((~(*_SUB_EXPORTCODEAS_INTEGER_IN))||new_error){ -if(qbevent){evnt(26070,20449,"ide_methods.bas");if(r)goto S_60054;} -do{ -return_point[next_return_point++]=185; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_VERIFYKEYWORD; -RETURN_185:; -if(!qbevent)break;evnt(26070,20449,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=186; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_WRITELINK; -RETURN_186:; -if(!qbevent)break;evnt(26070,20449,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_ME,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20449,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_IN= 0 ; -if(!qbevent)break;evnt(26070,20449,"ide_methods.bas");}while(r); -} -do{ -*_SUB_EXPORTCODEAS_INTEGER_ME= 0 ; -if(!qbevent)break;evnt(26070,20450,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_LE= 0 ; -if(!qbevent)break;evnt(26070,20450,"ide_methods.bas");}while(r); -S_60063:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_ME),qbs_new_txt_len("$NOPREFIX",9))))||new_error){ -if(qbevent){evnt(26070,20451,"ide_methods.bas");if(r)goto S_60063;} -do{ -*_SUB_EXPORTCODEAS_INTEGER_NP= -1 ; -if(!qbevent)break;evnt(26070,20451,"ide_methods.bas");}while(r); -} -} -S_60067:; -if ((*_SUB_EXPORTCODEAS_INTEGER_KW)||new_error){ -if(qbevent){evnt(26070,20453,"ide_methods.bas");if(r)goto S_60067;} -S_60068:; -if ((~(*_SUB_EXPORTCODEAS_INTEGER_IN))||new_error){ -if(qbevent){evnt(26070,20454,"ide_methods.bas");if(r)goto S_60068;} -do{ -return_point[next_return_point++]=187; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_VERIFYKEYWORD; -RETURN_187:; -if(!qbevent)break;evnt(26070,20454,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=188; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_WRITELINK; -RETURN_188:; -if(!qbevent)break;evnt(26070,20454,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20454,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_IN= 0 ; -if(!qbevent)break;evnt(26070,20454,"ide_methods.bas");}while(r); -} -do{ -*_SUB_EXPORTCODEAS_INTEGER_KW= 0 ; -if(!qbevent)break;evnt(26070,20455,"ide_methods.bas");}while(r); -} -S_60077:; -if ((*_SUB_EXPORTCODEAS_INTEGER_CO)||new_error){ -if(qbevent){evnt(26070,20457,"ide_methods.bas");if(r)goto S_60077;} -do{ -*_SUB_EXPORTCODEAS_INTEGER_POST= 0 ; -if(!qbevent)break;evnt(26070,20457,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_WHAT,qbs_new_txt_len("co",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20457,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=189; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_CLOSETEXT; -RETURN_189:; -if(!qbevent)break;evnt(26070,20457,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_CO= 0 ; -if(!qbevent)break;evnt(26070,20457,"ide_methods.bas");}while(r); -} -S_60083:; -if ((*_SUB_EXPORTCODEAS_INTEGER_NU)||new_error){ -if(qbevent){evnt(26070,20458,"ide_methods.bas");if(r)goto S_60083;} -do{ -*_SUB_EXPORTCODEAS_INTEGER_POST= 0 ; -if(!qbevent)break;evnt(26070,20458,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_WHAT,qbs_new_txt_len("nu",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20458,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=190; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_CLOSETEXT; -RETURN_190:; -if(!qbevent)break;evnt(26070,20458,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_NU= 0 ; -if(!qbevent)break;evnt(26070,20458,"ide_methods.bas");}while(r); -} -S_60089:; -if ((-(*_SUB_EXPORTCODEAS_LONG_SPOS> 1 ))||new_error){ -if(qbevent){evnt(26070,20459,"ide_methods.bas");if(r)goto S_60089;} -S_60090:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_SUB_EXPORTCODEAS_STRING_STXT,*_SUB_EXPORTCODEAS_LONG_SPOS- 1 )!= 95 )))||new_error){ -if(qbevent){evnt(26070,20460,"ide_methods.bas");if(r)goto S_60090;} -do{ -*_SUB_EXPORTCODEAS_INTEGER_OP= 0 ; -if(!qbevent)break;evnt(26070,20460,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_FU= 0 ; -if(!qbevent)break;evnt(26070,20460,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_BO= 0 ; -if(!qbevent)break;evnt(26070,20460,"ide_methods.bas");}while(r); -} -}else{ -do{ -*_SUB_EXPORTCODEAS_INTEGER_OP= 0 ; -if(!qbevent)break;evnt(26070,20462,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_FU= 0 ; -if(!qbevent)break;evnt(26070,20462,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_BO= 0 ; -if(!qbevent)break;evnt(26070,20462,"ide_methods.bas");}while(r); -} -do{ -return_point[next_return_point++]=191; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_ENDLINEOPS; -RETURN_191:; -if(!qbevent)break;evnt(26070,20464,"ide_methods.bas");}while(r); -S_60101:; -if ((-(*_SUB_EXPORTCODEAS_INTEGER_CURR== 13 ))||new_error){ -if(qbevent){evnt(26070,20465,"ide_methods.bas");if(r)goto S_60101;} -do{ -*_SUB_EXPORTCODEAS_INTEGER_LB= -1 ; -if(!qbevent)break;evnt(26070,20465,"ide_methods.bas");}while(r); -} -} -S_60105:; -if ((-(*_SUB_EXPORTCODEAS_INTEGER_CURR== 10 ))||new_error){ -if(qbevent){evnt(26070,20467,"ide_methods.bas");if(r)goto S_60105;} -do{ -*_SUB_EXPORTCODEAS_INTEGER_PC= 0 ; -if(!qbevent)break;evnt(26070,20467,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_ML= 0 ; -if(!qbevent)break;evnt(26070,20467,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_LB= 0 ; -if(!qbevent)break;evnt(26070,20467,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_NL= -1 ; -if(!qbevent)break;evnt(26070,20467,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_NT= -1 ; -if(!qbevent)break;evnt(26070,20467,"ide_methods.bas");}while(r); -} -sc_ec_451_end:; -goto sc_6726_end; -} -S_60112:; -if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 9 ))||(*_SUB_EXPORTCODEAS_INTEGER_CURR==( 32 )))||new_error){ -if(qbevent){evnt(26070,20468,"ide_methods.bas");if(r)goto S_60112;} -S_60113:; -if ((*_SUB_EXPORTCODEAS_INTEGER_ME)||new_error){ -if(qbevent){evnt(26070,20469,"ide_methods.bas");if(r)goto S_60113;} -do{ -return_point[next_return_point++]=192; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_VERIFYKEYWORD; -RETURN_192:; -if(!qbevent)break;evnt(26070,20470,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=193; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_WRITELINK; -RETURN_193:; -if(!qbevent)break;evnt(26070,20470,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_ME= 0 ; -if(!qbevent)break;evnt(26070,20470,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_LE= 0 ; -if(!qbevent)break;evnt(26070,20470,"ide_methods.bas");}while(r); -S_60118:; -qbs_set(sc_6727,qbs_ucase(_SUB_EXPORTCODEAS_STRING_ME)); -qbs_cleanup(qbs_tmp_base,0); -if(qbevent){evnt(26070,20471,"ide_methods.bas");if(r)goto S_60118;} -S_60119:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6727,qbs_new_txt_len("$LET",4))||qbs_equal(sc_6727,qbs_new_txt_len("$ELSE",5))||qbs_equal(sc_6727,qbs_new_txt_len("$END",4))))||new_error){ -if(qbevent){evnt(26070,20472,"ide_methods.bas");if(r)goto S_60119;} -do{ -*_SUB_EXPORTCODEAS_INTEGER_PC= -1 ; -if(!qbevent)break;evnt(26070,20472,"ide_methods.bas");}while(r); -sc_ec_452_end:; -goto sc_6727_end; -} -S_60121:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6727,qbs_new_txt_len("$IF",3))||qbs_equal(sc_6727,qbs_new_txt_len("$ELSEIF",7))))||new_error){ -if(qbevent){evnt(26070,20473,"ide_methods.bas");if(r)goto S_60121;} -do{ -*_SUB_EXPORTCODEAS_INTEGER_PC= -1 ; -if(!qbevent)break;evnt(26070,20473,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_BO= -1 ; -if(!qbevent)break;evnt(26070,20473,"ide_methods.bas");}while(r); -sc_ec_453_end:; -goto sc_6727_end; -} -sc_6727_end:; -} -S_60126:; -if ((*_SUB_EXPORTCODEAS_INTEGER_KW)||new_error){ -if(qbevent){evnt(26070,20476,"ide_methods.bas");if(r)goto S_60126;} -S_60127:; -if ((~(*_SUB_EXPORTCODEAS_INTEGER_IN))||new_error){ -if(qbevent){evnt(26070,20477,"ide_methods.bas");if(r)goto S_60127;} -do{ -return_point[next_return_point++]=194; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_VERIFYKEYWORD; -RETURN_194:; -if(!qbevent)break;evnt(26070,20477,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=195; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_WRITELINK; -RETURN_195:; -if(!qbevent)break;evnt(26070,20477,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20477,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_IN= 0 ; -if(!qbevent)break;evnt(26070,20477,"ide_methods.bas");}while(r); -} -do{ -*_SUB_EXPORTCODEAS_INTEGER_KW= 0 ; -if(!qbevent)break;evnt(26070,20478,"ide_methods.bas");}while(r); -S_60135:; -if ((*_SUB_EXPORTCODEAS_INTEGER_IN)||new_error){ -if(qbevent){evnt(26070,20478,"ide_methods.bas");if(r)goto S_60135;} -do{ -*_SUB_EXPORTCODEAS_INTEGER_SK= -1 ; -if(!qbevent)break;evnt(26070,20478,"ide_methods.bas");}while(r); -} -S_60138:; -qbs_set(sc_6728,qbs_ucase(_SUB_EXPORTCODEAS_STRING_KW)); -qbs_cleanup(qbs_tmp_base,0); -if(qbevent){evnt(26070,20479,"ide_methods.bas");if(r)goto S_60138;} -S_60139:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6728,qbs_new_txt_len("REM",3))))||new_error){ -if(qbevent){evnt(26070,20480,"ide_methods.bas");if(r)goto S_60139;} -S_60140:; -if ((~((*_SUB_EXPORTCODEAS_INTEGER_CO|*_SUB_EXPORTCODEAS_INTEGER_QU)))||new_error){ -if(qbevent){evnt(26070,20480,"ide_methods.bas");if(r)goto S_60140;} -do{ -*_SUB_EXPORTCODEAS_INTEGER_CO= -1 ; -if(!qbevent)break;evnt(26070,20480,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_WHAT,qbs_new_txt_len("co",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20480,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=196; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_OPENTEXT; -RETURN_196:; -if(!qbevent)break;evnt(26070,20480,"ide_methods.bas");}while(r); -} -sc_ec_454_end:; -goto sc_6728_end; -} -S_60145:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6728,qbs_new_txt_len("OPEN",4))))||new_error){ -if(qbevent){evnt(26070,20481,"ide_methods.bas");if(r)goto S_60145;} -do{ -*_SUB_EXPORTCODEAS_INTEGER_OP= -1 ; -if(!qbevent)break;evnt(26070,20481,"ide_methods.bas");}while(r); -sc_ec_455_end:; -goto sc_6728_end; -} -S_60147:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6728,qbs_new_txt_len("IF",2))||qbs_equal(sc_6728,qbs_new_txt_len("ELSEIF",6))||qbs_equal(sc_6728,qbs_new_txt_len("UNTIL",5))||qbs_equal(sc_6728,qbs_new_txt_len("WHILE",5))))||new_error){ -if(qbevent){evnt(26070,20482,"ide_methods.bas");if(r)goto S_60147;} -do{ -*_SUB_EXPORTCODEAS_INTEGER_FU= -1 ; -if(!qbevent)break;evnt(26070,20482,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_BO= -1 ; -if(!qbevent)break;evnt(26070,20482,"ide_methods.bas");}while(r); -sc_ec_456_end:; -goto sc_6728_end; -} -S_60150:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6728,qbs_new_txt_len("THEN",4))))||new_error){ -if(qbevent){evnt(26070,20483,"ide_methods.bas");if(r)goto S_60150;} -do{ -*_SUB_EXPORTCODEAS_INTEGER_FU= 0 ; -if(!qbevent)break;evnt(26070,20483,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_BO= 0 ; -if(!qbevent)break;evnt(26070,20483,"ide_methods.bas");}while(r); -sc_ec_457_end:; -goto sc_6728_end; -} -S_60154:; -fornext_value6730= 1 ; -fornext_finalvalue6730=*__LONG_IDN; -fornext_step6730= 1 ; -if (fornext_step6730<0) fornext_step_negative6730=1; else fornext_step_negative6730=0; -if (new_error) goto fornext_error6730; -goto fornext_entrylabel6730; -while(1){ -fornext_value6730=fornext_step6730+(*_SUB_EXPORTCODEAS_LONG_I); -fornext_entrylabel6730: -*_SUB_EXPORTCODEAS_LONG_I=fornext_value6730; -if (fornext_step_negative6730){ -if (fornext_value6730fornext_finalvalue6730) break; -} -fornext_error6730:; -if(qbevent){evnt(26070,20485,"ide_methods.bas");if(r)goto S_60154;} -S_60155:; -if (((-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_EXPORTCODEAS_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+544))== 2 ))&(-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_EXPORTCODEAS_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+809))> 0 )))||new_error){ -if(qbevent){evnt(26070,20486,"ide_methods.bas");if(r)goto S_60155;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_ID,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_EXPORTCODEAS_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)),256,1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20487,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_UW,qbs_ucase(_SUB_EXPORTCODEAS_STRING_KW)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20487,"ide_methods.bas");}while(r); -S_60158:; -if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_EXPORTCODEAS_STRING_ID,_SUB_EXPORTCODEAS_STRING_UW))|(*_SUB_EXPORTCODEAS_INTEGER_NP&(qbs_equal(_SUB_EXPORTCODEAS_STRING_ID,(qbs_add(qbs_new_txt_len("_",1),_SUB_EXPORTCODEAS_STRING_UW)))))))||new_error){ -if(qbevent){evnt(26070,20488,"ide_methods.bas");if(r)goto S_60158;} -do{ -*_SUB_EXPORTCODEAS_INTEGER_FU= -2 ; -if(!qbevent)break;evnt(26070,20488,"ide_methods.bas");}while(r); -do{ -goto fornext_exit_6729; -if(!qbevent)break;evnt(26070,20488,"ide_methods.bas");}while(r); -} -} -fornext_continue_6729:; -} -fornext_exit_6729:; -sc_6728_end:; -} -S_60166:; -if ((*_SUB_EXPORTCODEAS_INTEGER_NU)||new_error){ -if(qbevent){evnt(26070,20493,"ide_methods.bas");if(r)goto S_60166;} -do{ -*_SUB_EXPORTCODEAS_INTEGER_POST= 0 ; -if(!qbevent)break;evnt(26070,20493,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_WHAT,qbs_new_txt_len("nu",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20493,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=197; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_CLOSETEXT; -RETURN_197:; -if(!qbevent)break;evnt(26070,20493,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_NU= 0 ; -if(!qbevent)break;evnt(26070,20493,"ide_methods.bas");}while(r); -} -do{ -*_SUB_EXPORTCODEAS_INTEGER_NT= -1 ; -if(!qbevent)break;evnt(26070,20494,"ide_methods.bas");}while(r); -sc_ec_458_end:; -goto sc_6726_end; -} -S_60173:; -if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 34 )))||new_error){ -if(qbevent){evnt(26070,20495,"ide_methods.bas");if(r)goto S_60173;} -S_60174:; -if ((~((*_SUB_EXPORTCODEAS_INTEGER_CO|*_SUB_EXPORTCODEAS_INTEGER_QU)))||new_error){ -if(qbevent){evnt(26070,20496,"ide_methods.bas");if(r)goto S_60174;} -do{ -*_SUB_EXPORTCODEAS_INTEGER_QU= -1 ; -if(!qbevent)break;evnt(26070,20497,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_WHAT,qbs_new_txt_len("qu",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20497,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=198; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_OPENTEXT; -RETURN_198:; -if(!qbevent)break;evnt(26070,20497,"ide_methods.bas");}while(r); -S_60178:; -}else{ -if (*_SUB_EXPORTCODEAS_INTEGER_QU){ -if(qbevent){evnt(26070,20498,"ide_methods.bas");if(r)goto S_60178;} -do{ -*_SUB_EXPORTCODEAS_INTEGER_POST= -1 ; -if(!qbevent)break;evnt(26070,20499,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_WHAT,qbs_new_txt_len("qu",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20499,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=199; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_CLOSETEXT; -RETURN_199:; -if(!qbevent)break;evnt(26070,20499,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_QU= 0 ; -if(!qbevent)break;evnt(26070,20499,"ide_methods.bas");}while(r); -} -} -S_60184:; -if ((~(*_SUB_EXPORTCODEAS_INTEGER_SK))||new_error){ -if(qbevent){evnt(26070,20501,"ide_methods.bas");if(r)goto S_60184;} -do{ -return_point[next_return_point++]=200; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_ESCAPECHAR; -RETURN_200:; -if(!qbevent)break;evnt(26070,20501,"ide_methods.bas");}while(r); -} -sc_ec_459_end:; -goto sc_6726_end; -} -S_60187:; -if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 36 )))||new_error){ -if(qbevent){evnt(26070,20502,"ide_methods.bas");if(r)goto S_60187;} -S_60188:; -if ((*_SUB_EXPORTCODEAS_INTEGER_NL|*_SUB_EXPORTCODEAS_INTEGER_LE)||new_error){ -if(qbevent){evnt(26070,20503,"ide_methods.bas");if(r)goto S_60188;} -do{ -*_SUB_EXPORTCODEAS_INTEGER_ML= -1 ; -if(!qbevent)break;evnt(26070,20503,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_ME= -1 ; -if(!qbevent)break;evnt(26070,20503,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_ME,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20503,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_NT= 0 ; -if(!qbevent)break;evnt(26070,20503,"ide_methods.bas");}while(r); -} -sc_ec_460_end:; -goto sc_6726_end; -} -S_60194:; -if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 38 )))||new_error){ -if(qbevent){evnt(26070,20504,"ide_methods.bas");if(r)goto S_60194;} -S_60195:; -if ((*_SUB_EXPORTCODEAS_INTEGER_NT&(~((*_SUB_EXPORTCODEAS_INTEGER_CO|*_SUB_EXPORTCODEAS_INTEGER_QU))))||new_error){ -if(qbevent){evnt(26070,20505,"ide_methods.bas");if(r)goto S_60195;} -S_60196:; -if ((-((*_SUB_EXPORTCODEAS_LONG_SPOS+ 1 )<=*_SUB_EXPORTCODEAS_LONG_SLEN))||new_error){ -if(qbevent){evnt(26070,20506,"ide_methods.bas");if(r)goto S_60196;} -S_60197:; -if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,qbs_new_txt_len("BHO",3),func_chr(qbs_asc(_SUB_EXPORTCODEAS_STRING_STXT,*_SUB_EXPORTCODEAS_LONG_SPOS+ 1 )),0)> 0 )))||new_error){ -if(qbevent){evnt(26070,20507,"ide_methods.bas");if(r)goto S_60197;} -do{ -*_SUB_EXPORTCODEAS_INTEGER_NU= -1 ; -if(!qbevent)break;evnt(26070,20508,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_WHAT,qbs_new_txt_len("nu",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20508,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=201; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_OPENTEXT; -RETURN_201:; -if(!qbevent)break;evnt(26070,20508,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_NT= 0 ; -if(!qbevent)break;evnt(26070,20508,"ide_methods.bas");}while(r); -} -} -} -S_60205:; -if ((~((*_SUB_EXPORTCODEAS_INTEGER_ME|*_SUB_EXPORTCODEAS_INTEGER_KW)))||new_error){ -if(qbevent){evnt(26070,20512,"ide_methods.bas");if(r)goto S_60205;} -do{ -return_point[next_return_point++]=202; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_ESCAPECHAR; -RETURN_202:; -if(!qbevent)break;evnt(26070,20512,"ide_methods.bas");}while(r); -} -sc_ec_461_end:; -goto sc_6726_end; -} -S_60208:; -if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 39 )))||new_error){ -if(qbevent){evnt(26070,20513,"ide_methods.bas");if(r)goto S_60208;} -S_60209:; -if ((*_SUB_EXPORTCODEAS_INTEGER_NL)||new_error){ -if(qbevent){evnt(26070,20514,"ide_methods.bas");if(r)goto S_60209;} -S_60210:; -if ((-((*_SUB_EXPORTCODEAS_LONG_SPOS+ 1 )<=*_SUB_EXPORTCODEAS_LONG_SLEN))||new_error){ -if(qbevent){evnt(26070,20515,"ide_methods.bas");if(r)goto S_60210;} -S_60211:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_SUB_EXPORTCODEAS_STRING_STXT,*_SUB_EXPORTCODEAS_LONG_SPOS+ 1 )== 36 )))||new_error){ -if(qbevent){evnt(26070,20516,"ide_methods.bas");if(r)goto S_60211;} -do{ -*_SUB_EXPORTCODEAS_INTEGER_LE= -1 ; -if(!qbevent)break;evnt(26070,20516,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_NT= 0 ; -if(!qbevent)break;evnt(26070,20516,"ide_methods.bas");}while(r); -} -} -} -S_60217:; -if ((~((*_SUB_EXPORTCODEAS_INTEGER_CO|*_SUB_EXPORTCODEAS_INTEGER_QU)))||new_error){ -if(qbevent){evnt(26070,20519,"ide_methods.bas");if(r)goto S_60217;} -do{ -*_SUB_EXPORTCODEAS_INTEGER_CO= -1 ; -if(!qbevent)break;evnt(26070,20519,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_WHAT,qbs_new_txt_len("co",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20519,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=203; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_OPENTEXT; -RETURN_203:; -if(!qbevent)break;evnt(26070,20519,"ide_methods.bas");}while(r); -} -sc_ec_462_end:; -goto sc_6726_end; -} -S_60222:; -if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 40 ))||(*_SUB_EXPORTCODEAS_INTEGER_CURR==( 41 )))||new_error){ -if(qbevent){evnt(26070,20520,"ide_methods.bas");if(r)goto S_60222;} -S_60223:; -if ((*_SUB_EXPORTCODEAS_INTEGER_KW)||new_error){ -if(qbevent){evnt(26070,20521,"ide_methods.bas");if(r)goto S_60223;} -S_60224:; -if ((~(*_SUB_EXPORTCODEAS_INTEGER_IN))||new_error){ -if(qbevent){evnt(26070,20522,"ide_methods.bas");if(r)goto S_60224;} -do{ -return_point[next_return_point++]=204; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_VERIFYKEYWORD; -RETURN_204:; -if(!qbevent)break;evnt(26070,20522,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=205; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_WRITELINK; -RETURN_205:; -if(!qbevent)break;evnt(26070,20522,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20522,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_IN= 0 ; -if(!qbevent)break;evnt(26070,20522,"ide_methods.bas");}while(r); -} -do{ -*_SUB_EXPORTCODEAS_INTEGER_KW= 0 ; -if(!qbevent)break;evnt(26070,20523,"ide_methods.bas");}while(r); -} -S_60233:; -if ((*_SUB_EXPORTCODEAS_INTEGER_NU)||new_error){ -if(qbevent){evnt(26070,20525,"ide_methods.bas");if(r)goto S_60233;} -do{ -*_SUB_EXPORTCODEAS_INTEGER_POST= 0 ; -if(!qbevent)break;evnt(26070,20525,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_WHAT,qbs_new_txt_len("nu",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20525,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=206; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_CLOSETEXT; -RETURN_206:; -if(!qbevent)break;evnt(26070,20525,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_NU= 0 ; -if(!qbevent)break;evnt(26070,20525,"ide_methods.bas");}while(r); -} -S_60239:; -if ((~((*_SUB_EXPORTCODEAS_INTEGER_CO|*_SUB_EXPORTCODEAS_INTEGER_QU)))||new_error){ -if(qbevent){evnt(26070,20526,"ide_methods.bas");if(r)goto S_60239;} -S_60240:; -if ((-(*_SUB_EXPORTCODEAS_INTEGER_CURR== 40 ))||new_error){ -if(qbevent){evnt(26070,20527,"ide_methods.bas");if(r)goto S_60240;} -do{ -*_SUB_EXPORTCODEAS_INTEGER_NC=*_SUB_EXPORTCODEAS_INTEGER_NC+ 1 ; -if(!qbevent)break;evnt(26070,20527,"ide_methods.bas");}while(r); -}else{ -do{ -*_SUB_EXPORTCODEAS_INTEGER_NC=*_SUB_EXPORTCODEAS_INTEGER_NC- 1 ; -if(!qbevent)break;evnt(26070,20527,"ide_methods.bas");}while(r); -} -} -S_60246:; -if ((~((*_SUB_EXPORTCODEAS_INTEGER_CO|*_SUB_EXPORTCODEAS_INTEGER_QU|(-(*_SUB_EXPORTCODEAS_INTEGER_FU< -1 ))|*_SUB_EXPORTCODEAS_INTEGER_BO)))||new_error){ -if(qbevent){evnt(26070,20529,"ide_methods.bas");if(r)goto S_60246;} -S_60247:; -if ((-(*_SUB_EXPORTCODEAS_INTEGER_NC> 0 ))||new_error){ -if(qbevent){evnt(26070,20530,"ide_methods.bas");if(r)goto S_60247;} -do{ -*_SUB_EXPORTCODEAS_INTEGER_FU= -1 ; -if(!qbevent)break;evnt(26070,20530,"ide_methods.bas");}while(r); -}else{ -do{ -*_SUB_EXPORTCODEAS_INTEGER_FU= 0 ; -if(!qbevent)break;evnt(26070,20530,"ide_methods.bas");}while(r); -} -} -do{ -*_SUB_EXPORTCODEAS_INTEGER_NT= -1 ; -if(!qbevent)break;evnt(26070,20532,"ide_methods.bas");}while(r); -sc_ec_463_end:; -goto sc_6726_end; -} -S_60254:; -if ((((*_SUB_EXPORTCODEAS_INTEGER_CURR>=( 42 ))&&(*_SUB_EXPORTCODEAS_INTEGER_CURR<=( 44 )))||(*_SUB_EXPORTCODEAS_INTEGER_CURR==( 47 ))||((*_SUB_EXPORTCODEAS_INTEGER_CURR>=( 59 ))&&(*_SUB_EXPORTCODEAS_INTEGER_CURR<=( 62 )))||(*_SUB_EXPORTCODEAS_INTEGER_CURR==( 92 ))||(*_SUB_EXPORTCODEAS_INTEGER_CURR==( 94 )))||new_error){ -if(qbevent){evnt(26070,20533,"ide_methods.bas");if(r)goto S_60254;} -S_60255:; -if ((*_SUB_EXPORTCODEAS_INTEGER_KW)||new_error){ -if(qbevent){evnt(26070,20534,"ide_methods.bas");if(r)goto S_60255;} -S_60256:; -if ((~(*_SUB_EXPORTCODEAS_INTEGER_IN))||new_error){ -if(qbevent){evnt(26070,20535,"ide_methods.bas");if(r)goto S_60256;} -do{ -return_point[next_return_point++]=207; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_VERIFYKEYWORD; -RETURN_207:; -if(!qbevent)break;evnt(26070,20535,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=208; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_WRITELINK; -RETURN_208:; -if(!qbevent)break;evnt(26070,20535,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20535,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_IN= 0 ; -if(!qbevent)break;evnt(26070,20535,"ide_methods.bas");}while(r); -} -do{ -*_SUB_EXPORTCODEAS_INTEGER_KW= 0 ; -if(!qbevent)break;evnt(26070,20536,"ide_methods.bas");}while(r); -} -S_60265:; -if ((*_SUB_EXPORTCODEAS_INTEGER_NU)||new_error){ -if(qbevent){evnt(26070,20538,"ide_methods.bas");if(r)goto S_60265;} -do{ -*_SUB_EXPORTCODEAS_INTEGER_POST= 0 ; -if(!qbevent)break;evnt(26070,20538,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_WHAT,qbs_new_txt_len("nu",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20538,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=209; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_CLOSETEXT; -RETURN_209:; -if(!qbevent)break;evnt(26070,20538,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_NU= 0 ; -if(!qbevent)break;evnt(26070,20538,"ide_methods.bas");}while(r); -} -S_60271:; -if (((-(*_SUB_EXPORTCODEAS_INTEGER_CURR== 61 ))&(~((*_SUB_EXPORTCODEAS_INTEGER_CO|*_SUB_EXPORTCODEAS_INTEGER_QU|(-(*_SUB_EXPORTCODEAS_INTEGER_FU< -1 ))|*_SUB_EXPORTCODEAS_INTEGER_BO))))||new_error){ -if(qbevent){evnt(26070,20539,"ide_methods.bas");if(r)goto S_60271;} -do{ -*_SUB_EXPORTCODEAS_INTEGER_FU= -3 ; -if(!qbevent)break;evnt(26070,20539,"ide_methods.bas");}while(r); -} -S_60274:; -if (((-(*_SUB_EXPORTCODEAS_INTEGER_CURR== 60 ))|(-(*_SUB_EXPORTCODEAS_INTEGER_CURR== 62 ))|(-(*_SUB_EXPORTCODEAS_INTEGER_CURR== 92 )))||new_error){ -if(qbevent){evnt(26070,20540,"ide_methods.bas");if(r)goto S_60274;} -do{ -return_point[next_return_point++]=210; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_ESCAPECHAR; -RETURN_210:; -if(!qbevent)break;evnt(26070,20540,"ide_methods.bas");}while(r); -} -do{ -*_SUB_EXPORTCODEAS_INTEGER_NT= -1 ; -if(!qbevent)break;evnt(26070,20541,"ide_methods.bas");}while(r); -sc_ec_464_end:; -goto sc_6726_end; -} -S_60278:; -if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 45 )))||new_error){ -if(qbevent){evnt(26070,20542,"ide_methods.bas");if(r)goto S_60278;} -S_60279:; -if ((*_SUB_EXPORTCODEAS_INTEGER_KW)||new_error){ -if(qbevent){evnt(26070,20543,"ide_methods.bas");if(r)goto S_60279;} -S_60280:; -if ((~(*_SUB_EXPORTCODEAS_INTEGER_IN))||new_error){ -if(qbevent){evnt(26070,20544,"ide_methods.bas");if(r)goto S_60280;} -do{ -return_point[next_return_point++]=211; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_VERIFYKEYWORD; -RETURN_211:; -if(!qbevent)break;evnt(26070,20544,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=212; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_WRITELINK; -RETURN_212:; -if(!qbevent)break;evnt(26070,20544,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20544,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_IN= 0 ; -if(!qbevent)break;evnt(26070,20544,"ide_methods.bas");}while(r); -} -do{ -*_SUB_EXPORTCODEAS_INTEGER_KW= 0 ; -if(!qbevent)break;evnt(26070,20545,"ide_methods.bas");}while(r); -} -S_60289:; -if ((*_SUB_EXPORTCODEAS_INTEGER_NU)||new_error){ -if(qbevent){evnt(26070,20547,"ide_methods.bas");if(r)goto S_60289;} -do{ -*_SUB_EXPORTCODEAS_INTEGER_POST= 0 ; -if(!qbevent)break;evnt(26070,20547,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_WHAT,qbs_new_txt_len("nu",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20547,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=213; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_CLOSETEXT; -RETURN_213:; -if(!qbevent)break;evnt(26070,20547,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_NU= 0 ; -if(!qbevent)break;evnt(26070,20547,"ide_methods.bas");}while(r); -} -do{ -*_SUB_EXPORTCODEAS_INTEGER_NT= -1 ; -if(!qbevent)break;evnt(26070,20548,"ide_methods.bas");}while(r); -S_60296:; -if ((~((*_SUB_EXPORTCODEAS_INTEGER_CO|*_SUB_EXPORTCODEAS_INTEGER_QU)))||new_error){ -if(qbevent){evnt(26070,20549,"ide_methods.bas");if(r)goto S_60296;} -S_60297:; -sc_6731=qbs_asc(_SUB_EXPORTCODEAS_STRING_STXT,*_SUB_EXPORTCODEAS_LONG_SPOS- 1 ); -qbs_cleanup(qbs_tmp_base,0); -if(qbevent){evnt(26070,20550,"ide_methods.bas");if(r)goto S_60297;} -S_60298:; -if (((sc_6731==( 9 ))||(sc_6731==( 32 ))||(sc_6731==( 40 ))||((sc_6731>=( 42 ))&&(sc_6731<=( 45 )))||(sc_6731==( 47 ))||((sc_6731>=( 59 ))&&(sc_6731<=( 63 )))||(sc_6731==( 92 ))||(sc_6731==( 94 )))||new_error){ -if(qbevent){evnt(26070,20551,"ide_methods.bas");if(r)goto S_60298;} -S_60299:; -if ((-((*_SUB_EXPORTCODEAS_LONG_SPOS+ 1 )<=*_SUB_EXPORTCODEAS_LONG_SLEN))||new_error){ -if(qbevent){evnt(26070,20552,"ide_methods.bas");if(r)goto S_60299;} -S_60300:; -if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,qbs_new_txt_len(".0123456789",11),func_chr(qbs_asc(_SUB_EXPORTCODEAS_STRING_STXT,*_SUB_EXPORTCODEAS_LONG_SPOS+ 1 )),0)> 0 )))||new_error){ -if(qbevent){evnt(26070,20553,"ide_methods.bas");if(r)goto S_60300;} -do{ -*_SUB_EXPORTCODEAS_INTEGER_NU= -1 ; -if(!qbevent)break;evnt(26070,20554,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_WHAT,qbs_new_txt_len("nu",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20554,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=214; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_OPENTEXT; -RETURN_214:; -if(!qbevent)break;evnt(26070,20554,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_NT= 0 ; -if(!qbevent)break;evnt(26070,20554,"ide_methods.bas");}while(r); -} -} -sc_ec_465_end:; -goto sc_6731_end; -} -sc_6731_end:; -} -sc_ec_466_end:; -goto sc_6726_end; -} -S_60309:; -if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 46 )))||new_error){ -if(qbevent){evnt(26070,20559,"ide_methods.bas");if(r)goto S_60309;} -S_60310:; -if ((*_SUB_EXPORTCODEAS_INTEGER_NT&(~((*_SUB_EXPORTCODEAS_INTEGER_CO|*_SUB_EXPORTCODEAS_INTEGER_QU))))||new_error){ -if(qbevent){evnt(26070,20560,"ide_methods.bas");if(r)goto S_60310;} -S_60311:; -if ((-((*_SUB_EXPORTCODEAS_LONG_SPOS+ 1 )<=*_SUB_EXPORTCODEAS_LONG_SLEN))||new_error){ -if(qbevent){evnt(26070,20561,"ide_methods.bas");if(r)goto S_60311;} -S_60312:; -if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,qbs_new_txt_len("0123456789",10),func_chr(qbs_asc(_SUB_EXPORTCODEAS_STRING_STXT,*_SUB_EXPORTCODEAS_LONG_SPOS+ 1 )),0)> 0 )))||new_error){ -if(qbevent){evnt(26070,20562,"ide_methods.bas");if(r)goto S_60312;} -do{ -*_SUB_EXPORTCODEAS_INTEGER_NU= -1 ; -if(!qbevent)break;evnt(26070,20563,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_WHAT,qbs_new_txt_len("nu",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20563,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=215; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_OPENTEXT; -RETURN_215:; -if(!qbevent)break;evnt(26070,20563,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_NT= 0 ; -if(!qbevent)break;evnt(26070,20563,"ide_methods.bas");}while(r); -} -} -} -sc_ec_467_end:; -goto sc_6726_end; -} -S_60320:; -if ((((*_SUB_EXPORTCODEAS_INTEGER_CURR>=( 48 ))&&(*_SUB_EXPORTCODEAS_INTEGER_CURR<=( 57 ))))||new_error){ -if(qbevent){evnt(26070,20567,"ide_methods.bas");if(r)goto S_60320;} -S_60321:; -if ((*_SUB_EXPORTCODEAS_INTEGER_NT&(~((*_SUB_EXPORTCODEAS_INTEGER_CO|*_SUB_EXPORTCODEAS_INTEGER_QU))))||new_error){ -if(qbevent){evnt(26070,20568,"ide_methods.bas");if(r)goto S_60321;} -do{ -*_SUB_EXPORTCODEAS_INTEGER_NU= -1 ; -if(!qbevent)break;evnt(26070,20568,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_WHAT,qbs_new_txt_len("nu",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20568,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=216; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_OPENTEXT; -RETURN_216:; -if(!qbevent)break;evnt(26070,20568,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_NT= 0 ; -if(!qbevent)break;evnt(26070,20568,"ide_methods.bas");}while(r); -} -sc_ec_468_end:; -goto sc_6726_end; -} -S_60327:; -if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 58 )))||new_error){ -if(qbevent){evnt(26070,20569,"ide_methods.bas");if(r)goto S_60327;} -S_60328:; -if ((*_SUB_EXPORTCODEAS_INTEGER_ME)||new_error){ -if(qbevent){evnt(26070,20570,"ide_methods.bas");if(r)goto S_60328;} -do{ -return_point[next_return_point++]=217; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_VERIFYKEYWORD; -RETURN_217:; -if(!qbevent)break;evnt(26070,20570,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=218; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_WRITELINK; -RETURN_218:; -if(!qbevent)break;evnt(26070,20570,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_ME= 0 ; -if(!qbevent)break;evnt(26070,20570,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_LE= 0 ; -if(!qbevent)break;evnt(26070,20570,"ide_methods.bas");}while(r); -} -S_60334:; -if ((*_SUB_EXPORTCODEAS_INTEGER_KW)||new_error){ -if(qbevent){evnt(26070,20571,"ide_methods.bas");if(r)goto S_60334;} -S_60335:; -if ((~(*_SUB_EXPORTCODEAS_INTEGER_IN))||new_error){ -if(qbevent){evnt(26070,20572,"ide_methods.bas");if(r)goto S_60335;} -do{ -return_point[next_return_point++]=219; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_VERIFYKEYWORD; -RETURN_219:; -if(!qbevent)break;evnt(26070,20572,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=220; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_WRITELINK; -RETURN_220:; -if(!qbevent)break;evnt(26070,20572,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20572,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_IN= 0 ; -if(!qbevent)break;evnt(26070,20572,"ide_methods.bas");}while(r); -} -do{ -*_SUB_EXPORTCODEAS_INTEGER_KW= 0 ; -if(!qbevent)break;evnt(26070,20573,"ide_methods.bas");}while(r); -} -S_60344:; -if ((*_SUB_EXPORTCODEAS_INTEGER_NU)||new_error){ -if(qbevent){evnt(26070,20575,"ide_methods.bas");if(r)goto S_60344;} -do{ -*_SUB_EXPORTCODEAS_INTEGER_POST= 0 ; -if(!qbevent)break;evnt(26070,20575,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_WHAT,qbs_new_txt_len("nu",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20575,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=221; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_CLOSETEXT; -RETURN_221:; -if(!qbevent)break;evnt(26070,20575,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_NU= 0 ; -if(!qbevent)break;evnt(26070,20575,"ide_methods.bas");}while(r); -} -S_60350:; -if ((~((*_SUB_EXPORTCODEAS_INTEGER_CO|*_SUB_EXPORTCODEAS_INTEGER_QU)))||new_error){ -if(qbevent){evnt(26070,20576,"ide_methods.bas");if(r)goto S_60350;} -do{ -*_SUB_EXPORTCODEAS_INTEGER_OP= 0 ; -if(!qbevent)break;evnt(26070,20576,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_FU= 0 ; -if(!qbevent)break;evnt(26070,20576,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_BO= 0 ; -if(!qbevent)break;evnt(26070,20576,"ide_methods.bas");}while(r); -} -do{ -*_SUB_EXPORTCODEAS_INTEGER_NT= -1 ; -if(!qbevent)break;evnt(26070,20577,"ide_methods.bas");}while(r); -sc_ec_469_end:; -goto sc_6726_end; -} -S_60356:; -if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 123 ))||(*_SUB_EXPORTCODEAS_INTEGER_CURR==( 125 )))||new_error){ -if(qbevent){evnt(26070,20578,"ide_methods.bas");if(r)goto S_60356;} -do{ -return_point[next_return_point++]=222; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_ESCAPECHAR; -RETURN_222:; -if(!qbevent)break;evnt(26070,20579,"ide_methods.bas");}while(r); -sc_ec_470_end:; -goto sc_6726_end; -} -S_60358:; -if ((((*_SUB_EXPORTCODEAS_INTEGER_CURR>=( 65 ))&&(*_SUB_EXPORTCODEAS_INTEGER_CURR<=( 90 )))||((*_SUB_EXPORTCODEAS_INTEGER_CURR>=( 97 ))&&(*_SUB_EXPORTCODEAS_INTEGER_CURR<=( 122 ))))||new_error){ -if(qbevent){evnt(26070,20580,"ide_methods.bas");if(r)goto S_60358;} -S_60359:; -if ((*_SUB_EXPORTCODEAS_INTEGER_NT&(~((*_SUB_EXPORTCODEAS_INTEGER_CO|*_SUB_EXPORTCODEAS_INTEGER_QU))))||new_error){ -if(qbevent){evnt(26070,20581,"ide_methods.bas");if(r)goto S_60359;} -do{ -*_SUB_EXPORTCODEAS_INTEGER_KW= -1 ; -if(!qbevent)break;evnt(26070,20581,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20581,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_NT= 0 ; -if(!qbevent)break;evnt(26070,20581,"ide_methods.bas");}while(r); -} -S_60364:; -if ((qbs_cleanup(qbs_tmp_base,*_SUB_EXPORTCODEAS_INTEGER_NL&(qbs_equal(qbs_ucase(func_mid(_SUB_EXPORTCODEAS_STRING_STXT,*_SUB_EXPORTCODEAS_LONG_SPOS, 5 ,0|1)),qbs_new_txt_len("REM $",5)))))||new_error){ -if(qbevent){evnt(26070,20582,"ide_methods.bas");if(r)goto S_60364;} -do{ -*_SUB_EXPORTCODEAS_INTEGER_LE= -1 ; -if(!qbevent)break;evnt(26070,20582,"ide_methods.bas");}while(r); -} -sc_ec_471_end:; -goto sc_6726_end; -} -S_60367:; -if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 95 )))||new_error){ -if(qbevent){evnt(26070,20583,"ide_methods.bas");if(r)goto S_60367;} -S_60368:; -if ((*_SUB_EXPORTCODEAS_INTEGER_NT&(~((*_SUB_EXPORTCODEAS_INTEGER_CO|*_SUB_EXPORTCODEAS_INTEGER_QU))))||new_error){ -if(qbevent){evnt(26070,20584,"ide_methods.bas");if(r)goto S_60368;} -S_60369:; -if ((-((*_SUB_EXPORTCODEAS_LONG_SPOS+ 1 )<=*_SUB_EXPORTCODEAS_LONG_SLEN))||new_error){ -if(qbevent){evnt(26070,20585,"ide_methods.bas");if(r)goto S_60369;} -S_60370:; -if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(_SUB_EXPORTCODEAS_STRING_STXT,*_SUB_EXPORTCODEAS_LONG_SPOS+ 1 )!= 13 ))&(-(qbs_asc(_SUB_EXPORTCODEAS_STRING_STXT,*_SUB_EXPORTCODEAS_LONG_SPOS+ 1 )!= 10 ))))||new_error){ -if(qbevent){evnt(26070,20586,"ide_methods.bas");if(r)goto S_60370;} -do{ -*_SUB_EXPORTCODEAS_INTEGER_KW= -1 ; -if(!qbevent)break;evnt(26070,20587,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20587,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_NT= 0 ; -if(!qbevent)break;evnt(26070,20587,"ide_methods.bas");}while(r); -} -} -} -sc_ec_472_end:; -goto sc_6726_end; -} -S_60377:; -if (((*_SUB_EXPORTCODEAS_INTEGER_CURR>( 127 )))||new_error){ -if(qbevent){evnt(26070,20591,"ide_methods.bas");if(r)goto S_60377;} -do{ -return_point[next_return_point++]=223; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_ESCAPECHAR; -RETURN_223:; -if(!qbevent)break;evnt(26070,20592,"ide_methods.bas");}while(r); -sc_ec_473_end:; -goto sc_6726_end; -} -do{ -*_SUB_EXPORTCODEAS_INTEGER_NT= 0 ; -if(!qbevent)break;evnt(26070,20594,"ide_methods.bas");}while(r); -sc_6726_end:; -S_60382:; -if(qbevent){evnt(26070,20596,"ide_methods.bas");if(r)goto S_60382;} -S_60383:; -if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 33 ))||((*_SUB_EXPORTCODEAS_INTEGER_CURR>=( 35 ))&&(*_SUB_EXPORTCODEAS_INTEGER_CURR<=( 38 )))||(*_SUB_EXPORTCODEAS_INTEGER_CURR==( 46 ))||((*_SUB_EXPORTCODEAS_INTEGER_CURR>=( 48 ))&&(*_SUB_EXPORTCODEAS_INTEGER_CURR<=( 57 )))||((*_SUB_EXPORTCODEAS_INTEGER_CURR>=( 65 ))&&(*_SUB_EXPORTCODEAS_INTEGER_CURR<=( 90 )))||((*_SUB_EXPORTCODEAS_INTEGER_CURR>=( 95 ))&&(*_SUB_EXPORTCODEAS_INTEGER_CURR<=( 122 )))||(*_SUB_EXPORTCODEAS_INTEGER_CURR==( 126 )))||new_error){ -if(qbevent){evnt(26070,20597,"ide_methods.bas");if(r)goto S_60383;} -S_60384:; -if ((*_SUB_EXPORTCODEAS_INTEGER_ME)||new_error){ -if(qbevent){evnt(26070,20598,"ide_methods.bas");if(r)goto S_60384;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_ME,qbs_add(_SUB_EXPORTCODEAS_STRING_ME,func_chr(*_SUB_EXPORTCODEAS_INTEGER_CURR))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20598,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_SK= -1 ; -if(!qbevent)break;evnt(26070,20598,"ide_methods.bas");}while(r); -} -S_60388:; -if ((*_SUB_EXPORTCODEAS_INTEGER_KW)||new_error){ -if(qbevent){evnt(26070,20599,"ide_methods.bas");if(r)goto S_60388;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(_SUB_EXPORTCODEAS_STRING_KW,func_chr(*_SUB_EXPORTCODEAS_INTEGER_CURR))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20599,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_SK= -1 ; -if(!qbevent)break;evnt(26070,20599,"ide_methods.bas");}while(r); -} -sc_ec_474_end:; -goto sc_6732_end; -} -sc_6732_end:; -S_60393:; -if (((-(*_SUB_EXPORTCODEAS_INTEGER_CURR!= 9 ))&(-(*_SUB_EXPORTCODEAS_INTEGER_CURR!= 10 ))&(-(*_SUB_EXPORTCODEAS_INTEGER_CURR!= 32 )))||new_error){ -if(qbevent){evnt(26070,20601,"ide_methods.bas");if(r)goto S_60393;} -do{ -*_SUB_EXPORTCODEAS_INTEGER_NL= 0 ; -if(!qbevent)break;evnt(26070,20601,"ide_methods.bas");}while(r); -} -S_60396:; -if ((~(*_SUB_EXPORTCODEAS_INTEGER_SK))||new_error){ -if(qbevent){evnt(26070,20602,"ide_methods.bas");if(r)goto S_60396;} -do{ -tqbs=_SUB_EXPORTCODEAS_STRING_ETXT; if (!new_error){ -tmp_fileno=*_SUB_EXPORTCODEAS_LONG_EPOS; if (!new_error){ -tmp_long=*_SUB_EXPORTCODEAS_INTEGER_CURR; if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(26070,20602,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+ 1 ; -if(!qbevent)break;evnt(26070,20602,"ide_methods.bas");}while(r); -} -do{ -*_SUB_EXPORTCODEAS_INTEGER_SK= 0 ; -if(!qbevent)break;evnt(26070,20603,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_LONG_SPOS=*_SUB_EXPORTCODEAS_LONG_SPOS+ 1 ; -if(!qbevent)break;evnt(26070,20603,"ide_methods.bas");}while(r); -ww_continue_6723:; -} -ww_exit_6723:; -do{ -return_point[next_return_point++]=224; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_CLOSECODEBLOCK; -RETURN_224:; -if(!qbevent)break;evnt(26070,20605,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEERROR= 7 ; -if(!qbevent)break;evnt(26070,20607,"ide_methods.bas");}while(r); -do{ -sub_open(qbs_add(qbs_add(qbs_add(__STRING_IDEPATH,__STRING1_IDEPATHSEP),_SUB_EXPORTCODEAS_STRING_PNAM),_SUB_EXPORTCODEAS_STRING_EXT), 4 ,NULL,NULL, 151 ,NULL,0); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20608,"ide_methods.bas");}while(r); -do{ -*__LONG_IDEERROR= 1 ; -if(!qbevent)break;evnt(26070,20609,"ide_methods.bas");}while(r); -do{ -tab_spc_cr_size=2; -tab_fileno=tmp_fileno= 151 ; -if (new_error) goto skip6733; -sub_file_print(tmp_fileno,qbs_left(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS- 1 ), 0, 0, 0); -if (new_error) goto skip6733; -skip6733: -qbs_cleanup(qbs_tmp_base,0); -tab_spc_cr_size=1; -if(!qbevent)break;evnt(26070,20610,"ide_methods.bas");}while(r); -do{ -sub_close( 151 ,1); -if(!qbevent)break;evnt(26070,20611,"ide_methods.bas");}while(r); -do{ -sub_pcopy( 2 , 3 ); -if(!qbevent)break;evnt(26070,20612,"ide_methods.bas");}while(r); -do{ -goto exit_subfunc; -if(!qbevent)break;evnt(26070,20613,"ide_methods.bas");}while(r); -LABEL_OPENCODEBLOCK:; -if(qbevent){evnt(26070,20615,"ide_methods.bas");r=0;} -S_60411:; -qbs_set(sc_6734,qbs_lcase(_SUB_EXPORTCODEAS_STRING_DOCFORMAT)); -qbs_cleanup(qbs_tmp_base,0); -if(qbevent){evnt(26070,20616,"ide_methods.bas");if(r)goto S_60411;} -S_60412:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6734,qbs_new_txt_len("html",4))))||new_error){ -if(qbevent){evnt(26070,20617,"ide_methods.bas");if(r)goto S_60412;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("",8)),FUNC_ANSITEXTTOUTF8TEXT(_SUB_EXPORTCODEAS_STRING_PNAM)),qbs_new_txt_len("
",1)));
-qbs_cleanup(qbs_tmp_base,0);
-if(!qbevent)break;evnt(26070,20617,"ide_methods.bas");}while(r);
-sc_ec_475_end:;
-goto sc_6734_end;
-}
-S_60414:;
-if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6734,qbs_new_txt_len("rich",4))))||new_error){
-if(qbevent){evnt(26070,20618,"ide_methods.bas");if(r)goto S_60414;}
-do{
-qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_add(qbs_add(qbs_new_txt_len("{\\rtf1\\ansi\\deff0{\\fonttbl{\\f0 Courier New;}}{\\colortbl ",56),_SUB_EXPORTCODEAS_STRING_RTC),qbs_new_txt_len("}\\pard\\f0\\fs32\\cbpat6\\paperh23811\\paperw16838\\margl142\\margr142\\margt142\\margb142",81)));
-qbs_cleanup(qbs_tmp_base,0);
-if(!qbevent)break;evnt(26070,20618,"ide_methods.bas");}while(r);
-sc_ec_476_end:;
-goto sc_6734_end;
-}
-S_60416:;
-if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6734,qbs_new_txt_len("wiki",4))))||new_error){
-if(qbevent){evnt(26070,20619,"ide_methods.bas");if(r)goto S_60416;}
-do{
-qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("{{CodeStart}}",13));
-qbs_cleanup(qbs_tmp_base,0);
-if(!qbevent)break;evnt(26070,20619,"ide_methods.bas");}while(r);
-sc_ec_477_end:;
-goto sc_6734_end;
-}
-do{
-#include "ret297.txt"
-if(!qbevent)break;evnt(26070,20620,"ide_methods.bas");}while(r);
-sc_6734_end:;
-do{
-sub_mid(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS,_SUB_EXPORTCODEAS_STRING_TMP->len,_SUB_EXPORTCODEAS_STRING_TMP,1);
-if(!qbevent)break;evnt(26070,20622,"ide_methods.bas");}while(r);
-do{
-*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+_SUB_EXPORTCODEAS_STRING_TMP->len;
-qbs_cleanup(qbs_tmp_base,0);
-if(!qbevent)break;evnt(26070,20622,"ide_methods.bas");}while(r);
-do{
-sub_mid(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS,_SUB_EXPORTCODEAS_STRING_CEOL->len,_SUB_EXPORTCODEAS_STRING_CEOL,1);
-if(!qbevent)break;evnt(26070,20623,"ide_methods.bas");}while(r);
-do{
-*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+_SUB_EXPORTCODEAS_STRING_CEOL->len;
-qbs_cleanup(qbs_tmp_base,0);
-if(!qbevent)break;evnt(26070,20623,"ide_methods.bas");}while(r);
-do{
-#include "ret297.txt"
-if(!qbevent)break;evnt(26070,20624,"ide_methods.bas");}while(r);
-LABEL_CLOSECODEBLOCK:;
-if(qbevent){evnt(26070,20626,"ide_methods.bas");r=0;}
-S_60426:;
-qbs_set(sc_6739,qbs_lcase(_SUB_EXPORTCODEAS_STRING_DOCFORMAT));
-qbs_cleanup(qbs_tmp_base,0);
-if(qbevent){evnt(26070,20627,"ide_methods.bas");if(r)goto S_60426;}
-S_60427:;
-if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6739,qbs_new_txt_len("html",4))))||new_error){
-if(qbevent){evnt(26070,20628,"ide_methods.bas");if(r)goto S_60427;}
-do{
-qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("
",20)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20628,"ide_methods.bas");}while(r); -sc_ec_478_end:; -goto sc_6739_end; -} -S_60429:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6739,qbs_new_txt_len("rich",4))))||new_error){ -if(qbevent){evnt(26070,20629,"ide_methods.bas");if(r)goto S_60429;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("}",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20629,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS- 4 ; -if(!qbevent)break;evnt(26070,20629,"ide_methods.bas");}while(r); -sc_ec_479_end:; -goto sc_6739_end; -} -S_60432:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6739,qbs_new_txt_len("wiki",4))))||new_error){ -if(qbevent){evnt(26070,20630,"ide_methods.bas");if(r)goto S_60432;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("{{CodeEnd}}",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20630,"ide_methods.bas");}while(r); -sc_ec_480_end:; -goto sc_6739_end; -} -do{ -#include "ret297.txt" -if(!qbevent)break;evnt(26070,20631,"ide_methods.bas");}while(r); -sc_6739_end:; -do{ -*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS-_SUB_EXPORTCODEAS_STRING_CEOL->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20633,"ide_methods.bas");}while(r); -do{ -sub_mid(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS,_SUB_EXPORTCODEAS_STRING_TMP->len,_SUB_EXPORTCODEAS_STRING_TMP,1); -if(!qbevent)break;evnt(26070,20634,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+_SUB_EXPORTCODEAS_STRING_TMP->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20634,"ide_methods.bas");}while(r); -do{ -sub_mid(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS,_SUB_EXPORTCODEAS_STRING_CEOL->len,_SUB_EXPORTCODEAS_STRING_CEOL,1); -if(!qbevent)break;evnt(26070,20635,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+_SUB_EXPORTCODEAS_STRING_CEOL->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20635,"ide_methods.bas");}while(r); -do{ -#include "ret297.txt" -if(!qbevent)break;evnt(26070,20636,"ide_methods.bas");}while(r); -LABEL_OPENTEXT:; -if(qbevent){evnt(26070,20638,"ide_methods.bas");r=0;} -S_60443:; -if ((qbs_cleanup(qbs_tmp_base,*_SUB_EXPORTCODEAS_INTEGER_ML&(~(*_SUB_EXPORTCODEAS_INTEGER_PC))&(qbs_notequal(qbs_lcase(_SUB_EXPORTCODEAS_STRING_WHAT),qbs_new_txt_len("co",2)))))||new_error){ -if(qbevent){evnt(26070,20639,"ide_methods.bas");if(r)goto S_60443;} -do{ -#include "ret297.txt" -if(!qbevent)break;evnt(26070,20639,"ide_methods.bas");}while(r); -} -S_60446:; -qbs_set(sc_6745,qbs_lcase(_SUB_EXPORTCODEAS_STRING_DOCFORMAT)); -qbs_cleanup(qbs_tmp_base,0); -if(qbevent){evnt(26070,20640,"ide_methods.bas");if(r)goto S_60446;} -S_60447:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6745,qbs_new_txt_len("html",4))))||new_error){ -if(qbevent){evnt(26070,20641,"ide_methods.bas");if(r)goto S_60447;} -S_60448:; -qbs_set(sc_6746,qbs_lcase(_SUB_EXPORTCODEAS_STRING_WHAT)); -qbs_cleanup(qbs_tmp_base,0); -if(qbevent){evnt(26070,20642,"ide_methods.bas");if(r)goto S_60448;} -S_60449:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6746,qbs_new_txt_len("co",2))))||new_error){ -if(qbevent){evnt(26070,20643,"ide_methods.bas");if(r)goto S_60449;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20643,"ide_methods.bas");}while(r); -sc_ec_481_end:; -goto sc_6746_end; -} -S_60451:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6746,qbs_new_txt_len("nu",2))))||new_error){ -if(qbevent){evnt(26070,20644,"ide_methods.bas");if(r)goto S_60451;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20644,"ide_methods.bas");}while(r); -sc_ec_482_end:; -goto sc_6746_end; -} -S_60453:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6746,qbs_new_txt_len("qu",2))))||new_error){ -if(qbevent){evnt(26070,20645,"ide_methods.bas");if(r)goto S_60453;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20645,"ide_methods.bas");}while(r); -sc_ec_483_end:; -goto sc_6746_end; -} -do{ -#include "ret297.txt" -if(!qbevent)break;evnt(26070,20646,"ide_methods.bas");}while(r); -sc_6746_end:; -sc_ec_484_end:; -goto sc_6745_end; -} -S_60458:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6745,qbs_new_txt_len("rich",4))))||new_error){ -if(qbevent){evnt(26070,20648,"ide_methods.bas");if(r)goto S_60458;} -S_60459:; -qbs_set(sc_6747,qbs_lcase(_SUB_EXPORTCODEAS_STRING_WHAT)); -qbs_cleanup(qbs_tmp_base,0); -if(qbevent){evnt(26070,20649,"ide_methods.bas");if(r)goto S_60459;} -S_60460:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6747,qbs_new_txt_len("co",2))))||new_error){ -if(qbevent){evnt(26070,20650,"ide_methods.bas");if(r)goto S_60460;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("\\cf1 ",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20650,"ide_methods.bas");}while(r); -sc_ec_485_end:; -goto sc_6747_end; -} -S_60462:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6747,qbs_new_txt_len("nu",2))))||new_error){ -if(qbevent){evnt(26070,20651,"ide_methods.bas");if(r)goto S_60462;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("\\cf4 ",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20651,"ide_methods.bas");}while(r); -sc_ec_486_end:; -goto sc_6747_end; -} -S_60464:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6747,qbs_new_txt_len("qu",2))))||new_error){ -if(qbevent){evnt(26070,20652,"ide_methods.bas");if(r)goto S_60464;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("\\cf5 ",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20652,"ide_methods.bas");}while(r); -sc_ec_487_end:; -goto sc_6747_end; -} -do{ -#include "ret297.txt" -if(!qbevent)break;evnt(26070,20653,"ide_methods.bas");}while(r); -sc_6747_end:; -sc_ec_488_end:; -goto sc_6745_end; -} -S_60469:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6745,qbs_new_txt_len("wiki",4))))||new_error){ -if(qbevent){evnt(26070,20655,"ide_methods.bas");if(r)goto S_60469;} -S_60470:; -qbs_set(sc_6748,qbs_lcase(_SUB_EXPORTCODEAS_STRING_WHAT)); -qbs_cleanup(qbs_tmp_base,0); -if(qbevent){evnt(26070,20656,"ide_methods.bas");if(r)goto S_60470;} -S_60471:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6748,qbs_new_txt_len("co",2))||qbs_equal(sc_6748,qbs_new_txt_len("qu",2))))||new_error){ -if(qbevent){evnt(26070,20657,"ide_methods.bas");if(r)goto S_60471;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("{{Text|",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20657,"ide_methods.bas");}while(r); -sc_ec_489_end:; -goto sc_6748_end; -} -S_60473:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6748,qbs_new_txt_len("nu",2))))||new_error){ -if(qbevent){evnt(26070,20658,"ide_methods.bas");if(r)goto S_60473;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("{{Text|",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20658,"ide_methods.bas");}while(r); -sc_ec_490_end:; -goto sc_6748_end; -} -do{ -#include "ret297.txt" -if(!qbevent)break;evnt(26070,20659,"ide_methods.bas");}while(r); -sc_6748_end:; -sc_ec_491_end:; -goto sc_6745_end; -} -do{ -#include "ret297.txt" -if(!qbevent)break;evnt(26070,20661,"ide_methods.bas");}while(r); -sc_6745_end:; -do{ -sub_mid(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS,_SUB_EXPORTCODEAS_STRING_TMP->len,_SUB_EXPORTCODEAS_STRING_TMP,1); -if(!qbevent)break;evnt(26070,20663,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+_SUB_EXPORTCODEAS_STRING_TMP->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20663,"ide_methods.bas");}while(r); -do{ -#include "ret297.txt" -if(!qbevent)break;evnt(26070,20664,"ide_methods.bas");}while(r); -LABEL_CLOSETEXT:; -if(qbevent){evnt(26070,20666,"ide_methods.bas");r=0;} -S_60484:; -if ((qbs_cleanup(qbs_tmp_base,*_SUB_EXPORTCODEAS_INTEGER_ML&(~(*_SUB_EXPORTCODEAS_INTEGER_PC))&(qbs_notequal(qbs_lcase(_SUB_EXPORTCODEAS_STRING_WHAT),qbs_new_txt_len("co",2)))))||new_error){ -if(qbevent){evnt(26070,20667,"ide_methods.bas");if(r)goto S_60484;} -do{ -#include "ret297.txt" -if(!qbevent)break;evnt(26070,20667,"ide_methods.bas");}while(r); -} -S_60487:; -qbs_set(sc_6751,qbs_lcase(_SUB_EXPORTCODEAS_STRING_DOCFORMAT)); -qbs_cleanup(qbs_tmp_base,0); -if(qbevent){evnt(26070,20668,"ide_methods.bas");if(r)goto S_60487;} -S_60488:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6751,qbs_new_txt_len("html",4))))||new_error){ -if(qbevent){evnt(26070,20669,"ide_methods.bas");if(r)goto S_60488;} -S_60489:; -qbs_set(sc_6752,qbs_lcase(_SUB_EXPORTCODEAS_STRING_WHAT)); -qbs_cleanup(qbs_tmp_base,0); -if(qbevent){evnt(26070,20670,"ide_methods.bas");if(r)goto S_60489;} -S_60490:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6752,qbs_new_txt_len("co",2))||qbs_equal(sc_6752,qbs_new_txt_len("nu",2))||qbs_equal(sc_6752,qbs_new_txt_len("qu",2))))||new_error){ -if(qbevent){evnt(26070,20671,"ide_methods.bas");if(r)goto S_60490;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20671,"ide_methods.bas");}while(r); -sc_ec_492_end:; -goto sc_6752_end; -} -do{ -#include "ret297.txt" -if(!qbevent)break;evnt(26070,20672,"ide_methods.bas");}while(r); -sc_6752_end:; -sc_ec_493_end:; -goto sc_6751_end; -} -S_60495:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6751,qbs_new_txt_len("rich",4))))||new_error){ -if(qbevent){evnt(26070,20674,"ide_methods.bas");if(r)goto S_60495;} -S_60496:; -qbs_set(sc_6753,qbs_lcase(_SUB_EXPORTCODEAS_STRING_WHAT)); -qbs_cleanup(qbs_tmp_base,0); -if(qbevent){evnt(26070,20675,"ide_methods.bas");if(r)goto S_60496;} -S_60497:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6753,qbs_new_txt_len("co",2))||qbs_equal(sc_6753,qbs_new_txt_len("nu",2))||qbs_equal(sc_6753,qbs_new_txt_len("qu",2))))||new_error){ -if(qbevent){evnt(26070,20676,"ide_methods.bas");if(r)goto S_60497;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("\\cf0 ",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20676,"ide_methods.bas");}while(r); -sc_ec_494_end:; -goto sc_6753_end; -} -do{ -#include "ret297.txt" -if(!qbevent)break;evnt(26070,20677,"ide_methods.bas");}while(r); -sc_6753_end:; -sc_ec_495_end:; -goto sc_6751_end; -} -S_60502:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6751,qbs_new_txt_len("wiki",4))))||new_error){ -if(qbevent){evnt(26070,20679,"ide_methods.bas");if(r)goto S_60502;} -S_60503:; -qbs_set(sc_6754,qbs_lcase(_SUB_EXPORTCODEAS_STRING_WHAT)); -qbs_cleanup(qbs_tmp_base,0); -if(qbevent){evnt(26070,20680,"ide_methods.bas");if(r)goto S_60503;} -S_60504:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6754,qbs_new_txt_len("co",2))))||new_error){ -if(qbevent){evnt(26070,20681,"ide_methods.bas");if(r)goto S_60504;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("|#919191}}",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20681,"ide_methods.bas");}while(r); -sc_ec_496_end:; -goto sc_6754_end; -} -S_60506:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6754,qbs_new_txt_len("nu",2))))||new_error){ -if(qbevent){evnt(26070,20682,"ide_methods.bas");if(r)goto S_60506;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("|#F580B1}}",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20682,"ide_methods.bas");}while(r); -sc_ec_497_end:; -goto sc_6754_end; -} -S_60508:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6754,qbs_new_txt_len("qu",2))))||new_error){ -if(qbevent){evnt(26070,20683,"ide_methods.bas");if(r)goto S_60508;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("|#FFB100}}",19)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20683,"ide_methods.bas");}while(r); -sc_ec_498_end:; -goto sc_6754_end; -} -do{ -#include "ret297.txt" -if(!qbevent)break;evnt(26070,20684,"ide_methods.bas");}while(r); -sc_6754_end:; -sc_ec_499_end:; -goto sc_6751_end; -} -do{ -#include "ret297.txt" -if(!qbevent)break;evnt(26070,20686,"ide_methods.bas");}while(r); -sc_6751_end:; -S_60516:; -if ((*_SUB_EXPORTCODEAS_INTEGER_POST)||new_error){ -if(qbevent){evnt(26070,20688,"ide_methods.bas");if(r)goto S_60516;} -do{ -*_SUB_EXPORTCODEAS_INTEGER_SK= 0 ; -if(!qbevent)break;evnt(26070,20689,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=225; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_ESCAPECHAR; -RETURN_225:; -if(!qbevent)break;evnt(26070,20689,"ide_methods.bas");}while(r); -S_60519:; -if ((~(*_SUB_EXPORTCODEAS_INTEGER_SK))||new_error){ -if(qbevent){evnt(26070,20690,"ide_methods.bas");if(r)goto S_60519;} -do{ -tqbs=_SUB_EXPORTCODEAS_STRING_ETXT; if (!new_error){ -tmp_fileno=*_SUB_EXPORTCODEAS_LONG_EPOS; if (!new_error){ -tmp_long=*_SUB_EXPORTCODEAS_INTEGER_CURR; if (!new_error){ -if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} -}}} -if(!qbevent)break;evnt(26070,20690,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+ 1 ; -if(!qbevent)break;evnt(26070,20690,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_SK= -1 ; -if(!qbevent)break;evnt(26070,20690,"ide_methods.bas");}while(r); -} -} -do{ -sub_mid(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS,_SUB_EXPORTCODEAS_STRING_TMP->len,_SUB_EXPORTCODEAS_STRING_TMP,1); -if(!qbevent)break;evnt(26070,20692,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+_SUB_EXPORTCODEAS_STRING_TMP->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20692,"ide_methods.bas");}while(r); -do{ -#include "ret297.txt" -if(!qbevent)break;evnt(26070,20693,"ide_methods.bas");}while(r); -LABEL_VERIFYKEYWORD:; -if(qbevent){evnt(26070,20695,"ide_methods.bas");r=0;} -S_60528:; -if ((*_SUB_EXPORTCODEAS_INTEGER_ME)||new_error){ -if(qbevent){evnt(26070,20696,"ide_methods.bas");if(r)goto S_60528;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_VERI,_SUB_EXPORTCODEAS_STRING_ME); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20696,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_VERI,_SUB_EXPORTCODEAS_STRING_KW); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20696,"ide_methods.bas");}while(r); -} -S_60533:; -if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_SUB_EXPORTCODEAS_STRING_VERI, 1 )!= 95 )))||new_error){ -if(qbevent){evnt(26070,20697,"ide_methods.bas");if(r)goto S_60533;} -do{ -*_SUB_EXPORTCODEAS_INTEGER_FLP= 1 ; -if(!qbevent)break;evnt(26070,20697,"ide_methods.bas");}while(r); -}else{ -do{ -*_SUB_EXPORTCODEAS_INTEGER_FLP= 2 ; -if(!qbevent)break;evnt(26070,20697,"ide_methods.bas");}while(r); -} -S_60538:; -if ((qbs_cleanup(qbs_tmp_base,(((-(qbs_asc(_SUB_EXPORTCODEAS_STRING_VERI,*_SUB_EXPORTCODEAS_INTEGER_FLP)< 91 ))|(qbs_equal(func_mid(_SUB_EXPORTCODEAS_STRING_VERI,*_SUB_EXPORTCODEAS_INTEGER_FLP, 2 ,0|1),qbs_new_txt_len("gl",2)))))&(-(func_instr(NULL,__STRING_LISTOFKEYWORDS,qbs_add(qbs_add(qbs_new_txt_len("@",1),qbs_ucase(_SUB_EXPORTCODEAS_STRING_VERI)),qbs_new_txt_len("@",1)),0)> 0 ))))||new_error){ -if(qbevent){evnt(26070,20698,"ide_methods.bas");if(r)goto S_60538;} -S_60539:; -if ((*_SUB_EXPORTCODEAS_INTEGER_ME&*_SUB_EXPORTCODEAS_INTEGER_LE)||new_error){ -if(qbevent){evnt(26070,20699,"ide_methods.bas");if(r)goto S_60539;} -S_60540:; -if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,qbs_new_txt_len("$DYNAMIC$INCLUDE$STATIC",23),qbs_ucase(_SUB_EXPORTCODEAS_STRING_VERI),0)== 0 )))||new_error){ -if(qbevent){evnt(26070,20700,"ide_methods.bas");if(r)goto S_60540;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_ME,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20700,"ide_methods.bas");}while(r); -} -S_60543:; -}else{ -if (*_SUB_EXPORTCODEAS_INTEGER_ME&(~(*_SUB_EXPORTCODEAS_INTEGER_LE))){ -if(qbevent){evnt(26070,20701,"ide_methods.bas");if(r)goto S_60543;} -S_60544:; -if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,qbs_new_txt_len("$DYNAMIC$INCLUDE$STATIC",23),qbs_ucase(_SUB_EXPORTCODEAS_STRING_VERI),0)> 0 )))||new_error){ -if(qbevent){evnt(26070,20702,"ide_methods.bas");if(r)goto S_60544;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_ME,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20702,"ide_methods.bas");}while(r); -} -} -} -S_60548:; -if ((*_SUB_EXPORTCODEAS_INTEGER_PC)||new_error){ -if(qbevent){evnt(26070,20704,"ide_methods.bas");if(r)goto S_60548;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_ME,_SUB_EXPORTCODEAS_STRING_VERI); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20704,"ide_methods.bas");}while(r); -} -S_60551:; -}else{ -if (*_SUB_EXPORTCODEAS_INTEGER_NP&*_SUB_EXPORTCODEAS_INTEGER_KW){ -if(qbevent){evnt(26070,20705,"ide_methods.bas");if(r)goto S_60551;} -S_60552:; -if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(_SUB_EXPORTCODEAS_STRING_VERI, 1 )> 90 ))|(-(func_instr(NULL,__STRING_LISTOFKEYWORDS,qbs_add(qbs_add(qbs_new_txt_len("@_",2),qbs_ucase(_SUB_EXPORTCODEAS_STRING_VERI)),qbs_new_txt_len("@",1)),0)== 0 ))))||new_error){ -if(qbevent){evnt(26070,20706,"ide_methods.bas");if(r)goto S_60552;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20706,"ide_methods.bas");}while(r); -} -S_60555:; -}else{ -if (qbs_cleanup(qbs_tmp_base,(~(*_SUB_EXPORTCODEAS_INTEGER_ML))&(-(func_instr(NULL,__STRING_LISTOFCUSTOMKEYWORDS,qbs_add(qbs_add(qbs_new_txt_len("@",1),qbs_ucase(FUNC_REMOVESYMBOL2(_SUB_EXPORTCODEAS_STRING_VERI))),qbs_new_txt_len("@",1)),0)> 0 )))){ -if(qbevent){evnt(26070,20707,"ide_methods.bas");if(r)goto S_60555;} -do{ -*_SUB_EXPORTCODEAS_INTEGER_CU= -1 ; -if(!qbevent)break;evnt(26070,20708,"ide_methods.bas");}while(r); -S_60557:; -}else{ -if (qbs_cleanup(qbs_tmp_base,*_SUB_EXPORTCODEAS_INTEGER_PC&(-(func_instr(NULL,__STRING_USERDEFINELIST,qbs_add(qbs_add(qbs_new_txt_len("@",1),qbs_ucase(_SUB_EXPORTCODEAS_STRING_VERI)),qbs_new_txt_len("@",1)),0)> 0 )))){ -if(qbevent){evnt(26070,20709,"ide_methods.bas");if(r)goto S_60557;} -do{ -*_SUB_EXPORTCODEAS_INTEGER_CU= -1 ; -if(!qbevent)break;evnt(26070,20710,"ide_methods.bas");}while(r); -}else{ -S_60560:; -if ((*_SUB_EXPORTCODEAS_INTEGER_ME)||new_error){ -if(qbevent){evnt(26070,20712,"ide_methods.bas");if(r)goto S_60560;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_ME,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20712,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20712,"ide_methods.bas");}while(r); -} -} -} -} -} -do{ -#include "ret297.txt" -if(!qbevent)break;evnt(26070,20714,"ide_methods.bas");}while(r); -LABEL_FINDWIKIPAGE:; -if(qbevent){evnt(26070,20716,"ide_methods.bas");r=0;} -S_60567:; -if ((*_SUB_EXPORTCODEAS_INTEGER_ME)||new_error){ -if(qbevent){evnt(26070,20717,"ide_methods.bas");if(r)goto S_60567;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_ucase(_SUB_EXPORTCODEAS_STRING_ME)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20717,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_ucase(_SUB_EXPORTCODEAS_STRING_KW)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20717,"ide_methods.bas");}while(r); -} -S_60572:; -if ((*_SUB_EXPORTCODEAS_INTEGER_OP)||new_error){ -if(qbevent){evnt(26070,20718,"ide_methods.bas");if(r)goto S_60572;} -S_60573:; -if(qbevent){evnt(26070,20719,"ide_methods.bas");if(r)goto S_60573;} -S_60574:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("ACCESS",6))||qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("LOCK",4))||qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("SHARED",6))||qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("READ",4))||qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("WRITE",5))))||new_error){ -if(qbevent){evnt(26070,20720,"ide_methods.bas");if(r)goto S_60574;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("OPEN#File_ACCESS_and_LOCK_Permissions",37)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20720,"ide_methods.bas");}while(r); -sc_ec_500_end:; -goto sc_6757_end; -} -S_60576:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("FOR",3))||qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("OUTPUT",6))||qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("APPEND",6))||qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("INPUT",5))||qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("BINARY",6))||qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("RANDOM",6))))||new_error){ -if(qbevent){evnt(26070,20721,"ide_methods.bas");if(r)goto S_60576;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("OPEN#File_Access_Modes",22)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20721,"ide_methods.bas");}while(r); -sc_ec_501_end:; -goto sc_6757_end; -} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("OPEN",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20722,"ide_methods.bas");}while(r); -sc_6757_end:; -S_60581:; -}else{ -if (qbs_cleanup(qbs_tmp_base,*_SUB_EXPORTCODEAS_INTEGER_FU&((-(func_instr(NULL,_SUB_EXPORTCODEAS_STRING_FU,qbs_add(qbs_add(qbs_new_txt_len("@",1),_SUB_EXPORTCODEAS_STRING_PAGE),qbs_new_txt_len("@",1)),0)> 0 ))|(*_SUB_EXPORTCODEAS_INTEGER_NP&(-(func_instr(NULL,_SUB_EXPORTCODEAS_STRING_FU,qbs_add(qbs_add(qbs_new_txt_len("@_",2),_SUB_EXPORTCODEAS_STRING_PAGE),qbs_new_txt_len("@",1)),0)> 0 )))))){ -if(qbevent){evnt(26070,20724,"ide_methods.bas");if(r)goto S_60581;} -S_60582:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("SHELL",5))))||new_error){ -if(qbevent){evnt(26070,20725,"ide_methods.bas");if(r)goto S_60582;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_add(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len(" (QB64 function)",16))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20725,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_add(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len(" (function)",11))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20725,"ide_methods.bas");}while(r); -} -S_60587:; -}else{ -if (qbs_cleanup(qbs_tmp_base,*_SUB_EXPORTCODEAS_INTEGER_BO&(-(func_instr(NULL,_SUB_EXPORTCODEAS_STRING_BO,qbs_add(qbs_add(qbs_new_txt_len("@",1),_SUB_EXPORTCODEAS_STRING_PAGE),qbs_new_txt_len("@",1)),0)> 0 )))){ -if(qbevent){evnt(26070,20726,"ide_methods.bas");if(r)goto S_60587;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_add(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len(" (boolean)",10))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20727,"ide_methods.bas");}while(r); -S_60589:; -}else{ -if (qbs_cleanup(qbs_tmp_base,((-(func_instr(NULL,_SUB_EXPORTCODEAS_STRING_MA,qbs_add(qbs_add(qbs_new_txt_len("@",1),_SUB_EXPORTCODEAS_STRING_PAGE),qbs_new_txt_len("@",1)),0)> 0 ))|(*_SUB_EXPORTCODEAS_INTEGER_NP&(-(func_instr(NULL,_SUB_EXPORTCODEAS_STRING_MA,qbs_add(qbs_add(qbs_new_txt_len("@_",2),_SUB_EXPORTCODEAS_STRING_PAGE),qbs_new_txt_len("@",1)),0)> 0 )))))){ -if(qbevent){evnt(26070,20728,"ide_methods.bas");if(r)goto S_60589;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("Mathematical Operations#Derived_Mathematical_Functions",54)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20729,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_LA,qbs_ltrim(FUNC_STRREPLACE(func_mid(_SUB_EXPORTCODEAS_STRING_STXT,*_SUB_EXPORTCODEAS_LONG_SPOS, 100 ,0|1),func_chr( 9 ),qbs_new_txt_len(" ",1)))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20731,"ide_methods.bas");}while(r); -S_60593:; -sc_6758_var=0; -if(qbevent){evnt(26070,20732,"ide_methods.bas");if(r)goto S_60593;} -S_60594:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("$END",4))))||new_error){ -if(qbevent){evnt(26070,20733,"ide_methods.bas");if(r)goto S_60594;} -S_60595:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 2 )),qbs_new_txt_len("IF",2))))||new_error){ -if(qbevent){evnt(26070,20733,"ide_methods.bas");if(r)goto S_60595;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_ME,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_ME,qbs_new_txt_len(" ",1)),qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 2 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20733,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("$END IF",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20733,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ; -if(!qbevent)break;evnt(26070,20733,"ide_methods.bas");}while(r); -} -sc_ec_502_end:; -sc_6758_var=-1; -} -S_60600:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("CALL",4))))||new_error){ -if(qbevent){evnt(26070,20734,"ide_methods.bas");if(r)goto S_60600;} -S_60601:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 8 )),qbs_new_txt_len("ABSOLUTE",8))))||new_error){ -if(qbevent){evnt(26070,20734,"ide_methods.bas");if(r)goto S_60601;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 8 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20734,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("CALL ABSOLUTE",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20734,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ; -if(!qbevent)break;evnt(26070,20734,"ide_methods.bas");}while(r); -} -sc_ec_503_end:; -sc_6758_var=-1; -} -S_60606:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("DECLARE",7))))||new_error){ -if(qbevent){evnt(26070,20735,"ide_methods.bas");if(r)goto S_60606;} -S_60607:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 7 )),qbs_new_txt_len("LIBRARY",7))))||new_error){ -if(qbevent){evnt(26070,20735,"ide_methods.bas");if(r)goto S_60607;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 7 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20735,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("DECLARE LIBRARY",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20735,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ; -if(!qbevent)break;evnt(26070,20735,"ide_methods.bas");}while(r); -} -sc_ec_504_end:; -sc_6758_var=-1; -} -S_60612:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("DEF",3))))||new_error){ -if(qbevent){evnt(26070,20736,"ide_methods.bas");if(r)goto S_60612;} -S_60613:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 3 )),qbs_new_txt_len("SEG",3))))||new_error){ -if(qbevent){evnt(26070,20736,"ide_methods.bas");if(r)goto S_60613;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 3 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20736,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("DEF SEG",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20736,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ; -if(!qbevent)break;evnt(26070,20736,"ide_methods.bas");}while(r); -} -sc_ec_505_end:; -sc_6758_var=-1; -} -S_60618:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("DO",2))))||new_error){ -if(qbevent){evnt(26070,20737,"ide_methods.bas");if(r)goto S_60618;} -S_60619:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 5 )),qbs_new_txt_len("WHILE",5))))||new_error){ -if(qbevent){evnt(26070,20738,"ide_methods.bas");if(r)goto S_60619;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 5 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20738,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("DO...LOOP",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20738,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_FU= -1 ; -if(!qbevent)break;evnt(26070,20738,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_BO= -1 ; -if(!qbevent)break;evnt(26070,20738,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ; -if(!qbevent)break;evnt(26070,20738,"ide_methods.bas");}while(r); -} -S_60626:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 5 )),qbs_new_txt_len("UNTIL",5))))||new_error){ -if(qbevent){evnt(26070,20739,"ide_methods.bas");if(r)goto S_60626;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 5 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20739,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("DO...LOOP",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20739,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_FU= -1 ; -if(!qbevent)break;evnt(26070,20739,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_BO= -1 ; -if(!qbevent)break;evnt(26070,20739,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ; -if(!qbevent)break;evnt(26070,20739,"ide_methods.bas");}while(r); -} -sc_ec_506_end:; -sc_6758_var=-1; -} -S_60633:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("END",3))))||new_error){ -if(qbevent){evnt(26070,20740,"ide_methods.bas");if(r)goto S_60633;} -S_60634:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 7 )),qbs_new_txt_len("DECLARE",7))))||new_error){ -if(qbevent){evnt(26070,20741,"ide_methods.bas");if(r)goto S_60634;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 7 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20741,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("END DECLARE",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20741,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ; -if(!qbevent)break;evnt(26070,20741,"ide_methods.bas");}while(r); -} -S_60639:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 8 )),qbs_new_txt_len("FUNCTION",8))))||new_error){ -if(qbevent){evnt(26070,20742,"ide_methods.bas");if(r)goto S_60639;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 8 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20742,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("END FUNCTION",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20742,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ; -if(!qbevent)break;evnt(26070,20742,"ide_methods.bas");}while(r); -} -S_60644:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 2 )),qbs_new_txt_len("IF",2))))||new_error){ -if(qbevent){evnt(26070,20743,"ide_methods.bas");if(r)goto S_60644;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 2 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20743,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("END IF",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20743,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ; -if(!qbevent)break;evnt(26070,20743,"ide_methods.bas");}while(r); -} -S_60649:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 6 )),qbs_new_txt_len("SELECT",6))))||new_error){ -if(qbevent){evnt(26070,20744,"ide_methods.bas");if(r)goto S_60649;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 6 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20744,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("END SELECT",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20744,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ; -if(!qbevent)break;evnt(26070,20744,"ide_methods.bas");}while(r); -} -S_60654:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 3 )),qbs_new_txt_len("SUB",3))))||new_error){ -if(qbevent){evnt(26070,20745,"ide_methods.bas");if(r)goto S_60654;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 3 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20745,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("END SUB",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20745,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ; -if(!qbevent)break;evnt(26070,20745,"ide_methods.bas");}while(r); -} -S_60659:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 4 )),qbs_new_txt_len("TYPE",4))))||new_error){ -if(qbevent){evnt(26070,20746,"ide_methods.bas");if(r)goto S_60659;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 4 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20746,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("END TYPE",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20746,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ; -if(!qbevent)break;evnt(26070,20746,"ide_methods.bas");}while(r); -} -sc_ec_507_end:; -sc_6758_var=-1; -} -S_60664:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("EXIT",4))))||new_error){ -if(qbevent){evnt(26070,20747,"ide_methods.bas");if(r)goto S_60664;} -S_60665:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 4 )),qbs_new_txt_len("CASE",4))))||new_error){ -if(qbevent){evnt(26070,20748,"ide_methods.bas");if(r)goto S_60665;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 4 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20748,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("EXIT CASE",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20748,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ; -if(!qbevent)break;evnt(26070,20748,"ide_methods.bas");}while(r); -} -S_60670:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 2 )),qbs_new_txt_len("DO",2))))||new_error){ -if(qbevent){evnt(26070,20749,"ide_methods.bas");if(r)goto S_60670;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 2 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20749,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("EXIT DO",7)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20749,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ; -if(!qbevent)break;evnt(26070,20749,"ide_methods.bas");}while(r); -} -S_60675:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 3 )),qbs_new_txt_len("FOR",3))))||new_error){ -if(qbevent){evnt(26070,20750,"ide_methods.bas");if(r)goto S_60675;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 3 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20750,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("EXIT FOR",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20750,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ; -if(!qbevent)break;evnt(26070,20750,"ide_methods.bas");}while(r); -} -S_60680:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 8 )),qbs_new_txt_len("FUNCTION",8))))||new_error){ -if(qbevent){evnt(26070,20751,"ide_methods.bas");if(r)goto S_60680;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 8 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20751,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("EXIT FUNCTION",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20751,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ; -if(!qbevent)break;evnt(26070,20751,"ide_methods.bas");}while(r); -} -S_60685:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 6 )),qbs_new_txt_len("SELECT",6))))||new_error){ -if(qbevent){evnt(26070,20752,"ide_methods.bas");if(r)goto S_60685;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 6 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20752,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("EXIT SELECT",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20752,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ; -if(!qbevent)break;evnt(26070,20752,"ide_methods.bas");}while(r); -} -S_60690:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 3 )),qbs_new_txt_len("SUB",3))))||new_error){ -if(qbevent){evnt(26070,20753,"ide_methods.bas");if(r)goto S_60690;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 3 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20753,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("EXIT SUB",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20753,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ; -if(!qbevent)break;evnt(26070,20753,"ide_methods.bas");}while(r); -} -S_60695:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 5 )),qbs_new_txt_len("WHILE",5))))||new_error){ -if(qbevent){evnt(26070,20754,"ide_methods.bas");if(r)goto S_60695;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 5 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20754,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("EXIT WHILE",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20754,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ; -if(!qbevent)break;evnt(26070,20754,"ide_methods.bas");}while(r); -} -sc_ec_508_end:; -sc_6758_var=-1; -} -S_60700:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("GET",3))||qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("PUT",3))))||new_error){ -if(qbevent){evnt(26070,20755,"ide_methods.bas");if(r)goto S_60700;} -S_60701:; -if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 1 ),qbs_new_txt_len("#",1))))||new_error){ -if(qbevent){evnt(26070,20755,"ide_methods.bas");if(r)goto S_60701;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_add(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len(" (general)",10))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20755,"ide_methods.bas");}while(r); -} -sc_ec_509_end:; -sc_6758_var=-1; -} -S_60704:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("KEY",3))))||new_error){ -if(qbevent){evnt(26070,20756,"ide_methods.bas");if(r)goto S_60704;} -S_60705:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 4 )),qbs_new_txt_len("LIST",4))))||new_error){ -if(qbevent){evnt(26070,20756,"ide_methods.bas");if(r)goto S_60705;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 4 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20756,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("KEY LIST",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20756,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ; -if(!qbevent)break;evnt(26070,20756,"ide_methods.bas");}while(r); -} -sc_ec_510_end:; -sc_6758_var=-1; -} -S_60710:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("LPRINT",6))))||new_error){ -if(qbevent){evnt(26070,20757,"ide_methods.bas");if(r)goto S_60710;} -S_60711:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 5 )),qbs_new_txt_len("USING",5))))||new_error){ -if(qbevent){evnt(26070,20757,"ide_methods.bas");if(r)goto S_60711;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 5 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20757,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("LPRINT USING",12)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20757,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ; -if(!qbevent)break;evnt(26070,20757,"ide_methods.bas");}while(r); -} -sc_ec_511_end:; -sc_6758_var=-1; -} -S_60716:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("LINE",4))))||new_error){ -if(qbevent){evnt(26070,20758,"ide_methods.bas");if(r)goto S_60716;} -S_60717:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 5 )),qbs_new_txt_len("INPUT",5))))||new_error){ -if(qbevent){evnt(26070,20759,"ide_methods.bas");if(r)goto S_60717;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 5 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20760,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("LINE INPUT",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20760,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ; -if(!qbevent)break;evnt(26070,20760,"ide_methods.bas");}while(r); -S_60721:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(qbs_ltrim(func_mid(_SUB_EXPORTCODEAS_STRING_LA, 6 ,NULL,0)), 1 ),qbs_new_txt_len("#",1))))||new_error){ -if(qbevent){evnt(26070,20761,"ide_methods.bas");if(r)goto S_60721;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_add(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len(" (file statement)",17))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20761,"ide_methods.bas");}while(r); -} -} -sc_ec_512_end:; -sc_6758_var=-1; -} -S_60725:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("LOOP",4))))||new_error){ -if(qbevent){evnt(26070,20763,"ide_methods.bas");if(r)goto S_60725;} -S_60726:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 5 )),qbs_new_txt_len("WHILE",5))))||new_error){ -if(qbevent){evnt(26070,20764,"ide_methods.bas");if(r)goto S_60726;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 5 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20764,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("DO...LOOP",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20764,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_FU= -1 ; -if(!qbevent)break;evnt(26070,20764,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_BO= -1 ; -if(!qbevent)break;evnt(26070,20764,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ; -if(!qbevent)break;evnt(26070,20764,"ide_methods.bas");}while(r); -} -S_60733:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 5 )),qbs_new_txt_len("UNTIL",5))))||new_error){ -if(qbevent){evnt(26070,20765,"ide_methods.bas");if(r)goto S_60733;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 5 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20765,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("DO...LOOP",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20765,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_FU= -1 ; -if(!qbevent)break;evnt(26070,20765,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_BO= -1 ; -if(!qbevent)break;evnt(26070,20765,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ; -if(!qbevent)break;evnt(26070,20765,"ide_methods.bas");}while(r); -} -sc_ec_513_end:; -sc_6758_var=-1; -} -S_60740:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("ON",2))))||new_error){ -if(qbevent){evnt(26070,20766,"ide_methods.bas");if(r)goto S_60740;} -S_60741:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 5 )),qbs_new_txt_len("ERROR",5))))||new_error){ -if(qbevent){evnt(26070,20767,"ide_methods.bas");if(r)goto S_60741;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 5 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20767,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("ON ERROR",8)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20767,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ; -if(!qbevent)break;evnt(26070,20767,"ide_methods.bas");}while(r); -} -S_60746:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 3 )),qbs_new_txt_len("KEY",3))))||new_error){ -if(qbevent){evnt(26070,20768,"ide_methods.bas");if(r)goto S_60746;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 3 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20768,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("ON KEY(n)",9)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20768,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ; -if(!qbevent)break;evnt(26070,20768,"ide_methods.bas");}while(r); -} -S_60751:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 5 )),qbs_new_txt_len("STRIG",5))))||new_error){ -if(qbevent){evnt(26070,20769,"ide_methods.bas");if(r)goto S_60751;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 5 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20769,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("ON STRIG(n)",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20769,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ; -if(!qbevent)break;evnt(26070,20769,"ide_methods.bas");}while(r); -} -S_60756:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 5 )),qbs_new_txt_len("TIMER",5))))||new_error){ -if(qbevent){evnt(26070,20770,"ide_methods.bas");if(r)goto S_60756;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 5 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20770,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("ON TIMER(n)",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20770,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ; -if(!qbevent)break;evnt(26070,20770,"ide_methods.bas");}while(r); -} -sc_ec_514_end:; -sc_6758_var=-1; -} -S_60761:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("OPTION",6))))||new_error){ -if(qbevent){evnt(26070,20771,"ide_methods.bas");if(r)goto S_60761;} -S_60762:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 4 )),qbs_new_txt_len("BASE",4))))||new_error){ -if(qbevent){evnt(26070,20771,"ide_methods.bas");if(r)goto S_60762;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 4 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20771,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("OPTION BASE",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20771,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ; -if(!qbevent)break;evnt(26070,20771,"ide_methods.bas");}while(r); -} -sc_ec_515_end:; -sc_6758_var=-1; -} -S_60767:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("PALETTE",7))))||new_error){ -if(qbevent){evnt(26070,20772,"ide_methods.bas");if(r)goto S_60767;} -S_60768:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 5 )),qbs_new_txt_len("USING",5))))||new_error){ -if(qbevent){evnt(26070,20772,"ide_methods.bas");if(r)goto S_60768;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 5 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20772,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("PALETTE USING",13)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20772,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ; -if(!qbevent)break;evnt(26070,20772,"ide_methods.bas");}while(r); -} -sc_ec_516_end:; -sc_6758_var=-1; -} -S_60773:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("PRINT",5))))||new_error){ -if(qbevent){evnt(26070,20773,"ide_methods.bas");if(r)goto S_60773;} -S_60774:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 5 )),qbs_new_txt_len("USING",5))))||new_error){ -if(qbevent){evnt(26070,20774,"ide_methods.bas");if(r)goto S_60774;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 5 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20775,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("PRINT USING",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20775,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ; -if(!qbevent)break;evnt(26070,20775,"ide_methods.bas");}while(r); -S_60778:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(qbs_ltrim(func_mid(_SUB_EXPORTCODEAS_STRING_LA, 6 ,NULL,0)), 1 ),qbs_new_txt_len("#",1))))||new_error){ -if(qbevent){evnt(26070,20776,"ide_methods.bas");if(r)goto S_60778;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_add(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len(" (file statement)",17))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20776,"ide_methods.bas");}while(r); -} -} -sc_ec_517_end:; -sc_6758_var=-1; -} -S_60782:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("RANDOMIZE",9))))||new_error){ -if(qbevent){evnt(26070,20778,"ide_methods.bas");if(r)goto S_60782;} -S_60783:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 5 )),qbs_new_txt_len("USING",5))))||new_error){ -if(qbevent){evnt(26070,20778,"ide_methods.bas");if(r)goto S_60783;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 5 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20778,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("RANDOMIZE USING",15)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20778,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ; -if(!qbevent)break;evnt(26070,20778,"ide_methods.bas");}while(r); -} -sc_ec_518_end:; -sc_6758_var=-1; -} -S_60788:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("SELECT",6))))||new_error){ -if(qbevent){evnt(26070,20779,"ide_methods.bas");if(r)goto S_60788;} -S_60789:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 4 )),qbs_new_txt_len("CASE",4))))||new_error){ -if(qbevent){evnt(26070,20780,"ide_methods.bas");if(r)goto S_60789;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 4 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20780,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("SELECT CASE",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20780,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ; -if(!qbevent)break;evnt(26070,20780,"ide_methods.bas");}while(r); -} -S_60794:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 9 )),qbs_new_txt_len("EVERYCASE",9))))||new_error){ -if(qbevent){evnt(26070,20781,"ide_methods.bas");if(r)goto S_60794;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 9 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20781,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("SELECT CASE",11)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20781,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ; -if(!qbevent)break;evnt(26070,20781,"ide_methods.bas");}while(r); -} -sc_ec_519_end:; -sc_6758_var=-1; -} -S_60799:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("VIEW",4))))||new_error){ -if(qbevent){evnt(26070,20782,"ide_methods.bas");if(r)goto S_60799;} -S_60800:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 5 )),qbs_new_txt_len("PRINT",5))))||new_error){ -if(qbevent){evnt(26070,20782,"ide_methods.bas");if(r)goto S_60800;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 5 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20782,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("VIEW PRINT",10)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20782,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ; -if(!qbevent)break;evnt(26070,20782,"ide_methods.bas");}while(r); -} -sc_ec_520_end:; -sc_6758_var=-1; -} -S_60805:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("INPUT",5))||qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("PRINT",5))||qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("WRITE",5))))||new_error){ -if(qbevent){evnt(26070,20783,"ide_methods.bas");if(r)goto S_60805;} -S_60806:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 1 ),qbs_new_txt_len("#",1))))||new_error){ -if(qbevent){evnt(26070,20783,"ide_methods.bas");if(r)goto S_60806;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_add(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len(" (file statement)",17))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20783,"ide_methods.bas");}while(r); -} -sc_ec_521_end:; -} -sc_6758_end:; -} -} -} -} -do{ -#include "ret297.txt" -if(!qbevent)break;evnt(26070,20786,"ide_methods.bas");}while(r); -LABEL_WRITELINK:; -if(qbevent){evnt(26070,20788,"ide_methods.bas");r=0;} -S_60812:; -if ((qbs_cleanup(qbs_tmp_base,(*_SUB_EXPORTCODEAS_INTEGER_ME&(qbs_equal(_SUB_EXPORTCODEAS_STRING_ME,qbs_new_txt_len("",0))))|(*_SUB_EXPORTCODEAS_INTEGER_KW&(qbs_equal(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len("",0))))))||new_error){ -if(qbevent){evnt(26070,20789,"ide_methods.bas");if(r)goto S_60812;} -do{ -goto LABEL_UNKNOWNNOLINKNOCOLOR; -if(!qbevent)break;evnt(26070,20789,"ide_methods.bas");}while(r); -} -S_60815:; -if ((*_SUB_EXPORTCODEAS_INTEGER_CU)||new_error){ -if(qbevent){evnt(26070,20790,"ide_methods.bas");if(r)goto S_60815;} -do{ -goto LABEL_CUSTOMNOLINK; -if(!qbevent)break;evnt(26070,20790,"ide_methods.bas");}while(r); -} -do{ -return_point[next_return_point++]=226; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_FINDWIKIPAGE; -RETURN_226:; -if(!qbevent)break;evnt(26070,20791,"ide_methods.bas");}while(r); -S_60819:; -if ((*_SUB_EXPORTCODEAS_INTEGER_ME&*_SUB_EXPORTCODEAS_INTEGER_LE&*_SUB_EXPORTCODEAS_INTEGER_CO)||new_error){ -if(qbevent){evnt(26070,20792,"ide_methods.bas");if(r)goto S_60819;} -do{ -*_SUB_EXPORTCODEAS_INTEGER_POST= 0 ; -if(!qbevent)break;evnt(26070,20792,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_WHAT,qbs_new_txt_len("co",2)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20792,"ide_methods.bas");}while(r); -do{ -return_point[next_return_point++]=227; -if (next_return_point>=return_points) more_return_points(); -goto LABEL_CLOSETEXT; -RETURN_227:; -if(!qbevent)break;evnt(26070,20792,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_CO= 0 ; -if(!qbevent)break;evnt(26070,20792,"ide_methods.bas");}while(r); -} -S_60825:; -if ((*_SUB_EXPORTCODEAS_INTEGER_ME|*_SUB_EXPORTCODEAS_INTEGER_PC)||new_error){ -if(qbevent){evnt(26070,20793,"ide_methods.bas");if(r)goto S_60825;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_LNK,_SUB_EXPORTCODEAS_STRING_ME); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20793,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("{{Cm|",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20793,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_LKC,_SUB_EXPORTCODEAS_STRING_MEC); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20793,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_RTC,qbs_new_txt_len("\\cf2",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20793,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_LNK,_SUB_EXPORTCODEAS_STRING_KW); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20793,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("{{Cl|",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20793,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_LKC,_SUB_EXPORTCODEAS_STRING_KWC); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20793,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_RTC,qbs_new_txt_len("\\cf3",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20793,"ide_methods.bas");}while(r); -} -do{ -*_SUB_EXPORTCODEAS_INTEGER_PAL=_SUB_EXPORTCODEAS_STRING_PAGE->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20794,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_LKL=_SUB_EXPORTCODEAS_STRING_LNK->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20794,"ide_methods.bas");}while(r); -S_60838:; -qbs_set(sc_6761,qbs_lcase(_SUB_EXPORTCODEAS_STRING_DOCFORMAT)); -qbs_cleanup(qbs_tmp_base,0); -if(qbevent){evnt(26070,20795,"ide_methods.bas");if(r)goto S_60838;} -S_60839:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6761,qbs_new_txt_len("html",4))))||new_error){ -if(qbevent){evnt(26070,20796,"ide_methods.bas");if(r)goto S_60839;} -do{ -sub_mid(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS,( 2 **_SUB_EXPORTCODEAS_INTEGER_PAL)+*_SUB_EXPORTCODEAS_INTEGER_LKL+ 120 ,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("",1)),_SUB_EXPORTCODEAS_STRING_LNK),qbs_new_txt_len("",4)),1); -if(!qbevent)break;evnt(26070,20797,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+( 2 **_SUB_EXPORTCODEAS_INTEGER_PAL)+*_SUB_EXPORTCODEAS_INTEGER_LKL+ 120 ; -if(!qbevent)break;evnt(26070,20798,"ide_methods.bas");}while(r); -sc_ec_522_end:; -goto sc_6761_end; -} -S_60842:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6761,qbs_new_txt_len("rich",4))))||new_error){ -if(qbevent){evnt(26070,20799,"ide_methods.bas");if(r)goto S_60842;} -do{ -sub_mid(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS,*_SUB_EXPORTCODEAS_INTEGER_PAL+*_SUB_EXPORTCODEAS_INTEGER_LKL+ 108 ,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("{\\field{\\*\\fldinst HYPERLINK ",29),func_chr( 34 )),qbs_new_txt_len("https://qb64phoenix.com/qb64wiki/index.php?title=",49)),_SUB_EXPORTCODEAS_STRING_PAGE),func_chr( 34 )),qbs_new_txt_len("}{\\fldrslt{",11)),_SUB_EXPORTCODEAS_STRING_RTC),qbs_new_txt_len("\\ul0 ",5)),_SUB_EXPORTCODEAS_STRING_LNK),qbs_new_txt_len("}}}\\cf0 ",8)),1); -if(!qbevent)break;evnt(26070,20800,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+*_SUB_EXPORTCODEAS_INTEGER_PAL+*_SUB_EXPORTCODEAS_INTEGER_LKL+ 108 ; -if(!qbevent)break;evnt(26070,20801,"ide_methods.bas");}while(r); -sc_ec_523_end:; -goto sc_6761_end; -} -S_60845:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6761,qbs_new_txt_len("wiki",4))))||new_error){ -if(qbevent){evnt(26070,20802,"ide_methods.bas");if(r)goto S_60845;} -S_60846:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_PAGE),qbs_ucase(_SUB_EXPORTCODEAS_STRING_LNK))))||new_error){ -if(qbevent){evnt(26070,20803,"ide_methods.bas");if(r)goto S_60846;} -do{ -sub_mid(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS,*_SUB_EXPORTCODEAS_INTEGER_LKL+ 7 ,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_TMP,_SUB_EXPORTCODEAS_STRING_LNK),qbs_new_txt_len("}}",2)),1); -if(!qbevent)break;evnt(26070,20804,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+*_SUB_EXPORTCODEAS_INTEGER_LKL+ 7 ; -if(!qbevent)break;evnt(26070,20805,"ide_methods.bas");}while(r); -}else{ -do{ -sub_mid(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS,*_SUB_EXPORTCODEAS_INTEGER_PAL+*_SUB_EXPORTCODEAS_INTEGER_LKL+ 8 ,qbs_add(qbs_add(qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_TMP,_SUB_EXPORTCODEAS_STRING_PAGE),qbs_new_txt_len("|",1)),_SUB_EXPORTCODEAS_STRING_LNK),qbs_new_txt_len("}}",2)),1); -if(!qbevent)break;evnt(26070,20807,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+*_SUB_EXPORTCODEAS_INTEGER_PAL+*_SUB_EXPORTCODEAS_INTEGER_LKL+ 8 ; -if(!qbevent)break;evnt(26070,20808,"ide_methods.bas");}while(r); -} -sc_ec_524_end:; -goto sc_6761_end; -} -do{ -#include "ret297.txt" -if(!qbevent)break;evnt(26070,20810,"ide_methods.bas");}while(r); -sc_6761_end:; -do{ -#include "ret297.txt" -if(!qbevent)break;evnt(26070,20812,"ide_methods.bas");}while(r); -LABEL_CUSTOMNOLINK:; -if(qbevent){evnt(26070,20814,"ide_methods.bas");r=0;} -do{ -*_SUB_EXPORTCODEAS_INTEGER_CU= 0 ; -if(!qbevent)break;evnt(26070,20815,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_KWL=_SUB_EXPORTCODEAS_STRING_KW->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20815,"ide_methods.bas");}while(r); -S_60859:; -qbs_set(sc_6763,qbs_lcase(_SUB_EXPORTCODEAS_STRING_DOCFORMAT)); -qbs_cleanup(qbs_tmp_base,0); -if(qbevent){evnt(26070,20816,"ide_methods.bas");if(r)goto S_60859;} -S_60860:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6763,qbs_new_txt_len("html",4))))||new_error){ -if(qbevent){evnt(26070,20817,"ide_methods.bas");if(r)goto S_60860;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_KW,FUNC_STRREPLACE(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len("&",1),qbs_new_txt_len("&",5))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20818,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_KWL=_SUB_EXPORTCODEAS_STRING_KW->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20818,"ide_methods.bas");}while(r); -do{ -sub_mid(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS,*_SUB_EXPORTCODEAS_INTEGER_KWL+ 37 ,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("",1)),_SUB_EXPORTCODEAS_STRING_KW),qbs_new_txt_len("",7)),1); -if(!qbevent)break;evnt(26070,20819,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+*_SUB_EXPORTCODEAS_INTEGER_KWL+ 37 ; -if(!qbevent)break;evnt(26070,20820,"ide_methods.bas");}while(r); -sc_ec_525_end:; -goto sc_6763_end; -} -S_60865:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6763,qbs_new_txt_len("rich",4))))||new_error){ -if(qbevent){evnt(26070,20821,"ide_methods.bas");if(r)goto S_60865;} -do{ -sub_mid(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS,*_SUB_EXPORTCODEAS_INTEGER_KWL+ 10 ,qbs_add(qbs_add(qbs_new_txt_len("\\cf2 ",5),_SUB_EXPORTCODEAS_STRING_KW),qbs_new_txt_len("\\cf0 ",5)),1); -if(!qbevent)break;evnt(26070,20822,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+*_SUB_EXPORTCODEAS_INTEGER_KWL+ 10 ; -if(!qbevent)break;evnt(26070,20823,"ide_methods.bas");}while(r); -sc_ec_526_end:; -goto sc_6763_end; -} -S_60868:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6763,qbs_new_txt_len("wiki",4))))||new_error){ -if(qbevent){evnt(26070,20824,"ide_methods.bas");if(r)goto S_60868;} -do{ -sub_mid(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS,*_SUB_EXPORTCODEAS_INTEGER_KWL+ 17 ,qbs_add(qbs_add(qbs_new_txt_len("{{Text|",7),_SUB_EXPORTCODEAS_STRING_KW),qbs_new_txt_len("|#55FF55}}",10)),1); -if(!qbevent)break;evnt(26070,20825,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+*_SUB_EXPORTCODEAS_INTEGER_KWL+ 17 ; -if(!qbevent)break;evnt(26070,20826,"ide_methods.bas");}while(r); -sc_ec_527_end:; -goto sc_6763_end; -} -do{ -#include "ret297.txt" -if(!qbevent)break;evnt(26070,20827,"ide_methods.bas");}while(r); -sc_6763_end:; -do{ -#include "ret297.txt" -if(!qbevent)break;evnt(26070,20829,"ide_methods.bas");}while(r); -LABEL_UNKNOWNNOLINKNOCOLOR:; -if(qbevent){evnt(26070,20831,"ide_methods.bas");r=0;} -S_60875:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_lcase(_SUB_EXPORTCODEAS_STRING_DOCFORMAT),qbs_new_txt_len("html",4))))||new_error){ -if(qbevent){evnt(26070,20832,"ide_methods.bas");if(r)goto S_60875;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_VERI,FUNC_STRREPLACE(_SUB_EXPORTCODEAS_STRING_VERI,qbs_new_txt_len("&",1),qbs_new_txt_len("&",5))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20832,"ide_methods.bas");}while(r); -} -do{ -sub_mid(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS,_SUB_EXPORTCODEAS_STRING_VERI->len,_SUB_EXPORTCODEAS_STRING_VERI,1); -if(!qbevent)break;evnt(26070,20833,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+_SUB_EXPORTCODEAS_STRING_VERI->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20833,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_VERI,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20833,"ide_methods.bas");}while(r); -do{ -#include "ret297.txt" -if(!qbevent)break;evnt(26070,20834,"ide_methods.bas");}while(r); -LABEL_ESCAPECHAR:; -if(qbevent){evnt(26070,20836,"ide_methods.bas");r=0;} -S_60882:; -qbs_set(sc_6767,qbs_lcase(_SUB_EXPORTCODEAS_STRING_DOCFORMAT)); -qbs_cleanup(qbs_tmp_base,0); -if(qbevent){evnt(26070,20837,"ide_methods.bas");if(r)goto S_60882;} -S_60883:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6767,qbs_new_txt_len("html",4))))||new_error){ -if(qbevent){evnt(26070,20838,"ide_methods.bas");if(r)goto S_60883;} -S_60884:; -if(qbevent){evnt(26070,20839,"ide_methods.bas");if(r)goto S_60884;} -S_60885:; -if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 34 )))||new_error){ -if(qbevent){evnt(26070,20840,"ide_methods.bas");if(r)goto S_60885;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_ECH,qbs_new_txt_len(""",6)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20840,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_SK= -1 ; -if(!qbevent)break;evnt(26070,20840,"ide_methods.bas");}while(r); -sc_ec_528_end:; -goto sc_6768_end; -} -S_60888:; -if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 38 )))||new_error){ -if(qbevent){evnt(26070,20841,"ide_methods.bas");if(r)goto S_60888;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_ECH,qbs_new_txt_len("&",5)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20841,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_SK= -1 ; -if(!qbevent)break;evnt(26070,20841,"ide_methods.bas");}while(r); -sc_ec_529_end:; -goto sc_6768_end; -} -S_60891:; -if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 60 )))||new_error){ -if(qbevent){evnt(26070,20842,"ide_methods.bas");if(r)goto S_60891;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_ECH,qbs_new_txt_len("<",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20842,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_SK= -1 ; -if(!qbevent)break;evnt(26070,20842,"ide_methods.bas");}while(r); -sc_ec_530_end:; -goto sc_6768_end; -} -S_60894:; -if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 62 )))||new_error){ -if(qbevent){evnt(26070,20843,"ide_methods.bas");if(r)goto S_60894;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_ECH,qbs_new_txt_len(">",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20843,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_SK= -1 ; -if(!qbevent)break;evnt(26070,20843,"ide_methods.bas");}while(r); -sc_ec_531_end:; -goto sc_6768_end; -} -S_60897:; -if (((*_SUB_EXPORTCODEAS_INTEGER_CURR>( 127 )))||new_error){ -if(qbevent){evnt(26070,20844,"ide_methods.bas");if(r)goto S_60897;} -do{ -*_SUB_EXPORTCODEAS_LONG_UNI=func__mapunicode(*_SUB_EXPORTCODEAS_INTEGER_CURR); -if(!qbevent)break;evnt(26070,20845,"ide_methods.bas");}while(r); -S_60899:; -if ((-(*_SUB_EXPORTCODEAS_LONG_UNI== 0 ))||new_error){ -if(qbevent){evnt(26070,20846,"ide_methods.bas");if(r)goto S_60899;} -do{ -*_SUB_EXPORTCODEAS_LONG_UNI= 65533 ; -if(!qbevent)break;evnt(26070,20846,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_ECH,FUNC_UNICODETOUTF8CHAR(_SUB_EXPORTCODEAS_LONG_UNI)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20847,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_SK= -1 ; -if(!qbevent)break;evnt(26070,20847,"ide_methods.bas");}while(r); -sc_ec_532_end:; -goto sc_6768_end; -} -do{ -#include "ret297.txt" -if(!qbevent)break;evnt(26070,20848,"ide_methods.bas");}while(r); -sc_6768_end:; -sc_ec_533_end:; -goto sc_6767_end; -} -S_60907:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6767,qbs_new_txt_len("rich",4))))||new_error){ -if(qbevent){evnt(26070,20850,"ide_methods.bas");if(r)goto S_60907;} -S_60908:; -if(qbevent){evnt(26070,20851,"ide_methods.bas");if(r)goto S_60908;} -S_60909:; -if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 92 ))||(*_SUB_EXPORTCODEAS_INTEGER_CURR==( 123 ))||(*_SUB_EXPORTCODEAS_INTEGER_CURR==( 125 )))||new_error){ -if(qbevent){evnt(26070,20852,"ide_methods.bas");if(r)goto S_60909;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_ECH,qbs_new_txt_len("\\",1)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20852,"ide_methods.bas");}while(r); -sc_ec_534_end:; -goto sc_6769_end; -} -S_60911:; -if (((*_SUB_EXPORTCODEAS_INTEGER_CURR>( 127 )))||new_error){ -if(qbevent){evnt(26070,20853,"ide_methods.bas");if(r)goto S_60911;} -do{ -*_SUB_EXPORTCODEAS_LONG_UNI=func__mapunicode(*_SUB_EXPORTCODEAS_INTEGER_CURR); -if(!qbevent)break;evnt(26070,20854,"ide_methods.bas");}while(r); -S_60913:; -if ((-(*_SUB_EXPORTCODEAS_LONG_UNI== 0 ))||new_error){ -if(qbevent){evnt(26070,20855,"ide_methods.bas");if(r)goto S_60913;} -do{ -*_SUB_EXPORTCODEAS_LONG_UNI= 65533 ; -if(!qbevent)break;evnt(26070,20855,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_ECH,qbs_add(qbs_add(qbs_new_txt_len("\\u",2),qbs_ltrim(qbs_str((int32)(*_SUB_EXPORTCODEAS_LONG_UNI)))),qbs_new_txt_len("\\'bf",4))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20856,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_SK= -1 ; -if(!qbevent)break;evnt(26070,20856,"ide_methods.bas");}while(r); -sc_ec_535_end:; -goto sc_6769_end; -} -do{ -#include "ret297.txt" -if(!qbevent)break;evnt(26070,20857,"ide_methods.bas");}while(r); -sc_6769_end:; -sc_ec_536_end:; -goto sc_6767_end; -} -S_60921:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6767,qbs_new_txt_len("wiki",4))))||new_error){ -if(qbevent){evnt(26070,20859,"ide_methods.bas");if(r)goto S_60921;} -S_60922:; -if(qbevent){evnt(26070,20860,"ide_methods.bas");if(r)goto S_60922;} -S_60923:; -if (((*_SUB_EXPORTCODEAS_INTEGER_CURR>( 127 )))||new_error){ -if(qbevent){evnt(26070,20861,"ide_methods.bas");if(r)goto S_60923;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_ECH,qbs_add(qbs_add(qbs_new_txt_len("&#",2),qbs_ltrim(qbs_str((int16)(*_SUB_EXPORTCODEAS_INTEGER_CURR)))),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20861,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_INTEGER_SK= -1 ; -if(!qbevent)break;evnt(26070,20861,"ide_methods.bas");}while(r); -sc_ec_537_end:; -goto sc_6770_end; -} -do{ -#include "ret297.txt" -if(!qbevent)break;evnt(26070,20862,"ide_methods.bas");}while(r); -sc_6770_end:; -sc_ec_538_end:; -goto sc_6767_end; -} -do{ -#include "ret297.txt" -if(!qbevent)break;evnt(26070,20864,"ide_methods.bas");}while(r); -sc_6767_end:; -do{ -sub_mid(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS,_SUB_EXPORTCODEAS_STRING_ECH->len,_SUB_EXPORTCODEAS_STRING_ECH,1); -if(!qbevent)break;evnt(26070,20866,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+_SUB_EXPORTCODEAS_STRING_ECH->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20866,"ide_methods.bas");}while(r); -do{ -#include "ret297.txt" -if(!qbevent)break;evnt(26070,20867,"ide_methods.bas");}while(r); -LABEL_ENDLINEOPS:; -if(qbevent){evnt(26070,20869,"ide_methods.bas");r=0;} -S_60935:; -qbs_set(sc_6773,qbs_lcase(_SUB_EXPORTCODEAS_STRING_DOCFORMAT)); -qbs_cleanup(qbs_tmp_base,0); -if(qbevent){evnt(26070,20870,"ide_methods.bas");if(r)goto S_60935;} -S_60936:; -if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6773,qbs_new_txt_len("rich",4))))||new_error){ -if(qbevent){evnt(26070,20871,"ide_methods.bas");if(r)goto S_60936;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("\\par",4)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20871,"ide_methods.bas");}while(r); -sc_ec_539_end:; -goto sc_6773_end; -} -do{ -#include "ret297.txt" -if(!qbevent)break;evnt(26070,20872,"ide_methods.bas");}while(r); -sc_6773_end:; -do{ -sub_mid(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS,_SUB_EXPORTCODEAS_STRING_TMP->len,_SUB_EXPORTCODEAS_STRING_TMP,1); -if(!qbevent)break;evnt(26070,20874,"ide_methods.bas");}while(r); -do{ -*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+_SUB_EXPORTCODEAS_STRING_TMP->len; -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20874,"ide_methods.bas");}while(r); -do{ -#include "ret297.txt" -if(!qbevent)break;evnt(26070,20875,"ide_methods.bas");}while(r); -LABEL_GETTHEMECOLORS:; -if(qbevent){evnt(26070,20877,"ide_methods.bas");r=0;} -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_TXC,qbs_add(qbs_new_txt_len("#",1),qbs_right(func_hex(*__ULONG_IDETEXTCOLOR,8), 6 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20878,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_RTC,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("\\red",4),qbs_ltrim(qbs_str((int32)(func__red32(*__ULONG_IDETEXTCOLOR))))),qbs_new_txt_len("\\green",6)),qbs_ltrim(qbs_str((int32)(func__green32(*__ULONG_IDETEXTCOLOR))))),qbs_new_txt_len("\\blue",5)),qbs_ltrim(qbs_str((int32)(func__blue32(*__ULONG_IDETEXTCOLOR))))),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20879,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_COC,qbs_add(qbs_new_txt_len("#",1),qbs_right(func_hex(*__ULONG_IDECOMMENTCOLOR,8), 6 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20880,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_RTC,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_RTC,qbs_new_txt_len("\\red",4)),qbs_ltrim(qbs_str((int32)(func__red32(*__ULONG_IDECOMMENTCOLOR))))),qbs_new_txt_len("\\green",6)),qbs_ltrim(qbs_str((int32)(func__green32(*__ULONG_IDECOMMENTCOLOR))))),qbs_new_txt_len("\\blue",5)),qbs_ltrim(qbs_str((int32)(func__blue32(*__ULONG_IDECOMMENTCOLOR))))),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20881,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_MEC,qbs_add(qbs_new_txt_len("#",1),qbs_right(func_hex(*__ULONG_IDEMETACOMMANDCOLOR,8), 6 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20882,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_RTC,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_RTC,qbs_new_txt_len("\\red",4)),qbs_ltrim(qbs_str((int32)(func__red32(*__ULONG_IDEMETACOMMANDCOLOR))))),qbs_new_txt_len("\\green",6)),qbs_ltrim(qbs_str((int32)(func__green32(*__ULONG_IDEMETACOMMANDCOLOR))))),qbs_new_txt_len("\\blue",5)),qbs_ltrim(qbs_str((int32)(func__blue32(*__ULONG_IDEMETACOMMANDCOLOR))))),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20883,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_KWC,qbs_add(qbs_new_txt_len("#",1),qbs_right(func_hex(*__ULONG_IDEKEYWORDCOLOR,8), 6 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20884,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_RTC,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_RTC,qbs_new_txt_len("\\red",4)),qbs_ltrim(qbs_str((int32)(func__red32(*__ULONG_IDEKEYWORDCOLOR))))),qbs_new_txt_len("\\green",6)),qbs_ltrim(qbs_str((int32)(func__green32(*__ULONG_IDEKEYWORDCOLOR))))),qbs_new_txt_len("\\blue",5)),qbs_ltrim(qbs_str((int32)(func__blue32(*__ULONG_IDEKEYWORDCOLOR))))),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20885,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_NUC,qbs_add(qbs_new_txt_len("#",1),qbs_right(func_hex(*__ULONG_IDENUMBERSCOLOR,8), 6 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20886,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_RTC,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_RTC,qbs_new_txt_len("\\red",4)),qbs_ltrim(qbs_str((int32)(func__red32(*__ULONG_IDENUMBERSCOLOR))))),qbs_new_txt_len("\\green",6)),qbs_ltrim(qbs_str((int32)(func__green32(*__ULONG_IDENUMBERSCOLOR))))),qbs_new_txt_len("\\blue",5)),qbs_ltrim(qbs_str((int32)(func__blue32(*__ULONG_IDENUMBERSCOLOR))))),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20887,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_QUC,qbs_add(qbs_new_txt_len("#",1),qbs_right(func_hex(*__ULONG_IDEQUOTECOLOR,8), 6 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20888,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_RTC,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_RTC,qbs_new_txt_len("\\red",4)),qbs_ltrim(qbs_str((int32)(func__red32(*__ULONG_IDEQUOTECOLOR))))),qbs_new_txt_len("\\green",6)),qbs_ltrim(qbs_str((int32)(func__green32(*__ULONG_IDEQUOTECOLOR))))),qbs_new_txt_len("\\blue",5)),qbs_ltrim(qbs_str((int32)(func__blue32(*__ULONG_IDEQUOTECOLOR))))),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20889,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_BGC,qbs_add(qbs_new_txt_len("#",1),qbs_right(func_hex(*__ULONG_IDEBACKGROUNDCOLOR,8), 6 ))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20890,"ide_methods.bas");}while(r); -do{ -qbs_set(_SUB_EXPORTCODEAS_STRING_RTC,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_RTC,qbs_new_txt_len("\\red",4)),qbs_ltrim(qbs_str((int32)(func__red32(*__ULONG_IDEBACKGROUNDCOLOR))))),qbs_new_txt_len("\\green",6)),qbs_ltrim(qbs_str((int32)(func__green32(*__ULONG_IDEBACKGROUNDCOLOR))))),qbs_new_txt_len("\\blue",5)),qbs_ltrim(qbs_str((int32)(func__blue32(*__ULONG_IDEBACKGROUNDCOLOR))))),qbs_new_txt_len(";",1))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20891,"ide_methods.bas");}while(r); -do{ -#include "ret297.txt" -if(!qbevent)break;evnt(26070,20892,"ide_methods.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free297.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} -qbs* FUNC_UNICODETOUTF8CHAR(int32*_FUNC_UNICODETOUTF8CHAR_LONG_UNICODE){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data298.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -S_60959:; -if ((-(*_FUNC_UNICODETOUTF8CHAR_LONG_UNICODE< 128 ))||new_error){ -if(qbevent){evnt(26070,20897,"ide_methods.bas");if(r)goto S_60959;} -do{ -qbs_set(_FUNC_UNICODETOUTF8CHAR_STRING_UNICODETOUTF8CHAR,func_chr(*_FUNC_UNICODETOUTF8CHAR_LONG_UNICODE)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20899,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_UNICODETOUTF8CHAR_STRING_UTF,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20902,"ide_methods.bas");}while(r); -do{ -*_FUNC_UNICODETOUTF8CHAR_LONG_UC=*_FUNC_UNICODETOUTF8CHAR_LONG_UNICODE; -if(!qbevent)break;evnt(26070,20902,"ide_methods.bas");}while(r); -do{ -*_FUNC_UNICODETOUTF8CHAR_INTEGER_FIRST= 128 ; -if(!qbevent)break;evnt(26070,20903,"ide_methods.bas");}while(r); -do{ -*_FUNC_UNICODETOUTF8CHAR_INTEGER_REMAIN= 63 ; -if(!qbevent)break;evnt(26070,20903,"ide_methods.bas");}while(r); -S_60966:; -do{ -if(qbevent){evnt(26070,20904,"ide_methods.bas");if(r)goto S_60966;} -do{ -*_FUNC_UNICODETOUTF8CHAR_INTEGER_FIRST= 128 |(*_FUNC_UNICODETOUTF8CHAR_INTEGER_FIRST/ 2 ); -if(!qbevent)break;evnt(26070,20905,"ide_methods.bas");}while(r); -do{ -*_FUNC_UNICODETOUTF8CHAR_INTEGER_REMAIN=(*_FUNC_UNICODETOUTF8CHAR_INTEGER_REMAIN/ 2 ); -if(!qbevent)break;evnt(26070,20905,"ide_methods.bas");}while(r); -do{ -*_FUNC_UNICODETOUTF8CHAR_INTEGER_CONTI= 128 |(*_FUNC_UNICODETOUTF8CHAR_LONG_UC& 63 ); -if(!qbevent)break;evnt(26070,20906,"ide_methods.bas");}while(r); -do{ -*_FUNC_UNICODETOUTF8CHAR_LONG_UC=*_FUNC_UNICODETOUTF8CHAR_LONG_UC/ 64 ; -if(!qbevent)break;evnt(26070,20906,"ide_methods.bas");}while(r); -do{ -qbs_set(_FUNC_UNICODETOUTF8CHAR_STRING_UTF,qbs_add(func_chr(*_FUNC_UNICODETOUTF8CHAR_INTEGER_CONTI),_FUNC_UNICODETOUTF8CHAR_STRING_UTF)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20907,"ide_methods.bas");}while(r); -S_60972:; -if ((-(*_FUNC_UNICODETOUTF8CHAR_LONG_UC<=*_FUNC_UNICODETOUTF8CHAR_INTEGER_REMAIN))||new_error){ -if(qbevent){evnt(26070,20908,"ide_methods.bas");if(r)goto S_60972;} -do{ -*_FUNC_UNICODETOUTF8CHAR_INTEGER_FIRST=(*_FUNC_UNICODETOUTF8CHAR_INTEGER_FIRST|*_FUNC_UNICODETOUTF8CHAR_LONG_UC); -if(!qbevent)break;evnt(26070,20909,"ide_methods.bas");}while(r); -do{ -*_FUNC_UNICODETOUTF8CHAR_LONG_UC= 0 ; -if(!qbevent)break;evnt(26070,20909,"ide_methods.bas");}while(r); -} -S_60976:; -dl_continue_6776:; -}while((!(-(*_FUNC_UNICODETOUTF8CHAR_LONG_UC== 0 )))&&(!new_error)); -dl_exit_6776:; -if(qbevent){evnt(26070,20911,"ide_methods.bas");if(r)goto S_60976;} -do{ -qbs_set(_FUNC_UNICODETOUTF8CHAR_STRING_UNICODETOUTF8CHAR,qbs_add(func_chr(*_FUNC_UNICODETOUTF8CHAR_INTEGER_FIRST),_FUNC_UNICODETOUTF8CHAR_STRING_UTF)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20912,"ide_methods.bas");}while(r); -} -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free298.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_UNICODETOUTF8CHAR_STRING_UNICODETOUTF8CHAR);return _FUNC_UNICODETOUTF8CHAR_STRING_UNICODETOUTF8CHAR; -} -qbs* FUNC_ANSITEXTTOUTF8TEXT(qbs*_FUNC_ANSITEXTTOUTF8TEXT_STRING_TEXT){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data299.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -do{ -qbs_set(_FUNC_ANSITEXTTOUTF8TEXT_STRING_UTF,qbs_new_txt_len("",0)); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20917,"ide_methods.bas");}while(r); -S_60980:; -fornext_value6779= 1 ; -fornext_finalvalue6779=_FUNC_ANSITEXTTOUTF8TEXT_STRING_TEXT->len; -fornext_step6779= 1 ; -if (fornext_step6779<0) fornext_step_negative6779=1; else fornext_step_negative6779=0; -if (new_error) goto fornext_error6779; -goto fornext_entrylabel6779; -while(1){ -fornext_value6779=fornext_step6779+(*_FUNC_ANSITEXTTOUTF8TEXT_LONG_CHI); -fornext_entrylabel6779: -*_FUNC_ANSITEXTTOUTF8TEXT_LONG_CHI=fornext_value6779; -qbs_cleanup(qbs_tmp_base,0); -if (fornext_step_negative6779){ -if (fornext_value6779fornext_finalvalue6779) break; -} -fornext_error6779:; -if(qbevent){evnt(26070,20918,"ide_methods.bas");if(r)goto S_60980;} -do{ -*_FUNC_ANSITEXTTOUTF8TEXT_INTEGER_ASCII=qbs_asc(_FUNC_ANSITEXTTOUTF8TEXT_STRING_TEXT,*_FUNC_ANSITEXTTOUTF8TEXT_LONG_CHI); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20920,"ide_methods.bas");}while(r); -S_60982:; -if ((-(*_FUNC_ANSITEXTTOUTF8TEXT_INTEGER_ASCII> 127 ))||new_error){ -if(qbevent){evnt(26070,20921,"ide_methods.bas");if(r)goto S_60982;} -do{ -*_FUNC_ANSITEXTTOUTF8TEXT_LONG_UNICODE=func__mapunicode(*_FUNC_ANSITEXTTOUTF8TEXT_INTEGER_ASCII); -if(!qbevent)break;evnt(26070,20923,"ide_methods.bas");}while(r); -S_60984:; -if ((-(*_FUNC_ANSITEXTTOUTF8TEXT_LONG_UNICODE== 0 ))||new_error){ -if(qbevent){evnt(26070,20925,"ide_methods.bas");if(r)goto S_60984;} -do{ -*_FUNC_ANSITEXTTOUTF8TEXT_LONG_UNICODE= 65533 ; -if(!qbevent)break;evnt(26070,20925,"ide_methods.bas");}while(r); -} -do{ -qbs_set(_FUNC_ANSITEXTTOUTF8TEXT_STRING_UTF,qbs_add(_FUNC_ANSITEXTTOUTF8TEXT_STRING_UTF,FUNC_UNICODETOUTF8CHAR(_FUNC_ANSITEXTTOUTF8TEXT_LONG_UNICODE))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20926,"ide_methods.bas");}while(r); -}else{ -do{ -qbs_set(_FUNC_ANSITEXTTOUTF8TEXT_STRING_UTF,qbs_add(_FUNC_ANSITEXTTOUTF8TEXT_STRING_UTF,func_chr(*_FUNC_ANSITEXTTOUTF8TEXT_INTEGER_ASCII))); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20929,"ide_methods.bas");}while(r); -} -fornext_continue_6778:; -} -fornext_exit_6778:; -do{ -qbs_set(_FUNC_ANSITEXTTOUTF8TEXT_STRING_ANSITEXTTOUTF8TEXT,_FUNC_ANSITEXTTOUTF8TEXT_STRING_UTF); -qbs_cleanup(qbs_tmp_base,0); -if(!qbevent)break;evnt(26070,20932,"ide_methods.bas");}while(r); -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free299.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -qbs_maketmp(_FUNC_ANSITEXTTOUTF8TEXT_STRING_ANSITEXTTOUTF8TEXT);return _FUNC_ANSITEXTTOUTF8TEXT_STRING_ANSITEXTTOUTF8TEXT; -} -void SUB_VWATCH(){ -qbs *tqbs; -ptrszint tmp_long; -int32 tmp_fileno; -uint32 qbs_tmp_base=qbs_tmp_list_nexti; -uint8 *tmp_mem_static_pointer=mem_static_pointer; -uint32 tmp_cmem_sp=cmem_sp; -#include "data300.txt" -mem_lock *sf_mem_lock; -new_mem_lock(); -sf_mem_lock=mem_lock_tmp; -sf_mem_lock->type=3; -if (new_error) goto exit_subfunc; -exit_subfunc:; -free_mem_lock(sf_mem_lock); -#include "free300.txt" -if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; -cmem_sp=tmp_cmem_sp; -} +} +if(!qbevent)break;evnt(26070,20358,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_BACKUPTYPEDEFINITIONS,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20359,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_CALLSTACKLIST,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20360,"ide_methods.bas");}while(r); +do{ +*__LONG_CALLSTACKLENGTH= 0 ; +if(!qbevent)break;evnt(26070,20360,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEERROR= 1 ; +if(!qbevent)break;evnt(26070,20362,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_IDEPROGNAME,_FUNC_OPENFILE_STRING_F); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20363,"ide_methods.bas");}while(r); +do{ +sub__title(qbs_add(qbs_add(__STRING_IDEPROGNAME,qbs_new_txt_len(" - ",3)),__STRING_WINDOWTITLE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20363,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_LISTOFCUSTOMKEYWORDS,qbs_left(__STRING_LISTOFCUSTOMKEYWORDS,*__LONG_CUSTOMKEYWORDSLENGTH)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20364,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_IDEPATH,_FUNC_OPENFILE_STRING_PATH); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20365,"ide_methods.bas");}while(r); +do{ +SUB_IDEADDRECENT(qbs_add(qbs_add(__STRING_IDEPATH,__STRING1_IDEPATHSEP),__STRING_IDEPROGNAME)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20366,"ide_methods.bas");}while(r); +do{ +SUB_IDEIMPORTBOOKMARKS(qbs_add(qbs_add(__STRING_IDEPATH,__STRING1_IDEPATHSEP),__STRING_IDEPROGNAME)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20367,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free296.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_OPENFILE_STRING_OPENFILE);return _FUNC_OPENFILE_STRING_OPENFILE; +} +void SUB_EXPORTCODEAS(qbs*_SUB_EXPORTCODEAS_STRING_DOCFORMAT){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data297.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_PNAM,__STRING_IDEPROGNAME); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20378,"ide_methods.bas");}while(r); +S_59976:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PNAM,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,20378,"ide_methods.bas");if(r)goto S_59976;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_PNAM,qbs_add(qbs_add(qbs_new_txt_len("Untitled",8),__STRING_TEMPFOLDERINDEXSTR),qbs_new_txt_len(".bas",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20378,"ide_methods.bas");}while(r); +} +S_59979:; +qbs_set(sc_6713,qbs_lcase(_SUB_EXPORTCODEAS_STRING_DOCFORMAT)); +qbs_cleanup(qbs_tmp_base,0); +if(qbevent){evnt(26070,20379,"ide_methods.bas");if(r)goto S_59979;} +S_59980:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6713,qbs_new_txt_len("html",4))))||new_error){ +if(qbevent){evnt(26070,20380,"ide_methods.bas");if(r)goto S_59980;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_EXT,qbs_new_txt_len(".htm",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20380,"ide_methods.bas");}while(r); +sc_ec_448_end:; +goto sc_6713_end; +} +S_59982:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6713,qbs_new_txt_len("rich",4))))||new_error){ +if(qbevent){evnt(26070,20381,"ide_methods.bas");if(r)goto S_59982;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_EXT,qbs_new_txt_len(".rtf",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20381,"ide_methods.bas");}while(r); +sc_ec_449_end:; +goto sc_6713_end; +} +S_59984:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6713,qbs_new_txt_len("wiki",4))))||new_error){ +if(qbevent){evnt(26070,20382,"ide_methods.bas");if(r)goto S_59984;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_EXT,qbs_new_txt_len(".txt",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20382,"ide_methods.bas");}while(r); +sc_ec_450_end:; +goto sc_6713_end; +} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_EXT,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20383,"ide_methods.bas");}while(r); +sc_6713_end:; +S_59989:; +if ((qbs_cleanup(qbs_tmp_base,func__fileexists(qbs_add(qbs_add(qbs_add(__STRING_IDEPATH,__STRING1_IDEPATHSEP),_SUB_EXPORTCODEAS_STRING_PNAM),_SUB_EXPORTCODEAS_STRING_EXT))))||new_error){ +if(qbevent){evnt(26070,20385,"ide_methods.bas");if(r)goto S_59989;} +S_59990:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(FUNC_IDEYESNOBOX(qbs_new_txt_len("Export As...",12),qbs_add(qbs_add(qbs_new_txt_len("Overwrite file ",15),_SUB_EXPORTCODEAS_STRING_PNAM),_SUB_EXPORTCODEAS_STRING_EXT)),qbs_new_txt_len("N",1))))||new_error){ +if(qbevent){evnt(26070,20386,"ide_methods.bas");if(r)goto S_59990;} +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,20386,"ide_methods.bas");}while(r); +} +} +do{ +return_point[next_return_point++]=183; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_GETTHEMECOLORS; +RETURN_183:; +if(!qbevent)break;evnt(26070,20388,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_CEOL,func_chr( 10 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20389,"ide_methods.bas");}while(r); +S_59996:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,func__os(),qbs_new_txt_len("[LINUX]",7),0)== 0 )))||new_error){ +if(qbevent){evnt(26070,20390,"ide_methods.bas");if(r)goto S_59996;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_CEOL,qbs_add(func_chr( 13 ),_SUB_EXPORTCODEAS_STRING_CEOL)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20390,"ide_methods.bas");}while(r); +} +do{ +sub_pcopy( 3 , 2 ); +if(!qbevent)break;evnt(26070,20392,"ide_methods.bas");}while(r); +do{ +qbg_screen(NULL,NULL, 3 , 0 ,NULL,12); +if(!qbevent)break;evnt(26070,20392,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_STXT,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20393,"ide_methods.bas");}while(r); +S_60002:; +fornext_value6715= 1 ; +fornext_finalvalue6715=*__LONG_IDEN; +fornext_step6715= 1 ; +if (fornext_step6715<0) fornext_step_negative6715=1; else fornext_step_negative6715=0; +if (new_error) goto fornext_error6715; +goto fornext_entrylabel6715; +while(1){ +fornext_value6715=fornext_step6715+(*_SUB_EXPORTCODEAS_LONG_I); +fornext_entrylabel6715: +*_SUB_EXPORTCODEAS_LONG_I=fornext_value6715; +if (fornext_step_negative6715){ +if (fornext_value6715fornext_finalvalue6715) break; +} +fornext_error6715:; +if(qbevent){evnt(26070,20394,"ide_methods.bas");if(r)goto S_60002;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_STXT,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_STXT,FUNC_IDEGETLINE(_SUB_EXPORTCODEAS_LONG_I)),_SUB_EXPORTCODEAS_STRING_CEOL)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20395,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_PERC,FUNC_STR2(&(pass6716=qbr(floor( 30 / ((long double)(*__LONG_IDEN))**_SUB_EXPORTCODEAS_LONG_I))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20396,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_IDEINFO,qbs_add(qbs_add(qbs_add(func_chr( 0 ),func_string( 3 -_SUB_EXPORTCODEAS_STRING_PERC->len, 32 )),_SUB_EXPORTCODEAS_STRING_PERC),qbs_new_txt_len("% exported...",13))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20397,"ide_methods.bas");}while(r); +do{ +SUB_UPDATEIDEINFO(); +if(!qbevent)break;evnt(26070,20398,"ide_methods.bas");}while(r); +fornext_continue_6714:; +} +fornext_exit_6714:; +S_60008:; +while((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_SUB_EXPORTCODEAS_STRING_STXT,_SUB_EXPORTCODEAS_STRING_CEOL->len),_SUB_EXPORTCODEAS_STRING_CEOL)))||new_error){ +if(qbevent){evnt(26070,20400,"ide_methods.bas");if(r)goto S_60008;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_STXT,qbs_left(_SUB_EXPORTCODEAS_STRING_STXT,_SUB_EXPORTCODEAS_STRING_STXT->len-_SUB_EXPORTCODEAS_STRING_CEOL->len)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20401,"ide_methods.bas");}while(r); +ww_continue_6718:; +} +ww_exit_6718:; +S_60011:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_STXT,qbs_new_txt_len("",0))))||new_error){ +if(qbevent){evnt(26070,20403,"ide_methods.bas");if(r)goto S_60011;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_STXT,qbs_add(_SUB_EXPORTCODEAS_STRING_STXT,_SUB_EXPORTCODEAS_STRING_CEOL)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20403,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_STXT,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_STXT,_SUB_EXPORTCODEAS_STRING_CEOL),_SUB_EXPORTCODEAS_STRING_CEOL)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20403,"ide_methods.bas");}while(r); +} +do{ +*_SUB_EXPORTCODEAS_LONG_SLEN=_SUB_EXPORTCODEAS_STRING_STXT->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20404,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_LONG_SPOS= 1 ; +if(!qbevent)break;evnt(26070,20405,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_ETXT,func_space( 10000000 )); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20406,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_LONG_EPOS= 1 ; +if(!qbevent)break;evnt(26070,20407,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_POST= 0 ; +if(!qbevent)break;evnt(26070,20409,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_WHAT,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20410,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_CO= 0 ; +if(!qbevent)break;evnt(26070,20412,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_LE= 0 ; +if(!qbevent)break;evnt(26070,20413,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_ME= 0 ; +if(!qbevent)break;evnt(26070,20414,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_KW= 0 ; +if(!qbevent)break;evnt(26070,20415,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_NU= 0 ; +if(!qbevent)break;evnt(26070,20416,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_QU= 0 ; +if(!qbevent)break;evnt(26070,20417,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_OP= 0 ; +if(!qbevent)break;evnt(26070,20419,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_MA,qbs_new_txt_len("@_ARCCOT@_ARCCSC@_ARCSEC@_COT@_COTH@_COSH@_CSC@_CSCH@_SEC@_SECH@_SINH@_TANH@",76)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20420,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_FU= 0 ; +if(!qbevent)break;evnt(26070,20421,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_FU,qbs_new_txt_len("@_AUTODISPLAY@_BLEND@_BLINK@_CAPSLOCK@_CLEARCOLOR@_CLIPBOARD$@_CLIPBOARDIMAGE@_CONTROLCHR@_DEST@_DISPLAY@_EXIT@_FONT@_FULLSCREEN@_MAPUNICODE@_MEM@_MEMGET@_MESSAGEBOX@_NUMLOCK@_OFFSET@_PALETTECOLOR@_PRINTMODE@_RESIZE@_SCREENICON@_SCROLLLOCK@_SMOOTH@_SOURCE@_WIDTH@ASC@MID$@PLAY@SCREEN@SEEK@SHELL@TIMER@",301)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20422,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_BO= 0 ; +if(!qbevent)break;evnt(26070,20423,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_BO,qbs_new_txt_len("@AND@OR@XOR@",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20424,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_NP= 0 ; +if(!qbevent)break;evnt(26070,20426,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_PC= 0 ; +if(!qbevent)break;evnt(26070,20427,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_ML= 0 ; +if(!qbevent)break;evnt(26070,20428,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_CU= 0 ; +if(!qbevent)break;evnt(26070,20429,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_LB= 0 ; +if(!qbevent)break;evnt(26070,20430,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_NL= -1 ; +if(!qbevent)break;evnt(26070,20431,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_NT= -1 ; +if(!qbevent)break;evnt(26070,20432,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_NC= 0 ; +if(!qbevent)break;evnt(26070,20434,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_IN= 0 ; +if(!qbevent)break;evnt(26070,20435,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_SK= 0 ; +if(!qbevent)break;evnt(26070,20436,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=184; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_OPENCODEBLOCK; +RETURN_184:; +if(!qbevent)break;evnt(26070,20438,"ide_methods.bas");}while(r); +S_60045:; +while((-(*_SUB_EXPORTCODEAS_LONG_SPOS<=*_SUB_EXPORTCODEAS_LONG_SLEN))||new_error){ +if(qbevent){evnt(26070,20439,"ide_methods.bas");if(r)goto S_60045;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_PERC,FUNC_STR2(&(pass6724=qbr( 30 +floor( 70 / ((long double)(*_SUB_EXPORTCODEAS_LONG_SLEN))**_SUB_EXPORTCODEAS_LONG_SPOS))))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20440,"ide_methods.bas");}while(r); +do{ +qbs_set(__STRING_IDEINFO,qbs_add(qbs_add(qbs_add(func_chr( 0 ),func_string( 3 -_SUB_EXPORTCODEAS_STRING_PERC->len, 32 )),_SUB_EXPORTCODEAS_STRING_PERC),qbs_new_txt_len("% exported...",13))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20441,"ide_methods.bas");}while(r); +do{ +SUB_UPDATEIDEINFO(); +if(!qbevent)break;evnt(26070,20442,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_CURR=qbs_asc(_SUB_EXPORTCODEAS_STRING_STXT,*_SUB_EXPORTCODEAS_LONG_SPOS); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20444,"ide_methods.bas");}while(r); +S_60050:; +if(qbevent){evnt(26070,20445,"ide_methods.bas");if(r)goto S_60050;} +S_60051:; +if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 10 ))||(*_SUB_EXPORTCODEAS_INTEGER_CURR==( 13 )))||new_error){ +if(qbevent){evnt(26070,20446,"ide_methods.bas");if(r)goto S_60051;} +S_60052:; +if ((~(*_SUB_EXPORTCODEAS_INTEGER_LB))||new_error){ +if(qbevent){evnt(26070,20447,"ide_methods.bas");if(r)goto S_60052;} +S_60053:; +if ((*_SUB_EXPORTCODEAS_INTEGER_ME)||new_error){ +if(qbevent){evnt(26070,20448,"ide_methods.bas");if(r)goto S_60053;} +S_60054:; +if ((~(*_SUB_EXPORTCODEAS_INTEGER_IN))||new_error){ +if(qbevent){evnt(26070,20449,"ide_methods.bas");if(r)goto S_60054;} +do{ +return_point[next_return_point++]=185; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_VERIFYKEYWORD; +RETURN_185:; +if(!qbevent)break;evnt(26070,20449,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=186; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_WRITELINK; +RETURN_186:; +if(!qbevent)break;evnt(26070,20449,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_ME,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20449,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_IN= 0 ; +if(!qbevent)break;evnt(26070,20449,"ide_methods.bas");}while(r); +} +do{ +*_SUB_EXPORTCODEAS_INTEGER_ME= 0 ; +if(!qbevent)break;evnt(26070,20450,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_LE= 0 ; +if(!qbevent)break;evnt(26070,20450,"ide_methods.bas");}while(r); +S_60063:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_ME),qbs_new_txt_len("$NOPREFIX",9))))||new_error){ +if(qbevent){evnt(26070,20451,"ide_methods.bas");if(r)goto S_60063;} +do{ +*_SUB_EXPORTCODEAS_INTEGER_NP= -1 ; +if(!qbevent)break;evnt(26070,20451,"ide_methods.bas");}while(r); +} +} +S_60067:; +if ((*_SUB_EXPORTCODEAS_INTEGER_KW)||new_error){ +if(qbevent){evnt(26070,20453,"ide_methods.bas");if(r)goto S_60067;} +S_60068:; +if ((~(*_SUB_EXPORTCODEAS_INTEGER_IN))||new_error){ +if(qbevent){evnt(26070,20454,"ide_methods.bas");if(r)goto S_60068;} +do{ +return_point[next_return_point++]=187; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_VERIFYKEYWORD; +RETURN_187:; +if(!qbevent)break;evnt(26070,20454,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=188; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_WRITELINK; +RETURN_188:; +if(!qbevent)break;evnt(26070,20454,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20454,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_IN= 0 ; +if(!qbevent)break;evnt(26070,20454,"ide_methods.bas");}while(r); +} +do{ +*_SUB_EXPORTCODEAS_INTEGER_KW= 0 ; +if(!qbevent)break;evnt(26070,20455,"ide_methods.bas");}while(r); +} +S_60077:; +if ((*_SUB_EXPORTCODEAS_INTEGER_CO)||new_error){ +if(qbevent){evnt(26070,20457,"ide_methods.bas");if(r)goto S_60077;} +do{ +*_SUB_EXPORTCODEAS_INTEGER_POST= 0 ; +if(!qbevent)break;evnt(26070,20457,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_WHAT,qbs_new_txt_len("co",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20457,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=189; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_CLOSETEXT; +RETURN_189:; +if(!qbevent)break;evnt(26070,20457,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_CO= 0 ; +if(!qbevent)break;evnt(26070,20457,"ide_methods.bas");}while(r); +} +S_60083:; +if ((*_SUB_EXPORTCODEAS_INTEGER_NU)||new_error){ +if(qbevent){evnt(26070,20458,"ide_methods.bas");if(r)goto S_60083;} +do{ +*_SUB_EXPORTCODEAS_INTEGER_POST= 0 ; +if(!qbevent)break;evnt(26070,20458,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_WHAT,qbs_new_txt_len("nu",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20458,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=190; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_CLOSETEXT; +RETURN_190:; +if(!qbevent)break;evnt(26070,20458,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_NU= 0 ; +if(!qbevent)break;evnt(26070,20458,"ide_methods.bas");}while(r); +} +S_60089:; +if ((-(*_SUB_EXPORTCODEAS_LONG_SPOS> 1 ))||new_error){ +if(qbevent){evnt(26070,20459,"ide_methods.bas");if(r)goto S_60089;} +S_60090:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_SUB_EXPORTCODEAS_STRING_STXT,*_SUB_EXPORTCODEAS_LONG_SPOS- 1 )!= 95 )))||new_error){ +if(qbevent){evnt(26070,20460,"ide_methods.bas");if(r)goto S_60090;} +do{ +*_SUB_EXPORTCODEAS_INTEGER_OP= 0 ; +if(!qbevent)break;evnt(26070,20460,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_FU= 0 ; +if(!qbevent)break;evnt(26070,20460,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_BO= 0 ; +if(!qbevent)break;evnt(26070,20460,"ide_methods.bas");}while(r); +} +}else{ +do{ +*_SUB_EXPORTCODEAS_INTEGER_OP= 0 ; +if(!qbevent)break;evnt(26070,20462,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_FU= 0 ; +if(!qbevent)break;evnt(26070,20462,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_BO= 0 ; +if(!qbevent)break;evnt(26070,20462,"ide_methods.bas");}while(r); +} +do{ +return_point[next_return_point++]=191; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_ENDLINEOPS; +RETURN_191:; +if(!qbevent)break;evnt(26070,20464,"ide_methods.bas");}while(r); +S_60101:; +if ((-(*_SUB_EXPORTCODEAS_INTEGER_CURR== 13 ))||new_error){ +if(qbevent){evnt(26070,20465,"ide_methods.bas");if(r)goto S_60101;} +do{ +*_SUB_EXPORTCODEAS_INTEGER_LB= -1 ; +if(!qbevent)break;evnt(26070,20465,"ide_methods.bas");}while(r); +} +} +S_60105:; +if ((-(*_SUB_EXPORTCODEAS_INTEGER_CURR== 10 ))||new_error){ +if(qbevent){evnt(26070,20467,"ide_methods.bas");if(r)goto S_60105;} +do{ +*_SUB_EXPORTCODEAS_INTEGER_PC= 0 ; +if(!qbevent)break;evnt(26070,20467,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_ML= 0 ; +if(!qbevent)break;evnt(26070,20467,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_LB= 0 ; +if(!qbevent)break;evnt(26070,20467,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_NL= -1 ; +if(!qbevent)break;evnt(26070,20467,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_NT= -1 ; +if(!qbevent)break;evnt(26070,20467,"ide_methods.bas");}while(r); +} +sc_ec_451_end:; +goto sc_6726_end; +} +S_60112:; +if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 9 ))||(*_SUB_EXPORTCODEAS_INTEGER_CURR==( 32 )))||new_error){ +if(qbevent){evnt(26070,20468,"ide_methods.bas");if(r)goto S_60112;} +S_60113:; +if ((*_SUB_EXPORTCODEAS_INTEGER_ME)||new_error){ +if(qbevent){evnt(26070,20469,"ide_methods.bas");if(r)goto S_60113;} +do{ +return_point[next_return_point++]=192; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_VERIFYKEYWORD; +RETURN_192:; +if(!qbevent)break;evnt(26070,20470,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=193; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_WRITELINK; +RETURN_193:; +if(!qbevent)break;evnt(26070,20470,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_ME= 0 ; +if(!qbevent)break;evnt(26070,20470,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_LE= 0 ; +if(!qbevent)break;evnt(26070,20470,"ide_methods.bas");}while(r); +S_60118:; +qbs_set(sc_6727,qbs_ucase(_SUB_EXPORTCODEAS_STRING_ME)); +qbs_cleanup(qbs_tmp_base,0); +if(qbevent){evnt(26070,20471,"ide_methods.bas");if(r)goto S_60118;} +S_60119:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6727,qbs_new_txt_len("$LET",4))||qbs_equal(sc_6727,qbs_new_txt_len("$ELSE",5))||qbs_equal(sc_6727,qbs_new_txt_len("$END",4))))||new_error){ +if(qbevent){evnt(26070,20472,"ide_methods.bas");if(r)goto S_60119;} +do{ +*_SUB_EXPORTCODEAS_INTEGER_PC= -1 ; +if(!qbevent)break;evnt(26070,20472,"ide_methods.bas");}while(r); +sc_ec_452_end:; +goto sc_6727_end; +} +S_60121:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6727,qbs_new_txt_len("$IF",3))||qbs_equal(sc_6727,qbs_new_txt_len("$ELSEIF",7))))||new_error){ +if(qbevent){evnt(26070,20473,"ide_methods.bas");if(r)goto S_60121;} +do{ +*_SUB_EXPORTCODEAS_INTEGER_PC= -1 ; +if(!qbevent)break;evnt(26070,20473,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_BO= -1 ; +if(!qbevent)break;evnt(26070,20473,"ide_methods.bas");}while(r); +sc_ec_453_end:; +goto sc_6727_end; +} +sc_6727_end:; +} +S_60126:; +if ((*_SUB_EXPORTCODEAS_INTEGER_KW)||new_error){ +if(qbevent){evnt(26070,20476,"ide_methods.bas");if(r)goto S_60126;} +S_60127:; +if ((~(*_SUB_EXPORTCODEAS_INTEGER_IN))||new_error){ +if(qbevent){evnt(26070,20477,"ide_methods.bas");if(r)goto S_60127;} +do{ +return_point[next_return_point++]=194; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_VERIFYKEYWORD; +RETURN_194:; +if(!qbevent)break;evnt(26070,20477,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=195; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_WRITELINK; +RETURN_195:; +if(!qbevent)break;evnt(26070,20477,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20477,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_IN= 0 ; +if(!qbevent)break;evnt(26070,20477,"ide_methods.bas");}while(r); +} +do{ +*_SUB_EXPORTCODEAS_INTEGER_KW= 0 ; +if(!qbevent)break;evnt(26070,20478,"ide_methods.bas");}while(r); +S_60135:; +if ((*_SUB_EXPORTCODEAS_INTEGER_IN)||new_error){ +if(qbevent){evnt(26070,20478,"ide_methods.bas");if(r)goto S_60135;} +do{ +*_SUB_EXPORTCODEAS_INTEGER_SK= -1 ; +if(!qbevent)break;evnt(26070,20478,"ide_methods.bas");}while(r); +} +S_60138:; +qbs_set(sc_6728,qbs_ucase(_SUB_EXPORTCODEAS_STRING_KW)); +qbs_cleanup(qbs_tmp_base,0); +if(qbevent){evnt(26070,20479,"ide_methods.bas");if(r)goto S_60138;} +S_60139:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6728,qbs_new_txt_len("REM",3))))||new_error){ +if(qbevent){evnt(26070,20480,"ide_methods.bas");if(r)goto S_60139;} +S_60140:; +if ((~((*_SUB_EXPORTCODEAS_INTEGER_CO|*_SUB_EXPORTCODEAS_INTEGER_QU)))||new_error){ +if(qbevent){evnt(26070,20480,"ide_methods.bas");if(r)goto S_60140;} +do{ +*_SUB_EXPORTCODEAS_INTEGER_CO= -1 ; +if(!qbevent)break;evnt(26070,20480,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_WHAT,qbs_new_txt_len("co",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20480,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=196; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_OPENTEXT; +RETURN_196:; +if(!qbevent)break;evnt(26070,20480,"ide_methods.bas");}while(r); +} +sc_ec_454_end:; +goto sc_6728_end; +} +S_60145:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6728,qbs_new_txt_len("OPEN",4))))||new_error){ +if(qbevent){evnt(26070,20481,"ide_methods.bas");if(r)goto S_60145;} +do{ +*_SUB_EXPORTCODEAS_INTEGER_OP= -1 ; +if(!qbevent)break;evnt(26070,20481,"ide_methods.bas");}while(r); +sc_ec_455_end:; +goto sc_6728_end; +} +S_60147:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6728,qbs_new_txt_len("IF",2))||qbs_equal(sc_6728,qbs_new_txt_len("ELSEIF",6))||qbs_equal(sc_6728,qbs_new_txt_len("UNTIL",5))||qbs_equal(sc_6728,qbs_new_txt_len("WHILE",5))))||new_error){ +if(qbevent){evnt(26070,20482,"ide_methods.bas");if(r)goto S_60147;} +do{ +*_SUB_EXPORTCODEAS_INTEGER_FU= -1 ; +if(!qbevent)break;evnt(26070,20482,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_BO= -1 ; +if(!qbevent)break;evnt(26070,20482,"ide_methods.bas");}while(r); +sc_ec_456_end:; +goto sc_6728_end; +} +S_60150:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6728,qbs_new_txt_len("THEN",4))))||new_error){ +if(qbevent){evnt(26070,20483,"ide_methods.bas");if(r)goto S_60150;} +do{ +*_SUB_EXPORTCODEAS_INTEGER_FU= 0 ; +if(!qbevent)break;evnt(26070,20483,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_BO= 0 ; +if(!qbevent)break;evnt(26070,20483,"ide_methods.bas");}while(r); +sc_ec_457_end:; +goto sc_6728_end; +} +S_60154:; +fornext_value6730= 1 ; +fornext_finalvalue6730=*__LONG_IDN; +fornext_step6730= 1 ; +if (fornext_step6730<0) fornext_step_negative6730=1; else fornext_step_negative6730=0; +if (new_error) goto fornext_error6730; +goto fornext_entrylabel6730; +while(1){ +fornext_value6730=fornext_step6730+(*_SUB_EXPORTCODEAS_LONG_I); +fornext_entrylabel6730: +*_SUB_EXPORTCODEAS_LONG_I=fornext_value6730; +if (fornext_step_negative6730){ +if (fornext_value6730fornext_finalvalue6730) break; +} +fornext_error6730:; +if(qbevent){evnt(26070,20485,"ide_methods.bas");if(r)goto S_60154;} +S_60155:; +if (((-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_EXPORTCODEAS_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+544))== 2 ))&(-(*(int16*)(((char*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_EXPORTCODEAS_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869+809))> 0 )))||new_error){ +if(qbevent){evnt(26070,20486,"ide_methods.bas");if(r)goto S_60155;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_ID,qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_IDS[0])+((array_check((*_SUB_EXPORTCODEAS_LONG_I)-__ARRAY_UDT_IDS[4],__ARRAY_UDT_IDS[5]))*2869)),256,1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20487,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_UW,qbs_ucase(_SUB_EXPORTCODEAS_STRING_KW)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20487,"ide_methods.bas");}while(r); +S_60158:; +if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_EXPORTCODEAS_STRING_ID,_SUB_EXPORTCODEAS_STRING_UW))|(*_SUB_EXPORTCODEAS_INTEGER_NP&(qbs_equal(_SUB_EXPORTCODEAS_STRING_ID,(qbs_add(qbs_new_txt_len("_",1),_SUB_EXPORTCODEAS_STRING_UW)))))))||new_error){ +if(qbevent){evnt(26070,20488,"ide_methods.bas");if(r)goto S_60158;} +do{ +*_SUB_EXPORTCODEAS_INTEGER_FU= -2 ; +if(!qbevent)break;evnt(26070,20488,"ide_methods.bas");}while(r); +do{ +goto fornext_exit_6729; +if(!qbevent)break;evnt(26070,20488,"ide_methods.bas");}while(r); +} +} +fornext_continue_6729:; +} +fornext_exit_6729:; +sc_6728_end:; +} +S_60166:; +if ((*_SUB_EXPORTCODEAS_INTEGER_NU)||new_error){ +if(qbevent){evnt(26070,20493,"ide_methods.bas");if(r)goto S_60166;} +do{ +*_SUB_EXPORTCODEAS_INTEGER_POST= 0 ; +if(!qbevent)break;evnt(26070,20493,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_WHAT,qbs_new_txt_len("nu",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20493,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=197; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_CLOSETEXT; +RETURN_197:; +if(!qbevent)break;evnt(26070,20493,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_NU= 0 ; +if(!qbevent)break;evnt(26070,20493,"ide_methods.bas");}while(r); +} +do{ +*_SUB_EXPORTCODEAS_INTEGER_NT= -1 ; +if(!qbevent)break;evnt(26070,20494,"ide_methods.bas");}while(r); +sc_ec_458_end:; +goto sc_6726_end; +} +S_60173:; +if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 34 )))||new_error){ +if(qbevent){evnt(26070,20495,"ide_methods.bas");if(r)goto S_60173;} +S_60174:; +if ((~((*_SUB_EXPORTCODEAS_INTEGER_CO|*_SUB_EXPORTCODEAS_INTEGER_QU)))||new_error){ +if(qbevent){evnt(26070,20496,"ide_methods.bas");if(r)goto S_60174;} +do{ +*_SUB_EXPORTCODEAS_INTEGER_QU= -1 ; +if(!qbevent)break;evnt(26070,20497,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_WHAT,qbs_new_txt_len("qu",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20497,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=198; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_OPENTEXT; +RETURN_198:; +if(!qbevent)break;evnt(26070,20497,"ide_methods.bas");}while(r); +S_60178:; +}else{ +if (*_SUB_EXPORTCODEAS_INTEGER_QU){ +if(qbevent){evnt(26070,20498,"ide_methods.bas");if(r)goto S_60178;} +do{ +*_SUB_EXPORTCODEAS_INTEGER_POST= -1 ; +if(!qbevent)break;evnt(26070,20499,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_WHAT,qbs_new_txt_len("qu",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20499,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=199; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_CLOSETEXT; +RETURN_199:; +if(!qbevent)break;evnt(26070,20499,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_QU= 0 ; +if(!qbevent)break;evnt(26070,20499,"ide_methods.bas");}while(r); +} +} +S_60184:; +if ((~(*_SUB_EXPORTCODEAS_INTEGER_SK))||new_error){ +if(qbevent){evnt(26070,20501,"ide_methods.bas");if(r)goto S_60184;} +do{ +return_point[next_return_point++]=200; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_ESCAPECHAR; +RETURN_200:; +if(!qbevent)break;evnt(26070,20501,"ide_methods.bas");}while(r); +} +sc_ec_459_end:; +goto sc_6726_end; +} +S_60187:; +if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 36 )))||new_error){ +if(qbevent){evnt(26070,20502,"ide_methods.bas");if(r)goto S_60187;} +S_60188:; +if ((*_SUB_EXPORTCODEAS_INTEGER_NL|*_SUB_EXPORTCODEAS_INTEGER_LE)||new_error){ +if(qbevent){evnt(26070,20503,"ide_methods.bas");if(r)goto S_60188;} +do{ +*_SUB_EXPORTCODEAS_INTEGER_ML= -1 ; +if(!qbevent)break;evnt(26070,20503,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_ME= -1 ; +if(!qbevent)break;evnt(26070,20503,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_ME,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20503,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_NT= 0 ; +if(!qbevent)break;evnt(26070,20503,"ide_methods.bas");}while(r); +} +sc_ec_460_end:; +goto sc_6726_end; +} +S_60194:; +if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 38 )))||new_error){ +if(qbevent){evnt(26070,20504,"ide_methods.bas");if(r)goto S_60194;} +S_60195:; +if ((*_SUB_EXPORTCODEAS_INTEGER_NT&(~((*_SUB_EXPORTCODEAS_INTEGER_CO|*_SUB_EXPORTCODEAS_INTEGER_QU))))||new_error){ +if(qbevent){evnt(26070,20505,"ide_methods.bas");if(r)goto S_60195;} +S_60196:; +if ((-((*_SUB_EXPORTCODEAS_LONG_SPOS+ 1 )<=*_SUB_EXPORTCODEAS_LONG_SLEN))||new_error){ +if(qbevent){evnt(26070,20506,"ide_methods.bas");if(r)goto S_60196;} +S_60197:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,qbs_new_txt_len("BHO",3),func_chr(qbs_asc(_SUB_EXPORTCODEAS_STRING_STXT,*_SUB_EXPORTCODEAS_LONG_SPOS+ 1 )),0)> 0 )))||new_error){ +if(qbevent){evnt(26070,20507,"ide_methods.bas");if(r)goto S_60197;} +do{ +*_SUB_EXPORTCODEAS_INTEGER_NU= -1 ; +if(!qbevent)break;evnt(26070,20508,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_WHAT,qbs_new_txt_len("nu",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20508,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=201; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_OPENTEXT; +RETURN_201:; +if(!qbevent)break;evnt(26070,20508,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_NT= 0 ; +if(!qbevent)break;evnt(26070,20508,"ide_methods.bas");}while(r); +} +} +} +S_60205:; +if ((~((*_SUB_EXPORTCODEAS_INTEGER_ME|*_SUB_EXPORTCODEAS_INTEGER_KW)))||new_error){ +if(qbevent){evnt(26070,20512,"ide_methods.bas");if(r)goto S_60205;} +do{ +return_point[next_return_point++]=202; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_ESCAPECHAR; +RETURN_202:; +if(!qbevent)break;evnt(26070,20512,"ide_methods.bas");}while(r); +} +sc_ec_461_end:; +goto sc_6726_end; +} +S_60208:; +if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 39 )))||new_error){ +if(qbevent){evnt(26070,20513,"ide_methods.bas");if(r)goto S_60208;} +S_60209:; +if ((*_SUB_EXPORTCODEAS_INTEGER_NL)||new_error){ +if(qbevent){evnt(26070,20514,"ide_methods.bas");if(r)goto S_60209;} +S_60210:; +if ((-((*_SUB_EXPORTCODEAS_LONG_SPOS+ 1 )<=*_SUB_EXPORTCODEAS_LONG_SLEN))||new_error){ +if(qbevent){evnt(26070,20515,"ide_methods.bas");if(r)goto S_60210;} +S_60211:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_SUB_EXPORTCODEAS_STRING_STXT,*_SUB_EXPORTCODEAS_LONG_SPOS+ 1 )== 36 )))||new_error){ +if(qbevent){evnt(26070,20516,"ide_methods.bas");if(r)goto S_60211;} +do{ +*_SUB_EXPORTCODEAS_INTEGER_LE= -1 ; +if(!qbevent)break;evnt(26070,20516,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_NT= 0 ; +if(!qbevent)break;evnt(26070,20516,"ide_methods.bas");}while(r); +} +} +} +S_60217:; +if ((~((*_SUB_EXPORTCODEAS_INTEGER_CO|*_SUB_EXPORTCODEAS_INTEGER_QU)))||new_error){ +if(qbevent){evnt(26070,20519,"ide_methods.bas");if(r)goto S_60217;} +do{ +*_SUB_EXPORTCODEAS_INTEGER_CO= -1 ; +if(!qbevent)break;evnt(26070,20519,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_WHAT,qbs_new_txt_len("co",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20519,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=203; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_OPENTEXT; +RETURN_203:; +if(!qbevent)break;evnt(26070,20519,"ide_methods.bas");}while(r); +} +sc_ec_462_end:; +goto sc_6726_end; +} +S_60222:; +if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 40 ))||(*_SUB_EXPORTCODEAS_INTEGER_CURR==( 41 )))||new_error){ +if(qbevent){evnt(26070,20520,"ide_methods.bas");if(r)goto S_60222;} +S_60223:; +if ((*_SUB_EXPORTCODEAS_INTEGER_KW)||new_error){ +if(qbevent){evnt(26070,20521,"ide_methods.bas");if(r)goto S_60223;} +S_60224:; +if ((~(*_SUB_EXPORTCODEAS_INTEGER_IN))||new_error){ +if(qbevent){evnt(26070,20522,"ide_methods.bas");if(r)goto S_60224;} +do{ +return_point[next_return_point++]=204; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_VERIFYKEYWORD; +RETURN_204:; +if(!qbevent)break;evnt(26070,20522,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=205; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_WRITELINK; +RETURN_205:; +if(!qbevent)break;evnt(26070,20522,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20522,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_IN= 0 ; +if(!qbevent)break;evnt(26070,20522,"ide_methods.bas");}while(r); +} +do{ +*_SUB_EXPORTCODEAS_INTEGER_KW= 0 ; +if(!qbevent)break;evnt(26070,20523,"ide_methods.bas");}while(r); +} +S_60233:; +if ((*_SUB_EXPORTCODEAS_INTEGER_NU)||new_error){ +if(qbevent){evnt(26070,20525,"ide_methods.bas");if(r)goto S_60233;} +do{ +*_SUB_EXPORTCODEAS_INTEGER_POST= 0 ; +if(!qbevent)break;evnt(26070,20525,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_WHAT,qbs_new_txt_len("nu",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20525,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=206; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_CLOSETEXT; +RETURN_206:; +if(!qbevent)break;evnt(26070,20525,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_NU= 0 ; +if(!qbevent)break;evnt(26070,20525,"ide_methods.bas");}while(r); +} +S_60239:; +if ((~((*_SUB_EXPORTCODEAS_INTEGER_CO|*_SUB_EXPORTCODEAS_INTEGER_QU)))||new_error){ +if(qbevent){evnt(26070,20526,"ide_methods.bas");if(r)goto S_60239;} +S_60240:; +if ((-(*_SUB_EXPORTCODEAS_INTEGER_CURR== 40 ))||new_error){ +if(qbevent){evnt(26070,20527,"ide_methods.bas");if(r)goto S_60240;} +do{ +*_SUB_EXPORTCODEAS_INTEGER_NC=*_SUB_EXPORTCODEAS_INTEGER_NC+ 1 ; +if(!qbevent)break;evnt(26070,20527,"ide_methods.bas");}while(r); +}else{ +do{ +*_SUB_EXPORTCODEAS_INTEGER_NC=*_SUB_EXPORTCODEAS_INTEGER_NC- 1 ; +if(!qbevent)break;evnt(26070,20527,"ide_methods.bas");}while(r); +} +} +S_60246:; +if ((~((*_SUB_EXPORTCODEAS_INTEGER_CO|*_SUB_EXPORTCODEAS_INTEGER_QU|(-(*_SUB_EXPORTCODEAS_INTEGER_FU< -1 ))|*_SUB_EXPORTCODEAS_INTEGER_BO)))||new_error){ +if(qbevent){evnt(26070,20529,"ide_methods.bas");if(r)goto S_60246;} +S_60247:; +if ((-(*_SUB_EXPORTCODEAS_INTEGER_NC> 0 ))||new_error){ +if(qbevent){evnt(26070,20530,"ide_methods.bas");if(r)goto S_60247;} +do{ +*_SUB_EXPORTCODEAS_INTEGER_FU= -1 ; +if(!qbevent)break;evnt(26070,20530,"ide_methods.bas");}while(r); +}else{ +do{ +*_SUB_EXPORTCODEAS_INTEGER_FU= 0 ; +if(!qbevent)break;evnt(26070,20530,"ide_methods.bas");}while(r); +} +} +do{ +*_SUB_EXPORTCODEAS_INTEGER_NT= -1 ; +if(!qbevent)break;evnt(26070,20532,"ide_methods.bas");}while(r); +sc_ec_463_end:; +goto sc_6726_end; +} +S_60254:; +if ((((*_SUB_EXPORTCODEAS_INTEGER_CURR>=( 42 ))&&(*_SUB_EXPORTCODEAS_INTEGER_CURR<=( 44 )))||(*_SUB_EXPORTCODEAS_INTEGER_CURR==( 47 ))||((*_SUB_EXPORTCODEAS_INTEGER_CURR>=( 59 ))&&(*_SUB_EXPORTCODEAS_INTEGER_CURR<=( 62 )))||(*_SUB_EXPORTCODEAS_INTEGER_CURR==( 92 ))||(*_SUB_EXPORTCODEAS_INTEGER_CURR==( 94 )))||new_error){ +if(qbevent){evnt(26070,20533,"ide_methods.bas");if(r)goto S_60254;} +S_60255:; +if ((*_SUB_EXPORTCODEAS_INTEGER_KW)||new_error){ +if(qbevent){evnt(26070,20534,"ide_methods.bas");if(r)goto S_60255;} +S_60256:; +if ((~(*_SUB_EXPORTCODEAS_INTEGER_IN))||new_error){ +if(qbevent){evnt(26070,20535,"ide_methods.bas");if(r)goto S_60256;} +do{ +return_point[next_return_point++]=207; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_VERIFYKEYWORD; +RETURN_207:; +if(!qbevent)break;evnt(26070,20535,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=208; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_WRITELINK; +RETURN_208:; +if(!qbevent)break;evnt(26070,20535,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20535,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_IN= 0 ; +if(!qbevent)break;evnt(26070,20535,"ide_methods.bas");}while(r); +} +do{ +*_SUB_EXPORTCODEAS_INTEGER_KW= 0 ; +if(!qbevent)break;evnt(26070,20536,"ide_methods.bas");}while(r); +} +S_60265:; +if ((*_SUB_EXPORTCODEAS_INTEGER_NU)||new_error){ +if(qbevent){evnt(26070,20538,"ide_methods.bas");if(r)goto S_60265;} +do{ +*_SUB_EXPORTCODEAS_INTEGER_POST= 0 ; +if(!qbevent)break;evnt(26070,20538,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_WHAT,qbs_new_txt_len("nu",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20538,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=209; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_CLOSETEXT; +RETURN_209:; +if(!qbevent)break;evnt(26070,20538,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_NU= 0 ; +if(!qbevent)break;evnt(26070,20538,"ide_methods.bas");}while(r); +} +S_60271:; +if (((-(*_SUB_EXPORTCODEAS_INTEGER_CURR== 61 ))&(~((*_SUB_EXPORTCODEAS_INTEGER_CO|*_SUB_EXPORTCODEAS_INTEGER_QU|(-(*_SUB_EXPORTCODEAS_INTEGER_FU< -1 ))|*_SUB_EXPORTCODEAS_INTEGER_BO))))||new_error){ +if(qbevent){evnt(26070,20539,"ide_methods.bas");if(r)goto S_60271;} +do{ +*_SUB_EXPORTCODEAS_INTEGER_FU= -3 ; +if(!qbevent)break;evnt(26070,20539,"ide_methods.bas");}while(r); +} +S_60274:; +if (((-(*_SUB_EXPORTCODEAS_INTEGER_CURR== 60 ))|(-(*_SUB_EXPORTCODEAS_INTEGER_CURR== 62 ))|(-(*_SUB_EXPORTCODEAS_INTEGER_CURR== 92 )))||new_error){ +if(qbevent){evnt(26070,20540,"ide_methods.bas");if(r)goto S_60274;} +do{ +return_point[next_return_point++]=210; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_ESCAPECHAR; +RETURN_210:; +if(!qbevent)break;evnt(26070,20540,"ide_methods.bas");}while(r); +} +do{ +*_SUB_EXPORTCODEAS_INTEGER_NT= -1 ; +if(!qbevent)break;evnt(26070,20541,"ide_methods.bas");}while(r); +sc_ec_464_end:; +goto sc_6726_end; +} +S_60278:; +if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 45 )))||new_error){ +if(qbevent){evnt(26070,20542,"ide_methods.bas");if(r)goto S_60278;} +S_60279:; +if ((*_SUB_EXPORTCODEAS_INTEGER_KW)||new_error){ +if(qbevent){evnt(26070,20543,"ide_methods.bas");if(r)goto S_60279;} +S_60280:; +if ((~(*_SUB_EXPORTCODEAS_INTEGER_IN))||new_error){ +if(qbevent){evnt(26070,20544,"ide_methods.bas");if(r)goto S_60280;} +do{ +return_point[next_return_point++]=211; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_VERIFYKEYWORD; +RETURN_211:; +if(!qbevent)break;evnt(26070,20544,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=212; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_WRITELINK; +RETURN_212:; +if(!qbevent)break;evnt(26070,20544,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20544,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_IN= 0 ; +if(!qbevent)break;evnt(26070,20544,"ide_methods.bas");}while(r); +} +do{ +*_SUB_EXPORTCODEAS_INTEGER_KW= 0 ; +if(!qbevent)break;evnt(26070,20545,"ide_methods.bas");}while(r); +} +S_60289:; +if ((*_SUB_EXPORTCODEAS_INTEGER_NU)||new_error){ +if(qbevent){evnt(26070,20547,"ide_methods.bas");if(r)goto S_60289;} +do{ +*_SUB_EXPORTCODEAS_INTEGER_POST= 0 ; +if(!qbevent)break;evnt(26070,20547,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_WHAT,qbs_new_txt_len("nu",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20547,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=213; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_CLOSETEXT; +RETURN_213:; +if(!qbevent)break;evnt(26070,20547,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_NU= 0 ; +if(!qbevent)break;evnt(26070,20547,"ide_methods.bas");}while(r); +} +do{ +*_SUB_EXPORTCODEAS_INTEGER_NT= -1 ; +if(!qbevent)break;evnt(26070,20548,"ide_methods.bas");}while(r); +S_60296:; +if ((~((*_SUB_EXPORTCODEAS_INTEGER_CO|*_SUB_EXPORTCODEAS_INTEGER_QU)))||new_error){ +if(qbevent){evnt(26070,20549,"ide_methods.bas");if(r)goto S_60296;} +S_60297:; +sc_6731=qbs_asc(_SUB_EXPORTCODEAS_STRING_STXT,*_SUB_EXPORTCODEAS_LONG_SPOS- 1 ); +qbs_cleanup(qbs_tmp_base,0); +if(qbevent){evnt(26070,20550,"ide_methods.bas");if(r)goto S_60297;} +S_60298:; +if (((sc_6731==( 9 ))||(sc_6731==( 32 ))||(sc_6731==( 40 ))||((sc_6731>=( 42 ))&&(sc_6731<=( 45 )))||(sc_6731==( 47 ))||((sc_6731>=( 59 ))&&(sc_6731<=( 63 )))||(sc_6731==( 92 ))||(sc_6731==( 94 )))||new_error){ +if(qbevent){evnt(26070,20551,"ide_methods.bas");if(r)goto S_60298;} +S_60299:; +if ((-((*_SUB_EXPORTCODEAS_LONG_SPOS+ 1 )<=*_SUB_EXPORTCODEAS_LONG_SLEN))||new_error){ +if(qbevent){evnt(26070,20552,"ide_methods.bas");if(r)goto S_60299;} +S_60300:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,qbs_new_txt_len(".0123456789",11),func_chr(qbs_asc(_SUB_EXPORTCODEAS_STRING_STXT,*_SUB_EXPORTCODEAS_LONG_SPOS+ 1 )),0)> 0 )))||new_error){ +if(qbevent){evnt(26070,20553,"ide_methods.bas");if(r)goto S_60300;} +do{ +*_SUB_EXPORTCODEAS_INTEGER_NU= -1 ; +if(!qbevent)break;evnt(26070,20554,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_WHAT,qbs_new_txt_len("nu",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20554,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=214; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_OPENTEXT; +RETURN_214:; +if(!qbevent)break;evnt(26070,20554,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_NT= 0 ; +if(!qbevent)break;evnt(26070,20554,"ide_methods.bas");}while(r); +} +} +sc_ec_465_end:; +goto sc_6731_end; +} +sc_6731_end:; +} +sc_ec_466_end:; +goto sc_6726_end; +} +S_60309:; +if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 46 )))||new_error){ +if(qbevent){evnt(26070,20559,"ide_methods.bas");if(r)goto S_60309;} +S_60310:; +if ((*_SUB_EXPORTCODEAS_INTEGER_NT&(~((*_SUB_EXPORTCODEAS_INTEGER_CO|*_SUB_EXPORTCODEAS_INTEGER_QU))))||new_error){ +if(qbevent){evnt(26070,20560,"ide_methods.bas");if(r)goto S_60310;} +S_60311:; +if ((-((*_SUB_EXPORTCODEAS_LONG_SPOS+ 1 )<=*_SUB_EXPORTCODEAS_LONG_SLEN))||new_error){ +if(qbevent){evnt(26070,20561,"ide_methods.bas");if(r)goto S_60311;} +S_60312:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,qbs_new_txt_len("0123456789",10),func_chr(qbs_asc(_SUB_EXPORTCODEAS_STRING_STXT,*_SUB_EXPORTCODEAS_LONG_SPOS+ 1 )),0)> 0 )))||new_error){ +if(qbevent){evnt(26070,20562,"ide_methods.bas");if(r)goto S_60312;} +do{ +*_SUB_EXPORTCODEAS_INTEGER_NU= -1 ; +if(!qbevent)break;evnt(26070,20563,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_WHAT,qbs_new_txt_len("nu",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20563,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=215; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_OPENTEXT; +RETURN_215:; +if(!qbevent)break;evnt(26070,20563,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_NT= 0 ; +if(!qbevent)break;evnt(26070,20563,"ide_methods.bas");}while(r); +} +} +} +sc_ec_467_end:; +goto sc_6726_end; +} +S_60320:; +if ((((*_SUB_EXPORTCODEAS_INTEGER_CURR>=( 48 ))&&(*_SUB_EXPORTCODEAS_INTEGER_CURR<=( 57 ))))||new_error){ +if(qbevent){evnt(26070,20567,"ide_methods.bas");if(r)goto S_60320;} +S_60321:; +if ((*_SUB_EXPORTCODEAS_INTEGER_NT&(~((*_SUB_EXPORTCODEAS_INTEGER_CO|*_SUB_EXPORTCODEAS_INTEGER_QU))))||new_error){ +if(qbevent){evnt(26070,20568,"ide_methods.bas");if(r)goto S_60321;} +do{ +*_SUB_EXPORTCODEAS_INTEGER_NU= -1 ; +if(!qbevent)break;evnt(26070,20568,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_WHAT,qbs_new_txt_len("nu",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20568,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=216; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_OPENTEXT; +RETURN_216:; +if(!qbevent)break;evnt(26070,20568,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_NT= 0 ; +if(!qbevent)break;evnt(26070,20568,"ide_methods.bas");}while(r); +} +sc_ec_468_end:; +goto sc_6726_end; +} +S_60327:; +if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 58 )))||new_error){ +if(qbevent){evnt(26070,20569,"ide_methods.bas");if(r)goto S_60327;} +S_60328:; +if ((*_SUB_EXPORTCODEAS_INTEGER_ME)||new_error){ +if(qbevent){evnt(26070,20570,"ide_methods.bas");if(r)goto S_60328;} +do{ +return_point[next_return_point++]=217; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_VERIFYKEYWORD; +RETURN_217:; +if(!qbevent)break;evnt(26070,20570,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=218; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_WRITELINK; +RETURN_218:; +if(!qbevent)break;evnt(26070,20570,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_ME= 0 ; +if(!qbevent)break;evnt(26070,20570,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_LE= 0 ; +if(!qbevent)break;evnt(26070,20570,"ide_methods.bas");}while(r); +} +S_60334:; +if ((*_SUB_EXPORTCODEAS_INTEGER_KW)||new_error){ +if(qbevent){evnt(26070,20571,"ide_methods.bas");if(r)goto S_60334;} +S_60335:; +if ((~(*_SUB_EXPORTCODEAS_INTEGER_IN))||new_error){ +if(qbevent){evnt(26070,20572,"ide_methods.bas");if(r)goto S_60335;} +do{ +return_point[next_return_point++]=219; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_VERIFYKEYWORD; +RETURN_219:; +if(!qbevent)break;evnt(26070,20572,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=220; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_WRITELINK; +RETURN_220:; +if(!qbevent)break;evnt(26070,20572,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20572,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_IN= 0 ; +if(!qbevent)break;evnt(26070,20572,"ide_methods.bas");}while(r); +} +do{ +*_SUB_EXPORTCODEAS_INTEGER_KW= 0 ; +if(!qbevent)break;evnt(26070,20573,"ide_methods.bas");}while(r); +} +S_60344:; +if ((*_SUB_EXPORTCODEAS_INTEGER_NU)||new_error){ +if(qbevent){evnt(26070,20575,"ide_methods.bas");if(r)goto S_60344;} +do{ +*_SUB_EXPORTCODEAS_INTEGER_POST= 0 ; +if(!qbevent)break;evnt(26070,20575,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_WHAT,qbs_new_txt_len("nu",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20575,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=221; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_CLOSETEXT; +RETURN_221:; +if(!qbevent)break;evnt(26070,20575,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_NU= 0 ; +if(!qbevent)break;evnt(26070,20575,"ide_methods.bas");}while(r); +} +S_60350:; +if ((~((*_SUB_EXPORTCODEAS_INTEGER_CO|*_SUB_EXPORTCODEAS_INTEGER_QU)))||new_error){ +if(qbevent){evnt(26070,20576,"ide_methods.bas");if(r)goto S_60350;} +do{ +*_SUB_EXPORTCODEAS_INTEGER_OP= 0 ; +if(!qbevent)break;evnt(26070,20576,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_FU= 0 ; +if(!qbevent)break;evnt(26070,20576,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_BO= 0 ; +if(!qbevent)break;evnt(26070,20576,"ide_methods.bas");}while(r); +} +do{ +*_SUB_EXPORTCODEAS_INTEGER_NT= -1 ; +if(!qbevent)break;evnt(26070,20577,"ide_methods.bas");}while(r); +sc_ec_469_end:; +goto sc_6726_end; +} +S_60356:; +if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 123 ))||(*_SUB_EXPORTCODEAS_INTEGER_CURR==( 125 )))||new_error){ +if(qbevent){evnt(26070,20578,"ide_methods.bas");if(r)goto S_60356;} +do{ +return_point[next_return_point++]=222; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_ESCAPECHAR; +RETURN_222:; +if(!qbevent)break;evnt(26070,20579,"ide_methods.bas");}while(r); +sc_ec_470_end:; +goto sc_6726_end; +} +S_60358:; +if ((((*_SUB_EXPORTCODEAS_INTEGER_CURR>=( 65 ))&&(*_SUB_EXPORTCODEAS_INTEGER_CURR<=( 90 )))||((*_SUB_EXPORTCODEAS_INTEGER_CURR>=( 97 ))&&(*_SUB_EXPORTCODEAS_INTEGER_CURR<=( 122 ))))||new_error){ +if(qbevent){evnt(26070,20580,"ide_methods.bas");if(r)goto S_60358;} +S_60359:; +if ((*_SUB_EXPORTCODEAS_INTEGER_NT&(~((*_SUB_EXPORTCODEAS_INTEGER_CO|*_SUB_EXPORTCODEAS_INTEGER_QU))))||new_error){ +if(qbevent){evnt(26070,20581,"ide_methods.bas");if(r)goto S_60359;} +do{ +*_SUB_EXPORTCODEAS_INTEGER_KW= -1 ; +if(!qbevent)break;evnt(26070,20581,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20581,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_NT= 0 ; +if(!qbevent)break;evnt(26070,20581,"ide_methods.bas");}while(r); +} +S_60364:; +if ((qbs_cleanup(qbs_tmp_base,*_SUB_EXPORTCODEAS_INTEGER_NL&(qbs_equal(qbs_ucase(func_mid(_SUB_EXPORTCODEAS_STRING_STXT,*_SUB_EXPORTCODEAS_LONG_SPOS, 5 ,0|1)),qbs_new_txt_len("REM $",5)))))||new_error){ +if(qbevent){evnt(26070,20582,"ide_methods.bas");if(r)goto S_60364;} +do{ +*_SUB_EXPORTCODEAS_INTEGER_LE= -1 ; +if(!qbevent)break;evnt(26070,20582,"ide_methods.bas");}while(r); +} +sc_ec_471_end:; +goto sc_6726_end; +} +S_60367:; +if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 95 )))||new_error){ +if(qbevent){evnt(26070,20583,"ide_methods.bas");if(r)goto S_60367;} +S_60368:; +if ((*_SUB_EXPORTCODEAS_INTEGER_NT&(~((*_SUB_EXPORTCODEAS_INTEGER_CO|*_SUB_EXPORTCODEAS_INTEGER_QU))))||new_error){ +if(qbevent){evnt(26070,20584,"ide_methods.bas");if(r)goto S_60368;} +S_60369:; +if ((-((*_SUB_EXPORTCODEAS_LONG_SPOS+ 1 )<=*_SUB_EXPORTCODEAS_LONG_SLEN))||new_error){ +if(qbevent){evnt(26070,20585,"ide_methods.bas");if(r)goto S_60369;} +S_60370:; +if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(_SUB_EXPORTCODEAS_STRING_STXT,*_SUB_EXPORTCODEAS_LONG_SPOS+ 1 )!= 13 ))&(-(qbs_asc(_SUB_EXPORTCODEAS_STRING_STXT,*_SUB_EXPORTCODEAS_LONG_SPOS+ 1 )!= 10 ))))||new_error){ +if(qbevent){evnt(26070,20586,"ide_methods.bas");if(r)goto S_60370;} +do{ +*_SUB_EXPORTCODEAS_INTEGER_KW= -1 ; +if(!qbevent)break;evnt(26070,20587,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20587,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_NT= 0 ; +if(!qbevent)break;evnt(26070,20587,"ide_methods.bas");}while(r); +} +} +} +sc_ec_472_end:; +goto sc_6726_end; +} +S_60377:; +if (((*_SUB_EXPORTCODEAS_INTEGER_CURR>( 127 )))||new_error){ +if(qbevent){evnt(26070,20591,"ide_methods.bas");if(r)goto S_60377;} +do{ +return_point[next_return_point++]=223; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_ESCAPECHAR; +RETURN_223:; +if(!qbevent)break;evnt(26070,20592,"ide_methods.bas");}while(r); +sc_ec_473_end:; +goto sc_6726_end; +} +do{ +*_SUB_EXPORTCODEAS_INTEGER_NT= 0 ; +if(!qbevent)break;evnt(26070,20594,"ide_methods.bas");}while(r); +sc_6726_end:; +S_60382:; +if(qbevent){evnt(26070,20596,"ide_methods.bas");if(r)goto S_60382;} +S_60383:; +if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 33 ))||((*_SUB_EXPORTCODEAS_INTEGER_CURR>=( 35 ))&&(*_SUB_EXPORTCODEAS_INTEGER_CURR<=( 38 )))||(*_SUB_EXPORTCODEAS_INTEGER_CURR==( 46 ))||((*_SUB_EXPORTCODEAS_INTEGER_CURR>=( 48 ))&&(*_SUB_EXPORTCODEAS_INTEGER_CURR<=( 57 )))||((*_SUB_EXPORTCODEAS_INTEGER_CURR>=( 65 ))&&(*_SUB_EXPORTCODEAS_INTEGER_CURR<=( 90 )))||((*_SUB_EXPORTCODEAS_INTEGER_CURR>=( 95 ))&&(*_SUB_EXPORTCODEAS_INTEGER_CURR<=( 122 )))||(*_SUB_EXPORTCODEAS_INTEGER_CURR==( 126 )))||new_error){ +if(qbevent){evnt(26070,20597,"ide_methods.bas");if(r)goto S_60383;} +S_60384:; +if ((*_SUB_EXPORTCODEAS_INTEGER_ME)||new_error){ +if(qbevent){evnt(26070,20598,"ide_methods.bas");if(r)goto S_60384;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_ME,qbs_add(_SUB_EXPORTCODEAS_STRING_ME,func_chr(*_SUB_EXPORTCODEAS_INTEGER_CURR))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20598,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_SK= -1 ; +if(!qbevent)break;evnt(26070,20598,"ide_methods.bas");}while(r); +} +S_60388:; +if ((*_SUB_EXPORTCODEAS_INTEGER_KW)||new_error){ +if(qbevent){evnt(26070,20599,"ide_methods.bas");if(r)goto S_60388;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(_SUB_EXPORTCODEAS_STRING_KW,func_chr(*_SUB_EXPORTCODEAS_INTEGER_CURR))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20599,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_SK= -1 ; +if(!qbevent)break;evnt(26070,20599,"ide_methods.bas");}while(r); +} +sc_ec_474_end:; +goto sc_6732_end; +} +sc_6732_end:; +S_60393:; +if (((-(*_SUB_EXPORTCODEAS_INTEGER_CURR!= 9 ))&(-(*_SUB_EXPORTCODEAS_INTEGER_CURR!= 10 ))&(-(*_SUB_EXPORTCODEAS_INTEGER_CURR!= 32 )))||new_error){ +if(qbevent){evnt(26070,20601,"ide_methods.bas");if(r)goto S_60393;} +do{ +*_SUB_EXPORTCODEAS_INTEGER_NL= 0 ; +if(!qbevent)break;evnt(26070,20601,"ide_methods.bas");}while(r); +} +S_60396:; +if ((~(*_SUB_EXPORTCODEAS_INTEGER_SK))||new_error){ +if(qbevent){evnt(26070,20602,"ide_methods.bas");if(r)goto S_60396;} +do{ +tqbs=_SUB_EXPORTCODEAS_STRING_ETXT; if (!new_error){ +tmp_fileno=*_SUB_EXPORTCODEAS_LONG_EPOS; if (!new_error){ +tmp_long=*_SUB_EXPORTCODEAS_INTEGER_CURR; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26070,20602,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+ 1 ; +if(!qbevent)break;evnt(26070,20602,"ide_methods.bas");}while(r); +} +do{ +*_SUB_EXPORTCODEAS_INTEGER_SK= 0 ; +if(!qbevent)break;evnt(26070,20603,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_LONG_SPOS=*_SUB_EXPORTCODEAS_LONG_SPOS+ 1 ; +if(!qbevent)break;evnt(26070,20603,"ide_methods.bas");}while(r); +ww_continue_6723:; +} +ww_exit_6723:; +do{ +return_point[next_return_point++]=224; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_CLOSECODEBLOCK; +RETURN_224:; +if(!qbevent)break;evnt(26070,20605,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEERROR= 7 ; +if(!qbevent)break;evnt(26070,20607,"ide_methods.bas");}while(r); +do{ +sub_open(qbs_add(qbs_add(qbs_add(__STRING_IDEPATH,__STRING1_IDEPATHSEP),_SUB_EXPORTCODEAS_STRING_PNAM),_SUB_EXPORTCODEAS_STRING_EXT), 4 ,NULL,NULL, 151 ,NULL,0); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20608,"ide_methods.bas");}while(r); +do{ +*__LONG_IDEERROR= 1 ; +if(!qbevent)break;evnt(26070,20609,"ide_methods.bas");}while(r); +do{ +tab_spc_cr_size=2; +tab_fileno=tmp_fileno= 151 ; +if (new_error) goto skip6733; +sub_file_print(tmp_fileno,qbs_left(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS- 1 ), 0, 0, 0); +if (new_error) goto skip6733; +skip6733: +qbs_cleanup(qbs_tmp_base,0); +tab_spc_cr_size=1; +if(!qbevent)break;evnt(26070,20610,"ide_methods.bas");}while(r); +do{ +sub_close( 151 ,1); +if(!qbevent)break;evnt(26070,20611,"ide_methods.bas");}while(r); +do{ +sub_pcopy( 2 , 3 ); +if(!qbevent)break;evnt(26070,20612,"ide_methods.bas");}while(r); +do{ +goto exit_subfunc; +if(!qbevent)break;evnt(26070,20613,"ide_methods.bas");}while(r); +LABEL_OPENCODEBLOCK:; +if(qbevent){evnt(26070,20615,"ide_methods.bas");r=0;} +S_60411:; +qbs_set(sc_6734,qbs_lcase(_SUB_EXPORTCODEAS_STRING_DOCFORMAT)); +qbs_cleanup(qbs_tmp_base,0); +if(qbevent){evnt(26070,20616,"ide_methods.bas");if(r)goto S_60411;} +S_60412:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6734,qbs_new_txt_len("html",4))))||new_error){ +if(qbevent){evnt(26070,20617,"ide_methods.bas");if(r)goto S_60412;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("",8)),FUNC_ANSITEXTTOUTF8TEXT(_SUB_EXPORTCODEAS_STRING_PNAM)),qbs_new_txt_len("
",1)));
+qbs_cleanup(qbs_tmp_base,0);
+if(!qbevent)break;evnt(26070,20617,"ide_methods.bas");}while(r);
+sc_ec_475_end:;
+goto sc_6734_end;
+}
+S_60414:;
+if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6734,qbs_new_txt_len("rich",4))))||new_error){
+if(qbevent){evnt(26070,20618,"ide_methods.bas");if(r)goto S_60414;}
+do{
+qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_add(qbs_add(qbs_new_txt_len("{\\rtf1\\ansi\\deff0{\\fonttbl{\\f0 Courier New;}}{\\colortbl ",56),_SUB_EXPORTCODEAS_STRING_RTC),qbs_new_txt_len("}\\pard\\f0\\fs32\\cbpat6\\paperh23811\\paperw16838\\margl142\\margr142\\margt142\\margb142",81)));
+qbs_cleanup(qbs_tmp_base,0);
+if(!qbevent)break;evnt(26070,20618,"ide_methods.bas");}while(r);
+sc_ec_476_end:;
+goto sc_6734_end;
+}
+S_60416:;
+if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6734,qbs_new_txt_len("wiki",4))))||new_error){
+if(qbevent){evnt(26070,20619,"ide_methods.bas");if(r)goto S_60416;}
+do{
+qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("{{CodeStart}}",13));
+qbs_cleanup(qbs_tmp_base,0);
+if(!qbevent)break;evnt(26070,20619,"ide_methods.bas");}while(r);
+sc_ec_477_end:;
+goto sc_6734_end;
+}
+do{
+#include "ret297.txt"
+if(!qbevent)break;evnt(26070,20620,"ide_methods.bas");}while(r);
+sc_6734_end:;
+do{
+sub_mid(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS,_SUB_EXPORTCODEAS_STRING_TMP->len,_SUB_EXPORTCODEAS_STRING_TMP,1);
+if(!qbevent)break;evnt(26070,20622,"ide_methods.bas");}while(r);
+do{
+*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+_SUB_EXPORTCODEAS_STRING_TMP->len;
+qbs_cleanup(qbs_tmp_base,0);
+if(!qbevent)break;evnt(26070,20622,"ide_methods.bas");}while(r);
+do{
+sub_mid(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS,_SUB_EXPORTCODEAS_STRING_CEOL->len,_SUB_EXPORTCODEAS_STRING_CEOL,1);
+if(!qbevent)break;evnt(26070,20623,"ide_methods.bas");}while(r);
+do{
+*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+_SUB_EXPORTCODEAS_STRING_CEOL->len;
+qbs_cleanup(qbs_tmp_base,0);
+if(!qbevent)break;evnt(26070,20623,"ide_methods.bas");}while(r);
+do{
+#include "ret297.txt"
+if(!qbevent)break;evnt(26070,20624,"ide_methods.bas");}while(r);
+LABEL_CLOSECODEBLOCK:;
+if(qbevent){evnt(26070,20626,"ide_methods.bas");r=0;}
+S_60426:;
+qbs_set(sc_6739,qbs_lcase(_SUB_EXPORTCODEAS_STRING_DOCFORMAT));
+qbs_cleanup(qbs_tmp_base,0);
+if(qbevent){evnt(26070,20627,"ide_methods.bas");if(r)goto S_60426;}
+S_60427:;
+if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6739,qbs_new_txt_len("html",4))))||new_error){
+if(qbevent){evnt(26070,20628,"ide_methods.bas");if(r)goto S_60427;}
+do{
+qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("
",20)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20628,"ide_methods.bas");}while(r); +sc_ec_478_end:; +goto sc_6739_end; +} +S_60429:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6739,qbs_new_txt_len("rich",4))))||new_error){ +if(qbevent){evnt(26070,20629,"ide_methods.bas");if(r)goto S_60429;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("}",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20629,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS- 4 ; +if(!qbevent)break;evnt(26070,20629,"ide_methods.bas");}while(r); +sc_ec_479_end:; +goto sc_6739_end; +} +S_60432:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6739,qbs_new_txt_len("wiki",4))))||new_error){ +if(qbevent){evnt(26070,20630,"ide_methods.bas");if(r)goto S_60432;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("{{CodeEnd}}",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20630,"ide_methods.bas");}while(r); +sc_ec_480_end:; +goto sc_6739_end; +} +do{ +#include "ret297.txt" +if(!qbevent)break;evnt(26070,20631,"ide_methods.bas");}while(r); +sc_6739_end:; +do{ +*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS-_SUB_EXPORTCODEAS_STRING_CEOL->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20633,"ide_methods.bas");}while(r); +do{ +sub_mid(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS,_SUB_EXPORTCODEAS_STRING_TMP->len,_SUB_EXPORTCODEAS_STRING_TMP,1); +if(!qbevent)break;evnt(26070,20634,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+_SUB_EXPORTCODEAS_STRING_TMP->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20634,"ide_methods.bas");}while(r); +do{ +sub_mid(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS,_SUB_EXPORTCODEAS_STRING_CEOL->len,_SUB_EXPORTCODEAS_STRING_CEOL,1); +if(!qbevent)break;evnt(26070,20635,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+_SUB_EXPORTCODEAS_STRING_CEOL->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20635,"ide_methods.bas");}while(r); +do{ +#include "ret297.txt" +if(!qbevent)break;evnt(26070,20636,"ide_methods.bas");}while(r); +LABEL_OPENTEXT:; +if(qbevent){evnt(26070,20638,"ide_methods.bas");r=0;} +S_60443:; +if ((qbs_cleanup(qbs_tmp_base,*_SUB_EXPORTCODEAS_INTEGER_ML&(~(*_SUB_EXPORTCODEAS_INTEGER_PC))&(qbs_notequal(qbs_lcase(_SUB_EXPORTCODEAS_STRING_WHAT),qbs_new_txt_len("co",2)))))||new_error){ +if(qbevent){evnt(26070,20639,"ide_methods.bas");if(r)goto S_60443;} +do{ +#include "ret297.txt" +if(!qbevent)break;evnt(26070,20639,"ide_methods.bas");}while(r); +} +S_60446:; +qbs_set(sc_6745,qbs_lcase(_SUB_EXPORTCODEAS_STRING_DOCFORMAT)); +qbs_cleanup(qbs_tmp_base,0); +if(qbevent){evnt(26070,20640,"ide_methods.bas");if(r)goto S_60446;} +S_60447:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6745,qbs_new_txt_len("html",4))))||new_error){ +if(qbevent){evnt(26070,20641,"ide_methods.bas");if(r)goto S_60447;} +S_60448:; +qbs_set(sc_6746,qbs_lcase(_SUB_EXPORTCODEAS_STRING_WHAT)); +qbs_cleanup(qbs_tmp_base,0); +if(qbevent){evnt(26070,20642,"ide_methods.bas");if(r)goto S_60448;} +S_60449:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6746,qbs_new_txt_len("co",2))))||new_error){ +if(qbevent){evnt(26070,20643,"ide_methods.bas");if(r)goto S_60449;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20643,"ide_methods.bas");}while(r); +sc_ec_481_end:; +goto sc_6746_end; +} +S_60451:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6746,qbs_new_txt_len("nu",2))))||new_error){ +if(qbevent){evnt(26070,20644,"ide_methods.bas");if(r)goto S_60451;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20644,"ide_methods.bas");}while(r); +sc_ec_482_end:; +goto sc_6746_end; +} +S_60453:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6746,qbs_new_txt_len("qu",2))))||new_error){ +if(qbevent){evnt(26070,20645,"ide_methods.bas");if(r)goto S_60453;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20645,"ide_methods.bas");}while(r); +sc_ec_483_end:; +goto sc_6746_end; +} +do{ +#include "ret297.txt" +if(!qbevent)break;evnt(26070,20646,"ide_methods.bas");}while(r); +sc_6746_end:; +sc_ec_484_end:; +goto sc_6745_end; +} +S_60458:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6745,qbs_new_txt_len("rich",4))))||new_error){ +if(qbevent){evnt(26070,20648,"ide_methods.bas");if(r)goto S_60458;} +S_60459:; +qbs_set(sc_6747,qbs_lcase(_SUB_EXPORTCODEAS_STRING_WHAT)); +qbs_cleanup(qbs_tmp_base,0); +if(qbevent){evnt(26070,20649,"ide_methods.bas");if(r)goto S_60459;} +S_60460:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6747,qbs_new_txt_len("co",2))))||new_error){ +if(qbevent){evnt(26070,20650,"ide_methods.bas");if(r)goto S_60460;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("\\cf1 ",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20650,"ide_methods.bas");}while(r); +sc_ec_485_end:; +goto sc_6747_end; +} +S_60462:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6747,qbs_new_txt_len("nu",2))))||new_error){ +if(qbevent){evnt(26070,20651,"ide_methods.bas");if(r)goto S_60462;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("\\cf4 ",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20651,"ide_methods.bas");}while(r); +sc_ec_486_end:; +goto sc_6747_end; +} +S_60464:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6747,qbs_new_txt_len("qu",2))))||new_error){ +if(qbevent){evnt(26070,20652,"ide_methods.bas");if(r)goto S_60464;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("\\cf5 ",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20652,"ide_methods.bas");}while(r); +sc_ec_487_end:; +goto sc_6747_end; +} +do{ +#include "ret297.txt" +if(!qbevent)break;evnt(26070,20653,"ide_methods.bas");}while(r); +sc_6747_end:; +sc_ec_488_end:; +goto sc_6745_end; +} +S_60469:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6745,qbs_new_txt_len("wiki",4))))||new_error){ +if(qbevent){evnt(26070,20655,"ide_methods.bas");if(r)goto S_60469;} +S_60470:; +qbs_set(sc_6748,qbs_lcase(_SUB_EXPORTCODEAS_STRING_WHAT)); +qbs_cleanup(qbs_tmp_base,0); +if(qbevent){evnt(26070,20656,"ide_methods.bas");if(r)goto S_60470;} +S_60471:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6748,qbs_new_txt_len("co",2))||qbs_equal(sc_6748,qbs_new_txt_len("qu",2))))||new_error){ +if(qbevent){evnt(26070,20657,"ide_methods.bas");if(r)goto S_60471;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("{{Text|",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20657,"ide_methods.bas");}while(r); +sc_ec_489_end:; +goto sc_6748_end; +} +S_60473:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6748,qbs_new_txt_len("nu",2))))||new_error){ +if(qbevent){evnt(26070,20658,"ide_methods.bas");if(r)goto S_60473;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("{{Text|",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20658,"ide_methods.bas");}while(r); +sc_ec_490_end:; +goto sc_6748_end; +} +do{ +#include "ret297.txt" +if(!qbevent)break;evnt(26070,20659,"ide_methods.bas");}while(r); +sc_6748_end:; +sc_ec_491_end:; +goto sc_6745_end; +} +do{ +#include "ret297.txt" +if(!qbevent)break;evnt(26070,20661,"ide_methods.bas");}while(r); +sc_6745_end:; +do{ +sub_mid(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS,_SUB_EXPORTCODEAS_STRING_TMP->len,_SUB_EXPORTCODEAS_STRING_TMP,1); +if(!qbevent)break;evnt(26070,20663,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+_SUB_EXPORTCODEAS_STRING_TMP->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20663,"ide_methods.bas");}while(r); +do{ +#include "ret297.txt" +if(!qbevent)break;evnt(26070,20664,"ide_methods.bas");}while(r); +LABEL_CLOSETEXT:; +if(qbevent){evnt(26070,20666,"ide_methods.bas");r=0;} +S_60484:; +if ((qbs_cleanup(qbs_tmp_base,*_SUB_EXPORTCODEAS_INTEGER_ML&(~(*_SUB_EXPORTCODEAS_INTEGER_PC))&(qbs_notequal(qbs_lcase(_SUB_EXPORTCODEAS_STRING_WHAT),qbs_new_txt_len("co",2)))))||new_error){ +if(qbevent){evnt(26070,20667,"ide_methods.bas");if(r)goto S_60484;} +do{ +#include "ret297.txt" +if(!qbevent)break;evnt(26070,20667,"ide_methods.bas");}while(r); +} +S_60487:; +qbs_set(sc_6751,qbs_lcase(_SUB_EXPORTCODEAS_STRING_DOCFORMAT)); +qbs_cleanup(qbs_tmp_base,0); +if(qbevent){evnt(26070,20668,"ide_methods.bas");if(r)goto S_60487;} +S_60488:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6751,qbs_new_txt_len("html",4))))||new_error){ +if(qbevent){evnt(26070,20669,"ide_methods.bas");if(r)goto S_60488;} +S_60489:; +qbs_set(sc_6752,qbs_lcase(_SUB_EXPORTCODEAS_STRING_WHAT)); +qbs_cleanup(qbs_tmp_base,0); +if(qbevent){evnt(26070,20670,"ide_methods.bas");if(r)goto S_60489;} +S_60490:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6752,qbs_new_txt_len("co",2))||qbs_equal(sc_6752,qbs_new_txt_len("nu",2))||qbs_equal(sc_6752,qbs_new_txt_len("qu",2))))||new_error){ +if(qbevent){evnt(26070,20671,"ide_methods.bas");if(r)goto S_60490;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20671,"ide_methods.bas");}while(r); +sc_ec_492_end:; +goto sc_6752_end; +} +do{ +#include "ret297.txt" +if(!qbevent)break;evnt(26070,20672,"ide_methods.bas");}while(r); +sc_6752_end:; +sc_ec_493_end:; +goto sc_6751_end; +} +S_60495:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6751,qbs_new_txt_len("rich",4))))||new_error){ +if(qbevent){evnt(26070,20674,"ide_methods.bas");if(r)goto S_60495;} +S_60496:; +qbs_set(sc_6753,qbs_lcase(_SUB_EXPORTCODEAS_STRING_WHAT)); +qbs_cleanup(qbs_tmp_base,0); +if(qbevent){evnt(26070,20675,"ide_methods.bas");if(r)goto S_60496;} +S_60497:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6753,qbs_new_txt_len("co",2))||qbs_equal(sc_6753,qbs_new_txt_len("nu",2))||qbs_equal(sc_6753,qbs_new_txt_len("qu",2))))||new_error){ +if(qbevent){evnt(26070,20676,"ide_methods.bas");if(r)goto S_60497;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("\\cf0 ",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20676,"ide_methods.bas");}while(r); +sc_ec_494_end:; +goto sc_6753_end; +} +do{ +#include "ret297.txt" +if(!qbevent)break;evnt(26070,20677,"ide_methods.bas");}while(r); +sc_6753_end:; +sc_ec_495_end:; +goto sc_6751_end; +} +S_60502:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6751,qbs_new_txt_len("wiki",4))))||new_error){ +if(qbevent){evnt(26070,20679,"ide_methods.bas");if(r)goto S_60502;} +S_60503:; +qbs_set(sc_6754,qbs_lcase(_SUB_EXPORTCODEAS_STRING_WHAT)); +qbs_cleanup(qbs_tmp_base,0); +if(qbevent){evnt(26070,20680,"ide_methods.bas");if(r)goto S_60503;} +S_60504:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6754,qbs_new_txt_len("co",2))))||new_error){ +if(qbevent){evnt(26070,20681,"ide_methods.bas");if(r)goto S_60504;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("|#919191}}",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20681,"ide_methods.bas");}while(r); +sc_ec_496_end:; +goto sc_6754_end; +} +S_60506:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6754,qbs_new_txt_len("nu",2))))||new_error){ +if(qbevent){evnt(26070,20682,"ide_methods.bas");if(r)goto S_60506;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("|#F580B1}}",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20682,"ide_methods.bas");}while(r); +sc_ec_497_end:; +goto sc_6754_end; +} +S_60508:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6754,qbs_new_txt_len("qu",2))))||new_error){ +if(qbevent){evnt(26070,20683,"ide_methods.bas");if(r)goto S_60508;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("|#FFB100}}",19)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20683,"ide_methods.bas");}while(r); +sc_ec_498_end:; +goto sc_6754_end; +} +do{ +#include "ret297.txt" +if(!qbevent)break;evnt(26070,20684,"ide_methods.bas");}while(r); +sc_6754_end:; +sc_ec_499_end:; +goto sc_6751_end; +} +do{ +#include "ret297.txt" +if(!qbevent)break;evnt(26070,20686,"ide_methods.bas");}while(r); +sc_6751_end:; +S_60516:; +if ((*_SUB_EXPORTCODEAS_INTEGER_POST)||new_error){ +if(qbevent){evnt(26070,20688,"ide_methods.bas");if(r)goto S_60516;} +do{ +*_SUB_EXPORTCODEAS_INTEGER_SK= 0 ; +if(!qbevent)break;evnt(26070,20689,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=225; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_ESCAPECHAR; +RETURN_225:; +if(!qbevent)break;evnt(26070,20689,"ide_methods.bas");}while(r); +S_60519:; +if ((~(*_SUB_EXPORTCODEAS_INTEGER_SK))||new_error){ +if(qbevent){evnt(26070,20690,"ide_methods.bas");if(r)goto S_60519;} +do{ +tqbs=_SUB_EXPORTCODEAS_STRING_ETXT; if (!new_error){ +tmp_fileno=*_SUB_EXPORTCODEAS_LONG_EPOS; if (!new_error){ +tmp_long=*_SUB_EXPORTCODEAS_INTEGER_CURR; if (!new_error){ +if ((tmp_fileno>0)&&(tmp_fileno<=tqbs->len)){tqbs->chr[tmp_fileno-1]=tmp_long;}else{error(5);} +}}} +if(!qbevent)break;evnt(26070,20690,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+ 1 ; +if(!qbevent)break;evnt(26070,20690,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_SK= -1 ; +if(!qbevent)break;evnt(26070,20690,"ide_methods.bas");}while(r); +} +} +do{ +sub_mid(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS,_SUB_EXPORTCODEAS_STRING_TMP->len,_SUB_EXPORTCODEAS_STRING_TMP,1); +if(!qbevent)break;evnt(26070,20692,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+_SUB_EXPORTCODEAS_STRING_TMP->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20692,"ide_methods.bas");}while(r); +do{ +#include "ret297.txt" +if(!qbevent)break;evnt(26070,20693,"ide_methods.bas");}while(r); +LABEL_VERIFYKEYWORD:; +if(qbevent){evnt(26070,20695,"ide_methods.bas");r=0;} +S_60528:; +if ((*_SUB_EXPORTCODEAS_INTEGER_ME)||new_error){ +if(qbevent){evnt(26070,20696,"ide_methods.bas");if(r)goto S_60528;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_VERI,_SUB_EXPORTCODEAS_STRING_ME); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20696,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_VERI,_SUB_EXPORTCODEAS_STRING_KW); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20696,"ide_methods.bas");}while(r); +} +S_60533:; +if ((qbs_cleanup(qbs_tmp_base,-(qbs_asc(_SUB_EXPORTCODEAS_STRING_VERI, 1 )!= 95 )))||new_error){ +if(qbevent){evnt(26070,20697,"ide_methods.bas");if(r)goto S_60533;} +do{ +*_SUB_EXPORTCODEAS_INTEGER_FLP= 1 ; +if(!qbevent)break;evnt(26070,20697,"ide_methods.bas");}while(r); +}else{ +do{ +*_SUB_EXPORTCODEAS_INTEGER_FLP= 2 ; +if(!qbevent)break;evnt(26070,20697,"ide_methods.bas");}while(r); +} +S_60538:; +if ((qbs_cleanup(qbs_tmp_base,(((-(qbs_asc(_SUB_EXPORTCODEAS_STRING_VERI,*_SUB_EXPORTCODEAS_INTEGER_FLP)< 91 ))|(qbs_equal(func_mid(_SUB_EXPORTCODEAS_STRING_VERI,*_SUB_EXPORTCODEAS_INTEGER_FLP, 2 ,0|1),qbs_new_txt_len("gl",2)))))&(-(func_instr(NULL,__STRING_LISTOFKEYWORDS,qbs_add(qbs_add(qbs_new_txt_len("@",1),qbs_ucase(_SUB_EXPORTCODEAS_STRING_VERI)),qbs_new_txt_len("@",1)),0)> 0 ))))||new_error){ +if(qbevent){evnt(26070,20698,"ide_methods.bas");if(r)goto S_60538;} +S_60539:; +if ((*_SUB_EXPORTCODEAS_INTEGER_ME&*_SUB_EXPORTCODEAS_INTEGER_LE)||new_error){ +if(qbevent){evnt(26070,20699,"ide_methods.bas");if(r)goto S_60539;} +S_60540:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,qbs_new_txt_len("$DYNAMIC$INCLUDE$STATIC",23),qbs_ucase(_SUB_EXPORTCODEAS_STRING_VERI),0)== 0 )))||new_error){ +if(qbevent){evnt(26070,20700,"ide_methods.bas");if(r)goto S_60540;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_ME,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20700,"ide_methods.bas");}while(r); +} +S_60543:; +}else{ +if (*_SUB_EXPORTCODEAS_INTEGER_ME&(~(*_SUB_EXPORTCODEAS_INTEGER_LE))){ +if(qbevent){evnt(26070,20701,"ide_methods.bas");if(r)goto S_60543;} +S_60544:; +if ((qbs_cleanup(qbs_tmp_base,-(func_instr(NULL,qbs_new_txt_len("$DYNAMIC$INCLUDE$STATIC",23),qbs_ucase(_SUB_EXPORTCODEAS_STRING_VERI),0)> 0 )))||new_error){ +if(qbevent){evnt(26070,20702,"ide_methods.bas");if(r)goto S_60544;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_ME,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20702,"ide_methods.bas");}while(r); +} +} +} +S_60548:; +if ((*_SUB_EXPORTCODEAS_INTEGER_PC)||new_error){ +if(qbevent){evnt(26070,20704,"ide_methods.bas");if(r)goto S_60548;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_ME,_SUB_EXPORTCODEAS_STRING_VERI); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20704,"ide_methods.bas");}while(r); +} +S_60551:; +}else{ +if (*_SUB_EXPORTCODEAS_INTEGER_NP&*_SUB_EXPORTCODEAS_INTEGER_KW){ +if(qbevent){evnt(26070,20705,"ide_methods.bas");if(r)goto S_60551;} +S_60552:; +if ((qbs_cleanup(qbs_tmp_base,(-(qbs_asc(_SUB_EXPORTCODEAS_STRING_VERI, 1 )> 90 ))|(-(func_instr(NULL,__STRING_LISTOFKEYWORDS,qbs_add(qbs_add(qbs_new_txt_len("@_",2),qbs_ucase(_SUB_EXPORTCODEAS_STRING_VERI)),qbs_new_txt_len("@",1)),0)== 0 ))))||new_error){ +if(qbevent){evnt(26070,20706,"ide_methods.bas");if(r)goto S_60552;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20706,"ide_methods.bas");}while(r); +} +S_60555:; +}else{ +if (qbs_cleanup(qbs_tmp_base,(~(*_SUB_EXPORTCODEAS_INTEGER_ML))&(-(func_instr(NULL,__STRING_LISTOFCUSTOMKEYWORDS,qbs_add(qbs_add(qbs_new_txt_len("@",1),qbs_ucase(FUNC_REMOVESYMBOL2(_SUB_EXPORTCODEAS_STRING_VERI))),qbs_new_txt_len("@",1)),0)> 0 )))){ +if(qbevent){evnt(26070,20707,"ide_methods.bas");if(r)goto S_60555;} +do{ +*_SUB_EXPORTCODEAS_INTEGER_CU= -1 ; +if(!qbevent)break;evnt(26070,20708,"ide_methods.bas");}while(r); +S_60557:; +}else{ +if (qbs_cleanup(qbs_tmp_base,*_SUB_EXPORTCODEAS_INTEGER_PC&(-(func_instr(NULL,__STRING_USERDEFINELIST,qbs_add(qbs_add(qbs_new_txt_len("@",1),qbs_ucase(_SUB_EXPORTCODEAS_STRING_VERI)),qbs_new_txt_len("@",1)),0)> 0 )))){ +if(qbevent){evnt(26070,20709,"ide_methods.bas");if(r)goto S_60557;} +do{ +*_SUB_EXPORTCODEAS_INTEGER_CU= -1 ; +if(!qbevent)break;evnt(26070,20710,"ide_methods.bas");}while(r); +}else{ +S_60560:; +if ((*_SUB_EXPORTCODEAS_INTEGER_ME)||new_error){ +if(qbevent){evnt(26070,20712,"ide_methods.bas");if(r)goto S_60560;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_ME,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20712,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20712,"ide_methods.bas");}while(r); +} +} +} +} +} +do{ +#include "ret297.txt" +if(!qbevent)break;evnt(26070,20714,"ide_methods.bas");}while(r); +LABEL_FINDWIKIPAGE:; +if(qbevent){evnt(26070,20716,"ide_methods.bas");r=0;} +S_60567:; +if ((*_SUB_EXPORTCODEAS_INTEGER_ME)||new_error){ +if(qbevent){evnt(26070,20717,"ide_methods.bas");if(r)goto S_60567;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_ucase(_SUB_EXPORTCODEAS_STRING_ME)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20717,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_ucase(_SUB_EXPORTCODEAS_STRING_KW)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20717,"ide_methods.bas");}while(r); +} +S_60572:; +if ((*_SUB_EXPORTCODEAS_INTEGER_OP)||new_error){ +if(qbevent){evnt(26070,20718,"ide_methods.bas");if(r)goto S_60572;} +S_60573:; +if(qbevent){evnt(26070,20719,"ide_methods.bas");if(r)goto S_60573;} +S_60574:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("ACCESS",6))||qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("LOCK",4))||qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("SHARED",6))||qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("READ",4))||qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("WRITE",5))))||new_error){ +if(qbevent){evnt(26070,20720,"ide_methods.bas");if(r)goto S_60574;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("OPEN#File_ACCESS_and_LOCK_Permissions",37)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20720,"ide_methods.bas");}while(r); +sc_ec_500_end:; +goto sc_6757_end; +} +S_60576:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("FOR",3))||qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("OUTPUT",6))||qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("APPEND",6))||qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("INPUT",5))||qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("BINARY",6))||qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("RANDOM",6))))||new_error){ +if(qbevent){evnt(26070,20721,"ide_methods.bas");if(r)goto S_60576;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("OPEN#File_Access_Modes",22)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20721,"ide_methods.bas");}while(r); +sc_ec_501_end:; +goto sc_6757_end; +} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("OPEN",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20722,"ide_methods.bas");}while(r); +sc_6757_end:; +S_60581:; +}else{ +if (qbs_cleanup(qbs_tmp_base,*_SUB_EXPORTCODEAS_INTEGER_FU&((-(func_instr(NULL,_SUB_EXPORTCODEAS_STRING_FU,qbs_add(qbs_add(qbs_new_txt_len("@",1),_SUB_EXPORTCODEAS_STRING_PAGE),qbs_new_txt_len("@",1)),0)> 0 ))|(*_SUB_EXPORTCODEAS_INTEGER_NP&(-(func_instr(NULL,_SUB_EXPORTCODEAS_STRING_FU,qbs_add(qbs_add(qbs_new_txt_len("@_",2),_SUB_EXPORTCODEAS_STRING_PAGE),qbs_new_txt_len("@",1)),0)> 0 )))))){ +if(qbevent){evnt(26070,20724,"ide_methods.bas");if(r)goto S_60581;} +S_60582:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("SHELL",5))))||new_error){ +if(qbevent){evnt(26070,20725,"ide_methods.bas");if(r)goto S_60582;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_add(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len(" (QB64 function)",16))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20725,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_add(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len(" (function)",11))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20725,"ide_methods.bas");}while(r); +} +S_60587:; +}else{ +if (qbs_cleanup(qbs_tmp_base,*_SUB_EXPORTCODEAS_INTEGER_BO&(-(func_instr(NULL,_SUB_EXPORTCODEAS_STRING_BO,qbs_add(qbs_add(qbs_new_txt_len("@",1),_SUB_EXPORTCODEAS_STRING_PAGE),qbs_new_txt_len("@",1)),0)> 0 )))){ +if(qbevent){evnt(26070,20726,"ide_methods.bas");if(r)goto S_60587;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_add(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len(" (boolean)",10))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20727,"ide_methods.bas");}while(r); +S_60589:; +}else{ +if (qbs_cleanup(qbs_tmp_base,((-(func_instr(NULL,_SUB_EXPORTCODEAS_STRING_MA,qbs_add(qbs_add(qbs_new_txt_len("@",1),_SUB_EXPORTCODEAS_STRING_PAGE),qbs_new_txt_len("@",1)),0)> 0 ))|(*_SUB_EXPORTCODEAS_INTEGER_NP&(-(func_instr(NULL,_SUB_EXPORTCODEAS_STRING_MA,qbs_add(qbs_add(qbs_new_txt_len("@_",2),_SUB_EXPORTCODEAS_STRING_PAGE),qbs_new_txt_len("@",1)),0)> 0 )))))){ +if(qbevent){evnt(26070,20728,"ide_methods.bas");if(r)goto S_60589;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("Mathematical Operations#Derived_Mathematical_Functions",54)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20729,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_LA,qbs_ltrim(FUNC_STRREPLACE(func_mid(_SUB_EXPORTCODEAS_STRING_STXT,*_SUB_EXPORTCODEAS_LONG_SPOS, 100 ,0|1),func_chr( 9 ),qbs_new_txt_len(" ",1)))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20731,"ide_methods.bas");}while(r); +S_60593:; +sc_6758_var=0; +if(qbevent){evnt(26070,20732,"ide_methods.bas");if(r)goto S_60593;} +S_60594:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("$END",4))))||new_error){ +if(qbevent){evnt(26070,20733,"ide_methods.bas");if(r)goto S_60594;} +S_60595:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 2 )),qbs_new_txt_len("IF",2))))||new_error){ +if(qbevent){evnt(26070,20733,"ide_methods.bas");if(r)goto S_60595;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_ME,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_ME,qbs_new_txt_len(" ",1)),qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20733,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("$END IF",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20733,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ; +if(!qbevent)break;evnt(26070,20733,"ide_methods.bas");}while(r); +} +sc_ec_502_end:; +sc_6758_var=-1; +} +S_60600:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("CALL",4))))||new_error){ +if(qbevent){evnt(26070,20734,"ide_methods.bas");if(r)goto S_60600;} +S_60601:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 8 )),qbs_new_txt_len("ABSOLUTE",8))))||new_error){ +if(qbevent){evnt(26070,20734,"ide_methods.bas");if(r)goto S_60601;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 8 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20734,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("CALL ABSOLUTE",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20734,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ; +if(!qbevent)break;evnt(26070,20734,"ide_methods.bas");}while(r); +} +sc_ec_503_end:; +sc_6758_var=-1; +} +S_60606:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("DECLARE",7))))||new_error){ +if(qbevent){evnt(26070,20735,"ide_methods.bas");if(r)goto S_60606;} +S_60607:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 7 )),qbs_new_txt_len("LIBRARY",7))))||new_error){ +if(qbevent){evnt(26070,20735,"ide_methods.bas");if(r)goto S_60607;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 7 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20735,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("DECLARE LIBRARY",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20735,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ; +if(!qbevent)break;evnt(26070,20735,"ide_methods.bas");}while(r); +} +sc_ec_504_end:; +sc_6758_var=-1; +} +S_60612:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("DEF",3))))||new_error){ +if(qbevent){evnt(26070,20736,"ide_methods.bas");if(r)goto S_60612;} +S_60613:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 3 )),qbs_new_txt_len("SEG",3))))||new_error){ +if(qbevent){evnt(26070,20736,"ide_methods.bas");if(r)goto S_60613;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 3 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20736,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("DEF SEG",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20736,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ; +if(!qbevent)break;evnt(26070,20736,"ide_methods.bas");}while(r); +} +sc_ec_505_end:; +sc_6758_var=-1; +} +S_60618:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("DO",2))))||new_error){ +if(qbevent){evnt(26070,20737,"ide_methods.bas");if(r)goto S_60618;} +S_60619:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 5 )),qbs_new_txt_len("WHILE",5))))||new_error){ +if(qbevent){evnt(26070,20738,"ide_methods.bas");if(r)goto S_60619;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 5 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20738,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("DO...LOOP",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20738,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_FU= -1 ; +if(!qbevent)break;evnt(26070,20738,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_BO= -1 ; +if(!qbevent)break;evnt(26070,20738,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ; +if(!qbevent)break;evnt(26070,20738,"ide_methods.bas");}while(r); +} +S_60626:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 5 )),qbs_new_txt_len("UNTIL",5))))||new_error){ +if(qbevent){evnt(26070,20739,"ide_methods.bas");if(r)goto S_60626;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 5 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20739,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("DO...LOOP",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20739,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_FU= -1 ; +if(!qbevent)break;evnt(26070,20739,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_BO= -1 ; +if(!qbevent)break;evnt(26070,20739,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ; +if(!qbevent)break;evnt(26070,20739,"ide_methods.bas");}while(r); +} +sc_ec_506_end:; +sc_6758_var=-1; +} +S_60633:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("END",3))))||new_error){ +if(qbevent){evnt(26070,20740,"ide_methods.bas");if(r)goto S_60633;} +S_60634:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 7 )),qbs_new_txt_len("DECLARE",7))))||new_error){ +if(qbevent){evnt(26070,20741,"ide_methods.bas");if(r)goto S_60634;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 7 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20741,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("END DECLARE",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20741,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ; +if(!qbevent)break;evnt(26070,20741,"ide_methods.bas");}while(r); +} +S_60639:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 8 )),qbs_new_txt_len("FUNCTION",8))))||new_error){ +if(qbevent){evnt(26070,20742,"ide_methods.bas");if(r)goto S_60639;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 8 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20742,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("END FUNCTION",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20742,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ; +if(!qbevent)break;evnt(26070,20742,"ide_methods.bas");}while(r); +} +S_60644:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 2 )),qbs_new_txt_len("IF",2))))||new_error){ +if(qbevent){evnt(26070,20743,"ide_methods.bas");if(r)goto S_60644;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20743,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("END IF",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20743,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ; +if(!qbevent)break;evnt(26070,20743,"ide_methods.bas");}while(r); +} +S_60649:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 6 )),qbs_new_txt_len("SELECT",6))))||new_error){ +if(qbevent){evnt(26070,20744,"ide_methods.bas");if(r)goto S_60649;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 6 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20744,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("END SELECT",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20744,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ; +if(!qbevent)break;evnt(26070,20744,"ide_methods.bas");}while(r); +} +S_60654:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 3 )),qbs_new_txt_len("SUB",3))))||new_error){ +if(qbevent){evnt(26070,20745,"ide_methods.bas");if(r)goto S_60654;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 3 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20745,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("END SUB",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20745,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ; +if(!qbevent)break;evnt(26070,20745,"ide_methods.bas");}while(r); +} +S_60659:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 4 )),qbs_new_txt_len("TYPE",4))))||new_error){ +if(qbevent){evnt(26070,20746,"ide_methods.bas");if(r)goto S_60659;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20746,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("END TYPE",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20746,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ; +if(!qbevent)break;evnt(26070,20746,"ide_methods.bas");}while(r); +} +sc_ec_507_end:; +sc_6758_var=-1; +} +S_60664:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("EXIT",4))))||new_error){ +if(qbevent){evnt(26070,20747,"ide_methods.bas");if(r)goto S_60664;} +S_60665:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 4 )),qbs_new_txt_len("CASE",4))))||new_error){ +if(qbevent){evnt(26070,20748,"ide_methods.bas");if(r)goto S_60665;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20748,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("EXIT CASE",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20748,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ; +if(!qbevent)break;evnt(26070,20748,"ide_methods.bas");}while(r); +} +S_60670:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 2 )),qbs_new_txt_len("DO",2))))||new_error){ +if(qbevent){evnt(26070,20749,"ide_methods.bas");if(r)goto S_60670;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 2 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20749,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("EXIT DO",7)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20749,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ; +if(!qbevent)break;evnt(26070,20749,"ide_methods.bas");}while(r); +} +S_60675:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 3 )),qbs_new_txt_len("FOR",3))))||new_error){ +if(qbevent){evnt(26070,20750,"ide_methods.bas");if(r)goto S_60675;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 3 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20750,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("EXIT FOR",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20750,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ; +if(!qbevent)break;evnt(26070,20750,"ide_methods.bas");}while(r); +} +S_60680:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 8 )),qbs_new_txt_len("FUNCTION",8))))||new_error){ +if(qbevent){evnt(26070,20751,"ide_methods.bas");if(r)goto S_60680;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 8 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20751,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("EXIT FUNCTION",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20751,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ; +if(!qbevent)break;evnt(26070,20751,"ide_methods.bas");}while(r); +} +S_60685:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 6 )),qbs_new_txt_len("SELECT",6))))||new_error){ +if(qbevent){evnt(26070,20752,"ide_methods.bas");if(r)goto S_60685;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 6 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20752,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("EXIT SELECT",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20752,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ; +if(!qbevent)break;evnt(26070,20752,"ide_methods.bas");}while(r); +} +S_60690:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 3 )),qbs_new_txt_len("SUB",3))))||new_error){ +if(qbevent){evnt(26070,20753,"ide_methods.bas");if(r)goto S_60690;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 3 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20753,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("EXIT SUB",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20753,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ; +if(!qbevent)break;evnt(26070,20753,"ide_methods.bas");}while(r); +} +S_60695:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 5 )),qbs_new_txt_len("WHILE",5))))||new_error){ +if(qbevent){evnt(26070,20754,"ide_methods.bas");if(r)goto S_60695;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 5 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20754,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("EXIT WHILE",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20754,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ; +if(!qbevent)break;evnt(26070,20754,"ide_methods.bas");}while(r); +} +sc_ec_508_end:; +sc_6758_var=-1; +} +S_60700:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("GET",3))||qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("PUT",3))))||new_error){ +if(qbevent){evnt(26070,20755,"ide_methods.bas");if(r)goto S_60700;} +S_60701:; +if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 1 ),qbs_new_txt_len("#",1))))||new_error){ +if(qbevent){evnt(26070,20755,"ide_methods.bas");if(r)goto S_60701;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_add(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len(" (general)",10))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20755,"ide_methods.bas");}while(r); +} +sc_ec_509_end:; +sc_6758_var=-1; +} +S_60704:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("KEY",3))))||new_error){ +if(qbevent){evnt(26070,20756,"ide_methods.bas");if(r)goto S_60704;} +S_60705:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 4 )),qbs_new_txt_len("LIST",4))))||new_error){ +if(qbevent){evnt(26070,20756,"ide_methods.bas");if(r)goto S_60705;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20756,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("KEY LIST",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20756,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ; +if(!qbevent)break;evnt(26070,20756,"ide_methods.bas");}while(r); +} +sc_ec_510_end:; +sc_6758_var=-1; +} +S_60710:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("LPRINT",6))))||new_error){ +if(qbevent){evnt(26070,20757,"ide_methods.bas");if(r)goto S_60710;} +S_60711:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 5 )),qbs_new_txt_len("USING",5))))||new_error){ +if(qbevent){evnt(26070,20757,"ide_methods.bas");if(r)goto S_60711;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 5 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20757,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("LPRINT USING",12)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20757,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ; +if(!qbevent)break;evnt(26070,20757,"ide_methods.bas");}while(r); +} +sc_ec_511_end:; +sc_6758_var=-1; +} +S_60716:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("LINE",4))))||new_error){ +if(qbevent){evnt(26070,20758,"ide_methods.bas");if(r)goto S_60716;} +S_60717:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 5 )),qbs_new_txt_len("INPUT",5))))||new_error){ +if(qbevent){evnt(26070,20759,"ide_methods.bas");if(r)goto S_60717;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 5 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20760,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("LINE INPUT",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20760,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ; +if(!qbevent)break;evnt(26070,20760,"ide_methods.bas");}while(r); +S_60721:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(qbs_ltrim(func_mid(_SUB_EXPORTCODEAS_STRING_LA, 6 ,NULL,0)), 1 ),qbs_new_txt_len("#",1))))||new_error){ +if(qbevent){evnt(26070,20761,"ide_methods.bas");if(r)goto S_60721;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_add(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len(" (file statement)",17))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20761,"ide_methods.bas");}while(r); +} +} +sc_ec_512_end:; +sc_6758_var=-1; +} +S_60725:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("LOOP",4))))||new_error){ +if(qbevent){evnt(26070,20763,"ide_methods.bas");if(r)goto S_60725;} +S_60726:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 5 )),qbs_new_txt_len("WHILE",5))))||new_error){ +if(qbevent){evnt(26070,20764,"ide_methods.bas");if(r)goto S_60726;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 5 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20764,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("DO...LOOP",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20764,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_FU= -1 ; +if(!qbevent)break;evnt(26070,20764,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_BO= -1 ; +if(!qbevent)break;evnt(26070,20764,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ; +if(!qbevent)break;evnt(26070,20764,"ide_methods.bas");}while(r); +} +S_60733:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 5 )),qbs_new_txt_len("UNTIL",5))))||new_error){ +if(qbevent){evnt(26070,20765,"ide_methods.bas");if(r)goto S_60733;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 5 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20765,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("DO...LOOP",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20765,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_FU= -1 ; +if(!qbevent)break;evnt(26070,20765,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_BO= -1 ; +if(!qbevent)break;evnt(26070,20765,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ; +if(!qbevent)break;evnt(26070,20765,"ide_methods.bas");}while(r); +} +sc_ec_513_end:; +sc_6758_var=-1; +} +S_60740:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("ON",2))))||new_error){ +if(qbevent){evnt(26070,20766,"ide_methods.bas");if(r)goto S_60740;} +S_60741:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 5 )),qbs_new_txt_len("ERROR",5))))||new_error){ +if(qbevent){evnt(26070,20767,"ide_methods.bas");if(r)goto S_60741;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 5 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20767,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("ON ERROR",8)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20767,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ; +if(!qbevent)break;evnt(26070,20767,"ide_methods.bas");}while(r); +} +S_60746:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 3 )),qbs_new_txt_len("KEY",3))))||new_error){ +if(qbevent){evnt(26070,20768,"ide_methods.bas");if(r)goto S_60746;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 3 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20768,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("ON KEY(n)",9)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20768,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ; +if(!qbevent)break;evnt(26070,20768,"ide_methods.bas");}while(r); +} +S_60751:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 5 )),qbs_new_txt_len("STRIG",5))))||new_error){ +if(qbevent){evnt(26070,20769,"ide_methods.bas");if(r)goto S_60751;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 5 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20769,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("ON STRIG(n)",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20769,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ; +if(!qbevent)break;evnt(26070,20769,"ide_methods.bas");}while(r); +} +S_60756:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 5 )),qbs_new_txt_len("TIMER",5))))||new_error){ +if(qbevent){evnt(26070,20770,"ide_methods.bas");if(r)goto S_60756;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 5 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20770,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("ON TIMER(n)",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20770,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ; +if(!qbevent)break;evnt(26070,20770,"ide_methods.bas");}while(r); +} +sc_ec_514_end:; +sc_6758_var=-1; +} +S_60761:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("OPTION",6))))||new_error){ +if(qbevent){evnt(26070,20771,"ide_methods.bas");if(r)goto S_60761;} +S_60762:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 4 )),qbs_new_txt_len("BASE",4))))||new_error){ +if(qbevent){evnt(26070,20771,"ide_methods.bas");if(r)goto S_60762;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20771,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("OPTION BASE",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20771,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ; +if(!qbevent)break;evnt(26070,20771,"ide_methods.bas");}while(r); +} +sc_ec_515_end:; +sc_6758_var=-1; +} +S_60767:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("PALETTE",7))))||new_error){ +if(qbevent){evnt(26070,20772,"ide_methods.bas");if(r)goto S_60767;} +S_60768:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 5 )),qbs_new_txt_len("USING",5))))||new_error){ +if(qbevent){evnt(26070,20772,"ide_methods.bas");if(r)goto S_60768;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 5 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20772,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("PALETTE USING",13)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20772,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ; +if(!qbevent)break;evnt(26070,20772,"ide_methods.bas");}while(r); +} +sc_ec_516_end:; +sc_6758_var=-1; +} +S_60773:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("PRINT",5))))||new_error){ +if(qbevent){evnt(26070,20773,"ide_methods.bas");if(r)goto S_60773;} +S_60774:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 5 )),qbs_new_txt_len("USING",5))))||new_error){ +if(qbevent){evnt(26070,20774,"ide_methods.bas");if(r)goto S_60774;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 5 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20775,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("PRINT USING",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20775,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ; +if(!qbevent)break;evnt(26070,20775,"ide_methods.bas");}while(r); +S_60778:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(qbs_ltrim(func_mid(_SUB_EXPORTCODEAS_STRING_LA, 6 ,NULL,0)), 1 ),qbs_new_txt_len("#",1))))||new_error){ +if(qbevent){evnt(26070,20776,"ide_methods.bas");if(r)goto S_60778;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_add(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len(" (file statement)",17))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20776,"ide_methods.bas");}while(r); +} +} +sc_ec_517_end:; +sc_6758_var=-1; +} +S_60782:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("RANDOMIZE",9))))||new_error){ +if(qbevent){evnt(26070,20778,"ide_methods.bas");if(r)goto S_60782;} +S_60783:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 5 )),qbs_new_txt_len("USING",5))))||new_error){ +if(qbevent){evnt(26070,20778,"ide_methods.bas");if(r)goto S_60783;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 5 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20778,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("RANDOMIZE USING",15)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20778,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ; +if(!qbevent)break;evnt(26070,20778,"ide_methods.bas");}while(r); +} +sc_ec_518_end:; +sc_6758_var=-1; +} +S_60788:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("SELECT",6))))||new_error){ +if(qbevent){evnt(26070,20779,"ide_methods.bas");if(r)goto S_60788;} +S_60789:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 4 )),qbs_new_txt_len("CASE",4))))||new_error){ +if(qbevent){evnt(26070,20780,"ide_methods.bas");if(r)goto S_60789;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 4 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20780,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("SELECT CASE",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20780,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ; +if(!qbevent)break;evnt(26070,20780,"ide_methods.bas");}while(r); +} +S_60794:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 9 )),qbs_new_txt_len("EVERYCASE",9))))||new_error){ +if(qbevent){evnt(26070,20781,"ide_methods.bas");if(r)goto S_60794;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 9 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20781,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("SELECT CASE",11)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20781,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ; +if(!qbevent)break;evnt(26070,20781,"ide_methods.bas");}while(r); +} +sc_ec_519_end:; +sc_6758_var=-1; +} +S_60799:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("VIEW",4))))||new_error){ +if(qbevent){evnt(26070,20782,"ide_methods.bas");if(r)goto S_60799;} +S_60800:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 5 )),qbs_new_txt_len("PRINT",5))))||new_error){ +if(qbevent){evnt(26070,20782,"ide_methods.bas");if(r)goto S_60800;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_KW,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len(" ",1)),qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 5 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20782,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("VIEW PRINT",10)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20782,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_IN= -1 ; +if(!qbevent)break;evnt(26070,20782,"ide_methods.bas");}while(r); +} +sc_ec_520_end:; +sc_6758_var=-1; +} +S_60805:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("INPUT",5))||qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("PRINT",5))||qbs_equal(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len("WRITE",5))))||new_error){ +if(qbevent){evnt(26070,20783,"ide_methods.bas");if(r)goto S_60805;} +S_60806:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_EXPORTCODEAS_STRING_LA, 1 ),qbs_new_txt_len("#",1))))||new_error){ +if(qbevent){evnt(26070,20783,"ide_methods.bas");if(r)goto S_60806;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_add(_SUB_EXPORTCODEAS_STRING_PAGE,qbs_new_txt_len(" (file statement)",17))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20783,"ide_methods.bas");}while(r); +} +sc_ec_521_end:; +} +sc_6758_end:; +} +} +} +} +do{ +#include "ret297.txt" +if(!qbevent)break;evnt(26070,20786,"ide_methods.bas");}while(r); +LABEL_WRITELINK:; +if(qbevent){evnt(26070,20788,"ide_methods.bas");r=0;} +S_60812:; +if ((qbs_cleanup(qbs_tmp_base,(*_SUB_EXPORTCODEAS_INTEGER_ME&(qbs_equal(_SUB_EXPORTCODEAS_STRING_ME,qbs_new_txt_len("",0))))|(*_SUB_EXPORTCODEAS_INTEGER_KW&(qbs_equal(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len("",0))))))||new_error){ +if(qbevent){evnt(26070,20789,"ide_methods.bas");if(r)goto S_60812;} +do{ +goto LABEL_UNKNOWNNOLINKNOCOLOR; +if(!qbevent)break;evnt(26070,20789,"ide_methods.bas");}while(r); +} +S_60815:; +if ((*_SUB_EXPORTCODEAS_INTEGER_CU)||new_error){ +if(qbevent){evnt(26070,20790,"ide_methods.bas");if(r)goto S_60815;} +do{ +goto LABEL_CUSTOMNOLINK; +if(!qbevent)break;evnt(26070,20790,"ide_methods.bas");}while(r); +} +do{ +return_point[next_return_point++]=226; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_FINDWIKIPAGE; +RETURN_226:; +if(!qbevent)break;evnt(26070,20791,"ide_methods.bas");}while(r); +S_60819:; +if ((*_SUB_EXPORTCODEAS_INTEGER_ME&*_SUB_EXPORTCODEAS_INTEGER_LE&*_SUB_EXPORTCODEAS_INTEGER_CO)||new_error){ +if(qbevent){evnt(26070,20792,"ide_methods.bas");if(r)goto S_60819;} +do{ +*_SUB_EXPORTCODEAS_INTEGER_POST= 0 ; +if(!qbevent)break;evnt(26070,20792,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_WHAT,qbs_new_txt_len("co",2)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20792,"ide_methods.bas");}while(r); +do{ +return_point[next_return_point++]=227; +if (next_return_point>=return_points) more_return_points(); +goto LABEL_CLOSETEXT; +RETURN_227:; +if(!qbevent)break;evnt(26070,20792,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_CO= 0 ; +if(!qbevent)break;evnt(26070,20792,"ide_methods.bas");}while(r); +} +S_60825:; +if ((*_SUB_EXPORTCODEAS_INTEGER_ME|*_SUB_EXPORTCODEAS_INTEGER_PC)||new_error){ +if(qbevent){evnt(26070,20793,"ide_methods.bas");if(r)goto S_60825;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_LNK,_SUB_EXPORTCODEAS_STRING_ME); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20793,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("{{Cm|",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20793,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_LKC,_SUB_EXPORTCODEAS_STRING_MEC); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20793,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_RTC,qbs_new_txt_len("\\cf2",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20793,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_LNK,_SUB_EXPORTCODEAS_STRING_KW); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20793,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("{{Cl|",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20793,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_LKC,_SUB_EXPORTCODEAS_STRING_KWC); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20793,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_RTC,qbs_new_txt_len("\\cf3",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20793,"ide_methods.bas");}while(r); +} +do{ +*_SUB_EXPORTCODEAS_INTEGER_PAL=_SUB_EXPORTCODEAS_STRING_PAGE->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20794,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_LKL=_SUB_EXPORTCODEAS_STRING_LNK->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20794,"ide_methods.bas");}while(r); +S_60838:; +qbs_set(sc_6761,qbs_lcase(_SUB_EXPORTCODEAS_STRING_DOCFORMAT)); +qbs_cleanup(qbs_tmp_base,0); +if(qbevent){evnt(26070,20795,"ide_methods.bas");if(r)goto S_60838;} +S_60839:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6761,qbs_new_txt_len("html",4))))||new_error){ +if(qbevent){evnt(26070,20796,"ide_methods.bas");if(r)goto S_60839;} +do{ +sub_mid(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS,( 2 **_SUB_EXPORTCODEAS_INTEGER_PAL)+*_SUB_EXPORTCODEAS_INTEGER_LKL+ 120 ,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("",1)),_SUB_EXPORTCODEAS_STRING_LNK),qbs_new_txt_len("",4)),1); +if(!qbevent)break;evnt(26070,20797,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+( 2 **_SUB_EXPORTCODEAS_INTEGER_PAL)+*_SUB_EXPORTCODEAS_INTEGER_LKL+ 120 ; +if(!qbevent)break;evnt(26070,20798,"ide_methods.bas");}while(r); +sc_ec_522_end:; +goto sc_6761_end; +} +S_60842:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6761,qbs_new_txt_len("rich",4))))||new_error){ +if(qbevent){evnt(26070,20799,"ide_methods.bas");if(r)goto S_60842;} +do{ +sub_mid(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS,*_SUB_EXPORTCODEAS_INTEGER_PAL+*_SUB_EXPORTCODEAS_INTEGER_LKL+ 108 ,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("{\\field{\\*\\fldinst HYPERLINK ",29),func_chr( 34 )),qbs_new_txt_len("https://qb64phoenix.com/qb64wiki/index.php?title=",49)),_SUB_EXPORTCODEAS_STRING_PAGE),func_chr( 34 )),qbs_new_txt_len("}{\\fldrslt{",11)),_SUB_EXPORTCODEAS_STRING_RTC),qbs_new_txt_len("\\ul0 ",5)),_SUB_EXPORTCODEAS_STRING_LNK),qbs_new_txt_len("}}}\\cf0 ",8)),1); +if(!qbevent)break;evnt(26070,20800,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+*_SUB_EXPORTCODEAS_INTEGER_PAL+*_SUB_EXPORTCODEAS_INTEGER_LKL+ 108 ; +if(!qbevent)break;evnt(26070,20801,"ide_methods.bas");}while(r); +sc_ec_523_end:; +goto sc_6761_end; +} +S_60845:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6761,qbs_new_txt_len("wiki",4))))||new_error){ +if(qbevent){evnt(26070,20802,"ide_methods.bas");if(r)goto S_60845;} +S_60846:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_ucase(_SUB_EXPORTCODEAS_STRING_PAGE),qbs_ucase(_SUB_EXPORTCODEAS_STRING_LNK))))||new_error){ +if(qbevent){evnt(26070,20803,"ide_methods.bas");if(r)goto S_60846;} +do{ +sub_mid(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS,*_SUB_EXPORTCODEAS_INTEGER_LKL+ 7 ,qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_TMP,_SUB_EXPORTCODEAS_STRING_LNK),qbs_new_txt_len("}}",2)),1); +if(!qbevent)break;evnt(26070,20804,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+*_SUB_EXPORTCODEAS_INTEGER_LKL+ 7 ; +if(!qbevent)break;evnt(26070,20805,"ide_methods.bas");}while(r); +}else{ +do{ +sub_mid(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS,*_SUB_EXPORTCODEAS_INTEGER_PAL+*_SUB_EXPORTCODEAS_INTEGER_LKL+ 8 ,qbs_add(qbs_add(qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_TMP,_SUB_EXPORTCODEAS_STRING_PAGE),qbs_new_txt_len("|",1)),_SUB_EXPORTCODEAS_STRING_LNK),qbs_new_txt_len("}}",2)),1); +if(!qbevent)break;evnt(26070,20807,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+*_SUB_EXPORTCODEAS_INTEGER_PAL+*_SUB_EXPORTCODEAS_INTEGER_LKL+ 8 ; +if(!qbevent)break;evnt(26070,20808,"ide_methods.bas");}while(r); +} +sc_ec_524_end:; +goto sc_6761_end; +} +do{ +#include "ret297.txt" +if(!qbevent)break;evnt(26070,20810,"ide_methods.bas");}while(r); +sc_6761_end:; +do{ +#include "ret297.txt" +if(!qbevent)break;evnt(26070,20812,"ide_methods.bas");}while(r); +LABEL_CUSTOMNOLINK:; +if(qbevent){evnt(26070,20814,"ide_methods.bas");r=0;} +do{ +*_SUB_EXPORTCODEAS_INTEGER_CU= 0 ; +if(!qbevent)break;evnt(26070,20815,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_KWL=_SUB_EXPORTCODEAS_STRING_KW->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20815,"ide_methods.bas");}while(r); +S_60859:; +qbs_set(sc_6763,qbs_lcase(_SUB_EXPORTCODEAS_STRING_DOCFORMAT)); +qbs_cleanup(qbs_tmp_base,0); +if(qbevent){evnt(26070,20816,"ide_methods.bas");if(r)goto S_60859;} +S_60860:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6763,qbs_new_txt_len("html",4))))||new_error){ +if(qbevent){evnt(26070,20817,"ide_methods.bas");if(r)goto S_60860;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_KW,FUNC_STRREPLACE(_SUB_EXPORTCODEAS_STRING_KW,qbs_new_txt_len("&",1),qbs_new_txt_len("&",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20818,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_KWL=_SUB_EXPORTCODEAS_STRING_KW->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20818,"ide_methods.bas");}while(r); +do{ +sub_mid(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS,*_SUB_EXPORTCODEAS_INTEGER_KWL+ 37 ,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("",1)),_SUB_EXPORTCODEAS_STRING_KW),qbs_new_txt_len("",7)),1); +if(!qbevent)break;evnt(26070,20819,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+*_SUB_EXPORTCODEAS_INTEGER_KWL+ 37 ; +if(!qbevent)break;evnt(26070,20820,"ide_methods.bas");}while(r); +sc_ec_525_end:; +goto sc_6763_end; +} +S_60865:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6763,qbs_new_txt_len("rich",4))))||new_error){ +if(qbevent){evnt(26070,20821,"ide_methods.bas");if(r)goto S_60865;} +do{ +sub_mid(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS,*_SUB_EXPORTCODEAS_INTEGER_KWL+ 10 ,qbs_add(qbs_add(qbs_new_txt_len("\\cf2 ",5),_SUB_EXPORTCODEAS_STRING_KW),qbs_new_txt_len("\\cf0 ",5)),1); +if(!qbevent)break;evnt(26070,20822,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+*_SUB_EXPORTCODEAS_INTEGER_KWL+ 10 ; +if(!qbevent)break;evnt(26070,20823,"ide_methods.bas");}while(r); +sc_ec_526_end:; +goto sc_6763_end; +} +S_60868:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6763,qbs_new_txt_len("wiki",4))))||new_error){ +if(qbevent){evnt(26070,20824,"ide_methods.bas");if(r)goto S_60868;} +do{ +sub_mid(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS,*_SUB_EXPORTCODEAS_INTEGER_KWL+ 17 ,qbs_add(qbs_add(qbs_new_txt_len("{{Text|",7),_SUB_EXPORTCODEAS_STRING_KW),qbs_new_txt_len("|#55FF55}}",10)),1); +if(!qbevent)break;evnt(26070,20825,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+*_SUB_EXPORTCODEAS_INTEGER_KWL+ 17 ; +if(!qbevent)break;evnt(26070,20826,"ide_methods.bas");}while(r); +sc_ec_527_end:; +goto sc_6763_end; +} +do{ +#include "ret297.txt" +if(!qbevent)break;evnt(26070,20827,"ide_methods.bas");}while(r); +sc_6763_end:; +do{ +#include "ret297.txt" +if(!qbevent)break;evnt(26070,20829,"ide_methods.bas");}while(r); +LABEL_UNKNOWNNOLINKNOCOLOR:; +if(qbevent){evnt(26070,20831,"ide_methods.bas");r=0;} +S_60875:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_lcase(_SUB_EXPORTCODEAS_STRING_DOCFORMAT),qbs_new_txt_len("html",4))))||new_error){ +if(qbevent){evnt(26070,20832,"ide_methods.bas");if(r)goto S_60875;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_VERI,FUNC_STRREPLACE(_SUB_EXPORTCODEAS_STRING_VERI,qbs_new_txt_len("&",1),qbs_new_txt_len("&",5))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20832,"ide_methods.bas");}while(r); +} +do{ +sub_mid(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS,_SUB_EXPORTCODEAS_STRING_VERI->len,_SUB_EXPORTCODEAS_STRING_VERI,1); +if(!qbevent)break;evnt(26070,20833,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+_SUB_EXPORTCODEAS_STRING_VERI->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20833,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_VERI,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20833,"ide_methods.bas");}while(r); +do{ +#include "ret297.txt" +if(!qbevent)break;evnt(26070,20834,"ide_methods.bas");}while(r); +LABEL_ESCAPECHAR:; +if(qbevent){evnt(26070,20836,"ide_methods.bas");r=0;} +S_60882:; +qbs_set(sc_6767,qbs_lcase(_SUB_EXPORTCODEAS_STRING_DOCFORMAT)); +qbs_cleanup(qbs_tmp_base,0); +if(qbevent){evnt(26070,20837,"ide_methods.bas");if(r)goto S_60882;} +S_60883:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6767,qbs_new_txt_len("html",4))))||new_error){ +if(qbevent){evnt(26070,20838,"ide_methods.bas");if(r)goto S_60883;} +S_60884:; +if(qbevent){evnt(26070,20839,"ide_methods.bas");if(r)goto S_60884;} +S_60885:; +if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 34 )))||new_error){ +if(qbevent){evnt(26070,20840,"ide_methods.bas");if(r)goto S_60885;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_ECH,qbs_new_txt_len(""",6)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20840,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_SK= -1 ; +if(!qbevent)break;evnt(26070,20840,"ide_methods.bas");}while(r); +sc_ec_528_end:; +goto sc_6768_end; +} +S_60888:; +if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 38 )))||new_error){ +if(qbevent){evnt(26070,20841,"ide_methods.bas");if(r)goto S_60888;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_ECH,qbs_new_txt_len("&",5)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20841,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_SK= -1 ; +if(!qbevent)break;evnt(26070,20841,"ide_methods.bas");}while(r); +sc_ec_529_end:; +goto sc_6768_end; +} +S_60891:; +if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 60 )))||new_error){ +if(qbevent){evnt(26070,20842,"ide_methods.bas");if(r)goto S_60891;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_ECH,qbs_new_txt_len("<",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20842,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_SK= -1 ; +if(!qbevent)break;evnt(26070,20842,"ide_methods.bas");}while(r); +sc_ec_530_end:; +goto sc_6768_end; +} +S_60894:; +if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 62 )))||new_error){ +if(qbevent){evnt(26070,20843,"ide_methods.bas");if(r)goto S_60894;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_ECH,qbs_new_txt_len(">",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20843,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_SK= -1 ; +if(!qbevent)break;evnt(26070,20843,"ide_methods.bas");}while(r); +sc_ec_531_end:; +goto sc_6768_end; +} +S_60897:; +if (((*_SUB_EXPORTCODEAS_INTEGER_CURR>( 127 )))||new_error){ +if(qbevent){evnt(26070,20844,"ide_methods.bas");if(r)goto S_60897;} +do{ +*_SUB_EXPORTCODEAS_LONG_UNI=func__mapunicode(*_SUB_EXPORTCODEAS_INTEGER_CURR); +if(!qbevent)break;evnt(26070,20845,"ide_methods.bas");}while(r); +S_60899:; +if ((-(*_SUB_EXPORTCODEAS_LONG_UNI== 0 ))||new_error){ +if(qbevent){evnt(26070,20846,"ide_methods.bas");if(r)goto S_60899;} +do{ +*_SUB_EXPORTCODEAS_LONG_UNI= 65533 ; +if(!qbevent)break;evnt(26070,20846,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_ECH,FUNC_UNICODETOUTF8CHAR(_SUB_EXPORTCODEAS_LONG_UNI)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20847,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_SK= -1 ; +if(!qbevent)break;evnt(26070,20847,"ide_methods.bas");}while(r); +sc_ec_532_end:; +goto sc_6768_end; +} +do{ +#include "ret297.txt" +if(!qbevent)break;evnt(26070,20848,"ide_methods.bas");}while(r); +sc_6768_end:; +sc_ec_533_end:; +goto sc_6767_end; +} +S_60907:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6767,qbs_new_txt_len("rich",4))))||new_error){ +if(qbevent){evnt(26070,20850,"ide_methods.bas");if(r)goto S_60907;} +S_60908:; +if(qbevent){evnt(26070,20851,"ide_methods.bas");if(r)goto S_60908;} +S_60909:; +if (((*_SUB_EXPORTCODEAS_INTEGER_CURR==( 92 ))||(*_SUB_EXPORTCODEAS_INTEGER_CURR==( 123 ))||(*_SUB_EXPORTCODEAS_INTEGER_CURR==( 125 )))||new_error){ +if(qbevent){evnt(26070,20852,"ide_methods.bas");if(r)goto S_60909;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_ECH,qbs_new_txt_len("\\",1)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20852,"ide_methods.bas");}while(r); +sc_ec_534_end:; +goto sc_6769_end; +} +S_60911:; +if (((*_SUB_EXPORTCODEAS_INTEGER_CURR>( 127 )))||new_error){ +if(qbevent){evnt(26070,20853,"ide_methods.bas");if(r)goto S_60911;} +do{ +*_SUB_EXPORTCODEAS_LONG_UNI=func__mapunicode(*_SUB_EXPORTCODEAS_INTEGER_CURR); +if(!qbevent)break;evnt(26070,20854,"ide_methods.bas");}while(r); +S_60913:; +if ((-(*_SUB_EXPORTCODEAS_LONG_UNI== 0 ))||new_error){ +if(qbevent){evnt(26070,20855,"ide_methods.bas");if(r)goto S_60913;} +do{ +*_SUB_EXPORTCODEAS_LONG_UNI= 65533 ; +if(!qbevent)break;evnt(26070,20855,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_ECH,qbs_add(qbs_add(qbs_new_txt_len("\\u",2),qbs_ltrim(qbs_str((int32)(*_SUB_EXPORTCODEAS_LONG_UNI)))),qbs_new_txt_len("\\'bf",4))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20856,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_SK= -1 ; +if(!qbevent)break;evnt(26070,20856,"ide_methods.bas");}while(r); +sc_ec_535_end:; +goto sc_6769_end; +} +do{ +#include "ret297.txt" +if(!qbevent)break;evnt(26070,20857,"ide_methods.bas");}while(r); +sc_6769_end:; +sc_ec_536_end:; +goto sc_6767_end; +} +S_60921:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6767,qbs_new_txt_len("wiki",4))))||new_error){ +if(qbevent){evnt(26070,20859,"ide_methods.bas");if(r)goto S_60921;} +S_60922:; +if(qbevent){evnt(26070,20860,"ide_methods.bas");if(r)goto S_60922;} +S_60923:; +if (((*_SUB_EXPORTCODEAS_INTEGER_CURR>( 127 )))||new_error){ +if(qbevent){evnt(26070,20861,"ide_methods.bas");if(r)goto S_60923;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_ECH,qbs_add(qbs_add(qbs_new_txt_len("&#",2),qbs_ltrim(qbs_str((int16)(*_SUB_EXPORTCODEAS_INTEGER_CURR)))),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20861,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_INTEGER_SK= -1 ; +if(!qbevent)break;evnt(26070,20861,"ide_methods.bas");}while(r); +sc_ec_537_end:; +goto sc_6770_end; +} +do{ +#include "ret297.txt" +if(!qbevent)break;evnt(26070,20862,"ide_methods.bas");}while(r); +sc_6770_end:; +sc_ec_538_end:; +goto sc_6767_end; +} +do{ +#include "ret297.txt" +if(!qbevent)break;evnt(26070,20864,"ide_methods.bas");}while(r); +sc_6767_end:; +do{ +sub_mid(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS,_SUB_EXPORTCODEAS_STRING_ECH->len,_SUB_EXPORTCODEAS_STRING_ECH,1); +if(!qbevent)break;evnt(26070,20866,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+_SUB_EXPORTCODEAS_STRING_ECH->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20866,"ide_methods.bas");}while(r); +do{ +#include "ret297.txt" +if(!qbevent)break;evnt(26070,20867,"ide_methods.bas");}while(r); +LABEL_ENDLINEOPS:; +if(qbevent){evnt(26070,20869,"ide_methods.bas");r=0;} +S_60935:; +qbs_set(sc_6773,qbs_lcase(_SUB_EXPORTCODEAS_STRING_DOCFORMAT)); +qbs_cleanup(qbs_tmp_base,0); +if(qbevent){evnt(26070,20870,"ide_methods.bas");if(r)goto S_60935;} +S_60936:; +if ((qbs_cleanup(qbs_tmp_base,qbs_equal(sc_6773,qbs_new_txt_len("rich",4))))||new_error){ +if(qbevent){evnt(26070,20871,"ide_methods.bas");if(r)goto S_60936;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_TMP,qbs_new_txt_len("\\par",4)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20871,"ide_methods.bas");}while(r); +sc_ec_539_end:; +goto sc_6773_end; +} +do{ +#include "ret297.txt" +if(!qbevent)break;evnt(26070,20872,"ide_methods.bas");}while(r); +sc_6773_end:; +do{ +sub_mid(_SUB_EXPORTCODEAS_STRING_ETXT,*_SUB_EXPORTCODEAS_LONG_EPOS,_SUB_EXPORTCODEAS_STRING_TMP->len,_SUB_EXPORTCODEAS_STRING_TMP,1); +if(!qbevent)break;evnt(26070,20874,"ide_methods.bas");}while(r); +do{ +*_SUB_EXPORTCODEAS_LONG_EPOS=*_SUB_EXPORTCODEAS_LONG_EPOS+_SUB_EXPORTCODEAS_STRING_TMP->len; +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20874,"ide_methods.bas");}while(r); +do{ +#include "ret297.txt" +if(!qbevent)break;evnt(26070,20875,"ide_methods.bas");}while(r); +LABEL_GETTHEMECOLORS:; +if(qbevent){evnt(26070,20877,"ide_methods.bas");r=0;} +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_TXC,qbs_add(qbs_new_txt_len("#",1),qbs_right(func_hex(*__ULONG_IDETEXTCOLOR,8), 6 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20878,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_RTC,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_new_txt_len("\\red",4),qbs_ltrim(qbs_str((int32)(func__red32(*__ULONG_IDETEXTCOLOR))))),qbs_new_txt_len("\\green",6)),qbs_ltrim(qbs_str((int32)(func__green32(*__ULONG_IDETEXTCOLOR))))),qbs_new_txt_len("\\blue",5)),qbs_ltrim(qbs_str((int32)(func__blue32(*__ULONG_IDETEXTCOLOR))))),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20879,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_COC,qbs_add(qbs_new_txt_len("#",1),qbs_right(func_hex(*__ULONG_IDECOMMENTCOLOR,8), 6 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20880,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_RTC,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_RTC,qbs_new_txt_len("\\red",4)),qbs_ltrim(qbs_str((int32)(func__red32(*__ULONG_IDECOMMENTCOLOR))))),qbs_new_txt_len("\\green",6)),qbs_ltrim(qbs_str((int32)(func__green32(*__ULONG_IDECOMMENTCOLOR))))),qbs_new_txt_len("\\blue",5)),qbs_ltrim(qbs_str((int32)(func__blue32(*__ULONG_IDECOMMENTCOLOR))))),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20881,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_MEC,qbs_add(qbs_new_txt_len("#",1),qbs_right(func_hex(*__ULONG_IDEMETACOMMANDCOLOR,8), 6 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20882,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_RTC,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_RTC,qbs_new_txt_len("\\red",4)),qbs_ltrim(qbs_str((int32)(func__red32(*__ULONG_IDEMETACOMMANDCOLOR))))),qbs_new_txt_len("\\green",6)),qbs_ltrim(qbs_str((int32)(func__green32(*__ULONG_IDEMETACOMMANDCOLOR))))),qbs_new_txt_len("\\blue",5)),qbs_ltrim(qbs_str((int32)(func__blue32(*__ULONG_IDEMETACOMMANDCOLOR))))),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20883,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_KWC,qbs_add(qbs_new_txt_len("#",1),qbs_right(func_hex(*__ULONG_IDEKEYWORDCOLOR,8), 6 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20884,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_RTC,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_RTC,qbs_new_txt_len("\\red",4)),qbs_ltrim(qbs_str((int32)(func__red32(*__ULONG_IDEKEYWORDCOLOR))))),qbs_new_txt_len("\\green",6)),qbs_ltrim(qbs_str((int32)(func__green32(*__ULONG_IDEKEYWORDCOLOR))))),qbs_new_txt_len("\\blue",5)),qbs_ltrim(qbs_str((int32)(func__blue32(*__ULONG_IDEKEYWORDCOLOR))))),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20885,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_NUC,qbs_add(qbs_new_txt_len("#",1),qbs_right(func_hex(*__ULONG_IDENUMBERSCOLOR,8), 6 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20886,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_RTC,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_RTC,qbs_new_txt_len("\\red",4)),qbs_ltrim(qbs_str((int32)(func__red32(*__ULONG_IDENUMBERSCOLOR))))),qbs_new_txt_len("\\green",6)),qbs_ltrim(qbs_str((int32)(func__green32(*__ULONG_IDENUMBERSCOLOR))))),qbs_new_txt_len("\\blue",5)),qbs_ltrim(qbs_str((int32)(func__blue32(*__ULONG_IDENUMBERSCOLOR))))),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20887,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_QUC,qbs_add(qbs_new_txt_len("#",1),qbs_right(func_hex(*__ULONG_IDEQUOTECOLOR,8), 6 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20888,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_RTC,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_RTC,qbs_new_txt_len("\\red",4)),qbs_ltrim(qbs_str((int32)(func__red32(*__ULONG_IDEQUOTECOLOR))))),qbs_new_txt_len("\\green",6)),qbs_ltrim(qbs_str((int32)(func__green32(*__ULONG_IDEQUOTECOLOR))))),qbs_new_txt_len("\\blue",5)),qbs_ltrim(qbs_str((int32)(func__blue32(*__ULONG_IDEQUOTECOLOR))))),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20889,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_BGC,qbs_add(qbs_new_txt_len("#",1),qbs_right(func_hex(*__ULONG_IDEBACKGROUNDCOLOR,8), 6 ))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20890,"ide_methods.bas");}while(r); +do{ +qbs_set(_SUB_EXPORTCODEAS_STRING_RTC,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_EXPORTCODEAS_STRING_RTC,qbs_new_txt_len("\\red",4)),qbs_ltrim(qbs_str((int32)(func__red32(*__ULONG_IDEBACKGROUNDCOLOR))))),qbs_new_txt_len("\\green",6)),qbs_ltrim(qbs_str((int32)(func__green32(*__ULONG_IDEBACKGROUNDCOLOR))))),qbs_new_txt_len("\\blue",5)),qbs_ltrim(qbs_str((int32)(func__blue32(*__ULONG_IDEBACKGROUNDCOLOR))))),qbs_new_txt_len(";",1))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20891,"ide_methods.bas");}while(r); +do{ +#include "ret297.txt" +if(!qbevent)break;evnt(26070,20892,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free297.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +} +qbs* FUNC_UNICODETOUTF8CHAR(int32*_FUNC_UNICODETOUTF8CHAR_LONG_UNICODE){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data298.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +S_60959:; +if ((-(*_FUNC_UNICODETOUTF8CHAR_LONG_UNICODE< 128 ))||new_error){ +if(qbevent){evnt(26070,20897,"ide_methods.bas");if(r)goto S_60959;} +do{ +qbs_set(_FUNC_UNICODETOUTF8CHAR_STRING_UNICODETOUTF8CHAR,func_chr(*_FUNC_UNICODETOUTF8CHAR_LONG_UNICODE)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20899,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_UNICODETOUTF8CHAR_STRING_UTF,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20902,"ide_methods.bas");}while(r); +do{ +*_FUNC_UNICODETOUTF8CHAR_LONG_UC=*_FUNC_UNICODETOUTF8CHAR_LONG_UNICODE; +if(!qbevent)break;evnt(26070,20902,"ide_methods.bas");}while(r); +do{ +*_FUNC_UNICODETOUTF8CHAR_INTEGER_FIRST= 128 ; +if(!qbevent)break;evnt(26070,20903,"ide_methods.bas");}while(r); +do{ +*_FUNC_UNICODETOUTF8CHAR_INTEGER_REMAIN= 63 ; +if(!qbevent)break;evnt(26070,20903,"ide_methods.bas");}while(r); +S_60966:; +do{ +if(qbevent){evnt(26070,20904,"ide_methods.bas");if(r)goto S_60966;} +do{ +*_FUNC_UNICODETOUTF8CHAR_INTEGER_FIRST= 128 |(*_FUNC_UNICODETOUTF8CHAR_INTEGER_FIRST/ 2 ); +if(!qbevent)break;evnt(26070,20905,"ide_methods.bas");}while(r); +do{ +*_FUNC_UNICODETOUTF8CHAR_INTEGER_REMAIN=(*_FUNC_UNICODETOUTF8CHAR_INTEGER_REMAIN/ 2 ); +if(!qbevent)break;evnt(26070,20905,"ide_methods.bas");}while(r); +do{ +*_FUNC_UNICODETOUTF8CHAR_INTEGER_CONTI= 128 |(*_FUNC_UNICODETOUTF8CHAR_LONG_UC& 63 ); +if(!qbevent)break;evnt(26070,20906,"ide_methods.bas");}while(r); +do{ +*_FUNC_UNICODETOUTF8CHAR_LONG_UC=*_FUNC_UNICODETOUTF8CHAR_LONG_UC/ 64 ; +if(!qbevent)break;evnt(26070,20906,"ide_methods.bas");}while(r); +do{ +qbs_set(_FUNC_UNICODETOUTF8CHAR_STRING_UTF,qbs_add(func_chr(*_FUNC_UNICODETOUTF8CHAR_INTEGER_CONTI),_FUNC_UNICODETOUTF8CHAR_STRING_UTF)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20907,"ide_methods.bas");}while(r); +S_60972:; +if ((-(*_FUNC_UNICODETOUTF8CHAR_LONG_UC<=*_FUNC_UNICODETOUTF8CHAR_INTEGER_REMAIN))||new_error){ +if(qbevent){evnt(26070,20908,"ide_methods.bas");if(r)goto S_60972;} +do{ +*_FUNC_UNICODETOUTF8CHAR_INTEGER_FIRST=(*_FUNC_UNICODETOUTF8CHAR_INTEGER_FIRST|*_FUNC_UNICODETOUTF8CHAR_LONG_UC); +if(!qbevent)break;evnt(26070,20909,"ide_methods.bas");}while(r); +do{ +*_FUNC_UNICODETOUTF8CHAR_LONG_UC= 0 ; +if(!qbevent)break;evnt(26070,20909,"ide_methods.bas");}while(r); +} +S_60976:; +dl_continue_6776:; +}while((!(-(*_FUNC_UNICODETOUTF8CHAR_LONG_UC== 0 )))&&(!new_error)); +dl_exit_6776:; +if(qbevent){evnt(26070,20911,"ide_methods.bas");if(r)goto S_60976;} +do{ +qbs_set(_FUNC_UNICODETOUTF8CHAR_STRING_UNICODETOUTF8CHAR,qbs_add(func_chr(*_FUNC_UNICODETOUTF8CHAR_INTEGER_FIRST),_FUNC_UNICODETOUTF8CHAR_STRING_UTF)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20912,"ide_methods.bas");}while(r); +} +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free298.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_UNICODETOUTF8CHAR_STRING_UNICODETOUTF8CHAR);return _FUNC_UNICODETOUTF8CHAR_STRING_UNICODETOUTF8CHAR; +} +qbs* FUNC_ANSITEXTTOUTF8TEXT(qbs*_FUNC_ANSITEXTTOUTF8TEXT_STRING_TEXT){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data299.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +do{ +qbs_set(_FUNC_ANSITEXTTOUTF8TEXT_STRING_UTF,qbs_new_txt_len("",0)); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20917,"ide_methods.bas");}while(r); +S_60980:; +fornext_value6779= 1 ; +fornext_finalvalue6779=_FUNC_ANSITEXTTOUTF8TEXT_STRING_TEXT->len; +fornext_step6779= 1 ; +if (fornext_step6779<0) fornext_step_negative6779=1; else fornext_step_negative6779=0; +if (new_error) goto fornext_error6779; +goto fornext_entrylabel6779; +while(1){ +fornext_value6779=fornext_step6779+(*_FUNC_ANSITEXTTOUTF8TEXT_LONG_CHI); +fornext_entrylabel6779: +*_FUNC_ANSITEXTTOUTF8TEXT_LONG_CHI=fornext_value6779; +qbs_cleanup(qbs_tmp_base,0); +if (fornext_step_negative6779){ +if (fornext_value6779fornext_finalvalue6779) break; +} +fornext_error6779:; +if(qbevent){evnt(26070,20918,"ide_methods.bas");if(r)goto S_60980;} +do{ +*_FUNC_ANSITEXTTOUTF8TEXT_INTEGER_ASCII=qbs_asc(_FUNC_ANSITEXTTOUTF8TEXT_STRING_TEXT,*_FUNC_ANSITEXTTOUTF8TEXT_LONG_CHI); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20920,"ide_methods.bas");}while(r); +S_60982:; +if ((-(*_FUNC_ANSITEXTTOUTF8TEXT_INTEGER_ASCII> 127 ))||new_error){ +if(qbevent){evnt(26070,20921,"ide_methods.bas");if(r)goto S_60982;} +do{ +*_FUNC_ANSITEXTTOUTF8TEXT_LONG_UNICODE=func__mapunicode(*_FUNC_ANSITEXTTOUTF8TEXT_INTEGER_ASCII); +if(!qbevent)break;evnt(26070,20923,"ide_methods.bas");}while(r); +S_60984:; +if ((-(*_FUNC_ANSITEXTTOUTF8TEXT_LONG_UNICODE== 0 ))||new_error){ +if(qbevent){evnt(26070,20925,"ide_methods.bas");if(r)goto S_60984;} +do{ +*_FUNC_ANSITEXTTOUTF8TEXT_LONG_UNICODE= 65533 ; +if(!qbevent)break;evnt(26070,20925,"ide_methods.bas");}while(r); +} +do{ +qbs_set(_FUNC_ANSITEXTTOUTF8TEXT_STRING_UTF,qbs_add(_FUNC_ANSITEXTTOUTF8TEXT_STRING_UTF,FUNC_UNICODETOUTF8CHAR(_FUNC_ANSITEXTTOUTF8TEXT_LONG_UNICODE))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20926,"ide_methods.bas");}while(r); +}else{ +do{ +qbs_set(_FUNC_ANSITEXTTOUTF8TEXT_STRING_UTF,qbs_add(_FUNC_ANSITEXTTOUTF8TEXT_STRING_UTF,func_chr(*_FUNC_ANSITEXTTOUTF8TEXT_INTEGER_ASCII))); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20929,"ide_methods.bas");}while(r); +} +fornext_continue_6778:; +} +fornext_exit_6778:; +do{ +qbs_set(_FUNC_ANSITEXTTOUTF8TEXT_STRING_ANSITEXTTOUTF8TEXT,_FUNC_ANSITEXTTOUTF8TEXT_STRING_UTF); +qbs_cleanup(qbs_tmp_base,0); +if(!qbevent)break;evnt(26070,20932,"ide_methods.bas");}while(r); +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free299.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +qbs_maketmp(_FUNC_ANSITEXTTOUTF8TEXT_STRING_ANSITEXTTOUTF8TEXT);return _FUNC_ANSITEXTTOUTF8TEXT_STRING_ANSITEXTTOUTF8TEXT; +} +void SUB_VWATCH(){ +qbs *tqbs; +ptrszint tmp_long; +int32 tmp_fileno; +uint32 qbs_tmp_base=qbs_tmp_list_nexti; +uint8 *tmp_mem_static_pointer=mem_static_pointer; +uint32 tmp_cmem_sp=cmem_sp; +#include "data300.txt" +mem_lock *sf_mem_lock; +new_mem_lock(); +sf_mem_lock=mem_lock_tmp; +sf_mem_lock->type=3; +if (new_error) goto exit_subfunc; +exit_subfunc:; +free_mem_lock(sf_mem_lock); +#include "free300.txt" +if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static; +cmem_sp=tmp_cmem_sp; +}